From 2c588ffed4f03f17813d3e5bd290a3351b9bb8b2 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sun, 27 Nov 2016 13:08:40 +0100 Subject: [PATCH 001/143] Revised Taunting Applies only to Chastity, Glitter and Stroke taunts. # Starting situation: * An unlimited number of taunt files was supported. They had to start with ChastityTaunts_, GlitterTaunts_ or strokeTaunts_. * Empty Files, by accident or filtering, weren't supported. * Missing Files were not supported. At least one file was required. * CBT without filtering was supported. * @CBT overwrites the calling line. ## Issues: * Taunt line amount was determined by the alphabetical order over all files for each one of ChastityTaunts_, GlitterTaunts_ and StrokeTaunts_. * This didn't allow 8 line Taunts, when 1,2,3,4,5,6,7 line Taunts were missing. * If the naming convention was alphabetical wrong (but logical right) the group length was determined wrong. Should have been better after 8afed731c6d3ada7ef8bba3241b1b07055439de4, but still present. * Taunt files had to return at least one line group for every possible setting and situation. * CBT had no Errorhandling if the File CBT\CBT.txt was missing or empty. An unhandled Exception was thrown then. * CBT starts a YesNoQuestion. If taunt time is over before answering, the metronome doesn't stop. * CBT accepts only "done" or "finish" # After Rework: * Unlimited number of taunt files allowed. They have to start with ChastityTaunts_, GlitterTaunts_ or StrokeTaunts_. * Taunt line amount is determined by a file name's last char. f.e.: GlitterTauns_9, will be treated as 9 line length taunt. If there is no number as last char, it's treated as 1-line taunt. * Missing Taunt-Files are supported. You won't have any taunts, but no error either. * Conditional taunt files are supported. You can create taunt files, for a specific scenario, using flags, variables or whatever. But since taunt files are chosen randomly until the first of all files has at least one valid group, you can't select a specific file. In order to do that, you have to modify all other files to be filtered out if that condition is met (busywork and non-sense). If desired, it's possible to add a two line filtering command. I've got something in my mind already. * CBT supports filtering, missing and empty file. In case of an error, it's written to log and chat. * @CBT overwrites the calling line. ## Issues: * CBT starts a YesNoQuestion. If taunt time is over before answering, the metronome sometimes doesn't stop. * CBT accepts only "done" or "finish" * @CBT is not filtered by GetFilter(String). This way a user will get CBT instructions, even if he disabled CBT. # Non Related Issues: * Bookmark module is not working if a taunt is interrupted. --- Tease AI/Classes/State.vb | 46 ++++-- Tease AI/Form1.vb | 287 ++++++++++++-------------------------- 2 files changed, 127 insertions(+), 206 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index b28877a..825db33 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -57,17 +57,35 @@ Public Class SessionState Public Property TeaseTick As Integer Public Property Responding As Boolean - Public Property StrokeTauntVal As Integer = -1 - Public Property TempStrokeTauntVal As Integer - Public Property TempFileText As String - Public Property TauntText As String - Public Property StrokeTauntCount As Integer - Public Property TauntTextTotal As Integer - + Public Property StrokeTauntVal As Integer = -1 + Public Property TempStrokeTauntVal As Integer + Public Property TempFileText As String + + ''' Gets or sets the current TauntFile path. + + Public Property TauntText As String + + ''' Gets or sets the length of a taunt group. + + Public Property StrokeTauntCount As Integer + + ''' Duplicate of .Count + + + Public Property TauntTextTotal As Integer + + ''' Gets or sets the current taunt lines. + Public Property TauntLines As New List(Of String) - Public Property StrokeFilter As Boolean - Public Property TauntTextCount As Integer + + <[ReadOnly](True)> + + Public Property StrokeFilter As Boolean + + ''' Gets or Sets the current taunt line index. + + Public Property TauntTextCount As Integer Public Property FileText As String @@ -124,6 +142,8 @@ Public Class SessionState Public Property TempHypno As String Public Property StrokeTick As Integer + ''' Gets or sets time until next taunt. + Public Property StrokeTauntTick As Integer @@ -142,6 +162,8 @@ Public Class SessionState Public Property YesOrNo As Boolean = False Public Property GotoFlag As Boolean + ''' Gets or Sets if a taunt demanded CBT. + Public Property CBT As Boolean Public Property RunningScript As Boolean @@ -230,9 +252,11 @@ Public Class SessionState Public Property LocalTagImageList As New List(Of String) Public Property PetName As String - + ''' Stores the number of taunt files, to determine taunt size. + + Public Property ScriptCount As Integer - Public Property TempScriptCount As Integer + Public Property TempScriptCount As Integer Public Property SlideshowTimerTick As Integer diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ec95191..1339718 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -6617,232 +6617,121 @@ Retry: ssh.StrokeTauntTick -= 1 FrmSettings.LBLDebugStrokeTauntTime.Text = ssh.StrokeTauntTick - 'Debug.Print("StrokeTauntTick = " & StrokeTauntTick) - If ssh.StrokeTauntTick = 0 Then - - ' TauntText = Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\StrokeTaunts.txt" - - If ssh.TempScriptCount = 0 Then - - - - - 'BlankLineLoop: - - Dim TauntFile As String - TauntFile = "StrokeTaunts" - If My.Settings.Chastity = True Then TauntFile = "ChastityTaunts" - If ssh.GlitterTease = True Then TauntFile = "GlitterTaunts" - ' ### Debug - 'TauntFile = "StrokeTaunts" - - ssh.TauntTextCount = 0 - ssh.ScriptCount = 0 - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\", FileIO.SearchOption.SearchTopLevelOnly, TauntFile & "_*.txt") - ssh.ScriptCount += 1 - Next - - 'Dim LinScript As Integer - ' LinSelected = False - - 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Linear Taunts", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'LinScript += 1 - 'Next - - Dim TauntTempVal As Integer = ssh.randomizer.Next(1, 101) - - 'If LinScript = 0 Then - - If TauntTempVal < 45 Then - TauntTempVal = 1 - Else - TauntTempVal = ssh.randomizer.Next(1, ssh.ScriptCount + 1) - End If - - If FrmSettings.CBDebugTaunts.Checked = True Then - If FrmSettings.RBDebugTaunts1.Checked = True Then TauntTempVal = 1 - If FrmSettings.RBDebugTaunts2.Checked = True Then TauntTempVal = 2 - If FrmSettings.RBDebugTaunts3.Checked = True Then TauntTempVal = 3 - End If - - - 'Else - - 'If TauntTempVal < 11 Then - 'LinSelected = True - 'End If - - 'If TauntTempVal > 10 And TauntTempVal < 51 Then - - '### Debug - Why was this here? O.o - 'TauntTempVal = 1 <--- Why? - - - - 'End If - - 'If TauntTempVal > 50 Then - 'TauntTempVal = randomizer.Next(1, ScriptCount + 1) - 'End If - - - ' End If - - '### Debug - 'TauntTempVal = 3 - - ' If LinSelected = False Then - ssh.StrokeTauntCount = TauntTempVal - ssh.ScriptCount = 0 - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\", FileIO.SearchOption.SearchTopLevelOnly, TauntFile & "_*.txt") - ssh.ScriptCount += 1 - If TauntTempVal = ssh.ScriptCount Then ssh.TauntText = foundFile - Next - ssh.ScriptCount = TauntTempVal - 'End If - - End If + If ssh.StrokeTauntTick > 0 Then + ' #################### Time hasn't come ####################### + Exit Sub - 'Debug.Print("ScriptCount = " & ScriptCount) + ElseIf ssh.TempScriptCount <= 0 AndAlso FrmSettings.CBDebugTaunts.Checked Then + ' ###################### Debug Taunt ########################## - 'Debug.Print("TempScriptCOunt = " & TempScriptCount) + Dim Lines As New List(Of String) + Dim TmpString As String = FrmSettings.TBDebugTaunts1.Text + If Not String.IsNullOrWhiteSpace(TmpString) Then Lines.Add(TmpString) + TmpString = FrmSettings.TBDebugTaunts2.Text + If Not String.IsNullOrWhiteSpace(TmpString) Then Lines.Add(TmpString) + TmpString = FrmSettings.TBDebugTaunts3.Text + If Not String.IsNullOrWhiteSpace(TmpString) Then Lines.Add(TmpString) + Dim Count As Integer = 1 + If FrmSettings.RBDebugTaunts2.Checked Then Count = 2 + If FrmSettings.RBDebugTaunts3.Checked Then Count = 3 - ' ############################################################################################################## + Do Until Lines.Count >= Count + Lines.Add("Tease-AI: Debug taunt line missing.") + Loop + ssh.TauntText = "Debug-Menu" + ssh.TauntLines = Lines + ssh.TauntTextCount = 0 + ssh.TempScriptCount = Lines.Count + ElseIf ssh.TempScriptCount <= 0 Then + ' ##################### Taunt from File ####################### + Dim tauntFile As String = "StrokeTaunts" + If My.Settings.Chastity = True Then TauntFile = "ChastityTaunts" + If ssh.GlitterTease = True Then TauntFile = "GlitterTaunts" + Dim FileList As List(Of String) = myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", TauntFile & "_*.txt", SearchOption.TopDirectoryOnly).ToList - If ssh.TempScriptCount = 0 Then 'And LinSelected = False Then + Do While FileList.Count > 0 + Dim FilePath As String = FileList(ssh.randomizer.Next(0, FileList.Count)) + Dim FileName As String = Path.GetFileNameWithoutExtension(FilePath) - ' Uneseccary for txt2List creates a new List(of ) instance. - ssh.TauntLines.Clear() - ' Read all lines of given File. - ssh.TauntLines = Txt2List(ssh.TauntText) - ssh.TauntTextTotal = ssh.TauntLines.Count + ' Determine GroupSize + Dim GroupSize As Integer = 1 ' 1-based + Dim LastChar As Char = FileName(FileName.Count - 1) + If IsNumeric(LastChar) Then GroupSize = CInt(LastChar.ToString) + ssh.StrokeTauntCount = GroupSize - ssh.TauntTextTotal -= 1 + Dim lines As List(Of String) = Txt2List(FilePath) ssh.StrokeFilter = True - - - - Try - ssh.TauntLines = FilterList(ssh.TauntLines) - Dim g As String = "BreakPoint" - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Taunt from file: " & - ssh.TauntText, ex, "StrokeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt" - End Try - + Dim linesFiltered As List(Of String) = FilterList(lines) ssh.StrokeFilter = False - ssh.TauntTextTotal = ssh.TauntLines.Count - - 'Debug.Print("TauntTextTotal = " & TauntTextTotal) - - - End If - - - - '############################################################################################################## + If linesFiltered.Count > 0 AndAlso linesFiltered.Count >= GroupSize Then + Dim GroupCount = linesFiltered.Count / GroupSize ' 1-based + Dim RndGroup As Integer = ssh.randomizer.Next(1, GroupCount + 1) - 1 ' 0-based + Dim ScriptLine As Integer = RndGroup * GroupSize + ssh.TauntText = FilePath + ssh.TauntLines = linesFiltered + ssh.TauntTextCount = ScriptLine + ssh.TempScriptCount = GroupSize - 1 - If ssh.TempScriptCount = 0 Then ' And LinSelected = False Then - 'Debug.Print("Equal called") - ssh.TempScriptCount = ssh.ScriptCount - ssh.TauntTextTotal /= ssh.ScriptCount - ssh.TauntTextCount = ssh.randomizer.Next(0, ssh.TauntTextTotal) * ssh.ScriptCount - If FrmSettings.CBDebugTaunts.Checked = True Then ssh.TauntTextCount = 0 - Else - 'Debug.Print("Not equal called") - ssh.TauntTextCount += 1 - End If - - ' If TempScriptCount = 0 And LinSelected = True Then - 'Dim LinList As New List(Of String) - - ' For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Linear Taunts", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'LinList.Add(foundFile) - 'Next - - 'FileText = LinList(randomizer.Next(0, LinList.Count)) - - 'LinList.Clear() - - 'LinList = Txt2List(FileText) - - 'TempScriptCount = LinList.Count - 'LinLine = TempScriptCount - + Exit Do + Else + ssh.TauntText = "" + ssh.TauntLines = New List(Of String) + ssh.TauntTextCount = 0 + ssh.TempScriptCount = 0 - 'End If + FileList.Remove(FilePath) + End If + Loop + Else + ' ##################### Next Taunt line ####################### + ssh.TauntTextCount += 1 ssh.TempScriptCount -= 1 + End If - - - - 'Debug.Print("TauntTextCount = " & TauntTextCount) - - - - + If ssh.TauntLines.Count > 0 Then + Try ssh.DomTask = ssh.TauntLines(ssh.TauntTextCount) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Taunt from file: " & - ssh.TauntText, ex, "StrokeTauntTimer.Tick") + ssh.TauntText, ex, "StrokeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt" End Try - If FrmSettings.CBDebugTaunts.Checked = True Then - ssh.DomTask = "" - If ssh.TauntTextCount = 0 Then ssh.DomTask = FrmSettings.TBDebugTaunts1.Text - If ssh.TauntTextCount = 1 Then ssh.DomTask = FrmSettings.TBDebugTaunts2.Text - If ssh.TauntTextCount = 2 Then ssh.DomTask = FrmSettings.TBDebugTaunts3.Text - If ssh.DomTask = "" Then ssh.DomTask = "@SystemMessage ERROR: Debug field is currently blank" - End If - - If ssh.DomTask.Contains("@ShowTaggedImage") Then ssh.JustShowedBlogImage = True - - 'If DomTask = "" Then GoTo BlankLineLoop If InStr(UCase(ssh.DomTask), UCase("@CBT")) <> 0 Then CBTScript() Else TypingDelayGeneric() End If + End If - - If ssh.TempScriptCount = 0 Then - If FrmSettings.SliderSTF.Value = 1 Then ssh.StrokeTauntTick = ssh.randomizer.Next(120, 241) - If FrmSettings.SliderSTF.Value = 2 Then ssh.StrokeTauntTick = ssh.randomizer.Next(75, 121) - If FrmSettings.SliderSTF.Value = 3 Then ssh.StrokeTauntTick = ssh.randomizer.Next(45, 76) - If FrmSettings.SliderSTF.Value = 4 Then ssh.StrokeTauntTick = ssh.randomizer.Next(25, 46) - If FrmSettings.SliderSTF.Value = 5 Then ssh.StrokeTauntTick = ssh.randomizer.Next(15, 26) - 'StrokeTauntTick = randomizer.Next(11, 21) - Else - ssh.StrokeTauntTick = ssh.randomizer.Next(5, 9) - End If - - - - - - + If ssh.TempScriptCount = 0 Then + If FrmSettings.SliderSTF.Value = 1 Then ssh.StrokeTauntTick = ssh.randomizer.Next(120, 241) + If FrmSettings.SliderSTF.Value = 2 Then ssh.StrokeTauntTick = ssh.randomizer.Next(75, 121) + If FrmSettings.SliderSTF.Value = 3 Then ssh.StrokeTauntTick = ssh.randomizer.Next(45, 76) + If FrmSettings.SliderSTF.Value = 4 Then ssh.StrokeTauntTick = ssh.randomizer.Next(25, 46) + If FrmSettings.SliderSTF.Value = 5 Then ssh.StrokeTauntTick = ssh.randomizer.Next(15, 26) + Else + ssh.StrokeTauntTick = ssh.randomizer.Next(5, 9) End If @@ -6852,26 +6741,34 @@ Retry: End Sub Public Sub CBTScript() + Try + Dim FilePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt" - Dim CBTAmount As Integer - - ssh.CBT = True - ssh.YesOrNo = True - Dim CBTCount As Integer + If Not Directory.Exists(Path.GetDirectoryName(FilePath)) OrElse Not File.Exists(FilePath) Then + Throw New Exception("TEASE-AI: unable to locate CBT-File: " & FilePath) + Else - Dim lines As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt") - CBTCount += lines.Count + Dim lines As List(Of String) = Txt2List(FilePath) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: CBT-file is empty: " & FilePath) - CBTCount = ssh.randomizer.Next(0, CBTCount) + lines = FilterList(lines) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: No available lines in CBT-file: " & FilePath) - ssh.DomTask = lines(CBTCount) + Dim CBTCount As Integer - CBTAmount = ssh.randomizer.Next(1, 6) * 2 * FrmSettings.domlevelNumBox.Value - ssh.DomTask = ssh.DomTask.Replace("#CBTAmount", CBTAmount) - - TypingDelayGeneric() + CBTCount = ssh.randomizer.Next(0, lines.Count) + ssh.DomTask = lines(CBTCount) + ssh.CBT = True + ssh.YesOrNo = True + End If + Catch ex As Exception + ssh.DomTask = ex.Message + Log.WriteError(ex.Message, ex, "CBTScript()") + Finally + TypingDelayGeneric() + End Try End Sub From db1c2a4420c5c5f9e45a1110c6849000c8b51ac9 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sun, 27 Nov 2016 14:10:49 +0100 Subject: [PATCH 002/143] 9999 line taunt Increased maximum taunt size to 9999 lines.^^ --- Tease AI/Form1.vb | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 1339718..3e53260 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -6665,8 +6665,22 @@ Retry: ' Determine GroupSize Dim GroupSize As Integer = 1 ' 1-based - Dim LastChar As Char = FileName(FileName.Count - 1) - If IsNumeric(LastChar) Then GroupSize = CInt(LastChar.ToString) + + If FileName.Length > 4 Then + ' get the last 4 numeric chars in filename and convert them to a number + Dim TmpString As String = "" + + For i = FileName.Length - 1 To FileName.Length - 4 Step -1 + If IsNumeric(FileName(i)) Then + TmpString = FileName(i) & TmpString + Else + Exit For + End If + Next + + If IsNumeric(TmpString) Then GroupSize = CInt(TmpString) + End If + ssh.StrokeTauntCount = GroupSize Dim lines As List(Of String) = Txt2List(FilePath) From da450b3a5881090288f82c4896fac71fb7c6a413 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sun, 27 Nov 2016 15:03:44 +0100 Subject: [PATCH 003/143] Readme updated --- README.md | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index 13fc533..53de50a 100644 --- a/README.md +++ b/README.md @@ -12,6 +12,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added new sorting method to sort file lists like the Windows file Explorer does. * PoundClean reworked to support system keywords as parameters inside of vocabulary files. In order to prevent infinite loops, the maximum allowed depth is limited to 5 times. Tip: take a look at the logfile to see how it's working. * All Contacts and Domme are able to use @DommeTag(). + * Chastity, Glitter and Taunt-files reworked to increase fault tolerance and correct line grouping. 2c588ffed4f03f17813d3e5bd290a3351b9bb8b2 * Removed Features: * @DommeTag() doesn't alternate the given tags to return a result. (stefaf) The idea was worth to try. @@ -30,8 +31,10 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Enhanced logging: It is now possible to customize the logging without the need to recompile. Simply open up Tease-AI.exe.config using a text editor and edit the switch values as described in the file - keep in mind to backup the file before. ;-) Added rollover function, if the log file is bigger as 2 MB. Instead of deleting the complete file, now only the top entries are deleted. ### Known Issues: -* DommeTag alternation is causing nonsense most of the time. * Texted imagetags are not working. +* @BookmarkModule + * causes a script freeze at EOF, when taunts are interrupted. (Occured in Debug->Run Script) + * seem to break if a miniscript (and maybe others) is called during the taunt. # Changelog - Patch 54.5.0 From 668570f8666417ee359e89ec341185ae7eee369b Mon Sep 17 00:00:00 2001 From: Stefaf Date: Tue, 29 Nov 2016 00:22:34 +0100 Subject: [PATCH 004/143] Force 1 line taunts Adds a 45% Chance to force 1 line taunts. Otherwise a random of all available taunt types is picked. Taunts are now processed in a designated class, to add the possibility to reuse it for other taunt types as chastity, glitter and stroke too. --- Tease AI/Classes/State.vb | 55 +- Tease AI/Classes/TauntProcessingObject.vb | 94 + Tease AI/Form1.vb | 20073 ++++++++++---------- Tease AI/Tease AI.vbproj | 1 + 4 files changed, 10158 insertions(+), 10065 deletions(-) create mode 100644 Tease AI/Classes/TauntProcessingObject.vb diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 825db33..afafa44 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -61,21 +61,30 @@ Public Class SessionState Public Property TempStrokeTauntVal As Integer Public Property TempFileText As String +#Region "Taunts" + + ''' Gets or sets the remaining taunt lines + + Public Property TempScriptCount As Integer + + ''' Gets or Sets if a taunt demanded CBT. + + Public Property CBT As Boolean + + ''' Gets or sets time until next taunt. + + Public Property StrokeTauntTick As Integer + ''' Gets or sets the current TauntFile path. - + Public Property TauntText As String ''' Gets or sets the length of a taunt group. - + Public Property StrokeTauntCount As Integer - ''' Duplicate of .Count - - - Public Property TauntTextTotal As Integer - ''' Gets or sets the current taunt lines. - + Public Property TauntLines As New List(Of String) @@ -84,9 +93,25 @@ Public Class SessionState Public Property StrokeFilter As Boolean ''' Gets or Sets the current taunt line index. - + Public Property TauntTextCount As Integer +#Region "Obsolete" + + ''' Duplicate of .Count + + + Public Property TauntTextTotal As Integer + + ''' Stores the number of taunt files, to determine taunt size. + + + Public Property ScriptCount As Integer + +#End Region + +#End Region + Public Property FileText As String Public Property ScriptTick As Integer @@ -142,9 +167,6 @@ Public Class SessionState Public Property TempHypno As String Public Property StrokeTick As Integer - ''' Gets or sets time until next taunt. - - Public Property StrokeTauntTick As Integer @@ -162,10 +184,6 @@ Public Class SessionState Public Property YesOrNo As Boolean = False Public Property GotoFlag As Boolean - ''' Gets or Sets if a taunt demanded CBT. - - Public Property CBT As Boolean - Public Property RunningScript As Boolean Public Property BeforeTease As Boolean @@ -252,11 +270,6 @@ Public Class SessionState Public Property LocalTagImageList As New List(Of String) Public Property PetName As String - ''' Stores the number of taunt files, to determine taunt size. - - - Public Property ScriptCount As Integer - Public Property TempScriptCount As Integer Public Property SlideshowTimerTick As Integer diff --git a/Tease AI/Classes/TauntProcessingObject.vb b/Tease AI/Classes/TauntProcessingObject.vb new file mode 100644 index 0000000..84fafc5 --- /dev/null +++ b/Tease AI/Classes/TauntProcessingObject.vb @@ -0,0 +1,94 @@ +Imports System.IO + +''' Class to process TauntFiles +Public Class TauntProcessingObject + + ''' Absolute path to taunt file. + Friend Property FilePath As String = "" + + ''' gets tauntfile's name without extension. + Friend ReadOnly Property FileName As String + Get + Return Path.GetFileNameWithoutExtension(FilePath) + End Get + End Property + + ''' Filtered taunt file Lines. + Friend Property Lines As New List(Of String) + + Dim _TauntSize As Integer = -1 + ''' Gets the number of lines in a taunt. + '''1-based value + Friend ReadOnly Property TauntSize As Integer + Get + If _TauntSize = -1 AndAlso FileName.Length > 4 Then + ' get the last 4 numeric chars in filename and convert them to a number + Dim TmpString As String = "" + + For i = FileName.Length - 1 To FileName.Length - 4 Step -1 + If IsNumeric(FileName(i)) Then + TmpString = FileName(i) & TmpString + Else + Exit For + End If + Next + + If IsNumeric(TmpString) Then _TauntSize = CInt(TmpString) + End If + + Return _TauntSize + End Get + End Property + + ''' Gets a random taunt start line. + Friend ReadOnly Property RandomTauntLine As Integer + Get + If Avaialable Then + Dim GroupCount = Lines.Count / TauntSize ' 1-based + Dim RndGroup As Integer = My.Application.Session.randomizer.Next(1, GroupCount + 1) - 1 ' 0-based + Dim ScriptLine As Integer = RndGroup * TauntSize + + Return ScriptLine + Else + Return -1 + End If + End Get + End Property + + ''' Returns if a Taunt is useable. + ''' Returns true, if taunt has valid lines and right ammount. + ReadOnly Property Avaialable As Boolean + Get + If Lines.Count > 0 AndAlso Lines.Count > TauntSize Then + Return True + Else + Return False + End If + End Get + End Property + + ''' Creates a new instance and loads the data from given filepath + ''' The file to load. + ''' Object Reference to run filtering on. + ''' Non-Threadsafe + Sub New(ByVal absolutePath As String, ByVal Form1Reference As Form1) + Try + FilePath = absolutePath + + ' Set TauntSize for filtering. + Form1Reference.ssh.StrokeTauntCount = TauntSize + + ' Read lines. + Lines = Txt2List(FilePath) + + ' Filter lines. + Form1Reference.ssh.StrokeFilter = True + Dim linesFiltered As List(Of String) = Form1Reference.FilterList(Lines) + Form1Reference.ssh.StrokeFilter = False + + Catch ex As Exception + Throw + End Try + End Sub + +End Class \ No newline at end of file diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 3e53260..ba59a89 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -6657,60 +6657,44 @@ Retry: If My.Settings.Chastity = True Then TauntFile = "ChastityTaunts" If ssh.GlitterTease = True Then TauntFile = "GlitterTaunts" - Dim FileList As List(Of String) = myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", TauntFile & "_*.txt", SearchOption.TopDirectoryOnly).ToList + ' Read all tauntfiles and get available. + Dim TauntFiles As New List(Of TauntProcessingObject) - Do While FileList.Count > 0 - Dim FilePath As String = FileList(ssh.randomizer.Next(0, FileList.Count)) - Dim FileName As String = Path.GetFileNameWithoutExtension(FilePath) + For Each str As String In myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", tauntFile & "_*.txt", SearchOption.TopDirectoryOnly) + Dim Taunt As New TauntProcessingObject(str, Me) + If Taunt.Avaialable Then TauntFiles.Add(Taunt) + Next - ' Determine GroupSize - Dim GroupSize As Integer = 1 ' 1-based - If FileName.Length > 4 Then - ' get the last 4 numeric chars in filename and convert them to a number - Dim TmpString As String = "" + If TauntFiles.Count = 0 Then + ' No Taunt available + ssh.TauntText = "" + ssh.TauntLines = New List(Of String) + ssh.TauntTextCount = 0 + ssh.TempScriptCount = 0 + Else + ' Taunt available + Dim TauntToUse As TauntProcessingObject - For i = FileName.Length - 1 To FileName.Length - 4 Step -1 - If IsNumeric(FileName(i)) Then - TmpString = FileName(i) & TmpString - Else - Exit For - End If - Next + ' Increase chance of one line taunt + Dim OneLineChance As Integer = ssh.randomizer.Next(0, 101) - If IsNumeric(TmpString) Then GroupSize = CInt(TmpString) + If OneLineChance < 45 _ + AndAlso TauntFiles.Find(Function(x) x.TauntSize = 1) IsNot Nothing Then + ' 1 line taunts available, force to use it. + Dim OneLiners As List(Of TauntProcessingObject) = TauntFiles.Where(Function(x) x.TauntSize = 1).ToList + TauntToUse = OneLiners(ssh.randomizer.Next(0, OneLiners.Count)) + Else + ' Pick a random taunt size. + TauntToUse = TauntFiles(ssh.randomizer.Next(0, TauntFiles.Count)) End If - ssh.StrokeTauntCount = GroupSize - - Dim lines As List(Of String) = Txt2List(FilePath) + ssh.TauntText = TauntToUse.FilePath + ssh.TauntLines = TauntToUse.Lines + ssh.TauntTextCount = TauntToUse.RandomTauntLine + ssh.TempScriptCount = TauntToUse.TauntSize - 1 - ssh.StrokeFilter = True - Dim linesFiltered As List(Of String) = FilterList(lines) - ssh.StrokeFilter = False - - - If linesFiltered.Count > 0 AndAlso linesFiltered.Count >= GroupSize Then - - Dim GroupCount = linesFiltered.Count / GroupSize ' 1-based - Dim RndGroup As Integer = ssh.randomizer.Next(1, GroupCount + 1) - 1 ' 0-based - Dim ScriptLine As Integer = RndGroup * GroupSize - - ssh.TauntText = FilePath - ssh.TauntLines = linesFiltered - ssh.TauntTextCount = ScriptLine - ssh.TempScriptCount = GroupSize - 1 - - Exit Do - Else - ssh.TauntText = "" - ssh.TauntLines = New List(Of String) - ssh.TauntTextCount = 0 - ssh.TempScriptCount = 0 - - FileList.Remove(FilePath) - End If - Loop + End If Else ' ##################### Next Taunt line ####################### @@ -6754,4593 +6738,4513 @@ Retry: End Sub + Public Sub CBTScript() - Try - Dim FilePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt" + Try + Dim FilePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt" - If Not Directory.Exists(Path.GetDirectoryName(FilePath)) OrElse Not File.Exists(FilePath) Then - Throw New Exception("TEASE-AI: unable to locate CBT-File: " & FilePath) - Else + If Not Directory.Exists(Path.GetDirectoryName(FilePath)) OrElse Not File.Exists(FilePath) Then + Throw New Exception("TEASE-AI: unable to locate CBT-File: " & FilePath) + Else - Dim lines As List(Of String) = Txt2List(FilePath) - If lines.Count = 0 Then Throw New Exception("TEASE-AI: CBT-file is empty: " & FilePath) + Dim lines As List(Of String) = Txt2List(FilePath) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: CBT-file is empty: " & FilePath) - lines = FilterList(lines) - If lines.Count = 0 Then Throw New Exception("TEASE-AI: No available lines in CBT-file: " & FilePath) + lines = FilterList(lines) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: No available lines in CBT-file: " & FilePath) - Dim CBTCount As Integer + Dim CBTCount As Integer - CBTCount = ssh.randomizer.Next(0, lines.Count) + CBTCount = ssh.randomizer.Next(0, lines.Count) - ssh.DomTask = lines(CBTCount) - ssh.CBT = True - ssh.YesOrNo = True - End If + ssh.DomTask = lines(CBTCount) + ssh.CBT = True + ssh.YesOrNo = True + End If - Catch ex As Exception - ssh.DomTask = ex.Message - Log.WriteError(ex.Message, ex, "CBTScript()") - Finally - TypingDelayGeneric() - End Try - End Sub + Catch ex As Exception + ssh.DomTask = ex.Message + Log.WriteError(ex.Message, ex, "CBTScript()") + Finally + TypingDelayGeneric() + End Try + End Sub #Region "----------------------------------------------------- Video-Files ----------------------------------------------------" - Public Sub RandomVideo() - ' Reset retentive global variables - ssh.NoVideo = False - ssh.DommeVideo = False + Public Sub RandomVideo() + ' Reset retentive global variables + ssh.NoVideo = False + ssh.DommeVideo = False - Dim __dom As Random = New Random() - Dim __domVideo As String - Dim __TotalFiles As New List(Of String) + Dim __dom As Random = New Random() + Dim __domVideo As String + Dim __TotalFiles As New List(Of String) - '====================================================================================== - ' Genre Videos - '====================================================================================== - If My.Settings.CBHardcore = True Then _ + '====================================================================================== + ' Genre Videos + '====================================================================================== + If My.Settings.CBHardcore = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) - If My.Settings.CBSoftcore = True Then _ + If My.Settings.CBSoftcore = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) - If My.Settings.CBLesbian = True Then _ + If My.Settings.CBLesbian = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) - If My.Settings.CBBlowjob = True Then _ + If My.Settings.CBBlowjob = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) - If My.Settings.CBFemdom = True Then _ + If My.Settings.CBFemdom = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) - If My.Settings.CBFemsub = True Then _ + If My.Settings.CBFemsub = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) - If ssh.NoSpecialVideo = True Then GoTo SkipSpecial + If ssh.NoSpecialVideo = True Then GoTo SkipSpecial - If ssh.ScriptVideoTeaseFlag = True Then - If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecial - End If + If ssh.ScriptVideoTeaseFlag = True Then + If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecial + End If - If ssh.RandomizerVideo = True Then GoTo SkipSpecial + If ssh.RandomizerVideo = True Then GoTo SkipSpecial - '====================================================================================== - ' Special - Videos - '====================================================================================== - If My.Settings.CBJOI = True Then _ + '====================================================================================== + ' Special - Videos + '====================================================================================== + If My.Settings.CBJOI = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) - If My.Settings.CBCH = True Then _ + If My.Settings.CBCH = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) SkipSpecial: - '====================================================================================== - ' General Videos - '====================================================================================== - If My.Settings.CBGeneral = True Then _ + '====================================================================================== + ' General Videos + '====================================================================================== + If My.Settings.CBGeneral = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) - '====================================================================================== - ' Domme - Videos - '====================================================================================== - If My.Settings.CBHardcoreD = True Then _ + '====================================================================================== + ' Domme - Videos + '====================================================================================== + If My.Settings.CBHardcoreD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) - If My.Settings.CBSoftcoreD = True Then _ + If My.Settings.CBSoftcoreD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) - If My.Settings.CBLesbianD = True Then _ + If My.Settings.CBLesbianD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) - If My.Settings.CBBlowjobD = True Then _ + If My.Settings.CBBlowjobD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) - If My.Settings.CBFemdomD = True Then _ + If My.Settings.CBFemdomD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) - If My.Settings.CBFemsubD = True Then _ + If My.Settings.CBFemsubD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) - If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD - If ssh.ScriptVideoTeaseFlag = True Then - If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecialD - End If + If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD + If ssh.ScriptVideoTeaseFlag = True Then + If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecialD + End If - If ssh.RandomizerVideo = True Then GoTo SkipSpecialD + If ssh.RandomizerVideo = True Then GoTo SkipSpecialD - '====================================================================================== - ' Domme - Special - Videos - '====================================================================================== - If My.Settings.CBJOID = True Then _ + '====================================================================================== + ' Domme - Special - Videos + '====================================================================================== + If My.Settings.CBJOID = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) - If My.Settings.CBCHD = True Then _ + If My.Settings.CBCHD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) SkipSpecialD: - '====================================================================================== - ' Domme - General Videos - '====================================================================================== - If My.Settings.CBGeneralD = True Then _ + '====================================================================================== + ' Domme - General Videos + '====================================================================================== + If My.Settings.CBGeneralD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) - If __TotalFiles.Count = 0 Then Exit Sub + If __TotalFiles.Count = 0 Then Exit Sub - If ssh.VideoCheck = True Then Exit Sub + If ssh.VideoCheck = True Then Exit Sub GetAnotherRandomVideo: - __domVideo = __TotalFiles(__dom.Next(0, __TotalFiles.Count)) + __domVideo = __TotalFiles(__dom.Next(0, __TotalFiles.Count)) - If __domVideo = "" Then GoTo GetAnotherRandomVideo + If __domVideo = "" Then GoTo GetAnotherRandomVideo - '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Debug Line @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ - If Debugger.IsAttached AndAlso 1 = 2 Then _ + '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Debug Line @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ + If Debugger.IsAttached AndAlso 1 = 2 Then _ __TotalFiles.ForEach(Sub(x) Debug.Print("RndVideoCheck: " & x)) - If My.Settings.CBHardcore And InStr(__domVideo, My.Settings.VideoHardcore) <> 0 Then ssh.VideoType = "Hardcore" - If My.Settings.CBSoftcore And InStr(__domVideo, My.Settings.VideoSoftcore) <> 0 Then ssh.VideoType = "Softcore" - If My.Settings.CBLesbian = True And InStr(__domVideo, My.Settings.VideoLesbian) <> 0 Then ssh.VideoType = "Lesbian" - If My.Settings.CBBlowjob = True And InStr(__domVideo, My.Settings.VideoBlowjob) <> 0 Then ssh.VideoType = "Blowjob" - If My.Settings.CBFemdom = True And InStr(__domVideo, My.Settings.VideoFemdom) <> 0 Then ssh.VideoType = "Femdom" - If My.Settings.CBFemsub = True And InStr(__domVideo, My.Settings.VideoFemsub) <> 0 Then ssh.VideoType = "Femsub" - If My.Settings.CBJOI = True And InStr(__domVideo, My.Settings.VideoJOI) <> 0 Then ssh.VideoType = "JOI" - If My.Settings.CBCH = True And InStr(__domVideo, My.Settings.VideoCH) <> 0 Then ssh.VideoType = "CH" - If My.Settings.CBGeneral = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then ssh.VideoType = "General" + If My.Settings.CBHardcore And InStr(__domVideo, My.Settings.VideoHardcore) <> 0 Then ssh.VideoType = "Hardcore" + If My.Settings.CBSoftcore And InStr(__domVideo, My.Settings.VideoSoftcore) <> 0 Then ssh.VideoType = "Softcore" + If My.Settings.CBLesbian = True And InStr(__domVideo, My.Settings.VideoLesbian) <> 0 Then ssh.VideoType = "Lesbian" + If My.Settings.CBBlowjob = True And InStr(__domVideo, My.Settings.VideoBlowjob) <> 0 Then ssh.VideoType = "Blowjob" + If My.Settings.CBFemdom = True And InStr(__domVideo, My.Settings.VideoFemdom) <> 0 Then ssh.VideoType = "Femdom" + If My.Settings.CBFemsub = True And InStr(__domVideo, My.Settings.VideoFemsub) <> 0 Then ssh.VideoType = "Femsub" + If My.Settings.CBJOI = True And InStr(__domVideo, My.Settings.VideoJOI) <> 0 Then ssh.VideoType = "JOI" + If My.Settings.CBCH = True And InStr(__domVideo, My.Settings.VideoCH) <> 0 Then ssh.VideoType = "CH" + If My.Settings.CBGeneral = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then ssh.VideoType = "General" - If My.Settings.CBHardcoreD And InStr(__domVideo, My.Settings.VideoHardcoreD) <> 0 Then - ssh.VideoType = "HardcoreD" - ssh.DommeVideo = True - End If - If My.Settings.CBSoftcoreD And InStr(__domVideo, My.Settings.VideoSoftcoreD) <> 0 Then - ssh.VideoType = "SoftcoreD" - ssh.DommeVideo = True - End If - If My.Settings.CBLesbianD And InStr(__domVideo, My.Settings.VideoLesbianD) <> 0 Then - ssh.VideoType = "LesbianD" - ssh.DommeVideo = True - End If + If My.Settings.CBHardcoreD And InStr(__domVideo, My.Settings.VideoHardcoreD) <> 0 Then + ssh.VideoType = "HardcoreD" + ssh.DommeVideo = True + End If + If My.Settings.CBSoftcoreD And InStr(__domVideo, My.Settings.VideoSoftcoreD) <> 0 Then + ssh.VideoType = "SoftcoreD" + ssh.DommeVideo = True + End If + If My.Settings.CBLesbianD And InStr(__domVideo, My.Settings.VideoLesbianD) <> 0 Then + ssh.VideoType = "LesbianD" + ssh.DommeVideo = True + End If - If My.Settings.CBBlowjobD And InStr(__domVideo, My.Settings.VideoBlowjobD) <> 0 Then - ssh.VideoType = "BlowjobD" - ssh.DommeVideo = True - End If - If My.Settings.CBFemdomD And InStr(__domVideo, My.Settings.VideoFemdomD) <> 0 Then - ssh.VideoType = "FemdomD" - ssh.DommeVideo = True - End If - If My.Settings.CBFemsubD And InStr(__domVideo, My.Settings.VideoFemsubD) <> 0 Then - ssh.VideoType = "FemsubD" - ssh.DommeVideo = True - End If + If My.Settings.CBBlowjobD And InStr(__domVideo, My.Settings.VideoBlowjobD) <> 0 Then + ssh.VideoType = "BlowjobD" + ssh.DommeVideo = True + End If + If My.Settings.CBFemdomD And InStr(__domVideo, My.Settings.VideoFemdomD) <> 0 Then + ssh.VideoType = "FemdomD" + ssh.DommeVideo = True + End If + If My.Settings.CBFemsubD And InStr(__domVideo, My.Settings.VideoFemsubD) <> 0 Then + ssh.VideoType = "FemsubD" + ssh.DommeVideo = True + End If - If My.Settings.CBJOID And InStr(__domVideo, My.Settings.VideoJOID) <> 0 Then - ssh.VideoType = "JOID" - ssh.DommeVideo = True - End If + If My.Settings.CBJOID And InStr(__domVideo, My.Settings.VideoJOID) <> 0 Then + ssh.VideoType = "JOID" + ssh.DommeVideo = True + End If - If My.Settings.CBCHD = True And InStr(__domVideo, My.Settings.VideoCHD) <> 0 Then - ssh.VideoType = "CHD" - ssh.DommeVideo = True - End If + If My.Settings.CBCHD = True And InStr(__domVideo, My.Settings.VideoCHD) <> 0 Then + ssh.VideoType = "CHD" + ssh.DommeVideo = True + End If - If My.Settings.CBGeneralD = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then - ssh.VideoType = "GeneralD" - ssh.DommeVideo = True - End If + If My.Settings.CBGeneralD = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then + ssh.VideoType = "GeneralD" + ssh.DommeVideo = True + End If - 'Debug.Print("VideoType = " & VideoType) + 'Debug.Print("VideoType = " & VideoType) - ' domVLC.Visible = True - DomWMP.Visible = True - DomWMP.stretchToFit = True + ' domVLC.Visible = True + DomWMP.Visible = True + DomWMP.stretchToFit = True - ' programsettingsPanel.Visible = False - mainPictureBox.Visible = False - ' domVLC.playlist.items.clear() - ' domVLC.playlist.add("file:///" & RandomVideo & "") - ' 'Debug.Print("randomVideo = " & RandomVideo) - ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height - ' domVLC.playlist.play() - 'If FrmSettings.VLCfillRadio.Checked = True Then - ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height - 'End If - 'If FrmSettings.VLC43Radio.Checked = True Then domVLC.video.crop = "4:3" - 'If FrmSettings.VLC1610Radio.Checked = True Then domVLC.video.crop = "16:10" - 'If FrmSettings.VLC169Radio.Checked = True Then domVLC.video.crop = "16:9" + ' programsettingsPanel.Visible = False + mainPictureBox.Visible = False + ' domVLC.playlist.items.clear() + ' domVLC.playlist.add("file:///" & RandomVideo & "") + ' 'Debug.Print("randomVideo = " & RandomVideo) + ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height + ' domVLC.playlist.play() + 'If FrmSettings.VLCfillRadio.Checked = True Then + ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height + 'End If + 'If FrmSettings.VLC43Radio.Checked = True Then domVLC.video.crop = "4:3" + 'If FrmSettings.VLC1610Radio.Checked = True Then domVLC.video.crop = "16:10" + 'If FrmSettings.VLC169Radio.Checked = True Then domVLC.video.crop = "16:9" - DomWMP.URL = __domVideo + DomWMP.URL = __domVideo - If ssh.JumpVideo = True Then - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + If ssh.JumpVideo = True Then + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - VideoJump2Random(Nothing, Nothing) + VideoJump2Random(Nothing, Nothing) - End If + End If - ssh.JumpVideo = False - End Sub + ssh.JumpVideo = False + End Sub - Friend Sub PlayRandomJOI() - 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. - 'ISSUE: Redundant Code - Dim JOIVideos As New List(Of String) - JOIVideos.Clear() + Friend Sub PlayRandomJOI() + 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. + 'ISSUE: Redundant Code + Dim JOIVideos As New List(Of String) + JOIVideos.Clear() - If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then + If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then - JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, + JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, System.IO.SearchOption.AllDirectories)) - End If + End If - If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then - JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, + If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then + JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, System.IO.SearchOption.AllDirectories)) - End If + End If - If JOIVideos.Count < 1 Then - 'ISSUE: This Message will occur during running Scripts! - MessageBox.Show(Me, "No JOI Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - If ssh.TeaseVideo = True Then RunFileText() - ssh.TeaseVideo = False - Return - End If + If JOIVideos.Count < 1 Then + 'ISSUE: This Message will occur during running Scripts! + MessageBox.Show(Me, "No JOI Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If ssh.TeaseVideo = True Then RunFileText() + ssh.TeaseVideo = False + Return + End If - Dim JOIVideoLine As Integer = ssh.randomizer.Next(0, JOIVideos.Count) + Dim JOIVideoLine As Integer = ssh.randomizer.Next(0, JOIVideos.Count) - DomWMP.Visible = True - DomWMP.stretchToFit = True + DomWMP.Visible = True + DomWMP.stretchToFit = True - mainPictureBox.Visible = False + mainPictureBox.Visible = False - DomWMP.URL = JOIVideos(JOIVideoLine) + DomWMP.URL = JOIVideos(JOIVideoLine) - End Sub + End Sub - Friend Sub PlayRandomCH() - 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. - 'ISSUE: Redundant Code - Dim CHVideos As New List(Of String) - CHVideos.Clear() + Friend Sub PlayRandomCH() + 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. + 'ISSUE: Redundant Code + Dim CHVideos As New List(Of String) + CHVideos.Clear() - If FrmSettings.LblVideoCHTotal.Text <> "0" And My.Settings.CBCH = True Then - CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) - End If - If FrmSettings.LblVideoCHTotalD.Text <> "0" And My.Settings.CBCHD = True Then - CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) - End If + If FrmSettings.LblVideoCHTotal.Text <> "0" And My.Settings.CBCH = True Then + CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) + End If + If FrmSettings.LblVideoCHTotalD.Text <> "0" And My.Settings.CBCHD = True Then + CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) + End If - If CHVideos.Count < 1 Then - 'ISSUE: This Message will occur during running Scripts! - MessageBox.Show(Me, "No CH Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - If ssh.TeaseVideo = True Then RunFileText() - ssh.TeaseVideo = False - Return - End If + If CHVideos.Count < 1 Then + 'ISSUE: This Message will occur during running Scripts! + MessageBox.Show(Me, "No CH Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If ssh.TeaseVideo = True Then RunFileText() + ssh.TeaseVideo = False + Return + End If - Dim CHVideoLine As Integer = ssh.randomizer.Next(0, CHVideos.Count) + Dim CHVideoLine As Integer = ssh.randomizer.Next(0, CHVideos.Count) - DomWMP.Visible = True - DomWMP.stretchToFit = True + DomWMP.Visible = True + DomWMP.stretchToFit = True - mainPictureBox.Visible = False + mainPictureBox.Visible = False - DomWMP.URL = CHVideos(CHVideoLine) + DomWMP.URL = CHVideos(CHVideoLine) - End Sub + End Sub #End Region - Private Sub SettingsButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleSettings.Click - If FrmSettings.Visible = True Then - FrmSettings.Visible = False - BtnToggleSettings.Text = "Open Settings Menu" - Else - FrmSettings.Visible = True - BtnToggleSettings.Text = "Close Settings Menu" - End If - End Sub + Private Sub SettingsButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleSettings.Click + If FrmSettings.Visible = True Then + FrmSettings.Visible = False + BtnToggleSettings.Text = "Open Settings Menu" + Else + FrmSettings.Visible = True + BtnToggleSettings.Text = "Close Settings Menu" + End If + End Sub - Public Sub CensorshipTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CensorshipTimer.Tick + Public Sub CensorshipTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CensorshipTimer.Tick - If ssh.MiniScript = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.CensorshipTick < 6 Then Return - If chatBox.Text <> "" And ssh.CensorshipTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.CensorshipTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.CensorshipTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.CensorshipTick < 6 Then Return + If chatBox.Text <> "" And ssh.CensorshipTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.CensorshipTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.CensorshipTick < 6 Then Return - ssh.CensorshipTick -= 1 + ssh.CensorshipTick -= 1 - If ssh.CensorshipTick < 1 Then + If ssh.CensorshipTick < 1 Then - Dim CensorLineTemp As Integer = ssh.randomizer.Next(1, 101) + Dim CensorLineTemp As Integer = ssh.randomizer.Next(1, 101) - Dim CensorVideo As String + Dim CensorVideo As String - If FrmSettings.CBCensorConstant.Checked = True Then GoTo CensorConstant + If FrmSettings.CBCensorConstant.Checked = True Then GoTo CensorConstant - If CensorshipBar.Visible = True Then - CensorshipBar.Visible = False - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + If CensorshipBar.Visible = True Then + CensorshipBar.Visible = False + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then - Return - End If + If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then + Return + End If - CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOff.txt" + CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOff.txt" - Else + Else CensorConstant: - Dim CensorshipBarX As Integer - Dim CensorshipBarY As Integer - Dim CensorshipBarY2 As Integer + Dim CensorshipBarX As Integer + Dim CensorshipBarY As Integer + Dim CensorshipBarY2 As Integer - Try - CensorshipBarY2 = ssh.randomizer.Next(200, DomWMP.Height / 2) - Catch - CensorshipBarY2 = 100 - End Try + Try + CensorshipBarY2 = ssh.randomizer.Next(200, DomWMP.Height / 2) + Catch + CensorshipBarY2 = 100 + End Try - CensorshipBar.Height = CensorshipBarY2 - CensorshipBar.Width = CensorshipBarY2 * 2.6 + CensorshipBar.Height = CensorshipBarY2 + CensorshipBar.Width = CensorshipBarY2 * 2.6 - 'QnD-BUGFIX: if CensorshipBar.Width > DomWMP.Width then ArgumentOutOfRangeException - CensorshipBarX = ssh.randomizer.Next(5, If(CensorshipBar.Width > DomWMP.Width, DomWMP.Width, DomWMP.Width - CensorshipBar.Width + 1)) - CensorshipBarY = ssh.randomizer.Next(5, If(CensorshipBar.Height > DomWMP.Height, DomWMP.Height, DomWMP.Height - CensorshipBar.Height + 1)) - CensorshipBar.Location = New Point(CensorshipBarX, CensorshipBarY) + 'QnD-BUGFIX: if CensorshipBar.Width > DomWMP.Width then ArgumentOutOfRangeException + CensorshipBarX = ssh.randomizer.Next(5, If(CensorshipBar.Width > DomWMP.Width, DomWMP.Width, DomWMP.Width - CensorshipBar.Width + 1)) + CensorshipBarY = ssh.randomizer.Next(5, If(CensorshipBar.Height > DomWMP.Height, DomWMP.Height, DomWMP.Height - CensorshipBar.Height + 1)) + CensorshipBar.Location = New Point(CensorshipBarX, CensorshipBarY) - CensorshipBar.Visible = False - CensorshipBar.Visible = True - CensorshipBar.BringToFront() + CensorshipBar.Visible = False + CensorshipBar.Visible = True + CensorshipBar.BringToFront() - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorShowMin.Value, FrmSettings.NBCensorShowMax.Value + 1) + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorShowMin.Value, FrmSettings.NBCensorShowMax.Value + 1) - If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then - Return - End If + If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then + Return + End If - CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOn.txt" + CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOn.txt" - End If + End If - ' Read all lines of the given file. - Dim lines As List(Of String) = Txt2List(CensorVideo) + ' Read all lines of the given file. + Dim lines As List(Of String) = Txt2List(CensorVideo) - Dim CensorLine As Integer + Dim CensorLine As Integer - Try - lines = FilterList(lines) - If lines.Count < 1 Then Return - CensorLine = ssh.randomizer.Next(0, lines.Count) - ssh.DomTask = lines(CensorLine) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & + Try + lines = FilterList(lines) + If lines.Count < 1 Then Return + CensorLine = ssh.randomizer.Next(0, lines.Count) + ssh.DomTask = lines(CensorLine) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo, ex, "CensorshipTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line" - End Try + ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line" + End Try - TypingDelayGeneric() + TypingDelayGeneric() - End If + End If - End Sub + End Sub - Public Sub RLGLTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTimer.Tick - ' Check all Conditions before starting scripts. - If ssh.MiniScript = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Public Sub RLGLTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTimer.Tick + ' Check all Conditions before starting scripts. + If ssh.MiniScript = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.RLGLTick < 6 Then Return - If chatBox.Text <> "" And ssh.RLGLTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.RLGLTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.RLGLTick < 6 Then Return - - ' Decrement TickCounter if Game is running. - If ssh.RLGLGame = True Then ssh.RLGLTick -= 1 - - ' Run scripts only if time is over. - If ssh.RLGLTick < 1 Then - ' Swap the BooleanValue - ssh.RedLight = Not ssh.RedLight - ' Turn off TauntTimer when State is red. - If ssh.RedLight Then RLGLTauntTimer.Stop() - - ' Declare list to read - Dim tempList As List(Of String) - Dim file2read As String - - ' Read File according to state and set the next timer-tick-duration. - If ssh.RedLight Then - '################################## RED - Light ################################## - file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Red Light.txt" - tempList = Txt2List(file2read) - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBRedLightMin.Value, FrmSettings.NBRedLightMax.Value + 1) - Else - '################################## Green - Light ################################ - file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Green Light.txt" - tempList = Txt2List(file2read) - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - End If + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.RLGLTick < 6 Then Return + If chatBox.Text <> "" And ssh.RLGLTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.RLGLTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.RLGLTick < 6 Then Return - Try - tempList = FilterList(tempList) - ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid RLGL line from file: " & + ' Decrement TickCounter if Game is running. + If ssh.RLGLGame = True Then ssh.RLGLTick -= 1 + + ' Run scripts only if time is over. + If ssh.RLGLTick < 1 Then + ' Swap the BooleanValue + ssh.RedLight = Not ssh.RedLight + ' Turn off TauntTimer when State is red. + If ssh.RedLight Then RLGLTauntTimer.Stop() + + ' Declare list to read + Dim tempList As List(Of String) + Dim file2read As String + + ' Read File according to state and set the next timer-tick-duration. + If ssh.RedLight Then + '################################## RED - Light ################################## + file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Red Light.txt" + tempList = Txt2List(file2read) + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBRedLightMin.Value, FrmSettings.NBRedLightMax.Value + 1) + Else + '################################## Green - Light ################################ + file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Green Light.txt" + tempList = Txt2List(file2read) + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + End If + + Try + tempList = FilterList(tempList) + ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid RLGL line from file: " & file2read, ex, "RLGLTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line" - End Try + ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line" + End Try - TypingDelayGeneric() - End If - End Sub + TypingDelayGeneric() + End If + End Sub - Private Sub domName_Leave(sender As System.Object, e As System.EventArgs) Handles domName.Leave - My.Settings.DomName = domName.Text - End Sub - Private Sub subName_Leave(sender As System.Object, e As System.EventArgs) Handles subName.Leave - My.Settings.SubName = subName.Text - End Sub + Private Sub domName_Leave(sender As System.Object, e As System.EventArgs) Handles domName.Leave + My.Settings.DomName = domName.Text + End Sub + Private Sub subName_Leave(sender As System.Object, e As System.EventArgs) Handles subName.Leave + My.Settings.SubName = subName.Text + End Sub - Public Sub StatusUpdatePost() + Public Sub StatusUpdatePost() - ssh.UpdatingPost = True + ssh.UpdatingPost = True - If ssh.UpdateStage > 0 Then GoTo StatusUpdateBegin + If ssh.UpdateStage > 0 Then GoTo StatusUpdateBegin - ssh.StatusText = ssh.UpdateList(ssh.randomizer.Next(0, ssh.UpdateList.Count)) + ssh.StatusText = ssh.UpdateList(ssh.randomizer.Next(0, ssh.UpdateList.Count)) - For i As Integer = 0 To ssh.UpdateList.Count - 1 - Debug.Print(i & ". " & ssh.UpdateList(i)) - Next - Debug.Print("STatusText = " & ssh.StatusText) - Debug.Print("Clear stage 1") + For i As Integer = 0 To ssh.UpdateList.Count - 1 + Debug.Print(i & ". " & ssh.UpdateList(i)) + Next + Debug.Print("STatusText = " & ssh.StatusText) + Debug.Print("Clear stage 1") - ' Read all lines of the given File. - Dim lines As List(Of String) = Txt2List(ssh.StatusText) + ' Read all lines of the given File. + Dim lines As List(Of String) = Txt2List(ssh.StatusText) - For i As Integer = lines.Count - 1 To 0 Step -1 - If lines(i) = "" Or lines(i) Is Nothing Then - lines.Remove(lines(i)) - End If - Next + For i As Integer = lines.Count - 1 To 0 Step -1 + If lines(i) = "" Or lines(i) Is Nothing Then + lines.Remove(lines(i)) + End If + Next - ssh.StatusText = lines(0) - Debug.Print("HEre?") - ' Github Patch StatusText = PoundClean(StatusText) + ssh.StatusText = lines(0) + Debug.Print("HEre?") + ' Github Patch StatusText = PoundClean(StatusText) - Dim LoopBuffer As Integer = 0 - Do - LoopBuffer += 1 + Dim LoopBuffer As Integer = 0 + Do + LoopBuffer += 1 - ssh.StatusText = PoundClean(ssh.StatusText) + ssh.StatusText = PoundClean(ssh.StatusText) - If LoopBuffer > 4 Then Exit Do + If LoopBuffer > 4 Then Exit Do - Loop Until Not ssh.DomTask.Contains("#") + Loop Until Not ssh.DomTask.Contains("#") - Dim AtArray() As String = Split(ssh.StatusText) - For i As Integer = AtArray.Length - 1 To 0 Step -1 - If AtArray(i).Contains("@") Then - AtArray(i) = AtArray(i).Replace(AtArray(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray(i) = "He" Then AtArray(i) = AtArray(i).Replace("He", "She") - If AtArray(i) = "he" Then AtArray(i) = AtArray(i).Replace("he", "she") - If AtArray(i) = "Him" Then AtArray(i) = AtArray(i).Replace("Him", "Her") - If AtArray(i) = "him" Then AtArray(i) = AtArray(i).Replace("him", "her") - If AtArray(i) = "His" Then AtArray(i) = AtArray(i).Replace("His", "Her") - If AtArray(i) = "his" Then AtArray(i) = AtArray(i).Replace("his", "her") - End If - Next - ssh.StatusText = Join(AtArray) + Dim AtArray() As String = Split(ssh.StatusText) + For i As Integer = AtArray.Length - 1 To 0 Step -1 + If AtArray(i).Contains("@") Then + AtArray(i) = AtArray(i).Replace(AtArray(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray(i) = "He" Then AtArray(i) = AtArray(i).Replace("He", "She") + If AtArray(i) = "he" Then AtArray(i) = AtArray(i).Replace("he", "she") + If AtArray(i) = "Him" Then AtArray(i) = AtArray(i).Replace("Him", "Her") + If AtArray(i) = "him" Then AtArray(i) = AtArray(i).Replace("him", "her") + If AtArray(i) = "His" Then AtArray(i) = AtArray(i).Replace("His", "Her") + If AtArray(i) = "his" Then AtArray(i) = AtArray(i).Replace("his", "her") + End If + Next + ssh.StatusText = Join(AtArray) - Dim DPic As String = My.Settings.GlitterAV - DPic = "file://" & DPic - DPic = DPic.Replace("\", "/") - Debug.Print(DPic) + Dim DPic As String = My.Settings.GlitterAV + DPic = "file://" & DPic + DPic = DPic.Replace("\", "/") + Debug.Print(DPic) - Dim StatusName As String + Dim StatusName As String - Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) + Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) - StatusName = StatusUpdates.DocumentText & " " & domName.Text & "
" & Date.Today & "

" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText & "

" + StatusName = StatusUpdates.DocumentText & " " & domName.Text & "
" & Date.Today & "

" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText & "

" - 'Debug.Print(GlitterImageAV) - Debug.Print("Clear Stage 2") + 'Debug.Print(GlitterImageAV) + Debug.Print("Clear Stage 2") - Dim StatusLines1 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines1.Add(lines(i)) - Next - ssh.ContactNumber = 1 + Dim StatusLines1 As New List(Of String) + For i As Integer = 1 To lines.Count - 1 + StatusLines1.Add(lines(i)) + Next + ssh.ContactNumber = 1 - ' For i As Integer = StatusLines1.Count - 1 To 0 Step -1 - 'If StatusLines1(i) = "" Or StatusLines1(i) Is Nothing Then - 'StatusLines1.Remove(StatusLines1(i)) - 'End If - 'Next + ' For i As Integer = StatusLines1.Count - 1 To 0 Step -1 + 'If StatusLines1(i) = "" Or StatusLines1(i) Is Nothing Then + 'StatusLines1.Remove(StatusLines1(i)) + 'End If + 'Next - StatusLines1 = StatusClean(StatusLines1) + StatusLines1 = StatusClean(StatusLines1) - ssh.StatusText1 = StatusLines1(ssh.randomizer.Next(0, StatusLines1.Count)) + ssh.StatusText1 = StatusLines1(ssh.randomizer.Next(0, StatusLines1.Count)) - Dim StatusLines2 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines2.Add(lines(i)) - Next - ssh.ContactNumber = 2 + Dim StatusLines2 As New List(Of String) + For i As Integer = 1 To lines.Count - 1 + StatusLines2.Add(lines(i)) + Next + ssh.ContactNumber = 2 - ' For i As Integer = StatusLines2.Count - 1 To 0 Step -1 - 'If StatusLines2(i) = "" Or StatusLines2(i) Is Nothing Then - 'StatusLines2.Remove(StatusLines2(i)) - 'End If - 'Next + ' For i As Integer = StatusLines2.Count - 1 To 0 Step -1 + 'If StatusLines2(i) = "" Or StatusLines2(i) Is Nothing Then + 'StatusLines2.Remove(StatusLines2(i)) + 'End If + 'Next - StatusLines2 = StatusClean(StatusLines2) + StatusLines2 = StatusClean(StatusLines2) - Do - ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) - Loop Until ssh.StatusText2 <> ssh.StatusText1 + Do + ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) + Loop Until ssh.StatusText2 <> ssh.StatusText1 - Dim StatusLines3 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines3.Add(lines(i)) - Next - ssh.ContactNumber = 3 + Dim StatusLines3 As New List(Of String) + For i As Integer = 1 To lines.Count - 1 + StatusLines3.Add(lines(i)) + Next + ssh.ContactNumber = 3 - 'For i As Integer = StatusLines3.Count - 1 To 0 Step -1 - 'If StatusLines3(i) = "" Or StatusLines3(i) Is Nothing Then - 'StatusLines3.Remove(StatusLines3(i)) - 'End If - 'Next + 'For i As Integer = StatusLines3.Count - 1 To 0 Step -1 + 'If StatusLines3(i) = "" Or StatusLines3(i) Is Nothing Then + 'StatusLines3.Remove(StatusLines3(i)) + 'End If + 'Next - StatusLines3 = StatusClean(StatusLines3) + StatusLines3 = StatusClean(StatusLines3) - Do - ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) - Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 + Do + ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) + Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 - ''Debug.Print("StatusLine = " & StatusLine) + ''Debug.Print("StatusLine = " & StatusLine) - ssh.StatusText1 = ssh.StatusText1.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText2 = ssh.StatusText2.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText3 = ssh.StatusText3.Replace("#ShortName", My.Settings.GlitterSN) + ssh.StatusText1 = ssh.StatusText1.Replace("#ShortName", My.Settings.GlitterSN) + ssh.StatusText2 = ssh.StatusText2.Replace("#ShortName", My.Settings.GlitterSN) + ssh.StatusText3 = ssh.StatusText3.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText1 = ssh.StatusText1.Replace("#SubName", subName.Text) - ssh.StatusText2 = ssh.StatusText2.Replace("#SubName", subName.Text) - ssh.StatusText3 = ssh.StatusText3.Replace("#SubName", subName.Text) + ssh.StatusText1 = ssh.StatusText1.Replace("#SubName", subName.Text) + ssh.StatusText2 = ssh.StatusText2.Replace("#SubName", subName.Text) + ssh.StatusText3 = ssh.StatusText3.Replace("#SubName", subName.Text) - ssh.StatusText1 = PoundClean(ssh.StatusText1) - ssh.StatusText2 = PoundClean(ssh.StatusText2) - ssh.StatusText3 = PoundClean(ssh.StatusText3) + ssh.StatusText1 = PoundClean(ssh.StatusText1) + ssh.StatusText2 = PoundClean(ssh.StatusText2) + ssh.StatusText3 = PoundClean(ssh.StatusText3) - 'GoTo TestSkip + 'GoTo TestSkip - Dim AtArray1() As String = Split(ssh.StatusText1) - For i As Integer = AtArray1.Length - 1 To 0 Step -1 - If AtArray1(i).Contains("@") Then - AtArray1(i) = AtArray1(i).Replace(AtArray1(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray1(i) = "He" Then AtArray1(i) = AtArray1(i).Replace("He", "She") - If AtArray1(i) = "he" Then AtArray1(i) = AtArray1(i).Replace("he", "she") - If AtArray1(i) = "Him" Then AtArray1(i) = AtArray1(i).Replace("Him", "Her") - If AtArray1(i) = "him" Then AtArray1(i) = AtArray1(i).Replace("him", "her") - If AtArray1(i) = "His" Then AtArray1(i) = AtArray1(i).Replace("His", "Her") - If AtArray1(i) = "his" Then AtArray1(i) = AtArray1(i).Replace("his", "her") - End If - Next - ssh.StatusText1 = Join(AtArray1) + Dim AtArray1() As String = Split(ssh.StatusText1) + For i As Integer = AtArray1.Length - 1 To 0 Step -1 + If AtArray1(i).Contains("@") Then + AtArray1(i) = AtArray1(i).Replace(AtArray1(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray1(i) = "He" Then AtArray1(i) = AtArray1(i).Replace("He", "She") + If AtArray1(i) = "he" Then AtArray1(i) = AtArray1(i).Replace("he", "she") + If AtArray1(i) = "Him" Then AtArray1(i) = AtArray1(i).Replace("Him", "Her") + If AtArray1(i) = "him" Then AtArray1(i) = AtArray1(i).Replace("him", "her") + If AtArray1(i) = "His" Then AtArray1(i) = AtArray1(i).Replace("His", "Her") + If AtArray1(i) = "his" Then AtArray1(i) = AtArray1(i).Replace("his", "her") + End If + Next + ssh.StatusText1 = Join(AtArray1) - Dim AtArray2() As String = Split(ssh.StatusText2) - For i As Integer = AtArray2.Length - 1 To 0 Step -1 - If AtArray2(i).Contains("@") Then - AtArray2(i) = AtArray2(i).Replace(AtArray2(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray2(i) = "He" Then AtArray2(i) = AtArray2(i).Replace("He", "She") - If AtArray2(i) = "he" Then AtArray2(i) = AtArray2(i).Replace("he", "she") - If AtArray2(i) = "Him" Then AtArray2(i) = AtArray2(i).Replace("Him", "Her") - If AtArray2(i) = "him" Then AtArray2(i) = AtArray2(i).Replace("him", "her") - If AtArray2(i) = "His" Then AtArray2(i) = AtArray2(i).Replace("His", "Her") - If AtArray2(i) = "his" Then AtArray2(i) = AtArray2(i).Replace("his", "her") - End If - Next - ssh.StatusText2 = Join(AtArray2) + Dim AtArray2() As String = Split(ssh.StatusText2) + For i As Integer = AtArray2.Length - 1 To 0 Step -1 + If AtArray2(i).Contains("@") Then + AtArray2(i) = AtArray2(i).Replace(AtArray2(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray2(i) = "He" Then AtArray2(i) = AtArray2(i).Replace("He", "She") + If AtArray2(i) = "he" Then AtArray2(i) = AtArray2(i).Replace("he", "she") + If AtArray2(i) = "Him" Then AtArray2(i) = AtArray2(i).Replace("Him", "Her") + If AtArray2(i) = "him" Then AtArray2(i) = AtArray2(i).Replace("him", "her") + If AtArray2(i) = "His" Then AtArray2(i) = AtArray2(i).Replace("His", "Her") + If AtArray2(i) = "his" Then AtArray2(i) = AtArray2(i).Replace("his", "her") + End If + Next + ssh.StatusText2 = Join(AtArray2) - Dim AtArray3() As String = Split(ssh.StatusText3) - For i As Integer = AtArray3.Length - 1 To 0 Step -1 - If AtArray3(i).Contains("@") Then - AtArray3(i) = AtArray3(i).Replace(AtArray3(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray3(i) = "He" Then AtArray3(i) = AtArray(i).Replace("He", "She") - If AtArray3(i) = "he" Then AtArray3(i) = AtArray(i).Replace("he", "she") - If AtArray3(i) = "Him" Then AtArray3(i) = AtArray(i).Replace("Him", "Her") - If AtArray3(i) = "him" Then AtArray3(i) = AtArray(i).Replace("him", "her") - If AtArray3(i) = "His" Then AtArray3(i) = AtArray(i).Replace("His", "Her") - If AtArray3(i) = "his" Then AtArray3(i) = AtArray(i).Replace("his", "her") - End If - Next - ssh.StatusText3 = Join(AtArray3) + Dim AtArray3() As String = Split(ssh.StatusText3) + For i As Integer = AtArray3.Length - 1 To 0 Step -1 + If AtArray3(i).Contains("@") Then + AtArray3(i) = AtArray3(i).Replace(AtArray3(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray3(i) = "He" Then AtArray3(i) = AtArray(i).Replace("He", "She") + If AtArray3(i) = "he" Then AtArray3(i) = AtArray(i).Replace("he", "she") + If AtArray3(i) = "Him" Then AtArray3(i) = AtArray(i).Replace("Him", "Her") + If AtArray3(i) = "him" Then AtArray3(i) = AtArray(i).Replace("him", "her") + If AtArray3(i) = "His" Then AtArray3(i) = AtArray(i).Replace("His", "Her") + If AtArray3(i) = "his" Then AtArray3(i) = AtArray(i).Replace("his", "her") + End If + Next + ssh.StatusText3 = Join(AtArray3) - 'TestSkip: + 'TestSkip: - ssh.Update1 = False - ssh.Update2 = False - ssh.Update3 = False + ssh.Update1 = False + ssh.Update2 = False + ssh.Update3 = False - ssh.StatusChance1 = ssh.randomizer.Next(1, 101) - ssh.StatusChance2 = ssh.randomizer.Next(1, 101) - ssh.StatusChance3 = ssh.randomizer.Next(1, 101) + ssh.StatusChance1 = ssh.randomizer.Next(1, 101) + ssh.StatusChance2 = ssh.randomizer.Next(1, 101) + ssh.StatusChance3 = ssh.randomizer.Next(1, 101) - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - ssh.UpdateStage = 1 - Return + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + ssh.UpdateStage = 1 + Return StatusUpdateBegin: - If ssh.Update1 = True And ssh.Update2 = True And ssh.Update3 = True Then GoTo StatusUpdateEnd + If ssh.Update1 = True And ssh.Update2 = True And ssh.Update3 = True Then GoTo StatusUpdateEnd - 'ContactTick = randomizer.Next(10, 21) - 'ContactFlag = True - 'ContactTimer.Start() + 'ContactTick = randomizer.Next(10, 21) + 'ContactFlag = True + 'ContactTimer.Start() - 'Do - 'Application.DoEvents() - 'Loop Until ContactFlag = False + 'Do + 'Application.DoEvents() + 'Loop Until ContactFlag = False - 'Delay(RandomDelay) + 'Delay(RandomDelay) ReRoll: - ssh.TempVal = ssh.randomizer.Next(1, 4) - 'Debug.Print("TempVal = " & TempVal) + ssh.TempVal = ssh.randomizer.Next(1, 4) + 'Debug.Print("TempVal = " & TempVal) - If ssh.TempVal = 1 Then - If ssh.Update1 = False Then - GoTo StatusUpdate1 - Else - GoTo ReRoll + If ssh.TempVal = 1 Then + If ssh.Update1 = False Then + GoTo StatusUpdate1 + Else + GoTo ReRoll + End If End If - End If - If ssh.TempVal = 2 Then - If ssh.Update2 = False Then - GoTo StatusUpdate2 - Else - GoTo ReRoll + If ssh.TempVal = 2 Then + If ssh.Update2 = False Then + GoTo StatusUpdate2 + Else + GoTo ReRoll + End If End If - End If - If ssh.TempVal = 3 Then - If ssh.Update3 = False Then - GoTo StatusUpdate3 - Else - GoTo ReRoll + If ssh.TempVal = 3 Then + If ssh.Update3 = False Then + GoTo StatusUpdate3 + Else + GoTo ReRoll + End If End If - End If - GoTo ReRoll + GoTo ReRoll StatusUpdate1: - Dim S1Pic As String = My.Settings.GlitterAV1 - S1Pic = "file://" & S1Pic - S1Pic = S1Pic.Replace("\", "/") - Debug.Print(S1Pic) + Dim S1Pic As String = My.Settings.GlitterAV1 + S1Pic = "file://" & S1Pic + S1Pic = S1Pic.Replace("\", "/") + Debug.Print(S1Pic) - TextColor = Color2Html(My.Settings.ChatTextColor) + TextColor = Color2Html(My.Settings.ChatTextColor) - If ssh.StatusChance1 < My.Settings.Glitter1Slider * 10 And My.Settings.CBGlitter1 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter1 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText1 & "

" + If ssh.StatusChance1 < My.Settings.Glitter1Slider * 10 And My.Settings.CBGlitter1 = True Then + StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter1 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText1 & "

" - End If + End If - ssh.Update1 = True + ssh.Update1 = True - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return - 'GoTo StatusUpdateBegin + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + Return + 'GoTo StatusUpdateBegin StatusUpdate2: - Dim S2Pic As String = My.Settings.GlitterAV2 - S2Pic = "file://" & S2Pic - S2Pic = S2Pic.Replace("\", "/") - Debug.Print(S2Pic) + Dim S2Pic As String = My.Settings.GlitterAV2 + S2Pic = "file://" & S2Pic + S2Pic = S2Pic.Replace("\", "/") + Debug.Print(S2Pic) - TextColor = Color2Html(My.Settings.ChatTextColor) + TextColor = Color2Html(My.Settings.ChatTextColor) - If ssh.StatusChance2 < My.Settings.Glitter2Slider * 10 And My.Settings.CBGlitter2 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter2 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText2 & "

" + If ssh.StatusChance2 < My.Settings.Glitter2Slider * 10 And My.Settings.CBGlitter2 = True Then + StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter2 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText2 & "

" - End If + End If - ssh.Update2 = True - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return + ssh.Update2 = True + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + Return - 'GoTo StatusUpdateBegin + 'GoTo StatusUpdateBegin StatusUpdate3: - Dim S3Pic As String = My.Settings.GlitterAV3 - S3Pic = "file://" & S3Pic - S3Pic = S3Pic.Replace("\", "/") - Debug.Print(S3Pic) + Dim S3Pic As String = My.Settings.GlitterAV3 + S3Pic = "file://" & S3Pic + S3Pic = S3Pic.Replace("\", "/") + Debug.Print(S3Pic) - TextColor = Color2Html(My.Settings.ChatTextColor) + TextColor = Color2Html(My.Settings.ChatTextColor) - If ssh.StatusChance3 < My.Settings.Glitter3Slider * 10 And My.Settings.CBGlitter3 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter3 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText3 & "

" + If ssh.StatusChance3 < My.Settings.Glitter3Slider * 10 And My.Settings.CBGlitter3 = True Then + StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter3 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText3 & "

" - End If + End If - ssh.Update3 = True + ssh.Update3 = True - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return - 'GoTo StatusUpdateBegin + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + Return + 'GoTo StatusUpdateBegin StatusUpdateEnd: - ssh.UpdateStage = 0 + ssh.UpdateStage = 0 - ' Github Patch 'StatusText = "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine + ' Github Patch 'StatusText = "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine - ssh.UpdatingPost = False + ssh.UpdatingPost = False - End Sub + End Sub - Public Function StatusClean(ByVal ListClean As List(Of String)) As List(Of String) + Public Function StatusClean(ByVal ListClean As List(Of String)) As List(Of String) - ListClean.Add("### BUFFER LINE ###") - Debug.Print("ListClean.Count = " & ListClean.Count) + ListClean.Add("### BUFFER LINE ###") + Debug.Print("ListClean.Count = " & ListClean.Count) - If ssh.ContactNumber = 1 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Bratty") Then - ListClean(i) = ListClean(i).Replace("@Bratty ", "") - End If - If ListClean(i).Contains("@Contact2") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact3") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If + If ssh.ContactNumber = 1 Then + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("@Bratty") Then + ListClean(i) = ListClean(i).Replace("@Bratty ", "") + End If + If ListClean(i).Contains("@Contact2") Then + ListClean.Remove(ListClean(i)) + End If + If ListClean(i).Contains("@Contact3") Then + ListClean.Remove(ListClean(i)) + End If + Next + End If - If ssh.ContactNumber = 2 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Caring") Then - ListClean(i) = ListClean(i).Replace("@Caring ", "") - End If - If ListClean(i).Contains("@Contact1") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact3") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If + If ssh.ContactNumber = 2 Then + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("@Caring") Then + ListClean(i) = ListClean(i).Replace("@Caring ", "") + End If + If ListClean(i).Contains("@Contact1") Then + ListClean.Remove(ListClean(i)) + End If + If ListClean(i).Contains("@Contact3") Then + ListClean.Remove(ListClean(i)) + End If + Next + End If + + If ssh.ContactNumber = 3 Then + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("@Cruel") Then + ListClean(i) = ListClean(i).Replace("@Cruel ", "") + End If + If ListClean(i).Contains("@Contact1") Then + ListClean.Remove(ListClean(i)) + End If + If ListClean(i).Contains("@Contact2") Then + ListClean.Remove(ListClean(i)) + End If + Next + End If - If ssh.ContactNumber = 3 Then For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Cruel") Then - ListClean(i) = ListClean(i).Replace("@Cruel ", "") + If ListClean(i).Contains("@Angry") Then + ListClean.Remove(ListClean(i)) End If - If ListClean(i).Contains("@Contact1") Then + If ListClean(i).Contains("@Custom1") Then ListClean.Remove(ListClean(i)) End If - If ListClean(i).Contains("@Contact2") Then + If ListClean(i).Contains("@Custom2") Then ListClean.Remove(ListClean(i)) End If Next - End If - - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Angry") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Custom1") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Custom2") Then - ListClean.Remove(ListClean(i)) - End If - Next - Try - ListClean.Remove(ListClean(ListClean.Count - 1)) - Catch - If ssh.ContactNumber = 1 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 1" - If ssh.ContactNumber = 2 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 2" - If ssh.ContactNumber = 3 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 3" - End Try + Try + ListClean.Remove(ListClean(ListClean.Count - 1)) + Catch + If ssh.ContactNumber = 1 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 1" + If ssh.ContactNumber = 2 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 2" + If ssh.ContactNumber = 3 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 3" + End Try - Return ListClean + Return ListClean - End Function + End Function - Private Sub Delay(ByVal Milliseconds As Integer) - Dim Count As Integer - Milliseconds *= 1000 - Do Until Count >= Milliseconds - Count += 1 - Thread.Sleep(1) - Debug.Print(Count) - Application.DoEvents() - Loop - End Sub + Private Sub Delay(ByVal Milliseconds As Integer) + Dim Count As Integer + Milliseconds *= 1000 + Do Until Count >= Milliseconds + Count += 1 + Thread.Sleep(1) + Debug.Print(Count) + Application.DoEvents() + Loop + End Sub - Private Sub domAvatar_Click(sender As System.Object, e As System.EventArgs) Handles domAvatar.Click - If OpenFileDialog1.ShowDialog() = DialogResult.OK Then + Private Sub domAvatar_Click(sender As System.Object, e As System.EventArgs) Handles domAvatar.Click + If OpenFileDialog1.ShowDialog() = DialogResult.OK Then - Try - domAvatar.Image.Dispose() - Catch - End Try - domAvatar.Image = Nothing - GC.Collect() + Try + domAvatar.Image.Dispose() + Catch + End Try + domAvatar.Image = Nothing + GC.Collect() - domAvatar.Image = Image.FromFile(OpenFileDialog1.FileName) - My.Settings.DomAvatarSave = OpenFileDialog1.FileName - End If - End Sub + domAvatar.Image = Image.FromFile(OpenFileDialog1.FileName) + My.Settings.DomAvatarSave = OpenFileDialog1.FileName + End If + End Sub - Private Sub UpdatesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdatesTimer.Tick + Private Sub UpdatesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdatesTimer.Tick - 'Debug.Print("updates tick = " & UpdatesTick) + 'Debug.Print("updates tick = " & UpdatesTick) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If My.Settings.CBGlitterFeed = True And ssh.UpdatingPost = False Then + If My.Settings.CBGlitterFeed = True And ssh.UpdatingPost = False Then - ssh.UpdatesTick -= 1 + ssh.UpdatesTick -= 1 - If ssh.UpdatesTick < 1 Then + If ssh.UpdatesTick < 1 Then - ssh.UpdatesTick = 1080 / My.Settings.GlitterDSlider + ssh.UpdatesTick = 1080 / My.Settings.GlitterDSlider - ssh.UpdateList.Clear() + ssh.UpdateList.Clear() - If My.Settings.CBTease = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Tease\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If My.Settings.CBTease = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Tease\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If - If My.Settings.CBEgotist = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Egotist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If My.Settings.CBEgotist = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Egotist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If - If My.Settings.CBTrivia = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Trivia\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If My.Settings.CBTrivia = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Trivia\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If - If My.Settings.CBDaily = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Daily\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If My.Settings.CBDaily = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Daily\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If - If My.Settings.CBCustom1 = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 1\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If My.Settings.CBCustom1 = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 1\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If - If My.Settings.CBCustom2 = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 2\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If My.Settings.CBCustom2 = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 2\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If - If ssh.UpdateList.Count < 1 Then - My.Settings.CBGlitterFeed = False - 'MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected." & Environment.NewLine _ + If ssh.UpdateList.Count < 1 Then + My.Settings.CBGlitterFeed = False + 'MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected." & Environment.NewLine _ & Environment.NewLine & "Glitter feed has been automatically disabled.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + Return + End If - StatusUpdatePost() + StatusUpdatePost() + + End If End If + End Sub - End If - End Sub + 'TODO-Next: Move to proper Region + Private Sub MediaButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleMediaPanel.Click - 'TODO-Next: Move to proper Region - Private Sub MediaButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleMediaPanel.Click + If SplitContainer1.Panel2.Height < 68 Then Return - If SplitContainer1.Panel2.Height < 68 Then Return + If PNLMediaBar.Visible = True Then + PNLMediaBar.Visible = False + BtnToggleMediaPanel.Text = "Show Media Panel" + Else - If PNLMediaBar.Visible = True Then - PNLMediaBar.Visible = False - BtnToggleMediaPanel.Text = "Show Media Panel" - Else + PNLMediaBar.Visible = True + BtnToggleMediaPanel.Text = "Hide Media Panel" + End If - PNLMediaBar.Visible = True - BtnToggleMediaPanel.Text = "Hide Media Panel" - End If + ScrollChatDown() - ScrollChatDown() + End Sub - End Sub + Public Function SysKeywordClean(ByVal StringClean As String) As String + + If StringClean.Contains("@RandomText(") Then - Public Function SysKeywordClean(ByVal StringClean As String) As String - If StringClean.Contains("@RandomText(") Then + Dim RandArray As String() = StringClean.Split(")") + For i As Integer = 0 To RandArray.Count - 1 - Dim RandArray As String() = StringClean.Split(")") + If RandArray(i).Contains("@RandomText(") Then - For i As Integer = 0 To RandArray.Count - 1 + RandArray(i) = RandArray(i) & ")" - If RandArray(i).Contains("@RandomText(") Then + Dim TempText As String = GetParentheses(RandArray(i), "@RandomText(") + Dim OriginalRand As String = TempText - RandArray(i) = RandArray(i) & ")" + If TempText.Contains(",") Then + TempText = FixCommas(TempText) + Dim TextArray As String() = TempText.Split(",") + TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) + End If - Dim TempText As String = GetParentheses(RandArray(i), "@RandomText(") - Dim OriginalRand As String = TempText + StringClean = StringClean.Replace("@RandomText(" & OriginalRand & ")", TempText) - If TempText.Contains(",") Then - TempText = FixCommas(TempText) - Dim TextArray As String() = TempText.Split(",") - TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) End If - StringClean = StringClean.Replace("@RandomText(" & OriginalRand & ")", TempText) + Next - End If + End If - Next + If StringClean.Contains("@RT(") Then + Dim RandArray As String() = StringClean.Split(")") + For i As Integer = 0 To RandArray.Count - 1 + If RandArray(i).Contains("@RT(") Then + RandArray(i) = RandArray(i) & ")" + Dim TempText As String = GetParentheses(RandArray(i), "@RT(") + Dim OriginalRand As String = TempText + If TempText.Contains(",") Then + TempText = FixCommas(TempText) + Dim TextArray As String() = TempText.Split(",") + TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) + End If + StringClean = StringClean.Replace("@RT(" & OriginalRand & ")", TempText) + End If + Next + End If - End If - If StringClean.Contains("@RT(") Then - Dim RandArray As String() = StringClean.Split(")") - For i As Integer = 0 To RandArray.Count - 1 - If RandArray(i).Contains("@RT(") Then - RandArray(i) = RandArray(i) & ")" - Dim TempText As String = GetParentheses(RandArray(i), "@RT(") - Dim OriginalRand As String = TempText - If TempText.Contains(",") Then - TempText = FixCommas(TempText) - Dim TextArray As String() = TempText.Split(",") - TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) - End If - StringClean = StringClean.Replace("@RT(" & OriginalRand & ")", TempText) - End If - Next - End If + If FrmSettings.CBCockToClit.Checked = True Then + StringClean = StringClean.Replace("#Cock", "#CockToClit") + StringClean = StringClean.Replace("stroking", "#StrokingToRubbing") + End If + If FrmSettings.CBBallsToPussy.Checked = True Then + StringClean = StringClean.Replace("those #Balls", "that #Balls") + StringClean = StringClean.Replace("#Balls", "#BallsToPussy") + End If - If FrmSettings.CBCockToClit.Checked = True Then - StringClean = StringClean.Replace("#Cock", "#CockToClit") - StringClean = StringClean.Replace("stroking", "#StrokingToRubbing") - End If + StringClean = StringClean.Replace("#SubName", subName.Text) - If FrmSettings.CBBallsToPussy.Checked = True Then - StringClean = StringClean.Replace("those #Balls", "that #Balls") - StringClean = StringClean.Replace("#Balls", "#BallsToPussy") - End If + StringClean = StringClean.Replace("#DomName", domName.Text) - StringClean = StringClean.Replace("#SubName", subName.Text) + StringClean = StringClean.Replace("#DomHonorific", FrmSettings.TBHonorific.Text) - StringClean = StringClean.Replace("#DomName", domName.Text) + StringClean = StringClean.Replace("#DomAge", FrmSettings.domageNumBox.Value) - StringClean = StringClean.Replace("#DomHonorific", FrmSettings.TBHonorific.Text) + StringClean = StringClean.Replace("#DomLevel", FrmSettings.domlevelNumBox.Value) - StringClean = StringClean.Replace("#DomAge", FrmSettings.domageNumBox.Value) + StringClean = StringClean.Replace("#DomApathy", FrmSettings.NBEmpathy.Value) - StringClean = StringClean.Replace("#DomLevel", FrmSettings.domlevelNumBox.Value) + StringClean = StringClean.Replace("#DomHair", FrmSettings.TBDomHairColor.Text) - StringClean = StringClean.Replace("#DomApathy", FrmSettings.NBEmpathy.Value) + StringClean = StringClean.Replace("#DomHairLength", FrmSettings.domhairlengthComboBox.Text) - StringClean = StringClean.Replace("#DomHair", FrmSettings.TBDomHairColor.Text) + StringClean = StringClean.Replace("#DomEyes", FrmSettings.TBDomEyeColor.Text) - StringClean = StringClean.Replace("#DomHairLength", FrmSettings.domhairlengthComboBox.Text) + StringClean = StringClean.Replace("#DomCup", FrmSettings.boobComboBox.Text) - StringClean = StringClean.Replace("#DomEyes", FrmSettings.TBDomEyeColor.Text) + StringClean = StringClean.Replace("#DomMoodMin", FrmSettings.NBDomMoodMin.Value) - StringClean = StringClean.Replace("#DomCup", FrmSettings.boobComboBox.Text) + StringClean = StringClean.Replace("#DomMoodMax", FrmSettings.NBDomMoodMax.Value) - StringClean = StringClean.Replace("#DomMoodMin", FrmSettings.NBDomMoodMin.Value) + StringClean = StringClean.Replace("#DomMood", ssh.DommeMood) - StringClean = StringClean.Replace("#DomMoodMax", FrmSettings.NBDomMoodMax.Value) + StringClean = StringClean.Replace("#DomAvgCockMin", FrmSettings.NBAvgCockMin.Value) - StringClean = StringClean.Replace("#DomMood", ssh.DommeMood) + StringClean = StringClean.Replace("#DomAvgCockMax", FrmSettings.NBAvgCockMax.Value) - StringClean = StringClean.Replace("#DomAvgCockMin", FrmSettings.NBAvgCockMin.Value) + StringClean = StringClean.Replace("#DomSmallCockMax", FrmSettings.NBAvgCockMin.Value - 1) - StringClean = StringClean.Replace("#DomAvgCockMax", FrmSettings.NBAvgCockMax.Value) + StringClean = StringClean.Replace("#DomLargeCockMin", FrmSettings.NBAvgCockMax.Value + 1) - StringClean = StringClean.Replace("#DomSmallCockMax", FrmSettings.NBAvgCockMin.Value - 1) + StringClean = StringClean.Replace("#DomSelfAgeMin", FrmSettings.NBSelfAgeMin.Value) - StringClean = StringClean.Replace("#DomLargeCockMin", FrmSettings.NBAvgCockMax.Value + 1) + StringClean = StringClean.Replace("#DomSelfAgeMax", FrmSettings.NBSelfAgeMax.Value) - StringClean = StringClean.Replace("#DomSelfAgeMin", FrmSettings.NBSelfAgeMin.Value) + StringClean = StringClean.Replace("#DomSubAgeMin", FrmSettings.NBSubAgeMin.Value) - StringClean = StringClean.Replace("#DomSelfAgeMax", FrmSettings.NBSelfAgeMax.Value) + StringClean = StringClean.Replace("#DomSubAgeMax", FrmSettings.NBSubAgeMax.Value) - StringClean = StringClean.Replace("#DomSubAgeMin", FrmSettings.NBSubAgeMin.Value) + StringClean = StringClean.Replace("#DomOrgasmRate", LCase(FrmSettings.alloworgasmComboBox.Text).Replace("allows", "allow")) - StringClean = StringClean.Replace("#DomSubAgeMax", FrmSettings.NBSubAgeMax.Value) + StringClean = StringClean.Replace("#DomRuinRate", LCase(FrmSettings.ruinorgasmComboBox.Text).Replace("ruins", "ruin")) - StringClean = StringClean.Replace("#DomOrgasmRate", LCase(FrmSettings.alloworgasmComboBox.Text).Replace("allows", "allow")) + StringClean = StringClean.Replace("#SubAge", FrmSettings.subAgeNumBox.Value) - StringClean = StringClean.Replace("#DomRuinRate", LCase(FrmSettings.ruinorgasmComboBox.Text).Replace("ruins", "ruin")) + StringClean = StringClean.Replace("#SubBirthdayMonth", FrmSettings.NBBirthdayMonth.Value) - StringClean = StringClean.Replace("#SubAge", FrmSettings.subAgeNumBox.Value) + StringClean = StringClean.Replace("#SubBirthdayDay", FrmSettings.NBBirthdayDay.Value) - StringClean = StringClean.Replace("#SubBirthdayMonth", FrmSettings.NBBirthdayMonth.Value) + StringClean = StringClean.Replace("#DomBirthdayMonth", FrmSettings.NBDomBirthdayMonth.Value) - StringClean = StringClean.Replace("#SubBirthdayDay", FrmSettings.NBBirthdayDay.Value) + StringClean = StringClean.Replace("#DomBirthdayDay", FrmSettings.NBDomBirthdayDay.Value) - StringClean = StringClean.Replace("#DomBirthdayMonth", FrmSettings.NBDomBirthdayMonth.Value) + StringClean = StringClean.Replace("#SubHair", FrmSettings.TBSubHairColor.Text) - StringClean = StringClean.Replace("#DomBirthdayDay", FrmSettings.NBDomBirthdayDay.Value) + StringClean = StringClean.Replace("#SubEyes", FrmSettings.TBSubEyeColor.Text) - StringClean = StringClean.Replace("#SubHair", FrmSettings.TBSubHairColor.Text) + StringClean = StringClean.Replace("#SubCockSize", FrmSettings.CockSizeNumBox.Value) - StringClean = StringClean.Replace("#SubEyes", FrmSettings.TBSubEyeColor.Text) + StringClean = StringClean.Replace("#SubWritingTaskMin", FrmSettings.NBWritingTaskMin.Value) - StringClean = StringClean.Replace("#SubCockSize", FrmSettings.CockSizeNumBox.Value) + StringClean = StringClean.Replace("#SubWritingTaskMax", FrmSettings.NBWritingTaskMax.Value) - StringClean = StringClean.Replace("#SubWritingTaskMin", FrmSettings.NBWritingTaskMin.Value) + ' StringClean = StringClean.Replace("#SubWritingTaskRAND", randomizer.Next(NBWritingTaskMin.Value / 10, (NBWritingTaskMax.Value / 10) + 1)) * 10 - StringClean = StringClean.Replace("#SubWritingTaskMax", FrmSettings.NBWritingTaskMax.Value) + StringClean = StringClean.Replace("#ShortName", My.Settings.GlitterSN) - ' StringClean = StringClean.Replace("#SubWritingTaskRAND", randomizer.Next(NBWritingTaskMin.Value / 10, (NBWritingTaskMax.Value / 10) + 1)) * 10 + StringClean = StringClean.Replace("#GlitterContact1", My.Settings.Glitter1) + StringClean = StringClean.Replace("#Contact1", My.Settings.Glitter1) + StringClean = StringClean.Replace("#GlitterContact2", My.Settings.Glitter2) + StringClean = StringClean.Replace("#Contact2", My.Settings.Glitter2) + StringClean = StringClean.Replace("#GlitterContact3", My.Settings.Glitter3) + StringClean = StringClean.Replace("#Contact3", My.Settings.Glitter3) - StringClean = StringClean.Replace("#ShortName", My.Settings.GlitterSN) + StringClean = StringClean.Replace("#CBTCockCount", ssh.CBTCockCount) + StringClean = StringClean.Replace("#CBTBallsCount", ssh.CBTBallsCount) - StringClean = StringClean.Replace("#GlitterContact1", My.Settings.Glitter1) - StringClean = StringClean.Replace("#Contact1", My.Settings.Glitter1) - StringClean = StringClean.Replace("#GlitterContact2", My.Settings.Glitter2) - StringClean = StringClean.Replace("#Contact2", My.Settings.Glitter2) - StringClean = StringClean.Replace("#GlitterContact3", My.Settings.Glitter3) - StringClean = StringClean.Replace("#Contact3", My.Settings.Glitter3) + If My.Settings.OrgasmsLocked = True Then + StringClean = StringClean.Replace("#OrgasmLockDate", My.Settings.OrgasmLockDate.Date.ToString()) + Else + StringClean = StringClean.Replace("#OrgasmLockDate", "later") + End If - StringClean = StringClean.Replace("#CBTCockCount", ssh.CBTCockCount) - StringClean = StringClean.Replace("#CBTBallsCount", ssh.CBTBallsCount) + If StringClean.Contains("#RandomRound100(") Then - If My.Settings.OrgasmsLocked = True Then - StringClean = StringClean.Replace("#OrgasmLockDate", My.Settings.OrgasmLockDate.Date.ToString()) - Else - StringClean = StringClean.Replace("#OrgasmLockDate", "later") - End If + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound100(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") + + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + If RandInt >= 100 Then RandInt = 100 * Math.Round(RandInt / 100) + StringClean = StringClean.Replace("#RandomRound100(" & OriginalFlag & ")", RandInt) - If StringClean.Contains("#RandomRound100(") Then + End If - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound100(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") + If StringClean.Contains("#RandomRound10(") Then - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - If RandInt >= 100 Then RandInt = 100 * Math.Round(RandInt / 100) - StringClean = StringClean.Replace("#RandomRound100(" & OriginalFlag & ")", RandInt) - End If + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound10(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") - If StringClean.Contains("#RandomRound10(") Then + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + If RandInt >= 10 Then RandInt = 10 * Math.Round(RandInt / 10) + StringClean = StringClean.Replace("#RandomRound10(" & OriginalFlag & ")", RandInt) + End If - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound10(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - If RandInt >= 10 Then RandInt = 10 * Math.Round(RandInt / 10) - StringClean = StringClean.Replace("#RandomRound10(" & OriginalFlag & ")", RandInt) + If StringClean.Contains("#RandomRound5(") Then - End If + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound5(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") - If StringClean.Contains("#RandomRound5(") Then + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + If RandInt >= 5 Then RandInt = 5 * Math.Round(RandInt / 5) + StringClean = StringClean.Replace("#RandomRound5(" & OriginalFlag & ")", RandInt) + End If - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound5(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - If RandInt >= 5 Then RandInt = 5 * Math.Round(RandInt / 5) - StringClean = StringClean.Replace("#RandomRound5(" & OriginalFlag & ")", RandInt) + If StringClean.Contains("#Random(") Then - End If + Dim RandomFlag As String = GetParentheses(StringClean, "#Random(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + StringClean = StringClean.Replace("#Random(" & OriginalFlag & ")", RandInt) - If StringClean.Contains("#Random(") Then + End If - Dim RandomFlag As String = GetParentheses(StringClean, "#Random(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") + If StringClean.Contains("#DateDifference(") Then - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - StringClean = StringClean.Replace("#Random(" & OriginalFlag & ")", RandInt) + Dim DateFlag As String = GetParentheses(StringClean, "#DateDifference(") + Dim OriginalFlag As String = DateFlag + DateFlag = FixCommas(DateFlag) + Dim DateArray() As String = DateFlag.Split(",") - End If + Dim DDiff As Integer - If StringClean.Contains("#DateDifference(") Then + If UCase(DateArray(1)).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) * 7 + If UCase(DateArray(1)).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateArray(0)), Now) - Dim DateFlag As String = GetParentheses(StringClean, "#DateDifference(") - Dim OriginalFlag As String = DateFlag - DateFlag = FixCommas(DateFlag) - Dim DateArray() As String = DateFlag.Split(",") + StringClean = StringClean.Replace("#DateDifference(" & OriginalFlag & ")", DDiff) - Dim DDiff As Integer + End If - If UCase(DateArray(1)).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) * 7 - If UCase(DateArray(1)).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateArray(0)), Now) - StringClean = StringClean.Replace("#DateDifference(" & OriginalFlag & ")", DDiff) - End If + Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) + If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox3.Text + If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox4.Text + If PetNameVal = 3 Then ssh.PetName = FrmSettings.petnameBox5.Text + If PetNameVal = 4 Then ssh.PetName = FrmSettings.petnameBox6.Text + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + PetNameVal = ssh.randomizer.Next(1, 3) + If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox7.Text + If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox8.Text + End If - Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) - If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox3.Text - If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox4.Text - If PetNameVal = 3 Then ssh.PetName = FrmSettings.petnameBox5.Text - If PetNameVal = 4 Then ssh.PetName = FrmSettings.petnameBox6.Text + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + PetNameVal = ssh.randomizer.Next(1, 3) + If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox1.Text + If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox2.Text + End If - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - PetNameVal = ssh.randomizer.Next(1, 3) - If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox7.Text - If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox8.Text - End If + StringClean = StringClean.Replace("#PetName", ssh.PetName) - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - PetNameVal = ssh.randomizer.Next(1, 3) - If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox1.Text - If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox2.Text - End If + ' If Hour(Date.Now) < 11 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "this morning") + If Hour(Date.Now) > 3 And Hour(Date.Now) < 12 Then StringClean = StringClean.Replace("#GreetSub", "#GoodMorningSub") + 'If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "today") + If Hour(Date.Now) > 11 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GreetSub", "#GoodAfternoonSub") + 'If Hour(Date.Now) > 17 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "tonight") + If Hour(Date.Now) > 17 Or Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GreetSub", "#GoodEveningSub") - StringClean = StringClean.Replace("#PetName", ssh.PetName) + If Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") + If Hour(Date.Now) > 3 And Hour(Date.Now) < 11 Then StringClean = StringClean.Replace("#GeneralTime", "this morning") + If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GeneralTime", "today") + If Hour(Date.Now) > 17 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") - ' If Hour(Date.Now) < 11 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "this morning") - If Hour(Date.Now) > 3 And Hour(Date.Now) < 12 Then StringClean = StringClean.Replace("#GreetSub", "#GoodMorningSub") - 'If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "today") - If Hour(Date.Now) > 11 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GreetSub", "#GoodAfternoonSub") - 'If Hour(Date.Now) > 17 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "tonight") - If Hour(Date.Now) > 17 Or Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GreetSub", "#GoodEveningSub") + If ssh.AssImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Ass") + If ssh.BoobImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Boobs") + If StringClean.Contains("#RANDNumberLow") Then + ' ### Number between 3-5 , 5-25 + ssh.TempVal = ssh.randomizer.Next(1, 6) * FrmSettings.domlevelNumBox.Value + If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) + If ssh.TempVal < 3 Then ssh.TempVal = 3 + StringClean = StringClean.Replace("#RNDNumberLow", ssh.TempVal) + End If - If Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") - If Hour(Date.Now) > 3 And Hour(Date.Now) < 11 Then StringClean = StringClean.Replace("#GeneralTime", "this morning") - If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GeneralTime", "today") - If Hour(Date.Now) > 17 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") - If ssh.AssImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Ass") - If ssh.BoobImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Boobs") + If StringClean.Contains("#RANDNumberHigh") Then + ' ### Number between 5-25 , 25-100 + ssh.TempVal = ssh.randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value + If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) + StringClean = StringClean.Replace("#RNDNumberHigh", ssh.TempVal) + End If - If StringClean.Contains("#RANDNumberLow") Then - ' ### Number between 3-5 , 5-25 - ssh.TempVal = ssh.randomizer.Next(1, 6) * FrmSettings.domlevelNumBox.Value - If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) - If ssh.TempVal < 3 Then ssh.TempVal = 3 - StringClean = StringClean.Replace("#RNDNumberLow", ssh.TempVal) - End If + If StringClean.Contains("#RANDNumber") Then + ' ### Number between 3-10 , 5-50 + ssh.TempVal = ssh.randomizer.Next(1, 11) * FrmSettings.domlevelNumBox.Value + If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) + If ssh.TempVal < 3 Then ssh.TempVal = 3 + StringClean = StringClean.Replace("#RNDNumber", ssh.TempVal) + End If - If StringClean.Contains("#RANDNumberHigh") Then - ' ### Number between 5-25 , 25-100 - ssh.TempVal = ssh.randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value - If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) - StringClean = StringClean.Replace("#RNDNumberHigh", ssh.TempVal) - End If - If StringClean.Contains("#RANDNumber") Then - ' ### Number between 3-10 , 5-50 - ssh.TempVal = ssh.randomizer.Next(1, 11) * FrmSettings.domlevelNumBox.Value - If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) - If ssh.TempVal < 3 Then ssh.TempVal = 3 - StringClean = StringClean.Replace("#RNDNumber", ssh.TempVal) - End If + StringClean = StringClean.Replace("#RP_ChosenCase", FrmCardList.RiskyPickNumber) + StringClean = StringClean.Replace("#RP_RespondCase", FrmCardList.RiskyResponse) + 'StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.RiskyCase) + If FrmCardList.RiskyPickCount = 0 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick1.Text) + If FrmCardList.RiskyPickCount = 1 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick2.Text) + If FrmCardList.RiskyPickCount = 2 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick3.Text) + If FrmCardList.RiskyPickCount = 3 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick4.Text) + If FrmCardList.RiskyPickCount = 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick5.Text) + If FrmCardList.RiskyPickCount > 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick6.Text) + StringClean = StringClean.Replace("#RP_EdgeOffer", FrmCardList.RiskyEdgeOffer) + StringClean = StringClean.Replace("#RP_TokenOffer", FrmCardList.RiskyTokenOffer) + StringClean = StringClean.Replace("#RP_EdgesOwed", FrmCardList.EdgesOwed) + StringClean = StringClean.Replace("#RP_TokensPaid", FrmCardList.TokensPaid) + StringClean = StringClean.Replace("#BronzeTokens", ssh.BronzeTokens) + StringClean = StringClean.Replace("#SilverTokens", ssh.SilverTokens) + StringClean = StringClean.Replace("#GoldTokens", ssh.GoldTokens) + StringClean = StringClean.Replace("#SessionEdges", ssh.SessionEdges) + StringClean = StringClean.Replace("#SessionCBTCock", ssh.CBTCockCount) + StringClean = StringClean.Replace("#SessionCBTBalls", ssh.CBTBallsCount) - StringClean = StringClean.Replace("#RP_ChosenCase", FrmCardList.RiskyPickNumber) - StringClean = StringClean.Replace("#RP_RespondCase", FrmCardList.RiskyResponse) - 'StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.RiskyCase) - If FrmCardList.RiskyPickCount = 0 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick1.Text) - If FrmCardList.RiskyPickCount = 1 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick2.Text) - If FrmCardList.RiskyPickCount = 2 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick3.Text) - If FrmCardList.RiskyPickCount = 3 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick4.Text) - If FrmCardList.RiskyPickCount = 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick5.Text) - If FrmCardList.RiskyPickCount > 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick6.Text) - StringClean = StringClean.Replace("#RP_EdgeOffer", FrmCardList.RiskyEdgeOffer) - StringClean = StringClean.Replace("#RP_TokenOffer", FrmCardList.RiskyTokenOffer) - StringClean = StringClean.Replace("#RP_EdgesOwed", FrmCardList.EdgesOwed) - StringClean = StringClean.Replace("#RP_TokensPaid", FrmCardList.TokensPaid) - - StringClean = StringClean.Replace("#BronzeTokens", ssh.BronzeTokens) - StringClean = StringClean.Replace("#SilverTokens", ssh.SilverTokens) - StringClean = StringClean.Replace("#GoldTokens", ssh.GoldTokens) - - StringClean = StringClean.Replace("#SessionEdges", ssh.SessionEdges) - StringClean = StringClean.Replace("#SessionCBTCock", ssh.CBTCockCount) - StringClean = StringClean.Replace("#SessionCBTBalls", ssh.CBTBallsCount) - - 'StringClean = StringClean.Replace("#Sys_SubLeftEarly", My.Settings.Sys_SubLeftEarly) - 'StringClean = StringClean.Replace("#Sys_SubLeftEarlyTotal", My.Settings.Sys_SubLeftEarlyTotal) - - StringClean = StringClean.Replace("#SlideshowCount", ssh.CustomSlideshow.Count - 1) - StringClean = StringClean.Replace("#SlideshowCurrent", ssh.CustomSlideshow.Index) - StringClean = StringClean.Replace("#SlideshowRemaining", (ssh.CustomSlideshow.Count - 1) - ssh.CustomSlideshow.Index) - - StringClean = StringClean.Replace("#CurrentTime", Format(Now, "h:mm")) - StringClean = StringClean.Replace("#CurrentDay", Format(Now, "dddd")) - StringClean = StringClean.Replace("#CurrentMonth", Format(Now, "MMMMM")) - StringClean = StringClean.Replace("#CurrentYear", Format(Now, "yyyy")) - StringClean = StringClean.Replace("#CurrentDate", FormatDateTime(Date.Now, DateFormat.ShortDate)) - ' StringClean = StringClean.Replace("#CurrentDate", Format(Now, "MM/dd/yyyy")) - - ' - If StringClean.Contains("#Var[") Then - - 'Dim VarSplit As String() = StringClean.Split("]") - 'For i As Integer = 0 To VarSplit.Count - 1 - 'If VarSplit(i).Contains("#Var[") Then - 'Dim VarString As String = VarSplit(i) & "]" - 'Dim VarFlag As String = GetParentheses(VarString, "#Var[") - 'Debug.Print("VarFlag = " & VarFlag) - 'Dim VarFlag2 As String = GetVariable(VarFlag) - 'Debug.Print("VarFlag2 = " & VarFlag2) - ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - 'Debug.Print("Try this shit #Var[" & VarFlag & "]") - 'StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - 'End If - ' Next + 'StringClean = StringClean.Replace("#Sys_SubLeftEarly", My.Settings.Sys_SubLeftEarly) + 'StringClean = StringClean.Replace("#Sys_SubLeftEarlyTotal", My.Settings.Sys_SubLeftEarlyTotal) - StringClean = StringClean.Replace("#Var[", "@ShowVar[") + StringClean = StringClean.Replace("#SlideshowCount", ssh.CustomSlideshow.Count - 1) + StringClean = StringClean.Replace("#SlideshowCurrent", ssh.CustomSlideshow.Index) + StringClean = StringClean.Replace("#SlideshowRemaining", (ssh.CustomSlideshow.Count - 1) - ssh.CustomSlideshow.Index) - End If + StringClean = StringClean.Replace("#CurrentTime", Format(Now, "h:mm")) + StringClean = StringClean.Replace("#CurrentDay", Format(Now, "dddd")) + StringClean = StringClean.Replace("#CurrentMonth", Format(Now, "MMMMM")) + StringClean = StringClean.Replace("#CurrentYear", Format(Now, "yyyy")) + StringClean = StringClean.Replace("#CurrentDate", FormatDateTime(Date.Now, DateFormat.ShortDate)) + ' StringClean = StringClean.Replace("#CurrentDate", Format(Now, "MM/dd/yyyy")) - 'BUG: #RandomSlideshowCategory does not work! The Variable RandomSlideshowCategory is never set. - If StringClean.Contains("#RandomSlideshowCategory") Then StringClean = StringClean.Replace("#RandomSlideshowCategory", ssh.RandomSlideshowCategory) + ' + If StringClean.Contains("#Var[") Then + + 'Dim VarSplit As String() = StringClean.Split("]") + 'For i As Integer = 0 To VarSplit.Count - 1 + 'If VarSplit(i).Contains("#Var[") Then + 'Dim VarString As String = VarSplit(i) & "]" + 'Dim VarFlag As String = GetParentheses(VarString, "#Var[") + 'Debug.Print("VarFlag = " & VarFlag) + 'Dim VarFlag2 As String = GetVariable(VarFlag) + 'Debug.Print("VarFlag2 = " & VarFlag2) + ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + 'Debug.Print("Try this shit #Var[" & VarFlag & "]") + 'StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + 'End If + ' Next - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' ImageCount - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If StringClean.Contains("#LocalImageCount") Then - Dim temp As Dictionary(Of ImageGenre, ImageDataContainer) = GetImageData() - Dim counter As Integer = 0 + StringClean = StringClean.Replace("#Var[", "@ShowVar[") - For Each genre As ImageGenre In temp.Keys - counter += temp(genre).CountImages(ImageSourceType.Local) - Next + End If - StringClean = StringClean.Replace("#LocalImageCount", counter) - End If + 'BUG: #RandomSlideshowCategory does not work! The Variable RandomSlideshowCategory is never set. + If StringClean.Contains("#RandomSlideshowCategory") Then StringClean = StringClean.Replace("#RandomSlideshowCategory", ssh.RandomSlideshowCategory) - If StringClean.Contains("#BlogImageCount") Then - StringClean = StringClean.Replace("#BlogImageCount", GetImageData(ImageGenre.Blog).CountImages()) - End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' ImageCount + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If StringClean.Contains("#LocalImageCount") Then + Dim temp As Dictionary(Of ImageGenre, ImageDataContainer) = GetImageData() + Dim counter As Integer = 0 - If StringClean.Contains("#ButtImageCount") Then - StringClean = StringClean.Replace("#ButtImageCount", GetImageData(ImageGenre.Butt).CountImages()) - End If + For Each genre As ImageGenre In temp.Keys + counter += temp(genre).CountImages(ImageSourceType.Local) + Next - If StringClean.Contains("#ButtsImageCount") Then - StringClean = StringClean.Replace("#ButtsImageCount", GetImageData(ImageGenre.Butt).CountImages()) - End If + StringClean = StringClean.Replace("#LocalImageCount", counter) + End If - If StringClean.Contains("#BoobImageCount") Then - StringClean = StringClean.Replace("#BoobImageCount", GetImageData(ImageGenre.Boobs).CountImages()) - End If + If StringClean.Contains("#BlogImageCount") Then + StringClean = StringClean.Replace("#BlogImageCount", GetImageData(ImageGenre.Blog).CountImages()) + End If - If StringClean.Contains("#BoobsImageCount") Then - StringClean = StringClean.Replace("#BoobsImageCount", GetImageData(ImageGenre.Boobs).CountImages()) - End If + If StringClean.Contains("#ButtImageCount") Then + StringClean = StringClean.Replace("#ButtImageCount", GetImageData(ImageGenre.Butt).CountImages()) + End If - If StringClean.Contains("#HardcoreImageCount") Then - StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) - End If + If StringClean.Contains("#ButtsImageCount") Then + StringClean = StringClean.Replace("#ButtsImageCount", GetImageData(ImageGenre.Butt).CountImages()) + End If - If StringClean.Contains("#HardcoreImageCount") Then - StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) - End If + If StringClean.Contains("#BoobImageCount") Then + StringClean = StringClean.Replace("#BoobImageCount", GetImageData(ImageGenre.Boobs).CountImages()) + End If - If StringClean.Contains("#SoftcoreImageCount") Then - StringClean = StringClean.Replace("#SoftcoreImageCount", GetImageData(ImageGenre.Softcore).CountImages()) - End If + If StringClean.Contains("#BoobsImageCount") Then + StringClean = StringClean.Replace("#BoobsImageCount", GetImageData(ImageGenre.Boobs).CountImages()) + End If - If StringClean.Contains("#LesbianImageCount") Then - StringClean = StringClean.Replace("#LesbianImageCount", GetImageData(ImageGenre.Lesbian).CountImages()) - End If + If StringClean.Contains("#HardcoreImageCount") Then + StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) + End If - If StringClean.Contains("#BlowjobImageCount") Then - StringClean = StringClean.Replace("#BlowjobImageCount", GetImageData(ImageGenre.Blowjob).CountImages()) - End If + If StringClean.Contains("#HardcoreImageCount") Then + StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) + End If - If StringClean.Contains("#FemdomImageCount") Then - StringClean = StringClean.Replace("#FemdomImageCount", GetImageData(ImageGenre.Femdom).CountImages()) - End If + If StringClean.Contains("#SoftcoreImageCount") Then + StringClean = StringClean.Replace("#SoftcoreImageCount", GetImageData(ImageGenre.Softcore).CountImages()) + End If - If StringClean.Contains("#LezdomImageCount") Then - StringClean = StringClean.Replace("#LezdomImageCount", GetImageData(ImageGenre.Lezdom).CountImages()) - End If + If StringClean.Contains("#LesbianImageCount") Then + StringClean = StringClean.Replace("#LesbianImageCount", GetImageData(ImageGenre.Lesbian).CountImages()) + End If - If StringClean.Contains("#HentaiImageCount") Then - StringClean = StringClean.Replace("#HentaiImageCount", GetImageData(ImageGenre.Hentai).CountImages()) - End If + If StringClean.Contains("#BlowjobImageCount") Then + StringClean = StringClean.Replace("#BlowjobImageCount", GetImageData(ImageGenre.Blowjob).CountImages()) + End If - If StringClean.Contains("#GayImageCount") Then - StringClean = StringClean.Replace("#GayImageCount", GetImageData(ImageGenre.Gay).CountImages()) - End If + If StringClean.Contains("#FemdomImageCount") Then + StringClean = StringClean.Replace("#FemdomImageCount", GetImageData(ImageGenre.Femdom).CountImages()) + End If - If StringClean.Contains("#MaledomImageCount") Then - StringClean = StringClean.Replace("#MaledomImageCount", GetImageData(ImageGenre.Maledom).CountImages()) - End If + If StringClean.Contains("#LezdomImageCount") Then + StringClean = StringClean.Replace("#LezdomImageCount", GetImageData(ImageGenre.Lezdom).CountImages()) + End If - If StringClean.Contains("#CaptionsImageCount") Then - StringClean = StringClean.Replace("#CaptionsImageCount", GetImageData(ImageGenre.Captions).CountImages()) - End If + If StringClean.Contains("#HentaiImageCount") Then + StringClean = StringClean.Replace("#HentaiImageCount", GetImageData(ImageGenre.Hentai).CountImages()) + End If - If StringClean.Contains("#GeneralImageCount") Then - StringClean = StringClean.Replace("#GeneralImageCount", GetImageData(ImageGenre.General).CountImages()) - End If + If StringClean.Contains("#GayImageCount") Then + StringClean = StringClean.Replace("#GayImageCount", GetImageData(ImageGenre.Gay).CountImages()) + End If - If StringClean.Contains("#LikedImageCount") Then - StringClean = StringClean.Replace("#LikedImageCount", GetImageData(ImageGenre.Liked).CountImages()) - End If + If StringClean.Contains("#MaledomImageCount") Then + StringClean = StringClean.Replace("#MaledomImageCount", GetImageData(ImageGenre.Maledom).CountImages()) + End If - If StringClean.Contains("#DislikedImageCount") Then - StringClean = StringClean.Replace("#DislikedImageCount", GetImageData(ImageGenre.Disliked).CountImages()) - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' ImageCount - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If StringClean.Contains("#EdgeHold") Then - Dim i As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then i *= 60 - - Dim x As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then x *= 60 - - Dim t As Integer = ssh.randomizer.Next(i, x + 1) - If t >= 5 Then t = 5 * Math.Round(t / 5) - Dim TConvert As String = ConvertSeconds(t) - StringClean = StringClean.Replace("#EdgeHold", TConvert) - End If + If StringClean.Contains("#CaptionsImageCount") Then + StringClean = StringClean.Replace("#CaptionsImageCount", GetImageData(ImageGenre.Captions).CountImages()) + End If - If StringClean.Contains("#LongHold") Then - Dim i As Integer = FrmSettings.NBLongHoldMin.Value - Dim x As Integer = FrmSettings.NBLongHoldMax.Value - Dim t As Integer = ssh.randomizer.Next(i, x + 1) - t *= 60 - If t >= 5 Then t = 5 * Math.Round(t / 5) - Dim TConvert As String = ConvertSeconds(t) - StringClean = StringClean.Replace("#LongHold", TConvert) - End If + If StringClean.Contains("#GeneralImageCount") Then + StringClean = StringClean.Replace("#GeneralImageCount", GetImageData(ImageGenre.General).CountImages()) + End If - If StringClean.Contains("#ExtremeHold") Then - Dim i As Integer = FrmSettings.NBExtremeHoldMin.Value - Dim x As Integer = FrmSettings.NBExtremeHoldMax.Value - Dim t As Integer = ssh.randomizer.Next(i, x + 1) - t *= 60 - If t >= 5 Then t = 5 * Math.Round(t / 5) - Dim TConvert As String = ConvertSeconds(t) - StringClean = StringClean.Replace("#ExtremeHold", TConvert) - End If + If StringClean.Contains("#LikedImageCount") Then + StringClean = StringClean.Replace("#LikedImageCount", GetImageData(ImageGenre.Liked).CountImages()) + End If - StringClean = StringClean.Replace("#CurrentImage", ssh.ImageLocation) + If StringClean.Contains("#DislikedImageCount") Then + StringClean = StringClean.Replace("#DislikedImageCount", GetImageData(ImageGenre.Disliked).CountImages()) + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' ImageCount - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + If StringClean.Contains("#EdgeHold") Then + Dim i As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then i *= 60 - Return StringClean + Dim x As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then x *= 60 + Dim t As Integer = ssh.randomizer.Next(i, x + 1) + If t >= 5 Then t = 5 * Math.Round(t / 5) + Dim TConvert As String = ConvertSeconds(t) + StringClean = StringClean.Replace("#EdgeHold", TConvert) + End If - End Function + If StringClean.Contains("#LongHold") Then + Dim i As Integer = FrmSettings.NBLongHoldMin.Value + Dim x As Integer = FrmSettings.NBLongHoldMax.Value + Dim t As Integer = ssh.randomizer.Next(i, x + 1) + t *= 60 + If t >= 5 Then t = 5 * Math.Round(t / 5) + Dim TConvert As String = ConvertSeconds(t) + StringClean = StringClean.Replace("#LongHold", TConvert) + End If - Public Function ConvertSeconds(ByVal Seconds As Integer) As String + If StringClean.Contains("#ExtremeHold") Then + Dim i As Integer = FrmSettings.NBExtremeHoldMin.Value + Dim x As Integer = FrmSettings.NBExtremeHoldMax.Value + Dim t As Integer = ssh.randomizer.Next(i, x + 1) + t *= 60 + If t >= 5 Then t = 5 * Math.Round(t / 5) + Dim TConvert As String = ConvertSeconds(t) + StringClean = StringClean.Replace("#ExtremeHold", TConvert) + End If - Dim RetVal As String + StringClean = StringClean.Replace("#CurrentImage", ssh.ImageLocation) - Dim SecondsDifference As Integer = Seconds - Dim HMS = TimeSpan.FromSeconds(SecondsDifference) - Dim H = HMS.Hours.ToString - Dim M = HMS.Minutes.ToString - Dim S = HMS.Seconds.ToString + Return StringClean - If HMS.Hours = 1 Then - H = "1 hour" - Else - H = H & " hours" - End If - If HMS.Minutes = 1 Then - M = "1 minute" - Else - Dim t As Integer = HMS.Minutes - If t >= 5 Then t = 5 * Math.Round(t / 5) - M = t & " minutes" - End If + End Function - If HMS.Minutes > 4 Or HMS.Hours > 0 Or HMS.Seconds = 0 Then - S = "" - Else - If HMS.Seconds = 1 Then - S = "1 second" + Public Function ConvertSeconds(ByVal Seconds As Integer) As String + + Dim RetVal As String + + Dim SecondsDifference As Integer = Seconds + Dim HMS = TimeSpan.FromSeconds(SecondsDifference) + Dim H = HMS.Hours.ToString + Dim M = HMS.Minutes.ToString + Dim S = HMS.Seconds.ToString + + If HMS.Hours = 1 Then + H = "1 hour" Else - S = S & " seconds" + H = H & " hours" End If - End If - RetVal = "" + If HMS.Minutes = 1 Then + M = "1 minute" + Else + Dim t As Integer = HMS.Minutes + If t >= 5 Then t = 5 * Math.Round(t / 5) + M = t & " minutes" + End If - If HMS.Hours > 0 Then - RetVal = RetVal & H - If HMS.Minutes > 0 Then RetVal = RetVal & " and " - End If + If HMS.Minutes > 4 Or HMS.Hours > 0 Or HMS.Seconds = 0 Then + S = "" + Else + If HMS.Seconds = 1 Then + S = "1 second" + Else + S = S & " seconds" + End If + End If - If HMS.Minutes > 0 Then - RetVal = RetVal & M - If HMS.Seconds > 0 And HMS.Hours < 1 And HMS.Minutes < 4 Then RetVal = RetVal & " and " - End If + RetVal = "" - RetVal = RetVal & S + If HMS.Hours > 0 Then + RetVal = RetVal & H + If HMS.Minutes > 0 Then RetVal = RetVal & " and " + End If + + If HMS.Minutes > 0 Then + RetVal = RetVal & M + If HMS.Seconds > 0 And HMS.Hours < 1 And HMS.Minutes < 4 Then RetVal = RetVal & " and " + End If - Return RetVal + RetVal = RetVal & S + Return RetVal - End Function + End Function - Public Function PoundClean(ByVal StringClean As String) As String + + Public Function PoundClean(ByVal StringClean As String) As String #If TRACE Then - Dim TS As New TraceSwitch("PoundClean", "") + Dim TS As New TraceSwitch("PoundClean", "") - If TS.TraceVerbose Then - Trace.WriteLine("============= PoundClean(String) =============") - Trace.Indent() - Trace.WriteLine(String.Format("StartValue: ""{0}""", StringClean)) - ElseIf TS.TraceInfo Then - Trace.WriteLine(String.Format("PoundClean(String) parsing: ""{0}""", StringClean)) - Trace.Indent() - End If + If TS.TraceVerbose Then + Trace.WriteLine("============= PoundClean(String) =============") + Trace.Indent() + Trace.WriteLine(String.Format("StartValue: ""{0}""", StringClean)) + ElseIf TS.TraceInfo Then + Trace.WriteLine(String.Format("PoundClean(String) parsing: ""{0}""", StringClean)) + Trace.Indent() + End If - Dim sw As New Stopwatch - Dim StartTime As Date = Now - sw.Start() + Dim sw As New Stopwatch + Dim StartTime As Date = Now + sw.Start() #End If - Dim OrgString As String = StringClean - Dim Recurrence As Integer = 0 + Dim OrgString As String = StringClean + Dim Recurrence As Integer = 0 - Do While Recurrence < 5 AndAlso (StringClean.Contains("#") Or StringClean.Contains("@Tag")) - Recurrence += 1 + Do While Recurrence < 5 AndAlso (StringClean.Contains("#") Or StringClean.Contains("@Tag")) + Recurrence += 1 #If TRACE Then - If TS.TraceVerbose Then - Trace.WriteLine(String.Format("Starting scan run {0} on ""{1}""", Recurrence, StringClean)) - Trace.Indent() - End If + If TS.TraceVerbose Then + Trace.WriteLine(String.Format("Starting scan run {0} on ""{1}""", Recurrence, StringClean)) + Trace.Indent() + End If #End If - StringClean = SysKeywordClean(StringClean) + StringClean = SysKeywordClean(StringClean) #If TRACE Then - If TS.TraceVerbose Then Trace.WriteLine(String.Format("System keywords cleaned: ""{0}""", StringClean)) + If TS.TraceVerbose Then Trace.WriteLine(String.Format("System keywords cleaned: ""{0}""", StringClean)) #End If - 'Bug: TextedTags have to be applied after the image is displayed. - ssh.FoundTag = "NULL" - Dim slide As ContactData = ssh.SlideshowMain - If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags + 'Bug: TextedTags have to be applied after the image is displayed. + ssh.FoundTag = "NULL" + Dim slide As ContactData = ssh.SlideshowMain + If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags - Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" + Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" - If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ + If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ AndAlso File.Exists(TagFilePath) Then - ' Read all lines of the given file. - Dim TagList As List(Of String) = Txt2List(TagFilePath) + ' Read all lines of the given file. + Dim TagList As List(Of String) = Txt2List(TagFilePath) - Try - For t As Integer = 0 To TagList.Count - 1 - 'Debug.Print("TagList(t) = " & TagList(t)) - If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then - ssh.FoundTag = TagList(t) - Dim FoundTagSplit As String() = Split(ssh.FoundTag) - For j As Integer = 0 To FoundTagSplit.Length - 1 - If FoundTagSplit(j).Contains("TagGarment") Then - ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") - ssh.TagGarment = ssh.TagGarment.Replace("-", " ") - End If + Try + For t As Integer = 0 To TagList.Count - 1 + 'Debug.Print("TagList(t) = " & TagList(t)) + If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then + ssh.FoundTag = TagList(t) + Dim FoundTagSplit As String() = Split(ssh.FoundTag) + For j As Integer = 0 To FoundTagSplit.Length - 1 + If FoundTagSplit(j).Contains("TagGarment") Then + ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") + ssh.TagGarment = ssh.TagGarment.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagUnderwear") Then - ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") - ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagUnderwear") Then + ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") + ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagTattoo") Then - ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") - ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagTattoo") Then + ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") + ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagSexToy") Then - ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") - ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagSexToy") Then + ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") + ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagFurniture") Then - ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") - ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagFurniture") Then + ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") + ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") + End If - Next - Exit For - End If - Next - Catch - End Try - End If + Next + Exit For + End If + Next + Catch + End Try + End If - 'Debug.Print("TagGarment = " & TagGarment) - 'Debug.Print("TagUnderwear = " & TagUnderwear) - 'Debug.Print("TagTattoo = " & TagTattoo) - 'Debug.Print("TagSexToy = " & TagSexToy) - 'Debug.Print("TagFurniture = " & TagFurniture) - 'Debug.Print("FoundTag = " & FoundTag) + 'Debug.Print("TagGarment = " & TagGarment) + 'Debug.Print("TagUnderwear = " & TagUnderwear) + 'Debug.Print("TagTattoo = " & TagTattoo) + 'Debug.Print("TagSexToy = " & TagSexToy) + 'Debug.Print("TagFurniture = " & TagFurniture) + 'Debug.Print("FoundTag = " & FoundTag) - StringClean = StringClean.Replace("#TagGarment", ssh.TagGarment) - StringClean = StringClean.Replace("#TagUnderwear", ssh.TagUnderwear) - StringClean = StringClean.Replace("#TagTattoo", ssh.TagTattoo) - StringClean = StringClean.Replace("#TagSexToy", ssh.TagSexToy) - StringClean = StringClean.Replace("#TagFurniture", ssh.TagFurniture) + StringClean = StringClean.Replace("#TagGarment", ssh.TagGarment) + StringClean = StringClean.Replace("#TagUnderwear", ssh.TagUnderwear) + StringClean = StringClean.Replace("#TagTattoo", ssh.TagTattoo) + StringClean = StringClean.Replace("#TagSexToy", ssh.TagSexToy) + StringClean = StringClean.Replace("#TagFurniture", ssh.TagFurniture) SkipTextedTags: - If StringClean.Contains("#") Or StringClean.Contains("@Tag") Then + If StringClean.Contains("#") Or StringClean.Contains("@Tag") Then - Dim re As New Regex("#[#\w\d\+\-_]+", RegexOptions.IgnoreCase) - Dim mc As MatchCollection = re.Matches(StringClean) + Dim re As New Regex("#[#\w\d\+\-_]+", RegexOptions.IgnoreCase) + Dim mc As MatchCollection = re.Matches(StringClean) - For Each keyword As Match In mc + For Each keyword As Match In mc #If TRACE Then - If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) + If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) #End If - Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" + Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" - If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then - Dim lines As List(Of String) = Txt2List(filepath) + If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then + Dim lines As List(Of String) = Txt2List(filepath) - Try - lines = FilterList(lines) - Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) - StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - Catch ex As Exception - Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + Try + lines = FilterList(lines) + Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + Catch ex As Exception + Log.WriteError("Error Processing vocabulary file: " & filepath, ex, "Tease AI did not return a valid line while parsing vocabulary file.") - StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value - End Try - - StringClean = StringClean.Replace("TagFace", "") - StringClean = StringClean.Replace("TagBoobs", "") - StringClean = StringClean.Replace("TagPussy", "") - StringClean = StringClean.Replace("TagAss", "") - StringClean = StringClean.Replace("TagFeet", "") - StringClean = StringClean.Replace("TagFullyDressed", "") - StringClean = StringClean.Replace("TagHalfDressed", "") - StringClean = StringClean.Replace("TagNaked", "") - StringClean = StringClean.Replace("TagSideView", "") - StringClean = StringClean.Replace("TagCloseUp", "") - StringClean = StringClean.Replace("TagMasturbating", "") - StringClean = StringClean.Replace("TagSucking", "") - StringClean = StringClean.Replace("TagSmiling", "") - StringClean = StringClean.Replace("TagGlaring", "") - StringClean = StringClean.Replace("TagSeeThrough", "") - StringClean = StringClean.Replace("TagAllFours", "") + StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value + End Try + + StringClean = StringClean.Replace("TagFace", "") + StringClean = StringClean.Replace("TagBoobs", "") + StringClean = StringClean.Replace("TagPussy", "") + StringClean = StringClean.Replace("TagAss", "") + StringClean = StringClean.Replace("TagFeet", "") + StringClean = StringClean.Replace("TagFullyDressed", "") + StringClean = StringClean.Replace("TagHalfDressed", "") + StringClean = StringClean.Replace("TagNaked", "") + StringClean = StringClean.Replace("TagSideView", "") + StringClean = StringClean.Replace("TagCloseUp", "") + StringClean = StringClean.Replace("TagMasturbating", "") + StringClean = StringClean.Replace("TagSucking", "") + StringClean = StringClean.Replace("TagSmiling", "") + StringClean = StringClean.Replace("TagGlaring", "") + StringClean = StringClean.Replace("TagSeeThrough", "") + StringClean = StringClean.Replace("TagAllFours", "") - Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + Else + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") - End If + End If - Next + Next - End If -#If Trace Then - Trace.Unindent() + End If +#If TRACE Then + Trace.Unindent() #End If - Loop + Loop - If StringClean.Contains("#") Then + If StringClean.Contains("#") Then #If TRACE Then - If TS.TraceError Then - Trace.WriteLine("PoundClean(String): Stopping scan, maximum allowed scan depth reached.") - Trace.Indent() - Trace.WriteLine(String.Format("StartValue: ""{0}""", OrgString)) - Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) - Trace.Unindent() - End If + If TS.TraceError Then + Trace.WriteLine("PoundClean(String): Stopping scan, maximum allowed scan depth reached.") + Trace.Indent() + Trace.WriteLine(String.Format("StartValue: ""{0}""", OrgString)) + Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) + Trace.Unindent() + End If #End If - Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & + Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & "Aborted Cleaning at: " & StringClean, New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") - Else + Else #If TRACE Then - If TS.TraceVerbose Then - Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) - Trace.WriteLine(String.Format("Duration: {0}ms", (Now - StartTime).TotalMilliseconds.ToString)) - End If + If TS.TraceVerbose Then + Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) + Trace.WriteLine(String.Format("Duration: {0}ms", (Now - StartTime).TotalMilliseconds.ToString)) + End If #End If - End If + End If -#If trace Then - Trace.Unindent() +#If TRACE Then + Trace.Unindent() #End If - Return StringClean - End Function + Return StringClean + End Function - Public Function CommandClean(ByVal StringClean As String, Optional ByVal TaskClean As Boolean = False) As String + Public Function CommandClean(ByVal StringClean As String, Optional ByVal TaskClean As Boolean = False) As String - Debug.Print("Stringclean Intro = " & StringClean) + Debug.Print("Stringclean Intro = " & StringClean) - If TaskClean = True Then - Debug.Print("Tasks CommandClean") - GoTo TaskCleanSet - End If + If TaskClean = True Then + Debug.Print("Tasks CommandClean") + GoTo TaskCleanSet + End If RinseLatherRepeat: - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' ImageCommands - ' - Make sure you call all Display ImageFunctions before executing @LockImages. - ' If you don't, FilterList() will return a wrong list of lines => - ' => The Domme is talking about an image, but she never showed one. - ' => She is talking about an new image, but never showed one. - ' - Call @DeleteLocalImage before you start to display a new Image, because they - ' are loaded and displayed async. Otherwise it will delete the wrong image! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - - ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, - ' LiskedList, DislikedList and LocalImageTagList, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteLocalImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(True) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' ImageCommands + ' - Make sure you call all Display ImageFunctions before executing @LockImages. + ' If you don't, FilterList() will return a wrong list of lines => + ' => The Domme is talking about an image, but she never showed one. + ' => She is talking about an new image, but never showed one. + ' - Call @DeleteLocalImage before you start to display a new Image, because they + ' are loaded and displayed async. Otherwise it will delete the wrong image! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, + ' LiskedList, DislikedList and LocalImageTagList, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteLocalImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(True) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", ex, "@DeleteLocalImage failed") - End Try + End Try + End If + StringClean = StringClean.Replace("@DeleteLocalImage", "") End If - StringClean = StringClean.Replace("@DeleteLocalImage", "") - End If - ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, - ' DislikedList, LocalImageTagList and URL-Files, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(False) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteImage was unable to delete the image.", + ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, + ' DislikedList, LocalImageTagList and URL-Files, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(False) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteImage was unable to delete the image.", ex, "@DeleteImage failed") - End Try + End Try + End If + StringClean = StringClean.Replace("@DeleteImage", "") End If - StringClean = StringClean.Replace("@DeleteImage", "") - End If - ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. - If StringClean.Contains("@UnlockImages") Then - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. + If StringClean.Contains("@UnlockImages") Then + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.LockImage = False + StringClean = StringClean.Replace("@UnlockImages", "") End If - ssh.LockImage = False - StringClean = StringClean.Replace("@UnlockImages", "") - End If - If StringClean.Contains("@DommeTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") - 'QND-Implemented: ContactData.GetTaggedImage - If ContactToUse IsNot Nothing Then - ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) - Else - ssh.DommeImageSTR = "" + If StringClean.Contains("@DommeTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") + 'QND-Implemented: ContactData.GetTaggedImage + If ContactToUse IsNot Nothing Then + ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") End If - ' Clean the Text. - StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") - End If - If StringClean.Contains("@NewDommeSlideshow") Then - 'TODO: Add Support for contact slideshows. - ssh.SlideshowMain.LoadNew() - ssh.SlideshowMain.CurrentImage() - StringClean = StringClean.Replace("@NewDommeSlideshow", "") - End If + If StringClean.Contains("@NewDommeSlideshow") Then + 'TODO: Add Support for contact slideshows. + ssh.SlideshowMain.LoadNew() + ssh.SlideshowMain.CurrentImage() + StringClean = StringClean.Replace("@NewDommeSlideshow", "") + End If - If StringClean.Contains("@DomTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") - ' Try to get a Domme Image for the given Tags. - 'QND-Implemented: ContactData.GetTaggedImage - If ContactToUse IsNot Nothing Then - ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) - Else - ssh.DommeImageSTR = "" + If StringClean.Contains("@DomTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ContactToUse IsNot Nothing Then + ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If + + StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") End If - StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") - End If + If StringClean.Contains("@ImageTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") + ShowImage(GetLocalImage(TagFlag), False) + StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") + End If - If StringClean.Contains("@ImageTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") - ShowImage(GetLocalImage(TagFlag), False) - StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") - End If + If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then + ShowImage(GetRandomImage(), False) + StringClean = StringClean.Replace("@ShowImage", "") + End If - If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then - ShowImage(GetRandomImage(), False) - StringClean = StringClean.Replace("@ShowImage", "") - End If + If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then + ShowImage(GetImageData(ImageGenre.Butt).Random(), False) - If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then - ShowImage(GetImageData(ImageGenre.Butt).Random(), False) + StringClean = StringClean.Replace("@ShowButtImage", "") + StringClean = StringClean.Replace("@ShowButtsImage", "") + End If - StringClean = StringClean.Replace("@ShowButtImage", "") - StringClean = StringClean.Replace("@ShowButtsImage", "") - End If + If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then + ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) - If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then - ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) + StringClean = StringClean.Replace("@ShowBoobsImage", "") + StringClean = StringClean.Replace("@ShowBoobImage", "") + End If - StringClean = StringClean.Replace("@ShowBoobsImage", "") - StringClean = StringClean.Replace("@ShowBoobImage", "") - End If + If StringClean.Contains("@ShowHardcoreImage") Then + ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) + StringClean = StringClean.Replace("@ShowHardcoreImage", "") + End If - If StringClean.Contains("@ShowHardcoreImage") Then - ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) - StringClean = StringClean.Replace("@ShowHardcoreImage", "") - End If + If StringClean.Contains("@ShowSoftcoreImage") Then + ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) + StringClean = StringClean.Replace("@ShowSoftcoreImage", "") + End If - If StringClean.Contains("@ShowSoftcoreImage") Then - ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) - StringClean = StringClean.Replace("@ShowSoftcoreImage", "") - End If + If StringClean.Contains("@ShowLesbianImage") Then + ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) + StringClean = StringClean.Replace("@ShowLesbianImage", "") + End If - If StringClean.Contains("@ShowLesbianImage") Then - ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) - StringClean = StringClean.Replace("@ShowLesbianImage", "") - End If + If StringClean.Contains("@ShowBlowjobImage") Then + ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) + StringClean = StringClean.Replace("@ShowBlowjobImage", "") + End If - If StringClean.Contains("@ShowBlowjobImage") Then - ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) - StringClean = StringClean.Replace("@ShowBlowjobImage", "") - End If + If StringClean.Contains("@ShowFemdomImage") Then + ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) + StringClean = StringClean.Replace("@ShowFemdomImage", "") + End If - If StringClean.Contains("@ShowFemdomImage") Then - ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) - StringClean = StringClean.Replace("@ShowFemdomImage", "") - End If + If StringClean.Contains("@ShowLezdomImage") Then + ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) + StringClean = StringClean.Replace("@ShowLezdomImage", "") + End If - If StringClean.Contains("@ShowLezdomImage") Then - ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) - StringClean = StringClean.Replace("@ShowLezdomImage", "") - End If + If StringClean.Contains("@ShowHentaiImage") Then + ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) + StringClean = StringClean.Replace("@ShowHentaiImage", "") + End If - If StringClean.Contains("@ShowHentaiImage") Then - ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) - StringClean = StringClean.Replace("@ShowHentaiImage", "") - End If + If StringClean.Contains("@ShowGayImage") Then + ShowImage(GetImageData(ImageGenre.Gay).Random(), False) + StringClean = StringClean.Replace("@ShowGayImage", "") + End If - If StringClean.Contains("@ShowGayImage") Then - ShowImage(GetImageData(ImageGenre.Gay).Random(), False) - StringClean = StringClean.Replace("@ShowGayImage", "") - End If + If StringClean.Contains("@ShowMaledomImage") Then + ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) + StringClean = StringClean.Replace("@ShowMaledomImage", "") + End If - If StringClean.Contains("@ShowMaledomImage") Then - ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) - StringClean = StringClean.Replace("@ShowMaledomImage", "") - End If + If StringClean.Contains("@ShowCaptionsImage") Then + ShowImage(GetImageData(ImageGenre.Captions).Random(), False) + StringClean = StringClean.Replace("@ShowCaptionsImage", "") + End If - If StringClean.Contains("@ShowCaptionsImage") Then - ShowImage(GetImageData(ImageGenre.Captions).Random(), False) - StringClean = StringClean.Replace("@ShowCaptionsImage", "") - End If + If StringClean.Contains("@ShowGeneralImage") Then + ShowImage(GetImageData(ImageGenre.General).Random(), False) + StringClean = StringClean.Replace("@ShowGeneralImage", "") + End If - If StringClean.Contains("@ShowGeneralImage") Then - ShowImage(GetImageData(ImageGenre.General).Random(), False) - StringClean = StringClean.Replace("@ShowGeneralImage", "") - End If + If StringClean.Contains("@ShowLikedImage") Then + ShowImage(GetImageData(ImageGenre.Liked).Random(), False) + StringClean = StringClean.Replace("@ShowLikedImage", "") + End If - If StringClean.Contains("@ShowLikedImage") Then - ShowImage(GetImageData(ImageGenre.Liked).Random(), False) - StringClean = StringClean.Replace("@ShowLikedImage", "") - End If + If StringClean.Contains("@ShowDislikedImage") Then + ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) + StringClean = StringClean.Replace("@ShowDislikedImage", "") + End If - If StringClean.Contains("@ShowDislikedImage") Then - ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) - StringClean = StringClean.Replace("@ShowDislikedImage", "") - End If + If StringClean.Contains("@ShowBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@ShowBlogImage", "") + End If - If StringClean.Contains("@ShowBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@ShowBlogImage", "") - End If + ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage + If StringClean.Contains("@NewBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@NewBlogImage", "") + End If - ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage - If StringClean.Contains("@NewBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@NewBlogImage", "") - End If + If StringClean.Contains("@ShowLocalImage") And Not StringClean.Contains("@ShowLocalImage(") Then + ShowImage(GetRandomImage(ImageSourceType.Local), False) + StringClean = StringClean.Replace("@ShowLocalImage", "") + End If - If StringClean.Contains("@ShowLocalImage") And Not StringClean.Contains("@ShowLocalImage(") Then - ShowImage(GetRandomImage(ImageSourceType.Local), False) - StringClean = StringClean.Replace("@ShowLocalImage", "") - End If + '=============================================================================== + ' @ShowLocalImage() + '=============================================================================== + If StringClean.Contains("@ShowLocalImage(") Then + Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") + LocalFlag = FixCommas(LocalFlag) + + Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList + + If LocalFlag.ToUpper.Contains("NOT") Then + ' =============== Invert the Content in Brackets =============== + ' Declare a String containing all available ImageGenres + Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" + + ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket + For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 + If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") + If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") + If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") + If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") + If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") + If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") + If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") + If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") + If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") + If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") + If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") + If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") + Next - '=============================================================================== - ' @ShowLocalImage() - '=============================================================================== - If StringClean.Contains("@ShowLocalImage(") Then - Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") - LocalFlag = FixCommas(LocalFlag) - - Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList - - If LocalFlag.ToUpper.Contains("NOT") Then - ' =============== Invert the Content in Brackets =============== - ' Declare a String containing all available ImageGenres - Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" - - ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket - For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 - If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") - If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") - If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") - If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") - If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") - If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") - If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") - If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") - If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") - If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") - If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") - If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") + ' Set the inverted Array. + tmpListGenre = CompareFlag.Split(", ").ToList + End If + + ' Pick a random entry from list + Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) + Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) + + ' generate a list of all available Local Images. This way it is most + ' likely, to get an image. + Dim tmpImageLocationList As New List(Of String) + + For Each tmpStr As String In tmpListGenre + If tmpStr.ToUpper.Contains("HARDCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("HENTAI") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GAY") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("CAPTION") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GENERAL") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) + End If Next - - ' Set the inverted Array. - tmpListGenre = CompareFlag.Split(", ").ToList - End If - - ' Pick a random entry from list - Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) - Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) - - ' generate a list of all available Local Images. This way it is most - ' likely, to get an image. - Dim tmpImageLocationList As New List(Of String) - - For Each tmpStr As String In tmpListGenre - If tmpStr.ToUpper.Contains("HARDCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("HENTAI") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GAY") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("CAPTION") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GENERAL") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) + ' Declare a string for the Image to show - initialize with error Image + Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" + ' If there are images, overwrite the error image. + If tmpImageLocationList.Count > 0 Then + tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) + Else + Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") End If - Next - ' Declare a string for the Image to show - initialize with error Image - Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" - ' If there are images, overwrite the error image. - If tmpImageLocationList.Count > 0 Then - tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) - Else - Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") - End If - ShowImage(tmpImgToShow, False) + ShowImage(tmpImgToShow, False) - StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") - End If - '---------------------------------------- - ' @ShowLocalImage()- End - '---------------------------------------- - '=============================================================================== - ' @ShowTaggedImage - '=============================================================================== - If StringClean.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = StringClean.Split() _ + StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") + End If + '---------------------------------------- + ' @ShowLocalImage()- End + '---------------------------------------- + '=============================================================================== + ' @ShowTaggedImage + '=============================================================================== + If StringClean.Contains("@ShowTaggedImage") Then + Dim Tags As List(Of String) = StringClean.Split() _ .Select(Function(s) s.Trim()) _ .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - Dim FoundString As String = GetLocalImage(Tags, Nothing) + Dim FoundString As String = GetLocalImage(Tags, Nothing) - 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. - If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages + 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. + If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages - ssh.JustShowedBlogImage = True - ShowImage(FoundString, False) + ssh.JustShowedBlogImage = True + ShowImage(FoundString, False) - Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) - StringClean = StringClean.Replace("@ShowTaggedImage", "") - End If - '---------------------------------------- - ' @ShowTaggedImage - End - '---------------------------------------- - '=============================================================================== - ' @ShowImage[] - '=============================================================================== - If StringClean.Contains("@ShowImage[") Then - Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") - Try - Dim tmpImgLoc As String = "" + Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) + StringClean = StringClean.Replace("@ShowTaggedImage", "") + End If + '---------------------------------------- + ' @ShowTaggedImage - End + '---------------------------------------- + '=============================================================================== + ' @ShowImage[] + '=============================================================================== + If StringClean.Contains("@ShowImage[") Then + Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") + Try + Dim tmpImgLoc As String = "" - If isURL(ImageToShow) Then - '########################## ImageURL was given ######################### - tmpImgLoc = ImageToShow - GoTo ShowedBlogImage - End If + If isURL(ImageToShow) Then + '########################## ImageURL was given ######################### + tmpImgLoc = ImageToShow + GoTo ShowedBlogImage + End If - ' Change evtl. wrong given Slashes - ImageToShow = ImageToShow.Replace("/", "\") + ' Change evtl. wrong given Slashes + ImageToShow = ImageToShow.Replace("/", "\") - ImageToShow = Application.StartupPath & "\Images\" & ImageToShow - ImageToShow = ImageToShow.Replace("\\", "\") + ImageToShow = Application.StartupPath & "\Images\" & ImageToShow + ImageToShow = ImageToShow.Replace("\\", "\") - If ImageToShow.Contains("*") Then - '######################### Directory was given ######################### - Dim tmpFilter As String = Path.GetFileName(ImageToShow) - Dim tmpDir As String = Path.GetDirectoryName(ImageToShow) - Dim ImageList As List(Of String) + If ImageToShow.Contains("*") Then + '######################### Directory was given ######################### + Dim tmpFilter As String = Path.GetFileName(ImageToShow) + Dim tmpDir As String = Path.GetDirectoryName(ImageToShow) + Dim ImageList As List(Of String) - If Directory.Exists(tmpDir) = False Then - Throw New Exception( + If Directory.Exists(tmpDir) = False Then + Throw New Exception( "The given directory """ & tmpDir & """ does not exist." & vbCrLf & vbCrLf & "Please make sure the directory exists and it is spelled correctly in the script.") - End If + End If - If tmpFilter = "*" Then - ImageList = myDirectory.GetFilesImages(tmpDir) - Else - ImageList = Directory.GetFiles(tmpDir, tmpFilter, SearchOption.TopDirectoryOnly).ToList - End If + If tmpFilter = "*" Then + ImageList = myDirectory.GetFilesImages(tmpDir) + Else + ImageList = Directory.GetFiles(tmpDir, tmpFilter, SearchOption.TopDirectoryOnly).ToList + End If - If ImageList.Count = 0 Then - Throw New FileNotFoundException( + If ImageList.Count = 0 Then + Throw New FileNotFoundException( "No images matching the filter """ & tmpFilter & """ were found in """ & tmpDir & """!" & vbCrLf & vbCrLf & "Please make sure that valid files exist and the wildcards are applied correctly in the script.") - End If + End If - tmpImgLoc = ImageList(New Random().Next(0, ImageList.Count)) - Else - '############################# Single Image ############################ - If File.Exists(ImageToShow) Then - tmpImgLoc = ImageToShow + tmpImgLoc = ImageList(New Random().Next(0, ImageList.Count)) Else - Throw New Exception( + '############################# Single Image ############################ + If File.Exists(ImageToShow) Then + tmpImgLoc = ImageToShow + Else + Throw New Exception( """" & Path.GetFileName(ImageToShow) & """ was not found in """ & Path.GetDirectoryName(ImageToShow) & """!" & vbCrLf & vbCrLf & "Please make sure the file exists and it is spelled correctly in the script.") + End If End If - End If - '############### Display the Image ################## + '############### Display the Image ################## ShowedBlogImage: - ShowImage(tmpImgLoc, False) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @ShowImage[] was unable to display the image.", + ShowImage(tmpImgLoc, False) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @ShowImage[] was unable to display the image.", ex, "Error at @ShowImage[]") - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") - End Try - StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") - End If - '---------------------------------------- - ' @ShowImage[]- End - '---------------------------------------- - '=============================================================================== - ' Legacy TnA-Slideshow - '=============================================================================== - ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. - ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. - ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. - ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. - - If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then - If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 - If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 - If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 - - Try - ssh.BoobList.Clear() - ssh.AssList.Clear() - - If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList - If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList - - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") - - TnASlides.Start() - Catch ex As Exception - Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & - ex.Message, ex, "CommandClean()") - End Try - - StringClean = StringClean.Replace("@TnAFastSlides", "") - StringClean = StringClean.Replace("@TnASlowSlides", "") - StringClean = StringClean.Replace("@TnASlides", "") - End If - - If StringClean.Contains("@CheckTnA") Then - TnASlides.Stop() + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") + End Try + StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") + End If + '---------------------------------------- + ' @ShowImage[]- End + '---------------------------------------- + '=============================================================================== + ' Legacy TnA-Slideshow + '=============================================================================== + ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. + ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. + ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. + ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. - 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) - If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" - If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckTnA", "") - End If + If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then + If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 + If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 + If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 - If StringClean.Contains("@StopTnA") Then - TnASlides.Stop() - ssh.BoobList.Clear() - ssh.BoobImage = False - ssh.AssList.Clear() - ssh.AssImage = False - StringClean = StringClean.Replace("@StopTnA", "") - End If - '---------------------------------------- - ' TnA-Slideshow - End - '---------------------------------------- - '=============================================================================== - ' Slideshow - '=============================================================================== - If StringClean.Contains("@Slideshow(") Then - Dim SlideFlag As String = StringClean + Try + ssh.BoobList.Clear() + ssh.AssList.Clear() - Dim SlideStart As Integer + If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList + If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList - SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 - SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) - SlideFlag = SlideFlag.Split(")")(0) - SlideFlag = SlideFlag.Replace("@Slideshow(", "") + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") - ssh.CustomSlideshow.Clear() + TnASlides.Start() + Catch ex As Exception + Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & + ex.Message, ex, "CommandClean()") + End Try - If SlideFlag.ToLower.Contains("hardcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) + StringClean = StringClean.Replace("@TnAFastSlides", "") + StringClean = StringClean.Replace("@TnASlowSlides", "") + StringClean = StringClean.Replace("@TnASlides", "") End If - If SlideFlag.ToLower.Contains("softcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) - End If + If StringClean.Contains("@CheckTnA") Then + TnASlides.Stop() - If SlideFlag.ToLower.Contains("lesbian") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) + 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) + If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" + If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckTnA", "") End If - If SlideFlag.ToLower.Contains("blowjob") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) + If StringClean.Contains("@StopTnA") Then + TnASlides.Stop() + ssh.BoobList.Clear() + ssh.BoobImage = False + ssh.AssList.Clear() + ssh.AssImage = False + StringClean = StringClean.Replace("@StopTnA", "") End If + '---------------------------------------- + ' TnA-Slideshow - End + '---------------------------------------- + '=============================================================================== + ' Slideshow + '=============================================================================== + If StringClean.Contains("@Slideshow(") Then + Dim SlideFlag As String = StringClean - If SlideFlag.ToLower.Contains("femdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) - End If + Dim SlideStart As Integer - If SlideFlag.ToLower.Contains("lezdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) - End If + SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 + SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) + SlideFlag = SlideFlag.Split(")")(0) + SlideFlag = SlideFlag.Replace("@Slideshow(", "") - If SlideFlag.ToLower.Contains("hentai") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) - End If + ssh.CustomSlideshow.Clear() - If SlideFlag.ToLower.Contains("gay") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) - End If + If SlideFlag.ToLower.Contains("hardcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) + End If - If SlideFlag.ToLower.Contains("maledom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) - End If + If SlideFlag.ToLower.Contains("softcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) + End If - If SlideFlag.ToLower.Contains("captions") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) - End If + If SlideFlag.ToLower.Contains("lesbian") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) + End If - If SlideFlag.ToLower.Contains("general") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) - End If + If SlideFlag.ToLower.Contains("blowjob") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) + End If - If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) - End If + If SlideFlag.ToLower.Contains("femdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) + End If - If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) - End If + If SlideFlag.ToLower.Contains("lezdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) + End If + If SlideFlag.ToLower.Contains("hentai") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) + End If - CustomSlideshowTimer.Interval = 1000 - If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 - If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 + If SlideFlag.ToLower.Contains("gay") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) + End If + If SlideFlag.ToLower.Contains("maledom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) + End If - StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") - End If + If SlideFlag.ToLower.Contains("captions") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) + End If + + If SlideFlag.ToLower.Contains("general") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) + End If + + If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) + End If + + If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) + End If + + + CustomSlideshowTimer.Interval = 1000 + If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 + If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 + + + StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") + End If + + If StringClean.Contains("@SlideshowOn") Then + If ssh.CustomSlideshow.Count > 0 Then + ssh.CustomSlideEnabled = True + CustomSlideshowTimer.Start() + End If + StringClean = StringClean.Replace("@SlideshowOn", "") + End If - If StringClean.Contains("@SlideshowOn") Then - If ssh.CustomSlideshow.Count > 0 Then + If StringClean.Contains("@SlideshowOff") Then + ssh.CustomSlideEnabled = False + CustomSlideshowTimer.Stop() + StringClean = StringClean.Replace("@SlideshowOff", "") + End If + + If StringClean.Contains("@SlideshowFirst") Then ssh.CustomSlideEnabled = True - CustomSlideshowTimer.Start() + ShowImage(ssh.CustomSlideshow.FirstImage, False) + StringClean = StringClean.Replace("@SlideshowFirst", "") End If - StringClean = StringClean.Replace("@SlideshowOn", "") - End If - If StringClean.Contains("@SlideshowOff") Then - ssh.CustomSlideEnabled = False - CustomSlideshowTimer.Stop() - StringClean = StringClean.Replace("@SlideshowOff", "") - End If + If StringClean.Contains("@SlideshowLast") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.LastImage, False) + StringClean = StringClean.Replace("@SlideshowLast", "") + End If - If StringClean.Contains("@SlideshowFirst") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.FirstImage, False) - StringClean = StringClean.Replace("@SlideshowFirst", "") - End If + If StringClean.Contains("@SlideshowNext") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.NextImage, False) + StringClean = StringClean.Replace("@SlideshowNext", "") + End If - If StringClean.Contains("@SlideshowLast") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.LastImage, False) - StringClean = StringClean.Replace("@SlideshowLast", "") - End If + If StringClean.Contains("@SlideshowPrevious") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.PreviousImage, False) + StringClean = StringClean.Replace("@SlideshowPrevious", "") + End If + + If StringClean.Contains("@GotoSlideshow") Then + Dim ImageString As String = ssh.CustomSlideshow.CurrentImage + + If ImageString IsNot Nothing OrElse ImageString = "" Then + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" + + Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) - If StringClean.Contains("@SlideshowNext") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.NextImage, False) - StringClean = StringClean.Replace("@SlideshowNext", "") - End If + ssh.SkipGotoLine = True + GetGoto() + Else + Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." + Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") + End If - If StringClean.Contains("@SlideshowPrevious") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.PreviousImage, False) - StringClean = StringClean.Replace("@SlideshowPrevious", "") - End If + StringClean = StringClean.Replace("@GotoSlideshow", "") + End If + '---------------------------------------- + ' Slideshow - End + '---------------------------------------- + ' This Command will not work in the same line, because the Images are loaded async and not available yet. + If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) - If StringClean.Contains("@GotoSlideshow") Then - Dim ImageString As String = ssh.CustomSlideshow.CurrentImage - - If ImageString IsNot Nothing OrElse ImageString = "" Then - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" - - Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) + ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, + ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs + ' (including Long Edge and Start Stroking) or when the sub gives up. - ssh.SkipGotoLine = True - GetGoto() - Else - Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." - Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") + If StringClean.Contains("@LockImages") Then + ssh.LockImage = True + nextButton.Enabled = False + previousButton.Enabled = False + PicStripTSMIdommeSlideshow.Enabled = False + StringClean = StringClean.Replace("@LockImages", "") End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' ImageCommands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - StringClean = StringClean.Replace("@GotoSlideshow", "") - End If - '---------------------------------------- - ' Slideshow - End - '---------------------------------------- - ' This Command will not work in the same line, because the Images are loaded async and not available yet. - If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) - - ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, - ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs - ' (including Long Edge and Start Stroking) or when the sub gives up. - - If StringClean.Contains("@LockImages") Then - ssh.LockImage = True - nextButton.Enabled = False - previousButton.Enabled = False - PicStripTSMIdommeSlideshow.Enabled = False - StringClean = StringClean.Replace("@LockImages", "") - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' ImageCommands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command + ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command - ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). + If StringClean.Contains("@Chance") Then - If StringClean.Contains("@Chance") Then + Dim ChanceTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - Dim ChanceTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + TSStartIndex = StringClean.IndexOf("@Chance") + 7 + TSEndIndex = StringClean.IndexOf("@Chance") + 9 - TSStartIndex = StringClean.IndexOf("@Chance") + 7 - TSEndIndex = StringClean.IndexOf("@Chance") + 9 + ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + Dim ChanceVal As Integer - Dim ChanceVal As Integer + ChanceVal = Val(ChanceTemp) - ChanceVal = Val(ChanceTemp) + ssh.TempVal = ssh.randomizer.Next(1, 101) - ssh.TempVal = ssh.randomizer.Next(1, 101) + Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim - Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim + Dim ChanceSplit As String() = Split(ChanceString, ")") - Dim ChanceSplit As String() = Split(ChanceString, ")") + Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") + StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") - Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") - StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") + If ssh.TempVal <= ChanceVal Then - If ssh.TempVal <= ChanceVal Then + ssh.FileGoto = ChanceSplit(0) & ")" + ssh.SkipGotoLine = True - ssh.FileGoto = ChanceSplit(0) & ")" - ssh.SkipGotoLine = True + If ssh.YesOrNo = True Then + GetGotoChat() + Else + GetGoto() + End If - If ssh.YesOrNo = True Then - GetGotoChat() - Else - GetGoto() End If End If - End If - - ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of - ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using - ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() - ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, - ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. + ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of + ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using + ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() + ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, + ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - If StringClean.Contains("@CheckFlag") Then + If StringClean.Contains("@CheckFlag") Then - Dim CheckArray As String() = StringClean.Split(")") + Dim CheckArray As String() = StringClean.Split(")") - For i As Integer = 0 To CheckArray.Count - 1 + For i As Integer = 0 To CheckArray.Count - 1 - If CheckArray(i).Contains("@CheckFlag(") Then + If CheckArray(i).Contains("@CheckFlag(") Then - CheckArray(i) = CheckArray(i) & ")" + CheckArray(i) = CheckArray(i) & ")" - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") - Dim OriginalCheck As String = CheckFlag + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") + Dim OriginalCheck As String = CheckFlag - If CheckFlag.Contains(",") Then + If CheckFlag.Contains(",") Then - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - Dim FlagArray() As String = CheckFlag.Split(",") + Dim FlagArray() As String = CheckFlag.Split(",") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FlagArray(1) - GetGoto() - End If + ssh.SkipGotoLine = True + ssh.FileGoto = FlagArray(1) + GetGoto() + End If - Else + Else - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then - ssh.SkipGotoLine = True - ssh.FileGoto = CheckFlag - GetGoto() + ssh.SkipGotoLine = True + ssh.FileGoto = CheckFlag + GetGoto() + End If + End If + ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS + 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") + + StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") + End If - ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS - 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") + Next - StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") + ' StringClean = Join(CheckArray, Nothing) - End If + End If - Next - ' StringClean = Join(CheckArray, Nothing) +TaskCleanSet: - End If + ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). -TaskCleanSet: + If StringClean.Contains("@SetFlag(") Then + Dim SetArray As String() = StringClean.Split(")") - ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). + For i As Integer = 0 To SetArray.Count - 1 - If StringClean.Contains("@SetFlag(") Then + If SetArray(i).Contains("@SetFlag(") Then - Dim SetArray As String() = StringClean.Split(")") + SetArray(i) = SetArray(i) & ")" - For i As Integer = 0 To SetArray.Count - 1 + Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") + Dim OriginalSet As String = SetFlag - If SetArray(i).Contains("@SetFlag(") Then + If SetFlag.Contains(",") Then - SetArray(i) = SetArray(i) & ")" + SetFlag = SetFlag.Replace(", ", ",") + SetFlag = SetFlag.Replace(" ,", ",") - Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") - Dim OriginalSet As String = SetFlag + Dim FlagArray() As String = SetFlag.Split(",") - If SetFlag.Contains(",") Then + For x As Integer = 0 To FlagArray.Count - 1 - SetFlag = SetFlag.Replace(", ", ",") - SetFlag = SetFlag.Replace(" ,", ",") + CreateFlag(FlagArray(x)) - Dim FlagArray() As String = SetFlag.Split(",") + Next - For x As Integer = 0 To FlagArray.Count - 1 + Else - CreateFlag(FlagArray(x)) + CreateFlag(SetFlag) - Next + End If - Else + 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") - CreateFlag(SetFlag) + StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") End If - 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") + Next - StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") + 'StringClean = Join(SetArray, Nothing) - End If + End If - Next + ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. + ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). - 'StringClean = Join(SetArray, Nothing) + If StringClean.Contains("@TempFlag(") Then - End If + Dim TempArray As String() = StringClean.Split(")") - ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. - ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). + For i As Integer = 0 To TempArray.Count - 1 - If StringClean.Contains("@TempFlag(") Then + If TempArray(i).Contains("@TempFlag(") Then - Dim TempArray As String() = StringClean.Split(")") + TempArray(i) = TempArray(i) & ")" - For i As Integer = 0 To TempArray.Count - 1 + Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") + Dim OriginalTemp As String = TempFlag - If TempArray(i).Contains("@TempFlag(") Then + If TempFlag.Contains(",") Then - TempArray(i) = TempArray(i) & ")" + TempFlag = TempFlag.Replace(", ", ",") + TempFlag = TempFlag.Replace(" ,", ",") - Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") - Dim OriginalTemp As String = TempFlag + Dim FlagArray() As String = TempFlag.Split(",") - If TempFlag.Contains(",") Then + For x As Integer = 0 To FlagArray.Count - 1 - TempFlag = TempFlag.Replace(", ", ",") - TempFlag = TempFlag.Replace(" ,", ",") + CreateFlag(FlagArray(x), True) - Dim FlagArray() As String = TempFlag.Split(",") + Next - For x As Integer = 0 To FlagArray.Count - 1 + Else - CreateFlag(FlagArray(x), True) + CreateFlag(TempFlag, True) - Next + End If - Else + 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") - CreateFlag(TempFlag, True) + StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") End If - 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") + Next - StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") + 'StringClean = Join(TempArray, Nothing) - End If + End If - Next + ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. + ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). + ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). - 'StringClean = Join(TempArray, Nothing) - End If + If StringClean.Contains("@DeleteFlag(") Then - ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. - ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). - ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). + Dim DeleteArray As String() = StringClean.Split(")") + For i As Integer = 0 To DeleteArray.Count - 1 - If StringClean.Contains("@DeleteFlag(") Then + If DeleteArray(i).Contains("@DeleteFlag(") Then - Dim DeleteArray As String() = StringClean.Split(")") + DeleteArray(i) = DeleteArray(i) & ")" - For i As Integer = 0 To DeleteArray.Count - 1 + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") + Dim OriginalDelete As String = DFlag - If DeleteArray(i).Contains("@DeleteFlag(") Then + If DFlag.Contains(",") Then - DeleteArray(i) = DeleteArray(i) & ")" + DFlag = FixCommas(DFlag) - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") - Dim OriginalDelete As String = DFlag + Dim FlagArray() As String = DFlag.Split(",") - If DFlag.Contains(",") Then + For x As Integer = 0 To FlagArray.Count - 1 - DFlag = FixCommas(DFlag) + DeleteFlag(FlagArray(x)) - Dim FlagArray() As String = DFlag.Split(",") + Next - For x As Integer = 0 To FlagArray.Count - 1 + Else - DeleteFlag(FlagArray(x)) + DeleteFlag(DFlag) - Next + End If - Else + ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") - DeleteFlag(DFlag) + StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") End If - ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") - - StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") - - End If - - Next + Next - 'StringClean = Join(DeleteArray, Nothing) + 'StringClean = Join(DeleteArray, Nothing) - End If + End If - ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. - ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] - ' Multiple @SetVar[] Commands may be used per line if you wish. - ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | + ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. + ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] + ' Multiple @SetVar[] Commands may be used per line if you wish. + ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - If StringClean.Contains("@SetVar[") Then + If StringClean.Contains("@SetVar[") Then - Dim VarArray As String() = StringClean.Split + Dim VarArray As String() = StringClean.Split - For i As Integer = 0 To VarArray.Count - 1 + For i As Integer = 0 To VarArray.Count - 1 - Dim SCGotVar As String = "NULL" + Dim SCGotVar As String = "NULL" - If VarArray(i).Contains("@SetVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" + If VarArray(i).Contains("@SetVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" - SCGotVar = SCGotVar.Replace("@SetVar[", "") + SCGotVar = SCGotVar.Replace("@SetVar[", "") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Dim VarName As String = SCGotVarSplit(0) + Dim VarName As String = SCGotVarSplit(0) - SCGotVarSplit(0) = "" + SCGotVarSplit(0) = "" - SCGotVar = Join(SCGotVarSplit) + SCGotVar = Join(SCGotVarSplit) - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) - End If + End If - Next + Next - StringClean = Join(VarArray) + StringClean = Join(VarArray) - End If + End If - ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . - ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) - ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. - ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is - ' specified, "Days" will be used. + ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . + ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) + ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. + ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is + ' specified, "Days" will be used. - If StringClean.Contains("@SetDate(") Then + If StringClean.Contains("@SetDate(") Then - Dim CheckArray As String() = StringClean.Split(")") - Dim OriginalCheck As String + Dim CheckArray As String() = StringClean.Split(")") + Dim OriginalCheck As String - For i As Integer = 0 To CheckArray.Count - 1 + For i As Integer = 0 To CheckArray.Count - 1 - If CheckArray(i).Contains("@SetDate(") Then + If CheckArray(i).Contains("@SetDate(") Then - 'CheckArray(i) = CheckArray(i) & "]" + 'CheckArray(i) = CheckArray(i) & "]" - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") - OriginalCheck = CheckFlag + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") + OriginalCheck = CheckFlag - Debug.Print("Original Check = " & OriginalCheck) + Debug.Print("Original Check = " & OriginalCheck) - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - Dim FlagArray() As String = CheckFlag.Split(",") + Dim FlagArray() As String = CheckFlag.Split(",") - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) - If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ + If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) - Debug.Print("CheckArray(i) = " & CheckArray(i)) + Debug.Print("CheckArray(i) = " & CheckArray(i)) - ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") + ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") - StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") + StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") - End If + End If - Next + Next - 'StringClean = Join(CheckArray, Nothing) + 'StringClean = Join(CheckArray, Nothing) - End If + End If - ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] - ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. - ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line + ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] + ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. + ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line - If StringClean.Contains("@RoundVar[") Then + If StringClean.Contains("@RoundVar[") Then - Dim VarArray As String() = StringClean.Split + Dim VarArray As String() = StringClean.Split - For i As Integer = 0 To VarArray.Count - 1 + For i As Integer = 0 To VarArray.Count - 1 - Dim SCGotVar As String = "NULL" + Dim SCGotVar As String = "NULL" - If VarArray(i).Contains("@RoundVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" - End If + If VarArray(i).Contains("@RoundVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" + End If - SCGotVar = SCGotVar.Replace("@RoundVar[", "") + SCGotVar = SCGotVar.Replace("@RoundVar[", "") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Dim VarName As String = SCGotVarSplit(0) - Dim Val1 As Integer + Dim VarName As String = SCGotVarSplit(0) + Dim Val1 As Integer - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(VarCheck) Then - ' Read first line of the given file. - Val1 = CInt(TxtReadLine(VarCheck)) + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(VarCheck) Then + ' Read first line of the given file. + Val1 = CInt(TxtReadLine(VarCheck)) - SCGotVarSplit(0) = "" + SCGotVarSplit(0) = "" - SCGotVar = Join(SCGotVarSplit) + SCGotVar = Join(SCGotVarSplit) - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - Dim VarValue As Integer = Val(SCGotVar) + Dim VarValue As Integer = Val(SCGotVar) - Val1 = VarValue * Math.Round(Val1 / VarValue) + Val1 = VarValue * Math.Round(Val1 / VarValue) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) - End If + End If - ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") + ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") - Next + Next - StringClean = Join(VarArray) + StringClean = Join(VarArray) - End If + End If - ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] - ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created - ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / - 'More than one @ChangeVar[] Command can be used per line. + ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] + ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created + ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / + 'More than one @ChangeVar[] Command can be used per line. - If StringClean.Contains("@ChangeVar[") Then + If StringClean.Contains("@ChangeVar[") Then - Dim ChangeArray As String() = StringClean.Split + Dim ChangeArray As String() = StringClean.Split - For i As Integer = 0 To ChangeArray.Count - 1 + For i As Integer = 0 To ChangeArray.Count - 1 - Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) + Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) - If ChangeArray(i).Contains("@ChangeVar[") Then + If ChangeArray(i).Contains("@ChangeVar[") Then - Dim ChangeFlag As String = ChangeArray(i) - Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 + Dim ChangeFlag As String = ChangeArray(i) + Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 - Dim ChangeVar As String - Dim ChangeVal1 As String - Dim ChangeVal2 As String - Dim ChangeOperator As String + Dim ChangeVar As String + Dim ChangeVal1 As String + Dim ChangeVal2 As String + Dim ChangeOperator As String - Dim Val1 As Integer - Dim Val2 As Integer + Dim Val1 As Integer + Dim Val2 As Integer - ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) - ChangeVar = ChangeFlag.Split("]")(0) - ChangeVal1 = ChangeFlag.Split("]")(1) - ChangeVal2 = ChangeFlag.Split("]")(2) - ChangeOperator = ChangeFlag.Split("]")(2) + ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) + ChangeVar = ChangeFlag.Split("]")(0) + ChangeVal1 = ChangeFlag.Split("]")(1) + ChangeVal2 = ChangeFlag.Split("]")(2) + ChangeOperator = ChangeFlag.Split("]")(2) - ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") + ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") - ChangeVar = ChangeVar.Replace("@ChangeVar[", "") - ChangeVal1 = ChangeVal1.Replace("=[", "") - ChangeVal2 = ChangeVal2.Replace("+[", "") - ChangeVal2 = ChangeVal2.Replace("-[", "") - ChangeVal2 = ChangeVal2.Replace("*[", "") - ChangeVal2 = ChangeVal2.Replace("/[", "") + ChangeVar = ChangeVar.Replace("@ChangeVar[", "") + ChangeVal1 = ChangeVal1.Replace("=[", "") + ChangeVal2 = ChangeVal2.Replace("+[", "") + ChangeVal2 = ChangeVal2.Replace("-[", "") + ChangeVal2 = ChangeVal2.Replace("*[", "") + ChangeVal2 = ChangeVal2.Replace("/[", "") - '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] + '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] - If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) + If IsNumeric(ChangeVal1) = False Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) + Else + Val1 = 0 + End If Else - Val1 = 0 + Val1 = Val(ChangeVal1) End If - Else - Val1 = Val(ChangeVal1) - End If - If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) + If IsNumeric(ChangeVal2) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) + Else + Val2 = 0 + End If Else - Val2 = 0 + Val2 = Val(ChangeVal2) End If - Else - Val2 = Val(ChangeVal2) - End If - - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Dim ChangeVal As Integer = 0 - - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - - End If + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Next + Dim ChangeVal As Integer = 0 - End If + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] - ' More than one @ShowVar[] Commands can be used per line + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - If StringClean.Contains("@ShowVar[") Then + End If - Dim VarSplit As String() = StringClean.Split("]") + Next - For i As Integer = 0 To VarSplit.Count - 1 + End If - If VarSplit(i).Contains("@ShowVar[") Then + ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] + ' More than one @ShowVar[] Commands can be used per line - Dim VarString As String = VarSplit(i) & "]" + If StringClean.Contains("@ShowVar[") Then - Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") - Debug.Print("VarFlag = " & VarFlag) - Dim VarFlag2 As String = GetVariable(VarFlag) - Debug.Print("VarFlag2 = " & VarFlag2) - ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + Dim VarSplit As String() = StringClean.Split("]") - Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + For i As Integer = 0 To VarSplit.Count - 1 - StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) + If VarSplit(i).Contains("@ShowVar[") Then - End If + Dim VarString As String = VarSplit(i) & "]" - Next + Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") + Debug.Print("VarFlag = " & VarFlag) + Dim VarFlag2 As String = GetVariable(VarFlag) + Debug.Print("VarFlag2 = " & VarFlag2) + ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - End If + Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) - If StringClean.Contains("@ChastityOn") Then - My.Settings.Chastity = True - FrmSettings.LBLChastityState.Text = "ON" - FrmSettings.LBLChastityState.ForeColor = Color.Green - StringClean = StringClean.Replace("@ChastityOn", "") - End If + End If - If StringClean.Contains("@ChastityOff") Then - My.Settings.Chastity = False - FrmSettings.LBLChastityState.Text = "OFF" - FrmSettings.LBLChastityState.ForeColor = Color.Red - StringClean = StringClean.Replace("@ChastityOff", "") - End If + Next - If StringClean.Contains("@AddTokens(") Then + End If - Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenAdd As Integer - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenAdd = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd - Next - Else - TokenAdd = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd + If StringClean.Contains("@ChastityOn") Then + My.Settings.Chastity = True + FrmSettings.LBLChastityState.Text = "ON" + FrmSettings.LBLChastityState.ForeColor = Color.Green + StringClean = StringClean.Replace("@ChastityOn", "") End If - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + If StringClean.Contains("@ChastityOff") Then + My.Settings.Chastity = False + FrmSettings.LBLChastityState.Text = "OFF" + FrmSettings.LBLChastityState.ForeColor = Color.Red + StringClean = StringClean.Replace("@ChastityOff", "") + End If + If StringClean.Contains("@AddTokens(") Then - StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") + Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenAdd As Integer - End If + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenAdd = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd + Next + Else + TokenAdd = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd + End If + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - If StringClean.Contains("@RemoveTokens(") Then - Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenRemove As Integer + StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenRemove = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove - Next - Else - TokenRemove = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove End If - If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 - If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 - If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + If StringClean.Contains("@RemoveTokens(") Then + Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenRemove As Integer - StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenRemove = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove + Next + Else + TokenRemove = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove + End If - End If + If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 + If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 + If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 - If StringClean.Contains("@Add1Token") Then - ssh.BronzeTokens += 1 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add1Token", "") - End If + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - If StringClean.Contains("@Add3Tokens") Then - ssh.BronzeTokens += 3 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add3Tokens", "") - End If - If StringClean.Contains("@Add5Tokens") Then - ssh.BronzeTokens += 5 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - StringClean = StringClean.Replace("@Add5Tokens", "") - MessageBox.Show(Me, domName.Text & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - End If + StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") - If StringClean.Contains("@Add10Tokens") Then - ssh.BronzeTokens += 10 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add10Tokens", "") - End If + End If - If StringClean.Contains("@Add25Tokens") Then - ssh.BronzeTokens += 25 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add25Tokens", "") - End If + If StringClean.Contains("@Add1Token") Then + ssh.BronzeTokens += 1 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add1Token", "") + End If - If StringClean.Contains("@Add50Tokens") Then - ssh.BronzeTokens += 50 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") - End If + If StringClean.Contains("@Add3Tokens") Then + ssh.BronzeTokens += 3 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add3Tokens", "") + End If - If StringClean.Contains("@Add100Tokens") Then - ssh.BronzeTokens += 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") - End If + If StringClean.Contains("@Add5Tokens") Then + ssh.BronzeTokens += 5 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + StringClean = StringClean.Replace("@Add5Tokens", "") + MessageBox.Show(Me, domName.Text & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If - If StringClean.Contains("@Remove100Tokens") Then - ssh.BronzeTokens -= 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@@Remove100Tokens", "") - End If + If StringClean.Contains("@Add10Tokens") Then + ssh.BronzeTokens += 10 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add10Tokens", "") + End If + If StringClean.Contains("@Add25Tokens") Then + ssh.BronzeTokens += 25 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add25Tokens", "") + End If - If StringClean.Contains("@UpdateOrgasm") Then - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) + If StringClean.Contains("@Add50Tokens") Then + ssh.BronzeTokens += 50 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - 'Github Patch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + If StringClean.Contains("@Add100Tokens") Then + ssh.BronzeTokens += 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - StringClean = StringClean.Replace("@UpdateOrgasm", "") - End If + If StringClean.Contains("@Remove100Tokens") Then + ssh.BronzeTokens -= 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@@Remove100Tokens", "") + End If - If StringClean.Contains("@UpdateRuined") Then - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - ' GithubPatch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + If StringClean.Contains("@UpdateOrgasm") Then + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - StringClean = StringClean.Replace("@UpdateRuined", "") - End If + 'Github Patch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - If StringClean.Contains("@DeleteVar[") Then + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + StringClean = StringClean.Replace("@UpdateOrgasm", "") + End If - Dim DeleteArray As String() = StringClean.Split("]") + If StringClean.Contains("@UpdateRuined") Then + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - For i As Integer = 0 To DeleteArray.Count - 1 + ' GithubPatch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - If DeleteArray(i).Contains("@DeleteVar[") Then + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined + StringClean = StringClean.Replace("@UpdateRuined", "") + End If - DeleteArray(i) = DeleteArray(i) & "]" + If StringClean.Contains("@DeleteVar[") Then - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") - Dim OriginalDelete As String = DFlag + Dim DeleteArray As String() = StringClean.Split("]") - If DFlag.Contains(",") Then + For i As Integer = 0 To DeleteArray.Count - 1 - DFlag = FixCommas(DFlag) + If DeleteArray(i).Contains("@DeleteVar[") Then - Dim FlagArray() As String = DFlag.Split(",") + DeleteArray(i) = DeleteArray(i) & "]" - For x As Integer = 0 To FlagArray.Count - 1 + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") + Dim OriginalDelete As String = DFlag - DeleteVariable(FlagArray(x)) + If DFlag.Contains(",") Then - Next + DFlag = FixCommas(DFlag) - Else + Dim FlagArray() As String = DFlag.Split(",") - DeleteVariable(DFlag) + For x As Integer = 0 To FlagArray.Count - 1 - End If + DeleteVariable(FlagArray(x)) - 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") + Next - StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") + Else - End If + DeleteVariable(DFlag) - Next + End If - 'StringClean = Join(DeleteArray, Nothing) + 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") - End If + StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") - If StringClean.Contains("@PornAllowedOff") Then - CreateFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOff", "") - End If + End If - If StringClean.Contains("@PornAllowedOn") Then - DeleteFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOn", "") - End If + Next - If StringClean.Contains("@RestrictOrgasm(") Then + 'StringClean = Join(DeleteArray, Nothing) - Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") + End If - If CheckFlag.Contains(",") Then + If StringClean.Contains("@PornAllowedOff") Then + CreateFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOff", "") + End If - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + If StringClean.Contains("@PornAllowedOn") Then + DeleteFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOn", "") + End If - Dim FlagArray() As String = CheckFlag.Split(",") + If StringClean.Contains("@RestrictOrgasm(") Then - Dim Seconds1 As Integer = Val(FlagArray(0)) - Dim Seconds2 As Integer = Val(FlagArray(1)) + Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") - If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 - If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 - If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 - If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 - If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 - If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 + If CheckFlag.Contains(",") Then - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) + Dim FlagArray() As String = CheckFlag.Split(",") - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim Seconds1 As Integer = Val(FlagArray(0)) + Dim Seconds2 As Integer = Val(FlagArray(1)) - SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 + If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 + If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 + If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 + If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 + If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 - Else + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) - If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) - If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ - And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ - And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + Else - End If - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") - End If + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If StringClean.Contains("@RestrictOrgasm") Then - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm", "") - End If + If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) + If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) - If StringClean.Contains("@DecreaseOrgasmChance") Then + If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ + And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ + And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + End If + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") + End If - StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") - End If + If StringClean.Contains("@RestrictOrgasm") Then + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm", "") + End If - If StringClean.Contains("@IncreaseOrgasmChance") Then + If StringClean.Contains("@DecreaseOrgasmChance") Then - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") - End If + StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") + End If - If StringClean.Contains("@DecreaseRuinChance") Then + If StringClean.Contains("@IncreaseOrgasmChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - StringClean = StringClean.Replace("@DecreaseRuinChance", "") - End If + StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") + End If - If StringClean.Contains("@IncreaseRuinChance") Then + If StringClean.Contains("@DecreaseRuinChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - StringClean = StringClean.Replace("@IncreaseRuinChance", "") - End If + StringClean = StringClean.Replace("@DecreaseRuinChance", "") + End If - '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END + If StringClean.Contains("@IncreaseRuinChance") Then - If TaskClean = True Then Return StringClean + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. - ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set - ' for the Variable "NoPorn" by @SetDate() + StringClean = StringClean.Replace("@IncreaseRuinChance", "") + End If - If StringClean.Contains("@CheckDate(") Then + '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END - Dim CheckArray As String() = StringClean.Split(")") + If TaskClean = True Then Return StringClean - For i As Integer = 0 To CheckArray.Count - 1 - If CheckArray(i).Contains("@CheckDate(") Then + ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. + ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set + ' for the Variable "NoPorn" by @SetDate() - If CheckDateList(CheckArray(i), True) = True Then - Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") - DateFlag = FixCommas(DateFlag) - Dim DateArray As String() = DateFlag.Split(",") - ssh.SkipGotoLine = True - ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") - GetGoto() - End If + If StringClean.Contains("@CheckDate(") Then - StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") + Dim CheckArray As String() = StringClean.Split(")") - End If + For i As Integer = 0 To CheckArray.Count - 1 - Next + If CheckArray(i).Contains("@CheckDate(") Then - End If + If CheckDateList(CheckArray(i), True) = True Then + Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") + DateFlag = FixCommas(DateFlag) + Dim DateArray As String() = DateFlag.Split(",") + ssh.SkipGotoLine = True + ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") + GetGoto() + End If - ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) - ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. - ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> - ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. + StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") - If StringClean.Contains("@If[") Then + End If - Do + Next - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" + End If - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") - End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) - Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For - End If - Next + ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) + ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. + ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> + ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - If SCGotVar.Contains("]And[") Then + If StringClean.Contains("@If[") Then - Dim AndCheck As Boolean = True + Do - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" + + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") + End If + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) + Do + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") Exit For End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") Next - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + If SCGotVar.Contains("]And[") Then - ElseIf SCGotVar.Contains("]Or[") Then + Dim AndCheck As Boolean = True - Dim OrCheck As Boolean = False + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If - - Else - - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + ElseIf SCGotVar.Contains("]Or[") Then - End If + Dim OrCheck As Boolean = False - Loop Until Not StringClean.Contains("@If") + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next - End If + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. - ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the - ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next - ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. + Else - If StringClean.Contains("@InputVar[") Then + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") - ssh.InputFlag = True - If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True + End If - StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") + Loop Until Not StringClean.Contains("@If") - End If + End If + ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. + ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the + ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next + ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. - ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt + If StringClean.Contains("@InputVar[") Then - If StringClean.Contains("@DislikeBlogImage") Then + ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") + ssh.InputFlag = True + If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True - If ssh.ImageLocation <> "" Then + StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) - End If - StringClean = StringClean.Replace("@DislikeBlogImage", "") End If - End If - ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt + ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt - If StringClean.Contains("@LikeBlogImage") Then + If StringClean.Contains("@DislikeBlogImage") Then - If ssh.ImageLocation <> "" Then + If ssh.ImageLocation <> "" Then - If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) + End If + StringClean = StringClean.Replace("@DislikeBlogImage", "") End If - StringClean = StringClean.Replace("@LikeBlogImage", "") - End If - - End If - - Debug.Print("SubStroking = " & ssh.SubStroking) - Debug.Print("SubEdging = " & ssh.SubEdging) - Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ + End If - If StringClean.Contains("@StrokeFaster") Then - ssh.StrokeFaster = True - StringClean = StringClean.Replace("@StrokeFaster", "") - End If + ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ + If StringClean.Contains("@LikeBlogImage") Then - If StringClean.Contains("@StrokeSlower") Then - ssh.StrokeSlower = True - StringClean = StringClean.Replace("@StrokeSlower", "") - End If + If ssh.ImageLocation <> "" Then - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) + End If + StringClean = StringClean.Replace("@LikeBlogImage", "") + End If - If StringClean.Contains("@StrokeFastest") Then - ssh.StrokeFastest = True - StringClean = StringClean.Replace("@StrokeFastest", "") - End If + End If - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ + Debug.Print("SubStroking = " & ssh.SubStroking) + Debug.Print("SubEdging = " & ssh.SubEdging) + Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) - If StringClean.Contains("@StrokeSlowest") Then - ssh.StrokeSlowest = True - StringClean = StringClean.Replace("@StrokeSlowest", "") - End If + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ + If StringClean.Contains("@StrokeFaster") Then + ssh.StrokeFaster = True + StringClean = StringClean.Replace("@StrokeFaster", "") + End If - If StringClean.Contains("@StartStroking") Then + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ - If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) + If StringClean.Contains("@StrokeSlower") Then + ssh.StrokeSlower = True + StringClean = StringClean.Replace("@StrokeSlower", "") End If - SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try + If StringClean.Contains("@StrokeFastest") Then + ssh.StrokeFastest = True + StringClean = StringClean.Replace("@StrokeFastest", "") End If - If StringClean.Contains("@Contact1") Then ssh.Contact1Stroke = True - If StringClean.Contains("@Contact2") Then ssh.Contact2Stroke = True - If StringClean.Contains("@Contact3") Then ssh.Contact3Stroke = True - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 - If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - If ssh.WorshipMode = True Then - StrokePace = NBMinPace.Value + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ + + If StringClean.Contains("@StrokeSlowest") Then ssh.StrokeSlowest = True + StringClean = StringClean.Replace("@StrokeSlowest", "") End If - ClearModes() - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + If StringClean.Contains("@StartStroking") Then - If ssh.WorshipMode = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 + If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) End If - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 - End If + SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try + End If + If StringClean.Contains("@Contact1") Then ssh.Contact1Stroke = True + If StringClean.Contains("@Contact2") Then ssh.Contact2Stroke = True + If StringClean.Contains("@Contact3") Then ssh.Contact3Stroke = True + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 + If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + If ssh.WorshipMode = True Then + StrokePace = NBMinPace.Value + ssh.StrokeSlowest = True + End If - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - 'StrokeThread = New Thread(AddressOf StrokeLoop) - 'StrokeThread.IsBackground = True - 'StrokeThread.SetApartmentState(ApartmentState.STA) - 'StrokeThread.Start() - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartStroking", "") - End If + ClearModes() - If StringClean.Contains("@StartTaunts") Then - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - ssh.StartStrokingCount += 1 - ' github patch StrokePace = 0 - ' github patch StrokePaceTimer.Interval = StrokePace + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + + If ssh.WorshipMode = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 + End If - ClearModes() + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 + End If - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - End If - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartTaunts", "") - End If - If StringClean.Contains("@StopStroking") Then - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try + + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + 'StrokeThread = New Thread(AddressOf StrokeLoop) + 'StrokeThread.IsBackground = True + 'StrokeThread.SetApartmentState(ApartmentState.STA) + 'StrokeThread.Start() + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartStroking", "") End If - If ssh.Contact1Stroke = True Then - StringClean = StringClean & "@Contact1" - ssh.Contact1Stroke = False + + If StringClean.Contains("@StartTaunts") Then + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + ssh.StartStrokingCount += 1 + ' github patch StrokePace = 0 + ' github patch StrokePaceTimer.Interval = StrokePace + + ClearModes() + + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + End If + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartTaunts", "") End If - If ssh.Contact2Stroke = True Then - StringClean = StringClean & "@Contact2" - ssh.Contact2Stroke = False + + If StringClean.Contains("@StopStroking") Then + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If + If ssh.Contact1Stroke = True Then + StringClean = StringClean & "@Contact1" + ssh.Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + StringClean = StringClean & "@Contact2" + ssh.Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + StringClean = StringClean & "@Contact3" + ssh.Contact3Stroke = False + End If + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False + ssh.ExtremeHold = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + StrokePace = 0 + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopStroking", "") End If - If ssh.Contact3Stroke = True Then - StringClean = StringClean & "@Contact3" - ssh.Contact3Stroke = False + + If StringClean.Contains("@StopTaunts") Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopTaunts", "") End If - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False - ssh.ExtremeHold = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - StrokePace = 0 - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopStroking", "") - End If - If StringClean.Contains("@StopTaunts") Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopTaunts", "") - End If + If StringClean.Contains("@LongHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.LongHold = True - If StringClean.Contains("@LongHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.LongHold = True + StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") + End If - StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") - End If + If StringClean.Contains("@ExtremeHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True - If StringClean.Contains("@ExtremeHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True + StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") + End If - StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") - End If + If StringClean.Contains("@LongHold") Then + ssh.LongHold = True + StringClean = StringClean.Replace("@LongHold", "") + End If - If StringClean.Contains("@LongHold") Then - ssh.LongHold = True - StringClean = StringClean.Replace("@LongHold", "") - End If + If StringClean.Contains("@ExtremeHold") Then + ssh.ExtremeHold = True + StringClean = StringClean.Replace("@ExtremeHold", "") + End If - If StringClean.Contains("@ExtremeHold") Then - ssh.ExtremeHold = True - StringClean = StringClean.Replace("@ExtremeHold", "") - End If + If StringClean.Contains("@MultipleEdges(") Then - If StringClean.Contains("@MultipleEdges(") Then + If StringClean.Contains("@Edg") Then - If StringClean.Contains("@Edg") Then + Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") - Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") + If EdgeArray.Count = 3 Then + + If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then + ssh.MultipleEdges = True + ssh.MultipleEdgesAmount = Val(EdgeArray(0)) + ssh.MultipleEdgesInterval = Val(EdgeArray(1)) + End If - If EdgeArray.Count = 3 Then + Else - If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then ssh.MultipleEdges = True ssh.MultipleEdgesAmount = Val(EdgeArray(0)) ssh.MultipleEdgesInterval = Val(EdgeArray(1)) - End If - - Else - ssh.MultipleEdges = True - ssh.MultipleEdgesAmount = Val(EdgeArray(0)) - ssh.MultipleEdgesInterval = Val(EdgeArray(1)) + End If End If + StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") + End If - StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") - End If + If StringClean.Contains("@Edge(") Then + ContactEdgeCheck(StringClean) - If StringClean.Contains("@Edge(") Then + Edge() - ContactEdgeCheck(StringClean) + If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True + If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True + If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False - Edge() + If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True - If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True - If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True - If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False + If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True - If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True + If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True - If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True + If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False - If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True + If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then + If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False + End If - If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False + If GetMatch(StringClean, "@Edge(", "LongHold") = True Then + ssh.EdgeHold = True + ssh.LongHold = True + End If + If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then + ssh.EdgeHold = True + ssh.ExtremeHold = True + End If + If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True Then + If ssh.LongHold = True Then ssh.LongTaunts = True + End If - If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then - If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False End If - If GetMatch(StringClean, "@Edge(", "LongHold") = True Then - ssh.EdgeHold = True - ssh.LongHold = True - End If - If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then - ssh.EdgeHold = True - ssh.ExtremeHold = True - End If - If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True Then - If ssh.LongHold = True Then ssh.LongTaunts = True - End If - End If + If StringClean.Contains("@EdgeMode(") Then + Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") - If StringClean.Contains("@EdgeMode(") Then + If UCase(EdgeArray(0)).Contains("GOTO") Then + ssh.EdgeGoto = True + ssh.EdgeGotoLine = EdgeArray(1) + End If - Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") + If UCase(EdgeArray(0)).Contains("MESSAGE") Then + ssh.EdgeMessage = True + ssh.EdgeMessageText = EdgeArray(1) + End If - If UCase(EdgeArray(0)).Contains("GOTO") Then - ssh.EdgeGoto = True - ssh.EdgeGotoLine = EdgeArray(1) - End If + If UCase(EdgeArray(0)).Contains("VIDEO") Then + ssh.EdgeVideo = True + ssh.EdgeGotoLine = EdgeArray(1) + End If - If UCase(EdgeArray(0)).Contains("MESSAGE") Then - ssh.EdgeMessage = True - ssh.EdgeMessageText = EdgeArray(1) - End If + If UCase(EdgeArray(0)).Contains("NORMAL") Then + ssh.EdgeGoto = False + ssh.EdgeMessage = False + ssh.EdgeVideo = False + End If - If UCase(EdgeArray(0)).Contains("VIDEO") Then - ssh.EdgeVideo = True - ssh.EdgeGotoLine = EdgeArray(1) + StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") End If - If UCase(EdgeArray(0)).Contains("NORMAL") Then - ssh.EdgeGoto = False - ssh.EdgeMessage = False - ssh.EdgeVideo = False + If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") End If - StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") - End If + If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then - If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") - End If + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") - If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then + If EdgeHoldFlag.Contains(",") Then - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - If EdgeHoldFlag.Contains(",") Then + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + Else - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - Else + End If - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + EdgeHoldFlag = True + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") End If - EdgeHoldFlag = True - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") - End If + If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") + End If + If StringClean.Contains("@EdgeToRuinNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuinSecret = False + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") + End If - If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") - End If + If StringClean.Contains("@EdgeToRuinNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") + End If - If StringClean.Contains("@EdgeToRuinNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuinSecret = False - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") - End If + If StringClean.Contains("@EdgeToRuinHold(") Then - If StringClean.Contains("@EdgeToRuinNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") - End If + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") + + If EdgeHoldFlag.Contains(",") Then - If StringClean.Contains("@EdgeToRuinHold(") Then + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - If EdgeHoldFlag.Contains(",") Then + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + Else - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + End If - Else + EdgeHoldFlag = True - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") End If - EdgeHoldFlag = True + If StringClean.Contains("@EdgeToRuinHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinHold", "") + End If - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True + If StringClean.Contains("@EdgeToRuin") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuin", "") + End If - StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") - End If + If StringClean.Contains("@EdgeNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + StringClean = StringClean.Replace("@EdgeNoHold", "") + End If - If StringClean.Contains("@EdgeToRuinHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinHold", "") - End If - If StringClean.Contains("@EdgeToRuin") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuin", "") - End If + ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well + ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds + ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes + ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D + ' + 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. - If StringClean.Contains("@EdgeNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - StringClean = StringClean.Replace("@EdgeNoHold", "") - End If + If StringClean.Contains("@EdgeHold(") Then + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") - ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well - ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds - ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes - ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D - ' - 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. + If EdgeHoldFlag.Contains(",") Then - If StringClean.Contains("@EdgeHold(") Then + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - If EdgeHoldFlag.Contains(",") Then + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + Else - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + End If - Else + EdgeHoldFlag = True - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - End If + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") - EdgeHoldFlag = True + End If - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") + If StringClean.Contains("@EdgeHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold", "") + End If - End If + If StringClean.Contains("@Edge") Then + ContactEdgeCheck(StringClean) + Edge() + StringClean = StringClean.Replace("@Edge", "") + End If + If StringClean.Contains("@CBTBalls") Then + If FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBallsActive = True + ssh.CBTBallsFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If + StringClean = StringClean.Replace("@CBTBalls", "") + End If - If StringClean.Contains("@EdgeHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold", "") - End If + If StringClean.Contains("@CBTCock") Then + If FrmSettings.CBCBTCock.Checked = True Then + ssh.CBTCockActive = True + ssh.CBTCockFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If + StringClean = StringClean.Replace("@CBTCock", "") + End If - If StringClean.Contains("@Edge") Then - ContactEdgeCheck(StringClean) - Edge() - StringClean = StringClean.Replace("@Edge", "") - End If + If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then - If StringClean.Contains("@CBTBalls") Then - If FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBallsActive = True - ssh.CBTBallsFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If - StringClean = StringClean.Replace("@CBTBalls", "") - End If + If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBothActive = True + ssh.CBTBothFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If - If StringClean.Contains("@CBTCock") Then - If FrmSettings.CBCBTCock.Checked = True Then - ssh.CBTCockActive = True - ssh.CBTCockFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + StringClean = StringClean.Replace("@CBT", "") End If - StringClean = StringClean.Replace("@CBTCock", "") - End If - If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then - If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBothActive = True - ssh.CBTBothFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If + ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, + ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. - StringClean = StringClean.Replace("@CBT", "") - End If + If StringClean.Contains("@CustomTask(") Then + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") - ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, - ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. + CustomFlag = FixCommas(CustomFlag) - If StringClean.Contains("@CustomTask(") Then + Dim CustomArray As String() = CustomFlag.Split(",") - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then + ssh.CustomTask = True + ssh.CustomTaskActive = True + ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" + ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" + End If - CustomFlag = FixCommas(CustomFlag) + If CustomArray.Count > 1 Then + ssh.TasksCount = Val(CustomArray(1)) + Else + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If - Dim CustomArray As String() = CustomFlag.Split(",") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then - ssh.CustomTask = True - ssh.CustomTaskActive = True - ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" - ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" - End If + StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") - If CustomArray.Count > 1 Then - ssh.TasksCount = Val(CustomArray(1)) - Else - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If - StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") + If StringClean.Contains("@DecideOrgasm") Then - End If + ssh.OrgasmDenied = False + ssh.OrgasmAllowed = False + ssh.OrgasmRuined = False + Dim AllowGoto As String = "Orgasm Allow" + Dim RuinGoto As String = "Orgasm Ruin" + Dim DenyGoto As String = "Orgasm Deny" - If StringClean.Contains("@DecideOrgasm") Then + If StringClean.Contains("@DecideOrgasm(") Then - ssh.OrgasmDenied = False - ssh.OrgasmAllowed = False - ssh.OrgasmRuined = False + Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") + OrgasmFlag = FixCommas(OrgasmFlag) + Dim OrgasmArray As String() = OrgasmFlag.Split(",") - Dim AllowGoto As String = "Orgasm Allow" - Dim RuinGoto As String = "Orgasm Ruin" - Dim DenyGoto As String = "Orgasm Deny" + If OrgasmArray.Count = 3 Then + AllowGoto = OrgasmArray(0) + RuinGoto = OrgasmArray(1) + DenyGoto = OrgasmArray(2) + End If - If StringClean.Contains("@DecideOrgasm(") Then + End If - Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") - OrgasmFlag = FixCommas(OrgasmFlag) - Dim OrgasmArray As String() = OrgasmFlag.Split(",") - If OrgasmArray.Count = 3 Then - AllowGoto = OrgasmArray(0) - RuinGoto = OrgasmArray(1) - DenyGoto = OrgasmArray(2) + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then + ssh.FileGoto = RuinGoto + ssh.OrgasmRuined = True + GoTo OrgasmDecided End If - End If + Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim OrgasmThreshold As Integer + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True - GoTo OrgasmDecided - End If + If FrmSettings.CBRangeOrgasm.Checked = True Then + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 + Else + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value + End If - Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim OrgasmThreshold As Integer - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 + If OrgasmInt > OrgasmThreshold Then + ssh.FileGoto = DenyGoto + ssh.OrgasmDenied = True + GoTo OrgasmDecided + End If - If FrmSettings.CBRangeOrgasm.Checked = True Then - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 - Else - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value - End If + Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim RuinThreshold As Integer + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 - If OrgasmInt > OrgasmThreshold Then - ssh.FileGoto = DenyGoto - ssh.OrgasmDenied = True - GoTo OrgasmDecided - End If - Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim RuinThreshold As Integer + If FrmSettings.CBRangeRuin.Checked = True Then + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 + Else + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value + End If - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 + If RuinInt > RuinThreshold Then + ssh.FileGoto = AllowGoto + ssh.OrgasmAllowed = True + Else + ssh.FileGoto = RuinGoto + ssh.OrgasmRuined = True + End If - If FrmSettings.CBRangeRuin.Checked = True Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 - Else - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value - End If +OrgasmDecided: + ssh.SkipGotoLine = True + GetGoto() - If RuinInt > RuinThreshold Then - ssh.FileGoto = AllowGoto - ssh.OrgasmAllowed = True - Else - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True + StringClean = StringClean.Replace("@DecideOrgasm", "") End If -OrgasmDecided: - - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@DecideOrgasm", "") - End If + If StringClean.Contains("@OrgasmRuin") Then + ssh.FileGoto = "Orgasm Ruin" + ssh.OrgasmRuined = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmRuin", "") + End If + If StringClean.Contains("@OrgasmDeny") Then + ssh.FileGoto = "Orgasm Deny" + ssh.OrgasmDenied = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmDeny", "") + End If - If StringClean.Contains("@OrgasmRuin") Then - ssh.FileGoto = "Orgasm Ruin" - ssh.OrgasmRuined = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmRuin", "") - End If + If StringClean.Contains("@OrgasmAllow") Then + ssh.FileGoto = "Orgasm Allow" + ssh.OrgasmAllowed = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmAllow", "") + End If - If StringClean.Contains("@OrgasmDeny") Then - ssh.FileGoto = "Orgasm Deny" - ssh.OrgasmDenied = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmDeny", "") - End If - If StringClean.Contains("@OrgasmAllow") Then - ssh.FileGoto = "Orgasm Allow" - ssh.OrgasmAllowed = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmAllow", "") - End If + ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) + ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. + If StringClean.Contains("@Glitter(") Then - ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) - ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. + ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") + Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") - If StringClean.Contains("@Glitter(") Then + If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then + ssh.UpdateList.Clear() + ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") + StatusUpdatePost() + End If + End If - ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") - Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") + StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then - ssh.UpdateList.Clear() - ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") - StatusUpdatePost() - End If End If - StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - - End If + If StringClean.Contains("@WritingTask(") Then - If StringClean.Contains("@WritingTask(") Then + ssh.WritingTaskFlag = True - ssh.WritingTaskFlag = True + Dim WTTempString As String() = Split(StringClean, "@WritingTask(", 2) + Dim WTTemp As String() = Split(WTTempString(1), ")") + LBLWritingTaskText.Text = WTTemp(0) + LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") - Dim WTTempString As String() = Split(StringClean, "@WritingTask(", 2) - Dim WTTemp As String() = Split(WTTempString(1), ")") - LBLWritingTaskText.Text = WTTemp(0) - LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) - LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) - LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") + Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) + 'Debug.Print("WritingTaskVal = " & WritingTaskVal) - Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) - 'Debug.Print("WritingTaskVal = " & WritingTaskVal) + If WritingTaskVal = 0 Then + ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) + ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) + Else + ssh.WritingTaskLinesAmount = WritingTaskVal + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") + End If - If WritingTaskVal = 0 Then - ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) - ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) - Else - ssh.WritingTaskLinesAmount = WritingTaskVal - LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") - End If + LBLLinesWritten.Text = "0" + LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount - LBLLinesWritten.Text = "0" - LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount + If PNLWritingTask.Visible = False Then + CloseApp(PNLWritingTask) + End If - If PNLWritingTask.Visible = False Then - CloseApp(PNLWritingTask) - End If + 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) - 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) + 'determine error numbers based on numbers of lines to write + ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) + 'clamps the value between 2 and 10 errors + ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) + ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) - 'determine error numbers based on numbers of lines to write - ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) - 'clamps the value between 2 and 10 errors - ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) - ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) + LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed + LBLMistakesMade.Text = "0" + StringClean = StringClean.Replace("@WritingTask", "") + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." + ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount + ssh.WritingTaskLinesWritten = 0 + ssh.WritingTaskMistakesMade = 0 + chatBox.ShortcutsEnabled = False + ChatBox2.ShortcutsEnabled = False - LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed - LBLMistakesMade.Text = "0" - StringClean = StringClean.Replace("@WritingTask", "") - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." - ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount - ssh.WritingTaskLinesWritten = 0 - ssh.WritingTaskMistakesMade = 0 - chatBox.ShortcutsEnabled = False - ChatBox2.ShortcutsEnabled = False + If My.Settings.TimedWriting = True Then - If My.Settings.TimedWriting = True Then + Dim secs As Single - Dim secs As Single + 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings + '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) + secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * LBLWritingTaskText.Text.Length + 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some + 'more time for very short lines + ssh.WritingTaskCurrentTime = 5 + secs * ssh.WritingTaskLinesAmount - 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings - '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) - secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * LBLWritingTaskText.Text.Length - 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some - 'more time for very short lines - ssh.WritingTaskCurrentTime = 5 + secs * ssh.WritingTaskLinesAmount + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") + Else + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") + End If - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") - Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") End If - End If - - If StringClean.Contains("@CheckJOIVideo") Then + If StringClean.Contains("@CheckJOIVideo") Then - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then + Else + ssh.SkipGotoLine = True + ssh.FileGoto = "No JOI Found" + GetGoto() + End If Else ssh.SkipGotoLine = True ssh.FileGoto = "No JOI Found" GetGoto() End If - Else - ssh.SkipGotoLine = True - ssh.FileGoto = "No JOI Found" - GetGoto() + + StringClean = StringClean.Replace("@CheckJOIVideo", "") + End If - StringClean = StringClean.Replace("@CheckJOIVideo", "") - End If + If StringClean.Contains("@PlayJOIVideo") Then + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - If StringClean.Contains("@PlayJOIVideo") Then + ssh.TeaseVideo = True + PlayRandomJOI() + End If - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + StringClean = StringClean.Replace("@PlayJOIVideo", "") - ssh.TeaseVideo = True - PlayRandomJOI() End If - StringClean = StringClean.Replace("@PlayJOIVideo", "") + If StringClean.Contains("@PlayCHVideo") Then - End If + If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then - If StringClean.Contains("@PlayCHVideo") Then + ssh.TeaseVideo = True + PlayRandomCH() + End If - If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then + StringClean = StringClean.Replace("@PlayCHVideo", "") - ssh.TeaseVideo = True - PlayRandomCH() End If - StringClean = StringClean.Replace("@PlayCHVideo", "") - - End If + If StringClean.Contains("@GiveUpCheck") Then - If StringClean.Contains("@GiveUpCheck") Then + If ssh.AskedToGiveUpSection = True Then - If ssh.AskedToGiveUpSection = True Then + If ssh.SubGaveUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" + Else + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" + End If + 'StringClean = ResponseClean(StringClean) - If ssh.SubGaveUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" Else - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" - End If - 'StringClean = ResponseClean(StringClean) - Else - - ssh.AskedToGiveUpSection = True - ssh.AskedToGiveUp = True + ssh.AskedToGiveUpSection = True + ssh.AskedToGiveUp = True - Dim GiveUpCheck As Integer + Dim GiveUpCheck As Integer - If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 - If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 - If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 - If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 - If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 + If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 + If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 + If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 + If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 + If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 - Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) - 'If GiveUpVal > GiveUpCheck Then - If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then - ' you can give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + 'If GiveUpVal > GiveUpCheck Then + If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then + ' you can give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.SubGaveUp = True + ssh.FirstRound = False + Else + ' you can't give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" End If - ssh.SubGaveUp = True - ssh.FirstRound = False - Else - ' you can't give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" - End If - End If + End If - StringClean = ResponseClean(StringClean) + StringClean = ResponseClean(StringClean) - End If + End If - If StringClean.Contains("@EndTease") Then - SetVariable("SYS_SubLeftEarly", 0) - 'My.Settings.Sys_SubLeftEarly = 0 - 'StopEverything() - 'ResetButton() - ssh.Reset() - FrmSettings.LockOrgasmChances(False) - ssh.DomTask = "@SystemMessage Tease AI has been reset" - ssh.DomChat = "@SystemMessage Tease AI has been reset" - StringClean = StringClean.Replace("@EndTease", "") - End If + If StringClean.Contains("@EndTease") Then + SetVariable("SYS_SubLeftEarly", 0) + 'My.Settings.Sys_SubLeftEarly = 0 + 'StopEverything() + 'ResetButton() + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + ssh.DomTask = "@SystemMessage Tease AI has been reset" + ssh.DomChat = "@SystemMessage Tease AI has been reset" + StringClean = StringClean.Replace("@EndTease", "") + End If - If StringClean.Contains("@FinishTease") Then - ssh.TeaseTick = 0 - StringClean = StringClean.Replace("@FinishTease", "") - End If + If StringClean.Contains("@FinishTease") Then + ssh.TeaseTick = 0 + StringClean = StringClean.Replace("@FinishTease", "") + End If - If StringClean.Contains("@DommeLevelDown") Then - If FrmSettings.domlevelNumBox.Value > 1 Then - FrmSettings.domlevelNumBox.Value -= 1 + If StringClean.Contains("@DommeLevelDown") Then + If FrmSettings.domlevelNumBox.Value > 1 Then + FrmSettings.domlevelNumBox.Value -= 1 + End If + StringClean = StringClean.Replace("@DommeLevelDown", "") End If - StringClean = StringClean.Replace("@DommeLevelDown", "") - End If - If StringClean.Contains("@ApathyLevelDown") Then - If FrmSettings.NBEmpathy.Value > 1 Then - FrmSettings.NBEmpathy.Value -= 1 + If StringClean.Contains("@ApathyLevelDown") Then + If FrmSettings.NBEmpathy.Value > 1 Then + FrmSettings.NBEmpathy.Value -= 1 + End If + StringClean = StringClean.Replace("@ApathyLevelDown", "") End If - StringClean = StringClean.Replace("@ApathyLevelDown", "") - End If - If StringClean.Contains("@DommeLevelUp") Then - If FrmSettings.domlevelNumBox.Value < 5 Then - FrmSettings.domlevelNumBox.Value += 1 + If StringClean.Contains("@DommeLevelUp") Then + If FrmSettings.domlevelNumBox.Value < 5 Then + FrmSettings.domlevelNumBox.Value += 1 + End If + StringClean = StringClean.Replace("@DommeLevelUp", "") End If - StringClean = StringClean.Replace("@DommeLevelUp", "") - End If - If StringClean.Contains("@ApathyLevelUp") Then - If FrmSettings.NBEmpathy.Value < 5 Then - FrmSettings.NBEmpathy.Value += 1 + If StringClean.Contains("@ApathyLevelUp") Then + If FrmSettings.NBEmpathy.Value < 5 Then + FrmSettings.NBEmpathy.Value += 1 + End If + StringClean = StringClean.Replace("@ApathyLevelUp", "") End If - StringClean = StringClean.Replace("@ApathyLevelUp", "") - End If - If StringClean.Contains("@InterruptLongEdge") Then + If StringClean.Contains("@InterruptLongEdge") Then - Dim EdgeList As New List(Of String) + Dim EdgeList As New List(Of String) - For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - EdgeList.Add(EdgeFile) - Next + For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + EdgeList.Add(EdgeFile) + Next - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - If EdgeList.Count > 0 Then + If EdgeList.Count > 0 Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) - ssh.LockImage = False - ssh.MiniScript = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) + ssh.LockImage = False + ssh.MiniScript = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + StringClean = StringClean.Replace("@InterruptLongEdge", "") + ssh.JustShowedBlogImage = True End If - StringClean = StringClean.Replace("@InterruptLongEdge", "") - ssh.JustShowedBlogImage = True - End If - - If StringClean.Contains("@InterruptStartStroking") Then - If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then - StringClean = "Ask me later" - GoTo VTSkip - End If + If StringClean.Contains("@InterruptStartStroking") Then - Dim StrokeList As New List(Of String) + If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then + StringClean = "Ask me later" + GoTo VTSkip + End If - For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - StrokeList.Add(StrokeFile) - Next + Dim StrokeList As New List(Of String) - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) + For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + StrokeList.Add(StrokeFile) + Next - If StrokeList.Count > 0 Then + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True - ssh.MiniScript = False + If StrokeList.Count > 0 Then - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - StringClean = StringClean.Replace("@InterruptStartStroking", "") - ssh.JustShowedBlogImage = True - End If - - If StringClean.Contains("@Interrupt(") Then - Dim InterruptClean As String = StringClean - Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 - For i As Integer = 1 To StartIndex - InterruptClean = InterruptClean.Remove(0, 1) - Next - Dim InterruptS As String() = InterruptClean.Split(")") - InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" - - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then - - ssh.FirstRound = False - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True + ssh.MiniScript = False - ssh.FileText = InterruptClean - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True - - ssh.MiniScript = False - - Else - MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + StringClean = StringClean.Replace("@InterruptStartStroking", "") + ssh.JustShowedBlogImage = True End If - StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") - 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") - ssh.JustShowedBlogImage = True - End If - If StringClean.Contains("@BookmarkModule") Then - ssh.BookmarkModule = True - ssh.BookmarkModuleFile = ssh.FileText - ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkModule", "") - End If - - If StringClean.Contains("@BookmarkLink") Then - ssh.BookmarkLink = True - ssh.BookmarkLinkFile = ssh.FileText - ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkLink", "") - End If - - If StringClean.Contains("@AFKOn") Then - ssh.AFK = True - StringClean = StringClean.Replace("@AFKOn", "") - End If - - If StringClean.Contains("@AFKOff") Then - ssh.AFK = False - StringClean = StringClean.Replace("@AFKOff", "") - End If - - If StringClean.Contains("@Wait(") Then - - Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") - Dim WaitSeconds As Integer = Val(WaitFlag) - - If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 - If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 - - ssh.WaitTick = WaitSeconds - WaitTimer.Start() - - StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") - - End If - - - - If StringClean.Contains("@SendDailyTasks") Then - CreateTaskLetter() - StringClean = StringClean.Replace("@SendDailyTasks", "") - End If + If StringClean.Contains("@Interrupt(") Then + Dim InterruptClean As String = StringClean + Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 + For i As Integer = 1 To StartIndex + InterruptClean = InterruptClean.Remove(0, 1) + Next + Dim InterruptS As String() = InterruptClean.Split(")") + InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" - If StringClean.Contains("@EdgingHold") Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - ssh.SubHoldingEdge = True - EdgeTauntTimer.Stop() - 'DomChat = "#HoldTheEdge" - 'TypingDelay() + ssh.FirstRound = False + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() - ssh.HoldEdgeTick = ssh.HoldEdgeChance + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + ssh.FileText = InterruptClean + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + ssh.MiniScript = False - If ssh.ExtremeHold = True Then - HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 + Else + MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") + 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") + ssh.JustShowedBlogImage = True End If - If ssh.LongHold = True Then - HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 + If StringClean.Contains("@BookmarkModule") Then + ssh.BookmarkModule = True + ssh.BookmarkModuleFile = ssh.FileText + ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkModule", "") End If + If StringClean.Contains("@BookmarkLink") Then + ssh.BookmarkLink = True + ssh.BookmarkLinkFile = ssh.FileText + ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkLink", "") + End If - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - - ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - - ssh.HoldEdgeTime = 0 + If StringClean.Contains("@AFKOn") Then + ssh.AFK = True + StringClean = StringClean.Replace("@AFKOn", "") + End If - HoldEdgeTimer.Start() - HoldEdgeTauntTimer.Start() + If StringClean.Contains("@AFKOff") Then + ssh.AFK = False + StringClean = StringClean.Replace("@AFKOff", "") + End If - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + If StringClean.Contains("@Wait(") Then + Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") + Dim WaitSeconds As Integer = Val(WaitFlag) - StringClean = StringClean.Replace("@EdgingHold", "") - End If + If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 + If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 - If StringClean.Contains("@EdgingStop") Then + ssh.WaitTick = WaitSeconds + WaitTimer.Start() - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() - 'DomChat = "#StopStrokingEdge" - 'TypingDelay() + StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + End If - StringClean = StringClean.Replace("@EdgingStop", "") - End If - 'Github Patch If StringClean.Contains("@EdgingDecide") Then - If StringClean.Contains("@DecideEdge") Then - ssh.TempVal = ssh.randomizer.Next(0, 101) + If StringClean.Contains("@SendDailyTasks") Then + CreateTaskLetter() + StringClean = StringClean.Replace("@SendDailyTasks", "") + End If - If ssh.TempVal < 51 Then + If StringClean.Contains("@EdgingHold") Then ssh.DomTypeCheck = True ssh.SubEdging = False ssh.SubStroking = False ssh.SubHoldingEdge = True EdgeTauntTimer.Stop() - StrokePace = 0 - ssh.DomChat = "#HoldTheEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #HoldTheEdge" - ' Github Patch Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #HoldTheEdge" - ' Github Patch Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #HoldTheEdge" - ' Github Patch Contact3Stroke = False - End If - TypingDelay() + 'DomChat = "#HoldTheEdge" + 'TypingDelay() ssh.HoldEdgeTick = ssh.HoldEdgeChance @@ -11350,6 +11254,17 @@ OrgasmDecided: Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + If ssh.ExtremeHold = True Then + HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 + End If + + If ssh.LongHold = True Then + HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 + End If + + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) @@ -11360,1332 +11275,1402 @@ OrgasmDecided: HoldEdgeTimer.Start() HoldEdgeTauntTimer.Start() - Else + Do + Application.DoEvents() + Loop Until ssh.DomTypeCheck = False + + + StringClean = StringClean.Replace("@EdgingHold", "") + End If + + If StringClean.Contains("@EdgingStop") Then ssh.DomTypeCheck = True ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() - ssh.DomChat = "#StopStrokingEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #StopStrokingEdge" - ssh.Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #StopStrokingEdge" - ssh.Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #StopStrokingEdge" - ssh.Contact3Stroke = False - End If - TypingDelay() + 'DomChat = "#StopStrokingEdge" + 'TypingDelay() + + Do + Application.DoEvents() + Loop Until ssh.DomTypeCheck = False + StringClean = StringClean.Replace("@EdgingStop", "") End If - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + 'Github Patch If StringClean.Contains("@EdgingDecide") Then + If StringClean.Contains("@DecideEdge") Then + ssh.TempVal = ssh.randomizer.Next(0, 101) - StringClean = StringClean.Replace("@DecideEdge", "") - End If + If ssh.TempVal < 51 Then - If StringClean.Contains("@CheckVideo") Then - ssh.VideoCheck = True - RandomVideo() - If ssh.NoVideo = True Then - ssh.FileGoto = "(No Videos Found)" - Else - ssh.FileGoto = "(Videos Found)" + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + ssh.SubHoldingEdge = True + EdgeTauntTimer.Stop() + StrokePace = 0 + ssh.DomChat = "#HoldTheEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #HoldTheEdge" + ' Github Patch Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #HoldTheEdge" + ' Github Patch Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #HoldTheEdge" + ' Github Patch Contact3Stroke = False + End If + TypingDelay() + + ssh.HoldEdgeTick = ssh.HoldEdgeChance + + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + + ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + + ssh.HoldEdgeTime = 0 + + HoldEdgeTimer.Start() + HoldEdgeTauntTimer.Start() + + Else + + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() + ssh.DomChat = "#StopStrokingEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #StopStrokingEdge" + ssh.Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #StopStrokingEdge" + ssh.Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #StopStrokingEdge" + ssh.Contact3Stroke = False + End If + TypingDelay() + + End If + + Do + Application.DoEvents() + Loop Until ssh.DomTypeCheck = False + + + StringClean = StringClean.Replace("@DecideEdge", "") + End If + + If StringClean.Contains("@CheckVideo") Then + ssh.VideoCheck = True + RandomVideo() + If ssh.NoVideo = True Then + ssh.FileGoto = "(No Videos Found)" + Else + ssh.FileGoto = "(Videos Found)" + End If + ssh.VideoCheck = False + ssh.NoVideo = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckVideo", "") End If - ssh.VideoCheck = False - ssh.NoVideo = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckVideo", "") - End If - If StringClean.Contains("@PlayCensorshipSucks") Then + If StringClean.Contains("@PlayCensorshipSucks") Then - RandomVideo() + RandomVideo() - If ssh.NoVideo = False Then - ssh.ScriptVideoTease = "Censorship Sucks" - ssh.ScriptVideoTeaseFlag = True - ssh.ScriptVideoTeaseFlag = False - ssh.CensorshipGame = True - ssh.VideoTease = True - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - CensorshipTimer.Start() + If ssh.NoVideo = False Then + ssh.ScriptVideoTease = "Censorship Sucks" + ssh.ScriptVideoTeaseFlag = True + ssh.ScriptVideoTeaseFlag = False + ssh.CensorshipGame = True + ssh.VideoTease = True + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + CensorshipTimer.Start() + End If + + StringClean = StringClean.Replace("@PlayCensorshipSucks", "") End If - StringClean = StringClean.Replace("@PlayCensorshipSucks", "") - End If + If StringClean.Contains("@VitalSubAssignment") Then + ' Read all lines of the given file. + Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") - If StringClean.Contains("@VitalSubAssignment") Then - ' Read all lines of the given file. - Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") + Dim TempAssign As String - Dim TempAssign As String + Try + AssignList = FilterList(AssignList) + TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) + Catch + TempAssign = "ERROR: VitalSub Assign" + End Try - Try - AssignList = FilterList(AssignList) - TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) - Catch - TempAssign = "ERROR: VitalSub Assign" - End Try + Dim TempArray As String() = Split(TempAssign) - Dim TempArray As String() = Split(TempAssign) + For i As Integer = TempArray.Count - 1 To 0 Step -1 + If TempArray(i).Contains("@") Then TempArray(i) = "" + Next - For i As Integer = TempArray.Count - 1 To 0 Step -1 - If TempArray(i).Contains("@") Then TempArray(i) = "" - Next + CLBExercise.Items.Add(TempAssign) + SaveExercise() + CBVitalSubDomTask.Checked = False + My.Settings.VitalSubAssignments = False + StringClean = StringClean.Replace("@VitalSubAssignment", "") + End If - CLBExercise.Items.Add(TempAssign) - SaveExercise() - CBVitalSubDomTask.Checked = False - My.Settings.VitalSubAssignments = False - StringClean = StringClean.Replace("@VitalSubAssignment", "") - End If + If StringClean.Contains("@PlayAvoidTheEdge") Then + ' #### Reboot - If StringClean.Contains("@PlayAvoidTheEdge") Then - ' #### Reboot + RandomVideo() - RandomVideo() + If ssh.NoVideo = False Then + + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "Avoid The Edge" + ssh.ScriptVideoTeaseFlag = True + ssh.AvoidTheEdgeStroking = True + ssh.AvoidTheEdgeGame = True + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + AvoidTheEdgeTaunts.Start() - If ssh.NoVideo = False Then + End If + + StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") + End If + If StringClean.Contains("@ResumeAvoidTheEdge") Then + DomWMP.Ctlcontrols.play() ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "Avoid The Edge" - ssh.ScriptVideoTeaseFlag = True ssh.AvoidTheEdgeStroking = True - ssh.AvoidTheEdgeGame = True - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True + ssh.SubStroking = True ssh.StartStrokingCount += 1 + ssh.VideoTease = True StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) StrokePace = 50 * Math.Round(StrokePace / 50) ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() - + StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") End If - StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") - End If + If StringClean.Contains("@PlayRedLightGreenLight") Then + ' #### Reboot - If StringClean.Contains("@ResumeAvoidTheEdge") Then - DomWMP.Ctlcontrols.play() - ScriptTimer.Stop() - ssh.AvoidTheEdgeStroking = True - ssh.SubStroking = True - ssh.StartStrokingCount += 1 - ssh.VideoTease = True - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - AvoidTheEdgeTaunts.Start() - StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") - End If + RandomVideo() - If StringClean.Contains("@PlayRedLightGreenLight") Then - ' #### Reboot + If ssh.NoVideo = False Then - RandomVideo() + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "RLGL" + ssh.ScriptVideoTeaseFlag = True + 'AvoidTheEdgeStroking = True + ssh.RLGLGame = True - If ssh.NoVideo = False Then - - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "RLGL" - ssh.ScriptVideoTeaseFlag = True - 'AvoidTheEdgeStroking = True - ssh.RLGLGame = True - - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - RLGLTimer.Start() - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - 'VideoTauntTick = randomizer.Next(20, 31) - 'VideoTauntTimer.Start() + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + RLGLTimer.Start() + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + 'VideoTauntTick = randomizer.Next(20, 31) + 'VideoTauntTimer.Start() + End If + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") End If - StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") - End If - If StringClean.Contains("@PlayVideo[") Then + If StringClean.Contains("@PlayVideo[") Then - Dim VideoFlag As String = GetParentheses(StringClean, "@PlayVideo[") - Dim VideoClean As String + Dim VideoFlag As String = GetParentheses(StringClean, "@PlayVideo[") + Dim VideoClean As String - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If VideoFlag.Contains(":\") Then - VideoClean = VideoFlag + If VideoFlag.Contains(":\") Then + VideoClean = VideoFlag - If File.Exists(VideoClean) Then - DomWMP.URL = VideoClean - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True + If File.Exists(VideoClean) Then + DomWMP.URL = VideoClean + DomWMP.Visible = True + mainPictureBox.Visible = False + ssh.TeaseVideo = True - If ssh.JumpVideo = True Then + If ssh.JumpVideo = True Then - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + End If + + ssh.JumpVideo = False + + Else + MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - ssh.JumpVideo = False + GoTo ExternalVideo Else - MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + VideoClean = Application.StartupPath & "\Video\" & VideoFlag + VideoClean = VideoClean.Replace("\\", "\") End If - GoTo ExternalVideo - Else - VideoClean = Application.StartupPath & "\Video\" & VideoFlag - VideoClean = VideoClean.Replace("\\", "\") - End If + Debug.Print("VideoFlag = " & VideoFlag) + If VideoClean.Contains("*") Then - Debug.Print("VideoFlag = " & VideoFlag) + Dim VideoList As New List(Of String) - If VideoClean.Contains("*") Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(VideoClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(VideoClean)) + VideoList.Add(foundFile) + Next - Dim VideoList As New List(Of String) + If VideoList.Count > 0 Then + DomWMP.URL = VideoList(ssh.randomizer.Next(0, VideoList.Count)) + DomWMP.Visible = True + mainPictureBox.Visible = False + ssh.TeaseVideo = True - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(VideoClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(VideoClean)) - VideoList.Add(foundFile) - Next + If ssh.JumpVideo = True Then - If VideoList.Count > 0 Then - DomWMP.URL = VideoList(ssh.randomizer.Next(0, VideoList.Count)) - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - If ssh.JumpVideo = True Then + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + End If + ssh.JumpVideo = False + Else + MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - ssh.JumpVideo = False Else - MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - - Else - If File.Exists(VideoClean) Then - DomWMP.URL = VideoClean - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True + If File.Exists(VideoClean) Then + DomWMP.URL = VideoClean + DomWMP.Visible = True + mainPictureBox.Visible = False + ssh.TeaseVideo = True - If ssh.JumpVideo = True Then + If ssh.JumpVideo = True Then - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - End If + End If - ssh.JumpVideo = False + ssh.JumpVideo = False - Else - MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & + Else + MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + End If - End If + End If ExternalVideo: - StringClean = StringClean.Replace("@PlayVideo[" & VideoFlag & "]", "") - End If + StringClean = StringClean.Replace("@PlayVideo[" & VideoFlag & "]", "") + End If - If StringClean.Contains("@PlayAudio[") Then + If StringClean.Contains("@PlayAudio[") Then - Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") - ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag - Dim AudioClean As String + Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") + ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag + Dim AudioClean As String - If AudioFlag.Contains(":\") And Not AudioFlag.Contains("*") Then - AudioClean = AudioFlag + If AudioFlag.Contains(":\") And Not AudioFlag.Contains("*") Then + AudioClean = AudioFlag - If File.Exists(AudioClean) Then - DomWMP.URL = AudioClean - Else - MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & + If File.Exists(AudioClean) Then + DomWMP.URL = AudioClean + Else + MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + End If - GoTo ExternalAudio + GoTo ExternalAudio - Else + Else - AudioClean = Application.StartupPath & "\Audio\" & AudioFlag - AudioClean = AudioClean.Replace("\\", "\") - End If + AudioClean = Application.StartupPath & "\Audio\" & AudioFlag + AudioClean = AudioClean.Replace("\\", "\") + End If - If AudioClean.Contains("*") Then + If AudioClean.Contains("*") Then - Dim AudioList As New List(Of String) + Dim AudioList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) - AudioList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) + AudioList.Add(foundFile) + Next - If AudioList.Count > 0 Then - DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) - Else - MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & + If AudioList.Count > 0 Then + DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) + Else + MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + End If - Else + Else - If File.Exists(AudioClean) Then - DomWMP.URL = AudioClean - Else - MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & + If File.Exists(AudioClean) Then + DomWMP.URL = AudioClean + Else + MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + End If - End If + End If ExternalAudio: - StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") + StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") - End If + End If - If StringClean.Contains("@PlayVideo(") Then + If StringClean.Contains("@PlayVideo(") Then - Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") - Dim VidInt As Integer = Val(VidFlag) - If UCase(VidFlag).Contains("M") Then VidInt *= 60 + Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") + Dim VidInt As Integer = Val(VidFlag) + If UCase(VidFlag).Contains("M") Then VidInt *= 60 - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - ssh.RandomizerVideo = True - RandomVideo() + ssh.RandomizerVideo = True + RandomVideo() - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - ssh.VideoTick = VidInt - VideoTimer.Start() - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + ssh.VideoTick = VidInt + VideoTimer.Start() + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") End If - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") - End If + If StringClean.Contains("@PlayVideo") Then - If StringClean.Contains("@PlayVideo") Then + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + ssh.RandomizerVideo = True + RandomVideo() - ssh.RandomizerVideo = True - RandomVideo() + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") End If - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") - End If - - If StringClean.Contains("@JumpVideo") Then + If StringClean.Contains("@JumpVideo") Then - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - Debug.Print("VidLow = " & VidLow) - Debug.Print("VidHigh = " & VidHigh) - Debug.Print("VidPoint = " & VidPoint) + Debug.Print("VidLow = " & VidLow) + Debug.Print("VidHigh = " & VidHigh) + Debug.Print("VidPoint = " & VidPoint) - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + End If + StringClean = StringClean.Replace("@JumpVideo", "") End If - StringClean = StringClean.Replace("@JumpVideo", "") - End If - If StringClean.Contains("@AddStrokeTime(") Then + If StringClean.Contains("@AddStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + End If + ssh.StrokeTick += StrokeSeconds End If - ssh.StrokeTick += StrokeSeconds + StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@RemoveStrokeTime(") Then + If StringClean.Contains("@RemoveStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + End If + ssh.StrokeTick -= StrokeSeconds + If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 End If - ssh.StrokeTick -= StrokeSeconds - If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 + StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@AddStrokeTime") Then - If StrokeTimer.Enabled = True Then - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + If StringClean.Contains("@AddStrokeTime") Then + If StrokeTimer.Enabled = True Then + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + End If End If + StringClean = StringClean.Replace("@AddStrokeTime", "") End If - StringClean = StringClean.Replace("@AddStrokeTime", "") - End If - If StringClean.Contains("@RemoveStrokeTime") Then - If StrokeTimer.Enabled = True Then - ssh.StrokeTick -= ssh.StrokeTick / 2 + If StringClean.Contains("@RemoveStrokeTime") Then + If StrokeTimer.Enabled = True Then + ssh.StrokeTick -= ssh.StrokeTick / 2 + End If + StringClean = StringClean.Replace("@RemoveStrokeTime", "") End If - StringClean = StringClean.Replace("@RemoveStrokeTime", "") - End If - If StringClean.Contains("@AddEdgeHoldTime(") Then + If StringClean.Contains("@AddEdgeHoldTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If HoldEdgeTimer.Enabled = True Then + If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + End If + ssh.HoldEdgeTick += HoldEdgeSeconds End If - ssh.HoldEdgeTick += HoldEdgeSeconds + StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@RemoveEdgeHoldTime(") Then + If StringClean.Contains("@RemoveEdgeHoldTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If HoldEdgeTimer.Enabled = True Then + If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + End If + ssh.HoldEdgeTick -= HoldEdgeSeconds + If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 End If - ssh.HoldEdgeTick -= HoldEdgeSeconds - If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 + StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@AddEdgeHoldTime") Then + If StringClean.Contains("@AddEdgeHoldTime") Then - If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + If HoldEdgeTimer.Enabled = True Then + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + End If + StringClean = StringClean.Replace("@AddEdgeHoldTime", "") End If - StringClean = StringClean.Replace("@AddEdgeHoldTime", "") - End If - If StringClean.Contains("@RemoveEdgeHoldTime") Then - If HoldEdgeTimer.Enabled = True Then - ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + If StringClean.Contains("@RemoveEdgeHoldTime") Then + If HoldEdgeTimer.Enabled = True Then + ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + End If + StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") - End If - If StringClean.Contains("@AddTeaseTime(") Then + If StringClean.Contains("@AddTeaseTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If TeaseTimer.Enabled = True Then + If TeaseTimer.Enabled = True Then - Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") - OriginalFlag = TeaseFlag - Dim TeaseSeconds As Integer + Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") + OriginalFlag = TeaseFlag + Dim TeaseSeconds As Integer - If TeaseFlag.Contains(",") Then - TeaseFlag = FixCommas(TeaseFlag) - Dim TeaseFlagArray As String() = TeaseFlag.Split(",") - Dim Tease1 As Integer = Val(TeaseFlagArray(0)) - Dim Tease2 As Integer = Val(TeaseFlagArray(1)) - If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 - If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 - If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 - If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 - TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) - Else - TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + If TeaseFlag.Contains(",") Then + TeaseFlag = FixCommas(TeaseFlag) + Dim TeaseFlagArray As String() = TeaseFlag.Split(",") + Dim Tease1 As Integer = Val(TeaseFlagArray(0)) + Dim Tease2 As Integer = Val(TeaseFlagArray(1)) + If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 + If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 + If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 + If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 + TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) + Else + TeaseSeconds = Val(TeaseFlag) + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + End If + ssh.TeaseTick += TeaseSeconds End If - ssh.TeaseTick += TeaseSeconds + StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@RemoveTeaseTime(") Then + If StringClean.Contains("@RemoveTeaseTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If TeaseTimer.Enabled = True Then + If TeaseTimer.Enabled = True Then - Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") - OriginalFlag = TeaseFlag - Dim TeaseSeconds As Integer + Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") + OriginalFlag = TeaseFlag + Dim TeaseSeconds As Integer - If TeaseFlag.Contains(",") Then - TeaseFlag = FixCommas(TeaseFlag) - Dim TeaseFlagArray As String() = TeaseFlag.Split(",") - Dim Tease1 As Integer = Val(TeaseFlagArray(0)) - Dim Tease2 As Integer = Val(TeaseFlagArray(1)) - If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 - If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 - If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 - If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 - TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) - Else - TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + If TeaseFlag.Contains(",") Then + TeaseFlag = FixCommas(TeaseFlag) + Dim TeaseFlagArray As String() = TeaseFlag.Split(",") + Dim Tease1 As Integer = Val(TeaseFlagArray(0)) + Dim Tease2 As Integer = Val(TeaseFlagArray(1)) + If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 + If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 + If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 + If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 + TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) + Else + TeaseSeconds = Val(TeaseFlag) + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + End If + ssh.TeaseTick -= TeaseSeconds + If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 End If - ssh.TeaseTick -= TeaseSeconds - If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 + StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@AddTeaseTime") Then - If TeaseTimer.Enabled = True Then - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + If StringClean.Contains("@AddTeaseTime") Then + If TeaseTimer.Enabled = True Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If End If + StringClean = StringClean.Replace("@AddTeaseTime", "") End If - StringClean = StringClean.Replace("@AddTeaseTime", "") - End If - If StringClean.Contains("@RemoveTeaseTime") Then - If TeaseTimer.Enabled = True Then - ssh.TeaseTick = ssh.TeaseTick / 2 + If StringClean.Contains("@RemoveTeaseTime") Then + If TeaseTimer.Enabled = True Then + ssh.TeaseTick = ssh.TeaseTick / 2 + End If + StringClean = StringClean.Replace("@RemoveTeaseTime", "") End If - StringClean = StringClean.Replace("@RemoveTeaseTime", "") - End If - If StringClean.Contains("@PlaylistOff") Then - ssh.Playlist = False - StringClean = StringClean.Replace("@PlaylistOff", "") - End If + If StringClean.Contains("@PlaylistOff") Then + ssh.Playlist = False + StringClean = StringClean.Replace("@PlaylistOff", "") + End If - If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then - ssh.RapidFire = True - StringClean = StringClean.Replace("@RapidTextOn", "") - StringClean = StringClean.Replace("@RTOn", "") - End If + If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then + ssh.RapidFire = True + StringClean = StringClean.Replace("@RapidTextOn", "") + StringClean = StringClean.Replace("@RTOn", "") + End If - If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("@RTOff") Then - ssh.RapidFire = False - StringClean = StringClean.Replace("@RapidTextOff", "") - StringClean = StringClean.Replace("@RTOff", "") - End If + If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("@RTOff") Then + ssh.RapidFire = False + StringClean = StringClean.Replace("@RapidTextOff", "") + StringClean = StringClean.Replace("@RTOff", "") + End If - If StringClean.Contains("@AddContact1") Or StringClean.Contains("@RemoveContact1") Then - ssh.AddContactTick = 2 - Contact1Timer.Start() - StringClean = StringClean.Replace("@AddContact1", "") - StringClean = StringClean.Replace("@RemoveContact1", "") - End If + If StringClean.Contains("@AddContact1") Or StringClean.Contains("@RemoveContact1") Then + ssh.AddContactTick = 2 + Contact1Timer.Start() + StringClean = StringClean.Replace("@AddContact1", "") + StringClean = StringClean.Replace("@RemoveContact1", "") + End If - If StringClean.Contains("@AddContact2") Or StringClean.Contains("@RemoveContact2") Then - ssh.AddContactTick = 2 - Contact2Timer.Start() - StringClean = StringClean.Replace("@AddContact2", "") - StringClean = StringClean.Replace("@RemoveContact2", "") - End If + If StringClean.Contains("@AddContact2") Or StringClean.Contains("@RemoveContact2") Then + ssh.AddContactTick = 2 + Contact2Timer.Start() + StringClean = StringClean.Replace("@AddContact2", "") + StringClean = StringClean.Replace("@RemoveContact2", "") + End If - If StringClean.Contains("@AddContact3") Or StringClean.Contains("@RemoveContact3") Then - ssh.AddContactTick = 2 - Contact3Timer.Start() - StringClean = StringClean.Replace("@AddContact3", "") - StringClean = StringClean.Replace("@RemoveContact3", "") - End If + If StringClean.Contains("@AddContact3") Or StringClean.Contains("@RemoveContact3") Then + ssh.AddContactTick = 2 + Contact3Timer.Start() + StringClean = StringClean.Replace("@AddContact3", "") + StringClean = StringClean.Replace("@RemoveContact3", "") + End If - If StringClean.Contains("@AddDomme") Or StringClean.Contains("@RemoveDomme") Then - ssh.AddContactTick = 2 - DommeTimer.Start() - StringClean = StringClean.Replace("@AddDomme", "") - StringClean = StringClean.Replace("@RemoveDomme", "") - End If + If StringClean.Contains("@AddDomme") Or StringClean.Contains("@RemoveDomme") Then + ssh.AddContactTick = 2 + DommeTimer.Start() + StringClean = StringClean.Replace("@AddDomme", "") + StringClean = StringClean.Replace("@RemoveDomme", "") + End If - If StringClean.Contains("@NullResponse") Then - ssh.NullResponse = True - StringClean = StringClean.Replace("@NullResponse", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@NullResponse") Then + ssh.NullResponse = True + StringClean = StringClean.Replace("@NullResponse", "") + 'Debug.Print("NullResponse Called") + End If VTSkip: - If StringClean.Contains("@SpeedUpCheck") Then - - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" - StringClean = ResponseClean(StringClean) - - Else + If StringClean.Contains("@SpeedUpCheck") Then - If StrokePace < 201 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" StringClean = ResponseClean(StringClean) Else - Dim SpeedUpCheck As Integer - - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - - If SpeedUpVal > SpeedUpCheck Then - - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" + If StrokePace < 201 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + StringClean = ResponseClean(StringClean) Else - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" + Dim SpeedUpCheck As Integer - End If + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - StringClean = ResponseClean(StringClean) + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - End If + If SpeedUpVal > SpeedUpCheck Then - End If + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" - StringClean = StringClean.Replace("@SpeedUpCheck", "") - GoTo RinseLatherRepeat - End If + Else + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" - If StringClean.Contains("@SlowDownCheck") Then + End If - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" - StringClean = ResponseClean(StringClean) + StringClean = ResponseClean(StringClean) - Else + End If - If StrokePace > 999 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" - StringClean = ResponseClean(StringClean) + End If - Else + StringClean = StringClean.Replace("@SpeedUpCheck", "") + GoTo RinseLatherRepeat + End If - Dim SpeedUpCheck As Integer - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + If StringClean.Contains("@SlowDownCheck") Then - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" + StringClean = ResponseClean(StringClean) - If SpeedUpVal > SpeedUpCheck Then + Else - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" + If StrokePace > 999 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" + StringClean = ResponseClean(StringClean) Else - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + Dim SpeedUpCheck As Integer - End If + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - StringClean = ResponseClean(StringClean) + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - End If + If SpeedUpVal > SpeedUpCheck Then - End If + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" - StringClean = StringClean.Replace("@SlowDownCheck", "") - GoTo RinseLatherRepeat + Else - End If + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + End If - If StringClean.Contains("@PlayRiskyPick") Then - ssh.RiskyDeal = True - 'FrmCardList.RiskyRound += 1 - FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - FrmCardList.InitializeRiskyDeal() - StringClean = StringClean.Replace("@PlayRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + StringClean = ResponseClean(StringClean) - If StringClean.Contains("@ChooseRiskyPick") Then - ssh.RiskyDelay = True - If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True - If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True - If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True - If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True - If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True - If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True - If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True - If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True - If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True - If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True - - If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True - If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True - If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True - If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True - If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True - If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True - If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True - If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True - If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True - If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True - - If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True - If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True - If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True - If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True - - FrmCardList.RiskyChoiceCount = 0 - FrmCardList.RiskyRound += 1 - FrmCardList.RiskyPickCount = 0 - FrmCardList.RiskyChoices.Clear() - FrmCardList.ClearCaseLabelsOffer() - 'FrmCardList.Show() - 'FrmCardList.TCGames.SelectTab(4) - 'FrmCardList.Focus() - - StringClean = StringClean.Replace("@ChooseRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + End If + End If - If StringClean.Contains("@CheckRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.CheckRiskyPick() - StringClean = StringClean.Replace("@CheckRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + StringClean = StringClean.Replace("@SlowDownCheck", "") + GoTo RinseLatherRepeat - If StringClean.Contains("@FinalRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.BTNRiskIt.Text = "LAST CASE" - FrmCardList.BTNPickIt.Text = "MY CASE" - StringClean = StringClean.Replace("@FinalRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + End If - If StringClean.Contains("@ClearRiskyLabels") Then - 'FrmCardList.Focus() - FrmCardList.ClearCaseLabelsOffer() - StringClean = StringClean.Replace("@ClearRiskyLabels", "") - 'Debug.Print("NullResponse Called") - End If - If StringClean.Contains("@RiskyPayout") Then - If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then - FrmCardList.GameWMP.settings.setMode("loop", False) - FrmCardList.GameWMP.settings.volume = 20 - FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" + If StringClean.Contains("@PlayRiskyPick") Then + ssh.RiskyDeal = True + 'FrmCardList.RiskyRound += 1 + FrmCardList.TCGames.SelectTab(2) + FrmCardList.Show() + FrmCardList.Focus() + FrmCardList.InitializeRiskyDeal() + StringClean = StringClean.Replace("@PlayRiskyPick", "") + 'Debug.Print("NullResponse Called") End If - ssh.BronzeTokens += FrmCardList.TokensPaid - FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) - StringClean = StringClean.Replace("@RiskyPayout", "") - End If - If StringClean.Contains("@CloseRiskyPick") Then - FrmCardList.CloseRiskyPick() - StringClean = StringClean.Replace("@CloseRiskyPick", "") - End If + If StringClean.Contains("@ChooseRiskyPick") Then + ssh.RiskyDelay = True + If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True + If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True + If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True + If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True + If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True + If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True + If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True + If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True + If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True + If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True - If StringClean.Contains("@RevealLastCase") Then - FrmCardList.RevealLastCase() - StringClean = StringClean.Replace("@RevealLastCase", "") - End If + If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True + If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True + If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True + If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True + If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True + If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True + If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True + If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True + If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True + If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True - If StringClean.Contains("@RevealUserCase") Then - FrmCardList.RevealUserCase() - StringClean = StringClean.Replace("@RevealUserCase", "") - End If + If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True + If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True + If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True + If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True - If StringClean.Contains("@RiskyState") Then - If FrmCardList.RiskyState = True Then - ssh.FileGoto = "(Risky Game)" - Else - ssh.FileGoto = "(Risky Tease)" + FrmCardList.RiskyChoiceCount = 0 + FrmCardList.RiskyRound += 1 + FrmCardList.RiskyPickCount = 0 + FrmCardList.RiskyChoices.Clear() + FrmCardList.ClearCaseLabelsOffer() + 'FrmCardList.Show() + 'FrmCardList.TCGames.SelectTab(4) + 'FrmCardList.Focus() + + StringClean = StringClean.Replace("@ChooseRiskyPick", "") + 'Debug.Print("NullResponse Called") End If - FrmCardList.RiskyState = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@RiskyState", "") - End If - If StringClean.Contains("@SystemMessage ") Then - StringClean = StringClean.Replace("@SystemMessage ", "") - End If - If StringClean.Contains("@EmoteMessage ") Then - StringClean = StringClean.Replace("@EmoteMessage ", "") - End If + If StringClean.Contains("@CheckRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.CheckRiskyPick() + StringClean = StringClean.Replace("@CheckRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@CallReturn(") Then + If StringClean.Contains("@FinalRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.BTNRiskIt.Text = "LAST CASE" + FrmCardList.BTNPickIt.Text = "MY CASE" + StringClean = StringClean.Replace("@FinalRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + If StringClean.Contains("@ClearRiskyLabels") Then + 'FrmCardList.Focus() + FrmCardList.ClearCaseLabelsOffer() + StringClean = StringClean.Replace("@ClearRiskyLabels", "") + 'Debug.Print("NullResponse Called") + End If - ssh.ReturnFileText = ssh.FileText - ssh.ReturnStrokeTauntVal = ssh.StrokeTauntVal - GetSubState() + If StringClean.Contains("@RiskyPayout") Then + If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then + FrmCardList.GameWMP.settings.setMode("loop", False) + FrmCardList.GameWMP.settings.volume = 20 + FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" + End If + ssh.BronzeTokens += FrmCardList.TokensPaid + FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) + StringClean = StringClean.Replace("@RiskyPayout", "") + End If - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() + If StringClean.Contains("@CloseRiskyPick") Then + FrmCardList.CloseRiskyPick() + StringClean = StringClean.Replace("@CloseRiskyPick", "") + End If - ssh.CBTBallsActive = False - ssh.CBTBallsFlag = False - ssh.CBTCockActive = False - ssh.CBTCockFlag = False - ssh.CBTBothActive = False - ssh.CBTBothFlag = False - ssh.CustomTaskActive = False + If StringClean.Contains("@RevealLastCase") Then + FrmCardList.RevealLastCase() + StringClean = StringClean.Replace("@RevealLastCase", "") + End If - If Not ssh.SubGaveUp Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False + If StringClean.Contains("@RevealUserCase") Then + FrmCardList.RevealUserCase() + StringClean = StringClean.Replace("@RevealUserCase", "") + End If + + If StringClean.Contains("@RiskyState") Then + If FrmCardList.RiskyState = True Then + ssh.FileGoto = "(Risky Game)" + Else + ssh.FileGoto = "(Risky Tease)" + End If + FrmCardList.RiskyState = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@RiskyState", "") End If - 'StopEverything() - ssh.ReturnFlag = True + If StringClean.Contains("@SystemMessage ") Then + StringClean = StringClean.Replace("@SystemMessage ", "") + End If + If StringClean.Contains("@EmoteMessage ") Then + StringClean = StringClean.Replace("@EmoteMessage ", "") + End If - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag + If StringClean.Contains("@CallReturn(") Then - If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + ssh.ReturnFileText = ssh.FileText + ssh.ReturnStrokeTauntVal = ssh.StrokeTauntVal + GetSubState() - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() - Else + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + If Not ssh.SubGaveUp Then + ssh.SubEdging = False + ssh.SubHoldingEdge = False + End If - End If - ssh.ScriptTick = 2 - ScriptTimer.Start() + 'StopEverything() + ssh.ReturnFlag = True - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - End If + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CallReplace As String = CheckFlag - If StringClean.Contains("@Call(") Then + If CheckFlag.Contains(",") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") - Dim CallReplace As String = CheckFlag + CheckFlag = FixCommas(CheckFlag) - If CheckFlag.Contains(",") Then + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - CheckFlag = FixCommas(CheckFlag) + Else - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - Else + End If + ssh.ScriptTick = 2 + ScriptTimer.Start() - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") End If - StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") + If StringClean.Contains("@Call(") Then - End If + Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") + Dim CallReplace As String = CheckFlag + If CheckFlag.Contains(",") Then - If StringClean.Contains("@CallRandom(") Then + CheckFlag = FixCommas(CheckFlag) - Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") - Dim CallReplace As String = CheckFlag + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag ssh.StrokeTauntVal = -1 + End If - End If - StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") - End If + StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") - If StringClean.Contains("@RapidCodeOn") Then - ssh.RapidCode = True - StringClean = StringClean.Replace("@RapidCodeOn", "") - End If + End If - If StringClean.Contains("@RapidCodeOff") Then - ssh.RapidCode = False - StringClean = StringClean.Replace("@RapidCodeOff", "") - End If - If StringClean.Contains("@InterruptsOff") Then - ssh.DoNotDisturb = True - StringClean = StringClean.Replace("@InterruptsOff", "") - End If + If StringClean.Contains("@CallRandom(") Then - If StringClean.Contains("@InterruptsOn") Then - ssh.DoNotDisturb = False - StringClean = StringClean.Replace("@InterruptsOn", "") - End If + Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") + Dim CallReplace As String = CheckFlag + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 + End If + End If + StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") + End If - If StringClean.Contains("@NoTypo") Then - ssh.TypoSwitch = 0 - StringClean = StringClean.Replace("@NoTypo", "") - End If - If StringClean.Contains("@ForceTypo") Then - ssh.TypoSwitch = 2 - StringClean = StringClean.Replace("@ForceTypo", "") - End If + If StringClean.Contains("@RapidCodeOn") Then + ssh.RapidCode = True + StringClean = StringClean.Replace("@RapidCodeOn", "") + End If - If StringClean.Contains("@TyposOff") Then - ssh.TyposDisabled = True - StringClean = StringClean.Replace("@TyposOff", "") - End If + If StringClean.Contains("@RapidCodeOff") Then + ssh.RapidCode = False + StringClean = StringClean.Replace("@RapidCodeOff", "") + End If - If StringClean.Contains("@TyposOn") Then - ssh.TyposDisabled = False - StringClean = StringClean.Replace("@TyposOn", "") - End If + If StringClean.Contains("@InterruptsOff") Then + ssh.DoNotDisturb = True + StringClean = StringClean.Replace("@InterruptsOff", "") + End If - If StringClean.Contains("@GoodMood(") Then + If StringClean.Contains("@InterruptsOn") Then + ssh.DoNotDisturb = False + StringClean = StringClean.Replace("@InterruptsOn", "") + End If - Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() + If StringClean.Contains("@NoTypo") Then + ssh.TypoSwitch = 0 + StringClean = StringClean.Replace("@NoTypo", "") End If - StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") - End If - - If StringClean.Contains("@BadMood(") Then + If StringClean.Contains("@ForceTypo") Then + ssh.TypoSwitch = 2 + StringClean = StringClean.Replace("@ForceTypo", "") + End If - Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") + If StringClean.Contains("@TyposOff") Then + ssh.TyposDisabled = True + StringClean = StringClean.Replace("@TyposOff", "") + End If - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() + If StringClean.Contains("@TyposOn") Then + ssh.TyposDisabled = False + StringClean = StringClean.Replace("@TyposOn", "") End If - StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") - End If + If StringClean.Contains("@GoodMood(") Then - If StringClean.Contains("@NeutralMood(") Then + Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") - Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() + StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") End If - StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") - End If + If StringClean.Contains("@BadMood(") Then - If StringClean.Contains("@MoodUp") Then - ssh.DommeMood += 1 - If ssh.DommeMood > 10 Then ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodUp", "") - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") - If StringClean.Contains("@MoodDown") Then - ssh.DommeMood -= 1 - If ssh.DommeMood < 1 Then ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodDown", "") - End If + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - If StringClean.Contains("@MoodBest") Then - ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodBest", "") - End If + StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@MoodWorst") Then - ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodWorst", "") - End If + If StringClean.Contains("@NeutralMood(") Then - If StringClean.Contains("@Timeout(") Then + Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") - Dim OriginalFlag As String = TimeFlag + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - TimeFlag = FixCommas(TimeFlag) + StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") + End If - Dim TimeArray As String() = TimeFlag.Split(",") + If StringClean.Contains("@MoodUp") Then + ssh.DommeMood += 1 + If ssh.DommeMood > 10 Then ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodUp", "") + End If - ssh.FileGoto = TimeArray(1) - ssh.TimeoutTick = Val(TimeArray(0)) - TimeoutTimer.Start() + If StringClean.Contains("@MoodDown") Then + ssh.DommeMood -= 1 + If ssh.DommeMood < 1 Then ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodDown", "") + End If - StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") - End If + If StringClean.Contains("@MoodBest") Then + ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodBest", "") + End If - If StringClean.Contains("@BallTorture+1") Then - ssh.CBTBallsCount += 1 - StringClean = StringClean.Replace("@BallTorture+1", "") - End If + If StringClean.Contains("@MoodWorst") Then + ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodWorst", "") + End If - If StringClean.Contains("@CockTorture+1") Then - ssh.CBTCockCount += 1 - StringClean = StringClean.Replace("@CockTorture+1", "") - End If + If StringClean.Contains("@Timeout(") Then + Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") + Dim OriginalFlag As String = TimeFlag - If StringClean.Contains("@EndTaunts") Then - ssh.StrokeTick = 0 - StringClean = StringClean.Replace("@EndTaunts", "") - End If + TimeFlag = FixCommas(TimeFlag) + Dim TimeArray As String() = TimeFlag.Split(",") - If StringClean.Contains("@ResponseYes(") Then - ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") - StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") - End If + ssh.FileGoto = TimeArray(1) + ssh.TimeoutTick = Val(TimeArray(0)) + TimeoutTimer.Start() - If StringClean.Contains("@ResponseNo(") Then - ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") - StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") - End If + StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") + End If + If StringClean.Contains("@BallTorture+1") Then + ssh.CBTBallsCount += 1 + StringClean = StringClean.Replace("@BallTorture+1", "") + End If - If StringClean.Contains("@SetModule(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + If StringClean.Contains("@CockTorture+1") Then + ssh.CBTCockCount += 1 + StringClean = StringClean.Replace("@CockTorture+1", "") + End If - If TempMod.Contains(",") Then - TempMod = FixCommas(TempMod) - Dim TempArray As String() = TempMod.Split(",") - TempMod = TempArray(0) - ssh.SetModuleGoto = TempArray(1) + If StringClean.Contains("@EndTaunts") Then + ssh.StrokeTick = 0 + StringClean = StringClean.Replace("@EndTaunts", "") End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" + If StringClean.Contains("@ResponseYes(") Then + ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") + StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" + + If StringClean.Contains("@ResponseNo(") Then + ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") + StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") End If - If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") - End If + If StringClean.Contains("@SetModule(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + + If TempMod.Contains(",") Then + TempMod = FixCommas(TempMod) + Dim TempArray As String() = TempMod.Split(",") + TempMod = TempArray(0) + ssh.SetModuleGoto = TempArray(1) + + End If + + + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" + End If + + If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - If StringClean.Contains("@SetLink(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" + StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" + + If StringClean.Contains("@SetLink(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" + End If + StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") End If - StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") - End If - 'If StringClean.Contains("@RandomText(") Then - 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") - 'TempText = FixCommas(TempText) - 'Dim TextArray As String() = TempText.Split(",") - 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) - 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) - 'End If + 'If StringClean.Contains("@RandomText(") Then + 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") + 'TempText = FixCommas(TempText) + 'Dim TextArray As String() = TempText.Split(",") + 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) + 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) + 'End If - If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") - StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") - End If + If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") + StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + End If - If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then + If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then - Dim FollowTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + Dim FollowTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 - TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 + TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 + TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 - FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - Dim FollowVal As Integer + Dim FollowVal As Integer - FollowVal = Val(FollowTemp) + FollowVal = Val(FollowTemp) - ssh.TempVal = ssh.randomizer.Next(1, 101) + ssh.TempVal = ssh.randomizer.Next(1, 101) - Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") + Dim FollowLineTemp As String + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - End If + End If - If StringClean.Contains("@Worship(") Then - Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") - Debug.Print("Worship Paren = " & WorshipTemp) - If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" - If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" - If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" - ssh.WorshipMode = True - StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") - End If + If StringClean.Contains("@Worship(") Then + Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") + Debug.Print("Worship Paren = " & WorshipTemp) + If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" + If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" + If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" + ssh.WorshipMode = True + StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") + End If - If StringClean.Contains("@WorshipOn") Then - ssh.WorshipMode = True - StringClean = StringClean.Replace("@WorshipOn", "") - End If + If StringClean.Contains("@WorshipOn") Then + ssh.WorshipMode = True + StringClean = StringClean.Replace("@WorshipOn", "") + End If - If StringClean.Contains("@WorshipOff") Then - ssh.WorshipMode = False - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@WorshipOff", "") - End If + If StringClean.Contains("@WorshipOff") Then + ssh.WorshipMode = False + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@WorshipOff", "") + End If - ' If StringClean.Contains("@AssWorship") Then - 'WorshipTarget = "Ass" - 'StringClean = StringClean.Replace("@AssWorship", "") - 'End If + ' If StringClean.Contains("@AssWorship") Then + 'WorshipTarget = "Ass" + 'StringClean = StringClean.Replace("@AssWorship", "") + 'End If - 'If StringClean.Contains("@BoobWorship") Then - 'WorshipTarget = "Boobs" - 'StringClean = StringClean.Replace("@BoobWorship", "") - 'End If + 'If StringClean.Contains("@BoobWorship") Then + 'WorshipTarget = "Boobs" + 'StringClean = StringClean.Replace("@BoobWorship", "") + 'End If - 'If StringClean.Contains("@PussyWorship") Then - 'WorshipTarget = "Pussy" - 'StringClean = StringClean.Replace("@PussyWorship", "") - 'End If + 'If StringClean.Contains("@PussyWorship") Then + 'WorshipTarget = "Pussy" + 'StringClean = StringClean.Replace("@PussyWorship", "") + 'End If - If StringClean.Contains("@ClearWorship") Then - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@ClearWorship", "") - End If + If StringClean.Contains("@ClearWorship") Then + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@ClearWorship", "") + End If @@ -12694,337 +12679,337 @@ VTSkip: - If StringClean.Contains("@MiniScript(") Then + If StringClean.Contains("@MiniScript(") Then - Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then - ssh.MiniScript = True - ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" - ssh.MiniTauntVal = -1 - ssh.MiniTimerCheck = ScriptTimer.Enabled - ssh.ScriptTick = 2 - ScriptTimer.Start() + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then + ssh.MiniScript = True + ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" + ssh.MiniTauntVal = -1 + ssh.MiniTimerCheck = ScriptTimer.Enabled + ssh.ScriptTick = 2 + ScriptTimer.Start() + End If + + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") End If - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") - End If + If StringClean.Contains("@CheckFile(") Then - If StringClean.Contains("@CheckFile(") Then + Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") + FileFlag = FixCommas(FileFlag) - Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") - FileFlag = FixCommas(FileFlag) + Dim FileArray As String() = FileFlag.Split(",") - Dim FileArray As String() = FileFlag.Split(",") + If FileArray.Count = 2 Or FileArray.Count = 3 Then - If FileArray.Count = 2 Or FileArray.Count = 3 Then + If File.Exists(FileArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(1) + GetGoto() + End If - If File.Exists(FileArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(1) - GetGoto() - End If + If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(2) + GetGoto() + End If - If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(2) - GetGoto() End If + StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") End If - StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") - End If + If StringClean.Contains("@YesMode(") Then - If StringClean.Contains("@YesMode(") Then + Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") + YesFlag = FixCommas(YesFlag) + Dim YesArray As String() = YesFlag.Split(",") - Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") - YesFlag = FixCommas(YesFlag) - Dim YesArray As String() = YesFlag.Split(",") + If UCase(YesArray(0)).Contains("GOTO") Then + ssh.YesGoto = True + ssh.YesGotoLine = YesArray(1) + End If - If UCase(YesArray(0)).Contains("GOTO") Then - ssh.YesGoto = True - ssh.YesGotoLine = YesArray(1) - End If + If UCase(YesArray(0)).Contains("VIDEO") Then + ssh.YesVideo = True + ssh.YesGotoLine = YesArray(1) + End If - If UCase(YesArray(0)).Contains("VIDEO") Then - ssh.YesVideo = True - ssh.YesGotoLine = YesArray(1) - End If + If UCase(YesArray(0)).Contains("NORMAL") Then + ssh.YesGoto = False + ssh.YesVideo = False + End If - If UCase(YesArray(0)).Contains("NORMAL") Then - ssh.YesGoto = False - ssh.YesVideo = False + StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") End If - StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") - End If + If StringClean.Contains("@NoMode(") Then - If StringClean.Contains("@NoMode(") Then + Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") + NoFlag = FixCommas(NoFlag) + Dim NoArray As String() = NoFlag.Split(",") - Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") - NoFlag = FixCommas(NoFlag) - Dim NoArray As String() = NoFlag.Split(",") + If UCase(NoArray(0)).Contains("GOTO") Then + ssh.NoGoto = True + ssh.NoGotoLine = NoArray(1) + End If - If UCase(NoArray(0)).Contains("GOTO") Then - ssh.NoGoto = True - ssh.NoGotoLine = NoArray(1) - End If + If UCase(NoArray(0)).Contains("VIDEO") Then + ssh.NoVideo_Mode = True + ssh.NoGotoLine = NoArray(1) + End If - If UCase(NoArray(0)).Contains("VIDEO") Then - ssh.NoVideo_Mode = True - ssh.NoGotoLine = NoArray(1) - End If + If UCase(NoArray(0)).Contains("NORMAL") Then + ssh.NoGoto = False + ssh.NoVideo_Mode = False + End If - If UCase(NoArray(0)).Contains("NORMAL") Then - ssh.NoGoto = False - ssh.NoVideo_Mode = False + StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") End If - StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") - End If + If StringClean.Contains("@CameMode(") Then - If StringClean.Contains("@CameMode(") Then + Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") + CameFlag = FixCommas(CameFlag) + Dim CameArray As String() = CameFlag.Split(",") - Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") - CameFlag = FixCommas(CameFlag) - Dim CameArray As String() = CameFlag.Split(",") + If UCase(CameArray(0)).Contains("GOTO") Then + ssh.CameGoto = True + ssh.CameGotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("GOTO") Then - ssh.CameGoto = True - ssh.CameGotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("MESSAGE") Then + ssh.CameMessage = True + ssh.CameMessageText = CameArray(1) + End If - If UCase(CameArray(0)).Contains("MESSAGE") Then - ssh.CameMessage = True - ssh.CameMessageText = CameArray(1) - End If + If UCase(CameArray(0)).Contains("VIDEO") Then + ssh.CameVideo = True + ssh.CameGotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("VIDEO") Then - ssh.CameVideo = True - ssh.CameGotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("NORMAL") Then + ssh.CameGoto = False + ssh.CameMessage = False + ssh.CameVideo = False + End If - If UCase(CameArray(0)).Contains("NORMAL") Then - ssh.CameGoto = False - ssh.CameMessage = False - ssh.CameVideo = False + StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") End If - StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") - End If + If StringClean.Contains("@RuinedMode(") Then - If StringClean.Contains("@RuinedMode(") Then + Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") + RuinedFlag = FixCommas(RuinedFlag) + Dim RuinedArray As String() = RuinedFlag.Split(",") - Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") - RuinedFlag = FixCommas(RuinedFlag) - Dim RuinedArray As String() = RuinedFlag.Split(",") + If UCase(RuinedArray(0)).Contains("GOTO") Then + ssh.RuinedGoto = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("GOTO") Then - ssh.RuinedGoto = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("MESSAGE") Then + ssh.RuinedMessage = True + ssh.RuinedMessageText = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("MESSAGE") Then - ssh.RuinedMessage = True - ssh.RuinedMessageText = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("VIDEO") Then + ssh.RuinedVideo = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("VIDEO") Then - ssh.RuinedVideo = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("NORMAL") Then + ssh.RuinedGoto = False + ssh.RuinedMessage = False + ssh.RuinedVideo = False + End If - If UCase(RuinedArray(0)).Contains("NORMAL") Then - ssh.RuinedGoto = False - ssh.RuinedMessage = False - ssh.RuinedVideo = False + StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") End If - StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") - End If - - If StringClean.Contains("@CustomMode(") Then + If StringClean.Contains("@CustomMode(") Then - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") - CustomFlag = FixCommas(CustomFlag) - Dim CustomArray As String() = CustomFlag.Split(",") + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") + CustomFlag = FixCommas(CustomFlag) + Dim CustomArray As String() = CustomFlag.Split(",") - If CustomArray.Count = 3 Then + If CustomArray.Count = 3 Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) + If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) - Dim NewMode As New Mode - NewMode.Keyword = CustomArray(0) - NewMode.Type = CustomArray(1) - NewMode.GotoLine = CustomArray(2) - ssh.Modes.Add(CustomArray(0), NewMode) - End If + Dim NewMode As New Mode + NewMode.Keyword = CustomArray(0) + NewMode.Type = CustomArray(1) + NewMode.GotoLine = CustomArray(2) + ssh.Modes.Add(CustomArray(0), NewMode) + End If - If CustomArray.Count = 2 Then - If CustomArray(1).ToUpper.Contains("NORMAL") Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then - ssh.Modes.Remove(CustomArray(0)) + If CustomArray.Count = 2 Then + If CustomArray(1).ToUpper.Contains("NORMAL") Then + If ssh.Modes.Keys.Contains(CustomArray(0)) Then + ssh.Modes.Remove(CustomArray(0)) + End If End If End If - End If - StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - End If + End If - If StringClean.Contains("@ClearModes") Then - ClearModes() - StringClean = StringClean.Replace("@ClearModes", "") - End If + If StringClean.Contains("@ClearModes") Then + ClearModes() + StringClean = StringClean.Replace("@ClearModes", "") + End If - If StringClean.Contains("@LockVideo") Then - ssh.LockVideo = True - StringClean = StringClean.Replace("@LockVideo", "") - End If + If StringClean.Contains("@LockVideo") Then + ssh.LockVideo = True + StringClean = StringClean.Replace("@LockVideo", "") + End If - If StringClean.Contains("@UnlockVideo") Then - ssh.LockVideo = False - mainPictureBox.Visible = True - DomWMP.Visible = False - StringClean = StringClean.Replace("@UnlockVideo", "") - End If + If StringClean.Contains("@UnlockVideo") Then + ssh.LockVideo = False + mainPictureBox.Visible = True + DomWMP.Visible = False + StringClean = StringClean.Replace("@UnlockVideo", "") + End If - If StringClean.Contains("@ClearChat") Then - ClearChat() - StringClean = StringClean.Replace("@ClearChat", "") - End If + If StringClean.Contains("@ClearChat") Then + ClearChat() + StringClean = StringClean.Replace("@ClearChat", "") + End If - If StringClean.Contains("@ChatImage[") Then - Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") - ImageDir = ImageDir.Replace("/", "\") - ImageDir = ImageDir.Replace("\\", "\") + If StringClean.Contains("@ChatImage[") Then + Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") + ImageDir = ImageDir.Replace("/", "\") + ImageDir = ImageDir.Replace("\\", "\") - If File.Exists(ImageDir.Split(",")(0)) Then + If File.Exists(ImageDir.Split(",")(0)) Then - If GetCharCount(ImageDir, ",") = 2 Then + If GetCharCount(ImageDir, ",") = 2 Then - Dim PicAttributes As String() = GetArrayString(ImageDir) + Dim PicAttributes As String() = GetArrayString(ImageDir) - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + End If + Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If - - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If - End If - If StringClean.Contains("@Debug") Then + If StringClean.Contains("@Debug") Then - 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) + 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) - MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) - MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) - MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) - MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) + MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) + MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) + MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) + MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) - 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) - StringClean = StringClean.Replace("@Debug", "") - End If + 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) + StringClean = StringClean.Replace("@Debug", "") + End If - If StringClean.Contains("@GotoDommeOrgasm") Then + If StringClean.Contains("@GotoDommeOrgasm") Then - 'Debug.Print("GotoDommeOrgasmCalled") + 'Debug.Print("GotoDommeOrgasmCalled") - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeOrgasm", "") + StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - End If + End If - If StringClean.Contains("@GotoDommeRuin") Then + If StringClean.Contains("@GotoDommeRuin") Then - Debug.Print("GotoDommeRuinedCalled") + Debug.Print("GotoDommeRuinedCalled") - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeRuin", "") + StringClean = StringClean.Replace("@GotoDommeRuin", "") - End If + End If - If StringClean.Contains("@GotoDommeApathy") Then + If StringClean.Contains("@GotoDommeApathy") Then - 'Debug.Print("GotoDommeApathyCalled") + 'Debug.Print("GotoDommeApathyCalled") - If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" - If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" - If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" - If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" - If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" + If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" + If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" + If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" + If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" + If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeApathy", "") + StringClean = StringClean.Replace("@GotoDommeApathy", "") - End If + End If - If StringClean.Contains("@GotoDommeLevel") Then + If StringClean.Contains("@GotoDommeLevel") Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeLevel", "") + StringClean = StringClean.Replace("@GotoDommeLevel", "") - End If + End If - If StringClean.Contains("@CheckBnB") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then - ssh.FileGoto = "(No BnB)" - ssh.SkipGotoLine = True - GetGoto() + If StringClean.Contains("@CheckBnB") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then + ssh.FileGoto = "(No BnB)" + ssh.SkipGotoLine = True + GetGoto() + End If + StringClean = StringClean.Replace("@CheckBnB", "") End If - StringClean = StringClean.Replace("@CheckBnB", "") - End If @@ -13032,76 +13017,76 @@ VTSkip: - If StringClean.Contains("@CheckStrokingState") Then - 'If SubStroking = True Then - If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ssh.FileGoto = "(Sub Stroking)" - Else - ssh.FileGoto = "(Sub Not Stroking)" + If StringClean.Contains("@CheckStrokingState") Then + 'If SubStroking = True Then + If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then + ssh.FileGoto = "(Sub Stroking)" + Else + ssh.FileGoto = "(Sub Not Stroking)" + End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckStrokingState", "") End If - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckStrokingState", "") - End If - 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. + 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. - If StringClean.Contains("@SetGroup(") Then + If StringClean.Contains("@SetGroup(") Then - Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) + Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" - If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" + If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" - StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") + StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") - End If + End If - Debug.Print("Command Clean Complete") + Debug.Print("Command Clean Complete") - Return StringClean + Return StringClean - End Function + End Function #Region "-------------------------------------------- Webtoy --------------------------------------------" - Public Sub ActivateWebToy() + Public Sub ActivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try + End If - End Sub + End Sub - Public Sub DeactivateWebToy() + Public Sub DeactivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - End Sub + End Sub #End Region ' WebToy @@ -13109,2368 +13094,2447 @@ VTSkip: #Region "---------------------------------------- Script-Flags ------------------------------------------" - ''' Creates the given flag. - ''' The flag name to set. - ''' If set to true, the flag is temporary set otherwise permanent. - Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) - If Temp = False Then - FlagName = ssh.Folders.Flags & FlagName - Else - FlagName = ssh.Folders.TempFlags & FlagName - End If + ''' Creates the given flag. + ''' The flag name to set. + ''' If set to true, the flag is temporary set otherwise permanent. + Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) + If Temp = False Then + FlagName = ssh.Folders.Flags & FlagName + Else + FlagName = ssh.Folders.TempFlags & FlagName + End If - Using fs As New FileStream(FlagName, FileMode.Create) : End Using + Using fs As New FileStream(FlagName, FileMode.Create) : End Using - End Sub - ''' Deletes the given flag. Deletes permanent and temporary flags. - ''' The name of the flag to delete. - Friend Sub DeleteFlag(ByVal FlagName As String) + End Sub + ''' Deletes the given flag. Deletes permanent and temporary flags. + ''' The name of the flag to delete. + Friend Sub DeleteFlag(ByVal FlagName As String) - If File.Exists(ssh.Folders.Flags & FlagName) Then _ + If File.Exists(ssh.Folders.Flags & FlagName) Then _ File.Delete(ssh.Folders.Flags & FlagName) - If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ + If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ File.Delete(ssh.Folders.TempFlags & FlagName) - End Sub - ''' Checks if the given flag is set, permanent and temporary. - ''' The flag name to search for. - ''' Returns true if a permanent or temporary flag with the name is found. - Friend Function FlagExists(ByVal FlagName As String) As Boolean + End Sub + ''' Checks if the given flag is set, permanent and temporary. + ''' The flag name to search for. + ''' Returns true if a permanent or temporary flag with the name is found. + Friend Function FlagExists(ByVal FlagName As String) As Boolean - If File.Exists(ssh.Folders.Flags & FlagName) OrElse + If File.Exists(ssh.Folders.Flags & FlagName) OrElse File.Exists(ssh.Folders.TempFlags & FlagName) Then - Return True - Else - Return False - End If + Return True + Else + Return False + End If - End Function + End Function #End Region ' Script-Flags #Region "------------------------------------- Script-Variables -----------------------------------------" - Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) + Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) - End Function + End Function - Public Function DeleteVariable(ByVal FlagDir As String) + Public Function DeleteVariable(ByVal FlagDir As String) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) - End Function + End Function - Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) + Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) - Dim Val1 As Integer - Dim Val2 As Integer + Dim Val1 As Integer + Dim Val2 As Integer - If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) + If IsNumeric(ChangeVal1) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) + Else + Val1 = 0 + End If Else - Val1 = 0 + Val1 = Val(ChangeVal1) End If - Else - Val1 = Val(ChangeVal1) - End If - If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) + If IsNumeric(ChangeVal2) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) + Else + Val2 = 0 + End If Else - Val2 = 0 + Val2 = Val(ChangeVal2) End If - Else - Val2 = Val(ChangeVal2) - End If - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Dim ChangeVal As Integer = 0 + Dim ChangeVal As Integer = 0 - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - End Function + End Function - Public Function GetVariable(ByVal VarName As String) As String + Public Function GetVariable(ByVal VarName As String) As String - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - '### DEBUG + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + '### DEBUG - ' VarGet = Val(VarReader.ReadLine()) + ' VarGet = Val(VarReader.ReadLine()) - VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) - Else - VarGet = 0 - End If + VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) + Else + VarGet = 0 + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function CheckVariable(ByVal StringCLean As String) As Boolean + Public Function CheckVariable(ByVal StringCLean As String) As Boolean - Do + Do - Dim SCIfVar As String() = Split(StringCLean) - Dim SCGotVar As String = "Null" + Dim SCIfVar As String() = Split(StringCLean) + Dim SCGotVar As String = "Null" - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@Variable[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains("] ") Then + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@Variable[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains("] ") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") + End If + SCGotVar = SCIfVar(i).Trim + SCIfVar(i) = "" + StringCLean = Join(SCIfVar) Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") + StringCLean = StringCLean.Replace(" ", " ") + Loop Until Not StringCLean.Contains(" ") + Exit For End If - SCGotVar = SCIfVar(i).Trim - SCIfVar(i) = "" - StringCLean = Join(SCIfVar) - Do - StringCLean = StringCLean.Replace(" ", " ") - Loop Until Not StringCLean.Contains(" ") - Exit For - End If - Next + Next - If SCGotVar.Contains("]And[") Then + If SCGotVar.Contains("]And[") Then - Dim AndCheck As Boolean = True + Dim AndCheck As Boolean = True - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") - Next + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") + Next + + Return AndCheck + + ElseIf SCGotVar.Contains("]Or[") Then + + Dim OrCheck As Boolean = False - Return AndCheck + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") + Next - ElseIf SCGotVar.Contains("]Or[") Then + Return OrCheck - Dim OrCheck As Boolean = False + Else - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - OrCheck = True - Exit For + + Return True + + Else + + Return False + End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") - Next - Return OrCheck + End If + + Loop Until Not StringCLean.Contains("@Variable") + + End Function + +#End Region ' Script-Variables + +#Region "---------------------------------------- Script-Dates ------------------------------------------" + + Public Function GetDate(ByVal VarName As String) As Date + + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else + VarGet = FormatDateTime(Now, DateFormat.GeneralDate) + End If - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then + Return VarGet - Return True + + End Function + + Public Function GetTime(ByVal VarName As String) As Date + + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + Else + VarGet = FormatDateTime(Now, DateFormat.LongTime) + End If + + Return VarGet + + + End Function + + Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean + + Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") + + If DateFlag.Contains(",") Then + + DateFlag = FixCommas(DateFlag) + + Dim DateArray() As String = DateFlag.Split(",") + Dim DDiff As Long = 18855881 + Dim DDiff2 As Long = 18855881 + + Dim DCompare As Long + Dim DCompare2 As Long + + If Linear = False Then + + If DateArray.Count = 2 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If + + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If Else - Return False + If DateArray.Count = 2 Then + If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True + Return False + End If + + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If + + If DateArray.Count = 4 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If End If + Else + If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True + Return False End If - Loop Until Not StringCLean.Contains("@Variable") + Return False + End Function - End Function + Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long -#End Region ' Script-Variables + Dim DDiff As Long = 0 -#Region "---------------------------------------- Script-Dates ------------------------------------------" + If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) + If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 - Public Function GetDate(ByVal VarName As String) As Date + Return DDiff - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) - Else - VarGet = FormatDateTime(Now, DateFormat.GeneralDate) - End If + End Function - Return VarGet + Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long + Dim DDiff As Long = 0 + Dim Amount As Long = Val(DateString) - End Function + If UCase(DateString).Contains("SECOND") Then DDiff = Amount + If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 - Public Function GetTime(ByVal VarName As String) As Date + Return DDiff - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) - Else - VarGet = FormatDateTime(Now, DateFormat.LongTime) - End If + End Function - Return VarGet +#End Region ' Script-Dates +#End Region ' Flags/Dates/Variables - End Function - Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") + Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String - If DateFlag.Contains(",") Then - DateFlag = FixCommas(DateFlag) - Dim DateArray() As String = DateFlag.Split(",") - Dim DDiff As Long = 18855881 - Dim DDiff2 As Long = 18855881 + Dim ParenFlag As String = ParenCheck + Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length + 'githib patch Dim ParenType As String - Dim DCompare As Long - Dim DCompare2 As Long + Dim ParenType As String = Nothing - If Linear = False Then + ' #### CHECK ALL GETPAREN! + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" - If DateArray.Count = 2 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then + ParenType = ")" + End If + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then + ParenType = "]" + End If - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If - Else - If DateArray.Count = 2 Then - If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True - Return False - End If + 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If + 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) + Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) - If DateArray.Count = 4 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If + Debug.Print("ParenEnd = " & ParenEnd) - End If + If ParenEnd = -1 Then ParenEnd = ParenFlag.Length + ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) - Else - If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True - Return False - End If + 'ParenFlag = ParenFlag.Split(")")(0) + 'ParenFlag = ParenFlag.Split(ParenType)(0) + 'ParenFlag = ParenFlag.Replace(ParenType, "") + 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) + Debug.Print("ParenFlag = " & ParenFlag) - Return False + Return ParenFlag - End Function - Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long + End Function + + Public Function GetNthIndex(searchString As String, charToFind As Char, startIndex As Integer, n As Integer) As Integer + Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ + .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ + .ElementAtOrDefault(n - 1) + Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) + End Function - Dim DDiff As Long = 0 + Public Function FixCommas(ByVal CommaString) As String - If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) - If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 + CommaString = CommaString.replace(", ", ",") + CommaString = CommaString.replace(" ,", ",") - Return DDiff + Return CommaString - End Function + End Function - Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long + Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean - Dim DDiff As Long = 0 - Dim Amount As Long = Val(DateString) + Dim HoldEdgeCheck As Boolean = False - If UCase(DateString).Contains("SECOND") Then DDiff = Amount - If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 + If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True - Return DDiff + Return HoldEdgeCheck - End Function -#End Region ' Script-Dates + End Function + + Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, + Optional ByVal ExcludeTags As List(Of String) = Nothing) As String + + + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + ' Read all lines of given file. + ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + + + Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") + + ssh.LocalTagImageList.RemoveAll(Function(x) + ' Remove if given include tags are missing + If IncludeTags IsNot Nothing Then + For Each tag As String In IncludeTags + If Not x.Contains(tag.Replace("@", "")) Then Return True + Next + End If + ' Remove if given exclude tags are present + If ExcludeTags IsNot Nothing Then + For Each tag As String In ExcludeTags + If x.Contains(tag.Replace("@", "")) Then Return True + Next + End If + ' Remove all without valid extension + Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower + If Not ValidExt.Contains(Ext) Then Return True + 'Everything fine keep file + Return False + End Function) + + Do While ssh.LocalTagImageList.Count > 0 + Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) + ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. + Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) + + If Directory.Exists(Path.GetDirectoryName(Filepath)) _ + AndAlso File.Exists(Filepath) Then + Return Filepath + Else + ssh.LocalTagImageList.RemoveAt(rndNumber) + End If + Loop + End If -#End Region ' Flags/Dates/Variables + Return String.Empty + End Function + Public Function GetLocalImage(ByVal LocTag As String) As String + 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String + Dim TagList As New List(Of String) + TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + LocTag = LocTag.Replace(" ,", ",") + LocTag = LocTag.Replace(", ", ",") + Dim LocTagArray As String() = LocTag.Split(",") - Dim ParenFlag As String = ParenCheck - Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length - 'githib patch Dim ParenType As String + Dim LocTag1 As String = " " + Dim LocTag2 As String = " " + Dim LocTag3 As String = " " - Dim ParenType As String = Nothing + For i As Integer = 0 To LocTagArray.Count - 1 + If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) + If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) + If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) + Next - ' #### CHECK ALL GETPAREN! - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then - ParenType = ")" - End If - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then - ParenType = "]" - End If + Dim TaggedList As New List(Of String) + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then + TaggedList.Add(TagList(i)) + End If + Next + If TaggedList.Count > 0 Then - 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) + Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split + Dim PicDir As String = "" - 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) - Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) + For p As Integer = 0 To PicArray.Count - 1 + PicDir = PicDir & PicArray(p) & " " + If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For + Next - Debug.Print("ParenEnd = " & ParenEnd) + Return PicDir - If ParenEnd = -1 Then ParenEnd = ParenFlag.Length - ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) + Else + Return String.Empty - 'ParenFlag = ParenFlag.Split(")")(0) - 'ParenFlag = ParenFlag.Split(ParenType)(0) - 'ParenFlag = ParenFlag.Replace(ParenType, "") - 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) - Debug.Print("ParenFlag = " & ParenFlag) + End If - Return ParenFlag + End If + End Function - End Function + Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) + If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True + If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True + If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True + End Sub - Public Function GetNthIndex(searchString As String, charToFind As Char, startIndex As Integer, n As Integer) As Integer - Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ - .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ - .ElementAtOrDefault(n - 1) - Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) - End Function + Public Sub DisableContactStroke() + ssh.Contact1Stroke = False + ssh.Contact2Stroke = False + ssh.Contact3Stroke = False + End Sub - Public Function FixCommas(ByVal CommaString) As String + Public Sub GetSubState() - CommaString = CommaString.replace(", ", ",") - CommaString = CommaString.replace(" ,", ",") + ssh.ReturnSubState = "Rest" + If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" + If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" + If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" + If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" + If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" + If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" + If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" + If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" - Return CommaString - End Function - Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean + End Sub - Dim HoldEdgeCheck As Boolean = False + Public Sub EdgePace() - If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) + If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value + StrokePace = 50 * Math.Round(StrokePace / 50) - Return HoldEdgeCheck + End Sub - End Function - Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, - Optional ByVal ExcludeTags As List(Of String) = Nothing) As String + Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) +#If TRACE Then + Dim sw As New Stopwatch + sw.Start() + Trace.WriteLine("FilterList Started") + Trace.Indent() +#End If + 'TDOD: Optimze Code "TextedTags" + ssh.FoundTag = "NULL" + Dim slide As ContactData = ssh.SlideshowMain + If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - ' Read all lines of given file. - ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") - - - Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") - - ssh.LocalTagImageList.RemoveAll(Function(x) - ' Remove if given include tags are missing - If IncludeTags IsNot Nothing Then - For Each tag As String In IncludeTags - If Not x.Contains(tag.Replace("@", "")) Then Return True - Next - End If - ' Remove if given exclude tags are present - If ExcludeTags IsNot Nothing Then - For Each tag As String In ExcludeTags - If x.Contains(tag.Replace("@", "")) Then Return True - Next - End If - ' Remove all without valid extension - Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower - If Not ValidExt.Contains(Ext) Then Return True - 'Everything fine keep file - Return False - End Function) - - Do While ssh.LocalTagImageList.Count > 0 - Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) - ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. - Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) - - If Directory.Exists(Path.GetDirectoryName(Filepath)) _ - AndAlso File.Exists(Filepath) Then - Return Filepath - Else - ssh.LocalTagImageList.RemoveAt(rndNumber) - End If - Loop - End If + Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" - Return String.Empty - End Function + If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ + AndAlso File.Exists(TagFilePath) Then + Try + Dim TagList As List(Of String) = Txt2List(TagFilePath) - Public Function GetLocalImage(ByVal LocTag As String) As String - 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + For t As Integer = 0 To TagList.Count - 1 + 'Debug.Print("TagList(t) = " & TagList(t)) + If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then + ssh.FoundTag = TagList(t) + Dim FoundTagSplit As String() = Split(ssh.FoundTag) + For j As Integer = 0 To FoundTagSplit.Length - 1 + If FoundTagSplit(j).Contains("TagGarment") Then + ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") + ssh.TagGarment = ssh.TagGarment.Replace("-", " ") + End If + If FoundTagSplit(j).Contains("TagUnderwear") Then + ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") + ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") + End If - Dim TagList As New List(Of String) - TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + If FoundTagSplit(j).Contains("TagTattoo") Then + ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") + ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") + End If - LocTag = LocTag.Replace(" ,", ",") - LocTag = LocTag.Replace(", ", ",") + If FoundTagSplit(j).Contains("TagSexToy") Then + ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") + ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") + End If - Dim LocTagArray As String() = LocTag.Split(",") + If FoundTagSplit(j).Contains("TagFurniture") Then + ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") + ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") + End If + Next + Exit For + End If + Next + Catch + End Try + End If +SkipTextedTags: - Dim LocTag1 As String = " " - Dim LocTag2 As String = " " - Dim LocTag3 As String = " " + Dim FilterPass As Boolean + Dim ListIncrement As Integer = 1 + If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount - For i As Integer = 0 To LocTagArray.Count - 1 - If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) - If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) - If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) - Next + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Check if Grouped-Lines-Files have the right amount of Lines + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' No need to go further on an empty file. + If ListClean.Count <= 0 Then + Trace.WriteLine("FilterList started with empty List. Skipping filter.") + Return ListClean + End If + ' To Avoid DivideByZeroException + If ListIncrement <= 0 Then + Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " + Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") + Return ListClean + End If - Dim TaggedList As New List(Of String) + ' Divide List.Count by StrokeTauntSize and get the Remainder. + Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement - For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then - TaggedList.Add(TagList(i)) - End If - Next + ' If there is a Remainder, the file has not the desired Line.Count. + If InvalidLineCount > 0 Then + ' So delete the Lines of the last and hopefully uncomplete Group. + ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Grouped-Lines-Check-END + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If TaggedList.Count > 0 Then + For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement - Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split - Dim PicDir As String = "" + FilterPass = True - For p As Integer = 0 To PicArray.Count - 1 - PicDir = PicDir & PicArray(p) & " " - If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For + For x As Integer = 0 To ListIncrement - 1 + If GetFilter(ListClean(i + x)) = False Then + FilterPass = False + Exit For + End If Next - Return PicDir - - Else - Return String.Empty + If FilterPass = False Then + For x As Integer = 0 To ListIncrement - 1 + ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" + Next + End If - End If + Next - End If - End Function + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) + Next + 'BUG: Texted Tags are not working. + For x As Integer = 0 To ListClean.Count - 1 + ListClean(x) = ListClean(x).Replace("#TagGarment", ssh.TagGarment.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagUnderwear", ssh.TagUnderwear.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagTattoo", ssh.TagTattoo.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagSexToy", ssh.TagSexToy.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagFurniture", ssh.TagFurniture.Replace("-", " ")) + Next - Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) - If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True - If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True - If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True - End Sub + Dim FilteredList As New List(Of String) - Public Sub DisableContactStroke() - ssh.Contact1Stroke = False - ssh.Contact2Stroke = False - ssh.Contact3Stroke = False - End Sub + 'For i As Integer = 0 To ListClean.Count - 1 + 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) + 'Next - Public Sub GetSubState() +#If TRACE Then + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") +#End If - ssh.ReturnSubState = "Rest" - If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" - If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" - If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" - If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" - If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" - If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" - If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" - If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" + Return ListClean + End Function - End Sub + Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean + Dim OrgFilterString As String = FilterString + Try + If Linear = False Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Commands to sort out + ' This Section contains @Commands, which are able to disqualify vocabulary lines. + ' + ' Example-line: "Whatever Text to display @DommeTag(Glaring)" + ' + ' This line has to be sorted out, if there are no corresponding images tagged + ' with "glaring". + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + 'ISSUE: @DomTag() is not filtered out + If FilterString.Contains("@DommeTag(") Then + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.LockImage = True Then + Return False + ElseIf FilterString.ToLower.Contains("@contact1") Then + If ssh.SlideshowContact1.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + ElseIf FilterString.ToLower.Contains("@contact2") Then + If ssh.SlideshowContact2.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + ElseIf FilterString.ToLower.Contains("@contact3") Then + If ssh.SlideshowContact3.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + ElseIf ContactToUse IsNot Nothing Then + If ContactToUse.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + Else + Return False + End If + End If - Public Sub EdgePace() + If FilterString.Contains("@ImageTag(") Then + If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False + End If - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) - If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value - StrokePace = 50 * Math.Round(StrokePace / 50) + ' ################## @Show-Category-Image ##################### + If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then + If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowBlowjobImage") Then + If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then + If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowCaptionsImage") Then + If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowDislikedImage") Then + If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowFemdomImage") Then + If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowGayImage") Then + If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowGeneralImage") Then + If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowHardcoreImage") Then + If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowHentaiImage") Then + If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLesbianImage") Then + If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLezdomImage") Then + If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLikedImage") Then + If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLocalImage") Then + If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False + End If + If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then + If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False + End If + 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. + If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False - End Sub + If FilterString.Contains("@ShowTaggedImage") Then + Dim Tags As List(Of String) = FilterString.Split() _ + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + If GetLocalImage(Tags, Nothing) = String.Empty Then Return False + End If + If FilterString.Contains("@ShowMaledomImage") Then + If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowSoftcoreImage") Then + If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Disqualifying @Commands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + End If - Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) -#If TRACE Then - Dim sw As New Stopwatch - sw.Start() + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Possible space Filters + ' This Section Contains @CommandFilters which allow space chars (0x20). + ' + ' Example: "@Cup(A, B) Whatever Text to display" + ' Mostly all perametrized command filters allow space chars in parameters. + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - Trace.WriteLine("FilterList Started") - Trace.Indent() -#End If - 'TDOD: Optimze Code "TextedTags" - ssh.FoundTag = "NULL" - Dim slide As ContactData = ssh.SlideshowMain - If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags + If FilterString.Contains("@AllowsOrgasm(") Then + If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@ApathyLevel(") Then + If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False + End If + If FilterString.Contains("@Cup(") Then + If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False + End If + If FilterString.Contains("@RuinsOrgasm(") Then + If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@Variable[") Then + If CheckVariable(FilterString) = False Then Return False + End If - Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" + If FilterString.Contains("@Group(") Then + Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") + If GroupCheck.Contains("D") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False + End If + If GroupCheck.Contains("1") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + End If + If GroupCheck.Contains("2") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + End If + If GroupCheck.Contains("3") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + End If + End If - If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ - AndAlso File.Exists(TagFilePath) Then - Try - Dim TagList As List(Of String) = Txt2List(TagFilePath) - - For t As Integer = 0 To TagList.Count - 1 - 'Debug.Print("TagList(t) = " & TagList(t)) - If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then - ssh.FoundTag = TagList(t) - Dim FoundTagSplit As String() = Split(ssh.FoundTag) - For j As Integer = 0 To FoundTagSplit.Length - 1 - If FoundTagSplit(j).Contains("TagGarment") Then - ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") - ssh.TagGarment = ssh.TagGarment.Replace("-", " ") - End If + If FilterString.Contains("@Flag(") Or FilterString.Contains("@NotFlag(") Then + Dim result As Boolean = True + Dim writeFlag As String + Dim splitFlag As String() - If FoundTagSplit(j).Contains("TagUnderwear") Then - ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") - ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") - End If + If FilterString.Contains("@Flag(") Then + writeFlag = GetParentheses(FilterString, "@Flag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - If FoundTagSplit(j).Contains("TagTattoo") Then - ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") - ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") + For Each s In splitFlag + If Not FlagExists(s) Then + result = False + Exit For End If + Next + End If + If result = False Then Return result - If FoundTagSplit(j).Contains("TagSexToy") Then - ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") - ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") - End If + If FilterString.Contains("@NotFlag(") Then + writeFlag = GetParentheses(FilterString, "@NotFlag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - If FoundTagSplit(j).Contains("TagFurniture") Then - ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") - ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") + For Each s In splitFlag + If FlagExists(s) Then + result = False + Exit For End If Next - Exit For End If - Next - Catch - End Try - End If -SkipTextedTags: - - Dim FilterPass As Boolean - Dim ListIncrement As Integer = 1 - If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount + Return result + End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Check if Grouped-Lines-Files have the right amount of Lines - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' No need to go further on an empty file. - If ListClean.Count <= 0 Then - Trace.WriteLine("FilterList started with empty List. Skipping filter.") - Return ListClean - End If + If FilterString.Contains("@CheckDate(") And Linear = False Then + If CheckDateList(FilterString) = False Then Return False + End If - ' To Avoid DivideByZeroException - If ListIncrement <= 0 Then - Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " - Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") - Return ListClean - End If + If FilterString.Contains("@Month(") Then + If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False + End If - ' Divide List.Count by StrokeTauntSize and get the Remainder. - Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement + If FilterString.Contains("@Day(") Then + If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False + End If - ' If there is a Remainder, the file has not the desired Line.Count. - If InvalidLineCount > 0 Then - ' So delete the Lines of the last and hopefully uncomplete Group. - ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Grouped-Lines-Check-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + If FilterString.Contains("@SetModule(") Then + If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Possible space Filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Single word filters + ' This section contains single word command filters. + ' Since there are some legacy commands, which are filters and also instructions, + ' this section will ignore all @Statements after @NullResponse or the first + ' word not starting with "@" (0x40) + ' + ' Beware: destroys the original FilterString-Value! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + Dim FilterList As String() - FilterPass = True + FilterList = FilterString.Split(" ") + FilterString = "" - For x As Integer = 0 To ListIncrement - 1 - If GetFilter(ListClean(i + x)) = False Then - FilterPass = False - Exit For - End If - Next + For f As Integer = 0 To FilterList.Count - 1 + If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then + Exit For + End If - If FilterPass = False Then - For x As Integer = 0 To ListIncrement - 1 - ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" + FilterString = FilterString & FilterList(f) & " " Next - End If - Next + If FilterString = "" Then Return True - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) - Next + If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False - 'BUG: Texted Tags are not working. - For x As Integer = 0 To ListClean.Count - 1 - ListClean(x) = ListClean(x).Replace("#TagGarment", ssh.TagGarment.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagUnderwear", ssh.TagUnderwear.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagTattoo", ssh.TagTattoo.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagSexToy", ssh.TagSexToy.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagFurniture", ssh.TagFurniture.Replace("-", " ")) - Next + If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False + If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False + If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False + If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False + If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False + + If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False + If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then + If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False + End If + If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False + + If FilterString.ToLower.Contains("@acup") Then + If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@bcup") Then + If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ccup") Then + If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@dcup") Then + If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddcup") Then + If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddd+cup") Then + If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False + End If - Dim FilteredList As New List(Of String) + If FilterString.ToLower.Contains("@tagface") And Not ssh.FoundTag.ToLower.Contains("tagface") Then Return False + If FilterString.ToLower.Contains("@tagboobs") And Not ssh.FoundTag.ToLower.Contains("tagboobs") Then Return False + If FilterString.ToLower.Contains("@tagpussy") And Not ssh.FoundTag.ToLower.Contains("tagpussy") Then Return False + If FilterString.ToLower.Contains("@tagass") And Not ssh.FoundTag.ToLower.Contains("tagass") Then Return False + If FilterString.ToLower.Contains("@tagfeet") And Not ssh.FoundTag.ToLower.Contains("tagfeet") Then Return False + If FilterString.ToLower.Contains("@taglegs") And Not ssh.FoundTag.ToLower.Contains("taglegs") Then Return False + If FilterString.ToLower.Contains("@tagmasturbating") And Not ssh.FoundTag.ToLower.Contains("tagmasturbating") Then Return False + If FilterString.ToLower.Contains("@tagsucking") And Not ssh.FoundTag.ToLower.Contains("tagsucking") Then Return False + If FilterString.ToLower.Contains("@tagfullydressed") And Not ssh.FoundTag.ToLower.Contains("tagfullydressed") Then Return False + If FilterString.ToLower.Contains("@taghalfdressed") And Not ssh.FoundTag.ToLower.Contains("taghalfdressed") Then Return False + If FilterString.ToLower.Contains("@taggarmentcovering") And Not ssh.FoundTag.ToLower.Contains("taggarmentcovering") Then Return False + If FilterString.ToLower.Contains("@taghandscovering") And Not ssh.FoundTag.ToLower.Contains("taghandscovering") Then Return False + If FilterString.ToLower.Contains("@tagnaked") And Not ssh.FoundTag.ToLower.Contains("tagnaked") Then Return False + If FilterString.ToLower.Contains("@tagsideview") And Not ssh.FoundTag.ToLower.Contains("tagsideview") Then Return False + If FilterString.ToLower.Contains("@tagcloseup") And Not ssh.FoundTag.ToLower.Contains("tagcloseup") Then Return False + If FilterString.ToLower.Contains("@tagpiercing") And Not ssh.FoundTag.ToLower.Contains("tagpiercing") Then Return False + If FilterString.ToLower.Contains("@tagsmiling") And Not ssh.FoundTag.ToLower.Contains("tagsmiling") Then Return False + If FilterString.ToLower.Contains("@tagglaring") And Not ssh.FoundTag.ToLower.Contains("tagglaring") Then Return False + If FilterString.ToLower.Contains("@taggarment") And Not ssh.FoundTag.ToLower.Contains("taggarment") Then Return False + If FilterString.ToLower.Contains("@tagunderwear") And Not ssh.FoundTag.ToLower.Contains("tagunderwear") Then Return False + If FilterString.ToLower.Contains("@tagtattoo") And Not ssh.FoundTag.ToLower.Contains("tagtattoo") Then Return False + If FilterString.ToLower.Contains("@tagsextoy") And Not ssh.FoundTag.ToLower.Contains("tagsextoy") Then Return False + If FilterString.ToLower.Contains("@tagfurniture") And Not ssh.FoundTag.ToLower.Contains("tagfurniture") Then Return False - 'For i As Integer = 0 To ListClean.Count - 1 - 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) - 'Next + If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False + If FilterString.ToLower.Contains("@cockaverage") Then + If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False + End If -#If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") -#End If + If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - Return ListClean + If FilterString.ToLower.Contains("@dombirthday") Then + If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If - End Function + If FilterString.ToLower.Contains("@subbirthday") Then + If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If + + If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False + If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False - Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim OrgFilterString As String = FilterString - Try - If Linear = False Then - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Commands to sort out - ' This Section contains @Commands, which are able to disqualify vocabulary lines. - ' - ' Example-line: "Whatever Text to display @DommeTag(Glaring)" - ' - ' This line has to be sorted out, if there are no corresponding images tagged - ' with "glaring". - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - 'ISSUE: @DomTag() is not filtered out - If FilterString.Contains("@DommeTag(") Then - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.LockImage = True Then - Return False - ElseIf FilterString.ToLower.Contains("@contact1") Then - If ssh.SlideshowContact1.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf FilterString.ToLower.Contains("@contact2") Then - If ssh.SlideshowContact2.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf FilterString.ToLower.Contains("@contact3") Then - If ssh.SlideshowContact3.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf ContactToUse IsNot Nothing Then - If ContactToUse.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - Else - Return False - End If + If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False + If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False + If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then + If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False End If + If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then + If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False + End If + + If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False + If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False + If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False + If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False + If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False - If FilterString.Contains("@ImageTag(") Then - If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False + If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False + If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False + If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False + If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False + + If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False + If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False + If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False + + If FilterString.Contains("@LongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False + End If + If FilterString.Contains("@InterruptLongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False End If - ' ################## @Show-Category-Image ##################### - If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then - If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@1MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False End If - If FilterString.Contains("@ShowBlowjobImage") Then - If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@2MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False End If - If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@3MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False End If - If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then - If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@4MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False End If - If FilterString.Contains("@ShowCaptionsImage") Then - If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@5MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False End If - If FilterString.Contains("@ShowDislikedImage") Then - If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@10MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False End If - If FilterString.Contains("@ShowFemdomImage") Then - If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@15MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False End If - If FilterString.Contains("@ShowGayImage") Then - If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@30MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False End If - If FilterString.Contains("@ShowGeneralImage") Then - If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@45MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False End If - If FilterString.Contains("@ShowHardcoreImage") Then - If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@60MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False End If - If FilterString.Contains("@ShowHentaiImage") Then - If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + + If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False + If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False + If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False + If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False + If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False + If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False + If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False + If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False + If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False + If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False + If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False + If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False + If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False + + If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False + If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False + If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False + If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False + If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False + If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False + If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False + If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False + If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False + If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False + If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False + If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False + If FilterString.Contains("@VitalSubAssignment") Then + If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False End If - If FilterString.Contains("@ShowLesbianImage") Then - If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + + If FilterString.Contains("@RuinTaunt") Then + If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False End If - If FilterString.Contains("@ShowLezdomImage") Then - If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + + If FilterString.Contains("@VideoHardcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False End If - If FilterString.Contains("@ShowLikedImage") Then - If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@VideoSoftcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False End If - If FilterString.Contains("@ShowLocalImage") Then - If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False + If FilterString.Contains("@VideoLesbian") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False End If - If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then - If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False + If FilterString.Contains("@VideoBlowjob") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False End If - 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. - If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False - - If FilterString.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = FilterString.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - - If GetLocalImage(Tags, Nothing) = String.Empty Then Return False + If FilterString.Contains("@VideoFemdom") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False End If - - If FilterString.Contains("@ShowMaledomImage") Then - If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@VideoFemsub") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False End If - If FilterString.Contains("@ShowSoftcoreImage") Then - If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If FilterString.Contains("@VideoGeneral") Then + If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Disqualifying @Commands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - End If - - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Possible space Filters - ' This Section Contains @CommandFilters which allow space chars (0x20). - ' - ' Example: "@Cup(A, B) Whatever Text to display" - ' Mostly all perametrized command filters allow space chars in parameters. - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - - If FilterString.Contains("@AllowsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@ApathyLevel(") Then - If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False - End If - If FilterString.Contains("@Cup(") Then - If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False - End If - If FilterString.Contains("@RuinsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@Variable[") Then - If CheckVariable(FilterString) = False Then Return False - End If - If FilterString.Contains("@Group(") Then - Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") - If GroupCheck.Contains("D") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False + If FilterString.Contains("@VideoHardcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False End If - If GroupCheck.Contains("1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + If FilterString.Contains("@VideoSoftcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False End If - If GroupCheck.Contains("2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + If FilterString.Contains("@VideoLesbianDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False End If - If GroupCheck.Contains("3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + If FilterString.Contains("@VideoBlowjobDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False End If - End If - - If FilterString.Contains("@Flag(") Or FilterString.Contains("@NotFlag(") Then - Dim result As Boolean = True - Dim writeFlag As String - Dim splitFlag As String() - - If FilterString.Contains("@Flag(") Then - writeFlag = GetParentheses(FilterString, "@Flag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - - For Each s In splitFlag - If Not FlagExists(s) Then - result = False - Exit For - End If - Next + If FilterString.Contains("@VideoFemdomDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False End If - If result = False Then Return result - - If FilterString.Contains("@NotFlag(") Then - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - - For Each s In splitFlag - If FlagExists(s) Then - result = False - Exit For - End If - Next + If FilterString.Contains("@VideoFemsubDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False + End If + If FilterString.Contains("@VideoGeneralDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False End If - Return result - End If - If FilterString.Contains("@CheckDate(") And Linear = False Then - If CheckDateList(FilterString) = False Then Return False - End If + If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False + If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False + If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False + If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False + If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False + If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False + If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False + If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False + If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False + If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False + If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False + If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False - If FilterString.Contains("@Month(") Then - If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False - End If + If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then + If ssh.SubStroking = False Then Return False + End If - If FilterString.Contains("@Day(") Then - If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False - End If + If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then + If ssh.SubStroking = True Then Return False + End If - If FilterString.Contains("@SetModule(") Then - If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Possible space Filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then + If ssh.SubEdging = False Then Return False + End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Single word filters - ' This section contains single word command filters. - ' Since there are some legacy commands, which are filters and also instructions, - ' this section will ignore all @Statements after @NullResponse or the first - ' word not starting with "@" (0x40) - ' - ' Beware: destroys the original FilterString-Value! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - Dim FilterList As String() + If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then + If ssh.SubEdging = True Then Return False + End If - FilterList = FilterString.Split(" ") - FilterString = "" + If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then + If ssh.SubHoldingEdge = False Then Return False + End If - For f As Integer = 0 To FilterList.Count - 1 - If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then - Exit For + If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then + If ssh.SubHoldingEdge = True Then Return False End If - FilterString = FilterString & FilterList(f) & " " - Next + If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False + If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False + If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False + If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False + If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False + If FilterString.Contains("@NeutralMood") Then + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + End If - If FilterString = "" Then Return True + If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False + If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False + If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False + If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False + If FilterString.Contains("@LongHold") Then + If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False + End If - If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False + If FilterString.Contains("@ExtremeHold") Then + If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False + End If - If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False - If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False - If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False - If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False - If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False + If FilterString.Contains("@AssWorship") Then + If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False + End If - If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False - If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then - If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False - End If - If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False + If FilterString.Contains("@BoobWorship") Then + If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False + End If - If FilterString.ToLower.Contains("@acup") Then - If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@bcup") Then - If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ccup") Then - If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@dcup") Then - If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddcup") Then - If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddd+cup") Then - If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False - End If + If FilterString.Contains("@PussyWorship") Then + If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False + End If - If FilterString.ToLower.Contains("@tagface") And Not ssh.FoundTag.ToLower.Contains("tagface") Then Return False - If FilterString.ToLower.Contains("@tagboobs") And Not ssh.FoundTag.ToLower.Contains("tagboobs") Then Return False - If FilterString.ToLower.Contains("@tagpussy") And Not ssh.FoundTag.ToLower.Contains("tagpussy") Then Return False - If FilterString.ToLower.Contains("@tagass") And Not ssh.FoundTag.ToLower.Contains("tagass") Then Return False - If FilterString.ToLower.Contains("@tagfeet") And Not ssh.FoundTag.ToLower.Contains("tagfeet") Then Return False - If FilterString.ToLower.Contains("@taglegs") And Not ssh.FoundTag.ToLower.Contains("taglegs") Then Return False - If FilterString.ToLower.Contains("@tagmasturbating") And Not ssh.FoundTag.ToLower.Contains("tagmasturbating") Then Return False - If FilterString.ToLower.Contains("@tagsucking") And Not ssh.FoundTag.ToLower.Contains("tagsucking") Then Return False - If FilterString.ToLower.Contains("@tagfullydressed") And Not ssh.FoundTag.ToLower.Contains("tagfullydressed") Then Return False - If FilterString.ToLower.Contains("@taghalfdressed") And Not ssh.FoundTag.ToLower.Contains("taghalfdressed") Then Return False - If FilterString.ToLower.Contains("@taggarmentcovering") And Not ssh.FoundTag.ToLower.Contains("taggarmentcovering") Then Return False - If FilterString.ToLower.Contains("@taghandscovering") And Not ssh.FoundTag.ToLower.Contains("taghandscovering") Then Return False - If FilterString.ToLower.Contains("@tagnaked") And Not ssh.FoundTag.ToLower.Contains("tagnaked") Then Return False - If FilterString.ToLower.Contains("@tagsideview") And Not ssh.FoundTag.ToLower.Contains("tagsideview") Then Return False - If FilterString.ToLower.Contains("@tagcloseup") And Not ssh.FoundTag.ToLower.Contains("tagcloseup") Then Return False - If FilterString.ToLower.Contains("@tagpiercing") And Not ssh.FoundTag.ToLower.Contains("tagpiercing") Then Return False - If FilterString.ToLower.Contains("@tagsmiling") And Not ssh.FoundTag.ToLower.Contains("tagsmiling") Then Return False - If FilterString.ToLower.Contains("@tagglaring") And Not ssh.FoundTag.ToLower.Contains("tagglaring") Then Return False - If FilterString.ToLower.Contains("@taggarment") And Not ssh.FoundTag.ToLower.Contains("taggarment") Then Return False - If FilterString.ToLower.Contains("@tagunderwear") And Not ssh.FoundTag.ToLower.Contains("tagunderwear") Then Return False - If FilterString.ToLower.Contains("@tagtattoo") And Not ssh.FoundTag.ToLower.Contains("tagtattoo") Then Return False - If FilterString.ToLower.Contains("@tagsextoy") And Not ssh.FoundTag.ToLower.Contains("tagsextoy") Then Return False - If FilterString.ToLower.Contains("@tagfurniture") And Not ssh.FoundTag.ToLower.Contains("tagfurniture") Then Return False + If FilterString.Contains("@Contact1") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + End If - If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False - If FilterString.ToLower.Contains("@cockaverage") Then - If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False - End If + If FilterString.Contains("@Contact2") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + End If - If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.Contains("@Contact3") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + End If - If FilterString.ToLower.Contains("@dombirthday") Then - If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If + If FilterString.Contains("@Info") Then Return False + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Single word filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + Return True + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(String.Format("Exceoption occured while checking line ""{0}"".", OrgFilterString), + ex, "GetFilter(String, Boolean)") + Return False + End Try + End Function - If FilterString.ToLower.Contains("@subbirthday") Then - If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If - - If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False - If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False + Public Function GetFilter2(ByVal FilterString As String) As Boolean - If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False - If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False - If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then - If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False - End If - If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then - If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False - End If - If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False - If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False - If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False - If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False - If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False + Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) + Try + '=============================================================================== + ' Dictionary Setup Description + ' 1st Parameter: "Key" this is the Command as String preceded with @ + ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. + ' + ' If "Value" is "True", all lines containing "Key" will be excuded. + ' + '=============================================================================== + With __ConditionDic + .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) + .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) + .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) + .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) + .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) + .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) + .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) + .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) + .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) + .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) + .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) + .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) + .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) + .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) + .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) + .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) + .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) + .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) + .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) + .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) + .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) + .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) + .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) + .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) + .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) + .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) + .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) + .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + .Add("@TagFace", Not ssh.FoundTag.Contains("TagFace")) + .Add("@TagBoobs", Not ssh.FoundTag.Contains("TagBoobs")) + .Add("@TagPussy", Not ssh.FoundTag.Contains("TagPussy")) + .Add("@TagAss", Not ssh.FoundTag.Contains("TagAss")) + .Add("@TagFeet", Not ssh.FoundTag.Contains("TagFeet")) + .Add("@TagLegs", Not ssh.FoundTag.Contains("TagLegs")) + .Add("@TagMasturbating", Not ssh.FoundTag.Contains("TagMasturbating")) + .Add("@TagSucking", Not ssh.FoundTag.Contains("TagSucking")) + .Add("@TagFullyDressed", Not ssh.FoundTag.Contains("TagFullyDressed")) + .Add("@TagHalfDressed", Not ssh.FoundTag.Contains("TagHalfDressed")) + .Add("@TagGarmentCovering", Not ssh.FoundTag.Contains("TagGarmentCovering")) + .Add("@TagHandsCovering", Not ssh.FoundTag.Contains("TagHandsCovering")) + .Add("@TagNaked", Not ssh.FoundTag.Contains("TagNaked")) + .Add("@TagSideView", Not ssh.FoundTag.Contains("TagSideView")) + .Add("@TagCloseUp", Not ssh.FoundTag.Contains("TagCloseUp")) + .Add("@TagPiercing", Not ssh.FoundTag.Contains("TagPiercing")) + .Add("@TagSmiling", Not ssh.FoundTag.Contains("TagSmiling")) + .Add("@TagGlaring", Not ssh.FoundTag.Contains("TagGlaring")) + .Add("@TagGarment", Not ssh.FoundTag.Contains("TagGarment")) + .Add("@TagUnderwear", Not ssh.FoundTag.Contains("TagUnderwear")) + .Add("@TagTattoo", Not ssh.FoundTag.Contains("TagTattoo")) + .Add("@TagSexToy", Not ssh.FoundTag.Contains("TagSexToy")) + .Add("@TagFurniture", Not ssh.FoundTag.Contains("TagFurniture")) + .Add("@FirstRound", ssh.FirstRound = False) + .Add("@NotFirstRound", ssh.FirstRound = True) + .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) + .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) + .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") + .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") + .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") + .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") + .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") + .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") + .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") + .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") + .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") + .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") + .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") + .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") + .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") + .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") + .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) + .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) + .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. + '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) + .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) + .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) + .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) + .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) + .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) + .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) + .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) + .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) + .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) + .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) + .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) + .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) + .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) + .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) + .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) + .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) + .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) + .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) + .Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. + .Add("@BeforeTease", ssh.BeforeTease = False) + .Add("@OrgasmDenied", ssh.OrgasmDenied = False) + .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) + .Add("@OrgasmRuined", ssh.OrgasmRuined = False) + .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) + .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) + .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) + .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) + .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) + .Add("@InChastity", My.Settings.Chastity = False) + .Add("@NotInChastity", My.Settings.Chastity = True) + .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) + .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) + .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) + .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) + .Add("@VitalSub", CBVitalSub.Checked = False) + .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) + .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) + .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) + .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) + .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") + .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") + .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") + .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") + .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") + .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") + .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") + .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") + .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") + .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") + .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") + .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") + .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") + .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") + .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) + .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) + .Add("@BallTorture0", ssh.CBTBallsCount <> 0) + .Add("@BallTorture1", ssh.CBTBallsCount <> 1) + .Add("@BallTorture2", ssh.CBTBallsCount <> 2) + .Add("@BallTorture3", ssh.CBTBallsCount <> 3) + .Add("@BallTorture4+", ssh.CBTBallsCount < 4) + .Add("@CockTorture0", ssh.CBTCockCount <> 0) + .Add("@CockTorture1", ssh.CBTCockCount <> 1) + .Add("@CockTorture2", ssh.CBTCockCount <> 2) + .Add("@CockTorture3", ssh.CBTCockCount <> 3) + .Add("@CockTorture4+", ssh.CBTCockCount < 4) + .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) + .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) + .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) + .Add("@Stroking", ssh.SubStroking = False) + .Add("@SubStroking", ssh.SubStroking = False) + .Add("@NotStroking", ssh.SubStroking = True) + .Add("@SubNotStroking", ssh.SubStroking = True) + .Add("@Edging", ssh.SubEdging = False) + .Add("@SubEdging", ssh.SubEdging = False) + .Add("@NotEdging", ssh.SubEdging = True) + .Add("@SubNotEdging", ssh.SubEdging = True) + .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@Morning", ssh.GeneralTime <> "Morning") + .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") + .Add("@Night", ssh.GeneralTime <> "Night") + .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) + .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) + .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) + .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. + .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) + .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) + .Add("@SubWorshipping", ssh.WorshipMode = False) + .Add("@SubNotWorshipping", ssh.WorshipMode = True) + .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) + .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) + .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) + .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) + .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) + End With + Catch ex As ArgumentException + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' ArgumentException => Will occur everytime until you fix Source Code! + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) + MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & + "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & + "further executing the Code, the application will exit after closing this Message." & vbCrLf & + ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") + Application.Exit() + End Try - If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False - If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False - If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False - If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False - If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False - If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False - If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False + Try + ' Declare a new regex Instance, for detecting the parameters in a line. + ' Allowed chars for Commands are: A-Z a-z 0-9 @ + ' Allowed Brackets are : ( [ + ' Minimum length is 3 Chars, maximum Command length has no restriction. + Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) + + + ' Execute regex on current line, to find all containing Commands + Dim mc As MatchCollection = __re.Matches(FilterString) + + For Each m As Match In mc + If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then + '=============================================================================== + ' Known Command - DELETE Condition = TRUE + '=============================================================================== + ' The Command is known and his delete condition is True -> delete line + Return False - If FilterString.Contains("@LongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False - End If - If FilterString.Contains("@InterruptLongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False - End If + ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then + '=============================================================================== + ' Unknown Command / BracketCommand + '=============================================================================== + Dim Condition As Boolean = False + + Select Case m.Value.ToUpper + Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) + Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) + Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) + Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) + Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) + Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) + Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) + 'QND-Implemented: ContactData.GetTaggedImage + 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True + Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) + Case Else + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + ' Unknown Command => goto next Match + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + Dim f As String = "" ' Debug line to add the ability to set a breakpoint. + Exit For + End Select + ' The Command is known and his delete condition is True -> delete line + If Condition Then Return False + End If + Next ' of Regex matches (Commands) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: Once implemented rethrow all exceptions. + 'Throw + End Try - If FilterString.Contains("@1MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False - End If - If FilterString.Contains("@2MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False - End If - If FilterString.Contains("@3MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False - End If - If FilterString.Contains("@4MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False - End If - If FilterString.Contains("@5MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False - End If - If FilterString.Contains("@10MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False - End If - If FilterString.Contains("@15MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False - End If - If FilterString.Contains("@30MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False - End If - If FilterString.Contains("@45MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False - End If - If FilterString.Contains("@60MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False - End If + Return True - If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False - If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False - If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False - If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False - If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False - If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False - If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False - If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False - If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False - If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False - If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False - If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False - If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False - If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False - If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False - If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False - If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False - If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False - If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False - If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False - If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False - If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False - If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False - If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False - If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False - If FilterString.Contains("@VitalSubAssignment") Then - If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False - End If - If FilterString.Contains("@RuinTaunt") Then - If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False - End If - If FilterString.Contains("@VideoHardcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False - End If - If FilterString.Contains("@VideoSoftcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False - End If - If FilterString.Contains("@VideoLesbian") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False - End If - If FilterString.Contains("@VideoBlowjob") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False - End If - If FilterString.Contains("@VideoFemdom") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False - End If - If FilterString.Contains("@VideoFemsub") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False - End If - If FilterString.Contains("@VideoGeneral") Then - If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False - End If + End Function - If FilterString.Contains("@VideoHardcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False - End If - If FilterString.Contains("@VideoSoftcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False - End If - If FilterString.Contains("@VideoLesbianDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False - End If - If FilterString.Contains("@VideoBlowjobDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False - End If - If FilterString.Contains("@VideoFemdomDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False - End If - If FilterString.Contains("@VideoFemsubDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False - End If - If FilterString.Contains("@VideoGeneralDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False - End If - If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False - If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False - If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False - If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False - If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False - If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False - If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False - If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False - If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False - If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False - If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False - If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False +#Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" - If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then - If ssh.SubStroking = False Then Return False - End If + Private Sub ChatText_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted + ScrollChatDown() + End Sub - If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then - If ssh.SubStroking = True Then Return False - End If - If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then - If ssh.SubEdging = False Then Return False - End If + Private Sub ChatText2_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + End Sub - If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then - If ssh.SubEdging = True Then Return False - End If + Private Sub chatBox_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop + chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub - If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then - If ssh.SubHoldingEdge = False Then Return False - End If + Private Sub chatBox2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop + chatBox.Text = "" + ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub - If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then - If ssh.SubHoldingEdge = True Then Return False + Private Sub chatBox_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy End If + End Sub - If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False - If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False - If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False - If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False - If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False - If FilterString.Contains("@NeutralMood") Then - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + Private Sub chatBox2_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy End If + End Sub - If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False - If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False - If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False - If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False - If FilterString.Contains("@LongHold") Then - If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False + Private Sub chatbox_KeyDown(sender As Object, e As KeyEventArgs) Handles chatBox.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True End If + End Sub - If FilterString.Contains("@ExtremeHold") Then - If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False + Private Sub chatbox2_KeyDown(sender As Object, e As KeyEventArgs) Handles ChatBox2.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True End If + End Sub - If FilterString.Contains("@AssWorship") Then - If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False + Private Sub chatBox_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True + ' sendButton.PerformClick() + e.KeyChar = Chr(0) End If + End Sub - If FilterString.Contains("@BoobWorship") Then - If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False + Private Sub chatBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True + ' sendButton.PerformClick() + e.KeyChar = Chr(0) End If + End Sub - If FilterString.Contains("@PussyWorship") Then - If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False - End If +#End Region ' Chatbox - If FilterString.Contains("@Contact1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - End If +#Region "------------------------------------ Avoid the Edge --------------------------------------------" - If FilterString.Contains("@Contact2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - End If + Private Sub AvoidTheEdge_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdge.Tick - If FilterString.Contains("@Contact3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If FilterString.Contains("@Info") Then Return False - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Single word filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - Return True - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exceoption occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") - Return False - End Try - End Function + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return + If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + ssh.AvoidTheEdgeTick -= 1 - Public Function GetFilter2(ByVal FilterString As String) As Boolean + If ssh.AvoidTheEdgeTick < 1 Then - Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) - Try - '=============================================================================== - ' Dictionary Setup Description - ' 1st Parameter: "Key" this is the Command as String preceded with @ - ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. - ' - ' If "Value" is "True", all lines containing "Key" will be excuded. - ' - '=============================================================================== - With __ConditionDic - .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) - .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) - .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) - .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) - .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) - .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) - .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) - .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) - .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) - .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) - .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) - .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) - .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) - .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) - .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) - .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) - .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) - .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) - .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) - .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) - .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) - .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) - .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) - .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) - .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) - .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) - .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) - .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@TagFace", Not ssh.FoundTag.Contains("TagFace")) - .Add("@TagBoobs", Not ssh.FoundTag.Contains("TagBoobs")) - .Add("@TagPussy", Not ssh.FoundTag.Contains("TagPussy")) - .Add("@TagAss", Not ssh.FoundTag.Contains("TagAss")) - .Add("@TagFeet", Not ssh.FoundTag.Contains("TagFeet")) - .Add("@TagLegs", Not ssh.FoundTag.Contains("TagLegs")) - .Add("@TagMasturbating", Not ssh.FoundTag.Contains("TagMasturbating")) - .Add("@TagSucking", Not ssh.FoundTag.Contains("TagSucking")) - .Add("@TagFullyDressed", Not ssh.FoundTag.Contains("TagFullyDressed")) - .Add("@TagHalfDressed", Not ssh.FoundTag.Contains("TagHalfDressed")) - .Add("@TagGarmentCovering", Not ssh.FoundTag.Contains("TagGarmentCovering")) - .Add("@TagHandsCovering", Not ssh.FoundTag.Contains("TagHandsCovering")) - .Add("@TagNaked", Not ssh.FoundTag.Contains("TagNaked")) - .Add("@TagSideView", Not ssh.FoundTag.Contains("TagSideView")) - .Add("@TagCloseUp", Not ssh.FoundTag.Contains("TagCloseUp")) - .Add("@TagPiercing", Not ssh.FoundTag.Contains("TagPiercing")) - .Add("@TagSmiling", Not ssh.FoundTag.Contains("TagSmiling")) - .Add("@TagGlaring", Not ssh.FoundTag.Contains("TagGlaring")) - .Add("@TagGarment", Not ssh.FoundTag.Contains("TagGarment")) - .Add("@TagUnderwear", Not ssh.FoundTag.Contains("TagUnderwear")) - .Add("@TagTattoo", Not ssh.FoundTag.Contains("TagTattoo")) - .Add("@TagSexToy", Not ssh.FoundTag.Contains("TagSexToy")) - .Add("@TagFurniture", Not ssh.FoundTag.Contains("TagFurniture")) - .Add("@FirstRound", ssh.FirstRound = False) - .Add("@NotFirstRound", ssh.FirstRound = True) - .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) - .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) - .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") - .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") - .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") - .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") - .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") - .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") - .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") - .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") - .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") - .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") - .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") - .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") - .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") - .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") - .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) - .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) - .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) - '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. - '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) - .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) - .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) - .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) - .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) - .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) - .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) - .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) - .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) - .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) - .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) - .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) - .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) - .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) - .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) - .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) - .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) - .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) - .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) - .Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. - .Add("@BeforeTease", ssh.BeforeTease = False) - .Add("@OrgasmDenied", ssh.OrgasmDenied = False) - .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) - .Add("@OrgasmRuined", ssh.OrgasmRuined = False) - .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) - .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) - .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) - .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) - .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) - .Add("@InChastity", My.Settings.Chastity = False) - .Add("@NotInChastity", My.Settings.Chastity = True) - .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) - .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) - .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) - .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) - .Add("@VitalSub", CBVitalSub.Checked = False) - .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) - .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) - .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) - .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) - .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") - .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") - .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") - .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") - .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") - .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") - .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") - .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") - .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") - .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") - .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") - .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") - .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") - .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") - .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) - .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) - .Add("@BallTorture0", ssh.CBTBallsCount <> 0) - .Add("@BallTorture1", ssh.CBTBallsCount <> 1) - .Add("@BallTorture2", ssh.CBTBallsCount <> 2) - .Add("@BallTorture3", ssh.CBTBallsCount <> 3) - .Add("@BallTorture4+", ssh.CBTBallsCount < 4) - .Add("@CockTorture0", ssh.CBTCockCount <> 0) - .Add("@CockTorture1", ssh.CBTCockCount <> 1) - .Add("@CockTorture2", ssh.CBTCockCount <> 2) - .Add("@CockTorture3", ssh.CBTCockCount <> 3) - .Add("@CockTorture4+", ssh.CBTCockCount < 4) - .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) - .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) - .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) - .Add("@Stroking", ssh.SubStroking = False) - .Add("@SubStroking", ssh.SubStroking = False) - .Add("@NotStroking", ssh.SubStroking = True) - .Add("@SubNotStroking", ssh.SubStroking = True) - .Add("@Edging", ssh.SubEdging = False) - .Add("@SubEdging", ssh.SubEdging = False) - .Add("@NotEdging", ssh.SubEdging = True) - .Add("@SubNotEdging", ssh.SubEdging = True) - .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@Morning", ssh.GeneralTime <> "Morning") - .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") - .Add("@Night", ssh.GeneralTime <> "Night") - .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) - .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) - .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) - .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. - .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) - .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) - .Add("@SubWorshipping", ssh.WorshipMode = False) - .Add("@SubNotWorshipping", ssh.WorshipMode = True) - .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) - .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) - .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) - .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) - .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) - End With - Catch ex As ArgumentException - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' ArgumentException => Will occur everytime until you fix Source Code! - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) - MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & - "further executing the Code, the application will exit after closing this Message." & vbCrLf & - ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") - Application.Exit() - End Try + Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" + If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" - Try - ' Declare a new regex Instance, for detecting the parameters in a line. - ' Allowed chars for Commands are: A-Z a-z 0-9 @ - ' Allowed Brackets are : ( [ - ' Minimum length is 3 Chars, maximum Command length has no restriction. - Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) + Dim AvoidTheEdgeLineStart As Integer + Dim AvoidTheEdgeLineEnd As Integer - ' Execute regex on current line, to find all containing Commands - Dim mc As MatchCollection = __re.Matches(FilterString) + If File.Exists(AvoidTheEdgeVideo) Then + Else + If ssh.DommeVideo = True Then + MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") + Else + MsgBox("AvoidTheEdge.txt is missing!", , "Error!") + End If + Return + End If - For Each m As Match In mc - If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then - '=============================================================================== - ' Known Command - DELETE Condition = TRUE - '=============================================================================== - ' The Command is known and his delete condition is True -> delete line - Return False - ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then - '=============================================================================== - ' Unknown Command / BracketCommand - '=============================================================================== - Dim Condition As Boolean = False - - Select Case m.Value.ToUpper - Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) - Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) - Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) - Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) - Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) - Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) - Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) - 'QND-Implemented: ContactData.GetTaggedImage - 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True - Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) - Case Else - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - ' Unknown Command => goto next Match - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - Dim f As String = "" ' Debug line to add the ability to set a breakpoint. - Exit For - End Select - ' The Command is known and his delete condition is True -> delete line - If Condition Then Return False - End If - Next ' of Regex matches (Commands) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: Once implemented rethrow all exceptions. - 'Throw - End Try - Return True + If ssh.AvoidTheEdgeStroking = False Then + 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - End Function + ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then + 'Return + 'End If + Using ioFileA As New StreamReader(AvoidTheEdgeVideo) + Dim linesA As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer + + TempAvoidTheEdgeLine = -1 + While ioFileA.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesA.Add(ioFileA.ReadLine()) + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While + + End Using -#Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" + Else - Private Sub ChatText_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted - ScrollChatDown() - End Sub - Private Sub ChatText2_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub - Private Sub chatBox_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop - chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub - Private Sub chatBox2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop - chatBox.Text = "" - ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub - Private Sub chatBox_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy - End If - End Sub + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - Private Sub chatBox2_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy - End If - End Sub + Using ioFileB As New StreamReader(AvoidTheEdgeVideo) + Dim linesB As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer - Private Sub chatbox_KeyDown(sender As Object, e As KeyEventArgs) Handles chatBox.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True - End If - End Sub + TempAvoidTheEdgeLine = -1 + While ioFileB.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesB.Add(ioFileB.ReadLine()) + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While - Private Sub chatbox2_KeyDown(sender As Object, e As KeyEventArgs) Handles ChatBox2.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True - End If - End Sub + End Using - Private Sub chatBox_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) - End If - End Sub + End If - Private Sub chatBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) - End If - End Sub + Dim ioFile As New StreamReader(AvoidTheEdgeVideo) + Dim lines As New List(Of String) + While ioFile.Peek <> -1 + lines.Add(ioFile.ReadLine()) + End While -#End Region ' Chatbox + Dim AvoidTheEdgeLine As Integer -#Region "------------------------------------ Avoid the Edge --------------------------------------------" + 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) + 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) - Private Sub AvoidTheEdge_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdge.Tick + AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + ssh.DomTask = lines(AvoidTheEdgeLine) - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return - If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + TypingDelayGeneric() - ssh.AvoidTheEdgeTick -= 1 - If ssh.AvoidTheEdgeTick < 1 Then + End If - Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" - If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" + End Sub - Dim AvoidTheEdgeLineStart As Integer - Dim AvoidTheEdgeLineEnd As Integer + Private Sub AvoidTheEdgeResume_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeResume.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If File.Exists(AvoidTheEdgeVideo) Then - Else - If ssh.DommeVideo = True Then - MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") - Else - MsgBox("AvoidTheEdge.txt is missing!", , "Error!") - End If - Return - End If + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return + If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return + If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return + ssh.AtECountdown -= 1 + 'Debug.Print("AtECountdown = " & AtECountdown) + If ssh.AtECountdown < 1 Then + AvoidTheEdgeResume.Stop() - If ssh.AvoidTheEdgeStroking = False Then + ssh.FileGoto = "NoAvoidTheEdgeInstructions" + ssh.SkipGotoLine = True + GetGoto() + 'domVLC.playlist.play() + DomWMP.Ctlcontrols.play() + HandleScripts() + ScriptTimer.Start() - 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) + End If - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then - 'Return - 'End If + End Sub - Using ioFileA As New StreamReader(AvoidTheEdgeVideo) - Dim linesA As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer - - TempAvoidTheEdgeLine = -1 - While ioFileA.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesA.Add(ioFileA.ReadLine()) - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While +#End Region ' Avoid the Edge - End Using - Else + Private Sub BtnToggleImageVideo_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleImageVideo.Click - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + If mainPictureBox.Visible = True Then + DomWMP.Visible = True + mainPictureBox.Visible = False + Else + mainPictureBox.Visible = True + DomWMP.Visible = False + End If - Using ioFileB As New StreamReader(AvoidTheEdgeVideo) - Dim linesB As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer - - TempAvoidTheEdgeLine = -1 - While ioFileB.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesB.Add(ioFileB.ReadLine()) - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While + End Sub - End Using - End If + Public Sub RunModuleScript(IsEdging As Boolean) - Dim ioFile As New StreamReader(AvoidTheEdgeVideo) - Dim lines As New List(Of String) - While ioFile.Peek <> -1 - lines.Add(ioFile.ReadLine()) - End While + ssh.ShowModule = True - Dim AvoidTheEdgeLine As Integer + ssh.TauntEdging = False - 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) - 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) + ssh.AskedToGiveUpSection = False + Dim ModuleList As New List(Of String) + ModuleList.Clear() - AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) + Dim ChastityModuleCheck As String = "*.txt" + If My.Settings.Chastity = True And Not IsEdging Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + ChastityModuleCheck = "*_CHASTITY.txt" + End If - ssh.DomTask = lines(AvoidTheEdgeLine) + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile - TypingDelayGeneric() + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then +NoPlaylistModuleFile: + If ssh.SetModule <> "" Then - End If + ssh.FileText = ssh.SetModule + Else - End Sub + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) + Dim TempModule As String = foundFile + TempModule = Path.GetFileName(TempModule).Replace(".txt", "") - Private Sub AvoidTheEdgeResume_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeResume.Tick + If IsEdging Then - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Do Until Not TempModule.Contains("\") + TempModule = TempModule.Remove(0, 1) + Loop + End If - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return - If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return - If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return + For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If + ElseIf IsEdging Then + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If + Else + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then + ModuleList.Add(foundFile) + End If + End If + Next + Next - ssh.AtECountdown -= 1 - 'Debug.Print("AtECountdown = " & AtECountdown) + If ModuleList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" + ElseIf IsEdging Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" + End If + Else + ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) + End If + End If - If ssh.AtECountdown < 1 Then - AvoidTheEdgeResume.Stop() + Else + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If - ssh.FileGoto = "NoAvoidTheEdgeInstructions" - ssh.SkipGotoLine = True - GetGoto() - 'domVLC.playlist.play() - DomWMP.Ctlcontrols.play() - HandleScripts() - ScriptTimer.Start() + End If + ssh.SetModule = "" - End If + ssh.DomTask = ssh.DomTask.Replace("@Module", "") - End Sub + If ssh.SetModuleGoto <> "" Then + ssh.FileGoto = ssh.SetModuleGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetModuleGoto = "" + Else + ssh.StrokeTauntVal = -1 + End If -#End Region ' Avoid the Edge + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + If Not IsEdging Then + If ssh.Playlist = True Then ssh.BookmarkModule = False + If ssh.BookmarkModule = True Then + ssh.BookmarkModule = False + ssh.FileText = ssh.BookmarkModuleFile + ssh.StrokeTauntVal = ssh.BookmarkModuleLine + End If + ssh.ScriptTick = 3 + Else + ssh.ScriptTick = 4 + End If - Private Sub BtnToggleImageVideo_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleImageVideo.Click + ScriptTimer.Start() + End Sub - If mainPictureBox.Visible = True Then - DomWMP.Visible = True - mainPictureBox.Visible = False - Else - mainPictureBox.Visible = True - DomWMP.Visible = False - End If - End Sub + Public Sub RunLinkScript() + Debug.Print("RunLinkScript() Called") - Public Sub RunModuleScript(IsEdging As Boolean) + ClearModes() - ssh.ShowModule = True + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile - ssh.TauntEdging = False + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then - ssh.AskedToGiveUpSection = False - Dim ModuleList As New List(Of String) - ModuleList.Clear() - Dim ChastityModuleCheck As String = "*.txt" - If My.Settings.Chastity = True And Not IsEdging Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - ChastityModuleCheck = "*_CHASTITY.txt" - End If +NoPlaylistLinkFile: - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then + Debug.Print("SetLink = " & ssh.SetLink) -NoPlaylistModuleFile: + If ssh.SetLink <> "" Then + Debug.Print("SetLink Called") + ssh.FileText = ssh.SetLink + Else - If ssh.SetModule <> "" Then - ssh.FileText = ssh.SetModule - Else + Dim LinkList As New List(Of String) + LinkList.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) - Dim TempModule As String = foundFile - TempModule = Path.GetFileName(TempModule).Replace(".txt", "") - If IsEdging Then + Dim ChastityLinkCheck As String + If My.Settings.Chastity = True Then + ChastityLinkCheck = "*_CHASTITY.txt" + Else + ChastityLinkCheck = "*.txt" + End If - Do Until Not TempModule.Contains("\") - TempModule = TempModule.Remove(0, 1) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) + Dim TempLink As String = foundFile + TempLink = TempLink.Replace(".txt", "") + Do Until Not TempLink.Contains("\") + TempLink = TempLink.Remove(0, 1) Loop - End If + For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then + LinkList.Add(foundFile) + End If + Else + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then + LinkList.Add(foundFile) + End If + End If + + Next + Next - For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 + If LinkList.Count < 1 Then If My.Settings.Chastity = True Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If - ElseIf IsEdging Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" Else - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then - ModuleList.Add(foundFile) - End If + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" End If - Next - Next - - If ModuleList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" - ElseIf IsEdging Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" + ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) End If - Else - ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) + End If - End If - Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If + Debug.Print("Playlist Link Called") + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If - End If + End If - ssh.SetModule = "" + ssh.SetLink = "" + Debug.Print("SetLink = " & ssh.SetLink) - ssh.DomTask = ssh.DomTask.Replace("@Module", "") + If ssh.WorshipMode = False Then + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + End If - If ssh.SetModuleGoto <> "" Then - ssh.FileGoto = ssh.SetModuleGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetModuleGoto = "" - Else - ssh.StrokeTauntVal = -1 - End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + If ssh.SetLinkGoto <> "" Then + ssh.FileGoto = ssh.SetLinkGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetLinkGoto = "" + Else + ssh.StrokeTauntVal = -1 + End If - If Not IsEdging Then - If ssh.Playlist = True Then ssh.BookmarkModule = False + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + If ssh.Playlist = True Then ssh.BookmarkLink = False - If ssh.BookmarkModule = True Then - ssh.BookmarkModule = False - ssh.FileText = ssh.BookmarkModuleFile - ssh.StrokeTauntVal = ssh.BookmarkModuleLine + If ssh.BookmarkLink = True Then + ssh.BookmarkLink = False + ssh.FileText = ssh.BookmarkLinkFile + ssh.StrokeTauntVal = ssh.BookmarkLinkLine End If + Debug.Print("Link FileText Called") + + ssh.ScriptTick = 3 + ScriptTimer.Start() - Else - ssh.ScriptTick = 4 - End If - ScriptTimer.Start() - End Sub + End Sub - Public Sub RunLinkScript() + Public Sub RunLastScript() + + ClearModes() - Debug.Print("RunLinkScript() Called") + 'My.Settings.Sys_SubLeftEarly = 0 - ClearModes() + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile + SetVariable("SYS_SubLeftEarly", 0) - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then + SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) -NoPlaylistLinkFile: + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) - Debug.Print("SetLink = " & ssh.SetLink) + 'Debug.Print("RunLastScript() Called") - If ssh.SetLink <> "" Then - Debug.Print("SetLink Called") - ssh.FileText = ssh.SetLink - Else + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then - Dim LinkList As New List(Of String) - LinkList.Clear() +NoPlaylistEndFile: + Dim EndList As New List(Of String) + EndList.Clear() - Dim ChastityLinkCheck As String + Dim ChastityEndCheck As String If My.Settings.Chastity = True Then - ChastityLinkCheck = "*_CHASTITY.txt" + ChastityEndCheck = "*_CHASTITY.txt" Else - ChastityLinkCheck = "*.txt" + ChastityEndCheck = "*.txt" End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) - Dim TempLink As String = foundFile - TempLink = TempLink.Replace(".txt", "") - Do Until Not TempLink.Contains("\") - TempLink = TempLink.Remove(0, 1) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) + Dim TempEnd As String = foundFile + TempEnd = TempEnd.Replace(".txt", "") + Do Until Not TempEnd.Contains("\") + TempEnd = TempEnd.Remove(0, 1) Loop - For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 + For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 If My.Settings.Chastity = True Then - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then - LinkList.Add(foundFile) + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) End If Else - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then - LinkList.Add(foundFile) + + If ssh.OrgasmRestricted = True Then + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + Else + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ + And Not TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If End If End If - Next Next - If LinkList.Count < 1 Then + + If EndList.Count < 1 Then If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" + If ssh.OrgasmRestricted = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" + End If End If Else - ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) + ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) End If - End If - - Else - Debug.Print("Playlist Link Called") - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If End If - End If - - ssh.SetLink = "" - Debug.Print("SetLink = " & ssh.SetLink) - - - If ssh.WorshipMode = False Then - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + If ssh.WorshipMode = False Then + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.LockImage = False End If - End If - If ssh.SetLinkGoto <> "" Then - ssh.FileGoto = ssh.SetLinkGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetLinkGoto = "" - Else ssh.StrokeTauntVal = -1 - End If - - - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - If ssh.Playlist = True Then ssh.BookmarkLink = False - - If ssh.BookmarkLink = True Then - ssh.BookmarkLink = False - ssh.FileText = ssh.BookmarkLinkFile - ssh.StrokeTauntVal = ssh.BookmarkLinkLine - End If - - Debug.Print("Link FileText Called") - - - ssh.ScriptTick = 3 - ScriptTimer.Start() - - End Sub - - - - Public Sub RunLastScript() - - ClearModes() - - 'My.Settings.Sys_SubLeftEarly = 0 - - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) - - SetVariable("SYS_SubLeftEarly", 0) + ssh.LastScript = True - SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) + ssh.ScriptTick = 3 + ScriptTimer.Start() - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) - - - - 'Debug.Print("RunLastScript() Called") - - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile + End Sub - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then + Public Sub RunLastBegScript() -NoPlaylistEndFile: + ClearModes() + 'Debug.Print("RunLastBegScript() Called") Dim EndList As New List(Of String) EndList.Clear() - Dim ChastityEndCheck As String - If My.Settings.Chastity = True Then - ChastityEndCheck = "*_CHASTITY.txt" - Else - ChastityEndCheck = "*.txt" - End If - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") Dim TempEnd As String = foundFile TempEnd = TempEnd.Replace(".txt", "") Do Until Not TempEnd.Contains("\") TempEnd = TempEnd.Remove(0, 1) Loop For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then + + If ssh.OrgasmRestricted = False Then + + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then EndList.Add(foundFile) End If Else - - If ssh.OrgasmRestricted = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ - And Not TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) End If + End If + Next Next If EndList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" + + If ssh.OrgasmRestricted = False Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" Else - If ssh.OrgasmRestricted = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" - End If + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" End If Else ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) End If - Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If - End If - - If ssh.WorshipMode = False Then + ssh.LockImage = False If ssh.SlideshowLoaded = True Then nextButton.Enabled = True previousButton.Enabled = True PicStripTSMIdommeSlideshow.Enabled = True End If - ssh.LockImage = False - End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 4 + ScriptTimer.Start() + ssh.LastScript = True + + 'RunFileText() - ssh.StrokeTauntVal = -1 + End Sub - ssh.LastScript = True + Public Sub StopEverything() + + ScriptTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False - ssh.ScriptTick = 3 - ScriptTimer.Start() + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False + ssh.ExtremeHold = False - End Sub + ssh.MiniScript = False - Public Sub RunLastBegScript() + ' Unlock OrgasmChances + FrmSettings.LockOrgasmChances(False) - ClearModes() + ClearModes() - 'Debug.Print("RunLastBegScript() Called") - Dim EndList As New List(Of String) - EndList.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - Dim TempEnd As String = foundFile - TempEnd = TempEnd.Replace(".txt", "") - Do Until Not TempEnd.Contains("\") - TempEnd = TempEnd.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - If ssh.OrgasmRestricted = False Then + StrokePace = 0 - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then - EndList.Add(foundFile) - End If - Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If + End Sub - End If - Next - Next + Private Sub EdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeTauntTimer.Tick + If MultipleEdgesTimer.Enabled = True Then Return + If ssh.MiniScript = True Then Return + If ssh.InputFlag = True Then Return - If EndList.Count < 1 Then + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.OrgasmRestricted = False Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" - End If - Else - ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) - End If + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If + FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 4 - ScriptTimer.Start() - ssh.LastScript = True + 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) - 'RunFileText() + ssh.EdgeTauntInt -= 1 - End Sub + If ssh.EdgeTauntInt < 1 Then - Public Sub StopEverything() + Dim File2Read As String = "" - ScriptTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False - ssh.ExtremeHold = False - - ssh.MiniScript = False - - ' Unlock OrgasmChances - FrmSettings.LockOrgasmChances(False) + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" + End If - ClearModes() + 'Read all lines of the given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & + File2Read, ex, "EdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt" + End Try - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If + TypingDelayGeneric() - StrokePace = 0 + ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) - End Sub + End If + End Sub - Private Sub EdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeTauntTimer.Tick +#Region "--------------------------------------- Hold the Edge ------------------------------------------" - If MultipleEdgesTimer.Enabled = True Then Return - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return + Private Sub HoldEdgeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt + ssh.HoldEdgeTime += 1 + ssh.HoldEdgeTimeTotal += 1 - 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) + My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal - ssh.EdgeTauntInt -= 1 + If ssh.InputFlag = True Then Return - If ssh.EdgeTauntInt < 1 Then + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - Dim File2Read As String = "" - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" - End If + 'If DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return + If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return - 'Read all lines of the given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + ssh.HoldEdgeTick -= 1 - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & - File2Read, ex, "EdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt" - End Try + FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - TypingDelayGeneric() + If ssh.HoldEdgeTick < 1 Then - ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) + 'stop + ssh.LongHold = False + ssh.ExtremeHold = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" - End If + 'If OrgasmAllowed = True Then GoTo AllowedOrgasm + 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm - End Sub + If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then + ssh.LastOrgasmType = "RUINED" + ssh.OrgasmRuined = False + GoTo RuinedOrgasm + End If -#Region "--------------------------------------- Hold the Edge ------------------------------------------" + If ssh.OrgasmAllowed = True Then + ssh.LastOrgasmType = "ALLOWED" + ssh.OrgasmAllowed = False + GoTo AllowedOrgasm + End If - Private Sub HoldEdgeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTimer.Tick + If ssh.OrgasmDenied = True Then - If ssh.MiniScript = True Then Return + ssh.LastOrgasmType = "DENIED" - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then - ssh.HoldEdgeTime += 1 - ssh.HoldEdgeTimeTotal += 1 + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal + If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() - If ssh.InputFlag = True Then Return + Dim RepeatList As New List(Of String) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next + If RepeatList.Count < 1 Then GoTo NoRepeatFiles - 'If DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return - If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If - ssh.HoldEdgeTick -= 1 + TeaseTimer.Start() - FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmDenied = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - If ssh.HoldEdgeTick < 1 Then + End If - 'stop - ssh.LongHold = False - ssh.ExtremeHold = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" - 'If OrgasmAllowed = True Then GoTo AllowedOrgasm - 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm + End If - If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then - ssh.LastOrgasmType = "RUINED" - ssh.OrgasmRuined = False - GoTo RuinedOrgasm - End If +NoRepeatFiles: - If ssh.OrgasmAllowed = True Then - ssh.LastOrgasmType = "ALLOWED" - ssh.OrgasmAllowed = False - GoTo AllowedOrgasm - End If + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + ssh.DomTask = "#StopStroking" + If ssh.Contact1Edge = True Then + ssh.DomTask = "@Contact1 #StopStroking" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomTask = "@Contact2 #StopStroking" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomTask = "@Contact3 #StopStroking" + ssh.Contact3Edge = False + End If + TypingDelayGeneric() + Return - If ssh.OrgasmDenied = True Then +RuinedOrgasm: - ssh.LastOrgasmType = "DENIED" + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then - ssh.SubEdging = False - ssh.SubStroking = False + If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True Dim RepeatList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") RepeatList.Add(foundFile) Next - If RepeatList.Count < 1 Then GoTo NoRepeatFiles + If RepeatList.Count < 1 Then GoTo NoRepeatRFiles + If FrmSettings.CBTeaseLengthDD.Checked = True Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 @@ -15481,7 +15545,6 @@ NoPlaylistEndFile: Else ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) End If - TeaseTimer.Start() 'ShowModule = True @@ -15489,7 +15552,7 @@ NoPlaylistEndFile: ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() - ssh.OrgasmDenied = False + ssh.OrgasmRuined = False ssh.OrgasmYesNo = False ssh.EndTease = False Return @@ -15498,721 +15561,643 @@ NoPlaylistEndFile: End If - End If - -NoRepeatFiles: - - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - ssh.DomTask = "#StopStroking" - If ssh.Contact1Edge = True Then - ssh.DomTask = "@Contact1 #StopStroking" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomTask = "@Contact2 #StopStroking" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomTask = "@Contact3 #StopStroking" - ssh.Contact3Edge = False - End If - TypingDelayGeneric() - Return - -RuinedOrgasm: - - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - - If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then - - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - - Dim RepeatList As New List(Of String) - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next - - If RepeatList.Count < 1 Then GoTo NoRepeatRFiles +NoRepeatRFiles: - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If - TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmRuined = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + ssh.OrgasmYesNo = False + ssh.DomChat = "#RuinYourOrgasm" + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #RuinYourOrgasm" + ssh.Contact1Edge = False End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #RuinYourOrgasm" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #RuinYourOrgasm" + ssh.Contact3Edge = False + End If + TypingDelay() + Return - End If - +AllowedOrgasm: + If My.Settings.OrgasmsLocked = True Then -NoRepeatRFiles: + If My.Settings.OrgasmsRemaining < 1 Then + Dim NoCumList As New List(Of String) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + NoCumList.Add(foundFile) + Next - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - ssh.OrgasmYesNo = False - ssh.DomChat = "#RuinYourOrgasm" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #RuinYourOrgasm" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #RuinYourOrgasm" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #RuinYourOrgasm" - ssh.Contact3Edge = False - End If - TypingDelay() - Return + If NoCumList.Count < 1 Then GoTo NoNoCumFiles -AllowedOrgasm: - If My.Settings.OrgasmsLocked = True Then + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + Return + End If - If My.Settings.OrgasmsRemaining < 1 Then - Dim NoCumList As New List(Of String) + My.Settings.OrgasmsRemaining -= 1 - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - NoCumList.Add(foundFile) - Next - If NoCumList.Count < 1 Then GoTo NoNoCumFiles + End If +NoNoCumFiles: - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - Return - End If + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - My.Settings.OrgasmsRemaining -= 1 + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - End If + If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then -NoNoCumFiles: + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + EdgeTauntTimer.Stop() + Dim RepeatList As New List(Of String) - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then + If RepeatList.Count < 1 Then GoTo NoRepeatOFiles - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + TeaseTimer.Start() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - EdgeTauntTimer.Stop() + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmAllowed = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - Dim RepeatList As New List(Of String) + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next - If RepeatList.Count < 1 Then GoTo NoRepeatOFiles +NoRepeatOFiles: - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If - TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmAllowed = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + 'OrgasmAllowed = False + ssh.DomChat = "#CumForMe" + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #CumForMe" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #CumForMe" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #CumForMe" + ssh.Contact3Edge = False End If + TypingDelay() + Return End If + End Sub + Private Sub HoldEdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick -NoRepeatOFiles: - - - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - 'OrgasmAllowed = False - ssh.DomChat = "#CumForMe" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #CumForMe" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #CumForMe" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #CumForMe" - ssh.Contact3Edge = False - End If - TypingDelay() - Return - - End If - - End Sub - - Private Sub HoldEdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick - - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return + If ssh.MiniScript = True Then Return + If ssh.InputFlag = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - ssh.EdgeTauntInt -= 1 + ssh.EdgeTauntInt -= 1 - If ssh.EdgeTauntInt < 1 Then + If ssh.EdgeTauntInt < 1 Then - Dim File2Read As String = "" + Dim File2Read As String = "" - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" - End If + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" + End If - ' Read all lines of given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + ' Read all lines of given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read, ex, "HoldEdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt" - End Try + ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt" + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) + ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) - End If + End If - End Sub + End Sub #End Region ' Hold the Edge - Public Sub CreateTaskLetter() + Public Sub CreateTaskLetter() - Dim TaskEntry As String + Dim TaskEntry As String - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon - If ssh.GeneralTime = "Night" Then GoTo Night + If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon + If ssh.GeneralTime = "Night" Then GoTo Night - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Afternoon: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Night: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If FrmSettings.CBHonorificInclude.Checked = True Then - ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & domName.Text - Else - ssh.TaskText = ssh.TaskText & domName.Text - End If + If FrmSettings.CBHonorificInclude.Checked = True Then + ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & domName.Text + Else + ssh.TaskText = ssh.TaskText & domName.Text + End If - ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") + ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") - Dim TempDate As String - Dim TempDateNow As DateTime = DateTime.Now + Dim TempDate As String + Dim TempDateNow As DateTime = DateTime.Now - TempDate = TempDateNow.ToString("M dd") + TempDate = TempDateNow.ToString("M dd") - ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" - My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) + ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" + My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) - ssh.TaskText = "" + ssh.TaskText = "" - LBLFileTransfer.Text = domName.Text & " is sending you a file!" - PNLFileTransfer.Visible = True - PNLFileTransfer.BringToFront() + LBLFileTransfer.Text = domName.Text & " is sending you a file!" + PNLFileTransfer.Visible = True + PNLFileTransfer.BringToFront() - StupidTimer.Start() + StupidTimer.Start() - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - Debug.Print("Created " & ssh.GeneralTime & " Task Letter") - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("Created " & ssh.GeneralTime & " Task Letter") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - End Sub + End Sub - Public Function CleanTaskLines(ByVal dir As String) As String - Try - Dim TaskLines As List(Of String) = Txt2List(dir) - Dim TaskEntry As String - Dim TaskArray As String() - Dim TaskList As New List(Of String) + Public Function CleanTaskLines(ByVal dir As String) As String + Try + Dim TaskLines As List(Of String) = Txt2List(dir) + Dim TaskEntry As String + Dim TaskArray As String() + Dim TaskList As New List(Of String) - TaskLines = FilterList(TaskLines) - If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") + TaskLines = FilterList(TaskLines) + If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") - TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) + TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) - Dim LoopBuffer As Integer + Dim LoopBuffer As Integer - TaskArray = TaskEntry.Split(" ") - For i As Integer = 0 To TaskArray.Count - 1 - TaskList.Add(TaskArray(i)) - Next - TaskEntry = "" - For i As Integer = 0 To TaskList.Count - 1 - Try - LoopBuffer = 0 + TaskArray = TaskEntry.Split(" ") + For i As Integer = 0 To TaskArray.Count - 1 + TaskList.Add(TaskArray(i)) + Next + TaskEntry = "" + For i As Integer = 0 To TaskList.Count - 1 + Try + LoopBuffer = 0 PoundLoop: - LoopBuffer += 1 + LoopBuffer += 1 - TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") - TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") - TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") + TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") + TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") + TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") - TaskList(i) = PoundClean(TaskList(i)) - If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop + TaskList(i) = PoundClean(TaskList(i)) + If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop - TaskEntry = TaskEntry & TaskList(i) & " " - Catch - End Try - Next + TaskEntry = TaskEntry & TaskList(i) & " " + Catch + End Try + Next - Dim int As Integer + Dim int As Integer - If TaskEntry.Contains("#TaskEdges") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskEdges", int) - Loop Until Not TaskEntry.Contains("#TaskEdges") - End If + If TaskEntry.Contains("#TaskEdges") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskEdges", int) + Loop Until Not TaskEntry.Contains("#TaskEdges") + End If - If TaskEntry.Contains("#TaskStrokes") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) - If int > 10 Then int = 10 * Math.Round(int / 10) - TaskEntry = TaskEntry.Replace("#TaskStrokes", int) - Loop Until Not TaskEntry.Contains("#TaskStrokes") - End If + If TaskEntry.Contains("#TaskStrokes") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) + If int > 10 Then int = 10 * Math.Round(int / 10) + TaskEntry = TaskEntry.Replace("#TaskStrokes", int) + Loop Until Not TaskEntry.Contains("#TaskStrokes") + End If - If TaskEntry.Contains("#TaskHours") Then - Do - int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskHours", int) - Loop Until Not TaskEntry.Contains("#TaskHours") - End If + If TaskEntry.Contains("#TaskHours") Then + Do + int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskHours", int) + Loop Until Not TaskEntry.Contains("#TaskHours") + End If - If TaskEntry.Contains("#TaskMinutes") Then - Do - int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskMinutes", int) - Loop Until Not TaskEntry.Contains("#TaskMinutes") - End If + If TaskEntry.Contains("#TaskMinutes") Then + Do + int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskMinutes", int) + Loop Until Not TaskEntry.Contains("#TaskMinutes") + End If - If TaskEntry.Contains("#TaskSeconds") Then - Do - int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) - TaskEntry = TaskEntry.Replace("#TaskSeconds", int) - Loop Until Not TaskEntry.Contains("#TaskSeconds") - End If + If TaskEntry.Contains("#TaskSeconds") Then + Do + int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + TaskEntry = TaskEntry.Replace("#TaskSeconds", int) + Loop Until Not TaskEntry.Contains("#TaskSeconds") + End If - If TaskEntry.Contains("#TaskAmountLarge") Then - Do - int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) - Loop Until Not TaskEntry.Contains("#TaskAmountLarge") - End If + If TaskEntry.Contains("#TaskAmountLarge") Then + Do + int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) + Loop Until Not TaskEntry.Contains("#TaskAmountLarge") + End If - If TaskEntry.Contains("#TaskAmountSmall") Then - Do - int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) - Loop Until Not TaskEntry.Contains("#TaskAmountSmall") - End If + If TaskEntry.Contains("#TaskAmountSmall") Then + Do + int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) + Loop Until Not TaskEntry.Contains("#TaskAmountSmall") + End If - If TaskEntry.Contains("#TaskAmount") Then - Do - int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmount", int) - Loop Until Not TaskEntry.Contains("#TaskAmount") - End If + If TaskEntry.Contains("#TaskAmount") Then + Do + int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmount", int) + Loop Until Not TaskEntry.Contains("#TaskAmount") + End If - If TaskEntry.Contains("#TaskStrokingTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskStrokingTime") - End If + If TaskEntry.Contains("#TaskStrokingTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskStrokingTime") + End If - If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") - End If + If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") + End If - If TaskEntry.Contains("#TaskCBTTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskCBTTime") - End If + If TaskEntry.Contains("#TaskCBTTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskCBTTime") + End If - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("#Null", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("#Null", "") - LoopBuffer = 0 + LoopBuffer = 0 - Do - LoopBuffer += 1 - If LoopBuffer > 4 Then Exit Do - TaskEntry = PoundClean(TaskEntry) - Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") + Do + LoopBuffer += 1 + If LoopBuffer > 4 Then Exit Do + TaskEntry = PoundClean(TaskEntry) + Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") - TaskEntry = CommandClean(TaskEntry, True) + TaskEntry = CommandClean(TaskEntry, True) - TaskEntry = StripCommands(TaskEntry) + TaskEntry = StripCommands(TaskEntry) - TaskEntry = Trim(TaskEntry) + TaskEntry = Trim(TaskEntry) - If TaskEntry.Contains("*") Then - TaskEntry = TaskEntry.Replace(". *", " *") - Dim EmoToggle As Boolean = True - For i As Integer = TaskEntry.Length - 1 To 0 Step -1 - If TaskEntry.Substring(i, 1) = "*" Then - If EmoToggle = False Then - EmoToggle = True - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) - Else - EmoToggle = False - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) + If TaskEntry.Contains("*") Then + TaskEntry = TaskEntry.Replace(". *", " *") + Dim EmoToggle As Boolean = True + For i As Integer = TaskEntry.Length - 1 To 0 Step -1 + If TaskEntry.Substring(i, 1) = "*" Then + If EmoToggle = False Then + EmoToggle = True + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) + Else + EmoToggle = False + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) + End If End If - End If - Next - End If + Next + End If - Return TaskEntry - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") - Return "ERROR: Tease AI did not return a valid Task line" - End Try - End Function + Return TaskEntry + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") + Return "ERROR: Tease AI did not return a valid Task line" + End Try + End Function - Private Sub BTNFIleTransferDismiss_Click(sender As System.Object, e As System.EventArgs) Handles BTNFIleTransferDismiss.Click + Private Sub BTNFIleTransferDismiss_Click(sender As System.Object, e As System.EventArgs) Handles BTNFIleTransferDismiss.Click - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = domName.Text & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = domName.Text & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Public Function ShellExecute(ByVal File As String) As Boolean - Dim myProcess As New Process - myProcess.StartInfo.FileName = File - myProcess.StartInfo.UseShellExecute = True - myProcess.StartInfo.RedirectStandardOutput = False - myProcess.Start() - myProcess.Dispose() - End Function + Public Function ShellExecute(ByVal File As String) As Boolean + Dim myProcess As New Process + myProcess.StartInfo.FileName = File + myProcess.StartInfo.UseShellExecute = True + myProcess.StartInfo.RedirectStandardOutput = False + myProcess.Start() + myProcess.Dispose() + End Function - Public Sub BTNFileTransferOpen_Click(sender As System.Object, e As System.EventArgs) Handles BTNFileTransferOpen.Click + Public Sub BTNFileTransferOpen_Click(sender As System.Object, e As System.EventArgs) Handles BTNFileTransferOpen.Click - ShellExecute(ssh.TaskTextDir) + ShellExecute(ssh.TaskTextDir) - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = domName.Text & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = domName.Text & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Private Sub SlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SlideshowTimer.Tick - 'TODO: Remove CrossForm data access - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub SlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SlideshowTimer.Tick + 'TODO: Remove CrossForm data access + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return + If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return - ssh.SlideshowTimerTick -= 1 + ssh.SlideshowTimerTick -= 1 - If ssh.SlideshowTimerTick < 1 Then + If ssh.SlideshowTimerTick < 1 Then TryNext: - If My.Settings.CBSlideshowRandom Then - ssh.SlideshowMain.NavigateNextTease() - Else - ssh.SlideshowMain.NavigateForward() - End If + If My.Settings.CBSlideshowRandom Then + ssh.SlideshowMain.NavigateNextTease() + Else + ssh.SlideshowMain.NavigateForward() + End If - If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ + If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ Or isURL(ssh.SlideshowMain.CurrentImage)) Then - ClearMainPictureBox() - Exit Sub - End If + ClearMainPictureBox() + Exit Sub + End If - Try - ShowImage(ssh.SlideshowMain.CurrentImage, True) - ssh.JustShowedBlogImage = False - ssh.JustShowedSlideshowImage = True + Try + ShowImage(ssh.SlideshowMain.CurrentImage, True) + ssh.JustShowedBlogImage = False + ssh.JustShowedSlideshowImage = True - Catch - GoTo TryNext - End Try + Catch + GoTo TryNext + End Try - ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value - End If + ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value + End If - End Sub + End Sub - Public Sub GetEdgeTickCheck() + Public Sub GetEdgeTickCheck() - If ssh.AlreadyStrokingEdge = True Then + If ssh.AlreadyStrokingEdge = True Then + + If ssh.AvgEdgeCount < 5 Then + ssh.EdgeTickCheck = 60 + Else + ssh.EdgeTickCheck = ssh.AvgEdgeStroking + End If - If ssh.AvgEdgeCount < 5 Then - ssh.EdgeTickCheck = 60 Else - ssh.EdgeTickCheck = ssh.AvgEdgeStroking - End If - Else + If ssh.AvgEdgeCountRest < 5 Then + ssh.EdgeTickCheck = 300 + Else + ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch + End If - If ssh.AvgEdgeCountRest < 5 Then - ssh.EdgeTickCheck = 300 - Else - ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch End If - End If - - End Sub + End Sub - Private Sub EdgeCountTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeCountTimer.Tick + Private Sub EdgeCountTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeCountTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.EdgeCountTick += 1 + ssh.EdgeCountTick += 1 - If FrmSettings.CBEdgeUseAvg.Checked = True Then - If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True - Else - If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True - End If + If FrmSettings.CBEdgeUseAvg.Checked = True Then + If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True + Else + If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True + End If - Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes - Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds + Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes + Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds - Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) + Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) - ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) + ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) - 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) - End Sub + 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) + End Sub - Private Sub StrokeTimeTotalTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick + Private Sub StrokeTimeTotalTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SubStroking = False Then Return + If ssh.SubStroking = False Then Return - ssh.StrokeTimeTotal += 1 - 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) + ssh.StrokeTimeTotal += 1 + 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) - My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal + My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal - Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) + Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) - 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - End Sub + End Sub - Private Sub TnAFastSlides_Tick(sender As System.Object, e As System.EventArgs) Handles TnASlides.Tick - Dim tmpSw As New Stopwatch + Private Sub TnAFastSlides_Tick(sender As System.Object, e As System.EventArgs) Handles TnASlides.Tick + Dim tmpSw As New Stopwatch RestartFunction: - tmpSw.Restart() - Try - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") - - Dim tmpImageToShow As String = "" - Dim tmpLateSet As Boolean - - If New Random().Next(0, 101) < 51 Then - tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) - tmpLateSet = True - Else - tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) - tmpLateSet = False - End If - + tmpSw.Restart() Try - ShowImage(tmpImageToShow, True) + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") + + Dim tmpImageToShow As String = "" + Dim tmpLateSet As Boolean - If tmpLateSet Then - ssh.BoobImage = True - ssh.AssImage = False + If New Random().Next(0, 101) < 51 Then + tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) + tmpLateSet = True Else - ssh.BoobImage = False - ssh.AssImage = True + tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) + tmpLateSet = False End If - ' If the elapsed time to load an image was longer as the Timer.Interval - ' we restart the function instantly, to avoid an unnecessary delay. - ' If it took way too long and the Timer was stopped during imagedownload, - ' we dont want the timer to restart. - If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then + Try + ShowImage(tmpImageToShow, True) + + If tmpLateSet Then + ssh.BoobImage = True + ssh.AssImage = False + Else + ssh.BoobImage = False + ssh.AssImage = True + End If + + ' If the elapsed time to load an image was longer as the Timer.Interval + ' we restart the function instantly, to avoid an unnecessary delay. + ' If it took way too long and the Timer was stopped during imagedownload, + ' we dont want the timer to restart. + If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then + GoTo RestartFunction + End If + Catch ex As Exception + ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ + ' Remove the ImagePath and retry. + ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) GoTo RestartFunction - End If + End Try Catch ex As Exception - ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ - ' Remove the ImagePath and retry. - ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) - ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) - GoTo RestartFunction + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + TnASlides.Stop() + Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlieds.Tick occured") End Try - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - TnASlides.Stop() - Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlieds.Tick occured") - End Try - End Sub + End Sub @@ -16224,245 +16209,245 @@ RestartFunction: #Region "---------------------------------------------------- Domme-WMP -------------------------------------------------------" - Private Sub DomWMP_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange + Private Sub DomWMP_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - If FrmSettings.CBMuteMedia.Checked = True Then - DomWMP.settings.mute = True + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + If FrmSettings.CBMuteMedia.Checked = True Then + DomWMP.settings.mute = True + End If End If - End If - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then - 'Debug.Print("WMP Stopped Called") + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then + 'Debug.Print("WMP Stopped Called") - VideoTimer.Stop() + VideoTimer.Stop() - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False + ssh.EdgeVideo = False + ssh.YesVideo = False + ssh.NoVideo_Mode = False + ssh.CameVideo = False + ssh.RuinedVideo = False - DomWMP.currentPlaylist.clear() + DomWMP.currentPlaylist.clear() - If ssh.CensorshipGame = True Then - CensorshipTimer.Stop() - CensorshipBar.Visible = False - ssh.CensorshipGame = False - ssh.VideoTease = False + If ssh.CensorshipGame = True Then + CensorshipTimer.Stop() + CensorshipBar.Visible = False + ssh.CensorshipGame = False + ssh.VideoTease = False - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If + + RunFileText() End If - RunFileText() - End If + If ssh.AvoidTheEdgeGame = True Then - If ssh.AvoidTheEdgeGame = True Then + ssh.TeaseVideo = False + ssh.AvoidTheEdgeGame = False + ssh.AvoidTheEdgeStroking = False + AvoidTheEdgeTaunts.Stop() + ssh.VideoTease = False + ssh.SubStroking = False - ssh.TeaseVideo = False - ssh.AvoidTheEdgeGame = False - ssh.AvoidTheEdgeStroking = False - AvoidTheEdgeTaunts.Stop() - ssh.VideoTease = False - ssh.SubStroking = False + Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) + Debug.Print("TempFileText = " & ssh.TempFileText) - Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) - Debug.Print("TempFileText = " & ssh.TempFileText) + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + ssh.StrokeTauntVal = ssh.TempStrokeTauntVal + ssh.FileText = ssh.TempFileText + + ssh.ScriptTick = 2 + ScriptTimer.Start() - ssh.StrokeTauntVal = ssh.TempStrokeTauntVal - ssh.FileText = ssh.TempFileText + 'RunFileText() - ssh.ScriptTick = 2 - ScriptTimer.Start() - 'RunFileText() + 'AvoidTheEdge.Stop() + 'AvoidTheEdgeGame = False + 'SkipGotoLine = True + 'If AvoidTheEdgeTimerTick < 1 Then + 'FileGoto = "(AvoidTheEdge Video Stop)" + 'Else + ' FileGoto = "(AvoidTheEdge Video Continue)" + 'End If + 'GetGoto() + 'RunFileText() + End If + If ssh.RLGLGame = True Then + RLGLTimer.Stop() + RLGLTauntTimer.Stop() + ssh.RLGLGame = False + ssh.VideoTease = False + ssh.SubStroking = False - 'AvoidTheEdge.Stop() - 'AvoidTheEdgeGame = False - 'SkipGotoLine = True - 'If AvoidTheEdgeTimerTick < 1 Then - 'FileGoto = "(AvoidTheEdge Video Stop)" - 'Else - ' FileGoto = "(AvoidTheEdge Video Continue)" - 'End If - 'GetGoto() - 'RunFileText() - End If - If ssh.RLGLGame = True Then - RLGLTimer.Stop() - RLGLTauntTimer.Stop() - ssh.RLGLGame = False - ssh.VideoTease = False - ssh.SubStroking = False + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If + ssh.ScriptTick = 1 + ScriptTimer.Start() - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() Return End If - ssh.ScriptTick = 1 - ScriptTimer.Start() - Return - End If + If ssh.TeaseVideo = True Then + ssh.TeaseVideo = False + DomWMP.Ctlcontrols.pause() + RunFileText() + End If - If ssh.TeaseVideo = True Then - ssh.TeaseVideo = False - DomWMP.Ctlcontrols.pause() - RunFileText() - End If + If ssh.LockVideo = False Then + mainPictureBox.Visible = True + DomWMP.Visible = False + End If - If ssh.LockVideo = False Then - mainPictureBox.Visible = True - DomWMP.Visible = False End If + End Sub - End If - - End Sub - - Private Sub WMPTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WMPTimer.Tick + Private Sub WMPTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WMPTimer.Tick - If DomWMP.currentPlaylist.count <> 0 Then - Try - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) + If DomWMP.currentPlaylist.count <> 0 Then + Try + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) - Debug.Print("Video Length = " & VideoLength) - Debug.Print("Video Remaining = " & VideoRemaining) - Catch - End Try - End If + Debug.Print("Video Length = " & VideoLength) + Debug.Print("Video Remaining = " & VideoRemaining) + Catch + End Try + End If - If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return + If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return - 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) + 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) - ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) + ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) - Dim VidSplit As String() = ssh.VidFile.Split(".") - ssh.VidFile = "" - For i As Integer = 0 To VidSplit.Count - 2 - ssh.VidFile = ssh.VidFile + VidSplit(i) - Next - 'Debug.Print(VidFile) - If ssh.VidFile = "" Then Exit Sub - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then - Dim SubCheck As String() - Dim PlayPos As Integer - Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) - - Dim SubList As New List(Of String) - SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") - - If Not SubList Is Nothing Then - For i As Integer = 0 To SubList.Count - 1 - SubCheck = SubList(i).Split("]") - SubCheck(0) = SubCheck(0).Replace("[", "") - Dim SubCheck2 As String() = SubCheck(0).Split(":") - - PlayPos = SubCheck2(0) * 3600 - PlayPos += SubCheck2(1) * 60 - PlayPos += SubCheck2(2) - - If WMPPos = PlayPos Then - ssh.DomTask = SubCheck(1) - TypingDelayGeneric() - Debug.Print(SubList(i)) - End If - Next + Dim VidSplit As String() = ssh.VidFile.Split(".") + ssh.VidFile = "" + For i As Integer = 0 To VidSplit.Count - 2 + ssh.VidFile = ssh.VidFile + VidSplit(i) + Next + 'Debug.Print(VidFile) + If ssh.VidFile = "" Then Exit Sub + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then + Dim SubCheck As String() + Dim PlayPos As Integer + Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) + + Dim SubList As New List(Of String) + SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") + + If Not SubList Is Nothing Then + For i As Integer = 0 To SubList.Count - 1 + SubCheck = SubList(i).Split("]") + SubCheck(0) = SubCheck(0).Replace("[", "") + Dim SubCheck2 As String() = SubCheck(0).Split(":") + + PlayPos = SubCheck2(0) * 3600 + PlayPos += SubCheck2(1) * 60 + PlayPos += SubCheck2(2) + + If WMPPos = PlayPos Then + ssh.DomTask = SubCheck(1) + TypingDelayGeneric() + Debug.Print(SubList(i)) + End If + Next + End If End If - End If - End Sub + End Sub #End Region 'Domme-WMP - Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter - If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() - End Sub + Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter + If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() + End Sub - Private Sub domAvatar_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel + Private Sub domAvatar_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel - If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then - domAvatar.SizeMode = PictureBoxSizeMode.Zoom - My.Settings.DomAVStretch = False - Else - domAvatar.SizeMode = PictureBoxSizeMode.StretchImage - My.Settings.DomAVStretch = True - End If + If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then + domAvatar.SizeMode = PictureBoxSizeMode.Zoom + My.Settings.DomAVStretch = False + Else + domAvatar.SizeMode = PictureBoxSizeMode.StretchImage + My.Settings.DomAVStretch = True + End If - End Sub + End Sub - Private Sub WaitTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WaitTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub WaitTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WaitTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return + If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return - 'Debug.Print("WaitTick = " & WaitTick) + 'Debug.Print("WaitTick = " & WaitTick) - ssh.WaitTick -= 1 + ssh.WaitTick -= 1 - If ssh.WaitTick < 1 Then - WaitTimer.Stop() - ssh.ScriptTick = 1 - End If + If ssh.WaitTick < 1 Then + WaitTimer.Stop() + ssh.ScriptTick = 1 + End If - End Sub + End Sub - Private Sub StupidTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StupidTimer.Tick + Private Sub StupidTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StupidTimer.Tick - If PBFileTransfer.Value = PBFileTransfer.Maximum Then - StupidTimer.Enabled = False + If PBFileTransfer.Value = PBFileTransfer.Maximum Then + StupidTimer.Enabled = False - LBLFileTransfer.Text = "Download complete!" - BTNFileTransferOpen.Visible = True - BTNFIleTransferDismiss.Visible = True - Exit Sub - End If + LBLFileTransfer.Text = "Download complete!" + BTNFileTransferOpen.Visible = True + BTNFIleTransferDismiss.Visible = True + Exit Sub + End If - PBFileTransfer.Value += 1 + PBFileTransfer.Value += 1 - End Sub + End Sub @@ -16473,37 +16458,37 @@ RestartFunction: - Public Sub SaveExercise() + Public Sub SaveExercise() - If FormLoading = True Then Return + If FormLoading = True Then Return - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) - Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) - For i = 0 To CLBExercise.Items.Count - 1 - BinaryWriter.Write(CStr(CLBExercise.Items(i))) - BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) - Next - BinaryWriter.Close() - FileStream.Dispose() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) + Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) + For i = 0 To CLBExercise.Items.Count - 1 + BinaryWriter.Write(CStr(CLBExercise.Items(i))) + BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) + Next + BinaryWriter.Close() + FileStream.Dispose() - End Sub + End Sub - Public Sub LoadExercise() + Public Sub LoadExercise() - CLBExercise.Items.Clear() - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) - Dim BinaryReader As New System.IO.BinaryReader(FileStream) - CLBExercise.BeginUpdate() - Do While FileStream.Position < FileStream.Length - CLBExercise.Items.Add(BinaryReader.ReadString) - CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) - Loop - CLBExercise.EndUpdate() - BinaryReader.Close() - FileStream.Dispose() + CLBExercise.Items.Clear() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) + Dim BinaryReader As New System.IO.BinaryReader(FileStream) + CLBExercise.BeginUpdate() + Do While FileStream.Position < FileStream.Length + CLBExercise.Items.Add(BinaryReader.ReadString) + CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) + Loop + CLBExercise.EndUpdate() + BinaryReader.Close() + FileStream.Dispose() - End Sub + End Sub @@ -16513,51 +16498,51 @@ RestartFunction: - Public Sub RefreshCards() + Public Sub RefreshCards() - FrmCardList.GoldN1.Text = FrmSettings.GN1.Text - FrmCardList.GoldN2.Text = FrmSettings.GN2.Text - FrmCardList.GoldN3.Text = FrmSettings.GN3.Text - FrmCardList.GoldN4.Text = FrmSettings.GN4.Text - FrmCardList.GoldN5.Text = FrmSettings.GN5.Text - FrmCardList.GoldN6.Text = FrmSettings.GN6.Text + FrmCardList.GoldN1.Text = FrmSettings.GN1.Text + FrmCardList.GoldN2.Text = FrmSettings.GN2.Text + FrmCardList.GoldN3.Text = FrmSettings.GN3.Text + FrmCardList.GoldN4.Text = FrmSettings.GN4.Text + FrmCardList.GoldN5.Text = FrmSettings.GN5.Text + FrmCardList.GoldN6.Text = FrmSettings.GN6.Text - FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) - FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) - FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) - FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) - FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) - FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) + FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) + FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) + FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) + FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) + FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) + FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) - FrmCardList.SilverN1.Text = FrmSettings.SN1.Text - FrmCardList.SilverN2.Text = FrmSettings.SN2.Text - FrmCardList.SilverN3.Text = FrmSettings.SN3.Text - FrmCardList.SilverN4.Text = FrmSettings.SN4.Text - FrmCardList.SilverN5.Text = FrmSettings.SN5.Text - FrmCardList.SilverN6.Text = FrmSettings.SN6.Text + FrmCardList.SilverN1.Text = FrmSettings.SN1.Text + FrmCardList.SilverN2.Text = FrmSettings.SN2.Text + FrmCardList.SilverN3.Text = FrmSettings.SN3.Text + FrmCardList.SilverN4.Text = FrmSettings.SN4.Text + FrmCardList.SilverN5.Text = FrmSettings.SN5.Text + FrmCardList.SilverN6.Text = FrmSettings.SN6.Text - FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) - FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) - FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) - FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) - FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) - FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) + FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) + FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) + FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) + FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) + FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) + FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) - FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text - FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text - FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text - FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text - FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text - FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text + FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text + FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text + FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text + FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text + FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text + FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text - FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) - FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) - FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) - FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) - FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) - FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) + FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) + FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) + FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) + FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) + FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) + FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) - End Sub + End Sub @@ -16566,13 +16551,13 @@ RestartFunction: - Public Sub SaveTokens() + Public Sub SaveTokens() - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - End Sub + End Sub @@ -16590,55 +16575,55 @@ RestartFunction: - Private Sub VideoTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTauntTimer.Tick + Private Sub VideoTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTauntTimer.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.MiniScript = True Then Return + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return - If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return + If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return - ssh.VideoTauntTick -= 1 + ssh.VideoTauntTick -= 1 - If ssh.VideoTauntTick < 1 Then + If ssh.VideoTauntTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" - 'TODO: Prevent File.Exits() with String.Empty - If Not File.Exists(VTDir) Then Return + If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" + 'TODO: Prevent File.Exits() with String.Empty + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "VideoTaunTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" - End Try + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - End If + End If @@ -16648,139 +16633,139 @@ RestartFunction: - End Sub + End Sub - Private Sub TeaseTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseTimer.Tick + Private Sub TeaseTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseTimer.Tick - FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick - 'Debug.Print("TeaseTick = " & TeaseTick) + FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick + 'Debug.Print("TeaseTick = " & TeaseTick) - ssh.TeaseTick -= 1 + ssh.TeaseTick -= 1 - If ssh.TeaseTick < 1 Then TeaseTimer.Stop() + If ssh.TeaseTick < 1 Then TeaseTimer.Stop() - End Sub + End Sub - Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.MiniScript = True Then Return + Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.RLGLTauntTick < 6 Then Return - If chatBox.Text <> "" And ssh.RLGLTauntTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.RLGLTauntTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.RLGLTauntTick < 6 Then Return + If chatBox.Text <> "" And ssh.RLGLTauntTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.RLGLTauntTick < 6 Then Return - ssh.RLGLTauntTick -= 1 + ssh.RLGLTauntTick -= 1 - If ssh.RLGLTauntTick < 1 Then + If ssh.RLGLTauntTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" + VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" - If Not File.Exists(VTDir) Then Return + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "RLGLTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" - End Try - TypingDelayGeneric() + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + End Try + TypingDelayGeneric() - ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) + ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) - End If + End If - End Sub + End Sub - Private Sub AvoidTheEdgeTaunts_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeTaunts.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub AvoidTheEdgeTaunts_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeTaunts.Tick + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return - If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return + If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - ssh.AvoidTheEdgeTick -= 1 + ssh.AvoidTheEdgeTick -= 1 - If ssh.AvoidTheEdgeTick < 1 Then + If ssh.AvoidTheEdgeTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Avoid The Edge\Taunts.txt" + VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Avoid The Edge\Taunts.txt" - If Not File.Exists(VTDir) Then Return + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "AvoidTheEdgeTaunts.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" - End Try - TypingDelayGeneric() + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + End Try + TypingDelayGeneric() - ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) + ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) - End If + End If - End Sub + End Sub #Region "-------------------------------------------------- MainPictureBox ----------------------------------------------------" - Private Sub mainPictureBox_LoadCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles mainPictureBox.LoadCompleted - ssh.ImageLocation = mainPictureBox.ImageLocation - CheckDommeTags() - Debug.Print("ImageLoadCOmpleted") - End Sub + Private Sub mainPictureBox_LoadCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles mainPictureBox.LoadCompleted + ssh.ImageLocation = mainPictureBox.ImageLocation + CheckDommeTags() + Debug.Print("ImageLoadCOmpleted") + End Sub - Private Sub mainPictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainPictureBox.MouseDown - If e.Button = MouseButtons.Right Then - PictureStrip.Show(CType(sender, Control), e.Location) - End If - End Sub + Private Sub mainPictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainPictureBox.MouseDown + If e.Button = MouseButtons.Right Then + PictureStrip.Show(CType(sender, Control), e.Location) + End If + End Sub @@ -16790,280 +16775,280 @@ RestartFunction: - Private Sub PictureStrip_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles PictureStrip.Opening + Private Sub PictureStrip_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles PictureStrip.Opening - If mainPictureBox.Image IsNot Nothing Then - Dim sh As ContactData = ssh.SlideshowMain + If mainPictureBox.Image IsNot Nothing Then + Dim sh As ContactData = ssh.SlideshowMain - If ImageAnimator.CanAnimate(mainPictureBox.Image) _ + If ImageAnimator.CanAnimate(mainPictureBox.Image) _ And ImageAnimator_OnFrameChangedAdded Then - PicStripTmsiDisableAnimation.Enabled = True + PicStripTmsiDisableAnimation.Enabled = True - If mreImageanimator.WaitOne(0) = True Then - ' ImageAnimations are running - PicStripTmsiDisableAnimation.Checked = False + If mreImageanimator.WaitOne(0) = True Then + ' ImageAnimations are running + PicStripTmsiDisableAnimation.Checked = False + Else + ' ImageAnimations are stopped + PicStripTmsiDisableAnimation.Checked = True + End If Else - ' ImageAnimations are stopped - PicStripTmsiDisableAnimation.Checked = True + PicStripTmsiDisableAnimation.Enabled = False + PicStripTmsiDisableAnimation.Checked = False End If - Else - PicStripTmsiDisableAnimation.Enabled = False - PicStripTmsiDisableAnimation.Checked = False - End If - If isURL(ssh.ImageLocation) Then + If isURL(ssh.ImageLocation) Then - PicStripTSMIsaveImage.Enabled = True - PicStripTSMISaveImageTo.Enabled = True - PicStripTSMIremoveFromURL.Enabled = True + PicStripTSMIsaveImage.Enabled = True + PicStripTSMISaveImageTo.Enabled = True + PicStripTSMIremoveFromURL.Enabled = True - ElseIf ssh.ImageLocation = "" Or sh.ImageList.Contains(ssh.ImageLocation) Then + ElseIf ssh.ImageLocation = "" Or sh.ImageList.Contains(ssh.ImageLocation) Then - PicStripTSMIcopyImageLocation.Enabled = False - PicStripTSMIsaveImage.Enabled = False - PicStripTSMISaveImageTo.Enabled = False - PicStripTSMIlikeImage.Enabled = False - PicStripTSMIlikeImage.Checked = False - PicStripTSMIdislikeImage.Enabled = False - PicStripTSMIdislikeImage.Checked = False - PicStripTSMIremoveFromURL.Enabled = False + PicStripTSMIcopyImageLocation.Enabled = False + PicStripTSMIsaveImage.Enabled = False + PicStripTSMISaveImageTo.Enabled = False + PicStripTSMIlikeImage.Enabled = False + PicStripTSMIlikeImage.Checked = False + PicStripTSMIdislikeImage.Enabled = False + PicStripTSMIdislikeImage.Checked = False + PicStripTSMIremoveFromURL.Enabled = False - If sh.ImageList.Contains(ssh.ImageLocation) Then - PicStripTSMIdommeSlideshow.Enabled = True - PicStripTSMIcopyImageLocation.Enabled = True - End If + If sh.ImageList.Contains(ssh.ImageLocation) Then + PicStripTSMIdommeSlideshow.Enabled = True + PicStripTSMIcopyImageLocation.Enabled = True + End If - Exit Sub + Exit Sub - End If + End If - PicStripTSMIcopyImageLocation.Enabled = True - PicStripTSMIlikeImage.Enabled = True - PicStripTSMIlikeImage.Checked = False - PicStripTSMIdislikeImage.Enabled = True - PicStripTSMIdislikeImage.Checked = False + PicStripTSMIcopyImageLocation.Enabled = True + PicStripTSMIlikeImage.Enabled = True + PicStripTSMIlikeImage.Checked = False + PicStripTSMIdislikeImage.Enabled = True + PicStripTSMIdislikeImage.Checked = False - Dim tmp As List(Of String) = Txt2List(pathLikeList) - If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIlikeImage.Checked = True + Dim tmp As List(Of String) = Txt2List(pathLikeList) + If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIlikeImage.Checked = True - tmp = Txt2List(pathDislikeList) - If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIdislikeImage.Checked = True + tmp = Txt2List(pathDislikeList) + If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIdislikeImage.Checked = True - End If + End If - End Sub + End Sub - Private Sub PictureStripTmsiDisableAnimation_Click(sender As Object, e As EventArgs) Handles PicStripTmsiDisableAnimation.Click - If mreImageanimator.WaitOne(0) = True Then - ' Signals the ImageAnimatorThread to pause. - mreImageanimator.Reset() - Else - ' Signals the ImageAnimatorThread to resume. - mreImageanimator.Set() - End If - End Sub + Private Sub PictureStripTmsiDisableAnimation_Click(sender As Object, e As EventArgs) Handles PicStripTmsiDisableAnimation.Click + If mreImageanimator.WaitOne(0) = True Then + ' Signals the ImageAnimatorThread to pause. + mreImageanimator.Reset() + Else + ' Signals the ImageAnimatorThread to resume. + mreImageanimator.Set() + End If + End Sub - Private Sub PicStripTSMIcopyImageLocation_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIcopyImageLocation.Click + Private Sub PicStripTSMIcopyImageLocation_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIcopyImageLocation.Click - My.Computer.Clipboard.SetText(ssh.ImageLocation) + My.Computer.Clipboard.SetText(ssh.ImageLocation) - End Sub + End Sub - Public Sub PicStripTSMI_SaveImage(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIsaveHardcore.Click, + Public Sub PicStripTSMI_SaveImage(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIsaveHardcore.Click, PicStripTSMIsaveSoftcore.Click, PicStripTSMIsaveLesbian.Click, PicStripTSMIsaveBlowjob.Click, PicStripTSMIsaveFemdom.Click, PicStripTSMIsaveLezdom.Click, PicStripTSMIsaveHentai.Click, PicStripTSMIsaveGay.Click, PicStripTSMIsaveMaledom.Click, PicStripTSMIsaveCaptions.Click, PicStripTSMIsaveGeneral.Click, PicStripTSMIsaveBoobs.Click, PicStripTSMIsaveButts.Click, PicStripTSMIsaveImage.Click retry: - Try - Dim BlogPath As String = "" - Dim fileName As String = Path.GetFileName(mainPictureBox.ImageLocation) - - If sender Is PicStripTSMIsaveHardcore Then : BlogPath = My.Settings.IHardcore - ElseIf sender Is PicStripTSMIsaveSoftcore Then : BlogPath = My.Settings.ISoftcore - ElseIf sender Is PicStripTSMIsaveLesbian Then : BlogPath = My.Settings.ILesbian - ElseIf sender Is PicStripTSMIsaveBlowjob Then : BlogPath = My.Settings.IBlowjob - ElseIf sender Is PicStripTSMIsaveFemdom Then : BlogPath = My.Settings.IFemdom - ElseIf sender Is PicStripTSMIsaveLezdom Then : BlogPath = My.Settings.ILezdom - ElseIf sender Is PicStripTSMIsaveHentai Then : BlogPath = My.Settings.IHentai - ElseIf sender Is PicStripTSMIsaveGay Then : BlogPath = My.Settings.IGay - ElseIf sender Is PicStripTSMIsaveMaledom Then : BlogPath = My.Settings.IMaledom - ElseIf sender Is PicStripTSMIsaveCaptions Then : BlogPath = My.Settings.ICaptions - ElseIf sender Is PicStripTSMIsaveGeneral Then : BlogPath = My.Settings.IGeneral - ElseIf sender Is PicStripTSMIsaveBoobs Then : BlogPath = My.Settings.LBLBoobPath - ElseIf sender Is PicStripTSMIsaveButts Then : BlogPath = My.Settings.LBLButtPath - ElseIf sender Is PicStripTSMIsaveImage Then - SaveFileDialog1.Filter = "jpegs|*.jpg|gifs|*.gif|pngs|*.png|Bitmaps|*.bmp" - SaveFileDialog1.FilterIndex = 1 - SaveFileDialog1.RestoreDirectory = True - SaveFileDialog1.FileName = fileName - SaveFileDialog1.CheckFileExists = False - - If SaveFileDialog1.ShowDialog() = DialogResult.OK Then - fileName = Path.GetFileName(SaveFileDialog1.FileName) - BlogPath = Path.GetDirectoryName(SaveFileDialog1.FileName) - Else - Exit Sub + Try + Dim BlogPath As String = "" + Dim fileName As String = Path.GetFileName(mainPictureBox.ImageLocation) + + If sender Is PicStripTSMIsaveHardcore Then : BlogPath = My.Settings.IHardcore + ElseIf sender Is PicStripTSMIsaveSoftcore Then : BlogPath = My.Settings.ISoftcore + ElseIf sender Is PicStripTSMIsaveLesbian Then : BlogPath = My.Settings.ILesbian + ElseIf sender Is PicStripTSMIsaveBlowjob Then : BlogPath = My.Settings.IBlowjob + ElseIf sender Is PicStripTSMIsaveFemdom Then : BlogPath = My.Settings.IFemdom + ElseIf sender Is PicStripTSMIsaveLezdom Then : BlogPath = My.Settings.ILezdom + ElseIf sender Is PicStripTSMIsaveHentai Then : BlogPath = My.Settings.IHentai + ElseIf sender Is PicStripTSMIsaveGay Then : BlogPath = My.Settings.IGay + ElseIf sender Is PicStripTSMIsaveMaledom Then : BlogPath = My.Settings.IMaledom + ElseIf sender Is PicStripTSMIsaveCaptions Then : BlogPath = My.Settings.ICaptions + ElseIf sender Is PicStripTSMIsaveGeneral Then : BlogPath = My.Settings.IGeneral + ElseIf sender Is PicStripTSMIsaveBoobs Then : BlogPath = My.Settings.LBLBoobPath + ElseIf sender Is PicStripTSMIsaveButts Then : BlogPath = My.Settings.LBLButtPath + ElseIf sender Is PicStripTSMIsaveImage Then + SaveFileDialog1.Filter = "jpegs|*.jpg|gifs|*.gif|pngs|*.png|Bitmaps|*.bmp" + SaveFileDialog1.FilterIndex = 1 + SaveFileDialog1.RestoreDirectory = True + SaveFileDialog1.FileName = fileName + SaveFileDialog1.CheckFileExists = False + + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + fileName = Path.GetFileName(SaveFileDialog1.FileName) + BlogPath = Path.GetDirectoryName(SaveFileDialog1.FileName) + Else + Exit Sub + End If + Else : Throw New NotImplementedException("Action for this button is not implemented.") End If - Else : Throw New NotImplementedException("Action for this button is not implemented.") - End If - If Directory.Exists(BlogPath) = False Then - Throw New DirectoryNotFoundException( + If Directory.Exists(BlogPath) = False Then + Throw New DirectoryNotFoundException( "Unable to find the directroy """ & BlogPath & """" & vbCrLf & vbCrLf & "Please check your image settings.") - End If + End If - Dim fullPath As String = BlogPath & "\" & fileName + Dim fullPath As String = BlogPath & "\" & fileName - ' Save image directly - If Not File.Exists(fullPath) Or SaveFileDialog1.CheckFileExists Then GoTo saveImage + ' Save image directly + If Not File.Exists(fullPath) Or SaveFileDialog1.CheckFileExists Then GoTo saveImage - ' Confirm overwriting the file - If MessageBox.Show(Me, fileName & " already exists in this directory!" & + ' Confirm overwriting the file + If MessageBox.Show(Me, fileName & " already exists in this directory!" & Environment.NewLine & Environment.NewLine & "Do you wish to overwrite?", "Caution!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then - Exit Sub - End If + Exit Sub + End If - My.Computer.FileSystem.DeleteFile(fullPath) + My.Computer.FileSystem.DeleteFile(fullPath) saveImage: - mainPictureBox.Image.Save(fullPath) + mainPictureBox.Image.Save(fullPath) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Saving image failed.") - If MessageBox.Show(ex.Message, "Saving image failed.", + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(ex.Message, ex, "Saving image failed.") + If MessageBox.Show(ex.Message, "Saving image failed.", MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIlikeImage_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, + Private Sub PicStripTSMIlikeImage_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, PicStripTSMIdislikeImage.Click - ' Exit if ImageLocation is unkown - If ssh.ImageLocation = "" Then Exit Sub + ' Exit if ImageLocation is unkown + If ssh.ImageLocation = "" Then Exit Sub - Dim tmpFilePath As String = "" - Dim lazytext As String = "" - Try - Dim tmpTsmi As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim tmpFilePath As String = "" + Dim lazytext As String = "" + Try + Dim tmpTsmi As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) - ' Set the filepath to delete from or add to - If tmpTsmi Is PicStripTSMIlikeImage Then - tmpFilePath = pathLikeList - ElseIf tmpTsmi Is PicStripTSMIdislikeImage - tmpFilePath = pathDislikeList - Else - Throw New NotImplementedException("This Toolstripmenuitem is not implemented yet") - End If + ' Set the filepath to delete from or add to + If tmpTsmi Is PicStripTSMIlikeImage Then + tmpFilePath = pathLikeList + ElseIf tmpTsmi Is PicStripTSMIdislikeImage + tmpFilePath = pathDislikeList + Else + Throw New NotImplementedException("This Toolstripmenuitem is not implemented yet") + End If - If tmpTsmi.Checked Then - ' Remove from the given file - lazytext = "remove path from file :" & tmpFilePath - TxtRemoveLine(tmpFilePath, ssh.ImageLocation) - tmpTsmi.Checked = False - ElseIf File.Exists(tmpFilePath) Then - lazytext = "append path to file :" & tmpFilePath - ' Append to existing file - My.Computer.FileSystem.WriteAllText(tmpFilePath, Environment.NewLine & ssh.ImageLocation, True) - Else - lazytext = "add path to new file :" & tmpFilePath - ' create a new file - My.Computer.FileSystem.WriteAllText(tmpFilePath, ssh.ImageLocation, True) - End If - tmpTsmi.Checked = True - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - lazytext = "Unable to " & lazytext - Log.WriteError(lazytext, ex, "Error updating List") - MessageBox.Show(Me, lazytext & vbCrLf _ + If tmpTsmi.Checked Then + ' Remove from the given file + lazytext = "remove path from file :" & tmpFilePath + TxtRemoveLine(tmpFilePath, ssh.ImageLocation) + tmpTsmi.Checked = False + ElseIf File.Exists(tmpFilePath) Then + lazytext = "append path to file :" & tmpFilePath + ' Append to existing file + My.Computer.FileSystem.WriteAllText(tmpFilePath, Environment.NewLine & ssh.ImageLocation, True) + Else + lazytext = "add path to new file :" & tmpFilePath + ' create a new file + My.Computer.FileSystem.WriteAllText(tmpFilePath, ssh.ImageLocation, True) + End If + tmpTsmi.Checked = True + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + lazytext = "Unable to " & lazytext + Log.WriteError(lazytext, ex, "Error updating List") + MessageBox.Show(Me, lazytext & vbCrLf _ & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIremoveFromURL_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIremoveFromURL.Click - Try - ' Lock Control - PicStripTSMIremoveFromURL.Enabled = False + Private Sub PicStripTSMIremoveFromURL_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIremoveFromURL.Click + Try + ' Lock Control + PicStripTSMIremoveFromURL.Enabled = False - ' Remove from URL-Files. - RemoveFromUrlFiles(ssh.ImageLocation) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") - MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ + ' Remove from URL-Files. + RemoveFromUrlFiles(ssh.ImageLocation) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") + MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") - End Try - End Sub + End Try + End Sub #Region "-------------------------------------------------- DommeSlideshow ----------------------------------------------------" - Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click + Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + Return + End If - If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return + If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try - ShowImage(ssh.SlideshowMain.NavigateLast, True) - ssh.JustShowedBlogImage = False - Catch + Try + ShowImage(ssh.SlideshowMain.NavigateLast, True) + ssh.JustShowedBlogImage = False + Catch - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click + Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + Return + End If - If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return + If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try - ShowImage(ssh.SlideshowMain.NavigateFirst, True) - ssh.JustShowedBlogImage = False - Catch + Try + ShowImage(ssh.SlideshowMain.NavigateFirst, True) + ssh.JustShowedBlogImage = False + Catch - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click + Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + Return + End If - If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return + If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try - ssh.SlideshowMain.LoadNew() - ShowImage(ssh.SlideshowMain.NavigateFirst, True) + Try + ssh.SlideshowMain.LoadNew() + ShowImage(ssh.SlideshowMain.NavigateFirst, True) - Catch + Catch - End Try + End Try - End Sub + End Sub #End Region ' DommeSlideshow @@ -17087,332 +17072,332 @@ saveImage: - Public Sub LoadDommeImageFolder() - ssh.SlideshowMain.LoadNew() - ShowImage(ssh.SlideshowMain.CurrentImage, False) - ssh.SlideshowLoaded = True - ssh.JustShowedBlogImage = False + Public Sub LoadDommeImageFolder() + ssh.SlideshowMain.LoadNew() + ShowImage(ssh.SlideshowMain.CurrentImage, False) + ssh.SlideshowLoaded = True + ssh.JustShowedBlogImage = False - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True - If ssh.RiskyDeal = True Then FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.SlideshowMain.CurrentImage) + If ssh.RiskyDeal = True Then FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.SlideshowMain.CurrentImage) - If FrmSettings.timedRadio.Checked = True Then - ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value - SlideshowTimer.Start() - End If + If FrmSettings.timedRadio.Checked = True Then + ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value + SlideshowTimer.Start() + End If - End Sub + End Sub - Public Sub ScrollChatDown() + Public Sub ScrollChatDown() - Try - ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try + Try + ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - End Sub + End Sub - Private Sub StatusUpdates_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted - Try - StatusUpdates.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub + Private Sub StatusUpdates_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted + Try + StatusUpdates.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + End Sub - Public Function WordExists(ByVal searchString As String, ByVal findString As String) As Boolean + Public Function WordExists(ByVal searchString As String, ByVal findString As String) As Boolean - Dim returnValue As Boolean = False + Dim returnValue As Boolean = False - If System.Text.RegularExpressions.Regex.Matches(searchString, "\b" & findString & "\b").Count > 0 Then returnValue = True - Return returnValue + If System.Text.RegularExpressions.Regex.Matches(searchString, "\b" & findString & "\b").Count > 0 Then returnValue = True + Return returnValue - End Function + End Function - Function Capitalize(ByVal val As String) As String - If String.IsNullOrEmpty(val) Then - Return val - End If - Dim array() As Char = val.ToCharArray - array(0) = Char.ToUpper(array(0)) - Return New String(array) - End Function + Function Capitalize(ByVal val As String) As String + If String.IsNullOrEmpty(val) Then + Return val + End If + Dim array() As Char = val.ToCharArray + array(0) = Char.ToUpper(array(0)) + Return New String(array) + End Function - Public Function CompareDates(ByVal CheckDate As Date) As Integer + Public Function CompareDates(ByVal CheckDate As Date) As Integer - Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.ShortDate), FormatDateTime(Now, DateFormat.ShortDate)) - Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) - Return result + Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.ShortDate), FormatDateTime(Now, DateFormat.ShortDate)) + Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) + Return result - End Function + End Function - Public Function CompareDatesWithTime(ByVal CheckDate As Date) As Integer + Public Function CompareDatesWithTime(ByVal CheckDate As Date) As Integer - Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.GeneralDate), FormatDateTime(Now, DateFormat.GeneralDate)) - Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) - Return result + Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.GeneralDate), FormatDateTime(Now, DateFormat.GeneralDate)) + Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) + Return result - End Function + End Function - Public Function StripBlankLines(ByVal SpaceClean As List(Of String)) As List(Of String) - For i As Integer = SpaceClean.Count - 1 To 0 Step -1 - If SpaceClean(i) = "" Then SpaceClean.Remove(SpaceClean(i)) - Next - Return SpaceClean - End Function + Public Function StripBlankLines(ByVal SpaceClean As List(Of String)) As List(Of String) + For i As Integer = SpaceClean.Count - 1 To 0 Step -1 + If SpaceClean(i) = "" Then SpaceClean.Remove(SpaceClean(i)) + Next + Return SpaceClean + End Function - Public Function StripCommands(ByVal CFClean As String) As String + Public Function StripCommands(ByVal CFClean As String) As String - Debug.Print("CFClean = " & CFClean) + Debug.Print("CFClean = " & CFClean) - ' This works as a solution to avoid all the crap I'm having to do underneath it, but I couldn't figuure out how to keep it from eating - ' words after @CommandFilters in #Keywords + ' This works as a solution to avoid all the crap I'm having to do underneath it, but I couldn't figuure out how to keep it from eating + ' words after @CommandFilters in #Keywords - 'Dim CleanReg As RegularExpressions.Regex - 'CleanReg = New RegularExpressions.Regex("(@[^)]+)\)") + 'Dim CleanReg As RegularExpressions.Regex + 'CleanReg = New RegularExpressions.Regex("(@[^)]+)\)") - 'Dim StripArray As String() = CFClean.Split(")") + 'Dim StripArray As String() = CFClean.Split(")") - 'For i As Integer = 0 To StripArray.Count - 1 - 'If StripArray(i).Contains("@") Then - 'StripArray(i) = StripArray(i) & ")" - 'StripArray(i) = StripArray(i).Replace(CleanReg.Match(StripArray(i)).Value(), "") - 'End If - 'Next + 'For i As Integer = 0 To StripArray.Count - 1 + 'If StripArray(i).Contains("@") Then + 'StripArray(i) = StripArray(i) & ")" + 'StripArray(i) = StripArray(i).Replace(CleanReg.Match(StripArray(i)).Value(), "") + 'End If + 'Next - 'CFClean = Join(StripArray) + 'CFClean = Join(StripArray) - 'Debug.Print("CFClean Joined = " & CFClean) + 'Debug.Print("CFClean Joined = " & CFClean) - '=============================================================================== - ' Clean leftover @Commands( - '=============================================================================== - If CFClean.Contains("@Variable[") Then - CFClean = CFClean.Replace("@Variable[" & GetParentheses(CFClean, "@Variable[", 2) & "]", "") - If CFClean.Contains("And[") Then CFClean = CFClean.Replace("And[" & GetParentheses(CFClean, "And[", 2) & "]", "") - If CFClean.Contains("Or[") Then CFClean = CFClean.Replace("Or[" & GetParentheses(CFClean, "Or[", 2) & "]", "") - End If + '=============================================================================== + ' Clean leftover @Commands( + '=============================================================================== + If CFClean.Contains("@Variable[") Then + CFClean = CFClean.Replace("@Variable[" & GetParentheses(CFClean, "@Variable[", 2) & "]", "") + If CFClean.Contains("And[") Then CFClean = CFClean.Replace("And[" & GetParentheses(CFClean, "And[", 2) & "]", "") + If CFClean.Contains("Or[") Then CFClean = CFClean.Replace("Or[" & GetParentheses(CFClean, "Or[", 2) & "]", "") + End If - For Each com As String In New List(Of String) From + For Each com As String In New List(Of String) From {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag("} - If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") - Next + If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") + Next - '=============================================================================== - ' Clean all other remaining @Commands - '=============================================================================== - Dim AtArray() As String = Split(CFClean) - For i As Integer = 0 To AtArray.Length - 1 - Try - If AtArray(i).Contains("@") Then - AtArray(i) = AtArray(i).Replace(AtArray(i), "") - End If - Catch - End Try - Next - CFClean = Join(AtArray) - Return CFClean + '=============================================================================== + ' Clean all other remaining @Commands + '=============================================================================== + Dim AtArray() As String = Split(CFClean) + For i As Integer = 0 To AtArray.Length - 1 + Try + If AtArray(i).Contains("@") Then + AtArray(i) = AtArray(i).Replace(AtArray(i), "") + End If + Catch + End Try + Next + CFClean = Join(AtArray) + Return CFClean - End Function + End Function - Public Function StripFormat(ByVal FormatClean As String) As String - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace(FrmSettings.TBEmote.Text, "") - FormatClean = FormatClean.Replace(FrmSettings.TBEmoteEnd.Text, "") - - Return FormatClean - End Function + Public Function StripFormat(ByVal FormatClean As String) As String + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace(FrmSettings.TBEmote.Text, "") + FormatClean = FormatClean.Replace(FrmSettings.TBEmoteEnd.Text, "") + Return FormatClean + End Function - Private Sub CustomSlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CustomSlideshowTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - Try - Dim sw As New Stopwatch -restartInstantly: - sw.Restart() - ' Check if the timer is supposed to be running - If ssh.CustomSlideEnabled = False Then - CustomSlideshowTimer.Stop() - Exit Sub - End If + Private Sub CustomSlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CustomSlideshowTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Try + Dim sw As New Stopwatch +restartInstantly: + sw.Restart() - ' Determine if local images are preferred . - Dim PreferOffline As Boolean = If(CustomSlideshowTimer.Interval < 1000, True, False) + ' Check if the timer is supposed to be running + If ssh.CustomSlideEnabled = False Then + CustomSlideshowTimer.Stop() + Exit Sub + End If - ' Display a random image. - ShowImage(ssh.CustomSlideshow.GetRandom(PreferOffline), True) + ' Determine if local images are preferred . + Dim PreferOffline As Boolean = If(CustomSlideshowTimer.Interval < 1000, True, False) - ' If displaying the image took longer as the interval, restart instantly. - If sw.ElapsedMilliseconds > CustomSlideshowTimer.Interval Then GoTo restartInstantly - Catch ex As Exception - Exit Sub - End Try - End Sub + ' Display a random image. + ShowImage(ssh.CustomSlideshow.GetRandom(PreferOffline), True) - Public Shared Function ResizeImage(ByVal image As Image, ByVal size As Size, Optional ByVal preserveAspectRatio As Boolean = True) As Image - - Dim newWidth As Integer - Dim newHeight As Integer - If preserveAspectRatio Then - Dim originalWidth As Integer = image.Width - Dim originalHeight As Integer = image.Height - Dim percentWidth As Single = CSng(size.Width) / CSng(originalWidth) - Dim percentHeight As Single = CSng(size.Height) / CSng(originalHeight) - Dim percent As Single = If(percentHeight < percentWidth, percentHeight, percentWidth) - newWidth = CInt(originalWidth * percent) - newHeight = CInt(originalHeight * percent) - Else - newWidth = size.Width - newHeight = size.Height - End If + ' If displaying the image took longer as the interval, restart instantly. + If sw.ElapsedMilliseconds > CustomSlideshowTimer.Interval Then GoTo restartInstantly + Catch ex As Exception + Exit Sub + End Try + End Sub + + Public Shared Function ResizeImage(ByVal image As Image, ByVal size As Size, Optional ByVal preserveAspectRatio As Boolean = True) As Image + + Dim newWidth As Integer + Dim newHeight As Integer + If preserveAspectRatio Then + Dim originalWidth As Integer = image.Width + Dim originalHeight As Integer = image.Height + Dim percentWidth As Single = CSng(size.Width) / CSng(originalWidth) + Dim percentHeight As Single = CSng(size.Height) / CSng(originalHeight) + Dim percent As Single = If(percentHeight < percentWidth, percentHeight, percentWidth) + newWidth = CInt(originalWidth * percent) + newHeight = CInt(originalHeight * percent) + Else + newWidth = size.Width + newHeight = size.Height + End If - Dim newImage As Image = New Bitmap(newWidth, newHeight) + Dim newImage As Image = New Bitmap(newWidth, newHeight) - Using graphicsHandle As Graphics = Graphics.FromImage(newImage) - graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic - graphicsHandle.DrawImage(image, 0, 0, newWidth, newHeight) - End Using - Return newImage + Using graphicsHandle As Graphics = Graphics.FromImage(newImage) + graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic + graphicsHandle.DrawImage(image, 0, 0, newWidth, newHeight) + End Using + Return newImage - End Function + End Function #Region "-------------------------------------------------- Contact 1-3 -------------------------------------------------------" - Private Sub Contact1Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact1Timer.Tick + Private Sub Contact1Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact1Timer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact1Timer.Stop() - If Not ssh.Group.Contains("1") Then - ssh.Group = ssh.Group & "1" - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("1", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + If ssh.AddContactTick < 1 Then + Contact1Timer.Stop() + If Not ssh.Group.Contains("1") Then + ssh.Group = ssh.Group & "1" + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("1", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + End If End If - End If - End Sub + End Sub - Private Sub Contact2Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact2Timer.Tick + Private Sub Contact2Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact2Timer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact2Timer.Stop() - If Not ssh.Group.Contains("2") Then - ssh.Group = ssh.Group & "2" - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("2", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + If ssh.AddContactTick < 1 Then + Contact2Timer.Stop() + If Not ssh.Group.Contains("2") Then + ssh.Group = ssh.Group & "2" + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("2", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + End If End If - End If - End Sub + End Sub - Private Sub Contact3Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact3Timer.Tick + Private Sub Contact3Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact3Timer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact3Timer.Stop() - If Not ssh.Group.Contains("3") Then - ssh.Group = ssh.Group & "3" - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("3", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + If ssh.AddContactTick < 1 Then + Contact3Timer.Stop() + If Not ssh.Group.Contains("3") Then + ssh.Group = ssh.Group & "3" + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("3", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + End If End If - End If - End Sub + End Sub #End Region - Private Sub DommeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles DommeTimer.Tick + Private Sub DommeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles DommeTimer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - DommeTimer.Stop() - If Not ssh.Group.Contains("D") Then - ssh.Group = ssh.Group & "D" - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("D", "") - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + If ssh.AddContactTick < 1 Then + DommeTimer.Stop() + If Not ssh.Group.Contains("D") Then + ssh.Group = ssh.Group & "D" + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("D", "") + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + End If End If - End If - End Sub + End Sub - Private Sub UpdateStageTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdateStageTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.UpdateStageTick -= 1 - If ssh.UpdateStageTick < 1 Then - UpdateStageTimer.Stop() - StatusUpdatePost() - End If - End Sub + Private Sub UpdateStageTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdateStageTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + ssh.UpdateStageTick -= 1 + If ssh.UpdateStageTick < 1 Then + UpdateStageTimer.Stop() + StatusUpdatePost() + End If + End Sub @@ -17420,65 +17405,65 @@ restartInstantly: #Region "-------------------------------------------------------- File --------------------------------------------------------" - Private Sub dompersonalitycombobox_LostFocus(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.LostFocus - My.Settings.DomPersonality = dompersonalitycombobox.Text - End Sub + Private Sub dompersonalitycombobox_LostFocus(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.LostFocus + My.Settings.DomPersonality = dompersonalitycombobox.Text + End Sub - Private Sub dompersonalitycombobox_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.SelectedIndexChanged - If FormLoading = True Then Exit Sub + Private Sub dompersonalitycombobox_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.SelectedIndexChanged + If FormLoading = True Then Exit Sub - Try - My.Settings.DomPersonality = dompersonalitycombobox.Text + Try + My.Settings.DomPersonality = dompersonalitycombobox.Text - FrmSettings.LBLGlitModDomType.Text = dompersonalitycombobox.Text + FrmSettings.LBLGlitModDomType.Text = dompersonalitycombobox.Text - ssh.DomPersonality = dompersonalitycombobox.Text + ssh.DomPersonality = dompersonalitycombobox.Text - FrmSettings.LoadStartScripts() - FrmSettings.LoadModuleScripts() - FrmSettings.LoadLinkScripts() - FrmSettings.LoadEndScripts() + FrmSettings.LoadStartScripts() + FrmSettings.LoadModuleScripts() + FrmSettings.LoadLinkScripts() + FrmSettings.LoadEndScripts() - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") Then - Dim ContactList As New List(Of String) - ContactList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") - FrmSettings.GBGlitter1.Text = PoundClean(ContactList(0)) - FrmSettings.GBGlitter2.Text = PoundClean(ContactList(1)) - FrmSettings.GBGlitter3.Text = PoundClean(ContactList(2)) - Else - FrmSettings.GBGlitter1.Text = "Contact 1" - FrmSettings.GBGlitter2.Text = "Contact 2" - FrmSettings.GBGlitter3.Text = "Contact 3" - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") Then + Dim ContactList As New List(Of String) + ContactList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") + FrmSettings.GBGlitter1.Text = PoundClean(ContactList(0)) + FrmSettings.GBGlitter2.Text = PoundClean(ContactList(1)) + FrmSettings.GBGlitter3.Text = PoundClean(ContactList(2)) + Else + FrmSettings.GBGlitter1.Text = "Contact 1" + FrmSettings.GBGlitter2.Text = "Contact 2" + FrmSettings.GBGlitter3.Text = "Contact 3" + End If - Form9.LBLPersonality.Text = dompersonalitycombobox.Text + Form9.LBLPersonality.Text = dompersonalitycombobox.Text - Debug.Print("Personality Changed") - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error on changing Personality") - MessageBox.Show(ex.Message, "Error on changing Personality", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End Try - End Sub + Debug.Print("Personality Changed") + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(ex.Message, ex, "Error on changing Personality") + MessageBox.Show(ex.Message, "Error on changing Personality", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End Try + End Sub - Private Sub SuspendSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SuspendSessionToolStripMenuItem.Click - Try - Dim filename As String = SavedSessionDefaultPath + Private Sub SuspendSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SuspendSessionToolStripMenuItem.Click + Try + Dim filename As String = SavedSessionDefaultPath - If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", + If ssh.SaidHello = False Then + MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Exit Sub - End If + Exit Sub + End If - ' =============================================================================== - ' Custom Location if Control-Key pressed - ' =============================================================================== - If My.Computer.Keyboard.CtrlKeyDown Then - Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", + ' =============================================================================== + ' Custom Location if Control-Key pressed + ' =============================================================================== + If My.Computer.Keyboard.CtrlKeyDown Then + Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), .Title = "Select a destination to safe the sessin to.", .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, @@ -17486,363 +17471,396 @@ restartInstantly: .CheckPathExists = True, .OverwritePrompt = True, .ValidateNames = True} - If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub + If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub - filename = fsd.FileName - '=============================================================================== - ' Check if default-File exists - '=============================================================================== - ElseIf File.Exists(filename) _ + filename = fsd.FileName + '=============================================================================== + ' Check if default-File exists + '=============================================================================== + ElseIf File.Exists(filename) _ AndAlso MessageBox.Show(Me, "A previous saved state already exists!" & vbCrLf & vbCrLf & "Do you wish to overwrite it?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then - Exit Sub - End If + Exit Sub + End If - ' Store Session to disk - ssh.Save(filename) + ' Store Session to disk + ssh.Save(filename) - MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", + MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & vbCrLf & vbCrLf & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End Try - End Sub + End Try + End Sub - Private Sub ResumeSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResumeSessionToolStripMenuItem.Click - Try - Dim filename As String = SavedSessionDefaultPath + Private Sub ResumeSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResumeSessionToolStripMenuItem.Click + Try + Dim filename As String = SavedSessionDefaultPath - ' =============================================================================== - ' Custom Location if Control-Key pressed - ' =============================================================================== - If My.Computer.Keyboard.CtrlKeyDown Then - Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", + ' =============================================================================== + ' Custom Location if Control-Key pressed + ' =============================================================================== + If My.Computer.Keyboard.CtrlKeyDown Then + Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), .Title = "Select a saved session to resume.", .CheckPathExists = True, .CheckFileExists = True, .AddExtension = True, .ValidateNames = True} - If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub + If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub - filename = fsd.FileName - '=============================================================================== - ' Check if default-File exists - '=============================================================================== - ElseIf Not File.Exists(filename) Then - MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Exit Sub - End If + filename = fsd.FileName + '=============================================================================== + ' Check if default-File exists + '=============================================================================== + ElseIf Not File.Exists(filename) Then + MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Exit Sub + End If - If ssh.SaidHello = True _ + If ssh.SaidHello = True _ AndAlso MessageBox.Show(Me, "Resuming a previous state will cause you to lose your progress in this session!" & vbCrLf & vbCrLf & "Do you wish to proceed?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then - Exit Sub - End If + Exit Sub + End If - ssh.Load(filename, True) + ssh.Load(filename, True) - If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ + If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ FrmSettings.LockOrgasmChances(True) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & vbCrLf & vbCrLf & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End Try - End Sub + End Try + End Sub - Private Sub ResetSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click + Private Sub ResetSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click - If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + If ssh.SaidHello = False Then + MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If - ssh.Reset() - FrmSettings.LockOrgasmChances(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) - If ssh.DomTypeCheck = False Then - ssh.DomTask = "Tease AI has been reset" - TypingDelayGeneric() - End If + If ssh.DomTypeCheck = False Then + ssh.DomTask = "Tease AI has been reset" + TypingDelayGeneric() + End If - End Sub + End Sub - Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click, + Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click, ExitToolStripMenuItem1.Click - Me.Close() - Me.Dispose() - End Sub + Me.Close() + Me.Dispose() + End Sub #End Region ' File #Region "------------------------------------------------------ Settings ------------------------------------------------------" - Private Sub GeneralSettingsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GeneralSettingsToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(0) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub DommeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DommeToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(1) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub SubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SubToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(2) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub ScriptsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ScriptsToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(3) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub ImagesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ImagesToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(4) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub GeneralSettingsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GeneralSettingsToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(0) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub DommeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DommeToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(1) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub SubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SubToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(2) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub ScriptsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ScriptsToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(3) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub ImagesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ImagesToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(4) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub TaggingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TaggingToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(5) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub URLFilesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles URLFilesToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(6) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub VideoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VideoToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(7) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub AppsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles AppsToolStripMenuItem1.Click + FrmSettings.SettingsTabs.SelectTab(8) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub RangesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RangesToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(10) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub ModdingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ModdingToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(11) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub MiscToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MiscToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(12) + FrmSettings.Show() + FrmSettings.Focus() + End Sub - Private Sub TaggingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TaggingToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(5) - FrmSettings.Show() - FrmSettings.Focus() - End Sub +#End Region ' Settings - Private Sub URLFilesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles URLFilesToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(6) - FrmSettings.Show() - FrmSettings.Focus() - End Sub +#Region "-------------------------------------------------------- APPs --------------------------------------------------------" - Private Sub VideoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VideoToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(7) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub CloseAppPanelToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CloseAppPanelToolStripMenuItem.Click + CloseApp(Nothing) + End Sub + + Private Sub MetronomeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MetronomeToolStripMenuItem.Click + CloseApp(PNLMetronome) + End Sub + + Private Sub GlitterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GlitterToolStripMenuItem.Click + CloseApp(PnlGlitter) + End Sub + + Private Sub DommeTagsToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagsToolStripMenuItem2.Click + CloseApp(PNLDomTagBTN) + End Sub + + Private Sub LazySubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LazySubToolStripMenuItem.Click + CloseApp(PNLLazySub) + End Sub + + Private Sub RandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RandomizerToolStripMenuItem.Click + CloseApp(PNLAppRandomizer) + End Sub + + Private Sub PlaylistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PlaylistToolStripMenuItem.Click + If PNLPlaylist.Visible = False Then + CloseApp(PNLPlaylist) + LBPlaylist.Items.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + LBPlaylist.Items.Add(Path.GetFileName(foundFile).Replace(".txt", "")) + Next + End If + End Sub - Private Sub AppsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles AppsToolStripMenuItem1.Click - FrmSettings.SettingsTabs.SelectTab(8) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub WritingTasksToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WritingTasksToolStripMenuItem.Click + CloseApp(PNLWritingTask) + End Sub - Private Sub RangesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RangesToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(10) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub WishlistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WishlistToolStripMenuItem.Click + If PNLWishList.Visible = False Then - Private Sub ModdingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ModdingToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(11) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - Private Sub MiscToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MiscToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(12) - FrmSettings.Show() - FrmSettings.Focus() - End Sub -#End Region ' Settings + If My.Settings.ClearWishlist = True Then -#Region "-------------------------------------------------------- APPs --------------------------------------------------------" + MessageBox.Show(Me, "You have already purchased " & domName.Text & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & + "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return + End If - Private Sub CloseAppPanelToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CloseAppPanelToolStripMenuItem.Click - CloseApp(Nothing) - End Sub - Private Sub MetronomeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MetronomeToolStripMenuItem.Click - CloseApp(PNLMetronome) - End Sub - Private Sub GlitterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GlitterToolStripMenuItem.Click - CloseApp(PnlGlitter) - End Sub - Private Sub DommeTagsToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagsToolStripMenuItem2.Click - CloseApp(PNLDomTagBTN) - End Sub - Private Sub LazySubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LazySubToolStripMenuItem.Click - CloseApp(PNLLazySub) - End Sub - Private Sub RandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RandomizerToolStripMenuItem.Click - CloseApp(PNLAppRandomizer) - End Sub - Private Sub PlaylistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PlaylistToolStripMenuItem.Click - If PNLPlaylist.Visible = False Then - CloseApp(PNLPlaylist) - LBPlaylist.Items.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - LBPlaylist.Items.Add(Path.GetFileName(foundFile).Replace(".txt", "")) - Next - End If - End Sub + If CompareDates(My.Settings.WishlistDate) <> 0 Then - Private Sub WritingTasksToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WritingTasksToolStripMenuItem.Click - CloseApp(PNLWritingTask) - End Sub - Private Sub WishlistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WishlistToolStripMenuItem.Click - If PNLWishList.Visible = False Then + Dim WishList As New List(Of String) + WishList.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Items\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + WishList.Add(foundFile) + Next + If WishList.Count < 1 Then + MessageBox.Show(Me, "No Wishlist items found!" & Environment.NewLine & Environment.NewLine & + "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return - If My.Settings.ClearWishlist = True Then + End If - MessageBox.Show(Me, "You have already purchased " & domName.Text & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & - "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - Return - End If + LBLWishlistDom.Text = domName.Text & "'s Wishlist" + LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() + WishlistCostGold.Visible = False + WishlistCostSilver.Visible = False + LBLWishlistBronze.Text = ssh.BronzeTokens + LBLWishlistSilver.Text = ssh.SilverTokens + LBLWishlistGold.Text = ssh.GoldTokens + LBLWishListText.Text = "" + Dim WishDir As String = WishList(ssh.randomizer.Next(0, WishList.Count)) + WishList.Clear() + 'Read all lines of the given file. + WishList = Txt2List(WishDir) + LBLWishListName.Text = WishList(0) + My.Settings.WishlistName = LBLWishListName.Text - If CompareDates(My.Settings.WishlistDate) <> 0 Then + WishlistPreview.Load(WishList(1)) + WishlistPreview.Visible = True + My.Settings.WishlistPreview = WishList(1) + If WishList(2).Contains("Silver") Then + WishlistCostSilver.Visible = True + LBLWishlistCost.Text = WishList(2) + LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Silver", "") + My.Settings.WishlistTokenType = "Silver" + End If - Dim WishList As New List(Of String) - WishList.Clear() + If WishList(2).Contains("Gold") Then + WishlistCostGold.Visible = True + LBLWishlistCost.Text = WishList(2) + LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Gold", "") + My.Settings.WishlistTokenType = "Gold" + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Items\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - WishList.Add(foundFile) - Next + My.Settings.WishlistCost = Val(LBLWishlistCost.Text) - If WishList.Count < 1 Then - MessageBox.Show(Me, "No Wishlist items found!" & Environment.NewLine & Environment.NewLine & - "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + LBLWishListText.Text = WishList(3) + My.Settings.WishlistNote = WishList(3) - LBLWishlistDom.Text = domName.Text & "'s Wishlist" - LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() - WishlistCostGold.Visible = False - WishlistCostSilver.Visible = False - LBLWishlistBronze.Text = ssh.BronzeTokens - LBLWishlistSilver.Text = ssh.SilverTokens - LBLWishlistGold.Text = ssh.GoldTokens - LBLWishListText.Text = "" + If WishlistCostGold.Visible = True Then + If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Enabled = True + BTNWishlist.Text = "Purchase for " & domName.Text + Else + BTNWishlist.Enabled = False + BTNWishlist.Text = "Not Enough Tokens!" + End If + End If + If WishlistCostSilver.Visible = True Then + If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Enabled = True + BTNWishlist.Text = "Purchase for " & domName.Text + Else + BTNWishlist.Enabled = False + BTNWishlist.Text = "Not Enough Tokens!" + End If + End If - Dim WishDir As String = WishList(ssh.randomizer.Next(0, WishList.Count)) - WishList.Clear() - 'Read all lines of the given file. - WishList = Txt2List(WishDir) - LBLWishListName.Text = WishList(0) - My.Settings.WishlistName = LBLWishListName.Text + My.Settings.WishlistDate = FormatDateTime(Now, DateFormat.ShortDate) - WishlistPreview.Load(WishList(1)) - WishlistPreview.Visible = True - My.Settings.WishlistPreview = WishList(1) - If WishList(2).Contains("Silver") Then - WishlistCostSilver.Visible = True - LBLWishlistCost.Text = WishList(2) - LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Silver", "") - My.Settings.WishlistTokenType = "Silver" - End If - If WishList(2).Contains("Gold") Then - WishlistCostGold.Visible = True - LBLWishlistCost.Text = WishList(2) - LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Gold", "") - My.Settings.WishlistTokenType = "Gold" - End If - My.Settings.WishlistCost = Val(LBLWishlistCost.Text) - LBLWishListText.Text = WishList(3) - My.Settings.WishlistNote = WishList(3) + Else - If WishlistCostGold.Visible = True Then - If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Enabled = True - BTNWishlist.Text = "Purchase for " & domName.Text - Else - BTNWishlist.Enabled = False - BTNWishlist.Text = "Not Enough Tokens!" - End If - End If - If WishlistCostSilver.Visible = True Then - If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Enabled = True - BTNWishlist.Text = "Purchase for " & domName.Text - Else - BTNWishlist.Enabled = False - BTNWishlist.Text = "Not Enough Tokens!" - End If - End If + LBLWishlistDom.Text = domName.Text & "'s Wishlist" + LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() + LBLWishlistBronze.Text = ssh.BronzeTokens + LBLWishlistSilver.Text = ssh.SilverTokens + LBLWishlistGold.Text = ssh.GoldTokens + LBLWishListName.Text = My.Settings.WishlistName + Try + WishlistPreview.Load(My.Settings.WishlistPreview) + Catch + WishlistPreview.Load(Application.StartupPath & "\Images\System\NoPreview.png") + End Try - My.Settings.WishlistDate = FormatDateTime(Now, DateFormat.ShortDate) + If My.Settings.WishlistTokenType = "Silver" Then WishlistCostSilver.Visible = True + If My.Settings.WishlistTokenType = "Gold" Then WishlistCostGold.Visible = True + LBLWishlistCost.Text = My.Settings.WishlistCost + LBLWishListText.Text = My.Settings.WishlistNote + If WishlistCostGold.Visible = True Then + If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Text = "????? Gold" + BTNWishlist.Enabled = True + Else + BTNWishlist.Text = "Not Enough Tokens!" + BTNWishlist.Enabled = False + End If + End If + If WishlistCostSilver.Visible = True Then + Debug.Print("Silver Caled PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP") + If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Text = "???? Silver" + BTNWishlist.Enabled = True + Else + BTNWishlist.Text = "Not Enough Tokens!" + BTNWishlist.Enabled = False + End If + End If + End If - Else - LBLWishlistDom.Text = domName.Text & "'s Wishlist" - LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() LBLWishlistBronze.Text = ssh.BronzeTokens LBLWishlistSilver.Text = ssh.SilverTokens LBLWishlistGold.Text = ssh.GoldTokens - - LBLWishListName.Text = My.Settings.WishlistName - Try - WishlistPreview.Load(My.Settings.WishlistPreview) - Catch - WishlistPreview.Load(Application.StartupPath & "\Images\System\NoPreview.png") - End Try - - If My.Settings.WishlistTokenType = "Silver" Then WishlistCostSilver.Visible = True - If My.Settings.WishlistTokenType = "Gold" Then WishlistCostGold.Visible = True - LBLWishlistCost.Text = My.Settings.WishlistCost - LBLWishListText.Text = My.Settings.WishlistNote - If WishlistCostGold.Visible = True Then If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "????? Gold" + BTNWishlist.Text = "Purchase for " & domName.Text BTNWishlist.Enabled = True Else BTNWishlist.Text = "Not Enough Tokens!" @@ -17851,9 +17869,9 @@ restartInstantly: End If If WishlistCostSilver.Visible = True Then - Debug.Print("Silver Caled PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP") + Debug.Print("Silver Called") If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "???? Silver" + BTNWishlist.Text = "Purchase for " & domName.Text BTNWishlist.Enabled = True Else BTNWishlist.Text = "Not Enough Tokens!" @@ -17861,582 +17879,549 @@ restartInstantly: End If End If - End If - - - - LBLWishlistBronze.Text = ssh.BronzeTokens - LBLWishlistSilver.Text = ssh.SilverTokens - LBLWishlistGold.Text = ssh.GoldTokens - - If WishlistCostGold.Visible = True Then - If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "Purchase for " & domName.Text - BTNWishlist.Enabled = True - Else - BTNWishlist.Text = "Not Enough Tokens!" - BTNWishlist.Enabled = False - End If - End If - If WishlistCostSilver.Visible = True Then - Debug.Print("Silver Called") - If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "Purchase for " & domName.Text - BTNWishlist.Enabled = True - Else - BTNWishlist.Text = "Not Enough Tokens!" - BTNWishlist.Enabled = False - End If + CloseApp(PNLWishList) End If + End Sub + Private Sub HypnoticGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HypnoticGuideToolStripMenuItem.Click + CloseApp(PNLHypnoGen) + If PNLHypnoGen.Visible = False Then + LBHypnoGenInduction.Items.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - CloseApp(PNLWishList) - End If - End Sub - - Private Sub HypnoticGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HypnoticGuideToolStripMenuItem.Click - CloseApp(PNLHypnoGen) - If PNLHypnoGen.Visible = False Then - - - - LBHypnoGenInduction.Items.Clear() - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + Dim TempUrl As String = foundFile + TempUrl = TempUrl.Replace(".txt", "") + Do Until Not TempUrl.Contains("\") + TempUrl = TempUrl.Remove(0, 1) + Loop + LBHypnoGenInduction.Items.Add(TempUrl) - Dim TempUrl As String = foundFile - TempUrl = TempUrl.Replace(".txt", "") - Do Until Not TempUrl.Contains("\") - TempUrl = TempUrl.Remove(0, 1) - Loop - LBHypnoGenInduction.Items.Add(TempUrl) + Next - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\", FileIO.SearchOption.SearchTopLevelOnly, "*.mp3") + Dim TempUrl As String = foundFile + Do Until Not TempUrl.Contains("\") + TempUrl = TempUrl.Remove(0, 1) + Loop + ComboBoxHypnoGenTrack.Items.Add(TempUrl) + Next - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\", FileIO.SearchOption.SearchTopLevelOnly, "*.mp3") - Dim TempUrl As String = foundFile - Do Until Not TempUrl.Contains("\") - TempUrl = TempUrl.Remove(0, 1) - Loop - ComboBoxHypnoGenTrack.Items.Add(TempUrl) - Next + LBHypnoGen.Items.Clear() - LBHypnoGen.Items.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + Dim TempUrl As String = foundFile + TempUrl = TempUrl.Replace(".txt", "") + Do Until Not TempUrl.Contains("\") + TempUrl = TempUrl.Remove(0, 1) + Loop + LBHypnoGen.Items.Add(TempUrl) - Dim TempUrl As String = foundFile - TempUrl = TempUrl.Replace(".txt", "") - Do Until Not TempUrl.Contains("\") - TempUrl = TempUrl.Remove(0, 1) - Loop - LBHypnoGen.Items.Add(TempUrl) + Next - Next + End If - End If + End Sub - End Sub + Private Sub VitalSubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VitalSubToolStripMenuItem.Click + CloseApp(AppPanelVitalSub) + If AppPanelVitalSub.Visible = False Then - Private Sub VitalSubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VitalSubToolStripMenuItem.Click - CloseApp(AppPanelVitalSub) - If AppPanelVitalSub.Visible = False Then + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") And ComboBoxCalorie.Items.Count = 0 Then + Debug.Print("called itttttttt") + 'Read all lines of the given file. + Dim CalList As List(Of String) = Txt2List(Application.StartupPath & "\System\VitalSub\CalorieList.txt") - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") And ComboBoxCalorie.Items.Count = 0 Then - Debug.Print("called itttttttt") - 'Read all lines of the given file. - Dim CalList As List(Of String) = Txt2List(Application.StartupPath & "\System\VitalSub\CalorieList.txt") + For i As Integer = 0 To CalList.Count - 1 + ComboBoxCalorie.Items.Add(CalList(i)) + Next + End If - For i As Integer = 0 To CalList.Count - 1 - ComboBoxCalorie.Items.Add(CalList(i)) - Next End If - End If - - End Sub + End Sub #End Region ' APPs #Region "-------------------------------------------------------- Games -------------------------------------------------------" - Private Sub SlotsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, + Private Sub SlotsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, SlotsToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(0) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(0) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub MatchGameToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, + Private Sub MatchGameToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, MatchGameToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(1) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(1) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub RiskyPickToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, + Private Sub RiskyPickToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, RiskyPickToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(2) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub ExchangeToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, + Private Sub ExchangeToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, ExchangeToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(3) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(3) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub CollectionToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, + Private Sub CollectionToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, CollectionToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(4) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(4) + FrmCardList.Show() + FrmCardList.Focus() + End Sub #End Region ' Games #Region "----------------------------------------------------- Interface ------------------------------------------------------" - Private Sub SwitchSidesToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SwitchSidesToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + Private Sub SwitchSidesToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SwitchSidesToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - With PnlSidepanelLayout - If SwitchSidesToolStripMenuItem.Checked Then - My.Settings.MirrorWindows = True - PnlSidepanelLayout.Dock = DockStyle.Right - Else - My.Settings.MirrorWindows = False - PnlSidepanelLayout.Dock = DockStyle.Left - End If + With PnlSidepanelLayout + If SwitchSidesToolStripMenuItem.Checked Then + My.Settings.MirrorWindows = True + PnlSidepanelLayout.Dock = DockStyle.Right + Else + My.Settings.MirrorWindows = False + PnlSidepanelLayout.Dock = DockStyle.Left + End If - .Padding = New Padding(.Padding.Right, .Padding.Top, .Padding.Left, .Padding.Bottom) - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, + .Padding = New Padding(.Padding.Right, .Padding.Top, .Padding.Left, .Padding.Bottom) + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Bottom) - End With - End Sub - - Private Sub SideChatToolStripMenuItem1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SideChatToolStripMenuItem1.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub - - If SideChatToolStripMenuItem1.Checked = False Then - My.Settings.SideChat = False - CloseApp(Nothing) - Else - My.Settings.SideChat = True - CloseApp(PnlSidechat) - End If - End Sub - - Private Sub LazySubAVToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles LazySubAVToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + End With + End Sub - If LazySubAVToolStripMenuItem.Checked = True Then - '#################### Display LazySubAv ################### - My.Settings.LazySubAV = True - PNLLazySubAV.BringToFront() - PnlAvatarInner.SendToBack() - Else - '##################### Hide LazySubAv ##################### - My.Settings.LazySubAV = False - PNLLazySubAV.SendToBack() - PnlAvatarInner.BringToFront() - End If - End Sub + Private Sub SideChatToolStripMenuItem1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SideChatToolStripMenuItem1.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - Private Sub ThemesToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ThemesToolStripMenuItem1.Click - FrmSettings.SettingsTabs.SelectTab(9) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + If SideChatToolStripMenuItem1.Checked = False Then + My.Settings.SideChat = False + CloseApp(Nothing) + Else + My.Settings.SideChat = True + CloseApp(PnlSidechat) + End If + End Sub - Private Sub MaximizeImageToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles MaximizeImageToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + Private Sub LazySubAVToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles LazySubAVToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - If MaximizeImageToolStripMenuItem.Checked = False Then - '########################## Normal ######################## - My.Settings.MaximizeMediaWindow = False - SplitContainer1.Panel2Collapsed = False - PnlChatBoxLayout.Visible = True - SplitContainer1.SplitterDistance = SplitContainer1.Height * 0.75 - Else - '######################### Maximize ####################### - My.Settings.MaximizeMediaWindow = True - SplitContainer1.Panel2Collapsed = True - If PnlSidechat.Visible AndAlso PnlSidepanelLayout.Visible Then PnlChatBoxLayout.Visible = False - End If + If LazySubAVToolStripMenuItem.Checked = True Then + '#################### Display LazySubAv ################### + My.Settings.LazySubAV = True + PNLLazySubAV.BringToFront() + PnlAvatarInner.SendToBack() + Else + '##################### Hide LazySubAv ##################### + My.Settings.LazySubAV = False + PNLLazySubAV.SendToBack() + PnlAvatarInner.BringToFront() + End If + End Sub + + Private Sub ThemesToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ThemesToolStripMenuItem1.Click + FrmSettings.SettingsTabs.SelectTab(9) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub MaximizeImageToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles MaximizeImageToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub + + If MaximizeImageToolStripMenuItem.Checked = False Then + '########################## Normal ######################## + My.Settings.MaximizeMediaWindow = False + SplitContainer1.Panel2Collapsed = False + PnlChatBoxLayout.Visible = True + SplitContainer1.SplitterDistance = SplitContainer1.Height * 0.75 + Else + '######################### Maximize ####################### + My.Settings.MaximizeMediaWindow = True + SplitContainer1.Panel2Collapsed = True + If PnlSidechat.Visible AndAlso PnlSidepanelLayout.Visible Then PnlChatBoxLayout.Visible = False + End If - 'SplitContainer1.SplitterDistance = SplitContainer1.Height - End Sub + 'SplitContainer1.SplitterDistance = SplitContainer1.Height + End Sub - Private Sub SidepanelToolStripMenuItem_CheckedChanged(sender As Object, e As EventArgs) Handles SidepanelToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + Private Sub SidepanelToolStripMenuItem_CheckedChanged(sender As Object, e As EventArgs) Handles SidepanelToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - If SidepanelToolStripMenuItem.Checked Then - '########################## Display ####################### - PnlSidepanelLayout.Visible = True - My.Settings.DisplaySidePanel = True + If SidepanelToolStripMenuItem.Checked Then + '########################## Display ####################### + PnlSidepanelLayout.Visible = True + My.Settings.DisplaySidePanel = True - If PnlSidepanelLayout.Dock = DockStyle.Left Then - PnlLayoutForm.Padding = New Padding(0, + If PnlSidepanelLayout.Dock = DockStyle.Left Then + PnlLayoutForm.Padding = New Padding(0, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Bottom) - Else - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, + Else + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Top, 0, PnlLayoutForm.Padding.Bottom) - End If - Else - '########################### Hide ######################### - PnlSidepanelLayout.Visible = False - My.Settings.DisplaySidePanel = False + End If + Else + '########################### Hide ######################### + PnlSidepanelLayout.Visible = False + My.Settings.DisplaySidePanel = False - If PnlSidepanelLayout.Dock = DockStyle.Left Then - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, + If PnlSidepanelLayout.Dock = DockStyle.Left Then + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Bottom) - Else - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, + Else + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Bottom) - End If + End If - If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True - End If - End Sub + If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True + End If + End Sub - Private Sub WebteaseModeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteaseModeToolStripMenuItem.Click - If FrmSettings.CBWebtease.Checked = True Then - WebteaseModeToolStripMenuItem.Checked = False - FrmSettings.CBWebtease.Checked = False - Else - WebteaseModeToolStripMenuItem.Checked = True - FrmSettings.CBWebtease.Checked = True - End If + Private Sub WebteaseModeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteaseModeToolStripMenuItem.Click + If FrmSettings.CBWebtease.Checked = True Then + WebteaseModeToolStripMenuItem.Checked = False + FrmSettings.CBWebtease.Checked = False + Else + WebteaseModeToolStripMenuItem.Checked = True + FrmSettings.CBWebtease.Checked = True + End If - My.Settings.CBWebtease = FrmSettings.CBWebtease.Checked + My.Settings.CBWebtease = FrmSettings.CBWebtease.Checked - End Sub + End Sub - Private Sub DefaultImageSizeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DefaultImageSizeToolStripMenuItem.Click - If SplitContainer1.Height > 430 Then SplitContainer1.SplitterDistance = SplitContainer1.Height - 252 - End Sub + Private Sub DefaultImageSizeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DefaultImageSizeToolStripMenuItem.Click + If SplitContainer1.Height > 430 Then SplitContainer1.SplitterDistance = SplitContainer1.Height - 252 + End Sub - Private Sub FullscreenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FullscreenToolStripMenuItem.Click - If Me.FormBorderStyle <> Windows.Forms.FormBorderStyle.None Then - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + Private Sub FullscreenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FullscreenToolStripMenuItem.Click + If Me.FormBorderStyle <> Windows.Forms.FormBorderStyle.None Then + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None - Dim WA As Rectangle = Screen.GetBounds(Me) + Dim WA As Rectangle = Screen.GetBounds(Me) - Me.Location = New Point(WA.Location.X, WA.Location.Y) - Me.Size = New Size(WA.Width, WA.Height) + Me.Location = New Point(WA.Location.X, WA.Location.Y) + Me.Size = New Size(WA.Width, WA.Height) - Me.WindowState = FormWindowState.Normal - Me.MainMenuStrip.Visible = False - Else - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable - Me.Location = New Point(0, 0) - Me.Size = New Size(My.Settings.WindowWidth, My.Settings.WindowHeight) - Me.MainMenuStrip.Visible = True + Me.WindowState = FormWindowState.Normal + Me.MainMenuStrip.Visible = False + Else + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable + Me.Location = New Point(0, 0) + Me.Size = New Size(My.Settings.WindowWidth, My.Settings.WindowHeight) + Me.MainMenuStrip.Visible = True - RestoreFormPosition() - End If - End Sub + RestoreFormPosition() + End If + End Sub - Private Sub RestoreFormPosition() - Dim WA As Rectangle = Screen.GetWorkingArea(Cursor.Position) + Private Sub RestoreFormPosition() + Dim WA As Rectangle = Screen.GetWorkingArea(Cursor.Position) - If My.Settings.WindowWidth = 0 Or My.Settings.WindowHeight = 0 Then - Me.WindowState = FormWindowState.Maximized - Else - Me.Width = If(WA.Width > Me.Width, My.Settings.WindowWidth, WA.Width) - Me.Height = If(WA.Height > Me.Height, My.Settings.WindowHeight, WA.Height) - End If + If My.Settings.WindowWidth = 0 Or My.Settings.WindowHeight = 0 Then + Me.WindowState = FormWindowState.Maximized + Else + Me.Width = If(WA.Width > Me.Width, My.Settings.WindowWidth, WA.Width) + Me.Height = If(WA.Height > Me.Height, My.Settings.WindowHeight, WA.Height) + End If - Me.Left = WA.Location.X + (WA.Width - Me.Width) / 2 - Me.Top = WA.Location.Y + (WA.Height - Me.Height) / 2 - End Sub + Me.Left = WA.Location.X + (WA.Width - Me.Width) / 2 + Me.Top = WA.Location.Y + (WA.Height - Me.Height) / 2 + End Sub #End Region ' Interface #Region "------------------------------------------------------- Tools --------------------------------------------------------" - Private Sub CommandGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CommandGuideToolStripMenuItem.Click - If Form10.Visible = False Then Form10.Show() - Form10.Focus() - End Sub + Private Sub CommandGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CommandGuideToolStripMenuItem.Click + If Form10.Visible = False Then Form10.Show() + Form10.Focus() + End Sub - Private Sub AIBoxesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AIBoxesToolStripMenuItem.Click - If Form9.Visible = False Then Form9.Show() - Form9.Focus() - End Sub + Private Sub AIBoxesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AIBoxesToolStripMenuItem.Click + If Form9.Visible = False Then Form9.Show() + Form9.Focus() + End Sub - Private Sub OldDommeTagsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OldDommeTagsToolStripMenuItem.Click - Form8.Show() - End Sub + Private Sub OldDommeTagsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OldDommeTagsToolStripMenuItem.Click + Form8.Show() + End Sub #End Region ' Tools #Region "------------------------------------------------------ Milovana ------------------------------------------------------" - Private Sub OpenBetaThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, + Private Sub OpenBetaThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, OpenBetaThreadToolStripMenuItem1.Click - Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") - End Sub + Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") + End Sub - Private Sub BugReportThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, + Private Sub BugReportThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, BugReportThreadToolStripMenuItem1.Click - Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") - End Sub + Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") + End Sub - Private Sub WebteasesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, + Private Sub WebteasesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, WebteasesToolStripMenuItem1.Click - Process.Start("https://milovana.com/webteases/") - End Sub + Process.Start("https://milovana.com/webteases/") + End Sub - Private Sub AllAndEverythingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, + Private Sub AllAndEverythingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, ForumToolStripMenuItem.Click - Process.Start("https://milovana.com/forum/") - End Sub + Process.Start("https://milovana.com/forum/") + End Sub #End Region ' Milovana - Private Sub StartTimer1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StartTimer1ToolStripMenuItem.Click - Timer1.Start() - End Sub + Private Sub StartTimer1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StartTimer1ToolStripMenuItem.Click + Timer1.Start() + End Sub - Private Sub RunScriptToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RunScriptToolStripMenuItem.Click + Private Sub RunScriptToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RunScriptToolStripMenuItem.Click - If OpenScriptDialog.ShowDialog() = DialogResult.OK Then + If OpenScriptDialog.ShowDialog() = DialogResult.OK Then - ssh.StrokeTauntVal = -1 + ssh.StrokeTauntVal = -1 - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() - End If + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() + End If - ssh.FileText = OpenScriptDialog.FileName - ssh.BeforeTease = False - ssh.ShowModule = True - ssh.SaidHello = True - ssh.ScriptTick = 1 - ScriptTimer.Start() + ssh.FileText = OpenScriptDialog.FileName + ssh.BeforeTease = False + ssh.ShowModule = True + ssh.SaidHello = True + ssh.ScriptTick = 1 + ScriptTimer.Start() - ApplyThemeColor() + ApplyThemeColor() - End If + End If - End Sub + End Sub - Private Sub DebugSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugSessionWindowToolStripMenuItem.Click - dbgSessionForm.Show() - End Sub + Private Sub DebugSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugSessionWindowToolStripMenuItem.Click + dbgSessionForm.Show() + End Sub - Private Sub DebugMenuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DebugMenuToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(13) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub DebugMenuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DebugMenuToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(13) + FrmSettings.Show() + FrmSettings.Focus() + End Sub - Private Sub DebugToolStripMenuItem_DropDownOpening(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.DropDownOpening - StartTimer1ToolStripMenuItem.Enabled = Not Timer1.Enabled - End Sub + Private Sub DebugToolStripMenuItem_DropDownOpening(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.DropDownOpening + StartTimer1ToolStripMenuItem.Enabled = Not Timer1.Enabled + End Sub - Private Sub RefreshRandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RefreshRandomizerToolStripMenuItem.Click - ssh.randomizer = New Random(System.DateTime.Now.Ticks Mod System.Int32.MaxValue) - End Sub + Private Sub RefreshRandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RefreshRandomizerToolStripMenuItem.Click + ssh.randomizer = New Random(System.DateTime.Now.Ticks Mod System.Int32.MaxValue) + End Sub - Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(14) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(14) + FrmSettings.Show() + FrmSettings.Focus() + End Sub #End Region ' Menu - Private Sub Form1_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize - If Me.IsHandleCreated = False Then Exit Sub - If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - Exit Sub - ElseIf Me.WindowState = FormWindowState.Maximized Then - My.Settings.WindowHeight = 0 - My.Settings.WindowWidth = 0 - Else - My.Settings.WindowHeight = Me.Height - My.Settings.WindowWidth = Me.Width - End If + Private Sub Form1_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize + If Me.IsHandleCreated = False Then Exit Sub + If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + Exit Sub + ElseIf Me.WindowState = FormWindowState.Maximized Then + My.Settings.WindowHeight = 0 + My.Settings.WindowWidth = 0 + Else + My.Settings.WindowHeight = Me.Height + My.Settings.WindowWidth = Me.Width + End If - End Sub + End Sub - Private Sub TeaseAIClock_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseAIClock.Tick - ' Reset the WatchdogTimer Clock. - WatchDogImageAnimator.Reset(TeaseAIClock.Interval * 3) + Private Sub TeaseAIClock_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseAIClock.Tick + ' Reset the WatchdogTimer Clock. + WatchDogImageAnimator.Reset(TeaseAIClock.Interval * 3) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - LBLTime.Text = Format(Now, "h:mm") - LBLAMPM.Text = Format(Now, "tt") - LBLDate.Text = Format(Now, "Long Date") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + LBLTime.Text = Format(Now, "h:mm") + LBLAMPM.Text = Format(Now, "tt") + LBLDate.Text = Format(Now, "Long Date") + Return + End If - If ssh.WritingTaskFlag = False Or (ssh.WritingTaskFlag = True And My.Settings.TimedWriting = False) Then - LBLTime.Text = Format(Now, "h:mm") - LBLAMPM.Text = Format(Now, "tt") - LBLDate.Text = Format(Now, "Long Date") - Else - If ssh.WritingTaskCurrentTime > 0 Then - If My.Settings.TimedWriting = True Then - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(ssh.WritingTaskCurrentTime) - LBLTime.Text = Convert.ToInt16(ssh.WritingTaskCurrentTime) - Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - End If + If ssh.WritingTaskFlag = False Or (ssh.WritingTaskFlag = True And My.Settings.TimedWriting = False) Then + LBLTime.Text = Format(Now, "h:mm") + LBLAMPM.Text = Format(Now, "tt") + LBLDate.Text = Format(Now, "Long Date") Else - If My.Settings.TimedWriting = True Then - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" - LBLTime.Text = "Time's Up" - 'immediately ends the writing task if time is up without waiting for next user input - ClearWriteTask() - ssh.SkipGotoLine = True - ssh.FileGoto = "Failed Writing Task" - GetGoto() - ssh.ScriptTick = 4 - ScriptTimer.Start() + If ssh.WritingTaskCurrentTime > 0 Then + If My.Settings.TimedWriting = True Then + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(ssh.WritingTaskCurrentTime) + LBLTime.Text = Convert.ToInt16(ssh.WritingTaskCurrentTime) + Else + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" + End If Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - End If + If My.Settings.TimedWriting = True Then + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" + LBLTime.Text = "Time's Up" + 'immediately ends the writing task if time is up without waiting for next user input + ClearWriteTask() + ssh.SkipGotoLine = True + ssh.FileGoto = "Failed Writing Task" + GetGoto() + ssh.ScriptTick = 4 + ScriptTimer.Start() + Else + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" + End If - End If - ssh.WritingTaskCurrentTime -= 1 + End If + ssh.WritingTaskCurrentTime -= 1 - LBLAMPM.Text = "" - End If + LBLAMPM.Text = "" + End If - 'If WritingTaskFlag = False Then - 'LBLTime.Text = Format(Now, "h:mm") - 'LBLAMPM.Text = Format(Now, "tt") - 'LBLDate.Text = Format(Now, "Long Date") - 'Else - 'If WritingTaskCurrentTime > 0 Then - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(WritingTaskCurrentTime) - 'LBLTime.Text = Convert.ToInt16(WritingTaskCurrentTime) - 'Else - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" - 'LBLTime.Text = "Time's Up" - 'End If - 'WritingTaskCurrentTime -= 1 - 'LBLAMPM.Text = "" - 'End If + 'If WritingTaskFlag = False Then + 'LBLTime.Text = Format(Now, "h:mm") + 'LBLAMPM.Text = Format(Now, "tt") + 'LBLDate.Text = Format(Now, "Long Date") + 'Else + 'If WritingTaskCurrentTime > 0 Then + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(WritingTaskCurrentTime) + 'LBLTime.Text = Convert.ToInt16(WritingTaskCurrentTime) + 'Else + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" + 'LBLTime.Text = "Time's Up" + 'End If + 'WritingTaskCurrentTime -= 1 + 'LBLAMPM.Text = "" + 'End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp") Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp") Then - Dim Dates As String - 'Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetTime("SYS_WakeUp") - Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & FormatDateTime(FrmSettings.TimeBoxWakeUp.Value, DateFormat.LongTime) + Dim Dates As String + 'Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetTime("SYS_WakeUp") + Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & FormatDateTime(FrmSettings.TimeBoxWakeUp.Value, DateFormat.LongTime) - Dim DDiff As Integer - DDiff = DateDiff(DateInterval.Hour, CDate(Dates), Now) + Dim DDiff As Integer + DDiff = DateDiff(DateInterval.Hour, CDate(Dates), Now) - Dim TimeCounter As Integer = -3 + Dim TimeCounter As Integer = -3 - ssh.GeneralTime = "Night" - If DDiff < -20 Then ssh.GeneralTime = "Morning" - If DDiff > -2 And DDiff < 5 Then ssh.GeneralTime = "Morning" - If DDiff > 4 And DDiff < 12 Then ssh.GeneralTime = "Afternoon" - If DDiff > -21 And DDiff < -11 Then ssh.GeneralTime = "Afternoon" + ssh.GeneralTime = "Night" + If DDiff < -20 Then ssh.GeneralTime = "Morning" + If DDiff > -2 And DDiff < 5 Then ssh.GeneralTime = "Morning" + If DDiff > 4 And DDiff < 12 Then ssh.GeneralTime = "Afternoon" + If DDiff > -21 And DDiff < -11 Then ssh.GeneralTime = "Afternoon" - End If + End If - ' #DEBUG + ' #DEBUG - End Sub + End Sub - Public Sub StrokeSpeedCheck() + Public Sub StrokeSpeedCheck() - If ssh.StrokeFaster = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Faster") - Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) - Stroke123 = Stroke123 * 50 - StrokePace = StrokePace - Stroke123 - If StrokePace < NBMaxPace.Value Then StrokePace = NBMaxPace.Value + If ssh.StrokeFaster = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Faster") + Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) + Stroke123 = Stroke123 * 50 + StrokePace = StrokePace - Stroke123 + If StrokePace < NBMaxPace.Value Then StrokePace = NBMaxPace.Value + End If + ssh.StrokeFaster = False End If - ssh.StrokeFaster = False - End If - If ssh.StrokeSlower = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Slower") - Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) - Stroke123 = Stroke123 * 50 - StrokePace = StrokePace + Stroke123 - If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value + If ssh.StrokeSlower = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Slower") + Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) + Stroke123 = Stroke123 * 50 + StrokePace = StrokePace + Stroke123 + If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value + End If + ssh.StrokeSlower = False End If - ssh.StrokeSlower = False - End If - If ssh.StrokeFastest = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Fastest") - StrokePace = NBMaxPace.Value + If ssh.StrokeFastest = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Fastest") + StrokePace = NBMaxPace.Value + End If + ssh.StrokeFastest = False End If - ssh.StrokeFastest = False - End If - If ssh.StrokeSlowest = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Slowest") - StrokePace = NBMinPace.Value + If ssh.StrokeSlowest = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Slowest") + StrokePace = NBMinPace.Value + End If + ssh.StrokeSlowest = False End If - ssh.StrokeSlowest = False - End If - End Sub + End Sub - Public Sub ApplyThemeColor() - End Sub + Public Sub ApplyThemeColor() + End Sub @@ -18450,34 +18435,34 @@ restartInstantly: - Public Sub CloseApp(ByVal appToOpen As Panel) - If appToOpen Is Nothing AndAlso My.Settings.SideChat Then - appToOpen = PnlSidechat - End If + Public Sub CloseApp(ByVal appToOpen As Panel) + If appToOpen Is Nothing AndAlso My.Settings.SideChat Then + appToOpen = PnlSidechat + End If - For Each pnl As Control In PNLTabs.Controls - If appToOpen IsNot Nothing AndAlso pnl Is appToOpen Then - pnl.Visible = True + For Each pnl As Control In PNLTabs.Controls + If appToOpen IsNot Nothing AndAlso pnl Is appToOpen Then + pnl.Visible = True + Else + pnl.Visible = False + End If + Next + + If appToOpen Is Nothing Then + PNLTabs.Visible = False + PnlTabsLayout.Visible = False Else - pnl.Visible = False + PNLTabs.Visible = True + PnlTabsLayout.Visible = True End If - Next - - If appToOpen Is Nothing Then - PNLTabs.Visible = False - PnlTabsLayout.Visible = False - Else - PNLTabs.Visible = True - PnlTabsLayout.Visible = True - End If - If MaximizeImageToolStripMenuItem.Checked AndAlso SidepanelToolStripMenuItem.Checked AndAlso PnlSidechat.Visible = True Then - PnlChatBoxLayout.Visible = False - Else - PnlChatBoxLayout.Visible = True - End If + If MaximizeImageToolStripMenuItem.Checked AndAlso SidepanelToolStripMenuItem.Checked AndAlso PnlSidechat.Visible = True Then + PnlChatBoxLayout.Visible = False + Else + PnlChatBoxLayout.Visible = True + End If - End Sub + End Sub #Region "------------------------------------------------------- Apps ---------------------------------------------------------" @@ -18485,2203 +18470,2203 @@ restartInstantly: #Region "------------------------------------------------- Regular Buttons-----------------------------------------------------" - Private Sub Face_Click(sender As System.Object, e As System.EventArgs) Handles Face.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Face.BackColor = Color.White Then - AddDommeTag("Face", "Nothing") - Face.BackColor = Color.ForestGreen - Face.ForeColor = Color.White - Else - RemoveDommeTag("Face", "Nothing") - Face.BackColor = Color.White - Face.ForeColor = Color.Black - End If - End Sub - - Private Sub Boobs_Click(sender As System.Object, e As System.EventArgs) Handles Boobs.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Boobs.BackColor = Color.White Then - AddDommeTag("Boobs", "Nothing") - Boobs.BackColor = Color.ForestGreen - Boobs.ForeColor = Color.White - Else - RemoveDommeTag("Boobs", "Nothing") - Boobs.BackColor = Color.White - Boobs.ForeColor = Color.Black - End If - End Sub + Private Sub Face_Click(sender As System.Object, e As System.EventArgs) Handles Face.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Face.BackColor = Color.White Then + AddDommeTag("Face", "Nothing") + Face.BackColor = Color.ForestGreen + Face.ForeColor = Color.White + Else + RemoveDommeTag("Face", "Nothing") + Face.BackColor = Color.White + Face.ForeColor = Color.Black + End If + End Sub + + Private Sub Boobs_Click(sender As System.Object, e As System.EventArgs) Handles Boobs.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Boobs.BackColor = Color.White Then + AddDommeTag("Boobs", "Nothing") + Boobs.BackColor = Color.ForestGreen + Boobs.ForeColor = Color.White + Else + RemoveDommeTag("Boobs", "Nothing") + Boobs.BackColor = Color.White + Boobs.ForeColor = Color.Black + End If + End Sub + + Private Sub Pussy_Click(sender As System.Object, e As System.EventArgs) Handles Pussy.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Pussy.BackColor = Color.White Then + AddDommeTag("Pussy", "Nothing") + Pussy.BackColor = Color.ForestGreen + Pussy.ForeColor = Color.White + Else + RemoveDommeTag("Pussy", "Nothing") + Pussy.BackColor = Color.White + Pussy.ForeColor = Color.Black + End If + End Sub + + Private Sub Ass_Click(sender As System.Object, e As System.EventArgs) Handles Ass.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Ass.BackColor = Color.White Then + AddDommeTag("Ass", "Nothing") + Ass.BackColor = Color.ForestGreen + Ass.ForeColor = Color.White + Else + RemoveDommeTag("Ass", "Nothing") + Ass.BackColor = Color.White + Ass.ForeColor = Color.Black + End If + End Sub + + Private Sub Legs_Click(sender As System.Object, e As System.EventArgs) Handles Legs.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Legs.BackColor = Color.White Then + AddDommeTag("Legs", "Nothing") + Legs.BackColor = Color.ForestGreen + Legs.ForeColor = Color.White + Else + RemoveDommeTag("Legs", "Nothing") + Legs.BackColor = Color.White + Legs.ForeColor = Color.Black + End If + End Sub + + Private Sub Feet_Click(sender As System.Object, e As System.EventArgs) Handles Feet.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Feet.BackColor = Color.White Then + AddDommeTag("Feet", "Nothing") + Feet.BackColor = Color.ForestGreen + Feet.ForeColor = Color.White + Else + RemoveDommeTag("Feet", "Nothing") + Feet.BackColor = Color.White + Feet.ForeColor = Color.Black + End If + End Sub + + Private Sub FullyDressed_Click(sender As System.Object, e As System.EventArgs) Handles FullyDressed.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If FullyDressed.BackColor = Color.White Then + AddDommeTag("FullyDressed", "Nothing") + FullyDressed.BackColor = Color.ForestGreen + FullyDressed.ForeColor = Color.White + Else + RemoveDommeTag("FullyDressed", "Nothing") + FullyDressed.BackColor = Color.White + FullyDressed.ForeColor = Color.Black + End If + End Sub + + Private Sub HalfDressed_Click(sender As System.Object, e As System.EventArgs) Handles HalfDressed.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If HalfDressed.BackColor = Color.White Then + AddDommeTag("HalfDressed", "Nothing") + HalfDressed.BackColor = Color.ForestGreen + HalfDressed.ForeColor = Color.White + Else + RemoveDommeTag("HalfDressed", "Nothing") + HalfDressed.BackColor = Color.White + HalfDressed.ForeColor = Color.Black + End If + End Sub + + Private Sub GarmentCovering_Click(sender As System.Object, e As System.EventArgs) Handles GarmentCovering.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If GarmentCovering.BackColor = Color.White Then + AddDommeTag("GarmentCovering", "Nothing") + GarmentCovering.BackColor = Color.ForestGreen + GarmentCovering.ForeColor = Color.White + Else + RemoveDommeTag("GarmentCovering", "Nothing") + GarmentCovering.BackColor = Color.White + GarmentCovering.ForeColor = Color.Black + End If + End Sub + + Private Sub HandsCovering_Click(sender As System.Object, e As System.EventArgs) Handles HandsCovering.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If HandsCovering.BackColor = Color.White Then + AddDommeTag("HandsCovering", "Nothing") + HandsCovering.BackColor = Color.ForestGreen + HandsCovering.ForeColor = Color.White + Else + RemoveDommeTag("HandsCovering", "Nothing") + HandsCovering.BackColor = Color.White + HandsCovering.ForeColor = Color.Black + End If + End Sub + + Private Sub Naked_Click(sender As System.Object, e As System.EventArgs) Handles Naked.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Naked.BackColor = Color.White Then + AddDommeTag("Naked", "Nothing") + Naked.BackColor = Color.ForestGreen + Naked.ForeColor = Color.White + Else + RemoveDommeTag("Naked", "Nothing") + Naked.BackColor = Color.White + Naked.ForeColor = Color.Black + End If + End Sub + + Private Sub Masturbating_Click(sender As System.Object, e As System.EventArgs) Handles Masturbating.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Masturbating.BackColor = Color.White Then + AddDommeTag("Masturbating", "Nothing") + Masturbating.BackColor = Color.ForestGreen + Masturbating.ForeColor = Color.White + Else + RemoveDommeTag("Masturbating", "Nothing") + Masturbating.BackColor = Color.White + Masturbating.ForeColor = Color.Black + End If + End Sub + + Private Sub Sucking_Click(sender As System.Object, e As System.EventArgs) Handles Sucking.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Sucking.BackColor = Color.White Then + AddDommeTag("Sucking", "Nothing") + Sucking.BackColor = Color.ForestGreen + Sucking.ForeColor = Color.White + Else + RemoveDommeTag("Sucking", "Nothing") + Sucking.BackColor = Color.White + Sucking.ForeColor = Color.Black + End If + End Sub + + Private Sub Smiling_Click(sender As System.Object, e As System.EventArgs) Handles Smiling.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Smiling.BackColor = Color.White Then + AddDommeTag("Smiling", "Nothing") + Smiling.BackColor = Color.ForestGreen + Smiling.ForeColor = Color.White + Else + RemoveDommeTag("Smiling", "Nothing") + Smiling.BackColor = Color.White + Smiling.ForeColor = Color.Black + End If + End Sub + + Private Sub Glaring_Click(sender As System.Object, e As System.EventArgs) Handles Glaring.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Glaring.BackColor = Color.White Then + AddDommeTag("Glaring", "Nothing") + Glaring.BackColor = Color.ForestGreen + Glaring.ForeColor = Color.White + Else + RemoveDommeTag("Glaring", "Nothing") + Glaring.BackColor = Color.White + Glaring.ForeColor = Color.Black + End If + End Sub + + Private Sub SideView_Click(sender As System.Object, e As System.EventArgs) Handles SideView.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If SideView.BackColor = Color.White Then + AddDommeTag("SideView", "Nothing") + SideView.BackColor = Color.ForestGreen + SideView.ForeColor = Color.White + Else + RemoveDommeTag("SideView", "Nothing") + SideView.BackColor = Color.White + SideView.ForeColor = Color.Black + End If + End Sub + + Private Sub CloseUp_Click(sender As System.Object, e As System.EventArgs) Handles CloseUp.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If CloseUp.BackColor = Color.White Then + AddDommeTag("CloseUp", "Nothing") + CloseUp.BackColor = Color.ForestGreen + CloseUp.ForeColor = Color.White + Else + RemoveDommeTag("CloseUp", "Nothing") + CloseUp.BackColor = Color.White + CloseUp.ForeColor = Color.Black + End If + End Sub + + Private Sub SeeThrough_Click(sender As System.Object, e As System.EventArgs) Handles SeeThrough.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If SeeThrough.BackColor = Color.White Then + AddDommeTag("SeeThrough", "Nothing") + SeeThrough.BackColor = Color.ForestGreen + SeeThrough.ForeColor = Color.White + Else + RemoveDommeTag("SeeThrough", "Nothing") + SeeThrough.BackColor = Color.White + SeeThrough.ForeColor = Color.Black + End If + End Sub + + Private Sub AllFours_Click(sender As System.Object, e As System.EventArgs) Handles AllFours.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If AllFours.BackColor = Color.White Then + AddDommeTag("AllFours", "Nothing") + AllFours.BackColor = Color.ForestGreen + AllFours.ForeColor = Color.White + Else + RemoveDommeTag("AllFours", "Nothing") + AllFours.BackColor = Color.White + AllFours.ForeColor = Color.Black + End If + End Sub - Private Sub Pussy_Click(sender As System.Object, e As System.EventArgs) Handles Pussy.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Pussy.BackColor = Color.White Then - AddDommeTag("Pussy", "Nothing") - Pussy.BackColor = Color.ForestGreen - Pussy.ForeColor = Color.White - Else - RemoveDommeTag("Pussy", "Nothing") - Pussy.BackColor = Color.White - Pussy.ForeColor = Color.Black - End If - End Sub - Private Sub Ass_Click(sender As System.Object, e As System.EventArgs) Handles Ass.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Ass.BackColor = Color.White Then - AddDommeTag("Ass", "Nothing") - Ass.BackColor = Color.ForestGreen - Ass.ForeColor = Color.White - Else - RemoveDommeTag("Ass", "Nothing") - Ass.BackColor = Color.White - Ass.ForeColor = Color.Black - End If - End Sub + Private Sub Piercing_Click(sender As System.Object, e As System.EventArgs) Handles Piercing.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Piercing.BackColor = Color.White Then + AddDommeTag("Piercing", "Nothing") + Piercing.BackColor = Color.ForestGreen + Piercing.ForeColor = Color.White + Else + RemoveDommeTag("Piercing", "Nothing") + Piercing.BackColor = Color.White + Piercing.ForeColor = Color.Black + End If + End Sub + + Private Sub TBGarment_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBGarment.TextChanged + If ssh.SlideshowLoaded = False Or TBGarment.Focused = False Then Return + If TBGarment.Text = "" Then + Garment.BackColor = Color.White + Garment.ForeColor = Color.Black + RemoveDommeTag("Garment", "Nothing") + Else + Garment.BackColor = Color.ForestGreen + Garment.ForeColor = Color.White + AddDommeTag("Garment", TBGarment.Text) + End If + End Sub + + Private Sub TBUnderwear_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBUnderwear.TextChanged + If ssh.SlideshowLoaded = False Or TBUnderwear.Focused = False Then Return + If TBUnderwear.Text = "" Then + Underwear.BackColor = Color.White + Underwear.ForeColor = Color.Black + RemoveDommeTag("Underwear", "Nothing") + Else + Underwear.BackColor = Color.ForestGreen + Underwear.ForeColor = Color.White + AddDommeTag("Underwear", TBUnderwear.Text) + End If + End Sub + + Private Sub TBTattoo_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBTattoo.TextChanged + If ssh.SlideshowLoaded = False Or TBTattoo.Focused = False Then Return + If TBTattoo.Text = "" Then + Tattoo.BackColor = Color.White + Tattoo.ForeColor = Color.Black + RemoveDommeTag("Tattoo", "Nothing") + Else + Tattoo.BackColor = Color.ForestGreen + Tattoo.ForeColor = Color.White + AddDommeTag("Tattoo", TBTattoo.Text) + End If + End Sub + + Private Sub TBSexToy_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBSexToy.TextChanged + If ssh.SlideshowLoaded = False Or TBSexToy.Focused = False Then Return + If TBSexToy.Text = "" Then + SexToy.BackColor = Color.White + SexToy.ForeColor = Color.Black + RemoveDommeTag("SexToy", "Nothing") + Else + SexToy.BackColor = Color.ForestGreen + SexToy.ForeColor = Color.White + AddDommeTag("SexToy", TBSexToy.Text) + End If + End Sub - Private Sub Legs_Click(sender As System.Object, e As System.EventArgs) Handles Legs.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Legs.BackColor = Color.White Then - AddDommeTag("Legs", "Nothing") - Legs.BackColor = Color.ForestGreen - Legs.ForeColor = Color.White - Else - RemoveDommeTag("Legs", "Nothing") - Legs.BackColor = Color.White - Legs.ForeColor = Color.Black - End If - End Sub - Private Sub Feet_Click(sender As System.Object, e As System.EventArgs) Handles Feet.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Feet.BackColor = Color.White Then - AddDommeTag("Feet", "Nothing") - Feet.BackColor = Color.ForestGreen - Feet.ForeColor = Color.White - Else - RemoveDommeTag("Feet", "Nothing") - Feet.BackColor = Color.White - Feet.ForeColor = Color.Black - End If - End Sub + Private Sub TBFurniture_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBFurniture.TextChanged + If ssh.SlideshowLoaded = False Or TBFurniture.Focused = False Then Return + If TBFurniture.Text = "" Then + Furniture.BackColor = Color.White + Furniture.ForeColor = Color.Black + RemoveDommeTag("Furniture", "Nothing") + Else + Furniture.BackColor = Color.ForestGreen + Furniture.ForeColor = Color.White + AddDommeTag("Furniture", TBFurniture.Text) + End If + End Sub - Private Sub FullyDressed_Click(sender As System.Object, e As System.EventArgs) Handles FullyDressed.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If FullyDressed.BackColor = Color.White Then - AddDommeTag("FullyDressed", "Nothing") - FullyDressed.BackColor = Color.ForestGreen - FullyDressed.ForeColor = Color.White - Else - RemoveDommeTag("FullyDressed", "Nothing") - FullyDressed.BackColor = Color.White - FullyDressed.ForeColor = Color.Black - End If - End Sub +#End Region ' Regular Buttons - Private Sub HalfDressed_Click(sender As System.Object, e As System.EventArgs) Handles HalfDressed.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If HalfDressed.BackColor = Color.White Then - AddDommeTag("HalfDressed", "Nothing") - HalfDressed.BackColor = Color.ForestGreen - HalfDressed.ForeColor = Color.White - Else - RemoveDommeTag("HalfDressed", "Nothing") - HalfDressed.BackColor = Color.White - HalfDressed.ForeColor = Color.Black - End If - End Sub - Private Sub GarmentCovering_Click(sender As System.Object, e As System.EventArgs) Handles GarmentCovering.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If GarmentCovering.BackColor = Color.White Then - AddDommeTag("GarmentCovering", "Nothing") - GarmentCovering.BackColor = Color.ForestGreen - GarmentCovering.ForeColor = Color.White - Else - RemoveDommeTag("GarmentCovering", "Nothing") - GarmentCovering.BackColor = Color.White - GarmentCovering.ForeColor = Color.Black - End If - End Sub + Public Function AddDommeTag(ByVal AddDomTag As String, ByVal AddCustomDomTag As String) + Dim DomTag As String = "Tag" & AddDomTag + Dim Custom As String + If AddCustomDomTag = "Nothing" Then + Custom = "" + Else + Custom = AddCustomDomTag + End If - Private Sub HandsCovering_Click(sender As System.Object, e As System.EventArgs) Handles HandsCovering.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If HandsCovering.BackColor = Color.White Then - AddDommeTag("HandsCovering", "Nothing") - HandsCovering.BackColor = Color.ForestGreen - HandsCovering.ForeColor = Color.White - Else - RemoveDommeTag("HandsCovering", "Nothing") - HandsCovering.BackColor = Color.White - HandsCovering.ForeColor = Color.Black - End If - End Sub + Debug.Print("DomTag = " & DomTag) + Debug.Print("Custom = " & Custom) - Private Sub Naked_Click(sender As System.Object, e As System.EventArgs) Handles Naked.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Naked.BackColor = Color.White Then - AddDommeTag("Naked", "Nothing") - Naked.BackColor = Color.ForestGreen - Naked.ForeColor = Color.White - Else - RemoveDommeTag("Naked", "Nothing") - Naked.BackColor = Color.White - Naked.ForeColor = Color.Black - End If - End Sub - Private Sub Masturbating_Click(sender As System.Object, e As System.EventArgs) Handles Masturbating.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Masturbating.BackColor = Color.White Then - AddDommeTag("Masturbating", "Nothing") - Masturbating.BackColor = Color.ForestGreen - Masturbating.ForeColor = Color.White - Else - RemoveDommeTag("Masturbating", "Nothing") - Masturbating.BackColor = Color.White - Masturbating.ForeColor = Color.Black - End If - End Sub + 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" + Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" - Private Sub Sucking_Click(sender As System.Object, e As System.EventArgs) Handles Sucking.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Sucking.BackColor = Color.White Then - AddDommeTag("Sucking", "Nothing") - Sucking.BackColor = Color.ForestGreen - Sucking.ForeColor = Color.White - Else - RemoveDommeTag("Sucking", "Nothing") - Sucking.BackColor = Color.White - Sucking.ForeColor = Color.Black - End If - End Sub + If File.Exists(TagFile) Then - Private Sub Smiling_Click(sender As System.Object, e As System.EventArgs) Handles Smiling.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Smiling.BackColor = Color.White Then - AddDommeTag("Smiling", "Nothing") - Smiling.BackColor = Color.ForestGreen - Smiling.ForeColor = Color.White - Else - RemoveDommeTag("Smiling", "Nothing") - Smiling.BackColor = Color.White - Smiling.ForeColor = Color.Black - End If - End Sub + Dim TagList As New List(Of String) + TagList = Txt2List(TagFile) - Private Sub Glaring_Click(sender As System.Object, e As System.EventArgs) Handles Glaring.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Glaring.BackColor = Color.White Then - AddDommeTag("Glaring", "Nothing") - Glaring.BackColor = Color.ForestGreen - Glaring.ForeColor = Color.White - Else - RemoveDommeTag("Glaring", "Nothing") - Glaring.BackColor = Color.White - Glaring.ForeColor = Color.Black - End If - End Sub + Dim FoundFile As Boolean = False - Private Sub SideView_Click(sender As System.Object, e As System.EventArgs) Handles SideView.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If SideView.BackColor = Color.White Then - AddDommeTag("SideView", "Nothing") - SideView.BackColor = Color.ForestGreen - SideView.ForeColor = Color.White - Else - RemoveDommeTag("SideView", "Nothing") - SideView.BackColor = Color.White - SideView.ForeColor = Color.Black - End If - End Sub + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then + FoundFile = True + If Not TagList(i).Contains(DomTag) Then + TagList(i) = TagList(i) & " " & DomTag & Custom - Private Sub CloseUp_Click(sender As System.Object, e As System.EventArgs) Handles CloseUp.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If CloseUp.BackColor = Color.White Then - AddDommeTag("CloseUp", "Nothing") - CloseUp.BackColor = Color.ForestGreen - CloseUp.ForeColor = Color.White - Else - RemoveDommeTag("CloseUp", "Nothing") - CloseUp.BackColor = Color.White - CloseUp.ForeColor = Color.Black - End If - End Sub + Else - Private Sub SeeThrough_Click(sender As System.Object, e As System.EventArgs) Handles SeeThrough.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If SeeThrough.BackColor = Color.White Then - AddDommeTag("SeeThrough", "Nothing") - SeeThrough.BackColor = Color.ForestGreen - SeeThrough.ForeColor = Color.White - Else - RemoveDommeTag("SeeThrough", "Nothing") - SeeThrough.BackColor = Color.White - SeeThrough.ForeColor = Color.Black - End If - End Sub + If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then - Private Sub AllFours_Click(sender As System.Object, e As System.EventArgs) Handles AllFours.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If AllFours.BackColor = Color.White Then - AddDommeTag("AllFours", "Nothing") - AllFours.BackColor = Color.ForestGreen - AllFours.ForeColor = Color.White - Else - RemoveDommeTag("AllFours", "Nothing") - AllFours.BackColor = Color.White - AllFours.ForeColor = Color.Black - End If - End Sub + Dim CustomArray As String() = TagList(i).Split + For x As Integer = 0 To CustomArray.Count - 1 + Debug.Print("CustomArray(x) = " & CustomArray(x)) + If CustomArray(x).Contains(DomTag) Then + If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + End If + Next - Private Sub Piercing_Click(sender As System.Object, e As System.EventArgs) Handles Piercing.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Piercing.BackColor = Color.White Then - AddDommeTag("Piercing", "Nothing") - Piercing.BackColor = Color.ForestGreen - Piercing.ForeColor = Color.White - Else - RemoveDommeTag("Piercing", "Nothing") - Piercing.BackColor = Color.White - Piercing.ForeColor = Color.Black - End If - End Sub + TagList(i) = TagList(i) & " " & DomTag & Custom + TagList(i) = TagList(i).Replace(" ", " ") - Private Sub TBGarment_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBGarment.TextChanged - If ssh.SlideshowLoaded = False Or TBGarment.Focused = False Then Return - If TBGarment.Text = "" Then - Garment.BackColor = Color.White - Garment.ForeColor = Color.Black - RemoveDommeTag("Garment", "Nothing") - Else - Garment.BackColor = Color.ForestGreen - Garment.ForeColor = Color.White - AddDommeTag("Garment", TBGarment.Text) - End If - End Sub + End If - Private Sub TBUnderwear_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBUnderwear.TextChanged - If ssh.SlideshowLoaded = False Or TBUnderwear.Focused = False Then Return - If TBUnderwear.Text = "" Then - Underwear.BackColor = Color.White - Underwear.ForeColor = Color.Black - RemoveDommeTag("Underwear", "Nothing") - Else - Underwear.BackColor = Color.ForestGreen - Underwear.ForeColor = Color.White - AddDommeTag("Underwear", TBUnderwear.Text) - End If - End Sub - Private Sub TBTattoo_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBTattoo.TextChanged - If ssh.SlideshowLoaded = False Or TBTattoo.Focused = False Then Return - If TBTattoo.Text = "" Then - Tattoo.BackColor = Color.White - Tattoo.ForeColor = Color.Black - RemoveDommeTag("Tattoo", "Nothing") - Else - Tattoo.BackColor = Color.ForestGreen - Tattoo.ForeColor = Color.White - AddDommeTag("Tattoo", TBTattoo.Text) - End If - End Sub - Private Sub TBSexToy_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBSexToy.TextChanged - If ssh.SlideshowLoaded = False Or TBSexToy.Focused = False Then Return - If TBSexToy.Text = "" Then - SexToy.BackColor = Color.White - SexToy.ForeColor = Color.Black - RemoveDommeTag("SexToy", "Nothing") - Else - SexToy.BackColor = Color.ForestGreen - SexToy.ForeColor = Color.White - AddDommeTag("SexToy", TBSexToy.Text) - End If - End Sub + End If + End If + Next - Private Sub TBFurniture_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBFurniture.TextChanged - If ssh.SlideshowLoaded = False Or TBFurniture.Focused = False Then Return - If TBFurniture.Text = "" Then - Furniture.BackColor = Color.White - Furniture.ForeColor = Color.Black - RemoveDommeTag("Furniture", "Nothing") - Else - Furniture.BackColor = Color.ForestGreen - Furniture.ForeColor = Color.White - AddDommeTag("Furniture", TBFurniture.Text) - End If - End Sub + If FoundFile = False Then TagList.Add(Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom) -#End Region ' Regular Buttons + If TagList.Count > 0 Then + Dim SettingsString As String = "" + For i As Integer = 0 To TagList.Count - 1 + SettingsString = SettingsString & TagList(i) + If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine + Next + My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) + End If + ElseIf Path.GetDirectoryName(TagFile) = Path.GetDirectoryName(ssh.ImageLocation) Then + ' Only Create new file for the loaded Slidshow. This Prevents URL-Image-Tagging. + My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom, True) - Public Function AddDommeTag(ByVal AddDomTag As String, ByVal AddCustomDomTag As String) - Dim DomTag As String = "Tag" & AddDomTag - Dim Custom As String - If AddCustomDomTag = "Nothing" Then - Custom = "" - Else - Custom = AddCustomDomTag - End If + End If - Debug.Print("DomTag = " & DomTag) - Debug.Print("Custom = " & Custom) + End Function + Public Function RemoveDommeTag(ByVal RemoveDomTag As String, ByVal RemoveCustomDomTag As String) + Dim DomTag As String = "Tag" & RemoveDomTag + Dim Custom As String + If RemoveCustomDomTag = "Nothing" Then + Custom = "" + Else + Custom = RemoveCustomDomTag + End If - 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" - Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" + Dim SettingsString As String + 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" + Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" + Debug.Print("TagFile = " & TagFile) - If File.Exists(TagFile) Then + Debug.Print("DomTag & Custom = " & DomTag & Custom) - Dim TagList As New List(Of String) - TagList = Txt2List(TagFile) + If File.Exists(TagFile) Then - Dim FoundFile As Boolean = False + Dim TagList As New List(Of String) + TagList = Txt2List(TagFile) - For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then - FoundFile = True - If Not TagList(i).Contains(DomTag) Then - TagList(i) = TagList(i) & " " & DomTag & Custom + For i As Integer = TagList.Count - 1 To 0 Step -1 + If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then + If TagList(i).Contains(DomTag & Custom) Then - Else + If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then - If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then + Dim CustomArray As String() = TagList(i).Split - Dim CustomArray As String() = TagList(i).Split + For x As Integer = 0 To CustomArray.Count - 1 + If CustomArray(x).Contains(DomTag) Then + If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + End If + Next + Else - For x As Integer = 0 To CustomArray.Count - 1 - Debug.Print("CustomArray(x) = " & CustomArray(x)) - If CustomArray(x).Contains(DomTag) Then - If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - End If - Next + TagList(i) = TagList(i).Replace(" " & DomTag & Custom, "") + End If - TagList(i) = TagList(i) & " " & DomTag & Custom - TagList(i) = TagList(i).Replace(" ", " ") + If Not TagList(i).Contains(" Tag") Then TagList.Remove(TagList(i)) End If - - - - End If - End If - Next - - If FoundFile = False Then TagList.Add(Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom) - - If TagList.Count > 0 Then - Dim SettingsString As String = "" - For i As Integer = 0 To TagList.Count - 1 - SettingsString = SettingsString & TagList(i) - If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine Next - My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) - End If - - ElseIf Path.GetDirectoryName(TagFile) = Path.GetDirectoryName(ssh.ImageLocation) Then - ' Only Create new file for the loaded Slidshow. This Prevents URL-Image-Tagging. - My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom, True) - - End If - - End Function - - Public Function RemoveDommeTag(ByVal RemoveDomTag As String, ByVal RemoveCustomDomTag As String) - Dim DomTag As String = "Tag" & RemoveDomTag - Dim Custom As String - If RemoveCustomDomTag = "Nothing" Then - Custom = "" - Else - Custom = RemoveCustomDomTag - End If - - Dim SettingsString As String - 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" - Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" - Debug.Print("TagFile = " & TagFile) - - Debug.Print("DomTag & Custom = " & DomTag & Custom) - - If File.Exists(TagFile) Then - Dim TagList As New List(Of String) - TagList = Txt2List(TagFile) - - For i As Integer = TagList.Count - 1 To 0 Step -1 - If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then - If TagList(i).Contains(DomTag & Custom) Then + If TagList.Count > 0 Then + SettingsString = "" + For i As Integer = 0 To TagList.Count - 1 + SettingsString = SettingsString & TagList(i) + If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine + Next + My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) + Else + If File.Exists(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") Then My.Computer.FileSystem.DeleteFile(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") + End If - If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then + End If - Dim CustomArray As String() = TagList(i).Split - For x As Integer = 0 To CustomArray.Count - 1 - If CustomArray(x).Contains(DomTag) Then - If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - End If - Next - Else - TagList(i) = TagList(i).Replace(" " & DomTag & Custom, "") - End If + End Function - If Not TagList(i).Contains(" Tag") Then TagList.Remove(TagList(i)) - End If - End If - Next + Private Sub BtnDommeTagNextImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnNextImage.Click + nextButton.PerformClick() + End Sub - If TagList.Count > 0 Then - SettingsString = "" - For i As Integer = 0 To TagList.Count - 1 - SettingsString = SettingsString & TagList(i) - If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine - Next - My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) - Else - If File.Exists(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") Then My.Computer.FileSystem.DeleteFile(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") - End If + Private Sub BtnDommeTagLastImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnLastImage.Click + previousButton.PerformClick() + End Sub - End If + ''' + ''' In Order to Work, this function has to be called AFTER an Image has been loaded into the + ''' PictureBox. Everthing else doesn't work properly. + ''' Right now there are only two working non-UI-Freezing posibilities: The Imagebox + ''' LoadCompleted-Event and PBImageThread. In PBImageThread an Invoke is required! + ''' This Function uses the ImageLocation Variable to get the + ''' current ImageFilePath. + ''' + ''' + ''' To Raise the PictureBoxCompleted-Event, you have to load an Image via LoadAsync(URL). + ''' + Public Sub CheckDommeTags() + Face.BackColor = Color.White + Face.ForeColor = Color.Black + Boobs.BackColor = Color.White + Boobs.ForeColor = Color.Black + Pussy.BackColor = Color.White + Pussy.ForeColor = Color.Black - End Function + Ass.BackColor = Color.White + Ass.ForeColor = Color.Black - Private Sub BtnDommeTagNextImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnNextImage.Click - nextButton.PerformClick() - End Sub + Legs.BackColor = Color.White + Legs.ForeColor = Color.Black - Private Sub BtnDommeTagLastImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnLastImage.Click - previousButton.PerformClick() - End Sub + Feet.BackColor = Color.White + Feet.ForeColor = Color.Black - ''' - ''' In Order to Work, this function has to be called AFTER an Image has been loaded into the - ''' PictureBox. Everthing else doesn't work properly. - ''' Right now there are only two working non-UI-Freezing posibilities: The Imagebox - ''' LoadCompleted-Event and PBImageThread. In PBImageThread an Invoke is required! - ''' This Function uses the ImageLocation Variable to get the - ''' current ImageFilePath. - ''' - ''' - ''' To Raise the PictureBoxCompleted-Event, you have to load an Image via LoadAsync(URL). - ''' - Public Sub CheckDommeTags() + FullyDressed.BackColor = Color.White + FullyDressed.ForeColor = Color.Black - Face.BackColor = Color.White - Face.ForeColor = Color.Black + HalfDressed.BackColor = Color.White + HalfDressed.ForeColor = Color.Black - Boobs.BackColor = Color.White - Boobs.ForeColor = Color.Black + GarmentCovering.BackColor = Color.White + GarmentCovering.ForeColor = Color.Black - Pussy.BackColor = Color.White - Pussy.ForeColor = Color.Black + HandsCovering.BackColor = Color.White + HandsCovering.ForeColor = Color.Black - Ass.BackColor = Color.White - Ass.ForeColor = Color.Black + Naked.BackColor = Color.White + Naked.ForeColor = Color.Black - Legs.BackColor = Color.White - Legs.ForeColor = Color.Black + Masturbating.BackColor = Color.White + Masturbating.ForeColor = Color.Black - Feet.BackColor = Color.White - Feet.ForeColor = Color.Black + Sucking.BackColor = Color.White + Sucking.ForeColor = Color.Black - FullyDressed.BackColor = Color.White - FullyDressed.ForeColor = Color.Black + Smiling.BackColor = Color.White + Smiling.ForeColor = Color.Black - HalfDressed.BackColor = Color.White - HalfDressed.ForeColor = Color.Black + Glaring.BackColor = Color.White + Glaring.ForeColor = Color.Black - GarmentCovering.BackColor = Color.White - GarmentCovering.ForeColor = Color.Black + SideView.BackColor = Color.White + SideView.ForeColor = Color.Black - HandsCovering.BackColor = Color.White - HandsCovering.ForeColor = Color.Black + CloseUp.BackColor = Color.White + CloseUp.ForeColor = Color.Black - Naked.BackColor = Color.White - Naked.ForeColor = Color.Black + SeeThrough.BackColor = Color.White + SeeThrough.ForeColor = Color.Black - Masturbating.BackColor = Color.White - Masturbating.ForeColor = Color.Black + AllFours.BackColor = Color.White + AllFours.ForeColor = Color.Black - Sucking.BackColor = Color.White - Sucking.ForeColor = Color.Black + Piercing.BackColor = Color.White + Piercing.ForeColor = Color.Black - Smiling.BackColor = Color.White - Smiling.ForeColor = Color.Black + Garment.BackColor = Color.White + Garment.ForeColor = Color.Black - Glaring.BackColor = Color.White - Glaring.ForeColor = Color.Black + Underwear.BackColor = Color.White + Underwear.ForeColor = Color.Black - SideView.BackColor = Color.White - SideView.ForeColor = Color.Black + Tattoo.BackColor = Color.White + Tattoo.ForeColor = Color.Black - CloseUp.BackColor = Color.White - CloseUp.ForeColor = Color.Black + SexToy.BackColor = Color.White + SexToy.ForeColor = Color.Black - SeeThrough.BackColor = Color.White - SeeThrough.ForeColor = Color.Black + Furniture.BackColor = Color.White + Furniture.ForeColor = Color.Black - AllFours.BackColor = Color.White - AllFours.ForeColor = Color.Black + TBGarment.Text = "" + TBUnderwear.Text = "" + TBTattoo.Text = "" + TBSexToy.Text = "" + TBFurniture.Text = "" - Piercing.BackColor = Color.White - Piercing.ForeColor = Color.Black + If ssh.ImageLocation = "" Then Exit Sub - Garment.BackColor = Color.White - Garment.ForeColor = Color.Black + Dim tmpFileName As String = Path.GetFileName(ssh.ImageLocation) - Underwear.BackColor = Color.White - Underwear.ForeColor = Color.Black + Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" - Tattoo.BackColor = Color.White - Tattoo.ForeColor = Color.Black + If File.Exists(TagFile) Then - SexToy.BackColor = Color.White - SexToy.ForeColor = Color.Black + Dim TagList As New List(Of String) + TagList = Txt2List(TagFile) - Furniture.BackColor = Color.White - Furniture.ForeColor = Color.Black + For i As Integer = TagList.Count - 1 To 0 Step -1 - TBGarment.Text = "" - TBUnderwear.Text = "" - TBTattoo.Text = "" - TBSexToy.Text = "" - TBFurniture.Text = "" + If TagList(i).Contains(tmpFileName) Then + If TagList(i).Contains("TagFace") Then + Face.BackColor = Color.ForestGreen + Face.ForeColor = Color.White + End If - If ssh.ImageLocation = "" Then Exit Sub + If TagList(i).Contains("TagBoobs") Then + Boobs.BackColor = Color.ForestGreen + Boobs.ForeColor = Color.White + End If - Dim tmpFileName As String = Path.GetFileName(ssh.ImageLocation) + If TagList(i).Contains("TagPussy") Then + Pussy.BackColor = Color.ForestGreen + Pussy.ForeColor = Color.White + End If - Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" + If TagList(i).Contains("TagAss") Then + Ass.BackColor = Color.ForestGreen + Ass.ForeColor = Color.White + End If - If File.Exists(TagFile) Then + If TagList(i).Contains("TagLegs") Then + Legs.BackColor = Color.ForestGreen + Legs.ForeColor = Color.White + End If - Dim TagList As New List(Of String) - TagList = Txt2List(TagFile) + If TagList(i).Contains("TagFeet") Then + Feet.BackColor = Color.ForestGreen + Feet.ForeColor = Color.White + End If - For i As Integer = TagList.Count - 1 To 0 Step -1 + If TagList(i).Contains("TagFullyDressed") Then + FullyDressed.BackColor = Color.ForestGreen + FullyDressed.ForeColor = Color.White + End If - If TagList(i).Contains(tmpFileName) Then - If TagList(i).Contains("TagFace") Then - Face.BackColor = Color.ForestGreen - Face.ForeColor = Color.White - End If + If TagList(i).Contains("TagHalfDressed") Then + HalfDressed.BackColor = Color.ForestGreen + HalfDressed.ForeColor = Color.White + End If - If TagList(i).Contains("TagBoobs") Then - Boobs.BackColor = Color.ForestGreen - Boobs.ForeColor = Color.White - End If + If TagList(i).Contains("TagGarmentCovering") Then + GarmentCovering.BackColor = Color.ForestGreen + GarmentCovering.ForeColor = Color.White + End If - If TagList(i).Contains("TagPussy") Then - Pussy.BackColor = Color.ForestGreen - Pussy.ForeColor = Color.White - End If + If TagList(i).Contains("TagHandsCovering") Then + HandsCovering.BackColor = Color.ForestGreen + HandsCovering.ForeColor = Color.White + End If - If TagList(i).Contains("TagAss") Then - Ass.BackColor = Color.ForestGreen - Ass.ForeColor = Color.White - End If + If TagList(i).Contains("TagNaked") Then + Naked.BackColor = Color.ForestGreen + Naked.ForeColor = Color.White + End If - If TagList(i).Contains("TagLegs") Then - Legs.BackColor = Color.ForestGreen - Legs.ForeColor = Color.White - End If + If TagList(i).Contains("TagMasturbating") Then + Masturbating.BackColor = Color.ForestGreen + Masturbating.ForeColor = Color.White + End If - If TagList(i).Contains("TagFeet") Then - Feet.BackColor = Color.ForestGreen - Feet.ForeColor = Color.White - End If + If TagList(i).Contains("TagSucking") Then + Sucking.BackColor = Color.ForestGreen + Sucking.ForeColor = Color.White + End If - If TagList(i).Contains("TagFullyDressed") Then - FullyDressed.BackColor = Color.ForestGreen - FullyDressed.ForeColor = Color.White - End If + If TagList(i).Contains("TagSmiling") Then + Smiling.BackColor = Color.ForestGreen + Smiling.ForeColor = Color.White + End If - If TagList(i).Contains("TagHalfDressed") Then - HalfDressed.BackColor = Color.ForestGreen - HalfDressed.ForeColor = Color.White - End If + If TagList(i).Contains("TagGlaring") Then + Glaring.BackColor = Color.ForestGreen + Glaring.ForeColor = Color.White + End If - If TagList(i).Contains("TagGarmentCovering") Then - GarmentCovering.BackColor = Color.ForestGreen - GarmentCovering.ForeColor = Color.White - End If + If TagList(i).Contains("TagSideView") Then + SideView.BackColor = Color.ForestGreen + SideView.ForeColor = Color.White + End If - If TagList(i).Contains("TagHandsCovering") Then - HandsCovering.BackColor = Color.ForestGreen - HandsCovering.ForeColor = Color.White - End If + If TagList(i).Contains("TagSeeThrough") Then + SeeThrough.BackColor = Color.ForestGreen + SeeThrough.ForeColor = Color.White + End If - If TagList(i).Contains("TagNaked") Then - Naked.BackColor = Color.ForestGreen - Naked.ForeColor = Color.White - End If + If TagList(i).Contains("TagAllFours") Then + AllFours.BackColor = Color.ForestGreen + AllFours.ForeColor = Color.White + End If - If TagList(i).Contains("TagMasturbating") Then - Masturbating.BackColor = Color.ForestGreen - Masturbating.ForeColor = Color.White - End If + If TagList(i).Contains("TagCloseUp") Then + CloseUp.BackColor = Color.ForestGreen + CloseUp.ForeColor = Color.White + End If - If TagList(i).Contains("TagSucking") Then - Sucking.BackColor = Color.ForestGreen - Sucking.ForeColor = Color.White - End If + If TagList(i).Contains("TagPiercing") Then + Piercing.BackColor = Color.ForestGreen + Piercing.ForeColor = Color.White + End If - If TagList(i).Contains("TagSmiling") Then - Smiling.BackColor = Color.ForestGreen - Smiling.ForeColor = Color.White - End If + If TagList(i).Contains("TagGarment") Then + Dim GarmentArray As String() = TagList(i).Split + For x As Integer = 0 To GarmentArray.Count - 1 + Debug.Print("GarmentArray(x) = " & GarmentArray(x)) + If GarmentArray(x).Contains("TagGarment") And Not GarmentArray(x).Contains("TagGarmentCovering") Then + Garment.BackColor = Color.ForestGreen + Garment.ForeColor = Color.White + TBGarment.Text = GarmentArray(x).Replace("TagGarment", "") + End If + Next - If TagList(i).Contains("TagGlaring") Then - Glaring.BackColor = Color.ForestGreen - Glaring.ForeColor = Color.White - End If + End If - If TagList(i).Contains("TagSideView") Then - SideView.BackColor = Color.ForestGreen - SideView.ForeColor = Color.White - End If + If TagList(i).Contains("TagUnderwear") Then - If TagList(i).Contains("TagSeeThrough") Then - SeeThrough.BackColor = Color.ForestGreen - SeeThrough.ForeColor = Color.White - End If + Dim UnderwearArray As String() = TagList(i).Split + For x As Integer = 0 To UnderwearArray.Count - 1 + If UnderwearArray(x).Contains("TagUnderwear") Then + Underwear.BackColor = Color.ForestGreen + Underwear.ForeColor = Color.White + TBUnderwear.Text = UnderwearArray(x).Replace("TagUnderwear", "") + End If + Next - If TagList(i).Contains("TagAllFours") Then - AllFours.BackColor = Color.ForestGreen - AllFours.ForeColor = Color.White - End If + End If - If TagList(i).Contains("TagCloseUp") Then - CloseUp.BackColor = Color.ForestGreen - CloseUp.ForeColor = Color.White - End If + If TagList(i).Contains("TagTattoo") Then + Dim TattooArray As String() = TagList(i).Split + For x As Integer = 0 To TattooArray.Count - 1 + If TattooArray(x).Contains("TagTattoo") Then + Tattoo.BackColor = Color.ForestGreen + Tattoo.ForeColor = Color.White + TBTattoo.Text = TattooArray(x).Replace("TagTattoo", "") + End If + Next - If TagList(i).Contains("TagPiercing") Then - Piercing.BackColor = Color.ForestGreen - Piercing.ForeColor = Color.White - End If + End If - If TagList(i).Contains("TagGarment") Then - Dim GarmentArray As String() = TagList(i).Split - For x As Integer = 0 To GarmentArray.Count - 1 - Debug.Print("GarmentArray(x) = " & GarmentArray(x)) - If GarmentArray(x).Contains("TagGarment") And Not GarmentArray(x).Contains("TagGarmentCovering") Then - Garment.BackColor = Color.ForestGreen - Garment.ForeColor = Color.White - TBGarment.Text = GarmentArray(x).Replace("TagGarment", "") - End If - Next + If TagList(i).Contains("TagSexToy") Then + Dim SexToyArray As String() = TagList(i).Split + For x As Integer = 0 To SexToyArray.Count - 1 + If SexToyArray(x).Contains("TagSexToy") Then + SexToy.BackColor = Color.ForestGreen + SexToy.ForeColor = Color.White + TBSexToy.Text = SexToyArray(x).Replace("TagSexToy", "") + End If + Next - End If + End If - If TagList(i).Contains("TagUnderwear") Then + If TagList(i).Contains("TagFurniture") Then + Dim FurnitureArray As String() = TagList(i).Split + For x As Integer = 0 To FurnitureArray.Count - 1 + If FurnitureArray(x).Contains("TagFurniture") Then + Furniture.BackColor = Color.ForestGreen + Furniture.ForeColor = Color.White + TBFurniture.Text = FurnitureArray(x).Replace("TagFurniture", "") + End If + Next + End If - Dim UnderwearArray As String() = TagList(i).Split - For x As Integer = 0 To UnderwearArray.Count - 1 - If UnderwearArray(x).Contains("TagUnderwear") Then - Underwear.BackColor = Color.ForestGreen - Underwear.ForeColor = Color.White - TBUnderwear.Text = UnderwearArray(x).Replace("TagUnderwear", "") - End If - Next - End If - If TagList(i).Contains("TagTattoo") Then - Dim TattooArray As String() = TagList(i).Split - For x As Integer = 0 To TattooArray.Count - 1 - If TattooArray(x).Contains("TagTattoo") Then - Tattoo.BackColor = Color.ForestGreen - Tattoo.ForeColor = Color.White - TBTattoo.Text = TattooArray(x).Replace("TagTattoo", "") - End If - Next End If - If TagList(i).Contains("TagSexToy") Then - Dim SexToyArray As String() = TagList(i).Split - For x As Integer = 0 To SexToyArray.Count - 1 - If SexToyArray(x).Contains("TagSexToy") Then - SexToy.BackColor = Color.ForestGreen - SexToy.ForeColor = Color.White - TBSexToy.Text = SexToyArray(x).Replace("TagSexToy", "") - End If - Next + Next - End If + End If + End Sub - If TagList(i).Contains("TagFurniture") Then - Dim FurnitureArray As String() = TagList(i).Split - For x As Integer = 0 To FurnitureArray.Count - 1 - If FurnitureArray(x).Contains("TagFurniture") Then - Furniture.BackColor = Color.ForestGreen - Furniture.ForeColor = Color.White - TBFurniture.Text = FurnitureArray(x).Replace("TagFurniture", "") - End If - Next - End If +#End Region ' DommeTag APP + +#Region "------------------------------------------------------ Lazy-Sub ------------------------------------------------------" + Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles BTNStop.Click, Button7.Click + chatBox.Text = "Let me stop" + sendButton.PerformClick() + End Sub + Private Sub BTNYes_Click(sender As System.Object, e As System.EventArgs) Handles BTNYes.Click, Button2.Click + Try + chatBox.Text = "Yes " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "Yes" + End Try - End If + sendButton.PerformClick() + End Sub - Next + Private Sub BTNNo_Click(sender As System.Object, e As System.EventArgs) Handles BTNNo.Click, Button3.Click + Try + chatBox.Text = "No " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "No" + End Try - End If - End Sub + sendButton.PerformClick() + End Sub + Private Sub BTNEdge_Click(sender As System.Object, e As System.EventArgs) Handles BTNEdge.Click, Button4.Click + chatBox.Text = "On the edge" + sendButton.PerformClick() + End Sub -#End Region ' DommeTag APP + Private Sub BTNSpeedUp_Click(sender As System.Object, e As System.EventArgs) Handles BTNSpeedUp.Click, Button8.Click + chatBox.Text = "Let me speed up" + sendButton.PerformClick() + End Sub -#Region "------------------------------------------------------ Lazy-Sub ------------------------------------------------------" + Private Sub BTNSlowDown_Click(sender As System.Object, e As System.EventArgs) Handles BTNSlowDown.Click, Button5.Click + chatBox.Text = "Let me slow down" + sendButton.PerformClick() + End Sub - Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles BTNStop.Click, Button7.Click - chatBox.Text = "Let me stop" - sendButton.PerformClick() - End Sub + Private Sub BTNStroke_Click(sender As System.Object, e As System.EventArgs) Handles BTNStroke.Click, Button6.Click + chatBox.Text = "May I start stroking?" + sendButton.PerformClick() + End Sub - Private Sub BTNYes_Click(sender As System.Object, e As System.EventArgs) Handles BTNYes.Click, Button2.Click - Try - chatBox.Text = "Yes " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "Yes" - End Try + Private Sub BTNAskToCum_Click(sender As System.Object, e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click + chatBox.Text = "Please let me cum!" + sendButton.PerformClick() + End Sub - sendButton.PerformClick() - End Sub + Private Sub BTNGreeting_Click(sender As System.Object, e As System.EventArgs) Handles BTNGreeting.Click, Button10.Click - Private Sub BTNNo_Click(sender As System.Object, e As System.EventArgs) Handles BTNNo.Click, Button3.Click - Try - chatBox.Text = "No " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "No" - End Try + If ssh.SaidHello = True Then + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.RapidFire = False + Return + End If - sendButton.PerformClick() - End Sub + Try + chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "Hello" + End Try - Private Sub BTNEdge_Click(sender As System.Object, e As System.EventArgs) Handles BTNEdge.Click, Button4.Click - chatBox.Text = "On the edge" - sendButton.PerformClick() - End Sub + sendButton.PerformClick() + End Sub - Private Sub BTNSpeedUp_Click(sender As System.Object, e As System.EventArgs) Handles BTNSpeedUp.Click, Button8.Click - chatBox.Text = "Let me speed up" - sendButton.PerformClick() - End Sub + Private Sub BTNSafeword_Click(sender As System.Object, e As System.EventArgs) Handles BTNSafeword.Click, Button11.Click + Try + chatBox.Text = FrmSettings.TBSafeword.Text + Catch + chatBox.Text = "@Error" + End Try - Private Sub BTNSlowDown_Click(sender As System.Object, e As System.EventArgs) Handles BTNSlowDown.Click, Button5.Click - chatBox.Text = "Let me slow down" - sendButton.PerformClick() - End Sub + sendButton.PerformClick() + End Sub + + Private Sub CBHideShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHideShortcuts.CheckedChanged + If FormLoading = False Then + GetShortcutChecked() + My.Settings.ShowShortcuts = CBHideShortcuts.Checked + End If + End Sub + + Public Sub GetShortcutChecked() + + If CBHideShortcuts.Checked = True Then + TBShortYes.Visible = False + TBShortNo.Visible = False + TBShortEdge.Visible = False + TBShortSpeedUp.Visible = False + TBShortSlowDown.Visible = False + TBShortStop.Visible = False + TBShortStroke.Visible = False + TBShortCum.Visible = False + TBShortGreet.Visible = False + TBShortSafeword.Visible = False + + + BTNLS1.Width = 214 + BTNLS2.Width = 214 + BTNLS3.Width = 214 + BTNLS4.Width = 214 + BTNLS5.Width = 214 + + BTNLS1Edit.Visible = False + BTNLS2Edit.Visible = False + BTNLS3Edit.Visible = False + BTNLS4Edit.Visible = False + BTNLS5Edit.Visible = False - Private Sub BTNStroke_Click(sender As System.Object, e As System.EventArgs) Handles BTNStroke.Click, Button6.Click - chatBox.Text = "May I start stroking?" - sendButton.PerformClick() - End Sub + Else - Private Sub BTNAskToCum_Click(sender As System.Object, e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click - chatBox.Text = "Please let me cum!" - sendButton.PerformClick() - End Sub + TBShortYes.Visible = True + TBShortNo.Visible = True + TBShortEdge.Visible = True + TBShortSpeedUp.Visible = True + TBShortSlowDown.Visible = True + TBShortStop.Visible = True + TBShortStroke.Visible = True + TBShortCum.Visible = True + TBShortGreet.Visible = True + TBShortSafeword.Visible = True - Private Sub BTNGreeting_Click(sender As System.Object, e As System.EventArgs) Handles BTNGreeting.Click, Button10.Click + BTNLS1.Width = 163 + BTNLS2.Width = 163 + BTNLS3.Width = 163 + BTNLS4.Width = 163 + BTNLS5.Width = 163 + + BTNLS1Edit.Visible = True + BTNLS2Edit.Visible = True + BTNLS3Edit.Visible = True + BTNLS4Edit.Visible = True + BTNLS5Edit.Visible = True - If ssh.SaidHello = True Then - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True End If - ssh.RapidFire = False - Return - End If - Try - chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "Hello" - End Try + End Sub - sendButton.PerformClick() - End Sub + Private Sub CBShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBShortcuts.CheckedChanged + If FormLoading = False Then + My.Settings.Shortcuts = CBShortcuts.Checked + End If + End Sub - Private Sub BTNSafeword_Click(sender As System.Object, e As System.EventArgs) Handles BTNSafeword.Click, Button11.Click - Try - chatBox.Text = FrmSettings.TBSafeword.Text - Catch - chatBox.Text = "@Error" - End Try + Private Sub TBShortYes_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortYes.LostFocus + My.Settings.ShortYes = TBShortYes.Text + End Sub - sendButton.PerformClick() - End Sub + Private Sub TBShortNo_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortNo.LostFocus + My.Settings.ShortNo = TBShortNo.Text + End Sub - Private Sub CBHideShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHideShortcuts.CheckedChanged - If FormLoading = False Then - GetShortcutChecked() - My.Settings.ShowShortcuts = CBHideShortcuts.Checked - End If - End Sub + Private Sub TBShortEdge_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortEdge.LostFocus + My.Settings.ShortEdge = TBShortEdge.Text + End Sub - Public Sub GetShortcutChecked() - - If CBHideShortcuts.Checked = True Then - TBShortYes.Visible = False - TBShortNo.Visible = False - TBShortEdge.Visible = False - TBShortSpeedUp.Visible = False - TBShortSlowDown.Visible = False - TBShortStop.Visible = False - TBShortStroke.Visible = False - TBShortCum.Visible = False - TBShortGreet.Visible = False - TBShortSafeword.Visible = False - - - BTNLS1.Width = 214 - BTNLS2.Width = 214 - BTNLS3.Width = 214 - BTNLS4.Width = 214 - BTNLS5.Width = 214 - - BTNLS1Edit.Visible = False - BTNLS2Edit.Visible = False - BTNLS3Edit.Visible = False - BTNLS4Edit.Visible = False - BTNLS5Edit.Visible = False + Private Sub TBShortSpeedUp_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSpeedUp.LostFocus + My.Settings.ShortSpeedUp = TBShortSpeedUp.Text + End Sub - Else + Private Sub TBShortSlowDown_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSlowDown.LostFocus + My.Settings.ShortSlowDown = TBShortSlowDown.Text + End Sub - TBShortYes.Visible = True - TBShortNo.Visible = True - TBShortEdge.Visible = True - TBShortSpeedUp.Visible = True - TBShortSlowDown.Visible = True - TBShortStop.Visible = True - TBShortStroke.Visible = True - TBShortCum.Visible = True - TBShortGreet.Visible = True - TBShortSafeword.Visible = True - - BTNLS1.Width = 163 - BTNLS2.Width = 163 - BTNLS3.Width = 163 - BTNLS4.Width = 163 - BTNLS5.Width = 163 - - BTNLS1Edit.Visible = True - BTNLS2Edit.Visible = True - BTNLS3Edit.Visible = True - BTNLS4Edit.Visible = True - BTNLS5Edit.Visible = True + Private Sub TBShortStop_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStop.LostFocus + My.Settings.ShortStop = TBShortStop.Text + End Sub - End If + Private Sub TBShortStroke_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStroke.LostFocus + My.Settings.ShortStroke = TBShortStroke.Text + End Sub - End Sub + Private Sub TBShortCum_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortCum.LostFocus + My.Settings.ShortCum = TBShortCum.Text + End Sub - Private Sub CBShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBShortcuts.CheckedChanged - If FormLoading = False Then - My.Settings.Shortcuts = CBShortcuts.Checked - End If - End Sub + Private Sub TBShortGreet_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortGreet.LostFocus + My.Settings.ShortGreet = TBShortGreet.Text + End Sub - Private Sub TBShortYes_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortYes.LostFocus - My.Settings.ShortYes = TBShortYes.Text - End Sub + Private Sub TBShortSafeword_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSafeword.LostFocus + My.Settings.ShortSafeword = TBShortSafeword.Text + End Sub - Private Sub TBShortNo_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortNo.LostFocus - My.Settings.ShortNo = TBShortNo.Text - End Sub + Public Sub CheatCheck() - Private Sub TBShortEdge_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortEdge.LostFocus - My.Settings.ShortEdge = TBShortEdge.Text - End Sub + If chatBox.Text = LBLWritingTaskText.Text Then + chatBox.Text = "I'm a dirty cheater" + End If - Private Sub TBShortSpeedUp_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSpeedUp.LostFocus - My.Settings.ShortSpeedUp = TBShortSpeedUp.Text - End Sub + End Sub - Private Sub TBShortSlowDown_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSlowDown.LostFocus - My.Settings.ShortSlowDown = TBShortSlowDown.Text - End Sub + Private Sub BTNLS1_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1.Click - Private Sub TBShortStop_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStop.LostFocus - My.Settings.ShortStop = TBShortStop.Text - End Sub - Private Sub TBShortStroke_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStroke.LostFocus - My.Settings.ShortStroke = TBShortStroke.Text - End Sub + If BTNLS1.Text <> "" Then + chatBox.Text = BTNLS1.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If - Private Sub TBShortCum_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortCum.LostFocus - My.Settings.ShortCum = TBShortCum.Text - End Sub + End Sub - Private Sub TBShortGreet_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortGreet.LostFocus - My.Settings.ShortGreet = TBShortGreet.Text - End Sub + Private Sub BTNLS1Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1Edit.Click - Private Sub TBShortSafeword_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSafeword.LostFocus - My.Settings.ShortSafeword = TBShortSafeword.Text - End Sub - Public Sub CheatCheck() + LazyEdit2 = False + LazyEdit3 = False + LazyEdit4 = False + LazyEdit5 = False - If chatBox.Text = LBLWritingTaskText.Text Then - chatBox.Text = "I'm a dirty cheater" - End If + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor - End Sub - Private Sub BTNLS1_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1.Click + If LazyEdit1 = False Then + BTNLS1Edit.BackColor = Color.ForestGreen + BTNLS1Edit.ForeColor = Color.White + LazyEdit1 = True + Else + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor + LazyEdit1 = False + End If + End Sub - If BTNLS1.Text <> "" Then - chatBox.Text = BTNLS1.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + Private Sub BTNLS2_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2.Click - End Sub - Private Sub BTNLS1Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1Edit.Click + If BTNLS2.Text <> "" Then + chatBox.Text = BTNLS2.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If + End Sub - LazyEdit2 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit5 = False + Private Sub BTNLS2Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2Edit.Click - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit1 = False + LazyEdit3 = False + LazyEdit4 = False + LazyEdit5 = False - If LazyEdit1 = False Then - BTNLS1Edit.BackColor = Color.ForestGreen - BTNLS1Edit.ForeColor = Color.White - LazyEdit1 = True - Else BTNLS1Edit.BackColor = My.Settings.ButtonColor BTNLS1Edit.ForeColor = My.Settings.TextColor - LazyEdit1 = False - End If + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor - End Sub + If LazyEdit2 = False Then + BTNLS2Edit.BackColor = Color.ForestGreen + BTNLS2Edit.ForeColor = Color.White + LazyEdit2 = True + Else + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor + LazyEdit2 = False + End If - Private Sub BTNLS2_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2.Click + End Sub + Private Sub BTNLS3_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3.Click - If BTNLS2.Text <> "" Then - chatBox.Text = BTNLS2.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If - End Sub + If BTNLS3.Text <> "" Then + chatBox.Text = BTNLS3.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If - Private Sub BTNLS2Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2Edit.Click + End Sub + Private Sub BTNLS3Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3Edit.Click - LazyEdit1 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit5 = False - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit2 = False + LazyEdit1 = False + LazyEdit4 = False + LazyEdit5 = False - If LazyEdit2 = False Then - BTNLS2Edit.BackColor = Color.ForestGreen - BTNLS2Edit.ForeColor = Color.White - LazyEdit2 = True - Else BTNLS2Edit.BackColor = My.Settings.ButtonColor BTNLS2Edit.ForeColor = My.Settings.TextColor - LazyEdit2 = False - End If + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor - End Sub - Private Sub BTNLS3_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3.Click + If LazyEdit3 = False Then + BTNLS3Edit.BackColor = Color.ForestGreen + BTNLS3Edit.ForeColor = Color.White + LazyEdit3 = True + Else + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor + LazyEdit3 = False + End If + End Sub - If BTNLS3.Text <> "" Then - chatBox.Text = BTNLS3.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + Private Sub BTNLS4_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4.Click - End Sub - Private Sub BTNLS3Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3Edit.Click + If BTNLS4.Text <> "" Then + chatBox.Text = BTNLS4.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If + End Sub - LazyEdit2 = False - LazyEdit1 = False - LazyEdit4 = False - LazyEdit5 = False + Private Sub BTNLS4Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4Edit.Click - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit2 = False + LazyEdit3 = False + LazyEdit1 = False + LazyEdit5 = False - If LazyEdit3 = False Then - BTNLS3Edit.BackColor = Color.ForestGreen - BTNLS3Edit.ForeColor = Color.White - LazyEdit3 = True - Else + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor BTNLS3Edit.BackColor = My.Settings.ButtonColor BTNLS3Edit.ForeColor = My.Settings.TextColor - LazyEdit3 = False - End If + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor - End Sub - Private Sub BTNLS4_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4.Click + If LazyEdit4 = False Then + BTNLS4Edit.BackColor = Color.ForestGreen + BTNLS4Edit.ForeColor = Color.White + LazyEdit4 = True + Else + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + LazyEdit4 = False + End If + End Sub - If BTNLS4.Text <> "" Then - chatBox.Text = BTNLS4.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + Private Sub BTNLS5_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5.Click - End Sub - Private Sub BTNLS4Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4Edit.Click + If BTNLS5.Text <> "" Then + chatBox.Text = BTNLS5.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If + End Sub - LazyEdit2 = False - LazyEdit3 = False - LazyEdit1 = False - LazyEdit5 = False + Private Sub BTNLS5Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5Edit.Click - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit2 = False + LazyEdit3 = False + LazyEdit4 = False + LazyEdit1 = False - If LazyEdit4 = False Then - BTNLS4Edit.BackColor = Color.ForestGreen - BTNLS4Edit.ForeColor = Color.White - LazyEdit4 = True - Else + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor BTNLS4Edit.BackColor = My.Settings.ButtonColor BTNLS4Edit.ForeColor = My.Settings.TextColor - LazyEdit4 = False - End If - - End Sub - - Private Sub BTNLS5_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5.Click - - - If BTNLS5.Text <> "" Then - chatBox.Text = BTNLS5.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If - - End Sub - - Private Sub BTNLS5Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5Edit.Click - - - LazyEdit2 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit1 = False - - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor - If LazyEdit5 = False Then - BTNLS5Edit.BackColor = Color.ForestGreen - BTNLS5Edit.ForeColor = Color.White - LazyEdit5 = True - Else - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor - LazyEdit5 = False - End If + If LazyEdit5 = False Then + BTNLS5Edit.BackColor = Color.ForestGreen + BTNLS5Edit.ForeColor = Color.White + LazyEdit5 = True + Else + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit5 = False + End If - End Sub + End Sub #End Region ' Lazy-Sub #Region "-------------------------------------------------- Randomizer-App ----------------------------------------------------" - Private Sub BTNRandomBlog_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomBlog.Click - BTNRandomBlog.Enabled = False + Private Sub BTNRandomBlog_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomBlog.Click + BTNRandomBlog.Enabled = False - ShowImage(GetRandomImage(ImageGenre.Blog), True) - ssh.JustShowedBlogImage = True - - BTNRandomBlog.Enabled = True - End Sub - - Private Sub BTNRandomLocal_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomLocal.Click - BTNRandomLocal.Enabled = False + ShowImage(GetRandomImage(ImageGenre.Blog), True) + ssh.JustShowedBlogImage = True - ShowImage(GetRandomImage(ImageSourceType.Local), True) - ssh.JustShowedBlogImage = True + BTNRandomBlog.Enabled = True + End Sub - BTNRandomLocal.Enabled = True - End Sub + Private Sub BTNRandomLocal_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomLocal.Click + BTNRandomLocal.Enabled = False - Private Sub BTNRandomVideo_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomVideo.Click - ssh.RandomizerVideo = True - RandomVideo() - ssh.RandomizerVideo = False - End Sub + ShowImage(GetRandomImage(ImageSourceType.Local), True) + ssh.JustShowedBlogImage = True - Private Sub BTNRandomJOI_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomJOI.Click - PlayRandomJOI() - End Sub + BTNRandomLocal.Enabled = True + End Sub - Private Sub BTNRandomCS_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomCS.Click - ssh.SaidHello = True - ssh.RandomizerVideoTease = True - - ssh.ScriptVideoTease = "Censorship Sucks" - ssh.ScriptVideoTeaseFlag = True - RandomVideo() - ssh.ScriptVideoTeaseFlag = False - ssh.CensorshipGame = True - ssh.VideoTease = True - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - CensorshipTimer.Start() - End Sub + Private Sub BTNRandomVideo_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomVideo.Click + ssh.RandomizerVideo = True + RandomVideo() + ssh.RandomizerVideo = False + End Sub - Private Sub BTNRandomAtE_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomAtE.Click + Private Sub BTNRandomJOI_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomJOI.Click + PlayRandomJOI() + End Sub - ssh.SaidHello = True - ssh.RandomizerVideoTease = True + Private Sub BTNRandomCS_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomCS.Click + ssh.SaidHello = True + ssh.RandomizerVideoTease = True - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "Avoid The Edge" - ssh.ScriptVideoTeaseFlag = True - ssh.AvoidTheEdgeStroking = True - ssh.AvoidTheEdgeGame = True - RandomVideo() - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - AvoidTheEdgeTaunts.Start() + ssh.ScriptVideoTease = "Censorship Sucks" + ssh.ScriptVideoTeaseFlag = True + RandomVideo() + ssh.ScriptVideoTeaseFlag = False + ssh.CensorshipGame = True + ssh.VideoTease = True + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + CensorshipTimer.Start() + End Sub - End Sub + Private Sub BTNRandomAtE_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomAtE.Click - Private Sub BTNRandomRLGL_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomRLGL.Click + ssh.SaidHello = True + ssh.RandomizerVideoTease = True - ssh.SaidHello = True - ssh.RandomizerVideoTease = True + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "Avoid The Edge" + ssh.ScriptVideoTeaseFlag = True + ssh.AvoidTheEdgeStroking = True + ssh.AvoidTheEdgeGame = True + RandomVideo() + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + AvoidTheEdgeTaunts.Start() - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.ScriptVideoTease = "RLGL" - ssh.ScriptVideoTeaseFlag = True - 'AvoidTheEdgeStroking = True - ssh.RLGLGame = True - RandomVideo() - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - RLGLTimer.Start() - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - 'VideoTauntTick = randomizer.Next(20, 31) - 'VideoTauntTimer.Start() + End Sub - End Sub + Private Sub BTNRandomRLGL_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomRLGL.Click - Private Sub BTNRandomCH_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNRandomCH.Click - PlayRandomCH() - End Sub + ssh.SaidHello = True + ssh.RandomizerVideoTease = True - ''' ========================================================================================================= - ''' - ''' Jumps to random videoposition in current video. - ''' - ''' - ''' - ''' There is no need for parameter Sender and e. - ''' Only for Designer Compatiblity with Butten Clicks. - ''' Rethrows all exceptions to catcher, as long sender is nothing. - Private Sub VideoJump2Random(sender As System.Object, e As System.EventArgs) Handles Button12.Click - Try - If DomWMP.currentPlaylist.count = 0 Then Throw New Exception("No Video playing - can't jump.") + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.ScriptVideoTease = "RLGL" + ssh.ScriptVideoTeaseFlag = True + 'AvoidTheEdgeStroking = True + ssh.RLGLGame = True + RandomVideo() + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + RLGLTimer.Start() + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + 'VideoTauntTick = randomizer.Next(20, 31) + 'VideoTauntTimer.Start() + + End Sub + + Private Sub BTNRandomCH_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNRandomCH.Click + PlayRandomCH() + End Sub + + ''' ========================================================================================================= + ''' + ''' Jumps to random videoposition in current video. + ''' + ''' + ''' + ''' There is no need for parameter Sender and e. + ''' Only for Designer Compatiblity with Butten Clicks. + ''' Rethrows all exceptions to catcher, as long sender is nothing. + Private Sub VideoJump2Random(sender As System.Object, e As System.EventArgs) Handles Button12.Click + Try + If DomWMP.currentPlaylist.count = 0 Then Throw New Exception("No Video playing - can't jump.") - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - Debug.Print("VidLow = " & VidLow) - Debug.Print("VidHigh = " & VidHigh) - Debug.Print("VidPoint = " & VidPoint) + Debug.Print("VidLow = " & VidLow) + Debug.Print("VidHigh = " & VidHigh) + Debug.Print("VidPoint = " & VidPoint) - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - If sender IsNot Nothing Then - MsgBox("Error on jumping to Random Position in Video!" & vbCrLf & ex.Message, + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + If sender IsNot Nothing Then + MsgBox("Error on jumping to Random Position in Video!" & vbCrLf & ex.Message, vbExclamation, "Jump to random Position") - Else - Throw - End If - End Try - End Sub + Else + Throw + End If + End Try + End Sub #End Region #Region "--------------------------------------------------- Wishlist APP -----------------------------------------------------" - Private Sub BTNPlaylist_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylist.Click - If LBPlaylist.SelectedItems.Count = 0 Then - MessageBox.Show(Me, "Please select a Playlist first!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If + Private Sub BTNPlaylist_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylist.Click + If LBPlaylist.SelectedItems.Count = 0 Then + MessageBox.Show(Me, "Please select a Playlist first!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - If ssh.SaidHello = True Then - MessageBox.Show(Me, "Please wait until you are not engaged with the domme to begin a Playlist!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If + If ssh.SaidHello = True Then + MessageBox.Show(Me, "Please wait until you are not engaged with the domme to begin a Playlist!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - ssh.Playlist = True - 'SaidHello = True + ssh.Playlist = True + 'SaidHello = True - ssh.PlaylistFile = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\" & LBPlaylist.SelectedItem & ".txt") - ssh.PlaylistFile = StripBlankLines(ssh.PlaylistFile) - ssh.PlaylistCurrent = 0 - Try - chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "Hello" - End Try + ssh.PlaylistFile = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\" & LBPlaylist.SelectedItem & ".txt") + ssh.PlaylistFile = StripBlankLines(ssh.PlaylistFile) + ssh.PlaylistCurrent = 0 + Try + chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "Hello" + End Try - sendButton.PerformClick() + sendButton.PerformClick() - BTNPlaylist.Enabled = False - End Sub + BTNPlaylist.Enabled = False + End Sub - Private Sub BTNWishlist_Click(sender As System.Object, e As System.EventArgs) Handles BTNWishlist.Click + Private Sub BTNWishlist_Click(sender As System.Object, e As System.EventArgs) Handles BTNWishlist.Click - If ssh.SaidHello = True Then - MessageBox.Show(Me, "Please wait until you are not engaged with your domme to use this feature!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If + If ssh.SaidHello = True Then + MessageBox.Show(Me, "Please wait until you are not engaged with your domme to use this feature!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - Debug.Print(WishlistCostSilver.Visible) - Debug.Print(Val(LBLWishlistCost.Text)) + Debug.Print(WishlistCostSilver.Visible) + Debug.Print(Val(LBLWishlistCost.Text)) - If WishlistCostSilver.Visible = True And ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then + If WishlistCostSilver.Visible = True And ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - ssh.SilverTokens -= Val(LBLWishlistCost.Text) - My.Settings.SilverTokens = ssh.SilverTokens + ssh.SilverTokens -= Val(LBLWishlistCost.Text) + My.Settings.SilverTokens = ssh.SilverTokens - 'LBLWishListText.Text = "You purchased this item for " & domName.Text & " on " & CDate(DateString) & "." - 'My.Settings.WishlistNote = LBLWishListText.Text + 'LBLWishListText.Text = "You purchased this item for " & domName.Text & " on " & CDate(DateString) & "." + 'My.Settings.WishlistNote = LBLWishListText.Text - My.Settings.ClearWishlist = True + My.Settings.ClearWishlist = True - WishlistCostGold.Visible = False - WishlistCostSilver.Visible = False - LBLWishlistBronze.Text = ssh.BronzeTokens - LBLWishlistSilver.Text = ssh.SilverTokens - LBLWishlistGold.Text = ssh.GoldTokens - LBLWishListName.Text = "" - WishlistPreview.Visible = False - LBLWishlistCost.Text = "" - LBLWishListText.Text = "Thank you for your purchase! " & domName.Text & " has been notified of your generous gift. Please check back again tomorrow for a new item!" - BTNWishlist.Enabled = False - BTNWishlist.Text = "" + WishlistCostGold.Visible = False + WishlistCostSilver.Visible = False + LBLWishlistBronze.Text = ssh.BronzeTokens + LBLWishlistSilver.Text = ssh.SilverTokens + LBLWishlistGold.Text = ssh.GoldTokens + LBLWishListName.Text = "" + WishlistPreview.Visible = False + LBLWishlistCost.Text = "" + LBLWishListText.Text = "Thank you for your purchase! " & domName.Text & " has been notified of your generous gift. Please check back again tomorrow for a new item!" + BTNWishlist.Enabled = False + BTNWishlist.Text = "" - Dim SilverList As New List(Of String) + Dim SilverList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Silver Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - SilverList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Silver Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + SilverList.Add(foundFile) + Next - If SilverList.Count < 1 Then - MessageBox.Show(Me, "No Silver Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + If SilverList.Count < 1 Then + MessageBox.Show(Me, "No Silver Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If - ssh.SaidHello = True - ssh.ShowModule = True + ssh.SaidHello = True + ssh.ShowModule = True - ssh.FileText = SilverList(ssh.randomizer.Next(0, SilverList.Count)) + ssh.FileText = SilverList(ssh.randomizer.Next(0, SilverList.Count)) - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() - End If + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 2 - ScriptTimer.Start() - Return + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 2 + ScriptTimer.Start() + Return - End If + End If - If WishlistCostGold.Visible = True And ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then + If WishlistCostGold.Visible = True And ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - ssh.GoldTokens -= Val(LBLWishlistCost.Text) - My.Settings.GoldTokens = ssh.GoldTokens + ssh.GoldTokens -= Val(LBLWishlistCost.Text) + My.Settings.GoldTokens = ssh.GoldTokens - My.Settings.ClearWishlist = True + My.Settings.ClearWishlist = True - Dim GoldList As New List(Of String) + Dim GoldList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Gold Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - GoldList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Gold Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + GoldList.Add(foundFile) + Next - If GoldList.Count < 1 Then - MessageBox.Show(Me, "No Gold Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + If GoldList.Count < 1 Then + MessageBox.Show(Me, "No Gold Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If - ssh.SaidHello = True - ssh.ShowModule = True + ssh.SaidHello = True + ssh.ShowModule = True - ssh.FileText = GoldList(ssh.randomizer.Next(0, GoldList.Count)) + ssh.FileText = GoldList(ssh.randomizer.Next(0, GoldList.Count)) - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() - End If + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 2 - ScriptTimer.Start() + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 2 + ScriptTimer.Start() - End If + End If - End Sub + End Sub #End Region #Region "------------------------------------------------- Hypno-Guide App ----------------------------------------------------" - Private Sub BTNHypnoGenStart_Click(sender As System.Object, e As System.EventArgs) Handles BTNHypnoGenStart.Click + Private Sub BTNHypnoGenStart_Click(sender As System.Object, e As System.EventArgs) Handles BTNHypnoGenStart.Click - If ssh.HypnoGen = False Then + If ssh.HypnoGen = False Then - If CBHypnoGenInduction.Checked = True Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt") Then - ssh.Induction = True - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt" - Else - MessageBox.Show(Me, "Please select a valid Hypno Induction File or deselect the Induction option!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return + If CBHypnoGenInduction.Checked = True Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt") Then + ssh.Induction = True + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt" + Else + MessageBox.Show(Me, "Please select a valid Hypno Induction File or deselect the Induction option!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If End If - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt") Then - If ssh.Induction = False Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt") Then + If ssh.Induction = False Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" + Else + ssh.TempHypno = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" + End If Else - ssh.TempHypno = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" + MessageBox.Show(Me, "Please select a valid Hypno File!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return End If - Else - MessageBox.Show(Me, "Please select a valid Hypno File!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 1 - ScriptTimer.Start() - Dim HypnoTrack As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\" & ComboBoxHypnoGenTrack.SelectedItem - If File.Exists(HypnoTrack) Then DomWMP.URL = HypnoTrack - ssh.HypnoGen = True - ssh.AFK = True - ssh.SaidHello = True + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 1 + ScriptTimer.Start() + Dim HypnoTrack As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\" & ComboBoxHypnoGenTrack.SelectedItem + If File.Exists(HypnoTrack) Then DomWMP.URL = HypnoTrack + ssh.HypnoGen = True + ssh.AFK = True + ssh.SaidHello = True - BTNHypnoGenStart.Text = "End Session" + BTNHypnoGenStart.Text = "End Session" - Else + Else - mciSendString("CLOSE Speech1", String.Empty, 0, 0) - mciSendString("CLOSE Echo1", String.Empty, 0, 0) - DomWMP.Ctlcontrols.stop() + mciSendString("CLOSE Speech1", String.Empty, 0, 0) + mciSendString("CLOSE Echo1", String.Empty, 0, 0) + DomWMP.Ctlcontrols.stop() - ScriptTimer.Stop() - ssh.StrokeTauntVal = -1 - ssh.HypnoGen = False - ssh.Induction = False - ssh.AFK = False - ssh.SaidHello = False + ScriptTimer.Stop() + ssh.StrokeTauntVal = -1 + ssh.HypnoGen = False + ssh.Induction = False + ssh.AFK = False + ssh.SaidHello = False - BTNHypnoGenStart.Text = "Guide Me!" + BTNHypnoGenStart.Text = "Guide Me!" - End If + End If - End Sub + End Sub - Private Sub CBHypnoGenSlideshow_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenSlideshow.CheckedChanged - If FormLoading = False Then - If CBHypnoGenSlideshow.Checked = True Then - LBHypnoGenSlideshow.Enabled = True - Else - LBHypnoGenSlideshow.Enabled = False + Private Sub CBHypnoGenSlideshow_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenSlideshow.CheckedChanged + If FormLoading = False Then + If CBHypnoGenSlideshow.Checked = True Then + LBHypnoGenSlideshow.Enabled = True + Else + LBHypnoGenSlideshow.Enabled = False + End If End If - End If - End Sub + End Sub - Private Sub CBHypnoGenInduction_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenInduction.CheckedChanged - If FormLoading = False Then - If CBHypnoGenInduction.Checked = True Then - LBHypnoGenInduction.Enabled = True - Else - LBHypnoGenInduction.Enabled = False + Private Sub CBHypnoGenInduction_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenInduction.CheckedChanged + If FormLoading = False Then + If CBHypnoGenInduction.Checked = True Then + LBHypnoGenInduction.Enabled = True + Else + LBHypnoGenInduction.Enabled = False + End If End If - End If - End Sub + End Sub + + Private Sub CBHypnoGenNoText_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenNoText.CheckedChanged + + End Sub + +#End Region + +#Region "--------------------------------------------------- VitalSub APP -----------------------------------------------------" + + Private Sub BTNExercise_Click(sender As System.Object, e As System.EventArgs) Handles BTNExercise.Click + If TBExercise.Text <> "" Then + CLBExercise.Items.Add(TBExercise.Text) + TBExercise.Text = "" + SaveExercise() + End If + End Sub + + Private Sub BTNCalorie_Click(sender As System.Object, e As System.EventArgs) Handles BTNCalorie.Click + If TBCalorieItem.Text <> "" And TBCalorieAmount.Text <> "" Then + Dim CalorieString As String + CalorieString = TBCalorieItem.Text & " " & TBCalorieAmount.Text & " Calories" + Dim Dupecheck As Boolean = False + For i As Integer = 0 To ComboBoxCalorie.Items.Count - 1 + If CalorieString = ComboBoxCalorie.Items(i) Then Dupecheck = True + Next + ComboBoxCalorie.Items.Add(CalorieString) + LBCalorie.Items.Add(CalorieString) + + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") + For i As Integer = 0 To LBCalorie.Items.Count - 1 + If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) + End If + Next - Private Sub CBHypnoGenNoText_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenNoText.CheckedChanged + If Dupecheck = False Then + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", Environment.NewLine & CalorieString, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", CalorieString, False) + End If + End If + Dupecheck = False + ssh.CaloriesConsumed += TBCalorieAmount.Text + LBLCalorie.Text = ssh.CaloriesConsumed + My.Settings.CaloriesConsumed = ssh.CaloriesConsumed + TBCalorieItem.Text = "" + TBCalorieAmount.Text = "" + End If + End Sub - End Sub + Private Sub ComboBoxCalorie_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectedIndexChanged -#End Region + End Sub -#Region "--------------------------------------------------- VitalSub APP -----------------------------------------------------" + Private Sub ComboBoxCalorie_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectionChangeCommitted + If Not ComboBoxCalorie.SelectedItem Is Nothing Then + Dim CalorieString As String = ComboBoxCalorie.SelectedItem + LBCalorie.Items.Add(CalorieString) + CalorieString = CalorieString.Replace(" Calories", "") + Dim CalorieSplit As String() = Split(CalorieString) + Dim TempCal As Integer = Val(CalorieSplit(CalorieSplit.Count - 1)) + ssh.CaloriesConsumed += TempCal + LBLCalorie.Text = ssh.CaloriesConsumed + My.Settings.CaloriesConsumed = ssh.CaloriesConsumed + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") + For i As Integer = 0 To LBCalorie.Items.Count - 1 + If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) + End If + Next + End If + End Sub - Private Sub BTNExercise_Click(sender As System.Object, e As System.EventArgs) Handles BTNExercise.Click - If TBExercise.Text <> "" Then - CLBExercise.Items.Add(TBExercise.Text) - TBExercise.Text = "" + Private Sub CLBExercise_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CLBExercise.SelectedIndexChanged, CLBExercise.LostFocus SaveExercise() - End If - End Sub - - Private Sub BTNCalorie_Click(sender As System.Object, e As System.EventArgs) Handles BTNCalorie.Click - If TBCalorieItem.Text <> "" And TBCalorieAmount.Text <> "" Then - Dim CalorieString As String - CalorieString = TBCalorieItem.Text & " " & TBCalorieAmount.Text & " Calories" - Dim Dupecheck As Boolean = False - For i As Integer = 0 To ComboBoxCalorie.Items.Count - 1 - If CalorieString = ComboBoxCalorie.Items(i) Then Dupecheck = True - Next - ComboBoxCalorie.Items.Add(CalorieString) - LBCalorie.Items.Add(CalorieString) + End Sub - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - For i As Integer = 0 To LBCalorie.Items.Count - 1 - If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) - End If - Next + Private Sub CBVitalSub_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSub.CheckedChanged + If CBVitalSub.Checked = True Then + CBVitalSub.ForeColor = Color.LightGreen + CBVitalSub.Text = "VitalSub Active" + Else + CBVitalSub.ForeColor = Color.Red + CBVitalSub.Text = "VitalSub Inactive" + End If + End Sub - If Dupecheck = False Then - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", Environment.NewLine & CalorieString, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", CalorieString, False) - End If + Private Sub CBVitalSub_LostFocus(sender As Object, e As System.EventArgs) Handles CBVitalSub.LostFocus + If CBVitalSub.Checked = True Then + My.Settings.VitalSub = True + Else + My.Settings.VitalSub = False End If - Dupecheck = False - ssh.CaloriesConsumed += TBCalorieAmount.Text - LBLCalorie.Text = ssh.CaloriesConsumed - My.Settings.CaloriesConsumed = ssh.CaloriesConsumed - TBCalorieItem.Text = "" - TBCalorieAmount.Text = "" - End If - End Sub + End Sub - Private Sub ComboBoxCalorie_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectedIndexChanged + Private Sub LBCalorie_DoubleClick(sender As Object, e As System.EventArgs) Handles LBCalorie.DoubleClick - End Sub - Private Sub ComboBoxCalorie_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectionChangeCommitted - If Not ComboBoxCalorie.SelectedItem Is Nothing Then - Dim CalorieString As String = ComboBoxCalorie.SelectedItem - LBCalorie.Items.Add(CalorieString) + Dim CalorieString As String = LBCalorie.SelectedItem CalorieString = CalorieString.Replace(" Calories", "") Dim CalorieSplit As String() = Split(CalorieString) Dim TempCal As Integer = Val(CalorieSplit(CalorieSplit.Count - 1)) - ssh.CaloriesConsumed += TempCal + ssh.CaloriesConsumed -= TempCal LBLCalorie.Text = ssh.CaloriesConsumed My.Settings.CaloriesConsumed = ssh.CaloriesConsumed + LBCalorie.Items.Remove(LBCalorie.SelectedItem) If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - For i As Integer = 0 To LBCalorie.Items.Count - 1 - If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) - End If - Next - End If - End Sub - - Private Sub CLBExercise_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CLBExercise.SelectedIndexChanged, CLBExercise.LostFocus - SaveExercise() - End Sub + If LBCalorie.Items.Count > 0 Then + For i As Integer = 0 To LBCalorie.Items.Count - 1 + If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) + End If + Next + End If + End Sub - Private Sub CBVitalSub_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSub.CheckedChanged - If CBVitalSub.Checked = True Then - CBVitalSub.ForeColor = Color.LightGreen - CBVitalSub.Text = "VitalSub Active" - Else - CBVitalSub.ForeColor = Color.Red - CBVitalSub.Text = "VitalSub Inactive" - End If - End Sub + Private Sub BTNVitalSub_Click(sender As System.Object, e As System.EventArgs) Handles BTNVitalSub.Click + If ssh.SaidHello = True Then + MessageBox.Show(Me, "Please wait until you are not engaged with the domme to make VitalSub reports!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - Private Sub CBVitalSub_LostFocus(sender As Object, e As System.EventArgs) Handles CBVitalSub.LostFocus - If CBVitalSub.Checked = True Then - My.Settings.VitalSub = True - Else - My.Settings.VitalSub = False - End If - End Sub + ssh.SaidHello = True - Private Sub LBCalorie_DoubleClick(sender As Object, e As System.EventArgs) Handles LBCalorie.DoubleClick - - - Dim CalorieString As String = LBCalorie.SelectedItem - CalorieString = CalorieString.Replace(" Calories", "") - Dim CalorieSplit As String() = Split(CalorieString) - Dim TempCal As Integer = Val(CalorieSplit(CalorieSplit.Count - 1)) - ssh.CaloriesConsumed -= TempCal - LBLCalorie.Text = ssh.CaloriesConsumed - My.Settings.CaloriesConsumed = ssh.CaloriesConsumed - LBCalorie.Items.Remove(LBCalorie.SelectedItem) - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - If LBCalorie.Items.Count > 0 Then - For i As Integer = 0 To LBCalorie.Items.Count - 1 - If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) - End If - Next - End If - End Sub - Private Sub BTNVitalSub_Click(sender As System.Object, e As System.EventArgs) Handles BTNVitalSub.Click - If ssh.SaidHello = True Then - MessageBox.Show(Me, "Please wait until you are not engaged with the domme to make VitalSub reports!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If + Dim VitalSubFail As Boolean = False - ssh.SaidHello = True + If CLBExercise.Items.Count > 0 Then + For i As Integer = 0 To CLBExercise.Items.Count - 1 + If CLBExercise.GetItemChecked(i) = False Then VitalSubFail = True + Next + End If + If Val(LBLCalorie.Text) > Val(TBCalorie.Text) Then VitalSubFail = True - Dim VitalSubFail As Boolean = False + Dim VitalSubState As String - If CLBExercise.Items.Count > 0 Then - For i As Integer = 0 To CLBExercise.Items.Count - 1 - If CLBExercise.GetItemChecked(i) = False Then VitalSubFail = True - Next - End If + If VitalSubFail = True Then + VitalSubState = "Punishments" + Else + VitalSubState = "Rewards" + End If + VitalSubFail = False - If Val(LBLCalorie.Text) > Val(TBCalorie.Text) Then VitalSubFail = True - Dim VitalSubState As String - If VitalSubFail = True Then - VitalSubState = "Punishments" - Else - VitalSubState = "Rewards" - End If - VitalSubFail = False + Dim VitalList As New List(Of String) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\" & VitalSubState & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + VitalList.Add(foundFile) + Next + If VitalList.Count > 0 Then - Dim VitalList As New List(Of String) + ' github patch begin + ' For i As Integer = 0 To CLBExercise.Items.Count - 1 + 'CLBExercise.SetItemChecked(i, False) + 'Next + 'SaveExercise() + ' github patch end - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\" & VitalSubState & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - VitalList.Add(foundFile) - Next + CLBExercise.Items.Clear() + SaveExercise() - If VitalList.Count > 0 Then - ' github patch begin - ' For i As Integer = 0 To CLBExercise.Items.Count - 1 - 'CLBExercise.SetItemChecked(i, False) - 'Next - 'SaveExercise() - ' github patch end + LBCalorie.Items.Clear() + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") + LBLCalorie.Text = 0 + ssh.CaloriesConsumed = 0 + My.Settings.CaloriesConsumed = 0 - CLBExercise.Items.Clear() - SaveExercise() + ssh.FileText = VitalList(ssh.randomizer.Next(0, VitalList.Count)) + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() + End If - LBCalorie.Items.Clear() - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - LBLCalorie.Text = 0 - ssh.CaloriesConsumed = 0 - My.Settings.CaloriesConsumed = 0 + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() - ssh.FileText = VitalList(ssh.randomizer.Next(0, VitalList.Count)) + Else - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() + MessageBox.Show(Me, "No " & VitalSubState & " were found! Please make sure you have files in the VitaSub directory for this personality type!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return End If + End Sub - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - - Else - - MessageBox.Show(Me, "No " & VitalSubState & " were found! Please make sure you have files in the VitaSub directory for this personality type!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If - End Sub - - Private Sub CLBExercise_DragLeave(sender As Object, e As System.EventArgs) Handles CLBExercise.DragLeave + Private Sub CLBExercise_DragLeave(sender As Object, e As System.EventArgs) Handles CLBExercise.DragLeave - CLBExercise.Items.Remove(CLBExercise.SelectedItem) - End Sub + CLBExercise.Items.Remove(CLBExercise.SelectedItem) + End Sub - Private Sub CBVitalSubDomTask_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSubDomTask.CheckedChanged - If FormLoading = False Then - My.Settings.VitalSubAssignments = CBVitalSubDomTask.Checked - End If - End Sub + Private Sub CBVitalSubDomTask_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSubDomTask.CheckedChanged + If FormLoading = False Then + My.Settings.VitalSubAssignments = CBVitalSubDomTask.Checked + End If + End Sub #End Region ' Vital Sub - Public Sub MetronomeTick() + Public Sub MetronomeTick() - Dim wavFilepath As String = Application.StartupPath & "\Audio\System\metronome.wav" - Dim MetroSoundPlayer As Media.SoundPlayer = Nothing - Dim wavStream As MemoryStream - Dim Errorcounter As Integer = 0 + Dim wavFilepath As String = Application.StartupPath & "\Audio\System\metronome.wav" + Dim MetroSoundPlayer As Media.SoundPlayer = Nothing + Dim wavStream As MemoryStream + Dim Errorcounter As Integer = 0 restartNoFile: - Try - If Directory.Exists(Path.GetDirectoryName(wavFilepath)) AndAlso File.Exists(wavFilepath) Then + Try + If Directory.Exists(Path.GetDirectoryName(wavFilepath)) AndAlso File.Exists(wavFilepath) Then - wavStream = New MemoryStream(File.ReadAllBytes(wavFilepath)) - MetroSoundPlayer = New Media.SoundPlayer(wavStream) - MetroSoundPlayer.Load() + wavStream = New MemoryStream(File.ReadAllBytes(wavFilepath)) + MetroSoundPlayer = New Media.SoundPlayer(wavStream) + MetroSoundPlayer.Load() playLoop: - ' copy variable to avoid needless locking delays - Dim tmpStrokePace As Integer = StrokePaceMetronome + ' copy variable to avoid needless locking delays + Dim tmpStrokePace As Integer = StrokePaceMetronome - If tmpStrokePace > 0 AndAlso CBMetronome.Checked Then - MetroSoundPlayer.Stop() - MetroSoundPlayer.Play() - Thread.Sleep(tmpStrokePace) - Else - Thread.Sleep(1000) - End If + If tmpStrokePace > 0 AndAlso CBMetronome.Checked Then + MetroSoundPlayer.Stop() + MetroSoundPlayer.Play() + Thread.Sleep(tmpStrokePace) + Else + Thread.Sleep(1000) + End If - GoTo playLoop - Else - Thread.Sleep(10 * 1000) + GoTo playLoop + Else + Thread.Sleep(10 * 1000) + GoTo restartNoFile + End If + Catch ex As Exception When Errorcounter < 120 + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors until 119 Errors occured + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: MetronomeExceptions: Log error - but first add synclock to logging. + Errorcounter += 1 + Thread.Sleep(1000) GoTo restartNoFile - End If - Catch ex As Exception When Errorcounter < 120 - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors until 119 Errors occured - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: MetronomeExceptions: Log error - but first add synclock to logging. - Errorcounter += 1 - Thread.Sleep(1000) - GoTo restartNoFile - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: MetronomeExceptions: Add possibility to restart the thread. - End Try - End Sub + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: MetronomeExceptions: Add possibility to restart the thread. + End Try + End Sub #Region "-------------------------------------------------- Metronome-App -----------------------------------------------------" - Private Sub BTNMetroPreview1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview1.Click - If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value - End Sub + Private Sub BTNMetroPreview1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview1.Click + If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value + End Sub - Private Sub BTNMetroPreview2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview2.Click - If ssh.SubStroking = False Then StrokePace = NBMinPace.Value - End Sub + Private Sub BTNMetroPreview2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview2.Click + If ssh.SubStroking = False Then StrokePace = NBMinPace.Value + End Sub - Private Sub BTNMetroStop1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop1.Click - If ssh.SubStroking = False Then StrokePace = 0 - End Sub + Private Sub BTNMetroStop1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop1.Click + If ssh.SubStroking = False Then StrokePace = 0 + End Sub - Private Sub BTNMetroStop2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop2.Click - If ssh.SubStroking = False Then StrokePace = 0 - End Sub + Private Sub BTNMetroStop2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop2.Click + If ssh.SubStroking = False Then StrokePace = 0 + End Sub - Private Sub NBMaxPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMaxPace.ValueChanged - If FormLoading = False Then - If NBMaxPace.Value > NBMinPace.Value - 50 Then NBMaxPace.Value = NBMinPace.Value - 50 - If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value - My.Settings.MaxPace = NBMaxPace.Value - End If - End Sub + Private Sub NBMaxPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMaxPace.ValueChanged + If FormLoading = False Then + If NBMaxPace.Value > NBMinPace.Value - 50 Then NBMaxPace.Value = NBMinPace.Value - 50 + If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value + My.Settings.MaxPace = NBMaxPace.Value + End If + End Sub - Private Sub NBMinPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMinPace.ValueChanged - If FormLoading = False Then - If NBMinPace.Value < NBMaxPace.Value + 50 Then NBMinPace.Value = NBMaxPace.Value + 50 - If ssh.SubStroking = False Then StrokePace = NBMinPace.Value - My.Settings.MinPace = NBMinPace.Value - End If - End Sub + Private Sub NBMinPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMinPace.ValueChanged + If FormLoading = False Then + If NBMinPace.Value < NBMaxPace.Value + 50 Then NBMinPace.Value = NBMaxPace.Value + 50 + If ssh.SubStroking = False Then StrokePace = NBMinPace.Value + My.Settings.MinPace = NBMinPace.Value + End If + End Sub - Private Sub TimeoutTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TimeoutTimer.Tick + Private Sub TimeoutTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TimeoutTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - Debug.Print("TimeoutTick = " & ssh.TimeoutTick) + Debug.Print("TimeoutTick = " & ssh.TimeoutTick) - If chatBox.Text <> "" And ssh.TimeoutTick < 3 Then Return - If ChatBox2.Text <> "" And ssh.TimeoutTick < 3 Then Return + If chatBox.Text <> "" And ssh.TimeoutTick < 3 Then Return + If ChatBox2.Text <> "" And ssh.TimeoutTick < 3 Then Return - ssh.TimeoutTick -= 1 + ssh.TimeoutTick -= 1 - If ssh.TimeoutTick < 1 Then + If ssh.TimeoutTick < 1 Then - TimeoutTimer.Stop() - ssh.YesOrNo = False - ssh.InputFlag = False + TimeoutTimer.Stop() + ssh.YesOrNo = False + ssh.InputFlag = False - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - RunFileText() + RunFileText() - End If + End If - End Sub + End Sub - Private Sub CBMetronome_LostFocus(sender As Object, e As System.EventArgs) Handles CBMetronome.LostFocus - My.Settings.MetroOn = CBMetronome.Checked - End Sub + Private Sub CBMetronome_LostFocus(sender As Object, e As System.EventArgs) Handles CBMetronome.LostFocus + My.Settings.MetroOn = CBMetronome.Checked + End Sub #End Region ' Metronome App #End Region ' Apps - Private Sub VideoTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTimer.Tick + Private Sub VideoTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.VideoTick -= 1 + ssh.VideoTick -= 1 - If ssh.VideoTick < 1 Then - VideoTimer.Stop() - DomWMP.Ctlcontrols.stop() - End If + If ssh.VideoTick < 1 Then + VideoTimer.Stop() + DomWMP.Ctlcontrols.stop() + End If - End Sub + End Sub - Private Sub MultipleEdgesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles MultipleEdgesTimer.Tick + Private Sub MultipleEdgesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles MultipleEdgesTimer.Tick - If ssh.DomTypeCheck = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.DomTypeCheck = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.MultipleEdgesTick -= 1 + ssh.MultipleEdgesTick -= 1 - If ssh.MultipleEdgesTick < 1 Then + If ssh.MultipleEdgesTick < 1 Then - MultipleEdgesTimer.Stop() + MultipleEdgesTimer.Stop() - ssh.DomChat = "#SYS_MultipleEdgesStart" - If ssh.Contact1Edge = True Then ssh.DomChat = "@Contact1 #SYS_MultipleEdgesStart" - If ssh.Contact2Edge = True Then ssh.DomChat = "@Contact2 #SYS_MultipleEdgesStart" - If ssh.Contact3Edge = True Then ssh.DomChat = "@Contact3 #SYS_MultipleEdgesStart" - TypingDelay() + ssh.DomChat = "#SYS_MultipleEdgesStart" + If ssh.Contact1Edge = True Then ssh.DomChat = "@Contact1 #SYS_MultipleEdgesStart" + If ssh.Contact2Edge = True Then ssh.DomChat = "@Contact2 #SYS_MultipleEdgesStart" + If ssh.Contact3Edge = True Then ssh.DomChat = "@Contact3 #SYS_MultipleEdgesStart" + TypingDelay() - ssh.MultipleEdgesMetronome = "START" + ssh.MultipleEdgesMetronome = "START" - ssh.EdgeCountTick = 0 - EdgeCountTimer.Start() + ssh.EdgeCountTick = 0 + EdgeCountTimer.Start() - End If + End If - End Sub + End Sub - Public Function OfflineConversion(ByVal OffString As String) As String + Public Function OfflineConversion(ByVal OffString As String) As String - ' Ixnay on the Wordplay + ' Ixnay on the Wordplay - OffString = OffString.Replace("@ShowBlogImage", "@ShowLocalImage") + OffString = OffString.Replace("@ShowBlogImage", "@ShowLocalImage") - If My.Settings.CBIButts = False Then - OffString = OffString.Replace("@ShowButtImage", "") - OffString = OffString.Replace("@ShowButtsImage", "") - End If + If My.Settings.CBIButts = False Then + OffString = OffString.Replace("@ShowButtImage", "") + OffString = OffString.Replace("@ShowButtsImage", "") + End If - If My.Settings.CBIBoobs = False Then - OffString = OffString.Replace("@ShowBoobImage", "") - OffString = OffString.Replace("@ShowBoobsImage", "") - End If + If My.Settings.CBIBoobs = False Then + OffString = OffString.Replace("@ShowBoobImage", "") + OffString = OffString.Replace("@ShowBoobsImage", "") + End If - If OffString.Contains("@ShowImage[") Then - Dim CheckImage As String = GetParentheses(OffString, "@ShowImage[") - If CheckImage.Contains("://") Then - OffString = OffString.Replace("@ShowImage[" & CheckImage & "]", "") + If OffString.Contains("@ShowImage[") Then + Dim CheckImage As String = GetParentheses(OffString, "@ShowImage[") + If CheckImage.Contains("://") Then + OffString = OffString.Replace("@ShowImage[" & CheckImage & "]", "") + End If End If - End If - Return OffString + Return OffString - ' You gotta keep 'em numerated + ' You gotta keep 'em numerated - End Function + End Function - Private Function FilterCheck(ByVal Input As String, ByVal ConditionControl As Control) As Boolean + Private Function FilterCheck(ByVal Input As String, ByVal ConditionControl As Control) As Boolean - Debug.Print("Input = " & Input) - Debug.Print("ConditionControl = " & ConditionControl.ToString) + Debug.Print("Input = " & Input) + Debug.Print("ConditionControl = " & ConditionControl.ToString) - If TypeOf ConditionControl Is NumericUpDown Then - Debug.Print("It's a combo box" & Input) - End If + If TypeOf ConditionControl Is NumericUpDown Then + Debug.Print("It's a combo box" & Input) + End If - Dim TextCondition As String - ' Cast the Type of the Control to access it's visible TextValue - If TypeOf ConditionControl Is NumericUpDown Then - TextCondition = DirectCast(ConditionControl, NumericUpDown).Value - ElseIf TypeOf ConditionControl Is ComboBox Then - TextCondition = DirectCast(ConditionControl, ComboBox).Text - ElseIf TypeOf ConditionControl Is CheckBox Then - TextCondition = DirectCast(ConditionControl, CheckBox).Checked - Else - Throw New Exception("Type of control not implemented in Function.") - End If + Dim TextCondition As String + ' Cast the Type of the Control to access it's visible TextValue + If TypeOf ConditionControl Is NumericUpDown Then + TextCondition = DirectCast(ConditionControl, NumericUpDown).Value + ElseIf TypeOf ConditionControl Is ComboBox Then + TextCondition = DirectCast(ConditionControl, ComboBox).Text + ElseIf TypeOf ConditionControl Is CheckBox Then + TextCondition = DirectCast(ConditionControl, CheckBox).Checked + Else + Throw New Exception("Type of control not implemented in Function.") + End If - TextCondition = UCase(TextCondition) - Debug.Print("TextCondition = " & TextCondition) + TextCondition = UCase(TextCondition) + Debug.Print("TextCondition = " & TextCondition) - If TextCondition = "ALWAYS ALLOWS" Or TextCondition = "ALWAYS RUINS" Then TextCondition = "ALWAYS" - If TextCondition = "OFTEN ALLOWS" Or TextCondition = "OFTEN RUINS" Then TextCondition = "OFTEN" - If TextCondition = "SOMETIMES ALLOWS" Or TextCondition = "SOMETIMES RUINS" Then TextCondition = "SOMETIMES" - If TextCondition = "RARELY ALLOWS" Or TextCondition = "RARELY RUINS" Then TextCondition = "RARELY" - If TextCondition = "NEVER ALLOWS" Or TextCondition = "NEVER RUINS" Then TextCondition = "NEVER" + If TextCondition = "ALWAYS ALLOWS" Or TextCondition = "ALWAYS RUINS" Then TextCondition = "ALWAYS" + If TextCondition = "OFTEN ALLOWS" Or TextCondition = "OFTEN RUINS" Then TextCondition = "OFTEN" + If TextCondition = "SOMETIMES ALLOWS" Or TextCondition = "SOMETIMES RUINS" Then TextCondition = "SOMETIMES" + If TextCondition = "RARELY ALLOWS" Or TextCondition = "RARELY RUINS" Then TextCondition = "RARELY" + If TextCondition = "NEVER ALLOWS" Or TextCondition = "NEVER RUINS" Then TextCondition = "NEVER" - Input = UCase(Input) - 'Input = Input.Replace(" ", "") + Input = UCase(Input) + 'Input = Input.Replace(" ", "") - If Input.Contains(",") Then - Input = FixCommas(Input) - Dim SplitArray() As String = Input.Split(",") + If Input.Contains(",") Then + Input = FixCommas(Input) + Dim SplitArray() As String = Input.Split(",") - If Input.Contains("NOT") Then - For i As Integer = 0 To SplitArray.Count - 1 - If SplitArray(i) = TextCondition Then Return False - Next - Return True + If Input.Contains("NOT") Then + For i As Integer = 0 To SplitArray.Count - 1 + If SplitArray(i) = TextCondition Then Return False + Next + Return True + Else + For i As Integer = 0 To SplitArray.Count - 1 + If SplitArray(i) = TextCondition Then Return True + Next + End If Else - For i As Integer = 0 To SplitArray.Count - 1 - If SplitArray(i) = TextCondition Then Return True - Next + If Input = TextCondition Then Return True End If - Else - If Input = TextCondition Then Return True - End If - - Return False - End Function - - Public Sub ClearModes() + Return False - ssh.EdgeGoto = False - ssh.YesGoto = False - ssh.NoGoto = False - ssh.CameGoto = False - ssh.RuinedGoto = False - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False - ssh.EdgeMessage = False - ssh.CameMessage = False - ssh.RuinedMessage = False - ssh.Modes.Clear() + End Function + Public Sub ClearModes() - End Sub + ssh.EdgeGoto = False + ssh.YesGoto = False + ssh.NoGoto = False + ssh.CameGoto = False + ssh.RuinedGoto = False + ssh.EdgeVideo = False + ssh.YesVideo = False + ssh.NoVideo_Mode = False + ssh.CameVideo = False + ssh.RuinedVideo = False + ssh.EdgeMessage = False + ssh.CameMessage = False + ssh.RuinedMessage = False + ssh.Modes.Clear() - Public Function GetMatch(ByVal Line As String, ByVal Command As String, Match As String) As Boolean + End Sub - Debug.Print("Line = " & Line) - Debug.Print("Command = " & Command) - Debug.Print("Match = " & Match) - Dim CommandFlag As String = GetParentheses(Line, Command) + Public Function GetMatch(ByVal Line As String, ByVal Command As String, Match As String) As Boolean - If CommandFlag.Contains(",") Then + Debug.Print("Line = " & Line) + Debug.Print("Command = " & Command) + Debug.Print("Match = " & Match) - CommandFlag = FixCommas(CommandFlag) + Dim CommandFlag As String = GetParentheses(Line, Command) - Dim CommandArray As String() = CommandFlag.Split(",") + If CommandFlag.Contains(",") Then - Dim NotFlag As Boolean = False + CommandFlag = FixCommas(CommandFlag) - For i As Integer = 0 To CommandArray.Count - 1 - If CommandArray(i).ToUpper = "NOT" Then NotFlag = True - Next + Dim CommandArray As String() = CommandFlag.Split(",") - If NotFlag = True Then + Dim NotFlag As Boolean = False For i As Integer = 0 To CommandArray.Count - 1 - If CommandArray(i) = Match Then Return False + If CommandArray(i).ToUpper = "NOT" Then NotFlag = True Next - Return True + If NotFlag = True Then - Else + For i As Integer = 0 To CommandArray.Count - 1 + If CommandArray(i) = Match Then Return False + Next - For i As Integer = 0 To CommandArray.Count - 1 - If CommandArray(i) = Match Then Return True - Next + Return True - End If + Else - Else + For i As Integer = 0 To CommandArray.Count - 1 + If CommandArray(i) = Match Then Return True + Next - If CommandFlag = Match Then Return True + End If - End If + Else - Return False + If CommandFlag = Match Then Return True - End Function + End If + Return False + End Function - Public Sub Edge() - If ssh.SubStroking = True Then ssh.AlreadyStrokingEdge = True - GetEdgeTickCheck() - ssh.SubStroking = True - ssh.LongEdge = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.EdgeCountTick = 0 - EdgeCountTimer.Start() - ssh.SubEdging = True - ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) - EdgeTauntTimer.Start() - If ssh.OrgasmAllowed = True Or ssh.OrgasmDenied = True Or ssh.OrgasmRuined = True Then ssh.OrgasmYesNo = True - EdgePace() - ActivateWebToy() - DisableContactStroke() - ssh.SessionEdges += 1 - End Sub + Public Sub Edge() + If ssh.SubStroking = True Then ssh.AlreadyStrokingEdge = True + GetEdgeTickCheck() + ssh.SubStroking = True + ssh.LongEdge = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.EdgeCountTick = 0 + EdgeCountTimer.Start() + ssh.SubEdging = True + ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) + EdgeTauntTimer.Start() + If ssh.OrgasmAllowed = True Or ssh.OrgasmDenied = True Or ssh.OrgasmRuined = True Then ssh.OrgasmYesNo = True + EdgePace() + ActivateWebToy() + DisableContactStroke() + ssh.SessionEdges += 1 - Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click - My.Settings.SideChat = True - CloseApp(PNLChatBox2) - End Sub + End Sub - Public Sub ClearWriteTask() - ssh.WritingTaskCurrentTime = 0 - ssh.WritingTaskFlag = False - chatBox.ShortcutsEnabled = True - ChatBox2.ShortcutsEnabled = True - CloseApp(Nothing) - End Sub - Public Sub ClearChat() + Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click + My.Settings.SideChat = True + CloseApp(PNLChatBox2) + End Sub + + Public Sub ClearWriteTask() + ssh.WritingTaskCurrentTime = 0 + ssh.WritingTaskFlag = False + chatBox.ShortcutsEnabled = True + ChatBox2.ShortcutsEnabled = True + CloseApp(Nothing) + End Sub - ssh.Chat = "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + Public Sub ClearChat() - End Sub + ssh.Chat = "" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() - Public Sub ChatReadyState() - While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete - Application.DoEvents() - End While - ScrollChatDown() - End Sub + End Sub + Public Sub ChatReadyState() + While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete + Application.DoEvents() + End While + ScrollChatDown() + End Sub - Public Function GetIf(ByVal CompareString As String) As Boolean - ' CompareString = [x]operator[y] + Public Function GetIf(ByVal CompareString As String) As Boolean - Dim ReturnVal As Boolean = False + ' CompareString = [x]operator[y] - Dim CompareArray As String() = CompareString.Split("]") - Dim C_Operator As String = CompareArray(1).Split("[")(0) - Dim Val1 As String = CompareArray(0).Replace("[", "") - Dim Val2 As String = CompareArray(1).Replace(C_Operator & "[", "") + Dim ReturnVal As Boolean = False - If Val1.StartsWith("#") Then Val1 = PoundClean(Val1) - If Val2.StartsWith("#") Then Val2 = PoundClean(Val2) + Dim CompareArray As String() = CompareString.Split("]") + Dim C_Operator As String = CompareArray(1).Split("[")(0) + Dim Val1 As String = CompareArray(0).Replace("[", "") + Dim Val2 As String = CompareArray(1).Replace(C_Operator & "[", "") - Debug.Print("CompareString = " & CompareString) - Debug.Print("C_Operator = " & C_Operator) - Debug.Print("Val1 = " & Val1) - Debug.Print("Val2 = " & Val2) + If Val1.StartsWith("#") Then Val1 = PoundClean(Val1) + If Val2.StartsWith("#") Then Val2 = PoundClean(Val2) - If Not IsNumeric(Val1) Then - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val1 - If File.Exists(VarCheck) Then Val1 = TxtReadLine(VarCheck) - End If + Debug.Print("CompareString = " & CompareString) + Debug.Print("C_Operator = " & C_Operator) + Debug.Print("Val1 = " & Val1) + Debug.Print("Val2 = " & Val2) - If Not IsNumeric(Val2) Then - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val2 - If File.Exists(VarCheck) Then Val2 = TxtReadLine(VarCheck) - End If + If Not IsNumeric(Val1) Then + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val1 + If File.Exists(VarCheck) Then Val1 = TxtReadLine(VarCheck) + End If - If C_Operator = "=" Or C_Operator = "==" Then - If UCase(Val1) = UCase(Val2) Then Return True - End If + If Not IsNumeric(Val2) Then + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val2 + If File.Exists(VarCheck) Then Val2 = TxtReadLine(VarCheck) + End If - If C_Operator = "<>" Then - If UCase(Val1) <> UCase(Val2) Then Return True - End If + If C_Operator = "=" Or C_Operator = "==" Then + If UCase(Val1) = UCase(Val2) Then Return True + End If - If Not IsNumeric(Val1) And Not IsNumeric(Val2) Then Return False + If C_Operator = "<>" Then + If UCase(Val1) <> UCase(Val2) Then Return True + End If - If C_Operator = ">" Then - If Val(Val1) > Val(Val2) Then Return True - End If + If Not IsNumeric(Val1) And Not IsNumeric(Val2) Then Return False - If C_Operator = "<" Then - If Val(Val1) < Val(Val2) Then Return True - End If + If C_Operator = ">" Then + If Val(Val1) > Val(Val2) Then Return True + End If - If C_Operator = ">=" Then - If Val(Val1) >= Val(Val2) Then Return True - End If + If C_Operator = "<" Then + If Val(Val1) < Val(Val2) Then Return True + End If - If C_Operator = "<=" Then - If Val(Val1) <= Val(Val2) Then Return True - End If + If C_Operator = ">=" Then + If Val(Val1) >= Val(Val2) Then Return True + End If - Return ReturnVal + If C_Operator = "<=" Then + If Val(Val1) <= Val(Val2) Then Return True + End If - End Function + Return ReturnVal - Public Function GetArrayString(ByVal StringToSplit As String) As String() - StringToSplit = FixCommas(StringToSplit) - Dim ArrayString As String() = StringToSplit.Split(",") - Return ArrayString - End Function + End Function - Public Function GetCharCount(ByVal StringClean As String, ByVal Character As String) As Integer - Return Len(StringClean) - Len(Replace(StringClean, Character, "")) - End Function + Public Function GetArrayString(ByVal StringToSplit As String) As String() + StringToSplit = FixCommas(StringToSplit) + Dim ArrayString As String() = StringToSplit.Split(",") + Return ArrayString + End Function - Private Sub Form1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown - If e.KeyCode = (Keys.F Or Keys.Control) Then - FullscreenToolStripMenuItem_Click(Nothing, Nothing) - ElseIf e.Alt AndAlso MainMenuStrip.Visible = False Then - MainMenuStrip.Visible = True - MainMenuStrip.Focus() - ElseIf e.Alt AndAlso FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - MainMenuStrip.Visible = False - End If - End Sub + Public Function GetCharCount(ByVal StringClean As String, ByVal Character As String) As Integer + Return Len(StringClean) - Len(Replace(StringClean, Character, "")) + End Function - Private Sub MenuStrip2_Leave(sender As System.Object, e As System.EventArgs) Handles MenuStrip2.Leave - If FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - MainMenuStrip.Visible = False - End If - End Sub + Private Sub Form1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + If e.KeyCode = (Keys.F Or Keys.Control) Then + FullscreenToolStripMenuItem_Click(Nothing, Nothing) + ElseIf e.Alt AndAlso MainMenuStrip.Visible = False Then + MainMenuStrip.Visible = True + MainMenuStrip.Focus() + ElseIf e.Alt AndAlso FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + MainMenuStrip.Visible = False + End If + End Sub + + Private Sub MenuStrip2_Leave(sender As System.Object, e As System.EventArgs) Handles MenuStrip2.Leave + If FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + MainMenuStrip.Visible = False + End If + End Sub -End Class + End Class diff --git a/Tease AI/Tease AI.vbproj b/Tease AI/Tease AI.vbproj index 6aec9ff..180ba8d 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -117,6 +117,7 @@ + Component From 2c15e26622087d63e9cee7098f732f199a51f006 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Tue, 29 Nov 2016 00:34:01 +0100 Subject: [PATCH 005/143] Revert "Force 1 line taunts Adds a 45% Chance to force 1 line taunts. Otherwise a random of all available taunt types is picked. Taunts are now processed in a designated class, to add the possibility to reuse it for other taunt types as chastity, glitter and stroke too." This reverts commit 668570f8666417ee359e89ec341185ae7eee369b. --- Tease AI/Classes/State.vb | 55 +- Tease AI/Classes/TauntProcessingObject.vb | 94 - Tease AI/Form1.vb | 20069 ++++++++++---------- Tease AI/Tease AI.vbproj | 1 - 4 files changed, 10063 insertions(+), 10156 deletions(-) delete mode 100644 Tease AI/Classes/TauntProcessingObject.vb diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index afafa44..825db33 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -61,30 +61,21 @@ Public Class SessionState Public Property TempStrokeTauntVal As Integer Public Property TempFileText As String -#Region "Taunts" - - ''' Gets or sets the remaining taunt lines - - Public Property TempScriptCount As Integer - - ''' Gets or Sets if a taunt demanded CBT. - - Public Property CBT As Boolean - - ''' Gets or sets time until next taunt. - - Public Property StrokeTauntTick As Integer - ''' Gets or sets the current TauntFile path. - + Public Property TauntText As String ''' Gets or sets the length of a taunt group. - + Public Property StrokeTauntCount As Integer + ''' Duplicate of .Count + + + Public Property TauntTextTotal As Integer + ''' Gets or sets the current taunt lines. - + Public Property TauntLines As New List(Of String) @@ -93,25 +84,9 @@ Public Class SessionState Public Property StrokeFilter As Boolean ''' Gets or Sets the current taunt line index. - + Public Property TauntTextCount As Integer -#Region "Obsolete" - - ''' Duplicate of .Count - - - Public Property TauntTextTotal As Integer - - ''' Stores the number of taunt files, to determine taunt size. - - - Public Property ScriptCount As Integer - -#End Region - -#End Region - Public Property FileText As String Public Property ScriptTick As Integer @@ -167,6 +142,9 @@ Public Class SessionState Public Property TempHypno As String Public Property StrokeTick As Integer + ''' Gets or sets time until next taunt. + + Public Property StrokeTauntTick As Integer @@ -184,6 +162,10 @@ Public Class SessionState Public Property YesOrNo As Boolean = False Public Property GotoFlag As Boolean + ''' Gets or Sets if a taunt demanded CBT. + + Public Property CBT As Boolean + Public Property RunningScript As Boolean Public Property BeforeTease As Boolean @@ -270,6 +252,11 @@ Public Class SessionState Public Property LocalTagImageList As New List(Of String) Public Property PetName As String + ''' Stores the number of taunt files, to determine taunt size. + + + Public Property ScriptCount As Integer + Public Property TempScriptCount As Integer Public Property SlideshowTimerTick As Integer diff --git a/Tease AI/Classes/TauntProcessingObject.vb b/Tease AI/Classes/TauntProcessingObject.vb deleted file mode 100644 index 84fafc5..0000000 --- a/Tease AI/Classes/TauntProcessingObject.vb +++ /dev/null @@ -1,94 +0,0 @@ -Imports System.IO - -''' Class to process TauntFiles -Public Class TauntProcessingObject - - ''' Absolute path to taunt file. - Friend Property FilePath As String = "" - - ''' gets tauntfile's name without extension. - Friend ReadOnly Property FileName As String - Get - Return Path.GetFileNameWithoutExtension(FilePath) - End Get - End Property - - ''' Filtered taunt file Lines. - Friend Property Lines As New List(Of String) - - Dim _TauntSize As Integer = -1 - ''' Gets the number of lines in a taunt. - '''1-based value - Friend ReadOnly Property TauntSize As Integer - Get - If _TauntSize = -1 AndAlso FileName.Length > 4 Then - ' get the last 4 numeric chars in filename and convert them to a number - Dim TmpString As String = "" - - For i = FileName.Length - 1 To FileName.Length - 4 Step -1 - If IsNumeric(FileName(i)) Then - TmpString = FileName(i) & TmpString - Else - Exit For - End If - Next - - If IsNumeric(TmpString) Then _TauntSize = CInt(TmpString) - End If - - Return _TauntSize - End Get - End Property - - ''' Gets a random taunt start line. - Friend ReadOnly Property RandomTauntLine As Integer - Get - If Avaialable Then - Dim GroupCount = Lines.Count / TauntSize ' 1-based - Dim RndGroup As Integer = My.Application.Session.randomizer.Next(1, GroupCount + 1) - 1 ' 0-based - Dim ScriptLine As Integer = RndGroup * TauntSize - - Return ScriptLine - Else - Return -1 - End If - End Get - End Property - - ''' Returns if a Taunt is useable. - ''' Returns true, if taunt has valid lines and right ammount. - ReadOnly Property Avaialable As Boolean - Get - If Lines.Count > 0 AndAlso Lines.Count > TauntSize Then - Return True - Else - Return False - End If - End Get - End Property - - ''' Creates a new instance and loads the data from given filepath - ''' The file to load. - ''' Object Reference to run filtering on. - ''' Non-Threadsafe - Sub New(ByVal absolutePath As String, ByVal Form1Reference As Form1) - Try - FilePath = absolutePath - - ' Set TauntSize for filtering. - Form1Reference.ssh.StrokeTauntCount = TauntSize - - ' Read lines. - Lines = Txt2List(FilePath) - - ' Filter lines. - Form1Reference.ssh.StrokeFilter = True - Dim linesFiltered As List(Of String) = Form1Reference.FilterList(Lines) - Form1Reference.ssh.StrokeFilter = False - - Catch ex As Exception - Throw - End Try - End Sub - -End Class \ No newline at end of file diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ba59a89..3e53260 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -6657,44 +6657,60 @@ Retry: If My.Settings.Chastity = True Then TauntFile = "ChastityTaunts" If ssh.GlitterTease = True Then TauntFile = "GlitterTaunts" - ' Read all tauntfiles and get available. - Dim TauntFiles As New List(Of TauntProcessingObject) + Dim FileList As List(Of String) = myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", TauntFile & "_*.txt", SearchOption.TopDirectoryOnly).ToList - For Each str As String In myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", tauntFile & "_*.txt", SearchOption.TopDirectoryOnly) - Dim Taunt As New TauntProcessingObject(str, Me) - If Taunt.Avaialable Then TauntFiles.Add(Taunt) - Next + Do While FileList.Count > 0 + Dim FilePath As String = FileList(ssh.randomizer.Next(0, FileList.Count)) + Dim FileName As String = Path.GetFileNameWithoutExtension(FilePath) + ' Determine GroupSize + Dim GroupSize As Integer = 1 ' 1-based - If TauntFiles.Count = 0 Then - ' No Taunt available - ssh.TauntText = "" - ssh.TauntLines = New List(Of String) - ssh.TauntTextCount = 0 - ssh.TempScriptCount = 0 - Else - ' Taunt available - Dim TauntToUse As TauntProcessingObject + If FileName.Length > 4 Then + ' get the last 4 numeric chars in filename and convert them to a number + Dim TmpString As String = "" - ' Increase chance of one line taunt - Dim OneLineChance As Integer = ssh.randomizer.Next(0, 101) + For i = FileName.Length - 1 To FileName.Length - 4 Step -1 + If IsNumeric(FileName(i)) Then + TmpString = FileName(i) & TmpString + Else + Exit For + End If + Next - If OneLineChance < 45 _ - AndAlso TauntFiles.Find(Function(x) x.TauntSize = 1) IsNot Nothing Then - ' 1 line taunts available, force to use it. - Dim OneLiners As List(Of TauntProcessingObject) = TauntFiles.Where(Function(x) x.TauntSize = 1).ToList - TauntToUse = OneLiners(ssh.randomizer.Next(0, OneLiners.Count)) - Else - ' Pick a random taunt size. - TauntToUse = TauntFiles(ssh.randomizer.Next(0, TauntFiles.Count)) + If IsNumeric(TmpString) Then GroupSize = CInt(TmpString) End If - ssh.TauntText = TauntToUse.FilePath - ssh.TauntLines = TauntToUse.Lines - ssh.TauntTextCount = TauntToUse.RandomTauntLine - ssh.TempScriptCount = TauntToUse.TauntSize - 1 + ssh.StrokeTauntCount = GroupSize - End If + Dim lines As List(Of String) = Txt2List(FilePath) + + ssh.StrokeFilter = True + Dim linesFiltered As List(Of String) = FilterList(lines) + ssh.StrokeFilter = False + + + If linesFiltered.Count > 0 AndAlso linesFiltered.Count >= GroupSize Then + + Dim GroupCount = linesFiltered.Count / GroupSize ' 1-based + Dim RndGroup As Integer = ssh.randomizer.Next(1, GroupCount + 1) - 1 ' 0-based + Dim ScriptLine As Integer = RndGroup * GroupSize + + ssh.TauntText = FilePath + ssh.TauntLines = linesFiltered + ssh.TauntTextCount = ScriptLine + ssh.TempScriptCount = GroupSize - 1 + + Exit Do + Else + ssh.TauntText = "" + ssh.TauntLines = New List(Of String) + ssh.TauntTextCount = 0 + ssh.TempScriptCount = 0 + + FileList.Remove(FilePath) + End If + Loop Else ' ##################### Next Taunt line ####################### @@ -6738,4513 +6754,4593 @@ Retry: End Sub - Public Sub CBTScript() - Try - Dim FilePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt" + Try + Dim FilePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt" - If Not Directory.Exists(Path.GetDirectoryName(FilePath)) OrElse Not File.Exists(FilePath) Then - Throw New Exception("TEASE-AI: unable to locate CBT-File: " & FilePath) - Else + If Not Directory.Exists(Path.GetDirectoryName(FilePath)) OrElse Not File.Exists(FilePath) Then + Throw New Exception("TEASE-AI: unable to locate CBT-File: " & FilePath) + Else - Dim lines As List(Of String) = Txt2List(FilePath) - If lines.Count = 0 Then Throw New Exception("TEASE-AI: CBT-file is empty: " & FilePath) + Dim lines As List(Of String) = Txt2List(FilePath) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: CBT-file is empty: " & FilePath) - lines = FilterList(lines) - If lines.Count = 0 Then Throw New Exception("TEASE-AI: No available lines in CBT-file: " & FilePath) + lines = FilterList(lines) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: No available lines in CBT-file: " & FilePath) - Dim CBTCount As Integer + Dim CBTCount As Integer - CBTCount = ssh.randomizer.Next(0, lines.Count) + CBTCount = ssh.randomizer.Next(0, lines.Count) - ssh.DomTask = lines(CBTCount) - ssh.CBT = True - ssh.YesOrNo = True - End If + ssh.DomTask = lines(CBTCount) + ssh.CBT = True + ssh.YesOrNo = True + End If - Catch ex As Exception - ssh.DomTask = ex.Message - Log.WriteError(ex.Message, ex, "CBTScript()") - Finally - TypingDelayGeneric() - End Try - End Sub + Catch ex As Exception + ssh.DomTask = ex.Message + Log.WriteError(ex.Message, ex, "CBTScript()") + Finally + TypingDelayGeneric() + End Try + End Sub #Region "----------------------------------------------------- Video-Files ----------------------------------------------------" - Public Sub RandomVideo() - ' Reset retentive global variables - ssh.NoVideo = False - ssh.DommeVideo = False + Public Sub RandomVideo() + ' Reset retentive global variables + ssh.NoVideo = False + ssh.DommeVideo = False - Dim __dom As Random = New Random() - Dim __domVideo As String - Dim __TotalFiles As New List(Of String) + Dim __dom As Random = New Random() + Dim __domVideo As String + Dim __TotalFiles As New List(Of String) - '====================================================================================== - ' Genre Videos - '====================================================================================== - If My.Settings.CBHardcore = True Then _ + '====================================================================================== + ' Genre Videos + '====================================================================================== + If My.Settings.CBHardcore = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) - If My.Settings.CBSoftcore = True Then _ + If My.Settings.CBSoftcore = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) - If My.Settings.CBLesbian = True Then _ + If My.Settings.CBLesbian = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) - If My.Settings.CBBlowjob = True Then _ + If My.Settings.CBBlowjob = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) - If My.Settings.CBFemdom = True Then _ + If My.Settings.CBFemdom = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) - If My.Settings.CBFemsub = True Then _ + If My.Settings.CBFemsub = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) - If ssh.NoSpecialVideo = True Then GoTo SkipSpecial + If ssh.NoSpecialVideo = True Then GoTo SkipSpecial - If ssh.ScriptVideoTeaseFlag = True Then - If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecial - End If + If ssh.ScriptVideoTeaseFlag = True Then + If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecial + End If - If ssh.RandomizerVideo = True Then GoTo SkipSpecial + If ssh.RandomizerVideo = True Then GoTo SkipSpecial - '====================================================================================== - ' Special - Videos - '====================================================================================== - If My.Settings.CBJOI = True Then _ + '====================================================================================== + ' Special - Videos + '====================================================================================== + If My.Settings.CBJOI = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) - If My.Settings.CBCH = True Then _ + If My.Settings.CBCH = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) SkipSpecial: - '====================================================================================== - ' General Videos - '====================================================================================== - If My.Settings.CBGeneral = True Then _ + '====================================================================================== + ' General Videos + '====================================================================================== + If My.Settings.CBGeneral = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) - '====================================================================================== - ' Domme - Videos - '====================================================================================== - If My.Settings.CBHardcoreD = True Then _ + '====================================================================================== + ' Domme - Videos + '====================================================================================== + If My.Settings.CBHardcoreD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) - If My.Settings.CBSoftcoreD = True Then _ + If My.Settings.CBSoftcoreD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) - If My.Settings.CBLesbianD = True Then _ + If My.Settings.CBLesbianD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) - If My.Settings.CBBlowjobD = True Then _ + If My.Settings.CBBlowjobD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) - If My.Settings.CBFemdomD = True Then _ + If My.Settings.CBFemdomD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) - If My.Settings.CBFemsubD = True Then _ + If My.Settings.CBFemsubD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) - If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD - If ssh.ScriptVideoTeaseFlag = True Then - If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecialD - End If + If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD + If ssh.ScriptVideoTeaseFlag = True Then + If ssh.ScriptVideoTease = "Censorship Sucks" Or ssh.ScriptVideoTease = "Avoid The Edge" Or ssh.ScriptVideoTease = "RLGL" Then GoTo SkipSpecialD + End If - If ssh.RandomizerVideo = True Then GoTo SkipSpecialD + If ssh.RandomizerVideo = True Then GoTo SkipSpecialD - '====================================================================================== - ' Domme - Special - Videos - '====================================================================================== - If My.Settings.CBJOID = True Then _ + '====================================================================================== + ' Domme - Special - Videos + '====================================================================================== + If My.Settings.CBJOID = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) - If My.Settings.CBCHD = True Then _ + If My.Settings.CBCHD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) SkipSpecialD: - '====================================================================================== - ' Domme - General Videos - '====================================================================================== - If My.Settings.CBGeneralD = True Then _ + '====================================================================================== + ' Domme - General Videos + '====================================================================================== + If My.Settings.CBGeneralD = True Then _ __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) - If __TotalFiles.Count = 0 Then Exit Sub + If __TotalFiles.Count = 0 Then Exit Sub - If ssh.VideoCheck = True Then Exit Sub + If ssh.VideoCheck = True Then Exit Sub GetAnotherRandomVideo: - __domVideo = __TotalFiles(__dom.Next(0, __TotalFiles.Count)) + __domVideo = __TotalFiles(__dom.Next(0, __TotalFiles.Count)) - If __domVideo = "" Then GoTo GetAnotherRandomVideo + If __domVideo = "" Then GoTo GetAnotherRandomVideo - '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Debug Line @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ - If Debugger.IsAttached AndAlso 1 = 2 Then _ + '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Debug Line @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ + If Debugger.IsAttached AndAlso 1 = 2 Then _ __TotalFiles.ForEach(Sub(x) Debug.Print("RndVideoCheck: " & x)) - If My.Settings.CBHardcore And InStr(__domVideo, My.Settings.VideoHardcore) <> 0 Then ssh.VideoType = "Hardcore" - If My.Settings.CBSoftcore And InStr(__domVideo, My.Settings.VideoSoftcore) <> 0 Then ssh.VideoType = "Softcore" - If My.Settings.CBLesbian = True And InStr(__domVideo, My.Settings.VideoLesbian) <> 0 Then ssh.VideoType = "Lesbian" - If My.Settings.CBBlowjob = True And InStr(__domVideo, My.Settings.VideoBlowjob) <> 0 Then ssh.VideoType = "Blowjob" - If My.Settings.CBFemdom = True And InStr(__domVideo, My.Settings.VideoFemdom) <> 0 Then ssh.VideoType = "Femdom" - If My.Settings.CBFemsub = True And InStr(__domVideo, My.Settings.VideoFemsub) <> 0 Then ssh.VideoType = "Femsub" - If My.Settings.CBJOI = True And InStr(__domVideo, My.Settings.VideoJOI) <> 0 Then ssh.VideoType = "JOI" - If My.Settings.CBCH = True And InStr(__domVideo, My.Settings.VideoCH) <> 0 Then ssh.VideoType = "CH" - If My.Settings.CBGeneral = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then ssh.VideoType = "General" + If My.Settings.CBHardcore And InStr(__domVideo, My.Settings.VideoHardcore) <> 0 Then ssh.VideoType = "Hardcore" + If My.Settings.CBSoftcore And InStr(__domVideo, My.Settings.VideoSoftcore) <> 0 Then ssh.VideoType = "Softcore" + If My.Settings.CBLesbian = True And InStr(__domVideo, My.Settings.VideoLesbian) <> 0 Then ssh.VideoType = "Lesbian" + If My.Settings.CBBlowjob = True And InStr(__domVideo, My.Settings.VideoBlowjob) <> 0 Then ssh.VideoType = "Blowjob" + If My.Settings.CBFemdom = True And InStr(__domVideo, My.Settings.VideoFemdom) <> 0 Then ssh.VideoType = "Femdom" + If My.Settings.CBFemsub = True And InStr(__domVideo, My.Settings.VideoFemsub) <> 0 Then ssh.VideoType = "Femsub" + If My.Settings.CBJOI = True And InStr(__domVideo, My.Settings.VideoJOI) <> 0 Then ssh.VideoType = "JOI" + If My.Settings.CBCH = True And InStr(__domVideo, My.Settings.VideoCH) <> 0 Then ssh.VideoType = "CH" + If My.Settings.CBGeneral = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then ssh.VideoType = "General" - If My.Settings.CBHardcoreD And InStr(__domVideo, My.Settings.VideoHardcoreD) <> 0 Then - ssh.VideoType = "HardcoreD" - ssh.DommeVideo = True - End If - If My.Settings.CBSoftcoreD And InStr(__domVideo, My.Settings.VideoSoftcoreD) <> 0 Then - ssh.VideoType = "SoftcoreD" - ssh.DommeVideo = True - End If - If My.Settings.CBLesbianD And InStr(__domVideo, My.Settings.VideoLesbianD) <> 0 Then - ssh.VideoType = "LesbianD" - ssh.DommeVideo = True - End If + If My.Settings.CBHardcoreD And InStr(__domVideo, My.Settings.VideoHardcoreD) <> 0 Then + ssh.VideoType = "HardcoreD" + ssh.DommeVideo = True + End If + If My.Settings.CBSoftcoreD And InStr(__domVideo, My.Settings.VideoSoftcoreD) <> 0 Then + ssh.VideoType = "SoftcoreD" + ssh.DommeVideo = True + End If + If My.Settings.CBLesbianD And InStr(__domVideo, My.Settings.VideoLesbianD) <> 0 Then + ssh.VideoType = "LesbianD" + ssh.DommeVideo = True + End If - If My.Settings.CBBlowjobD And InStr(__domVideo, My.Settings.VideoBlowjobD) <> 0 Then - ssh.VideoType = "BlowjobD" - ssh.DommeVideo = True - End If - If My.Settings.CBFemdomD And InStr(__domVideo, My.Settings.VideoFemdomD) <> 0 Then - ssh.VideoType = "FemdomD" - ssh.DommeVideo = True - End If - If My.Settings.CBFemsubD And InStr(__domVideo, My.Settings.VideoFemsubD) <> 0 Then - ssh.VideoType = "FemsubD" - ssh.DommeVideo = True - End If + If My.Settings.CBBlowjobD And InStr(__domVideo, My.Settings.VideoBlowjobD) <> 0 Then + ssh.VideoType = "BlowjobD" + ssh.DommeVideo = True + End If + If My.Settings.CBFemdomD And InStr(__domVideo, My.Settings.VideoFemdomD) <> 0 Then + ssh.VideoType = "FemdomD" + ssh.DommeVideo = True + End If + If My.Settings.CBFemsubD And InStr(__domVideo, My.Settings.VideoFemsubD) <> 0 Then + ssh.VideoType = "FemsubD" + ssh.DommeVideo = True + End If - If My.Settings.CBJOID And InStr(__domVideo, My.Settings.VideoJOID) <> 0 Then - ssh.VideoType = "JOID" - ssh.DommeVideo = True - End If + If My.Settings.CBJOID And InStr(__domVideo, My.Settings.VideoJOID) <> 0 Then + ssh.VideoType = "JOID" + ssh.DommeVideo = True + End If - If My.Settings.CBCHD = True And InStr(__domVideo, My.Settings.VideoCHD) <> 0 Then - ssh.VideoType = "CHD" - ssh.DommeVideo = True - End If + If My.Settings.CBCHD = True And InStr(__domVideo, My.Settings.VideoCHD) <> 0 Then + ssh.VideoType = "CHD" + ssh.DommeVideo = True + End If - If My.Settings.CBGeneralD = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then - ssh.VideoType = "GeneralD" - ssh.DommeVideo = True - End If + If My.Settings.CBGeneralD = True And InStr(__domVideo, My.Settings.VideoGeneral) <> 0 Then + ssh.VideoType = "GeneralD" + ssh.DommeVideo = True + End If - 'Debug.Print("VideoType = " & VideoType) + 'Debug.Print("VideoType = " & VideoType) - ' domVLC.Visible = True - DomWMP.Visible = True - DomWMP.stretchToFit = True + ' domVLC.Visible = True + DomWMP.Visible = True + DomWMP.stretchToFit = True - ' programsettingsPanel.Visible = False - mainPictureBox.Visible = False - ' domVLC.playlist.items.clear() - ' domVLC.playlist.add("file:///" & RandomVideo & "") - ' 'Debug.Print("randomVideo = " & RandomVideo) - ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height - ' domVLC.playlist.play() - 'If FrmSettings.VLCfillRadio.Checked = True Then - ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height - 'End If - 'If FrmSettings.VLC43Radio.Checked = True Then domVLC.video.crop = "4:3" - 'If FrmSettings.VLC1610Radio.Checked = True Then domVLC.video.crop = "16:10" - 'If FrmSettings.VLC169Radio.Checked = True Then domVLC.video.crop = "16:9" + ' programsettingsPanel.Visible = False + mainPictureBox.Visible = False + ' domVLC.playlist.items.clear() + ' domVLC.playlist.add("file:///" & RandomVideo & "") + ' 'Debug.Print("randomVideo = " & RandomVideo) + ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height + ' domVLC.playlist.play() + 'If FrmSettings.VLCfillRadio.Checked = True Then + ' domVLC.video.crop = domVLC.Width & ":" & domVLC.Height + 'End If + 'If FrmSettings.VLC43Radio.Checked = True Then domVLC.video.crop = "4:3" + 'If FrmSettings.VLC1610Radio.Checked = True Then domVLC.video.crop = "16:10" + 'If FrmSettings.VLC169Radio.Checked = True Then domVLC.video.crop = "16:9" - DomWMP.URL = __domVideo + DomWMP.URL = __domVideo - If ssh.JumpVideo = True Then - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + If ssh.JumpVideo = True Then + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - VideoJump2Random(Nothing, Nothing) + VideoJump2Random(Nothing, Nothing) - End If + End If - ssh.JumpVideo = False - End Sub + ssh.JumpVideo = False + End Sub - Friend Sub PlayRandomJOI() - 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. - 'ISSUE: Redundant Code - Dim JOIVideos As New List(Of String) - JOIVideos.Clear() + Friend Sub PlayRandomJOI() + 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. + 'ISSUE: Redundant Code + Dim JOIVideos As New List(Of String) + JOIVideos.Clear() - If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then + If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then - JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, + JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, System.IO.SearchOption.AllDirectories)) - End If + End If - If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then - JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, + If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then + JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, System.IO.SearchOption.AllDirectories)) - End If + End If - If JOIVideos.Count < 1 Then - 'ISSUE: This Message will occur during running Scripts! - MessageBox.Show(Me, "No JOI Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - If ssh.TeaseVideo = True Then RunFileText() - ssh.TeaseVideo = False - Return - End If + If JOIVideos.Count < 1 Then + 'ISSUE: This Message will occur during running Scripts! + MessageBox.Show(Me, "No JOI Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If ssh.TeaseVideo = True Then RunFileText() + ssh.TeaseVideo = False + Return + End If - Dim JOIVideoLine As Integer = ssh.randomizer.Next(0, JOIVideos.Count) + Dim JOIVideoLine As Integer = ssh.randomizer.Next(0, JOIVideos.Count) - DomWMP.Visible = True - DomWMP.stretchToFit = True + DomWMP.Visible = True + DomWMP.stretchToFit = True - mainPictureBox.Visible = False + mainPictureBox.Visible = False - DomWMP.URL = JOIVideos(JOIVideoLine) + DomWMP.URL = JOIVideos(JOIVideoLine) - End Sub + End Sub - Friend Sub PlayRandomCH() - 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. - 'ISSUE: Redundant Code - Dim CHVideos As New List(Of String) - CHVideos.Clear() + Friend Sub PlayRandomCH() + 'ISSUE: there is no control, if a Domme-Video or a Regular JOI is played. + 'ISSUE: Redundant Code + Dim CHVideos As New List(Of String) + CHVideos.Clear() - If FrmSettings.LblVideoCHTotal.Text <> "0" And My.Settings.CBCH = True Then - CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) - End If - If FrmSettings.LblVideoCHTotalD.Text <> "0" And My.Settings.CBCHD = True Then - CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) - End If + If FrmSettings.LblVideoCHTotal.Text <> "0" And My.Settings.CBCH = True Then + CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) + End If + If FrmSettings.LblVideoCHTotalD.Text <> "0" And My.Settings.CBCHD = True Then + CHVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) + End If - If CHVideos.Count < 1 Then - 'ISSUE: This Message will occur during running Scripts! - MessageBox.Show(Me, "No CH Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - If ssh.TeaseVideo = True Then RunFileText() - ssh.TeaseVideo = False - Return - End If + If CHVideos.Count < 1 Then + 'ISSUE: This Message will occur during running Scripts! + MessageBox.Show(Me, "No CH Videos found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If ssh.TeaseVideo = True Then RunFileText() + ssh.TeaseVideo = False + Return + End If - Dim CHVideoLine As Integer = ssh.randomizer.Next(0, CHVideos.Count) + Dim CHVideoLine As Integer = ssh.randomizer.Next(0, CHVideos.Count) - DomWMP.Visible = True - DomWMP.stretchToFit = True + DomWMP.Visible = True + DomWMP.stretchToFit = True - mainPictureBox.Visible = False + mainPictureBox.Visible = False - DomWMP.URL = CHVideos(CHVideoLine) + DomWMP.URL = CHVideos(CHVideoLine) - End Sub + End Sub #End Region - Private Sub SettingsButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleSettings.Click - If FrmSettings.Visible = True Then - FrmSettings.Visible = False - BtnToggleSettings.Text = "Open Settings Menu" - Else - FrmSettings.Visible = True - BtnToggleSettings.Text = "Close Settings Menu" - End If - End Sub + Private Sub SettingsButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleSettings.Click + If FrmSettings.Visible = True Then + FrmSettings.Visible = False + BtnToggleSettings.Text = "Open Settings Menu" + Else + FrmSettings.Visible = True + BtnToggleSettings.Text = "Close Settings Menu" + End If + End Sub - Public Sub CensorshipTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CensorshipTimer.Tick + Public Sub CensorshipTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CensorshipTimer.Tick - If ssh.MiniScript = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.CensorshipTick < 6 Then Return - If chatBox.Text <> "" And ssh.CensorshipTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.CensorshipTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.CensorshipTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.CensorshipTick < 6 Then Return + If chatBox.Text <> "" And ssh.CensorshipTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.CensorshipTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.CensorshipTick < 6 Then Return - ssh.CensorshipTick -= 1 + ssh.CensorshipTick -= 1 - If ssh.CensorshipTick < 1 Then + If ssh.CensorshipTick < 1 Then - Dim CensorLineTemp As Integer = ssh.randomizer.Next(1, 101) + Dim CensorLineTemp As Integer = ssh.randomizer.Next(1, 101) - Dim CensorVideo As String + Dim CensorVideo As String - If FrmSettings.CBCensorConstant.Checked = True Then GoTo CensorConstant + If FrmSettings.CBCensorConstant.Checked = True Then GoTo CensorConstant - If CensorshipBar.Visible = True Then - CensorshipBar.Visible = False - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + If CensorshipBar.Visible = True Then + CensorshipBar.Visible = False + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then - Return - End If + If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then + Return + End If - CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOff.txt" + CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOff.txt" - Else + Else CensorConstant: - Dim CensorshipBarX As Integer - Dim CensorshipBarY As Integer - Dim CensorshipBarY2 As Integer - - Try - CensorshipBarY2 = ssh.randomizer.Next(200, DomWMP.Height / 2) - Catch - CensorshipBarY2 = 100 - End Try - - CensorshipBar.Height = CensorshipBarY2 - CensorshipBar.Width = CensorshipBarY2 * 2.6 + Dim CensorshipBarX As Integer + Dim CensorshipBarY As Integer + Dim CensorshipBarY2 As Integer - 'QnD-BUGFIX: if CensorshipBar.Width > DomWMP.Width then ArgumentOutOfRangeException - CensorshipBarX = ssh.randomizer.Next(5, If(CensorshipBar.Width > DomWMP.Width, DomWMP.Width, DomWMP.Width - CensorshipBar.Width + 1)) - CensorshipBarY = ssh.randomizer.Next(5, If(CensorshipBar.Height > DomWMP.Height, DomWMP.Height, DomWMP.Height - CensorshipBar.Height + 1)) - CensorshipBar.Location = New Point(CensorshipBarX, CensorshipBarY) + Try + CensorshipBarY2 = ssh.randomizer.Next(200, DomWMP.Height / 2) + Catch + CensorshipBarY2 = 100 + End Try + CensorshipBar.Height = CensorshipBarY2 + CensorshipBar.Width = CensorshipBarY2 * 2.6 + 'QnD-BUGFIX: if CensorshipBar.Width > DomWMP.Width then ArgumentOutOfRangeException + CensorshipBarX = ssh.randomizer.Next(5, If(CensorshipBar.Width > DomWMP.Width, DomWMP.Width, DomWMP.Width - CensorshipBar.Width + 1)) + CensorshipBarY = ssh.randomizer.Next(5, If(CensorshipBar.Height > DomWMP.Height, DomWMP.Height, DomWMP.Height - CensorshipBar.Height + 1)) + CensorshipBar.Location = New Point(CensorshipBarX, CensorshipBarY) - CensorshipBar.Visible = False - CensorshipBar.Visible = True - CensorshipBar.BringToFront() - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorShowMin.Value, FrmSettings.NBCensorShowMax.Value + 1) - If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then - Return - End If + CensorshipBar.Visible = False + CensorshipBar.Visible = True + CensorshipBar.BringToFront() - CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOn.txt" + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorShowMin.Value, FrmSettings.NBCensorShowMax.Value + 1) + If CensorLineTemp > FrmSettings.TauntSlider.Value * 5 Then + Return End If - ' Read all lines of the given file. - Dim lines As List(Of String) = Txt2List(CensorVideo) - - Dim CensorLine As Integer - + CensorVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Censorship Sucks\CensorBarOn.txt" + End If + ' Read all lines of the given file. + Dim lines As List(Of String) = Txt2List(CensorVideo) + Dim CensorLine As Integer - Try - lines = FilterList(lines) - If lines.Count < 1 Then Return - CensorLine = ssh.randomizer.Next(0, lines.Count) - ssh.DomTask = lines(CensorLine) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & - CensorVideo, ex, "CensorshipTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line" - End Try - TypingDelayGeneric() - End If - End Sub + Try + lines = FilterList(lines) + If lines.Count < 1 Then Return + CensorLine = ssh.randomizer.Next(0, lines.Count) + ssh.DomTask = lines(CensorLine) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & + CensorVideo, ex, "CensorshipTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line" + End Try - Public Sub RLGLTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTimer.Tick - ' Check all Conditions before starting scripts. - If ssh.MiniScript = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + TypingDelayGeneric() - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.RLGLTick < 6 Then Return - If chatBox.Text <> "" And ssh.RLGLTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.RLGLTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.RLGLTick < 6 Then Return + End If - ' Decrement TickCounter if Game is running. - If ssh.RLGLGame = True Then ssh.RLGLTick -= 1 + End Sub - ' Run scripts only if time is over. - If ssh.RLGLTick < 1 Then - ' Swap the BooleanValue - ssh.RedLight = Not ssh.RedLight - ' Turn off TauntTimer when State is red. - If ssh.RedLight Then RLGLTauntTimer.Stop() - ' Declare list to read - Dim tempList As List(Of String) - Dim file2read As String + Public Sub RLGLTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTimer.Tick + ' Check all Conditions before starting scripts. + If ssh.MiniScript = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ' Read File according to state and set the next timer-tick-duration. - If ssh.RedLight Then - '################################## RED - Light ################################## - file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Red Light.txt" - tempList = Txt2List(file2read) - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBRedLightMin.Value, FrmSettings.NBRedLightMax.Value + 1) - Else - '################################## Green - Light ################################ - file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Green Light.txt" - tempList = Txt2List(file2read) - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - End If + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.RLGLTick < 6 Then Return + If chatBox.Text <> "" And ssh.RLGLTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.RLGLTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.RLGLTick < 6 Then Return + + ' Decrement TickCounter if Game is running. + If ssh.RLGLGame = True Then ssh.RLGLTick -= 1 + + ' Run scripts only if time is over. + If ssh.RLGLTick < 1 Then + ' Swap the BooleanValue + ssh.RedLight = Not ssh.RedLight + ' Turn off TauntTimer when State is red. + If ssh.RedLight Then RLGLTauntTimer.Stop() + + ' Declare list to read + Dim tempList As List(Of String) + Dim file2read As String + + ' Read File according to state and set the next timer-tick-duration. + If ssh.RedLight Then + '################################## RED - Light ################################## + file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Red Light.txt" + tempList = Txt2List(file2read) + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBRedLightMin.Value, FrmSettings.NBRedLightMax.Value + 1) + Else + '################################## Green - Light ################################ + file2read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Green Light.txt" + tempList = Txt2List(file2read) + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + End If - Try - tempList = FilterList(tempList) - ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid RLGL line from file: " & + Try + tempList = FilterList(tempList) + ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid RLGL line from file: " & file2read, ex, "RLGLTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line" - End Try + ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line" + End Try - TypingDelayGeneric() - End If - End Sub + TypingDelayGeneric() + End If + End Sub - Private Sub domName_Leave(sender As System.Object, e As System.EventArgs) Handles domName.Leave - My.Settings.DomName = domName.Text - End Sub - Private Sub subName_Leave(sender As System.Object, e As System.EventArgs) Handles subName.Leave - My.Settings.SubName = subName.Text - End Sub + Private Sub domName_Leave(sender As System.Object, e As System.EventArgs) Handles domName.Leave + My.Settings.DomName = domName.Text + End Sub + Private Sub subName_Leave(sender As System.Object, e As System.EventArgs) Handles subName.Leave + My.Settings.SubName = subName.Text + End Sub - Public Sub StatusUpdatePost() + Public Sub StatusUpdatePost() - ssh.UpdatingPost = True + ssh.UpdatingPost = True - If ssh.UpdateStage > 0 Then GoTo StatusUpdateBegin + If ssh.UpdateStage > 0 Then GoTo StatusUpdateBegin - ssh.StatusText = ssh.UpdateList(ssh.randomizer.Next(0, ssh.UpdateList.Count)) + ssh.StatusText = ssh.UpdateList(ssh.randomizer.Next(0, ssh.UpdateList.Count)) - For i As Integer = 0 To ssh.UpdateList.Count - 1 - Debug.Print(i & ". " & ssh.UpdateList(i)) - Next - Debug.Print("STatusText = " & ssh.StatusText) - Debug.Print("Clear stage 1") + For i As Integer = 0 To ssh.UpdateList.Count - 1 + Debug.Print(i & ". " & ssh.UpdateList(i)) + Next + Debug.Print("STatusText = " & ssh.StatusText) + Debug.Print("Clear stage 1") - ' Read all lines of the given File. - Dim lines As List(Of String) = Txt2List(ssh.StatusText) + ' Read all lines of the given File. + Dim lines As List(Of String) = Txt2List(ssh.StatusText) - For i As Integer = lines.Count - 1 To 0 Step -1 - If lines(i) = "" Or lines(i) Is Nothing Then - lines.Remove(lines(i)) - End If - Next + For i As Integer = lines.Count - 1 To 0 Step -1 + If lines(i) = "" Or lines(i) Is Nothing Then + lines.Remove(lines(i)) + End If + Next - ssh.StatusText = lines(0) - Debug.Print("HEre?") - ' Github Patch StatusText = PoundClean(StatusText) + ssh.StatusText = lines(0) + Debug.Print("HEre?") + ' Github Patch StatusText = PoundClean(StatusText) - Dim LoopBuffer As Integer = 0 - Do - LoopBuffer += 1 + Dim LoopBuffer As Integer = 0 + Do + LoopBuffer += 1 - ssh.StatusText = PoundClean(ssh.StatusText) + ssh.StatusText = PoundClean(ssh.StatusText) - If LoopBuffer > 4 Then Exit Do + If LoopBuffer > 4 Then Exit Do - Loop Until Not ssh.DomTask.Contains("#") + Loop Until Not ssh.DomTask.Contains("#") - Dim AtArray() As String = Split(ssh.StatusText) - For i As Integer = AtArray.Length - 1 To 0 Step -1 - If AtArray(i).Contains("@") Then - AtArray(i) = AtArray(i).Replace(AtArray(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray(i) = "He" Then AtArray(i) = AtArray(i).Replace("He", "She") - If AtArray(i) = "he" Then AtArray(i) = AtArray(i).Replace("he", "she") - If AtArray(i) = "Him" Then AtArray(i) = AtArray(i).Replace("Him", "Her") - If AtArray(i) = "him" Then AtArray(i) = AtArray(i).Replace("him", "her") - If AtArray(i) = "His" Then AtArray(i) = AtArray(i).Replace("His", "Her") - If AtArray(i) = "his" Then AtArray(i) = AtArray(i).Replace("his", "her") - End If - Next - ssh.StatusText = Join(AtArray) + Dim AtArray() As String = Split(ssh.StatusText) + For i As Integer = AtArray.Length - 1 To 0 Step -1 + If AtArray(i).Contains("@") Then + AtArray(i) = AtArray(i).Replace(AtArray(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray(i) = "He" Then AtArray(i) = AtArray(i).Replace("He", "She") + If AtArray(i) = "he" Then AtArray(i) = AtArray(i).Replace("he", "she") + If AtArray(i) = "Him" Then AtArray(i) = AtArray(i).Replace("Him", "Her") + If AtArray(i) = "him" Then AtArray(i) = AtArray(i).Replace("him", "her") + If AtArray(i) = "His" Then AtArray(i) = AtArray(i).Replace("His", "Her") + If AtArray(i) = "his" Then AtArray(i) = AtArray(i).Replace("his", "her") + End If + Next + ssh.StatusText = Join(AtArray) - Dim DPic As String = My.Settings.GlitterAV - DPic = "file://" & DPic - DPic = DPic.Replace("\", "/") - Debug.Print(DPic) + Dim DPic As String = My.Settings.GlitterAV + DPic = "file://" & DPic + DPic = DPic.Replace("\", "/") + Debug.Print(DPic) - Dim StatusName As String + Dim StatusName As String - Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) + Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) - StatusName = StatusUpdates.DocumentText & " " & domName.Text & "
" & Date.Today & "

" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText & "

" + StatusName = StatusUpdates.DocumentText & " " & domName.Text & "
" & Date.Today & "

" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText & "

" - 'Debug.Print(GlitterImageAV) - Debug.Print("Clear Stage 2") + 'Debug.Print(GlitterImageAV) + Debug.Print("Clear Stage 2") - Dim StatusLines1 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines1.Add(lines(i)) - Next - ssh.ContactNumber = 1 + Dim StatusLines1 As New List(Of String) + For i As Integer = 1 To lines.Count - 1 + StatusLines1.Add(lines(i)) + Next + ssh.ContactNumber = 1 - ' For i As Integer = StatusLines1.Count - 1 To 0 Step -1 - 'If StatusLines1(i) = "" Or StatusLines1(i) Is Nothing Then - 'StatusLines1.Remove(StatusLines1(i)) - 'End If - 'Next + ' For i As Integer = StatusLines1.Count - 1 To 0 Step -1 + 'If StatusLines1(i) = "" Or StatusLines1(i) Is Nothing Then + 'StatusLines1.Remove(StatusLines1(i)) + 'End If + 'Next - StatusLines1 = StatusClean(StatusLines1) + StatusLines1 = StatusClean(StatusLines1) - ssh.StatusText1 = StatusLines1(ssh.randomizer.Next(0, StatusLines1.Count)) + ssh.StatusText1 = StatusLines1(ssh.randomizer.Next(0, StatusLines1.Count)) - Dim StatusLines2 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines2.Add(lines(i)) - Next - ssh.ContactNumber = 2 + Dim StatusLines2 As New List(Of String) + For i As Integer = 1 To lines.Count - 1 + StatusLines2.Add(lines(i)) + Next + ssh.ContactNumber = 2 - ' For i As Integer = StatusLines2.Count - 1 To 0 Step -1 - 'If StatusLines2(i) = "" Or StatusLines2(i) Is Nothing Then - 'StatusLines2.Remove(StatusLines2(i)) - 'End If - 'Next + ' For i As Integer = StatusLines2.Count - 1 To 0 Step -1 + 'If StatusLines2(i) = "" Or StatusLines2(i) Is Nothing Then + 'StatusLines2.Remove(StatusLines2(i)) + 'End If + 'Next - StatusLines2 = StatusClean(StatusLines2) + StatusLines2 = StatusClean(StatusLines2) - Do - ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) - Loop Until ssh.StatusText2 <> ssh.StatusText1 + Do + ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) + Loop Until ssh.StatusText2 <> ssh.StatusText1 - Dim StatusLines3 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines3.Add(lines(i)) - Next - ssh.ContactNumber = 3 + Dim StatusLines3 As New List(Of String) + For i As Integer = 1 To lines.Count - 1 + StatusLines3.Add(lines(i)) + Next + ssh.ContactNumber = 3 - 'For i As Integer = StatusLines3.Count - 1 To 0 Step -1 - 'If StatusLines3(i) = "" Or StatusLines3(i) Is Nothing Then - 'StatusLines3.Remove(StatusLines3(i)) - 'End If - 'Next + 'For i As Integer = StatusLines3.Count - 1 To 0 Step -1 + 'If StatusLines3(i) = "" Or StatusLines3(i) Is Nothing Then + 'StatusLines3.Remove(StatusLines3(i)) + 'End If + 'Next - StatusLines3 = StatusClean(StatusLines3) + StatusLines3 = StatusClean(StatusLines3) - Do - ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) - Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 + Do + ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) + Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 - ''Debug.Print("StatusLine = " & StatusLine) + ''Debug.Print("StatusLine = " & StatusLine) - ssh.StatusText1 = ssh.StatusText1.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText2 = ssh.StatusText2.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText3 = ssh.StatusText3.Replace("#ShortName", My.Settings.GlitterSN) + ssh.StatusText1 = ssh.StatusText1.Replace("#ShortName", My.Settings.GlitterSN) + ssh.StatusText2 = ssh.StatusText2.Replace("#ShortName", My.Settings.GlitterSN) + ssh.StatusText3 = ssh.StatusText3.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText1 = ssh.StatusText1.Replace("#SubName", subName.Text) - ssh.StatusText2 = ssh.StatusText2.Replace("#SubName", subName.Text) - ssh.StatusText3 = ssh.StatusText3.Replace("#SubName", subName.Text) + ssh.StatusText1 = ssh.StatusText1.Replace("#SubName", subName.Text) + ssh.StatusText2 = ssh.StatusText2.Replace("#SubName", subName.Text) + ssh.StatusText3 = ssh.StatusText3.Replace("#SubName", subName.Text) - ssh.StatusText1 = PoundClean(ssh.StatusText1) - ssh.StatusText2 = PoundClean(ssh.StatusText2) - ssh.StatusText3 = PoundClean(ssh.StatusText3) + ssh.StatusText1 = PoundClean(ssh.StatusText1) + ssh.StatusText2 = PoundClean(ssh.StatusText2) + ssh.StatusText3 = PoundClean(ssh.StatusText3) - 'GoTo TestSkip + 'GoTo TestSkip - Dim AtArray1() As String = Split(ssh.StatusText1) - For i As Integer = AtArray1.Length - 1 To 0 Step -1 - If AtArray1(i).Contains("@") Then - AtArray1(i) = AtArray1(i).Replace(AtArray1(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray1(i) = "He" Then AtArray1(i) = AtArray1(i).Replace("He", "She") - If AtArray1(i) = "he" Then AtArray1(i) = AtArray1(i).Replace("he", "she") - If AtArray1(i) = "Him" Then AtArray1(i) = AtArray1(i).Replace("Him", "Her") - If AtArray1(i) = "him" Then AtArray1(i) = AtArray1(i).Replace("him", "her") - If AtArray1(i) = "His" Then AtArray1(i) = AtArray1(i).Replace("His", "Her") - If AtArray1(i) = "his" Then AtArray1(i) = AtArray1(i).Replace("his", "her") - End If - Next - ssh.StatusText1 = Join(AtArray1) + Dim AtArray1() As String = Split(ssh.StatusText1) + For i As Integer = AtArray1.Length - 1 To 0 Step -1 + If AtArray1(i).Contains("@") Then + AtArray1(i) = AtArray1(i).Replace(AtArray1(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray1(i) = "He" Then AtArray1(i) = AtArray1(i).Replace("He", "She") + If AtArray1(i) = "he" Then AtArray1(i) = AtArray1(i).Replace("he", "she") + If AtArray1(i) = "Him" Then AtArray1(i) = AtArray1(i).Replace("Him", "Her") + If AtArray1(i) = "him" Then AtArray1(i) = AtArray1(i).Replace("him", "her") + If AtArray1(i) = "His" Then AtArray1(i) = AtArray1(i).Replace("His", "Her") + If AtArray1(i) = "his" Then AtArray1(i) = AtArray1(i).Replace("his", "her") + End If + Next + ssh.StatusText1 = Join(AtArray1) - Dim AtArray2() As String = Split(ssh.StatusText2) - For i As Integer = AtArray2.Length - 1 To 0 Step -1 - If AtArray2(i).Contains("@") Then - AtArray2(i) = AtArray2(i).Replace(AtArray2(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray2(i) = "He" Then AtArray2(i) = AtArray2(i).Replace("He", "She") - If AtArray2(i) = "he" Then AtArray2(i) = AtArray2(i).Replace("he", "she") - If AtArray2(i) = "Him" Then AtArray2(i) = AtArray2(i).Replace("Him", "Her") - If AtArray2(i) = "him" Then AtArray2(i) = AtArray2(i).Replace("him", "her") - If AtArray2(i) = "His" Then AtArray2(i) = AtArray2(i).Replace("His", "Her") - If AtArray2(i) = "his" Then AtArray2(i) = AtArray2(i).Replace("his", "her") - End If - Next - ssh.StatusText2 = Join(AtArray2) + Dim AtArray2() As String = Split(ssh.StatusText2) + For i As Integer = AtArray2.Length - 1 To 0 Step -1 + If AtArray2(i).Contains("@") Then + AtArray2(i) = AtArray2(i).Replace(AtArray2(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray2(i) = "He" Then AtArray2(i) = AtArray2(i).Replace("He", "She") + If AtArray2(i) = "he" Then AtArray2(i) = AtArray2(i).Replace("he", "she") + If AtArray2(i) = "Him" Then AtArray2(i) = AtArray2(i).Replace("Him", "Her") + If AtArray2(i) = "him" Then AtArray2(i) = AtArray2(i).Replace("him", "her") + If AtArray2(i) = "His" Then AtArray2(i) = AtArray2(i).Replace("His", "Her") + If AtArray2(i) = "his" Then AtArray2(i) = AtArray2(i).Replace("his", "her") + End If + Next + ssh.StatusText2 = Join(AtArray2) - Dim AtArray3() As String = Split(ssh.StatusText3) - For i As Integer = AtArray3.Length - 1 To 0 Step -1 - If AtArray3(i).Contains("@") Then - AtArray3(i) = AtArray3(i).Replace(AtArray3(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray3(i) = "He" Then AtArray3(i) = AtArray(i).Replace("He", "She") - If AtArray3(i) = "he" Then AtArray3(i) = AtArray(i).Replace("he", "she") - If AtArray3(i) = "Him" Then AtArray3(i) = AtArray(i).Replace("Him", "Her") - If AtArray3(i) = "him" Then AtArray3(i) = AtArray(i).Replace("him", "her") - If AtArray3(i) = "His" Then AtArray3(i) = AtArray(i).Replace("His", "Her") - If AtArray3(i) = "his" Then AtArray3(i) = AtArray(i).Replace("his", "her") - End If - Next - ssh.StatusText3 = Join(AtArray3) + Dim AtArray3() As String = Split(ssh.StatusText3) + For i As Integer = AtArray3.Length - 1 To 0 Step -1 + If AtArray3(i).Contains("@") Then + AtArray3(i) = AtArray3(i).Replace(AtArray3(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If AtArray3(i) = "He" Then AtArray3(i) = AtArray(i).Replace("He", "She") + If AtArray3(i) = "he" Then AtArray3(i) = AtArray(i).Replace("he", "she") + If AtArray3(i) = "Him" Then AtArray3(i) = AtArray(i).Replace("Him", "Her") + If AtArray3(i) = "him" Then AtArray3(i) = AtArray(i).Replace("him", "her") + If AtArray3(i) = "His" Then AtArray3(i) = AtArray(i).Replace("His", "Her") + If AtArray3(i) = "his" Then AtArray3(i) = AtArray(i).Replace("his", "her") + End If + Next + ssh.StatusText3 = Join(AtArray3) - 'TestSkip: + 'TestSkip: - ssh.Update1 = False - ssh.Update2 = False - ssh.Update3 = False + ssh.Update1 = False + ssh.Update2 = False + ssh.Update3 = False - ssh.StatusChance1 = ssh.randomizer.Next(1, 101) - ssh.StatusChance2 = ssh.randomizer.Next(1, 101) - ssh.StatusChance3 = ssh.randomizer.Next(1, 101) + ssh.StatusChance1 = ssh.randomizer.Next(1, 101) + ssh.StatusChance2 = ssh.randomizer.Next(1, 101) + ssh.StatusChance3 = ssh.randomizer.Next(1, 101) - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - ssh.UpdateStage = 1 - Return + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + ssh.UpdateStage = 1 + Return StatusUpdateBegin: - If ssh.Update1 = True And ssh.Update2 = True And ssh.Update3 = True Then GoTo StatusUpdateEnd + If ssh.Update1 = True And ssh.Update2 = True And ssh.Update3 = True Then GoTo StatusUpdateEnd - 'ContactTick = randomizer.Next(10, 21) - 'ContactFlag = True - 'ContactTimer.Start() + 'ContactTick = randomizer.Next(10, 21) + 'ContactFlag = True + 'ContactTimer.Start() - 'Do - 'Application.DoEvents() - 'Loop Until ContactFlag = False + 'Do + 'Application.DoEvents() + 'Loop Until ContactFlag = False - 'Delay(RandomDelay) + 'Delay(RandomDelay) ReRoll: - ssh.TempVal = ssh.randomizer.Next(1, 4) - 'Debug.Print("TempVal = " & TempVal) + ssh.TempVal = ssh.randomizer.Next(1, 4) + 'Debug.Print("TempVal = " & TempVal) - If ssh.TempVal = 1 Then - If ssh.Update1 = False Then - GoTo StatusUpdate1 - Else - GoTo ReRoll - End If + If ssh.TempVal = 1 Then + If ssh.Update1 = False Then + GoTo StatusUpdate1 + Else + GoTo ReRoll End If + End If - If ssh.TempVal = 2 Then - If ssh.Update2 = False Then - GoTo StatusUpdate2 - Else - GoTo ReRoll - End If + If ssh.TempVal = 2 Then + If ssh.Update2 = False Then + GoTo StatusUpdate2 + Else + GoTo ReRoll End If + End If - If ssh.TempVal = 3 Then - If ssh.Update3 = False Then - GoTo StatusUpdate3 - Else - GoTo ReRoll - End If + If ssh.TempVal = 3 Then + If ssh.Update3 = False Then + GoTo StatusUpdate3 + Else + GoTo ReRoll End If + End If - GoTo ReRoll + GoTo ReRoll StatusUpdate1: - Dim S1Pic As String = My.Settings.GlitterAV1 - S1Pic = "file://" & S1Pic - S1Pic = S1Pic.Replace("\", "/") - Debug.Print(S1Pic) + Dim S1Pic As String = My.Settings.GlitterAV1 + S1Pic = "file://" & S1Pic + S1Pic = S1Pic.Replace("\", "/") + Debug.Print(S1Pic) - TextColor = Color2Html(My.Settings.ChatTextColor) + TextColor = Color2Html(My.Settings.ChatTextColor) - If ssh.StatusChance1 < My.Settings.Glitter1Slider * 10 And My.Settings.CBGlitter1 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter1 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText1 & "

" + If ssh.StatusChance1 < My.Settings.Glitter1Slider * 10 And My.Settings.CBGlitter1 = True Then + StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter1 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText1 & "

" - End If + End If - ssh.Update1 = True + ssh.Update1 = True - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return - 'GoTo StatusUpdateBegin + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + Return + 'GoTo StatusUpdateBegin StatusUpdate2: - Dim S2Pic As String = My.Settings.GlitterAV2 - S2Pic = "file://" & S2Pic - S2Pic = S2Pic.Replace("\", "/") - Debug.Print(S2Pic) + Dim S2Pic As String = My.Settings.GlitterAV2 + S2Pic = "file://" & S2Pic + S2Pic = S2Pic.Replace("\", "/") + Debug.Print(S2Pic) - TextColor = Color2Html(My.Settings.ChatTextColor) + TextColor = Color2Html(My.Settings.ChatTextColor) - If ssh.StatusChance2 < My.Settings.Glitter2Slider * 10 And My.Settings.CBGlitter2 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter2 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText2 & "

" + If ssh.StatusChance2 < My.Settings.Glitter2Slider * 10 And My.Settings.CBGlitter2 = True Then + StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter2 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText2 & "

" - End If + End If - ssh.Update2 = True - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return + ssh.Update2 = True + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + Return - 'GoTo StatusUpdateBegin + 'GoTo StatusUpdateBegin StatusUpdate3: - Dim S3Pic As String = My.Settings.GlitterAV3 - S3Pic = "file://" & S3Pic - S3Pic = S3Pic.Replace("\", "/") - Debug.Print(S3Pic) + Dim S3Pic As String = My.Settings.GlitterAV3 + S3Pic = "file://" & S3Pic + S3Pic = S3Pic.Replace("\", "/") + Debug.Print(S3Pic) - TextColor = Color2Html(My.Settings.ChatTextColor) + TextColor = Color2Html(My.Settings.ChatTextColor) - If ssh.StatusChance3 < My.Settings.Glitter3Slider * 10 And My.Settings.CBGlitter3 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter3 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText3 & "

" + If ssh.StatusChance3 < My.Settings.Glitter3Slider * 10 And My.Settings.CBGlitter3 = True Then + StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter3 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" + StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText3 & "

" - End If + End If - ssh.Update3 = True + ssh.Update3 = True - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return - 'GoTo StatusUpdateBegin + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + Return + 'GoTo StatusUpdateBegin StatusUpdateEnd: - ssh.UpdateStage = 0 + ssh.UpdateStage = 0 - ' Github Patch 'StatusText = "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine + ' Github Patch 'StatusText = "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine - ssh.UpdatingPost = False + ssh.UpdatingPost = False - End Sub + End Sub - Public Function StatusClean(ByVal ListClean As List(Of String)) As List(Of String) + Public Function StatusClean(ByVal ListClean As List(Of String)) As List(Of String) - ListClean.Add("### BUFFER LINE ###") - Debug.Print("ListClean.Count = " & ListClean.Count) - - If ssh.ContactNumber = 1 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Bratty") Then - ListClean(i) = ListClean(i).Replace("@Bratty ", "") - End If - If ListClean(i).Contains("@Contact2") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact3") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If - - If ssh.ContactNumber = 2 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Caring") Then - ListClean(i) = ListClean(i).Replace("@Caring ", "") - End If - If ListClean(i).Contains("@Contact1") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact3") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If - - If ssh.ContactNumber = 3 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Cruel") Then - ListClean(i) = ListClean(i).Replace("@Cruel ", "") - End If - If ListClean(i).Contains("@Contact1") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact2") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If + ListClean.Add("### BUFFER LINE ###") + Debug.Print("ListClean.Count = " & ListClean.Count) + If ssh.ContactNumber = 1 Then For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Angry") Then - ListClean.Remove(ListClean(i)) + If ListClean(i).Contains("@Bratty") Then + ListClean(i) = ListClean(i).Replace("@Bratty ", "") End If - If ListClean(i).Contains("@Custom1") Then + If ListClean(i).Contains("@Contact2") Then ListClean.Remove(ListClean(i)) End If - If ListClean(i).Contains("@Custom2") Then + If ListClean(i).Contains("@Contact3") Then ListClean.Remove(ListClean(i)) End If Next + End If + If ssh.ContactNumber = 2 Then + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("@Caring") Then + ListClean(i) = ListClean(i).Replace("@Caring ", "") + End If + If ListClean(i).Contains("@Contact1") Then + ListClean.Remove(ListClean(i)) + End If + If ListClean(i).Contains("@Contact3") Then + ListClean.Remove(ListClean(i)) + End If + Next + End If + If ssh.ContactNumber = 3 Then + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("@Cruel") Then + ListClean(i) = ListClean(i).Replace("@Cruel ", "") + End If + If ListClean(i).Contains("@Contact1") Then + ListClean.Remove(ListClean(i)) + End If + If ListClean(i).Contains("@Contact2") Then + ListClean.Remove(ListClean(i)) + End If + Next + End If - Try - ListClean.Remove(ListClean(ListClean.Count - 1)) - Catch - If ssh.ContactNumber = 1 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 1" - If ssh.ContactNumber = 2 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 2" - If ssh.ContactNumber = 3 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 3" - End Try - - Return ListClean - - End Function - - Private Sub Delay(ByVal Milliseconds As Integer) - Dim Count As Integer - Milliseconds *= 1000 - Do Until Count >= Milliseconds - Count += 1 - Thread.Sleep(1) - Debug.Print(Count) - Application.DoEvents() - Loop - End Sub - - Private Sub domAvatar_Click(sender As System.Object, e As System.EventArgs) Handles domAvatar.Click - If OpenFileDialog1.ShowDialog() = DialogResult.OK Then - - Try - domAvatar.Image.Dispose() - Catch - End Try - domAvatar.Image = Nothing - GC.Collect() + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("@Angry") Then + ListClean.Remove(ListClean(i)) + End If + If ListClean(i).Contains("@Custom1") Then + ListClean.Remove(ListClean(i)) + End If + If ListClean(i).Contains("@Custom2") Then + ListClean.Remove(ListClean(i)) + End If + Next - domAvatar.Image = Image.FromFile(OpenFileDialog1.FileName) - My.Settings.DomAvatarSave = OpenFileDialog1.FileName - End If - End Sub - Private Sub UpdatesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdatesTimer.Tick + Try + ListClean.Remove(ListClean(ListClean.Count - 1)) + Catch + If ssh.ContactNumber = 1 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 1" + If ssh.ContactNumber = 2 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 2" + If ssh.ContactNumber = 3 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 3" + End Try - 'Debug.Print("updates tick = " & UpdatesTick) + Return ListClean - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + End Function - If My.Settings.CBGlitterFeed = True And ssh.UpdatingPost = False Then + Private Sub Delay(ByVal Milliseconds As Integer) + Dim Count As Integer + Milliseconds *= 1000 + Do Until Count >= Milliseconds + Count += 1 + Thread.Sleep(1) + Debug.Print(Count) + Application.DoEvents() + Loop + End Sub - ssh.UpdatesTick -= 1 + Private Sub domAvatar_Click(sender As System.Object, e As System.EventArgs) Handles domAvatar.Click + If OpenFileDialog1.ShowDialog() = DialogResult.OK Then - If ssh.UpdatesTick < 1 Then + Try + domAvatar.Image.Dispose() + Catch + End Try + domAvatar.Image = Nothing + GC.Collect() - ssh.UpdatesTick = 1080 / My.Settings.GlitterDSlider - ssh.UpdateList.Clear() + domAvatar.Image = Image.FromFile(OpenFileDialog1.FileName) + My.Settings.DomAvatarSave = OpenFileDialog1.FileName + End If + End Sub - If My.Settings.CBTease = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Tease\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + Private Sub UpdatesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdatesTimer.Tick - If My.Settings.CBEgotist = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Egotist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + 'Debug.Print("updates tick = " & UpdatesTick) - If My.Settings.CBTrivia = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Trivia\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If My.Settings.CBDaily = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Daily\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If My.Settings.CBGlitterFeed = True And ssh.UpdatingPost = False Then - If My.Settings.CBCustom1 = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 1\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + ssh.UpdatesTick -= 1 - If My.Settings.CBCustom2 = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 2\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If + If ssh.UpdatesTick < 1 Then - If ssh.UpdateList.Count < 1 Then - My.Settings.CBGlitterFeed = False - 'MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected." & Environment.NewLine _ - & Environment.NewLine & "Glitter feed has been automatically disabled.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + ssh.UpdatesTick = 1080 / My.Settings.GlitterDSlider + ssh.UpdateList.Clear() + If My.Settings.CBTease = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Tease\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If - StatusUpdatePost() + If My.Settings.CBEgotist = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Egotist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If + If My.Settings.CBTrivia = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Trivia\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If + If My.Settings.CBDaily = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Daily\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If + If My.Settings.CBCustom1 = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 1\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next End If - End If - End Sub + If My.Settings.CBCustom2 = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 2\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.UpdateList.Add(foundFile) + Next + End If + If ssh.UpdateList.Count < 1 Then + My.Settings.CBGlitterFeed = False + 'MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected." & Environment.NewLine _ + & Environment.NewLine & "Glitter feed has been automatically disabled.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If - 'TODO-Next: Move to proper Region - Private Sub MediaButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleMediaPanel.Click + StatusUpdatePost() - If SplitContainer1.Panel2.Height < 68 Then Return - If PNLMediaBar.Visible = True Then - PNLMediaBar.Visible = False - BtnToggleMediaPanel.Text = "Show Media Panel" - Else - PNLMediaBar.Visible = True - BtnToggleMediaPanel.Text = "Hide Media Panel" End If - ScrollChatDown() + End If + End Sub - End Sub - Public Function SysKeywordClean(ByVal StringClean As String) As String - If StringClean.Contains("@RandomText(") Then + 'TODO-Next: Move to proper Region + Private Sub MediaButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleMediaPanel.Click + If SplitContainer1.Panel2.Height < 68 Then Return - Dim RandArray As String() = StringClean.Split(")") + If PNLMediaBar.Visible = True Then + PNLMediaBar.Visible = False + BtnToggleMediaPanel.Text = "Show Media Panel" + Else - For i As Integer = 0 To RandArray.Count - 1 + PNLMediaBar.Visible = True + BtnToggleMediaPanel.Text = "Hide Media Panel" + End If - If RandArray(i).Contains("@RandomText(") Then + ScrollChatDown() - RandArray(i) = RandArray(i) & ")" + End Sub - Dim TempText As String = GetParentheses(RandArray(i), "@RandomText(") - Dim OriginalRand As String = TempText + Public Function SysKeywordClean(ByVal StringClean As String) As String - If TempText.Contains(",") Then - TempText = FixCommas(TempText) - Dim TextArray As String() = TempText.Split(",") - TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) - End If + If StringClean.Contains("@RandomText(") Then - StringClean = StringClean.Replace("@RandomText(" & OriginalRand & ")", TempText) - End If - Next + Dim RandArray As String() = StringClean.Split(")") - End If + For i As Integer = 0 To RandArray.Count - 1 - If StringClean.Contains("@RT(") Then - Dim RandArray As String() = StringClean.Split(")") - For i As Integer = 0 To RandArray.Count - 1 - If RandArray(i).Contains("@RT(") Then - RandArray(i) = RandArray(i) & ")" - Dim TempText As String = GetParentheses(RandArray(i), "@RT(") - Dim OriginalRand As String = TempText - If TempText.Contains(",") Then - TempText = FixCommas(TempText) - Dim TextArray As String() = TempText.Split(",") - TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) - End If - StringClean = StringClean.Replace("@RT(" & OriginalRand & ")", TempText) - End If - Next - End If + If RandArray(i).Contains("@RandomText(") Then + RandArray(i) = RandArray(i) & ")" + Dim TempText As String = GetParentheses(RandArray(i), "@RandomText(") + Dim OriginalRand As String = TempText - If FrmSettings.CBCockToClit.Checked = True Then - StringClean = StringClean.Replace("#Cock", "#CockToClit") - StringClean = StringClean.Replace("stroking", "#StrokingToRubbing") - End If + If TempText.Contains(",") Then + TempText = FixCommas(TempText) + Dim TextArray As String() = TempText.Split(",") + TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) + End If - If FrmSettings.CBBallsToPussy.Checked = True Then - StringClean = StringClean.Replace("those #Balls", "that #Balls") - StringClean = StringClean.Replace("#Balls", "#BallsToPussy") - End If + StringClean = StringClean.Replace("@RandomText(" & OriginalRand & ")", TempText) - StringClean = StringClean.Replace("#SubName", subName.Text) + End If - StringClean = StringClean.Replace("#DomName", domName.Text) + Next - StringClean = StringClean.Replace("#DomHonorific", FrmSettings.TBHonorific.Text) + End If - StringClean = StringClean.Replace("#DomAge", FrmSettings.domageNumBox.Value) + If StringClean.Contains("@RT(") Then + Dim RandArray As String() = StringClean.Split(")") + For i As Integer = 0 To RandArray.Count - 1 + If RandArray(i).Contains("@RT(") Then + RandArray(i) = RandArray(i) & ")" + Dim TempText As String = GetParentheses(RandArray(i), "@RT(") + Dim OriginalRand As String = TempText + If TempText.Contains(",") Then + TempText = FixCommas(TempText) + Dim TextArray As String() = TempText.Split(",") + TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) + End If + StringClean = StringClean.Replace("@RT(" & OriginalRand & ")", TempText) + End If + Next + End If - StringClean = StringClean.Replace("#DomLevel", FrmSettings.domlevelNumBox.Value) - StringClean = StringClean.Replace("#DomApathy", FrmSettings.NBEmpathy.Value) - StringClean = StringClean.Replace("#DomHair", FrmSettings.TBDomHairColor.Text) + If FrmSettings.CBCockToClit.Checked = True Then + StringClean = StringClean.Replace("#Cock", "#CockToClit") + StringClean = StringClean.Replace("stroking", "#StrokingToRubbing") + End If - StringClean = StringClean.Replace("#DomHairLength", FrmSettings.domhairlengthComboBox.Text) + If FrmSettings.CBBallsToPussy.Checked = True Then + StringClean = StringClean.Replace("those #Balls", "that #Balls") + StringClean = StringClean.Replace("#Balls", "#BallsToPussy") + End If - StringClean = StringClean.Replace("#DomEyes", FrmSettings.TBDomEyeColor.Text) + StringClean = StringClean.Replace("#SubName", subName.Text) - StringClean = StringClean.Replace("#DomCup", FrmSettings.boobComboBox.Text) + StringClean = StringClean.Replace("#DomName", domName.Text) - StringClean = StringClean.Replace("#DomMoodMin", FrmSettings.NBDomMoodMin.Value) + StringClean = StringClean.Replace("#DomHonorific", FrmSettings.TBHonorific.Text) - StringClean = StringClean.Replace("#DomMoodMax", FrmSettings.NBDomMoodMax.Value) + StringClean = StringClean.Replace("#DomAge", FrmSettings.domageNumBox.Value) - StringClean = StringClean.Replace("#DomMood", ssh.DommeMood) + StringClean = StringClean.Replace("#DomLevel", FrmSettings.domlevelNumBox.Value) - StringClean = StringClean.Replace("#DomAvgCockMin", FrmSettings.NBAvgCockMin.Value) + StringClean = StringClean.Replace("#DomApathy", FrmSettings.NBEmpathy.Value) - StringClean = StringClean.Replace("#DomAvgCockMax", FrmSettings.NBAvgCockMax.Value) + StringClean = StringClean.Replace("#DomHair", FrmSettings.TBDomHairColor.Text) - StringClean = StringClean.Replace("#DomSmallCockMax", FrmSettings.NBAvgCockMin.Value - 1) + StringClean = StringClean.Replace("#DomHairLength", FrmSettings.domhairlengthComboBox.Text) - StringClean = StringClean.Replace("#DomLargeCockMin", FrmSettings.NBAvgCockMax.Value + 1) + StringClean = StringClean.Replace("#DomEyes", FrmSettings.TBDomEyeColor.Text) - StringClean = StringClean.Replace("#DomSelfAgeMin", FrmSettings.NBSelfAgeMin.Value) + StringClean = StringClean.Replace("#DomCup", FrmSettings.boobComboBox.Text) - StringClean = StringClean.Replace("#DomSelfAgeMax", FrmSettings.NBSelfAgeMax.Value) + StringClean = StringClean.Replace("#DomMoodMin", FrmSettings.NBDomMoodMin.Value) - StringClean = StringClean.Replace("#DomSubAgeMin", FrmSettings.NBSubAgeMin.Value) + StringClean = StringClean.Replace("#DomMoodMax", FrmSettings.NBDomMoodMax.Value) - StringClean = StringClean.Replace("#DomSubAgeMax", FrmSettings.NBSubAgeMax.Value) + StringClean = StringClean.Replace("#DomMood", ssh.DommeMood) - StringClean = StringClean.Replace("#DomOrgasmRate", LCase(FrmSettings.alloworgasmComboBox.Text).Replace("allows", "allow")) + StringClean = StringClean.Replace("#DomAvgCockMin", FrmSettings.NBAvgCockMin.Value) - StringClean = StringClean.Replace("#DomRuinRate", LCase(FrmSettings.ruinorgasmComboBox.Text).Replace("ruins", "ruin")) + StringClean = StringClean.Replace("#DomAvgCockMax", FrmSettings.NBAvgCockMax.Value) - StringClean = StringClean.Replace("#SubAge", FrmSettings.subAgeNumBox.Value) + StringClean = StringClean.Replace("#DomSmallCockMax", FrmSettings.NBAvgCockMin.Value - 1) - StringClean = StringClean.Replace("#SubBirthdayMonth", FrmSettings.NBBirthdayMonth.Value) + StringClean = StringClean.Replace("#DomLargeCockMin", FrmSettings.NBAvgCockMax.Value + 1) - StringClean = StringClean.Replace("#SubBirthdayDay", FrmSettings.NBBirthdayDay.Value) + StringClean = StringClean.Replace("#DomSelfAgeMin", FrmSettings.NBSelfAgeMin.Value) - StringClean = StringClean.Replace("#DomBirthdayMonth", FrmSettings.NBDomBirthdayMonth.Value) + StringClean = StringClean.Replace("#DomSelfAgeMax", FrmSettings.NBSelfAgeMax.Value) - StringClean = StringClean.Replace("#DomBirthdayDay", FrmSettings.NBDomBirthdayDay.Value) + StringClean = StringClean.Replace("#DomSubAgeMin", FrmSettings.NBSubAgeMin.Value) - StringClean = StringClean.Replace("#SubHair", FrmSettings.TBSubHairColor.Text) + StringClean = StringClean.Replace("#DomSubAgeMax", FrmSettings.NBSubAgeMax.Value) - StringClean = StringClean.Replace("#SubEyes", FrmSettings.TBSubEyeColor.Text) + StringClean = StringClean.Replace("#DomOrgasmRate", LCase(FrmSettings.alloworgasmComboBox.Text).Replace("allows", "allow")) - StringClean = StringClean.Replace("#SubCockSize", FrmSettings.CockSizeNumBox.Value) + StringClean = StringClean.Replace("#DomRuinRate", LCase(FrmSettings.ruinorgasmComboBox.Text).Replace("ruins", "ruin")) - StringClean = StringClean.Replace("#SubWritingTaskMin", FrmSettings.NBWritingTaskMin.Value) + StringClean = StringClean.Replace("#SubAge", FrmSettings.subAgeNumBox.Value) - StringClean = StringClean.Replace("#SubWritingTaskMax", FrmSettings.NBWritingTaskMax.Value) + StringClean = StringClean.Replace("#SubBirthdayMonth", FrmSettings.NBBirthdayMonth.Value) - ' StringClean = StringClean.Replace("#SubWritingTaskRAND", randomizer.Next(NBWritingTaskMin.Value / 10, (NBWritingTaskMax.Value / 10) + 1)) * 10 + StringClean = StringClean.Replace("#SubBirthdayDay", FrmSettings.NBBirthdayDay.Value) - StringClean = StringClean.Replace("#ShortName", My.Settings.GlitterSN) + StringClean = StringClean.Replace("#DomBirthdayMonth", FrmSettings.NBDomBirthdayMonth.Value) - StringClean = StringClean.Replace("#GlitterContact1", My.Settings.Glitter1) - StringClean = StringClean.Replace("#Contact1", My.Settings.Glitter1) - StringClean = StringClean.Replace("#GlitterContact2", My.Settings.Glitter2) - StringClean = StringClean.Replace("#Contact2", My.Settings.Glitter2) - StringClean = StringClean.Replace("#GlitterContact3", My.Settings.Glitter3) - StringClean = StringClean.Replace("#Contact3", My.Settings.Glitter3) + StringClean = StringClean.Replace("#DomBirthdayDay", FrmSettings.NBDomBirthdayDay.Value) - StringClean = StringClean.Replace("#CBTCockCount", ssh.CBTCockCount) - StringClean = StringClean.Replace("#CBTBallsCount", ssh.CBTBallsCount) + StringClean = StringClean.Replace("#SubHair", FrmSettings.TBSubHairColor.Text) - If My.Settings.OrgasmsLocked = True Then - StringClean = StringClean.Replace("#OrgasmLockDate", My.Settings.OrgasmLockDate.Date.ToString()) - Else - StringClean = StringClean.Replace("#OrgasmLockDate", "later") - End If + StringClean = StringClean.Replace("#SubEyes", FrmSettings.TBSubEyeColor.Text) - If StringClean.Contains("#RandomRound100(") Then + StringClean = StringClean.Replace("#SubCockSize", FrmSettings.CockSizeNumBox.Value) - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound100(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") + StringClean = StringClean.Replace("#SubWritingTaskMin", FrmSettings.NBWritingTaskMin.Value) - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - If RandInt >= 100 Then RandInt = 100 * Math.Round(RandInt / 100) - StringClean = StringClean.Replace("#RandomRound100(" & OriginalFlag & ")", RandInt) + StringClean = StringClean.Replace("#SubWritingTaskMax", FrmSettings.NBWritingTaskMax.Value) - End If + ' StringClean = StringClean.Replace("#SubWritingTaskRAND", randomizer.Next(NBWritingTaskMin.Value / 10, (NBWritingTaskMax.Value / 10) + 1)) * 10 - If StringClean.Contains("#RandomRound10(") Then + StringClean = StringClean.Replace("#ShortName", My.Settings.GlitterSN) + StringClean = StringClean.Replace("#GlitterContact1", My.Settings.Glitter1) + StringClean = StringClean.Replace("#Contact1", My.Settings.Glitter1) + StringClean = StringClean.Replace("#GlitterContact2", My.Settings.Glitter2) + StringClean = StringClean.Replace("#Contact2", My.Settings.Glitter2) + StringClean = StringClean.Replace("#GlitterContact3", My.Settings.Glitter3) + StringClean = StringClean.Replace("#Contact3", My.Settings.Glitter3) - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound10(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") + StringClean = StringClean.Replace("#CBTCockCount", ssh.CBTCockCount) + StringClean = StringClean.Replace("#CBTBallsCount", ssh.CBTBallsCount) - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - If RandInt >= 10 Then RandInt = 10 * Math.Round(RandInt / 10) - StringClean = StringClean.Replace("#RandomRound10(" & OriginalFlag & ")", RandInt) + If My.Settings.OrgasmsLocked = True Then + StringClean = StringClean.Replace("#OrgasmLockDate", My.Settings.OrgasmLockDate.Date.ToString()) + Else + StringClean = StringClean.Replace("#OrgasmLockDate", "later") + End If - End If + If StringClean.Contains("#RandomRound100(") Then + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound100(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") - If StringClean.Contains("#RandomRound5(") Then + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + If RandInt >= 100 Then RandInt = 100 * Math.Round(RandInt / 100) + StringClean = StringClean.Replace("#RandomRound100(" & OriginalFlag & ")", RandInt) + End If - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound5(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") + If StringClean.Contains("#RandomRound10(") Then - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - If RandInt >= 5 Then RandInt = 5 * Math.Round(RandInt / 5) - StringClean = StringClean.Replace("#RandomRound5(" & OriginalFlag & ")", RandInt) - End If + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound10(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + If RandInt >= 10 Then RandInt = 10 * Math.Round(RandInt / 10) + StringClean = StringClean.Replace("#RandomRound10(" & OriginalFlag & ")", RandInt) - If StringClean.Contains("#Random(") Then + End If - Dim RandomFlag As String = GetParentheses(StringClean, "#Random(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - StringClean = StringClean.Replace("#Random(" & OriginalFlag & ")", RandInt) + If StringClean.Contains("#RandomRound5(") Then - End If - If StringClean.Contains("#DateDifference(") Then + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound5(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") - Dim DateFlag As String = GetParentheses(StringClean, "#DateDifference(") - Dim OriginalFlag As String = DateFlag - DateFlag = FixCommas(DateFlag) - Dim DateArray() As String = DateFlag.Split(",") + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + If RandInt >= 5 Then RandInt = 5 * Math.Round(RandInt / 5) + StringClean = StringClean.Replace("#RandomRound5(" & OriginalFlag & ")", RandInt) - Dim DDiff As Integer + End If - If UCase(DateArray(1)).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) * 7 - If UCase(DateArray(1)).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateArray(0)), Now) - StringClean = StringClean.Replace("#DateDifference(" & OriginalFlag & ")", DDiff) + If StringClean.Contains("#Random(") Then - End If + Dim RandomFlag As String = GetParentheses(StringClean, "#Random(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + StringClean = StringClean.Replace("#Random(" & OriginalFlag & ")", RandInt) + End If - Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) + If StringClean.Contains("#DateDifference(") Then - If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox3.Text - If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox4.Text - If PetNameVal = 3 Then ssh.PetName = FrmSettings.petnameBox5.Text - If PetNameVal = 4 Then ssh.PetName = FrmSettings.petnameBox6.Text + Dim DateFlag As String = GetParentheses(StringClean, "#DateDifference(") + Dim OriginalFlag As String = DateFlag + DateFlag = FixCommas(DateFlag) + Dim DateArray() As String = DateFlag.Split(",") - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - PetNameVal = ssh.randomizer.Next(1, 3) - If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox7.Text - If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox8.Text - End If + Dim DDiff As Integer + If UCase(DateArray(1)).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) * 7 + If UCase(DateArray(1)).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateArray(0)), Now) - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - PetNameVal = ssh.randomizer.Next(1, 3) - If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox1.Text - If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox2.Text - End If + StringClean = StringClean.Replace("#DateDifference(" & OriginalFlag & ")", DDiff) + End If - StringClean = StringClean.Replace("#PetName", ssh.PetName) - ' If Hour(Date.Now) < 11 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "this morning") - If Hour(Date.Now) > 3 And Hour(Date.Now) < 12 Then StringClean = StringClean.Replace("#GreetSub", "#GoodMorningSub") - 'If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "today") - If Hour(Date.Now) > 11 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GreetSub", "#GoodAfternoonSub") - 'If Hour(Date.Now) > 17 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "tonight") - If Hour(Date.Now) > 17 Or Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GreetSub", "#GoodEveningSub") + Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) - If Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") - If Hour(Date.Now) > 3 And Hour(Date.Now) < 11 Then StringClean = StringClean.Replace("#GeneralTime", "this morning") - If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GeneralTime", "today") - If Hour(Date.Now) > 17 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") + If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox3.Text + If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox4.Text + If PetNameVal = 3 Then ssh.PetName = FrmSettings.petnameBox5.Text + If PetNameVal = 4 Then ssh.PetName = FrmSettings.petnameBox6.Text - If ssh.AssImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Ass") - If ssh.BoobImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Boobs") + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + PetNameVal = ssh.randomizer.Next(1, 3) + If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox7.Text + If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox8.Text + End If - If StringClean.Contains("#RANDNumberLow") Then - ' ### Number between 3-5 , 5-25 - ssh.TempVal = ssh.randomizer.Next(1, 6) * FrmSettings.domlevelNumBox.Value - If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) - If ssh.TempVal < 3 Then ssh.TempVal = 3 - StringClean = StringClean.Replace("#RNDNumberLow", ssh.TempVal) - End If + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + PetNameVal = ssh.randomizer.Next(1, 3) + If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox1.Text + If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox2.Text + End If - If StringClean.Contains("#RANDNumberHigh") Then - ' ### Number between 5-25 , 25-100 - ssh.TempVal = ssh.randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value - If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) - StringClean = StringClean.Replace("#RNDNumberHigh", ssh.TempVal) - End If + StringClean = StringClean.Replace("#PetName", ssh.PetName) - If StringClean.Contains("#RANDNumber") Then - ' ### Number between 3-10 , 5-50 - ssh.TempVal = ssh.randomizer.Next(1, 11) * FrmSettings.domlevelNumBox.Value - If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) - If ssh.TempVal < 3 Then ssh.TempVal = 3 - StringClean = StringClean.Replace("#RNDNumber", ssh.TempVal) - End If + ' If Hour(Date.Now) < 11 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "this morning") + If Hour(Date.Now) > 3 And Hour(Date.Now) < 12 Then StringClean = StringClean.Replace("#GreetSub", "#GoodMorningSub") + 'If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "today") + If Hour(Date.Now) > 11 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GreetSub", "#GoodAfternoonSub") + 'If Hour(Date.Now) > 17 Then PreCleanString = PreCleanString.Replace("#GeneralTime", "tonight") + If Hour(Date.Now) > 17 Or Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GreetSub", "#GoodEveningSub") + If Hour(Date.Now) < 4 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") + If Hour(Date.Now) > 3 And Hour(Date.Now) < 11 Then StringClean = StringClean.Replace("#GeneralTime", "this morning") + If Hour(Date.Now) > 10 And Hour(Date.Now) < 18 Then StringClean = StringClean.Replace("#GeneralTime", "today") + If Hour(Date.Now) > 17 Then StringClean = StringClean.Replace("#GeneralTime", "tonight") - StringClean = StringClean.Replace("#RP_ChosenCase", FrmCardList.RiskyPickNumber) - StringClean = StringClean.Replace("#RP_RespondCase", FrmCardList.RiskyResponse) - 'StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.RiskyCase) - If FrmCardList.RiskyPickCount = 0 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick1.Text) - If FrmCardList.RiskyPickCount = 1 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick2.Text) - If FrmCardList.RiskyPickCount = 2 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick3.Text) - If FrmCardList.RiskyPickCount = 3 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick4.Text) - If FrmCardList.RiskyPickCount = 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick5.Text) - If FrmCardList.RiskyPickCount > 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick6.Text) - StringClean = StringClean.Replace("#RP_EdgeOffer", FrmCardList.RiskyEdgeOffer) - StringClean = StringClean.Replace("#RP_TokenOffer", FrmCardList.RiskyTokenOffer) - StringClean = StringClean.Replace("#RP_EdgesOwed", FrmCardList.EdgesOwed) - StringClean = StringClean.Replace("#RP_TokensPaid", FrmCardList.TokensPaid) + If ssh.AssImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Ass") + If ssh.BoobImage = True Then StringClean = StringClean.Replace("#TnAFastSlidesResult", "#BBnB_Boobs") - StringClean = StringClean.Replace("#BronzeTokens", ssh.BronzeTokens) - StringClean = StringClean.Replace("#SilverTokens", ssh.SilverTokens) - StringClean = StringClean.Replace("#GoldTokens", ssh.GoldTokens) + If StringClean.Contains("#RANDNumberLow") Then + ' ### Number between 3-5 , 5-25 + ssh.TempVal = ssh.randomizer.Next(1, 6) * FrmSettings.domlevelNumBox.Value + If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) + If ssh.TempVal < 3 Then ssh.TempVal = 3 + StringClean = StringClean.Replace("#RNDNumberLow", ssh.TempVal) + End If - StringClean = StringClean.Replace("#SessionEdges", ssh.SessionEdges) - StringClean = StringClean.Replace("#SessionCBTCock", ssh.CBTCockCount) - StringClean = StringClean.Replace("#SessionCBTBalls", ssh.CBTBallsCount) - 'StringClean = StringClean.Replace("#Sys_SubLeftEarly", My.Settings.Sys_SubLeftEarly) - 'StringClean = StringClean.Replace("#Sys_SubLeftEarlyTotal", My.Settings.Sys_SubLeftEarlyTotal) + If StringClean.Contains("#RANDNumberHigh") Then + ' ### Number between 5-25 , 25-100 + ssh.TempVal = ssh.randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value + If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) + StringClean = StringClean.Replace("#RNDNumberHigh", ssh.TempVal) + End If - StringClean = StringClean.Replace("#SlideshowCount", ssh.CustomSlideshow.Count - 1) - StringClean = StringClean.Replace("#SlideshowCurrent", ssh.CustomSlideshow.Index) - StringClean = StringClean.Replace("#SlideshowRemaining", (ssh.CustomSlideshow.Count - 1) - ssh.CustomSlideshow.Index) - StringClean = StringClean.Replace("#CurrentTime", Format(Now, "h:mm")) - StringClean = StringClean.Replace("#CurrentDay", Format(Now, "dddd")) - StringClean = StringClean.Replace("#CurrentMonth", Format(Now, "MMMMM")) - StringClean = StringClean.Replace("#CurrentYear", Format(Now, "yyyy")) - StringClean = StringClean.Replace("#CurrentDate", FormatDateTime(Date.Now, DateFormat.ShortDate)) - ' StringClean = StringClean.Replace("#CurrentDate", Format(Now, "MM/dd/yyyy")) + If StringClean.Contains("#RANDNumber") Then + ' ### Number between 3-10 , 5-50 + ssh.TempVal = ssh.randomizer.Next(1, 11) * FrmSettings.domlevelNumBox.Value + If ssh.TempVal > 10 Then ssh.TempVal = 5 * Math.Round(ssh.TempVal / 5) + If ssh.TempVal < 3 Then ssh.TempVal = 3 + StringClean = StringClean.Replace("#RNDNumber", ssh.TempVal) + End If - ' - If StringClean.Contains("#Var[") Then - - 'Dim VarSplit As String() = StringClean.Split("]") - 'For i As Integer = 0 To VarSplit.Count - 1 - 'If VarSplit(i).Contains("#Var[") Then - 'Dim VarString As String = VarSplit(i) & "]" - 'Dim VarFlag As String = GetParentheses(VarString, "#Var[") - 'Debug.Print("VarFlag = " & VarFlag) - 'Dim VarFlag2 As String = GetVariable(VarFlag) - 'Debug.Print("VarFlag2 = " & VarFlag2) - ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - 'Debug.Print("Try this shit #Var[" & VarFlag & "]") - 'StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - 'End If - ' Next - StringClean = StringClean.Replace("#Var[", "@ShowVar[") - End If + StringClean = StringClean.Replace("#RP_ChosenCase", FrmCardList.RiskyPickNumber) + StringClean = StringClean.Replace("#RP_RespondCase", FrmCardList.RiskyResponse) + 'StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.RiskyCase) + If FrmCardList.RiskyPickCount = 0 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick1.Text) + If FrmCardList.RiskyPickCount = 1 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick2.Text) + If FrmCardList.RiskyPickCount = 2 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick3.Text) + If FrmCardList.RiskyPickCount = 3 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick4.Text) + If FrmCardList.RiskyPickCount = 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick5.Text) + If FrmCardList.RiskyPickCount > 4 Then StringClean = StringClean.Replace("#RP_CaseNumber", FrmCardList.LBLPick6.Text) + StringClean = StringClean.Replace("#RP_EdgeOffer", FrmCardList.RiskyEdgeOffer) + StringClean = StringClean.Replace("#RP_TokenOffer", FrmCardList.RiskyTokenOffer) + StringClean = StringClean.Replace("#RP_EdgesOwed", FrmCardList.EdgesOwed) + StringClean = StringClean.Replace("#RP_TokensPaid", FrmCardList.TokensPaid) + + StringClean = StringClean.Replace("#BronzeTokens", ssh.BronzeTokens) + StringClean = StringClean.Replace("#SilverTokens", ssh.SilverTokens) + StringClean = StringClean.Replace("#GoldTokens", ssh.GoldTokens) + + StringClean = StringClean.Replace("#SessionEdges", ssh.SessionEdges) + StringClean = StringClean.Replace("#SessionCBTCock", ssh.CBTCockCount) + StringClean = StringClean.Replace("#SessionCBTBalls", ssh.CBTBallsCount) + + 'StringClean = StringClean.Replace("#Sys_SubLeftEarly", My.Settings.Sys_SubLeftEarly) + 'StringClean = StringClean.Replace("#Sys_SubLeftEarlyTotal", My.Settings.Sys_SubLeftEarlyTotal) + + StringClean = StringClean.Replace("#SlideshowCount", ssh.CustomSlideshow.Count - 1) + StringClean = StringClean.Replace("#SlideshowCurrent", ssh.CustomSlideshow.Index) + StringClean = StringClean.Replace("#SlideshowRemaining", (ssh.CustomSlideshow.Count - 1) - ssh.CustomSlideshow.Index) + + StringClean = StringClean.Replace("#CurrentTime", Format(Now, "h:mm")) + StringClean = StringClean.Replace("#CurrentDay", Format(Now, "dddd")) + StringClean = StringClean.Replace("#CurrentMonth", Format(Now, "MMMMM")) + StringClean = StringClean.Replace("#CurrentYear", Format(Now, "yyyy")) + StringClean = StringClean.Replace("#CurrentDate", FormatDateTime(Date.Now, DateFormat.ShortDate)) + ' StringClean = StringClean.Replace("#CurrentDate", Format(Now, "MM/dd/yyyy")) + + ' + If StringClean.Contains("#Var[") Then + + 'Dim VarSplit As String() = StringClean.Split("]") + 'For i As Integer = 0 To VarSplit.Count - 1 + 'If VarSplit(i).Contains("#Var[") Then + 'Dim VarString As String = VarSplit(i) & "]" + 'Dim VarFlag As String = GetParentheses(VarString, "#Var[") + 'Debug.Print("VarFlag = " & VarFlag) + 'Dim VarFlag2 As String = GetVariable(VarFlag) + 'Debug.Print("VarFlag2 = " & VarFlag2) + ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + 'Debug.Print("Try this shit #Var[" & VarFlag & "]") + 'StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + 'End If + ' Next - 'BUG: #RandomSlideshowCategory does not work! The Variable RandomSlideshowCategory is never set. - If StringClean.Contains("#RandomSlideshowCategory") Then StringClean = StringClean.Replace("#RandomSlideshowCategory", ssh.RandomSlideshowCategory) + StringClean = StringClean.Replace("#Var[", "@ShowVar[") - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' ImageCount - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If StringClean.Contains("#LocalImageCount") Then - Dim temp As Dictionary(Of ImageGenre, ImageDataContainer) = GetImageData() - Dim counter As Integer = 0 + End If - For Each genre As ImageGenre In temp.Keys - counter += temp(genre).CountImages(ImageSourceType.Local) - Next + 'BUG: #RandomSlideshowCategory does not work! The Variable RandomSlideshowCategory is never set. + If StringClean.Contains("#RandomSlideshowCategory") Then StringClean = StringClean.Replace("#RandomSlideshowCategory", ssh.RandomSlideshowCategory) - StringClean = StringClean.Replace("#LocalImageCount", counter) - End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' ImageCount + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If StringClean.Contains("#LocalImageCount") Then + Dim temp As Dictionary(Of ImageGenre, ImageDataContainer) = GetImageData() + Dim counter As Integer = 0 - If StringClean.Contains("#BlogImageCount") Then - StringClean = StringClean.Replace("#BlogImageCount", GetImageData(ImageGenre.Blog).CountImages()) - End If + For Each genre As ImageGenre In temp.Keys + counter += temp(genre).CountImages(ImageSourceType.Local) + Next - If StringClean.Contains("#ButtImageCount") Then - StringClean = StringClean.Replace("#ButtImageCount", GetImageData(ImageGenre.Butt).CountImages()) - End If + StringClean = StringClean.Replace("#LocalImageCount", counter) + End If - If StringClean.Contains("#ButtsImageCount") Then - StringClean = StringClean.Replace("#ButtsImageCount", GetImageData(ImageGenre.Butt).CountImages()) - End If + If StringClean.Contains("#BlogImageCount") Then + StringClean = StringClean.Replace("#BlogImageCount", GetImageData(ImageGenre.Blog).CountImages()) + End If - If StringClean.Contains("#BoobImageCount") Then - StringClean = StringClean.Replace("#BoobImageCount", GetImageData(ImageGenre.Boobs).CountImages()) - End If + If StringClean.Contains("#ButtImageCount") Then + StringClean = StringClean.Replace("#ButtImageCount", GetImageData(ImageGenre.Butt).CountImages()) + End If - If StringClean.Contains("#BoobsImageCount") Then - StringClean = StringClean.Replace("#BoobsImageCount", GetImageData(ImageGenre.Boobs).CountImages()) - End If + If StringClean.Contains("#ButtsImageCount") Then + StringClean = StringClean.Replace("#ButtsImageCount", GetImageData(ImageGenre.Butt).CountImages()) + End If - If StringClean.Contains("#HardcoreImageCount") Then - StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) - End If + If StringClean.Contains("#BoobImageCount") Then + StringClean = StringClean.Replace("#BoobImageCount", GetImageData(ImageGenre.Boobs).CountImages()) + End If - If StringClean.Contains("#HardcoreImageCount") Then - StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) - End If + If StringClean.Contains("#BoobsImageCount") Then + StringClean = StringClean.Replace("#BoobsImageCount", GetImageData(ImageGenre.Boobs).CountImages()) + End If - If StringClean.Contains("#SoftcoreImageCount") Then - StringClean = StringClean.Replace("#SoftcoreImageCount", GetImageData(ImageGenre.Softcore).CountImages()) - End If + If StringClean.Contains("#HardcoreImageCount") Then + StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) + End If - If StringClean.Contains("#LesbianImageCount") Then - StringClean = StringClean.Replace("#LesbianImageCount", GetImageData(ImageGenre.Lesbian).CountImages()) - End If + If StringClean.Contains("#HardcoreImageCount") Then + StringClean = StringClean.Replace("#HardcoreImageCount", GetImageData(ImageGenre.Hardcore).CountImages()) + End If - If StringClean.Contains("#BlowjobImageCount") Then - StringClean = StringClean.Replace("#BlowjobImageCount", GetImageData(ImageGenre.Blowjob).CountImages()) - End If + If StringClean.Contains("#SoftcoreImageCount") Then + StringClean = StringClean.Replace("#SoftcoreImageCount", GetImageData(ImageGenre.Softcore).CountImages()) + End If - If StringClean.Contains("#FemdomImageCount") Then - StringClean = StringClean.Replace("#FemdomImageCount", GetImageData(ImageGenre.Femdom).CountImages()) - End If + If StringClean.Contains("#LesbianImageCount") Then + StringClean = StringClean.Replace("#LesbianImageCount", GetImageData(ImageGenre.Lesbian).CountImages()) + End If - If StringClean.Contains("#LezdomImageCount") Then - StringClean = StringClean.Replace("#LezdomImageCount", GetImageData(ImageGenre.Lezdom).CountImages()) - End If + If StringClean.Contains("#BlowjobImageCount") Then + StringClean = StringClean.Replace("#BlowjobImageCount", GetImageData(ImageGenre.Blowjob).CountImages()) + End If - If StringClean.Contains("#HentaiImageCount") Then - StringClean = StringClean.Replace("#HentaiImageCount", GetImageData(ImageGenre.Hentai).CountImages()) - End If + If StringClean.Contains("#FemdomImageCount") Then + StringClean = StringClean.Replace("#FemdomImageCount", GetImageData(ImageGenre.Femdom).CountImages()) + End If - If StringClean.Contains("#GayImageCount") Then - StringClean = StringClean.Replace("#GayImageCount", GetImageData(ImageGenre.Gay).CountImages()) - End If + If StringClean.Contains("#LezdomImageCount") Then + StringClean = StringClean.Replace("#LezdomImageCount", GetImageData(ImageGenre.Lezdom).CountImages()) + End If - If StringClean.Contains("#MaledomImageCount") Then - StringClean = StringClean.Replace("#MaledomImageCount", GetImageData(ImageGenre.Maledom).CountImages()) - End If + If StringClean.Contains("#HentaiImageCount") Then + StringClean = StringClean.Replace("#HentaiImageCount", GetImageData(ImageGenre.Hentai).CountImages()) + End If - If StringClean.Contains("#CaptionsImageCount") Then - StringClean = StringClean.Replace("#CaptionsImageCount", GetImageData(ImageGenre.Captions).CountImages()) - End If + If StringClean.Contains("#GayImageCount") Then + StringClean = StringClean.Replace("#GayImageCount", GetImageData(ImageGenre.Gay).CountImages()) + End If - If StringClean.Contains("#GeneralImageCount") Then - StringClean = StringClean.Replace("#GeneralImageCount", GetImageData(ImageGenre.General).CountImages()) - End If + If StringClean.Contains("#MaledomImageCount") Then + StringClean = StringClean.Replace("#MaledomImageCount", GetImageData(ImageGenre.Maledom).CountImages()) + End If - If StringClean.Contains("#LikedImageCount") Then - StringClean = StringClean.Replace("#LikedImageCount", GetImageData(ImageGenre.Liked).CountImages()) - End If + If StringClean.Contains("#CaptionsImageCount") Then + StringClean = StringClean.Replace("#CaptionsImageCount", GetImageData(ImageGenre.Captions).CountImages()) + End If - If StringClean.Contains("#DislikedImageCount") Then - StringClean = StringClean.Replace("#DislikedImageCount", GetImageData(ImageGenre.Disliked).CountImages()) - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' ImageCount - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If StringClean.Contains("#EdgeHold") Then - Dim i As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then i *= 60 + If StringClean.Contains("#GeneralImageCount") Then + StringClean = StringClean.Replace("#GeneralImageCount", GetImageData(ImageGenre.General).CountImages()) + End If - Dim x As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then x *= 60 + If StringClean.Contains("#LikedImageCount") Then + StringClean = StringClean.Replace("#LikedImageCount", GetImageData(ImageGenre.Liked).CountImages()) + End If - Dim t As Integer = ssh.randomizer.Next(i, x + 1) - If t >= 5 Then t = 5 * Math.Round(t / 5) - Dim TConvert As String = ConvertSeconds(t) - StringClean = StringClean.Replace("#EdgeHold", TConvert) - End If + If StringClean.Contains("#DislikedImageCount") Then + StringClean = StringClean.Replace("#DislikedImageCount", GetImageData(ImageGenre.Disliked).CountImages()) + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' ImageCount - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + If StringClean.Contains("#EdgeHold") Then + Dim i As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then i *= 60 + + Dim x As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then x *= 60 + + Dim t As Integer = ssh.randomizer.Next(i, x + 1) + If t >= 5 Then t = 5 * Math.Round(t / 5) + Dim TConvert As String = ConvertSeconds(t) + StringClean = StringClean.Replace("#EdgeHold", TConvert) + End If - If StringClean.Contains("#LongHold") Then - Dim i As Integer = FrmSettings.NBLongHoldMin.Value - Dim x As Integer = FrmSettings.NBLongHoldMax.Value - Dim t As Integer = ssh.randomizer.Next(i, x + 1) - t *= 60 - If t >= 5 Then t = 5 * Math.Round(t / 5) - Dim TConvert As String = ConvertSeconds(t) - StringClean = StringClean.Replace("#LongHold", TConvert) - End If + If StringClean.Contains("#LongHold") Then + Dim i As Integer = FrmSettings.NBLongHoldMin.Value + Dim x As Integer = FrmSettings.NBLongHoldMax.Value + Dim t As Integer = ssh.randomizer.Next(i, x + 1) + t *= 60 + If t >= 5 Then t = 5 * Math.Round(t / 5) + Dim TConvert As String = ConvertSeconds(t) + StringClean = StringClean.Replace("#LongHold", TConvert) + End If - If StringClean.Contains("#ExtremeHold") Then - Dim i As Integer = FrmSettings.NBExtremeHoldMin.Value - Dim x As Integer = FrmSettings.NBExtremeHoldMax.Value - Dim t As Integer = ssh.randomizer.Next(i, x + 1) - t *= 60 - If t >= 5 Then t = 5 * Math.Round(t / 5) - Dim TConvert As String = ConvertSeconds(t) - StringClean = StringClean.Replace("#ExtremeHold", TConvert) - End If + If StringClean.Contains("#ExtremeHold") Then + Dim i As Integer = FrmSettings.NBExtremeHoldMin.Value + Dim x As Integer = FrmSettings.NBExtremeHoldMax.Value + Dim t As Integer = ssh.randomizer.Next(i, x + 1) + t *= 60 + If t >= 5 Then t = 5 * Math.Round(t / 5) + Dim TConvert As String = ConvertSeconds(t) + StringClean = StringClean.Replace("#ExtremeHold", TConvert) + End If - StringClean = StringClean.Replace("#CurrentImage", ssh.ImageLocation) + StringClean = StringClean.Replace("#CurrentImage", ssh.ImageLocation) - Return StringClean + Return StringClean - End Function + End Function - Public Function ConvertSeconds(ByVal Seconds As Integer) As String + Public Function ConvertSeconds(ByVal Seconds As Integer) As String - Dim RetVal As String + Dim RetVal As String - Dim SecondsDifference As Integer = Seconds - Dim HMS = TimeSpan.FromSeconds(SecondsDifference) - Dim H = HMS.Hours.ToString - Dim M = HMS.Minutes.ToString - Dim S = HMS.Seconds.ToString + Dim SecondsDifference As Integer = Seconds + Dim HMS = TimeSpan.FromSeconds(SecondsDifference) + Dim H = HMS.Hours.ToString + Dim M = HMS.Minutes.ToString + Dim S = HMS.Seconds.ToString - If HMS.Hours = 1 Then - H = "1 hour" - Else - H = H & " hours" - End If + If HMS.Hours = 1 Then + H = "1 hour" + Else + H = H & " hours" + End If - If HMS.Minutes = 1 Then - M = "1 minute" - Else - Dim t As Integer = HMS.Minutes - If t >= 5 Then t = 5 * Math.Round(t / 5) - M = t & " minutes" - End If + If HMS.Minutes = 1 Then + M = "1 minute" + Else + Dim t As Integer = HMS.Minutes + If t >= 5 Then t = 5 * Math.Round(t / 5) + M = t & " minutes" + End If - If HMS.Minutes > 4 Or HMS.Hours > 0 Or HMS.Seconds = 0 Then - S = "" + If HMS.Minutes > 4 Or HMS.Hours > 0 Or HMS.Seconds = 0 Then + S = "" + Else + If HMS.Seconds = 1 Then + S = "1 second" Else - If HMS.Seconds = 1 Then - S = "1 second" - Else - S = S & " seconds" - End If + S = S & " seconds" End If + End If - RetVal = "" + RetVal = "" - If HMS.Hours > 0 Then - RetVal = RetVal & H - If HMS.Minutes > 0 Then RetVal = RetVal & " and " - End If + If HMS.Hours > 0 Then + RetVal = RetVal & H + If HMS.Minutes > 0 Then RetVal = RetVal & " and " + End If - If HMS.Minutes > 0 Then - RetVal = RetVal & M - If HMS.Seconds > 0 And HMS.Hours < 1 And HMS.Minutes < 4 Then RetVal = RetVal & " and " - End If + If HMS.Minutes > 0 Then + RetVal = RetVal & M + If HMS.Seconds > 0 And HMS.Hours < 1 And HMS.Minutes < 4 Then RetVal = RetVal & " and " + End If - RetVal = RetVal & S + RetVal = RetVal & S - Return RetVal + Return RetVal - End Function + End Function - Public Function PoundClean(ByVal StringClean As String) As String + Public Function PoundClean(ByVal StringClean As String) As String #If TRACE Then - Dim TS As New TraceSwitch("PoundClean", "") + Dim TS As New TraceSwitch("PoundClean", "") - If TS.TraceVerbose Then - Trace.WriteLine("============= PoundClean(String) =============") - Trace.Indent() - Trace.WriteLine(String.Format("StartValue: ""{0}""", StringClean)) - ElseIf TS.TraceInfo Then - Trace.WriteLine(String.Format("PoundClean(String) parsing: ""{0}""", StringClean)) - Trace.Indent() - End If + If TS.TraceVerbose Then + Trace.WriteLine("============= PoundClean(String) =============") + Trace.Indent() + Trace.WriteLine(String.Format("StartValue: ""{0}""", StringClean)) + ElseIf TS.TraceInfo Then + Trace.WriteLine(String.Format("PoundClean(String) parsing: ""{0}""", StringClean)) + Trace.Indent() + End If - Dim sw As New Stopwatch - Dim StartTime As Date = Now - sw.Start() + Dim sw As New Stopwatch + Dim StartTime As Date = Now + sw.Start() #End If - Dim OrgString As String = StringClean - Dim Recurrence As Integer = 0 + Dim OrgString As String = StringClean + Dim Recurrence As Integer = 0 - Do While Recurrence < 5 AndAlso (StringClean.Contains("#") Or StringClean.Contains("@Tag")) - Recurrence += 1 + Do While Recurrence < 5 AndAlso (StringClean.Contains("#") Or StringClean.Contains("@Tag")) + Recurrence += 1 #If TRACE Then - If TS.TraceVerbose Then - Trace.WriteLine(String.Format("Starting scan run {0} on ""{1}""", Recurrence, StringClean)) - Trace.Indent() - End If + If TS.TraceVerbose Then + Trace.WriteLine(String.Format("Starting scan run {0} on ""{1}""", Recurrence, StringClean)) + Trace.Indent() + End If #End If - StringClean = SysKeywordClean(StringClean) + StringClean = SysKeywordClean(StringClean) #If TRACE Then - If TS.TraceVerbose Then Trace.WriteLine(String.Format("System keywords cleaned: ""{0}""", StringClean)) + If TS.TraceVerbose Then Trace.WriteLine(String.Format("System keywords cleaned: ""{0}""", StringClean)) #End If - 'Bug: TextedTags have to be applied after the image is displayed. - ssh.FoundTag = "NULL" - Dim slide As ContactData = ssh.SlideshowMain - If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags + 'Bug: TextedTags have to be applied after the image is displayed. + ssh.FoundTag = "NULL" + Dim slide As ContactData = ssh.SlideshowMain + If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags - Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" + Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" - If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ + If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ AndAlso File.Exists(TagFilePath) Then - ' Read all lines of the given file. - Dim TagList As List(Of String) = Txt2List(TagFilePath) + ' Read all lines of the given file. + Dim TagList As List(Of String) = Txt2List(TagFilePath) - Try - For t As Integer = 0 To TagList.Count - 1 - 'Debug.Print("TagList(t) = " & TagList(t)) - If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then - ssh.FoundTag = TagList(t) - Dim FoundTagSplit As String() = Split(ssh.FoundTag) - For j As Integer = 0 To FoundTagSplit.Length - 1 - If FoundTagSplit(j).Contains("TagGarment") Then - ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") - ssh.TagGarment = ssh.TagGarment.Replace("-", " ") - End If + Try + For t As Integer = 0 To TagList.Count - 1 + 'Debug.Print("TagList(t) = " & TagList(t)) + If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then + ssh.FoundTag = TagList(t) + Dim FoundTagSplit As String() = Split(ssh.FoundTag) + For j As Integer = 0 To FoundTagSplit.Length - 1 + If FoundTagSplit(j).Contains("TagGarment") Then + ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") + ssh.TagGarment = ssh.TagGarment.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagUnderwear") Then - ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") - ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagUnderwear") Then + ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") + ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagTattoo") Then - ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") - ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagTattoo") Then + ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") + ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagSexToy") Then - ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") - ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagSexToy") Then + ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") + ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") + End If - If FoundTagSplit(j).Contains("TagFurniture") Then - ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") - ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") - End If + If FoundTagSplit(j).Contains("TagFurniture") Then + ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") + ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") + End If - Next - Exit For - End If - Next - Catch - End Try - End If + Next + Exit For + End If + Next + Catch + End Try + End If - 'Debug.Print("TagGarment = " & TagGarment) - 'Debug.Print("TagUnderwear = " & TagUnderwear) - 'Debug.Print("TagTattoo = " & TagTattoo) - 'Debug.Print("TagSexToy = " & TagSexToy) - 'Debug.Print("TagFurniture = " & TagFurniture) - 'Debug.Print("FoundTag = " & FoundTag) + 'Debug.Print("TagGarment = " & TagGarment) + 'Debug.Print("TagUnderwear = " & TagUnderwear) + 'Debug.Print("TagTattoo = " & TagTattoo) + 'Debug.Print("TagSexToy = " & TagSexToy) + 'Debug.Print("TagFurniture = " & TagFurniture) + 'Debug.Print("FoundTag = " & FoundTag) - StringClean = StringClean.Replace("#TagGarment", ssh.TagGarment) - StringClean = StringClean.Replace("#TagUnderwear", ssh.TagUnderwear) - StringClean = StringClean.Replace("#TagTattoo", ssh.TagTattoo) - StringClean = StringClean.Replace("#TagSexToy", ssh.TagSexToy) - StringClean = StringClean.Replace("#TagFurniture", ssh.TagFurniture) + StringClean = StringClean.Replace("#TagGarment", ssh.TagGarment) + StringClean = StringClean.Replace("#TagUnderwear", ssh.TagUnderwear) + StringClean = StringClean.Replace("#TagTattoo", ssh.TagTattoo) + StringClean = StringClean.Replace("#TagSexToy", ssh.TagSexToy) + StringClean = StringClean.Replace("#TagFurniture", ssh.TagFurniture) SkipTextedTags: - If StringClean.Contains("#") Or StringClean.Contains("@Tag") Then + If StringClean.Contains("#") Or StringClean.Contains("@Tag") Then - Dim re As New Regex("#[#\w\d\+\-_]+", RegexOptions.IgnoreCase) - Dim mc As MatchCollection = re.Matches(StringClean) + Dim re As New Regex("#[#\w\d\+\-_]+", RegexOptions.IgnoreCase) + Dim mc As MatchCollection = re.Matches(StringClean) - For Each keyword As Match In mc + For Each keyword As Match In mc #If TRACE Then - If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) + If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) #End If - Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" + Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" - If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then - Dim lines As List(Of String) = Txt2List(filepath) + If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then + Dim lines As List(Of String) = Txt2List(filepath) - Try - lines = FilterList(lines) - Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) - StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - Catch ex As Exception - Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + Try + lines = FilterList(lines) + Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + Catch ex As Exception + Log.WriteError("Error Processing vocabulary file: " & filepath, ex, "Tease AI did not return a valid line while parsing vocabulary file.") - StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value - End Try - - StringClean = StringClean.Replace("TagFace", "") - StringClean = StringClean.Replace("TagBoobs", "") - StringClean = StringClean.Replace("TagPussy", "") - StringClean = StringClean.Replace("TagAss", "") - StringClean = StringClean.Replace("TagFeet", "") - StringClean = StringClean.Replace("TagFullyDressed", "") - StringClean = StringClean.Replace("TagHalfDressed", "") - StringClean = StringClean.Replace("TagNaked", "") - StringClean = StringClean.Replace("TagSideView", "") - StringClean = StringClean.Replace("TagCloseUp", "") - StringClean = StringClean.Replace("TagMasturbating", "") - StringClean = StringClean.Replace("TagSucking", "") - StringClean = StringClean.Replace("TagSmiling", "") - StringClean = StringClean.Replace("TagGlaring", "") - StringClean = StringClean.Replace("TagSeeThrough", "") - StringClean = StringClean.Replace("TagAllFours", "") + StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value + End Try - Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + StringClean = StringClean.Replace("TagFace", "") + StringClean = StringClean.Replace("TagBoobs", "") + StringClean = StringClean.Replace("TagPussy", "") + StringClean = StringClean.Replace("TagAss", "") + StringClean = StringClean.Replace("TagFeet", "") + StringClean = StringClean.Replace("TagFullyDressed", "") + StringClean = StringClean.Replace("TagHalfDressed", "") + StringClean = StringClean.Replace("TagNaked", "") + StringClean = StringClean.Replace("TagSideView", "") + StringClean = StringClean.Replace("TagCloseUp", "") + StringClean = StringClean.Replace("TagMasturbating", "") + StringClean = StringClean.Replace("TagSucking", "") + StringClean = StringClean.Replace("TagSmiling", "") + StringClean = StringClean.Replace("TagGlaring", "") + StringClean = StringClean.Replace("TagSeeThrough", "") + StringClean = StringClean.Replace("TagAllFours", "") - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + Else + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - End If + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + End If - Next - End If -#If TRACE Then - Trace.Unindent() + Next + + End If +#If Trace Then + Trace.Unindent() #End If - Loop + Loop - If StringClean.Contains("#") Then + If StringClean.Contains("#") Then #If TRACE Then - If TS.TraceError Then - Trace.WriteLine("PoundClean(String): Stopping scan, maximum allowed scan depth reached.") - Trace.Indent() - Trace.WriteLine(String.Format("StartValue: ""{0}""", OrgString)) - Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) - Trace.Unindent() - End If + If TS.TraceError Then + Trace.WriteLine("PoundClean(String): Stopping scan, maximum allowed scan depth reached.") + Trace.Indent() + Trace.WriteLine(String.Format("StartValue: ""{0}""", OrgString)) + Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) + Trace.Unindent() + End If #End If - Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & + Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & "Aborted Cleaning at: " & StringClean, New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") - Else + Else #If TRACE Then - If TS.TraceVerbose Then - Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) - Trace.WriteLine(String.Format("Duration: {0}ms", (Now - StartTime).TotalMilliseconds.ToString)) - End If + If TS.TraceVerbose Then + Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) + Trace.WriteLine(String.Format("Duration: {0}ms", (Now - StartTime).TotalMilliseconds.ToString)) + End If #End If - End If + End If -#If TRACE Then - Trace.Unindent() +#If trace Then + Trace.Unindent() #End If - Return StringClean - End Function + Return StringClean + End Function - Public Function CommandClean(ByVal StringClean As String, Optional ByVal TaskClean As Boolean = False) As String + Public Function CommandClean(ByVal StringClean As String, Optional ByVal TaskClean As Boolean = False) As String - Debug.Print("Stringclean Intro = " & StringClean) + Debug.Print("Stringclean Intro = " & StringClean) - If TaskClean = True Then - Debug.Print("Tasks CommandClean") - GoTo TaskCleanSet - End If + If TaskClean = True Then + Debug.Print("Tasks CommandClean") + GoTo TaskCleanSet + End If RinseLatherRepeat: - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' ImageCommands - ' - Make sure you call all Display ImageFunctions before executing @LockImages. - ' If you don't, FilterList() will return a wrong list of lines => - ' => The Domme is talking about an image, but she never showed one. - ' => She is talking about an new image, but never showed one. - ' - Call @DeleteLocalImage before you start to display a new Image, because they - ' are loaded and displayed async. Otherwise it will delete the wrong image! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - - ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, - ' LiskedList, DislikedList and LocalImageTagList, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteLocalImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(True) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' ImageCommands + ' - Make sure you call all Display ImageFunctions before executing @LockImages. + ' If you don't, FilterList() will return a wrong list of lines => + ' => The Domme is talking about an image, but she never showed one. + ' => She is talking about an new image, but never showed one. + ' - Call @DeleteLocalImage before you start to display a new Image, because they + ' are loaded and displayed async. Otherwise it will delete the wrong image! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, + ' LiskedList, DislikedList and LocalImageTagList, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteLocalImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(True) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", ex, "@DeleteLocalImage failed") - End Try - End If - StringClean = StringClean.Replace("@DeleteLocalImage", "") + End Try End If + StringClean = StringClean.Replace("@DeleteLocalImage", "") + End If - ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, - ' DislikedList, LocalImageTagList and URL-Files, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(False) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteImage was unable to delete the image.", + ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, + ' DislikedList, LocalImageTagList and URL-Files, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(False) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteImage was unable to delete the image.", ex, "@DeleteImage failed") - End Try - End If - StringClean = StringClean.Replace("@DeleteImage", "") - End If - - ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. - If StringClean.Contains("@UnlockImages") Then - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.LockImage = False - StringClean = StringClean.Replace("@UnlockImages", "") + End Try End If + StringClean = StringClean.Replace("@DeleteImage", "") + End If - If StringClean.Contains("@DommeTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") - 'QND-Implemented: ContactData.GetTaggedImage - If ContactToUse IsNot Nothing Then - ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) - Else - ssh.DommeImageSTR = "" - End If - ' Clean the Text. - StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") + ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. + If StringClean.Contains("@UnlockImages") Then + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If + ssh.LockImage = False + StringClean = StringClean.Replace("@UnlockImages", "") + End If - If StringClean.Contains("@NewDommeSlideshow") Then - 'TODO: Add Support for contact slideshows. - ssh.SlideshowMain.LoadNew() - ssh.SlideshowMain.CurrentImage() - StringClean = StringClean.Replace("@NewDommeSlideshow", "") + If StringClean.Contains("@DommeTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") + 'QND-Implemented: ContactData.GetTaggedImage + If ContactToUse IsNot Nothing Then + ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) + Else + ssh.DommeImageSTR = "" End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") + End If - If StringClean.Contains("@DomTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") - ' Try to get a Domme Image for the given Tags. - 'QND-Implemented: ContactData.GetTaggedImage - If ContactToUse IsNot Nothing Then - ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) - Else - ssh.DommeImageSTR = "" - End If + If StringClean.Contains("@NewDommeSlideshow") Then + 'TODO: Add Support for contact slideshows. + ssh.SlideshowMain.LoadNew() + ssh.SlideshowMain.CurrentImage() + StringClean = StringClean.Replace("@NewDommeSlideshow", "") + End If - StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") + If StringClean.Contains("@DomTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ContactToUse IsNot Nothing Then + ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) + Else + ssh.DommeImageSTR = "" End If - If StringClean.Contains("@ImageTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") - ShowImage(GetLocalImage(TagFlag), False) - StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") - End If + StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") + End If - If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then - ShowImage(GetRandomImage(), False) - StringClean = StringClean.Replace("@ShowImage", "") - End If + If StringClean.Contains("@ImageTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") + ShowImage(GetLocalImage(TagFlag), False) + StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") + End If - If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then - ShowImage(GetImageData(ImageGenre.Butt).Random(), False) + If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then + ShowImage(GetRandomImage(), False) + StringClean = StringClean.Replace("@ShowImage", "") + End If - StringClean = StringClean.Replace("@ShowButtImage", "") - StringClean = StringClean.Replace("@ShowButtsImage", "") - End If + If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then + ShowImage(GetImageData(ImageGenre.Butt).Random(), False) - If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then - ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) + StringClean = StringClean.Replace("@ShowButtImage", "") + StringClean = StringClean.Replace("@ShowButtsImage", "") + End If - StringClean = StringClean.Replace("@ShowBoobsImage", "") - StringClean = StringClean.Replace("@ShowBoobImage", "") - End If + If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then + ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) - If StringClean.Contains("@ShowHardcoreImage") Then - ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) - StringClean = StringClean.Replace("@ShowHardcoreImage", "") - End If + StringClean = StringClean.Replace("@ShowBoobsImage", "") + StringClean = StringClean.Replace("@ShowBoobImage", "") + End If - If StringClean.Contains("@ShowSoftcoreImage") Then - ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) - StringClean = StringClean.Replace("@ShowSoftcoreImage", "") - End If + If StringClean.Contains("@ShowHardcoreImage") Then + ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) + StringClean = StringClean.Replace("@ShowHardcoreImage", "") + End If - If StringClean.Contains("@ShowLesbianImage") Then - ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) - StringClean = StringClean.Replace("@ShowLesbianImage", "") - End If + If StringClean.Contains("@ShowSoftcoreImage") Then + ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) + StringClean = StringClean.Replace("@ShowSoftcoreImage", "") + End If - If StringClean.Contains("@ShowBlowjobImage") Then - ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) - StringClean = StringClean.Replace("@ShowBlowjobImage", "") - End If + If StringClean.Contains("@ShowLesbianImage") Then + ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) + StringClean = StringClean.Replace("@ShowLesbianImage", "") + End If - If StringClean.Contains("@ShowFemdomImage") Then - ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) - StringClean = StringClean.Replace("@ShowFemdomImage", "") - End If + If StringClean.Contains("@ShowBlowjobImage") Then + ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) + StringClean = StringClean.Replace("@ShowBlowjobImage", "") + End If - If StringClean.Contains("@ShowLezdomImage") Then - ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) - StringClean = StringClean.Replace("@ShowLezdomImage", "") - End If + If StringClean.Contains("@ShowFemdomImage") Then + ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) + StringClean = StringClean.Replace("@ShowFemdomImage", "") + End If - If StringClean.Contains("@ShowHentaiImage") Then - ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) - StringClean = StringClean.Replace("@ShowHentaiImage", "") - End If + If StringClean.Contains("@ShowLezdomImage") Then + ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) + StringClean = StringClean.Replace("@ShowLezdomImage", "") + End If - If StringClean.Contains("@ShowGayImage") Then - ShowImage(GetImageData(ImageGenre.Gay).Random(), False) - StringClean = StringClean.Replace("@ShowGayImage", "") - End If + If StringClean.Contains("@ShowHentaiImage") Then + ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) + StringClean = StringClean.Replace("@ShowHentaiImage", "") + End If - If StringClean.Contains("@ShowMaledomImage") Then - ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) - StringClean = StringClean.Replace("@ShowMaledomImage", "") - End If + If StringClean.Contains("@ShowGayImage") Then + ShowImage(GetImageData(ImageGenre.Gay).Random(), False) + StringClean = StringClean.Replace("@ShowGayImage", "") + End If - If StringClean.Contains("@ShowCaptionsImage") Then - ShowImage(GetImageData(ImageGenre.Captions).Random(), False) - StringClean = StringClean.Replace("@ShowCaptionsImage", "") - End If + If StringClean.Contains("@ShowMaledomImage") Then + ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) + StringClean = StringClean.Replace("@ShowMaledomImage", "") + End If - If StringClean.Contains("@ShowGeneralImage") Then - ShowImage(GetImageData(ImageGenre.General).Random(), False) - StringClean = StringClean.Replace("@ShowGeneralImage", "") - End If + If StringClean.Contains("@ShowCaptionsImage") Then + ShowImage(GetImageData(ImageGenre.Captions).Random(), False) + StringClean = StringClean.Replace("@ShowCaptionsImage", "") + End If - If StringClean.Contains("@ShowLikedImage") Then - ShowImage(GetImageData(ImageGenre.Liked).Random(), False) - StringClean = StringClean.Replace("@ShowLikedImage", "") - End If + If StringClean.Contains("@ShowGeneralImage") Then + ShowImage(GetImageData(ImageGenre.General).Random(), False) + StringClean = StringClean.Replace("@ShowGeneralImage", "") + End If - If StringClean.Contains("@ShowDislikedImage") Then - ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) - StringClean = StringClean.Replace("@ShowDislikedImage", "") - End If + If StringClean.Contains("@ShowLikedImage") Then + ShowImage(GetImageData(ImageGenre.Liked).Random(), False) + StringClean = StringClean.Replace("@ShowLikedImage", "") + End If - If StringClean.Contains("@ShowBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@ShowBlogImage", "") - End If + If StringClean.Contains("@ShowDislikedImage") Then + ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) + StringClean = StringClean.Replace("@ShowDislikedImage", "") + End If - ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage - If StringClean.Contains("@NewBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@NewBlogImage", "") - End If + If StringClean.Contains("@ShowBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@ShowBlogImage", "") + End If - If StringClean.Contains("@ShowLocalImage") And Not StringClean.Contains("@ShowLocalImage(") Then - ShowImage(GetRandomImage(ImageSourceType.Local), False) - StringClean = StringClean.Replace("@ShowLocalImage", "") - End If + ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage + If StringClean.Contains("@NewBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@NewBlogImage", "") + End If - '=============================================================================== - ' @ShowLocalImage() - '=============================================================================== - If StringClean.Contains("@ShowLocalImage(") Then - Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") - LocalFlag = FixCommas(LocalFlag) - - Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList - - If LocalFlag.ToUpper.Contains("NOT") Then - ' =============== Invert the Content in Brackets =============== - ' Declare a String containing all available ImageGenres - Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" - - ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket - For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 - If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") - If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") - If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") - If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") - If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") - If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") - If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") - If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") - If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") - If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") - If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") - If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") - Next + If StringClean.Contains("@ShowLocalImage") And Not StringClean.Contains("@ShowLocalImage(") Then + ShowImage(GetRandomImage(ImageSourceType.Local), False) + StringClean = StringClean.Replace("@ShowLocalImage", "") + End If - ' Set the inverted Array. - tmpListGenre = CompareFlag.Split(", ").ToList - End If - - ' Pick a random entry from list - Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) - Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) - - ' generate a list of all available Local Images. This way it is most - ' likely, to get an image. - Dim tmpImageLocationList As New List(Of String) - - For Each tmpStr As String In tmpListGenre - If tmpStr.ToUpper.Contains("HARDCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("HENTAI") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GAY") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("CAPTION") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GENERAL") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) - End If + '=============================================================================== + ' @ShowLocalImage() + '=============================================================================== + If StringClean.Contains("@ShowLocalImage(") Then + Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") + LocalFlag = FixCommas(LocalFlag) + + Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList + + If LocalFlag.ToUpper.Contains("NOT") Then + ' =============== Invert the Content in Brackets =============== + ' Declare a String containing all available ImageGenres + Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" + + ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket + For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 + If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") + If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") + If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") + If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") + If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") + If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") + If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") + If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") + If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") + If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") + If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") + If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") Next - ' Declare a string for the Image to show - initialize with error Image - Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" - ' If there are images, overwrite the error image. - If tmpImageLocationList.Count > 0 Then - tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) - Else - Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") + + ' Set the inverted Array. + tmpListGenre = CompareFlag.Split(", ").ToList + End If + + ' Pick a random entry from list + Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) + Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) + + ' generate a list of all available Local Images. This way it is most + ' likely, to get an image. + Dim tmpImageLocationList As New List(Of String) + + For Each tmpStr As String In tmpListGenre + If tmpStr.ToUpper.Contains("HARDCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("HENTAI") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GAY") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("CAPTION") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GENERAL") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) End If + Next + ' Declare a string for the Image to show - initialize with error Image + Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" + ' If there are images, overwrite the error image. + If tmpImageLocationList.Count > 0 Then + tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) + Else + Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") + End If - ShowImage(tmpImgToShow, False) + ShowImage(tmpImgToShow, False) - StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") - End If - '---------------------------------------- - ' @ShowLocalImage()- End - '---------------------------------------- - '=============================================================================== - ' @ShowTaggedImage - '=============================================================================== - If StringClean.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = StringClean.Split() _ + StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") + End If + '---------------------------------------- + ' @ShowLocalImage()- End + '---------------------------------------- + '=============================================================================== + ' @ShowTaggedImage + '=============================================================================== + If StringClean.Contains("@ShowTaggedImage") Then + Dim Tags As List(Of String) = StringClean.Split() _ .Select(Function(s) s.Trim()) _ .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - Dim FoundString As String = GetLocalImage(Tags, Nothing) + Dim FoundString As String = GetLocalImage(Tags, Nothing) - 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. - If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages + 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. + If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages - ssh.JustShowedBlogImage = True - ShowImage(FoundString, False) + ssh.JustShowedBlogImage = True + ShowImage(FoundString, False) - Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) - StringClean = StringClean.Replace("@ShowTaggedImage", "") - End If - '---------------------------------------- - ' @ShowTaggedImage - End - '---------------------------------------- - '=============================================================================== - ' @ShowImage[] - '=============================================================================== - If StringClean.Contains("@ShowImage[") Then - Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") - Try - Dim tmpImgLoc As String = "" + Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) + StringClean = StringClean.Replace("@ShowTaggedImage", "") + End If + '---------------------------------------- + ' @ShowTaggedImage - End + '---------------------------------------- + '=============================================================================== + ' @ShowImage[] + '=============================================================================== + If StringClean.Contains("@ShowImage[") Then + Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") + Try + Dim tmpImgLoc As String = "" - If isURL(ImageToShow) Then - '########################## ImageURL was given ######################### - tmpImgLoc = ImageToShow - GoTo ShowedBlogImage - End If + If isURL(ImageToShow) Then + '########################## ImageURL was given ######################### + tmpImgLoc = ImageToShow + GoTo ShowedBlogImage + End If - ' Change evtl. wrong given Slashes - ImageToShow = ImageToShow.Replace("/", "\") + ' Change evtl. wrong given Slashes + ImageToShow = ImageToShow.Replace("/", "\") - ImageToShow = Application.StartupPath & "\Images\" & ImageToShow - ImageToShow = ImageToShow.Replace("\\", "\") + ImageToShow = Application.StartupPath & "\Images\" & ImageToShow + ImageToShow = ImageToShow.Replace("\\", "\") - If ImageToShow.Contains("*") Then - '######################### Directory was given ######################### - Dim tmpFilter As String = Path.GetFileName(ImageToShow) - Dim tmpDir As String = Path.GetDirectoryName(ImageToShow) - Dim ImageList As List(Of String) + If ImageToShow.Contains("*") Then + '######################### Directory was given ######################### + Dim tmpFilter As String = Path.GetFileName(ImageToShow) + Dim tmpDir As String = Path.GetDirectoryName(ImageToShow) + Dim ImageList As List(Of String) - If Directory.Exists(tmpDir) = False Then - Throw New Exception( + If Directory.Exists(tmpDir) = False Then + Throw New Exception( "The given directory """ & tmpDir & """ does not exist." & vbCrLf & vbCrLf & "Please make sure the directory exists and it is spelled correctly in the script.") - End If + End If - If tmpFilter = "*" Then - ImageList = myDirectory.GetFilesImages(tmpDir) - Else - ImageList = Directory.GetFiles(tmpDir, tmpFilter, SearchOption.TopDirectoryOnly).ToList - End If + If tmpFilter = "*" Then + ImageList = myDirectory.GetFilesImages(tmpDir) + Else + ImageList = Directory.GetFiles(tmpDir, tmpFilter, SearchOption.TopDirectoryOnly).ToList + End If - If ImageList.Count = 0 Then - Throw New FileNotFoundException( + If ImageList.Count = 0 Then + Throw New FileNotFoundException( "No images matching the filter """ & tmpFilter & """ were found in """ & tmpDir & """!" & vbCrLf & vbCrLf & "Please make sure that valid files exist and the wildcards are applied correctly in the script.") - End If + End If - tmpImgLoc = ImageList(New Random().Next(0, ImageList.Count)) + tmpImgLoc = ImageList(New Random().Next(0, ImageList.Count)) + Else + '############################# Single Image ############################ + If File.Exists(ImageToShow) Then + tmpImgLoc = ImageToShow Else - '############################# Single Image ############################ - If File.Exists(ImageToShow) Then - tmpImgLoc = ImageToShow - Else - Throw New Exception( + Throw New Exception( """" & Path.GetFileName(ImageToShow) & """ was not found in """ & Path.GetDirectoryName(ImageToShow) & """!" & vbCrLf & vbCrLf & "Please make sure the file exists and it is spelled correctly in the script.") - End If End If - '############### Display the Image ################## + End If + '############### Display the Image ################## ShowedBlogImage: - ShowImage(tmpImgLoc, False) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @ShowImage[] was unable to display the image.", + ShowImage(tmpImgLoc, False) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @ShowImage[] was unable to display the image.", ex, "Error at @ShowImage[]") - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") - End Try - StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") - End If - '---------------------------------------- - ' @ShowImage[]- End - '---------------------------------------- - '=============================================================================== - ' Legacy TnA-Slideshow - '=============================================================================== - ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. - ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. - ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. - ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. - - If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then - If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 - If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 - If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") + End Try + StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") + End If + '---------------------------------------- + ' @ShowImage[]- End + '---------------------------------------- + '=============================================================================== + ' Legacy TnA-Slideshow + '=============================================================================== + ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. + ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. + ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. + ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. + + If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then + If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 + If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 + If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 - Try - ssh.BoobList.Clear() - ssh.AssList.Clear() + Try + ssh.BoobList.Clear() + ssh.AssList.Clear() - If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList - If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList + If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList + If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") - TnASlides.Start() - Catch ex As Exception - Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & + TnASlides.Start() + Catch ex As Exception + Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & ex.Message, ex, "CommandClean()") - End Try + End Try + + StringClean = StringClean.Replace("@TnAFastSlides", "") + StringClean = StringClean.Replace("@TnASlowSlides", "") + StringClean = StringClean.Replace("@TnASlides", "") + End If + + If StringClean.Contains("@CheckTnA") Then + TnASlides.Stop() + + 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) + If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" + If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckTnA", "") + End If + + If StringClean.Contains("@StopTnA") Then + TnASlides.Stop() + ssh.BoobList.Clear() + ssh.BoobImage = False + ssh.AssList.Clear() + ssh.AssImage = False + StringClean = StringClean.Replace("@StopTnA", "") + End If + '---------------------------------------- + ' TnA-Slideshow - End + '---------------------------------------- + '=============================================================================== + ' Slideshow + '=============================================================================== + If StringClean.Contains("@Slideshow(") Then + Dim SlideFlag As String = StringClean - StringClean = StringClean.Replace("@TnAFastSlides", "") - StringClean = StringClean.Replace("@TnASlowSlides", "") - StringClean = StringClean.Replace("@TnASlides", "") + Dim SlideStart As Integer + + SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 + SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) + SlideFlag = SlideFlag.Split(")")(0) + SlideFlag = SlideFlag.Replace("@Slideshow(", "") + + ssh.CustomSlideshow.Clear() + + If SlideFlag.ToLower.Contains("hardcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) End If - If StringClean.Contains("@CheckTnA") Then - TnASlides.Stop() + If SlideFlag.ToLower.Contains("softcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) + End If - 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) - If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" - If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckTnA", "") + If SlideFlag.ToLower.Contains("lesbian") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) End If - If StringClean.Contains("@StopTnA") Then - TnASlides.Stop() - ssh.BoobList.Clear() - ssh.BoobImage = False - ssh.AssList.Clear() - ssh.AssImage = False - StringClean = StringClean.Replace("@StopTnA", "") + If SlideFlag.ToLower.Contains("blowjob") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) End If - '---------------------------------------- - ' TnA-Slideshow - End - '---------------------------------------- - '=============================================================================== - ' Slideshow - '=============================================================================== - If StringClean.Contains("@Slideshow(") Then - Dim SlideFlag As String = StringClean - Dim SlideStart As Integer + If SlideFlag.ToLower.Contains("femdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) + End If - SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 - SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) - SlideFlag = SlideFlag.Split(")")(0) - SlideFlag = SlideFlag.Replace("@Slideshow(", "") + If SlideFlag.ToLower.Contains("lezdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) + End If - ssh.CustomSlideshow.Clear() + If SlideFlag.ToLower.Contains("hentai") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) + End If - If SlideFlag.ToLower.Contains("hardcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) - End If + If SlideFlag.ToLower.Contains("gay") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) + End If - If SlideFlag.ToLower.Contains("softcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) - End If + If SlideFlag.ToLower.Contains("maledom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) + End If - If SlideFlag.ToLower.Contains("lesbian") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) - End If + If SlideFlag.ToLower.Contains("captions") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) + End If - If SlideFlag.ToLower.Contains("blowjob") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) - End If + If SlideFlag.ToLower.Contains("general") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) + End If - If SlideFlag.ToLower.Contains("femdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) - End If + If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) + End If - If SlideFlag.ToLower.Contains("lezdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) - End If + If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) + End If - If SlideFlag.ToLower.Contains("hentai") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) - End If - If SlideFlag.ToLower.Contains("gay") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) - End If + CustomSlideshowTimer.Interval = 1000 + If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 + If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 - If SlideFlag.ToLower.Contains("maledom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) - End If - If SlideFlag.ToLower.Contains("captions") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) - End If - - If SlideFlag.ToLower.Contains("general") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) - End If - - If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) - End If - - If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) - End If - - - CustomSlideshowTimer.Interval = 1000 - If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 - If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 - - - StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") - End If - - If StringClean.Contains("@SlideshowOn") Then - If ssh.CustomSlideshow.Count > 0 Then - ssh.CustomSlideEnabled = True - CustomSlideshowTimer.Start() - End If - StringClean = StringClean.Replace("@SlideshowOn", "") - End If - - If StringClean.Contains("@SlideshowOff") Then - ssh.CustomSlideEnabled = False - CustomSlideshowTimer.Stop() - StringClean = StringClean.Replace("@SlideshowOff", "") - End If + StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") + End If - If StringClean.Contains("@SlideshowFirst") Then + If StringClean.Contains("@SlideshowOn") Then + If ssh.CustomSlideshow.Count > 0 Then ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.FirstImage, False) - StringClean = StringClean.Replace("@SlideshowFirst", "") + CustomSlideshowTimer.Start() End If + StringClean = StringClean.Replace("@SlideshowOn", "") + End If - If StringClean.Contains("@SlideshowLast") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.LastImage, False) - StringClean = StringClean.Replace("@SlideshowLast", "") - End If + If StringClean.Contains("@SlideshowOff") Then + ssh.CustomSlideEnabled = False + CustomSlideshowTimer.Stop() + StringClean = StringClean.Replace("@SlideshowOff", "") + End If - If StringClean.Contains("@SlideshowNext") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.NextImage, False) - StringClean = StringClean.Replace("@SlideshowNext", "") - End If + If StringClean.Contains("@SlideshowFirst") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.FirstImage, False) + StringClean = StringClean.Replace("@SlideshowFirst", "") + End If - If StringClean.Contains("@SlideshowPrevious") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.PreviousImage, False) - StringClean = StringClean.Replace("@SlideshowPrevious", "") - End If - - If StringClean.Contains("@GotoSlideshow") Then - Dim ImageString As String = ssh.CustomSlideshow.CurrentImage - - If ImageString IsNot Nothing OrElse ImageString = "" Then - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" - - Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) + If StringClean.Contains("@SlideshowLast") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.LastImage, False) + StringClean = StringClean.Replace("@SlideshowLast", "") + End If - ssh.SkipGotoLine = True - GetGoto() - Else - Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." - Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") - End If + If StringClean.Contains("@SlideshowNext") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.NextImage, False) + StringClean = StringClean.Replace("@SlideshowNext", "") + End If - StringClean = StringClean.Replace("@GotoSlideshow", "") - End If - '---------------------------------------- - ' Slideshow - End - '---------------------------------------- - ' This Command will not work in the same line, because the Images are loaded async and not available yet. - If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) + If StringClean.Contains("@SlideshowPrevious") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.PreviousImage, False) + StringClean = StringClean.Replace("@SlideshowPrevious", "") + End If - ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, - ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs - ' (including Long Edge and Start Stroking) or when the sub gives up. + If StringClean.Contains("@GotoSlideshow") Then + Dim ImageString As String = ssh.CustomSlideshow.CurrentImage + + If ImageString IsNot Nothing OrElse ImageString = "" Then + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" + + Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) - If StringClean.Contains("@LockImages") Then - ssh.LockImage = True - nextButton.Enabled = False - previousButton.Enabled = False - PicStripTSMIdommeSlideshow.Enabled = False - StringClean = StringClean.Replace("@LockImages", "") + ssh.SkipGotoLine = True + GetGoto() + Else + Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." + Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' ImageCommands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command - ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). + StringClean = StringClean.Replace("@GotoSlideshow", "") + End If + '---------------------------------------- + ' Slideshow - End + '---------------------------------------- + ' This Command will not work in the same line, because the Images are loaded async and not available yet. + If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) + + ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, + ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs + ' (including Long Edge and Start Stroking) or when the sub gives up. + + If StringClean.Contains("@LockImages") Then + ssh.LockImage = True + nextButton.Enabled = False + previousButton.Enabled = False + PicStripTSMIdommeSlideshow.Enabled = False + StringClean = StringClean.Replace("@LockImages", "") + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' ImageCommands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If StringClean.Contains("@Chance") Then + ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command + ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - Dim ChanceTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + If StringClean.Contains("@Chance") Then - TSStartIndex = StringClean.IndexOf("@Chance") + 7 - TSEndIndex = StringClean.IndexOf("@Chance") + 9 + Dim ChanceTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + TSStartIndex = StringClean.IndexOf("@Chance") + 7 + TSEndIndex = StringClean.IndexOf("@Chance") + 9 - Dim ChanceVal As Integer + ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - ChanceVal = Val(ChanceTemp) + Dim ChanceVal As Integer - ssh.TempVal = ssh.randomizer.Next(1, 101) + ChanceVal = Val(ChanceTemp) - Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim + ssh.TempVal = ssh.randomizer.Next(1, 101) - Dim ChanceSplit As String() = Split(ChanceString, ")") + Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim + Dim ChanceSplit As String() = Split(ChanceString, ")") - Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") - StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") - If ssh.TempVal <= ChanceVal Then + Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") + StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") - ssh.FileGoto = ChanceSplit(0) & ")" - ssh.SkipGotoLine = True + If ssh.TempVal <= ChanceVal Then - If ssh.YesOrNo = True Then - GetGotoChat() - Else - GetGoto() - End If + ssh.FileGoto = ChanceSplit(0) & ")" + ssh.SkipGotoLine = True + If ssh.YesOrNo = True Then + GetGotoChat() + Else + GetGoto() End If End If - ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of - ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using - ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() - ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, - ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. + End If + + ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of + ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using + ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() + ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, + ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - If StringClean.Contains("@CheckFlag") Then + If StringClean.Contains("@CheckFlag") Then - Dim CheckArray As String() = StringClean.Split(")") + Dim CheckArray As String() = StringClean.Split(")") - For i As Integer = 0 To CheckArray.Count - 1 + For i As Integer = 0 To CheckArray.Count - 1 - If CheckArray(i).Contains("@CheckFlag(") Then + If CheckArray(i).Contains("@CheckFlag(") Then - CheckArray(i) = CheckArray(i) & ")" + CheckArray(i) = CheckArray(i) & ")" - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") - Dim OriginalCheck As String = CheckFlag + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") + Dim OriginalCheck As String = CheckFlag - If CheckFlag.Contains(",") Then + If CheckFlag.Contains(",") Then - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - Dim FlagArray() As String = CheckFlag.Split(",") + Dim FlagArray() As String = CheckFlag.Split(",") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FlagArray(1) - GetGoto() - End If + ssh.SkipGotoLine = True + ssh.FileGoto = FlagArray(1) + GetGoto() + End If - Else + Else - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then - ssh.SkipGotoLine = True - ssh.FileGoto = CheckFlag - GetGoto() - End If - + ssh.SkipGotoLine = True + ssh.FileGoto = CheckFlag + GetGoto() End If - ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS - 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") - - StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") - End If - Next + ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS + 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") - ' StringClean = Join(CheckArray, Nothing) + StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") - End If + End If + Next -TaskCleanSet: + ' StringClean = Join(CheckArray, Nothing) + End If - ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). - If StringClean.Contains("@SetFlag(") Then +TaskCleanSet: - Dim SetArray As String() = StringClean.Split(")") - For i As Integer = 0 To SetArray.Count - 1 + ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). - If SetArray(i).Contains("@SetFlag(") Then + If StringClean.Contains("@SetFlag(") Then - SetArray(i) = SetArray(i) & ")" + Dim SetArray As String() = StringClean.Split(")") - Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") - Dim OriginalSet As String = SetFlag + For i As Integer = 0 To SetArray.Count - 1 - If SetFlag.Contains(",") Then + If SetArray(i).Contains("@SetFlag(") Then - SetFlag = SetFlag.Replace(", ", ",") - SetFlag = SetFlag.Replace(" ,", ",") + SetArray(i) = SetArray(i) & ")" - Dim FlagArray() As String = SetFlag.Split(",") + Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") + Dim OriginalSet As String = SetFlag - For x As Integer = 0 To FlagArray.Count - 1 + If SetFlag.Contains(",") Then - CreateFlag(FlagArray(x)) + SetFlag = SetFlag.Replace(", ", ",") + SetFlag = SetFlag.Replace(" ,", ",") - Next + Dim FlagArray() As String = SetFlag.Split(",") - Else + For x As Integer = 0 To FlagArray.Count - 1 - CreateFlag(SetFlag) + CreateFlag(FlagArray(x)) - End If + Next - 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") + Else - StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") + CreateFlag(SetFlag) End If - Next + 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") - 'StringClean = Join(SetArray, Nothing) + StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") - End If + End If - ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. - ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). + Next - If StringClean.Contains("@TempFlag(") Then + 'StringClean = Join(SetArray, Nothing) - Dim TempArray As String() = StringClean.Split(")") + End If - For i As Integer = 0 To TempArray.Count - 1 + ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. + ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). - If TempArray(i).Contains("@TempFlag(") Then + If StringClean.Contains("@TempFlag(") Then - TempArray(i) = TempArray(i) & ")" + Dim TempArray As String() = StringClean.Split(")") - Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") - Dim OriginalTemp As String = TempFlag + For i As Integer = 0 To TempArray.Count - 1 - If TempFlag.Contains(",") Then + If TempArray(i).Contains("@TempFlag(") Then - TempFlag = TempFlag.Replace(", ", ",") - TempFlag = TempFlag.Replace(" ,", ",") + TempArray(i) = TempArray(i) & ")" - Dim FlagArray() As String = TempFlag.Split(",") + Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") + Dim OriginalTemp As String = TempFlag - For x As Integer = 0 To FlagArray.Count - 1 + If TempFlag.Contains(",") Then - CreateFlag(FlagArray(x), True) + TempFlag = TempFlag.Replace(", ", ",") + TempFlag = TempFlag.Replace(" ,", ",") - Next + Dim FlagArray() As String = TempFlag.Split(",") - Else + For x As Integer = 0 To FlagArray.Count - 1 - CreateFlag(TempFlag, True) + CreateFlag(FlagArray(x), True) - End If + Next - 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") + Else - StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") + CreateFlag(TempFlag, True) End If - Next + 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") - 'StringClean = Join(TempArray, Nothing) + StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") - End If + End If - ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. - ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). - ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). + Next + 'StringClean = Join(TempArray, Nothing) - If StringClean.Contains("@DeleteFlag(") Then + End If - Dim DeleteArray As String() = StringClean.Split(")") + ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. + ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). + ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). - For i As Integer = 0 To DeleteArray.Count - 1 - If DeleteArray(i).Contains("@DeleteFlag(") Then + If StringClean.Contains("@DeleteFlag(") Then - DeleteArray(i) = DeleteArray(i) & ")" + Dim DeleteArray As String() = StringClean.Split(")") - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") - Dim OriginalDelete As String = DFlag + For i As Integer = 0 To DeleteArray.Count - 1 - If DFlag.Contains(",") Then + If DeleteArray(i).Contains("@DeleteFlag(") Then - DFlag = FixCommas(DFlag) + DeleteArray(i) = DeleteArray(i) & ")" - Dim FlagArray() As String = DFlag.Split(",") + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") + Dim OriginalDelete As String = DFlag - For x As Integer = 0 To FlagArray.Count - 1 + If DFlag.Contains(",") Then - DeleteFlag(FlagArray(x)) + DFlag = FixCommas(DFlag) - Next + Dim FlagArray() As String = DFlag.Split(",") - Else + For x As Integer = 0 To FlagArray.Count - 1 - DeleteFlag(DFlag) + DeleteFlag(FlagArray(x)) - End If + Next - ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") + Else - StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") + DeleteFlag(DFlag) End If - Next + ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") - 'StringClean = Join(DeleteArray, Nothing) + StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") - End If + End If + + Next + + 'StringClean = Join(DeleteArray, Nothing) - ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. - ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] - ' Multiple @SetVar[] Commands may be used per line if you wish. - ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | + End If - If StringClean.Contains("@SetVar[") Then + ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. + ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] + ' Multiple @SetVar[] Commands may be used per line if you wish. + ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - Dim VarArray As String() = StringClean.Split + If StringClean.Contains("@SetVar[") Then - For i As Integer = 0 To VarArray.Count - 1 + Dim VarArray As String() = StringClean.Split - Dim SCGotVar As String = "NULL" + For i As Integer = 0 To VarArray.Count - 1 - If VarArray(i).Contains("@SetVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" + Dim SCGotVar As String = "NULL" - SCGotVar = SCGotVar.Replace("@SetVar[", "") + If VarArray(i).Contains("@SetVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + SCGotVar = SCGotVar.Replace("@SetVar[", "") - Dim VarName As String = SCGotVarSplit(0) + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - SCGotVarSplit(0) = "" + Dim VarName As String = SCGotVarSplit(0) - SCGotVar = Join(SCGotVarSplit) + SCGotVarSplit(0) = "" - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") + SCGotVar = Join(SCGotVarSplit) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - End If + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) - Next + End If - StringClean = Join(VarArray) + Next - End If + StringClean = Join(VarArray) - ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . - ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) - ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. - ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is - ' specified, "Days" will be used. + End If - If StringClean.Contains("@SetDate(") Then + ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . + ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) + ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. + ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is + ' specified, "Days" will be used. - Dim CheckArray As String() = StringClean.Split(")") - Dim OriginalCheck As String + If StringClean.Contains("@SetDate(") Then - For i As Integer = 0 To CheckArray.Count - 1 + Dim CheckArray As String() = StringClean.Split(")") + Dim OriginalCheck As String - If CheckArray(i).Contains("@SetDate(") Then + For i As Integer = 0 To CheckArray.Count - 1 - 'CheckArray(i) = CheckArray(i) & "]" + If CheckArray(i).Contains("@SetDate(") Then - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") - OriginalCheck = CheckFlag + 'CheckArray(i) = CheckArray(i) & "]" - Debug.Print("Original Check = " & OriginalCheck) + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") + OriginalCheck = CheckFlag - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + Debug.Print("Original Check = " & OriginalCheck) - Dim FlagArray() As String = CheckFlag.Split(",") + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") + + Dim FlagArray() As String = CheckFlag.Split(",") - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) - If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ + If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) - Debug.Print("CheckArray(i) = " & CheckArray(i)) + Debug.Print("CheckArray(i) = " & CheckArray(i)) - ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") + ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") - StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") + StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") - End If + End If - Next + Next - 'StringClean = Join(CheckArray, Nothing) + 'StringClean = Join(CheckArray, Nothing) - End If + End If - ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] - ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. - ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line + ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] + ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. + ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line - If StringClean.Contains("@RoundVar[") Then + If StringClean.Contains("@RoundVar[") Then - Dim VarArray As String() = StringClean.Split + Dim VarArray As String() = StringClean.Split - For i As Integer = 0 To VarArray.Count - 1 + For i As Integer = 0 To VarArray.Count - 1 - Dim SCGotVar As String = "NULL" + Dim SCGotVar As String = "NULL" - If VarArray(i).Contains("@RoundVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" - End If + If VarArray(i).Contains("@RoundVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" + End If - SCGotVar = SCGotVar.Replace("@RoundVar[", "") + SCGotVar = SCGotVar.Replace("@RoundVar[", "") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Dim VarName As String = SCGotVarSplit(0) - Dim Val1 As Integer + Dim VarName As String = SCGotVarSplit(0) + Dim Val1 As Integer - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(VarCheck) Then - ' Read first line of the given file. - Val1 = CInt(TxtReadLine(VarCheck)) + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(VarCheck) Then + ' Read first line of the given file. + Val1 = CInt(TxtReadLine(VarCheck)) - SCGotVarSplit(0) = "" + SCGotVarSplit(0) = "" - SCGotVar = Join(SCGotVarSplit) + SCGotVar = Join(SCGotVarSplit) - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - Dim VarValue As Integer = Val(SCGotVar) + Dim VarValue As Integer = Val(SCGotVar) - Val1 = VarValue * Math.Round(Val1 / VarValue) + Val1 = VarValue * Math.Round(Val1 / VarValue) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) - End If + End If - ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") + ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") - Next + Next - StringClean = Join(VarArray) + StringClean = Join(VarArray) - End If + End If - ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] - ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created - ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / - 'More than one @ChangeVar[] Command can be used per line. + ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] + ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created + ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / + 'More than one @ChangeVar[] Command can be used per line. - If StringClean.Contains("@ChangeVar[") Then + If StringClean.Contains("@ChangeVar[") Then - Dim ChangeArray As String() = StringClean.Split + Dim ChangeArray As String() = StringClean.Split - For i As Integer = 0 To ChangeArray.Count - 1 + For i As Integer = 0 To ChangeArray.Count - 1 - Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) + Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) - If ChangeArray(i).Contains("@ChangeVar[") Then + If ChangeArray(i).Contains("@ChangeVar[") Then - Dim ChangeFlag As String = ChangeArray(i) - Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 + Dim ChangeFlag As String = ChangeArray(i) + Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 - Dim ChangeVar As String - Dim ChangeVal1 As String - Dim ChangeVal2 As String - Dim ChangeOperator As String + Dim ChangeVar As String + Dim ChangeVal1 As String + Dim ChangeVal2 As String + Dim ChangeOperator As String - Dim Val1 As Integer - Dim Val2 As Integer + Dim Val1 As Integer + Dim Val2 As Integer - ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) - ChangeVar = ChangeFlag.Split("]")(0) - ChangeVal1 = ChangeFlag.Split("]")(1) - ChangeVal2 = ChangeFlag.Split("]")(2) - ChangeOperator = ChangeFlag.Split("]")(2) + ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) + ChangeVar = ChangeFlag.Split("]")(0) + ChangeVal1 = ChangeFlag.Split("]")(1) + ChangeVal2 = ChangeFlag.Split("]")(2) + ChangeOperator = ChangeFlag.Split("]")(2) - ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") + ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") - ChangeVar = ChangeVar.Replace("@ChangeVar[", "") - ChangeVal1 = ChangeVal1.Replace("=[", "") - ChangeVal2 = ChangeVal2.Replace("+[", "") - ChangeVal2 = ChangeVal2.Replace("-[", "") - ChangeVal2 = ChangeVal2.Replace("*[", "") - ChangeVal2 = ChangeVal2.Replace("/[", "") + ChangeVar = ChangeVar.Replace("@ChangeVar[", "") + ChangeVal1 = ChangeVal1.Replace("=[", "") + ChangeVal2 = ChangeVal2.Replace("+[", "") + ChangeVal2 = ChangeVal2.Replace("-[", "") + ChangeVal2 = ChangeVal2.Replace("*[", "") + ChangeVal2 = ChangeVal2.Replace("/[", "") - '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] + '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] - If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) - Else - Val1 = 0 - End If + If IsNumeric(ChangeVal1) = False Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Else - Val1 = Val(ChangeVal1) + Val1 = 0 End If + Else + Val1 = Val(ChangeVal1) + End If - If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) - Else - Val2 = 0 - End If + If IsNumeric(ChangeVal2) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Else - Val2 = Val(ChangeVal2) + Val2 = 0 End If + Else + Val2 = Val(ChangeVal2) + End If - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Dim ChangeVal As Integer = 0 + Dim ChangeVal As Integer = 0 - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - End If + End If - Next + Next - End If + End If - ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] - ' More than one @ShowVar[] Commands can be used per line + ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] + ' More than one @ShowVar[] Commands can be used per line - If StringClean.Contains("@ShowVar[") Then + If StringClean.Contains("@ShowVar[") Then - Dim VarSplit As String() = StringClean.Split("]") + Dim VarSplit As String() = StringClean.Split("]") - For i As Integer = 0 To VarSplit.Count - 1 + For i As Integer = 0 To VarSplit.Count - 1 - If VarSplit(i).Contains("@ShowVar[") Then + If VarSplit(i).Contains("@ShowVar[") Then - Dim VarString As String = VarSplit(i) & "]" + Dim VarString As String = VarSplit(i) & "]" - Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") - Debug.Print("VarFlag = " & VarFlag) - Dim VarFlag2 As String = GetVariable(VarFlag) - Debug.Print("VarFlag2 = " & VarFlag2) - ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") + Debug.Print("VarFlag = " & VarFlag) + Dim VarFlag2 As String = GetVariable(VarFlag) + Debug.Print("VarFlag2 = " & VarFlag2) + ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") - StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) + StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) - End If + End If - Next + Next - End If + End If - If StringClean.Contains("@ChastityOn") Then - My.Settings.Chastity = True - FrmSettings.LBLChastityState.Text = "ON" - FrmSettings.LBLChastityState.ForeColor = Color.Green - StringClean = StringClean.Replace("@ChastityOn", "") - End If + If StringClean.Contains("@ChastityOn") Then + My.Settings.Chastity = True + FrmSettings.LBLChastityState.Text = "ON" + FrmSettings.LBLChastityState.ForeColor = Color.Green + StringClean = StringClean.Replace("@ChastityOn", "") + End If - If StringClean.Contains("@ChastityOff") Then - My.Settings.Chastity = False - FrmSettings.LBLChastityState.Text = "OFF" - FrmSettings.LBLChastityState.ForeColor = Color.Red - StringClean = StringClean.Replace("@ChastityOff", "") + If StringClean.Contains("@ChastityOff") Then + My.Settings.Chastity = False + FrmSettings.LBLChastityState.Text = "OFF" + FrmSettings.LBLChastityState.ForeColor = Color.Red + StringClean = StringClean.Replace("@ChastityOff", "") + End If + + If StringClean.Contains("@AddTokens(") Then + + Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenAdd As Integer + + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenAdd = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd + Next + Else + TokenAdd = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd End If - If StringClean.Contains("@AddTokens(") Then + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenAdd As Integer - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenAdd = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd - Next - Else - TokenAdd = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd - End If + StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") + + End If - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + If StringClean.Contains("@RemoveTokens(") Then - StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") + Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenRemove As Integer + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenRemove = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove + Next + Else + TokenRemove = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove End If + If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 + If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 + If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 - If StringClean.Contains("@RemoveTokens(") Then + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenRemove As Integer - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenRemove = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove - Next - Else - TokenRemove = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove - End If + StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") - If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 - If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 - If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 + End If - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + If StringClean.Contains("@Add1Token") Then + ssh.BronzeTokens += 1 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add1Token", "") + End If + If StringClean.Contains("@Add3Tokens") Then + ssh.BronzeTokens += 3 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add3Tokens", "") + End If - StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") + If StringClean.Contains("@Add5Tokens") Then + ssh.BronzeTokens += 5 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + StringClean = StringClean.Replace("@Add5Tokens", "") + MessageBox.Show(Me, domName.Text & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If - End If + If StringClean.Contains("@Add10Tokens") Then + ssh.BronzeTokens += 10 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add10Tokens", "") + End If - If StringClean.Contains("@Add1Token") Then - ssh.BronzeTokens += 1 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add1Token", "") - End If + If StringClean.Contains("@Add25Tokens") Then + ssh.BronzeTokens += 25 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add25Tokens", "") + End If - If StringClean.Contains("@Add3Tokens") Then - ssh.BronzeTokens += 3 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add3Tokens", "") - End If + If StringClean.Contains("@Add50Tokens") Then + ssh.BronzeTokens += 50 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - If StringClean.Contains("@Add5Tokens") Then - ssh.BronzeTokens += 5 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - StringClean = StringClean.Replace("@Add5Tokens", "") - MessageBox.Show(Me, domName.Text & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - End If + If StringClean.Contains("@Add100Tokens") Then + ssh.BronzeTokens += 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - If StringClean.Contains("@Add10Tokens") Then - ssh.BronzeTokens += 10 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add10Tokens", "") - End If + If StringClean.Contains("@Remove100Tokens") Then + ssh.BronzeTokens -= 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, domName.Text & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@@Remove100Tokens", "") + End If - If StringClean.Contains("@Add25Tokens") Then - ssh.BronzeTokens += 25 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add25Tokens", "") - End If - If StringClean.Contains("@Add50Tokens") Then - ssh.BronzeTokens += 50 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") - End If + If StringClean.Contains("@UpdateOrgasm") Then + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - If StringClean.Contains("@Add100Tokens") Then - ssh.BronzeTokens += 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") - End If + 'Github Patch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - If StringClean.Contains("@Remove100Tokens") Then - ssh.BronzeTokens -= 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@@Remove100Tokens", "") - End If + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + StringClean = StringClean.Replace("@UpdateOrgasm", "") + End If + If StringClean.Contains("@UpdateRuined") Then + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - If StringClean.Contains("@UpdateOrgasm") Then - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) + ' GithubPatch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - 'Github Patch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined + StringClean = StringClean.Replace("@UpdateRuined", "") + End If - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - StringClean = StringClean.Replace("@UpdateOrgasm", "") - End If + If StringClean.Contains("@DeleteVar[") Then - If StringClean.Contains("@UpdateRuined") Then - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) + Dim DeleteArray As String() = StringClean.Split("]") - ' GithubPatch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + For i As Integer = 0 To DeleteArray.Count - 1 - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - StringClean = StringClean.Replace("@UpdateRuined", "") - End If + If DeleteArray(i).Contains("@DeleteVar[") Then - If StringClean.Contains("@DeleteVar[") Then + DeleteArray(i) = DeleteArray(i) & "]" - Dim DeleteArray As String() = StringClean.Split("]") + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") + Dim OriginalDelete As String = DFlag - For i As Integer = 0 To DeleteArray.Count - 1 + If DFlag.Contains(",") Then - If DeleteArray(i).Contains("@DeleteVar[") Then + DFlag = FixCommas(DFlag) - DeleteArray(i) = DeleteArray(i) & "]" + Dim FlagArray() As String = DFlag.Split(",") - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") - Dim OriginalDelete As String = DFlag + For x As Integer = 0 To FlagArray.Count - 1 - If DFlag.Contains(",") Then + DeleteVariable(FlagArray(x)) - DFlag = FixCommas(DFlag) + Next - Dim FlagArray() As String = DFlag.Split(",") + Else - For x As Integer = 0 To FlagArray.Count - 1 + DeleteVariable(DFlag) - DeleteVariable(FlagArray(x)) + End If - Next + 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") - Else + StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") - DeleteVariable(DFlag) + End If - End If + Next - 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") + 'StringClean = Join(DeleteArray, Nothing) - StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") + End If - End If + If StringClean.Contains("@PornAllowedOff") Then + CreateFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOff", "") + End If - Next + If StringClean.Contains("@PornAllowedOn") Then + DeleteFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOn", "") + End If - 'StringClean = Join(DeleteArray, Nothing) + If StringClean.Contains("@RestrictOrgasm(") Then - End If + Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") - If StringClean.Contains("@PornAllowedOff") Then - CreateFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOff", "") - End If + If CheckFlag.Contains(",") Then - If StringClean.Contains("@PornAllowedOn") Then - DeleteFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOn", "") - End If + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - If StringClean.Contains("@RestrictOrgasm(") Then + Dim FlagArray() As String = CheckFlag.Split(",") - Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") + Dim Seconds1 As Integer = Val(FlagArray(0)) + Dim Seconds2 As Integer = Val(FlagArray(1)) - If CheckFlag.Contains(",") Then + If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 + If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 + If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 + If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 + If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 + If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") - - Dim FlagArray() As String = CheckFlag.Split(",") + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 - Dim Seconds1 As Integer = Val(FlagArray(0)) - Dim Seconds2 As Integer = Val(FlagArray(1)) + Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) - If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 - If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 - If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 - If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 - If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 - If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 - - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 - - Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) - - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) - Else + Else - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) - If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) + If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) - If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ + If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) - End If - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") End If + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") + End If - If StringClean.Contains("@RestrictOrgasm") Then - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm", "") - End If + If StringClean.Contains("@RestrictOrgasm") Then + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm", "") + End If - If StringClean.Contains("@DecreaseOrgasmChance") Then + If StringClean.Contains("@DecreaseOrgasmChance") Then - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") - End If + StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") + End If - If StringClean.Contains("@IncreaseOrgasmChance") Then + If StringClean.Contains("@IncreaseOrgasmChance") Then - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") - End If + StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") + End If - If StringClean.Contains("@DecreaseRuinChance") Then + If StringClean.Contains("@DecreaseRuinChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - StringClean = StringClean.Replace("@DecreaseRuinChance", "") - End If + StringClean = StringClean.Replace("@DecreaseRuinChance", "") + End If - If StringClean.Contains("@IncreaseRuinChance") Then + If StringClean.Contains("@IncreaseRuinChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - StringClean = StringClean.Replace("@IncreaseRuinChance", "") - End If + StringClean = StringClean.Replace("@IncreaseRuinChance", "") + End If - '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END + '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END - If TaskClean = True Then Return StringClean + If TaskClean = True Then Return StringClean - ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. - ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set - ' for the Variable "NoPorn" by @SetDate() + ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. + ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set + ' for the Variable "NoPorn" by @SetDate() - If StringClean.Contains("@CheckDate(") Then + If StringClean.Contains("@CheckDate(") Then - Dim CheckArray As String() = StringClean.Split(")") + Dim CheckArray As String() = StringClean.Split(")") - For i As Integer = 0 To CheckArray.Count - 1 + For i As Integer = 0 To CheckArray.Count - 1 - If CheckArray(i).Contains("@CheckDate(") Then + If CheckArray(i).Contains("@CheckDate(") Then - If CheckDateList(CheckArray(i), True) = True Then - Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") - DateFlag = FixCommas(DateFlag) - Dim DateArray As String() = DateFlag.Split(",") - ssh.SkipGotoLine = True - ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") - GetGoto() - End If + If CheckDateList(CheckArray(i), True) = True Then + Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") + DateFlag = FixCommas(DateFlag) + Dim DateArray As String() = DateFlag.Split(",") + ssh.SkipGotoLine = True + ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") + GetGoto() + End If - StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") + StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") - End If + End If - Next + Next - End If + End If - ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) - ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. - ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> - ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. + ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) + ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. + ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> + ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - If StringClean.Contains("@If[") Then + If StringClean.Contains("@If[") Then - Do + Do - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" - - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") - End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" + + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") End If - Next - - If SCGotVar.Contains("]And[") Then + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) + Do + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") + Exit For + End If + Next - Dim AndCheck As Boolean = True + If SCGotVar.Contains("]And[") Then - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") - Next + Dim AndCheck As Boolean = True - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next - ElseIf SCGotVar.Contains("]Or[") Then - - Dim OrCheck As Boolean = False - - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + ElseIf SCGotVar.Contains("]Or[") Then - Else + Dim OrCheck As Boolean = False + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() + OrCheck = True + Exit For End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - Loop Until Not StringClean.Contains("@If") - - End If - - ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. - ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the - ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next - ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. + Else - If StringClean.Contains("@InputVar[") Then + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") - ssh.InputFlag = True - If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True + End If - StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") + Loop Until Not StringClean.Contains("@If") - End If + End If + ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. + ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the + ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next + ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. - ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt + If StringClean.Contains("@InputVar[") Then - If StringClean.Contains("@DislikeBlogImage") Then + ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") + ssh.InputFlag = True + If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True - If ssh.ImageLocation <> "" Then + StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) - End If - StringClean = StringClean.Replace("@DislikeBlogImage", "") - End If + End If - End If - ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt + ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt - If StringClean.Contains("@LikeBlogImage") Then + If StringClean.Contains("@DislikeBlogImage") Then - If ssh.ImageLocation <> "" Then + If ssh.ImageLocation <> "" Then - If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) - End If - StringClean = StringClean.Replace("@LikeBlogImage", "") + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) End If - + StringClean = StringClean.Replace("@DislikeBlogImage", "") End If - Debug.Print("SubStroking = " & ssh.SubStroking) - Debug.Print("SubEdging = " & ssh.SubEdging) - Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) + End If - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ + ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - If StringClean.Contains("@StrokeFaster") Then - ssh.StrokeFaster = True - StringClean = StringClean.Replace("@StrokeFaster", "") - End If + If StringClean.Contains("@LikeBlogImage") Then - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ + If ssh.ImageLocation <> "" Then - If StringClean.Contains("@StrokeSlower") Then - ssh.StrokeSlower = True - StringClean = StringClean.Replace("@StrokeSlower", "") + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) + End If + StringClean = StringClean.Replace("@LikeBlogImage", "") End If - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ + End If - If StringClean.Contains("@StrokeFastest") Then - ssh.StrokeFastest = True - StringClean = StringClean.Replace("@StrokeFastest", "") - End If + Debug.Print("SubStroking = " & ssh.SubStroking) + Debug.Print("SubEdging = " & ssh.SubEdging) + Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ - If StringClean.Contains("@StrokeSlowest") Then - ssh.StrokeSlowest = True - StringClean = StringClean.Replace("@StrokeSlowest", "") - End If + If StringClean.Contains("@StrokeFaster") Then + ssh.StrokeFaster = True + StringClean = StringClean.Replace("@StrokeFaster", "") + End If + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ - If StringClean.Contains("@StartStroking") Then + If StringClean.Contains("@StrokeSlower") Then + ssh.StrokeSlower = True + StringClean = StringClean.Replace("@StrokeSlower", "") + End If - If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) - End If + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) + If StringClean.Contains("@StrokeFastest") Then + ssh.StrokeFastest = True + StringClean = StringClean.Replace("@StrokeFastest", "") + End If - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try - End If - If StringClean.Contains("@Contact1") Then ssh.Contact1Stroke = True - If StringClean.Contains("@Contact2") Then ssh.Contact2Stroke = True - If StringClean.Contains("@Contact3") Then ssh.Contact3Stroke = True - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 - If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ - If ssh.WorshipMode = True Then - StrokePace = NBMinPace.Value - ssh.StrokeSlowest = True - End If + If StringClean.Contains("@StrokeSlowest") Then + ssh.StrokeSlowest = True + StringClean = StringClean.Replace("@StrokeSlowest", "") + End If - ClearModes() - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - - If ssh.WorshipMode = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 - End If + If StringClean.Contains("@StartStroking") Then - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 - End If + If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) + End If + SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try + End If + If StringClean.Contains("@Contact1") Then ssh.Contact1Stroke = True + If StringClean.Contains("@Contact2") Then ssh.Contact2Stroke = True + If StringClean.Contains("@Contact3") Then ssh.Contact3Stroke = True + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 + If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - 'StrokeThread = New Thread(AddressOf StrokeLoop) - 'StrokeThread.IsBackground = True - 'StrokeThread.SetApartmentState(ApartmentState.STA) - 'StrokeThread.Start() - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartStroking", "") + If ssh.WorshipMode = True Then + StrokePace = NBMinPace.Value + ssh.StrokeSlowest = True End If - If StringClean.Contains("@StartTaunts") Then - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - ssh.StartStrokingCount += 1 - ' github patch StrokePace = 0 - ' github patch StrokePaceTimer.Interval = StrokePace + ClearModes() - ClearModes() + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + If ssh.WorshipMode = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 End If - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartTaunts", "") - End If - If StringClean.Contains("@StopStroking") Then - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If - If ssh.Contact1Stroke = True Then - StringClean = StringClean & "@Contact1" - ssh.Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - StringClean = StringClean & "@Contact2" - ssh.Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - StringClean = StringClean & "@Contact3" - ssh.Contact3Stroke = False - End If - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False - ssh.ExtremeHold = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - StrokePace = 0 - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopStroking", "") + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 End If - If StringClean.Contains("@StopTaunts") Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopTaunts", "") - End If - If StringClean.Contains("@LongHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.LongHold = True + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + 'StrokeThread = New Thread(AddressOf StrokeLoop) + 'StrokeThread.IsBackground = True + 'StrokeThread.SetApartmentState(ApartmentState.STA) + 'StrokeThread.Start() + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartStroking", "") + End If - StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") - End If + If StringClean.Contains("@StartTaunts") Then + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + ssh.StartStrokingCount += 1 + ' github patch StrokePace = 0 + ' github patch StrokePaceTimer.Interval = StrokePace - If StringClean.Contains("@ExtremeHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True + ClearModes() - StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) End If + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartTaunts", "") + End If - If StringClean.Contains("@LongHold") Then - ssh.LongHold = True - StringClean = StringClean.Replace("@LongHold", "") + If StringClean.Contains("@StopStroking") Then + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try End If - - If StringClean.Contains("@ExtremeHold") Then - ssh.ExtremeHold = True - StringClean = StringClean.Replace("@ExtremeHold", "") + If ssh.Contact1Stroke = True Then + StringClean = StringClean & "@Contact1" + ssh.Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + StringClean = StringClean & "@Contact2" + ssh.Contact2Stroke = False End If + If ssh.Contact3Stroke = True Then + StringClean = StringClean & "@Contact3" + ssh.Contact3Stroke = False + End If + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False + ssh.ExtremeHold = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + StrokePace = 0 + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopStroking", "") + End If + + If StringClean.Contains("@StopTaunts") Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopTaunts", "") + End If + - If StringClean.Contains("@MultipleEdges(") Then + If StringClean.Contains("@LongHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.LongHold = True - If StringClean.Contains("@Edg") Then + StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") + End If - Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") + If StringClean.Contains("@ExtremeHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True - If EdgeArray.Count = 3 Then + StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") + End If - If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then - ssh.MultipleEdges = True - ssh.MultipleEdgesAmount = Val(EdgeArray(0)) - ssh.MultipleEdgesInterval = Val(EdgeArray(1)) - End If + If StringClean.Contains("@LongHold") Then + ssh.LongHold = True + StringClean = StringClean.Replace("@LongHold", "") + End If - Else + If StringClean.Contains("@ExtremeHold") Then + ssh.ExtremeHold = True + StringClean = StringClean.Replace("@ExtremeHold", "") + End If + + If StringClean.Contains("@MultipleEdges(") Then + + If StringClean.Contains("@Edg") Then + Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") + + If EdgeArray.Count = 3 Then + + If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then ssh.MultipleEdges = True ssh.MultipleEdgesAmount = Val(EdgeArray(0)) ssh.MultipleEdgesInterval = Val(EdgeArray(1)) - End If - End If + Else + + ssh.MultipleEdges = True + ssh.MultipleEdgesAmount = Val(EdgeArray(0)) + ssh.MultipleEdgesInterval = Val(EdgeArray(1)) - StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") + End If End If + StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") - If StringClean.Contains("@Edge(") Then + End If - ContactEdgeCheck(StringClean) - Edge() + If StringClean.Contains("@Edge(") Then - If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True - If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True - If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False + ContactEdgeCheck(StringClean) - If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True + Edge() - If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True + If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True + If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True + If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False - If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True + If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True - If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False + If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True - If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then - If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False - End If + If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True - If GetMatch(StringClean, "@Edge(", "LongHold") = True Then - ssh.EdgeHold = True - ssh.LongHold = True - End If - If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then - ssh.EdgeHold = True - ssh.ExtremeHold = True - End If - If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True Then - If ssh.LongHold = True Then ssh.LongTaunts = True - End If + If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False + If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then + If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False End If + If GetMatch(StringClean, "@Edge(", "LongHold") = True Then + ssh.EdgeHold = True + ssh.LongHold = True + End If + If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then + ssh.EdgeHold = True + ssh.ExtremeHold = True + End If + If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True Then + If ssh.LongHold = True Then ssh.LongTaunts = True + End If + End If - If StringClean.Contains("@EdgeMode(") Then - - Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") - - If UCase(EdgeArray(0)).Contains("GOTO") Then - ssh.EdgeGoto = True - ssh.EdgeGotoLine = EdgeArray(1) - End If - If UCase(EdgeArray(0)).Contains("MESSAGE") Then - ssh.EdgeMessage = True - ssh.EdgeMessageText = EdgeArray(1) - End If - If UCase(EdgeArray(0)).Contains("VIDEO") Then - ssh.EdgeVideo = True - ssh.EdgeGotoLine = EdgeArray(1) - End If + If StringClean.Contains("@EdgeMode(") Then - If UCase(EdgeArray(0)).Contains("NORMAL") Then - ssh.EdgeGoto = False - ssh.EdgeMessage = False - ssh.EdgeVideo = False - End If + Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") - StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") + If UCase(EdgeArray(0)).Contains("GOTO") Then + ssh.EdgeGoto = True + ssh.EdgeGotoLine = EdgeArray(1) End If - If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") + If UCase(EdgeArray(0)).Contains("MESSAGE") Then + ssh.EdgeMessage = True + ssh.EdgeMessageText = EdgeArray(1) End If - If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then - - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") + If UCase(EdgeArray(0)).Contains("VIDEO") Then + ssh.EdgeVideo = True + ssh.EdgeGotoLine = EdgeArray(1) + End If - If EdgeHoldFlag.Contains(",") Then + If UCase(EdgeArray(0)).Contains("NORMAL") Then + ssh.EdgeGoto = False + ssh.EdgeMessage = False + ssh.EdgeVideo = False + End If - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") + End If - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") + End If - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + If EdgeHoldFlag.Contains(",") Then - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - Else + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - End If + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - EdgeHoldFlag = True + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") - End If + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + Else + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") End If - If StringClean.Contains("@EdgeToRuinNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuinSecret = False - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") - End If + EdgeHoldFlag = True + + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") + End If - If StringClean.Contains("@EdgeToRuinNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") - End If - If StringClean.Contains("@EdgeToRuinHold(") Then - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") + If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") + End If - If EdgeHoldFlag.Contains(",") Then + If StringClean.Contains("@EdgeToRuinNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuinSecret = False + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") + End If - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + If StringClean.Contains("@EdgeToRuinNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") + End If - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If StringClean.Contains("@EdgeToRuinHold(") Then - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + If EdgeHoldFlag.Contains(",") Then - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - Else + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - End If + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - EdgeHoldFlag = True + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True + Else - StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") - End If + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - If StringClean.Contains("@EdgeToRuinHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinHold", "") End If - If StringClean.Contains("@EdgeToRuin") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuin", "") - End If + EdgeHoldFlag = True - If StringClean.Contains("@EdgeNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - StringClean = StringClean.Replace("@EdgeNoHold", "") - End If + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") + End If - ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well - ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds - ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes - ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D - ' - 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. + If StringClean.Contains("@EdgeToRuinHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinHold", "") + End If - If StringClean.Contains("@EdgeHold(") Then + If StringClean.Contains("@EdgeToRuin") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuin", "") + End If - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") + If StringClean.Contains("@EdgeNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + StringClean = StringClean.Replace("@EdgeNoHold", "") + End If - If EdgeHoldFlag.Contains(",") Then - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well + ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds + ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes + ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D + ' + 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If StringClean.Contains("@EdgeHold(") Then - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + If EdgeHoldFlag.Contains(",") Then - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - Else + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - End If + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - EdgeHoldFlag = True + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + Else - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 End If + EdgeHoldFlag = True - If StringClean.Contains("@EdgeHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold", "") - End If - If StringClean.Contains("@Edge") Then - ContactEdgeCheck(StringClean) - Edge() - StringClean = StringClean.Replace("@Edge", "") - End If + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") - If StringClean.Contains("@CBTBalls") Then - If FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBallsActive = True - ssh.CBTBallsFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If - StringClean = StringClean.Replace("@CBTBalls", "") - End If + End If - If StringClean.Contains("@CBTCock") Then - If FrmSettings.CBCBTCock.Checked = True Then - ssh.CBTCockActive = True - ssh.CBTCockFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If - StringClean = StringClean.Replace("@CBTCock", "") - End If - If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then + If StringClean.Contains("@EdgeHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold", "") + End If - If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBothActive = True - ssh.CBTBothFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If + If StringClean.Contains("@Edge") Then + ContactEdgeCheck(StringClean) + Edge() + StringClean = StringClean.Replace("@Edge", "") + End If + + If StringClean.Contains("@CBTBalls") Then + If FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBallsActive = True + ssh.CBTBallsFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If + StringClean = StringClean.Replace("@CBTBalls", "") + End If - StringClean = StringClean.Replace("@CBT", "") + If StringClean.Contains("@CBTCock") Then + If FrmSettings.CBCBTCock.Checked = True Then + ssh.CBTCockActive = True + ssh.CBTCockFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If + StringClean = StringClean.Replace("@CBTCock", "") + End If + If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then - ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, - ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. + If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBothActive = True + ssh.CBTBothFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If - If StringClean.Contains("@CustomTask(") Then + StringClean = StringClean.Replace("@CBT", "") + End If - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") - CustomFlag = FixCommas(CustomFlag) + ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, + ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. - Dim CustomArray As String() = CustomFlag.Split(",") + If StringClean.Contains("@CustomTask(") Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then - ssh.CustomTask = True - ssh.CustomTaskActive = True - ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" - ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" - End If + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") - If CustomArray.Count > 1 Then - ssh.TasksCount = Val(CustomArray(1)) - Else - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If + CustomFlag = FixCommas(CustomFlag) + Dim CustomArray As String() = CustomFlag.Split(",") - StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then + ssh.CustomTask = True + ssh.CustomTaskActive = True + ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" + ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" + End If + If CustomArray.Count > 1 Then + ssh.TasksCount = Val(CustomArray(1)) + Else + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If - If StringClean.Contains("@DecideOrgasm") Then + StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") - ssh.OrgasmDenied = False - ssh.OrgasmAllowed = False - ssh.OrgasmRuined = False + End If - Dim AllowGoto As String = "Orgasm Allow" - Dim RuinGoto As String = "Orgasm Ruin" - Dim DenyGoto As String = "Orgasm Deny" - If StringClean.Contains("@DecideOrgasm(") Then + If StringClean.Contains("@DecideOrgasm") Then - Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") - OrgasmFlag = FixCommas(OrgasmFlag) - Dim OrgasmArray As String() = OrgasmFlag.Split(",") + ssh.OrgasmDenied = False + ssh.OrgasmAllowed = False + ssh.OrgasmRuined = False - If OrgasmArray.Count = 3 Then - AllowGoto = OrgasmArray(0) - RuinGoto = OrgasmArray(1) - DenyGoto = OrgasmArray(2) - End If + Dim AllowGoto As String = "Orgasm Allow" + Dim RuinGoto As String = "Orgasm Ruin" + Dim DenyGoto As String = "Orgasm Deny" - End If + If StringClean.Contains("@DecideOrgasm(") Then + Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") + OrgasmFlag = FixCommas(OrgasmFlag) + Dim OrgasmArray As String() = OrgasmFlag.Split(",") - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True - GoTo OrgasmDecided + If OrgasmArray.Count = 3 Then + AllowGoto = OrgasmArray(0) + RuinGoto = OrgasmArray(1) + DenyGoto = OrgasmArray(2) End If - Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim OrgasmThreshold As Integer - - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 - - If FrmSettings.CBRangeOrgasm.Checked = True Then - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 - Else - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value - End If + End If - If OrgasmInt > OrgasmThreshold Then - ssh.FileGoto = DenyGoto - ssh.OrgasmDenied = True - GoTo OrgasmDecided - End If + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then + ssh.FileGoto = RuinGoto + ssh.OrgasmRuined = True + GoTo OrgasmDecided + End If - Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim RuinThreshold As Integer + Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim OrgasmThreshold As Integer - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 + If FrmSettings.CBRangeOrgasm.Checked = True Then + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 + Else + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value + End If - If FrmSettings.CBRangeRuin.Checked = True Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 - Else - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value - End If + If OrgasmInt > OrgasmThreshold Then + ssh.FileGoto = DenyGoto + ssh.OrgasmDenied = True + GoTo OrgasmDecided + End If - If RuinInt > RuinThreshold Then - ssh.FileGoto = AllowGoto - ssh.OrgasmAllowed = True - Else - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True - End If + Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim RuinThreshold As Integer -OrgasmDecided: + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@DecideOrgasm", "") + If FrmSettings.CBRangeRuin.Checked = True Then + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 + Else + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value End If - If StringClean.Contains("@OrgasmRuin") Then - ssh.FileGoto = "Orgasm Ruin" + If RuinInt > RuinThreshold Then + ssh.FileGoto = AllowGoto + ssh.OrgasmAllowed = True + Else + ssh.FileGoto = RuinGoto ssh.OrgasmRuined = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmRuin", "") End If - If StringClean.Contains("@OrgasmDeny") Then - ssh.FileGoto = "Orgasm Deny" - ssh.OrgasmDenied = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmDeny", "") - End If +OrgasmDecided: - If StringClean.Contains("@OrgasmAllow") Then - ssh.FileGoto = "Orgasm Allow" - ssh.OrgasmAllowed = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmAllow", "") - End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@DecideOrgasm", "") + End If - ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) - ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. + If StringClean.Contains("@OrgasmRuin") Then + ssh.FileGoto = "Orgasm Ruin" + ssh.OrgasmRuined = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmRuin", "") + End If - If StringClean.Contains("@Glitter(") Then + If StringClean.Contains("@OrgasmDeny") Then + ssh.FileGoto = "Orgasm Deny" + ssh.OrgasmDenied = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmDeny", "") + End If - ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") - Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") + If StringClean.Contains("@OrgasmAllow") Then + ssh.FileGoto = "Orgasm Allow" + ssh.OrgasmAllowed = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmAllow", "") + End If - If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then - ssh.UpdateList.Clear() - ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") - StatusUpdatePost() - End If - End If - StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") + ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) + ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. + + If StringClean.Contains("@Glitter(") Then + + ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") + Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") + + If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then + ssh.UpdateList.Clear() + ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") + StatusUpdatePost() + End If End If + StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") + End If - If StringClean.Contains("@WritingTask(") Then - ssh.WritingTaskFlag = True - Dim WTTempString As String() = Split(StringClean, "@WritingTask(", 2) - Dim WTTemp As String() = Split(WTTempString(1), ")") - LBLWritingTaskText.Text = WTTemp(0) - LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) - LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) - LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") + If StringClean.Contains("@WritingTask(") Then - Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) - 'Debug.Print("WritingTaskVal = " & WritingTaskVal) + ssh.WritingTaskFlag = True - If WritingTaskVal = 0 Then - ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) - ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) - Else - ssh.WritingTaskLinesAmount = WritingTaskVal - LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") - End If + Dim WTTempString As String() = Split(StringClean, "@WritingTask(", 2) + Dim WTTemp As String() = Split(WTTempString(1), ")") + LBLWritingTaskText.Text = WTTemp(0) + LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") - LBLLinesWritten.Text = "0" - LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount + Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) + 'Debug.Print("WritingTaskVal = " & WritingTaskVal) - If PNLWritingTask.Visible = False Then - CloseApp(PNLWritingTask) - End If + If WritingTaskVal = 0 Then + ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) + ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) + Else + ssh.WritingTaskLinesAmount = WritingTaskVal + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") + End If - 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) + LBLLinesWritten.Text = "0" + LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount - 'determine error numbers based on numbers of lines to write - ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) - 'clamps the value between 2 and 10 errors - ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) - ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) + If PNLWritingTask.Visible = False Then + CloseApp(PNLWritingTask) + End If - LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed - LBLMistakesMade.Text = "0" - StringClean = StringClean.Replace("@WritingTask", "") - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." - ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount - ssh.WritingTaskLinesWritten = 0 - ssh.WritingTaskMistakesMade = 0 - chatBox.ShortcutsEnabled = False - ChatBox2.ShortcutsEnabled = False + 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) - If My.Settings.TimedWriting = True Then + 'determine error numbers based on numbers of lines to write + ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) + 'clamps the value between 2 and 10 errors + ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) + ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) - Dim secs As Single + LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed + LBLMistakesMade.Text = "0" + StringClean = StringClean.Replace("@WritingTask", "") + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." + ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount + ssh.WritingTaskLinesWritten = 0 + ssh.WritingTaskMistakesMade = 0 + chatBox.ShortcutsEnabled = False + ChatBox2.ShortcutsEnabled = False - 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings - '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) - secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * LBLWritingTaskText.Text.Length - 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some - 'more time for very short lines - ssh.WritingTaskCurrentTime = 5 + secs * ssh.WritingTaskLinesAmount + If My.Settings.TimedWriting = True Then - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") - Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") - End If + Dim secs As Single + + 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings + '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) + secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * LBLWritingTaskText.Text.Length + 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some + 'more time for very short lines + ssh.WritingTaskCurrentTime = 5 + secs * ssh.WritingTaskLinesAmount + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") + Else + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") End If - If StringClean.Contains("@CheckJOIVideo") Then + End If - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then - Else - ssh.SkipGotoLine = True - ssh.FileGoto = "No JOI Found" - GetGoto() - End If + If StringClean.Contains("@CheckJOIVideo") Then + + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then Else ssh.SkipGotoLine = True ssh.FileGoto = "No JOI Found" GetGoto() End If - - StringClean = StringClean.Replace("@CheckJOIVideo", "") - + Else + ssh.SkipGotoLine = True + ssh.FileGoto = "No JOI Found" + GetGoto() End If + StringClean = StringClean.Replace("@CheckJOIVideo", "") - If StringClean.Contains("@PlayJOIVideo") Then + End If - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - ssh.TeaseVideo = True - PlayRandomJOI() - End If + If StringClean.Contains("@PlayJOIVideo") Then - StringClean = StringClean.Replace("@PlayJOIVideo", "") + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + ssh.TeaseVideo = True + PlayRandomJOI() End If - If StringClean.Contains("@PlayCHVideo") Then + StringClean = StringClean.Replace("@PlayJOIVideo", "") - If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then + End If - ssh.TeaseVideo = True - PlayRandomCH() - End If + If StringClean.Contains("@PlayCHVideo") Then - StringClean = StringClean.Replace("@PlayCHVideo", "") + If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then + ssh.TeaseVideo = True + PlayRandomCH() End If + StringClean = StringClean.Replace("@PlayCHVideo", "") + End If - If StringClean.Contains("@GiveUpCheck") Then - If ssh.AskedToGiveUpSection = True Then + If StringClean.Contains("@GiveUpCheck") Then - If ssh.SubGaveUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" - Else - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" - End If - 'StringClean = ResponseClean(StringClean) + If ssh.AskedToGiveUpSection = True Then + + If ssh.SubGaveUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" Else + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" + End If + 'StringClean = ResponseClean(StringClean) - ssh.AskedToGiveUpSection = True - ssh.AskedToGiveUp = True + Else - Dim GiveUpCheck As Integer + ssh.AskedToGiveUpSection = True + ssh.AskedToGiveUp = True - If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 - If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 - If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 - If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 - If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 + Dim GiveUpCheck As Integer - Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) + If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 + If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 + If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 + If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 + If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 - 'If GiveUpVal > GiveUpCheck Then - If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then - ' you can give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.SubGaveUp = True - ssh.FirstRound = False - Else - ' you can't give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" + Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) + + 'If GiveUpVal > GiveUpCheck Then + If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then + ' you can give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If + ssh.SubGaveUp = True + ssh.FirstRound = False + Else + ' you can't give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" + End If - End If + End If - StringClean = ResponseClean(StringClean) + StringClean = ResponseClean(StringClean) - End If + End If - If StringClean.Contains("@EndTease") Then - SetVariable("SYS_SubLeftEarly", 0) - 'My.Settings.Sys_SubLeftEarly = 0 - 'StopEverything() - 'ResetButton() - ssh.Reset() - FrmSettings.LockOrgasmChances(False) - ssh.DomTask = "@SystemMessage Tease AI has been reset" - ssh.DomChat = "@SystemMessage Tease AI has been reset" - StringClean = StringClean.Replace("@EndTease", "") - End If + If StringClean.Contains("@EndTease") Then + SetVariable("SYS_SubLeftEarly", 0) + 'My.Settings.Sys_SubLeftEarly = 0 + 'StopEverything() + 'ResetButton() + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + ssh.DomTask = "@SystemMessage Tease AI has been reset" + ssh.DomChat = "@SystemMessage Tease AI has been reset" + StringClean = StringClean.Replace("@EndTease", "") + End If - If StringClean.Contains("@FinishTease") Then - ssh.TeaseTick = 0 - StringClean = StringClean.Replace("@FinishTease", "") - End If + If StringClean.Contains("@FinishTease") Then + ssh.TeaseTick = 0 + StringClean = StringClean.Replace("@FinishTease", "") + End If - If StringClean.Contains("@DommeLevelDown") Then - If FrmSettings.domlevelNumBox.Value > 1 Then - FrmSettings.domlevelNumBox.Value -= 1 - End If - StringClean = StringClean.Replace("@DommeLevelDown", "") + If StringClean.Contains("@DommeLevelDown") Then + If FrmSettings.domlevelNumBox.Value > 1 Then + FrmSettings.domlevelNumBox.Value -= 1 End If + StringClean = StringClean.Replace("@DommeLevelDown", "") + End If - If StringClean.Contains("@ApathyLevelDown") Then - If FrmSettings.NBEmpathy.Value > 1 Then - FrmSettings.NBEmpathy.Value -= 1 - End If - StringClean = StringClean.Replace("@ApathyLevelDown", "") + If StringClean.Contains("@ApathyLevelDown") Then + If FrmSettings.NBEmpathy.Value > 1 Then + FrmSettings.NBEmpathy.Value -= 1 End If + StringClean = StringClean.Replace("@ApathyLevelDown", "") + End If - If StringClean.Contains("@DommeLevelUp") Then - If FrmSettings.domlevelNumBox.Value < 5 Then - FrmSettings.domlevelNumBox.Value += 1 - End If - StringClean = StringClean.Replace("@DommeLevelUp", "") + If StringClean.Contains("@DommeLevelUp") Then + If FrmSettings.domlevelNumBox.Value < 5 Then + FrmSettings.domlevelNumBox.Value += 1 End If + StringClean = StringClean.Replace("@DommeLevelUp", "") + End If - If StringClean.Contains("@ApathyLevelUp") Then - If FrmSettings.NBEmpathy.Value < 5 Then - FrmSettings.NBEmpathy.Value += 1 - End If - StringClean = StringClean.Replace("@ApathyLevelUp", "") + If StringClean.Contains("@ApathyLevelUp") Then + If FrmSettings.NBEmpathy.Value < 5 Then + FrmSettings.NBEmpathy.Value += 1 End If + StringClean = StringClean.Replace("@ApathyLevelUp", "") + End If - If StringClean.Contains("@InterruptLongEdge") Then + If StringClean.Contains("@InterruptLongEdge") Then - Dim EdgeList As New List(Of String) + Dim EdgeList As New List(Of String) - For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - EdgeList.Add(EdgeFile) - Next + For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + EdgeList.Add(EdgeFile) + Next - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - If EdgeList.Count > 0 Then + If EdgeList.Count > 0 Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) - ssh.LockImage = False - ssh.MiniScript = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) + ssh.LockImage = False + ssh.MiniScript = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - StringClean = StringClean.Replace("@InterruptLongEdge", "") - ssh.JustShowedBlogImage = True End If + StringClean = StringClean.Replace("@InterruptLongEdge", "") + ssh.JustShowedBlogImage = True + End If - If StringClean.Contains("@InterruptStartStroking") Then - - If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then - StringClean = "Ask me later" - GoTo VTSkip - End If - - Dim StrokeList As New List(Of String) + If StringClean.Contains("@InterruptStartStroking") Then - For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - StrokeList.Add(StrokeFile) - Next + If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then + StringClean = "Ask me later" + GoTo VTSkip + End If - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) + Dim StrokeList As New List(Of String) - If StrokeList.Count > 0 Then + For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + StrokeList.Add(StrokeFile) + Next - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True - ssh.MiniScript = False + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - StringClean = StringClean.Replace("@InterruptStartStroking", "") - ssh.JustShowedBlogImage = True - End If + If StrokeList.Count > 0 Then - If StringClean.Contains("@Interrupt(") Then - Dim InterruptClean As String = StringClean - Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 - For i As Integer = 1 To StartIndex - InterruptClean = InterruptClean.Remove(0, 1) - Next - Dim InterruptS As String() = InterruptClean.Split(")") - InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True + ssh.MiniScript = False - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + StringClean = StringClean.Replace("@InterruptStartStroking", "") + ssh.JustShowedBlogImage = True + End If - ssh.FirstRound = False - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() + If StringClean.Contains("@Interrupt(") Then + Dim InterruptClean As String = StringClean + Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 + For i As Integer = 1 To StartIndex + InterruptClean = InterruptClean.Remove(0, 1) + Next + Dim InterruptS As String() = InterruptClean.Split(")") + InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then - ssh.FileText = InterruptClean - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True + ssh.FirstRound = False + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + + ssh.FileText = InterruptClean + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - ssh.MiniScript = False + ssh.MiniScript = False - Else - MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ + Else + MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") - 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") - ssh.JustShowedBlogImage = True End If + StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") + 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") + ssh.JustShowedBlogImage = True + End If - If StringClean.Contains("@BookmarkModule") Then - ssh.BookmarkModule = True - ssh.BookmarkModuleFile = ssh.FileText - ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkModule", "") - End If + If StringClean.Contains("@BookmarkModule") Then + ssh.BookmarkModule = True + ssh.BookmarkModuleFile = ssh.FileText + ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkModule", "") + End If - If StringClean.Contains("@BookmarkLink") Then - ssh.BookmarkLink = True - ssh.BookmarkLinkFile = ssh.FileText - ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkLink", "") - End If + If StringClean.Contains("@BookmarkLink") Then + ssh.BookmarkLink = True + ssh.BookmarkLinkFile = ssh.FileText + ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkLink", "") + End If + + If StringClean.Contains("@AFKOn") Then + ssh.AFK = True + StringClean = StringClean.Replace("@AFKOn", "") + End If - If StringClean.Contains("@AFKOn") Then - ssh.AFK = True - StringClean = StringClean.Replace("@AFKOn", "") + If StringClean.Contains("@AFKOff") Then + ssh.AFK = False + StringClean = StringClean.Replace("@AFKOff", "") + End If + + If StringClean.Contains("@Wait(") Then + + Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") + Dim WaitSeconds As Integer = Val(WaitFlag) + + If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 + If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 + + ssh.WaitTick = WaitSeconds + WaitTimer.Start() + + StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") + + End If + + + + If StringClean.Contains("@SendDailyTasks") Then + CreateTaskLetter() + StringClean = StringClean.Replace("@SendDailyTasks", "") + End If + + If StringClean.Contains("@EdgingHold") Then + + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + ssh.SubHoldingEdge = True + EdgeTauntTimer.Stop() + 'DomChat = "#HoldTheEdge" + 'TypingDelay() + + ssh.HoldEdgeTick = ssh.HoldEdgeChance + + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + + If ssh.ExtremeHold = True Then + HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 End If - If StringClean.Contains("@AFKOff") Then - ssh.AFK = False - StringClean = StringClean.Replace("@AFKOff", "") + If ssh.LongHold = True Then + HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 End If - If StringClean.Contains("@Wait(") Then - Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") - Dim WaitSeconds As Integer = Val(WaitFlag) + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 - If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 + ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - ssh.WaitTick = WaitSeconds - WaitTimer.Start() + ssh.HoldEdgeTime = 0 - StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") + HoldEdgeTimer.Start() + HoldEdgeTauntTimer.Start() - End If + Do + Application.DoEvents() + Loop Until ssh.DomTypeCheck = False + StringClean = StringClean.Replace("@EdgingHold", "") + End If - If StringClean.Contains("@SendDailyTasks") Then - CreateTaskLetter() - StringClean = StringClean.Replace("@SendDailyTasks", "") - End If + If StringClean.Contains("@EdgingStop") Then + + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() + 'DomChat = "#StopStrokingEdge" + 'TypingDelay() + + Do + Application.DoEvents() + Loop Until ssh.DomTypeCheck = False - If StringClean.Contains("@EdgingHold") Then + StringClean = StringClean.Replace("@EdgingStop", "") + End If + + 'Github Patch If StringClean.Contains("@EdgingDecide") Then + If StringClean.Contains("@DecideEdge") Then + + ssh.TempVal = ssh.randomizer.Next(0, 101) + + If ssh.TempVal < 51 Then ssh.DomTypeCheck = True ssh.SubEdging = False ssh.SubStroking = False ssh.SubHoldingEdge = True EdgeTauntTimer.Stop() - 'DomChat = "#HoldTheEdge" - 'TypingDelay() + StrokePace = 0 + ssh.DomChat = "#HoldTheEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #HoldTheEdge" + ' Github Patch Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #HoldTheEdge" + ' Github Patch Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #HoldTheEdge" + ' Github Patch Contact3Stroke = False + End If + TypingDelay() ssh.HoldEdgeTick = ssh.HoldEdgeChance @@ -11254,17 +11350,6 @@ OrgasmDecided: Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 - If ssh.ExtremeHold = True Then - HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 - End If - - If ssh.LongHold = True Then - HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 - End If - - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) @@ -11275,1741 +11360,1671 @@ OrgasmDecided: HoldEdgeTimer.Start() HoldEdgeTauntTimer.Start() - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False - - - StringClean = StringClean.Replace("@EdgingHold", "") - End If - - If StringClean.Contains("@EdgingStop") Then + Else ssh.DomTypeCheck = True ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() - 'DomChat = "#StopStrokingEdge" - 'TypingDelay() - - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + ssh.DomChat = "#StopStrokingEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #StopStrokingEdge" + ssh.Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #StopStrokingEdge" + ssh.Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #StopStrokingEdge" + ssh.Contact3Stroke = False + End If + TypingDelay() - StringClean = StringClean.Replace("@EdgingStop", "") End If - 'Github Patch If StringClean.Contains("@EdgingDecide") Then - If StringClean.Contains("@DecideEdge") Then - - ssh.TempVal = ssh.randomizer.Next(0, 101) - - If ssh.TempVal < 51 Then - - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - ssh.SubHoldingEdge = True - EdgeTauntTimer.Stop() - StrokePace = 0 - ssh.DomChat = "#HoldTheEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #HoldTheEdge" - ' Github Patch Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #HoldTheEdge" - ' Github Patch Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #HoldTheEdge" - ' Github Patch Contact3Stroke = False - End If - TypingDelay() - - ssh.HoldEdgeTick = ssh.HoldEdgeChance - - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 - - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - - ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - - ssh.HoldEdgeTime = 0 - - HoldEdgeTimer.Start() - HoldEdgeTauntTimer.Start() - - Else - - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() - ssh.DomChat = "#StopStrokingEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #StopStrokingEdge" - ssh.Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #StopStrokingEdge" - ssh.Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #StopStrokingEdge" - ssh.Contact3Stroke = False - End If - TypingDelay() - - End If - - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + Do + Application.DoEvents() + Loop Until ssh.DomTypeCheck = False - StringClean = StringClean.Replace("@DecideEdge", "") - End If + StringClean = StringClean.Replace("@DecideEdge", "") + End If - If StringClean.Contains("@CheckVideo") Then - ssh.VideoCheck = True - RandomVideo() - If ssh.NoVideo = True Then - ssh.FileGoto = "(No Videos Found)" - Else - ssh.FileGoto = "(Videos Found)" - End If - ssh.VideoCheck = False - ssh.NoVideo = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckVideo", "") + If StringClean.Contains("@CheckVideo") Then + ssh.VideoCheck = True + RandomVideo() + If ssh.NoVideo = True Then + ssh.FileGoto = "(No Videos Found)" + Else + ssh.FileGoto = "(Videos Found)" End If + ssh.VideoCheck = False + ssh.NoVideo = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckVideo", "") + End If - If StringClean.Contains("@PlayCensorshipSucks") Then - - RandomVideo() + If StringClean.Contains("@PlayCensorshipSucks") Then - If ssh.NoVideo = False Then - ssh.ScriptVideoTease = "Censorship Sucks" - ssh.ScriptVideoTeaseFlag = True - ssh.ScriptVideoTeaseFlag = False - ssh.CensorshipGame = True - ssh.VideoTease = True - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - CensorshipTimer.Start() - End If + RandomVideo() - StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + If ssh.NoVideo = False Then + ssh.ScriptVideoTease = "Censorship Sucks" + ssh.ScriptVideoTeaseFlag = True + ssh.ScriptVideoTeaseFlag = False + ssh.CensorshipGame = True + ssh.VideoTease = True + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + CensorshipTimer.Start() End If - If StringClean.Contains("@VitalSubAssignment") Then - ' Read all lines of the given file. - Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") - - Dim TempAssign As String - - Try - AssignList = FilterList(AssignList) - TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) - Catch - TempAssign = "ERROR: VitalSub Assign" - End Try + StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + End If - Dim TempArray As String() = Split(TempAssign) + If StringClean.Contains("@VitalSubAssignment") Then + ' Read all lines of the given file. + Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") - For i As Integer = TempArray.Count - 1 To 0 Step -1 - If TempArray(i).Contains("@") Then TempArray(i) = "" - Next + Dim TempAssign As String + Try + AssignList = FilterList(AssignList) + TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) + Catch + TempAssign = "ERROR: VitalSub Assign" + End Try - CLBExercise.Items.Add(TempAssign) - SaveExercise() - CBVitalSubDomTask.Checked = False - My.Settings.VitalSubAssignments = False - StringClean = StringClean.Replace("@VitalSubAssignment", "") - End If + Dim TempArray As String() = Split(TempAssign) - If StringClean.Contains("@PlayAvoidTheEdge") Then - ' #### Reboot + For i As Integer = TempArray.Count - 1 To 0 Step -1 + If TempArray(i).Contains("@") Then TempArray(i) = "" + Next - RandomVideo() - If ssh.NoVideo = False Then + CLBExercise.Items.Add(TempAssign) + SaveExercise() + CBVitalSubDomTask.Checked = False + My.Settings.VitalSubAssignments = False + StringClean = StringClean.Replace("@VitalSubAssignment", "") + End If - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "Avoid The Edge" - ssh.ScriptVideoTeaseFlag = True - ssh.AvoidTheEdgeStroking = True - ssh.AvoidTheEdgeGame = True - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - AvoidTheEdgeTaunts.Start() + If StringClean.Contains("@PlayAvoidTheEdge") Then + ' #### Reboot - End If + RandomVideo() - StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") - End If + If ssh.NoVideo = False Then - If StringClean.Contains("@ResumeAvoidTheEdge") Then - DomWMP.Ctlcontrols.play() ScriptTimer.Stop() - ssh.AvoidTheEdgeStroking = True ssh.SubStroking = True - ssh.StartStrokingCount += 1 + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "Avoid The Edge" + ssh.ScriptVideoTeaseFlag = True + ssh.AvoidTheEdgeStroking = True + ssh.AvoidTheEdgeGame = True + ssh.ScriptVideoTeaseFlag = False ssh.VideoTease = True + ssh.StartStrokingCount += 1 StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) StrokePace = 50 * Math.Round(StrokePace / 50) ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() - StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") - End If - If StringClean.Contains("@PlayRedLightGreenLight") Then - ' #### Reboot + End If - RandomVideo() + StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") + End If - If ssh.NoVideo = False Then + If StringClean.Contains("@ResumeAvoidTheEdge") Then + DomWMP.Ctlcontrols.play() + ScriptTimer.Stop() + ssh.AvoidTheEdgeStroking = True + ssh.SubStroking = True + ssh.StartStrokingCount += 1 + ssh.VideoTease = True + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + AvoidTheEdgeTaunts.Start() + StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") + End If - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "RLGL" - ssh.ScriptVideoTeaseFlag = True - 'AvoidTheEdgeStroking = True - ssh.RLGLGame = True + If StringClean.Contains("@PlayRedLightGreenLight") Then + ' #### Reboot - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - RLGLTimer.Start() - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - 'VideoTauntTick = randomizer.Next(20, 31) - 'VideoTauntTimer.Start() + RandomVideo() - End If - StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") - End If + If ssh.NoVideo = False Then - If StringClean.Contains("@PlayVideo[") Then + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "RLGL" + ssh.ScriptVideoTeaseFlag = True + 'AvoidTheEdgeStroking = True + ssh.RLGLGame = True + + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + RLGLTimer.Start() + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + 'VideoTauntTick = randomizer.Next(20, 31) + 'VideoTauntTimer.Start() - Dim VideoFlag As String = GetParentheses(StringClean, "@PlayVideo[") - Dim VideoClean As String + End If + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") + End If - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + If StringClean.Contains("@PlayVideo[") Then - If VideoFlag.Contains(":\") Then - VideoClean = VideoFlag + Dim VideoFlag As String = GetParentheses(StringClean, "@PlayVideo[") + Dim VideoClean As String - If File.Exists(VideoClean) Then - DomWMP.URL = VideoClean - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If ssh.JumpVideo = True Then + If VideoFlag.Contains(":\") Then + VideoClean = VideoFlag - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + If File.Exists(VideoClean) Then + DomWMP.URL = VideoClean + DomWMP.Visible = True + mainPictureBox.Visible = False + ssh.TeaseVideo = True - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + If ssh.JumpVideo = True Then - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - End If + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - ssh.JumpVideo = False + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - Else - MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - GoTo ExternalVideo + ssh.JumpVideo = False Else - VideoClean = Application.StartupPath & "\Video\" & VideoFlag - VideoClean = VideoClean.Replace("\\", "\") + MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + GoTo ExternalVideo + Else + VideoClean = Application.StartupPath & "\Video\" & VideoFlag + VideoClean = VideoClean.Replace("\\", "\") + End If - Debug.Print("VideoFlag = " & VideoFlag) - If VideoClean.Contains("*") Then - Dim VideoList As New List(Of String) + Debug.Print("VideoFlag = " & VideoFlag) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(VideoClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(VideoClean)) - VideoList.Add(foundFile) - Next + If VideoClean.Contains("*") Then - If VideoList.Count > 0 Then - DomWMP.URL = VideoList(ssh.randomizer.Next(0, VideoList.Count)) - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True + Dim VideoList As New List(Of String) - If ssh.JumpVideo = True Then + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(VideoClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(VideoClean)) + VideoList.Add(foundFile) + Next - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + If VideoList.Count > 0 Then + DomWMP.URL = VideoList(ssh.randomizer.Next(0, VideoList.Count)) + DomWMP.Visible = True + mainPictureBox.Visible = False + ssh.TeaseVideo = True - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + If ssh.JumpVideo = True Then - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - End If + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - ssh.JumpVideo = False - Else - MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + ssh.JumpVideo = False Else + MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If - If File.Exists(VideoClean) Then - DomWMP.URL = VideoClean - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True - - If ssh.JumpVideo = True Then + Else - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + If File.Exists(VideoClean) Then + DomWMP.URL = VideoClean + DomWMP.Visible = True + mainPictureBox.Visible = False + ssh.TeaseVideo = True - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + If ssh.JumpVideo = True Then - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - End If + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - ssh.JumpVideo = False + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - Else - MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + ssh.JumpVideo = False + + Else + MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + End If + ExternalVideo: - StringClean = StringClean.Replace("@PlayVideo[" & VideoFlag & "]", "") - End If + StringClean = StringClean.Replace("@PlayVideo[" & VideoFlag & "]", "") + End If - If StringClean.Contains("@PlayAudio[") Then + If StringClean.Contains("@PlayAudio[") Then - Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") - ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag - Dim AudioClean As String + Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") + ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag + Dim AudioClean As String - If AudioFlag.Contains(":\") And Not AudioFlag.Contains("*") Then - AudioClean = AudioFlag + If AudioFlag.Contains(":\") And Not AudioFlag.Contains("*") Then + AudioClean = AudioFlag - If File.Exists(AudioClean) Then - DomWMP.URL = AudioClean - Else - MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & + If File.Exists(AudioClean) Then + DomWMP.URL = AudioClean + Else + MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + End If - GoTo ExternalAudio + GoTo ExternalAudio - Else + Else - AudioClean = Application.StartupPath & "\Audio\" & AudioFlag - AudioClean = AudioClean.Replace("\\", "\") - End If + AudioClean = Application.StartupPath & "\Audio\" & AudioFlag + AudioClean = AudioClean.Replace("\\", "\") + End If - If AudioClean.Contains("*") Then + If AudioClean.Contains("*") Then - Dim AudioList As New List(Of String) + Dim AudioList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) - AudioList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) + AudioList.Add(foundFile) + Next - If AudioList.Count > 0 Then - DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) - Else - MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & + If AudioList.Count > 0 Then + DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) + Else + MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + End If - Else + Else - If File.Exists(AudioClean) Then - DomWMP.URL = AudioClean - Else - MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & + If File.Exists(AudioClean) Then + DomWMP.URL = AudioClean + Else + MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - End If -ExternalAudio: + End If - StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") +ExternalAudio: - End If + StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") + End If - If StringClean.Contains("@PlayVideo(") Then + If StringClean.Contains("@PlayVideo(") Then - Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") - Dim VidInt As Integer = Val(VidFlag) - If UCase(VidFlag).Contains("M") Then VidInt *= 60 - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") + Dim VidInt As Integer = Val(VidFlag) + If UCase(VidFlag).Contains("M") Then VidInt *= 60 - ssh.RandomizerVideo = True - RandomVideo() + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - ssh.VideoTick = VidInt - VideoTimer.Start() - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + ssh.RandomizerVideo = True + RandomVideo() - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + ssh.VideoTick = VidInt + VideoTimer.Start() + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") + End If - If StringClean.Contains("@PlayVideo") Then - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + If StringClean.Contains("@PlayVideo") Then - ssh.RandomizerVideo = True - RandomVideo() + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + ssh.RandomizerVideo = True + RandomVideo() - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - If StringClean.Contains("@JumpVideo") Then + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") + End If - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + If StringClean.Contains("@JumpVideo") Then + + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - Debug.Print("VidLow = " & VidLow) - Debug.Print("VidHigh = " & VidHigh) - Debug.Print("VidPoint = " & VidPoint) + Debug.Print("VidLow = " & VidLow) + Debug.Print("VidHigh = " & VidHigh) + Debug.Print("VidPoint = " & VidPoint) - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - End If - StringClean = StringClean.Replace("@JumpVideo", "") End If + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If StringClean.Contains("@AddStrokeTime(") Then + If StringClean.Contains("@AddStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 - End If - ssh.StrokeTick += StrokeSeconds + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 End If - StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") + ssh.StrokeTick += StrokeSeconds End If + StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@RemoveStrokeTime(") Then + If StringClean.Contains("@RemoveStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 - End If - ssh.StrokeTick -= StrokeSeconds - If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 End If - StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") + ssh.StrokeTick -= StrokeSeconds + If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 End If + StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@AddStrokeTime") Then - If StrokeTimer.Enabled = True Then - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - End If + If StringClean.Contains("@AddStrokeTime") Then + If StrokeTimer.Enabled = True Then + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) End If - StringClean = StringClean.Replace("@AddStrokeTime", "") End If + StringClean = StringClean.Replace("@AddStrokeTime", "") + End If - If StringClean.Contains("@RemoveStrokeTime") Then - If StrokeTimer.Enabled = True Then - ssh.StrokeTick -= ssh.StrokeTick / 2 - End If - StringClean = StringClean.Replace("@RemoveStrokeTime", "") + If StringClean.Contains("@RemoveStrokeTime") Then + If StrokeTimer.Enabled = True Then + ssh.StrokeTick -= ssh.StrokeTick / 2 End If + StringClean = StringClean.Replace("@RemoveStrokeTime", "") + End If - If StringClean.Contains("@AddEdgeHoldTime(") Then + If StringClean.Contains("@AddEdgeHoldTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If HoldEdgeTimer.Enabled = True Then + If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 - End If - ssh.HoldEdgeTick += HoldEdgeSeconds + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 End If - StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") + ssh.HoldEdgeTick += HoldEdgeSeconds End If + StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@RemoveEdgeHoldTime(") Then + If StringClean.Contains("@RemoveEdgeHoldTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If HoldEdgeTimer.Enabled = True Then + If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 - End If - ssh.HoldEdgeTick -= HoldEdgeSeconds - If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") + ssh.HoldEdgeTick -= HoldEdgeSeconds + If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 End If + StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@AddEdgeHoldTime") Then + If StringClean.Contains("@AddEdgeHoldTime") Then - If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + If HoldEdgeTimer.Enabled = True Then + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - End If - StringClean = StringClean.Replace("@AddEdgeHoldTime", "") + ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 End If + StringClean = StringClean.Replace("@AddEdgeHoldTime", "") + End If - If StringClean.Contains("@RemoveEdgeHoldTime") Then - If HoldEdgeTimer.Enabled = True Then - ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") + If StringClean.Contains("@RemoveEdgeHoldTime") Then + If HoldEdgeTimer.Enabled = True Then + ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 End If + StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") + End If - If StringClean.Contains("@AddTeaseTime(") Then + If StringClean.Contains("@AddTeaseTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If TeaseTimer.Enabled = True Then + If TeaseTimer.Enabled = True Then - Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") - OriginalFlag = TeaseFlag - Dim TeaseSeconds As Integer + Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") + OriginalFlag = TeaseFlag + Dim TeaseSeconds As Integer - If TeaseFlag.Contains(",") Then - TeaseFlag = FixCommas(TeaseFlag) - Dim TeaseFlagArray As String() = TeaseFlag.Split(",") - Dim Tease1 As Integer = Val(TeaseFlagArray(0)) - Dim Tease2 As Integer = Val(TeaseFlagArray(1)) - If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 - If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 - If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 - If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 - TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) - Else - TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 - End If - ssh.TeaseTick += TeaseSeconds + If TeaseFlag.Contains(",") Then + TeaseFlag = FixCommas(TeaseFlag) + Dim TeaseFlagArray As String() = TeaseFlag.Split(",") + Dim Tease1 As Integer = Val(TeaseFlagArray(0)) + Dim Tease2 As Integer = Val(TeaseFlagArray(1)) + If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 + If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 + If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 + If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 + TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) + Else + TeaseSeconds = Val(TeaseFlag) + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 End If - StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") + ssh.TeaseTick += TeaseSeconds End If + StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@RemoveTeaseTime(") Then + If StringClean.Contains("@RemoveTeaseTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If TeaseTimer.Enabled = True Then + If TeaseTimer.Enabled = True Then - Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") - OriginalFlag = TeaseFlag - Dim TeaseSeconds As Integer + Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") + OriginalFlag = TeaseFlag + Dim TeaseSeconds As Integer - If TeaseFlag.Contains(",") Then - TeaseFlag = FixCommas(TeaseFlag) - Dim TeaseFlagArray As String() = TeaseFlag.Split(",") - Dim Tease1 As Integer = Val(TeaseFlagArray(0)) - Dim Tease2 As Integer = Val(TeaseFlagArray(1)) - If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 - If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 - If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 - If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 - TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) - Else - TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 - End If - ssh.TeaseTick -= TeaseSeconds - If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 + If TeaseFlag.Contains(",") Then + TeaseFlag = FixCommas(TeaseFlag) + Dim TeaseFlagArray As String() = TeaseFlag.Split(",") + Dim Tease1 As Integer = Val(TeaseFlagArray(0)) + Dim Tease2 As Integer = Val(TeaseFlagArray(1)) + If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 + If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 + If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 + If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 + TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) + Else + TeaseSeconds = Val(TeaseFlag) + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 End If - StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") + ssh.TeaseTick -= TeaseSeconds + If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 End If + StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@AddTeaseTime") Then - If TeaseTimer.Enabled = True Then - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If + If StringClean.Contains("@AddTeaseTime") Then + If TeaseTimer.Enabled = True Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) End If - StringClean = StringClean.Replace("@AddTeaseTime", "") End If + StringClean = StringClean.Replace("@AddTeaseTime", "") + End If - If StringClean.Contains("@RemoveTeaseTime") Then - If TeaseTimer.Enabled = True Then - ssh.TeaseTick = ssh.TeaseTick / 2 - End If - StringClean = StringClean.Replace("@RemoveTeaseTime", "") + If StringClean.Contains("@RemoveTeaseTime") Then + If TeaseTimer.Enabled = True Then + ssh.TeaseTick = ssh.TeaseTick / 2 End If + StringClean = StringClean.Replace("@RemoveTeaseTime", "") + End If - If StringClean.Contains("@PlaylistOff") Then - ssh.Playlist = False - StringClean = StringClean.Replace("@PlaylistOff", "") - End If + If StringClean.Contains("@PlaylistOff") Then + ssh.Playlist = False + StringClean = StringClean.Replace("@PlaylistOff", "") + End If - If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then - ssh.RapidFire = True - StringClean = StringClean.Replace("@RapidTextOn", "") - StringClean = StringClean.Replace("@RTOn", "") - End If + If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then + ssh.RapidFire = True + StringClean = StringClean.Replace("@RapidTextOn", "") + StringClean = StringClean.Replace("@RTOn", "") + End If - If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("@RTOff") Then - ssh.RapidFire = False - StringClean = StringClean.Replace("@RapidTextOff", "") - StringClean = StringClean.Replace("@RTOff", "") - End If + If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("@RTOff") Then + ssh.RapidFire = False + StringClean = StringClean.Replace("@RapidTextOff", "") + StringClean = StringClean.Replace("@RTOff", "") + End If - If StringClean.Contains("@AddContact1") Or StringClean.Contains("@RemoveContact1") Then - ssh.AddContactTick = 2 - Contact1Timer.Start() - StringClean = StringClean.Replace("@AddContact1", "") - StringClean = StringClean.Replace("@RemoveContact1", "") - End If + If StringClean.Contains("@AddContact1") Or StringClean.Contains("@RemoveContact1") Then + ssh.AddContactTick = 2 + Contact1Timer.Start() + StringClean = StringClean.Replace("@AddContact1", "") + StringClean = StringClean.Replace("@RemoveContact1", "") + End If - If StringClean.Contains("@AddContact2") Or StringClean.Contains("@RemoveContact2") Then - ssh.AddContactTick = 2 - Contact2Timer.Start() - StringClean = StringClean.Replace("@AddContact2", "") - StringClean = StringClean.Replace("@RemoveContact2", "") - End If + If StringClean.Contains("@AddContact2") Or StringClean.Contains("@RemoveContact2") Then + ssh.AddContactTick = 2 + Contact2Timer.Start() + StringClean = StringClean.Replace("@AddContact2", "") + StringClean = StringClean.Replace("@RemoveContact2", "") + End If - If StringClean.Contains("@AddContact3") Or StringClean.Contains("@RemoveContact3") Then - ssh.AddContactTick = 2 - Contact3Timer.Start() - StringClean = StringClean.Replace("@AddContact3", "") - StringClean = StringClean.Replace("@RemoveContact3", "") - End If + If StringClean.Contains("@AddContact3") Or StringClean.Contains("@RemoveContact3") Then + ssh.AddContactTick = 2 + Contact3Timer.Start() + StringClean = StringClean.Replace("@AddContact3", "") + StringClean = StringClean.Replace("@RemoveContact3", "") + End If - If StringClean.Contains("@AddDomme") Or StringClean.Contains("@RemoveDomme") Then - ssh.AddContactTick = 2 - DommeTimer.Start() - StringClean = StringClean.Replace("@AddDomme", "") - StringClean = StringClean.Replace("@RemoveDomme", "") - End If + If StringClean.Contains("@AddDomme") Or StringClean.Contains("@RemoveDomme") Then + ssh.AddContactTick = 2 + DommeTimer.Start() + StringClean = StringClean.Replace("@AddDomme", "") + StringClean = StringClean.Replace("@RemoveDomme", "") + End If - If StringClean.Contains("@NullResponse") Then - ssh.NullResponse = True - StringClean = StringClean.Replace("@NullResponse", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@NullResponse") Then + ssh.NullResponse = True + StringClean = StringClean.Replace("@NullResponse", "") + 'Debug.Print("NullResponse Called") + End If VTSkip: - If StringClean.Contains("@SpeedUpCheck") Then - - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" - StringClean = ResponseClean(StringClean) - - Else + If StringClean.Contains("@SpeedUpCheck") Then - If StrokePace < 201 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" - StringClean = ResponseClean(StringClean) + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" + StringClean = ResponseClean(StringClean) - Else + Else - Dim SpeedUpCheck As Integer + If StrokePace < 201 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + StringClean = ResponseClean(StringClean) - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + Else - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpCheck As Integer - If SpeedUpVal > SpeedUpCheck Then + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - Else + If SpeedUpVal > SpeedUpCheck Then - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" - End If + Else - StringClean = ResponseClean(StringClean) + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" End If + StringClean = ResponseClean(StringClean) + End If - StringClean = StringClean.Replace("@SpeedUpCheck", "") - GoTo RinseLatherRepeat End If + StringClean = StringClean.Replace("@SpeedUpCheck", "") + GoTo RinseLatherRepeat + End If - If StringClean.Contains("@SlowDownCheck") Then - - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" - StringClean = ResponseClean(StringClean) - Else + If StringClean.Contains("@SlowDownCheck") Then - If StrokePace > 999 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" - StringClean = ResponseClean(StringClean) + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" + StringClean = ResponseClean(StringClean) - Else + Else - Dim SpeedUpCheck As Integer + If StrokePace > 999 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" + StringClean = ResponseClean(StringClean) - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + Else - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpCheck As Integer - If SpeedUpVal > SpeedUpCheck Then + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - Else + If SpeedUpVal > SpeedUpCheck Then - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" - End If + Else - StringClean = ResponseClean(StringClean) + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" End If - End If - - StringClean = StringClean.Replace("@SlowDownCheck", "") - GoTo RinseLatherRepeat - - End If + StringClean = ResponseClean(StringClean) + End If - If StringClean.Contains("@PlayRiskyPick") Then - ssh.RiskyDeal = True - 'FrmCardList.RiskyRound += 1 - FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - FrmCardList.InitializeRiskyDeal() - StringClean = StringClean.Replace("@PlayRiskyPick", "") - 'Debug.Print("NullResponse Called") End If - If StringClean.Contains("@ChooseRiskyPick") Then - ssh.RiskyDelay = True - If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True - If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True - If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True - If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True - If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True - If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True - If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True - If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True - If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True - If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True + StringClean = StringClean.Replace("@SlowDownCheck", "") + GoTo RinseLatherRepeat - If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True - If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True - If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True - If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True - If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True - If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True - If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True - If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True - If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True - If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True - - If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True - If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True - If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True - If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True + End If - FrmCardList.RiskyChoiceCount = 0 - FrmCardList.RiskyRound += 1 - FrmCardList.RiskyPickCount = 0 - FrmCardList.RiskyChoices.Clear() - FrmCardList.ClearCaseLabelsOffer() - 'FrmCardList.Show() - 'FrmCardList.TCGames.SelectTab(4) - 'FrmCardList.Focus() - StringClean = StringClean.Replace("@ChooseRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@PlayRiskyPick") Then + ssh.RiskyDeal = True + 'FrmCardList.RiskyRound += 1 + FrmCardList.TCGames.SelectTab(2) + FrmCardList.Show() + FrmCardList.Focus() + FrmCardList.InitializeRiskyDeal() + StringClean = StringClean.Replace("@PlayRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + If StringClean.Contains("@ChooseRiskyPick") Then + ssh.RiskyDelay = True + If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True + If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True + If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True + If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True + If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True + If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True + If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True + If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True + If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True + If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True + + If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True + If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True + If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True + If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True + If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True + If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True + If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True + If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True + If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True + If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True + + If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True + If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True + If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True + If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True + + FrmCardList.RiskyChoiceCount = 0 + FrmCardList.RiskyRound += 1 + FrmCardList.RiskyPickCount = 0 + FrmCardList.RiskyChoices.Clear() + FrmCardList.ClearCaseLabelsOffer() + 'FrmCardList.Show() + 'FrmCardList.TCGames.SelectTab(4) + 'FrmCardList.Focus() + + StringClean = StringClean.Replace("@ChooseRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@CheckRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.CheckRiskyPick() - StringClean = StringClean.Replace("@CheckRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - If StringClean.Contains("@FinalRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.BTNRiskIt.Text = "LAST CASE" - FrmCardList.BTNPickIt.Text = "MY CASE" - StringClean = StringClean.Replace("@FinalRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@CheckRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.CheckRiskyPick() + StringClean = StringClean.Replace("@CheckRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@ClearRiskyLabels") Then - 'FrmCardList.Focus() - FrmCardList.ClearCaseLabelsOffer() - StringClean = StringClean.Replace("@ClearRiskyLabels", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@FinalRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.BTNRiskIt.Text = "LAST CASE" + FrmCardList.BTNPickIt.Text = "MY CASE" + StringClean = StringClean.Replace("@FinalRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@RiskyPayout") Then - If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then - FrmCardList.GameWMP.settings.setMode("loop", False) - FrmCardList.GameWMP.settings.volume = 20 - FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" - End If - ssh.BronzeTokens += FrmCardList.TokensPaid - FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) - StringClean = StringClean.Replace("@RiskyPayout", "") - End If + If StringClean.Contains("@ClearRiskyLabels") Then + 'FrmCardList.Focus() + FrmCardList.ClearCaseLabelsOffer() + StringClean = StringClean.Replace("@ClearRiskyLabels", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@CloseRiskyPick") Then - FrmCardList.CloseRiskyPick() - StringClean = StringClean.Replace("@CloseRiskyPick", "") + If StringClean.Contains("@RiskyPayout") Then + If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then + FrmCardList.GameWMP.settings.setMode("loop", False) + FrmCardList.GameWMP.settings.volume = 20 + FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" End If + ssh.BronzeTokens += FrmCardList.TokensPaid + FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) + StringClean = StringClean.Replace("@RiskyPayout", "") + End If - If StringClean.Contains("@RevealLastCase") Then - FrmCardList.RevealLastCase() - StringClean = StringClean.Replace("@RevealLastCase", "") - End If + If StringClean.Contains("@CloseRiskyPick") Then + FrmCardList.CloseRiskyPick() + StringClean = StringClean.Replace("@CloseRiskyPick", "") + End If - If StringClean.Contains("@RevealUserCase") Then - FrmCardList.RevealUserCase() - StringClean = StringClean.Replace("@RevealUserCase", "") - End If - - If StringClean.Contains("@RiskyState") Then - If FrmCardList.RiskyState = True Then - ssh.FileGoto = "(Risky Game)" - Else - ssh.FileGoto = "(Risky Tease)" - End If - FrmCardList.RiskyState = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@RiskyState", "") - End If + If StringClean.Contains("@RevealLastCase") Then + FrmCardList.RevealLastCase() + StringClean = StringClean.Replace("@RevealLastCase", "") + End If - If StringClean.Contains("@SystemMessage ") Then - StringClean = StringClean.Replace("@SystemMessage ", "") - End If + If StringClean.Contains("@RevealUserCase") Then + FrmCardList.RevealUserCase() + StringClean = StringClean.Replace("@RevealUserCase", "") + End If - If StringClean.Contains("@EmoteMessage ") Then - StringClean = StringClean.Replace("@EmoteMessage ", "") + If StringClean.Contains("@RiskyState") Then + If FrmCardList.RiskyState = True Then + ssh.FileGoto = "(Risky Game)" + Else + ssh.FileGoto = "(Risky Tease)" End If + FrmCardList.RiskyState = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@RiskyState", "") + End If - If StringClean.Contains("@CallReturn(") Then + If StringClean.Contains("@SystemMessage ") Then + StringClean = StringClean.Replace("@SystemMessage ", "") + End If + If StringClean.Contains("@EmoteMessage ") Then + StringClean = StringClean.Replace("@EmoteMessage ", "") + End If - ssh.ReturnFileText = ssh.FileText - ssh.ReturnStrokeTauntVal = ssh.StrokeTauntVal - GetSubState() + If StringClean.Contains("@CallReturn(") Then - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - ssh.CBTBallsActive = False - ssh.CBTBallsFlag = False - ssh.CBTCockActive = False - ssh.CBTCockFlag = False - ssh.CBTBothActive = False - ssh.CBTBothFlag = False - ssh.CustomTaskActive = False + ssh.ReturnFileText = ssh.FileText + ssh.ReturnStrokeTauntVal = ssh.StrokeTauntVal + GetSubState() - If Not ssh.SubGaveUp Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - End If + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() - 'StopEverything() - ssh.ReturnFlag = True + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False + If Not ssh.SubGaveUp Then + ssh.SubEdging = False + ssh.SubHoldingEdge = False + End If - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag + 'StopEverything() + ssh.ReturnFlag = True - If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CallReplace As String = CheckFlag - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + If CheckFlag.Contains(",") Then - Else + CheckFlag = FixCommas(CheckFlag) - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - End If - ssh.ScriptTick = 2 - ScriptTimer.Start() + Else - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 End If + ssh.ScriptTick = 2 + ScriptTimer.Start() - If StringClean.Contains("@Call(") Then + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") - Dim CallReplace As String = CheckFlag + End If - If CheckFlag.Contains(",") Then + If StringClean.Contains("@Call(") Then - CheckFlag = FixCommas(CheckFlag) + Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") + Dim CallReplace As String = CheckFlag - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + If CheckFlag.Contains(",") Then - Else + CheckFlag = FixCommas(CheckFlag) - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - End If + Else - StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 End If + StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") + + End If - If StringClean.Contains("@CallRandom(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") - Dim CallReplace As String = CheckFlag + If StringClean.Contains("@CallRandom(") Then - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") + Dim CallReplace As String = CheckFlag + + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Else + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) - ssh.StrokeTauntVal = -1 - End If + Else + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 End If - StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") End If + StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") + End If - If StringClean.Contains("@RapidCodeOn") Then - ssh.RapidCode = True - StringClean = StringClean.Replace("@RapidCodeOn", "") - End If - - If StringClean.Contains("@RapidCodeOff") Then - ssh.RapidCode = False - StringClean = StringClean.Replace("@RapidCodeOff", "") - End If + If StringClean.Contains("@RapidCodeOn") Then + ssh.RapidCode = True + StringClean = StringClean.Replace("@RapidCodeOn", "") + End If - If StringClean.Contains("@InterruptsOff") Then - ssh.DoNotDisturb = True - StringClean = StringClean.Replace("@InterruptsOff", "") - End If + If StringClean.Contains("@RapidCodeOff") Then + ssh.RapidCode = False + StringClean = StringClean.Replace("@RapidCodeOff", "") + End If - If StringClean.Contains("@InterruptsOn") Then - ssh.DoNotDisturb = False - StringClean = StringClean.Replace("@InterruptsOn", "") - End If + If StringClean.Contains("@InterruptsOff") Then + ssh.DoNotDisturb = True + StringClean = StringClean.Replace("@InterruptsOff", "") + End If + If StringClean.Contains("@InterruptsOn") Then + ssh.DoNotDisturb = False + StringClean = StringClean.Replace("@InterruptsOn", "") + End If - If StringClean.Contains("@NoTypo") Then - ssh.TypoSwitch = 0 - StringClean = StringClean.Replace("@NoTypo", "") - End If - If StringClean.Contains("@ForceTypo") Then - ssh.TypoSwitch = 2 - StringClean = StringClean.Replace("@ForceTypo", "") - End If + If StringClean.Contains("@NoTypo") Then + ssh.TypoSwitch = 0 + StringClean = StringClean.Replace("@NoTypo", "") + End If - If StringClean.Contains("@TyposOff") Then - ssh.TyposDisabled = True - StringClean = StringClean.Replace("@TyposOff", "") - End If + If StringClean.Contains("@ForceTypo") Then + ssh.TypoSwitch = 2 + StringClean = StringClean.Replace("@ForceTypo", "") + End If - If StringClean.Contains("@TyposOn") Then - ssh.TyposDisabled = False - StringClean = StringClean.Replace("@TyposOn", "") - End If + If StringClean.Contains("@TyposOff") Then + ssh.TyposDisabled = True + StringClean = StringClean.Replace("@TyposOff", "") + End If - If StringClean.Contains("@GoodMood(") Then + If StringClean.Contains("@TyposOn") Then + ssh.TyposDisabled = False + StringClean = StringClean.Replace("@TyposOn", "") + End If - Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") + If StringClean.Contains("@GoodMood(") Then - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") - StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() End If - If StringClean.Contains("@BadMood(") Then + StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + End If - Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") + If StringClean.Contains("@BadMood(") Then - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") - StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() End If - If StringClean.Contains("@NeutralMood(") Then - - Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") + StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + End If - If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If StringClean.Contains("@NeutralMood(") Then - StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") - If StringClean.Contains("@MoodUp") Then - ssh.DommeMood += 1 - If ssh.DommeMood > 10 Then ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodUp", "") + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() End If - If StringClean.Contains("@MoodDown") Then - ssh.DommeMood -= 1 - If ssh.DommeMood < 1 Then ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodDown", "") - End If + StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@MoodBest") Then - ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodBest", "") - End If + If StringClean.Contains("@MoodUp") Then + ssh.DommeMood += 1 + If ssh.DommeMood > 10 Then ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodUp", "") + End If - If StringClean.Contains("@MoodWorst") Then - ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodWorst", "") - End If + If StringClean.Contains("@MoodDown") Then + ssh.DommeMood -= 1 + If ssh.DommeMood < 1 Then ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodDown", "") + End If - If StringClean.Contains("@Timeout(") Then + If StringClean.Contains("@MoodBest") Then + ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodBest", "") + End If - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") - Dim OriginalFlag As String = TimeFlag + If StringClean.Contains("@MoodWorst") Then + ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodWorst", "") + End If - TimeFlag = FixCommas(TimeFlag) + If StringClean.Contains("@Timeout(") Then - Dim TimeArray As String() = TimeFlag.Split(",") + Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") + Dim OriginalFlag As String = TimeFlag - ssh.FileGoto = TimeArray(1) - ssh.TimeoutTick = Val(TimeArray(0)) - TimeoutTimer.Start() + TimeFlag = FixCommas(TimeFlag) - StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") - End If + Dim TimeArray As String() = TimeFlag.Split(",") - If StringClean.Contains("@BallTorture+1") Then - ssh.CBTBallsCount += 1 - StringClean = StringClean.Replace("@BallTorture+1", "") - End If + ssh.FileGoto = TimeArray(1) + ssh.TimeoutTick = Val(TimeArray(0)) + TimeoutTimer.Start() - If StringClean.Contains("@CockTorture+1") Then - ssh.CBTCockCount += 1 - StringClean = StringClean.Replace("@CockTorture+1", "") - End If + StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") + End If + If StringClean.Contains("@BallTorture+1") Then + ssh.CBTBallsCount += 1 + StringClean = StringClean.Replace("@BallTorture+1", "") + End If - If StringClean.Contains("@EndTaunts") Then - ssh.StrokeTick = 0 - StringClean = StringClean.Replace("@EndTaunts", "") - End If + If StringClean.Contains("@CockTorture+1") Then + ssh.CBTCockCount += 1 + StringClean = StringClean.Replace("@CockTorture+1", "") + End If - If StringClean.Contains("@ResponseYes(") Then - ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") - StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") - End If + If StringClean.Contains("@EndTaunts") Then + ssh.StrokeTick = 0 + StringClean = StringClean.Replace("@EndTaunts", "") + End If - If StringClean.Contains("@ResponseNo(") Then - ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") - StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") - End If + If StringClean.Contains("@ResponseYes(") Then + ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") + StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") + End If - If StringClean.Contains("@SetModule(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + If StringClean.Contains("@ResponseNo(") Then + ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") + StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") + End If - If TempMod.Contains(",") Then - TempMod = FixCommas(TempMod) - Dim TempArray As String() = TempMod.Split(",") - TempMod = TempArray(0) - ssh.SetModuleGoto = TempArray(1) - End If + If StringClean.Contains("@SetModule(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + If TempMod.Contains(",") Then + TempMod = FixCommas(TempMod) + Dim TempArray As String() = TempMod.Split(",") + TempMod = TempArray(0) + ssh.SetModuleGoto = TempArray(1) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" - End If + End If - If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" End If - - If StringClean.Contains("@SetLink(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" - End If - StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" End If + If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - 'If StringClean.Contains("@RandomText(") Then - 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") - 'TempText = FixCommas(TempText) - 'Dim TextArray As String() = TempText.Split(",") - 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) - 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) - 'End If - + StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + End If - If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") - StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + If StringClean.Contains("@SetLink(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" + End If + StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + End If - If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then + 'If StringClean.Contains("@RandomText(") Then + 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") + 'TempText = FixCommas(TempText) + 'Dim TextArray As String() = TempText.Split(",") + 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) + 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) + 'End If - Dim FollowTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer - TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 - TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 + If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") + StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + End If - FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - Dim FollowVal As Integer + If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then - FollowVal = Val(FollowTemp) + Dim FollowTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - ssh.TempVal = ssh.randomizer.Next(1, 101) + TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 + TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 - Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") + FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + Dim FollowVal As Integer - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + FollowVal = Val(FollowTemp) - End If + ssh.TempVal = ssh.randomizer.Next(1, 101) - If StringClean.Contains("@Worship(") Then - Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") - Debug.Print("Worship Paren = " & WorshipTemp) - If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" - If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" - If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" - ssh.WorshipMode = True - StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") - End If + Dim FollowLineTemp As String + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") - If StringClean.Contains("@WorshipOn") Then - ssh.WorshipMode = True - StringClean = StringClean.Replace("@WorshipOn", "") - End If + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - If StringClean.Contains("@WorshipOff") Then - ssh.WorshipMode = False - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@WorshipOff", "") - End If + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - ' If StringClean.Contains("@AssWorship") Then - 'WorshipTarget = "Ass" - 'StringClean = StringClean.Replace("@AssWorship", "") - 'End If + End If - 'If StringClean.Contains("@BoobWorship") Then - 'WorshipTarget = "Boobs" - 'StringClean = StringClean.Replace("@BoobWorship", "") - 'End If + If StringClean.Contains("@Worship(") Then + Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") + Debug.Print("Worship Paren = " & WorshipTemp) + If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" + If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" + If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" + ssh.WorshipMode = True + StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") + End If - 'If StringClean.Contains("@PussyWorship") Then - 'WorshipTarget = "Pussy" - 'StringClean = StringClean.Replace("@PussyWorship", "") - 'End If + If StringClean.Contains("@WorshipOn") Then + ssh.WorshipMode = True + StringClean = StringClean.Replace("@WorshipOn", "") + End If - If StringClean.Contains("@ClearWorship") Then - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@ClearWorship", "") - End If + If StringClean.Contains("@WorshipOff") Then + ssh.WorshipMode = False + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@WorshipOff", "") + End If + + ' If StringClean.Contains("@AssWorship") Then + 'WorshipTarget = "Ass" + 'StringClean = StringClean.Replace("@AssWorship", "") + 'End If + 'If StringClean.Contains("@BoobWorship") Then + 'WorshipTarget = "Boobs" + 'StringClean = StringClean.Replace("@BoobWorship", "") + 'End If + + 'If StringClean.Contains("@PussyWorship") Then + 'WorshipTarget = "Pussy" + 'StringClean = StringClean.Replace("@PussyWorship", "") + 'End If + If StringClean.Contains("@ClearWorship") Then + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@ClearWorship", "") + End If - If StringClean.Contains("@MiniScript(") Then - Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + If StringClean.Contains("@MiniScript(") Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then - ssh.MiniScript = True - ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" - ssh.MiniTauntVal = -1 - ssh.MiniTimerCheck = ScriptTimer.Enabled - ssh.ScriptTick = 2 - ScriptTimer.Start() - End If + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then + ssh.MiniScript = True + ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" + ssh.MiniTauntVal = -1 + ssh.MiniTimerCheck = ScriptTimer.Enabled + ssh.ScriptTick = 2 + ScriptTimer.Start() End If + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + End If - If StringClean.Contains("@CheckFile(") Then - Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") - FileFlag = FixCommas(FileFlag) + If StringClean.Contains("@CheckFile(") Then - Dim FileArray As String() = FileFlag.Split(",") + Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") + FileFlag = FixCommas(FileFlag) - If FileArray.Count = 2 Or FileArray.Count = 3 Then + Dim FileArray As String() = FileFlag.Split(",") - If File.Exists(FileArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(1) - GetGoto() - End If + If FileArray.Count = 2 Or FileArray.Count = 3 Then - If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(2) - GetGoto() - End If + If File.Exists(FileArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(1) + GetGoto() + End If + If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(2) + GetGoto() End If - StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") End If + StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") + End If - If StringClean.Contains("@YesMode(") Then - Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") - YesFlag = FixCommas(YesFlag) - Dim YesArray As String() = YesFlag.Split(",") + If StringClean.Contains("@YesMode(") Then - If UCase(YesArray(0)).Contains("GOTO") Then - ssh.YesGoto = True - ssh.YesGotoLine = YesArray(1) - End If + Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") + YesFlag = FixCommas(YesFlag) + Dim YesArray As String() = YesFlag.Split(",") - If UCase(YesArray(0)).Contains("VIDEO") Then - ssh.YesVideo = True - ssh.YesGotoLine = YesArray(1) - End If + If UCase(YesArray(0)).Contains("GOTO") Then + ssh.YesGoto = True + ssh.YesGotoLine = YesArray(1) + End If - If UCase(YesArray(0)).Contains("NORMAL") Then - ssh.YesGoto = False - ssh.YesVideo = False - End If + If UCase(YesArray(0)).Contains("VIDEO") Then + ssh.YesVideo = True + ssh.YesGotoLine = YesArray(1) + End If - StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") + If UCase(YesArray(0)).Contains("NORMAL") Then + ssh.YesGoto = False + ssh.YesVideo = False End If - If StringClean.Contains("@NoMode(") Then + StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") + End If - Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") - NoFlag = FixCommas(NoFlag) - Dim NoArray As String() = NoFlag.Split(",") + If StringClean.Contains("@NoMode(") Then - If UCase(NoArray(0)).Contains("GOTO") Then - ssh.NoGoto = True - ssh.NoGotoLine = NoArray(1) - End If + Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") + NoFlag = FixCommas(NoFlag) + Dim NoArray As String() = NoFlag.Split(",") - If UCase(NoArray(0)).Contains("VIDEO") Then - ssh.NoVideo_Mode = True - ssh.NoGotoLine = NoArray(1) - End If + If UCase(NoArray(0)).Contains("GOTO") Then + ssh.NoGoto = True + ssh.NoGotoLine = NoArray(1) + End If - If UCase(NoArray(0)).Contains("NORMAL") Then - ssh.NoGoto = False - ssh.NoVideo_Mode = False - End If + If UCase(NoArray(0)).Contains("VIDEO") Then + ssh.NoVideo_Mode = True + ssh.NoGotoLine = NoArray(1) + End If - StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") + If UCase(NoArray(0)).Contains("NORMAL") Then + ssh.NoGoto = False + ssh.NoVideo_Mode = False End If - If StringClean.Contains("@CameMode(") Then + StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") + End If - Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") - CameFlag = FixCommas(CameFlag) - Dim CameArray As String() = CameFlag.Split(",") + If StringClean.Contains("@CameMode(") Then - If UCase(CameArray(0)).Contains("GOTO") Then - ssh.CameGoto = True - ssh.CameGotoLine = CameArray(1) - End If + Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") + CameFlag = FixCommas(CameFlag) + Dim CameArray As String() = CameFlag.Split(",") - If UCase(CameArray(0)).Contains("MESSAGE") Then - ssh.CameMessage = True - ssh.CameMessageText = CameArray(1) - End If + If UCase(CameArray(0)).Contains("GOTO") Then + ssh.CameGoto = True + ssh.CameGotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("VIDEO") Then - ssh.CameVideo = True - ssh.CameGotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("MESSAGE") Then + ssh.CameMessage = True + ssh.CameMessageText = CameArray(1) + End If - If UCase(CameArray(0)).Contains("NORMAL") Then - ssh.CameGoto = False - ssh.CameMessage = False - ssh.CameVideo = False - End If + If UCase(CameArray(0)).Contains("VIDEO") Then + ssh.CameVideo = True + ssh.CameGotoLine = CameArray(1) + End If - StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") + If UCase(CameArray(0)).Contains("NORMAL") Then + ssh.CameGoto = False + ssh.CameMessage = False + ssh.CameVideo = False End If - If StringClean.Contains("@RuinedMode(") Then + StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") + End If - Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") - RuinedFlag = FixCommas(RuinedFlag) - Dim RuinedArray As String() = RuinedFlag.Split(",") + If StringClean.Contains("@RuinedMode(") Then - If UCase(RuinedArray(0)).Contains("GOTO") Then - ssh.RuinedGoto = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") + RuinedFlag = FixCommas(RuinedFlag) + Dim RuinedArray As String() = RuinedFlag.Split(",") - If UCase(RuinedArray(0)).Contains("MESSAGE") Then - ssh.RuinedMessage = True - ssh.RuinedMessageText = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("GOTO") Then + ssh.RuinedGoto = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("VIDEO") Then - ssh.RuinedVideo = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("MESSAGE") Then + ssh.RuinedMessage = True + ssh.RuinedMessageText = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("NORMAL") Then - ssh.RuinedGoto = False - ssh.RuinedMessage = False - ssh.RuinedVideo = False - End If + If UCase(RuinedArray(0)).Contains("VIDEO") Then + ssh.RuinedVideo = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") + If UCase(RuinedArray(0)).Contains("NORMAL") Then + ssh.RuinedGoto = False + ssh.RuinedMessage = False + ssh.RuinedVideo = False End If - If StringClean.Contains("@CustomMode(") Then + StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") + End If + + If StringClean.Contains("@CustomMode(") Then - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") - CustomFlag = FixCommas(CustomFlag) - Dim CustomArray As String() = CustomFlag.Split(",") + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") + CustomFlag = FixCommas(CustomFlag) + Dim CustomArray As String() = CustomFlag.Split(",") - If CustomArray.Count = 3 Then + If CustomArray.Count = 3 Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) + If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) - Dim NewMode As New Mode - NewMode.Keyword = CustomArray(0) - NewMode.Type = CustomArray(1) - NewMode.GotoLine = CustomArray(2) - ssh.Modes.Add(CustomArray(0), NewMode) - End If + Dim NewMode As New Mode + NewMode.Keyword = CustomArray(0) + NewMode.Type = CustomArray(1) + NewMode.GotoLine = CustomArray(2) + ssh.Modes.Add(CustomArray(0), NewMode) + End If - If CustomArray.Count = 2 Then - If CustomArray(1).ToUpper.Contains("NORMAL") Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then - ssh.Modes.Remove(CustomArray(0)) - End If + If CustomArray.Count = 2 Then + If CustomArray(1).ToUpper.Contains("NORMAL") Then + If ssh.Modes.Keys.Contains(CustomArray(0)) Then + ssh.Modes.Remove(CustomArray(0)) End If End If + End If - StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - End If + End If - If StringClean.Contains("@ClearModes") Then - ClearModes() - StringClean = StringClean.Replace("@ClearModes", "") - End If + If StringClean.Contains("@ClearModes") Then + ClearModes() + StringClean = StringClean.Replace("@ClearModes", "") + End If - If StringClean.Contains("@LockVideo") Then - ssh.LockVideo = True - StringClean = StringClean.Replace("@LockVideo", "") - End If + If StringClean.Contains("@LockVideo") Then + ssh.LockVideo = True + StringClean = StringClean.Replace("@LockVideo", "") + End If - If StringClean.Contains("@UnlockVideo") Then - ssh.LockVideo = False - mainPictureBox.Visible = True - DomWMP.Visible = False - StringClean = StringClean.Replace("@UnlockVideo", "") - End If + If StringClean.Contains("@UnlockVideo") Then + ssh.LockVideo = False + mainPictureBox.Visible = True + DomWMP.Visible = False + StringClean = StringClean.Replace("@UnlockVideo", "") + End If - If StringClean.Contains("@ClearChat") Then - ClearChat() - StringClean = StringClean.Replace("@ClearChat", "") - End If + If StringClean.Contains("@ClearChat") Then + ClearChat() + StringClean = StringClean.Replace("@ClearChat", "") + End If - If StringClean.Contains("@ChatImage[") Then - Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") - ImageDir = ImageDir.Replace("/", "\") - ImageDir = ImageDir.Replace("\\", "\") + If StringClean.Contains("@ChatImage[") Then + Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") + ImageDir = ImageDir.Replace("/", "\") + ImageDir = ImageDir.Replace("\\", "\") - If File.Exists(ImageDir.Split(",")(0)) Then + If File.Exists(ImageDir.Split(",")(0)) Then - If GetCharCount(ImageDir, ",") = 2 Then + If GetCharCount(ImageDir, ",") = 2 Then - Dim PicAttributes As String() = GetArrayString(ImageDir) + Dim PicAttributes As String() = GetArrayString(ImageDir) - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - End If - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If + + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If + End If - If StringClean.Contains("@Debug") Then + If StringClean.Contains("@Debug") Then - 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) + 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) - MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) - MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) - MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) - MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) + MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) + MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) + MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) + MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) - 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) - StringClean = StringClean.Replace("@Debug", "") - End If + 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) + StringClean = StringClean.Replace("@Debug", "") + End If - If StringClean.Contains("@GotoDommeOrgasm") Then + If StringClean.Contains("@GotoDommeOrgasm") Then - 'Debug.Print("GotoDommeOrgasmCalled") + 'Debug.Print("GotoDommeOrgasmCalled") - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeOrgasm", "") + StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - End If + End If - If StringClean.Contains("@GotoDommeRuin") Then + If StringClean.Contains("@GotoDommeRuin") Then - Debug.Print("GotoDommeRuinedCalled") + Debug.Print("GotoDommeRuinedCalled") - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeRuin", "") + StringClean = StringClean.Replace("@GotoDommeRuin", "") - End If + End If - If StringClean.Contains("@GotoDommeApathy") Then + If StringClean.Contains("@GotoDommeApathy") Then - 'Debug.Print("GotoDommeApathyCalled") + 'Debug.Print("GotoDommeApathyCalled") - If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" - If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" - If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" - If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" - If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" + If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" + If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" + If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" + If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" + If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeApathy", "") + StringClean = StringClean.Replace("@GotoDommeApathy", "") - End If + End If - If StringClean.Contains("@GotoDommeLevel") Then + If StringClean.Contains("@GotoDommeLevel") Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeLevel", "") + StringClean = StringClean.Replace("@GotoDommeLevel", "") - End If + End If - If StringClean.Contains("@CheckBnB") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then - ssh.FileGoto = "(No BnB)" - ssh.SkipGotoLine = True - GetGoto() - End If - StringClean = StringClean.Replace("@CheckBnB", "") + If StringClean.Contains("@CheckBnB") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then + ssh.FileGoto = "(No BnB)" + ssh.SkipGotoLine = True + GetGoto() End If + StringClean = StringClean.Replace("@CheckBnB", "") + End If @@ -13017,76 +13032,76 @@ VTSkip: - If StringClean.Contains("@CheckStrokingState") Then - 'If SubStroking = True Then - If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ssh.FileGoto = "(Sub Stroking)" - Else - ssh.FileGoto = "(Sub Not Stroking)" - End If - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckStrokingState", "") + If StringClean.Contains("@CheckStrokingState") Then + 'If SubStroking = True Then + If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then + ssh.FileGoto = "(Sub Stroking)" + Else + ssh.FileGoto = "(Sub Not Stroking)" End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckStrokingState", "") + End If - 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. + 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. - If StringClean.Contains("@SetGroup(") Then + If StringClean.Contains("@SetGroup(") Then - Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) + Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" - If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" + If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" - StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") + StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") - End If + End If - Debug.Print("Command Clean Complete") + Debug.Print("Command Clean Complete") - Return StringClean + Return StringClean - End Function + End Function #Region "-------------------------------------------- Webtoy --------------------------------------------" - Public Sub ActivateWebToy() + Public Sub ActivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try + End If - End Sub + End Sub - Public Sub DeactivateWebToy() + Public Sub DeactivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - End Sub + End Sub #End Region ' WebToy @@ -13094,2447 +13109,2368 @@ VTSkip: #Region "---------------------------------------- Script-Flags ------------------------------------------" - ''' Creates the given flag. - ''' The flag name to set. - ''' If set to true, the flag is temporary set otherwise permanent. - Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) - If Temp = False Then - FlagName = ssh.Folders.Flags & FlagName - Else - FlagName = ssh.Folders.TempFlags & FlagName - End If + ''' Creates the given flag. + ''' The flag name to set. + ''' If set to true, the flag is temporary set otherwise permanent. + Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) + If Temp = False Then + FlagName = ssh.Folders.Flags & FlagName + Else + FlagName = ssh.Folders.TempFlags & FlagName + End If - Using fs As New FileStream(FlagName, FileMode.Create) : End Using + Using fs As New FileStream(FlagName, FileMode.Create) : End Using - End Sub - ''' Deletes the given flag. Deletes permanent and temporary flags. - ''' The name of the flag to delete. - Friend Sub DeleteFlag(ByVal FlagName As String) + End Sub + ''' Deletes the given flag. Deletes permanent and temporary flags. + ''' The name of the flag to delete. + Friend Sub DeleteFlag(ByVal FlagName As String) - If File.Exists(ssh.Folders.Flags & FlagName) Then _ + If File.Exists(ssh.Folders.Flags & FlagName) Then _ File.Delete(ssh.Folders.Flags & FlagName) - If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ + If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ File.Delete(ssh.Folders.TempFlags & FlagName) - End Sub - ''' Checks if the given flag is set, permanent and temporary. - ''' The flag name to search for. - ''' Returns true if a permanent or temporary flag with the name is found. - Friend Function FlagExists(ByVal FlagName As String) As Boolean + End Sub + ''' Checks if the given flag is set, permanent and temporary. + ''' The flag name to search for. + ''' Returns true if a permanent or temporary flag with the name is found. + Friend Function FlagExists(ByVal FlagName As String) As Boolean - If File.Exists(ssh.Folders.Flags & FlagName) OrElse + If File.Exists(ssh.Folders.Flags & FlagName) OrElse File.Exists(ssh.Folders.TempFlags & FlagName) Then - Return True - Else - Return False - End If + Return True + Else + Return False + End If - End Function + End Function #End Region ' Script-Flags #Region "------------------------------------- Script-Variables -----------------------------------------" - Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) + Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) - End Function + End Function - Public Function DeleteVariable(ByVal FlagDir As String) + Public Function DeleteVariable(ByVal FlagDir As String) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) - End Function + End Function - Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) + Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) - Dim Val1 As Integer - Dim Val2 As Integer + Dim Val1 As Integer + Dim Val2 As Integer - If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) - Else - Val1 = 0 - End If + If IsNumeric(ChangeVal1) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) Else - Val1 = Val(ChangeVal1) + Val1 = 0 End If + Else + Val1 = Val(ChangeVal1) + End If - If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) - Else - Val2 = 0 - End If + If IsNumeric(ChangeVal2) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) Else - Val2 = Val(ChangeVal2) + Val2 = 0 End If + Else + Val2 = Val(ChangeVal2) + End If - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Dim ChangeVal As Integer = 0 + Dim ChangeVal As Integer = 0 - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - End Function + End Function - Public Function GetVariable(ByVal VarName As String) As String + Public Function GetVariable(ByVal VarName As String) As String - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - '### DEBUG + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + '### DEBUG - ' VarGet = Val(VarReader.ReadLine()) + ' VarGet = Val(VarReader.ReadLine()) - VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) - Else - VarGet = 0 - End If + VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) + Else + VarGet = 0 + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function CheckVariable(ByVal StringCLean As String) As Boolean + Public Function CheckVariable(ByVal StringCLean As String) As Boolean - Do + Do - Dim SCIfVar As String() = Split(StringCLean) - Dim SCGotVar As String = "Null" + Dim SCIfVar As String() = Split(StringCLean) + Dim SCGotVar As String = "Null" - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@Variable[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains("] ") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") - End If - SCGotVar = SCIfVar(i).Trim - SCIfVar(i) = "" - StringCLean = Join(SCIfVar) + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@Variable[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains("] ") Then Do - StringCLean = StringCLean.Replace(" ", " ") - Loop Until Not StringCLean.Contains(" ") - Exit For + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") End If - Next - - If SCGotVar.Contains("]And[") Then - - Dim AndCheck As Boolean = True - - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") - Next + SCGotVar = SCIfVar(i).Trim + SCIfVar(i) = "" + StringCLean = Join(SCIfVar) + Do + StringCLean = StringCLean.Replace(" ", " ") + Loop Until Not StringCLean.Contains(" ") + Exit For + End If + Next - Return AndCheck + If SCGotVar.Contains("]And[") Then - ElseIf SCGotVar.Contains("]Or[") Then + Dim AndCheck As Boolean = True - Dim OrCheck As Boolean = False + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") + Next - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") - Next + Return AndCheck - Return OrCheck + ElseIf SCGotVar.Contains("]Or[") Then - Else + Dim OrCheck As Boolean = False + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - - Return True - - Else - - Return False - + OrCheck = True + Exit For End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") + Next - End If - - Loop Until Not StringCLean.Contains("@Variable") - - - End Function - -#End Region ' Script-Variables - -#Region "---------------------------------------- Script-Dates ------------------------------------------" - - Public Function GetDate(ByVal VarName As String) As Date - - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) - Else - VarGet = FormatDateTime(Now, DateFormat.GeneralDate) - End If - - Return VarGet - - - End Function - - Public Function GetTime(ByVal VarName As String) As Date + Return OrCheck - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else - VarGet = FormatDateTime(Now, DateFormat.LongTime) - End If - - Return VarGet - - - End Function - - Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean - - Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") - - If DateFlag.Contains(",") Then - - DateFlag = FixCommas(DateFlag) - Dim DateArray() As String = DateFlag.Split(",") - Dim DDiff As Long = 18855881 - Dim DDiff2 As Long = 18855881 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - Dim DCompare As Long - Dim DCompare2 As Long - - If Linear = False Then - - If DateArray.Count = 2 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If - - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If + Return True Else - If DateArray.Count = 2 Then - If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True - Return False - End If - - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If - - If DateArray.Count = 4 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If + Return False End If - Else - If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True - Return False End If - Return False - - End Function - - Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long + Loop Until Not StringCLean.Contains("@Variable") - Dim DDiff As Long = 0 - If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) - If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 - - Return DDiff - - End Function + End Function - Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long +#End Region ' Script-Variables - Dim DDiff As Long = 0 - Dim Amount As Long = Val(DateString) +#Region "---------------------------------------- Script-Dates ------------------------------------------" - If UCase(DateString).Contains("SECOND") Then DDiff = Amount - If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 + Public Function GetDate(ByVal VarName As String) As Date - Return DDiff + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + Else + VarGet = FormatDateTime(Now, DateFormat.GeneralDate) + End If - End Function + Return VarGet -#End Region ' Script-Dates -#End Region ' Flags/Dates/Variables + End Function + Public Function GetTime(ByVal VarName As String) As Date + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + Else + VarGet = FormatDateTime(Now, DateFormat.LongTime) + End If - Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String + Return VarGet + End Function - Dim ParenFlag As String = ParenCheck - Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length - 'githib patch Dim ParenType As String + Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim ParenType As String = Nothing + Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") - ' #### CHECK ALL GETPAREN! - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" + If DateFlag.Contains(",") Then - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then - ParenType = ")" - End If - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then - ParenType = "]" - End If + DateFlag = FixCommas(DateFlag) + Dim DateArray() As String = DateFlag.Split(",") + Dim DDiff As Long = 18855881 + Dim DDiff2 As Long = 18855881 + Dim DCompare As Long + Dim DCompare2 As Long - 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) + If Linear = False Then - 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) - Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) + If DateArray.Count = 2 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If - Debug.Print("ParenEnd = " & ParenEnd) + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If - If ParenEnd = -1 Then ParenEnd = ParenFlag.Length - ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) + Else - 'ParenFlag = ParenFlag.Split(")")(0) - 'ParenFlag = ParenFlag.Split(ParenType)(0) - 'ParenFlag = ParenFlag.Replace(ParenType, "") - 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) - Debug.Print("ParenFlag = " & ParenFlag) + If DateArray.Count = 2 Then + If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True + Return False + End If - Return ParenFlag + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If + If DateArray.Count = 4 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If - End Function + End If - Public Function GetNthIndex(searchString As String, charToFind As Char, startIndex As Integer, n As Integer) As Integer - Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ - .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ - .ElementAtOrDefault(n - 1) - Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) - End Function + Else + If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True + Return False + End If - Public Function FixCommas(ByVal CommaString) As String + Return False - CommaString = CommaString.replace(", ", ",") - CommaString = CommaString.replace(" ,", ",") + End Function - Return CommaString + Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long - End Function + Dim DDiff As Long = 0 - Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean + If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) + If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 - Dim HoldEdgeCheck As Boolean = False + Return DDiff - If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True + End Function - Return HoldEdgeCheck + Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long + Dim DDiff As Long = 0 + Dim Amount As Long = Val(DateString) - End Function + If UCase(DateString).Contains("SECOND") Then DDiff = Amount + If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 - Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, - Optional ByVal ExcludeTags As List(Of String) = Nothing) As String + Return DDiff + End Function - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - ' Read all lines of given file. - ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") - - - Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") - - ssh.LocalTagImageList.RemoveAll(Function(x) - ' Remove if given include tags are missing - If IncludeTags IsNot Nothing Then - For Each tag As String In IncludeTags - If Not x.Contains(tag.Replace("@", "")) Then Return True - Next - End If - ' Remove if given exclude tags are present - If ExcludeTags IsNot Nothing Then - For Each tag As String In ExcludeTags - If x.Contains(tag.Replace("@", "")) Then Return True - Next - End If - ' Remove all without valid extension - Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower - If Not ValidExt.Contains(Ext) Then Return True - 'Everything fine keep file - Return False - End Function) - - Do While ssh.LocalTagImageList.Count > 0 - Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) - ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. - Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) - - If Directory.Exists(Path.GetDirectoryName(Filepath)) _ - AndAlso File.Exists(Filepath) Then - Return Filepath - Else - ssh.LocalTagImageList.RemoveAt(rndNumber) - End If - Loop - End If +#End Region ' Script-Dates - Return String.Empty - End Function +#End Region ' Flags/Dates/Variables - Public Function GetLocalImage(ByVal LocTag As String) As String - 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - Dim TagList As New List(Of String) - TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String - LocTag = LocTag.Replace(" ,", ",") - LocTag = LocTag.Replace(", ", ",") - Dim LocTagArray As String() = LocTag.Split(",") - Dim LocTag1 As String = " " - Dim LocTag2 As String = " " - Dim LocTag3 As String = " " + Dim ParenFlag As String = ParenCheck + Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length + 'githib patch Dim ParenType As String - For i As Integer = 0 To LocTagArray.Count - 1 - If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) - If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) - If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) - Next + Dim ParenType As String = Nothing + ' #### CHECK ALL GETPAREN! + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" - Dim TaggedList As New List(Of String) + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then + ParenType = ")" + End If + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then + ParenType = "]" + End If - For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then - TaggedList.Add(TagList(i)) - End If - Next - If TaggedList.Count > 0 Then - Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split - Dim PicDir As String = "" + 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) - For p As Integer = 0 To PicArray.Count - 1 - PicDir = PicDir & PicArray(p) & " " - If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For - Next + 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) + Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) - Return PicDir + Debug.Print("ParenEnd = " & ParenEnd) - Else - Return String.Empty + If ParenEnd = -1 Then ParenEnd = ParenFlag.Length + ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) - End If + 'ParenFlag = ParenFlag.Split(")")(0) + 'ParenFlag = ParenFlag.Split(ParenType)(0) + 'ParenFlag = ParenFlag.Replace(ParenType, "") + 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) + Debug.Print("ParenFlag = " & ParenFlag) - End If - End Function + Return ParenFlag - Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) - If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True - If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True - If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True - End Sub + End Function - Public Sub DisableContactStroke() - ssh.Contact1Stroke = False - ssh.Contact2Stroke = False - ssh.Contact3Stroke = False - End Sub + Public Function GetNthIndex(searchString As String, charToFind As Char, startIndex As Integer, n As Integer) As Integer + Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ + .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ + .ElementAtOrDefault(n - 1) + Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) + End Function - Public Sub GetSubState() + Public Function FixCommas(ByVal CommaString) As String - ssh.ReturnSubState = "Rest" - If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" - If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" - If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" - If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" - If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" - If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" - If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" - If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" + CommaString = CommaString.replace(", ", ",") + CommaString = CommaString.replace(" ,", ",") + Return CommaString + End Function - End Sub + Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean - Public Sub EdgePace() + Dim HoldEdgeCheck As Boolean = False - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) - If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value - StrokePace = 50 * Math.Round(StrokePace / 50) + If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True - End Sub + Return HoldEdgeCheck + End Function - Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) -#If TRACE Then - Dim sw As New Stopwatch - sw.Start() + Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, + Optional ByVal ExcludeTags As List(Of String) = Nothing) As String - Trace.WriteLine("FilterList Started") - Trace.Indent() -#End If - 'TDOD: Optimze Code "TextedTags" - ssh.FoundTag = "NULL" - Dim slide As ContactData = ssh.SlideshowMain - If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags - Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + ' Read all lines of given file. + ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + + + Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") + + ssh.LocalTagImageList.RemoveAll(Function(x) + ' Remove if given include tags are missing + If IncludeTags IsNot Nothing Then + For Each tag As String In IncludeTags + If Not x.Contains(tag.Replace("@", "")) Then Return True + Next + End If + ' Remove if given exclude tags are present + If ExcludeTags IsNot Nothing Then + For Each tag As String In ExcludeTags + If x.Contains(tag.Replace("@", "")) Then Return True + Next + End If + ' Remove all without valid extension + Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower + If Not ValidExt.Contains(Ext) Then Return True + 'Everything fine keep file + Return False + End Function) + + Do While ssh.LocalTagImageList.Count > 0 + Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) + ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. + Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) + + If Directory.Exists(Path.GetDirectoryName(Filepath)) _ + AndAlso File.Exists(Filepath) Then + Return Filepath + Else + ssh.LocalTagImageList.RemoveAt(rndNumber) + End If + Loop + End If - If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ - AndAlso File.Exists(TagFilePath) Then - Try - Dim TagList As List(Of String) = Txt2List(TagFilePath) + Return String.Empty + End Function - For t As Integer = 0 To TagList.Count - 1 - 'Debug.Print("TagList(t) = " & TagList(t)) - If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then - ssh.FoundTag = TagList(t) - Dim FoundTagSplit As String() = Split(ssh.FoundTag) - For j As Integer = 0 To FoundTagSplit.Length - 1 - If FoundTagSplit(j).Contains("TagGarment") Then - ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") - ssh.TagGarment = ssh.TagGarment.Replace("-", " ") - End If + Public Function GetLocalImage(ByVal LocTag As String) As String + 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - If FoundTagSplit(j).Contains("TagUnderwear") Then - ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") - ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") - End If - If FoundTagSplit(j).Contains("TagTattoo") Then - ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") - ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") - End If + Dim TagList As New List(Of String) + TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") - If FoundTagSplit(j).Contains("TagSexToy") Then - ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") - ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") - End If + LocTag = LocTag.Replace(" ,", ",") + LocTag = LocTag.Replace(", ", ",") - If FoundTagSplit(j).Contains("TagFurniture") Then - ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") - ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") - End If - Next - Exit For - End If - Next - Catch - End Try - End If -SkipTextedTags: + Dim LocTagArray As String() = LocTag.Split(",") - Dim FilterPass As Boolean - Dim ListIncrement As Integer = 1 - If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount + Dim LocTag1 As String = " " + Dim LocTag2 As String = " " + Dim LocTag3 As String = " " - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Check if Grouped-Lines-Files have the right amount of Lines - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' No need to go further on an empty file. - If ListClean.Count <= 0 Then - Trace.WriteLine("FilterList started with empty List. Skipping filter.") - Return ListClean - End If + For i As Integer = 0 To LocTagArray.Count - 1 + If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) + If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) + If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) + Next - ' To Avoid DivideByZeroException - If ListIncrement <= 0 Then - Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " - Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") - Return ListClean - End If - ' Divide List.Count by StrokeTauntSize and get the Remainder. - Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement + Dim TaggedList As New List(Of String) - ' If there is a Remainder, the file has not the desired Line.Count. - If InvalidLineCount > 0 Then - ' So delete the Lines of the last and hopefully uncomplete Group. - ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Grouped-Lines-Check-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then + TaggedList.Add(TagList(i)) + End If + Next - For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + If TaggedList.Count > 0 Then - FilterPass = True + Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split + Dim PicDir As String = "" - For x As Integer = 0 To ListIncrement - 1 - If GetFilter(ListClean(i + x)) = False Then - FilterPass = False - Exit For - End If + For p As Integer = 0 To PicArray.Count - 1 + PicDir = PicDir & PicArray(p) & " " + If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For Next - If FilterPass = False Then - For x As Integer = 0 To ListIncrement - 1 - ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" - Next - End If + Return PicDir - Next + Else + Return String.Empty - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) - Next + End If - 'BUG: Texted Tags are not working. - For x As Integer = 0 To ListClean.Count - 1 - ListClean(x) = ListClean(x).Replace("#TagGarment", ssh.TagGarment.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagUnderwear", ssh.TagUnderwear.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagTattoo", ssh.TagTattoo.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagSexToy", ssh.TagSexToy.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagFurniture", ssh.TagFurniture.Replace("-", " ")) - Next + End If + End Function - Dim FilteredList As New List(Of String) - 'For i As Integer = 0 To ListClean.Count - 1 - 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) - 'Next + Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) + If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True + If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True + If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True + End Sub -#If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") -#End If + Public Sub DisableContactStroke() + ssh.Contact1Stroke = False + ssh.Contact2Stroke = False + ssh.Contact3Stroke = False + End Sub - Return ListClean + Public Sub GetSubState() - End Function + ssh.ReturnSubState = "Rest" + If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" + If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" + If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" + If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" + If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" + If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" + If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" + If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" - Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim OrgFilterString As String = FilterString - Try - If Linear = False Then - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Commands to sort out - ' This Section contains @Commands, which are able to disqualify vocabulary lines. - ' - ' Example-line: "Whatever Text to display @DommeTag(Glaring)" - ' - ' This line has to be sorted out, if there are no corresponding images tagged - ' with "glaring". - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - 'ISSUE: @DomTag() is not filtered out - If FilterString.Contains("@DommeTag(") Then - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.LockImage = True Then - Return False - ElseIf FilterString.ToLower.Contains("@contact1") Then - If ssh.SlideshowContact1.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf FilterString.ToLower.Contains("@contact2") Then - If ssh.SlideshowContact2.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf FilterString.ToLower.Contains("@contact3") Then - If ssh.SlideshowContact3.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf ContactToUse IsNot Nothing Then - If ContactToUse.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - Else - Return False - End If - End If - If FilterString.Contains("@ImageTag(") Then - If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False - End If + End Sub - ' ################## @Show-Category-Image ##################### - If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then - If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowBlowjobImage") Then - If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then - If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowCaptionsImage") Then - If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowDislikedImage") Then - If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowFemdomImage") Then - If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowGayImage") Then - If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowGeneralImage") Then - If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowHardcoreImage") Then - If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowHentaiImage") Then - If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLesbianImage") Then - If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLezdomImage") Then - If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLikedImage") Then - If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLocalImage") Then - If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False - End If - If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then - If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False - End If - 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. - If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False + Public Sub EdgePace() - If FilterString.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = FilterString.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) + If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value + StrokePace = 50 * Math.Round(StrokePace / 50) - If GetLocalImage(Tags, Nothing) = String.Empty Then Return False - End If + End Sub - If FilterString.Contains("@ShowMaledomImage") Then - If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowSoftcoreImage") Then - If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Disqualifying @Commands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Possible space Filters - ' This Section Contains @CommandFilters which allow space chars (0x20). - ' - ' Example: "@Cup(A, B) Whatever Text to display" - ' Mostly all perametrized command filters allow space chars in parameters. - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If FilterString.Contains("@AllowsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@ApathyLevel(") Then - If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False - End If - If FilterString.Contains("@Cup(") Then - If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False - End If - If FilterString.Contains("@RuinsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@Variable[") Then - If CheckVariable(FilterString) = False Then Return False - End If + Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) +#If TRACE Then + Dim sw As New Stopwatch + sw.Start() - If FilterString.Contains("@Group(") Then - Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") - If GroupCheck.Contains("D") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False - End If - If GroupCheck.Contains("1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - End If - If GroupCheck.Contains("2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - End If - If GroupCheck.Contains("3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - End If - End If + Trace.WriteLine("FilterList Started") + Trace.Indent() +#End If + 'TDOD: Optimze Code "TextedTags" + ssh.FoundTag = "NULL" + Dim slide As ContactData = ssh.SlideshowMain + If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags - If FilterString.Contains("@Flag(") Or FilterString.Contains("@NotFlag(") Then - Dim result As Boolean = True - Dim writeFlag As String - Dim splitFlag As String() + Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" - If FilterString.Contains("@Flag(") Then - writeFlag = GetParentheses(FilterString, "@Flag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ + AndAlso File.Exists(TagFilePath) Then + Try + Dim TagList As List(Of String) = Txt2List(TagFilePath) + + For t As Integer = 0 To TagList.Count - 1 + 'Debug.Print("TagList(t) = " & TagList(t)) + If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then + ssh.FoundTag = TagList(t) + Dim FoundTagSplit As String() = Split(ssh.FoundTag) + For j As Integer = 0 To FoundTagSplit.Length - 1 + If FoundTagSplit(j).Contains("TagGarment") Then + ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") + ssh.TagGarment = ssh.TagGarment.Replace("-", " ") + End If - For Each s In splitFlag - If Not FlagExists(s) Then - result = False - Exit For + If FoundTagSplit(j).Contains("TagUnderwear") Then + ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") + ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") End If - Next - End If - If result = False Then Return result - If FilterString.Contains("@NotFlag(") Then - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + If FoundTagSplit(j).Contains("TagTattoo") Then + ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") + ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") + End If + + If FoundTagSplit(j).Contains("TagSexToy") Then + ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") + ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") + End If - For Each s In splitFlag - If FlagExists(s) Then - result = False - Exit For + If FoundTagSplit(j).Contains("TagFurniture") Then + ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") + ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") End If Next + Exit For End If - Return result - End If - - If FilterString.Contains("@CheckDate(") And Linear = False Then - If CheckDateList(FilterString) = False Then Return False - End If - - If FilterString.Contains("@Month(") Then - If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False - End If - - If FilterString.Contains("@Day(") Then - If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False - End If - - If FilterString.Contains("@SetModule(") Then - If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Possible space Filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Single word filters - ' This section contains single word command filters. - ' Since there are some legacy commands, which are filters and also instructions, - ' this section will ignore all @Statements after @NullResponse or the first - ' word not starting with "@" (0x40) - ' - ' Beware: destroys the original FilterString-Value! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - Dim FilterList As String() + Next + Catch + End Try + End If +SkipTextedTags: - FilterList = FilterString.Split(" ") - FilterString = "" + Dim FilterPass As Boolean + Dim ListIncrement As Integer = 1 + If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount - For f As Integer = 0 To FilterList.Count - 1 - If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then - Exit For - End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Check if Grouped-Lines-Files have the right amount of Lines + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' No need to go further on an empty file. + If ListClean.Count <= 0 Then + Trace.WriteLine("FilterList started with empty List. Skipping filter.") + Return ListClean + End If - FilterString = FilterString & FilterList(f) & " " - Next + ' To Avoid DivideByZeroException + If ListIncrement <= 0 Then + Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " + Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") + Return ListClean + End If - If FilterString = "" Then Return True + ' Divide List.Count by StrokeTauntSize and get the Remainder. + Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement - If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False + ' If there is a Remainder, the file has not the desired Line.Count. + If InvalidLineCount > 0 Then + ' So delete the Lines of the last and hopefully uncomplete Group. + ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Grouped-Lines-Check-END + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False - If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False - If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False - If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False - If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False + For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement - If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False - If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then - If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False - End If - If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False + FilterPass = True - If FilterString.ToLower.Contains("@acup") Then - If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@bcup") Then - If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ccup") Then - If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@dcup") Then - If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddcup") Then - If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddd+cup") Then - If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False + For x As Integer = 0 To ListIncrement - 1 + If GetFilter(ListClean(i + x)) = False Then + FilterPass = False + Exit For End If + Next - If FilterString.ToLower.Contains("@tagface") And Not ssh.FoundTag.ToLower.Contains("tagface") Then Return False - If FilterString.ToLower.Contains("@tagboobs") And Not ssh.FoundTag.ToLower.Contains("tagboobs") Then Return False - If FilterString.ToLower.Contains("@tagpussy") And Not ssh.FoundTag.ToLower.Contains("tagpussy") Then Return False - If FilterString.ToLower.Contains("@tagass") And Not ssh.FoundTag.ToLower.Contains("tagass") Then Return False - If FilterString.ToLower.Contains("@tagfeet") And Not ssh.FoundTag.ToLower.Contains("tagfeet") Then Return False - If FilterString.ToLower.Contains("@taglegs") And Not ssh.FoundTag.ToLower.Contains("taglegs") Then Return False - If FilterString.ToLower.Contains("@tagmasturbating") And Not ssh.FoundTag.ToLower.Contains("tagmasturbating") Then Return False - If FilterString.ToLower.Contains("@tagsucking") And Not ssh.FoundTag.ToLower.Contains("tagsucking") Then Return False - If FilterString.ToLower.Contains("@tagfullydressed") And Not ssh.FoundTag.ToLower.Contains("tagfullydressed") Then Return False - If FilterString.ToLower.Contains("@taghalfdressed") And Not ssh.FoundTag.ToLower.Contains("taghalfdressed") Then Return False - If FilterString.ToLower.Contains("@taggarmentcovering") And Not ssh.FoundTag.ToLower.Contains("taggarmentcovering") Then Return False - If FilterString.ToLower.Contains("@taghandscovering") And Not ssh.FoundTag.ToLower.Contains("taghandscovering") Then Return False - If FilterString.ToLower.Contains("@tagnaked") And Not ssh.FoundTag.ToLower.Contains("tagnaked") Then Return False - If FilterString.ToLower.Contains("@tagsideview") And Not ssh.FoundTag.ToLower.Contains("tagsideview") Then Return False - If FilterString.ToLower.Contains("@tagcloseup") And Not ssh.FoundTag.ToLower.Contains("tagcloseup") Then Return False - If FilterString.ToLower.Contains("@tagpiercing") And Not ssh.FoundTag.ToLower.Contains("tagpiercing") Then Return False - If FilterString.ToLower.Contains("@tagsmiling") And Not ssh.FoundTag.ToLower.Contains("tagsmiling") Then Return False - If FilterString.ToLower.Contains("@tagglaring") And Not ssh.FoundTag.ToLower.Contains("tagglaring") Then Return False - If FilterString.ToLower.Contains("@taggarment") And Not ssh.FoundTag.ToLower.Contains("taggarment") Then Return False - If FilterString.ToLower.Contains("@tagunderwear") And Not ssh.FoundTag.ToLower.Contains("tagunderwear") Then Return False - If FilterString.ToLower.Contains("@tagtattoo") And Not ssh.FoundTag.ToLower.Contains("tagtattoo") Then Return False - If FilterString.ToLower.Contains("@tagsextoy") And Not ssh.FoundTag.ToLower.Contains("tagsextoy") Then Return False - If FilterString.ToLower.Contains("@tagfurniture") And Not ssh.FoundTag.ToLower.Contains("tagfurniture") Then Return False + If FilterPass = False Then + For x As Integer = 0 To ListIncrement - 1 + ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" + Next + End If - If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False - If FilterString.ToLower.Contains("@cockaverage") Then - If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False - End If + Next - If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) + Next - If FilterString.ToLower.Contains("@dombirthday") Then - If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If + 'BUG: Texted Tags are not working. + For x As Integer = 0 To ListClean.Count - 1 + ListClean(x) = ListClean(x).Replace("#TagGarment", ssh.TagGarment.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagUnderwear", ssh.TagUnderwear.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagTattoo", ssh.TagTattoo.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagSexToy", ssh.TagSexToy.Replace("-", " ")) + ListClean(x) = ListClean(x).Replace("#TagFurniture", ssh.TagFurniture.Replace("-", " ")) + Next - If FilterString.ToLower.Contains("@subbirthday") Then - If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If - - If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + Dim FilteredList As New List(Of String) - If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False - If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False + 'For i As Integer = 0 To ListClean.Count - 1 + 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) + 'Next - If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False - If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False - If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then - If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False - End If - If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then - If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False - End If +#If TRACE Then + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") +#End If - If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False - If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False - If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False - If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False - If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False + Return ListClean - If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False - If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False - If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False - If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False + End Function - If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False - If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False - If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False - If FilterString.Contains("@LongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False - End If - If FilterString.Contains("@InterruptLongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False + Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean + Dim OrgFilterString As String = FilterString + Try + If Linear = False Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Commands to sort out + ' This Section contains @Commands, which are able to disqualify vocabulary lines. + ' + ' Example-line: "Whatever Text to display @DommeTag(Glaring)" + ' + ' This line has to be sorted out, if there are no corresponding images tagged + ' with "glaring". + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + 'ISSUE: @DomTag() is not filtered out + If FilterString.Contains("@DommeTag(") Then + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.LockImage = True Then + Return False + ElseIf FilterString.ToLower.Contains("@contact1") Then + If ssh.SlideshowContact1.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + ElseIf FilterString.ToLower.Contains("@contact2") Then + If ssh.SlideshowContact2.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + ElseIf FilterString.ToLower.Contains("@contact3") Then + If ssh.SlideshowContact3.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + ElseIf ContactToUse IsNot Nothing Then + If ContactToUse.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + Else + Return False + End If End If - If FilterString.Contains("@1MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False - End If - If FilterString.Contains("@2MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False + If FilterString.Contains("@ImageTag(") Then + If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False End If - If FilterString.Contains("@3MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False - End If - If FilterString.Contains("@4MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False + + ' ################## @Show-Category-Image ##################### + If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then + If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@5MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False + If FilterString.Contains("@ShowBlowjobImage") Then + If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@10MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False + If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@15MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False + If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then + If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@30MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False + If FilterString.Contains("@ShowCaptionsImage") Then + If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@45MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False + If FilterString.Contains("@ShowDislikedImage") Then + If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@60MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False + If FilterString.Contains("@ShowFemdomImage") Then + If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - - If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False - If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False - If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False - If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False - If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False - If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False - If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False - If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False - If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False - If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False - If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False - If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False - If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False - - If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False - If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False - If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False - If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False - If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False - If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False - If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False - If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False - If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False - If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False - If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False - If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False - If FilterString.Contains("@VitalSubAssignment") Then - If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False + If FilterString.Contains("@ShowGayImage") Then + If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - - If FilterString.Contains("@RuinTaunt") Then - If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False + If FilterString.Contains("@ShowGeneralImage") Then + If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - - If FilterString.Contains("@VideoHardcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False + If FilterString.Contains("@ShowHardcoreImage") Then + If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@VideoSoftcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False + If FilterString.Contains("@ShowHentaiImage") Then + If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@VideoLesbian") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False + If FilterString.Contains("@ShowLesbianImage") Then + If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@VideoBlowjob") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False + If FilterString.Contains("@ShowLezdomImage") Then + If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@VideoFemdom") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False + If FilterString.Contains("@ShowLikedImage") Then + If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@VideoFemsub") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False + If FilterString.Contains("@ShowLocalImage") Then + If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False End If - If FilterString.Contains("@VideoGeneral") Then - If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False + If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then + If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False End If + 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. + If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False - If FilterString.Contains("@VideoHardcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False + If FilterString.Contains("@ShowTaggedImage") Then + Dim Tags As List(Of String) = FilterString.Split() _ + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + + If GetLocalImage(Tags, Nothing) = String.Empty Then Return False End If - If FilterString.Contains("@VideoSoftcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False + + If FilterString.Contains("@ShowMaledomImage") Then + If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@VideoLesbianDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False + If FilterString.Contains("@ShowSoftcoreImage") Then + If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - If FilterString.Contains("@VideoBlowjobDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Disqualifying @Commands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + End If + + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Possible space Filters + ' This Section Contains @CommandFilters which allow space chars (0x20). + ' + ' Example: "@Cup(A, B) Whatever Text to display" + ' Mostly all perametrized command filters allow space chars in parameters. + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + If FilterString.Contains("@AllowsOrgasm(") Then + If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@ApathyLevel(") Then + If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False + End If + If FilterString.Contains("@Cup(") Then + If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False + End If + If FilterString.Contains("@RuinsOrgasm(") Then + If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@Variable[") Then + If CheckVariable(FilterString) = False Then Return False + End If + + If FilterString.Contains("@Group(") Then + Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") + If GroupCheck.Contains("D") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False End If - If FilterString.Contains("@VideoFemdomDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False + If GroupCheck.Contains("1") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False End If - If FilterString.Contains("@VideoFemsubDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False + If GroupCheck.Contains("2") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False End If - If FilterString.Contains("@VideoGeneralDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False + If GroupCheck.Contains("3") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False End If + End If - If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False - If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False - If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False - If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False - If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False - If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False - If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False - If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False - If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False - If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False - If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False - If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False + If FilterString.Contains("@Flag(") Or FilterString.Contains("@NotFlag(") Then + Dim result As Boolean = True + Dim writeFlag As String + Dim splitFlag As String() - If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then - If ssh.SubStroking = False Then Return False - End If + If FilterString.Contains("@Flag(") Then + writeFlag = GetParentheses(FilterString, "@Flag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then - If ssh.SubStroking = True Then Return False + For Each s In splitFlag + If Not FlagExists(s) Then + result = False + Exit For + End If + Next End If + If result = False Then Return result - If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then - If ssh.SubEdging = False Then Return False - End If + If FilterString.Contains("@NotFlag(") Then + writeFlag = GetParentheses(FilterString, "@NotFlag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then - If ssh.SubEdging = True Then Return False + For Each s In splitFlag + If FlagExists(s) Then + result = False + Exit For + End If + Next End If + Return result + End If - If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then - If ssh.SubHoldingEdge = False Then Return False - End If + If FilterString.Contains("@CheckDate(") And Linear = False Then + If CheckDateList(FilterString) = False Then Return False + End If - If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then - If ssh.SubHoldingEdge = True Then Return False - End If + If FilterString.Contains("@Month(") Then + If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False + End If - If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False - If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False - If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False - If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False - If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False - If FilterString.Contains("@NeutralMood") Then - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False - End If + If FilterString.Contains("@Day(") Then + If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False + End If - If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False - If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False - If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False - If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False - If FilterString.Contains("@LongHold") Then - If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False - End If + If FilterString.Contains("@SetModule(") Then + If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Possible space Filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If FilterString.Contains("@ExtremeHold") Then - If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False - End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Single word filters + ' This section contains single word command filters. + ' Since there are some legacy commands, which are filters and also instructions, + ' this section will ignore all @Statements after @NullResponse or the first + ' word not starting with "@" (0x40) + ' + ' Beware: destroys the original FilterString-Value! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + Dim FilterList As String() - If FilterString.Contains("@AssWorship") Then - If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False - End If + FilterList = FilterString.Split(" ") + FilterString = "" - If FilterString.Contains("@BoobWorship") Then - If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False + For f As Integer = 0 To FilterList.Count - 1 + If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then + Exit For End If - If FilterString.Contains("@PussyWorship") Then - If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False - End If + FilterString = FilterString & FilterList(f) & " " + Next - If FilterString.Contains("@Contact1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - End If + If FilterString = "" Then Return True - If FilterString.Contains("@Contact2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - End If + If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False - If FilterString.Contains("@Contact3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - End If + If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False + If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False + If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False + If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False + If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False - If FilterString.Contains("@Info") Then Return False - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Single word filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - Return True - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exceoption occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") - Return False - End Try - End Function + If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False + If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then + If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False + End If + If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False + If FilterString.ToLower.Contains("@acup") Then + If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@bcup") Then + If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ccup") Then + If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@dcup") Then + If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddcup") Then + If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddd+cup") Then + If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False + End If - Public Function GetFilter2(ByVal FilterString As String) As Boolean + If FilterString.ToLower.Contains("@tagface") And Not ssh.FoundTag.ToLower.Contains("tagface") Then Return False + If FilterString.ToLower.Contains("@tagboobs") And Not ssh.FoundTag.ToLower.Contains("tagboobs") Then Return False + If FilterString.ToLower.Contains("@tagpussy") And Not ssh.FoundTag.ToLower.Contains("tagpussy") Then Return False + If FilterString.ToLower.Contains("@tagass") And Not ssh.FoundTag.ToLower.Contains("tagass") Then Return False + If FilterString.ToLower.Contains("@tagfeet") And Not ssh.FoundTag.ToLower.Contains("tagfeet") Then Return False + If FilterString.ToLower.Contains("@taglegs") And Not ssh.FoundTag.ToLower.Contains("taglegs") Then Return False + If FilterString.ToLower.Contains("@tagmasturbating") And Not ssh.FoundTag.ToLower.Contains("tagmasturbating") Then Return False + If FilterString.ToLower.Contains("@tagsucking") And Not ssh.FoundTag.ToLower.Contains("tagsucking") Then Return False + If FilterString.ToLower.Contains("@tagfullydressed") And Not ssh.FoundTag.ToLower.Contains("tagfullydressed") Then Return False + If FilterString.ToLower.Contains("@taghalfdressed") And Not ssh.FoundTag.ToLower.Contains("taghalfdressed") Then Return False + If FilterString.ToLower.Contains("@taggarmentcovering") And Not ssh.FoundTag.ToLower.Contains("taggarmentcovering") Then Return False + If FilterString.ToLower.Contains("@taghandscovering") And Not ssh.FoundTag.ToLower.Contains("taghandscovering") Then Return False + If FilterString.ToLower.Contains("@tagnaked") And Not ssh.FoundTag.ToLower.Contains("tagnaked") Then Return False + If FilterString.ToLower.Contains("@tagsideview") And Not ssh.FoundTag.ToLower.Contains("tagsideview") Then Return False + If FilterString.ToLower.Contains("@tagcloseup") And Not ssh.FoundTag.ToLower.Contains("tagcloseup") Then Return False + If FilterString.ToLower.Contains("@tagpiercing") And Not ssh.FoundTag.ToLower.Contains("tagpiercing") Then Return False + If FilterString.ToLower.Contains("@tagsmiling") And Not ssh.FoundTag.ToLower.Contains("tagsmiling") Then Return False + If FilterString.ToLower.Contains("@tagglaring") And Not ssh.FoundTag.ToLower.Contains("tagglaring") Then Return False + If FilterString.ToLower.Contains("@taggarment") And Not ssh.FoundTag.ToLower.Contains("taggarment") Then Return False + If FilterString.ToLower.Contains("@tagunderwear") And Not ssh.FoundTag.ToLower.Contains("tagunderwear") Then Return False + If FilterString.ToLower.Contains("@tagtattoo") And Not ssh.FoundTag.ToLower.Contains("tagtattoo") Then Return False + If FilterString.ToLower.Contains("@tagsextoy") And Not ssh.FoundTag.ToLower.Contains("tagsextoy") Then Return False + If FilterString.ToLower.Contains("@tagfurniture") And Not ssh.FoundTag.ToLower.Contains("tagfurniture") Then Return False + If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False + If FilterString.ToLower.Contains("@cockaverage") Then + If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False + End If - Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) - Try - '=============================================================================== - ' Dictionary Setup Description - ' 1st Parameter: "Key" this is the Command as String preceded with @ - ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. - ' - ' If "Value" is "True", all lines containing "Key" will be excuded. - ' - '=============================================================================== - With __ConditionDic - .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) - .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) - .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) - .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) - .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) - .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) - .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) - .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) - .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) - .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) - .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) - .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) - .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) - .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) - .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) - .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) - .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) - .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) - .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) - .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) - .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) - .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) - .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) - .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) - .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) - .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) - .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) - .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@TagFace", Not ssh.FoundTag.Contains("TagFace")) - .Add("@TagBoobs", Not ssh.FoundTag.Contains("TagBoobs")) - .Add("@TagPussy", Not ssh.FoundTag.Contains("TagPussy")) - .Add("@TagAss", Not ssh.FoundTag.Contains("TagAss")) - .Add("@TagFeet", Not ssh.FoundTag.Contains("TagFeet")) - .Add("@TagLegs", Not ssh.FoundTag.Contains("TagLegs")) - .Add("@TagMasturbating", Not ssh.FoundTag.Contains("TagMasturbating")) - .Add("@TagSucking", Not ssh.FoundTag.Contains("TagSucking")) - .Add("@TagFullyDressed", Not ssh.FoundTag.Contains("TagFullyDressed")) - .Add("@TagHalfDressed", Not ssh.FoundTag.Contains("TagHalfDressed")) - .Add("@TagGarmentCovering", Not ssh.FoundTag.Contains("TagGarmentCovering")) - .Add("@TagHandsCovering", Not ssh.FoundTag.Contains("TagHandsCovering")) - .Add("@TagNaked", Not ssh.FoundTag.Contains("TagNaked")) - .Add("@TagSideView", Not ssh.FoundTag.Contains("TagSideView")) - .Add("@TagCloseUp", Not ssh.FoundTag.Contains("TagCloseUp")) - .Add("@TagPiercing", Not ssh.FoundTag.Contains("TagPiercing")) - .Add("@TagSmiling", Not ssh.FoundTag.Contains("TagSmiling")) - .Add("@TagGlaring", Not ssh.FoundTag.Contains("TagGlaring")) - .Add("@TagGarment", Not ssh.FoundTag.Contains("TagGarment")) - .Add("@TagUnderwear", Not ssh.FoundTag.Contains("TagUnderwear")) - .Add("@TagTattoo", Not ssh.FoundTag.Contains("TagTattoo")) - .Add("@TagSexToy", Not ssh.FoundTag.Contains("TagSexToy")) - .Add("@TagFurniture", Not ssh.FoundTag.Contains("TagFurniture")) - .Add("@FirstRound", ssh.FirstRound = False) - .Add("@NotFirstRound", ssh.FirstRound = True) - .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) - .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) - .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") - .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") - .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") - .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") - .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") - .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") - .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") - .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") - .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") - .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") - .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") - .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") - .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") - .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") - .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) - .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) - .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) - '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. - '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) - .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) - .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) - .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) - .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) - .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) - .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) - .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) - .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) - .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) - .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) - .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) - .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) - .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) - .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) - .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) - .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) - .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) - .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) - .Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. - .Add("@BeforeTease", ssh.BeforeTease = False) - .Add("@OrgasmDenied", ssh.OrgasmDenied = False) - .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) - .Add("@OrgasmRuined", ssh.OrgasmRuined = False) - .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) - .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) - .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) - .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) - .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) - .Add("@InChastity", My.Settings.Chastity = False) - .Add("@NotInChastity", My.Settings.Chastity = True) - .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) - .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) - .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) - .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) - .Add("@VitalSub", CBVitalSub.Checked = False) - .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) - .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) - .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) - .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) - .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") - .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") - .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") - .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") - .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") - .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") - .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") - .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") - .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") - .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") - .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") - .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") - .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") - .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") - .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) - .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) - .Add("@BallTorture0", ssh.CBTBallsCount <> 0) - .Add("@BallTorture1", ssh.CBTBallsCount <> 1) - .Add("@BallTorture2", ssh.CBTBallsCount <> 2) - .Add("@BallTorture3", ssh.CBTBallsCount <> 3) - .Add("@BallTorture4+", ssh.CBTBallsCount < 4) - .Add("@CockTorture0", ssh.CBTCockCount <> 0) - .Add("@CockTorture1", ssh.CBTCockCount <> 1) - .Add("@CockTorture2", ssh.CBTCockCount <> 2) - .Add("@CockTorture3", ssh.CBTCockCount <> 3) - .Add("@CockTorture4+", ssh.CBTCockCount < 4) - .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) - .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) - .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) - .Add("@Stroking", ssh.SubStroking = False) - .Add("@SubStroking", ssh.SubStroking = False) - .Add("@NotStroking", ssh.SubStroking = True) - .Add("@SubNotStroking", ssh.SubStroking = True) - .Add("@Edging", ssh.SubEdging = False) - .Add("@SubEdging", ssh.SubEdging = False) - .Add("@NotEdging", ssh.SubEdging = True) - .Add("@SubNotEdging", ssh.SubEdging = True) - .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@Morning", ssh.GeneralTime <> "Morning") - .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") - .Add("@Night", ssh.GeneralTime <> "Night") - .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) - .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) - .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) - .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. - .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) - .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) - .Add("@SubWorshipping", ssh.WorshipMode = False) - .Add("@SubNotWorshipping", ssh.WorshipMode = True) - .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) - .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) - .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) - .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) - .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) - End With - Catch ex As ArgumentException - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' ArgumentException => Will occur everytime until you fix Source Code! - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) - MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & - "further executing the Code, the application will exit after closing this Message." & vbCrLf & - ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") - Application.Exit() - End Try + If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@dombirthday") Then + If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If - Try - ' Declare a new regex Instance, for detecting the parameters in a line. - ' Allowed chars for Commands are: A-Z a-z 0-9 @ - ' Allowed Brackets are : ( [ - ' Minimum length is 3 Chars, maximum Command length has no restriction. - Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) - - - ' Execute regex on current line, to find all containing Commands - Dim mc As MatchCollection = __re.Matches(FilterString) - - For Each m As Match In mc - If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then - '=============================================================================== - ' Known Command - DELETE Condition = TRUE - '=============================================================================== - ' The Command is known and his delete condition is True -> delete line - Return False + If FilterString.ToLower.Contains("@subbirthday") Then + If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If + + If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then - '=============================================================================== - ' Unknown Command / BracketCommand - '=============================================================================== - Dim Condition As Boolean = False - - Select Case m.Value.ToUpper - Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) - Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) - Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) - Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) - Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) - Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) - Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) - 'QND-Implemented: ContactData.GetTaggedImage - 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True - Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) - Case Else - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - ' Unknown Command => goto next Match - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - Dim f As String = "" ' Debug line to add the ability to set a breakpoint. - Exit For - End Select - ' The Command is known and his delete condition is True -> delete line - If Condition Then Return False - End If - Next ' of Regex matches (Commands) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: Once implemented rethrow all exceptions. - 'Throw - End Try + If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False + If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False - Return True + If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False + If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False + If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then + If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False + End If + If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then + If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False + End If + If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False + If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False + If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False + If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False + If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False + If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False + If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False + If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False + If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False + If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False + If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False + If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False - End Function + If FilterString.Contains("@LongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False + End If + If FilterString.Contains("@InterruptLongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False + End If + If FilterString.Contains("@1MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False + End If + If FilterString.Contains("@2MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False + End If + If FilterString.Contains("@3MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False + End If + If FilterString.Contains("@4MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False + End If + If FilterString.Contains("@5MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False + End If + If FilterString.Contains("@10MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False + End If + If FilterString.Contains("@15MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False + End If + If FilterString.Contains("@30MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False + End If + If FilterString.Contains("@45MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False + End If + If FilterString.Contains("@60MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False + End If -#Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" + If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False + If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False + If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False + If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False + If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False + If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False + If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False + If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False + If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False + If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False + If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False + If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False + If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False - Private Sub ChatText_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted - ScrollChatDown() - End Sub + If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False + If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False + If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False + If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False + If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False + If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False + If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False + If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False + If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False + If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False + If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False + If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False + If FilterString.Contains("@VitalSubAssignment") Then + If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False + End If + If FilterString.Contains("@RuinTaunt") Then + If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False + End If - Private Sub ChatText2_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub + If FilterString.Contains("@VideoHardcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False + End If + If FilterString.Contains("@VideoSoftcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False + End If + If FilterString.Contains("@VideoLesbian") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False + End If + If FilterString.Contains("@VideoBlowjob") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False + End If + If FilterString.Contains("@VideoFemdom") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False + End If + If FilterString.Contains("@VideoFemsub") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False + End If + If FilterString.Contains("@VideoGeneral") Then + If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False + End If - Private Sub chatBox_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop - chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub + If FilterString.Contains("@VideoHardcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False + End If + If FilterString.Contains("@VideoSoftcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False + End If + If FilterString.Contains("@VideoLesbianDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False + End If + If FilterString.Contains("@VideoBlowjobDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False + End If + If FilterString.Contains("@VideoFemdomDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False + End If + If FilterString.Contains("@VideoFemsubDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False + End If + If FilterString.Contains("@VideoGeneralDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False + End If - Private Sub chatBox2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop - chatBox.Text = "" - ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub + If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False + If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False + If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False + If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False + If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False + If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False + If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False + If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False + If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False + If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False + If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False + If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False - Private Sub chatBox_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy + If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then + If ssh.SubStroking = False Then Return False End If - End Sub - Private Sub chatBox2_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy + If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then + If ssh.SubStroking = True Then Return False End If - End Sub - Private Sub chatbox_KeyDown(sender As Object, e As KeyEventArgs) Handles chatBox.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True + If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then + If ssh.SubEdging = False Then Return False End If - End Sub - Private Sub chatbox2_KeyDown(sender As Object, e As KeyEventArgs) Handles ChatBox2.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True + If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then + If ssh.SubEdging = True Then Return False End If - End Sub - Private Sub chatBox_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) + If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then + If ssh.SubHoldingEdge = False Then Return False End If - End Sub - Private Sub chatBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) + If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then + If ssh.SubHoldingEdge = True Then Return False End If - End Sub -#End Region ' Chatbox + If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False + If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False + If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False + If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False + If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False + If FilterString.Contains("@NeutralMood") Then + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + End If -#Region "------------------------------------ Avoid the Edge --------------------------------------------" + If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False + If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False + If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False + If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False + If FilterString.Contains("@LongHold") Then + If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False + End If - Private Sub AvoidTheEdge_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdge.Tick + If FilterString.Contains("@ExtremeHold") Then + If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False + End If - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FilterString.Contains("@AssWorship") Then + If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False + End If - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return - If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If FilterString.Contains("@BoobWorship") Then + If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False + End If - ssh.AvoidTheEdgeTick -= 1 + If FilterString.Contains("@PussyWorship") Then + If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False + End If - If ssh.AvoidTheEdgeTick < 1 Then + If FilterString.Contains("@Contact1") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + End If + If FilterString.Contains("@Contact2") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + End If + If FilterString.Contains("@Contact3") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + End If - Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" - If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" + If FilterString.Contains("@Info") Then Return False + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Single word filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + Return True + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(String.Format("Exceoption occured while checking line ""{0}"".", OrgFilterString), + ex, "GetFilter(String, Boolean)") + Return False + End Try + End Function - Dim AvoidTheEdgeLineStart As Integer - Dim AvoidTheEdgeLineEnd As Integer + Public Function GetFilter2(ByVal FilterString As String) As Boolean - If File.Exists(AvoidTheEdgeVideo) Then - Else - If ssh.DommeVideo = True Then - MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") - Else - MsgBox("AvoidTheEdge.txt is missing!", , "Error!") - End If - Return - End If + Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) + Try + '=============================================================================== + ' Dictionary Setup Description + ' 1st Parameter: "Key" this is the Command as String preceded with @ + ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. + ' + ' If "Value" is "True", all lines containing "Key" will be excuded. + ' + '=============================================================================== + With __ConditionDic + .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) + .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) + .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) + .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) + .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) + .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) + .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) + .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) + .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) + .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) + .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) + .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) + .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) + .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) + .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) + .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) + .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) + .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) + .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) + .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) + .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) + .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) + .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) + .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) + .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) + .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) + .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) + .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + .Add("@TagFace", Not ssh.FoundTag.Contains("TagFace")) + .Add("@TagBoobs", Not ssh.FoundTag.Contains("TagBoobs")) + .Add("@TagPussy", Not ssh.FoundTag.Contains("TagPussy")) + .Add("@TagAss", Not ssh.FoundTag.Contains("TagAss")) + .Add("@TagFeet", Not ssh.FoundTag.Contains("TagFeet")) + .Add("@TagLegs", Not ssh.FoundTag.Contains("TagLegs")) + .Add("@TagMasturbating", Not ssh.FoundTag.Contains("TagMasturbating")) + .Add("@TagSucking", Not ssh.FoundTag.Contains("TagSucking")) + .Add("@TagFullyDressed", Not ssh.FoundTag.Contains("TagFullyDressed")) + .Add("@TagHalfDressed", Not ssh.FoundTag.Contains("TagHalfDressed")) + .Add("@TagGarmentCovering", Not ssh.FoundTag.Contains("TagGarmentCovering")) + .Add("@TagHandsCovering", Not ssh.FoundTag.Contains("TagHandsCovering")) + .Add("@TagNaked", Not ssh.FoundTag.Contains("TagNaked")) + .Add("@TagSideView", Not ssh.FoundTag.Contains("TagSideView")) + .Add("@TagCloseUp", Not ssh.FoundTag.Contains("TagCloseUp")) + .Add("@TagPiercing", Not ssh.FoundTag.Contains("TagPiercing")) + .Add("@TagSmiling", Not ssh.FoundTag.Contains("TagSmiling")) + .Add("@TagGlaring", Not ssh.FoundTag.Contains("TagGlaring")) + .Add("@TagGarment", Not ssh.FoundTag.Contains("TagGarment")) + .Add("@TagUnderwear", Not ssh.FoundTag.Contains("TagUnderwear")) + .Add("@TagTattoo", Not ssh.FoundTag.Contains("TagTattoo")) + .Add("@TagSexToy", Not ssh.FoundTag.Contains("TagSexToy")) + .Add("@TagFurniture", Not ssh.FoundTag.Contains("TagFurniture")) + .Add("@FirstRound", ssh.FirstRound = False) + .Add("@NotFirstRound", ssh.FirstRound = True) + .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) + .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) + .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") + .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") + .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") + .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") + .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") + .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") + .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") + .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") + .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") + .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") + .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") + .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") + .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") + .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") + .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) + .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) + .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. + '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) + .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) + .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) + .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) + .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) + .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) + .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) + .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) + .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) + .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) + .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) + .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) + .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) + .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) + .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) + .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) + .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) + .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) + .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) + .Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. + .Add("@BeforeTease", ssh.BeforeTease = False) + .Add("@OrgasmDenied", ssh.OrgasmDenied = False) + .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) + .Add("@OrgasmRuined", ssh.OrgasmRuined = False) + .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) + .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) + .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) + .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) + .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) + .Add("@InChastity", My.Settings.Chastity = False) + .Add("@NotInChastity", My.Settings.Chastity = True) + .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) + .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) + .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) + .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) + .Add("@VitalSub", CBVitalSub.Checked = False) + .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) + .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) + .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) + .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) + .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") + .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") + .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") + .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") + .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") + .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") + .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") + .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") + .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") + .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") + .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") + .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") + .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") + .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") + .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) + .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) + .Add("@BallTorture0", ssh.CBTBallsCount <> 0) + .Add("@BallTorture1", ssh.CBTBallsCount <> 1) + .Add("@BallTorture2", ssh.CBTBallsCount <> 2) + .Add("@BallTorture3", ssh.CBTBallsCount <> 3) + .Add("@BallTorture4+", ssh.CBTBallsCount < 4) + .Add("@CockTorture0", ssh.CBTCockCount <> 0) + .Add("@CockTorture1", ssh.CBTCockCount <> 1) + .Add("@CockTorture2", ssh.CBTCockCount <> 2) + .Add("@CockTorture3", ssh.CBTCockCount <> 3) + .Add("@CockTorture4+", ssh.CBTCockCount < 4) + .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) + .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) + .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) + .Add("@Stroking", ssh.SubStroking = False) + .Add("@SubStroking", ssh.SubStroking = False) + .Add("@NotStroking", ssh.SubStroking = True) + .Add("@SubNotStroking", ssh.SubStroking = True) + .Add("@Edging", ssh.SubEdging = False) + .Add("@SubEdging", ssh.SubEdging = False) + .Add("@NotEdging", ssh.SubEdging = True) + .Add("@SubNotEdging", ssh.SubEdging = True) + .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@Morning", ssh.GeneralTime <> "Morning") + .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") + .Add("@Night", ssh.GeneralTime <> "Night") + .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) + .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) + .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) + .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. + .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) + .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) + .Add("@SubWorshipping", ssh.WorshipMode = False) + .Add("@SubNotWorshipping", ssh.WorshipMode = True) + .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) + .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) + .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) + .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) + .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) + End With + Catch ex As ArgumentException + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' ArgumentException => Will occur everytime until you fix Source Code! + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) + MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & + "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & + "further executing the Code, the application will exit after closing this Message." & vbCrLf & + ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") + Application.Exit() + End Try - If ssh.AvoidTheEdgeStroking = False Then + Try + ' Declare a new regex Instance, for detecting the parameters in a line. + ' Allowed chars for Commands are: A-Z a-z 0-9 @ + ' Allowed Brackets are : ( [ + ' Minimum length is 3 Chars, maximum Command length has no restriction. + Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) - 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) + ' Execute regex on current line, to find all containing Commands + Dim mc As MatchCollection = __re.Matches(FilterString) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + For Each m As Match In mc + If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then + '=============================================================================== + ' Known Command - DELETE Condition = TRUE + '=============================================================================== + ' The Command is known and his delete condition is True -> delete line + Return False - ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then - 'Return - 'End If + ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then + '=============================================================================== + ' Unknown Command / BracketCommand + '=============================================================================== + Dim Condition As Boolean = False + + Select Case m.Value.ToUpper + Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) + Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) + Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) + Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) + Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) + Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) + Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) + 'QND-Implemented: ContactData.GetTaggedImage + 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True + Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) + Case Else + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + ' Unknown Command => goto next Match + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + Dim f As String = "" ' Debug line to add the ability to set a breakpoint. + Exit For + End Select + ' The Command is known and his delete condition is True -> delete line + If Condition Then Return False + End If + Next ' of Regex matches (Commands) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: Once implemented rethrow all exceptions. + 'Throw + End Try - Using ioFileA As New StreamReader(AvoidTheEdgeVideo) - Dim linesA As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer - - TempAvoidTheEdgeLine = -1 - While ioFileA.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesA.Add(ioFileA.ReadLine()) - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While - - End Using + Return True - Else + End Function +#Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + Private Sub ChatText_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted + ScrollChatDown() + End Sub - Using ioFileB As New StreamReader(AvoidTheEdgeVideo) - Dim linesB As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer - TempAvoidTheEdgeLine = -1 - While ioFileB.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesB.Add(ioFileB.ReadLine()) - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While + Private Sub ChatText2_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + End Sub - End Using + Private Sub chatBox_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop + chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub - End If + Private Sub chatBox2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop + chatBox.Text = "" + ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub - Dim ioFile As New StreamReader(AvoidTheEdgeVideo) - Dim lines As New List(Of String) - While ioFile.Peek <> -1 - lines.Add(ioFile.ReadLine()) - End While + Private Sub chatBox_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + End If + End Sub - Dim AvoidTheEdgeLine As Integer + Private Sub chatBox2_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + End If + End Sub - 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) - 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) + Private Sub chatbox_KeyDown(sender As Object, e As KeyEventArgs) Handles chatBox.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True + End If + End Sub - AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) + Private Sub chatbox2_KeyDown(sender As Object, e As KeyEventArgs) Handles ChatBox2.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True + End If + End Sub - ssh.DomTask = lines(AvoidTheEdgeLine) + Private Sub chatBox_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True + ' sendButton.PerformClick() + e.KeyChar = Chr(0) + End If + End Sub - TypingDelayGeneric() + Private Sub chatBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True + ' sendButton.PerformClick() + e.KeyChar = Chr(0) + End If + End Sub +#End Region ' Chatbox +#Region "------------------------------------ Avoid the Edge --------------------------------------------" + Private Sub AvoidTheEdge_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdge.Tick - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - End Sub + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return + If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - Private Sub AvoidTheEdgeResume_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeResume.Tick + ssh.AvoidTheEdgeTick -= 1 - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.AvoidTheEdgeTick < 1 Then - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return - If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return - If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return - ssh.AtECountdown -= 1 - 'Debug.Print("AtECountdown = " & AtECountdown) - If ssh.AtECountdown < 1 Then - AvoidTheEdgeResume.Stop() + Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" + If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" - ssh.FileGoto = "NoAvoidTheEdgeInstructions" - ssh.SkipGotoLine = True - GetGoto() - 'domVLC.playlist.play() - DomWMP.Ctlcontrols.play() - HandleScripts() - ScriptTimer.Start() + Dim AvoidTheEdgeLineStart As Integer + Dim AvoidTheEdgeLineEnd As Integer + If File.Exists(AvoidTheEdgeVideo) Then + Else + If ssh.DommeVideo = True Then + MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") + Else + MsgBox("AvoidTheEdge.txt is missing!", , "Error!") + End If + Return End If - End Sub - -#End Region ' Avoid the Edge + If ssh.AvoidTheEdgeStroking = False Then + 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then + 'Return + 'End If - Private Sub BtnToggleImageVideo_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleImageVideo.Click + Using ioFileA As New StreamReader(AvoidTheEdgeVideo) + Dim linesA As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer + + TempAvoidTheEdgeLine = -1 + While ioFileA.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesA.Add(ioFileA.ReadLine()) + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While + End Using - If mainPictureBox.Visible = True Then - DomWMP.Visible = True - mainPictureBox.Visible = False Else - mainPictureBox.Visible = True - DomWMP.Visible = False - End If - End Sub - Public Sub RunModuleScript(IsEdging As Boolean) - ssh.ShowModule = True - ssh.TauntEdging = False - ssh.AskedToGiveUpSection = False - Dim ModuleList As New List(Of String) - ModuleList.Clear() + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + + Using ioFileB As New StreamReader(AvoidTheEdgeVideo) + Dim linesB As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer + + TempAvoidTheEdgeLine = -1 + While ioFileB.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesB.Add(ioFileB.ReadLine()) + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While + + End Using - Dim ChastityModuleCheck As String = "*.txt" - If My.Settings.Chastity = True And Not IsEdging Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - ChastityModuleCheck = "*_CHASTITY.txt" End If - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile + Dim ioFile As New StreamReader(AvoidTheEdgeVideo) + Dim lines As New List(Of String) + While ioFile.Peek <> -1 + lines.Add(ioFile.ReadLine()) + End While - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then + Dim AvoidTheEdgeLine As Integer + 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) + 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) -NoPlaylistModuleFile: + AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) - If ssh.SetModule <> "" Then + ssh.DomTask = lines(AvoidTheEdgeLine) - ssh.FileText = ssh.SetModule - Else + TypingDelayGeneric() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) - Dim TempModule As String = foundFile - TempModule = Path.GetFileName(TempModule).Replace(".txt", "") - If IsEdging Then - Do Until Not TempModule.Contains("\") - TempModule = TempModule.Remove(0, 1) - Loop - End If - For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If - ElseIf IsEdging Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If - Else - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then - ModuleList.Add(foundFile) - End If - End If - Next - Next + End If - If ModuleList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" - ElseIf IsEdging Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" - End If - Else - ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) - End If - End If + End Sub - Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If + Private Sub AvoidTheEdgeResume_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeResume.Tick - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.SetModule = "" + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return + If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return + If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return - ssh.DomTask = ssh.DomTask.Replace("@Module", "") + ssh.AtECountdown -= 1 + 'Debug.Print("AtECountdown = " & AtECountdown) + If ssh.AtECountdown < 1 Then + AvoidTheEdgeResume.Stop() - If ssh.SetModuleGoto <> "" Then - ssh.FileGoto = ssh.SetModuleGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetModuleGoto = "" - Else - ssh.StrokeTauntVal = -1 - End If + ssh.FileGoto = "NoAvoidTheEdgeInstructions" + ssh.SkipGotoLine = True + GetGoto() + 'domVLC.playlist.play() + DomWMP.Ctlcontrols.play() + HandleScripts() + ScriptTimer.Start() + + + End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - If Not IsEdging Then + End Sub - If ssh.Playlist = True Then ssh.BookmarkModule = False +#End Region ' Avoid the Edge - If ssh.BookmarkModule = True Then - ssh.BookmarkModule = False - ssh.FileText = ssh.BookmarkModuleFile - ssh.StrokeTauntVal = ssh.BookmarkModuleLine - End If - ssh.ScriptTick = 3 - Else - ssh.ScriptTick = 4 - End If - ScriptTimer.Start() - End Sub + Private Sub BtnToggleImageVideo_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleImageVideo.Click - Public Sub RunLinkScript() - Debug.Print("RunLinkScript() Called") + If mainPictureBox.Visible = True Then + DomWMP.Visible = True + mainPictureBox.Visible = False + Else + mainPictureBox.Visible = True + DomWMP.Visible = False + End If - ClearModes() + End Sub - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then + Public Sub RunModuleScript(IsEdging As Boolean) + ssh.ShowModule = True -NoPlaylistLinkFile: + ssh.TauntEdging = False + ssh.AskedToGiveUpSection = False + Dim ModuleList As New List(Of String) + ModuleList.Clear() - Debug.Print("SetLink = " & ssh.SetLink) + Dim ChastityModuleCheck As String = "*.txt" + If My.Settings.Chastity = True And Not IsEdging Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + ChastityModuleCheck = "*_CHASTITY.txt" + End If + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile - If ssh.SetLink <> "" Then - Debug.Print("SetLink Called") - ssh.FileText = ssh.SetLink - Else + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then - Dim LinkList As New List(Of String) - LinkList.Clear() +NoPlaylistModuleFile: + If ssh.SetModule <> "" Then - Dim ChastityLinkCheck As String - If My.Settings.Chastity = True Then - ChastityLinkCheck = "*_CHASTITY.txt" - Else - ChastityLinkCheck = "*.txt" - End If + ssh.FileText = ssh.SetModule + Else - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) - Dim TempLink As String = foundFile - TempLink = TempLink.Replace(".txt", "") - Do Until Not TempLink.Contains("\") - TempLink = TempLink.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then - LinkList.Add(foundFile) - End If - Else - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then - LinkList.Add(foundFile) - End If - End If + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) + Dim TempModule As String = foundFile + TempModule = Path.GetFileName(TempModule).Replace(".txt", "") - Next - Next + If IsEdging Then + + Do Until Not TempModule.Contains("\") + TempModule = TempModule.Remove(0, 1) + Loop + End If - If LinkList.Count < 1 Then + For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If + ElseIf IsEdging Then + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then + ModuleList.Add(foundFile) + End If End If + Next + Next + + If ModuleList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" + ElseIf IsEdging Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" Else - ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" End If - - End If - - Else - Debug.Print("Playlist Link Called") - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) End If - End If - ssh.SetLink = "" - Debug.Print("SetLink = " & ssh.SetLink) + Else + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If + End If - If ssh.WorshipMode = False Then - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - End If + ssh.SetModule = "" + ssh.DomTask = ssh.DomTask.Replace("@Module", "") - If ssh.SetLinkGoto <> "" Then - ssh.FileGoto = ssh.SetLinkGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetLinkGoto = "" - Else - ssh.StrokeTauntVal = -1 - End If + If ssh.SetModuleGoto <> "" Then + ssh.FileGoto = ssh.SetModuleGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetModuleGoto = "" + Else + ssh.StrokeTauntVal = -1 + End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - If ssh.Playlist = True Then ssh.BookmarkLink = False + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - If ssh.BookmarkLink = True Then - ssh.BookmarkLink = False - ssh.FileText = ssh.BookmarkLinkFile - ssh.StrokeTauntVal = ssh.BookmarkLinkLine - End If + If Not IsEdging Then - Debug.Print("Link FileText Called") + If ssh.Playlist = True Then ssh.BookmarkModule = False + If ssh.BookmarkModule = True Then + ssh.BookmarkModule = False + ssh.FileText = ssh.BookmarkModuleFile + ssh.StrokeTauntVal = ssh.BookmarkModuleLine + End If ssh.ScriptTick = 3 - ScriptTimer.Start() + Else + ssh.ScriptTick = 4 + End If - End Sub - + ScriptTimer.Start() + End Sub - Public Sub RunLastScript() - ClearModes() + Public Sub RunLinkScript() - 'My.Settings.Sys_SubLeftEarly = 0 + Debug.Print("RunLinkScript() Called") - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) + ClearModes() - SetVariable("SYS_SubLeftEarly", 0) + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile - SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) +NoPlaylistLinkFile: + Debug.Print("SetLink = " & ssh.SetLink) - 'Debug.Print("RunLastScript() Called") - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile + If ssh.SetLink <> "" Then + Debug.Print("SetLink Called") + ssh.FileText = ssh.SetLink + Else - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then -NoPlaylistEndFile: + Dim LinkList As New List(Of String) + LinkList.Clear() - Dim EndList As New List(Of String) - EndList.Clear() - Dim ChastityEndCheck As String + Dim ChastityLinkCheck As String If My.Settings.Chastity = True Then - ChastityEndCheck = "*_CHASTITY.txt" + ChastityLinkCheck = "*_CHASTITY.txt" Else - ChastityEndCheck = "*.txt" + ChastityLinkCheck = "*.txt" End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) - Dim TempEnd As String = foundFile - TempEnd = TempEnd.Replace(".txt", "") - Do Until Not TempEnd.Contains("\") - TempEnd = TempEnd.Remove(0, 1) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) + Dim TempLink As String = foundFile + TempLink = TempLink.Replace(".txt", "") + Do Until Not TempLink.Contains("\") + TempLink = TempLink.Remove(0, 1) Loop - For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 + For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 If My.Settings.Chastity = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then + LinkList.Add(foundFile) End If Else - - If ssh.OrgasmRestricted = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ - And Not TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then + LinkList.Add(foundFile) End If End If + Next Next - - If EndList.Count < 1 Then + If LinkList.Count < 1 Then If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" Else - If ssh.OrgasmRestricted = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" - End If + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" End If Else - ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) + ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) End If + End If + + Else + Debug.Print("Playlist Link Called") + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" End If - If ssh.WorshipMode = False Then - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.LockImage = False + End If + + ssh.SetLink = "" + Debug.Print("SetLink = " & ssh.SetLink) + + + If ssh.WorshipMode = False Then + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If + End If + If ssh.SetLinkGoto <> "" Then + ssh.FileGoto = ssh.SetLinkGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetLinkGoto = "" + Else ssh.StrokeTauntVal = -1 + End If - ssh.LastScript = True + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + If ssh.Playlist = True Then ssh.BookmarkLink = False - ssh.ScriptTick = 3 - ScriptTimer.Start() + If ssh.BookmarkLink = True Then + ssh.BookmarkLink = False + ssh.FileText = ssh.BookmarkLinkFile + ssh.StrokeTauntVal = ssh.BookmarkLinkLine + End If - End Sub + Debug.Print("Link FileText Called") - Public Sub RunLastBegScript() - ClearModes() + ssh.ScriptTick = 3 + ScriptTimer.Start() + + + End Sub + + + + Public Sub RunLastScript() + + ClearModes() + + 'My.Settings.Sys_SubLeftEarly = 0 + + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) + + SetVariable("SYS_SubLeftEarly", 0) + + SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) + + + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) + + + + 'Debug.Print("RunLastScript() Called") + + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile + + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then + +NoPlaylistEndFile: - 'Debug.Print("RunLastBegScript() Called") Dim EndList As New List(Of String) EndList.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + Dim ChastityEndCheck As String + If My.Settings.Chastity = True Then + ChastityEndCheck = "*_CHASTITY.txt" + Else + ChastityEndCheck = "*.txt" + End If + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) Dim TempEnd As String = foundFile TempEnd = TempEnd.Replace(".txt", "") Do Until Not TempEnd.Contains("\") TempEnd = TempEnd.Remove(0, 1) Loop For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 - - If ssh.OrgasmRestricted = False Then - - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then + If My.Settings.Chastity = True Then + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then EndList.Add(foundFile) End If Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If + If ssh.OrgasmRestricted = True Then + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + Else + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ + And Not TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + End If End If - Next Next If EndList.Count < 1 Then - - If ssh.OrgasmRestricted = False Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + If ssh.OrgasmRestricted = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" + End If End If Else ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) End If - ssh.LockImage = False + Else + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If + End If + + If ssh.WorshipMode = False Then If ssh.SlideshowLoaded = True Then nextButton.Enabled = True previousButton.Enabled = True PicStripTSMIdommeSlideshow.Enabled = True End If + ssh.LockImage = False + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 4 - ScriptTimer.Start() - ssh.LastScript = True - - 'RunFileText() - - End Sub - Public Sub StopEverything() + ssh.StrokeTauntVal = -1 - ScriptTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() + ssh.LastScript = True - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False - ssh.ExtremeHold = False + ssh.ScriptTick = 3 + ScriptTimer.Start() - ssh.MiniScript = False + End Sub - ' Unlock OrgasmChances - FrmSettings.LockOrgasmChances(False) + Public Sub RunLastBegScript() - ClearModes() + ClearModes() + 'Debug.Print("RunLastBegScript() Called") + Dim EndList As New List(Of String) + EndList.Clear() - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + Dim TempEnd As String = foundFile + TempEnd = TempEnd.Replace(".txt", "") + Do Until Not TempEnd.Contains("\") + TempEnd = TempEnd.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 - StrokePace = 0 + If ssh.OrgasmRestricted = False Then - End Sub + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then + EndList.Add(foundFile) + End If + Else + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + End If - Private Sub EdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeTauntTimer.Tick + Next + Next - If MultipleEdgesTimer.Enabled = True Then Return - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If EndList.Count < 1 Then - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ssh.OrgasmRestricted = False Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + End If + Else + ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) + End If - FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If - 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 4 + ScriptTimer.Start() + ssh.LastScript = True - ssh.EdgeTauntInt -= 1 + 'RunFileText() - If ssh.EdgeTauntInt < 1 Then + End Sub - Dim File2Read As String = "" + Public Sub StopEverything() - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" - End If + ScriptTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False + ssh.ExtremeHold = False + + ssh.MiniScript = False + + ' Unlock OrgasmChances + FrmSettings.LockOrgasmChances(False) - 'Read all lines of the given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + ClearModes() - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & - File2Read, ex, "EdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt" - End Try - TypingDelayGeneric() + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) + StrokePace = 0 - End If + End Sub - End Sub -#Region "--------------------------------------- Hold the Edge ------------------------------------------" + Private Sub EdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeTauntTimer.Tick - Private Sub HoldEdgeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTimer.Tick + If MultipleEdgesTimer.Enabled = True Then Return + If ssh.MiniScript = True Then Return + If ssh.InputFlag = True Then Return - If ssh.MiniScript = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - ssh.HoldEdgeTime += 1 - ssh.HoldEdgeTimeTotal += 1 + FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt - My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal + 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) - If ssh.InputFlag = True Then Return + ssh.EdgeTauntInt -= 1 - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.EdgeTauntInt < 1 Then + Dim File2Read As String = "" - 'If DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return - If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" + End If - ssh.HoldEdgeTick -= 1 + 'Read all lines of the given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) - FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & + File2Read, ex, "EdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt" + End Try - If ssh.HoldEdgeTick < 1 Then + TypingDelayGeneric() - 'stop - ssh.LongHold = False - ssh.ExtremeHold = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" + ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) - 'If OrgasmAllowed = True Then GoTo AllowedOrgasm - 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm + End If - If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then - ssh.LastOrgasmType = "RUINED" - ssh.OrgasmRuined = False - GoTo RuinedOrgasm - End If + End Sub - If ssh.OrgasmAllowed = True Then - ssh.LastOrgasmType = "ALLOWED" - ssh.OrgasmAllowed = False - GoTo AllowedOrgasm - End If +#Region "--------------------------------------- Hold the Edge ------------------------------------------" - If ssh.OrgasmDenied = True Then + Private Sub HoldEdgeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTimer.Tick - ssh.LastOrgasmType = "DENIED" + If ssh.MiniScript = True Then Return - If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + ssh.HoldEdgeTime += 1 + ssh.HoldEdgeTimeTotal += 1 - If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() + My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal - Dim RepeatList As New List(Of String) + If ssh.InputFlag = True Then Return - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If RepeatList.Count < 1 Then GoTo NoRepeatFiles - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If + 'If DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return + If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return - TeaseTimer.Start() + ssh.HoldEdgeTick -= 1 - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmDenied = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If + FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - End If + If ssh.HoldEdgeTick < 1 Then + 'stop + ssh.LongHold = False + ssh.ExtremeHold = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" - End If + 'If OrgasmAllowed = True Then GoTo AllowedOrgasm + 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm -NoRepeatFiles: + If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then + ssh.LastOrgasmType = "RUINED" + ssh.OrgasmRuined = False + GoTo RuinedOrgasm + End If - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - ssh.DomTask = "#StopStroking" - If ssh.Contact1Edge = True Then - ssh.DomTask = "@Contact1 #StopStroking" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomTask = "@Contact2 #StopStroking" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomTask = "@Contact3 #StopStroking" - ssh.Contact3Edge = False - End If - TypingDelayGeneric() - Return + If ssh.OrgasmAllowed = True Then + ssh.LastOrgasmType = "ALLOWED" + ssh.OrgasmAllowed = False + GoTo AllowedOrgasm + End If -RuinedOrgasm: + If ssh.OrgasmDenied = True Then - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined + ssh.LastOrgasmType = "DENIED" - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then + If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then - - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False + If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then + ssh.SubEdging = False ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True + EdgeTauntTimer.Stop() Dim RepeatList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") RepeatList.Add(foundFile) Next - If RepeatList.Count < 1 Then GoTo NoRepeatRFiles - + If RepeatList.Count < 1 Then GoTo NoRepeatFiles If FrmSettings.CBTeaseLengthDD.Checked = True Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 @@ -15545,6 +15481,7 @@ RuinedOrgasm: Else ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) End If + TeaseTimer.Start() 'ShowModule = True @@ -15552,7 +15489,7 @@ RuinedOrgasm: ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() - ssh.OrgasmRuined = False + ssh.OrgasmDenied = False ssh.OrgasmYesNo = False ssh.EndTease = False Return @@ -15561,643 +15498,721 @@ RuinedOrgasm: End If + End If -NoRepeatRFiles: +NoRepeatFiles: + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + ssh.DomTask = "#StopStroking" + If ssh.Contact1Edge = True Then + ssh.DomTask = "@Contact1 #StopStroking" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomTask = "@Contact2 #StopStroking" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomTask = "@Contact3 #StopStroking" + ssh.Contact3Edge = False + End If + TypingDelayGeneric() + Return +RuinedOrgasm: - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - ssh.OrgasmYesNo = False - ssh.DomChat = "#RuinYourOrgasm" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #RuinYourOrgasm" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #RuinYourOrgasm" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #RuinYourOrgasm" - ssh.Contact3Edge = False - End If - TypingDelay() - Return + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined -AllowedOrgasm: + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then - If My.Settings.OrgasmsLocked = True Then + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If My.Settings.OrgasmsRemaining < 1 Then + If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then - Dim NoCumList As New List(Of String) + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - NoCumList.Add(foundFile) - Next + Dim RepeatList As New List(Of String) - If NoCumList.Count < 1 Then GoTo NoNoCumFiles + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next + If RepeatList.Count < 1 Then GoTo NoRepeatRFiles - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - Return + + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) End If + TeaseTimer.Start() + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmRuined = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - My.Settings.OrgasmsRemaining -= 1 + End If - End If -NoNoCumFiles: +NoRepeatRFiles: - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + ssh.OrgasmYesNo = False + ssh.DomChat = "#RuinYourOrgasm" + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #RuinYourOrgasm" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #RuinYourOrgasm" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #RuinYourOrgasm" + ssh.Contact3Edge = False + End If + TypingDelay() + Return - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) +AllowedOrgasm: - If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then + If My.Settings.OrgasmsLocked = True Then - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - EdgeTauntTimer.Stop() + If My.Settings.OrgasmsRemaining < 1 Then - Dim RepeatList As New List(Of String) + Dim NoCumList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + NoCumList.Add(foundFile) + Next - If RepeatList.Count < 1 Then GoTo NoRepeatOFiles + If NoCumList.Count < 1 Then GoTo NoNoCumFiles - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If - TeaseTimer.Start() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + Return + End If - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmAllowed = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If - End If + My.Settings.OrgasmsRemaining -= 1 + End If -NoRepeatOFiles: +NoNoCumFiles: - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - 'OrgasmAllowed = False - ssh.DomChat = "#CumForMe" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #CumForMe" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #CumForMe" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #CumForMe" - ssh.Contact3Edge = False + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then + + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + + If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then + + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + EdgeTauntTimer.Stop() + + Dim RepeatList As New List(Of String) + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next + + If RepeatList.Count < 1 Then GoTo NoRepeatOFiles + + + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + TeaseTimer.Start() + + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmAllowed = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return End If - TypingDelay() - Return End If - End Sub - Private Sub HoldEdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return +NoRepeatOFiles: - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + 'OrgasmAllowed = False + ssh.DomChat = "#CumForMe" + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #CumForMe" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #CumForMe" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #CumForMe" + ssh.Contact3Edge = False + End If + TypingDelay() + Return - ssh.EdgeTauntInt -= 1 + End If - If ssh.EdgeTauntInt < 1 Then + End Sub - Dim File2Read As String = "" + Private Sub HoldEdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" - End If + If ssh.MiniScript = True Then Return + If ssh.InputFlag = True Then Return - ' Read all lines of given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt" - End Try + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - TypingDelayGeneric() + ssh.EdgeTauntInt -= 1 - ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) + If ssh.EdgeTauntInt < 1 Then + Dim File2Read As String = "" + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" End If - End Sub + ' Read all lines of given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) + + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & + File2Read, ex, "HoldEdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt" + End Try + + TypingDelayGeneric() + + ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) + + + End If + + End Sub #End Region ' Hold the Edge - Public Sub CreateTaskLetter() + Public Sub CreateTaskLetter() - Dim TaskEntry As String + Dim TaskEntry As String - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon - If ssh.GeneralTime = "Night" Then GoTo Night + If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon + If ssh.GeneralTime = "Night" Then GoTo Night - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Afternoon: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Night: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If FrmSettings.CBHonorificInclude.Checked = True Then - ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & domName.Text - Else - ssh.TaskText = ssh.TaskText & domName.Text - End If + If FrmSettings.CBHonorificInclude.Checked = True Then + ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & domName.Text + Else + ssh.TaskText = ssh.TaskText & domName.Text + End If - ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") + ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") - Dim TempDate As String - Dim TempDateNow As DateTime = DateTime.Now + Dim TempDate As String + Dim TempDateNow As DateTime = DateTime.Now - TempDate = TempDateNow.ToString("M dd") + TempDate = TempDateNow.ToString("M dd") - ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" - My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) + ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" + My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) - ssh.TaskText = "" + ssh.TaskText = "" - LBLFileTransfer.Text = domName.Text & " is sending you a file!" - PNLFileTransfer.Visible = True - PNLFileTransfer.BringToFront() + LBLFileTransfer.Text = domName.Text & " is sending you a file!" + PNLFileTransfer.Visible = True + PNLFileTransfer.BringToFront() - StupidTimer.Start() + StupidTimer.Start() - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - Debug.Print("Created " & ssh.GeneralTime & " Task Letter") - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("Created " & ssh.GeneralTime & " Task Letter") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - End Sub + End Sub - Public Function CleanTaskLines(ByVal dir As String) As String - Try - Dim TaskLines As List(Of String) = Txt2List(dir) - Dim TaskEntry As String - Dim TaskArray As String() - Dim TaskList As New List(Of String) + Public Function CleanTaskLines(ByVal dir As String) As String + Try + Dim TaskLines As List(Of String) = Txt2List(dir) + Dim TaskEntry As String + Dim TaskArray As String() + Dim TaskList As New List(Of String) - TaskLines = FilterList(TaskLines) - If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") + TaskLines = FilterList(TaskLines) + If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") - TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) + TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) - Dim LoopBuffer As Integer + Dim LoopBuffer As Integer - TaskArray = TaskEntry.Split(" ") - For i As Integer = 0 To TaskArray.Count - 1 - TaskList.Add(TaskArray(i)) - Next - TaskEntry = "" - For i As Integer = 0 To TaskList.Count - 1 - Try - LoopBuffer = 0 + TaskArray = TaskEntry.Split(" ") + For i As Integer = 0 To TaskArray.Count - 1 + TaskList.Add(TaskArray(i)) + Next + TaskEntry = "" + For i As Integer = 0 To TaskList.Count - 1 + Try + LoopBuffer = 0 PoundLoop: - LoopBuffer += 1 + LoopBuffer += 1 - TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") - TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") - TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") + TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") + TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") + TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") - TaskList(i) = PoundClean(TaskList(i)) - If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop + TaskList(i) = PoundClean(TaskList(i)) + If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop - TaskEntry = TaskEntry & TaskList(i) & " " - Catch - End Try - Next + TaskEntry = TaskEntry & TaskList(i) & " " + Catch + End Try + Next - Dim int As Integer + Dim int As Integer - If TaskEntry.Contains("#TaskEdges") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskEdges", int) - Loop Until Not TaskEntry.Contains("#TaskEdges") - End If + If TaskEntry.Contains("#TaskEdges") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskEdges", int) + Loop Until Not TaskEntry.Contains("#TaskEdges") + End If - If TaskEntry.Contains("#TaskStrokes") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) - If int > 10 Then int = 10 * Math.Round(int / 10) - TaskEntry = TaskEntry.Replace("#TaskStrokes", int) - Loop Until Not TaskEntry.Contains("#TaskStrokes") - End If + If TaskEntry.Contains("#TaskStrokes") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) + If int > 10 Then int = 10 * Math.Round(int / 10) + TaskEntry = TaskEntry.Replace("#TaskStrokes", int) + Loop Until Not TaskEntry.Contains("#TaskStrokes") + End If - If TaskEntry.Contains("#TaskHours") Then - Do - int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskHours", int) - Loop Until Not TaskEntry.Contains("#TaskHours") - End If + If TaskEntry.Contains("#TaskHours") Then + Do + int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskHours", int) + Loop Until Not TaskEntry.Contains("#TaskHours") + End If - If TaskEntry.Contains("#TaskMinutes") Then - Do - int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskMinutes", int) - Loop Until Not TaskEntry.Contains("#TaskMinutes") - End If + If TaskEntry.Contains("#TaskMinutes") Then + Do + int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskMinutes", int) + Loop Until Not TaskEntry.Contains("#TaskMinutes") + End If - If TaskEntry.Contains("#TaskSeconds") Then - Do - int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) - TaskEntry = TaskEntry.Replace("#TaskSeconds", int) - Loop Until Not TaskEntry.Contains("#TaskSeconds") - End If + If TaskEntry.Contains("#TaskSeconds") Then + Do + int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + TaskEntry = TaskEntry.Replace("#TaskSeconds", int) + Loop Until Not TaskEntry.Contains("#TaskSeconds") + End If - If TaskEntry.Contains("#TaskAmountLarge") Then - Do - int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) - Loop Until Not TaskEntry.Contains("#TaskAmountLarge") - End If + If TaskEntry.Contains("#TaskAmountLarge") Then + Do + int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) + Loop Until Not TaskEntry.Contains("#TaskAmountLarge") + End If - If TaskEntry.Contains("#TaskAmountSmall") Then - Do - int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) - Loop Until Not TaskEntry.Contains("#TaskAmountSmall") - End If + If TaskEntry.Contains("#TaskAmountSmall") Then + Do + int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) + Loop Until Not TaskEntry.Contains("#TaskAmountSmall") + End If - If TaskEntry.Contains("#TaskAmount") Then - Do - int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmount", int) - Loop Until Not TaskEntry.Contains("#TaskAmount") - End If + If TaskEntry.Contains("#TaskAmount") Then + Do + int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmount", int) + Loop Until Not TaskEntry.Contains("#TaskAmount") + End If - If TaskEntry.Contains("#TaskStrokingTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskStrokingTime") - End If + If TaskEntry.Contains("#TaskStrokingTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskStrokingTime") + End If - If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") - End If + If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") + End If - If TaskEntry.Contains("#TaskCBTTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskCBTTime") - End If + If TaskEntry.Contains("#TaskCBTTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskCBTTime") + End If - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("#Null", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("#Null", "") - LoopBuffer = 0 + LoopBuffer = 0 - Do - LoopBuffer += 1 - If LoopBuffer > 4 Then Exit Do - TaskEntry = PoundClean(TaskEntry) - Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") + Do + LoopBuffer += 1 + If LoopBuffer > 4 Then Exit Do + TaskEntry = PoundClean(TaskEntry) + Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") - TaskEntry = CommandClean(TaskEntry, True) + TaskEntry = CommandClean(TaskEntry, True) - TaskEntry = StripCommands(TaskEntry) + TaskEntry = StripCommands(TaskEntry) - TaskEntry = Trim(TaskEntry) + TaskEntry = Trim(TaskEntry) - If TaskEntry.Contains("*") Then - TaskEntry = TaskEntry.Replace(". *", " *") - Dim EmoToggle As Boolean = True - For i As Integer = TaskEntry.Length - 1 To 0 Step -1 - If TaskEntry.Substring(i, 1) = "*" Then - If EmoToggle = False Then - EmoToggle = True - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) - Else - EmoToggle = False - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) - End If + If TaskEntry.Contains("*") Then + TaskEntry = TaskEntry.Replace(". *", " *") + Dim EmoToggle As Boolean = True + For i As Integer = TaskEntry.Length - 1 To 0 Step -1 + If TaskEntry.Substring(i, 1) = "*" Then + If EmoToggle = False Then + EmoToggle = True + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) + Else + EmoToggle = False + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) End If - Next - End If + End If + Next + End If - Return TaskEntry - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") - Return "ERROR: Tease AI did not return a valid Task line" - End Try - End Function + Return TaskEntry + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") + Return "ERROR: Tease AI did not return a valid Task line" + End Try + End Function - Private Sub BTNFIleTransferDismiss_Click(sender As System.Object, e As System.EventArgs) Handles BTNFIleTransferDismiss.Click + Private Sub BTNFIleTransferDismiss_Click(sender As System.Object, e As System.EventArgs) Handles BTNFIleTransferDismiss.Click - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = domName.Text & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = domName.Text & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Public Function ShellExecute(ByVal File As String) As Boolean - Dim myProcess As New Process - myProcess.StartInfo.FileName = File - myProcess.StartInfo.UseShellExecute = True - myProcess.StartInfo.RedirectStandardOutput = False - myProcess.Start() - myProcess.Dispose() - End Function + Public Function ShellExecute(ByVal File As String) As Boolean + Dim myProcess As New Process + myProcess.StartInfo.FileName = File + myProcess.StartInfo.UseShellExecute = True + myProcess.StartInfo.RedirectStandardOutput = False + myProcess.Start() + myProcess.Dispose() + End Function - Public Sub BTNFileTransferOpen_Click(sender As System.Object, e As System.EventArgs) Handles BTNFileTransferOpen.Click + Public Sub BTNFileTransferOpen_Click(sender As System.Object, e As System.EventArgs) Handles BTNFileTransferOpen.Click - ShellExecute(ssh.TaskTextDir) + ShellExecute(ssh.TaskTextDir) - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = domName.Text & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = domName.Text & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Private Sub SlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SlideshowTimer.Tick - 'TODO: Remove CrossForm data access - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub SlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SlideshowTimer.Tick + 'TODO: Remove CrossForm data access + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return + If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return - ssh.SlideshowTimerTick -= 1 + ssh.SlideshowTimerTick -= 1 - If ssh.SlideshowTimerTick < 1 Then + If ssh.SlideshowTimerTick < 1 Then TryNext: - If My.Settings.CBSlideshowRandom Then - ssh.SlideshowMain.NavigateNextTease() - Else - ssh.SlideshowMain.NavigateForward() - End If + If My.Settings.CBSlideshowRandom Then + ssh.SlideshowMain.NavigateNextTease() + Else + ssh.SlideshowMain.NavigateForward() + End If - If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ + If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ Or isURL(ssh.SlideshowMain.CurrentImage)) Then - ClearMainPictureBox() - Exit Sub - End If - - Try - ShowImage(ssh.SlideshowMain.CurrentImage, True) - ssh.JustShowedBlogImage = False - ssh.JustShowedSlideshowImage = True + ClearMainPictureBox() + Exit Sub + End If - Catch - GoTo TryNext - End Try + Try + ShowImage(ssh.SlideshowMain.CurrentImage, True) + ssh.JustShowedBlogImage = False + ssh.JustShowedSlideshowImage = True + Catch + GoTo TryNext + End Try - ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value - End If - End Sub + ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value + End If - Public Sub GetEdgeTickCheck() + End Sub - If ssh.AlreadyStrokingEdge = True Then + Public Sub GetEdgeTickCheck() - If ssh.AvgEdgeCount < 5 Then - ssh.EdgeTickCheck = 60 - Else - ssh.EdgeTickCheck = ssh.AvgEdgeStroking - End If + If ssh.AlreadyStrokingEdge = True Then + If ssh.AvgEdgeCount < 5 Then + ssh.EdgeTickCheck = 60 Else + ssh.EdgeTickCheck = ssh.AvgEdgeStroking + End If - If ssh.AvgEdgeCountRest < 5 Then - ssh.EdgeTickCheck = 300 - Else - ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch - End If + Else + If ssh.AvgEdgeCountRest < 5 Then + ssh.EdgeTickCheck = 300 + Else + ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch End If - End Sub + End If + End Sub - Private Sub EdgeCountTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeCountTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub EdgeCountTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeCountTimer.Tick - ssh.EdgeCountTick += 1 + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If FrmSettings.CBEdgeUseAvg.Checked = True Then - If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True - Else - If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True - End If + ssh.EdgeCountTick += 1 + + If FrmSettings.CBEdgeUseAvg.Checked = True Then + If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True + Else + If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True + End If - Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes - Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds + Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes + Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds - Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) + Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) - ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) + ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) - 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) - End Sub + 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) + End Sub - Private Sub StrokeTimeTotalTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick + Private Sub StrokeTimeTotalTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SubStroking = False Then Return + If ssh.SubStroking = False Then Return - ssh.StrokeTimeTotal += 1 - 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) + ssh.StrokeTimeTotal += 1 + 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) - My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal + My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal - Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) + Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) - 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - End Sub + End Sub - Private Sub TnAFastSlides_Tick(sender As System.Object, e As System.EventArgs) Handles TnASlides.Tick - Dim tmpSw As New Stopwatch + Private Sub TnAFastSlides_Tick(sender As System.Object, e As System.EventArgs) Handles TnASlides.Tick + Dim tmpSw As New Stopwatch RestartFunction: - tmpSw.Restart() - Try - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") + tmpSw.Restart() + Try + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") - Dim tmpImageToShow As String = "" - Dim tmpLateSet As Boolean + Dim tmpImageToShow As String = "" + Dim tmpLateSet As Boolean - If New Random().Next(0, 101) < 51 Then - tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) - tmpLateSet = True - Else - tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) - tmpLateSet = False - End If + If New Random().Next(0, 101) < 51 Then + tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) + tmpLateSet = True + Else + tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) + tmpLateSet = False + End If - Try - ShowImage(tmpImageToShow, True) + Try + ShowImage(tmpImageToShow, True) - If tmpLateSet Then - ssh.BoobImage = True - ssh.AssImage = False - Else - ssh.BoobImage = False - ssh.AssImage = True - End If + If tmpLateSet Then + ssh.BoobImage = True + ssh.AssImage = False + Else + ssh.BoobImage = False + ssh.AssImage = True + End If - ' If the elapsed time to load an image was longer as the Timer.Interval - ' we restart the function instantly, to avoid an unnecessary delay. - ' If it took way too long and the Timer was stopped during imagedownload, - ' we dont want the timer to restart. - If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then - GoTo RestartFunction - End If - Catch ex As Exception - ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ - ' Remove the ImagePath and retry. - ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) - ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + ' If the elapsed time to load an image was longer as the Timer.Interval + ' we restart the function instantly, to avoid an unnecessary delay. + ' If it took way too long and the Timer was stopped during imagedownload, + ' we dont want the timer to restart. + If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then GoTo RestartFunction - End Try + End If Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - TnASlides.Stop() - Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlieds.Tick occured") + ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ + ' Remove the ImagePath and retry. + ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + GoTo RestartFunction End Try - End Sub + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + TnASlides.Stop() + Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlieds.Tick occured") + End Try + End Sub @@ -16209,245 +16224,245 @@ RestartFunction: #Region "---------------------------------------------------- Domme-WMP -------------------------------------------------------" - Private Sub DomWMP_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange + Private Sub DomWMP_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - If FrmSettings.CBMuteMedia.Checked = True Then - DomWMP.settings.mute = True - End If + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + If FrmSettings.CBMuteMedia.Checked = True Then + DomWMP.settings.mute = True End If + End If - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then - 'Debug.Print("WMP Stopped Called") - - VideoTimer.Stop() + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then + 'Debug.Print("WMP Stopped Called") - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False + VideoTimer.Stop() - DomWMP.currentPlaylist.clear() + ssh.EdgeVideo = False + ssh.YesVideo = False + ssh.NoVideo_Mode = False + ssh.CameVideo = False + ssh.RuinedVideo = False + DomWMP.currentPlaylist.clear() - If ssh.CensorshipGame = True Then - CensorshipTimer.Stop() - CensorshipBar.Visible = False - ssh.CensorshipGame = False - ssh.VideoTease = False - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.CensorshipGame = True Then + CensorshipTimer.Stop() + CensorshipBar.Visible = False + ssh.CensorshipGame = False + ssh.VideoTease = False - RunFileText() + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return End If - If ssh.AvoidTheEdgeGame = True Then - - ssh.TeaseVideo = False - ssh.AvoidTheEdgeGame = False - ssh.AvoidTheEdgeStroking = False - AvoidTheEdgeTaunts.Stop() - ssh.VideoTease = False - ssh.SubStroking = False + RunFileText() + End If + If ssh.AvoidTheEdgeGame = True Then - Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) - Debug.Print("TempFileText = " & ssh.TempFileText) + ssh.TeaseVideo = False + ssh.AvoidTheEdgeGame = False + ssh.AvoidTheEdgeStroking = False + AvoidTheEdgeTaunts.Stop() + ssh.VideoTease = False + ssh.SubStroking = False - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) + Debug.Print("TempFileText = " & ssh.TempFileText) - ssh.StrokeTauntVal = ssh.TempStrokeTauntVal - ssh.FileText = ssh.TempFileText - ssh.ScriptTick = 2 - ScriptTimer.Start() + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - 'RunFileText() + ssh.StrokeTauntVal = ssh.TempStrokeTauntVal + ssh.FileText = ssh.TempFileText + ssh.ScriptTick = 2 + ScriptTimer.Start() + 'RunFileText() - 'AvoidTheEdge.Stop() - 'AvoidTheEdgeGame = False - 'SkipGotoLine = True - 'If AvoidTheEdgeTimerTick < 1 Then - 'FileGoto = "(AvoidTheEdge Video Stop)" - 'Else - ' FileGoto = "(AvoidTheEdge Video Continue)" - 'End If - 'GetGoto() - 'RunFileText() - End If - If ssh.RLGLGame = True Then - RLGLTimer.Stop() - RLGLTauntTimer.Stop() - ssh.RLGLGame = False - ssh.VideoTease = False - ssh.SubStroking = False + 'AvoidTheEdge.Stop() + 'AvoidTheEdgeGame = False + 'SkipGotoLine = True + 'If AvoidTheEdgeTimerTick < 1 Then + 'FileGoto = "(AvoidTheEdge Video Stop)" + 'Else + ' FileGoto = "(AvoidTheEdge Video Continue)" + 'End If + 'GetGoto() + 'RunFileText() + End If - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.RLGLGame = True Then + RLGLTimer.Stop() + RLGLTauntTimer.Stop() + ssh.RLGLGame = False + ssh.VideoTease = False + ssh.SubStroking = False - ssh.ScriptTick = 1 - ScriptTimer.Start() + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() Return End If + ssh.ScriptTick = 1 + ScriptTimer.Start() - If ssh.TeaseVideo = True Then - ssh.TeaseVideo = False - DomWMP.Ctlcontrols.pause() - RunFileText() - End If + Return + End If - If ssh.LockVideo = False Then - mainPictureBox.Visible = True - DomWMP.Visible = False - End If + If ssh.TeaseVideo = True Then + ssh.TeaseVideo = False + DomWMP.Ctlcontrols.pause() + RunFileText() + End If + If ssh.LockVideo = False Then + mainPictureBox.Visible = True + DomWMP.Visible = False End If - End Sub - Private Sub WMPTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WMPTimer.Tick + End If + End Sub - If DomWMP.currentPlaylist.count <> 0 Then - Try - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) + Private Sub WMPTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WMPTimer.Tick - Debug.Print("Video Length = " & VideoLength) - Debug.Print("Video Remaining = " & VideoRemaining) - Catch - End Try - End If + If DomWMP.currentPlaylist.count <> 0 Then + Try + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) + Debug.Print("Video Length = " & VideoLength) + Debug.Print("Video Remaining = " & VideoRemaining) + Catch + End Try + End If - If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return - 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) - ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) + If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return - Dim VidSplit As String() = ssh.VidFile.Split(".") - ssh.VidFile = "" - For i As Integer = 0 To VidSplit.Count - 2 - ssh.VidFile = ssh.VidFile + VidSplit(i) - Next - 'Debug.Print(VidFile) - If ssh.VidFile = "" Then Exit Sub - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then - Dim SubCheck As String() - Dim PlayPos As Integer - Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) - - Dim SubList As New List(Of String) - SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") - - If Not SubList Is Nothing Then - For i As Integer = 0 To SubList.Count - 1 - SubCheck = SubList(i).Split("]") - SubCheck(0) = SubCheck(0).Replace("[", "") - Dim SubCheck2 As String() = SubCheck(0).Split(":") - - PlayPos = SubCheck2(0) * 3600 - PlayPos += SubCheck2(1) * 60 - PlayPos += SubCheck2(2) - - If WMPPos = PlayPos Then - ssh.DomTask = SubCheck(1) - TypingDelayGeneric() - Debug.Print(SubList(i)) - End If - Next - End If + 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) + + ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) + + Dim VidSplit As String() = ssh.VidFile.Split(".") + ssh.VidFile = "" + For i As Integer = 0 To VidSplit.Count - 2 + ssh.VidFile = ssh.VidFile + VidSplit(i) + Next + 'Debug.Print(VidFile) + If ssh.VidFile = "" Then Exit Sub + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then + Dim SubCheck As String() + Dim PlayPos As Integer + Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) + + Dim SubList As New List(Of String) + SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") + + If Not SubList Is Nothing Then + For i As Integer = 0 To SubList.Count - 1 + SubCheck = SubList(i).Split("]") + SubCheck(0) = SubCheck(0).Replace("[", "") + Dim SubCheck2 As String() = SubCheck(0).Split(":") + + PlayPos = SubCheck2(0) * 3600 + PlayPos += SubCheck2(1) * 60 + PlayPos += SubCheck2(2) + + If WMPPos = PlayPos Then + ssh.DomTask = SubCheck(1) + TypingDelayGeneric() + Debug.Print(SubList(i)) + End If + Next End If + End If - End Sub + End Sub #End Region 'Domme-WMP - Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter - If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() - End Sub + Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter + If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() + End Sub - Private Sub domAvatar_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel + Private Sub domAvatar_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel - If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then - domAvatar.SizeMode = PictureBoxSizeMode.Zoom - My.Settings.DomAVStretch = False - Else - domAvatar.SizeMode = PictureBoxSizeMode.StretchImage - My.Settings.DomAVStretch = True - End If + If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then + domAvatar.SizeMode = PictureBoxSizeMode.Zoom + My.Settings.DomAVStretch = False + Else + domAvatar.SizeMode = PictureBoxSizeMode.StretchImage + My.Settings.DomAVStretch = True + End If - End Sub + End Sub - Private Sub WaitTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WaitTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub WaitTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WaitTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return + If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return - 'Debug.Print("WaitTick = " & WaitTick) + 'Debug.Print("WaitTick = " & WaitTick) - ssh.WaitTick -= 1 + ssh.WaitTick -= 1 - If ssh.WaitTick < 1 Then - WaitTimer.Stop() - ssh.ScriptTick = 1 - End If + If ssh.WaitTick < 1 Then + WaitTimer.Stop() + ssh.ScriptTick = 1 + End If - End Sub + End Sub - Private Sub StupidTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StupidTimer.Tick + Private Sub StupidTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StupidTimer.Tick - If PBFileTransfer.Value = PBFileTransfer.Maximum Then - StupidTimer.Enabled = False + If PBFileTransfer.Value = PBFileTransfer.Maximum Then + StupidTimer.Enabled = False - LBLFileTransfer.Text = "Download complete!" - BTNFileTransferOpen.Visible = True - BTNFIleTransferDismiss.Visible = True - Exit Sub - End If + LBLFileTransfer.Text = "Download complete!" + BTNFileTransferOpen.Visible = True + BTNFIleTransferDismiss.Visible = True + Exit Sub + End If - PBFileTransfer.Value += 1 + PBFileTransfer.Value += 1 - End Sub + End Sub @@ -16458,37 +16473,37 @@ RestartFunction: - Public Sub SaveExercise() + Public Sub SaveExercise() - If FormLoading = True Then Return + If FormLoading = True Then Return - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) - Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) - For i = 0 To CLBExercise.Items.Count - 1 - BinaryWriter.Write(CStr(CLBExercise.Items(i))) - BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) - Next - BinaryWriter.Close() - FileStream.Dispose() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) + Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) + For i = 0 To CLBExercise.Items.Count - 1 + BinaryWriter.Write(CStr(CLBExercise.Items(i))) + BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) + Next + BinaryWriter.Close() + FileStream.Dispose() - End Sub + End Sub - Public Sub LoadExercise() + Public Sub LoadExercise() - CLBExercise.Items.Clear() - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) - Dim BinaryReader As New System.IO.BinaryReader(FileStream) - CLBExercise.BeginUpdate() - Do While FileStream.Position < FileStream.Length - CLBExercise.Items.Add(BinaryReader.ReadString) - CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) - Loop - CLBExercise.EndUpdate() - BinaryReader.Close() - FileStream.Dispose() + CLBExercise.Items.Clear() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) + Dim BinaryReader As New System.IO.BinaryReader(FileStream) + CLBExercise.BeginUpdate() + Do While FileStream.Position < FileStream.Length + CLBExercise.Items.Add(BinaryReader.ReadString) + CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) + Loop + CLBExercise.EndUpdate() + BinaryReader.Close() + FileStream.Dispose() - End Sub + End Sub @@ -16498,51 +16513,51 @@ RestartFunction: - Public Sub RefreshCards() + Public Sub RefreshCards() - FrmCardList.GoldN1.Text = FrmSettings.GN1.Text - FrmCardList.GoldN2.Text = FrmSettings.GN2.Text - FrmCardList.GoldN3.Text = FrmSettings.GN3.Text - FrmCardList.GoldN4.Text = FrmSettings.GN4.Text - FrmCardList.GoldN5.Text = FrmSettings.GN5.Text - FrmCardList.GoldN6.Text = FrmSettings.GN6.Text + FrmCardList.GoldN1.Text = FrmSettings.GN1.Text + FrmCardList.GoldN2.Text = FrmSettings.GN2.Text + FrmCardList.GoldN3.Text = FrmSettings.GN3.Text + FrmCardList.GoldN4.Text = FrmSettings.GN4.Text + FrmCardList.GoldN5.Text = FrmSettings.GN5.Text + FrmCardList.GoldN6.Text = FrmSettings.GN6.Text - FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) - FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) - FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) - FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) - FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) - FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) + FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) + FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) + FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) + FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) + FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) + FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) - FrmCardList.SilverN1.Text = FrmSettings.SN1.Text - FrmCardList.SilverN2.Text = FrmSettings.SN2.Text - FrmCardList.SilverN3.Text = FrmSettings.SN3.Text - FrmCardList.SilverN4.Text = FrmSettings.SN4.Text - FrmCardList.SilverN5.Text = FrmSettings.SN5.Text - FrmCardList.SilverN6.Text = FrmSettings.SN6.Text + FrmCardList.SilverN1.Text = FrmSettings.SN1.Text + FrmCardList.SilverN2.Text = FrmSettings.SN2.Text + FrmCardList.SilverN3.Text = FrmSettings.SN3.Text + FrmCardList.SilverN4.Text = FrmSettings.SN4.Text + FrmCardList.SilverN5.Text = FrmSettings.SN5.Text + FrmCardList.SilverN6.Text = FrmSettings.SN6.Text - FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) - FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) - FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) - FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) - FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) - FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) + FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) + FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) + FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) + FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) + FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) + FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) - FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text - FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text - FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text - FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text - FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text - FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text + FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text + FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text + FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text + FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text + FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text + FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text - FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) - FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) - FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) - FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) - FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) - FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) + FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) + FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) + FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) + FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) + FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) + FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) - End Sub + End Sub @@ -16551,13 +16566,13 @@ RestartFunction: - Public Sub SaveTokens() + Public Sub SaveTokens() - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - End Sub + End Sub @@ -16575,55 +16590,55 @@ RestartFunction: - Private Sub VideoTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTauntTimer.Tick + Private Sub VideoTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTauntTimer.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.MiniScript = True Then Return + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return - If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return + If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return - ssh.VideoTauntTick -= 1 + ssh.VideoTauntTick -= 1 - If ssh.VideoTauntTick < 1 Then + If ssh.VideoTauntTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" - 'TODO: Prevent File.Exits() with String.Empty - If Not File.Exists(VTDir) Then Return + If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" + 'TODO: Prevent File.Exits() with String.Empty + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "VideoTaunTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" - End Try + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - End If + End If @@ -16633,139 +16648,139 @@ RestartFunction: - End Sub + End Sub - Private Sub TeaseTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseTimer.Tick + Private Sub TeaseTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseTimer.Tick - FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick - 'Debug.Print("TeaseTick = " & TeaseTick) + FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick + 'Debug.Print("TeaseTick = " & TeaseTick) - ssh.TeaseTick -= 1 + ssh.TeaseTick -= 1 - If ssh.TeaseTick < 1 Then TeaseTimer.Stop() + If ssh.TeaseTick < 1 Then TeaseTimer.Stop() - End Sub + End Sub - Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.MiniScript = True Then Return + Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.RLGLTauntTick < 6 Then Return - If chatBox.Text <> "" And ssh.RLGLTauntTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.RLGLTauntTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.RLGLTauntTick < 6 Then Return + If chatBox.Text <> "" And ssh.RLGLTauntTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.RLGLTauntTick < 6 Then Return - ssh.RLGLTauntTick -= 1 + ssh.RLGLTauntTick -= 1 - If ssh.RLGLTauntTick < 1 Then + If ssh.RLGLTauntTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" + VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" - If Not File.Exists(VTDir) Then Return + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "RLGLTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" - End Try - TypingDelayGeneric() + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + End Try + TypingDelayGeneric() - ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) + ssh.RLGLTauntTick = ssh.randomizer.Next(20, 31) - End If + End If - End Sub + End Sub - Private Sub AvoidTheEdgeTaunts_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeTaunts.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub AvoidTheEdgeTaunts_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeTaunts.Tick + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return - If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return + If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - ssh.AvoidTheEdgeTick -= 1 + ssh.AvoidTheEdgeTick -= 1 - If ssh.AvoidTheEdgeTick < 1 Then + If ssh.AvoidTheEdgeTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Avoid The Edge\Taunts.txt" + VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Avoid The Edge\Taunts.txt" - If Not File.Exists(VTDir) Then Return + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "AvoidTheEdgeTaunts.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" - End Try - TypingDelayGeneric() + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + End Try + TypingDelayGeneric() - ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) + ssh.AvoidTheEdgeTick = ssh.randomizer.Next(20, 31) - End If + End If - End Sub + End Sub #Region "-------------------------------------------------- MainPictureBox ----------------------------------------------------" - Private Sub mainPictureBox_LoadCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles mainPictureBox.LoadCompleted - ssh.ImageLocation = mainPictureBox.ImageLocation - CheckDommeTags() - Debug.Print("ImageLoadCOmpleted") - End Sub + Private Sub mainPictureBox_LoadCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles mainPictureBox.LoadCompleted + ssh.ImageLocation = mainPictureBox.ImageLocation + CheckDommeTags() + Debug.Print("ImageLoadCOmpleted") + End Sub - Private Sub mainPictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainPictureBox.MouseDown - If e.Button = MouseButtons.Right Then - PictureStrip.Show(CType(sender, Control), e.Location) - End If - End Sub + Private Sub mainPictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainPictureBox.MouseDown + If e.Button = MouseButtons.Right Then + PictureStrip.Show(CType(sender, Control), e.Location) + End If + End Sub @@ -16775,280 +16790,280 @@ RestartFunction: - Private Sub PictureStrip_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles PictureStrip.Opening + Private Sub PictureStrip_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles PictureStrip.Opening - If mainPictureBox.Image IsNot Nothing Then - Dim sh As ContactData = ssh.SlideshowMain + If mainPictureBox.Image IsNot Nothing Then + Dim sh As ContactData = ssh.SlideshowMain - If ImageAnimator.CanAnimate(mainPictureBox.Image) _ + If ImageAnimator.CanAnimate(mainPictureBox.Image) _ And ImageAnimator_OnFrameChangedAdded Then - PicStripTmsiDisableAnimation.Enabled = True + PicStripTmsiDisableAnimation.Enabled = True - If mreImageanimator.WaitOne(0) = True Then - ' ImageAnimations are running - PicStripTmsiDisableAnimation.Checked = False - Else - ' ImageAnimations are stopped - PicStripTmsiDisableAnimation.Checked = True - End If - Else - PicStripTmsiDisableAnimation.Enabled = False + If mreImageanimator.WaitOne(0) = True Then + ' ImageAnimations are running PicStripTmsiDisableAnimation.Checked = False + Else + ' ImageAnimations are stopped + PicStripTmsiDisableAnimation.Checked = True End If + Else + PicStripTmsiDisableAnimation.Enabled = False + PicStripTmsiDisableAnimation.Checked = False + End If - If isURL(ssh.ImageLocation) Then + If isURL(ssh.ImageLocation) Then - PicStripTSMIsaveImage.Enabled = True - PicStripTSMISaveImageTo.Enabled = True - PicStripTSMIremoveFromURL.Enabled = True + PicStripTSMIsaveImage.Enabled = True + PicStripTSMISaveImageTo.Enabled = True + PicStripTSMIremoveFromURL.Enabled = True - ElseIf ssh.ImageLocation = "" Or sh.ImageList.Contains(ssh.ImageLocation) Then + ElseIf ssh.ImageLocation = "" Or sh.ImageList.Contains(ssh.ImageLocation) Then - PicStripTSMIcopyImageLocation.Enabled = False - PicStripTSMIsaveImage.Enabled = False - PicStripTSMISaveImageTo.Enabled = False - PicStripTSMIlikeImage.Enabled = False - PicStripTSMIlikeImage.Checked = False - PicStripTSMIdislikeImage.Enabled = False - PicStripTSMIdislikeImage.Checked = False - PicStripTSMIremoveFromURL.Enabled = False + PicStripTSMIcopyImageLocation.Enabled = False + PicStripTSMIsaveImage.Enabled = False + PicStripTSMISaveImageTo.Enabled = False + PicStripTSMIlikeImage.Enabled = False + PicStripTSMIlikeImage.Checked = False + PicStripTSMIdislikeImage.Enabled = False + PicStripTSMIdislikeImage.Checked = False + PicStripTSMIremoveFromURL.Enabled = False - If sh.ImageList.Contains(ssh.ImageLocation) Then - PicStripTSMIdommeSlideshow.Enabled = True - PicStripTSMIcopyImageLocation.Enabled = True - End If + If sh.ImageList.Contains(ssh.ImageLocation) Then + PicStripTSMIdommeSlideshow.Enabled = True + PicStripTSMIcopyImageLocation.Enabled = True + End If - Exit Sub + Exit Sub - End If + End If - PicStripTSMIcopyImageLocation.Enabled = True - PicStripTSMIlikeImage.Enabled = True - PicStripTSMIlikeImage.Checked = False - PicStripTSMIdislikeImage.Enabled = True - PicStripTSMIdislikeImage.Checked = False + PicStripTSMIcopyImageLocation.Enabled = True + PicStripTSMIlikeImage.Enabled = True + PicStripTSMIlikeImage.Checked = False + PicStripTSMIdislikeImage.Enabled = True + PicStripTSMIdislikeImage.Checked = False - Dim tmp As List(Of String) = Txt2List(pathLikeList) - If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIlikeImage.Checked = True + Dim tmp As List(Of String) = Txt2List(pathLikeList) + If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIlikeImage.Checked = True - tmp = Txt2List(pathDislikeList) - If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIdislikeImage.Checked = True + tmp = Txt2List(pathDislikeList) + If tmp.Contains(ssh.ImageLocation) Then PicStripTSMIdislikeImage.Checked = True - End If + End If - End Sub + End Sub - Private Sub PictureStripTmsiDisableAnimation_Click(sender As Object, e As EventArgs) Handles PicStripTmsiDisableAnimation.Click - If mreImageanimator.WaitOne(0) = True Then - ' Signals the ImageAnimatorThread to pause. - mreImageanimator.Reset() - Else - ' Signals the ImageAnimatorThread to resume. - mreImageanimator.Set() - End If - End Sub + Private Sub PictureStripTmsiDisableAnimation_Click(sender As Object, e As EventArgs) Handles PicStripTmsiDisableAnimation.Click + If mreImageanimator.WaitOne(0) = True Then + ' Signals the ImageAnimatorThread to pause. + mreImageanimator.Reset() + Else + ' Signals the ImageAnimatorThread to resume. + mreImageanimator.Set() + End If + End Sub - Private Sub PicStripTSMIcopyImageLocation_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIcopyImageLocation.Click + Private Sub PicStripTSMIcopyImageLocation_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIcopyImageLocation.Click - My.Computer.Clipboard.SetText(ssh.ImageLocation) + My.Computer.Clipboard.SetText(ssh.ImageLocation) - End Sub + End Sub - Public Sub PicStripTSMI_SaveImage(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIsaveHardcore.Click, + Public Sub PicStripTSMI_SaveImage(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIsaveHardcore.Click, PicStripTSMIsaveSoftcore.Click, PicStripTSMIsaveLesbian.Click, PicStripTSMIsaveBlowjob.Click, PicStripTSMIsaveFemdom.Click, PicStripTSMIsaveLezdom.Click, PicStripTSMIsaveHentai.Click, PicStripTSMIsaveGay.Click, PicStripTSMIsaveMaledom.Click, PicStripTSMIsaveCaptions.Click, PicStripTSMIsaveGeneral.Click, PicStripTSMIsaveBoobs.Click, PicStripTSMIsaveButts.Click, PicStripTSMIsaveImage.Click retry: - Try - Dim BlogPath As String = "" - Dim fileName As String = Path.GetFileName(mainPictureBox.ImageLocation) - - If sender Is PicStripTSMIsaveHardcore Then : BlogPath = My.Settings.IHardcore - ElseIf sender Is PicStripTSMIsaveSoftcore Then : BlogPath = My.Settings.ISoftcore - ElseIf sender Is PicStripTSMIsaveLesbian Then : BlogPath = My.Settings.ILesbian - ElseIf sender Is PicStripTSMIsaveBlowjob Then : BlogPath = My.Settings.IBlowjob - ElseIf sender Is PicStripTSMIsaveFemdom Then : BlogPath = My.Settings.IFemdom - ElseIf sender Is PicStripTSMIsaveLezdom Then : BlogPath = My.Settings.ILezdom - ElseIf sender Is PicStripTSMIsaveHentai Then : BlogPath = My.Settings.IHentai - ElseIf sender Is PicStripTSMIsaveGay Then : BlogPath = My.Settings.IGay - ElseIf sender Is PicStripTSMIsaveMaledom Then : BlogPath = My.Settings.IMaledom - ElseIf sender Is PicStripTSMIsaveCaptions Then : BlogPath = My.Settings.ICaptions - ElseIf sender Is PicStripTSMIsaveGeneral Then : BlogPath = My.Settings.IGeneral - ElseIf sender Is PicStripTSMIsaveBoobs Then : BlogPath = My.Settings.LBLBoobPath - ElseIf sender Is PicStripTSMIsaveButts Then : BlogPath = My.Settings.LBLButtPath - ElseIf sender Is PicStripTSMIsaveImage Then - SaveFileDialog1.Filter = "jpegs|*.jpg|gifs|*.gif|pngs|*.png|Bitmaps|*.bmp" - SaveFileDialog1.FilterIndex = 1 - SaveFileDialog1.RestoreDirectory = True - SaveFileDialog1.FileName = fileName - SaveFileDialog1.CheckFileExists = False - - If SaveFileDialog1.ShowDialog() = DialogResult.OK Then - fileName = Path.GetFileName(SaveFileDialog1.FileName) - BlogPath = Path.GetDirectoryName(SaveFileDialog1.FileName) - Else - Exit Sub - End If - Else : Throw New NotImplementedException("Action for this button is not implemented.") + Try + Dim BlogPath As String = "" + Dim fileName As String = Path.GetFileName(mainPictureBox.ImageLocation) + + If sender Is PicStripTSMIsaveHardcore Then : BlogPath = My.Settings.IHardcore + ElseIf sender Is PicStripTSMIsaveSoftcore Then : BlogPath = My.Settings.ISoftcore + ElseIf sender Is PicStripTSMIsaveLesbian Then : BlogPath = My.Settings.ILesbian + ElseIf sender Is PicStripTSMIsaveBlowjob Then : BlogPath = My.Settings.IBlowjob + ElseIf sender Is PicStripTSMIsaveFemdom Then : BlogPath = My.Settings.IFemdom + ElseIf sender Is PicStripTSMIsaveLezdom Then : BlogPath = My.Settings.ILezdom + ElseIf sender Is PicStripTSMIsaveHentai Then : BlogPath = My.Settings.IHentai + ElseIf sender Is PicStripTSMIsaveGay Then : BlogPath = My.Settings.IGay + ElseIf sender Is PicStripTSMIsaveMaledom Then : BlogPath = My.Settings.IMaledom + ElseIf sender Is PicStripTSMIsaveCaptions Then : BlogPath = My.Settings.ICaptions + ElseIf sender Is PicStripTSMIsaveGeneral Then : BlogPath = My.Settings.IGeneral + ElseIf sender Is PicStripTSMIsaveBoobs Then : BlogPath = My.Settings.LBLBoobPath + ElseIf sender Is PicStripTSMIsaveButts Then : BlogPath = My.Settings.LBLButtPath + ElseIf sender Is PicStripTSMIsaveImage Then + SaveFileDialog1.Filter = "jpegs|*.jpg|gifs|*.gif|pngs|*.png|Bitmaps|*.bmp" + SaveFileDialog1.FilterIndex = 1 + SaveFileDialog1.RestoreDirectory = True + SaveFileDialog1.FileName = fileName + SaveFileDialog1.CheckFileExists = False + + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + fileName = Path.GetFileName(SaveFileDialog1.FileName) + BlogPath = Path.GetDirectoryName(SaveFileDialog1.FileName) + Else + Exit Sub End If + Else : Throw New NotImplementedException("Action for this button is not implemented.") + End If - If Directory.Exists(BlogPath) = False Then - Throw New DirectoryNotFoundException( + If Directory.Exists(BlogPath) = False Then + Throw New DirectoryNotFoundException( "Unable to find the directroy """ & BlogPath & """" & vbCrLf & vbCrLf & "Please check your image settings.") - End If + End If - Dim fullPath As String = BlogPath & "\" & fileName + Dim fullPath As String = BlogPath & "\" & fileName - ' Save image directly - If Not File.Exists(fullPath) Or SaveFileDialog1.CheckFileExists Then GoTo saveImage + ' Save image directly + If Not File.Exists(fullPath) Or SaveFileDialog1.CheckFileExists Then GoTo saveImage - ' Confirm overwriting the file - If MessageBox.Show(Me, fileName & " already exists in this directory!" & + ' Confirm overwriting the file + If MessageBox.Show(Me, fileName & " already exists in this directory!" & Environment.NewLine & Environment.NewLine & "Do you wish to overwrite?", "Caution!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then - Exit Sub - End If + Exit Sub + End If - My.Computer.FileSystem.DeleteFile(fullPath) + My.Computer.FileSystem.DeleteFile(fullPath) saveImage: - mainPictureBox.Image.Save(fullPath) + mainPictureBox.Image.Save(fullPath) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Saving image failed.") - If MessageBox.Show(ex.Message, "Saving image failed.", + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(ex.Message, ex, "Saving image failed.") + If MessageBox.Show(ex.Message, "Saving image failed.", MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIlikeImage_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, + Private Sub PicStripTSMIlikeImage_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, PicStripTSMIdislikeImage.Click - ' Exit if ImageLocation is unkown - If ssh.ImageLocation = "" Then Exit Sub + ' Exit if ImageLocation is unkown + If ssh.ImageLocation = "" Then Exit Sub - Dim tmpFilePath As String = "" - Dim lazytext As String = "" - Try - Dim tmpTsmi As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) + Dim tmpFilePath As String = "" + Dim lazytext As String = "" + Try + Dim tmpTsmi As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) - ' Set the filepath to delete from or add to - If tmpTsmi Is PicStripTSMIlikeImage Then - tmpFilePath = pathLikeList - ElseIf tmpTsmi Is PicStripTSMIdislikeImage - tmpFilePath = pathDislikeList - Else - Throw New NotImplementedException("This Toolstripmenuitem is not implemented yet") - End If + ' Set the filepath to delete from or add to + If tmpTsmi Is PicStripTSMIlikeImage Then + tmpFilePath = pathLikeList + ElseIf tmpTsmi Is PicStripTSMIdislikeImage + tmpFilePath = pathDislikeList + Else + Throw New NotImplementedException("This Toolstripmenuitem is not implemented yet") + End If - If tmpTsmi.Checked Then - ' Remove from the given file - lazytext = "remove path from file :" & tmpFilePath - TxtRemoveLine(tmpFilePath, ssh.ImageLocation) - tmpTsmi.Checked = False - ElseIf File.Exists(tmpFilePath) Then - lazytext = "append path to file :" & tmpFilePath - ' Append to existing file - My.Computer.FileSystem.WriteAllText(tmpFilePath, Environment.NewLine & ssh.ImageLocation, True) - Else - lazytext = "add path to new file :" & tmpFilePath - ' create a new file - My.Computer.FileSystem.WriteAllText(tmpFilePath, ssh.ImageLocation, True) - End If - tmpTsmi.Checked = True - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - lazytext = "Unable to " & lazytext - Log.WriteError(lazytext, ex, "Error updating List") - MessageBox.Show(Me, lazytext & vbCrLf _ + If tmpTsmi.Checked Then + ' Remove from the given file + lazytext = "remove path from file :" & tmpFilePath + TxtRemoveLine(tmpFilePath, ssh.ImageLocation) + tmpTsmi.Checked = False + ElseIf File.Exists(tmpFilePath) Then + lazytext = "append path to file :" & tmpFilePath + ' Append to existing file + My.Computer.FileSystem.WriteAllText(tmpFilePath, Environment.NewLine & ssh.ImageLocation, True) + Else + lazytext = "add path to new file :" & tmpFilePath + ' create a new file + My.Computer.FileSystem.WriteAllText(tmpFilePath, ssh.ImageLocation, True) + End If + tmpTsmi.Checked = True + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + lazytext = "Unable to " & lazytext + Log.WriteError(lazytext, ex, "Error updating List") + MessageBox.Show(Me, lazytext & vbCrLf _ & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIremoveFromURL_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIremoveFromURL.Click - Try - ' Lock Control - PicStripTSMIremoveFromURL.Enabled = False + Private Sub PicStripTSMIremoveFromURL_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIremoveFromURL.Click + Try + ' Lock Control + PicStripTSMIremoveFromURL.Enabled = False - ' Remove from URL-Files. - RemoveFromUrlFiles(ssh.ImageLocation) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") - MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ + ' Remove from URL-Files. + RemoveFromUrlFiles(ssh.ImageLocation) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") + MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") - End Try - End Sub + End Try + End Sub #Region "-------------------------------------------------- DommeSlideshow ----------------------------------------------------" - Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click + Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + Return + End If - If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return + If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try - ShowImage(ssh.SlideshowMain.NavigateLast, True) - ssh.JustShowedBlogImage = False - Catch + Try + ShowImage(ssh.SlideshowMain.NavigateLast, True) + ssh.JustShowedBlogImage = False + Catch - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click + Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + Return + End If - If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return + If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try - ShowImage(ssh.SlideshowMain.NavigateFirst, True) - ssh.JustShowedBlogImage = False - Catch + Try + ShowImage(ssh.SlideshowMain.NavigateFirst, True) + ssh.JustShowedBlogImage = False + Catch - End Try - End Sub + End Try + End Sub - Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click + Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + Return + End If - If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return + If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try - ssh.SlideshowMain.LoadNew() - ShowImage(ssh.SlideshowMain.NavigateFirst, True) + Try + ssh.SlideshowMain.LoadNew() + ShowImage(ssh.SlideshowMain.NavigateFirst, True) - Catch + Catch - End Try + End Try - End Sub + End Sub #End Region ' DommeSlideshow @@ -17072,332 +17087,332 @@ saveImage: - Public Sub LoadDommeImageFolder() - ssh.SlideshowMain.LoadNew() - ShowImage(ssh.SlideshowMain.CurrentImage, False) - ssh.SlideshowLoaded = True - ssh.JustShowedBlogImage = False + Public Sub LoadDommeImageFolder() + ssh.SlideshowMain.LoadNew() + ShowImage(ssh.SlideshowMain.CurrentImage, False) + ssh.SlideshowLoaded = True + ssh.JustShowedBlogImage = False - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True - If ssh.RiskyDeal = True Then FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.SlideshowMain.CurrentImage) + If ssh.RiskyDeal = True Then FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.SlideshowMain.CurrentImage) - If FrmSettings.timedRadio.Checked = True Then - ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value - SlideshowTimer.Start() - End If + If FrmSettings.timedRadio.Checked = True Then + ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value + SlideshowTimer.Start() + End If - End Sub + End Sub - Public Sub ScrollChatDown() + Public Sub ScrollChatDown() - Try - ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try + Try + ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - End Sub + End Sub - Private Sub StatusUpdates_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted - Try - StatusUpdates.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub + Private Sub StatusUpdates_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted + Try + StatusUpdates.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + End Sub - Public Function WordExists(ByVal searchString As String, ByVal findString As String) As Boolean + Public Function WordExists(ByVal searchString As String, ByVal findString As String) As Boolean - Dim returnValue As Boolean = False + Dim returnValue As Boolean = False - If System.Text.RegularExpressions.Regex.Matches(searchString, "\b" & findString & "\b").Count > 0 Then returnValue = True - Return returnValue + If System.Text.RegularExpressions.Regex.Matches(searchString, "\b" & findString & "\b").Count > 0 Then returnValue = True + Return returnValue - End Function + End Function - Function Capitalize(ByVal val As String) As String - If String.IsNullOrEmpty(val) Then - Return val - End If - Dim array() As Char = val.ToCharArray - array(0) = Char.ToUpper(array(0)) - Return New String(array) - End Function + Function Capitalize(ByVal val As String) As String + If String.IsNullOrEmpty(val) Then + Return val + End If + Dim array() As Char = val.ToCharArray + array(0) = Char.ToUpper(array(0)) + Return New String(array) + End Function - Public Function CompareDates(ByVal CheckDate As Date) As Integer + Public Function CompareDates(ByVal CheckDate As Date) As Integer - Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.ShortDate), FormatDateTime(Now, DateFormat.ShortDate)) - Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) - Return result + Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.ShortDate), FormatDateTime(Now, DateFormat.ShortDate)) + Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) + Return result - End Function + End Function - Public Function CompareDatesWithTime(ByVal CheckDate As Date) As Integer + Public Function CompareDatesWithTime(ByVal CheckDate As Date) As Integer - Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.GeneralDate), FormatDateTime(Now, DateFormat.GeneralDate)) - Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) - Return result + Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.GeneralDate), FormatDateTime(Now, DateFormat.GeneralDate)) + Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) + Return result - End Function + End Function - Public Function StripBlankLines(ByVal SpaceClean As List(Of String)) As List(Of String) - For i As Integer = SpaceClean.Count - 1 To 0 Step -1 - If SpaceClean(i) = "" Then SpaceClean.Remove(SpaceClean(i)) - Next - Return SpaceClean - End Function + Public Function StripBlankLines(ByVal SpaceClean As List(Of String)) As List(Of String) + For i As Integer = SpaceClean.Count - 1 To 0 Step -1 + If SpaceClean(i) = "" Then SpaceClean.Remove(SpaceClean(i)) + Next + Return SpaceClean + End Function - Public Function StripCommands(ByVal CFClean As String) As String + Public Function StripCommands(ByVal CFClean As String) As String - Debug.Print("CFClean = " & CFClean) + Debug.Print("CFClean = " & CFClean) - ' This works as a solution to avoid all the crap I'm having to do underneath it, but I couldn't figuure out how to keep it from eating - ' words after @CommandFilters in #Keywords + ' This works as a solution to avoid all the crap I'm having to do underneath it, but I couldn't figuure out how to keep it from eating + ' words after @CommandFilters in #Keywords - 'Dim CleanReg As RegularExpressions.Regex - 'CleanReg = New RegularExpressions.Regex("(@[^)]+)\)") + 'Dim CleanReg As RegularExpressions.Regex + 'CleanReg = New RegularExpressions.Regex("(@[^)]+)\)") - 'Dim StripArray As String() = CFClean.Split(")") + 'Dim StripArray As String() = CFClean.Split(")") - 'For i As Integer = 0 To StripArray.Count - 1 - 'If StripArray(i).Contains("@") Then - 'StripArray(i) = StripArray(i) & ")" - 'StripArray(i) = StripArray(i).Replace(CleanReg.Match(StripArray(i)).Value(), "") - 'End If - 'Next + 'For i As Integer = 0 To StripArray.Count - 1 + 'If StripArray(i).Contains("@") Then + 'StripArray(i) = StripArray(i) & ")" + 'StripArray(i) = StripArray(i).Replace(CleanReg.Match(StripArray(i)).Value(), "") + 'End If + 'Next - 'CFClean = Join(StripArray) + 'CFClean = Join(StripArray) - 'Debug.Print("CFClean Joined = " & CFClean) + 'Debug.Print("CFClean Joined = " & CFClean) - '=============================================================================== - ' Clean leftover @Commands( - '=============================================================================== - If CFClean.Contains("@Variable[") Then - CFClean = CFClean.Replace("@Variable[" & GetParentheses(CFClean, "@Variable[", 2) & "]", "") - If CFClean.Contains("And[") Then CFClean = CFClean.Replace("And[" & GetParentheses(CFClean, "And[", 2) & "]", "") - If CFClean.Contains("Or[") Then CFClean = CFClean.Replace("Or[" & GetParentheses(CFClean, "Or[", 2) & "]", "") - End If + '=============================================================================== + ' Clean leftover @Commands( + '=============================================================================== + If CFClean.Contains("@Variable[") Then + CFClean = CFClean.Replace("@Variable[" & GetParentheses(CFClean, "@Variable[", 2) & "]", "") + If CFClean.Contains("And[") Then CFClean = CFClean.Replace("And[" & GetParentheses(CFClean, "And[", 2) & "]", "") + If CFClean.Contains("Or[") Then CFClean = CFClean.Replace("Or[" & GetParentheses(CFClean, "Or[", 2) & "]", "") + End If - For Each com As String In New List(Of String) From + For Each com As String In New List(Of String) From {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag("} - If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") - Next - - '=============================================================================== - ' Clean all other remaining @Commands - '=============================================================================== - Dim AtArray() As String = Split(CFClean) - For i As Integer = 0 To AtArray.Length - 1 - Try - If AtArray(i).Contains("@") Then - AtArray(i) = AtArray(i).Replace(AtArray(i), "") - End If - Catch - End Try - Next - CFClean = Join(AtArray) - Return CFClean + If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") + Next - End Function + '=============================================================================== + ' Clean all other remaining @Commands + '=============================================================================== + Dim AtArray() As String = Split(CFClean) + For i As Integer = 0 To AtArray.Length - 1 + Try + If AtArray(i).Contains("@") Then + AtArray(i) = AtArray(i).Replace(AtArray(i), "") + End If + Catch + End Try + Next + CFClean = Join(AtArray) + Return CFClean - Public Function StripFormat(ByVal FormatClean As String) As String - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace("", "") - FormatClean = FormatClean.Replace(FrmSettings.TBEmote.Text, "") - FormatClean = FormatClean.Replace(FrmSettings.TBEmoteEnd.Text, "") + End Function - Return FormatClean - End Function + Public Function StripFormat(ByVal FormatClean As String) As String + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace("", "") + FormatClean = FormatClean.Replace(FrmSettings.TBEmote.Text, "") + FormatClean = FormatClean.Replace(FrmSettings.TBEmoteEnd.Text, "") + + Return FormatClean + End Function - Private Sub CustomSlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CustomSlideshowTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - Try - Dim sw As New Stopwatch + Private Sub CustomSlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CustomSlideshowTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Try + Dim sw As New Stopwatch restartInstantly: - sw.Restart() + sw.Restart() - ' Check if the timer is supposed to be running - If ssh.CustomSlideEnabled = False Then - CustomSlideshowTimer.Stop() - Exit Sub - End If + ' Check if the timer is supposed to be running + If ssh.CustomSlideEnabled = False Then + CustomSlideshowTimer.Stop() + Exit Sub + End If - ' Determine if local images are preferred . - Dim PreferOffline As Boolean = If(CustomSlideshowTimer.Interval < 1000, True, False) + ' Determine if local images are preferred . + Dim PreferOffline As Boolean = If(CustomSlideshowTimer.Interval < 1000, True, False) - ' Display a random image. - ShowImage(ssh.CustomSlideshow.GetRandom(PreferOffline), True) + ' Display a random image. + ShowImage(ssh.CustomSlideshow.GetRandom(PreferOffline), True) - ' If displaying the image took longer as the interval, restart instantly. - If sw.ElapsedMilliseconds > CustomSlideshowTimer.Interval Then GoTo restartInstantly - Catch ex As Exception - Exit Sub - End Try - End Sub - - Public Shared Function ResizeImage(ByVal image As Image, ByVal size As Size, Optional ByVal preserveAspectRatio As Boolean = True) As Image - - Dim newWidth As Integer - Dim newHeight As Integer - If preserveAspectRatio Then - Dim originalWidth As Integer = image.Width - Dim originalHeight As Integer = image.Height - Dim percentWidth As Single = CSng(size.Width) / CSng(originalWidth) - Dim percentHeight As Single = CSng(size.Height) / CSng(originalHeight) - Dim percent As Single = If(percentHeight < percentWidth, percentHeight, percentWidth) - newWidth = CInt(originalWidth * percent) - newHeight = CInt(originalHeight * percent) - Else - newWidth = size.Width - newHeight = size.Height - End If + ' If displaying the image took longer as the interval, restart instantly. + If sw.ElapsedMilliseconds > CustomSlideshowTimer.Interval Then GoTo restartInstantly + Catch ex As Exception + Exit Sub + End Try + End Sub - Dim newImage As Image = New Bitmap(newWidth, newHeight) + Public Shared Function ResizeImage(ByVal image As Image, ByVal size As Size, Optional ByVal preserveAspectRatio As Boolean = True) As Image + + Dim newWidth As Integer + Dim newHeight As Integer + If preserveAspectRatio Then + Dim originalWidth As Integer = image.Width + Dim originalHeight As Integer = image.Height + Dim percentWidth As Single = CSng(size.Width) / CSng(originalWidth) + Dim percentHeight As Single = CSng(size.Height) / CSng(originalHeight) + Dim percent As Single = If(percentHeight < percentWidth, percentHeight, percentWidth) + newWidth = CInt(originalWidth * percent) + newHeight = CInt(originalHeight * percent) + Else + newWidth = size.Width + newHeight = size.Height + End If - Using graphicsHandle As Graphics = Graphics.FromImage(newImage) - graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic - graphicsHandle.DrawImage(image, 0, 0, newWidth, newHeight) - End Using - Return newImage + Dim newImage As Image = New Bitmap(newWidth, newHeight) + + Using graphicsHandle As Graphics = Graphics.FromImage(newImage) + graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic + graphicsHandle.DrawImage(image, 0, 0, newWidth, newHeight) + End Using + Return newImage - End Function + End Function #Region "-------------------------------------------------- Contact 1-3 -------------------------------------------------------" - Private Sub Contact1Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact1Timer.Tick + Private Sub Contact1Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact1Timer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact1Timer.Stop() - If Not ssh.Group.Contains("1") Then - ssh.Group = ssh.Group & "1" - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("1", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - End If + If ssh.AddContactTick < 1 Then + Contact1Timer.Stop() + If Not ssh.Group.Contains("1") Then + ssh.Group = ssh.Group & "1" + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("1", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() End If + End If - End Sub + End Sub - Private Sub Contact2Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact2Timer.Tick + Private Sub Contact2Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact2Timer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact2Timer.Stop() - If Not ssh.Group.Contains("2") Then - ssh.Group = ssh.Group & "2" - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("2", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - End If + If ssh.AddContactTick < 1 Then + Contact2Timer.Stop() + If Not ssh.Group.Contains("2") Then + ssh.Group = ssh.Group & "2" + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("2", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() End If + End If - End Sub + End Sub - Private Sub Contact3Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact3Timer.Tick + Private Sub Contact3Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact3Timer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact3Timer.Stop() - If Not ssh.Group.Contains("3") Then - ssh.Group = ssh.Group & "3" - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("3", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - End If + If ssh.AddContactTick < 1 Then + Contact3Timer.Stop() + If Not ssh.Group.Contains("3") Then + ssh.Group = ssh.Group & "3" + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("3", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() End If + End If - End Sub + End Sub #End Region - Private Sub DommeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles DommeTimer.Tick + Private Sub DommeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles DommeTimer.Tick - ssh.AddContactTick -= 1 + ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - DommeTimer.Stop() - If Not ssh.Group.Contains("D") Then - ssh.Group = ssh.Group & "D" - If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - ssh.Group = ssh.Group.Replace("D", "") - ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - End If + If ssh.AddContactTick < 1 Then + DommeTimer.Stop() + If Not ssh.Group.Contains("D") Then + ssh.Group = ssh.Group & "D" + If ssh.Group = "D" Then ssh.GlitterTease = False + ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has joined the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + Else + ssh.Group = ssh.Group.Replace("D", "") + ssh.GlitterTease = True + ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has left the Chat room" & "
" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() End If + End If - End Sub + End Sub - Private Sub UpdateStageTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdateStageTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.UpdateStageTick -= 1 - If ssh.UpdateStageTick < 1 Then - UpdateStageTimer.Stop() - StatusUpdatePost() - End If - End Sub + Private Sub UpdateStageTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdateStageTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + ssh.UpdateStageTick -= 1 + If ssh.UpdateStageTick < 1 Then + UpdateStageTimer.Stop() + StatusUpdatePost() + End If + End Sub @@ -17405,65 +17420,65 @@ restartInstantly: #Region "-------------------------------------------------------- File --------------------------------------------------------" - Private Sub dompersonalitycombobox_LostFocus(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.LostFocus - My.Settings.DomPersonality = dompersonalitycombobox.Text - End Sub + Private Sub dompersonalitycombobox_LostFocus(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.LostFocus + My.Settings.DomPersonality = dompersonalitycombobox.Text + End Sub - Private Sub dompersonalitycombobox_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.SelectedIndexChanged - If FormLoading = True Then Exit Sub + Private Sub dompersonalitycombobox_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.SelectedIndexChanged + If FormLoading = True Then Exit Sub - Try - My.Settings.DomPersonality = dompersonalitycombobox.Text + Try + My.Settings.DomPersonality = dompersonalitycombobox.Text - FrmSettings.LBLGlitModDomType.Text = dompersonalitycombobox.Text + FrmSettings.LBLGlitModDomType.Text = dompersonalitycombobox.Text - ssh.DomPersonality = dompersonalitycombobox.Text + ssh.DomPersonality = dompersonalitycombobox.Text - FrmSettings.LoadStartScripts() - FrmSettings.LoadModuleScripts() - FrmSettings.LoadLinkScripts() - FrmSettings.LoadEndScripts() + FrmSettings.LoadStartScripts() + FrmSettings.LoadModuleScripts() + FrmSettings.LoadLinkScripts() + FrmSettings.LoadEndScripts() - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") Then - Dim ContactList As New List(Of String) - ContactList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") - FrmSettings.GBGlitter1.Text = PoundClean(ContactList(0)) - FrmSettings.GBGlitter2.Text = PoundClean(ContactList(1)) - FrmSettings.GBGlitter3.Text = PoundClean(ContactList(2)) - Else - FrmSettings.GBGlitter1.Text = "Contact 1" - FrmSettings.GBGlitter2.Text = "Contact 2" - FrmSettings.GBGlitter3.Text = "Contact 3" - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") Then + Dim ContactList As New List(Of String) + ContactList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") + FrmSettings.GBGlitter1.Text = PoundClean(ContactList(0)) + FrmSettings.GBGlitter2.Text = PoundClean(ContactList(1)) + FrmSettings.GBGlitter3.Text = PoundClean(ContactList(2)) + Else + FrmSettings.GBGlitter1.Text = "Contact 1" + FrmSettings.GBGlitter2.Text = "Contact 2" + FrmSettings.GBGlitter3.Text = "Contact 3" + End If - Form9.LBLPersonality.Text = dompersonalitycombobox.Text + Form9.LBLPersonality.Text = dompersonalitycombobox.Text - Debug.Print("Personality Changed") - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error on changing Personality") - MessageBox.Show(ex.Message, "Error on changing Personality", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End Try - End Sub + Debug.Print("Personality Changed") + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(ex.Message, ex, "Error on changing Personality") + MessageBox.Show(ex.Message, "Error on changing Personality", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End Try + End Sub - Private Sub SuspendSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SuspendSessionToolStripMenuItem.Click - Try - Dim filename As String = SavedSessionDefaultPath + Private Sub SuspendSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SuspendSessionToolStripMenuItem.Click + Try + Dim filename As String = SavedSessionDefaultPath - If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", + If ssh.SaidHello = False Then + MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Exit Sub - End If + Exit Sub + End If - ' =============================================================================== - ' Custom Location if Control-Key pressed - ' =============================================================================== - If My.Computer.Keyboard.CtrlKeyDown Then - Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", + ' =============================================================================== + ' Custom Location if Control-Key pressed + ' =============================================================================== + If My.Computer.Keyboard.CtrlKeyDown Then + Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), .Title = "Select a destination to safe the sessin to.", .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, @@ -17471,396 +17486,363 @@ restartInstantly: .CheckPathExists = True, .OverwritePrompt = True, .ValidateNames = True} - If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub + If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub - filename = fsd.FileName - '=============================================================================== - ' Check if default-File exists - '=============================================================================== - ElseIf File.Exists(filename) _ + filename = fsd.FileName + '=============================================================================== + ' Check if default-File exists + '=============================================================================== + ElseIf File.Exists(filename) _ AndAlso MessageBox.Show(Me, "A previous saved state already exists!" & vbCrLf & vbCrLf & "Do you wish to overwrite it?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then - Exit Sub - End If + Exit Sub + End If - ' Store Session to disk - ssh.Save(filename) + ' Store Session to disk + ssh.Save(filename) - MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", + MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & vbCrLf & vbCrLf & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End Try - End Sub + End Try + End Sub - Private Sub ResumeSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResumeSessionToolStripMenuItem.Click - Try - Dim filename As String = SavedSessionDefaultPath + Private Sub ResumeSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResumeSessionToolStripMenuItem.Click + Try + Dim filename As String = SavedSessionDefaultPath - ' =============================================================================== - ' Custom Location if Control-Key pressed - ' =============================================================================== - If My.Computer.Keyboard.CtrlKeyDown Then - Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", + ' =============================================================================== + ' Custom Location if Control-Key pressed + ' =============================================================================== + If My.Computer.Keyboard.CtrlKeyDown Then + Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), .Title = "Select a saved session to resume.", .CheckPathExists = True, .CheckFileExists = True, .AddExtension = True, .ValidateNames = True} - If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub + If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub - filename = fsd.FileName - '=============================================================================== - ' Check if default-File exists - '=============================================================================== - ElseIf Not File.Exists(filename) Then - MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Exit Sub - End If + filename = fsd.FileName + '=============================================================================== + ' Check if default-File exists + '=============================================================================== + ElseIf Not File.Exists(filename) Then + MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Exit Sub + End If - If ssh.SaidHello = True _ + If ssh.SaidHello = True _ AndAlso MessageBox.Show(Me, "Resuming a previous state will cause you to lose your progress in this session!" & vbCrLf & vbCrLf & "Do you wish to proceed?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then - Exit Sub - End If + Exit Sub + End If - ssh.Load(filename, True) + ssh.Load(filename, True) - If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ + If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ FrmSettings.LockOrgasmChances(True) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & vbCrLf & vbCrLf & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End Try - End Sub + End Try + End Sub - Private Sub ResetSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click + Private Sub ResetSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click - If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + If ssh.SaidHello = False Then + MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If - ssh.Reset() - FrmSettings.LockOrgasmChances(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) - If ssh.DomTypeCheck = False Then - ssh.DomTask = "Tease AI has been reset" - TypingDelayGeneric() - End If + If ssh.DomTypeCheck = False Then + ssh.DomTask = "Tease AI has been reset" + TypingDelayGeneric() + End If - End Sub + End Sub - Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click, + Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click, ExitToolStripMenuItem1.Click - Me.Close() - Me.Dispose() - End Sub + Me.Close() + Me.Dispose() + End Sub #End Region ' File #Region "------------------------------------------------------ Settings ------------------------------------------------------" - Private Sub GeneralSettingsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GeneralSettingsToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(0) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub DommeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DommeToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(1) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub SubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SubToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(2) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub ScriptsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ScriptsToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(3) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub ImagesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ImagesToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(4) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub TaggingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TaggingToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(5) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub URLFilesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles URLFilesToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(6) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub VideoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VideoToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(7) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub AppsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles AppsToolStripMenuItem1.Click - FrmSettings.SettingsTabs.SelectTab(8) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub RangesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RangesToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(10) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub ModdingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ModdingToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(11) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub MiscToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MiscToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(12) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub GeneralSettingsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GeneralSettingsToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(0) + FrmSettings.Show() + FrmSettings.Focus() + End Sub -#End Region ' Settings + Private Sub DommeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DommeToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(1) + FrmSettings.Show() + FrmSettings.Focus() + End Sub -#Region "-------------------------------------------------------- APPs --------------------------------------------------------" + Private Sub SubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SubToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(2) + FrmSettings.Show() + FrmSettings.Focus() + End Sub - Private Sub CloseAppPanelToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CloseAppPanelToolStripMenuItem.Click - CloseApp(Nothing) - End Sub - - Private Sub MetronomeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MetronomeToolStripMenuItem.Click - CloseApp(PNLMetronome) - End Sub - - Private Sub GlitterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GlitterToolStripMenuItem.Click - CloseApp(PnlGlitter) - End Sub - - Private Sub DommeTagsToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagsToolStripMenuItem2.Click - CloseApp(PNLDomTagBTN) - End Sub - - Private Sub LazySubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LazySubToolStripMenuItem.Click - CloseApp(PNLLazySub) - End Sub - - Private Sub RandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RandomizerToolStripMenuItem.Click - CloseApp(PNLAppRandomizer) - End Sub - - Private Sub PlaylistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PlaylistToolStripMenuItem.Click - If PNLPlaylist.Visible = False Then - CloseApp(PNLPlaylist) - LBPlaylist.Items.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - LBPlaylist.Items.Add(Path.GetFileName(foundFile).Replace(".txt", "")) - Next - End If - End Sub + Private Sub ScriptsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ScriptsToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(3) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub ImagesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ImagesToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(4) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub TaggingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TaggingToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(5) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub URLFilesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles URLFilesToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(6) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub VideoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VideoToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(7) + FrmSettings.Show() + FrmSettings.Focus() + End Sub - Private Sub WritingTasksToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WritingTasksToolStripMenuItem.Click - CloseApp(PNLWritingTask) - End Sub + Private Sub AppsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles AppsToolStripMenuItem1.Click + FrmSettings.SettingsTabs.SelectTab(8) + FrmSettings.Show() + FrmSettings.Focus() + End Sub - Private Sub WishlistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WishlistToolStripMenuItem.Click - If PNLWishList.Visible = False Then + Private Sub RangesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RangesToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(10) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + Private Sub ModdingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ModdingToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(11) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + Private Sub MiscToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MiscToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(12) + FrmSettings.Show() + FrmSettings.Focus() + End Sub - If My.Settings.ClearWishlist = True Then +#End Region ' Settings - MessageBox.Show(Me, "You have already purchased " & domName.Text & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & - "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - Return - End If +#Region "-------------------------------------------------------- APPs --------------------------------------------------------" + Private Sub CloseAppPanelToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CloseAppPanelToolStripMenuItem.Click + CloseApp(Nothing) + End Sub + Private Sub MetronomeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MetronomeToolStripMenuItem.Click + CloseApp(PNLMetronome) + End Sub + Private Sub GlitterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GlitterToolStripMenuItem.Click + CloseApp(PnlGlitter) + End Sub + Private Sub DommeTagsToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagsToolStripMenuItem2.Click + CloseApp(PNLDomTagBTN) + End Sub + Private Sub LazySubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LazySubToolStripMenuItem.Click + CloseApp(PNLLazySub) + End Sub + Private Sub RandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RandomizerToolStripMenuItem.Click + CloseApp(PNLAppRandomizer) + End Sub - If CompareDates(My.Settings.WishlistDate) <> 0 Then + Private Sub PlaylistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PlaylistToolStripMenuItem.Click + If PNLPlaylist.Visible = False Then + CloseApp(PNLPlaylist) + LBPlaylist.Items.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + LBPlaylist.Items.Add(Path.GetFileName(foundFile).Replace(".txt", "")) + Next + End If + End Sub + Private Sub WritingTasksToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WritingTasksToolStripMenuItem.Click + CloseApp(PNLWritingTask) + End Sub - Dim WishList As New List(Of String) - WishList.Clear() + Private Sub WishlistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WishlistToolStripMenuItem.Click + If PNLWishList.Visible = False Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Items\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - WishList.Add(foundFile) - Next - If WishList.Count < 1 Then - MessageBox.Show(Me, "No Wishlist items found!" & Environment.NewLine & Environment.NewLine & - "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + If My.Settings.ClearWishlist = True Then - LBLWishlistDom.Text = domName.Text & "'s Wishlist" - LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() - WishlistCostGold.Visible = False - WishlistCostSilver.Visible = False - LBLWishlistBronze.Text = ssh.BronzeTokens - LBLWishlistSilver.Text = ssh.SilverTokens - LBLWishlistGold.Text = ssh.GoldTokens - LBLWishListText.Text = "" + MessageBox.Show(Me, "You have already purchased " & domName.Text & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & + "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return + End If - Dim WishDir As String = WishList(ssh.randomizer.Next(0, WishList.Count)) - WishList.Clear() - 'Read all lines of the given file. - WishList = Txt2List(WishDir) - LBLWishListName.Text = WishList(0) - My.Settings.WishlistName = LBLWishListName.Text - WishlistPreview.Load(WishList(1)) - WishlistPreview.Visible = True - My.Settings.WishlistPreview = WishList(1) + If CompareDates(My.Settings.WishlistDate) <> 0 Then - If WishList(2).Contains("Silver") Then - WishlistCostSilver.Visible = True - LBLWishlistCost.Text = WishList(2) - LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Silver", "") - My.Settings.WishlistTokenType = "Silver" - End If - If WishList(2).Contains("Gold") Then - WishlistCostGold.Visible = True - LBLWishlistCost.Text = WishList(2) - LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Gold", "") - My.Settings.WishlistTokenType = "Gold" - End If + Dim WishList As New List(Of String) + WishList.Clear() - My.Settings.WishlistCost = Val(LBLWishlistCost.Text) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Items\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + WishList.Add(foundFile) + Next + If WishList.Count < 1 Then + MessageBox.Show(Me, "No Wishlist items found!" & Environment.NewLine & Environment.NewLine & + "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return - LBLWishListText.Text = WishList(3) - My.Settings.WishlistNote = WishList(3) + End If + LBLWishlistDom.Text = domName.Text & "'s Wishlist" + LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() + WishlistCostGold.Visible = False + WishlistCostSilver.Visible = False + LBLWishlistBronze.Text = ssh.BronzeTokens + LBLWishlistSilver.Text = ssh.SilverTokens + LBLWishlistGold.Text = ssh.GoldTokens + LBLWishListText.Text = "" - If WishlistCostGold.Visible = True Then - If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Enabled = True - BTNWishlist.Text = "Purchase for " & domName.Text - Else - BTNWishlist.Enabled = False - BTNWishlist.Text = "Not Enough Tokens!" - End If - End If - If WishlistCostSilver.Visible = True Then - If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Enabled = True - BTNWishlist.Text = "Purchase for " & domName.Text - Else - BTNWishlist.Enabled = False - BTNWishlist.Text = "Not Enough Tokens!" - End If - End If + Dim WishDir As String = WishList(ssh.randomizer.Next(0, WishList.Count)) + WishList.Clear() + 'Read all lines of the given file. + WishList = Txt2List(WishDir) - My.Settings.WishlistDate = FormatDateTime(Now, DateFormat.ShortDate) + LBLWishListName.Text = WishList(0) + My.Settings.WishlistName = LBLWishListName.Text + WishlistPreview.Load(WishList(1)) + WishlistPreview.Visible = True + My.Settings.WishlistPreview = WishList(1) + If WishList(2).Contains("Silver") Then + WishlistCostSilver.Visible = True + LBLWishlistCost.Text = WishList(2) + LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Silver", "") + My.Settings.WishlistTokenType = "Silver" + End If + If WishList(2).Contains("Gold") Then + WishlistCostGold.Visible = True + LBLWishlistCost.Text = WishList(2) + LBLWishlistCost.Text = LBLWishlistCost.Text.Replace(" Gold", "") + My.Settings.WishlistTokenType = "Gold" + End If + My.Settings.WishlistCost = Val(LBLWishlistCost.Text) - Else + LBLWishListText.Text = WishList(3) + My.Settings.WishlistNote = WishList(3) + If WishlistCostGold.Visible = True Then + If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Enabled = True + BTNWishlist.Text = "Purchase for " & domName.Text + Else + BTNWishlist.Enabled = False + BTNWishlist.Text = "Not Enough Tokens!" + End If + End If - LBLWishlistDom.Text = domName.Text & "'s Wishlist" - LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() - LBLWishlistBronze.Text = ssh.BronzeTokens - LBLWishlistSilver.Text = ssh.SilverTokens - LBLWishlistGold.Text = ssh.GoldTokens + If WishlistCostSilver.Visible = True Then + If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Enabled = True + BTNWishlist.Text = "Purchase for " & domName.Text + Else + BTNWishlist.Enabled = False + BTNWishlist.Text = "Not Enough Tokens!" + End If + End If - LBLWishListName.Text = My.Settings.WishlistName - Try - WishlistPreview.Load(My.Settings.WishlistPreview) - Catch - WishlistPreview.Load(Application.StartupPath & "\Images\System\NoPreview.png") - End Try - If My.Settings.WishlistTokenType = "Silver" Then WishlistCostSilver.Visible = True - If My.Settings.WishlistTokenType = "Gold" Then WishlistCostGold.Visible = True - LBLWishlistCost.Text = My.Settings.WishlistCost - LBLWishListText.Text = My.Settings.WishlistNote + My.Settings.WishlistDate = FormatDateTime(Now, DateFormat.ShortDate) - If WishlistCostGold.Visible = True Then - If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "????? Gold" - BTNWishlist.Enabled = True - Else - BTNWishlist.Text = "Not Enough Tokens!" - BTNWishlist.Enabled = False - End If - End If - If WishlistCostSilver.Visible = True Then - Debug.Print("Silver Caled PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP") - If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "???? Silver" - BTNWishlist.Enabled = True - Else - BTNWishlist.Text = "Not Enough Tokens!" - BTNWishlist.Enabled = False - End If - End If - End If + Else + LBLWishlistDom.Text = domName.Text & "'s Wishlist" + LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() LBLWishlistBronze.Text = ssh.BronzeTokens LBLWishlistSilver.Text = ssh.SilverTokens LBLWishlistGold.Text = ssh.GoldTokens + + LBLWishListName.Text = My.Settings.WishlistName + Try + WishlistPreview.Load(My.Settings.WishlistPreview) + Catch + WishlistPreview.Load(Application.StartupPath & "\Images\System\NoPreview.png") + End Try + + If My.Settings.WishlistTokenType = "Silver" Then WishlistCostSilver.Visible = True + If My.Settings.WishlistTokenType = "Gold" Then WishlistCostGold.Visible = True + LBLWishlistCost.Text = My.Settings.WishlistCost + LBLWishListText.Text = My.Settings.WishlistNote + If WishlistCostGold.Visible = True Then If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Text = "????? Gold" BTNWishlist.Enabled = True Else BTNWishlist.Text = "Not Enough Tokens!" @@ -17869,9 +17851,9 @@ restartInstantly: End If If WishlistCostSilver.Visible = True Then - Debug.Print("Silver Called") + Debug.Print("Silver Caled PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP") If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Text = "???? Silver" BTNWishlist.Enabled = True Else BTNWishlist.Text = "Not Enough Tokens!" @@ -17879,550 +17861,582 @@ restartInstantly: End If End If + End If + + + + LBLWishlistBronze.Text = ssh.BronzeTokens + LBLWishlistSilver.Text = ssh.SilverTokens + LBLWishlistGold.Text = ssh.GoldTokens - CloseApp(PNLWishList) + If WishlistCostGold.Visible = True Then + If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Enabled = True + Else + BTNWishlist.Text = "Not Enough Tokens!" + BTNWishlist.Enabled = False + End If End If - End Sub - Private Sub HypnoticGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HypnoticGuideToolStripMenuItem.Click - CloseApp(PNLHypnoGen) - If PNLHypnoGen.Visible = False Then + If WishlistCostSilver.Visible = True Then + Debug.Print("Silver Called") + If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then + BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Enabled = True + Else + BTNWishlist.Text = "Not Enough Tokens!" + BTNWishlist.Enabled = False + End If + End If - LBHypnoGenInduction.Items.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - Dim TempUrl As String = foundFile - TempUrl = TempUrl.Replace(".txt", "") - Do Until Not TempUrl.Contains("\") - TempUrl = TempUrl.Remove(0, 1) - Loop - LBHypnoGenInduction.Items.Add(TempUrl) - Next + CloseApp(PNLWishList) + End If + End Sub - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\", FileIO.SearchOption.SearchTopLevelOnly, "*.mp3") - Dim TempUrl As String = foundFile - Do Until Not TempUrl.Contains("\") - TempUrl = TempUrl.Remove(0, 1) - Loop - ComboBoxHypnoGenTrack.Items.Add(TempUrl) - Next + Private Sub HypnoticGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HypnoticGuideToolStripMenuItem.Click + CloseApp(PNLHypnoGen) + If PNLHypnoGen.Visible = False Then - LBHypnoGen.Items.Clear() + LBHypnoGenInduction.Items.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - Dim TempUrl As String = foundFile - TempUrl = TempUrl.Replace(".txt", "") - Do Until Not TempUrl.Contains("\") - TempUrl = TempUrl.Remove(0, 1) - Loop - LBHypnoGen.Items.Add(TempUrl) + Dim TempUrl As String = foundFile + TempUrl = TempUrl.Replace(".txt", "") + Do Until Not TempUrl.Contains("\") + TempUrl = TempUrl.Remove(0, 1) + Loop + LBHypnoGenInduction.Items.Add(TempUrl) - Next + Next + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\", FileIO.SearchOption.SearchTopLevelOnly, "*.mp3") + Dim TempUrl As String = foundFile + Do Until Not TempUrl.Contains("\") + TempUrl = TempUrl.Remove(0, 1) + Loop + ComboBoxHypnoGenTrack.Items.Add(TempUrl) + Next - End If + LBHypnoGen.Items.Clear() + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + Dim TempUrl As String = foundFile + TempUrl = TempUrl.Replace(".txt", "") + Do Until Not TempUrl.Contains("\") + TempUrl = TempUrl.Remove(0, 1) + Loop + LBHypnoGen.Items.Add(TempUrl) - End Sub + Next - Private Sub VitalSubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VitalSubToolStripMenuItem.Click - CloseApp(AppPanelVitalSub) - If AppPanelVitalSub.Visible = False Then - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") And ComboBoxCalorie.Items.Count = 0 Then - Debug.Print("called itttttttt") - 'Read all lines of the given file. - Dim CalList As List(Of String) = Txt2List(Application.StartupPath & "\System\VitalSub\CalorieList.txt") - For i As Integer = 0 To CalList.Count - 1 - ComboBoxCalorie.Items.Add(CalList(i)) - Next - End If + End If + + + End Sub + Private Sub VitalSubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VitalSubToolStripMenuItem.Click + CloseApp(AppPanelVitalSub) + If AppPanelVitalSub.Visible = False Then + + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") And ComboBoxCalorie.Items.Count = 0 Then + Debug.Print("called itttttttt") + 'Read all lines of the given file. + Dim CalList As List(Of String) = Txt2List(Application.StartupPath & "\System\VitalSub\CalorieList.txt") + + For i As Integer = 0 To CalList.Count - 1 + ComboBoxCalorie.Items.Add(CalList(i)) + Next End If - End Sub + End If + + End Sub #End Region ' APPs #Region "-------------------------------------------------------- Games -------------------------------------------------------" - Private Sub SlotsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, + Private Sub SlotsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, SlotsToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(0) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(0) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub MatchGameToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, + Private Sub MatchGameToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, MatchGameToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(1) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(1) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub RiskyPickToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, + Private Sub RiskyPickToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, RiskyPickToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(2) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub ExchangeToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, + Private Sub ExchangeToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, ExchangeToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(3) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(3) + FrmCardList.Show() + FrmCardList.Focus() + End Sub - Private Sub CollectionToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, + Private Sub CollectionToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, CollectionToolStripMenuItem.Click - FrmCardList.TCGames.SelectTab(4) - FrmCardList.Show() - FrmCardList.Focus() - End Sub + FrmCardList.TCGames.SelectTab(4) + FrmCardList.Show() + FrmCardList.Focus() + End Sub #End Region ' Games #Region "----------------------------------------------------- Interface ------------------------------------------------------" - Private Sub SwitchSidesToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SwitchSidesToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + Private Sub SwitchSidesToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SwitchSidesToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - With PnlSidepanelLayout - If SwitchSidesToolStripMenuItem.Checked Then - My.Settings.MirrorWindows = True - PnlSidepanelLayout.Dock = DockStyle.Right - Else - My.Settings.MirrorWindows = False - PnlSidepanelLayout.Dock = DockStyle.Left - End If + With PnlSidepanelLayout + If SwitchSidesToolStripMenuItem.Checked Then + My.Settings.MirrorWindows = True + PnlSidepanelLayout.Dock = DockStyle.Right + Else + My.Settings.MirrorWindows = False + PnlSidepanelLayout.Dock = DockStyle.Left + End If - .Padding = New Padding(.Padding.Right, .Padding.Top, .Padding.Left, .Padding.Bottom) - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, + .Padding = New Padding(.Padding.Right, .Padding.Top, .Padding.Left, .Padding.Bottom) + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Bottom) - End With - End Sub + End With + End Sub - Private Sub SideChatToolStripMenuItem1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SideChatToolStripMenuItem1.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + Private Sub SideChatToolStripMenuItem1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SideChatToolStripMenuItem1.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - If SideChatToolStripMenuItem1.Checked = False Then - My.Settings.SideChat = False - CloseApp(Nothing) - Else - My.Settings.SideChat = True - CloseApp(PnlSidechat) - End If - End Sub + If SideChatToolStripMenuItem1.Checked = False Then + My.Settings.SideChat = False + CloseApp(Nothing) + Else + My.Settings.SideChat = True + CloseApp(PnlSidechat) + End If + End Sub - Private Sub LazySubAVToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles LazySubAVToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + Private Sub LazySubAVToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles LazySubAVToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - If LazySubAVToolStripMenuItem.Checked = True Then - '#################### Display LazySubAv ################### - My.Settings.LazySubAV = True - PNLLazySubAV.BringToFront() - PnlAvatarInner.SendToBack() - Else - '##################### Hide LazySubAv ##################### - My.Settings.LazySubAV = False - PNLLazySubAV.SendToBack() - PnlAvatarInner.BringToFront() - End If - End Sub - - Private Sub ThemesToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ThemesToolStripMenuItem1.Click - FrmSettings.SettingsTabs.SelectTab(9) - FrmSettings.Show() - FrmSettings.Focus() - End Sub - - Private Sub MaximizeImageToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles MaximizeImageToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub - - If MaximizeImageToolStripMenuItem.Checked = False Then - '########################## Normal ######################## - My.Settings.MaximizeMediaWindow = False - SplitContainer1.Panel2Collapsed = False - PnlChatBoxLayout.Visible = True - SplitContainer1.SplitterDistance = SplitContainer1.Height * 0.75 - Else - '######################### Maximize ####################### - My.Settings.MaximizeMediaWindow = True - SplitContainer1.Panel2Collapsed = True - If PnlSidechat.Visible AndAlso PnlSidepanelLayout.Visible Then PnlChatBoxLayout.Visible = False - End If + If LazySubAVToolStripMenuItem.Checked = True Then + '#################### Display LazySubAv ################### + My.Settings.LazySubAV = True + PNLLazySubAV.BringToFront() + PnlAvatarInner.SendToBack() + Else + '##################### Hide LazySubAv ##################### + My.Settings.LazySubAV = False + PNLLazySubAV.SendToBack() + PnlAvatarInner.BringToFront() + End If + End Sub + + Private Sub ThemesToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ThemesToolStripMenuItem1.Click + FrmSettings.SettingsTabs.SelectTab(9) + FrmSettings.Show() + FrmSettings.Focus() + End Sub + + Private Sub MaximizeImageToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles MaximizeImageToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub + + If MaximizeImageToolStripMenuItem.Checked = False Then + '########################## Normal ######################## + My.Settings.MaximizeMediaWindow = False + SplitContainer1.Panel2Collapsed = False + PnlChatBoxLayout.Visible = True + SplitContainer1.SplitterDistance = SplitContainer1.Height * 0.75 + Else + '######################### Maximize ####################### + My.Settings.MaximizeMediaWindow = True + SplitContainer1.Panel2Collapsed = True + If PnlSidechat.Visible AndAlso PnlSidepanelLayout.Visible Then PnlChatBoxLayout.Visible = False + End If - 'SplitContainer1.SplitterDistance = SplitContainer1.Height - End Sub + 'SplitContainer1.SplitterDistance = SplitContainer1.Height + End Sub - Private Sub SidepanelToolStripMenuItem_CheckedChanged(sender As Object, e As EventArgs) Handles SidepanelToolStripMenuItem.CheckedChanged - ' Prevent further execution during Form's InitializeComponent()-Method. - If IsHandleCreated = False Then Exit Sub + Private Sub SidepanelToolStripMenuItem_CheckedChanged(sender As Object, e As EventArgs) Handles SidepanelToolStripMenuItem.CheckedChanged + ' Prevent further execution during Form's InitializeComponent()-Method. + If IsHandleCreated = False Then Exit Sub - If SidepanelToolStripMenuItem.Checked Then - '########################## Display ####################### - PnlSidepanelLayout.Visible = True - My.Settings.DisplaySidePanel = True + If SidepanelToolStripMenuItem.Checked Then + '########################## Display ####################### + PnlSidepanelLayout.Visible = True + My.Settings.DisplaySidePanel = True - If PnlSidepanelLayout.Dock = DockStyle.Left Then - PnlLayoutForm.Padding = New Padding(0, + If PnlSidepanelLayout.Dock = DockStyle.Left Then + PnlLayoutForm.Padding = New Padding(0, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Bottom) - Else - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, + Else + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Top, 0, PnlLayoutForm.Padding.Bottom) - End If - Else - '########################### Hide ######################### - PnlSidepanelLayout.Visible = False - My.Settings.DisplaySidePanel = False + End If + Else + '########################### Hide ######################### + PnlSidepanelLayout.Visible = False + My.Settings.DisplaySidePanel = False - If PnlSidepanelLayout.Dock = DockStyle.Left Then - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, + If PnlSidepanelLayout.Dock = DockStyle.Left Then + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Right, PnlLayoutForm.Padding.Bottom) - Else - PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, + Else + PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Top, PnlLayoutForm.Padding.Left, PnlLayoutForm.Padding.Bottom) - End If - - If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True End If - End Sub - Private Sub WebteaseModeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteaseModeToolStripMenuItem.Click - If FrmSettings.CBWebtease.Checked = True Then - WebteaseModeToolStripMenuItem.Checked = False - FrmSettings.CBWebtease.Checked = False - Else - WebteaseModeToolStripMenuItem.Checked = True - FrmSettings.CBWebtease.Checked = True - End If + If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True + End If + End Sub - My.Settings.CBWebtease = FrmSettings.CBWebtease.Checked + Private Sub WebteaseModeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteaseModeToolStripMenuItem.Click + If FrmSettings.CBWebtease.Checked = True Then + WebteaseModeToolStripMenuItem.Checked = False + FrmSettings.CBWebtease.Checked = False + Else + WebteaseModeToolStripMenuItem.Checked = True + FrmSettings.CBWebtease.Checked = True + End If - End Sub + My.Settings.CBWebtease = FrmSettings.CBWebtease.Checked - Private Sub DefaultImageSizeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DefaultImageSizeToolStripMenuItem.Click - If SplitContainer1.Height > 430 Then SplitContainer1.SplitterDistance = SplitContainer1.Height - 252 - End Sub + End Sub - Private Sub FullscreenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FullscreenToolStripMenuItem.Click - If Me.FormBorderStyle <> Windows.Forms.FormBorderStyle.None Then - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + Private Sub DefaultImageSizeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DefaultImageSizeToolStripMenuItem.Click + If SplitContainer1.Height > 430 Then SplitContainer1.SplitterDistance = SplitContainer1.Height - 252 + End Sub - Dim WA As Rectangle = Screen.GetBounds(Me) + Private Sub FullscreenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FullscreenToolStripMenuItem.Click + If Me.FormBorderStyle <> Windows.Forms.FormBorderStyle.None Then + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None - Me.Location = New Point(WA.Location.X, WA.Location.Y) - Me.Size = New Size(WA.Width, WA.Height) + Dim WA As Rectangle = Screen.GetBounds(Me) - Me.WindowState = FormWindowState.Normal - Me.MainMenuStrip.Visible = False - Else - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable - Me.Location = New Point(0, 0) - Me.Size = New Size(My.Settings.WindowWidth, My.Settings.WindowHeight) - Me.MainMenuStrip.Visible = True + Me.Location = New Point(WA.Location.X, WA.Location.Y) + Me.Size = New Size(WA.Width, WA.Height) - RestoreFormPosition() - End If - End Sub + Me.WindowState = FormWindowState.Normal + Me.MainMenuStrip.Visible = False + Else + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable + Me.Location = New Point(0, 0) + Me.Size = New Size(My.Settings.WindowWidth, My.Settings.WindowHeight) + Me.MainMenuStrip.Visible = True - Private Sub RestoreFormPosition() - Dim WA As Rectangle = Screen.GetWorkingArea(Cursor.Position) + RestoreFormPosition() + End If + End Sub - If My.Settings.WindowWidth = 0 Or My.Settings.WindowHeight = 0 Then - Me.WindowState = FormWindowState.Maximized - Else - Me.Width = If(WA.Width > Me.Width, My.Settings.WindowWidth, WA.Width) - Me.Height = If(WA.Height > Me.Height, My.Settings.WindowHeight, WA.Height) - End If + Private Sub RestoreFormPosition() + Dim WA As Rectangle = Screen.GetWorkingArea(Cursor.Position) + + If My.Settings.WindowWidth = 0 Or My.Settings.WindowHeight = 0 Then + Me.WindowState = FormWindowState.Maximized + Else + Me.Width = If(WA.Width > Me.Width, My.Settings.WindowWidth, WA.Width) + Me.Height = If(WA.Height > Me.Height, My.Settings.WindowHeight, WA.Height) + End If - Me.Left = WA.Location.X + (WA.Width - Me.Width) / 2 - Me.Top = WA.Location.Y + (WA.Height - Me.Height) / 2 - End Sub + Me.Left = WA.Location.X + (WA.Width - Me.Width) / 2 + Me.Top = WA.Location.Y + (WA.Height - Me.Height) / 2 + End Sub #End Region ' Interface #Region "------------------------------------------------------- Tools --------------------------------------------------------" - Private Sub CommandGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CommandGuideToolStripMenuItem.Click - If Form10.Visible = False Then Form10.Show() - Form10.Focus() - End Sub + Private Sub CommandGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CommandGuideToolStripMenuItem.Click + If Form10.Visible = False Then Form10.Show() + Form10.Focus() + End Sub - Private Sub AIBoxesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AIBoxesToolStripMenuItem.Click - If Form9.Visible = False Then Form9.Show() - Form9.Focus() - End Sub + Private Sub AIBoxesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AIBoxesToolStripMenuItem.Click + If Form9.Visible = False Then Form9.Show() + Form9.Focus() + End Sub - Private Sub OldDommeTagsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OldDommeTagsToolStripMenuItem.Click - Form8.Show() - End Sub + Private Sub OldDommeTagsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OldDommeTagsToolStripMenuItem.Click + Form8.Show() + End Sub #End Region ' Tools #Region "------------------------------------------------------ Milovana ------------------------------------------------------" - Private Sub OpenBetaThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, + Private Sub OpenBetaThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, OpenBetaThreadToolStripMenuItem1.Click - Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") - End Sub + Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") + End Sub - Private Sub BugReportThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, + Private Sub BugReportThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, BugReportThreadToolStripMenuItem1.Click - Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") - End Sub + Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") + End Sub - Private Sub WebteasesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, + Private Sub WebteasesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, WebteasesToolStripMenuItem1.Click - Process.Start("https://milovana.com/webteases/") - End Sub + Process.Start("https://milovana.com/webteases/") + End Sub - Private Sub AllAndEverythingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, + Private Sub AllAndEverythingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, ForumToolStripMenuItem.Click - Process.Start("https://milovana.com/forum/") - End Sub + Process.Start("https://milovana.com/forum/") + End Sub #End Region ' Milovana - Private Sub StartTimer1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StartTimer1ToolStripMenuItem.Click - Timer1.Start() - End Sub + Private Sub StartTimer1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StartTimer1ToolStripMenuItem.Click + Timer1.Start() + End Sub - Private Sub RunScriptToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RunScriptToolStripMenuItem.Click + Private Sub RunScriptToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RunScriptToolStripMenuItem.Click - If OpenScriptDialog.ShowDialog() = DialogResult.OK Then + If OpenScriptDialog.ShowDialog() = DialogResult.OK Then - ssh.StrokeTauntVal = -1 + ssh.StrokeTauntVal = -1 - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() - End If + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() + End If - ssh.FileText = OpenScriptDialog.FileName - ssh.BeforeTease = False - ssh.ShowModule = True - ssh.SaidHello = True - ssh.ScriptTick = 1 - ScriptTimer.Start() + ssh.FileText = OpenScriptDialog.FileName + ssh.BeforeTease = False + ssh.ShowModule = True + ssh.SaidHello = True + ssh.ScriptTick = 1 + ScriptTimer.Start() - ApplyThemeColor() + ApplyThemeColor() - End If + End If - End Sub + End Sub - Private Sub DebugSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugSessionWindowToolStripMenuItem.Click - dbgSessionForm.Show() - End Sub + Private Sub DebugSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugSessionWindowToolStripMenuItem.Click + dbgSessionForm.Show() + End Sub - Private Sub DebugMenuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DebugMenuToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(13) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub DebugMenuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DebugMenuToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(13) + FrmSettings.Show() + FrmSettings.Focus() + End Sub - Private Sub DebugToolStripMenuItem_DropDownOpening(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.DropDownOpening - StartTimer1ToolStripMenuItem.Enabled = Not Timer1.Enabled - End Sub + Private Sub DebugToolStripMenuItem_DropDownOpening(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.DropDownOpening + StartTimer1ToolStripMenuItem.Enabled = Not Timer1.Enabled + End Sub - Private Sub RefreshRandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RefreshRandomizerToolStripMenuItem.Click - ssh.randomizer = New Random(System.DateTime.Now.Ticks Mod System.Int32.MaxValue) - End Sub + Private Sub RefreshRandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RefreshRandomizerToolStripMenuItem.Click + ssh.randomizer = New Random(System.DateTime.Now.Ticks Mod System.Int32.MaxValue) + End Sub - Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click - FrmSettings.SettingsTabs.SelectTab(14) - FrmSettings.Show() - FrmSettings.Focus() - End Sub + Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click + FrmSettings.SettingsTabs.SelectTab(14) + FrmSettings.Show() + FrmSettings.Focus() + End Sub #End Region ' Menu - Private Sub Form1_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize - If Me.IsHandleCreated = False Then Exit Sub - If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - Exit Sub - ElseIf Me.WindowState = FormWindowState.Maximized Then - My.Settings.WindowHeight = 0 - My.Settings.WindowWidth = 0 - Else - My.Settings.WindowHeight = Me.Height - My.Settings.WindowWidth = Me.Width - End If + Private Sub Form1_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize + If Me.IsHandleCreated = False Then Exit Sub + If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + Exit Sub + ElseIf Me.WindowState = FormWindowState.Maximized Then + My.Settings.WindowHeight = 0 + My.Settings.WindowWidth = 0 + Else + My.Settings.WindowHeight = Me.Height + My.Settings.WindowWidth = Me.Width + End If - End Sub + End Sub - Private Sub TeaseAIClock_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseAIClock.Tick - ' Reset the WatchdogTimer Clock. - WatchDogImageAnimator.Reset(TeaseAIClock.Interval * 3) + Private Sub TeaseAIClock_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseAIClock.Tick + ' Reset the WatchdogTimer Clock. + WatchDogImageAnimator.Reset(TeaseAIClock.Interval * 3) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - LBLTime.Text = Format(Now, "h:mm") - LBLAMPM.Text = Format(Now, "tt") - LBLDate.Text = Format(Now, "Long Date") - Return - End If + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then + LBLTime.Text = Format(Now, "h:mm") + LBLAMPM.Text = Format(Now, "tt") + LBLDate.Text = Format(Now, "Long Date") + Return + End If - If ssh.WritingTaskFlag = False Or (ssh.WritingTaskFlag = True And My.Settings.TimedWriting = False) Then - LBLTime.Text = Format(Now, "h:mm") - LBLAMPM.Text = Format(Now, "tt") - LBLDate.Text = Format(Now, "Long Date") + If ssh.WritingTaskFlag = False Or (ssh.WritingTaskFlag = True And My.Settings.TimedWriting = False) Then + LBLTime.Text = Format(Now, "h:mm") + LBLAMPM.Text = Format(Now, "tt") + LBLDate.Text = Format(Now, "Long Date") + Else + If ssh.WritingTaskCurrentTime > 0 Then + If My.Settings.TimedWriting = True Then + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(ssh.WritingTaskCurrentTime) + LBLTime.Text = Convert.ToInt16(ssh.WritingTaskCurrentTime) + Else + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" + End If Else - If ssh.WritingTaskCurrentTime > 0 Then - If My.Settings.TimedWriting = True Then - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(ssh.WritingTaskCurrentTime) - LBLTime.Text = Convert.ToInt16(ssh.WritingTaskCurrentTime) - Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - End If + If My.Settings.TimedWriting = True Then + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" + LBLTime.Text = "Time's Up" + 'immediately ends the writing task if time is up without waiting for next user input + ClearWriteTask() + ssh.SkipGotoLine = True + ssh.FileGoto = "Failed Writing Task" + GetGoto() + ssh.ScriptTick = 4 + ScriptTimer.Start() Else - If My.Settings.TimedWriting = True Then - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" - LBLTime.Text = "Time's Up" - 'immediately ends the writing task if time is up without waiting for next user input - ClearWriteTask() - ssh.SkipGotoLine = True - ssh.FileGoto = "Failed Writing Task" - GetGoto() - ssh.ScriptTick = 4 - ScriptTimer.Start() - Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - End If - + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" End If - ssh.WritingTaskCurrentTime -= 1 - LBLAMPM.Text = "" End If + ssh.WritingTaskCurrentTime -= 1 + LBLAMPM.Text = "" + End If - 'If WritingTaskFlag = False Then - 'LBLTime.Text = Format(Now, "h:mm") - 'LBLAMPM.Text = Format(Now, "tt") - 'LBLDate.Text = Format(Now, "Long Date") - 'Else - 'If WritingTaskCurrentTime > 0 Then - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(WritingTaskCurrentTime) - 'LBLTime.Text = Convert.ToInt16(WritingTaskCurrentTime) - 'Else - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" - 'LBLTime.Text = "Time's Up" - 'End If - 'WritingTaskCurrentTime -= 1 - 'LBLAMPM.Text = "" - 'End If + + 'If WritingTaskFlag = False Then + 'LBLTime.Text = Format(Now, "h:mm") + 'LBLAMPM.Text = Format(Now, "tt") + 'LBLDate.Text = Format(Now, "Long Date") + 'Else + 'If WritingTaskCurrentTime > 0 Then + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "You have " & ConvertSeconds(WritingTaskCurrentTime) + 'LBLTime.Text = Convert.ToInt16(WritingTaskCurrentTime) + 'Else + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" + 'LBLTime.Text = "Time's Up" + 'End If + 'WritingTaskCurrentTime -= 1 + 'LBLAMPM.Text = "" + 'End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp") Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp") Then - Dim Dates As String - 'Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetTime("SYS_WakeUp") - Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & FormatDateTime(FrmSettings.TimeBoxWakeUp.Value, DateFormat.LongTime) + Dim Dates As String + 'Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetTime("SYS_WakeUp") + Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & FormatDateTime(FrmSettings.TimeBoxWakeUp.Value, DateFormat.LongTime) - Dim DDiff As Integer - DDiff = DateDiff(DateInterval.Hour, CDate(Dates), Now) + Dim DDiff As Integer + DDiff = DateDiff(DateInterval.Hour, CDate(Dates), Now) - Dim TimeCounter As Integer = -3 + Dim TimeCounter As Integer = -3 - ssh.GeneralTime = "Night" - If DDiff < -20 Then ssh.GeneralTime = "Morning" - If DDiff > -2 And DDiff < 5 Then ssh.GeneralTime = "Morning" - If DDiff > 4 And DDiff < 12 Then ssh.GeneralTime = "Afternoon" - If DDiff > -21 And DDiff < -11 Then ssh.GeneralTime = "Afternoon" + ssh.GeneralTime = "Night" + If DDiff < -20 Then ssh.GeneralTime = "Morning" + If DDiff > -2 And DDiff < 5 Then ssh.GeneralTime = "Morning" + If DDiff > 4 And DDiff < 12 Then ssh.GeneralTime = "Afternoon" + If DDiff > -21 And DDiff < -11 Then ssh.GeneralTime = "Afternoon" - End If + End If - ' #DEBUG + ' #DEBUG - End Sub + End Sub - Public Sub StrokeSpeedCheck() + Public Sub StrokeSpeedCheck() - If ssh.StrokeFaster = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Faster") - Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) - Stroke123 = Stroke123 * 50 - StrokePace = StrokePace - Stroke123 - If StrokePace < NBMaxPace.Value Then StrokePace = NBMaxPace.Value + If ssh.StrokeFaster = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Faster") + Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) + Stroke123 = Stroke123 * 50 + StrokePace = StrokePace - Stroke123 + If StrokePace < NBMaxPace.Value Then StrokePace = NBMaxPace.Value - End If - ssh.StrokeFaster = False End If + ssh.StrokeFaster = False + End If - If ssh.StrokeSlower = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Slower") - Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) - Stroke123 = Stroke123 * 50 - StrokePace = StrokePace + Stroke123 - If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value + If ssh.StrokeSlower = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Slower") + Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) + Stroke123 = Stroke123 * 50 + StrokePace = StrokePace + Stroke123 + If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value - End If - ssh.StrokeSlower = False End If + ssh.StrokeSlower = False + End If - If ssh.StrokeFastest = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Fastest") - StrokePace = NBMaxPace.Value + If ssh.StrokeFastest = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Fastest") + StrokePace = NBMaxPace.Value - End If - ssh.StrokeFastest = False End If + ssh.StrokeFastest = False + End If - If ssh.StrokeSlowest = True Then - If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then - Debug.Print("Stroke Slowest") - StrokePace = NBMinPace.Value + If ssh.StrokeSlowest = True Then + If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then + Debug.Print("Stroke Slowest") + StrokePace = NBMinPace.Value - End If - ssh.StrokeSlowest = False End If + ssh.StrokeSlowest = False + End If - End Sub - - Public Sub ApplyThemeColor() - End Sub + End Sub + Public Sub ApplyThemeColor() + End Sub @@ -18435,34 +18449,35 @@ restartInstantly: - Public Sub CloseApp(ByVal appToOpen As Panel) - If appToOpen Is Nothing AndAlso My.Settings.SideChat Then - appToOpen = PnlSidechat - End If - For Each pnl As Control In PNLTabs.Controls - If appToOpen IsNot Nothing AndAlso pnl Is appToOpen Then - pnl.Visible = True - Else - pnl.Visible = False - End If - Next + Public Sub CloseApp(ByVal appToOpen As Panel) + If appToOpen Is Nothing AndAlso My.Settings.SideChat Then + appToOpen = PnlSidechat + End If - If appToOpen Is Nothing Then - PNLTabs.Visible = False - PnlTabsLayout.Visible = False + For Each pnl As Control In PNLTabs.Controls + If appToOpen IsNot Nothing AndAlso pnl Is appToOpen Then + pnl.Visible = True Else - PNLTabs.Visible = True - PnlTabsLayout.Visible = True + pnl.Visible = False End If + Next - If MaximizeImageToolStripMenuItem.Checked AndAlso SidepanelToolStripMenuItem.Checked AndAlso PnlSidechat.Visible = True Then - PnlChatBoxLayout.Visible = False - Else - PnlChatBoxLayout.Visible = True - End If + If appToOpen Is Nothing Then + PNLTabs.Visible = False + PnlTabsLayout.Visible = False + Else + PNLTabs.Visible = True + PnlTabsLayout.Visible = True + End If + + If MaximizeImageToolStripMenuItem.Checked AndAlso SidepanelToolStripMenuItem.Checked AndAlso PnlSidechat.Visible = True Then + PnlChatBoxLayout.Visible = False + Else + PnlChatBoxLayout.Visible = True + End If - End Sub + End Sub #Region "------------------------------------------------------- Apps ---------------------------------------------------------" @@ -18470,2203 +18485,2203 @@ restartInstantly: #Region "------------------------------------------------- Regular Buttons-----------------------------------------------------" - Private Sub Face_Click(sender As System.Object, e As System.EventArgs) Handles Face.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Face.BackColor = Color.White Then - AddDommeTag("Face", "Nothing") - Face.BackColor = Color.ForestGreen - Face.ForeColor = Color.White - Else - RemoveDommeTag("Face", "Nothing") - Face.BackColor = Color.White - Face.ForeColor = Color.Black - End If - End Sub - - Private Sub Boobs_Click(sender As System.Object, e As System.EventArgs) Handles Boobs.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Boobs.BackColor = Color.White Then - AddDommeTag("Boobs", "Nothing") - Boobs.BackColor = Color.ForestGreen - Boobs.ForeColor = Color.White - Else - RemoveDommeTag("Boobs", "Nothing") - Boobs.BackColor = Color.White - Boobs.ForeColor = Color.Black - End If - End Sub - - Private Sub Pussy_Click(sender As System.Object, e As System.EventArgs) Handles Pussy.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Pussy.BackColor = Color.White Then - AddDommeTag("Pussy", "Nothing") - Pussy.BackColor = Color.ForestGreen - Pussy.ForeColor = Color.White - Else - RemoveDommeTag("Pussy", "Nothing") - Pussy.BackColor = Color.White - Pussy.ForeColor = Color.Black - End If - End Sub - - Private Sub Ass_Click(sender As System.Object, e As System.EventArgs) Handles Ass.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Ass.BackColor = Color.White Then - AddDommeTag("Ass", "Nothing") - Ass.BackColor = Color.ForestGreen - Ass.ForeColor = Color.White - Else - RemoveDommeTag("Ass", "Nothing") - Ass.BackColor = Color.White - Ass.ForeColor = Color.Black - End If - End Sub - - Private Sub Legs_Click(sender As System.Object, e As System.EventArgs) Handles Legs.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Legs.BackColor = Color.White Then - AddDommeTag("Legs", "Nothing") - Legs.BackColor = Color.ForestGreen - Legs.ForeColor = Color.White - Else - RemoveDommeTag("Legs", "Nothing") - Legs.BackColor = Color.White - Legs.ForeColor = Color.Black - End If - End Sub - - Private Sub Feet_Click(sender As System.Object, e As System.EventArgs) Handles Feet.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Feet.BackColor = Color.White Then - AddDommeTag("Feet", "Nothing") - Feet.BackColor = Color.ForestGreen - Feet.ForeColor = Color.White - Else - RemoveDommeTag("Feet", "Nothing") - Feet.BackColor = Color.White - Feet.ForeColor = Color.Black - End If - End Sub - - Private Sub FullyDressed_Click(sender As System.Object, e As System.EventArgs) Handles FullyDressed.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If FullyDressed.BackColor = Color.White Then - AddDommeTag("FullyDressed", "Nothing") - FullyDressed.BackColor = Color.ForestGreen - FullyDressed.ForeColor = Color.White - Else - RemoveDommeTag("FullyDressed", "Nothing") - FullyDressed.BackColor = Color.White - FullyDressed.ForeColor = Color.Black - End If - End Sub - - Private Sub HalfDressed_Click(sender As System.Object, e As System.EventArgs) Handles HalfDressed.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If HalfDressed.BackColor = Color.White Then - AddDommeTag("HalfDressed", "Nothing") - HalfDressed.BackColor = Color.ForestGreen - HalfDressed.ForeColor = Color.White - Else - RemoveDommeTag("HalfDressed", "Nothing") - HalfDressed.BackColor = Color.White - HalfDressed.ForeColor = Color.Black - End If - End Sub - - Private Sub GarmentCovering_Click(sender As System.Object, e As System.EventArgs) Handles GarmentCovering.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If GarmentCovering.BackColor = Color.White Then - AddDommeTag("GarmentCovering", "Nothing") - GarmentCovering.BackColor = Color.ForestGreen - GarmentCovering.ForeColor = Color.White - Else - RemoveDommeTag("GarmentCovering", "Nothing") - GarmentCovering.BackColor = Color.White - GarmentCovering.ForeColor = Color.Black - End If - End Sub - - Private Sub HandsCovering_Click(sender As System.Object, e As System.EventArgs) Handles HandsCovering.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If HandsCovering.BackColor = Color.White Then - AddDommeTag("HandsCovering", "Nothing") - HandsCovering.BackColor = Color.ForestGreen - HandsCovering.ForeColor = Color.White - Else - RemoveDommeTag("HandsCovering", "Nothing") - HandsCovering.BackColor = Color.White - HandsCovering.ForeColor = Color.Black - End If - End Sub - - Private Sub Naked_Click(sender As System.Object, e As System.EventArgs) Handles Naked.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Naked.BackColor = Color.White Then - AddDommeTag("Naked", "Nothing") - Naked.BackColor = Color.ForestGreen - Naked.ForeColor = Color.White - Else - RemoveDommeTag("Naked", "Nothing") - Naked.BackColor = Color.White - Naked.ForeColor = Color.Black - End If - End Sub - - Private Sub Masturbating_Click(sender As System.Object, e As System.EventArgs) Handles Masturbating.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Masturbating.BackColor = Color.White Then - AddDommeTag("Masturbating", "Nothing") - Masturbating.BackColor = Color.ForestGreen - Masturbating.ForeColor = Color.White - Else - RemoveDommeTag("Masturbating", "Nothing") - Masturbating.BackColor = Color.White - Masturbating.ForeColor = Color.Black - End If - End Sub - - Private Sub Sucking_Click(sender As System.Object, e As System.EventArgs) Handles Sucking.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Sucking.BackColor = Color.White Then - AddDommeTag("Sucking", "Nothing") - Sucking.BackColor = Color.ForestGreen - Sucking.ForeColor = Color.White - Else - RemoveDommeTag("Sucking", "Nothing") - Sucking.BackColor = Color.White - Sucking.ForeColor = Color.Black - End If - End Sub - - Private Sub Smiling_Click(sender As System.Object, e As System.EventArgs) Handles Smiling.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Smiling.BackColor = Color.White Then - AddDommeTag("Smiling", "Nothing") - Smiling.BackColor = Color.ForestGreen - Smiling.ForeColor = Color.White - Else - RemoveDommeTag("Smiling", "Nothing") - Smiling.BackColor = Color.White - Smiling.ForeColor = Color.Black - End If - End Sub - - Private Sub Glaring_Click(sender As System.Object, e As System.EventArgs) Handles Glaring.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Glaring.BackColor = Color.White Then - AddDommeTag("Glaring", "Nothing") - Glaring.BackColor = Color.ForestGreen - Glaring.ForeColor = Color.White - Else - RemoveDommeTag("Glaring", "Nothing") - Glaring.BackColor = Color.White - Glaring.ForeColor = Color.Black - End If - End Sub - - Private Sub SideView_Click(sender As System.Object, e As System.EventArgs) Handles SideView.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If SideView.BackColor = Color.White Then - AddDommeTag("SideView", "Nothing") - SideView.BackColor = Color.ForestGreen - SideView.ForeColor = Color.White - Else - RemoveDommeTag("SideView", "Nothing") - SideView.BackColor = Color.White - SideView.ForeColor = Color.Black - End If - End Sub - - Private Sub CloseUp_Click(sender As System.Object, e As System.EventArgs) Handles CloseUp.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If CloseUp.BackColor = Color.White Then - AddDommeTag("CloseUp", "Nothing") - CloseUp.BackColor = Color.ForestGreen - CloseUp.ForeColor = Color.White - Else - RemoveDommeTag("CloseUp", "Nothing") - CloseUp.BackColor = Color.White - CloseUp.ForeColor = Color.Black - End If - End Sub - - Private Sub SeeThrough_Click(sender As System.Object, e As System.EventArgs) Handles SeeThrough.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If SeeThrough.BackColor = Color.White Then - AddDommeTag("SeeThrough", "Nothing") - SeeThrough.BackColor = Color.ForestGreen - SeeThrough.ForeColor = Color.White - Else - RemoveDommeTag("SeeThrough", "Nothing") - SeeThrough.BackColor = Color.White - SeeThrough.ForeColor = Color.Black - End If - End Sub - - Private Sub AllFours_Click(sender As System.Object, e As System.EventArgs) Handles AllFours.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If AllFours.BackColor = Color.White Then - AddDommeTag("AllFours", "Nothing") - AllFours.BackColor = Color.ForestGreen - AllFours.ForeColor = Color.White - Else - RemoveDommeTag("AllFours", "Nothing") - AllFours.BackColor = Color.White - AllFours.ForeColor = Color.Black - End If - End Sub + Private Sub Face_Click(sender As System.Object, e As System.EventArgs) Handles Face.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Face.BackColor = Color.White Then + AddDommeTag("Face", "Nothing") + Face.BackColor = Color.ForestGreen + Face.ForeColor = Color.White + Else + RemoveDommeTag("Face", "Nothing") + Face.BackColor = Color.White + Face.ForeColor = Color.Black + End If + End Sub + Private Sub Boobs_Click(sender As System.Object, e As System.EventArgs) Handles Boobs.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Boobs.BackColor = Color.White Then + AddDommeTag("Boobs", "Nothing") + Boobs.BackColor = Color.ForestGreen + Boobs.ForeColor = Color.White + Else + RemoveDommeTag("Boobs", "Nothing") + Boobs.BackColor = Color.White + Boobs.ForeColor = Color.Black + End If + End Sub - Private Sub Piercing_Click(sender As System.Object, e As System.EventArgs) Handles Piercing.Click - Debug.Print(mainPictureBox.ImageLocation) - If ssh.SlideshowLoaded = False Then Return - If Piercing.BackColor = Color.White Then - AddDommeTag("Piercing", "Nothing") - Piercing.BackColor = Color.ForestGreen - Piercing.ForeColor = Color.White - Else - RemoveDommeTag("Piercing", "Nothing") - Piercing.BackColor = Color.White - Piercing.ForeColor = Color.Black - End If - End Sub - - Private Sub TBGarment_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBGarment.TextChanged - If ssh.SlideshowLoaded = False Or TBGarment.Focused = False Then Return - If TBGarment.Text = "" Then - Garment.BackColor = Color.White - Garment.ForeColor = Color.Black - RemoveDommeTag("Garment", "Nothing") - Else - Garment.BackColor = Color.ForestGreen - Garment.ForeColor = Color.White - AddDommeTag("Garment", TBGarment.Text) - End If - End Sub - - Private Sub TBUnderwear_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBUnderwear.TextChanged - If ssh.SlideshowLoaded = False Or TBUnderwear.Focused = False Then Return - If TBUnderwear.Text = "" Then - Underwear.BackColor = Color.White - Underwear.ForeColor = Color.Black - RemoveDommeTag("Underwear", "Nothing") - Else - Underwear.BackColor = Color.ForestGreen - Underwear.ForeColor = Color.White - AddDommeTag("Underwear", TBUnderwear.Text) - End If - End Sub - - Private Sub TBTattoo_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBTattoo.TextChanged - If ssh.SlideshowLoaded = False Or TBTattoo.Focused = False Then Return - If TBTattoo.Text = "" Then - Tattoo.BackColor = Color.White - Tattoo.ForeColor = Color.Black - RemoveDommeTag("Tattoo", "Nothing") - Else - Tattoo.BackColor = Color.ForestGreen - Tattoo.ForeColor = Color.White - AddDommeTag("Tattoo", TBTattoo.Text) - End If - End Sub - - Private Sub TBSexToy_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBSexToy.TextChanged - If ssh.SlideshowLoaded = False Or TBSexToy.Focused = False Then Return - If TBSexToy.Text = "" Then - SexToy.BackColor = Color.White - SexToy.ForeColor = Color.Black - RemoveDommeTag("SexToy", "Nothing") - Else - SexToy.BackColor = Color.ForestGreen - SexToy.ForeColor = Color.White - AddDommeTag("SexToy", TBSexToy.Text) - End If - End Sub + Private Sub Pussy_Click(sender As System.Object, e As System.EventArgs) Handles Pussy.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Pussy.BackColor = Color.White Then + AddDommeTag("Pussy", "Nothing") + Pussy.BackColor = Color.ForestGreen + Pussy.ForeColor = Color.White + Else + RemoveDommeTag("Pussy", "Nothing") + Pussy.BackColor = Color.White + Pussy.ForeColor = Color.Black + End If + End Sub + Private Sub Ass_Click(sender As System.Object, e As System.EventArgs) Handles Ass.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Ass.BackColor = Color.White Then + AddDommeTag("Ass", "Nothing") + Ass.BackColor = Color.ForestGreen + Ass.ForeColor = Color.White + Else + RemoveDommeTag("Ass", "Nothing") + Ass.BackColor = Color.White + Ass.ForeColor = Color.Black + End If + End Sub - Private Sub TBFurniture_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBFurniture.TextChanged - If ssh.SlideshowLoaded = False Or TBFurniture.Focused = False Then Return - If TBFurniture.Text = "" Then - Furniture.BackColor = Color.White - Furniture.ForeColor = Color.Black - RemoveDommeTag("Furniture", "Nothing") - Else - Furniture.BackColor = Color.ForestGreen - Furniture.ForeColor = Color.White - AddDommeTag("Furniture", TBFurniture.Text) - End If - End Sub + Private Sub Legs_Click(sender As System.Object, e As System.EventArgs) Handles Legs.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Legs.BackColor = Color.White Then + AddDommeTag("Legs", "Nothing") + Legs.BackColor = Color.ForestGreen + Legs.ForeColor = Color.White + Else + RemoveDommeTag("Legs", "Nothing") + Legs.BackColor = Color.White + Legs.ForeColor = Color.Black + End If + End Sub -#End Region ' Regular Buttons + Private Sub Feet_Click(sender As System.Object, e As System.EventArgs) Handles Feet.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Feet.BackColor = Color.White Then + AddDommeTag("Feet", "Nothing") + Feet.BackColor = Color.ForestGreen + Feet.ForeColor = Color.White + Else + RemoveDommeTag("Feet", "Nothing") + Feet.BackColor = Color.White + Feet.ForeColor = Color.Black + End If + End Sub + Private Sub FullyDressed_Click(sender As System.Object, e As System.EventArgs) Handles FullyDressed.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If FullyDressed.BackColor = Color.White Then + AddDommeTag("FullyDressed", "Nothing") + FullyDressed.BackColor = Color.ForestGreen + FullyDressed.ForeColor = Color.White + Else + RemoveDommeTag("FullyDressed", "Nothing") + FullyDressed.BackColor = Color.White + FullyDressed.ForeColor = Color.Black + End If + End Sub - Public Function AddDommeTag(ByVal AddDomTag As String, ByVal AddCustomDomTag As String) - Dim DomTag As String = "Tag" & AddDomTag - Dim Custom As String - If AddCustomDomTag = "Nothing" Then - Custom = "" - Else - Custom = AddCustomDomTag - End If + Private Sub HalfDressed_Click(sender As System.Object, e As System.EventArgs) Handles HalfDressed.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If HalfDressed.BackColor = Color.White Then + AddDommeTag("HalfDressed", "Nothing") + HalfDressed.BackColor = Color.ForestGreen + HalfDressed.ForeColor = Color.White + Else + RemoveDommeTag("HalfDressed", "Nothing") + HalfDressed.BackColor = Color.White + HalfDressed.ForeColor = Color.Black + End If + End Sub + + Private Sub GarmentCovering_Click(sender As System.Object, e As System.EventArgs) Handles GarmentCovering.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If GarmentCovering.BackColor = Color.White Then + AddDommeTag("GarmentCovering", "Nothing") + GarmentCovering.BackColor = Color.ForestGreen + GarmentCovering.ForeColor = Color.White + Else + RemoveDommeTag("GarmentCovering", "Nothing") + GarmentCovering.BackColor = Color.White + GarmentCovering.ForeColor = Color.Black + End If + End Sub - Debug.Print("DomTag = " & DomTag) - Debug.Print("Custom = " & Custom) + Private Sub HandsCovering_Click(sender As System.Object, e As System.EventArgs) Handles HandsCovering.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If HandsCovering.BackColor = Color.White Then + AddDommeTag("HandsCovering", "Nothing") + HandsCovering.BackColor = Color.ForestGreen + HandsCovering.ForeColor = Color.White + Else + RemoveDommeTag("HandsCovering", "Nothing") + HandsCovering.BackColor = Color.White + HandsCovering.ForeColor = Color.Black + End If + End Sub + Private Sub Naked_Click(sender As System.Object, e As System.EventArgs) Handles Naked.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Naked.BackColor = Color.White Then + AddDommeTag("Naked", "Nothing") + Naked.BackColor = Color.ForestGreen + Naked.ForeColor = Color.White + Else + RemoveDommeTag("Naked", "Nothing") + Naked.BackColor = Color.White + Naked.ForeColor = Color.Black + End If + End Sub - 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" - Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" + Private Sub Masturbating_Click(sender As System.Object, e As System.EventArgs) Handles Masturbating.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Masturbating.BackColor = Color.White Then + AddDommeTag("Masturbating", "Nothing") + Masturbating.BackColor = Color.ForestGreen + Masturbating.ForeColor = Color.White + Else + RemoveDommeTag("Masturbating", "Nothing") + Masturbating.BackColor = Color.White + Masturbating.ForeColor = Color.Black + End If + End Sub - If File.Exists(TagFile) Then + Private Sub Sucking_Click(sender As System.Object, e As System.EventArgs) Handles Sucking.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Sucking.BackColor = Color.White Then + AddDommeTag("Sucking", "Nothing") + Sucking.BackColor = Color.ForestGreen + Sucking.ForeColor = Color.White + Else + RemoveDommeTag("Sucking", "Nothing") + Sucking.BackColor = Color.White + Sucking.ForeColor = Color.Black + End If + End Sub - Dim TagList As New List(Of String) - TagList = Txt2List(TagFile) + Private Sub Smiling_Click(sender As System.Object, e As System.EventArgs) Handles Smiling.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Smiling.BackColor = Color.White Then + AddDommeTag("Smiling", "Nothing") + Smiling.BackColor = Color.ForestGreen + Smiling.ForeColor = Color.White + Else + RemoveDommeTag("Smiling", "Nothing") + Smiling.BackColor = Color.White + Smiling.ForeColor = Color.Black + End If + End Sub - Dim FoundFile As Boolean = False + Private Sub Glaring_Click(sender As System.Object, e As System.EventArgs) Handles Glaring.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Glaring.BackColor = Color.White Then + AddDommeTag("Glaring", "Nothing") + Glaring.BackColor = Color.ForestGreen + Glaring.ForeColor = Color.White + Else + RemoveDommeTag("Glaring", "Nothing") + Glaring.BackColor = Color.White + Glaring.ForeColor = Color.Black + End If + End Sub - For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then - FoundFile = True - If Not TagList(i).Contains(DomTag) Then - TagList(i) = TagList(i) & " " & DomTag & Custom + Private Sub SideView_Click(sender As System.Object, e As System.EventArgs) Handles SideView.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If SideView.BackColor = Color.White Then + AddDommeTag("SideView", "Nothing") + SideView.BackColor = Color.ForestGreen + SideView.ForeColor = Color.White + Else + RemoveDommeTag("SideView", "Nothing") + SideView.BackColor = Color.White + SideView.ForeColor = Color.Black + End If + End Sub - Else + Private Sub CloseUp_Click(sender As System.Object, e As System.EventArgs) Handles CloseUp.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If CloseUp.BackColor = Color.White Then + AddDommeTag("CloseUp", "Nothing") + CloseUp.BackColor = Color.ForestGreen + CloseUp.ForeColor = Color.White + Else + RemoveDommeTag("CloseUp", "Nothing") + CloseUp.BackColor = Color.White + CloseUp.ForeColor = Color.Black + End If + End Sub - If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then + Private Sub SeeThrough_Click(sender As System.Object, e As System.EventArgs) Handles SeeThrough.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If SeeThrough.BackColor = Color.White Then + AddDommeTag("SeeThrough", "Nothing") + SeeThrough.BackColor = Color.ForestGreen + SeeThrough.ForeColor = Color.White + Else + RemoveDommeTag("SeeThrough", "Nothing") + SeeThrough.BackColor = Color.White + SeeThrough.ForeColor = Color.Black + End If + End Sub - Dim CustomArray As String() = TagList(i).Split + Private Sub AllFours_Click(sender As System.Object, e As System.EventArgs) Handles AllFours.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If AllFours.BackColor = Color.White Then + AddDommeTag("AllFours", "Nothing") + AllFours.BackColor = Color.ForestGreen + AllFours.ForeColor = Color.White + Else + RemoveDommeTag("AllFours", "Nothing") + AllFours.BackColor = Color.White + AllFours.ForeColor = Color.Black + End If + End Sub - For x As Integer = 0 To CustomArray.Count - 1 - Debug.Print("CustomArray(x) = " & CustomArray(x)) - If CustomArray(x).Contains(DomTag) Then - If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - End If - Next - TagList(i) = TagList(i) & " " & DomTag & Custom - TagList(i) = TagList(i).Replace(" ", " ") + Private Sub Piercing_Click(sender As System.Object, e As System.EventArgs) Handles Piercing.Click + Debug.Print(mainPictureBox.ImageLocation) + If ssh.SlideshowLoaded = False Then Return + If Piercing.BackColor = Color.White Then + AddDommeTag("Piercing", "Nothing") + Piercing.BackColor = Color.ForestGreen + Piercing.ForeColor = Color.White + Else + RemoveDommeTag("Piercing", "Nothing") + Piercing.BackColor = Color.White + Piercing.ForeColor = Color.Black + End If + End Sub - End If + Private Sub TBGarment_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBGarment.TextChanged + If ssh.SlideshowLoaded = False Or TBGarment.Focused = False Then Return + If TBGarment.Text = "" Then + Garment.BackColor = Color.White + Garment.ForeColor = Color.Black + RemoveDommeTag("Garment", "Nothing") + Else + Garment.BackColor = Color.ForestGreen + Garment.ForeColor = Color.White + AddDommeTag("Garment", TBGarment.Text) + End If + End Sub + Private Sub TBUnderwear_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBUnderwear.TextChanged + If ssh.SlideshowLoaded = False Or TBUnderwear.Focused = False Then Return + If TBUnderwear.Text = "" Then + Underwear.BackColor = Color.White + Underwear.ForeColor = Color.Black + RemoveDommeTag("Underwear", "Nothing") + Else + Underwear.BackColor = Color.ForestGreen + Underwear.ForeColor = Color.White + AddDommeTag("Underwear", TBUnderwear.Text) + End If + End Sub + Private Sub TBTattoo_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBTattoo.TextChanged + If ssh.SlideshowLoaded = False Or TBTattoo.Focused = False Then Return + If TBTattoo.Text = "" Then + Tattoo.BackColor = Color.White + Tattoo.ForeColor = Color.Black + RemoveDommeTag("Tattoo", "Nothing") + Else + Tattoo.BackColor = Color.ForestGreen + Tattoo.ForeColor = Color.White + AddDommeTag("Tattoo", TBTattoo.Text) + End If + End Sub + Private Sub TBSexToy_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBSexToy.TextChanged + If ssh.SlideshowLoaded = False Or TBSexToy.Focused = False Then Return + If TBSexToy.Text = "" Then + SexToy.BackColor = Color.White + SexToy.ForeColor = Color.Black + RemoveDommeTag("SexToy", "Nothing") + Else + SexToy.BackColor = Color.ForestGreen + SexToy.ForeColor = Color.White + AddDommeTag("SexToy", TBSexToy.Text) + End If + End Sub - End If - End If - Next - If FoundFile = False Then TagList.Add(Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom) + Private Sub TBFurniture_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBFurniture.TextChanged + If ssh.SlideshowLoaded = False Or TBFurniture.Focused = False Then Return + If TBFurniture.Text = "" Then + Furniture.BackColor = Color.White + Furniture.ForeColor = Color.Black + RemoveDommeTag("Furniture", "Nothing") + Else + Furniture.BackColor = Color.ForestGreen + Furniture.ForeColor = Color.White + AddDommeTag("Furniture", TBFurniture.Text) + End If + End Sub - If TagList.Count > 0 Then - Dim SettingsString As String = "" - For i As Integer = 0 To TagList.Count - 1 - SettingsString = SettingsString & TagList(i) - If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine - Next - My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) - End If +#End Region ' Regular Buttons - ElseIf Path.GetDirectoryName(TagFile) = Path.GetDirectoryName(ssh.ImageLocation) Then - ' Only Create new file for the loaded Slidshow. This Prevents URL-Image-Tagging. - My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom, True) - End If + Public Function AddDommeTag(ByVal AddDomTag As String, ByVal AddCustomDomTag As String) + Dim DomTag As String = "Tag" & AddDomTag + Dim Custom As String + If AddCustomDomTag = "Nothing" Then + Custom = "" + Else + Custom = AddCustomDomTag + End If - End Function + Debug.Print("DomTag = " & DomTag) + Debug.Print("Custom = " & Custom) - Public Function RemoveDommeTag(ByVal RemoveDomTag As String, ByVal RemoveCustomDomTag As String) - Dim DomTag As String = "Tag" & RemoveDomTag - Dim Custom As String - If RemoveCustomDomTag = "Nothing" Then - Custom = "" - Else - Custom = RemoveCustomDomTag - End If - Dim SettingsString As String - 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" - Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" - Debug.Print("TagFile = " & TagFile) + 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" + Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" - Debug.Print("DomTag & Custom = " & DomTag & Custom) + If File.Exists(TagFile) Then - If File.Exists(TagFile) Then + Dim TagList As New List(Of String) + TagList = Txt2List(TagFile) - Dim TagList As New List(Of String) - TagList = Txt2List(TagFile) + Dim FoundFile As Boolean = False - For i As Integer = TagList.Count - 1 To 0 Step -1 - If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then - If TagList(i).Contains(DomTag & Custom) Then + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then + FoundFile = True + If Not TagList(i).Contains(DomTag) Then + TagList(i) = TagList(i) & " " & DomTag & Custom - If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then + Else - Dim CustomArray As String() = TagList(i).Split + If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then - For x As Integer = 0 To CustomArray.Count - 1 - If CustomArray(x).Contains(DomTag) Then - If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") - End If - Next - Else + Dim CustomArray As String() = TagList(i).Split - TagList(i) = TagList(i).Replace(" " & DomTag & Custom, "") - End If + For x As Integer = 0 To CustomArray.Count - 1 + Debug.Print("CustomArray(x) = " & CustomArray(x)) + If CustomArray(x).Contains(DomTag) Then + If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + End If + Next + TagList(i) = TagList(i) & " " & DomTag & Custom + TagList(i) = TagList(i).Replace(" ", " ") - If Not TagList(i).Contains(" Tag") Then TagList.Remove(TagList(i)) End If - End If - Next - If TagList.Count > 0 Then - SettingsString = "" - For i As Integer = 0 To TagList.Count - 1 - SettingsString = SettingsString & TagList(i) - If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine - Next - My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) - Else - If File.Exists(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") Then My.Computer.FileSystem.DeleteFile(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") + + + + End If End If + Next + If FoundFile = False Then TagList.Add(Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom) + + If TagList.Count > 0 Then + Dim SettingsString As String = "" + For i As Integer = 0 To TagList.Count - 1 + SettingsString = SettingsString & TagList(i) + If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine + Next + My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) End If + ElseIf Path.GetDirectoryName(TagFile) = Path.GetDirectoryName(ssh.ImageLocation) Then + ' Only Create new file for the loaded Slidshow. This Prevents URL-Image-Tagging. + My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", Path.GetFileName(ssh.ImageLocation) & " " & DomTag & Custom, True) + + End If + End Function + Public Function RemoveDommeTag(ByVal RemoveDomTag As String, ByVal RemoveCustomDomTag As String) + Dim DomTag As String = "Tag" & RemoveDomTag + Dim Custom As String + If RemoveCustomDomTag = "Nothing" Then + Custom = "" + Else + Custom = RemoveCustomDomTag + End If - End Function + Dim SettingsString As String + 'Dim TagFile As String = Path.GetDirectoryName(_ImageFileNames(FileCount)) & "\ImageTags.txt" + Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" + Debug.Print("TagFile = " & TagFile) - Private Sub BtnDommeTagNextImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnNextImage.Click - nextButton.PerformClick() - End Sub + Debug.Print("DomTag & Custom = " & DomTag & Custom) - Private Sub BtnDommeTagLastImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnLastImage.Click - previousButton.PerformClick() - End Sub + If File.Exists(TagFile) Then - ''' - ''' In Order to Work, this function has to be called AFTER an Image has been loaded into the - ''' PictureBox. Everthing else doesn't work properly. - ''' Right now there are only two working non-UI-Freezing posibilities: The Imagebox - ''' LoadCompleted-Event and PBImageThread. In PBImageThread an Invoke is required! - ''' This Function uses the ImageLocation Variable to get the - ''' current ImageFilePath. - ''' - ''' - ''' To Raise the PictureBoxCompleted-Event, you have to load an Image via LoadAsync(URL). - ''' - Public Sub CheckDommeTags() + Dim TagList As New List(Of String) + TagList = Txt2List(TagFile) - Face.BackColor = Color.White - Face.ForeColor = Color.Black + For i As Integer = TagList.Count - 1 To 0 Step -1 + If TagList(i).Contains(Path.GetFileName(ssh.ImageLocation)) Then + If TagList(i).Contains(DomTag & Custom) Then + + If DomTag = "TagGarment" Or DomTag = "TagUnderwear" Or DomTag = "TagTattoo" Or DomTag = "TagSexToy" Or DomTag = "TagFurniture" Then + + Dim CustomArray As String() = TagList(i).Split + + For x As Integer = 0 To CustomArray.Count - 1 + If CustomArray(x).Contains(DomTag) Then + If DomTag = "TagGarment" And CustomArray(x).Contains("TagGarment") And Not CustomArray(x).Contains("TagGarmentCovering") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagUnderwear" And CustomArray(x).Contains("TagUnderwear") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagTattoo" And CustomArray(x).Contains("TagTattoo") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagSexToy" And CustomArray(x).Contains("TagSexToy") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + If DomTag = "TagFurniture" And CustomArray(x).Contains("TagFurniture") Then TagList(i) = TagList(i).Replace(CustomArray(x), "") + End If + Next + Else + + TagList(i) = TagList(i).Replace(" " & DomTag & Custom, "") + End If + + + If Not TagList(i).Contains(" Tag") Then TagList.Remove(TagList(i)) + End If + End If + Next + + If TagList.Count > 0 Then + SettingsString = "" + For i As Integer = 0 To TagList.Count - 1 + SettingsString = SettingsString & TagList(i) + If i <> TagList.Count - 1 Then SettingsString = SettingsString & Environment.NewLine + Next + My.Computer.FileSystem.WriteAllText(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt", SettingsString, False) + Else + If File.Exists(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") Then My.Computer.FileSystem.DeleteFile(Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt") + End If - Boobs.BackColor = Color.White - Boobs.ForeColor = Color.Black + End If - Pussy.BackColor = Color.White - Pussy.ForeColor = Color.Black - Ass.BackColor = Color.White - Ass.ForeColor = Color.Black - Legs.BackColor = Color.White - Legs.ForeColor = Color.Black - Feet.BackColor = Color.White - Feet.ForeColor = Color.Black + End Function - FullyDressed.BackColor = Color.White - FullyDressed.ForeColor = Color.Black + Private Sub BtnDommeTagNextImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnNextImage.Click + nextButton.PerformClick() + End Sub - HalfDressed.BackColor = Color.White - HalfDressed.ForeColor = Color.Black + Private Sub BtnDommeTagLastImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnLastImage.Click + previousButton.PerformClick() + End Sub - GarmentCovering.BackColor = Color.White - GarmentCovering.ForeColor = Color.Black + ''' + ''' In Order to Work, this function has to be called AFTER an Image has been loaded into the + ''' PictureBox. Everthing else doesn't work properly. + ''' Right now there are only two working non-UI-Freezing posibilities: The Imagebox + ''' LoadCompleted-Event and PBImageThread. In PBImageThread an Invoke is required! + ''' This Function uses the ImageLocation Variable to get the + ''' current ImageFilePath. + ''' + ''' + ''' To Raise the PictureBoxCompleted-Event, you have to load an Image via LoadAsync(URL). + ''' + Public Sub CheckDommeTags() - HandsCovering.BackColor = Color.White - HandsCovering.ForeColor = Color.Black + Face.BackColor = Color.White + Face.ForeColor = Color.Black - Naked.BackColor = Color.White - Naked.ForeColor = Color.Black + Boobs.BackColor = Color.White + Boobs.ForeColor = Color.Black - Masturbating.BackColor = Color.White - Masturbating.ForeColor = Color.Black + Pussy.BackColor = Color.White + Pussy.ForeColor = Color.Black - Sucking.BackColor = Color.White - Sucking.ForeColor = Color.Black + Ass.BackColor = Color.White + Ass.ForeColor = Color.Black - Smiling.BackColor = Color.White - Smiling.ForeColor = Color.Black + Legs.BackColor = Color.White + Legs.ForeColor = Color.Black - Glaring.BackColor = Color.White - Glaring.ForeColor = Color.Black + Feet.BackColor = Color.White + Feet.ForeColor = Color.Black - SideView.BackColor = Color.White - SideView.ForeColor = Color.Black + FullyDressed.BackColor = Color.White + FullyDressed.ForeColor = Color.Black - CloseUp.BackColor = Color.White - CloseUp.ForeColor = Color.Black + HalfDressed.BackColor = Color.White + HalfDressed.ForeColor = Color.Black - SeeThrough.BackColor = Color.White - SeeThrough.ForeColor = Color.Black + GarmentCovering.BackColor = Color.White + GarmentCovering.ForeColor = Color.Black - AllFours.BackColor = Color.White - AllFours.ForeColor = Color.Black + HandsCovering.BackColor = Color.White + HandsCovering.ForeColor = Color.Black - Piercing.BackColor = Color.White - Piercing.ForeColor = Color.Black + Naked.BackColor = Color.White + Naked.ForeColor = Color.Black - Garment.BackColor = Color.White - Garment.ForeColor = Color.Black + Masturbating.BackColor = Color.White + Masturbating.ForeColor = Color.Black - Underwear.BackColor = Color.White - Underwear.ForeColor = Color.Black + Sucking.BackColor = Color.White + Sucking.ForeColor = Color.Black - Tattoo.BackColor = Color.White - Tattoo.ForeColor = Color.Black + Smiling.BackColor = Color.White + Smiling.ForeColor = Color.Black - SexToy.BackColor = Color.White - SexToy.ForeColor = Color.Black + Glaring.BackColor = Color.White + Glaring.ForeColor = Color.Black - Furniture.BackColor = Color.White - Furniture.ForeColor = Color.Black + SideView.BackColor = Color.White + SideView.ForeColor = Color.Black - TBGarment.Text = "" - TBUnderwear.Text = "" - TBTattoo.Text = "" - TBSexToy.Text = "" - TBFurniture.Text = "" + CloseUp.BackColor = Color.White + CloseUp.ForeColor = Color.Black - If ssh.ImageLocation = "" Then Exit Sub + SeeThrough.BackColor = Color.White + SeeThrough.ForeColor = Color.Black - Dim tmpFileName As String = Path.GetFileName(ssh.ImageLocation) + AllFours.BackColor = Color.White + AllFours.ForeColor = Color.Black - Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" + Piercing.BackColor = Color.White + Piercing.ForeColor = Color.Black - If File.Exists(TagFile) Then + Garment.BackColor = Color.White + Garment.ForeColor = Color.Black - Dim TagList As New List(Of String) - TagList = Txt2List(TagFile) + Underwear.BackColor = Color.White + Underwear.ForeColor = Color.Black - For i As Integer = TagList.Count - 1 To 0 Step -1 + Tattoo.BackColor = Color.White + Tattoo.ForeColor = Color.Black - If TagList(i).Contains(tmpFileName) Then - If TagList(i).Contains("TagFace") Then - Face.BackColor = Color.ForestGreen - Face.ForeColor = Color.White - End If + SexToy.BackColor = Color.White + SexToy.ForeColor = Color.Black - If TagList(i).Contains("TagBoobs") Then - Boobs.BackColor = Color.ForestGreen - Boobs.ForeColor = Color.White - End If + Furniture.BackColor = Color.White + Furniture.ForeColor = Color.Black - If TagList(i).Contains("TagPussy") Then - Pussy.BackColor = Color.ForestGreen - Pussy.ForeColor = Color.White - End If + TBGarment.Text = "" + TBUnderwear.Text = "" + TBTattoo.Text = "" + TBSexToy.Text = "" + TBFurniture.Text = "" - If TagList(i).Contains("TagAss") Then - Ass.BackColor = Color.ForestGreen - Ass.ForeColor = Color.White - End If + If ssh.ImageLocation = "" Then Exit Sub - If TagList(i).Contains("TagLegs") Then - Legs.BackColor = Color.ForestGreen - Legs.ForeColor = Color.White - End If + Dim tmpFileName As String = Path.GetFileName(ssh.ImageLocation) - If TagList(i).Contains("TagFeet") Then - Feet.BackColor = Color.ForestGreen - Feet.ForeColor = Color.White - End If + Dim TagFile As String = Path.GetDirectoryName(ssh.ImageLocation) & "\ImageTags.txt" - If TagList(i).Contains("TagFullyDressed") Then - FullyDressed.BackColor = Color.ForestGreen - FullyDressed.ForeColor = Color.White - End If + If File.Exists(TagFile) Then - If TagList(i).Contains("TagHalfDressed") Then - HalfDressed.BackColor = Color.ForestGreen - HalfDressed.ForeColor = Color.White - End If + Dim TagList As New List(Of String) + TagList = Txt2List(TagFile) - If TagList(i).Contains("TagGarmentCovering") Then - GarmentCovering.BackColor = Color.ForestGreen - GarmentCovering.ForeColor = Color.White - End If + For i As Integer = TagList.Count - 1 To 0 Step -1 - If TagList(i).Contains("TagHandsCovering") Then - HandsCovering.BackColor = Color.ForestGreen - HandsCovering.ForeColor = Color.White - End If + If TagList(i).Contains(tmpFileName) Then + If TagList(i).Contains("TagFace") Then + Face.BackColor = Color.ForestGreen + Face.ForeColor = Color.White + End If - If TagList(i).Contains("TagNaked") Then - Naked.BackColor = Color.ForestGreen - Naked.ForeColor = Color.White - End If + If TagList(i).Contains("TagBoobs") Then + Boobs.BackColor = Color.ForestGreen + Boobs.ForeColor = Color.White + End If - If TagList(i).Contains("TagMasturbating") Then - Masturbating.BackColor = Color.ForestGreen - Masturbating.ForeColor = Color.White - End If + If TagList(i).Contains("TagPussy") Then + Pussy.BackColor = Color.ForestGreen + Pussy.ForeColor = Color.White + End If - If TagList(i).Contains("TagSucking") Then - Sucking.BackColor = Color.ForestGreen - Sucking.ForeColor = Color.White - End If + If TagList(i).Contains("TagAss") Then + Ass.BackColor = Color.ForestGreen + Ass.ForeColor = Color.White + End If - If TagList(i).Contains("TagSmiling") Then - Smiling.BackColor = Color.ForestGreen - Smiling.ForeColor = Color.White - End If + If TagList(i).Contains("TagLegs") Then + Legs.BackColor = Color.ForestGreen + Legs.ForeColor = Color.White + End If - If TagList(i).Contains("TagGlaring") Then - Glaring.BackColor = Color.ForestGreen - Glaring.ForeColor = Color.White - End If + If TagList(i).Contains("TagFeet") Then + Feet.BackColor = Color.ForestGreen + Feet.ForeColor = Color.White + End If - If TagList(i).Contains("TagSideView") Then - SideView.BackColor = Color.ForestGreen - SideView.ForeColor = Color.White - End If + If TagList(i).Contains("TagFullyDressed") Then + FullyDressed.BackColor = Color.ForestGreen + FullyDressed.ForeColor = Color.White + End If - If TagList(i).Contains("TagSeeThrough") Then - SeeThrough.BackColor = Color.ForestGreen - SeeThrough.ForeColor = Color.White - End If + If TagList(i).Contains("TagHalfDressed") Then + HalfDressed.BackColor = Color.ForestGreen + HalfDressed.ForeColor = Color.White + End If - If TagList(i).Contains("TagAllFours") Then - AllFours.BackColor = Color.ForestGreen - AllFours.ForeColor = Color.White - End If + If TagList(i).Contains("TagGarmentCovering") Then + GarmentCovering.BackColor = Color.ForestGreen + GarmentCovering.ForeColor = Color.White + End If - If TagList(i).Contains("TagCloseUp") Then - CloseUp.BackColor = Color.ForestGreen - CloseUp.ForeColor = Color.White - End If + If TagList(i).Contains("TagHandsCovering") Then + HandsCovering.BackColor = Color.ForestGreen + HandsCovering.ForeColor = Color.White + End If - If TagList(i).Contains("TagPiercing") Then - Piercing.BackColor = Color.ForestGreen - Piercing.ForeColor = Color.White - End If + If TagList(i).Contains("TagNaked") Then + Naked.BackColor = Color.ForestGreen + Naked.ForeColor = Color.White + End If - If TagList(i).Contains("TagGarment") Then - Dim GarmentArray As String() = TagList(i).Split - For x As Integer = 0 To GarmentArray.Count - 1 - Debug.Print("GarmentArray(x) = " & GarmentArray(x)) - If GarmentArray(x).Contains("TagGarment") And Not GarmentArray(x).Contains("TagGarmentCovering") Then - Garment.BackColor = Color.ForestGreen - Garment.ForeColor = Color.White - TBGarment.Text = GarmentArray(x).Replace("TagGarment", "") - End If - Next + If TagList(i).Contains("TagMasturbating") Then + Masturbating.BackColor = Color.ForestGreen + Masturbating.ForeColor = Color.White + End If - End If + If TagList(i).Contains("TagSucking") Then + Sucking.BackColor = Color.ForestGreen + Sucking.ForeColor = Color.White + End If - If TagList(i).Contains("TagUnderwear") Then + If TagList(i).Contains("TagSmiling") Then + Smiling.BackColor = Color.ForestGreen + Smiling.ForeColor = Color.White + End If - Dim UnderwearArray As String() = TagList(i).Split - For x As Integer = 0 To UnderwearArray.Count - 1 - If UnderwearArray(x).Contains("TagUnderwear") Then - Underwear.BackColor = Color.ForestGreen - Underwear.ForeColor = Color.White - TBUnderwear.Text = UnderwearArray(x).Replace("TagUnderwear", "") - End If - Next + If TagList(i).Contains("TagGlaring") Then + Glaring.BackColor = Color.ForestGreen + Glaring.ForeColor = Color.White + End If - End If + If TagList(i).Contains("TagSideView") Then + SideView.BackColor = Color.ForestGreen + SideView.ForeColor = Color.White + End If - If TagList(i).Contains("TagTattoo") Then - Dim TattooArray As String() = TagList(i).Split - For x As Integer = 0 To TattooArray.Count - 1 - If TattooArray(x).Contains("TagTattoo") Then - Tattoo.BackColor = Color.ForestGreen - Tattoo.ForeColor = Color.White - TBTattoo.Text = TattooArray(x).Replace("TagTattoo", "") - End If - Next + If TagList(i).Contains("TagSeeThrough") Then + SeeThrough.BackColor = Color.ForestGreen + SeeThrough.ForeColor = Color.White + End If - End If + If TagList(i).Contains("TagAllFours") Then + AllFours.BackColor = Color.ForestGreen + AllFours.ForeColor = Color.White + End If - If TagList(i).Contains("TagSexToy") Then - Dim SexToyArray As String() = TagList(i).Split - For x As Integer = 0 To SexToyArray.Count - 1 - If SexToyArray(x).Contains("TagSexToy") Then - SexToy.BackColor = Color.ForestGreen - SexToy.ForeColor = Color.White - TBSexToy.Text = SexToyArray(x).Replace("TagSexToy", "") - End If - Next + If TagList(i).Contains("TagCloseUp") Then + CloseUp.BackColor = Color.ForestGreen + CloseUp.ForeColor = Color.White + End If - End If + If TagList(i).Contains("TagPiercing") Then + Piercing.BackColor = Color.ForestGreen + Piercing.ForeColor = Color.White + End If - If TagList(i).Contains("TagFurniture") Then - Dim FurnitureArray As String() = TagList(i).Split - For x As Integer = 0 To FurnitureArray.Count - 1 - If FurnitureArray(x).Contains("TagFurniture") Then - Furniture.BackColor = Color.ForestGreen - Furniture.ForeColor = Color.White - TBFurniture.Text = FurnitureArray(x).Replace("TagFurniture", "") - End If - Next - End If + If TagList(i).Contains("TagGarment") Then + Dim GarmentArray As String() = TagList(i).Split + For x As Integer = 0 To GarmentArray.Count - 1 + Debug.Print("GarmentArray(x) = " & GarmentArray(x)) + If GarmentArray(x).Contains("TagGarment") And Not GarmentArray(x).Contains("TagGarmentCovering") Then + Garment.BackColor = Color.ForestGreen + Garment.ForeColor = Color.White + TBGarment.Text = GarmentArray(x).Replace("TagGarment", "") + End If + Next + End If + If TagList(i).Contains("TagUnderwear") Then + Dim UnderwearArray As String() = TagList(i).Split + For x As Integer = 0 To UnderwearArray.Count - 1 + If UnderwearArray(x).Contains("TagUnderwear") Then + Underwear.BackColor = Color.ForestGreen + Underwear.ForeColor = Color.White + TBUnderwear.Text = UnderwearArray(x).Replace("TagUnderwear", "") + End If + Next End If - Next + If TagList(i).Contains("TagTattoo") Then + Dim TattooArray As String() = TagList(i).Split + For x As Integer = 0 To TattooArray.Count - 1 + If TattooArray(x).Contains("TagTattoo") Then + Tattoo.BackColor = Color.ForestGreen + Tattoo.ForeColor = Color.White + TBTattoo.Text = TattooArray(x).Replace("TagTattoo", "") + End If + Next - End If - End Sub + End If + If TagList(i).Contains("TagSexToy") Then + Dim SexToyArray As String() = TagList(i).Split + For x As Integer = 0 To SexToyArray.Count - 1 + If SexToyArray(x).Contains("TagSexToy") Then + SexToy.BackColor = Color.ForestGreen + SexToy.ForeColor = Color.White + TBSexToy.Text = SexToyArray(x).Replace("TagSexToy", "") + End If + Next -#End Region ' DommeTag APP + End If -#Region "------------------------------------------------------ Lazy-Sub ------------------------------------------------------" + If TagList(i).Contains("TagFurniture") Then + Dim FurnitureArray As String() = TagList(i).Split + For x As Integer = 0 To FurnitureArray.Count - 1 + If FurnitureArray(x).Contains("TagFurniture") Then + Furniture.BackColor = Color.ForestGreen + Furniture.ForeColor = Color.White + TBFurniture.Text = FurnitureArray(x).Replace("TagFurniture", "") + End If + Next + End If - Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles BTNStop.Click, Button7.Click - chatBox.Text = "Let me stop" - sendButton.PerformClick() - End Sub - Private Sub BTNYes_Click(sender As System.Object, e As System.EventArgs) Handles BTNYes.Click, Button2.Click - Try - chatBox.Text = "Yes " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "Yes" - End Try - sendButton.PerformClick() - End Sub - Private Sub BTNNo_Click(sender As System.Object, e As System.EventArgs) Handles BTNNo.Click, Button3.Click - Try - chatBox.Text = "No " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "No" - End Try + End If - sendButton.PerformClick() - End Sub + Next - Private Sub BTNEdge_Click(sender As System.Object, e As System.EventArgs) Handles BTNEdge.Click, Button4.Click - chatBox.Text = "On the edge" - sendButton.PerformClick() - End Sub + End If + End Sub - Private Sub BTNSpeedUp_Click(sender As System.Object, e As System.EventArgs) Handles BTNSpeedUp.Click, Button8.Click - chatBox.Text = "Let me speed up" - sendButton.PerformClick() - End Sub - Private Sub BTNSlowDown_Click(sender As System.Object, e As System.EventArgs) Handles BTNSlowDown.Click, Button5.Click - chatBox.Text = "Let me slow down" - sendButton.PerformClick() - End Sub +#End Region ' DommeTag APP - Private Sub BTNStroke_Click(sender As System.Object, e As System.EventArgs) Handles BTNStroke.Click, Button6.Click - chatBox.Text = "May I start stroking?" - sendButton.PerformClick() - End Sub +#Region "------------------------------------------------------ Lazy-Sub ------------------------------------------------------" - Private Sub BTNAskToCum_Click(sender As System.Object, e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click - chatBox.Text = "Please let me cum!" - sendButton.PerformClick() - End Sub + Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles BTNStop.Click, Button7.Click + chatBox.Text = "Let me stop" + sendButton.PerformClick() + End Sub - Private Sub BTNGreeting_Click(sender As System.Object, e As System.EventArgs) Handles BTNGreeting.Click, Button10.Click + Private Sub BTNYes_Click(sender As System.Object, e As System.EventArgs) Handles BTNYes.Click, Button2.Click + Try + chatBox.Text = "Yes " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "Yes" + End Try - If ssh.SaidHello = True Then - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.RapidFire = False - Return - End If + sendButton.PerformClick() + End Sub - Try - chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "Hello" - End Try + Private Sub BTNNo_Click(sender As System.Object, e As System.EventArgs) Handles BTNNo.Click, Button3.Click + Try + chatBox.Text = "No " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "No" + End Try - sendButton.PerformClick() - End Sub + sendButton.PerformClick() + End Sub - Private Sub BTNSafeword_Click(sender As System.Object, e As System.EventArgs) Handles BTNSafeword.Click, Button11.Click - Try - chatBox.Text = FrmSettings.TBSafeword.Text - Catch - chatBox.Text = "@Error" - End Try + Private Sub BTNEdge_Click(sender As System.Object, e As System.EventArgs) Handles BTNEdge.Click, Button4.Click + chatBox.Text = "On the edge" + sendButton.PerformClick() + End Sub - sendButton.PerformClick() - End Sub - - Private Sub CBHideShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHideShortcuts.CheckedChanged - If FormLoading = False Then - GetShortcutChecked() - My.Settings.ShowShortcuts = CBHideShortcuts.Checked - End If - End Sub - - Public Sub GetShortcutChecked() - - If CBHideShortcuts.Checked = True Then - TBShortYes.Visible = False - TBShortNo.Visible = False - TBShortEdge.Visible = False - TBShortSpeedUp.Visible = False - TBShortSlowDown.Visible = False - TBShortStop.Visible = False - TBShortStroke.Visible = False - TBShortCum.Visible = False - TBShortGreet.Visible = False - TBShortSafeword.Visible = False - - - BTNLS1.Width = 214 - BTNLS2.Width = 214 - BTNLS3.Width = 214 - BTNLS4.Width = 214 - BTNLS5.Width = 214 - - BTNLS1Edit.Visible = False - BTNLS2Edit.Visible = False - BTNLS3Edit.Visible = False - BTNLS4Edit.Visible = False - BTNLS5Edit.Visible = False + Private Sub BTNSpeedUp_Click(sender As System.Object, e As System.EventArgs) Handles BTNSpeedUp.Click, Button8.Click + chatBox.Text = "Let me speed up" + sendButton.PerformClick() + End Sub - Else + Private Sub BTNSlowDown_Click(sender As System.Object, e As System.EventArgs) Handles BTNSlowDown.Click, Button5.Click + chatBox.Text = "Let me slow down" + sendButton.PerformClick() + End Sub - TBShortYes.Visible = True - TBShortNo.Visible = True - TBShortEdge.Visible = True - TBShortSpeedUp.Visible = True - TBShortSlowDown.Visible = True - TBShortStop.Visible = True - TBShortStroke.Visible = True - TBShortCum.Visible = True - TBShortGreet.Visible = True - TBShortSafeword.Visible = True + Private Sub BTNStroke_Click(sender As System.Object, e As System.EventArgs) Handles BTNStroke.Click, Button6.Click + chatBox.Text = "May I start stroking?" + sendButton.PerformClick() + End Sub - BTNLS1.Width = 163 - BTNLS2.Width = 163 - BTNLS3.Width = 163 - BTNLS4.Width = 163 - BTNLS5.Width = 163 + Private Sub BTNAskToCum_Click(sender As System.Object, e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click + chatBox.Text = "Please let me cum!" + sendButton.PerformClick() + End Sub - BTNLS1Edit.Visible = True - BTNLS2Edit.Visible = True - BTNLS3Edit.Visible = True - BTNLS4Edit.Visible = True - BTNLS5Edit.Visible = True + Private Sub BTNGreeting_Click(sender As System.Object, e As System.EventArgs) Handles BTNGreeting.Click, Button10.Click + If ssh.SaidHello = True Then + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If + ssh.RapidFire = False + Return + End If - End Sub + Try + chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "Hello" + End Try - Private Sub CBShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBShortcuts.CheckedChanged - If FormLoading = False Then - My.Settings.Shortcuts = CBShortcuts.Checked - End If - End Sub + sendButton.PerformClick() + End Sub - Private Sub TBShortYes_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortYes.LostFocus - My.Settings.ShortYes = TBShortYes.Text - End Sub + Private Sub BTNSafeword_Click(sender As System.Object, e As System.EventArgs) Handles BTNSafeword.Click, Button11.Click + Try + chatBox.Text = FrmSettings.TBSafeword.Text + Catch + chatBox.Text = "@Error" + End Try - Private Sub TBShortNo_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortNo.LostFocus - My.Settings.ShortNo = TBShortNo.Text - End Sub + sendButton.PerformClick() + End Sub - Private Sub TBShortEdge_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortEdge.LostFocus - My.Settings.ShortEdge = TBShortEdge.Text - End Sub + Private Sub CBHideShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHideShortcuts.CheckedChanged + If FormLoading = False Then + GetShortcutChecked() + My.Settings.ShowShortcuts = CBHideShortcuts.Checked + End If + End Sub - Private Sub TBShortSpeedUp_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSpeedUp.LostFocus - My.Settings.ShortSpeedUp = TBShortSpeedUp.Text - End Sub + Public Sub GetShortcutChecked() + + If CBHideShortcuts.Checked = True Then + TBShortYes.Visible = False + TBShortNo.Visible = False + TBShortEdge.Visible = False + TBShortSpeedUp.Visible = False + TBShortSlowDown.Visible = False + TBShortStop.Visible = False + TBShortStroke.Visible = False + TBShortCum.Visible = False + TBShortGreet.Visible = False + TBShortSafeword.Visible = False + + + BTNLS1.Width = 214 + BTNLS2.Width = 214 + BTNLS3.Width = 214 + BTNLS4.Width = 214 + BTNLS5.Width = 214 + + BTNLS1Edit.Visible = False + BTNLS2Edit.Visible = False + BTNLS3Edit.Visible = False + BTNLS4Edit.Visible = False + BTNLS5Edit.Visible = False - Private Sub TBShortSlowDown_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSlowDown.LostFocus - My.Settings.ShortSlowDown = TBShortSlowDown.Text - End Sub + Else - Private Sub TBShortStop_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStop.LostFocus - My.Settings.ShortStop = TBShortStop.Text - End Sub + TBShortYes.Visible = True + TBShortNo.Visible = True + TBShortEdge.Visible = True + TBShortSpeedUp.Visible = True + TBShortSlowDown.Visible = True + TBShortStop.Visible = True + TBShortStroke.Visible = True + TBShortCum.Visible = True + TBShortGreet.Visible = True + TBShortSafeword.Visible = True + + BTNLS1.Width = 163 + BTNLS2.Width = 163 + BTNLS3.Width = 163 + BTNLS4.Width = 163 + BTNLS5.Width = 163 + + BTNLS1Edit.Visible = True + BTNLS2Edit.Visible = True + BTNLS3Edit.Visible = True + BTNLS4Edit.Visible = True + BTNLS5Edit.Visible = True - Private Sub TBShortStroke_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStroke.LostFocus - My.Settings.ShortStroke = TBShortStroke.Text - End Sub + End If - Private Sub TBShortCum_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortCum.LostFocus - My.Settings.ShortCum = TBShortCum.Text - End Sub + End Sub - Private Sub TBShortGreet_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortGreet.LostFocus - My.Settings.ShortGreet = TBShortGreet.Text - End Sub + Private Sub CBShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBShortcuts.CheckedChanged + If FormLoading = False Then + My.Settings.Shortcuts = CBShortcuts.Checked + End If + End Sub - Private Sub TBShortSafeword_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSafeword.LostFocus - My.Settings.ShortSafeword = TBShortSafeword.Text - End Sub + Private Sub TBShortYes_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortYes.LostFocus + My.Settings.ShortYes = TBShortYes.Text + End Sub - Public Sub CheatCheck() + Private Sub TBShortNo_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortNo.LostFocus + My.Settings.ShortNo = TBShortNo.Text + End Sub - If chatBox.Text = LBLWritingTaskText.Text Then - chatBox.Text = "I'm a dirty cheater" - End If + Private Sub TBShortEdge_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortEdge.LostFocus + My.Settings.ShortEdge = TBShortEdge.Text + End Sub - End Sub + Private Sub TBShortSpeedUp_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSpeedUp.LostFocus + My.Settings.ShortSpeedUp = TBShortSpeedUp.Text + End Sub - Private Sub BTNLS1_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1.Click + Private Sub TBShortSlowDown_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSlowDown.LostFocus + My.Settings.ShortSlowDown = TBShortSlowDown.Text + End Sub + Private Sub TBShortStop_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStop.LostFocus + My.Settings.ShortStop = TBShortStop.Text + End Sub - If BTNLS1.Text <> "" Then - chatBox.Text = BTNLS1.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + Private Sub TBShortStroke_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStroke.LostFocus + My.Settings.ShortStroke = TBShortStroke.Text + End Sub - End Sub + Private Sub TBShortCum_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortCum.LostFocus + My.Settings.ShortCum = TBShortCum.Text + End Sub - Private Sub BTNLS1Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1Edit.Click + Private Sub TBShortGreet_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortGreet.LostFocus + My.Settings.ShortGreet = TBShortGreet.Text + End Sub + Private Sub TBShortSafeword_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSafeword.LostFocus + My.Settings.ShortSafeword = TBShortSafeword.Text + End Sub - LazyEdit2 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit5 = False + Public Sub CheatCheck() - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + If chatBox.Text = LBLWritingTaskText.Text Then + chatBox.Text = "I'm a dirty cheater" + End If + End Sub - If LazyEdit1 = False Then - BTNLS1Edit.BackColor = Color.ForestGreen - BTNLS1Edit.ForeColor = Color.White - LazyEdit1 = True - Else - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - LazyEdit1 = False - End If + Private Sub BTNLS1_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1.Click - End Sub - Private Sub BTNLS2_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2.Click + If BTNLS1.Text <> "" Then + chatBox.Text = BTNLS1.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If + End Sub - If BTNLS2.Text <> "" Then - chatBox.Text = BTNLS2.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + Private Sub BTNLS1Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1Edit.Click - End Sub - Private Sub BTNLS2Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2Edit.Click + LazyEdit2 = False + LazyEdit3 = False + LazyEdit4 = False + LazyEdit5 = False + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor - LazyEdit1 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit5 = False + If LazyEdit1 = False Then + BTNLS1Edit.BackColor = Color.ForestGreen + BTNLS1Edit.ForeColor = Color.White + LazyEdit1 = True + Else BTNLS1Edit.BackColor = My.Settings.ButtonColor BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit1 = False + End If - If LazyEdit2 = False Then - BTNLS2Edit.BackColor = Color.ForestGreen - BTNLS2Edit.ForeColor = Color.White - LazyEdit2 = True - Else - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - LazyEdit2 = False - End If + End Sub - End Sub + Private Sub BTNLS2_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2.Click - Private Sub BTNLS3_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3.Click + If BTNLS2.Text <> "" Then + chatBox.Text = BTNLS2.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If - If BTNLS3.Text <> "" Then - chatBox.Text = BTNLS3.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + End Sub - End Sub + Private Sub BTNLS2Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2Edit.Click - Private Sub BTNLS3Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3Edit.Click + LazyEdit1 = False + LazyEdit3 = False + LazyEdit4 = False + LazyEdit5 = False - LazyEdit2 = False - LazyEdit1 = False - LazyEdit4 = False - LazyEdit5 = False + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor + If LazyEdit2 = False Then + BTNLS2Edit.BackColor = Color.ForestGreen + BTNLS2Edit.ForeColor = Color.White + LazyEdit2 = True + Else BTNLS2Edit.BackColor = My.Settings.ButtonColor BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit2 = False + End If + End Sub - If LazyEdit3 = False Then - BTNLS3Edit.BackColor = Color.ForestGreen - BTNLS3Edit.ForeColor = Color.White - LazyEdit3 = True - Else - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - LazyEdit3 = False - End If + Private Sub BTNLS3_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3.Click - End Sub - Private Sub BTNLS4_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4.Click + If BTNLS3.Text <> "" Then + chatBox.Text = BTNLS3.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If + End Sub - If BTNLS4.Text <> "" Then - chatBox.Text = BTNLS4.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + Private Sub BTNLS3Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3Edit.Click - End Sub - Private Sub BTNLS4Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4Edit.Click + LazyEdit2 = False + LazyEdit1 = False + LazyEdit4 = False + LazyEdit5 = False + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor - LazyEdit2 = False - LazyEdit3 = False - LazyEdit1 = False - LazyEdit5 = False - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor + If LazyEdit3 = False Then + BTNLS3Edit.BackColor = Color.ForestGreen + BTNLS3Edit.ForeColor = Color.White + LazyEdit3 = True + Else BTNLS3Edit.BackColor = My.Settings.ButtonColor BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit3 = False + End If + End Sub - If LazyEdit4 = False Then - BTNLS4Edit.BackColor = Color.ForestGreen - BTNLS4Edit.ForeColor = Color.White - LazyEdit4 = True - Else - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - LazyEdit4 = False - End If + Private Sub BTNLS4_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4.Click - End Sub - Private Sub BTNLS5_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5.Click + If BTNLS4.Text <> "" Then + chatBox.Text = BTNLS4.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If + End Sub - If BTNLS5.Text <> "" Then - chatBox.Text = BTNLS5.Text - If ssh.WritingTaskFlag = True Then CheatCheck() - sendButton.PerformClick() - End If + Private Sub BTNLS4Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4Edit.Click - End Sub - Private Sub BTNLS5Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5Edit.Click + LazyEdit2 = False + LazyEdit3 = False + LazyEdit1 = False + LazyEdit5 = False + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor - LazyEdit2 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit1 = False - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor + If LazyEdit4 = False Then + BTNLS4Edit.BackColor = Color.ForestGreen + BTNLS4Edit.ForeColor = Color.White + LazyEdit4 = True + Else BTNLS4Edit.BackColor = My.Settings.ButtonColor BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor + LazyEdit4 = False + End If - If LazyEdit5 = False Then - BTNLS5Edit.BackColor = Color.ForestGreen - BTNLS5Edit.ForeColor = Color.White - LazyEdit5 = True - Else - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor - LazyEdit5 = False - End If + End Sub + + Private Sub BTNLS5_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5.Click + + + If BTNLS5.Text <> "" Then + chatBox.Text = BTNLS5.Text + If ssh.WritingTaskFlag = True Then CheatCheck() + sendButton.PerformClick() + End If + + End Sub + + Private Sub BTNLS5Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5Edit.Click - End Sub + + LazyEdit2 = False + LazyEdit3 = False + LazyEdit4 = False + LazyEdit1 = False + + BTNLS2Edit.BackColor = My.Settings.ButtonColor + BTNLS2Edit.ForeColor = My.Settings.TextColor + BTNLS3Edit.BackColor = My.Settings.ButtonColor + BTNLS3Edit.ForeColor = My.Settings.TextColor + BTNLS4Edit.BackColor = My.Settings.ButtonColor + BTNLS4Edit.ForeColor = My.Settings.TextColor + BTNLS1Edit.BackColor = My.Settings.ButtonColor + BTNLS1Edit.ForeColor = My.Settings.TextColor + + If LazyEdit5 = False Then + BTNLS5Edit.BackColor = Color.ForestGreen + BTNLS5Edit.ForeColor = Color.White + LazyEdit5 = True + Else + BTNLS5Edit.BackColor = My.Settings.ButtonColor + BTNLS5Edit.ForeColor = My.Settings.TextColor + LazyEdit5 = False + End If + + End Sub #End Region ' Lazy-Sub #Region "-------------------------------------------------- Randomizer-App ----------------------------------------------------" - Private Sub BTNRandomBlog_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomBlog.Click - BTNRandomBlog.Enabled = False + Private Sub BTNRandomBlog_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomBlog.Click + BTNRandomBlog.Enabled = False - ShowImage(GetRandomImage(ImageGenre.Blog), True) - ssh.JustShowedBlogImage = True + ShowImage(GetRandomImage(ImageGenre.Blog), True) + ssh.JustShowedBlogImage = True - BTNRandomBlog.Enabled = True - End Sub + BTNRandomBlog.Enabled = True + End Sub - Private Sub BTNRandomLocal_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomLocal.Click - BTNRandomLocal.Enabled = False + Private Sub BTNRandomLocal_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomLocal.Click + BTNRandomLocal.Enabled = False - ShowImage(GetRandomImage(ImageSourceType.Local), True) - ssh.JustShowedBlogImage = True + ShowImage(GetRandomImage(ImageSourceType.Local), True) + ssh.JustShowedBlogImage = True - BTNRandomLocal.Enabled = True - End Sub + BTNRandomLocal.Enabled = True + End Sub - Private Sub BTNRandomVideo_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomVideo.Click - ssh.RandomizerVideo = True - RandomVideo() - ssh.RandomizerVideo = False - End Sub + Private Sub BTNRandomVideo_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomVideo.Click + ssh.RandomizerVideo = True + RandomVideo() + ssh.RandomizerVideo = False + End Sub - Private Sub BTNRandomJOI_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomJOI.Click - PlayRandomJOI() - End Sub + Private Sub BTNRandomJOI_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomJOI.Click + PlayRandomJOI() + End Sub - Private Sub BTNRandomCS_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomCS.Click - ssh.SaidHello = True - ssh.RandomizerVideoTease = True + Private Sub BTNRandomCS_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomCS.Click + ssh.SaidHello = True + ssh.RandomizerVideoTease = True + + ssh.ScriptVideoTease = "Censorship Sucks" + ssh.ScriptVideoTeaseFlag = True + RandomVideo() + ssh.ScriptVideoTeaseFlag = False + ssh.CensorshipGame = True + ssh.VideoTease = True + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + CensorshipTimer.Start() + End Sub - ssh.ScriptVideoTease = "Censorship Sucks" - ssh.ScriptVideoTeaseFlag = True - RandomVideo() - ssh.ScriptVideoTeaseFlag = False - ssh.CensorshipGame = True - ssh.VideoTease = True - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - CensorshipTimer.Start() - End Sub + Private Sub BTNRandomAtE_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomAtE.Click - Private Sub BTNRandomAtE_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomAtE.Click + ssh.SaidHello = True + ssh.RandomizerVideoTease = True - ssh.SaidHello = True - ssh.RandomizerVideoTease = True + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "Avoid The Edge" + ssh.ScriptVideoTeaseFlag = True + ssh.AvoidTheEdgeStroking = True + ssh.AvoidTheEdgeGame = True + RandomVideo() + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + AvoidTheEdgeTaunts.Start() - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "Avoid The Edge" - ssh.ScriptVideoTeaseFlag = True - ssh.AvoidTheEdgeStroking = True - ssh.AvoidTheEdgeGame = True - RandomVideo() - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - AvoidTheEdgeTaunts.Start() + End Sub - End Sub + Private Sub BTNRandomRLGL_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomRLGL.Click - Private Sub BTNRandomRLGL_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomRLGL.Click + ssh.SaidHello = True + ssh.RandomizerVideoTease = True - ssh.SaidHello = True - ssh.RandomizerVideoTease = True + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.ScriptVideoTease = "RLGL" + ssh.ScriptVideoTeaseFlag = True + 'AvoidTheEdgeStroking = True + ssh.RLGLGame = True + RandomVideo() + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + RLGLTimer.Start() + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + 'VideoTauntTick = randomizer.Next(20, 31) + 'VideoTauntTimer.Start() - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.ScriptVideoTease = "RLGL" - ssh.ScriptVideoTeaseFlag = True - 'AvoidTheEdgeStroking = True - ssh.RLGLGame = True - RandomVideo() - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - RLGLTimer.Start() - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - 'VideoTauntTick = randomizer.Next(20, 31) - 'VideoTauntTimer.Start() - - End Sub - - Private Sub BTNRandomCH_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNRandomCH.Click - PlayRandomCH() - End Sub - - ''' ========================================================================================================= - ''' - ''' Jumps to random videoposition in current video. - ''' - ''' - ''' - ''' There is no need for parameter Sender and e. - ''' Only for Designer Compatiblity with Butten Clicks. - ''' Rethrows all exceptions to catcher, as long sender is nothing. - Private Sub VideoJump2Random(sender As System.Object, e As System.EventArgs) Handles Button12.Click - Try - If DomWMP.currentPlaylist.count = 0 Then Throw New Exception("No Video playing - can't jump.") + End Sub - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + Private Sub BTNRandomCH_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNRandomCH.Click + PlayRandomCH() + End Sub - Debug.Print("VidLow = " & VidLow) - Debug.Print("VidHigh = " & VidHigh) - Debug.Print("VidPoint = " & VidPoint) + ''' ========================================================================================================= + ''' + ''' Jumps to random videoposition in current video. + ''' + ''' + ''' + ''' There is no need for parameter Sender and e. + ''' Only for Designer Compatiblity with Butten Clicks. + ''' Rethrows all exceptions to catcher, as long sender is nothing. + Private Sub VideoJump2Random(sender As System.Object, e As System.EventArgs) Handles Button12.Click + Try + If DomWMP.currentPlaylist.count = 0 Then Throw New Exception("No Video playing - can't jump.") - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - If sender IsNot Nothing Then - MsgBox("Error on jumping to Random Position in Video!" & vbCrLf & ex.Message, + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + + Debug.Print("VidLow = " & VidLow) + Debug.Print("VidHigh = " & VidHigh) + Debug.Print("VidPoint = " & VidPoint) + + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + If sender IsNot Nothing Then + MsgBox("Error on jumping to Random Position in Video!" & vbCrLf & ex.Message, vbExclamation, "Jump to random Position") - Else - Throw - End If - End Try - End Sub + Else + Throw + End If + End Try + End Sub #End Region #Region "--------------------------------------------------- Wishlist APP -----------------------------------------------------" - Private Sub BTNPlaylist_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylist.Click - If LBPlaylist.SelectedItems.Count = 0 Then - MessageBox.Show(Me, "Please select a Playlist first!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If - - If ssh.SaidHello = True Then - MessageBox.Show(Me, "Please wait until you are not engaged with the domme to begin a Playlist!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If - - ssh.Playlist = True - 'SaidHello = True + Private Sub BTNPlaylist_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylist.Click + If LBPlaylist.SelectedItems.Count = 0 Then + MessageBox.Show(Me, "Please select a Playlist first!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - ssh.PlaylistFile = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\" & LBPlaylist.SelectedItem & ".txt") - ssh.PlaylistFile = StripBlankLines(ssh.PlaylistFile) - ssh.PlaylistCurrent = 0 - Try - chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text - Catch - chatBox.Text = "Hello" - End Try + If ssh.SaidHello = True Then + MessageBox.Show(Me, "Please wait until you are not engaged with the domme to begin a Playlist!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - sendButton.PerformClick() + ssh.Playlist = True + 'SaidHello = True - BTNPlaylist.Enabled = False - End Sub + ssh.PlaylistFile = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\" & LBPlaylist.SelectedItem & ".txt") + ssh.PlaylistFile = StripBlankLines(ssh.PlaylistFile) + ssh.PlaylistCurrent = 0 + Try + chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text + Catch + chatBox.Text = "Hello" + End Try - Private Sub BTNWishlist_Click(sender As System.Object, e As System.EventArgs) Handles BTNWishlist.Click + sendButton.PerformClick() - If ssh.SaidHello = True Then - MessageBox.Show(Me, "Please wait until you are not engaged with your domme to use this feature!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If + BTNPlaylist.Enabled = False + End Sub - Debug.Print(WishlistCostSilver.Visible) - Debug.Print(Val(LBLWishlistCost.Text)) + Private Sub BTNWishlist_Click(sender As System.Object, e As System.EventArgs) Handles BTNWishlist.Click - If WishlistCostSilver.Visible = True And ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then + If ssh.SaidHello = True Then + MessageBox.Show(Me, "Please wait until you are not engaged with your domme to use this feature!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - ssh.SilverTokens -= Val(LBLWishlistCost.Text) - My.Settings.SilverTokens = ssh.SilverTokens + Debug.Print(WishlistCostSilver.Visible) + Debug.Print(Val(LBLWishlistCost.Text)) - 'LBLWishListText.Text = "You purchased this item for " & domName.Text & " on " & CDate(DateString) & "." - 'My.Settings.WishlistNote = LBLWishListText.Text + If WishlistCostSilver.Visible = True And ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - My.Settings.ClearWishlist = True + ssh.SilverTokens -= Val(LBLWishlistCost.Text) + My.Settings.SilverTokens = ssh.SilverTokens + 'LBLWishListText.Text = "You purchased this item for " & domName.Text & " on " & CDate(DateString) & "." + 'My.Settings.WishlistNote = LBLWishListText.Text - WishlistCostGold.Visible = False - WishlistCostSilver.Visible = False - LBLWishlistBronze.Text = ssh.BronzeTokens - LBLWishlistSilver.Text = ssh.SilverTokens - LBLWishlistGold.Text = ssh.GoldTokens - LBLWishListName.Text = "" - WishlistPreview.Visible = False - LBLWishlistCost.Text = "" - LBLWishListText.Text = "Thank you for your purchase! " & domName.Text & " has been notified of your generous gift. Please check back again tomorrow for a new item!" - BTNWishlist.Enabled = False - BTNWishlist.Text = "" + My.Settings.ClearWishlist = True - Dim SilverList As New List(Of String) + WishlistCostGold.Visible = False + WishlistCostSilver.Visible = False + LBLWishlistBronze.Text = ssh.BronzeTokens + LBLWishlistSilver.Text = ssh.SilverTokens + LBLWishlistGold.Text = ssh.GoldTokens + LBLWishListName.Text = "" + WishlistPreview.Visible = False + LBLWishlistCost.Text = "" + LBLWishListText.Text = "Thank you for your purchase! " & domName.Text & " has been notified of your generous gift. Please check back again tomorrow for a new item!" + BTNWishlist.Enabled = False + BTNWishlist.Text = "" - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Silver Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - SilverList.Add(foundFile) - Next - If SilverList.Count < 1 Then - MessageBox.Show(Me, "No Silver Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + Dim SilverList As New List(Of String) - ssh.SaidHello = True - ssh.ShowModule = True + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Silver Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + SilverList.Add(foundFile) + Next - ssh.FileText = SilverList(ssh.randomizer.Next(0, SilverList.Count)) + If SilverList.Count < 1 Then + MessageBox.Show(Me, "No Silver Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() - End If + ssh.SaidHello = True + ssh.ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 2 - ScriptTimer.Start() - Return + ssh.FileText = SilverList(ssh.randomizer.Next(0, SilverList.Count)) + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 2 + ScriptTimer.Start() + Return - If WishlistCostGold.Visible = True And ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then + End If - ssh.GoldTokens -= Val(LBLWishlistCost.Text) - My.Settings.GoldTokens = ssh.GoldTokens - My.Settings.ClearWishlist = True + If WishlistCostGold.Visible = True And ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then + ssh.GoldTokens -= Val(LBLWishlistCost.Text) + My.Settings.GoldTokens = ssh.GoldTokens - Dim GoldList As New List(Of String) + My.Settings.ClearWishlist = True - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Gold Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - GoldList.Add(foundFile) - Next - If GoldList.Count < 1 Then - MessageBox.Show(Me, "No Gold Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If + Dim GoldList As New List(Of String) - ssh.SaidHello = True - ssh.ShowModule = True + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Wishlist\Gold Rewards\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + GoldList.Add(foundFile) + Next - ssh.FileText = GoldList(ssh.randomizer.Next(0, GoldList.Count)) + If GoldList.Count < 1 Then + MessageBox.Show(Me, "No Gold Reward scripts were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() - End If + ssh.SaidHello = True + ssh.ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 2 - ScriptTimer.Start() + ssh.FileText = GoldList(ssh.randomizer.Next(0, GoldList.Count)) + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 2 + ScriptTimer.Start() - End Sub - -#End Region + End If -#Region "------------------------------------------------- Hypno-Guide App ----------------------------------------------------" - Private Sub BTNHypnoGenStart_Click(sender As System.Object, e As System.EventArgs) Handles BTNHypnoGenStart.Click + End Sub +#End Region +#Region "------------------------------------------------- Hypno-Guide App ----------------------------------------------------" - If ssh.HypnoGen = False Then + Private Sub BTNHypnoGenStart_Click(sender As System.Object, e As System.EventArgs) Handles BTNHypnoGenStart.Click - If CBHypnoGenInduction.Checked = True Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt") Then - ssh.Induction = True - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt" - Else - MessageBox.Show(Me, "Please select a valid Hypno Induction File or deselect the Induction option!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If - End If + If ssh.HypnoGen = False Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt") Then - If ssh.Induction = False Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" - Else - ssh.TempHypno = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" - End If + If CBHypnoGenInduction.Checked = True Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt") Then + ssh.Induction = True + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Inductions\" & LBHypnoGenInduction.SelectedItem & ".txt" Else - MessageBox.Show(Me, "Please select a valid Hypno File!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "Please select a valid Hypno Induction File or deselect the Induction option!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 1 - ScriptTimer.Start() - Dim HypnoTrack As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\" & ComboBoxHypnoGenTrack.SelectedItem - If File.Exists(HypnoTrack) Then DomWMP.URL = HypnoTrack - ssh.HypnoGen = True - ssh.AFK = True - ssh.SaidHello = True - BTNHypnoGenStart.Text = "End Session" + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt") Then + If ssh.Induction = False Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" + Else + ssh.TempHypno = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\Hypno Files\" & LBHypnoGen.SelectedItem & ".txt" + End If Else - - mciSendString("CLOSE Speech1", String.Empty, 0, 0) - mciSendString("CLOSE Echo1", String.Empty, 0, 0) - DomWMP.Ctlcontrols.stop() - - ScriptTimer.Stop() - ssh.StrokeTauntVal = -1 - ssh.HypnoGen = False - ssh.Induction = False - ssh.AFK = False - ssh.SaidHello = False - - BTNHypnoGenStart.Text = "Guide Me!" - + MessageBox.Show(Me, "Please select a valid Hypno File!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 1 + ScriptTimer.Start() + Dim HypnoTrack As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\" & ComboBoxHypnoGenTrack.SelectedItem + If File.Exists(HypnoTrack) Then DomWMP.URL = HypnoTrack + ssh.HypnoGen = True + ssh.AFK = True + ssh.SaidHello = True + BTNHypnoGenStart.Text = "End Session" + Else + mciSendString("CLOSE Speech1", String.Empty, 0, 0) + mciSendString("CLOSE Echo1", String.Empty, 0, 0) + DomWMP.Ctlcontrols.stop() - End Sub - - Private Sub CBHypnoGenSlideshow_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenSlideshow.CheckedChanged - If FormLoading = False Then - If CBHypnoGenSlideshow.Checked = True Then - LBHypnoGenSlideshow.Enabled = True - Else - LBHypnoGenSlideshow.Enabled = False - End If - End If - End Sub + ScriptTimer.Stop() + ssh.StrokeTauntVal = -1 + ssh.HypnoGen = False + ssh.Induction = False + ssh.AFK = False + ssh.SaidHello = False - Private Sub CBHypnoGenInduction_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenInduction.CheckedChanged - If FormLoading = False Then - If CBHypnoGenInduction.Checked = True Then - LBHypnoGenInduction.Enabled = True - Else - LBHypnoGenInduction.Enabled = False - End If - End If - End Sub + BTNHypnoGenStart.Text = "Guide Me!" - Private Sub CBHypnoGenNoText_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenNoText.CheckedChanged + End If - End Sub -#End Region -#Region "--------------------------------------------------- VitalSub APP -----------------------------------------------------" - Private Sub BTNExercise_Click(sender As System.Object, e As System.EventArgs) Handles BTNExercise.Click - If TBExercise.Text <> "" Then - CLBExercise.Items.Add(TBExercise.Text) - TBExercise.Text = "" - SaveExercise() - End If - End Sub - - Private Sub BTNCalorie_Click(sender As System.Object, e As System.EventArgs) Handles BTNCalorie.Click - If TBCalorieItem.Text <> "" And TBCalorieAmount.Text <> "" Then - Dim CalorieString As String - CalorieString = TBCalorieItem.Text & " " & TBCalorieAmount.Text & " Calories" - Dim Dupecheck As Boolean = False - For i As Integer = 0 To ComboBoxCalorie.Items.Count - 1 - If CalorieString = ComboBoxCalorie.Items(i) Then Dupecheck = True - Next - ComboBoxCalorie.Items.Add(CalorieString) - LBCalorie.Items.Add(CalorieString) - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - For i As Integer = 0 To LBCalorie.Items.Count - 1 - If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) - End If - Next + End Sub - If Dupecheck = False Then - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", Environment.NewLine & CalorieString, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", CalorieString, False) - End If - End If - Dupecheck = False - ssh.CaloriesConsumed += TBCalorieAmount.Text - LBLCalorie.Text = ssh.CaloriesConsumed - My.Settings.CaloriesConsumed = ssh.CaloriesConsumed - TBCalorieItem.Text = "" - TBCalorieAmount.Text = "" + Private Sub CBHypnoGenSlideshow_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenSlideshow.CheckedChanged + If FormLoading = False Then + If CBHypnoGenSlideshow.Checked = True Then + LBHypnoGenSlideshow.Enabled = True + Else + LBHypnoGenSlideshow.Enabled = False + End If + End If + End Sub + + Private Sub CBHypnoGenInduction_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenInduction.CheckedChanged + If FormLoading = False Then + If CBHypnoGenInduction.Checked = True Then + LBHypnoGenInduction.Enabled = True + Else + LBHypnoGenInduction.Enabled = False End If - End Sub + End If + End Sub - Private Sub ComboBoxCalorie_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectedIndexChanged + Private Sub CBHypnoGenNoText_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenNoText.CheckedChanged - End Sub + End Sub - Private Sub ComboBoxCalorie_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectionChangeCommitted - If Not ComboBoxCalorie.SelectedItem Is Nothing Then - Dim CalorieString As String = ComboBoxCalorie.SelectedItem - LBCalorie.Items.Add(CalorieString) - CalorieString = CalorieString.Replace(" Calories", "") - Dim CalorieSplit As String() = Split(CalorieString) - Dim TempCal As Integer = Val(CalorieSplit(CalorieSplit.Count - 1)) - ssh.CaloriesConsumed += TempCal - LBLCalorie.Text = ssh.CaloriesConsumed - My.Settings.CaloriesConsumed = ssh.CaloriesConsumed - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - For i As Integer = 0 To LBCalorie.Items.Count - 1 - If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) - End If - Next - End If - End Sub +#End Region + +#Region "--------------------------------------------------- VitalSub APP -----------------------------------------------------" - Private Sub CLBExercise_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CLBExercise.SelectedIndexChanged, CLBExercise.LostFocus + Private Sub BTNExercise_Click(sender As System.Object, e As System.EventArgs) Handles BTNExercise.Click + If TBExercise.Text <> "" Then + CLBExercise.Items.Add(TBExercise.Text) + TBExercise.Text = "" SaveExercise() - End Sub + End If + End Sub - Private Sub CBVitalSub_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSub.CheckedChanged - If CBVitalSub.Checked = True Then - CBVitalSub.ForeColor = Color.LightGreen - CBVitalSub.Text = "VitalSub Active" - Else - CBVitalSub.ForeColor = Color.Red - CBVitalSub.Text = "VitalSub Inactive" - End If - End Sub + Private Sub BTNCalorie_Click(sender As System.Object, e As System.EventArgs) Handles BTNCalorie.Click + If TBCalorieItem.Text <> "" And TBCalorieAmount.Text <> "" Then + Dim CalorieString As String + CalorieString = TBCalorieItem.Text & " " & TBCalorieAmount.Text & " Calories" + Dim Dupecheck As Boolean = False + For i As Integer = 0 To ComboBoxCalorie.Items.Count - 1 + If CalorieString = ComboBoxCalorie.Items(i) Then Dupecheck = True + Next + ComboBoxCalorie.Items.Add(CalorieString) + LBCalorie.Items.Add(CalorieString) - Private Sub CBVitalSub_LostFocus(sender As Object, e As System.EventArgs) Handles CBVitalSub.LostFocus - If CBVitalSub.Checked = True Then - My.Settings.VitalSub = True - Else - My.Settings.VitalSub = False + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") + For i As Integer = 0 To LBCalorie.Items.Count - 1 + If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) + End If + Next + + If Dupecheck = False Then + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieList.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", Environment.NewLine & CalorieString, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieList.txt", CalorieString, False) + End If End If - End Sub + Dupecheck = False + ssh.CaloriesConsumed += TBCalorieAmount.Text + LBLCalorie.Text = ssh.CaloriesConsumed + My.Settings.CaloriesConsumed = ssh.CaloriesConsumed + TBCalorieItem.Text = "" + TBCalorieAmount.Text = "" + End If + End Sub - Private Sub LBCalorie_DoubleClick(sender As Object, e As System.EventArgs) Handles LBCalorie.DoubleClick + Private Sub ComboBoxCalorie_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectedIndexChanged + End Sub - Dim CalorieString As String = LBCalorie.SelectedItem + Private Sub ComboBoxCalorie_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectionChangeCommitted + If Not ComboBoxCalorie.SelectedItem Is Nothing Then + Dim CalorieString As String = ComboBoxCalorie.SelectedItem + LBCalorie.Items.Add(CalorieString) CalorieString = CalorieString.Replace(" Calories", "") Dim CalorieSplit As String() = Split(CalorieString) Dim TempCal As Integer = Val(CalorieSplit(CalorieSplit.Count - 1)) - ssh.CaloriesConsumed -= TempCal + ssh.CaloriesConsumed += TempCal LBLCalorie.Text = ssh.CaloriesConsumed My.Settings.CaloriesConsumed = ssh.CaloriesConsumed - LBCalorie.Items.Remove(LBCalorie.SelectedItem) If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - If LBCalorie.Items.Count > 0 Then - For i As Integer = 0 To LBCalorie.Items.Count - 1 - If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) - End If - Next - End If - End Sub + For i As Integer = 0 To LBCalorie.Items.Count - 1 + If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) + End If + Next + End If + End Sub - Private Sub BTNVitalSub_Click(sender As System.Object, e As System.EventArgs) Handles BTNVitalSub.Click - If ssh.SaidHello = True Then - MessageBox.Show(Me, "Please wait until you are not engaged with the domme to make VitalSub reports!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If + Private Sub CLBExercise_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CLBExercise.SelectedIndexChanged, CLBExercise.LostFocus + SaveExercise() + End Sub - ssh.SaidHello = True + Private Sub CBVitalSub_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSub.CheckedChanged + If CBVitalSub.Checked = True Then + CBVitalSub.ForeColor = Color.LightGreen + CBVitalSub.Text = "VitalSub Active" + Else + CBVitalSub.ForeColor = Color.Red + CBVitalSub.Text = "VitalSub Inactive" + End If + End Sub + Private Sub CBVitalSub_LostFocus(sender As Object, e As System.EventArgs) Handles CBVitalSub.LostFocus + If CBVitalSub.Checked = True Then + My.Settings.VitalSub = True + Else + My.Settings.VitalSub = False + End If + End Sub - Dim VitalSubFail As Boolean = False + Private Sub LBCalorie_DoubleClick(sender As Object, e As System.EventArgs) Handles LBCalorie.DoubleClick + + + Dim CalorieString As String = LBCalorie.SelectedItem + CalorieString = CalorieString.Replace(" Calories", "") + Dim CalorieSplit As String() = Split(CalorieString) + Dim TempCal As Integer = Val(CalorieSplit(CalorieSplit.Count - 1)) + ssh.CaloriesConsumed -= TempCal + LBLCalorie.Text = ssh.CaloriesConsumed + My.Settings.CaloriesConsumed = ssh.CaloriesConsumed + LBCalorie.Items.Remove(LBCalorie.SelectedItem) + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") + If LBCalorie.Items.Count > 0 Then + For i As Integer = 0 To LBCalorie.Items.Count - 1 + If Not File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", LBCalorie.Items(i), False) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\System\VitalSub\CalorieItems.txt", Environment.NewLine & LBCalorie.Items(i), True) + End If + Next + End If + End Sub - If CLBExercise.Items.Count > 0 Then - For i As Integer = 0 To CLBExercise.Items.Count - 1 - If CLBExercise.GetItemChecked(i) = False Then VitalSubFail = True - Next - End If + Private Sub BTNVitalSub_Click(sender As System.Object, e As System.EventArgs) Handles BTNVitalSub.Click + If ssh.SaidHello = True Then + MessageBox.Show(Me, "Please wait until you are not engaged with the domme to make VitalSub reports!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If - If Val(LBLCalorie.Text) > Val(TBCalorie.Text) Then VitalSubFail = True + ssh.SaidHello = True - Dim VitalSubState As String - If VitalSubFail = True Then - VitalSubState = "Punishments" - Else - VitalSubState = "Rewards" - End If - VitalSubFail = False + Dim VitalSubFail As Boolean = False + If CLBExercise.Items.Count > 0 Then + For i As Integer = 0 To CLBExercise.Items.Count - 1 + If CLBExercise.GetItemChecked(i) = False Then VitalSubFail = True + Next + End If + If Val(LBLCalorie.Text) > Val(TBCalorie.Text) Then VitalSubFail = True + Dim VitalSubState As String - Dim VitalList As New List(Of String) + If VitalSubFail = True Then + VitalSubState = "Punishments" + Else + VitalSubState = "Rewards" + End If + VitalSubFail = False - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\" & VitalSubState & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - VitalList.Add(foundFile) - Next - If VitalList.Count > 0 Then - ' github patch begin - ' For i As Integer = 0 To CLBExercise.Items.Count - 1 - 'CLBExercise.SetItemChecked(i, False) - 'Next - 'SaveExercise() - ' github patch end - CLBExercise.Items.Clear() - SaveExercise() + Dim VitalList As New List(Of String) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\" & VitalSubState & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + VitalList.Add(foundFile) + Next - LBCalorie.Items.Clear() - If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") - LBLCalorie.Text = 0 - ssh.CaloriesConsumed = 0 - My.Settings.CaloriesConsumed = 0 + If VitalList.Count > 0 Then - ssh.FileText = VitalList(ssh.randomizer.Next(0, VitalList.Count)) + ' github patch begin + ' For i As Integer = 0 To CLBExercise.Items.Count - 1 + 'CLBExercise.SetItemChecked(i, False) + 'Next + 'SaveExercise() + ' github patch end - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - LoadDommeImageFolder() - End If + CLBExercise.Items.Clear() + SaveExercise() - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - Else + LBCalorie.Items.Clear() + If File.Exists(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") Then My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\System\VitalSub\CalorieItems.txt") + LBLCalorie.Text = 0 + ssh.CaloriesConsumed = 0 + My.Settings.CaloriesConsumed = 0 - MessageBox.Show(Me, "No " & VitalSubState & " were found! Please make sure you have files in the VitaSub directory for this personality type!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return + ssh.FileText = VitalList(ssh.randomizer.Next(0, VitalList.Count)) + + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + LoadDommeImageFolder() End If - End Sub - Private Sub CLBExercise_DragLeave(sender As Object, e As System.EventArgs) Handles CLBExercise.DragLeave + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + + Else - CLBExercise.Items.Remove(CLBExercise.SelectedItem) - End Sub + MessageBox.Show(Me, "No " & VitalSubState & " were found! Please make sure you have files in the VitaSub directory for this personality type!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + End Sub - Private Sub CBVitalSubDomTask_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSubDomTask.CheckedChanged - If FormLoading = False Then - My.Settings.VitalSubAssignments = CBVitalSubDomTask.Checked - End If - End Sub + Private Sub CLBExercise_DragLeave(sender As Object, e As System.EventArgs) Handles CLBExercise.DragLeave + + CLBExercise.Items.Remove(CLBExercise.SelectedItem) + End Sub + + Private Sub CBVitalSubDomTask_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSubDomTask.CheckedChanged + If FormLoading = False Then + My.Settings.VitalSubAssignments = CBVitalSubDomTask.Checked + End If + End Sub #End Region ' Vital Sub - Public Sub MetronomeTick() + Public Sub MetronomeTick() - Dim wavFilepath As String = Application.StartupPath & "\Audio\System\metronome.wav" - Dim MetroSoundPlayer As Media.SoundPlayer = Nothing - Dim wavStream As MemoryStream - Dim Errorcounter As Integer = 0 + Dim wavFilepath As String = Application.StartupPath & "\Audio\System\metronome.wav" + Dim MetroSoundPlayer As Media.SoundPlayer = Nothing + Dim wavStream As MemoryStream + Dim Errorcounter As Integer = 0 restartNoFile: - Try - If Directory.Exists(Path.GetDirectoryName(wavFilepath)) AndAlso File.Exists(wavFilepath) Then + Try + If Directory.Exists(Path.GetDirectoryName(wavFilepath)) AndAlso File.Exists(wavFilepath) Then - wavStream = New MemoryStream(File.ReadAllBytes(wavFilepath)) - MetroSoundPlayer = New Media.SoundPlayer(wavStream) - MetroSoundPlayer.Load() + wavStream = New MemoryStream(File.ReadAllBytes(wavFilepath)) + MetroSoundPlayer = New Media.SoundPlayer(wavStream) + MetroSoundPlayer.Load() playLoop: - ' copy variable to avoid needless locking delays - Dim tmpStrokePace As Integer = StrokePaceMetronome - - If tmpStrokePace > 0 AndAlso CBMetronome.Checked Then - MetroSoundPlayer.Stop() - MetroSoundPlayer.Play() - Thread.Sleep(tmpStrokePace) - Else - Thread.Sleep(1000) - End If + ' copy variable to avoid needless locking delays + Dim tmpStrokePace As Integer = StrokePaceMetronome - GoTo playLoop + If tmpStrokePace > 0 AndAlso CBMetronome.Checked Then + MetroSoundPlayer.Stop() + MetroSoundPlayer.Play() + Thread.Sleep(tmpStrokePace) Else - Thread.Sleep(10 * 1000) - GoTo restartNoFile - End If - Catch ex As Exception When Errorcounter < 120 - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors until 119 Errors occured - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: MetronomeExceptions: Log error - but first add synclock to logging. - Errorcounter += 1 - Thread.Sleep(1000) + Thread.Sleep(1000) + End If + + GoTo playLoop + Else + Thread.Sleep(10 * 1000) GoTo restartNoFile - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: MetronomeExceptions: Add possibility to restart the thread. - End Try - End Sub + End If + Catch ex As Exception When Errorcounter < 120 + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors until 119 Errors occured + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: MetronomeExceptions: Log error - but first add synclock to logging. + Errorcounter += 1 + Thread.Sleep(1000) + GoTo restartNoFile + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: MetronomeExceptions: Add possibility to restart the thread. + End Try + End Sub #Region "-------------------------------------------------- Metronome-App -----------------------------------------------------" - Private Sub BTNMetroPreview1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview1.Click - If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value - End Sub + Private Sub BTNMetroPreview1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview1.Click + If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value + End Sub - Private Sub BTNMetroPreview2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview2.Click - If ssh.SubStroking = False Then StrokePace = NBMinPace.Value - End Sub + Private Sub BTNMetroPreview2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview2.Click + If ssh.SubStroking = False Then StrokePace = NBMinPace.Value + End Sub - Private Sub BTNMetroStop1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop1.Click - If ssh.SubStroking = False Then StrokePace = 0 - End Sub + Private Sub BTNMetroStop1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop1.Click + If ssh.SubStroking = False Then StrokePace = 0 + End Sub - Private Sub BTNMetroStop2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop2.Click - If ssh.SubStroking = False Then StrokePace = 0 - End Sub + Private Sub BTNMetroStop2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop2.Click + If ssh.SubStroking = False Then StrokePace = 0 + End Sub - Private Sub NBMaxPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMaxPace.ValueChanged - If FormLoading = False Then - If NBMaxPace.Value > NBMinPace.Value - 50 Then NBMaxPace.Value = NBMinPace.Value - 50 - If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value - My.Settings.MaxPace = NBMaxPace.Value - End If - End Sub + Private Sub NBMaxPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMaxPace.ValueChanged + If FormLoading = False Then + If NBMaxPace.Value > NBMinPace.Value - 50 Then NBMaxPace.Value = NBMinPace.Value - 50 + If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value + My.Settings.MaxPace = NBMaxPace.Value + End If + End Sub - Private Sub NBMinPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMinPace.ValueChanged - If FormLoading = False Then - If NBMinPace.Value < NBMaxPace.Value + 50 Then NBMinPace.Value = NBMaxPace.Value + 50 - If ssh.SubStroking = False Then StrokePace = NBMinPace.Value - My.Settings.MinPace = NBMinPace.Value - End If - End Sub + Private Sub NBMinPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMinPace.ValueChanged + If FormLoading = False Then + If NBMinPace.Value < NBMaxPace.Value + 50 Then NBMinPace.Value = NBMaxPace.Value + 50 + If ssh.SubStroking = False Then StrokePace = NBMinPace.Value + My.Settings.MinPace = NBMinPace.Value + End If + End Sub - Private Sub TimeoutTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TimeoutTimer.Tick + Private Sub TimeoutTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TimeoutTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - Debug.Print("TimeoutTick = " & ssh.TimeoutTick) + Debug.Print("TimeoutTick = " & ssh.TimeoutTick) - If chatBox.Text <> "" And ssh.TimeoutTick < 3 Then Return - If ChatBox2.Text <> "" And ssh.TimeoutTick < 3 Then Return + If chatBox.Text <> "" And ssh.TimeoutTick < 3 Then Return + If ChatBox2.Text <> "" And ssh.TimeoutTick < 3 Then Return - ssh.TimeoutTick -= 1 + ssh.TimeoutTick -= 1 - If ssh.TimeoutTick < 1 Then + If ssh.TimeoutTick < 1 Then - TimeoutTimer.Stop() - ssh.YesOrNo = False - ssh.InputFlag = False + TimeoutTimer.Stop() + ssh.YesOrNo = False + ssh.InputFlag = False - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - RunFileText() + RunFileText() - End If + End If - End Sub + End Sub - Private Sub CBMetronome_LostFocus(sender As Object, e As System.EventArgs) Handles CBMetronome.LostFocus - My.Settings.MetroOn = CBMetronome.Checked - End Sub + Private Sub CBMetronome_LostFocus(sender As Object, e As System.EventArgs) Handles CBMetronome.LostFocus + My.Settings.MetroOn = CBMetronome.Checked + End Sub #End Region ' Metronome App #End Region ' Apps - Private Sub VideoTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTimer.Tick + Private Sub VideoTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.VideoTick -= 1 + ssh.VideoTick -= 1 - If ssh.VideoTick < 1 Then - VideoTimer.Stop() - DomWMP.Ctlcontrols.stop() - End If + If ssh.VideoTick < 1 Then + VideoTimer.Stop() + DomWMP.Ctlcontrols.stop() + End If - End Sub + End Sub - Private Sub MultipleEdgesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles MultipleEdgesTimer.Tick + Private Sub MultipleEdgesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles MultipleEdgesTimer.Tick - If ssh.DomTypeCheck = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.DomTypeCheck = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.MultipleEdgesTick -= 1 + ssh.MultipleEdgesTick -= 1 - If ssh.MultipleEdgesTick < 1 Then + If ssh.MultipleEdgesTick < 1 Then - MultipleEdgesTimer.Stop() + MultipleEdgesTimer.Stop() - ssh.DomChat = "#SYS_MultipleEdgesStart" - If ssh.Contact1Edge = True Then ssh.DomChat = "@Contact1 #SYS_MultipleEdgesStart" - If ssh.Contact2Edge = True Then ssh.DomChat = "@Contact2 #SYS_MultipleEdgesStart" - If ssh.Contact3Edge = True Then ssh.DomChat = "@Contact3 #SYS_MultipleEdgesStart" - TypingDelay() + ssh.DomChat = "#SYS_MultipleEdgesStart" + If ssh.Contact1Edge = True Then ssh.DomChat = "@Contact1 #SYS_MultipleEdgesStart" + If ssh.Contact2Edge = True Then ssh.DomChat = "@Contact2 #SYS_MultipleEdgesStart" + If ssh.Contact3Edge = True Then ssh.DomChat = "@Contact3 #SYS_MultipleEdgesStart" + TypingDelay() - ssh.MultipleEdgesMetronome = "START" + ssh.MultipleEdgesMetronome = "START" - ssh.EdgeCountTick = 0 - EdgeCountTimer.Start() + ssh.EdgeCountTick = 0 + EdgeCountTimer.Start() - End If + End If - End Sub + End Sub - Public Function OfflineConversion(ByVal OffString As String) As String + Public Function OfflineConversion(ByVal OffString As String) As String - ' Ixnay on the Wordplay + ' Ixnay on the Wordplay - OffString = OffString.Replace("@ShowBlogImage", "@ShowLocalImage") + OffString = OffString.Replace("@ShowBlogImage", "@ShowLocalImage") - If My.Settings.CBIButts = False Then - OffString = OffString.Replace("@ShowButtImage", "") - OffString = OffString.Replace("@ShowButtsImage", "") - End If + If My.Settings.CBIButts = False Then + OffString = OffString.Replace("@ShowButtImage", "") + OffString = OffString.Replace("@ShowButtsImage", "") + End If - If My.Settings.CBIBoobs = False Then - OffString = OffString.Replace("@ShowBoobImage", "") - OffString = OffString.Replace("@ShowBoobsImage", "") - End If + If My.Settings.CBIBoobs = False Then + OffString = OffString.Replace("@ShowBoobImage", "") + OffString = OffString.Replace("@ShowBoobsImage", "") + End If - If OffString.Contains("@ShowImage[") Then - Dim CheckImage As String = GetParentheses(OffString, "@ShowImage[") - If CheckImage.Contains("://") Then - OffString = OffString.Replace("@ShowImage[" & CheckImage & "]", "") - End If + If OffString.Contains("@ShowImage[") Then + Dim CheckImage As String = GetParentheses(OffString, "@ShowImage[") + If CheckImage.Contains("://") Then + OffString = OffString.Replace("@ShowImage[" & CheckImage & "]", "") End If + End If - Return OffString + Return OffString - ' You gotta keep 'em numerated + ' You gotta keep 'em numerated - End Function + End Function - Private Function FilterCheck(ByVal Input As String, ByVal ConditionControl As Control) As Boolean + Private Function FilterCheck(ByVal Input As String, ByVal ConditionControl As Control) As Boolean - Debug.Print("Input = " & Input) - Debug.Print("ConditionControl = " & ConditionControl.ToString) + Debug.Print("Input = " & Input) + Debug.Print("ConditionControl = " & ConditionControl.ToString) - If TypeOf ConditionControl Is NumericUpDown Then - Debug.Print("It's a combo box" & Input) - End If + If TypeOf ConditionControl Is NumericUpDown Then + Debug.Print("It's a combo box" & Input) + End If - Dim TextCondition As String - ' Cast the Type of the Control to access it's visible TextValue - If TypeOf ConditionControl Is NumericUpDown Then - TextCondition = DirectCast(ConditionControl, NumericUpDown).Value - ElseIf TypeOf ConditionControl Is ComboBox Then - TextCondition = DirectCast(ConditionControl, ComboBox).Text - ElseIf TypeOf ConditionControl Is CheckBox Then - TextCondition = DirectCast(ConditionControl, CheckBox).Checked - Else - Throw New Exception("Type of control not implemented in Function.") - End If + Dim TextCondition As String + ' Cast the Type of the Control to access it's visible TextValue + If TypeOf ConditionControl Is NumericUpDown Then + TextCondition = DirectCast(ConditionControl, NumericUpDown).Value + ElseIf TypeOf ConditionControl Is ComboBox Then + TextCondition = DirectCast(ConditionControl, ComboBox).Text + ElseIf TypeOf ConditionControl Is CheckBox Then + TextCondition = DirectCast(ConditionControl, CheckBox).Checked + Else + Throw New Exception("Type of control not implemented in Function.") + End If - TextCondition = UCase(TextCondition) - Debug.Print("TextCondition = " & TextCondition) + TextCondition = UCase(TextCondition) + Debug.Print("TextCondition = " & TextCondition) - If TextCondition = "ALWAYS ALLOWS" Or TextCondition = "ALWAYS RUINS" Then TextCondition = "ALWAYS" - If TextCondition = "OFTEN ALLOWS" Or TextCondition = "OFTEN RUINS" Then TextCondition = "OFTEN" - If TextCondition = "SOMETIMES ALLOWS" Or TextCondition = "SOMETIMES RUINS" Then TextCondition = "SOMETIMES" - If TextCondition = "RARELY ALLOWS" Or TextCondition = "RARELY RUINS" Then TextCondition = "RARELY" - If TextCondition = "NEVER ALLOWS" Or TextCondition = "NEVER RUINS" Then TextCondition = "NEVER" + If TextCondition = "ALWAYS ALLOWS" Or TextCondition = "ALWAYS RUINS" Then TextCondition = "ALWAYS" + If TextCondition = "OFTEN ALLOWS" Or TextCondition = "OFTEN RUINS" Then TextCondition = "OFTEN" + If TextCondition = "SOMETIMES ALLOWS" Or TextCondition = "SOMETIMES RUINS" Then TextCondition = "SOMETIMES" + If TextCondition = "RARELY ALLOWS" Or TextCondition = "RARELY RUINS" Then TextCondition = "RARELY" + If TextCondition = "NEVER ALLOWS" Or TextCondition = "NEVER RUINS" Then TextCondition = "NEVER" - Input = UCase(Input) - 'Input = Input.Replace(" ", "") + Input = UCase(Input) + 'Input = Input.Replace(" ", "") - If Input.Contains(",") Then - Input = FixCommas(Input) - Dim SplitArray() As String = Input.Split(",") + If Input.Contains(",") Then + Input = FixCommas(Input) + Dim SplitArray() As String = Input.Split(",") - If Input.Contains("NOT") Then - For i As Integer = 0 To SplitArray.Count - 1 - If SplitArray(i) = TextCondition Then Return False - Next - Return True - Else - For i As Integer = 0 To SplitArray.Count - 1 - If SplitArray(i) = TextCondition Then Return True - Next - End If + If Input.Contains("NOT") Then + For i As Integer = 0 To SplitArray.Count - 1 + If SplitArray(i) = TextCondition Then Return False + Next + Return True Else - If Input = TextCondition Then Return True + For i As Integer = 0 To SplitArray.Count - 1 + If SplitArray(i) = TextCondition Then Return True + Next End If + Else + If Input = TextCondition Then Return True + End If - Return False + Return False - End Function + End Function - Public Sub ClearModes() + Public Sub ClearModes() - ssh.EdgeGoto = False - ssh.YesGoto = False - ssh.NoGoto = False - ssh.CameGoto = False - ssh.RuinedGoto = False - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False - ssh.EdgeMessage = False - ssh.CameMessage = False - ssh.RuinedMessage = False - ssh.Modes.Clear() + ssh.EdgeGoto = False + ssh.YesGoto = False + ssh.NoGoto = False + ssh.CameGoto = False + ssh.RuinedGoto = False + ssh.EdgeVideo = False + ssh.YesVideo = False + ssh.NoVideo_Mode = False + ssh.CameVideo = False + ssh.RuinedVideo = False + ssh.EdgeMessage = False + ssh.CameMessage = False + ssh.RuinedMessage = False + ssh.Modes.Clear() + + + End Sub - End Sub + Public Function GetMatch(ByVal Line As String, ByVal Command As String, Match As String) As Boolean + Debug.Print("Line = " & Line) + Debug.Print("Command = " & Command) + Debug.Print("Match = " & Match) - Public Function GetMatch(ByVal Line As String, ByVal Command As String, Match As String) As Boolean + Dim CommandFlag As String = GetParentheses(Line, Command) - Debug.Print("Line = " & Line) - Debug.Print("Command = " & Command) - Debug.Print("Match = " & Match) + If CommandFlag.Contains(",") Then - Dim CommandFlag As String = GetParentheses(Line, Command) + CommandFlag = FixCommas(CommandFlag) - If CommandFlag.Contains(",") Then + Dim CommandArray As String() = CommandFlag.Split(",") - CommandFlag = FixCommas(CommandFlag) + Dim NotFlag As Boolean = False - Dim CommandArray As String() = CommandFlag.Split(",") + For i As Integer = 0 To CommandArray.Count - 1 + If CommandArray(i).ToUpper = "NOT" Then NotFlag = True + Next - Dim NotFlag As Boolean = False + If NotFlag = True Then For i As Integer = 0 To CommandArray.Count - 1 - If CommandArray(i).ToUpper = "NOT" Then NotFlag = True + If CommandArray(i) = Match Then Return False Next - If NotFlag = True Then - - For i As Integer = 0 To CommandArray.Count - 1 - If CommandArray(i) = Match Then Return False - Next + Return True - Return True + Else - Else + For i As Integer = 0 To CommandArray.Count - 1 + If CommandArray(i) = Match Then Return True + Next - For i As Integer = 0 To CommandArray.Count - 1 - If CommandArray(i) = Match Then Return True - Next + End If - End If + Else - Else + If CommandFlag = Match Then Return True - If CommandFlag = Match Then Return True + End If - End If + Return False - Return False + End Function - End Function + Public Sub Edge() - Public Sub Edge() + If ssh.SubStroking = True Then ssh.AlreadyStrokingEdge = True + GetEdgeTickCheck() + ssh.SubStroking = True + ssh.LongEdge = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.EdgeCountTick = 0 + EdgeCountTimer.Start() + ssh.SubEdging = True + ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) + EdgeTauntTimer.Start() + If ssh.OrgasmAllowed = True Or ssh.OrgasmDenied = True Or ssh.OrgasmRuined = True Then ssh.OrgasmYesNo = True + EdgePace() + ActivateWebToy() + DisableContactStroke() + ssh.SessionEdges += 1 - If ssh.SubStroking = True Then ssh.AlreadyStrokingEdge = True - GetEdgeTickCheck() - ssh.SubStroking = True - ssh.LongEdge = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.EdgeCountTick = 0 - EdgeCountTimer.Start() - ssh.SubEdging = True - ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) - EdgeTauntTimer.Start() - If ssh.OrgasmAllowed = True Or ssh.OrgasmDenied = True Or ssh.OrgasmRuined = True Then ssh.OrgasmYesNo = True - EdgePace() - ActivateWebToy() - DisableContactStroke() - ssh.SessionEdges += 1 + End Sub - End Sub + Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click + My.Settings.SideChat = True + CloseApp(PNLChatBox2) + End Sub - Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click - My.Settings.SideChat = True - CloseApp(PNLChatBox2) - End Sub - - Public Sub ClearWriteTask() - ssh.WritingTaskCurrentTime = 0 - ssh.WritingTaskFlag = False - chatBox.ShortcutsEnabled = True - ChatBox2.ShortcutsEnabled = True - CloseApp(Nothing) - End Sub + Public Sub ClearWriteTask() + ssh.WritingTaskCurrentTime = 0 + ssh.WritingTaskFlag = False + chatBox.ShortcutsEnabled = True + ChatBox2.ShortcutsEnabled = True + CloseApp(Nothing) + End Sub - Public Sub ClearChat() + Public Sub ClearChat() - ssh.Chat = "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ssh.Chat = "" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() - End Sub + End Sub - Public Sub ChatReadyState() - While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete - Application.DoEvents() - End While - ScrollChatDown() - End Sub + Public Sub ChatReadyState() + While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete + Application.DoEvents() + End While + ScrollChatDown() + End Sub - Public Function GetIf(ByVal CompareString As String) As Boolean + Public Function GetIf(ByVal CompareString As String) As Boolean - ' CompareString = [x]operator[y] + ' CompareString = [x]operator[y] - Dim ReturnVal As Boolean = False + Dim ReturnVal As Boolean = False - Dim CompareArray As String() = CompareString.Split("]") - Dim C_Operator As String = CompareArray(1).Split("[")(0) - Dim Val1 As String = CompareArray(0).Replace("[", "") - Dim Val2 As String = CompareArray(1).Replace(C_Operator & "[", "") + Dim CompareArray As String() = CompareString.Split("]") + Dim C_Operator As String = CompareArray(1).Split("[")(0) + Dim Val1 As String = CompareArray(0).Replace("[", "") + Dim Val2 As String = CompareArray(1).Replace(C_Operator & "[", "") - If Val1.StartsWith("#") Then Val1 = PoundClean(Val1) - If Val2.StartsWith("#") Then Val2 = PoundClean(Val2) + If Val1.StartsWith("#") Then Val1 = PoundClean(Val1) + If Val2.StartsWith("#") Then Val2 = PoundClean(Val2) - Debug.Print("CompareString = " & CompareString) - Debug.Print("C_Operator = " & C_Operator) - Debug.Print("Val1 = " & Val1) - Debug.Print("Val2 = " & Val2) + Debug.Print("CompareString = " & CompareString) + Debug.Print("C_Operator = " & C_Operator) + Debug.Print("Val1 = " & Val1) + Debug.Print("Val2 = " & Val2) - If Not IsNumeric(Val1) Then - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val1 - If File.Exists(VarCheck) Then Val1 = TxtReadLine(VarCheck) - End If + If Not IsNumeric(Val1) Then + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val1 + If File.Exists(VarCheck) Then Val1 = TxtReadLine(VarCheck) + End If - If Not IsNumeric(Val2) Then - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val2 - If File.Exists(VarCheck) Then Val2 = TxtReadLine(VarCheck) - End If + If Not IsNumeric(Val2) Then + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & Val2 + If File.Exists(VarCheck) Then Val2 = TxtReadLine(VarCheck) + End If - If C_Operator = "=" Or C_Operator = "==" Then - If UCase(Val1) = UCase(Val2) Then Return True - End If + If C_Operator = "=" Or C_Operator = "==" Then + If UCase(Val1) = UCase(Val2) Then Return True + End If - If C_Operator = "<>" Then - If UCase(Val1) <> UCase(Val2) Then Return True - End If + If C_Operator = "<>" Then + If UCase(Val1) <> UCase(Val2) Then Return True + End If - If Not IsNumeric(Val1) And Not IsNumeric(Val2) Then Return False + If Not IsNumeric(Val1) And Not IsNumeric(Val2) Then Return False - If C_Operator = ">" Then - If Val(Val1) > Val(Val2) Then Return True - End If + If C_Operator = ">" Then + If Val(Val1) > Val(Val2) Then Return True + End If - If C_Operator = "<" Then - If Val(Val1) < Val(Val2) Then Return True - End If + If C_Operator = "<" Then + If Val(Val1) < Val(Val2) Then Return True + End If - If C_Operator = ">=" Then - If Val(Val1) >= Val(Val2) Then Return True - End If + If C_Operator = ">=" Then + If Val(Val1) >= Val(Val2) Then Return True + End If - If C_Operator = "<=" Then - If Val(Val1) <= Val(Val2) Then Return True - End If + If C_Operator = "<=" Then + If Val(Val1) <= Val(Val2) Then Return True + End If - Return ReturnVal + Return ReturnVal - End Function + End Function - Public Function GetArrayString(ByVal StringToSplit As String) As String() - StringToSplit = FixCommas(StringToSplit) - Dim ArrayString As String() = StringToSplit.Split(",") - Return ArrayString - End Function + Public Function GetArrayString(ByVal StringToSplit As String) As String() + StringToSplit = FixCommas(StringToSplit) + Dim ArrayString As String() = StringToSplit.Split(",") + Return ArrayString + End Function - Public Function GetCharCount(ByVal StringClean As String, ByVal Character As String) As Integer - Return Len(StringClean) - Len(Replace(StringClean, Character, "")) - End Function + Public Function GetCharCount(ByVal StringClean As String, ByVal Character As String) As Integer + Return Len(StringClean) - Len(Replace(StringClean, Character, "")) + End Function - Private Sub Form1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown - If e.KeyCode = (Keys.F Or Keys.Control) Then - FullscreenToolStripMenuItem_Click(Nothing, Nothing) - ElseIf e.Alt AndAlso MainMenuStrip.Visible = False Then - MainMenuStrip.Visible = True - MainMenuStrip.Focus() - ElseIf e.Alt AndAlso FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - MainMenuStrip.Visible = False - End If - End Sub + Private Sub Form1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + If e.KeyCode = (Keys.F Or Keys.Control) Then + FullscreenToolStripMenuItem_Click(Nothing, Nothing) + ElseIf e.Alt AndAlso MainMenuStrip.Visible = False Then + MainMenuStrip.Visible = True + MainMenuStrip.Focus() + ElseIf e.Alt AndAlso FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + MainMenuStrip.Visible = False + End If + End Sub - Private Sub MenuStrip2_Leave(sender As System.Object, e As System.EventArgs) Handles MenuStrip2.Leave - If FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - MainMenuStrip.Visible = False - End If - End Sub + Private Sub MenuStrip2_Leave(sender As System.Object, e As System.EventArgs) Handles MenuStrip2.Leave + If FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + MainMenuStrip.Visible = False + End If + End Sub - End Class +End Class diff --git a/Tease AI/Tease AI.vbproj b/Tease AI/Tease AI.vbproj index 180ba8d..6aec9ff 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -117,7 +117,6 @@ - Component From f96181878f96787c758b25cedfa731836a503708 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Tue, 29 Nov 2016 00:43:22 +0100 Subject: [PATCH 006/143] Force 1 line taunts Adds a 45% Chance to force 1 line taunts. Otherwise a random of all available taunt types is picked. Taunts are now processed in a designated class, to add the possibility to reuse it for other taunt types as chastity, glitter and stroke too. Initial Commit 2c15e26622087d63e9cee7098f732f199a51f006 changed indent size of Form1.vb. Reverted to avoid merge conflicts. --- Tease AI/Classes/TauntProcessingObject.vb | 94 +++++++++++++++++++ Tease AI/Form1.vb | 109 ++++++++++------------ Tease AI/Tease AI.vbproj | 1 + 3 files changed, 142 insertions(+), 62 deletions(-) create mode 100644 Tease AI/Classes/TauntProcessingObject.vb diff --git a/Tease AI/Classes/TauntProcessingObject.vb b/Tease AI/Classes/TauntProcessingObject.vb new file mode 100644 index 0000000..84fafc5 --- /dev/null +++ b/Tease AI/Classes/TauntProcessingObject.vb @@ -0,0 +1,94 @@ +Imports System.IO + +''' Class to process TauntFiles +Public Class TauntProcessingObject + + ''' Absolute path to taunt file. + Friend Property FilePath As String = "" + + ''' gets tauntfile's name without extension. + Friend ReadOnly Property FileName As String + Get + Return Path.GetFileNameWithoutExtension(FilePath) + End Get + End Property + + ''' Filtered taunt file Lines. + Friend Property Lines As New List(Of String) + + Dim _TauntSize As Integer = -1 + ''' Gets the number of lines in a taunt. + '''1-based value + Friend ReadOnly Property TauntSize As Integer + Get + If _TauntSize = -1 AndAlso FileName.Length > 4 Then + ' get the last 4 numeric chars in filename and convert them to a number + Dim TmpString As String = "" + + For i = FileName.Length - 1 To FileName.Length - 4 Step -1 + If IsNumeric(FileName(i)) Then + TmpString = FileName(i) & TmpString + Else + Exit For + End If + Next + + If IsNumeric(TmpString) Then _TauntSize = CInt(TmpString) + End If + + Return _TauntSize + End Get + End Property + + ''' Gets a random taunt start line. + Friend ReadOnly Property RandomTauntLine As Integer + Get + If Avaialable Then + Dim GroupCount = Lines.Count / TauntSize ' 1-based + Dim RndGroup As Integer = My.Application.Session.randomizer.Next(1, GroupCount + 1) - 1 ' 0-based + Dim ScriptLine As Integer = RndGroup * TauntSize + + Return ScriptLine + Else + Return -1 + End If + End Get + End Property + + ''' Returns if a Taunt is useable. + ''' Returns true, if taunt has valid lines and right ammount. + ReadOnly Property Avaialable As Boolean + Get + If Lines.Count > 0 AndAlso Lines.Count > TauntSize Then + Return True + Else + Return False + End If + End Get + End Property + + ''' Creates a new instance and loads the data from given filepath + ''' The file to load. + ''' Object Reference to run filtering on. + ''' Non-Threadsafe + Sub New(ByVal absolutePath As String, ByVal Form1Reference As Form1) + Try + FilePath = absolutePath + + ' Set TauntSize for filtering. + Form1Reference.ssh.StrokeTauntCount = TauntSize + + ' Read lines. + Lines = Txt2List(FilePath) + + ' Filter lines. + Form1Reference.ssh.StrokeFilter = True + Dim linesFiltered As List(Of String) = Form1Reference.FilterList(Lines) + Form1Reference.ssh.StrokeFilter = False + + Catch ex As Exception + Throw + End Try + End Sub + +End Class \ No newline at end of file diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 3e53260..baf8411 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -6053,7 +6053,7 @@ NullResponseLine2: ' ######################## Risky Pick ######################### FrmCardList.PBRiskyPic.Image = Image.FromFile(ContactToUse.NavigateNextTease) - ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImagestr) Then + ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImageSTR) Then ' ######################## Domme Tags ######################### ShowImage(ssh.DommeImageSTR, True) @@ -6654,63 +6654,47 @@ Retry: ' ##################### Taunt from File ####################### Dim tauntFile As String = "StrokeTaunts" - If My.Settings.Chastity = True Then TauntFile = "ChastityTaunts" - If ssh.GlitterTease = True Then TauntFile = "GlitterTaunts" + If My.Settings.Chastity = True Then tauntFile = "ChastityTaunts" + If ssh.GlitterTease = True Then tauntFile = "GlitterTaunts" - Dim FileList As List(Of String) = myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", TauntFile & "_*.txt", SearchOption.TopDirectoryOnly).ToList + ' Read all tauntfiles and get available. + Dim TauntFiles As New List(Of TauntProcessingObject) - Do While FileList.Count > 0 - Dim FilePath As String = FileList(ssh.randomizer.Next(0, FileList.Count)) - Dim FileName As String = Path.GetFileNameWithoutExtension(FilePath) + For Each str As String In myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", tauntFile & "_*.txt", SearchOption.TopDirectoryOnly) + Dim Taunt As New TauntProcessingObject(str, Me) + If Taunt.Avaialable Then TauntFiles.Add(Taunt) + Next - ' Determine GroupSize - Dim GroupSize As Integer = 1 ' 1-based - If FileName.Length > 4 Then - ' get the last 4 numeric chars in filename and convert them to a number - Dim TmpString As String = "" + If TauntFiles.Count = 0 Then + ' No Taunt available + ssh.TauntText = "" + ssh.TauntLines = New List(Of String) + ssh.TauntTextCount = 0 + ssh.TempScriptCount = 0 + Else + ' Taunt available + Dim TauntToUse As TauntProcessingObject - For i = FileName.Length - 1 To FileName.Length - 4 Step -1 - If IsNumeric(FileName(i)) Then - TmpString = FileName(i) & TmpString - Else - Exit For - End If - Next + ' Increase chance of one line taunt + Dim OneLineChance As Integer = ssh.randomizer.Next(0, 101) - If IsNumeric(TmpString) Then GroupSize = CInt(TmpString) + If OneLineChance < 45 _ + AndAlso TauntFiles.Find(Function(x) x.TauntSize = 1) IsNot Nothing Then + ' 1 line taunts available, force to use it. + Dim OneLiners As List(Of TauntProcessingObject) = TauntFiles.Where(Function(x) x.TauntSize = 1).ToList + TauntToUse = OneLiners(ssh.randomizer.Next(0, OneLiners.Count)) + Else + ' Pick a random taunt size. + TauntToUse = TauntFiles(ssh.randomizer.Next(0, TauntFiles.Count)) End If - ssh.StrokeTauntCount = GroupSize - - Dim lines As List(Of String) = Txt2List(FilePath) - - ssh.StrokeFilter = True - Dim linesFiltered As List(Of String) = FilterList(lines) - ssh.StrokeFilter = False - - - If linesFiltered.Count > 0 AndAlso linesFiltered.Count >= GroupSize Then - - Dim GroupCount = linesFiltered.Count / GroupSize ' 1-based - Dim RndGroup As Integer = ssh.randomizer.Next(1, GroupCount + 1) - 1 ' 0-based - Dim ScriptLine As Integer = RndGroup * GroupSize - - ssh.TauntText = FilePath - ssh.TauntLines = linesFiltered - ssh.TauntTextCount = ScriptLine - ssh.TempScriptCount = GroupSize - 1 + ssh.TauntText = TauntToUse.FilePath + ssh.TauntLines = TauntToUse.Lines + ssh.TauntTextCount = TauntToUse.RandomTauntLine + ssh.TempScriptCount = TauntToUse.TauntSize - 1 - Exit Do - Else - ssh.TauntText = "" - ssh.TauntLines = New List(Of String) - ssh.TauntTextCount = 0 - ssh.TempScriptCount = 0 - - FileList.Remove(FilePath) - End If - Loop + End If Else ' ##################### Next Taunt line ####################### @@ -6719,7 +6703,7 @@ Retry: End If If ssh.TauntLines.Count > 0 Then - + Try ssh.DomTask = ssh.TauntLines(ssh.TauntTextCount) Catch ex As Exception @@ -6754,6 +6738,7 @@ Retry: End Sub + Public Sub CBTScript() Try Dim FilePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt" @@ -8135,10 +8120,10 @@ StatusUpdateEnd: 'BUG: #RandomSlideshowCategory does not work! The Variable RandomSlideshowCategory is never set. If StringClean.Contains("#RandomSlideshowCategory") Then StringClean = StringClean.Replace("#RandomSlideshowCategory", ssh.RandomSlideshowCategory) - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' ImageCount - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If StringClean.Contains("#LocalImageCount") Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' ImageCount + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If StringClean.Contains("#LocalImageCount") Then Dim temp As Dictionary(Of ImageGenre, ImageDataContainer) = GetImageData() Dim counter As Integer = 0 @@ -8481,7 +8466,7 @@ SkipTextedTags: Next End If -#If Trace Then +#If TRACE Then Trace.Unindent() #End If Loop @@ -8509,7 +8494,7 @@ SkipTextedTags: End If -#If trace Then +#If TRACE Then Trace.Unindent() #End If Return StringClean @@ -16994,16 +16979,16 @@ saveImage: Private Sub PicStripTSMIremoveFromURL_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIremoveFromURL.Click Try - ' Lock Control - PicStripTSMIremoveFromURL.Enabled = False + ' Lock Control + PicStripTSMIremoveFromURL.Enabled = False ' Remove from URL-Files. RemoveFromUrlFiles(ssh.ImageLocation) Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") End Try diff --git a/Tease AI/Tease AI.vbproj b/Tease AI/Tease AI.vbproj index 6aec9ff..180ba8d 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -117,6 +117,7 @@ + Component From a286672fc6ec270a2b380a5884c10e25a79c4ed1 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sat, 3 Dec 2016 17:57:04 +0100 Subject: [PATCH 007/143] Fix custom text tags * Fixes custom text image tags. To accomplish this the following steps were necessary: * Apply custom text after Image has been displayed. * ChatText had to be refreshed after the text is applied. Otherwise the raw text is displayed before applying the custom Text and updated soon after... Side effect: Text, Metronome, TTS and image output is now as synchronized as it can get. * Missing text for a tag isn't displayed as #Null anymore. It is now the identifier - #Tag (=> #TagGarment is displayed "Garment") * Fixes bug, where filtered taunt files with a single accessible line, were marked as unavailable. * Fixes bug, where taunt debugging added an error line after each taunt. As it turned out, the global boolean Application.Session.JustShowedBlogImage is able to cause some trouble. In ImageFetcher.RunWorkerCompleted's handler it's set to true what caused not applied text-tags on the first picture of a new slideshow. It was essential to detect if an image has been already displayed, as loading of images was accomplished by an unmanaged thread. After introducing Form1.BWimageFetcher and changing the logic, when to display what kind of image, it's obsolete now. To prevent future issues caused by this member, it should be removed. --- Tease AI/Classes/ContactData.vb | 76 ++++- Tease AI/Classes/State.vb | 40 ++- Tease AI/Classes/TauntProcessingObject.vb | 2 +- Tease AI/Form1.vb | 352 +++++----------------- Tease AI/Form1/ImageFuctions.vb | 2 - 5 files changed, 186 insertions(+), 286 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index b3cd322..3f896c6 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -51,13 +51,13 @@ Public Class ContactData End Get End Property - Public ReadOnly Property TypeFont As String '= FrmSettings.FontComboBoxD.Text + Public ReadOnly Property TypeFont As String Get Return My.Settings.DomFont End Get End Property - Public ReadOnly Property TypeSize As Integer '= FrmSettings.NBFontSizeD.Value + Public ReadOnly Property TypeSize As Integer Get Return My.Settings.DomFontSize End Get @@ -307,14 +307,20 @@ nextSubDir: Friend Sub LoadNew() Me.ImageList = GetRandom(Me.Contact) Me.Index = 0 + ImageTagCache.Clear() + LastreturnedImage = "" End Sub Sub CheckInit() If Me.Index = -1 And Me.Contact <> ContactType.Nothing Then Me.LoadNew() + LastreturnedImage = "" End Sub #Region "Navigation" + + Dim LastreturnedImage As String + Friend Function CurrentImage() As String If ImageList.Count > 0 And Index > -1 Then Return ImageList(Index) @@ -408,9 +414,7 @@ nextSubDir: #Region "Tagged Image" - ''' - ''' Used for caching tagged image results. - ''' + ''' Used to cache tagged image results. Private Class ImageTagCacheItem Friend TagImageList As New List(Of String) Friend LastPicked As String = "" @@ -494,6 +498,7 @@ SetForwardImage: If Ts.TraceVerbose Then Trace.WriteLine("Distance of image = " & CurrDist) #End If If RememberResult Then ImagePaths.LastPicked = rtnPath + LastreturnedImage = rtnPath Return rtnPath End If @@ -517,6 +522,8 @@ SetForwardImage: End Try End Function + ''' Returns a list of filepaths for the given tags. + ''' The tags to retrieve the list. Private Function GetImageListByTag(ByVal ImageTags As String) As ImageTagCacheItem Try #If TRACE Then @@ -535,6 +542,7 @@ redo: ElseIf ImageTagCache.Keys.Contains(ImageTags) Then '=================================================================== ' Previous cached result + #If TRACE Then If Ts.TraceVerbose Then Trace.WriteLine("Loading DommeTags from Cache.") #End If @@ -617,8 +625,62 @@ redo: End Try End Function -#End Region +#End Region ' Tagged images -#End Region +#End Region ' Image navigation + + + Friend Function ApplyTextedTags(ByVal ModifyString As String) As String + ApplyTextedTags = ModifyString + Try + ' ################### Get displayed Image ##################### + Dim DisplayedImage As String + + If String.IsNullOrWhiteSpace(LastreturnedImage) Then + DisplayedImage = CurrentImage() + Else + DisplayedImage = LastreturnedImage + End If + + ' #################### Get line for image ##################### + Dim TagFilePath As String = Path.GetDirectoryName(DisplayedImage) & "\ImageTags.txt" + Dim FileName As String = Path.GetFileName(DisplayedImage) + + If Not File.Exists(TagFilePath) Then Exit Function + + ' Read tagfile and find line for displayed image. + Dim Line As String = Txt2List(TagFilePath).Find(Function(x) x.StartsWith(FileName, StringComparison.OrdinalIgnoreCase)) + If Line Is Nothing Then Exit Function + + ' ################### Create Regex Pattern #################### + ' + ' Named Group is the identifier for replacement. Joined from StringArray. + ' TagGarment is used twice. Therefore it searches for "TagGarment" not followed by "Covering". + ' + ' Named group is the value to replace the identifier with. Allows all chars except whitespaces. + Dim Pattern As String = String.Format("(?{0})(?[^\s]+)", + Join({"TagGarment(?!Covering)", + "TagUnderwear", + "TagTattoo", + "TagSexToy", + "TagFurniture"}, "|")) + + ' ################ Find and replace matches ################### + Dim re As Regex = New Regex(Pattern, RegexOptions.IgnoreCase) + Dim mc As MatchCollection = re.Matches(Line) + + For Each Tag As Match In mc + ApplyTextedTags = ApplyTextedTags.Replace("#" & Tag.Groups("ident").Value, + Tag.Groups("value").Value.Replace("-", " ")) + Next + + ' Replace remaining tag-keywords to mask missing tags. + ApplyTextedTags = ApplyTextedTags.Replace("#Tag", "") + + Catch ex As Exception + Log.WriteError(ex.Message, ex, "ApplyTextedTags(String)") + End Try + + End Function End Class diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 825db33..cf94e4c 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -305,12 +305,33 @@ Public Class SessionState Public Property AssImage As Boolean = False Public Property BoobImage As Boolean = False - Public Property FoundTag As String = "Null" - Public Property TagGarment As String = "NULL" - Public Property TagUnderwear As String = "NULL" - Public Property TagTattoo As String = "NULL" - Public Property TagSexToy As String = "NULL" - Public Property TagFurniture As String = "NULL" +#Region "Tags: all deprecated" + + + + Public Property FoundTag As String = "Null" + + + + Public Property TagGarment As String = "NULL" + + + + Public Property TagUnderwear As String = "NULL" + + + + Public Property TagTattoo As String = "NULL" + + + + Public Property TagSexToy As String = "NULL" + + + + Public Property TagFurniture As String = "NULL" + +#End Region ' Tags Public Property BookmarkModule As Boolean = False Public Property BookmarkModuleFile As String @@ -347,9 +368,14 @@ Public Class SessionState Public Property CustomSlideshow As New CustomSlideshow Public Property DommeImageFound As Boolean - Public Property DommeImageSTR As String + + + + Public Property DommeImageSTR As String + Public Property DomPic As String + Public Property JustShowedBlogImage As Boolean = False Public Property JustShowedSlideshowImage As Boolean = False Public Property LockImage As Boolean diff --git a/Tease AI/Classes/TauntProcessingObject.vb b/Tease AI/Classes/TauntProcessingObject.vb index 84fafc5..90888ab 100644 --- a/Tease AI/Classes/TauntProcessingObject.vb +++ b/Tease AI/Classes/TauntProcessingObject.vb @@ -59,7 +59,7 @@ Public Class TauntProcessingObject ''' Returns true, if taunt has valid lines and right ammount. ReadOnly Property Avaialable As Boolean Get - If Lines.Count > 0 AndAlso Lines.Count > TauntSize Then + If Lines.Count > 0 AndAlso Lines.Count >= TauntSize Then Return True Else Return False diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index baf8411..3631249 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -5262,9 +5262,6 @@ NullResponse: If ssh.SysMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomTask & "
" ssh.SysMes = False - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() GoTo EndSysMes End If @@ -5272,9 +5269,6 @@ NullResponse: ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomTask & "
" ssh.EmoMes = False - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() GoTo EndSysMes End If @@ -5297,9 +5291,6 @@ NullResponse: End If - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomTask & "
" @@ -5321,9 +5312,6 @@ NullResponse: ssh.TypeToggle = 0 - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomTask & "
" @@ -5334,14 +5322,6 @@ EndSysMes: - ScrollChatDown() - - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) - - ' Dsplay the next picture in the slideshow as the domme responds if "With Tease" radio button is checked - - - ssh.SubWroteLast = False End If @@ -5372,6 +5352,13 @@ DommeSlideshowFallback: ShowImage(ssh.SlideshowMain.NavigateNextTease, True) End If + If ssh.DomTask <> "" AndAlso ContactToUse IsNot Nothing AndAlso ShowPicture Then + ' Apply texted Tags, after displaying an image. + Dim OutputOrg As String = ssh.DomTask + ssh.DomTask = ContactToUse.ApplyTextedTags(OutputOrg) + ssh.Chat = ssh.Chat.Replace(OutputOrg, ssh.DomTask) + End If + Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ContactToUse = Nothing @@ -5390,9 +5377,17 @@ DommeSlideshowFallback: ShowPicture = False End Try + ' #################### Update ChatText ######################## + ' Since ssh.Chat is not modified on NullResponse etc. we can display it every time. + ' --> This will disallow to scroll up in chat. + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + ScrollChatDown() + If My.Settings.CBAutosaveChatlog Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) - + ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ And TTSVoice <> "No voices installed" _ And ssh.DomTask <> "" Then @@ -5968,9 +5963,6 @@ TryNextWithTease: If ssh.SysMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" ssh.SysMes = False - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() GoTo EndSysMes End If @@ -5978,9 +5970,6 @@ TryNextWithTease: ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" ssh.EmoMes = False - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() GoTo EndSysMes End If @@ -6003,9 +5992,6 @@ TryNextWithTease: End If - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomChat & "
" @@ -6021,9 +6007,6 @@ TryNextWithTease: End If ssh.TypeToggle = 0 - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomChat & "
" @@ -6033,12 +6016,6 @@ TryNextWithTease: EndSysMes: - - ScrollChatDown() - - - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) - ssh.SubWroteLast = False NullResponseLine2: @@ -6067,6 +6044,12 @@ DommeSlideshowFallback: ShowImage(ssh.SlideshowMain.NavigateNextTease, True) End If + If ssh.DomChat <> "" AndAlso ContactToUse IsNot Nothing AndAlso ShowPicture Then + ' Apply texted Tags, after displaying an image. + Dim OutputOrg As String = ssh.DomChat + ssh.DomChat = ContactToUse.ApplyTextedTags(OutputOrg) + ssh.Chat = ssh.Chat.Replace(OutputOrg, ssh.DomChat) + End If Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ContactToUse = Nothing @@ -6085,6 +6068,17 @@ DommeSlideshowFallback: ShowPicture = False End Try + ' #################### Update ChatText ######################## + ' Since ssh.Chat is not modified on NullResponse etc. we can display it every time. + ' --> This will disallow to scroll up in chat. + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + ScrollChatDown() + + If My.Settings.CBAutosaveChatlog Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + + ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ And TTSVoice <> "No voices installed" _ And ssh.DomChat <> "" Then @@ -6648,7 +6642,7 @@ Retry: ssh.TauntText = "Debug-Menu" ssh.TauntLines = Lines ssh.TauntTextCount = 0 - ssh.TempScriptCount = Lines.Count + ssh.TempScriptCount = Lines.Count - 1 ElseIf ssh.TempScriptCount <= 0 Then ' ##################### Taunt from File ####################### @@ -8328,7 +8322,12 @@ StatusUpdateEnd: Dim OrgString As String = StringClean Dim Recurrence As Integer = 0 - Do While Recurrence < 5 AndAlso (StringClean.Contains("#") Or StringClean.Contains("@Tag")) + ' Create Regex-Pattern to find #Keywords and exclude custom imagetags. + Dim ExcludeKeywords As String() = {"TagGarment", "TagUnderwear", "TagTattoo", "TagSexToy", "TagFurniture"} + Dim Pattern As String = String.Format("##*(?!{0})[\w\d\+\-_]+", Join(ExcludeKeywords, "|")) + Dim RegexKeyWords As New Regex(Pattern) + + Do While Recurrence < 5 AndAlso RegexKeyWords.IsMatch(StringClean) Recurrence += 1 #If TRACE Then @@ -8343,135 +8342,48 @@ StatusUpdateEnd: If TS.TraceVerbose Then Trace.WriteLine(String.Format("System keywords cleaned: ""{0}""", StringClean)) #End If + ' Find all remaining #Keywords. + Dim re As New Regex(Pattern, RegexOptions.IgnoreCase) + Dim mc As MatchCollection = re.Matches(StringClean) - 'Bug: TextedTags have to be applied after the image is displayed. - ssh.FoundTag = "NULL" - Dim slide As ContactData = ssh.SlideshowMain - If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags - - Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" - - If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ - AndAlso File.Exists(TagFilePath) Then - ' Read all lines of the given file. - Dim TagList As List(Of String) = Txt2List(TagFilePath) - - Try - For t As Integer = 0 To TagList.Count - 1 - 'Debug.Print("TagList(t) = " & TagList(t)) - If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then - ssh.FoundTag = TagList(t) - Dim FoundTagSplit As String() = Split(ssh.FoundTag) - For j As Integer = 0 To FoundTagSplit.Length - 1 - If FoundTagSplit(j).Contains("TagGarment") Then - ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") - ssh.TagGarment = ssh.TagGarment.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagUnderwear") Then - ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") - ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagTattoo") Then - ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") - ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagSexToy") Then - ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") - ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagFurniture") Then - ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") - ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") - End If - - Next - Exit For - End If - Next - Catch - End Try - End If - - - 'Debug.Print("TagGarment = " & TagGarment) - 'Debug.Print("TagUnderwear = " & TagUnderwear) - 'Debug.Print("TagTattoo = " & TagTattoo) - 'Debug.Print("TagSexToy = " & TagSexToy) - 'Debug.Print("TagFurniture = " & TagFurniture) - 'Debug.Print("FoundTag = " & FoundTag) - - - StringClean = StringClean.Replace("#TagGarment", ssh.TagGarment) - StringClean = StringClean.Replace("#TagUnderwear", ssh.TagUnderwear) - StringClean = StringClean.Replace("#TagTattoo", ssh.TagTattoo) - StringClean = StringClean.Replace("#TagSexToy", ssh.TagSexToy) - StringClean = StringClean.Replace("#TagFurniture", ssh.TagFurniture) -SkipTextedTags: - - If StringClean.Contains("#") Or StringClean.Contains("@Tag") Then - - Dim re As New Regex("#[#\w\d\+\-_]+", RegexOptions.IgnoreCase) - Dim mc As MatchCollection = re.Matches(StringClean) - - For Each keyword As Match In mc + ' Try to get content from file. + For Each keyword As Match In mc #If TRACE Then - If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) + If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) #End If - Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" + Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" - If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then - Dim lines As List(Of String) = Txt2List(filepath) + If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then + Dim lines As List(Of String) = Txt2List(filepath) - Try - lines = FilterList(lines) - Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) - StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - Catch ex As Exception - Log.WriteError("Error Processing vocabulary file: " & filepath, ex, - "Tease AI did not return a valid line while parsing vocabulary file.") - StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value - End Try - - StringClean = StringClean.Replace("TagFace", "") - StringClean = StringClean.Replace("TagBoobs", "") - StringClean = StringClean.Replace("TagPussy", "") - StringClean = StringClean.Replace("TagAss", "") - StringClean = StringClean.Replace("TagFeet", "") - StringClean = StringClean.Replace("TagFullyDressed", "") - StringClean = StringClean.Replace("TagHalfDressed", "") - StringClean = StringClean.Replace("TagNaked", "") - StringClean = StringClean.Replace("TagSideView", "") - StringClean = StringClean.Replace("TagCloseUp", "") - StringClean = StringClean.Replace("TagMasturbating", "") - StringClean = StringClean.Replace("TagSucking", "") - StringClean = StringClean.Replace("TagSmiling", "") - StringClean = StringClean.Replace("TagGlaring", "") - StringClean = StringClean.Replace("TagSeeThrough", "") - StringClean = StringClean.Replace("TagAllFours", "") + Try + lines = FilterList(lines) + Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + Catch ex As Exception + Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + "Tease AI did not return a valid line while parsing vocabulary file.") + StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value + End Try - Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + Else + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") - End If + End If - Next + Next - End If #If TRACE Then Trace.Unindent() #End If Loop - If StringClean.Contains("#") Then + If RegexKeyWords.IsMatch(StringClean) Then #If TRACE Then If TS.TraceError Then Trace.WriteLine("PoundClean(String): Stopping scan, maximum allowed scan depth reached.") @@ -13644,56 +13556,6 @@ VTSkip: Trace.WriteLine("FilterList Started") Trace.Indent() #End If - 'TDOD: Optimze Code "TextedTags" - ssh.FoundTag = "NULL" - Dim slide As ContactData = ssh.SlideshowMain - If slide.CurrentImage = String.Empty Then GoTo SkipTextedTags - - Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" - - If (ssh.SlideshowLoaded = True And mainPictureBox.Image IsNot Nothing And DomWMP.Visible = False) _ - AndAlso File.Exists(TagFilePath) Then - Try - Dim TagList As List(Of String) = Txt2List(TagFilePath) - - For t As Integer = 0 To TagList.Count - 1 - 'Debug.Print("TagList(t) = " & TagList(t)) - If TagList(t).Contains(Path.GetFileName(slide.CurrentImage)) Then - ssh.FoundTag = TagList(t) - Dim FoundTagSplit As String() = Split(ssh.FoundTag) - For j As Integer = 0 To FoundTagSplit.Length - 1 - If FoundTagSplit(j).Contains("TagGarment") Then - ssh.TagGarment = FoundTagSplit(j).Replace("TagGarment", "") - ssh.TagGarment = ssh.TagGarment.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagUnderwear") Then - ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") - ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagTattoo") Then - ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") - ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagSexToy") Then - ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") - ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") - End If - - If FoundTagSplit(j).Contains("TagFurniture") Then - ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") - ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") - End If - Next - Exit For - End If - Next - Catch - End Try - End If -SkipTextedTags: Dim FilterPass As Boolean Dim ListIncrement As Integer = 1 @@ -13750,15 +13612,6 @@ SkipTextedTags: If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) Next - 'BUG: Texted Tags are not working. - For x As Integer = 0 To ListClean.Count - 1 - ListClean(x) = ListClean(x).Replace("#TagGarment", ssh.TagGarment.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagUnderwear", ssh.TagUnderwear.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagTattoo", ssh.TagTattoo.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagSexToy", ssh.TagSexToy.Replace("-", " ")) - ListClean(x) = ListClean(x).Replace("#TagFurniture", ssh.TagFurniture.Replace("-", " ")) - Next - Dim FilteredList As New List(Of String) 'For i As Integer = 0 To ListClean.Count - 1 @@ -13778,6 +13631,21 @@ SkipTextedTags: Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean Dim OrgFilterString As String = FilterString Try + Dim FilterContact As ContactData + Dim Comp As IEqualityComparer = StringComparer.OrdinalIgnoreCase + + If FilterString.ToLower.Contains("@contact1") Then + FilterContact = ssh.SlideshowContact1 + ElseIf FilterString.ToLower.Contains("@contact2") Then + FilterContact = ssh.SlideshowContact2 + ElseIf FilterString.ToLower.Contains("@contact3") Then + FilterContact = ssh.SlideshowContact3 + ElseIf ContactToUse IsNot Nothing Then + FilterContact = ContactToUse + Else + FilterContact = ssh.SlideshowMain + End If + If Linear = False Then '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Commands to sort out @@ -13793,16 +13661,8 @@ SkipTextedTags: 'QND-Implemented: ContactData.GetTaggedImage If ssh.LockImage = True Then Return False - ElseIf FilterString.ToLower.Contains("@contact1") Then - If ssh.SlideshowContact1.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf FilterString.ToLower.Contains("@contact2") Then - If ssh.SlideshowContact2.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf FilterString.ToLower.Contains("@contact3") Then - If ssh.SlideshowContact3.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - ElseIf ContactToUse IsNot Nothing Then - If ContactToUse.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False Else - Return False + If FilterContact.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False End If End If @@ -14039,30 +13899,6 @@ SkipTextedTags: If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False End If - If FilterString.ToLower.Contains("@tagface") And Not ssh.FoundTag.ToLower.Contains("tagface") Then Return False - If FilterString.ToLower.Contains("@tagboobs") And Not ssh.FoundTag.ToLower.Contains("tagboobs") Then Return False - If FilterString.ToLower.Contains("@tagpussy") And Not ssh.FoundTag.ToLower.Contains("tagpussy") Then Return False - If FilterString.ToLower.Contains("@tagass") And Not ssh.FoundTag.ToLower.Contains("tagass") Then Return False - If FilterString.ToLower.Contains("@tagfeet") And Not ssh.FoundTag.ToLower.Contains("tagfeet") Then Return False - If FilterString.ToLower.Contains("@taglegs") And Not ssh.FoundTag.ToLower.Contains("taglegs") Then Return False - If FilterString.ToLower.Contains("@tagmasturbating") And Not ssh.FoundTag.ToLower.Contains("tagmasturbating") Then Return False - If FilterString.ToLower.Contains("@tagsucking") And Not ssh.FoundTag.ToLower.Contains("tagsucking") Then Return False - If FilterString.ToLower.Contains("@tagfullydressed") And Not ssh.FoundTag.ToLower.Contains("tagfullydressed") Then Return False - If FilterString.ToLower.Contains("@taghalfdressed") And Not ssh.FoundTag.ToLower.Contains("taghalfdressed") Then Return False - If FilterString.ToLower.Contains("@taggarmentcovering") And Not ssh.FoundTag.ToLower.Contains("taggarmentcovering") Then Return False - If FilterString.ToLower.Contains("@taghandscovering") And Not ssh.FoundTag.ToLower.Contains("taghandscovering") Then Return False - If FilterString.ToLower.Contains("@tagnaked") And Not ssh.FoundTag.ToLower.Contains("tagnaked") Then Return False - If FilterString.ToLower.Contains("@tagsideview") And Not ssh.FoundTag.ToLower.Contains("tagsideview") Then Return False - If FilterString.ToLower.Contains("@tagcloseup") And Not ssh.FoundTag.ToLower.Contains("tagcloseup") Then Return False - If FilterString.ToLower.Contains("@tagpiercing") And Not ssh.FoundTag.ToLower.Contains("tagpiercing") Then Return False - If FilterString.ToLower.Contains("@tagsmiling") And Not ssh.FoundTag.ToLower.Contains("tagsmiling") Then Return False - If FilterString.ToLower.Contains("@tagglaring") And Not ssh.FoundTag.ToLower.Contains("tagglaring") Then Return False - If FilterString.ToLower.Contains("@taggarment") And Not ssh.FoundTag.ToLower.Contains("taggarment") Then Return False - If FilterString.ToLower.Contains("@tagunderwear") And Not ssh.FoundTag.ToLower.Contains("tagunderwear") Then Return False - If FilterString.ToLower.Contains("@tagtattoo") And Not ssh.FoundTag.ToLower.Contains("tagtattoo") Then Return False - If FilterString.ToLower.Contains("@tagsextoy") And Not ssh.FoundTag.ToLower.Contains("tagsextoy") Then Return False - If FilterString.ToLower.Contains("@tagfurniture") And Not ssh.FoundTag.ToLower.Contains("tagfurniture") Then Return False - If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False If FilterString.ToLower.Contains("@cockaverage") Then If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False @@ -14370,29 +14206,7 @@ SkipTextedTags: .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@TagFace", Not ssh.FoundTag.Contains("TagFace")) - .Add("@TagBoobs", Not ssh.FoundTag.Contains("TagBoobs")) - .Add("@TagPussy", Not ssh.FoundTag.Contains("TagPussy")) - .Add("@TagAss", Not ssh.FoundTag.Contains("TagAss")) - .Add("@TagFeet", Not ssh.FoundTag.Contains("TagFeet")) - .Add("@TagLegs", Not ssh.FoundTag.Contains("TagLegs")) - .Add("@TagMasturbating", Not ssh.FoundTag.Contains("TagMasturbating")) - .Add("@TagSucking", Not ssh.FoundTag.Contains("TagSucking")) - .Add("@TagFullyDressed", Not ssh.FoundTag.Contains("TagFullyDressed")) - .Add("@TagHalfDressed", Not ssh.FoundTag.Contains("TagHalfDressed")) - .Add("@TagGarmentCovering", Not ssh.FoundTag.Contains("TagGarmentCovering")) - .Add("@TagHandsCovering", Not ssh.FoundTag.Contains("TagHandsCovering")) - .Add("@TagNaked", Not ssh.FoundTag.Contains("TagNaked")) - .Add("@TagSideView", Not ssh.FoundTag.Contains("TagSideView")) - .Add("@TagCloseUp", Not ssh.FoundTag.Contains("TagCloseUp")) - .Add("@TagPiercing", Not ssh.FoundTag.Contains("TagPiercing")) - .Add("@TagSmiling", Not ssh.FoundTag.Contains("TagSmiling")) - .Add("@TagGlaring", Not ssh.FoundTag.Contains("TagGlaring")) - .Add("@TagGarment", Not ssh.FoundTag.Contains("TagGarment")) - .Add("@TagUnderwear", Not ssh.FoundTag.Contains("TagUnderwear")) - .Add("@TagTattoo", Not ssh.FoundTag.Contains("TagTattoo")) - .Add("@TagSexToy", Not ssh.FoundTag.Contains("TagSexToy")) - .Add("@TagFurniture", Not ssh.FoundTag.Contains("TagFurniture")) + .Add("@FirstRound", ssh.FirstRound = False) .Add("@NotFirstRound", ssh.FirstRound = True) .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) @@ -14457,7 +14271,7 @@ SkipTextedTags: .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) - .Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. + '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. .Add("@BeforeTease", ssh.BeforeTease = False) .Add("@OrgasmDenied", ssh.OrgasmDenied = False) .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) diff --git a/Tease AI/Form1/ImageFuctions.vb b/Tease AI/Form1/ImageFuctions.vb index 35e764a..50b133a 100644 --- a/Tease AI/Form1/ImageFuctions.vb +++ b/Tease AI/Form1/ImageFuctions.vb @@ -804,8 +804,6 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima If TypeOf e.Error Is TimeoutException Then Debug.Print(e.Error.Message) If e.Error IsNot Nothing Then Exit Sub - ssh.JustShowedBlogImage = True - If e.Cancelled Then MainPictureboxSetImage(New Bitmap(Image.FromFile(pathImageErrorOnLoading)), "") Exit Sub From 485d4d9090e94652c165370ddf6c0cf7497759f9 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sat, 3 Dec 2016 18:15:21 +0100 Subject: [PATCH 008/143] Readme updated --- README.md | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 53de50a..adde0b4 100644 --- a/README.md +++ b/README.md @@ -10,12 +10,12 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added Features: * Added new sorting method to sort file lists like the Windows file Explorer does. - * PoundClean reworked to support system keywords as parameters inside of vocabulary files. In order to prevent infinite loops, the maximum allowed depth is limited to 5 times. Tip: take a look at the logfile to see how it's working. + * PoundClean reworked to support system keywords as parameters inside vocabulary files. In order to prevent infinite loops, the maximum allowed depth is limited to 5 times. Tip: take a look at the logfile to see how it's working. * All Contacts and Domme are able to use @DommeTag(). - * Chastity, Glitter and Taunt-files reworked to increase fault tolerance and correct line grouping. 2c588ffed4f03f17813d3e5bd290a3351b9bb8b2 + * Chastity, Glitter and Taunt-files reworked to increase fault tolerance and correct line grouping. 2c588ffed4f03f17813d3e5bd290a3351b9bb8b2. It tries with a 45% chance to pick a 1-line-taunt. Otherwise it picks randomly from all available taunt sizes. * Removed Features: - * @DommeTag() doesn't alternate the given tags to return a result. (stefaf) The idea was worth to try. + * @DommeTag() doesn't alternate the given tags to return a result. (stefaf) The idea was worth a try. * Bugfixes: * After using an ImageCommand the slideshow was locked. @@ -24,6 +24,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Vitalsub didn't read calorie items from file at startup. * MouseOver LblDomImagedir caused an unhandled exception. * RiskyPick Images haven't been updated. + * Custom text tags (#TagGarment, #TagUnderwear etc.) for images fixed. Note: The new code will set data for the current displayed image and not leftover data from filtering, as in the old code. Make sure to set that data for your Images! * Miscellaneous: * GUI-Rework Settings Glitter-Tab -> Databindings Complete. @@ -31,7 +32,6 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Enhanced logging: It is now possible to customize the logging without the need to recompile. Simply open up Tease-AI.exe.config using a text editor and edit the switch values as described in the file - keep in mind to backup the file before. ;-) Added rollover function, if the log file is bigger as 2 MB. Instead of deleting the complete file, now only the top entries are deleted. ### Known Issues: -* Texted imagetags are not working. * @BookmarkModule * causes a script freeze at EOF, when taunts are interrupted. (Occured in Debug->Run Script) * seem to break if a miniscript (and maybe others) is called during the taunt. From 01e1982810757699de23443499d7e8bda1f4a67f Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sun, 4 Dec 2016 17:29:38 +0100 Subject: [PATCH 009/143] Small code cleanup --- Tease AI/Form1.vb | 131 ++++++++++++++++++++++------------------------ Tease AI/Form2.vb | 5 +- 2 files changed, 67 insertions(+), 69 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 3631249..416ee69 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1164,6 +1164,31 @@ retryStart: End Try End Sub + Private Sub Form1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + If e.KeyCode = (Keys.F Or Keys.Control) Then + FullscreenToolStripMenuItem_Click(Nothing, Nothing) + ElseIf e.Alt AndAlso MainMenuStrip.Visible = False Then + MainMenuStrip.Visible = True + MainMenuStrip.Focus() + ElseIf e.Alt AndAlso FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + MainMenuStrip.Visible = False + End If + End Sub + + Private Sub Form1_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize + If Me.IsHandleCreated = False Then Exit Sub + If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + Exit Sub + ElseIf Me.WindowState = FormWindowState.Maximized Then + My.Settings.WindowHeight = 0 + My.Settings.WindowWidth = 0 + Else + My.Settings.WindowHeight = Me.Height + My.Settings.WindowWidth = Me.Width + End If + + End Sub + Public Sub ResetButton() @@ -14493,6 +14518,36 @@ VTSkip: End If End Sub + Public Sub ScrollChatDown() + + Try + ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + + End Sub + + Public Sub ClearChat() + + ssh.Chat = "" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + + End Sub + + Public Sub ChatReadyState() + While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete + Application.DoEvents() + End While + ScrollChatDown() + End Sub + #End Region ' Chatbox #Region "------------------------------------ Avoid the Edge --------------------------------------------" @@ -16906,21 +16961,6 @@ saveImage: End Sub - Public Sub ScrollChatDown() - - Try - ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - - End Sub - - Private Sub StatusUpdates_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted @@ -17217,6 +17257,12 @@ restartInstantly: #Region "------------------------------------------------------ MenuStuff -----------------------------------------------------" + Private Sub MenuStrip2_Leave(sender As System.Object, e As System.EventArgs) Handles MenuStrip2.Leave + If FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + MainMenuStrip.Visible = False + End If + End Sub + #Region "-------------------------------------------------------- File --------------------------------------------------------" Private Sub dompersonalitycombobox_LostFocus(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.LostFocus @@ -18047,8 +18093,6 @@ restartInstantly: ssh.ScriptTick = 1 ScriptTimer.Start() - ApplyThemeColor() - End If End Sub @@ -18082,21 +18126,6 @@ restartInstantly: #End Region ' Menu - Private Sub Form1_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize - If Me.IsHandleCreated = False Then Exit Sub - If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - Exit Sub - ElseIf Me.WindowState = FormWindowState.Maximized Then - My.Settings.WindowHeight = 0 - My.Settings.WindowWidth = 0 - Else - My.Settings.WindowHeight = Me.Height - My.Settings.WindowWidth = Me.Width - End If - - End Sub - - @@ -18234,8 +18263,6 @@ restartInstantly: End Sub - Public Sub ApplyThemeColor() - End Sub @@ -20033,7 +20060,8 @@ restartInstantly: #End Region ' Vital Sub Public Sub MetronomeTick() - + '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× + ' Metronome-Thread Dim wavFilepath As String = Application.StartupPath & "\Audio\System\metronome.wav" Dim MetroSoundPlayer As Media.SoundPlayer = Nothing Dim wavStream As MemoryStream @@ -20077,6 +20105,7 @@ playLoop: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ 'TODO: MetronomeExceptions: Add possibility to restart the thread. End Try + '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° END of Thread °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° End Sub #Region "-------------------------------------------------- Metronome-App -----------------------------------------------------" @@ -20378,22 +20407,6 @@ playLoop: CloseApp(Nothing) End Sub - Public Sub ClearChat() - - ssh.Chat = "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - End Sub - - Public Sub ChatReadyState() - While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete - Application.DoEvents() - End While - ScrollChatDown() - End Sub - Public Function GetIf(ByVal CompareString As String) As Boolean @@ -20464,22 +20477,6 @@ playLoop: Return Len(StringClean) - Len(Replace(StringClean, Character, "")) End Function - Private Sub Form1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown - If e.KeyCode = (Keys.F Or Keys.Control) Then - FullscreenToolStripMenuItem_Click(Nothing, Nothing) - ElseIf e.Alt AndAlso MainMenuStrip.Visible = False Then - MainMenuStrip.Visible = True - MainMenuStrip.Focus() - ElseIf e.Alt AndAlso FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - MainMenuStrip.Visible = False - End If - End Sub - - Private Sub MenuStrip2_Leave(sender As System.Object, e As System.EventArgs) Handles MenuStrip2.Leave - If FormBorderStyle = Windows.Forms.FormBorderStyle.None Then - MainMenuStrip.Visible = False - End If - End Sub End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 031ebb4..707c107 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -9707,7 +9707,6 @@ checkFolder: MessageBox.Show(Me, "This Theme settings file is invalid or has been edited incorrectly!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try - Form1.ApplyThemeColor() End If @@ -9736,7 +9735,9 @@ checkFolder: Private Sub CheckBox1_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBFlipBack.CheckedChanged Try - If Form1.FormLoading = False And Form1.ApplyingTheme = False Then Form1.ApplyThemeColor() + If Form1.FormLoading = False And Form1.ApplyingTheme = False Then + 'TODO: implement Flip Background + End If Catch End Try From 9589027da05d56de6787efcaaee18513f9ded2ab Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sun, 4 Dec 2016 17:53:14 +0100 Subject: [PATCH 010/143] MiniScript GetGotoChat * partially resolves Issue #14 * CatchBlock for regular Goto was unreachable. ## Solves the following error: "If you use a Goto in a multiple choice branch, the miniscript returns not to the correct line from where you called it, but it doesn't return to a random line, it returns to the line number where the MiniScript ends. As an example: You call a miniscript from line 10 in /Stroke/Start/Hello.txt, the miniscript ends with an @End in line 40. if it comes inside the miniscript to a Goto like described before, the Goto works fine, but the miniscript will not return to line 10 but instead to line 41 of /Stroke/Start/Hello.txt. I don't know if that is the only problem, but I guess thats the worst part of it." ## used TestScripts: * Before fix: No branch in miniscript caused continuation of Startscript in Line index 12. Yes caused continuation in line 7 or so -> both infinite loops. * Afterwards: No infinite loops and execution continues in line index 13. ### StartScript: (retry) Bufferline 1 @RTOn Bufferline 2 Bufferline 3 Bufferline 4 Bufferline 5 Bufferline 6 Bufferline 7 Bufferline 8 Bufferline 9 Bufferline 10 Bufferline 11 Starting MiniScript @MiniScript(Test) After miniscript Retry? [yes] Restarting @Goto(retry) [No] EndTease @Goto(EndTease) @DifferentAnswer Retry? (EndTease) @EndTease ### MiniScript Miniscript Start : 0 Bufferline - Miniscript : 1 Starting Multiple choice : 2 [yes] going to yes @Goto(YesBranch) : 3 [no] going to no @Goto(NoBranch) : 4 @DifferentAnswer Yes or No required : 5 (YesBranch) : 6 Yes branch started : 8 Bufferline - Yes branch : 9 Miniscript End - Yes : 10 @End (NoBranch) : 11 No branch started : 12 Bufferline - No branch : 13 Miniscript End - No : 14 @End --- Tease AI/Form1.vb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 416ee69..d0df485 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -3825,7 +3825,7 @@ AcceptAnswer: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Throw New ArgumentOutOfRangeException("The Miniscript-Goto-Destination """ & ssh.FileGoto & """ in file """ & GotoText & """ was not found.", ex) - Catch ex As ArgumentOutOfRangeException When ssh.MiniScript = True + Catch ex As ArgumentOutOfRangeException When ssh.MiniScript = False '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' ArgumentOutOfRangeException - Regular Script '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ @@ -3833,8 +3833,6 @@ AcceptAnswer: """ in file """ & GotoText & """ was not found.", ex) End Try - 'QUESTION (stefaf): Is this line an error? - ssh.StrokeTauntVal = gotoline If ssh.MiniScript = True Then ssh.MiniTauntVal = gotoline From ca27c4fc87ee069fe8fa3bc6529bc276f7f3dc0f Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sun, 4 Dec 2016 18:02:32 +0100 Subject: [PATCH 011/143] Readme updated --- README.md | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index adde0b4..7522bc8 100644 --- a/README.md +++ b/README.md @@ -12,7 +12,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added new sorting method to sort file lists like the Windows file Explorer does. * PoundClean reworked to support system keywords as parameters inside vocabulary files. In order to prevent infinite loops, the maximum allowed depth is limited to 5 times. Tip: take a look at the logfile to see how it's working. * All Contacts and Domme are able to use @DommeTag(). - * Chastity, Glitter and Taunt-files reworked to increase fault tolerance and correct line grouping. 2c588ffed4f03f17813d3e5bd290a3351b9bb8b2. It tries with a 45% chance to pick a 1-line-taunt. Otherwise it picks randomly from all available taunt sizes. + * Removed Features: * @DommeTag() doesn't alternate the given tags to return a result. (stefaf) The idea was worth a try. @@ -25,11 +25,13 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * MouseOver LblDomImagedir caused an unhandled exception. * RiskyPick Images haven't been updated. * Custom text tags (#TagGarment, #TagUnderwear etc.) for images fixed. Note: The new code will set data for the current displayed image and not leftover data from filtering, as in the old code. Make sure to set that data for your Images! + * Multiple choice gotos inside MiniScripts caused the calling script to resume at the goto position of the MiniScript. * Miscellaneous: * GUI-Rework Settings Glitter-Tab -> Databindings Complete. * Optimized performance of @ShowTaggedImage code. * Enhanced logging: It is now possible to customize the logging without the need to recompile. Simply open up Tease-AI.exe.config using a text editor and edit the switch values as described in the file - keep in mind to backup the file before. ;-) Added rollover function, if the log file is bigger as 2 MB. Instead of deleting the complete file, now only the top entries are deleted. + * Chastity, Glitter and Taunt-files reworked to increase fault tolerance and correct line grouping. 2c588ffed4f03f17813d3e5bd290a3351b9bb8b2. It tries with a 45% chance to pick a 1-line-taunt. Otherwise it picks randomly from all available taunt sizes. ### Known Issues: * @BookmarkModule From 3828e2ecff8dc5752bfcf6b712b5424f417a48b9 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Mon, 5 Dec 2016 21:55:21 +0100 Subject: [PATCH 012/143] Update README.md --- README.md | 2 ++ 1 file changed, 2 insertions(+) diff --git a/README.md b/README.md index 7522bc8..dcbca80 100644 --- a/README.md +++ b/README.md @@ -1,6 +1,8 @@ # Tease-AI Tease AI is adult-oriented software that aims to create an interactive tease and denial experience by emulating an online chat session with a domme. +Daragorn TestLine + # Todo: Stefaf: Integration of Class myDirectory: Status ongoing. From c1626a2e5ea4f85a642ec95cdcc2eb7160c1f148 Mon Sep 17 00:00:00 2001 From: dariorbun Date: Thu, 8 Dec 2016 23:16:31 +0100 Subject: [PATCH 013/143] partial implementation of stackedcallreturn class (#16) Adds the ability to nest `@CallReturn` Currently Modes are not restored after returning. Created issue #17 to track this. --- README.md | 2 +- .../Classes/SessionState.StackedCallReturn.vb | 21 ++++++ Tease AI/Classes/State.vb | 12 +++- Tease AI/Form1.vb | 65 +++++++++---------- Tease AI/Tease AI.vbproj | 1 + 5 files changed, 62 insertions(+), 39 deletions(-) create mode 100644 Tease AI/Classes/SessionState.StackedCallReturn.vb diff --git a/README.md b/README.md index dcbca80..b48477b 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,4 @@ -# Tease-AI +# Tease-AI Tease AI is adult-oriented software that aims to create an interactive tease and denial experience by emulating an online chat session with a domme. Daragorn TestLine diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb new file mode 100644 index 0000000..f196739 --- /dev/null +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -0,0 +1,21 @@ +Partial Class SessionState + Friend Class StackedCallReturn + Public Property ReturnStrokeTauntVal As Integer + Public Property ReturnFileText As String + Public Property ReturnState As String + Dim ssh As SessionState + + Sub New(session As SessionState) + ssh = session + ReturnStrokeTauntVal = ssh.StrokeTauntVal + ReturnFileText = ssh.FileText + ReturnState = ssh.ReturnSubState + End Sub + + Sub resumeState() + ssh.StrokeTauntVal = ReturnStrokeTauntVal + ssh.FileText = ReturnFileText + ssh.ReturnSubState = ReturnState + End Sub + End Class +End Class \ No newline at end of file diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index cf94e4c..8d0ac9f 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -416,7 +416,7 @@ Public Class SessionState Public Property ReturnFileText As String Public Property ReturnStrokeTauntVal As String Public Property ReturnSubState As String - Public Property ReturnFlag As Boolean + Public Property returnFlag As Boolean Public Property SessionEdges As Integer @@ -634,6 +634,7 @@ Public Class SessionState Friend Files As New FileClass(Me) Friend Folders As New FoldersClass(Me) + Friend CallReturns As New Stack() Dim ActivationForm As Form1 @@ -718,7 +719,14 @@ Public Class SessionState ' Marked as have to be initialized on every deserialization. If Files Is Nothing Then Files = New FileClass(Me) If Folders Is Nothing Then Folders = New FoldersClass(Me) - + If CallReturns Is Nothing Then CallReturns = New Stack() + If returnFlag Then + Dim oldReturn = New StackedCallReturn(Me) + oldReturn.ReturnFileText = Me.ReturnFileText + oldReturn.ReturnState = Me.ReturnSubState + oldReturn.ReturnStrokeTauntVal = CInt(Me.ReturnStrokeTauntVal) + CallReturns.Push(oldReturn) + End If End Sub #End Region diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index d0df485..c2b8ea7 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -30,7 +30,6 @@ Public Class Form1 Friend FormLoading As Boolean = True Dim FormFinishedLoading As Boolean = False - 'TODO: Use a custom class to pass data between ScriptParsing methods. Dim ContactToUse As ContactData @@ -4018,11 +4017,6 @@ AcceptAnswer: Public Sub RunFileText() - - 'Debug.Print("ReturnFlag = " & ReturnFlag) - - 'If ReturnFlag = True Then GoTo ReturnCalled - Debug.Print("SaidHello = " & ssh.SaidHello) If ssh.SaidHello = False Then Return @@ -4089,7 +4083,7 @@ ReturnCalled: Try - If ssh.RunningScript = False And ssh.AvoidTheEdgeGame = False And ssh.ReturnFlag = False Then + If ssh.RunningScript = False And ssh.AvoidTheEdgeGame = False And ssh.CallReturns.Count() = 0 Then Debug.Print("End Check StrokeTauntVal = " & ssh.StrokeTauntVal) @@ -4267,12 +4261,11 @@ NonModuleEnd: DomWMP.Ctlcontrols.stop() BTNHypnoGenStart.Text = "Guide Me!" End If - If ssh.ReturnFlag = True Then - ssh.ReturnFlag = False - ssh.FileText = ssh.ReturnFileText - ssh.StrokeTauntVal = ssh.ReturnStrokeTauntVal + If ssh.CallReturns.Count() > 0 Then + + ssh.CallReturns.Pop().resumeState() 'github patch begin 'If ReturnSubState = "Stroking" Then 'If SubStroking = False Then @@ -4286,7 +4279,6 @@ NonModuleEnd: 'If ReturnSubState = "Edging" Then 'github patch end - If ssh.ReturnSubState = "Stroking" Then If My.Settings.Chastity = True Then 'DomTask = "Now as I was saying @StartTaunts" @@ -4304,7 +4296,6 @@ NonModuleEnd: End If End If If ssh.ReturnSubState = "Edging" Then - If ssh.SubEdging = False Then 'DomTask = "Start getting yourself to the edge again @Edge" ssh.DomTask = "#Return_Edging" @@ -5605,7 +5596,7 @@ DommeSlideshowFallback: - If ssh.ReturnFlag Then + If ssh.CallReturns.Count() > 0 Then ssh.ShowModule = True ScriptTimer.Start() ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then @@ -6241,7 +6232,7 @@ DommeSlideshowFallback: 'FrmSettings.LBLOrgasmCountdown.Text = LastScriptCountdown - If ssh.ReturnFlag Then + If ssh.CallReturns.Count() > 0 Then ssh.ShowModule = True ScriptTimer.Start() ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then @@ -11102,6 +11093,11 @@ OrgasmDecided: VideoTauntTimer.Stop() EdgeCountTimer.Stop() + 'if we use an interrupt we have to clear all the values stored in the @CallReturn array because @Interrupts stop everything + 'and then moves to a link (otherwise we'd have the program going back to these @CallReturn the next time a new @CallReturn is called) + ssh.CallReturns.Clear() + + ssh.FileText = InterruptClean ssh.LockImage = False If ssh.SlideshowLoaded = True Then @@ -12228,10 +12224,8 @@ VTSkip: If StringClean.Contains("@CallReturn(") Then - - ssh.ReturnFileText = ssh.FileText - ssh.ReturnStrokeTauntVal = ssh.StrokeTauntVal GetSubState() + ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) StrokeTimer.Stop() StrokeTauntTimer.Stop() @@ -12261,36 +12255,35 @@ VTSkip: End If 'StopEverything() - ssh.ReturnFlag = True Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag + Dim CallReplace As String = CheckFlag - If CheckFlag.Contains(",") Then + If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + CheckFlag = FixCommas(CheckFlag) - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - Else + Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - End If - ssh.ScriptTick = 2 - ScriptTimer.Start() + End If + ssh.ScriptTick = 2 + ScriptTimer.Start() - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - End If + End If - If StringClean.Contains("@Call(") Then + If StringClean.Contains("@Call(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") Dim CallReplace As String = CheckFlag diff --git a/Tease AI/Tease AI.vbproj b/Tease AI/Tease AI.vbproj index 180ba8d..7fd0a79 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -105,6 +105,7 @@ Component + From 0214a6d686152b437c1b32dc02cf0c085426161a Mon Sep 17 00:00:00 2001 From: Stefaf Date: Fri, 9 Dec 2016 12:12:10 +0100 Subject: [PATCH 014/143] v0.54.6.0 (#18) * Added Extensionmethod for Strings to check if a string contains a value case insensitive. * Fixes bug in TauntProcessingObject.IsAvailable. * Fixes bug in filtering if a contact is currently not in chat. The code to determine the contact is prepared to extend ssh.Group to contain + or - in order to detect if a contact is entering or leaving chat. * Renamed stuff in ContactData to comply with MS code recommendations. * Implements the ability to stack `@CallReturn`. * Currently modes are cleared and not restored afterwards. #17 * Readme updated * Raised assembly version to 0.54.6.0 Modifications on c1626a2: * Filepaths are stored relative, to support moving Tease-AI-folder between suspending and resuming a session. * Renamed Property ssh in SessionState.StackedCallReturn - ssh is meant as shorthand for My.Application.Session and should only be used that way, to enhance readability. * Added must inherit class ScriptPosition to reuse functionality for issue #12 and `@BookmarkLink`. * Indent corrected * Marked obsolete members * Added BC40000 suppression to onSerialization_FixFields --- README.md | 11 ++-- Tease AI/Classes/ContactData.vb | 57 +++++++++++-------- .../Classes/SessionState.ScriptPosition.vb | 41 +++++++++++++ .../Classes/SessionState.StackedCallReturn.vb | 20 +++---- Tease AI/Classes/State.vb | 37 ++++++++++-- Tease AI/Classes/TauntProcessingObject.vb | 2 +- Tease AI/Form1.vb | 53 ++++++++++------- Tease AI/Modules/Extension.Class.String.vb | 11 ++++ Tease AI/My Project/AssemblyInfo.vb | 2 +- Tease AI/Tease AI.vbproj | 2 + 10 files changed, 166 insertions(+), 70 deletions(-) create mode 100644 Tease AI/Classes/SessionState.ScriptPosition.vb create mode 100644 Tease AI/Modules/Extension.Class.String.vb diff --git a/README.md b/README.md index b48477b..2843b94 100644 --- a/README.md +++ b/README.md @@ -1,20 +1,18 @@ # Tease-AI Tease AI is adult-oriented software that aims to create an interactive tease and denial experience by emulating an online chat session with a domme. -Daragorn TestLine - # Todo: Stefaf: Integration of Class myDirectory: Status ongoing. Testrun to sort Lists like Win-Explorer: initialized in v0.54.5.1 -# Changelog - Patch 54.5.1 +# Changelog - Patch 54.6.0 * Added Features: * Added new sorting method to sort file lists like the Windows file Explorer does. * PoundClean reworked to support system keywords as parameters inside vocabulary files. In order to prevent infinite loops, the maximum allowed depth is limited to 5 times. Tip: take a look at the logfile to see how it's working. - * All Contacts and Domme are able to use @DommeTag(). - + * All Contacts and Domme are able to use @DommeTag(). Usage: @Contact2 Your text to display @DommeTag(Face, NotFeet) + * Added nested @CallReturn()-support. * Removed Features: * @DommeTag() doesn't alternate the given tags to return a result. (stefaf) The idea was worth a try. @@ -36,9 +34,12 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Chastity, Glitter and Taunt-files reworked to increase fault tolerance and correct line grouping. 2c588ffed4f03f17813d3e5bd290a3351b9bb8b2. It tries with a 45% chance to pick a 1-line-taunt. Otherwise it picks randomly from all available taunt sizes. ### Known Issues: +* Using a background image slows down GDI+ a lot. * @BookmarkModule * causes a script freeze at EOF, when taunts are interrupted. (Occured in Debug->Run Script) * seem to break if a miniscript (and maybe others) is called during the taunt. + * Modes are not restored on returning. +* @CallReturn doesn't restore any of the modes. (@YesMode, @NoMode etc.) # Changelog - Patch 54.5.0 diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index 3f896c6..c09d6d8 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -308,18 +308,18 @@ nextSubDir: Me.ImageList = GetRandom(Me.Contact) Me.Index = 0 ImageTagCache.Clear() - LastreturnedImage = "" + LastTaggedImage = "" End Sub Sub CheckInit() If Me.Index = -1 And Me.Contact <> ContactType.Nothing Then Me.LoadNew() - LastreturnedImage = "" + LastTaggedImage = "" End Sub #Region "Navigation" - Dim LastreturnedImage As String + Dim LastTaggedImage As String Friend Function CurrentImage() As String If ImageList.Count > 0 And Index > -1 Then @@ -427,10 +427,11 @@ nextSubDir: ''' ''' Searches for a tagged with the given Tags. ''' - ''' The Tags, to search for. + ''' The Tags, to search for. + ''' If set to true the result is written to cache. ''' Returns a String representing the ImageLocation for the found image. If none was found it will ''' return an empty string. - Public Function GetTaggedImage(ByVal ImageTags As String, Optional ByVal RememberResult As Boolean = False) As String + Public Function GetTaggedImage(ByVal imageTags As String, Optional ByVal rememberResult As Boolean = False) As String GetTaggedImage = "" #If TRACE Then Dim Ts As New TraceSwitch("GetTaggedImage", "") @@ -444,12 +445,12 @@ nextSubDir: If Ts.TraceVerbose Then Trace.WriteLine("================ GetTaggedImage ================") Trace.Indent() - Trace.WriteLine(String.Format("Get image for Tag ""{0}""", ImageTags)) + Trace.WriteLine(String.Format("Get image for Tag ""{0}""", imageTags)) ElseIf Ts.Level = TraceLevel.Info Then - Trace.Write(String.Format("Get image for Tag ""{0}""", ImageTags)) + Trace.Write(String.Format("Get image for Tag ""{0}""", imageTags)) End If #End If - Dim ImagePaths As ImageTagCacheItem = GetImageListByTag(ImageTags) + Dim ImagePaths As ImageTagCacheItem = GetImageListByTag(imageTags) tryNextImage: '=================================================================== @@ -490,15 +491,15 @@ SetForwardImage: #If TRACE Then If Ts.TraceVerbose Then Trace.WriteLine(String.Format("Image not found - remove from cache: ""{0}""", rtnPath)) #End If - ImageTagCache(ImageTags).TagImageList.Remove(rtnPath) + ImageTagCache(imageTags).TagImageList.Remove(rtnPath) GoTo tryNextImage Else ' ################ image found ################## #If TRACE Then If Ts.TraceVerbose Then Trace.WriteLine("Distance of image = " & CurrDist) #End If - If RememberResult Then ImagePaths.LastPicked = rtnPath - LastreturnedImage = rtnPath + If rememberResult Then ImagePaths.LastPicked = rtnPath + LastTaggedImage = rtnPath Return rtnPath End If @@ -523,14 +524,20 @@ SetForwardImage: End Function ''' Returns a list of filepaths for the given tags. - ''' The tags to retrieve the list. - Private Function GetImageListByTag(ByVal ImageTags As String) As ImageTagCacheItem + ''' The tags to retrieve the list. + ''' Returns a list of files for the given tags. + Private Function GetImageListByTag(ByVal imageTags As String) As ImageTagCacheItem + ' Set default value to return. + GetImageListByTag = New ImageTagCacheItem() + Try #If TRACE Then Dim Ts As New TraceSwitch("GetTaggedImage", "") Ts.Level = TraceLevel.Verbose #End If + If String.IsNullOrWhiteSpace(CurrentImage) Then Exit Function + Dim TargetFolder As String = Path.GetDirectoryName(CurrentImage) & Path.DirectorySeparatorChar Dim TagListFile As String = TargetFolder & "ImageTags.txt" @@ -538,22 +545,22 @@ redo: If Not File.Exists(TagListFile) Then '=================================================================== ' No Tag File - Return New ImageTagCacheItem - ElseIf ImageTagCache.Keys.Contains(ImageTags) Then + Exit Function + ElseIf ImageTagCache.Keys.Contains(imageTags) Then '=================================================================== ' Previous cached result #If TRACE Then If Ts.TraceVerbose Then Trace.WriteLine("Loading DommeTags from Cache.") #End If - Dim rtnItem As ImageTagCacheItem = ImageTagCache(ImageTags) + Dim rtnItem As ImageTagCacheItem = ImageTagCache(imageTags) If rtnItem.TagImageList.Count = 0 Then ' ´############## List was empty ################ - Return New ImageTagCacheItem + Exit Function ElseIf Not rtnItem.TagImageList(0).StartsWith(TargetFolder) ' ################ Wrong folder ################# - ImageTagCache.Remove(ImageTags) + ImageTagCache.Remove(imageTags) GoTo redo Else ' ################# All fine #################### @@ -571,10 +578,10 @@ redo: Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") ' Replace case insensitive "not", to safely assign tags to their lists - ImageTags = Regex.Replace(ImageTags, "\b(not)", "--", RegexOptions.IgnoreCase) + imageTags = Regex.Replace(imageTags, "\b(not)", "--", RegexOptions.IgnoreCase) ' Seperate Tags in given string. - Dim S As String() = ImageTags.Split({",", " "}, StringSplitOptions.RemoveEmptyEntries) + Dim S As String() = imageTags.Split({",", " "}, StringSplitOptions.RemoveEmptyEntries) ' Assign tags to lists. S.ToList.ForEach(Sub(x) @@ -617,7 +624,7 @@ redo: ' Add new item to cache and exit. GetImageListByTag = New ImageTagCacheItem() With {.TagImageList = PathList} - ImageTagCache.Add(ImageTags, GetImageListByTag) + ImageTagCache.Add(imageTags, GetImageListByTag) Return GetImageListByTag End If Catch ex As Exception @@ -630,16 +637,16 @@ redo: #End Region ' Image navigation - Friend Function ApplyTextedTags(ByVal ModifyString As String) As String - ApplyTextedTags = ModifyString + Friend Function ApplyTextedTags(ByVal modifyString As String) As String + ApplyTextedTags = modifyString Try ' ################### Get displayed Image ##################### Dim DisplayedImage As String - If String.IsNullOrWhiteSpace(LastreturnedImage) Then + If String.IsNullOrWhiteSpace(LastTaggedImage) Then DisplayedImage = CurrentImage() Else - DisplayedImage = LastreturnedImage + DisplayedImage = LastTaggedImage End If ' #################### Get line for image ##################### diff --git a/Tease AI/Classes/SessionState.ScriptPosition.vb b/Tease AI/Classes/SessionState.ScriptPosition.vb new file mode 100644 index 0000000..42fb132 --- /dev/null +++ b/Tease AI/Classes/SessionState.ScriptPosition.vb @@ -0,0 +1,41 @@ +Imports System.IO +Partial Class SessionState + + + Public MustInherit Class ScriptPosition + Public Property Session As SessionState = Nothing + + Dim _FilePath As String = Nothing + ''' Get or sets the Filepath. + ''' Returns the absolute filepaths. + ''' If the filepath is within the persomality path, it is stored internal as relative path. + ''' This is done to support moving of application-folder between serializing and deserializing. + Public Property FilePath As String + Get + If Path.IsPathRooted(_FilePath) Then + Return _FilePath + Else + Return Session.Folders.Personality & _FilePath + End If + End Get + Set(value As String) + If Path.IsPathRooted(value) AndAlso value.StartsWith(Session.Folders.Personality, StringComparison.OrdinalIgnoreCase) Then + _FilePath = value.Replace(Session.Folders.Personality, "") + Else + _FilePath = value + End If + End Set + End Property + + Public Property Line As Integer = -1 + + ''' Creates a new instance with given parameters. + Sub New(session As SessionState, filepath As String, line As Integer) + Me.Session = session + Me.FilePath = filepath + Me.Line = line + End Sub + + End Class + +End Class \ No newline at end of file diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb index f196739..0e0ae35 100644 --- a/Tease AI/Classes/SessionState.StackedCallReturn.vb +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -1,21 +1,19 @@ Partial Class SessionState - Friend Class StackedCallReturn - Public Property ReturnStrokeTauntVal As Integer - Public Property ReturnFileText As String + + Friend Class StackedCallReturn + Inherits ScriptPosition + Public Property ReturnState As String - Dim ssh As SessionState Sub New(session As SessionState) - ssh = session - ReturnStrokeTauntVal = ssh.StrokeTauntVal - ReturnFileText = ssh.FileText - ReturnState = ssh.ReturnSubState + MyBase.New(session, session.FileText, session.StrokeTauntVal) + ReturnState = Me.Session.ReturnSubState End Sub Sub resumeState() - ssh.StrokeTauntVal = ReturnStrokeTauntVal - ssh.FileText = ReturnFileText - ssh.ReturnSubState = ReturnState + Session.StrokeTauntVal = Line + Session.FileText = FilePath + Session.ReturnSubState = ReturnState End Sub End Class End Class \ No newline at end of file diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 8d0ac9f..2e2dc89 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -413,10 +413,29 @@ Public Class SessionState Public Property Contact2Stroke As Boolean Public Property Contact3Stroke As Boolean +#Region "@CallReturn(" + + ''' Gets or sets current stack for @CallReturn( command. + + Friend CallReturns As New Stack() + + + Public Property ReturnFileText As String + + + Public Property ReturnStrokeTauntVal As String + + + Public Property ReturnSubState As String - Public Property returnFlag As Boolean + + + + Public Property ReturnFlag As Boolean + +#End Region Public Property SessionEdges As Integer @@ -634,7 +653,6 @@ Public Class SessionState Friend Files As New FileClass(Me) Friend Folders As New FoldersClass(Me) - Friend CallReturns As New Stack() Dim ActivationForm As Form1 @@ -716,17 +734,26 @@ Public Class SessionState ''' Sub onDeserialized_FixFields(sc As StreamingContext) + ' Suppress obsolete warnings. +#Disable Warning BC40000 + ' Marked as have to be initialized on every deserialization. If Files Is Nothing Then Files = New FileClass(Me) If Folders Is Nothing Then Folders = New FoldersClass(Me) + + ' ########## Load @CallReturn( from old structure. ############ + ' DataStructure has changed in c1626a2e5ea4f85a642ec95cdcc2eb7160c1f148 If CallReturns Is Nothing Then CallReturns = New Stack() - If returnFlag Then + If ReturnFlag Then Dim oldReturn = New StackedCallReturn(Me) - oldReturn.ReturnFileText = Me.ReturnFileText + oldReturn.FilePath = Me.ReturnFileText oldReturn.ReturnState = Me.ReturnSubState - oldReturn.ReturnStrokeTauntVal = CInt(Me.ReturnStrokeTauntVal) + oldReturn.Line = CInt(Me.ReturnStrokeTauntVal) CallReturns.Push(oldReturn) End If + + ' Unsuppress obsolete warnings +#Enable Warning BC40000 End Sub #End Region diff --git a/Tease AI/Classes/TauntProcessingObject.vb b/Tease AI/Classes/TauntProcessingObject.vb index 90888ab..9c7dbfa 100644 --- a/Tease AI/Classes/TauntProcessingObject.vb +++ b/Tease AI/Classes/TauntProcessingObject.vb @@ -59,7 +59,7 @@ Public Class TauntProcessingObject ''' Returns true, if taunt has valid lines and right ammount. ReadOnly Property Avaialable As Boolean Get - If Lines.Count > 0 AndAlso Lines.Count >= TauntSize Then + If (Lines.Count > 0 And TauntSize > 0) AndAlso Lines.Count >= TauntSize Then Return True Else Return False diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index c2b8ea7..d528711 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -30,6 +30,7 @@ Public Class Form1 Friend FormLoading As Boolean = True Dim FormFinishedLoading As Boolean = False + 'TODO: Use a custom class to pass data between ScriptParsing methods. Dim ContactToUse As ContactData @@ -12258,32 +12259,32 @@ VTSkip: Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag + Dim CallReplace As String = CheckFlag - If CheckFlag.Contains(",") Then + If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + CheckFlag = FixCommas(CheckFlag) - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - Else + Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - End If - ssh.ScriptTick = 2 - ScriptTimer.Start() + End If + ssh.ScriptTick = 2 + ScriptTimer.Start() - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - End If + End If - If StringClean.Contains("@Call(") Then + If StringClean.Contains("@Call(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") Dim CallReplace As String = CheckFlag @@ -13647,14 +13648,22 @@ VTSkip: Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean Dim OrgFilterString As String = FilterString Try + '######################### Determine filtering Contact ########################### Dim FilterContact As ContactData - Dim Comp As IEqualityComparer = StringComparer.OrdinalIgnoreCase + Dim ActiveContacts As New List(Of String) + + For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) + ' Pattern Description: + ' [d\d]: All Numbers and letter "D" + ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) + ActiveContacts.Add(match.Value) + Next - If FilterString.ToLower.Contains("@contact1") Then + If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then FilterContact = ssh.SlideshowContact1 - ElseIf FilterString.ToLower.Contains("@contact2") Then + ElseIf FilterString.Includes("@Contact2") AndAlso ActiveContacts.Contains("2") Then FilterContact = ssh.SlideshowContact2 - ElseIf FilterString.ToLower.Contains("@contact3") Then + ElseIf FilterString.Includes("@Contact3") AndAlso ActiveContacts.Contains("3") Then FilterContact = ssh.SlideshowContact3 ElseIf ContactToUse IsNot Nothing Then FilterContact = ContactToUse @@ -13673,7 +13682,7 @@ VTSkip: ' with "glaring". '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ 'ISSUE: @DomTag() is not filtered out - If FilterString.Contains("@DommeTag(") Then + If FilterString.Includes("@DommeTag(") Then 'QND-Implemented: ContactData.GetTaggedImage If ssh.LockImage = True Then Return False diff --git a/Tease AI/Modules/Extension.Class.String.vb b/Tease AI/Modules/Extension.Class.String.vb new file mode 100644 index 0000000..db5cd22 --- /dev/null +++ b/Tease AI/Modules/Extension.Class.String.vb @@ -0,0 +1,11 @@ +Module Extension + + ''' Returns a value indicating whether a specified substring occurs case insensitive within this string. + ''' The string to seek. + ''' Returns true if the value parameter occurs within this string, or if value is the empty string (""); otherwise, false. + + Public Function Includes(text As String, value As String) As Boolean + Return text.IndexOf(value, StringComparison.OrdinalIgnoreCase) >= 0 + End Function + +End Module diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index 260ca36..1e090d7 100644 --- a/Tease AI/My Project/AssemblyInfo.vb +++ b/Tease AI/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - + diff --git a/Tease AI/Tease AI.vbproj b/Tease AI/Tease AI.vbproj index 7fd0a79..995d66d 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -105,6 +105,7 @@ Component + @@ -243,6 +244,7 @@ Designer + MyApplicationCodeGenerator Application.Designer.vb From 273ec328e2718257ccd07af903dd6ba600633c1b Mon Sep 17 00:00:00 2001 From: Stefaf Date: Wed, 11 Jan 2017 21:48:23 +0100 Subject: [PATCH 015/143] RandomText-Fix Fixes `@RT(` and `@RandomText(` commands. SystemMessages code merged and used valid html. --- Tease AI/Form1.vb | 70 +++++++++++++++++++++++------------------------ 1 file changed, 34 insertions(+), 36 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index d528711..909f676 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -5275,7 +5275,7 @@ NullResponse: If ssh.SysMes = True Then - ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomTask & "
" + ChatAddSystemMessage(ssh.DomTask, False) ssh.SysMes = False GoTo EndSysMes End If @@ -5976,7 +5976,7 @@ TryNextWithTease: Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) If ssh.SysMes = True Then - ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ChatAddSystemMessage(ssh.DomChat, False) ssh.SysMes = False GoTo EndSysMes End If @@ -8314,8 +8314,6 @@ StatusUpdateEnd: End Function - - Public Function PoundClean(ByVal StringClean As String) As String #If TRACE Then Dim TS As New TraceSwitch("PoundClean", "") @@ -8340,6 +8338,11 @@ StatusUpdateEnd: ' Create Regex-Pattern to find #Keywords and exclude custom imagetags. Dim ExcludeKeywords As String() = {"TagGarment", "TagUnderwear", "TagTattoo", "TagSexToy", "TagFurniture"} Dim Pattern As String = String.Format("##*(?!{0})[\w\d\+\-_]+", Join(ExcludeKeywords, "|")) + + ' Append included non-Keywords to pattern. + Dim NonKeywordInclude As String() = {"@RT\(", "@RandomText\("} + Pattern &= If(NonKeywordInclude.Length = 0, "", "|" & String.Join("|", NonKeywordInclude)) + Dim RegexKeyWords As New Regex(Pattern) Do While Recurrence < 5 AndAlso RegexKeyWords.IsMatch(StringClean) @@ -14518,6 +14521,25 @@ VTSkip: End If End Sub + ''' Appends a system message to chat and prints it if desired. + ''' Messagetext to append to chat. + ''' If true the chatwindow is refreshed and reprinted. + Public Sub ChatAddSystemMessage(messageText As String, Optional printChat As Boolean = True) + ChatAppend("" & messageText & "", printChat) + 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" + End Sub + + Public Sub ChatAppend(elementText As String, Optional printChat As Boolean = True) + ssh.Chat &= elementText & "
" & vbCrLf + If printChat Then Me.PrintChat() + End Sub + + Friend Sub PrintChat() + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + End Sub + Public Sub ScrollChatDown() Try @@ -17151,17 +17173,11 @@ restartInstantly: If Not ssh.Group.Contains("1") Then ssh.Group = ssh.Group & "1" ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(My.Settings.Glitter1 & " has joined the Chat room") Else ssh.Group = ssh.Group.Replace("1", "") If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter1 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(My.Settings.Glitter1 & " has left the Chat room") End If End If @@ -17176,17 +17192,11 @@ restartInstantly: If Not ssh.Group.Contains("2") Then ssh.Group = ssh.Group & "2" ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(My.Settings.Glitter2 & " has joined the Chat room") Else ssh.Group = ssh.Group.Replace("2", "") If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter2 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(My.Settings.Glitter2 & " has left the Chat room") End If End If @@ -17201,17 +17211,11 @@ restartInstantly: If Not ssh.Group.Contains("3") Then ssh.Group = ssh.Group & "3" ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(My.Settings.Glitter3 & " has joined the Chat room") Else ssh.Group = ssh.Group.Replace("3", "") If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & My.Settings.Glitter3 & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(My.Settings.Glitter3 & " has left the Chat room") End If End If @@ -17228,17 +17232,11 @@ restartInstantly: If Not ssh.Group.Contains("D") Then ssh.Group = ssh.Group & "D" If ssh.Group = "D" Then ssh.GlitterTease = False - ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has joined the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(domName.Text & " has joined the Chat room") Else ssh.Group = ssh.Group.Replace("D", "") ssh.GlitterTease = True - ssh.Chat = "" & "" & ssh.Chat & "" & domName.Text & " has left the Chat room" & "
" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ChatAddSystemMessage(domName.Text & " has left the Chat room") End If End If From 4d5de80a6460e19c6984676617672eebc66a955c Mon Sep 17 00:00:00 2001 From: pepsifreak Date: Fri, 27 Jan 2017 01:23:38 -0500 Subject: [PATCH 016/143] Chatlog tweaks Chatlog will now save on EndTease (fixing the problem where logs would never save due to the chat being cleared), and the date/autosave code moved to SaveChatLog() --- Tease AI/Form1.vb | 54 +++++++++++++++++------------------------------ 1 file changed, 19 insertions(+), 35 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index d528711..7abf949 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -209,27 +209,7 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal End Try - - Dim TempDate As String - Dim TempDateNow As DateTime = DateTime.Now - - TempDate = TempDateNow.ToString("MM.dd.yyyy hhmm") - - 'Github Patch Begin - - ' If FrmSettings.CBSaveChatlogExit.Checked = True Then - - 'If (Not System.IO.Directory.Exists(Application.StartupPath & "\Chatlogs\")) Then - 'System.IO.Directory.CreateDirectory(Application.StartupPath & "\Chatlogs\") - 'End If - - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\" & TempDate & " chatlog.html", ChatText.DocumentText, False) - - 'End If - - ' Github Patch End - - SaveChatLog(TempDate) + SaveChatLog(False) Try FrmSettings.Close() @@ -259,14 +239,22 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal End Try End Sub - Private Sub SaveChatLog(LogDate As String) + Private Sub SaveChatLog(IsAutosave As Boolean) If FrmSettings.CBSaveChatlogExit.Checked = True And ChatText.DocumentText.Length > 36 Then + Dim filename As String + If (Not System.IO.Directory.Exists(Application.StartupPath & "\Chatlogs\")) Then System.IO.Directory.CreateDirectory(Application.StartupPath & "\Chatlogs\") End If - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\" & LogDate & " chatlog.html", ChatText.DocumentText, False) + If IsAutoSave = True Then + filename = "Autosave.html" + Else + filename = DateTime.Now.ToString("MM.dd.yyyy hhmm") & " chatlog.html" + End If + + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\" & filename, ChatText.DocumentText, False) End If End Sub @@ -1194,12 +1182,7 @@ retryStart: ScriptTimer.Stop() - Dim TempDate As String - Dim TempDateNow As DateTime = DateTime.Now - - TempDate = TempDateNow.ToString("MM.dd.yyyy hhmm") - - SaveChatLog(TempDate) + SaveChatLog(False) ssh.DomTask = "@SystemMessage Tease AI has been reset" ssh.DomChat = "@SystemMessage Tease AI has been reset" @@ -1411,7 +1394,7 @@ retryStart: chatBox.Text = "" ChatBox2.Text = "" - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + SaveChatLog(True) Return End If @@ -1456,7 +1439,7 @@ retryStart: ScrollChatDown() - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + SaveChatLog(True) If ssh.IsTyping = True Then @@ -1766,7 +1749,7 @@ WritingTaskLine: End If - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + SaveChatLog(True) If ssh.IsTyping = True Then @@ -1839,7 +1822,7 @@ WritingTaskLine: End If - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + SaveChatLog(True) If ssh.IsTyping = True Then @@ -5400,7 +5383,7 @@ DommeSlideshowFallback: ChatReadyState() ScrollChatDown() - If My.Settings.CBAutosaveChatlog Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + SaveChatLog(True) ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ @@ -6091,7 +6074,7 @@ DommeSlideshowFallback: ChatReadyState() ScrollChatDown() - If My.Settings.CBAutosaveChatlog Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + SaveChatLog(True) ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ @@ -10934,6 +10917,7 @@ OrgasmDecided: 'My.Settings.Sys_SubLeftEarly = 0 'StopEverything() 'ResetButton() + SaveChatLog(False) ssh.Reset() FrmSettings.LockOrgasmChances(False) ssh.DomTask = "@SystemMessage Tease AI has been reset" From 04a8d0010e361e035d038f5ba13a4c3e21715e6c Mon Sep 17 00:00:00 2001 From: pepsifreak Date: Thu, 16 Feb 2017 02:35:10 -0500 Subject: [PATCH 017/143] forgot to check the chat autosave setting --- Tease AI/Form1.vb | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 7abf949..229b3a7 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -240,21 +240,18 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal End Sub Private Sub SaveChatLog(IsAutosave As Boolean) - If FrmSettings.CBSaveChatlogExit.Checked = True And ChatText.DocumentText.Length > 36 Then - - Dim filename As String + If ChatText.DocumentText.Length > 300 Then If (Not System.IO.Directory.Exists(Application.StartupPath & "\Chatlogs\")) Then System.IO.Directory.CreateDirectory(Application.StartupPath & "\Chatlogs\") End If - If IsAutoSave = True Then - filename = "Autosave.html" - Else - filename = DateTime.Now.ToString("MM.dd.yyyy hhmm") & " chatlog.html" - End If + If IsAutosave = True And FrmSettings.CBAutosaveChatlog.Checked = True Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\" & filename, ChatText.DocumentText, False) + ElseIf IsAutosave = False And FrmSettings.CBSaveChatlogExit.Checked = True Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\" & DateTime.Now.ToString("MM.dd.yyyy hhmm") & " chatlog.html", ChatText.DocumentText, False) + End If End If End Sub From d0ec2dfc3bc2fea882c36bff60596f9b2eac29d7 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 17 Feb 2017 17:49:08 -0600 Subject: [PATCH 018/143] 0.54.7.0 @RT() and @RandomText() fixed, @NotFlag() fixed, @FlagOr() added --- Tease AI/Classes/State.vb | 14 +- Tease AI/Form1.vb | 782 ++++++++++++++-------------- Tease AI/My Project/AssemblyInfo.vb | 2 +- 3 files changed, 418 insertions(+), 380 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 2e2dc89..efde771 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -735,7 +735,12 @@ Public Class SessionState Sub onDeserialized_FixFields(sc As StreamingContext) ' Suppress obsolete warnings. -#Disable Warning BC40000 + + '#Disable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 + +#If _MSC_VER > 1600 Then + #Disable Warning BC40000 +#End If ' Marked as have to be initialized on every deserialization. If Files Is Nothing Then Files = New FileClass(Me) @@ -753,7 +758,12 @@ Public Class SessionState End If ' Unsuppress obsolete warnings -#Enable Warning BC40000 + '#Enable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 + +#If _MSC_VER > 1600 Then + #Enable Warning BC40000 +#End If + End Sub #End Region diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 1f463e3..1affcfc 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -13792,383 +13792,411 @@ VTSkip: End If End If - If FilterString.Contains("@Flag(") Or FilterString.Contains("@NotFlag(") Then - Dim result As Boolean = True - Dim writeFlag As String - Dim splitFlag As String() - - If FilterString.Contains("@Flag(") Then - writeFlag = GetParentheses(FilterString, "@Flag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - - For Each s In splitFlag - If Not FlagExists(s) Then - result = False - Exit For - End If - Next - End If - If result = False Then Return result - - If FilterString.Contains("@NotFlag(") Then - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - - For Each s In splitFlag - If FlagExists(s) Then - result = False - Exit For - End If - Next - End If - Return result - End If - - If FilterString.Contains("@CheckDate(") And Linear = False Then - If CheckDateList(FilterString) = False Then Return False - End If - - If FilterString.Contains("@Month(") Then - If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False - End If - - If FilterString.Contains("@Day(") Then - If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False - End If - - If FilterString.Contains("@SetModule(") Then - If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Possible space Filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Single word filters - ' This section contains single word command filters. - ' Since there are some legacy commands, which are filters and also instructions, - ' this section will ignore all @Statements after @NullResponse or the first - ' word not starting with "@" (0x40) - ' - ' Beware: destroys the original FilterString-Value! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - Dim FilterList As String() - - FilterList = FilterString.Split(" ") - FilterString = "" - - For f As Integer = 0 To FilterList.Count - 1 - If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then - Exit For - End If - - FilterString = FilterString & FilterList(f) & " " - Next - - If FilterString = "" Then Return True - - If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False - - If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False - If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False - If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False - If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False - If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False - - If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False - If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then - If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False - End If - If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False - - If FilterString.ToLower.Contains("@acup") Then - If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@bcup") Then - If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ccup") Then - If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@dcup") Then - If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddcup") Then - If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddd+cup") Then - If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False - End If - - If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False - If FilterString.ToLower.Contains("@cockaverage") Then - If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False - End If - - If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - - If FilterString.ToLower.Contains("@dombirthday") Then - If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If - - If FilterString.ToLower.Contains("@subbirthday") Then - If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If - - If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - - If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False - If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False - - If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False - If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False - If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then - If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False - End If - If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then - If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False - End If - - If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False - If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False - If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False - If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False - If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False - - If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False - If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False - If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False - If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False - - If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False - If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False - If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False - - If FilterString.Contains("@LongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False - End If - If FilterString.Contains("@InterruptLongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False - End If - - If FilterString.Contains("@1MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False - End If - If FilterString.Contains("@2MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False - End If - If FilterString.Contains("@3MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False - End If - If FilterString.Contains("@4MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False - End If - If FilterString.Contains("@5MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False - End If - If FilterString.Contains("@10MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False - End If - If FilterString.Contains("@15MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False - End If - If FilterString.Contains("@30MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False - End If - If FilterString.Contains("@45MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False - End If - If FilterString.Contains("@60MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False - End If - - If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False - If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False - If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False - If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False - If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False - If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False - If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False - If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False - If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False - If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False - If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False - If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False - If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False - - If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False - If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False - If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False - If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False - If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False - If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False - If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False - If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False - If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False - If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False - If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False - If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False - If FilterString.Contains("@VitalSubAssignment") Then - If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False - End If - - If FilterString.Contains("@RuinTaunt") Then - If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False - End If - - If FilterString.Contains("@VideoHardcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False - End If - If FilterString.Contains("@VideoSoftcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False - End If - If FilterString.Contains("@VideoLesbian") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False - End If - If FilterString.Contains("@VideoBlowjob") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False - End If - If FilterString.Contains("@VideoFemdom") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False - End If - If FilterString.Contains("@VideoFemsub") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False - End If - If FilterString.Contains("@VideoGeneral") Then - If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False - End If - - If FilterString.Contains("@VideoHardcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False - End If - If FilterString.Contains("@VideoSoftcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False - End If - If FilterString.Contains("@VideoLesbianDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False - End If - If FilterString.Contains("@VideoBlowjobDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False - End If - If FilterString.Contains("@VideoFemdomDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False - End If - If FilterString.Contains("@VideoFemsubDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False - End If - If FilterString.Contains("@VideoGeneralDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False - End If - - If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False - If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False - If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False - If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False - If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False - If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False - If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False - If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False - If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False - If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False - If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False - If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False - - If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then - If ssh.SubStroking = False Then Return False - End If - - If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then - If ssh.SubStroking = True Then Return False - End If - - If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then - If ssh.SubEdging = False Then Return False - End If - - If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then - If ssh.SubEdging = True Then Return False - End If - - If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then - If ssh.SubHoldingEdge = False Then Return False - End If - - If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then - If ssh.SubHoldingEdge = True Then Return False - End If - - If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False - If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False - If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False - If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False - If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False - If FilterString.Contains("@NeutralMood") Then - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False - End If - - If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False - If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False - If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False - If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False - If FilterString.Contains("@LongHold") Then - If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False - End If - - If FilterString.Contains("@ExtremeHold") Then - If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False - End If - - If FilterString.Contains("@AssWorship") Then - If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False - End If - - If FilterString.Contains("@BoobWorship") Then - If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False - End If - - If FilterString.Contains("@PussyWorship") Then - If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False - End If - - If FilterString.Contains("@Contact1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - End If - - If FilterString.Contains("@Contact2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - End If - - If FilterString.Contains("@Contact3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - End If - - If FilterString.Contains("@Info") Then Return False - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Single word filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - Return True - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exceoption occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") - Return False - End Try + If FilterString.Contains("@Flag(") Or FilterString.Contains("@NotFlag(") Then + Dim result As Boolean = True + Dim writeFlag As String + Dim splitFlag As String() + + If FilterString.Contains("@Flag(") Then + writeFlag = GetParentheses(FilterString, "@Flag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + + For Each s In splitFlag + If Not FlagExists(s) Then + result = False + Exit For + End If + Next + End If + If result = False Then Return result + + If FilterString.Contains("@NotFlag(") Then + writeFlag = GetParentheses(FilterString, "@NotFlag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + result = False + For Each s In splitFlag + If result Then + If FlagExists(s) Then + result = False + Exit For + End If + Else + If FlagExists(s) Then + result = False + Else + result = True + End If + End If + Next + End If + Return result + End If + + If FilterString.Contains("@FlagOr(") Then + Dim result As Boolean = True + Dim writeFlag As String + Dim splitFlag As String() + + If FilterString.Contains("@FlagOr(") Then + writeFlag = GetParentheses(FilterString, "@FlagOr(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + + For Each s In splitFlag + If FlagExists(s) Then + result = True + Exit For + End If + Next + End If + If result = True Then Return result + End If + + If FilterString.Contains("@CheckDate(") And Linear = False Then + If CheckDateList(FilterString) = False Then Return False + End If + + If FilterString.Contains("@Month(") Then + If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False + End If + + If FilterString.Contains("@Day(") Then + If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False + End If + + If FilterString.Contains("@SetModule(") Then + If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Possible space Filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Single word filters + ' This section contains single word command filters. + ' Since there are some legacy commands, which are filters and also instructions, + ' this section will ignore all @Statements after @NullResponse or the first + ' word not starting with "@" (0x40) + ' + ' Beware: destroys the original FilterString-Value! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + Dim FilterList As String() + + FilterList = FilterString.Split(" ") + FilterString = "" + + For f As Integer = 0 To FilterList.Count - 1 + If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then + Exit For + End If + + FilterString = FilterString & FilterList(f) & " " + Next + + If FilterString = "" Then Return True + + If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False + + If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False + If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False + If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False + If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False + If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False + + If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False + If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then + If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False + End If + If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False + + If FilterString.ToLower.Contains("@acup") Then + If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@bcup") Then + If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ccup") Then + If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@dcup") Then + If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddcup") Then + If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddd+cup") Then + If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False + End If + + If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False + If FilterString.ToLower.Contains("@cockaverage") Then + If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False + End If + + If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + + If FilterString.ToLower.Contains("@dombirthday") Then + If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If + + If FilterString.ToLower.Contains("@subbirthday") Then + If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If + + If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + + If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False + If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False + + If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False + If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False + If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then + If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False + End If + If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then + If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False + End If + + If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False + If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False + If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False + If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False + If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False + + If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False + If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False + If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False + If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False + + If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False + If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False + If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False + + If FilterString.Contains("@LongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False + End If + If FilterString.Contains("@InterruptLongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False + End If + + If FilterString.Contains("@1MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False + End If + If FilterString.Contains("@2MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False + End If + If FilterString.Contains("@3MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False + End If + If FilterString.Contains("@4MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False + End If + If FilterString.Contains("@5MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False + End If + If FilterString.Contains("@10MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False + End If + If FilterString.Contains("@15MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False + End If + If FilterString.Contains("@30MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False + End If + If FilterString.Contains("@45MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False + End If + If FilterString.Contains("@60MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False + End If + + If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False + If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False + If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False + If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False + If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False + If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False + If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False + If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False + If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False + If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False + If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False + If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False + If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False + + If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False + If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False + If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False + If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False + If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False + If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False + If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False + If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False + If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False + If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False + If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False + If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False + If FilterString.Contains("@VitalSubAssignment") Then + If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False + End If + + If FilterString.Contains("@RuinTaunt") Then + If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False + End If + + If FilterString.Contains("@VideoHardcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False + End If + If FilterString.Contains("@VideoSoftcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False + End If + If FilterString.Contains("@VideoLesbian") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False + End If + If FilterString.Contains("@VideoBlowjob") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False + End If + If FilterString.Contains("@VideoFemdom") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False + End If + If FilterString.Contains("@VideoFemsub") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False + End If + If FilterString.Contains("@VideoGeneral") Then + If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False + End If + + If FilterString.Contains("@VideoHardcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False + End If + If FilterString.Contains("@VideoSoftcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False + End If + If FilterString.Contains("@VideoLesbianDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False + End If + If FilterString.Contains("@VideoBlowjobDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False + End If + If FilterString.Contains("@VideoFemdomDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False + End If + If FilterString.Contains("@VideoFemsubDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False + End If + If FilterString.Contains("@VideoGeneralDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False + End If + + If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False + If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False + If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False + If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False + If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False + If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False + If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False + If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False + If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False + If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False + If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False + If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False + + If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then + If ssh.SubStroking = False Then Return False + End If + + If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then + If ssh.SubStroking = True Then Return False + End If + + If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then + If ssh.SubEdging = False Then Return False + End If + + If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then + If ssh.SubEdging = True Then Return False + End If + + If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then + If ssh.SubHoldingEdge = False Then Return False + End If + + If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then + If ssh.SubHoldingEdge = True Then Return False + End If + + If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False + If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False + If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False + If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False + If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False + If FilterString.Contains("@NeutralMood") Then + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + End If + + If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False + If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False + If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False + If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False + If FilterString.Contains("@LongHold") Then + If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False + End If + + If FilterString.Contains("@ExtremeHold") Then + If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False + End If + + If FilterString.Contains("@AssWorship") Then + If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False + End If + + If FilterString.Contains("@BoobWorship") Then + If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False + End If + + If FilterString.Contains("@PussyWorship") Then + If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False + End If + + If FilterString.Contains("@Contact1") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + End If + + If FilterString.Contains("@Contact2") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + End If + + If FilterString.Contains("@Contact3") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + End If + + If FilterString.Contains("@Info") Then Return False + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Single word filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + Return True + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(String.Format("Exceoption occured while checking line ""{0}"".", OrgFilterString), + ex, "GetFilter(String, Boolean)") + Return False + End Try End Function diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index 1e090d7..4e7b7dc 100644 --- a/Tease AI/My Project/AssemblyInfo.vb +++ b/Tease AI/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - + From 8fb2db5f4492c9dec5193cb1a3425321b2f9d0db Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 17 Feb 2017 17:50:10 -0600 Subject: [PATCH 019/143] 0.54.7.0 Updated ReadMe --- README.md | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/README.md b/README.md index 2843b94..7dca5da 100644 --- a/README.md +++ b/README.md @@ -6,6 +6,19 @@ Tease AI is adult-oriented software that aims to create an interactive tease and Stefaf: Integration of Class myDirectory: Status ongoing. Testrun to sort Lists like Win-Explorer: initialized in v0.54.5.1 +# Changelog - Patch 54.7.0 + +* Added Features: + * @FlagOr() Command Filter. Check multiple flags and will read the line if any of them are present. For example, @FlagOr(Flag1, Flag2) - If Flag1 or Flag 2 exists, then Tease AI will read the line. + +* Bugfixes: + * @RT() and @RandomText() were not working correctly (Stefaf) + * @NotFlag() was only checking for any flags not to be present when parsing multiple flags instead of all flags not to be present. (dariobrun) + +* Miscellaneous: + * Minor edits to State.vb so I could compile it using VS 2010 (Notay) + * Cleaned up code for saving chatlogs (pepsifreak) + # Changelog - Patch 54.6.0 * Added Features: From a716b13cbc03c993812bb0dca716bbbf5a959806 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 18 Feb 2017 14:05:45 -0600 Subject: [PATCH 020/143] @CountVar[] Command, image fixes Added @CountVar[] Command Fixes to certain local genre image subdirectories not being recognized correctly --- README.md | 11 +- Tease AI/Classes/State.vb | 5 +- Tease AI/Form1.vb | 116 +- Tease AI/Form1/ImageFuctions.vb | 106 +- Tease AI/My Project/Settings.Designer.vb | 7316 +++++++++++----------- Tease AI/My Project/Settings.settings | 2 +- Tease AI/app.config | 4 +- 7 files changed, 3836 insertions(+), 3724 deletions(-) diff --git a/README.md b/README.md index 7dca5da..6afe758 100644 --- a/README.md +++ b/README.md @@ -9,11 +9,18 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 54.7.0 * Added Features: - * @FlagOr() Command Filter. Check multiple flags and will read the line if any of them are present. For example, @FlagOr(Flag1, Flag2) - If Flag1 or Flag 2 exists, then Tease AI will read the line. + * @CountVar[] Command. Allows you to connect a timer to a specified Variable that will change its value by 1 every second. + Usage: + @CountVar[VarName] - Begins a timer that adds 1 to VarName every second + @CountVar[VarName, down] - Begins a timer that subtracts 1 from VarName every second + @CountVar[VarName, stop] - Stops any timer associated with VarName (up or down) + * @FlagOr() Command Filter. Check multiple flags and will read the line if any of them are present. For example, @FlagOr(Flag1, Flag2) - If Flag1 or Flag 2 exists, then Tease AI will read the line. (dariobrun) * Bugfixes: * @RT() and @RandomText() were not working correctly (Stefaf) - * @NotFlag() was only checking for any flags not to be present when parsing multiple flags instead of all flags not to be present. (dariobrun) + * @NotFlag() was only checking for any flags not to be present when parsing multiple flags instead of all flags not to be present. (dariobrun) + * Certain local genre images were not using their subdirectories correctly. (dariobrun) + * Local Boob images were not using their subdirectories correctly. (dariobrun) * Miscellaneous: * Minor edits to State.vb so I could compile it using VS 2010 (Notay) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index efde771..66abdfc 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -550,7 +550,10 @@ Public Class SessionState Public Property TauntEdging As Boolean = False - Public Property Modes As New Dictionary(Of String, Mode)(System.StringComparer.OrdinalIgnoreCase) + Public Property Modes As New Dictionary(Of String, Mode)(System.StringComparer.OrdinalIgnoreCase) + + Public Property CountDownList As New List(Of String) + Public Property CountUpList As New List(Of String) #Region "----------------------------------- Only for Serialization -------------------------------------" diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 1affcfc..ca5af82 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -12820,7 +12820,64 @@ VTSkip: Else StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If - End If + End If + + If StringClean.Contains("@CountVar[") Then + + Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") + + If CountFlag.Contains(",") Then + + CountFlag = FixCommas(CountFlag) + Dim CountArray() As String = CountFlag.Split(",") + + If CountArray(1).ToLower.Contains("stop") Then + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next + End If + If ssh.CountUpList.Count > 0 Then + For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 + If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) + Next + End If + + Else + + If CountArray(1).ToLower.Contains("down") Then + ssh.CountDownList.Add(CountArray(0)) + If ssh.CountUpList.Count > 0 Then + For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 + If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) + Next + End If + Else + ssh.CountUpList.Add(CountArray(0)) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next + End If + End If + + End If + + Else + + ssh.CountUpList.Add(CountFlag) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountFlag) Then ssh.CountDownList.RemoveAt(i) + Next + End If + + End If + + StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") + End If + + If StringClean.Contains("@Debug") Then @@ -13866,6 +13923,10 @@ VTSkip: If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False End If + If FilterString.Contains("@DayOfWeek(") Then + If GetMatch(FilterString, "@DayOfWeek(", WeekdayName(Weekday(DateAndTime.Now))) = False Then Return False + End If + If FilterString.Contains("@SetModule(") Then If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False End If @@ -17078,11 +17139,12 @@ saveImage: If CFClean.Contains("Or[") Then CFClean = CFClean.Replace("Or[" & GetParentheses(CFClean, "Or[", 2) & "]", "") End If - For Each com As String In New List(Of String) From - {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", - "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag("} - If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") - Next + For Each com As String In New List(Of String) From + {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", + "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", + "@DayOfWeek("} + If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") + Next '=============================================================================== ' Clean all other remaining @Commands @@ -18218,7 +18280,47 @@ restartInstantly: If DDiff > 4 And DDiff < 12 Then ssh.GeneralTime = "Afternoon" If DDiff > -21 And DDiff < -11 Then ssh.GeneralTime = "Afternoon" - End If + End If + + If ssh.CountUpList.Count > 0 Then + + For i As Integer = 0 To ssh.CountUpList.Count - 1 + Dim Val1 As Integer + + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i)) Then + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i))) + Else + Val1 = 0 + End If + + Val1 += 1 + + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i), Val1, False) + + Next + + End If + + If ssh.CountDownList.Count > 0 Then + + For i As Integer = 0 To ssh.CountDownList.Count - 1 + Dim Val1 As Integer + + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i)) Then + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i))) + Else + Val1 = 0 + End If + + Val1 -= 1 + + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i), Val1, False) + + Next + + End If ' #DEBUG diff --git a/Tease AI/Form1/ImageFuctions.vb b/Tease AI/Form1/ImageFuctions.vb index 50b133a..3ecad22 100644 --- a/Tease AI/Form1/ImageFuctions.vb +++ b/Tease AI/Form1/ImageFuctions.vb @@ -393,59 +393,59 @@ NoneFound: .SYS_NoPornAllowed = SysNoPornAllowed }) - .Add(ImageGenre.Boobs, New ImageDataContainer With - { - .Name = ImageGenre.Boobs, - .LocalDirectory = If(My.Settings.CBIBoobs, My.Settings.LBLBoobPath, ""), - .LocalSubDirectories = My.Settings.CBButtSubDir, - .UrlFile = If(My.Settings.UrlFileBoobsEnabled, My.Settings.UrlFileBoobs, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Hardcore, New ImageDataContainer With - { - .Name = ImageGenre.Hardcore, - .LocalDirectory = If(My.Settings.CBIHardcore, My.Settings.IHardcore, ""), - .LocalSubDirectories = My.Settings.CBHardcore, - .UrlFile = If(My.Settings.UrlFileHardcoreEnabled, My.Settings.UrlFileHardcore, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Softcore, New ImageDataContainer With - { - .Name = ImageGenre.Softcore, - .LocalDirectory = If(My.Settings.CBISoftcore, My.Settings.ISoftcore, ""), - .LocalSubDirectories = My.Settings.CBSoftcore, - .UrlFile = If(My.Settings.UrlFileSoftcoreEnabled, My.Settings.UrlFileSoftcore, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Lesbian, New ImageDataContainer With - { - .Name = ImageGenre.Lesbian, - .LocalDirectory = If(My.Settings.CBILesbian, My.Settings.ILesbian, ""), - .LocalSubDirectories = My.Settings.CBLesbian, - .UrlFile = If(My.Settings.UrlFileLesbianEnabled, My.Settings.UrlFileLesbian, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Blowjob, New ImageDataContainer With - { - .Name = ImageGenre.Blowjob, - .LocalDirectory = If(My.Settings.CBIBlowjob, My.Settings.IBlowjob, ""), - .LocalSubDirectories = My.Settings.CBBlowjob, - .UrlFile = If(My.Settings.UrlFileBlowjobEnabled, My.Settings.UrlFileBlowjob, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Femdom, New ImageDataContainer With - { - .Name = ImageGenre.Femdom, - .LocalDirectory = If(My.Settings.CBIFemdom, My.Settings.IFemdom, ""), - .LocalSubDirectories = My.Settings.CBFemdom, - .UrlFile = If(My.Settings.UrlFileFemdomEnabled, My.Settings.UrlFileFemdom, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) + .Add(ImageGenre.Boobs, New ImageDataContainer With + { + .Name = ImageGenre.Boobs, + .LocalDirectory = If(My.Settings.CBIBoobs, My.Settings.LBLBoobPath, ""), + .LocalSubDirectories = My.Settings.CBBoobSubDir, + .UrlFile = If(My.Settings.UrlFileBoobsEnabled, My.Settings.UrlFileBoobs, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Hardcore, New ImageDataContainer With + { + .Name = ImageGenre.Hardcore, + .LocalDirectory = If(My.Settings.CBIHardcore, My.Settings.IHardcore, ""), + .LocalSubDirectories = My.Settings.IHardcoreSD, + .UrlFile = If(My.Settings.UrlFileHardcoreEnabled, My.Settings.UrlFileHardcore, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Softcore, New ImageDataContainer With + { + .Name = ImageGenre.Softcore, + .LocalDirectory = If(My.Settings.CBISoftcore, My.Settings.ISoftcore, ""), + .LocalSubDirectories = My.Settings.ISoftcoreSD, + .UrlFile = If(My.Settings.UrlFileSoftcoreEnabled, My.Settings.UrlFileSoftcore, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Lesbian, New ImageDataContainer With + { + .Name = ImageGenre.Lesbian, + .LocalDirectory = If(My.Settings.CBILesbian, My.Settings.ILesbian, ""), + .LocalSubDirectories = My.Settings.ILesbianSD, + .UrlFile = If(My.Settings.UrlFileLesbianEnabled, My.Settings.UrlFileLesbian, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Blowjob, New ImageDataContainer With + { + .Name = ImageGenre.Blowjob, + .LocalDirectory = If(My.Settings.CBIBlowjob, My.Settings.IBlowjob, ""), + .LocalSubDirectories = My.Settings.IBlowjobSD, + .UrlFile = If(My.Settings.UrlFileBlowjobEnabled, My.Settings.UrlFileBlowjob, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Femdom, New ImageDataContainer With + { + .Name = ImageGenre.Femdom, + .LocalDirectory = If(My.Settings.CBIFemdom, My.Settings.IFemdom, ""), + .LocalSubDirectories = My.Settings.IFemdomSD, + .UrlFile = If(My.Settings.UrlFileFemdomEnabled, My.Settings.UrlFileFemdom, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) .Add(ImageGenre.Lezdom, New ImageDataContainer With { diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 66bdb21..95d433e 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -665,3662 +665,3662 @@ Namespace My Me("Glitter3") = value End Set End Property - - - Public Property GlitterNCDommeColor() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNCDommeColor"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNCDommeColor") = Value - End Set - End Property - - - Public Property GlitterNC1Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC1Color"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC1Color") = Value - End Set - End Property - - - Public Property GlitterNC2Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC2Color"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC2Color") = Value - End Set - End Property - - - Public Property GlitterNC3Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC3Color"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC3Color") = Value - End Set - End Property - - - Public Property GlitterDSlider() As Integer - Get - Return CType(Me("GlitterDSlider"), Integer) - End Get - Set - Me("GlitterDSlider") = Value - End Set - End Property - - - Public Property Glitter1Slider() As Integer - Get - Return CType(Me("Glitter1Slider"), Integer) - End Get - Set - Me("Glitter1Slider") = Value - End Set - End Property - - - Public Property Glitter2Slider() As Integer - Get - Return CType(Me("Glitter2Slider"), Integer) - End Get - Set - Me("Glitter2Slider") = Value - End Set - End Property - - - Public Property Glitter3Slider() As Integer - Get - Return CType(Me("Glitter3Slider"), Integer) - End Get - Set - Me("Glitter3Slider") = Value - End Set - End Property - - - Public Property CBGlitterFeed() As Boolean - Get - Return CType(Me("CBGlitterFeed"), Boolean) - End Get - Set - Me("CBGlitterFeed") = Value - End Set - End Property - - - Public Property CBGlitter1() As Boolean - Get - Return CType(Me("CBGlitter1"), Boolean) - End Get - Set - Me("CBGlitter1") = Value - End Set - End Property - - - Public Property CBGlitter2() As Boolean - Get - Return CType(Me("CBGlitter2"), Boolean) - End Get - Set - Me("CBGlitter2") = Value - End Set - End Property - - - Public Property CBGlitter3() As Boolean - Get - Return CType(Me("CBGlitter3"), Boolean) - End Get - Set - Me("CBGlitter3") = Value - End Set - End Property - - - Public Property CBTease() As Boolean - Get - Return CType(Me("CBTease"), Boolean) - End Get - Set - Me("CBTease") = Value - End Set - End Property - - - Public Property CBEgotist() As Boolean - Get - Return CType(Me("CBEgotist"), Boolean) - End Get - Set - Me("CBEgotist") = Value - End Set - End Property - - - Public Property CBTrivia() As Boolean - Get - Return CType(Me("CBTrivia"), Boolean) - End Get - Set - Me("CBTrivia") = Value - End Set - End Property - - - Public Property CBDaily() As Boolean - Get - Return CType(Me("CBDaily"), Boolean) - End Get - Set - Me("CBDaily") = Value - End Set - End Property - - - Public Property CBCustom1() As Boolean - Get - Return CType(Me("CBCustom1"), Boolean) - End Get - Set - Me("CBCustom1") = Value - End Set - End Property - - - Public Property CBCustom2() As Boolean - Get - Return CType(Me("CBCustom2"), Boolean) - End Get - Set - Me("CBCustom2") = Value - End Set - End Property - - - Public Property CB1Bratty() As Boolean - Get - Return CType(Me("CB1Bratty"), Boolean) - End Get - Set - Me("CB1Bratty") = Value - End Set - End Property - - - Public Property CB1Cruel() As Boolean - Get - Return CType(Me("CB1Cruel"), Boolean) - End Get - Set - Me("CB1Cruel") = Value - End Set - End Property - - - Public Property CB1Caring() As Boolean - Get - Return CType(Me("CB1Caring"), Boolean) - End Get - Set - Me("CB1Caring") = Value - End Set - End Property - - - Public Property CB1Angry() As Boolean - Get - Return CType(Me("CB1Angry"), Boolean) - End Get - Set - Me("CB1Angry") = Value - End Set - End Property - - - Public Property CB1Custom1() As Boolean - Get - Return CType(Me("CB1Custom1"), Boolean) - End Get - Set - Me("CB1Custom1") = Value - End Set - End Property - - - Public Property CB1Custom2() As Boolean - Get - Return CType(Me("CB1Custom2"), Boolean) - End Get - Set - Me("CB1Custom2") = Value - End Set - End Property - - - Public Property CB2Bratty() As Boolean - Get - Return CType(Me("CB2Bratty"), Boolean) - End Get - Set - Me("CB2Bratty") = Value - End Set - End Property - - - Public Property CB2Cruel() As Boolean - Get - Return CType(Me("CB2Cruel"), Boolean) - End Get - Set - Me("CB2Cruel") = Value - End Set - End Property - - - Public Property CB2Caring() As Boolean - Get - Return CType(Me("CB2Caring"), Boolean) - End Get - Set - Me("CB2Caring") = Value - End Set - End Property - - - Public Property CB2Angry() As Boolean - Get - Return CType(Me("CB2Angry"), Boolean) - End Get - Set - Me("CB2Angry") = Value - End Set - End Property - - - Public Property CB2Custom1() As Boolean - Get - Return CType(Me("CB2Custom1"), Boolean) - End Get - Set - Me("CB2Custom1") = Value - End Set - End Property - - - Public Property CB2Custom2() As Boolean - Get - Return CType(Me("CB2Custom2"), Boolean) - End Get - Set - Me("CB2Custom2") = Value - End Set - End Property - - - Public Property CB3Bratty() As Boolean - Get - Return CType(Me("CB3Bratty"), Boolean) - End Get - Set - Me("CB3Bratty") = Value - End Set - End Property - - - Public Property CB3Cruel() As Boolean - Get - Return CType(Me("CB3Cruel"), Boolean) - End Get - Set - Me("CB3Cruel") = Value - End Set - End Property - - - Public Property CB3Caring() As Boolean - Get - Return CType(Me("CB3Caring"), Boolean) - End Get - Set - Me("CB3Caring") = Value - End Set - End Property - - - Public Property CB3Angry() As Boolean - Get - Return CType(Me("CB3Angry"), Boolean) - End Get - Set - Me("CB3Angry") = Value - End Set - End Property - - - Public Property CB3Custom1() As Boolean - Get - Return CType(Me("CB3Custom1"), Boolean) - End Get - Set - Me("CB3Custom1") = Value - End Set - End Property - - - Public Property CB3Custom2() As Boolean - Get - Return CType(Me("CB3Custom2"), Boolean) - End Get - Set - Me("CB3Custom2") = Value - End Set - End Property - - - Public Property DomName() As String - Get - Return CType(Me("DomName"), String) - End Get - Set - Me("DomName") = Value - End Set - End Property - - - Public Property SubName() As String - Get - Return CType(Me("SubName"), String) - End Get - Set - Me("SubName") = Value - End Set - End Property - - - Public Property pnSetting1() As String - Get - Return CType(Me("pnSetting1"), String) - End Get - Set - Me("pnSetting1") = Value - End Set - End Property - - - Public Property pnSetting2() As String - Get - Return CType(Me("pnSetting2"), String) - End Get - Set - Me("pnSetting2") = Value - End Set - End Property - - - Public Property pnSetting3() As String - Get - Return CType(Me("pnSetting3"), String) - End Get - Set - Me("pnSetting3") = Value - End Set - End Property - - - Public Property pnSetting4() As String - Get - Return CType(Me("pnSetting4"), String) - End Get - Set - Me("pnSetting4") = Value - End Set - End Property - - - Public Property pnSetting5() As String - Get - Return CType(Me("pnSetting5"), String) - End Get - Set - Me("pnSetting5") = Value - End Set - End Property - - - Public Property pnSetting6() As String - Get - Return CType(Me("pnSetting6"), String) - End Get - Set - Me("pnSetting6") = Value - End Set - End Property - - - Public Property pnSetting7() As String - Get - Return CType(Me("pnSetting7"), String) - End Get - Set - Me("pnSetting7") = Value - End Set - End Property - - - Public Property pnSetting8() As String - Get - Return CType(Me("pnSetting8"), String) - End Get - Set - Me("pnSetting8") = Value - End Set - End Property - - - Public Property DomColor() As String - Get - Return CType(Me("DomColor"), String) - End Get - Set - Me("DomColor") = Value - End Set - End Property - - - Public Property SubColor() As String - Get - Return CType(Me("SubColor"), String) - End Get - Set - Me("SubColor") = Value - End Set - End Property - - - Public Property DomColorColor() As Global.System.Drawing.Color - Get - Return CType(Me("DomColorColor"), Global.System.Drawing.Color) - End Get - Set - Me("DomColorColor") = Value - End Set - End Property - - - Public Property SubColorColor() As Global.System.Drawing.Color - Get - Return CType(Me("SubColorColor"), Global.System.Drawing.Color) - End Get - Set - Me("SubColorColor") = Value - End Set - End Property - - - Public Property CBTimeStamps() As Boolean - Get - Return CType(Me("CBTimeStamps"), Boolean) - End Get - Set - Me("CBTimeStamps") = Value - End Set - End Property - - - Public Property CBShowNames() As Boolean - Get - Return CType(Me("CBShowNames"), Boolean) - End Get - Set - Me("CBShowNames") = Value - End Set - End Property - - - Public Property CBInstantType() As Boolean - Get - Return CType(Me("CBInstantType"), Boolean) - End Get - Set - Me("CBInstantType") = Value - End Set - End Property - - - Public Property CBBlogImageMain() As Boolean - Get - Return CType(Me("CBBlogImageMain"), Boolean) - End Get - Set - Me("CBBlogImageMain") = Value - End Set - End Property - - - Public Property CBStretchLandscape() As Boolean - Get - Return CType(Me("CBStretchLandscape"), Boolean) - End Get - Set - Me("CBStretchLandscape") = Value - End Set - End Property - - - Public Property CBMetronome() As Boolean - Get - Return CType(Me("CBMetronome"), Boolean) - End Get - Set - Me("CBMetronome") = Value - End Set - End Property - - - Public Property CBSettingsPause() As Boolean - Get - Return CType(Me("CBSettingsPause"), Boolean) - End Get - Set - Me("CBSettingsPause") = Value - End Set - End Property - - - Public Property DomLevel() As Integer - Get - Return CType(Me("DomLevel"), Integer) - End Get - Set - Me("DomLevel") = Value - End Set - End Property - - - Public Property OrgasmAllow() As String - Get - Return CType(Me("OrgasmAllow"), String) - End Get - Set - Me("OrgasmAllow") = Value - End Set - End Property - - - Public Property OrgasmRuin() As String - Get - Return CType(Me("OrgasmRuin"), String) - End Get - Set - Me("OrgasmRuin") = Value - End Set - End Property - - - Public Property CBAutosaveChatlog() As Boolean - Get - Return CType(Me("CBAutosaveChatlog"), Boolean) - End Get - Set - Me("CBAutosaveChatlog") = Value - End Set - End Property - - - Public Property CBExitSaveChatlog() As Boolean - Get - Return CType(Me("CBExitSaveChatlog"), Boolean) - End Get - Set - Me("CBExitSaveChatlog") = Value - End Set - End Property - - - Public Property AvgEdgeStroking() As Integer - Get - Return CType(Me("AvgEdgeStroking"), Integer) - End Get - Set - Me("AvgEdgeStroking") = Value - End Set - End Property - - - Public Property AvgEdgeNoTouch() As Integer - Get - Return CType(Me("AvgEdgeNoTouch"), Integer) - End Get - Set - Me("AvgEdgeNoTouch") = Value - End Set - End Property - - - Public Property AvgEdgeCount() As Integer - Get - Return CType(Me("AvgEdgeCount"), Integer) - End Get - Set - Me("AvgEdgeCount") = Value - End Set - End Property - - - Public Property StrokeTimeTotal() As Integer - Get - Return CType(Me("StrokeTimeTotal"), Integer) - End Get - Set - Me("StrokeTimeTotal") = Value - End Set - End Property - - - Public Property NBWritingTaskMin() As Integer - Get - Return CType(Me("NBWritingTaskMin"), Integer) - End Get - Set - Me("NBWritingTaskMin") = Value - End Set - End Property - - - Public Property NBWritingTaskMax() As Integer - Get - Return CType(Me("NBWritingTaskMax"), Integer) - End Get - Set - Me("NBWritingTaskMax") = Value - End Set - End Property - - - Public Property LBLBoobPath() As String - Get - Return CType(Me("LBLBoobPath"), String) - End Get - Set - Me("LBLBoobPath") = Value - End Set - End Property - - - Public Property UrlFileBoobs() As String - Get - Return CType(Me("UrlFileBoobs"), String) - End Get - Set - Me("UrlFileBoobs") = Value - End Set - End Property - - - Public Property LBLButtPath() As String - Get - Return CType(Me("LBLButtPath"), String) - End Get - Set - Me("LBLButtPath") = Value - End Set - End Property - - - Public Property UrlFileButt() As String - Get - Return CType(Me("UrlFileButt"), String) - End Get - Set - Me("UrlFileButt") = Value - End Set - End Property - - - Public Property CBBnBLocal() As Boolean - Get - Return CType(Me("CBBnBLocal"), Boolean) - End Get - Set - Me("CBBnBLocal") = Value - End Set - End Property - - - Public Property CBBnBURL() As Boolean - Get - Return CType(Me("CBBnBURL"), Boolean) - End Get - Set - Me("CBBnBURL") = Value - End Set - End Property - - - Public Property CBBoobSubDir() As Boolean - Get - Return CType(Me("CBBoobSubDir"), Boolean) - End Get - Set - Me("CBBoobSubDir") = Value - End Set - End Property - - - Public Property CBButtSubDir() As Boolean - Get - Return CType(Me("CBButtSubDir"), Boolean) - End Get - Set - Me("CBButtSubDir") = Value - End Set - End Property - - - Public Property CBEnableBnB() As Boolean - Get - Return CType(Me("CBEnableBnB"), Boolean) - End Get - Set - Me("CBEnableBnB") = Value - End Set - End Property - - - Public Property CBSlideshowSubDir() As Boolean - Get - Return CType(Me("CBSlideshowSubDir"), Boolean) - End Get - Set - Me("CBSlideshowSubDir") = Value - End Set - End Property - - - Public Property CBSlideshowRandom() As Boolean - Get - Return CType(Me("CBSlideshowRandom"), Boolean) - End Get - Set - Me("CBSlideshowRandom") = Value - End Set - End Property - - - Public Property DomAge() As Integer - Get - Return CType(Me("DomAge"), Integer) - End Get - Set - Me("DomAge") = Value - End Set - End Property - - - Public Property DomHair() As String - Get - Return CType(Me("DomHair"), String) - End Get - Set - Me("DomHair") = Value - End Set - End Property - - - Public Property DomEyes() As String - Get - Return CType(Me("DomEyes"), String) - End Get - Set - Me("DomEyes") = Value - End Set - End Property - - - Public Property DomCup() As String - Get - Return CType(Me("DomCup"), String) - End Get - Set - Me("DomCup") = Value - End Set - End Property - - - Public Property DomPersonality() As String - Get - Return CType(Me("DomPersonality"), String) - End Get - Set - Me("DomPersonality") = Value - End Set - End Property - - - Public Property DomCrazy() As Boolean - Get - Return CType(Me("DomCrazy"), Boolean) - End Get - Set - Me("DomCrazy") = Value - End Set - End Property - - - Public Property DomVulgar() As Boolean - Get - Return CType(Me("DomVulgar"), Boolean) - End Get - Set - Me("DomVulgar") = Value - End Set - End Property - - - Public Property DomSupremacist() As Boolean - Get - Return CType(Me("DomSupremacist"), Boolean) - End Get - Set - Me("DomSupremacist") = Value - End Set - End Property - - - Public Property DomLowercase() As Boolean - Get - Return CType(Me("DomLowercase"), Boolean) - End Get - Set - Me("DomLowercase") = Value - End Set - End Property - - - Public Property DomNoApostrophes() As Boolean - Get - Return CType(Me("DomNoApostrophes"), Boolean) - End Get - Set - Me("DomNoApostrophes") = Value - End Set - End Property - - - Public Property DomNoCommas() As Boolean - Get - Return CType(Me("DomNoCommas"), Boolean) - End Get - Set - Me("DomNoCommas") = Value - End Set - End Property - - - Public Property DomNoPeriods() As Boolean - Get - Return CType(Me("DomNoPeriods"), Boolean) - End Get - Set - Me("DomNoPeriods") = Value - End Set - End Property - - - Public Property DomMeMyMine() As Boolean - Get - Return CType(Me("DomMeMyMine"), Boolean) - End Get - Set - Me("DomMeMyMine") = Value - End Set - End Property - - - Public Property DomEmotes() As String - Get - Return CType(Me("DomEmotes"), String) - End Get - Set - Me("DomEmotes") = Value - End Set - End Property - - - Public Property DomDenialEnd() As Boolean - Get - Return CType(Me("DomDenialEnd"), Boolean) - End Get - Set - Me("DomDenialEnd") = Value - End Set - End Property - - - Public Property DomOrgasmEnd() As Boolean - Get - Return CType(Me("DomOrgasmEnd"), Boolean) - End Get - Set - Me("DomOrgasmEnd") = Value - End Set - End Property - - - Public Property DomPOT() As Boolean - Get - Return CType(Me("DomPOT"), Boolean) - End Get - Set - Me("DomPOT") = Value - End Set - End Property - - - Public Property DomLimit() As Boolean - Get - Return CType(Me("DomLimit"), Boolean) - End Get - Set - Me("DomLimit") = Value - End Set - End Property - - - Public Property DomOrgasmPer() As Integer - Get - Return CType(Me("DomOrgasmPer"), Integer) - End Get - Set - Me("DomOrgasmPer") = Value - End Set - End Property - - - Public Property DomPerMonth() As String - Get - Return CType(Me("DomPerMonth"), String) - End Get - Set - Me("DomPerMonth") = Value - End Set - End Property - - - Public Property DomLock() As Boolean - Get - Return CType(Me("DomLock"), Boolean) - End Get - Set - Me("DomLock") = Value - End Set - End Property - - - Public Property DomMoodMin() As Integer - Get - Return CType(Me("DomMoodMin"), Integer) - End Get - Set - Me("DomMoodMin") = Value - End Set - End Property - - - Public Property DomMoodMax() As Integer - Get - Return CType(Me("DomMoodMax"), Integer) - End Get - Set - Me("DomMoodMax") = Value - End Set - End Property - - - Public Property AvgCockMin() As Integer - Get - Return CType(Me("AvgCockMin"), Integer) - End Get - Set - Me("AvgCockMin") = Value - End Set - End Property - - - Public Property AvgCockMax() As Integer - Get - Return CType(Me("AvgCockMax"), Integer) - End Get - Set - Me("AvgCockMax") = Value - End Set - End Property - - - Public Property SelfAgeMin() As Integer - Get - Return CType(Me("SelfAgeMin"), Integer) - End Get - Set - Me("SelfAgeMin") = Value - End Set - End Property - - - Public Property SelfAgeMax() As Integer - Get - Return CType(Me("SelfAgeMax"), Integer) - End Get - Set - Me("SelfAgeMax") = Value - End Set - End Property - - - Public Property SubAgeMin() As Integer - Get - Return CType(Me("SubAgeMin"), Integer) - End Get - Set - Me("SubAgeMin") = Value - End Set - End Property - - - Public Property SubAgeMax() As String - Get - Return CType(Me("SubAgeMax"), String) - End Get - Set - Me("SubAgeMax") = Value - End Set - End Property - - - Public Property CBLockWindow() As Boolean - Get - Return CType(Me("CBLockWindow"), Boolean) - End Get - Set - Me("CBLockWindow") = Value - End Set - End Property - - - Public Property SubGreeting() As String - Get - Return CType(Me("SubGreeting"), String) - End Get - Set - Me("SubGreeting") = Value - End Set - End Property - - - Public Property SubYes() As String - Get - Return CType(Me("SubYes"), String) - End Get - Set - Me("SubYes") = Value - End Set - End Property - - - Public Property SubNo() As String - Get - Return CType(Me("SubNo"), String) - End Get - Set - Me("SubNo") = Value - End Set - End Property - - - Public Property SubHonorific() As String - Get - Return CType(Me("SubHonorific"), String) - End Get - Set - Me("SubHonorific") = Value - End Set - End Property - - - Public Property CBUseHonor() As Boolean - Get - Return CType(Me("CBUseHonor"), Boolean) - End Get - Set - Me("CBUseHonor") = Value - End Set - End Property - - - Public Property CBCapHonor() As Boolean - Get - Return CType(Me("CBCapHonor"), Boolean) - End Get - Set - Me("CBCapHonor") = Value - End Set - End Property - - - Public Property SubCockSize() As Integer - Get - Return CType(Me("SubCockSize"), Integer) - End Get - Set - Me("SubCockSize") = Value - End Set - End Property - - - Public Property SubAge() As Integer - Get - Return CType(Me("SubAge"), Integer) - End Get - Set - Me("SubAge") = Value - End Set - End Property - - - Public Property TCAgreed() As Boolean - Get - Return CType(Me("TCAgreed"), Boolean) - End Get - Set - Me("TCAgreed") = Value - End Set - End Property - - - Public Property TimerSTF() As Integer - Get - Return CType(Me("TimerSTF"), Integer) - End Get - Set - Me("TimerSTF") = Value - End Set - End Property - - - Public Property SubBirthMonth() As Integer - Get - Return CType(Me("SubBirthMonth"), Integer) - End Get - Set - Me("SubBirthMonth") = Value - End Set - End Property - - - Public Property SubBirthDay() As Integer - Get - Return CType(Me("SubBirthDay"), Integer) - End Get - Set - Me("SubBirthDay") = Value - End Set - End Property - - - Public Property SubHair() As String - Get - Return CType(Me("SubHair"), String) - End Get - Set - Me("SubHair") = Value - End Set - End Property - - - Public Property SubEyes() As String - Get - Return CType(Me("SubEyes"), String) - End Get - Set - Me("SubEyes") = Value - End Set - End Property - - - Public Property DomFontSize() As Integer - Get - Return CType(Me("DomFontSize"), Integer) - End Get - Set - Me("DomFontSize") = Value - End Set - End Property - - - Public Property DomFont() As String - Get - Return CType(Me("DomFont"), String) - End Get - Set - Me("DomFont") = Value - End Set - End Property - - - Public Property SubFont() As String - Get - Return CType(Me("SubFont"), String) - End Get - Set - Me("SubFont") = Value - End Set - End Property - - - Public Property SubFontSize() As Integer - Get - Return CType(Me("SubFontSize"), Integer) - End Get - Set - Me("SubFontSize") = Value - End Set - End Property - - - Public Property DomBirthMonth() As Integer - Get - Return CType(Me("DomBirthMonth"), Integer) - End Get - Set - Me("DomBirthMonth") = Value - End Set - End Property - - - Public Property DomBirthDay() As Integer - Get - Return CType(Me("DomBirthDay"), Integer) - End Get - Set - Me("DomBirthDay") = Value - End Set - End Property - - - Public Property DomHairLength() As String - Get - Return CType(Me("DomHairLength"), String) - End Get - Set - Me("DomHairLength") = Value - End Set - End Property - - - Public Property DomPubicHair() As String - Get - Return CType(Me("DomPubicHair"), String) - End Get - Set - Me("DomPubicHair") = Value - End Set - End Property - - - Public Property DomTattoos() As Boolean - Get - Return CType(Me("DomTattoos"), Boolean) - End Get - Set - Me("DomTattoos") = Value - End Set - End Property - - - Public Property DomFreckles() As Boolean - Get - Return CType(Me("DomFreckles"), Boolean) - End Get - Set - Me("DomFreckles") = Value - End Set - End Property - - - Public Property CBImageInfo() As Boolean - Get - Return CType(Me("CBImageInfo"), Boolean) - End Get - Set - Me("CBImageInfo") = Value - End Set - End Property - - - Public Property DomAVStretch() As Boolean - Get - Return CType(Me("DomAVStretch"), Boolean) - End Get - Set - Me("DomAVStretch") = Value - End Set - End Property - - - Public Property SubAvStretch() As Boolean - Get - Return CType(Me("SubAvStretch"), Boolean) - End Get - Set - Me("SubAvStretch") = Value - End Set - End Property - - - Public Property IHardcore() As String - Get - Return CType(Me("IHardcore"), String) - End Get - Set - Me("IHardcore") = Value - End Set - End Property - - - Public Property ISoftcore() As String - Get - Return CType(Me("ISoftcore"), String) - End Get - Set - Me("ISoftcore") = Value - End Set - End Property - - - Public Property ILesbian() As String - Get - Return CType(Me("ILesbian"), String) - End Get - Set - Me("ILesbian") = Value - End Set - End Property - - - Public Property IBlowjob() As String - Get - Return CType(Me("IBlowjob"), String) - End Get - Set - Me("IBlowjob") = Value - End Set - End Property - - - Public Property IFemdom() As String - Get - Return CType(Me("IFemdom"), String) - End Get - Set - Me("IFemdom") = Value - End Set - End Property - - - Public Property ILezdom() As String - Get - Return CType(Me("ILezdom"), String) - End Get - Set - Me("ILezdom") = Value - End Set - End Property - - - Public Property IHentai() As String - Get - Return CType(Me("IHentai"), String) - End Get - Set - Me("IHentai") = Value - End Set - End Property - - - Public Property IGay() As String - Get - Return CType(Me("IGay"), String) - End Get - Set - Me("IGay") = Value - End Set - End Property - - - Public Property IMaledom() As String - Get - Return CType(Me("IMaledom"), String) - End Get - Set - Me("IMaledom") = Value - End Set - End Property - - - Public Property IGeneral() As String - Get - Return CType(Me("IGeneral"), String) - End Get - Set - Me("IGeneral") = Value - End Set - End Property - - - Public Property IHardcoreSD() As Boolean - Get - Return CType(Me("IHardcoreSD"), Boolean) - End Get - Set - Me("IHardcoreSD") = Value - End Set - End Property - - - Public Property ISoftcoreSD() As Boolean - Get - Return CType(Me("ISoftcoreSD"), Boolean) - End Get - Set - Me("ISoftcoreSD") = Value - End Set - End Property - - - Public Property ILesbianSD() As Boolean - Get - Return CType(Me("ILesbianSD"), Boolean) - End Get - Set - Me("ILesbianSD") = Value - End Set - End Property - - - Public Property IBlowjobSD() As Boolean - Get - Return CType(Me("IBlowjobSD"), Boolean) - End Get - Set - Me("IBlowjobSD") = Value - End Set - End Property - - - Public Property IFemdomSD() As Boolean - Get - Return CType(Me("IFemdomSD"), Boolean) - End Get - Set - Me("IFemdomSD") = Value - End Set - End Property - - - Public Property ILezdomSD() As Boolean - Get - Return CType(Me("ILezdomSD"), Boolean) - End Get - Set - Me("ILezdomSD") = Value - End Set - End Property - - - Public Property IHentaiSD() As Boolean - Get - Return CType(Me("IHentaiSD"), Boolean) - End Get - Set - Me("IHentaiSD") = Value - End Set - End Property - - - Public Property IGaySD() As Boolean - Get - Return CType(Me("IGaySD"), Boolean) - End Get - Set - Me("IGaySD") = Value - End Set - End Property - - - Public Property IMaledomSD() As Boolean - Get - Return CType(Me("IMaledomSD"), Boolean) - End Get - Set - Me("IMaledomSD") = Value - End Set - End Property - - - Public Property IGeneralSD() As Boolean - Get - Return CType(Me("IGeneralSD"), Boolean) - End Get - Set - Me("IGeneralSD") = Value - End Set - End Property - - - Public Property ICaptionsSD() As Boolean - Get - Return CType(Me("ICaptionsSD"), Boolean) - End Get - Set - Me("ICaptionsSD") = Value - End Set - End Property - - - Public Property CBIHardcore() As Boolean - Get - Return CType(Me("CBIHardcore"), Boolean) - End Get - Set - Me("CBIHardcore") = Value - End Set - End Property - - - Public Property CBISoftcore() As Boolean - Get - Return CType(Me("CBISoftcore"), Boolean) - End Get - Set - Me("CBISoftcore") = Value - End Set - End Property - - - Public Property CBILesbian() As Boolean - Get - Return CType(Me("CBILesbian"), Boolean) - End Get - Set - Me("CBILesbian") = Value - End Set - End Property - - - Public Property CBIBlowjob() As Boolean - Get - Return CType(Me("CBIBlowjob"), Boolean) - End Get - Set - Me("CBIBlowjob") = Value - End Set - End Property - - - Public Property CBIFemdom() As Boolean - Get - Return CType(Me("CBIFemdom"), Boolean) - End Get - Set - Me("CBIFemdom") = Value - End Set - End Property - - - Public Property CBILezdom() As Boolean - Get - Return CType(Me("CBILezdom"), Boolean) - End Get - Set - Me("CBILezdom") = Value - End Set - End Property - - - Public Property CBIHentai() As Boolean - Get - Return CType(Me("CBIHentai"), Boolean) - End Get - Set - Me("CBIHentai") = Value - End Set - End Property - - - Public Property CBIGay() As Boolean - Get - Return CType(Me("CBIGay"), Boolean) - End Get - Set - Me("CBIGay") = Value - End Set - End Property - - - Public Property CBIMaledom() As Boolean - Get - Return CType(Me("CBIMaledom"), Boolean) - End Get - Set - Me("CBIMaledom") = Value - End Set - End Property - - - Public Property CBIGeneral() As Boolean - Get - Return CType(Me("CBIGeneral"), Boolean) - End Get - Set - Me("CBIGeneral") = Value - End Set - End Property - - - Public Property CBICaptions() As Boolean - Get - Return CType(Me("CBICaptions"), Boolean) - End Get - Set - Me("CBICaptions") = Value - End Set - End Property - - - Public Property ICaptions() As String - Get - Return CType(Me("ICaptions"), String) - End Get - Set - Me("ICaptions") = Value - End Set - End Property - - - Public Property DomImageDir() As String - Get - Return CType(Me("DomImageDir"), String) - End Get - Set - Me("DomImageDir") = Value - End Set - End Property - - - Public Property CBTCock() As Boolean - Get - Return CType(Me("CBTCock"), Boolean) - End Get - Set - Me("CBTCock") = Value - End Set - End Property - - - Public Property CBTBalls() As Boolean - Get - Return CType(Me("CBTBalls"), Boolean) - End Get - Set - Me("CBTBalls") = Value - End Set - End Property - - - Public Property ChastityPA() As Boolean - Get - Return CType(Me("ChastityPA"), Boolean) - End Get - Set - Me("ChastityPA") = Value - End Set - End Property - - - Public Property ChastitySpikes() As Boolean - Get - Return CType(Me("ChastitySpikes"), Boolean) - End Get - Set - Me("ChastitySpikes") = Value - End Set - End Property - - - Public Property SubInChastity() As Boolean - Get - Return CType(Me("SubInChastity"), Boolean) - End Get - Set - Me("SubInChastity") = Value - End Set - End Property - - - Public Property LongEdge() As Integer - Get - Return CType(Me("LongEdge"), Integer) - End Get - Set - Me("LongEdge") = Value - End Set - End Property - - - Public Property CBLongEdgeInterrupt() As Boolean - Get - Return CType(Me("CBLongEdgeInterrupt"), Boolean) - End Get - Set - Me("CBLongEdgeInterrupt") = Value - End Set - End Property - - - Public Property HoldTheEdgeMax() As Integer - Get - Return CType(Me("HoldTheEdgeMax"), Integer) - End Get - Set - Me("HoldTheEdgeMax") = Value - End Set - End Property - - - Public Property HoldEdgeTimeTotal() As Integer - Get - Return CType(Me("HoldEdgeTimeTotal"), Integer) - End Get - Set - Me("HoldEdgeTimeTotal") = Value - End Set - End Property - - - Public Property CBTSlider() As Integer - Get - Return CType(Me("CBTSlider"), Integer) - End Get - Set - Me("CBTSlider") = Value - End Set - End Property - - - Public Property SubCircumcised() As Boolean - Get - Return CType(Me("SubCircumcised"), Boolean) - End Get - Set - Me("SubCircumcised") = Value - End Set - End Property - - - Public Property SubPierced() As Boolean - Get - Return CType(Me("SubPierced"), Boolean) - End Get - Set - Me("SubPierced") = Value - End Set - End Property - - - Public Property DomEmpathy() As Integer - Get - Return CType(Me("DomEmpathy"), Integer) - End Get - Set - Me("DomEmpathy") = Value - End Set - End Property - - - Public Property RangeOrgasm() As Boolean - Get - Return CType(Me("RangeOrgasm"), Boolean) - End Get - Set - Me("RangeOrgasm") = Value - End Set - End Property - - - Public Property RangeRuin() As Boolean - Get - Return CType(Me("RangeRuin"), Boolean) - End Get - Set - Me("RangeRuin") = Value - End Set - End Property - - - Public Property AllowOften() As Integer - Get - Return CType(Me("AllowOften"), Integer) - End Get - Set - Me("AllowOften") = Value - End Set - End Property - - - Public Property AllowSometimes() As Integer - Get - Return CType(Me("AllowSometimes"), Integer) - End Get - Set - Me("AllowSometimes") = Value - End Set - End Property - - - Public Property AllowRarely() As Integer - Get - Return CType(Me("AllowRarely"), Integer) - End Get - Set - Me("AllowRarely") = Value - End Set - End Property - - - Public Property RuinOften() As Integer - Get - Return CType(Me("RuinOften"), Integer) - End Get - Set - Me("RuinOften") = Value - End Set - End Property - - - Public Property RuinSometimes() As Integer - Get - Return CType(Me("RuinSometimes"), Integer) - End Get - Set - Me("RuinSometimes") = Value - End Set - End Property - - - Public Property RuinRarely() As Integer - Get - Return CType(Me("RuinRarely"), Integer) - End Get - Set - Me("RuinRarely") = Value - End Set - End Property - - - Public Property Chastity() As Boolean - Get - Return CType(Me("Chastity"), Boolean) - End Get - Set - Me("Chastity") = Value - End Set - End Property - - - Public Property Safeword() As String - Get - Return CType(Me("Safeword"), String) - End Get - Set - Me("Safeword") = Value - End Set - End Property - - - Public Property CaloriesConsumed() As Integer - Get - Return CType(Me("CaloriesConsumed"), Integer) - End Get - Set - Me("CaloriesConsumed") = Value - End Set - End Property - - - Public Property CaloriesGoal() As Integer - Get - Return CType(Me("CaloriesGoal"), Integer) - End Get - Set - Me("CaloriesGoal") = Value - End Set - End Property - - - Public Property VitalSubDisclaimer() As Boolean - Get - Return CType(Me("VitalSubDisclaimer"), Boolean) - End Get - Set - Me("VitalSubDisclaimer") = Value - End Set - End Property - - - Public Property VitalSub() As Boolean - Get - Return CType(Me("VitalSub"), Boolean) - End Get - Set - Me("VitalSub") = Value - End Set - End Property - - - Public Property VitalSubAssignments() As Boolean - Get - Return CType(Me("VitalSubAssignments"), Boolean) - End Get - Set - Me("VitalSubAssignments") = Value - End Set - End Property - - - Public Property BP1() As String - Get - Return CType(Me("BP1"), String) - End Get - Set - Me("BP1") = Value - End Set - End Property - - - Public Property BP2() As String - Get - Return CType(Me("BP2"), String) - End Get - Set - Me("BP2") = Value - End Set - End Property - - - Public Property BP3() As String - Get - Return CType(Me("BP3"), String) - End Get - Set - Me("BP3") = Value - End Set - End Property - - - Public Property BP4() As String - Get - Return CType(Me("BP4"), String) - End Get - Set - Me("BP4") = Value - End Set - End Property - - - Public Property BP5() As String - Get - Return CType(Me("BP5"), String) - End Get - Set - Me("BP5") = Value - End Set - End Property - - - Public Property BP6() As String - Get - Return CType(Me("BP6"), String) - End Get - Set - Me("BP6") = Value - End Set - End Property - - - Public Property BN1() As String - Get - Return CType(Me("BN1"), String) - End Get - Set - Me("BN1") = Value - End Set - End Property - - - Public Property BN2() As String - Get - Return CType(Me("BN2"), String) - End Get - Set - Me("BN2") = Value - End Set - End Property - - - Public Property BN3() As String - Get - Return CType(Me("BN3"), String) - End Get - Set - Me("BN3") = Value - End Set - End Property - - - Public Property BN4() As String - Get - Return CType(Me("BN4"), String) - End Get - Set - Me("BN4") = Value - End Set - End Property - - - Public Property BN5() As String - Get - Return CType(Me("BN5"), String) - End Get - Set - Me("BN5") = Value - End Set - End Property - - - Public Property BN6() As String - Get - Return CType(Me("BN6"), String) - End Get - Set - Me("BN6") = Value - End Set - End Property - - - Public Property SP1() As String - Get - Return CType(Me("SP1"), String) - End Get - Set - Me("SP1") = Value - End Set - End Property - - - Public Property SP2() As String - Get - Return CType(Me("SP2"), String) - End Get - Set - Me("SP2") = Value - End Set - End Property - - - Public Property SP3() As String - Get - Return CType(Me("SP3"), String) - End Get - Set - Me("SP3") = Value - End Set - End Property - - - Public Property SP4() As String - Get - Return CType(Me("SP4"), String) - End Get - Set - Me("SP4") = Value - End Set - End Property - - - Public Property SP5() As String - Get - Return CType(Me("SP5"), String) - End Get - Set - Me("SP5") = Value - End Set - End Property - - - Public Property SP6() As String - Get - Return CType(Me("SP6"), String) - End Get - Set - Me("SP6") = Value - End Set - End Property - - - Public Property SN1() As String - Get - Return CType(Me("SN1"), String) - End Get - Set - Me("SN1") = Value - End Set - End Property - - - Public Property SN2() As String - Get - Return CType(Me("SN2"), String) - End Get - Set - Me("SN2") = Value - End Set - End Property - - - Public Property SN3() As String - Get - Return CType(Me("SN3"), String) - End Get - Set - Me("SN3") = Value - End Set - End Property - - - Public Property SN4() As String - Get - Return CType(Me("SN4"), String) - End Get - Set - Me("SN4") = Value - End Set - End Property - - - Public Property SN5() As String - Get - Return CType(Me("SN5"), String) - End Get - Set - Me("SN5") = Value - End Set - End Property - - - Public Property SN6() As String - Get - Return CType(Me("SN6"), String) - End Get - Set - Me("SN6") = Value - End Set - End Property - - - Public Property GP1() As String - Get - Return CType(Me("GP1"), String) - End Get - Set - Me("GP1") = Value - End Set - End Property - - - Public Property GP2() As String - Get - Return CType(Me("GP2"), String) - End Get - Set - Me("GP2") = Value - End Set - End Property - - - Public Property GP3() As String - Get - Return CType(Me("GP3"), String) - End Get - Set - Me("GP3") = Value - End Set - End Property - - - Public Property GP4() As String - Get - Return CType(Me("GP4"), String) - End Get - Set - Me("GP4") = Value - End Set - End Property - - - Public Property GP5() As String - Get - Return CType(Me("GP5"), String) - End Get - Set - Me("GP5") = Value - End Set - End Property - - - Public Property GP6() As String - Get - Return CType(Me("GP6"), String) - End Get - Set - Me("GP6") = Value - End Set - End Property - - - Public Property GN1() As String - Get - Return CType(Me("GN1"), String) - End Get - Set - Me("GN1") = Value - End Set - End Property - - - Public Property GN2() As String - Get - Return CType(Me("GN2"), String) - End Get - Set - Me("GN2") = Value - End Set - End Property - - - Public Property GN3() As String - Get - Return CType(Me("GN3"), String) - End Get - Set - Me("GN3") = Value - End Set - End Property - - - Public Property GN4() As String - Get - Return CType(Me("GN4"), String) - End Get - Set - Me("GN4") = Value - End Set - End Property - - - Public Property GN5() As String - Get - Return CType(Me("GN5"), String) - End Get - Set - Me("GN5") = Value - End Set - End Property - - - Public Property GN6() As String - Get - Return CType(Me("GN6"), String) - End Get - Set - Me("GN6") = Value - End Set - End Property - - - Public Property CardBack() As String - Get - Return CType(Me("CardBack"), String) - End Get - Set - Me("CardBack") = Value - End Set - End Property - - - Public Property GoldTokens() As Integer - Get - Return CType(Me("GoldTokens"), Integer) - End Get - Set - Me("GoldTokens") = Value - End Set - End Property - - - Public Property SilverTokens() As Integer - Get - Return CType(Me("SilverTokens"), Integer) - End Get - Set - Me("SilverTokens") = Value - End Set - End Property - - - Public Property BronzeTokens() As Integer - Get - Return CType(Me("BronzeTokens"), Integer) - End Get - Set - Me("BronzeTokens") = Value - End Set - End Property - - - Public Property B1() As Integer - Get - Return CType(Me("B1"), Integer) - End Get - Set - Me("B1") = Value - End Set - End Property - - - Public Property B2() As Integer - Get - Return CType(Me("B2"), Integer) - End Get - Set - Me("B2") = Value - End Set - End Property - - - Public Property B3() As Integer - Get - Return CType(Me("B3"), Integer) - End Get - Set - Me("B3") = Value - End Set - End Property - - - Public Property B4() As Integer - Get - Return CType(Me("B4"), Integer) - End Get - Set - Me("B4") = Value - End Set - End Property - - - Public Property B5() As Integer - Get - Return CType(Me("B5"), Integer) - End Get - Set - Me("B5") = Value - End Set - End Property - - - Public Property B6() As Integer - Get - Return CType(Me("B6"), Integer) - End Get - Set - Me("B6") = Value - End Set - End Property - - - Public Property S1() As Integer - Get - Return CType(Me("S1"), Integer) - End Get - Set - Me("S1") = Value - End Set - End Property - - - Public Property S2() As Integer - Get - Return CType(Me("S2"), Integer) - End Get - Set - Me("S2") = Value - End Set - End Property - - - Public Property S3() As Integer - Get - Return CType(Me("S3"), Integer) - End Get - Set - Me("S3") = Value - End Set - End Property - - - Public Property S4() As Integer - Get - Return CType(Me("S4"), Integer) - End Get - Set - Me("S4") = Value - End Set - End Property - - - Public Property S5() As Integer - Get - Return CType(Me("S5"), Integer) - End Get - Set - Me("S5") = Value - End Set - End Property - - - Public Property S6() As Integer - Get - Return CType(Me("S6"), Integer) - End Get - Set - Me("S6") = Value - End Set - End Property - - - Public Property G1() As Integer - Get - Return CType(Me("G1"), Integer) - End Get - Set - Me("G1") = Value - End Set - End Property - - - Public Property G2() As Integer - Get - Return CType(Me("G2"), Integer) - End Get - Set - Me("G2") = Value - End Set - End Property - - - Public Property G3() As Integer - Get - Return CType(Me("G3"), Integer) - End Get - Set - Me("G3") = Value - End Set - End Property - - - Public Property G4() As Integer - Get - Return CType(Me("G4"), Integer) - End Get - Set - Me("G4") = Value - End Set - End Property - - - Public Property G5() As Integer - Get - Return CType(Me("G5"), Integer) - End Get - Set - Me("G5") = Value - End Set - End Property - - - Public Property G6() As Integer - Get - Return CType(Me("G6"), Integer) - End Get - Set - Me("G6") = Value - End Set - End Property - - - Public Property ClearWishlist() As Boolean - Get - Return CType(Me("ClearWishlist"), Boolean) - End Get - Set - Me("ClearWishlist") = Value - End Set - End Property - - - Public Property WishlistName() As String - Get - Return CType(Me("WishlistName"), String) - End Get - Set - Me("WishlistName") = Value - End Set - End Property - - - Public Property WishlistPreview() As String - Get - Return CType(Me("WishlistPreview"), String) - End Get - Set - Me("WishlistPreview") = Value - End Set - End Property - - - Public Property WishlistTokenType() As String - Get - Return CType(Me("WishlistTokenType"), String) - End Get - Set - Me("WishlistTokenType") = Value - End Set - End Property - - - Public Property WishlistCost() As Integer - Get - Return CType(Me("WishlistCost"), Integer) - End Get - Set - Me("WishlistCost") = Value - End Set - End Property - - - Public Property WishlistNote() As String - Get - Return CType(Me("WishlistNote"), String) - End Get - Set - Me("WishlistNote") = Value - End Set - End Property - - - Public Property AvgEdgeCountRest() As Integer - Get - Return CType(Me("AvgEdgeCountRest"), Integer) - End Get - Set - Me("AvgEdgeCountRest") = Value - End Set - End Property - - - Public Property PersonalityIndex() As Integer - Get - Return CType(Me("PersonalityIndex"), Integer) - End Get - Set - Me("PersonalityIndex") = Value - End Set - End Property - - - Public Property LargeUI() As Boolean - Get - Return CType(Me("LargeUI"), Boolean) - End Get - Set - Me("LargeUI") = Value - End Set - End Property - - - Public Property CBJackintheBox() As Boolean - Get - Return CType(Me("CBJackintheBox"), Boolean) - End Get - Set - Me("CBJackintheBox") = Value - End Set - End Property - - - Public Property NextImageChance() As Integer - Get - Return CType(Me("NextImageChance"), Integer) - End Get - Set - Me("NextImageChance") = Value - End Set - End Property - - - Public Property CBEdgeUseAvg() As Boolean - Get - Return CType(Me("CBEdgeUseAvg"), Boolean) - End Get - Set - Me("CBEdgeUseAvg") = Value - End Set - End Property - - - Public Property CBLongEdgeTaunts() As Boolean - Get - Return CType(Me("CBLongEdgeTaunts"), Boolean) - End Get - Set - Me("CBLongEdgeTaunts") = Value - End Set - End Property - - - Public Property CBLongEdgeInterrupts() As Boolean - Get - Return CType(Me("CBLongEdgeInterrupts"), Boolean) - End Get - Set - Me("CBLongEdgeInterrupts") = Value - End Set - End Property - - - Public Property OrgasmsRemaining() As Integer - Get - Return CType(Me("OrgasmsRemaining"), Integer) - End Get - Set - Me("OrgasmsRemaining") = Value - End Set - End Property - - - Public Property OrgasmsLocked() As Boolean - Get - Return CType(Me("OrgasmsLocked"), Boolean) - End Get - Set - Me("OrgasmsLocked") = Value - End Set - End Property - - - Public Property TimerVTF() As Integer - Get - Return CType(Me("TimerVTF"), Integer) - End Get - Set - Me("TimerVTF") = Value - End Set - End Property - - - Public Property CBTeaseLengthDD() As Boolean - Get - Return CType(Me("CBTeaseLengthDD"), Boolean) - End Get - Set - Me("CBTeaseLengthDD") = Value - End Set - End Property - - - Public Property CBTauntCycleDD() As Boolean - Get - Return CType(Me("CBTauntCycleDD"), Boolean) - End Get - Set - Me("CBTauntCycleDD") = Value - End Set - End Property - - - Public Property CBOwnChastity() As Boolean - Get - Return CType(Me("CBOwnChastity"), Boolean) - End Get - Set - Me("CBOwnChastity") = Value - End Set - End Property - - - Public Property SmallUI() As Boolean - Get - Return CType(Me("SmallUI"), Boolean) - End Get - Set - Me("SmallUI") = Value - End Set - End Property - - - Public Property UI768() As Boolean - Get - Return CType(Me("UI768"), Boolean) - End Get - Set - Me("UI768") = Value - End Set - End Property - - - Public Property CBIncludeGifs() As Boolean - Get - Return CType(Me("CBIncludeGifs"), Boolean) - End Get - Set - Me("CBIncludeGifs") = Value - End Set - End Property - - - Public Property CBHimHer() As Boolean - Get - Return CType(Me("CBHimHer"), Boolean) - End Get - Set - Me("CBHimHer") = Value - End Set - End Property - - - Public Property DomDeleteMedia() As Boolean - Get - Return CType(Me("DomDeleteMedia"), Boolean) - End Get - Set - Me("DomDeleteMedia") = Value - End Set - End Property - - - Public Property TeaseLengthMin() As Integer - Get - Return CType(Me("TeaseLengthMin"), Integer) - End Get - Set - Me("TeaseLengthMin") = Value - End Set - End Property - - - Public Property TeaseLengthMax() As Integer - Get - Return CType(Me("TeaseLengthMax"), Integer) - End Get - Set - Me("TeaseLengthMax") = Value - End Set - End Property - - - Public Property TauntCycleMin() As Integer - Get - Return CType(Me("TauntCycleMin"), Integer) - End Get - Set - Me("TauntCycleMin") = Value - End Set - End Property - - - Public Property TauntCycleMax() As Integer - Get - Return CType(Me("TauntCycleMax"), Integer) - End Get - Set - Me("TauntCycleMax") = Value - End Set - End Property - - - Public Property RedLightMin() As Integer - Get - Return CType(Me("RedLightMin"), Integer) - End Get - Set - Me("RedLightMin") = Value - End Set - End Property - - - Public Property RedLightMax() As Integer - Get - Return CType(Me("RedLightMax"), Integer) - End Get - Set - Me("RedLightMax") = Value - End Set - End Property - - - Public Property GreenLightMin() As Integer - Get - Return CType(Me("GreenLightMin"), Integer) - End Get - Set - Me("GreenLightMin") = Value - End Set - End Property - - - Public Property GreenLightMax() As Integer - Get - Return CType(Me("GreenLightMax"), Integer) - End Get - Set - Me("GreenLightMax") = Value - End Set - End Property - - - Public Property SlideshowMode() As String - Get - Return CType(Me("SlideshowMode"), String) - End Get - Set - Me("SlideshowMode") = Value - End Set - End Property - - - Public Property OrgasmLockDate() As Date - Get - Return CType(Me("OrgasmLockDate"), Date) - End Get - Set - Me("OrgasmLockDate") = Value - End Set - End Property - - - Public Property AuditStartup() As Boolean - Get - Return CType(Me("AuditStartup"), Boolean) - End Get - Set - Me("AuditStartup") = Value - End Set - End Property - - - Public Property WishlistDate() As Date - Get - Return CType(Me("WishlistDate"), Date) - End Get - Set - Me("WishlistDate") = Value - End Set - End Property - - - Public Property LastOrgasm() As Date - Get - Return CType(Me("LastOrgasm"), Date) - End Get - Set - Me("LastOrgasm") = Value - End Set - End Property - - - Public Property LastRuined() As Date - Get - Return CType(Me("LastRuined"), Date) - End Get - Set - Me("LastRuined") = Value - End Set - End Property - - - Public Property DateStamp() As Date - Get - Return CType(Me("DateStamp"), Date) - End Get - Set - Me("DateStamp") = Value - End Set - End Property - - - Public Property TokenTasks() As Date - Get - Return CType(Me("TokenTasks"), Date) - End Get - Set - Me("TokenTasks") = Value - End Set - End Property - - - Public Property WebToyStart() As String - Get - Return CType(Me("WebToyStart"), String) - End Get - Set - Me("WebToyStart") = Value - End Set - End Property - - - Public Property WebToyStop() As String - Get - Return CType(Me("WebToyStop"), String) - End Get - Set - Me("WebToyStop") = Value - End Set - End Property - - - Public Property CockToClit() As Boolean - Get - Return CType(Me("CockToClit"), Boolean) - End Get - Set - Me("CockToClit") = Value - End Set - End Property - - - Public Property BallsToPussy() As Boolean - Get - Return CType(Me("BallsToPussy"), Boolean) - End Get - Set - Me("BallsToPussy") = Value - End Set - End Property - - - Public Property Contact1ImageDir() As String - Get - Return CType(Me("Contact1ImageDir"), String) - End Get - Set - Me("Contact1ImageDir") = Value - End Set - End Property - - - Public Property Contact2ImageDir() As String - Get - Return CType(Me("Contact2ImageDir"), String) - End Get - Set - Me("Contact2ImageDir") = Value - End Set - End Property - - - Public Property Contact3ImageDir() As String - Get - Return CType(Me("Contact3ImageDir"), String) - End Get - Set - Me("Contact3ImageDir") = Value - End Set - End Property - - - Public Property CBGlitterFeedOff() As Boolean - Get - Return CType(Me("CBGlitterFeedOff"), Boolean) - End Get - Set - Me("CBGlitterFeedOff") = Value - End Set - End Property - - _ + Public Property GlitterNCDommeColor() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNCDommeColor"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNCDommeColor") = value + End Set + End Property + + _ + Public Property GlitterNC1Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC1Color"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC1Color") = value + End Set + End Property + + _ + Public Property GlitterNC2Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC2Color"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC2Color") = value + End Set + End Property + + _ + Public Property GlitterNC3Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC3Color"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC3Color") = value + End Set + End Property + + _ + Public Property GlitterDSlider() As Integer + Get + Return CType(Me("GlitterDSlider"),Integer) + End Get + Set + Me("GlitterDSlider") = value + End Set + End Property + + _ + Public Property Glitter1Slider() As Integer + Get + Return CType(Me("Glitter1Slider"),Integer) + End Get + Set + Me("Glitter1Slider") = value + End Set + End Property + + _ + Public Property Glitter2Slider() As Integer + Get + Return CType(Me("Glitter2Slider"),Integer) + End Get + Set + Me("Glitter2Slider") = value + End Set + End Property + + _ + Public Property Glitter3Slider() As Integer + Get + Return CType(Me("Glitter3Slider"),Integer) + End Get + Set + Me("Glitter3Slider") = value + End Set + End Property + + _ + Public Property CBGlitterFeed() As Boolean + Get + Return CType(Me("CBGlitterFeed"),Boolean) + End Get + Set + Me("CBGlitterFeed") = value + End Set + End Property + + _ + Public Property CBGlitter1() As Boolean + Get + Return CType(Me("CBGlitter1"),Boolean) + End Get + Set + Me("CBGlitter1") = value + End Set + End Property + + _ + Public Property CBGlitter2() As Boolean + Get + Return CType(Me("CBGlitter2"),Boolean) + End Get + Set + Me("CBGlitter2") = value + End Set + End Property + + _ + Public Property CBGlitter3() As Boolean + Get + Return CType(Me("CBGlitter3"),Boolean) + End Get + Set + Me("CBGlitter3") = value + End Set + End Property + + _ + Public Property CBTease() As Boolean + Get + Return CType(Me("CBTease"),Boolean) + End Get + Set + Me("CBTease") = value + End Set + End Property + + _ + Public Property CBEgotist() As Boolean + Get + Return CType(Me("CBEgotist"),Boolean) + End Get + Set + Me("CBEgotist") = value + End Set + End Property + + _ + Public Property CBTrivia() As Boolean + Get + Return CType(Me("CBTrivia"),Boolean) + End Get + Set + Me("CBTrivia") = value + End Set + End Property + + _ + Public Property CBDaily() As Boolean + Get + Return CType(Me("CBDaily"),Boolean) + End Get + Set + Me("CBDaily") = value + End Set + End Property + + _ + Public Property CBCustom1() As Boolean + Get + Return CType(Me("CBCustom1"),Boolean) + End Get + Set + Me("CBCustom1") = value + End Set + End Property + + _ + Public Property CBCustom2() As Boolean + Get + Return CType(Me("CBCustom2"),Boolean) + End Get + Set + Me("CBCustom2") = value + End Set + End Property + + _ + Public Property CB1Bratty() As Boolean + Get + Return CType(Me("CB1Bratty"),Boolean) + End Get + Set + Me("CB1Bratty") = value + End Set + End Property + + _ + Public Property CB1Cruel() As Boolean + Get + Return CType(Me("CB1Cruel"),Boolean) + End Get + Set + Me("CB1Cruel") = value + End Set + End Property + + _ + Public Property CB1Caring() As Boolean + Get + Return CType(Me("CB1Caring"),Boolean) + End Get + Set + Me("CB1Caring") = value + End Set + End Property + + _ + Public Property CB1Angry() As Boolean + Get + Return CType(Me("CB1Angry"),Boolean) + End Get + Set + Me("CB1Angry") = value + End Set + End Property + + _ + Public Property CB1Custom1() As Boolean + Get + Return CType(Me("CB1Custom1"),Boolean) + End Get + Set + Me("CB1Custom1") = value + End Set + End Property + + _ + Public Property CB1Custom2() As Boolean + Get + Return CType(Me("CB1Custom2"),Boolean) + End Get + Set + Me("CB1Custom2") = value + End Set + End Property + + _ + Public Property CB2Bratty() As Boolean + Get + Return CType(Me("CB2Bratty"),Boolean) + End Get + Set + Me("CB2Bratty") = value + End Set + End Property + + _ + Public Property CB2Cruel() As Boolean + Get + Return CType(Me("CB2Cruel"),Boolean) + End Get + Set + Me("CB2Cruel") = value + End Set + End Property + + _ + Public Property CB2Caring() As Boolean + Get + Return CType(Me("CB2Caring"),Boolean) + End Get + Set + Me("CB2Caring") = value + End Set + End Property + + _ + Public Property CB2Angry() As Boolean + Get + Return CType(Me("CB2Angry"),Boolean) + End Get + Set + Me("CB2Angry") = value + End Set + End Property + + _ + Public Property CB2Custom1() As Boolean + Get + Return CType(Me("CB2Custom1"),Boolean) + End Get + Set + Me("CB2Custom1") = value + End Set + End Property + + _ + Public Property CB2Custom2() As Boolean + Get + Return CType(Me("CB2Custom2"),Boolean) + End Get + Set + Me("CB2Custom2") = value + End Set + End Property + + _ + Public Property CB3Bratty() As Boolean + Get + Return CType(Me("CB3Bratty"),Boolean) + End Get + Set + Me("CB3Bratty") = value + End Set + End Property + + _ + Public Property CB3Cruel() As Boolean + Get + Return CType(Me("CB3Cruel"),Boolean) + End Get + Set + Me("CB3Cruel") = value + End Set + End Property + + _ + Public Property CB3Caring() As Boolean + Get + Return CType(Me("CB3Caring"),Boolean) + End Get + Set + Me("CB3Caring") = value + End Set + End Property + + _ + Public Property CB3Angry() As Boolean + Get + Return CType(Me("CB3Angry"),Boolean) + End Get + Set + Me("CB3Angry") = value + End Set + End Property + + _ + Public Property CB3Custom1() As Boolean + Get + Return CType(Me("CB3Custom1"),Boolean) + End Get + Set + Me("CB3Custom1") = value + End Set + End Property + + _ + Public Property CB3Custom2() As Boolean + Get + Return CType(Me("CB3Custom2"),Boolean) + End Get + Set + Me("CB3Custom2") = value + End Set + End Property + + _ + Public Property DomName() As String + Get + Return CType(Me("DomName"),String) + End Get + Set + Me("DomName") = value + End Set + End Property + + _ + Public Property SubName() As String + Get + Return CType(Me("SubName"),String) + End Get + Set + Me("SubName") = value + End Set + End Property + + _ + Public Property pnSetting1() As String + Get + Return CType(Me("pnSetting1"),String) + End Get + Set + Me("pnSetting1") = value + End Set + End Property + + _ + Public Property pnSetting2() As String + Get + Return CType(Me("pnSetting2"),String) + End Get + Set + Me("pnSetting2") = value + End Set + End Property + + _ + Public Property pnSetting3() As String + Get + Return CType(Me("pnSetting3"),String) + End Get + Set + Me("pnSetting3") = value + End Set + End Property + + _ + Public Property pnSetting4() As String + Get + Return CType(Me("pnSetting4"),String) + End Get + Set + Me("pnSetting4") = value + End Set + End Property + + _ + Public Property pnSetting5() As String + Get + Return CType(Me("pnSetting5"),String) + End Get + Set + Me("pnSetting5") = value + End Set + End Property + + _ + Public Property pnSetting6() As String + Get + Return CType(Me("pnSetting6"),String) + End Get + Set + Me("pnSetting6") = value + End Set + End Property + + _ + Public Property pnSetting7() As String + Get + Return CType(Me("pnSetting7"),String) + End Get + Set + Me("pnSetting7") = value + End Set + End Property + + _ + Public Property pnSetting8() As String + Get + Return CType(Me("pnSetting8"),String) + End Get + Set + Me("pnSetting8") = value + End Set + End Property + + _ + Public Property DomColor() As String + Get + Return CType(Me("DomColor"),String) + End Get + Set + Me("DomColor") = value + End Set + End Property + + _ + Public Property SubColor() As String + Get + Return CType(Me("SubColor"),String) + End Get + Set + Me("SubColor") = value + End Set + End Property + + _ + Public Property DomColorColor() As Global.System.Drawing.Color + Get + Return CType(Me("DomColorColor"),Global.System.Drawing.Color) + End Get + Set + Me("DomColorColor") = value + End Set + End Property + + _ + Public Property SubColorColor() As Global.System.Drawing.Color + Get + Return CType(Me("SubColorColor"),Global.System.Drawing.Color) + End Get + Set + Me("SubColorColor") = value + End Set + End Property + + _ + Public Property CBTimeStamps() As Boolean + Get + Return CType(Me("CBTimeStamps"),Boolean) + End Get + Set + Me("CBTimeStamps") = value + End Set + End Property + + _ + Public Property CBShowNames() As Boolean + Get + Return CType(Me("CBShowNames"),Boolean) + End Get + Set + Me("CBShowNames") = value + End Set + End Property + + _ + Public Property CBInstantType() As Boolean + Get + Return CType(Me("CBInstantType"),Boolean) + End Get + Set + Me("CBInstantType") = value + End Set + End Property + + _ + Public Property CBBlogImageMain() As Boolean + Get + Return CType(Me("CBBlogImageMain"),Boolean) + End Get + Set + Me("CBBlogImageMain") = value + End Set + End Property + + _ + Public Property CBStretchLandscape() As Boolean + Get + Return CType(Me("CBStretchLandscape"),Boolean) + End Get + Set + Me("CBStretchLandscape") = value + End Set + End Property + + _ + Public Property CBMetronome() As Boolean + Get + Return CType(Me("CBMetronome"),Boolean) + End Get + Set + Me("CBMetronome") = value + End Set + End Property + + _ + Public Property CBSettingsPause() As Boolean + Get + Return CType(Me("CBSettingsPause"),Boolean) + End Get + Set + Me("CBSettingsPause") = value + End Set + End Property + + _ + Public Property DomLevel() As Integer + Get + Return CType(Me("DomLevel"),Integer) + End Get + Set + Me("DomLevel") = value + End Set + End Property + + _ + Public Property OrgasmAllow() As String + Get + Return CType(Me("OrgasmAllow"),String) + End Get + Set + Me("OrgasmAllow") = value + End Set + End Property + + _ + Public Property OrgasmRuin() As String + Get + Return CType(Me("OrgasmRuin"),String) + End Get + Set + Me("OrgasmRuin") = value + End Set + End Property + + _ + Public Property CBAutosaveChatlog() As Boolean + Get + Return CType(Me("CBAutosaveChatlog"),Boolean) + End Get + Set + Me("CBAutosaveChatlog") = value + End Set + End Property + + _ + Public Property CBExitSaveChatlog() As Boolean + Get + Return CType(Me("CBExitSaveChatlog"),Boolean) + End Get + Set + Me("CBExitSaveChatlog") = value + End Set + End Property + + _ + Public Property AvgEdgeStroking() As Integer + Get + Return CType(Me("AvgEdgeStroking"),Integer) + End Get + Set + Me("AvgEdgeStroking") = value + End Set + End Property + + _ + Public Property AvgEdgeNoTouch() As Integer + Get + Return CType(Me("AvgEdgeNoTouch"),Integer) + End Get + Set + Me("AvgEdgeNoTouch") = value + End Set + End Property + + _ + Public Property AvgEdgeCount() As Integer + Get + Return CType(Me("AvgEdgeCount"),Integer) + End Get + Set + Me("AvgEdgeCount") = value + End Set + End Property + + _ + Public Property StrokeTimeTotal() As Integer + Get + Return CType(Me("StrokeTimeTotal"),Integer) + End Get + Set + Me("StrokeTimeTotal") = value + End Set + End Property + + _ + Public Property NBWritingTaskMin() As Integer + Get + Return CType(Me("NBWritingTaskMin"),Integer) + End Get + Set + Me("NBWritingTaskMin") = value + End Set + End Property + + _ + Public Property NBWritingTaskMax() As Integer + Get + Return CType(Me("NBWritingTaskMax"),Integer) + End Get + Set + Me("NBWritingTaskMax") = value + End Set + End Property + + _ + Public Property LBLBoobPath() As String + Get + Return CType(Me("LBLBoobPath"),String) + End Get + Set + Me("LBLBoobPath") = value + End Set + End Property + + _ + Public Property UrlFileBoobs() As String + Get + Return CType(Me("UrlFileBoobs"),String) + End Get + Set + Me("UrlFileBoobs") = value + End Set + End Property + + _ + Public Property LBLButtPath() As String + Get + Return CType(Me("LBLButtPath"),String) + End Get + Set + Me("LBLButtPath") = value + End Set + End Property + + _ + Public Property UrlFileButt() As String + Get + Return CType(Me("UrlFileButt"),String) + End Get + Set + Me("UrlFileButt") = value + End Set + End Property + + _ + Public Property CBBnBLocal() As Boolean + Get + Return CType(Me("CBBnBLocal"),Boolean) + End Get + Set + Me("CBBnBLocal") = value + End Set + End Property + + _ + Public Property CBBnBURL() As Boolean + Get + Return CType(Me("CBBnBURL"),Boolean) + End Get + Set + Me("CBBnBURL") = value + End Set + End Property + + _ + Public Property CBBoobSubDir() As Boolean + Get + Return CType(Me("CBBoobSubDir"),Boolean) + End Get + Set + Me("CBBoobSubDir") = value + End Set + End Property + + _ + Public Property CBButtSubDir() As Boolean + Get + Return CType(Me("CBButtSubDir"),Boolean) + End Get + Set + Me("CBButtSubDir") = value + End Set + End Property + + _ + Public Property CBEnableBnB() As Boolean + Get + Return CType(Me("CBEnableBnB"),Boolean) + End Get + Set + Me("CBEnableBnB") = value + End Set + End Property + + _ + Public Property CBSlideshowSubDir() As Boolean + Get + Return CType(Me("CBSlideshowSubDir"),Boolean) + End Get + Set + Me("CBSlideshowSubDir") = value + End Set + End Property + + _ + Public Property CBSlideshowRandom() As Boolean + Get + Return CType(Me("CBSlideshowRandom"),Boolean) + End Get + Set + Me("CBSlideshowRandom") = value + End Set + End Property + + _ + Public Property DomAge() As Integer + Get + Return CType(Me("DomAge"),Integer) + End Get + Set + Me("DomAge") = value + End Set + End Property + + _ + Public Property DomHair() As String + Get + Return CType(Me("DomHair"),String) + End Get + Set + Me("DomHair") = value + End Set + End Property + + _ + Public Property DomEyes() As String + Get + Return CType(Me("DomEyes"),String) + End Get + Set + Me("DomEyes") = value + End Set + End Property + + _ + Public Property DomCup() As String + Get + Return CType(Me("DomCup"),String) + End Get + Set + Me("DomCup") = value + End Set + End Property + + _ + Public Property DomPersonality() As String + Get + Return CType(Me("DomPersonality"),String) + End Get + Set + Me("DomPersonality") = value + End Set + End Property + + _ + Public Property DomCrazy() As Boolean + Get + Return CType(Me("DomCrazy"),Boolean) + End Get + Set + Me("DomCrazy") = value + End Set + End Property + + _ + Public Property DomVulgar() As Boolean + Get + Return CType(Me("DomVulgar"),Boolean) + End Get + Set + Me("DomVulgar") = value + End Set + End Property + + _ + Public Property DomSupremacist() As Boolean + Get + Return CType(Me("DomSupremacist"),Boolean) + End Get + Set + Me("DomSupremacist") = value + End Set + End Property + + _ + Public Property DomLowercase() As Boolean + Get + Return CType(Me("DomLowercase"),Boolean) + End Get + Set + Me("DomLowercase") = value + End Set + End Property + + _ + Public Property DomNoApostrophes() As Boolean + Get + Return CType(Me("DomNoApostrophes"),Boolean) + End Get + Set + Me("DomNoApostrophes") = value + End Set + End Property + + _ + Public Property DomNoCommas() As Boolean + Get + Return CType(Me("DomNoCommas"),Boolean) + End Get + Set + Me("DomNoCommas") = value + End Set + End Property + + _ + Public Property DomNoPeriods() As Boolean + Get + Return CType(Me("DomNoPeriods"),Boolean) + End Get + Set + Me("DomNoPeriods") = value + End Set + End Property + + _ + Public Property DomMeMyMine() As Boolean + Get + Return CType(Me("DomMeMyMine"),Boolean) + End Get + Set + Me("DomMeMyMine") = value + End Set + End Property + + _ + Public Property DomEmotes() As String + Get + Return CType(Me("DomEmotes"),String) + End Get + Set + Me("DomEmotes") = value + End Set + End Property + + _ + Public Property DomDenialEnd() As Boolean + Get + Return CType(Me("DomDenialEnd"),Boolean) + End Get + Set + Me("DomDenialEnd") = value + End Set + End Property + + _ + Public Property DomOrgasmEnd() As Boolean + Get + Return CType(Me("DomOrgasmEnd"),Boolean) + End Get + Set + Me("DomOrgasmEnd") = value + End Set + End Property + + _ + Public Property DomPOT() As Boolean + Get + Return CType(Me("DomPOT"),Boolean) + End Get + Set + Me("DomPOT") = value + End Set + End Property + + _ + Public Property DomLimit() As Boolean + Get + Return CType(Me("DomLimit"),Boolean) + End Get + Set + Me("DomLimit") = value + End Set + End Property + + _ + Public Property DomOrgasmPer() As Integer + Get + Return CType(Me("DomOrgasmPer"),Integer) + End Get + Set + Me("DomOrgasmPer") = value + End Set + End Property + + _ + Public Property DomPerMonth() As String + Get + Return CType(Me("DomPerMonth"),String) + End Get + Set + Me("DomPerMonth") = value + End Set + End Property + + _ + Public Property DomLock() As Boolean + Get + Return CType(Me("DomLock"),Boolean) + End Get + Set + Me("DomLock") = value + End Set + End Property + + _ + Public Property DomMoodMin() As Integer + Get + Return CType(Me("DomMoodMin"),Integer) + End Get + Set + Me("DomMoodMin") = value + End Set + End Property + + _ + Public Property DomMoodMax() As Integer + Get + Return CType(Me("DomMoodMax"),Integer) + End Get + Set + Me("DomMoodMax") = value + End Set + End Property + + _ + Public Property AvgCockMin() As Integer + Get + Return CType(Me("AvgCockMin"),Integer) + End Get + Set + Me("AvgCockMin") = value + End Set + End Property + + _ + Public Property AvgCockMax() As Integer + Get + Return CType(Me("AvgCockMax"),Integer) + End Get + Set + Me("AvgCockMax") = value + End Set + End Property + + _ + Public Property SelfAgeMin() As Integer + Get + Return CType(Me("SelfAgeMin"),Integer) + End Get + Set + Me("SelfAgeMin") = value + End Set + End Property + + _ + Public Property SelfAgeMax() As Integer + Get + Return CType(Me("SelfAgeMax"),Integer) + End Get + Set + Me("SelfAgeMax") = value + End Set + End Property + + _ + Public Property SubAgeMin() As Integer + Get + Return CType(Me("SubAgeMin"),Integer) + End Get + Set + Me("SubAgeMin") = value + End Set + End Property + + _ + Public Property SubAgeMax() As String + Get + Return CType(Me("SubAgeMax"),String) + End Get + Set + Me("SubAgeMax") = value + End Set + End Property + + _ + Public Property CBLockWindow() As Boolean + Get + Return CType(Me("CBLockWindow"),Boolean) + End Get + Set + Me("CBLockWindow") = value + End Set + End Property + + _ + Public Property SubGreeting() As String + Get + Return CType(Me("SubGreeting"),String) + End Get + Set + Me("SubGreeting") = value + End Set + End Property + + _ + Public Property SubYes() As String + Get + Return CType(Me("SubYes"),String) + End Get + Set + Me("SubYes") = value + End Set + End Property + + _ + Public Property SubNo() As String + Get + Return CType(Me("SubNo"),String) + End Get + Set + Me("SubNo") = value + End Set + End Property + + _ + Public Property SubHonorific() As String + Get + Return CType(Me("SubHonorific"),String) + End Get + Set + Me("SubHonorific") = value + End Set + End Property + + _ + Public Property CBUseHonor() As Boolean + Get + Return CType(Me("CBUseHonor"),Boolean) + End Get + Set + Me("CBUseHonor") = value + End Set + End Property + + _ + Public Property CBCapHonor() As Boolean + Get + Return CType(Me("CBCapHonor"),Boolean) + End Get + Set + Me("CBCapHonor") = value + End Set + End Property + + _ + Public Property SubCockSize() As Integer + Get + Return CType(Me("SubCockSize"),Integer) + End Get + Set + Me("SubCockSize") = value + End Set + End Property + + _ + Public Property SubAge() As Integer + Get + Return CType(Me("SubAge"),Integer) + End Get + Set + Me("SubAge") = value + End Set + End Property + + _ + Public Property TCAgreed() As Boolean + Get + Return CType(Me("TCAgreed"),Boolean) + End Get + Set + Me("TCAgreed") = value + End Set + End Property + + _ + Public Property TimerSTF() As Integer + Get + Return CType(Me("TimerSTF"),Integer) + End Get + Set + Me("TimerSTF") = value + End Set + End Property + + _ + Public Property SubBirthMonth() As Integer + Get + Return CType(Me("SubBirthMonth"),Integer) + End Get + Set + Me("SubBirthMonth") = value + End Set + End Property + + _ + Public Property SubBirthDay() As Integer + Get + Return CType(Me("SubBirthDay"),Integer) + End Get + Set + Me("SubBirthDay") = value + End Set + End Property + + _ + Public Property SubHair() As String + Get + Return CType(Me("SubHair"),String) + End Get + Set + Me("SubHair") = value + End Set + End Property + + _ + Public Property SubEyes() As String + Get + Return CType(Me("SubEyes"),String) + End Get + Set + Me("SubEyes") = value + End Set + End Property + + _ + Public Property DomFontSize() As Integer + Get + Return CType(Me("DomFontSize"),Integer) + End Get + Set + Me("DomFontSize") = value + End Set + End Property + + _ + Public Property DomFont() As String + Get + Return CType(Me("DomFont"),String) + End Get + Set + Me("DomFont") = value + End Set + End Property + + _ + Public Property SubFont() As String + Get + Return CType(Me("SubFont"),String) + End Get + Set + Me("SubFont") = value + End Set + End Property + + _ + Public Property SubFontSize() As Integer + Get + Return CType(Me("SubFontSize"),Integer) + End Get + Set + Me("SubFontSize") = value + End Set + End Property + + _ + Public Property DomBirthMonth() As Integer + Get + Return CType(Me("DomBirthMonth"),Integer) + End Get + Set + Me("DomBirthMonth") = value + End Set + End Property + + _ + Public Property DomBirthDay() As Integer + Get + Return CType(Me("DomBirthDay"),Integer) + End Get + Set + Me("DomBirthDay") = value + End Set + End Property + + _ + Public Property DomHairLength() As String + Get + Return CType(Me("DomHairLength"),String) + End Get + Set + Me("DomHairLength") = value + End Set + End Property + + _ + Public Property DomPubicHair() As String + Get + Return CType(Me("DomPubicHair"),String) + End Get + Set + Me("DomPubicHair") = value + End Set + End Property + + _ + Public Property DomTattoos() As Boolean + Get + Return CType(Me("DomTattoos"),Boolean) + End Get + Set + Me("DomTattoos") = value + End Set + End Property + + _ + Public Property DomFreckles() As Boolean + Get + Return CType(Me("DomFreckles"),Boolean) + End Get + Set + Me("DomFreckles") = value + End Set + End Property + + _ + Public Property CBImageInfo() As Boolean + Get + Return CType(Me("CBImageInfo"),Boolean) + End Get + Set + Me("CBImageInfo") = value + End Set + End Property + + _ + Public Property DomAVStretch() As Boolean + Get + Return CType(Me("DomAVStretch"),Boolean) + End Get + Set + Me("DomAVStretch") = value + End Set + End Property + + _ + Public Property SubAvStretch() As Boolean + Get + Return CType(Me("SubAvStretch"),Boolean) + End Get + Set + Me("SubAvStretch") = value + End Set + End Property + + _ + Public Property IHardcore() As String + Get + Return CType(Me("IHardcore"),String) + End Get + Set + Me("IHardcore") = value + End Set + End Property + + _ + Public Property ISoftcore() As String + Get + Return CType(Me("ISoftcore"),String) + End Get + Set + Me("ISoftcore") = value + End Set + End Property + + _ + Public Property ILesbian() As String + Get + Return CType(Me("ILesbian"),String) + End Get + Set + Me("ILesbian") = value + End Set + End Property + + _ + Public Property IBlowjob() As String + Get + Return CType(Me("IBlowjob"),String) + End Get + Set + Me("IBlowjob") = value + End Set + End Property + + _ + Public Property IFemdom() As String + Get + Return CType(Me("IFemdom"),String) + End Get + Set + Me("IFemdom") = value + End Set + End Property + + _ + Public Property ILezdom() As String + Get + Return CType(Me("ILezdom"),String) + End Get + Set + Me("ILezdom") = value + End Set + End Property + + _ + Public Property IHentai() As String + Get + Return CType(Me("IHentai"),String) + End Get + Set + Me("IHentai") = value + End Set + End Property + + _ + Public Property IGay() As String + Get + Return CType(Me("IGay"),String) + End Get + Set + Me("IGay") = value + End Set + End Property + + _ + Public Property IMaledom() As String + Get + Return CType(Me("IMaledom"),String) + End Get + Set + Me("IMaledom") = value + End Set + End Property + + _ + Public Property IGeneral() As String + Get + Return CType(Me("IGeneral"),String) + End Get + Set + Me("IGeneral") = value + End Set + End Property + + _ + Public Property IHardcoreSD() As Boolean + Get + Return CType(Me("IHardcoreSD"),Boolean) + End Get + Set + Me("IHardcoreSD") = value + End Set + End Property + + _ + Public Property ISoftcoreSD() As Boolean + Get + Return CType(Me("ISoftcoreSD"),Boolean) + End Get + Set + Me("ISoftcoreSD") = value + End Set + End Property + + _ + Public Property ILesbianSD() As Boolean + Get + Return CType(Me("ILesbianSD"),Boolean) + End Get + Set + Me("ILesbianSD") = value + End Set + End Property + + _ + Public Property IBlowjobSD() As Boolean + Get + Return CType(Me("IBlowjobSD"),Boolean) + End Get + Set + Me("IBlowjobSD") = value + End Set + End Property + + _ + Public Property IFemdomSD() As Boolean + Get + Return CType(Me("IFemdomSD"),Boolean) + End Get + Set + Me("IFemdomSD") = value + End Set + End Property + + _ + Public Property ILezdomSD() As Boolean + Get + Return CType(Me("ILezdomSD"),Boolean) + End Get + Set + Me("ILezdomSD") = value + End Set + End Property + + _ + Public Property IHentaiSD() As Boolean + Get + Return CType(Me("IHentaiSD"),Boolean) + End Get + Set + Me("IHentaiSD") = value + End Set + End Property + + _ + Public Property IGaySD() As Boolean + Get + Return CType(Me("IGaySD"),Boolean) + End Get + Set + Me("IGaySD") = value + End Set + End Property + + _ + Public Property IMaledomSD() As Boolean + Get + Return CType(Me("IMaledomSD"),Boolean) + End Get + Set + Me("IMaledomSD") = value + End Set + End Property + + _ + Public Property IGeneralSD() As Boolean + Get + Return CType(Me("IGeneralSD"),Boolean) + End Get + Set + Me("IGeneralSD") = value + End Set + End Property + + _ + Public Property ICaptionsSD() As Boolean + Get + Return CType(Me("ICaptionsSD"),Boolean) + End Get + Set + Me("ICaptionsSD") = value + End Set + End Property + + _ + Public Property CBIHardcore() As Boolean + Get + Return CType(Me("CBIHardcore"),Boolean) + End Get + Set + Me("CBIHardcore") = value + End Set + End Property + + _ + Public Property CBISoftcore() As Boolean + Get + Return CType(Me("CBISoftcore"),Boolean) + End Get + Set + Me("CBISoftcore") = value + End Set + End Property + + _ + Public Property CBILesbian() As Boolean + Get + Return CType(Me("CBILesbian"),Boolean) + End Get + Set + Me("CBILesbian") = value + End Set + End Property + + _ + Public Property CBIBlowjob() As Boolean + Get + Return CType(Me("CBIBlowjob"),Boolean) + End Get + Set + Me("CBIBlowjob") = value + End Set + End Property + + _ + Public Property CBIFemdom() As Boolean + Get + Return CType(Me("CBIFemdom"),Boolean) + End Get + Set + Me("CBIFemdom") = value + End Set + End Property + + _ + Public Property CBILezdom() As Boolean + Get + Return CType(Me("CBILezdom"),Boolean) + End Get + Set + Me("CBILezdom") = value + End Set + End Property + + _ + Public Property CBIHentai() As Boolean + Get + Return CType(Me("CBIHentai"),Boolean) + End Get + Set + Me("CBIHentai") = value + End Set + End Property + + _ + Public Property CBIGay() As Boolean + Get + Return CType(Me("CBIGay"),Boolean) + End Get + Set + Me("CBIGay") = value + End Set + End Property + + _ + Public Property CBIMaledom() As Boolean + Get + Return CType(Me("CBIMaledom"),Boolean) + End Get + Set + Me("CBIMaledom") = value + End Set + End Property + + _ + Public Property CBIGeneral() As Boolean + Get + Return CType(Me("CBIGeneral"),Boolean) + End Get + Set + Me("CBIGeneral") = value + End Set + End Property + + _ + Public Property CBICaptions() As Boolean + Get + Return CType(Me("CBICaptions"),Boolean) + End Get + Set + Me("CBICaptions") = value + End Set + End Property + + _ + Public Property ICaptions() As String + Get + Return CType(Me("ICaptions"),String) + End Get + Set + Me("ICaptions") = value + End Set + End Property + + _ + Public Property DomImageDir() As String + Get + Return CType(Me("DomImageDir"),String) + End Get + Set + Me("DomImageDir") = value + End Set + End Property + + _ + Public Property CBTCock() As Boolean + Get + Return CType(Me("CBTCock"),Boolean) + End Get + Set + Me("CBTCock") = value + End Set + End Property + + _ + Public Property CBTBalls() As Boolean + Get + Return CType(Me("CBTBalls"),Boolean) + End Get + Set + Me("CBTBalls") = value + End Set + End Property + + _ + Public Property ChastityPA() As Boolean + Get + Return CType(Me("ChastityPA"),Boolean) + End Get + Set + Me("ChastityPA") = value + End Set + End Property + + _ + Public Property ChastitySpikes() As Boolean + Get + Return CType(Me("ChastitySpikes"),Boolean) + End Get + Set + Me("ChastitySpikes") = value + End Set + End Property + + _ + Public Property SubInChastity() As Boolean + Get + Return CType(Me("SubInChastity"),Boolean) + End Get + Set + Me("SubInChastity") = value + End Set + End Property + + _ + Public Property LongEdge() As Integer + Get + Return CType(Me("LongEdge"),Integer) + End Get + Set + Me("LongEdge") = value + End Set + End Property + + _ + Public Property CBLongEdgeInterrupt() As Boolean + Get + Return CType(Me("CBLongEdgeInterrupt"),Boolean) + End Get + Set + Me("CBLongEdgeInterrupt") = value + End Set + End Property + + _ + Public Property HoldTheEdgeMax() As Integer + Get + Return CType(Me("HoldTheEdgeMax"),Integer) + End Get + Set + Me("HoldTheEdgeMax") = value + End Set + End Property + + _ + Public Property HoldEdgeTimeTotal() As Integer + Get + Return CType(Me("HoldEdgeTimeTotal"),Integer) + End Get + Set + Me("HoldEdgeTimeTotal") = value + End Set + End Property + + _ + Public Property CBTSlider() As Integer + Get + Return CType(Me("CBTSlider"),Integer) + End Get + Set + Me("CBTSlider") = value + End Set + End Property + + _ + Public Property SubCircumcised() As Boolean + Get + Return CType(Me("SubCircumcised"),Boolean) + End Get + Set + Me("SubCircumcised") = value + End Set + End Property + + _ + Public Property SubPierced() As Boolean + Get + Return CType(Me("SubPierced"),Boolean) + End Get + Set + Me("SubPierced") = value + End Set + End Property + + _ + Public Property DomEmpathy() As Integer + Get + Return CType(Me("DomEmpathy"),Integer) + End Get + Set + Me("DomEmpathy") = value + End Set + End Property + + _ + Public Property RangeOrgasm() As Boolean + Get + Return CType(Me("RangeOrgasm"),Boolean) + End Get + Set + Me("RangeOrgasm") = value + End Set + End Property + + _ + Public Property RangeRuin() As Boolean + Get + Return CType(Me("RangeRuin"),Boolean) + End Get + Set + Me("RangeRuin") = value + End Set + End Property + + _ + Public Property AllowOften() As Integer + Get + Return CType(Me("AllowOften"),Integer) + End Get + Set + Me("AllowOften") = value + End Set + End Property + + _ + Public Property AllowSometimes() As Integer + Get + Return CType(Me("AllowSometimes"),Integer) + End Get + Set + Me("AllowSometimes") = value + End Set + End Property + + _ + Public Property AllowRarely() As Integer + Get + Return CType(Me("AllowRarely"),Integer) + End Get + Set + Me("AllowRarely") = value + End Set + End Property + + _ + Public Property RuinOften() As Integer + Get + Return CType(Me("RuinOften"),Integer) + End Get + Set + Me("RuinOften") = value + End Set + End Property + + _ + Public Property RuinSometimes() As Integer + Get + Return CType(Me("RuinSometimes"),Integer) + End Get + Set + Me("RuinSometimes") = value + End Set + End Property + + _ + Public Property RuinRarely() As Integer + Get + Return CType(Me("RuinRarely"),Integer) + End Get + Set + Me("RuinRarely") = value + End Set + End Property + + _ + Public Property Chastity() As Boolean + Get + Return CType(Me("Chastity"),Boolean) + End Get + Set + Me("Chastity") = value + End Set + End Property + + _ + Public Property Safeword() As String + Get + Return CType(Me("Safeword"),String) + End Get + Set + Me("Safeword") = value + End Set + End Property + + _ + Public Property CaloriesConsumed() As Integer + Get + Return CType(Me("CaloriesConsumed"),Integer) + End Get + Set + Me("CaloriesConsumed") = value + End Set + End Property + + _ + Public Property CaloriesGoal() As Integer + Get + Return CType(Me("CaloriesGoal"),Integer) + End Get + Set + Me("CaloriesGoal") = value + End Set + End Property + + _ + Public Property VitalSubDisclaimer() As Boolean + Get + Return CType(Me("VitalSubDisclaimer"),Boolean) + End Get + Set + Me("VitalSubDisclaimer") = value + End Set + End Property + + _ + Public Property VitalSub() As Boolean + Get + Return CType(Me("VitalSub"),Boolean) + End Get + Set + Me("VitalSub") = value + End Set + End Property + + _ + Public Property VitalSubAssignments() As Boolean + Get + Return CType(Me("VitalSubAssignments"),Boolean) + End Get + Set + Me("VitalSubAssignments") = value + End Set + End Property + + _ + Public Property BP1() As String + Get + Return CType(Me("BP1"),String) + End Get + Set + Me("BP1") = value + End Set + End Property + + _ + Public Property BP2() As String + Get + Return CType(Me("BP2"),String) + End Get + Set + Me("BP2") = value + End Set + End Property + + _ + Public Property BP3() As String + Get + Return CType(Me("BP3"),String) + End Get + Set + Me("BP3") = value + End Set + End Property + + _ + Public Property BP4() As String + Get + Return CType(Me("BP4"),String) + End Get + Set + Me("BP4") = value + End Set + End Property + + _ + Public Property BP5() As String + Get + Return CType(Me("BP5"),String) + End Get + Set + Me("BP5") = value + End Set + End Property + + _ + Public Property BP6() As String + Get + Return CType(Me("BP6"),String) + End Get + Set + Me("BP6") = value + End Set + End Property + + _ + Public Property BN1() As String + Get + Return CType(Me("BN1"),String) + End Get + Set + Me("BN1") = value + End Set + End Property + + _ + Public Property BN2() As String + Get + Return CType(Me("BN2"),String) + End Get + Set + Me("BN2") = value + End Set + End Property + + _ + Public Property BN3() As String + Get + Return CType(Me("BN3"),String) + End Get + Set + Me("BN3") = value + End Set + End Property + + _ + Public Property BN4() As String + Get + Return CType(Me("BN4"),String) + End Get + Set + Me("BN4") = value + End Set + End Property + + _ + Public Property BN5() As String + Get + Return CType(Me("BN5"),String) + End Get + Set + Me("BN5") = value + End Set + End Property + + _ + Public Property BN6() As String + Get + Return CType(Me("BN6"),String) + End Get + Set + Me("BN6") = value + End Set + End Property + + _ + Public Property SP1() As String + Get + Return CType(Me("SP1"),String) + End Get + Set + Me("SP1") = value + End Set + End Property + + _ + Public Property SP2() As String + Get + Return CType(Me("SP2"),String) + End Get + Set + Me("SP2") = value + End Set + End Property + + _ + Public Property SP3() As String + Get + Return CType(Me("SP3"),String) + End Get + Set + Me("SP3") = value + End Set + End Property + + _ + Public Property SP4() As String + Get + Return CType(Me("SP4"),String) + End Get + Set + Me("SP4") = value + End Set + End Property + + _ + Public Property SP5() As String + Get + Return CType(Me("SP5"),String) + End Get + Set + Me("SP5") = value + End Set + End Property + + _ + Public Property SP6() As String + Get + Return CType(Me("SP6"),String) + End Get + Set + Me("SP6") = value + End Set + End Property + + _ + Public Property SN1() As String + Get + Return CType(Me("SN1"),String) + End Get + Set + Me("SN1") = value + End Set + End Property + + _ + Public Property SN2() As String + Get + Return CType(Me("SN2"),String) + End Get + Set + Me("SN2") = value + End Set + End Property + + _ + Public Property SN3() As String + Get + Return CType(Me("SN3"),String) + End Get + Set + Me("SN3") = value + End Set + End Property + + _ + Public Property SN4() As String + Get + Return CType(Me("SN4"),String) + End Get + Set + Me("SN4") = value + End Set + End Property + + _ + Public Property SN5() As String + Get + Return CType(Me("SN5"),String) + End Get + Set + Me("SN5") = value + End Set + End Property + + _ + Public Property SN6() As String + Get + Return CType(Me("SN6"),String) + End Get + Set + Me("SN6") = value + End Set + End Property + + _ + Public Property GP1() As String + Get + Return CType(Me("GP1"),String) + End Get + Set + Me("GP1") = value + End Set + End Property + + _ + Public Property GP2() As String + Get + Return CType(Me("GP2"),String) + End Get + Set + Me("GP2") = value + End Set + End Property + + _ + Public Property GP3() As String + Get + Return CType(Me("GP3"),String) + End Get + Set + Me("GP3") = value + End Set + End Property + + _ + Public Property GP4() As String + Get + Return CType(Me("GP4"),String) + End Get + Set + Me("GP4") = value + End Set + End Property + + _ + Public Property GP5() As String + Get + Return CType(Me("GP5"),String) + End Get + Set + Me("GP5") = value + End Set + End Property + + _ + Public Property GP6() As String + Get + Return CType(Me("GP6"),String) + End Get + Set + Me("GP6") = value + End Set + End Property + + _ + Public Property GN1() As String + Get + Return CType(Me("GN1"),String) + End Get + Set + Me("GN1") = value + End Set + End Property + + _ + Public Property GN2() As String + Get + Return CType(Me("GN2"),String) + End Get + Set + Me("GN2") = value + End Set + End Property + + _ + Public Property GN3() As String + Get + Return CType(Me("GN3"),String) + End Get + Set + Me("GN3") = value + End Set + End Property + + _ + Public Property GN4() As String + Get + Return CType(Me("GN4"),String) + End Get + Set + Me("GN4") = value + End Set + End Property + + _ + Public Property GN5() As String + Get + Return CType(Me("GN5"),String) + End Get + Set + Me("GN5") = value + End Set + End Property + + _ + Public Property GN6() As String + Get + Return CType(Me("GN6"),String) + End Get + Set + Me("GN6") = value + End Set + End Property + + _ + Public Property CardBack() As String + Get + Return CType(Me("CardBack"),String) + End Get + Set + Me("CardBack") = value + End Set + End Property + + _ + Public Property GoldTokens() As Integer + Get + Return CType(Me("GoldTokens"),Integer) + End Get + Set + Me("GoldTokens") = value + End Set + End Property + + _ + Public Property SilverTokens() As Integer + Get + Return CType(Me("SilverTokens"),Integer) + End Get + Set + Me("SilverTokens") = value + End Set + End Property + + _ + Public Property BronzeTokens() As Integer + Get + Return CType(Me("BronzeTokens"),Integer) + End Get + Set + Me("BronzeTokens") = value + End Set + End Property + + _ + Public Property B1() As Integer + Get + Return CType(Me("B1"),Integer) + End Get + Set + Me("B1") = value + End Set + End Property + + _ + Public Property B2() As Integer + Get + Return CType(Me("B2"),Integer) + End Get + Set + Me("B2") = value + End Set + End Property + + _ + Public Property B3() As Integer + Get + Return CType(Me("B3"),Integer) + End Get + Set + Me("B3") = value + End Set + End Property + + _ + Public Property B4() As Integer + Get + Return CType(Me("B4"),Integer) + End Get + Set + Me("B4") = value + End Set + End Property + + _ + Public Property B5() As Integer + Get + Return CType(Me("B5"),Integer) + End Get + Set + Me("B5") = value + End Set + End Property + + _ + Public Property B6() As Integer + Get + Return CType(Me("B6"),Integer) + End Get + Set + Me("B6") = value + End Set + End Property + + _ + Public Property S1() As Integer + Get + Return CType(Me("S1"),Integer) + End Get + Set + Me("S1") = value + End Set + End Property + + _ + Public Property S2() As Integer + Get + Return CType(Me("S2"),Integer) + End Get + Set + Me("S2") = value + End Set + End Property + + _ + Public Property S3() As Integer + Get + Return CType(Me("S3"),Integer) + End Get + Set + Me("S3") = value + End Set + End Property + + _ + Public Property S4() As Integer + Get + Return CType(Me("S4"),Integer) + End Get + Set + Me("S4") = value + End Set + End Property + + _ + Public Property S5() As Integer + Get + Return CType(Me("S5"),Integer) + End Get + Set + Me("S5") = value + End Set + End Property + + _ + Public Property S6() As Integer + Get + Return CType(Me("S6"),Integer) + End Get + Set + Me("S6") = value + End Set + End Property + + _ + Public Property G1() As Integer + Get + Return CType(Me("G1"),Integer) + End Get + Set + Me("G1") = value + End Set + End Property + + _ + Public Property G2() As Integer + Get + Return CType(Me("G2"),Integer) + End Get + Set + Me("G2") = value + End Set + End Property + + _ + Public Property G3() As Integer + Get + Return CType(Me("G3"),Integer) + End Get + Set + Me("G3") = value + End Set + End Property + + _ + Public Property G4() As Integer + Get + Return CType(Me("G4"),Integer) + End Get + Set + Me("G4") = value + End Set + End Property + + _ + Public Property G5() As Integer + Get + Return CType(Me("G5"),Integer) + End Get + Set + Me("G5") = value + End Set + End Property + + _ + Public Property G6() As Integer + Get + Return CType(Me("G6"),Integer) + End Get + Set + Me("G6") = value + End Set + End Property + + _ + Public Property ClearWishlist() As Boolean + Get + Return CType(Me("ClearWishlist"),Boolean) + End Get + Set + Me("ClearWishlist") = value + End Set + End Property + + _ + Public Property WishlistName() As String + Get + Return CType(Me("WishlistName"),String) + End Get + Set + Me("WishlistName") = value + End Set + End Property + + _ + Public Property WishlistPreview() As String + Get + Return CType(Me("WishlistPreview"),String) + End Get + Set + Me("WishlistPreview") = value + End Set + End Property + + _ + Public Property WishlistTokenType() As String + Get + Return CType(Me("WishlistTokenType"),String) + End Get + Set + Me("WishlistTokenType") = value + End Set + End Property + + _ + Public Property WishlistCost() As Integer + Get + Return CType(Me("WishlistCost"),Integer) + End Get + Set + Me("WishlistCost") = value + End Set + End Property + + _ + Public Property WishlistNote() As String + Get + Return CType(Me("WishlistNote"),String) + End Get + Set + Me("WishlistNote") = value + End Set + End Property + + _ + Public Property AvgEdgeCountRest() As Integer + Get + Return CType(Me("AvgEdgeCountRest"),Integer) + End Get + Set + Me("AvgEdgeCountRest") = value + End Set + End Property + + _ + Public Property PersonalityIndex() As Integer + Get + Return CType(Me("PersonalityIndex"),Integer) + End Get + Set + Me("PersonalityIndex") = value + End Set + End Property + + _ + Public Property LargeUI() As Boolean + Get + Return CType(Me("LargeUI"),Boolean) + End Get + Set + Me("LargeUI") = value + End Set + End Property + + _ + Public Property CBJackintheBox() As Boolean + Get + Return CType(Me("CBJackintheBox"),Boolean) + End Get + Set + Me("CBJackintheBox") = value + End Set + End Property + + _ + Public Property NextImageChance() As Integer + Get + Return CType(Me("NextImageChance"),Integer) + End Get + Set + Me("NextImageChance") = value + End Set + End Property + + _ + Public Property CBEdgeUseAvg() As Boolean + Get + Return CType(Me("CBEdgeUseAvg"),Boolean) + End Get + Set + Me("CBEdgeUseAvg") = value + End Set + End Property + + _ + Public Property CBLongEdgeTaunts() As Boolean + Get + Return CType(Me("CBLongEdgeTaunts"),Boolean) + End Get + Set + Me("CBLongEdgeTaunts") = value + End Set + End Property + + _ + Public Property CBLongEdgeInterrupts() As Boolean + Get + Return CType(Me("CBLongEdgeInterrupts"),Boolean) + End Get + Set + Me("CBLongEdgeInterrupts") = value + End Set + End Property + + _ + Public Property OrgasmsRemaining() As Integer + Get + Return CType(Me("OrgasmsRemaining"),Integer) + End Get + Set + Me("OrgasmsRemaining") = value + End Set + End Property + + _ + Public Property OrgasmsLocked() As Boolean + Get + Return CType(Me("OrgasmsLocked"),Boolean) + End Get + Set + Me("OrgasmsLocked") = value + End Set + End Property + + _ + Public Property TimerVTF() As Integer + Get + Return CType(Me("TimerVTF"),Integer) + End Get + Set + Me("TimerVTF") = value + End Set + End Property + + _ + Public Property CBTeaseLengthDD() As Boolean + Get + Return CType(Me("CBTeaseLengthDD"),Boolean) + End Get + Set + Me("CBTeaseLengthDD") = value + End Set + End Property + + _ + Public Property CBTauntCycleDD() As Boolean + Get + Return CType(Me("CBTauntCycleDD"),Boolean) + End Get + Set + Me("CBTauntCycleDD") = value + End Set + End Property + + _ + Public Property CBOwnChastity() As Boolean + Get + Return CType(Me("CBOwnChastity"),Boolean) + End Get + Set + Me("CBOwnChastity") = value + End Set + End Property + + _ + Public Property SmallUI() As Boolean + Get + Return CType(Me("SmallUI"),Boolean) + End Get + Set + Me("SmallUI") = value + End Set + End Property + + _ + Public Property UI768() As Boolean + Get + Return CType(Me("UI768"),Boolean) + End Get + Set + Me("UI768") = value + End Set + End Property + + _ + Public Property CBIncludeGifs() As Boolean + Get + Return CType(Me("CBIncludeGifs"),Boolean) + End Get + Set + Me("CBIncludeGifs") = value + End Set + End Property + + _ + Public Property CBHimHer() As Boolean + Get + Return CType(Me("CBHimHer"),Boolean) + End Get + Set + Me("CBHimHer") = value + End Set + End Property + + _ + Public Property DomDeleteMedia() As Boolean + Get + Return CType(Me("DomDeleteMedia"),Boolean) + End Get + Set + Me("DomDeleteMedia") = value + End Set + End Property + + _ + Public Property TeaseLengthMin() As Integer + Get + Return CType(Me("TeaseLengthMin"),Integer) + End Get + Set + Me("TeaseLengthMin") = value + End Set + End Property + + _ + Public Property TeaseLengthMax() As Integer + Get + Return CType(Me("TeaseLengthMax"),Integer) + End Get + Set + Me("TeaseLengthMax") = value + End Set + End Property + + _ + Public Property TauntCycleMin() As Integer + Get + Return CType(Me("TauntCycleMin"),Integer) + End Get + Set + Me("TauntCycleMin") = value + End Set + End Property + + _ + Public Property TauntCycleMax() As Integer + Get + Return CType(Me("TauntCycleMax"),Integer) + End Get + Set + Me("TauntCycleMax") = value + End Set + End Property + + _ + Public Property RedLightMin() As Integer + Get + Return CType(Me("RedLightMin"),Integer) + End Get + Set + Me("RedLightMin") = value + End Set + End Property + + _ + Public Property RedLightMax() As Integer + Get + Return CType(Me("RedLightMax"),Integer) + End Get + Set + Me("RedLightMax") = value + End Set + End Property + + _ + Public Property GreenLightMin() As Integer + Get + Return CType(Me("GreenLightMin"),Integer) + End Get + Set + Me("GreenLightMin") = value + End Set + End Property + + _ + Public Property GreenLightMax() As Integer + Get + Return CType(Me("GreenLightMax"),Integer) + End Get + Set + Me("GreenLightMax") = value + End Set + End Property + + _ + Public Property SlideshowMode() As String + Get + Return CType(Me("SlideshowMode"),String) + End Get + Set + Me("SlideshowMode") = value + End Set + End Property + + _ + Public Property OrgasmLockDate() As Date + Get + Return CType(Me("OrgasmLockDate"),Date) + End Get + Set + Me("OrgasmLockDate") = value + End Set + End Property + + _ + Public Property AuditStartup() As Boolean + Get + Return CType(Me("AuditStartup"),Boolean) + End Get + Set + Me("AuditStartup") = value + End Set + End Property + + _ + Public Property WishlistDate() As Date + Get + Return CType(Me("WishlistDate"),Date) + End Get + Set + Me("WishlistDate") = value + End Set + End Property + + _ + Public Property LastOrgasm() As Date + Get + Return CType(Me("LastOrgasm"),Date) + End Get + Set + Me("LastOrgasm") = value + End Set + End Property + + _ + Public Property LastRuined() As Date + Get + Return CType(Me("LastRuined"),Date) + End Get + Set + Me("LastRuined") = value + End Set + End Property + + _ + Public Property DateStamp() As Date + Get + Return CType(Me("DateStamp"),Date) + End Get + Set + Me("DateStamp") = value + End Set + End Property + + _ + Public Property TokenTasks() As Date + Get + Return CType(Me("TokenTasks"),Date) + End Get + Set + Me("TokenTasks") = value + End Set + End Property + + _ + Public Property WebToyStart() As String + Get + Return CType(Me("WebToyStart"),String) + End Get + Set + Me("WebToyStart") = value + End Set + End Property + + _ + Public Property WebToyStop() As String + Get + Return CType(Me("WebToyStop"),String) + End Get + Set + Me("WebToyStop") = value + End Set + End Property + + _ + Public Property CockToClit() As Boolean + Get + Return CType(Me("CockToClit"),Boolean) + End Get + Set + Me("CockToClit") = value + End Set + End Property + + _ + Public Property BallsToPussy() As Boolean + Get + Return CType(Me("BallsToPussy"),Boolean) + End Get + Set + Me("BallsToPussy") = value + End Set + End Property + + _ + Public Property Contact1ImageDir() As String + Get + Return CType(Me("Contact1ImageDir"),String) + End Get + Set + Me("Contact1ImageDir") = value + End Set + End Property + + _ + Public Property Contact2ImageDir() As String + Get + Return CType(Me("Contact2ImageDir"),String) + End Get + Set + Me("Contact2ImageDir") = value + End Set + End Property + + _ + Public Property Contact3ImageDir() As String + Get + Return CType(Me("Contact3ImageDir"),String) + End Get + Set + Me("Contact3ImageDir") = value + End Set + End Property + + _ + Public Property CBGlitterFeedOff() As Boolean + Get + Return CType(Me("CBGlitterFeedOff"),Boolean) + End Get + Set + Me("CBGlitterFeedOff") = value + End Set + End Property + + _ Public Property CBGlitterFeedScripts() As Boolean @@ -4742,7 +4742,7 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("574")> _ Public Property SplitterPosition() As Integer Get Return CType(Me("SplitterPosition"),Integer) diff --git a/Tease AI/My Project/Settings.settings b/Tease AI/My Project/Settings.settings index 508fe6c..0ce5380 100644 --- a/Tease AI/My Project/Settings.settings +++ b/Tease AI/My Project/Settings.settings @@ -1176,7 +1176,7 @@ True - 706 + 580 False diff --git a/Tease AI/app.config b/Tease AI/app.config index f11dee9..b01641e 100644 --- a/Tease AI/app.config +++ b/Tease AI/app.config @@ -34,7 +34,7 @@ - + True - 706 + 580 False From 1b66e5d01963737dd4c7ffdf2d799e97aa9649e0 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 19 Feb 2017 16:15:18 +0100 Subject: [PATCH 021/143] test --- Tease AI/Form1.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ca5af82..60efaf0 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -13892,8 +13892,8 @@ VTSkip: End If If FilterString.Contains("@FlagOr(") Then - Dim result As Boolean = True - Dim writeFlag As String + Dim result As Boolean = False + Dim writeFlag As String Dim splitFlag As String() If FilterString.Contains("@FlagOr(") Then @@ -13908,8 +13908,8 @@ VTSkip: End If Next End If - If result = True Then Return result - End If + Return result + End If If FilterString.Contains("@CheckDate(") And Linear = False Then If CheckDateList(FilterString) = False Then Return False From ab9569c4516bcf79f5bca8d7a74a63242e9ea8b2 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 19 Feb 2017 22:13:00 +0100 Subject: [PATCH 022/143] synced with main --- Tease AI/Classes/ContactData.vb | 53 +- Tease AI/Classes/State.vb | 17 +- Tease AI/Form1.Designer.vb | 3058 +++--- Tease AI/Form1.resx | 1763 ++-- Tease AI/Form1.vb | 433 +- Tease AI/Form2.Designer.vb | 79 + Tease AI/Form2.vb | 38 +- Tease AI/My Project/Settings.Designer.vb | 11487 +++++++++++---------- Tease AI/My Project/Settings.settings | 2 +- Tease AI/app.config | 2 +- 10 files changed, 8631 insertions(+), 8301 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index c09d6d8..b38717e 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -8,6 +8,7 @@ Public Enum ContactType Contact1 Contact2 Contact3 + Random End Enum @@ -15,6 +16,7 @@ Public Class ContactData Public Property Contact As ContactType = ContactType.Nothing + Private Property tempBaseFolder As String = "" Public Property ImageFolder As String = "" Public Property ImageList As New List(Of String) @@ -31,6 +33,8 @@ Public Class ContactData Return My.Settings.Glitter2 ElseIf Contact = ContactType.Contact3 Then Return My.Settings.Glitter3 + ElseIf Contact = ContactType.Random Then + Return ImageFolder.Substring(ImageFolder.LastIndexOf("\") + 1).Trim Else Return My.Settings.DomName End If @@ -110,6 +114,7 @@ Public Class ContactData ElseIf tp = ContactType.Contact1 Then : text = "Contact 1" ElseIf tp = ContactType.Contact2 Then : text = "Contact 2" ElseIf tp = ContactType.Contact3 Then : text = "Contact 3" + ElseIf tp = ContactType.Random Then : text = "Random" End If val = FolderCheck(text, val, def) @@ -216,20 +221,29 @@ checkFolder: End Try End Function - Friend Function GetRandom(tp As ContactType) As List(Of String) - If Check_ImageDir(tp) Then - Return LoadRandom(getCurrentBaseFolder(tp)) - Else - Return New List(Of String) - End If + Friend Function GetRandom(tp As ContactType, newFolder As Boolean) As List(Of String) + 'no need to check again since you already checked when creating the contact + 'If Check_ImageDir(tp) Then + Return LoadRandom(getCurrentBaseFolder(tp), newFolder) + 'Else + ' Return New List(Of String) + 'End If End Function - Function LoadRandom(ByVal baseDirectory As String) As List(Of String) + Function LoadRandom(ByVal baseDirectory As String, newFolder As Boolean) As List(Of String) If Directory.Exists(baseDirectory) = False Then _ Throw New DirectoryNotFoundException("The given slideshow base diretory """ & baseDirectory & """ was not found.") + Dim currPath As String + + If Contact = ContactType.Random And Not newFolder Then + currPath = myDirectory.GetDirectories(baseDirectory).ElementAt(New Random().Next(0, myDirectory.GetDirectories(baseDirectory).Count - 1)) + tempBaseFolder = currPath + Else + currPath = baseDirectory + End If ' Read all subdirectories in base folder. - Dim subDirs As List(Of String) = myDirectory.GetDirectories(baseDirectory).ToList + Dim subDirs As List(Of String) = myDirectory.GetDirectories(currPath).ToList Dim exclude As New List(Of String) nextSubDir: ' Check if there are folders left. @@ -239,7 +253,7 @@ nextSubDir: exclude.Remove(first) subDirs.Add(first) ElseIf subDirs.Count <= 0 And exclude.Count = 0 Then - Throw New DirectoryNotFoundException("There are no subdirectories conataining images in """ & baseDirectory & """.") + Throw New DirectoryNotFoundException("There are no subdirectories conataining images in """ & currPath & """.") End If ' Get a random folder in base directory. @@ -267,6 +281,7 @@ nextSubDir: Else ' Imagefiles found -> Everything fine and done RecentFolders.Add(rndFolder) + ImageFolder = currPath Return imageFiles End If @@ -284,6 +299,8 @@ nextSubDir: Return "Contact2ImageDir" Case ContactType.Contact3 Return "Contact3ImageDir" + Case ContactType.Random + Return "RandomImageDir" Case Else Throw New NotImplementedException End Select @@ -294,7 +311,11 @@ nextSubDir: End Function Function getCurrentBaseFolder(ByVal tp As ContactType) As String - Return My.Settings(getMySettingsMember(tp)) + If tempBaseFolder <> "" Then + Return tempBaseFolder + Else + Return My.Settings(getMySettingsMember(tp)) + End If End Function Sub SetBaseFolder(ByVal tp As ContactType, ByVal path As String) @@ -304,15 +325,15 @@ nextSubDir: #End Region - Friend Sub LoadNew() - Me.ImageList = GetRandom(Me.Contact) + Friend Sub LoadNew(newFolder As Boolean) + Me.ImageList = GetRandom(Me.Contact, newFolder) Me.Index = 0 ImageTagCache.Clear() LastTaggedImage = "" End Sub Sub CheckInit() - If Me.Index = -1 And Me.Contact <> ContactType.Nothing Then Me.LoadNew() + If Me.Index = -1 And Me.Contact <> ContactType.Nothing Then Me.LoadNew(False) LastTaggedImage = "" End Sub @@ -348,7 +369,7 @@ nextSubDir: Return String.Empty ElseIf Index >= ImageList.Count - 1 AndAlso My.Settings.CBNewSlideshow Then ' End of Slideshow load new one - LoadNew() + LoadNew(False) ElseIf Index >= ImageList.Count - 1 Then ' End of Slideshow return last image Index = ImageList.Count - 1 @@ -372,7 +393,7 @@ nextSubDir: If Index < 0 Then Index = 0 ElseIf Index >= ImageList.Count - 1 AndAlso My.Settings.CBNewSlideshow Then ' End of Slideshow start new - LoadNew() + LoadNew(False) ElseIf Index >= ImageList.Count - 1 Then ' End of Slideshow return last Index = ImageList.Count - 1 @@ -654,7 +675,7 @@ redo: Dim FileName As String = Path.GetFileName(DisplayedImage) If Not File.Exists(TagFilePath) Then Exit Function - + ' Read tagfile and find line for displayed image. Dim Line As String = Txt2List(TagFilePath).Find(Function(x) x.StartsWith(FileName, StringComparison.OrdinalIgnoreCase)) If Line Is Nothing Then Exit Function diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 66abdfc..0577a01 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -58,6 +58,7 @@ Public Class SessionState Public Property Responding As Boolean Public Property StrokeTauntVal As Integer = -1 + Public Property newSlideshow As Boolean = False Public Property TempStrokeTauntVal As Integer Public Property TempFileText As String @@ -107,6 +108,9 @@ Public Class SessionState Public Property TaskText As String Public Property TaskTextDir As String + Public Property nameErrors As Integer = 0 + Public Property wrongAttempt As Boolean + Public Property foundAnswer As Boolean Public Property ResponseFile As String Public Property ResponseLine As Integer @@ -137,6 +141,7 @@ Public Class SessionState Public Property AFK As Boolean + Public Property glitterDommeNumber As Integer = 0 Public Property HypnoGen As Boolean Public Property Induction As Boolean Public Property TempHypno As String @@ -177,6 +182,7 @@ Public Class SessionState Public Property ShowModule As Boolean = False Public Property ModuleEnd As Boolean + Public Property giveUpReturn As Boolean Public Property DivideText As Boolean Public Property HoldEdgeTick As Integer @@ -386,7 +392,7 @@ Public Class SessionState Public Property SlideshowContact1 As ContactData Public Property SlideshowContact2 As ContactData Public Property SlideshowContact3 As ContactData - + Public Property SlideshowContactRandom As ContactData Public Property CustomTask As Boolean Public Property CustomTaskFirst As Boolean = True Public Property CustomTaskText As String @@ -404,7 +410,10 @@ Public Class SessionState Public Property Group As String = "D" Public Property GlitterTease As Boolean Public Property AddContactTick As Integer - + Public Property contact1Present As Boolean + Public Property contact2Present As Boolean + Public Property contact3Present As Boolean + Public Property dommePresent As Boolean = True Public Property Contact1Edge As Boolean Public Property Contact2Edge As Boolean Public Property Contact3Edge As Boolean @@ -413,6 +422,7 @@ Public Class SessionState Public Property Contact2Stroke As Boolean Public Property Contact3Stroke As Boolean + Public Property tempDomName As String #Region "@CallReturn(" ''' Gets or sets current stack for @CallReturn( command. @@ -694,12 +704,14 @@ Public Class SessionState AvgEdgeCount = My.Settings.AvgEdgeCount AvgEdgeCountRest = My.Settings.AvgEdgeCountRest + giveUpReturn = My.Settings.GiveUpReturn DommeMood = randomizer.Next(My.Settings.DomMoodMin, My.Settings.DomMoodMax + 1) SlideshowMain = New ContactData(ContactType.Domme) SlideshowContact1 = New ContactData(ContactType.Contact1) SlideshowContact2 = New ContactData(ContactType.Contact2) SlideshowContact3 = New ContactData(ContactType.Contact3) + SlideshowContactRandom = New ContactData(ContactType.Random) CaloriesConsumed = My.Settings.CaloriesConsumed @@ -1224,6 +1236,7 @@ Public Class SessionState End If ' Called from Controls UI-Thread -> Execute Code. + FrmSettings.TBHonorific.Text = My.Settings.SubHonorific Dispose() If ActivationForm IsNot Nothing Then diff --git a/Tease AI/Form1.Designer.vb b/Tease AI/Form1.Designer.vb index 1a018c3..15691ec 100644 --- a/Tease AI/Form1.Designer.vb +++ b/Tease AI/Form1.Designer.vb @@ -187,6 +187,7 @@ Partial Class Form1 Me.InterfaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SwitchSidesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.SidepanelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SideChatToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.LazySubAVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() @@ -197,7 +198,6 @@ Partial Class Form1 Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() Me.WebteaseModeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FullscreenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.SidepanelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AIBoxesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.CommandGuideToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -221,6 +221,70 @@ Partial Class Form1 Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.LBLGeneralSettings = New System.Windows.Forms.Label() Me.PNLTabs = New System.Windows.Forms.Panel() + Me.PNLWishList = New System.Windows.Forms.Panel() + Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() + Me.LBLWishlistDate = New System.Windows.Forms.Label() + Me.BTNWishlist = New System.Windows.Forms.Button() + Me.LBLWishListText = New System.Windows.Forms.Label() + Me.LBLWishlistCost = New System.Windows.Forms.Label() + Me.WishlistCostGold = New System.Windows.Forms.PictureBox() + Me.PNLWishlistTokenBack = New System.Windows.Forms.Panel() + Me.LBLWishlistSilver = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.LBLWishlistBronze = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.LBLWishlistGold = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.LBLWishListName = New System.Windows.Forms.Label() + Me.PNLWishlistHeader = New System.Windows.Forms.Panel() + Me.LBLWishlistDom = New System.Windows.Forms.Label() + Me.WishlistPreview = New System.Windows.Forms.PictureBox() + Me.PNLHypnoGen = New System.Windows.Forms.Panel() + Me.ComboBoxHypnoGenTrack = New System.Windows.Forms.ComboBox() + Me.LBLBackTrack = New System.Windows.Forms.Label() + Me.CBHypnoGenNoText = New System.Windows.Forms.CheckBox() + Me.TBHypnoGenImageTag = New System.Windows.Forms.TextBox() + Me.LBLHypnoImageTag = New System.Windows.Forms.Label() + Me.LBHypnoGenSlideshow = New System.Windows.Forms.ListBox() + Me.CBHypnoGenSlideshow = New System.Windows.Forms.CheckBox() + Me.LBHypnoGen = New System.Windows.Forms.ListBox() + Me.LBLHypnoFile = New System.Windows.Forms.Label() + Me.LBHypnoGenInduction = New System.Windows.Forms.ListBox() + Me.CBHypnoGenInduction = New System.Windows.Forms.CheckBox() + Me.CBHypnoGenPhase = New System.Windows.Forms.CheckBox() + Me.BTNHypnoGenStart = New System.Windows.Forms.Button() + Me.AppPanelVitalSub = New System.Windows.Forms.Panel() + Me.GBGoals = New System.Windows.Forms.GroupBox() + Me.BTNExercise = New System.Windows.Forms.Button() + Me.TBExercise = New System.Windows.Forms.TextBox() + Me.CLBExercise = New System.Windows.Forms.CheckedListBox() + Me.CBVitalSubDomTask = New System.Windows.Forms.CheckBox() + Me.BTNVitalSub = New System.Windows.Forms.Button() + Me.GBCalories = New System.Windows.Forms.GroupBox() + Me.TBCalorieAmount = New System.Windows.Forms.TextBox() + Me.TBCalorieItem = New System.Windows.Forms.TextBox() + Me.BTNCalorie = New System.Windows.Forms.Button() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.LBCalorie = New System.Windows.Forms.ListBox() + Me.ComboBoxCalorie = New System.Windows.Forms.ComboBox() + Me.TBCalorie = New System.Windows.Forms.TextBox() + Me.LBLGoal = New System.Windows.Forms.Label() + Me.LBLCalorie = New System.Windows.Forms.Label() + Me.LBLConsumed = New System.Windows.Forms.Label() + Me.CBVitalSub = New System.Windows.Forms.CheckBox() + Me.PNLMetronome = New System.Windows.Forms.Panel() + Me.BTNMetroStop2 = New System.Windows.Forms.Button() + Me.BTNMetroStop1 = New System.Windows.Forms.Button() + Me.BTNMetroPreview2 = New System.Windows.Forms.Button() + Me.BTNMetroPreview1 = New System.Windows.Forms.Button() + Me.LBLHigh = New System.Windows.Forms.Label() + Me.NBMinPace = New System.Windows.Forms.NumericUpDown() + Me.LBLMinSpeed = New System.Windows.Forms.Label() + Me.LBLLow = New System.Windows.Forms.Label() + Me.NBMaxPace = New System.Windows.Forms.NumericUpDown() + Me.LBLMaxSpeed = New System.Windows.Forms.Label() + Me.CBMetronome = New System.Windows.Forms.CheckBox() Me.PNLLazySub = New System.Windows.Forms.Panel() Me.CBHideShortcuts = New System.Windows.Forms.CheckBox() Me.CBShortcuts = New System.Windows.Forms.CheckBox() @@ -287,70 +351,6 @@ Partial Class Form1 Me.BTNRandomVideo = New System.Windows.Forms.Button() Me.BTNRandomBlog = New System.Windows.Forms.Button() Me.PNLLazySub2 = New System.Windows.Forms.Panel() - Me.AppPanelVitalSub = New System.Windows.Forms.Panel() - Me.GBGoals = New System.Windows.Forms.GroupBox() - Me.BTNExercise = New System.Windows.Forms.Button() - Me.TBExercise = New System.Windows.Forms.TextBox() - Me.CLBExercise = New System.Windows.Forms.CheckedListBox() - Me.CBVitalSubDomTask = New System.Windows.Forms.CheckBox() - Me.BTNVitalSub = New System.Windows.Forms.Button() - Me.GBCalories = New System.Windows.Forms.GroupBox() - Me.TBCalorieAmount = New System.Windows.Forms.TextBox() - Me.TBCalorieItem = New System.Windows.Forms.TextBox() - Me.BTNCalorie = New System.Windows.Forms.Button() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.LBCalorie = New System.Windows.Forms.ListBox() - Me.ComboBoxCalorie = New System.Windows.Forms.ComboBox() - Me.TBCalorie = New System.Windows.Forms.TextBox() - Me.LBLGoal = New System.Windows.Forms.Label() - Me.LBLCalorie = New System.Windows.Forms.Label() - Me.LBLConsumed = New System.Windows.Forms.Label() - Me.CBVitalSub = New System.Windows.Forms.CheckBox() - Me.PNLHypnoGen = New System.Windows.Forms.Panel() - Me.ComboBoxHypnoGenTrack = New System.Windows.Forms.ComboBox() - Me.LBLBackTrack = New System.Windows.Forms.Label() - Me.CBHypnoGenNoText = New System.Windows.Forms.CheckBox() - Me.TBHypnoGenImageTag = New System.Windows.Forms.TextBox() - Me.LBLHypnoImageTag = New System.Windows.Forms.Label() - Me.LBHypnoGenSlideshow = New System.Windows.Forms.ListBox() - Me.CBHypnoGenSlideshow = New System.Windows.Forms.CheckBox() - Me.LBHypnoGen = New System.Windows.Forms.ListBox() - Me.LBLHypnoFile = New System.Windows.Forms.Label() - Me.LBHypnoGenInduction = New System.Windows.Forms.ListBox() - Me.CBHypnoGenInduction = New System.Windows.Forms.CheckBox() - Me.CBHypnoGenPhase = New System.Windows.Forms.CheckBox() - Me.BTNHypnoGenStart = New System.Windows.Forms.Button() - Me.PNLWishList = New System.Windows.Forms.Panel() - Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() - Me.LBLWishlistDate = New System.Windows.Forms.Label() - Me.BTNWishlist = New System.Windows.Forms.Button() - Me.LBLWishListText = New System.Windows.Forms.Label() - Me.LBLWishlistCost = New System.Windows.Forms.Label() - Me.WishlistCostGold = New System.Windows.Forms.PictureBox() - Me.PNLWishlistTokenBack = New System.Windows.Forms.Panel() - Me.LBLWishlistSilver = New System.Windows.Forms.Label() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() - Me.LBLWishlistBronze = New System.Windows.Forms.Label() - Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.LBLWishlistGold = New System.Windows.Forms.Label() - Me.PictureBox4 = New System.Windows.Forms.PictureBox() - Me.LBLWishListName = New System.Windows.Forms.Label() - Me.PNLWishlistHeader = New System.Windows.Forms.Panel() - Me.LBLWishlistDom = New System.Windows.Forms.Label() - Me.WishlistPreview = New System.Windows.Forms.PictureBox() - Me.PNLMetronome = New System.Windows.Forms.Panel() - Me.BTNMetroStop2 = New System.Windows.Forms.Button() - Me.BTNMetroStop1 = New System.Windows.Forms.Button() - Me.BTNMetroPreview2 = New System.Windows.Forms.Button() - Me.BTNMetroPreview1 = New System.Windows.Forms.Button() - Me.LBLHigh = New System.Windows.Forms.Label() - Me.NBMinPace = New System.Windows.Forms.NumericUpDown() - Me.LBLMinSpeed = New System.Windows.Forms.Label() - Me.LBLLow = New System.Windows.Forms.Label() - Me.NBMaxPace = New System.Windows.Forms.NumericUpDown() - Me.LBLMaxSpeed = New System.Windows.Forms.Label() - Me.CBMetronome = New System.Windows.Forms.CheckBox() Me.PNLPlaylist = New System.Windows.Forms.Panel() Me.LBPlaylist = New System.Windows.Forms.ListBox() Me.BTNPlaylist = New System.Windows.Forms.Button() @@ -427,16 +427,6 @@ Partial Class Form1 Me.MenuStrip2.SuspendLayout() Me.PNLDate.SuspendLayout() Me.PNLTabs.SuspendLayout() - Me.PNLLazySub.SuspendLayout() - Me.PnlGlitter.SuspendLayout() - Me.PnlSidechat.SuspendLayout() - Me.PNLChatBox2.SuspendLayout() - Me.PNLWritingTask.SuspendLayout() - Me.PNLAppRandomizer.SuspendLayout() - Me.AppPanelVitalSub.SuspendLayout() - Me.GBGoals.SuspendLayout() - Me.GBCalories.SuspendLayout() - Me.PNLHypnoGen.SuspendLayout() Me.PNLWishList.SuspendLayout() CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).BeginInit() @@ -446,9 +436,19 @@ Partial Class Form1 CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() Me.PNLWishlistHeader.SuspendLayout() CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PNLHypnoGen.SuspendLayout() + Me.AppPanelVitalSub.SuspendLayout() + Me.GBGoals.SuspendLayout() + Me.GBCalories.SuspendLayout() Me.PNLMetronome.SuspendLayout() CType(Me.NBMinPace, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.NBMaxPace, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PNLLazySub.SuspendLayout() + Me.PnlGlitter.SuspendLayout() + Me.PnlSidechat.SuspendLayout() + Me.PNLChatBox2.SuspendLayout() + Me.PNLWritingTask.SuspendLayout() + Me.PNLAppRandomizer.SuspendLayout() Me.PNLPlaylist.SuspendLayout() Me.PNLAvatar.SuspendLayout() Me.PnlAvatarBackground.SuspendLayout() @@ -486,7 +486,7 @@ Partial Class Form1 Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.chatBox.Location = New System.Drawing.Point(5, 4) Me.chatBox.Name = "chatBox" - Me.chatBox.Size = New System.Drawing.Size(1082, 20) + Me.chatBox.Size = New System.Drawing.Size(1076, 20) Me.chatBox.TabIndex = 1 ' 'mainPictureBox @@ -496,7 +496,7 @@ Partial Class Form1 Me.mainPictureBox.Image = CType(resources.GetObject("mainPictureBox.Image"), System.Drawing.Image) Me.mainPictureBox.Location = New System.Drawing.Point(0, 0) Me.mainPictureBox.Name = "mainPictureBox" - Me.mainPictureBox.Size = New System.Drawing.Size(1404, 696) + Me.mainPictureBox.Size = New System.Drawing.Size(1398, 536) Me.mainPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.mainPictureBox.TabIndex = 3 Me.mainPictureBox.TabStop = False @@ -541,7 +541,7 @@ Partial Class Form1 Me.SplitContainer1.Panel2.Controls.Add(Me.PnlChatTextLayout) Me.SplitContainer1.Panel2.Controls.Add(Me.PNLMediaBar) Me.SplitContainer1.Panel2MinSize = 0 - Me.SplitContainer1.Size = New System.Drawing.Size(1408, 961) + Me.SplitContainer1.Size = New System.Drawing.Size(1402, 947) Me.SplitContainer1.SplitterDistance = Global.Tease_AI.My.MySettings.Default.SplitterPosition Me.SplitContainer1.SplitterWidth = 10 Me.SplitContainer1.TabIndex = 136 @@ -555,17 +555,17 @@ Partial Class Form1 Me.DomWMP.Location = New System.Drawing.Point(0, 0) Me.DomWMP.Name = "DomWMP" Me.DomWMP.OcxState = CType(resources.GetObject("DomWMP.OcxState"), System.Windows.Forms.AxHost.State) - Me.DomWMP.Size = New System.Drawing.Size(1404, 718) + Me.DomWMP.Size = New System.Drawing.Size(1398, 698) Me.DomWMP.TabIndex = 96 Me.DomWMP.Visible = False ' 'ProgressBar_BGW_Images ' Me.ProgressBar_BGW_Images.Dock = System.Windows.Forms.DockStyle.Bottom - Me.ProgressBar_BGW_Images.Location = New System.Drawing.Point(0, 690) + Me.ProgressBar_BGW_Images.Location = New System.Drawing.Point(0, 530) Me.ProgressBar_BGW_Images.MarqueeAnimationSpeed = 10000 Me.ProgressBar_BGW_Images.Name = "ProgressBar_BGW_Images" - Me.ProgressBar_BGW_Images.Size = New System.Drawing.Size(1404, 6) + Me.ProgressBar_BGW_Images.Size = New System.Drawing.Size(1398, 6) Me.ProgressBar_BGW_Images.Style = System.Windows.Forms.ProgressBarStyle.Continuous Me.ProgressBar_BGW_Images.TabIndex = 97 Me.ProgressBar_BGW_Images.Visible = False @@ -601,7 +601,7 @@ Partial Class Form1 Me.PnlChatTextLayout.Location = New System.Drawing.Point(0, 32) Me.PnlChatTextLayout.Name = "PnlChatTextLayout" Me.PnlChatTextLayout.Padding = New System.Windows.Forms.Padding(1) - Me.PnlChatTextLayout.Size = New System.Drawing.Size(1404, 215) + Me.PnlChatTextLayout.Size = New System.Drawing.Size(1398, 361) Me.PnlChatTextLayout.TabIndex = 783 ' 'ChatText @@ -610,7 +610,7 @@ Partial Class Form1 Me.ChatText.Location = New System.Drawing.Point(1, 1) Me.ChatText.MinimumSize = New System.Drawing.Size(2, 20) Me.ChatText.Name = "ChatText" - Me.ChatText.Size = New System.Drawing.Size(1402, 213) + Me.ChatText.Size = New System.Drawing.Size(1396, 359) Me.ChatText.TabIndex = 1 ' 'PNLMediaBar @@ -626,7 +626,7 @@ Partial Class Form1 Me.PNLMediaBar.Location = New System.Drawing.Point(0, 0) Me.PNLMediaBar.Name = "PNLMediaBar" Me.PNLMediaBar.Padding = New System.Windows.Forms.Padding(1, 1, 1, 10) - Me.PNLMediaBar.Size = New System.Drawing.Size(1404, 32) + Me.PNLMediaBar.Size = New System.Drawing.Size(1398, 32) Me.PNLMediaBar.TabIndex = 97 ' 'ImageFolderComboBox @@ -639,7 +639,7 @@ Partial Class Form1 Me.ImageFolderComboBox.FormattingEnabled = True Me.ImageFolderComboBox.Location = New System.Drawing.Point(54, 5) Me.ImageFolderComboBox.Name = "ImageFolderComboBox" - Me.ImageFolderComboBox.Size = New System.Drawing.Size(1037, 21) + Me.ImageFolderComboBox.Size = New System.Drawing.Size(1031, 21) Me.ImageFolderComboBox.TabIndex = 8 Me.ImageFolderComboBox.Text = "Enter Image Directory" ' @@ -652,7 +652,7 @@ Partial Class Form1 Me.BTNLoadVideo.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.BTNLoadVideo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTNLoadVideo.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNLoadVideo.Location = New System.Drawing.Point(1208, 1) + Me.BTNLoadVideo.Location = New System.Drawing.Point(1202, 1) Me.BTNLoadVideo.Margin = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.BTNLoadVideo.Name = "BTNLoadVideo" Me.BTNLoadVideo.Size = New System.Drawing.Size(74, 30) @@ -670,7 +670,7 @@ Partial Class Form1 Me.previousButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.previousButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.previousButton.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.previousButton.Location = New System.Drawing.Point(1098, 1) + Me.previousButton.Location = New System.Drawing.Point(1092, 1) Me.previousButton.Margin = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.previousButton.Name = "previousButton" Me.previousButton.Size = New System.Drawing.Size(53, 30) @@ -703,7 +703,7 @@ Partial Class Form1 Me.nextButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.nextButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.nextButton.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.nextButton.Location = New System.Drawing.Point(1152, 1) + Me.nextButton.Location = New System.Drawing.Point(1146, 1) Me.nextButton.Margin = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.nextButton.Name = "nextButton" Me.nextButton.Size = New System.Drawing.Size(55, 30) @@ -720,7 +720,7 @@ Partial Class Form1 Me.BTNVideoControls.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.BTNVideoControls.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTNVideoControls.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNVideoControls.Location = New System.Drawing.Point(1283, 1) + Me.BTNVideoControls.Location = New System.Drawing.Point(1277, 1) Me.BTNVideoControls.Margin = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.BTNVideoControls.Name = "BTNVideoControls" Me.BTNVideoControls.Size = New System.Drawing.Size(120, 30) @@ -737,10 +737,10 @@ Partial Class Form1 Me.PnlChatBoxLayout.Controls.Add(Me.BtnToggleMediaPanel) Me.PnlChatBoxLayout.Controls.Add(Me.BtnToggleImageVideo) Me.PnlChatBoxLayout.Dock = System.Windows.Forms.DockStyle.Bottom - Me.PnlChatBoxLayout.Location = New System.Drawing.Point(265, 973) + Me.PnlChatBoxLayout.Location = New System.Drawing.Point(265, 959) Me.PnlChatBoxLayout.Name = "PnlChatBoxLayout" Me.PnlChatBoxLayout.Padding = New System.Windows.Forms.Padding(2) - Me.PnlChatBoxLayout.Size = New System.Drawing.Size(1408, 32) + Me.PnlChatBoxLayout.Size = New System.Drawing.Size(1402, 32) Me.PnlChatBoxLayout.TabIndex = 782 ' 'BtnToggleSettings @@ -752,7 +752,7 @@ Partial Class Form1 Me.BtnToggleSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.BtnToggleSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnToggleSettings.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BtnToggleSettings.Location = New System.Drawing.Point(1280, 2) + Me.BtnToggleSettings.Location = New System.Drawing.Point(1274, 2) Me.BtnToggleSettings.Name = "BtnToggleSettings" Me.BtnToggleSettings.Size = New System.Drawing.Size(123, 24) Me.BtnToggleSettings.TabIndex = 19 @@ -768,7 +768,7 @@ Partial Class Form1 Me.BtnToggleMediaPanel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.BtnToggleMediaPanel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnToggleMediaPanel.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BtnToggleMediaPanel.Location = New System.Drawing.Point(1093, 2) + Me.BtnToggleMediaPanel.Location = New System.Drawing.Point(1087, 2) Me.BtnToggleMediaPanel.Name = "BtnToggleMediaPanel" Me.BtnToggleMediaPanel.Size = New System.Drawing.Size(111, 24) Me.BtnToggleMediaPanel.TabIndex = 147 @@ -784,7 +784,7 @@ Partial Class Form1 Me.BtnToggleImageVideo.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.BtnToggleImageVideo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnToggleImageVideo.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BtnToggleImageVideo.Location = New System.Drawing.Point(1205, 2) + Me.BtnToggleImageVideo.Location = New System.Drawing.Point(1199, 2) Me.BtnToggleImageVideo.Name = "BtnToggleImageVideo" Me.BtnToggleImageVideo.Size = New System.Drawing.Size(74, 24) Me.BtnToggleImageVideo.TabIndex = 149 @@ -829,7 +829,7 @@ Partial Class Form1 Me.PNLDomTagBTN.Dock = System.Windows.Forms.DockStyle.Fill Me.PNLDomTagBTN.Location = New System.Drawing.Point(0, 0) Me.PNLDomTagBTN.Name = "PNLDomTagBTN" - Me.PNLDomTagBTN.Size = New System.Drawing.Size(240, 633) + Me.PNLDomTagBTN.Size = New System.Drawing.Size(240, 619) Me.PNLDomTagBTN.TabIndex = 0 ' 'DommeTagBtnNextImage @@ -1353,7 +1353,7 @@ Partial Class Form1 Me.sendButton.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.sendButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.sendButton.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.sendButton.Location = New System.Drawing.Point(835, 111) + Me.sendButton.Location = New System.Drawing.Point(829, 97) Me.sendButton.Name = "sendButton" Me.sendButton.Size = New System.Drawing.Size(50, 24) Me.sendButton.TabIndex = 147 @@ -1582,24 +1582,24 @@ Partial Class Form1 'PicStripTSMIdommeSlideshow_GoToFirst ' Me.PicStripTSMIdommeSlideshow_GoToFirst.Name = "PicStripTSMIdommeSlideshow_GoToFirst" - Me.PicStripTSMIdommeSlideshow_GoToFirst.Size = New System.Drawing.Size(167, 22) + Me.PicStripTSMIdommeSlideshow_GoToFirst.Size = New System.Drawing.Size(166, 22) Me.PicStripTSMIdommeSlideshow_GoToFirst.Text = "Go To First Image" ' 'PicStripTSMIdommeSlideshowGoToLast ' Me.PicStripTSMIdommeSlideshowGoToLast.Name = "PicStripTSMIdommeSlideshowGoToLast" - Me.PicStripTSMIdommeSlideshowGoToLast.Size = New System.Drawing.Size(167, 22) + Me.PicStripTSMIdommeSlideshowGoToLast.Size = New System.Drawing.Size(166, 22) Me.PicStripTSMIdommeSlideshowGoToLast.Text = "Go To Last Image" ' 'PicStripTSMIdommeSlideshowTSS1 ' Me.PicStripTSMIdommeSlideshowTSS1.Name = "PicStripTSMIdommeSlideshowTSS1" - Me.PicStripTSMIdommeSlideshowTSS1.Size = New System.Drawing.Size(164, 6) + Me.PicStripTSMIdommeSlideshowTSS1.Size = New System.Drawing.Size(163, 6) ' 'PicStripTSMIdommeSlideshowLoadNewSlideshow ' Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Name = "PicStripTSMIdommeSlideshowLoadNewSlideshow" - Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Size = New System.Drawing.Size(167, 22) + Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Size = New System.Drawing.Size(166, 22) Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Text = "New Slideshow" ' 'StatusUpdates @@ -1608,7 +1608,7 @@ Partial Class Form1 Me.StatusUpdates.Location = New System.Drawing.Point(0, 0) Me.StatusUpdates.MinimumSize = New System.Drawing.Size(20, 20) Me.StatusUpdates.Name = "StatusUpdates" - Me.StatusUpdates.Size = New System.Drawing.Size(240, 633) + Me.StatusUpdates.Size = New System.Drawing.Size(240, 619) Me.StatusUpdates.TabIndex = 770 ' 'TeaseAINotify @@ -1749,7 +1749,7 @@ Partial Class Form1 Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.SettingsToolStripMenuItem, Me.AppsToolStripMenuItem, Me.GamesToolStripMenuItem1, Me.InterfaceToolStripMenuItem, Me.ToolsToolStripMenuItem, Me.MilovanaToolStripMenuItem1, Me.DebugToolStripMenuItem, Me.AboutToolStripMenuItem}) Me.MenuStrip2.Location = New System.Drawing.Point(0, 0) Me.MenuStrip2.Name = "MenuStrip2" - Me.MenuStrip2.Size = New System.Drawing.Size(1682, 24) + Me.MenuStrip2.Size = New System.Drawing.Size(1676, 24) Me.MenuStrip2.TabIndex = 774 Me.MenuStrip2.Text = "MenuStrip2" ' @@ -2023,6 +2023,15 @@ Partial Class Form1 Me.ToolStripSeparator5.Name = "ToolStripSeparator5" Me.ToolStripSeparator5.Size = New System.Drawing.Size(204, 6) ' + 'SidepanelToolStripMenuItem + ' + Me.SidepanelToolStripMenuItem.Checked = True + Me.SidepanelToolStripMenuItem.CheckOnClick = True + Me.SidepanelToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked + Me.SidepanelToolStripMenuItem.Name = "SidepanelToolStripMenuItem" + Me.SidepanelToolStripMenuItem.Size = New System.Drawing.Size(207, 22) + Me.SidepanelToolStripMenuItem.Text = "Sidepanel" + ' 'SideChatToolStripMenuItem1 ' Me.SideChatToolStripMenuItem1.CheckOnClick = True @@ -2084,38 +2093,29 @@ Partial Class Form1 Me.FullscreenToolStripMenuItem.Size = New System.Drawing.Size(207, 22) Me.FullscreenToolStripMenuItem.Text = "Fullscreen" ' - 'SidepanelToolStripMenuItem - ' - Me.SidepanelToolStripMenuItem.Checked = True - Me.SidepanelToolStripMenuItem.CheckOnClick = True - Me.SidepanelToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked - Me.SidepanelToolStripMenuItem.Name = "SidepanelToolStripMenuItem" - Me.SidepanelToolStripMenuItem.Size = New System.Drawing.Size(207, 22) - Me.SidepanelToolStripMenuItem.Text = "Sidepanel" - ' 'ToolsToolStripMenuItem ' Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AIBoxesToolStripMenuItem, Me.CommandGuideToolStripMenuItem, Me.OldDommeTagsToolStripMenuItem}) Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem" - Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(48, 20) + Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(47, 20) Me.ToolsToolStripMenuItem.Text = "Tools" ' 'AIBoxesToolStripMenuItem ' Me.AIBoxesToolStripMenuItem.Name = "AIBoxesToolStripMenuItem" - Me.AIBoxesToolStripMenuItem.Size = New System.Drawing.Size(182, 22) + Me.AIBoxesToolStripMenuItem.Size = New System.Drawing.Size(181, 22) Me.AIBoxesToolStripMenuItem.Text = "AI Boxes" ' 'CommandGuideToolStripMenuItem ' Me.CommandGuideToolStripMenuItem.Name = "CommandGuideToolStripMenuItem" - Me.CommandGuideToolStripMenuItem.Size = New System.Drawing.Size(182, 22) + Me.CommandGuideToolStripMenuItem.Size = New System.Drawing.Size(181, 22) Me.CommandGuideToolStripMenuItem.Text = "Command Guide" ' 'OldDommeTagsToolStripMenuItem ' Me.OldDommeTagsToolStripMenuItem.Name = "OldDommeTagsToolStripMenuItem" - Me.OldDommeTagsToolStripMenuItem.Size = New System.Drawing.Size(182, 22) + Me.OldDommeTagsToolStripMenuItem.Size = New System.Drawing.Size(181, 22) Me.OldDommeTagsToolStripMenuItem.Text = "Domme Tag Creator" ' 'MilovanaToolStripMenuItem1 @@ -2266,1655 +2266,1655 @@ Partial Class Form1 Me.PNLTabs.Location = New System.Drawing.Point(0, 10) Me.PNLTabs.Margin = New System.Windows.Forms.Padding(10, 100, 10, 10) Me.PNLTabs.Name = "PNLTabs" - Me.PNLTabs.Size = New System.Drawing.Size(244, 637) + Me.PNLTabs.Size = New System.Drawing.Size(244, 623) Me.PNLTabs.TabIndex = 778 ' - 'PNLLazySub + 'PNLWishList ' - Me.PNLLazySub.BackColor = System.Drawing.Color.Transparent - Me.PNLLazySub.Controls.Add(Me.CBHideShortcuts) - Me.PNLLazySub.Controls.Add(Me.CBShortcuts) - Me.PNLLazySub.Controls.Add(Me.TBShortSafeword) - Me.PNLLazySub.Controls.Add(Me.TBShortGreet) - Me.PNLLazySub.Controls.Add(Me.TBShortCum) - Me.PNLLazySub.Controls.Add(Me.TBShortStroke) - Me.PNLLazySub.Controls.Add(Me.TBShortStop) - Me.PNLLazySub.Controls.Add(Me.TBShortSlowDown) - Me.PNLLazySub.Controls.Add(Me.TBShortSpeedUp) - Me.PNLLazySub.Controls.Add(Me.TBShortEdge) - Me.PNLLazySub.Controls.Add(Me.TBShortNo) - Me.PNLLazySub.Controls.Add(Me.TBShortYes) - Me.PNLLazySub.Controls.Add(Me.BTNAskToCum) - Me.PNLLazySub.Controls.Add(Me.BTNSlowDown) - Me.PNLLazySub.Controls.Add(Me.BTNYes) - Me.PNLLazySub.Controls.Add(Me.BTNStroke) - Me.PNLLazySub.Controls.Add(Me.BTNNo) - Me.PNLLazySub.Controls.Add(Me.BTNGreeting) - Me.PNLLazySub.Controls.Add(Me.BTNStop) - Me.PNLLazySub.Controls.Add(Me.BTNSafeword) - Me.PNLLazySub.Controls.Add(Me.BTNLS1) - Me.PNLLazySub.Controls.Add(Me.BTNEdge) - Me.PNLLazySub.Controls.Add(Me.BTNSpeedUp) - Me.PNLLazySub.Controls.Add(Me.BTNLS1Edit) - Me.PNLLazySub.Controls.Add(Me.BTNLS4Edit) - Me.PNLLazySub.Controls.Add(Me.BTNLS3Edit) - Me.PNLLazySub.Controls.Add(Me.BTNLS2) - Me.PNLLazySub.Controls.Add(Me.BTNLS2Edit) - Me.PNLLazySub.Controls.Add(Me.BTNLS5Edit) - Me.PNLLazySub.Controls.Add(Me.BTNLS3) - Me.PNLLazySub.Controls.Add(Me.BTNLS4) - Me.PNLLazySub.Controls.Add(Me.BTNLS5) - Me.PNLLazySub.Dock = System.Windows.Forms.DockStyle.Fill - Me.PNLLazySub.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.PNLLazySub.Location = New System.Drawing.Point(0, 0) - Me.PNLLazySub.Name = "PNLLazySub" - Me.PNLLazySub.Size = New System.Drawing.Size(240, 633) - Me.PNLLazySub.TabIndex = 771 - Me.PNLLazySub.Visible = False + Me.PNLWishList.BackColor = System.Drawing.Color.White + Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) + Me.PNLWishList.Controls.Add(Me.LBLWishlistDate) + Me.PNLWishList.Controls.Add(Me.BTNWishlist) + Me.PNLWishList.Controls.Add(Me.LBLWishListText) + Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) + Me.PNLWishList.Controls.Add(Me.WishlistCostGold) + Me.PNLWishList.Controls.Add(Me.PNLWishlistTokenBack) + Me.PNLWishList.Controls.Add(Me.LBLWishListName) + Me.PNLWishList.Controls.Add(Me.PNLWishlistHeader) + Me.PNLWishList.Controls.Add(Me.WishlistPreview) + Me.PNLWishList.Dock = System.Windows.Forms.DockStyle.Fill + Me.PNLWishList.Location = New System.Drawing.Point(0, 0) + Me.PNLWishList.Name = "PNLWishList" + Me.PNLWishList.Size = New System.Drawing.Size(240, 619) + Me.PNLWishList.TabIndex = 775 + Me.PNLWishList.Visible = False ' - 'CBHideShortcuts + 'WishlistCostSilver ' - Me.CBHideShortcuts.AutoSize = True - Me.CBHideShortcuts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBHideShortcuts.ForeColor = System.Drawing.Color.White - Me.CBHideShortcuts.Location = New System.Drawing.Point(129, 415) - Me.CBHideShortcuts.Name = "CBHideShortcuts" - Me.CBHideShortcuts.Size = New System.Drawing.Size(96, 17) - Me.CBHideShortcuts.TabIndex = 171 - Me.CBHideShortcuts.Text = "Hide Shortcuts" - Me.CBHideShortcuts.UseVisualStyleBackColor = True + Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent + Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"), System.Drawing.Image) + Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 251) + Me.WishlistCostSilver.Name = "WishlistCostSilver" + Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) + Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.WishlistCostSilver.TabIndex = 111 + Me.WishlistCostSilver.TabStop = False + Me.WishlistCostSilver.Visible = False ' - 'CBShortcuts + 'LBLWishlistDate ' - Me.CBShortcuts.AutoSize = True - Me.CBShortcuts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBShortcuts.ForeColor = System.Drawing.Color.White - Me.CBShortcuts.Location = New System.Drawing.Point(14, 415) - Me.CBShortcuts.Name = "CBShortcuts" - Me.CBShortcuts.Size = New System.Drawing.Size(107, 17) - Me.CBShortcuts.TabIndex = 169 - Me.CBShortcuts.Text = "Enable Shortcuts" - Me.CBShortcuts.UseVisualStyleBackColor = True - ' - 'TBShortSafeword - ' - Me.TBShortSafeword.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortSafeword.Location = New System.Drawing.Point(130, 382) - Me.TBShortSafeword.Name = "TBShortSafeword" - Me.TBShortSafeword.Size = New System.Drawing.Size(96, 23) - Me.TBShortSafeword.TabIndex = 170 - Me.TBShortSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.LBLWishlistDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistDate.ForeColor = System.Drawing.Color.Black + Me.LBLWishlistDate.Location = New System.Drawing.Point(14, 42) + Me.LBLWishlistDate.Name = "LBLWishlistDate" + Me.LBLWishlistDate.Size = New System.Drawing.Size(220, 23) + Me.LBLWishlistDate.TabIndex = 110 + Me.LBLWishlistDate.Text = "04/09/2015" + Me.LBLWishlistDate.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'TBShortGreet + 'BTNWishlist ' - Me.TBShortGreet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortGreet.Location = New System.Drawing.Point(15, 382) - Me.TBShortGreet.Name = "TBShortGreet" - Me.TBShortGreet.Size = New System.Drawing.Size(96, 23) - Me.TBShortGreet.TabIndex = 169 - Me.TBShortGreet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BTNWishlist.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.BTNWishlist.Location = New System.Drawing.Point(11, 546) + Me.BTNWishlist.Name = "BTNWishlist" + Me.BTNWishlist.Size = New System.Drawing.Size(221, 23) + Me.BTNWishlist.TabIndex = 109 + Me.BTNWishlist.UseVisualStyleBackColor = True ' - 'TBShortCum + 'LBLWishListText ' - Me.TBShortCum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortCum.Location = New System.Drawing.Point(15, 315) - Me.TBShortCum.Name = "TBShortCum" - Me.TBShortCum.Size = New System.Drawing.Size(212, 23) - Me.TBShortCum.TabIndex = 121 - Me.TBShortCum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishListText.Location = New System.Drawing.Point(14, 286) + Me.LBLWishListText.Name = "LBLWishListText" + Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) + Me.LBLWishListText.TabIndex = 108 + Me.LBLWishListText.Text = "This is something I really want, let me tell you all about why I want it, you sho" & + "uld buy it for me because you know you like buying stuff for me. " ' - 'TBShortStroke + 'LBLWishlistCost ' - Me.TBShortStroke.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortStroke.Location = New System.Drawing.Point(130, 248) - Me.TBShortStroke.Name = "TBShortStroke" - Me.TBShortStroke.Size = New System.Drawing.Size(96, 23) - Me.TBShortStroke.TabIndex = 120 - Me.TBShortStroke.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black + Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 251) + Me.LBLWishlistCost.Name = "LBLWishlistCost" + Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) + Me.LBLWishlistCost.TabIndex = 107 + Me.LBLWishlistCost.Text = "3" + Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' - 'TBShortStop + 'WishlistCostGold ' - Me.TBShortStop.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortStop.Location = New System.Drawing.Point(15, 248) - Me.TBShortStop.Name = "TBShortStop" - Me.TBShortStop.Size = New System.Drawing.Size(96, 23) - Me.TBShortStop.TabIndex = 119 - Me.TBShortStop.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent + Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"), System.Drawing.Image) + Me.WishlistCostGold.Location = New System.Drawing.Point(107, 251) + Me.WishlistCostGold.Name = "WishlistCostGold" + Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) + Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.WishlistCostGold.TabIndex = 106 + Me.WishlistCostGold.TabStop = False + Me.WishlistCostGold.Visible = False ' - 'TBShortSlowDown + 'PNLWishlistTokenBack ' - Me.TBShortSlowDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortSlowDown.Location = New System.Drawing.Point(130, 181) - Me.TBShortSlowDown.Name = "TBShortSlowDown" - Me.TBShortSlowDown.Size = New System.Drawing.Size(96, 23) - Me.TBShortSlowDown.TabIndex = 118 - Me.TBShortSlowDown.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.PNLWishlistTokenBack.BackColor = System.Drawing.Color.CornflowerBlue + Me.PNLWishlistTokenBack.Controls.Add(Me.LBLWishlistSilver) + Me.PNLWishlistTokenBack.Controls.Add(Me.PictureBox6) + Me.PNLWishlistTokenBack.Controls.Add(Me.LBLWishlistBronze) + Me.PNLWishlistTokenBack.Controls.Add(Me.PictureBox5) + Me.PNLWishlistTokenBack.Controls.Add(Me.LBLWishlistGold) + Me.PNLWishlistTokenBack.Controls.Add(Me.PictureBox4) + Me.PNLWishlistTokenBack.Dock = System.Windows.Forms.DockStyle.Bottom + Me.PNLWishlistTokenBack.Location = New System.Drawing.Point(0, 575) + Me.PNLWishlistTokenBack.Name = "PNLWishlistTokenBack" + Me.PNLWishlistTokenBack.Size = New System.Drawing.Size(240, 44) + Me.PNLWishlistTokenBack.TabIndex = 105 ' - 'TBShortSpeedUp + 'LBLWishlistSilver ' - Me.TBShortSpeedUp.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortSpeedUp.Location = New System.Drawing.Point(15, 181) - Me.TBShortSpeedUp.Name = "TBShortSpeedUp" - Me.TBShortSpeedUp.Size = New System.Drawing.Size(96, 23) - Me.TBShortSpeedUp.TabIndex = 117 - Me.TBShortSpeedUp.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.LBLWishlistSilver.BackColor = System.Drawing.Color.Transparent + Me.LBLWishlistSilver.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistSilver.ForeColor = System.Drawing.Color.White + Me.LBLWishlistSilver.Location = New System.Drawing.Point(121, 5) + Me.LBLWishlistSilver.Name = "LBLWishlistSilver" + Me.LBLWishlistSilver.Size = New System.Drawing.Size(44, 28) + Me.LBLWishlistSilver.TabIndex = 17 + Me.LBLWishlistSilver.Text = "100" + Me.LBLWishlistSilver.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' - 'TBShortEdge + 'PictureBox6 ' - Me.TBShortEdge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortEdge.Location = New System.Drawing.Point(15, 114) - Me.TBShortEdge.Name = "TBShortEdge" - Me.TBShortEdge.Size = New System.Drawing.Size(212, 23) - Me.TBShortEdge.TabIndex = 116 - Me.TBShortEdge.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.PictureBox6.BackColor = System.Drawing.Color.Transparent + Me.PictureBox6.Image = CType(resources.GetObject("PictureBox6.Image"), System.Drawing.Image) + Me.PictureBox6.Location = New System.Drawing.Point(89, 5) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(28, 28) + Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox6.TabIndex = 16 + Me.PictureBox6.TabStop = False ' - 'TBShortNo + 'LBLWishlistBronze ' - Me.TBShortNo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortNo.Location = New System.Drawing.Point(130, 47) - Me.TBShortNo.Name = "TBShortNo" - Me.TBShortNo.Size = New System.Drawing.Size(96, 23) - Me.TBShortNo.TabIndex = 115 - Me.TBShortNo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.LBLWishlistBronze.BackColor = System.Drawing.Color.Transparent + Me.LBLWishlistBronze.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistBronze.ForeColor = System.Drawing.Color.White + Me.LBLWishlistBronze.Location = New System.Drawing.Point(38, 5) + Me.LBLWishlistBronze.Name = "LBLWishlistBronze" + Me.LBLWishlistBronze.Size = New System.Drawing.Size(44, 28) + Me.LBLWishlistBronze.TabIndex = 15 + Me.LBLWishlistBronze.Text = "100" + Me.LBLWishlistBronze.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' - 'TBShortYes + 'PictureBox5 ' - Me.TBShortYes.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBShortYes.Location = New System.Drawing.Point(15, 47) - Me.TBShortYes.Name = "TBShortYes" - Me.TBShortYes.Size = New System.Drawing.Size(96, 23) - Me.TBShortYes.TabIndex = 114 - Me.TBShortYes.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.PictureBox5.BackColor = System.Drawing.Color.Transparent + Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Image) + Me.PictureBox5.Location = New System.Drawing.Point(6, 5) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(28, 28) + Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox5.TabIndex = 14 + Me.PictureBox5.TabStop = False ' - 'BTNAskToCum + 'LBLWishlistGold ' - Me.BTNAskToCum.BackColor = System.Drawing.Color.White - Me.BTNAskToCum.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNAskToCum.FlatAppearance.BorderSize = 2 - Me.BTNAskToCum.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNAskToCum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNAskToCum.ForeColor = System.Drawing.Color.Black - Me.BTNAskToCum.Location = New System.Drawing.Point(13, 279) - Me.BTNAskToCum.Name = "BTNAskToCum" - Me.BTNAskToCum.Size = New System.Drawing.Size(214, 31) - Me.BTNAskToCum.TabIndex = 113 - Me.BTNAskToCum.Text = "Let me cum!" - Me.BTNAskToCum.UseVisualStyleBackColor = False + Me.LBLWishlistGold.BackColor = System.Drawing.Color.Transparent + Me.LBLWishlistGold.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistGold.ForeColor = System.Drawing.Color.White + Me.LBLWishlistGold.Location = New System.Drawing.Point(199, 5) + Me.LBLWishlistGold.Name = "LBLWishlistGold" + Me.LBLWishlistGold.Size = New System.Drawing.Size(44, 28) + Me.LBLWishlistGold.TabIndex = 13 + Me.LBLWishlistGold.Text = "100" + Me.LBLWishlistGold.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' - 'BTNSlowDown + 'PictureBox4 ' - Me.BTNSlowDown.BackColor = System.Drawing.Color.White - Me.BTNSlowDown.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNSlowDown.FlatAppearance.BorderSize = 2 - Me.BTNSlowDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNSlowDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNSlowDown.ForeColor = System.Drawing.Color.Black - Me.BTNSlowDown.Location = New System.Drawing.Point(128, 145) - Me.BTNSlowDown.Name = "BTNSlowDown" - Me.BTNSlowDown.Size = New System.Drawing.Size(99, 31) - Me.BTNSlowDown.TabIndex = 110 - Me.BTNSlowDown.Text = "Slow down!" - Me.BTNSlowDown.UseVisualStyleBackColor = False + Me.PictureBox4.BackColor = System.Drawing.Color.Transparent + Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image) + Me.PictureBox4.Location = New System.Drawing.Point(167, 5) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(28, 28) + Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox4.TabIndex = 12 + Me.PictureBox4.TabStop = False ' - 'BTNYes + 'LBLWishListName ' - Me.BTNYes.BackColor = System.Drawing.Color.White - Me.BTNYes.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNYes.FlatAppearance.BorderSize = 2 - Me.BTNYes.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNYes.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNYes.ForeColor = System.Drawing.Color.Black - Me.BTNYes.Location = New System.Drawing.Point(13, 11) - Me.BTNYes.Name = "BTNYes" - Me.BTNYes.Size = New System.Drawing.Size(99, 31) - Me.BTNYes.TabIndex = 104 - Me.BTNYes.Text = "Yes" - Me.BTNYes.UseVisualStyleBackColor = False + Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue + Me.LBLWishListName.Location = New System.Drawing.Point(14, 69) + Me.LBLWishListName.Name = "LBLWishListName" + Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) + Me.LBLWishListName.TabIndex = 104 + Me.LBLWishListName.Text = "Item Name Goes Here" + Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'BTNStroke + 'PNLWishlistHeader ' - Me.BTNStroke.BackColor = System.Drawing.Color.White - Me.BTNStroke.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNStroke.FlatAppearance.BorderSize = 2 - Me.BTNStroke.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNStroke.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNStroke.ForeColor = System.Drawing.Color.Black - Me.BTNStroke.Location = New System.Drawing.Point(128, 212) - Me.BTNStroke.Name = "BTNStroke" - Me.BTNStroke.Size = New System.Drawing.Size(100, 31) - Me.BTNStroke.TabIndex = 112 - Me.BTNStroke.Text = "Stroke!" - Me.BTNStroke.UseVisualStyleBackColor = False + Me.PNLWishlistHeader.BackColor = System.Drawing.Color.CornflowerBlue + Me.PNLWishlistHeader.Controls.Add(Me.LBLWishlistDom) + Me.PNLWishlistHeader.Location = New System.Drawing.Point(-4, -4) + Me.PNLWishlistHeader.Name = "PNLWishlistHeader" + Me.PNLWishlistHeader.Size = New System.Drawing.Size(250, 44) + Me.PNLWishlistHeader.TabIndex = 103 ' - 'BTNNo + 'LBLWishlistDom ' - Me.BTNNo.BackColor = System.Drawing.Color.White - Me.BTNNo.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNNo.FlatAppearance.BorderSize = 2 - Me.BTNNo.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNNo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNNo.ForeColor = System.Drawing.Color.Black - Me.BTNNo.Location = New System.Drawing.Point(128, 11) - Me.BTNNo.Name = "BTNNo" - Me.BTNNo.Size = New System.Drawing.Size(99, 31) - Me.BTNNo.TabIndex = 105 - Me.BTNNo.Text = "No" - Me.BTNNo.UseVisualStyleBackColor = False - ' - 'BTNGreeting - ' - Me.BTNGreeting.BackColor = System.Drawing.Color.White - Me.BTNGreeting.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNGreeting.FlatAppearance.BorderSize = 2 - Me.BTNGreeting.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNGreeting.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGreeting.ForeColor = System.Drawing.Color.Black - Me.BTNGreeting.Location = New System.Drawing.Point(13, 346) - Me.BTNGreeting.Name = "BTNGreeting" - Me.BTNGreeting.Size = New System.Drawing.Size(99, 31) - Me.BTNGreeting.TabIndex = 106 - Me.BTNGreeting.Text = "Greeting" - Me.BTNGreeting.UseVisualStyleBackColor = False - ' - 'BTNStop + Me.LBLWishlistDom.BackColor = System.Drawing.Color.Transparent + Me.LBLWishlistDom.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistDom.ForeColor = System.Drawing.Color.White + Me.LBLWishlistDom.Location = New System.Drawing.Point(14, 14) + Me.LBLWishlistDom.Name = "LBLWishlistDom" + Me.LBLWishlistDom.Size = New System.Drawing.Size(223, 16) + Me.LBLWishlistDom.TabIndex = 102 + Me.LBLWishlistDom.Text = "Domme Name's Wishlist" + Me.LBLWishlistDom.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - Me.BTNStop.BackColor = System.Drawing.Color.White - Me.BTNStop.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNStop.FlatAppearance.BorderSize = 2 - Me.BTNStop.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNStop.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNStop.ForeColor = System.Drawing.Color.Black - Me.BTNStop.Location = New System.Drawing.Point(13, 212) - Me.BTNStop.Name = "BTNStop" - Me.BTNStop.Size = New System.Drawing.Size(98, 31) - Me.BTNStop.TabIndex = 111 - Me.BTNStop.Text = "Stop!" - Me.BTNStop.UseVisualStyleBackColor = False + 'WishlistPreview ' - 'BTNSafeword + Me.WishlistPreview.ImageLocation = "" + Me.WishlistPreview.Location = New System.Drawing.Point(49, 101) + Me.WishlistPreview.Name = "WishlistPreview" + Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) + Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.WishlistPreview.TabIndex = 101 + Me.WishlistPreview.TabStop = False ' - Me.BTNSafeword.BackColor = System.Drawing.Color.White - Me.BTNSafeword.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNSafeword.FlatAppearance.BorderSize = 2 - Me.BTNSafeword.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNSafeword.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNSafeword.ForeColor = System.Drawing.Color.Black - Me.BTNSafeword.Location = New System.Drawing.Point(128, 346) - Me.BTNSafeword.Name = "BTNSafeword" - Me.BTNSafeword.Size = New System.Drawing.Size(99, 31) - Me.BTNSafeword.TabIndex = 107 - Me.BTNSafeword.Text = "Safeword" - Me.BTNSafeword.UseVisualStyleBackColor = False + 'PNLHypnoGen ' - 'BTNLS1 + Me.PNLHypnoGen.BackColor = System.Drawing.Color.Transparent + Me.PNLHypnoGen.Controls.Add(Me.ComboBoxHypnoGenTrack) + Me.PNLHypnoGen.Controls.Add(Me.LBLBackTrack) + Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenNoText) + Me.PNLHypnoGen.Controls.Add(Me.TBHypnoGenImageTag) + Me.PNLHypnoGen.Controls.Add(Me.LBLHypnoImageTag) + Me.PNLHypnoGen.Controls.Add(Me.LBHypnoGenSlideshow) + Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenSlideshow) + Me.PNLHypnoGen.Controls.Add(Me.LBHypnoGen) + Me.PNLHypnoGen.Controls.Add(Me.LBLHypnoFile) + Me.PNLHypnoGen.Controls.Add(Me.LBHypnoGenInduction) + Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenInduction) + Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenPhase) + Me.PNLHypnoGen.Controls.Add(Me.BTNHypnoGenStart) + Me.PNLHypnoGen.Location = New System.Drawing.Point(2, 2) + Me.PNLHypnoGen.Name = "PNLHypnoGen" + Me.PNLHypnoGen.Size = New System.Drawing.Size(245, 418) + Me.PNLHypnoGen.TabIndex = 776 + Me.PNLHypnoGen.Visible = False ' - Me.BTNLS1.BackColor = System.Drawing.Color.White - Me.BTNLS1.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS1.FlatAppearance.BorderSize = 2 - Me.BTNLS1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLS1.ForeColor = System.Drawing.Color.Black - Me.BTNLS1.Location = New System.Drawing.Point(13, 441) - Me.BTNLS1.Name = "BTNLS1" - Me.BTNLS1.Size = New System.Drawing.Size(163, 31) - Me.BTNLS1.TabIndex = 108 - Me.BTNLS1.Text = "Custom 1" - Me.BTNLS1.UseVisualStyleBackColor = False + 'ComboBoxHypnoGenTrack ' - 'BTNEdge + Me.ComboBoxHypnoGenTrack.FormattingEnabled = True + Me.ComboBoxHypnoGenTrack.Items.AddRange(New Object() {"Silence"}) + Me.ComboBoxHypnoGenTrack.Location = New System.Drawing.Point(16, 311) + Me.ComboBoxHypnoGenTrack.Name = "ComboBoxHypnoGenTrack" + Me.ComboBoxHypnoGenTrack.Size = New System.Drawing.Size(210, 21) + Me.ComboBoxHypnoGenTrack.TabIndex = 111 + Me.ComboBoxHypnoGenTrack.Text = "Silence" ' - Me.BTNEdge.BackColor = System.Drawing.Color.White - Me.BTNEdge.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNEdge.FlatAppearance.BorderSize = 2 - Me.BTNEdge.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNEdge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNEdge.ForeColor = System.Drawing.Color.Black - Me.BTNEdge.Location = New System.Drawing.Point(13, 78) - Me.BTNEdge.Name = "BTNEdge" - Me.BTNEdge.Size = New System.Drawing.Size(214, 31) - Me.BTNEdge.TabIndex = 108 - Me.BTNEdge.Text = "On the edge!" - Me.BTNEdge.UseVisualStyleBackColor = False + 'LBLBackTrack ' - 'BTNSpeedUp + Me.LBLBackTrack.AutoSize = True + Me.LBLBackTrack.BackColor = System.Drawing.Color.Transparent + Me.LBLBackTrack.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLBackTrack.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLBackTrack.Location = New System.Drawing.Point(15, 293) + Me.LBLBackTrack.Name = "LBLBackTrack" + Me.LBLBackTrack.Size = New System.Drawing.Size(129, 13) + Me.LBLBackTrack.TabIndex = 110 + Me.LBLBackTrack.Text = "Select Background Track" ' - Me.BTNSpeedUp.BackColor = System.Drawing.Color.White - Me.BTNSpeedUp.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNSpeedUp.FlatAppearance.BorderSize = 2 - Me.BTNSpeedUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNSpeedUp.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNSpeedUp.ForeColor = System.Drawing.Color.Black - Me.BTNSpeedUp.Location = New System.Drawing.Point(13, 145) - Me.BTNSpeedUp.Name = "BTNSpeedUp" - Me.BTNSpeedUp.Size = New System.Drawing.Size(99, 31) - Me.BTNSpeedUp.TabIndex = 109 - Me.BTNSpeedUp.Text = "Speed up!" - Me.BTNSpeedUp.UseVisualStyleBackColor = False + 'CBHypnoGenNoText ' - 'BTNLS1Edit + Me.CBHypnoGenNoText.AutoSize = True + Me.CBHypnoGenNoText.BackColor = System.Drawing.Color.Transparent + Me.CBHypnoGenNoText.Checked = True + Me.CBHypnoGenNoText.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBHypnoGenNoText.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBHypnoGenNoText.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.CBHypnoGenNoText.Location = New System.Drawing.Point(16, 338) + Me.CBHypnoGenNoText.Name = "CBHypnoGenNoText" + Me.CBHypnoGenNoText.Size = New System.Drawing.Size(202, 17) + Me.CBHypnoGenNoText.TabIndex = 109 + Me.CBHypnoGenNoText.Text = "Disable Domme Text in Chat Window" + Me.CBHypnoGenNoText.UseVisualStyleBackColor = False ' - Me.BTNLS1Edit.BackColor = System.Drawing.Color.White - Me.BTNLS1Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS1Edit.FlatAppearance.BorderSize = 2 - Me.BTNLS1Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS1Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNLS1Edit.ForeColor = System.Drawing.Color.Black - Me.BTNLS1Edit.Location = New System.Drawing.Point(190, 441) - Me.BTNLS1Edit.Name = "BTNLS1Edit" - Me.BTNLS1Edit.Size = New System.Drawing.Size(36, 31) - Me.BTNLS1Edit.TabIndex = 117 - Me.BTNLS1Edit.Text = "!" - Me.BTNLS1Edit.UseVisualStyleBackColor = False + 'TBHypnoGenImageTag ' - 'BTNLS4Edit + Me.TBHypnoGenImageTag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TBHypnoGenImageTag.Location = New System.Drawing.Point(83, 266) + Me.TBHypnoGenImageTag.Name = "TBHypnoGenImageTag" + Me.TBHypnoGenImageTag.Size = New System.Drawing.Size(143, 20) + Me.TBHypnoGenImageTag.TabIndex = 108 ' - Me.BTNLS4Edit.BackColor = System.Drawing.Color.White - Me.BTNLS4Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS4Edit.FlatAppearance.BorderSize = 2 - Me.BTNLS4Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS4Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNLS4Edit.ForeColor = System.Drawing.Color.Black - Me.BTNLS4Edit.Location = New System.Drawing.Point(190, 555) - Me.BTNLS4Edit.Name = "BTNLS4Edit" - Me.BTNLS4Edit.Size = New System.Drawing.Size(36, 31) - Me.BTNLS4Edit.TabIndex = 126 - Me.BTNLS4Edit.Text = "!" - Me.BTNLS4Edit.UseVisualStyleBackColor = False + 'LBLHypnoImageTag ' - 'BTNLS3Edit + Me.LBLHypnoImageTag.AutoSize = True + Me.LBLHypnoImageTag.BackColor = System.Drawing.Color.Transparent + Me.LBLHypnoImageTag.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLHypnoImageTag.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLHypnoImageTag.Location = New System.Drawing.Point(15, 270) + Me.LBLHypnoImageTag.Name = "LBLHypnoImageTag" + Me.LBLHypnoImageTag.Size = New System.Drawing.Size(61, 13) + Me.LBLHypnoImageTag.TabIndex = 107 + Me.LBLHypnoImageTag.Text = "Image Tag:" ' - Me.BTNLS3Edit.BackColor = System.Drawing.Color.White - Me.BTNLS3Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS3Edit.FlatAppearance.BorderSize = 2 - Me.BTNLS3Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS3Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNLS3Edit.ForeColor = System.Drawing.Color.Black - Me.BTNLS3Edit.Location = New System.Drawing.Point(190, 517) - Me.BTNLS3Edit.Name = "BTNLS3Edit" - Me.BTNLS3Edit.Size = New System.Drawing.Size(36, 31) - Me.BTNLS3Edit.TabIndex = 123 - Me.BTNLS3Edit.Text = "!" - Me.BTNLS3Edit.UseVisualStyleBackColor = False + 'LBHypnoGenSlideshow ' - 'BTNLS2 + Me.LBHypnoGenSlideshow.Enabled = False + Me.LBHypnoGenSlideshow.FormattingEnabled = True + Me.LBHypnoGenSlideshow.Items.AddRange(New Object() {"Boobs", "Butts", "Hardcore", "Softcore", "Lesbian", "Blowjob", "Femdom", "Hentai", "Gay", "Maledom", "Captions", "General", "Tagged"}) + Me.LBHypnoGenSlideshow.Location = New System.Drawing.Point(16, 206) + Me.LBHypnoGenSlideshow.Name = "LBHypnoGenSlideshow" + Me.LBHypnoGenSlideshow.Size = New System.Drawing.Size(210, 56) + Me.LBHypnoGenSlideshow.TabIndex = 106 ' - Me.BTNLS2.BackColor = System.Drawing.Color.White - Me.BTNLS2.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS2.FlatAppearance.BorderSize = 2 - Me.BTNLS2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLS2.ForeColor = System.Drawing.Color.Black - Me.BTNLS2.Location = New System.Drawing.Point(13, 479) - Me.BTNLS2.Name = "BTNLS2" - Me.BTNLS2.Size = New System.Drawing.Size(163, 31) - Me.BTNLS2.TabIndex = 118 - Me.BTNLS2.Text = "Custom 2" - Me.BTNLS2.UseVisualStyleBackColor = False + 'CBHypnoGenSlideshow ' - 'BTNLS2Edit + Me.CBHypnoGenSlideshow.AutoSize = True + Me.CBHypnoGenSlideshow.BackColor = System.Drawing.Color.Transparent + Me.CBHypnoGenSlideshow.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBHypnoGenSlideshow.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.CBHypnoGenSlideshow.Location = New System.Drawing.Point(16, 187) + Me.CBHypnoGenSlideshow.Name = "CBHypnoGenSlideshow" + Me.CBHypnoGenSlideshow.Size = New System.Drawing.Size(97, 17) + Me.CBHypnoGenSlideshow.TabIndex = 105 + Me.CBHypnoGenSlideshow.Text = "Play Slideshow" + Me.CBHypnoGenSlideshow.UseVisualStyleBackColor = False ' - Me.BTNLS2Edit.BackColor = System.Drawing.Color.White - Me.BTNLS2Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS2Edit.FlatAppearance.BorderSize = 2 - Me.BTNLS2Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS2Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNLS2Edit.ForeColor = System.Drawing.Color.Black - Me.BTNLS2Edit.Location = New System.Drawing.Point(190, 479) - Me.BTNLS2Edit.Name = "BTNLS2Edit" - Me.BTNLS2Edit.Size = New System.Drawing.Size(36, 31) - Me.BTNLS2Edit.TabIndex = 120 - Me.BTNLS2Edit.Text = "!" - Me.BTNLS2Edit.UseVisualStyleBackColor = False + 'LBHypnoGen ' - 'BTNLS5Edit + Me.LBHypnoGen.FormattingEnabled = True + Me.LBHypnoGen.Location = New System.Drawing.Point(16, 100) + Me.LBHypnoGen.Name = "LBHypnoGen" + Me.LBHypnoGen.Size = New System.Drawing.Size(210, 82) + Me.LBHypnoGen.TabIndex = 104 ' - Me.BTNLS5Edit.BackColor = System.Drawing.Color.White - Me.BTNLS5Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS5Edit.FlatAppearance.BorderSize = 2 - Me.BTNLS5Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS5Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNLS5Edit.ForeColor = System.Drawing.Color.Black - Me.BTNLS5Edit.Location = New System.Drawing.Point(190, 593) - Me.BTNLS5Edit.Name = "BTNLS5Edit" - Me.BTNLS5Edit.Size = New System.Drawing.Size(36, 31) - Me.BTNLS5Edit.TabIndex = 129 - Me.BTNLS5Edit.Text = "!" - Me.BTNLS5Edit.UseVisualStyleBackColor = False + 'LBLHypnoFile ' - 'BTNLS3 + Me.LBLHypnoFile.AutoSize = True + Me.LBLHypnoFile.BackColor = System.Drawing.Color.Transparent + Me.LBLHypnoFile.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLHypnoFile.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLHypnoFile.Location = New System.Drawing.Point(13, 83) + Me.LBLHypnoFile.Name = "LBLHypnoFile" + Me.LBLHypnoFile.Size = New System.Drawing.Size(90, 13) + Me.LBLHypnoFile.TabIndex = 103 + Me.LBLHypnoFile.Text = "Select Hypno File" ' - Me.BTNLS3.BackColor = System.Drawing.Color.White - Me.BTNLS3.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS3.FlatAppearance.BorderSize = 2 - Me.BTNLS3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLS3.ForeColor = System.Drawing.Color.Black - Me.BTNLS3.Location = New System.Drawing.Point(13, 517) - Me.BTNLS3.Name = "BTNLS3" - Me.BTNLS3.Size = New System.Drawing.Size(163, 31) - Me.BTNLS3.TabIndex = 121 - Me.BTNLS3.Text = "Custom 3" - Me.BTNLS3.UseVisualStyleBackColor = False + 'LBHypnoGenInduction ' - 'BTNLS4 + Me.LBHypnoGenInduction.Enabled = False + Me.LBHypnoGenInduction.FormattingEnabled = True + Me.LBHypnoGenInduction.Location = New System.Drawing.Point(16, 22) + Me.LBHypnoGenInduction.Name = "LBHypnoGenInduction" + Me.LBHypnoGenInduction.Size = New System.Drawing.Size(210, 56) + Me.LBHypnoGenInduction.TabIndex = 102 ' - Me.BTNLS4.BackColor = System.Drawing.Color.White - Me.BTNLS4.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS4.FlatAppearance.BorderSize = 2 - Me.BTNLS4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLS4.ForeColor = System.Drawing.Color.Black - Me.BTNLS4.Location = New System.Drawing.Point(13, 555) - Me.BTNLS4.Name = "BTNLS4" - Me.BTNLS4.Size = New System.Drawing.Size(163, 31) - Me.BTNLS4.TabIndex = 124 - Me.BTNLS4.Text = "Custom 4" - Me.BTNLS4.UseVisualStyleBackColor = False + 'CBHypnoGenInduction ' - 'BTNLS5 + Me.CBHypnoGenInduction.AutoSize = True + Me.CBHypnoGenInduction.BackColor = System.Drawing.Color.Transparent + Me.CBHypnoGenInduction.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBHypnoGenInduction.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.CBHypnoGenInduction.Location = New System.Drawing.Point(16, 4) + Me.CBHypnoGenInduction.Name = "CBHypnoGenInduction" + Me.CBHypnoGenInduction.Size = New System.Drawing.Size(92, 17) + Me.CBHypnoGenInduction.TabIndex = 101 + Me.CBHypnoGenInduction.Text = "Use Induction" + Me.CBHypnoGenInduction.UseVisualStyleBackColor = False ' - Me.BTNLS5.BackColor = System.Drawing.Color.White - Me.BTNLS5.FlatAppearance.BorderColor = System.Drawing.Color.Black - Me.BTNLS5.FlatAppearance.BorderSize = 2 - Me.BTNLS5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLS5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLS5.ForeColor = System.Drawing.Color.Black - Me.BTNLS5.Location = New System.Drawing.Point(13, 593) - Me.BTNLS5.Name = "BTNLS5" - Me.BTNLS5.Size = New System.Drawing.Size(163, 31) - Me.BTNLS5.TabIndex = 127 - Me.BTNLS5.Text = "Custom 5" - Me.BTNLS5.UseVisualStyleBackColor = False + 'CBHypnoGenPhase ' - 'PnlGlitter + Me.CBHypnoGenPhase.AutoSize = True + Me.CBHypnoGenPhase.BackColor = System.Drawing.Color.Transparent + Me.CBHypnoGenPhase.Checked = True + Me.CBHypnoGenPhase.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBHypnoGenPhase.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBHypnoGenPhase.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.CBHypnoGenPhase.Location = New System.Drawing.Point(16, 360) + Me.CBHypnoGenPhase.Name = "CBHypnoGenPhase" + Me.CBHypnoGenPhase.Size = New System.Drawing.Size(197, 17) + Me.CBHypnoGenPhase.TabIndex = 100 + Me.CBHypnoGenPhase.Text = "Apply Phase Effect to Domme Voice" + Me.CBHypnoGenPhase.UseVisualStyleBackColor = False ' - Me.PnlGlitter.Controls.Add(Me.StatusUpdates) - Me.PnlGlitter.Dock = System.Windows.Forms.DockStyle.Fill - Me.PnlGlitter.Location = New System.Drawing.Point(0, 0) - Me.PnlGlitter.Name = "PnlGlitter" - Me.PnlGlitter.Size = New System.Drawing.Size(240, 633) - Me.PnlGlitter.TabIndex = 783 + 'BTNHypnoGenStart ' - 'PnlSidechat + Me.BTNHypnoGenStart.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNHypnoGenStart.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNHypnoGenStart.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNHypnoGenStart.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNHypnoGenStart.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNHypnoGenStart.Location = New System.Drawing.Point(16, 383) + Me.BTNHypnoGenStart.Name = "BTNHypnoGenStart" + Me.BTNHypnoGenStart.Size = New System.Drawing.Size(210, 23) + Me.BTNHypnoGenStart.TabIndex = 0 + Me.BTNHypnoGenStart.Text = "Guide Me!" + Me.BTNHypnoGenStart.UseVisualStyleBackColor = False ' - Me.PnlSidechat.Controls.Add(Me.ChatText2) - Me.PnlSidechat.Controls.Add(Me.PNLChatBox2) - Me.PnlSidechat.Dock = System.Windows.Forms.DockStyle.Fill - Me.PnlSidechat.Location = New System.Drawing.Point(0, 0) - Me.PnlSidechat.Name = "PnlSidechat" - Me.PnlSidechat.Size = New System.Drawing.Size(240, 633) - Me.PnlSidechat.TabIndex = 782 + 'AppPanelVitalSub ' - 'ChatText2 + Me.AppPanelVitalSub.BackColor = System.Drawing.Color.Transparent + Me.AppPanelVitalSub.Controls.Add(Me.GBGoals) + Me.AppPanelVitalSub.Controls.Add(Me.CBVitalSubDomTask) + Me.AppPanelVitalSub.Controls.Add(Me.BTNVitalSub) + Me.AppPanelVitalSub.Controls.Add(Me.GBCalories) + Me.AppPanelVitalSub.Controls.Add(Me.CBVitalSub) + Me.AppPanelVitalSub.Location = New System.Drawing.Point(2, 2) + Me.AppPanelVitalSub.Name = "AppPanelVitalSub" + Me.AppPanelVitalSub.Size = New System.Drawing.Size(245, 422) + Me.AppPanelVitalSub.TabIndex = 777 + Me.AppPanelVitalSub.Visible = False ' - Me.ChatText2.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChatText2.Location = New System.Drawing.Point(0, 0) - Me.ChatText2.MinimumSize = New System.Drawing.Size(20, 20) - Me.ChatText2.Name = "ChatText2" - Me.ChatText2.Size = New System.Drawing.Size(240, 605) - Me.ChatText2.TabIndex = 781 + 'GBGoals ' - 'PNLChatBox2 + Me.GBGoals.Controls.Add(Me.BTNExercise) + Me.GBGoals.Controls.Add(Me.TBExercise) + Me.GBGoals.Controls.Add(Me.CLBExercise) + Me.GBGoals.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GBGoals.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.GBGoals.Location = New System.Drawing.Point(7, 21) + Me.GBGoals.Name = "GBGoals" + Me.GBGoals.Size = New System.Drawing.Size(227, 146) + Me.GBGoals.TabIndex = 3 + Me.GBGoals.TabStop = False + Me.GBGoals.Text = "Exercise && Motivational Goals" ' - Me.PNLChatBox2.BackColor = System.Drawing.Color.Transparent - Me.PNLChatBox2.Controls.Add(Me.ChatBox2) - Me.PNLChatBox2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.PNLChatBox2.Location = New System.Drawing.Point(0, 605) - Me.PNLChatBox2.Name = "PNLChatBox2" - Me.PNLChatBox2.Padding = New System.Windows.Forms.Padding(2) - Me.PNLChatBox2.Size = New System.Drawing.Size(240, 28) - Me.PNLChatBox2.TabIndex = 779 + 'BTNExercise ' - 'ChatBox2 + Me.BTNExercise.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNExercise.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNExercise.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNExercise.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNExercise.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNExercise.Location = New System.Drawing.Point(174, 17) + Me.BTNExercise.Name = "BTNExercise" + Me.BTNExercise.Size = New System.Drawing.Size(46, 24) + Me.BTNExercise.TabIndex = 2 + Me.BTNExercise.Text = "Add" + Me.BTNExercise.UseVisualStyleBackColor = False ' - Me.ChatBox2.AllowDrop = True - Me.ChatBox2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.ChatBox2.Location = New System.Drawing.Point(2, 6) - Me.ChatBox2.Name = "ChatBox2" - Me.ChatBox2.Size = New System.Drawing.Size(236, 20) - Me.ChatBox2.TabIndex = 1 + 'TBExercise ' - 'PNLWritingTask + Me.TBExercise.Location = New System.Drawing.Point(7, 19) + Me.TBExercise.Name = "TBExercise" + Me.TBExercise.Size = New System.Drawing.Size(162, 20) + Me.TBExercise.TabIndex = 1 ' - Me.PNLWritingTask.BackColor = System.Drawing.Color.Transparent - Me.PNLWritingTask.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.PNLWritingTask.Controls.Add(Me.CBWritingProgress) - Me.PNLWritingTask.Controls.Add(Me.Button15) - Me.PNLWritingTask.Controls.Add(Me.Button1) - Me.PNLWritingTask.Controls.Add(Me.Label76) - Me.PNLWritingTask.Controls.Add(Me.LBLMistakesMade) - Me.PNLWritingTask.Controls.Add(Me.LNLMistakesMade) - Me.PNLWritingTask.Controls.Add(Me.LBLMistakesAllowed) - Me.PNLWritingTask.Controls.Add(Me.Label74) - Me.PNLWritingTask.Controls.Add(Me.LBLLinesRemaining) - Me.PNLWritingTask.Controls.Add(Me.Label15) - Me.PNLWritingTask.Controls.Add(Me.LBLWritingTaskText) - Me.PNLWritingTask.Controls.Add(Me.LBLWritingTask) - Me.PNLWritingTask.Controls.Add(Me.LBLLinesWritten) - Me.PNLWritingTask.Dock = System.Windows.Forms.DockStyle.Fill - Me.PNLWritingTask.Location = New System.Drawing.Point(0, 0) - Me.PNLWritingTask.Name = "PNLWritingTask" - Me.PNLWritingTask.Size = New System.Drawing.Size(240, 633) - Me.PNLWritingTask.TabIndex = 774 + 'CLBExercise ' - 'CBWritingProgress + Me.CLBExercise.CheckOnClick = True + Me.CLBExercise.FormattingEnabled = True + Me.CLBExercise.Location = New System.Drawing.Point(7, 46) + Me.CLBExercise.Name = "CLBExercise" + Me.CLBExercise.Size = New System.Drawing.Size(213, 94) + Me.CLBExercise.TabIndex = 0 ' - Me.CBWritingProgress.AutoSize = True - Me.CBWritingProgress.Checked = Global.Tease_AI.My.MySettings.Default.WritingProgress - Me.CBWritingProgress.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBWritingProgress.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "WritingProgress", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBWritingProgress.ForeColor = System.Drawing.Color.White - Me.CBWritingProgress.Location = New System.Drawing.Point(9, 241) - Me.CBWritingProgress.Name = "CBWritingProgress" - Me.CBWritingProgress.Size = New System.Drawing.Size(182, 17) - Me.CBWritingProgress.TabIndex = 139 - Me.CBWritingProgress.Text = "Display Progress in Chat Window" - Me.CBWritingProgress.UseVisualStyleBackColor = True + 'CBVitalSubDomTask ' - 'Button15 + Me.CBVitalSubDomTask.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVitalSubDomTask.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.CBVitalSubDomTask.Location = New System.Drawing.Point(114, 0) + Me.CBVitalSubDomTask.Name = "CBVitalSubDomTask" + Me.CBVitalSubDomTask.Size = New System.Drawing.Size(126, 24) + Me.CBVitalSubDomTask.TabIndex = 6 + Me.CBVitalSubDomTask.Text = "Domme Assignments" + Me.CBVitalSubDomTask.UseVisualStyleBackColor = True ' - Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button15.ForeColor = System.Drawing.Color.White - Me.Button15.Location = New System.Drawing.Point(8, 266) - Me.Button15.Name = "Button15" - Me.Button15.Size = New System.Drawing.Size(228, 28) - Me.Button15.TabIndex = 138 - Me.Button15.Text = "Close This Window and Open Side Chat" - Me.Button15.UseVisualStyleBackColor = True + 'BTNVitalSub ' - 'Button1 + Me.BTNVitalSub.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNVitalSub.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNVitalSub.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNVitalSub.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNVitalSub.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNVitalSub.Location = New System.Drawing.Point(7, 383) + Me.BTNVitalSub.Name = "BTNVitalSub" + Me.BTNVitalSub.Size = New System.Drawing.Size(227, 29) + Me.BTNVitalSub.TabIndex = 5 + Me.BTNVitalSub.Text = "Report End-of-Day Result to Domme" + Me.BTNVitalSub.UseVisualStyleBackColor = False ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.ForeColor = System.Drawing.Color.White - Me.Button1.Location = New System.Drawing.Point(8, 300) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(228, 28) - Me.Button1.TabIndex = 137 - Me.Button1.Text = "Perform Random Writing Task" - Me.Button1.UseVisualStyleBackColor = True + 'GBCalories ' - 'Label76 + Me.GBCalories.Controls.Add(Me.TBCalorieAmount) + Me.GBCalories.Controls.Add(Me.TBCalorieItem) + Me.GBCalories.Controls.Add(Me.BTNCalorie) + Me.GBCalories.Controls.Add(Me.Label14) + Me.GBCalories.Controls.Add(Me.Label12) + Me.GBCalories.Controls.Add(Me.LBCalorie) + Me.GBCalories.Controls.Add(Me.ComboBoxCalorie) + Me.GBCalories.Controls.Add(Me.TBCalorie) + Me.GBCalories.Controls.Add(Me.LBLGoal) + Me.GBCalories.Controls.Add(Me.LBLCalorie) + Me.GBCalories.Controls.Add(Me.LBLConsumed) + Me.GBCalories.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GBCalories.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.GBCalories.Location = New System.Drawing.Point(7, 168) + Me.GBCalories.Name = "GBCalories" + Me.GBCalories.Size = New System.Drawing.Size(227, 210) + Me.GBCalories.TabIndex = 4 + Me.GBCalories.TabStop = False + Me.GBCalories.Text = "Calorie Goals" ' - Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label76.ForeColor = System.Drawing.Color.White - Me.Label76.Location = New System.Drawing.Point(8, 187) - Me.Label76.Name = "Label76" - Me.Label76.Size = New System.Drawing.Size(108, 17) - Me.Label76.TabIndex = 136 - Me.Label76.Text = "Mistakes Allowed" - Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'TBCalorieAmount ' - 'LBLMistakesMade + Me.TBCalorieAmount.Location = New System.Drawing.Point(115, 28) + Me.TBCalorieAmount.Name = "TBCalorieAmount" + Me.TBCalorieAmount.Size = New System.Drawing.Size(54, 20) + Me.TBCalorieAmount.TabIndex = 10 ' - Me.LBLMistakesMade.BackColor = System.Drawing.Color.White - Me.LBLMistakesMade.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLMistakesMade.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLMistakesMade.ForeColor = System.Drawing.Color.Black - Me.LBLMistakesMade.Location = New System.Drawing.Point(126, 206) - Me.LBLMistakesMade.Name = "LBLMistakesMade" - Me.LBLMistakesMade.Size = New System.Drawing.Size(108, 24) - Me.LBLMistakesMade.TabIndex = 135 - Me.LBLMistakesMade.Text = "1000" - Me.LBLMistakesMade.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'TBCalorieItem ' - 'LNLMistakesMade + Me.TBCalorieItem.Location = New System.Drawing.Point(8, 28) + Me.TBCalorieItem.Name = "TBCalorieItem" + Me.TBCalorieItem.Size = New System.Drawing.Size(100, 20) + Me.TBCalorieItem.TabIndex = 9 ' - Me.LNLMistakesMade.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LNLMistakesMade.ForeColor = System.Drawing.Color.White - Me.LNLMistakesMade.Location = New System.Drawing.Point(126, 187) - Me.LNLMistakesMade.Name = "LNLMistakesMade" - Me.LNLMistakesMade.Size = New System.Drawing.Size(108, 17) - Me.LNLMistakesMade.TabIndex = 134 - Me.LNLMistakesMade.Text = "Mistakes Made" - Me.LNLMistakesMade.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'BTNCalorie ' - 'LBLMistakesAllowed + Me.BTNCalorie.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNCalorie.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNCalorie.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNCalorie.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNCalorie.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNCalorie.Location = New System.Drawing.Point(174, 26) + Me.BTNCalorie.Name = "BTNCalorie" + Me.BTNCalorie.Size = New System.Drawing.Size(46, 24) + Me.BTNCalorie.TabIndex = 8 + Me.BTNCalorie.Text = "Add" + Me.BTNCalorie.UseVisualStyleBackColor = False ' - Me.LBLMistakesAllowed.BackColor = System.Drawing.Color.White - Me.LBLMistakesAllowed.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLMistakesAllowed.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLMistakesAllowed.ForeColor = System.Drawing.Color.Black - Me.LBLMistakesAllowed.Location = New System.Drawing.Point(8, 206) - Me.LBLMistakesAllowed.Name = "LBLMistakesAllowed" - Me.LBLMistakesAllowed.Size = New System.Drawing.Size(108, 24) - Me.LBLMistakesAllowed.TabIndex = 133 - Me.LBLMistakesAllowed.Text = "1000" - Me.LBLMistakesAllowed.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'Label14 ' - 'Label74 + Me.Label14.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.Label14.Location = New System.Drawing.Point(111, 11) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(57, 14) + Me.Label14.TabIndex = 7 + Me.Label14.Text = "Calories" + Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label74.ForeColor = System.Drawing.Color.White - Me.Label74.Location = New System.Drawing.Point(126, 139) - Me.Label74.Name = "Label74" - Me.Label74.Size = New System.Drawing.Size(108, 17) - Me.Label74.TabIndex = 132 - Me.Label74.Text = "Lines Remaining" - Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'Label12 ' - 'LBLLinesRemaining + Me.Label12.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.Label12.Location = New System.Drawing.Point(6, 11) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(34, 14) + Me.Label12.TabIndex = 6 + Me.Label12.Text = "Item" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - Me.LBLLinesRemaining.BackColor = System.Drawing.Color.White - Me.LBLLinesRemaining.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLLinesRemaining.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLLinesRemaining.ForeColor = System.Drawing.Color.Black - Me.LBLLinesRemaining.Location = New System.Drawing.Point(126, 158) - Me.LBLLinesRemaining.Name = "LBLLinesRemaining" - Me.LBLLinesRemaining.Size = New System.Drawing.Size(108, 24) - Me.LBLLinesRemaining.TabIndex = 131 - Me.LBLLinesRemaining.Text = "1000" - Me.LBLLinesRemaining.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'LBCalorie ' - 'Label15 + Me.LBCalorie.FormattingEnabled = True + Me.LBCalorie.Location = New System.Drawing.Point(7, 80) + Me.LBCalorie.Name = "LBCalorie" + Me.LBCalorie.Size = New System.Drawing.Size(213, 82) + Me.LBCalorie.TabIndex = 5 ' - Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.ForeColor = System.Drawing.Color.White - Me.Label15.Location = New System.Drawing.Point(8, 139) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(108, 17) - Me.Label15.TabIndex = 130 - Me.Label15.Text = "Lines Written" - Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'ComboBoxCalorie ' - 'LBLWritingTaskText + Me.ComboBoxCalorie.FormattingEnabled = True + Me.ComboBoxCalorie.Location = New System.Drawing.Point(7, 54) + Me.ComboBoxCalorie.Name = "ComboBoxCalorie" + Me.ComboBoxCalorie.Size = New System.Drawing.Size(213, 21) + Me.ComboBoxCalorie.Sorted = True + Me.ComboBoxCalorie.TabIndex = 4 ' - Me.LBLWritingTaskText.BackColor = System.Drawing.Color.White - Me.LBLWritingTaskText.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLWritingTaskText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWritingTaskText.ForeColor = System.Drawing.Color.Black - Me.LBLWritingTaskText.Location = New System.Drawing.Point(8, 64) - Me.LBLWritingTaskText.Name = "LBLWritingTaskText" - Me.LBLWritingTaskText.Size = New System.Drawing.Size(226, 61) - Me.LBLWritingTaskText.TabIndex = 128 - Me.LBLWritingTaskText.Text = "WritingTask" - Me.LBLWritingTaskText.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'TBCalorie ' - 'LBLWritingTask + Me.TBCalorie.BackColor = System.Drawing.Color.Black + Me.TBCalorie.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBCalorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBCalorie.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.TBCalorie.Location = New System.Drawing.Point(132, 180) + Me.TBCalorie.Name = "TBCalorie" + Me.TBCalorie.Size = New System.Drawing.Size(74, 23) + Me.TBCalorie.TabIndex = 3 + Me.TBCalorie.Text = "2000" + Me.TBCalorie.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - Me.LBLWritingTask.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWritingTask.ForeColor = System.Drawing.Color.White - Me.LBLWritingTask.Location = New System.Drawing.Point(0, 3) - Me.LBLWritingTask.Name = "LBLWritingTask" - Me.LBLWritingTask.Size = New System.Drawing.Size(245, 54) - Me.LBLWritingTask.TabIndex = 125 - Me.LBLWritingTask.Text = "Write the following line 100 times:" - Me.LBLWritingTask.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'LBLGoal ' - 'LBLLinesWritten + Me.LBLGoal.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGoal.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGoal.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLGoal.Location = New System.Drawing.Point(131, 161) + Me.LBLGoal.Name = "LBLGoal" + Me.LBLGoal.Size = New System.Drawing.Size(74, 18) + Me.LBLGoal.TabIndex = 2 + Me.LBLGoal.Text = "Goal" + Me.LBLGoal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - Me.LBLLinesWritten.BackColor = System.Drawing.Color.White - Me.LBLLinesWritten.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLLinesWritten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLLinesWritten.ForeColor = System.Drawing.Color.Black - Me.LBLLinesWritten.Location = New System.Drawing.Point(8, 158) - Me.LBLLinesWritten.Name = "LBLLinesWritten" - Me.LBLLinesWritten.Size = New System.Drawing.Size(108, 24) - Me.LBLLinesWritten.TabIndex = 129 - Me.LBLLinesWritten.Text = "1000" - Me.LBLLinesWritten.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'LBLCalorie ' - 'PNLAppRandomizer + Me.LBLCalorie.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor + Me.LBLCalorie.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLCalorie.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLCalorie.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLCalorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLCalorie.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLCalorie.Location = New System.Drawing.Point(23, 180) + Me.LBLCalorie.Name = "LBLCalorie" + Me.LBLCalorie.Size = New System.Drawing.Size(74, 23) + Me.LBLCalorie.TabIndex = 1 + Me.LBLCalorie.Text = "0" + Me.LBLCalorie.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - Me.PNLAppRandomizer.BackColor = System.Drawing.Color.Transparent - Me.PNLAppRandomizer.Controls.Add(Me.Button12) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomLocal) - Me.PNLAppRandomizer.Controls.Add(Me.Label20) - Me.PNLAppRandomizer.Controls.Add(Me.Label19) - Me.PNLAppRandomizer.Controls.Add(Me.Label18) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomRLGL) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomAtE) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomCS) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomCH) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomJOI) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomVideo) - Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomBlog) - Me.PNLAppRandomizer.Dock = System.Windows.Forms.DockStyle.Fill - Me.PNLAppRandomizer.Location = New System.Drawing.Point(0, 0) - Me.PNLAppRandomizer.Name = "PNLAppRandomizer" - Me.PNLAppRandomizer.Size = New System.Drawing.Size(240, 633) - Me.PNLAppRandomizer.TabIndex = 772 - Me.PNLAppRandomizer.Visible = False + 'LBLConsumed ' - 'Button12 + Me.LBLConsumed.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLConsumed.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLConsumed.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLConsumed.Location = New System.Drawing.Point(23, 161) + Me.LBLConsumed.Name = "LBLConsumed" + Me.LBLConsumed.Size = New System.Drawing.Size(74, 18) + Me.LBLConsumed.TabIndex = 0 + Me.LBLConsumed.Text = "Consumed" + Me.LBLConsumed.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - Me.Button12.Location = New System.Drawing.Point(83, 382) - Me.Button12.Name = "Button12" - Me.Button12.Size = New System.Drawing.Size(75, 23) - Me.Button12.TabIndex = 12 - Me.Button12.Text = "Button12" - Me.Button12.UseVisualStyleBackColor = True - Me.Button12.Visible = False + 'CBVitalSub ' - 'BTNRandomLocal + Me.CBVitalSub.ForeColor = System.Drawing.Color.Red + Me.CBVitalSub.Location = New System.Drawing.Point(7, 0) + Me.CBVitalSub.Name = "CBVitalSub" + Me.CBVitalSub.Size = New System.Drawing.Size(107, 24) + Me.CBVitalSub.TabIndex = 2 + Me.CBVitalSub.Text = "VitalSub Inactive" + Me.CBVitalSub.UseVisualStyleBackColor = True ' - Me.BTNRandomLocal.BackColor = System.Drawing.Color.White - Me.BTNRandomLocal.FlatAppearance.BorderSize = 2 - Me.BTNRandomLocal.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomLocal.ForeColor = System.Drawing.Color.Black - Me.BTNRandomLocal.Location = New System.Drawing.Point(6, 66) - Me.BTNRandomLocal.Name = "BTNRandomLocal" - Me.BTNRandomLocal.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomLocal.TabIndex = 11 - Me.BTNRandomLocal.Text = "Local Image" - Me.BTNRandomLocal.UseVisualStyleBackColor = False + 'PNLMetronome ' - 'Label20 + Me.PNLMetronome.BackColor = System.Drawing.Color.Transparent + Me.PNLMetronome.Controls.Add(Me.BTNMetroStop2) + Me.PNLMetronome.Controls.Add(Me.BTNMetroStop1) + Me.PNLMetronome.Controls.Add(Me.BTNMetroPreview2) + Me.PNLMetronome.Controls.Add(Me.BTNMetroPreview1) + Me.PNLMetronome.Controls.Add(Me.LBLHigh) + Me.PNLMetronome.Controls.Add(Me.NBMinPace) + Me.PNLMetronome.Controls.Add(Me.LBLMinSpeed) + Me.PNLMetronome.Controls.Add(Me.LBLLow) + Me.PNLMetronome.Controls.Add(Me.NBMaxPace) + Me.PNLMetronome.Controls.Add(Me.LBLMaxSpeed) + Me.PNLMetronome.Controls.Add(Me.CBMetronome) + Me.PNLMetronome.Location = New System.Drawing.Point(2, 2) + Me.PNLMetronome.Name = "PNLMetronome" + Me.PNLMetronome.Size = New System.Drawing.Size(245, 167) + Me.PNLMetronome.TabIndex = 779 ' - Me.Label20.BackColor = System.Drawing.Color.Transparent - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label20.ForeColor = System.Drawing.Color.White - Me.Label20.Location = New System.Drawing.Point(-2, -3) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(245, 28) - Me.Label20.TabIndex = 10 - Me.Label20.Text = "Media" - Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'BTNMetroStop2 ' - 'Label19 + Me.BTNMetroStop2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNMetroStop2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroStop2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroStop2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNMetroStop2.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNMetroStop2.Location = New System.Drawing.Point(85, 119) + Me.BTNMetroStop2.Name = "BTNMetroStop2" + Me.BTNMetroStop2.Size = New System.Drawing.Size(41, 23) + Me.BTNMetroStop2.TabIndex = 10 + Me.BTNMetroStop2.Text = "Stop" + Me.BTNMetroStop2.UseVisualStyleBackColor = False ' - Me.Label19.BackColor = System.Drawing.Color.Transparent - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.ForeColor = System.Drawing.Color.White - Me.Label19.Location = New System.Drawing.Point(-2, 133) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(245, 28) - Me.Label19.TabIndex = 9 - Me.Label19.Text = "Special Videos" - Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'BTNMetroStop1 ' - 'Label18 + Me.BTNMetroStop1.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNMetroStop1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroStop1.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroStop1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNMetroStop1.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNMetroStop1.Location = New System.Drawing.Point(85, 64) + Me.BTNMetroStop1.Name = "BTNMetroStop1" + Me.BTNMetroStop1.Size = New System.Drawing.Size(41, 23) + Me.BTNMetroStop1.TabIndex = 9 + Me.BTNMetroStop1.Text = "Stop" + Me.BTNMetroStop1.UseVisualStyleBackColor = False ' - Me.Label18.BackColor = System.Drawing.Color.Transparent - Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label18.ForeColor = System.Drawing.Color.White - Me.Label18.Location = New System.Drawing.Point(-2, 230) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(245, 28) - Me.Label18.TabIndex = 8 - Me.Label18.Text = "Video Teases" - Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'BTNMetroPreview2 ' - 'BTNRandomRLGL + Me.BTNMetroPreview2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNMetroPreview2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroPreview2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroPreview2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNMetroPreview2.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNMetroPreview2.Location = New System.Drawing.Point(8, 119) + Me.BTNMetroPreview2.Name = "BTNMetroPreview2" + Me.BTNMetroPreview2.Size = New System.Drawing.Size(70, 23) + Me.BTNMetroPreview2.TabIndex = 8 + Me.BTNMetroPreview2.Text = "Preview" + Me.BTNMetroPreview2.UseVisualStyleBackColor = False ' - Me.BTNRandomRLGL.BackColor = System.Drawing.Color.White - Me.BTNRandomRLGL.FlatAppearance.BorderSize = 2 - Me.BTNRandomRLGL.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomRLGL.ForeColor = System.Drawing.Color.Black - Me.BTNRandomRLGL.Location = New System.Drawing.Point(6, 338) - Me.BTNRandomRLGL.Name = "BTNRandomRLGL" - Me.BTNRandomRLGL.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomRLGL.TabIndex = 7 - Me.BTNRandomRLGL.Text = "Red Light Green Light" - Me.BTNRandomRLGL.UseVisualStyleBackColor = False + 'BTNMetroPreview1 ' - 'BTNRandomAtE + Me.BTNMetroPreview1.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.BTNMetroPreview1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroPreview1.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BTNMetroPreview1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNMetroPreview1.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.BTNMetroPreview1.Location = New System.Drawing.Point(8, 64) + Me.BTNMetroPreview1.Name = "BTNMetroPreview1" + Me.BTNMetroPreview1.Size = New System.Drawing.Size(70, 23) + Me.BTNMetroPreview1.TabIndex = 7 + Me.BTNMetroPreview1.Text = "Preview" + Me.BTNMetroPreview1.UseVisualStyleBackColor = False ' - Me.BTNRandomAtE.BackColor = System.Drawing.Color.White - Me.BTNRandomAtE.FlatAppearance.BorderSize = 2 - Me.BTNRandomAtE.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomAtE.ForeColor = System.Drawing.Color.Black - Me.BTNRandomAtE.Location = New System.Drawing.Point(6, 299) - Me.BTNRandomAtE.Name = "BTNRandomAtE" - Me.BTNRandomAtE.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomAtE.TabIndex = 6 - Me.BTNRandomAtE.Text = "Avoid The Edge" - Me.BTNRandomAtE.UseVisualStyleBackColor = False + 'LBLHigh ' - 'BTNRandomCS + Me.LBLHigh.BackColor = System.Drawing.Color.Transparent + Me.LBLHigh.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLHigh.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLHigh.Location = New System.Drawing.Point(144, 131) + Me.LBLHigh.Name = "LBLHigh" + Me.LBLHigh.Size = New System.Drawing.Size(92, 18) + Me.LBLHigh.TabIndex = 6 + Me.LBLHigh.Text = "Higher is Slower" + Me.LBLHigh.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'NBMinPace ' - Me.BTNRandomCS.BackColor = System.Drawing.Color.White - Me.BTNRandomCS.FlatAppearance.BorderSize = 2 - Me.BTNRandomCS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomCS.ForeColor = System.Drawing.Color.Black - Me.BTNRandomCS.Location = New System.Drawing.Point(6, 260) - Me.BTNRandomCS.Name = "BTNRandomCS" - Me.BTNRandomCS.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomCS.TabIndex = 5 - Me.BTNRandomCS.Text = "Censorship Sucks" - Me.BTNRandomCS.UseVisualStyleBackColor = False + Me.NBMinPace.Increment = New Decimal(New Integer() {50, 0, 0, 0}) + Me.NBMinPace.Location = New System.Drawing.Point(144, 109) + Me.NBMinPace.Maximum = New Decimal(New Integer() {3000, 0, 0, 0}) + Me.NBMinPace.Minimum = New Decimal(New Integer() {200, 0, 0, 0}) + Me.NBMinPace.Name = "NBMinPace" + Me.NBMinPace.Size = New System.Drawing.Size(92, 20) + Me.NBMinPace.TabIndex = 5 + Me.NBMinPace.Value = New Decimal(New Integer() {1000, 0, 0, 0}) ' - 'BTNRandomCH + 'LBLMinSpeed ' - Me.BTNRandomCH.BackColor = System.Drawing.Color.White - Me.BTNRandomCH.FlatAppearance.BorderSize = 2 - Me.BTNRandomCH.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomCH.ForeColor = System.Drawing.Color.Black - Me.BTNRandomCH.Location = New System.Drawing.Point(6, 202) - Me.BTNRandomCH.Name = "BTNRandomCH" - Me.BTNRandomCH.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomCH.TabIndex = 4 - Me.BTNRandomCH.Text = "CH" - Me.BTNRandomCH.UseVisualStyleBackColor = False + Me.LBLMinSpeed.AutoSize = True + Me.LBLMinSpeed.BackColor = System.Drawing.Color.Transparent + Me.LBLMinSpeed.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLMinSpeed.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLMinSpeed.Location = New System.Drawing.Point(8, 99) + Me.LBLMinSpeed.Name = "LBLMinSpeed" + Me.LBLMinSpeed.Size = New System.Drawing.Size(118, 13) + Me.LBLMinSpeed.TabIndex = 4 + Me.LBLMinSpeed.Text = "Minimum Stroking Pace" ' - 'BTNRandomJOI + 'LBLLow ' - Me.BTNRandomJOI.BackColor = System.Drawing.Color.White - Me.BTNRandomJOI.FlatAppearance.BorderSize = 2 - Me.BTNRandomJOI.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomJOI.ForeColor = System.Drawing.Color.Black - Me.BTNRandomJOI.Location = New System.Drawing.Point(6, 163) - Me.BTNRandomJOI.Name = "BTNRandomJOI" - Me.BTNRandomJOI.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomJOI.TabIndex = 3 - Me.BTNRandomJOI.Text = "JOI" - Me.BTNRandomJOI.UseVisualStyleBackColor = False + Me.LBLLow.BackColor = System.Drawing.Color.Transparent + Me.LBLLow.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLLow.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLLow.Location = New System.Drawing.Point(144, 76) + Me.LBLLow.Name = "LBLLow" + Me.LBLLow.Size = New System.Drawing.Size(92, 16) + Me.LBLLow.TabIndex = 3 + Me.LBLLow.Text = "Lower is Faster" + Me.LBLLow.TextAlign = System.Drawing.ContentAlignment.TopCenter ' - 'BTNRandomVideo + 'NBMaxPace ' - Me.BTNRandomVideo.BackColor = System.Drawing.Color.White - Me.BTNRandomVideo.FlatAppearance.BorderSize = 2 - Me.BTNRandomVideo.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomVideo.ForeColor = System.Drawing.Color.Black - Me.BTNRandomVideo.Location = New System.Drawing.Point(6, 105) - Me.BTNRandomVideo.Name = "BTNRandomVideo" - Me.BTNRandomVideo.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomVideo.TabIndex = 2 - Me.BTNRandomVideo.Text = "Video" - Me.BTNRandomVideo.UseVisualStyleBackColor = False + Me.NBMaxPace.Increment = New Decimal(New Integer() {50, 0, 0, 0}) + Me.NBMaxPace.Location = New System.Drawing.Point(144, 54) + Me.NBMaxPace.Maximum = New Decimal(New Integer() {900, 0, 0, 0}) + Me.NBMaxPace.Minimum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.NBMaxPace.Name = "NBMaxPace" + Me.NBMaxPace.Size = New System.Drawing.Size(92, 20) + Me.NBMaxPace.TabIndex = 2 + Me.NBMaxPace.Value = New Decimal(New Integer() {200, 0, 0, 0}) ' - 'BTNRandomBlog + 'LBLMaxSpeed ' - Me.BTNRandomBlog.BackColor = System.Drawing.Color.White - Me.BTNRandomBlog.FlatAppearance.BorderSize = 2 - Me.BTNRandomBlog.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRandomBlog.ForeColor = System.Drawing.Color.Black - Me.BTNRandomBlog.Location = New System.Drawing.Point(6, 27) - Me.BTNRandomBlog.Name = "BTNRandomBlog" - Me.BTNRandomBlog.Size = New System.Drawing.Size(228, 28) - Me.BTNRandomBlog.TabIndex = 0 - Me.BTNRandomBlog.Text = "Blog Image" - Me.BTNRandomBlog.UseVisualStyleBackColor = False + Me.LBLMaxSpeed.AutoSize = True + Me.LBLMaxSpeed.BackColor = System.Drawing.Color.Transparent + Me.LBLMaxSpeed.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLMaxSpeed.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLMaxSpeed.Location = New System.Drawing.Point(8, 45) + Me.LBLMaxSpeed.Name = "LBLMaxSpeed" + Me.LBLMaxSpeed.Size = New System.Drawing.Size(121, 13) + Me.LBLMaxSpeed.TabIndex = 1 + Me.LBLMaxSpeed.Text = "Maximum Stroking Pace" ' - 'PNLLazySub2 + 'CBMetronome ' - Me.PNLLazySub2.BackColor = System.Drawing.Color.Transparent - Me.PNLLazySub2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.PNLLazySub2.Location = New System.Drawing.Point(2, 2) - Me.PNLLazySub2.Name = "PNLLazySub2" - Me.PNLLazySub2.Size = New System.Drawing.Size(245, 444) - Me.PNLLazySub2.TabIndex = 780 - Me.PNLLazySub2.Visible = False + Me.CBMetronome.AutoSize = True + Me.CBMetronome.BackColor = System.Drawing.Color.Transparent + Me.CBMetronome.Checked = True + Me.CBMetronome.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBMetronome.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBMetronome.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.CBMetronome.Location = New System.Drawing.Point(10, 16) + Me.CBMetronome.Name = "CBMetronome" + Me.CBMetronome.Size = New System.Drawing.Size(115, 17) + Me.CBMetronome.TabIndex = 0 + Me.CBMetronome.Text = "Enable Metronome" + Me.CBMetronome.UseVisualStyleBackColor = False ' - 'AppPanelVitalSub + 'PNLLazySub ' - Me.AppPanelVitalSub.BackColor = System.Drawing.Color.Transparent - Me.AppPanelVitalSub.Controls.Add(Me.GBGoals) - Me.AppPanelVitalSub.Controls.Add(Me.CBVitalSubDomTask) - Me.AppPanelVitalSub.Controls.Add(Me.BTNVitalSub) - Me.AppPanelVitalSub.Controls.Add(Me.GBCalories) - Me.AppPanelVitalSub.Controls.Add(Me.CBVitalSub) - Me.AppPanelVitalSub.Location = New System.Drawing.Point(2, 2) - Me.AppPanelVitalSub.Name = "AppPanelVitalSub" - Me.AppPanelVitalSub.Size = New System.Drawing.Size(245, 422) - Me.AppPanelVitalSub.TabIndex = 777 - Me.AppPanelVitalSub.Visible = False + Me.PNLLazySub.BackColor = System.Drawing.Color.Transparent + Me.PNLLazySub.Controls.Add(Me.CBHideShortcuts) + Me.PNLLazySub.Controls.Add(Me.CBShortcuts) + Me.PNLLazySub.Controls.Add(Me.TBShortSafeword) + Me.PNLLazySub.Controls.Add(Me.TBShortGreet) + Me.PNLLazySub.Controls.Add(Me.TBShortCum) + Me.PNLLazySub.Controls.Add(Me.TBShortStroke) + Me.PNLLazySub.Controls.Add(Me.TBShortStop) + Me.PNLLazySub.Controls.Add(Me.TBShortSlowDown) + Me.PNLLazySub.Controls.Add(Me.TBShortSpeedUp) + Me.PNLLazySub.Controls.Add(Me.TBShortEdge) + Me.PNLLazySub.Controls.Add(Me.TBShortNo) + Me.PNLLazySub.Controls.Add(Me.TBShortYes) + Me.PNLLazySub.Controls.Add(Me.BTNAskToCum) + Me.PNLLazySub.Controls.Add(Me.BTNSlowDown) + Me.PNLLazySub.Controls.Add(Me.BTNYes) + Me.PNLLazySub.Controls.Add(Me.BTNStroke) + Me.PNLLazySub.Controls.Add(Me.BTNNo) + Me.PNLLazySub.Controls.Add(Me.BTNGreeting) + Me.PNLLazySub.Controls.Add(Me.BTNStop) + Me.PNLLazySub.Controls.Add(Me.BTNSafeword) + Me.PNLLazySub.Controls.Add(Me.BTNLS1) + Me.PNLLazySub.Controls.Add(Me.BTNEdge) + Me.PNLLazySub.Controls.Add(Me.BTNSpeedUp) + Me.PNLLazySub.Controls.Add(Me.BTNLS1Edit) + Me.PNLLazySub.Controls.Add(Me.BTNLS4Edit) + Me.PNLLazySub.Controls.Add(Me.BTNLS3Edit) + Me.PNLLazySub.Controls.Add(Me.BTNLS2) + Me.PNLLazySub.Controls.Add(Me.BTNLS2Edit) + Me.PNLLazySub.Controls.Add(Me.BTNLS5Edit) + Me.PNLLazySub.Controls.Add(Me.BTNLS3) + Me.PNLLazySub.Controls.Add(Me.BTNLS4) + Me.PNLLazySub.Controls.Add(Me.BTNLS5) + Me.PNLLazySub.Dock = System.Windows.Forms.DockStyle.Fill + Me.PNLLazySub.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.PNLLazySub.Location = New System.Drawing.Point(0, 0) + Me.PNLLazySub.Name = "PNLLazySub" + Me.PNLLazySub.Size = New System.Drawing.Size(240, 619) + Me.PNLLazySub.TabIndex = 771 + Me.PNLLazySub.Visible = False ' - 'GBGoals + 'CBHideShortcuts ' - Me.GBGoals.Controls.Add(Me.BTNExercise) - Me.GBGoals.Controls.Add(Me.TBExercise) - Me.GBGoals.Controls.Add(Me.CLBExercise) - Me.GBGoals.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GBGoals.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.GBGoals.Location = New System.Drawing.Point(7, 21) - Me.GBGoals.Name = "GBGoals" - Me.GBGoals.Size = New System.Drawing.Size(227, 146) - Me.GBGoals.TabIndex = 3 - Me.GBGoals.TabStop = False - Me.GBGoals.Text = "Exercise && Motivational Goals" + Me.CBHideShortcuts.AutoSize = True + Me.CBHideShortcuts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBHideShortcuts.ForeColor = System.Drawing.Color.White + Me.CBHideShortcuts.Location = New System.Drawing.Point(129, 415) + Me.CBHideShortcuts.Name = "CBHideShortcuts" + Me.CBHideShortcuts.Size = New System.Drawing.Size(96, 17) + Me.CBHideShortcuts.TabIndex = 171 + Me.CBHideShortcuts.Text = "Hide Shortcuts" + Me.CBHideShortcuts.UseVisualStyleBackColor = True ' - 'BTNExercise + 'CBShortcuts ' - Me.BTNExercise.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNExercise.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNExercise.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNExercise.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNExercise.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNExercise.Location = New System.Drawing.Point(174, 17) - Me.BTNExercise.Name = "BTNExercise" - Me.BTNExercise.Size = New System.Drawing.Size(46, 24) - Me.BTNExercise.TabIndex = 2 - Me.BTNExercise.Text = "Add" - Me.BTNExercise.UseVisualStyleBackColor = False + Me.CBShortcuts.AutoSize = True + Me.CBShortcuts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBShortcuts.ForeColor = System.Drawing.Color.White + Me.CBShortcuts.Location = New System.Drawing.Point(14, 415) + Me.CBShortcuts.Name = "CBShortcuts" + Me.CBShortcuts.Size = New System.Drawing.Size(107, 17) + Me.CBShortcuts.TabIndex = 169 + Me.CBShortcuts.Text = "Enable Shortcuts" + Me.CBShortcuts.UseVisualStyleBackColor = True ' - 'TBExercise + 'TBShortSafeword ' - Me.TBExercise.Location = New System.Drawing.Point(7, 19) - Me.TBExercise.Name = "TBExercise" - Me.TBExercise.Size = New System.Drawing.Size(162, 20) - Me.TBExercise.TabIndex = 1 + Me.TBShortSafeword.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortSafeword.Location = New System.Drawing.Point(130, 382) + Me.TBShortSafeword.Name = "TBShortSafeword" + Me.TBShortSafeword.Size = New System.Drawing.Size(96, 23) + Me.TBShortSafeword.TabIndex = 170 + Me.TBShortSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'CLBExercise + 'TBShortGreet ' - Me.CLBExercise.CheckOnClick = True - Me.CLBExercise.FormattingEnabled = True - Me.CLBExercise.Location = New System.Drawing.Point(7, 46) - Me.CLBExercise.Name = "CLBExercise" - Me.CLBExercise.Size = New System.Drawing.Size(213, 94) - Me.CLBExercise.TabIndex = 0 + Me.TBShortGreet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortGreet.Location = New System.Drawing.Point(15, 382) + Me.TBShortGreet.Name = "TBShortGreet" + Me.TBShortGreet.Size = New System.Drawing.Size(96, 23) + Me.TBShortGreet.TabIndex = 169 + Me.TBShortGreet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'CBVitalSubDomTask + 'TBShortCum ' - Me.CBVitalSubDomTask.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVitalSubDomTask.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.CBVitalSubDomTask.Location = New System.Drawing.Point(114, 0) - Me.CBVitalSubDomTask.Name = "CBVitalSubDomTask" - Me.CBVitalSubDomTask.Size = New System.Drawing.Size(126, 24) - Me.CBVitalSubDomTask.TabIndex = 6 - Me.CBVitalSubDomTask.Text = "Domme Assignments" - Me.CBVitalSubDomTask.UseVisualStyleBackColor = True + Me.TBShortCum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortCum.Location = New System.Drawing.Point(15, 315) + Me.TBShortCum.Name = "TBShortCum" + Me.TBShortCum.Size = New System.Drawing.Size(212, 23) + Me.TBShortCum.TabIndex = 121 + Me.TBShortCum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'BTNVitalSub + 'TBShortStroke ' - Me.BTNVitalSub.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNVitalSub.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNVitalSub.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNVitalSub.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNVitalSub.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNVitalSub.Location = New System.Drawing.Point(7, 383) - Me.BTNVitalSub.Name = "BTNVitalSub" - Me.BTNVitalSub.Size = New System.Drawing.Size(227, 29) - Me.BTNVitalSub.TabIndex = 5 - Me.BTNVitalSub.Text = "Report End-of-Day Result to Domme" - Me.BTNVitalSub.UseVisualStyleBackColor = False + Me.TBShortStroke.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortStroke.Location = New System.Drawing.Point(130, 248) + Me.TBShortStroke.Name = "TBShortStroke" + Me.TBShortStroke.Size = New System.Drawing.Size(96, 23) + Me.TBShortStroke.TabIndex = 120 + Me.TBShortStroke.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'GBCalories + 'TBShortStop ' - Me.GBCalories.Controls.Add(Me.TBCalorieAmount) - Me.GBCalories.Controls.Add(Me.TBCalorieItem) - Me.GBCalories.Controls.Add(Me.BTNCalorie) - Me.GBCalories.Controls.Add(Me.Label14) - Me.GBCalories.Controls.Add(Me.Label12) - Me.GBCalories.Controls.Add(Me.LBCalorie) - Me.GBCalories.Controls.Add(Me.ComboBoxCalorie) - Me.GBCalories.Controls.Add(Me.TBCalorie) - Me.GBCalories.Controls.Add(Me.LBLGoal) - Me.GBCalories.Controls.Add(Me.LBLCalorie) - Me.GBCalories.Controls.Add(Me.LBLConsumed) - Me.GBCalories.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GBCalories.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.GBCalories.Location = New System.Drawing.Point(7, 168) - Me.GBCalories.Name = "GBCalories" - Me.GBCalories.Size = New System.Drawing.Size(227, 210) - Me.GBCalories.TabIndex = 4 - Me.GBCalories.TabStop = False - Me.GBCalories.Text = "Calorie Goals" + Me.TBShortStop.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortStop.Location = New System.Drawing.Point(15, 248) + Me.TBShortStop.Name = "TBShortStop" + Me.TBShortStop.Size = New System.Drawing.Size(96, 23) + Me.TBShortStop.TabIndex = 119 + Me.TBShortStop.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'TBCalorieAmount + 'TBShortSlowDown ' - Me.TBCalorieAmount.Location = New System.Drawing.Point(115, 28) - Me.TBCalorieAmount.Name = "TBCalorieAmount" - Me.TBCalorieAmount.Size = New System.Drawing.Size(54, 20) - Me.TBCalorieAmount.TabIndex = 10 + Me.TBShortSlowDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortSlowDown.Location = New System.Drawing.Point(130, 181) + Me.TBShortSlowDown.Name = "TBShortSlowDown" + Me.TBShortSlowDown.Size = New System.Drawing.Size(96, 23) + Me.TBShortSlowDown.TabIndex = 118 + Me.TBShortSlowDown.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'TBCalorieItem + 'TBShortSpeedUp ' - Me.TBCalorieItem.Location = New System.Drawing.Point(8, 28) - Me.TBCalorieItem.Name = "TBCalorieItem" - Me.TBCalorieItem.Size = New System.Drawing.Size(100, 20) - Me.TBCalorieItem.TabIndex = 9 + Me.TBShortSpeedUp.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortSpeedUp.Location = New System.Drawing.Point(15, 181) + Me.TBShortSpeedUp.Name = "TBShortSpeedUp" + Me.TBShortSpeedUp.Size = New System.Drawing.Size(96, 23) + Me.TBShortSpeedUp.TabIndex = 117 + Me.TBShortSpeedUp.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'BTNCalorie + 'TBShortEdge ' - Me.BTNCalorie.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNCalorie.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNCalorie.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNCalorie.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNCalorie.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNCalorie.Location = New System.Drawing.Point(174, 26) - Me.BTNCalorie.Name = "BTNCalorie" - Me.BTNCalorie.Size = New System.Drawing.Size(46, 24) - Me.BTNCalorie.TabIndex = 8 - Me.BTNCalorie.Text = "Add" - Me.BTNCalorie.UseVisualStyleBackColor = False + Me.TBShortEdge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortEdge.Location = New System.Drawing.Point(15, 114) + Me.TBShortEdge.Name = "TBShortEdge" + Me.TBShortEdge.Size = New System.Drawing.Size(212, 23) + Me.TBShortEdge.TabIndex = 116 + Me.TBShortEdge.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'Label14 + 'TBShortNo ' - Me.Label14.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label14.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.Label14.Location = New System.Drawing.Point(111, 11) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(57, 14) - Me.Label14.TabIndex = 7 - Me.Label14.Text = "Calories" - Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.TBShortNo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortNo.Location = New System.Drawing.Point(130, 47) + Me.TBShortNo.Name = "TBShortNo" + Me.TBShortNo.Size = New System.Drawing.Size(96, 23) + Me.TBShortNo.TabIndex = 115 + Me.TBShortNo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'Label12 + 'TBShortYes ' - Me.Label12.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.Label12.Location = New System.Drawing.Point(6, 11) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(34, 14) - Me.Label12.TabIndex = 6 - Me.Label12.Text = "Item" - Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.TBShortYes.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBShortYes.Location = New System.Drawing.Point(15, 47) + Me.TBShortYes.Name = "TBShortYes" + Me.TBShortYes.Size = New System.Drawing.Size(96, 23) + Me.TBShortYes.TabIndex = 114 + Me.TBShortYes.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'LBCalorie + 'BTNAskToCum ' - Me.LBCalorie.FormattingEnabled = True - Me.LBCalorie.Location = New System.Drawing.Point(7, 80) - Me.LBCalorie.Name = "LBCalorie" - Me.LBCalorie.Size = New System.Drawing.Size(213, 82) - Me.LBCalorie.TabIndex = 5 + Me.BTNAskToCum.BackColor = System.Drawing.Color.White + Me.BTNAskToCum.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNAskToCum.FlatAppearance.BorderSize = 2 + Me.BTNAskToCum.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNAskToCum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNAskToCum.ForeColor = System.Drawing.Color.Black + Me.BTNAskToCum.Location = New System.Drawing.Point(13, 279) + Me.BTNAskToCum.Name = "BTNAskToCum" + Me.BTNAskToCum.Size = New System.Drawing.Size(214, 31) + Me.BTNAskToCum.TabIndex = 113 + Me.BTNAskToCum.Text = "Let me cum!" + Me.BTNAskToCum.UseVisualStyleBackColor = False ' - 'ComboBoxCalorie + 'BTNSlowDown ' - Me.ComboBoxCalorie.FormattingEnabled = True - Me.ComboBoxCalorie.Location = New System.Drawing.Point(7, 54) - Me.ComboBoxCalorie.Name = "ComboBoxCalorie" - Me.ComboBoxCalorie.Size = New System.Drawing.Size(213, 21) - Me.ComboBoxCalorie.Sorted = True - Me.ComboBoxCalorie.TabIndex = 4 + Me.BTNSlowDown.BackColor = System.Drawing.Color.White + Me.BTNSlowDown.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNSlowDown.FlatAppearance.BorderSize = 2 + Me.BTNSlowDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNSlowDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNSlowDown.ForeColor = System.Drawing.Color.Black + Me.BTNSlowDown.Location = New System.Drawing.Point(128, 145) + Me.BTNSlowDown.Name = "BTNSlowDown" + Me.BTNSlowDown.Size = New System.Drawing.Size(99, 31) + Me.BTNSlowDown.TabIndex = 110 + Me.BTNSlowDown.Text = "Slow down!" + Me.BTNSlowDown.UseVisualStyleBackColor = False ' - 'TBCalorie + 'BTNYes ' - Me.TBCalorie.BackColor = System.Drawing.Color.Black - Me.TBCalorie.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBCalorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBCalorie.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.TBCalorie.Location = New System.Drawing.Point(132, 180) - Me.TBCalorie.Name = "TBCalorie" - Me.TBCalorie.Size = New System.Drawing.Size(74, 23) - Me.TBCalorie.TabIndex = 3 - Me.TBCalorie.Text = "2000" - Me.TBCalorie.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BTNYes.BackColor = System.Drawing.Color.White + Me.BTNYes.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNYes.FlatAppearance.BorderSize = 2 + Me.BTNYes.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNYes.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNYes.ForeColor = System.Drawing.Color.Black + Me.BTNYes.Location = New System.Drawing.Point(13, 11) + Me.BTNYes.Name = "BTNYes" + Me.BTNYes.Size = New System.Drawing.Size(99, 31) + Me.BTNYes.TabIndex = 104 + Me.BTNYes.Text = "Yes" + Me.BTNYes.UseVisualStyleBackColor = False ' - 'LBLGoal + 'BTNStroke ' - Me.LBLGoal.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGoal.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGoal.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLGoal.Location = New System.Drawing.Point(131, 161) - Me.LBLGoal.Name = "LBLGoal" - Me.LBLGoal.Size = New System.Drawing.Size(74, 18) - Me.LBLGoal.TabIndex = 2 - Me.LBLGoal.Text = "Goal" - Me.LBLGoal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.BTNStroke.BackColor = System.Drawing.Color.White + Me.BTNStroke.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNStroke.FlatAppearance.BorderSize = 2 + Me.BTNStroke.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNStroke.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNStroke.ForeColor = System.Drawing.Color.Black + Me.BTNStroke.Location = New System.Drawing.Point(128, 212) + Me.BTNStroke.Name = "BTNStroke" + Me.BTNStroke.Size = New System.Drawing.Size(100, 31) + Me.BTNStroke.TabIndex = 112 + Me.BTNStroke.Text = "Stroke!" + Me.BTNStroke.UseVisualStyleBackColor = False ' - 'LBLCalorie + 'BTNNo ' - Me.LBLCalorie.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor - Me.LBLCalorie.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLCalorie.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLCalorie.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLCalorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLCalorie.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLCalorie.Location = New System.Drawing.Point(23, 180) - Me.LBLCalorie.Name = "LBLCalorie" - Me.LBLCalorie.Size = New System.Drawing.Size(74, 23) - Me.LBLCalorie.TabIndex = 1 - Me.LBLCalorie.Text = "0" - Me.LBLCalorie.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.BTNNo.BackColor = System.Drawing.Color.White + Me.BTNNo.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNNo.FlatAppearance.BorderSize = 2 + Me.BTNNo.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNNo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNNo.ForeColor = System.Drawing.Color.Black + Me.BTNNo.Location = New System.Drawing.Point(128, 11) + Me.BTNNo.Name = "BTNNo" + Me.BTNNo.Size = New System.Drawing.Size(99, 31) + Me.BTNNo.TabIndex = 105 + Me.BTNNo.Text = "No" + Me.BTNNo.UseVisualStyleBackColor = False ' - 'LBLConsumed + 'BTNGreeting ' - Me.LBLConsumed.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLConsumed.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLConsumed.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLConsumed.Location = New System.Drawing.Point(23, 161) - Me.LBLConsumed.Name = "LBLConsumed" - Me.LBLConsumed.Size = New System.Drawing.Size(74, 18) - Me.LBLConsumed.TabIndex = 0 - Me.LBLConsumed.Text = "Consumed" - Me.LBLConsumed.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.BTNGreeting.BackColor = System.Drawing.Color.White + Me.BTNGreeting.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNGreeting.FlatAppearance.BorderSize = 2 + Me.BTNGreeting.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNGreeting.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGreeting.ForeColor = System.Drawing.Color.Black + Me.BTNGreeting.Location = New System.Drawing.Point(13, 346) + Me.BTNGreeting.Name = "BTNGreeting" + Me.BTNGreeting.Size = New System.Drawing.Size(99, 31) + Me.BTNGreeting.TabIndex = 106 + Me.BTNGreeting.Text = "Greeting" + Me.BTNGreeting.UseVisualStyleBackColor = False ' - 'CBVitalSub + 'BTNStop ' - Me.CBVitalSub.ForeColor = System.Drawing.Color.Red - Me.CBVitalSub.Location = New System.Drawing.Point(7, 0) - Me.CBVitalSub.Name = "CBVitalSub" - Me.CBVitalSub.Size = New System.Drawing.Size(107, 24) - Me.CBVitalSub.TabIndex = 2 - Me.CBVitalSub.Text = "VitalSub Inactive" - Me.CBVitalSub.UseVisualStyleBackColor = True + Me.BTNStop.BackColor = System.Drawing.Color.White + Me.BTNStop.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNStop.FlatAppearance.BorderSize = 2 + Me.BTNStop.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNStop.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNStop.ForeColor = System.Drawing.Color.Black + Me.BTNStop.Location = New System.Drawing.Point(13, 212) + Me.BTNStop.Name = "BTNStop" + Me.BTNStop.Size = New System.Drawing.Size(98, 31) + Me.BTNStop.TabIndex = 111 + Me.BTNStop.Text = "Stop!" + Me.BTNStop.UseVisualStyleBackColor = False ' - 'PNLHypnoGen + 'BTNSafeword ' - Me.PNLHypnoGen.BackColor = System.Drawing.Color.Transparent - Me.PNLHypnoGen.Controls.Add(Me.ComboBoxHypnoGenTrack) - Me.PNLHypnoGen.Controls.Add(Me.LBLBackTrack) - Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenNoText) - Me.PNLHypnoGen.Controls.Add(Me.TBHypnoGenImageTag) - Me.PNLHypnoGen.Controls.Add(Me.LBLHypnoImageTag) - Me.PNLHypnoGen.Controls.Add(Me.LBHypnoGenSlideshow) - Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenSlideshow) - Me.PNLHypnoGen.Controls.Add(Me.LBHypnoGen) - Me.PNLHypnoGen.Controls.Add(Me.LBLHypnoFile) - Me.PNLHypnoGen.Controls.Add(Me.LBHypnoGenInduction) - Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenInduction) - Me.PNLHypnoGen.Controls.Add(Me.CBHypnoGenPhase) - Me.PNLHypnoGen.Controls.Add(Me.BTNHypnoGenStart) - Me.PNLHypnoGen.Location = New System.Drawing.Point(2, 2) - Me.PNLHypnoGen.Name = "PNLHypnoGen" - Me.PNLHypnoGen.Size = New System.Drawing.Size(245, 418) - Me.PNLHypnoGen.TabIndex = 776 - Me.PNLHypnoGen.Visible = False + Me.BTNSafeword.BackColor = System.Drawing.Color.White + Me.BTNSafeword.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNSafeword.FlatAppearance.BorderSize = 2 + Me.BTNSafeword.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNSafeword.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNSafeword.ForeColor = System.Drawing.Color.Black + Me.BTNSafeword.Location = New System.Drawing.Point(128, 346) + Me.BTNSafeword.Name = "BTNSafeword" + Me.BTNSafeword.Size = New System.Drawing.Size(99, 31) + Me.BTNSafeword.TabIndex = 107 + Me.BTNSafeword.Text = "Safeword" + Me.BTNSafeword.UseVisualStyleBackColor = False ' - 'ComboBoxHypnoGenTrack + 'BTNLS1 ' - Me.ComboBoxHypnoGenTrack.FormattingEnabled = True - Me.ComboBoxHypnoGenTrack.Items.AddRange(New Object() {"Silence"}) - Me.ComboBoxHypnoGenTrack.Location = New System.Drawing.Point(16, 311) - Me.ComboBoxHypnoGenTrack.Name = "ComboBoxHypnoGenTrack" - Me.ComboBoxHypnoGenTrack.Size = New System.Drawing.Size(210, 21) - Me.ComboBoxHypnoGenTrack.TabIndex = 111 - Me.ComboBoxHypnoGenTrack.Text = "Silence" + Me.BTNLS1.BackColor = System.Drawing.Color.White + Me.BTNLS1.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS1.FlatAppearance.BorderSize = 2 + Me.BTNLS1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLS1.ForeColor = System.Drawing.Color.Black + Me.BTNLS1.Location = New System.Drawing.Point(13, 441) + Me.BTNLS1.Name = "BTNLS1" + Me.BTNLS1.Size = New System.Drawing.Size(163, 31) + Me.BTNLS1.TabIndex = 108 + Me.BTNLS1.Text = "Custom 1" + Me.BTNLS1.UseVisualStyleBackColor = False ' - 'LBLBackTrack + 'BTNEdge ' - Me.LBLBackTrack.AutoSize = True - Me.LBLBackTrack.BackColor = System.Drawing.Color.Transparent - Me.LBLBackTrack.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLBackTrack.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLBackTrack.Location = New System.Drawing.Point(15, 293) - Me.LBLBackTrack.Name = "LBLBackTrack" - Me.LBLBackTrack.Size = New System.Drawing.Size(129, 13) - Me.LBLBackTrack.TabIndex = 110 - Me.LBLBackTrack.Text = "Select Background Track" + Me.BTNEdge.BackColor = System.Drawing.Color.White + Me.BTNEdge.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNEdge.FlatAppearance.BorderSize = 2 + Me.BTNEdge.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNEdge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNEdge.ForeColor = System.Drawing.Color.Black + Me.BTNEdge.Location = New System.Drawing.Point(13, 78) + Me.BTNEdge.Name = "BTNEdge" + Me.BTNEdge.Size = New System.Drawing.Size(214, 31) + Me.BTNEdge.TabIndex = 108 + Me.BTNEdge.Text = "On the edge!" + Me.BTNEdge.UseVisualStyleBackColor = False ' - 'CBHypnoGenNoText + 'BTNSpeedUp ' - Me.CBHypnoGenNoText.AutoSize = True - Me.CBHypnoGenNoText.BackColor = System.Drawing.Color.Transparent - Me.CBHypnoGenNoText.Checked = True - Me.CBHypnoGenNoText.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBHypnoGenNoText.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBHypnoGenNoText.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.CBHypnoGenNoText.Location = New System.Drawing.Point(16, 338) - Me.CBHypnoGenNoText.Name = "CBHypnoGenNoText" - Me.CBHypnoGenNoText.Size = New System.Drawing.Size(202, 17) - Me.CBHypnoGenNoText.TabIndex = 109 - Me.CBHypnoGenNoText.Text = "Disable Domme Text in Chat Window" - Me.CBHypnoGenNoText.UseVisualStyleBackColor = False + Me.BTNSpeedUp.BackColor = System.Drawing.Color.White + Me.BTNSpeedUp.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNSpeedUp.FlatAppearance.BorderSize = 2 + Me.BTNSpeedUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNSpeedUp.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNSpeedUp.ForeColor = System.Drawing.Color.Black + Me.BTNSpeedUp.Location = New System.Drawing.Point(13, 145) + Me.BTNSpeedUp.Name = "BTNSpeedUp" + Me.BTNSpeedUp.Size = New System.Drawing.Size(99, 31) + Me.BTNSpeedUp.TabIndex = 109 + Me.BTNSpeedUp.Text = "Speed up!" + Me.BTNSpeedUp.UseVisualStyleBackColor = False ' - 'TBHypnoGenImageTag + 'BTNLS1Edit ' - Me.TBHypnoGenImageTag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TBHypnoGenImageTag.Location = New System.Drawing.Point(83, 266) - Me.TBHypnoGenImageTag.Name = "TBHypnoGenImageTag" - Me.TBHypnoGenImageTag.Size = New System.Drawing.Size(143, 20) - Me.TBHypnoGenImageTag.TabIndex = 108 + Me.BTNLS1Edit.BackColor = System.Drawing.Color.White + Me.BTNLS1Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS1Edit.FlatAppearance.BorderSize = 2 + Me.BTNLS1Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS1Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNLS1Edit.ForeColor = System.Drawing.Color.Black + Me.BTNLS1Edit.Location = New System.Drawing.Point(190, 441) + Me.BTNLS1Edit.Name = "BTNLS1Edit" + Me.BTNLS1Edit.Size = New System.Drawing.Size(36, 31) + Me.BTNLS1Edit.TabIndex = 117 + Me.BTNLS1Edit.Text = "!" + Me.BTNLS1Edit.UseVisualStyleBackColor = False ' - 'LBLHypnoImageTag + 'BTNLS4Edit ' - Me.LBLHypnoImageTag.AutoSize = True - Me.LBLHypnoImageTag.BackColor = System.Drawing.Color.Transparent - Me.LBLHypnoImageTag.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLHypnoImageTag.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLHypnoImageTag.Location = New System.Drawing.Point(15, 270) - Me.LBLHypnoImageTag.Name = "LBLHypnoImageTag" - Me.LBLHypnoImageTag.Size = New System.Drawing.Size(61, 13) - Me.LBLHypnoImageTag.TabIndex = 107 - Me.LBLHypnoImageTag.Text = "Image Tag:" + Me.BTNLS4Edit.BackColor = System.Drawing.Color.White + Me.BTNLS4Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS4Edit.FlatAppearance.BorderSize = 2 + Me.BTNLS4Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS4Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNLS4Edit.ForeColor = System.Drawing.Color.Black + Me.BTNLS4Edit.Location = New System.Drawing.Point(190, 555) + Me.BTNLS4Edit.Name = "BTNLS4Edit" + Me.BTNLS4Edit.Size = New System.Drawing.Size(36, 31) + Me.BTNLS4Edit.TabIndex = 126 + Me.BTNLS4Edit.Text = "!" + Me.BTNLS4Edit.UseVisualStyleBackColor = False ' - 'LBHypnoGenSlideshow + 'BTNLS3Edit ' - Me.LBHypnoGenSlideshow.Enabled = False - Me.LBHypnoGenSlideshow.FormattingEnabled = True - Me.LBHypnoGenSlideshow.Items.AddRange(New Object() {"Boobs", "Butts", "Hardcore", "Softcore", "Lesbian", "Blowjob", "Femdom", "Hentai", "Gay", "Maledom", "Captions", "General", "Tagged"}) - Me.LBHypnoGenSlideshow.Location = New System.Drawing.Point(16, 206) - Me.LBHypnoGenSlideshow.Name = "LBHypnoGenSlideshow" - Me.LBHypnoGenSlideshow.Size = New System.Drawing.Size(210, 56) - Me.LBHypnoGenSlideshow.TabIndex = 106 + Me.BTNLS3Edit.BackColor = System.Drawing.Color.White + Me.BTNLS3Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS3Edit.FlatAppearance.BorderSize = 2 + Me.BTNLS3Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS3Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNLS3Edit.ForeColor = System.Drawing.Color.Black + Me.BTNLS3Edit.Location = New System.Drawing.Point(190, 517) + Me.BTNLS3Edit.Name = "BTNLS3Edit" + Me.BTNLS3Edit.Size = New System.Drawing.Size(36, 31) + Me.BTNLS3Edit.TabIndex = 123 + Me.BTNLS3Edit.Text = "!" + Me.BTNLS3Edit.UseVisualStyleBackColor = False ' - 'CBHypnoGenSlideshow + 'BTNLS2 ' - Me.CBHypnoGenSlideshow.AutoSize = True - Me.CBHypnoGenSlideshow.BackColor = System.Drawing.Color.Transparent - Me.CBHypnoGenSlideshow.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBHypnoGenSlideshow.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.CBHypnoGenSlideshow.Location = New System.Drawing.Point(16, 187) - Me.CBHypnoGenSlideshow.Name = "CBHypnoGenSlideshow" - Me.CBHypnoGenSlideshow.Size = New System.Drawing.Size(97, 17) - Me.CBHypnoGenSlideshow.TabIndex = 105 - Me.CBHypnoGenSlideshow.Text = "Play Slideshow" - Me.CBHypnoGenSlideshow.UseVisualStyleBackColor = False + Me.BTNLS2.BackColor = System.Drawing.Color.White + Me.BTNLS2.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS2.FlatAppearance.BorderSize = 2 + Me.BTNLS2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLS2.ForeColor = System.Drawing.Color.Black + Me.BTNLS2.Location = New System.Drawing.Point(13, 479) + Me.BTNLS2.Name = "BTNLS2" + Me.BTNLS2.Size = New System.Drawing.Size(163, 31) + Me.BTNLS2.TabIndex = 118 + Me.BTNLS2.Text = "Custom 2" + Me.BTNLS2.UseVisualStyleBackColor = False ' - 'LBHypnoGen + 'BTNLS2Edit ' - Me.LBHypnoGen.FormattingEnabled = True - Me.LBHypnoGen.Location = New System.Drawing.Point(16, 100) - Me.LBHypnoGen.Name = "LBHypnoGen" - Me.LBHypnoGen.Size = New System.Drawing.Size(210, 82) - Me.LBHypnoGen.TabIndex = 104 + Me.BTNLS2Edit.BackColor = System.Drawing.Color.White + Me.BTNLS2Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS2Edit.FlatAppearance.BorderSize = 2 + Me.BTNLS2Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS2Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNLS2Edit.ForeColor = System.Drawing.Color.Black + Me.BTNLS2Edit.Location = New System.Drawing.Point(190, 479) + Me.BTNLS2Edit.Name = "BTNLS2Edit" + Me.BTNLS2Edit.Size = New System.Drawing.Size(36, 31) + Me.BTNLS2Edit.TabIndex = 120 + Me.BTNLS2Edit.Text = "!" + Me.BTNLS2Edit.UseVisualStyleBackColor = False ' - 'LBLHypnoFile + 'BTNLS5Edit ' - Me.LBLHypnoFile.AutoSize = True - Me.LBLHypnoFile.BackColor = System.Drawing.Color.Transparent - Me.LBLHypnoFile.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLHypnoFile.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLHypnoFile.Location = New System.Drawing.Point(13, 83) - Me.LBLHypnoFile.Name = "LBLHypnoFile" - Me.LBLHypnoFile.Size = New System.Drawing.Size(90, 13) - Me.LBLHypnoFile.TabIndex = 103 - Me.LBLHypnoFile.Text = "Select Hypno File" + Me.BTNLS5Edit.BackColor = System.Drawing.Color.White + Me.BTNLS5Edit.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS5Edit.FlatAppearance.BorderSize = 2 + Me.BTNLS5Edit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS5Edit.Font = New System.Drawing.Font("Wingdings", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNLS5Edit.ForeColor = System.Drawing.Color.Black + Me.BTNLS5Edit.Location = New System.Drawing.Point(190, 593) + Me.BTNLS5Edit.Name = "BTNLS5Edit" + Me.BTNLS5Edit.Size = New System.Drawing.Size(36, 31) + Me.BTNLS5Edit.TabIndex = 129 + Me.BTNLS5Edit.Text = "!" + Me.BTNLS5Edit.UseVisualStyleBackColor = False ' - 'LBHypnoGenInduction + 'BTNLS3 ' - Me.LBHypnoGenInduction.Enabled = False - Me.LBHypnoGenInduction.FormattingEnabled = True - Me.LBHypnoGenInduction.Location = New System.Drawing.Point(16, 22) - Me.LBHypnoGenInduction.Name = "LBHypnoGenInduction" - Me.LBHypnoGenInduction.Size = New System.Drawing.Size(210, 56) - Me.LBHypnoGenInduction.TabIndex = 102 + Me.BTNLS3.BackColor = System.Drawing.Color.White + Me.BTNLS3.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS3.FlatAppearance.BorderSize = 2 + Me.BTNLS3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLS3.ForeColor = System.Drawing.Color.Black + Me.BTNLS3.Location = New System.Drawing.Point(13, 517) + Me.BTNLS3.Name = "BTNLS3" + Me.BTNLS3.Size = New System.Drawing.Size(163, 31) + Me.BTNLS3.TabIndex = 121 + Me.BTNLS3.Text = "Custom 3" + Me.BTNLS3.UseVisualStyleBackColor = False ' - 'CBHypnoGenInduction + 'BTNLS4 ' - Me.CBHypnoGenInduction.AutoSize = True - Me.CBHypnoGenInduction.BackColor = System.Drawing.Color.Transparent - Me.CBHypnoGenInduction.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBHypnoGenInduction.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.CBHypnoGenInduction.Location = New System.Drawing.Point(16, 4) - Me.CBHypnoGenInduction.Name = "CBHypnoGenInduction" - Me.CBHypnoGenInduction.Size = New System.Drawing.Size(92, 17) - Me.CBHypnoGenInduction.TabIndex = 101 - Me.CBHypnoGenInduction.Text = "Use Induction" - Me.CBHypnoGenInduction.UseVisualStyleBackColor = False + Me.BTNLS4.BackColor = System.Drawing.Color.White + Me.BTNLS4.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS4.FlatAppearance.BorderSize = 2 + Me.BTNLS4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLS4.ForeColor = System.Drawing.Color.Black + Me.BTNLS4.Location = New System.Drawing.Point(13, 555) + Me.BTNLS4.Name = "BTNLS4" + Me.BTNLS4.Size = New System.Drawing.Size(163, 31) + Me.BTNLS4.TabIndex = 124 + Me.BTNLS4.Text = "Custom 4" + Me.BTNLS4.UseVisualStyleBackColor = False ' - 'CBHypnoGenPhase + 'BTNLS5 ' - Me.CBHypnoGenPhase.AutoSize = True - Me.CBHypnoGenPhase.BackColor = System.Drawing.Color.Transparent - Me.CBHypnoGenPhase.Checked = True - Me.CBHypnoGenPhase.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBHypnoGenPhase.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBHypnoGenPhase.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.CBHypnoGenPhase.Location = New System.Drawing.Point(16, 360) - Me.CBHypnoGenPhase.Name = "CBHypnoGenPhase" - Me.CBHypnoGenPhase.Size = New System.Drawing.Size(197, 17) - Me.CBHypnoGenPhase.TabIndex = 100 - Me.CBHypnoGenPhase.Text = "Apply Phase Effect to Domme Voice" - Me.CBHypnoGenPhase.UseVisualStyleBackColor = False + Me.BTNLS5.BackColor = System.Drawing.Color.White + Me.BTNLS5.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.BTNLS5.FlatAppearance.BorderSize = 2 + Me.BTNLS5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLS5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLS5.ForeColor = System.Drawing.Color.Black + Me.BTNLS5.Location = New System.Drawing.Point(13, 593) + Me.BTNLS5.Name = "BTNLS5" + Me.BTNLS5.Size = New System.Drawing.Size(163, 31) + Me.BTNLS5.TabIndex = 127 + Me.BTNLS5.Text = "Custom 5" + Me.BTNLS5.UseVisualStyleBackColor = False ' - 'BTNHypnoGenStart + 'PnlGlitter ' - Me.BTNHypnoGenStart.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNHypnoGenStart.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNHypnoGenStart.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNHypnoGenStart.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNHypnoGenStart.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNHypnoGenStart.Location = New System.Drawing.Point(16, 383) - Me.BTNHypnoGenStart.Name = "BTNHypnoGenStart" - Me.BTNHypnoGenStart.Size = New System.Drawing.Size(210, 23) - Me.BTNHypnoGenStart.TabIndex = 0 - Me.BTNHypnoGenStart.Text = "Guide Me!" - Me.BTNHypnoGenStart.UseVisualStyleBackColor = False + Me.PnlGlitter.Controls.Add(Me.StatusUpdates) + Me.PnlGlitter.Dock = System.Windows.Forms.DockStyle.Fill + Me.PnlGlitter.Location = New System.Drawing.Point(0, 0) + Me.PnlGlitter.Name = "PnlGlitter" + Me.PnlGlitter.Size = New System.Drawing.Size(240, 619) + Me.PnlGlitter.TabIndex = 783 ' - 'PNLWishList + 'PnlSidechat ' - Me.PNLWishList.BackColor = System.Drawing.Color.White - Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) - Me.PNLWishList.Controls.Add(Me.LBLWishlistDate) - Me.PNLWishList.Controls.Add(Me.BTNWishlist) - Me.PNLWishList.Controls.Add(Me.LBLWishListText) - Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) - Me.PNLWishList.Controls.Add(Me.WishlistCostGold) - Me.PNLWishList.Controls.Add(Me.PNLWishlistTokenBack) - Me.PNLWishList.Controls.Add(Me.LBLWishListName) - Me.PNLWishList.Controls.Add(Me.PNLWishlistHeader) - Me.PNLWishList.Controls.Add(Me.WishlistPreview) - Me.PNLWishList.Dock = System.Windows.Forms.DockStyle.Fill - Me.PNLWishList.Location = New System.Drawing.Point(0, 0) - Me.PNLWishList.Name = "PNLWishList" - Me.PNLWishList.Size = New System.Drawing.Size(240, 633) - Me.PNLWishList.TabIndex = 775 - Me.PNLWishList.Visible = False + Me.PnlSidechat.Controls.Add(Me.ChatText2) + Me.PnlSidechat.Controls.Add(Me.PNLChatBox2) + Me.PnlSidechat.Dock = System.Windows.Forms.DockStyle.Fill + Me.PnlSidechat.Location = New System.Drawing.Point(0, 0) + Me.PnlSidechat.Name = "PnlSidechat" + Me.PnlSidechat.Size = New System.Drawing.Size(240, 619) + Me.PnlSidechat.TabIndex = 782 ' - 'WishlistCostSilver + 'ChatText2 ' - Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent - Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"), System.Drawing.Image) - Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 251) - Me.WishlistCostSilver.Name = "WishlistCostSilver" - Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) - Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.WishlistCostSilver.TabIndex = 111 - Me.WishlistCostSilver.TabStop = False - Me.WishlistCostSilver.Visible = False + Me.ChatText2.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChatText2.Location = New System.Drawing.Point(0, 0) + Me.ChatText2.MinimumSize = New System.Drawing.Size(20, 20) + Me.ChatText2.Name = "ChatText2" + Me.ChatText2.Size = New System.Drawing.Size(240, 591) + Me.ChatText2.TabIndex = 781 ' - 'LBLWishlistDate + 'PNLChatBox2 ' - Me.LBLWishlistDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistDate.ForeColor = System.Drawing.Color.Black - Me.LBLWishlistDate.Location = New System.Drawing.Point(14, 42) - Me.LBLWishlistDate.Name = "LBLWishlistDate" - Me.LBLWishlistDate.Size = New System.Drawing.Size(220, 23) - Me.LBLWishlistDate.TabIndex = 110 - Me.LBLWishlistDate.Text = "04/09/2015" - Me.LBLWishlistDate.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.PNLChatBox2.BackColor = System.Drawing.Color.Transparent + Me.PNLChatBox2.Controls.Add(Me.ChatBox2) + Me.PNLChatBox2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.PNLChatBox2.Location = New System.Drawing.Point(0, 591) + Me.PNLChatBox2.Name = "PNLChatBox2" + Me.PNLChatBox2.Padding = New System.Windows.Forms.Padding(2) + Me.PNLChatBox2.Size = New System.Drawing.Size(240, 28) + Me.PNLChatBox2.TabIndex = 779 ' - 'BTNWishlist + 'ChatBox2 ' - Me.BTNWishlist.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.BTNWishlist.Location = New System.Drawing.Point(11, 560) - Me.BTNWishlist.Name = "BTNWishlist" - Me.BTNWishlist.Size = New System.Drawing.Size(221, 23) - Me.BTNWishlist.TabIndex = 109 - Me.BTNWishlist.UseVisualStyleBackColor = True + Me.ChatBox2.AllowDrop = True + Me.ChatBox2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ChatBox2.Location = New System.Drawing.Point(2, 6) + Me.ChatBox2.Name = "ChatBox2" + Me.ChatBox2.Size = New System.Drawing.Size(236, 20) + Me.ChatBox2.TabIndex = 1 ' - 'LBLWishListText + 'PNLWritingTask ' - Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishListText.Location = New System.Drawing.Point(14, 286) - Me.LBLWishListText.Name = "LBLWishListText" - Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) - Me.LBLWishListText.TabIndex = 108 - Me.LBLWishListText.Text = "This is something I really want, let me tell you all about why I want it, you sho" & - "uld buy it for me because you know you like buying stuff for me. " + Me.PNLWritingTask.BackColor = System.Drawing.Color.Transparent + Me.PNLWritingTask.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.PNLWritingTask.Controls.Add(Me.CBWritingProgress) + Me.PNLWritingTask.Controls.Add(Me.Button15) + Me.PNLWritingTask.Controls.Add(Me.Button1) + Me.PNLWritingTask.Controls.Add(Me.Label76) + Me.PNLWritingTask.Controls.Add(Me.LBLMistakesMade) + Me.PNLWritingTask.Controls.Add(Me.LNLMistakesMade) + Me.PNLWritingTask.Controls.Add(Me.LBLMistakesAllowed) + Me.PNLWritingTask.Controls.Add(Me.Label74) + Me.PNLWritingTask.Controls.Add(Me.LBLLinesRemaining) + Me.PNLWritingTask.Controls.Add(Me.Label15) + Me.PNLWritingTask.Controls.Add(Me.LBLWritingTaskText) + Me.PNLWritingTask.Controls.Add(Me.LBLWritingTask) + Me.PNLWritingTask.Controls.Add(Me.LBLLinesWritten) + Me.PNLWritingTask.Dock = System.Windows.Forms.DockStyle.Fill + Me.PNLWritingTask.Location = New System.Drawing.Point(0, 0) + Me.PNLWritingTask.Name = "PNLWritingTask" + Me.PNLWritingTask.Size = New System.Drawing.Size(240, 619) + Me.PNLWritingTask.TabIndex = 774 ' - 'LBLWishlistCost + 'CBWritingProgress ' - Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black - Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 251) - Me.LBLWishlistCost.Name = "LBLWishlistCost" - Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) - Me.LBLWishlistCost.TabIndex = 107 - Me.LBLWishlistCost.Text = "3" - Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.CBWritingProgress.AutoSize = True + Me.CBWritingProgress.Checked = Global.Tease_AI.My.MySettings.Default.WritingProgress + Me.CBWritingProgress.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBWritingProgress.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "WritingProgress", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBWritingProgress.ForeColor = System.Drawing.Color.White + Me.CBWritingProgress.Location = New System.Drawing.Point(9, 241) + Me.CBWritingProgress.Name = "CBWritingProgress" + Me.CBWritingProgress.Size = New System.Drawing.Size(182, 17) + Me.CBWritingProgress.TabIndex = 139 + Me.CBWritingProgress.Text = "Display Progress in Chat Window" + Me.CBWritingProgress.UseVisualStyleBackColor = True ' - 'WishlistCostGold + 'Button15 ' - Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent - Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"), System.Drawing.Image) - Me.WishlistCostGold.Location = New System.Drawing.Point(107, 251) - Me.WishlistCostGold.Name = "WishlistCostGold" - Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) - Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.WishlistCostGold.TabIndex = 106 - Me.WishlistCostGold.TabStop = False - Me.WishlistCostGold.Visible = False + Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button15.ForeColor = System.Drawing.Color.White + Me.Button15.Location = New System.Drawing.Point(8, 266) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(228, 28) + Me.Button15.TabIndex = 138 + Me.Button15.Text = "Close This Window and Open Side Chat" + Me.Button15.UseVisualStyleBackColor = True ' - 'PNLWishlistTokenBack + 'Button1 ' - Me.PNLWishlistTokenBack.BackColor = System.Drawing.Color.CornflowerBlue - Me.PNLWishlistTokenBack.Controls.Add(Me.LBLWishlistSilver) - Me.PNLWishlistTokenBack.Controls.Add(Me.PictureBox6) - Me.PNLWishlistTokenBack.Controls.Add(Me.LBLWishlistBronze) - Me.PNLWishlistTokenBack.Controls.Add(Me.PictureBox5) - Me.PNLWishlistTokenBack.Controls.Add(Me.LBLWishlistGold) - Me.PNLWishlistTokenBack.Controls.Add(Me.PictureBox4) - Me.PNLWishlistTokenBack.Dock = System.Windows.Forms.DockStyle.Bottom - Me.PNLWishlistTokenBack.Location = New System.Drawing.Point(0, 589) - Me.PNLWishlistTokenBack.Name = "PNLWishlistTokenBack" - Me.PNLWishlistTokenBack.Size = New System.Drawing.Size(240, 44) - Me.PNLWishlistTokenBack.TabIndex = 105 + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.White + Me.Button1.Location = New System.Drawing.Point(8, 300) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(228, 28) + Me.Button1.TabIndex = 137 + Me.Button1.Text = "Perform Random Writing Task" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label76 + ' + Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label76.ForeColor = System.Drawing.Color.White + Me.Label76.Location = New System.Drawing.Point(8, 187) + Me.Label76.Name = "Label76" + Me.Label76.Size = New System.Drawing.Size(108, 17) + Me.Label76.TabIndex = 136 + Me.Label76.Text = "Mistakes Allowed" + Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'LBLWishlistSilver + 'LBLMistakesMade ' - Me.LBLWishlistSilver.BackColor = System.Drawing.Color.Transparent - Me.LBLWishlistSilver.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistSilver.ForeColor = System.Drawing.Color.White - Me.LBLWishlistSilver.Location = New System.Drawing.Point(121, 5) - Me.LBLWishlistSilver.Name = "LBLWishlistSilver" - Me.LBLWishlistSilver.Size = New System.Drawing.Size(44, 28) - Me.LBLWishlistSilver.TabIndex = 17 - Me.LBLWishlistSilver.Text = "100" - Me.LBLWishlistSilver.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.LBLMistakesMade.BackColor = System.Drawing.Color.White + Me.LBLMistakesMade.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLMistakesMade.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLMistakesMade.ForeColor = System.Drawing.Color.Black + Me.LBLMistakesMade.Location = New System.Drawing.Point(126, 206) + Me.LBLMistakesMade.Name = "LBLMistakesMade" + Me.LBLMistakesMade.Size = New System.Drawing.Size(108, 24) + Me.LBLMistakesMade.TabIndex = 135 + Me.LBLMistakesMade.Text = "1000" + Me.LBLMistakesMade.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'PictureBox6 + 'LNLMistakesMade ' - Me.PictureBox6.BackColor = System.Drawing.Color.Transparent - Me.PictureBox6.Image = CType(resources.GetObject("PictureBox6.Image"), System.Drawing.Image) - Me.PictureBox6.Location = New System.Drawing.Point(89, 5) - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.Size = New System.Drawing.Size(28, 28) - Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PictureBox6.TabIndex = 16 - Me.PictureBox6.TabStop = False + Me.LNLMistakesMade.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LNLMistakesMade.ForeColor = System.Drawing.Color.White + Me.LNLMistakesMade.Location = New System.Drawing.Point(126, 187) + Me.LNLMistakesMade.Name = "LNLMistakesMade" + Me.LNLMistakesMade.Size = New System.Drawing.Size(108, 17) + Me.LNLMistakesMade.TabIndex = 134 + Me.LNLMistakesMade.Text = "Mistakes Made" + Me.LNLMistakesMade.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'LBLWishlistBronze + 'LBLMistakesAllowed ' - Me.LBLWishlistBronze.BackColor = System.Drawing.Color.Transparent - Me.LBLWishlistBronze.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistBronze.ForeColor = System.Drawing.Color.White - Me.LBLWishlistBronze.Location = New System.Drawing.Point(38, 5) - Me.LBLWishlistBronze.Name = "LBLWishlistBronze" - Me.LBLWishlistBronze.Size = New System.Drawing.Size(44, 28) - Me.LBLWishlistBronze.TabIndex = 15 - Me.LBLWishlistBronze.Text = "100" - Me.LBLWishlistBronze.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.LBLMistakesAllowed.BackColor = System.Drawing.Color.White + Me.LBLMistakesAllowed.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLMistakesAllowed.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLMistakesAllowed.ForeColor = System.Drawing.Color.Black + Me.LBLMistakesAllowed.Location = New System.Drawing.Point(8, 206) + Me.LBLMistakesAllowed.Name = "LBLMistakesAllowed" + Me.LBLMistakesAllowed.Size = New System.Drawing.Size(108, 24) + Me.LBLMistakesAllowed.TabIndex = 133 + Me.LBLMistakesAllowed.Text = "1000" + Me.LBLMistakesAllowed.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'PictureBox5 + 'Label74 ' - Me.PictureBox5.BackColor = System.Drawing.Color.Transparent - Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Image) - Me.PictureBox5.Location = New System.Drawing.Point(6, 5) - Me.PictureBox5.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(28, 28) - Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PictureBox5.TabIndex = 14 - Me.PictureBox5.TabStop = False + Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label74.ForeColor = System.Drawing.Color.White + Me.Label74.Location = New System.Drawing.Point(126, 139) + Me.Label74.Name = "Label74" + Me.Label74.Size = New System.Drawing.Size(108, 17) + Me.Label74.TabIndex = 132 + Me.Label74.Text = "Lines Remaining" + Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'LBLWishlistGold + 'LBLLinesRemaining ' - Me.LBLWishlistGold.BackColor = System.Drawing.Color.Transparent - Me.LBLWishlistGold.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistGold.ForeColor = System.Drawing.Color.White - Me.LBLWishlistGold.Location = New System.Drawing.Point(199, 5) - Me.LBLWishlistGold.Name = "LBLWishlistGold" - Me.LBLWishlistGold.Size = New System.Drawing.Size(44, 28) - Me.LBLWishlistGold.TabIndex = 13 - Me.LBLWishlistGold.Text = "100" - Me.LBLWishlistGold.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.LBLLinesRemaining.BackColor = System.Drawing.Color.White + Me.LBLLinesRemaining.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLLinesRemaining.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLLinesRemaining.ForeColor = System.Drawing.Color.Black + Me.LBLLinesRemaining.Location = New System.Drawing.Point(126, 158) + Me.LBLLinesRemaining.Name = "LBLLinesRemaining" + Me.LBLLinesRemaining.Size = New System.Drawing.Size(108, 24) + Me.LBLLinesRemaining.TabIndex = 131 + Me.LBLLinesRemaining.Text = "1000" + Me.LBLLinesRemaining.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'PictureBox4 + 'Label15 ' - Me.PictureBox4.BackColor = System.Drawing.Color.Transparent - Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image) - Me.PictureBox4.Location = New System.Drawing.Point(167, 5) - Me.PictureBox4.Name = "PictureBox4" - Me.PictureBox4.Size = New System.Drawing.Size(28, 28) - Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PictureBox4.TabIndex = 12 - Me.PictureBox4.TabStop = False + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(8, 139) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(108, 17) + Me.Label15.TabIndex = 130 + Me.Label15.Text = "Lines Written" + Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'LBLWishListName + 'LBLWritingTaskText ' - Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue - Me.LBLWishListName.Location = New System.Drawing.Point(14, 69) - Me.LBLWishListName.Name = "LBLWishListName" - Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) - Me.LBLWishListName.TabIndex = 104 - Me.LBLWishListName.Text = "Item Name Goes Here" - Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.LBLWritingTaskText.BackColor = System.Drawing.Color.White + Me.LBLWritingTaskText.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLWritingTaskText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWritingTaskText.ForeColor = System.Drawing.Color.Black + Me.LBLWritingTaskText.Location = New System.Drawing.Point(8, 64) + Me.LBLWritingTaskText.Name = "LBLWritingTaskText" + Me.LBLWritingTaskText.Size = New System.Drawing.Size(226, 61) + Me.LBLWritingTaskText.TabIndex = 128 + Me.LBLWritingTaskText.Text = "WritingTask" + Me.LBLWritingTaskText.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'PNLWishlistHeader + 'LBLWritingTask ' - Me.PNLWishlistHeader.BackColor = System.Drawing.Color.CornflowerBlue - Me.PNLWishlistHeader.Controls.Add(Me.LBLWishlistDom) - Me.PNLWishlistHeader.Location = New System.Drawing.Point(-4, -4) - Me.PNLWishlistHeader.Name = "PNLWishlistHeader" - Me.PNLWishlistHeader.Size = New System.Drawing.Size(250, 44) - Me.PNLWishlistHeader.TabIndex = 103 + Me.LBLWritingTask.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWritingTask.ForeColor = System.Drawing.Color.White + Me.LBLWritingTask.Location = New System.Drawing.Point(0, 3) + Me.LBLWritingTask.Name = "LBLWritingTask" + Me.LBLWritingTask.Size = New System.Drawing.Size(245, 54) + Me.LBLWritingTask.TabIndex = 125 + Me.LBLWritingTask.Text = "Write the following line 100 times:" + Me.LBLWritingTask.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'LBLWishlistDom + 'LBLLinesWritten ' - Me.LBLWishlistDom.BackColor = System.Drawing.Color.Transparent - Me.LBLWishlistDom.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistDom.ForeColor = System.Drawing.Color.White - Me.LBLWishlistDom.Location = New System.Drawing.Point(14, 14) - Me.LBLWishlistDom.Name = "LBLWishlistDom" - Me.LBLWishlistDom.Size = New System.Drawing.Size(223, 16) - Me.LBLWishlistDom.TabIndex = 102 - Me.LBLWishlistDom.Text = "Domme Name's Wishlist" - Me.LBLWishlistDom.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.LBLLinesWritten.BackColor = System.Drawing.Color.White + Me.LBLLinesWritten.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLLinesWritten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLLinesWritten.ForeColor = System.Drawing.Color.Black + Me.LBLLinesWritten.Location = New System.Drawing.Point(8, 158) + Me.LBLLinesWritten.Name = "LBLLinesWritten" + Me.LBLLinesWritten.Size = New System.Drawing.Size(108, 24) + Me.LBLLinesWritten.TabIndex = 129 + Me.LBLLinesWritten.Text = "1000" + Me.LBLLinesWritten.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'WishlistPreview + 'PNLAppRandomizer ' - Me.WishlistPreview.ImageLocation = "" - Me.WishlistPreview.Location = New System.Drawing.Point(49, 101) - Me.WishlistPreview.Name = "WishlistPreview" - Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) - Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.WishlistPreview.TabIndex = 101 - Me.WishlistPreview.TabStop = False + Me.PNLAppRandomizer.BackColor = System.Drawing.Color.Transparent + Me.PNLAppRandomizer.Controls.Add(Me.Button12) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomLocal) + Me.PNLAppRandomizer.Controls.Add(Me.Label20) + Me.PNLAppRandomizer.Controls.Add(Me.Label19) + Me.PNLAppRandomizer.Controls.Add(Me.Label18) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomRLGL) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomAtE) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomCS) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomCH) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomJOI) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomVideo) + Me.PNLAppRandomizer.Controls.Add(Me.BTNRandomBlog) + Me.PNLAppRandomizer.Dock = System.Windows.Forms.DockStyle.Fill + Me.PNLAppRandomizer.Location = New System.Drawing.Point(0, 0) + Me.PNLAppRandomizer.Name = "PNLAppRandomizer" + Me.PNLAppRandomizer.Size = New System.Drawing.Size(240, 619) + Me.PNLAppRandomizer.TabIndex = 772 + Me.PNLAppRandomizer.Visible = False ' - 'PNLMetronome + 'Button12 ' - Me.PNLMetronome.BackColor = System.Drawing.Color.Transparent - Me.PNLMetronome.Controls.Add(Me.BTNMetroStop2) - Me.PNLMetronome.Controls.Add(Me.BTNMetroStop1) - Me.PNLMetronome.Controls.Add(Me.BTNMetroPreview2) - Me.PNLMetronome.Controls.Add(Me.BTNMetroPreview1) - Me.PNLMetronome.Controls.Add(Me.LBLHigh) - Me.PNLMetronome.Controls.Add(Me.NBMinPace) - Me.PNLMetronome.Controls.Add(Me.LBLMinSpeed) - Me.PNLMetronome.Controls.Add(Me.LBLLow) - Me.PNLMetronome.Controls.Add(Me.NBMaxPace) - Me.PNLMetronome.Controls.Add(Me.LBLMaxSpeed) - Me.PNLMetronome.Controls.Add(Me.CBMetronome) - Me.PNLMetronome.Location = New System.Drawing.Point(2, 2) - Me.PNLMetronome.Name = "PNLMetronome" - Me.PNLMetronome.Size = New System.Drawing.Size(245, 167) - Me.PNLMetronome.TabIndex = 779 + Me.Button12.Location = New System.Drawing.Point(83, 382) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(75, 23) + Me.Button12.TabIndex = 12 + Me.Button12.Text = "Button12" + Me.Button12.UseVisualStyleBackColor = True + Me.Button12.Visible = False ' - 'BTNMetroStop2 + 'BTNRandomLocal ' - Me.BTNMetroStop2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNMetroStop2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroStop2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroStop2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNMetroStop2.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNMetroStop2.Location = New System.Drawing.Point(85, 119) - Me.BTNMetroStop2.Name = "BTNMetroStop2" - Me.BTNMetroStop2.Size = New System.Drawing.Size(41, 23) - Me.BTNMetroStop2.TabIndex = 10 - Me.BTNMetroStop2.Text = "Stop" - Me.BTNMetroStop2.UseVisualStyleBackColor = False + Me.BTNRandomLocal.BackColor = System.Drawing.Color.White + Me.BTNRandomLocal.FlatAppearance.BorderSize = 2 + Me.BTNRandomLocal.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomLocal.ForeColor = System.Drawing.Color.Black + Me.BTNRandomLocal.Location = New System.Drawing.Point(6, 66) + Me.BTNRandomLocal.Name = "BTNRandomLocal" + Me.BTNRandomLocal.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomLocal.TabIndex = 11 + Me.BTNRandomLocal.Text = "Local Image" + Me.BTNRandomLocal.UseVisualStyleBackColor = False ' - 'BTNMetroStop1 + 'Label20 ' - Me.BTNMetroStop1.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNMetroStop1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroStop1.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroStop1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNMetroStop1.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNMetroStop1.Location = New System.Drawing.Point(85, 64) - Me.BTNMetroStop1.Name = "BTNMetroStop1" - Me.BTNMetroStop1.Size = New System.Drawing.Size(41, 23) - Me.BTNMetroStop1.TabIndex = 9 - Me.BTNMetroStop1.Text = "Stop" - Me.BTNMetroStop1.UseVisualStyleBackColor = False + Me.Label20.BackColor = System.Drawing.Color.Transparent + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.ForeColor = System.Drawing.Color.White + Me.Label20.Location = New System.Drawing.Point(-2, -3) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(245, 28) + Me.Label20.TabIndex = 10 + Me.Label20.Text = "Media" + Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'BTNMetroPreview2 + 'Label19 ' - Me.BTNMetroPreview2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNMetroPreview2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroPreview2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroPreview2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNMetroPreview2.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNMetroPreview2.Location = New System.Drawing.Point(8, 119) - Me.BTNMetroPreview2.Name = "BTNMetroPreview2" - Me.BTNMetroPreview2.Size = New System.Drawing.Size(70, 23) - Me.BTNMetroPreview2.TabIndex = 8 - Me.BTNMetroPreview2.Text = "Preview" - Me.BTNMetroPreview2.UseVisualStyleBackColor = False + Me.Label19.BackColor = System.Drawing.Color.Transparent + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.ForeColor = System.Drawing.Color.White + Me.Label19.Location = New System.Drawing.Point(-2, 133) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(245, 28) + Me.Label19.TabIndex = 9 + Me.Label19.Text = "Special Videos" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'BTNMetroPreview1 + 'Label18 ' - Me.BTNMetroPreview1.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.BTNMetroPreview1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroPreview1.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BTNMetroPreview1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNMetroPreview1.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.BTNMetroPreview1.Location = New System.Drawing.Point(8, 64) - Me.BTNMetroPreview1.Name = "BTNMetroPreview1" - Me.BTNMetroPreview1.Size = New System.Drawing.Size(70, 23) - Me.BTNMetroPreview1.TabIndex = 7 - Me.BTNMetroPreview1.Text = "Preview" - Me.BTNMetroPreview1.UseVisualStyleBackColor = False + Me.Label18.BackColor = System.Drawing.Color.Transparent + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.ForeColor = System.Drawing.Color.White + Me.Label18.Location = New System.Drawing.Point(-2, 230) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(245, 28) + Me.Label18.TabIndex = 8 + Me.Label18.Text = "Video Teases" + Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'LBLHigh + 'BTNRandomRLGL ' - Me.LBLHigh.BackColor = System.Drawing.Color.Transparent - Me.LBLHigh.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLHigh.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLHigh.Location = New System.Drawing.Point(144, 131) - Me.LBLHigh.Name = "LBLHigh" - Me.LBLHigh.Size = New System.Drawing.Size(92, 18) - Me.LBLHigh.TabIndex = 6 - Me.LBLHigh.Text = "Higher is Slower" - Me.LBLHigh.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.BTNRandomRLGL.BackColor = System.Drawing.Color.White + Me.BTNRandomRLGL.FlatAppearance.BorderSize = 2 + Me.BTNRandomRLGL.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomRLGL.ForeColor = System.Drawing.Color.Black + Me.BTNRandomRLGL.Location = New System.Drawing.Point(6, 338) + Me.BTNRandomRLGL.Name = "BTNRandomRLGL" + Me.BTNRandomRLGL.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomRLGL.TabIndex = 7 + Me.BTNRandomRLGL.Text = "Red Light Green Light" + Me.BTNRandomRLGL.UseVisualStyleBackColor = False ' - 'NBMinPace + 'BTNRandomAtE ' - Me.NBMinPace.Increment = New Decimal(New Integer() {50, 0, 0, 0}) - Me.NBMinPace.Location = New System.Drawing.Point(144, 109) - Me.NBMinPace.Maximum = New Decimal(New Integer() {3000, 0, 0, 0}) - Me.NBMinPace.Minimum = New Decimal(New Integer() {200, 0, 0, 0}) - Me.NBMinPace.Name = "NBMinPace" - Me.NBMinPace.Size = New System.Drawing.Size(92, 20) - Me.NBMinPace.TabIndex = 5 - Me.NBMinPace.Value = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.BTNRandomAtE.BackColor = System.Drawing.Color.White + Me.BTNRandomAtE.FlatAppearance.BorderSize = 2 + Me.BTNRandomAtE.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomAtE.ForeColor = System.Drawing.Color.Black + Me.BTNRandomAtE.Location = New System.Drawing.Point(6, 299) + Me.BTNRandomAtE.Name = "BTNRandomAtE" + Me.BTNRandomAtE.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomAtE.TabIndex = 6 + Me.BTNRandomAtE.Text = "Avoid The Edge" + Me.BTNRandomAtE.UseVisualStyleBackColor = False ' - 'LBLMinSpeed + 'BTNRandomCS ' - Me.LBLMinSpeed.AutoSize = True - Me.LBLMinSpeed.BackColor = System.Drawing.Color.Transparent - Me.LBLMinSpeed.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLMinSpeed.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLMinSpeed.Location = New System.Drawing.Point(8, 99) - Me.LBLMinSpeed.Name = "LBLMinSpeed" - Me.LBLMinSpeed.Size = New System.Drawing.Size(118, 13) - Me.LBLMinSpeed.TabIndex = 4 - Me.LBLMinSpeed.Text = "Minimum Stroking Pace" + Me.BTNRandomCS.BackColor = System.Drawing.Color.White + Me.BTNRandomCS.FlatAppearance.BorderSize = 2 + Me.BTNRandomCS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomCS.ForeColor = System.Drawing.Color.Black + Me.BTNRandomCS.Location = New System.Drawing.Point(6, 260) + Me.BTNRandomCS.Name = "BTNRandomCS" + Me.BTNRandomCS.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomCS.TabIndex = 5 + Me.BTNRandomCS.Text = "Censorship Sucks" + Me.BTNRandomCS.UseVisualStyleBackColor = False ' - 'LBLLow + 'BTNRandomCH ' - Me.LBLLow.BackColor = System.Drawing.Color.Transparent - Me.LBLLow.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLLow.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLLow.Location = New System.Drawing.Point(144, 76) - Me.LBLLow.Name = "LBLLow" - Me.LBLLow.Size = New System.Drawing.Size(92, 16) - Me.LBLLow.TabIndex = 3 - Me.LBLLow.Text = "Lower is Faster" - Me.LBLLow.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.BTNRandomCH.BackColor = System.Drawing.Color.White + Me.BTNRandomCH.FlatAppearance.BorderSize = 2 + Me.BTNRandomCH.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomCH.ForeColor = System.Drawing.Color.Black + Me.BTNRandomCH.Location = New System.Drawing.Point(6, 202) + Me.BTNRandomCH.Name = "BTNRandomCH" + Me.BTNRandomCH.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomCH.TabIndex = 4 + Me.BTNRandomCH.Text = "CH" + Me.BTNRandomCH.UseVisualStyleBackColor = False ' - 'NBMaxPace + 'BTNRandomJOI ' - Me.NBMaxPace.Increment = New Decimal(New Integer() {50, 0, 0, 0}) - Me.NBMaxPace.Location = New System.Drawing.Point(144, 54) - Me.NBMaxPace.Maximum = New Decimal(New Integer() {900, 0, 0, 0}) - Me.NBMaxPace.Minimum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.NBMaxPace.Name = "NBMaxPace" - Me.NBMaxPace.Size = New System.Drawing.Size(92, 20) - Me.NBMaxPace.TabIndex = 2 - Me.NBMaxPace.Value = New Decimal(New Integer() {200, 0, 0, 0}) + Me.BTNRandomJOI.BackColor = System.Drawing.Color.White + Me.BTNRandomJOI.FlatAppearance.BorderSize = 2 + Me.BTNRandomJOI.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomJOI.ForeColor = System.Drawing.Color.Black + Me.BTNRandomJOI.Location = New System.Drawing.Point(6, 163) + Me.BTNRandomJOI.Name = "BTNRandomJOI" + Me.BTNRandomJOI.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomJOI.TabIndex = 3 + Me.BTNRandomJOI.Text = "JOI" + Me.BTNRandomJOI.UseVisualStyleBackColor = False ' - 'LBLMaxSpeed + 'BTNRandomVideo ' - Me.LBLMaxSpeed.AutoSize = True - Me.LBLMaxSpeed.BackColor = System.Drawing.Color.Transparent - Me.LBLMaxSpeed.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLMaxSpeed.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLMaxSpeed.Location = New System.Drawing.Point(8, 45) - Me.LBLMaxSpeed.Name = "LBLMaxSpeed" - Me.LBLMaxSpeed.Size = New System.Drawing.Size(121, 13) - Me.LBLMaxSpeed.TabIndex = 1 - Me.LBLMaxSpeed.Text = "Maximum Stroking Pace" + Me.BTNRandomVideo.BackColor = System.Drawing.Color.White + Me.BTNRandomVideo.FlatAppearance.BorderSize = 2 + Me.BTNRandomVideo.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomVideo.ForeColor = System.Drawing.Color.Black + Me.BTNRandomVideo.Location = New System.Drawing.Point(6, 105) + Me.BTNRandomVideo.Name = "BTNRandomVideo" + Me.BTNRandomVideo.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomVideo.TabIndex = 2 + Me.BTNRandomVideo.Text = "Video" + Me.BTNRandomVideo.UseVisualStyleBackColor = False ' - 'CBMetronome + 'BTNRandomBlog ' - Me.CBMetronome.AutoSize = True - Me.CBMetronome.BackColor = System.Drawing.Color.Transparent - Me.CBMetronome.Checked = True - Me.CBMetronome.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBMetronome.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBMetronome.ForeColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.CBMetronome.Location = New System.Drawing.Point(10, 16) - Me.CBMetronome.Name = "CBMetronome" - Me.CBMetronome.Size = New System.Drawing.Size(115, 17) - Me.CBMetronome.TabIndex = 0 - Me.CBMetronome.Text = "Enable Metronome" - Me.CBMetronome.UseVisualStyleBackColor = False + Me.BTNRandomBlog.BackColor = System.Drawing.Color.White + Me.BTNRandomBlog.FlatAppearance.BorderSize = 2 + Me.BTNRandomBlog.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRandomBlog.ForeColor = System.Drawing.Color.Black + Me.BTNRandomBlog.Location = New System.Drawing.Point(6, 27) + Me.BTNRandomBlog.Name = "BTNRandomBlog" + Me.BTNRandomBlog.Size = New System.Drawing.Size(228, 28) + Me.BTNRandomBlog.TabIndex = 0 + Me.BTNRandomBlog.Text = "Blog Image" + Me.BTNRandomBlog.UseVisualStyleBackColor = False + ' + 'PNLLazySub2 + ' + Me.PNLLazySub2.BackColor = System.Drawing.Color.Transparent + Me.PNLLazySub2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.PNLLazySub2.Location = New System.Drawing.Point(2, 2) + Me.PNLLazySub2.Name = "PNLLazySub2" + Me.PNLLazySub2.Size = New System.Drawing.Size(245, 444) + Me.PNLLazySub2.TabIndex = 780 + Me.PNLLazySub2.Visible = False ' 'PNLPlaylist ' @@ -3955,7 +3955,7 @@ Partial Class Form1 Me.PNLAvatar.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PNLAvatar.Controls.Add(Me.PnlAvatarBackground) Me.PNLAvatar.Dock = System.Windows.Forms.DockStyle.Bottom - Me.PNLAvatar.Location = New System.Drawing.Point(9, 746) + Me.PNLAvatar.Location = New System.Drawing.Point(9, 732) Me.PNLAvatar.Margin = New System.Windows.Forms.Padding(0) Me.PNLAvatar.Name = "PNLAvatar" Me.PNLAvatar.Padding = New System.Windows.Forms.Padding(1) @@ -4206,7 +4206,7 @@ Partial Class Form1 Me.PnlSidepanelLayout.Location = New System.Drawing.Point(0, 12) Me.PnlSidepanelLayout.Name = "PnlSidepanelLayout" Me.PnlSidepanelLayout.Padding = New System.Windows.Forms.Padding(9, 0, 12, 0) - Me.PnlSidepanelLayout.Size = New System.Drawing.Size(265, 993) + Me.PnlSidepanelLayout.Size = New System.Drawing.Size(265, 979) Me.PnlSidepanelLayout.TabIndex = 779 ' 'PnlTabsLayout @@ -4216,7 +4216,7 @@ Partial Class Form1 Me.PnlTabsLayout.Location = New System.Drawing.Point(9, 89) Me.PnlTabsLayout.Name = "PnlTabsLayout" Me.PnlTabsLayout.Padding = New System.Windows.Forms.Padding(0, 10, 0, 10) - Me.PnlTabsLayout.Size = New System.Drawing.Size(244, 657) + Me.PnlTabsLayout.Size = New System.Drawing.Size(244, 643) Me.PnlTabsLayout.TabIndex = 779 ' 'PnlLayoutForm @@ -4230,7 +4230,7 @@ Partial Class Form1 Me.PnlLayoutForm.Location = New System.Drawing.Point(0, 24) Me.PnlLayoutForm.Name = "PnlLayoutForm" Me.PnlLayoutForm.Padding = New System.Windows.Forms.Padding(0, 12, 9, 8) - Me.PnlLayoutForm.Size = New System.Drawing.Size(1682, 1013) + Me.PnlLayoutForm.Size = New System.Drawing.Size(1676, 999) Me.PnlLayoutForm.TabIndex = 16 ' 'ScriptTimer @@ -4378,7 +4378,7 @@ Partial Class Form1 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.ClientSize = New System.Drawing.Size(1682, 1037) + Me.ClientSize = New System.Drawing.Size(1676, 1023) Me.Controls.Add(Me.PnlLayoutForm) Me.Controls.Add(Me.MenuStrip2) Me.Controls.Add(Me.sendButton) @@ -4413,22 +4413,6 @@ Partial Class Form1 Me.MenuStrip2.PerformLayout() Me.PNLDate.ResumeLayout(False) Me.PNLTabs.ResumeLayout(False) - Me.PNLLazySub.ResumeLayout(False) - Me.PNLLazySub.PerformLayout() - Me.PnlGlitter.ResumeLayout(False) - Me.PnlSidechat.ResumeLayout(False) - Me.PNLChatBox2.ResumeLayout(False) - Me.PNLChatBox2.PerformLayout() - Me.PNLWritingTask.ResumeLayout(False) - Me.PNLWritingTask.PerformLayout() - Me.PNLAppRandomizer.ResumeLayout(False) - Me.AppPanelVitalSub.ResumeLayout(False) - Me.GBGoals.ResumeLayout(False) - Me.GBGoals.PerformLayout() - Me.GBCalories.ResumeLayout(False) - Me.GBCalories.PerformLayout() - Me.PNLHypnoGen.ResumeLayout(False) - Me.PNLHypnoGen.PerformLayout() Me.PNLWishList.ResumeLayout(False) CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).EndInit() @@ -4438,10 +4422,26 @@ Partial Class Form1 CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() Me.PNLWishlistHeader.ResumeLayout(False) CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.PNLHypnoGen.ResumeLayout(False) + Me.PNLHypnoGen.PerformLayout() + Me.AppPanelVitalSub.ResumeLayout(False) + Me.GBGoals.ResumeLayout(False) + Me.GBGoals.PerformLayout() + Me.GBCalories.ResumeLayout(False) + Me.GBCalories.PerformLayout() Me.PNLMetronome.ResumeLayout(False) Me.PNLMetronome.PerformLayout() CType(Me.NBMinPace, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.NBMaxPace, System.ComponentModel.ISupportInitialize).EndInit() + Me.PNLLazySub.ResumeLayout(False) + Me.PNLLazySub.PerformLayout() + Me.PnlGlitter.ResumeLayout(False) + Me.PnlSidechat.ResumeLayout(False) + Me.PNLChatBox2.ResumeLayout(False) + Me.PNLChatBox2.PerformLayout() + Me.PNLWritingTask.ResumeLayout(False) + Me.PNLWritingTask.PerformLayout() + Me.PNLAppRandomizer.ResumeLayout(False) Me.PNLPlaylist.ResumeLayout(False) Me.PNLAvatar.ResumeLayout(False) Me.PnlAvatarBackground.ResumeLayout(False) diff --git a/Tease AI/Form1.resx b/Tease AI/Form1.resx index 0639b06..2073a86 100644 --- a/Tease AI/Form1.resx +++ b/Tease AI/Form1.resx @@ -120,11 +120,31 @@ - iVBORw0KGgoAAAANSUhEUgAABEQAAALYCAYAAAB18SchAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQffBQsAJAG2st0b - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAADrZSURBVHhe7d0HuCVVmS7g - ISiIYkYxo5jDeAezGDCMYdQx6yhiGjEgKiZAQcyOOoaLOWEY0wioYxyzqCgOqIgJFQOIiFfEgORU17WH - jae7v3P6dO/qfar+ftfzvA/0V//Za62qXVXn1FO79t/9tXUAAAAAG5kYAgAAAFQWQwAAAIDKYggAAABQ + iVBORw0KGgoAAAANSUhEUgAABEQAAALYCAYAAAB18SchAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB98FCwAkAbay3RsAADrZSURBVHhe7d0HuCVVmS7gISiIYkYxo5jDeAez + GDCMYdQx6yhiGjEgKiZAQcyOOoaLOWEY0wioYxyzqCgOqIgJFQOIiFfEgORU17WHjae7v3P6dO/qfar+ + ftfzvA/0V//Za62qXVXn1FO79t/9tXUAAAAAG5kYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAA + QGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAA + qCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAA + lcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACg + shgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABU + FkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDK + YggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZ + DAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqL + IQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUx + BAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyG + AAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQ + AAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgC + AAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMA + AACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggA + AABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEA + AAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAA + AEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAA + AKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAA + AJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAA + oLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAA + VBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACA + ymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQ WQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAq iyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBl MQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgs @@ -136,6 +156,197 @@ AAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEA AABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQA AACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAA + AACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDBkArb+W1i+MjTaulrYhVKb119L6HTptXC1twzEZ + QkvjYpRiyABo/bW0fmFstHG1tA2hMq2/ltbv0GnjamkbjskQWhoXoxRDBkDrr6X1C2OjjaulbQiVaf21 + tH6HThtXS9twTIbQ0rgYpRgyAFp/La1fGBttXC1tQ6hM66+l9Tt02rha2oZjMoSWxsUoxZAB0Ppraf3C + 2GjjamkbQmVafy2t36HTxtXSNhyTIbQ0LkYphgyA1l9L6xfGRhtXS9sQKtP6a2n9Dp02rpa24ZgMoaVx + MUoxZAAWa6mWpQ+MqR7GZujtSU96Uhx3X3bbbbcLehpHS3OAyhZrqZZ6v7cMvTlHrdrSHMZksZZqZ7FU + S/WMUgwZgMVaqmXjPGBpuaV1VcGQ249//ONu8803j+Puy2abbdZ973vfu6DH4bc0h6ratnnAAx7QHXDA + Ad3RRx/dnXzyyd35559/wZrQFrYXvOAFcR1WsFhLtdT7vWXIzTlqzZbmMCaLtVQ7i6VaqmeUYsgALNZS + LRvnAUvLLa2rCobc7ne/+8Ux922nnXa6oMfhtzT+inbYYYfuhz/84QWz1tbWXBBhaqmW6oduyM05as2W + xj8mi7VUO4ulWqpnlGLIACzWUi0b5wFLyy2tqwqG2r72ta/F8W4oBx988AU9D7ulsVfTfvk/7bTTLpix + tpzmgghTS7VUP3RDbc5RuaWxj8liLdXOYqmW6hmlGDIAi7VUy8Z5wNJyS+uqgqG2W93qVnG8G8p2223X + nXHGGRf0PtyWxl7JVa961e6kk066YLbacpsLIkwt1VL90A21OUfllsY+Jou1VDuLpVqqZ5RiyAAs1lIt + G+cBS8strasKhtgOPPDAONYN7UUvetEFIxhuS+Ou5KCDDrpgptq6NBdEmFqqpfqhG2Jzjlq8pXGPyWIt + 1c5iqZbqGaUYMgCLtVTLxnnA0nJL66qCobWzzz6723777eNYN7StttqqO/744y8YyTBbGncV7bkh2vo1 + F0SYWqql+qEbWnOOWrqlcY/JYi3VzmKpluoZpRgyAIu1VMvGecDSckvrqoKhtf333z+Oc14e9rCHXTCS + YbY05ire9ra3XTBLbV2bCyJMLdVS/dANrTlHLd3SmMdksZZqZ7FUS/WMUgwZgHPP76JUy+Lrq0n1FWi5 + pXVVQXpvr5ST//in7nKXu3wc5zwd8tWvxfENQRpvBZtuumn3+9///oK9TVvXVvmCSNoPmlRLvd9b0jxW + inPU2qXxjkmaU5NqZ5H6mEr1jFIMGYCzz+uiVMvi66tJ9RWkgzN1t3d6b6+UZ+25VxzjvP3DP+zQnXnO + eXGMKy2Nt4K///ubxv2O5dnv+XUviKT9oEm11Pu9Jc1jpThHrV0a75ikOTWpdhapj6lUzyjFkAE446+/ + OSWplsXXV5PqK0gHZ+qeoNJ7eyX89JfHdVtssUUc40p401vfFse50tJYK9j5EbvE/Y7led5+dS+IpP2g + SbXU+70lzWMlOEctTxrrmKQ5Nal2FqmPqVTPKMWQATjt7POjVMvi66tJ9RWkgzN1t3d6b6+Eh//1D+I0 + vpWyzTbbdL856Y9xrCspjbWC/V74orjfsTz77Pf8uF4rSPtBk2qp93tLmsdKcI5anjTWMUlzalLtLFIf + U6meUYohA3DKWedHqZbF11eT6itIB2fqbu/03p63Qw//TrfJJpvE8a2k3Z/29DjelZTGWcF73vfBuN+x + PM99Xt0LImk/aFIt9X5vSfOYN+eo5UvjHJM0pybVziL1MZXqGaUYMgB/OvP8KNWy+PpqUn0F6eBM3e2d + 3tvzttNd7hrHttI233zz7ojvHR3HvFLSOCv4ymFHxP2O5XnOvnUviKT9oEm11Pu9Jc1j3pyjli+Nc0zS + nJpUO4vUx1SqZ5RiyACcfMb5Uapl8fXVpPoK0sGZuts7vbfn6aCP/3cc11Dc+R/vHse9UtIYKzjyh8fE + /Y7l2bvwBZG0HzSplnq/t6R5zJNz1LpJYxyTNKcm1c4i9TGV6hmlGDIAJ51+fpRqWXx9Nam+gnRwpu72 + Tu/tefl/p57b3fDGN4njGpL3HfzxOP6VkMZXwdHHnhj3O5Znz33qXhBJ+0GTaqn3e0uax7w4R627NL4x + SXNqUu0sUh9TqZ5RiiED8NvTzotuf6e7bFBpLH1IffUpraupNJ4K0sGZuieo9N6el//7lgPimIbmmttf + u/vVH8+Ic5i3NL4Kjj3pL3G/Y3meXfiCSNoPmlQ7i2c9d7/YTyVp3kOX5jEvzlHrLo1vTNKcmlQ7i9TH + VKpnlGLIAPzm1PNWRBpLH1Jf85LGU0E6OFN3e6f39jz8/KRTuytd+SpxTEO070teHucxb2lsFaR9juVr + f8yn9VpB2g+aVDuLZ/51HaZ+KknzHro0j3lwjlo/aWxjkubUpNpZpD6mUj2jFEMG4Pi/nLci0lj6kPqa + lzSeCtLBeRapD4YjvbfnYa/nvySOZ6gufolLdN/+2QlxLvOUxlZBOnawfO2P+bReK0j7QZNqZ/H05+wX + +6kkzXvo0jzmwTlq/aSxjUmaU5NqZ5H6mEr1jFIMGYDj/nzeikhj6UPqa17SeCpIB+dZpD4YjvTe3tCO + /MX/6y6x9dZxPH3YYostYz6rB+/86DifeUrjqiAdO2aR+mCc0n7QpNpZ7LH3frGfStK8hy7NY0Nzjlp/ + aVxjkubUpNpZpD6mUj2jFEMG4Bd/Om9FpLH0IfU1L2k8FaSD8yxSHwxHem9vaI/c9clxLH3Y5orbdi/b + /61xWR8++qVvxjnNSxpTBenYMYvUB+OU9oMm1c7iaXvvF/upJM176NI8NjTnqPWXxjQmaU5Nqp1F6mMq + 1TNKMWQAjvnjeSsijaUPqa95SeOpIB2cZ5H6YDjSe3tD+vy3ftxtvvnmcSx9eNIzn9v96HdndttuoM9+ + /5+b36r76R/OjXObhzSmCtKxYxapD8Yp7QdNqp3FU/baL/ZTSZr30KV5bEjOUbNJYxqTNKcm1c4i9TGV + 6hmlGDIAP/nrQXIlpLH0IfU1L2k8FaSD8yxSHwxHem9vSHe7zwPiOPqwySabdF/87s8m/ez14n+PNX14 + 5Vves8a85iWNp4J07JhF6oNxSvtBk2pnsfte+8V+KknzHro0jw3JOWo2aTxjkubUpNpZpD6mUj2jFEMG + 4Ecnn7si0lj6kPqalzSeCtLBeRapD4Yjvbc3lA985mtxDH253Z3vfmFfRxz3p27rS14q1s1qm22vNHn9 + hXOblzSeCtKxYxapD8Yp7QdNqp3Fk/fcL/ZTSZr30KV5bCjOUbNL4xmTNKcm1c4i9TGV6hmlGDIAP/j9 + uSsijaUPqa95SeNpjjrp3FFIY2/SwXkWqY9K0rodojT2Jr23N5R/uOVt4xj6sv97Dl6lv1332DvW9eFx + T9trlb7mJY2lSdt8iNLYm3TsmEXqY2OVtsMQpbE3aT9oUi1LH9NT/dCleWwozlGzS2MZkzSnJtXOIvUx + leoZpRgyAOmXkHlIY+lD6mte0niaI3937iiksTfp4DyL1Eclad0OURp7k97bG8Kr33Vg7L8v21zxSt23 + TzxzlT6/9MMTuotusUWsn9VFLnrR7lNH/HSV/uYhjaVJ23yI0tibdOyYRepjY5W2wxClsTdpP2hSLUsf + 01P90KV5bAjOUf1YOIa0fIiWM+aFNX1IfUylekYphgxA+iVkHtJY+pD6mpc0nuZbvz1nFNLYm3Rwpu72 + Tu/tvh3xmzO7q1/rOrH/vuz6jH1i3w985K6xvg873fO+sc8NKY2jSdt8iNLYm7TPcW53+PGndm8+8NPd + I574tO6yl98mrru1SdthiNLYm7QfNKmWpY/pqX7o0jz65hzVn4X9p+VDtJwxL6zpQ+pjKtUzSjFkANIv + IfOQxtKH1Ne8pPE0h594ziiksTfp4MziJ6i0bocojb1J7+2+7fmy/WPffWkPqvvkt34e+/7oYUdPlqef + 68MbD/xM7HdDSWNo0jYfojT2pv1BkvY7/ubwE87oXvyGd3dXvPJV4zpcTNoOQ5TG3qT9oEm1LH1MT/VD + l+bRN+eo/izsOy0fouWMeWFNH1IfU6meUYohA5B+CZmHNJY+pL7mJY2nOew354xCGnuTDs7U3d7pvd2n + L/305O7Sl7t87LsvO97lnrHvqbvc54Hx5/pwrevesPvG8WfEfjeENIYmbfMhSmNvDjnm5LjfsaZDf3lK + d++H7BLXY5K2wxClsTdpP2hSLUsf01P90KV59Mk5ql8L+07Lh2g5Y15Y04fUx1SqZ5RiyACkX0LmIY2l + D6mveUnjab5+wjmjkMbepIMzdbd3em/36VFPfU7st0+vfPdHY99T7/zvw+LP9eXpL35t7HdDSP03aZsP + URp78+mjjo/7HYt7xJOeGdfl6tJ2GKI09ibtB02qZeljeqofujSPPjlH9Wthv2n5EC1nzAtr+pD6mEr1 + jFIMGYD0S8g8pLH0IfU1L2k8zVd/fc4opLE36eBM3e2d3tt9+a9vHdttseXFYr992eZKV+m++qszY/8L + 7bDjTvHn+7D1pS7dffr7v4399i3136RtPkRp7M17v/iduN+xtNvd7d5xfS6UtsMQpbE3aT9oUi1LH9NT + /dClefTFOap/C/tNy4doOWNeWNOH1MdUqmeUYsgApF9C5iGNpQ+pr3lJ42m+fPw5o5DG3qSDM3W3d3pv + 9+WfHvro2GefHv3058W+V/eq9386/nxf7vuIx8d++5b6btI2H6I09uaV7/6vuN+xtI8feXx38a0vGdfp + VNoOQ5TG3qT9oEm1LH1MT/VDl+bRF+eo/i3sMy0fouWMeWFNH1IfU6meUYohA5B+CZmHNJY+pL7mJY2n + +eKvzh6FNPYmHZypu73Te7sPB3zuOxv0QXHNpptu2h14+C9j/8n2N7xpfJ0+tLG8/bPfiv32KfXdpG0+ + RGnszR4v2T/ud6zdzk/eM67TqbQdhiiNvUn7QZNqWfqYnuqHLs2jD85RG8bCPtPyIVrOmBfW9CH1MZXq + GaUYMgDpl5B5SGPpQ+prXtJ4ms8dd/YopLE36eDM4ieotG6HKI29Se/tPtzijneL/fXpNne9V+x7Mfu8 + /j/i6/Tlpre+Q+y3T6nfJm3zIUpjb+736N3ifsfaffAbx8R1OpW2wxClsTdpP2hSLUsf01P90KV59ME5 + asNY2F9aPkTLGfPCmj6kPqZSPaMUQwYg/RIyD2ksfUh9zUsaT/OZX549CmnsTTo4U3d7p/f2rF7x/s/E + vvr24nf+V+x/Mf/9izO6K171GvG1+rLvmz4Q++5L6rNJ23yI0tibG97s1nG/Y3m2u+6N4npt0nYYojT2 + Ju0HTapl6WN6qh+6NI9ZOUfl/vuwsK+0fIiWM+aFNX1IfUylekYphgxA+iVkHtJY+pD6mpc0nuZTvzh7 + FNLYm3Rwpu72Tu/tWfz3L87qtr/h/4l99emy22zbHXTkb7sPH3XSOnnMni+Jr9eXK1zl6t3Hjv5zXDd9 + SH02aZsPURp7s+XFtvrr/M6M+x5rd7cHPTKu1yZthyFKY2/SftCkWpY+pqf6oUvzmIVz1PzOUWn5EC1n + zAtr+pD6mEr1jFIMGYD0S8g8pLH0IfU1L2k8zSd+fvYopLE36eBM3e2d3tuzeMar3xn72ZjsvMd+cd30 + IfXXpG0+RGnsU//3I4fGfY+12/W5r4jrtEnbYYjS2Ju0HzSplqWP6al+6NI8ZuEcNb9zVFo+RMsZ88Ka + PqQ+plI9oxRDBiD9EjIPaSx9SH3NSxpP818/O3sU0tibdHCm7vZO7+319eEfndJtc+WrxX42JltsebHu + nV/7eVxHs0r9NWmbD1Ea+9Qjnv78uO+xdi981yfiOm3SdhiiNPYm7QdNqmXpY3qqH7o0j/XlHPW/5nWO + SsuHaDljXljTh9THVKpnlGLIAKRfQuYhjaUPqa95SeNpPnLMWaOQxt6kgzN1t3d6b6+vR+75stjHxuh2 + 93pIXEezSn01aZsPURr71DWud+O477F2b/rsUXGdNmk7DFEae5P2gybVsvQxPdUPXZrH+nKO+pt5nKPS + 8iFazpgX1vQh9TGV6hmlGDIA6ZeQeUhj6UPqa17SeJqDfnrWKKSxN+ngzOInqLRuhyiNvUnv7fXxniNO + 7Lba+lKxj43VSz/4pbiuZpH6adI2H6I09oUe85xXxv2PpR1w6C/j+mzSdhiiNPYm7QdNqmXpY3qqH7o0 + j/XhHLWmDX2OSsuHaDljXljTh9THVKpnlGLIAKRfQuYhjaUPqa95SeNpPvSTs0Yhjb1JB2fqbu/03l4f + 93rUU+Lrb8y2u8FNuw/9+Iy4vtZX6qdJ23yI0thXd/v7PLR72YcO6Q768elxX2RN7z/y93FdNmk7DFEa + e5P2gybVsvQxPdUPXZrH+nCOWtOGPkel5UO0nDEvrOlD6mMq1TNKMWQA0i8h85DG0ofU17yk8VSQDs7U + 3d7pvb2uXveFo7vNLnKR+Pobu8e/+E1xna2v1AfjlI4zs0h9VJD2gybVziL1UU2a99Cleawr56jFbchz + VFo+RMsZ88KaPqQ+plI9oxRDBuADR5+1ItJY+pD6mpc0ngrSwZm62zu9t9fVre/5oPja/F239WUu373j + 8N/F9bY+Uh+MUzrOzCL1UUHaD5pUO4vURzVp3kOX5rGunKMW5xy1qjSnJtXOIvUxleoZpRgyAO/70Vkr + Io2lD6mveUnjqSAdnNfXA5+8b+yD4Ujv7XXxwv88NL4uf3OPXZ4S1936SK/POKVj5ixSHxWk/aBJtbNI + fVST5j10aR7rwjlq7Zyj/ibNqUm1s0h9TKV6RimGDMB7fnjmikhj6UPqa17SeCpIB+f19QAXRAYvvbfX + xXV32DG+Ln+z6Wabdf/2iaPi+ltX6fUZp3TMnEXqo4K0HzSpdhapj2rSvIcuzWNdOEetnXPU36Q5Nal2 + FqmPqVTPKMWQAXjnD85cEWksfUh9zUsaTwXp4Ly+7rebCyJDl97by/WU1x8cX5M13WjHf4zrcF2l12ac + 0jFzFqmPCtJ+0KTaWaQ+qknzHro0j+Vyjlo+56j/lebUpNpZpD6mUj2jFEMG4B3fP3NFpLH0IfU1L2k8 + FaSD8/q6rwsig5fe28vx1iNP7ba95nXja5Lt/voPx3W5LtLrMk7pmDmL1EcFaT9oUu0sUh/VpHkPXZrH + cjhHrTvnqGEcb1I9oxRDBuCt3/vrSWIFpLH0IfU1L2k8FaSD8/r65ye5IDJ06b29HDs/7/Xx9VjcNlfb + vnvjt0+J63O50usyTumYOYvURwVpP2hS7SxSH9WkeQ9dmsdyOEetO+eoYRxvUj2jFEMG4M1Hnbki0lj6 + kPqalzSeCtLBeX3d2wWRwUvv7bV57WG/77a+7BXi67G0++/x0rhOlyu9ZgXp+MHyveWoM+J6rSDtB02q + ZeljeqofujSPtXGOWn8b+zkqzalJtbNIfUylekYphgzAG7575opIY+lD6mte0ngqSAfn9XWvJ7ogMnTp + vb0293z8c+NrsXZbbHWJ7mVfODau1+VIr1lBOn6wfG/49qlxvVaQ9oMm1bL0MT3VD12ax9o4R62/jf0c + lebUpNpZpD6mUj2jFEMG4HXfOWNFpLH0IfU1L2k8FaSDM3VPUOm9vZQXf/YX3UW33Cq+Fstzy3s/Iq7b + 5UivV0Ha51i+1x7+57heK0j7QZNqWfqYnuqHLs1jKc5Rs9uYz1FpTk2qnUXqYyrVM0oxZABe++0zVkQa + Sx9SX/OSxlNBOjhTd3un9/ZSbn3/x8TX6dP1b3u37sY73WfFXO4q28Vx9WmP93w1rt+1Sa9VQdrnWL6X + f+XEuF4rSPtBk2pZ+pie6ocuzWMpzlH92FjPUWlOTaqdRepjKtUzSjFkAF79rTNWRBpLH1Jf85LGU0E6 + OFN3e6f39mKefeB3uk023TS+Tl9ucLt7xL7n6dkf+na32eYXiePry9VvfIvuVUecHvtfSnqtCtI+x/K9 + 4DM/j+u1grQfNKmWpY/pqX7o0jwW4xzVn431HJXm1KTaWaQ+plI9oxRDBuCVR5yxItJY+pD6mpc0ngrS + wZm62zu9txdzg9vdM75GXzbdbPPuWQcdFfuet7s94XlxjH166AveHvteSnqdCtI+x/LtdfBRcb1WkPaD + JtWy9DE91Q9dmsdinKP6tTGeo9KcmlQ7i9THVKpnlGLIALz88DNWRBpLH1Jf85LGU0E6OFN3e6f3drLr + mz8bf75PO/7L7rHvlfDSb5zSbXvtG8dx9mXry23bvfCQk2L/i0mvU0Ha51i+3d7xpbheK0j7QZNqWfqY + nuqHLs0jcY7q38Z4jkpzalLtLFIfU6meUYohA/DS//nrQXQFpLH0IfU1L2k8FaSDM3W3d3pvr+4l3zy9 + u8r1d4g/35eLXfKy3b6f/03sf6Xs9u6vb/Dbr+/wyGfFvheTXqOCtM+xfLu88kNxvVaQ9oMm1bL0MT3V + D12ax+qco/KY+7CxnaPSnJpUO4vUx1SqZ5RiyAC86K8njZWQxtKH1Ne8pPFUkA7O1D1Bpff26h70onfH + n+3TvZ71mtj3SrvdLs+I4+3LZhe5aLfHwT+IfSfpNSpI+xzLd+9nvjqu1wrSftCkWpY+pqf6oUvzWJ1z + VB5zHza2c1SaU5NqZ5H6mEr1jFIMGYAXHHb6ikhj6UPqa17SeCpIB2fqbu/03l5o36/8sbv0tlePP9uX + bba7fve8r50S+19p+xzyh+5yV7t2HHdfrnf7e8e+k/TzFaR9juW7zUN3j+u1grQfNKmWpY/pqX7o0jwW + co5yjupTmlOTameR+phK9YxSDBmA53399BWRxtKH1Ne8pPFUkA7O1N3e6b290D/u/vL4c316+Gs+Fvse + ike96Qtx3H3a+bWfiH2vLv1sBWmfY/mudYs7x/VaQdoPmlTL0sf0VD90aR4LOUc5R/UpzalJtbNIfUyl + ekYphgzAPoeeviLSWPqQ+pqXNJ4K0sGZuts7vbennvHpE7ott750/Lm+XPs294h9D83NH/jEOP6+XH67 + 63fPOeSU2PdC6WcrSPscy7Pvoadt8P10JaX9oEm1LH1MT/VDl+Yx5Rz1N85R/UhzalLtLFIfU6meUYoh + A7D3105fEWksfUh9zUsaTwXp4Ezd7Z3e21O3fOhT48/0ZZPNNut2fd+Rse+hecZnf9dd8opXi/Poy12f + +u+x74XSz1WQ9jmW57EHfD2u0yrSftCkWpY+pqf6oUvzmHKO+hvnqH6kOTWpdhapj6lUzyjFkAHY86un + rYg0lj6kvuYljaeCdHCm7gkqvbebJ3zoR5OHqaWf6cvNHrRb7HuoHvyqj8V59GWLS1yq2/3jx8W+p9LP + VZD2OZbnVg/bI67TKtJ+0KRalv69KNUPXZpH4xy1Jueo2aU5Nal2FqmPqVTPKMWQAXjmV05bEWksfUh9 + zUsaTwXp4Ezd7Z3e28317/qQWN+XLbe+TPfkT/469j1kN7rnLnE+ffn7+zw29juVfqaCtM+xdrt//Nju + ohe/ZFynVaT9oEm1LP17UaofujSPxjkqc46aTZpTk2pnkfqYSvWMUgwZgKcfctqKSGPpQ+prXtJ4KkgH + Z+pu7/TefvhbD421fbrTU18d+x66J33ihO7il902zqkXm2zS7fz2b8S+m/gzBaR9jqXt8cU/ddvd4q5x + fVaS9oMm1bL070WpfujSPJyjFuccNZs0pybVziL1MZXqGaUYMgBP/fJp9CSt3wrSwZm62zu9txmutA0r + SPsci3v0e7/bXfkmt4nrspq0H7B+0vodujQPhittwzFJc5q3NC5GKYYMwO5fPI2epPVbQTo4U3d7p/c2 + w5W2YQVpn+N/7f6FU7onfOKE7mFvP6y7y7Pf1F1rx3t1m2y6WVyPFaX9gPWT1u/QpXkwXGkbjkma07yl + cTFKMWQAnvSF0+hJWr8wNum9zXClbQiVpf2A9ZPW79CleTBcaRuOSZrTvKVxMUoxZACe8PlT6UlavzA2 + 6b3NcKVtCJWl/YD1k9bv0KV5MFxpG45JmtO8pXExSjFkAB73uVPpSVq/MDbpvc1wpW0IlaX9gPWT1u/Q + pXkwXGkbjkma07ylcTFKMWQAHvPZU+lJWr8wNum9zXClbQiVpf2A9ZPW79CleTBcaRuOSZrTvKVxMUox + ZAAe9ZlT6UlavzA26b3NcKVtCJWl/YD1k9bv0KV5MFxpG45JmtO8pXExSjEEAAAAqCyGAAAAAJXFEAAA + AKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAStp0000n0rKN1SabbNJttdVW3fWud73u0Y9+dKxZaLPN + Nusud7nLdXe84x27293udrEGRiCGAAAAJe2+++7d6aef3k3bSSed1P3pT3/qzjnnnO7444/v3vOe93Tb + bbdd/NlZXPKSl+x++MMfdj/72c8mFx9SzUrYcsstuyOPPPKCtdF1Bx54YKyb2nXXXbvf//73F1R3c7sg + suOOO3Yf+9jHuuc85zlx+S1vecvuy1/+cnfEEUd0v/rVr7q3vOUt3cUvfvH1rrvOda5zwQz/1s4888zu + Mpe5zBq1jFYMAQAAymoXRabtmte85iS7yU1u0n3lK1+ZZO0P/u23336Nn5tFu8jSLrqceOKJ3cUudrFY + s5J+/etfT+Z++9vfPi5f6GEPe9ik9vvf/35c3pd258p97nOf7tBDD53019pDH/rQNepudrObdWeccUb3 + +Mc/fvLvHXbYYVL7zne+c73qmnbhZfX2kY98ZI06Ri2GAAAAZe2zzz6TP3Db3RoL83a3xI9+9KPJsnY3 + wsJlfdhmm23i3Qgr7UpXulJ3/vnnd8cdd1xcvrpXvepVk3X0jGc8Iy7vy+abb9696U1v6h772MdO+jv7 + 7LMnd9qsXveZz3xmsnzhsnbXz5///Of1qmu+/e1vd9e97nUnY5jyUatyYggAAFDWZz/72ckfxm9+85vX + WPav//qvk2XnnXfeRvPxiKc+9amTOe+///5x+ULtro320aJ2t8sVrnCFWNO3Zz/72ZPxtY+6pOXTj/Bc + //rXn/z70pe+9OQCz1/+8pf1qmt38xx77LGrZJQUQwAAgJLaXSDTZ4jc//73X2P5DW94w8my1jaWB4Z+ + 4xvfmMz3Lne5S1y+UHuWR2uf/vSn4/IN4XOf+9ykz7333jsub3f6tPa6171u8u/pBZQPf/jD61X3zGc+ + szvggANWySgphgAAACXd7W53m/wRfO65507uEFh9+dWudrXJ8tbucY97rLKsfYTiP/7jP7pTTjlljT+i + t9hii+7Vr351993vfrc7+eSTu3/6p3+6cNltbnOb7pvf/GZ32mmnrfFskkc96lHdMccc0/34xz/uvvjF + L3ZXv/rVV1netOdotDsWvv71r0/+ffnLX37y3Is2jnRXx1LjbNpHP9rFhV/84heTiw3tLok//vGP3UUu + cpE1alf3mte8ZrJu2rfRtGdwtAsj7QLTwQcfvEpdW94+jtIuOrR/twsp7d//8i//skrd2rQLWO25H621 + /lLNK17xisnydtfK0572tMl6/ulPf9pd5SpXWa+6ww47bHKHUNuO7WM2y7lQxCjFEAAAoKR20aK19kdv + Wt4erjptt73tbS/M2x/j7SMXN7/5zbvvfOc7kz+qF/5cuwDRXnP684973OMmebsw0i5mtNaegbHwIkx7 + QGhr7Y/u9u+jjz56chGjXTz553/+50l2z3vec3IhobX2LTVXvvKVJ3/Et7rW3v/+91/4es3axtm+Mrd9 + k8xvfvOb7gY3uMHk4yGtffCDH1ylbjHtOSNtHu2ho6985Su7f/u3f5v8/MKPmNzoRjfq/vCHP0zyU089 + dfIQ2Qc96EGTf6/rg0nvete7Tn6ufRtQ+7hOqmnr9IQTTpjUtdbGlZ7Vspy6bbfddnKBaGFrF8/ufOc7 + r1JHCTEEAAAoqX0zSmsvetGL4vKHP/zhk+Xtj+LLXvayk6z9Id2em9HutmgP12x/nE/v1mja3SHtjoLf + /e53k7sspt9cc6lLXap7xzve0e22226T1zzooIMu/Jlm+nW3973vfSf/nj7Qtf1R3v7dXvfjH//45KM7 + rbW7Qg4//PDJxYX2kY7W7n3ve1/4emsbZ9PukmhjnX4c6KY3venkdR7ykIesUpe0r6xtrV0QefGLXzzJ + Xv7yl0+y9lyWad2HPvSh7lrXutZkrK3d8Y53nFyI+fnPfz5ZNq1bjuldHf/5n/8Zl9/61reeXChqFzra + HR+tfelLX1rvuuYSl7hEt/XWW3cPfOADJw9cbW31bUcJMQQAACin3V0xbYt9vWy706O1I4444sKs3UnQ + 2iMe8YjJHRE/+MEPJndWTJe3OxfaxZDWpneGLNQeBtra3e9+91XydmGhXXhpF07ahZTps00WfgtK+3jL + LrvsMsnbR2vaGNpdDe0OjHYBZeFdE2sbZ7so0Pp7/etff2HWvinmrLPOit/esrrpxYl2kWX6jSvtoz6t + PeEJT5j8u43nfve73+T/3/jGN06WTb/mtl2oef7znz/5/+Vqd7m01r5pZvVl7aNB7Q6U5trXvnb3yEc+ + clLb2vQi07rUJdM7YFa/sEQJMQQAACinPdeitfZxk3YHxerL2wWTM888c1LTnu3RsnaXRnu+Rmvtj/OX + vexlk2z1n91vv/0mNe0OjYXP4mjPDGkXIX71q1+t8bWtJ5544uRCSvv/9vGc1hZeiJn66Ec/Olk2fdDn + HnvsMfl3u4NhWrOccbYLM+15HO1rdtu/L3rRi07u2vj85z+/St1ipg8lvdWtbjX59/R5LO2ui/axmNXr + 99prr8ny6UWQNrfpzy5H+5ri6cdX2rNdVl/eviWotYXPUWlfl9va2972tnWuS571rGdN6lZ/RgolxBAA + AKCc973vfZM/btvHUNLyj33sY5PlX/3qVy+8eLHTTjtNsvYsjulHYZKtttpq8lyO1u51r3tdmLePlrT2 + whe+cJX6pt2d0T6S0R4c+oEPfGDyrIrVH+DZPj7T7iRpd4S0j/C0ixztAkR7zkhbPr0QsbZxTr89573v + fe+FWXsOSGvtj/6Ftcn02SjtG2mmWVtPrU2fd7K6dmdIa+3OkjaP9nGlVLeY9gDW1n7yk5/E5dM7bxY+ + qHV6EWbhM1GWW5e07dLa9AIZpcQQAACglHaB47e//e3kj9t99tlnjeUvfelLJ8vax0zanQnTfNddd53k + 7cGm06z9cTy9y6I9t+MBD3jA5P/bXRmtteeQtH+3u1DaHSOtXec61+ne/va3Ty6cTF+nXUhoFzfaN9O0 + j2Ss/q02zfSCSvsDvv27fXSktfbfNo/pR0nWNs7pnQ7TiwLtjpT2EZLW2kdp2pgX+xaXZs8995zUtq+k + bf9ur93avvvuu0bt1HRMz3ve8ybPbFnXiwrvete7Jj/fnsOSlrcHyrbWPiI0zaYXYZ7ylKesU117xkl7 + gOvCO4fax43aHTXtbpJ0RxGjF0MAAIBSFj434gUveMGF+fWud70LP5LS7gZoFzgW/lz7I3ra2je+tIeI + Tr9Ktnnta187WdY+GtP+6G8fgZk+jPVOd7rTZFlr7Y6O9hGT6c+1r9Jtrd2hsNi3p7SLJ+2rX9tdJNNn + fBx66KGTn2sXPhZ+BGRt43zd6143Wda+Arg9P6V9fKjdedJae9Bpe1bGtDaZ3inRvjWnXThpD2zdfffd + Y+3U9CJMuyDSxr36R4aW0u5ymX6TTvtmoFRzhzvcYfKA2E9+8pOTddjunmkXltpHhtpdN+tSt/POO0/6 + ml58ueIVrzi5EPK9731vja/lpYwYAgAAlND+AG4f85g+i6K19tGU9sdwuxukfYyjPfyzfU1t+vn2wNP2 + 7It28eCQQw7pdtxxx1WWt298aV9z257F8alPfWry0ZTpsvatLO1Bqf/zP/+zxuu3CxPtYaattT/Ob3GL + W6yyvGkPaG1t4UNQ27jbs0cW3gHRrG2c7XkjbSztWRjtG2Yuc5nLTC44tAezPvjBD16lNml3e7Sfb328 + 9a1vnVxISnULTZ/d0Z490tZFqkna3Trtzoxpa9ur3V2TatsDXI866qjJx2raBYx24Sc9IHZtdVe4whUm + H6Vq66St47ZN2l056dkolBFDAAAANpB2MaR9jKNdKGl3ILTWLti0rN2ZkH5mjKZfI7z33nvH5Ytpd220 + j7CkZdCjGAIAALABtI/KtI9vHH744ZO7D9of/k984hMnH0Fp7dhjj13l4x5jNf3WnOk348AAxRAAAIAN + YPqg0NWf2XGNa1xjkrc2fRDqWLSPmyz8qFB7Dku78+UNb3jDOj03BOYshgAAAGwA7Ztl2sdj2rfL3OhG + N7owb9/y0tq73/3uVeqHrj2j5bjjjps8D2WXXXaZ3AFz2GGHTR7amuphQGIIAADABtK+9eQjH/nI5KLI + kUceOXnYZ3uI52Me85hFv3FmqNp420Nc2wWRY445ZvLtNu2OkVQLAxNDAAAAgMpiCAAAAFBZDAEAAAAq + iyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBl + MQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgs + hgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXF + EAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIY + AgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZD + AAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymII + AAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwB + AAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEA + AABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQA + AACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAA AACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAA AKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAA AFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAA @@ -157,318 +368,104 @@ AIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAA AFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAA ACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAA - QGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDBkArb+W1i+MjTaulrYhVKb1 - 19L6HTptXC1twzEZQkvjYpRiyABo/bW0fmFstHG1tA2hMq2/ltbv0GnjamkbjskQWhoXoxRDBkDrr6X1 - C2OjjaulbQiVaf21tH6HThtXS9twTIbQ0rgYpRgyAFp/La1fGBttXC1tQ6hM66+l9Tt02rha2oZjMoSW - xsUoxZAB0Ppraf3C2GjjamkbQmVafy2t36HTxtXSNhyTIbQ0LkYphgyA1l9L6xfGRhtXS9sQKtP6a2n9 - Dp02rpa24ZgMoaVxMUoxZAAWa6mWpQ+MqR7GZujtSU96Uhx3X3bbbbcLehpHS3OAyhZrqZZ6v7cMvTlH - rdrSHMZksZZqZ7FUS/WMUgwZgMVaqmXjPGBpuaV1VcGQ249//ONu8803j+Puy2abbdZ973vfu6DH4bc0 - h6ratnnAAx7QHXDAAd3RRx/dnXzyyd35559/wZrQFrYXvOAFcR1WsFhLtdT7vWXIzTlqzZbmMCaLtVQ7 - i6VaqmeUYsgALNZSLRvnAUvLLa2rCobc7ne/+8Ux922nnXa6oMfhtzT+inbYYYfuhz/84QWz1tbWXBBh - aqmW6oduyM05as2Wxj8mi7VUO4ulWqpnlGLIACzWUi0b5wFLyy2tqwqG2r72ta/F8W4oBx988AU9D7ul - sVfTfvk/7bTTLpixtpzmgghTS7VUP3RDbc5RuaWxj8liLdXOYqmW6hmlGDIAi7VUy8Z5wNJyS+uqgqG2 - W93qVnG8G8p2223XnXHGGRf0PtyWxl7JVa961e6kk066YLbacpsLIkwt1VL90A21OUfllsY+Jou1VDuL - pVqqZ5RiyAAs1lItG+cBS8strasKhtgOPPDAONYN7UUvetEFIxhuS+Ou5KCDDrpgptq6NBdEmFqqpfqh - G2Jzjlq8pXGPyWIt1c5iqZbqGaUYMgCLtVTLxnnA0nJL66qCobWzzz6723777eNYN7StttqqO/744y8Y - yTBbGncV7bkh2vo1F0SYWqql+qEbWnOOWrqlcY/JYi3VzmKpluoZpRgyAIu1VMvGecDSckvrqoKhtf33 - 3z+Oc14e9rCHXTCSYbY05ire9ra3XTBLbV2bCyJMLdVS/dANrTlHLd3SmMdksZZqZ7FUS/WMUgwZgHPP - 76JUy+Lrq0n1FWi5pXVVQXpvr5ST//in7nKXu3wc5zwd8tWvxfENQRpvBZtuumn3+9///oK9TVvXVvmC - SNoPmlRLvd9b0jxWinPU2qXxjkmaU5NqZ5H6mEr1jFIMGYCzz+uiVMvi66tJ9RWkgzN1t3d6b6+UZ+25 - VxzjvP3DP+zQnXnOeXGMKy2Nt4K///ubxv2O5dnv+XUviKT9oEm11Pu9Jc1jpThHrV0a75ikOTWpdhap - j6lUzyjFkAE446+/OSWplsXXV5PqK0gHZ+qeoNJ7eyX89JfHdVtssUUc40p401vfFse50tJYK9j5EbvE - /Y7led5+dS+IpP2gSbXU+70lzWMlOEctTxrrmKQ5Nal2FqmPqVTPKMWQATjt7POjVMvi66tJ9RWkgzN1 - t3d6b6+Eh//1D+I0vpWyzTbbdL856Y9xrCspjbWC/V74orjfsTz77Pf8uF4rSPtBk2qp93tLmsdKcI5a - njTWMUlzalLtLFIfU6meUYohA3DKWedHqZbF11eT6itIB2fqbu/03p63Qw//TrfJJpvE8a2k3Z/29Dje - lZTGWcF73vfBuN+xPM99Xt0LImk/aFIt9X5vSfOYN+eo5UvjHJM0pybVziL1MZXqGaUYMgB/OvP8KNWy - +PpqUn0F6eBM3e2d3tvzttNd7hrHttI233zz7ojvHR3HvFLSOCv4ymFHxP2O5XnOvnUviKT9oEm11Pu9 - Jc1j3pyjli+Nc0zSnJpUO4vUx1SqZ5RiyACcfMb5Uapl8fXVpPoK0sGZuts7vbfn6aCP/3cc11Dc+R/v - Hse9UtIYKzjyh8fE/Y7l2bvwBZG0HzSplnq/t6R5zJNz1LpJYxyTNKcm1c4i9TGV6hmlGDIAJ51+fpRq - WXx9Nam+gnRwpu72Tu/tefl/p57b3fDGN4njGpL3HfzxOP6VkMZXwdHHnhj3O5Znz33qXhBJ+0GTaqn3 - e0uax7w4R627NL4xSXNqUu0sUh9TqZ5RiiED8NvTzotuf6e7bFBpLH1IffUpraupNJ4K0sGZuieo9N6e - l//7lgPimIbmmttfu/vVH8+Ic5i3NL4Kjj3pL3G/Y3meXfiCSNoPmlQ7i2c9d7/YTyVp3kOX5jEvzlHr - Lo1vTNKcmlQ7i9THVKpnlGLIAPzm1PNWRBpLH1Jf85LGU0E6OFN3e6f39jz8/KRTuytd+SpxTEO070te - Hucxb2lsFaR9juVrf8yn9VpB2g+aVDuLZ/51HaZ+KknzHro0j3lwjlo/aWxjkubUpNpZpD6mUj2jFEMG - 4Pi/nLci0lj6kPqalzSeCtLBeRapD4YjvbfnYa/nvySOZ6gufolLdN/+2QlxLvOUxlZBOnawfO2P+bRe - K0j7QZNqZ/H05+wX+6kkzXvo0jzmwTlq/aSxjUmaU5NqZ5H6mEr1jFIMGYDj/nzeikhj6UPqa17SeCpI - B+dZpD4YjvTe3tCO/MX/6y6x9dZxPH3YYostYz6rB+/86DifeUrjqiAdO2aR+mCc0n7QpNpZ7LH3frGf - StK8hy7NY0Nzjlp/aVxjkubUpNpZpD6mUj2jFEMG4Bd/Om9FpLH0IfU1L2k8FaSD8yxSHwxHem9vaI/c - 9clxLH3Y5orbdi/b/61xWR8++qVvxjnNSxpTBenYMYvUB+OU9oMm1c7iaXvvF/upJM176NI8NjTnqPWX - xjQmaU5Nqp1F6mMq1TNKMWQAjvnjeSsijaUPqa95SeOpIB2cZ5H6YDjSe3tD+vy3ftxtvvnmcSx9eNIz - n9v96HdndttuoM9+/5+b36r76R/OjXObhzSmCtKxYxapD8Yp7QdNqp3FU/baL/ZTSZr30KV5bEjOUbNJ - YxqTNKcm1c4i9TGV6hmlGDIAP/nrQXIlpLH0IfU1L2k8FaSD8yxSHwxHem9vSHe7zwPiOPqwySabdF/8 - 7s8m/ez14n+PNX145Vves8a85iWNp4J07JhF6oNxSvtBk2pnsfte+8V+KknzHro0jw3JOWo2aTxjkubU - pNpZpD6mUj2jFEMG4Ecnn7si0lj6kPqalzSeCtLBeRapD4Yjvbc3lA985mtxDH253Z3vfmFfRxz3p27r - S14q1s1qm22vNHn9hXOblzSeCtKxYxapD8Yp7QdNqp3Fk/fcL/ZTSZr30KV5bCjOUbNL4xmTNKcm1c4i - 9TGV6hmlGDIAP/j9uSsijaUPqa95SeNpjjrp3FFIY2/SwXkWqY9K0rodojT2Jr23N5R/uOVt4xj6sv97 - Dl6lv1332DvW9eFxT9trlb7mJY2lSdt8iNLYm3TsmEXqY2OVtsMQpbE3aT9oUi1LH9NT/dCleWwozlGz - S2MZkzSnJtXOIvUxleoZpRgyAOmXkHlIY+lD6mte0niaI3937iiksTfp4DyL1Eclad0OURp7k97bG8Kr - 33Vg7L8v21zxSt23TzxzlT6/9MMTuotusUWsn9VFLnrR7lNH/HSV/uYhjaVJ23yI0tibdOyYRepjY5W2 - wxClsTdpP2hSLUsf01P90KV5bAjOUf1YOIa0fIiWM+aFNX1IfUylekYphgxA+iVkHtJY+pD6mpc0nuZb - vz1nFNLYm3Rwpu72Tu/tvh3xmzO7q1/rOrH/vuz6jH1i3w985K6xvg873fO+sc8NKY2jSdt8iNLYm7TP - cW53+PGndm8+8NPdI574tO6yl98mrru1SdthiNLYm7QfNKmWpY/pqX7o0jz65hzVn4X9p+VDtJwxL6zp - Q+pjKtUzSjFkANIvIfOQxtKH1Ne8pPE0h594ziiksTfp4MziJ6i0bocojb1J7+2+7fmy/WPffWkPqvvk - t34e+/7oYUdPlqef68MbD/xM7HdDSWNo0jYfojT2pv1BkvY7/ubwE87oXvyGd3dXvPJV4zpcTNoOQ5TG - 3qT9oEm1LH1MT/VDl+bRN+eo/izsOy0fouWMeWFNH1IfU6meUYohA5B+CZmHNJY+pL7mJY2nOew354xC - GnuTDs7U3d7pvd2nL/305O7Sl7t87LsvO97lnrHvqbvc54Hx5/pwrevesPvG8WfEfjeENIYmbfMhSmNv - Djnm5LjfsaZDf3lKd++H7BLXY5K2wxClsTdpP2hSLUsf01P90KV59Mk5ql8L+07Lh2g5Y15Y04fUx1Sq - Z5RiyACkX0LmIY2lD6mveUnjab5+wjmjkMbepIMzdbd3em/36VFPfU7st0+vfPdHY99T7/zvw+LP9eXp - L35t7HdDSP03aZsPURp78+mjjo/7HYt7xJOeGdfl6tJ2GKI09ibtB02qZeljeqofujSPPjlH9Wthv2n5 - EC1nzAtr+pD6mEr1jFIMGYD0S8g8pLH0IfU1L2k8zVd/fc4opLE36eBM3e2d3tt9+a9vHdttseXFYr99 - 2eZKV+m++qszY/8L7bDjTvHn+7D1pS7dffr7v4399i3136RtPkRp7M17v/iduN+xtNvd7d5xfS6UtsMQ - pbE3aT9oUi1LH9NT/dClefTFOap/C/tNy4doOWNeWNOH1MdUqmeUYsgApF9C5iGNpQ+pr3lJ42m+fPw5 - o5DG3qSDM3W3d3pv9+WfHvro2GefHv3058W+V/eq9386/nxf7vuIx8d++5b6btI2H6I09uaV7/6vuN+x - tI8feXx38a0vGdfpVNoOQ5TG3qT9oEm1LH1MT/VDl+bRF+eo/i3sMy0fouWMeWFNH1IfU6meUYohA5B+ - CZmHNJY+pL7mJY2n+eKvzh6FNPYmHZypu73Te7sPB3zuOxv0QXHNpptu2h14+C9j/8n2N7xpfJ0+tLG8 - /bPfiv32KfXdpG0+RGnszR4v2T/ud6zdzk/eM67TqbQdhiiNvUn7QZNqWfqYnuqHLs2jD85RG8bCPtPy - IVrOmBfW9CH1MZXqGaUYMgDpl5B5SGPpQ+prXtJ4ms8dd/YopLE36eDM4ieotG6HKI29Se/tPtzijneL - /fXpNne9V+x7Mfu8/j/i6/Tlpre+Q+y3T6nfJm3zIUpjb+736N3ifsfaffAbx8R1OpW2wxClsTdpP2hS - LUsf01P90KV59ME5asNY2F9aPkTLGfPCmj6kPqZSPaMUQwYg/RIyD2ksfUh9zUsaT/OZX549CmnsTTo4 - U3d7p/f2rF7x/s/Evvr24nf+V+x/Mf/9izO6K171GvG1+rLvmz4Q++5L6rNJ23yI0tibG97s1nG/Y3m2 - u+6N4npt0nYYojT2Ju0HTapl6WN6qh+6NI9ZOUfl/vuwsK+0fIiWM+aFNX1IfUylekYphgxA+iVkHtJY - +pD6mpc0nuZTvzh7FNLYm3Rwpu72Tu/tWfz3L87qtr/h/4l99emy22zbHXTkb7sPH3XSOnnMni+Jr9eX - K1zl6t3Hjv5zXDd9SH02aZsPURp7s+XFtvrr/M6M+x5rd7cHPTKu1yZthyFKY2/SftCkWpY+pqf6oUvz - mIVz1PzOUWn5EC1nzAtr+pD6mEr1jFIMGYD0S8g8pLH0IfU1L2k8zSd+fvYopLE36eBM3e2d3tuzeMar - 3xn72ZjsvMd+cd30IfXXpG0+RGnsU//3I4fGfY+12/W5r4jrtEnbYYjS2Ju0HzSplqWP6al+6NI8ZuEc - Nb9zVFo+RMsZ88KaPqQ+plI9oxRDBiD9EjIPaSx9SH3NSxpP818/O3sU0tibdHCm7vZO7+319eEfndJt - c+WrxX42JltsebHunV/7eVxHs0r9NWmbD1Ea+9Qjnv78uO+xdi981yfiOm3SdhiiNPYm7QdNqmXpY3qq - H7o0j/XlHPW/5nWOSsuHaDljXljTh9THVKpnlGLIAKRfQuYhjaUPqa95SeNpPnLMWaOQxt6kgzN1t3d6 - b6+vR+75stjHxuh293pIXEezSn01aZsPURr71DWud+O477F2b/rsUXGdNmk7DFEae5P2gybVsvQxPdUP - XZrH+nKO+pt5nKPS8iFazpgX1vQh9TGV6hmlGDIA6ZeQeUhj6UPqa17SeJqDfnrWKKSxN+ngzOInqLRu - hyiNvUnv7fXxniNO7Lba+lKxj43VSz/4pbiuZpH6adI2H6I09oUe85xXxv2PpR1w6C/j+mzSdhiiNPYm - 7QdNqmXpY3qqH7o0j/XhHLWmDX2OSsuHaDljXljTh9THVKpnlGLIAKRfQuYhjaUPqa95SeNpPvSTs0Yh - jb1JB2fqbu/03l4f93rUU+Lrb8y2u8FNuw/9+Iy4vtZX6qdJ23yI0thXd/v7PLR72YcO6Q768elxX2RN - 7z/y93FdNmk7DFEae5P2gybVsvQxPdUPXZrH+nCOWtOGPkel5UO0nDEvrOlD6mMq1TNKMWQA0i8h85DG - 0ofU17yk8VSQDs7U3d7pvb2uXveFo7vNLnKR+Pobu8e/+E1xna2v1AfjlI4zs0h9VJD2gybVziL1UU2a - 99Cleawr56jFbchzVFo+RMsZ88KaPqQ+plI9oxRDBuADR5+1ItJY+pD6mpc0ngrSwZm62zu9t9fVre/5 - oPja/F239WUu373j8N/F9bY+Uh+MUzrOzCL1UUHaD5pUO4vURzVp3kOX5rGunKMW5xy1qjSnJtXOIvUx - leoZpRgyAO/70VkrIo2lD6mveUnjqSAdnNfXA5+8b+yD4Ujv7XXxwv88NL4uf3OPXZ4S1936SK/POKVj - 5ixSHxWk/aBJtbNIfVST5j10aR7rwjlq7Zyj/ibNqUm1s0h9TKV6RimGDMB7fnjmikhj6UPqa17SeCpI - B+f19QAXRAYvvbfXxXV32DG+Ln+z6Wabdf/2iaPi+ltX6fUZp3TMnEXqo4K0HzSpdhapj2rSvIcuzWNd - OEetnXPU36Q5Nal2FqmPqVTPKMWQAXjnD85cEWksfUh9zUsaTwXp4Ly+7rebCyJDl97by/WU1x8cX5M1 - 3WjHf4zrcF2l12ac0jFzFqmPCtJ+0KTaWaQ+qknzHro0j+Vyjlo+56j/lebUpNpZpD6mUj2jFEMG4B3f - P3NFpLH0IfU1L2k8FaSD8/q6rwsig5fe28vx1iNP7ba95nXja5Lt/voPx3W5LtLrMk7pmDmL1EcFaT9o - Uu0sUh/VpHkPXZrHcjhHrTvnqGEcb1I9oxRDBuCt3/vrSWIFpLH0IfU1L2k8FaSD8/r65ye5IDJ06b29 - HDs/7/Xx9VjcNlfbvnvjt0+J63O50usyTumYOYvURwVpP2hS7SxSH9WkeQ9dmsdyOEetO+eoYRxvUj2j - FEMG4M1Hnbki0lj6kPqalzSeCtLBeX3d2wWRwUvv7bV57WG/77a+7BXi67G0++/x0rhOlyu9ZgXp+MHy - veWoM+J6rSDtB02qZeljeqofujSPtXGOWn8b+zkqzalJtbNIfUylekYphgzAG7575opIY+lD6mte0ngq - SAfn9XWvJ7ogMnTpvb0293z8c+NrsXZbbHWJ7mVfODau1+VIr1lBOn6wfG/49qlxvVaQ9oMm1bL0MT3V - D12ax9o4R62/jf0clebUpNpZpD6mUj2jFEMG4HXfOWNFpLH0IfU1L2k8FaSDM3VPUOm9vZQXf/YX3UW3 - 3Cq+Fstzy3s/Iq7b5UivV0Ha51i+1x7+57heK0j7QZNqWfqYnuqHLs1jKc5Rs9uYz1FpTk2qnUXqYyrV - M0oxZABe++0zVkQaSx9SX/OSxlNBOjhTd3un9/ZSbn3/x8TX6dP1b3u37sY73WfFXO4q28Vx9WmP93w1 - rt+1Sa9VQdrnWL6Xf+XEuF4rSPtBk2pZ+pie6ocuzWMpzlH92FjPUWlOTaqdRepjKtUzSjFkAF79rTNW - RBpLH1Jf85LGU0E6OFN3e6f39mKefeB3uk023TS+Tl9ucLt7xL7n6dkf+na32eYXiePry9VvfIvuVUec - HvtfSnqtCtI+x/K94DM/j+u1grQfNKmWpY/pqX7o0jwW4xzVn431HJXm1KTaWaQ+plI9oxRDBuCVR5yx - ItJY+pD6mpc0ngrSwZm62zu9txdzg9vdM75GXzbdbPPuWQcdFfuet7s94XlxjH166AveHvteSnqdCtI+ - x/LtdfBRcb1WkPaDJtWy9DE91Q9dmsdinKP6tTGeo9KcmlQ7i9THVKpnlGLIALz88DNWRBpLH1Jf85LG - U0E6OFN3e6f3drLrmz8bf75PO/7L7rHvlfDSb5zSbXvtG8dx9mXry23bvfCQk2L/i0mvU0Ha51i+3d7x - pbheK0j7QZNqWfqYnuqHLs0jcY7q38Z4jkpzalLtLFIfU6meUYohA/DS//nrQXQFpLH0IfU1L2k8FaSD - M3W3d3pvr+4l3zy9u8r1d4g/35eLXfKy3b6f/03sf6Xs9u6vb/Dbr+/wyGfFvheTXqOCtM+xfLu88kNx - vVaQ9oMm1bL0MT3VD12ax+qco/KY+7CxnaPSnJpUO4vUx1SqZ5RiyAC86K8njZWQxtKH1Ne8pPFUkA7O - 1D1Bpff26h70onfHn+3TvZ71mtj3SrvdLs+I4+3LZhe5aLfHwT+IfSfpNSpI+xzLd+9nvjqu1wrSftCk - WpY+pqf6oUvzWJ1zVB5zHza2c1SaU5NqZ5H6mEr1jFIMGYAXHHb6ikhj6UPqa17SeCpIB2fqbu/03l5o - 36/8sbv0tlePP9uXbba7fve8r50S+19p+xzyh+5yV7t2HHdfrnf7e8e+k/TzFaR9juW7zUN3j+u1grQf - NKmWpY/pqX7o0jwWco5yjupTmlOTameR+phK9YxSDBmA53399BWRxtKH1Ne8pPFUkA7O1N3e6b290D/u - /vL4c316+Gs+Fvseike96Qtx3H3a+bWfiH2vLv1sBWmfY/mudYs7x/VaQdoPmlTL0sf0VD90aR4LOUc5 - R/UpzalJtbNIfUylekYphgzAPoeeviLSWPqQ+pqXNJ4K0sGZuts7vbennvHpE7ott750/Lm+XPs294h9 - D83NH/jEOP6+XH6763fPOeSU2PdC6WcrSPscy7Pvoadt8P10JaX9oEm1LH1MT/VDl+Yx5Rz1N85R/Uhz - alLtLFIfU6meUYohA7D3105fEWksfUh9zUsaTwXp4Ezd7Z3e21O3fOhT48/0ZZPNNut2fd+Rse+hecZn - f9dd8opXi/Poy12f+u+x74XSz1WQ9jmW57EHfD2u0yrSftCkWpY+pqf6oUvzmHKO+hvnqH6kOTWpdhap - j6lUzyjFkAHY86unrYg0lj6kvuYljaeCdHCm7gkqvbebJ3zoR5OHqaWf6cvNHrRb7HuoHvyqj8V59GWL - S1yq2/3jx8W+p9LPVZD2OZbnVg/bI67TKtJ+0KRalv69KNUPXZpH4xy1Jueo2aU5Nal2FqmPqVTPKMWQ - AXjmV05bEWksfUh9zUsaTwXp4Ezd7Z3e28317/qQWN+XLbe+TPfkT/469j1kN7rnLnE+ffn7+zw29juV - fqaCtM+xdrt//Njuohe/ZFynVaT9oEm1LP17UaofujSPxjkqc46aTZpTk2pnkfqYSvWMUgwZgKcfctqK - SGPpQ+prXtJ4KkgHZ+pu7/TefvhbD421fbrTU18d+x66J33ihO7il902zqkXm2zS7fz2b8S+m/gzBaR9 - jqXt8cU/ddvd4q5xfVaS9oMm1bL070WpfujSPJyjFuccNZs0pybVziL1MZXqGaUYMgBP/fJp9CSt3wrS - wZm62zu9txmutA0rSPsci3v0e7/bXfkmt4nrspq0H7B+0vodujQPhittwzFJc5q3NC5GKYYMwO5fPI2e - pPVbQTo4U3d7p/c2w5W2YQVpn+N/7f6FU7onfOKE7mFvP6y7y7Pf1F1rx3t1m2y6WVyPFaX9gPWT1u/Q - pXkwXGkbjkma07ylcTFKMWQAnvSF0+hJWr8wNum9zXClbQiVpf2A9ZPW79CleTBcaRuOSZrTvKVxMUox - ZACe8PlT6UlavzA26b3NcKVtCJWl/YD1k9bv0KV5MFxpG45JmtO8pXExSjFkAB73uVPpSVq/MDbpvc1w - pW0IlaX9gPWT1u/QpXkwXGkbjkma07ylcTFKMWQAHvPZU+lJWr8wNum9zXClbQiVpf2A9ZPW79CleTBc - aRuOSZrTvKVxMUoxZAAe9ZlT6UlavzA26b3NcKVtCJWl/YD1k9bv0KV5MFxpG45JmtO8pXExSjEEAAAA - qCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAStp0000n0rKN1SabbNJttdVW3fWu - d73u0Y9+dKxZaLPNNusud7nLdXe84x27293udrEGRiCGAAAAJe2+++7d6aef3k3bSSed1P3pT3/qzjnn - nO7444/v3vOe93Tbbbdd/NlZXPKSl+x++MMfdj/72c8mFx9SzUrYcsstuyOPPPKCtdF1Bx54YKyb2nXX - Xbvf//73F1R3c7sgsuOOO3Yf+9jHuuc85zlx+S1vecvuy1/+cnfEEUd0v/rVr7q3vOUt3cUvfvH1rrvO - da5zwQz/1s4888zuMpe5zBq1jFYMAQAAymoXRabtmte85iS7yU1u0n3lK1+ZZO0P/u23336Nn5tFu8jS - LrqceOKJ3cUudrFYs5J+/etfT+Z++9vfPi5f6GEPe9ik9vvf/35c3pd258p97nOf7tBDD53019pDH/rQ - NepudrObdWeccUb3+Mc/fvLvHXbYYVL7zne+c73qmnbhZfX2kY98ZI06Ri2GAAAAZe2zzz6TP3Db3RoL - 83a3xI9+9KPJsnY3wsJlfdhmm23i3Qgr7UpXulJ3/vnnd8cdd1xcvrpXvepVk3X0jGc8Iy7vy+abb969 - 6U1v6h772MdO+jv77LMnd9qsXveZz3xmsnzhsnbXz5///Of1qmu+/e1vd9e97nUnY5jyUatyYggAAFDW - Zz/72ckfxm9+85vXWPav//qvk2XnnXfeRvPxiKc+9amTOe+///5x+ULtro320aJ2t8sVrnCFWNO3Zz/7 - 2ZPxtY+6pOXTj/Bc//rXn/z70pe+9OQCz1/+8pf1qmt38xx77LGrZJQUQwAAgJLaXSDTZ4jc//73X2P5 - DW94w8my1jaWB4Z+4xvfmMz3Lne5S1y+UHuWR2uf/vSn4/IN4XOf+9ykz7333jsub3f6tPa6171u8u/p - BZQPf/jD61X3zGc+szvggANWySgphgAAACXd7W53m/wRfO65507uEFh9+dWudrXJ8tbucY97rLKsfYTi - P/7jP7pTTjlljT+it9hii+7Vr351993vfrc7+eSTu3/6p3+6cNltbnOb7pvf/GZ32mmnrfFskkc96lHd - Mccc0/34xz/uvvjFL3ZXv/rVV1netOdotDsWvv71r0/+ffnLX37y3Is2jnRXx1LjbNpHP9rFhV/84heT - iw3tLok//vGP3UUucpE1alf3mte8ZrJu2rfRtGdwtAsj7QLTwQcfvEpdW94+jtIuOrR/twsp7d//8i// - skrd2rQLWO25H621/lLNK17xisnydtfK0572tMl6/ulPf9pd5SpXWa+6ww47bHKHUNuO7WM2y7lQxCjF - EAAAoKR20aK19kdvWt4erjptt73tbS/M2x/j7SMXN7/5zbvvfOc7kz+qF/5cuwDRXnP684973OMmebsw - 0i5mtNaegbHwIkx7QGhr7Y/u9u+jjz56chGjXTz553/+50l2z3vec3IhobX2LTVXvvKVJ3/Et7rW3v/+ - 91/4es3axtm+Mrd9k8xvfvOb7gY3uMHk4yGtffCDH1ylbjHtOSNtHu2ho6985Su7f/u3f5v8/MKPmNzo - Rjfq/vCHP0zyU089dfIQ2Qc96EGTf6/rg0nvete7Tn6ufRtQ+7hOqmnr9IQTTpjUtdbGlZ7Vspy6bbfd - dnKBaGFrF8/ufOc7r1JHCTEEAAAoqX0zSmsvetGL4vKHP/zhk+Xtj+LLXvayk6z9Id2em9HutmgP12x/ - nE/v1mja3SHtjoLf/e53k7sspt9cc6lLXap7xzve0e22226T1zzooIMu/Jlm+nW3973vfSf/nj7Qtf1R - 3v7dXvfjH//45KM7rbW7Qg4//PDJxYX2kY7W7n3ve1/4emsbZ9PukmhjnX4c6KY3venkdR7ykIesUpe0 - r6xtrV0QefGLXzzJXv7yl0+y9lyWad2HPvSh7lrXutZkrK3d8Y53nFyI+fnPfz5ZNq1bjuldHf/5n/8Z - l9/61reeXChqFzraHR+tfelLX1rvuuYSl7hEt/XWW3cPfOADJw9cbW31bUcJMQQAACin3V0xbYt9vWy7 - 06O1I4444sKs3UnQ2iMe8YjJHRE/+MEPJndWTJe3OxfaxZDWpneGLNQeBtra3e9+91XydmGhXXhpF07a - hZTps00WfgtK+3jLLrvsMsnbR2vaGNpdDe0OjHYBZeFdE2sbZ7so0Pp7/etff2HWvinmrLPOit/esrrp - xYl2kWX6jSvtoz6tPeEJT5j8u43nfve73+T/3/jGN06WTb/mtl2oef7znz/5/+Vqd7m01r5pZvVl7aNB - 7Q6U5trXvnb3yEc+clLb2vQi07rUJdM7YFa/sEQJMQQAACinPdeitfZxk3YHxerL2wWTM888c1LTnu3R - snaXRnu+Rmvtj/OXvexlk2z1n91vv/0mNe0OjYXP4mjPDGkXIX71q1+t8bWtJ5544uRCSvv/9vGc1hZe - iJn66Ec/Olk2fdDnHnvsMfl3u4NhWrOccbYLM+15HO1rdtu/L3rRi07u2vj85z+/St1ipg8lvdWtbjX5 - 9/R5LO2ui/axmNXr99prr8ny6UWQNrfpzy5H+5ri6cdX2rNdVl/eviWotYXPUWlfl9va2972tnWuS571 - rGdN6lZ/RgolxBAAAKCc973vfZM/btvHUNLyj33sY5PlX/3qVy+8eLHTTjtNsvYsjulHYZKtttpq8lyO - 1u51r3tdmLePlrT2whe+cJX6pt2d0T6S0R4c+oEPfGDyrIrVH+DZPj7T7iRpd4S0j/C0ixztAkR7zkhb - Pr0QsbZxTr89573vfe+FWXsOSGvtj/6Ftcn02SjtG2mmWVtPrU2fd7K6dmdIa+3OkjaP9nGlVLeY9gDW - 1n7yk5/E5dM7bxY+qHV6EWbhM1GWW5e07dLa9AIZpcQQAACglHaB47e//e3kj9t99tlnjeUvfelLJ8va - x0zanQnTfNddd53k7cGm06z9cTy9y6I9t+MBD3jA5P/bXRmtteeQtH+3u1DaHSOtXec61+ne/va3Ty6c - TF+nXUhoFzfaN9O0j2Ss/q02zfSCSvsDvv27fXSktfbfNo/pR0nWNs7pnQ7TiwLtjpT2EZLW2kdp2pgX - +xaXZs8995zUtq+kbf9ur93avvvuu0bt1HRMz3ve8ybPbFnXiwrvete7Jj/fnsOSlrcHyrbWPiI0zaYX - YZ7ylKesU117xkl7gOvCO4fax43aHTXtbpJ0RxGjF0MAAIBSFj434gUveMGF+fWud70LP5LS7gZoFzgW - /lz7I3ra2je+tIeITr9Ktnnta187WdY+GtP+6G8fgZk+jPVOd7rTZFlr7Y6O9hGT6c+1r9Jtrd2hsNi3 - p7SLJ+2rX9tdJNNnfBx66KGTn2sXPhZ+BGRt43zd6143Wda+Arg9P6V9fKjdedJae9Bpe1bGtDaZ3inR - vjWnXThpD2zdfffdY+3U9CJMuyDSxr36R4aW0u5ymX6TTvtmoFRzhzvcYfKA2E9+8pOTddjunmkXltpH - htpdN+tSt/POO0/6ml58ueIVrzi5EPK9731vja/lpYwYAgAAlND+AG4f85g+i6K19tGU9sdwuxukfYyj - PfyzfU1t+vn2wNP27It28eCQQw7pdtxxx1WWt298aV9z257F8alPfWry0ZTpsvatLO1Bqf/zP/+zxuu3 - CxPtYaattT/Ob3GLW6yyvGkPaG1t4UNQ27jbs0cW3gHRrG2c7XkjbSztWRjtG2Yuc5nLTC44tAezPvjB - D16lNml3e7Sfb3289a1vnVxISnULTZ/d0Z490tZFqkna3Trtzoxpa9ur3V2TatsDXI866qjJx2raBYx2 - 4Sc9IHZtdVe4whUmH6Vq66St47ZN2l056dkolBFDAAAANpB2MaR9jKNdKGl3ILTWLti0rN2ZkH5mjKZf - I7z33nvH5Ytpd220j7CkZdCjGAIAALABtI/KtI9vHH744ZO7D9of/k984hMnH0Fp7dhjj13l4x5jNf3W - nOk348AAxRAAAIANYPqg0NWf2XGNa1xjkrc2fRDqWLSPmyz8qFB7Dku78+UNb3jDOj03BOYshgAAAGwA - 7Ztl2sdj2rfL3OhGN7owb9/y0tq73/3uVeqHrj2j5bjjjps8D2WXXXaZ3AFz2GGHTR7amuphQGIIAADA - BtK+9eQjH/nI5KLIkUceOXnYZ3uI52Me85hFv3FmqNp420Nc2wWRY445ZvLtNu2OkVQLAxNDAAAAgMpi - CAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkM - AQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKosh - AAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEE - AAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYA - AAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAA - AACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIA - AABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAA - AIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAA - AFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAA - ACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAA QGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAA qCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAA lcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACg shgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABU - FkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDK - YggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZ - DAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqL - IQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUx - BAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyG - AAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQ - AAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgC - AAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMA - AACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggA - AABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEA - AAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAA - AEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAA - AKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAA - AJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAA - oLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAA - VBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACA - ymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQ - WQwBAAAAKoshAAAAQGUxBAAAAKgshgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAq - iyEAAABAZTEEAAAAqCyGAAAAAJXFEAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBl - MQQAAACoLIYAAAAAlcUQAAAAoLIYAgAAAFQWQwAAAIDKYggAAABQWQwBAAAAKoshAAAAQGUxBAAAAKgs - hgAAAACVxRAAAACgshgCAAAAVBZDAAAAgMpiCAAAAFBZDAEAAAAqiyEAAABAZTEEAAAAqCyGAAAAAJXF - EAAAAKCyGAIAAABUFkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAAAo6u+6/w/JaWcCJSMM6wAA - AABJRU5ErkJggg== + FkMAAACAymIIAAAAUFkMAQAAACqLIQAAAEBlMQQAAAAo6u+6/w/JaWcCJSMM6wAAAABJRU5ErkJggg== - iVBORw0KGgoAAAANSUhEUgAAASsAAAEVCAYAAAC41MNpAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRABGAIIAtABNru0AAAAHdElNRQfeCRAKGzlCTSRV - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAABQ0SURBVHhe7d2JlxzVfcXx - /HVO4uxOsB3HDlnseMviLCQxyUkODhg7YIwXFrGFTbEdG+NjhEE7EosEaEFoF0JoQwsSQhJakXQqfUtd - mtdvbk1Vd9do9FN/7zmfA0y9qmKmZ27X1lW/9rFvLCgA4FpHWQEIgbICEAJlBSAEygpACJQVgBAoKwAh + iVBORw0KGgoAAAANSUhEUgAAASsAAAEVCAYAAAC41MNpAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB94JEAobOUJNJFUAABQ0SURBVHhe7d2JlxzVfcXx/HVO4uxOsB3HDlns + eMviLCQxyUkODhg7YIwXFrGFTbEdG+NjhEE7EosEaEFoF0JoQwsSQhJakXQqfUtdmtdvbk1Vd9do9FN/ + 7zmfA0y9qmKmZ27X1lW/9rFvLCgA4FpHWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEI + gbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCs + AIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAh UFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQV gBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAE ygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbIC - EAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRA - WQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYA - QqCsAIRAWQEIgbICEAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbIak0s6/U/uXlKse/u94vS5 - j4q1vX9+5ruLB6aPwsWNA64nlNWYXNLp63cd6X/1clRY6fRRuLhxwPWEskp88s5Fxf0LNxWvbDtYHDx2 - utwaOtOz98jJ4tUdh4r7nt9U/MUPlw3M45JO1/xptMx0+ihc3LguuLhxKRc3DhgGZdXzR3csLJ5ft6f4 - 6MLF/p/WzEnndUmn51tW2iVMp4/CxY3rgosbl3Jx44BhTHxZ/csTq4oTp8/1/6TaJZ3fJZ3+2f4xK21h - qbh0DCudPgoXN64LLm5cysWNux65uHEY3kSX1W0/W9t6aypNugyXdPpscHHjuuDixqVc3LjrkYsbh+FN - bFl9ed6KkYpKSZfjkk6fDS5uXBdc3LiUixt3PXJx4zC8iSyr3/ivBcU7h0/0f5UGc+DYqeJeHUi/Z3nx - W7c9W/zu7b8qvnDvC8WDi7cU+45+WI5Jl+WSTp8NLm5cF1zcuJSLG3c9cnHjMLyJLKt//99X+79Gg1n0 - xr7i472CcvPIb966oPj56l0DX3MZZnpFy/7OL98oVm0/WBw+fro499GF4tiHZ4sNu48Wdy/YMDDWJZ0u - jyzd2p8ymKMnzxZfuO+FaePruLhxKRc3TnTd2fyVO4ot+44VH5w6V27tHjlxpti452j5pvGJbz9v5xMX - ff1bP19XvNn7uZ08c75cXj7fOOus0zZu3n967JXiF6/uKt46cLx8zfX/o//33e+dLJ5ds7s8rurmmzQT - WVbLN+7v/+pMRQe/P/aNZ6aNbeIyzHT5m4deLLfoZko63iWdXldUhz44Xdz4/aUDY5u4uHEpFzfunuc2 - Nu6Kq1y/9shLdn6Xp1a/3f+3qaTzjLvOOm2TzvO57y0tNu15vz9l5mza+345Pp1/0kxkWe3pvWPluan3 - 7ubGNnEZZrreVc+ev9CfUp90Hpdq2sNLtvS/Mhjtwo5y9XxXyZc7b9Hm/pTmaCvTbQ22TTW+i3XWaZtq - /JfmrRj6LLTGa750vZNkIsvq1NnBCzWV37v9OTu2iUvb6drd0GZ/m7RZ5kM1RfX2oePFDXcuHFhGW10l - Xeaf/WBZceHipf6Uy/nw7PniP3/8Wvk6aDf9w95uUBp9D/mWb9t0uc46baOxOg6qXf1Rovl+55u/mrb+ - SUBZ9TMXZfX4C9v7X5mK/qB+8vLO4sbeH5d+Kf/u4ZfKq+eblllXVFv3HSv+YIRjMJWuki5Tx2fyfP/Z - NwfG6JMEeVQs6RgX7eJpWZ/47+fLUrh5/upybFfrbOKSj/mfZX43Xbuwf9rbTddx07+8Z3mxYM3u4tKl - wYJVtPWcL3MSsBvYz1zsBu48eLz/lanoeFM6v9M2b7xzpPyDdctoq6uky3Q//099Z9HAGF1Mm2fxhn0D - Y1weXbZtYEylq3U2ccnHuNddb1D5OHls+bb+iKlsf/cDO/Z6xwH2fsqPwdxydQ+wnzHHqvI/IKdNtOwb - 7hht1y/l4salXNLp+ecl22bPkZMDy3GpO4HQ1TqbuORj3DHKutddhwrydPH50ogmsqzqL13YO+OlC7o+ - q8tLF2azrJQN7xwtrxVzy2jLxY1LuaTTdfB6lKhw0uW46BKQdEylq3U2ccnHuMMQw5TVsP9P14uJLKum - i0J1elt3V1BxVReFPrBo80gXhbpU07rcDaw7Bf76W4eLj986emG5uHEpl3S67mIxatLluKTTU12ts4lL - Pmbb/mP9KVOp2w10l6Hoeiw39no3kWUlX3lgZeP1NnVJl+PSdro7HqED7D9+6a1yd2aYA+w6iK6zVy4v - bT1YFnS6jLZc3LiUSzr96d7WaZ5P39W8RZlzceOkq3U2ccnH1F1ecuUAe+/NRW+WOingDrDrAH2+zEkw - sWUlV+ODzC7VNBVMl5cuaFfi3ff9xaXLNu7vjen+mJzjkk5XEee7ZWt2Hi6+eP+KcrdVFz/qTFgenTBI - l+OSTk91tc4mLvkYnXnWFfOjRPONeuY6uokuK5ntW8S4pNO7vihUf3S6AttF9+wa9iSCixuXcsnH6KNF - bquhLvoZffXBlQPLcEmn57pYZxMXN+6vH3xx2nVdTdF4zeeWNwkmvqykvPne+r2tt7LSeV2GmS5/+3C3 - H7fRldcnTvs/BO1apGObuLhxKRc3Tlu2bd4otDXxz49P/3ycSz4mN+46m7i4cfLnvV09XYbQJjrOpQtb - 3XImBWWV0G7UvIWbi1XbD5Wfo9PZOp150YH113YcLi8a1N0Y0nlchple0Vmsu8oPMh+68kHm46fOlR/I - zS9edEmni451ubONio6J5ePruLhxKRc3TrRLow8P6+d7uPcz19aMvneVhb6m773uWjEXNy43zjqbuLhx - qa8/ubr8wLJO+uhN5sLFi+U/9d/6uqa7+SYNZQUgBMoKQAiUFYAQKCsAIVBWAEKgrACEQFkBCIGyAhAC - ZQUgBMoKQAizUlb6cLDuxqmPMpy/cLG82ZjuuLj0zf3lM93GvdXu1dAUfQxH90jSswb/bf6rvXmGv6MB - 5l7dE28Wrt9rx2PudFpWug+PCqkpeqrIEy9st8u4Vgwb3UvqHx592S4L1y53b3ZFb0aT+hSZa1WnZbV8 - 07v9l7o52iJxyxiXixvXZJRcvHSpfMy8Wx6uPfqw90y54xfr7XzXMhc3LqLOyqruvuYuuqfQ5+8dvHtB - V1zcuCbjZFIflRSN7u81U/TofjfftczFjYuos7J6edvB/o9mKq/0vqZ79uhOjLpnk26/oazaftAuowsu - blwTF31dtwf+5J2LyuNyz7y+294DS2V80+OjPdoLV4eOm2pXrynDPm5/rrm4cRF1Vlbvm7tT6kGT+bj5 - K3eUm9/517vi4sY1cXHj9DBKnUjIoxMKv27G49qgu4a2iX5f3fzXKhc3LqLOysptYXzzqbV2bJPPfHdx - +UuyZd+x4oNT58pl68ZoG/ccLW+apscT5fO0TT5fHRc3TrT16G5NPNPTfHU7Y921U08q0X3Y9T2ePHO+ - 2P3eyfKGa9pyc/NVXPR13fZW91uvbuCnGwdqd0cPIKjm1R0n9bX9vWkao3/q6Sptf676etfrqYzy2o9i - 897pTwNasmFf/9+mojcid6ZXjznLU/eEmidX7OiPmIq7t7t+j3752jtXfl66e6weIlF9zy7VvG1Tja+M - s86Ki76uM/+6eaR+r/U65vMNq7Oycg8+0O6Qdv10oPKGO9s9cFOPwXLFl0b3GP/aI4NbZ22TzjMTFzeu - ortv5ln65vSTCLpHet1js/Js6v1BaXy+DHHR48J0kN9Fl5Dc/OTq8jIL/buL7kz5h9nWsMtsrEdGfe2H - pa3hPNol/P1vPWd/j90bh3bz8+ge6fllOTqj6G6j/I+PDh4muK9XxHXfu0q77phwNX/bdLnOiosKL08+ - 37A6K6sXtxzo/y/5qLj0bqZbxtadEq675sVF7wK613g1b9uk65uJixtX+dK8Ff1RU9G7VT5m2IdTaLzm - S5cjo0S3yq27N3uV/8u2DkbJKOsZ57Uf1k9f2dlf0lSqs9Pa2s2jy3HyZYh709Gtr9MxKuA82ipLx2ie - pugRbS7VMtqmy3VW2iafb1idldWXe39Qde+kebTrkF+TpF2G/Iej67G0K6V7Zqvl86eB6NqmahO9bdJ1 - zsTFjav8dq+A8+iPqpqud1x936NE8+UFP1vRo7yu9nrGfe2HoRMkM209ucsZ9Dpqqytf1r8+sbo/Yira - bdQ6NF3/PHhs+mt+02NTW1XaDWvampwp1XLapst1jrLucXRWVqIXzx1od9EvgAqumte9o+UPSnDvBvlx - IZd0elsublzFlZUe2FBN14MpXa482PK2Z8vdEz27zj0uKr8cwkXv9FqWntbjzs4qOkamM1x6OEZ1djZN - WrBXaz1dvfZt3PKT1/tzT0XHxK4U3y3P2CcN3b1gw8ByKjq2lkfHajRNx2zz6BhOOr/73vWmr+9fBakz - z9rqrNsQSJclLvmYq7FOlaGWp5NseqO+ef74D73otKxElyl8++l1xcrN7zY+F02XNlTzuSuJ9YueLvuz - dy/pT5nK4g2Dx4Vc0ultubhxFRVvnnQ30D0qvu6ArHtSsx7ZlI5xSXeNbuxtrbikl1ToWjeXarq4dL2e - rl77NvR06zz5LumPXpx+/FGllI6p6NhcnvLx7r3S0z/z5I/30lnjPHrCUjpG6naT83Eu+Zirsc5Hl22b - Nm5cnZdVSpvB2t3T9UiupXWWoBrb5poXF/3g03W6pNPbcnHjKu4Ae/rH5M4W5n+QFZ2JyXO69/NJx7jo - 407VdD3ayyXdndHWnEs1XVy6Xk9Xr32TP75rsT0x8FfZ8S+VsUv+GLaKe/afCjCPtkjzed33fkNvizUf - p60dl3ycSz7maqxzNq5Pm9WySrkzC9pUrKZrt2CU6Aefrsclnd6WixsnOgbgntGn77kaow9z5xmmrEb5 - Pl2GHeOSTu9iTFevfZNHlvpd8bap2xL+jx+91h8xc9xZxeu1rPQmlo8bV6dlpQOHz63bUx6/yafp0oU8 - l48VXJ6uOxiMmnQ9Lun0tlzcOL3buotCdXo+PQCsJ+rmqfvld39U5a5FMsYlnd7VGJd0ehdjunrtZ9Tb - LdNB/XGiyybshb69Zbvd/DS6DGXafD1uF9jtktWdvcvHueRj5mKdXei0rKpTuTp7pVO2n/veknKXQccs - Xn9r+kFWHZyt5n169fSDfp++y295zMTFjWvioq/rl1XvQjr2oIvp3FkV7Wr8fXYtkA6Qu1w5wN77OemC - Sh38dAfYdYA+XZ5LOr2rMS7p9C7GdPXaz0RvpF0k3VpOuQP3aXTyyc331Krp1yOlB7v1Jq/roeq2PvPl - ueRj5mKdXeisrHQh4LBJz+ZoHzf/4azZebj44v0ryoP2ujhSZ8ry5FcCu6TT2xon7l1Kp+C1JTlKNJ/m - T5fnkk7vaoxLOr2LMV299jPRBbpdRCeO3PK1dbXr0In+qMHUHZwXvVGNuhus5MtzycfMxTq70FlZbTWn - cGfKS1sPTFuGPq/ltirqooPWX31w5cAyXNLpbY0S/b8/NMMdF/QRlaYzpHk0XvPly3KZjTEu6fSuxnTx - 2tfR1oL746wtnj53yyNtgbjPvMqtP13THzUYvZG78RVt0TSlrlzyZbnkY2Qu1jmuzsrqKw+sLD+/1RT9 - Qj67dvfAGaXUbT9bW1613RRtbeSngcUlH9PGsNFxgPRivzo6GO/OHrnoOJcumHTLcZmNMS7p9C7HjPva - 16n7w2wqu7r7Xf3wuY12vI5R6rOdabb2XkM/dpCu46orB10g6y6RUPLluORjKnOxznF0esxKVFr6OEP1 - QdQLFy+WH73QH6i+np8mdrTLow+t6mJCHbzWu6h+qPol1df0y1d3a2QXN65JU3QpgU6d64SCXtRhr6b+ - eu/dVh9Y1oF4/Xyqn5P+W1/XdDdfxWU2xrik07scI+O89nV2HJj+5rB+V7tdSHdiJD/Zkbr9qXX9UZdz - +XfDj81pd1fH7/ShcH3POvarD4JXx+9c8mW45GNSc7HOUXVeVgAwGygrACFQVgBCoKwAhEBZAQiBsgIQ + EAJlBSAEygpACJQVgBAoKwAhUFYAQqCsAIRAWQEIgbIak0s6/U/uXlKse/u94vS5j4q1vX9+5ruLB6aP + wsWNA64nlNWYXNLp63cd6X/1clRY6fRRuLhxwPWEskp88s5Fxf0LNxWvbDtYHDx2utwaOtOz98jJ4tUd + h4r7nt9U/MUPlw3M45JO1/xptMx0+ihc3LguuLhxKRc3DhgGZdXzR3csLJ5ft6f46MLF/p/WzEnndUmn + 51tW2iVMp4/CxY3rgosbl3Jx44BhTHxZ/csTq4oTp8/1/6TaJZ3fJZ3+2f4xK21hqbh0DCudPgoXN64L + Lm5cysWNux65uHEY3kSX1W0/W9t6aypNugyXdPpscHHjuuDixqVc3LjrkYsbh+FNbFl9ed6KkYpKSZfj + kk6fDS5uXBdc3LiUixt3PXJx4zC8iSyr3/ivBcU7h0/0f5UGc+DYqeJeHUi/Z3nxW7c9W/zu7b8qvnDv + C8WDi7cU+45+WI5Jl+WSTp8NLm5cF1zcuJSLG3c9cnHjMLyJLKt//99X+79Gg1n0xr7i472CcvPIb966 + oPj56l0DX3MZZnpFy/7OL98oVm0/WBw+fro499GF4tiHZ4sNu48Wdy/YMDDWJZ0ujyzd2p8ymKMnzxZf + uO+FaePruLhxKRc3TnTd2fyVO4ot+44VH5w6V27tHjlxpti452j5pvGJbz9v5xMXff1bP19XvNn7uZ08 + c75cXj7fOOus0zZu3n967JXiF6/uKt46cLx8zfX/o//33e+dLJ5ds7s8rurmmzQTWVbLN+7v/+pMRQe/ + P/aNZ6aNbeIyzHT5m4deLLfoZko63iWdXldUhz44Xdz4/aUDY5u4uHEpFzfunuc2Nu6Kq1y/9shLdn6X + p1a/3f+3qaTzjLvOOm2TzvO57y0tNu15vz9l5mza+345Pp1/0kxkWe3pvWPluan37ubGNnEZZrreVc+e + v9CfUp90Hpdq2sNLtvS/Mhjtwo5y9XxXyZc7b9Hm/pTmaCvTbQ22TTW+i3XWaZtq/JfmrRj6LLTGa750 + vZNkIsvq1NnBCzWV37v9OTu2iUvb6drd0GZ/m7RZ5kM1RfX2oePFDXcuHFhGW10lXeaf/WBZceHipf6U + y/nw7PniP3/8Wvk6aDf9w95uUBp9D/mWb9t0uc46baOxOg6qXf1Rovl+55u/mrb+SUBZ9TMXZfX4C9v7 + X5mK/qB+8vLO4sbeH5d+Kf/u4ZfKq+eblllXVFv3HSv+YIRjMJWuki5Tx2fyfP/ZNwfG6JMEeVQs6RgX + 7eJpWZ/47+fLUrh5/upybFfrbOKSj/mfZX43Xbuwf9rbTddx07+8Z3mxYM3u4tKlwYJVtPWcL3MSsBvY + z1zsBu48eLz/lanoeFM6v9M2b7xzpPyDdctoq6uky3Q//099Z9HAGF1Mm2fxhn0DY1weXbZtYEylq3U2 + ccnHuNddb1D5OHls+bb+iKlsf/cDO/Z6xwH2fsqPwdxydQ+wnzHHqvI/IKdNtOwb7hht1y/l4salXNLp + +ecl22bPkZMDy3GpO4HQ1TqbuORj3DHKutddhwrydPH50ogmsqzqL13YO+OlC7o+q8tLF2azrJQN7xwt + rxVzy2jLxY1LuaTTdfB6lKhw0uW46BKQdEylq3U2ccnHuMMQw5TVsP9P14uJLKumi0J1elt3V1BxVReF + PrBo80gXhbpU07rcDaw7Bf76W4eLj986emG5uHEpl3S67mIxatLluKTTU12ts4lLPmbb/mP9KVOp2w10 + l6Hoeiw39no3kWUlX3lgZeP1NnVJl+PSdro7HqED7D9+6a1yd2aYA+w6iK6zVy4vbT1YFnS6jLZc3LiU + Szr96d7WaZ5P39W8RZlzceOkq3U2ccnH1F1ecuUAe+/NRW+WOingDrDrAH2+zEkwsWUlV+ODzC7VNBVM + l5cuaFfi3ff9xaXLNu7vjen+mJzjkk5XEee7ZWt2Hi6+eP+KcrdVFz/qTFgenTBIl+OSTk91tc4mLvkY + nXnWFfOjRPONeuY6uokuK5ntW8S4pNO7vihUf3S6AttF9+wa9iSCixuXcsnH6KNFbquhLvoZffXBlQPL + cEmn57pYZxMXN+6vH3xx2nVdTdF4zeeWNwkmvqykvPne+r2tt7LSeV2GmS5/+3C3H7fRldcnTvs/BO1a + pGObuLhxKRc3Tlu2bd4otDXxz49P/3ycSz4mN+46m7i4cfLnvV09XYbQJjrOpQtb3XImBWWV0G7UvIWb + i1XbD5Wfo9PZOp150YH113YcLi8a1N0Y0nlchple0Vmsu8oPMh+68kHm46fOlR/IzS9edEmni451ubON + io6J5ePruLhxKRc3TrRLow8P6+d7uPcz19aMvneVhb6m773uWjEXNy43zjqbuLhxqa8/ubr8wLJO+uhN + 5sLFi+U/9d/6uqa7+SYNZQUgBMoKQAiUFYAQKCsAIVBWAEKgrACEQFkBCIGyAhACZQUgBMoKQAizUlb6 + cLDuxqmPMpy/cLG82ZjuuLj0zf3lM93GvdXu1dAUfQxH90jSswb/bf6rvXmGv6MB5l7dE28Wrt9rx2Pu + dFpWug+PCqkpeqrIEy9st8u4Vgwb3UvqHx592S4L1y53b3ZFb0aT+hSZa1WnZbV807v9l7o52iJxyxiX + ixvXZJRcvHSpfMy8Wx6uPfqw90y54xfr7XzXMhc3LqLOyqruvuYuuqfQ5+8dvHtBV1zcuCbjZFIflRSN + 7u81U/TofjfftczFjYuos7J6edvB/o9mKq/0vqZ79uhOjLpnk26/oazaftAuowsublwTF31dtwf+5J2L + yuNyz7y+294DS2V80+OjPdoLV4eOm2pXrynDPm5/rrm4cRF1Vlbvm7tT6kGT+bj5K3eUm9/517vi4sY1 + cXHj9DBKnUjIoxMKv27G49qgu4a2iX5f3fzXKhc3LqLOysptYXzzqbV2bJPPfHdx+UuyZd+x4oNT58pl + 68ZoG/ccLW+apscT5fO0TT5fHRc3TrT16G5NPNPTfHU7Y921U08q0X3Y9T2ePHO+2P3eyfKGa9pyc/NV + XPR13fZW91uvbuCnGwdqd0cPIKjm1R0n9bX9vWkao3/q6Sptf676etfrqYzy2o9i897pTwNasmFf/9+m + ojcid6ZXjznLU/eEmidX7OiPmIq7t7t+j3752jtXfl66e6weIlF9zy7VvG1Tja+Ms86Ki76uM/+6eaR+ + r/U65vMNq7Oycg8+0O6Qdv10oPKGO9s9cFOPwXLFl0b3GP/aI4NbZ22TzjMTFzeuortv5ln65vSTCLpH + et1js/Js6v1BaXy+DHHR48J0kN9Fl5Dc/OTq8jIL/buL7kz5h9nWsMtsrEdGfe2Hpa3hPNol/P1vPWd/ + j90bh3bz8+ge6fllOTqj6G6j/I+PDh4muK9XxHXfu0q77phwNX/bdLnOiosKL08+37A6K6sXtxzo/y/5 + qLj0bqZbxtadEq675sVF7wK613g1b9uk65uJixtX+dK8Ff1RU9G7VT5m2IdTaLzmS5cjo0S3yq27N3uV + /8u2DkbJKOsZ57Uf1k9f2dlf0lSqs9Pa2s2jy3HyZYh709Gtr9MxKuA82ipLx2iepugRbS7VMtqmy3VW + 2iafb1idldWXe39Qde+kebTrkF+TpF2G/Iej67G0K6V7Zqvl86eB6NqmahO9bdJ1zsTFjav8dq+A8+iP + qpqud1x936NE8+UFP1vRo7yu9nrGfe2HoRMkM209ucsZ9Dpqqytf1r8+sbo/YirabdQ6NF3/PHhs+mt+ + 02NTW1XaDWvampwp1XLapst1jrLucXRWVqIXzx1od9EvgAqumte9o+UPSnDvBvlxIZd0elsublzFlZUe + 2FBN14MpXa482PK2Z8vdEz27zj0uKr8cwkXv9FqWntbjzs4qOkamM1x6OEZ1djZNWrBXaz1dvfZt3PKT + 1/tzT0XHxK4U3y3P2CcN3b1gw8ByKjq2lkfHajRNx2zz6BhOOr/73vWmr+9fBakzz9rqrNsQSJclLvmY + q7FOlaGWp5NseqO+ef74D73otKxElyl8++l1xcrN7zY+F02XNlTzuSuJ9YueLvuzdy/pT5nK4g2Dx4Vc + 0ultubhxFRVvnnQ30D0qvu6ArHtSsx7ZlI5xSXeNbuxtrbikl1ToWjeXarq4dL2erl77NvR06zz5LumP + Xpx+/FGllI6p6NhcnvLx7r3S0z/z5I/30lnjPHrCUjpG6naT83Eu+Zirsc5Hl22bNm5cnZdVSpvB2t3T + 9UiupXWWoBrb5poXF/3g03W6pNPbcnHjKu4Ae/rH5M4W5n+QFZ2JyXO69/NJx7jo407VdD3ayyXdndHW + nEs1XVy6Xk9Xr32TP75rsT0x8FfZ8S+VsUv+GLaKe/afCjCPtkjzed33fkNvizUfp60dl3ycSz7maqxz + Nq5Pm9WySrkzC9pUrKZrt2CU6Aefrsclnd6WixsnOgbgntGn77kaow9z5xmmrEb5Pl2GHeOSTu9iTFev + fZNHlvpd8bap2xL+jx+91h8xc9xZxeu1rPQmlo8bV6dlpQOHz63bUx6/yafp0oU8l48VXJ6uOxiMmnQ9 + Lun0tlzcOL3buotCdXo+PQCsJ+rmqfvld39U5a5FMsYlnd7VGJd0ehdjunrtZ9TbLdNB/XGiyybshb69 + Zbvd/DS6DGXafD1uF9jtktWdvcvHueRj5mKdXei0rKpTuTp7pVO2n/veknKXQccsXn9r+kFWHZyt5n16 + 9fSDfp++y295zMTFjWvioq/rl1XvQjr2oIvp3FkV7Wr8fXYtkA6Qu1w5wN77OemCSh38dAfYdYA+XZ5L + Or2rMS7p9C7GdPXaz0RvpF0k3VpOuQP3aXTyyc331Krp1yOlB7v1Jq/roeq2PvPlueRj5mKdXeisrHQh + 4LBJz+ZoHzf/4azZebj44v0ryoP2ujhSZ8ry5FcCu6TT2xon7l1Kp+C1JTlKNJ/mT5fnkk7vaoxLOr2L + MV299jPRBbpdRCeO3PK1dbXr0In+qMHUHZwXvVGNuhus5MtzycfMxTq70FlZbTWncGfKS1sPTFuGPq/l + tirqooPWX31w5cAyXNLpbY0S/b8/NMMdF/QRlaYzpHk0XvPly3KZjTEu6fSuxnTx2tfR1oL746wtnj53 + yyNtgbjPvMqtP13THzUYvZG78RVt0TSlrlzyZbnkY2Qu1jmuzsrqKw+sLD+/1RT9Qj67dvfAGaXUbT9b + W1613RRtbeSngcUlH9PGsNFxgPRivzo6GO/OHrnoOJcumHTLcZmNMS7p9C7HjPva16n7w2wqu7r7Xf3w + uY12vI5R6rOdabb2XkM/dpCu46orB10g6y6RUPLluORjKnOxznF0esxKVFr6OEP1QdQLFy+WH73QH6i+ + np8mdrTLow+t6mJCHbzWu6h+qPol1df0y1d3a2QXN65JU3QpgU6d64SCXtRhr6b+eu/dVh9Y1oF4/Xyq + n5P+W1/XdDdfxWU2xrik07scI+O89nV2HJj+5rB+V7tdSHdiJD/Zkbr9qXX9UZdz+XfDj81pd1fH7/Sh + cH3POvarD4JXx+9c8mW45GNSc7HOUXVeVgAwGygrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWA + ECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATK + CkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQ AmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZ AQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBC oKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgr ACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAI lBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUF IATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiB - sgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwA - hEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQ - VgBCoKwAhEBZAQiBsgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIIAFxf8DHSFc - nXjo+EoAAAAASUVORK5CYII= + sgIQAmUFIATKCkAIlBWAECgrACFQVgBCoKwAhEBZAQiBsgIQAmUFIIAFxf8DHSFcnXjo+EoAAAAASUVO + RK5CYII= @@ -484,95 +481,94 @@ - iVBORw0KGgoAAAANSUhEUgAAAoEAAAD4CAYAAACT4TyYAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQffBR4EDS4563DY - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAABP4SURBVHhe7d1tctw2Egbg - PZcP5PPkNLlMDuPlyHIsyx1LjS8CPQ+qnj9dtRaHBBovyZns/67xDQCApxMWAQCoLSwCAFBbWAQAoLaw - CABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrCIgAAtYVFAABq - C4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYWAQCoLSwCAFBbWAQA - oLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrCIgAAtYVF - AABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYWAQCoLSwCAFBb - WAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrCIgAA - tYVFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYWAQCoLSwC - AFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrC - IgAAtYVFAABqC4tP7ctf/3xrGv/89e1L8O9BHV+//f063dPjCdaH3gEcJiw+la/Nu9pH4+9vX4O/N9u8 - z7N2/PPXl/DzfUZuM77nOv0qEa7+/hr872fpCH0fjh3Oe59qvSPSHGwXjZ4+0UOfvXluuHEaJSzWt3oF - L9y4NaeG5rQ0WEX2CoHLm/tBDX35ubl5bu4eAn8f/3z760v8WUbSZ3ecG+ffWN4gLJZ1+6Rd0NA1p7br - /PfX+N9aY48QePv62DgMPuu52W+jT4yJa0Wf3X1urLkZKCAs1vPlr2tK7DN6Ft5HNKfW5nTnXeTdIXDm - a9/8mLk+0nZbUIufDB4dAl/HjBs8ffagubF4zRwmLJay7WKddGevOXU0p9uaxY0hcNcJc/tTwS/f9t3j - 1j3lqBACH2P0jYU+e97c2Ormch9hsYi9nm7EY3wz15z6mtM9r4XvCYH7N/Gbns5u9ubgv8aKTa1KCHyM - kedLnz11bnhN/E5YPN8hTfzHGBk8NKfe5nRH8FgfAs9p4Iuvx2kLaPLT60oh8DFG9Vp99vC5cdtbn+2E - xbONDIAfvZIa+Lc0p1/Hrc1peYNYHAIPu0n6cB0OMnRT++iYRy7UifO1Wgi8LsyQJ0H6bIG5cftXTrYQ - Fs81YHNrXxT93yEaEQQ1pzHNae1r4ZUhcNTXJD7zhG7g9+omB/N758yAazLp/KTOy+RrNGw+DThOfbbK - DcKdPwjcQlg8VF8jHbfp9zSq/gmZaU49DWBnY5rTyuawLgR2nZvezbNr55z4XZ5tjqsz5EwIYXuFwLf6 - zlVvv9dn75gbA28q347nfiIYFg/UMTlmNa7Wp5KdE1JzGniHumxTWxUCG2+UBp+H5uszo1l3vD2Ytn42 - OqZ9Q+APjXNan+22xdzouoF7M26Zu1sIi8dp3VTmv/Jra1A9x6U5DQyB15g/Rx7WhMCW8zLv87esjdFP - AxsDxPDjiLTe2I49tv1D4EPLueo7T/rsfnOjNw9WvU4fCItnabxrXrO5P7RsNO2vIjWnsSGw51p83ooQ - mN8ot7xJGriZtG0aa79DdPcxnhECH/Lzu6f/6bO7zo2Ot4JLbu62ExaP0tIk1wXAVw1BtfUYNafRIfAa - 0xvYghCYnIPL5kZ6bQwKOE3pam0A/KHlUEddv3NC4CU7lzpeCeuzm8+NpvV9jef7fmBYPEfDhb5tQWaP - tXEyak4TQuA15t44LAiBqfm3NuzkrteIu/W1T+f7rX/d+cNRIfCSa7Pt50ifPWBubP+WcAth8RANjfHW - JpU93rYGpTnNCYFzQ8D8ELh3w86Fst552zI/7t8YGoLrgOt4WgjM3mx749LuiLmRnA8v47meBobFM6Qv - 7p138q+Sx9zSPDSnWSHwGtMa2V4h8I7Ak1oaXdchH6a2WSfpntf/NPC4ELjoaw/67Dlzo2U/eKKngWHx - CNl+uMdCTD4NbLgj0ZwmhsBrzGkOO4XAMa8R0zITt2NDSc+NzZ4KpHNg5+Z7ykb/U67HCoHtzpkbDW8N - n+dpYFjc311fJh8gtwnlj1tzatjoU2PGXPIkMLWmmxt0fjPY74lA9klm33wVAmP67GFzI333dNPN8Hph - cXvZTX6rRZiajPmJqDnNDoHXGN7Q9gqB98yLxDloDYELfz0608r+d9RG/0IIXOWsuZG/Aax63d4Ji5vL - Xsx9ngK+SG5E2ScRmlOmOX0P2dlN9THGPiHaKwReE6Pkq5Dsw4D9ngK+WhhmhcCYPnvg3Mg2gKJ98J2w - uLnk65AtGtNbueMXAvOyIbDlLvG6MgNvLuaHwGwD3DYANTv85vGd3OVsf7UlBMb02RPnRjI7bN4DBgmL - e3v6zezPNKeWEHhJf8/0GsMa24IQmP58xRpg8vNvvzYW9cHqG70Q2O68uZE85ms8QX4Ii1vLXcSnSPK/ - 0JwaQ+Alua9eo/0Jy68WhMD0XfBjjPp898v1jRM+d/J6Ns6b4zb6ReFYnz1wbjwk50fVa/dGWNxY8pXO - c7zT/4Xm1B4Cm4LSkDm2IgS2hNzXUWAd5T77GTePqc/UeA1P2+hz17k97Ouzh4bARTdPBwmLG3MBP6I5 - 9YTAS24XeRn953FNCGx65f1unPl6JHnzeEjfSG3CjcH2qI1+4Q9m9NlTQ+Cam6eDhMV9JRf5s30f8EFz - 6gyBl3wO7H19uCgENv0A5r/HOesrd/N4zLpITtSW63XSRp9dtz3XWZ89NwSmjrvx5ukgYXFfqRDYuzGf - SXPqD4HpJ86P0XXHuCoEXgY8DYzHxuut6s3jgs91ykaf29gfo2++6rPnhsDczVP5HBEW9+XifUhzGhEC - L6m59n20n8+FIfCS3zDbxjbzq2zfmP+Ec/+NvvHpduex6rMHh0APk94Ki9vKbV7P98vgh4bsstEYc82G - hMBL/ly2Noy1IfBhVRB8O27bDFMX8qS+Mf+7jjtv9O29rn9j12efJQQ+Dj34N+oIi9tKTbr6X+gMaU7j - QuC618LrQ+DDHUHw51gXtnKf86QQmFzvp4fAQc1txM2IPrvZ3EjJ9XUhcCOpSScEHjh2C4GXhhOa32Tu - CYEvpn1HMDP6n8z8SeW+kZqeDZ8tde5OGIOurz77PCGw6uv8V2FxW7MbXgWa0+AQeMmf02youTEEvtpl - 3sxouJVD4OzPVisEjnvKq8+eHAJzX6MQAjeSWnhbTbp1NKfxITB75/gyUhvu/SHwu7H/CZmeMbLxVu4b - QuAnx+Bwr88KgUWExW0JgR/TnGaEwEvDif1889glBP60xzwaMx8q9w0h8BNjwjXVZ4XAIsLitio381E0 - p0kh8JI/txOeNC6f1/c/Hez9YrYQ+DqeLgRmv5bxefqsEFhEWNxWauENfvx/Cs1pXgic91p45xD4q7tC - QU8jnh2U7jT7s911vfvGvPD3gz6bnBtbhcBcHxcCN1K5mY+iOWXmScNm0XCCP24i54TA3yz8dXFrM67c - N2bfGB8VAheuDX32eUKg/0TMRoTAj2WaU9U7nKkh8JLfAD76OweHwN/kGmx2TP+/Phu0Qa6SmosNc+eo - ELjw2umzQmARYXFblZv5KJrT/BDYFHT+eFNSKQS+k0/MH4yGdZ1LSgf1jeT3NcuHwO9jxaatzx4cAv0/ - hrwVFveVaubzvxeyI81pRQi8NISb/z7fhUPgW6NeHWfPQdm+kbsZaVnv92z0DTdZ78bs3qbPHhwC5Yi3 - wuK+UpuIEPjR0Jz65kg+B/7X33uSEPhG/ty9HcnrVvXOf8Hnun2j75goM/ubPntuCEwd91FvBpqExX15 - jPshzWldCGx6YhG+Fn6+EPhD6x6fm7vzn5jdInnyjgyBr1rnyaw9QJ89NwTm5pIQuJnkpltsw/wMzWll - CLw07E6/n/fnDYEvWl4Tp374Nf+7c3dY8URjq42+KQnO2cT12VNDYLIX1P+BaVjcmAv4Ec1pcQi85Pem - 93/3yUPgQzoI5jb33DU64+4/9Zkae+F2G31+sU05Ln320BCY7TNV++1PYXFrqYl3SDMfSXNaHwLTT6gf - 45dNWQh8yK3t3LXL/duP0xz/O/tY81Zky40+HQRHrfOf9NlN58ZHknOn6rV7IyzuLXkR92vmueadPX7N - 6Y4QmA8Zj/Hz/M8KgYkn51s8NZ+4NpJPALZfG4v64K4bfXq9DT42ffbMEJhbNuNvHjYUFje35g54msk/ - btGc7gmB6a8qvIwfT6o3CIH/Hsu9MvM3tzay12fvtwirNrN9N/rs9Ry7oeuzJ4bAZHbYvAcMEhY3d3gz - T3XvfOPSnO4KgZeWHzi8NMcdQuDgc9Eos7Fk529q07pG69Oz6bLzrOMp79YbfS4JDz0+ffa8EJhd/zsc - 8wJhcXvZi7nTIswdez7Aak6Zczw++KQbzTX+/jorBObmwxahJ3HA6fm7MDzNtLL/pf7W8k3zvgcC+uzu - c+O97FPATfrhfGFxf+knLrs8DUw2rYZNSHO6NwTmN6bkSDbTsxr1ZWYIbLg2+20E2c2sb47vPn9Sx3eN - UddTnz2rt2TnyXXAz/Aq+CEsHiGzCB9ji4WYDa8NC0dzyiz4Sa9AW14Lf3Zk50Rqodz/SjjTrFs29PRm - sNnTwGzf691899/ok6F40PXUZ0+YGz/knwLee7xLhcUz5Lvh7ck+uwG1bHKaU+Y8zws96bDx2ZFtTgtu - PEbKzN+2pzr5DWGbdZLuef3z+4SNPndaxqx5ffacEJheNhvcDC8UFg/R8Nrt1g0uu/m0hVbNaY8QOO21 - cHoOZ4/jxgaYCqztx9kS0O9/LXzP04wjNvrkLj+i7+mzZ8yNlrV+2zy+R1g8Rz7i37Yg05OxcSJqTplz - PTnwzHgt3DAv0nPvplegqeXcdYwtAf3ONwktxztmbp+w0d/xSlif3X9upPvey7jxJvgeYfEgbU9blt/V - N4SB1mPUnDYKgZe2RvSH0dJMW8Lo6iCYvaHr3VSyf+9l3BMEWw511No+IwRmz1H/utdn954bTcv7MW6c - wzcJi2dpfNqyLgg2vMbp2IA1p71C4PDXwo1NqqkprgqCC2+S3mrbKFYGwda5M+4YTwmBq28i9Nld50bD - fvvvuPNp/23C4nFSk/HNmB8E2yZkz3FpTruFwMvI18KtzbTjGKauk5YkNiyctm4YK+bNHsd2TAhMn6++ - DV+f3W1u9N9sr3swtJWweKCOCTBrcrZsbo/RucFpThuGwEvrjcpvo2O+tk7J72P0XXL7mh3arDvC8bT1 - 03GhRh/TOSEwP7/dbPfZYW6M6qtVr9EnhMVD9TwGHrmx9NyR9IcSzWnPEDjiTvVldDXTvjXyffSes87z - MOMVdVc6HjmHOq/PhI32pBCYDvQdx6vP3jE3BvXQ9+PueXuvsHiuAa/d2sNg/wQdEUS79rPtRtsGu2cI - vIx4LdzbsEZPkM+EsmF/c971GvFEoX39Dgjnkzayo0Jguge3zyd9dsyauX08dwB8CItnG7HR/hgfTZCB - f2vU3aLmtHEIvHQ3zgFN69TmPe5pfWzoefnoOo1cqBM3stQ52WBDzV7D1r6rz57bR/4dG8zXDYTF840M - ggvGyNcFmlOmOa0Pgd1PjAc1rtPmybJXaqedmMkb2WkhMN37G79eoM+eHQKrvqJvEBaLGPH9p/lj9GTU - nHYPgZeem5SBG+0pc2X2E8DfHHITuWIjOy4ELnolrM+eGgKf8j8D8ydhsZR9F+ucAKI5HRACL80NdPRG - u/WEue/6TPsS+pCx7rycFwLza6slTOuz54VAT/9CYbGe3e7sZ/zC8ZXmdEYIbA4ZUzbaDZ+aT1wjKbst - qMVB68QQmO/3+adD+uw5IVD4+6OwWNb9k3Z+6NCcTgmBl5abk5kb7SaTZ/nr30+4vXfcFIqPDIENN1jZ - OafP7h4Cb+7t5wiL9S1fweu+h6A5HRQCL+lGumKjvenJ+Y7h773lG9/NT0TPDIHz15U+e8Na+Gjs8vbg - LGHxqcxczHdsappTpjntcLeYfGqxeqOdPaEObtzzTs0+X14/NQSmv+IgBIaf809uDYEC3yhh8am1T+wd - AgXM1vmDicLNu7l32NCAe4RFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUA - AGoLiwAA1BYWAQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtY - BACgtrAIAEBtYREAgNrCIgAAtYVFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1 - hUUAAGoLiwAA1BYWAQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIA - UFtYBACgtrAIAEBtYREAgNrCIgAAtYVFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIi - AAC1hUUAAGoLiwAA1BYWAQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgt - LAIAUFtYBACgtrAIAEBtYREAgNrCIgAAtYVFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA - 2sIiAAC1hUUAAGoLiwAA1BYWAQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAyvrft/8D4gTt - 9V3vd3gAAAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAAoEAAAD4CAYAAACT4TyYAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB98FHgQNLjnrcNgAABP4SURBVHhe7d1tctw2EgbgPZcP5PPkNLlMDuPl + yHIsyx1LjS8CPQ+qnj9dtRaHBBovyZns/67xDQCApxMWAQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIA + ALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrCIgAAtYVFAABqC4sAANQWFgEAqC0s + AgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYWAQCoLSwCAFBbWAQAoLawCABAbWERAIDa + wiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrCIgAAtYVFAABqC4sAANQWFgEA + qC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYWAQCoLSwCAFBbWAQAoLawCABAbWER + AIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrCIgAAtYVFAABqC4sAANQW + FgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYWAQCoLSwCAFBbWAQAoLawCABA + bWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREAgNrCIgAAtYVFAABqC4tP + 7ctf/3xrGv/89e1L8O9BHV+//f063dPjCdaH3gEcJiw+la/Nu9pH4+9vX4O/N9u8z7N2/PPXl/DzfUZu + M77nOv0qEa7+/hr872fpCH0fjh3Oe59qvSPSHGwXjZ4+0UOfvXluuHEaJSzWt3oFL9y4NaeG5rQ0WEX2 + CoHLm/tBDX35ubl5bu4eAn8f/3z760v8WUbSZ3ecG+ffWN4gLJZ1+6Rd0NA1p7br/PfX+N9aY48QePv6 + 2DgMPuu52W+jT4yJa0Wf3X1urLkZKCAs1vPlr2tK7DN6Ft5HNKfW5nTnXeTdIXDma9/8mLk+0nZbUIuf + DB4dAl/HjBs8ffagubF4zRwmLJay7WKddGevOXU0p9uaxY0hcNcJc/tTwS/f9t3j1j3lqBACH2P0jYU+ + e97c2Ormch9hsYi9nm7EY3wz15z6mtM9r4XvCYH7N/Gbns5u9ubgv8aKTa1KCHyMkedLnz11bnhN/E5Y + PN8hTfzHGBk8NKfe5nRH8FgfAs9p4Iuvx2kLaPLT60oh8DFG9Vp99vC5cdtbn+2ExbONDIAfvZIa+Lc0 + p1/Hrc1peYNYHAIPu0n6cB0OMnRT++iYRy7UifO1Wgi8LsyQJ0H6bIG5cftXTrYQFs81YHNrXxT93yEa + EQQ1pzHNae1r4ZUhcNTXJD7zhG7g9+omB/N758yAazLp/KTOy+RrNGw+DThOfbbKDcKdPwjcQlg8VF8j + Hbfp9zSq/gmZaU49DWBnY5rTyuawLgR2nZvezbNr55z4XZ5tjqsz5EwIYXuFwLf6zlVvv9dn75gbA28q + 347nfiIYFg/UMTlmNa7Wp5KdE1JzGniHumxTWxUCG2+UBp+H5uszo1l3vD2Ytn42OqZ9Q+APjXNan+22 + xdzouoF7M26Zu1sIi8dp3VTmv/Jra1A9x6U5DQyB15g/Rx7WhMCW8zLv87esjdFPAxsDxPDjiLTe2I49 + tv1D4EPLueo7T/rsfnOjNw9WvU4fCItnabxrXrO5P7RsNO2vIjWnsSGw51p83ooQmN8ot7xJGriZtG0a + a79DdPcxnhECH/Lzu6f/6bO7zo2Ot4JLbu62ExaP0tIk1wXAVw1BtfUYNafRIfAa0xvYghCYnIPL5kZ6 + bQwKOE3pam0A/KHlUEddv3NC4CU7lzpeCeuzm8+NpvV9jef7fmBYPEfDhb5tQWaPtXEyak4TQuA15t44 + LAiBqfm3NuzkrteIu/W1T+f7rX/d+cNRIfCSa7Pt50ifPWBubP+WcAth8RANjfHWJpU93rYGpTnNCYFz + Q8D8ELh3w86Fst552zI/7t8YGoLrgOt4WgjM3mx749LuiLmRnA8v47meBobFM6Qv7p138q+Sx9zSPDSn + WSHwGtMa2V4h8I7Ak1oaXdchH6a2WSfpntf/NPC4ELjoaw/67Dlzo2U/eKKngWHxCNl+uMdCTD4NbLgj + 0ZwmhsBrzGkOO4XAMa8R0zITt2NDSc+NzZ4KpHNg5+Z7ykb/U67HCoHtzpkbDW8Nn+dpYFjc311fJh8g + twnlj1tzatjoU2PGXPIkMLWmmxt0fjPY74lA9klm33wVAmP67GFzI333dNPN8HphcXvZTX6rRZiajPmJ + qDnNDoHXGN7Q9gqB98yLxDloDYELfz0608r+d9RG/0IIXOWsuZG/Aax63d4Ji5vLXsx9ngK+SG5E2ScR + mlOmOX0P2dlN9THGPiHaKwReE6Pkq5Dsw4D9ngK+WhhmhcCYPnvg3Mg2gKJ98J2wuLnk65AtGtNbueMX + AvOyIbDlLvG6MgNvLuaHwGwD3DYANTv85vGd3OVsf7UlBMb02RPnRjI7bN4DBgmLe3v6zezPNKeWEHhJ + f8/0GsMa24IQmP58xRpg8vNvvzYW9cHqG70Q2O68uZE85ms8QX4Ii1vLXcSnSPK/0JwaQ+Alua9eo/0J + y68WhMD0XfBjjPp898v1jRM+d/J6Ns6b4zb6ReFYnz1wbjwk50fVa/dGWNxY8pXOc7zT/4Xm1B4Cm4LS + kDm2IgS2hNzXUWAd5T77GTePqc/UeA1P2+hz17k97Ouzh4bARTdPBwmLG3MBP6I59YTAS24XeRn953FN + CGx65f1unPl6JHnzeEjfSG3CjcH2qI1+4Q9m9NlTQ+Cam6eDhMV9JRf5s30f8EFz6gyBl3wO7H19uCgE + Nv0A5r/HOesrd/N4zLpITtSW63XSRp9dtz3XWZ89NwSmjrvx5ukgYXFfqRDYuzGfSXPqD4HpJ86P0XXH + uCoEXgY8DYzHxuut6s3jgs91ykaf29gfo2++6rPnhsDczVP5HBEW9+XifUhzGhECL6m59n20n8+FIfCS + 3zDbxjbzq2zfmP+Ec/+NvvHpduex6rMHh0APk94Ki9vKbV7P98vgh4bsstEYc82GhMBL/ly2Noy1IfBh + VRB8O27bDFMX8qS+Mf+7jjtv9O29rn9j12efJQQ+Dj34N+oIi9tKTbr6X+gMaU7jQuC618LrQ+DDHUHw + 51gXtnKf86QQmFzvp4fAQc1txM2IPrvZ3EjJ9XUhcCOpSScEHjh2C4GXhhOa32TuCYEvpn1HMDP6n8z8 + SeW+kZqeDZ8tde5OGIOurz77PCGw6uv8V2FxW7MbXgWa0+AQeMmf02youTEEvtpl3sxouJVD4OzPVisE + jnvKq8+eHAJzX6MQAjeSWnhbTbp1NKfxITB75/gyUhvu/SHwu7H/CZmeMbLxVu4bQuAnx+Bwr88KgUWE + xW0JgR/TnGaEwEvDif1889glBP60xzwaMx8q9w0h8BNjwjXVZ4XAIsLitio381E0p0kh8JI/txOeNC6f + 1/c/Hez9YrYQ+DqeLgRmv5bxefqsEFhEWNxWauENfvx/Cs1pXgic91p45xD4q7tCQU8jnh2U7jT7s911 + vfvGvPD3gz6bnBtbhcBcHxcCN1K5mY+iOWXmScNm0XCCP24i54TA3yz8dXFrM67cN2bfGB8VAheuDX32 + eUKg/0TMRoTAj2WaU9U7nKkh8JLfAD76OweHwN/kGmx2TP+/Phu0Qa6SmosNc+eoELjw2umzQmARYXFb + lZv5KJrT/BDYFHT+eFNSKQS+k0/MH4yGdZ1LSgf1jeT3NcuHwO9jxaatzx4cAv0/hrwVFveVaubzvxey + I81pRQi8NISb/z7fhUPgW6NeHWfPQdm+kbsZaVnv92z0DTdZ78bs3qbPHhwC5Yi3wuK+UpuIEPjR0Jz6 + 5kg+B/7X33uSEPhG/ty9HcnrVvXOf8Hnun2j75goM/ubPntuCEwd91FvBpqExX15jPshzWldCGx6YhG+ + Fn6+EPhD6x6fm7vzn5jdInnyjgyBr1rnyaw9QJ89NwTm5pIQuJnkpltsw/wMzWllCLw07E6/n/fnDYEv + Wl4Tp374Nf+7c3dY8URjq42+KQnO2cT12VNDYLIX1P+BaVjcmAv4Ec1pcQi85Pem93/3yUPgQzoI5jb3 + 3DU64+4/9Zkae+F2G31+sU05Ln320BCY7TNV++1PYXFrqYl3SDMfSXNaHwLTT6gf45dNWQh8yK3t3LXL + /duP0xz/O/tY81Zky40+HQRHrfOf9NlN58ZHknOn6rV7IyzuLXkR92vmueadPX7N6Y4QmA8Zj/Hz/M8K + gYkn51s8NZ+4NpJPALZfG4v64K4bfXq9DT42ffbMEJhbNuNvHjYUFje35g54msk/btGc7gmB6a8qvIwf + T6o3CIH/Hsu9MvM3tzay12fvtwirNrN9N/rs9Ry7oeuzJ4bAZHbYvAcMEhY3d3gzT3XvfOPSnO4KgZeW + Hzi8NMcdQuDgc9Eos7Fk529q07pG69Oz6bLzrOMp79YbfS4JDz0+ffa8EJhd/zsc8wJhcXvZi7nTIswd + ez7Aak6Zczw++KQbzTX+/jorBObmwxahJ3HA6fm7MDzNtLL/pf7W8k3zvgcC+uzuc+O97FPATfrhfGFx + f+knLrs8DUw2rYZNSHO6NwTmN6bkSDbTsxr1ZWYIbLg2+20E2c2sb47vPn9Sx3eNUddTnz2rt2TnyXXA + z/Aq+CEsHiGzCB9ji4WYDa8NC0dzyiz4Sa9AW14Lf3Zk50Rqodz/SjjTrFs29PRmsNnTwGzf691899/o + k6F40PXUZ0+YGz/knwLee7xLhcUz5Lvh7ck+uwG1bHKaU+Y8zws96bDx2ZFtTgtuPEbKzN+2pzr5DWGb + dZLuef3z+4SNPndaxqx5ffacEJheNhvcDC8UFg/R8Nrt1g0uu/m0hVbNaY8QOO21cHoOZ4/jxgaYCqzt + x9kS0O9/LXzP04wjNvrkLj+i7+mzZ8yNlrV+2zy+R1g8Rz7i37Yg05OxcSJqTplzPTnwzHgt3DAv0nPv + plegqeXcdYwtAf3ONwktxztmbp+w0d/xSlif3X9upPvey7jxJvgeYfEgbU9blt/VN4SB1mPUnDYKgZe2 + RvSH0dJMW8Lo6iCYvaHr3VSyf+9l3BMEWw511No+IwRmz1H/utdn954bTcv7MW6cwzcJi2dpfNqyLgg2 + vMbp2IA1p71C4PDXwo1NqqkprgqCC2+S3mrbKFYGwda5M+4YTwmBq28i9Nld50bDfvvvuPNp/23C4nFS + k/HNmB8E2yZkz3FpTruFwMvI18KtzbTjGKauk5YkNiyctm4YK+bNHsd2TAhMn6++DV+f3W1u9N9sr3sw + tJWweKCOCTBrcrZsbo/RucFpThuGwEvrjcpvo2O+tk7J72P0XXL7mh3arDvC8bT103GhRh/TOSEwP7/d + bPfZYW6M6qtVr9EnhMVD9TwGHrmx9NyR9IcSzWnPEDjiTvVldDXTvjXyffSes87zMOMVdVc6HjmHOq/P + hI32pBCYDvQdx6vP3jE3BvXQ9+PueXuvsHiuAa/d2sNg/wQdEUS79rPtRtsGu2cIvIx4LdzbsEZPkM+E + smF/c971GvFEoX39Dgjnkzayo0Jguge3zyd9dsyauX08dwB8CItnG7HR/hgfTZCBf2vU3aLmtHEIvHQ3 + zgFN69TmPe5pfWzoefnoOo1cqBM3stQ52WBDzV7D1r6rz57bR/4dG8zXDYTF840MggvGyNcFmlOmOa0P + gd1PjAc1rtPmybJXaqedmMkb2WkhMN37G79eoM+eHQKrvqJvEBaLGPH9p/lj9GTUnHYPgZeem5SBG+0p + c2X2E8DfHHITuWIjOy4ELnolrM+eGgKf8j8D8ydhsZR9F+ucAKI5HRACL80NdPRGu/WEue/6TPsS+pCx + 7rycFwLza6slTOuz54VAT/9CYbGe3e7sZ/zC8ZXmdEYIbA4ZUzbaDZ+aT1wjKbstqMVB68QQmO/3+adD + +uw5IVD4+6OwWNb9k3Z+6NCcTgmBl5abk5kb7SaTZ/nr30+4vXfcFIqPDIENN1jZOafP7h4Cb+7t5wiL + 9S1fweu+h6A5HRQCL+lGumKjvenJ+Y7h773lG9/NT0TPDIHz15U+e8Na+Gjs8vbgLGHxqcxczHdsappT + pjntcLeYfGqxeqOdPaEObtzzTs0+X14/NQSmv+IgBIaf809uDYEC3yhh8am1T+wdAgXM1vmDicLNu7l3 + 2NCAe4RFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYWAQCo + LSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBtYREA + gNrCIgAAtYVFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA1BYW + AQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAIAEBt + YREAgNrCIgAAtYVFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoLiwAA + 1BYWAQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAaguLAADUFhYBAKgtLAIAUFtYBACgtrAI + AEBtYREAgNrCIgAAtYVFAABqC4sAANQWFgEAqC0sAgBQW1gEAKC2sAgAQG1hEQCA2sIiAAC1hUUAAGoL + iwAA1BYWAQCoLSwCAFBbWAQAoLawCABAbWERAIDawiIAALWFRQAAyvrft/8D4gTt9V3vd3gAAAAASUVO + RK5CYII= @@ -595,67 +591,67 @@ - iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAA3pSURBVHhe7ZkHdFVVFoZdh5DEDDIM6hASSAiBEHoIJaEr0kVAkTJW7AVHsIyOA/aCFAWso+PY - sWFD7MywRGYsQx8QRHqX3pvA3fP/570dDpf7kvdeslZYs7xrfeuWU975/7PPvucmp/x6/HocO2695b7u - YDKQ/zOoqXtYZuSDFZcsWSK//PKLHDp0SA4fPhzIkSNHjuPo0aMWz/NOIJ4jqB/9jWhxx7du/UZrQlhm - 5INuHTx4UHbt2iW7d++WvXv3Wvbt22fZv3+/HDhwwNahQTRKCTJHB6MiijtKEsr+3Ekg7u9zPH44To6X - daktLDPyoQbs3LkzKgOI3wDiN6G8DeB1XAbs2bPnOBOCDCAlGUCKM6Ek8SReAzhmErcBakJZGeA3wX3u - ClbcvtzfINEYQC0ce9QGUOCOHTusAW4U+A1wTSjOAKJiXLF+XNEubj/ub7jiIxnAMW/evDk+A/zLwDXA - HwU6CHeA7sCJK6ok4Vrfbe/2TVzxRMeik6M6Nm3aFLsB27dvDzTANSEoCogO0B284hcaiaC2rnjiilZc - 8Rw3Z//nn38uGwPUhCfHv1fu+GfdFU84VmooEwP8UcAf1lkJmj3FDfOyQPvl7xY3+4xQjn3btm2lM4Dr - RzdEQXmAP+YOQGfFDVM1qrS4fervuL9NOB6Oi2Om+K1bt8ZvADvwG+A3wZ8LXEN0kH5DXIKEEi3Tem5f - iiucqHiOkZOnBjABbty4MT4D2BEN8EeBPxJKYwJxxfpx+1D8woPE+w1gWUwGsDE74VpSA9SEoKRUXqgB - Kt6d/S1btsRnAGeXjdUA1wR2xB/UGXJDl7hJMFoiJbuS4O/rzHO5uuLVAK7/9evXx2+AbojcKOAS0BwQ - tAzcEA0KYTUvEkFtFLdv/hbHwvEFzX6pDGD2ZEdqgN8EdujPByXlBJfihJFrpUAafGBKxUXSwIZ/XAZw - 7dAANwpKMqEkIyKZobj16r9n5HPvSZnqPSPT5Dn5Sl6QGfKSfCOvyHcyUf4jb8pMeRvnt+R7eUO+lddQ - 9qp8LS+DF2199kED1q1bZ8cbkwEMHXcZuEshKBmVNbkfGpnijZERkid3Swt5UNrIaOkoj0kXGe/1kKe8 - PvKMdz7OfeUJr5eM83qirKs8Kp1klJwjn3oTpOFUIxs2bIjdAM6oGsAo4NpyTeAMu+EbtI6JP0FGA5Mb - z7kfG/lQRspd0kSGS748IIW4ay9jIPBxCKUJFD7BOzcsvpuMhfCRchboJB97j0uDL0IGrF27NnYDGDqa - BxgFrgmMAoZ/cUvAjy6JINzQV+pONvK+PCx/lobyF2kq94ajYBSigCYwEsZBNIVz5sdIZ8z+2WjRTh6R - Doie0ZLzmbHrv1QG6DLwmxCUE4jfGNccP0FGKdlIYpPkfrlN6smdSGbDpZncJ62sCYwELofREDzahvzZ - EH0WxLdHi9a2zgeoVeeTkAFr1qyJzQAKYOgwEeoyKMkEf3IMMiLIEIoNMiTrXYP0NkKGSh25VeraSKAJ - jAQuB4qk4IelrTxkKYRBhbb8Hhj1Lmplf2Ts+o/bAOYBXQauCUFJq6zJeM0gr98hN0lNuVmyEAk5NhK4 - HIZLc4hsAcEtIbiVFXwPrkcgV7D8LpzfwV0WoogGrF69OnYDGDo0wI0CNYGz6H+FuUkxEkGJMgjWzZho - 8EK7Ra73UuVGr7r8UWrhrg4sqQeBzAuNQR5gkqQpjVHWUG6HSTxPhF2Zk4xd/zSAERq1AXSLBjAP0ADN - BWoCl4Eb+i66DIh/Kbih76Jhzzrsg32nvWrwJh8iV3qnyzXeGXKDNaGmDJPaWBLZiIi6EJsjf5Jcy23g - djwbFl4yz8uNUuOtkAGrVq2y/cZkAEOHBugyUBP80aB5wc0Nbn4IyhEuNIdlbK/9se/Uvxt5Vq6Ry7xK - crl3GoyoKtd6Z4aNSMeyyMA5C4JrIU9kwqpMLJcMuV7SrGlPyMWS9rqx6z9uAzQPaBQUZ4JrhGuG3wRF - DWAd7Uth/9X+ZiDiUhkoFeUPkiiXer+BEZURDTTidLnOqwYzUq0hXCa8vhoGXSLJMsAz8pjXX37/SsiA - FStWxG4AG+oy8JsQlLTKmtOfNDLWGyD9Dhvpf9TIAKkAI5IQESkyGBFxufdbucJSBTP+O3s9QIxcsAcc - MDLSO0/ORBRx/cdtgEaB3wSWB21eiD85BhHUzk/Vpymij/TeZ6Qv6HfQyIVHYARml1ExCGZchNm+WE7F - faJcgPK+24302WKk906DN0Q3qYooogHLly+P3QCuGxrAKPCbwBAtKfQ1/DXkec26/nCPRJXxBm/y7tJr - BwSB83ZD4F4j50MozegHM/qTQ3iO8l4Q3mujkZ4bQtcjsDGq8qyxOmgAfz9qAzhgNmQG1Sjwm6DosiCa - HxQVwzK2U9z2iltOKj9m8BF0jvSAmB6bIWpbyIjeuzDLCPPe+0Om9ERZz/VGzl2H81rUXWOkO4y4Axul - yk+FDFi2bFnsBqxcubJoGWgUuCYQV4BrhKL12MZtVxxat/JYg91fW+mKGe0Kgd03AYrdCuEw41zerzpG - V9BlpZHOK3CGCUOxMaqMPEIdpTKAUUADFJoQlLTKmkqPGGx8WkiXsLBuEEUzumGmu+K683I8Bzzb66VG - zgGdl+CM+yHYIJ02IWTA0qVLYzeAmdNdBq4B7Mz9mtONjLupKS0po41ch91dR4jqRHHLcCYQ2Gkx7h14 - 32mRkbN/AAuNnIU6V2KTVGmcsTpoAPNT1AYwgTFx0ABdBgpN8IdzpBB3l0ispCACBmNH1xGi2oEOENbx - vzgvCNHRQZ+1n4+68wDqXoKNUQryCA346aefYjeA64aN+RqhCboc9NqFz/24pkWCZgY9JykP8m96NaXt - HCNtZoGZEIZzu9kh+FzRZyxnvbZz+bqsJiljjNURtwGMAq4hmsBocM9KNGYoQUL9aN1T78erDju+gm+N - tPrGSAEoxHXr70K0+f4Y+ozlrFcAI/pgg3TqqJABS5Ysic0AVmYjjQKaQCieBCWtsiZpOF5p2P42n2Gk - xXQjLb8GuC4Arf59InzOctajYV2wQUoeaez6j9sANtYocE3gu13/uBEJ/xdfrCTfi4SGrW3eNCPN/mEk - n+C6BWj+Fc4O9h7PWW7r4b4Dts/JD5eRAYwCNxIY+gxXfTPEgu4ngnDrMQLaY7PT9HMjTT7F+TOY8QXM - AHlTcXaw93wOWK/pl8gD2D4nPxAy4Mcff4zdADZi8nAN8BvhosvDj5svXJosqyeJdxhJvDkyhdjTN/zY - SKOPjDSeAiNw3ZR8EgCes5z1GsOwQnwXBPXpcACMC8s+dvgN0GToNyGSESTICD8Vb8eg8b7OwyanGTY7 - +asBtrL52PW1xFa2JXZ6ecjmue8a+w+O+h/ADNCI5w/BZAfc2+eA9Vg/D6/EAvTBftgf+7X943f4e42w - p6h4kzkQln3siGSAQuFBSSta1IDGixpwANIQ7+zcfxqpjU/XOi8aycY3fJ3XwOtG6k40Uu9N8HaI3Hcg - jkwKGaPwns9ZrnXZju3ZD/uz/aL/+kio9bGvSLjBEn0EuAZwn+/+uctPUFIkTJ4Ur5FS/4f6knAjTMC7 - OwfrNwufrzSiNo14CQIcM4oMATlvAAgsAvd8XiQ4LJrt2Q/7Y7+5yBX1sG+ocJ3lRPE8SjKAcPDRvvtd - uPZVvNJgQUOpcD0Gh1dZDtZv5nNGaj2PAb9wzAwbGRDCWbSmvBoSWATurdiwYNZX0eyH/eUgL+Rin2Cu - sQSL5xGNAcXh5ohoaTS3sZhrK0gdvL6y34cJTwN8y9OMLKKGqCmRCNdhfbZje/ZTFzmCfZurKpDI4nmU - 1oAggkT7aTKzqR1gNpcC1nJNfMpmEHzTZz6DWQSZf8UZWGE+7HOWsx5gO7bPQn7IxmvRDE6QhBdPi/01 - GGRAUHIrC6pNyhZzRQWpjcxeC6FdY3yYJ0KGFJkSAa3D+mxXCzkhC32ZyxKkYH5BfPuAeJJgaWg9r70d - cCYyeU2s47SxRtLxVWd5PAw+c4vMAbwvKgvXzXgZYPbNJRUl71/NraaYDFi8eLE1gDspmuBCE/wbm7Ik - /5tCO/AMJLUaCOvqj8IIgo8bC77yTkDLUK8GckA6EqO5KFHyZ7S2WmI2YNGiRUVRUB7kTS+wAtLxakxH - SKc+BCPCpGKP70fL0rkE0MYMSpTm0wutBmqJyQD+9XbhwoW2Id1jJ+VB3jREwsBEScNboTrCuho+kCz3 - BYDnrMO6ZkCSNJ/Wxo6dGqiFmqI2gBuW+fPny4IFC2zj8qTpl63E9IcJEyBwdEhoEKlYBtVRx1yYJPlf - Fha1pwZqoaaoDeCftOfMmSNz586VefPmlTtNP2tjhXGGU7HGTxCPZ6koM/2SJe/zwuPaUgO1UFNMEcBG - s2bNssyePbvcaTIFy+GCJEllFIx0DOA1npnzk6XZlNbHtdHxU0tUEWCMSRh6891fzJ4Zcsz9G//JQNtp - 3azQVIpGwrPg2vRNlvZf9QhsQ6hl5sz5MmzoPVOpMSz3xAOFlQYOvGrwkCF3TqdbJwu3DLuXgxdMjqSM - ThPTByZQ/IMQ3ztZKo1Kt2Wsw7pBfUDTjEGDrr6aGoEJSz7+CBdmgAYnEY1APmgHOoOepkPSFNMr+bCl - Q9Jk+yxUxjqsyzZBfVFbsQYkhCtUAVVPEs4AaSAHNAEtAIV2CMNrPmMZ67Au2/j7oSZqi7wEeKDCyXZw - UhJBMkgBFFHZB5+xjHVYl20Cj7BM5zjllP8BD7OlGZra2y4AAAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAADelJREFUeF7t + mQd0VVUWhl2HkMQMMgzqEBJICIEQeggloSvSRUCRMlbsBUewjI4D9oIUBayj49ixYUPszLBEZixDHxBE + epfem8Dd8//nvR0Ol/uS916yVlizvGt965ZT3vn/s8++5yan/Hr8ehw7br3lvu5gMpD/M6ipe1hm5IMV + lyxZIr/88oscOnRIDh8+HMiRI0eO4+jRoxbP804gniOoH/2NaHHHt279RmtCWGbkg24dPHhQdu3aJbt3 + 75a9e/da9u3bZ9m/f78cOHDA1qFBNEoJMkcHoyKKO0oSyv7cSSDu73M8fjhOjpd1qS0sM/KhBuzcuTMq + A4jfAOI3obwN4HVcBuzZs+c4E4IMICUZQIozoSTxJF4DOGYStwFqQlkZ4DfBfe4KVty+3N8g0RhALRx7 + 1AZQ4I4dO6wBbhT4DXBNKM4AomJcsX5c0S5uP+5vuOIjGcAxb968OT4D/MvANcAfBToId4DuwIkrqiTh + Wt9t7/ZNXPFEx6KTozo2bdoUuwHbt28PNMA1ISgKiA7QHbziFxqJoLaueOKKVlzxHDdn/+effy4bA9SE + J8e/V+74Z90VTzhWaigTA/xRwB/WWQmaPcUN87JA++XvFjf7jFCOfdu2baUzgOtHN0RBeYA/5g5AZ8UN + UzWqtLh96u+4v004Ho6LY6b4rVu3xm8AO/Ab4DfBnwtcQ3SQfkNcgoQSLdN6bl+KK5yoeI6Rk6cGMAFu + 3LgxPgPYEQ3wR4E/EkpjAnHF+nH7UPzCg8T7DWBZTAawMTvhWlID1ISgpFReqAEq3p39LVu2xGcAZ5eN + 1QDXBHbEH9QZckOXuEkwWiIlu5Lg7+vMc7m64tUArv/169fHb4BuiNwo4BLQHBC0DNwQDQphNS8SQW0U + t2/+FsfC8QXNfqkMYPZkR2qA3wR26M8HJeUEl+KEkWulQBp8YErFRdLAhn9cBnDt0AA3CkoyoSQjIpmh + uPXqv2fkc+9Jmeo9I9PkOflKXpAZ8pJ8I6/IdzJR/iNvykx5G+e35Ht5Q76V11D2qnwtL4MXbX32QQPW + rVtnxxuTAQwddxm4SyEoGZU1uR8ameKNkRGSJ3dLC3lQ2sho6SiPSRcZ7/WQp7w+8ox3Ps595Qmvl4zz + eqKsqzwqnWSUnCOfehOk4VQjGzZsiN0AzqgawCjg2nJN4Ay74Ru0jok/QUYDkxvPuR8b+VBGyl3SRIZL + vjwghbhrL2Mg8HEIpQkUPsE7Nyy+m4yF8JFyFugkH3uPS4MvQgasXbs2dgMYOpoHGAWuCYwChn9xS8CP + Lokg3NBX6k428r48LH+WhvIXaSr3hqNgFKKAJjASxkE0hXPmx0hnzP7ZaNFOHpEOiJ7RkvOZseu/VAbo + MvCbEJQTiN8Y1xw/QUYp2Uhik+R+uU3qyZ1IZsOlmdwnrawJjAQuh9EQPNqG/NkQfRbEt0eL1rbOB6hV + 55OQAWvWrInNAApg6DAR6jIoyQR/cgwyIsgQig0yJOtdg/Q2QoZKHblV6tpIoAmMBC4HiqTgh6WtPGQp + hEGFtvweGPUuamV/ZOz6j9sA5gFdBq4JQUmrrMl4zSCv3yE3SU25WbIQCTk2ErgchktziGwBwS0huJUV + fA+uRyBXsPwunN/BXRaiiAasXr06dgMYOjTAjQI1gbPof4W5STESQYkyCNbNmGjwQrtFrvdS5UavuvxR + auGuDiypB4HMC41BHmCSpCmNUdZQbodJPE+EXZmTjF3/NIARGrUBdIsGMA/QAM0FagKXgRv6LroMiH8p + uKHvomHPOuyDfae9avAmHyJXeqfLNd4ZcoM1oaYMk9pYEtmIiLoQmyN/klzLbeB2PBsWXjLPy41S462Q + AatWrbL9xmQAQ4cG6DJQE/zRoHnBzQ1ufgjKES40h2Vsr/2x79S/G3lWrpHLvEpyuXcajKgq13pnho1I + x7LIwDkLgmshT2TCqkwslwy5XtKsaU/IxZL2urHrP24DNA9oFBRngmuEa4bfBEUNYB3tS2H/1f5mIOJS + GSgV5Q+SKJd6v4ERlRENNOJ0uc6rBjNSrSFcJry+GgZdIskywDPymNdffv9KyIAVK1bEbgAb6jLwmxCU + tMqa0580MtYbIP0OG+l/1MgAqQAjkhARKTIYEXG591u5wlIFM/47ez1AjFywBxwwMtI7T85EFHH9x22A + RoHfBJYHbV6IPzkGEdTOT9WnKaKP9N5npC/od9DIhUdgBGaXUTEIZlyE2b5YTsV9olyA8r7bjfTZYqT3 + ToM3RDepiiiiAcuXL4/dAK4bGsAo8JvAEC0p9DX8NeR5zbr+cI9ElfEGb/Lu0msHBIHzdkPgXiPnQyjN + 6Acz+pNDeI7yXhDea6ORnhtC1yOwMaryrLE6aAB/P2oDOGA2ZAbVKPCboOiyIJofFBXDMrZT3PaKW04q + P2bwEXSO9ICYHpshalvIiN67MMsI8977Q6b0RFnP9UbOXYfzWtRdY6Q7jLgDG6XKT4UMWLZsWewGrFy5 + smgZaBS4JhBXgGuEovXYxm1XHFq38liD3V9b6YoZ7QqB3TcBit0K4TDjXN6vOkZX0GWlkc4rcIYJQ7Ex + qow8Qh2lMoBRQAMUmhCUtMqaSo8YbHxaSJewsG4QRTO6Yaa74rrzcjwHPNvrpUbOAZ2X4Iz7IdggnTYh + ZMDSpUtjN4CZ010GrgHszP2a042Mu6kpLSmjjVyH3V1HiOpEcctwJhDYaTHuHXjfaZGRs38AC42chTpX + YpNUaZyxOmgA81PUBjCBMXHQAF0GCk3wh3OkEHeXSKykIAIGY0fXEaLagQ4Q1vG/OC8I0dFBn7Wfj7rz + AOpego1RCvIIDfjpp59iN4Drho35GqEJuhz02oXP/bimRYJmBj0nKQ/yb3o1pe0cI21mgZkQhnO72SH4 + XNFnLGe9tnP5uqwmKWOM1RG3AYwCriGawGhwz0o0ZihBQv1o3VPvx6sOO76Cb420+sZIASjEdevvQrT5 + /hj6jOWsVwAj+mCDdOqokAFLliyJzQBWZiONAppAKJ4EJa2yJmk4XmnY/jafYaTFdCMtvwa4LgCt/n0i + fM5y1qNhXbBBSh5p7PqP2wA21ihwTeC7Xf+4EQn/F1+sJN+LhIatbd40I83+YSSf4LoFaP4Vzg72Hs9Z + buvhvgO2z8kPl5EBjAI3Ehj6DFd9M8SC7ieCcOsxAtpjs9P0cyNNPsX5M5jxBcwAeVNxdrD3fA5Yr+mX + yAPYPic/EDLgxx9/jN0ANmLycA3wG+Giy8OPmy9cmiyrJ4l3GEm8OTKF2NM3/NhIo4+MNJ4CI3DdlHwS + AJ6znPUaw7BCfBcE9elwAIwLyz52+A3QZOg3IZIRJMgIPxVvx6Dxvs7DJqcZNjv5qwG2svnY9bXEVrYl + dnp5yOa57xr7D476H8AM0IjnD8FkB9zb54D1WD8Pr8QC9MF+2B/7tf3jd/h7jbCnqHiTORCWfeyIZIBC + 4UFJK1rUgMaLGnAA0hDv7Nx/GqmNT9c6LxrJxjd8ndfA60bqTjRS703wdojcdyCOTAoZo/Cez1muddmO + 7dkP+7P9ov/6SKj1sa9IuMESfQS4BnCf7/65y09QUiRMnhSvkVL/h/qScCNMwLs7B+s3C5+vNKI2jXgJ + AhwzigwBOW8ACCwC93xeJDgsmu3ZD/tjv7nIFfWwb6hwneVE8TxKMoBw8NG++1249lW80mBBQ6lwPQaH + V1kO1m/mc0ZqPY8Bv3DMDBsZEMJZtKa8GhJYBO6t2LBg1lfR7If95SAv5GKfYK6xBIvnEY0BxeHmiGhp + NLexmGsrSB28vrLfhwlPA3zL04wsooaoKZEI12F9tmN79lMXOYJ9m6sqkMjieZTWgCCCRPtpMrOpHWA2 + lwLWck18ymYQfNNnPoNZBJl/xRlYYT7sc5azHmA7ts9CfsjGa9EMTpCEF0+L/TUYZEBQcisLqk3KFnNF + BamNzF4LoV1jfJgnQoYUmRIBrcP6bFcLOSELfZnLEqRgfkF8+4B4kmBpaD2vvR1wJjJ5TazjtLFG0vFV + Z3k8DD5zi8wBvC8qC9fNeBlg9s0lFSXvX82tppgMWLx4sTWAOyma4EIT/BubsiT/m0I78AwktRoI6+qP + wgiCjxsLvvJOQMtQrwZyQDoSo7koUfJntLZaYjZg0aJFRVFQHuRNL7AC0vFqTEdIpz4EI8KkYo/vR8vS + uQTQxgxKlObTC60GaonJAP71duHChbYh3WMn5UHeNETCwERJw1uhOsK6Gj6QLPcFgOesw7pmQJI0n9bG + jp0aqIWaojaAG5b58+fLggULbOPypOmXrcT0hwkTIHB0SGgQqVgG1VHHXJgk+V8WFrWnBmqhpqgN4J+0 + 58yZI3PnzpV58+aVO00/a2OFcYZTscZPEI9nqSgz/ZIl7/PC49pSA7VQU0wRwEazZs2yzJ49u9xpMgXL + 4YIkSWUUjHQM4DWemfOTpdmU1se10fFTS1QRYIxJGHrz3V/MnhlyzP0b/8lA22ndrNBUikbCs+Da9E2W + 9l/1CGxDqGXmzPkybOg9U6kxLPfEA4WVBg68avCQIXdOp1snC7cMu5eDF0yOpIxOE9MHJlD8gxDfO1kq + jUq3ZazDukF9QNOMQYOuvpoagQlLPv4IF2aABicRjUA+aAc6g56mQ9IU0yv5sKVD0mT7LFTGOqzLNkF9 + UVuxBiSEK1QBVU8SzgBpIAc0AS0AhXYIw2s+YxnrsC7b+PuhJmqLvAR4oMLJdnBSEkEySAEUUdkHn7GM + dViXbQKPsEznOOWU/wEPs6UZmtrbLgAAAABJRU5ErkJggg== @@ -731,459 +727,452 @@ - iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAAwAJIA0CAmvbMAAAAHdElNRQffBBwHAgNug28A - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAABHRSURBVHhe1dt5rB7VeQZw - HMAkAfsaJyEJeMFxAGOzmAJmMTarDYZg4wUMZscYMItZDDa7w74YzA4BG5stSdWoahsprVS1UqL2n7ZS - RNuoVVq1qtREaqqkVI0aNar0Td/f3Hkvx+P5ro0xlIz0aLYz57zP8y7nzNzv7vZxb/uMGrXfxElfOezg - KYfOmjJ12skw4cBJh8f1LzdN6i3OP9Uc/uZuB4yfcPSCxRfctXLVbd9btXrtT29dc3e15p511d1ff6S6 - 98HHajhec+8DlXs33npHFW1/dt1Nt/7xuQuXPDhuwsSZIcQeDUY03X6yt0mTv3rslddcv+m2tff86sHH - 1lcQBHur77y3ims10dvvuq+Ga85vvv1OxKtrb7yluuaGm6F3yx131W1CjF9feuXV3z7wK5PnEGL0wMAe - zVCfrG32qadfHmT++ZEnN1QPPf5Udc8Dj9befeypZ6unnnupeuDRJ6v7Hnq83ufxuocH8fVHnqivab/2 - vgfr4zvuvr9acf2qKsSshSFeCPOvx8+ctSqE+Gxgz2bo/9/thJNmLw7jfr7hhVd4u8fjjomAHFJ3rXu4 - eubFb1QvfGNT9fwrG4f2ifL6sy+9OiSe/Z33P1SnDSEuv/q6noiJqHjvqGNmrAgRPi0qGlM+3i0G3j88 - 81fIPrr+mR5PP/fya7VnGewcKYSAAG3kvS549sVXX6+e2PB8LSAh7Alx2VUraiGuWLHyb0aNHv1bTUR8 - fDXitDlnXsPTYWiPgQzNYpZehC6S2yPeBWK89NrmumgSFyIaCNBTP046+dS7Q4C9A7s3Jn5028WXX/W7 - SD79/Ms9+7rIhUHp7X7e3RniXSC2SCC2whkFshZh8dJlfxIC7BcY2Zi6a7fo+NORe3/36utv1KHOI6r4 - k8+8UBvWj+DOEk8hIcSuId3s3VdYczYJEdSF6rLl1/5T2PlVtjZm75otOtwnpqWfbtzyVo8HDI58hnsX - yZ0hXhLOY6S7oI2oM2tkSsSs0Ysa8bOw95DAXo35H26LjkbedNuan7y2+c3eyxu3VKY5uSgKdoZkG23S - Sa4kWoL4CeeeMW2mCMuvu7EXteHfw+7Ju0SEq1fe9G6Efe15U1tT/DrJd13rhzbpNtkk2IVShGzHNmuH - jISoVT8OAfYP7Px64YJll25BnLcffuLpIfJdZLqud6FNvCRVHsP6Z1/sPG4j77FPTYhpsrr+5tXV185b - /AchwOcDH3x2mDn7lMVpoM5V3i4y7WttlIRzX/Zrn8clGcXVsWn28aefq8/zuIRr7mV7q0rLaIXR/vAj - p98WAoxpaO3YFg+MDsK96LDH+zpScJLw9ojn/SRXIkm2z5M0JLE22R2BvqSCCLjkiuU9L1jB5+jAZxp6 - 298ij34/PVWS3x7xREmu9FB6KfcJ59muJG41GavMISjA+a6Rx1C2yXcPdjf1oFp68WU/CAG+FNh+Khx0 - yJQZOgFreZ3uKPEULYlDGqxSqyPZd5JN4gnEk4ycBmGdL06W2s7b0K4tTMxeQ6mw/7jxy0KAUQ3N/luE - zg/j4V56v4toF0qvJ+k0Pl+BLZcJ4T4R0tPpddcQd9+zCOeLkZWf0M7FT8L0Zy2gnfbGM7Z+3LNAikiw - PjArjBs2CsL7J3pQBzrvItoFnkdeOKfxs045rYpCqhJXMSUNvdIik95KwiX5FO7k086o4hXbOr/uB+LN - s4rX4a3gWt5PITzPDv3ecMvt9azACQeMn3BFCDC6obvtFkb+URhQv+B4oItsG0me55EwOLKnnjG3ipem - 6pTT51Rz551jmVoXJitICyntAGlIAaSJKCEa8fSTfXVB3xdecrkXo8FVYURKKYLzjIIoin8RAowPbPu5 - LS4OmOrkmFCTAl2E20gBiMZ4g5959rlbGYnAgsUX1EaqyvovjUwRwLXMaejqLyG/sw3yvC1ynesjo8BL - k4LYzAg+s207I8Qgq9ODvGT66yJcovS+wQyq8HQZe8aZ81TjuiqLLu/32hOtFMC561JFO9Ekerr6RArp - WP5WsWLdSgA8Ms3UAve9NUbaPB8C7NfQfn8Lw/8yBu15iHFdhNsgQFZ8zzH63IVLOo0VBQvPv7A2mkil - oWUUpACikSN47/S5Z23T35yzzq77kt/2RFi1em1NVjHUr74IIKWaKFAM/z4EmBR4vxjGyZ4MEkY6sfzt - IlyiLHwGYbTBM1+78vasry2oc1sUmGGMxzjipQiOGY+E/GVPVwqkALFcr/vkYRGT4a8P/UkBdooOKWgf - fLdeGE2ZOm1uelAn+XFjOOgUzN2UVtgYwjhqtw0GabDssitrrwltoqe3gBg59SGfEdAlwDkLFtU1QFTp - Uzu1RQ3DJcnnOsM9ItmPmzDRh9V9a/IDY8aMWHLhxetygcGoLsIlMvTBQIyXNmeeM7/Oc9Odotc2GmKs - 6qJLr6i9x2h5KXI8zwHgGAhg5hA57X70j/iiCy6qx0TOuBxBgFxYpQCuE136xcyxOQTwpjj4HTEM+T3K - aCQsu0iXyMKnc6HLa8KaobwiEny8bBsNZ89fWIvAaG0YZOwUgA0ioP7sFcIQaN65523TjynS9EcIgiJH - AP14PlOLjWx1bDpUK8LGPw/y6sDgdBhG/K2H5aUHukgnysqf3mc4IxnFKwiCObptuHBm9OKly+pUEAXG - JnwKIBqRcI1Nwr3dD7ERV3QJngIQjkMIkKkFBDAWAQL/EuQPDgx+Ug8B3pP7GmyvACZ5YUUAaeNZRilI - Qhu5+YvOr8VoGw5SxX0EclrMBQwB9EkE3kSqSwBCIk70WOAM1QDPI98WQJ3SrvnL038HeX+PHPxipNIy - QoUcToDS+woMVRnK2zyCvDmbAOctWVqjKwpAG/nrGWkg3EUA77UFQLL9vFlABBEHMbWCAJ5LjyecS9WM - FGIF+aOGBBBmco0h/QRAPotfep/KwtSURwDTDK+LBB4W6sRpGw8MJ4D2jFLwhC/y+rUXEa53rS2sDYhH - HELUIkYUlbMK8jwP7CUA8toG+WMCg1Mh8kDF4QRI75v30/uMYBCyCiAgxfvqguveB9oEeBCx8y+6ZGgO - 5/EyhEVEPwGA4P0E4HF22rPVMQFwbASYEfhsLYAL0K8GJHkoFz7CMxc8vKkqI4S0as9LyHctilwTBYQi - mPRLAikAMUzL/QQwi7gn7aSxaGRXCsDrKYSUzXEaAY4dEiBeEn7tRUGBGE6A/HpjAPnGc2mMwgaZ84gn - 8jzbJrSVKqZE1VmfvI68MXZEAM+LQmkshTyXIY+4PZjdjIN8iPC/QV4KDP4BJS78hDKMaJMvBRD+BjBQ - WZwMnoULGA5Z1aErCkC05JpAGpTTmL6I0k+Aq669YUgAKUw89iHM4wlCgAglQKwHfh7kpwcGi2AUoT/L - 4mDgtgAlefeFqgGRkucZPXLR1KYqg5BDDkmFsU1AVCCgUKodxs80IKi9c23az4II1LdaQDxCpwAI5yrQ - nrAEM0aI/aMgf1hgpBehEaHgxrjR41VFp00eFBLkeVVYIsoIhSWrPxDBucF4FTEiyPU2ATCfiyS1I6PA - GASA4QQwVo6Zzwl/5BEvP7hyGEcFx168P/xh8LYQ2r0WYObsU1beGRVYIaFQWwCFBHkeUWh0poorYgpQ - Vn7HvGJxI6IsPR0TKdcEXbVAwfRSox825HoAIeuDfgIQzbickRHAVoSRF7WJXHAR9YjpRz0TvCfiXgsw - 9nOfm8r7jNYwC2GSF1YMytxP7zNA/qX3edCcTmkiIeOcAMK8XxR4S0RSv2qRvDcWIRx3LYRA+xxbxHGO - CCAA0pm6uGiT/QbnSwNfqAWwOQjy/ymPdaRweEgu5UoqvcFAHyJ5ktcy73mP982ziqJUonhdGyIytJEK - /abELIYKMeEYC/roeh0Gwips+uYIbdmaAqQInOi+1A37LYOPC+xTk7fFyR5B5O1cJPAeEaipw6zGBkzy - DBC6WeAYIfcJxBAC6IsoBOABadNvNoDpRx9brydETeasfn0d7mpf1o8UQIirAUke9IO8iIpI9EMK7wHv - /5AiTkZMPujgeTxscJ3JIeSBEUj7VF0SELrmfstgUxUxeJwhBiQA8iLFoqgfkRLaADHy03hX3SihFnm3 - SAF4XPFD3scdjlPjRPOX9j9gTfD1ZXjr3xTFhT0iDX4RHushIdeR1yEF5TcPA4ESxOE1+Z2fp3hPxNir - KdLDc/ooId2yaOYeOAEU0RJqlChN5Lm+jStNRWsZAYizP+pDL1Lrl8HTV+GBhvb7W1wcGXP6w4gbDDkp - QACd5McJ9xjrvvyHUhT3UwBTWJnLmRL5LKOtFxy7Jv8R104d8Yy9moBEjk04IJaU08ZY7GSv9CWAX7CI - QMKoZyfOOvmd4DkV14b21lvc+LzB09vyuKz+jDBoEpDXSDhmkMjRxnME85zKLB0YyWNIeh5x0eP5uo8w - 1JgIaoeYvthTkvd8RlC2JZDxTIPCPAVA3LOuc0LwmxfY9pN4bpSJorKBscgwUBrogMIpAi+5zwDIcHUv - 8583CJAiZBQwVtiWIe4cUfe0IaA+wLhlJLEBtKmFjnvGEPoiFnmhbyonsogwK0Qt+U7wOzLQ/2czcXNE - YGyo/6vwRi89ZhFUepORkEYTTNin4dqpuDyQcJ5khsiF15IkwfIZUQfG7QeO4e1y2atw+4uWP+qwjc3R - 1gr3f4LX3ICf0Q3/g8posNcxx52wnMoZrpTPlRlDERwyPvagTX0cZBARNbzC2CTj3HHueQeSEKjggFgu - Y8t5PYsboglrFqRVfJ73rMgSEfqYMnXa+uDVP/fbWzT8TOT3D4SmUJejDE0RkEMyQxwIY59eLMmVBBOM - S/Cg0E0vApLeQiEJKmoIgt8pgl+u5T7BaTkTxOLqr4PPCYEd/5lMNP5UYIJVUxSbOhUUPIYnMV5MTyNc - wjVtk7hQBWRLDyPN0Fy3p2ft06Nt0n6oCa9tfrPauOWtITjf9MbbdSFtxOxFhAr98wLdfxEebhs9MLDX - lw8YN0doE0GBM58jhDySJZJ4QrtEKQAkeRCiSR54GxBPpJeTeJJ//c13qs1vfbPGG+98u56hGs/3iLzf - F794SxA/NLBzvxeMB/c+esbxK+U6ERQW6ZAiJEri/QRI7yMPZW6n5zPcU4D0PAFe2dRNfsvb36re+e3v - 1OT1F33Uv25p8t6X370bOh98i4fNCqNiAXF/KYJISI9/WAEy37sESBGGE8CxYu3ZaN/z7FHHzNgUdnvh - GYNDQ2fntuhAPRh9/MxZ96jyRLBIiX099akH/QQoa0CXAMI/1+w7IkCZ+wSQQupTEyk1+XjXf7UhP5bt - DY0PtzUijJl2+BErREKEW89CRl0gRDk72IuKfgLI0TICsga0BSgLIAHKKFDsiG/m0Sbu1f+wcdAhUx4L - O33t3XXkc2tEGNh37NgzQvX3GGAVaEEkBE2XoqFrFgACQApgnxFQ1oEUoD3tEQBx6wwRSCxtREOsWf4r - ivZ1YZ+VnrDfteTLLTr3nxmT4+3vu2aIjIZcOClG/QQQCYgnkBcFwxVCxAkg8hD3nLbRrqft/EXnfz/s - scb3jW/nC94H2WKgkYEvjJ944LIg/G9qAyHko2OrMMdQkoesA4g08/VWhTDD315fltmQ0RJt61+uR/r9 - IqbptWHH8QF/6/9o/lOk3xYDSolRgfGxdF4XpP/DEjn2tRCMdm41qVbwnhnEMWK5iFI/rCBFEOR7BmTB - bFKnLnJx/ZdR6F6McU8KHBQYHfjoQn57Wwy+Z2DfwKRDDp26Ol6L32W8AhVC1DNGvq6qD+oEws7z5ch1 - kSFCREyuLyKFeiLDM9Hvj6PIPRrjzApY3Ch0H6/Xh9vCmBTC5+bZMW1uiGXpD2uPB0neLkOaSDwut90X - LYhKDR53PUj/6LgTT9oY/S0JqO7+C8QYn4x/muzawrjdA/6Pz6vngYFpA2PGLD38yOkPnbNg0TdjJfmn - hIma8Q8xc/wjxPm7cf37Z89f+DuHHXHk+qjoy+O5EwP+fCXM9aXPj/7f4nblFgarE3sF5CkSfqzstzn+ - s2tKQCgn/KMTD2ujrWc8+5tFergtyFhaE0WU+I9waQOOXXPvwy1dP9C2227/B9BNCM1x5ligAAAAAElF - TkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB98EHAcCA26DbwAAABHRSURBVHhe1dt5rB7VeQZwHMAkAfsaJyEJeMFx + AGOzmAJmMTarDYZg4wUMZscYMItZDDa7w74YzA4BG5stSdWoahsprVS1UqL2n7ZSRNuoVVq1qtREaqqk + VI0aNar0Td/f3Hkvx+P5ro0xlIz0aLYz57zP8y7nzNzv7vZxb/uMGrXfxElfOezgKYfOmjJ12skw4cBJ + h8f1LzdN6i3OP9Uc/uZuB4yfcPSCxRfctXLVbd9btXrtT29dc3e15p511d1ff6S698HHajhec+8DlXs3 + 3npHFW1/dt1Nt/7xuQuXPDhuwsSZIcQeDUY03X6yt0mTv3rslddcv+m2tff86sHH1lcQBHur77y3ims1 + 0dvvuq+Ga85vvv1OxKtrb7yluuaGm6F3yx131W1CjF9feuXV3z7wK5PnEGL0wMAezVCfrG32qadfHmT+ + +ZEnN1QPPf5Udc8Dj9befeypZ6unnnupeuDRJ6v7Hnq83ufxuocH8fVHnqivab/2vgfr4zvuvr9acf2q + KsSshSFeCPOvx8+ctSqE+Gxgz2bo/9/thJNmLw7jfr7hhVd4u8fjjomAHFJ3rXu4eubFb1QvfGNT9fwr + G4f2ifL6sy+9OiSe/Z33P1SnDSEuv/q6noiJqHjvqGNmrAgRPi0qGlM+3i0G3j8881fIPrr+mR5PP/fy + a7VnGewcKYSAAG3kvS549sVXX6+e2PB8LSAh7Alx2VUraiGuWLHyb0aNHv1bTUR8fDXitDlnXsPTYWiP + gQzNYpZehC6S2yPeBWK89NrmumgSFyIaCNBTP046+dS7Q4C9A7s3Jn5028WXX/W7SD79/Ms9+7rIhUHp + 7X7e3RniXSC2SCC2whkFshZh8dJlfxIC7BcY2Zi6a7fo+NORe3/36utv1KHOI6r4k8+8UBvWj+DOEk8h + IcSuId3s3VdYczYJEdSF6rLl1/5T2PlVtjZm75otOtwnpqWfbtzyVo8HDI58hnsXyZ0hXhLOY6S7oI2o + M2tkSsSs0Ysa8bOw95DAXo35H26LjkbedNuan7y2+c3eyxu3VKY5uSgKdoZkG23SSa4kWoL4CeeeMW2m + CMuvu7EXteHfw+7Ju0SEq1fe9G6Efe15U1tT/DrJd13rhzbpNtkk2IVShGzHNmuHjISoVT8OAfYP7Px6 + 4YJll25BnLcffuLpIfJdZLqud6FNvCRVHsP6Z1/sPG4j77FPTYhpsrr+5tXV185b/AchwOcDH3x2mDn7 + lMVpoM5V3i4y7WttlIRzX/Zrn8clGcXVsWn28aefq8/zuIRr7mV7q0rLaIXR/vAjp98WAoxpaO3YFg+M + DsK96LDH+zpScJLw9ojn/SRXIkm2z5M0JLE22R2BvqSCCLjkiuU9L1jB5+jAZxp6298ij34/PVWS3x7x + REmu9FB6KfcJ59muJG41GavMISjA+a6Rx1C2yXcPdjf1oFp68WU/CAG+FNh+Khx0yJQZOgFreZ3uKPEU + LYlDGqxSqyPZd5JN4gnEk4ycBmGdL06W2s7b0K4tTMxeQ6mw/7jxy0KAUQ3N/luEzg/j4V56v4toF0qv + J+k0Pl+BLZcJ4T4R0tPpddcQd9+zCOeLkZWf0M7FT8L0Zy2gnfbGM7Z+3LNAikiwPjArjBs2CsL7J3pQ + BzrvItoFnkdeOKfxs045rYpCqhJXMSUNvdIik95KwiX5FO7k086o4hXbOr/uB+LNs4rX4a3gWt5PITzP + Dv3ecMvt9azACQeMn3BFCDC6obvtFkb+URhQv+B4oItsG0me55EwOLKnnjG3ipem6pTT51Rz551jmVoX + JitICyntAGlIAaSJKCEa8fSTfXVB3xdecrkXo8FVYURKKYLzjIIoin8RAowPbPu5LS4OmOrkmFCTAl2E + 20gBiMZ4g5959rlbGYnAgsUX1EaqyvovjUwRwLXMaejqLyG/sw3yvC1ynesjo8BLk4LYzAg+s207I8Qg + q9ODvGT66yJcovS+wQyq8HQZe8aZ81TjuiqLLu/32hOtFMC561JFO9Ekerr6RArpWP5WsWLdSgA8Ms3U + Ave9NUbaPB8C7NfQfn8Lw/8yBu15iHFdhNsgQFZ8zzH63IVLOo0VBQvPv7A2mkiloWUUpACikSN47/S5 + Z23T35yzzq77kt/2RFi1em1NVjHUr74IIKWaKFAM/z4EmBR4vxjGyZ4MEkY6sfztIlyiLHwGYbTBM1+7 + 8vasry2oc1sUmGGMxzjipQiOGY+E/GVPVwqkALFcr/vkYRGT4a8P/UkBdooOKWgffLdeGE2ZOm1uelAn + +XFjOOgUzN2UVtgYwjhqtw0GabDssitrrwltoqe3gBg59SGfEdAlwDkLFtU1QFTpUzu1RQ3DJcnnOsM9 + ItmPmzDRh9V9a/IDY8aMWHLhxetygcGoLsIlMvTBQIyXNmeeM7/Oc9Odotc2GmKs6qJLr6i9x2h5KXI8 + zwHgGAhg5hA57X70j/iiCy6qx0TOuBxBgFxYpQCuE136xcyxOQTwpjj4HTEM+T3KaCQsu0iXyMKnc6HL + a8KaobwiEny8bBsNZ89fWIvAaG0YZOwUgA0ioP7sFcIQaN65523TjynS9EcIgiJHAP14PlOLjWx1bDpU + K8LGPw/y6sDgdBhG/K2H5aUHukgnysqf3mc4IxnFKwiCObptuHBm9OKly+pUEAXGJnwKIBqRcI1Nwr3d + D7ERV3QJngIQjkMIkKkFBDAWAQL/EuQPDgx+Ug8B3pP7GmyvACZ5YUUAaeNZRilIQhu5+YvOr8VoGw5S + xX0EclrMBQwB9EkE3kSqSwBCIk70WOAM1QDPI98WQJ3SrvnL038HeX+PHPxipNIyQoUcToDS+woMVRnK + 2zyCvDmbAOctWVqjKwpAG/nrGWkg3EUA77UFQLL9vFlABBEHMbWCAJ5LjyecS9WMFGIF+aOGBBBmco0h + /QRAPotfep/KwtSURwDTDK+LBB4W6sRpGw8MJ4D2jFLwhC/y+rUXEa53rS2sDYhHHELUIkYUlbMK8jwP + 7CUA8toG+WMCg1Mh8kDF4QRI75v30/uMYBCyCiAgxfvqguveB9oEeBCx8y+6ZGgO5/EyhEVEPwGA4P0E + 4HF22rPVMQFwbASYEfhsLYAL0K8GJHkoFz7CMxc8vKkqI4S0as9LyHctilwTBYQimPRLAikAMUzL/QQw + i7gn7aSxaGRXCsDrKYSUzXEaAY4dEiBeEn7tRUGBGE6A/HpjAPnGc2mMwgaZ84gn8jzbJrSVKqZE1Vmf + vI68MXZEAM+LQmkshTyXIY+4PZjdjIN8iPC/QV4KDP4BJS78hDKMaJMvBRD+BjBQWZwMnoULGA5Z1aEr + CkC05JpAGpTTmL6I0k+Aq669YUgAKUw89iHM4wlCgAglQKwHfh7kpwcGi2AUoT/L4mDgtgAlefeFqgGR + kucZPXLR1KYqg5BDDkmFsU1AVCCgUKodxs80IKi9c23az4II1LdaQDxCpwAI5yrQnrAEM0aI/aMgf1hg + pBehEaHgxrjR41VFp00eFBLkeVVYIsoIhSWrPxDBucF4FTEiyPU2ATCfiyS1I6PAGASA4QQwVo6Zzwl/ + 5BEvP7hyGEcFx168P/xh8LYQ2r0WYObsU1beGRVYIaFQWwCFBHkeUWh0poorYgpQVn7HvGJxI6IsPR0T + KdcEXbVAwfRSox825HoAIeuDfgIQzbickRHAVoSRF7WJXHAR9YjpRz0TvCfiXgsw9nOfm8r7jNYwC2GS + F1YMytxP7zNA/qX3edCcTmkiIeOcAMK8XxR4S0RSv2qRvDcWIRx3LYRA+xxbxHGOCCAA0pm6uGiT/Qbn + SwNfqAWwOQjy/ymPdaRweEgu5UoqvcFAHyJ5ktcy73mP982ziqJUonhdGyIytJEK/abELIYKMeEYC/ro + eh0Gwips+uYIbdmaAqQInOi+1A37LYOPC+xTk7fFyR5B5O1cJPAeEaipw6zGBkzyDBC6WeAYIfcJxBAC + 6IsoBOABadNvNoDpRx9brydETeasfn0d7mpf1o8UQIirAUke9IO8iIpI9EMK7wHv/5AiTkZMPujgeTxs + cJ3JIeSBEUj7VF0SELrmfstgUxUxeJwhBiQA8iLFoqgfkRLaADHy03hX3SihFnm3SAF4XPFD3scdjlPj + RPOX9j9gTfD1ZXjr3xTFhT0iDX4RHushIdeR1yEF5TcPA4ESxOE1+Z2fp3hPxNirKdLDc/ooId2yaOYe + OAEU0RJqlChN5Lm+jStNRWsZAYizP+pDL1Lrl8HTV+GBhvb7W1wcGXP6w4gbDDkpQACd5McJ9xjrvvyH + UhT3UwBTWJnLmRL5LKOtFxy7Jv8R104d8Yy9moBEjk04IJaU08ZY7GSv9CWAX7CIQMKoZyfOOvmd4DkV + 14b21lvc+LzB09vyuKz+jDBoEpDXSDhmkMjRxnME85zKLB0YyWNIeh5x0eP5uo8w1JgIaoeYvthTkvd8 + RlC2JZDxTIPCPAVA3LOuc0LwmxfY9pN4bpSJorKBscgwUBrogMIpAi+5zwDIcHUv8583CJAiZBQwVtiW + Ie4cUfe0IaA+wLhlJLEBtKmFjnvGEPoiFnmhbyonsogwK0Qt+U7wOzLQ/2czcXNEYGyo/6vwRi89ZhFU + epORkEYTTNin4dqpuDyQcJ5khsiF15IkwfIZUQfG7QeO4e1y2atw+4uWP+qwjc3R1gr3f4LX3ICf0Q3/ + g8posNcxx52wnMoZrpTPlRlDERwyPvagTX0cZBARNbzC2CTj3HHueQeSEKjggFguY8t5PYsboglrFqRV + fJ73rMgSEfqYMnXa+uDVP/fbWzT8TOT3D4SmUJejDE0RkEMyQxwIY59eLMmVBBOMS/Cg0E0vApLeQiEJ + KmoIgt8pgl+u5T7BaTkTxOLqr4PPCYEd/5lMNP5UYIJVUxSbOhUUPIYnMV5MTyNcwjVtk7hQBWRLDyPN + 0Fy3p2ft06Nt0n6oCa9tfrPauOWtITjf9MbbdSFtxOxFhAr98wLdfxEebhs9MLDXlw8YN0doE0GBM58j + hDySJZJ4QrtEKQAkeRCiSR54GxBPpJeTeJJ//c13qs1vfbPGG+98u56hGs/3iLzfF794SxA/NLBzvxeM + B/c+esbxK+U6ERQW6ZAiJEri/QRI7yMPZW6n5zPcU4D0PAFe2dRNfsvb36re+e3v1OT1F33Uv25p8t6X + 370bOh98i4fNCqNiAXF/KYJISI9/WAEy37sESBGGE8CxYu3ZaN/z7FHHzNgUdnvhGYNDQ2fntuhAPRh9 + /MxZ96jyRLBIiX099akH/QQoa0CXAMI/1+w7IkCZ+wSQQupTEyk1+XjXf7UhP5btDY0PtzUijJl2+BEr + REKEW89CRl0gRDk72IuKfgLI0TICsga0BSgLIAHKKFDsiG/m0Sbu1f+wcdAhUx4LO33t3XXkc2tEGNh3 + 7NgzQvX3GGAVaEEkBE2XoqFrFgACQApgnxFQ1oEUoD3tEQBx6wwRSCxtREOsWf4rivZ1YZ+VnrDfteTL + LTr3nxmT4+3vu2aIjIZcOClG/QQQCYgnkBcFwxVCxAkg8hD3nLbRrqft/EXnfz/sscb3jW/nC94H2WKg + kYEvjJ944LIg/G9qAyHko2OrMMdQkoesA4g08/VWhTDD315fltmQ0RJt61+uR/r9IqbptWHH8QF/6/9o + /lOk3xYDSolRgfGxdF4XpP/DEjn2tRCMdm41qVbwnhnEMWK5iFI/rCBFEOR7BmTBbFKnLnJx/ZdR6F6M + cU8KHBQYHfjoQn57Wwy+Z2DfwKRDDp26Ol6L32W8AhVC1DNGvq6qD+oEws7z5ch1kSFCREyuLyKFeiLD + M9Hvj6PIPRrjzApY3Ch0H6/Xh9vCmBTC5+bZMW1uiGXpD2uPB0neLkOaSDwut90XLYhKDR53PUj/6LgT + T9oY/S0JqO7+C8QYn4x/muzawrjdA/6Pz6vngYFpA2PGLD38yOkPnbNg0TdjJfmnhIma8Q8xc/wjxPm7 + cf37Z89f+DuHHXHk+qjoy+O5EwP+fCXM9aXPj/7f4nblFgarE3sF5CkSfqzstzn+s2tKQCgn/KMTD2uj + rWc8+5tFergtyFhaE0WU+I9waQOOXXPvwy1dP9C2227/B9BNCM1x5ligAAAAAElFTkSuQmCC - iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAAwAJIA0CAmvbMAAAAHdElNRQffBBwHAwdw9ZpY - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAABCwSURBVHhe1dsJrB1lGQZg - KtCydIW2Qi3Qem1LS4UCLZRCAWUTjVAsmyUgipXFiAQUAgooiBsJGMSggiiicFNEwChEggqCEZcYXKJR - ozEREzUgRqKRmJzj98yZ7/S/0zn3tqUgTvJm5sz8y/e+3/L/c+65W73Yx+SJ287ca97kxUsXT1u5fMnO - h8HCocmvjvu71k2qIz6/rL78/z3mzZm4/wVnzrv0pg/u943PfXjpn277+AHd4U8c1P3qpw7u3ntTD67X - 3XBQ17PPXr1/N9r+5VMf2O/B88+Yd9X8uZMODiG2qTGuHvalfey9YMqyj71371tuv/aAf33z1kO7EAQ7 - 8bkLiN5x3fIK+TnEQbx74xX7dm+4vELn1o8sq9qEGM9dc+HiOyNqjiLEtCnjt6mnemkdp75ht7cEmd9/ - 64uHdx/8wmF9737nS6/tPnLn67r337Kye9+nD6nOef31m1dWyHva3/XJFdX1ndcv715/2ZJuiFkJQ6wQ - 5o/HHzHr/BBih8C29dT/22PVUa9YHcY99d3hN/B2h8ddEwE5pO6+cUV177GvrO4+dtcJ68+J4v6j647r - i+esr7QhxEff8+qOiImoeObIFS9fGyJsJypqU17cIyaeFZ75EWLfvv01HZ5+dN2qyrMM9hkphEC7JvJZ - G/T93t0ndh/+8lGVCAlCREpUQsT1zyIl9qsj4sWrEWes2uMdPB2GdhjI0Cxm6UVoIzkW8Tb0xDi5iojh - EBciGgjQUT9OOnb2ZSHAjoGtaxNfuOOqd+91N5KR1x1nQjAovT3Iu5tDvA3EFgnEVjhFAxEuXrvgoRBg - ZmB8beqWPWLg7SL3fvn9e9aEIasqjyhMD99xTGXYIIKbSzyFBEUU8tpz51xNQgR1wfl3Yeer2FqbvWWO - GHBiLEt/evze0zo8YHLkM9zbSLbdGwsl4bweBG1EnVVjuE6JWDU6kRZ/CXsXBCbU5j+/IwYaf/M1S5/s - kT+5a5mTi6KAIW1ENgUloUHXo0Eby+ZwLcJ1l+5DhL+G3UNbRIRQ9YkI+8rzlra6+FUTt5Fp3huEJOec - aJLbFLDN3iEjIWrVr0OAWYHN3y9cdu7CzyPO2w/dtp58G5m2+21oEm8SKaG+tF03kc/YlzXh01ft333X - 6a+6LwSYHtj01WH1MbNXlwaqvG1kmveaKAnnuRy3iSTjXCGWWXuK8rqEe/22AelgG00E50OXzbgwBJha - 09q4IzpMDsKdGLDD+wZScJJwngchnzfJJRja9jlJJLEm2Y2B/lJBBFx9weKOF6zgs39g+5re2Efk0b3p - qZL8WMQTI8g1PDQQ2a5BPHaZfSjA+a6R11C20ce87K7rQff95y18JATYJTB2Kuy7aOoBObm9vEE3lniK - 1CceSIOFpjqSY/dJJ/EaniUZOQ365otT+UJVQrumMLF69VMhXs3XhACTapqDjwidn0TnDiI6thFtQ+n1 - JJ3G5yuw7bLPnqcQlRiF1xH3XF+E88XIzk9o5+YnMRzLn72Adtob39zG8cwGKSLB0mhVmD1qFIT3V+ho - AIO3EW1D3+vhwTQ+9ufdKKQqcTeWpP4rLTLprSRckk/h4vW6Qo4D8ebZjdfhEXAvn6cQ+qfIaoAo4ISI - gjNDgMk13Q2PMPKBMKB6wdGhjWwTSR5MaHJkTztu9268NFUk3nbi3P7SRIQ0EpBOEZylCS8SjXjGybHa - YOzI8eotkQAipRTB54yCKIo/CAF2C2z4dVvcnGKpk2NCDbE2wk2UOc94k7/9pLkjjETggjPnVUbyiPFL - I1MEcC9zGtrGSxA12yBvbJHrc5lqN8VLk4JYrwi+ZttwRYhJLkoP8pLlr41widL7JjOpwtNm7FtOmFN5 - SlUWXcTWnmilABkBUkU70YRo25hJKra/1bilAHhkmg1HLfDcW2OkzQ0hwMya9vojDP9hTNrRqW3T04bS - +/ox+vwz5rUaKwouetv8ymgilYaWUZACsIEjeI94zfHeunpONRZxnImA4HCQVQyNaywCGK+OAsXwVyHA - 3MD6YhgftmWQMDJIb/vbTjrRJ18vXSYZjskzX9vy9uxTX1nlNm9YYcynH/FSBNeMR0L+sqctBVKA2K73 - xxQxGf7GMB7b2Ck6MgWD78iN0fIlOx+dHjRIfrkxGjL0CZC5zxDGUbtpMPCkNrwmtIme3gKG59KHfEZA - mwDnrRmqxhFVxtRObVHDcEnyuc/wjEjO8+dO8sXqtIr89GkTxl28dsGVucFgVBvhEmXum4jxQnbtKa+s - 8pzhil7TaIi5upe/c1HlPUZn2OrPAeA6U8DKIXKa4xgf8fectaBfW7QnHgGQrlAL4D7RpV+sHLeGAN4U - e98jhiH3ZGUWlm2kS/S9H4MLXV5jAEN5hWHCrWk0nPPmoUqEXLoYZO4UgA3g83AIQyB9muNYIo1BCIIi - RwD99M/UYiNbXVsO1Yqw8bEgrw70lsMw4uc6y0sd2kgn2rzPcEbmpgdBsEY3DRfOjPacWKLA3IRPAURj - OoNNwr05DrERV3TNWQrAIVkHEgQwFwECfwjy8wO9r9RDgGfkvgZjFcC+9yOsCGAifRmlIAlt5NKwpuEg - VTxHIItXbmDSe0TINGgTgJDGJ3pscPo1IPs3BVCntKv/8vTPIO/vkb1vjIQZI1TI0QQova/AUJWhCPMI - 8rzqs+IEbVEA2shffaTBcIS7CEjvlQIg2exvFTAXcRBTKwigX3o84bNUzUghVpDfty+AMCMCQwYJgHy5 - 9KX3hakljwBy2iQigYcz1JvGA8MJ0Azf9B7wpvttewsrCvGIQwi2i6JyVUGe54G95kJe2yC/NNBbCpEH - Ko4mQJv3GcEgZBkCJuJ9dcF97wNNAjyI2KVn79lPg7KAgYgYJAAQfJAAPM5OZ7a6ZheOtQAHBHaoBHAD - BtWAkjzvG4yBjMsNTy5HCCGNPC8h37Ypck8U5Dou/ZJAGQGW5dEE8IwAHJgbqxSA11OIFMA8tQDL+gLE - zec8UCBGE6BaVwMmkG88l8YobJA5n6+z6f22KNAWAcKpzsbk9SSxsQKIQmksgvTLkEfaGaxu5kE+uP4n - yEuB3h9Q4saTBGBEk3wpAJigWZxMzmgpAQxvoi0KQLTkniDToCyERBkkwLWXrBdABBCPfUm+iRQg9gNP - BfklgV4RjCL0aBYHEzcFKMl7LlRNiJRQz+gRipY2VRmEnEmRVBibBEQFAgplM4/N4+zzIAFEoLFTPEKX - AuQu0JmwBDNHtP9FkF8cGO9FaFwoeHM86P+Ko428QsIokwhLRBmBJAOcARGfTebsMxHkepMAWM9FktpR - EjFXij1IAGPnnNlP+Ffk63RNATiMo4JfJ2y5P3jbCG1dCbD6mNnnUkgjCjUFUEjSIwqNdqq4Imby0hBe - ARFl6+nas9wTtNUCUeS5/hnK5kJoOPYHgwQgmrE5IwVga3o+nQfs0AaPww+ccX3w3gP3SoCZO09YxPOM - 1jALYZIXVgzK3E/vM0D+MQJ40JpOaUTAZ89yc9QkAVYLJI2rr7w3FyFct22EQPucW8RxjgggQEkeF21y - 3OB8emBGJYDDRZD/uzw2kBDSSS7lTiq9wUBfRPJkeo0h6X3rrKJIKIqXtUEqDFoSsxgqxIRjLBij7XUY - kNLH2ByhLVubAnCi51I37LcNPjAwsSLviA/bhJG35yaBAUSgpgGzGpswyTMgNzoKHCNEAIEYQgBjEYUA - +kqbQasBHHHQzGo/IWrYYCzjtqUNlPUjBRDibC8FMA7yIioi0Q8pvAes/yFFfBi3z55Tj+VhkxtMDiEP - aQSUBISutd82WAgTg8cZYkICIC9SclNUEmhDzkOMvB6rn1okxVKAqg7UNcCXO8QX+qJ5zuwdLw6+vhke - +ZuiuLHNTR/c7+nwWAcJHkTegBTk3QSBEsThNSTz66kMYeeMgLJ/Qrp53gQngCJaIuyrUiyRn41lXmkq - WssIQJz9UR/8lObZ4Olb4Sk17fVH3BwfIf0hxE2GnBQggEFEB0KeMdJzxJJcCuJ5CmAJK3M5UyL7Mtp+ - wbV78h9x7dQRffJFDYmcm3ApnvvamIudZQr4BYuxCaOevenoV3wpeC7CtaY98ogH002eHiJGWf1N1iQA - rhkkcrTRlmD6qczSgZE8hqT+iIuecgxzGl874wB7nJO8/mlftiWQ+RDNFx8C+KyvMycEv2MDG34lngdl - oqhcx1hkGCgNDEDhFIGXPGcAZLh6lvmPfIIIGQWMFbZliPuMqGfamMcYYN4ykjwrkZ4X+rkJQt5STmQR - YVWIOnJX8NsnMPhnM/FwXGCnIPKvULhDXYpnGqQ3GQlpdIZpGq6diku4hM9JJsnxWpI0fvYRdWDeQeAY - 3m5ue723+KMO24wZbe1w/x28jg74Gd3oP6iMBhNef/iuZyGT4Ur53JmlEGm8M2jjjEwS4RXGJhmfXec5 - yUCuOCo4IJbb2Oa6DogmervWVVXF53l9RVa1KYoxli/Z+drgNTj3m0c03D7y8hGhKdTlaBIpPUqMJpJ8 - Sa4kmGBcggdLL+YStgHBKGoI9nDyQHBapkJslH4afA4KbPzPZKLxywK7Ryr8M1OBCAxPQryYZNuQbZ2F - KiBberhPvCacpJ3To03SfqgJj9972gb4wdfOqIpjLWYnIlTorwq0/0V4tGPalPEThnafeJTQJoICp1Ij - hHwb6RLaJUoBYBD5HvHeSxjiifRskzjCiR99/e1VQTZmjNMh8uxdtr8giC8MbN7vBaPjjses3OVcuU4E - hSUjgQiJjREgvY88NHN7ZLj3BBjp+VMHkD+z++MHzq3IGy/GqH7dUue9b353rOls+hGdrQqTYgNxRSlC - bi7g+QrQnu/rI2AsAVwr1vpG+46+R654+S1htxeeqTjUdDbviAHUg8nHHzHrfcNR5TMd5JqlT54PEqCs - Aa0CDCx47QKUKYC8cFef6kipyMe7/mdq8juxvabx/I5ahKkrl05fKxIi3Do2MilEuTqAqBgkAKM3KgJG - FMCsAb0oQJ74Vp1em5Orf9jYd9HUj4Sdvu3dcuTzqEWYMn3ahCND9WcYIO9siISg5bKMhlIAIACkAM5l - BKQIKUDbsoe4fQbhe21XVYLEnuUfUbTPCfvs9IT9liVfHjG4/8wYire/r1khMhpy40SUQQKIBMQTlQAR - BaUAI6Kg591KAJGHuH5126rYxWv4w2GPPb7v+Da/4G3KEROND8xYODR5TRD+83DUBkLIR9d2Ya6hJA9Z - B/oiNNIgw9/ZWLbZkNESqH65HmI8Hcv0JWHH8oC/9b8w/yky6IgJpcSkwG6xdb4ySP/NFjnOlRCM9tlu - kufACuKMWLnvl8siCPI9A7Jg1qlTFbm4/2wUuhtj3kMC8wKTAy9cyI91xOTbBqYF5h64z04XxWvxE4xH - KoSoVgz1AmmEpYVnPufLkfsiQ4SImNxfRNuOyNAnxv11FLkPxzwrAzY3Ct2L6/XRjjAmhfB186GxbF4X - K8RPCJAky5AmEo/Lbc9FC6LSgsfdD9K/eONrZ90c450YUN39F4g5Xhr/NNl2hHFbB/wfn1fPOYG9YuU4 - 5dBlM64+b83Ql2Mn+S3CRM34Tawcv4X4/ETcf/icNw+ti6X22qjoZ0W/FQF/vhLmxjLmC/9vcVvyCIPV - iQkBeYqEHyv7bY7/7NozIJQT/tGJh7XRVh99/79Ij3YEGVtroogS/xEubcC1e549v63rJh1bbfVfKD7x - Gj8aQboAAAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB98EHAcDB3D1mlgAABCwSURBVHhe1dsJrB1lGQZgKtCydIW2Qi3Qem1L + S4UCLZRCAWUTjVAsmyUgipXFiAQUAgooiBsJGMSggiiicFNEwChEggqCEZcYXKJRozEREzUgRqKRmJzj + 98yZ7/S/0zn3tqUgTvJm5sz8y/e+3/L/c+65W73Yx+SJ287ca97kxUsXT1u5fMnOh8HCocmvjvu71k2q + Iz6/rL78/z3mzZm4/wVnzrv0pg/u943PfXjpn277+AHd4U8c1P3qpw7u3ntTD67X3XBQ17PPXr1/N9r+ + 5VMf2O/B88+Yd9X8uZMODiG2qTGuHvalfey9YMqyj71371tuv/aAf33z1kO7EAQ78bkLiN5x3fIK+TnE + Qbx74xX7dm+4vELn1o8sq9qEGM9dc+HiOyNqjiLEtCnjt6mnemkdp75ht7cEmd9/64uHdx/8wmF9737n + S6/tPnLn67r337Kye9+nD6nOef31m1dWyHva3/XJFdX1ndcv715/2ZJuiFkJQ6wQ5o/HHzHr/BBih8C2 + 9dT/22PVUa9YHcY99d3hN/B2h8ddEwE5pO6+cUV177GvrO4+dtcJ68+J4v6j647ri+esr7QhxEff8+qO + iImoeObIFS9fGyJsJypqU17cIyaeFZ75EWLfvv01HZ5+dN2qyrMM9hkphEC7JvJZG/T93t0ndh/+8lGV + CAlCREpUQsT1zyIl9qsj4sWrEWes2uMdPB2GdhjI0Cxm6UVoIzkW8Tb0xDi5iojhEBciGgjQUT9OOnb2 + ZSHAjoGtaxNfuOOqd+91N5KR1x1nQjAovT3Iu5tDvA3EFgnEVjhFAxEuXrvgoRBgZmB8beqWPWLg7SL3 + fvn9e9aEIasqjyhMD99xTGXYIIKbSzyFBEUU8tpz51xNQgR1wfl3Yeer2FqbvWWOGHBiLEt/evze0zo8 + YHLkM9zbSLbdGwsl4bweBG1EnVVjuE6JWDU6kRZ/CXsXBCbU5j+/IwYaf/M1S5/skT+5a5mTi6KAIW1E + NgUloUHXo0Eby+ZwLcJ1l+5DhL+G3UNbRIRQ9YkI+8rzlra6+FUTt5Fp3huEJOecaJLbFLDN3iEjIWrV + r0OAWYHN3y9cdu7CzyPO2w/dtp58G5m2+21oEm8SKaG+tF03kc/YlzXh01ft333X6a+6LwSYHtj01WH1 + MbNXlwaqvG1kmveaKAnnuRy3iSTjXCGWWXuK8rqEe/22AelgG00E50OXzbgwBJha09q4IzpMDsKdGLDD + +wZScJJwngchnzfJJRja9jlJJLEm2Y2B/lJBBFx9weKOF6zgs39g+5re2Efk0b3pqZL8WMQTI8g1PDQQ + 2a5BPHaZfSjA+a6R11C20ce87K7rQff95y18JATYJTB2Kuy7aOoBObm9vEE3lniK1CceSIOFpjqSY/dJ + J/EaniUZOQ365otT+UJVQrumMLF69VMhXs3XhACTapqDjwidn0TnDiI6thFtQ+n1JJ3G5yuw7bLPnqcQ + lRiF1xH3XF+E88XIzk9o5+YnMRzLn72Adtob39zG8cwGKSLB0mhVmD1qFIT3V+hoAIO3EW1D3+vhwTQ+ + 9ufdKKQqcTeWpP4rLTLprSRckk/h4vW6Qo4D8ebZjdfhEXAvn6cQ+qfIaoAo4ISIgjNDgMk13Q2PMPKB + MKB6wdGhjWwTSR5MaHJkTztu9268NFUk3nbi3P7SRIQ0EpBOEZylCS8SjXjGybHaYOzI8eotkQAipRTB + 54yCKIo/CAF2C2z4dVvcnGKpk2NCDbE2wk2UOc94k7/9pLkjjETggjPnVUbyiPFLI1MEcC9zGtrGSxA1 + 2yBvbJHrc5lqN8VLk4JYrwi+ZttwRYhJLkoP8pLlr41widL7JjOpwtNm7FtOmFN5SlUWXcTWnmilABkB + UkU70YRo25hJKra/1bilAHhkmg1HLfDcW2OkzQ0hwMya9vojDP9hTNrRqW3T04bS+/ox+vwz5rUaKwou + etv8ymgilYaWUZACsIEjeI94zfHeunpONRZxnImA4HCQVQyNaywCGK+OAsXwVyHA3MD6YhgftmWQMDJI + b/vbTjrRJ18vXSYZjskzX9vy9uxTX1nlNm9YYcynH/FSBNeMR0L+sqctBVKA2K73xxQxGf7GMB7b2Ck6 + MgWD78iN0fIlOx+dHjRIfrkxGjL0CZC5zxDGUbtpMPCkNrwmtIme3gKG59KHfEZAmwDnrRmqxhFVxtRO + bVHDcEnyuc/wjEjO8+dO8sXqtIr89GkTxl28dsGVucFgVBvhEmXum4jxQnbtKa+s8pzhil7TaIi5upe/ + c1HlPUZn2OrPAeA6U8DKIXKa4xgf8fectaBfW7QnHgGQrlAL4D7RpV+sHLeGAN4Ue98jhiH3ZGUWlm2k + S/S9H4MLXV5jAEN5hWHCrWk0nPPmoUqEXLoYZO4UgA3g83AIQyB9muNYIo1BCIIiRwD99M/UYiNbXVsO + 1Yqw8bEgrw70lsMw4uc6y0sd2kgn2rzPcEbmpgdBsEY3DRfOjPacWKLA3IRPAURjOoNNwr05DrERV3TN + WQrAIVkHEgQwFwECfwjy8wO9r9RDgGfkvgZjFcC+9yOsCGAifRmlIAlt5NKwpuEgVTxHIItXbmDSe0TI + NGgTgJDGJ3pscPo1IPs3BVCntKv/8vTPIO/vkb1vjIQZI1TI0QQova/AUJWhCPMI8rzqs+IEbVEA2shf + faTBcIS7CEjvlQIg2exvFTAXcRBTKwigX3o84bNUzUghVpDfty+AMCMCQwYJgHy59KX3hakljwBy2iQi + gYcz1JvGA8MJ0Azf9B7wpvttewsrCvGIQwi2i6JyVUGe54G95kJe2yC/NNBbCpEHKo4mQJv3GcEgZBkC + JuJ9dcF97wNNAjyI2KVn79lPg7KAgYgYJAAQfJAAPM5OZ7a6ZheOtQAHBHaoBHADBtWAkjzvG4yBjMsN + Ty5HCCGNPC8h37Ypck8U5Dou/ZJAGQGW5dEE8IwAHJgbqxSA11OIFMA8tQDL+gLEzec8UCBGE6BaVwMm + kG88l8YobJA5n6+z6f22KNAWAcKpzsbk9SSxsQKIQmksgvTLkEfaGaxu5kE+uP4nyEuB3h9Q4saTBGBE + k3wpAJigWZxMzmgpAQxvoi0KQLTkniDToCyERBkkwLWXrBdABBCPfUm+iRQg9gNPBfklgV4RjCL0aBYH + EzcFKMl7LlRNiJRQz+gRipY2VRmEnEmRVBibBEQFAgplM4/N4+zzIAFEoLFTPEKXAuQu0JmwBDNHtP9F + kF8cGO9FaFwoeHM86P+Ko428QsIokwhLRBmBJAOcARGfTebsMxHkepMAWM9FktpREjFXij1IAGPnnNlP + +Ffk63RNATiMo4JfJ2y5P3jbCG1dCbD6mNnnUkgjCjUFUEjSIwqNdqq4Imby0hBeARFl6+nas9wTtNUC + UeS5/hnK5kJoOPYHgwQgmrE5IwVga3o+nQfs0AaPww+ccX3w3gP3SoCZO09YxPOM1jALYZIXVgzK3E/v + M0D+MQJ40JpOaUTAZ89yc9QkAVYLJI2rr7w3FyFct22EQPucW8RxjgggQEkeF21y3OB8emBGJYDDRZD/ + uzw2kBDSSS7lTiq9wUBfRPJkeo0h6X3rrKJIKIqXtUEqDFoSsxgqxIRjLBij7XUYkNLH2ByhLVubAnCi + 51I37LcNPjAwsSLviA/bhJG35yaBAUSgpgGzGpswyTMgNzoKHCNEAIEYQgBjEYUA+kqbQasBHHHQzGo/ + IWrYYCzjtqUNlPUjBRDibC8FMA7yIioi0Q8pvAes/yFFfBi3z55Tj+VhkxtMDiEPaQSUBISutd82WAgT + g8cZYkICIC9SclNUEmhDzkOMvB6rn1okxVKAqg7UNcCXO8QX+qJ5zuwdLw6+vhke+ZuiuLHNTR/c7+nw + WAcJHkTegBTk3QSBEsThNSTz66kMYeeMgLJ/Qrp53gQngCJaIuyrUiyRn41lXmkqWssIQJz9UR/8lObZ + 4Olb4Sk17fVH3BwfIf0hxE2GnBQggEFEB0KeMdJzxJJcCuJ5CmAJK3M5UyL7Mtp+wbV78h9x7dQRffJF + DYmcm3ApnvvamIudZQr4BYuxCaOevenoV3wpeC7CtaY98ogH002eHiJGWf1N1iQArhkkcrTRlmD6qczS + gZE8hqT+iIuecgxzGl874wB7nJO8/mlftiWQ+RDNFx8C+KyvMycEv2MDG34lngdloqhcx1hkGCgNDEDh + FIGXPGcAZLh6lvmPfIIIGQWMFbZliPuMqGfamMcYYN4ykjwrkZ4X+rkJQt5STmQRYVWIOnJX8NsnMPhn + M/FwXGCnIPKvULhDXYpnGqQ3GQlpdIZpGq6diku4hM9JJsnxWpI0fvYRdWDeQeAY3m5ue723+KMO24wZ + be1w/x28jg74Gd3oP6iMBhNef/iuZyGT4Ur53JmlEGm8M2jjjEwS4RXGJhmfXec5yUCuOCo4IJbb2Oa6 + DogmervWVVXF53l9RVa1KYoxli/Z+drgNTj3m0c03D7y8hGhKdTlaBIpPUqMJpJ8Sa4kmGBcggdLL+YS + tgHBKGoI9nDyQHBapkJslH4afA4KbPzPZKLxywK7Ryr8M1OBCAxPQryYZNuQbZ2FKiBberhPvCacpJ3T + o03SfqgJj9972gb4wdfOqIpjLWYnIlTorwq0/0V4tGPalPEThnafeJTQJoICp1IjhHwb6RLaJUoBYBD5 + HvHeSxjiifRskzjCiR99/e1VQTZmjNMh8uxdtr8giC8MbN7vBaPjjses3OVcuU4EhSUjgQiJjREgvY88 + NHN7ZLj3BBjp+VMHkD+z++MHzq3IGy/GqH7dUue9b353rOls+hGdrQqTYgNxRSlCbi7g+QrQnu/rI2As + AVwr1vpG+46+R654+S1htxeeqTjUdDbviAHUg8nHHzHrfcNR5TMd5JqlT54PEqCsAa0CDCx47QKUKYC8 + cFef6kipyMe7/mdq8juxvabx/I5ahKkrl05fKxIi3Do2MilEuTqAqBgkAKM3KgJGFMCsAb0oQJ74Vp1e + m5Orf9jYd9HUj4Sdvu3dcuTzqEWYMn3ahCND9WcYIO9siISg5bKMhlIAIACkAM5lBKQIKUDbsoe4fQbh + e21XVYLEnuUfUbTPCfvs9IT9liVfHjG4/8wYire/r1khMhpy40SUQQKIBMQTlQARBaUAI6Kg591KAJGH + uH5126rYxWv4w2GPPb7v+Da/4G3KEROND8xYODR5TRD+83DUBkLIR9d2Ya6hJA9ZB/oiNNIgw9/ZWLbZ + kNESqH65HmI8Hcv0JWHH8oC/9b8w/yky6IgJpcSkwG6xdb4ySP/NFjnOlRCM9tlukufACuKMWLnvl8si + CPI9A7Jg1qlTFbm4/2wUuhtj3kMC8wKTAy9cyI91xOTbBqYF5h64z04XxWvxE4xHKoSoVgz1AmmEpYVn + PufLkfsiQ4SImNxfRNuOyNAnxv11FLkPxzwrAzY3Ct2L6/XRjjAmhfB186GxbF4XK8RPCJAky5AmEo/L + bc9FC6LSgsfdD9K/eONrZ90c450YUN39F4g5Xhr/NNl2hHFbB/wfn1fPOYG9YuU45dBlM64+b83Ql2Mn + +S3CRM34Tawcv4X4/ETcf/icNw+ti6X22qjoZ0W/FQF/vhLmxjLmC/9vcVvyCIPViQkBeYqEHyv7bY7/ + 7NozIJQT/tGJh7XRVh99/79Ij3YEGVtroogS/xEubcC1e549v63rJh1bbfVfKD7xGj8aQboAAAAASUVO + RK5CYII= - iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAAwAJIA0CAmvbMAAAAHdElNRQffBBwHAgNug28A - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAABHRSURBVHhe1dt5rB7VeQZw - HMAkAfsaJyEJeMFxAGOzmAJmMTarDYZg4wUMZscYMItZDDa7w74YzA4BG5stSdWoahsprVS1UqL2n7ZS - RNuoVVq1qtREaqqkVI0aNar0Td/f3Hkvx+P5ro0xlIz0aLYz57zP8y7nzNzv7vZxb/uMGrXfxElfOezg - KYfOmjJ12skw4cBJh8f1LzdN6i3OP9Uc/uZuB4yfcPSCxRfctXLVbd9btXrtT29dc3e15p511d1ff6S6 - 98HHajhec+8DlXs33npHFW1/dt1Nt/7xuQuXPDhuwsSZIcQeDUY03X6yt0mTv3rslddcv+m2tff86sHH - 1lcQBHur77y3ims10dvvuq+Ga85vvv1OxKtrb7yluuaGm6F3yx131W1CjF9feuXV3z7wK5PnEGL0wMAe - zVCfrG32qadfHmT++ZEnN1QPPf5Udc8Dj9befeypZ6unnnupeuDRJ6v7Hnq83ufxuocH8fVHnqivab/2 - vgfr4zvuvr9acf2qKsSshSFeCPOvx8+ctSqE+Gxgz2bo/9/thJNmLw7jfr7hhVd4u8fjjomAHFJ3rXu4 - eubFb1QvfGNT9fwrG4f2ifL6sy+9OiSe/Z33P1SnDSEuv/q6noiJqHjvqGNmrAgRPi0qGlM+3i0G3j88 - 81fIPrr+mR5PP/fya7VnGewcKYSAAG3kvS549sVXX6+e2PB8LSAh7Alx2VUraiGuWLHyb0aNHv1bTUR8 - fDXitDlnXsPTYWiPgQzNYpZehC6S2yPeBWK89NrmumgSFyIaCNBTP046+dS7Q4C9A7s3Jn5028WXX/W7 - SD79/Ms9+7rIhUHp7X7e3RniXSC2SCC2whkFshZh8dJlfxIC7BcY2Zi6a7fo+NORe3/36utv1KHOI6r4 - k8+8UBvWj+DOEk8hIcSuId3s3VdYczYJEdSF6rLl1/5T2PlVtjZm75otOtwnpqWfbtzyVo8HDI58hnsX - yZ0hXhLOY6S7oI2oM2tkSsSs0Ysa8bOw95DAXo35H26LjkbedNuan7y2+c3eyxu3VKY5uSgKdoZkG23S - Sa4kWoL4CeeeMW2mCMuvu7EXteHfw+7Ju0SEq1fe9G6Efe15U1tT/DrJd13rhzbpNtkk2IVShGzHNmuH - jISoVT8OAfYP7Px64YJll25BnLcffuLpIfJdZLqud6FNvCRVHsP6Z1/sPG4j77FPTYhpsrr+5tXV185b - /AchwOcDH3x2mDn7lMVpoM5V3i4y7WttlIRzX/Zrn8clGcXVsWn28aefq8/zuIRr7mV7q0rLaIXR/vAj - p98WAoxpaO3YFg+MDsK96LDH+zpScJLw9ojn/SRXIkm2z5M0JLE22R2BvqSCCLjkiuU9L1jB5+jAZxp6 - 298ij34/PVWS3x7xREmu9FB6KfcJ59muJG41GavMISjA+a6Rx1C2yXcPdjf1oFp68WU/CAG+FNh+Khx0 - yJQZOgFreZ3uKPEULYlDGqxSqyPZd5JN4gnEk4ycBmGdL06W2s7b0K4tTMxeQ6mw/7jxy0KAUQ3N/luE - zg/j4V56v4toF0qvJ+k0Pl+BLZcJ4T4R0tPpddcQd9+zCOeLkZWf0M7FT8L0Zy2gnfbGM7Z+3LNAikiw - PjArjBs2CsL7J3pQBzrvItoFnkdeOKfxs045rYpCqhJXMSUNvdIik95KwiX5FO7k086o4hXbOr/uB+LN - s4rX4a3gWt5PITzPDv3ecMvt9azACQeMn3BFCDC6obvtFkb+URhQv+B4oItsG0me55EwOLKnnjG3ipem - 6pTT51Rz551jmVoXJitICyntAGlIAaSJKCEa8fSTfXVB3xdecrkXo8FVYURKKYLzjIIoin8RAowPbPu5 - LS4OmOrkmFCTAl2E20gBiMZ4g5959rlbGYnAgsUX1EaqyvovjUwRwLXMaejqLyG/sw3yvC1ynesjo8BL - k4LYzAg+s207I8Qgq9ODvGT66yJcovS+wQyq8HQZe8aZ81TjuiqLLu/32hOtFMC561JFO9Ekerr6RArp - WP5WsWLdSgA8Ms3UAve9NUbaPB8C7NfQfn8Lw/8yBu15iHFdhNsgQFZ8zzH63IVLOo0VBQvPv7A2mkil - oWUUpACikSN47/S5Z23T35yzzq77kt/2RFi1em1NVjHUr74IIKWaKFAM/z4EmBR4vxjGyZ4MEkY6sfzt - IlyiLHwGYbTBM1+78vasry2oc1sUmGGMxzjipQiOGY+E/GVPVwqkALFcr/vkYRGT4a8P/UkBdooOKWgf - fLdeGE2ZOm1uelAn+XFjOOgUzN2UVtgYwjhqtw0GabDssitrrwltoqe3gBg59SGfEdAlwDkLFtU1QFTp - Uzu1RQ3DJcnnOsM9ItmPmzDRh9V9a/IDY8aMWHLhxetygcGoLsIlMvTBQIyXNmeeM7/Oc9Odotc2GmKs - 6qJLr6i9x2h5KXI8zwHgGAhg5hA57X70j/iiCy6qx0TOuBxBgFxYpQCuE136xcyxOQTwpjj4HTEM+T3K - aCQsu0iXyMKnc6HLa8KaobwiEny8bBsNZ89fWIvAaG0YZOwUgA0ioP7sFcIQaN65523TjynS9EcIgiJH - AP14PlOLjWx1bDpUK8LGPw/y6sDgdBhG/K2H5aUHukgnysqf3mc4IxnFKwiCObptuHBm9OKly+pUEAXG - JnwKIBqRcI1Nwr3dD7ERV3QJngIQjkMIkKkFBDAWAQL/EuQPDgx+Ug8B3pP7GmyvACZ5YUUAaeNZRilI - Qhu5+YvOr8VoGw5SxX0EclrMBQwB9EkE3kSqSwBCIk70WOAM1QDPI98WQJ3SrvnL038HeX+PHPxipNIy - QoUcToDS+woMVRnK2zyCvDmbAOctWVqjKwpAG/nrGWkg3EUA77UFQLL9vFlABBEHMbWCAJ5LjyecS9WM - FGIF+aOGBBBmco0h/QRAPotfep/KwtSURwDTDK+LBB4W6sRpGw8MJ4D2jFLwhC/y+rUXEa53rS2sDYhH - HELUIkYUlbMK8jwP7CUA8toG+WMCg1Mh8kDF4QRI75v30/uMYBCyCiAgxfvqguveB9oEeBCx8y+6ZGgO - 5/EyhEVEPwGA4P0E4HF22rPVMQFwbASYEfhsLYAL0K8GJHkoFz7CMxc8vKkqI4S0as9LyHctilwTBYQi - mPRLAikAMUzL/QQwi7gn7aSxaGRXCsDrKYSUzXEaAY4dEiBeEn7tRUGBGE6A/HpjAPnGc2mMwgaZ84gn - 8jzbJrSVKqZE1VmfvI68MXZEAM+LQmkshTyXIY+4PZjdjIN8iPC/QV4KDP4BJS78hDKMaJMvBRD+BjBQ - WZwMnoULGA5Z1aErCkC05JpAGpTTmL6I0k+Aq669YUgAKUw89iHM4wlCgAglQKwHfh7kpwcGi2AUoT/L - 4mDgtgAlefeFqgGRkucZPXLR1KYqg5BDDkmFsU1AVCCgUKodxs80IKi9c23az4II1LdaQDxCpwAI5yrQ - nrAEM0aI/aMgf1hgpBehEaHgxrjR41VFp00eFBLkeVVYIsoIhSWrPxDBucF4FTEiyPU2ATCfiyS1I6PA - GASA4QQwVo6Zzwl/5BEvP7hyGEcFx168P/xh8LYQ2r0WYObsU1beGRVYIaFQWwCFBHkeUWh0poorYgpQ - Vn7HvGJxI6IsPR0TKdcEXbVAwfRSox825HoAIeuDfgIQzbickRHAVoSRF7WJXHAR9YjpRz0TvCfiXgsw - 9nOfm8r7jNYwC2GSF1YMytxP7zNA/qX3edCcTmkiIeOcAMK8XxR4S0RSv2qRvDcWIRx3LYRA+xxbxHGO - CCAA0pm6uGiT/QbnSwNfqAWwOQjy/ymPdaRweEgu5UoqvcFAHyJ5ktcy73mP982ziqJUonhdGyIytJEK - /abELIYKMeEYC/roeh0Gwips+uYIbdmaAqQInOi+1A37LYOPC+xTk7fFyR5B5O1cJPAeEaipw6zGBkzy - DBC6WeAYIfcJxBAC6IsoBOABadNvNoDpRx9brydETeasfn0d7mpf1o8UQIirAUke9IO8iIpI9EMK7wHv - /5AiTkZMPujgeTxscJ3JIeSBEUj7VF0SELrmfstgUxUxeJwhBiQA8iLFoqgfkRLaADHy03hX3SihFnm3 - SAF4XPFD3scdjlPjRPOX9j9gTfD1ZXjr3xTFhT0iDX4RHushIdeR1yEF5TcPA4ESxOE1+Z2fp3hPxNir - KdLDc/ooId2yaOYeOAEU0RJqlChN5Lm+jStNRWsZAYizP+pDL1Lrl8HTV+GBhvb7W1wcGXP6w4gbDDkp - QACd5McJ9xjrvvyHUhT3UwBTWJnLmRL5LKOtFxy7Jv8R104d8Yy9moBEjk04IJaU08ZY7GSv9CWAX7CI - QMKoZyfOOvmd4DkV14b21lvc+LzB09vyuKz+jDBoEpDXSDhmkMjRxnME85zKLB0YyWNIeh5x0eP5uo8w - 1JgIaoeYvthTkvd8RlC2JZDxTIPCPAVA3LOuc0LwmxfY9pN4bpSJorKBscgwUBrogMIpAi+5zwDIcHUv - 8583CJAiZBQwVtiWIe4cUfe0IaA+wLhlJLEBtKmFjnvGEPoiFnmhbyonsogwK0Qt+U7wOzLQ/2czcXNE - YGyo/6vwRi89ZhFUepORkEYTTNin4dqpuDyQcJ5khsiF15IkwfIZUQfG7QeO4e1y2atw+4uWP+qwjc3R - 1gr3f4LX3ICf0Q3/g8posNcxx52wnMoZrpTPlRlDERwyPvagTX0cZBARNbzC2CTj3HHueQeSEKjggFgu - Y8t5PYsboglrFqRVfJ73rMgSEfqYMnXa+uDVP/fbWzT8TOT3D4SmUJejDE0RkEMyQxwIY59eLMmVBBOM - S/Cg0E0vApLeQiEJKmoIgt8pgl+u5T7BaTkTxOLqr4PPCYEd/5lMNP5UYIJVUxSbOhUUPIYnMV5MTyNc - wjVtk7hQBWRLDyPN0Fy3p2ft06Nt0n6oCa9tfrPauOWtITjf9MbbdSFtxOxFhAr98wLdfxEebhs9MLDX - lw8YN0doE0GBM58jhDySJZJ4QrtEKQAkeRCiSR54GxBPpJeTeJJ//c13qs1vfbPGG+98u56hGs/3iLzf - F794SxA/NLBzvxeMB/c+esbxK+U6ERQW6ZAiJEri/QRI7yMPZW6n5zPcU4D0PAFe2dRNfsvb36re+e3v - 1OT1F33Uv25p8t6X370bOh98i4fNCqNiAXF/KYJISI9/WAEy37sESBGGE8CxYu3ZaN/z7FHHzNgUdnvh - GYNDQ2fntuhAPRh9/MxZ96jyRLBIiX099akH/QQoa0CXAMI/1+w7IkCZ+wSQQupTEyk1+XjXf7UhP5bt - DY0PtzUijJl2+BErREKEW89CRl0gRDk72IuKfgLI0TICsga0BSgLIAHKKFDsiG/m0Sbu1f+wcdAhUx4L - O33t3XXkc2tEGNh37NgzQvX3GGAVaEEkBE2XoqFrFgACQApgnxFQ1oEUoD3tEQBx6wwRSCxtREOsWf4r - ivZ1YZ+VnrDfteTLLTr3nxmT4+3vu2aIjIZcOClG/QQQCYgnkBcFwxVCxAkg8hD3nLbRrqft/EXnfz/s - scb3jW/nC94H2WKgkYEvjJ944LIg/G9qAyHko2OrMMdQkoesA4g08/VWhTDD315fltmQ0RJt61+uR/r9 - IqbptWHH8QF/6/9o/lOk3xYDSolRgfGxdF4XpP/DEjn2tRCMdm41qVbwnhnEMWK5iFI/rCBFEOR7BmTB - bFKnLnJx/ZdR6F6McU8KHBQYHfjoQn57Wwy+Z2DfwKRDDp26Ol6L32W8AhVC1DNGvq6qD+oEws7z5ch1 - kSFCREyuLyKFeiLDM9Hvj6PIPRrjzApY3Ch0H6/Xh9vCmBTC5+bZMW1uiGXpD2uPB0neLkOaSDwut90X - LYhKDR53PUj/6LgTT9oY/S0JqO7+C8QYn4x/muzawrjdA/6Pz6vngYFpA2PGLD38yOkPnbNg0TdjJfmn - hIma8Q8xc/wjxPm7cf37Z89f+DuHHXHk+qjoy+O5EwP+fCXM9aXPj/7f4nblFgarE3sF5CkSfqzstzn+ - s2tKQCgn/KMTD2ujrWc8+5tFergtyFhaE0WU+I9waQOOXXPvwy1dP9C2227/B9BNCM1x5ligAAAAAElF - TkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB98EHAcCA26DbwAAABHRSURBVHhe1dt5rB7VeQZwHMAkAfsaJyEJeMFx + AGOzmAJmMTarDYZg4wUMZscYMItZDDa7w74YzA4BG5stSdWoahsprVS1UqL2n7ZSRNuoVVq1qtREaqqk + VI0aNar0Td/f3Hkvx+P5ro0xlIz0aLYz57zP8y7nzNzv7vZxb/uMGrXfxElfOezgKYfOmjJ12skw4cBJ + h8f1LzdN6i3OP9Uc/uZuB4yfcPSCxRfctXLVbd9btXrtT29dc3e15p511d1ff6S698HHajhec+8DlXs3 + 3npHFW1/dt1Nt/7xuQuXPDhuwsSZIcQeDUY03X6yt0mTv3rslddcv+m2tff86sHH1lcQBHur77y3ims1 + 0dvvuq+Ga85vvv1OxKtrb7yluuaGm6F3yx131W1CjF9feuXV3z7wK5PnEGL0wMAezVCfrG32qadfHmT+ + +ZEnN1QPPf5Udc8Dj9befeypZ6unnnupeuDRJ6v7Hnq83ufxuocH8fVHnqivab/2vgfr4zvuvr9acf2q + KsSshSFeCPOvx8+ctSqE+Gxgz2bo/9/thJNmLw7jfr7hhVd4u8fjjomAHFJ3rXu4eubFb1QvfGNT9fwr + G4f2ifL6sy+9OiSe/Z33P1SnDSEuv/q6noiJqHjvqGNmrAgRPi0qGlM+3i0G3j8881fIPrr+mR5PP/fy + a7VnGewcKYSAAG3kvS549sVXX6+e2PB8LSAh7Alx2VUraiGuWLHyb0aNHv1bTUR8fDXitDlnXsPTYWiP + gQzNYpZehC6S2yPeBWK89NrmumgSFyIaCNBTP046+dS7Q4C9A7s3Jn5028WXX/W7SD79/Ms9+7rIhUHp + 7X7e3RniXSC2SCC2whkFshZh8dJlfxIC7BcY2Zi6a7fo+NORe3/36utv1KHOI6r4k8+8UBvWj+DOEk8h + IcSuId3s3VdYczYJEdSF6rLl1/5T2PlVtjZm75otOtwnpqWfbtzyVo8HDI58hnsXyZ0hXhLOY6S7oI2o + M2tkSsSs0Ysa8bOw95DAXo35H26LjkbedNuan7y2+c3eyxu3VKY5uSgKdoZkG23SSa4kWoL4CeeeMW2m + CMuvu7EXteHfw+7Ju0SEq1fe9G6Efe15U1tT/DrJd13rhzbpNtkk2IVShGzHNmuHjISoVT8OAfYP7Px6 + 4YJll25BnLcffuLpIfJdZLqud6FNvCRVHsP6Z1/sPG4j77FPTYhpsrr+5tXV185b/AchwOcDH3x2mDn7 + lMVpoM5V3i4y7WttlIRzX/Zrn8clGcXVsWn28aefq8/zuIRr7mV7q0rLaIXR/vAjp98WAoxpaO3YFg+M + DsK96LDH+zpScJLw9ojn/SRXIkm2z5M0JLE22R2BvqSCCLjkiuU9L1jB5+jAZxp6298ij34/PVWS3x7x + REmu9FB6KfcJ59muJG41GavMISjA+a6Rx1C2yXcPdjf1oFp68WU/CAG+FNh+Khx0yJQZOgFreZ3uKPEU + LYlDGqxSqyPZd5JN4gnEk4ycBmGdL06W2s7b0K4tTMxeQ6mw/7jxy0KAUQ3N/luEzg/j4V56v4toF0qv + J+k0Pl+BLZcJ4T4R0tPpddcQd9+zCOeLkZWf0M7FT8L0Zy2gnfbGM7Z+3LNAikiwPjArjBs2CsL7J3pQ + BzrvItoFnkdeOKfxs045rYpCqhJXMSUNvdIik95KwiX5FO7k086o4hXbOr/uB+LNs4rX4a3gWt5PITzP + Dv3ecMvt9azACQeMn3BFCDC6obvtFkb+URhQv+B4oItsG0me55EwOLKnnjG3ipem6pTT51Rz551jmVoX + JitICyntAGlIAaSJKCEa8fSTfXVB3xdecrkXo8FVYURKKYLzjIIoin8RAowPbPu5LS4OmOrkmFCTAl2E + 20gBiMZ4g5959rlbGYnAgsUX1EaqyvovjUwRwLXMaejqLyG/sw3yvC1ynesjo8BLk4LYzAg+s207I8Qg + q9ODvGT66yJcovS+wQyq8HQZe8aZ81TjuiqLLu/32hOtFMC561JFO9Ekerr6RArpWP5WsWLdSgA8Ms3U + Ave9NUbaPB8C7NfQfn8Lw/8yBu15iHFdhNsgQFZ8zzH63IVLOo0VBQvPv7A2mkiloWUUpACikSN47/S5 + Z23T35yzzq77kt/2RFi1em1NVjHUr74IIKWaKFAM/z4EmBR4vxjGyZ4MEkY6sfztIlyiLHwGYbTBM1+7 + 8vasry2oc1sUmGGMxzjipQiOGY+E/GVPVwqkALFcr/vkYRGT4a8P/UkBdooOKWgffLdeGE2ZOm1uelAn + +XFjOOgUzN2UVtgYwjhqtw0GabDssitrrwltoqe3gBg59SGfEdAlwDkLFtU1QFTpUzu1RQ3DJcnnOsM9 + ItmPmzDRh9V9a/IDY8aMWHLhxetygcGoLsIlMvTBQIyXNmeeM7/Oc9Odotc2GmKs6qJLr6i9x2h5KXI8 + zwHgGAhg5hA57X70j/iiCy6qx0TOuBxBgFxYpQCuE136xcyxOQTwpjj4HTEM+T3KaCQsu0iXyMKnc6HL + a8KaobwiEny8bBsNZ89fWIvAaG0YZOwUgA0ioP7sFcIQaN65523TjynS9EcIgiJHAP14PlOLjWx1bDpU + K8LGPw/y6sDgdBhG/K2H5aUHukgnysqf3mc4IxnFKwiCObptuHBm9OKly+pUEAXGJnwKIBqRcI1Nwr3d + D7ERV3QJngIQjkMIkKkFBDAWAQL/EuQPDgx+Ug8B3pP7GmyvACZ5YUUAaeNZRilIQhu5+YvOr8VoGw5S + xX0EclrMBQwB9EkE3kSqSwBCIk70WOAM1QDPI98WQJ3SrvnL038HeX+PHPxipNIyQoUcToDS+woMVRnK + 2zyCvDmbAOctWVqjKwpAG/nrGWkg3EUA77UFQLL9vFlABBEHMbWCAJ5LjyecS9WMFGIF+aOGBBBmco0h + /QRAPotfep/KwtSURwDTDK+LBB4W6sRpGw8MJ4D2jFLwhC/y+rUXEa53rS2sDYhHHELUIkYUlbMK8jwP + 7CUA8toG+WMCg1Mh8kDF4QRI75v30/uMYBCyCiAgxfvqguveB9oEeBCx8y+6ZGgO5/EyhEVEPwGA4P0E + 4HF22rPVMQFwbASYEfhsLYAL0K8GJHkoFz7CMxc8vKkqI4S0as9LyHctilwTBYQimPRLAikAMUzL/QQw + i7gn7aSxaGRXCsDrKYSUzXEaAY4dEiBeEn7tRUGBGE6A/HpjAPnGc2mMwgaZ84gn8jzbJrSVKqZE1Vmf + vI68MXZEAM+LQmkshTyXIY+4PZjdjIN8iPC/QV4KDP4BJS78hDKMaJMvBRD+BjBQWZwMnoULGA5Z1aEr + CkC05JpAGpTTmL6I0k+Aq669YUgAKUw89iHM4wlCgAglQKwHfh7kpwcGi2AUoT/L4mDgtgAlefeFqgGR + kucZPXLR1KYqg5BDDkmFsU1AVCCgUKodxs80IKi9c23az4II1LdaQDxCpwAI5yrQnrAEM0aI/aMgf1hg + pBehEaHgxrjR41VFp00eFBLkeVVYIsoIhSWrPxDBucF4FTEiyPU2ATCfiyS1I6PAGASA4QQwVo6Zzwl/ + 5BEvP7hyGEcFx168P/xh8LYQ2r0WYObsU1beGRVYIaFQWwCFBHkeUWh0poorYgpQVn7HvGJxI6IsPR0T + KdcEXbVAwfRSox825HoAIeuDfgIQzbickRHAVoSRF7WJXHAR9YjpRz0TvCfiXgsw9nOfm8r7jNYwC2GS + F1YMytxP7zNA/qX3edCcTmkiIeOcAMK8XxR4S0RSv2qRvDcWIRx3LYRA+xxbxHGOCCAA0pm6uGiT/Qbn + SwNfqAWwOQjy/ymPdaRweEgu5UoqvcFAHyJ5ktcy73mP982ziqJUonhdGyIytJEK/abELIYKMeEYC/ro + eh0Gwips+uYIbdmaAqQInOi+1A37LYOPC+xTk7fFyR5B5O1cJPAeEaipw6zGBkzyDBC6WeAYIfcJxBAC + 6IsoBOABadNvNoDpRx9brydETeasfn0d7mpf1o8UQIirAUke9IO8iIpI9EMK7wHv/5AiTkZMPujgeTxs + cJ3JIeSBEUj7VF0SELrmfstgUxUxeJwhBiQA8iLFoqgfkRLaADHy03hX3SihFnm3SAF4XPFD3scdjlPj + RPOX9j9gTfD1ZXjr3xTFhT0iDX4RHushIdeR1yEF5TcPA4ESxOE1+Z2fp3hPxNirKdLDc/ooId2yaOYe + OAEU0RJqlChN5Lm+jStNRWsZAYizP+pDL1Lrl8HTV+GBhvb7W1wcGXP6w4gbDDkpQACd5McJ9xjrvvyH + UhT3UwBTWJnLmRL5LKOtFxy7Jv8R104d8Yy9moBEjk04IJaU08ZY7GSv9CWAX7CIQMKoZyfOOvmd4DkV + 14b21lvc+LzB09vyuKz+jDBoEpDXSDhmkMjRxnME85zKLB0YyWNIeh5x0eP5uo8w1JgIaoeYvthTkvd8 + RlC2JZDxTIPCPAVA3LOuc0LwmxfY9pN4bpSJorKBscgwUBrogMIpAi+5zwDIcHUv8583CJAiZBQwVtiW + Ie4cUfe0IaA+wLhlJLEBtKmFjnvGEPoiFnmhbyonsogwK0Qt+U7wOzLQ/2czcXNEYGyo/6vwRi89ZhFU + epORkEYTTNin4dqpuDyQcJ5khsiF15IkwfIZUQfG7QeO4e1y2atw+4uWP+qwjc3R1gr3f4LX3ICf0Q3/ + g8posNcxx52wnMoZrpTPlRlDERwyPvagTX0cZBARNbzC2CTj3HHueQeSEKjggFguY8t5PYsboglrFqRV + fJ73rMgSEfqYMnXa+uDVP/fbWzT8TOT3D4SmUJejDE0RkEMyQxwIY59eLMmVBBOMS/Cg0E0vApLeQiEJ + KmoIgt8pgl+u5T7BaTkTxOLqr4PPCYEd/5lMNP5UYIJVUxSbOhUUPIYnMV5MTyNcwjVtk7hQBWRLDyPN + 0Fy3p2ft06Nt0n6oCa9tfrPauOWtITjf9MbbdSFtxOxFhAr98wLdfxEebhs9MLDXlw8YN0doE0GBM58j + hDySJZJ4QrtEKQAkeRCiSR54GxBPpJeTeJJ//c13qs1vfbPGG+98u56hGs/3iLzfF794SxA/NLBzvxeM + B/c+esbxK+U6ERQW6ZAiJEri/QRI7yMPZW6n5zPcU4D0PAFe2dRNfsvb36re+e3v1OT1F33Uv25p8t6X + 370bOh98i4fNCqNiAXF/KYJISI9/WAEy37sESBGGE8CxYu3ZaN/z7FHHzNgUdnvhGYNDQ2fntuhAPRh9 + /MxZ96jyRLBIiX099akH/QQoa0CXAMI/1+w7IkCZ+wSQQupTEyk1+XjXf7UhP5btDY0PtzUijJl2+BEr + REKEW89CRl0gRDk72IuKfgLI0TICsga0BSgLIAHKKFDsiG/m0Sbu1f+wcdAhUx4LO33t3XXkc2tEGNh3 + 7NgzQvX3GGAVaEEkBE2XoqFrFgACQApgnxFQ1oEUoD3tEQBx6wwRSCxtREOsWf4rivZ1YZ+VnrDfteTL + LTr3nxmT4+3vu2aIjIZcOClG/QQQCYgnkBcFwxVCxAkg8hD3nLbRrqft/EXnfz/sscb3jW/nC94H2WKg + kYEvjJ944LIg/G9qAyHko2OrMMdQkoesA4g08/VWhTDD315fltmQ0RJt61+uR/r9IqbptWHH8QF/6/9o + /lOk3xYDSolRgfGxdF4XpP/DEjn2tRCMdm41qVbwnhnEMWK5iFI/rCBFEOR7BmTBbFKnLnJx/ZdR6F6M + cU8KHBQYHfjoQn57Wwy+Z2DfwKRDDp26Ol6L32W8AhVC1DNGvq6qD+oEws7z5ch1kSFCREyuLyKFeiLD + M9Hvj6PIPRrjzApY3Ch0H6/Xh9vCmBTC5+bZMW1uiGXpD2uPB0neLkOaSDwut90XLYhKDR53PUj/6LgT + T9oY/S0JqO7+C8QYn4x/muzawrjdA/6Pz6vngYFpA2PGLD38yOkPnbNg0TdjJfmnhIma8Q8xc/wjxPm7 + cf37Z89f+DuHHXHk+qjoy+O5EwP+fCXM9aXPj/7f4nblFgarE3sF5CkSfqzstzn+s2tKQCgn/KMTD2uj + rWc8+5tFergtyFhaE0WU+I9waQOOXXPvwy1dP9C2227/B9BNCM1x5ligAAAAAElFTkSuQmCC - iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAAwAJIA0CAmvbMAAAAHdElNRQffBBwGOzWufx0U - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAABz5SURBVHhe1VsHbJzneTYl - y7Edr3jItrwkS7Y8tKw9uffed9zHvffee09RIiVSpChS3JRIiiK1JdtJi6ItEKRt0CINWhRoAjRF0hQN - ErQocG+f57v71eOSndiJkx948N/873ve/b7/d499A8fm7S8/t2vvGy+d2vfmyzafvPmKzbsvP7sbr79u - evvhscF8/tM93n7hmQPpjoeKOw0+S6cTgn86mBggE6nBMp0VJjN5BiBKpnIiZSxdL8OJ/nIu2lM6DD4/ - 64z0vJNkf7Bm60vPnsBlHiescKiL/rEfH2x+4VCT3mXgXErIbxaKY+VacZxMpgUbx5L85DIwkuAro8mB - MpoSJJeTAxTxi3E+0hPpLqcj3KQrzEU6wlyNFxP85VJykHRFef5Ppb/dxI7NLzjh8o9v2riBAvnjO4IO - vB91Jkn3z4tliXKtJF5mcsJlJjtcrlekyI26bLlaGCuT+bEyVZwos4UxcjXfAESbUBAt00UJMp4TJZMZ - IXgcL8OpeukMdZFmvZMSzFBSoLRHeP6r+54dGfi5pzdu2LDJ9Mvf8OG9Z1vA+ZSQn9+pz5G5ojjjHIje - asiV+dIkGS8A6ZwIGcuOkFuNeXKvrUTutRbL3bZSudtaAuAxz+p1oL1Ubjfly2SuQbnGJNxkIjNELqWH - SIvOURqCHIwX4UanIz1+abPz7Xj8/JMbN1h9YxaxpTXK56/vgOxCRarxekWq3G0pkjFoeRQLvl6Zpkjd - bi4CqQK53ZgPISwHX7/TXPgQ6nNmUDj3O8pksTpDxrIgxMwwJcgWnZPUBtgbh+A6tTrnv920wWo/1vI0 - 8IeLEZFHPkyYKknGQvONSzUZch8aHIP5DmeEKi1rpDWSlrAkrp3Xg/YdkzDKZTw3WkbTdHI5PVTqAu2l - Sedk7E8IEJ/9O0uwrG8DG9UCf59Hib/j1ftY0M2GXCPJTpckyXCaXpn27abCZdq1xG9DfCUeXgeP78NN - lEXAyrqjvKTS39Y4iCCa6X7yHpa3eYOV1ROmlX79x5PtBp+//6y7Wu7A1KmRgRSdLNVkqYWtRZpY+fpa - BAntPe1zmiCJmw15JpgfU9A3EViHUnUyjIxS7W8np6M8pSrQ8Z+wzh2IC0+alvz1Hc+cTwj86edn64z3 - QHyhPl9GkMLuIZhpi9UWbklAe7ySrEZUO2uwJKw9ZkC9xecEAq32GBaorG4cWWMEFkiXaEf6RNb4Gda7 - E0L4lmnpX/144myc/08+PVNjfNBVJVcq0mUCvkgrsCS5FlaS1ghrZ2IVaRBTj0kWuLkCTKka+JzfmUHa - HEFsoBBaQ5yNjTqnf8e6tyMqfnUhNIZ7/uCz7iql+atlKTJTkriuyWuvrSStEdbO2mf/nzS1CuIriFo+ - t4SlELTPzZYlywhcwmQJbsYyP7sfYflbgN+9XsjztB560F6mtH21PE2mixMUeY2EJRmeLYl+WeKWpFYS - XKrNWvZ4iWfzc0ton5tF7cHqsSbATs4YvCXB/tA10HgZ+O2zg+/e7QG3zeZ4vS5HxrMjV5F/FHENloRX - Euei1yVdkyk3+Bh1wFJVOoJtpixpjy3B1/ie+fPTBTHCMrrK31adj7y7JQd0XjCx+vLHc6M5BiMuaLzb - UiiDuBBzsUZYO2tYizRfv9mQLzfq8x7iZn3uQ5KWxJeRJhkzscWq5biO11di5WcohBE0XL0GT6n0szH2 - xvgK+BwAnlLMvsxRGeQ8fxulK/2yH6Uno63SnAXxlaQJ7T0SXwLZRVjOQk22XFfIkkVgqTbbfDZBaZnE - QViRtyB+vTJdrlWkmZEq8+UmzCIWzZkfE3yPn1lA9Xkd5xv43YF4P2kKdmRmkFwvm89B6zXgi11h95aX - DrOMZWk7URAnc1jEFxEn+N6tRpDHZxfrcuUaSM5XZ8psZYbMYMGTaIKucrEgtkCCeI9kNeIaSJxESOhq - abJcQaE1hUaJaxkHWGpPFMY/xGRhgsIMmyz8jiaUufIU6YvxUq4wAAt+44VnQpEVnjXTXP/ojPb7/kJ5 - spH+zy9qfr8WaQ2a1gnGC5KeLoMAUS6PFSVKb7JO+tLC5FJONLrBJKU9asqkac3cYdIQNsmTAAmR9Ghe - rPreYGaUXMiIlL70CFwrXJ37gQG8djErSkZyY5SAKCwKggJkfdCNThKZwVinc2ZWeBNY3wp2b3nx+GJ5 - ssyXJMgg2tG76Mw0gitJW4IWosjX5shVkJ8E8ai9r0rEnlcl3eYjqfA7KS2RntKbGirDOTFIpUlqkYqw - EgTJm8yc6Yxaj/3kNTHse00icZ2w3ZslFNDv2iy6j1+RYDP4mK/xvXD81iAEcRkC4/UpZAr4PGIBmidh - F/nmd54xgOZzJrZrHC2RXjdB3ngTDc6FpOA1ya6ERp7+PocfnCxJAVkPSTqwRZIObpFEno9uleogB2mL - 8ZNzqWEyCjNWJgsTN/kvLMIsgDkIZhpWU+tzVHJt35fEg6/jWgCutRpvSBquXeV5UJqDbWQo2yADmZHK - anh9WtJIRpiciXCXxmBHY7m/w1+C5lvAmuO258eywmU23yAX00KEbe5ahC1h8ntTwLuGQDeNH7yUFydJ - x99bvlAQyLXfJdV6Z2mPC5R+mO3lvBil6Xn4Kq2AUBYAodCMSYDvj6LqTD/29vLrmVHnexy1SaLSOsm3 - xgYq1+BzXoMCoBX0RrnDDRzkfLQnMwLHbKszQszJPblLlQggxXFyEcUEe/u1SFuC5JneTH6frvy9EwTX - WmzK4bek2POo1EV4S3dSCBYcrYIXNU7imgD4fBLBjX5/NjlEGg1+Uh9watX1kg+9IXXBDop0bbiP1ET4 - SFtskIoPmgXQnehmo4gFbaEucgGZwXX3jm7Q3WxibXF0xQX+1XRWmHGhBHU12s0v8ntCaZ8RvxoFCBY+ - hECU5rAPC1zDZOEK+S4HpELvJu3xQSqAcaErrYACoPaGcwzKXZqjAyTk6Eerrpdy5C2pDbaXoiBXKdG5 - S3WYl3TEB6ugyGDI686ZBTBbGCtnozykPtDBWKd3+QfQ3QYsC4abLqUEy1SGXnrjA9SAYy3CltC0v4TA - N48gNg7tn0ekNvnr6/Dd5QsmMk6+J0X+9rACX+lO1CN6G5S/U1MUgnIBPGa/MVEQr/y5E6SiTu5eda2U - I+9IPSwgw9te8vydpRYWcDYZQRZKoAXRlZhRGGBvocg6h2DYpHNSZ/BdXhjtf+sVZ2p+JjtMhhAtWfWt - RVqDKe2ZqrvryOdXGGzy46XMz0YtrjvSFefVVkA3KPE9JYXQWpPBX/krtTVTjAUDV4tgEflIlblRMorg - NZAczDG5RJ9YbQFZNjulDNE90c1acv2dlKUwtozlx6kMYyKPMtlcZ1xGdUg3YMP09ovPcbD6HUX+qU2P - W+W6HauczY+SuQKD9KeFrmv+fP1h4IPpLzHyw8SmIO0B+HT68Xel0uOADCQFSqHDx6sWnQS/LXTbLwU+ - NlIW7AZyvsKR1mX46ERmqJoiE1OZYTIODKbo5HS0r8SdWn2tfIddUuQLgbudkhwvW2kM85DzyXoZR3BV - KZZVJQEB8Mz7EF2oCfpivSXsxJ6LoM5O0TRHPG3wnhtPCZTZvCgZzoxYk7wGTfsUwAIrPfjtKIJZQ4SH - ZJx4F5WXtRTDzFt0tqsWTWRZvye57khx3jbSoHeV3jg/GYZWJkB4mgLIjYQFwI+RkYbTQ6U3IVASrVe7 - QI7tTin0PiXxzscl389BmiO9pQ8F12gWvg8eHMNzMs2hKvuMa6UJKIrcpTXERSr97f4MtBkHTOmwMy7o - 70aT/NH0+KE0TV+TOKFp3ySAbJk3a5/BL9X6Q8mxeV+KfW0ly8Nast2OI0e/s2rh6cfekWykxCy8Xxbo - KBC+XITFjGWEymROpLpbdAWpeBqPRyCU3sQgSbLdu+o6mSe2S4nPSYlxPCaF/o7SGgVrggWMoWudhhvN - FqGMt8A1FHdnIt2lPcRZ6kLd/wW03wdMI/UzcQG/HEn0g+96PjIAUgA3VEeXq0yM5s/g15MSqtJSqcch - qQp2kQy3E5LoeFQqvY6uWjiRdmKbpDkegivYSms4TBckL0MA1PwVCoA3SvKioU2UvdDqWgKgICv8Tkm0 - w1EpCnCStmg/GUwPkwl87wq0TwHMI66QPM/XSxPRHdryrpO0R3j8GrR5P9I0MToPM7wE7fdEe60pAEvf - 11raazCtK/C1EUTrIvcjMP9tKDZspDTQWbLcT0qK81HJcDkiqce2rlo8hVXkekAyXY9LZbCznI3zV+Y+ - QQvIR4GEnl4JANqkAJLtmFqXXyP1yNtSE2AtBvsjUkgBxPjLAAXA75M4CM8D13jGc96xKkfM4F0mpkTQ - /uShAAbjfdX9uXMxPutaAMmbgl+Oamep/Qk0NoOowFiuZsEkG3UOUuJnJ7meJyXV8aCkOh2WIrfDILx8 - 8UQ2YkGW6zEp8rOX9ihvGUhBAAPhGZCn/14piJWxXARl9A8p9qsFkHzoTWkIshEDLKA4yEUVYBcRvybx - vasw91lACaAsSYE9TgUEQDfoj/GmAA4CplQ4APJEj2G1BSzTPlMfBMCWltq/DO3XBdmr6F5g/6HU+J+U - igA7FQcynA9LPIJXhuMB9ANvrCKQikKGRVOOxympC/OU80k6uQyTn6IJw2xngFEIoC81BAL4ZNX3ieZg - W5MAAk0CGIIApswCuAbCvC+JzlYJYrEyRQmAgxKzAA4DvKP02GN9sT5yAenhLJqYtSxAI0/zX6xFn4/i - YhK+34egE32Ige51KXHeKyVexyXPA8EP5BNt9kjMkR0Sfmi7qaFZsXgWSlm2H0om3KTA1046YcLDGeFK - g1eK4mW6EP0/UtqF9PB1BdCqsxMDgmAxUioLJvYDLIKuUvMUALCAAouCWKpKlXIfa1UI9ZkEcOihAHpi - fP7nPPy/M8xlTQvQBMCqj8FvpjhBhlAvNIW5YSEmcunHt0rqyffR+W2TxENvKa0noiok+L52tkQa4kO6 - /R7J9bKWWlgBfZhap/ZZHE1oAnBYWwBtenuJdjoupXoPOZ2kl0uoRdgDaP0FO8wFkKcgbiK7FcM1Sf5M - tPf/gjZdwHQDpSPG7yeUDFPE3eblRZAmAEb/RQS/KzCv0ZwolXIybHephQzE+8gsIrfpljfAPEzkRMhV - RHZiLSsgsh33Sh4EUBXiLr245ghvkbM6hBA4/bmQEQEB7F/zu+0hDhDACSlFL3AapfUIGij2AByGaMMW - bdawBEEUeZ2C+XtJi8H356C9DzAFwbZIr+/1IjJSOlcKY1YJwJT30fGB/DQC1CWY6tl4FChYROap7XIm - xldaIjxVXi/wsZOSAEdB742AiDrdC9WaE1Ki+4FVBDgryLb7SHLcj0tJoJN0mP2Yt9VNYzD2A1EIqKu/ - S3SEOkq080kpDfGU0+gDRlAGcxjC+mQRsJwzjmdHSDPacbp6TYj7D0F7F6DuI1o1Bjte6I/1No4kBaig - Q9KaAFTgg/aZVqiVcZjoAD5T6nVMLaLG55jU6FykEH5c5Gsv5RACnzeEuEodKr2KAAclhByn1ZGcSEP5 - nGa3B8HwpFTSClBTcFYwSQHAnwfREKWsI4AG/xP4TVspCHKTLgjgErtL9CUM0trgVRMAFUY3B0djlsvR - G+DNQmgji2Er733vJbP2vsBMgJysaV5pH+QZUEieAWo4M1x6EoJUHmYqqwlyQFPiJMUoRyuCnFGTo9pC - cdOFCq8T6a0Zj0tgDRRA2tG3V8WCZCDd+gOkxMOI5rACtMqcBYxB+2yX+2EB6wmgzO0TKURxk+HrLB3J - YTKMhuxqRboq0Tl9VqN2M1oRry6h2KOrHt/xRifIv0PlA49ZPfvkEx9dgvaZI7ktRQuE1D7J0/SnkJ8v - wz8vpISgBLU2LQBmXRPspDRfBAFQ4+1RXtIT6yd9aKvPQ5htEEIpusRit4NS5LhGgwQko0tMddyvavqW - mEDpQ1c3BCGwxD6Hx4n2a8eAKi8Izdda8iHgijAf6ctCECxPk3lqHy6r3Xe405QvFVgz+52ZzBDZuMEq - Arxf0QTAwwoa+8+ucFdphZ8wcFD7DCbMoaysaPoX4ftdMX6i3/Wq0mSR0x6pMPt9KfyeHVk3NN+PBuYi - Wtm+pCBpRpNUGWgvZUiRhZ7HVNxYRYaxwGG3ZPk4SHW4j3Qm6OQ8iBNdKWESdcIUbFeixucoGqITkg/3 - K0Ec6EpBJ1kGF4AAOKNkw0YLZi1QB0sdTwmQztgAlsFHgGcUc/PxeHWA/WUWCaoegIkzis6hgpqFAFhe - DqSFoJA4JTozeS6AnV260yHJ90SPj7q+FhbQHY2iKtEkgG6U2EyVNUGOUgoNRB7/aN1sQNi/95qkup2U - OoOfdCCqt8UFKXJR+15d8/PpSKOJqBEy8ftFyASdcIPRYlhsVaa6N3GDtQvQFYeWOzlQprNC2KRxIwX7 - gGUbKaw+ev1FN87OTqNlrA+0k5vwId5sZD6u8D4mCSAdt/81pS1tAcmH35SUEzsk6dQHkoZ8ngFhtCEb - XIAAhlL1qPF9Qd5ecp33S8LhdyR6H75vQWA1XlefifnkVXHb8aIajccACQce8T1UoWyWMt2OSScsYAQC - mKnMkGuoWW405Kt9SlUQ/nSGXq4Xx8przz5dAL6cDD80f+14vMvg9Yv2UBdjJ7R2IUWnSsopVGQ9qBTb - 0N+3BdtIKxFkbcYpqfU+JIWoAnOd9qIbPIKGw1r64f+XIAAOO9rD0H76HlXfVdfQ20m7AnqAEHukMgcU - YI6IPUC4k0JXhLN0RrhIV6SrnNYQ5YbW2R0uRtDVUPwQ0R7SoEP28T0pA/ko0AohAFjAAsd13MiB/uIc - ov9Uht54Oj7oV+DJqfDzivGK44lY6311g+jNTXdT7GS+LFkJYCQrUvk/XaPN4Cv18PVKtL3lQU5Ie05S - o3eRumDEgGB76UQ5TQEMwWVG0OJyxD6ECu8can3m+bpwL6nQu0sRukbO8vIDkELNg81K+H+dwV9aEvTS - kRSqfJrn1sRQaYzXS3V0oJRG+ktpuJ9CRRSuFwdXSY6QnuxYOZcTJ5eKU2S6Gt0qBHC7rVRqEX+u5ISr - Zshr745R8PyIXBXjNY6Xz8WiqNE7SRMwkBykmgtG/350a6fhS40RXlIN8qUgzk6uGBGYQqgLceNGRpUB - BuH/w+khMpYVJiNIm6wbehKDpRU9ey0EUBrsCuLOkuvnJLkUAlAY7K4KmqoIX6kD0aa4YGmO00lzfIgi - XxMdLOWRAVIa4S/FYX5SQiHgeXUMPpMYLt2ZiFMFiTJWjkatJkcWGgrU/YFeFnd5UCBKd/BzA1aPxC2O - J5LsDnRcSAxQg4Nyb2ukwEQ0JdGo/sJUb04hsH1thiAY9ZuQ51sj0UfgNZKn/1+C+4yBOMdanNCMoLob - xAJ6YAUwQ2lH48OhaFN0gAlIfa1oZtoR+DpR0JxJi5CzGVHSm2GQ3qwY6QG6M6IVOtOiAIN0puMxcDY7 - Ts7nJcpgUYqMVmTJTA2ifiMKufZyqfHD+pG+OeUKPLBzBvz2Ao/cNsPA8GJPtPdvmnSOxm7UBc2o6Fj+ - jmVzXmjSZj/SG6c4LJo4Rj+HtEez5w2V4ZRgGUVRxR2iU0id3PU5AbDJYZnLnv1CWpi6L3ABVR7P/Vmo - LtHIXETeH0IxM1yYCCTJaEmqXC5NlRF1TgfSZATnYWCkLENGyzNlvCpbJkF6pjZPZusLZKGpWG60lsoZ - KGoSFjhbGGPsS9H/N3g5A9T+quC38viW/YdbY1kWt6A5agh2UP7MORvJjEKrJMgJDiP9JbxHc7+cqlM7 - RMeBCZDnbG+GjRGExykPhch0ympyHE0Ox+GmchcoTlKzxamyNJlBJXcFUfxqZZbMIZLP1uYCeTIPcnNE - Q6HMNxbKtaYioEQWmkvkekuJLLWWyc32MrkNzc/gu6cRixjDbkH7+958pRW8Hun7K4+nCn3tPz9r8FKu - UIFKjhuaSYQT1+lcdGwgSROfyEYPj0ZjMjNUpvCcW+E52+PnOdujADifYzWpJjWoK67CrdiyErOo3Tlf - mEe9zjtMvMO8CCzBh5eaCoEiuQmCN6HVW21lcgsEb3VUyK3OKrndVSV3TlfLna5quYszcb+zXJqC7NT+ - BlaB2V62fwM+x4Avv03GykqNi9/ujfb+dYve0cgZGocJ87xxQVIkB+1OaZrm2RIQwFyhiTzncbzdrmZ0 - HE8hGs8DajcHiC+wZeVuEVZuqNpMmyHz5XZLsdwB6TsgfQ+E7xKdlXK/GyS7a+T+mVr5tKcOaDDhbJ18 - juf1Oie5UYV2uDrDCHel6fsC694RXvfYtHHDt7Y8/7QTzb9Z52Tknxmq/O1lAUJgz6+mtxo4zQVx1fub - X5tDW/1wJE3yAGdzCxQCtMNym3uBFtGtUVMsWVm1sQS/BXAHudpVDrOmVu9B4w9A/sGZGqBWPuupl8/P - Ncl3zzcr/Hl/i7QgIC9WKs0bebP2paefyILDfwg6jwx8jzq+bf/BO8kMbM16JyPnBRV+dhCCtt/fYgBC - 8o8QgCIPzasxFQcU7NUB3l9g06L2CkL7qhMFuHX+bgeIAw+6KuQ+zPtTkP8Mmib575rJf6+vRf5isF2a - 0YXyercb8420ok9Mfs/JLzdR/84HI+azHvverxhJQWNjFgL35tLUSfQrCwDmv54A7kH76wugwaT9s7XS - FOoqdxrzaDXGu/iu7c63BrBuNjz0+y+M+l900Heec9+zo5R7bigEjs/gFkh9/qZRmEbeDE0As6giGQNW - CQAuoATAYQWwlgDutvMPFCsEAN//DEL41GwBVxA0Och9QGF1lBtv4XundrzRh/WS/IvmtX8tBy/0wsGt - r8Vz71B7mIuRTRPjQiPa57l8aF2LAbQMWIVJAKYgyNtSDwXAUTWntNQ+YY4BmgDUNIoxgP8kMQvgfmcF - hIAYYLaC7/XUynkInzdOKCS8Z5ytypLdW15sxDo57f1ayWsHL/j8t5/Y6IgC6Zd9WAAaJ+E/N9pQL3SE - u8u1AgRHs2uYBBBjygIUAoMfoAmAg0rNAkxBMEdlAG0Sxe2592AFlnHgu9D8RRRPvWhuaPJ3kCk+P1Mt - 55N1//XUxg1JWB8rPZr9107+4bHByopBZXuqy7EF7sjsQPdIa2DhxDuv7RDELGpvzQIYAzQBMBNQAApm - AajB5TqBkJmAGeBBR5n0o3rkrbsbiPLMFvickf9Dinc8+hnWwxqfM76vFPB+m4MV1StbX3outC3c/d9G - 09DpQRCsF8YgFP55geM13vm9hrTJG5NaKtTiAAXAVLg8EOaqFKj+WNVcIIPoQLlXkaX2TQqLFlObZXzQ - Vswhxy+2PPd0IdZxFOC9/i9d5X1dxwZYA3devmX/4TuVaIb+g39eOBPhZiT5oQQ/9Rc4VpO96DBptj1x - fnIWDdMIymUWUawouSOEf4Zio9WPJop/rmSv0Y9eY7EcLsOtM8p1Uo33mvLlTJLuVye2bzmL3z0JvAdw - 39/vz+S/xMH9+Nxusm3Pm5tz60Ncf8C4wB0fvVEeyBheMhDroyxjGqSZNTiYHMfzcVjORLpeBc7rZbAO - WgnchqmV2/XgQkbu7+Hd4tpQjx99vOWlBvzOKYDFDQPdH1zrjzo2IeFSEBw3W7vu3t5Rq3f5fm+MjyJ5 - Jc8AIQTJULyvAvcjcFPGeLI//1mqNmhxiw636i2WxKmusybU44euu7ZdwPUCAUb37QB/44/jT5PrHNx+ - xpuObD23Ah8/telx3ZF3t9TG2x0YK/O1vV+td/1+fYT3P9ZH+vy4PtL3x1V6tx/g9c/ibPdPH932eutT - j2+MxfeOA7x9RTPntXjN3/6PD9/wQd9kHU4/JQluVubenB3ABwBNWcNOgBrmZ/hZfoff/ZMj/aiDZSmF - QlLcn0NTJviYr/G9r1y6fvnjscf+DwAxajYRo3luAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB98EHAY7Na5/HRQAABz5SURBVHhe1VsHbJzneTYly7Edr3jItrwkS7Y8 + tKw9uffed9zHvffee09RIiVSpChS3JRIiiK1JdtJi6ItEKRt0CINWhRoAjRF0hQNErQocG+f57v71eOS + ndiJkx948N/873ve/b7/d499A8fm7S8/t2vvGy+d2vfmyzafvPmKzbsvP7sbr79uevvhscF8/tM93n7h + mQPpjoeKOw0+S6cTgn86mBggE6nBMp0VJjN5BiBKpnIiZSxdL8OJ/nIu2lM6DD4/64z0vJNkf7Bm60vP + nsBlHiescKiL/rEfH2x+4VCT3mXgXErIbxaKY+VacZxMpgUbx5L85DIwkuAro8mBMpoSJJeTAxTxi3E+ + 0hPpLqcj3KQrzEU6wlyNFxP85VJykHRFef5Ppb/dxI7NLzjh8o9v2riBAvnjO4IOvB91Jkn3z4tliXKt + JF5mcsJlJjtcrlekyI26bLlaGCuT+bEyVZwos4UxcjXfAESbUBAt00UJMp4TJZMZIXgcL8OpeukMdZFm + vZMSzFBSoLRHeP6r+54dGfi5pzdu2LDJ9Mvf8OG9Z1vA+ZSQn9+pz5G5ojjjHIjeasiV+dIkGS8A6ZwI + GcuOkFuNeXKvrUTutRbL3bZSudtaAuAxz+p1oL1Ubjfly2SuQbnGJNxkIjNELqWHSIvOURqCHIwX4Uan + Iz1+abPz7Xj8/JMbN1h9YxaxpTXK56/vgOxCRarxekWq3G0pkjFoeRQLvl6Zpkjdbi4CqQK53ZgPISwH + X7/TXPgQ6nNmUDj3O8pksTpDxrIgxMwwJcgWnZPUBtgbh+A6tTrnv920wWo/1vI08IeLEZFHPkyYKknG + QvONSzUZch8aHIP5DmeEKi1rpDWSlrAkrp3Xg/YdkzDKZTw3WkbTdHI5PVTqAu2lSedk7E8IEJ/9O0uw + rG8DG9UCf59Hib/j1ftY0M2GXCPJTpckyXCaXpn27abCZdq1xG9DfCUeXgeP78NNlEXAyrqjvKTS39Y4 + iCCa6X7yHpa3eYOV1ROmlX79x5PtBp+//6y7Wu7A1KmRgRSdLNVkqYWtRZpY+fpaBAntPe1zmiCJmw15 + JpgfU9A3EViHUnUyjIxS7W8np6M8pSrQ8Z+wzh2IC0+alvz1Hc+cTwj86edn64z3QHyhPl9GkMLuIZhp + i9UWbklAe7ySrEZUO2uwJKw9ZkC9xecEAq32GBaorG4cWWMEFkiXaEf6RNb4Gda7E0L4lmnpX/144myc + /08+PVNjfNBVJVcq0mUCvkgrsCS5FlaS1ghrZ2IVaRBTj0kWuLkCTKka+JzfmUHaHEFsoBBaQ5yNjTqn + f8e6tyMqfnUhNIZ7/uCz7iql+atlKTJTkriuyWuvrSStEdbO2mf/nzS1CuIriFo+t4SlELTPzZYlywhc + wmQJbsYyP7sfYflbgN+9XsjztB560F6mtH21PE2mixMUeY2EJRmeLYl+WeKWpFYSXKrNWvZ4iWfzc0to + n5tF7cHqsSbATs4YvCXB/tA10HgZ+O2zg+/e7QG3zeZ4vS5HxrMjV5F/FHENloRXEuei1yVdkyk3+Bh1 + wFJVOoJtpixpjy3B1/ie+fPTBTHCMrrK31adj7y7JQd0XjCx+vLHc6M5BiMuaLzbUiiDuBBzsUZYO2tY + izRfv9mQLzfq8x7iZn3uQ5KWxJeRJhkzscWq5biO11di5WcohBE0XL0GT6n0szH2xvgK+BwAnlLMvsxR + GeQ8fxulK/2yH6Uno63SnAXxlaQJ7T0SXwLZRVjOQk22XFfIkkVgqTbbfDZBaZnEQViRtyB+vTJdrlWk + mZEq8+UmzCIWzZkfE3yPn1lA9Xkd5xv43YF4P2kKdmRmkFwvm89B6zXgi11h95aXDrOMZWk7URAnc1jE + FxEn+N6tRpDHZxfrcuUaSM5XZ8psZYbMYMGTaIKucrEgtkCCeI9kNeIaSJxESOhqabJcQaE1hUaJaxkH + WGpPFMY/xGRhgsIMmyz8jiaUufIU6YvxUq4wAAt+44VnQpEVnjXTXP/ojPb7/kJ5spH+zy9qfr8WaQ2a + 1gnGC5KeLoMAUS6PFSVKb7JO+tLC5FJONLrBJKU9asqkac3cYdIQNsmTAAmR9GherPreYGaUXMiIlL70 + CFwrXJ37gQG8djErSkZyY5SAKCwKggJkfdCNThKZwVinc2ZWeBNY3wp2b3nx+GJ5ssyXJMgg2tG76Mw0 + gitJW4IWosjX5shVkJ8E8ai9r0rEnlcl3eYjqfA7KS2RntKbGirDOTFIpUlqkYqwEgTJm8yc6Yxaj/3k + NTHse00icZ2w3ZslFNDv2iy6j1+RYDP4mK/xvXD81iAEcRkC4/UpZAr4PGIBmidhF/nmd54xgOZzJrZr + HC2RXjdB3ngTDc6FpOA1ya6ERp7+PocfnCxJAVkPSTqwRZIObpFEno9uleogB2mL8ZNzqWEyCjNWJgsT + N/kvLMIsgDkIZhpWU+tzVHJt35fEg6/jWgCutRpvSBquXeV5UJqDbWQo2yADmZHKanh9WtJIRpiciXCX + xmBHY7m/w1+C5lvAmuO258eywmU23yAX00KEbe5ahC1h8ntTwLuGQDeNH7yUFydJx99bvlAQyLXfJdV6 + Z2mPC5R+mO3lvBil6Xn4Kq2AUBYAodCMSYDvj6LqTD/29vLrmVHnexy1SaLSOsm3xgYq1+BzXoMCoBX0 + RrnDDRzkfLQnMwLHbKszQszJPblLlQggxXFyEcUEe/u1SFuC5JneTH6frvy9EwTXWmzK4bek2POo1EV4 + S3dSCBYcrYIXNU7imgD4fBLBjX5/NjlEGg1+Uh9watX1kg+9IXXBDop0bbiP1ET4SFtskIoPmgXQnehm + o4gFbaEucgGZwXX3jm7Q3WxibXF0xQX+1XRWmHGhBHU12s0v8ntCaZ8RvxoFCBY+hECU5rAPC1zDZOEK + +S4HpELvJu3xQSqAcaErrYACoPaGcwzKXZqjAyTk6Eerrpdy5C2pDbaXoiBXKdG5S3WYl3TEB6ugyGDI + 686ZBTBbGCtnozykPtDBWKd3+QfQ3QYsC4abLqUEy1SGXnrjA9SAYy3CltC0v4TAN48gNg7tn0ekNvnr + 6/Dd5QsmMk6+J0X+9rACX+lO1CN6G5S/U1MUgnIBPGa/MVEQr/y5E6SiTu5eda2UI+9IPSwgw9te8vyd + pRYWcDYZQRZKoAXRlZhRGGBvocg6h2DYpHNSZ/BdXhjtf+sVZ2p+JjtMhhAtWfWtRVqDKe2ZqrvryOdX + GGzy46XMz0YtrjvSFefVVkA3KPE9JYXQWpPBX/krtTVTjAUDV4tgEflIlblRMorgNZAczDG5RJ9YbQFZ + NjulDNE90c1acv2dlKUwtozlx6kMYyKPMtlcZ1xGdUg3YMP09ovPcbD6HUX+qU2PW+W6HauczY+SuQKD + 9KeFrmv+fP1h4IPpLzHyw8SmIO0B+HT68Xel0uOADCQFSqHDx6sWnQS/LXTbLwU+NlIW7AZyvsKR1mX4 + 6ERmqJoiE1OZYTIODKbo5HS0r8SdWn2tfIddUuQLgbudkhwvW2kM85DzyXoZR3BVKZZVJQEB8Mz7EF2o + CfpivSXsxJ6LoM5O0TRHPG3wnhtPCZTZvCgZzoxYk7wGTfsUwAIrPfjtKIJZQ4SHZJx4F5WXtRTDzFt0 + tqsWTWRZvye57khx3jbSoHeV3jg/GYZWJkB4mgLIjYQFwI+RkYbTQ6U3IVASrVe7QI7tTin0PiXxzscl + 389BmiO9pQ8F12gWvg8eHMNzMs2hKvuMa6UJKIrcpTXERSr97f4MtBkHTOmwMy7o70aT/NH0+KE0TV+T + OKFp3ySAbJk3a5/BL9X6Q8mxeV+KfW0ly8Nast2OI0e/s2rh6cfekWykxCy8XxboKBC+XITFjGWEymRO + pLpbdAWpeBqPRyCU3sQgSbLdu+o6mSe2S4nPSYlxPCaF/o7SGgVrggWMoWudhhvNFqGMt8A1FHdnIt2l + PcRZ6kLd/wW03wdMI/UzcQG/HEn0g+96PjIAUgA3VEeXq0yM5s/g15MSqtJSqcchqQp2kQy3E5LoeFQq + vY6uWjiRdmKbpDkegivYSms4TBckL0MA1PwVCoA3SvKioU2UvdDqWgKgICv8Tkm0w1EpCnCStmg/GUwP + kwl87wq0TwHMI66QPM/XSxPRHdryrpO0R3j8GrR5P9I0MToPM7wE7fdEe60pAEvf11raazCtK/C1EUTr + IvcjMP9tKDZspDTQWbLcT0qK81HJcDkiqce2rlo8hVXkekAyXY9LZbCznI3zV+Y+QQvIR4GEnl4JANqk + AJLtmFqXXyP1yNtSE2AtBvsjUkgBxPjLAAXA75M4CM8D13jGc96xKkfM4F0mpkTQ/uShAAbjfdX9uXMx + PutaAMmbgl+Oamep/Qk0NoOowFiuZsEkG3UOUuJnJ7meJyXV8aCkOh2WIrfDILx88UQ2YkGW6zEp8rOX + 9ihvGUhBAAPhGZCn/14piJWxXARl9A8p9qsFkHzoTWkIshEDLKA4yEUVYBcRvybxvasw91lACaAsSYE9 + TgUEQDfoj/GmAA4CplQ4APJEj2G1BSzTPlMfBMCWltq/DO3XBdmr6F5g/6HU+J+UigA7FQcynA9LPIJX + huMB9ANvrCKQikKGRVOOxympC/OU80k6uQyTn6IJw2xngFEIoC81BAL4ZNX3ieZgW5MAAk0CGIIApswC + uAbCvC+JzlYJYrEyRQmAgxKzAA4DvKP02GN9sT5yAenhLJqYtSxAI0/zX6xFn4/iYhK+34egE32Ige51 + KXHeKyVexyXPA8EP5BNt9kjMkR0Sfmi7qaFZsXgWSlm2H0om3KTA1046YcLDGeFKg1eK4mW6EP0/UtqF + 9PB1BdCqsxMDgmAxUioLJvYDLIKuUvMUALCAAouCWKpKlXIfa1UI9ZkEcOihAHpifP7nPPy/M8xlTQvQ + BMCqj8FvpjhBhlAvNIW5YSEmcunHt0rqyffR+W2TxENvKa0noiok+L52tkQa4kO6/R7J9bKWWlgBfZha + p/ZZHE1oAnBYWwBtenuJdjoupXoPOZ2kl0uoRdgDaP0FO8wFkKcgbiK7FcM1Sf5MtPf/gjZdwHQDpSPG + 7yeUDFPE3eblRZAmAEb/RQS/KzCv0ZwolXIybHephQzE+8gsIrfpljfAPEzkRMhVRHZiLSsgsh33Sh4E + UBXiLr245ghvkbM6hBA4/bmQEQEB7F/zu+0hDhDACSlFL3AapfUIGij2AByGaMMWbdawBEEUeZ2C+XtJ + i8H356C9DzAFwbZIr+/1IjJSOlcKY1YJwJT30fGB/DQC1CWY6tl4FChYROap7XImxldaIjxVXi/wsZOS + AEdB742AiDrdC9WaE1Ki+4FVBDgryLb7SHLcj0tJoJN0mP2Yt9VNYzD2A1EIqKu/S3SEOkq080kpDfGU + 0+gDRlAGcxjC+mQRsJwzjmdHSDPacbp6TYj7D0F7F6DuI1o1Bjte6I/1No4kBaigQ9KaAFTgg/aZVqiV + cZjoAD5T6nVMLaLG55jU6FykEH5c5Gsv5RACnzeEuEodKr2KAAclhByn1ZGcSEP5nGa3B8HwpFTSClBT + cFYwSQHAnwfREKWsI4AG/xP4TVspCHKTLgjgErtL9CUM0trgVRMAFUY3B0djlsvRG+DNQmgji2Er733v + JbP2vsBMgJysaV5pH+QZUEieAWo4M1x6EoJUHmYqqwlyQFPiJMUoRyuCnFGTo9pCcdOFCq8T6a0Zj0tg + DRRA2tG3V8WCZCDd+gOkxMOI5rACtMqcBYxB+2yX+2EB6wmgzO0TKURxk+HrLB3JYTKMhuxqRboq0Tl9 + VqN2M1oRry6h2KOrHt/xRifIv0PlA49ZPfvkEx9dgvaZI7ktRQuE1D7J0/SnkJ8vwz8vpISgBLU2LQBm + XRPspDRfBAFQ4+1RXtIT6yd9aKvPQ5htEEIpusRit4NS5LhGgwQko0tMddyvavqWmEDpQ1c3BCGwxD6H + x4n2a8eAKi8Izdda8iHgijAf6ctCECxPk3lqHy6r3Xe405QvFVgz+52ZzBDZuMEqArxf0QTAwwoa+8+u + cFdphZ8wcFD7DCbMoaysaPoX4ftdMX6i3/Wq0mSR0x6pMPt9KfyeHVk3NN+PBuYiWtm+pCBpRpNUGWgv + ZUiRhZ7HVNxYRYaxwGG3ZPk4SHW4j3Qm6OQ8iBNdKWESdcIUbFeixucoGqITkg/3K0Ec6EpBJ1kGF4AA + OKNkw0YLZi1QB0sdTwmQztgAlsFHgGcUc/PxeHWA/WUWCaoegIkzis6hgpqFAFheDqSFoJA4JTozeS6A + nV260yHJ90SPj7q+FhbQHY2iKtEkgG6U2EyVNUGOUgoNRB7/aN1sQNi/95qkup2UOoOfdCCqt8UFKXJR + +15d8/PpSKOJqBEy8ftFyASdcIPRYlhsVaa6N3GDtQvQFYeWOzlQprNC2KRxIwX7gGUbKaw+ev1FN87O + TqNlrA+0k5vwId5sZD6u8D4mCSAdt/81pS1tAcmH35SUEzsk6dQHkoZ8ngFhtCEbXIAAhlL1qPF9Qd5e + cp33S8LhdyR6H75vQWA1XlefifnkVXHb8aIajccACQce8T1UoWyWMt2OSScsYAQCmKnMkGuoWW405Kt9 + SlUQ/nSGXq4Xx8przz5dAL6cDD80f+14vMvg9Yv2UBdjJ7R2IUWnSsopVGQ9qBTb0N+3BdtIKxFkbcYp + qfU+JIWoAnOd9qIbPIKGw1r64f+XIAAOO9rD0H76HlXfVdfQ20m7AnqAEHukMgcUYI6IPUC4k0JXhLN0 + RrhIV6SrnNYQ5YbW2R0uRtDVUPwQ0R7SoEP28T0pA/ko0AohAFjAAsd13MiB/uIcov9Uht54Oj7oV+DJ + qfDzivGK44lY6311g+jNTXdT7GS+LFkJYCQrUvk/XaPN4Cv18PVKtL3lQU5Ie05So3eRumDEgGB76UQ5 + TQEMwWVG0OJyxD6ECu8can3m+bpwL6nQu0sRukbO8vIDkELNg81K+H+dwV9aEvTSkRSqfJrn1sRQaYzX + S3V0oJRG+ktpuJ9CRRSuFwdXSY6QnuxYOZcTJ5eKU2S6Gt0qBHC7rVRqEX+u5ISrZshr745R8PyIXBXj + NY6Xz8WiqNE7SRMwkBykmgtG/350a6fhS40RXlIN8qUgzk6uGBGYQqgLceNGRpUBBuH/w+khMpYVJiNI + m6wbehKDpRU9ey0EUBrsCuLOkuvnJLkUAlAY7K4KmqoIX6kD0aa4YGmO00lzfIgiXxMdLOWRAVIa4S/F + YX5SQiHgeXUMPpMYLt2ZiFMFiTJWjkatJkcWGgrU/YFeFnd5UCBKd/BzA1aPxC2OJ5LsDnRcSAxQg4Ny + b2ukwEQ0JdGo/sJUb04hsH1thiAY9ZuQ51sj0UfgNZKn/1+C+4yBOMdanNCMoLobxAJ6YAUwQ2lH48Oh + aFN0gAlIfa1oZtoR+DpR0JxJi5CzGVHSm2GQ3qwY6QG6M6IVOtOiAIN0puMxcDY7Ts7nJcpgUYqMVmTJ + TA2ifiMKufZyqfHD+pG+OeUKPLBzBvz2Ao/cNsPA8GJPtPdvmnSOxm7UBc2o6Fj+jmVzXmjSZj/SG6c4 + LJo4Rj+HtEez5w2V4ZRgGUVRxR2iU0id3PU5AbDJYZnLnv1CWpi6L3ABVR7P/VmoLtHIXETeH0IxM1yY + CCTJaEmqXC5NlRF1TgfSZATnYWCkLENGyzNlvCpbJkF6pjZPZusLZKGpWG60lsoZKGoSFjhbGGPsS9H/ + N3g5A9T+quC38viW/YdbY1kWt6A5agh2UP7MORvJjEKrJMgJDiP9JbxHc7+cqlM7RMeBCZDnbG+GjRGE + xykPhch0ympyHE0Ox+GmchcoTlKzxamyNJlBJXcFUfxqZZbMIZLP1uYCeTIPcnNEQ6HMNxbKtaYioEQW + mkvkekuJLLWWyc32MrkNzc/gu6cRixjDbkH7+958pRW8Hun7K4+nCn3tPz9r8FKuUIFKjhuaSYQT1+lc + dGwgSROfyEYPj0ZjMjNUpvCcW+E52+PnOdujADifYzWpJjWoK67CrdiyErOo3TlfmEe9zjtMvMO8CCzB + h5eaCoEiuQmCN6HVW21lcgsEb3VUyK3OKrndVSV3TlfLna5quYszcb+zXJqC7NT+BlaB2V62fwM+x4Av + v03GykqNi9/ujfb+dYve0cgZGocJ87xxQVIkB+1OaZrm2RIQwFyhiTzncbzdrmZ0HE8hGs8DajcHiC+w + ZeVuEVZuqNpMmyHz5XZLsdwB6TsgfQ+E7xKdlXK/GyS7a+T+mVr5tKcOaDDhbJ18juf1Oie5UYV2uDrD + CHel6fsC694RXvfYtHHDt7Y8/7QTzb9Z52Tknxmq/O1lAUJgz6+mtxo4zQVx1fubX5tDW/1wJE3yAGdz + CxQCtMNym3uBFtGtUVMsWVm1sQS/BXAHudpVDrOmVu9B4w9A/sGZGqBWPuupl8/PNcl3zzcr/Hl/i7Qg + IC9WKs0bebP2paefyILDfwg6jwx8jzq+bf/BO8kMbM16JyPnBRV+dhCCtt/fYgBC8o8QgCIPzasxFQcU + 7NUB3l9g06L2CkL7qhMFuHX+bgeIAw+6KuQ+zPtTkP8Mmib575rJf6+vRf5isF2a0YXyercb8420ok9M + fs/JLzdR/84HI+azHvverxhJQWNjFgL35tLUSfQrCwDmv54A7kH76wugwaT9s7XSFOoqdxrzaDXGu/iu + 7c63BrBuNjz0+y+M+l900Heec9+zo5R7bigEjs/gFkh9/qZRmEbeDE0As6giGQNWCQAuoATAYQWwlgDu + tvMPFCsEAN//DEL41GwBVxA0Och9QGF1lBtv4XundrzRh/WS/IvmtX8tBy/0wsGtr8Vz71B7mIuRTRPj + QiPa57l8aF2LAbQMWIVJAKYgyNtSDwXAUTWntNQ+YY4BmgDUNIoxgP8kMQvgfmcFhIAYYLaC7/XUynkI + nzdOKCS8Z5ytypLdW15sxDo57f1ayWsHL/j8t5/Y6IgC6Zd9WAAaJ+E/N9pQL3SEu8u1AgRHs2uYBBBj + ygIUAoMfoAmAg0rNAkxBMEdlAG0Sxe2592AFlnHgu9D8RRRPvWhuaPJ3kCk+P1Mt55N1//XUxg1JWB8r + PZr9107+4bHByopBZXuqy7EF7sjsQPdIa2DhxDuv7RDELGpvzQIYAzQBMBNQAApmAajB5TqBkJmAGeBB + R5n0o3rkrbsbiPLMFvickf9Dinc8+hnWwxqfM76vFPB+m4MV1StbX3outC3c/d9G09DpQRCsF8YgFP55 + geM13vm9hrTJG5NaKtTiAAXAVLg8EOaqFKj+WNVcIIPoQLlXkaX2TQqLFlObZXzQVswhxy+2PPd0IdZx + FOC9/i9d5X1dxwZYA3devmX/4TuVaIb+g39eOBPhZiT5oQQ/9Rc4VpO96DBptj1xfnIWDdMIymUWUawo + uSOEf4Zio9WPJop/rmSv0Y9eY7EcLsOtM8p1Uo33mvLlTJLuVye2bzmL3z0JvAdw39/vz+S/xMH9+Nxu + sm3Pm5tz60Ncf8C4wB0fvVEeyBheMhDroyxjGqSZNTiYHMfzcVjORLpeBc7rZbAOWgnchqmV2/XgQkbu + 7+Hd4tpQjx99vOWlBvzOKYDFDQPdH1zrjzo2IeFSEBw3W7vu3t5Rq3f5fm+MjyJ5Jc8AIQTJULyvAvcj + cFPGeLI//1mqNmhxiw636i2WxKmusybU44euu7ZdwPUCAUb37QB/44/jT5PrHNx+xpuObD23Ah8/telx + 3ZF3t9TG2x0YK/O1vV+td/1+fYT3P9ZH+vy4PtL3x1V6tx/g9c/ibPdPH932eutTj2+MxfeOA7x9RTPn + tXjN3/6PD9/wQd9kHU4/JQluVubenB3ABwBNWcNOgBrmZ/hZfoff/ZMj/aiDZSmFQlLcn0NTJviYr/G9 + r1y6fvnjscf+DwAxajYRo3luAAAAAElFTkSuQmCC - iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAAGYktHRAAwAJIA0CAmvbMAAAAHdElNRQffBBwHAwdw9ZpY - AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAABCwSURBVHhe1dsJrB1lGQZg - KtCydIW2Qi3Qem1LS4UCLZRCAWUTjVAsmyUgipXFiAQUAgooiBsJGMSggiiicFNEwChEggqCEZcYXKJR - ozEREzUgRqKRmJzj98yZ7/S/0zn3tqUgTvJm5sz8y/e+3/L/c+65W73Yx+SJ287ca97kxUsXT1u5fMnO - h8HCocmvjvu71k2qIz6/rL78/z3mzZm4/wVnzrv0pg/u943PfXjpn277+AHd4U8c1P3qpw7u3ntTD67X - 3XBQ17PPXr1/N9r+5VMf2O/B88+Yd9X8uZMODiG2qTGuHvalfey9YMqyj71371tuv/aAf33z1kO7EAQ7 - 8bkLiN5x3fIK+TnEQbx74xX7dm+4vELn1o8sq9qEGM9dc+HiOyNqjiLEtCnjt6mnemkdp75ht7cEmd9/ - 64uHdx/8wmF9737nS6/tPnLn67r337Kye9+nD6nOef31m1dWyHva3/XJFdX1ndcv715/2ZJuiFkJQ6wQ - 5o/HHzHr/BBih8C29dT/22PVUa9YHcY99d3hN/B2h8ddEwE5pO6+cUV177GvrO4+dtcJ68+J4v6j647r - i+esr7QhxEff8+qOiImoeObIFS9fGyJsJypqU17cIyaeFZ75EWLfvv01HZ5+dN2qyrMM9hkphEC7JvJZ - G/T93t0ndh/+8lGVCAlCREpUQsT1zyIl9qsj4sWrEWes2uMdPB2GdhjI0Cxm6UVoIzkW8Tb0xDi5iojh - EBciGgjQUT9OOnb2ZSHAjoGtaxNfuOOqd+91N5KR1x1nQjAovT3Iu5tDvA3EFgnEVjhFAxEuXrvgoRBg - ZmB8beqWPWLg7SL3fvn9e9aEIasqjyhMD99xTGXYIIKbSzyFBEUU8tpz51xNQgR1wfl3Yeer2FqbvWWO - GHBiLEt/evze0zo8YHLkM9zbSLbdGwsl4bweBG1EnVVjuE6JWDU6kRZ/CXsXBCbU5j+/IwYaf/M1S5/s - kT+5a5mTi6KAIW1ENgUloUHXo0Eby+ZwLcJ1l+5DhL+G3UNbRIRQ9YkI+8rzlra6+FUTt5Fp3huEJOec - aJLbFLDN3iEjIWrVr0OAWYHN3y9cdu7CzyPO2w/dtp58G5m2+21oEm8SKaG+tF03kc/YlzXh01ft333X - 6a+6LwSYHtj01WH1MbNXlwaqvG1kmveaKAnnuRy3iSTjXCGWWXuK8rqEe/22AelgG00E50OXzbgwBJha - 09q4IzpMDsKdGLDD+wZScJJwngchnzfJJRja9jlJJLEm2Y2B/lJBBFx9weKOF6zgs39g+5re2Efk0b3p - qZL8WMQTI8g1PDQQ2a5BPHaZfSjA+a6R11C20ce87K7rQff95y18JATYJTB2Kuy7aOoBObm9vEE3lniK - 1CceSIOFpjqSY/dJJ/EaniUZOQ365otT+UJVQrumMLF69VMhXs3XhACTapqDjwidn0TnDiI6thFtQ+n1 - JJ3G5yuw7bLPnqcQlRiF1xH3XF+E88XIzk9o5+YnMRzLn72Adtob39zG8cwGKSLB0mhVmD1qFIT3V+ho - AIO3EW1D3+vhwTQ+9ufdKKQqcTeWpP4rLTLprSRckk/h4vW6Qo4D8ebZjdfhEXAvn6cQ+qfIaoAo4ISI - gjNDgMk13Q2PMPKBMKB6wdGhjWwTSR5MaHJkTztu9268NFUk3nbi3P7SRIQ0EpBOEZylCS8SjXjGybHa - YOzI8eotkQAipRTB54yCKIo/CAF2C2z4dVvcnGKpk2NCDbE2wk2UOc94k7/9pLkjjETggjPnVUbyiPFL - I1MEcC9zGtrGSxA12yBvbJHrc5lqN8VLk4JYrwi+ZttwRYhJLkoP8pLlr41widL7JjOpwtNm7FtOmFN5 - SlUWXcTWnmilABkBUkU70YRo25hJKra/1bilAHhkmg1HLfDcW2OkzQ0hwMya9vojDP9hTNrRqW3T04bS - +/ox+vwz5rUaKwouetv8ymgilYaWUZACsIEjeI94zfHeunpONRZxnImA4HCQVQyNaywCGK+OAsXwVyHA - 3MD6YhgftmWQMDJIb/vbTjrRJ18vXSYZjskzX9vy9uxTX1nlNm9YYcynH/FSBNeMR0L+sqctBVKA2K73 - xxQxGf7GMB7b2Ck6MgWD78iN0fIlOx+dHjRIfrkxGjL0CZC5zxDGUbtpMPCkNrwmtIme3gKG59KHfEZA - mwDnrRmqxhFVxtRObVHDcEnyuc/wjEjO8+dO8sXqtIr89GkTxl28dsGVucFgVBvhEmXum4jxQnbtKa+s - 8pzhil7TaIi5upe/c1HlPUZn2OrPAeA6U8DKIXKa4xgf8fectaBfW7QnHgGQrlAL4D7RpV+sHLeGAN4U - e98jhiH3ZGUWlm2kS/S9H4MLXV5jAEN5hWHCrWk0nPPmoUqEXLoYZO4UgA3g83AIQyB9muNYIo1BCIIi - RwD99M/UYiNbXVsO1Yqw8bEgrw70lsMw4uc6y0sd2kgn2rzPcEbmpgdBsEY3DRfOjPacWKLA3IRPAURj - OoNNwr05DrERV3TNWQrAIVkHEgQwFwECfwjy8wO9r9RDgGfkvgZjFcC+9yOsCGAifRmlIAlt5NKwpuEg - VTxHIItXbmDSe0TINGgTgJDGJ3pscPo1IPs3BVCntKv/8vTPIO/vkb1vjIQZI1TI0QQova/AUJWhCPMI - 8rzqs+IEbVEA2shffaTBcIS7CEjvlQIg2exvFTAXcRBTKwigX3o84bNUzUghVpDfty+AMCMCQwYJgHy5 - 9KX3hakljwBy2iQigYcz1JvGA8MJ0Azf9B7wpvttewsrCvGIQwi2i6JyVUGe54G95kJe2yC/NNBbCpEH - Ko4mQJv3GcEgZBkCJuJ9dcF97wNNAjyI2KVn79lPg7KAgYgYJAAQfJAAPM5OZ7a6ZheOtQAHBHaoBHAD - BtWAkjzvG4yBjMsNTy5HCCGNPC8h37Ypck8U5Dou/ZJAGQGW5dEE8IwAHJgbqxSA11OIFMA8tQDL+gLE - zec8UCBGE6BaVwMmkG88l8YobJA5n6+z6f22KNAWAcKpzsbk9SSxsQKIQmksgvTLkEfaGaxu5kE+uP4n - yEuB3h9Q4saTBGBEk3wpAJigWZxMzmgpAQxvoi0KQLTkniDToCyERBkkwLWXrBdABBCPfUm+iRQg9gNP - BfklgV4RjCL0aBYHEzcFKMl7LlRNiJRQz+gRipY2VRmEnEmRVBibBEQFAgplM4/N4+zzIAFEoLFTPEKX - AuQu0JmwBDNHtP9FkF8cGO9FaFwoeHM86P+Ko428QsIokwhLRBmBJAOcARGfTebsMxHkepMAWM9FktpR - EjFXij1IAGPnnNlP+Ffk63RNATiMo4JfJ2y5P3jbCG1dCbD6mNnnUkgjCjUFUEjSIwqNdqq4Imby0hBe - ARFl6+nas9wTtNUCUeS5/hnK5kJoOPYHgwQgmrE5IwVga3o+nQfs0AaPww+ccX3w3gP3SoCZO09YxPOM - 1jALYZIXVgzK3E/vM0D+MQJ40JpOaUTAZ89yc9QkAVYLJI2rr7w3FyFct22EQPucW8RxjgggQEkeF21y - 3OB8emBGJYDDRZD/uzw2kBDSSS7lTiq9wUBfRPJkeo0h6X3rrKJIKIqXtUEqDFoSsxgqxIRjLBij7XUY - kNLH2ByhLVubAnCi51I37LcNPjAwsSLviA/bhJG35yaBAUSgpgGzGpswyTMgNzoKHCNEAIEYQgBjEYUA - +kqbQasBHHHQzGo/IWrYYCzjtqUNlPUjBRDibC8FMA7yIioi0Q8pvAes/yFFfBi3z55Tj+VhkxtMDiEP - aQSUBISutd82WAgTg8cZYkICIC9SclNUEmhDzkOMvB6rn1okxVKAqg7UNcCXO8QX+qJ5zuwdLw6+vhke - +ZuiuLHNTR/c7+nwWAcJHkTegBTk3QSBEsThNSTz66kMYeeMgLJ/Qrp53gQngCJaIuyrUiyRn41lXmkq - WssIQJz9UR/8lObZ4Olb4Sk17fVH3BwfIf0hxE2GnBQggEFEB0KeMdJzxJJcCuJ5CmAJK3M5UyL7Mtp+ - wbV78h9x7dQRffJFDYmcm3ApnvvamIudZQr4BYuxCaOevenoV3wpeC7CtaY98ogH002eHiJGWf1N1iQA - rhkkcrTRlmD6qczSgZE8hqT+iIuecgxzGl874wB7nJO8/mlftiWQ+RDNFx8C+KyvMycEv2MDG34lngdl - oqhcx1hkGCgNDEDhFIGXPGcAZLh6lvmPfIIIGQWMFbZliPuMqGfamMcYYN4ykjwrkZ4X+rkJQt5STmQR - YVWIOnJX8NsnMPhnM/FwXGCnIPKvULhDXYpnGqQ3GQlpdIZpGq6diku4hM9JJsnxWpI0fvYRdWDeQeAY - 3m5ue723+KMO24wZbe1w/x28jg74Gd3oP6iMBhNef/iuZyGT4Ur53JmlEGm8M2jjjEwS4RXGJhmfXec5 - yUCuOCo4IJbb2Oa6DogmervWVVXF53l9RVa1KYoxli/Z+drgNTj3m0c03D7y8hGhKdTlaBIpPUqMJpJ8 - Sa4kmGBcggdLL+YStgHBKGoI9nDyQHBapkJslH4afA4KbPzPZKLxywK7Ryr8M1OBCAxPQryYZNuQbZ2F - KiBberhPvCacpJ3To03SfqgJj9972gb4wdfOqIpjLWYnIlTorwq0/0V4tGPalPEThnafeJTQJoICp1Ij - hHwb6RLaJUoBYBD5HvHeSxjiifRskzjCiR99/e1VQTZmjNMh8uxdtr8giC8MbN7vBaPjjses3OVcuU4E - hSUjgQiJjREgvY88NHN7ZLj3BBjp+VMHkD+z++MHzq3IGy/GqH7dUue9b353rOls+hGdrQqTYgNxRSlC - bi7g+QrQnu/rI2AsAVwr1vpG+46+R654+S1htxeeqTjUdDbviAHUg8nHHzHrfcNR5TMd5JqlT54PEqCs - Aa0CDCx47QKUKYC8cFef6kipyMe7/mdq8juxvabx/I5ahKkrl05fKxIi3Do2MilEuTqAqBgkAKM3KgJG - FMCsAb0oQJ74Vp1em5Orf9jYd9HUj4Sdvu3dcuTzqEWYMn3ahCND9WcYIO9siISg5bKMhlIAIACkAM5l - BKQIKUDbsoe4fQbhe21XVYLEnuUfUbTPCfvs9IT9liVfHjG4/8wYire/r1khMhpy40SUQQKIBMQTlQAR - BaUAI6Kg591KAJGHuH5126rYxWv4w2GPPb7v+Da/4G3KEROND8xYODR5TRD+83DUBkLIR9d2Ya6hJA9Z - B/oiNNIgw9/ZWLbZkNESqH65HmI8Hcv0JWHH8oC/9b8w/yky6IgJpcSkwG6xdb4ySP/NFjnOlRCM9tlu - kufACuKMWLnvl8siCPI9A7Jg1qlTFbm4/2wUuhtj3kMC8wKTAy9cyI91xOTbBqYF5h64z04XxWvxE4xH - KoSoVgz1AmmEpYVnPufLkfsiQ4SImNxfRNuOyNAnxv11FLkPxzwrAzY3Ct2L6/XRjjAmhfB186GxbF4X - K8RPCJAky5AmEo/Lbc9FC6LSgsfdD9K/eONrZ90c450YUN39F4g5Xhr/NNl2hHFbB/wfn1fPOYG9YuU4 - 5dBlM64+b83Ql2Mn+S3CRM34Tawcv4X4/ETcf/icNw+ti6X22qjoZ0W/FQF/vhLmxjLmC/9vcVvyCIPV - iQkBeYqEHyv7bY7/7NozIJQT/tGJh7XRVh99/79Ij3YEGVtroogS/xEubcC1e549v63rJh1bbfVfKD7x - Gj8aQboAAAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + DAAACwwBP0AiyAAAAAd0SU1FB98EHAcDB3D1mlgAABCwSURBVHhe1dsJrB1lGQZgKtCydIW2Qi3Qem1L + S4UCLZRCAWUTjVAsmyUgipXFiAQUAgooiBsJGMSggiiicFNEwChEggqCEZcYXKJRozEREzUgRqKRmJzj + 98yZ7/S/0zn3tqUgTvJm5sz8y/e+3/L/c+65W73Yx+SJ287ca97kxUsXT1u5fMnOh8HCocmvjvu71k2q + Iz6/rL78/z3mzZm4/wVnzrv0pg/u943PfXjpn277+AHd4U8c1P3qpw7u3ntTD67X3XBQ17PPXr1/N9r+ + 5VMf2O/B88+Yd9X8uZMODiG2qTGuHvalfey9YMqyj71371tuv/aAf33z1kO7EAQ78bkLiN5x3fIK+TnE + Qbx74xX7dm+4vELn1o8sq9qEGM9dc+HiOyNqjiLEtCnjt6mnemkdp75ht7cEmd9/64uHdx/8wmF9737n + S6/tPnLn67r337Kye9+nD6nOef31m1dWyHva3/XJFdX1ndcv715/2ZJuiFkJQ6wQ5o/HHzHr/BBih8C2 + 9dT/22PVUa9YHcY99d3hN/B2h8ddEwE5pO6+cUV177GvrO4+dtcJ68+J4v6j647ri+esr7QhxEff8+qO + iImoeObIFS9fGyJsJypqU17cIyaeFZ75EWLfvv01HZ5+dN2qyrMM9hkphEC7JvJZG/T93t0ndh/+8lGV + CAlCREpUQsT1zyIl9qsj4sWrEWes2uMdPB2GdhjI0Cxm6UVoIzkW8Tb0xDi5iojhEBciGgjQUT9OOnb2 + ZSHAjoGtaxNfuOOqd+91N5KR1x1nQjAovT3Iu5tDvA3EFgnEVjhFAxEuXrvgoRBgZmB8beqWPWLg7SL3 + fvn9e9aEIasqjyhMD99xTGXYIIKbSzyFBEUU8tpz51xNQgR1wfl3Yeer2FqbvWWOGHBiLEt/evze0zo8 + YHLkM9zbSLbdGwsl4bweBG1EnVVjuE6JWDU6kRZ/CXsXBCbU5j+/IwYaf/M1S5/skT+5a5mTi6KAIW1E + NgUloUHXo0Eby+ZwLcJ1l+5DhL+G3UNbRIRQ9YkI+8rzlra6+FUTt5Fp3huEJOecaJLbFLDN3iEjIWrV + r0OAWYHN3y9cdu7CzyPO2w/dtp58G5m2+21oEm8SKaG+tF03kc/YlzXh01ft333X6a+6LwSYHtj01WH1 + MbNXlwaqvG1kmveaKAnnuRy3iSTjXCGWWXuK8rqEe/22AelgG00E50OXzbgwBJha09q4IzpMDsKdGLDD + +wZScJJwngchnzfJJRja9jlJJLEm2Y2B/lJBBFx9weKOF6zgs39g+5re2Efk0b3pqZL8WMQTI8g1PDQQ + 2a5BPHaZfSjA+a6R11C20ce87K7rQff95y18JATYJTB2Kuy7aOoBObm9vEE3lniK1CceSIOFpjqSY/dJ + J/EaniUZOQ365otT+UJVQrumMLF69VMhXs3XhACTapqDjwidn0TnDiI6thFtQ+n1JJ3G5yuw7bLPnqcQ + lRiF1xH3XF+E88XIzk9o5+YnMRzLn72Adtob39zG8cwGKSLB0mhVmD1qFIT3V+hoAIO3EW1D3+vhwTQ+ + 9ufdKKQqcTeWpP4rLTLprSRckk/h4vW6Qo4D8ebZjdfhEXAvn6cQ+qfIaoAo4ISIgjNDgMk13Q2PMPKB + MKB6wdGhjWwTSR5MaHJkTztu9268NFUk3nbi3P7SRIQ0EpBOEZylCS8SjXjGybHaYOzI8eotkQAipRTB + 54yCKIo/CAF2C2z4dVvcnGKpk2NCDbE2wk2UOc94k7/9pLkjjETggjPnVUbyiPFLI1MEcC9zGtrGSxA1 + 2yBvbJHrc5lqN8VLk4JYrwi+ZttwRYhJLkoP8pLlr41widL7JjOpwtNm7FtOmFN5SlUWXcTWnmilABkB + UkU70YRo25hJKra/1bilAHhkmg1HLfDcW2OkzQ0hwMya9vojDP9hTNrRqW3T04bS+/ox+vwz5rUaKwou + etv8ymgilYaWUZACsIEjeI94zfHeunpONRZxnImA4HCQVQyNaywCGK+OAsXwVyHA3MD6YhgftmWQMDJI + b/vbTjrRJ18vXSYZjskzX9vy9uxTX1nlNm9YYcynH/FSBNeMR0L+sqctBVKA2K73xxQxGf7GMB7b2Ck6 + MgWD78iN0fIlOx+dHjRIfrkxGjL0CZC5zxDGUbtpMPCkNrwmtIme3gKG59KHfEZAmwDnrRmqxhFVxtRO + bVHDcEnyuc/wjEjO8+dO8sXqtIr89GkTxl28dsGVucFgVBvhEmXum4jxQnbtKa+s8pzhil7TaIi5upe/ + c1HlPUZn2OrPAeA6U8DKIXKa4xgf8fectaBfW7QnHgGQrlAL4D7RpV+sHLeGAN4Ue98jhiH3ZGUWlm2k + S/S9H4MLXV5jAEN5hWHCrWk0nPPmoUqEXLoYZO4UgA3g83AIQyB9muNYIo1BCIIiRwD99M/UYiNbXVsO + 1Yqw8bEgrw70lsMw4uc6y0sd2kgn2rzPcEbmpgdBsEY3DRfOjPacWKLA3IRPAURjOoNNwr05DrERV3TN + WQrAIVkHEgQwFwECfwjy8wO9r9RDgGfkvgZjFcC+9yOsCGAifRmlIAlt5NKwpuEgVTxHIItXbmDSe0TI + NGgTgJDGJ3pscPo1IPs3BVCntKv/8vTPIO/vkb1vjIQZI1TI0QQova/AUJWhCPMI8rzqs+IEbVEA2shf + faTBcIS7CEjvlQIg2exvFTAXcRBTKwigX3o84bNUzUghVpDfty+AMCMCQwYJgHy59KX3hakljwBy2iQi + gYcz1JvGA8MJ0Azf9B7wpvttewsrCvGIQwi2i6JyVUGe54G95kJe2yC/NNBbCpEHKo4mQJv3GcEgZBkC + JuJ9dcF97wNNAjyI2KVn79lPg7KAgYgYJAAQfJAAPM5OZ7a6ZheOtQAHBHaoBHADBtWAkjzvG4yBjMsN + Ty5HCCGNPC8h37Ypck8U5Dou/ZJAGQGW5dEE8IwAHJgbqxSA11OIFMA8tQDL+gLEzec8UCBGE6BaVwMm + kG88l8YobJA5n6+z6f22KNAWAcKpzsbk9SSxsQKIQmksgvTLkEfaGaxu5kE+uP4nyEuB3h9Q4saTBGBE + k3wpAJigWZxMzmgpAQxvoi0KQLTkniDToCyERBkkwLWXrBdABBCPfUm+iRQg9gNPBfklgV4RjCL0aBYH + EzcFKMl7LlRNiJRQz+gRipY2VRmEnEmRVBibBEQFAgplM4/N4+zzIAFEoLFTPEKXAuQu0JmwBDNHtP9F + kF8cGO9FaFwoeHM86P+Ko428QsIokwhLRBmBJAOcARGfTebsMxHkepMAWM9FktpREjFXij1IAGPnnNlP + +Ffk63RNATiMo4JfJ2y5P3jbCG1dCbD6mNnnUkgjCjUFUEjSIwqNdqq4Imby0hBeARFl6+nas9wTtNUC + UeS5/hnK5kJoOPYHgwQgmrE5IwVga3o+nQfs0AaPww+ccX3w3gP3SoCZO09YxPOM1jALYZIXVgzK3E/v + M0D+MQJ40JpOaUTAZ89yc9QkAVYLJI2rr7w3FyFct22EQPucW8RxjgggQEkeF21y3OB8emBGJYDDRZD/ + uzw2kBDSSS7lTiq9wUBfRPJkeo0h6X3rrKJIKIqXtUEqDFoSsxgqxIRjLBij7XUYkNLH2ByhLVubAnCi + 51I37LcNPjAwsSLviA/bhJG35yaBAUSgpgGzGpswyTMgNzoKHCNEAIEYQgBjEYUA+kqbQasBHHHQzGo/ + IWrYYCzjtqUNlPUjBRDibC8FMA7yIioi0Q8pvAes/yFFfBi3z55Tj+VhkxtMDiEPaQSUBISutd82WAgT + g8cZYkICIC9SclNUEmhDzkOMvB6rn1okxVKAqg7UNcCXO8QX+qJ5zuwdLw6+vhke+ZuiuLHNTR/c7+nw + WAcJHkTegBTk3QSBEsThNSTz66kMYeeMgLJ/Qrp53gQngCJaIuyrUiyRn41lXmkqWssIQJz9UR/8lObZ + 4Olb4Sk17fVH3BwfIf0hxE2GnBQggEFEB0KeMdJzxJJcCuJ5CmAJK3M5UyL7Mtp+wbV78h9x7dQRffJF + DYmcm3ApnvvamIudZQr4BYuxCaOevenoV3wpeC7CtaY98ogH002eHiJGWf1N1iQArhkkcrTRlmD6qczS + gZE8hqT+iIuecgxzGl874wB7nJO8/mlftiWQ+RDNFx8C+KyvMycEv2MDG34lngdloqhcx1hkGCgNDEDh + FIGXPGcAZLh6lvmPfIIIGQWMFbZliPuMqGfamMcYYN4ykjwrkZ4X+rkJQt5STmQRYVWIOnJX8NsnMPhn + M/FwXGCnIPKvULhDXYpnGqQ3GQlpdIZpGq6diku4hM9JJsnxWpI0fvYRdWDeQeAY3m5ue723+KMO24wZ + be1w/x28jg74Gd3oP6iMBhNef/iuZyGT4Ur53JmlEGm8M2jjjEwS4RXGJhmfXec5yUCuOCo4IJbb2Oa6 + DogmervWVVXF53l9RVa1KYoxli/Z+drgNTj3m0c03D7y8hGhKdTlaBIpPUqMJpJ8Sa4kmGBcggdLL+YS + tgHBKGoI9nDyQHBapkJslH4afA4KbPzPZKLxywK7Ryr8M1OBCAxPQryYZNuQbZ2FKiBberhPvCacpJ3T + o03SfqgJj9972gb4wdfOqIpjLWYnIlTorwq0/0V4tGPalPEThnafeJTQJoICp1IjhHwb6RLaJUoBYBD5 + HvHeSxjiifRskzjCiR99/e1VQTZmjNMh8uxdtr8giC8MbN7vBaPjjses3OVcuU4EhSUjgQiJjREgvY88 + NHN7ZLj3BBjp+VMHkD+z++MHzq3IGy/GqH7dUue9b353rOls+hGdrQqTYgNxRSlCbi7g+QrQnu/rI2As + AVwr1vpG+46+R654+S1htxeeqTjUdDbviAHUg8nHHzHrfcNR5TMd5JqlT54PEqCsAa0CDCx47QKUKYC8 + cFef6kipyMe7/mdq8juxvabx/I5ahKkrl05fKxIi3Do2MilEuTqAqBgkAKM3KgJGFMCsAb0oQJ74Vp1e + m5Orf9jYd9HUj4Sdvu3dcuTzqEWYMn3ahCND9WcYIO9siISg5bKMhlIAIACkAM5lBKQIKUDbsoe4fQbh + e21XVYLEnuUfUbTPCfvs9IT9liVfHjG4/8wYire/r1khMhpy40SUQQKIBMQTlQARBaUAI6Kg591KAJGH + uH5126rYxWv4w2GPPb7v+Da/4G3KEROND8xYODR5TRD+83DUBkLIR9d2Ya6hJA9ZB/oiNNIgw9/ZWLbZ + kNESqH65HmI8Hcv0JWHH8oC/9b8w/yky6IgJpcSkwG6xdb4ySP/NFjnOlRCM9tlukufACuKMWLnvl8si + CPI9A7Jg1qlTFbm4/2wUuhtj3kMC8wKTAy9cyI91xOTbBqYF5h64z04XxWvxE4xHKoSoVgz1AmmEpYVn + PufLkfsiQ4SImNxfRNuOyNAnxv11FLkPxzwrAzY3Ct2L6/XRjjAmhfB186GxbF4XK8RPCJAky5AmEo/L + bc9FC6LSgsfdD9K/eONrZ90c450YUN39F4g5Xhr/NNl2hHFbB/wfn1fPOYG9YuU45dBlM64+b83Ql2Mn + +S3CRM34Tawcv4X4/ETcf/icNw+ti6X22qjoZ0W/FQF/vhLmxjLmC/9vcVvyCIPViQkBeYqEHyv7bY7/ + 7NozIJQT/tGJh7XRVh99/79Ij3YEGVtroogS/xEubcC1e549v63rJh1bbfVfKD7xGj8aQboAAAAASUVO + RK5CYII= diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 60efaf0..0d8fe28 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -273,6 +273,10 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load Try retryStart: + ssh.dommePresent = True + ssh.contact1Present = False + ssh.contact2Present = False + ssh.contact3Present = False FrmSplash.PBSplash.Value = 0 Debug.Print("Form 2 Opened") @@ -464,7 +468,10 @@ retryStart: - If My.Settings.DomName <> "" Then domName.Text = My.Settings.DomName + If My.Settings.DomName <> "" Then + ssh.tempDomName = My.Settings.DomName + domName.Text = ssh.tempDomName + End If If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName @@ -936,6 +943,7 @@ retryStart: ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) + ssh.SlideshowContactRandom = New ContactData(ContactType.Random) Catch ex As Exception End Try @@ -1234,6 +1242,10 @@ retryStart: + ssh.dommePresent = True + ssh.contact1Present = False + ssh.contact2Present = False + ssh.contact3Present = False TeaseTimer.Stop() @@ -1440,8 +1452,8 @@ retryStart: If ssh.IsTyping = True Then - ChatText.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." + ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." + ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." ChatReadyState() End If @@ -1537,6 +1549,8 @@ retryStart: Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) ssh.DomChat = DomU & ssh.DomChat + ssh.nameErrors += 1 + ssh.wrongAttempt = True End If TypingDelay() Return @@ -1544,11 +1558,12 @@ retryStart: - If FrmSettings.CBHonorificCapitalized.Checked = True Then If WordExists(ssh.ChatString, Capitalize(FrmSettings.TBHonorific.Text)) = False Then 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then ssh.DomChat = "#CapitalizeHonorific" + ssh.nameErrors += 1 + ssh.wrongAttempt = True TypingDelay() Return End If @@ -1750,8 +1765,8 @@ WritingTaskLine: If ssh.IsTyping = True Then - ChatText.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." + ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." + ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." ChatReadyState() End If @@ -1823,8 +1838,8 @@ WritingTaskLine: If ssh.IsTyping = True Then - ChatText.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." + ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." + ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." ChatReadyState() End If @@ -2601,7 +2616,7 @@ EdgeSkip: 'If BeforeTease = True And CBDebugAwareness.Checked = False Then Return Dim CheckResponse As String = UCase(ssh.ChatString) - CheckResponse = CheckResponse.Replace(UCase(domName.Text), "") + CheckResponse = CheckResponse.Replace(UCase(ssh.tempDomName), "") CheckResponse = CheckResponse.Replace(UCase(FrmSettings.TBHonorific.Text), "") CheckResponse = CheckResponse.Replace("!", "") CheckResponse = CheckResponse.Replace("?", "") @@ -3153,15 +3168,17 @@ FoundResponse: AddResponse = False If My.Settings.Chastity = True Then + If ssh.CBTCockFlag Then + SubState = "CBT Cock" + GoTo FoundState + ElseIf ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then + SubState = "CBT Balls" + GoTo FoundState + End If SubState = "Chastity" GoTo FoundState End If - If ssh.BeforeTease = True Then - SubState = "Before Tease" - GoTo FoundState - End If - If ssh.FirstRound = True Then SubState = "First Round" GoTo FoundState @@ -3197,6 +3214,11 @@ FoundResponse: GoTo FoundState End If + If ssh.BeforeTease = True Then + SubState = "Before Tease" + GoTo FoundState + End If + SubState = "Not Stroking" FoundState: @@ -3574,6 +3596,8 @@ NullSkip: Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) ssh.DomChat = DomU & ssh.DomChat + ssh.nameErrors += 1 + ssh.wrongAttempt = True End If TypingDelay() Return @@ -3581,6 +3605,8 @@ NullSkip: If FrmSettings.CBHonorificCapitalized.Checked = True Then If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then ssh.DomChat = "#DomHonorific" + ssh.nameErrors += 1 + ssh.wrongAttempt = True TypingDelay() Return End If @@ -3636,8 +3662,6 @@ NullSkip: Dim SplitParts As String() = Splits(0).Split(New Char() {","c}) For i As Integer = 0 To SplitParts.Length - 1 - - If UCase(TempChatString).Contains(UCase(SplitParts(i))) Then If ssh.CheckYes = True Or ssh.CheckNo = True Then @@ -3648,6 +3672,8 @@ NullSkip: Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) ssh.DomChat = DomU & ssh.DomChat + ssh.nameErrors += 1 + ssh.wrongAttempt = True End If TypingDelay() Return @@ -3655,22 +3681,15 @@ NullSkip: If FrmSettings.CBHonorificCapitalized.Checked = True Then If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then ssh.DomChat = "#CapitalizeHonorific" + ssh.nameErrors += 1 + ssh.wrongAttempt = True TypingDelay() Return End If End If End If End If - - 'Splits(0) = "" - 'DomChat = Join(Splits, Nothing) - - 'DomChat = Join(Splits, "]") - 'DomChat = DomChat.Replace(ChatReplace, "") - ssh.DomChat = ChatReplace - - 'DomChat = Splits(1) GoTo FoundAnswer End If Next @@ -3687,6 +3706,7 @@ FoundAnswer: ssh.YesOrNo = False YesOrNoLanguageCheck() + ssh.foundAnswer = True If ssh.MiniScript = True Then @@ -3703,6 +3723,11 @@ FoundAnswer: NothingFound: If InStr(UCase(lines(line)), UCase("DifferentAnswer")) <> 0 Then + If ssh.wrongAttempt Then + ssh.wrongAttempt = False + Else + If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 + End If DifferentAnswer: ssh.DomChat = lines(line) @@ -3717,6 +3742,11 @@ LoopAnswer: If InStr(UCase(lines(line)), UCase("AcceptAnswer")) <> 0 Then + If ssh.wrongAttempt Then + ssh.wrongAttempt = False + Else + If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 + End If AcceptAnswer: ssh.DomChat = lines(TempLineVal) ' TimedAnswerTimer.Stop() @@ -4082,7 +4112,9 @@ ReturnCalled: Else If Not ssh.StrokeTauntVal > lines.Count - 1 Then If lines(ssh.StrokeTauntVal) = "@End" Then - If ssh.ShowModule = True Then ssh.ModuleEnd = True + If ssh.CallReturns.Count = 0 Then + If ssh.ShowModule = True Then ssh.ModuleEnd = True + End If End If End If End If @@ -4131,7 +4163,21 @@ ReturnCalled: 'End If ' ### Debug - + If ssh.nameErrors >= 3 And ssh.foundAnswer = True And ssh.wrongAttempt = True Then + ssh.DomChat = "#WrongHonorific" + TypingDelay() + If FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBallsActive = True + ssh.CBTBallsFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If + ssh.YesOrNo = False + ssh.foundAnswer = False + ssh.wrongAttempt = False + ssh.StrokeTauntVal -= 1 + Return + End If + ModuleEnd: If ssh.ModuleEnd = True And ssh.AvoidTheEdgeGame = False Then @@ -4818,11 +4864,11 @@ CancelGoto: If ssh.RiskyDeal = True Then FrmCardList.LblRiskType.Visible = True If ssh.NullResponse = False Then ssh.IsTyping = True - Dim TypingName As String = domName.Text + Dim TypingName As String = ssh.tempDomName If ssh.DomTask.Contains("@Contact1") Then TypingName = My.Settings.Glitter1 If ssh.DomTask.Contains("@Contact2") Then TypingName = My.Settings.Glitter2 If ssh.DomTask.Contains("@Contact3") Then TypingName = My.Settings.Glitter3 - 'If TypingName <> domName.Text Then JustShowedBlogImage = True + 'If TypingName <> ssh.tempDomName Then JustShowedBlogImage = True If ssh.DomTask.Contains("@EmoteMessage") Then ssh.EmoMes = True @@ -4971,12 +5017,14 @@ NullResponse: ' Set LineSpeaker for typo corrections. Dim LineSpeaker As String = "" - If ContactToUse.Equals(ssh.SlideshowContact1) Then - LineSpeaker = "@Contact1 " - ElseIf ContactToUse.Equals(ssh.SlideshowContact2) Then - LineSpeaker = "@Contact2 " - ElseIf ContactToUse.Equals(ssh.SlideshowContact3) Then - LineSpeaker = "@Contact3 " + If ssh.dommePresent Then + If ContactToUse.Equals(ssh.SlideshowContact1) Then + LineSpeaker = "@Contact1 " + ElseIf ContactToUse.Equals(ssh.SlideshowContact2) Then + LineSpeaker = "@Contact2 " + ElseIf ContactToUse.Equals(ssh.SlideshowContact3) Then + LineSpeaker = "@Contact3 " + End If End If @@ -5537,7 +5585,6 @@ DommeSlideshowFallback: If ssh.SubGaveUp = True Then - ssh.SubGaveUp = False ssh.AskedToGiveUpSection = False @@ -5579,20 +5626,30 @@ DommeSlideshowFallback: If ssh.CallReturns.Count() > 0 Then ssh.ShowModule = True + ssh.AskedToGiveUpSection = False ScriptTimer.Start() - ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then - ssh.StrokeTauntVal = -1 - RunLastScript() - ElseIf WasStroking And Not WasEdging And Not WasHolding Then - ssh.StrokeTauntVal = -1 - RunModuleScript(False) - Else - ssh.StrokeTauntVal = -1 - RunLinkScript() - End If + + + + Else + If ssh.TeaseTick < 1 And ssh.Playlist = False Then + ssh.StrokeTauntVal = -1 + RunLastScript() + ElseIf WasStroking And Not WasEdging And Not WasHolding Then + ssh.StrokeTauntVal = -1 + RunModuleScript(False) + ElseIf ssh.giveUpReturn Then + ssh.ShowModule = True + ssh.AskedToGiveUpSection = False + ScriptTimer.Start() + Else + ssh.StrokeTauntVal = -1 + RunLinkScript() + End If + End If End If @@ -5675,7 +5732,7 @@ DommeSlideshowFallback: If ssh.RiskyDeal = True Then FrmCardList.LblRiskType.Visible = True ssh.IsTyping = True - Dim TypingName As String = domName.Text + Dim TypingName As String = ssh.tempDomName If ssh.DomChat.Contains("@Contact1") Then TypingName = My.Settings.Glitter1 If ssh.DomChat.Contains("@Contact2") Then TypingName = My.Settings.Glitter2 If ssh.DomChat.Contains("@Contact3") Then TypingName = My.Settings.Glitter3 @@ -6215,16 +6272,29 @@ DommeSlideshowFallback: If ssh.CallReturns.Count() > 0 Then ssh.ShowModule = True + ssh.AskedToGiveUpSection = False ScriptTimer.Start() - ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then - ssh.StrokeTauntVal = -1 - RunLastScript() - ElseIf WasStroking And Not WasEdging And Not WasHolding Then - ssh.StrokeTauntVal = -1 - RunModuleScript(False) + + + + + + Else - ssh.StrokeTauntVal = -1 - RunLinkScript() + If ssh.TeaseTick < 1 And ssh.Playlist = False Then + ssh.StrokeTauntVal = -1 + RunLastScript() + ElseIf WasStroking And Not WasEdging And Not WasHolding Then + ssh.StrokeTauntVal = -1 + RunModuleScript(False) + ElseIf ssh.giveUpReturn Then + ssh.ShowModule = True + ssh.AskedToGiveUpSection = False + ScriptTimer.Start() + Else + ssh.StrokeTauntVal = -1 + RunLinkScript() + End If End If End If @@ -7286,7 +7356,7 @@ CensorConstant: Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) - StatusName = StatusUpdates.DocumentText & " " & domName.Text & "
" & Date.Today & "

" + StatusName = StatusUpdates.DocumentText & " " & ssh.tempDomName & "
" & Date.Today & "

" StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText & "

" 'Debug.Print(GlitterImageAV) @@ -7817,7 +7887,7 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#SubName", subName.Text) - StringClean = StringClean.Replace("#DomName", domName.Text) + StringClean = StringClean.Replace("#DomName", ssh.tempDomName) StringClean = StringClean.Replace("#DomHonorific", FrmSettings.TBHonorific.Text) @@ -8492,8 +8562,10 @@ RinseLatherRepeat: If StringClean.Contains("@NewDommeSlideshow") Then 'TODO: Add Support for contact slideshows. - ssh.SlideshowMain.LoadNew() - ssh.SlideshowMain.CurrentImage() + + + ssh.newSlideshow = True + LoadDommeImageFolder() StringClean = StringClean.Replace("@NewDommeSlideshow", "") End If @@ -9623,7 +9695,7 @@ TaskCleanSet: ssh.BronzeTokens += 1 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add1Token", "") End If @@ -9631,7 +9703,7 @@ TaskCleanSet: ssh.BronzeTokens += 3 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add3Tokens", "") End If @@ -9640,14 +9712,14 @@ TaskCleanSet: My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() StringClean = StringClean.Replace("@Add5Tokens", "") - MessageBox.Show(Me, domName.Text & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) End If If StringClean.Contains("@Add10Tokens") Then ssh.BronzeTokens += 10 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add10Tokens", "") End If @@ -9655,7 +9727,7 @@ TaskCleanSet: ssh.BronzeTokens += 25 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add25Tokens", "") End If @@ -9663,7 +9735,7 @@ TaskCleanSet: ssh.BronzeTokens += 50 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add50Tokens", "") End If @@ -9671,7 +9743,7 @@ TaskCleanSet: ssh.BronzeTokens += 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add50Tokens", "") End If @@ -9679,7 +9751,7 @@ TaskCleanSet: ssh.BronzeTokens -= 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, domName.Text & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@@Remove100Tokens", "") End If @@ -10897,6 +10969,7 @@ OrgasmDecided: PicStripTSMIdommeSlideshow.Enabled = True End If ssh.SubGaveUp = True + If ssh.TasksCount >= 1 Then ssh.TasksCount = 0 ssh.FirstRound = False Else ' you can't give up @@ -11853,8 +11926,8 @@ ExternalAudio: If StringClean.Contains("@AddTeaseTime(") Then Dim OriginalFlag As String = "" - - If TeaseTimer.Enabled = True Then + 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) + 'If TeaseTimer.Enabled = True Then Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") OriginalFlag = TeaseFlag @@ -11874,10 +11947,13 @@ ExternalAudio: TeaseSeconds = Val(TeaseFlag) If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + + End If ssh.TeaseTick += TeaseSeconds - End If - StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") + If ssh.LastScript Then ssh.LastScript = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True + StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") End If If StringClean.Contains("@RemoveTeaseTime(") Then @@ -11912,17 +11988,20 @@ ExternalAudio: End If If StringClean.Contains("@AddTeaseTime") Then - If TeaseTimer.Enabled = True Then - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If + 'same as before about the teasetimer + ' If TeaseTimer.Enabled = True Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + If ssh.LastScript Then ssh.LastScript = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True StringClean = StringClean.Replace("@AddTeaseTime", "") End If @@ -11950,34 +12029,110 @@ ExternalAudio: StringClean = StringClean.Replace("@RTOff", "") End If - If StringClean.Contains("@AddContact1") Or StringClean.Contains("@RemoveContact1") Then - ssh.AddContactTick = 2 - Contact1Timer.Start() + + + If StringClean.Contains("@GlitterTease1") Then + ssh.glitterDommeNumber = 1 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease1", "") + End If + + If StringClean.Contains("@GlitterTease2") Then + ssh.glitterDommeNumber = 2 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease2", "") + End If + + If StringClean.Contains("@GlitterTease3") Then + ssh.glitterDommeNumber = 3 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease3", "") + End If + + If StringClean.Contains("@DommeTease") Then + ssh.glitterDommeNumber = 0 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@DommeTease", "") + End If + + If StringClean.Contains("@RandomTease") Then + ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@RandomTease", "") + End If + + If StringClean.Contains("@AddContact1") Then + If Not ssh.contact1Present Then + ssh.contact1Present = True + ssh.AddContactTick = 2 + Contact1Timer.Start() + End If StringClean = StringClean.Replace("@AddContact1", "") + End If + + If StringClean.Contains("@RemoveContact1") Then + If ssh.contact1Present Then + ssh.contact1Present = False + ssh.AddContactTick = 2 + Contact1Timer.Start() + End If StringClean = StringClean.Replace("@RemoveContact1", "") End If - If StringClean.Contains("@AddContact2") Or StringClean.Contains("@RemoveContact2") Then - ssh.AddContactTick = 2 - Contact2Timer.Start() + If StringClean.Contains("@AddContact2") Then + If Not ssh.contact2Present Then + ssh.contact2Present = True + ssh.AddContactTick = 2 + Contact2Timer.Start() + End If StringClean = StringClean.Replace("@AddContact2", "") + End If + + If StringClean.Contains("@RemoveContact2") Then + If ssh.contact2Present Then + ssh.contact2Present = False + ssh.AddContactTick = 2 + Contact2Timer.Start() + End If StringClean = StringClean.Replace("@RemoveContact2", "") End If - If StringClean.Contains("@AddContact3") Or StringClean.Contains("@RemoveContact3") Then - ssh.AddContactTick = 2 - Contact3Timer.Start() + If StringClean.Contains("@AddContact3") Then + If Not ssh.contact3Present Then + ssh.contact3Present = True + ssh.AddContactTick = 2 + Contact3Timer.Start() + End If StringClean = StringClean.Replace("@AddContact3", "") + End If + + If StringClean.Contains("@RemoveContact3") Then + If ssh.contact3Present Then + ssh.contact3Present = False + ssh.AddContactTick = 2 + Contact3Timer.Start() + End If StringClean = StringClean.Replace("@RemoveContact3", "") End If - If StringClean.Contains("@AddDomme") Or StringClean.Contains("@RemoveDomme") Then - ssh.AddContactTick = 2 - DommeTimer.Start() + If StringClean.Contains("@AddDomme") Then + If Not ssh.dommePresent Then + ssh.dommePresent = True + ssh.AddContactTick = 2 + DommeTimer.Start() + End If StringClean = StringClean.Replace("@AddDomme", "") - StringClean = StringClean.Replace("@RemoveDomme", "") + End If + If StringClean.Contains("@RemoveDomme") Then + If ssh.dommePresent Then + ssh.dommePresent = False + ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@RemoveDomme", "") + End If If StringClean.Contains("@NullResponse") Then ssh.NullResponse = True @@ -12320,7 +12475,20 @@ VTSkip: StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") End If + If StringClean.Contains("@RandomLink") Then + RunLinkScript() + StringClean = StringClean.Replace("@RandomLink", "") + End If + If StringClean.Contains("@RandomModule") Then + If ssh.SubEdging Or ssh.SubHoldingEdge Then + RunModuleScript(True) + Else + RunModuleScript(False) + End If + StringClean = StringClean.Replace("@RandomModule", "") + End If + If StringClean.Contains("@RapidCodeOn") Then ssh.RapidCode = True StringClean = StringClean.Replace("@RapidCodeOn", "") @@ -13890,7 +14058,6 @@ VTSkip: End If Return result End If - If FilterString.Contains("@FlagOr(") Then Dim result As Boolean = False Dim writeFlag As String @@ -13926,7 +14093,6 @@ VTSkip: If FilterString.Contains("@DayOfWeek(") Then If GetMatch(FilterString, "@DayOfWeek(", WeekdayName(Weekday(DateAndTime.Now))) = False Then Return False End If - If FilterString.Contains("@SetModule(") Then If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False End If @@ -13952,7 +14118,6 @@ VTSkip: If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then Exit For End If - FilterString = FilterString & FilterList(f) & " " Next @@ -15756,9 +15921,9 @@ Night: ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine If FrmSettings.CBHonorificInclude.Checked = True Then - ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & domName.Text + ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & ssh.tempDomName Else - ssh.TaskText = ssh.TaskText & domName.Text + ssh.TaskText = ssh.TaskText & ssh.tempDomName End If ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") @@ -15773,7 +15938,7 @@ Night: ssh.TaskText = "" - LBLFileTransfer.Text = domName.Text & " is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" PNLFileTransfer.Visible = True PNLFileTransfer.BringToFront() @@ -15964,7 +16129,7 @@ PoundLoop: PNLFileTransfer.Visible = False BTNFileTransferOpen.Visible = False BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = domName.Text & " is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" PBFileTransfer.Value = 0 End Sub @@ -15986,7 +16151,7 @@ PoundLoop: PNLFileTransfer.Visible = False BTNFileTransferOpen.Visible = False BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = domName.Text & " is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" PBFileTransfer.Value = 0 End Sub @@ -17000,10 +17165,9 @@ saveImage: If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try - ssh.SlideshowMain.LoadNew() - ShowImage(ssh.SlideshowMain.NavigateFirst, True) - + Try + ssh.newSlideshow = True + LoadDommeImageFolder() Catch End Try @@ -17034,7 +17198,36 @@ saveImage: Public Sub LoadDommeImageFolder() - ssh.SlideshowMain.LoadNew() + 'check which domme should be loaded + If Not ssh.newSlideshow Then + If ssh.glitterDommeNumber = 0 Then + ssh.SlideshowMain = New ContactData(ContactType.Domme) + ElseIf ssh.glitterDommeNumber = 1 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact1) + ElseIf ssh.glitterDommeNumber = 2 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact2) + ElseIf ssh.glitterDommeNumber = 3 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact3) + ElseIf ssh.glitterDommeNumber = 4 Then + ssh.SlideshowMain = New ContactData(ContactType.Random) + End If + 'check if the #DomHonorific file has some flags to determine which honorific to use with the current domme + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\#DomHonorific.txt") Then + Dim filePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\#DomHonorific.txt" + Dim lines As List(Of String) = Txt2List(filePath) + lines = FilterList(lines) + Dim randomize As Integer = ssh.randomizer.Next(0, lines.Count) + Dim chosen As String = lines(randomize) + Dim words() As String = Split(chosen, ")") + FrmSettings.TBHonorific.Text = words(1) + Else + FrmSettings.TBHonorific.Text = My.Settings.SubHonorific + End If + End If + ssh.SlideshowMain.LoadNew(ssh.newSlideshow) + ssh.tempDomName = ssh.SlideshowMain.TypeName + ssh.newSlideshow = False + ShowImage(ssh.SlideshowMain.CurrentImage, False) ssh.SlideshowLoaded = True ssh.JustShowedBlogImage = False @@ -17303,11 +17496,11 @@ restartInstantly: If Not ssh.Group.Contains("D") Then ssh.Group = ssh.Group & "D" If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(domName.Text & " has joined the Chat room") + ChatAddSystemMessage(ssh.tempDomName & " has joined the Chat room") Else ssh.Group = ssh.Group.Replace("D", "") ssh.GlitterTease = True - ChatAddSystemMessage(domName.Text & " has left the Chat room") + ChatAddSystemMessage(ssh.tempDomName & " has left the Chat room") End If End If @@ -17627,7 +17820,7 @@ restartInstantly: If My.Settings.ClearWishlist = True Then - MessageBox.Show(Me, "You have already purchased " & domName.Text & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & + MessageBox.Show(Me, "You have already purchased " & ssh.tempDomName & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If @@ -17655,7 +17848,7 @@ restartInstantly: End If - LBLWishlistDom.Text = domName.Text & "'s Wishlist" + LBLWishlistDom.Text = ssh.tempDomName & "'s Wishlist" LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() WishlistCostGold.Visible = False WishlistCostSilver.Visible = False @@ -17704,7 +17897,7 @@ restartInstantly: If WishlistCostGold.Visible = True Then If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then BTNWishlist.Enabled = True - BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Text = "Purchase for " & ssh.tempDomName Else BTNWishlist.Enabled = False BTNWishlist.Text = "Not Enough Tokens!" @@ -17714,7 +17907,7 @@ restartInstantly: If WishlistCostSilver.Visible = True Then If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then BTNWishlist.Enabled = True - BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Text = "Purchase for " & ssh.tempDomName Else BTNWishlist.Enabled = False BTNWishlist.Text = "Not Enough Tokens!" @@ -17735,7 +17928,7 @@ restartInstantly: - LBLWishlistDom.Text = domName.Text & "'s Wishlist" + LBLWishlistDom.Text = ssh.tempDomName & "'s Wishlist" LBLWishlistDate.Text = FormatDateTime(Now, DateFormat.ShortDate).ToString() LBLWishlistBronze.Text = ssh.BronzeTokens LBLWishlistSilver.Text = ssh.SilverTokens @@ -17789,7 +17982,7 @@ restartInstantly: If WishlistCostGold.Visible = True Then If ssh.GoldTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Text = "Purchase for " & ssh.tempDomName BTNWishlist.Enabled = True Else BTNWishlist.Text = "Not Enough Tokens!" @@ -17800,7 +17993,7 @@ restartInstantly: If WishlistCostSilver.Visible = True Then Debug.Print("Silver Called") If ssh.SilverTokens >= Val(LBLWishlistCost.Text) Then - BTNWishlist.Text = "Purchase for " & domName.Text + BTNWishlist.Text = "Purchase for " & ssh.tempDomName BTNWishlist.Enabled = True Else BTNWishlist.Text = "Not Enough Tokens!" @@ -18331,7 +18524,7 @@ restartInstantly: If ssh.StrokeFaster = True Then If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then Debug.Print("Stroke Faster") - Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) + Dim Stroke123 As Integer = ssh.randomizer.Next(3, 8) Stroke123 = Stroke123 * 50 StrokePace = StrokePace - Stroke123 If StrokePace < NBMaxPace.Value Then StrokePace = NBMaxPace.Value @@ -18343,7 +18536,7 @@ restartInstantly: If ssh.StrokeSlower = True Then If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then Debug.Print("Stroke Slower") - Dim Stroke123 As Integer = ssh.randomizer.Next(1, 4) + Dim Stroke123 As Integer = ssh.randomizer.Next(3, 8) Stroke123 = Stroke123 * 50 StrokePace = StrokePace + Stroke123 If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value @@ -19789,7 +19982,7 @@ restartInstantly: ssh.SilverTokens -= Val(LBLWishlistCost.Text) My.Settings.SilverTokens = ssh.SilverTokens - 'LBLWishListText.Text = "You purchased this item for " & domName.Text & " on " & CDate(DateString) & "." + 'LBLWishListText.Text = "You purchased this item for " & ssh.tempDomName & " on " & CDate(DateString) & "." 'My.Settings.WishlistNote = LBLWishListText.Text My.Settings.ClearWishlist = True @@ -19803,7 +19996,7 @@ restartInstantly: LBLWishListName.Text = "" WishlistPreview.Visible = False LBLWishlistCost.Text = "" - LBLWishListText.Text = "Thank you for your purchase! " & domName.Text & " has been notified of your generous gift. Please check back again tomorrow for a new item!" + LBLWishListText.Text = "Thank you for your purchase! " & ssh.tempDomName & " has been notified of your generous gift. Please check back again tomorrow for a new item!" BTNWishlist.Enabled = False BTNWishlist.Text = "" diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 56bfe65..7374d5e 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -652,7 +652,10 @@ Partial Class FrmSettings Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage22 = New System.Windows.Forms.TabPage() Me.PNLGlitter = New System.Windows.Forms.Panel() + Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() Me.Button15 = New System.Windows.Forms.Button() + Me.BtnRandomImageDir = New System.Windows.Forms.Button() + Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() Me.Button16 = New System.Windows.Forms.Button() Me.Label121 = New System.Windows.Forms.Label() Me.Label122 = New System.Windows.Forms.Label() @@ -1062,6 +1065,8 @@ Partial Class FrmSettings Me.Label3 = New System.Windows.Forms.Label() Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.Label41 = New System.Windows.Forms.Label() + Me.GBGiveUp = New System.Windows.Forms.GroupBox() + Me.giveupCheckBox = New System.Windows.Forms.CheckBox() Me.GroupBox47 = New System.Windows.Forms.GroupBox() Me.GroupBox41 = New System.Windows.Forms.GroupBox() Me.Button34 = New System.Windows.Forms.Button() @@ -1357,6 +1362,7 @@ Partial Class FrmSettings Me.TabPage5.SuspendLayout() Me.Panel5.SuspendLayout() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGiveUp.SuspendLayout() Me.GroupBox47.SuspendLayout() Me.GroupBox41.SuspendLayout() Me.GroupBox44.SuspendLayout() @@ -2147,6 +2153,7 @@ Partial Class FrmSettings ' Me.Panel3.BackColor = System.Drawing.Color.LightGray Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel3.Controls.Add(Me.GBGiveUp) Me.Panel3.Controls.Add(Me.BTNLoadDomSet) Me.Panel3.Controls.Add(Me.BTNSaveDomSet) Me.Panel3.Controls.Add(Me.Label127) @@ -9560,7 +9567,10 @@ Partial Class FrmSettings 'PNLGlitter ' Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray + Me.PNLGlitter.Controls.Add(Me.TbxRandomImageDir) Me.PNLGlitter.Controls.Add(Me.Button15) + Me.PNLGlitter.Controls.Add(Me.BtnRandomImageDir) + Me.PNLGlitter.Controls.Add(Me.BtnRandomImageDirClear) Me.PNLGlitter.Controls.Add(Me.Button16) Me.PNLGlitter.Controls.Add(Me.Label121) Me.PNLGlitter.Controls.Add(Me.Label122) @@ -9573,6 +9583,22 @@ Partial Class FrmSettings Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) Me.PNLGlitter.TabIndex = 91 ' + 'TbxRandomImageDir + ' + Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "RandomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxRandomImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxRandomImageDir.Location = New System.Drawing.Point(244, 332) + Me.TbxRandomImageDir.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxRandomImageDir.MinimumSize = New System.Drawing.Size(204, 17) + Me.TbxRandomImageDir.Name = "TbxRandomImageDir" + Me.TbxRandomImageDir.ReadOnly = True + Me.TbxRandomImageDir.Size = New System.Drawing.Size(204, 17) + Me.TbxRandomImageDir.TabIndex = 182 + Me.TbxRandomImageDir.Text = "No Path Selected" + ' 'Button15 ' Me.Button15.BackColor = System.Drawing.Color.LightGray @@ -9590,6 +9616,30 @@ Partial Class FrmSettings Me.Button15.TabIndex = 163 Me.Button15.UseVisualStyleBackColor = False ' + 'BtnRandomImageDir + ' + Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnRandomImageDir.Location = New System.Drawing.Point(16, 329) + Me.BtnRandomImageDir.Name = "BtnRandomImageDir" + Me.BtnRandomImageDir.Size = New System.Drawing.Size(192, 22) + Me.BtnRandomImageDir.TabIndex = 182 + Me.BtnRandomImageDir.Text = "Set Random Friend Main Directory" + Me.BtnRandomImageDir.UseVisualStyleBackColor = False + ' + 'BtnRandomImageDirClear + ' + Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(485, 329) + Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" + Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnRandomImageDirClear.TabIndex = 181 + Me.BtnRandomImageDirClear.Text = "Clear" + Me.BtnRandomImageDirClear.UseVisualStyleBackColor = False + ' 'Button16 ' Me.Button16.BackColor = System.Drawing.Color.LightGray @@ -14336,6 +14386,28 @@ Partial Class FrmSettings " you." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter ' + 'GBGiveUp + ' + Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) + Me.GBGiveUp.Location = New System.Drawing.Point(455, 344) + Me.GBGiveUp.Name = "GBGiveUp" + Me.GBGiveUp.Size = New System.Drawing.Size(234, 48) + Me.GBGiveUp.TabIndex = 42 + Me.GBGiveUp.TabStop = False + Me.GBGiveUp.Text = "Give Up" + ' + 'giveupCheckBox + ' + Me.giveupCheckBox.AutoSize = True + Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black + Me.giveupCheckBox.Location = New System.Drawing.Point(16, 19) + Me.giveupCheckBox.Name = "giveupCheckBox" + Me.giveupCheckBox.Size = New System.Drawing.Size(135, 17) + Me.giveupCheckBox.TabIndex = 38 + Me.giveupCheckBox.Text = "Give up continue script" + Me.giveupCheckBox.UseVisualStyleBackColor = True + ' 'GroupBox47 ' Me.GroupBox47.BackColor = System.Drawing.Color.LightGray @@ -15111,6 +15183,8 @@ Partial Class FrmSettings Me.Panel5.ResumeLayout(False) Me.Panel5.PerformLayout() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGiveUp.ResumeLayout(False) + Me.GBGiveUp.PerformLayout() Me.GroupBox47.ResumeLayout(False) Me.GroupBox41.ResumeLayout(False) Me.GroupBox44.ResumeLayout(False) @@ -15806,6 +15880,9 @@ Partial Class FrmSettings Friend WithEvents TbxContact3ImageDir As System.Windows.Forms.TextBox Friend WithEvents BtnContact2ImageDir As System.Windows.Forms.Button Friend WithEvents TbxContact2ImageDir As System.Windows.Forms.TextBox + Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox + Friend WithEvents BtnRandomImageDir As System.Windows.Forms.Button + Friend WithEvents BtnRandomImageDirClear As System.Windows.Forms.Button Friend WithEvents CBGlitterFeedOff As System.Windows.Forms.RadioButton Friend WithEvents CBGlitterFeedScripts As System.Windows.Forms.RadioButton Friend WithEvents CBGlitterFeed As System.Windows.Forms.RadioButton @@ -16208,4 +16285,6 @@ Partial Class FrmSettings Friend WithEvents CBLockOrgasmChances As CheckBox Friend WithEvents TableLayoutPanel1 As TableLayoutPanel Friend WithEvents GrbGlitterfeed As GroupBox + Friend WithEvents GBGiveUp As GroupBox + Friend WithEvents giveupCheckBox As CheckBox End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 707c107..a5fad1d 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -411,6 +411,9 @@ Public Class FrmSettings CBAuditStartup.Checked = My.Settings.AuditStartup + sadisticCheckBox.Checked = My.Settings.DomSadistic + degradingCheckBox.Checked = My.Settings.DomDegrading + giveupCheckBox.Checked = My.Settings.GiveUpReturn If CBAuditStartup.Checked = True Then AuditScripts() @@ -444,7 +447,7 @@ Public Class FrmSettings WBPlaylist.Navigate(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\Playlist\Start\") - For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir} + For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir, TbxRandomImageDir} If tmptbx.DataBindings("Text") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmptbx.Name & """'s text-property. Set the databinding and recompile!") @@ -2958,7 +2961,13 @@ SkipDeserializing: End If End Sub - + Private Sub BtnRandomImageDir_Click(sender As System.Object, e As System.EventArgs) Handles BtnRandomImageDir.Click + If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then + My.Settings.RandomImageDir = FolderBrowserDialog1.SelectedPath + My.Application.Session.SlideshowContactRandom = New ContactData(ContactType.Random) + End If + End Sub + Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles BTNGlitterD.Click If GetColor.ShowDialog() = DialogResult.OK Then LBLGlitterNCDomme.ForeColor = GetColor.Color @@ -3062,11 +3071,11 @@ SkipDeserializing: TTDir.SetToolTip(sender, "This button allows you to change the color of this contact's name as it appears in the Glitter app.") End Sub - Private Sub LBLContact1ImageDir_MouseHover(sender As Object, e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover + Private Sub LBLContact1ImageDir_MouseHover(sender As Object, e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover, TbxRandomImageDir.MouseHover TTDir.SetToolTip(sender, CType(sender, TextBox).Text) End Sub - Private Sub Button2_MouseHover(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover + Private Sub Button2_MouseHover(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover, BtnRandomImageDir.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & "set folders of the same model you're using as your contact.") @@ -3089,6 +3098,10 @@ SkipDeserializing: My.Application.Session.SlideshowContact3 = New ContactData() End Sub + Private Sub BtnRandomImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnRandomImageDirClear.Click + My.Settings.ResetField(TbxRandomImageDir, "Text") + My.Application.Session.SlideshowContactRandom = New ContactData() + End Sub Private Sub Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click SaveSettingsDialog.Title = "Select a location to save current Glitter settings" @@ -3140,7 +3153,7 @@ SkipDeserializing: SettingsList.Add("Contact 2 AV: " & My.Settings.GlitterAV2) SettingsList.Add("Contact 3 AV: " & My.Settings.GlitterAV3) - + SettingsList.Add("Random Friend Image Directory: " & My.Settings.RandomImageDir) Dim SettingsString As String = "" @@ -3241,7 +3254,7 @@ SkipDeserializing: My.Settings.GlitterAV3 = SettingsList(28).Replace("Contact 3 AV: ", "") Catch End Try - + My.Settings.RandomImageDir = SettingsList(29).Replace("Random Friend Image Directory: ", "") Catch MessageBox.Show(Me, "This Glitter settings file is invalid or has been edited incorrectly!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) @@ -5719,12 +5732,10 @@ checkFolder: End Sub - - - - - - + Private Sub giveupCheckBox_CheckedChanged(sender As Object, e As System.EventArgs) Handles giveupCheckBox.MouseClick + My.Settings.GiveUpReturn = giveupCheckBox.Checked + My.Settings.Save() + End Sub Private Sub NBWritingTaskMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBWritingTaskMin.LostFocus My.Settings.NBWritingTaskMin = NBWritingTaskMin.Value End Sub @@ -7615,6 +7626,7 @@ checkFolder: My.Settings.DomSupremacist = supremacistCheckBox.Checked My.Settings.DomSadistic = sadisticCheckBox.Checked My.Settings.DomDegrading = degradingCheckBox.Checked + My.Settings.GiveUpReturn = giveupCheckBox.Checked My.Settings.pnSetting1 = petnameBox1.Text My.Settings.pnSetting2 = petnameBox2.Text My.Settings.pnSetting3 = petnameBox3.Text @@ -7671,6 +7683,7 @@ checkFolder: supremacistCheckBox.Checked = My.Settings.DomSupremacist sadisticCheckBox.Checked = My.Settings.DomSadistic degradingCheckBox.Checked = My.Settings.DomDegrading + giveupCheckBox.Checked = My.Settings.GiveUpReturn petnameBox1.Text = My.Settings.pnSetting1 petnameBox2.Text = My.Settings.pnSetting2 petnameBox3.Text = My.Settings.pnSetting3 @@ -10282,5 +10295,4 @@ checkFolder: End If End Sub - End Class \ No newline at end of file diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 95d433e..2078a62 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. ' '------------------------------------------------------------------------------ @@ -13,5741 +13,5764 @@ Option Explicit On Namespace My - - _ - 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" + + + 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 "Funzionalità di salvataggio automatico My.Settings" #If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean + Private Shared addedHandler As Boolean - Private Shared addedHandlerLockObject As New Object + Private Shared addedHandlerLockObject As New Object - _ - 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 + + 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 - + + 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 + 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 - - _ - Public Property VideoHardcore() As String - Get - Return CType(Me("VideoHardcore"),String) - End Get - Set - Me("VideoHardcore") = value - End Set - End Property - - _ - Public Property VideoSoftcore() As String - Get - Return CType(Me("VideoSoftcore"),String) - End Get - Set - Me("VideoSoftcore") = value - End Set - End Property - - _ - Public Property VideoLesbian() As String - Get - Return CType(Me("VideoLesbian"),String) - End Get - Set - Me("VideoLesbian") = value - End Set - End Property - - _ - Public Property VideoBlowjob() As String - Get - Return CType(Me("VideoBlowjob"),String) - End Get - Set - Me("VideoBlowjob") = value - End Set - End Property - - _ - Public Property VideoFemdom() As String - Get - Return CType(Me("VideoFemdom"),String) - End Get - Set - Me("VideoFemdom") = value - End Set - End Property - - _ - Public Property VideoFemsub() As String - Get - Return CType(Me("VideoFemsub"),String) - End Get - Set - Me("VideoFemsub") = value - End Set - End Property - - _ - Public Property VideoJOI() As String - Get - Return CType(Me("VideoJOI"),String) - End Get - Set - Me("VideoJOI") = value - End Set - End Property - - _ - Public Property VideoCH() As String - Get - Return CType(Me("VideoCH"),String) - End Get - Set - Me("VideoCH") = value - End Set - End Property - - _ - Public Property VideoGeneral() As String - Get - Return CType(Me("VideoGeneral"),String) - End Get - Set - Me("VideoGeneral") = value - End Set - End Property - - _ - Public Property CBHardcore() As Boolean - Get - Return CType(Me("CBHardcore"),Boolean) - End Get - Set - Me("CBHardcore") = value - End Set - End Property - - _ - Public Property CBSoftcore() As Boolean - Get - Return CType(Me("CBSoftcore"),Boolean) - End Get - Set - Me("CBSoftcore") = value - End Set - End Property - - _ - Public Property CBLesbian() As Boolean - Get - Return CType(Me("CBLesbian"),Boolean) - End Get - Set - Me("CBLesbian") = value - End Set - End Property - - _ - Public Property CBBlowjob() As Boolean - Get - Return CType(Me("CBBlowjob"),Boolean) - End Get - Set - Me("CBBlowjob") = value - End Set - End Property - - _ - Public Property CBFemdom() As Boolean - Get - Return CType(Me("CBFemdom"),Boolean) - End Get - Set - Me("CBFemdom") = value - End Set - End Property - - _ - Public Property CBFemsub() As Boolean - Get - Return CType(Me("CBFemsub"),Boolean) - End Get - Set - Me("CBFemsub") = value - End Set - End Property - - _ - Public Property CBJOI() As Boolean - Get - Return CType(Me("CBJOI"),Boolean) - End Get - Set - Me("CBJOI") = value - End Set - End Property - - _ - Public Property CBCH() As Boolean - Get - Return CType(Me("CBCH"),Boolean) - End Get - Set - Me("CBCH") = value - End Set - End Property - - _ - Public Property CBGeneral() As Boolean - Get - Return CType(Me("CBGeneral"),Boolean) - End Get - Set - Me("CBGeneral") = value - End Set - End Property - - _ - Public Property DomAvatarSave() As String - Get - Return CType(Me("DomAvatarSave"),String) - End Get - Set - Me("DomAvatarSave") = value - End Set - End Property - - _ - Public Property SubAvatarSave() As String - Get - Return CType(Me("SubAvatarSave"),String) - End Get - Set - Me("SubAvatarSave") = value - End Set - End Property - - _ - Public Property NBCensorShowMin() As Decimal - Get - Return CType(Me("NBCensorShowMin"),Decimal) - End Get - Set - Me("NBCensorShowMin") = value - End Set - End Property - - _ - Public Property NBCensorShowMax() As Decimal - Get - Return CType(Me("NBCensorShowMax"),Decimal) - End Get - Set - Me("NBCensorShowMax") = value - End Set - End Property - - _ - Public Property NBCensorHideMin() As Decimal - Get - Return CType(Me("NBCensorHideMin"),Decimal) - End Get - Set - Me("NBCensorHideMin") = value - End Set - End Property - - _ - Public Property NBCensorHideMax() As Decimal - Get - Return CType(Me("NBCensorHideMax"),Decimal) - End Get - Set - Me("NBCensorHideMax") = value - End Set - End Property - - _ - Public Property CBCensorConstant() As Boolean - Get - Return CType(Me("CBCensorConstant"),Boolean) - End Get - Set - Me("CBCensorConstant") = value - End Set - End Property - - _ - Public Property CBHardcoreD() As Boolean - Get - Return CType(Me("CBHardcoreD"),Boolean) - End Get - Set - Me("CBHardcoreD") = value - End Set - End Property - - _ - Public Property CBSoftcoreD() As Boolean - Get - Return CType(Me("CBSoftcoreD"),Boolean) - End Get - Set - Me("CBSoftcoreD") = value - End Set - End Property - - _ - Public Property CBLesbianD() As Boolean - Get - Return CType(Me("CBLesbianD"),Boolean) - End Get - Set - Me("CBLesbianD") = value - End Set - End Property - - _ - Public Property CBBlowjobD() As Boolean - Get - Return CType(Me("CBBlowjobD"),Boolean) - End Get - Set - Me("CBBlowjobD") = value - End Set - End Property - - _ - Public Property CBFemsubD() As Boolean - Get - Return CType(Me("CBFemsubD"),Boolean) - End Get - Set - Me("CBFemsubD") = value - End Set - End Property - - _ - Public Property CBJOID() As Boolean - Get - Return CType(Me("CBJOID"),Boolean) - End Get - Set - Me("CBJOID") = value - End Set - End Property - - _ - Public Property CBCHD() As Boolean - Get - Return CType(Me("CBCHD"),Boolean) - End Get - Set - Me("CBCHD") = value - End Set - End Property - - _ - Public Property CBGeneralD() As Boolean - Get - Return CType(Me("CBGeneralD"),Boolean) - End Get - Set - Me("CBGeneralD") = value - End Set - End Property - - _ - Public Property CBFemdomD() As Boolean - Get - Return CType(Me("CBFemdomD"),Boolean) - End Get - Set - Me("CBFemdomD") = value - End Set - End Property - - _ - Public Property VideoHardcoreD() As String - Get - Return CType(Me("VideoHardcoreD"),String) - End Get - Set - Me("VideoHardcoreD") = value - End Set - End Property - - _ - Public Property VideoSoftcoreD() As String - Get - Return CType(Me("VideoSoftcoreD"),String) - End Get - Set - Me("VideoSoftcoreD") = value - End Set - End Property - - _ - Public Property VideoLesbianD() As String - Get - Return CType(Me("VideoLesbianD"),String) - End Get - Set - Me("VideoLesbianD") = value - End Set - End Property - - _ - Public Property VideoBlowjobD() As String - Get - Return CType(Me("VideoBlowjobD"),String) - End Get - Set - Me("VideoBlowjobD") = value - End Set - End Property - - _ - Public Property VideoFemdomD() As String - Get - Return CType(Me("VideoFemdomD"),String) - End Get - Set - Me("VideoFemdomD") = value - End Set - End Property - - _ - Public Property VideoFemsubD() As String - Get - Return CType(Me("VideoFemsubD"),String) - End Get - Set - Me("VideoFemsubD") = value - End Set - End Property - - _ - Public Property VideoJOID() As String - Get - Return CType(Me("VideoJOID"),String) - End Get - Set - Me("VideoJOID") = value - End Set - End Property - - _ - Public Property VideoCHD() As String - Get - Return CType(Me("VideoCHD"),String) - End Get - Set - Me("VideoCHD") = value - End Set - End Property - - _ - Public Property VideoGeneralD() As String - Get - Return CType(Me("VideoGeneralD"),String) - End Get - Set - Me("VideoGeneralD") = value - End Set - End Property - - _ - Public Property GlitterAV() As String - Get - Return CType(Me("GlitterAV"),String) - End Get - Set - Me("GlitterAV") = value - End Set - End Property - - _ - Public Property GlitterAV1() As String - Get - Return CType(Me("GlitterAV1"),String) - End Get - Set - Me("GlitterAV1") = value - End Set - End Property - - _ - Public Property GlitterAV2() As String - Get - Return CType(Me("GlitterAV2"),String) - End Get - Set - Me("GlitterAV2") = value - End Set - End Property - - _ - Public Property GlitterAV3() As String - Get - Return CType(Me("GlitterAV3"),String) - End Get - Set - Me("GlitterAV3") = value - End Set - End Property - - _ - Public Property GlitterSN() As String - Get - Return CType(Me("GlitterSN"),String) - End Get - Set - Me("GlitterSN") = value - End Set - End Property - - _ - Public Property Glitter1() As String - Get - Return CType(Me("Glitter1"),String) - End Get - Set - Me("Glitter1") = value - End Set - End Property - - _ - Public Property Glitter2() As String - Get - Return CType(Me("Glitter2"),String) - End Get - Set - Me("Glitter2") = value - End Set - End Property - - _ - Public Property Glitter3() As String - Get - Return CType(Me("Glitter3"),String) - End Get - Set - Me("Glitter3") = value - End Set - End Property - - _ - Public Property GlitterNCDommeColor() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNCDommeColor"),Global.System.Drawing.Color) - End Get - Set - Me("GlitterNCDommeColor") = value - End Set - End Property - - _ - Public Property GlitterNC1Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC1Color"),Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC1Color") = value - End Set - End Property - - _ - Public Property GlitterNC2Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC2Color"),Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC2Color") = value - End Set - End Property - - _ - Public Property GlitterNC3Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC3Color"),Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC3Color") = value - End Set - End Property - - _ - Public Property GlitterDSlider() As Integer - Get - Return CType(Me("GlitterDSlider"),Integer) - End Get - Set - Me("GlitterDSlider") = value - End Set - End Property - - _ - Public Property Glitter1Slider() As Integer - Get - Return CType(Me("Glitter1Slider"),Integer) - End Get - Set - Me("Glitter1Slider") = value - End Set - End Property - - _ - Public Property Glitter2Slider() As Integer - Get - Return CType(Me("Glitter2Slider"),Integer) - End Get - Set - Me("Glitter2Slider") = value - End Set - End Property - - _ - Public Property Glitter3Slider() As Integer - Get - Return CType(Me("Glitter3Slider"),Integer) - End Get - Set - Me("Glitter3Slider") = value - End Set - End Property - - _ - Public Property CBGlitterFeed() As Boolean - Get - Return CType(Me("CBGlitterFeed"),Boolean) - End Get - Set - Me("CBGlitterFeed") = value - End Set - End Property - - _ - Public Property CBGlitter1() As Boolean - Get - Return CType(Me("CBGlitter1"),Boolean) - End Get - Set - Me("CBGlitter1") = value - End Set - End Property - - _ - Public Property CBGlitter2() As Boolean - Get - Return CType(Me("CBGlitter2"),Boolean) - End Get - Set - Me("CBGlitter2") = value - End Set - End Property - - _ - Public Property CBGlitter3() As Boolean - Get - Return CType(Me("CBGlitter3"),Boolean) - End Get - Set - Me("CBGlitter3") = value - End Set - End Property - - _ - Public Property CBTease() As Boolean - Get - Return CType(Me("CBTease"),Boolean) - End Get - Set - Me("CBTease") = value - End Set - End Property - - _ - Public Property CBEgotist() As Boolean - Get - Return CType(Me("CBEgotist"),Boolean) - End Get - Set - Me("CBEgotist") = value - End Set - End Property - - _ - Public Property CBTrivia() As Boolean - Get - Return CType(Me("CBTrivia"),Boolean) - End Get - Set - Me("CBTrivia") = value - End Set - End Property - - _ - Public Property CBDaily() As Boolean - Get - Return CType(Me("CBDaily"),Boolean) - End Get - Set - Me("CBDaily") = value - End Set - End Property - - _ - Public Property CBCustom1() As Boolean - Get - Return CType(Me("CBCustom1"),Boolean) - End Get - Set - Me("CBCustom1") = value - End Set - End Property - - _ - Public Property CBCustom2() As Boolean - Get - Return CType(Me("CBCustom2"),Boolean) - End Get - Set - Me("CBCustom2") = value - End Set - End Property - - _ - Public Property CB1Bratty() As Boolean - Get - Return CType(Me("CB1Bratty"),Boolean) - End Get - Set - Me("CB1Bratty") = value - End Set - End Property - - _ - Public Property CB1Cruel() As Boolean - Get - Return CType(Me("CB1Cruel"),Boolean) - End Get - Set - Me("CB1Cruel") = value - End Set - End Property - - _ - Public Property CB1Caring() As Boolean - Get - Return CType(Me("CB1Caring"),Boolean) - End Get - Set - Me("CB1Caring") = value - End Set - End Property - - _ - Public Property CB1Angry() As Boolean - Get - Return CType(Me("CB1Angry"),Boolean) - End Get - Set - Me("CB1Angry") = value - End Set - End Property - - _ - Public Property CB1Custom1() As Boolean - Get - Return CType(Me("CB1Custom1"),Boolean) - End Get - Set - Me("CB1Custom1") = value - End Set - End Property - - _ - Public Property CB1Custom2() As Boolean - Get - Return CType(Me("CB1Custom2"),Boolean) - End Get - Set - Me("CB1Custom2") = value - End Set - End Property - - _ - Public Property CB2Bratty() As Boolean - Get - Return CType(Me("CB2Bratty"),Boolean) - End Get - Set - Me("CB2Bratty") = value - End Set - End Property - - _ - Public Property CB2Cruel() As Boolean - Get - Return CType(Me("CB2Cruel"),Boolean) - End Get - Set - Me("CB2Cruel") = value - End Set - End Property - - _ - Public Property CB2Caring() As Boolean - Get - Return CType(Me("CB2Caring"),Boolean) - End Get - Set - Me("CB2Caring") = value - End Set - End Property - - _ - Public Property CB2Angry() As Boolean - Get - Return CType(Me("CB2Angry"),Boolean) - End Get - Set - Me("CB2Angry") = value - End Set - End Property - - _ - Public Property CB2Custom1() As Boolean - Get - Return CType(Me("CB2Custom1"),Boolean) - End Get - Set - Me("CB2Custom1") = value - End Set - End Property - - _ - Public Property CB2Custom2() As Boolean - Get - Return CType(Me("CB2Custom2"),Boolean) - End Get - Set - Me("CB2Custom2") = value - End Set - End Property - - _ - Public Property CB3Bratty() As Boolean - Get - Return CType(Me("CB3Bratty"),Boolean) - End Get - Set - Me("CB3Bratty") = value - End Set - End Property - - _ - Public Property CB3Cruel() As Boolean - Get - Return CType(Me("CB3Cruel"),Boolean) - End Get - Set - Me("CB3Cruel") = value - End Set - End Property - - _ - Public Property CB3Caring() As Boolean - Get - Return CType(Me("CB3Caring"),Boolean) - End Get - Set - Me("CB3Caring") = value - End Set - End Property - - _ - Public Property CB3Angry() As Boolean - Get - Return CType(Me("CB3Angry"),Boolean) - End Get - Set - Me("CB3Angry") = value - End Set - End Property - - _ - Public Property CB3Custom1() As Boolean - Get - Return CType(Me("CB3Custom1"),Boolean) - End Get - Set - Me("CB3Custom1") = value - End Set - End Property - - _ - Public Property CB3Custom2() As Boolean - Get - Return CType(Me("CB3Custom2"),Boolean) - End Get - Set - Me("CB3Custom2") = value - End Set - End Property - - _ - Public Property DomName() As String - Get - Return CType(Me("DomName"),String) - End Get - Set - Me("DomName") = value - End Set - End Property - - _ - Public Property SubName() As String - Get - Return CType(Me("SubName"),String) - End Get - Set - Me("SubName") = value - End Set - End Property - - _ - Public Property pnSetting1() As String - Get - Return CType(Me("pnSetting1"),String) - End Get - Set - Me("pnSetting1") = value - End Set - End Property - - _ - Public Property pnSetting2() As String - Get - Return CType(Me("pnSetting2"),String) - End Get - Set - Me("pnSetting2") = value - End Set - End Property - - _ - Public Property pnSetting3() As String - Get - Return CType(Me("pnSetting3"),String) - End Get - Set - Me("pnSetting3") = value - End Set - End Property - - _ - Public Property pnSetting4() As String - Get - Return CType(Me("pnSetting4"),String) - End Get - Set - Me("pnSetting4") = value - End Set - End Property - - _ - Public Property pnSetting5() As String - Get - Return CType(Me("pnSetting5"),String) - End Get - Set - Me("pnSetting5") = value - End Set - End Property - - _ - Public Property pnSetting6() As String - Get - Return CType(Me("pnSetting6"),String) - End Get - Set - Me("pnSetting6") = value - End Set - End Property - - _ - Public Property pnSetting7() As String - Get - Return CType(Me("pnSetting7"),String) - End Get - Set - Me("pnSetting7") = value - End Set - End Property - - _ - Public Property pnSetting8() As String - Get - Return CType(Me("pnSetting8"),String) - End Get - Set - Me("pnSetting8") = value - End Set - End Property - - _ - Public Property DomColor() As String - Get - Return CType(Me("DomColor"),String) - End Get - Set - Me("DomColor") = value - End Set - End Property - - _ - Public Property SubColor() As String - Get - Return CType(Me("SubColor"),String) - End Get - Set - Me("SubColor") = value - End Set - End Property - - _ - Public Property DomColorColor() As Global.System.Drawing.Color - Get - Return CType(Me("DomColorColor"),Global.System.Drawing.Color) - End Get - Set - Me("DomColorColor") = value - End Set - End Property - - _ - Public Property SubColorColor() As Global.System.Drawing.Color - Get - Return CType(Me("SubColorColor"),Global.System.Drawing.Color) - End Get - Set - Me("SubColorColor") = value - End Set - End Property - - _ - Public Property CBTimeStamps() As Boolean - Get - Return CType(Me("CBTimeStamps"),Boolean) - End Get - Set - Me("CBTimeStamps") = value - End Set - End Property - - _ - Public Property CBShowNames() As Boolean - Get - Return CType(Me("CBShowNames"),Boolean) - End Get - Set - Me("CBShowNames") = value - End Set - End Property - - _ - Public Property CBInstantType() As Boolean - Get - Return CType(Me("CBInstantType"),Boolean) - End Get - Set - Me("CBInstantType") = value - End Set - End Property - - _ - Public Property CBBlogImageMain() As Boolean - Get - Return CType(Me("CBBlogImageMain"),Boolean) - End Get - Set - Me("CBBlogImageMain") = value - End Set - End Property - - _ - Public Property CBStretchLandscape() As Boolean - Get - Return CType(Me("CBStretchLandscape"),Boolean) - End Get - Set - Me("CBStretchLandscape") = value - End Set - End Property - - _ - Public Property CBMetronome() As Boolean - Get - Return CType(Me("CBMetronome"),Boolean) - End Get - Set - Me("CBMetronome") = value - End Set - End Property - - _ - Public Property CBSettingsPause() As Boolean - Get - Return CType(Me("CBSettingsPause"),Boolean) - End Get - Set - Me("CBSettingsPause") = value - End Set - End Property - - _ - Public Property DomLevel() As Integer - Get - Return CType(Me("DomLevel"),Integer) - End Get - Set - Me("DomLevel") = value - End Set - End Property - - _ - Public Property OrgasmAllow() As String - Get - Return CType(Me("OrgasmAllow"),String) - End Get - Set - Me("OrgasmAllow") = value - End Set - End Property - - _ - Public Property OrgasmRuin() As String - Get - Return CType(Me("OrgasmRuin"),String) - End Get - Set - Me("OrgasmRuin") = value - End Set - End Property - - _ - Public Property CBAutosaveChatlog() As Boolean - Get - Return CType(Me("CBAutosaveChatlog"),Boolean) - End Get - Set - Me("CBAutosaveChatlog") = value - End Set - End Property - - _ - Public Property CBExitSaveChatlog() As Boolean - Get - Return CType(Me("CBExitSaveChatlog"),Boolean) - End Get - Set - Me("CBExitSaveChatlog") = value - End Set - End Property - - _ - Public Property AvgEdgeStroking() As Integer - Get - Return CType(Me("AvgEdgeStroking"),Integer) - End Get - Set - Me("AvgEdgeStroking") = value - End Set - End Property - - _ - Public Property AvgEdgeNoTouch() As Integer - Get - Return CType(Me("AvgEdgeNoTouch"),Integer) - End Get - Set - Me("AvgEdgeNoTouch") = value - End Set - End Property - - _ - Public Property AvgEdgeCount() As Integer - Get - Return CType(Me("AvgEdgeCount"),Integer) - End Get - Set - Me("AvgEdgeCount") = value - End Set - End Property - - _ - Public Property StrokeTimeTotal() As Integer - Get - Return CType(Me("StrokeTimeTotal"),Integer) - End Get - Set - Me("StrokeTimeTotal") = value - End Set - End Property - - _ - Public Property NBWritingTaskMin() As Integer - Get - Return CType(Me("NBWritingTaskMin"),Integer) - End Get - Set - Me("NBWritingTaskMin") = value - End Set - End Property - - _ - Public Property NBWritingTaskMax() As Integer - Get - Return CType(Me("NBWritingTaskMax"),Integer) - End Get - Set - Me("NBWritingTaskMax") = value - End Set - End Property - - _ - Public Property LBLBoobPath() As String - Get - Return CType(Me("LBLBoobPath"),String) - End Get - Set - Me("LBLBoobPath") = value - End Set - End Property - - _ - Public Property UrlFileBoobs() As String - Get - Return CType(Me("UrlFileBoobs"),String) - End Get - Set - Me("UrlFileBoobs") = value - End Set - End Property - - _ - Public Property LBLButtPath() As String - Get - Return CType(Me("LBLButtPath"),String) - End Get - Set - Me("LBLButtPath") = value - End Set - End Property - - _ - Public Property UrlFileButt() As String - Get - Return CType(Me("UrlFileButt"),String) - End Get - Set - Me("UrlFileButt") = value - End Set - End Property - - _ - Public Property CBBnBLocal() As Boolean - Get - Return CType(Me("CBBnBLocal"),Boolean) - End Get - Set - Me("CBBnBLocal") = value - End Set - End Property - - _ - Public Property CBBnBURL() As Boolean - Get - Return CType(Me("CBBnBURL"),Boolean) - End Get - Set - Me("CBBnBURL") = value - End Set - End Property - - _ - Public Property CBBoobSubDir() As Boolean - Get - Return CType(Me("CBBoobSubDir"),Boolean) - End Get - Set - Me("CBBoobSubDir") = value - End Set - End Property - - _ - Public Property CBButtSubDir() As Boolean - Get - Return CType(Me("CBButtSubDir"),Boolean) - End Get - Set - Me("CBButtSubDir") = value - End Set - End Property - - _ - Public Property CBEnableBnB() As Boolean - Get - Return CType(Me("CBEnableBnB"),Boolean) - End Get - Set - Me("CBEnableBnB") = value - End Set - End Property - - _ - Public Property CBSlideshowSubDir() As Boolean - Get - Return CType(Me("CBSlideshowSubDir"),Boolean) - End Get - Set - Me("CBSlideshowSubDir") = value - End Set - End Property - - _ - Public Property CBSlideshowRandom() As Boolean - Get - Return CType(Me("CBSlideshowRandom"),Boolean) - End Get - Set - Me("CBSlideshowRandom") = value - End Set - End Property - - _ - Public Property DomAge() As Integer - Get - Return CType(Me("DomAge"),Integer) - End Get - Set - Me("DomAge") = value - End Set - End Property - - _ - Public Property DomHair() As String - Get - Return CType(Me("DomHair"),String) - End Get - Set - Me("DomHair") = value - End Set - End Property - - _ - Public Property DomEyes() As String - Get - Return CType(Me("DomEyes"),String) - End Get - Set - Me("DomEyes") = value - End Set - End Property - - _ - Public Property DomCup() As String - Get - Return CType(Me("DomCup"),String) - End Get - Set - Me("DomCup") = value - End Set - End Property - - _ - Public Property DomPersonality() As String - Get - Return CType(Me("DomPersonality"),String) - End Get - Set - Me("DomPersonality") = value - End Set - End Property - - _ - Public Property DomCrazy() As Boolean - Get - Return CType(Me("DomCrazy"),Boolean) - End Get - Set - Me("DomCrazy") = value - End Set - End Property - - _ - Public Property DomVulgar() As Boolean - Get - Return CType(Me("DomVulgar"),Boolean) - End Get - Set - Me("DomVulgar") = value - End Set - End Property - - _ - Public Property DomSupremacist() As Boolean - Get - Return CType(Me("DomSupremacist"),Boolean) - End Get - Set - Me("DomSupremacist") = value - End Set - End Property - - _ - Public Property DomLowercase() As Boolean - Get - Return CType(Me("DomLowercase"),Boolean) - End Get - Set - Me("DomLowercase") = value - End Set - End Property - - _ - Public Property DomNoApostrophes() As Boolean - Get - Return CType(Me("DomNoApostrophes"),Boolean) - End Get - Set - Me("DomNoApostrophes") = value - End Set - End Property - - _ - Public Property DomNoCommas() As Boolean - Get - Return CType(Me("DomNoCommas"),Boolean) - End Get - Set - Me("DomNoCommas") = value - End Set - End Property - - _ - Public Property DomNoPeriods() As Boolean - Get - Return CType(Me("DomNoPeriods"),Boolean) - End Get - Set - Me("DomNoPeriods") = value - End Set - End Property - - _ - Public Property DomMeMyMine() As Boolean - Get - Return CType(Me("DomMeMyMine"),Boolean) - End Get - Set - Me("DomMeMyMine") = value - End Set - End Property - - _ - Public Property DomEmotes() As String - Get - Return CType(Me("DomEmotes"),String) - End Get - Set - Me("DomEmotes") = value - End Set - End Property - - _ - Public Property DomDenialEnd() As Boolean - Get - Return CType(Me("DomDenialEnd"),Boolean) - End Get - Set - Me("DomDenialEnd") = value - End Set - End Property - - _ - Public Property DomOrgasmEnd() As Boolean - Get - Return CType(Me("DomOrgasmEnd"),Boolean) - End Get - Set - Me("DomOrgasmEnd") = value - End Set - End Property - - _ - Public Property DomPOT() As Boolean - Get - Return CType(Me("DomPOT"),Boolean) - End Get - Set - Me("DomPOT") = value - End Set - End Property - - _ - Public Property DomLimit() As Boolean - Get - Return CType(Me("DomLimit"),Boolean) - End Get - Set - Me("DomLimit") = value - End Set - End Property - - _ - Public Property DomOrgasmPer() As Integer - Get - Return CType(Me("DomOrgasmPer"),Integer) - End Get - Set - Me("DomOrgasmPer") = value - End Set - End Property - - _ - Public Property DomPerMonth() As String - Get - Return CType(Me("DomPerMonth"),String) - End Get - Set - Me("DomPerMonth") = value - End Set - End Property - - _ - Public Property DomLock() As Boolean - Get - Return CType(Me("DomLock"),Boolean) - End Get - Set - Me("DomLock") = value - End Set - End Property - - _ - Public Property DomMoodMin() As Integer - Get - Return CType(Me("DomMoodMin"),Integer) - End Get - Set - Me("DomMoodMin") = value - End Set - End Property - - _ - Public Property DomMoodMax() As Integer - Get - Return CType(Me("DomMoodMax"),Integer) - End Get - Set - Me("DomMoodMax") = value - End Set - End Property - - _ - Public Property AvgCockMin() As Integer - Get - Return CType(Me("AvgCockMin"),Integer) - End Get - Set - Me("AvgCockMin") = value - End Set - End Property - - _ - Public Property AvgCockMax() As Integer - Get - Return CType(Me("AvgCockMax"),Integer) - End Get - Set - Me("AvgCockMax") = value - End Set - End Property - - _ - Public Property SelfAgeMin() As Integer - Get - Return CType(Me("SelfAgeMin"),Integer) - End Get - Set - Me("SelfAgeMin") = value - End Set - End Property - - _ - Public Property SelfAgeMax() As Integer - Get - Return CType(Me("SelfAgeMax"),Integer) - End Get - Set - Me("SelfAgeMax") = value - End Set - End Property - - _ - Public Property SubAgeMin() As Integer - Get - Return CType(Me("SubAgeMin"),Integer) - End Get - Set - Me("SubAgeMin") = value - End Set - End Property - - _ - Public Property SubAgeMax() As String - Get - Return CType(Me("SubAgeMax"),String) - End Get - Set - Me("SubAgeMax") = value - End Set - End Property - - _ - Public Property CBLockWindow() As Boolean - Get - Return CType(Me("CBLockWindow"),Boolean) - End Get - Set - Me("CBLockWindow") = value - End Set - End Property - - _ - Public Property SubGreeting() As String - Get - Return CType(Me("SubGreeting"),String) - End Get - Set - Me("SubGreeting") = value - End Set - End Property - - _ - Public Property SubYes() As String - Get - Return CType(Me("SubYes"),String) - End Get - Set - Me("SubYes") = value - End Set - End Property - - _ - Public Property SubNo() As String - Get - Return CType(Me("SubNo"),String) - End Get - Set - Me("SubNo") = value - End Set - End Property - - _ - Public Property SubHonorific() As String - Get - Return CType(Me("SubHonorific"),String) - End Get - Set - Me("SubHonorific") = value - End Set - End Property - - _ - Public Property CBUseHonor() As Boolean - Get - Return CType(Me("CBUseHonor"),Boolean) - End Get - Set - Me("CBUseHonor") = value - End Set - End Property - - _ - Public Property CBCapHonor() As Boolean - Get - Return CType(Me("CBCapHonor"),Boolean) - End Get - Set - Me("CBCapHonor") = value - End Set - End Property - - _ - Public Property SubCockSize() As Integer - Get - Return CType(Me("SubCockSize"),Integer) - End Get - Set - Me("SubCockSize") = value - End Set - End Property - - _ - Public Property SubAge() As Integer - Get - Return CType(Me("SubAge"),Integer) - End Get - Set - Me("SubAge") = value - End Set - End Property - - _ - Public Property TCAgreed() As Boolean - Get - Return CType(Me("TCAgreed"),Boolean) - End Get - Set - Me("TCAgreed") = value - End Set - End Property - - _ - Public Property TimerSTF() As Integer - Get - Return CType(Me("TimerSTF"),Integer) - End Get - Set - Me("TimerSTF") = value - End Set - End Property - - _ - Public Property SubBirthMonth() As Integer - Get - Return CType(Me("SubBirthMonth"),Integer) - End Get - Set - Me("SubBirthMonth") = value - End Set - End Property - - _ - Public Property SubBirthDay() As Integer - Get - Return CType(Me("SubBirthDay"),Integer) - End Get - Set - Me("SubBirthDay") = value - End Set - End Property - - _ - Public Property SubHair() As String - Get - Return CType(Me("SubHair"),String) - End Get - Set - Me("SubHair") = value - End Set - End Property - - _ - Public Property SubEyes() As String - Get - Return CType(Me("SubEyes"),String) - End Get - Set - Me("SubEyes") = value - End Set - End Property - - _ - Public Property DomFontSize() As Integer - Get - Return CType(Me("DomFontSize"),Integer) - End Get - Set - Me("DomFontSize") = value - End Set - End Property - - _ - Public Property DomFont() As String - Get - Return CType(Me("DomFont"),String) - End Get - Set - Me("DomFont") = value - End Set - End Property - - _ - Public Property SubFont() As String - Get - Return CType(Me("SubFont"),String) - End Get - Set - Me("SubFont") = value - End Set - End Property - - _ - Public Property SubFontSize() As Integer - Get - Return CType(Me("SubFontSize"),Integer) - End Get - Set - Me("SubFontSize") = value - End Set - End Property - - _ - Public Property DomBirthMonth() As Integer - Get - Return CType(Me("DomBirthMonth"),Integer) - End Get - Set - Me("DomBirthMonth") = value - End Set - End Property - - _ - Public Property DomBirthDay() As Integer - Get - Return CType(Me("DomBirthDay"),Integer) - End Get - Set - Me("DomBirthDay") = value - End Set - End Property - - _ - Public Property DomHairLength() As String - Get - Return CType(Me("DomHairLength"),String) - End Get - Set - Me("DomHairLength") = value - End Set - End Property - - _ - Public Property DomPubicHair() As String - Get - Return CType(Me("DomPubicHair"),String) - End Get - Set - Me("DomPubicHair") = value - End Set - End Property - - _ - Public Property DomTattoos() As Boolean - Get - Return CType(Me("DomTattoos"),Boolean) - End Get - Set - Me("DomTattoos") = value - End Set - End Property - - _ - Public Property DomFreckles() As Boolean - Get - Return CType(Me("DomFreckles"),Boolean) - End Get - Set - Me("DomFreckles") = value - End Set - End Property - - _ - Public Property CBImageInfo() As Boolean - Get - Return CType(Me("CBImageInfo"),Boolean) - End Get - Set - Me("CBImageInfo") = value - End Set - End Property - - _ - Public Property DomAVStretch() As Boolean - Get - Return CType(Me("DomAVStretch"),Boolean) - End Get - Set - Me("DomAVStretch") = value - End Set - End Property - - _ - Public Property SubAvStretch() As Boolean - Get - Return CType(Me("SubAvStretch"),Boolean) - End Get - Set - Me("SubAvStretch") = value - End Set - End Property - - _ - Public Property IHardcore() As String - Get - Return CType(Me("IHardcore"),String) - End Get - Set - Me("IHardcore") = value - End Set - End Property - - _ - Public Property ISoftcore() As String - Get - Return CType(Me("ISoftcore"),String) - End Get - Set - Me("ISoftcore") = value - End Set - End Property - - _ - Public Property ILesbian() As String - Get - Return CType(Me("ILesbian"),String) - End Get - Set - Me("ILesbian") = value - End Set - End Property - - _ - Public Property IBlowjob() As String - Get - Return CType(Me("IBlowjob"),String) - End Get - Set - Me("IBlowjob") = value - End Set - End Property - - _ - Public Property IFemdom() As String - Get - Return CType(Me("IFemdom"),String) - End Get - Set - Me("IFemdom") = value - End Set - End Property - - _ - Public Property ILezdom() As String - Get - Return CType(Me("ILezdom"),String) - End Get - Set - Me("ILezdom") = value - End Set - End Property - - _ - Public Property IHentai() As String - Get - Return CType(Me("IHentai"),String) - End Get - Set - Me("IHentai") = value - End Set - End Property - - _ - Public Property IGay() As String - Get - Return CType(Me("IGay"),String) - End Get - Set - Me("IGay") = value - End Set - End Property - - _ - Public Property IMaledom() As String - Get - Return CType(Me("IMaledom"),String) - End Get - Set - Me("IMaledom") = value - End Set - End Property - - _ - Public Property IGeneral() As String - Get - Return CType(Me("IGeneral"),String) - End Get - Set - Me("IGeneral") = value - End Set - End Property - - _ - Public Property IHardcoreSD() As Boolean - Get - Return CType(Me("IHardcoreSD"),Boolean) - End Get - Set - Me("IHardcoreSD") = value - End Set - End Property - - _ - Public Property ISoftcoreSD() As Boolean - Get - Return CType(Me("ISoftcoreSD"),Boolean) - End Get - Set - Me("ISoftcoreSD") = value - End Set - End Property - - _ - Public Property ILesbianSD() As Boolean - Get - Return CType(Me("ILesbianSD"),Boolean) - End Get - Set - Me("ILesbianSD") = value - End Set - End Property - - _ - Public Property IBlowjobSD() As Boolean - Get - Return CType(Me("IBlowjobSD"),Boolean) - End Get - Set - Me("IBlowjobSD") = value - End Set - End Property - - _ - Public Property IFemdomSD() As Boolean - Get - Return CType(Me("IFemdomSD"),Boolean) - End Get - Set - Me("IFemdomSD") = value - End Set - End Property - - _ - Public Property ILezdomSD() As Boolean - Get - Return CType(Me("ILezdomSD"),Boolean) - End Get - Set - Me("ILezdomSD") = value - End Set - End Property - - _ - Public Property IHentaiSD() As Boolean - Get - Return CType(Me("IHentaiSD"),Boolean) - End Get - Set - Me("IHentaiSD") = value - End Set - End Property - - _ - Public Property IGaySD() As Boolean - Get - Return CType(Me("IGaySD"),Boolean) - End Get - Set - Me("IGaySD") = value - End Set - End Property - - _ - Public Property IMaledomSD() As Boolean - Get - Return CType(Me("IMaledomSD"),Boolean) - End Get - Set - Me("IMaledomSD") = value - End Set - End Property - - _ - Public Property IGeneralSD() As Boolean - Get - Return CType(Me("IGeneralSD"),Boolean) - End Get - Set - Me("IGeneralSD") = value - End Set - End Property - - _ - Public Property ICaptionsSD() As Boolean - Get - Return CType(Me("ICaptionsSD"),Boolean) - End Get - Set - Me("ICaptionsSD") = value - End Set - End Property - - _ - Public Property CBIHardcore() As Boolean - Get - Return CType(Me("CBIHardcore"),Boolean) - End Get - Set - Me("CBIHardcore") = value - End Set - End Property - - _ - Public Property CBISoftcore() As Boolean - Get - Return CType(Me("CBISoftcore"),Boolean) - End Get - Set - Me("CBISoftcore") = value - End Set - End Property - - _ - Public Property CBILesbian() As Boolean - Get - Return CType(Me("CBILesbian"),Boolean) - End Get - Set - Me("CBILesbian") = value - End Set - End Property - - _ - Public Property CBIBlowjob() As Boolean - Get - Return CType(Me("CBIBlowjob"),Boolean) - End Get - Set - Me("CBIBlowjob") = value - End Set - End Property - - _ - Public Property CBIFemdom() As Boolean - Get - Return CType(Me("CBIFemdom"),Boolean) - End Get - Set - Me("CBIFemdom") = value - End Set - End Property - - _ - Public Property CBILezdom() As Boolean - Get - Return CType(Me("CBILezdom"),Boolean) - End Get - Set - Me("CBILezdom") = value - End Set - End Property - - _ - Public Property CBIHentai() As Boolean - Get - Return CType(Me("CBIHentai"),Boolean) - End Get - Set - Me("CBIHentai") = value - End Set - End Property - - _ - Public Property CBIGay() As Boolean - Get - Return CType(Me("CBIGay"),Boolean) - End Get - Set - Me("CBIGay") = value - End Set - End Property - - _ - Public Property CBIMaledom() As Boolean - Get - Return CType(Me("CBIMaledom"),Boolean) - End Get - Set - Me("CBIMaledom") = value - End Set - End Property - - _ - Public Property CBIGeneral() As Boolean - Get - Return CType(Me("CBIGeneral"),Boolean) - End Get - Set - Me("CBIGeneral") = value - End Set - End Property - - _ - Public Property CBICaptions() As Boolean - Get - Return CType(Me("CBICaptions"),Boolean) - End Get - Set - Me("CBICaptions") = value - End Set - End Property - - _ - Public Property ICaptions() As String - Get - Return CType(Me("ICaptions"),String) - End Get - Set - Me("ICaptions") = value - End Set - End Property - - _ - Public Property DomImageDir() As String - Get - Return CType(Me("DomImageDir"),String) - End Get - Set - Me("DomImageDir") = value - End Set - End Property - - _ - Public Property CBTCock() As Boolean - Get - Return CType(Me("CBTCock"),Boolean) - End Get - Set - Me("CBTCock") = value - End Set - End Property - - _ - Public Property CBTBalls() As Boolean - Get - Return CType(Me("CBTBalls"),Boolean) - End Get - Set - Me("CBTBalls") = value - End Set - End Property - - _ - Public Property ChastityPA() As Boolean - Get - Return CType(Me("ChastityPA"),Boolean) - End Get - Set - Me("ChastityPA") = value - End Set - End Property - - _ - Public Property ChastitySpikes() As Boolean - Get - Return CType(Me("ChastitySpikes"),Boolean) - End Get - Set - Me("ChastitySpikes") = value - End Set - End Property - - _ - Public Property SubInChastity() As Boolean - Get - Return CType(Me("SubInChastity"),Boolean) - End Get - Set - Me("SubInChastity") = value - End Set - End Property - - _ - Public Property LongEdge() As Integer - Get - Return CType(Me("LongEdge"),Integer) - End Get - Set - Me("LongEdge") = value - End Set - End Property - - _ - Public Property CBLongEdgeInterrupt() As Boolean - Get - Return CType(Me("CBLongEdgeInterrupt"),Boolean) - End Get - Set - Me("CBLongEdgeInterrupt") = value - End Set - End Property - - _ - Public Property HoldTheEdgeMax() As Integer - Get - Return CType(Me("HoldTheEdgeMax"),Integer) - End Get - Set - Me("HoldTheEdgeMax") = value - End Set - End Property - - _ - Public Property HoldEdgeTimeTotal() As Integer - Get - Return CType(Me("HoldEdgeTimeTotal"),Integer) - End Get - Set - Me("HoldEdgeTimeTotal") = value - End Set - End Property - - _ - Public Property CBTSlider() As Integer - Get - Return CType(Me("CBTSlider"),Integer) - End Get - Set - Me("CBTSlider") = value - End Set - End Property - - _ - Public Property SubCircumcised() As Boolean - Get - Return CType(Me("SubCircumcised"),Boolean) - End Get - Set - Me("SubCircumcised") = value - End Set - End Property - - _ - Public Property SubPierced() As Boolean - Get - Return CType(Me("SubPierced"),Boolean) - End Get - Set - Me("SubPierced") = value - End Set - End Property - - _ - Public Property DomEmpathy() As Integer - Get - Return CType(Me("DomEmpathy"),Integer) - End Get - Set - Me("DomEmpathy") = value - End Set - End Property - - _ - Public Property RangeOrgasm() As Boolean - Get - Return CType(Me("RangeOrgasm"),Boolean) - End Get - Set - Me("RangeOrgasm") = value - End Set - End Property - - _ - Public Property RangeRuin() As Boolean - Get - Return CType(Me("RangeRuin"),Boolean) - End Get - Set - Me("RangeRuin") = value - End Set - End Property - - _ - Public Property AllowOften() As Integer - Get - Return CType(Me("AllowOften"),Integer) - End Get - Set - Me("AllowOften") = value - End Set - End Property - - _ - Public Property AllowSometimes() As Integer - Get - Return CType(Me("AllowSometimes"),Integer) - End Get - Set - Me("AllowSometimes") = value - End Set - End Property - - _ - Public Property AllowRarely() As Integer - Get - Return CType(Me("AllowRarely"),Integer) - End Get - Set - Me("AllowRarely") = value - End Set - End Property - - _ - Public Property RuinOften() As Integer - Get - Return CType(Me("RuinOften"),Integer) - End Get - Set - Me("RuinOften") = value - End Set - End Property - - _ - Public Property RuinSometimes() As Integer - Get - Return CType(Me("RuinSometimes"),Integer) - End Get - Set - Me("RuinSometimes") = value - End Set - End Property - - _ - Public Property RuinRarely() As Integer - Get - Return CType(Me("RuinRarely"),Integer) - End Get - Set - Me("RuinRarely") = value - End Set - End Property - - _ - Public Property Chastity() As Boolean - Get - Return CType(Me("Chastity"),Boolean) - End Get - Set - Me("Chastity") = value - End Set - End Property - - _ - Public Property Safeword() As String - Get - Return CType(Me("Safeword"),String) - End Get - Set - Me("Safeword") = value - End Set - End Property - - _ - Public Property CaloriesConsumed() As Integer - Get - Return CType(Me("CaloriesConsumed"),Integer) - End Get - Set - Me("CaloriesConsumed") = value - End Set - End Property - - _ - Public Property CaloriesGoal() As Integer - Get - Return CType(Me("CaloriesGoal"),Integer) - End Get - Set - Me("CaloriesGoal") = value - End Set - End Property - - _ - Public Property VitalSubDisclaimer() As Boolean - Get - Return CType(Me("VitalSubDisclaimer"),Boolean) - End Get - Set - Me("VitalSubDisclaimer") = value - End Set - End Property - - _ - Public Property VitalSub() As Boolean - Get - Return CType(Me("VitalSub"),Boolean) - End Get - Set - Me("VitalSub") = value - End Set - End Property - - _ - Public Property VitalSubAssignments() As Boolean - Get - Return CType(Me("VitalSubAssignments"),Boolean) - End Get - Set - Me("VitalSubAssignments") = value - End Set - End Property - - _ - Public Property BP1() As String - Get - Return CType(Me("BP1"),String) - End Get - Set - Me("BP1") = value - End Set - End Property - - _ - Public Property BP2() As String - Get - Return CType(Me("BP2"),String) - End Get - Set - Me("BP2") = value - End Set - End Property - - _ - Public Property BP3() As String - Get - Return CType(Me("BP3"),String) - End Get - Set - Me("BP3") = value - End Set - End Property - - _ - Public Property BP4() As String - Get - Return CType(Me("BP4"),String) - End Get - Set - Me("BP4") = value - End Set - End Property - - _ - Public Property BP5() As String - Get - Return CType(Me("BP5"),String) - End Get - Set - Me("BP5") = value - End Set - End Property - - _ - Public Property BP6() As String - Get - Return CType(Me("BP6"),String) - End Get - Set - Me("BP6") = value - End Set - End Property - - _ - Public Property BN1() As String - Get - Return CType(Me("BN1"),String) - End Get - Set - Me("BN1") = value - End Set - End Property - - _ - Public Property BN2() As String - Get - Return CType(Me("BN2"),String) - End Get - Set - Me("BN2") = value - End Set - End Property - - _ - Public Property BN3() As String - Get - Return CType(Me("BN3"),String) - End Get - Set - Me("BN3") = value - End Set - End Property - - _ - Public Property BN4() As String - Get - Return CType(Me("BN4"),String) - End Get - Set - Me("BN4") = value - End Set - End Property - - _ - Public Property BN5() As String - Get - Return CType(Me("BN5"),String) - End Get - Set - Me("BN5") = value - End Set - End Property - - _ - Public Property BN6() As String - Get - Return CType(Me("BN6"),String) - End Get - Set - Me("BN6") = value - End Set - End Property - - _ - Public Property SP1() As String - Get - Return CType(Me("SP1"),String) - End Get - Set - Me("SP1") = value - End Set - End Property - - _ - Public Property SP2() As String - Get - Return CType(Me("SP2"),String) - End Get - Set - Me("SP2") = value - End Set - End Property - - _ - Public Property SP3() As String - Get - Return CType(Me("SP3"),String) - End Get - Set - Me("SP3") = value - End Set - End Property - - _ - Public Property SP4() As String - Get - Return CType(Me("SP4"),String) - End Get - Set - Me("SP4") = value - End Set - End Property - - _ - Public Property SP5() As String - Get - Return CType(Me("SP5"),String) - End Get - Set - Me("SP5") = value - End Set - End Property - - _ - Public Property SP6() As String - Get - Return CType(Me("SP6"),String) - End Get - Set - Me("SP6") = value - End Set - End Property - - _ - Public Property SN1() As String - Get - Return CType(Me("SN1"),String) - End Get - Set - Me("SN1") = value - End Set - End Property - - _ - Public Property SN2() As String - Get - Return CType(Me("SN2"),String) - End Get - Set - Me("SN2") = value - End Set - End Property - - _ - Public Property SN3() As String - Get - Return CType(Me("SN3"),String) - End Get - Set - Me("SN3") = value - End Set - End Property - - _ - Public Property SN4() As String - Get - Return CType(Me("SN4"),String) - End Get - Set - Me("SN4") = value - End Set - End Property - - _ - Public Property SN5() As String - Get - Return CType(Me("SN5"),String) - End Get - Set - Me("SN5") = value - End Set - End Property - - _ - Public Property SN6() As String - Get - Return CType(Me("SN6"),String) - End Get - Set - Me("SN6") = value - End Set - End Property - - _ - Public Property GP1() As String - Get - Return CType(Me("GP1"),String) - End Get - Set - Me("GP1") = value - End Set - End Property - - _ - Public Property GP2() As String - Get - Return CType(Me("GP2"),String) - End Get - Set - Me("GP2") = value - End Set - End Property - - _ - Public Property GP3() As String - Get - Return CType(Me("GP3"),String) - End Get - Set - Me("GP3") = value - End Set - End Property - - _ - Public Property GP4() As String - Get - Return CType(Me("GP4"),String) - End Get - Set - Me("GP4") = value - End Set - End Property - - _ - Public Property GP5() As String - Get - Return CType(Me("GP5"),String) - End Get - Set - Me("GP5") = value - End Set - End Property - - _ - Public Property GP6() As String - Get - Return CType(Me("GP6"),String) - End Get - Set - Me("GP6") = value - End Set - End Property - - _ - Public Property GN1() As String - Get - Return CType(Me("GN1"),String) - End Get - Set - Me("GN1") = value - End Set - End Property - - _ - Public Property GN2() As String - Get - Return CType(Me("GN2"),String) - End Get - Set - Me("GN2") = value - End Set - End Property - - _ - Public Property GN3() As String - Get - Return CType(Me("GN3"),String) - End Get - Set - Me("GN3") = value - End Set - End Property - - _ - Public Property GN4() As String - Get - Return CType(Me("GN4"),String) - End Get - Set - Me("GN4") = value - End Set - End Property - - _ - Public Property GN5() As String - Get - Return CType(Me("GN5"),String) - End Get - Set - Me("GN5") = value - End Set - End Property - - _ - Public Property GN6() As String - Get - Return CType(Me("GN6"),String) - End Get - Set - Me("GN6") = value - End Set - End Property - - _ - Public Property CardBack() As String - Get - Return CType(Me("CardBack"),String) - End Get - Set - Me("CardBack") = value - End Set - End Property - - _ - Public Property GoldTokens() As Integer - Get - Return CType(Me("GoldTokens"),Integer) - End Get - Set - Me("GoldTokens") = value - End Set - End Property - - _ - Public Property SilverTokens() As Integer - Get - Return CType(Me("SilverTokens"),Integer) - End Get - Set - Me("SilverTokens") = value - End Set - End Property - - _ - Public Property BronzeTokens() As Integer - Get - Return CType(Me("BronzeTokens"),Integer) - End Get - Set - Me("BronzeTokens") = value - End Set - End Property - - _ - Public Property B1() As Integer - Get - Return CType(Me("B1"),Integer) - End Get - Set - Me("B1") = value - End Set - End Property - - _ - Public Property B2() As Integer - Get - Return CType(Me("B2"),Integer) - End Get - Set - Me("B2") = value - End Set - End Property - - _ - Public Property B3() As Integer - Get - Return CType(Me("B3"),Integer) - End Get - Set - Me("B3") = value - End Set - End Property - - _ - Public Property B4() As Integer - Get - Return CType(Me("B4"),Integer) - End Get - Set - Me("B4") = value - End Set - End Property - - _ - Public Property B5() As Integer - Get - Return CType(Me("B5"),Integer) - End Get - Set - Me("B5") = value - End Set - End Property - - _ - Public Property B6() As Integer - Get - Return CType(Me("B6"),Integer) - End Get - Set - Me("B6") = value - End Set - End Property - - _ - Public Property S1() As Integer - Get - Return CType(Me("S1"),Integer) - End Get - Set - Me("S1") = value - End Set - End Property - - _ - Public Property S2() As Integer - Get - Return CType(Me("S2"),Integer) - End Get - Set - Me("S2") = value - End Set - End Property - - _ - Public Property S3() As Integer - Get - Return CType(Me("S3"),Integer) - End Get - Set - Me("S3") = value - End Set - End Property - - _ - Public Property S4() As Integer - Get - Return CType(Me("S4"),Integer) - End Get - Set - Me("S4") = value - End Set - End Property - - _ - Public Property S5() As Integer - Get - Return CType(Me("S5"),Integer) - End Get - Set - Me("S5") = value - End Set - End Property - - _ - Public Property S6() As Integer - Get - Return CType(Me("S6"),Integer) - End Get - Set - Me("S6") = value - End Set - End Property - - _ - Public Property G1() As Integer - Get - Return CType(Me("G1"),Integer) - End Get - Set - Me("G1") = value - End Set - End Property - - _ - Public Property G2() As Integer - Get - Return CType(Me("G2"),Integer) - End Get - Set - Me("G2") = value - End Set - End Property - - _ - Public Property G3() As Integer - Get - Return CType(Me("G3"),Integer) - End Get - Set - Me("G3") = value - End Set - End Property - - _ - Public Property G4() As Integer - Get - Return CType(Me("G4"),Integer) - End Get - Set - Me("G4") = value - End Set - End Property - - _ - Public Property G5() As Integer - Get - Return CType(Me("G5"),Integer) - End Get - Set - Me("G5") = value - End Set - End Property - - _ - Public Property G6() As Integer - Get - Return CType(Me("G6"),Integer) - End Get - Set - Me("G6") = value - End Set - End Property - - _ - Public Property ClearWishlist() As Boolean - Get - Return CType(Me("ClearWishlist"),Boolean) - End Get - Set - Me("ClearWishlist") = value - End Set - End Property - - _ - Public Property WishlistName() As String - Get - Return CType(Me("WishlistName"),String) - End Get - Set - Me("WishlistName") = value - End Set - End Property - - _ - Public Property WishlistPreview() As String - Get - Return CType(Me("WishlistPreview"),String) - End Get - Set - Me("WishlistPreview") = value - End Set - End Property - - _ - Public Property WishlistTokenType() As String - Get - Return CType(Me("WishlistTokenType"),String) - End Get - Set - Me("WishlistTokenType") = value - End Set - End Property - - _ - Public Property WishlistCost() As Integer - Get - Return CType(Me("WishlistCost"),Integer) - End Get - Set - Me("WishlistCost") = value - End Set - End Property - - _ - Public Property WishlistNote() As String - Get - Return CType(Me("WishlistNote"),String) - End Get - Set - Me("WishlistNote") = value - End Set - End Property - - _ - Public Property AvgEdgeCountRest() As Integer - Get - Return CType(Me("AvgEdgeCountRest"),Integer) - End Get - Set - Me("AvgEdgeCountRest") = value - End Set - End Property - - _ - Public Property PersonalityIndex() As Integer - Get - Return CType(Me("PersonalityIndex"),Integer) - End Get - Set - Me("PersonalityIndex") = value - End Set - End Property - - _ - Public Property LargeUI() As Boolean - Get - Return CType(Me("LargeUI"),Boolean) - End Get - Set - Me("LargeUI") = value - End Set - End Property - - _ - Public Property CBJackintheBox() As Boolean - Get - Return CType(Me("CBJackintheBox"),Boolean) - End Get - Set - Me("CBJackintheBox") = value - End Set - End Property - - _ - Public Property NextImageChance() As Integer - Get - Return CType(Me("NextImageChance"),Integer) - End Get - Set - Me("NextImageChance") = value - End Set - End Property - - _ - Public Property CBEdgeUseAvg() As Boolean - Get - Return CType(Me("CBEdgeUseAvg"),Boolean) - End Get - Set - Me("CBEdgeUseAvg") = value - End Set - End Property - - _ - Public Property CBLongEdgeTaunts() As Boolean - Get - Return CType(Me("CBLongEdgeTaunts"),Boolean) - End Get - Set - Me("CBLongEdgeTaunts") = value - End Set - End Property - - _ - Public Property CBLongEdgeInterrupts() As Boolean - Get - Return CType(Me("CBLongEdgeInterrupts"),Boolean) - End Get - Set - Me("CBLongEdgeInterrupts") = value - End Set - End Property - - _ - Public Property OrgasmsRemaining() As Integer - Get - Return CType(Me("OrgasmsRemaining"),Integer) - End Get - Set - Me("OrgasmsRemaining") = value - End Set - End Property - - _ - Public Property OrgasmsLocked() As Boolean - Get - Return CType(Me("OrgasmsLocked"),Boolean) - End Get - Set - Me("OrgasmsLocked") = value - End Set - End Property - - _ - Public Property TimerVTF() As Integer - Get - Return CType(Me("TimerVTF"),Integer) - End Get - Set - Me("TimerVTF") = value - End Set - End Property - - _ - Public Property CBTeaseLengthDD() As Boolean - Get - Return CType(Me("CBTeaseLengthDD"),Boolean) - End Get - Set - Me("CBTeaseLengthDD") = value - End Set - End Property - - _ - Public Property CBTauntCycleDD() As Boolean - Get - Return CType(Me("CBTauntCycleDD"),Boolean) - End Get - Set - Me("CBTauntCycleDD") = value - End Set - End Property - - _ - Public Property CBOwnChastity() As Boolean - Get - Return CType(Me("CBOwnChastity"),Boolean) - End Get - Set - Me("CBOwnChastity") = value - End Set - End Property - - _ - Public Property SmallUI() As Boolean - Get - Return CType(Me("SmallUI"),Boolean) - End Get - Set - Me("SmallUI") = value - End Set - End Property - - _ - Public Property UI768() As Boolean - Get - Return CType(Me("UI768"),Boolean) - End Get - Set - Me("UI768") = value - End Set - End Property - - _ - Public Property CBIncludeGifs() As Boolean - Get - Return CType(Me("CBIncludeGifs"),Boolean) - End Get - Set - Me("CBIncludeGifs") = value - End Set - End Property - - _ - Public Property CBHimHer() As Boolean - Get - Return CType(Me("CBHimHer"),Boolean) - End Get - Set - Me("CBHimHer") = value - End Set - End Property - - _ - Public Property DomDeleteMedia() As Boolean - Get - Return CType(Me("DomDeleteMedia"),Boolean) - End Get - Set - Me("DomDeleteMedia") = value - End Set - End Property - - _ - Public Property TeaseLengthMin() As Integer - Get - Return CType(Me("TeaseLengthMin"),Integer) - End Get - Set - Me("TeaseLengthMin") = value - End Set - End Property - - _ - Public Property TeaseLengthMax() As Integer - Get - Return CType(Me("TeaseLengthMax"),Integer) - End Get - Set - Me("TeaseLengthMax") = value - End Set - End Property - - _ - Public Property TauntCycleMin() As Integer - Get - Return CType(Me("TauntCycleMin"),Integer) - End Get - Set - Me("TauntCycleMin") = value - End Set - End Property - - _ - Public Property TauntCycleMax() As Integer - Get - Return CType(Me("TauntCycleMax"),Integer) - End Get - Set - Me("TauntCycleMax") = value - End Set - End Property - - _ - Public Property RedLightMin() As Integer - Get - Return CType(Me("RedLightMin"),Integer) - End Get - Set - Me("RedLightMin") = value - End Set - End Property - - _ - Public Property RedLightMax() As Integer - Get - Return CType(Me("RedLightMax"),Integer) - End Get - Set - Me("RedLightMax") = value - End Set - End Property - - _ - Public Property GreenLightMin() As Integer - Get - Return CType(Me("GreenLightMin"),Integer) - End Get - Set - Me("GreenLightMin") = value - End Set - End Property - - _ - Public Property GreenLightMax() As Integer - Get - Return CType(Me("GreenLightMax"),Integer) - End Get - Set - Me("GreenLightMax") = value - End Set - End Property - - _ - Public Property SlideshowMode() As String - Get - Return CType(Me("SlideshowMode"),String) - End Get - Set - Me("SlideshowMode") = value - End Set - End Property - - _ - Public Property OrgasmLockDate() As Date - Get - Return CType(Me("OrgasmLockDate"),Date) - End Get - Set - Me("OrgasmLockDate") = value - End Set - End Property - - _ - Public Property AuditStartup() As Boolean - Get - Return CType(Me("AuditStartup"),Boolean) - End Get - Set - Me("AuditStartup") = value - End Set - End Property - - _ - Public Property WishlistDate() As Date - Get - Return CType(Me("WishlistDate"),Date) - End Get - Set - Me("WishlistDate") = value - End Set - End Property - - _ - Public Property LastOrgasm() As Date - Get - Return CType(Me("LastOrgasm"),Date) - End Get - Set - Me("LastOrgasm") = value - End Set - End Property - - _ - Public Property LastRuined() As Date - Get - Return CType(Me("LastRuined"),Date) - End Get - Set - Me("LastRuined") = value - End Set - End Property - - _ - Public Property DateStamp() As Date - Get - Return CType(Me("DateStamp"),Date) - End Get - Set - Me("DateStamp") = value - End Set - End Property - - _ - Public Property TokenTasks() As Date - Get - Return CType(Me("TokenTasks"),Date) - End Get - Set - Me("TokenTasks") = value - End Set - End Property - - _ - Public Property WebToyStart() As String - Get - Return CType(Me("WebToyStart"),String) - End Get - Set - Me("WebToyStart") = value - End Set - End Property - - _ - Public Property WebToyStop() As String - Get - Return CType(Me("WebToyStop"),String) - End Get - Set - Me("WebToyStop") = value - End Set - End Property - - _ - Public Property CockToClit() As Boolean - Get - Return CType(Me("CockToClit"),Boolean) - End Get - Set - Me("CockToClit") = value - End Set - End Property - - _ - Public Property BallsToPussy() As Boolean - Get - Return CType(Me("BallsToPussy"),Boolean) - End Get - Set - Me("BallsToPussy") = value - End Set - End Property - - _ - Public Property Contact1ImageDir() As String - Get - Return CType(Me("Contact1ImageDir"),String) - End Get - Set - Me("Contact1ImageDir") = value - End Set - End Property - - _ - Public Property Contact2ImageDir() As String - Get - Return CType(Me("Contact2ImageDir"),String) - End Get - Set - Me("Contact2ImageDir") = value - End Set - End Property - - _ - Public Property Contact3ImageDir() As String - Get - Return CType(Me("Contact3ImageDir"),String) - End Get - Set - Me("Contact3ImageDir") = value - End Set - End Property - - _ - Public Property CBGlitterFeedOff() As Boolean - Get - Return CType(Me("CBGlitterFeedOff"),Boolean) - End Get - Set - Me("CBGlitterFeedOff") = value - End Set - End Property - - _ - Public Property CBGlitterFeedScripts() As Boolean - Get - Return CType(Me("CBGlitterFeedScripts"),Boolean) - End Get - Set - Me("CBGlitterFeedScripts") = value - End Set - End Property - - _ - Public Property TeaseAILanguage() As String - Get - Return CType(Me("TeaseAILanguage"),String) - End Get - Set - Me("TeaseAILanguage") = value - End Set - End Property - - _ - Public Property Shortcuts() As Boolean - Get - Return CType(Me("Shortcuts"),Boolean) - End Get - Set - Me("Shortcuts") = value - End Set - End Property - - _ - Public Property ShowShortcuts() As Boolean - Get - Return CType(Me("ShowShortcuts"),Boolean) - End Get - Set - Me("ShowShortcuts") = value - End Set - End Property - - _ - Public Property ShortYes() As String - Get - Return CType(Me("ShortYes"),String) - End Get - Set - Me("ShortYes") = value - End Set - End Property - - _ - Public Property ShortNo() As String - Get - Return CType(Me("ShortNo"),String) - End Get - Set - Me("ShortNo") = value - End Set - End Property - - _ - Public Property ShortEdge() As String - Get - Return CType(Me("ShortEdge"),String) - End Get - Set - Me("ShortEdge") = value - End Set - End Property - - _ - Public Property ShortSpeedUp() As String - Get - Return CType(Me("ShortSpeedUp"),String) - End Get - Set - Me("ShortSpeedUp") = value - End Set - End Property - - _ - Public Property ShortSlowDown() As String - Get - Return CType(Me("ShortSlowDown"),String) - End Get - Set - Me("ShortSlowDown") = value - End Set - End Property - - _ - Public Property ShortStop() As String - Get - Return CType(Me("ShortStop"),String) - End Get - Set - Me("ShortStop") = value - End Set - End Property - - _ - Public Property ShortStroke() As String - Get - Return CType(Me("ShortStroke"),String) - End Get - Set - Me("ShortStroke") = value - End Set - End Property - - _ - Public Property ShortCum() As String - Get - Return CType(Me("ShortCum"),String) - End Get - Set - Me("ShortCum") = value - End Set - End Property - - _ - Public Property ShortGreet() As String - Get - Return CType(Me("ShortGreet"),String) - End Get - Set - Me("ShortGreet") = value - End Set - End Property - - _ - Public Property ShortSafeword() As String - Get - Return CType(Me("ShortSafeword"),String) - End Get - Set - Me("ShortSafeword") = value - End Set - End Property - - _ - Public Property Patch45Tokens() As Boolean - Get - Return CType(Me("Patch45Tokens"),Boolean) - End Get - Set - Me("Patch45Tokens") = value - End Set - End Property - - _ - Public Property WindowHeight() As Integer - Get - Return CType(Me("WindowHeight"),Integer) - End Get - Set - Me("WindowHeight") = value - End Set - End Property - - _ - Public Property WindowWidth() As Integer - Get - Return CType(Me("WindowWidth"),Integer) - End Get - Set - Me("WindowWidth") = value - End Set - End Property - - _ - Public Property UIColor() As String - Get - Return CType(Me("UIColor"),String) - End Get - Set - Me("UIColor") = value - End Set - End Property - - _ - Public Property TC2Agreed() As Boolean - Get - Return CType(Me("TC2Agreed"),Boolean) - End Get - Set - Me("TC2Agreed") = value - End Set - End Property - - _ - Public Property LastDomTagURL() As String - Get - Return CType(Me("LastDomTagURL"),String) - End Get - Set - Me("LastDomTagURL") = value - End Set - End Property - - _ - Public Property Sys_SubLeftEarly() As Integer - Get - Return CType(Me("Sys_SubLeftEarly"),Integer) - End Get - Set - Me("Sys_SubLeftEarly") = value - End Set - End Property - - _ - Public Property Sys_SubLeftEarlyTotal() As Integer - Get - Return CType(Me("Sys_SubLeftEarlyTotal"),Integer) - End Get - Set - Me("Sys_SubLeftEarlyTotal") = value - End Set - End Property - - _ - Public Property AIBoxDir() As Boolean - Get - Return CType(Me("AIBoxDir"),Boolean) - End Get - Set - Me("AIBoxDir") = value - End Set - End Property - - _ - Public Property AIBoxOpen() As Boolean - Get - Return CType(Me("AIBoxOpen"),Boolean) - End Get - Set - Me("AIBoxOpen") = value - End Set - End Property - - _ - Public Property BackgroundColor() As Global.System.Drawing.Color - Get - Return CType(Me("BackgroundColor"),Global.System.Drawing.Color) - End Get - Set - Me("BackgroundColor") = value - End Set - End Property - - _ - Public Property BackgroundImage() As String - Get - Return CType(Me("BackgroundImage"),String) - End Get - Set - Me("BackgroundImage") = value - End Set - End Property - - _ - Public Property ButtonColor() As Global.System.Drawing.Color - Get - Return CType(Me("ButtonColor"),Global.System.Drawing.Color) - End Get - Set - Me("ButtonColor") = value - End Set - End Property - - _ - Public Property TextColor() As Global.System.Drawing.Color - Get - Return CType(Me("TextColor"),Global.System.Drawing.Color) - End Get - Set - Me("TextColor") = value - End Set - End Property - - _ - Public Property ChatWindowColor() As Global.System.Drawing.Color - Get - Return CType(Me("ChatWindowColor"),Global.System.Drawing.Color) - End Get - Set - Me("ChatWindowColor") = value - End Set - End Property - - _ - Public Property ChatTextColor() As Global.System.Drawing.Color - Get - Return CType(Me("ChatTextColor"),Global.System.Drawing.Color) - End Get - Set - Me("ChatTextColor") = value - End Set - End Property - - _ - Public Property BackgroundStretch() As Boolean - Get - Return CType(Me("BackgroundStretch"),Boolean) - End Get - Set - Me("BackgroundStretch") = value - End Set - End Property - - _ - Public Property CBInputIcon() As Boolean - Get - Return CType(Me("CBInputIcon"),Boolean) - End Get - Set - Me("CBInputIcon") = value - End Set - End Property - - _ - Public Property DateTextColor() As Global.System.Drawing.Color - Get - Return CType(Me("DateTextColor"),Global.System.Drawing.Color) - End Get - Set - Me("DateTextColor") = value - End Set - End Property - - _ - Public Property DateBackColor() As Global.System.Drawing.Color - Get - Return CType(Me("DateBackColor"),Global.System.Drawing.Color) - End Get - Set - Me("DateBackColor") = value - End Set - End Property - - _ - Public Property CBDateTransparent() As Boolean - Get - Return CType(Me("CBDateTransparent"),Boolean) - End Get - Set - Me("CBDateTransparent") = value - End Set - End Property - - _ - Public Property SplitterPosition() As Integer - Get - Return CType(Me("SplitterPosition"),Integer) - End Get - Set - Me("SplitterPosition") = value - End Set - End Property - - _ - Public Property MirrorWindows() As Boolean - Get - Return CType(Me("MirrorWindows"),Boolean) - End Get - Set - Me("MirrorWindows") = value - End Set - End Property - - _ - Public Property WakeUp() As Date - Get - Return CType(Me("WakeUp"),Date) - End Get - Set - Me("WakeUp") = value - End Set - End Property - - _ - Public Property HoldTheEdgeMin() As Integer - Get - Return CType(Me("HoldTheEdgeMin"),Integer) - End Get - Set - Me("HoldTheEdgeMin") = value - End Set - End Property - - _ - Public Property HoldTheEdgeMinAmount() As String - Get - Return CType(Me("HoldTheEdgeMinAmount"),String) - End Get - Set - Me("HoldTheEdgeMinAmount") = value - End Set - End Property - - _ - Public Property HoldTheEdgeMaxAmount() As String - Get - Return CType(Me("HoldTheEdgeMaxAmount"),String) - End Get - Set - Me("HoldTheEdgeMaxAmount") = value - End Set - End Property - - _ - Public Property MaxPace() As Integer - Get - Return CType(Me("MaxPace"),Integer) - End Get - Set - Me("MaxPace") = value - End Set - End Property - - _ - Public Property MinPace() As Integer - Get - Return CType(Me("MinPace"),Integer) - End Get - Set - Me("MinPace") = value - End Set - End Property - - _ - Public Property TypoChance() As Integer - Get - Return CType(Me("TypoChance"),Integer) - End Get - Set - Me("TypoChance") = value - End Set - End Property - - _ - Public Property TBEmote() As String - Get - Return CType(Me("TBEmote"),String) - End Get - Set - Me("TBEmote") = value - End Set - End Property - - _ - Public Property TBEmoteEnd() As String - Get - Return CType(Me("TBEmoteEnd"),String) - End Get - Set - Me("TBEmoteEnd") = value - End Set - End Property - - _ - Public Property VVolume() As Integer - Get - Return CType(Me("VVolume"),Integer) - End Get - Set - Me("VVolume") = value - End Set - End Property - - _ - Public Property VRate() As Integer - Get - Return CType(Me("VRate"),Integer) - End Get - Set - Me("VRate") = value - End Set - End Property - - _ - Public Property DomSadistic() As Boolean - Get - Return CType(Me("DomSadistic"),Boolean) - End Get - Set - Me("DomSadistic") = value - End Set - End Property - - _ - Public Property DomDegrading() As Boolean - Get - Return CType(Me("DomDegrading"),Boolean) - End Get - Set - Me("DomDegrading") = value - End Set - End Property - - _ - Public Property MetroOn() As Boolean - Get - Return CType(Me("MetroOn"),Boolean) - End Get - Set - Me("MetroOn") = value - End Set - End Property - - _ - Public Property LS1() As String - Get - Return CType(Me("LS1"),String) - End Get - Set - Me("LS1") = value - End Set - End Property - - _ - Public Property LS2() As String - Get - Return CType(Me("LS2"),String) - End Get - Set - Me("LS2") = value - End Set - End Property - - _ - Public Property LS3() As String - Get - Return CType(Me("LS3"),String) - End Get - Set - Me("LS3") = value - End Set - End Property - - _ - Public Property LS4() As String - Get - Return CType(Me("LS4"),String) - End Get - Set - Me("LS4") = value - End Set - End Property - - _ - Public Property LS5() As String - Get - Return CType(Me("LS5"),String) - End Get - Set - Me("LS5") = value - End Set - End Property - - _ - Public Property LS6() As String - Get - Return CType(Me("LS6"),String) - End Get - Set - Me("LS6") = value - End Set - End Property - - _ - Public Property LS7() As String - Get - Return CType(Me("LS7"),String) - End Get - Set - Me("LS7") = value - End Set - End Property - - _ - Public Property LS8() As String - Get - Return CType(Me("LS8"),String) - End Get - Set - Me("LS8") = value - End Set - End Property - - _ - Public Property LS9() As String - Get - Return CType(Me("LS9"),String) - End Get - Set - Me("LS9") = value - End Set - End Property - - _ - Public Property LS10() As String - Get - Return CType(Me("LS10"),String) - End Get - Set - Me("LS10") = value - End Set - End Property - - _ - Public Property LongHoldMin() As Integer - Get - Return CType(Me("LongHoldMin"),Integer) - End Get - Set - Me("LongHoldMin") = value - End Set - End Property - - _ - Public Property LongHoldMax() As String - Get - Return CType(Me("LongHoldMax"),String) - End Get - Set - Me("LongHoldMax") = value - End Set - End Property - - _ - Public Property ExtremeHoldMin() As String - Get - Return CType(Me("ExtremeHoldMin"),String) - End Get - Set - Me("ExtremeHoldMin") = value - End Set - End Property - - _ - Public Property ExtremeHoldMax() As String - Get - Return CType(Me("ExtremeHoldMax"),String) - End Get - Set - Me("ExtremeHoldMax") = value - End Set - End Property - - _ - Public Property CBWebtease() As Boolean - Get - Return CType(Me("CBWebtease"),Boolean) - End Get - Set - Me("CBWebtease") = value - End Set - End Property - - _ - Public Property SplitterDistance() As Integer - Get - Return CType(Me("SplitterDistance"),Integer) - End Get - Set - Me("SplitterDistance") = value - End Set - End Property - - _ - Public Property SideChat() As Boolean - Get - Return CType(Me("SideChat"),Boolean) - End Get - Set - Me("SideChat") = value - End Set - End Property - - _ - Public Property LazySubAV() As Boolean - Get - Return CType(Me("LazySubAV"),Boolean) - End Get - Set - Me("LazySubAV") = value - End Set - End Property - - _ - Public Property MuteMedia() As Boolean - Get - Return CType(Me("MuteMedia"),Boolean) - End Get - Set - Me("MuteMedia") = value - End Set - End Property - - _ - Public Property OfflineMode() As Boolean - Get - Return CType(Me("OfflineMode"),Boolean) - End Get - Set - Me("OfflineMode") = value - End Set - End Property - - _ - Public Property CBNewSlideshow() As Boolean - Get - Return CType(Me("CBNewSlideshow"),Boolean) - End Get - Set - Me("CBNewSlideshow") = value - End Set - End Property - - _ - Public Property TauntEdging() As Integer - Get - Return CType(Me("TauntEdging"),Integer) - End Get - Set - Me("TauntEdging") = value - End Set - End Property - - _ - Public Property UrlFileHardcore() As String - Get - Return CType(Me("UrlFileHardcore"),String) - End Get - Set - Me("UrlFileHardcore") = value - End Set - End Property - - _ - Public Property UrlFileSoftcore() As String - Get - Return CType(Me("UrlFileSoftcore"),String) - End Get - Set - Me("UrlFileSoftcore") = value - End Set - End Property - - _ - Public Property UrlFileLesbian() As String - Get - Return CType(Me("UrlFileLesbian"),String) - End Get - Set - Me("UrlFileLesbian") = value - End Set - End Property - - _ - Public Property UrlFileBlowjob() As String - Get - Return CType(Me("UrlFileBlowjob"),String) - End Get - Set - Me("UrlFileBlowjob") = value - End Set - End Property - - _ - Public Property UrlFileFemdom() As String - Get - Return CType(Me("UrlFileFemdom"),String) - End Get - Set - Me("UrlFileFemdom") = value - End Set - End Property - - _ - Public Property UrlFileLezdom() As String - Get - Return CType(Me("UrlFileLezdom"),String) - End Get - Set - Me("UrlFileLezdom") = value - End Set - End Property - - _ - Public Property UrlFileHentai() As String - Get - Return CType(Me("UrlFileHentai"),String) - End Get - Set - Me("UrlFileHentai") = value - End Set - End Property - - _ - Public Property UrlFileGay() As String - Get - Return CType(Me("UrlFileGay"),String) - End Get - Set - Me("UrlFileGay") = value - End Set - End Property - - _ - Public Property UrlFileMaledom() As String - Get - Return CType(Me("UrlFileMaledom"),String) - End Get - Set - Me("UrlFileMaledom") = value - End Set - End Property - - _ - Public Property UrlFileCaptions() As String - Get - Return CType(Me("UrlFileCaptions"),String) - End Get - Set - Me("UrlFileCaptions") = value - End Set - End Property - - _ - Public Property UrlFileGeneral() As String - Get - Return CType(Me("UrlFileGeneral"),String) - End Get - Set - Me("UrlFileGeneral") = value - End Set - End Property - - _ - Public Property UrlFileHardcoreEnabled() As Boolean - Get - Return CType(Me("UrlFileHardcoreEnabled"),Boolean) - End Get - Set - Me("UrlFileHardcoreEnabled") = value - End Set - End Property - - _ - Public Property UrlFileSoftcoreEnabled() As Boolean - Get - Return CType(Me("UrlFileSoftcoreEnabled"),Boolean) - End Get - Set - Me("UrlFileSoftcoreEnabled") = value - End Set - End Property - - _ - Public Property UrlFileLesbianEnabled() As Boolean - Get - Return CType(Me("UrlFileLesbianEnabled"),Boolean) - End Get - Set - Me("UrlFileLesbianEnabled") = value - End Set - End Property - - _ - Public Property UrlFileBlowjobEnabled() As Boolean - Get - Return CType(Me("UrlFileBlowjobEnabled"),Boolean) - End Get - Set - Me("UrlFileBlowjobEnabled") = value - End Set - End Property - - _ - Public Property UrlFileFemdomEnabled() As Boolean - Get - Return CType(Me("UrlFileFemdomEnabled"),Boolean) - End Get - Set - Me("UrlFileFemdomEnabled") = value - End Set - End Property - - _ - Public Property UrlFileLezdomEnabled() As Boolean - Get - Return CType(Me("UrlFileLezdomEnabled"),Boolean) - End Get - Set - Me("UrlFileLezdomEnabled") = value - End Set - End Property - - _ - Public Property UrlFileHentaiEnabled() As Boolean - Get - Return CType(Me("UrlFileHentaiEnabled"),Boolean) - End Get - Set - Me("UrlFileHentaiEnabled") = value - End Set - End Property - - _ - Public Property UrlFileGayEnabled() As Boolean - Get - Return CType(Me("UrlFileGayEnabled"),Boolean) - End Get - Set - Me("UrlFileGayEnabled") = value - End Set - End Property - - _ - Public Property UrlFileMaledomEnabled() As Boolean - Get - Return CType(Me("UrlFileMaledomEnabled"),Boolean) - End Get - Set - Me("UrlFileMaledomEnabled") = value - End Set - End Property - - _ - Public Property UrlFileCaptionsEnabled() As Boolean - Get - Return CType(Me("UrlFileCaptionsEnabled"),Boolean) - End Get - Set - Me("UrlFileCaptionsEnabled") = value - End Set - End Property - - _ - Public Property UrlFileGeneralEnabled() As Boolean - Get - Return CType(Me("UrlFileGeneralEnabled"),Boolean) - End Get - Set - Me("UrlFileGeneralEnabled") = value - End Set - End Property - - _ - Public Property CBIBoobs() As Boolean - Get - Return CType(Me("CBIBoobs"),Boolean) - End Get - Set - Me("CBIBoobs") = value - End Set - End Property - - _ - Public Property CBIButts() As Boolean - Get - Return CType(Me("CBIButts"),Boolean) - End Get - Set - Me("CBIButts") = value - End Set - End Property - - _ - Public Property UrlFileBoobsEnabled() As Boolean - Get - Return CType(Me("UrlFileBoobsEnabled"),Boolean) - End Get - Set - Me("UrlFileBoobsEnabled") = value - End Set - End Property - - _ - Public Property UrlFileButtEnabled() As Boolean - Get - Return CType(Me("UrlFileButtEnabled"),Boolean) - End Get - Set - Me("UrlFileButtEnabled") = value - End Set - End Property - - _ - Public Property CBURLPreview() As Boolean - Get - Return CType(Me("CBURLPreview"),Boolean) - End Get - Set - Me("CBURLPreview") = value - End Set - End Property - - _ - Public Property TaskStrokesMin() As Decimal - Get - Return CType(Me("TaskStrokesMin"),Decimal) - End Get - Set - Me("TaskStrokesMin") = value - End Set - End Property - - _ - Public Property TaskStrokesMax() As Decimal - Get - Return CType(Me("TaskStrokesMax"),Decimal) - End Get - Set - Me("TaskStrokesMax") = value - End Set - End Property - - _ - Public Property TaskStrokingTimeMin() As Decimal - Get - Return CType(Me("TaskStrokingTimeMin"),Decimal) - End Get - Set - Me("TaskStrokingTimeMin") = value - End Set - End Property - - _ - Public Property TaskStrokingTimeMax() As Decimal - Get - Return CType(Me("TaskStrokingTimeMax"),Decimal) - End Get - Set - Me("TaskStrokingTimeMax") = value - End Set - End Property - - _ - Public Property TaskEdgesMin() As Decimal - Get - Return CType(Me("TaskEdgesMin"),Decimal) - End Get - Set - Me("TaskEdgesMin") = value - End Set - End Property - - _ - Public Property TaskEdgesMax() As Decimal - Get - Return CType(Me("TaskEdgesMax"),Decimal) - End Get - Set - Me("TaskEdgesMax") = value - End Set - End Property - - _ - Public Property TaskEdgeHoldTimeMin() As Decimal - Get - Return CType(Me("TaskEdgeHoldTimeMin"),Decimal) - End Get - Set - Me("TaskEdgeHoldTimeMin") = value - End Set - End Property - - _ - Public Property TaskEdgeHoldTimeMax() As Decimal - Get - Return CType(Me("TaskEdgeHoldTimeMax"),Decimal) - End Get - Set - Me("TaskEdgeHoldTimeMax") = value - End Set - End Property - - _ - Public Property TaskCBTTimeMin() As Decimal - Get - Return CType(Me("TaskCBTTimeMin"),Decimal) - End Get - Set - Me("TaskCBTTimeMin") = value - End Set - End Property - - _ - Public Property TaskCBTTimeMax() As Decimal - Get - Return CType(Me("TaskCBTTimeMax"),Decimal) - End Get - Set - Me("TaskCBTTimeMax") = value - End Set - End Property - - _ - Public Property TasksMin() As String - Get - Return CType(Me("TasksMin"),String) - End Get - Set - Me("TasksMin") = value - End Set - End Property - - _ - Public Property TasksMax() As String - Get - Return CType(Me("TasksMax"),String) - End Get - Set - Me("TasksMax") = value - End Set - End Property - - _ - Public Property WritingProgress() As Boolean - Get - Return CType(Me("WritingProgress"),Boolean) - End Get - Set - Me("WritingProgress") = value - End Set - End Property - - _ - Public Property TimedWriting() As Boolean - Get - Return CType(Me("TimedWriting"),Boolean) - End Get - Set - Me("TimedWriting") = value - End Set - End Property - - _ - Public Property TypeSpeed() As Integer - Get - Return CType(Me("TypeSpeed"),Integer) - End Get - Set - Me("TypeSpeed") = value - End Set - End Property - - "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"")> _ - Public Property RecentSlideshows() As Global.System.Collections.Specialized.StringCollection - Get - Return CType(Me("RecentSlideshows"),Global.System.Collections.Specialized.StringCollection) - End Get - Set - Me("RecentSlideshows") = value - End Set - End Property - - _ - Public Property LockOrgasmChances() As Boolean - Get - Return CType(Me("LockOrgasmChances"),Boolean) - End Get - Set - Me("LockOrgasmChances") = value - End Set - End Property - - _ - Public Property MaximizeMediaWindow() As Boolean - Get - Return CType(Me("MaximizeMediaWindow"),Boolean) - End Get - Set - Me("MaximizeMediaWindow") = value - End Set - End Property - - _ - Public Property DisplaySidePanel() As Boolean - Get - Return CType(Me("DisplaySidePanel"),Boolean) - End Get - Set - Me("DisplaySidePanel") = value - End Set - End Property - End Class + Return defaultInstance + End Get + End Property + + + Public Property VideoHardcore() As String + Get + Return CType(Me("VideoHardcore"), String) + End Get + Set + Me("VideoHardcore") = value + End Set + End Property + + + Public Property VideoSoftcore() As String + Get + Return CType(Me("VideoSoftcore"), String) + End Get + Set + Me("VideoSoftcore") = value + End Set + End Property + + + Public Property VideoLesbian() As String + Get + Return CType(Me("VideoLesbian"), String) + End Get + Set + Me("VideoLesbian") = value + End Set + End Property + + + Public Property VideoBlowjob() As String + Get + Return CType(Me("VideoBlowjob"), String) + End Get + Set + Me("VideoBlowjob") = value + End Set + End Property + + + Public Property VideoFemdom() As String + Get + Return CType(Me("VideoFemdom"), String) + End Get + Set + Me("VideoFemdom") = value + End Set + End Property + + + Public Property VideoFemsub() As String + Get + Return CType(Me("VideoFemsub"), String) + End Get + Set + Me("VideoFemsub") = value + End Set + End Property + + + Public Property VideoJOI() As String + Get + Return CType(Me("VideoJOI"), String) + End Get + Set + Me("VideoJOI") = value + End Set + End Property + + + Public Property VideoCH() As String + Get + Return CType(Me("VideoCH"), String) + End Get + Set + Me("VideoCH") = value + End Set + End Property + + + Public Property VideoGeneral() As String + Get + Return CType(Me("VideoGeneral"), String) + End Get + Set + Me("VideoGeneral") = value + End Set + End Property + + + Public Property CBHardcore() As Boolean + Get + Return CType(Me("CBHardcore"), Boolean) + End Get + Set + Me("CBHardcore") = value + End Set + End Property + + + Public Property CBSoftcore() As Boolean + Get + Return CType(Me("CBSoftcore"), Boolean) + End Get + Set + Me("CBSoftcore") = value + End Set + End Property + + + Public Property CBLesbian() As Boolean + Get + Return CType(Me("CBLesbian"), Boolean) + End Get + Set + Me("CBLesbian") = value + End Set + End Property + + + Public Property CBBlowjob() As Boolean + Get + Return CType(Me("CBBlowjob"), Boolean) + End Get + Set + Me("CBBlowjob") = value + End Set + End Property + + + Public Property CBFemdom() As Boolean + Get + Return CType(Me("CBFemdom"), Boolean) + End Get + Set + Me("CBFemdom") = value + End Set + End Property + + + Public Property CBFemsub() As Boolean + Get + Return CType(Me("CBFemsub"), Boolean) + End Get + Set + Me("CBFemsub") = value + End Set + End Property + + + Public Property CBJOI() As Boolean + Get + Return CType(Me("CBJOI"), Boolean) + End Get + Set + Me("CBJOI") = value + End Set + End Property + + + Public Property CBCH() As Boolean + Get + Return CType(Me("CBCH"), Boolean) + End Get + Set + Me("CBCH") = value + End Set + End Property + + + Public Property CBGeneral() As Boolean + Get + Return CType(Me("CBGeneral"), Boolean) + End Get + Set + Me("CBGeneral") = value + End Set + End Property + + + Public Property DomAvatarSave() As String + Get + Return CType(Me("DomAvatarSave"), String) + End Get + Set + Me("DomAvatarSave") = value + End Set + End Property + + + Public Property SubAvatarSave() As String + Get + Return CType(Me("SubAvatarSave"), String) + End Get + Set + Me("SubAvatarSave") = value + End Set + End Property + + + Public Property NBCensorShowMin() As Decimal + Get + Return CType(Me("NBCensorShowMin"), Decimal) + End Get + Set + Me("NBCensorShowMin") = value + End Set + End Property + + + Public Property NBCensorShowMax() As Decimal + Get + Return CType(Me("NBCensorShowMax"), Decimal) + End Get + Set + Me("NBCensorShowMax") = value + End Set + End Property + + + Public Property NBCensorHideMin() As Decimal + Get + Return CType(Me("NBCensorHideMin"), Decimal) + End Get + Set + Me("NBCensorHideMin") = value + End Set + End Property + + + Public Property NBCensorHideMax() As Decimal + Get + Return CType(Me("NBCensorHideMax"), Decimal) + End Get + Set + Me("NBCensorHideMax") = value + End Set + End Property + + + Public Property CBCensorConstant() As Boolean + Get + Return CType(Me("CBCensorConstant"), Boolean) + End Get + Set + Me("CBCensorConstant") = value + End Set + End Property + + + Public Property CBHardcoreD() As Boolean + Get + Return CType(Me("CBHardcoreD"), Boolean) + End Get + Set + Me("CBHardcoreD") = value + End Set + End Property + + + Public Property CBSoftcoreD() As Boolean + Get + Return CType(Me("CBSoftcoreD"), Boolean) + End Get + Set + Me("CBSoftcoreD") = value + End Set + End Property + + + Public Property CBLesbianD() As Boolean + Get + Return CType(Me("CBLesbianD"), Boolean) + End Get + Set + Me("CBLesbianD") = value + End Set + End Property + + + Public Property CBBlowjobD() As Boolean + Get + Return CType(Me("CBBlowjobD"), Boolean) + End Get + Set + Me("CBBlowjobD") = value + End Set + End Property + + + Public Property CBFemsubD() As Boolean + Get + Return CType(Me("CBFemsubD"), Boolean) + End Get + Set + Me("CBFemsubD") = value + End Set + End Property + + + Public Property CBJOID() As Boolean + Get + Return CType(Me("CBJOID"), Boolean) + End Get + Set + Me("CBJOID") = value + End Set + End Property + + + Public Property CBCHD() As Boolean + Get + Return CType(Me("CBCHD"), Boolean) + End Get + Set + Me("CBCHD") = value + End Set + End Property + + + Public Property CBGeneralD() As Boolean + Get + Return CType(Me("CBGeneralD"), Boolean) + End Get + Set + Me("CBGeneralD") = value + End Set + End Property + + + Public Property CBFemdomD() As Boolean + Get + Return CType(Me("CBFemdomD"), Boolean) + End Get + Set + Me("CBFemdomD") = value + End Set + End Property + + + Public Property VideoHardcoreD() As String + Get + Return CType(Me("VideoHardcoreD"), String) + End Get + Set + Me("VideoHardcoreD") = value + End Set + End Property + + + Public Property VideoSoftcoreD() As String + Get + Return CType(Me("VideoSoftcoreD"), String) + End Get + Set + Me("VideoSoftcoreD") = value + End Set + End Property + + + Public Property VideoLesbianD() As String + Get + Return CType(Me("VideoLesbianD"), String) + End Get + Set + Me("VideoLesbianD") = value + End Set + End Property + + + Public Property VideoBlowjobD() As String + Get + Return CType(Me("VideoBlowjobD"), String) + End Get + Set + Me("VideoBlowjobD") = value + End Set + End Property + + + Public Property VideoFemdomD() As String + Get + Return CType(Me("VideoFemdomD"), String) + End Get + Set + Me("VideoFemdomD") = value + End Set + End Property + + + Public Property VideoFemsubD() As String + Get + Return CType(Me("VideoFemsubD"), String) + End Get + Set + Me("VideoFemsubD") = value + End Set + End Property + + + Public Property VideoJOID() As String + Get + Return CType(Me("VideoJOID"), String) + End Get + Set + Me("VideoJOID") = value + End Set + End Property + + + Public Property VideoCHD() As String + Get + Return CType(Me("VideoCHD"), String) + End Get + Set + Me("VideoCHD") = value + End Set + End Property + + + Public Property VideoGeneralD() As String + Get + Return CType(Me("VideoGeneralD"), String) + End Get + Set + Me("VideoGeneralD") = value + End Set + End Property + + + Public Property GlitterAV() As String + Get + Return CType(Me("GlitterAV"), String) + End Get + Set + Me("GlitterAV") = value + End Set + End Property + + + Public Property GlitterAV1() As String + Get + Return CType(Me("GlitterAV1"), String) + End Get + Set + Me("GlitterAV1") = value + End Set + End Property + + + Public Property GlitterAV2() As String + Get + Return CType(Me("GlitterAV2"), String) + End Get + Set + Me("GlitterAV2") = value + End Set + End Property + + + Public Property GlitterAV3() As String + Get + Return CType(Me("GlitterAV3"), String) + End Get + Set + Me("GlitterAV3") = value + End Set + End Property + + + Public Property GlitterSN() As String + Get + Return CType(Me("GlitterSN"), String) + End Get + Set + Me("GlitterSN") = value + End Set + End Property + + + Public Property Glitter1() As String + Get + Return CType(Me("Glitter1"), String) + End Get + Set + Me("Glitter1") = value + End Set + End Property + + + Public Property Glitter2() As String + Get + Return CType(Me("Glitter2"), String) + End Get + Set + Me("Glitter2") = value + End Set + End Property + + + Public Property Glitter3() As String + Get + Return CType(Me("Glitter3"), String) + End Get + Set + Me("Glitter3") = value + End Set + End Property + + + Public Property GlitterNCDommeColor() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNCDommeColor"), Global.System.Drawing.Color) + End Get + Set + Me("GlitterNCDommeColor") = value + End Set + End Property + + + Public Property GlitterNC1Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC1Color"), Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC1Color") = value + End Set + End Property + + + Public Property GlitterNC2Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC2Color"), Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC2Color") = value + End Set + End Property + + + Public Property GlitterNC3Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC3Color"), Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC3Color") = value + End Set + End Property + + + Public Property GlitterDSlider() As Integer + Get + Return CType(Me("GlitterDSlider"), Integer) + End Get + Set + Me("GlitterDSlider") = value + End Set + End Property + + + Public Property Glitter1Slider() As Integer + Get + Return CType(Me("Glitter1Slider"), Integer) + End Get + Set + Me("Glitter1Slider") = value + End Set + End Property + + + Public Property Glitter2Slider() As Integer + Get + Return CType(Me("Glitter2Slider"), Integer) + End Get + Set + Me("Glitter2Slider") = value + End Set + End Property + + + Public Property Glitter3Slider() As Integer + Get + Return CType(Me("Glitter3Slider"), Integer) + End Get + Set + Me("Glitter3Slider") = value + End Set + End Property + + + Public Property CBGlitterFeed() As Boolean + Get + Return CType(Me("CBGlitterFeed"), Boolean) + End Get + Set + Me("CBGlitterFeed") = value + End Set + End Property + + + Public Property CBGlitter1() As Boolean + Get + Return CType(Me("CBGlitter1"), Boolean) + End Get + Set + Me("CBGlitter1") = value + End Set + End Property + + + Public Property CBGlitter2() As Boolean + Get + Return CType(Me("CBGlitter2"), Boolean) + End Get + Set + Me("CBGlitter2") = value + End Set + End Property + + + Public Property CBGlitter3() As Boolean + Get + Return CType(Me("CBGlitter3"), Boolean) + End Get + Set + Me("CBGlitter3") = value + End Set + End Property + + + Public Property CBTease() As Boolean + Get + Return CType(Me("CBTease"), Boolean) + End Get + Set + Me("CBTease") = value + End Set + End Property + + + Public Property CBEgotist() As Boolean + Get + Return CType(Me("CBEgotist"), Boolean) + End Get + Set + Me("CBEgotist") = value + End Set + End Property + + + Public Property CBTrivia() As Boolean + Get + Return CType(Me("CBTrivia"), Boolean) + End Get + Set + Me("CBTrivia") = value + End Set + End Property + + + Public Property CBDaily() As Boolean + Get + Return CType(Me("CBDaily"), Boolean) + End Get + Set + Me("CBDaily") = value + End Set + End Property + + + Public Property CBCustom1() As Boolean + Get + Return CType(Me("CBCustom1"), Boolean) + End Get + Set + Me("CBCustom1") = value + End Set + End Property + + + Public Property CBCustom2() As Boolean + Get + Return CType(Me("CBCustom2"), Boolean) + End Get + Set + Me("CBCustom2") = value + End Set + End Property + + + Public Property CB1Bratty() As Boolean + Get + Return CType(Me("CB1Bratty"), Boolean) + End Get + Set + Me("CB1Bratty") = value + End Set + End Property + + + Public Property CB1Cruel() As Boolean + Get + Return CType(Me("CB1Cruel"), Boolean) + End Get + Set + Me("CB1Cruel") = value + End Set + End Property + + + Public Property CB1Caring() As Boolean + Get + Return CType(Me("CB1Caring"), Boolean) + End Get + Set + Me("CB1Caring") = value + End Set + End Property + + + Public Property CB1Angry() As Boolean + Get + Return CType(Me("CB1Angry"), Boolean) + End Get + Set + Me("CB1Angry") = value + End Set + End Property + + + Public Property CB1Custom1() As Boolean + Get + Return CType(Me("CB1Custom1"), Boolean) + End Get + Set + Me("CB1Custom1") = value + End Set + End Property + + + Public Property CB1Custom2() As Boolean + Get + Return CType(Me("CB1Custom2"), Boolean) + End Get + Set + Me("CB1Custom2") = value + End Set + End Property + + + Public Property CB2Bratty() As Boolean + Get + Return CType(Me("CB2Bratty"), Boolean) + End Get + Set + Me("CB2Bratty") = value + End Set + End Property + + + Public Property CB2Cruel() As Boolean + Get + Return CType(Me("CB2Cruel"), Boolean) + End Get + Set + Me("CB2Cruel") = value + End Set + End Property + + + Public Property CB2Caring() As Boolean + Get + Return CType(Me("CB2Caring"), Boolean) + End Get + Set + Me("CB2Caring") = value + End Set + End Property + + + Public Property CB2Angry() As Boolean + Get + Return CType(Me("CB2Angry"), Boolean) + End Get + Set + Me("CB2Angry") = value + End Set + End Property + + + Public Property CB2Custom1() As Boolean + Get + Return CType(Me("CB2Custom1"), Boolean) + End Get + Set + Me("CB2Custom1") = value + End Set + End Property + + + Public Property CB2Custom2() As Boolean + Get + Return CType(Me("CB2Custom2"), Boolean) + End Get + Set + Me("CB2Custom2") = value + End Set + End Property + + + Public Property CB3Bratty() As Boolean + Get + Return CType(Me("CB3Bratty"), Boolean) + End Get + Set + Me("CB3Bratty") = value + End Set + End Property + + + Public Property CB3Cruel() As Boolean + Get + Return CType(Me("CB3Cruel"), Boolean) + End Get + Set + Me("CB3Cruel") = value + End Set + End Property + + + Public Property CB3Caring() As Boolean + Get + Return CType(Me("CB3Caring"), Boolean) + End Get + Set + Me("CB3Caring") = value + End Set + End Property + + + Public Property CB3Angry() As Boolean + Get + Return CType(Me("CB3Angry"), Boolean) + End Get + Set + Me("CB3Angry") = value + End Set + End Property + + + Public Property CB3Custom1() As Boolean + Get + Return CType(Me("CB3Custom1"), Boolean) + End Get + Set + Me("CB3Custom1") = value + End Set + End Property + + + Public Property CB3Custom2() As Boolean + Get + Return CType(Me("CB3Custom2"), Boolean) + End Get + Set + Me("CB3Custom2") = value + End Set + End Property + + + Public Property DomName() As String + Get + Return CType(Me("DomName"), String) + End Get + Set + Me("DomName") = value + End Set + End Property + + + Public Property SubName() As String + Get + Return CType(Me("SubName"), String) + End Get + Set + Me("SubName") = value + End Set + End Property + + + Public Property pnSetting1() As String + Get + Return CType(Me("pnSetting1"), String) + End Get + Set + Me("pnSetting1") = value + End Set + End Property + + + Public Property pnSetting2() As String + Get + Return CType(Me("pnSetting2"), String) + End Get + Set + Me("pnSetting2") = value + End Set + End Property + + + Public Property pnSetting3() As String + Get + Return CType(Me("pnSetting3"), String) + End Get + Set + Me("pnSetting3") = value + End Set + End Property + + + Public Property pnSetting4() As String + Get + Return CType(Me("pnSetting4"), String) + End Get + Set + Me("pnSetting4") = value + End Set + End Property + + + Public Property pnSetting5() As String + Get + Return CType(Me("pnSetting5"), String) + End Get + Set + Me("pnSetting5") = value + End Set + End Property + + + Public Property pnSetting6() As String + Get + Return CType(Me("pnSetting6"), String) + End Get + Set + Me("pnSetting6") = value + End Set + End Property + + + Public Property pnSetting7() As String + Get + Return CType(Me("pnSetting7"), String) + End Get + Set + Me("pnSetting7") = value + End Set + End Property + + + Public Property pnSetting8() As String + Get + Return CType(Me("pnSetting8"), String) + End Get + Set + Me("pnSetting8") = value + End Set + End Property + + + Public Property DomColor() As String + Get + Return CType(Me("DomColor"), String) + End Get + Set + Me("DomColor") = value + End Set + End Property + + + Public Property SubColor() As String + Get + Return CType(Me("SubColor"), String) + End Get + Set + Me("SubColor") = value + End Set + End Property + + + Public Property DomColorColor() As Global.System.Drawing.Color + Get + Return CType(Me("DomColorColor"), Global.System.Drawing.Color) + End Get + Set + Me("DomColorColor") = value + End Set + End Property + + + Public Property SubColorColor() As Global.System.Drawing.Color + Get + Return CType(Me("SubColorColor"), Global.System.Drawing.Color) + End Get + Set + Me("SubColorColor") = value + End Set + End Property + + + Public Property CBTimeStamps() As Boolean + Get + Return CType(Me("CBTimeStamps"), Boolean) + End Get + Set + Me("CBTimeStamps") = value + End Set + End Property + + + Public Property CBShowNames() As Boolean + Get + Return CType(Me("CBShowNames"), Boolean) + End Get + Set + Me("CBShowNames") = value + End Set + End Property + + + Public Property CBInstantType() As Boolean + Get + Return CType(Me("CBInstantType"), Boolean) + End Get + Set + Me("CBInstantType") = value + End Set + End Property + + + Public Property CBBlogImageMain() As Boolean + Get + Return CType(Me("CBBlogImageMain"), Boolean) + End Get + Set + Me("CBBlogImageMain") = value + End Set + End Property + + + Public Property CBStretchLandscape() As Boolean + Get + Return CType(Me("CBStretchLandscape"), Boolean) + End Get + Set + Me("CBStretchLandscape") = value + End Set + End Property + + + Public Property CBMetronome() As Boolean + Get + Return CType(Me("CBMetronome"), Boolean) + End Get + Set + Me("CBMetronome") = value + End Set + End Property + + + Public Property CBSettingsPause() As Boolean + Get + Return CType(Me("CBSettingsPause"), Boolean) + End Get + Set + Me("CBSettingsPause") = value + End Set + End Property + + + Public Property DomLevel() As Integer + Get + Return CType(Me("DomLevel"), Integer) + End Get + Set + Me("DomLevel") = value + End Set + End Property + + + Public Property OrgasmAllow() As String + Get + Return CType(Me("OrgasmAllow"), String) + End Get + Set + Me("OrgasmAllow") = value + End Set + End Property + + + Public Property OrgasmRuin() As String + Get + Return CType(Me("OrgasmRuin"), String) + End Get + Set + Me("OrgasmRuin") = value + End Set + End Property + + + Public Property CBAutosaveChatlog() As Boolean + Get + Return CType(Me("CBAutosaveChatlog"), Boolean) + End Get + Set + Me("CBAutosaveChatlog") = value + End Set + End Property + + + Public Property CBExitSaveChatlog() As Boolean + Get + Return CType(Me("CBExitSaveChatlog"), Boolean) + End Get + Set + Me("CBExitSaveChatlog") = value + End Set + End Property + + + Public Property AvgEdgeStroking() As Integer + Get + Return CType(Me("AvgEdgeStroking"), Integer) + End Get + Set + Me("AvgEdgeStroking") = value + End Set + End Property + + + Public Property AvgEdgeNoTouch() As Integer + Get + Return CType(Me("AvgEdgeNoTouch"), Integer) + End Get + Set + Me("AvgEdgeNoTouch") = value + End Set + End Property + + + Public Property AvgEdgeCount() As Integer + Get + Return CType(Me("AvgEdgeCount"), Integer) + End Get + Set + Me("AvgEdgeCount") = value + End Set + End Property + + + Public Property StrokeTimeTotal() As Integer + Get + Return CType(Me("StrokeTimeTotal"), Integer) + End Get + Set + Me("StrokeTimeTotal") = value + End Set + End Property + + + Public Property NBWritingTaskMin() As Integer + Get + Return CType(Me("NBWritingTaskMin"), Integer) + End Get + Set + Me("NBWritingTaskMin") = value + End Set + End Property + + + Public Property NBWritingTaskMax() As Integer + Get + Return CType(Me("NBWritingTaskMax"), Integer) + End Get + Set + Me("NBWritingTaskMax") = value + End Set + End Property + + + Public Property LBLBoobPath() As String + Get + Return CType(Me("LBLBoobPath"), String) + End Get + Set + Me("LBLBoobPath") = value + End Set + End Property + + + Public Property UrlFileBoobs() As String + Get + Return CType(Me("UrlFileBoobs"), String) + End Get + Set + Me("UrlFileBoobs") = value + End Set + End Property + + + Public Property LBLButtPath() As String + Get + Return CType(Me("LBLButtPath"), String) + End Get + Set + Me("LBLButtPath") = value + End Set + End Property + + + Public Property UrlFileButt() As String + Get + Return CType(Me("UrlFileButt"), String) + End Get + Set + Me("UrlFileButt") = value + End Set + End Property + + + Public Property CBBnBLocal() As Boolean + Get + Return CType(Me("CBBnBLocal"), Boolean) + End Get + Set + Me("CBBnBLocal") = value + End Set + End Property + + + Public Property CBBnBURL() As Boolean + Get + Return CType(Me("CBBnBURL"), Boolean) + End Get + Set + Me("CBBnBURL") = value + End Set + End Property + + + Public Property CBBoobSubDir() As Boolean + Get + Return CType(Me("CBBoobSubDir"), Boolean) + End Get + Set + Me("CBBoobSubDir") = value + End Set + End Property + + + Public Property CBButtSubDir() As Boolean + Get + Return CType(Me("CBButtSubDir"), Boolean) + End Get + Set + Me("CBButtSubDir") = value + End Set + End Property + + + Public Property CBEnableBnB() As Boolean + Get + Return CType(Me("CBEnableBnB"), Boolean) + End Get + Set + Me("CBEnableBnB") = value + End Set + End Property + + + Public Property CBSlideshowSubDir() As Boolean + Get + Return CType(Me("CBSlideshowSubDir"), Boolean) + End Get + Set + Me("CBSlideshowSubDir") = value + End Set + End Property + + + Public Property CBSlideshowRandom() As Boolean + Get + Return CType(Me("CBSlideshowRandom"), Boolean) + End Get + Set + Me("CBSlideshowRandom") = value + End Set + End Property + + + Public Property DomAge() As Integer + Get + Return CType(Me("DomAge"), Integer) + End Get + Set + Me("DomAge") = value + End Set + End Property + + + Public Property DomHair() As String + Get + Return CType(Me("DomHair"), String) + End Get + Set + Me("DomHair") = value + End Set + End Property + + + Public Property DomEyes() As String + Get + Return CType(Me("DomEyes"), String) + End Get + Set + Me("DomEyes") = value + End Set + End Property + + + Public Property DomCup() As String + Get + Return CType(Me("DomCup"), String) + End Get + Set + Me("DomCup") = value + End Set + End Property + + + Public Property DomPersonality() As String + Get + Return CType(Me("DomPersonality"), String) + End Get + Set + Me("DomPersonality") = value + End Set + End Property + + + Public Property DomCrazy() As Boolean + Get + Return CType(Me("DomCrazy"), Boolean) + End Get + Set + Me("DomCrazy") = value + End Set + End Property + + + Public Property DomVulgar() As Boolean + Get + Return CType(Me("DomVulgar"), Boolean) + End Get + Set + Me("DomVulgar") = value + End Set + End Property + + + Public Property DomSupremacist() As Boolean + Get + Return CType(Me("DomSupremacist"), Boolean) + End Get + Set + Me("DomSupremacist") = value + End Set + End Property + + + Public Property DomLowercase() As Boolean + Get + Return CType(Me("DomLowercase"), Boolean) + End Get + Set + Me("DomLowercase") = value + End Set + End Property + + + Public Property DomNoApostrophes() As Boolean + Get + Return CType(Me("DomNoApostrophes"), Boolean) + End Get + Set + Me("DomNoApostrophes") = value + End Set + End Property + + + Public Property DomNoCommas() As Boolean + Get + Return CType(Me("DomNoCommas"), Boolean) + End Get + Set + Me("DomNoCommas") = value + End Set + End Property + + + Public Property DomNoPeriods() As Boolean + Get + Return CType(Me("DomNoPeriods"), Boolean) + End Get + Set + Me("DomNoPeriods") = value + End Set + End Property + + + Public Property DomMeMyMine() As Boolean + Get + Return CType(Me("DomMeMyMine"), Boolean) + End Get + Set + Me("DomMeMyMine") = value + End Set + End Property + + + Public Property DomEmotes() As String + Get + Return CType(Me("DomEmotes"), String) + End Get + Set + Me("DomEmotes") = value + End Set + End Property + + + Public Property DomDenialEnd() As Boolean + Get + Return CType(Me("DomDenialEnd"), Boolean) + End Get + Set + Me("DomDenialEnd") = value + End Set + End Property + + + Public Property DomOrgasmEnd() As Boolean + Get + Return CType(Me("DomOrgasmEnd"), Boolean) + End Get + Set + Me("DomOrgasmEnd") = value + End Set + End Property + + + Public Property DomPOT() As Boolean + Get + Return CType(Me("DomPOT"), Boolean) + End Get + Set + Me("DomPOT") = value + End Set + End Property + + + Public Property DomLimit() As Boolean + Get + Return CType(Me("DomLimit"), Boolean) + End Get + Set + Me("DomLimit") = value + End Set + End Property + + + Public Property DomOrgasmPer() As Integer + Get + Return CType(Me("DomOrgasmPer"), Integer) + End Get + Set + Me("DomOrgasmPer") = value + End Set + End Property + + + Public Property DomPerMonth() As String + Get + Return CType(Me("DomPerMonth"), String) + End Get + Set + Me("DomPerMonth") = value + End Set + End Property + + + Public Property DomLock() As Boolean + Get + Return CType(Me("DomLock"), Boolean) + End Get + Set + Me("DomLock") = value + End Set + End Property + + + Public Property DomMoodMin() As Integer + Get + Return CType(Me("DomMoodMin"), Integer) + End Get + Set + Me("DomMoodMin") = value + End Set + End Property + + + Public Property DomMoodMax() As Integer + Get + Return CType(Me("DomMoodMax"), Integer) + End Get + Set + Me("DomMoodMax") = value + End Set + End Property + + + Public Property AvgCockMin() As Integer + Get + Return CType(Me("AvgCockMin"), Integer) + End Get + Set + Me("AvgCockMin") = value + End Set + End Property + + + Public Property AvgCockMax() As Integer + Get + Return CType(Me("AvgCockMax"), Integer) + End Get + Set + Me("AvgCockMax") = value + End Set + End Property + + + Public Property SelfAgeMin() As Integer + Get + Return CType(Me("SelfAgeMin"), Integer) + End Get + Set + Me("SelfAgeMin") = value + End Set + End Property + + + Public Property SelfAgeMax() As Integer + Get + Return CType(Me("SelfAgeMax"), Integer) + End Get + Set + Me("SelfAgeMax") = value + End Set + End Property + + + Public Property SubAgeMin() As Integer + Get + Return CType(Me("SubAgeMin"), Integer) + End Get + Set + Me("SubAgeMin") = value + End Set + End Property + + + Public Property SubAgeMax() As String + Get + Return CType(Me("SubAgeMax"), String) + End Get + Set + Me("SubAgeMax") = value + End Set + End Property + + + Public Property CBLockWindow() As Boolean + Get + Return CType(Me("CBLockWindow"), Boolean) + End Get + Set + Me("CBLockWindow") = value + End Set + End Property + + + Public Property SubGreeting() As String + Get + Return CType(Me("SubGreeting"), String) + End Get + Set + Me("SubGreeting") = value + End Set + End Property + + + Public Property SubYes() As String + Get + Return CType(Me("SubYes"), String) + End Get + Set + Me("SubYes") = value + End Set + End Property + + + Public Property SubNo() As String + Get + Return CType(Me("SubNo"), String) + End Get + Set + Me("SubNo") = value + End Set + End Property + + + Public Property SubHonorific() As String + Get + Return CType(Me("SubHonorific"), String) + End Get + Set + Me("SubHonorific") = value + End Set + End Property + + + Public Property CBUseHonor() As Boolean + Get + Return CType(Me("CBUseHonor"), Boolean) + End Get + Set + Me("CBUseHonor") = value + End Set + End Property + + + Public Property CBCapHonor() As Boolean + Get + Return CType(Me("CBCapHonor"), Boolean) + End Get + Set + Me("CBCapHonor") = value + End Set + End Property + + + Public Property SubCockSize() As Integer + Get + Return CType(Me("SubCockSize"), Integer) + End Get + Set + Me("SubCockSize") = value + End Set + End Property + + + Public Property SubAge() As Integer + Get + Return CType(Me("SubAge"), Integer) + End Get + Set + Me("SubAge") = value + End Set + End Property + + + Public Property TCAgreed() As Boolean + Get + Return CType(Me("TCAgreed"), Boolean) + End Get + Set + Me("TCAgreed") = value + End Set + End Property + + + Public Property TimerSTF() As Integer + Get + Return CType(Me("TimerSTF"), Integer) + End Get + Set + Me("TimerSTF") = value + End Set + End Property + + + Public Property SubBirthMonth() As Integer + Get + Return CType(Me("SubBirthMonth"), Integer) + End Get + Set + Me("SubBirthMonth") = value + End Set + End Property + + + Public Property SubBirthDay() As Integer + Get + Return CType(Me("SubBirthDay"), Integer) + End Get + Set + Me("SubBirthDay") = value + End Set + End Property + + + Public Property SubHair() As String + Get + Return CType(Me("SubHair"), String) + End Get + Set + Me("SubHair") = value + End Set + End Property + + + Public Property SubEyes() As String + Get + Return CType(Me("SubEyes"), String) + End Get + Set + Me("SubEyes") = value + End Set + End Property + + + Public Property DomFontSize() As Integer + Get + Return CType(Me("DomFontSize"), Integer) + End Get + Set + Me("DomFontSize") = value + End Set + End Property + + + Public Property DomFont() As String + Get + Return CType(Me("DomFont"), String) + End Get + Set + Me("DomFont") = value + End Set + End Property + + + Public Property SubFont() As String + Get + Return CType(Me("SubFont"), String) + End Get + Set + Me("SubFont") = value + End Set + End Property + + + Public Property SubFontSize() As Integer + Get + Return CType(Me("SubFontSize"), Integer) + End Get + Set + Me("SubFontSize") = value + End Set + End Property + + + Public Property DomBirthMonth() As Integer + Get + Return CType(Me("DomBirthMonth"), Integer) + End Get + Set + Me("DomBirthMonth") = value + End Set + End Property + + + Public Property DomBirthDay() As Integer + Get + Return CType(Me("DomBirthDay"), Integer) + End Get + Set + Me("DomBirthDay") = value + End Set + End Property + + + Public Property DomHairLength() As String + Get + Return CType(Me("DomHairLength"), String) + End Get + Set + Me("DomHairLength") = value + End Set + End Property + + + Public Property DomPubicHair() As String + Get + Return CType(Me("DomPubicHair"), String) + End Get + Set + Me("DomPubicHair") = value + End Set + End Property + + + Public Property DomTattoos() As Boolean + Get + Return CType(Me("DomTattoos"), Boolean) + End Get + Set + Me("DomTattoos") = value + End Set + End Property + + + Public Property DomFreckles() As Boolean + Get + Return CType(Me("DomFreckles"), Boolean) + End Get + Set + Me("DomFreckles") = value + End Set + End Property + + + Public Property CBImageInfo() As Boolean + Get + Return CType(Me("CBImageInfo"), Boolean) + End Get + Set + Me("CBImageInfo") = value + End Set + End Property + + + Public Property DomAVStretch() As Boolean + Get + Return CType(Me("DomAVStretch"), Boolean) + End Get + Set + Me("DomAVStretch") = value + End Set + End Property + + + Public Property SubAvStretch() As Boolean + Get + Return CType(Me("SubAvStretch"), Boolean) + End Get + Set + Me("SubAvStretch") = value + End Set + End Property + + + Public Property IHardcore() As String + Get + Return CType(Me("IHardcore"), String) + End Get + Set + Me("IHardcore") = value + End Set + End Property + + + Public Property ISoftcore() As String + Get + Return CType(Me("ISoftcore"), String) + End Get + Set + Me("ISoftcore") = value + End Set + End Property + + + Public Property ILesbian() As String + Get + Return CType(Me("ILesbian"), String) + End Get + Set + Me("ILesbian") = value + End Set + End Property + + + Public Property IBlowjob() As String + Get + Return CType(Me("IBlowjob"), String) + End Get + Set + Me("IBlowjob") = value + End Set + End Property + + + Public Property IFemdom() As String + Get + Return CType(Me("IFemdom"), String) + End Get + Set + Me("IFemdom") = value + End Set + End Property + + + Public Property ILezdom() As String + Get + Return CType(Me("ILezdom"), String) + End Get + Set + Me("ILezdom") = value + End Set + End Property + + + Public Property IHentai() As String + Get + Return CType(Me("IHentai"), String) + End Get + Set + Me("IHentai") = value + End Set + End Property + + + Public Property IGay() As String + Get + Return CType(Me("IGay"), String) + End Get + Set + Me("IGay") = value + End Set + End Property + + + Public Property IMaledom() As String + Get + Return CType(Me("IMaledom"), String) + End Get + Set + Me("IMaledom") = value + End Set + End Property + + + Public Property IGeneral() As String + Get + Return CType(Me("IGeneral"), String) + End Get + Set + Me("IGeneral") = value + End Set + End Property + + + Public Property IHardcoreSD() As Boolean + Get + Return CType(Me("IHardcoreSD"), Boolean) + End Get + Set + Me("IHardcoreSD") = value + End Set + End Property + + + Public Property ISoftcoreSD() As Boolean + Get + Return CType(Me("ISoftcoreSD"), Boolean) + End Get + Set + Me("ISoftcoreSD") = value + End Set + End Property + + + Public Property ILesbianSD() As Boolean + Get + Return CType(Me("ILesbianSD"), Boolean) + End Get + Set + Me("ILesbianSD") = value + End Set + End Property + + + Public Property IBlowjobSD() As Boolean + Get + Return CType(Me("IBlowjobSD"), Boolean) + End Get + Set + Me("IBlowjobSD") = value + End Set + End Property + + + Public Property IFemdomSD() As Boolean + Get + Return CType(Me("IFemdomSD"), Boolean) + End Get + Set + Me("IFemdomSD") = value + End Set + End Property + + + Public Property ILezdomSD() As Boolean + Get + Return CType(Me("ILezdomSD"), Boolean) + End Get + Set + Me("ILezdomSD") = value + End Set + End Property + + + Public Property IHentaiSD() As Boolean + Get + Return CType(Me("IHentaiSD"), Boolean) + End Get + Set + Me("IHentaiSD") = value + End Set + End Property + + + Public Property IGaySD() As Boolean + Get + Return CType(Me("IGaySD"), Boolean) + End Get + Set + Me("IGaySD") = value + End Set + End Property + + + Public Property IMaledomSD() As Boolean + Get + Return CType(Me("IMaledomSD"), Boolean) + End Get + Set + Me("IMaledomSD") = value + End Set + End Property + + + Public Property IGeneralSD() As Boolean + Get + Return CType(Me("IGeneralSD"), Boolean) + End Get + Set + Me("IGeneralSD") = value + End Set + End Property + + + Public Property ICaptionsSD() As Boolean + Get + Return CType(Me("ICaptionsSD"), Boolean) + End Get + Set + Me("ICaptionsSD") = value + End Set + End Property + + + Public Property CBIHardcore() As Boolean + Get + Return CType(Me("CBIHardcore"), Boolean) + End Get + Set + Me("CBIHardcore") = value + End Set + End Property + + + Public Property CBISoftcore() As Boolean + Get + Return CType(Me("CBISoftcore"), Boolean) + End Get + Set + Me("CBISoftcore") = value + End Set + End Property + + + Public Property CBILesbian() As Boolean + Get + Return CType(Me("CBILesbian"), Boolean) + End Get + Set + Me("CBILesbian") = value + End Set + End Property + + + Public Property CBIBlowjob() As Boolean + Get + Return CType(Me("CBIBlowjob"), Boolean) + End Get + Set + Me("CBIBlowjob") = value + End Set + End Property + + + Public Property CBIFemdom() As Boolean + Get + Return CType(Me("CBIFemdom"), Boolean) + End Get + Set + Me("CBIFemdom") = value + End Set + End Property + + + Public Property CBILezdom() As Boolean + Get + Return CType(Me("CBILezdom"), Boolean) + End Get + Set + Me("CBILezdom") = value + End Set + End Property + + + Public Property CBIHentai() As Boolean + Get + Return CType(Me("CBIHentai"), Boolean) + End Get + Set + Me("CBIHentai") = value + End Set + End Property + + + Public Property CBIGay() As Boolean + Get + Return CType(Me("CBIGay"), Boolean) + End Get + Set + Me("CBIGay") = value + End Set + End Property + + + Public Property CBIMaledom() As Boolean + Get + Return CType(Me("CBIMaledom"), Boolean) + End Get + Set + Me("CBIMaledom") = value + End Set + End Property + + + Public Property CBIGeneral() As Boolean + Get + Return CType(Me("CBIGeneral"), Boolean) + End Get + Set + Me("CBIGeneral") = value + End Set + End Property + + + Public Property CBICaptions() As Boolean + Get + Return CType(Me("CBICaptions"), Boolean) + End Get + Set + Me("CBICaptions") = value + End Set + End Property + + + Public Property ICaptions() As String + Get + Return CType(Me("ICaptions"), String) + End Get + Set + Me("ICaptions") = value + End Set + End Property + + + Public Property DomImageDir() As String + Get + Return CType(Me("DomImageDir"), String) + End Get + Set + Me("DomImageDir") = value + End Set + End Property + + + Public Property CBTCock() As Boolean + Get + Return CType(Me("CBTCock"), Boolean) + End Get + Set + Me("CBTCock") = value + End Set + End Property + + + Public Property CBTBalls() As Boolean + Get + Return CType(Me("CBTBalls"), Boolean) + End Get + Set + Me("CBTBalls") = value + End Set + End Property + + + Public Property ChastityPA() As Boolean + Get + Return CType(Me("ChastityPA"), Boolean) + End Get + Set + Me("ChastityPA") = value + End Set + End Property + + + Public Property ChastitySpikes() As Boolean + Get + Return CType(Me("ChastitySpikes"), Boolean) + End Get + Set + Me("ChastitySpikes") = value + End Set + End Property + + + Public Property SubInChastity() As Boolean + Get + Return CType(Me("SubInChastity"), Boolean) + End Get + Set + Me("SubInChastity") = value + End Set + End Property + + + Public Property LongEdge() As Integer + Get + Return CType(Me("LongEdge"), Integer) + End Get + Set + Me("LongEdge") = value + End Set + End Property + + + Public Property CBLongEdgeInterrupt() As Boolean + Get + Return CType(Me("CBLongEdgeInterrupt"), Boolean) + End Get + Set + Me("CBLongEdgeInterrupt") = value + End Set + End Property + + + Public Property HoldTheEdgeMax() As Integer + Get + Return CType(Me("HoldTheEdgeMax"), Integer) + End Get + Set + Me("HoldTheEdgeMax") = value + End Set + End Property + + + Public Property HoldEdgeTimeTotal() As Integer + Get + Return CType(Me("HoldEdgeTimeTotal"), Integer) + End Get + Set + Me("HoldEdgeTimeTotal") = value + End Set + End Property + + + Public Property CBTSlider() As Integer + Get + Return CType(Me("CBTSlider"), Integer) + End Get + Set + Me("CBTSlider") = value + End Set + End Property + + + Public Property SubCircumcised() As Boolean + Get + Return CType(Me("SubCircumcised"), Boolean) + End Get + Set + Me("SubCircumcised") = value + End Set + End Property + + + Public Property SubPierced() As Boolean + Get + Return CType(Me("SubPierced"), Boolean) + End Get + Set + Me("SubPierced") = value + End Set + End Property + + + Public Property DomEmpathy() As Integer + Get + Return CType(Me("DomEmpathy"), Integer) + End Get + Set + Me("DomEmpathy") = value + End Set + End Property + + + Public Property RangeOrgasm() As Boolean + Get + Return CType(Me("RangeOrgasm"), Boolean) + End Get + Set + Me("RangeOrgasm") = value + End Set + End Property + + + Public Property RangeRuin() As Boolean + Get + Return CType(Me("RangeRuin"), Boolean) + End Get + Set + Me("RangeRuin") = value + End Set + End Property + + + Public Property AllowOften() As Integer + Get + Return CType(Me("AllowOften"), Integer) + End Get + Set + Me("AllowOften") = value + End Set + End Property + + + Public Property AllowSometimes() As Integer + Get + Return CType(Me("AllowSometimes"), Integer) + End Get + Set + Me("AllowSometimes") = value + End Set + End Property + + + Public Property AllowRarely() As Integer + Get + Return CType(Me("AllowRarely"), Integer) + End Get + Set + Me("AllowRarely") = value + End Set + End Property + + + Public Property RuinOften() As Integer + Get + Return CType(Me("RuinOften"), Integer) + End Get + Set + Me("RuinOften") = value + End Set + End Property + + + Public Property RuinSometimes() As Integer + Get + Return CType(Me("RuinSometimes"), Integer) + End Get + Set + Me("RuinSometimes") = value + End Set + End Property + + + Public Property RuinRarely() As Integer + Get + Return CType(Me("RuinRarely"), Integer) + End Get + Set + Me("RuinRarely") = value + End Set + End Property + + + Public Property Chastity() As Boolean + Get + Return CType(Me("Chastity"), Boolean) + End Get + Set + Me("Chastity") = value + End Set + End Property + + + Public Property Safeword() As String + Get + Return CType(Me("Safeword"), String) + End Get + Set + Me("Safeword") = value + End Set + End Property + + + Public Property CaloriesConsumed() As Integer + Get + Return CType(Me("CaloriesConsumed"), Integer) + End Get + Set + Me("CaloriesConsumed") = value + End Set + End Property + + + Public Property CaloriesGoal() As Integer + Get + Return CType(Me("CaloriesGoal"), Integer) + End Get + Set + Me("CaloriesGoal") = value + End Set + End Property + + + Public Property VitalSubDisclaimer() As Boolean + Get + Return CType(Me("VitalSubDisclaimer"), Boolean) + End Get + Set + Me("VitalSubDisclaimer") = value + End Set + End Property + + + Public Property VitalSub() As Boolean + Get + Return CType(Me("VitalSub"), Boolean) + End Get + Set + Me("VitalSub") = value + End Set + End Property + + + Public Property VitalSubAssignments() As Boolean + Get + Return CType(Me("VitalSubAssignments"), Boolean) + End Get + Set + Me("VitalSubAssignments") = value + End Set + End Property + + + Public Property BP1() As String + Get + Return CType(Me("BP1"), String) + End Get + Set + Me("BP1") = value + End Set + End Property + + + Public Property BP2() As String + Get + Return CType(Me("BP2"), String) + End Get + Set + Me("BP2") = value + End Set + End Property + + + Public Property BP3() As String + Get + Return CType(Me("BP3"), String) + End Get + Set + Me("BP3") = value + End Set + End Property + + + Public Property BP4() As String + Get + Return CType(Me("BP4"), String) + End Get + Set + Me("BP4") = value + End Set + End Property + + + Public Property BP5() As String + Get + Return CType(Me("BP5"), String) + End Get + Set + Me("BP5") = value + End Set + End Property + + + Public Property BP6() As String + Get + Return CType(Me("BP6"), String) + End Get + Set + Me("BP6") = value + End Set + End Property + + + Public Property BN1() As String + Get + Return CType(Me("BN1"), String) + End Get + Set + Me("BN1") = value + End Set + End Property + + + Public Property BN2() As String + Get + Return CType(Me("BN2"), String) + End Get + Set + Me("BN2") = value + End Set + End Property + + + Public Property BN3() As String + Get + Return CType(Me("BN3"), String) + End Get + Set + Me("BN3") = value + End Set + End Property + + + Public Property BN4() As String + Get + Return CType(Me("BN4"), String) + End Get + Set + Me("BN4") = value + End Set + End Property + + + Public Property BN5() As String + Get + Return CType(Me("BN5"), String) + End Get + Set + Me("BN5") = value + End Set + End Property + + + Public Property BN6() As String + Get + Return CType(Me("BN6"), String) + End Get + Set + Me("BN6") = value + End Set + End Property + + + Public Property SP1() As String + Get + Return CType(Me("SP1"), String) + End Get + Set + Me("SP1") = value + End Set + End Property + + + Public Property SP2() As String + Get + Return CType(Me("SP2"), String) + End Get + Set + Me("SP2") = value + End Set + End Property + + + Public Property SP3() As String + Get + Return CType(Me("SP3"), String) + End Get + Set + Me("SP3") = value + End Set + End Property + + + Public Property SP4() As String + Get + Return CType(Me("SP4"), String) + End Get + Set + Me("SP4") = value + End Set + End Property + + + Public Property SP5() As String + Get + Return CType(Me("SP5"), String) + End Get + Set + Me("SP5") = value + End Set + End Property + + + Public Property SP6() As String + Get + Return CType(Me("SP6"), String) + End Get + Set + Me("SP6") = value + End Set + End Property + + + Public Property SN1() As String + Get + Return CType(Me("SN1"), String) + End Get + Set + Me("SN1") = value + End Set + End Property + + + Public Property SN2() As String + Get + Return CType(Me("SN2"), String) + End Get + Set + Me("SN2") = value + End Set + End Property + + + Public Property SN3() As String + Get + Return CType(Me("SN3"), String) + End Get + Set + Me("SN3") = value + End Set + End Property + + + Public Property SN4() As String + Get + Return CType(Me("SN4"), String) + End Get + Set + Me("SN4") = value + End Set + End Property + + + Public Property SN5() As String + Get + Return CType(Me("SN5"), String) + End Get + Set + Me("SN5") = value + End Set + End Property + + + Public Property SN6() As String + Get + Return CType(Me("SN6"), String) + End Get + Set + Me("SN6") = value + End Set + End Property + + + Public Property GP1() As String + Get + Return CType(Me("GP1"), String) + End Get + Set + Me("GP1") = value + End Set + End Property + + + Public Property GP2() As String + Get + Return CType(Me("GP2"), String) + End Get + Set + Me("GP2") = value + End Set + End Property + + + Public Property GP3() As String + Get + Return CType(Me("GP3"), String) + End Get + Set + Me("GP3") = value + End Set + End Property + + + Public Property GP4() As String + Get + Return CType(Me("GP4"), String) + End Get + Set + Me("GP4") = value + End Set + End Property + + + Public Property GP5() As String + Get + Return CType(Me("GP5"), String) + End Get + Set + Me("GP5") = value + End Set + End Property + + + Public Property GP6() As String + Get + Return CType(Me("GP6"), String) + End Get + Set + Me("GP6") = value + End Set + End Property + + + Public Property GN1() As String + Get + Return CType(Me("GN1"), String) + End Get + Set + Me("GN1") = value + End Set + End Property + + + Public Property GN2() As String + Get + Return CType(Me("GN2"), String) + End Get + Set + Me("GN2") = value + End Set + End Property + + + Public Property GN3() As String + Get + Return CType(Me("GN3"), String) + End Get + Set + Me("GN3") = value + End Set + End Property + + + Public Property GN4() As String + Get + Return CType(Me("GN4"), String) + End Get + Set + Me("GN4") = value + End Set + End Property + + + Public Property GN5() As String + Get + Return CType(Me("GN5"), String) + End Get + Set + Me("GN5") = value + End Set + End Property + + + Public Property GN6() As String + Get + Return CType(Me("GN6"), String) + End Get + Set + Me("GN6") = value + End Set + End Property + + + Public Property CardBack() As String + Get + Return CType(Me("CardBack"), String) + End Get + Set + Me("CardBack") = value + End Set + End Property + + + Public Property GoldTokens() As Integer + Get + Return CType(Me("GoldTokens"), Integer) + End Get + Set + Me("GoldTokens") = value + End Set + End Property + + + Public Property SilverTokens() As Integer + Get + Return CType(Me("SilverTokens"), Integer) + End Get + Set + Me("SilverTokens") = value + End Set + End Property + + + Public Property BronzeTokens() As Integer + Get + Return CType(Me("BronzeTokens"), Integer) + End Get + Set + Me("BronzeTokens") = value + End Set + End Property + + + Public Property B1() As Integer + Get + Return CType(Me("B1"), Integer) + End Get + Set + Me("B1") = value + End Set + End Property + + + Public Property B2() As Integer + Get + Return CType(Me("B2"), Integer) + End Get + Set + Me("B2") = value + End Set + End Property + + + Public Property B3() As Integer + Get + Return CType(Me("B3"), Integer) + End Get + Set + Me("B3") = value + End Set + End Property + + + Public Property B4() As Integer + Get + Return CType(Me("B4"), Integer) + End Get + Set + Me("B4") = value + End Set + End Property + + + Public Property B5() As Integer + Get + Return CType(Me("B5"), Integer) + End Get + Set + Me("B5") = value + End Set + End Property + + + Public Property B6() As Integer + Get + Return CType(Me("B6"), Integer) + End Get + Set + Me("B6") = value + End Set + End Property + + + Public Property S1() As Integer + Get + Return CType(Me("S1"), Integer) + End Get + Set + Me("S1") = value + End Set + End Property + + + Public Property S2() As Integer + Get + Return CType(Me("S2"), Integer) + End Get + Set + Me("S2") = value + End Set + End Property + + + Public Property S3() As Integer + Get + Return CType(Me("S3"), Integer) + End Get + Set + Me("S3") = value + End Set + End Property + + + Public Property S4() As Integer + Get + Return CType(Me("S4"), Integer) + End Get + Set + Me("S4") = value + End Set + End Property + + + Public Property S5() As Integer + Get + Return CType(Me("S5"), Integer) + End Get + Set + Me("S5") = value + End Set + End Property + + + Public Property S6() As Integer + Get + Return CType(Me("S6"), Integer) + End Get + Set + Me("S6") = value + End Set + End Property + + + Public Property G1() As Integer + Get + Return CType(Me("G1"), Integer) + End Get + Set + Me("G1") = value + End Set + End Property + + + Public Property G2() As Integer + Get + Return CType(Me("G2"), Integer) + End Get + Set + Me("G2") = value + End Set + End Property + + + Public Property G3() As Integer + Get + Return CType(Me("G3"), Integer) + End Get + Set + Me("G3") = value + End Set + End Property + + + Public Property G4() As Integer + Get + Return CType(Me("G4"), Integer) + End Get + Set + Me("G4") = value + End Set + End Property + + + Public Property G5() As Integer + Get + Return CType(Me("G5"), Integer) + End Get + Set + Me("G5") = value + End Set + End Property + + + Public Property G6() As Integer + Get + Return CType(Me("G6"), Integer) + End Get + Set + Me("G6") = value + End Set + End Property + + + Public Property ClearWishlist() As Boolean + Get + Return CType(Me("ClearWishlist"), Boolean) + End Get + Set + Me("ClearWishlist") = value + End Set + End Property + + + Public Property WishlistName() As String + Get + Return CType(Me("WishlistName"), String) + End Get + Set + Me("WishlistName") = value + End Set + End Property + + + Public Property WishlistPreview() As String + Get + Return CType(Me("WishlistPreview"), String) + End Get + Set + Me("WishlistPreview") = value + End Set + End Property + + + Public Property WishlistTokenType() As String + Get + Return CType(Me("WishlistTokenType"), String) + End Get + Set + Me("WishlistTokenType") = value + End Set + End Property + + + Public Property WishlistCost() As Integer + Get + Return CType(Me("WishlistCost"), Integer) + End Get + Set + Me("WishlistCost") = value + End Set + End Property + + + Public Property WishlistNote() As String + Get + Return CType(Me("WishlistNote"), String) + End Get + Set + Me("WishlistNote") = value + End Set + End Property + + + Public Property AvgEdgeCountRest() As Integer + Get + Return CType(Me("AvgEdgeCountRest"), Integer) + End Get + Set + Me("AvgEdgeCountRest") = value + End Set + End Property + + + Public Property PersonalityIndex() As Integer + Get + Return CType(Me("PersonalityIndex"), Integer) + End Get + Set + Me("PersonalityIndex") = value + End Set + End Property + + + Public Property LargeUI() As Boolean + Get + Return CType(Me("LargeUI"), Boolean) + End Get + Set + Me("LargeUI") = value + End Set + End Property + + + Public Property CBJackintheBox() As Boolean + Get + Return CType(Me("CBJackintheBox"), Boolean) + End Get + Set + Me("CBJackintheBox") = value + End Set + End Property + + + Public Property NextImageChance() As Integer + Get + Return CType(Me("NextImageChance"), Integer) + End Get + Set + Me("NextImageChance") = value + End Set + End Property + + + Public Property CBEdgeUseAvg() As Boolean + Get + Return CType(Me("CBEdgeUseAvg"), Boolean) + End Get + Set + Me("CBEdgeUseAvg") = value + End Set + End Property + + + Public Property CBLongEdgeTaunts() As Boolean + Get + Return CType(Me("CBLongEdgeTaunts"), Boolean) + End Get + Set + Me("CBLongEdgeTaunts") = value + End Set + End Property + + + Public Property CBLongEdgeInterrupts() As Boolean + Get + Return CType(Me("CBLongEdgeInterrupts"), Boolean) + End Get + Set + Me("CBLongEdgeInterrupts") = value + End Set + End Property + + + Public Property OrgasmsRemaining() As Integer + Get + Return CType(Me("OrgasmsRemaining"), Integer) + End Get + Set + Me("OrgasmsRemaining") = value + End Set + End Property + + + Public Property OrgasmsLocked() As Boolean + Get + Return CType(Me("OrgasmsLocked"), Boolean) + End Get + Set + Me("OrgasmsLocked") = value + End Set + End Property + + + Public Property TimerVTF() As Integer + Get + Return CType(Me("TimerVTF"), Integer) + End Get + Set + Me("TimerVTF") = value + End Set + End Property + + + Public Property CBTeaseLengthDD() As Boolean + Get + Return CType(Me("CBTeaseLengthDD"), Boolean) + End Get + Set + Me("CBTeaseLengthDD") = value + End Set + End Property + + + Public Property CBTauntCycleDD() As Boolean + Get + Return CType(Me("CBTauntCycleDD"), Boolean) + End Get + Set + Me("CBTauntCycleDD") = value + End Set + End Property + + + Public Property CBOwnChastity() As Boolean + Get + Return CType(Me("CBOwnChastity"), Boolean) + End Get + Set + Me("CBOwnChastity") = value + End Set + End Property + + + Public Property SmallUI() As Boolean + Get + Return CType(Me("SmallUI"), Boolean) + End Get + Set + Me("SmallUI") = value + End Set + End Property + + + Public Property UI768() As Boolean + Get + Return CType(Me("UI768"), Boolean) + End Get + Set + Me("UI768") = value + End Set + End Property + + + Public Property CBIncludeGifs() As Boolean + Get + Return CType(Me("CBIncludeGifs"), Boolean) + End Get + Set + Me("CBIncludeGifs") = value + End Set + End Property + + + Public Property CBHimHer() As Boolean + Get + Return CType(Me("CBHimHer"), Boolean) + End Get + Set + Me("CBHimHer") = value + End Set + End Property + + + Public Property DomDeleteMedia() As Boolean + Get + Return CType(Me("DomDeleteMedia"), Boolean) + End Get + Set + Me("DomDeleteMedia") = value + End Set + End Property + + + Public Property TeaseLengthMin() As Integer + Get + Return CType(Me("TeaseLengthMin"), Integer) + End Get + Set + Me("TeaseLengthMin") = value + End Set + End Property + + + Public Property TeaseLengthMax() As Integer + Get + Return CType(Me("TeaseLengthMax"), Integer) + End Get + Set + Me("TeaseLengthMax") = value + End Set + End Property + + + Public Property TauntCycleMin() As Integer + Get + Return CType(Me("TauntCycleMin"), Integer) + End Get + Set + Me("TauntCycleMin") = value + End Set + End Property + + + Public Property TauntCycleMax() As Integer + Get + Return CType(Me("TauntCycleMax"), Integer) + End Get + Set + Me("TauntCycleMax") = value + End Set + End Property + + + Public Property RedLightMin() As Integer + Get + Return CType(Me("RedLightMin"), Integer) + End Get + Set + Me("RedLightMin") = value + End Set + End Property + + + Public Property RedLightMax() As Integer + Get + Return CType(Me("RedLightMax"), Integer) + End Get + Set + Me("RedLightMax") = value + End Set + End Property + + + Public Property GreenLightMin() As Integer + Get + Return CType(Me("GreenLightMin"), Integer) + End Get + Set + Me("GreenLightMin") = value + End Set + End Property + + + Public Property GreenLightMax() As Integer + Get + Return CType(Me("GreenLightMax"), Integer) + End Get + Set + Me("GreenLightMax") = value + End Set + End Property + + + Public Property SlideshowMode() As String + Get + Return CType(Me("SlideshowMode"), String) + End Get + Set + Me("SlideshowMode") = value + End Set + End Property + + + Public Property OrgasmLockDate() As Date + Get + Return CType(Me("OrgasmLockDate"), Date) + End Get + Set + Me("OrgasmLockDate") = value + End Set + End Property + + + Public Property AuditStartup() As Boolean + Get + Return CType(Me("AuditStartup"), Boolean) + End Get + Set + Me("AuditStartup") = value + End Set + End Property + + + Public Property WishlistDate() As Date + Get + Return CType(Me("WishlistDate"), Date) + End Get + Set + Me("WishlistDate") = value + End Set + End Property + + + Public Property LastOrgasm() As Date + Get + Return CType(Me("LastOrgasm"), Date) + End Get + Set + Me("LastOrgasm") = value + End Set + End Property + + + Public Property LastRuined() As Date + Get + Return CType(Me("LastRuined"), Date) + End Get + Set + Me("LastRuined") = value + End Set + End Property + + + Public Property DateStamp() As Date + Get + Return CType(Me("DateStamp"), Date) + End Get + Set + Me("DateStamp") = value + End Set + End Property + + + Public Property TokenTasks() As Date + Get + Return CType(Me("TokenTasks"), Date) + End Get + Set + Me("TokenTasks") = value + End Set + End Property + + + Public Property WebToyStart() As String + Get + Return CType(Me("WebToyStart"), String) + End Get + Set + Me("WebToyStart") = value + End Set + End Property + + + Public Property WebToyStop() As String + Get + Return CType(Me("WebToyStop"), String) + End Get + Set + Me("WebToyStop") = value + End Set + End Property + + + Public Property CockToClit() As Boolean + Get + Return CType(Me("CockToClit"), Boolean) + End Get + Set + Me("CockToClit") = value + End Set + End Property + + + Public Property BallsToPussy() As Boolean + Get + Return CType(Me("BallsToPussy"), Boolean) + End Get + Set + Me("BallsToPussy") = value + End Set + End Property + + + Public Property Contact1ImageDir() As String + Get + Return CType(Me("Contact1ImageDir"), String) + End Get + Set + Me("Contact1ImageDir") = value + End Set + End Property + + + Public Property Contact2ImageDir() As String + Get + Return CType(Me("Contact2ImageDir"), String) + End Get + Set + Me("Contact2ImageDir") = value + End Set + End Property + + + Public Property Contact3ImageDir() As String + Get + Return CType(Me("Contact3ImageDir"), String) + End Get + Set + Me("Contact3ImageDir") = value + End Set + End Property + + + Public Property RandomImageDir() As String + Get + Return CType(Me("RandomImageDir"), String) + End Get + Set + Me("RandomImageDir") = Value + End Set + End Property + + Public Property CBGlitterFeedOff() As Boolean + Get + Return CType(Me("CBGlitterFeedOff"), Boolean) + End Get + Set + Me("CBGlitterFeedOff") = value + End Set + End Property + + + Public Property CBGlitterFeedScripts() As Boolean + Get + Return CType(Me("CBGlitterFeedScripts"), Boolean) + End Get + Set + Me("CBGlitterFeedScripts") = value + End Set + End Property + + + Public Property TeaseAILanguage() As String + Get + Return CType(Me("TeaseAILanguage"), String) + End Get + Set + Me("TeaseAILanguage") = value + End Set + End Property + + + Public Property Shortcuts() As Boolean + Get + Return CType(Me("Shortcuts"), Boolean) + End Get + Set + Me("Shortcuts") = value + End Set + End Property + + + Public Property ShowShortcuts() As Boolean + Get + Return CType(Me("ShowShortcuts"), Boolean) + End Get + Set + Me("ShowShortcuts") = value + End Set + End Property + + + Public Property ShortYes() As String + Get + Return CType(Me("ShortYes"), String) + End Get + Set + Me("ShortYes") = value + End Set + End Property + + + Public Property ShortNo() As String + Get + Return CType(Me("ShortNo"), String) + End Get + Set + Me("ShortNo") = value + End Set + End Property + + + Public Property ShortEdge() As String + Get + Return CType(Me("ShortEdge"), String) + End Get + Set + Me("ShortEdge") = value + End Set + End Property + + + Public Property ShortSpeedUp() As String + Get + Return CType(Me("ShortSpeedUp"), String) + End Get + Set + Me("ShortSpeedUp") = value + End Set + End Property + + + Public Property ShortSlowDown() As String + Get + Return CType(Me("ShortSlowDown"), String) + End Get + Set + Me("ShortSlowDown") = value + End Set + End Property + + + Public Property ShortStop() As String + Get + Return CType(Me("ShortStop"), String) + End Get + Set + Me("ShortStop") = value + End Set + End Property + + + Public Property ShortStroke() As String + Get + Return CType(Me("ShortStroke"), String) + End Get + Set + Me("ShortStroke") = value + End Set + End Property + + + Public Property ShortCum() As String + Get + Return CType(Me("ShortCum"), String) + End Get + Set + Me("ShortCum") = value + End Set + End Property + + + Public Property ShortGreet() As String + Get + Return CType(Me("ShortGreet"), String) + End Get + Set + Me("ShortGreet") = value + End Set + End Property + + + Public Property ShortSafeword() As String + Get + Return CType(Me("ShortSafeword"), String) + End Get + Set + Me("ShortSafeword") = value + End Set + End Property + + + Public Property Patch45Tokens() As Boolean + Get + Return CType(Me("Patch45Tokens"), Boolean) + End Get + Set + Me("Patch45Tokens") = value + End Set + End Property + + + Public Property WindowHeight() As Integer + Get + Return CType(Me("WindowHeight"), Integer) + End Get + Set + Me("WindowHeight") = value + End Set + End Property + + + Public Property WindowWidth() As Integer + Get + Return CType(Me("WindowWidth"), Integer) + End Get + Set + Me("WindowWidth") = value + End Set + End Property + + + Public Property UIColor() As String + Get + Return CType(Me("UIColor"), String) + End Get + Set + Me("UIColor") = value + End Set + End Property + + + Public Property TC2Agreed() As Boolean + Get + Return CType(Me("TC2Agreed"), Boolean) + End Get + Set + Me("TC2Agreed") = value + End Set + End Property + + + Public Property LastDomTagURL() As String + Get + Return CType(Me("LastDomTagURL"), String) + End Get + Set + Me("LastDomTagURL") = value + End Set + End Property + + + Public Property Sys_SubLeftEarly() As Integer + Get + Return CType(Me("Sys_SubLeftEarly"), Integer) + End Get + Set + Me("Sys_SubLeftEarly") = value + End Set + End Property + + + Public Property Sys_SubLeftEarlyTotal() As Integer + Get + Return CType(Me("Sys_SubLeftEarlyTotal"), Integer) + End Get + Set + Me("Sys_SubLeftEarlyTotal") = value + End Set + End Property + + + Public Property AIBoxDir() As Boolean + Get + Return CType(Me("AIBoxDir"), Boolean) + End Get + Set + Me("AIBoxDir") = value + End Set + End Property + + + Public Property AIBoxOpen() As Boolean + Get + Return CType(Me("AIBoxOpen"), Boolean) + End Get + Set + Me("AIBoxOpen") = value + End Set + End Property + + + Public Property BackgroundColor() As Global.System.Drawing.Color + Get + Return CType(Me("BackgroundColor"), Global.System.Drawing.Color) + End Get + Set + Me("BackgroundColor") = value + End Set + End Property + + + Public Property BackgroundImage() As String + Get + Return CType(Me("BackgroundImage"), String) + End Get + Set + Me("BackgroundImage") = value + End Set + End Property + + + Public Property ButtonColor() As Global.System.Drawing.Color + Get + Return CType(Me("ButtonColor"), Global.System.Drawing.Color) + End Get + Set + Me("ButtonColor") = value + End Set + End Property + + + Public Property TextColor() As Global.System.Drawing.Color + Get + Return CType(Me("TextColor"), Global.System.Drawing.Color) + End Get + Set + Me("TextColor") = value + End Set + End Property + + + Public Property ChatWindowColor() As Global.System.Drawing.Color + Get + Return CType(Me("ChatWindowColor"), Global.System.Drawing.Color) + End Get + Set + Me("ChatWindowColor") = value + End Set + End Property + + + Public Property ChatTextColor() As Global.System.Drawing.Color + Get + Return CType(Me("ChatTextColor"), Global.System.Drawing.Color) + End Get + Set + Me("ChatTextColor") = value + End Set + End Property + + + Public Property BackgroundStretch() As Boolean + Get + Return CType(Me("BackgroundStretch"), Boolean) + End Get + Set + Me("BackgroundStretch") = value + End Set + End Property + + + Public Property CBInputIcon() As Boolean + Get + Return CType(Me("CBInputIcon"), Boolean) + End Get + Set + Me("CBInputIcon") = value + End Set + End Property + + + Public Property DateTextColor() As Global.System.Drawing.Color + Get + Return CType(Me("DateTextColor"), Global.System.Drawing.Color) + End Get + Set + Me("DateTextColor") = value + End Set + End Property + + + Public Property DateBackColor() As Global.System.Drawing.Color + Get + Return CType(Me("DateBackColor"), Global.System.Drawing.Color) + End Get + Set + Me("DateBackColor") = value + End Set + End Property + + + Public Property CBDateTransparent() As Boolean + Get + Return CType(Me("CBDateTransparent"), Boolean) + End Get + Set + Me("CBDateTransparent") = value + End Set + End Property + + + Public Property SplitterPosition() As Integer + Get + Return CType(Me("SplitterPosition"), Integer) + End Get + Set + Me("SplitterPosition") = value + End Set + End Property + + + Public Property MirrorWindows() As Boolean + Get + Return CType(Me("MirrorWindows"), Boolean) + End Get + Set + Me("MirrorWindows") = value + End Set + End Property + + + Public Property WakeUp() As Date + Get + Return CType(Me("WakeUp"), Date) + End Get + Set + Me("WakeUp") = value + End Set + End Property + + + Public Property HoldTheEdgeMin() As Integer + Get + Return CType(Me("HoldTheEdgeMin"), Integer) + End Get + Set + Me("HoldTheEdgeMin") = value + End Set + End Property + + + Public Property HoldTheEdgeMinAmount() As String + Get + Return CType(Me("HoldTheEdgeMinAmount"), String) + End Get + Set + Me("HoldTheEdgeMinAmount") = value + End Set + End Property + + + Public Property HoldTheEdgeMaxAmount() As String + Get + Return CType(Me("HoldTheEdgeMaxAmount"), String) + End Get + Set + Me("HoldTheEdgeMaxAmount") = value + End Set + End Property + + + Public Property MaxPace() As Integer + Get + Return CType(Me("MaxPace"), Integer) + End Get + Set + Me("MaxPace") = value + End Set + End Property + + + Public Property MinPace() As Integer + Get + Return CType(Me("MinPace"), Integer) + End Get + Set + Me("MinPace") = value + End Set + End Property + + + Public Property TypoChance() As Integer + Get + Return CType(Me("TypoChance"), Integer) + End Get + Set + Me("TypoChance") = value + End Set + End Property + + + Public Property TBEmote() As String + Get + Return CType(Me("TBEmote"), String) + End Get + Set + Me("TBEmote") = value + End Set + End Property + + + Public Property TBEmoteEnd() As String + Get + Return CType(Me("TBEmoteEnd"), String) + End Get + Set + Me("TBEmoteEnd") = value + End Set + End Property + + + Public Property VVolume() As Integer + Get + Return CType(Me("VVolume"), Integer) + End Get + Set + Me("VVolume") = value + End Set + End Property + + + Public Property VRate() As Integer + Get + Return CType(Me("VRate"), Integer) + End Get + Set + Me("VRate") = value + End Set + End Property + + + Public Property DomSadistic() As Boolean + Get + Return CType(Me("DomSadistic"), Boolean) + End Get + Set + Me("DomSadistic") = value + End Set + End Property + + + Public Property DomDegrading() As Boolean + Get + Return CType(Me("DomDegrading"), Boolean) + End Get + Set + Me("DomDegrading") = value + End Set + End Property + + + Public Property MetroOn() As Boolean + Get + Return CType(Me("MetroOn"), Boolean) + End Get + Set + Me("MetroOn") = value + End Set + End Property + + + Public Property LS1() As String + Get + Return CType(Me("LS1"), String) + End Get + Set + Me("LS1") = value + End Set + End Property + + + Public Property LS2() As String + Get + Return CType(Me("LS2"), String) + End Get + Set + Me("LS2") = value + End Set + End Property + + + Public Property LS3() As String + Get + Return CType(Me("LS3"), String) + End Get + Set + Me("LS3") = value + End Set + End Property + + + Public Property LS4() As String + Get + Return CType(Me("LS4"), String) + End Get + Set + Me("LS4") = value + End Set + End Property + + + Public Property LS5() As String + Get + Return CType(Me("LS5"), String) + End Get + Set + Me("LS5") = value + End Set + End Property + + + Public Property LS6() As String + Get + Return CType(Me("LS6"), String) + End Get + Set + Me("LS6") = value + End Set + End Property + + + Public Property LS7() As String + Get + Return CType(Me("LS7"), String) + End Get + Set + Me("LS7") = value + End Set + End Property + + + Public Property LS8() As String + Get + Return CType(Me("LS8"), String) + End Get + Set + Me("LS8") = value + End Set + End Property + + + Public Property LS9() As String + Get + Return CType(Me("LS9"), String) + End Get + Set + Me("LS9") = value + End Set + End Property + + + Public Property LS10() As String + Get + Return CType(Me("LS10"), String) + End Get + Set + Me("LS10") = value + End Set + End Property + + + Public Property LongHoldMin() As Integer + Get + Return CType(Me("LongHoldMin"), Integer) + End Get + Set + Me("LongHoldMin") = value + End Set + End Property + + + Public Property LongHoldMax() As String + Get + Return CType(Me("LongHoldMax"), String) + End Get + Set + Me("LongHoldMax") = value + End Set + End Property + + + Public Property ExtremeHoldMin() As String + Get + Return CType(Me("ExtremeHoldMin"), String) + End Get + Set + Me("ExtremeHoldMin") = value + End Set + End Property + + + Public Property ExtremeHoldMax() As String + Get + Return CType(Me("ExtremeHoldMax"), String) + End Get + Set + Me("ExtremeHoldMax") = value + End Set + End Property + + + Public Property CBWebtease() As Boolean + Get + Return CType(Me("CBWebtease"), Boolean) + End Get + Set + Me("CBWebtease") = value + End Set + End Property + + + Public Property SplitterDistance() As Integer + Get + Return CType(Me("SplitterDistance"), Integer) + End Get + Set + Me("SplitterDistance") = value + End Set + End Property + + + Public Property SideChat() As Boolean + Get + Return CType(Me("SideChat"), Boolean) + End Get + Set + Me("SideChat") = value + End Set + End Property + + + Public Property LazySubAV() As Boolean + Get + Return CType(Me("LazySubAV"), Boolean) + End Get + Set + Me("LazySubAV") = value + End Set + End Property + + + Public Property MuteMedia() As Boolean + Get + Return CType(Me("MuteMedia"), Boolean) + End Get + Set + Me("MuteMedia") = value + End Set + End Property + + + Public Property OfflineMode() As Boolean + Get + Return CType(Me("OfflineMode"), Boolean) + End Get + Set + Me("OfflineMode") = value + End Set + End Property + + + Public Property CBNewSlideshow() As Boolean + Get + Return CType(Me("CBNewSlideshow"), Boolean) + End Get + Set + Me("CBNewSlideshow") = value + End Set + End Property + + + Public Property TauntEdging() As Integer + Get + Return CType(Me("TauntEdging"), Integer) + End Get + Set + Me("TauntEdging") = value + End Set + End Property + + + Public Property UrlFileHardcore() As String + Get + Return CType(Me("UrlFileHardcore"), String) + End Get + Set + Me("UrlFileHardcore") = value + End Set + End Property + + + Public Property UrlFileSoftcore() As String + Get + Return CType(Me("UrlFileSoftcore"), String) + End Get + Set + Me("UrlFileSoftcore") = value + End Set + End Property + + + Public Property UrlFileLesbian() As String + Get + Return CType(Me("UrlFileLesbian"), String) + End Get + Set + Me("UrlFileLesbian") = value + End Set + End Property + + + Public Property UrlFileBlowjob() As String + Get + Return CType(Me("UrlFileBlowjob"), String) + End Get + Set + Me("UrlFileBlowjob") = value + End Set + End Property + + + Public Property UrlFileFemdom() As String + Get + Return CType(Me("UrlFileFemdom"), String) + End Get + Set + Me("UrlFileFemdom") = value + End Set + End Property + + + Public Property UrlFileLezdom() As String + Get + Return CType(Me("UrlFileLezdom"), String) + End Get + Set + Me("UrlFileLezdom") = value + End Set + End Property + + + Public Property UrlFileHentai() As String + Get + Return CType(Me("UrlFileHentai"), String) + End Get + Set + Me("UrlFileHentai") = value + End Set + End Property + + + Public Property UrlFileGay() As String + Get + Return CType(Me("UrlFileGay"), String) + End Get + Set + Me("UrlFileGay") = value + End Set + End Property + + + Public Property UrlFileMaledom() As String + Get + Return CType(Me("UrlFileMaledom"), String) + End Get + Set + Me("UrlFileMaledom") = value + End Set + End Property + + + Public Property UrlFileCaptions() As String + Get + Return CType(Me("UrlFileCaptions"), String) + End Get + Set + Me("UrlFileCaptions") = value + End Set + End Property + + + Public Property UrlFileGeneral() As String + Get + Return CType(Me("UrlFileGeneral"), String) + End Get + Set + Me("UrlFileGeneral") = value + End Set + End Property + + + Public Property UrlFileHardcoreEnabled() As Boolean + Get + Return CType(Me("UrlFileHardcoreEnabled"), Boolean) + End Get + Set + Me("UrlFileHardcoreEnabled") = value + End Set + End Property + + + Public Property UrlFileSoftcoreEnabled() As Boolean + Get + Return CType(Me("UrlFileSoftcoreEnabled"), Boolean) + End Get + Set + Me("UrlFileSoftcoreEnabled") = value + End Set + End Property + + + Public Property UrlFileLesbianEnabled() As Boolean + Get + Return CType(Me("UrlFileLesbianEnabled"), Boolean) + End Get + Set + Me("UrlFileLesbianEnabled") = value + End Set + End Property + + + Public Property UrlFileBlowjobEnabled() As Boolean + Get + Return CType(Me("UrlFileBlowjobEnabled"), Boolean) + End Get + Set + Me("UrlFileBlowjobEnabled") = value + End Set + End Property + + + Public Property UrlFileFemdomEnabled() As Boolean + Get + Return CType(Me("UrlFileFemdomEnabled"), Boolean) + End Get + Set + Me("UrlFileFemdomEnabled") = value + End Set + End Property + + + Public Property UrlFileLezdomEnabled() As Boolean + Get + Return CType(Me("UrlFileLezdomEnabled"), Boolean) + End Get + Set + Me("UrlFileLezdomEnabled") = value + End Set + End Property + + + Public Property UrlFileHentaiEnabled() As Boolean + Get + Return CType(Me("UrlFileHentaiEnabled"), Boolean) + End Get + Set + Me("UrlFileHentaiEnabled") = value + End Set + End Property + + + Public Property UrlFileGayEnabled() As Boolean + Get + Return CType(Me("UrlFileGayEnabled"), Boolean) + End Get + Set + Me("UrlFileGayEnabled") = value + End Set + End Property + + + Public Property UrlFileMaledomEnabled() As Boolean + Get + Return CType(Me("UrlFileMaledomEnabled"), Boolean) + End Get + Set + Me("UrlFileMaledomEnabled") = value + End Set + End Property + + + Public Property UrlFileCaptionsEnabled() As Boolean + Get + Return CType(Me("UrlFileCaptionsEnabled"), Boolean) + End Get + Set + Me("UrlFileCaptionsEnabled") = value + End Set + End Property + + + Public Property UrlFileGeneralEnabled() As Boolean + Get + Return CType(Me("UrlFileGeneralEnabled"), Boolean) + End Get + Set + Me("UrlFileGeneralEnabled") = value + End Set + End Property + + + Public Property CBIBoobs() As Boolean + Get + Return CType(Me("CBIBoobs"), Boolean) + End Get + Set + Me("CBIBoobs") = value + End Set + End Property + + + Public Property CBIButts() As Boolean + Get + Return CType(Me("CBIButts"), Boolean) + End Get + Set + Me("CBIButts") = value + End Set + End Property + + + Public Property UrlFileBoobsEnabled() As Boolean + Get + Return CType(Me("UrlFileBoobsEnabled"), Boolean) + End Get + Set + Me("UrlFileBoobsEnabled") = value + End Set + End Property + + + Public Property UrlFileButtEnabled() As Boolean + Get + Return CType(Me("UrlFileButtEnabled"), Boolean) + End Get + Set + Me("UrlFileButtEnabled") = value + End Set + End Property + + + Public Property CBURLPreview() As Boolean + Get + Return CType(Me("CBURLPreview"), Boolean) + End Get + Set + Me("CBURLPreview") = value + End Set + End Property + + + Public Property TaskStrokesMin() As Decimal + Get + Return CType(Me("TaskStrokesMin"), Decimal) + End Get + Set + Me("TaskStrokesMin") = value + End Set + End Property + + + Public Property TaskStrokesMax() As Decimal + Get + Return CType(Me("TaskStrokesMax"), Decimal) + End Get + Set + Me("TaskStrokesMax") = value + End Set + End Property + + + Public Property TaskStrokingTimeMin() As Decimal + Get + Return CType(Me("TaskStrokingTimeMin"), Decimal) + End Get + Set + Me("TaskStrokingTimeMin") = value + End Set + End Property + + + Public Property TaskStrokingTimeMax() As Decimal + Get + Return CType(Me("TaskStrokingTimeMax"), Decimal) + End Get + Set + Me("TaskStrokingTimeMax") = value + End Set + End Property + + + Public Property TaskEdgesMin() As Decimal + Get + Return CType(Me("TaskEdgesMin"), Decimal) + End Get + Set + Me("TaskEdgesMin") = value + End Set + End Property + + + Public Property TaskEdgesMax() As Decimal + Get + Return CType(Me("TaskEdgesMax"), Decimal) + End Get + Set + Me("TaskEdgesMax") = value + End Set + End Property + + + Public Property TaskEdgeHoldTimeMin() As Decimal + Get + Return CType(Me("TaskEdgeHoldTimeMin"), Decimal) + End Get + Set + Me("TaskEdgeHoldTimeMin") = value + End Set + End Property + + + Public Property TaskEdgeHoldTimeMax() As Decimal + Get + Return CType(Me("TaskEdgeHoldTimeMax"), Decimal) + End Get + Set + Me("TaskEdgeHoldTimeMax") = value + End Set + End Property + + + Public Property TaskCBTTimeMin() As Decimal + Get + Return CType(Me("TaskCBTTimeMin"), Decimal) + End Get + Set + Me("TaskCBTTimeMin") = value + End Set + End Property + + + Public Property TaskCBTTimeMax() As Decimal + Get + Return CType(Me("TaskCBTTimeMax"), Decimal) + End Get + Set + Me("TaskCBTTimeMax") = value + End Set + End Property + + + Public Property TasksMin() As String + Get + Return CType(Me("TasksMin"), String) + End Get + Set + Me("TasksMin") = value + End Set + End Property + + + Public Property TasksMax() As String + Get + Return CType(Me("TasksMax"), String) + End Get + Set + Me("TasksMax") = value + End Set + End Property + + + Public Property WritingProgress() As Boolean + Get + Return CType(Me("WritingProgress"), Boolean) + End Get + Set + Me("WritingProgress") = value + End Set + End Property + + + Public Property TimedWriting() As Boolean + Get + Return CType(Me("TimedWriting"), Boolean) + End Get + Set + Me("TimedWriting") = value + End Set + End Property + + + Public Property TypeSpeed() As Integer + Get + Return CType(Me("TypeSpeed"), Integer) + End Get + Set + Me("TypeSpeed") = value + End Set + End Property + + " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "")> + Public Property RecentSlideshows() As Global.System.Collections.Specialized.StringCollection + Get + Return CType(Me("RecentSlideshows"), Global.System.Collections.Specialized.StringCollection) + End Get + Set + Me("RecentSlideshows") = value + End Set + End Property + + + Public Property LockOrgasmChances() As Boolean + Get + Return CType(Me("LockOrgasmChances"), Boolean) + End Get + Set + Me("LockOrgasmChances") = value + End Set + End Property + + + Public Property MaximizeMediaWindow() As Boolean + Get + Return CType(Me("MaximizeMediaWindow"), Boolean) + End Get + Set + Me("MaximizeMediaWindow") = value + End Set + End Property + + + Public Property DisplaySidePanel() As Boolean + Get + Return CType(Me("DisplaySidePanel"), Boolean) + End Get + Set + Me("DisplaySidePanel") = value + End Set + End Property + + + Public Property giveUpReturn() As Boolean + Get + Return CType(Me("giveUpReturn"), Boolean) + End Get + Set + Me("giveUpReturn") = Value + End Set + End Property + End Class End Namespace Namespace My diff --git a/Tease AI/My Project/Settings.settings b/Tease AI/My Project/Settings.settings index 0ce5380..8a79f4d 100644 --- a/Tease AI/My Project/Settings.settings +++ b/Tease AI/My Project/Settings.settings @@ -1176,7 +1176,7 @@ True - 580 + 528 False diff --git a/Tease AI/app.config b/Tease AI/app.config index b01641e..dd45b70 100644 --- a/Tease AI/app.config +++ b/Tease AI/app.config @@ -1225,7 +1225,7 @@ True - 580 + 528 False From 3442140746db89adf9d4c78f351bcd3c2da45702 Mon Sep 17 00:00:00 2001 From: 1885 Date: Mon, 20 Feb 2017 14:30:31 -0600 Subject: [PATCH 023/143] @NotFlag() and @FlagOr() fix @NotFlag() and @FlagOr() should work correctly now Added @DommeLevel() Command Filter in GetFilter --- Tease AI/Form1.vb | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ca5af82..05e5f58 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -13822,7 +13822,10 @@ VTSkip: End If If FilterString.Contains("@ApathyLevel(") Then If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False - End If + End If + If FilterString.Contains("@DommeLevel(") Then + If FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) = False Then Return False + End If If FilterString.Contains("@Cup(") Then If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False End If @@ -13876,23 +13879,23 @@ VTSkip: For Each s In splitFlag If result Then If FlagExists(s) Then - result = False + result = True Exit For End If Else If FlagExists(s) Then - result = False - Else result = True + Else + result = False End If End If Next End If - Return result + If result = True Then Return False End If If FilterString.Contains("@FlagOr(") Then - Dim result As Boolean = True + Dim result As Boolean = False Dim writeFlag As String Dim splitFlag As String() @@ -13908,7 +13911,7 @@ VTSkip: End If Next End If - If result = True Then Return result + If result = False Then Return result End If If FilterString.Contains("@CheckDate(") And Linear = False Then @@ -17142,7 +17145,7 @@ saveImage: For Each com As String In New List(Of String) From {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", - "@DayOfWeek("} + "@DayOfWeek(", "@FlagOr("} If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") Next From 156f4df0a6da4d43e7c4166ffc44afa3bde58db7 Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 21 Feb 2017 00:58:37 -0600 Subject: [PATCH 024/143] Finalizing integration of dariobrun's features Some minor UI and Keyword changes, finalizing integration of dariobrun's features --- README.md | 38 +- Tease AI/Form1.vb | 1646 +- Tease AI/Form2.Designer.vb | 30387 +++++++++++---------- Tease AI/Form2.vb | 27 +- Tease AI/My Project/Settings.Designer.vb | 11535 ++++---- Tease AI/My Project/Settings.settings | 14 +- Tease AI/app.config | 14 +- 7 files changed, 21903 insertions(+), 21758 deletions(-) diff --git a/README.md b/README.md index 6afe758..13e2317 100644 --- a/README.md +++ b/README.md @@ -9,20 +9,52 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 54.7.0 * Added Features: - * @CountVar[] Command. Allows you to connect a timer to a specified Variable that will change its value by 1 every second. + * Can now set a directory for Random Dommes in General Settings. This should point to location containing folders named after individual models, and each of those folders should contain folders with imagesets of that model. Tease AI will then chose a folder at random for the pictures, and the name of the model's folder for the domme's name. (dariobrun) + * Added checkbox in General Settings to begin any new session with a Random Domme. + * Domme Personality settings now include a checkbox for CFNM (Clothed Female Nude Male). This is meant to allow taunts where the domme points out that the user will never see her naked, eg. This should be checked when using models with non-nude picture sets for the domme. + * Added "Continue Current Script After Giving Up" option in Domme Settings. When you "give up" in Tease AI, the program normally moves on to a random Link script. When this option is checked, the script you're on will continue to play out instead. (dariobrun) + * If options are set to use and/or capitalize the Domm'es honorific and the user fails to do so enough times, the domme will administer a CBT punishment (dariobrun) + Requires the following System Vocabulary files: + #SYS_HonorificPunish - The domme admonishes you for not addressing her correctly (immediately precedes the punishment) + #SYS_CapitalizeHonorific - The domme points out that she was not addressed correctly (immediately after failing to capitalize the honorific) + +* Added Commands: + * @CountVar[] - Allows you to connect a timer to a specified Variable that will change its value by 1 every second. Usage: @CountVar[VarName] - Begins a timer that adds 1 to VarName every second @CountVar[VarName, down] - Begins a timer that subtracts 1 from VarName every second @CountVar[VarName, stop] - Stops any timer associated with VarName (up or down) - * @FlagOr() Command Filter. Check multiple flags and will read the line if any of them are present. For example, @FlagOr(Flag1, Flag2) - If Flag1 or Flag 2 exists, then Tease AI will read the line. (dariobrun) + + * @SetDomme() - Changes the active domme (name and slideshow) to the specified option. (dariobrun) + Usage: + @SetDomme(1) - Changes the domme to Contact 1 (Can also use @SetDomme(Contact1), @SetDomme(Glitter 1), etc. All that matters is the number) + @SetDomme(2) - Changes the domme to Contact 2 + @SetDomme(3) - Changes the domme to Contact 3 + @SetDomme(Domme) - Changes back to the original domme specified in Domme Images Directory + @SetDomme(Random) - Changes to a Random Domme as specified in the Random Domme Images Directory + + If @SetDomme() does not contain a valid value, the original domme will be used. + + @SetDomme() replaces @GlitterTease1, @GlitterTease2, @GlitterTease3, @DommeTease and @RandomTease. These Commands will be left in the code for compatibility purposes. + * @RandomModule - Run a random Module (dariobrun) + + * @RandomLink - Run a random Link (dariobrun) + +*Added Command Filters: + * @FlagOr() Command Filter. Check multiple flags and will read the line if any of them are present. For example, @FlagOr(Flag1, Flag2) - If Flag1 or Flag 2 exists, then Tease AI will read the line. (dariobrun) + + * @CFNM Command Filter. When used, will only show lines with this Command Filter if the CFNM box is checked in the Domme Personality settings. + * Bugfixes: * @RT() and @RandomText() were not working correctly (Stefaf) * @NotFlag() was only checking for any flags not to be present when parsing multiple flags instead of all flags not to be present. (dariobrun) * Certain local genre images were not using their subdirectories correctly. (dariobrun) - * Local Boob images were not using their subdirectories correctly. (dariobrun) + * Local Boob images were not using their subdirectories correctly. (dariobrun) + * @RemoveContactX on a Contact that was not present would add them, Commands that add and remove Contacts now check to see if they are present (dariobrun) * Miscellaneous: + * Tweaked values of stroking speed changes instructed by the domme to make them slightly more profound (dariobrun) * Minor edits to State.vb so I could compile it using VS 2010 (Notay) * Cleaned up code for saving chatlogs (pepsifreak) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 79abf6f..ed53fdc 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1544,7 +1544,7 @@ retryStart: 'If InStr(UCase(ChatString), (UCase(FrmSettings.TBHonorific.Text))) = 0 Then 'If Not UCase(ChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " what?" + ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) @@ -1561,7 +1561,7 @@ retryStart: If FrmSettings.CBHonorificCapitalized.Checked = True Then If WordExists(ssh.ChatString, Capitalize(FrmSettings.TBHonorific.Text)) = False Then 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat = "#CapitalizeHonorific" + ssh.DomChat = "#SYS_CapitalizeHonorific" ssh.nameErrors += 1 ssh.wrongAttempt = True TypingDelay() @@ -3591,7 +3591,7 @@ NullSkip: If ssh.CheckYes = True Or ssh.CheckNo = True Then If FrmSettings.CBHonorificInclude.Checked = True Then If Not UCase(TempChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " what?" + ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) @@ -3667,7 +3667,7 @@ NullSkip: If ssh.CheckYes = True Or ssh.CheckNo = True Then If FrmSettings.CBHonorificInclude.Checked = True Then If Not UCase(TempChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " what?" + ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) @@ -3680,7 +3680,7 @@ NullSkip: End If If FrmSettings.CBHonorificCapitalized.Checked = True Then If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat = "#CapitalizeHonorific" + ssh.DomChat = "#SYS_CapitalizeHonorific" ssh.nameErrors += 1 ssh.wrongAttempt = True TypingDelay() @@ -4164,7 +4164,7 @@ ReturnCalled: ' ### Debug If ssh.nameErrors >= 3 And ssh.foundAnswer = True And ssh.wrongAttempt = True Then - ssh.DomChat = "#WrongHonorific" + ssh.DomChat = "#SYS_HonorificPunish" TypingDelay() If FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBallsActive = True @@ -11926,7 +11926,7 @@ ExternalAudio: If StringClean.Contains("@AddTeaseTime(") Then Dim OriginalFlag As String = "" - 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) + 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun 'If TeaseTimer.Enabled = True Then Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") @@ -12059,699 +12059,718 @@ ExternalAudio: ssh.glitterDommeNumber = 4 LoadDommeImageFolder() StringClean = StringClean.Replace("@RandomTease", "") - End If + End If - If StringClean.Contains("@AddContact1") Then - If Not ssh.contact1Present Then - ssh.contact1Present = True - ssh.AddContactTick = 2 - Contact1Timer.Start() - End If - StringClean = StringClean.Replace("@AddContact1", "") - End If + If StringClean.Contains("@SetDomme(") Then - If StringClean.Contains("@RemoveContact1") Then - If ssh.contact1Present Then - ssh.contact1Present = False - ssh.AddContactTick = 2 - Contact1Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact1", "") - End If + Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") + ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("1") Then ssh.glitterDommeNumber = 1 + If DommeFlag.Contains("2") Then ssh.glitterDommeNumber = 2 + If DommeFlag.Contains("3") Then ssh.glitterDommeNumber = 3 + If DommeFlag.Contains("0") Or DommeFlag.ToLower.Contains("domme") Then ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("4") Or DommeFlag.ToLower.Contains("random") Then ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() - If StringClean.Contains("@AddContact2") Then - If Not ssh.contact2Present Then - ssh.contact2Present = True - ssh.AddContactTick = 2 - Contact2Timer.Start() - End If - StringClean = StringClean.Replace("@AddContact2", "") - End If + StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") + End If - If StringClean.Contains("@RemoveContact2") Then - If ssh.contact2Present Then - ssh.contact2Present = False - ssh.AddContactTick = 2 - Contact2Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact2", "") - End If + If StringClean.Contains("@AddContact1") Then + If Not ssh.contact1Present Then + ssh.contact1Present = True + ssh.AddContactTick = 2 + Contact1Timer.Start() + End If + StringClean = StringClean.Replace("@AddContact1", "") + End If - If StringClean.Contains("@AddContact3") Then - If Not ssh.contact3Present Then - ssh.contact3Present = True - ssh.AddContactTick = 2 - Contact3Timer.Start() - End If - StringClean = StringClean.Replace("@AddContact3", "") - End If + If StringClean.Contains("@RemoveContact1") Then + If ssh.contact1Present Then + ssh.contact1Present = False + ssh.AddContactTick = 2 + Contact1Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact1", "") + End If - If StringClean.Contains("@RemoveContact3") Then - If ssh.contact3Present Then - ssh.contact3Present = False - ssh.AddContactTick = 2 - Contact3Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact3", "") - End If + If StringClean.Contains("@AddContact2") Then + If Not ssh.contact2Present Then + ssh.contact2Present = True + ssh.AddContactTick = 2 + Contact2Timer.Start() + End If + StringClean = StringClean.Replace("@AddContact2", "") + End If - If StringClean.Contains("@AddDomme") Then - If Not ssh.dommePresent Then - ssh.dommePresent = True - ssh.AddContactTick = 2 - DommeTimer.Start() - End If - StringClean = StringClean.Replace("@AddDomme", "") + If StringClean.Contains("@RemoveContact2") Then + If ssh.contact2Present Then + ssh.contact2Present = False + ssh.AddContactTick = 2 + Contact2Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact2", "") + End If - End If + If StringClean.Contains("@AddContact3") Then + If Not ssh.contact3Present Then + ssh.contact3Present = True + ssh.AddContactTick = 2 + Contact3Timer.Start() + End If + StringClean = StringClean.Replace("@AddContact3", "") + End If - If StringClean.Contains("@RemoveDomme") Then - If ssh.dommePresent Then - ssh.dommePresent = False - ssh.AddContactTick = 2 - DommeTimer.Start() - End If - StringClean = StringClean.Replace("@RemoveDomme", "") - End If + If StringClean.Contains("@RemoveContact3") Then + If ssh.contact3Present Then + ssh.contact3Present = False + ssh.AddContactTick = 2 + Contact3Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact3", "") + End If - If StringClean.Contains("@NullResponse") Then - ssh.NullResponse = True - StringClean = StringClean.Replace("@NullResponse", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@AddDomme") Then + If Not ssh.dommePresent Then + ssh.dommePresent = True + ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@AddDomme", "") -VTSkip: + End If - If StringClean.Contains("@SpeedUpCheck") Then + If StringClean.Contains("@RemoveDomme") Then + If ssh.dommePresent Then + ssh.dommePresent = False + ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@RemoveDomme", "") + End If - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" - StringClean = ResponseClean(StringClean) + If StringClean.Contains("@NullResponse") Then + ssh.NullResponse = True + StringClean = StringClean.Replace("@NullResponse", "") + 'Debug.Print("NullResponse Called") + End If - Else +VTSkip: - If StrokePace < 201 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" - StringClean = ResponseClean(StringClean) + If StringClean.Contains("@SpeedUpCheck") Then - Else + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" + StringClean = ResponseClean(StringClean) - Dim SpeedUpCheck As Integer + Else - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + If StrokePace < 201 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + StringClean = ResponseClean(StringClean) - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Else - If SpeedUpVal > SpeedUpCheck Then + Dim SpeedUpCheck As Integer - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - Else + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" + If SpeedUpVal > SpeedUpCheck Then - End If + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" - StringClean = ResponseClean(StringClean) + Else - End If + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" - End If + End If - StringClean = StringClean.Replace("@SpeedUpCheck", "") - GoTo RinseLatherRepeat - End If + StringClean = ResponseClean(StringClean) + End If - If StringClean.Contains("@SlowDownCheck") Then + End If - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" - StringClean = ResponseClean(StringClean) + StringClean = StringClean.Replace("@SpeedUpCheck", "") + GoTo RinseLatherRepeat + End If - Else - If StrokePace > 999 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" - StringClean = ResponseClean(StringClean) + If StringClean.Contains("@SlowDownCheck") Then - Else + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" + StringClean = ResponseClean(StringClean) - Dim SpeedUpCheck As Integer + Else - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + If StrokePace > 999 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" + StringClean = ResponseClean(StringClean) - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Else - If SpeedUpVal > SpeedUpCheck Then + Dim SpeedUpCheck As Integer - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - Else + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + If SpeedUpVal > SpeedUpCheck Then - End If + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" - StringClean = ResponseClean(StringClean) + Else - End If + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" - End If + End If - StringClean = StringClean.Replace("@SlowDownCheck", "") - GoTo RinseLatherRepeat + StringClean = ResponseClean(StringClean) - End If + End If + End If - If StringClean.Contains("@PlayRiskyPick") Then - ssh.RiskyDeal = True - 'FrmCardList.RiskyRound += 1 - FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - FrmCardList.InitializeRiskyDeal() - StringClean = StringClean.Replace("@PlayRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + StringClean = StringClean.Replace("@SlowDownCheck", "") + GoTo RinseLatherRepeat - If StringClean.Contains("@ChooseRiskyPick") Then - ssh.RiskyDelay = True - If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True - If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True - If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True - If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True - If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True - If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True - If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True - If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True - If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True - If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True + End If - If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True - If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True - If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True - If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True - If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True - If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True - If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True - If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True - If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True - If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True - If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True - If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True - If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True - If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True + If StringClean.Contains("@PlayRiskyPick") Then + ssh.RiskyDeal = True + 'FrmCardList.RiskyRound += 1 + FrmCardList.TCGames.SelectTab(2) + FrmCardList.Show() + FrmCardList.Focus() + FrmCardList.InitializeRiskyDeal() + StringClean = StringClean.Replace("@PlayRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - FrmCardList.RiskyChoiceCount = 0 - FrmCardList.RiskyRound += 1 - FrmCardList.RiskyPickCount = 0 - FrmCardList.RiskyChoices.Clear() - FrmCardList.ClearCaseLabelsOffer() - 'FrmCardList.Show() - 'FrmCardList.TCGames.SelectTab(4) - 'FrmCardList.Focus() + If StringClean.Contains("@ChooseRiskyPick") Then + ssh.RiskyDelay = True + If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True + If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True + If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True + If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True + If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True + If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True + If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True + If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True + If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True + If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True + + If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True + If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True + If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True + If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True + If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True + If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True + If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True + If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True + If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True + If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True + + If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True + If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True + If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True + If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True + + FrmCardList.RiskyChoiceCount = 0 + FrmCardList.RiskyRound += 1 + FrmCardList.RiskyPickCount = 0 + FrmCardList.RiskyChoices.Clear() + FrmCardList.ClearCaseLabelsOffer() + 'FrmCardList.Show() + 'FrmCardList.TCGames.SelectTab(4) + 'FrmCardList.Focus() + + StringClean = StringClean.Replace("@ChooseRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - StringClean = StringClean.Replace("@ChooseRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@CheckRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.CheckRiskyPick() + StringClean = StringClean.Replace("@CheckRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@CheckRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.CheckRiskyPick() - StringClean = StringClean.Replace("@CheckRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@FinalRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.BTNRiskIt.Text = "LAST CASE" + FrmCardList.BTNPickIt.Text = "MY CASE" + StringClean = StringClean.Replace("@FinalRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@FinalRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.BTNRiskIt.Text = "LAST CASE" - FrmCardList.BTNPickIt.Text = "MY CASE" - StringClean = StringClean.Replace("@FinalRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@ClearRiskyLabels") Then + 'FrmCardList.Focus() + FrmCardList.ClearCaseLabelsOffer() + StringClean = StringClean.Replace("@ClearRiskyLabels", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@ClearRiskyLabels") Then - 'FrmCardList.Focus() - FrmCardList.ClearCaseLabelsOffer() - StringClean = StringClean.Replace("@ClearRiskyLabels", "") - 'Debug.Print("NullResponse Called") - End If + If StringClean.Contains("@RiskyPayout") Then + If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then + FrmCardList.GameWMP.settings.setMode("loop", False) + FrmCardList.GameWMP.settings.volume = 20 + FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" + End If + ssh.BronzeTokens += FrmCardList.TokensPaid + FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) + StringClean = StringClean.Replace("@RiskyPayout", "") + End If - If StringClean.Contains("@RiskyPayout") Then - If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then - FrmCardList.GameWMP.settings.setMode("loop", False) - FrmCardList.GameWMP.settings.volume = 20 - FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" - End If - ssh.BronzeTokens += FrmCardList.TokensPaid - FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) - StringClean = StringClean.Replace("@RiskyPayout", "") - End If + If StringClean.Contains("@CloseRiskyPick") Then + FrmCardList.CloseRiskyPick() + StringClean = StringClean.Replace("@CloseRiskyPick", "") + End If - If StringClean.Contains("@CloseRiskyPick") Then - FrmCardList.CloseRiskyPick() - StringClean = StringClean.Replace("@CloseRiskyPick", "") - End If + If StringClean.Contains("@RevealLastCase") Then + FrmCardList.RevealLastCase() + StringClean = StringClean.Replace("@RevealLastCase", "") + End If - If StringClean.Contains("@RevealLastCase") Then - FrmCardList.RevealLastCase() - StringClean = StringClean.Replace("@RevealLastCase", "") - End If + If StringClean.Contains("@RevealUserCase") Then + FrmCardList.RevealUserCase() + StringClean = StringClean.Replace("@RevealUserCase", "") + End If - If StringClean.Contains("@RevealUserCase") Then - FrmCardList.RevealUserCase() - StringClean = StringClean.Replace("@RevealUserCase", "") - End If - - If StringClean.Contains("@RiskyState") Then - If FrmCardList.RiskyState = True Then - ssh.FileGoto = "(Risky Game)" - Else - ssh.FileGoto = "(Risky Tease)" - End If - FrmCardList.RiskyState = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@RiskyState", "") - End If + If StringClean.Contains("@RiskyState") Then + If FrmCardList.RiskyState = True Then + ssh.FileGoto = "(Risky Game)" + Else + ssh.FileGoto = "(Risky Tease)" + End If + FrmCardList.RiskyState = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@RiskyState", "") + End If - If StringClean.Contains("@SystemMessage ") Then - StringClean = StringClean.Replace("@SystemMessage ", "") - End If + If StringClean.Contains("@SystemMessage ") Then + StringClean = StringClean.Replace("@SystemMessage ", "") + End If - If StringClean.Contains("@EmoteMessage ") Then - StringClean = StringClean.Replace("@EmoteMessage ", "") - End If + If StringClean.Contains("@EmoteMessage ") Then + StringClean = StringClean.Replace("@EmoteMessage ", "") + End If - If StringClean.Contains("@CallReturn(") Then + If StringClean.Contains("@CallReturn(") Then + + GetSubState() + ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) + + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False + + If Not ssh.SubGaveUp Then + ssh.SubEdging = False + ssh.SubHoldingEdge = False + End If - GetSubState() - ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) + 'StopEverything() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.CBTBallsActive = False - ssh.CBTBallsFlag = False - ssh.CBTCockActive = False - ssh.CBTCockFlag = False - ssh.CBTBothActive = False - ssh.CBTBothFlag = False - ssh.CustomTaskActive = False - - If Not ssh.SubGaveUp Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - End If - 'StopEverything() + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CallReplace As String = CheckFlag + If CheckFlag.Contains(",") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag + CheckFlag = FixCommas(CheckFlag) - If CheckFlag.Contains(",") Then + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - CheckFlag = FixCommas(CheckFlag) + Else - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - Else + End If + ssh.ScriptTick = 2 + ScriptTimer.Start() - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - End If - ssh.ScriptTick = 2 - ScriptTimer.Start() + End If - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + If StringClean.Contains("@Call(") Then - End If + Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") + Dim CallReplace As String = CheckFlag - If StringClean.Contains("@Call(") Then + If CheckFlag.Contains(",") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") - Dim CallReplace As String = CheckFlag + CheckFlag = FixCommas(CheckFlag) - If CheckFlag.Contains(",") Then + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - CheckFlag = FixCommas(CheckFlag) + Else - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - Else + End If - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") - End If + End If - StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") - End If + If StringClean.Contains("@CallRandom(") Then + Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") + Dim CallReplace As String = CheckFlag - If StringClean.Contains("@CallRandom(") Then + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 + End If + End If + StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") + End If - Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") - Dim CallReplace As String = CheckFlag + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code + ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) - ssh.StrokeTauntVal = -1 - End If - End If - StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") - End If + If StringClean.Contains("@RandomLink") Then + RunLinkScript() + StringClean = StringClean.Replace("@RandomLink", "") + End If - If StringClean.Contains("@RandomLink") Then - RunLinkScript() - StringClean = StringClean.Replace("@RandomLink", "") - End If + If StringClean.Contains("@RandomModule") Then + If ssh.SubEdging Or ssh.SubHoldingEdge Then + RunModuleScript(True) + Else + RunModuleScript(False) + End If + StringClean = StringClean.Replace("@RandomModule", "") + End If - If StringClean.Contains("@RandomModule") Then - If ssh.SubEdging Or ssh.SubHoldingEdge Then - RunModuleScript(True) - Else - RunModuleScript(False) - End If - StringClean = StringClean.Replace("@RandomModule", "") - End If - - If StringClean.Contains("@RapidCodeOn") Then - ssh.RapidCode = True - StringClean = StringClean.Replace("@RapidCodeOn", "") - End If + If StringClean.Contains("@RapidCodeOn") Then + ssh.RapidCode = True + StringClean = StringClean.Replace("@RapidCodeOn", "") + End If - If StringClean.Contains("@RapidCodeOff") Then - ssh.RapidCode = False - StringClean = StringClean.Replace("@RapidCodeOff", "") - End If + If StringClean.Contains("@RapidCodeOff") Then + ssh.RapidCode = False + StringClean = StringClean.Replace("@RapidCodeOff", "") + End If - If StringClean.Contains("@InterruptsOff") Then - ssh.DoNotDisturb = True - StringClean = StringClean.Replace("@InterruptsOff", "") - End If + If StringClean.Contains("@InterruptsOff") Then + ssh.DoNotDisturb = True + StringClean = StringClean.Replace("@InterruptsOff", "") + End If - If StringClean.Contains("@InterruptsOn") Then - ssh.DoNotDisturb = False - StringClean = StringClean.Replace("@InterruptsOn", "") - End If + If StringClean.Contains("@InterruptsOn") Then + ssh.DoNotDisturb = False + StringClean = StringClean.Replace("@InterruptsOn", "") + End If - If StringClean.Contains("@NoTypo") Then - ssh.TypoSwitch = 0 - StringClean = StringClean.Replace("@NoTypo", "") - End If + If StringClean.Contains("@NoTypo") Then + ssh.TypoSwitch = 0 + StringClean = StringClean.Replace("@NoTypo", "") + End If - If StringClean.Contains("@ForceTypo") Then - ssh.TypoSwitch = 2 - StringClean = StringClean.Replace("@ForceTypo", "") - End If + If StringClean.Contains("@ForceTypo") Then + ssh.TypoSwitch = 2 + StringClean = StringClean.Replace("@ForceTypo", "") + End If - If StringClean.Contains("@TyposOff") Then - ssh.TyposDisabled = True - StringClean = StringClean.Replace("@TyposOff", "") - End If + If StringClean.Contains("@TyposOff") Then + ssh.TyposDisabled = True + StringClean = StringClean.Replace("@TyposOff", "") + End If - If StringClean.Contains("@TyposOn") Then - ssh.TyposDisabled = False - StringClean = StringClean.Replace("@TyposOn", "") - End If + If StringClean.Contains("@TyposOn") Then + ssh.TyposDisabled = False + StringClean = StringClean.Replace("@TyposOn", "") + End If - If StringClean.Contains("@GoodMood(") Then + If StringClean.Contains("@GoodMood(") Then - Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") + Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") - End If + StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@BadMood(") Then + If StringClean.Contains("@BadMood(") Then - Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") + Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") - End If + StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@NeutralMood(") Then + If StringClean.Contains("@NeutralMood(") Then - Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") + Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") - If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") - End If + StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@MoodUp") Then - ssh.DommeMood += 1 - If ssh.DommeMood > 10 Then ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodUp", "") - End If + If StringClean.Contains("@MoodUp") Then + ssh.DommeMood += 1 + If ssh.DommeMood > 10 Then ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodUp", "") + End If - If StringClean.Contains("@MoodDown") Then - ssh.DommeMood -= 1 - If ssh.DommeMood < 1 Then ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodDown", "") - End If + If StringClean.Contains("@MoodDown") Then + ssh.DommeMood -= 1 + If ssh.DommeMood < 1 Then ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodDown", "") + End If - If StringClean.Contains("@MoodBest") Then - ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodBest", "") - End If + If StringClean.Contains("@MoodBest") Then + ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodBest", "") + End If - If StringClean.Contains("@MoodWorst") Then - ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodWorst", "") - End If + If StringClean.Contains("@MoodWorst") Then + ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodWorst", "") + End If - If StringClean.Contains("@Timeout(") Then + If StringClean.Contains("@Timeout(") Then - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") - Dim OriginalFlag As String = TimeFlag + Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") + Dim OriginalFlag As String = TimeFlag - TimeFlag = FixCommas(TimeFlag) + TimeFlag = FixCommas(TimeFlag) - Dim TimeArray As String() = TimeFlag.Split(",") + Dim TimeArray As String() = TimeFlag.Split(",") - ssh.FileGoto = TimeArray(1) - ssh.TimeoutTick = Val(TimeArray(0)) - TimeoutTimer.Start() + ssh.FileGoto = TimeArray(1) + ssh.TimeoutTick = Val(TimeArray(0)) + TimeoutTimer.Start() - StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") - End If + StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@BallTorture+1") Then - ssh.CBTBallsCount += 1 - StringClean = StringClean.Replace("@BallTorture+1", "") - End If + If StringClean.Contains("@BallTorture+1") Then + ssh.CBTBallsCount += 1 + StringClean = StringClean.Replace("@BallTorture+1", "") + End If - If StringClean.Contains("@CockTorture+1") Then - ssh.CBTCockCount += 1 - StringClean = StringClean.Replace("@CockTorture+1", "") - End If + If StringClean.Contains("@CockTorture+1") Then + ssh.CBTCockCount += 1 + StringClean = StringClean.Replace("@CockTorture+1", "") + End If - If StringClean.Contains("@EndTaunts") Then - ssh.StrokeTick = 0 - StringClean = StringClean.Replace("@EndTaunts", "") - End If + If StringClean.Contains("@EndTaunts") Then + ssh.StrokeTick = 0 + StringClean = StringClean.Replace("@EndTaunts", "") + End If - If StringClean.Contains("@ResponseYes(") Then - ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") - StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") - End If + If StringClean.Contains("@ResponseYes(") Then + ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") + StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") + End If - If StringClean.Contains("@ResponseNo(") Then - ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") - StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") - End If + If StringClean.Contains("@ResponseNo(") Then + ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") + StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") + End If - If StringClean.Contains("@SetModule(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + If StringClean.Contains("@SetModule(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") - If TempMod.Contains(",") Then - TempMod = FixCommas(TempMod) - Dim TempArray As String() = TempMod.Split(",") - TempMod = TempArray(0) - ssh.SetModuleGoto = TempArray(1) + If TempMod.Contains(",") Then + TempMod = FixCommas(TempMod) + Dim TempArray As String() = TempMod.Split(",") + TempMod = TempArray(0) + ssh.SetModuleGoto = TempArray(1) - End If + End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" + End If - If ssh.SetModule = "" Then ssh.SetModuleGoto = "" + If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") - End If + StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + End If - If StringClean.Contains("@SetLink(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" - End If - StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") - End If + If StringClean.Contains("@SetLink(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" + End If + StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + End If - 'If StringClean.Contains("@RandomText(") Then - 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") - 'TempText = FixCommas(TempText) - 'Dim TextArray As String() = TempText.Split(",") - 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) - 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) - 'End If + 'If StringClean.Contains("@RandomText(") Then + 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") + 'TempText = FixCommas(TempText) + 'Dim TextArray As String() = TempText.Split(",") + 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) + 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) + 'End If - If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") - StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") - End If + If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") + StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + End If - If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then + If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then - Dim FollowTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + Dim FollowTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 - TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 + TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 + TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 - FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - Dim FollowVal As Integer + Dim FollowVal As Integer - FollowVal = Val(FollowTemp) + FollowVal = Val(FollowTemp) - ssh.TempVal = ssh.randomizer.Next(1, 101) + ssh.TempVal = ssh.randomizer.Next(1, 101) - Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") + Dim FollowLineTemp As String + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - End If + End If - If StringClean.Contains("@Worship(") Then - Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") - Debug.Print("Worship Paren = " & WorshipTemp) - If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" - If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" - If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" - ssh.WorshipMode = True - StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") - End If + If StringClean.Contains("@Worship(") Then + Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") + Debug.Print("Worship Paren = " & WorshipTemp) + If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" + If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" + If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" + ssh.WorshipMode = True + StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") + End If - If StringClean.Contains("@WorshipOn") Then - ssh.WorshipMode = True - StringClean = StringClean.Replace("@WorshipOn", "") - End If + If StringClean.Contains("@WorshipOn") Then + ssh.WorshipMode = True + StringClean = StringClean.Replace("@WorshipOn", "") + End If - If StringClean.Contains("@WorshipOff") Then - ssh.WorshipMode = False - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@WorshipOff", "") - End If + If StringClean.Contains("@WorshipOff") Then + ssh.WorshipMode = False + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@WorshipOff", "") + End If - ' If StringClean.Contains("@AssWorship") Then - 'WorshipTarget = "Ass" - 'StringClean = StringClean.Replace("@AssWorship", "") - 'End If + ' If StringClean.Contains("@AssWorship") Then + 'WorshipTarget = "Ass" + 'StringClean = StringClean.Replace("@AssWorship", "") + 'End If - 'If StringClean.Contains("@BoobWorship") Then - 'WorshipTarget = "Boobs" - 'StringClean = StringClean.Replace("@BoobWorship", "") - 'End If + 'If StringClean.Contains("@BoobWorship") Then + 'WorshipTarget = "Boobs" + 'StringClean = StringClean.Replace("@BoobWorship", "") + 'End If - 'If StringClean.Contains("@PussyWorship") Then - 'WorshipTarget = "Pussy" - 'StringClean = StringClean.Replace("@PussyWorship", "") - 'End If + 'If StringClean.Contains("@PussyWorship") Then + 'WorshipTarget = "Pussy" + 'StringClean = StringClean.Replace("@PussyWorship", "") + 'End If - If StringClean.Contains("@ClearWorship") Then - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@ClearWorship", "") - End If + If StringClean.Contains("@ClearWorship") Then + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@ClearWorship", "") + End If @@ -12760,234 +12779,234 @@ VTSkip: - If StringClean.Contains("@MiniScript(") Then + If StringClean.Contains("@MiniScript(") Then - Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then - ssh.MiniScript = True - ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" - ssh.MiniTauntVal = -1 - ssh.MiniTimerCheck = ScriptTimer.Enabled - ssh.ScriptTick = 2 - ScriptTimer.Start() - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then + ssh.MiniScript = True + ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" + ssh.MiniTauntVal = -1 + ssh.MiniTimerCheck = ScriptTimer.Enabled + ssh.ScriptTick = 2 + ScriptTimer.Start() + End If - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") - End If + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + End If - If StringClean.Contains("@CheckFile(") Then + If StringClean.Contains("@CheckFile(") Then - Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") - FileFlag = FixCommas(FileFlag) + Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") + FileFlag = FixCommas(FileFlag) - Dim FileArray As String() = FileFlag.Split(",") + Dim FileArray As String() = FileFlag.Split(",") - If FileArray.Count = 2 Or FileArray.Count = 3 Then + If FileArray.Count = 2 Or FileArray.Count = 3 Then - If File.Exists(FileArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(1) - GetGoto() - End If + If File.Exists(FileArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(1) + GetGoto() + End If - If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(2) - GetGoto() - End If + If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(2) + GetGoto() + End If - End If + End If - StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") - End If + StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") + End If - If StringClean.Contains("@YesMode(") Then + If StringClean.Contains("@YesMode(") Then - Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") - YesFlag = FixCommas(YesFlag) - Dim YesArray As String() = YesFlag.Split(",") + Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") + YesFlag = FixCommas(YesFlag) + Dim YesArray As String() = YesFlag.Split(",") - If UCase(YesArray(0)).Contains("GOTO") Then - ssh.YesGoto = True - ssh.YesGotoLine = YesArray(1) - End If + If UCase(YesArray(0)).Contains("GOTO") Then + ssh.YesGoto = True + ssh.YesGotoLine = YesArray(1) + End If - If UCase(YesArray(0)).Contains("VIDEO") Then - ssh.YesVideo = True - ssh.YesGotoLine = YesArray(1) - End If + If UCase(YesArray(0)).Contains("VIDEO") Then + ssh.YesVideo = True + ssh.YesGotoLine = YesArray(1) + End If - If UCase(YesArray(0)).Contains("NORMAL") Then - ssh.YesGoto = False - ssh.YesVideo = False - End If + If UCase(YesArray(0)).Contains("NORMAL") Then + ssh.YesGoto = False + ssh.YesVideo = False + End If - StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") - End If + StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") + End If - If StringClean.Contains("@NoMode(") Then + If StringClean.Contains("@NoMode(") Then - Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") - NoFlag = FixCommas(NoFlag) - Dim NoArray As String() = NoFlag.Split(",") + Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") + NoFlag = FixCommas(NoFlag) + Dim NoArray As String() = NoFlag.Split(",") - If UCase(NoArray(0)).Contains("GOTO") Then - ssh.NoGoto = True - ssh.NoGotoLine = NoArray(1) - End If + If UCase(NoArray(0)).Contains("GOTO") Then + ssh.NoGoto = True + ssh.NoGotoLine = NoArray(1) + End If - If UCase(NoArray(0)).Contains("VIDEO") Then - ssh.NoVideo_Mode = True - ssh.NoGotoLine = NoArray(1) - End If + If UCase(NoArray(0)).Contains("VIDEO") Then + ssh.NoVideo_Mode = True + ssh.NoGotoLine = NoArray(1) + End If - If UCase(NoArray(0)).Contains("NORMAL") Then - ssh.NoGoto = False - ssh.NoVideo_Mode = False - End If + If UCase(NoArray(0)).Contains("NORMAL") Then + ssh.NoGoto = False + ssh.NoVideo_Mode = False + End If - StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") - End If + StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") + End If - If StringClean.Contains("@CameMode(") Then + If StringClean.Contains("@CameMode(") Then - Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") - CameFlag = FixCommas(CameFlag) - Dim CameArray As String() = CameFlag.Split(",") + Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") + CameFlag = FixCommas(CameFlag) + Dim CameArray As String() = CameFlag.Split(",") - If UCase(CameArray(0)).Contains("GOTO") Then - ssh.CameGoto = True - ssh.CameGotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("GOTO") Then + ssh.CameGoto = True + ssh.CameGotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("MESSAGE") Then - ssh.CameMessage = True - ssh.CameMessageText = CameArray(1) - End If + If UCase(CameArray(0)).Contains("MESSAGE") Then + ssh.CameMessage = True + ssh.CameMessageText = CameArray(1) + End If - If UCase(CameArray(0)).Contains("VIDEO") Then - ssh.CameVideo = True - ssh.CameGotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("VIDEO") Then + ssh.CameVideo = True + ssh.CameGotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("NORMAL") Then - ssh.CameGoto = False - ssh.CameMessage = False - ssh.CameVideo = False - End If + If UCase(CameArray(0)).Contains("NORMAL") Then + ssh.CameGoto = False + ssh.CameMessage = False + ssh.CameVideo = False + End If - StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") - End If + StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") + End If - If StringClean.Contains("@RuinedMode(") Then + If StringClean.Contains("@RuinedMode(") Then - Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") - RuinedFlag = FixCommas(RuinedFlag) - Dim RuinedArray As String() = RuinedFlag.Split(",") + Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") + RuinedFlag = FixCommas(RuinedFlag) + Dim RuinedArray As String() = RuinedFlag.Split(",") - If UCase(RuinedArray(0)).Contains("GOTO") Then - ssh.RuinedGoto = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("GOTO") Then + ssh.RuinedGoto = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("MESSAGE") Then - ssh.RuinedMessage = True - ssh.RuinedMessageText = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("MESSAGE") Then + ssh.RuinedMessage = True + ssh.RuinedMessageText = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("VIDEO") Then - ssh.RuinedVideo = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("VIDEO") Then + ssh.RuinedVideo = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("NORMAL") Then - ssh.RuinedGoto = False - ssh.RuinedMessage = False - ssh.RuinedVideo = False - End If + If UCase(RuinedArray(0)).Contains("NORMAL") Then + ssh.RuinedGoto = False + ssh.RuinedMessage = False + ssh.RuinedVideo = False + End If - StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") - End If + StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") + End If - If StringClean.Contains("@CustomMode(") Then + If StringClean.Contains("@CustomMode(") Then - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") - CustomFlag = FixCommas(CustomFlag) - Dim CustomArray As String() = CustomFlag.Split(",") + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") + CustomFlag = FixCommas(CustomFlag) + Dim CustomArray As String() = CustomFlag.Split(",") - If CustomArray.Count = 3 Then + If CustomArray.Count = 3 Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) + If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) - Dim NewMode As New Mode - NewMode.Keyword = CustomArray(0) - NewMode.Type = CustomArray(1) - NewMode.GotoLine = CustomArray(2) - ssh.Modes.Add(CustomArray(0), NewMode) - End If + Dim NewMode As New Mode + NewMode.Keyword = CustomArray(0) + NewMode.Type = CustomArray(1) + NewMode.GotoLine = CustomArray(2) + ssh.Modes.Add(CustomArray(0), NewMode) + End If - If CustomArray.Count = 2 Then - If CustomArray(1).ToUpper.Contains("NORMAL") Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then - ssh.Modes.Remove(CustomArray(0)) - End If - End If - End If + If CustomArray.Count = 2 Then + If CustomArray(1).ToUpper.Contains("NORMAL") Then + If ssh.Modes.Keys.Contains(CustomArray(0)) Then + ssh.Modes.Remove(CustomArray(0)) + End If + End If + End If - StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - End If + End If - If StringClean.Contains("@ClearModes") Then - ClearModes() - StringClean = StringClean.Replace("@ClearModes", "") - End If + If StringClean.Contains("@ClearModes") Then + ClearModes() + StringClean = StringClean.Replace("@ClearModes", "") + End If - If StringClean.Contains("@LockVideo") Then - ssh.LockVideo = True - StringClean = StringClean.Replace("@LockVideo", "") - End If + If StringClean.Contains("@LockVideo") Then + ssh.LockVideo = True + StringClean = StringClean.Replace("@LockVideo", "") + End If - If StringClean.Contains("@UnlockVideo") Then - ssh.LockVideo = False - mainPictureBox.Visible = True - DomWMP.Visible = False - StringClean = StringClean.Replace("@UnlockVideo", "") - End If + If StringClean.Contains("@UnlockVideo") Then + ssh.LockVideo = False + mainPictureBox.Visible = True + DomWMP.Visible = False + StringClean = StringClean.Replace("@UnlockVideo", "") + End If - If StringClean.Contains("@ClearChat") Then - ClearChat() - StringClean = StringClean.Replace("@ClearChat", "") - End If + If StringClean.Contains("@ClearChat") Then + ClearChat() + StringClean = StringClean.Replace("@ClearChat", "") + End If - If StringClean.Contains("@ChatImage[") Then - Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") - ImageDir = ImageDir.Replace("/", "\") - ImageDir = ImageDir.Replace("\\", "\") + If StringClean.Contains("@ChatImage[") Then + Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") + ImageDir = ImageDir.Replace("/", "\") + ImageDir = ImageDir.Replace("\\", "\") - If File.Exists(ImageDir.Split(",")(0)) Then + If File.Exists(ImageDir.Split(",")(0)) Then - If GetCharCount(ImageDir, ",") = 2 Then + If GetCharCount(ImageDir, ",") = 2 Then - Dim PicAttributes As String() = GetArrayString(ImageDir) + Dim PicAttributes As String() = GetArrayString(ImageDir) - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - End If + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + End If - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - End If + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + End If End If If StringClean.Contains("@CountVar[") Then @@ -13047,107 +13066,107 @@ VTSkip: - If StringClean.Contains("@Debug") Then + If StringClean.Contains("@Debug") Then - 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) + 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) - MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) - MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) - MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) - MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) + MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) + MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) + MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) + MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) - 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) - StringClean = StringClean.Replace("@Debug", "") - End If + 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) + StringClean = StringClean.Replace("@Debug", "") + End If - If StringClean.Contains("@GotoDommeOrgasm") Then + If StringClean.Contains("@GotoDommeOrgasm") Then - 'Debug.Print("GotoDommeOrgasmCalled") + 'Debug.Print("GotoDommeOrgasmCalled") - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeOrgasm", "") + StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - End If + End If - If StringClean.Contains("@GotoDommeRuin") Then + If StringClean.Contains("@GotoDommeRuin") Then - Debug.Print("GotoDommeRuinedCalled") + Debug.Print("GotoDommeRuinedCalled") - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeRuin", "") + StringClean = StringClean.Replace("@GotoDommeRuin", "") - End If + End If - If StringClean.Contains("@GotoDommeApathy") Then + If StringClean.Contains("@GotoDommeApathy") Then - 'Debug.Print("GotoDommeApathyCalled") + 'Debug.Print("GotoDommeApathyCalled") - If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" - If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" - If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" - If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" - If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" + If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" + If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" + If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" + If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" + If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeApathy", "") + StringClean = StringClean.Replace("@GotoDommeApathy", "") - End If + End If - If StringClean.Contains("@GotoDommeLevel") Then + If StringClean.Contains("@GotoDommeLevel") Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeLevel", "") + StringClean = StringClean.Replace("@GotoDommeLevel", "") - End If + End If - If StringClean.Contains("@CheckBnB") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then - ssh.FileGoto = "(No BnB)" - ssh.SkipGotoLine = True - GetGoto() - End If - StringClean = StringClean.Replace("@CheckBnB", "") - End If + If StringClean.Contains("@CheckBnB") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then + ssh.FileGoto = "(No BnB)" + ssh.SkipGotoLine = True + GetGoto() + End If + StringClean = StringClean.Replace("@CheckBnB", "") + End If @@ -13155,50 +13174,50 @@ VTSkip: - If StringClean.Contains("@CheckStrokingState") Then - 'If SubStroking = True Then - If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ssh.FileGoto = "(Sub Stroking)" - Else - ssh.FileGoto = "(Sub Not Stroking)" - End If - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckStrokingState", "") - End If + If StringClean.Contains("@CheckStrokingState") Then + 'If SubStroking = True Then + If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then + ssh.FileGoto = "(Sub Stroking)" + Else + ssh.FileGoto = "(Sub Not Stroking)" + End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckStrokingState", "") + End If - 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. + 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. - If StringClean.Contains("@SetGroup(") Then + If StringClean.Contains("@SetGroup(") Then - Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) + Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" - If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" + If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" - StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") + StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") - End If + End If - Debug.Print("Command Clean Complete") + Debug.Print("Command Clean Complete") - Return StringClean + Return StringClean End Function @@ -14132,6 +14151,7 @@ VTSkip: If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@cfnm") And FrmSettings.CFNMCheckBox.Checked = False Then Return False If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False @@ -17204,17 +17224,21 @@ saveImage: Public Sub LoadDommeImageFolder() 'check which domme should be loaded If Not ssh.newSlideshow Then - If ssh.glitterDommeNumber = 0 Then - ssh.SlideshowMain = New ContactData(ContactType.Domme) - ElseIf ssh.glitterDommeNumber = 1 Then - ssh.SlideshowMain = New ContactData(ContactType.Contact1) - ElseIf ssh.glitterDommeNumber = 2 Then - ssh.SlideshowMain = New ContactData(ContactType.Contact2) - ElseIf ssh.glitterDommeNumber = 3 Then - ssh.SlideshowMain = New ContactData(ContactType.Contact3) - ElseIf ssh.glitterDommeNumber = 4 Then - ssh.SlideshowMain = New ContactData(ContactType.Random) - End If + If ssh.glitterDommeNumber = 0 Then + If FrmSettings.CBRandomDomme.Checked = False Then + ssh.SlideshowMain = New ContactData(ContactType.Domme) + Else + ssh.SlideshowMain = New ContactData(ContactType.Random) + End If + ElseIf ssh.glitterDommeNumber = 1 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact1) + ElseIf ssh.glitterDommeNumber = 2 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact2) + ElseIf ssh.glitterDommeNumber = 3 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact3) + ElseIf ssh.glitterDommeNumber = 4 Then + ssh.SlideshowMain = New ContactData(ContactType.Random) + End If 'check if the #DomHonorific file has some flags to determine which honorific to use with the current domme If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\#DomHonorific.txt") Then Dim filePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\#DomHonorific.txt" diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 7374d5e..8679ac9 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -22,15183 +22,15208 @@ Partial Class FrmSettings 'Do not modify it using the code editor. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) - Me.SettingsPanel = New System.Windows.Forms.Panel() - Me.SettingsTabs = New System.Windows.Forms.TabControl() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.PNLGeneralSettings = New System.Windows.Forms.Panel() - Me.BtnImportSettings = New System.Windows.Forms.Button() - Me.LblImportSettings = New System.Windows.Forms.Label() - Me.GroupBox64 = New System.Windows.Forms.GroupBox() - Me.CBMuteMedia = New System.Windows.Forms.CheckBox() - Me.GBDommeImages = New System.Windows.Forms.GroupBox() - Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() - Me.teaseRadio = New System.Windows.Forms.RadioButton() - Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() - Me.offRadio = New System.Windows.Forms.RadioButton() - Me.BTNDomImageDir = New System.Windows.Forms.Button() - Me.timedRadio = New System.Windows.Forms.RadioButton() - Me.TbxDomImageDir = New System.Windows.Forms.TextBox() - Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() - Me.LBLVRate = New System.Windows.Forms.Label() - Me.Label93 = New System.Windows.Forms.Label() - Me.LBLVVolume = New System.Windows.Forms.Label() - Me.Label68 = New System.Windows.Forms.Label() - Me.SliderVRate = New System.Windows.Forms.TrackBar() - Me.SliderVVolume = New System.Windows.Forms.TrackBar() - Me.TTSCheckBox = New System.Windows.Forms.CheckBox() - Me.TTSComboBox = New System.Windows.Forms.ComboBox() - Me.GBSafeword = New System.Windows.Forms.GroupBox() - Me.LBLSafeword = New System.Windows.Forms.Label() - Me.TBSafeword = New System.Windows.Forms.TextBox() - Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() - Me.CBAuditStartup = New System.Windows.Forms.CheckBox() - Me.CBDomDel = New System.Windows.Forms.CheckBox() - Me.CBSettingsPause = New System.Windows.Forms.CheckBox() - Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() - Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() - Me.GBGeneralImages = New System.Windows.Forms.GroupBox() - Me.CBImageInfo = New System.Windows.Forms.CheckBox() - Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() - Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() - Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() - Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() - Me.CBWebtease = New System.Windows.Forms.CheckBox() - Me.GBSubFont = New System.Windows.Forms.GroupBox() - Me.BTNSubColor = New System.Windows.Forms.Button() - Me.LBLSubColor = New System.Windows.Forms.Label() - Me.NBFontSize = New System.Windows.Forms.NumericUpDown() - Me.Label2 = New System.Windows.Forms.Label() - Me.FontComboBox = New System.Windows.Forms.ComboBox() - Me.GBDommeFont = New System.Windows.Forms.GroupBox() - Me.BTNDomColor = New System.Windows.Forms.Button() - Me.LBLDomColor = New System.Windows.Forms.Label() - Me.FontComboBoxD = New System.Windows.Forms.ComboBox() - Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() - Me.Label7 = New System.Windows.Forms.Label() - Me.CBInputIcon = New System.Windows.Forms.CheckBox() - Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() - Me.timestampCheckBox = New System.Windows.Forms.CheckBox() - Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() - Me.LBLGeneralSettings = New System.Windows.Forms.Label() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.Panel3 = New System.Windows.Forms.Panel() - Me.BTNLoadDomSet = New System.Windows.Forms.Button() - Me.BTNSaveDomSet = New System.Windows.Forms.Button() - Me.Label127 = New System.Windows.Forms.Label() - Me.Label126 = New System.Windows.Forms.Label() - Me.PictureBox4 = New System.Windows.Forms.PictureBox() - Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() - Me.TBEmoteEnd = New System.Windows.Forms.TextBox() - Me.Label67 = New System.Windows.Forms.Label() - Me.TBEmote = New System.Windows.Forms.TextBox() - Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() - Me.Label66 = New System.Windows.Forms.Label() - Me.CBMeMyMine = New System.Windows.Forms.CheckBox() - Me.GroupBox63 = New System.Windows.Forms.GroupBox() - Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() - Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() - Me.periodCheckBox = New System.Windows.Forms.CheckBox() - Me.commaCheckBox = New System.Windows.Forms.CheckBox() - Me.Label64 = New System.Windows.Forms.Label() - Me.GBDomRanges = New System.Windows.Forms.GroupBox() - Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() - Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() - Me.Label37 = New System.Windows.Forms.Label() - Me.Label39 = New System.Windows.Forms.Label() - Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() - Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() - Me.Label31 = New System.Windows.Forms.Label() - Me.Label36 = New System.Windows.Forms.Label() - Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() - Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() - Me.Label21 = New System.Windows.Forms.Label() - Me.Label22 = New System.Windows.Forms.Label() - Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() - Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() - Me.Label23 = New System.Windows.Forms.Label() - Me.Label30 = New System.Windows.Forms.Label() - Me.GBDomStats = New System.Windows.Forms.GroupBox() - Me.Label128 = New System.Windows.Forms.Label() - Me.LBLEmpathy = New System.Windows.Forms.Label() - Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() - Me.Label83 = New System.Windows.Forms.Label() - Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() - Me.TBDomEyeColor = New System.Windows.Forms.TextBox() - Me.TBDomHairColor = New System.Windows.Forms.TextBox() - Me.domageNumBox = New System.Windows.Forms.NumericUpDown() - Me.Label47 = New System.Windows.Forms.Label() - Me.Label76 = New System.Windows.Forms.Label() - Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() - Me.Label84 = New System.Windows.Forms.Label() - Me.CBDomTattoos = New System.Windows.Forms.CheckBox() - Me.CBDomFreckles = New System.Windows.Forms.CheckBox() - Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.boobComboBox = New System.Windows.Forms.ComboBox() - Me.DomLevelDescLabel = New System.Windows.Forms.Label() - Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() - Me.Label43 = New System.Windows.Forms.Label() - Me.Label44 = New System.Windows.Forms.Label() - Me.Label45 = New System.Windows.Forms.Label() - Me.Label46 = New System.Windows.Forms.Label() - Me.GBDomPersonality = New System.Windows.Forms.GroupBox() - Me.degradingCheckBox = New System.Windows.Forms.CheckBox() - Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() - Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() - Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() - Me.crazyCheckBox = New System.Windows.Forms.CheckBox() - Me.condescendingCheckBox = New System.Windows.Forms.CheckBox() - Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() - Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() - Me.orgasmlockrandombutton = New System.Windows.Forms.Button() - Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.orgasmsperlockButton = New System.Windows.Forms.Button() - Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() - Me.orgasmsperLabel = New System.Windows.Forms.Label() - Me.limitcheckbox = New System.Windows.Forms.CheckBox() - Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() - Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() - Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() - Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() - Me.GBDomPetNames = New System.Windows.Forms.GroupBox() - Me.Label74 = New System.Windows.Forms.Label() - Me.petnameBox7 = New System.Windows.Forms.TextBox() - Me.petnameBox8 = New System.Windows.Forms.TextBox() - Me.petnameBox1 = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() - Me.petnameBox4 = New System.Windows.Forms.TextBox() - Me.petnameBox6 = New System.Windows.Forms.TextBox() - Me.petnameBox2 = New System.Windows.Forms.TextBox() - Me.Label11 = New System.Windows.Forms.Label() - Me.petnameBox5 = New System.Windows.Forms.TextBox() - Me.petnameBox3 = New System.Windows.Forms.TextBox() - Me.Label54 = New System.Windows.Forms.Label() - Me.TabPage10 = New System.Windows.Forms.TabPage() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.GroupBox22 = New System.Windows.Forms.GroupBox() - Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() - Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() - Me.Label75 = New System.Windows.Forms.Label() - Me.Label77 = New System.Windows.Forms.Label() - Me.GroupBox45 = New System.Windows.Forms.GroupBox() - Me.LBLCBTSlider = New System.Windows.Forms.Label() - Me.CBCBTBalls = New System.Windows.Forms.CheckBox() - Me.CBCBTCock = New System.Windows.Forms.CheckBox() - Me.CBTSlider = New System.Windows.Forms.TrackBar() - Me.GroupBox35 = New System.Windows.Forms.GroupBox() - Me.GroupBox39 = New System.Windows.Forms.GroupBox() - Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() - Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() - Me.TBHonorific = New System.Windows.Forms.TextBox() - Me.GroupBox38 = New System.Windows.Forms.GroupBox() - Me.TBNo = New System.Windows.Forms.TextBox() - Me.GroupBox37 = New System.Windows.Forms.GroupBox() - Me.TBYes = New System.Windows.Forms.TextBox() - Me.GroupBox36 = New System.Windows.Forms.GroupBox() - Me.TBGreeting = New System.Windows.Forms.TextBox() - Me.GroupBox13 = New System.Windows.Forms.GroupBox() - Me.Label34 = New System.Windows.Forms.Label() - Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() - Me.GroupBox7 = New System.Windows.Forms.GroupBox() - Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() - Me.LBLMinExtremeHold = New System.Windows.Forms.Label() - Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() - Me.Label133 = New System.Windows.Forms.Label() - Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() - Me.LBLMaxLongHold = New System.Windows.Forms.Label() - Me.Label78 = New System.Windows.Forms.Label() - Me.LBLMinLongHold = New System.Windows.Forms.Label() - Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() - Me.Label129 = New System.Windows.Forms.Label() - Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() - Me.LBLMaxHold = New System.Windows.Forms.Label() - Me.Label79 = New System.Windows.Forms.Label() - Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() - Me.LBLMinHold = New System.Windows.Forms.Label() - Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() - Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() - Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() - Me.Label55 = New System.Windows.Forms.Label() - Me.Label81 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() - Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() - Me.Label131 = New System.Windows.Forms.Label() - Me.PictureBox12 = New System.Windows.Forms.PictureBox() - Me.GroupBox32 = New System.Windows.Forms.GroupBox() - Me.LBLSubBdayFormat = New System.Windows.Forms.Label() - Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() - Me.CBOwnChastity = New System.Windows.Forms.CheckBox() - Me.CBChastityPA = New System.Windows.Forms.CheckBox() - Me.CBHimHer = New System.Windows.Forms.CheckBox() - Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() - Me.CBCockToClit = New System.Windows.Forms.CheckBox() - Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() - Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() - Me.CBSubPierced = New System.Windows.Forms.CheckBox() - Me.TBSubEyeColor = New System.Windows.Forms.TextBox() - Me.TBSubHairColor = New System.Windows.Forms.TextBox() - Me.Label63 = New System.Windows.Forms.Label() - Me.LBLSubInches = New System.Windows.Forms.Label() - Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() - Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() - Me.LBLSubCockSize = New System.Windows.Forms.Label() - Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() - Me.LBLSubEye = New System.Windows.Forms.Label() - Me.LBLSubHair = New System.Windows.Forms.Label() - Me.LBLSubBirthday = New System.Windows.Forms.Label() - Me.LBLSubAge = New System.Windows.Forms.Label() - Me.Label70 = New System.Windows.Forms.Label() - Me.TabPage16 = New System.Windows.Forms.TabPage() - Me.Panel9 = New System.Windows.Forms.Panel() - Me.BTNScriptAvailable = New System.Windows.Forms.Button() - Me.BTNScriptNone = New System.Windows.Forms.Button() - Me.BTNScriptAll = New System.Windows.Forms.Button() - Me.BTNScriptOpen = New System.Windows.Forms.Button() - Me.LBLScriptReq = New System.Windows.Forms.Label() - Me.GroupBox31 = New System.Windows.Forms.GroupBox() - Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() - Me.TCScripts = New System.Windows.Forms.TabControl() - Me.TabPage21 = New System.Windows.Forms.TabPage() - Me.CLBStartList = New System.Windows.Forms.CheckedListBox() - Me.TabPage17 = New System.Windows.Forms.TabPage() - Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() - Me.TabPage18 = New System.Windows.Forms.TabPage() - Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() - Me.TabPage19 = New System.Windows.Forms.TabPage() - Me.CLBEndList = New System.Windows.Forms.CheckedListBox() - Me.GroupBox42 = New System.Windows.Forms.GroupBox() - Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.GroupBox43 = New System.Windows.Forms.GroupBox() - Me.Label98 = New System.Windows.Forms.Label() - Me.Label104 = New System.Windows.Forms.Label() - Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.TabControl4 = New System.Windows.Forms.TabControl() - Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() - Me.CBURLPreview = New System.Windows.Forms.CheckBox() - Me.GroupBox66 = New System.Windows.Forms.GroupBox() - Me.PBURLPreview = New System.Windows.Forms.PictureBox() - Me.BTNURLFilesAll = New System.Windows.Forms.Button() - Me.BTNURLFilesNone = New System.Windows.Forms.Button() - Me.URLFileList = New System.Windows.Forms.CheckedListBox() - Me.TpImagesGenre = New System.Windows.Forms.TabPage() - Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() - Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() - Me.BtnImageUrlButt = New System.Windows.Forms.Button() - Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() - Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() - Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() - Me.BtnImageUrlHentai = New System.Windows.Forms.Button() - Me.BtnImageUrlGay = New System.Windows.Forms.Button() - Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() - Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() - Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() - Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() - Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() - Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() - Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() - Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() - Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() - Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() - Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() - Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() - Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() - Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() - Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() - Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() - Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() - Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() - Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() - Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() - Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() - Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() - Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() - Me.BTNIHardcore = New System.Windows.Forms.Button() - Me.TbxIHardcore = New System.Windows.Forms.TextBox() - Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() - Me.CBIHardcore = New System.Windows.Forms.CheckBox() - Me.CBISoftcore = New System.Windows.Forms.CheckBox() - Me.TbxISoftcore = New System.Windows.Forms.TextBox() - Me.CBButtSubDir = New System.Windows.Forms.CheckBox() - Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() - Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() - Me.CBILezdomSD = New System.Windows.Forms.CheckBox() - Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() - Me.CBILesbianSD = New System.Windows.Forms.CheckBox() - Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() - Me.CBILesbian = New System.Windows.Forms.CheckBox() - Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() - Me.CBIBlowjob = New System.Windows.Forms.CheckBox() - Me.CBIGaySD = New System.Windows.Forms.CheckBox() - Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() - Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() - Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() - Me.TbxIButts = New System.Windows.Forms.TextBox() - Me.CBIFemdom = New System.Windows.Forms.CheckBox() - Me.TbxILesbian = New System.Windows.Forms.TextBox() - Me.BTNISoftcore = New System.Windows.Forms.Button() - Me.CBILezdom = New System.Windows.Forms.CheckBox() - Me.TbxIBoobs = New System.Windows.Forms.TextBox() - Me.CBIHentai = New System.Windows.Forms.CheckBox() - Me.TbxIBlowjob = New System.Windows.Forms.TextBox() - Me.CBIGay = New System.Windows.Forms.CheckBox() - Me.TbxIGeneral = New System.Windows.Forms.TextBox() - Me.CBIMaledom = New System.Windows.Forms.CheckBox() - Me.TbxIFemdom = New System.Windows.Forms.TextBox() - Me.BTNILesbian = New System.Windows.Forms.Button() - Me.TbxICaptions = New System.Windows.Forms.TextBox() - Me.CBICaptions = New System.Windows.Forms.CheckBox() - Me.TbxILezdom = New System.Windows.Forms.TextBox() - Me.TbxIMaledom = New System.Windows.Forms.TextBox() - Me.BTNButtPath = New System.Windows.Forms.Button() - Me.TbxIHentai = New System.Windows.Forms.TextBox() - Me.CBIGeneral = New System.Windows.Forms.CheckBox() - Me.TbxIGay = New System.Windows.Forms.TextBox() - Me.CBIBoobs = New System.Windows.Forms.CheckBox() - Me.CBIButts = New System.Windows.Forms.CheckBox() - Me.BTNIBlowjob = New System.Windows.Forms.Button() - Me.BTNIFemdom = New System.Windows.Forms.Button() - Me.BTNBoobPath = New System.Windows.Forms.Button() - Me.BTNILezdom = New System.Windows.Forms.Button() - Me.BTNIHentai = New System.Windows.Forms.Button() - Me.BTNIGay = New System.Windows.Forms.Button() - Me.BTNIMaledom = New System.Windows.Forms.Button() - Me.BTNICaptions = New System.Windows.Forms.Button() - Me.BTNIGeneral = New System.Windows.Forms.Button() - Me.TabPage33 = New System.Windows.Forms.TabPage() - Me.TabControl5 = New System.Windows.Forms.TabControl() - Me.TabPage34 = New System.Windows.Forms.TabPage() - Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() - Me.CBTagAllFours = New System.Windows.Forms.CheckBox() - Me.CBTagGlaring = New System.Windows.Forms.CheckBox() - Me.CBTagSmiling = New System.Windows.Forms.CheckBox() - Me.TBTagDir = New System.Windows.Forms.TextBox() - Me.CBTagPiercing = New System.Windows.Forms.CheckBox() - Me.CBTagLegs = New System.Windows.Forms.CheckBox() - Me.TBTagFurniture = New System.Windows.Forms.TextBox() - Me.CBTagFurniture = New System.Windows.Forms.CheckBox() - Me.TBTagSexToy = New System.Windows.Forms.TextBox() - Me.CBTagSexToy = New System.Windows.Forms.CheckBox() - Me.TBTagTattoo = New System.Windows.Forms.TextBox() - Me.CBTagTattoo = New System.Windows.Forms.CheckBox() - Me.TBTagUnderwear = New System.Windows.Forms.TextBox() - Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() - Me.TBTagGarment = New System.Windows.Forms.TextBox() - Me.CBTagGarment = New System.Windows.Forms.CheckBox() - Me.Label72 = New System.Windows.Forms.Label() - Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() - Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() - Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() - Me.CBTagNaked = New System.Windows.Forms.RadioButton() - Me.CBTagSideView = New System.Windows.Forms.CheckBox() - Me.BTNTagPrevious = New System.Windows.Forms.Button() - Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() - Me.BTNTagNext = New System.Windows.Forms.Button() - Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() - Me.LBLTagCount = New System.Windows.Forms.Label() - Me.CBTagSucking = New System.Windows.Forms.CheckBox() - Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() - Me.CBTagFeet = New System.Windows.Forms.CheckBox() - Me.CBTagBoobs = New System.Windows.Forms.CheckBox() - Me.CBTagAss = New System.Windows.Forms.CheckBox() - Me.CBTagPussy = New System.Windows.Forms.CheckBox() - Me.BTNTagSave = New System.Windows.Forms.Button() - Me.BTNTagDir = New System.Windows.Forms.Button() - Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() - Me.CBTagFace = New System.Windows.Forms.CheckBox() - Me.TabPage35 = New System.Windows.Forms.TabPage() - Me.GroupBox55 = New System.Windows.Forms.GroupBox() - Me.CBTagNurse = New System.Windows.Forms.CheckBox() - Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() - Me.CBTagMaid = New System.Windows.Forms.CheckBox() - Me.CBTagTeacher = New System.Windows.Forms.CheckBox() - Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() - Me.GroupBox53 = New System.Windows.Forms.GroupBox() - Me.CBTagTrap = New System.Windows.Forms.CheckBox() - Me.CBTagTentacles = New System.Windows.Forms.CheckBox() - Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() - Me.CBTagBukkake = New System.Windows.Forms.CheckBox() - Me.CBTagGanguro = New System.Windows.Forms.CheckBox() - Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() - Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() - Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() - Me.CBTagAhegao = New System.Windows.Forms.CheckBox() - Me.CBTagShibari = New System.Windows.Forms.CheckBox() - Me.GroupBox49 = New System.Windows.Forms.GroupBox() - Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() - Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() - Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() - Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() - Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() - Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() - Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() - Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() - Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() - Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() - Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() - Me.GroupBox46 = New System.Windows.Forms.GroupBox() - Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() - Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() - Me.CBTagFemdom = New System.Windows.Forms.CheckBox() - Me.CBTag2M = New System.Windows.Forms.CheckBox() - Me.CBTagFutadom = New System.Windows.Forms.CheckBox() - Me.CBTagFemsub = New System.Windows.Forms.CheckBox() - Me.CBTag2Futa = New System.Windows.Forms.CheckBox() - Me.CBTagMaledom = New System.Windows.Forms.CheckBox() - Me.CBTag3M = New System.Windows.Forms.CheckBox() - Me.CBTagFutasub = New System.Windows.Forms.CheckBox() - Me.CBTag3Futa = New System.Windows.Forms.CheckBox() - Me.CBTagMalesub = New System.Windows.Forms.CheckBox() - Me.CBTag2F = New System.Windows.Forms.CheckBox() - Me.CBTag1Futa = New System.Windows.Forms.CheckBox() - Me.CBTag1M = New System.Windows.Forms.CheckBox() - Me.CBTag1F = New System.Windows.Forms.CheckBox() - Me.CBTag3F = New System.Windows.Forms.CheckBox() - Me.GroupBox54 = New System.Windows.Forms.GroupBox() - Me.CBTagTattoos = New System.Windows.Forms.CheckBox() - Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() - Me.CBTagDomme = New System.Windows.Forms.CheckBox() - Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() - Me.CBTagWatersports = New System.Windows.Forms.CheckBox() - Me.CBTagStockings = New System.Windows.Forms.CheckBox() - Me.CBTagCumshot = New System.Windows.Forms.CheckBox() - Me.CBTagCumEating = New System.Windows.Forms.CheckBox() - Me.CBTagVibrator = New System.Windows.Forms.CheckBox() - Me.CBTagDildo = New System.Windows.Forms.CheckBox() - Me.CBTagKissing = New System.Windows.Forms.CheckBox() - Me.GroupBox51 = New System.Windows.Forms.GroupBox() - Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() - Me.CBTagGag = New System.Windows.Forms.CheckBox() - Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() - Me.CBTagWhipping = New System.Windows.Forms.CheckBox() - Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() - Me.CBTagElectro = New System.Windows.Forms.CheckBox() - Me.CBTagHotWax = New System.Windows.Forms.CheckBox() - Me.CBTagClamps = New System.Windows.Forms.CheckBox() - Me.CBTagStrapon = New System.Windows.Forms.CheckBox() - Me.CBTagSpanking = New System.Windows.Forms.CheckBox() - Me.CBTagNeedles = New System.Windows.Forms.CheckBox() - Me.GroupBox50 = New System.Windows.Forms.GroupBox() - Me.CBTagRimming = New System.Windows.Forms.CheckBox() - Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() - Me.CBTagMissionary = New System.Windows.Forms.CheckBox() - Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() - Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() - Me.CBTagFingering = New System.Windows.Forms.CheckBox() - Me.CBTagGangbang = New System.Windows.Forms.CheckBox() - Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() - Me.CBTagDP = New System.Windows.Forms.CheckBox() - Me.CBTagHandjob = New System.Windows.Forms.CheckBox() - Me.CBTagStanding = New System.Windows.Forms.CheckBox() - Me.CBTagFootjob = New System.Windows.Forms.CheckBox() - Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() - Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() - Me.CBTagTitjob = New System.Windows.Forms.CheckBox() - Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() - Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() - Me.GroupBox48 = New System.Windows.Forms.GroupBox() - Me.CBTagArtwork = New System.Windows.Forms.CheckBox() - Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() - Me.CBTagPOV = New System.Windows.Forms.CheckBox() - Me.CBTagHardcore = New System.Windows.Forms.CheckBox() - Me.CBTagTD = New System.Windows.Forms.CheckBox() - Me.CBTagGay = New System.Windows.Forms.CheckBox() - Me.CBTagBath = New System.Windows.Forms.CheckBox() - Me.CBTagBisexual = New System.Windows.Forms.CheckBox() - Me.CBTagCFNM = New System.Windows.Forms.CheckBox() - Me.CBTagLesbian = New System.Windows.Forms.CheckBox() - Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() - Me.CBTagSM = New System.Windows.Forms.CheckBox() - Me.CBTagBondage = New System.Windows.Forms.CheckBox() - Me.CBTagSoloM = New System.Windows.Forms.CheckBox() - Me.CBTagSoloF = New System.Windows.Forms.CheckBox() - Me.CBTagChastity = New System.Windows.Forms.CheckBox() - Me.CBTagShower = New System.Windows.Forms.CheckBox() - Me.TBLocalTagDir = New System.Windows.Forms.TextBox() - Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() - Me.BTNLocalTagNext = New System.Windows.Forms.Button() - Me.LBLLocalTagCount = New System.Windows.Forms.Label() - Me.BTNLocalTagSave = New System.Windows.Forms.Button() - Me.BTNLocalTagDir = New System.Windows.Forms.Button() - Me.TabPage11 = New System.Windows.Forms.TabPage() - Me.Panel7 = New System.Windows.Forms.Panel() - Me.BTNWIContinue = New System.Windows.Forms.Button() - Me.BTNWIAddandContinue = New System.Windows.Forms.Button() - Me.BTNWICancel = New System.Windows.Forms.Button() - Me.CBWIReview = New System.Windows.Forms.CheckBox() - Me.BTNWIBrowse = New System.Windows.Forms.Button() - Me.TBWIDirectory = New System.Windows.Forms.TextBox() - Me.BTNWIDisliked = New System.Windows.Forms.Button() - Me.BTNWILiked = New System.Windows.Forms.Button() - Me.BTNWIRemove = New System.Windows.Forms.Button() - Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() - Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() - Me.BTNWICreateURL = New System.Windows.Forms.Button() - Me.LBLWebImageCount = New System.Windows.Forms.Label() - Me.BTNWISave = New System.Windows.Forms.Button() - Me.BTNWIOpenURL = New System.Windows.Forms.Button() - Me.BTNWIPrevious = New System.Windows.Forms.Button() - Me.BTNWINext = New System.Windows.Forms.Button() - Me.WebPictureBox = New System.Windows.Forms.PictureBox() - Me.Label71 = New System.Windows.Forms.Label() - Me.TpVideoSettings = New System.Windows.Forms.TabPage() - Me.PnlVideoSettings = New System.Windows.Forms.Panel() - Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() - Me.BTNRefreshVideos = New System.Windows.Forms.Button() - Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() - Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() - Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() - Me.BTNVideoGeneralD = New System.Windows.Forms.Button() - Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() - Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() - Me.LblVideoCHTotalD = New System.Windows.Forms.Label() - Me.LblVideoJOITotalD = New System.Windows.Forms.Label() - Me.TxbVideoCHD = New System.Windows.Forms.TextBox() - Me.TxbVideoJOID = New System.Windows.Forms.TextBox() - Me.BTNVideoCHD = New System.Windows.Forms.Button() - Me.BTNVideoJOID = New System.Windows.Forms.Button() - Me.CBVideoJOID = New System.Windows.Forms.CheckBox() - Me.CBVideoCHD = New System.Windows.Forms.CheckBox() - Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() - Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() - Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() - Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() - Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() - Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() - Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() - Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() - Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() - Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() - Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() - Me.BTNVideoFemSubD = New System.Windows.Forms.Button() - Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() - Me.BTNVideoFemDomD = New System.Windows.Forms.Button() - Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() - Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() - Me.BTNVideoLesbianD = New System.Windows.Forms.Button() - Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() - Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() - Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() - Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() - Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() - Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() - Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() - Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() - Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() - Me.VideoDescriptionLabel = New System.Windows.Forms.Label() - Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() - Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() - Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() - Me.BTNVideoGeneral = New System.Windows.Forms.Button() - Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() - Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() - Me.LblVideoCHTotal = New System.Windows.Forms.Label() - Me.LblVideoJOITotal = New System.Windows.Forms.Label() - Me.TxbVideoCH = New System.Windows.Forms.TextBox() - Me.TxbVideoJOI = New System.Windows.Forms.TextBox() - Me.BTNVideoCH = New System.Windows.Forms.Button() - Me.BTNVideoJOI = New System.Windows.Forms.Button() - Me.CBVideoJOI = New System.Windows.Forms.CheckBox() - Me.CBVideoCH = New System.Windows.Forms.CheckBox() - Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() - Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() - Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() - Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() - Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() - Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() - Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() - Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() - Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() - Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() - Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() - Me.BTNVideoFemSub = New System.Windows.Forms.Button() - Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() - Me.BTNVideoFemDom = New System.Windows.Forms.Button() - Me.BTNVideoBlowjob = New System.Windows.Forms.Button() - Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() - Me.BTNVideoLesbian = New System.Windows.Forms.Button() - Me.BTNVideoSoftCore = New System.Windows.Forms.Button() - Me.BTNVideoHardCore = New System.Windows.Forms.Button() - Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() - Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() - Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() - Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() - Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() - Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() - Me.LblVideoHeader = New System.Windows.Forms.Label() - Me.TabPage20 = New System.Windows.Forms.TabPage() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.TabPage22 = New System.Windows.Forms.TabPage() - Me.PNLGlitter = New System.Windows.Forms.Panel() - Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() - Me.Button15 = New System.Windows.Forms.Button() - Me.BtnRandomImageDir = New System.Windows.Forms.Button() - Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() - Me.Button16 = New System.Windows.Forms.Button() - Me.Label121 = New System.Windows.Forms.Label() - Me.Label122 = New System.Windows.Forms.Label() - Me.GBGlitterD = New System.Windows.Forms.GroupBox() - Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() - Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() - Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() - Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() - Me.BTNGlitterD = New System.Windows.Forms.Button() - Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() - Me.LBLGlitterSlider = New System.Windows.Forms.Label() - Me.CBCustom2 = New System.Windows.Forms.CheckBox() - Me.GlitterSlider = New System.Windows.Forms.TrackBar() - Me.CBCustom1 = New System.Windows.Forms.CheckBox() - Me.CBDaily = New System.Windows.Forms.CheckBox() - Me.CBTrivia = New System.Windows.Forms.CheckBox() - Me.TBGlitterShortName = New System.Windows.Forms.TextBox() - Me.CBEgotist = New System.Windows.Forms.CheckBox() - Me.CBTease = New System.Windows.Forms.CheckBox() - Me.GlitterAV = New System.Windows.Forms.PictureBox() - Me.GBGlitter1 = New System.Windows.Forms.GroupBox() - Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() - Me.BtnContact1ImageDir = New System.Windows.Forms.Button() - Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() - Me.BTNGlitter1 = New System.Windows.Forms.Button() - Me.LBLGlitterNC1 = New System.Windows.Forms.Label() - Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() - Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() - Me.CBGlitter1 = New System.Windows.Forms.CheckBox() - Me.TBGlitter1 = New System.Windows.Forms.TextBox() - Me.GlitterAV1 = New System.Windows.Forms.PictureBox() - Me.GBGlitter3 = New System.Windows.Forms.GroupBox() - Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() - Me.BtnContact3ImageDir = New System.Windows.Forms.Button() - Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() - Me.BTNGlitter3 = New System.Windows.Forms.Button() - Me.LBLGlitterNC3 = New System.Windows.Forms.Label() - Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() - Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() - Me.CBGlitter3 = New System.Windows.Forms.CheckBox() - Me.TBGlitter3 = New System.Windows.Forms.TextBox() - Me.GlitterAV3 = New System.Windows.Forms.PictureBox() - Me.GBGlitter2 = New System.Windows.Forms.GroupBox() - Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() - Me.BtnContact2ImageDir = New System.Windows.Forms.Button() - Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() - Me.BTNGlitter2 = New System.Windows.Forms.Button() - Me.LBLGlitterNC2 = New System.Windows.Forms.Label() - Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() - Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() - Me.CBGlitter2 = New System.Windows.Forms.CheckBox() - Me.TBGlitter2 = New System.Windows.Forms.TextBox() - Me.GlitterAV2 = New System.Windows.Forms.PictureBox() - Me.TpGames = New System.Windows.Forms.TabPage() - Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() - Me.LblCardsSetupNote = New System.Windows.Forms.Label() - Me.CBGameSounds = New System.Windows.Forms.CheckBox() - Me.GbxCardsGold = New System.Windows.Forms.GroupBox() - Me.GN6 = New System.Windows.Forms.TextBox() - Me.GP6 = New System.Windows.Forms.PictureBox() - Me.GN2 = New System.Windows.Forms.TextBox() - Me.GP2 = New System.Windows.Forms.PictureBox() - Me.GP5 = New System.Windows.Forms.PictureBox() - Me.GN1 = New System.Windows.Forms.TextBox() - Me.GP1 = New System.Windows.Forms.PictureBox() - Me.GN5 = New System.Windows.Forms.TextBox() - Me.GN3 = New System.Windows.Forms.TextBox() - Me.GP3 = New System.Windows.Forms.PictureBox() - Me.GP4 = New System.Windows.Forms.PictureBox() - Me.GN4 = New System.Windows.Forms.TextBox() - Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() - Me.CardBack = New System.Windows.Forms.PictureBox() - Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() - Me.BN6 = New System.Windows.Forms.TextBox() - Me.BN3 = New System.Windows.Forms.TextBox() - Me.BP3 = New System.Windows.Forms.PictureBox() - Me.BP6 = New System.Windows.Forms.PictureBox() - Me.BN2 = New System.Windows.Forms.TextBox() - Me.BN5 = New System.Windows.Forms.TextBox() - Me.BP5 = New System.Windows.Forms.PictureBox() - Me.BP2 = New System.Windows.Forms.PictureBox() - Me.BN1 = New System.Windows.Forms.TextBox() - Me.BN4 = New System.Windows.Forms.TextBox() - Me.BP4 = New System.Windows.Forms.PictureBox() - Me.BP1 = New System.Windows.Forms.PictureBox() - Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() - Me.SN6 = New System.Windows.Forms.TextBox() - Me.SP6 = New System.Windows.Forms.PictureBox() - Me.SN2 = New System.Windows.Forms.TextBox() - Me.SP2 = New System.Windows.Forms.PictureBox() - Me.SN1 = New System.Windows.Forms.TextBox() - Me.SP5 = New System.Windows.Forms.PictureBox() - Me.SP1 = New System.Windows.Forms.PictureBox() - Me.SN5 = New System.Windows.Forms.TextBox() - Me.SN3 = New System.Windows.Forms.TextBox() - Me.SN4 = New System.Windows.Forms.TextBox() - Me.SP3 = New System.Windows.Forms.PictureBox() - Me.SP4 = New System.Windows.Forms.PictureBox() - Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.Panel10 = New System.Windows.Forms.Panel() - Me.TBWishlistComment = New System.Windows.Forms.TextBox() - Me.Label32 = New System.Windows.Forms.Label() - Me.TBWishlistItem = New System.Windows.Forms.TextBox() - Me.radioGold = New System.Windows.Forms.RadioButton() - Me.Label42 = New System.Windows.Forms.Label() - Me.radioSilver = New System.Windows.Forms.RadioButton() - Me.TBWishlistURL = New System.Windows.Forms.TextBox() - Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() - Me.Label48 = New System.Windows.Forms.Label() - Me.Label73 = New System.Windows.Forms.Label() - Me.Label107 = New System.Windows.Forms.Label() - Me.BTNWishlistCreate = New System.Windows.Forms.Button() - Me.Label18 = New System.Windows.Forms.Label() - Me.PNLWishList = New System.Windows.Forms.Panel() - Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() - Me.LBLWishListText = New System.Windows.Forms.Label() - Me.LBLWishlistCost = New System.Windows.Forms.Label() - Me.WishlistCostGold = New System.Windows.Forms.PictureBox() - Me.LBLWishListName = New System.Windows.Forms.Label() - Me.WishlistPreview = New System.Windows.Forms.PictureBox() - Me.TabPage26 = New System.Windows.Forms.TabPage() - Me.Panel12 = New System.Windows.Forms.Panel() - Me.GroupBox9 = New System.Windows.Forms.GroupBox() - Me.Button32 = New System.Windows.Forms.Button() - Me.Button31 = New System.Windows.Forms.Button() - Me.PictureBox10 = New System.Windows.Forms.PictureBox() - Me.GroupBox5 = New System.Windows.Forms.GroupBox() - Me.CBTransparentTime = New System.Windows.Forms.CheckBox() - Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() - Me.Label137 = New System.Windows.Forms.Label() - Me.Label138 = New System.Windows.Forms.Label() - Me.LBLDateBackColor2 = New System.Windows.Forms.Label() - Me.LBLTextColor = New System.Windows.Forms.Label() - Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() - Me.LBLTextColor2 = New System.Windows.Forms.Label() - Me.LBLChatTextColor = New System.Windows.Forms.Label() - Me.LBLBackColor2 = New System.Windows.Forms.Label() - Me.LBLButtonColor = New System.Windows.Forms.Label() - Me.LBLChatWindowColor = New System.Windows.Forms.Label() - Me.LBLBackColor = New System.Windows.Forms.Label() - Me.LBLChatTextColor2 = New System.Windows.Forms.Label() - Me.LBLButtonColor2 = New System.Windows.Forms.Label() - Me.GroupBox11 = New System.Windows.Forms.GroupBox() - Me.Label144 = New System.Windows.Forms.Label() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.CBFlipBack = New System.Windows.Forms.CheckBox() - Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() - Me.Button17 = New System.Windows.Forms.Button() - Me.CBStretchBack = New System.Windows.Forms.CheckBox() - Me.Button18 = New System.Windows.Forms.Button() - Me.Label164 = New System.Windows.Forms.Label() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.Panel6 = New System.Windows.Forms.Panel() - Me.GroupBox69 = New System.Windows.Forms.GroupBox() - Me.TypesSpeedVal = New System.Windows.Forms.Label() - Me.TypeSpeedLabel = New System.Windows.Forms.Label() - Me.TimedWriting = New System.Windows.Forms.CheckBox() - Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() - Me.GroupBox68 = New System.Windows.Forms.GroupBox() - Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() - Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() - Me.Label165 = New System.Windows.Forms.Label() - Me.Label166 = New System.Windows.Forms.Label() - Me.GroupBox67 = New System.Windows.Forms.GroupBox() - Me.Label161 = New System.Windows.Forms.Label() - Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() - Me.Label162 = New System.Windows.Forms.Label() - Me.Label163 = New System.Windows.Forms.Label() - Me.Label158 = New System.Windows.Forms.Label() - Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() - Me.Label159 = New System.Windows.Forms.Label() - Me.Label160 = New System.Windows.Forms.Label() - Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() - Me.Label119 = New System.Windows.Forms.Label() - Me.Label157 = New System.Windows.Forms.Label() - Me.Label151 = New System.Windows.Forms.Label() - Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() - Me.Label154 = New System.Windows.Forms.Label() - Me.Label155 = New System.Windows.Forms.Label() - Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() - Me.Label146 = New System.Windows.Forms.Label() - Me.Label149 = New System.Windows.Forms.Label() - Me.GroupBox10 = New System.Windows.Forms.GroupBox() - Me.Label112 = New System.Windows.Forms.Label() - Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() - Me.Label6 = New System.Windows.Forms.Label() - Me.GroupBox57 = New System.Windows.Forms.GroupBox() - Me.Label139 = New System.Windows.Forms.Label() - Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() - Me.LBLVtf = New System.Windows.Forms.Label() - Me.LBLStf = New System.Windows.Forms.Label() - Me.SliderSTF = New System.Windows.Forms.TrackBar() - Me.TauntSlider = New System.Windows.Forms.TrackBar() - Me.Label106 = New System.Windows.Forms.Label() - Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() - Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() - Me.Label103 = New System.Windows.Forms.Label() - Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() - Me.Label105 = New System.Windows.Forms.Label() - Me.Label101 = New System.Windows.Forms.Label() - Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() - Me.Label102 = New System.Windows.Forms.Label() - Me.Label97 = New System.Windows.Forms.Label() - Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() - Me.Label99 = New System.Windows.Forms.Label() - Me.Label96 = New System.Windows.Forms.Label() - Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() - Me.Label95 = New System.Windows.Forms.Label() - Me.Label49 = New System.Windows.Forms.Label() - Me.Label141 = New System.Windows.Forms.Label() - Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() - Me.Label90 = New System.Windows.Forms.Label() - Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() - Me.Label91 = New System.Windows.Forms.Label() - Me.Label92 = New System.Windows.Forms.Label() - Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() - Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() - Me.CBRangeRuin = New System.Windows.Forms.CheckBox() - Me.GroupBox17 = New System.Windows.Forms.GroupBox() - Me.GroupBox19 = New System.Windows.Forms.GroupBox() - Me.Label110 = New System.Windows.Forms.Label() - Me.Label111 = New System.Windows.Forms.Label() - Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() - Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() - Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() - Me.Label26 = New System.Windows.Forms.Label() - Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() - Me.Label28 = New System.Windows.Forms.Label() - Me.Label27 = New System.Windows.Forms.Label() - Me.Label29 = New System.Windows.Forms.Label() - Me.GroupBox18 = New System.Windows.Forms.GroupBox() - Me.Label108 = New System.Windows.Forms.Label() - Me.Label109 = New System.Windows.Forms.Label() - Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() - Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() - Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() - Me.CBCensorConstant = New System.Windows.Forms.CheckBox() - Me.Label25 = New System.Windows.Forms.Label() - Me.Label20 = New System.Windows.Forms.Label() - Me.Label19 = New System.Windows.Forms.Label() - Me.Label24 = New System.Windows.Forms.Label() - Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() - Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() - Me.Label89 = New System.Windows.Forms.Label() - Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() - Me.Label86 = New System.Windows.Forms.Label() - Me.Label82 = New System.Windows.Forms.Label() - Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() - Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() - Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() - Me.PictureBox8 = New System.Windows.Forms.PictureBox() - Me.Label38 = New System.Windows.Forms.Label() - Me.TabPage13 = New System.Windows.Forms.TabPage() - Me.TabControl2 = New System.Windows.Forms.TabControl() - Me.TabPage27 = New System.Windows.Forms.TabPage() - Me.TBPlaylistSave = New System.Windows.Forms.TextBox() - Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() - Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() - Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() - Me.BTNPlaylistEnd = New System.Windows.Forms.Button() - Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() - Me.BTNPlaylistSave = New System.Windows.Forms.Button() - Me.Button7 = New System.Windows.Forms.Button() - Me.WBPlaylist = New System.Windows.Forms.WebBrowser() - Me.Label80 = New System.Windows.Forms.Label() - Me.LBLPlaylIstLink = New System.Windows.Forms.Label() - Me.LBLPlaylistModule = New System.Windows.Forms.Label() - Me.LBLPLaylistStart = New System.Windows.Forms.Label() - Me.LBPlaylist = New System.Windows.Forms.ListBox() - Me.TabPage14 = New System.Windows.Forms.TabPage() - Me.LBLKeywordPreview = New System.Windows.Forms.Label() - Me.Label88 = New System.Windows.Forms.Label() - Me.TBKeywordPreview = New System.Windows.Forms.TextBox() - Me.Button37 = New System.Windows.Forms.Button() - Me.Button50 = New System.Windows.Forms.Button() - Me.Button22 = New System.Windows.Forms.Button() - Me.TBKeyWords = New System.Windows.Forms.TextBox() - Me.LBKeyWords = New System.Windows.Forms.ListBox() - Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() - Me.TabPage24 = New System.Windows.Forms.TabPage() - Me.Button9 = New System.Windows.Forms.Button() - Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() - Me.Button4 = New System.Windows.Forms.Button() - Me.Button5 = New System.Windows.Forms.Button() - Me.TBResponses = New System.Windows.Forms.TextBox() - Me.LBResponses = New System.Windows.Forms.ListBox() - Me.RTBResponses = New System.Windows.Forms.RichTextBox() - Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() - Me.GroupBox29 = New System.Windows.Forms.GroupBox() - Me.Label51 = New System.Windows.Forms.Label() - Me.BTNVideoModClear = New System.Windows.Forms.Button() - Me.GroupBox28 = New System.Windows.Forms.GroupBox() - Me.CBVTType = New System.Windows.Forms.ComboBox() - Me.BTNVideoModLoad = New System.Windows.Forms.Button() - Me.GroupBox30 = New System.Windows.Forms.GroupBox() - Me.LBVidScript = New System.Windows.Forms.ListBox() - Me.BTNVideoModSave = New System.Windows.Forms.Button() - Me.TabPage15 = New System.Windows.Forms.TabPage() - Me.Label62 = New System.Windows.Forms.Label() - Me.Label61 = New System.Windows.Forms.Label() - Me.Label57 = New System.Windows.Forms.Label() - Me.Label58 = New System.Windows.Forms.Label() - Me.Label60 = New System.Windows.Forms.Label() - Me.TBGlitModFileName = New System.Windows.Forms.TextBox() - Me.GroupBox34 = New System.Windows.Forms.GroupBox() - Me.Label52 = New System.Windows.Forms.Label() - Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() - Me.Button26 = New System.Windows.Forms.Button() - Me.Label56 = New System.Windows.Forms.Label() - Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() - Me.LBGlitModScripts = New System.Windows.Forms.ListBox() - Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() - Me.LBLGlitModDomType = New System.Windows.Forms.Label() - Me.Button29 = New System.Windows.Forms.Button() - Me.CBGlitModType = New System.Windows.Forms.ComboBox() - Me.Label59 = New System.Windows.Forms.Label() - Me.Label50 = New System.Windows.Forms.Label() - Me.TabPage25 = New System.Windows.Forms.TabPage() - Me.Panel11 = New System.Windows.Forms.Panel() - Me.GroupBox62 = New System.Windows.Forms.GroupBox() - Me.RBGerman = New System.Windows.Forms.RadioButton() - Me.RBEnglish = New System.Windows.Forms.RadioButton() - Me.GroupBox33 = New System.Windows.Forms.GroupBox() - Me.BTNOfflineMode = New System.Windows.Forms.Button() - Me.LBLOfflineMode = New System.Windows.Forms.Label() - Me.Label140 = New System.Windows.Forms.Label() - Me.Button11 = New System.Windows.Forms.Button() - Me.LBLChastityState = New System.Windows.Forms.Label() - Me.Label120 = New System.Windows.Forms.Label() - Me.GroupBox27 = New System.Windows.Forms.GroupBox() - Me.Button6 = New System.Windows.Forms.Button() - Me.LBLSesSpace = New System.Windows.Forms.Label() - Me.Button3 = New System.Windows.Forms.Button() - Me.LBLSesFiles = New System.Windows.Forms.Label() - Me.Label125 = New System.Windows.Forms.Label() - Me.Label124 = New System.Windows.Forms.Label() - Me.GroupBox20 = New System.Windows.Forms.GroupBox() - Me.Button1 = New System.Windows.Forms.Button() - Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() - Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() - Me.Label117 = New System.Windows.Forms.Label() - Me.Label116 = New System.Windows.Forms.Label() - Me.PBCurrent = New System.Windows.Forms.ProgressBar() - Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() - Me.PBMaintenance = New System.Windows.Forms.ProgressBar() - Me.LBLMaintenance = New System.Windows.Forms.Label() - Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() - Me.WebToy = New System.Windows.Forms.WebBrowser() - Me.GroupBox15 = New System.Windows.Forms.GroupBox() - Me.Label115 = New System.Windows.Forms.Label() - Me.TBWebStop = New System.Windows.Forms.TextBox() - Me.TBWebStart = New System.Windows.Forms.TextBox() - Me.Label114 = New System.Windows.Forms.Label() - Me.PictureBox9 = New System.Windows.Forms.PictureBox() - Me.Label148 = New System.Windows.Forms.Label() - Me.TabPage28 = New System.Windows.Forms.TabPage() - Me.TabControl3 = New System.Windows.Forms.TabControl() - Me.TabPage29 = New System.Windows.Forms.TabPage() - Me.Label143 = New System.Windows.Forms.Label() - Me.LBLDebugScriptTime = New System.Windows.Forms.Label() - Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() - Me.GroupBox26 = New System.Windows.Forms.GroupBox() - Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() - Me.Button19 = New System.Windows.Forms.Button() - Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() - Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() - Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() - Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() - Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() - Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() - Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() - Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() - Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() - Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() - Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() - Me.Label145 = New System.Windows.Forms.Label() - Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() - Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() - Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() - Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() - Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() - Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() - Me.Label142 = New System.Windows.Forms.Label() - Me.Label150 = New System.Windows.Forms.Label() - Me.Label152 = New System.Windows.Forms.Label() - Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() - Me.Label147 = New System.Windows.Forms.Label() - Me.TabPage30 = New System.Windows.Forms.TabPage() - Me.Button33 = New System.Windows.Forms.Button() - Me.Button24 = New System.Windows.Forms.Button() - Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.Panel5 = New System.Windows.Forms.Panel() - Me.Label130 = New System.Windows.Forms.Label() - Me.Label123 = New System.Windows.Forms.Label() - Me.Label69 = New System.Windows.Forms.Label() - Me.Label113 = New System.Windows.Forms.Label() - Me.Label40 = New System.Windows.Forms.Label() - Me.Label35 = New System.Windows.Forms.Label() - Me.Label33 = New System.Windows.Forms.Label() - Me.Label17 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.PictureBox3 = New System.Windows.Forms.PictureBox() - Me.Label41 = New System.Windows.Forms.Label() - Me.GBGiveUp = New System.Windows.Forms.GroupBox() - Me.giveupCheckBox = New System.Windows.Forms.CheckBox() - Me.GroupBox47 = New System.Windows.Forms.GroupBox() - Me.GroupBox41 = New System.Windows.Forms.GroupBox() - Me.Button34 = New System.Windows.Forms.Button() - Me.GroupBox40 = New System.Windows.Forms.GroupBox() - Me.GroupBox44 = New System.Windows.Forms.GroupBox() - Me.Label100 = New System.Windows.Forms.Label() - Me.GroupBox6 = New System.Windows.Forms.GroupBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() - Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() - Me.Label94 = New System.Windows.Forms.Label() - Me.LBLLastRuined = New System.Windows.Forms.Label() - Me.Label65 = New System.Windows.Forms.Label() - Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() - Me.LBLLastOrgasm = New System.Windows.Forms.Label() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.GroupBox21 = New System.Windows.Forms.GroupBox() - Me.Label153 = New System.Windows.Forms.Label() - Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() - Me.Label156 = New System.Windows.Forms.Label() - Me.GroupBox12 = New System.Windows.Forms.GroupBox() - Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() - Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() - Me.GetColor = New System.Windows.Forms.ColorDialog() - Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() - Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() - Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() - Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() - Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() - Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() - Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) - Me.GroupBox65 = New System.Windows.Forms.GroupBox() - Me.Label136 = New System.Windows.Forms.Label() - Me.Label134 = New System.Windows.Forms.Label() - Me.Label132 = New System.Windows.Forms.Label() - Me.TrackBar1 = New System.Windows.Forms.TrackBar() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.Label135 = New System.Windows.Forms.Label() - Me.TrackBar2 = New System.Windows.Forms.TrackBar() - Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() - Me.SettingsPanel.SuspendLayout() - Me.SettingsTabs.SuspendLayout() - Me.TabPage1.SuspendLayout() - Me.PNLGeneralSettings.SuspendLayout() - Me.GroupBox64.SuspendLayout() - Me.GBDommeImages.SuspendLayout() - CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGeneralTextToSpeech.SuspendLayout() - CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBSafeword.SuspendLayout() - Me.GBGeneralSystem.SuspendLayout() - Me.GBGeneralImages.SuspendLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGeneralSettings.SuspendLayout() - Me.GBSubFont.SuspendLayout() - CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDommeFont.SuspendLayout() - CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage2.SuspendLayout() - Me.Panel3.SuspendLayout() - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomTypingStyle.SuspendLayout() - CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox63.SuspendLayout() - Me.GBDomRanges.SuspendLayout() - CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomStats.SuspendLayout() - CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomPersonality.SuspendLayout() - Me.GBDomOrgasms.SuspendLayout() - CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomPetNames.SuspendLayout() - Me.TabPage10.SuspendLayout() - Me.Panel2.SuspendLayout() - Me.GroupBox22.SuspendLayout() - CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox45.SuspendLayout() - CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox35.SuspendLayout() - Me.GroupBox39.SuspendLayout() - Me.GroupBox38.SuspendLayout() - Me.GroupBox37.SuspendLayout() - Me.GroupBox36.SuspendLayout() - Me.GroupBox13.SuspendLayout() - Me.GroupBox7.SuspendLayout() - CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox32.SuspendLayout() - CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage16.SuspendLayout() - Me.Panel9.SuspendLayout() - Me.GroupBox31.SuspendLayout() - Me.TCScripts.SuspendLayout() - Me.TabPage21.SuspendLayout() - Me.TabPage17.SuspendLayout() - Me.TabPage18.SuspendLayout() - Me.TabPage19.SuspendLayout() - Me.GroupBox42.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox43.SuspendLayout() - Me.TabPage7.SuspendLayout() - Me.TabControl4.SuspendLayout() - Me.TpImagesUrlFiles.SuspendLayout() - Me.GroupBox66.SuspendLayout() - CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TpImagesGenre.SuspendLayout() - Me.GrbImageUrlFiles.SuspendLayout() - Me.TlpImageUrls.SuspendLayout() - Me.GbxImagesGenre.SuspendLayout() - Me.TableLayoutPanel1.SuspendLayout() - Me.TabPage33.SuspendLayout() - Me.TabControl5.SuspendLayout() - Me.TabPage34.SuspendLayout() - CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage35.SuspendLayout() - Me.GroupBox55.SuspendLayout() - Me.GroupBox53.SuspendLayout() - Me.GroupBox49.SuspendLayout() - Me.GroupBox46.SuspendLayout() - Me.GroupBox54.SuspendLayout() - Me.GroupBox51.SuspendLayout() - Me.GroupBox50.SuspendLayout() - Me.GroupBox48.SuspendLayout() - Me.TabPage11.SuspendLayout() - Me.Panel7.SuspendLayout() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TpVideoSettings.SuspendLayout() - Me.PnlVideoSettings.SuspendLayout() - CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxVideoGeneralD.SuspendLayout() - Me.GbxVideoSpecialD.SuspendLayout() - Me.GbxVideoGenreD.SuspendLayout() - Me.GbxVideoDescription.SuspendLayout() - Me.GbxVideoGeneral.SuspendLayout() - Me.GbxVideoSpecial.SuspendLayout() - Me.GbxVideoGenre.SuspendLayout() - Me.TabPage20.SuspendLayout() - Me.TabControl1.SuspendLayout() - Me.TabPage22.SuspendLayout() - Me.PNLGlitter.SuspendLayout() - Me.GBGlitterD.SuspendLayout() - Me.GrbGlitterfeed.SuspendLayout() - CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGlitter1.SuspendLayout() - CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGlitter3.SuspendLayout() - CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGlitter2.SuspendLayout() - CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TpGames.SuspendLayout() - Me.GbxCardsGold.SuspendLayout() - CType(Me.GP6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP4, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxCardsBackground.SuspendLayout() - CType(Me.CardBack, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxCardsBronze.SuspendLayout() - CType(Me.BP3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxCardsSilver.SuspendLayout() - CType(Me.SP6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP4, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage6.SuspendLayout() - Me.Panel10.SuspendLayout() - CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).BeginInit() - Me.PNLWishList.SuspendLayout() - CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage26.SuspendLayout() - Me.Panel12.SuspendLayout() - Me.GroupBox9.SuspendLayout() - CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox5.SuspendLayout() - Me.GroupBox11.SuspendLayout() - Me.GroupBox1.SuspendLayout() - CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage4.SuspendLayout() - Me.Panel6.SuspendLayout() - Me.GroupBox69.SuspendLayout() - CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox68.SuspendLayout() - CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox67.SuspendLayout() - CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox10.SuspendLayout() - CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox57.SuspendLayout() - CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBRangeRuinChance.SuspendLayout() - CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox17.SuspendLayout() - Me.GroupBox19.SuspendLayout() - CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox18.SuspendLayout() - CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBRangeOrgasmChance.SuspendLayout() - CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage13.SuspendLayout() - Me.TabControl2.SuspendLayout() - Me.TabPage27.SuspendLayout() - Me.TabPage14.SuspendLayout() - Me.TabPage24.SuspendLayout() - Me.TabPage8.SuspendLayout() - Me.GroupBox29.SuspendLayout() - Me.GroupBox28.SuspendLayout() - Me.GroupBox30.SuspendLayout() - Me.TabPage15.SuspendLayout() - Me.GroupBox34.SuspendLayout() - Me.TabPage25.SuspendLayout() - Me.Panel11.SuspendLayout() - Me.GroupBox62.SuspendLayout() - Me.GroupBox33.SuspendLayout() - Me.GroupBox27.SuspendLayout() - Me.GroupBox20.SuspendLayout() - Me.GroupBox15.SuspendLayout() - CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage28.SuspendLayout() - Me.TabControl3.SuspendLayout() - Me.TabPage29.SuspendLayout() - Me.GroupBox26.SuspendLayout() - Me.TabPage30.SuspendLayout() - Me.TabPage5.SuspendLayout() - Me.Panel5.SuspendLayout() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGiveUp.SuspendLayout() - Me.GroupBox47.SuspendLayout() - Me.GroupBox41.SuspendLayout() - Me.GroupBox44.SuspendLayout() - Me.GroupBox6.SuspendLayout() - Me.GroupBox21.SuspendLayout() - Me.GroupBox12.SuspendLayout() - Me.GroupBox65.SuspendLayout() - CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'SettingsPanel - ' - Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray - Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SettingsPanel.Controls.Add(Me.SettingsTabs) - Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) - Me.SettingsPanel.Name = "SettingsPanel" - Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) - Me.SettingsPanel.TabIndex = 94 - ' - 'SettingsTabs - ' - Me.SettingsTabs.Controls.Add(Me.TabPage1) - Me.SettingsTabs.Controls.Add(Me.TabPage2) - Me.SettingsTabs.Controls.Add(Me.TabPage10) - Me.SettingsTabs.Controls.Add(Me.TabPage16) - Me.SettingsTabs.Controls.Add(Me.TabPage7) - Me.SettingsTabs.Controls.Add(Me.TabPage33) - Me.SettingsTabs.Controls.Add(Me.TabPage11) - Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) - Me.SettingsTabs.Controls.Add(Me.TabPage20) - Me.SettingsTabs.Controls.Add(Me.TabPage26) - Me.SettingsTabs.Controls.Add(Me.TabPage4) - Me.SettingsTabs.Controls.Add(Me.TabPage13) - Me.SettingsTabs.Controls.Add(Me.TabPage25) - Me.SettingsTabs.Controls.Add(Me.TabPage28) - Me.SettingsTabs.Controls.Add(Me.TabPage5) - Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) - Me.SettingsTabs.Name = "SettingsTabs" - Me.SettingsTabs.SelectedIndex = 0 - Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) - Me.SettingsTabs.TabIndex = 0 - ' - 'TabPage1 - ' - Me.TabPage1.BackColor = System.Drawing.Color.Silver - Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) - 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(720, 448) - Me.TabPage1.TabIndex = 0 - Me.TabPage1.Text = "General" - ' - 'PNLGeneralSettings - ' - Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray - Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) - Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) - Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) - Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) - Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) - Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) - Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) - Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) - Me.PNLGeneralSettings.Name = "PNLGeneralSettings" - Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) - Me.PNLGeneralSettings.TabIndex = 0 - ' - 'BtnImportSettings - ' - Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent - Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export - Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.BtnImportSettings.FlatAppearance.BorderSize = 0 - Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black - Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) - Me.BtnImportSettings.Name = "BtnImportSettings" - Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) - Me.BtnImportSettings.TabIndex = 158 - Me.BtnImportSettings.UseVisualStyleBackColor = False - ' - 'LblImportSettings - ' - Me.LblImportSettings.AutoSize = True - Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblImportSettings.ForeColor = System.Drawing.Color.Black - Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) - Me.LblImportSettings.Name = "LblImportSettings" - Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) - Me.LblImportSettings.TabIndex = 159 - Me.LblImportSettings.Text = "import" - Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox64 - ' - Me.GroupBox64.BackColor = System.Drawing.Color.LightGray - Me.GroupBox64.Controls.Add(Me.CBMuteMedia) - Me.GroupBox64.ForeColor = System.Drawing.Color.Black - Me.GroupBox64.Location = New System.Drawing.Point(440, 258) - Me.GroupBox64.Name = "GroupBox64" - Me.GroupBox64.Size = New System.Drawing.Size(259, 49) - Me.GroupBox64.TabIndex = 157 - Me.GroupBox64.TabStop = False - Me.GroupBox64.Text = "Media Options" - ' - 'CBMuteMedia - ' - Me.CBMuteMedia.AutoSize = True - Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia - Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black - Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) - Me.CBMuteMedia.Name = "CBMuteMedia" - Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) - Me.CBMuteMedia.TabIndex = 6 - Me.CBMuteMedia.TabStop = False - Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" - Me.CBMuteMedia.UseVisualStyleBackColor = True - ' - 'GBDommeImages - ' - Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray - Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) - Me.GBDommeImages.Controls.Add(Me.teaseRadio) - Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) - Me.GBDommeImages.Controls.Add(Me.offRadio) - Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) - Me.GBDommeImages.Controls.Add(Me.timedRadio) - Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) - Me.GBDommeImages.ForeColor = System.Drawing.Color.Black - Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) - Me.GBDommeImages.Name = "GBDommeImages" - Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) - Me.GBDommeImages.TabIndex = 156 - Me.GBDommeImages.TabStop = False - Me.GBDommeImages.Text = "Slideshow Options" - ' - 'slideshowNumBox - ' - Me.slideshowNumBox.BackColor = System.Drawing.Color.White - Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black - Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) - Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) - Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.slideshowNumBox.Name = "slideshowNumBox" - Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) - Me.slideshowNumBox.TabIndex = 20 - Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) - ' - 'teaseRadio - ' - Me.teaseRadio.AutoSize = True - Me.teaseRadio.Checked = True - Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.teaseRadio.ForeColor = System.Drawing.Color.Black - Me.teaseRadio.Location = New System.Drawing.Point(149, 21) - Me.teaseRadio.Name = "teaseRadio" - Me.teaseRadio.Size = New System.Drawing.Size(55, 17) - Me.teaseRadio.TabIndex = 21 - Me.teaseRadio.TabStop = True - Me.teaseRadio.Text = "Tease" - Me.teaseRadio.UseVisualStyleBackColor = True - ' - 'CBNewSlideshow - ' - Me.CBNewSlideshow.AutoSize = True - Me.CBNewSlideshow.Checked = True - Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black - Me.CBNewSlideshow.Location = New System.Drawing.Point(6, 100) - Me.CBNewSlideshow.Name = "CBNewSlideshow" - Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) - Me.CBNewSlideshow.TabIndex = 18 - Me.CBNewSlideshow.TabStop = False - Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" - Me.CBNewSlideshow.UseVisualStyleBackColor = True - ' - 'offRadio - ' - Me.offRadio.AutoSize = True - Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.offRadio.ForeColor = System.Drawing.Color.Black - Me.offRadio.Location = New System.Drawing.Point(6, 21) - Me.offRadio.Name = "offRadio" - Me.offRadio.Size = New System.Drawing.Size(60, 17) - Me.offRadio.TabIndex = 18 - Me.offRadio.Text = "Manual" - Me.offRadio.UseVisualStyleBackColor = True - ' - 'BTNDomImageDir - ' - Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray - Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black - Me.BTNDomImageDir.Location = New System.Drawing.Point(6, 45) - Me.BTNDomImageDir.Name = "BTNDomImageDir" - Me.BTNDomImageDir.Size = New System.Drawing.Size(198, 22) - Me.BTNDomImageDir.TabIndex = 17 - Me.BTNDomImageDir.Text = "Set Domme Images Directory" - Me.BTNDomImageDir.UseVisualStyleBackColor = False - ' - 'timedRadio - ' - Me.timedRadio.AutoSize = True - Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.timedRadio.ForeColor = System.Drawing.Color.Black - Me.timedRadio.Location = New System.Drawing.Point(72, 23) - Me.timedRadio.Name = "timedRadio" - Me.timedRadio.Size = New System.Drawing.Size(14, 13) - Me.timedRadio.TabIndex = 19 - Me.timedRadio.UseVisualStyleBackColor = True - ' - 'TbxDomImageDir - ' - Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxDomImageDir.Location = New System.Drawing.Point(6, 73) - Me.TbxDomImageDir.Name = "TbxDomImageDir" - Me.TbxDomImageDir.ReadOnly = True - Me.TbxDomImageDir.Size = New System.Drawing.Size(198, 20) - Me.TbxDomImageDir.TabIndex = 0 - Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir - ' - 'GBGeneralTextToSpeech - ' - Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray - Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) - Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) - Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) - Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) - Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) - Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) - Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) - Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) - Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black - Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) - Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" - Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) - Me.GBGeneralTextToSpeech.TabIndex = 0 - Me.GBGeneralTextToSpeech.TabStop = False - Me.GBGeneralTextToSpeech.Text = "Text to Speech" - ' - 'LBLVRate - ' - Me.LBLVRate.Location = New System.Drawing.Point(202, 52) - Me.LBLVRate.Name = "LBLVRate" - Me.LBLVRate.Size = New System.Drawing.Size(45, 13) - Me.LBLVRate.TabIndex = 158 - Me.LBLVRate.Text = "100" - Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label93 - ' - Me.Label93.AutoSize = True - Me.Label93.Location = New System.Drawing.Point(141, 52) - Me.Label93.Name = "Label93" - Me.Label93.Size = New System.Drawing.Size(33, 13) - Me.Label93.TabIndex = 157 - Me.Label93.Text = "Rate:" - ' - 'LBLVVolume - ' - Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) - Me.LBLVVolume.Name = "LBLVVolume" - Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) - Me.LBLVVolume.TabIndex = 33 - Me.LBLVVolume.Text = "100" - Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label68 - ' - Me.Label68.AutoSize = True - Me.Label68.Location = New System.Drawing.Point(14, 52) - Me.Label68.Name = "Label68" - Me.Label68.Size = New System.Drawing.Size(45, 13) - Me.Label68.TabIndex = 32 - Me.Label68.Text = "Volume:" - ' - 'SliderVRate - ' - Me.SliderVRate.Location = New System.Drawing.Point(133, 68) - Me.SliderVRate.Minimum = -10 - Me.SliderVRate.Name = "SliderVRate" - Me.SliderVRate.Size = New System.Drawing.Size(120, 45) - Me.SliderVRate.TabIndex = 31 - ' - 'SliderVVolume - ' - Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) - Me.SliderVVolume.Maximum = 100 - Me.SliderVVolume.Name = "SliderVVolume" - Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) - Me.SliderVVolume.TabIndex = 30 - Me.SliderVVolume.Value = 50 - ' - 'TTSCheckBox - ' - Me.TTSCheckBox.AutoSize = True - Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black - Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) - Me.TTSCheckBox.Name = "TTSCheckBox" - Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) - Me.TTSCheckBox.TabIndex = 28 - Me.TTSCheckBox.TabStop = False - Me.TTSCheckBox.Text = "Enable" - Me.TTSCheckBox.UseVisualStyleBackColor = True - ' - 'TTSComboBox - ' - Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window - Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText - Me.TTSComboBox.FormattingEnabled = True - Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) - Me.TTSComboBox.Name = "TTSComboBox" - Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) - Me.TTSComboBox.TabIndex = 29 - Me.TTSComboBox.TabStop = False - ' - 'GBSafeword - ' - Me.GBSafeword.BackColor = System.Drawing.Color.LightGray - Me.GBSafeword.Controls.Add(Me.LBLSafeword) - Me.GBSafeword.Controls.Add(Me.TBSafeword) - Me.GBSafeword.ForeColor = System.Drawing.Color.Black - Me.GBSafeword.Location = New System.Drawing.Point(440, 179) - Me.GBSafeword.Name = "GBSafeword" - Me.GBSafeword.Size = New System.Drawing.Size(259, 74) - Me.GBSafeword.TabIndex = 0 - Me.GBSafeword.TabStop = False - Me.GBSafeword.Text = "Safeword" - ' - 'LBLSafeword - ' - Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) - Me.LBLSafeword.Name = "LBLSafeword" - Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) - Me.LBLSafeword.TabIndex = 0 - Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able " & - "to continue." - Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBSafeword - ' - Me.TBSafeword.Location = New System.Drawing.Point(17, 19) - Me.TBSafeword.Name = "TBSafeword" - Me.TBSafeword.Size = New System.Drawing.Size(225, 20) - Me.TBSafeword.TabIndex = 27 - Me.TBSafeword.Text = "red" - Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GBGeneralSystem - ' - Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) - Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) - Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) - Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) - Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) - Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) - Me.GBGeneralSystem.Name = "GBGeneralSystem" - Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) - Me.GBGeneralSystem.TabIndex = 0 - Me.GBGeneralSystem.TabStop = False - Me.GBGeneralSystem.Text = "System" - ' - 'CBAuditStartup - ' - Me.CBAuditStartup.AutoSize = True - Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black - Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) - Me.CBAuditStartup.Name = "CBAuditStartup" - Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) - Me.CBAuditStartup.TabIndex = 26 - Me.CBAuditStartup.TabStop = False - Me.CBAuditStartup.Text = "Audit Scripts on Startup" - Me.CBAuditStartup.UseVisualStyleBackColor = True - ' - 'CBDomDel - ' - Me.CBDomDel.AutoSize = True - Me.CBDomDel.ForeColor = System.Drawing.Color.Black - Me.CBDomDel.Location = New System.Drawing.Point(7, 110) - Me.CBDomDel.Name = "CBDomDel" - Me.CBDomDel.Size = New System.Drawing.Size(197, 17) - Me.CBDomDel.TabIndex = 27 - Me.CBDomDel.TabStop = False - Me.CBDomDel.Text = "Allow Domme to Delete Local Media" - Me.CBDomDel.UseVisualStyleBackColor = True - ' - 'CBSettingsPause - ' - Me.CBSettingsPause.AutoSize = True - Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black - Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) - Me.CBSettingsPause.Name = "CBSettingsPause" - Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) - Me.CBSettingsPause.TabIndex = 22 - Me.CBSettingsPause.TabStop = False - Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" - Me.CBSettingsPause.UseVisualStyleBackColor = True - ' - 'CBSaveChatlogExit - ' - Me.CBSaveChatlogExit.AutoSize = True - Me.CBSaveChatlogExit.Checked = True - Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black - Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) - Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" - Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) - Me.CBSaveChatlogExit.TabIndex = 25 - Me.CBSaveChatlogExit.TabStop = False - Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" - Me.CBSaveChatlogExit.UseVisualStyleBackColor = True - ' - 'CBAutosaveChatlog - ' - Me.CBAutosaveChatlog.AutoSize = True - Me.CBAutosaveChatlog.Checked = True - Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black - Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) - Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" - Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) - Me.CBAutosaveChatlog.TabIndex = 24 - Me.CBAutosaveChatlog.TabStop = False - Me.CBAutosaveChatlog.Text = "Autosave Chatlog" - Me.CBAutosaveChatlog.UseVisualStyleBackColor = True - ' - 'GBGeneralImages - ' - Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) - Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) - Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) - Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) - Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) - Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) - Me.GBGeneralImages.Name = "GBGeneralImages" - Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) - Me.GBGeneralImages.TabIndex = 0 - Me.GBGeneralImages.TabStop = False - Me.GBGeneralImages.Text = "Images" - ' - 'CBImageInfo - ' - Me.CBImageInfo.AutoSize = True - Me.CBImageInfo.ForeColor = System.Drawing.Color.Black - Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) - Me.CBImageInfo.Name = "CBImageInfo" - Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) - Me.CBImageInfo.TabIndex = 16 - Me.CBImageInfo.TabStop = False - Me.CBImageInfo.Text = "Display Image Information" - Me.CBImageInfo.UseVisualStyleBackColor = True - ' - 'CBSlideshowRandom - ' - Me.CBSlideshowRandom.AutoSize = True - Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black - Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) - Me.CBSlideshowRandom.Name = "CBSlideshowRandom" - Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) - Me.CBSlideshowRandom.TabIndex = 14 - Me.CBSlideshowRandom.TabStop = False - Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" - Me.CBSlideshowRandom.UseVisualStyleBackColor = True - ' - 'landscapeCheckBox - ' - Me.landscapeCheckBox.AutoSize = True - Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black - Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) - Me.landscapeCheckBox.Name = "landscapeCheckBox" - Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) - Me.landscapeCheckBox.TabIndex = 15 - Me.landscapeCheckBox.TabStop = False - Me.landscapeCheckBox.Text = "Stretch Landscape Images" - Me.landscapeCheckBox.UseVisualStyleBackColor = True - ' - 'CBBlogImageWindow - ' - Me.CBBlogImageWindow.AutoSize = True - Me.CBBlogImageWindow.Checked = True - Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black - Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) - Me.CBBlogImageWindow.Name = "CBBlogImageWindow" - Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) - Me.CBBlogImageWindow.TabIndex = 12 - Me.CBBlogImageWindow.TabStop = False - Me.CBBlogImageWindow.Text = "Save Blog Images From Session" - Me.CBBlogImageWindow.UseVisualStyleBackColor = True - ' - 'CBSlideshowSubDir - ' - Me.CBSlideshowSubDir.AutoSize = True - Me.CBSlideshowSubDir.Checked = True - Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black - Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) - Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" - Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) - Me.CBSlideshowSubDir.TabIndex = 13 - Me.CBSlideshowSubDir.TabStop = False - Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" - Me.CBSlideshowSubDir.UseVisualStyleBackColor = True - ' - 'PictureBox2 - ' - Me.PictureBox2.BackColor = System.Drawing.Color.LightGray - Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox2.Location = New System.Drawing.Point(9, 6) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(160, 19) - Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox2.TabIndex = 148 - Me.PictureBox2.TabStop = False - ' - 'GBGeneralSettings - ' - Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray - Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) - Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) - Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) - Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) - Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) - Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) - Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) - Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black - Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) - Me.GBGeneralSettings.Name = "GBGeneralSettings" - Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) - Me.GBGeneralSettings.TabIndex = 0 - Me.GBGeneralSettings.TabStop = False - Me.GBGeneralSettings.Text = "Chat Window" - ' - 'CBWebtease - ' - Me.CBWebtease.AutoSize = True - Me.CBWebtease.ForeColor = System.Drawing.Color.Black - Me.CBWebtease.Location = New System.Drawing.Point(6, 110) - Me.CBWebtease.Name = "CBWebtease" - Me.CBWebtease.Size = New System.Drawing.Size(105, 17) - Me.CBWebtease.TabIndex = 5 - Me.CBWebtease.TabStop = False - Me.CBWebtease.Text = "Webtease Mode" - Me.CBWebtease.UseVisualStyleBackColor = True - ' - 'GBSubFont - ' - Me.GBSubFont.Controls.Add(Me.BTNSubColor) - Me.GBSubFont.Controls.Add(Me.LBLSubColor) - Me.GBSubFont.Controls.Add(Me.NBFontSize) - Me.GBSubFont.Controls.Add(Me.Label2) - Me.GBSubFont.Controls.Add(Me.FontComboBox) - Me.GBSubFont.Location = New System.Drawing.Point(6, 219) - Me.GBSubFont.Name = "GBSubFont" - Me.GBSubFont.Size = New System.Drawing.Size(200, 77) - Me.GBSubFont.TabIndex = 0 - Me.GBSubFont.TabStop = False - Me.GBSubFont.Text = "Sub Font Settings" - ' - 'BTNSubColor - ' - Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray - Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNSubColor.ForeColor = System.Drawing.Color.Black - Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) - Me.BTNSubColor.Name = "BTNSubColor" - Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) - Me.BTNSubColor.TabIndex = 8 - Me.BTNSubColor.Text = "Sub Name Color" - Me.BTNSubColor.UseVisualStyleBackColor = False - ' - 'LBLSubColor - ' - Me.LBLSubColor.BackColor = System.Drawing.Color.White - Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor - Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) - Me.LBLSubColor.Name = "LBLSubColor" - Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) - Me.LBLSubColor.TabIndex = 0 - Me.LBLSubColor.Text = "Preview" - Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBFontSize - ' - Me.NBFontSize.BackColor = System.Drawing.Color.White - Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBFontSize.ForeColor = System.Drawing.Color.Black - Me.NBFontSize.Location = New System.Drawing.Point(147, 47) - Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBFontSize.Name = "NBFontSize" - Me.NBFontSize.Size = New System.Drawing.Size(45, 20) - Me.NBFontSize.TabIndex = 11 - Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label2 - ' - Me.Label2.BackColor = System.Drawing.Color.Transparent - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.ForeColor = System.Drawing.Color.Black - Me.Label2.Location = New System.Drawing.Point(117, 45) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(30, 20) - Me.Label2.TabIndex = 63 - Me.Label2.Text = "Size:" - Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'FontComboBox - ' - Me.FontComboBox.FormattingEnabled = True - Me.FontComboBox.Location = New System.Drawing.Point(6, 46) - Me.FontComboBox.Name = "FontComboBox" - Me.FontComboBox.Size = New System.Drawing.Size(110, 21) - Me.FontComboBox.TabIndex = 9 - ' - 'GBDommeFont - ' - Me.GBDommeFont.Controls.Add(Me.BTNDomColor) - Me.GBDommeFont.Controls.Add(Me.LBLDomColor) - Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) - Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) - Me.GBDommeFont.Controls.Add(Me.Label7) - Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) - Me.GBDommeFont.Name = "GBDommeFont" - Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) - Me.GBDommeFont.TabIndex = 0 - Me.GBDommeFont.TabStop = False - Me.GBDommeFont.Text = "Domme Font Settings" - ' - 'BTNDomColor - ' - Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray - Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomColor.ForeColor = System.Drawing.Color.Black - Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) - Me.BTNDomColor.Name = "BTNDomColor" - Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) - Me.BTNDomColor.TabIndex = 5 - Me.BTNDomColor.Text = "Domme Name Color" - Me.BTNDomColor.UseVisualStyleBackColor = False - ' - 'LBLDomColor - ' - Me.LBLDomColor.BackColor = System.Drawing.Color.White - Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor - Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) - Me.LBLDomColor.Name = "LBLDomColor" - Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) - Me.LBLDomColor.TabIndex = 0 - Me.LBLDomColor.Text = "Preview" - Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'FontComboBoxD - ' - Me.FontComboBoxD.FormattingEnabled = True - Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) - Me.FontComboBoxD.Name = "FontComboBoxD" - Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) - Me.FontComboBoxD.TabIndex = 6 - ' - 'NBFontSizeD - ' - Me.NBFontSizeD.BackColor = System.Drawing.Color.White - Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black - Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) - Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBFontSizeD.Name = "NBFontSizeD" - Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) - Me.NBFontSizeD.TabIndex = 7 - Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label7 - ' - Me.Label7.BackColor = System.Drawing.Color.Transparent - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.ForeColor = System.Drawing.Color.Black - Me.Label7.Location = New System.Drawing.Point(117, 45) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(30, 20) - Me.Label7.TabIndex = 172 - Me.Label7.Text = "Size:" - Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBInputIcon - ' - Me.CBInputIcon.AutoSize = True - Me.CBInputIcon.Checked = True - Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBInputIcon.ForeColor = System.Drawing.Color.Black - Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) - Me.CBInputIcon.Name = "CBInputIcon" - Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) - Me.CBInputIcon.TabIndex = 4 - Me.CBInputIcon.TabStop = False - Me.CBInputIcon.Text = "Show Icon During Input Questions" - Me.CBInputIcon.UseVisualStyleBackColor = True - ' - 'typeinstantlyCheckBox - ' - Me.typeinstantlyCheckBox.AutoSize = True - Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black - Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) - Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" - Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) - Me.typeinstantlyCheckBox.TabIndex = 3 - Me.typeinstantlyCheckBox.TabStop = False - Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" - Me.typeinstantlyCheckBox.UseVisualStyleBackColor = True - ' - 'timestampCheckBox - ' - Me.timestampCheckBox.AutoSize = True - Me.timestampCheckBox.Checked = True - Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked - Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black - Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) - Me.timestampCheckBox.Name = "timestampCheckBox" - Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) - Me.timestampCheckBox.TabIndex = 1 - Me.timestampCheckBox.TabStop = False - Me.timestampCheckBox.Text = "Show Timestamps" - Me.timestampCheckBox.UseVisualStyleBackColor = True - ' - 'shownamesCheckBox - ' - Me.shownamesCheckBox.AutoSize = True - Me.shownamesCheckBox.Checked = True - Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked - Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black - Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) - Me.shownamesCheckBox.Name = "shownamesCheckBox" - Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) - Me.shownamesCheckBox.TabIndex = 2 - Me.shownamesCheckBox.TabStop = False - Me.shownamesCheckBox.Text = "Always Show Names" - Me.shownamesCheckBox.UseVisualStyleBackColor = True - ' - 'LBLGeneralSettings - ' - Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent - Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black - Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) - Me.LBLGeneralSettings.Name = "LBLGeneralSettings" - Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) - Me.LBLGeneralSettings.TabIndex = 0 - Me.LBLGeneralSettings.Text = "General Settings" - Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage2 - ' - Me.TabPage2.BackColor = System.Drawing.Color.Silver - Me.TabPage2.Controls.Add(Me.Panel3) - 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(720, 448) - Me.TabPage2.TabIndex = 1 - Me.TabPage2.Text = "Domme" - ' - 'Panel3 - ' - Me.Panel3.BackColor = System.Drawing.Color.LightGray - Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel3.Controls.Add(Me.GBGiveUp) - Me.Panel3.Controls.Add(Me.BTNLoadDomSet) - Me.Panel3.Controls.Add(Me.BTNSaveDomSet) - Me.Panel3.Controls.Add(Me.Label127) - Me.Panel3.Controls.Add(Me.Label126) - Me.Panel3.Controls.Add(Me.PictureBox4) - Me.Panel3.Controls.Add(Me.GBDomTypingStyle) - Me.Panel3.Controls.Add(Me.GBDomRanges) - Me.Panel3.Controls.Add(Me.GBDomStats) - Me.Panel3.Controls.Add(Me.GBDomPersonality) - Me.Panel3.Controls.Add(Me.GBDomOrgasms) - Me.Panel3.Controls.Add(Me.GBDomPetNames) - Me.Panel3.Controls.Add(Me.Label54) - Me.Panel3.Location = New System.Drawing.Point(6, 6) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(708, 437) - Me.Panel3.TabIndex = 93 - ' - 'BTNLoadDomSet - ' - Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray - Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export - Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 - Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black - Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) - Me.BTNLoadDomSet.Name = "BTNLoadDomSet" - Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) - Me.BTNLoadDomSet.TabIndex = 150 - Me.BTNLoadDomSet.UseVisualStyleBackColor = False - ' - 'BTNSaveDomSet - ' - Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray - Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save - Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 - Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black - Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) - Me.BTNSaveDomSet.Name = "BTNSaveDomSet" - Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) - Me.BTNSaveDomSet.TabIndex = 151 - Me.BTNSaveDomSet.UseVisualStyleBackColor = False - ' - 'Label127 - ' - Me.Label127.AutoSize = True - Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label127.ForeColor = System.Drawing.Color.Black - Me.Label127.Location = New System.Drawing.Point(670, -3) - Me.Label127.Name = "Label127" - Me.Label127.Size = New System.Drawing.Size(27, 13) - Me.Label127.TabIndex = 153 - Me.Label127.Text = "load" - Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label126 - ' - Me.Label126.AutoSize = True - Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label126.ForeColor = System.Drawing.Color.Black - Me.Label126.Location = New System.Drawing.Point(636, -3) - Me.Label126.Name = "Label126" - Me.Label126.Size = New System.Drawing.Size(30, 13) - Me.Label126.TabIndex = 152 - Me.Label126.Text = "save" - Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'PictureBox4 - ' - Me.PictureBox4.BackColor = System.Drawing.Color.LightGray - Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox4.Location = New System.Drawing.Point(9, 6) - Me.PictureBox4.Name = "PictureBox4" - Me.PictureBox4.Size = New System.Drawing.Size(160, 19) - Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox4.TabIndex = 149 - Me.PictureBox4.TabStop = False - ' - 'GBDomTypingStyle - ' - Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) - Me.GBDomTypingStyle.Controls.Add(Me.Label67) - Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) - Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) - Me.GBDomTypingStyle.Controls.Add(Me.Label66) - Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) - Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) - Me.GBDomTypingStyle.Controls.Add(Me.Label64) - Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black - Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) - Me.GBDomTypingStyle.Name = "GBDomTypingStyle" - Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) - Me.GBDomTypingStyle.TabIndex = 138 - Me.GBDomTypingStyle.TabStop = False - Me.GBDomTypingStyle.Text = "Typing Style" - ' - 'TBEmoteEnd - ' - Me.TBEmoteEnd.BackColor = System.Drawing.Color.White - Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black - Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) - Me.TBEmoteEnd.Name = "TBEmoteEnd" - Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) - Me.TBEmoteEnd.TabIndex = 155 - Me.TBEmoteEnd.Text = "*" - Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label67 - ' - Me.Label67.AutoSize = True - Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label67.ForeColor = System.Drawing.Color.Black - Me.Label67.Location = New System.Drawing.Point(237, 77) - Me.Label67.Name = "Label67" - Me.Label67.Size = New System.Drawing.Size(42, 13) - Me.Label67.TabIndex = 169 - Me.Label67.Text = "Typo %" - Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBEmote - ' - Me.TBEmote.BackColor = System.Drawing.Color.White - Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBEmote.ForeColor = System.Drawing.Color.Black - Me.TBEmote.Location = New System.Drawing.Point(9, 91) - Me.TBEmote.Name = "TBEmote" - Me.TBEmote.Size = New System.Drawing.Size(85, 23) - Me.TBEmote.TabIndex = 154 - Me.TBEmote.Text = "*" - Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'NBTypoChance - ' - Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) - Me.NBTypoChance.Name = "NBTypoChance" - Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) - Me.NBTypoChance.TabIndex = 168 - Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) - ' - 'Label66 - ' - Me.Label66.AutoSize = True - Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label66.ForeColor = System.Drawing.Color.Black - Me.Label66.Location = New System.Drawing.Point(322, 77) - Me.Label66.Name = "Label66" - Me.Label66.Size = New System.Drawing.Size(52, 13) - Me.Label66.TabIndex = 44 - Me.Label66.Text = "Pronouns" - Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBMeMyMine - ' - Me.CBMeMyMine.AutoSize = True - Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black - Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) - Me.CBMeMyMine.Name = "CBMeMyMine" - Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) - Me.CBMeMyMine.TabIndex = 40 - Me.CBMeMyMine.Text = "Me/My/Mine" - Me.CBMeMyMine.UseVisualStyleBackColor = True - ' - 'GroupBox63 - ' - Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) - Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) - Me.GroupBox63.Controls.Add(Me.periodCheckBox) - Me.GroupBox63.Controls.Add(Me.commaCheckBox) - Me.GroupBox63.Location = New System.Drawing.Point(9, 15) - Me.GroupBox63.Name = "GroupBox63" - Me.GroupBox63.Size = New System.Drawing.Size(407, 48) - Me.GroupBox63.TabIndex = 41 - Me.GroupBox63.TabStop = False - Me.GroupBox63.Text = "Remove" - ' - 'LCaseCheckBox - ' - Me.LCaseCheckBox.AutoSize = True - Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black - Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) - Me.LCaseCheckBox.Name = "LCaseCheckBox" - Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) - Me.LCaseCheckBox.TabIndex = 38 - Me.LCaseCheckBox.Text = "Capitalization" - Me.LCaseCheckBox.UseVisualStyleBackColor = True - ' - 'apostropheCheckBox - ' - Me.apostropheCheckBox.AutoSize = True - Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black - Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) - Me.apostropheCheckBox.Name = "apostropheCheckBox" - Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) - Me.apostropheCheckBox.TabIndex = 39 - Me.apostropheCheckBox.Text = "Apostrophes" - Me.apostropheCheckBox.UseVisualStyleBackColor = True - ' - 'periodCheckBox - ' - Me.periodCheckBox.AutoSize = True - Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.periodCheckBox.ForeColor = System.Drawing.Color.Black - Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) - Me.periodCheckBox.Name = "periodCheckBox" - Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) - Me.periodCheckBox.TabIndex = 37 - Me.periodCheckBox.Text = "Periods" - Me.periodCheckBox.UseVisualStyleBackColor = True - ' - 'commaCheckBox - ' - Me.commaCheckBox.AutoSize = True - Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.commaCheckBox.ForeColor = System.Drawing.Color.Black - Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) - Me.commaCheckBox.Name = "commaCheckBox" - Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) - Me.commaCheckBox.TabIndex = 36 - Me.commaCheckBox.Text = "Commas" - Me.commaCheckBox.UseVisualStyleBackColor = True - ' - 'Label64 - ' - Me.Label64.AutoSize = True - Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label64.ForeColor = System.Drawing.Color.Black - Me.Label64.Location = New System.Drawing.Point(8, 77) - Me.Label64.Name = "Label64" - Me.Label64.Size = New System.Drawing.Size(79, 13) - Me.Label64.TabIndex = 43 - Me.Label64.Text = "Emote Symbols" - Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GBDomRanges - ' - Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) - Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) - Me.GBDomRanges.Controls.Add(Me.Label37) - Me.GBDomRanges.Controls.Add(Me.Label39) - Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) - Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) - Me.GBDomRanges.Controls.Add(Me.Label31) - Me.GBDomRanges.Controls.Add(Me.Label36) - Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) - Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) - Me.GBDomRanges.Controls.Add(Me.Label21) - Me.GBDomRanges.Controls.Add(Me.Label22) - Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) - Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) - Me.GBDomRanges.Controls.Add(Me.Label23) - Me.GBDomRanges.Controls.Add(Me.Label30) - Me.GBDomRanges.Location = New System.Drawing.Point(440, 230) - Me.GBDomRanges.Name = "GBDomRanges" - Me.GBDomRanges.Size = New System.Drawing.Size(259, 94) - Me.GBDomRanges.TabIndex = 148 - Me.GBDomRanges.TabStop = False - Me.GBDomRanges.Text = "Ranges" - ' - 'NBDomMoodMax - ' - Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 11) - Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBDomMoodMax.Name = "NBDomMoodMax" - Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) - Me.NBDomMoodMax.TabIndex = 168 - Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) - ' - 'NBDomMoodMin - ' - Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 11) - Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) - Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBDomMoodMin.Name = "NBDomMoodMin" - Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) - Me.NBDomMoodMin.TabIndex = 167 - Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) - ' - 'Label37 - ' - Me.Label37.BackColor = System.Drawing.Color.Transparent - Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label37.ForeColor = System.Drawing.Color.Black - Me.Label37.Location = New System.Drawing.Point(184, 11) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(10, 17) - Me.Label37.TabIndex = 166 - Me.Label37.Text = "-" - Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label39 - ' - Me.Label39.BackColor = System.Drawing.Color.Transparent - Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label39.ForeColor = System.Drawing.Color.Black - Me.Label39.Location = New System.Drawing.Point(12, 11) - Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(116, 17) - Me.Label39.TabIndex = 165 - Me.Label39.Text = "Domme Mood Index:" - Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBSubAgeMax - ' - Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 68) - Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) - Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) - Me.NBSubAgeMax.Name = "NBSubAgeMax" - Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) - Me.NBSubAgeMax.TabIndex = 164 - Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) - ' - 'NBSubAgeMin - ' - Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 68) - Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) - Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) - Me.NBSubAgeMin.Name = "NBSubAgeMin" - Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) - Me.NBSubAgeMin.TabIndex = 163 - Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) - ' - 'Label31 - ' - Me.Label31.BackColor = System.Drawing.Color.Transparent - Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label31.ForeColor = System.Drawing.Color.Black - Me.Label31.Location = New System.Drawing.Point(184, 68) - Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(10, 17) - Me.Label31.TabIndex = 162 - Me.Label31.Text = "-" - Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label36 - ' - Me.Label36.BackColor = System.Drawing.Color.Transparent - Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label36.ForeColor = System.Drawing.Color.Black - Me.Label36.Location = New System.Drawing.Point(12, 68) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(113, 17) - Me.Label36.TabIndex = 161 - Me.Label36.Text = "Sub Age Perception:" - Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBSelfAgeMax - ' - Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 49) - Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) - Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) - Me.NBSelfAgeMax.Name = "NBSelfAgeMax" - Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) - Me.NBSelfAgeMax.TabIndex = 156 - Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) - ' - 'NBSelfAgeMin - ' - Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 49) - Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) - Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) - Me.NBSelfAgeMin.Name = "NBSelfAgeMin" - Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) - Me.NBSelfAgeMin.TabIndex = 155 - Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) - ' - 'Label21 - ' - Me.Label21.BackColor = System.Drawing.Color.Transparent - Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label21.ForeColor = System.Drawing.Color.Black - Me.Label21.Location = New System.Drawing.Point(184, 49) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(10, 17) - Me.Label21.TabIndex = 154 - Me.Label21.Text = "-" - Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label22 - ' - Me.Label22.BackColor = System.Drawing.Color.Transparent - Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label22.ForeColor = System.Drawing.Color.Black - Me.Label22.Location = New System.Drawing.Point(12, 49) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(116, 17) - Me.Label22.TabIndex = 153 - Me.Label22.Text = "Self Age Perception:" - Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBAvgCockMax - ' - Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 30) - Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) - Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) - Me.NBAvgCockMax.Name = "NBAvgCockMax" - Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) - Me.NBAvgCockMax.TabIndex = 152 - Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) - ' - 'NBAvgCockMin - ' - Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 30) - Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) - Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBAvgCockMin.Name = "NBAvgCockMin" - Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) - Me.NBAvgCockMin.TabIndex = 151 - Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) - ' - 'Label23 - ' - Me.Label23.BackColor = System.Drawing.Color.Transparent - Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.ForeColor = System.Drawing.Color.Black - Me.Label23.Location = New System.Drawing.Point(184, 30) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(10, 17) - Me.Label23.TabIndex = 150 - Me.Label23.Text = "-" - Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label30 - ' - Me.Label30.BackColor = System.Drawing.Color.Transparent - Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.ForeColor = System.Drawing.Color.Black - Me.Label30.Location = New System.Drawing.Point(12, 30) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(116, 17) - Me.Label30.TabIndex = 149 - Me.Label30.Text = "Average Dick Size:" - Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GBDomStats - ' - Me.GBDomStats.BackColor = System.Drawing.Color.LightGray - Me.GBDomStats.Controls.Add(Me.Label128) - Me.GBDomStats.Controls.Add(Me.LBLEmpathy) - Me.GBDomStats.Controls.Add(Me.NBEmpathy) - Me.GBDomStats.Controls.Add(Me.Label83) - Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) - Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) - Me.GBDomStats.Controls.Add(Me.TBDomHairColor) - Me.GBDomStats.Controls.Add(Me.domageNumBox) - Me.GBDomStats.Controls.Add(Me.Label47) - Me.GBDomStats.Controls.Add(Me.Label76) - Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) - Me.GBDomStats.Controls.Add(Me.Label84) - Me.GBDomStats.Controls.Add(Me.CBDomTattoos) - Me.GBDomStats.Controls.Add(Me.CBDomFreckles) - Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) - Me.GBDomStats.Controls.Add(Me.Label10) - Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) - Me.GBDomStats.Controls.Add(Me.Label9) - Me.GBDomStats.Controls.Add(Me.boobComboBox) - Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) - Me.GBDomStats.Controls.Add(Me.domlevelNumBox) - Me.GBDomStats.Controls.Add(Me.Label43) - Me.GBDomStats.Controls.Add(Me.Label44) - Me.GBDomStats.Controls.Add(Me.Label45) - Me.GBDomStats.Controls.Add(Me.Label46) - Me.GBDomStats.ForeColor = System.Drawing.Color.Black - Me.GBDomStats.Location = New System.Drawing.Point(7, 30) - Me.GBDomStats.Name = "GBDomStats" - Me.GBDomStats.Size = New System.Drawing.Size(171, 263) - Me.GBDomStats.TabIndex = 62 - Me.GBDomStats.TabStop = False - Me.GBDomStats.Text = "Stats/Appearance" - ' - 'Label128 - ' - Me.Label128.AutoSize = True - Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label128.Location = New System.Drawing.Point(125, 68) - Me.Label128.Name = "Label128" - Me.Label128.Size = New System.Drawing.Size(38, 13) - Me.Label128.TabIndex = 156 - Me.Label128.Text = "mm/dd" - Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLEmpathy - ' - Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) - Me.LBLEmpathy.Name = "LBLEmpathy" - Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) - Me.LBLEmpathy.TabIndex = 157 - Me.LBLEmpathy.Text = "Moderate" - Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBEmpathy - ' - Me.NBEmpathy.BackColor = System.Drawing.Color.White - Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBEmpathy.ForeColor = System.Drawing.Color.Black - Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) - Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBEmpathy.Name = "NBEmpathy" - Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) - Me.NBEmpathy.TabIndex = 156 - Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label83 - ' - Me.Label83.BackColor = System.Drawing.Color.Transparent - Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label83.ForeColor = System.Drawing.Color.Black - Me.Label83.Location = New System.Drawing.Point(6, 37) - Me.Label83.Name = "Label83" - Me.Label83.Size = New System.Drawing.Size(60, 17) - Me.Label83.TabIndex = 158 - Me.Label83.Text = "Apathy:" - Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBDomBirthdayDay - ' - Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White - Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black - Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) - Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) - Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" - Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) - Me.NBDomBirthdayDay.TabIndex = 152 - Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'TBDomEyeColor - ' - Me.TBDomEyeColor.BackColor = System.Drawing.Color.White - Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black - Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) - Me.TBDomEyeColor.Name = "TBDomEyeColor" - Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) - Me.TBDomEyeColor.TabIndex = 154 - Me.TBDomEyeColor.Text = "green" - ' - 'TBDomHairColor - ' - Me.TBDomHairColor.BackColor = System.Drawing.Color.White - Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black - Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) - Me.TBDomHairColor.Name = "TBDomHairColor" - Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) - Me.TBDomHairColor.TabIndex = 153 - Me.TBDomHairColor.Text = "brown" - ' - 'domageNumBox - ' - Me.domageNumBox.BackColor = System.Drawing.Color.White - Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.domageNumBox.ForeColor = System.Drawing.Color.Black - Me.domageNumBox.Location = New System.Drawing.Point(73, 61) - Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) - Me.domageNumBox.Name = "domageNumBox" - Me.domageNumBox.Size = New System.Drawing.Size(38, 20) - Me.domageNumBox.TabIndex = 27 - Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) - ' - 'Label47 - ' - Me.Label47.BackColor = System.Drawing.Color.Transparent - Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label47.ForeColor = System.Drawing.Color.Black - Me.Label47.Location = New System.Drawing.Point(6, 60) - Me.Label47.Name = "Label47" - Me.Label47.Size = New System.Drawing.Size(63, 17) - Me.Label47.TabIndex = 138 - Me.Label47.Text = "Age:" - Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label76 - ' - Me.Label76.AutoSize = True - Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label76.ForeColor = System.Drawing.Color.Black - Me.Label76.Location = New System.Drawing.Point(113, 87) - Me.Label76.Name = "Label76" - Me.Label76.Size = New System.Drawing.Size(12, 13) - Me.Label76.TabIndex = 151 - Me.Label76.Text = "/" - Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBDomBirthdayMonth - ' - Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White - Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black - Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) - Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) - Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" - Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) - Me.NBDomBirthdayMonth.TabIndex = 149 - Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label84 - ' - Me.Label84.BackColor = System.Drawing.Color.Transparent - Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label84.ForeColor = System.Drawing.Color.Black - Me.Label84.Location = New System.Drawing.Point(6, 84) - Me.Label84.Name = "Label84" - Me.Label84.Size = New System.Drawing.Size(60, 17) - Me.Label84.TabIndex = 150 - Me.Label84.Text = "Birthday:" - Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBDomTattoos - ' - Me.CBDomTattoos.AutoSize = True - Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black - Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) - Me.CBDomTattoos.Name = "CBDomTattoos" - Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) - Me.CBDomTattoos.TabIndex = 148 - Me.CBDomTattoos.Text = "Tattoos" - Me.CBDomTattoos.UseVisualStyleBackColor = True - ' - 'CBDomFreckles - ' - Me.CBDomFreckles.AutoSize = True - Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black - Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) - Me.CBDomFreckles.Name = "CBDomFreckles" - Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) - Me.CBDomFreckles.TabIndex = 147 - Me.CBDomFreckles.Text = "Freckles" - Me.CBDomFreckles.UseVisualStyleBackColor = True - ' - 'domhairlengthComboBox - ' - Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White - Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black - Me.domhairlengthComboBox.FormattingEnabled = True - Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) - Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) - Me.domhairlengthComboBox.Name = "domhairlengthComboBox" - Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) - Me.domhairlengthComboBox.TabIndex = 145 - ' - 'Label10 - ' - Me.Label10.BackColor = System.Drawing.Color.Transparent - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.ForeColor = System.Drawing.Color.Black - Me.Label10.Location = New System.Drawing.Point(6, 133) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(78, 17) - Me.Label10.TabIndex = 146 - Me.Label10.Text = "Hair Length:" - Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'dompubichairComboBox - ' - Me.dompubichairComboBox.BackColor = System.Drawing.Color.White - Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black - Me.dompubichairComboBox.FormattingEnabled = True - Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) - Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) - Me.dompubichairComboBox.Name = "dompubichairComboBox" - Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) - Me.dompubichairComboBox.TabIndex = 143 - ' - 'Label9 - ' - Me.Label9.BackColor = System.Drawing.Color.Transparent - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.ForeColor = System.Drawing.Color.Black - Me.Label9.Location = New System.Drawing.Point(6, 209) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(63, 17) - Me.Label9.TabIndex = 144 - Me.Label9.Text = "Pubic Hair:" - Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'boobComboBox - ' - Me.boobComboBox.BackColor = System.Drawing.Color.White - Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.boobComboBox.ForeColor = System.Drawing.Color.Black - Me.boobComboBox.FormattingEnabled = True - Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) - Me.boobComboBox.Location = New System.Drawing.Point(73, 182) - Me.boobComboBox.Name = "boobComboBox" - Me.boobComboBox.Size = New System.Drawing.Size(89, 21) - Me.boobComboBox.TabIndex = 2 - ' - 'DomLevelDescLabel - ' - Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) - Me.DomLevelDescLabel.Name = "DomLevelDescLabel" - Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) - Me.DomLevelDescLabel.TabIndex = 42 - Me.DomLevelDescLabel.Text = "Tease" - Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'domlevelNumBox - ' - Me.domlevelNumBox.BackColor = System.Drawing.Color.White - Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black - Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) - Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.domlevelNumBox.Name = "domlevelNumBox" - Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) - Me.domlevelNumBox.TabIndex = 41 - Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label43 - ' - Me.Label43.BackColor = System.Drawing.Color.Transparent - Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label43.ForeColor = System.Drawing.Color.Black - Me.Label43.Location = New System.Drawing.Point(6, 183) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(63, 17) - Me.Label43.TabIndex = 142 - Me.Label43.Text = "Cup Size:" - Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label44 - ' - Me.Label44.BackColor = System.Drawing.Color.Transparent - Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label44.ForeColor = System.Drawing.Color.Black - Me.Label44.Location = New System.Drawing.Point(6, 158) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(63, 17) - Me.Label44.TabIndex = 141 - Me.Label44.Text = "Eye Color:" - Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label45 - ' - Me.Label45.BackColor = System.Drawing.Color.Transparent - Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label45.ForeColor = System.Drawing.Color.Black - Me.Label45.Location = New System.Drawing.Point(6, 108) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(78, 17) - Me.Label45.TabIndex = 140 - Me.Label45.Text = "Hair Color:" - Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label46 - ' - Me.Label46.BackColor = System.Drawing.Color.Transparent - Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label46.ForeColor = System.Drawing.Color.Black - Me.Label46.Location = New System.Drawing.Point(6, 15) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(46, 17) - Me.Label46.TabIndex = 139 - Me.Label46.Text = "Level:" - Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GBDomPersonality - ' - Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) - Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) - Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) - Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) - Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) - Me.GBDomPersonality.Controls.Add(Me.condescendingCheckBox) - Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black - Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) - Me.GBDomPersonality.Name = "GBDomPersonality" - Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) - Me.GBDomPersonality.TabIndex = 131 - Me.GBDomPersonality.TabStop = False - Me.GBDomPersonality.Text = "Personality" - ' - 'degradingCheckBox - ' - Me.degradingCheckBox.AutoSize = True - Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black - Me.degradingCheckBox.Location = New System.Drawing.Point(73, 43) - Me.degradingCheckBox.Name = "degradingCheckBox" - Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) - Me.degradingCheckBox.TabIndex = 40 - Me.degradingCheckBox.Text = "Degrading" - Me.degradingCheckBox.UseVisualStyleBackColor = True - ' - 'sadisticCheckBox - ' - Me.sadisticCheckBox.AutoSize = True - Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black - Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) - Me.sadisticCheckBox.Name = "sadisticCheckBox" - Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) - Me.sadisticCheckBox.TabIndex = 39 - Me.sadisticCheckBox.Text = "Sadistic" - Me.sadisticCheckBox.UseVisualStyleBackColor = True - ' - 'supremacistCheckBox - ' - Me.supremacistCheckBox.AutoSize = True - Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black - Me.supremacistCheckBox.Location = New System.Drawing.Point(148, 20) - Me.supremacistCheckBox.Name = "supremacistCheckBox" - Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) - Me.supremacistCheckBox.TabIndex = 38 - Me.supremacistCheckBox.Text = "Supremacist" - Me.supremacistCheckBox.UseVisualStyleBackColor = True - ' - 'vulgarCheckBox - ' - Me.vulgarCheckBox.AutoSize = True - Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black - Me.vulgarCheckBox.Location = New System.Drawing.Point(73, 20) - Me.vulgarCheckBox.Name = "vulgarCheckBox" - Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) - Me.vulgarCheckBox.TabIndex = 37 - Me.vulgarCheckBox.Text = "Vulgar" - Me.vulgarCheckBox.UseVisualStyleBackColor = True - ' - 'crazyCheckBox - ' - Me.crazyCheckBox.AutoSize = True - Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black - Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) - Me.crazyCheckBox.Name = "crazyCheckBox" - Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) - Me.crazyCheckBox.TabIndex = 36 - Me.crazyCheckBox.Text = "Crazy" - Me.crazyCheckBox.UseVisualStyleBackColor = True - ' - 'condescendingCheckBox - ' - Me.condescendingCheckBox.AutoSize = True - Me.condescendingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.condescendingCheckBox.ForeColor = System.Drawing.Color.Black - Me.condescendingCheckBox.Location = New System.Drawing.Point(148, 43) - Me.condescendingCheckBox.Name = "condescendingCheckBox" - Me.condescendingCheckBox.Size = New System.Drawing.Size(15, 14) - Me.condescendingCheckBox.TabIndex = 41 - Me.condescendingCheckBox.UseVisualStyleBackColor = True - ' - 'GBDomOrgasms - ' - Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) - Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) - Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) - Me.GBDomOrgasms.Controls.Add(Me.Label16) - Me.GBDomOrgasms.Controls.Add(Me.Label12) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) - Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) - Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) - Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) - Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) - Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black - Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) - Me.GBDomOrgasms.Name = "GBDomOrgasms" - Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) - Me.GBDomOrgasms.TabIndex = 132 - Me.GBDomOrgasms.TabStop = False - Me.GBDomOrgasms.Text = "Orgasms" - ' - 'CBLockOrgasmChances - ' - Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances - Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black - Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) - Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" - Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) - Me.CBLockOrgasmChances.TabIndex = 146 - Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" - Me.CBLockOrgasmChances.UseVisualStyleBackColor = True - ' - 'orgasmlockrandombutton - ' - Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray - Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black - Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) - Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" - Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) - Me.orgasmlockrandombutton.TabIndex = 145 - Me.orgasmlockrandombutton.Text = "Lock Random" - Me.orgasmlockrandombutton.UseVisualStyleBackColor = False - ' - 'CBDomOrgasmEnds - ' - Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black - Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) - Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" - Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) - Me.CBDomOrgasmEnds.TabIndex = 144 - Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" - Me.CBDomOrgasmEnds.UseVisualStyleBackColor = True - ' - 'Label16 - ' - Me.Label16.BackColor = System.Drawing.Color.Transparent - Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label16.ForeColor = System.Drawing.Color.Black - Me.Label16.Location = New System.Drawing.Point(12, 47) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(87, 17) - Me.Label16.TabIndex = 142 - Me.Label16.Text = "Ruins Orgasms:" - Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label12 - ' - Me.Label12.BackColor = System.Drawing.Color.Transparent - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.ForeColor = System.Drawing.Color.Black - Me.Label12.Location = New System.Drawing.Point(12, 19) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(87, 17) - Me.Label12.TabIndex = 141 - Me.Label12.Text = "Allows Orgasms:" - Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'orgasmsperlockButton - ' - Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray - Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black - Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) - Me.orgasmsperlockButton.Name = "orgasmsperlockButton" - Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) - Me.orgasmsperlockButton.TabIndex = 97 - Me.orgasmsperlockButton.Text = "Lock Selected" - Me.orgasmsperlockButton.UseVisualStyleBackColor = False - ' - 'orgasmsperComboBox - ' - Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White - Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black - Me.orgasmsperComboBox.FormattingEnabled = True - Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) - Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) - Me.orgasmsperComboBox.Name = "orgasmsperComboBox" - Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) - Me.orgasmsperComboBox.TabIndex = 43 - ' - 'orgasmsperLabel - ' - Me.orgasmsperLabel.AutoSize = True - Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black - Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) - Me.orgasmsperLabel.Name = "orgasmsperLabel" - Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) - Me.orgasmsperLabel.TabIndex = 42 - Me.orgasmsperLabel.Text = "per" - Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'limitcheckbox - ' - Me.limitcheckbox.AutoSize = True - Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.limitcheckbox.ForeColor = System.Drawing.Color.Black - Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) - Me.limitcheckbox.Name = "limitcheckbox" - Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) - Me.limitcheckbox.TabIndex = 39 - Me.limitcheckbox.Text = "Limit" - Me.limitcheckbox.UseVisualStyleBackColor = True - ' - 'orgasmsPerNumBox - ' - Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White - Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black - Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) - Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" - Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) - Me.orgasmsPerNumBox.TabIndex = 41 - Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'CBDomDenialEnds - ' - Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black - Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) - Me.CBDomDenialEnds.Name = "CBDomDenialEnds" - Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) - Me.CBDomDenialEnds.TabIndex = 38 - Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" - Me.CBDomDenialEnds.UseVisualStyleBackColor = True - ' - 'alloworgasmComboBox - ' - Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White - Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black - Me.alloworgasmComboBox.FormattingEnabled = True - Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) - Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) - Me.alloworgasmComboBox.Name = "alloworgasmComboBox" - Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) - Me.alloworgasmComboBox.TabIndex = 1 - ' - 'ruinorgasmComboBox - ' - Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White - Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black - Me.ruinorgasmComboBox.FormattingEnabled = True - Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) - Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) - Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" - Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) - Me.ruinorgasmComboBox.TabIndex = 2 - ' - 'GBDomPetNames - ' - Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray - Me.GBDomPetNames.Controls.Add(Me.Label74) - Me.GBDomPetNames.Controls.Add(Me.petnameBox7) - Me.GBDomPetNames.Controls.Add(Me.petnameBox8) - Me.GBDomPetNames.Controls.Add(Me.petnameBox1) - Me.GBDomPetNames.Controls.Add(Me.Label15) - Me.GBDomPetNames.Controls.Add(Me.petnameBox4) - Me.GBDomPetNames.Controls.Add(Me.petnameBox6) - Me.GBDomPetNames.Controls.Add(Me.petnameBox2) - Me.GBDomPetNames.Controls.Add(Me.Label11) - Me.GBDomPetNames.Controls.Add(Me.petnameBox5) - Me.GBDomPetNames.Controls.Add(Me.petnameBox3) - Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black - Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) - Me.GBDomPetNames.Name = "GBDomPetNames" - Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) - Me.GBDomPetNames.TabIndex = 134 - Me.GBDomPetNames.TabStop = False - Me.GBDomPetNames.Text = "Pet Names" - ' - 'Label74 - ' - Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label74.ForeColor = System.Drawing.Color.Black - Me.Label74.Location = New System.Drawing.Point(8, 14) - Me.Label74.Name = "Label74" - Me.Label74.Size = New System.Drawing.Size(233, 13) - Me.Label74.TabIndex = 45 - Me.Label74.Text = "Great Mood" - Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'petnameBox7 - ' - Me.petnameBox7.BackColor = System.Drawing.Color.White - Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox7.ForeColor = System.Drawing.Color.Black - Me.petnameBox7.Location = New System.Drawing.Point(8, 154) - Me.petnameBox7.Name = "petnameBox7" - Me.petnameBox7.Size = New System.Drawing.Size(114, 23) - Me.petnameBox7.TabIndex = 13 - Me.petnameBox7.Text = "bitch boy" - Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox8 - ' - Me.petnameBox8.BackColor = System.Drawing.Color.White - Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox8.ForeColor = System.Drawing.Color.Black - Me.petnameBox8.Location = New System.Drawing.Point(128, 154) - Me.petnameBox8.Name = "petnameBox8" - Me.petnameBox8.Size = New System.Drawing.Size(113, 22) - Me.petnameBox8.TabIndex = 14 - Me.petnameBox8.Text = "slut" - Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox1 - ' - Me.petnameBox1.BackColor = System.Drawing.Color.White - Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox1.ForeColor = System.Drawing.Color.Black - Me.petnameBox1.Location = New System.Drawing.Point(8, 32) - Me.petnameBox1.Name = "petnameBox1" - Me.petnameBox1.Size = New System.Drawing.Size(114, 23) - Me.petnameBox1.TabIndex = 7 - Me.petnameBox1.Text = "stroker" - Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label15 - ' - Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.ForeColor = System.Drawing.Color.Black - Me.Label15.Location = New System.Drawing.Point(8, 136) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(233, 13) - Me.Label15.TabIndex = 44 - Me.Label15.Text = "Bad Mood" - Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'petnameBox4 - ' - Me.petnameBox4.BackColor = System.Drawing.Color.White - Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox4.ForeColor = System.Drawing.Color.Black - Me.petnameBox4.Location = New System.Drawing.Point(128, 81) - Me.petnameBox4.Name = "petnameBox4" - Me.petnameBox4.Size = New System.Drawing.Size(113, 23) - Me.petnameBox4.TabIndex = 10 - Me.petnameBox4.Text = "loser" - Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox6 - ' - Me.petnameBox6.BackColor = System.Drawing.Color.White - Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox6.ForeColor = System.Drawing.Color.Black - Me.petnameBox6.Location = New System.Drawing.Point(128, 107) - Me.petnameBox6.Name = "petnameBox6" - Me.petnameBox6.Size = New System.Drawing.Size(113, 23) - Me.petnameBox6.TabIndex = 12 - Me.petnameBox6.Text = "pet" - Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox2 - ' - Me.petnameBox2.BackColor = System.Drawing.Color.White - Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox2.ForeColor = System.Drawing.Color.Black - Me.petnameBox2.Location = New System.Drawing.Point(128, 32) - Me.petnameBox2.Name = "petnameBox2" - Me.petnameBox2.Size = New System.Drawing.Size(114, 23) - Me.petnameBox2.TabIndex = 8 - Me.petnameBox2.Text = "wanker" - Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label11 - ' - Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label11.ForeColor = System.Drawing.Color.Black - Me.Label11.Location = New System.Drawing.Point(5, 63) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(239, 13) - Me.Label11.TabIndex = 43 - Me.Label11.Text = "Neutral Mood" - Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'petnameBox5 - ' - Me.petnameBox5.BackColor = System.Drawing.Color.White - Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox5.ForeColor = System.Drawing.Color.Black - Me.petnameBox5.Location = New System.Drawing.Point(8, 107) - Me.petnameBox5.Name = "petnameBox5" - Me.petnameBox5.Size = New System.Drawing.Size(114, 23) - Me.petnameBox5.TabIndex = 11 - Me.petnameBox5.Text = "baby" - Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox3 - ' - Me.petnameBox3.BackColor = System.Drawing.Color.White - Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox3.ForeColor = System.Drawing.Color.Black - Me.petnameBox3.Location = New System.Drawing.Point(8, 81) - Me.petnameBox3.Name = "petnameBox3" - Me.petnameBox3.Size = New System.Drawing.Size(114, 23) - Me.petnameBox3.TabIndex = 9 - Me.petnameBox3.Text = "slave" - Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label54 - ' - Me.Label54.BackColor = System.Drawing.Color.Transparent - Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label54.ForeColor = System.Drawing.Color.Black - Me.Label54.Location = New System.Drawing.Point(7, 6) - Me.Label54.Name = "Label54" - Me.Label54.Size = New System.Drawing.Size(692, 21) - Me.Label54.TabIndex = 49 - Me.Label54.Text = "Domme Settings" - Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage10 - ' - Me.TabPage10.BackColor = System.Drawing.Color.Silver - Me.TabPage10.Controls.Add(Me.Panel2) - Me.TabPage10.Location = New System.Drawing.Point(4, 22) - Me.TabPage10.Name = "TabPage10" - Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage10.Size = New System.Drawing.Size(720, 448) - Me.TabPage10.TabIndex = 9 - Me.TabPage10.Text = "Sub" - ' - 'Panel2 - ' - Me.Panel2.BackColor = System.Drawing.Color.LightGray - Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel2.Controls.Add(Me.GroupBox22) - Me.Panel2.Controls.Add(Me.GroupBox45) - Me.Panel2.Controls.Add(Me.GroupBox35) - Me.Panel2.Controls.Add(Me.GroupBox13) - Me.Panel2.Controls.Add(Me.GroupBox7) - Me.Panel2.Controls.Add(Me.PictureBox12) - Me.Panel2.Controls.Add(Me.GroupBox32) - Me.Panel2.Controls.Add(Me.Label70) - Me.Panel2.Location = New System.Drawing.Point(6, 6) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(708, 437) - Me.Panel2.TabIndex = 94 - ' - 'GroupBox22 - ' - Me.GroupBox22.BackColor = System.Drawing.Color.LightGray - Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) - Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) - Me.GroupBox22.Controls.Add(Me.Label75) - Me.GroupBox22.Controls.Add(Me.Label77) - Me.GroupBox22.ForeColor = System.Drawing.Color.Black - Me.GroupBox22.Location = New System.Drawing.Point(440, 388) - Me.GroupBox22.Name = "GroupBox22" - Me.GroupBox22.Size = New System.Drawing.Size(259, 39) - Me.GroupBox22.TabIndex = 158 - Me.GroupBox22.TabStop = False - Me.GroupBox22.Text = "Writing Tasks" - ' - 'NBWritingTaskMax - ' - Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) - Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) - Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMax.Name = "NBWritingTaskMax" - Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) - Me.NBWritingTaskMax.TabIndex = 168 - Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) - ' - 'NBWritingTaskMin - ' - Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) - Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) - Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMin.Name = "NBWritingTaskMin" - Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) - Me.NBWritingTaskMin.TabIndex = 167 - Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) - ' - 'Label75 - ' - Me.Label75.BackColor = System.Drawing.Color.Transparent - Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label75.ForeColor = System.Drawing.Color.Black - Me.Label75.Location = New System.Drawing.Point(184, 13) - Me.Label75.Name = "Label75" - Me.Label75.Size = New System.Drawing.Size(10, 17) - Me.Label75.TabIndex = 166 - Me.Label75.Text = "-" - Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label77 - ' - Me.Label77.BackColor = System.Drawing.Color.Transparent - Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label77.ForeColor = System.Drawing.Color.Black - Me.Label77.Location = New System.Drawing.Point(12, 15) - Me.Label77.Name = "Label77" - Me.Label77.Size = New System.Drawing.Size(126, 17) - Me.Label77.TabIndex = 165 - Me.Label77.Tag = "" - Me.Label77.Text = "Line Amount Range:" - Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox45 - ' - Me.GroupBox45.BackColor = System.Drawing.Color.LightGray - Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) - Me.GroupBox45.Controls.Add(Me.CBCBTBalls) - Me.GroupBox45.Controls.Add(Me.CBCBTCock) - Me.GroupBox45.Controls.Add(Me.CBTSlider) - Me.GroupBox45.ForeColor = System.Drawing.Color.Black - Me.GroupBox45.Location = New System.Drawing.Point(440, 294) - Me.GroupBox45.Name = "GroupBox45" - Me.GroupBox45.Size = New System.Drawing.Size(259, 50) - Me.GroupBox45.TabIndex = 155 - Me.GroupBox45.TabStop = False - Me.GroupBox45.Text = "CBT" - ' - 'LBLCBTSlider - ' - Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent - Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black - Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) - Me.LBLCBTSlider.Name = "LBLCBTSlider" - Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) - Me.LBLCBTSlider.TabIndex = 168 - Me.LBLCBTSlider.Text = "CBT Level: 3" - Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBCBTBalls - ' - Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) - Me.CBCBTBalls.Name = "CBCBTBalls" - Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) - Me.CBCBTBalls.TabIndex = 1 - Me.CBCBTBalls.Text = "Ball Torture" - Me.CBCBTBalls.UseVisualStyleBackColor = True - ' - 'CBCBTCock - ' - Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) - Me.CBCBTCock.Name = "CBCBTCock" - Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) - Me.CBCBTCock.TabIndex = 0 - Me.CBCBTCock.Text = "Cock Torture" - Me.CBCBTCock.UseVisualStyleBackColor = True - ' - 'CBTSlider - ' - Me.CBTSlider.AutoSize = False - Me.CBTSlider.LargeChange = 1 - Me.CBTSlider.Location = New System.Drawing.Point(134, 13) - Me.CBTSlider.Maximum = 5 - Me.CBTSlider.Minimum = 1 - Me.CBTSlider.Name = "CBTSlider" - Me.CBTSlider.Size = New System.Drawing.Size(110, 25) - Me.CBTSlider.TabIndex = 166 - Me.CBTSlider.Value = 3 - ' - 'GroupBox35 - ' - Me.GroupBox35.BackColor = System.Drawing.Color.LightGray - Me.GroupBox35.Controls.Add(Me.GroupBox39) - Me.GroupBox35.Controls.Add(Me.GroupBox38) - Me.GroupBox35.Controls.Add(Me.GroupBox37) - Me.GroupBox35.Controls.Add(Me.GroupBox36) - Me.GroupBox35.ForeColor = System.Drawing.Color.Black - Me.GroupBox35.Location = New System.Drawing.Point(440, 30) - Me.GroupBox35.Name = "GroupBox35" - Me.GroupBox35.Size = New System.Drawing.Size(259, 263) - Me.GroupBox35.TabIndex = 154 - Me.GroupBox35.TabStop = False - Me.GroupBox35.Text = "Key Phrases" - ' - 'GroupBox39 - ' - Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) - Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) - Me.GroupBox39.Controls.Add(Me.TBHonorific) - Me.GroupBox39.Location = New System.Drawing.Point(6, 168) - Me.GroupBox39.Name = "GroupBox39" - Me.GroupBox39.Size = New System.Drawing.Size(247, 89) - Me.GroupBox39.TabIndex = 3 - Me.GroupBox39.TabStop = False - Me.GroupBox39.Tag = "" - Me.GroupBox39.Text = "Honorific" - ' - 'CBHonorificInclude - ' - Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black - Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 44) - Me.CBHonorificInclude.Name = "CBHonorificInclude" - Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) - Me.CBHonorificInclude.TabIndex = 40 - Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" - Me.CBHonorificInclude.UseVisualStyleBackColor = True - ' - 'CBHonorificCapitalized - ' - Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black - Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 66) - Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" - Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) - Me.CBHonorificCapitalized.TabIndex = 39 - Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" - Me.CBHonorificCapitalized.UseVisualStyleBackColor = True - ' - 'TBHonorific - ' - Me.TBHonorific.Location = New System.Drawing.Point(9, 16) - Me.TBHonorific.Name = "TBHonorific" - Me.TBHonorific.Size = New System.Drawing.Size(229, 20) - Me.TBHonorific.TabIndex = 0 - Me.TBHonorific.Text = "Mistress" - ' - 'GroupBox38 - ' - Me.GroupBox38.Controls.Add(Me.TBNo) - Me.GroupBox38.Location = New System.Drawing.Point(6, 116) - Me.GroupBox38.Name = "GroupBox38" - Me.GroupBox38.Size = New System.Drawing.Size(247, 46) - Me.GroupBox38.TabIndex = 2 - Me.GroupBox38.TabStop = False - Me.GroupBox38.Tag = "" - Me.GroupBox38.Text = "No" - ' - 'TBNo - ' - Me.TBNo.Location = New System.Drawing.Point(9, 16) - Me.TBNo.Name = "TBNo" - Me.TBNo.Size = New System.Drawing.Size(229, 20) - Me.TBNo.TabIndex = 0 - Me.TBNo.Text = "no, nah, nope, not" - ' - 'GroupBox37 - ' - Me.GroupBox37.Controls.Add(Me.TBYes) - Me.GroupBox37.Location = New System.Drawing.Point(6, 64) - Me.GroupBox37.Name = "GroupBox37" - Me.GroupBox37.Size = New System.Drawing.Size(247, 46) - Me.GroupBox37.TabIndex = 1 - Me.GroupBox37.TabStop = False - Me.GroupBox37.Tag = "" - Me.GroupBox37.Text = "Yes" - ' - 'TBYes - ' - Me.TBYes.Location = New System.Drawing.Point(9, 16) - Me.TBYes.Name = "TBYes" - Me.TBYes.Size = New System.Drawing.Size(229, 20) - Me.TBYes.TabIndex = 0 - Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" - ' - 'GroupBox36 - ' - Me.GroupBox36.Controls.Add(Me.TBGreeting) - Me.GroupBox36.Location = New System.Drawing.Point(6, 12) - Me.GroupBox36.Name = "GroupBox36" - Me.GroupBox36.Size = New System.Drawing.Size(247, 46) - Me.GroupBox36.TabIndex = 0 - Me.GroupBox36.TabStop = False - Me.GroupBox36.Tag = "" - Me.GroupBox36.Text = "Greeting" - ' - 'TBGreeting - ' - Me.TBGreeting.Location = New System.Drawing.Point(9, 16) - Me.TBGreeting.Name = "TBGreeting" - Me.TBGreeting.Size = New System.Drawing.Size(229, 20) - Me.TBGreeting.TabIndex = 0 - Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" - ' - 'GroupBox13 - ' - Me.GroupBox13.BackColor = System.Drawing.Color.LightGray - Me.GroupBox13.Controls.Add(Me.Label34) - Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) - Me.GroupBox13.ForeColor = System.Drawing.Color.Black - Me.GroupBox13.Location = New System.Drawing.Point(440, 346) - Me.GroupBox13.Name = "GroupBox13" - Me.GroupBox13.Size = New System.Drawing.Size(259, 39) - Me.GroupBox13.TabIndex = 157 - Me.GroupBox13.TabStop = False - Me.GroupBox13.Text = "Routine" - ' - 'Label34 - ' - Me.Label34.BackColor = System.Drawing.Color.Transparent - Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label34.ForeColor = System.Drawing.Color.Black - Me.Label34.Location = New System.Drawing.Point(12, 15) - Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(116, 17) - Me.Label34.TabIndex = 140 - Me.Label34.Text = "Daily Wake Up Time:" - Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TimeBoxWakeUp - ' - Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time - Me.TimeBoxWakeUp.Location = New System.Drawing.Point(134, 12) - Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" - Me.TimeBoxWakeUp.ShowUpDown = True - Me.TimeBoxWakeUp.Size = New System.Drawing.Size(110, 20) - Me.TimeBoxWakeUp.TabIndex = 0 - ' - 'GroupBox7 - ' - Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) - Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) - Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) - Me.GroupBox7.Controls.Add(Me.Label133) - Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) - Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) - Me.GroupBox7.Controls.Add(Me.Label78) - Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) - Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) - Me.GroupBox7.Controls.Add(Me.Label129) - Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) - Me.GroupBox7.Controls.Add(Me.LBLMaxHold) - Me.GroupBox7.Controls.Add(Me.Label79) - Me.GroupBox7.Controls.Add(Me.NBLongEdge) - Me.GroupBox7.Controls.Add(Me.LBLMinHold) - Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) - Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) - Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) - Me.GroupBox7.Controls.Add(Me.Label55) - Me.GroupBox7.Controls.Add(Me.Label81) - Me.GroupBox7.Controls.Add(Me.Label5) - Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) - Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) - Me.GroupBox7.Controls.Add(Me.Label131) - Me.GroupBox7.Location = New System.Drawing.Point(7, 201) - Me.GroupBox7.Name = "GroupBox7" - Me.GroupBox7.Size = New System.Drawing.Size(226, 226) - Me.GroupBox7.TabIndex = 152 - Me.GroupBox7.TabStop = False - Me.GroupBox7.Text = "Edging" - ' - 'LBLMaxExtremeHold - ' - Me.LBLMaxExtremeHold.AutoSize = True - Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) - Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" - Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMaxExtremeHold.TabIndex = 192 - Me.LBLMaxExtremeHold.Text = "minutes" - Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLMinExtremeHold - ' - Me.LBLMinExtremeHold.AutoSize = True - Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) - Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" - Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMinExtremeHold.TabIndex = 190 - Me.LBLMinExtremeHold.Text = "minutes" - Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBExtremeHoldMin - ' - Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) - Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" - Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) - Me.NBExtremeHoldMin.TabIndex = 189 - Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label133 - ' - Me.Label133.BackColor = System.Drawing.Color.Transparent - Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label133.ForeColor = System.Drawing.Color.Black - Me.Label133.Location = New System.Drawing.Point(6, 105) - Me.Label133.Name = "Label133" - Me.Label133.Size = New System.Drawing.Size(119, 17) - Me.Label133.TabIndex = 187 - Me.Label133.Text = "Min Extreme Hold Time:" - Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBExtremeHoldMax - ' - Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) - Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" - Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) - Me.NBExtremeHoldMax.TabIndex = 188 - Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'LBLMaxLongHold - ' - Me.LBLMaxLongHold.AutoSize = True - Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) - Me.LBLMaxLongHold.Name = "LBLMaxLongHold" - Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMaxLongHold.TabIndex = 186 - Me.LBLMaxLongHold.Text = "minutes" - Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label78 - ' - Me.Label78.BackColor = System.Drawing.Color.Transparent - Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label78.ForeColor = System.Drawing.Color.Black - Me.Label78.Location = New System.Drawing.Point(6, 83) - Me.Label78.Name = "Label78" - Me.Label78.Size = New System.Drawing.Size(113, 17) - Me.Label78.TabIndex = 185 - Me.Label78.Text = "Max Long Hold Time:" - Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLMinLongHold - ' - Me.LBLMinLongHold.AutoSize = True - Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) - Me.LBLMinLongHold.Name = "LBLMinLongHold" - Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMinLongHold.TabIndex = 184 - Me.LBLMinLongHold.Text = "minutes" - Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBLongHoldMin - ' - Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) - Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBLongHoldMin.Name = "NBLongHoldMin" - Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) - Me.NBLongHoldMin.TabIndex = 183 - Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label129 - ' - Me.Label129.BackColor = System.Drawing.Color.Transparent - Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label129.ForeColor = System.Drawing.Color.Black - Me.Label129.Location = New System.Drawing.Point(6, 61) - Me.Label129.Name = "Label129" - Me.Label129.Size = New System.Drawing.Size(113, 17) - Me.Label129.TabIndex = 181 - Me.Label129.Text = "Min Long Hold Time:" - Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBLongHoldMax - ' - Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) - Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBLongHoldMax.Name = "NBLongHoldMax" - Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) - Me.NBLongHoldMax.TabIndex = 182 - Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'LBLMaxHold - ' - Me.LBLMaxHold.AutoSize = True - Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) - Me.LBLMaxHold.Name = "LBLMaxHold" - Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMaxHold.TabIndex = 180 - Me.LBLMaxHold.Text = "minutes" - Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label79 - ' - Me.Label79.BackColor = System.Drawing.Color.Transparent - Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label79.ForeColor = System.Drawing.Color.Black - Me.Label79.Location = New System.Drawing.Point(6, 39) - Me.Label79.Name = "Label79" - Me.Label79.Size = New System.Drawing.Size(113, 17) - Me.Label79.TabIndex = 178 - Me.Label79.Text = "Max Hold Edge Time:" - Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBLongEdge - ' - Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) - Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) - Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBLongEdge.Name = "NBLongEdge" - Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) - Me.NBLongEdge.TabIndex = 152 - Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) - ' - 'LBLMinHold - ' - Me.LBLMinHold.AutoSize = True - Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) - Me.LBLMinHold.Name = "LBLMinHold" - Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) - Me.LBLMinHold.TabIndex = 177 - Me.LBLMinHold.Text = "seconds" - Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBEdgeUseAvg - ' - Me.CBEdgeUseAvg.AutoSize = True - Me.CBEdgeUseAvg.Enabled = False - Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) - Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" - Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) - Me.CBEdgeUseAvg.TabIndex = 174 - Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" - Me.CBEdgeUseAvg.UseVisualStyleBackColor = True - ' - 'CBLongEdgeInterrupts - ' - Me.CBLongEdgeInterrupts.Checked = True - Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black - Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) - Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" - Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) - Me.CBLongEdgeInterrupts.TabIndex = 169 - Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" - Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = True - ' - 'NBHoldTheEdgeMin - ' - Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) - Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" - Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) - Me.NBHoldTheEdgeMin.TabIndex = 176 - Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label55 - ' - Me.Label55.BackColor = System.Drawing.Color.Transparent - Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label55.ForeColor = System.Drawing.Color.Black - Me.Label55.Location = New System.Drawing.Point(7, 149) - Me.Label55.Name = "Label55" - Me.Label55.Size = New System.Drawing.Size(116, 17) - Me.Label55.TabIndex = 170 - Me.Label55.Text = "Long Edge Threshold:" - Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label81 - ' - Me.Label81.BackColor = System.Drawing.Color.Transparent - Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label81.ForeColor = System.Drawing.Color.Black - Me.Label81.Location = New System.Drawing.Point(6, 17) - Me.Label81.Name = "Label81" - Me.Label81.Size = New System.Drawing.Size(113, 17) - Me.Label81.TabIndex = 153 - Me.Label81.Text = "Min Hold Edge Time:" - Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(174, 151) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(43, 13) - Me.Label5.TabIndex = 175 - Me.Label5.Text = "minutes" - Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBHoldTheEdgeMax - ' - Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) - Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" - Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) - Me.NBHoldTheEdgeMax.TabIndex = 155 - Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'CBLongEdgeTaunts - ' - Me.CBLongEdgeTaunts.Checked = True - Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black - Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) - Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" - Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) - Me.CBLongEdgeTaunts.TabIndex = 172 - Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" - Me.CBLongEdgeTaunts.UseVisualStyleBackColor = True - ' - 'Label131 - ' - Me.Label131.BackColor = System.Drawing.Color.Transparent - Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label131.ForeColor = System.Drawing.Color.Black - Me.Label131.Location = New System.Drawing.Point(6, 127) - Me.Label131.Name = "Label131" - Me.Label131.Size = New System.Drawing.Size(128, 17) - Me.Label131.TabIndex = 191 - Me.Label131.Text = "Max Extreme Hold Time:" - Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'PictureBox12 - ' - Me.PictureBox12.BackColor = System.Drawing.Color.LightGray - Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox12.Location = New System.Drawing.Point(9, 6) - Me.PictureBox12.Name = "PictureBox12" - Me.PictureBox12.Size = New System.Drawing.Size(160, 19) - Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox12.TabIndex = 149 - Me.PictureBox12.TabStop = False - ' - 'GroupBox32 - ' - Me.GroupBox32.BackColor = System.Drawing.Color.LightGray - Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) - Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) - Me.GroupBox32.Controls.Add(Me.CBOwnChastity) - Me.GroupBox32.Controls.Add(Me.CBChastityPA) - Me.GroupBox32.Controls.Add(Me.CBHimHer) - Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) - Me.GroupBox32.Controls.Add(Me.CBCockToClit) - Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) - Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) - Me.GroupBox32.Controls.Add(Me.CBSubPierced) - Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) - Me.GroupBox32.Controls.Add(Me.TBSubHairColor) - Me.GroupBox32.Controls.Add(Me.Label63) - Me.GroupBox32.Controls.Add(Me.LBLSubInches) - Me.GroupBox32.Controls.Add(Me.subAgeNumBox) - Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) - Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) - Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) - Me.GroupBox32.Controls.Add(Me.LBLSubEye) - Me.GroupBox32.Controls.Add(Me.LBLSubHair) - Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) - Me.GroupBox32.Controls.Add(Me.LBLSubAge) - Me.GroupBox32.ForeColor = System.Drawing.Color.Black - Me.GroupBox32.Location = New System.Drawing.Point(7, 30) - Me.GroupBox32.Name = "GroupBox32" - Me.GroupBox32.Size = New System.Drawing.Size(427, 165) - Me.GroupBox32.TabIndex = 62 - Me.GroupBox32.TabStop = False - Me.GroupBox32.Text = "Stats && Information" - ' - 'LBLSubBdayFormat - ' - Me.LBLSubBdayFormat.AutoSize = True - Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) - Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" - Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) - Me.LBLSubBdayFormat.TabIndex = 161 - Me.LBLSubBdayFormat.Text = "mm/dd" - Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBChastitySpikes - ' - Me.CBChastitySpikes.AutoSize = True - Me.CBChastitySpikes.Enabled = False - Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) - Me.CBChastitySpikes.Name = "CBChastitySpikes" - Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) - Me.CBChastitySpikes.TabIndex = 4 - Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" - Me.CBChastitySpikes.UseVisualStyleBackColor = True - ' - 'CBOwnChastity - ' - Me.CBOwnChastity.AutoSize = True - Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) - Me.CBOwnChastity.Name = "CBOwnChastity" - Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) - Me.CBOwnChastity.TabIndex = 5 - Me.CBOwnChastity.Text = "Own Device a Chastity Device" - Me.CBOwnChastity.UseVisualStyleBackColor = True - ' - 'CBChastityPA - ' - Me.CBChastityPA.AutoSize = True - Me.CBChastityPA.Enabled = False - Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) - Me.CBChastityPA.Name = "CBChastityPA" - Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) - Me.CBChastityPA.TabIndex = 3 - Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" - Me.CBChastityPA.UseVisualStyleBackColor = True - ' - 'CBHimHer - ' - Me.CBHimHer.AutoSize = True - Me.CBHimHer.Location = New System.Drawing.Point(191, 65) - Me.CBHimHer.Name = "CBHimHer" - Me.CBHimHer.Size = New System.Drawing.Size(219, 17) - Me.CBHimHer.TabIndex = 3 - Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" - Me.CBHimHer.UseVisualStyleBackColor = True - ' - 'CBBallsToPussy - ' - Me.CBBallsToPussy.AutoSize = True - Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) - Me.CBBallsToPussy.Name = "CBBallsToPussy" - Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) - Me.CBBallsToPussy.TabIndex = 160 - Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" - Me.CBBallsToPussy.UseVisualStyleBackColor = True - ' - 'CBCockToClit - ' - Me.CBCockToClit.AutoSize = True - Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) - Me.CBCockToClit.Name = "CBCockToClit" - Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) - Me.CBCockToClit.TabIndex = 159 - Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" - Me.CBCockToClit.UseVisualStyleBackColor = True - ' - 'NBBirthdayDay - ' - Me.NBBirthdayDay.BackColor = System.Drawing.Color.White - Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black - Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) - Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) - Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBBirthdayDay.Name = "NBBirthdayDay" - Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) - Me.NBBirthdayDay.TabIndex = 144 - Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'CBSubCircumcised - ' - Me.CBSubCircumcised.AutoSize = True - Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black - Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) - Me.CBSubCircumcised.Name = "CBSubCircumcised" - Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) - Me.CBSubCircumcised.TabIndex = 157 - Me.CBSubCircumcised.Text = "Circumcised" - Me.CBSubCircumcised.UseVisualStyleBackColor = True - ' - 'CBSubPierced - ' - Me.CBSubPierced.AutoSize = True - Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBSubPierced.ForeColor = System.Drawing.Color.Black - Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) - Me.CBSubPierced.Name = "CBSubPierced" - Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) - Me.CBSubPierced.TabIndex = 156 - Me.CBSubPierced.Text = "Pierced" - Me.CBSubPierced.UseVisualStyleBackColor = True - ' - 'TBSubEyeColor - ' - Me.TBSubEyeColor.BackColor = System.Drawing.Color.White - Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black - Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) - Me.TBSubEyeColor.Name = "TBSubEyeColor" - Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) - Me.TBSubEyeColor.TabIndex = 155 - Me.TBSubEyeColor.Text = "brown" - ' - 'TBSubHairColor - ' - Me.TBSubHairColor.BackColor = System.Drawing.Color.White - Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black - Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) - Me.TBSubHairColor.Name = "TBSubHairColor" - Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) - Me.TBSubHairColor.TabIndex = 154 - Me.TBSubHairColor.Text = "brown" - ' - 'Label63 - ' - Me.Label63.AutoSize = True - Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label63.ForeColor = System.Drawing.Color.Black - Me.Label63.Location = New System.Drawing.Point(113, 41) - Me.Label63.Name = "Label63" - Me.Label63.Size = New System.Drawing.Size(12, 13) - Me.Label63.TabIndex = 143 - Me.Label63.Text = "/" - Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLSubInches - ' - Me.LBLSubInches.AutoSize = True - Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) - Me.LBLSubInches.Name = "LBLSubInches" - Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) - Me.LBLSubInches.TabIndex = 124 - Me.LBLSubInches.Text = "inches" - Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'subAgeNumBox - ' - Me.subAgeNumBox.BackColor = System.Drawing.Color.White - Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black - Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) - Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) - Me.subAgeNumBox.Name = "subAgeNumBox" - Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) - Me.subAgeNumBox.TabIndex = 27 - Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) - ' - 'NBBirthdayMonth - ' - Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White - Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black - Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) - Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) - Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBBirthdayMonth.Name = "NBBirthdayMonth" - Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) - Me.NBBirthdayMonth.TabIndex = 41 - Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'LBLSubCockSize - ' - Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent - Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black - Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) - Me.LBLSubCockSize.Name = "LBLSubCockSize" - Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) - Me.LBLSubCockSize.TabIndex = 142 - Me.LBLSubCockSize.Text = "Cock Size:" - Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CockSizeNumBox - ' - Me.CockSizeNumBox.BackColor = System.Drawing.Color.White - Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black - Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) - Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) - Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.CockSizeNumBox.Name = "CockSizeNumBox" - Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) - Me.CockSizeNumBox.TabIndex = 123 - Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) - ' - 'LBLSubEye - ' - Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent - Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubEye.ForeColor = System.Drawing.Color.Black - Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) - Me.LBLSubEye.Name = "LBLSubEye" - Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) - Me.LBLSubEye.TabIndex = 141 - Me.LBLSubEye.Text = "Eye Color" - Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLSubHair - ' - Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent - Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubHair.ForeColor = System.Drawing.Color.Black - Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) - Me.LBLSubHair.Name = "LBLSubHair" - Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) - Me.LBLSubHair.TabIndex = 140 - Me.LBLSubHair.Text = "Hair Color" - Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLSubBirthday - ' - Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent - Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black - Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) - Me.LBLSubBirthday.Name = "LBLSubBirthday" - Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) - Me.LBLSubBirthday.TabIndex = 139 - Me.LBLSubBirthday.Text = "Birthday:" - Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLSubAge - ' - Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent - Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubAge.ForeColor = System.Drawing.Color.Black - Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) - Me.LBLSubAge.Name = "LBLSubAge" - Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) - Me.LBLSubAge.TabIndex = 138 - Me.LBLSubAge.Text = "Age:" - Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label70 - ' - Me.Label70.BackColor = System.Drawing.Color.Transparent - Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label70.ForeColor = System.Drawing.Color.Black - Me.Label70.Location = New System.Drawing.Point(7, 6) - Me.Label70.Name = "Label70" - Me.Label70.Size = New System.Drawing.Size(692, 21) - Me.Label70.TabIndex = 49 - Me.Label70.Text = "Sub Settings" - Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage16 - ' - Me.TabPage16.BackColor = System.Drawing.Color.Silver - Me.TabPage16.Controls.Add(Me.Panel9) - Me.TabPage16.Location = New System.Drawing.Point(4, 22) - Me.TabPage16.Name = "TabPage16" - Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage16.Size = New System.Drawing.Size(720, 448) - Me.TabPage16.TabIndex = 14 - Me.TabPage16.Text = "Scripts" - ' - 'Panel9 - ' - Me.Panel9.BackColor = System.Drawing.Color.LightGray - Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel9.Controls.Add(Me.BTNScriptAvailable) - Me.Panel9.Controls.Add(Me.BTNScriptNone) - Me.Panel9.Controls.Add(Me.BTNScriptAll) - Me.Panel9.Controls.Add(Me.BTNScriptOpen) - Me.Panel9.Controls.Add(Me.LBLScriptReq) - Me.Panel9.Controls.Add(Me.GroupBox31) - Me.Panel9.Controls.Add(Me.TCScripts) - Me.Panel9.Controls.Add(Me.GroupBox42) - Me.Panel9.Controls.Add(Me.PictureBox1) - Me.Panel9.Controls.Add(Me.GroupBox43) - Me.Panel9.Controls.Add(Me.Label104) - Me.Panel9.Location = New System.Drawing.Point(6, 6) - Me.Panel9.Name = "Panel9" - Me.Panel9.Size = New System.Drawing.Size(708, 437) - Me.Panel9.TabIndex = 94 - ' - 'BTNScriptAvailable - ' - Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) - Me.BTNScriptAvailable.Name = "BTNScriptAvailable" - Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) - Me.BTNScriptAvailable.TabIndex = 160 - Me.BTNScriptAvailable.Text = "Select Available" - Me.BTNScriptAvailable.UseVisualStyleBackColor = True - ' - 'BTNScriptNone - ' - Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) - Me.BTNScriptNone.Name = "BTNScriptNone" - Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) - Me.BTNScriptNone.TabIndex = 159 - Me.BTNScriptNone.Text = "Select None" - Me.BTNScriptNone.UseVisualStyleBackColor = True - ' - 'BTNScriptAll - ' - Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) - Me.BTNScriptAll.Name = "BTNScriptAll" - Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) - Me.BTNScriptAll.TabIndex = 158 - Me.BTNScriptAll.Text = "Select All" - Me.BTNScriptAll.UseVisualStyleBackColor = True - ' - 'BTNScriptOpen - ' - Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) - Me.BTNScriptOpen.Name = "BTNScriptOpen" - Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) - Me.BTNScriptOpen.TabIndex = 157 - Me.BTNScriptOpen.Text = "Open Script" - Me.BTNScriptOpen.UseVisualStyleBackColor = True - ' - 'LBLScriptReq - ' - Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray - Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green - Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) - Me.LBLScriptReq.Name = "LBLScriptReq" - Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) - Me.LBLScriptReq.TabIndex = 156 - Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox31 - ' - Me.GroupBox31.Controls.Add(Me.RTBScriptReq) - Me.GroupBox31.Location = New System.Drawing.Point(314, 169) - Me.GroupBox31.Name = "GroupBox31" - Me.GroupBox31.Size = New System.Drawing.Size(385, 110) - Me.GroupBox31.TabIndex = 155 - Me.GroupBox31.TabStop = False - Me.GroupBox31.Text = "Requirements" - ' - 'RTBScriptReq - ' - Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) - Me.RTBScriptReq.Name = "RTBScriptReq" - Me.RTBScriptReq.ReadOnly = True - Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) - Me.RTBScriptReq.TabIndex = 0 - Me.RTBScriptReq.Text = "" - ' - 'TCScripts - ' - Me.TCScripts.Controls.Add(Me.TabPage21) - Me.TCScripts.Controls.Add(Me.TabPage17) - Me.TCScripts.Controls.Add(Me.TabPage18) - Me.TCScripts.Controls.Add(Me.TabPage19) - Me.TCScripts.Location = New System.Drawing.Point(9, 31) - Me.TCScripts.Name = "TCScripts" - Me.TCScripts.SelectedIndex = 0 - Me.TCScripts.Size = New System.Drawing.Size(299, 248) - Me.TCScripts.TabIndex = 154 - ' - 'TabPage21 - ' - Me.TabPage21.BackColor = System.Drawing.Color.Silver - Me.TabPage21.Controls.Add(Me.CLBStartList) - Me.TabPage21.Location = New System.Drawing.Point(4, 22) - Me.TabPage21.Name = "TabPage21" - Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage21.Size = New System.Drawing.Size(291, 222) - Me.TabPage21.TabIndex = 4 - Me.TabPage21.Text = "Start" - ' - 'CLBStartList - ' - Me.CLBStartList.FormattingEnabled = True - Me.CLBStartList.Location = New System.Drawing.Point(4, 4) - Me.CLBStartList.Name = "CLBStartList" - Me.CLBStartList.Size = New System.Drawing.Size(283, 214) - Me.CLBStartList.Sorted = True - Me.CLBStartList.TabIndex = 155 - ' - 'TabPage17 - ' - Me.TabPage17.BackColor = System.Drawing.Color.Silver - Me.TabPage17.Controls.Add(Me.CLBModuleList) - Me.TabPage17.Location = New System.Drawing.Point(4, 22) - Me.TabPage17.Name = "TabPage17" - Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage17.Size = New System.Drawing.Size(291, 222) - Me.TabPage17.TabIndex = 5 - Me.TabPage17.Text = "Modules" - ' - 'CLBModuleList - ' - Me.CLBModuleList.FormattingEnabled = True - Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) - Me.CLBModuleList.Name = "CLBModuleList" - Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) - Me.CLBModuleList.Sorted = True - Me.CLBModuleList.TabIndex = 156 - ' - 'TabPage18 - ' - Me.TabPage18.BackColor = System.Drawing.Color.Silver - Me.TabPage18.Controls.Add(Me.CLBLinkList) - Me.TabPage18.Location = New System.Drawing.Point(4, 22) - Me.TabPage18.Name = "TabPage18" - Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage18.Size = New System.Drawing.Size(291, 222) - Me.TabPage18.TabIndex = 6 - Me.TabPage18.Text = "Link" - ' - 'CLBLinkList - ' - Me.CLBLinkList.FormattingEnabled = True - Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) - Me.CLBLinkList.Name = "CLBLinkList" - Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) - Me.CLBLinkList.Sorted = True - Me.CLBLinkList.TabIndex = 156 - ' - 'TabPage19 - ' - Me.TabPage19.BackColor = System.Drawing.Color.Silver - Me.TabPage19.Controls.Add(Me.CLBEndList) - Me.TabPage19.Location = New System.Drawing.Point(4, 22) - Me.TabPage19.Name = "TabPage19" - Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage19.Size = New System.Drawing.Size(291, 222) - Me.TabPage19.TabIndex = 7 - Me.TabPage19.Text = "End" - ' - 'CLBEndList - ' - Me.CLBEndList.FormattingEnabled = True - Me.CLBEndList.Location = New System.Drawing.Point(4, 4) - Me.CLBEndList.Name = "CLBEndList" - Me.CLBEndList.Size = New System.Drawing.Size(283, 214) - Me.CLBEndList.Sorted = True - Me.CLBEndList.TabIndex = 156 - ' - 'GroupBox42 - ' - Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) - Me.GroupBox42.Location = New System.Drawing.Point(314, 53) - Me.GroupBox42.Name = "GroupBox42" - Me.GroupBox42.Size = New System.Drawing.Size(385, 110) - Me.GroupBox42.TabIndex = 153 - Me.GroupBox42.TabStop = False - Me.GroupBox42.Text = "Description" - ' - 'RTBScriptDesc - ' - Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) - Me.RTBScriptDesc.Name = "RTBScriptDesc" - Me.RTBScriptDesc.ReadOnly = True - Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) - Me.RTBScriptDesc.TabIndex = 0 - Me.RTBScriptDesc.Text = "" - ' - 'PictureBox1 - ' - Me.PictureBox1.BackColor = System.Drawing.Color.LightGray - Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox1.Location = New System.Drawing.Point(9, 6) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(160, 19) - Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox1.TabIndex = 151 - Me.PictureBox1.TabStop = False - ' - 'GroupBox43 - ' - Me.GroupBox43.BackColor = System.Drawing.Color.LightGray - Me.GroupBox43.Controls.Add(Me.Label98) - Me.GroupBox43.ForeColor = System.Drawing.Color.Black - Me.GroupBox43.Location = New System.Drawing.Point(7, 331) - Me.GroupBox43.Name = "GroupBox43" - Me.GroupBox43.Size = New System.Drawing.Size(692, 92) - Me.GroupBox43.TabIndex = 65 - Me.GroupBox43.TabStop = False - Me.GroupBox43.Text = "Description" - ' - 'Label98 - ' - Me.Label98.BackColor = System.Drawing.Color.Transparent - Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label98.ForeColor = System.Drawing.Color.Black - Me.Label98.Location = New System.Drawing.Point(6, 16) - Me.Label98.Name = "Label98" - Me.Label98.Size = New System.Drawing.Size(680, 73) - Me.Label98.TabIndex = 62 - Me.Label98.Text = resources.GetString("Label98.Text") - Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label104 - ' - Me.Label104.BackColor = System.Drawing.Color.Transparent - Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label104.ForeColor = System.Drawing.Color.Black - Me.Label104.Location = New System.Drawing.Point(7, 6) - Me.Label104.Name = "Label104" - Me.Label104.Size = New System.Drawing.Size(692, 21) - Me.Label104.TabIndex = 49 - Me.Label104.Text = "Script Selection" - Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage7 - ' - Me.TabPage7.BackColor = System.Drawing.Color.Silver - Me.TabPage7.Controls.Add(Me.TabControl4) - Me.TabPage7.Location = New System.Drawing.Point(4, 22) - Me.TabPage7.Name = "TabPage7" - Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage7.Size = New System.Drawing.Size(720, 448) - Me.TabPage7.TabIndex = 11 - Me.TabPage7.Text = "Images" - ' - 'TabControl4 - ' - Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) - Me.TabControl4.Controls.Add(Me.TpImagesGenre) - Me.TabControl4.Location = New System.Drawing.Point(6, 6) - Me.TabControl4.Name = "TabControl4" - Me.TabControl4.SelectedIndex = 0 - Me.TabControl4.Size = New System.Drawing.Size(708, 437) - Me.TabControl4.TabIndex = 154 - ' - 'TpImagesUrlFiles - ' - Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray - Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) - Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) - Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) - Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) - Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) - Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) - Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" - Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) - Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) - Me.TpImagesUrlFiles.TabIndex = 0 - Me.TpImagesUrlFiles.Text = "URL Files" - ' - 'CBURLPreview - ' - Me.CBURLPreview.AutoSize = True - Me.CBURLPreview.Checked = True - Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) - Me.CBURLPreview.Name = "CBURLPreview" - Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) - Me.CBURLPreview.TabIndex = 163 - Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" - Me.CBURLPreview.UseVisualStyleBackColor = True - ' - 'GroupBox66 - ' - Me.GroupBox66.Controls.Add(Me.PBURLPreview) - Me.GroupBox66.Location = New System.Drawing.Point(344, 3) - Me.GroupBox66.Name = "GroupBox66" - Me.GroupBox66.Size = New System.Drawing.Size(350, 309) - Me.GroupBox66.TabIndex = 162 - Me.GroupBox66.TabStop = False - Me.GroupBox66.Text = "Example Preview" - ' - 'PBURLPreview - ' - Me.PBURLPreview.BackColor = System.Drawing.Color.Black - Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) - Me.PBURLPreview.Name = "PBURLPreview" - Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) - Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PBURLPreview.TabIndex = 0 - Me.PBURLPreview.TabStop = False - ' - 'BTNURLFilesAll - ' - Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) - Me.BTNURLFilesAll.Name = "BTNURLFilesAll" - Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) - Me.BTNURLFilesAll.TabIndex = 160 - Me.BTNURLFilesAll.Text = "Select All" - Me.BTNURLFilesAll.UseVisualStyleBackColor = True - ' - 'BTNURLFilesNone - ' - Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) - Me.BTNURLFilesNone.Name = "BTNURLFilesNone" - Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) - Me.BTNURLFilesNone.TabIndex = 161 - Me.BTNURLFilesNone.Text = "Select None" - Me.BTNURLFilesNone.UseVisualStyleBackColor = True - ' - 'URLFileList - ' - Me.URLFileList.CheckOnClick = True - Me.URLFileList.FormattingEnabled = True - Me.URLFileList.Location = New System.Drawing.Point(6, 9) - Me.URLFileList.Name = "URLFileList" - Me.URLFileList.Size = New System.Drawing.Size(332, 394) - Me.URLFileList.Sorted = True - Me.URLFileList.TabIndex = 154 - ' - 'TpImagesGenre - ' - Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray - Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) - Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) - Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) - Me.TpImagesGenre.Name = "TpImagesGenre" - Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) - Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) - Me.TpImagesGenre.TabIndex = 1 - Me.TpImagesGenre.Text = "Genre Images" - ' - 'GrbImageUrlFiles - ' - Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) - Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) - Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" - Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) - Me.GrbImageUrlFiles.TabIndex = 1 - Me.GrbImageUrlFiles.TabStop = False - Me.GrbImageUrlFiles.Text = "URL Files" - ' - 'TlpImageUrls - ' - Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray - Me.TlpImageUrls.ColumnCount = 3 - Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) - Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill - Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize - Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) - Me.TlpImageUrls.Name = "TlpImageUrls" - Me.TlpImageUrls.RowCount = 14 - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) - Me.TlpImageUrls.TabIndex = 0 - ' - 'BtnImageUrlButt - ' - Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) - Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) - Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlButt.Name = "BtnImageUrlButt" - Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlButt.TabIndex = 38 - Me.BtnImageUrlButt.Text = "1" - Me.BtnImageUrlButt.UseVisualStyleBackColor = False - ' - 'BtnImageUrlBoobs - ' - Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) - Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) - Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" - Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlBoobs.TabIndex = 35 - Me.BtnImageUrlBoobs.Text = "1" - Me.BtnImageUrlBoobs.UseVisualStyleBackColor = False - ' - 'BtnImageUrlBlowjob - ' - Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) - Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" - Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlBlowjob.TabIndex = 11 - Me.BtnImageUrlBlowjob.Text = "1" - Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = False - ' - 'BtnImageUrlCaptions - ' - Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) - Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" - Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlCaptions.TabIndex = 29 - Me.BtnImageUrlCaptions.Text = "1" - Me.BtnImageUrlCaptions.UseVisualStyleBackColor = False - ' - 'BtnImageUrlHentai - ' - Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) - Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" - Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlHentai.TabIndex = 20 - Me.BtnImageUrlHentai.Text = "1" - Me.BtnImageUrlHentai.UseVisualStyleBackColor = False - ' - 'BtnImageUrlGay - ' - Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) - Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlGay.Name = "BtnImageUrlGay" - Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlGay.TabIndex = 23 - Me.BtnImageUrlGay.Text = "1" - Me.BtnImageUrlGay.UseVisualStyleBackColor = False - ' - 'BtnImageUrlGeneral - ' - Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) - Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" - Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlGeneral.TabIndex = 32 - Me.BtnImageUrlGeneral.Text = "1" - Me.BtnImageUrlGeneral.UseVisualStyleBackColor = False - ' - 'BtnImageUrlHardcore - ' - Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) - Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" - Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlHardcore.TabIndex = 1 - Me.BtnImageUrlHardcore.Text = "1" - Me.BtnImageUrlHardcore.UseVisualStyleBackColor = False - ' - 'BtnImageUrlLesbian - ' - Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) - Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" - Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlLesbian.TabIndex = 8 - Me.BtnImageUrlLesbian.Text = "1" - Me.BtnImageUrlLesbian.UseVisualStyleBackColor = False - ' - 'BtnImageUrlLezdom - ' - Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) - Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" - Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlLezdom.TabIndex = 17 - Me.BtnImageUrlLezdom.Text = "1" - Me.BtnImageUrlLezdom.UseVisualStyleBackColor = False - ' - 'BtnImageUrlMaledom - ' - Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) - Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" - Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlMaledom.TabIndex = 26 - Me.BtnImageUrlMaledom.Text = "1" - Me.BtnImageUrlMaledom.UseVisualStyleBackColor = False - ' - 'BtnImageUrlFemdom - ' - Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) - Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" - Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlFemdom.TabIndex = 14 - Me.BtnImageUrlFemdom.Text = "1" - Me.BtnImageUrlFemdom.UseVisualStyleBackColor = False - ' - 'BtnImageUrlSoftcore - ' - Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) - Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" - Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlSoftcore.TabIndex = 5 - Me.BtnImageUrlSoftcore.Text = "1" - Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = False - ' - 'ChbImageUrlHardcore - ' - Me.ChbImageUrlHardcore.AutoSize = True - Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled - Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) - Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" - Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlHardcore.TabIndex = 0 - Me.ChbImageUrlHardcore.Text = "Hardcore" - Me.ChbImageUrlHardcore.UseVisualStyleBackColor = True - ' - 'ChbImageUrlButts - ' - Me.ChbImageUrlButts.AutoSize = True - Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled - Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) - Me.ChbImageUrlButts.Name = "ChbImageUrlButts" - Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) - Me.ChbImageUrlButts.TabIndex = 37 - Me.ChbImageUrlButts.Text = "Butts" - Me.ChbImageUrlButts.UseVisualStyleBackColor = True - ' - 'ChbImageUrlMaledom - ' - Me.ChbImageUrlMaledom.AutoSize = True - Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled - Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) - Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" - Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlMaledom.TabIndex = 25 - Me.ChbImageUrlMaledom.Text = "Maledom" - Me.ChbImageUrlMaledom.UseVisualStyleBackColor = True - ' - 'ChbImageUrlGay - ' - Me.ChbImageUrlGay.AutoSize = True - Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled - Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) - Me.ChbImageUrlGay.Name = "ChbImageUrlGay" - Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlGay.TabIndex = 22 - Me.ChbImageUrlGay.Text = "Gay" - Me.ChbImageUrlGay.UseVisualStyleBackColor = True - ' - 'ChbImageUrlSoftcore - ' - Me.ChbImageUrlSoftcore.AutoSize = True - Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled - Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) - Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" - Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlSoftcore.TabIndex = 4 - Me.ChbImageUrlSoftcore.Text = "Softcore" - Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = True - ' - 'ChbImageUrlBoobs - ' - Me.ChbImageUrlBoobs.AutoSize = True - Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled - Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) - Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" - Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlBoobs.TabIndex = 34 - Me.ChbImageUrlBoobs.Text = "Boobs" - Me.ChbImageUrlBoobs.UseVisualStyleBackColor = True - ' - 'ChbImageUrlLesbian - ' - Me.ChbImageUrlLesbian.AutoSize = True - Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled - Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) - Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" - Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlLesbian.TabIndex = 7 - Me.ChbImageUrlLesbian.Text = "Lesbian" - Me.ChbImageUrlLesbian.UseVisualStyleBackColor = True - ' - 'ChbImageUrlBlowjob - ' - Me.ChbImageUrlBlowjob.AutoSize = True - Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled - Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) - Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" - Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlBlowjob.TabIndex = 10 - Me.ChbImageUrlBlowjob.Text = "Blowjob" - Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = True - ' - 'ChbImageUrlCaptions - ' - Me.ChbImageUrlCaptions.AutoSize = True - Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled - Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) - Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" - Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlCaptions.TabIndex = 28 - Me.ChbImageUrlCaptions.Text = "Captions" - Me.ChbImageUrlCaptions.UseVisualStyleBackColor = True - ' - 'ChbImageUrlGeneral - ' - Me.ChbImageUrlGeneral.AutoSize = True - Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled - Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) - Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" - Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlGeneral.TabIndex = 31 - Me.ChbImageUrlGeneral.Text = "General" - Me.ChbImageUrlGeneral.UseVisualStyleBackColor = True - ' - 'ChbImageUrlFemdom - ' - Me.ChbImageUrlFemdom.AutoSize = True - Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled - Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) - Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" - Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlFemdom.TabIndex = 13 - Me.ChbImageUrlFemdom.Text = "Femdom" - Me.ChbImageUrlFemdom.UseVisualStyleBackColor = True - ' - 'ChbImageUrlHentai - ' - Me.ChbImageUrlHentai.AutoSize = True - Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled - Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) - Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" - Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlHentai.TabIndex = 19 - Me.ChbImageUrlHentai.Text = "Hentai" - Me.ChbImageUrlHentai.UseVisualStyleBackColor = True - ' - 'ChbImageUrlLezdom - ' - Me.ChbImageUrlLezdom.AutoSize = True - Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled - Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) - Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" - Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlLezdom.TabIndex = 16 - Me.ChbImageUrlLezdom.Text = "Lezdom" - Me.ChbImageUrlLezdom.UseVisualStyleBackColor = True - ' - 'TxbImageUrlBlowjob - ' - Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) - Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" - Me.TxbImageUrlBlowjob.ReadOnly = True - Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBlowjob.TabIndex = 12 - Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob - ' - 'TxbImageUrlSoftcore - ' - Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) - Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" - Me.TxbImageUrlSoftcore.ReadOnly = True - Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlSoftcore.TabIndex = 6 - Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore - ' - 'TxbImageUrlLezdom - ' - Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) - Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" - Me.TxbImageUrlLezdom.ReadOnly = True - Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLezdom.TabIndex = 18 - Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom - ' - 'TxbImageUrlFemdom - ' - Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) - Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" - Me.TxbImageUrlFemdom.ReadOnly = True - Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlFemdom.TabIndex = 15 - Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom - ' - 'TxbImageUrlHardcore - ' - Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) - Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" - Me.TxbImageUrlHardcore.ReadOnly = True - Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHardcore.TabIndex = 3 - Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore - ' - 'TxbImageUrlHentai - ' - Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) - Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" - Me.TxbImageUrlHentai.ReadOnly = True - Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHentai.TabIndex = 21 - Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai - ' - 'TxbImageUrlGay - ' - Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) - Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGay.Name = "TxbImageUrlGay" - Me.TxbImageUrlGay.ReadOnly = True - Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGay.TabIndex = 24 - Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay - ' - 'TxbImageUrlLesbian - ' - Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) - Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" - Me.TxbImageUrlLesbian.ReadOnly = True - Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLesbian.TabIndex = 9 - Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian - ' - 'TxbImageUrlMaledom - ' - Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) - Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" - Me.TxbImageUrlMaledom.ReadOnly = True - Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlMaledom.TabIndex = 27 - Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom - ' - 'TxbImageUrlCaptions - ' - Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) - Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" - Me.TxbImageUrlCaptions.ReadOnly = True - Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlCaptions.TabIndex = 30 - Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions - ' - 'TxbImageUrlGeneral - ' - Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) - Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" - Me.TxbImageUrlGeneral.ReadOnly = True - Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGeneral.TabIndex = 33 - Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral - ' - 'TxbImageUrlBoobs - ' - Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) - Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" - Me.TxbImageUrlBoobs.ReadOnly = True - Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBoobs.TabIndex = 36 - Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs - ' - 'TxbImageUrlButts - ' - Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) - Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlButts.Name = "TxbImageUrlButts" - Me.TxbImageUrlButts.ReadOnly = True - Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlButts.TabIndex = 39 - Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt - ' - 'GbxImagesGenre - ' - Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) - Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) - Me.GbxImagesGenre.Name = "GbxImagesGenre" - Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) - Me.GbxImagesGenre.TabIndex = 0 - Me.GbxImagesGenre.TabStop = False - Me.GbxImagesGenre.Text = "Local Images" - ' - 'TableLayoutPanel1 - ' - Me.TableLayoutPanel1.ColumnCount = 4 - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) - Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) - Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) - Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) - Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) - Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) - Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) - Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) - Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) - Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) - Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) - Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) - Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) - Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) - Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) - Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) - Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) - Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) - Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) - Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) - Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) - Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) - Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) - Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) - Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) - Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) - Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) - Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) - Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) - Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize - Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) - Me.TableLayoutPanel1.Name = "TableLayoutPanel1" - Me.TableLayoutPanel1.RowCount = 13 - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) - Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) - Me.TableLayoutPanel1.TabIndex = 0 - ' - 'BTNIHardcore - ' - Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray - Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black - Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) - Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIHardcore.Name = "BTNIHardcore" - Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) - Me.BTNIHardcore.TabIndex = 1 - Me.BTNIHardcore.Text = "1" - Me.BTNIHardcore.UseVisualStyleBackColor = False - ' - 'TbxIHardcore - ' - Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray - Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black - Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) - Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIHardcore.Name = "TbxIHardcore" - Me.TbxIHardcore.ReadOnly = True - Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) - Me.TbxIHardcore.TabIndex = 2 - Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore - ' - 'CBIHardcoreSD - ' - Me.CBIHardcoreSD.AutoSize = True - Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD - Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black - Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) - Me.CBIHardcoreSD.Name = "CBIHardcoreSD" - Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) - Me.CBIHardcoreSD.TabIndex = 3 - Me.CBIHardcoreSD.UseVisualStyleBackColor = True - ' - 'CBIHardcore - ' - Me.CBIHardcore.AutoSize = True - Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore - Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHardcore.ForeColor = System.Drawing.Color.Black - Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) - Me.CBIHardcore.Name = "CBIHardcore" - Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) - Me.CBIHardcore.TabIndex = 0 - Me.CBIHardcore.Text = "Hardcore" - Me.CBIHardcore.UseVisualStyleBackColor = True - ' - 'CBISoftcore - ' - Me.CBISoftcore.AutoSize = True - Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore - Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBISoftcore.ForeColor = System.Drawing.Color.Black - Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) - Me.CBISoftcore.Name = "CBISoftcore" - Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) - Me.CBISoftcore.TabIndex = 4 - Me.CBISoftcore.Text = "Softcore" - Me.CBISoftcore.UseVisualStyleBackColor = True - ' - 'TbxISoftcore - ' - Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray - Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black - Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) - Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxISoftcore.Name = "TbxISoftcore" - Me.TbxISoftcore.ReadOnly = True - Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) - Me.TbxISoftcore.TabIndex = 6 - Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore - ' - 'CBButtSubDir - ' - Me.CBButtSubDir.AutoSize = True - Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir - Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black - Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) - Me.CBButtSubDir.Name = "CBButtSubDir" - Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) - Me.CBButtSubDir.TabIndex = 51 - Me.CBButtSubDir.UseVisualStyleBackColor = True - ' - 'CBISoftcoreSD - ' - Me.CBISoftcoreSD.AutoSize = True - Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD - Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black - Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) - Me.CBISoftcoreSD.Name = "CBISoftcoreSD" - Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) - Me.CBISoftcoreSD.TabIndex = 7 - Me.CBISoftcoreSD.UseVisualStyleBackColor = True - ' - 'CBBoobSubDir - ' - Me.CBBoobSubDir.AutoSize = True - Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir - Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black - Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) - Me.CBBoobSubDir.Name = "CBBoobSubDir" - Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) - Me.CBBoobSubDir.TabIndex = 47 - Me.CBBoobSubDir.UseVisualStyleBackColor = True - ' - 'CBILezdomSD - ' - Me.CBILezdomSD.AutoSize = True - Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD - Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black - Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) - Me.CBILezdomSD.Name = "CBILezdomSD" - Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) - Me.CBILezdomSD.TabIndex = 23 - Me.CBILezdomSD.UseVisualStyleBackColor = True - ' - 'CBIGeneralSD - ' - Me.CBIGeneralSD.AutoSize = True - Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD - Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black - Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) - Me.CBIGeneralSD.Name = "CBIGeneralSD" - Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) - Me.CBIGeneralSD.TabIndex = 43 - Me.CBIGeneralSD.UseVisualStyleBackColor = True - ' - 'CBILesbianSD - ' - Me.CBILesbianSD.AutoSize = True - Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD - Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black - Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) - Me.CBILesbianSD.Name = "CBILesbianSD" - Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) - Me.CBILesbianSD.TabIndex = 11 - Me.CBILesbianSD.UseVisualStyleBackColor = True - ' - 'CBICaptionsSD - ' - Me.CBICaptionsSD.AutoSize = True - Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD - Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black - Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) - Me.CBICaptionsSD.Name = "CBICaptionsSD" - Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) - Me.CBICaptionsSD.TabIndex = 39 - Me.CBICaptionsSD.UseVisualStyleBackColor = True - ' - 'CBILesbian - ' - Me.CBILesbian.AutoSize = True - Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian - Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILesbian.ForeColor = System.Drawing.Color.Black - Me.CBILesbian.Location = New System.Drawing.Point(3, 61) - Me.CBILesbian.Name = "CBILesbian" - Me.CBILesbian.Size = New System.Drawing.Size(70, 23) - Me.CBILesbian.TabIndex = 8 - Me.CBILesbian.Text = "Lesbian" - Me.CBILesbian.UseVisualStyleBackColor = True - ' - 'CBIMaledomSD - ' - Me.CBIMaledomSD.AutoSize = True - Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD - Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black - Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) - Me.CBIMaledomSD.Name = "CBIMaledomSD" - Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) - Me.CBIMaledomSD.TabIndex = 35 - Me.CBIMaledomSD.UseVisualStyleBackColor = True - ' - 'CBIBlowjob - ' - Me.CBIBlowjob.AutoSize = True - Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob - Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black - Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) - Me.CBIBlowjob.Name = "CBIBlowjob" - Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) - Me.CBIBlowjob.TabIndex = 12 - Me.CBIBlowjob.Text = "Blowjob" - Me.CBIBlowjob.UseVisualStyleBackColor = True - ' - 'CBIGaySD - ' - Me.CBIGaySD.AutoSize = True - Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD - Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGaySD.ForeColor = System.Drawing.Color.Black - Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) - Me.CBIGaySD.Name = "CBIGaySD" - Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) - Me.CBIGaySD.TabIndex = 31 - Me.CBIGaySD.UseVisualStyleBackColor = True - ' - 'CBIHentaiSD - ' - Me.CBIHentaiSD.AutoSize = True - Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD - Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black - Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) - Me.CBIHentaiSD.Name = "CBIHentaiSD" - Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) - Me.CBIHentaiSD.TabIndex = 27 - Me.CBIHentaiSD.UseVisualStyleBackColor = True - ' - 'CBIBlowjobSD - ' - Me.CBIBlowjobSD.AutoSize = True - Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD - Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black - Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) - Me.CBIBlowjobSD.Name = "CBIBlowjobSD" - Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) - Me.CBIBlowjobSD.TabIndex = 15 - Me.CBIBlowjobSD.UseVisualStyleBackColor = True - ' - 'CBIFemdomSD - ' - Me.CBIFemdomSD.AutoSize = True - Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD - Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black - Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) - Me.CBIFemdomSD.Name = "CBIFemdomSD" - Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) - Me.CBIFemdomSD.TabIndex = 19 - Me.CBIFemdomSD.UseVisualStyleBackColor = True - ' - 'TbxIButts - ' - Me.TbxIButts.BackColor = System.Drawing.Color.LightGray - Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIButts.ForeColor = System.Drawing.Color.Black - Me.TbxIButts.Location = New System.Drawing.Point(115, 353) - Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIButts.Name = "TbxIButts" - Me.TbxIButts.ReadOnly = True - Me.TbxIButts.Size = New System.Drawing.Size(217, 17) - Me.TbxIButts.TabIndex = 50 - Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath - ' - 'CBIFemdom - ' - Me.CBIFemdom.AutoSize = True - Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom - Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIFemdom.ForeColor = System.Drawing.Color.Black - Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) - Me.CBIFemdom.Name = "CBIFemdom" - Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) - Me.CBIFemdom.TabIndex = 16 - Me.CBIFemdom.Text = "Femdom" - Me.CBIFemdom.UseVisualStyleBackColor = True - ' - 'TbxILesbian - ' - Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray - Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxILesbian.ForeColor = System.Drawing.Color.Black - Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) - Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxILesbian.Name = "TbxILesbian" - Me.TbxILesbian.ReadOnly = True - Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) - Me.TbxILesbian.TabIndex = 10 - Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian - ' - 'BTNISoftcore - ' - Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray - Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black - Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) - Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNISoftcore.Name = "BTNISoftcore" - Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) - Me.BTNISoftcore.TabIndex = 5 - Me.BTNISoftcore.Text = "1" - Me.BTNISoftcore.UseVisualStyleBackColor = False - ' - 'CBILezdom - ' - Me.CBILezdom.AutoSize = True - Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom - Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILezdom.ForeColor = System.Drawing.Color.Black - Me.CBILezdom.Location = New System.Drawing.Point(3, 148) - Me.CBILezdom.Name = "CBILezdom" - Me.CBILezdom.Size = New System.Drawing.Size(70, 23) - Me.CBILezdom.TabIndex = 20 - Me.CBILezdom.Text = "Lezdom" - Me.CBILezdom.UseVisualStyleBackColor = True - ' - 'TbxIBoobs - ' - Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray - Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black - Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) - Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIBoobs.Name = "TbxIBoobs" - Me.TbxIBoobs.ReadOnly = True - Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) - Me.TbxIBoobs.TabIndex = 46 - Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath - ' - 'CBIHentai - ' - Me.CBIHentai.AutoSize = True - Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai - Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHentai.ForeColor = System.Drawing.Color.Black - Me.CBIHentai.Location = New System.Drawing.Point(3, 177) - Me.CBIHentai.Name = "CBIHentai" - Me.CBIHentai.Size = New System.Drawing.Size(70, 23) - Me.CBIHentai.TabIndex = 24 - Me.CBIHentai.Text = "Hentai" - Me.CBIHentai.UseVisualStyleBackColor = True - ' - 'TbxIBlowjob - ' - Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray - Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black - Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) - Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIBlowjob.Name = "TbxIBlowjob" - Me.TbxIBlowjob.ReadOnly = True - Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) - Me.TbxIBlowjob.TabIndex = 14 - Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob - ' - 'CBIGay - ' - Me.CBIGay.AutoSize = True - Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay - Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGay.ForeColor = System.Drawing.Color.Black - Me.CBIGay.Location = New System.Drawing.Point(3, 206) - Me.CBIGay.Name = "CBIGay" - Me.CBIGay.Size = New System.Drawing.Size(70, 23) - Me.CBIGay.TabIndex = 28 - Me.CBIGay.Text = "Gay" - Me.CBIGay.UseVisualStyleBackColor = True - ' - 'TbxIGeneral - ' - Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray - Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black - Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) - Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIGeneral.Name = "TbxIGeneral" - Me.TbxIGeneral.ReadOnly = True - Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) - Me.TbxIGeneral.TabIndex = 42 - Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral - ' - 'CBIMaledom - ' - Me.CBIMaledom.AutoSize = True - Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom - Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIMaledom.ForeColor = System.Drawing.Color.Black - Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) - Me.CBIMaledom.Name = "CBIMaledom" - Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) - Me.CBIMaledom.TabIndex = 32 - Me.CBIMaledom.Text = "Maledom" - Me.CBIMaledom.UseVisualStyleBackColor = True - ' - 'TbxIFemdom - ' - Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray - Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black - Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) - Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIFemdom.Name = "TbxIFemdom" - Me.TbxIFemdom.ReadOnly = True - Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) - Me.TbxIFemdom.TabIndex = 18 - Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom - ' - 'BTNILesbian - ' - Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray - Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNILesbian.ForeColor = System.Drawing.Color.Black - Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) - Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNILesbian.Name = "BTNILesbian" - Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) - Me.BTNILesbian.TabIndex = 9 - Me.BTNILesbian.Text = "1" - Me.BTNILesbian.UseVisualStyleBackColor = False - ' - 'TbxICaptions - ' - Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray - Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxICaptions.ForeColor = System.Drawing.Color.Black - Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) - Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxICaptions.Name = "TbxICaptions" - Me.TbxICaptions.ReadOnly = True - Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) - Me.TbxICaptions.TabIndex = 38 - Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions - ' - 'CBICaptions - ' - Me.CBICaptions.AutoSize = True - Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions - Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBICaptions.ForeColor = System.Drawing.Color.Black - Me.CBICaptions.Location = New System.Drawing.Point(3, 264) - Me.CBICaptions.Name = "CBICaptions" - Me.CBICaptions.Size = New System.Drawing.Size(70, 23) - Me.CBICaptions.TabIndex = 36 - Me.CBICaptions.Text = "Captions" - Me.CBICaptions.UseVisualStyleBackColor = True - ' - 'TbxILezdom - ' - Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray - Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxILezdom.ForeColor = System.Drawing.Color.Black - Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) - Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxILezdom.Name = "TbxILezdom" - Me.TbxILezdom.ReadOnly = True - Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) - Me.TbxILezdom.TabIndex = 22 - Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom - ' - 'TbxIMaledom - ' - Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray - Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black - Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) - Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIMaledom.Name = "TbxIMaledom" - Me.TbxIMaledom.ReadOnly = True - Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) - Me.TbxIMaledom.TabIndex = 34 - Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom - ' - 'BTNButtPath - ' - Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray - Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNButtPath.ForeColor = System.Drawing.Color.Black - Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) - Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNButtPath.Name = "BTNButtPath" - Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) - Me.BTNButtPath.TabIndex = 49 - Me.BTNButtPath.Text = "1" - Me.BTNButtPath.UseVisualStyleBackColor = False - ' - 'TbxIHentai - ' - Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray - Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIHentai.ForeColor = System.Drawing.Color.Black - Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) - Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIHentai.Name = "TbxIHentai" - Me.TbxIHentai.ReadOnly = True - Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) - Me.TbxIHentai.TabIndex = 26 - Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai - ' - 'CBIGeneral - ' - Me.CBIGeneral.AutoSize = True - Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral - Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGeneral.ForeColor = System.Drawing.Color.Black - Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) - Me.CBIGeneral.Name = "CBIGeneral" - Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) - Me.CBIGeneral.TabIndex = 40 - Me.CBIGeneral.Text = "General" - Me.CBIGeneral.UseVisualStyleBackColor = True - ' - 'TbxIGay - ' - Me.TbxIGay.BackColor = System.Drawing.Color.LightGray - Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIGay.ForeColor = System.Drawing.Color.Black - Me.TbxIGay.Location = New System.Drawing.Point(115, 208) - Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIGay.Name = "TbxIGay" - Me.TbxIGay.ReadOnly = True - Me.TbxIGay.Size = New System.Drawing.Size(217, 17) - Me.TbxIGay.TabIndex = 30 - Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay - ' - 'CBIBoobs - ' - Me.CBIBoobs.AutoSize = True - Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs - Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIBoobs.ForeColor = System.Drawing.Color.Black - Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) - Me.CBIBoobs.Name = "CBIBoobs" - Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) - Me.CBIBoobs.TabIndex = 44 - Me.CBIBoobs.Text = "Boobs" - Me.CBIBoobs.UseVisualStyleBackColor = True - ' - 'CBIButts - ' - Me.CBIButts.AutoSize = True - Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts - Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIButts.ForeColor = System.Drawing.Color.Black - Me.CBIButts.Location = New System.Drawing.Point(3, 351) - Me.CBIButts.Name = "CBIButts" - Me.CBIButts.Size = New System.Drawing.Size(70, 27) - Me.CBIButts.TabIndex = 48 - Me.CBIButts.Text = "Butts" - Me.CBIButts.UseVisualStyleBackColor = True - ' - 'BTNIBlowjob - ' - Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray - Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black - Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) - Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIBlowjob.Name = "BTNIBlowjob" - Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) - Me.BTNIBlowjob.TabIndex = 13 - Me.BTNIBlowjob.Text = "1" - Me.BTNIBlowjob.UseVisualStyleBackColor = False - ' - 'BTNIFemdom - ' - Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray - Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black - Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) - Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIFemdom.Name = "BTNIFemdom" - Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) - Me.BTNIFemdom.TabIndex = 17 - Me.BTNIFemdom.Text = "1" - Me.BTNIFemdom.UseVisualStyleBackColor = False - ' - 'BTNBoobPath - ' - Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray - Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black - Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) - Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNBoobPath.Name = "BTNBoobPath" - Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) - Me.BTNBoobPath.TabIndex = 45 - Me.BTNBoobPath.Text = "1" - Me.BTNBoobPath.UseVisualStyleBackColor = False - ' - 'BTNILezdom - ' - Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray - Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNILezdom.ForeColor = System.Drawing.Color.Black - Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) - Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNILezdom.Name = "BTNILezdom" - Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) - Me.BTNILezdom.TabIndex = 21 - Me.BTNILezdom.Text = "1" - Me.BTNILezdom.UseVisualStyleBackColor = False - ' - 'BTNIHentai - ' - Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray - Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIHentai.ForeColor = System.Drawing.Color.Black - Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) - Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIHentai.Name = "BTNIHentai" - Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) - Me.BTNIHentai.TabIndex = 25 - Me.BTNIHentai.Text = "1" - Me.BTNIHentai.UseVisualStyleBackColor = False - ' - 'BTNIGay - ' - Me.BTNIGay.BackColor = System.Drawing.Color.LightGray - Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIGay.ForeColor = System.Drawing.Color.Black - Me.BTNIGay.Location = New System.Drawing.Point(76, 203) - Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIGay.Name = "BTNIGay" - Me.BTNIGay.Size = New System.Drawing.Size(34, 28) - Me.BTNIGay.TabIndex = 29 - Me.BTNIGay.Text = "1" - Me.BTNIGay.UseVisualStyleBackColor = False - ' - 'BTNIMaledom - ' - Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray - Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black - Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) - Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIMaledom.Name = "BTNIMaledom" - Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) - Me.BTNIMaledom.TabIndex = 33 - Me.BTNIMaledom.Text = "1" - Me.BTNIMaledom.UseVisualStyleBackColor = False - ' - 'BTNICaptions - ' - Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray - Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNICaptions.ForeColor = System.Drawing.Color.Black - Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) - Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNICaptions.Name = "BTNICaptions" - Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) - Me.BTNICaptions.TabIndex = 37 - Me.BTNICaptions.Text = "1" - Me.BTNICaptions.UseVisualStyleBackColor = False - ' - 'BTNIGeneral - ' - Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray - Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black - Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) - Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIGeneral.Name = "BTNIGeneral" - Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) - Me.BTNIGeneral.TabIndex = 41 - Me.BTNIGeneral.Text = "1" - Me.BTNIGeneral.UseVisualStyleBackColor = False - ' - 'TabPage33 - ' - Me.TabPage33.BackColor = System.Drawing.Color.Silver - Me.TabPage33.Controls.Add(Me.TabControl5) - Me.TabPage33.Location = New System.Drawing.Point(4, 22) - Me.TabPage33.Name = "TabPage33" - Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage33.Size = New System.Drawing.Size(720, 448) - Me.TabPage33.TabIndex = 21 - Me.TabPage33.Text = "Tagging" - ' - 'TabControl5 - ' - Me.TabControl5.Controls.Add(Me.TabPage34) - Me.TabControl5.Controls.Add(Me.TabPage35) - Me.TabControl5.Location = New System.Drawing.Point(6, 6) - Me.TabControl5.Name = "TabControl5" - Me.TabControl5.SelectedIndex = 0 - Me.TabControl5.Size = New System.Drawing.Size(708, 437) - Me.TabControl5.TabIndex = 0 - ' - 'TabPage34 - ' - Me.TabPage34.BackColor = System.Drawing.Color.LightGray - Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) - Me.TabPage34.Controls.Add(Me.CBTagAllFours) - Me.TabPage34.Controls.Add(Me.CBTagGlaring) - Me.TabPage34.Controls.Add(Me.CBTagSmiling) - Me.TabPage34.Controls.Add(Me.TBTagDir) - Me.TabPage34.Controls.Add(Me.CBTagPiercing) - Me.TabPage34.Controls.Add(Me.CBTagLegs) - Me.TabPage34.Controls.Add(Me.TBTagFurniture) - Me.TabPage34.Controls.Add(Me.CBTagFurniture) - Me.TabPage34.Controls.Add(Me.TBTagSexToy) - Me.TabPage34.Controls.Add(Me.CBTagSexToy) - Me.TabPage34.Controls.Add(Me.TBTagTattoo) - Me.TabPage34.Controls.Add(Me.CBTagTattoo) - Me.TabPage34.Controls.Add(Me.TBTagUnderwear) - Me.TabPage34.Controls.Add(Me.CBTagUnderwear) - Me.TabPage34.Controls.Add(Me.TBTagGarment) - Me.TabPage34.Controls.Add(Me.CBTagGarment) - Me.TabPage34.Controls.Add(Me.Label72) - Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) - Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) - Me.TabPage34.Controls.Add(Me.CBTagCloseUp) - Me.TabPage34.Controls.Add(Me.CBTagNaked) - Me.TabPage34.Controls.Add(Me.CBTagSideView) - Me.TabPage34.Controls.Add(Me.BTNTagPrevious) - Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) - Me.TabPage34.Controls.Add(Me.BTNTagNext) - Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) - Me.TabPage34.Controls.Add(Me.LBLTagCount) - Me.TabPage34.Controls.Add(Me.CBTagSucking) - Me.TabPage34.Controls.Add(Me.CBTagMasturbating) - Me.TabPage34.Controls.Add(Me.CBTagFeet) - Me.TabPage34.Controls.Add(Me.CBTagBoobs) - Me.TabPage34.Controls.Add(Me.CBTagAss) - Me.TabPage34.Controls.Add(Me.CBTagPussy) - Me.TabPage34.Controls.Add(Me.BTNTagSave) - Me.TabPage34.Controls.Add(Me.BTNTagDir) - Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) - Me.TabPage34.Controls.Add(Me.CBTagFace) - Me.TabPage34.Location = New System.Drawing.Point(4, 22) - Me.TabPage34.Name = "TabPage34" - Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage34.Size = New System.Drawing.Size(700, 411) - Me.TabPage34.TabIndex = 0 - Me.TabPage34.Text = "Domme Tags" - ' - 'CBTagSeeThrough - ' - Me.CBTagSeeThrough.AutoSize = True - Me.CBTagSeeThrough.Enabled = False - Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) - Me.CBTagSeeThrough.Name = "CBTagSeeThrough" - Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) - Me.CBTagSeeThrough.TabIndex = 226 - Me.CBTagSeeThrough.Text = "See Through" - Me.CBTagSeeThrough.UseVisualStyleBackColor = True - ' - 'CBTagAllFours - ' - Me.CBTagAllFours.AutoSize = True - Me.CBTagAllFours.Enabled = False - Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black - Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) - Me.CBTagAllFours.Name = "CBTagAllFours" - Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) - Me.CBTagAllFours.TabIndex = 225 - Me.CBTagAllFours.Text = "All Fours" - Me.CBTagAllFours.UseVisualStyleBackColor = True - ' - 'CBTagGlaring - ' - Me.CBTagGlaring.AutoSize = True - Me.CBTagGlaring.Enabled = False - Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black - Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) - Me.CBTagGlaring.Name = "CBTagGlaring" - Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) - Me.CBTagGlaring.TabIndex = 224 - Me.CBTagGlaring.Text = "Glaring" - Me.CBTagGlaring.UseVisualStyleBackColor = True - ' - 'CBTagSmiling - ' - Me.CBTagSmiling.AutoSize = True - Me.CBTagSmiling.Enabled = False - Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black - Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) - Me.CBTagSmiling.Name = "CBTagSmiling" - Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) - Me.CBTagSmiling.TabIndex = 223 - Me.CBTagSmiling.Text = "Smiling" - Me.CBTagSmiling.UseVisualStyleBackColor = True - ' - 'TBTagDir - ' - Me.TBTagDir.Location = New System.Drawing.Point(55, 9) - Me.TBTagDir.Name = "TBTagDir" - Me.TBTagDir.Size = New System.Drawing.Size(330, 20) - Me.TBTagDir.TabIndex = 222 - Me.TBTagDir.Text = "Enter Image Directory" - ' - 'CBTagPiercing - ' - Me.CBTagPiercing.AutoSize = True - Me.CBTagPiercing.Enabled = False - Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black - Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) - Me.CBTagPiercing.Name = "CBTagPiercing" - Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) - Me.CBTagPiercing.TabIndex = 221 - Me.CBTagPiercing.Text = "Piercing" - Me.CBTagPiercing.UseVisualStyleBackColor = True - ' - 'CBTagLegs - ' - Me.CBTagLegs.AutoSize = True - Me.CBTagLegs.Enabled = False - Me.CBTagLegs.ForeColor = System.Drawing.Color.Black - Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) - Me.CBTagLegs.Name = "CBTagLegs" - Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) - Me.CBTagLegs.TabIndex = 220 - Me.CBTagLegs.Text = "Legs" - Me.CBTagLegs.UseVisualStyleBackColor = True - ' - 'TBTagFurniture - ' - Me.TBTagFurniture.Enabled = False - Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) - Me.TBTagFurniture.Name = "TBTagFurniture" - Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) - Me.TBTagFurniture.TabIndex = 219 - ' - 'CBTagFurniture - ' - Me.CBTagFurniture.AutoSize = True - Me.CBTagFurniture.Enabled = False - Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black - Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) - Me.CBTagFurniture.Name = "CBTagFurniture" - Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) - Me.CBTagFurniture.TabIndex = 218 - Me.CBTagFurniture.Text = "Furniture" - Me.CBTagFurniture.UseVisualStyleBackColor = True - ' - 'TBTagSexToy - ' - Me.TBTagSexToy.Enabled = False - Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) - Me.TBTagSexToy.Name = "TBTagSexToy" - Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) - Me.TBTagSexToy.TabIndex = 217 - ' - 'CBTagSexToy - ' - Me.CBTagSexToy.AutoSize = True - Me.CBTagSexToy.Enabled = False - Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black - Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) - Me.CBTagSexToy.Name = "CBTagSexToy" - Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) - Me.CBTagSexToy.TabIndex = 216 - Me.CBTagSexToy.Text = "Sex Toy" - Me.CBTagSexToy.UseVisualStyleBackColor = True - ' - 'TBTagTattoo - ' - Me.TBTagTattoo.Enabled = False - Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) - Me.TBTagTattoo.Name = "TBTagTattoo" - Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) - Me.TBTagTattoo.TabIndex = 215 - ' - 'CBTagTattoo - ' - Me.CBTagTattoo.AutoSize = True - Me.CBTagTattoo.Enabled = False - Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black - Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) - Me.CBTagTattoo.Name = "CBTagTattoo" - Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) - Me.CBTagTattoo.TabIndex = 214 - Me.CBTagTattoo.Text = "Tattoo" - Me.CBTagTattoo.UseVisualStyleBackColor = True - ' - 'TBTagUnderwear - ' - Me.TBTagUnderwear.Enabled = False - Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) - Me.TBTagUnderwear.Name = "TBTagUnderwear" - Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) - Me.TBTagUnderwear.TabIndex = 213 - ' - 'CBTagUnderwear - ' - Me.CBTagUnderwear.AutoSize = True - Me.CBTagUnderwear.Enabled = False - Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black - Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) - Me.CBTagUnderwear.Name = "CBTagUnderwear" - Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) - Me.CBTagUnderwear.TabIndex = 212 - Me.CBTagUnderwear.Text = "Underwear" - Me.CBTagUnderwear.UseVisualStyleBackColor = True - ' - 'TBTagGarment - ' - Me.TBTagGarment.Enabled = False - Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) - Me.TBTagGarment.Name = "TBTagGarment" - Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) - Me.TBTagGarment.TabIndex = 211 - ' - 'CBTagGarment - ' - Me.CBTagGarment.AutoSize = True - Me.CBTagGarment.Enabled = False - Me.CBTagGarment.ForeColor = System.Drawing.Color.Black - Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) - Me.CBTagGarment.Name = "CBTagGarment" - Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) - Me.CBTagGarment.TabIndex = 210 - Me.CBTagGarment.Text = "Garment" - Me.CBTagGarment.UseVisualStyleBackColor = True - ' - 'Label72 - ' - Me.Label72.BackColor = System.Drawing.Color.Transparent - Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label72.ForeColor = System.Drawing.Color.Black - Me.Label72.Location = New System.Drawing.Point(5, 368) - Me.Label72.Name = "Label72" - Me.Label72.Size = New System.Drawing.Size(451, 35) - Me.Label72.TabIndex = 189 - Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ" & - "ayed, and enter one-word tag descriptions in the text fields when appropriate. (" & - "e.g. Garment: dress)" - Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBTagHandsCovering - ' - Me.CBTagHandsCovering.AutoSize = True - Me.CBTagHandsCovering.Enabled = False - Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) - Me.CBTagHandsCovering.Name = "CBTagHandsCovering" - Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) - Me.CBTagHandsCovering.TabIndex = 209 - Me.CBTagHandsCovering.Text = "Hands Covering" - Me.CBTagHandsCovering.UseVisualStyleBackColor = True - ' - 'CBTagGarmentCovering - ' - Me.CBTagGarmentCovering.AutoSize = True - Me.CBTagGarmentCovering.Enabled = False - Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) - Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" - Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) - Me.CBTagGarmentCovering.TabIndex = 208 - Me.CBTagGarmentCovering.Text = "Garment Covering" - Me.CBTagGarmentCovering.UseVisualStyleBackColor = True - ' - 'CBTagCloseUp - ' - Me.CBTagCloseUp.AutoSize = True - Me.CBTagCloseUp.Enabled = False - Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black - Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) - Me.CBTagCloseUp.Name = "CBTagCloseUp" - Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) - Me.CBTagCloseUp.TabIndex = 205 - Me.CBTagCloseUp.Text = "Close Up" - Me.CBTagCloseUp.UseVisualStyleBackColor = True - ' - 'CBTagNaked - ' - Me.CBTagNaked.AutoSize = True - Me.CBTagNaked.Enabled = False - Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) - Me.CBTagNaked.Name = "CBTagNaked" - Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) - Me.CBTagNaked.TabIndex = 199 - Me.CBTagNaked.Text = "Naked" - Me.CBTagNaked.UseVisualStyleBackColor = True - ' - 'CBTagSideView - ' - Me.CBTagSideView.AutoSize = True - Me.CBTagSideView.Enabled = False - Me.CBTagSideView.ForeColor = System.Drawing.Color.Black - Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) - Me.CBTagSideView.Name = "CBTagSideView" - Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) - Me.CBTagSideView.TabIndex = 204 - Me.CBTagSideView.Text = "Side View" - Me.CBTagSideView.UseVisualStyleBackColor = True - ' - 'BTNTagPrevious - ' - Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray - Me.BTNTagPrevious.Enabled = False - Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black - Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) - Me.BTNTagPrevious.Name = "BTNTagPrevious" - Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) - Me.BTNTagPrevious.TabIndex = 207 - Me.BTNTagPrevious.Text = "<<" - Me.BTNTagPrevious.UseVisualStyleBackColor = False - ' - 'CBTagHalfDressed - ' - Me.CBTagHalfDressed.AutoSize = True - Me.CBTagHalfDressed.Enabled = False - Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) - Me.CBTagHalfDressed.Name = "CBTagHalfDressed" - Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) - Me.CBTagHalfDressed.TabIndex = 198 - Me.CBTagHalfDressed.Text = "Half Dressed" - Me.CBTagHalfDressed.UseVisualStyleBackColor = True - ' - 'BTNTagNext - ' - Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray - Me.BTNTagNext.Enabled = False - Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNTagNext.ForeColor = System.Drawing.Color.Black - Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) - Me.BTNTagNext.Name = "BTNTagNext" - Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) - Me.BTNTagNext.TabIndex = 206 - Me.BTNTagNext.Text = ">>" - Me.BTNTagNext.UseVisualStyleBackColor = False - ' - 'CBTagFullyDressed - ' - Me.CBTagFullyDressed.AutoSize = True - Me.CBTagFullyDressed.Enabled = False - Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) - Me.CBTagFullyDressed.Name = "CBTagFullyDressed" - Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) - Me.CBTagFullyDressed.TabIndex = 197 - Me.CBTagFullyDressed.Text = "Fully Dressed" - Me.CBTagFullyDressed.UseVisualStyleBackColor = True - ' - 'LBLTagCount - ' - Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent - Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLTagCount.Enabled = False - Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLTagCount.ForeColor = System.Drawing.Color.Black - Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) - Me.LBLTagCount.Name = "LBLTagCount" - Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) - Me.LBLTagCount.TabIndex = 203 - Me.LBLTagCount.Text = "0/0" - Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBTagSucking - ' - Me.CBTagSucking.AutoSize = True - Me.CBTagSucking.Enabled = False - Me.CBTagSucking.ForeColor = System.Drawing.Color.Black - Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) - Me.CBTagSucking.Name = "CBTagSucking" - Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) - Me.CBTagSucking.TabIndex = 202 - Me.CBTagSucking.Text = "Sucking" - Me.CBTagSucking.UseVisualStyleBackColor = True - ' - 'CBTagMasturbating - ' - Me.CBTagMasturbating.AutoSize = True - Me.CBTagMasturbating.Enabled = False - Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black - Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) - Me.CBTagMasturbating.Name = "CBTagMasturbating" - Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) - Me.CBTagMasturbating.TabIndex = 201 - Me.CBTagMasturbating.Text = "Masturbating" - Me.CBTagMasturbating.UseVisualStyleBackColor = True - ' - 'CBTagFeet - ' - Me.CBTagFeet.AutoSize = True - Me.CBTagFeet.Enabled = False - Me.CBTagFeet.ForeColor = System.Drawing.Color.Black - Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) - Me.CBTagFeet.Name = "CBTagFeet" - Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) - Me.CBTagFeet.TabIndex = 200 - Me.CBTagFeet.Text = "Feet" - Me.CBTagFeet.UseVisualStyleBackColor = True - ' - 'CBTagBoobs - ' - Me.CBTagBoobs.AutoSize = True - Me.CBTagBoobs.Enabled = False - Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black - Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) - Me.CBTagBoobs.Name = "CBTagBoobs" - Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) - Me.CBTagBoobs.TabIndex = 196 - Me.CBTagBoobs.Text = "Boobs" - Me.CBTagBoobs.UseVisualStyleBackColor = True - ' - 'CBTagAss - ' - Me.CBTagAss.AutoSize = True - Me.CBTagAss.Enabled = False - Me.CBTagAss.ForeColor = System.Drawing.Color.Black - Me.CBTagAss.Location = New System.Drawing.Point(484, 97) - Me.CBTagAss.Name = "CBTagAss" - Me.CBTagAss.Size = New System.Drawing.Size(43, 17) - Me.CBTagAss.TabIndex = 195 - Me.CBTagAss.Text = "Ass" - Me.CBTagAss.UseVisualStyleBackColor = True - ' - 'CBTagPussy - ' - Me.CBTagPussy.AutoSize = True - Me.CBTagPussy.Enabled = False - Me.CBTagPussy.ForeColor = System.Drawing.Color.Black - Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) - Me.CBTagPussy.Name = "CBTagPussy" - Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) - Me.CBTagPussy.TabIndex = 194 - Me.CBTagPussy.Text = "Pussy" - Me.CBTagPussy.UseVisualStyleBackColor = True - ' - 'BTNTagSave - ' - Me.BTNTagSave.Enabled = False - Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) - Me.BTNTagSave.Name = "BTNTagSave" - Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) - Me.BTNTagSave.TabIndex = 193 - Me.BTNTagSave.Text = "Finished" - Me.BTNTagSave.UseVisualStyleBackColor = True - ' - 'BTNTagDir - ' - Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) - Me.BTNTagDir.Name = "BTNTagDir" - Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) - Me.BTNTagDir.TabIndex = 192 - Me.BTNTagDir.Text = "1" - Me.BTNTagDir.UseVisualStyleBackColor = True - ' - 'ImageTagPictureBox - ' - Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black - Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) - Me.ImageTagPictureBox.Name = "ImageTagPictureBox" - Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) - Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.ImageTagPictureBox.TabIndex = 191 - Me.ImageTagPictureBox.TabStop = False - ' - 'CBTagFace - ' - Me.CBTagFace.AutoSize = True - Me.CBTagFace.Enabled = False - Me.CBTagFace.ForeColor = System.Drawing.Color.Black - Me.CBTagFace.Location = New System.Drawing.Point(484, 37) - Me.CBTagFace.Name = "CBTagFace" - Me.CBTagFace.Size = New System.Drawing.Size(50, 17) - Me.CBTagFace.TabIndex = 190 - Me.CBTagFace.Text = "Face" - Me.CBTagFace.UseVisualStyleBackColor = True - ' - 'TabPage35 - ' - Me.TabPage35.BackColor = System.Drawing.Color.LightGray - Me.TabPage35.Controls.Add(Me.GroupBox55) - Me.TabPage35.Controls.Add(Me.GroupBox53) - Me.TabPage35.Controls.Add(Me.GroupBox49) - Me.TabPage35.Controls.Add(Me.GroupBox46) - Me.TabPage35.Controls.Add(Me.GroupBox54) - Me.TabPage35.Controls.Add(Me.GroupBox51) - Me.TabPage35.Controls.Add(Me.GroupBox50) - Me.TabPage35.Controls.Add(Me.GroupBox48) - Me.TabPage35.Controls.Add(Me.TBLocalTagDir) - Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) - Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) - Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) - Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) - Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) - Me.TabPage35.Location = New System.Drawing.Point(4, 22) - Me.TabPage35.Name = "TabPage35" - Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage35.Size = New System.Drawing.Size(700, 411) - Me.TabPage35.TabIndex = 1 - Me.TabPage35.Text = "Local Tags" - ' - 'GroupBox55 - ' - Me.GroupBox55.Controls.Add(Me.CBTagNurse) - Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) - Me.GroupBox55.Controls.Add(Me.CBTagMaid) - Me.GroupBox55.Controls.Add(Me.CBTagTeacher) - Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) - Me.GroupBox55.Location = New System.Drawing.Point(341, 277) - Me.GroupBox55.Name = "GroupBox55" - Me.GroupBox55.Size = New System.Drawing.Size(103, 118) - Me.GroupBox55.TabIndex = 241 - Me.GroupBox55.TabStop = False - Me.GroupBox55.Text = "Outfit" - ' - 'CBTagNurse - ' - Me.CBTagNurse.AutoSize = True - Me.CBTagNurse.Enabled = False - Me.CBTagNurse.ForeColor = System.Drawing.Color.Black - Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) - Me.CBTagNurse.Name = "CBTagNurse" - Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) - Me.CBTagNurse.TabIndex = 203 - Me.CBTagNurse.Text = "Nurse" - Me.CBTagNurse.UseVisualStyleBackColor = True - ' - 'CBTagSchoolgirl - ' - Me.CBTagSchoolgirl.AutoSize = True - Me.CBTagSchoolgirl.Enabled = False - Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black - Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) - Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" - Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) - Me.CBTagSchoolgirl.TabIndex = 204 - Me.CBTagSchoolgirl.Text = "Schoolgirl" - Me.CBTagSchoolgirl.UseVisualStyleBackColor = True - ' - 'CBTagMaid - ' - Me.CBTagMaid.AutoSize = True - Me.CBTagMaid.Enabled = False - Me.CBTagMaid.ForeColor = System.Drawing.Color.Black - Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) - Me.CBTagMaid.Name = "CBTagMaid" - Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) - Me.CBTagMaid.TabIndex = 205 - Me.CBTagMaid.Text = "Maid" - Me.CBTagMaid.UseVisualStyleBackColor = True - ' - 'CBTagTeacher - ' - Me.CBTagTeacher.AutoSize = True - Me.CBTagTeacher.Enabled = False - Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black - Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) - Me.CBTagTeacher.Name = "CBTagTeacher" - Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) - Me.CBTagTeacher.TabIndex = 206 - Me.CBTagTeacher.Text = "Teacher" - Me.CBTagTeacher.UseVisualStyleBackColor = True - ' - 'CBTagSuperhero - ' - Me.CBTagSuperhero.AutoSize = True - Me.CBTagSuperhero.Enabled = False - Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black - Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) - Me.CBTagSuperhero.Name = "CBTagSuperhero" - Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) - Me.CBTagSuperhero.TabIndex = 213 - Me.CBTagSuperhero.Text = "Superhero" - Me.CBTagSuperhero.UseVisualStyleBackColor = True - ' - 'GroupBox53 - ' - Me.GroupBox53.Controls.Add(Me.CBTagTrap) - Me.GroupBox53.Controls.Add(Me.CBTagTentacles) - Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) - Me.GroupBox53.Controls.Add(Me.CBTagBukkake) - Me.GroupBox53.Controls.Add(Me.CBTagGanguro) - Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) - Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) - Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) - Me.GroupBox53.Controls.Add(Me.CBTagAhegao) - Me.GroupBox53.Controls.Add(Me.CBTagShibari) - Me.GroupBox53.Location = New System.Drawing.Point(450, 277) - Me.GroupBox53.Name = "GroupBox53" - Me.GroupBox53.Size = New System.Drawing.Size(246, 118) - Me.GroupBox53.TabIndex = 240 - Me.GroupBox53.TabStop = False - Me.GroupBox53.Text = "Hentai/JAV Themes" - ' - 'CBTagTrap - ' - Me.CBTagTrap.AutoSize = True - Me.CBTagTrap.Enabled = False - Me.CBTagTrap.ForeColor = System.Drawing.Color.Black - Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) - Me.CBTagTrap.Name = "CBTagTrap" - Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) - Me.CBTagTrap.TabIndex = 226 - Me.CBTagTrap.Text = "Trap" - Me.CBTagTrap.UseVisualStyleBackColor = True - ' - 'CBTagTentacles - ' - Me.CBTagTentacles.AutoSize = True - Me.CBTagTentacles.Enabled = False - Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black - Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) - Me.CBTagTentacles.Name = "CBTagTentacles" - Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) - Me.CBTagTentacles.TabIndex = 204 - Me.CBTagTentacles.Text = "Tentacles" - Me.CBTagTentacles.UseVisualStyleBackColor = True - ' - 'CBTagMonsterGirl - ' - Me.CBTagMonsterGirl.AutoSize = True - Me.CBTagMonsterGirl.Enabled = False - Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black - Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) - Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" - Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) - Me.CBTagMonsterGirl.TabIndex = 214 - Me.CBTagMonsterGirl.Text = "Monster Girl" - Me.CBTagMonsterGirl.UseVisualStyleBackColor = True - ' - 'CBTagBukkake - ' - Me.CBTagBukkake.AutoSize = True - Me.CBTagBukkake.Enabled = False - Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black - Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) - Me.CBTagBukkake.Name = "CBTagBukkake" - Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) - Me.CBTagBukkake.TabIndex = 210 - Me.CBTagBukkake.Text = "Bukkake" - Me.CBTagBukkake.UseVisualStyleBackColor = True - ' - 'CBTagGanguro - ' - Me.CBTagGanguro.AutoSize = True - Me.CBTagGanguro.Enabled = False - Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black - Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) - Me.CBTagGanguro.Name = "CBTagGanguro" - Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) - Me.CBTagGanguro.TabIndex = 205 - Me.CBTagGanguro.Text = "Ganguro" - Me.CBTagGanguro.UseVisualStyleBackColor = True - ' - 'CBTagBodyWriting - ' - Me.CBTagBodyWriting.AutoSize = True - Me.CBTagBodyWriting.Enabled = False - Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) - Me.CBTagBodyWriting.Name = "CBTagBodyWriting" - Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) - Me.CBTagBodyWriting.TabIndex = 208 - Me.CBTagBodyWriting.Text = "Body Writing" - Me.CBTagBodyWriting.UseVisualStyleBackColor = True - ' - 'CBTagMahouShoujo - ' - Me.CBTagMahouShoujo.AutoSize = True - Me.CBTagMahouShoujo.Enabled = False - Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black - Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) - Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" - Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) - Me.CBTagMahouShoujo.TabIndex = 209 - Me.CBTagMahouShoujo.Text = "Mahou Shoujo" - Me.CBTagMahouShoujo.UseVisualStyleBackColor = True - ' - 'CBTagBakunyuu - ' - Me.CBTagBakunyuu.AutoSize = True - Me.CBTagBakunyuu.Enabled = False - Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black - Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) - Me.CBTagBakunyuu.Name = "CBTagBakunyuu" - Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) - Me.CBTagBakunyuu.TabIndex = 213 - Me.CBTagBakunyuu.Text = "Bakunyuu" - Me.CBTagBakunyuu.UseVisualStyleBackColor = True - ' - 'CBTagAhegao - ' - Me.CBTagAhegao.AutoSize = True - Me.CBTagAhegao.Enabled = False - Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black - Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) - Me.CBTagAhegao.Name = "CBTagAhegao" - Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) - Me.CBTagAhegao.TabIndex = 207 - Me.CBTagAhegao.Text = "Ahegao" - Me.CBTagAhegao.UseVisualStyleBackColor = True - ' - 'CBTagShibari - ' - Me.CBTagShibari.AutoSize = True - Me.CBTagShibari.Enabled = False - Me.CBTagShibari.ForeColor = System.Drawing.Color.Black - Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) - Me.CBTagShibari.Name = "CBTagShibari" - Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) - Me.CBTagShibari.TabIndex = 203 - Me.CBTagShibari.Text = "Shibari" - Me.CBTagShibari.UseVisualStyleBackColor = True - ' - 'GroupBox49 - ' - Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) - Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) - Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) - Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) - Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) - Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) - Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) - Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) - Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) - Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) - Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) - Me.GroupBox49.Location = New System.Drawing.Point(341, 37) - Me.GroupBox49.Name = "GroupBox49" - Me.GroupBox49.Size = New System.Drawing.Size(103, 238) - Me.GroupBox49.TabIndex = 236 - Me.GroupBox49.TabStop = False - Me.GroupBox49.Text = "Body Part" - ' - 'CBTagBodyMouth - ' - Me.CBTagBodyMouth.AutoSize = True - Me.CBTagBodyMouth.Enabled = False - Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) - Me.CBTagBodyMouth.Name = "CBTagBodyMouth" - Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) - Me.CBTagBodyMouth.TabIndex = 220 - Me.CBTagBodyMouth.Text = "Mouth" - Me.CBTagBodyMouth.UseVisualStyleBackColor = True - ' - 'CBTagBodyAss - ' - Me.CBTagBodyAss.AutoSize = True - Me.CBTagBodyAss.Enabled = False - Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) - Me.CBTagBodyAss.Name = "CBTagBodyAss" - Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) - Me.CBTagBodyAss.TabIndex = 219 - Me.CBTagBodyAss.Text = "Ass" - Me.CBTagBodyAss.UseVisualStyleBackColor = True - ' - 'CBTagBodyFace - ' - Me.CBTagBodyFace.AutoSize = True - Me.CBTagBodyFace.Enabled = False - Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) - Me.CBTagBodyFace.Name = "CBTagBodyFace" - Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) - Me.CBTagBodyFace.TabIndex = 203 - Me.CBTagBodyFace.Text = "Face" - Me.CBTagBodyFace.UseVisualStyleBackColor = True - ' - 'CBTagBodyLegs - ' - Me.CBTagBodyLegs.AutoSize = True - Me.CBTagBodyLegs.Enabled = False - Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) - Me.CBTagBodyLegs.Name = "CBTagBodyLegs" - Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) - Me.CBTagBodyLegs.TabIndex = 218 - Me.CBTagBodyLegs.Text = "Legs" - Me.CBTagBodyLegs.UseVisualStyleBackColor = True - ' - 'CBTagBodyBalls - ' - Me.CBTagBodyBalls.AutoSize = True - Me.CBTagBodyBalls.Enabled = False - Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) - Me.CBTagBodyBalls.Name = "CBTagBodyBalls" - Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) - Me.CBTagBodyBalls.TabIndex = 217 - Me.CBTagBodyBalls.Text = "Balls" - Me.CBTagBodyBalls.UseVisualStyleBackColor = True - ' - 'CBTagBodyCock - ' - Me.CBTagBodyCock.AutoSize = True - Me.CBTagBodyCock.Enabled = False - Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) - Me.CBTagBodyCock.Name = "CBTagBodyCock" - Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) - Me.CBTagBodyCock.TabIndex = 216 - Me.CBTagBodyCock.Text = "Cock" - Me.CBTagBodyCock.UseVisualStyleBackColor = True - ' - 'CBTagBodyFeet - ' - Me.CBTagBodyFeet.AutoSize = True - Me.CBTagBodyFeet.Enabled = False - Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) - Me.CBTagBodyFeet.Name = "CBTagBodyFeet" - Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) - Me.CBTagBodyFeet.TabIndex = 215 - Me.CBTagBodyFeet.Text = "Feet" - Me.CBTagBodyFeet.UseVisualStyleBackColor = True - ' - 'CBTagBodyNipples - ' - Me.CBTagBodyNipples.AutoSize = True - Me.CBTagBodyNipples.Enabled = False - Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) - Me.CBTagBodyNipples.Name = "CBTagBodyNipples" - Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) - Me.CBTagBodyNipples.TabIndex = 207 - Me.CBTagBodyNipples.Text = "Nipples" - Me.CBTagBodyNipples.UseVisualStyleBackColor = True - ' - 'CBTagBodyPussy - ' - Me.CBTagBodyPussy.AutoSize = True - Me.CBTagBodyPussy.Enabled = False - Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) - Me.CBTagBodyPussy.Name = "CBTagBodyPussy" - Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) - Me.CBTagBodyPussy.TabIndex = 209 - Me.CBTagBodyPussy.Text = "Pussy" - Me.CBTagBodyPussy.UseVisualStyleBackColor = True - ' - 'CBTagBodyTits - ' - Me.CBTagBodyTits.AutoSize = True - Me.CBTagBodyTits.Enabled = False - Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) - Me.CBTagBodyTits.Name = "CBTagBodyTits" - Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) - Me.CBTagBodyTits.TabIndex = 213 - Me.CBTagBodyTits.Text = "Tits" - Me.CBTagBodyTits.UseVisualStyleBackColor = True - ' - 'CBTagBodyFingers - ' - Me.CBTagBodyFingers.AutoSize = True - Me.CBTagBodyFingers.Enabled = False - Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) - Me.CBTagBodyFingers.Name = "CBTagBodyFingers" - Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) - Me.CBTagBodyFingers.TabIndex = 210 - Me.CBTagBodyFingers.Text = "Fingers" - Me.CBTagBodyFingers.UseVisualStyleBackColor = True - ' - 'GroupBox46 - ' - Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) - Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) - Me.GroupBox46.Controls.Add(Me.CBTagFemdom) - Me.GroupBox46.Controls.Add(Me.CBTag2M) - Me.GroupBox46.Controls.Add(Me.CBTagFutadom) - Me.GroupBox46.Controls.Add(Me.CBTagFemsub) - Me.GroupBox46.Controls.Add(Me.CBTag2Futa) - Me.GroupBox46.Controls.Add(Me.CBTagMaledom) - Me.GroupBox46.Controls.Add(Me.CBTag3M) - Me.GroupBox46.Controls.Add(Me.CBTagFutasub) - Me.GroupBox46.Controls.Add(Me.CBTag3Futa) - Me.GroupBox46.Controls.Add(Me.CBTagMalesub) - Me.GroupBox46.Controls.Add(Me.CBTag2F) - Me.GroupBox46.Controls.Add(Me.CBTag1Futa) - Me.GroupBox46.Controls.Add(Me.CBTag1M) - Me.GroupBox46.Controls.Add(Me.CBTag1F) - Me.GroupBox46.Controls.Add(Me.CBTag3F) - Me.GroupBox46.Location = New System.Drawing.Point(230, 37) - Me.GroupBox46.Name = "GroupBox46" - Me.GroupBox46.Size = New System.Drawing.Size(105, 358) - Me.GroupBox46.TabIndex = 234 - Me.GroupBox46.TabStop = False - Me.GroupBox46.Text = "Genders && Roles" - ' - 'CBTagMultiSub - ' - Me.CBTagMultiSub.AutoSize = True - Me.CBTagMultiSub.Enabled = False - Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black - Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) - Me.CBTagMultiSub.Name = "CBTagMultiSub" - Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) - Me.CBTagMultiSub.TabIndex = 207 - Me.CBTagMultiSub.Text = "Multi-Sub" - Me.CBTagMultiSub.UseVisualStyleBackColor = True - ' - 'CBTagMultiDom - ' - Me.CBTagMultiDom.AutoSize = True - Me.CBTagMultiDom.Enabled = False - Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black - Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) - Me.CBTagMultiDom.Name = "CBTagMultiDom" - Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) - Me.CBTagMultiDom.TabIndex = 230 - Me.CBTagMultiDom.Text = "Multi-Dom" - Me.CBTagMultiDom.UseVisualStyleBackColor = True - ' - 'CBTagFemdom - ' - Me.CBTagFemdom.AutoSize = True - Me.CBTagFemdom.Enabled = False - Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black - Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) - Me.CBTagFemdom.Name = "CBTagFemdom" - Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) - Me.CBTagFemdom.TabIndex = 229 - Me.CBTagFemdom.Text = "Femdom" - Me.CBTagFemdom.UseVisualStyleBackColor = True - ' - 'CBTag2M - ' - Me.CBTag2M.AutoSize = True - Me.CBTag2M.Enabled = False - Me.CBTag2M.ForeColor = System.Drawing.Color.Black - Me.CBTag2M.Location = New System.Drawing.Point(15, 97) - Me.CBTag2M.Name = "CBTag2M" - Me.CBTag2M.Size = New System.Drawing.Size(56, 17) - Me.CBTag2M.TabIndex = 206 - Me.CBTag2M.Text = "2 Men" - Me.CBTag2M.UseVisualStyleBackColor = True - ' - 'CBTagFutadom - ' - Me.CBTagFutadom.AutoSize = True - Me.CBTagFutadom.Enabled = False - Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black - Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) - Me.CBTagFutadom.Name = "CBTagFutadom" - Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) - Me.CBTagFutadom.TabIndex = 204 - Me.CBTagFutadom.Text = "Futadom" - Me.CBTagFutadom.UseVisualStyleBackColor = True - ' - 'CBTagFemsub - ' - Me.CBTagFemsub.AutoSize = True - Me.CBTagFemsub.Enabled = False - Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black - Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) - Me.CBTagFemsub.Name = "CBTagFemsub" - Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) - Me.CBTagFemsub.TabIndex = 205 - Me.CBTagFemsub.Text = "Femsub" - Me.CBTagFemsub.UseVisualStyleBackColor = True - ' - 'CBTag2Futa - ' - Me.CBTag2Futa.AutoSize = True - Me.CBTag2Futa.Enabled = False - Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black - Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) - Me.CBTag2Futa.Name = "CBTag2Futa" - Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) - Me.CBTag2Futa.TabIndex = 186 - Me.CBTag2Futa.Text = "2 Futa" - Me.CBTag2Futa.UseVisualStyleBackColor = True - ' - 'CBTagMaledom - ' - Me.CBTagMaledom.AutoSize = True - Me.CBTagMaledom.Enabled = False - Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black - Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) - Me.CBTagMaledom.Name = "CBTagMaledom" - Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) - Me.CBTagMaledom.TabIndex = 206 - Me.CBTagMaledom.Text = "Maledom" - Me.CBTagMaledom.UseVisualStyleBackColor = True - ' - 'CBTag3M - ' - Me.CBTag3M.AutoSize = True - Me.CBTag3M.Enabled = False - Me.CBTag3M.ForeColor = System.Drawing.Color.Black - Me.CBTag3M.Location = New System.Drawing.Point(15, 117) - Me.CBTag3M.Name = "CBTag3M" - Me.CBTag3M.Size = New System.Drawing.Size(56, 17) - Me.CBTag3M.TabIndex = 190 - Me.CBTag3M.Text = "3 Men" - Me.CBTag3M.UseVisualStyleBackColor = True - ' - 'CBTagFutasub - ' - Me.CBTagFutasub.AutoSize = True - Me.CBTagFutasub.Enabled = False - Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black - Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) - Me.CBTagFutasub.Name = "CBTagFutasub" - Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) - Me.CBTagFutasub.TabIndex = 213 - Me.CBTagFutasub.Text = "Futasub" - Me.CBTagFutasub.UseVisualStyleBackColor = True - ' - 'CBTag3Futa - ' - Me.CBTag3Futa.AutoSize = True - Me.CBTag3Futa.Enabled = False - Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black - Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) - Me.CBTag3Futa.Name = "CBTag3Futa" - Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) - Me.CBTag3Futa.TabIndex = 197 - Me.CBTag3Futa.Text = "3 Futa" - Me.CBTag3Futa.UseVisualStyleBackColor = True - ' - 'CBTagMalesub - ' - Me.CBTagMalesub.AutoSize = True - Me.CBTagMalesub.Enabled = False - Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black - Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) - Me.CBTagMalesub.Name = "CBTagMalesub" - Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) - Me.CBTagMalesub.TabIndex = 210 - Me.CBTagMalesub.Text = "Malesub" - Me.CBTagMalesub.UseVisualStyleBackColor = True - ' - 'CBTag2F - ' - Me.CBTag2F.AutoSize = True - Me.CBTag2F.Enabled = False - Me.CBTag2F.ForeColor = System.Drawing.Color.Black - Me.CBTag2F.Location = New System.Drawing.Point(15, 37) - Me.CBTag2F.Name = "CBTag2F" - Me.CBTag2F.Size = New System.Drawing.Size(72, 17) - Me.CBTag2F.TabIndex = 188 - Me.CBTag2F.Text = "2 Women" - Me.CBTag2F.UseVisualStyleBackColor = True - ' - 'CBTag1Futa - ' - Me.CBTag1Futa.AutoSize = True - Me.CBTag1Futa.Enabled = False - Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black - Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) - Me.CBTag1Futa.Name = "CBTag1Futa" - Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) - Me.CBTag1Futa.TabIndex = 191 - Me.CBTag1Futa.Text = "1 Futa" - Me.CBTag1Futa.UseVisualStyleBackColor = True - ' - 'CBTag1M - ' - Me.CBTag1M.AutoSize = True - Me.CBTag1M.Enabled = False - Me.CBTag1M.ForeColor = System.Drawing.Color.Black - Me.CBTag1M.Location = New System.Drawing.Point(15, 77) - Me.CBTag1M.Name = "CBTag1M" - Me.CBTag1M.Size = New System.Drawing.Size(56, 17) - Me.CBTag1M.TabIndex = 189 - Me.CBTag1M.Text = "1 Man" - Me.CBTag1M.UseVisualStyleBackColor = True - ' - 'CBTag1F - ' - Me.CBTag1F.AutoSize = True - Me.CBTag1F.Enabled = False - Me.CBTag1F.ForeColor = System.Drawing.Color.Black - Me.CBTag1F.Location = New System.Drawing.Point(15, 17) - Me.CBTag1F.Name = "CBTag1F" - Me.CBTag1F.Size = New System.Drawing.Size(72, 17) - Me.CBTag1F.TabIndex = 185 - Me.CBTag1F.Text = "1 Woman" - Me.CBTag1F.UseVisualStyleBackColor = True - ' - 'CBTag3F - ' - Me.CBTag3F.AutoSize = True - Me.CBTag3F.Enabled = False - Me.CBTag3F.ForeColor = System.Drawing.Color.Black - Me.CBTag3F.Location = New System.Drawing.Point(15, 57) - Me.CBTag3F.Name = "CBTag3F" - Me.CBTag3F.Size = New System.Drawing.Size(72, 17) - Me.CBTag3F.TabIndex = 192 - Me.CBTag3F.Text = "3 Women" - Me.CBTag3F.UseVisualStyleBackColor = True - ' - 'GroupBox54 - ' - Me.GroupBox54.Controls.Add(Me.CBTagTattoos) - Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) - Me.GroupBox54.Controls.Add(Me.CBTagDomme) - Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) - Me.GroupBox54.Controls.Add(Me.CBTagWatersports) - Me.GroupBox54.Controls.Add(Me.CBTagStockings) - Me.GroupBox54.Controls.Add(Me.CBTagCumshot) - Me.GroupBox54.Controls.Add(Me.CBTagCumEating) - Me.GroupBox54.Controls.Add(Me.CBTagVibrator) - Me.GroupBox54.Controls.Add(Me.CBTagDildo) - Me.GroupBox54.Controls.Add(Me.CBTagKissing) - Me.GroupBox54.Location = New System.Drawing.Point(561, 37) - Me.GroupBox54.Name = "GroupBox54" - Me.GroupBox54.Size = New System.Drawing.Size(135, 238) - Me.GroupBox54.TabIndex = 239 - Me.GroupBox54.TabStop = False - Me.GroupBox54.Text = "Misc" - ' - 'CBTagTattoos - ' - Me.CBTagTattoos.AutoSize = True - Me.CBTagTattoos.Enabled = False - Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black - Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) - Me.CBTagTattoos.Name = "CBTagTattoos" - Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) - Me.CBTagTattoos.TabIndex = 214 - Me.CBTagTattoos.Text = "Tattoos" - Me.CBTagTattoos.UseVisualStyleBackColor = True - ' - 'CBTagAnalToy - ' - Me.CBTagAnalToy.AutoSize = True - Me.CBTagAnalToy.Enabled = False - Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black - Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) - Me.CBTagAnalToy.Name = "CBTagAnalToy" - Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) - Me.CBTagAnalToy.TabIndex = 215 - Me.CBTagAnalToy.Text = "Anal Toy" - Me.CBTagAnalToy.UseVisualStyleBackColor = True - ' - 'CBTagDomme - ' - Me.CBTagDomme.AutoSize = True - Me.CBTagDomme.Enabled = False - Me.CBTagDomme.ForeColor = System.Drawing.Color.Black - Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) - Me.CBTagDomme.Name = "CBTagDomme" - Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) - Me.CBTagDomme.TabIndex = 219 - Me.CBTagDomme.Text = "Tease A.I. Domme" - Me.CBTagDomme.UseVisualStyleBackColor = True - ' - 'CBTagPocketPussy - ' - Me.CBTagPocketPussy.AutoSize = True - Me.CBTagPocketPussy.Enabled = False - Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black - Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) - Me.CBTagPocketPussy.Name = "CBTagPocketPussy" - Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) - Me.CBTagPocketPussy.TabIndex = 205 - Me.CBTagPocketPussy.Text = "Pocket Pussy" - Me.CBTagPocketPussy.UseVisualStyleBackColor = True - ' - 'CBTagWatersports - ' - Me.CBTagWatersports.AutoSize = True - Me.CBTagWatersports.Enabled = False - Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black - Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) - Me.CBTagWatersports.Name = "CBTagWatersports" - Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) - Me.CBTagWatersports.TabIndex = 218 - Me.CBTagWatersports.Text = "Watersports" - Me.CBTagWatersports.UseVisualStyleBackColor = True - ' - 'CBTagStockings - ' - Me.CBTagStockings.AutoSize = True - Me.CBTagStockings.Enabled = False - Me.CBTagStockings.ForeColor = System.Drawing.Color.Black - Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) - Me.CBTagStockings.Name = "CBTagStockings" - Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) - Me.CBTagStockings.TabIndex = 217 - Me.CBTagStockings.Text = "Stockings" - Me.CBTagStockings.UseVisualStyleBackColor = True - ' - 'CBTagCumshot - ' - Me.CBTagCumshot.AutoSize = True - Me.CBTagCumshot.Enabled = False - Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black - Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) - Me.CBTagCumshot.Name = "CBTagCumshot" - Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) - Me.CBTagCumshot.TabIndex = 206 - Me.CBTagCumshot.Text = "Cumshot" - Me.CBTagCumshot.UseVisualStyleBackColor = True - ' - 'CBTagCumEating - ' - Me.CBTagCumEating.AutoSize = True - Me.CBTagCumEating.Enabled = False - Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black - Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) - Me.CBTagCumEating.Name = "CBTagCumEating" - Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) - Me.CBTagCumEating.TabIndex = 204 - Me.CBTagCumEating.Text = "Cum Eating" - Me.CBTagCumEating.UseVisualStyleBackColor = True - ' - 'CBTagVibrator - ' - Me.CBTagVibrator.AutoSize = True - Me.CBTagVibrator.Enabled = False - Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black - Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) - Me.CBTagVibrator.Name = "CBTagVibrator" - Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) - Me.CBTagVibrator.TabIndex = 210 - Me.CBTagVibrator.Text = "Vibrator" - Me.CBTagVibrator.UseVisualStyleBackColor = True - ' - 'CBTagDildo - ' - Me.CBTagDildo.AutoSize = True - Me.CBTagDildo.Enabled = False - Me.CBTagDildo.ForeColor = System.Drawing.Color.Black - Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) - Me.CBTagDildo.Name = "CBTagDildo" - Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) - Me.CBTagDildo.TabIndex = 213 - Me.CBTagDildo.Text = "Dildo" - Me.CBTagDildo.UseVisualStyleBackColor = True - ' - 'CBTagKissing - ' - Me.CBTagKissing.AutoSize = True - Me.CBTagKissing.Enabled = False - Me.CBTagKissing.ForeColor = System.Drawing.Color.Black - Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) - Me.CBTagKissing.Name = "CBTagKissing" - Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) - Me.CBTagKissing.TabIndex = 203 - Me.CBTagKissing.Text = "Kissing" - Me.CBTagKissing.UseVisualStyleBackColor = True - ' - 'GroupBox51 - ' - Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) - Me.GroupBox51.Controls.Add(Me.CBTagGag) - Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) - Me.GroupBox51.Controls.Add(Me.CBTagWhipping) - Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) - Me.GroupBox51.Controls.Add(Me.CBTagElectro) - Me.GroupBox51.Controls.Add(Me.CBTagHotWax) - Me.GroupBox51.Controls.Add(Me.CBTagClamps) - Me.GroupBox51.Controls.Add(Me.CBTagStrapon) - Me.GroupBox51.Controls.Add(Me.CBTagSpanking) - Me.GroupBox51.Controls.Add(Me.CBTagNeedles) - Me.GroupBox51.Location = New System.Drawing.Point(450, 37) - Me.GroupBox51.Name = "GroupBox51" - Me.GroupBox51.Size = New System.Drawing.Size(105, 238) - Me.GroupBox51.TabIndex = 238 - Me.GroupBox51.TabStop = False - Me.GroupBox51.Text = "BDSM" - ' - 'CBTagBallTorture - ' - Me.CBTagBallTorture.AutoSize = True - Me.CBTagBallTorture.Enabled = False - Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black - Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) - Me.CBTagBallTorture.Name = "CBTagBallTorture" - Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) - Me.CBTagBallTorture.TabIndex = 220 - Me.CBTagBallTorture.Text = "Ball Torture" - Me.CBTagBallTorture.UseVisualStyleBackColor = True - ' - 'CBTagGag - ' - Me.CBTagGag.AutoSize = True - Me.CBTagGag.Enabled = False - Me.CBTagGag.ForeColor = System.Drawing.Color.Black - Me.CBTagGag.Location = New System.Drawing.Point(15, 137) - Me.CBTagGag.Name = "CBTagGag" - Me.CBTagGag.Size = New System.Drawing.Size(46, 17) - Me.CBTagGag.TabIndex = 214 - Me.CBTagGag.Text = "Gag" - Me.CBTagGag.UseVisualStyleBackColor = True - ' - 'CBTagBlindfold - ' - Me.CBTagBlindfold.AutoSize = True - Me.CBTagBlindfold.Enabled = False - Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black - Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) - Me.CBTagBlindfold.Name = "CBTagBlindfold" - Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) - Me.CBTagBlindfold.TabIndex = 208 - Me.CBTagBlindfold.Text = "Blindfold" - Me.CBTagBlindfold.UseVisualStyleBackColor = True - ' - 'CBTagWhipping - ' - Me.CBTagWhipping.AutoSize = True - Me.CBTagWhipping.Enabled = False - Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black - Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) - Me.CBTagWhipping.Name = "CBTagWhipping" - Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) - Me.CBTagWhipping.TabIndex = 203 - Me.CBTagWhipping.Text = "Whipping" - Me.CBTagWhipping.UseVisualStyleBackColor = True - ' - 'CBTagCockTorture - ' - Me.CBTagCockTorture.AutoSize = True - Me.CBTagCockTorture.Enabled = False - Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black - Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) - Me.CBTagCockTorture.Name = "CBTagCockTorture" - Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) - Me.CBTagCockTorture.TabIndex = 204 - Me.CBTagCockTorture.Text = "Cock Torture" - Me.CBTagCockTorture.UseVisualStyleBackColor = True - ' - 'CBTagElectro - ' - Me.CBTagElectro.AutoSize = True - Me.CBTagElectro.Enabled = False - Me.CBTagElectro.ForeColor = System.Drawing.Color.Black - Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) - Me.CBTagElectro.Name = "CBTagElectro" - Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) - Me.CBTagElectro.TabIndex = 207 - Me.CBTagElectro.Text = "Electro" - Me.CBTagElectro.UseVisualStyleBackColor = True - ' - 'CBTagHotWax - ' - Me.CBTagHotWax.AutoSize = True - Me.CBTagHotWax.Enabled = False - Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black - Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) - Me.CBTagHotWax.Name = "CBTagHotWax" - Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) - Me.CBTagHotWax.TabIndex = 213 - Me.CBTagHotWax.Text = "Hot Wax" - Me.CBTagHotWax.UseVisualStyleBackColor = True - ' - 'CBTagClamps - ' - Me.CBTagClamps.AutoSize = True - Me.CBTagClamps.Enabled = False - Me.CBTagClamps.ForeColor = System.Drawing.Color.Black - Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) - Me.CBTagClamps.Name = "CBTagClamps" - Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) - Me.CBTagClamps.TabIndex = 210 - Me.CBTagClamps.Text = "Clamps" - Me.CBTagClamps.UseVisualStyleBackColor = True - ' - 'CBTagStrapon - ' - Me.CBTagStrapon.AutoSize = True - Me.CBTagStrapon.Enabled = False - Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black - Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) - Me.CBTagStrapon.Name = "CBTagStrapon" - Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) - Me.CBTagStrapon.TabIndex = 205 - Me.CBTagStrapon.Text = "Strap-on" - Me.CBTagStrapon.UseVisualStyleBackColor = True - ' - 'CBTagSpanking - ' - Me.CBTagSpanking.AutoSize = True - Me.CBTagSpanking.Enabled = False - Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black - Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) - Me.CBTagSpanking.Name = "CBTagSpanking" - Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) - Me.CBTagSpanking.TabIndex = 206 - Me.CBTagSpanking.Text = "Spanking" - Me.CBTagSpanking.UseVisualStyleBackColor = True - ' - 'CBTagNeedles - ' - Me.CBTagNeedles.AutoSize = True - Me.CBTagNeedles.Enabled = False - Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black - Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) - Me.CBTagNeedles.Name = "CBTagNeedles" - Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) - Me.CBTagNeedles.TabIndex = 209 - Me.CBTagNeedles.Text = "Needles" - Me.CBTagNeedles.UseVisualStyleBackColor = True - ' - 'GroupBox50 - ' - Me.GroupBox50.Controls.Add(Me.CBTagRimming) - Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) - Me.GroupBox50.Controls.Add(Me.CBTagMissionary) - Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) - Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) - Me.GroupBox50.Controls.Add(Me.CBTagFingering) - Me.GroupBox50.Controls.Add(Me.CBTagGangbang) - Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) - Me.GroupBox50.Controls.Add(Me.CBTagDP) - Me.GroupBox50.Controls.Add(Me.CBTagHandjob) - Me.GroupBox50.Controls.Add(Me.CBTagStanding) - Me.GroupBox50.Controls.Add(Me.CBTagFootjob) - Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) - Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) - Me.GroupBox50.Controls.Add(Me.CBTagTitjob) - Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) - Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) - Me.GroupBox50.Location = New System.Drawing.Point(119, 37) - Me.GroupBox50.Name = "GroupBox50" - Me.GroupBox50.Size = New System.Drawing.Size(105, 358) - Me.GroupBox50.TabIndex = 237 - Me.GroupBox50.TabStop = False - Me.GroupBox50.Text = "Sex" - ' - 'CBTagRimming - ' - Me.CBTagRimming.AutoSize = True - Me.CBTagRimming.Enabled = False - Me.CBTagRimming.ForeColor = System.Drawing.Color.Black - Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) - Me.CBTagRimming.Name = "CBTagRimming" - Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) - Me.CBTagRimming.TabIndex = 219 - Me.CBTagRimming.Text = "Rimming" - Me.CBTagRimming.UseVisualStyleBackColor = True - ' - 'CBTagFacesitting - ' - Me.CBTagFacesitting.AutoSize = True - Me.CBTagFacesitting.Enabled = False - Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black - Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) - Me.CBTagFacesitting.Name = "CBTagFacesitting" - Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) - Me.CBTagFacesitting.TabIndex = 226 - Me.CBTagFacesitting.Text = "Facesitting" - Me.CBTagFacesitting.UseVisualStyleBackColor = True - ' - 'CBTagMissionary - ' - Me.CBTagMissionary.AutoSize = True - Me.CBTagMissionary.Enabled = False - Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black - Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) - Me.CBTagMissionary.Name = "CBTagMissionary" - Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) - Me.CBTagMissionary.TabIndex = 208 - Me.CBTagMissionary.Text = "Missionary" - Me.CBTagMissionary.UseVisualStyleBackColor = True - ' - 'CBTagMasturbation - ' - Me.CBTagMasturbation.AutoSize = True - Me.CBTagMasturbation.Enabled = False - Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black - Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) - Me.CBTagMasturbation.Name = "CBTagMasturbation" - Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) - Me.CBTagMasturbation.TabIndex = 203 - Me.CBTagMasturbation.Text = "Masturbation" - Me.CBTagMasturbation.UseVisualStyleBackColor = True - ' - 'CBTagRCowgirl - ' - Me.CBTagRCowgirl.AutoSize = True - Me.CBTagRCowgirl.Enabled = False - Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black - Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) - Me.CBTagRCowgirl.Name = "CBTagRCowgirl" - Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) - Me.CBTagRCowgirl.TabIndex = 218 - Me.CBTagRCowgirl.Text = "R. Cowgirl" - Me.CBTagRCowgirl.UseVisualStyleBackColor = True - ' - 'CBTagFingering - ' - Me.CBTagFingering.AutoSize = True - Me.CBTagFingering.Enabled = False - Me.CBTagFingering.ForeColor = System.Drawing.Color.Black - Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) - Me.CBTagFingering.Name = "CBTagFingering" - Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) - Me.CBTagFingering.TabIndex = 204 - Me.CBTagFingering.Text = "Fingering" - Me.CBTagFingering.UseVisualStyleBackColor = True - ' - 'CBTagGangbang - ' - Me.CBTagGangbang.AutoSize = True - Me.CBTagGangbang.Enabled = False - Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black - Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) - Me.CBTagGangbang.Name = "CBTagGangbang" - Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) - Me.CBTagGangbang.TabIndex = 217 - Me.CBTagGangbang.Text = "Gangbang" - Me.CBTagGangbang.UseVisualStyleBackColor = True - ' - 'CBTagBlowjob - ' - Me.CBTagBlowjob.AutoSize = True - Me.CBTagBlowjob.Enabled = False - Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black - Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) - Me.CBTagBlowjob.Name = "CBTagBlowjob" - Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) - Me.CBTagBlowjob.TabIndex = 205 - Me.CBTagBlowjob.Text = "Blowjob" - Me.CBTagBlowjob.UseVisualStyleBackColor = True - ' - 'CBTagDP - ' - Me.CBTagDP.AutoSize = True - Me.CBTagDP.Enabled = False - Me.CBTagDP.ForeColor = System.Drawing.Color.Black - Me.CBTagDP.Location = New System.Drawing.Point(15, 317) - Me.CBTagDP.Name = "CBTagDP" - Me.CBTagDP.Size = New System.Drawing.Size(41, 17) - Me.CBTagDP.TabIndex = 216 - Me.CBTagDP.Text = "DP" - Me.CBTagDP.UseVisualStyleBackColor = True - ' - 'CBTagHandjob - ' - Me.CBTagHandjob.AutoSize = True - Me.CBTagHandjob.Enabled = False - Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black - Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) - Me.CBTagHandjob.Name = "CBTagHandjob" - Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) - Me.CBTagHandjob.TabIndex = 206 - Me.CBTagHandjob.Text = "Handjob" - Me.CBTagHandjob.UseVisualStyleBackColor = True - ' - 'CBTagStanding - ' - Me.CBTagStanding.AutoSize = True - Me.CBTagStanding.Enabled = False - Me.CBTagStanding.ForeColor = System.Drawing.Color.Black - Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) - Me.CBTagStanding.Name = "CBTagStanding" - Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) - Me.CBTagStanding.TabIndex = 215 - Me.CBTagStanding.Text = "Standing" - Me.CBTagStanding.UseVisualStyleBackColor = True - ' - 'CBTagFootjob - ' - Me.CBTagFootjob.AutoSize = True - Me.CBTagFootjob.Enabled = False - Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black - Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) - Me.CBTagFootjob.Name = "CBTagFootjob" - Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) - Me.CBTagFootjob.TabIndex = 207 - Me.CBTagFootjob.Text = "Footjob" - Me.CBTagFootjob.UseVisualStyleBackColor = True - ' - 'CBTagCowgirl - ' - Me.CBTagCowgirl.AutoSize = True - Me.CBTagCowgirl.Enabled = False - Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black - Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) - Me.CBTagCowgirl.Name = "CBTagCowgirl" - Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) - Me.CBTagCowgirl.TabIndex = 214 - Me.CBTagCowgirl.Text = "Cowgirl" - Me.CBTagCowgirl.UseVisualStyleBackColor = True - ' - 'CBTagDoggyStyle - ' - Me.CBTagDoggyStyle.AutoSize = True - Me.CBTagDoggyStyle.Enabled = False - Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black - Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) - Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" - Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) - Me.CBTagDoggyStyle.TabIndex = 209 - Me.CBTagDoggyStyle.Text = "Doggy Style" - Me.CBTagDoggyStyle.UseVisualStyleBackColor = True - ' - 'CBTagTitjob - ' - Me.CBTagTitjob.AutoSize = True - Me.CBTagTitjob.Enabled = False - Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black - Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) - Me.CBTagTitjob.Name = "CBTagTitjob" - Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) - Me.CBTagTitjob.TabIndex = 213 - Me.CBTagTitjob.Text = "Titjob" - Me.CBTagTitjob.UseVisualStyleBackColor = True - ' - 'CBTagCunnilingus - ' - Me.CBTagCunnilingus.AutoSize = True - Me.CBTagCunnilingus.Enabled = False - Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black - Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) - Me.CBTagCunnilingus.Name = "CBTagCunnilingus" - Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) - Me.CBTagCunnilingus.TabIndex = 210 - Me.CBTagCunnilingus.Text = "Cunnilingus" - Me.CBTagCunnilingus.UseVisualStyleBackColor = True - ' - 'CBTagAnalSex - ' - Me.CBTagAnalSex.AutoSize = True - Me.CBTagAnalSex.Enabled = False - Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black - Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) - Me.CBTagAnalSex.Name = "CBTagAnalSex" - Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) - Me.CBTagAnalSex.TabIndex = 212 - Me.CBTagAnalSex.Text = "Anal Sex" - Me.CBTagAnalSex.UseVisualStyleBackColor = True - ' - 'GroupBox48 - ' - Me.GroupBox48.Controls.Add(Me.CBTagArtwork) - Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) - Me.GroupBox48.Controls.Add(Me.CBTagPOV) - Me.GroupBox48.Controls.Add(Me.CBTagHardcore) - Me.GroupBox48.Controls.Add(Me.CBTagTD) - Me.GroupBox48.Controls.Add(Me.CBTagGay) - Me.GroupBox48.Controls.Add(Me.CBTagBath) - Me.GroupBox48.Controls.Add(Me.CBTagBisexual) - Me.GroupBox48.Controls.Add(Me.CBTagCFNM) - Me.GroupBox48.Controls.Add(Me.CBTagLesbian) - Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) - Me.GroupBox48.Controls.Add(Me.CBTagSM) - Me.GroupBox48.Controls.Add(Me.CBTagBondage) - Me.GroupBox48.Controls.Add(Me.CBTagSoloM) - Me.GroupBox48.Controls.Add(Me.CBTagSoloF) - Me.GroupBox48.Controls.Add(Me.CBTagChastity) - Me.GroupBox48.Controls.Add(Me.CBTagShower) - Me.GroupBox48.Location = New System.Drawing.Point(8, 37) - Me.GroupBox48.Name = "GroupBox48" - Me.GroupBox48.Size = New System.Drawing.Size(105, 358) - Me.GroupBox48.TabIndex = 235 - Me.GroupBox48.TabStop = False - Me.GroupBox48.Text = "Category" - ' - 'CBTagArtwork - ' - Me.CBTagArtwork.AutoSize = True - Me.CBTagArtwork.Enabled = False - Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black - Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) - Me.CBTagArtwork.Name = "CBTagArtwork" - Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) - Me.CBTagArtwork.TabIndex = 225 - Me.CBTagArtwork.Text = "Artwork" - Me.CBTagArtwork.UseVisualStyleBackColor = True - ' - 'CBTagOutdoors - ' - Me.CBTagOutdoors.AutoSize = True - Me.CBTagOutdoors.Enabled = False - Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black - Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) - Me.CBTagOutdoors.Name = "CBTagOutdoors" - Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) - Me.CBTagOutdoors.TabIndex = 219 - Me.CBTagOutdoors.Text = "Outdoors" - Me.CBTagOutdoors.UseVisualStyleBackColor = True - ' - 'CBTagPOV - ' - Me.CBTagPOV.AutoSize = True - Me.CBTagPOV.Enabled = False - Me.CBTagPOV.ForeColor = System.Drawing.Color.Black - Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) - Me.CBTagPOV.Name = "CBTagPOV" - Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) - Me.CBTagPOV.TabIndex = 208 - Me.CBTagPOV.Text = "POV" - Me.CBTagPOV.UseVisualStyleBackColor = True - ' - 'CBTagHardcore - ' - Me.CBTagHardcore.AutoSize = True - Me.CBTagHardcore.Enabled = False - Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black - Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) - Me.CBTagHardcore.Name = "CBTagHardcore" - Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) - Me.CBTagHardcore.TabIndex = 203 - Me.CBTagHardcore.Text = "Hardcore" - Me.CBTagHardcore.UseVisualStyleBackColor = True - ' - 'CBTagTD - ' - Me.CBTagTD.AutoSize = True - Me.CBTagTD.Enabled = False - Me.CBTagTD.ForeColor = System.Drawing.Color.Black - Me.CBTagTD.Location = New System.Drawing.Point(15, 217) - Me.CBTagTD.Name = "CBTagTD" - Me.CBTagTD.Size = New System.Drawing.Size(47, 17) - Me.CBTagTD.TabIndex = 218 - Me.CBTagTD.Text = "T&&D" - Me.CBTagTD.UseVisualStyleBackColor = True - ' - 'CBTagGay - ' - Me.CBTagGay.AutoSize = True - Me.CBTagGay.Enabled = False - Me.CBTagGay.ForeColor = System.Drawing.Color.Black - Me.CBTagGay.Location = New System.Drawing.Point(15, 57) - Me.CBTagGay.Name = "CBTagGay" - Me.CBTagGay.Size = New System.Drawing.Size(45, 17) - Me.CBTagGay.TabIndex = 204 - Me.CBTagGay.Text = "Gay" - Me.CBTagGay.UseVisualStyleBackColor = True - ' - 'CBTagBath - ' - Me.CBTagBath.AutoSize = True - Me.CBTagBath.Enabled = False - Me.CBTagBath.ForeColor = System.Drawing.Color.Black - Me.CBTagBath.Location = New System.Drawing.Point(15, 277) - Me.CBTagBath.Name = "CBTagBath" - Me.CBTagBath.Size = New System.Drawing.Size(48, 17) - Me.CBTagBath.TabIndex = 217 - Me.CBTagBath.Text = "Bath" - Me.CBTagBath.UseVisualStyleBackColor = True - ' - 'CBTagBisexual - ' - Me.CBTagBisexual.AutoSize = True - Me.CBTagBisexual.Enabled = False - Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black - Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) - Me.CBTagBisexual.Name = "CBTagBisexual" - Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) - Me.CBTagBisexual.TabIndex = 205 - Me.CBTagBisexual.Text = "Bisexual" - Me.CBTagBisexual.UseVisualStyleBackColor = True - ' - 'CBTagCFNM - ' - Me.CBTagCFNM.AutoSize = True - Me.CBTagCFNM.Enabled = False - Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black - Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) - Me.CBTagCFNM.Name = "CBTagCFNM" - Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) - Me.CBTagCFNM.TabIndex = 216 - Me.CBTagCFNM.Text = "CFNM" - Me.CBTagCFNM.UseVisualStyleBackColor = True - ' - 'CBTagLesbian - ' - Me.CBTagLesbian.AutoSize = True - Me.CBTagLesbian.Enabled = False - Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black - Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) - Me.CBTagLesbian.Name = "CBTagLesbian" - Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) - Me.CBTagLesbian.TabIndex = 206 - Me.CBTagLesbian.Text = "Lesbian" - Me.CBTagLesbian.UseVisualStyleBackColor = True - ' - 'CBTagSoloFuta - ' - Me.CBTagSoloFuta.AutoSize = True - Me.CBTagSoloFuta.Enabled = False - Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black - Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) - Me.CBTagSoloFuta.Name = "CBTagSoloFuta" - Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) - Me.CBTagSoloFuta.TabIndex = 207 - Me.CBTagSoloFuta.Text = "Solo Futa" - Me.CBTagSoloFuta.UseVisualStyleBackColor = True - ' - 'CBTagSM - ' - Me.CBTagSM.AutoSize = True - Me.CBTagSM.Enabled = False - Me.CBTagSM.ForeColor = System.Drawing.Color.Black - Me.CBTagSM.Location = New System.Drawing.Point(15, 197) - Me.CBTagSM.Name = "CBTagSM" - Me.CBTagSM.Size = New System.Drawing.Size(48, 17) - Me.CBTagSM.TabIndex = 214 - Me.CBTagSM.Text = "S&&M" - Me.CBTagSM.UseVisualStyleBackColor = True - ' - 'CBTagBondage - ' - Me.CBTagBondage.AutoSize = True - Me.CBTagBondage.Enabled = False - Me.CBTagBondage.ForeColor = System.Drawing.Color.Black - Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) - Me.CBTagBondage.Name = "CBTagBondage" - Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) - Me.CBTagBondage.TabIndex = 209 - Me.CBTagBondage.Text = "Bondage" - Me.CBTagBondage.UseVisualStyleBackColor = True - ' - 'CBTagSoloM - ' - Me.CBTagSoloM.AutoSize = True - Me.CBTagSoloM.Enabled = False - Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black - Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) - Me.CBTagSoloM.Name = "CBTagSoloM" - Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) - Me.CBTagSoloM.TabIndex = 213 - Me.CBTagSoloM.Text = "Solo M" - Me.CBTagSoloM.UseVisualStyleBackColor = True - ' - 'CBTagSoloF - ' - Me.CBTagSoloF.AutoSize = True - Me.CBTagSoloF.Enabled = False - Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black - Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) - Me.CBTagSoloF.Name = "CBTagSoloF" - Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) - Me.CBTagSoloF.TabIndex = 210 - Me.CBTagSoloF.Text = "Solo F" - Me.CBTagSoloF.UseVisualStyleBackColor = True - ' - 'CBTagChastity - ' - Me.CBTagChastity.AutoSize = True - Me.CBTagChastity.Enabled = False - Me.CBTagChastity.ForeColor = System.Drawing.Color.Black - Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) - Me.CBTagChastity.Name = "CBTagChastity" - Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) - Me.CBTagChastity.TabIndex = 212 - Me.CBTagChastity.Text = "Chastity" - Me.CBTagChastity.UseVisualStyleBackColor = True - ' - 'CBTagShower - ' - Me.CBTagShower.AutoSize = True - Me.CBTagShower.Enabled = False - Me.CBTagShower.ForeColor = System.Drawing.Color.Black - Me.CBTagShower.Location = New System.Drawing.Point(15, 297) - Me.CBTagShower.Name = "CBTagShower" - Me.CBTagShower.Size = New System.Drawing.Size(62, 17) - Me.CBTagShower.TabIndex = 211 - Me.CBTagShower.Text = "Shower" - Me.CBTagShower.UseVisualStyleBackColor = True - ' - 'TBLocalTagDir - ' - Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) - Me.TBLocalTagDir.Name = "TBLocalTagDir" - Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) - Me.TBLocalTagDir.TabIndex = 233 - Me.TBLocalTagDir.Text = "Enter Image Directory" - ' - 'BTNLocalTagPrevious - ' - Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray - Me.BTNLocalTagPrevious.Enabled = False - Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black - Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) - Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" - Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) - Me.BTNLocalTagPrevious.TabIndex = 232 - Me.BTNLocalTagPrevious.Text = "<<" - Me.BTNLocalTagPrevious.UseVisualStyleBackColor = False - ' - 'BTNLocalTagNext - ' - Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray - Me.BTNLocalTagNext.Enabled = False - Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black - Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) - Me.BTNLocalTagNext.Name = "BTNLocalTagNext" - Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) - Me.BTNLocalTagNext.TabIndex = 231 - Me.BTNLocalTagNext.Text = ">>" - Me.BTNLocalTagNext.UseVisualStyleBackColor = False - ' - 'LBLLocalTagCount - ' - Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent - Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLLocalTagCount.Enabled = False - Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black - Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) - Me.LBLLocalTagCount.Name = "LBLLocalTagCount" - Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) - Me.LBLLocalTagCount.TabIndex = 230 - Me.LBLLocalTagCount.Text = "0/0" - Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNLocalTagSave - ' - Me.BTNLocalTagSave.Enabled = False - Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) - Me.BTNLocalTagSave.Name = "BTNLocalTagSave" - Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) - Me.BTNLocalTagSave.TabIndex = 229 - Me.BTNLocalTagSave.Text = "Finished" - Me.BTNLocalTagSave.UseVisualStyleBackColor = True - ' - 'BTNLocalTagDir - ' - Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) - Me.BTNLocalTagDir.Name = "BTNLocalTagDir" - Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) - Me.BTNLocalTagDir.TabIndex = 228 - Me.BTNLocalTagDir.Text = "1" - Me.BTNLocalTagDir.UseVisualStyleBackColor = True - ' - 'TabPage11 - ' - Me.TabPage11.BackColor = System.Drawing.Color.Silver - Me.TabPage11.Controls.Add(Me.Panel7) - Me.TabPage11.Location = New System.Drawing.Point(4, 22) - Me.TabPage11.Name = "TabPage11" - Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage11.Size = New System.Drawing.Size(720, 448) - Me.TabPage11.TabIndex = 10 - Me.TabPage11.Text = "URL Files" - ' - 'Panel7 - ' - Me.Panel7.BackColor = System.Drawing.Color.LightGray - Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel7.Controls.Add(Me.BTNWIContinue) - Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) - Me.Panel7.Controls.Add(Me.BTNWICancel) - Me.Panel7.Controls.Add(Me.CBWIReview) - Me.Panel7.Controls.Add(Me.BTNWIBrowse) - Me.Panel7.Controls.Add(Me.TBWIDirectory) - Me.Panel7.Controls.Add(Me.BTNWIDisliked) - Me.Panel7.Controls.Add(Me.BTNWILiked) - Me.Panel7.Controls.Add(Me.BTNWIRemove) - Me.Panel7.Controls.Add(Me.CBWISaveToDisk) - Me.Panel7.Controls.Add(Me.PictureBox5) - Me.Panel7.Controls.Add(Me.WebImageProgressBar) - Me.Panel7.Controls.Add(Me.BTNWICreateURL) - Me.Panel7.Controls.Add(Me.LBLWebImageCount) - Me.Panel7.Controls.Add(Me.BTNWISave) - Me.Panel7.Controls.Add(Me.BTNWIOpenURL) - Me.Panel7.Controls.Add(Me.BTNWIPrevious) - Me.Panel7.Controls.Add(Me.BTNWINext) - Me.Panel7.Controls.Add(Me.WebPictureBox) - Me.Panel7.Controls.Add(Me.Label71) - Me.Panel7.Location = New System.Drawing.Point(6, 6) - Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(708, 437) - Me.Panel7.TabIndex = 91 - ' - 'BTNWIContinue - ' - Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray - Me.BTNWIContinue.Enabled = False - Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black - Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) - Me.BTNWIContinue.Name = "BTNWIContinue" - Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) - Me.BTNWIContinue.TabIndex = 168 - Me.BTNWIContinue.Text = "Continue" - Me.BTNWIContinue.UseVisualStyleBackColor = False - ' - 'BTNWIAddandContinue - ' - Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray - Me.BTNWIAddandContinue.Enabled = False - Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black - Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) - Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" - Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) - Me.BTNWIAddandContinue.TabIndex = 167 - Me.BTNWIAddandContinue.Text = "Add and Continue" - Me.BTNWIAddandContinue.UseVisualStyleBackColor = False - ' - 'BTNWICancel - ' - Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray - Me.BTNWICancel.Enabled = False - Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWICancel.ForeColor = System.Drawing.Color.Black - Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) - Me.BTNWICancel.Name = "BTNWICancel" - Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) - Me.BTNWICancel.TabIndex = 166 - Me.BTNWICancel.Text = "Cancel" - Me.BTNWICancel.UseVisualStyleBackColor = False - ' - 'CBWIReview - ' - Me.CBWIReview.Location = New System.Drawing.Point(567, 69) - Me.CBWIReview.Name = "CBWIReview" - Me.CBWIReview.Size = New System.Drawing.Size(124, 30) - Me.CBWIReview.TabIndex = 165 - Me.CBWIReview.Text = "Review Each Image" - Me.CBWIReview.UseVisualStyleBackColor = True - ' - 'BTNWIBrowse - ' - Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray - Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black - Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) - Me.BTNWIBrowse.Name = "BTNWIBrowse" - Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) - Me.BTNWIBrowse.TabIndex = 163 - Me.BTNWIBrowse.Text = "Browse" - Me.BTNWIBrowse.UseVisualStyleBackColor = False - ' - 'TBWIDirectory - ' - Me.TBWIDirectory.BackColor = System.Drawing.Color.White - Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black - Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) - Me.TBWIDirectory.Name = "TBWIDirectory" - Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) - Me.TBWIDirectory.TabIndex = 164 - Me.TBWIDirectory.Text = "Saved Image Directory" - ' - 'BTNWIDisliked - ' - Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray - Me.BTNWIDisliked.Enabled = False - Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black - Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) - Me.BTNWIDisliked.Name = "BTNWIDisliked" - Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) - Me.BTNWIDisliked.TabIndex = 162 - Me.BTNWIDisliked.Text = "Add to Disliked Images" - Me.BTNWIDisliked.UseVisualStyleBackColor = False - ' - 'BTNWILiked - ' - Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray - Me.BTNWILiked.Enabled = False - Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWILiked.ForeColor = System.Drawing.Color.Black - Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) - Me.BTNWILiked.Name = "BTNWILiked" - Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) - Me.BTNWILiked.TabIndex = 161 - Me.BTNWILiked.Text = "Add to Liked Images" - Me.BTNWILiked.UseVisualStyleBackColor = False - ' - 'BTNWIRemove - ' - Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray - Me.BTNWIRemove.Enabled = False - Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black - Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) - Me.BTNWIRemove.Name = "BTNWIRemove" - Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) - Me.BTNWIRemove.TabIndex = 160 - Me.BTNWIRemove.Text = "Remove From URL File" - Me.BTNWIRemove.UseVisualStyleBackColor = False - ' - 'CBWISaveToDisk - ' - Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) - Me.CBWISaveToDisk.Name = "CBWISaveToDisk" - Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) - Me.CBWISaveToDisk.TabIndex = 157 - Me.CBWISaveToDisk.Text = "Save Images to Disk" - Me.CBWISaveToDisk.UseVisualStyleBackColor = True - ' - 'PictureBox5 - ' - Me.PictureBox5.BackColor = System.Drawing.Color.LightGray - Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox5.Location = New System.Drawing.Point(9, 6) - Me.PictureBox5.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(160, 19) - Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox5.TabIndex = 156 - Me.PictureBox5.TabStop = False - ' - 'WebImageProgressBar - ' - Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) - Me.WebImageProgressBar.Maximum = 2500 - Me.WebImageProgressBar.Name = "WebImageProgressBar" - Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) - Me.WebImageProgressBar.TabIndex = 155 - ' - 'BTNWICreateURL - ' - Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray - Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black - Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) - Me.BTNWICreateURL.Name = "BTNWICreateURL" - Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) - Me.BTNWICreateURL.TabIndex = 154 - Me.BTNWICreateURL.Text = "Create URL File" - Me.BTNWICreateURL.UseVisualStyleBackColor = False - ' - 'LBLWebImageCount - ' - Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent - Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black - Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) - Me.LBLWebImageCount.Name = "LBLWebImageCount" - Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) - Me.LBLWebImageCount.TabIndex = 153 - Me.LBLWebImageCount.Text = "0/0" - Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNWISave - ' - Me.BTNWISave.BackColor = System.Drawing.Color.LightGray - Me.BTNWISave.Enabled = False - Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWISave.ForeColor = System.Drawing.Color.Black - Me.BTNWISave.Location = New System.Drawing.Point(567, 401) - Me.BTNWISave.Name = "BTNWISave" - Me.BTNWISave.Size = New System.Drawing.Size(131, 24) - Me.BTNWISave.TabIndex = 152 - Me.BTNWISave.Text = "Save Image to Disk" - Me.BTNWISave.UseVisualStyleBackColor = False - ' - 'BTNWIOpenURL - ' - Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray - Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black - Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) - Me.BTNWIOpenURL.Name = "BTNWIOpenURL" - Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) - Me.BTNWIOpenURL.TabIndex = 151 - Me.BTNWIOpenURL.Text = "Open URL File" - Me.BTNWIOpenURL.UseVisualStyleBackColor = False - ' - 'BTNWIPrevious - ' - Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray - Me.BTNWIPrevious.Enabled = False - Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black - Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) - Me.BTNWIPrevious.Name = "BTNWIPrevious" - Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) - Me.BTNWIPrevious.TabIndex = 149 - Me.BTNWIPrevious.Text = "<<" - Me.BTNWIPrevious.UseVisualStyleBackColor = False - ' - 'BTNWINext - ' - Me.BTNWINext.BackColor = System.Drawing.Color.LightGray - Me.BTNWINext.Enabled = False - Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWINext.ForeColor = System.Drawing.Color.Black - Me.BTNWINext.Location = New System.Drawing.Point(651, 282) - Me.BTNWINext.Name = "BTNWINext" - Me.BTNWINext.Size = New System.Drawing.Size(47, 24) - Me.BTNWINext.TabIndex = 150 - Me.BTNWINext.Text = ">>" - Me.BTNWINext.UseVisualStyleBackColor = False - ' - 'WebPictureBox - ' - Me.WebPictureBox.BackColor = System.Drawing.Color.Black - Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) - Me.WebPictureBox.Name = "WebPictureBox" - Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) - Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.WebPictureBox.TabIndex = 148 - Me.WebPictureBox.TabStop = False - ' - 'Label71 - ' - Me.Label71.BackColor = System.Drawing.Color.Transparent - Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label71.ForeColor = System.Drawing.Color.Black - Me.Label71.Location = New System.Drawing.Point(7, 6) - Me.Label71.Name = "Label71" - Me.Label71.Size = New System.Drawing.Size(692, 21) - Me.Label71.TabIndex = 48 - Me.Label71.Text = "URL Files" - Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TpVideoSettings - ' - Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver - Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) - Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) - Me.TpVideoSettings.Name = "TpVideoSettings" - Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) - Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) - Me.TpVideoSettings.TabIndex = 2 - Me.TpVideoSettings.Text = "Video" - ' - 'PnlVideoSettings - ' - Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray - Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) - Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) - Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) - Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill - Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) - Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) - Me.PnlVideoSettings.Name = "PnlVideoSettings" - Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) - Me.PnlVideoSettings.TabIndex = 92 - ' - 'PbBannerVideoSettings - ' - Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray - Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) - Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" - Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) - Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PbBannerVideoSettings.TabIndex = 151 - Me.PbBannerVideoSettings.TabStop = False - ' - 'BTNRefreshVideos - ' - Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray - Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh - Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 - Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black - Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) - Me.BTNRefreshVideos.Name = "BTNRefreshVideos" - Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) - Me.BTNRefreshVideos.TabIndex = 149 - Me.BTNRefreshVideos.UseVisualStyleBackColor = False - ' - 'GbxVideoGeneralD - ' - Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) - Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) - Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) - Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) - Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) - Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" - Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) - Me.GbxVideoGeneralD.TabIndex = 5 - Me.GbxVideoGeneralD.TabStop = False - Me.GbxVideoGeneralD.Text = "Domme General" - ' - 'LblVideoGeneralTotalD - ' - Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) - Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" - Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoGeneralTotalD.TabIndex = 3 - Me.LblVideoGeneralTotalD.Text = "0" - Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoGeneralD - ' - Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" - Me.TxbVideoGeneralD.ReadOnly = True - Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneralD.TabIndex = 2 - Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD - ' - 'BTNVideoGeneralD - ' - Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" - Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoGeneralD.TabIndex = 1 - Me.BTNVideoGeneralD.Text = "1" - Me.BTNVideoGeneralD.UseVisualStyleBackColor = False - ' - 'CBVideoGeneralD - ' - Me.CBVideoGeneralD.AutoSize = True - Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD - Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) - Me.CBVideoGeneralD.Name = "CBVideoGeneralD" - Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoGeneralD.TabIndex = 0 - Me.CBVideoGeneralD.Text = "General" - Me.CBVideoGeneralD.UseVisualStyleBackColor = True - ' - 'GbxVideoSpecialD - ' - Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) - Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) - Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) - Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) - Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) - Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) - Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) - Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) - Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black - Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) - Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" - Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) - Me.GbxVideoSpecialD.TabIndex = 4 - Me.GbxVideoSpecialD.TabStop = False - Me.GbxVideoSpecialD.Text = "Domme Special" - ' - 'LblVideoCHTotalD - ' - Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) - Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" - Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoCHTotalD.TabIndex = 7 - Me.LblVideoCHTotalD.Text = "0" - Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LblVideoJOITotalD - ' - Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) - Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" - Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoJOITotalD.TabIndex = 3 - Me.LblVideoJOITotalD.Text = "0" - Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoCHD - ' - Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) - Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoCHD.Name = "TxbVideoCHD" - Me.TxbVideoCHD.ReadOnly = True - Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoCHD.TabIndex = 6 - Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD - ' - 'TxbVideoJOID - ' - Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black - Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoJOID.Name = "TxbVideoJOID" - Me.TxbVideoJOID.ReadOnly = True - Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoJOID.TabIndex = 2 - Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID - ' - 'BTNVideoCHD - ' - Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoCHD.Name = "BTNVideoCHD" - Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoCHD.TabIndex = 5 - Me.BTNVideoCHD.Text = "1" - Me.BTNVideoCHD.UseVisualStyleBackColor = False - ' - 'BTNVideoJOID - ' - Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black - Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoJOID.Name = "BTNVideoJOID" - Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoJOID.TabIndex = 1 - Me.BTNVideoJOID.Text = "1" - Me.BTNVideoJOID.UseVisualStyleBackColor = False - ' - 'CBVideoJOID - ' - Me.CBVideoJOID.AutoSize = True - Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID - Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black - Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) - Me.CBVideoJOID.Name = "CBVideoJOID" - Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) - Me.CBVideoJOID.TabIndex = 0 - Me.CBVideoJOID.Text = "JOI" - Me.CBVideoJOID.UseVisualStyleBackColor = True - ' - 'CBVideoCHD - ' - Me.CBVideoCHD.AutoSize = True - Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD - Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black - Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) - Me.CBVideoCHD.Name = "CBVideoCHD" - Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) - Me.CBVideoCHD.TabIndex = 4 - Me.CBVideoCHD.Text = "CH" - Me.CBVideoCHD.UseVisualStyleBackColor = True - ' - 'GbxVideoGenreD - ' - Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) - Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) - Me.GbxVideoGenreD.Name = "GbxVideoGenreD" - Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) - Me.GbxVideoGenreD.TabIndex = 3 - Me.GbxVideoGenreD.TabStop = False - Me.GbxVideoGenreD.Text = "Domme Genre" - ' - 'LblVideoFemsubTotalD - ' - Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) - Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" - Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemsubTotalD.TabIndex = 23 - Me.LblVideoFemsubTotalD.Text = "0" - Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemsubD - ' - Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) - Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" - Me.TxbVideoFemsubD.ReadOnly = True - Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsubD.TabIndex = 22 - Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD - ' - 'LblVideoFemdomTotalD - ' - Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) - Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" - Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemdomTotalD.TabIndex = 19 - Me.LblVideoFemdomTotalD.Text = "0" - Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemdomD - ' - Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) - Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" - Me.TxbVideoFemdomD.ReadOnly = True - Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdomD.TabIndex = 18 - Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD - ' - 'TxbVideoBlowjobD - ' - Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) - Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" - Me.TxbVideoBlowjobD.ReadOnly = True - Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjobD.TabIndex = 14 - Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD - ' - 'LblVideoBlowjobTotalD - ' - Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) - Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" - Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoBlowjobTotalD.TabIndex = 15 - Me.LblVideoBlowjobTotalD.Text = "0" - Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoLesbianD - ' - Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) - Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" - Me.TxbVideoLesbianD.ReadOnly = True - Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbianD.TabIndex = 10 - Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD - ' - 'TxbVideoSoftCoreD - ' - Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) - Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" - Me.TxbVideoSoftCoreD.ReadOnly = True - Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCoreD.TabIndex = 6 - Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD - ' - 'LblVideoLesbianTotalD - ' - Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) - Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" - Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoLesbianTotalD.TabIndex = 11 - Me.LblVideoLesbianTotalD.Text = "0" - Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoHardCoreD - ' - Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) - Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" - Me.TxbVideoHardCoreD.ReadOnly = True - Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCoreD.TabIndex = 2 - Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD - ' - 'BTNVideoFemSubD - ' - Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) - Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" - Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemSubD.TabIndex = 21 - Me.BTNVideoFemSubD.Text = "1" - Me.BTNVideoFemSubD.UseVisualStyleBackColor = False - ' - 'LblVideoSoftCoreTotalD - ' - Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) - Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" - Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoSoftCoreTotalD.TabIndex = 7 - Me.LblVideoSoftCoreTotalD.Text = "0" - Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoFemDomD - ' - Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) - Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" - Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemDomD.TabIndex = 17 - Me.BTNVideoFemDomD.Text = "1" - Me.BTNVideoFemDomD.UseVisualStyleBackColor = False - ' - 'BTNVideoBlowjobD - ' - Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) - Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" - Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoBlowjobD.TabIndex = 13 - Me.BTNVideoBlowjobD.Text = "1" - Me.BTNVideoBlowjobD.UseVisualStyleBackColor = False - ' - 'LblVideoHardCoreTotalD - ' - Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) - Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" - Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoHardCoreTotalD.TabIndex = 3 - Me.LblVideoHardCoreTotalD.Text = "0" - Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoLesbianD - ' - Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) - Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" - Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoLesbianD.TabIndex = 9 - Me.BTNVideoLesbianD.Text = "1" - Me.BTNVideoLesbianD.UseVisualStyleBackColor = False - ' - 'BTNVideoSoftCoreD - ' - Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" - Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoSoftCoreD.TabIndex = 5 - Me.BTNVideoSoftCoreD.Text = "1" - Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = False - ' - 'BTNVideoHardCoreD - ' - Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) - Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" - Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoHardCoreD.TabIndex = 1 - Me.BTNVideoHardCoreD.Text = "1" - Me.BTNVideoHardCoreD.UseVisualStyleBackColor = False - ' - 'CBVideoHardcoreD - ' - Me.CBVideoHardcoreD.AutoSize = True - Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD - Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black - Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) - Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" - Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) - Me.CBVideoHardcoreD.TabIndex = 0 - Me.CBVideoHardcoreD.Text = "Hardcore" - Me.CBVideoHardcoreD.UseVisualStyleBackColor = True - ' - 'CBVideoSoftCoreD - ' - Me.CBVideoSoftCoreD.AutoSize = True - Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD - Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black - Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) - Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" - Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) - Me.CBVideoSoftCoreD.TabIndex = 4 - Me.CBVideoSoftCoreD.Text = "Softcore" - Me.CBVideoSoftCoreD.UseVisualStyleBackColor = True - ' - 'CBVideoLesbianD - ' - Me.CBVideoLesbianD.AutoSize = True - Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD - Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black - Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) - Me.CBVideoLesbianD.Name = "CBVideoLesbianD" - Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoLesbianD.TabIndex = 8 - Me.CBVideoLesbianD.Text = "Lesbian" - Me.CBVideoLesbianD.UseVisualStyleBackColor = True - ' - 'CBVideoBlowjobD - ' - Me.CBVideoBlowjobD.AutoSize = True - Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD - Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black - Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) - Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" - Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoBlowjobD.TabIndex = 12 - Me.CBVideoBlowjobD.Text = "Blowjob" - Me.CBVideoBlowjobD.UseVisualStyleBackColor = True - ' - 'CBVideoFemsubD - ' - Me.CBVideoFemsubD.AutoSize = True - Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD - Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) - Me.CBVideoFemsubD.Name = "CBVideoFemsubD" - Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoFemsubD.TabIndex = 20 - Me.CBVideoFemsubD.Text = "Femsub" - Me.CBVideoFemsubD.UseVisualStyleBackColor = True - ' - 'CBVideoFemdomD - ' - Me.CBVideoFemdomD.AutoSize = True - Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD - Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) - Me.CBVideoFemdomD.Name = "CBVideoFemdomD" - Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) - Me.CBVideoFemdomD.TabIndex = 16 - Me.CBVideoFemdomD.Text = "Femdom" - Me.CBVideoFemdomD.UseVisualStyleBackColor = True - ' - 'GbxVideoDescription - ' - Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) - Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black - Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) - Me.GbxVideoDescription.Name = "GbxVideoDescription" - Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) - Me.GbxVideoDescription.TabIndex = 6 - Me.GbxVideoDescription.TabStop = False - Me.GbxVideoDescription.Text = "Description" - ' - 'VideoDescriptionLabel - ' - Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent - Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black - Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) - Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" - Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) - Me.VideoDescriptionLabel.TabIndex = 62 - Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei" & - "r paths." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The Domme Genre paths are for videos that feature the model you are " & - "using as your domme." - Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GbxVideoGeneral - ' - Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) - Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) - Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) - Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) - Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) - Me.GbxVideoGeneral.Name = "GbxVideoGeneral" - Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) - Me.GbxVideoGeneral.TabIndex = 2 - Me.GbxVideoGeneral.TabStop = False - Me.GbxVideoGeneral.Text = "General" - ' - 'LblVideoGeneralTotal - ' - Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) - Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" - Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoGeneralTotal.TabIndex = 3 - Me.LblVideoGeneralTotal.Text = "0" - Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoGeneral - ' - Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneral.Name = "TxbVideoGeneral" - Me.TxbVideoGeneral.ReadOnly = True - Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneral.TabIndex = 2 - Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral - ' - 'BTNVideoGeneral - ' - Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoGeneral.Name = "BTNVideoGeneral" - Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoGeneral.TabIndex = 1 - Me.BTNVideoGeneral.Text = "1" - Me.BTNVideoGeneral.UseVisualStyleBackColor = False - ' - 'CBVideoGeneral - ' - Me.CBVideoGeneral.AutoSize = True - Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral - Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) - Me.CBVideoGeneral.Name = "CBVideoGeneral" - Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) - Me.CBVideoGeneral.TabIndex = 0 - Me.CBVideoGeneral.Text = "General" - Me.CBVideoGeneral.UseVisualStyleBackColor = True - ' - 'GbxVideoSpecial - ' - Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) - Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) - Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) - Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) - Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) - Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) - Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) - Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) - Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black - Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) - Me.GbxVideoSpecial.Name = "GbxVideoSpecial" - Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) - Me.GbxVideoSpecial.TabIndex = 1 - Me.GbxVideoSpecial.TabStop = False - Me.GbxVideoSpecial.Text = "Special" - ' - 'LblVideoCHTotal - ' - Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) - Me.LblVideoCHTotal.Name = "LblVideoCHTotal" - Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoCHTotal.TabIndex = 7 - Me.LblVideoCHTotal.Text = "0" - Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LblVideoJOITotal - ' - Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) - Me.LblVideoJOITotal.Name = "LblVideoJOITotal" - Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoJOITotal.TabIndex = 3 - Me.LblVideoJOITotal.Text = "0" - Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoCH - ' - Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black - Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) - Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoCH.Name = "TxbVideoCH" - Me.TxbVideoCH.ReadOnly = True - Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoCH.TabIndex = 6 - Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH - ' - 'TxbVideoJOI - ' - Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black - Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoJOI.Name = "TxbVideoJOI" - Me.TxbVideoJOI.ReadOnly = True - Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoJOI.TabIndex = 2 - Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI - ' - 'BTNVideoCH - ' - Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black - Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoCH.Name = "BTNVideoCH" - Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoCH.TabIndex = 5 - Me.BTNVideoCH.Text = "1" - Me.BTNVideoCH.UseVisualStyleBackColor = False - ' - 'BTNVideoJOI - ' - Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black - Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoJOI.Name = "BTNVideoJOI" - Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoJOI.TabIndex = 1 - Me.BTNVideoJOI.Text = "1" - Me.BTNVideoJOI.UseVisualStyleBackColor = False - ' - 'CBVideoJOI - ' - Me.CBVideoJOI.AutoSize = True - Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI - Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black - Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) - Me.CBVideoJOI.Name = "CBVideoJOI" - Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) - Me.CBVideoJOI.TabIndex = 0 - Me.CBVideoJOI.Text = "JOI" - Me.CBVideoJOI.UseVisualStyleBackColor = True - ' - 'CBVideoCH - ' - Me.CBVideoCH.AutoSize = True - Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH - Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoCH.ForeColor = System.Drawing.Color.Black - Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) - Me.CBVideoCH.Name = "CBVideoCH" - Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) - Me.CBVideoCH.TabIndex = 4 - Me.CBVideoCH.Text = "CH" - Me.CBVideoCH.UseVisualStyleBackColor = True - ' - 'GbxVideoGenre - ' - Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) - Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) - Me.GbxVideoGenre.Name = "GbxVideoGenre" - Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) - Me.GbxVideoGenre.TabIndex = 0 - Me.GbxVideoGenre.TabStop = False - Me.GbxVideoGenre.Text = "Genre" - ' - 'LblVideoFemsubTotal - ' - Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) - Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" - Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemsubTotal.TabIndex = 23 - Me.LblVideoFemsubTotal.Text = "0" - Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemsub - ' - Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) - Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsub.Name = "TxbVideoFemsub" - Me.TxbVideoFemsub.ReadOnly = True - Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsub.TabIndex = 22 - Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub - ' - 'LblVideoFemdomTotal - ' - Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) - Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" - Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemdomTotal.TabIndex = 19 - Me.LblVideoFemdomTotal.Text = "0" - Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemdom - ' - Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) - Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdom.Name = "TxbVideoFemdom" - Me.TxbVideoFemdom.ReadOnly = True - Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdom.TabIndex = 18 - Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom - ' - 'TxbVideoBlowjob - ' - Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black - Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) - Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" - Me.TxbVideoBlowjob.ReadOnly = True - Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjob.TabIndex = 14 - Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob - ' - 'LblVideoBlowjobTotal - ' - Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) - Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" - Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoBlowjobTotal.TabIndex = 15 - Me.LblVideoBlowjobTotal.Text = "0" - Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoLesbian - ' - Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black - Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) - Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbian.Name = "TxbVideoLesbian" - Me.TxbVideoLesbian.ReadOnly = True - Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbian.TabIndex = 10 - Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian - ' - 'TxbVideoSoftCore - ' - Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black - Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) - Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" - Me.TxbVideoSoftCore.ReadOnly = True - Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCore.TabIndex = 6 - Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore - ' - 'LblVideoLesbianTotal - ' - Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) - Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" - Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoLesbianTotal.TabIndex = 11 - Me.LblVideoLesbianTotal.Text = "0" - Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoHardCore - ' - Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black - Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) - Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCore.Name = "TxbVideoHardCore" - Me.TxbVideoHardCore.ReadOnly = True - Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCore.TabIndex = 2 - Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore - ' - 'BTNVideoFemSub - ' - Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) - Me.BTNVideoFemSub.Name = "BTNVideoFemSub" - Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemSub.TabIndex = 21 - Me.BTNVideoFemSub.Text = "1" - Me.BTNVideoFemSub.UseVisualStyleBackColor = False - ' - 'LblVideoSoftCoreTotal - ' - Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) - Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" - Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoSoftCoreTotal.TabIndex = 7 - Me.LblVideoSoftCoreTotal.Text = "0" - Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoFemDom - ' - Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) - Me.BTNVideoFemDom.Name = "BTNVideoFemDom" - Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemDom.TabIndex = 17 - Me.BTNVideoFemDom.Text = "1" - Me.BTNVideoFemDom.UseVisualStyleBackColor = False - ' - 'BTNVideoBlowjob - ' - Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black - Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) - Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" - Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoBlowjob.TabIndex = 13 - Me.BTNVideoBlowjob.Text = "1" - Me.BTNVideoBlowjob.UseVisualStyleBackColor = False - ' - 'LblVideoHardCoreTotal - ' - Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) - Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" - Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoHardCoreTotal.TabIndex = 3 - Me.LblVideoHardCoreTotal.Text = "0" - Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoLesbian - ' - Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black - Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) - Me.BTNVideoLesbian.Name = "BTNVideoLesbian" - Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoLesbian.TabIndex = 9 - Me.BTNVideoLesbian.Text = "1" - Me.BTNVideoLesbian.UseVisualStyleBackColor = False - ' - 'BTNVideoSoftCore - ' - Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black - Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" - Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoSoftCore.TabIndex = 5 - Me.BTNVideoSoftCore.Text = "1" - Me.BTNVideoSoftCore.UseVisualStyleBackColor = False - ' - 'BTNVideoHardCore - ' - Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black - Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) - Me.BTNVideoHardCore.Name = "BTNVideoHardCore" - Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoHardCore.TabIndex = 1 - Me.BTNVideoHardCore.Text = "1" - Me.BTNVideoHardCore.UseVisualStyleBackColor = False - ' - 'CBVideoHardcore - ' - Me.CBVideoHardcore.AutoSize = True - Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore - Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black - Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) - Me.CBVideoHardcore.Name = "CBVideoHardcore" - Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) - Me.CBVideoHardcore.TabIndex = 0 - Me.CBVideoHardcore.Text = "Hardcore" - Me.CBVideoHardcore.UseVisualStyleBackColor = True - ' - 'CBVideoSoftCore - ' - Me.CBVideoSoftCore.AutoSize = True - Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore - Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black - Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) - Me.CBVideoSoftCore.Name = "CBVideoSoftCore" - Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) - Me.CBVideoSoftCore.TabIndex = 4 - Me.CBVideoSoftCore.Text = "Softcore" - Me.CBVideoSoftCore.UseVisualStyleBackColor = True - ' - 'CBVideoLesbian - ' - Me.CBVideoLesbian.AutoSize = True - Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian - Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black - Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) - Me.CBVideoLesbian.Name = "CBVideoLesbian" - Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) - Me.CBVideoLesbian.TabIndex = 8 - Me.CBVideoLesbian.Text = "Lesbian" - Me.CBVideoLesbian.UseVisualStyleBackColor = True - ' - 'CBVideoBlowjob - ' - Me.CBVideoBlowjob.AutoSize = True - Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob - Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black - Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) - Me.CBVideoBlowjob.Name = "CBVideoBlowjob" - Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) - Me.CBVideoBlowjob.TabIndex = 12 - Me.CBVideoBlowjob.Text = "Blowjob" - Me.CBVideoBlowjob.UseVisualStyleBackColor = True - ' - 'CBVideoFemsub - ' - Me.CBVideoFemsub.AutoSize = True - Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub - Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) - Me.CBVideoFemsub.Name = "CBVideoFemsub" - Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) - Me.CBVideoFemsub.TabIndex = 20 - Me.CBVideoFemsub.Text = "Femsub" - Me.CBVideoFemsub.UseVisualStyleBackColor = True - ' - 'CBVideoFemdom - ' - Me.CBVideoFemdom.AutoSize = True - Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom - Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) - Me.CBVideoFemdom.Name = "CBVideoFemdom" - Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) - Me.CBVideoFemdom.TabIndex = 16 - Me.CBVideoFemdom.Text = "Femdom" - Me.CBVideoFemdom.UseVisualStyleBackColor = True - ' - 'LblVideoHeader - ' - Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent - Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black - Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) - Me.LblVideoHeader.Name = "LblVideoHeader" - Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) - Me.LblVideoHeader.TabIndex = 49 - Me.LblVideoHeader.Text = "Video Settings" - Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage20 - ' - Me.TabPage20.BackColor = System.Drawing.Color.Silver - Me.TabPage20.Controls.Add(Me.TabControl1) - Me.TabPage20.Location = New System.Drawing.Point(4, 22) - Me.TabPage20.Name = "TabPage20" - Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage20.Size = New System.Drawing.Size(720, 448) - Me.TabPage20.TabIndex = 16 - Me.TabPage20.Text = "Apps" - ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.TabPage22) - Me.TabControl1.Controls.Add(Me.TpGames) - Me.TabControl1.Controls.Add(Me.TabPage6) - Me.TabControl1.Location = New System.Drawing.Point(6, 6) - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(708, 437) - Me.TabControl1.TabIndex = 0 - ' - 'TabPage22 - ' - Me.TabPage22.BackColor = System.Drawing.Color.LightGray - Me.TabPage22.Controls.Add(Me.PNLGlitter) - Me.TabPage22.Location = New System.Drawing.Point(4, 22) - Me.TabPage22.Name = "TabPage22" - Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage22.Size = New System.Drawing.Size(700, 411) - Me.TabPage22.TabIndex = 0 - Me.TabPage22.Text = "Glitter" - ' - 'PNLGlitter - ' - Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray - Me.PNLGlitter.Controls.Add(Me.TbxRandomImageDir) - Me.PNLGlitter.Controls.Add(Me.Button15) - Me.PNLGlitter.Controls.Add(Me.BtnRandomImageDir) - Me.PNLGlitter.Controls.Add(Me.BtnRandomImageDirClear) - Me.PNLGlitter.Controls.Add(Me.Button16) - Me.PNLGlitter.Controls.Add(Me.Label121) - Me.PNLGlitter.Controls.Add(Me.Label122) - Me.PNLGlitter.Controls.Add(Me.GBGlitterD) - Me.PNLGlitter.Controls.Add(Me.GBGlitter1) - Me.PNLGlitter.Controls.Add(Me.GBGlitter3) - Me.PNLGlitter.Controls.Add(Me.GBGlitter2) - Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) - Me.PNLGlitter.Name = "PNLGlitter" - Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) - Me.PNLGlitter.TabIndex = 91 - ' - 'TbxRandomImageDir - ' - Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "RandomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxRandomImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxRandomImageDir.Location = New System.Drawing.Point(244, 332) - Me.TbxRandomImageDir.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxRandomImageDir.MinimumSize = New System.Drawing.Size(204, 17) - Me.TbxRandomImageDir.Name = "TbxRandomImageDir" - Me.TbxRandomImageDir.ReadOnly = True - Me.TbxRandomImageDir.Size = New System.Drawing.Size(204, 17) - Me.TbxRandomImageDir.TabIndex = 182 - Me.TbxRandomImageDir.Text = "No Path Selected" - ' - 'Button15 - ' - Me.Button15.BackColor = System.Drawing.Color.LightGray - Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export - Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button15.FlatAppearance.BorderSize = 0 - Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button15.ForeColor = System.Drawing.Color.Black - Me.Button15.Location = New System.Drawing.Point(670, 366) - Me.Button15.Name = "Button15" - Me.Button15.Size = New System.Drawing.Size(30, 26) - Me.Button15.TabIndex = 163 - Me.Button15.UseVisualStyleBackColor = False - ' - 'BtnRandomImageDir - ' - Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnRandomImageDir.Location = New System.Drawing.Point(16, 329) - Me.BtnRandomImageDir.Name = "BtnRandomImageDir" - Me.BtnRandomImageDir.Size = New System.Drawing.Size(192, 22) - Me.BtnRandomImageDir.TabIndex = 182 - Me.BtnRandomImageDir.Text = "Set Random Friend Main Directory" - Me.BtnRandomImageDir.UseVisualStyleBackColor = False - ' - 'BtnRandomImageDirClear - ' - Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(485, 329) - Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" - Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnRandomImageDirClear.TabIndex = 181 - Me.BtnRandomImageDirClear.Text = "Clear" - Me.BtnRandomImageDirClear.UseVisualStyleBackColor = False - ' - 'Button16 - ' - Me.Button16.BackColor = System.Drawing.Color.LightGray - Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save - Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button16.FlatAppearance.BorderSize = 0 - Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button16.ForeColor = System.Drawing.Color.Black - Me.Button16.Location = New System.Drawing.Point(667, 324) - Me.Button16.Name = "Button16" - Me.Button16.Size = New System.Drawing.Size(30, 26) - Me.Button16.TabIndex = 164 - Me.Button16.UseVisualStyleBackColor = False - ' - 'Label121 - ' - Me.Label121.AutoSize = True - Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label121.ForeColor = System.Drawing.Color.Black - Me.Label121.Location = New System.Drawing.Point(669, 352) - Me.Label121.Name = "Label121" - Me.Label121.Size = New System.Drawing.Size(27, 13) - Me.Label121.TabIndex = 166 - Me.Label121.Text = "load" - Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label122 - ' - Me.Label122.AutoSize = True - Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label122.ForeColor = System.Drawing.Color.Black - Me.Label122.Location = New System.Drawing.Point(667, 313) - Me.Label122.Name = "Label122" - Me.Label122.Size = New System.Drawing.Size(30, 13) - Me.Label122.TabIndex = 165 - Me.Label122.Text = "save" - Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GBGlitterD - ' - Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray - Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) - Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) - Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) - Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) - Me.GBGlitterD.Controls.Add(Me.CBCustom2) - Me.GBGlitterD.Controls.Add(Me.GlitterSlider) - Me.GBGlitterD.Controls.Add(Me.CBCustom1) - Me.GBGlitterD.Controls.Add(Me.CBDaily) - Me.GBGlitterD.Controls.Add(Me.CBTrivia) - Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) - Me.GBGlitterD.Controls.Add(Me.CBEgotist) - Me.GBGlitterD.Controls.Add(Me.CBTease) - Me.GBGlitterD.Controls.Add(Me.GlitterAV) - Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) - Me.GBGlitterD.Name = "GBGlitterD" - Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) - Me.GBGlitterD.TabIndex = 162 - Me.GBGlitterD.TabStop = False - Me.GBGlitterD.Text = "Domme" - ' - 'GrbGlitterfeed - ' - Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) - Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) - Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) - Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) - Me.GrbGlitterfeed.Name = "GrbGlitterfeed" - Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) - Me.GrbGlitterfeed.TabIndex = 168 - Me.GrbGlitterfeed.TabStop = False - Me.GrbGlitterfeed.Text = "Glitterfeeds" - ' - 'CBGlitterFeedScripts - ' - Me.CBGlitterFeedScripts.AutoSize = True - Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent - Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts - Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", True)) - Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) - Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) - Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" - Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) - Me.CBGlitterFeedScripts.TabIndex = 146 - Me.CBGlitterFeedScripts.Text = "Scripts" - Me.CBGlitterFeedScripts.UseVisualStyleBackColor = False - ' - 'CBGlitterFeed - ' - Me.CBGlitterFeed.AutoSize = True - Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed - Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", True)) - Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) - Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) - Me.CBGlitterFeed.Name = "CBGlitterFeed" - Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) - Me.CBGlitterFeed.TabIndex = 145 - Me.CBGlitterFeed.Text = "On" - Me.CBGlitterFeed.UseVisualStyleBackColor = True - ' - 'CBGlitterFeedOff - ' - Me.CBGlitterFeedOff.AutoSize = True - Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff - Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", True)) - Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) - Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) - Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" - Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) - Me.CBGlitterFeedOff.TabIndex = 147 - Me.CBGlitterFeedOff.TabStop = True - Me.CBGlitterFeedOff.Text = "Off" - Me.CBGlitterFeedOff.UseVisualStyleBackColor = True - ' - 'BTNGlitterD - ' - Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black - Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) - Me.BTNGlitterD.Name = "BTNGlitterD" - Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitterD.TabIndex = 166 - Me.BTNGlitterD.Text = "Choose Name Color" - Me.BTNGlitterD.UseVisualStyleBackColor = False - ' - 'LBLGlitterNCDomme - ' - Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White - Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor - Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) - Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" - Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNCDomme.TabIndex = 163 - Me.LBLGlitterNCDomme.Text = "Preview" - Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider - ' - Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider.Name = "LBLGlitterSlider" - Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider.TabIndex = 162 - Me.LBLGlitterSlider.Text = "Post Frequency" - Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBCustom2 - ' - Me.CBCustom2.AutoSize = True - Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 - Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBCustom2.ForeColor = System.Drawing.Color.Black - Me.CBCustom2.Location = New System.Drawing.Point(149, 121) - Me.CBCustom2.Name = "CBCustom2" - Me.CBCustom2.Size = New System.Drawing.Size(70, 17) - Me.CBCustom2.TabIndex = 161 - Me.CBCustom2.Text = "Custom 2" - Me.CBCustom2.UseVisualStyleBackColor = True - ' - 'GlitterSlider - ' - Me.GlitterSlider.AutoSize = False - Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider.LargeChange = 1 - Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider.Maximum = 9 - Me.GlitterSlider.Minimum = 1 - Me.GlitterSlider.Name = "GlitterSlider" - Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider.TabIndex = 160 - Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider - ' - 'CBCustom1 - ' - Me.CBCustom1.AutoSize = True - Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 - Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBCustom1.ForeColor = System.Drawing.Color.Black - Me.CBCustom1.Location = New System.Drawing.Point(149, 98) - Me.CBCustom1.Name = "CBCustom1" - Me.CBCustom1.Size = New System.Drawing.Size(70, 17) - Me.CBCustom1.TabIndex = 157 - Me.CBCustom1.Text = "Custom 1" - Me.CBCustom1.UseVisualStyleBackColor = True - ' - 'CBDaily - ' - Me.CBDaily.AutoSize = True - Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily - Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBDaily.ForeColor = System.Drawing.Color.Black - Me.CBDaily.Location = New System.Drawing.Point(79, 121) - Me.CBDaily.Name = "CBDaily" - Me.CBDaily.Size = New System.Drawing.Size(49, 17) - Me.CBDaily.TabIndex = 156 - Me.CBDaily.Text = "Daily" - Me.CBDaily.UseVisualStyleBackColor = True - ' - 'CBTrivia - ' - Me.CBTrivia.AutoSize = True - Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia - Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBTrivia.ForeColor = System.Drawing.Color.Black - Me.CBTrivia.Location = New System.Drawing.Point(79, 98) - Me.CBTrivia.Name = "CBTrivia" - Me.CBTrivia.Size = New System.Drawing.Size(52, 17) - Me.CBTrivia.TabIndex = 155 - Me.CBTrivia.Text = "Trivia" - Me.CBTrivia.UseVisualStyleBackColor = True - ' - 'TBGlitterShortName - ' - Me.TBGlitterShortName.BackColor = System.Drawing.Color.White - Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black - Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) - Me.TBGlitterShortName.Name = "TBGlitterShortName" - Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) - Me.TBGlitterShortName.TabIndex = 49 - Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN - Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'CBEgotist - ' - Me.CBEgotist.AutoSize = True - Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist - Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBEgotist.ForeColor = System.Drawing.Color.Black - Me.CBEgotist.Location = New System.Drawing.Point(9, 121) - Me.CBEgotist.Name = "CBEgotist" - Me.CBEgotist.Size = New System.Drawing.Size(58, 17) - Me.CBEgotist.TabIndex = 153 - Me.CBEgotist.Text = "Egotist" - Me.CBEgotist.UseVisualStyleBackColor = True - ' - 'CBTease - ' - Me.CBTease.AutoSize = True - Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease - Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBTease.ForeColor = System.Drawing.Color.Black - Me.CBTease.Location = New System.Drawing.Point(9, 98) - Me.CBTease.Name = "CBTease" - Me.CBTease.Size = New System.Drawing.Size(56, 17) - Me.CBTease.TabIndex = 152 - Me.CBTease.Text = "Tease" - Me.CBTease.UseVisualStyleBackColor = True - ' - 'GlitterAV - ' - Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV.Name = "GlitterAV" - Me.GlitterAV.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV.TabIndex = 149 - Me.GlitterAV.TabStop = False - ' - 'GBGlitter1 - ' - Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray - Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) - Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) - Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) - Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) - Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) - Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) - Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) - Me.GBGlitter1.Controls.Add(Me.CBGlitter1) - Me.GBGlitter1.Controls.Add(Me.TBGlitter1) - Me.GBGlitter1.Controls.Add(Me.GlitterAV1) - Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) - Me.GBGlitter1.Name = "GBGlitter1" - Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) - Me.GBGlitter1.TabIndex = 161 - Me.GBGlitter1.TabStop = False - Me.GBGlitter1.Text = "Contact 1" - ' - 'BtnContact1ImageDirClear - ' - Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) - Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" - Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnContact1ImageDirClear.TabIndex = 181 - Me.BtnContact1ImageDirClear.Text = "Clear" - Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = False - ' - 'BtnContact1ImageDir - ' - Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) - Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" - Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) - Me.BtnContact1ImageDir.TabIndex = 177 - Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" - Me.BtnContact1ImageDir.UseVisualStyleBackColor = False - ' - 'TbxContact1ImageDir - ' - Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) - Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) - Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" - Me.TbxContact1ImageDir.ReadOnly = True - Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) - Me.TbxContact1ImageDir.TabIndex = 176 - Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir - ' - 'BTNGlitter1 - ' - Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black - Me.BTNGlitter1.Location = New System.Drawing.Point(220, 23) - Me.BTNGlitter1.Name = "BTNGlitter1" - Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitter1.TabIndex = 175 - Me.BTNGlitter1.Text = "Choose Name Color" - Me.BTNGlitter1.UseVisualStyleBackColor = False - ' - 'LBLGlitterNC1 - ' - Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White - Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color - Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 57) - Me.LBLGlitterNC1.Name = "LBLGlitterNC1" - Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNC1.TabIndex = 166 - Me.LBLGlitterNC1.Text = "Preview" - Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider1 - ' - Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" - Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider1.TabIndex = 163 - Me.LBLGlitterSlider1.Text = "Response Frequency" - Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GlitterSlider1 - ' - Me.GlitterSlider1.AutoSize = False - Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider1.LargeChange = 1 - Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider1.Maximum = 9 - Me.GlitterSlider1.Minimum = 1 - Me.GlitterSlider1.Name = "GlitterSlider1" - Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider1.TabIndex = 161 - Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider - ' - 'CBGlitter1 - ' - Me.CBGlitter1.AutoSize = True - Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 - Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBGlitter1.ForeColor = System.Drawing.Color.Black - Me.CBGlitter1.Location = New System.Drawing.Point(79, 26) - Me.CBGlitter1.Name = "CBGlitter1" - Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) - Me.CBGlitter1.TabIndex = 151 - Me.CBGlitter1.Text = "Enable This Contact" - Me.CBGlitter1.UseVisualStyleBackColor = True - ' - 'TBGlitter1 - ' - Me.TBGlitter1.BackColor = System.Drawing.Color.White - Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitter1.ForeColor = System.Drawing.Color.Black - Me.TBGlitter1.Location = New System.Drawing.Point(79, 57) - Me.TBGlitter1.Name = "TBGlitter1" - Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) - Me.TBGlitter1.TabIndex = 49 - Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 - Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GlitterAV1 - ' - Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV1.Name = "GlitterAV1" - Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV1.TabIndex = 149 - Me.GlitterAV1.TabStop = False - ' - 'GBGlitter3 - ' - Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray - Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) - Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) - Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) - Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) - Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) - Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) - Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) - Me.GBGlitter3.Controls.Add(Me.CBGlitter3) - Me.GBGlitter3.Controls.Add(Me.TBGlitter3) - Me.GBGlitter3.Controls.Add(Me.GlitterAV3) - Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) - Me.GBGlitter3.Name = "GBGlitter3" - Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) - Me.GBGlitter3.TabIndex = 160 - Me.GBGlitter3.TabStop = False - Me.GBGlitter3.Text = "Contact 3" - ' - 'BtnContact3ImageDirClear - ' - Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) - Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" - Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnContact3ImageDirClear.TabIndex = 180 - Me.BtnContact3ImageDirClear.Text = "Clear" - Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = False - ' - 'BtnContact3ImageDir - ' - Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) - Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" - Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) - Me.BtnContact3ImageDir.TabIndex = 179 - Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" - Me.BtnContact3ImageDir.UseVisualStyleBackColor = False - ' - 'TbxContact3ImageDir - ' - Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) - Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) - Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" - Me.TbxContact3ImageDir.ReadOnly = True - Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) - Me.TbxContact3ImageDir.TabIndex = 178 - Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir - ' - 'BTNGlitter3 - ' - Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black - Me.BTNGlitter3.Location = New System.Drawing.Point(220, 23) - Me.BTNGlitter3.Name = "BTNGlitter3" - Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitter3.TabIndex = 175 - Me.BTNGlitter3.Text = "Choose Name Color" - Me.BTNGlitter3.UseVisualStyleBackColor = False - ' - 'LBLGlitterNC3 - ' - Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White - Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color - Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 57) - Me.LBLGlitterNC3.Name = "LBLGlitterNC3" - Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNC3.TabIndex = 166 - Me.LBLGlitterNC3.Text = "Preview" - Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider3 - ' - Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" - Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider3.TabIndex = 163 - Me.LBLGlitterSlider3.Text = "Response Frequency" - Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GlitterSlider3 - ' - Me.GlitterSlider3.AutoSize = False - Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider3.LargeChange = 1 - Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider3.Maximum = 9 - Me.GlitterSlider3.Minimum = 1 - Me.GlitterSlider3.Name = "GlitterSlider3" - Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider3.TabIndex = 161 - Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider - ' - 'CBGlitter3 - ' - Me.CBGlitter3.AutoSize = True - Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 - Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBGlitter3.ForeColor = System.Drawing.Color.Black - Me.CBGlitter3.Location = New System.Drawing.Point(79, 26) - Me.CBGlitter3.Name = "CBGlitter3" - Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) - Me.CBGlitter3.TabIndex = 151 - Me.CBGlitter3.Text = "Enable This Contact" - Me.CBGlitter3.UseVisualStyleBackColor = True - ' - 'TBGlitter3 - ' - Me.TBGlitter3.BackColor = System.Drawing.Color.White - Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitter3.ForeColor = System.Drawing.Color.Black - Me.TBGlitter3.Location = New System.Drawing.Point(79, 57) - Me.TBGlitter3.Name = "TBGlitter3" - Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) - Me.TBGlitter3.TabIndex = 49 - Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 - Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GlitterAV3 - ' - Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV3.Name = "GlitterAV3" - Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV3.TabIndex = 149 - Me.GlitterAV3.TabStop = False - ' - 'GBGlitter2 - ' - Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray - Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) - Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) - Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) - Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) - Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) - Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) - Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) - Me.GBGlitter2.Controls.Add(Me.CBGlitter2) - Me.GBGlitter2.Controls.Add(Me.TBGlitter2) - Me.GBGlitter2.Controls.Add(Me.GlitterAV2) - Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) - Me.GBGlitter2.Name = "GBGlitter2" - Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) - Me.GBGlitter2.TabIndex = 151 - Me.GBGlitter2.TabStop = False - Me.GBGlitter2.Text = "Contact 2" - ' - 'BtnContact2ImageDirClear - ' - Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) - Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" - Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnContact2ImageDirClear.TabIndex = 181 - Me.BtnContact2ImageDirClear.Text = "Clear" - Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = False - ' - 'BtnContact2ImageDir - ' - Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) - Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" - Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) - Me.BtnContact2ImageDir.TabIndex = 179 - Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" - Me.BtnContact2ImageDir.UseVisualStyleBackColor = False - ' - 'TbxContact2ImageDir - ' - Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) - Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) - Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" - Me.TbxContact2ImageDir.ReadOnly = True - Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) - Me.TbxContact2ImageDir.TabIndex = 178 - Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir - ' - 'BTNGlitter2 - ' - Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black - Me.BTNGlitter2.Location = New System.Drawing.Point(220, 23) - Me.BTNGlitter2.Name = "BTNGlitter2" - Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitter2.TabIndex = 167 - Me.BTNGlitter2.Text = "Choose Name Color" - Me.BTNGlitter2.UseVisualStyleBackColor = False - ' - 'LBLGlitterNC2 - ' - Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White - Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color - Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 57) - Me.LBLGlitterNC2.Name = "LBLGlitterNC2" - Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNC2.TabIndex = 166 - Me.LBLGlitterNC2.Text = "Preview" - Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider2 - ' - Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" - Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider2.TabIndex = 163 - Me.LBLGlitterSlider2.Text = "Response Frequency" - Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GlitterSlider2 - ' - Me.GlitterSlider2.AutoSize = False - Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider2.LargeChange = 1 - Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider2.Maximum = 9 - Me.GlitterSlider2.Minimum = 1 - Me.GlitterSlider2.Name = "GlitterSlider2" - Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider2.TabIndex = 161 - Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider - ' - 'CBGlitter2 - ' - Me.CBGlitter2.AutoSize = True - Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 - Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBGlitter2.ForeColor = System.Drawing.Color.Black - Me.CBGlitter2.Location = New System.Drawing.Point(79, 26) - Me.CBGlitter2.Name = "CBGlitter2" - Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) - Me.CBGlitter2.TabIndex = 151 - Me.CBGlitter2.Text = "Enable This Contact" - Me.CBGlitter2.UseVisualStyleBackColor = True - ' - 'TBGlitter2 - ' - Me.TBGlitter2.BackColor = System.Drawing.Color.White - Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitter2.ForeColor = System.Drawing.Color.Black - Me.TBGlitter2.Location = New System.Drawing.Point(79, 57) - Me.TBGlitter2.Name = "TBGlitter2" - Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) - Me.TBGlitter2.TabIndex = 49 - Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 - Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GlitterAV2 - ' - Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV2.Name = "GlitterAV2" - Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV2.TabIndex = 149 - Me.GlitterAV2.TabStop = False - ' - 'TpGames - ' - Me.TpGames.BackColor = System.Drawing.Color.LightGray - Me.TpGames.Controls.Add(Me.CBIncludeGifs) - Me.TpGames.Controls.Add(Me.LblCardsSetupNote) - Me.TpGames.Controls.Add(Me.CBGameSounds) - Me.TpGames.Controls.Add(Me.GbxCardsGold) - Me.TpGames.Controls.Add(Me.GbxCardsBackground) - Me.TpGames.Controls.Add(Me.GbxCardsBronze) - Me.TpGames.Controls.Add(Me.GbxCardsSilver) - Me.TpGames.Location = New System.Drawing.Point(4, 22) - Me.TpGames.Name = "TpGames" - Me.TpGames.Padding = New System.Windows.Forms.Padding(3) - Me.TpGames.Size = New System.Drawing.Size(700, 411) - Me.TpGames.TabIndex = 1 - Me.TpGames.Text = "Games" - ' - 'CBIncludeGifs - ' - Me.CBIncludeGifs.AutoSize = True - Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs - Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) - Me.CBIncludeGifs.Name = "CBIncludeGifs" - Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) - Me.CBIncludeGifs.TabIndex = 5 - Me.CBIncludeGifs.Text = "Match Game Includes Gifs " - Me.CBIncludeGifs.UseVisualStyleBackColor = True - ' - 'LblCardsSetupNote - ' - Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) - Me.LblCardsSetupNote.Name = "LblCardsSetupNote" - Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) - Me.LblCardsSetupNote.TabIndex = 4 - Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected" & - "!" - Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBGameSounds - ' - Me.CBGameSounds.AutoSize = True - Me.CBGameSounds.Checked = True - Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBGameSounds.ForeColor = System.Drawing.Color.Black - Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) - Me.CBGameSounds.Name = "CBGameSounds" - Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) - Me.CBGameSounds.TabIndex = 6 - Me.CBGameSounds.Text = "Play Game Sounds" - Me.CBGameSounds.UseVisualStyleBackColor = True - ' - 'GbxCardsGold - ' - Me.GbxCardsGold.Controls.Add(Me.GN6) - Me.GbxCardsGold.Controls.Add(Me.GP6) - Me.GbxCardsGold.Controls.Add(Me.GN2) - Me.GbxCardsGold.Controls.Add(Me.GP2) - Me.GbxCardsGold.Controls.Add(Me.GP5) - Me.GbxCardsGold.Controls.Add(Me.GN1) - Me.GbxCardsGold.Controls.Add(Me.GP1) - Me.GbxCardsGold.Controls.Add(Me.GN5) - Me.GbxCardsGold.Controls.Add(Me.GN3) - Me.GbxCardsGold.Controls.Add(Me.GP3) - Me.GbxCardsGold.Controls.Add(Me.GP4) - Me.GbxCardsGold.Controls.Add(Me.GN4) - Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) - Me.GbxCardsGold.Name = "GbxCardsGold" - Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) - Me.GbxCardsGold.TabIndex = 2 - Me.GbxCardsGold.TabStop = False - Me.GbxCardsGold.Text = "Gold Cards" - ' - 'GN6 - ' - Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN6.Location = New System.Drawing.Point(86, 367) - Me.GN6.Name = "GN6" - Me.GN6.Size = New System.Drawing.Size(71, 20) - Me.GN6.TabIndex = 5 - Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 - Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP6 - ' - Me.GP6.BackColor = System.Drawing.Color.Silver - Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 - Me.GP6.InitialImage = Nothing - Me.GP6.Location = New System.Drawing.Point(86, 268) - Me.GP6.Name = "GP6" - Me.GP6.Size = New System.Drawing.Size(71, 93) - Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP6.TabIndex = 17 - Me.GP6.TabStop = False - ' - 'GN2 - ' - Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN2.Location = New System.Drawing.Point(86, 117) - Me.GN2.Name = "GN2" - Me.GN2.Size = New System.Drawing.Size(71, 20) - Me.GN2.TabIndex = 1 - Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 - Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP2 - ' - Me.GP2.BackColor = System.Drawing.Color.Silver - Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 - Me.GP2.InitialImage = Nothing - Me.GP2.Location = New System.Drawing.Point(86, 17) - Me.GP2.Name = "GP2" - Me.GP2.Size = New System.Drawing.Size(71, 94) - Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP2.TabIndex = 9 - Me.GP2.TabStop = False - ' - 'GP5 - ' - Me.GP5.BackColor = System.Drawing.Color.Silver - Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 - Me.GP5.InitialImage = Nothing - Me.GP5.Location = New System.Drawing.Point(9, 268) - Me.GP5.Name = "GP5" - Me.GP5.Size = New System.Drawing.Size(71, 93) - Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP5.TabIndex = 15 - Me.GP5.TabStop = False - ' - 'GN1 - ' - Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN1.Location = New System.Drawing.Point(9, 117) - Me.GN1.Name = "GN1" - Me.GN1.Size = New System.Drawing.Size(71, 20) - Me.GN1.TabIndex = 0 - Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 - Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP1 - ' - Me.GP1.BackColor = System.Drawing.Color.Silver - Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 - Me.GP1.InitialImage = Nothing - Me.GP1.Location = New System.Drawing.Point(9, 17) - Me.GP1.Name = "GP1" - Me.GP1.Size = New System.Drawing.Size(71, 94) - Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP1.TabIndex = 0 - Me.GP1.TabStop = False - ' - 'GN5 - ' - Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN5.Location = New System.Drawing.Point(9, 367) - Me.GN5.Name = "GN5" - Me.GN5.Size = New System.Drawing.Size(71, 20) - Me.GN5.TabIndex = 4 - Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 - Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GN3 - ' - Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN3.Location = New System.Drawing.Point(9, 242) - Me.GN3.Name = "GN3" - Me.GN3.Size = New System.Drawing.Size(71, 20) - Me.GN3.TabIndex = 2 - Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 - Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP3 - ' - Me.GP3.BackColor = System.Drawing.Color.Silver - Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 - Me.GP3.InitialImage = Nothing - Me.GP3.Location = New System.Drawing.Point(9, 143) - Me.GP3.Name = "GP3" - Me.GP3.Size = New System.Drawing.Size(71, 93) - Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP3.TabIndex = 11 - Me.GP3.TabStop = False - ' - 'GP4 - ' - Me.GP4.BackColor = System.Drawing.Color.Silver - Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 - Me.GP4.InitialImage = Nothing - Me.GP4.Location = New System.Drawing.Point(86, 143) - Me.GP4.Name = "GP4" - Me.GP4.Size = New System.Drawing.Size(71, 93) - Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP4.TabIndex = 13 - Me.GP4.TabStop = False - ' - 'GN4 - ' - Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN4.Location = New System.Drawing.Point(86, 242) - Me.GN4.Name = "GN4" - Me.GN4.Size = New System.Drawing.Size(71, 20) - Me.GN4.TabIndex = 3 - Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 - Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GbxCardsBackground - ' - Me.GbxCardsBackground.Controls.Add(Me.CardBack) - Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) - Me.GbxCardsBackground.Name = "GbxCardsBackground" - Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) - Me.GbxCardsBackground.TabIndex = 3 - Me.GbxCardsBackground.TabStop = False - Me.GbxCardsBackground.Text = "Card Background" - ' - 'CardBack - ' - Me.CardBack.BackColor = System.Drawing.Color.Silver - Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack - Me.CardBack.InitialImage = Nothing - Me.CardBack.Location = New System.Drawing.Point(17, 28) - Me.CardBack.Name = "CardBack" - Me.CardBack.Size = New System.Drawing.Size(138, 179) - Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.CardBack.TabIndex = 18 - Me.CardBack.TabStop = False - ' - 'GbxCardsBronze - ' - Me.GbxCardsBronze.Controls.Add(Me.BN6) - Me.GbxCardsBronze.Controls.Add(Me.BN3) - Me.GbxCardsBronze.Controls.Add(Me.BP3) - Me.GbxCardsBronze.Controls.Add(Me.BP6) - Me.GbxCardsBronze.Controls.Add(Me.BN2) - Me.GbxCardsBronze.Controls.Add(Me.BN5) - Me.GbxCardsBronze.Controls.Add(Me.BP5) - Me.GbxCardsBronze.Controls.Add(Me.BP2) - Me.GbxCardsBronze.Controls.Add(Me.BN1) - Me.GbxCardsBronze.Controls.Add(Me.BN4) - Me.GbxCardsBronze.Controls.Add(Me.BP4) - Me.GbxCardsBronze.Controls.Add(Me.BP1) - Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) - Me.GbxCardsBronze.Name = "GbxCardsBronze" - Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) - Me.GbxCardsBronze.TabIndex = 0 - Me.GbxCardsBronze.TabStop = False - Me.GbxCardsBronze.Text = "Bronze Cards" - ' - 'BN6 - ' - Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN6.Location = New System.Drawing.Point(86, 368) - Me.BN6.Name = "BN6" - Me.BN6.Size = New System.Drawing.Size(71, 20) - Me.BN6.TabIndex = 5 - Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 - Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BN3 - ' - Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN3.Location = New System.Drawing.Point(9, 243) - Me.BN3.Name = "BN3" - Me.BN3.Size = New System.Drawing.Size(71, 20) - Me.BN3.TabIndex = 2 - Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 - Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BP3 - ' - Me.BP3.BackColor = System.Drawing.Color.Silver - Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 - Me.BP3.InitialImage = Nothing - Me.BP3.Location = New System.Drawing.Point(9, 144) - Me.BP3.Name = "BP3" - Me.BP3.Size = New System.Drawing.Size(71, 93) - Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP3.TabIndex = 11 - Me.BP3.TabStop = False - ' - 'BP6 - ' - Me.BP6.BackColor = System.Drawing.Color.Silver - Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 - Me.BP6.InitialImage = Nothing - Me.BP6.Location = New System.Drawing.Point(86, 269) - Me.BP6.Name = "BP6" - Me.BP6.Size = New System.Drawing.Size(71, 93) - Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP6.TabIndex = 17 - Me.BP6.TabStop = False - ' - 'BN2 - ' - Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN2.Location = New System.Drawing.Point(86, 118) - Me.BN2.Name = "BN2" - Me.BN2.Size = New System.Drawing.Size(71, 20) - Me.BN2.TabIndex = 1 - Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 - Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BN5 - ' - Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN5.Location = New System.Drawing.Point(9, 368) - Me.BN5.Name = "BN5" - Me.BN5.Size = New System.Drawing.Size(71, 20) - Me.BN5.TabIndex = 4 - Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 - Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BP5 - ' - Me.BP5.BackColor = System.Drawing.Color.Silver - Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 - Me.BP5.InitialImage = Nothing - Me.BP5.Location = New System.Drawing.Point(9, 269) - Me.BP5.Name = "BP5" - Me.BP5.Size = New System.Drawing.Size(71, 93) - Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP5.TabIndex = 15 - Me.BP5.TabStop = False - ' - 'BP2 - ' - Me.BP2.BackColor = System.Drawing.Color.Silver - Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 - Me.BP2.InitialImage = Nothing - Me.BP2.Location = New System.Drawing.Point(86, 19) - Me.BP2.Name = "BP2" - Me.BP2.Size = New System.Drawing.Size(71, 93) - Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP2.TabIndex = 9 - Me.BP2.TabStop = False - ' - 'BN1 - ' - Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN1.Location = New System.Drawing.Point(9, 118) - Me.BN1.Name = "BN1" - Me.BN1.Size = New System.Drawing.Size(71, 20) - Me.BN1.TabIndex = 0 - Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 - Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BN4 - ' - Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN4.Location = New System.Drawing.Point(86, 243) - Me.BN4.Name = "BN4" - Me.BN4.Size = New System.Drawing.Size(71, 20) - Me.BN4.TabIndex = 3 - Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 - Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BP4 - ' - Me.BP4.BackColor = System.Drawing.Color.Silver - Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 - Me.BP4.InitialImage = Nothing - Me.BP4.Location = New System.Drawing.Point(86, 144) - Me.BP4.Name = "BP4" - Me.BP4.Size = New System.Drawing.Size(71, 93) - Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP4.TabIndex = 13 - Me.BP4.TabStop = False - ' - 'BP1 - ' - Me.BP1.BackColor = System.Drawing.Color.Silver - Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", True)) - Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 - Me.BP1.InitialImage = Nothing - Me.BP1.Location = New System.Drawing.Point(9, 19) - Me.BP1.Name = "BP1" - Me.BP1.Size = New System.Drawing.Size(71, 93) - Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP1.TabIndex = 0 - Me.BP1.TabStop = False - Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 - ' - 'GbxCardsSilver - ' - Me.GbxCardsSilver.Controls.Add(Me.SN6) - Me.GbxCardsSilver.Controls.Add(Me.SP6) - Me.GbxCardsSilver.Controls.Add(Me.SN2) - Me.GbxCardsSilver.Controls.Add(Me.SP2) - Me.GbxCardsSilver.Controls.Add(Me.SN1) - Me.GbxCardsSilver.Controls.Add(Me.SP5) - Me.GbxCardsSilver.Controls.Add(Me.SP1) - Me.GbxCardsSilver.Controls.Add(Me.SN5) - Me.GbxCardsSilver.Controls.Add(Me.SN3) - Me.GbxCardsSilver.Controls.Add(Me.SN4) - Me.GbxCardsSilver.Controls.Add(Me.SP3) - Me.GbxCardsSilver.Controls.Add(Me.SP4) - Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) - Me.GbxCardsSilver.Name = "GbxCardsSilver" - Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) - Me.GbxCardsSilver.TabIndex = 1 - Me.GbxCardsSilver.TabStop = False - Me.GbxCardsSilver.Text = "Silver Cards" - ' - 'SN6 - ' - Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN6.Location = New System.Drawing.Point(86, 368) - Me.SN6.Name = "SN6" - Me.SN6.Size = New System.Drawing.Size(71, 20) - Me.SN6.TabIndex = 5 - Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 - Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP6 - ' - Me.SP6.BackColor = System.Drawing.Color.Silver - Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 - Me.SP6.InitialImage = Nothing - Me.SP6.Location = New System.Drawing.Point(86, 269) - Me.SP6.Name = "SP6" - Me.SP6.Size = New System.Drawing.Size(71, 93) - Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP6.TabIndex = 17 - Me.SP6.TabStop = False - ' - 'SN2 - ' - Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN2.Location = New System.Drawing.Point(86, 118) - Me.SN2.Name = "SN2" - Me.SN2.Size = New System.Drawing.Size(71, 20) - Me.SN2.TabIndex = 1 - Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 - Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP2 - ' - Me.SP2.BackColor = System.Drawing.Color.Silver - Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 - Me.SP2.InitialImage = Nothing - Me.SP2.Location = New System.Drawing.Point(86, 19) - Me.SP2.Name = "SP2" - Me.SP2.Size = New System.Drawing.Size(71, 93) - Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP2.TabIndex = 9 - Me.SP2.TabStop = False - ' - 'SN1 - ' - Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN1.Location = New System.Drawing.Point(9, 118) - Me.SN1.Name = "SN1" - Me.SN1.Size = New System.Drawing.Size(71, 20) - Me.SN1.TabIndex = 0 - Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 - Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP5 - ' - Me.SP5.BackColor = System.Drawing.Color.Silver - Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 - Me.SP5.InitialImage = Nothing - Me.SP5.Location = New System.Drawing.Point(9, 269) - Me.SP5.Name = "SP5" - Me.SP5.Size = New System.Drawing.Size(71, 93) - Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP5.TabIndex = 15 - Me.SP5.TabStop = False - ' - 'SP1 - ' - Me.SP1.BackColor = System.Drawing.Color.Silver - Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 - Me.SP1.InitialImage = Nothing - Me.SP1.Location = New System.Drawing.Point(9, 19) - Me.SP1.Name = "SP1" - Me.SP1.Size = New System.Drawing.Size(71, 93) - Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP1.TabIndex = 0 - Me.SP1.TabStop = False - ' - 'SN5 - ' - Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN5.Location = New System.Drawing.Point(9, 368) - Me.SN5.Name = "SN5" - Me.SN5.Size = New System.Drawing.Size(71, 20) - Me.SN5.TabIndex = 4 - Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 - Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SN3 - ' - Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN3.Location = New System.Drawing.Point(9, 243) - Me.SN3.Name = "SN3" - Me.SN3.Size = New System.Drawing.Size(71, 20) - Me.SN3.TabIndex = 2 - Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 - Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SN4 - ' - Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN4.Location = New System.Drawing.Point(86, 243) - Me.SN4.Name = "SN4" - Me.SN4.Size = New System.Drawing.Size(71, 20) - Me.SN4.TabIndex = 3 - Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 - Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP3 - ' - Me.SP3.BackColor = System.Drawing.Color.Silver - Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 - Me.SP3.InitialImage = Nothing - Me.SP3.Location = New System.Drawing.Point(9, 144) - Me.SP3.Name = "SP3" - Me.SP3.Size = New System.Drawing.Size(71, 93) - Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP3.TabIndex = 11 - Me.SP3.TabStop = False - ' - 'SP4 - ' - Me.SP4.BackColor = System.Drawing.Color.Silver - Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 - Me.SP4.InitialImage = Nothing - Me.SP4.Location = New System.Drawing.Point(86, 144) - Me.SP4.Name = "SP4" - Me.SP4.Size = New System.Drawing.Size(71, 93) - Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP4.TabIndex = 13 - Me.SP4.TabStop = False - ' - 'TabPage6 - ' - Me.TabPage6.BackColor = System.Drawing.Color.LightGray - Me.TabPage6.Controls.Add(Me.Panel10) - Me.TabPage6.Controls.Add(Me.Label107) - Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) - Me.TabPage6.Controls.Add(Me.Label18) - Me.TabPage6.Controls.Add(Me.PNLWishList) - Me.TabPage6.Location = New System.Drawing.Point(4, 22) - Me.TabPage6.Name = "TabPage6" - Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage6.Size = New System.Drawing.Size(700, 411) - Me.TabPage6.TabIndex = 2 - Me.TabPage6.Text = "Wishlist" - ' - 'Panel10 - ' - Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel10.Controls.Add(Me.TBWishlistComment) - Me.Panel10.Controls.Add(Me.Label32) - Me.Panel10.Controls.Add(Me.TBWishlistItem) - Me.Panel10.Controls.Add(Me.radioGold) - Me.Panel10.Controls.Add(Me.Label42) - Me.Panel10.Controls.Add(Me.radioSilver) - Me.Panel10.Controls.Add(Me.TBWishlistURL) - Me.Panel10.Controls.Add(Me.NBWishlistCost) - Me.Panel10.Controls.Add(Me.Label48) - Me.Panel10.Controls.Add(Me.Label73) - Me.Panel10.Location = New System.Drawing.Point(38, 47) - Me.Panel10.Name = "Panel10" - Me.Panel10.Size = New System.Drawing.Size(252, 308) - Me.Panel10.TabIndex = 179 - ' - 'TBWishlistComment - ' - Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) - Me.TBWishlistComment.Multiline = True - Me.TBWishlistComment.Name = "TBWishlistComment" - Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) - Me.TBWishlistComment.TabIndex = 172 - ' - 'Label32 - ' - Me.Label32.AutoSize = True - Me.Label32.Location = New System.Drawing.Point(13, 4) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(58, 13) - Me.Label32.TabIndex = 167 - Me.Label32.Text = "Item Name" - ' - 'TBWishlistItem - ' - Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) - Me.TBWishlistItem.Name = "TBWishlistItem" - Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) - Me.TBWishlistItem.TabIndex = 168 - ' - 'radioGold - ' - Me.radioGold.AutoSize = True - Me.radioGold.Location = New System.Drawing.Point(167, 125) - Me.radioGold.Name = "radioGold" - Me.radioGold.Size = New System.Drawing.Size(47, 17) - Me.radioGold.TabIndex = 176 - Me.radioGold.Text = "Gold" - Me.radioGold.UseVisualStyleBackColor = True - ' - 'Label42 - ' - Me.Label42.AutoSize = True - Me.Label42.Location = New System.Drawing.Point(13, 56) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(75, 13) - Me.Label42.TabIndex = 169 - Me.Label42.Text = "Item Image Url" - ' - 'radioSilver - ' - Me.radioSilver.AutoSize = True - Me.radioSilver.Checked = True - Me.radioSilver.Location = New System.Drawing.Point(100, 125) - Me.radioSilver.Name = "radioSilver" - Me.radioSilver.Size = New System.Drawing.Size(51, 17) - Me.radioSilver.TabIndex = 175 - Me.radioSilver.TabStop = True - Me.radioSilver.Text = "Silver" - Me.radioSilver.UseVisualStyleBackColor = True - ' - 'TBWishlistURL - ' - Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) - Me.TBWishlistURL.Name = "TBWishlistURL" - Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) - Me.TBWishlistURL.TabIndex = 170 - ' - 'NBWishlistCost - ' - Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) - Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBWishlistCost.Name = "NBWishlistCost" - Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) - Me.NBWishlistCost.TabIndex = 174 - Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) - ' - 'Label48 - ' - Me.Label48.AutoSize = True - Me.Label48.Location = New System.Drawing.Point(13, 157) - Me.Label48.Name = "Label48" - Me.Label48.Size = New System.Drawing.Size(74, 13) - Me.Label48.TabIndex = 171 - Me.Label48.Text = "Item Comment" - ' - 'Label73 - ' - Me.Label73.AutoSize = True - Me.Label73.Location = New System.Drawing.Point(13, 108) - Me.Label73.Name = "Label73" - Me.Label73.Size = New System.Drawing.Size(51, 13) - Me.Label73.TabIndex = 173 - Me.Label73.Text = "Item Cost" - ' - 'Label107 - ' - Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label107.Location = New System.Drawing.Point(38, 5) - Me.Label107.Name = "Label107" - Me.Label107.Size = New System.Drawing.Size(252, 47) - Me.Label107.TabIndex = 178 - Me.Label107.Text = "Use this page to create Wishlist files." - Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNWishlistCreate - ' - Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) - Me.BTNWishlistCreate.Name = "BTNWishlistCreate" - Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) - Me.BTNWishlistCreate.TabIndex = 177 - Me.BTNWishlistCreate.Text = "Create Wishlist File" - Me.BTNWishlistCreate.UseVisualStyleBackColor = True - ' - 'Label18 - ' - Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label18.Location = New System.Drawing.Point(409, 5) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(250, 23) - Me.Label18.TabIndex = 166 - Me.Label18.Text = "Preview" - Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'PNLWishList - ' - Me.PNLWishList.BackColor = System.Drawing.Color.White - Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) - Me.PNLWishList.Controls.Add(Me.LBLWishListText) - Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) - Me.PNLWishList.Controls.Add(Me.WishlistCostGold) - Me.PNLWishList.Controls.Add(Me.LBLWishListName) - Me.PNLWishList.Controls.Add(Me.WishlistPreview) - Me.PNLWishList.Location = New System.Drawing.Point(407, 31) - Me.PNLWishList.Name = "PNLWishList" - Me.PNLWishList.Size = New System.Drawing.Size(250, 367) - Me.PNLWishList.TabIndex = 165 - ' - 'WishlistCostSilver - ' - Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent - Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"), System.Drawing.Image) - Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) - Me.WishlistCostSilver.Name = "WishlistCostSilver" - Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) - Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.WishlistCostSilver.TabIndex = 111 - Me.WishlistCostSilver.TabStop = False - ' - 'LBLWishListText - ' - Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) - Me.LBLWishListText.Name = "LBLWishListText" - Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) - Me.LBLWishListText.TabIndex = 108 - ' - 'LBLWishlistCost - ' - Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black - Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) - Me.LBLWishlistCost.Name = "LBLWishlistCost" - Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) - Me.LBLWishlistCost.TabIndex = 107 - Me.LBLWishlistCost.Text = "3" - Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'WishlistCostGold - ' - Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent - Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"), System.Drawing.Image) - Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) - Me.WishlistCostGold.Name = "WishlistCostGold" - Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) - Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.WishlistCostGold.TabIndex = 106 - Me.WishlistCostGold.TabStop = False - Me.WishlistCostGold.Visible = False - ' - 'LBLWishListName - ' - Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue - Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) - Me.LBLWishListName.Name = "LBLWishListName" - Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) - Me.LBLWishListName.TabIndex = 104 - Me.LBLWishListName.Text = "Item Name Goes Here" - Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'WishlistPreview - ' - Me.WishlistPreview.ImageLocation = "" - Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) - Me.WishlistPreview.Name = "WishlistPreview" - Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) - Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.WishlistPreview.TabIndex = 101 - Me.WishlistPreview.TabStop = False - ' - 'TabPage26 - ' - Me.TabPage26.BackColor = System.Drawing.Color.Silver - Me.TabPage26.Controls.Add(Me.Panel12) - Me.TabPage26.Location = New System.Drawing.Point(4, 22) - Me.TabPage26.Name = "TabPage26" - Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage26.Size = New System.Drawing.Size(720, 448) - Me.TabPage26.TabIndex = 19 - Me.TabPage26.Text = "Themes" - ' - 'Panel12 - ' - Me.Panel12.BackColor = System.Drawing.Color.LightGray - Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel12.Controls.Add(Me.GroupBox9) - Me.Panel12.Controls.Add(Me.PictureBox10) - Me.Panel12.Controls.Add(Me.GroupBox5) - Me.Panel12.Controls.Add(Me.GroupBox11) - Me.Panel12.Controls.Add(Me.GroupBox1) - Me.Panel12.Controls.Add(Me.Label164) - Me.Panel12.Location = New System.Drawing.Point(6, 6) - Me.Panel12.Name = "Panel12" - Me.Panel12.Size = New System.Drawing.Size(708, 437) - Me.Panel12.TabIndex = 93 - ' - 'GroupBox9 - ' - Me.GroupBox9.Controls.Add(Me.Button32) - Me.GroupBox9.Controls.Add(Me.Button31) - Me.GroupBox9.Location = New System.Drawing.Point(351, 231) - Me.GroupBox9.Name = "GroupBox9" - Me.GroupBox9.Size = New System.Drawing.Size(348, 94) - Me.GroupBox9.TabIndex = 152 - Me.GroupBox9.TabStop = False - Me.GroupBox9.Text = "System" - ' - 'Button32 - ' - Me.Button32.BackColor = System.Drawing.Color.Transparent - Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big - Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button32.Location = New System.Drawing.Point(196, 24) - Me.Button32.Name = "Button32" - Me.Button32.Size = New System.Drawing.Size(135, 55) - Me.Button32.TabIndex = 55 - Me.Button32.Text = " Save Theme" - Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText - Me.Button32.UseVisualStyleBackColor = False - ' - 'Button31 - ' - Me.Button31.BackColor = System.Drawing.Color.Transparent - Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big - Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button31.Location = New System.Drawing.Point(17, 24) - Me.Button31.Name = "Button31" - Me.Button31.Size = New System.Drawing.Size(135, 55) - Me.Button31.TabIndex = 54 - Me.Button31.Text = " Open Theme" - Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText - Me.Button31.UseVisualStyleBackColor = False - ' - 'PictureBox10 - ' - Me.PictureBox10.BackColor = System.Drawing.Color.LightGray - Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox10.Location = New System.Drawing.Point(9, 6) - Me.PictureBox10.Name = "PictureBox10" - Me.PictureBox10.Size = New System.Drawing.Size(160, 19) - Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox10.TabIndex = 151 - Me.PictureBox10.TabStop = False - ' - 'GroupBox5 - ' - Me.GroupBox5.Controls.Add(Me.CBTransparentTime) - Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) - Me.GroupBox5.Controls.Add(Me.Label137) - Me.GroupBox5.Controls.Add(Me.Label138) - Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) - Me.GroupBox5.Controls.Add(Me.LBLTextColor) - Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) - Me.GroupBox5.Controls.Add(Me.LBLTextColor2) - Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) - Me.GroupBox5.Controls.Add(Me.LBLBackColor2) - Me.GroupBox5.Controls.Add(Me.LBLButtonColor) - Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) - Me.GroupBox5.Controls.Add(Me.LBLBackColor) - Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) - Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) - Me.GroupBox5.Location = New System.Drawing.Point(9, 31) - Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(336, 294) - Me.GroupBox5.TabIndex = 58 - Me.GroupBox5.TabStop = False - Me.GroupBox5.Text = "UI Colors" - ' - 'CBTransparentTime - ' - Me.CBTransparentTime.AutoSize = True - Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) - Me.CBTransparentTime.Name = "CBTransparentTime" - Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) - Me.CBTransparentTime.TabIndex = 23 - Me.CBTransparentTime.Text = "Transparent Date/Time Window" - Me.CBTransparentTime.UseVisualStyleBackColor = True - ' - 'LBLDateTimeColor2 - ' - Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor - Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) - Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" - Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLDateTimeColor2.TabIndex = 19 - ' - 'Label137 - ' - Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label137.Location = New System.Drawing.Point(6, 227) - Me.Label137.Name = "Label137" - Me.Label137.Size = New System.Drawing.Size(175, 20) - Me.Label137.TabIndex = 20 - Me.Label137.Text = "Date/Time Window Color" - Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label138 - ' - Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label138.Location = New System.Drawing.Point(6, 193) - Me.Label138.Name = "Label138" - Me.Label138.Size = New System.Drawing.Size(175, 20) - Me.Label138.TabIndex = 17 - Me.Label138.Text = "Date/Time Text Color" - Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLDateBackColor2 - ' - Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor - Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) - Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLDateBackColor2.Name = "LBLDateBackColor2" - Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLDateBackColor2.TabIndex = 22 - ' - 'LBLTextColor - ' - Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) - Me.LBLTextColor.Name = "LBLTextColor" - Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) - Me.LBLTextColor.TabIndex = 7 - Me.LBLTextColor.Text = "Text Color" - Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLChatWindowColor2 - ' - Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor - Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) - Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" - Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLChatWindowColor2.TabIndex = 12 - ' - 'LBLTextColor2 - ' - Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) - Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLTextColor2.Name = "LBLTextColor2" - Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLTextColor2.TabIndex = 9 - ' - 'LBLChatTextColor - ' - Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) - Me.LBLChatTextColor.Name = "LBLChatTextColor" - Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) - Me.LBLChatTextColor.TabIndex = 14 - Me.LBLChatTextColor.Text = "Chat Text Color" - Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLBackColor2 - ' - Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor - Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) - Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLBackColor2.Name = "LBLBackColor2" - Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLBackColor2.TabIndex = 3 - ' - 'LBLButtonColor - ' - Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) - Me.LBLButtonColor.Name = "LBLButtonColor" - Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) - Me.LBLButtonColor.TabIndex = 4 - Me.LBLButtonColor.Text = "Button Color" - Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLChatWindowColor - ' - Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) - Me.LBLChatWindowColor.Name = "LBLChatWindowColor" - Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) - Me.LBLChatWindowColor.TabIndex = 10 - Me.LBLChatWindowColor.Text = "Chat Window Color" - Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLBackColor - ' - Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) - Me.LBLBackColor.Name = "LBLBackColor" - Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) - Me.LBLBackColor.TabIndex = 0 - Me.LBLBackColor.Text = "Background Color" - Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLChatTextColor2 - ' - Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor - Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) - Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLChatTextColor2.Name = "LBLChatTextColor2" - Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLChatTextColor2.TabIndex = 16 - ' - 'LBLButtonColor2 - ' - Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) - Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLButtonColor2.Name = "LBLButtonColor2" - Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLButtonColor2.TabIndex = 6 - ' - 'GroupBox11 - ' - Me.GroupBox11.BackColor = System.Drawing.Color.LightGray - Me.GroupBox11.Controls.Add(Me.Label144) - Me.GroupBox11.ForeColor = System.Drawing.Color.Black - Me.GroupBox11.Location = New System.Drawing.Point(7, 331) - Me.GroupBox11.Name = "GroupBox11" - Me.GroupBox11.Size = New System.Drawing.Size(692, 92) - Me.GroupBox11.TabIndex = 65 - Me.GroupBox11.TabStop = False - Me.GroupBox11.Text = "Description" - ' - 'Label144 - ' - Me.Label144.BackColor = System.Drawing.Color.Transparent - Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label144.ForeColor = System.Drawing.Color.Black - Me.Label144.Location = New System.Drawing.Point(6, 16) - Me.Label144.Name = "Label144" - Me.Label144.Size = New System.Drawing.Size(680, 73) - Me.Label144.TabIndex = 62 - Me.Label144.Text = "Use this page to create custom themes for Tease AI." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Themes can then be saved a" & - "nd opened from txt files." - Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.CBFlipBack) - Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) - Me.GroupBox1.Controls.Add(Me.Button17) - Me.GroupBox1.Controls.Add(Me.CBStretchBack) - Me.GroupBox1.Controls.Add(Me.Button18) - Me.GroupBox1.Location = New System.Drawing.Point(351, 30) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(348, 195) - Me.GroupBox1.TabIndex = 57 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Background" - ' - 'CBFlipBack - ' - Me.CBFlipBack.Enabled = False - Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) - Me.CBFlipBack.Name = "CBFlipBack" - Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) - Me.CBFlipBack.TabIndex = 4 - Me.CBFlipBack.Text = "Flip Background" - Me.CBFlipBack.UseVisualStyleBackColor = True - ' - 'PBBackgroundPreview - ' - Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) - Me.PBBackgroundPreview.Name = "PBBackgroundPreview" - Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) - Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PBBackgroundPreview.TabIndex = 0 - Me.PBBackgroundPreview.TabStop = False - ' - 'Button17 - ' - Me.Button17.BackColor = System.Drawing.Color.Transparent - Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load - Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button17.Location = New System.Drawing.Point(228, 36) - Me.Button17.Name = "Button17" - Me.Button17.Size = New System.Drawing.Size(103, 93) - Me.Button17.TabIndex = 1 - Me.Button17.UseVisualStyleBackColor = False - ' - 'CBStretchBack - ' - Me.CBStretchBack.Checked = True - Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) - Me.CBStretchBack.Name = "CBStretchBack" - Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) - Me.CBStretchBack.TabIndex = 2 - Me.CBStretchBack.Text = "Stretch Background" - Me.CBStretchBack.UseVisualStyleBackColor = True - ' - 'Button18 - ' - Me.Button18.Location = New System.Drawing.Point(228, 155) - Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(103, 31) - Me.Button18.TabIndex = 3 - Me.Button18.Text = "Clear" - Me.Button18.UseVisualStyleBackColor = True - ' - 'Label164 - ' - Me.Label164.BackColor = System.Drawing.Color.Transparent - Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label164.ForeColor = System.Drawing.Color.Black - Me.Label164.Location = New System.Drawing.Point(7, 6) - Me.Label164.Name = "Label164" - Me.Label164.Size = New System.Drawing.Size(692, 21) - Me.Label164.TabIndex = 49 - Me.Label164.Text = "Theme Settings" - Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage4 - ' - Me.TabPage4.BackColor = System.Drawing.Color.Silver - Me.TabPage4.Controls.Add(Me.Panel6) - Me.TabPage4.Location = New System.Drawing.Point(4, 22) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage4.Size = New System.Drawing.Size(720, 448) - Me.TabPage4.TabIndex = 3 - Me.TabPage4.Text = "Ranges" - ' - 'Panel6 - ' - Me.Panel6.BackColor = System.Drawing.Color.LightGray - Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel6.Controls.Add(Me.GroupBox69) - Me.Panel6.Controls.Add(Me.GroupBox68) - Me.Panel6.Controls.Add(Me.GroupBox67) - Me.Panel6.Controls.Add(Me.GroupBox10) - Me.Panel6.Controls.Add(Me.GroupBox57) - Me.Panel6.Controls.Add(Me.GBRangeRuinChance) - Me.Panel6.Controls.Add(Me.GroupBox17) - Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) - Me.Panel6.Controls.Add(Me.PictureBox8) - Me.Panel6.Controls.Add(Me.Label38) - Me.Panel6.Location = New System.Drawing.Point(6, 6) - Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(708, 437) - Me.Panel6.TabIndex = 91 - ' - 'GroupBox69 - ' - Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) - Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) - Me.GroupBox69.Controls.Add(Me.TimedWriting) - Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) - Me.GroupBox69.Location = New System.Drawing.Point(236, 344) - Me.GroupBox69.Name = "GroupBox69" - Me.GroupBox69.Size = New System.Drawing.Size(166, 83) - Me.GroupBox69.TabIndex = 173 - Me.GroupBox69.TabStop = False - Me.GroupBox69.Text = "Writing Tasks" - ' - 'TypesSpeedVal - ' - Me.TypesSpeedVal.AutoSize = True - Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) - Me.TypesSpeedVal.Name = "TypesSpeedVal" - Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) - Me.TypesSpeedVal.TabIndex = 0 - Me.TypesSpeedVal.Text = "10" - Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'TypeSpeedLabel - ' - Me.TypeSpeedLabel.AutoSize = True - Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) - Me.TypeSpeedLabel.Name = "TypeSpeedLabel" - Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) - Me.TypeSpeedLabel.TabIndex = 2 - Me.TypeSpeedLabel.Text = "Typing Speed:" - ' - 'TimedWriting - ' - Me.TimedWriting.AutoSize = True - Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting - Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TimedWriting.Location = New System.Drawing.Point(9, 19) - Me.TimedWriting.Name = "TimedWriting" - Me.TimedWriting.Size = New System.Drawing.Size(123, 17) - Me.TimedWriting.TabIndex = 1 - Me.TimedWriting.Text = "Timed Writing Tasks" - Me.TimedWriting.UseVisualStyleBackColor = True - ' - 'TypeSpeedSlider - ' - Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) - Me.TypeSpeedSlider.Maximum = 100 - Me.TypeSpeedSlider.Minimum = 33 - Me.TypeSpeedSlider.Name = "TypeSpeedSlider" - Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) - Me.TypeSpeedSlider.TabIndex = 3 - Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed - ' - 'GroupBox68 - ' - Me.GroupBox68.Controls.Add(Me.NBTasksMax) - Me.GroupBox68.Controls.Add(Me.NBTasksMin) - Me.GroupBox68.Controls.Add(Me.Label165) - Me.GroupBox68.Controls.Add(Me.Label166) - Me.GroupBox68.Location = New System.Drawing.Point(236, 287) - Me.GroupBox68.Name = "GroupBox68" - Me.GroupBox68.Size = New System.Drawing.Size(166, 51) - Me.GroupBox68.TabIndex = 172 - Me.GroupBox68.TabStop = False - Me.GroupBox68.Text = "Session Tasks" - ' - 'NBTasksMax - ' - Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) - Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) - Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBTasksMax.Name = "NBTasksMax" - Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) - Me.NBTasksMax.TabIndex = 187 - Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) - ' - 'NBTasksMin - ' - Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) - Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) - Me.NBTasksMin.Name = "NBTasksMin" - Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) - Me.NBTasksMin.TabIndex = 186 - Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label165 - ' - Me.Label165.BackColor = System.Drawing.Color.Transparent - Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label165.ForeColor = System.Drawing.Color.Black - Me.Label165.Location = New System.Drawing.Point(100, 20) - Me.Label165.Name = "Label165" - Me.Label165.Size = New System.Drawing.Size(10, 17) - Me.Label165.TabIndex = 185 - Me.Label165.Text = "-" - Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label166 - ' - Me.Label166.BackColor = System.Drawing.Color.Transparent - Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label166.ForeColor = System.Drawing.Color.Black - Me.Label166.Location = New System.Drawing.Point(6, 21) - Me.Label166.Name = "Label166" - Me.Label166.Size = New System.Drawing.Size(49, 17) - Me.Label166.TabIndex = 188 - Me.Label166.Text = "Amount:" - Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox67 - ' - Me.GroupBox67.Controls.Add(Me.Label161) - Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) - Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) - Me.GroupBox67.Controls.Add(Me.Label162) - Me.GroupBox67.Controls.Add(Me.Label163) - Me.GroupBox67.Controls.Add(Me.Label158) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) - Me.GroupBox67.Controls.Add(Me.Label159) - Me.GroupBox67.Controls.Add(Me.Label160) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) - Me.GroupBox67.Controls.Add(Me.Label119) - Me.GroupBox67.Controls.Add(Me.Label157) - Me.GroupBox67.Controls.Add(Me.Label151) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) - Me.GroupBox67.Controls.Add(Me.Label154) - Me.GroupBox67.Controls.Add(Me.Label155) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) - Me.GroupBox67.Controls.Add(Me.Label146) - Me.GroupBox67.Controls.Add(Me.Label149) - Me.GroupBox67.Location = New System.Drawing.Point(408, 288) - Me.GroupBox67.Name = "GroupBox67" - Me.GroupBox67.Size = New System.Drawing.Size(291, 139) - Me.GroupBox67.TabIndex = 171 - Me.GroupBox67.TabStop = False - Me.GroupBox67.Text = "Letter Tasks" - ' - 'Label161 - ' - Me.Label161.BackColor = System.Drawing.Color.Transparent - Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label161.ForeColor = System.Drawing.Color.Black - Me.Label161.Location = New System.Drawing.Point(233, 110) - Me.Label161.Name = "Label161" - Me.Label161.Size = New System.Drawing.Size(50, 17) - Me.Label161.TabIndex = 204 - Me.Label161.Text = "minutes" - Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskCBTTimeMax - ' - Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) - Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) - Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" - Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskCBTTimeMax.TabIndex = 203 - Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax - ' - 'NBTaskCBTTimeMin - ' - Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) - Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" - Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskCBTTimeMin.TabIndex = 202 - Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin - ' - 'Label162 - ' - Me.Label162.BackColor = System.Drawing.Color.Transparent - Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label162.ForeColor = System.Drawing.Color.Black - Me.Label162.Location = New System.Drawing.Point(167, 110) - Me.Label162.Name = "Label162" - Me.Label162.Size = New System.Drawing.Size(10, 17) - Me.Label162.TabIndex = 201 - Me.Label162.Text = "-" - Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label163 - ' - Me.Label163.BackColor = System.Drawing.Color.Transparent - Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label163.ForeColor = System.Drawing.Color.Black - Me.Label163.Location = New System.Drawing.Point(12, 111) - Me.Label163.Name = "Label163" - Me.Label163.Size = New System.Drawing.Size(151, 17) - Me.Label163.TabIndex = 200 - Me.Label163.Text = "CBT Time:" - Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label158 - ' - Me.Label158.BackColor = System.Drawing.Color.Transparent - Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label158.ForeColor = System.Drawing.Color.Black - Me.Label158.Location = New System.Drawing.Point(233, 87) - Me.Label158.Name = "Label158" - Me.Label158.Size = New System.Drawing.Size(50, 17) - Me.Label158.TabIndex = 199 - Me.Label158.Text = "minutes" - Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskEdgeHoldTimeMax - ' - Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) - Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" - Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 - Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax - ' - 'NBTaskEdgeHoldTimeMin - ' - Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) - Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" - Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 - Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin - ' - 'Label159 - ' - Me.Label159.BackColor = System.Drawing.Color.Transparent - Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label159.ForeColor = System.Drawing.Color.Black - Me.Label159.Location = New System.Drawing.Point(167, 87) - Me.Label159.Name = "Label159" - Me.Label159.Size = New System.Drawing.Size(10, 17) - Me.Label159.TabIndex = 196 - Me.Label159.Text = "-" - Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label160 - ' - Me.Label160.BackColor = System.Drawing.Color.Transparent - Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label160.ForeColor = System.Drawing.Color.Black - Me.Label160.Location = New System.Drawing.Point(12, 88) - Me.Label160.Name = "Label160" - Me.Label160.Size = New System.Drawing.Size(151, 17) - Me.Label160.TabIndex = 195 - Me.Label160.Text = "Edge Hold Time:" - Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskEdgesMax - ' - Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) - Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) - Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" - Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgesMax.TabIndex = 194 - Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax - ' - 'NBTaskEdgesMin - ' - Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) - Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" - Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgesMin.TabIndex = 193 - Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin - ' - 'Label119 - ' - Me.Label119.BackColor = System.Drawing.Color.Transparent - Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label119.ForeColor = System.Drawing.Color.Black - Me.Label119.Location = New System.Drawing.Point(167, 64) - Me.Label119.Name = "Label119" - Me.Label119.Size = New System.Drawing.Size(10, 17) - Me.Label119.TabIndex = 192 - Me.Label119.Text = "-" - Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label157 - ' - Me.Label157.BackColor = System.Drawing.Color.Transparent - Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label157.ForeColor = System.Drawing.Color.Black - Me.Label157.Location = New System.Drawing.Point(12, 65) - Me.Label157.Name = "Label157" - Me.Label157.Size = New System.Drawing.Size(151, 17) - Me.Label157.TabIndex = 191 - Me.Label157.Text = "Edges:" - Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label151 - ' - Me.Label151.BackColor = System.Drawing.Color.Transparent - Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label151.ForeColor = System.Drawing.Color.Black - Me.Label151.Location = New System.Drawing.Point(233, 41) - Me.Label151.Name = "Label151" - Me.Label151.Size = New System.Drawing.Size(50, 17) - Me.Label151.TabIndex = 190 - Me.Label151.Text = "minutes" - Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskStrokingTimeMax - ' - Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) - Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" - Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokingTimeMax.TabIndex = 189 - Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax - ' - 'NBTaskStrokingTimeMin - ' - Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) - Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" - Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokingTimeMin.TabIndex = 188 - Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin - ' - 'Label154 - ' - Me.Label154.BackColor = System.Drawing.Color.Transparent - Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label154.ForeColor = System.Drawing.Color.Black - Me.Label154.Location = New System.Drawing.Point(167, 41) - Me.Label154.Name = "Label154" - Me.Label154.Size = New System.Drawing.Size(10, 17) - Me.Label154.TabIndex = 187 - Me.Label154.Text = "-" - Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label155 - ' - Me.Label155.BackColor = System.Drawing.Color.Transparent - Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label155.ForeColor = System.Drawing.Color.Black - Me.Label155.Location = New System.Drawing.Point(12, 42) - Me.Label155.Name = "Label155" - Me.Label155.Size = New System.Drawing.Size(151, 17) - Me.Label155.TabIndex = 186 - Me.Label155.Text = "Stroking Time:" - Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskStrokesMax - ' - Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) - Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" - Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokesMax.TabIndex = 184 - Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax - ' - 'NBTaskStrokesMin - ' - Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) - Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" - Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokesMin.TabIndex = 183 - Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin - ' - 'Label146 - ' - Me.Label146.BackColor = System.Drawing.Color.Transparent - Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label146.ForeColor = System.Drawing.Color.Black - Me.Label146.Location = New System.Drawing.Point(167, 18) - Me.Label146.Name = "Label146" - Me.Label146.Size = New System.Drawing.Size(10, 17) - Me.Label146.TabIndex = 182 - Me.Label146.Text = "-" - Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label149 - ' - Me.Label149.BackColor = System.Drawing.Color.Transparent - Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label149.ForeColor = System.Drawing.Color.Black - Me.Label149.Location = New System.Drawing.Point(12, 19) - Me.Label149.Name = "Label149" - Me.Label149.Size = New System.Drawing.Size(151, 17) - Me.Label149.TabIndex = 181 - Me.Label149.Text = "Strokes:" - Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox10 - ' - Me.GroupBox10.Controls.Add(Me.Label112) - Me.GroupBox10.Controls.Add(Me.NBNextImageChance) - Me.GroupBox10.Controls.Add(Me.Label6) - Me.GroupBox10.Location = New System.Drawing.Point(408, 31) - Me.GroupBox10.Name = "GroupBox10" - Me.GroupBox10.Size = New System.Drawing.Size(291, 54) - Me.GroupBox10.TabIndex = 170 - Me.GroupBox10.TabStop = False - Me.GroupBox10.Text = "Tease Slideshow" - ' - 'Label112 - ' - Me.Label112.BackColor = System.Drawing.Color.Transparent - Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label112.ForeColor = System.Drawing.Color.Black - Me.Label112.Location = New System.Drawing.Point(233, 21) - Me.Label112.Name = "Label112" - Me.Label112.Size = New System.Drawing.Size(50, 17) - Me.Label112.TabIndex = 180 - Me.Label112.Text = "percent" - Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBNextImageChance - ' - Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) - Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBNextImageChance.Name = "NBNextImageChance" - Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) - Me.NBNextImageChance.TabIndex = 179 - Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label6 - ' - Me.Label6.BackColor = System.Drawing.Color.Transparent - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.ForeColor = System.Drawing.Color.Black - Me.Label6.Location = New System.Drawing.Point(9, 21) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(151, 17) - Me.Label6.TabIndex = 154 - Me.Label6.Text = "Image Next/Previous Chance:" - Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox57 - ' - Me.GroupBox57.Controls.Add(Me.Label139) - Me.GroupBox57.Controls.Add(Me.NBTauntEdging) - Me.GroupBox57.Controls.Add(Me.LBLVtf) - Me.GroupBox57.Controls.Add(Me.LBLStf) - Me.GroupBox57.Controls.Add(Me.SliderSTF) - Me.GroupBox57.Controls.Add(Me.TauntSlider) - Me.GroupBox57.Controls.Add(Me.Label106) - Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) - Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) - Me.GroupBox57.Controls.Add(Me.Label103) - Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) - Me.GroupBox57.Controls.Add(Me.Label105) - Me.GroupBox57.Controls.Add(Me.Label101) - Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) - Me.GroupBox57.Controls.Add(Me.Label102) - Me.GroupBox57.Controls.Add(Me.Label97) - Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) - Me.GroupBox57.Controls.Add(Me.Label99) - Me.GroupBox57.Controls.Add(Me.Label96) - Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) - Me.GroupBox57.Controls.Add(Me.Label95) - Me.GroupBox57.Controls.Add(Me.Label49) - Me.GroupBox57.Controls.Add(Me.Label141) - Me.GroupBox57.Location = New System.Drawing.Point(7, 30) - Me.GroupBox57.Name = "GroupBox57" - Me.GroupBox57.Size = New System.Drawing.Size(223, 308) - Me.GroupBox57.TabIndex = 169 - Me.GroupBox57.TabStop = False - Me.GroupBox57.Text = "Tease" - ' - 'Label139 - ' - Me.Label139.BackColor = System.Drawing.Color.Transparent - Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label139.ForeColor = System.Drawing.Color.Black - Me.Label139.Location = New System.Drawing.Point(175, 171) - Me.Label139.Name = "Label139" - Me.Label139.Size = New System.Drawing.Size(50, 17) - Me.Label139.TabIndex = 184 - Me.Label139.Text = "percent" - Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTauntEdging - ' - Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) - Me.NBTauntEdging.Name = "NBTauntEdging" - Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) - Me.NBTauntEdging.TabIndex = 188 - Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) - ' - 'LBLVtf - ' - Me.LBLVtf.BackColor = System.Drawing.Color.Transparent - Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLVtf.ForeColor = System.Drawing.Color.Black - Me.LBLVtf.Location = New System.Drawing.Point(128, 261) - Me.LBLVtf.Name = "LBLVtf" - Me.LBLVtf.Size = New System.Drawing.Size(87, 17) - Me.LBLVtf.TabIndex = 187 - Me.LBLVtf.Text = "Normal" - Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLStf - ' - Me.LBLStf.BackColor = System.Drawing.Color.Transparent - Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLStf.ForeColor = System.Drawing.Color.Black - Me.LBLStf.Location = New System.Drawing.Point(130, 220) - Me.LBLStf.Name = "LBLStf" - Me.LBLStf.Size = New System.Drawing.Size(87, 17) - Me.LBLStf.TabIndex = 165 - Me.LBLStf.Text = "Normal" - Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'SliderSTF - ' - Me.SliderSTF.AutoSize = False - Me.SliderSTF.LargeChange = 1 - Me.SliderSTF.Location = New System.Drawing.Point(130, 199) - Me.SliderSTF.Maximum = 5 - Me.SliderSTF.Minimum = 1 - Me.SliderSTF.Name = "SliderSTF" - Me.SliderSTF.Size = New System.Drawing.Size(87, 25) - Me.SliderSTF.TabIndex = 163 - Me.SliderSTF.Value = 3 - ' - 'TauntSlider - ' - Me.TauntSlider.AutoSize = False - Me.TauntSlider.LargeChange = 1 - Me.TauntSlider.Location = New System.Drawing.Point(130, 240) - Me.TauntSlider.Maximum = 9 - Me.TauntSlider.Minimum = 1 - Me.TauntSlider.Name = "TauntSlider" - Me.TauntSlider.Size = New System.Drawing.Size(87, 25) - Me.TauntSlider.TabIndex = 161 - Me.TauntSlider.Value = 4 - ' - 'Label106 - ' - Me.Label106.BackColor = System.Drawing.Color.Transparent - Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label106.ForeColor = System.Drawing.Color.Black - Me.Label106.Location = New System.Drawing.Point(6, 243) - Me.Label106.Name = "Label106" - Me.Label106.Size = New System.Drawing.Size(123, 17) - Me.Label106.TabIndex = 186 - Me.Label106.Text = "Video Taunt Frequency:" - Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBTauntCycleDD - ' - Me.CBTauntCycleDD.AutoSize = True - Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black - Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) - Me.CBTauntCycleDD.Name = "CBTauntCycleDD" - Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) - Me.CBTauntCycleDD.TabIndex = 185 - Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" - Me.CBTauntCycleDD.UseVisualStyleBackColor = True - ' - 'CBTeaseLengthDD - ' - Me.CBTeaseLengthDD.AutoSize = True - Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black - Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) - Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" - Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) - Me.CBTeaseLengthDD.TabIndex = 184 - Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" - Me.CBTeaseLengthDD.UseVisualStyleBackColor = True - ' - 'Label103 - ' - Me.Label103.BackColor = System.Drawing.Color.Transparent - Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label103.ForeColor = System.Drawing.Color.Black - Me.Label103.Location = New System.Drawing.Point(175, 117) - Me.Label103.Name = "Label103" - Me.Label103.Size = New System.Drawing.Size(50, 17) - Me.Label103.TabIndex = 183 - Me.Label103.Text = "minutes" - Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTauntCycleMax - ' - Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) - Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) - Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBTauntCycleMax.Name = "NBTauntCycleMax" - Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) - Me.NBTauntCycleMax.TabIndex = 182 - Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) - ' - 'Label105 - ' - Me.Label105.BackColor = System.Drawing.Color.Transparent - Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label105.ForeColor = System.Drawing.Color.Black - Me.Label105.Location = New System.Drawing.Point(6, 117) - Me.Label105.Name = "Label105" - Me.Label105.Size = New System.Drawing.Size(123, 17) - Me.Label105.TabIndex = 181 - Me.Label105.Text = "Taunt Cycle Maximum:" - Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label101 - ' - Me.Label101.BackColor = System.Drawing.Color.Transparent - Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label101.ForeColor = System.Drawing.Color.Black - Me.Label101.Location = New System.Drawing.Point(175, 93) - Me.Label101.Name = "Label101" - Me.Label101.Size = New System.Drawing.Size(50, 17) - Me.Label101.TabIndex = 180 - Me.Label101.Text = "minutes" - Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTauntCycleMin - ' - Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) - Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTauntCycleMin.Name = "NBTauntCycleMin" - Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) - Me.NBTauntCycleMin.TabIndex = 179 - Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) - ' - 'Label102 - ' - Me.Label102.BackColor = System.Drawing.Color.Transparent - Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label102.ForeColor = System.Drawing.Color.Black - Me.Label102.Location = New System.Drawing.Point(6, 93) - Me.Label102.Name = "Label102" - Me.Label102.Size = New System.Drawing.Size(123, 17) - Me.Label102.TabIndex = 178 - Me.Label102.Text = "Taunt Cycle Minimum:" - Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label97 - ' - Me.Label97.BackColor = System.Drawing.Color.Transparent - Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label97.ForeColor = System.Drawing.Color.Black - Me.Label97.Location = New System.Drawing.Point(175, 46) - Me.Label97.Name = "Label97" - Me.Label97.Size = New System.Drawing.Size(50, 17) - Me.Label97.TabIndex = 177 - Me.Label97.Text = "minutes" - Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTeaseLengthMax - ' - Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) - Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) - Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" - Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) - Me.NBTeaseLengthMax.TabIndex = 176 - Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label99 - ' - Me.Label99.BackColor = System.Drawing.Color.Transparent - Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label99.ForeColor = System.Drawing.Color.Black - Me.Label99.Location = New System.Drawing.Point(6, 46) - Me.Label99.Name = "Label99" - Me.Label99.Size = New System.Drawing.Size(123, 17) - Me.Label99.TabIndex = 175 - Me.Label99.Text = "Tease Length Maximum:" - Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label96 - ' - Me.Label96.BackColor = System.Drawing.Color.Transparent - Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label96.ForeColor = System.Drawing.Color.Black - Me.Label96.Location = New System.Drawing.Point(175, 20) - Me.Label96.Name = "Label96" - Me.Label96.Size = New System.Drawing.Size(50, 17) - Me.Label96.TabIndex = 174 - Me.Label96.Text = "minutes" - Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTeaseLengthMin - ' - Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) - Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) - Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" - Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) - Me.NBTeaseLengthMin.TabIndex = 169 - Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) - ' - 'Label95 - ' - Me.Label95.BackColor = System.Drawing.Color.Transparent - Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label95.ForeColor = System.Drawing.Color.Black - Me.Label95.Location = New System.Drawing.Point(6, 20) - Me.Label95.Name = "Label95" - Me.Label95.Size = New System.Drawing.Size(123, 17) - Me.Label95.TabIndex = 166 - Me.Label95.Text = "Tease Length Minimum:" - Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label49 - ' - Me.Label49.BackColor = System.Drawing.Color.Transparent - Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label49.ForeColor = System.Drawing.Color.Black - Me.Label49.Location = New System.Drawing.Point(6, 207) - Me.Label49.Name = "Label49" - Me.Label49.Size = New System.Drawing.Size(132, 17) - Me.Label49.TabIndex = 164 - Me.Label49.Text = "Stroke Taunt Frequency:" - Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label141 - ' - Me.Label141.BackColor = System.Drawing.Color.Transparent - Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label141.ForeColor = System.Drawing.Color.Black - Me.Label141.Location = New System.Drawing.Point(6, 163) - Me.Label141.Name = "Label141" - Me.Label141.Size = New System.Drawing.Size(141, 32) - Me.Label141.TabIndex = 189 - Me.Label141.Text = "Edging Ends Taunts:" - Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GBRangeRuinChance - ' - Me.GBRangeRuinChance.Controls.Add(Me.Label90) - Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) - Me.GBRangeRuinChance.Controls.Add(Me.Label91) - Me.GBRangeRuinChance.Controls.Add(Me.Label92) - Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) - Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) - Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) - Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) - Me.GBRangeRuinChance.Name = "GBRangeRuinChance" - Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) - Me.GBRangeRuinChance.TabIndex = 168 - Me.GBRangeRuinChance.TabStop = False - Me.GBRangeRuinChance.Text = "Ruin Chance" - ' - 'Label90 - ' - Me.Label90.BackColor = System.Drawing.Color.Transparent - Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label90.ForeColor = System.Drawing.Color.Black - Me.Label90.Location = New System.Drawing.Point(6, 94) - Me.Label90.Name = "Label90" - Me.Label90.Size = New System.Drawing.Size(83, 17) - Me.Label90.TabIndex = 173 - Me.Label90.Text = "Rarely Ruins:" - Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBRuinSometimes - ' - Me.NBRuinSometimes.Enabled = False - Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) - Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBRuinSometimes.Name = "NBRuinSometimes" - Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) - Me.NBRuinSometimes.TabIndex = 169 - Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) - ' - 'Label91 - ' - Me.Label91.BackColor = System.Drawing.Color.Transparent - Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label91.ForeColor = System.Drawing.Color.Black - Me.Label91.Location = New System.Drawing.Point(6, 68) - Me.Label91.Name = "Label91" - Me.Label91.Size = New System.Drawing.Size(102, 17) - Me.Label91.TabIndex = 172 - Me.Label91.Text = "Sometimes Ruins:" - Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label92 - ' - Me.Label92.BackColor = System.Drawing.Color.Transparent - Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label92.ForeColor = System.Drawing.Color.Black - Me.Label92.Location = New System.Drawing.Point(6, 42) - Me.Label92.Name = "Label92" - Me.Label92.Size = New System.Drawing.Size(72, 17) - Me.Label92.TabIndex = 171 - Me.Label92.Text = "Often Ruins:" - Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBRuinRarely - ' - Me.NBRuinRarely.Enabled = False - Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) - Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBRuinRarely.Name = "NBRuinRarely" - Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) - Me.NBRuinRarely.TabIndex = 170 - Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) - ' - 'NBRuinOften - ' - Me.NBRuinOften.Enabled = False - Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) - Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBRuinOften.Name = "NBRuinOften" - Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) - Me.NBRuinOften.TabIndex = 168 - Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) - ' - 'CBRangeRuin - ' - Me.CBRangeRuin.AutoSize = True - Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black - Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) - Me.CBRangeRuin.Name = "CBRangeRuin" - Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) - Me.CBRangeRuin.TabIndex = 159 - Me.CBRangeRuin.Text = "Domme Decide" - Me.CBRangeRuin.UseVisualStyleBackColor = True - ' - 'GroupBox17 - ' - Me.GroupBox17.Controls.Add(Me.GroupBox19) - Me.GroupBox17.Controls.Add(Me.GroupBox18) - Me.GroupBox17.Location = New System.Drawing.Point(408, 91) - Me.GroupBox17.Name = "GroupBox17" - Me.GroupBox17.Size = New System.Drawing.Size(291, 190) - Me.GroupBox17.TabIndex = 0 - Me.GroupBox17.TabStop = False - Me.GroupBox17.Text = "Video Teases" - ' - 'GroupBox19 - ' - Me.GroupBox19.Controls.Add(Me.Label110) - Me.GroupBox19.Controls.Add(Me.Label111) - Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) - Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) - Me.GroupBox19.Controls.Add(Me.NBRedLightMax) - Me.GroupBox19.Controls.Add(Me.Label26) - Me.GroupBox19.Controls.Add(Me.NBRedLightMin) - Me.GroupBox19.Controls.Add(Me.Label28) - Me.GroupBox19.Controls.Add(Me.Label27) - Me.GroupBox19.Controls.Add(Me.Label29) - Me.GroupBox19.Location = New System.Drawing.Point(6, 110) - Me.GroupBox19.Name = "GroupBox19" - Me.GroupBox19.Size = New System.Drawing.Size(279, 66) - Me.GroupBox19.TabIndex = 2 - Me.GroupBox19.TabStop = False - Me.GroupBox19.Text = "Red Light, Green Light" - ' - 'Label110 - ' - Me.Label110.BackColor = System.Drawing.Color.Transparent - Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label110.ForeColor = System.Drawing.Color.Black - Me.Label110.Location = New System.Drawing.Point(227, 39) - Me.Label110.Name = "Label110" - Me.Label110.Size = New System.Drawing.Size(50, 17) - Me.Label110.TabIndex = 181 - Me.Label110.Text = "seconds" - Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label111 - ' - Me.Label111.BackColor = System.Drawing.Color.Transparent - Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label111.ForeColor = System.Drawing.Color.Black - Me.Label111.Location = New System.Drawing.Point(227, 16) - Me.Label111.Name = "Label111" - Me.Label111.Size = New System.Drawing.Size(50, 17) - Me.Label111.TabIndex = 180 - Me.Label111.Text = "seconds" - Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBGreenLightMax - ' - Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) - Me.NBGreenLightMax.Name = "NBGreenLightMax" - Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) - Me.NBGreenLightMax.TabIndex = 156 - Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'NBGreenLightMin - ' - Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) - Me.NBGreenLightMin.Name = "NBGreenLightMin" - Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) - Me.NBGreenLightMin.TabIndex = 155 - Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) - ' - 'NBRedLightMax - ' - Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) - Me.NBRedLightMax.Name = "NBRedLightMax" - Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) - Me.NBRedLightMax.TabIndex = 152 - Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) - ' - 'Label26 - ' - Me.Label26.BackColor = System.Drawing.Color.Transparent - Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label26.ForeColor = System.Drawing.Color.Black - Me.Label26.Location = New System.Drawing.Point(161, 38) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(10, 17) - Me.Label26.TabIndex = 154 - Me.Label26.Text = "-" - Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBRedLightMin - ' - Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) - Me.NBRedLightMin.Name = "NBRedLightMin" - Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) - Me.NBRedLightMin.TabIndex = 151 - Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) - ' - 'Label28 - ' - Me.Label28.BackColor = System.Drawing.Color.Transparent - Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.ForeColor = System.Drawing.Color.Black - Me.Label28.Location = New System.Drawing.Point(161, 15) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(10, 17) - Me.Label28.TabIndex = 150 - Me.Label28.Text = "-" - Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label27 - ' - Me.Label27.BackColor = System.Drawing.Color.Transparent - Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label27.ForeColor = System.Drawing.Color.Black - Me.Label27.Location = New System.Drawing.Point(6, 39) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(151, 17) - Me.Label27.TabIndex = 153 - Me.Label27.Text = "Green Light Time:" - Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label29 - ' - Me.Label29.BackColor = System.Drawing.Color.Transparent - Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.ForeColor = System.Drawing.Color.Black - Me.Label29.Location = New System.Drawing.Point(6, 16) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(151, 17) - Me.Label29.TabIndex = 149 - Me.Label29.Text = "Red Light Time:" - Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox18 - ' - Me.GroupBox18.Controls.Add(Me.Label108) - Me.GroupBox18.Controls.Add(Me.Label109) - Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) - Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) - Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) - Me.GroupBox18.Controls.Add(Me.CBCensorConstant) - Me.GroupBox18.Controls.Add(Me.Label25) - Me.GroupBox18.Controls.Add(Me.Label20) - Me.GroupBox18.Controls.Add(Me.Label19) - Me.GroupBox18.Controls.Add(Me.Label24) - Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) - Me.GroupBox18.Location = New System.Drawing.Point(6, 16) - Me.GroupBox18.Name = "GroupBox18" - Me.GroupBox18.Size = New System.Drawing.Size(279, 88) - Me.GroupBox18.TabIndex = 1 - Me.GroupBox18.TabStop = False - Me.GroupBox18.Text = "Censorship Sucks" - ' - 'Label108 - ' - Me.Label108.BackColor = System.Drawing.Color.Transparent - Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label108.ForeColor = System.Drawing.Color.Black - Me.Label108.Location = New System.Drawing.Point(227, 39) - Me.Label108.Name = "Label108" - Me.Label108.Size = New System.Drawing.Size(50, 17) - Me.Label108.TabIndex = 179 - Me.Label108.Text = "seconds" - Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label109 - ' - Me.Label109.BackColor = System.Drawing.Color.Transparent - Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label109.ForeColor = System.Drawing.Color.Black - Me.Label109.Location = New System.Drawing.Point(227, 16) - Me.Label109.Name = "Label109" - Me.Label109.Size = New System.Drawing.Size(50, 17) - Me.Label109.TabIndex = 178 - Me.Label109.Text = "seconds" - Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBCensorShowMin - ' - Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) - Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) - Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorShowMin.Name = "NBCensorShowMin" - Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) - Me.NBCensorShowMin.TabIndex = 151 - Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin - ' - 'NBCensorHideMax - ' - Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) - Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) - Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorHideMax.Name = "NBCensorHideMax" - Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) - Me.NBCensorHideMax.TabIndex = 156 - Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax - ' - 'NBCensorHideMin - ' - Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) - Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) - Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorHideMin.Name = "NBCensorHideMin" - Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) - Me.NBCensorHideMin.TabIndex = 155 - Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin - ' - 'CBCensorConstant - ' - Me.CBCensorConstant.AutoSize = True - Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant - Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black - Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) - Me.CBCensorConstant.Name = "CBCensorConstant" - Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) - Me.CBCensorConstant.TabIndex = 157 - Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" - Me.CBCensorConstant.UseVisualStyleBackColor = True - ' - 'Label25 - ' - Me.Label25.BackColor = System.Drawing.Color.Transparent - Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label25.ForeColor = System.Drawing.Color.Black - Me.Label25.Location = New System.Drawing.Point(161, 15) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(10, 17) - Me.Label25.TabIndex = 150 - Me.Label25.Text = "-" - Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label20 - ' - Me.Label20.BackColor = System.Drawing.Color.Transparent - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label20.ForeColor = System.Drawing.Color.Black - Me.Label20.Location = New System.Drawing.Point(6, 39) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(110, 17) - Me.Label20.TabIndex = 153 - Me.Label20.Text = "Censor Bar Hidden:" - Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label19 - ' - Me.Label19.BackColor = System.Drawing.Color.Transparent - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.ForeColor = System.Drawing.Color.Black - Me.Label19.Location = New System.Drawing.Point(161, 38) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(10, 17) - Me.Label19.TabIndex = 154 - Me.Label19.Text = "-" - Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label24 - ' - Me.Label24.BackColor = System.Drawing.Color.Transparent - Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label24.ForeColor = System.Drawing.Color.Black - Me.Label24.Location = New System.Drawing.Point(6, 16) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(110, 17) - Me.Label24.TabIndex = 149 - Me.Label24.Text = "Censor Bar Shown:" - Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBCensorShowMax - ' - Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) - Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) - Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorShowMax.Name = "NBCensorShowMax" - Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) - Me.NBCensorShowMax.TabIndex = 152 - Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax - ' - 'GBRangeOrgasmChance - ' - Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) - Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) - Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) - Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) - Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) - Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) - Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) - Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) - Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" - Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) - Me.GBRangeOrgasmChance.TabIndex = 167 - Me.GBRangeOrgasmChance.TabStop = False - Me.GBRangeOrgasmChance.Text = "Orgasm Chance" - ' - 'Label89 - ' - Me.Label89.BackColor = System.Drawing.Color.Transparent - Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label89.ForeColor = System.Drawing.Color.Black - Me.Label89.Location = New System.Drawing.Point(6, 94) - Me.Label89.Name = "Label89" - Me.Label89.Size = New System.Drawing.Size(83, 17) - Me.Label89.TabIndex = 173 - Me.Label89.Text = "Rarely Allows:" - Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBAllowSometimes - ' - Me.NBAllowSometimes.Enabled = False - Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) - Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBAllowSometimes.Name = "NBAllowSometimes" - Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) - Me.NBAllowSometimes.TabIndex = 169 - Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) - ' - 'Label86 - ' - Me.Label86.BackColor = System.Drawing.Color.Transparent - Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label86.ForeColor = System.Drawing.Color.Black - Me.Label86.Location = New System.Drawing.Point(6, 68) - Me.Label86.Name = "Label86" - Me.Label86.Size = New System.Drawing.Size(102, 17) - Me.Label86.TabIndex = 172 - Me.Label86.Text = "Sometimes Allows:" - Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label82 - ' - Me.Label82.BackColor = System.Drawing.Color.Transparent - Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label82.ForeColor = System.Drawing.Color.Black - Me.Label82.Location = New System.Drawing.Point(6, 42) - Me.Label82.Name = "Label82" - Me.Label82.Size = New System.Drawing.Size(83, 17) - Me.Label82.TabIndex = 171 - Me.Label82.Text = "Often Allows:" - Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBAllowRarely - ' - Me.NBAllowRarely.Enabled = False - Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) - Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBAllowRarely.Name = "NBAllowRarely" - Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) - Me.NBAllowRarely.TabIndex = 170 - Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) - ' - 'NBAllowOften - ' - Me.NBAllowOften.Enabled = False - Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) - Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBAllowOften.Name = "NBAllowOften" - Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) - Me.NBAllowOften.TabIndex = 168 - Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) - ' - 'CBRangeOrgasm - ' - Me.CBRangeOrgasm.AutoSize = True - Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black - Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) - Me.CBRangeOrgasm.Name = "CBRangeOrgasm" - Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) - Me.CBRangeOrgasm.TabIndex = 159 - Me.CBRangeOrgasm.Text = "Domme Decide" - Me.CBRangeOrgasm.UseVisualStyleBackColor = True - ' - 'PictureBox8 - ' - Me.PictureBox8.BackColor = System.Drawing.Color.LightGray - Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox8.Location = New System.Drawing.Point(9, 6) - Me.PictureBox8.Name = "PictureBox8" - Me.PictureBox8.Size = New System.Drawing.Size(160, 19) - Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox8.TabIndex = 166 - Me.PictureBox8.TabStop = False - ' - 'Label38 - ' - Me.Label38.BackColor = System.Drawing.Color.Transparent - Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label38.ForeColor = System.Drawing.Color.Black - Me.Label38.Location = New System.Drawing.Point(7, 6) - Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(692, 21) - Me.Label38.TabIndex = 48 - Me.Label38.Text = "Range Settings" - Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage13 - ' - Me.TabPage13.BackColor = System.Drawing.Color.Silver - Me.TabPage13.Controls.Add(Me.TabControl2) - Me.TabPage13.Location = New System.Drawing.Point(4, 22) - Me.TabPage13.Name = "TabPage13" - Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage13.Size = New System.Drawing.Size(720, 448) - Me.TabPage13.TabIndex = 13 - Me.TabPage13.Text = "Modding" - ' - 'TabControl2 - ' - Me.TabControl2.Controls.Add(Me.TabPage27) - Me.TabControl2.Controls.Add(Me.TabPage14) - Me.TabControl2.Controls.Add(Me.TabPage24) - Me.TabControl2.Controls.Add(Me.TabPage8) - Me.TabControl2.Controls.Add(Me.TabPage15) - Me.TabControl2.Location = New System.Drawing.Point(6, 6) - Me.TabControl2.Name = "TabControl2" - Me.TabControl2.SelectedIndex = 0 - Me.TabControl2.Size = New System.Drawing.Size(708, 437) - Me.TabControl2.TabIndex = 0 - ' - 'TabPage27 - ' - Me.TabPage27.BackColor = System.Drawing.Color.LightGray - Me.TabPage27.Controls.Add(Me.TBPlaylistSave) - Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) - Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) - Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) - Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) - Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) - Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) - Me.TabPage27.Controls.Add(Me.Button7) - Me.TabPage27.Controls.Add(Me.WBPlaylist) - Me.TabPage27.Controls.Add(Me.Label80) - Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) - Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) - Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) - Me.TabPage27.Controls.Add(Me.LBPlaylist) - Me.TabPage27.Location = New System.Drawing.Point(4, 22) - Me.TabPage27.Name = "TabPage27" - Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage27.Size = New System.Drawing.Size(700, 411) - Me.TabPage27.TabIndex = 5 - Me.TabPage27.Text = "Playlists" - ' - 'TBPlaylistSave - ' - Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) - Me.TBPlaylistSave.Name = "TBPlaylistSave" - Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) - Me.TBPlaylistSave.TabIndex = 203 - ' - 'BTNPlaylistCtrlZ - ' - Me.BTNPlaylistCtrlZ.Enabled = False - Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) - Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" - Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) - Me.BTNPlaylistCtrlZ.TabIndex = 202 - Me.BTNPlaylistCtrlZ.Text = "Undo" - Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = True - ' - 'RadioPlaylistRegScripts - ' - Me.RadioPlaylistRegScripts.AutoSize = True - Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) - Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" - Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) - Me.RadioPlaylistRegScripts.TabIndex = 201 - Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" - Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = True - ' - 'RadioPlaylistScripts - ' - Me.RadioPlaylistScripts.AutoSize = True - Me.RadioPlaylistScripts.Checked = True - Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) - Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" - Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) - Me.RadioPlaylistScripts.TabIndex = 200 - Me.RadioPlaylistScripts.TabStop = True - Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" - Me.RadioPlaylistScripts.UseVisualStyleBackColor = True - ' - 'BTNPlaylistEnd - ' - Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray - Me.BTNPlaylistEnd.Enabled = False - Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black - Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) - Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" - Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) - Me.BTNPlaylistEnd.TabIndex = 199 - Me.BTNPlaylistEnd.Text = "End" - Me.BTNPlaylistEnd.UseVisualStyleBackColor = False - ' - 'BTNPlaylistClearAll - ' - Me.BTNPlaylistClearAll.Enabled = False - Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) - Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" - Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) - Me.BTNPlaylistClearAll.TabIndex = 198 - Me.BTNPlaylistClearAll.Text = "Clear All" - Me.BTNPlaylistClearAll.UseVisualStyleBackColor = True - ' - 'BTNPlaylistSave - ' - Me.BTNPlaylistSave.Enabled = False - Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) - Me.BTNPlaylistSave.Name = "BTNPlaylistSave" - Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) - Me.BTNPlaylistSave.TabIndex = 197 - Me.BTNPlaylistSave.Text = "Save" - Me.BTNPlaylistSave.UseVisualStyleBackColor = True - ' - 'Button7 - ' - Me.Button7.Location = New System.Drawing.Point(213, 21) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(78, 23) - Me.Button7.TabIndex = 196 - Me.Button7.Text = "Add Random" - Me.Button7.UseVisualStyleBackColor = True - ' - 'WBPlaylist - ' - Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) - Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) - Me.WBPlaylist.Name = "WBPlaylist" - Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) - Me.WBPlaylist.TabIndex = 195 - ' - 'Label80 - ' - Me.Label80.AutoSize = True - Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label80.Location = New System.Drawing.Point(410, 27) - Me.Label80.Name = "Label80" - Me.Label80.Size = New System.Drawing.Size(47, 13) - Me.Label80.TabIndex = 194 - Me.Label80.Text = "Playlist" - ' - 'LBLPlaylIstLink - ' - Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLPlaylIstLink.Enabled = False - Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) - Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" - Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) - Me.LBLPlaylIstLink.TabIndex = 193 - Me.LBLPlaylIstLink.Text = "Link" - Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLPlaylistModule - ' - Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLPlaylistModule.Enabled = False - Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) - Me.LBLPlaylistModule.Name = "LBLPlaylistModule" - Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) - Me.LBLPlaylistModule.TabIndex = 192 - Me.LBLPlaylistModule.Text = "Module" - Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLPLaylistStart - ' - Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green - Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White - Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) - Me.LBLPLaylistStart.Name = "LBLPLaylistStart" - Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) - Me.LBLPLaylistStart.TabIndex = 190 - Me.LBLPLaylistStart.Text = "Start" - Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBPlaylist - ' - Me.LBPlaylist.AllowDrop = True - Me.LBPlaylist.FormattingEnabled = True - Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) - Me.LBPlaylist.Name = "LBPlaylist" - Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) - Me.LBPlaylist.TabIndex = 189 - ' - 'TabPage14 - ' - Me.TabPage14.BackColor = System.Drawing.Color.LightGray - Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) - Me.TabPage14.Controls.Add(Me.Label88) - Me.TabPage14.Controls.Add(Me.TBKeywordPreview) - Me.TabPage14.Controls.Add(Me.Button37) - Me.TabPage14.Controls.Add(Me.Button50) - Me.TabPage14.Controls.Add(Me.Button22) - Me.TabPage14.Controls.Add(Me.TBKeyWords) - Me.TabPage14.Controls.Add(Me.LBKeyWords) - Me.TabPage14.Controls.Add(Me.RTBKeyWords) - Me.TabPage14.Location = New System.Drawing.Point(4, 22) - Me.TabPage14.Name = "TabPage14" - Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage14.Size = New System.Drawing.Size(700, 411) - Me.TabPage14.TabIndex = 0 - Me.TabPage14.Text = "Keywords" - ' - 'LBLKeywordPreview - ' - Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) - Me.LBLKeywordPreview.Name = "LBLKeywordPreview" - Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) - Me.LBLKeywordPreview.TabIndex = 174 - Me.LBLKeywordPreview.Text = "Get Preview Here" - Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label88 - ' - Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.Label88.Location = New System.Drawing.Point(3, 358) - Me.Label88.Name = "Label88" - Me.Label88.Size = New System.Drawing.Size(194, 53) - Me.Label88.TabIndex = 173 - Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence" & - " the domme return." - Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBKeywordPreview - ' - Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) - Me.TBKeywordPreview.Name = "TBKeywordPreview" - Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) - Me.TBKeywordPreview.TabIndex = 172 - Me.TBKeywordPreview.Text = "Enter Line Here" - Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Button37 - ' - Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button37.Location = New System.Drawing.Point(638, 358) - Me.Button37.Name = "Button37" - Me.Button37.Size = New System.Drawing.Size(47, 50) - Me.Button37.TabIndex = 171 - Me.Button37.Text = "#" - Me.Button37.UseVisualStyleBackColor = True - ' - 'Button50 - ' - Me.Button50.Location = New System.Drawing.Point(6, 10) - Me.Button50.Name = "Button50" - Me.Button50.Size = New System.Drawing.Size(194, 23) - Me.Button50.TabIndex = 169 - Me.Button50.Text = "Refresh and Clear Keyword List" - Me.Button50.UseVisualStyleBackColor = True - ' - 'Button22 - ' - Me.Button22.Location = New System.Drawing.Point(638, 10) - Me.Button22.Name = "Button22" - Me.Button22.Size = New System.Drawing.Size(47, 23) - Me.Button22.TabIndex = 167 - Me.Button22.Text = "Save" - Me.Button22.UseVisualStyleBackColor = True - ' - 'TBKeyWords - ' - Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) - Me.TBKeyWords.Name = "TBKeyWords" - Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) - Me.TBKeyWords.TabIndex = 166 - ' - 'LBKeyWords - ' - Me.LBKeyWords.FormattingEnabled = True - Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) - Me.LBKeyWords.Name = "LBKeyWords" - Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) - Me.LBKeyWords.Sorted = True - Me.LBKeyWords.TabIndex = 165 - ' - 'RTBKeyWords - ' - Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) - Me.RTBKeyWords.Name = "RTBKeyWords" - Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) - Me.RTBKeyWords.TabIndex = 164 - Me.RTBKeyWords.Text = "" - ' - 'TabPage24 - ' - Me.TabPage24.BackColor = System.Drawing.Color.LightGray - Me.TabPage24.Controls.Add(Me.Button9) - Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) - Me.TabPage24.Controls.Add(Me.Button4) - Me.TabPage24.Controls.Add(Me.Button5) - Me.TabPage24.Controls.Add(Me.TBResponses) - Me.TabPage24.Controls.Add(Me.LBResponses) - Me.TabPage24.Controls.Add(Me.RTBResponses) - Me.TabPage24.Location = New System.Drawing.Point(4, 22) - Me.TabPage24.Name = "TabPage24" - Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage24.Size = New System.Drawing.Size(700, 411) - Me.TabPage24.TabIndex = 3 - Me.TabPage24.Text = "Responses" - ' - 'Button9 - ' - Me.Button9.Location = New System.Drawing.Point(217, 10) - Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(215, 23) - Me.Button9.TabIndex = 176 - Me.Button9.Text = "Response Template" - Me.Button9.UseVisualStyleBackColor = True - ' - 'RTBResponsesKEY - ' - Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) - Me.RTBResponsesKEY.Name = "RTBResponsesKEY" - Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) - Me.RTBResponsesKEY.TabIndex = 175 - Me.RTBResponsesKEY.Text = "" - ' - 'Button4 - ' - Me.Button4.Location = New System.Drawing.Point(6, 10) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(194, 23) - Me.Button4.TabIndex = 174 - Me.Button4.Text = "Refresh and Clear Response List" - Me.Button4.UseVisualStyleBackColor = True - ' - 'Button5 - ' - Me.Button5.Location = New System.Drawing.Point(638, 10) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(47, 23) - Me.Button5.TabIndex = 173 - Me.Button5.Text = "Save" - Me.Button5.UseVisualStyleBackColor = True - ' - 'TBResponses - ' - Me.TBResponses.Location = New System.Drawing.Point(438, 10) - Me.TBResponses.Name = "TBResponses" - Me.TBResponses.Size = New System.Drawing.Size(194, 20) - Me.TBResponses.TabIndex = 172 - ' - 'LBResponses - ' - Me.LBResponses.FormattingEnabled = True - Me.LBResponses.Location = New System.Drawing.Point(6, 36) - Me.LBResponses.Name = "LBResponses" - Me.LBResponses.Size = New System.Drawing.Size(194, 355) - Me.LBResponses.Sorted = True - Me.LBResponses.TabIndex = 171 - ' - 'RTBResponses - ' - Me.RTBResponses.Location = New System.Drawing.Point(217, 82) - Me.RTBResponses.Name = "RTBResponses" - Me.RTBResponses.Size = New System.Drawing.Size(468, 309) - Me.RTBResponses.TabIndex = 170 - Me.RTBResponses.Text = "" - ' - 'TabPage8 - ' - Me.TabPage8.BackColor = System.Drawing.Color.LightGray - Me.TabPage8.Controls.Add(Me.RTBVideoMod) - Me.TabPage8.Controls.Add(Me.GroupBox29) - Me.TabPage8.Controls.Add(Me.BTNVideoModClear) - Me.TabPage8.Controls.Add(Me.GroupBox28) - Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) - Me.TabPage8.Controls.Add(Me.GroupBox30) - Me.TabPage8.Controls.Add(Me.BTNVideoModSave) - Me.TabPage8.Location = New System.Drawing.Point(4, 22) - Me.TabPage8.Name = "TabPage8" - Me.TabPage8.Size = New System.Drawing.Size(700, 411) - Me.TabPage8.TabIndex = 2 - Me.TabPage8.Text = "Video" - ' - 'RTBVideoMod - ' - Me.RTBVideoMod.Enabled = False - Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) - Me.RTBVideoMod.Name = "RTBVideoMod" - Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) - Me.RTBVideoMod.TabIndex = 150 - Me.RTBVideoMod.Text = "" - ' - 'GroupBox29 - ' - Me.GroupBox29.BackColor = System.Drawing.Color.LightGray - Me.GroupBox29.Controls.Add(Me.Label51) - Me.GroupBox29.ForeColor = System.Drawing.Color.Black - Me.GroupBox29.Location = New System.Drawing.Point(6, 309) - Me.GroupBox29.Name = "GroupBox29" - Me.GroupBox29.Size = New System.Drawing.Size(692, 92) - Me.GroupBox29.TabIndex = 66 - Me.GroupBox29.TabStop = False - Me.GroupBox29.Text = "Description" - ' - 'Label51 - ' - Me.Label51.BackColor = System.Drawing.Color.Transparent - Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label51.ForeColor = System.Drawing.Color.Black - Me.Label51.Location = New System.Drawing.Point(6, 16) - Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(680, 73) - Me.Label51.TabIndex = 62 - Me.Label51.Text = resources.GetString("Label51.Text") - Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoModClear - ' - Me.BTNVideoModClear.Enabled = False - Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) - Me.BTNVideoModClear.Name = "BTNVideoModClear" - Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) - Me.BTNVideoModClear.TabIndex = 153 - Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" - Me.BTNVideoModClear.UseVisualStyleBackColor = True - ' - 'GroupBox28 - ' - Me.GroupBox28.Controls.Add(Me.CBVTType) - Me.GroupBox28.Location = New System.Drawing.Point(6, 8) - Me.GroupBox28.Name = "GroupBox28" - Me.GroupBox28.Size = New System.Drawing.Size(155, 46) - Me.GroupBox28.TabIndex = 148 - Me.GroupBox28.TabStop = False - Me.GroupBox28.Text = "Video Tease Type" - ' - 'CBVTType - ' - Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.CBVTType.FormattingEnabled = True - Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) - Me.CBVTType.Location = New System.Drawing.Point(9, 15) - Me.CBVTType.Name = "CBVTType" - Me.CBVTType.Size = New System.Drawing.Size(137, 21) - Me.CBVTType.TabIndex = 171 - ' - 'BTNVideoModLoad - ' - Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) - Me.BTNVideoModLoad.Name = "BTNVideoModLoad" - Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) - Me.BTNVideoModLoad.TabIndex = 152 - Me.BTNVideoModLoad.Text = "Load Script" - Me.BTNVideoModLoad.UseVisualStyleBackColor = True - ' - 'GroupBox30 - ' - Me.GroupBox30.Controls.Add(Me.LBVidScript) - Me.GroupBox30.Location = New System.Drawing.Point(6, 60) - Me.GroupBox30.Name = "GroupBox30" - Me.GroupBox30.Size = New System.Drawing.Size(155, 100) - Me.GroupBox30.TabIndex = 149 - Me.GroupBox30.TabStop = False - Me.GroupBox30.Text = "Script" - ' - 'LBVidScript - ' - Me.LBVidScript.FormattingEnabled = True - Me.LBVidScript.Location = New System.Drawing.Point(9, 20) - Me.LBVidScript.Name = "LBVidScript" - Me.LBVidScript.Size = New System.Drawing.Size(137, 69) - Me.LBVidScript.TabIndex = 0 - ' - 'BTNVideoModSave - ' - Me.BTNVideoModSave.Enabled = False - Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) - Me.BTNVideoModSave.Name = "BTNVideoModSave" - Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) - Me.BTNVideoModSave.TabIndex = 151 - Me.BTNVideoModSave.Text = "Save Changes" - Me.BTNVideoModSave.UseVisualStyleBackColor = True - ' - 'TabPage15 - ' - Me.TabPage15.BackColor = System.Drawing.Color.LightGray - Me.TabPage15.Controls.Add(Me.Label62) - Me.TabPage15.Controls.Add(Me.Label61) - Me.TabPage15.Controls.Add(Me.Label57) - Me.TabPage15.Controls.Add(Me.Label58) - Me.TabPage15.Controls.Add(Me.Label60) - Me.TabPage15.Controls.Add(Me.TBGlitModFileName) - Me.TabPage15.Controls.Add(Me.GroupBox34) - Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) - Me.TabPage15.Controls.Add(Me.Button26) - Me.TabPage15.Controls.Add(Me.Label56) - Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) - Me.TabPage15.Controls.Add(Me.LBGlitModScripts) - Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) - Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) - Me.TabPage15.Controls.Add(Me.Button29) - Me.TabPage15.Controls.Add(Me.CBGlitModType) - Me.TabPage15.Controls.Add(Me.Label59) - Me.TabPage15.Controls.Add(Me.Label50) - Me.TabPage15.Location = New System.Drawing.Point(4, 22) - Me.TabPage15.Name = "TabPage15" - Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage15.Size = New System.Drawing.Size(700, 411) - Me.TabPage15.TabIndex = 1 - Me.TabPage15.Text = "Glitter" - ' - 'Label62 - ' - Me.Label62.Location = New System.Drawing.Point(255, 169) - Me.Label62.Name = "Label62" - Me.Label62.Size = New System.Drawing.Size(59, 51) - Me.Label62.TabIndex = 177 - Me.Label62.Text = "@Cruel @Angry @Custom2" - Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label61 - ' - Me.Label61.Location = New System.Drawing.Point(194, 169) - Me.Label61.Name = "Label61" - Me.Label61.Size = New System.Drawing.Size(59, 51) - Me.Label61.TabIndex = 176 - Me.Label61.Text = "@Bratty @Caring @Custom1" - Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label57 - ' - Me.Label57.Location = New System.Drawing.Point(194, 11) - Me.Label57.Name = "Label57" - Me.Label57.Size = New System.Drawing.Size(120, 23) - Me.Label57.TabIndex = 160 - Me.Label57.Text = "File Name" - Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label58 - ' - Me.Label58.Location = New System.Drawing.Point(350, 11) - Me.Label58.Name = "Label58" - Me.Label58.Size = New System.Drawing.Size(326, 23) - Me.Label58.TabIndex = 161 - Me.Label58.Text = "Domme's Post" - Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label60 - ' - Me.Label60.Location = New System.Drawing.Point(194, 139) - Me.Label60.Name = "Label60" - Me.Label60.Size = New System.Drawing.Size(120, 30) - Me.Label60.TabIndex = 175 - Me.Label60.Text = "Tease Responses Need 3 of Each:" - Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBGlitModFileName - ' - Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) - Me.TBGlitModFileName.Name = "TBGlitModFileName" - Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) - Me.TBGlitModFileName.TabIndex = 158 - ' - 'GroupBox34 - ' - Me.GroupBox34.BackColor = System.Drawing.Color.LightGray - Me.GroupBox34.Controls.Add(Me.Label52) - Me.GroupBox34.ForeColor = System.Drawing.Color.Black - Me.GroupBox34.Location = New System.Drawing.Point(8, 296) - Me.GroupBox34.Name = "GroupBox34" - Me.GroupBox34.Size = New System.Drawing.Size(683, 107) - Me.GroupBox34.TabIndex = 66 - Me.GroupBox34.TabStop = False - Me.GroupBox34.Text = "Description" - ' - 'Label52 - ' - Me.Label52.BackColor = System.Drawing.Color.Transparent - Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label52.ForeColor = System.Drawing.Color.Black - Me.Label52.Location = New System.Drawing.Point(6, 16) - Me.Label52.Name = "Label52" - Me.Label52.Size = New System.Drawing.Size(670, 88) - Me.Label52.TabIndex = 62 - Me.Label52.Text = resources.GetString("Label52.Text") - Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'RTBGlitModDommePost - ' - Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) - Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" - Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) - Me.RTBGlitModDommePost.TabIndex = 162 - Me.RTBGlitModDommePost.Text = "" - ' - 'Button26 - ' - Me.Button26.Location = New System.Drawing.Point(194, 239) - Me.Button26.Name = "Button26" - Me.Button26.Size = New System.Drawing.Size(120, 23) - Me.Button26.TabIndex = 174 - Me.Button26.Text = "Clear Fields" - Me.Button26.UseVisualStyleBackColor = True - ' - 'Label56 - ' - Me.Label56.Location = New System.Drawing.Point(350, 80) - Me.Label56.Name = "Label56" - Me.Label56.Size = New System.Drawing.Size(324, 23) - Me.Label56.TabIndex = 156 - Me.Label56.Text = "Responses (Minimum 3)" - Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'RTBGlitModResponses - ' - Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) - Me.RTBGlitModResponses.Name = "RTBGlitModResponses" - Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) - Me.RTBGlitModResponses.TabIndex = 150 - Me.RTBGlitModResponses.Text = "" - ' - 'LBGlitModScripts - ' - Me.LBGlitModScripts.FormattingEnabled = True - Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) - Me.LBGlitModScripts.Name = "LBGlitModScripts" - Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) - Me.LBGlitModScripts.TabIndex = 163 - ' - 'LBLGlitModScriptCount - ' - Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) - Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" - Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) - Me.LBLGlitModScriptCount.TabIndex = 173 - Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" - Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitModDomType - ' - Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) - Me.LBLGlitModDomType.Name = "LBLGlitModDomType" - Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) - Me.LBLGlitModDomType.TabIndex = 155 - Me.LBLGlitModDomType.Text = "Total Brat" - Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Button29 - ' - Me.Button29.Location = New System.Drawing.Point(194, 268) - Me.Button29.Name = "Button29" - Me.Button29.Size = New System.Drawing.Size(120, 23) - Me.Button29.TabIndex = 151 - Me.Button29.Text = "Save Glitter File" - Me.Button29.UseVisualStyleBackColor = True - ' - 'CBGlitModType - ' - Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.CBGlitModType.FormattingEnabled = True - Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) - Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) - Me.CBGlitModType.Name = "CBGlitModType" - Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) - Me.CBGlitModType.TabIndex = 171 - ' - 'Label59 - ' - Me.Label59.Location = New System.Drawing.Point(33, 11) - Me.Label59.Name = "Label59" - Me.Label59.Size = New System.Drawing.Size(130, 23) - Me.Label59.TabIndex = 172 - Me.Label59.Text = "Glitter Post Type" - Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label50 - ' - Me.Label50.Location = New System.Drawing.Point(191, 80) - Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(123, 23) - Me.Label50.TabIndex = 154 - Me.Label50.Text = "Current Domme Personality:" - Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage25 - ' - Me.TabPage25.BackColor = System.Drawing.Color.Silver - Me.TabPage25.Controls.Add(Me.Panel11) - Me.TabPage25.Location = New System.Drawing.Point(4, 22) - Me.TabPage25.Name = "TabPage25" - Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage25.Size = New System.Drawing.Size(720, 448) - Me.TabPage25.TabIndex = 18 - Me.TabPage25.Text = "Misc" - ' - 'Panel11 - ' - Me.Panel11.BackColor = System.Drawing.Color.LightGray - Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel11.Controls.Add(Me.GroupBox62) - Me.Panel11.Controls.Add(Me.GroupBox33) - Me.Panel11.Controls.Add(Me.GroupBox27) - Me.Panel11.Controls.Add(Me.GroupBox20) - Me.Panel11.Controls.Add(Me.WebToy) - Me.Panel11.Controls.Add(Me.GroupBox15) - Me.Panel11.Controls.Add(Me.PictureBox9) - Me.Panel11.Controls.Add(Me.Label148) - Me.Panel11.Location = New System.Drawing.Point(6, 6) - Me.Panel11.Name = "Panel11" - Me.Panel11.Size = New System.Drawing.Size(708, 437) - Me.Panel11.TabIndex = 92 - ' - 'GroupBox62 - ' - Me.GroupBox62.Controls.Add(Me.RBGerman) - Me.GroupBox62.Controls.Add(Me.RBEnglish) - Me.GroupBox62.Location = New System.Drawing.Point(420, 155) - Me.GroupBox62.Name = "GroupBox62" - Me.GroupBox62.Size = New System.Drawing.Size(277, 107) - Me.GroupBox62.TabIndex = 178 - Me.GroupBox62.TabStop = False - Me.GroupBox62.Text = "Language" - ' - 'RBGerman - ' - Me.RBGerman.AutoSize = True - Me.RBGerman.Location = New System.Drawing.Point(180, 20) - Me.RBGerman.Name = "RBGerman" - Me.RBGerman.Size = New System.Drawing.Size(65, 17) - Me.RBGerman.TabIndex = 1 - Me.RBGerman.Text = "Deutsch" - Me.RBGerman.UseVisualStyleBackColor = True - ' - 'RBEnglish - ' - Me.RBEnglish.AutoSize = True - Me.RBEnglish.Checked = True - Me.RBEnglish.Location = New System.Drawing.Point(36, 19) - Me.RBEnglish.Name = "RBEnglish" - Me.RBEnglish.Size = New System.Drawing.Size(59, 17) - Me.RBEnglish.TabIndex = 0 - Me.RBEnglish.TabStop = True - Me.RBEnglish.Text = "English" - Me.RBEnglish.UseVisualStyleBackColor = True - ' - 'GroupBox33 - ' - Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) - Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) - Me.GroupBox33.Controls.Add(Me.Label140) - Me.GroupBox33.Controls.Add(Me.Button11) - Me.GroupBox33.Controls.Add(Me.LBLChastityState) - Me.GroupBox33.Controls.Add(Me.Label120) - Me.GroupBox33.Location = New System.Drawing.Point(420, 268) - Me.GroupBox33.Name = "GroupBox33" - Me.GroupBox33.Size = New System.Drawing.Size(277, 159) - Me.GroupBox33.TabIndex = 177 - Me.GroupBox33.TabStop = False - Me.GroupBox33.Text = "System States" - ' - 'BTNOfflineMode - ' - Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) - Me.BTNOfflineMode.Name = "BTNOfflineMode" - Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) - Me.BTNOfflineMode.TabIndex = 180 - Me.BTNOfflineMode.Text = "Toggle" - Me.BTNOfflineMode.UseVisualStyleBackColor = True - ' - 'LBLOfflineMode - ' - Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray - Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red - Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) - Me.LBLOfflineMode.Name = "LBLOfflineMode" - Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) - Me.LBLOfflineMode.TabIndex = 179 - Me.LBLOfflineMode.Text = "OFF" - Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label140 - ' - Me.Label140.BackColor = System.Drawing.Color.LightGray - Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label140.Location = New System.Drawing.Point(17, 70) - Me.Label140.Name = "Label140" - Me.Label140.Size = New System.Drawing.Size(98, 23) - Me.Label140.TabIndex = 178 - Me.Label140.Text = "OFFLINE MODE" - Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Button11 - ' - Me.Button11.Location = New System.Drawing.Point(161, 33) - Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(99, 23) - Me.Button11.TabIndex = 177 - Me.Button11.Text = "Toggle" - Me.Button11.UseVisualStyleBackColor = True - ' - 'LBLChastityState - ' - Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray - Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLChastityState.ForeColor = System.Drawing.Color.Red - Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) - Me.LBLChastityState.Name = "LBLChastityState" - Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) - Me.LBLChastityState.TabIndex = 3 - Me.LBLChastityState.Text = "OFF" - Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label120 - ' - Me.Label120.BackColor = System.Drawing.Color.LightGray - Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label120.Location = New System.Drawing.Point(17, 33) - Me.Label120.Name = "Label120" - Me.Label120.Size = New System.Drawing.Size(98, 23) - Me.Label120.TabIndex = 2 - Me.Label120.Text = "CHASTITY" - Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox27 - ' - Me.GroupBox27.Controls.Add(Me.Button6) - Me.GroupBox27.Controls.Add(Me.LBLSesSpace) - Me.GroupBox27.Controls.Add(Me.Button3) - Me.GroupBox27.Controls.Add(Me.LBLSesFiles) - Me.GroupBox27.Controls.Add(Me.Label125) - Me.GroupBox27.Controls.Add(Me.Label124) - Me.GroupBox27.Location = New System.Drawing.Point(420, 32) - Me.GroupBox27.Name = "GroupBox27" - Me.GroupBox27.Size = New System.Drawing.Size(279, 117) - Me.GroupBox27.TabIndex = 176 - Me.GroupBox27.TabStop = False - Me.GroupBox27.Text = "Session Images" - ' - 'Button6 - ' - Me.Button6.Location = New System.Drawing.Point(143, 76) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(117, 23) - Me.Button6.TabIndex = 176 - Me.Button6.Text = "Delete All Files" - Me.Button6.UseVisualStyleBackColor = True - ' - 'LBLSesSpace - ' - Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) - Me.LBLSesSpace.Name = "LBLSesSpace" - Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) - Me.LBLSesSpace.TabIndex = 3 - ' - 'Button3 - ' - Me.Button3.Location = New System.Drawing.Point(20, 76) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(117, 23) - Me.Button3.TabIndex = 175 - Me.Button3.Text = "Open Folder" - Me.Button3.UseVisualStyleBackColor = True - ' - 'LBLSesFiles - ' - Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) - Me.LBLSesFiles.Name = "LBLSesFiles" - Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) - Me.LBLSesFiles.TabIndex = 2 - ' - 'Label125 - ' - Me.Label125.AutoSize = True - Me.Label125.Location = New System.Drawing.Point(17, 53) - Me.Label125.Name = "Label125" - Me.Label125.Size = New System.Drawing.Size(120, 13) - Me.Label125.TabIndex = 1 - Me.Label125.Text = "Total Disk Space Used:" - ' - 'Label124 - ' - Me.Label124.AutoSize = True - Me.Label124.Location = New System.Drawing.Point(17, 24) - Me.Label124.Name = "Label124" - Me.Label124.Size = New System.Drawing.Size(126, 13) - Me.Label124.TabIndex = 0 - Me.Label124.Text = "Number of Files in Folder:" - ' - 'GroupBox20 - ' - Me.GroupBox20.Controls.Add(Me.Button1) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) - Me.GroupBox20.Controls.Add(Me.Label117) - Me.GroupBox20.Controls.Add(Me.Label116) - Me.GroupBox20.Controls.Add(Me.PBCurrent) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) - Me.GroupBox20.Controls.Add(Me.PBMaintenance) - Me.GroupBox20.Controls.Add(Me.LBLMaintenance) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) - Me.GroupBox20.Location = New System.Drawing.Point(6, 32) - Me.GroupBox20.Name = "GroupBox20" - Me.GroupBox20.Size = New System.Drawing.Size(408, 230) - Me.GroupBox20.TabIndex = 174 - Me.GroupBox20.TabStop = False - Me.GroupBox20.Text = "Maintenance" - ' - 'Button1 - ' - Me.Button1.Enabled = False - Me.Button1.Location = New System.Drawing.Point(270, 19) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(121, 23) - Me.Button1.TabIndex = 176 - Me.Button1.Text = "Reset Settings" - Me.Button1.UseVisualStyleBackColor = True - ' - 'BTNMaintenanceScripts - ' - Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) - Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" - Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceScripts.TabIndex = 175 - Me.BTNMaintenanceScripts.Text = "Audit Scripts" - Me.BTNMaintenanceScripts.UseVisualStyleBackColor = True - ' - 'BTNMaintenanceRefresh - ' - Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) - Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" - Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceRefresh.TabIndex = 7 - Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" - Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = True - ' - 'Label117 - ' - Me.Label117.AutoSize = True - Me.Label117.Location = New System.Drawing.Point(15, 182) - Me.Label117.Name = "Label117" - Me.Label117.Size = New System.Drawing.Size(84, 13) - Me.Label117.TabIndex = 6 - Me.Label117.Text = "Overall Progress" - ' - 'Label116 - ' - Me.Label116.AutoSize = True - Me.Label116.Location = New System.Drawing.Point(15, 140) - Me.Label116.Name = "Label116" - Me.Label116.Size = New System.Drawing.Size(85, 13) - Me.Label116.TabIndex = 5 - Me.Label116.Text = "Current Progress" - ' - 'PBCurrent - ' - Me.PBCurrent.Location = New System.Drawing.Point(15, 156) - Me.PBCurrent.Name = "PBCurrent" - Me.PBCurrent.Size = New System.Drawing.Size(376, 23) - Me.PBCurrent.TabIndex = 4 - ' - 'BTNMaintenanceCancel - ' - Me.BTNMaintenanceCancel.Enabled = False - Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) - Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" - Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceCancel.TabIndex = 3 - Me.BTNMaintenanceCancel.Text = "Cancel" - Me.BTNMaintenanceCancel.UseVisualStyleBackColor = True - ' - 'PBMaintenance - ' - Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) - Me.PBMaintenance.Name = "PBMaintenance" - Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) - Me.PBMaintenance.TabIndex = 2 - ' - 'LBLMaintenance - ' - Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) - Me.LBLMaintenance.Name = "LBLMaintenance" - Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) - Me.LBLMaintenance.TabIndex = 1 - Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNMaintenanceRebuild - ' - Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) - Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" - Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceRebuild.TabIndex = 0 - Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" - Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = True - ' - 'WebToy - ' - Me.WebToy.Location = New System.Drawing.Point(16, 379) - Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) - Me.WebToy.Name = "WebToy" - Me.WebToy.Size = New System.Drawing.Size(381, 36) - Me.WebToy.TabIndex = 172 - ' - 'GroupBox15 - ' - Me.GroupBox15.Controls.Add(Me.Label115) - Me.GroupBox15.Controls.Add(Me.TBWebStop) - Me.GroupBox15.Controls.Add(Me.TBWebStart) - Me.GroupBox15.Controls.Add(Me.Label114) - Me.GroupBox15.Location = New System.Drawing.Point(6, 268) - Me.GroupBox15.Name = "GroupBox15" - Me.GroupBox15.Size = New System.Drawing.Size(408, 159) - Me.GroupBox15.TabIndex = 173 - Me.GroupBox15.TabStop = False - Me.GroupBox15.Text = "Web-Controlled Sex Toy" - ' - 'Label115 - ' - Me.Label115.AutoSize = True - Me.Label115.Location = New System.Drawing.Point(12, 58) - Me.Label115.Name = "Label115" - Me.Label115.Size = New System.Drawing.Size(54, 13) - Me.Label115.TabIndex = 171 - Me.Label115.Text = "Stop URL" - ' - 'TBWebStop - ' - Me.TBWebStop.Location = New System.Drawing.Point(10, 72) - Me.TBWebStop.Name = "TBWebStop" - Me.TBWebStop.Size = New System.Drawing.Size(381, 20) - Me.TBWebStop.TabIndex = 170 - ' - 'TBWebStart - ' - Me.TBWebStart.Location = New System.Drawing.Point(10, 33) - Me.TBWebStart.Name = "TBWebStart" - Me.TBWebStart.Size = New System.Drawing.Size(381, 20) - Me.TBWebStart.TabIndex = 167 - ' - 'Label114 - ' - Me.Label114.AutoSize = True - Me.Label114.Location = New System.Drawing.Point(12, 17) - Me.Label114.Name = "Label114" - Me.Label114.Size = New System.Drawing.Size(54, 13) - Me.Label114.TabIndex = 168 - Me.Label114.Text = "Start URL" - ' - 'PictureBox9 - ' - Me.PictureBox9.BackColor = System.Drawing.Color.LightGray - Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox9.Location = New System.Drawing.Point(9, 6) - Me.PictureBox9.Name = "PictureBox9" - Me.PictureBox9.Size = New System.Drawing.Size(160, 19) - Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox9.TabIndex = 166 - Me.PictureBox9.TabStop = False - ' - 'Label148 - ' - Me.Label148.BackColor = System.Drawing.Color.Transparent - Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label148.ForeColor = System.Drawing.Color.Black - Me.Label148.Location = New System.Drawing.Point(7, 6) - Me.Label148.Name = "Label148" - Me.Label148.Size = New System.Drawing.Size(692, 21) - Me.Label148.TabIndex = 48 - Me.Label148.Text = "Miscellaneous Settings" - Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage28 - ' - Me.TabPage28.BackColor = System.Drawing.Color.Silver - Me.TabPage28.Controls.Add(Me.TabControl3) - Me.TabPage28.Location = New System.Drawing.Point(4, 22) - Me.TabPage28.Name = "TabPage28" - Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage28.Size = New System.Drawing.Size(720, 448) - Me.TabPage28.TabIndex = 20 - Me.TabPage28.Text = "Debug" - ' - 'TabControl3 - ' - Me.TabControl3.Controls.Add(Me.TabPage29) - Me.TabControl3.Controls.Add(Me.TabPage30) - Me.TabControl3.Location = New System.Drawing.Point(6, 6) - Me.TabControl3.Name = "TabControl3" - Me.TabControl3.SelectedIndex = 0 - Me.TabControl3.Size = New System.Drawing.Size(708, 437) - Me.TabControl3.TabIndex = 0 - ' - 'TabPage29 - ' - Me.TabPage29.BackColor = System.Drawing.Color.LightGray - Me.TabPage29.Controls.Add(Me.Label143) - Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) - Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) - Me.TabPage29.Controls.Add(Me.GroupBox26) - Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) - Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) - Me.TabPage29.Controls.Add(Me.Label145) - Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) - Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) - Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) - Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) - Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) - Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) - Me.TabPage29.Controls.Add(Me.Label142) - Me.TabPage29.Controls.Add(Me.Label150) - Me.TabPage29.Controls.Add(Me.Label152) - Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) - Me.TabPage29.Controls.Add(Me.Label147) - Me.TabPage29.Location = New System.Drawing.Point(4, 22) - Me.TabPage29.Name = "TabPage29" - Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage29.Size = New System.Drawing.Size(700, 411) - Me.TabPage29.TabIndex = 0 - Me.TabPage29.Text = "TabPage29" - ' - 'Label143 - ' - Me.Label143.Location = New System.Drawing.Point(402, 46) - Me.Label143.Name = "Label143" - Me.Label143.Size = New System.Drawing.Size(67, 23) - Me.Label143.TabIndex = 15 - Me.Label143.Text = "Script Timer" - Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugScriptTime - ' - Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) - Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" - Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugScriptTime.TabIndex = 16 - Me.LBLDebugScriptTime.Text = "0" - Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNDebugHoldEdgeTimer - ' - Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) - Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" - Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugHoldEdgeTimer.TabIndex = 14 - Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" - Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = True - ' - 'GroupBox26 - ' - Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) - Me.GroupBox26.Controls.Add(Me.Button19) - Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) - Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) - Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) - Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) - Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) - Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) - Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) - Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) - Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) - Me.GroupBox26.Location = New System.Drawing.Point(6, 5) - Me.GroupBox26.Name = "GroupBox26" - Me.GroupBox26.Size = New System.Drawing.Size(346, 178) - Me.GroupBox26.TabIndex = 0 - Me.GroupBox26.TabStop = False - Me.GroupBox26.Text = "Taunt Cycle" - ' - 'LBLCycleDebugCountdown - ' - Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) - Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" - Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) - Me.LBLCycleDebugCountdown.TabIndex = 10 - Me.LBLCycleDebugCountdown.Text = "0" - Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Button19 - ' - Me.Button19.Location = New System.Drawing.Point(191, 142) - Me.Button19.Name = "Button19" - Me.Button19.Size = New System.Drawing.Size(146, 30) - Me.Button19.TabIndex = 9 - Me.Button19.Text = "Countdown to 5 Seconds" - Me.Button19.UseVisualStyleBackColor = True - ' - 'BTNDebugTauntsClear - ' - Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) - Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" - Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) - Me.BTNDebugTauntsClear.TabIndex = 8 - Me.BTNDebugTauntsClear.Text = "Clear" - Me.BTNDebugTauntsClear.UseVisualStyleBackColor = True - ' - 'TBDebugTaunts3 - ' - Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) - Me.TBDebugTaunts3.Name = "TBDebugTaunts3" - Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) - Me.TBDebugTaunts3.TabIndex = 7 - ' - 'TBDebugTaunts2 - ' - Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) - Me.TBDebugTaunts2.Name = "TBDebugTaunts2" - Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) - Me.TBDebugTaunts2.TabIndex = 6 - ' - 'TBDebugTaunts1 - ' - Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) - Me.TBDebugTaunts1.Name = "TBDebugTaunts1" - Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) - Me.TBDebugTaunts1.TabIndex = 5 - ' - 'RBDebugTaunts3 - ' - Me.RBDebugTaunts3.AutoSize = True - Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) - Me.RBDebugTaunts3.Name = "RBDebugTaunts3" - Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) - Me.RBDebugTaunts3.TabIndex = 4 - Me.RBDebugTaunts3.Text = "3 Lines" - Me.RBDebugTaunts3.UseVisualStyleBackColor = True - ' - 'RBDebugTaunts2 - ' - Me.RBDebugTaunts2.AutoSize = True - Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) - Me.RBDebugTaunts2.Name = "RBDebugTaunts2" - Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) - Me.RBDebugTaunts2.TabIndex = 3 - Me.RBDebugTaunts2.Text = "2 Lines" - Me.RBDebugTaunts2.UseVisualStyleBackColor = True - ' - 'RBDebugTaunts1 - ' - Me.RBDebugTaunts1.AutoSize = True - Me.RBDebugTaunts1.Checked = True - Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) - Me.RBDebugTaunts1.Name = "RBDebugTaunts1" - Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) - Me.RBDebugTaunts1.TabIndex = 2 - Me.RBDebugTaunts1.TabStop = True - Me.RBDebugTaunts1.Text = "1 Line" - Me.RBDebugTaunts1.UseVisualStyleBackColor = True - ' - 'CBDebugTauntsEndless - ' - Me.CBDebugTauntsEndless.AutoSize = True - Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) - Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" - Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) - Me.CBDebugTauntsEndless.TabIndex = 1 - Me.CBDebugTauntsEndless.Text = "Endless Cycle" - Me.CBDebugTauntsEndless.UseVisualStyleBackColor = True - ' - 'CBDebugTaunts - ' - Me.CBDebugTaunts.AutoSize = True - Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) - Me.CBDebugTaunts.Name = "CBDebugTaunts" - Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) - Me.CBDebugTaunts.TabIndex = 0 - Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" - Me.CBDebugTaunts.UseVisualStyleBackColor = True - ' - 'BTNDebugStrokeTauntTimer - ' - Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) - Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" - Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugStrokeTauntTimer.TabIndex = 8 - Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" - Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = True - ' - 'LBLDebugHoldEdgeTime - ' - Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) - Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" - Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugHoldEdgeTime.TabIndex = 13 - Me.LBLDebugHoldEdgeTime.Text = "0" - Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label145 - ' - Me.Label145.Location = New System.Drawing.Point(402, 11) - Me.Label145.Name = "Label145" - Me.Label145.Size = New System.Drawing.Size(67, 23) - Me.Label145.TabIndex = 3 - Me.Label145.Text = "Tease Timer" - Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNDebugStrokeTime - ' - Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) - Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" - Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugStrokeTime.TabIndex = 2 - Me.BTNDebugStrokeTime.Text = "Set to 5" - Me.BTNDebugStrokeTime.UseVisualStyleBackColor = True - ' - 'BTNDebugEdgeTauntTimer - ' - Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) - Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" - Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugEdgeTauntTimer.TabIndex = 11 - Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" - Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = True - ' - 'LBLDebugTeaseTime - ' - Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) - Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" - Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugTeaseTime.TabIndex = 4 - Me.LBLDebugTeaseTime.Text = "0" - Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugStrokeTime - ' - Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) - Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" - Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugStrokeTime.TabIndex = 1 - Me.LBLDebugStrokeTime.Text = "0" - Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugEdgeTauntTime - ' - Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) - Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" - Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugEdgeTauntTime.TabIndex = 10 - Me.LBLDebugEdgeTauntTime.Text = "0" - Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNDebugTeaseTimer - ' - Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) - Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" - Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugTeaseTimer.TabIndex = 5 - Me.BTNDebugTeaseTimer.Text = "Set to 5" - Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = True - ' - 'Label142 - ' - Me.Label142.Location = New System.Drawing.Point(402, 121) - Me.Label142.Name = "Label142" - Me.Label142.Size = New System.Drawing.Size(67, 23) - Me.Label142.TabIndex = 0 - Me.Label142.Text = "Stroke Timer" - Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label150 - ' - Me.Label150.Location = New System.Drawing.Point(402, 206) - Me.Label150.Name = "Label150" - Me.Label150.Size = New System.Drawing.Size(67, 27) - Me.Label150.TabIndex = 9 - Me.Label150.Text = "Edge Taunt Timer" - Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label152 - ' - Me.Label152.Location = New System.Drawing.Point(402, 238) - Me.Label152.Name = "Label152" - Me.Label152.Size = New System.Drawing.Size(67, 40) - Me.Label152.TabIndex = 12 - Me.Label152.Text = "Hold Edge Timer" - Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugStrokeTauntTime - ' - Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) - Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" - Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugStrokeTauntTime.TabIndex = 7 - Me.LBLDebugStrokeTauntTime.Text = "0" - Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label147 - ' - Me.Label147.Location = New System.Drawing.Point(402, 143) - Me.Label147.Name = "Label147" - Me.Label147.Size = New System.Drawing.Size(67, 29) - Me.Label147.TabIndex = 6 - Me.Label147.Text = "Stroke Taunt Timer" - Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage30 - ' - Me.TabPage30.BackColor = System.Drawing.Color.LightGray - Me.TabPage30.Controls.Add(Me.Button33) - Me.TabPage30.Controls.Add(Me.Button24) - Me.TabPage30.Location = New System.Drawing.Point(4, 22) - Me.TabPage30.Name = "TabPage30" - Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage30.Size = New System.Drawing.Size(700, 411) - Me.TabPage30.TabIndex = 1 - Me.TabPage30.Text = "TabPage30" - ' - 'Button33 - ' - Me.Button33.Location = New System.Drawing.Point(6, 35) - Me.Button33.Name = "Button33" - Me.Button33.Size = New System.Drawing.Size(75, 23) - Me.Button33.TabIndex = 1 - Me.Button33.Text = "LoadState" - Me.Button33.UseVisualStyleBackColor = True - ' - 'Button24 - ' - Me.Button24.Location = New System.Drawing.Point(6, 6) - Me.Button24.Name = "Button24" - Me.Button24.Size = New System.Drawing.Size(75, 23) - Me.Button24.TabIndex = 0 - Me.Button24.Text = "SaveState" - Me.Button24.UseVisualStyleBackColor = True - ' - 'TabPage5 - ' - Me.TabPage5.BackColor = System.Drawing.Color.Silver - Me.TabPage5.Controls.Add(Me.Panel5) - Me.TabPage5.Location = New System.Drawing.Point(4, 22) - Me.TabPage5.Name = "TabPage5" - Me.TabPage5.Size = New System.Drawing.Size(720, 448) - Me.TabPage5.TabIndex = 17 - Me.TabPage5.Text = "About" - ' - 'Panel5 - ' - Me.Panel5.BackColor = System.Drawing.Color.LightGray - Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel5.Controls.Add(Me.Label130) - Me.Panel5.Controls.Add(Me.Label123) - Me.Panel5.Controls.Add(Me.Label69) - Me.Panel5.Controls.Add(Me.Label113) - Me.Panel5.Controls.Add(Me.Label40) - Me.Panel5.Controls.Add(Me.Label35) - Me.Panel5.Controls.Add(Me.Label33) - Me.Panel5.Controls.Add(Me.Label17) - Me.Panel5.Controls.Add(Me.Label3) - Me.Panel5.Controls.Add(Me.PictureBox3) - Me.Panel5.Controls.Add(Me.Label41) - Me.Panel5.Location = New System.Drawing.Point(6, 6) - Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(708, 437) - Me.Panel5.TabIndex = 92 - ' - 'Label130 - ' - Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label130.Location = New System.Drawing.Point(361, 314) - Me.Label130.Name = "Label130" - Me.Label130.Size = New System.Drawing.Size(254, 54) - Me.Label130.TabIndex = 176 - Me.Label130.Text = "q55x8x" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Stefaf" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "OxiKlein" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) - Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label123 - ' - Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label123.Location = New System.Drawing.Point(81, 314) - Me.Label123.Name = "Label123" - Me.Label123.Size = New System.Drawing.Size(254, 54) - Me.Label123.TabIndex = 175 - Me.Label123.Text = "pepsifreak" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daragorn" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ambossli" - Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label69 - ' - Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label69.Location = New System.Drawing.Point(35, 295) - Me.Label69.Name = "Label69" - Me.Label69.Size = New System.Drawing.Size(638, 22) - Me.Label69.TabIndex = 174 - Me.Label69.Text = "Triple Alfa" - Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label113 - ' - Me.Label113.AutoSize = True - Me.Label113.Location = New System.Drawing.Point(4, 417) - Me.Label113.Name = "Label113" - Me.Label113.Size = New System.Drawing.Size(452, 13) - Me.Label113.TabIndex = 173 - Me.Label113.Text = "All content contained in or viewed through this program are property of their res" & - "pective owners." - ' - 'Label40 - ' - Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label40.Location = New System.Drawing.Point(35, 273) - Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(638, 24) - Me.Label40.TabIndex = 171 - Me.Label40.Text = "Special Thanks" - Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label35 - ' - Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label35.Location = New System.Drawing.Point(32, 107) - Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(641, 77) - Me.Label35.TabIndex = 170 - Me.Label35.Text = "This program is freeware. It may be freely distributed." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Do not package or dist" & - "ribute this program with any scripts or additional content." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please distribute a" & - "dditional files separately." - Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label33 - ' - Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label33.Location = New System.Drawing.Point(32, 191) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(641, 77) - Me.Label33.TabIndex = 169 - Me.Label33.Text = resources.GetString("Label33.Text") - Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(522, 78) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(93, 13) - Me.Label17.TabIndex = 168 - Me.Label17.Text = "Designed by 1885" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(489, 417) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(215, 13) - Me.Label3.TabIndex = 167 - Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" - ' - 'PictureBox3 - ' - Me.PictureBox3.BackColor = System.Drawing.Color.LightGray - Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big - Me.PictureBox3.Location = New System.Drawing.Point(84, 17) - Me.PictureBox3.Name = "PictureBox3" - Me.PictureBox3.Size = New System.Drawing.Size(531, 58) - Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PictureBox3.TabIndex = 166 - Me.PictureBox3.TabStop = False - ' - 'Label41 - ' - Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label41.Location = New System.Drawing.Point(35, 372) - Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(638, 39) - Me.Label41.TabIndex = 172 - Me.Label41.Text = "Thank you to everyone who has provided help and feedback." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Thank you to the commu" & - "nity who's been supportive of my work over the years. Tease AI exists because of" & - " you." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) - Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'GBGiveUp - ' - Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) - Me.GBGiveUp.Location = New System.Drawing.Point(455, 344) - Me.GBGiveUp.Name = "GBGiveUp" - Me.GBGiveUp.Size = New System.Drawing.Size(234, 48) - Me.GBGiveUp.TabIndex = 42 - Me.GBGiveUp.TabStop = False - Me.GBGiveUp.Text = "Give Up" - ' - 'giveupCheckBox - ' - Me.giveupCheckBox.AutoSize = True - Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black - Me.giveupCheckBox.Location = New System.Drawing.Point(16, 19) - Me.giveupCheckBox.Name = "giveupCheckBox" - Me.giveupCheckBox.Size = New System.Drawing.Size(135, 17) - Me.giveupCheckBox.TabIndex = 38 - Me.giveupCheckBox.Text = "Give up continue script" - Me.giveupCheckBox.UseVisualStyleBackColor = True - ' - 'GroupBox47 - ' - Me.GroupBox47.BackColor = System.Drawing.Color.LightGray - Me.GroupBox47.Controls.Add(Me.GroupBox41) - Me.GroupBox47.Controls.Add(Me.GroupBox40) - Me.GroupBox47.ForeColor = System.Drawing.Color.Black - Me.GroupBox47.Location = New System.Drawing.Point(806, 255) - Me.GroupBox47.Name = "GroupBox47" - Me.GroupBox47.Size = New System.Drawing.Size(310, 190) - Me.GroupBox47.TabIndex = 63 - Me.GroupBox47.TabStop = False - Me.GroupBox47.Text = "Boobs and Butts Paths" - ' - 'GroupBox41 - ' - Me.GroupBox41.Controls.Add(Me.Button34) - Me.GroupBox41.Location = New System.Drawing.Point(6, 110) - Me.GroupBox41.Name = "GroupBox41" - Me.GroupBox41.Size = New System.Drawing.Size(298, 74) - Me.GroupBox41.TabIndex = 153 - Me.GroupBox41.TabStop = False - Me.GroupBox41.Text = "Butts" - ' - 'Button34 - ' - Me.Button34.BackColor = System.Drawing.Color.LightGray - Me.Button34.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.Button34.ForeColor = System.Drawing.Color.Black - Me.Button34.Location = New System.Drawing.Point(85, 25) - Me.Button34.Name = "Button34" - Me.Button34.Size = New System.Drawing.Size(34, 28) - Me.Button34.TabIndex = 131 - Me.Button34.Text = "1" - Me.Button34.UseVisualStyleBackColor = False - ' - 'GroupBox40 - ' - Me.GroupBox40.Location = New System.Drawing.Point(5, 35) - Me.GroupBox40.Name = "GroupBox40" - Me.GroupBox40.Size = New System.Drawing.Size(298, 74) - Me.GroupBox40.TabIndex = 152 - Me.GroupBox40.TabStop = False - Me.GroupBox40.Text = "Boobs" - ' - 'GroupBox44 - ' - Me.GroupBox44.BackColor = System.Drawing.Color.LightGray - Me.GroupBox44.Controls.Add(Me.Label100) - Me.GroupBox44.ForeColor = System.Drawing.Color.Black - Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) - Me.GroupBox44.Name = "GroupBox44" - Me.GroupBox44.Size = New System.Drawing.Size(310, 92) - Me.GroupBox44.TabIndex = 65 - Me.GroupBox44.TabStop = False - Me.GroupBox44.Text = "Description" - ' - 'Label100 - ' - Me.Label100.BackColor = System.Drawing.Color.Transparent - Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label100.ForeColor = System.Drawing.Color.Black - Me.Label100.Location = New System.Drawing.Point(11, 16) - Me.Label100.Name = "Label100" - Me.Label100.Size = New System.Drawing.Size(286, 73) - Me.Label100.TabIndex = 62 - Me.Label100.Text = resources.GetString("Label100.Text") - Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox6 - ' - Me.GroupBox6.Controls.Add(Me.Label4) - Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) - Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) - Me.GroupBox6.Controls.Add(Me.Label94) - Me.GroupBox6.Controls.Add(Me.LBLLastRuined) - Me.GroupBox6.Controls.Add(Me.Label65) - Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) - Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) - Me.GroupBox6.Controls.Add(Me.Label14) - Me.GroupBox6.Controls.Add(Me.Label13) - Me.GroupBox6.Controls.Add(Me.Label1) - Me.GroupBox6.Location = New System.Drawing.Point(27, 114) - Me.GroupBox6.Name = "GroupBox6" - Me.GroupBox6.Size = New System.Drawing.Size(283, 102) - Me.GroupBox6.TabIndex = 156 - Me.GroupBox6.TabStop = False - Me.GroupBox6.Text = "Performance" - ' - 'Label4 - ' - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(26, 16) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(77, 17) - Me.Label4.TabIndex = 147 - Me.Label4.Text = "Stroking Time" - Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLAvgEdgeStroking - ' - Me.LBLAvgEdgeStroking.AutoSize = True - Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) - Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" - Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) - Me.LBLAvgEdgeStroking.TabIndex = 144 - Me.LBLAvgEdgeStroking.Text = "00:00" - Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLStrokeTimeTotal - ' - Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) - Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" - Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) - Me.LBLStrokeTimeTotal.TabIndex = 148 - Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" - Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label94 - ' - Me.Label94.BackColor = System.Drawing.Color.Transparent - Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label94.ForeColor = System.Drawing.Color.Black - Me.Label94.Location = New System.Drawing.Point(189, 16) - Me.Label94.Name = "Label94" - Me.Label94.Size = New System.Drawing.Size(65, 17) - Me.Label94.TabIndex = 150 - Me.Label94.Text = "Last Ruined" - Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLLastRuined - ' - Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) - Me.LBLLastRuined.Name = "LBLLastRuined" - Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) - Me.LBLLastRuined.TabIndex = 152 - Me.LBLLastRuined.Text = "04/28/2015" - Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label65 - ' - Me.Label65.BackColor = System.Drawing.Color.Transparent - Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label65.ForeColor = System.Drawing.Color.Black - Me.Label65.Location = New System.Drawing.Point(103, 16) - Me.Label65.Name = "Label65" - Me.Label65.Size = New System.Drawing.Size(85, 17) - Me.Label65.TabIndex = 149 - Me.Label65.Text = "Last Orgasm" - Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLAvgEdgeNoTouch - ' - Me.LBLAvgEdgeNoTouch.AutoSize = True - Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) - Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" - Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) - Me.LBLAvgEdgeNoTouch.TabIndex = 146 - Me.LBLAvgEdgeNoTouch.Text = "00:00" - Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLLastOrgasm - ' - Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) - Me.LBLLastOrgasm.Name = "LBLLastOrgasm" - Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) - Me.LBLLastOrgasm.TabIndex = 151 - Me.LBLLastOrgasm.Text = "04/28/2015" - Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label14 - ' - Me.Label14.BackColor = System.Drawing.Color.Transparent - Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label14.ForeColor = System.Drawing.Color.Black - Me.Label14.Location = New System.Drawing.Point(25, 48) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(238, 17) - Me.Label14.TabIndex = 138 - Me.Label14.Text = "Average Time to Edge" - Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(177, 68) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(32, 13) - Me.Label13.TabIndex = 145 - Me.Label13.Text = "Rest:" - Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(28, 68) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(79, 13) - Me.Label1.TabIndex = 143 - Me.Label1.Text = "While Stroking:" - Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox21 - ' - Me.GroupBox21.BackColor = System.Drawing.Color.LightGray - Me.GroupBox21.Controls.Add(Me.Label153) - Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) - Me.GroupBox21.Controls.Add(Me.GroupBox6) - Me.GroupBox21.Controls.Add(Me.Label156) - Me.GroupBox21.ForeColor = System.Drawing.Color.Black - Me.GroupBox21.Location = New System.Drawing.Point(797, 55) - Me.GroupBox21.Name = "GroupBox21" - Me.GroupBox21.Size = New System.Drawing.Size(316, 136) - Me.GroupBox21.TabIndex = 66 - Me.GroupBox21.TabStop = False - Me.GroupBox21.Text = "Description" - ' - 'Label153 - ' - Me.Label153.BackColor = System.Drawing.Color.Transparent - Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label153.ForeColor = System.Drawing.Color.Black - Me.Label153.Location = New System.Drawing.Point(78, 94) - Me.Label153.Name = "Label153" - Me.Label153.Size = New System.Drawing.Size(158, 17) - Me.Label153.TabIndex = 135 - Me.Label153.Text = "No path selected" - Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLRangeSettingsDescription - ' - Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent - Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black - Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) - Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" - Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) - Me.LBLRangeSettingsDescription.TabIndex = 62 - Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & - "n." - Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label156 - ' - Me.Label156.BackColor = System.Drawing.Color.Transparent - Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label156.ForeColor = System.Drawing.Color.Black - Me.Label156.Location = New System.Drawing.Point(133, 23) - Me.Label156.Name = "Label156" - Me.Label156.Size = New System.Drawing.Size(158, 17) - Me.Label156.TabIndex = 135 - Me.Label156.Text = "No path selected" - Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox12 - ' - Me.GroupBox12.BackColor = System.Drawing.Color.LightGray - Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) - Me.GroupBox12.ForeColor = System.Drawing.Color.Black - Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) - Me.GroupBox12.Name = "GroupBox12" - Me.GroupBox12.Size = New System.Drawing.Size(171, 124) - Me.GroupBox12.TabIndex = 65 - Me.GroupBox12.TabStop = False - Me.GroupBox12.Text = "Description" - ' - 'LBLSubSettingsDescription - ' - Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent - Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black - Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) - Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" - Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) - Me.LBLSubSettingsDescription.TabIndex = 62 - Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & - "n." - ' - 'OpenFileDialog1 - ' - Me.OpenFileDialog1.FileName = "OpenFileDialog1" - Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file" & - "s (*.*)|*.*" - Me.OpenFileDialog1.Title = "Select an image file" - ' - 'GetColor - ' - Me.GetColor.Color = System.Drawing.Color.SteelBlue - ' - 'WebImageFileDialog - ' - Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.WebImageFileDialog.Title = "Please select a URL File" - ' - 'OpenScriptDialog - ' - Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.OpenScriptDialog.Title = "Please select a script" - ' - 'OpenSettingsDialog - ' - Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.OpenSettingsDialog.Title = "Please select a settings file to open" - ' - 'SaveSettingsDialog - ' - Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" - ' - 'GroupBox65 - ' - Me.GroupBox65.BackColor = System.Drawing.Color.LightGray - Me.GroupBox65.Controls.Add(Me.Label136) - Me.GroupBox65.Controls.Add(Me.Label134) - Me.GroupBox65.Controls.Add(Me.Label132) - Me.GroupBox65.Controls.Add(Me.TrackBar1) - Me.GroupBox65.Controls.Add(Me.ComboBox1) - Me.GroupBox65.Controls.Add(Me.CheckBox1) - Me.GroupBox65.Controls.Add(Me.Label135) - Me.GroupBox65.Controls.Add(Me.TrackBar2) - Me.GroupBox65.ForeColor = System.Drawing.Color.Black - Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) - Me.GroupBox65.Name = "GroupBox65" - Me.GroupBox65.Size = New System.Drawing.Size(259, 117) - Me.GroupBox65.TabIndex = 157 - Me.GroupBox65.TabStop = False - Me.GroupBox65.Text = "Text to Speech" - ' - 'Label136 - ' - Me.Label136.AutoSize = True - Me.Label136.Location = New System.Drawing.Point(14, 52) - Me.Label136.Name = "Label136" - Me.Label136.Size = New System.Drawing.Size(45, 13) - Me.Label136.TabIndex = 32 - Me.Label136.Text = "Volume:" - ' - 'Label134 - ' - Me.Label134.AutoSize = True - Me.Label134.Location = New System.Drawing.Point(141, 52) - Me.Label134.Name = "Label134" - Me.Label134.Size = New System.Drawing.Size(33, 13) - Me.Label134.TabIndex = 157 - Me.Label134.Text = "Rate:" - ' - 'Label132 - ' - Me.Label132.Location = New System.Drawing.Point(202, 52) - Me.Label132.Name = "Label132" - Me.Label132.Size = New System.Drawing.Size(45, 13) - Me.Label132.TabIndex = 158 - Me.Label132.Text = "100" - Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'TrackBar1 - ' - Me.TrackBar1.Location = New System.Drawing.Point(133, 68) - Me.TrackBar1.Minimum = -10 - Me.TrackBar1.Name = "TrackBar1" - Me.TrackBar1.Size = New System.Drawing.Size(120, 45) - Me.TrackBar1.TabIndex = 31 - ' - 'ComboBox1 - ' - Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window - Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(71, 16) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(178, 21) - Me.ComboBox1.TabIndex = 29 - Me.ComboBox1.TabStop = False - ' - 'CheckBox1 - ' - Me.CheckBox1.AutoSize = True - Me.CheckBox1.ForeColor = System.Drawing.Color.Black - Me.CheckBox1.Location = New System.Drawing.Point(10, 18) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(59, 17) - Me.CheckBox1.TabIndex = 28 - Me.CheckBox1.TabStop = False - Me.CheckBox1.Text = "Enable" - Me.CheckBox1.UseVisualStyleBackColor = True - ' - 'Label135 - ' - Me.Label135.Location = New System.Drawing.Point(75, 52) - Me.Label135.Name = "Label135" - Me.Label135.Size = New System.Drawing.Size(45, 13) - Me.Label135.TabIndex = 33 - Me.Label135.Text = "100" - Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'TrackBar2 - ' - Me.TrackBar2.Location = New System.Drawing.Point(6, 68) - Me.TrackBar2.Maximum = 100 - Me.TrackBar2.Name = "TrackBar2" - Me.TrackBar2.Size = New System.Drawing.Size(120, 45) - Me.TrackBar2.TabIndex = 30 - Me.TrackBar2.Value = 50 - ' - 'TxbImgUrlHardcore - ' - Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray - Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) - Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" - Me.TxbImgUrlHardcore.ReadOnly = True - Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) - Me.TxbImgUrlHardcore.TabIndex = 145 - ' - 'TextBox2 - ' - Me.TextBox2.BackColor = System.Drawing.Color.LightGray - Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill - Me.TextBox2.Location = New System.Drawing.Point(116, 34) - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.ReadOnly = True - Me.TextBox2.Size = New System.Drawing.Size(189, 20) - Me.TextBox2.TabIndex = 145 - ' - 'BWURLFiles - ' - Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" - Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" - Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" - Me.BWURLFiles.WorkerReportsProgress = True - Me.BWURLFiles.WorkerSupportsCancellation = True - ' - 'FrmSettings - ' - Me.AllowDrop = True - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(727, 465) - Me.Controls.Add(Me.GroupBox65) - Me.Controls.Add(Me.GroupBox44) - Me.Controls.Add(Me.GroupBox47) - Me.Controls.Add(Me.SettingsPanel) - Me.Controls.Add(Me.GroupBox12) - Me.Controls.Add(Me.GroupBox21) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D - Me.MaximizeBox = False - Me.MinimizeBox = False - Me.Name = "FrmSettings" - Me.ShowIcon = False - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Tease AI Settings" - Me.SettingsPanel.ResumeLayout(False) - Me.SettingsTabs.ResumeLayout(False) - Me.TabPage1.ResumeLayout(False) - Me.PNLGeneralSettings.ResumeLayout(False) - Me.PNLGeneralSettings.PerformLayout() - Me.GroupBox64.ResumeLayout(False) - Me.GroupBox64.PerformLayout() - Me.GBDommeImages.ResumeLayout(False) - Me.GBDommeImages.PerformLayout() - CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGeneralTextToSpeech.ResumeLayout(False) - Me.GBGeneralTextToSpeech.PerformLayout() - CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBSafeword.ResumeLayout(False) - Me.GBSafeword.PerformLayout() - Me.GBGeneralSystem.ResumeLayout(False) - Me.GBGeneralSystem.PerformLayout() - Me.GBGeneralImages.ResumeLayout(False) - Me.GBGeneralImages.PerformLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGeneralSettings.ResumeLayout(False) - Me.GBGeneralSettings.PerformLayout() - Me.GBSubFont.ResumeLayout(False) - CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDommeFont.ResumeLayout(False) - CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage2.ResumeLayout(False) - Me.Panel3.ResumeLayout(False) - Me.Panel3.PerformLayout() - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomTypingStyle.ResumeLayout(False) - Me.GBDomTypingStyle.PerformLayout() - CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox63.ResumeLayout(False) - Me.GroupBox63.PerformLayout() - Me.GBDomRanges.ResumeLayout(False) - CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomStats.ResumeLayout(False) - Me.GBDomStats.PerformLayout() - CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomPersonality.ResumeLayout(False) - Me.GBDomPersonality.PerformLayout() - Me.GBDomOrgasms.ResumeLayout(False) - Me.GBDomOrgasms.PerformLayout() - CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomPetNames.ResumeLayout(False) - Me.GBDomPetNames.PerformLayout() - Me.TabPage10.ResumeLayout(False) - Me.Panel2.ResumeLayout(False) - Me.GroupBox22.ResumeLayout(False) - CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox45.ResumeLayout(False) - CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox35.ResumeLayout(False) - Me.GroupBox39.ResumeLayout(False) - Me.GroupBox39.PerformLayout() - Me.GroupBox38.ResumeLayout(False) - Me.GroupBox38.PerformLayout() - Me.GroupBox37.ResumeLayout(False) - Me.GroupBox37.PerformLayout() - Me.GroupBox36.ResumeLayout(False) - Me.GroupBox36.PerformLayout() - Me.GroupBox13.ResumeLayout(False) - Me.GroupBox7.ResumeLayout(False) - Me.GroupBox7.PerformLayout() - CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox32.ResumeLayout(False) - Me.GroupBox32.PerformLayout() - CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage16.ResumeLayout(False) - Me.Panel9.ResumeLayout(False) - Me.GroupBox31.ResumeLayout(False) - Me.TCScripts.ResumeLayout(False) - Me.TabPage21.ResumeLayout(False) - Me.TabPage17.ResumeLayout(False) - Me.TabPage18.ResumeLayout(False) - Me.TabPage19.ResumeLayout(False) - Me.GroupBox42.ResumeLayout(False) - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox43.ResumeLayout(False) - Me.TabPage7.ResumeLayout(False) - Me.TabControl4.ResumeLayout(False) - Me.TpImagesUrlFiles.ResumeLayout(False) - Me.TpImagesUrlFiles.PerformLayout() - Me.GroupBox66.ResumeLayout(False) - CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).EndInit() - Me.TpImagesGenre.ResumeLayout(False) - Me.GrbImageUrlFiles.ResumeLayout(False) - Me.TlpImageUrls.ResumeLayout(False) - Me.TlpImageUrls.PerformLayout() - Me.GbxImagesGenre.ResumeLayout(False) - Me.TableLayoutPanel1.ResumeLayout(False) - Me.TableLayoutPanel1.PerformLayout() - Me.TabPage33.ResumeLayout(False) - Me.TabControl5.ResumeLayout(False) - Me.TabPage34.ResumeLayout(False) - Me.TabPage34.PerformLayout() - CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage35.ResumeLayout(False) - Me.TabPage35.PerformLayout() - Me.GroupBox55.ResumeLayout(False) - Me.GroupBox55.PerformLayout() - Me.GroupBox53.ResumeLayout(False) - Me.GroupBox53.PerformLayout() - Me.GroupBox49.ResumeLayout(False) - Me.GroupBox49.PerformLayout() - Me.GroupBox46.ResumeLayout(False) - Me.GroupBox46.PerformLayout() - Me.GroupBox54.ResumeLayout(False) - Me.GroupBox54.PerformLayout() - Me.GroupBox51.ResumeLayout(False) - Me.GroupBox51.PerformLayout() - Me.GroupBox50.ResumeLayout(False) - Me.GroupBox50.PerformLayout() - Me.GroupBox48.ResumeLayout(False) - Me.GroupBox48.PerformLayout() - Me.TabPage11.ResumeLayout(False) - Me.Panel7.ResumeLayout(False) - Me.Panel7.PerformLayout() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.TpVideoSettings.ResumeLayout(False) - Me.PnlVideoSettings.ResumeLayout(False) - CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxVideoGeneralD.ResumeLayout(False) - Me.GbxVideoGeneralD.PerformLayout() - Me.GbxVideoSpecialD.ResumeLayout(False) - Me.GbxVideoSpecialD.PerformLayout() - Me.GbxVideoGenreD.ResumeLayout(False) - Me.GbxVideoGenreD.PerformLayout() - Me.GbxVideoDescription.ResumeLayout(False) - Me.GbxVideoGeneral.ResumeLayout(False) - Me.GbxVideoGeneral.PerformLayout() - Me.GbxVideoSpecial.ResumeLayout(False) - Me.GbxVideoSpecial.PerformLayout() - Me.GbxVideoGenre.ResumeLayout(False) - Me.GbxVideoGenre.PerformLayout() - Me.TabPage20.ResumeLayout(False) - Me.TabControl1.ResumeLayout(False) - Me.TabPage22.ResumeLayout(False) - Me.PNLGlitter.ResumeLayout(False) - Me.PNLGlitter.PerformLayout() - Me.GBGlitterD.ResumeLayout(False) - Me.GBGlitterD.PerformLayout() - Me.GrbGlitterfeed.ResumeLayout(False) - Me.GrbGlitterfeed.PerformLayout() - CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGlitter1.ResumeLayout(False) - Me.GBGlitter1.PerformLayout() - CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGlitter3.ResumeLayout(False) - Me.GBGlitter3.PerformLayout() - CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGlitter2.ResumeLayout(False) - Me.GBGlitter2.PerformLayout() - CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).EndInit() - Me.TpGames.ResumeLayout(False) - Me.TpGames.PerformLayout() - Me.GbxCardsGold.ResumeLayout(False) - Me.GbxCardsGold.PerformLayout() - CType(Me.GP6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP4, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxCardsBackground.ResumeLayout(False) - CType(Me.CardBack, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxCardsBronze.ResumeLayout(False) - Me.GbxCardsBronze.PerformLayout() - CType(Me.BP3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxCardsSilver.ResumeLayout(False) - Me.GbxCardsSilver.PerformLayout() - CType(Me.SP6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP4, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage6.ResumeLayout(False) - Me.Panel10.ResumeLayout(False) - Me.Panel10.PerformLayout() - CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).EndInit() - Me.PNLWishList.ResumeLayout(False) - CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage26.ResumeLayout(False) - Me.Panel12.ResumeLayout(False) - Me.GroupBox9.ResumeLayout(False) - CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox5.ResumeLayout(False) - Me.GroupBox5.PerformLayout() - Me.GroupBox11.ResumeLayout(False) - Me.GroupBox1.ResumeLayout(False) - CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage4.ResumeLayout(False) - Me.Panel6.ResumeLayout(False) - Me.GroupBox69.ResumeLayout(False) - Me.GroupBox69.PerformLayout() - CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox68.ResumeLayout(False) - CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox67.ResumeLayout(False) - CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox10.ResumeLayout(False) - CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox57.ResumeLayout(False) - Me.GroupBox57.PerformLayout() - CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBRangeRuinChance.ResumeLayout(False) - Me.GBRangeRuinChance.PerformLayout() - CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox17.ResumeLayout(False) - Me.GroupBox19.ResumeLayout(False) - CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox18.ResumeLayout(False) - Me.GroupBox18.PerformLayout() - CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBRangeOrgasmChance.ResumeLayout(False) - Me.GBRangeOrgasmChance.PerformLayout() - CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage13.ResumeLayout(False) - Me.TabControl2.ResumeLayout(False) - Me.TabPage27.ResumeLayout(False) - Me.TabPage27.PerformLayout() - Me.TabPage14.ResumeLayout(False) - Me.TabPage14.PerformLayout() - Me.TabPage24.ResumeLayout(False) - Me.TabPage24.PerformLayout() - Me.TabPage8.ResumeLayout(False) - Me.GroupBox29.ResumeLayout(False) - Me.GroupBox28.ResumeLayout(False) - Me.GroupBox30.ResumeLayout(False) - Me.TabPage15.ResumeLayout(False) - Me.TabPage15.PerformLayout() - Me.GroupBox34.ResumeLayout(False) - Me.TabPage25.ResumeLayout(False) - Me.Panel11.ResumeLayout(False) - Me.GroupBox62.ResumeLayout(False) - Me.GroupBox62.PerformLayout() - Me.GroupBox33.ResumeLayout(False) - Me.GroupBox27.ResumeLayout(False) - Me.GroupBox27.PerformLayout() - Me.GroupBox20.ResumeLayout(False) - Me.GroupBox20.PerformLayout() - Me.GroupBox15.ResumeLayout(False) - Me.GroupBox15.PerformLayout() - CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage28.ResumeLayout(False) - Me.TabControl3.ResumeLayout(False) - Me.TabPage29.ResumeLayout(False) - Me.GroupBox26.ResumeLayout(False) - Me.GroupBox26.PerformLayout() - Me.TabPage30.ResumeLayout(False) - Me.TabPage5.ResumeLayout(False) - Me.Panel5.ResumeLayout(False) - Me.Panel5.PerformLayout() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGiveUp.ResumeLayout(False) - Me.GBGiveUp.PerformLayout() - Me.GroupBox47.ResumeLayout(False) - Me.GroupBox41.ResumeLayout(False) - Me.GroupBox44.ResumeLayout(False) - Me.GroupBox6.ResumeLayout(False) - Me.GroupBox6.PerformLayout() - Me.GroupBox21.ResumeLayout(False) - Me.GroupBox12.ResumeLayout(False) - Me.GroupBox65.ResumeLayout(False) - Me.GroupBox65.PerformLayout() - CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) +Me.components = New System.ComponentModel.Container() +Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) +Me.SettingsPanel = New System.Windows.Forms.Panel() +Me.SettingsTabs = New System.Windows.Forms.TabControl() +Me.TabPage1 = New System.Windows.Forms.TabPage() +Me.PNLGeneralSettings = New System.Windows.Forms.Panel() +Me.GroupBox2 = New System.Windows.Forms.GroupBox() +Me.CBRandomDomme = New System.Windows.Forms.CheckBox() +Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() +Me.BtnRandomImageDir = New System.Windows.Forms.Button() +Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() +Me.BtnImportSettings = New System.Windows.Forms.Button() +Me.LblImportSettings = New System.Windows.Forms.Label() +Me.GroupBox64 = New System.Windows.Forms.GroupBox() +Me.CBMuteMedia = New System.Windows.Forms.CheckBox() +Me.GBDommeImages = New System.Windows.Forms.GroupBox() +Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() +Me.teaseRadio = New System.Windows.Forms.RadioButton() +Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() +Me.offRadio = New System.Windows.Forms.RadioButton() +Me.BTNDomImageDir = New System.Windows.Forms.Button() +Me.timedRadio = New System.Windows.Forms.RadioButton() +Me.TbxDomImageDir = New System.Windows.Forms.TextBox() +Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() +Me.LBLVRate = New System.Windows.Forms.Label() +Me.Label93 = New System.Windows.Forms.Label() +Me.LBLVVolume = New System.Windows.Forms.Label() +Me.Label68 = New System.Windows.Forms.Label() +Me.SliderVRate = New System.Windows.Forms.TrackBar() +Me.SliderVVolume = New System.Windows.Forms.TrackBar() +Me.TTSCheckBox = New System.Windows.Forms.CheckBox() +Me.TTSComboBox = New System.Windows.Forms.ComboBox() +Me.GBSafeword = New System.Windows.Forms.GroupBox() +Me.LBLSafeword = New System.Windows.Forms.Label() +Me.TBSafeword = New System.Windows.Forms.TextBox() +Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() +Me.CBAuditStartup = New System.Windows.Forms.CheckBox() +Me.CBDomDel = New System.Windows.Forms.CheckBox() +Me.CBSettingsPause = New System.Windows.Forms.CheckBox() +Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() +Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() +Me.GBGeneralImages = New System.Windows.Forms.GroupBox() +Me.CBImageInfo = New System.Windows.Forms.CheckBox() +Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() +Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() +Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() +Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() +Me.PictureBox2 = New System.Windows.Forms.PictureBox() +Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() +Me.CBWebtease = New System.Windows.Forms.CheckBox() +Me.GBSubFont = New System.Windows.Forms.GroupBox() +Me.BTNSubColor = New System.Windows.Forms.Button() +Me.LBLSubColor = New System.Windows.Forms.Label() +Me.NBFontSize = New System.Windows.Forms.NumericUpDown() +Me.Label2 = New System.Windows.Forms.Label() +Me.FontComboBox = New System.Windows.Forms.ComboBox() +Me.GBDommeFont = New System.Windows.Forms.GroupBox() +Me.BTNDomColor = New System.Windows.Forms.Button() +Me.LBLDomColor = New System.Windows.Forms.Label() +Me.FontComboBoxD = New System.Windows.Forms.ComboBox() +Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() +Me.Label7 = New System.Windows.Forms.Label() +Me.CBInputIcon = New System.Windows.Forms.CheckBox() +Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() +Me.timestampCheckBox = New System.Windows.Forms.CheckBox() +Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() +Me.LBLGeneralSettings = New System.Windows.Forms.Label() +Me.TabPage2 = New System.Windows.Forms.TabPage() +Me.Panel3 = New System.Windows.Forms.Panel() +Me.GBGiveUp = New System.Windows.Forms.GroupBox() +Me.giveupCheckBox = New System.Windows.Forms.CheckBox() +Me.BTNLoadDomSet = New System.Windows.Forms.Button() +Me.BTNSaveDomSet = New System.Windows.Forms.Button() +Me.Label127 = New System.Windows.Forms.Label() +Me.Label126 = New System.Windows.Forms.Label() +Me.PictureBox4 = New System.Windows.Forms.PictureBox() +Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() +Me.TBEmoteEnd = New System.Windows.Forms.TextBox() +Me.Label67 = New System.Windows.Forms.Label() +Me.TBEmote = New System.Windows.Forms.TextBox() +Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() +Me.Label66 = New System.Windows.Forms.Label() +Me.CBMeMyMine = New System.Windows.Forms.CheckBox() +Me.GroupBox63 = New System.Windows.Forms.GroupBox() +Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() +Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() +Me.periodCheckBox = New System.Windows.Forms.CheckBox() +Me.commaCheckBox = New System.Windows.Forms.CheckBox() +Me.Label64 = New System.Windows.Forms.Label() +Me.GBDomRanges = New System.Windows.Forms.GroupBox() +Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() +Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() +Me.Label37 = New System.Windows.Forms.Label() +Me.Label39 = New System.Windows.Forms.Label() +Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() +Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() +Me.Label31 = New System.Windows.Forms.Label() +Me.Label36 = New System.Windows.Forms.Label() +Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() +Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() +Me.Label21 = New System.Windows.Forms.Label() +Me.Label22 = New System.Windows.Forms.Label() +Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() +Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() +Me.Label23 = New System.Windows.Forms.Label() +Me.Label30 = New System.Windows.Forms.Label() +Me.GBDomStats = New System.Windows.Forms.GroupBox() +Me.Label128 = New System.Windows.Forms.Label() +Me.LBLEmpathy = New System.Windows.Forms.Label() +Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() +Me.Label83 = New System.Windows.Forms.Label() +Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() +Me.TBDomEyeColor = New System.Windows.Forms.TextBox() +Me.TBDomHairColor = New System.Windows.Forms.TextBox() +Me.domageNumBox = New System.Windows.Forms.NumericUpDown() +Me.Label47 = New System.Windows.Forms.Label() +Me.Label76 = New System.Windows.Forms.Label() +Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() +Me.Label84 = New System.Windows.Forms.Label() +Me.CBDomTattoos = New System.Windows.Forms.CheckBox() +Me.CBDomFreckles = New System.Windows.Forms.CheckBox() +Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() +Me.Label10 = New System.Windows.Forms.Label() +Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() +Me.Label9 = New System.Windows.Forms.Label() +Me.boobComboBox = New System.Windows.Forms.ComboBox() +Me.DomLevelDescLabel = New System.Windows.Forms.Label() +Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() +Me.Label43 = New System.Windows.Forms.Label() +Me.Label44 = New System.Windows.Forms.Label() +Me.Label45 = New System.Windows.Forms.Label() +Me.Label46 = New System.Windows.Forms.Label() +Me.GBDomPersonality = New System.Windows.Forms.GroupBox() +Me.degradingCheckBox = New System.Windows.Forms.CheckBox() +Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() +Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() +Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() +Me.crazyCheckBox = New System.Windows.Forms.CheckBox() +Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() +Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() +Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() +Me.orgasmlockrandombutton = New System.Windows.Forms.Button() +Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() +Me.Label16 = New System.Windows.Forms.Label() +Me.Label12 = New System.Windows.Forms.Label() +Me.orgasmsperlockButton = New System.Windows.Forms.Button() +Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() +Me.orgasmsperLabel = New System.Windows.Forms.Label() +Me.limitcheckbox = New System.Windows.Forms.CheckBox() +Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() +Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() +Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() +Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() +Me.GBDomPetNames = New System.Windows.Forms.GroupBox() +Me.Label74 = New System.Windows.Forms.Label() +Me.petnameBox7 = New System.Windows.Forms.TextBox() +Me.petnameBox8 = New System.Windows.Forms.TextBox() +Me.petnameBox1 = New System.Windows.Forms.TextBox() +Me.Label15 = New System.Windows.Forms.Label() +Me.petnameBox4 = New System.Windows.Forms.TextBox() +Me.petnameBox6 = New System.Windows.Forms.TextBox() +Me.petnameBox2 = New System.Windows.Forms.TextBox() +Me.Label11 = New System.Windows.Forms.Label() +Me.petnameBox5 = New System.Windows.Forms.TextBox() +Me.petnameBox3 = New System.Windows.Forms.TextBox() +Me.Label54 = New System.Windows.Forms.Label() +Me.TabPage10 = New System.Windows.Forms.TabPage() +Me.Panel2 = New System.Windows.Forms.Panel() +Me.GroupBox22 = New System.Windows.Forms.GroupBox() +Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() +Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() +Me.Label75 = New System.Windows.Forms.Label() +Me.Label77 = New System.Windows.Forms.Label() +Me.GroupBox45 = New System.Windows.Forms.GroupBox() +Me.LBLCBTSlider = New System.Windows.Forms.Label() +Me.CBCBTBalls = New System.Windows.Forms.CheckBox() +Me.CBCBTCock = New System.Windows.Forms.CheckBox() +Me.CBTSlider = New System.Windows.Forms.TrackBar() +Me.GroupBox35 = New System.Windows.Forms.GroupBox() +Me.GroupBox39 = New System.Windows.Forms.GroupBox() +Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() +Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() +Me.TBHonorific = New System.Windows.Forms.TextBox() +Me.GroupBox38 = New System.Windows.Forms.GroupBox() +Me.TBNo = New System.Windows.Forms.TextBox() +Me.GroupBox37 = New System.Windows.Forms.GroupBox() +Me.TBYes = New System.Windows.Forms.TextBox() +Me.GroupBox36 = New System.Windows.Forms.GroupBox() +Me.TBGreeting = New System.Windows.Forms.TextBox() +Me.GroupBox13 = New System.Windows.Forms.GroupBox() +Me.Label34 = New System.Windows.Forms.Label() +Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() +Me.GroupBox7 = New System.Windows.Forms.GroupBox() +Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() +Me.LBLMinExtremeHold = New System.Windows.Forms.Label() +Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() +Me.Label133 = New System.Windows.Forms.Label() +Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() +Me.LBLMaxLongHold = New System.Windows.Forms.Label() +Me.Label78 = New System.Windows.Forms.Label() +Me.LBLMinLongHold = New System.Windows.Forms.Label() +Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() +Me.Label129 = New System.Windows.Forms.Label() +Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() +Me.LBLMaxHold = New System.Windows.Forms.Label() +Me.Label79 = New System.Windows.Forms.Label() +Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() +Me.LBLMinHold = New System.Windows.Forms.Label() +Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() +Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() +Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() +Me.Label55 = New System.Windows.Forms.Label() +Me.Label81 = New System.Windows.Forms.Label() +Me.Label5 = New System.Windows.Forms.Label() +Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() +Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() +Me.Label131 = New System.Windows.Forms.Label() +Me.PictureBox12 = New System.Windows.Forms.PictureBox() +Me.GroupBox32 = New System.Windows.Forms.GroupBox() +Me.LBLSubBdayFormat = New System.Windows.Forms.Label() +Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() +Me.CBOwnChastity = New System.Windows.Forms.CheckBox() +Me.CBChastityPA = New System.Windows.Forms.CheckBox() +Me.CBHimHer = New System.Windows.Forms.CheckBox() +Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() +Me.CBCockToClit = New System.Windows.Forms.CheckBox() +Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() +Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() +Me.CBSubPierced = New System.Windows.Forms.CheckBox() +Me.TBSubEyeColor = New System.Windows.Forms.TextBox() +Me.TBSubHairColor = New System.Windows.Forms.TextBox() +Me.Label63 = New System.Windows.Forms.Label() +Me.LBLSubInches = New System.Windows.Forms.Label() +Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() +Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() +Me.LBLSubCockSize = New System.Windows.Forms.Label() +Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() +Me.LBLSubEye = New System.Windows.Forms.Label() +Me.LBLSubHair = New System.Windows.Forms.Label() +Me.LBLSubBirthday = New System.Windows.Forms.Label() +Me.LBLSubAge = New System.Windows.Forms.Label() +Me.Label70 = New System.Windows.Forms.Label() +Me.TabPage16 = New System.Windows.Forms.TabPage() +Me.Panel9 = New System.Windows.Forms.Panel() +Me.BTNScriptAvailable = New System.Windows.Forms.Button() +Me.BTNScriptNone = New System.Windows.Forms.Button() +Me.BTNScriptAll = New System.Windows.Forms.Button() +Me.BTNScriptOpen = New System.Windows.Forms.Button() +Me.LBLScriptReq = New System.Windows.Forms.Label() +Me.GroupBox31 = New System.Windows.Forms.GroupBox() +Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() +Me.TCScripts = New System.Windows.Forms.TabControl() +Me.TabPage21 = New System.Windows.Forms.TabPage() +Me.CLBStartList = New System.Windows.Forms.CheckedListBox() +Me.TabPage17 = New System.Windows.Forms.TabPage() +Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() +Me.TabPage18 = New System.Windows.Forms.TabPage() +Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() +Me.TabPage19 = New System.Windows.Forms.TabPage() +Me.CLBEndList = New System.Windows.Forms.CheckedListBox() +Me.GroupBox42 = New System.Windows.Forms.GroupBox() +Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() +Me.PictureBox1 = New System.Windows.Forms.PictureBox() +Me.GroupBox43 = New System.Windows.Forms.GroupBox() +Me.Label98 = New System.Windows.Forms.Label() +Me.Label104 = New System.Windows.Forms.Label() +Me.TabPage7 = New System.Windows.Forms.TabPage() +Me.TabControl4 = New System.Windows.Forms.TabControl() +Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() +Me.CBURLPreview = New System.Windows.Forms.CheckBox() +Me.GroupBox66 = New System.Windows.Forms.GroupBox() +Me.PBURLPreview = New System.Windows.Forms.PictureBox() +Me.BTNURLFilesAll = New System.Windows.Forms.Button() +Me.BTNURLFilesNone = New System.Windows.Forms.Button() +Me.URLFileList = New System.Windows.Forms.CheckedListBox() +Me.TpImagesGenre = New System.Windows.Forms.TabPage() +Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() +Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() +Me.BtnImageUrlButt = New System.Windows.Forms.Button() +Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() +Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() +Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() +Me.BtnImageUrlHentai = New System.Windows.Forms.Button() +Me.BtnImageUrlGay = New System.Windows.Forms.Button() +Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() +Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() +Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() +Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() +Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() +Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() +Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() +Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() +Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() +Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() +Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() +Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() +Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() +Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() +Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() +Me.BTNIHardcore = New System.Windows.Forms.Button() +Me.TbxIHardcore = New System.Windows.Forms.TextBox() +Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() +Me.CBIHardcore = New System.Windows.Forms.CheckBox() +Me.CBISoftcore = New System.Windows.Forms.CheckBox() +Me.TbxISoftcore = New System.Windows.Forms.TextBox() +Me.CBButtSubDir = New System.Windows.Forms.CheckBox() +Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() +Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() +Me.CBILezdomSD = New System.Windows.Forms.CheckBox() +Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() +Me.CBILesbianSD = New System.Windows.Forms.CheckBox() +Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() +Me.CBILesbian = New System.Windows.Forms.CheckBox() +Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjob = New System.Windows.Forms.CheckBox() +Me.CBIGaySD = New System.Windows.Forms.CheckBox() +Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() +Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() +Me.TbxIButts = New System.Windows.Forms.TextBox() +Me.CBIFemdom = New System.Windows.Forms.CheckBox() +Me.TbxILesbian = New System.Windows.Forms.TextBox() +Me.BTNISoftcore = New System.Windows.Forms.Button() +Me.CBILezdom = New System.Windows.Forms.CheckBox() +Me.TbxIBoobs = New System.Windows.Forms.TextBox() +Me.CBIHentai = New System.Windows.Forms.CheckBox() +Me.TbxIBlowjob = New System.Windows.Forms.TextBox() +Me.CBIGay = New System.Windows.Forms.CheckBox() +Me.TbxIGeneral = New System.Windows.Forms.TextBox() +Me.CBIMaledom = New System.Windows.Forms.CheckBox() +Me.TbxIFemdom = New System.Windows.Forms.TextBox() +Me.BTNILesbian = New System.Windows.Forms.Button() +Me.TbxICaptions = New System.Windows.Forms.TextBox() +Me.CBICaptions = New System.Windows.Forms.CheckBox() +Me.TbxILezdom = New System.Windows.Forms.TextBox() +Me.TbxIMaledom = New System.Windows.Forms.TextBox() +Me.BTNButtPath = New System.Windows.Forms.Button() +Me.TbxIHentai = New System.Windows.Forms.TextBox() +Me.CBIGeneral = New System.Windows.Forms.CheckBox() +Me.TbxIGay = New System.Windows.Forms.TextBox() +Me.CBIBoobs = New System.Windows.Forms.CheckBox() +Me.CBIButts = New System.Windows.Forms.CheckBox() +Me.BTNIBlowjob = New System.Windows.Forms.Button() +Me.BTNIFemdom = New System.Windows.Forms.Button() +Me.BTNBoobPath = New System.Windows.Forms.Button() +Me.BTNILezdom = New System.Windows.Forms.Button() +Me.BTNIHentai = New System.Windows.Forms.Button() +Me.BTNIGay = New System.Windows.Forms.Button() +Me.BTNIMaledom = New System.Windows.Forms.Button() +Me.BTNICaptions = New System.Windows.Forms.Button() +Me.BTNIGeneral = New System.Windows.Forms.Button() +Me.TabPage33 = New System.Windows.Forms.TabPage() +Me.TabControl5 = New System.Windows.Forms.TabControl() +Me.TabPage34 = New System.Windows.Forms.TabPage() +Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() +Me.CBTagAllFours = New System.Windows.Forms.CheckBox() +Me.CBTagGlaring = New System.Windows.Forms.CheckBox() +Me.CBTagSmiling = New System.Windows.Forms.CheckBox() +Me.TBTagDir = New System.Windows.Forms.TextBox() +Me.CBTagPiercing = New System.Windows.Forms.CheckBox() +Me.CBTagLegs = New System.Windows.Forms.CheckBox() +Me.TBTagFurniture = New System.Windows.Forms.TextBox() +Me.CBTagFurniture = New System.Windows.Forms.CheckBox() +Me.TBTagSexToy = New System.Windows.Forms.TextBox() +Me.CBTagSexToy = New System.Windows.Forms.CheckBox() +Me.TBTagTattoo = New System.Windows.Forms.TextBox() +Me.CBTagTattoo = New System.Windows.Forms.CheckBox() +Me.TBTagUnderwear = New System.Windows.Forms.TextBox() +Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() +Me.TBTagGarment = New System.Windows.Forms.TextBox() +Me.CBTagGarment = New System.Windows.Forms.CheckBox() +Me.Label72 = New System.Windows.Forms.Label() +Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() +Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() +Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() +Me.CBTagNaked = New System.Windows.Forms.RadioButton() +Me.CBTagSideView = New System.Windows.Forms.CheckBox() +Me.BTNTagPrevious = New System.Windows.Forms.Button() +Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() +Me.BTNTagNext = New System.Windows.Forms.Button() +Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() +Me.LBLTagCount = New System.Windows.Forms.Label() +Me.CBTagSucking = New System.Windows.Forms.CheckBox() +Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() +Me.CBTagFeet = New System.Windows.Forms.CheckBox() +Me.CBTagBoobs = New System.Windows.Forms.CheckBox() +Me.CBTagAss = New System.Windows.Forms.CheckBox() +Me.CBTagPussy = New System.Windows.Forms.CheckBox() +Me.BTNTagSave = New System.Windows.Forms.Button() +Me.BTNTagDir = New System.Windows.Forms.Button() +Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() +Me.CBTagFace = New System.Windows.Forms.CheckBox() +Me.TabPage35 = New System.Windows.Forms.TabPage() +Me.GroupBox55 = New System.Windows.Forms.GroupBox() +Me.CBTagNurse = New System.Windows.Forms.CheckBox() +Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() +Me.CBTagMaid = New System.Windows.Forms.CheckBox() +Me.CBTagTeacher = New System.Windows.Forms.CheckBox() +Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() +Me.GroupBox53 = New System.Windows.Forms.GroupBox() +Me.CBTagTrap = New System.Windows.Forms.CheckBox() +Me.CBTagTentacles = New System.Windows.Forms.CheckBox() +Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() +Me.CBTagBukkake = New System.Windows.Forms.CheckBox() +Me.CBTagGanguro = New System.Windows.Forms.CheckBox() +Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() +Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() +Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() +Me.CBTagAhegao = New System.Windows.Forms.CheckBox() +Me.CBTagShibari = New System.Windows.Forms.CheckBox() +Me.GroupBox49 = New System.Windows.Forms.GroupBox() +Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() +Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() +Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() +Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() +Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() +Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() +Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() +Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() +Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() +Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() +Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() +Me.GroupBox46 = New System.Windows.Forms.GroupBox() +Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() +Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() +Me.CBTagFemdom = New System.Windows.Forms.CheckBox() +Me.CBTag2M = New System.Windows.Forms.CheckBox() +Me.CBTagFutadom = New System.Windows.Forms.CheckBox() +Me.CBTagFemsub = New System.Windows.Forms.CheckBox() +Me.CBTag2Futa = New System.Windows.Forms.CheckBox() +Me.CBTagMaledom = New System.Windows.Forms.CheckBox() +Me.CBTag3M = New System.Windows.Forms.CheckBox() +Me.CBTagFutasub = New System.Windows.Forms.CheckBox() +Me.CBTag3Futa = New System.Windows.Forms.CheckBox() +Me.CBTagMalesub = New System.Windows.Forms.CheckBox() +Me.CBTag2F = New System.Windows.Forms.CheckBox() +Me.CBTag1Futa = New System.Windows.Forms.CheckBox() +Me.CBTag1M = New System.Windows.Forms.CheckBox() +Me.CBTag1F = New System.Windows.Forms.CheckBox() +Me.CBTag3F = New System.Windows.Forms.CheckBox() +Me.GroupBox54 = New System.Windows.Forms.GroupBox() +Me.CBTagTattoos = New System.Windows.Forms.CheckBox() +Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() +Me.CBTagDomme = New System.Windows.Forms.CheckBox() +Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() +Me.CBTagWatersports = New System.Windows.Forms.CheckBox() +Me.CBTagStockings = New System.Windows.Forms.CheckBox() +Me.CBTagCumshot = New System.Windows.Forms.CheckBox() +Me.CBTagCumEating = New System.Windows.Forms.CheckBox() +Me.CBTagVibrator = New System.Windows.Forms.CheckBox() +Me.CBTagDildo = New System.Windows.Forms.CheckBox() +Me.CBTagKissing = New System.Windows.Forms.CheckBox() +Me.GroupBox51 = New System.Windows.Forms.GroupBox() +Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() +Me.CBTagGag = New System.Windows.Forms.CheckBox() +Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() +Me.CBTagWhipping = New System.Windows.Forms.CheckBox() +Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() +Me.CBTagElectro = New System.Windows.Forms.CheckBox() +Me.CBTagHotWax = New System.Windows.Forms.CheckBox() +Me.CBTagClamps = New System.Windows.Forms.CheckBox() +Me.CBTagStrapon = New System.Windows.Forms.CheckBox() +Me.CBTagSpanking = New System.Windows.Forms.CheckBox() +Me.CBTagNeedles = New System.Windows.Forms.CheckBox() +Me.GroupBox50 = New System.Windows.Forms.GroupBox() +Me.CBTagRimming = New System.Windows.Forms.CheckBox() +Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() +Me.CBTagMissionary = New System.Windows.Forms.CheckBox() +Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() +Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() +Me.CBTagFingering = New System.Windows.Forms.CheckBox() +Me.CBTagGangbang = New System.Windows.Forms.CheckBox() +Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() +Me.CBTagDP = New System.Windows.Forms.CheckBox() +Me.CBTagHandjob = New System.Windows.Forms.CheckBox() +Me.CBTagStanding = New System.Windows.Forms.CheckBox() +Me.CBTagFootjob = New System.Windows.Forms.CheckBox() +Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() +Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() +Me.CBTagTitjob = New System.Windows.Forms.CheckBox() +Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() +Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() +Me.GroupBox48 = New System.Windows.Forms.GroupBox() +Me.CBTagArtwork = New System.Windows.Forms.CheckBox() +Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() +Me.CBTagPOV = New System.Windows.Forms.CheckBox() +Me.CBTagHardcore = New System.Windows.Forms.CheckBox() +Me.CBTagTD = New System.Windows.Forms.CheckBox() +Me.CBTagGay = New System.Windows.Forms.CheckBox() +Me.CBTagBath = New System.Windows.Forms.CheckBox() +Me.CBTagBisexual = New System.Windows.Forms.CheckBox() +Me.CBTagCFNM = New System.Windows.Forms.CheckBox() +Me.CBTagLesbian = New System.Windows.Forms.CheckBox() +Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() +Me.CBTagSM = New System.Windows.Forms.CheckBox() +Me.CBTagBondage = New System.Windows.Forms.CheckBox() +Me.CBTagSoloM = New System.Windows.Forms.CheckBox() +Me.CBTagSoloF = New System.Windows.Forms.CheckBox() +Me.CBTagChastity = New System.Windows.Forms.CheckBox() +Me.CBTagShower = New System.Windows.Forms.CheckBox() +Me.TBLocalTagDir = New System.Windows.Forms.TextBox() +Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() +Me.BTNLocalTagNext = New System.Windows.Forms.Button() +Me.LBLLocalTagCount = New System.Windows.Forms.Label() +Me.BTNLocalTagSave = New System.Windows.Forms.Button() +Me.BTNLocalTagDir = New System.Windows.Forms.Button() +Me.TabPage11 = New System.Windows.Forms.TabPage() +Me.Panel7 = New System.Windows.Forms.Panel() +Me.BTNWIContinue = New System.Windows.Forms.Button() +Me.BTNWIAddandContinue = New System.Windows.Forms.Button() +Me.BTNWICancel = New System.Windows.Forms.Button() +Me.CBWIReview = New System.Windows.Forms.CheckBox() +Me.BTNWIBrowse = New System.Windows.Forms.Button() +Me.TBWIDirectory = New System.Windows.Forms.TextBox() +Me.BTNWIDisliked = New System.Windows.Forms.Button() +Me.BTNWILiked = New System.Windows.Forms.Button() +Me.BTNWIRemove = New System.Windows.Forms.Button() +Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() +Me.PictureBox5 = New System.Windows.Forms.PictureBox() +Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() +Me.BTNWICreateURL = New System.Windows.Forms.Button() +Me.LBLWebImageCount = New System.Windows.Forms.Label() +Me.BTNWISave = New System.Windows.Forms.Button() +Me.BTNWIOpenURL = New System.Windows.Forms.Button() +Me.BTNWIPrevious = New System.Windows.Forms.Button() +Me.BTNWINext = New System.Windows.Forms.Button() +Me.WebPictureBox = New System.Windows.Forms.PictureBox() +Me.Label71 = New System.Windows.Forms.Label() +Me.TpVideoSettings = New System.Windows.Forms.TabPage() +Me.PnlVideoSettings = New System.Windows.Forms.Panel() +Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() +Me.BTNRefreshVideos = New System.Windows.Forms.Button() +Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() +Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() +Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() +Me.BTNVideoGeneralD = New System.Windows.Forms.Button() +Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() +Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() +Me.LblVideoCHTotalD = New System.Windows.Forms.Label() +Me.LblVideoJOITotalD = New System.Windows.Forms.Label() +Me.TxbVideoCHD = New System.Windows.Forms.TextBox() +Me.TxbVideoJOID = New System.Windows.Forms.TextBox() +Me.BTNVideoCHD = New System.Windows.Forms.Button() +Me.BTNVideoJOID = New System.Windows.Forms.Button() +Me.CBVideoJOID = New System.Windows.Forms.CheckBox() +Me.CBVideoCHD = New System.Windows.Forms.CheckBox() +Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() +Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() +Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() +Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() +Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() +Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() +Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() +Me.BTNVideoFemSubD = New System.Windows.Forms.Button() +Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() +Me.BTNVideoFemDomD = New System.Windows.Forms.Button() +Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() +Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() +Me.BTNVideoLesbianD = New System.Windows.Forms.Button() +Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() +Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() +Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() +Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() +Me.VideoDescriptionLabel = New System.Windows.Forms.Label() +Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() +Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() +Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() +Me.BTNVideoGeneral = New System.Windows.Forms.Button() +Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() +Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() +Me.LblVideoCHTotal = New System.Windows.Forms.Label() +Me.LblVideoJOITotal = New System.Windows.Forms.Label() +Me.TxbVideoCH = New System.Windows.Forms.TextBox() +Me.TxbVideoJOI = New System.Windows.Forms.TextBox() +Me.BTNVideoCH = New System.Windows.Forms.Button() +Me.BTNVideoJOI = New System.Windows.Forms.Button() +Me.CBVideoJOI = New System.Windows.Forms.CheckBox() +Me.CBVideoCH = New System.Windows.Forms.CheckBox() +Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() +Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() +Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() +Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() +Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() +Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() +Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() +Me.BTNVideoFemSub = New System.Windows.Forms.Button() +Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() +Me.BTNVideoFemDom = New System.Windows.Forms.Button() +Me.BTNVideoBlowjob = New System.Windows.Forms.Button() +Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() +Me.BTNVideoLesbian = New System.Windows.Forms.Button() +Me.BTNVideoSoftCore = New System.Windows.Forms.Button() +Me.BTNVideoHardCore = New System.Windows.Forms.Button() +Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() +Me.LblVideoHeader = New System.Windows.Forms.Label() +Me.TabPage20 = New System.Windows.Forms.TabPage() +Me.TabControl1 = New System.Windows.Forms.TabControl() +Me.TabPage22 = New System.Windows.Forms.TabPage() +Me.PNLGlitter = New System.Windows.Forms.Panel() +Me.Button15 = New System.Windows.Forms.Button() +Me.Button16 = New System.Windows.Forms.Button() +Me.Label121 = New System.Windows.Forms.Label() +Me.Label122 = New System.Windows.Forms.Label() +Me.GBGlitterD = New System.Windows.Forms.GroupBox() +Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() +Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() +Me.BTNGlitterD = New System.Windows.Forms.Button() +Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() +Me.LBLGlitterSlider = New System.Windows.Forms.Label() +Me.CBCustom2 = New System.Windows.Forms.CheckBox() +Me.GlitterSlider = New System.Windows.Forms.TrackBar() +Me.CBCustom1 = New System.Windows.Forms.CheckBox() +Me.CBDaily = New System.Windows.Forms.CheckBox() +Me.CBTrivia = New System.Windows.Forms.CheckBox() +Me.TBGlitterShortName = New System.Windows.Forms.TextBox() +Me.CBEgotist = New System.Windows.Forms.CheckBox() +Me.CBTease = New System.Windows.Forms.CheckBox() +Me.GlitterAV = New System.Windows.Forms.PictureBox() +Me.GBGlitter1 = New System.Windows.Forms.GroupBox() +Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() +Me.BtnContact1ImageDir = New System.Windows.Forms.Button() +Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() +Me.BTNGlitter1 = New System.Windows.Forms.Button() +Me.LBLGlitterNC1 = New System.Windows.Forms.Label() +Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() +Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() +Me.CBGlitter1 = New System.Windows.Forms.CheckBox() +Me.TBGlitter1 = New System.Windows.Forms.TextBox() +Me.GlitterAV1 = New System.Windows.Forms.PictureBox() +Me.GBGlitter3 = New System.Windows.Forms.GroupBox() +Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() +Me.BtnContact3ImageDir = New System.Windows.Forms.Button() +Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() +Me.BTNGlitter3 = New System.Windows.Forms.Button() +Me.LBLGlitterNC3 = New System.Windows.Forms.Label() +Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() +Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() +Me.CBGlitter3 = New System.Windows.Forms.CheckBox() +Me.TBGlitter3 = New System.Windows.Forms.TextBox() +Me.GlitterAV3 = New System.Windows.Forms.PictureBox() +Me.GBGlitter2 = New System.Windows.Forms.GroupBox() +Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() +Me.BtnContact2ImageDir = New System.Windows.Forms.Button() +Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() +Me.BTNGlitter2 = New System.Windows.Forms.Button() +Me.LBLGlitterNC2 = New System.Windows.Forms.Label() +Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() +Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() +Me.CBGlitter2 = New System.Windows.Forms.CheckBox() +Me.TBGlitter2 = New System.Windows.Forms.TextBox() +Me.GlitterAV2 = New System.Windows.Forms.PictureBox() +Me.TpGames = New System.Windows.Forms.TabPage() +Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() +Me.LblCardsSetupNote = New System.Windows.Forms.Label() +Me.CBGameSounds = New System.Windows.Forms.CheckBox() +Me.GbxCardsGold = New System.Windows.Forms.GroupBox() +Me.GN6 = New System.Windows.Forms.TextBox() +Me.GP6 = New System.Windows.Forms.PictureBox() +Me.GN2 = New System.Windows.Forms.TextBox() +Me.GP2 = New System.Windows.Forms.PictureBox() +Me.GP5 = New System.Windows.Forms.PictureBox() +Me.GN1 = New System.Windows.Forms.TextBox() +Me.GP1 = New System.Windows.Forms.PictureBox() +Me.GN5 = New System.Windows.Forms.TextBox() +Me.GN3 = New System.Windows.Forms.TextBox() +Me.GP3 = New System.Windows.Forms.PictureBox() +Me.GP4 = New System.Windows.Forms.PictureBox() +Me.GN4 = New System.Windows.Forms.TextBox() +Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() +Me.CardBack = New System.Windows.Forms.PictureBox() +Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() +Me.BN6 = New System.Windows.Forms.TextBox() +Me.BN3 = New System.Windows.Forms.TextBox() +Me.BP3 = New System.Windows.Forms.PictureBox() +Me.BP6 = New System.Windows.Forms.PictureBox() +Me.BN2 = New System.Windows.Forms.TextBox() +Me.BN5 = New System.Windows.Forms.TextBox() +Me.BP5 = New System.Windows.Forms.PictureBox() +Me.BP2 = New System.Windows.Forms.PictureBox() +Me.BN1 = New System.Windows.Forms.TextBox() +Me.BN4 = New System.Windows.Forms.TextBox() +Me.BP4 = New System.Windows.Forms.PictureBox() +Me.BP1 = New System.Windows.Forms.PictureBox() +Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() +Me.SN6 = New System.Windows.Forms.TextBox() +Me.SP6 = New System.Windows.Forms.PictureBox() +Me.SN2 = New System.Windows.Forms.TextBox() +Me.SP2 = New System.Windows.Forms.PictureBox() +Me.SN1 = New System.Windows.Forms.TextBox() +Me.SP5 = New System.Windows.Forms.PictureBox() +Me.SP1 = New System.Windows.Forms.PictureBox() +Me.SN5 = New System.Windows.Forms.TextBox() +Me.SN3 = New System.Windows.Forms.TextBox() +Me.SN4 = New System.Windows.Forms.TextBox() +Me.SP3 = New System.Windows.Forms.PictureBox() +Me.SP4 = New System.Windows.Forms.PictureBox() +Me.TabPage6 = New System.Windows.Forms.TabPage() +Me.Panel10 = New System.Windows.Forms.Panel() +Me.TBWishlistComment = New System.Windows.Forms.TextBox() +Me.Label32 = New System.Windows.Forms.Label() +Me.TBWishlistItem = New System.Windows.Forms.TextBox() +Me.radioGold = New System.Windows.Forms.RadioButton() +Me.Label42 = New System.Windows.Forms.Label() +Me.radioSilver = New System.Windows.Forms.RadioButton() +Me.TBWishlistURL = New System.Windows.Forms.TextBox() +Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() +Me.Label48 = New System.Windows.Forms.Label() +Me.Label73 = New System.Windows.Forms.Label() +Me.Label107 = New System.Windows.Forms.Label() +Me.BTNWishlistCreate = New System.Windows.Forms.Button() +Me.Label18 = New System.Windows.Forms.Label() +Me.PNLWishList = New System.Windows.Forms.Panel() +Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() +Me.LBLWishListText = New System.Windows.Forms.Label() +Me.LBLWishlistCost = New System.Windows.Forms.Label() +Me.WishlistCostGold = New System.Windows.Forms.PictureBox() +Me.LBLWishListName = New System.Windows.Forms.Label() +Me.WishlistPreview = New System.Windows.Forms.PictureBox() +Me.TabPage26 = New System.Windows.Forms.TabPage() +Me.Panel12 = New System.Windows.Forms.Panel() +Me.GroupBox9 = New System.Windows.Forms.GroupBox() +Me.Button32 = New System.Windows.Forms.Button() +Me.Button31 = New System.Windows.Forms.Button() +Me.PictureBox10 = New System.Windows.Forms.PictureBox() +Me.GroupBox5 = New System.Windows.Forms.GroupBox() +Me.CBTransparentTime = New System.Windows.Forms.CheckBox() +Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() +Me.Label137 = New System.Windows.Forms.Label() +Me.Label138 = New System.Windows.Forms.Label() +Me.LBLDateBackColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor = New System.Windows.Forms.Label() +Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor2 = New System.Windows.Forms.Label() +Me.LBLChatTextColor = New System.Windows.Forms.Label() +Me.LBLBackColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor = New System.Windows.Forms.Label() +Me.LBLChatWindowColor = New System.Windows.Forms.Label() +Me.LBLBackColor = New System.Windows.Forms.Label() +Me.LBLChatTextColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor2 = New System.Windows.Forms.Label() +Me.GroupBox11 = New System.Windows.Forms.GroupBox() +Me.Label144 = New System.Windows.Forms.Label() +Me.GroupBox1 = New System.Windows.Forms.GroupBox() +Me.CBFlipBack = New System.Windows.Forms.CheckBox() +Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() +Me.Button17 = New System.Windows.Forms.Button() +Me.CBStretchBack = New System.Windows.Forms.CheckBox() +Me.Button18 = New System.Windows.Forms.Button() +Me.Label164 = New System.Windows.Forms.Label() +Me.TabPage4 = New System.Windows.Forms.TabPage() +Me.Panel6 = New System.Windows.Forms.Panel() +Me.GroupBox69 = New System.Windows.Forms.GroupBox() +Me.TypesSpeedVal = New System.Windows.Forms.Label() +Me.TypeSpeedLabel = New System.Windows.Forms.Label() +Me.TimedWriting = New System.Windows.Forms.CheckBox() +Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() +Me.GroupBox68 = New System.Windows.Forms.GroupBox() +Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() +Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() +Me.Label165 = New System.Windows.Forms.Label() +Me.Label166 = New System.Windows.Forms.Label() +Me.GroupBox67 = New System.Windows.Forms.GroupBox() +Me.Label161 = New System.Windows.Forms.Label() +Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() +Me.Label162 = New System.Windows.Forms.Label() +Me.Label163 = New System.Windows.Forms.Label() +Me.Label158 = New System.Windows.Forms.Label() +Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() +Me.Label159 = New System.Windows.Forms.Label() +Me.Label160 = New System.Windows.Forms.Label() +Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() +Me.Label119 = New System.Windows.Forms.Label() +Me.Label157 = New System.Windows.Forms.Label() +Me.Label151 = New System.Windows.Forms.Label() +Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() +Me.Label154 = New System.Windows.Forms.Label() +Me.Label155 = New System.Windows.Forms.Label() +Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() +Me.Label146 = New System.Windows.Forms.Label() +Me.Label149 = New System.Windows.Forms.Label() +Me.GroupBox10 = New System.Windows.Forms.GroupBox() +Me.Label112 = New System.Windows.Forms.Label() +Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() +Me.Label6 = New System.Windows.Forms.Label() +Me.GroupBox57 = New System.Windows.Forms.GroupBox() +Me.Label139 = New System.Windows.Forms.Label() +Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() +Me.LBLVtf = New System.Windows.Forms.Label() +Me.LBLStf = New System.Windows.Forms.Label() +Me.SliderSTF = New System.Windows.Forms.TrackBar() +Me.TauntSlider = New System.Windows.Forms.TrackBar() +Me.Label106 = New System.Windows.Forms.Label() +Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() +Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() +Me.Label103 = New System.Windows.Forms.Label() +Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() +Me.Label105 = New System.Windows.Forms.Label() +Me.Label101 = New System.Windows.Forms.Label() +Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() +Me.Label102 = New System.Windows.Forms.Label() +Me.Label97 = New System.Windows.Forms.Label() +Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() +Me.Label99 = New System.Windows.Forms.Label() +Me.Label96 = New System.Windows.Forms.Label() +Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() +Me.Label95 = New System.Windows.Forms.Label() +Me.Label49 = New System.Windows.Forms.Label() +Me.Label141 = New System.Windows.Forms.Label() +Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() +Me.Label90 = New System.Windows.Forms.Label() +Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() +Me.Label91 = New System.Windows.Forms.Label() +Me.Label92 = New System.Windows.Forms.Label() +Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() +Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() +Me.CBRangeRuin = New System.Windows.Forms.CheckBox() +Me.GroupBox17 = New System.Windows.Forms.GroupBox() +Me.GroupBox19 = New System.Windows.Forms.GroupBox() +Me.Label110 = New System.Windows.Forms.Label() +Me.Label111 = New System.Windows.Forms.Label() +Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() +Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() +Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() +Me.Label26 = New System.Windows.Forms.Label() +Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() +Me.Label28 = New System.Windows.Forms.Label() +Me.Label27 = New System.Windows.Forms.Label() +Me.Label29 = New System.Windows.Forms.Label() +Me.GroupBox18 = New System.Windows.Forms.GroupBox() +Me.Label108 = New System.Windows.Forms.Label() +Me.Label109 = New System.Windows.Forms.Label() +Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() +Me.CBCensorConstant = New System.Windows.Forms.CheckBox() +Me.Label25 = New System.Windows.Forms.Label() +Me.Label20 = New System.Windows.Forms.Label() +Me.Label19 = New System.Windows.Forms.Label() +Me.Label24 = New System.Windows.Forms.Label() +Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() +Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() +Me.Label89 = New System.Windows.Forms.Label() +Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() +Me.Label86 = New System.Windows.Forms.Label() +Me.Label82 = New System.Windows.Forms.Label() +Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() +Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() +Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() +Me.PictureBox8 = New System.Windows.Forms.PictureBox() +Me.Label38 = New System.Windows.Forms.Label() +Me.TabPage13 = New System.Windows.Forms.TabPage() +Me.TabControl2 = New System.Windows.Forms.TabControl() +Me.TabPage27 = New System.Windows.Forms.TabPage() +Me.TBPlaylistSave = New System.Windows.Forms.TextBox() +Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() +Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() +Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() +Me.BTNPlaylistEnd = New System.Windows.Forms.Button() +Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() +Me.BTNPlaylistSave = New System.Windows.Forms.Button() +Me.Button7 = New System.Windows.Forms.Button() +Me.WBPlaylist = New System.Windows.Forms.WebBrowser() +Me.Label80 = New System.Windows.Forms.Label() +Me.LBLPlaylIstLink = New System.Windows.Forms.Label() +Me.LBLPlaylistModule = New System.Windows.Forms.Label() +Me.LBLPLaylistStart = New System.Windows.Forms.Label() +Me.LBPlaylist = New System.Windows.Forms.ListBox() +Me.TabPage14 = New System.Windows.Forms.TabPage() +Me.LBLKeywordPreview = New System.Windows.Forms.Label() +Me.Label88 = New System.Windows.Forms.Label() +Me.TBKeywordPreview = New System.Windows.Forms.TextBox() +Me.Button37 = New System.Windows.Forms.Button() +Me.Button50 = New System.Windows.Forms.Button() +Me.Button22 = New System.Windows.Forms.Button() +Me.TBKeyWords = New System.Windows.Forms.TextBox() +Me.LBKeyWords = New System.Windows.Forms.ListBox() +Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() +Me.TabPage24 = New System.Windows.Forms.TabPage() +Me.Button9 = New System.Windows.Forms.Button() +Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() +Me.Button4 = New System.Windows.Forms.Button() +Me.Button5 = New System.Windows.Forms.Button() +Me.TBResponses = New System.Windows.Forms.TextBox() +Me.LBResponses = New System.Windows.Forms.ListBox() +Me.RTBResponses = New System.Windows.Forms.RichTextBox() +Me.TabPage8 = New System.Windows.Forms.TabPage() +Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() +Me.GroupBox29 = New System.Windows.Forms.GroupBox() +Me.Label51 = New System.Windows.Forms.Label() +Me.BTNVideoModClear = New System.Windows.Forms.Button() +Me.GroupBox28 = New System.Windows.Forms.GroupBox() +Me.CBVTType = New System.Windows.Forms.ComboBox() +Me.BTNVideoModLoad = New System.Windows.Forms.Button() +Me.GroupBox30 = New System.Windows.Forms.GroupBox() +Me.LBVidScript = New System.Windows.Forms.ListBox() +Me.BTNVideoModSave = New System.Windows.Forms.Button() +Me.TabPage15 = New System.Windows.Forms.TabPage() +Me.Label62 = New System.Windows.Forms.Label() +Me.Label61 = New System.Windows.Forms.Label() +Me.Label57 = New System.Windows.Forms.Label() +Me.Label58 = New System.Windows.Forms.Label() +Me.Label60 = New System.Windows.Forms.Label() +Me.TBGlitModFileName = New System.Windows.Forms.TextBox() +Me.GroupBox34 = New System.Windows.Forms.GroupBox() +Me.Label52 = New System.Windows.Forms.Label() +Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() +Me.Button26 = New System.Windows.Forms.Button() +Me.Label56 = New System.Windows.Forms.Label() +Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() +Me.LBGlitModScripts = New System.Windows.Forms.ListBox() +Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() +Me.LBLGlitModDomType = New System.Windows.Forms.Label() +Me.Button29 = New System.Windows.Forms.Button() +Me.CBGlitModType = New System.Windows.Forms.ComboBox() +Me.Label59 = New System.Windows.Forms.Label() +Me.Label50 = New System.Windows.Forms.Label() +Me.TabPage25 = New System.Windows.Forms.TabPage() +Me.Panel11 = New System.Windows.Forms.Panel() +Me.GroupBox62 = New System.Windows.Forms.GroupBox() +Me.RBGerman = New System.Windows.Forms.RadioButton() +Me.RBEnglish = New System.Windows.Forms.RadioButton() +Me.GroupBox33 = New System.Windows.Forms.GroupBox() +Me.BTNOfflineMode = New System.Windows.Forms.Button() +Me.LBLOfflineMode = New System.Windows.Forms.Label() +Me.Label140 = New System.Windows.Forms.Label() +Me.Button11 = New System.Windows.Forms.Button() +Me.LBLChastityState = New System.Windows.Forms.Label() +Me.Label120 = New System.Windows.Forms.Label() +Me.GroupBox27 = New System.Windows.Forms.GroupBox() +Me.Button6 = New System.Windows.Forms.Button() +Me.LBLSesSpace = New System.Windows.Forms.Label() +Me.Button3 = New System.Windows.Forms.Button() +Me.LBLSesFiles = New System.Windows.Forms.Label() +Me.Label125 = New System.Windows.Forms.Label() +Me.Label124 = New System.Windows.Forms.Label() +Me.GroupBox20 = New System.Windows.Forms.GroupBox() +Me.Button1 = New System.Windows.Forms.Button() +Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() +Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() +Me.Label117 = New System.Windows.Forms.Label() +Me.Label116 = New System.Windows.Forms.Label() +Me.PBCurrent = New System.Windows.Forms.ProgressBar() +Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() +Me.PBMaintenance = New System.Windows.Forms.ProgressBar() +Me.LBLMaintenance = New System.Windows.Forms.Label() +Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() +Me.WebToy = New System.Windows.Forms.WebBrowser() +Me.GroupBox15 = New System.Windows.Forms.GroupBox() +Me.Label115 = New System.Windows.Forms.Label() +Me.TBWebStop = New System.Windows.Forms.TextBox() +Me.TBWebStart = New System.Windows.Forms.TextBox() +Me.Label114 = New System.Windows.Forms.Label() +Me.PictureBox9 = New System.Windows.Forms.PictureBox() +Me.Label148 = New System.Windows.Forms.Label() +Me.TabPage28 = New System.Windows.Forms.TabPage() +Me.TabControl3 = New System.Windows.Forms.TabControl() +Me.TabPage29 = New System.Windows.Forms.TabPage() +Me.Label143 = New System.Windows.Forms.Label() +Me.LBLDebugScriptTime = New System.Windows.Forms.Label() +Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() +Me.GroupBox26 = New System.Windows.Forms.GroupBox() +Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() +Me.Button19 = New System.Windows.Forms.Button() +Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() +Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() +Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() +Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() +Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() +Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() +Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() +Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() +Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() +Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() +Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() +Me.Label145 = New System.Windows.Forms.Label() +Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() +Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() +Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() +Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() +Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() +Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() +Me.Label142 = New System.Windows.Forms.Label() +Me.Label150 = New System.Windows.Forms.Label() +Me.Label152 = New System.Windows.Forms.Label() +Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() +Me.Label147 = New System.Windows.Forms.Label() +Me.TabPage30 = New System.Windows.Forms.TabPage() +Me.Button33 = New System.Windows.Forms.Button() +Me.Button24 = New System.Windows.Forms.Button() +Me.TabPage5 = New System.Windows.Forms.TabPage() +Me.Panel5 = New System.Windows.Forms.Panel() +Me.Label130 = New System.Windows.Forms.Label() +Me.Label123 = New System.Windows.Forms.Label() +Me.Label69 = New System.Windows.Forms.Label() +Me.Label113 = New System.Windows.Forms.Label() +Me.Label40 = New System.Windows.Forms.Label() +Me.Label35 = New System.Windows.Forms.Label() +Me.Label33 = New System.Windows.Forms.Label() +Me.Label17 = New System.Windows.Forms.Label() +Me.Label3 = New System.Windows.Forms.Label() +Me.PictureBox3 = New System.Windows.Forms.PictureBox() +Me.Label41 = New System.Windows.Forms.Label() +Me.GroupBox47 = New System.Windows.Forms.GroupBox() +Me.GroupBox41 = New System.Windows.Forms.GroupBox() +Me.Button34 = New System.Windows.Forms.Button() +Me.GroupBox40 = New System.Windows.Forms.GroupBox() +Me.GroupBox44 = New System.Windows.Forms.GroupBox() +Me.Label100 = New System.Windows.Forms.Label() +Me.GroupBox6 = New System.Windows.Forms.GroupBox() +Me.Label4 = New System.Windows.Forms.Label() +Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() +Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() +Me.Label94 = New System.Windows.Forms.Label() +Me.LBLLastRuined = New System.Windows.Forms.Label() +Me.Label65 = New System.Windows.Forms.Label() +Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() +Me.LBLLastOrgasm = New System.Windows.Forms.Label() +Me.Label14 = New System.Windows.Forms.Label() +Me.Label13 = New System.Windows.Forms.Label() +Me.Label1 = New System.Windows.Forms.Label() +Me.GroupBox21 = New System.Windows.Forms.GroupBox() +Me.Label153 = New System.Windows.Forms.Label() +Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() +Me.Label156 = New System.Windows.Forms.Label() +Me.GroupBox12 = New System.Windows.Forms.GroupBox() +Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() +Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() +Me.GetColor = New System.Windows.Forms.ColorDialog() +Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() +Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() +Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() +Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() +Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() +Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() +Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) +Me.GroupBox65 = New System.Windows.Forms.GroupBox() +Me.Label136 = New System.Windows.Forms.Label() +Me.Label134 = New System.Windows.Forms.Label() +Me.Label132 = New System.Windows.Forms.Label() +Me.TrackBar1 = New System.Windows.Forms.TrackBar() +Me.ComboBox1 = New System.Windows.Forms.ComboBox() +Me.CheckBox1 = New System.Windows.Forms.CheckBox() +Me.Label135 = New System.Windows.Forms.Label() +Me.TrackBar2 = New System.Windows.Forms.TrackBar() +Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() +Me.TextBox2 = New System.Windows.Forms.TextBox() +Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() +Me.SettingsPanel.SuspendLayout +Me.SettingsTabs.SuspendLayout +Me.TabPage1.SuspendLayout +Me.PNLGeneralSettings.SuspendLayout +Me.GroupBox2.SuspendLayout +Me.GroupBox64.SuspendLayout +Me.GBDommeImages.SuspendLayout +CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralTextToSpeech.SuspendLayout +CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBSafeword.SuspendLayout +Me.GBGeneralSystem.SuspendLayout +Me.GBGeneralImages.SuspendLayout +CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralSettings.SuspendLayout +Me.GBSubFont.SuspendLayout +CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDommeFont.SuspendLayout +CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage2.SuspendLayout +Me.Panel3.SuspendLayout +Me.GBGiveUp.SuspendLayout +CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomTypingStyle.SuspendLayout +CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox63.SuspendLayout +Me.GBDomRanges.SuspendLayout +CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomStats.SuspendLayout +CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomPersonality.SuspendLayout +Me.GBDomOrgasms.SuspendLayout +CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomPetNames.SuspendLayout +Me.TabPage10.SuspendLayout +Me.Panel2.SuspendLayout +Me.GroupBox22.SuspendLayout +CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox45.SuspendLayout +CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox35.SuspendLayout +Me.GroupBox39.SuspendLayout +Me.GroupBox38.SuspendLayout +Me.GroupBox37.SuspendLayout +Me.GroupBox36.SuspendLayout +Me.GroupBox13.SuspendLayout +Me.GroupBox7.SuspendLayout +CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox32.SuspendLayout +CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage16.SuspendLayout +Me.Panel9.SuspendLayout +Me.GroupBox31.SuspendLayout +Me.TCScripts.SuspendLayout +Me.TabPage21.SuspendLayout +Me.TabPage17.SuspendLayout +Me.TabPage18.SuspendLayout +Me.TabPage19.SuspendLayout +Me.GroupBox42.SuspendLayout +CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox43.SuspendLayout +Me.TabPage7.SuspendLayout +Me.TabControl4.SuspendLayout +Me.TpImagesUrlFiles.SuspendLayout +Me.GroupBox66.SuspendLayout +CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).BeginInit +Me.TpImagesGenre.SuspendLayout +Me.GrbImageUrlFiles.SuspendLayout +Me.TlpImageUrls.SuspendLayout +Me.GbxImagesGenre.SuspendLayout +Me.TableLayoutPanel1.SuspendLayout +Me.TabPage33.SuspendLayout +Me.TabControl5.SuspendLayout +Me.TabPage34.SuspendLayout +CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage35.SuspendLayout +Me.GroupBox55.SuspendLayout +Me.GroupBox53.SuspendLayout +Me.GroupBox49.SuspendLayout +Me.GroupBox46.SuspendLayout +Me.GroupBox54.SuspendLayout +Me.GroupBox51.SuspendLayout +Me.GroupBox50.SuspendLayout +Me.GroupBox48.SuspendLayout +Me.TabPage11.SuspendLayout +Me.Panel7.SuspendLayout +CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.TpVideoSettings.SuspendLayout +Me.PnlVideoSettings.SuspendLayout +CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxVideoGeneralD.SuspendLayout +Me.GbxVideoSpecialD.SuspendLayout +Me.GbxVideoGenreD.SuspendLayout +Me.GbxVideoDescription.SuspendLayout +Me.GbxVideoGeneral.SuspendLayout +Me.GbxVideoSpecial.SuspendLayout +Me.GbxVideoGenre.SuspendLayout +Me.TabPage20.SuspendLayout +Me.TabControl1.SuspendLayout +Me.TabPage22.SuspendLayout +Me.PNLGlitter.SuspendLayout +Me.GBGlitterD.SuspendLayout +Me.GrbGlitterfeed.SuspendLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGlitter1.SuspendLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGlitter3.SuspendLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGlitter2.SuspendLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit +Me.TpGames.SuspendLayout +Me.GbxCardsGold.SuspendLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxCardsBackground.SuspendLayout +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxCardsBronze.SuspendLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxCardsSilver.SuspendLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage6.SuspendLayout +Me.Panel10.SuspendLayout +CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit +Me.PNLWishList.SuspendLayout +CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage26.SuspendLayout +Me.Panel12.SuspendLayout +Me.GroupBox9.SuspendLayout +CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox5.SuspendLayout +Me.GroupBox11.SuspendLayout +Me.GroupBox1.SuspendLayout +CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage4.SuspendLayout +Me.Panel6.SuspendLayout +Me.GroupBox69.SuspendLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox68.SuspendLayout +CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox67.SuspendLayout +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox10.SuspendLayout +CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox57.SuspendLayout +CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBRangeRuinChance.SuspendLayout +CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox17.SuspendLayout +Me.GroupBox19.SuspendLayout +CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox18.SuspendLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBRangeOrgasmChance.SuspendLayout +CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage13.SuspendLayout +Me.TabControl2.SuspendLayout +Me.TabPage27.SuspendLayout +Me.TabPage14.SuspendLayout +Me.TabPage24.SuspendLayout +Me.TabPage8.SuspendLayout +Me.GroupBox29.SuspendLayout +Me.GroupBox28.SuspendLayout +Me.GroupBox30.SuspendLayout +Me.TabPage15.SuspendLayout +Me.GroupBox34.SuspendLayout +Me.TabPage25.SuspendLayout +Me.Panel11.SuspendLayout +Me.GroupBox62.SuspendLayout +Me.GroupBox33.SuspendLayout +Me.GroupBox27.SuspendLayout +Me.GroupBox20.SuspendLayout +Me.GroupBox15.SuspendLayout +CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage28.SuspendLayout +Me.TabControl3.SuspendLayout +Me.TabPage29.SuspendLayout +Me.GroupBox26.SuspendLayout +Me.TabPage30.SuspendLayout +Me.TabPage5.SuspendLayout +Me.Panel5.SuspendLayout +CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox47.SuspendLayout +Me.GroupBox41.SuspendLayout +Me.GroupBox44.SuspendLayout +Me.GroupBox6.SuspendLayout +Me.GroupBox21.SuspendLayout +Me.GroupBox12.SuspendLayout +Me.GroupBox65.SuspendLayout +CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit +Me.SuspendLayout +' +'SettingsPanel +' +Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray +Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SettingsPanel.Controls.Add(Me.SettingsTabs) +Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) +Me.SettingsPanel.Name = "SettingsPanel" +Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) +Me.SettingsPanel.TabIndex = 94 +' +'SettingsTabs +' +Me.SettingsTabs.Controls.Add(Me.TabPage1) +Me.SettingsTabs.Controls.Add(Me.TabPage2) +Me.SettingsTabs.Controls.Add(Me.TabPage10) +Me.SettingsTabs.Controls.Add(Me.TabPage16) +Me.SettingsTabs.Controls.Add(Me.TabPage7) +Me.SettingsTabs.Controls.Add(Me.TabPage33) +Me.SettingsTabs.Controls.Add(Me.TabPage11) +Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) +Me.SettingsTabs.Controls.Add(Me.TabPage20) +Me.SettingsTabs.Controls.Add(Me.TabPage26) +Me.SettingsTabs.Controls.Add(Me.TabPage4) +Me.SettingsTabs.Controls.Add(Me.TabPage13) +Me.SettingsTabs.Controls.Add(Me.TabPage25) +Me.SettingsTabs.Controls.Add(Me.TabPage28) +Me.SettingsTabs.Controls.Add(Me.TabPage5) +Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) +Me.SettingsTabs.Name = "SettingsTabs" +Me.SettingsTabs.SelectedIndex = 0 +Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) +Me.SettingsTabs.TabIndex = 0 +' +'TabPage1 +' +Me.TabPage1.BackColor = System.Drawing.Color.Silver +Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) +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(720, 448) +Me.TabPage1.TabIndex = 0 +Me.TabPage1.Text = "General" +' +'PNLGeneralSettings +' +Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray +Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) +Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) +Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) +Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) +Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) +Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) +Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) +Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) +Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) +Me.PNLGeneralSettings.Name = "PNLGeneralSettings" +Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) +Me.PNLGeneralSettings.TabIndex = 0 +' +'GroupBox2 +' +Me.GroupBox2.Controls.Add(Me.CBRandomDomme) +Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) +Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) +Me.GroupBox2.Controls.Add(Me.BtnRandomImageDirClear) +Me.GroupBox2.Location = New System.Drawing.Point(224, 313) +Me.GroupBox2.Name = "GroupBox2" +Me.GroupBox2.Size = New System.Drawing.Size(210, 117) +Me.GroupBox2.TabIndex = 183 +Me.GroupBox2.TabStop = false +Me.GroupBox2.Text = "Random Domme" +' +'CBRandomDomme +' +Me.CBRandomDomme.AutoSize = true +Me.CBRandomDomme.Location = New System.Drawing.Point(6, 83) +Me.CBRandomDomme.Name = "CBRandomDomme" +Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) +Me.CBRandomDomme.TabIndex = 184 +Me.CBRandomDomme.Text = "Always Start With Random Domme" +Me.CBRandomDomme.UseVisualStyleBackColor = true +' +'TbxRandomImageDir +' +Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxRandomImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 49) +Me.TbxRandomImageDir.Name = "TbxRandomImageDir" +Me.TbxRandomImageDir.ReadOnly = true +Me.TbxRandomImageDir.Size = New System.Drawing.Size(145, 20) +Me.TbxRandomImageDir.TabIndex = 183 +Me.TbxRandomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir +' +'BtnRandomImageDir +' +Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDir.Location = New System.Drawing.Point(10, 21) +Me.BtnRandomImageDir.Name = "BtnRandomImageDir" +Me.BtnRandomImageDir.Size = New System.Drawing.Size(190, 22) +Me.BtnRandomImageDir.TabIndex = 182 +Me.BtnRandomImageDir.Text = "Set Random Domme Directory" +Me.BtnRandomImageDir.UseVisualStyleBackColor = false +' +'BtnRandomImageDirClear +' +Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(161, 47) +Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" +Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnRandomImageDirClear.TabIndex = 181 +Me.BtnRandomImageDirClear.Text = "Clear" +Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false +' +'BtnImportSettings +' +Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent +Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.BtnImportSettings.FlatAppearance.BorderSize = 0 +Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black +Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) +Me.BtnImportSettings.Name = "BtnImportSettings" +Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) +Me.BtnImportSettings.TabIndex = 158 +Me.BtnImportSettings.UseVisualStyleBackColor = false +' +'LblImportSettings +' +Me.LblImportSettings.AutoSize = true +Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblImportSettings.ForeColor = System.Drawing.Color.Black +Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) +Me.LblImportSettings.Name = "LblImportSettings" +Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) +Me.LblImportSettings.TabIndex = 159 +Me.LblImportSettings.Text = "import" +Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox64 +' +Me.GroupBox64.BackColor = System.Drawing.Color.LightGray +Me.GroupBox64.Controls.Add(Me.CBMuteMedia) +Me.GroupBox64.ForeColor = System.Drawing.Color.Black +Me.GroupBox64.Location = New System.Drawing.Point(440, 258) +Me.GroupBox64.Name = "GroupBox64" +Me.GroupBox64.Size = New System.Drawing.Size(259, 49) +Me.GroupBox64.TabIndex = 157 +Me.GroupBox64.TabStop = false +Me.GroupBox64.Text = "Media Options" +' +'CBMuteMedia +' +Me.CBMuteMedia.AutoSize = true +Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia +Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black +Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) +Me.CBMuteMedia.Name = "CBMuteMedia" +Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) +Me.CBMuteMedia.TabIndex = 6 +Me.CBMuteMedia.TabStop = false +Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" +Me.CBMuteMedia.UseVisualStyleBackColor = true +' +'GBDommeImages +' +Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray +Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) +Me.GBDommeImages.Controls.Add(Me.teaseRadio) +Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) +Me.GBDommeImages.Controls.Add(Me.offRadio) +Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) +Me.GBDommeImages.Controls.Add(Me.timedRadio) +Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) +Me.GBDommeImages.ForeColor = System.Drawing.Color.Black +Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) +Me.GBDommeImages.Name = "GBDommeImages" +Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) +Me.GBDommeImages.TabIndex = 156 +Me.GBDommeImages.TabStop = false +Me.GBDommeImages.Text = "Slideshow Options" +' +'slideshowNumBox +' +Me.slideshowNumBox.BackColor = System.Drawing.Color.White +Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black +Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) +Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) +Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.slideshowNumBox.Name = "slideshowNumBox" +Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) +Me.slideshowNumBox.TabIndex = 20 +Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) +' +'teaseRadio +' +Me.teaseRadio.AutoSize = true +Me.teaseRadio.Checked = true +Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.teaseRadio.ForeColor = System.Drawing.Color.Black +Me.teaseRadio.Location = New System.Drawing.Point(149, 21) +Me.teaseRadio.Name = "teaseRadio" +Me.teaseRadio.Size = New System.Drawing.Size(55, 17) +Me.teaseRadio.TabIndex = 21 +Me.teaseRadio.TabStop = true +Me.teaseRadio.Text = "Tease" +Me.teaseRadio.UseVisualStyleBackColor = true +' +'CBNewSlideshow +' +Me.CBNewSlideshow.AutoSize = true +Me.CBNewSlideshow.Checked = true +Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black +Me.CBNewSlideshow.Location = New System.Drawing.Point(4, 100) +Me.CBNewSlideshow.Name = "CBNewSlideshow" +Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) +Me.CBNewSlideshow.TabIndex = 18 +Me.CBNewSlideshow.TabStop = false +Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" +Me.CBNewSlideshow.UseVisualStyleBackColor = true +' +'offRadio +' +Me.offRadio.AutoSize = true +Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.offRadio.ForeColor = System.Drawing.Color.Black +Me.offRadio.Location = New System.Drawing.Point(6, 21) +Me.offRadio.Name = "offRadio" +Me.offRadio.Size = New System.Drawing.Size(60, 17) +Me.offRadio.TabIndex = 18 +Me.offRadio.Text = "Manual" +Me.offRadio.UseVisualStyleBackColor = true +' +'BTNDomImageDir +' +Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black +Me.BTNDomImageDir.Location = New System.Drawing.Point(10, 45) +Me.BTNDomImageDir.Name = "BTNDomImageDir" +Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) +Me.BTNDomImageDir.TabIndex = 17 +Me.BTNDomImageDir.Text = "Set Domme Images Directory" +Me.BTNDomImageDir.UseVisualStyleBackColor = false +' +'timedRadio +' +Me.timedRadio.AutoSize = true +Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.timedRadio.ForeColor = System.Drawing.Color.Black +Me.timedRadio.Location = New System.Drawing.Point(72, 23) +Me.timedRadio.Name = "timedRadio" +Me.timedRadio.Size = New System.Drawing.Size(14, 13) +Me.timedRadio.TabIndex = 19 +Me.timedRadio.UseVisualStyleBackColor = true +' +'TbxDomImageDir +' +Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) +Me.TbxDomImageDir.Name = "TbxDomImageDir" +Me.TbxDomImageDir.ReadOnly = true +Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxDomImageDir.TabIndex = 0 +Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir +' +'GBGeneralTextToSpeech +' +Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray +Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) +Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) +Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) +Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) +Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) +Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) +Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) +Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) +Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black +Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) +Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" +Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) +Me.GBGeneralTextToSpeech.TabIndex = 0 +Me.GBGeneralTextToSpeech.TabStop = false +Me.GBGeneralTextToSpeech.Text = "Text to Speech" +' +'LBLVRate +' +Me.LBLVRate.Location = New System.Drawing.Point(202, 52) +Me.LBLVRate.Name = "LBLVRate" +Me.LBLVRate.Size = New System.Drawing.Size(45, 13) +Me.LBLVRate.TabIndex = 158 +Me.LBLVRate.Text = "100" +Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'Label93 +' +Me.Label93.AutoSize = true +Me.Label93.Location = New System.Drawing.Point(141, 52) +Me.Label93.Name = "Label93" +Me.Label93.Size = New System.Drawing.Size(33, 13) +Me.Label93.TabIndex = 157 +Me.Label93.Text = "Rate:" +' +'LBLVVolume +' +Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) +Me.LBLVVolume.Name = "LBLVVolume" +Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) +Me.LBLVVolume.TabIndex = 33 +Me.LBLVVolume.Text = "100" +Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'Label68 +' +Me.Label68.AutoSize = true +Me.Label68.Location = New System.Drawing.Point(14, 52) +Me.Label68.Name = "Label68" +Me.Label68.Size = New System.Drawing.Size(45, 13) +Me.Label68.TabIndex = 32 +Me.Label68.Text = "Volume:" +' +'SliderVRate +' +Me.SliderVRate.Location = New System.Drawing.Point(133, 68) +Me.SliderVRate.Minimum = -10 +Me.SliderVRate.Name = "SliderVRate" +Me.SliderVRate.Size = New System.Drawing.Size(120, 45) +Me.SliderVRate.TabIndex = 31 +' +'SliderVVolume +' +Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) +Me.SliderVVolume.Maximum = 100 +Me.SliderVVolume.Name = "SliderVVolume" +Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) +Me.SliderVVolume.TabIndex = 30 +Me.SliderVVolume.Value = 50 +' +'TTSCheckBox +' +Me.TTSCheckBox.AutoSize = true +Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black +Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) +Me.TTSCheckBox.Name = "TTSCheckBox" +Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) +Me.TTSCheckBox.TabIndex = 28 +Me.TTSCheckBox.TabStop = false +Me.TTSCheckBox.Text = "Enable" +Me.TTSCheckBox.UseVisualStyleBackColor = true +' +'TTSComboBox +' +Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window +Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText +Me.TTSComboBox.FormattingEnabled = true +Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) +Me.TTSComboBox.Name = "TTSComboBox" +Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) +Me.TTSComboBox.TabIndex = 29 +Me.TTSComboBox.TabStop = false +' +'GBSafeword +' +Me.GBSafeword.BackColor = System.Drawing.Color.LightGray +Me.GBSafeword.Controls.Add(Me.LBLSafeword) +Me.GBSafeword.Controls.Add(Me.TBSafeword) +Me.GBSafeword.ForeColor = System.Drawing.Color.Black +Me.GBSafeword.Location = New System.Drawing.Point(440, 179) +Me.GBSafeword.Name = "GBSafeword" +Me.GBSafeword.Size = New System.Drawing.Size(259, 74) +Me.GBSafeword.TabIndex = 0 +Me.GBSafeword.TabStop = false +Me.GBSafeword.Text = "Safeword" +' +'LBLSafeword +' +Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) +Me.LBLSafeword.Name = "LBLSafeword" +Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) +Me.LBLSafeword.TabIndex = 0 +Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able "& _ + "to continue." +Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBSafeword +' +Me.TBSafeword.Location = New System.Drawing.Point(17, 19) +Me.TBSafeword.Name = "TBSafeword" +Me.TBSafeword.Size = New System.Drawing.Size(225, 20) +Me.TBSafeword.TabIndex = 27 +Me.TBSafeword.Text = "red" +Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GBGeneralSystem +' +Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) +Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) +Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) +Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) +Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) +Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) +Me.GBGeneralSystem.Name = "GBGeneralSystem" +Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) +Me.GBGeneralSystem.TabIndex = 0 +Me.GBGeneralSystem.TabStop = false +Me.GBGeneralSystem.Text = "System" +' +'CBAuditStartup +' +Me.CBAuditStartup.AutoSize = true +Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black +Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) +Me.CBAuditStartup.Name = "CBAuditStartup" +Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) +Me.CBAuditStartup.TabIndex = 26 +Me.CBAuditStartup.TabStop = false +Me.CBAuditStartup.Text = "Audit Scripts on Startup" +Me.CBAuditStartup.UseVisualStyleBackColor = true +' +'CBDomDel +' +Me.CBDomDel.AutoSize = true +Me.CBDomDel.ForeColor = System.Drawing.Color.Black +Me.CBDomDel.Location = New System.Drawing.Point(7, 110) +Me.CBDomDel.Name = "CBDomDel" +Me.CBDomDel.Size = New System.Drawing.Size(197, 17) +Me.CBDomDel.TabIndex = 27 +Me.CBDomDel.TabStop = false +Me.CBDomDel.Text = "Allow Domme to Delete Local Media" +Me.CBDomDel.UseVisualStyleBackColor = true +' +'CBSettingsPause +' +Me.CBSettingsPause.AutoSize = true +Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black +Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) +Me.CBSettingsPause.Name = "CBSettingsPause" +Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) +Me.CBSettingsPause.TabIndex = 22 +Me.CBSettingsPause.TabStop = false +Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" +Me.CBSettingsPause.UseVisualStyleBackColor = true +' +'CBSaveChatlogExit +' +Me.CBSaveChatlogExit.AutoSize = true +Me.CBSaveChatlogExit.Checked = true +Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black +Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) +Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" +Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) +Me.CBSaveChatlogExit.TabIndex = 25 +Me.CBSaveChatlogExit.TabStop = false +Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" +Me.CBSaveChatlogExit.UseVisualStyleBackColor = true +' +'CBAutosaveChatlog +' +Me.CBAutosaveChatlog.AutoSize = true +Me.CBAutosaveChatlog.Checked = true +Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black +Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) +Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" +Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) +Me.CBAutosaveChatlog.TabIndex = 24 +Me.CBAutosaveChatlog.TabStop = false +Me.CBAutosaveChatlog.Text = "Autosave Chatlog" +Me.CBAutosaveChatlog.UseVisualStyleBackColor = true +' +'GBGeneralImages +' +Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) +Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) +Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) +Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) +Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) +Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) +Me.GBGeneralImages.Name = "GBGeneralImages" +Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) +Me.GBGeneralImages.TabIndex = 0 +Me.GBGeneralImages.TabStop = false +Me.GBGeneralImages.Text = "Images" +' +'CBImageInfo +' +Me.CBImageInfo.AutoSize = true +Me.CBImageInfo.ForeColor = System.Drawing.Color.Black +Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) +Me.CBImageInfo.Name = "CBImageInfo" +Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) +Me.CBImageInfo.TabIndex = 16 +Me.CBImageInfo.TabStop = false +Me.CBImageInfo.Text = "Display Image Information" +Me.CBImageInfo.UseVisualStyleBackColor = true +' +'CBSlideshowRandom +' +Me.CBSlideshowRandom.AutoSize = true +Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black +Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) +Me.CBSlideshowRandom.Name = "CBSlideshowRandom" +Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) +Me.CBSlideshowRandom.TabIndex = 14 +Me.CBSlideshowRandom.TabStop = false +Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" +Me.CBSlideshowRandom.UseVisualStyleBackColor = true +' +'landscapeCheckBox +' +Me.landscapeCheckBox.AutoSize = true +Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black +Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) +Me.landscapeCheckBox.Name = "landscapeCheckBox" +Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) +Me.landscapeCheckBox.TabIndex = 15 +Me.landscapeCheckBox.TabStop = false +Me.landscapeCheckBox.Text = "Stretch Landscape Images" +Me.landscapeCheckBox.UseVisualStyleBackColor = true +' +'CBBlogImageWindow +' +Me.CBBlogImageWindow.AutoSize = true +Me.CBBlogImageWindow.Checked = true +Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black +Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) +Me.CBBlogImageWindow.Name = "CBBlogImageWindow" +Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) +Me.CBBlogImageWindow.TabIndex = 12 +Me.CBBlogImageWindow.TabStop = false +Me.CBBlogImageWindow.Text = "Save Blog Images From Session" +Me.CBBlogImageWindow.UseVisualStyleBackColor = true +' +'CBSlideshowSubDir +' +Me.CBSlideshowSubDir.AutoSize = true +Me.CBSlideshowSubDir.Checked = true +Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black +Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) +Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" +Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) +Me.CBSlideshowSubDir.TabIndex = 13 +Me.CBSlideshowSubDir.TabStop = false +Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" +Me.CBSlideshowSubDir.UseVisualStyleBackColor = true +' +'PictureBox2 +' +Me.PictureBox2.BackColor = System.Drawing.Color.LightGray +Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox2.Location = New System.Drawing.Point(9, 6) +Me.PictureBox2.Name = "PictureBox2" +Me.PictureBox2.Size = New System.Drawing.Size(160, 19) +Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox2.TabIndex = 148 +Me.PictureBox2.TabStop = false +' +'GBGeneralSettings +' +Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray +Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) +Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) +Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) +Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) +Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) +Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) +Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) +Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black +Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) +Me.GBGeneralSettings.Name = "GBGeneralSettings" +Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) +Me.GBGeneralSettings.TabIndex = 0 +Me.GBGeneralSettings.TabStop = false +Me.GBGeneralSettings.Text = "Chat Window" +' +'CBWebtease +' +Me.CBWebtease.AutoSize = true +Me.CBWebtease.ForeColor = System.Drawing.Color.Black +Me.CBWebtease.Location = New System.Drawing.Point(6, 110) +Me.CBWebtease.Name = "CBWebtease" +Me.CBWebtease.Size = New System.Drawing.Size(105, 17) +Me.CBWebtease.TabIndex = 5 +Me.CBWebtease.TabStop = false +Me.CBWebtease.Text = "Webtease Mode" +Me.CBWebtease.UseVisualStyleBackColor = true +' +'GBSubFont +' +Me.GBSubFont.Controls.Add(Me.BTNSubColor) +Me.GBSubFont.Controls.Add(Me.LBLSubColor) +Me.GBSubFont.Controls.Add(Me.NBFontSize) +Me.GBSubFont.Controls.Add(Me.Label2) +Me.GBSubFont.Controls.Add(Me.FontComboBox) +Me.GBSubFont.Location = New System.Drawing.Point(6, 219) +Me.GBSubFont.Name = "GBSubFont" +Me.GBSubFont.Size = New System.Drawing.Size(200, 77) +Me.GBSubFont.TabIndex = 0 +Me.GBSubFont.TabStop = false +Me.GBSubFont.Text = "Sub Font Settings" +' +'BTNSubColor +' +Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray +Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNSubColor.ForeColor = System.Drawing.Color.Black +Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) +Me.BTNSubColor.Name = "BTNSubColor" +Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) +Me.BTNSubColor.TabIndex = 8 +Me.BTNSubColor.Text = "Sub Name Color" +Me.BTNSubColor.UseVisualStyleBackColor = false +' +'LBLSubColor +' +Me.LBLSubColor.BackColor = System.Drawing.Color.White +Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor +Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) +Me.LBLSubColor.Name = "LBLSubColor" +Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) +Me.LBLSubColor.TabIndex = 0 +Me.LBLSubColor.Text = "Preview" +Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBFontSize +' +Me.NBFontSize.BackColor = System.Drawing.Color.White +Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBFontSize.ForeColor = System.Drawing.Color.Black +Me.NBFontSize.Location = New System.Drawing.Point(147, 47) +Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBFontSize.Name = "NBFontSize" +Me.NBFontSize.Size = New System.Drawing.Size(45, 20) +Me.NBFontSize.TabIndex = 11 +Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label2 +' +Me.Label2.BackColor = System.Drawing.Color.Transparent +Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label2.ForeColor = System.Drawing.Color.Black +Me.Label2.Location = New System.Drawing.Point(117, 45) +Me.Label2.Name = "Label2" +Me.Label2.Size = New System.Drawing.Size(30, 20) +Me.Label2.TabIndex = 63 +Me.Label2.Text = "Size:" +Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'FontComboBox +' +Me.FontComboBox.FormattingEnabled = true +Me.FontComboBox.Location = New System.Drawing.Point(6, 46) +Me.FontComboBox.Name = "FontComboBox" +Me.FontComboBox.Size = New System.Drawing.Size(110, 21) +Me.FontComboBox.TabIndex = 9 +' +'GBDommeFont +' +Me.GBDommeFont.Controls.Add(Me.BTNDomColor) +Me.GBDommeFont.Controls.Add(Me.LBLDomColor) +Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) +Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) +Me.GBDommeFont.Controls.Add(Me.Label7) +Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) +Me.GBDommeFont.Name = "GBDommeFont" +Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) +Me.GBDommeFont.TabIndex = 0 +Me.GBDommeFont.TabStop = false +Me.GBDommeFont.Text = "Domme Font Settings" +' +'BTNDomColor +' +Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray +Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomColor.ForeColor = System.Drawing.Color.Black +Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) +Me.BTNDomColor.Name = "BTNDomColor" +Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) +Me.BTNDomColor.TabIndex = 5 +Me.BTNDomColor.Text = "Domme Name Color" +Me.BTNDomColor.UseVisualStyleBackColor = false +' +'LBLDomColor +' +Me.LBLDomColor.BackColor = System.Drawing.Color.White +Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor +Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) +Me.LBLDomColor.Name = "LBLDomColor" +Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) +Me.LBLDomColor.TabIndex = 0 +Me.LBLDomColor.Text = "Preview" +Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'FontComboBoxD +' +Me.FontComboBoxD.FormattingEnabled = true +Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) +Me.FontComboBoxD.Name = "FontComboBoxD" +Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) +Me.FontComboBoxD.TabIndex = 6 +' +'NBFontSizeD +' +Me.NBFontSizeD.BackColor = System.Drawing.Color.White +Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black +Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) +Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBFontSizeD.Name = "NBFontSizeD" +Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) +Me.NBFontSizeD.TabIndex = 7 +Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label7 +' +Me.Label7.BackColor = System.Drawing.Color.Transparent +Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label7.ForeColor = System.Drawing.Color.Black +Me.Label7.Location = New System.Drawing.Point(117, 45) +Me.Label7.Name = "Label7" +Me.Label7.Size = New System.Drawing.Size(30, 20) +Me.Label7.TabIndex = 172 +Me.Label7.Text = "Size:" +Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBInputIcon +' +Me.CBInputIcon.AutoSize = true +Me.CBInputIcon.Checked = true +Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBInputIcon.ForeColor = System.Drawing.Color.Black +Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) +Me.CBInputIcon.Name = "CBInputIcon" +Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) +Me.CBInputIcon.TabIndex = 4 +Me.CBInputIcon.TabStop = false +Me.CBInputIcon.Text = "Show Icon During Input Questions" +Me.CBInputIcon.UseVisualStyleBackColor = true +' +'typeinstantlyCheckBox +' +Me.typeinstantlyCheckBox.AutoSize = true +Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black +Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) +Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" +Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) +Me.typeinstantlyCheckBox.TabIndex = 3 +Me.typeinstantlyCheckBox.TabStop = false +Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" +Me.typeinstantlyCheckBox.UseVisualStyleBackColor = true +' +'timestampCheckBox +' +Me.timestampCheckBox.AutoSize = true +Me.timestampCheckBox.Checked = true +Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked +Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black +Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) +Me.timestampCheckBox.Name = "timestampCheckBox" +Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) +Me.timestampCheckBox.TabIndex = 1 +Me.timestampCheckBox.TabStop = false +Me.timestampCheckBox.Text = "Show Timestamps" +Me.timestampCheckBox.UseVisualStyleBackColor = true +' +'shownamesCheckBox +' +Me.shownamesCheckBox.AutoSize = true +Me.shownamesCheckBox.Checked = true +Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked +Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black +Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) +Me.shownamesCheckBox.Name = "shownamesCheckBox" +Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) +Me.shownamesCheckBox.TabIndex = 2 +Me.shownamesCheckBox.TabStop = false +Me.shownamesCheckBox.Text = "Always Show Names" +Me.shownamesCheckBox.UseVisualStyleBackColor = true +' +'LBLGeneralSettings +' +Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent +Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black +Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) +Me.LBLGeneralSettings.Name = "LBLGeneralSettings" +Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) +Me.LBLGeneralSettings.TabIndex = 0 +Me.LBLGeneralSettings.Text = "General Settings" +Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage2 +' +Me.TabPage2.BackColor = System.Drawing.Color.Silver +Me.TabPage2.Controls.Add(Me.Panel3) +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(720, 448) +Me.TabPage2.TabIndex = 1 +Me.TabPage2.Text = "Domme" +' +'Panel3 +' +Me.Panel3.BackColor = System.Drawing.Color.LightGray +Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel3.Controls.Add(Me.GBGiveUp) +Me.Panel3.Controls.Add(Me.BTNLoadDomSet) +Me.Panel3.Controls.Add(Me.BTNSaveDomSet) +Me.Panel3.Controls.Add(Me.Label127) +Me.Panel3.Controls.Add(Me.Label126) +Me.Panel3.Controls.Add(Me.PictureBox4) +Me.Panel3.Controls.Add(Me.GBDomTypingStyle) +Me.Panel3.Controls.Add(Me.GBDomRanges) +Me.Panel3.Controls.Add(Me.GBDomStats) +Me.Panel3.Controls.Add(Me.GBDomPersonality) +Me.Panel3.Controls.Add(Me.GBDomOrgasms) +Me.Panel3.Controls.Add(Me.GBDomPetNames) +Me.Panel3.Controls.Add(Me.Label54) +Me.Panel3.Location = New System.Drawing.Point(6, 6) +Me.Panel3.Name = "Panel3" +Me.Panel3.Size = New System.Drawing.Size(708, 437) +Me.Panel3.TabIndex = 93 +' +'GBGiveUp +' +Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) +Me.GBGiveUp.Location = New System.Drawing.Point(440, 230) +Me.GBGiveUp.Name = "GBGiveUp" +Me.GBGiveUp.Size = New System.Drawing.Size(259, 63) +Me.GBGiveUp.TabIndex = 42 +Me.GBGiveUp.TabStop = false +Me.GBGiveUp.Text = "Script Behavior" +' +'giveupCheckBox +' +Me.giveupCheckBox.AutoSize = true +Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black +Me.giveupCheckBox.Location = New System.Drawing.Point(15, 26) +Me.giveupCheckBox.Name = "giveupCheckBox" +Me.giveupCheckBox.Size = New System.Drawing.Size(210, 17) +Me.giveupCheckBox.TabIndex = 38 +Me.giveupCheckBox.Text = "Continue Current Script After Giving Up" +Me.giveupCheckBox.UseVisualStyleBackColor = true +' +'BTNLoadDomSet +' +Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray +Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 +Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black +Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) +Me.BTNLoadDomSet.Name = "BTNLoadDomSet" +Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) +Me.BTNLoadDomSet.TabIndex = 150 +Me.BTNLoadDomSet.UseVisualStyleBackColor = false +' +'BTNSaveDomSet +' +Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray +Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 +Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black +Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) +Me.BTNSaveDomSet.Name = "BTNSaveDomSet" +Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) +Me.BTNSaveDomSet.TabIndex = 151 +Me.BTNSaveDomSet.UseVisualStyleBackColor = false +' +'Label127 +' +Me.Label127.AutoSize = true +Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label127.ForeColor = System.Drawing.Color.Black +Me.Label127.Location = New System.Drawing.Point(670, -3) +Me.Label127.Name = "Label127" +Me.Label127.Size = New System.Drawing.Size(27, 13) +Me.Label127.TabIndex = 153 +Me.Label127.Text = "load" +Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label126 +' +Me.Label126.AutoSize = true +Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label126.ForeColor = System.Drawing.Color.Black +Me.Label126.Location = New System.Drawing.Point(636, -3) +Me.Label126.Name = "Label126" +Me.Label126.Size = New System.Drawing.Size(30, 13) +Me.Label126.TabIndex = 152 +Me.Label126.Text = "save" +Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'PictureBox4 +' +Me.PictureBox4.BackColor = System.Drawing.Color.LightGray +Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox4.Location = New System.Drawing.Point(9, 6) +Me.PictureBox4.Name = "PictureBox4" +Me.PictureBox4.Size = New System.Drawing.Size(160, 19) +Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox4.TabIndex = 149 +Me.PictureBox4.TabStop = false +' +'GBDomTypingStyle +' +Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) +Me.GBDomTypingStyle.Controls.Add(Me.Label67) +Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) +Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) +Me.GBDomTypingStyle.Controls.Add(Me.Label66) +Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) +Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) +Me.GBDomTypingStyle.Controls.Add(Me.Label64) +Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black +Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) +Me.GBDomTypingStyle.Name = "GBDomTypingStyle" +Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) +Me.GBDomTypingStyle.TabIndex = 138 +Me.GBDomTypingStyle.TabStop = false +Me.GBDomTypingStyle.Text = "Typing Style" +' +'TBEmoteEnd +' +Me.TBEmoteEnd.BackColor = System.Drawing.Color.White +Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black +Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) +Me.TBEmoteEnd.Name = "TBEmoteEnd" +Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) +Me.TBEmoteEnd.TabIndex = 155 +Me.TBEmoteEnd.Text = "*" +Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label67 +' +Me.Label67.AutoSize = true +Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label67.ForeColor = System.Drawing.Color.Black +Me.Label67.Location = New System.Drawing.Point(237, 77) +Me.Label67.Name = "Label67" +Me.Label67.Size = New System.Drawing.Size(42, 13) +Me.Label67.TabIndex = 169 +Me.Label67.Text = "Typo %" +Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBEmote +' +Me.TBEmote.BackColor = System.Drawing.Color.White +Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBEmote.ForeColor = System.Drawing.Color.Black +Me.TBEmote.Location = New System.Drawing.Point(9, 91) +Me.TBEmote.Name = "TBEmote" +Me.TBEmote.Size = New System.Drawing.Size(85, 23) +Me.TBEmote.TabIndex = 154 +Me.TBEmote.Text = "*" +Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'NBTypoChance +' +Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) +Me.NBTypoChance.Name = "NBTypoChance" +Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) +Me.NBTypoChance.TabIndex = 168 +Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) +' +'Label66 +' +Me.Label66.AutoSize = true +Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label66.ForeColor = System.Drawing.Color.Black +Me.Label66.Location = New System.Drawing.Point(322, 77) +Me.Label66.Name = "Label66" +Me.Label66.Size = New System.Drawing.Size(52, 13) +Me.Label66.TabIndex = 44 +Me.Label66.Text = "Pronouns" +Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBMeMyMine +' +Me.CBMeMyMine.AutoSize = true +Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black +Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) +Me.CBMeMyMine.Name = "CBMeMyMine" +Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) +Me.CBMeMyMine.TabIndex = 40 +Me.CBMeMyMine.Text = "Me/My/Mine" +Me.CBMeMyMine.UseVisualStyleBackColor = true +' +'GroupBox63 +' +Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) +Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) +Me.GroupBox63.Controls.Add(Me.periodCheckBox) +Me.GroupBox63.Controls.Add(Me.commaCheckBox) +Me.GroupBox63.Location = New System.Drawing.Point(9, 15) +Me.GroupBox63.Name = "GroupBox63" +Me.GroupBox63.Size = New System.Drawing.Size(407, 48) +Me.GroupBox63.TabIndex = 41 +Me.GroupBox63.TabStop = false +Me.GroupBox63.Text = "Remove" +' +'LCaseCheckBox +' +Me.LCaseCheckBox.AutoSize = true +Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black +Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) +Me.LCaseCheckBox.Name = "LCaseCheckBox" +Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) +Me.LCaseCheckBox.TabIndex = 38 +Me.LCaseCheckBox.Text = "Capitalization" +Me.LCaseCheckBox.UseVisualStyleBackColor = true +' +'apostropheCheckBox +' +Me.apostropheCheckBox.AutoSize = true +Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black +Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) +Me.apostropheCheckBox.Name = "apostropheCheckBox" +Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) +Me.apostropheCheckBox.TabIndex = 39 +Me.apostropheCheckBox.Text = "Apostrophes" +Me.apostropheCheckBox.UseVisualStyleBackColor = true +' +'periodCheckBox +' +Me.periodCheckBox.AutoSize = true +Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.periodCheckBox.ForeColor = System.Drawing.Color.Black +Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) +Me.periodCheckBox.Name = "periodCheckBox" +Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) +Me.periodCheckBox.TabIndex = 37 +Me.periodCheckBox.Text = "Periods" +Me.periodCheckBox.UseVisualStyleBackColor = true +' +'commaCheckBox +' +Me.commaCheckBox.AutoSize = true +Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.commaCheckBox.ForeColor = System.Drawing.Color.Black +Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) +Me.commaCheckBox.Name = "commaCheckBox" +Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) +Me.commaCheckBox.TabIndex = 36 +Me.commaCheckBox.Text = "Commas" +Me.commaCheckBox.UseVisualStyleBackColor = true +' +'Label64 +' +Me.Label64.AutoSize = true +Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label64.ForeColor = System.Drawing.Color.Black +Me.Label64.Location = New System.Drawing.Point(8, 77) +Me.Label64.Name = "Label64" +Me.Label64.Size = New System.Drawing.Size(79, 13) +Me.Label64.TabIndex = 43 +Me.Label64.Text = "Emote Symbols" +Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GBDomRanges +' +Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) +Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) +Me.GBDomRanges.Controls.Add(Me.Label37) +Me.GBDomRanges.Controls.Add(Me.Label39) +Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) +Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) +Me.GBDomRanges.Controls.Add(Me.Label31) +Me.GBDomRanges.Controls.Add(Me.Label36) +Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) +Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) +Me.GBDomRanges.Controls.Add(Me.Label21) +Me.GBDomRanges.Controls.Add(Me.Label22) +Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) +Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) +Me.GBDomRanges.Controls.Add(Me.Label23) +Me.GBDomRanges.Controls.Add(Me.Label30) +Me.GBDomRanges.Location = New System.Drawing.Point(440, 299) +Me.GBDomRanges.Name = "GBDomRanges" +Me.GBDomRanges.Size = New System.Drawing.Size(259, 124) +Me.GBDomRanges.TabIndex = 148 +Me.GBDomRanges.TabStop = false +Me.GBDomRanges.Text = "Ranges" +' +'NBDomMoodMax +' +Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 19) +Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBDomMoodMax.Name = "NBDomMoodMax" +Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) +Me.NBDomMoodMax.TabIndex = 168 +Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) +' +'NBDomMoodMin +' +Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 19) +Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) +Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBDomMoodMin.Name = "NBDomMoodMin" +Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) +Me.NBDomMoodMin.TabIndex = 167 +Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) +' +'Label37 +' +Me.Label37.BackColor = System.Drawing.Color.Transparent +Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label37.ForeColor = System.Drawing.Color.Black +Me.Label37.Location = New System.Drawing.Point(184, 19) +Me.Label37.Name = "Label37" +Me.Label37.Size = New System.Drawing.Size(10, 17) +Me.Label37.TabIndex = 166 +Me.Label37.Text = "-" +Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label39 +' +Me.Label39.BackColor = System.Drawing.Color.Transparent +Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label39.ForeColor = System.Drawing.Color.Black +Me.Label39.Location = New System.Drawing.Point(12, 19) +Me.Label39.Name = "Label39" +Me.Label39.Size = New System.Drawing.Size(116, 17) +Me.Label39.TabIndex = 165 +Me.Label39.Text = "Domme Mood Index:" +Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBSubAgeMax +' +Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 94) +Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) +Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) +Me.NBSubAgeMax.Name = "NBSubAgeMax" +Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) +Me.NBSubAgeMax.TabIndex = 164 +Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) +' +'NBSubAgeMin +' +Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 94) +Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) +Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) +Me.NBSubAgeMin.Name = "NBSubAgeMin" +Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) +Me.NBSubAgeMin.TabIndex = 163 +Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) +' +'Label31 +' +Me.Label31.BackColor = System.Drawing.Color.Transparent +Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label31.ForeColor = System.Drawing.Color.Black +Me.Label31.Location = New System.Drawing.Point(184, 94) +Me.Label31.Name = "Label31" +Me.Label31.Size = New System.Drawing.Size(10, 17) +Me.Label31.TabIndex = 162 +Me.Label31.Text = "-" +Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label36 +' +Me.Label36.BackColor = System.Drawing.Color.Transparent +Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label36.ForeColor = System.Drawing.Color.Black +Me.Label36.Location = New System.Drawing.Point(12, 94) +Me.Label36.Name = "Label36" +Me.Label36.Size = New System.Drawing.Size(113, 17) +Me.Label36.TabIndex = 161 +Me.Label36.Text = "Sub Age Perception:" +Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBSelfAgeMax +' +Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 69) +Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) +Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) +Me.NBSelfAgeMax.Name = "NBSelfAgeMax" +Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) +Me.NBSelfAgeMax.TabIndex = 156 +Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) +' +'NBSelfAgeMin +' +Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 69) +Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) +Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) +Me.NBSelfAgeMin.Name = "NBSelfAgeMin" +Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) +Me.NBSelfAgeMin.TabIndex = 155 +Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) +' +'Label21 +' +Me.Label21.BackColor = System.Drawing.Color.Transparent +Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label21.ForeColor = System.Drawing.Color.Black +Me.Label21.Location = New System.Drawing.Point(184, 69) +Me.Label21.Name = "Label21" +Me.Label21.Size = New System.Drawing.Size(10, 17) +Me.Label21.TabIndex = 154 +Me.Label21.Text = "-" +Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label22 +' +Me.Label22.BackColor = System.Drawing.Color.Transparent +Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label22.ForeColor = System.Drawing.Color.Black +Me.Label22.Location = New System.Drawing.Point(12, 69) +Me.Label22.Name = "Label22" +Me.Label22.Size = New System.Drawing.Size(116, 17) +Me.Label22.TabIndex = 153 +Me.Label22.Text = "Self Age Perception:" +Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBAvgCockMax +' +Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 44) +Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) +Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBAvgCockMax.Name = "NBAvgCockMax" +Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) +Me.NBAvgCockMax.TabIndex = 152 +Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) +' +'NBAvgCockMin +' +Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 44) +Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) +Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBAvgCockMin.Name = "NBAvgCockMin" +Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) +Me.NBAvgCockMin.TabIndex = 151 +Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) +' +'Label23 +' +Me.Label23.BackColor = System.Drawing.Color.Transparent +Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label23.ForeColor = System.Drawing.Color.Black +Me.Label23.Location = New System.Drawing.Point(184, 44) +Me.Label23.Name = "Label23" +Me.Label23.Size = New System.Drawing.Size(10, 17) +Me.Label23.TabIndex = 150 +Me.Label23.Text = "-" +Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label30 +' +Me.Label30.BackColor = System.Drawing.Color.Transparent +Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label30.ForeColor = System.Drawing.Color.Black +Me.Label30.Location = New System.Drawing.Point(12, 44) +Me.Label30.Name = "Label30" +Me.Label30.Size = New System.Drawing.Size(116, 17) +Me.Label30.TabIndex = 149 +Me.Label30.Text = "Average Dick Size:" +Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GBDomStats +' +Me.GBDomStats.BackColor = System.Drawing.Color.LightGray +Me.GBDomStats.Controls.Add(Me.Label128) +Me.GBDomStats.Controls.Add(Me.LBLEmpathy) +Me.GBDomStats.Controls.Add(Me.NBEmpathy) +Me.GBDomStats.Controls.Add(Me.Label83) +Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) +Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) +Me.GBDomStats.Controls.Add(Me.TBDomHairColor) +Me.GBDomStats.Controls.Add(Me.domageNumBox) +Me.GBDomStats.Controls.Add(Me.Label47) +Me.GBDomStats.Controls.Add(Me.Label76) +Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) +Me.GBDomStats.Controls.Add(Me.Label84) +Me.GBDomStats.Controls.Add(Me.CBDomTattoos) +Me.GBDomStats.Controls.Add(Me.CBDomFreckles) +Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) +Me.GBDomStats.Controls.Add(Me.Label10) +Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) +Me.GBDomStats.Controls.Add(Me.Label9) +Me.GBDomStats.Controls.Add(Me.boobComboBox) +Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) +Me.GBDomStats.Controls.Add(Me.domlevelNumBox) +Me.GBDomStats.Controls.Add(Me.Label43) +Me.GBDomStats.Controls.Add(Me.Label44) +Me.GBDomStats.Controls.Add(Me.Label45) +Me.GBDomStats.Controls.Add(Me.Label46) +Me.GBDomStats.ForeColor = System.Drawing.Color.Black +Me.GBDomStats.Location = New System.Drawing.Point(7, 30) +Me.GBDomStats.Name = "GBDomStats" +Me.GBDomStats.Size = New System.Drawing.Size(171, 263) +Me.GBDomStats.TabIndex = 62 +Me.GBDomStats.TabStop = false +Me.GBDomStats.Text = "Stats/Appearance" +' +'Label128 +' +Me.Label128.AutoSize = true +Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label128.Location = New System.Drawing.Point(125, 68) +Me.Label128.Name = "Label128" +Me.Label128.Size = New System.Drawing.Size(38, 13) +Me.Label128.TabIndex = 156 +Me.Label128.Text = "mm/dd" +Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLEmpathy +' +Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) +Me.LBLEmpathy.Name = "LBLEmpathy" +Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) +Me.LBLEmpathy.TabIndex = 157 +Me.LBLEmpathy.Text = "Moderate" +Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBEmpathy +' +Me.NBEmpathy.BackColor = System.Drawing.Color.White +Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBEmpathy.ForeColor = System.Drawing.Color.Black +Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) +Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBEmpathy.Name = "NBEmpathy" +Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) +Me.NBEmpathy.TabIndex = 156 +Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label83 +' +Me.Label83.BackColor = System.Drawing.Color.Transparent +Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label83.ForeColor = System.Drawing.Color.Black +Me.Label83.Location = New System.Drawing.Point(6, 37) +Me.Label83.Name = "Label83" +Me.Label83.Size = New System.Drawing.Size(60, 17) +Me.Label83.TabIndex = 158 +Me.Label83.Text = "Apathy:" +Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBDomBirthdayDay +' +Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White +Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black +Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) +Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) +Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" +Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) +Me.NBDomBirthdayDay.TabIndex = 152 +Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'TBDomEyeColor +' +Me.TBDomEyeColor.BackColor = System.Drawing.Color.White +Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black +Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) +Me.TBDomEyeColor.Name = "TBDomEyeColor" +Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) +Me.TBDomEyeColor.TabIndex = 154 +Me.TBDomEyeColor.Text = "green" +' +'TBDomHairColor +' +Me.TBDomHairColor.BackColor = System.Drawing.Color.White +Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black +Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) +Me.TBDomHairColor.Name = "TBDomHairColor" +Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) +Me.TBDomHairColor.TabIndex = 153 +Me.TBDomHairColor.Text = "brown" +' +'domageNumBox +' +Me.domageNumBox.BackColor = System.Drawing.Color.White +Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.domageNumBox.ForeColor = System.Drawing.Color.Black +Me.domageNumBox.Location = New System.Drawing.Point(73, 61) +Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) +Me.domageNumBox.Name = "domageNumBox" +Me.domageNumBox.Size = New System.Drawing.Size(38, 20) +Me.domageNumBox.TabIndex = 27 +Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) +' +'Label47 +' +Me.Label47.BackColor = System.Drawing.Color.Transparent +Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label47.ForeColor = System.Drawing.Color.Black +Me.Label47.Location = New System.Drawing.Point(6, 60) +Me.Label47.Name = "Label47" +Me.Label47.Size = New System.Drawing.Size(63, 17) +Me.Label47.TabIndex = 138 +Me.Label47.Text = "Age:" +Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label76 +' +Me.Label76.AutoSize = true +Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label76.ForeColor = System.Drawing.Color.Black +Me.Label76.Location = New System.Drawing.Point(113, 87) +Me.Label76.Name = "Label76" +Me.Label76.Size = New System.Drawing.Size(12, 13) +Me.Label76.TabIndex = 151 +Me.Label76.Text = "/" +Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBDomBirthdayMonth +' +Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White +Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black +Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) +Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) +Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" +Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) +Me.NBDomBirthdayMonth.TabIndex = 149 +Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label84 +' +Me.Label84.BackColor = System.Drawing.Color.Transparent +Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label84.ForeColor = System.Drawing.Color.Black +Me.Label84.Location = New System.Drawing.Point(6, 84) +Me.Label84.Name = "Label84" +Me.Label84.Size = New System.Drawing.Size(60, 17) +Me.Label84.TabIndex = 150 +Me.Label84.Text = "Birthday:" +Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBDomTattoos +' +Me.CBDomTattoos.AutoSize = true +Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black +Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) +Me.CBDomTattoos.Name = "CBDomTattoos" +Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBDomTattoos.TabIndex = 148 +Me.CBDomTattoos.Text = "Tattoos" +Me.CBDomTattoos.UseVisualStyleBackColor = true +' +'CBDomFreckles +' +Me.CBDomFreckles.AutoSize = true +Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black +Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) +Me.CBDomFreckles.Name = "CBDomFreckles" +Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) +Me.CBDomFreckles.TabIndex = 147 +Me.CBDomFreckles.Text = "Freckles" +Me.CBDomFreckles.UseVisualStyleBackColor = true +' +'domhairlengthComboBox +' +Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White +Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black +Me.domhairlengthComboBox.FormattingEnabled = true +Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) +Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) +Me.domhairlengthComboBox.Name = "domhairlengthComboBox" +Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) +Me.domhairlengthComboBox.TabIndex = 145 +' +'Label10 +' +Me.Label10.BackColor = System.Drawing.Color.Transparent +Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label10.ForeColor = System.Drawing.Color.Black +Me.Label10.Location = New System.Drawing.Point(6, 133) +Me.Label10.Name = "Label10" +Me.Label10.Size = New System.Drawing.Size(78, 17) +Me.Label10.TabIndex = 146 +Me.Label10.Text = "Hair Length:" +Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'dompubichairComboBox +' +Me.dompubichairComboBox.BackColor = System.Drawing.Color.White +Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black +Me.dompubichairComboBox.FormattingEnabled = true +Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) +Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) +Me.dompubichairComboBox.Name = "dompubichairComboBox" +Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) +Me.dompubichairComboBox.TabIndex = 143 +' +'Label9 +' +Me.Label9.BackColor = System.Drawing.Color.Transparent +Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label9.ForeColor = System.Drawing.Color.Black +Me.Label9.Location = New System.Drawing.Point(6, 209) +Me.Label9.Name = "Label9" +Me.Label9.Size = New System.Drawing.Size(63, 17) +Me.Label9.TabIndex = 144 +Me.Label9.Text = "Pubic Hair:" +Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'boobComboBox +' +Me.boobComboBox.BackColor = System.Drawing.Color.White +Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.boobComboBox.ForeColor = System.Drawing.Color.Black +Me.boobComboBox.FormattingEnabled = true +Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) +Me.boobComboBox.Location = New System.Drawing.Point(73, 182) +Me.boobComboBox.Name = "boobComboBox" +Me.boobComboBox.Size = New System.Drawing.Size(89, 21) +Me.boobComboBox.TabIndex = 2 +' +'DomLevelDescLabel +' +Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) +Me.DomLevelDescLabel.Name = "DomLevelDescLabel" +Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) +Me.DomLevelDescLabel.TabIndex = 42 +Me.DomLevelDescLabel.Text = "Tease" +Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'domlevelNumBox +' +Me.domlevelNumBox.BackColor = System.Drawing.Color.White +Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black +Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) +Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.domlevelNumBox.Name = "domlevelNumBox" +Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) +Me.domlevelNumBox.TabIndex = 41 +Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label43 +' +Me.Label43.BackColor = System.Drawing.Color.Transparent +Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label43.ForeColor = System.Drawing.Color.Black +Me.Label43.Location = New System.Drawing.Point(6, 183) +Me.Label43.Name = "Label43" +Me.Label43.Size = New System.Drawing.Size(63, 17) +Me.Label43.TabIndex = 142 +Me.Label43.Text = "Cup Size:" +Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label44 +' +Me.Label44.BackColor = System.Drawing.Color.Transparent +Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label44.ForeColor = System.Drawing.Color.Black +Me.Label44.Location = New System.Drawing.Point(6, 158) +Me.Label44.Name = "Label44" +Me.Label44.Size = New System.Drawing.Size(63, 17) +Me.Label44.TabIndex = 141 +Me.Label44.Text = "Eye Color:" +Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label45 +' +Me.Label45.BackColor = System.Drawing.Color.Transparent +Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label45.ForeColor = System.Drawing.Color.Black +Me.Label45.Location = New System.Drawing.Point(6, 108) +Me.Label45.Name = "Label45" +Me.Label45.Size = New System.Drawing.Size(78, 17) +Me.Label45.TabIndex = 140 +Me.Label45.Text = "Hair Color:" +Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label46 +' +Me.Label46.BackColor = System.Drawing.Color.Transparent +Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label46.ForeColor = System.Drawing.Color.Black +Me.Label46.Location = New System.Drawing.Point(6, 15) +Me.Label46.Name = "Label46" +Me.Label46.Size = New System.Drawing.Size(46, 17) +Me.Label46.TabIndex = 139 +Me.Label46.Text = "Level:" +Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GBDomPersonality +' +Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) +Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) +Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) +Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) +Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) +Me.GBDomPersonality.Controls.Add(Me.CFNMCheckBox) +Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black +Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) +Me.GBDomPersonality.Name = "GBDomPersonality" +Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) +Me.GBDomPersonality.TabIndex = 131 +Me.GBDomPersonality.TabStop = false +Me.GBDomPersonality.Text = "Personality" +' +'degradingCheckBox +' +Me.degradingCheckBox.AutoSize = true +Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black +Me.degradingCheckBox.Location = New System.Drawing.Point(79, 43) +Me.degradingCheckBox.Name = "degradingCheckBox" +Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) +Me.degradingCheckBox.TabIndex = 40 +Me.degradingCheckBox.Text = "Degrading" +Me.degradingCheckBox.UseVisualStyleBackColor = true +' +'sadisticCheckBox +' +Me.sadisticCheckBox.AutoSize = true +Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black +Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) +Me.sadisticCheckBox.Name = "sadisticCheckBox" +Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) +Me.sadisticCheckBox.TabIndex = 39 +Me.sadisticCheckBox.Text = "Sadistic" +Me.sadisticCheckBox.UseVisualStyleBackColor = true +' +'supremacistCheckBox +' +Me.supremacistCheckBox.AutoSize = true +Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black +Me.supremacistCheckBox.Location = New System.Drawing.Point(155, 20) +Me.supremacistCheckBox.Name = "supremacistCheckBox" +Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) +Me.supremacistCheckBox.TabIndex = 38 +Me.supremacistCheckBox.Text = "Supremacist" +Me.supremacistCheckBox.UseVisualStyleBackColor = true +' +'vulgarCheckBox +' +Me.vulgarCheckBox.AutoSize = true +Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black +Me.vulgarCheckBox.Location = New System.Drawing.Point(79, 20) +Me.vulgarCheckBox.Name = "vulgarCheckBox" +Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) +Me.vulgarCheckBox.TabIndex = 37 +Me.vulgarCheckBox.Text = "Vulgar" +Me.vulgarCheckBox.UseVisualStyleBackColor = true +' +'crazyCheckBox +' +Me.crazyCheckBox.AutoSize = true +Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black +Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) +Me.crazyCheckBox.Name = "crazyCheckBox" +Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) +Me.crazyCheckBox.TabIndex = 36 +Me.crazyCheckBox.Text = "Crazy" +Me.crazyCheckBox.UseVisualStyleBackColor = true +' +'CFNMCheckBox +' +Me.CFNMCheckBox.AutoSize = true +Me.CFNMCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CFNMCheckBox.ForeColor = System.Drawing.Color.Black +Me.CFNMCheckBox.Location = New System.Drawing.Point(155, 43) +Me.CFNMCheckBox.Name = "CFNMCheckBox" +Me.CFNMCheckBox.Size = New System.Drawing.Size(56, 17) +Me.CFNMCheckBox.TabIndex = 41 +Me.CFNMCheckBox.Text = "CFNM" +Me.CFNMCheckBox.UseVisualStyleBackColor = true +' +'GBDomOrgasms +' +Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) +Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) +Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) +Me.GBDomOrgasms.Controls.Add(Me.Label16) +Me.GBDomOrgasms.Controls.Add(Me.Label12) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) +Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) +Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) +Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) +Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) +Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black +Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) +Me.GBDomOrgasms.Name = "GBDomOrgasms" +Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) +Me.GBDomOrgasms.TabIndex = 132 +Me.GBDomOrgasms.TabStop = false +Me.GBDomOrgasms.Text = "Orgasms" +' +'CBLockOrgasmChances +' +Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances +Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black +Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) +Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" +Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) +Me.CBLockOrgasmChances.TabIndex = 146 +Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" +Me.CBLockOrgasmChances.UseVisualStyleBackColor = true +' +'orgasmlockrandombutton +' +Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray +Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black +Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) +Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" +Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) +Me.orgasmlockrandombutton.TabIndex = 145 +Me.orgasmlockrandombutton.Text = "Lock Random" +Me.orgasmlockrandombutton.UseVisualStyleBackColor = false +' +'CBDomOrgasmEnds +' +Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black +Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) +Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" +Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) +Me.CBDomOrgasmEnds.TabIndex = 144 +Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" +Me.CBDomOrgasmEnds.UseVisualStyleBackColor = true +' +'Label16 +' +Me.Label16.BackColor = System.Drawing.Color.Transparent +Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label16.ForeColor = System.Drawing.Color.Black +Me.Label16.Location = New System.Drawing.Point(12, 47) +Me.Label16.Name = "Label16" +Me.Label16.Size = New System.Drawing.Size(87, 17) +Me.Label16.TabIndex = 142 +Me.Label16.Text = "Ruins Orgasms:" +Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label12 +' +Me.Label12.BackColor = System.Drawing.Color.Transparent +Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label12.ForeColor = System.Drawing.Color.Black +Me.Label12.Location = New System.Drawing.Point(12, 19) +Me.Label12.Name = "Label12" +Me.Label12.Size = New System.Drawing.Size(87, 17) +Me.Label12.TabIndex = 141 +Me.Label12.Text = "Allows Orgasms:" +Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'orgasmsperlockButton +' +Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray +Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black +Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) +Me.orgasmsperlockButton.Name = "orgasmsperlockButton" +Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) +Me.orgasmsperlockButton.TabIndex = 97 +Me.orgasmsperlockButton.Text = "Lock Selected" +Me.orgasmsperlockButton.UseVisualStyleBackColor = false +' +'orgasmsperComboBox +' +Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White +Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black +Me.orgasmsperComboBox.FormattingEnabled = true +Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) +Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) +Me.orgasmsperComboBox.Name = "orgasmsperComboBox" +Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) +Me.orgasmsperComboBox.TabIndex = 43 +' +'orgasmsperLabel +' +Me.orgasmsperLabel.AutoSize = true +Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black +Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) +Me.orgasmsperLabel.Name = "orgasmsperLabel" +Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) +Me.orgasmsperLabel.TabIndex = 42 +Me.orgasmsperLabel.Text = "per" +Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'limitcheckbox +' +Me.limitcheckbox.AutoSize = true +Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.limitcheckbox.ForeColor = System.Drawing.Color.Black +Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) +Me.limitcheckbox.Name = "limitcheckbox" +Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) +Me.limitcheckbox.TabIndex = 39 +Me.limitcheckbox.Text = "Limit" +Me.limitcheckbox.UseVisualStyleBackColor = true +' +'orgasmsPerNumBox +' +Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White +Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black +Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) +Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" +Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) +Me.orgasmsPerNumBox.TabIndex = 41 +Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'CBDomDenialEnds +' +Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black +Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) +Me.CBDomDenialEnds.Name = "CBDomDenialEnds" +Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) +Me.CBDomDenialEnds.TabIndex = 38 +Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" +Me.CBDomDenialEnds.UseVisualStyleBackColor = true +' +'alloworgasmComboBox +' +Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White +Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black +Me.alloworgasmComboBox.FormattingEnabled = true +Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) +Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) +Me.alloworgasmComboBox.Name = "alloworgasmComboBox" +Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) +Me.alloworgasmComboBox.TabIndex = 1 +' +'ruinorgasmComboBox +' +Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White +Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black +Me.ruinorgasmComboBox.FormattingEnabled = true +Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) +Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) +Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" +Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) +Me.ruinorgasmComboBox.TabIndex = 2 +' +'GBDomPetNames +' +Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray +Me.GBDomPetNames.Controls.Add(Me.Label74) +Me.GBDomPetNames.Controls.Add(Me.petnameBox7) +Me.GBDomPetNames.Controls.Add(Me.petnameBox8) +Me.GBDomPetNames.Controls.Add(Me.petnameBox1) +Me.GBDomPetNames.Controls.Add(Me.Label15) +Me.GBDomPetNames.Controls.Add(Me.petnameBox4) +Me.GBDomPetNames.Controls.Add(Me.petnameBox6) +Me.GBDomPetNames.Controls.Add(Me.petnameBox2) +Me.GBDomPetNames.Controls.Add(Me.Label11) +Me.GBDomPetNames.Controls.Add(Me.petnameBox5) +Me.GBDomPetNames.Controls.Add(Me.petnameBox3) +Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black +Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) +Me.GBDomPetNames.Name = "GBDomPetNames" +Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) +Me.GBDomPetNames.TabIndex = 134 +Me.GBDomPetNames.TabStop = false +Me.GBDomPetNames.Text = "Pet Names" +' +'Label74 +' +Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label74.ForeColor = System.Drawing.Color.Black +Me.Label74.Location = New System.Drawing.Point(8, 14) +Me.Label74.Name = "Label74" +Me.Label74.Size = New System.Drawing.Size(233, 13) +Me.Label74.TabIndex = 45 +Me.Label74.Text = "Great Mood" +Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'petnameBox7 +' +Me.petnameBox7.BackColor = System.Drawing.Color.White +Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox7.ForeColor = System.Drawing.Color.Black +Me.petnameBox7.Location = New System.Drawing.Point(8, 154) +Me.petnameBox7.Name = "petnameBox7" +Me.petnameBox7.Size = New System.Drawing.Size(114, 23) +Me.petnameBox7.TabIndex = 13 +Me.petnameBox7.Text = "bitch boy" +Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox8 +' +Me.petnameBox8.BackColor = System.Drawing.Color.White +Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox8.ForeColor = System.Drawing.Color.Black +Me.petnameBox8.Location = New System.Drawing.Point(128, 154) +Me.petnameBox8.Name = "petnameBox8" +Me.petnameBox8.Size = New System.Drawing.Size(113, 22) +Me.petnameBox8.TabIndex = 14 +Me.petnameBox8.Text = "slut" +Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox1 +' +Me.petnameBox1.BackColor = System.Drawing.Color.White +Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox1.ForeColor = System.Drawing.Color.Black +Me.petnameBox1.Location = New System.Drawing.Point(8, 32) +Me.petnameBox1.Name = "petnameBox1" +Me.petnameBox1.Size = New System.Drawing.Size(114, 23) +Me.petnameBox1.TabIndex = 7 +Me.petnameBox1.Text = "stroker" +Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label15 +' +Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label15.ForeColor = System.Drawing.Color.Black +Me.Label15.Location = New System.Drawing.Point(8, 136) +Me.Label15.Name = "Label15" +Me.Label15.Size = New System.Drawing.Size(233, 13) +Me.Label15.TabIndex = 44 +Me.Label15.Text = "Bad Mood" +Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'petnameBox4 +' +Me.petnameBox4.BackColor = System.Drawing.Color.White +Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox4.ForeColor = System.Drawing.Color.Black +Me.petnameBox4.Location = New System.Drawing.Point(128, 81) +Me.petnameBox4.Name = "petnameBox4" +Me.petnameBox4.Size = New System.Drawing.Size(113, 23) +Me.petnameBox4.TabIndex = 10 +Me.petnameBox4.Text = "loser" +Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox6 +' +Me.petnameBox6.BackColor = System.Drawing.Color.White +Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox6.ForeColor = System.Drawing.Color.Black +Me.petnameBox6.Location = New System.Drawing.Point(128, 107) +Me.petnameBox6.Name = "petnameBox6" +Me.petnameBox6.Size = New System.Drawing.Size(113, 23) +Me.petnameBox6.TabIndex = 12 +Me.petnameBox6.Text = "pet" +Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox2 +' +Me.petnameBox2.BackColor = System.Drawing.Color.White +Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox2.ForeColor = System.Drawing.Color.Black +Me.petnameBox2.Location = New System.Drawing.Point(128, 32) +Me.petnameBox2.Name = "petnameBox2" +Me.petnameBox2.Size = New System.Drawing.Size(114, 23) +Me.petnameBox2.TabIndex = 8 +Me.petnameBox2.Text = "wanker" +Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label11 +' +Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label11.ForeColor = System.Drawing.Color.Black +Me.Label11.Location = New System.Drawing.Point(5, 63) +Me.Label11.Name = "Label11" +Me.Label11.Size = New System.Drawing.Size(239, 13) +Me.Label11.TabIndex = 43 +Me.Label11.Text = "Neutral Mood" +Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'petnameBox5 +' +Me.petnameBox5.BackColor = System.Drawing.Color.White +Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox5.ForeColor = System.Drawing.Color.Black +Me.petnameBox5.Location = New System.Drawing.Point(8, 107) +Me.petnameBox5.Name = "petnameBox5" +Me.petnameBox5.Size = New System.Drawing.Size(114, 23) +Me.petnameBox5.TabIndex = 11 +Me.petnameBox5.Text = "baby" +Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox3 +' +Me.petnameBox3.BackColor = System.Drawing.Color.White +Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox3.ForeColor = System.Drawing.Color.Black +Me.petnameBox3.Location = New System.Drawing.Point(8, 81) +Me.petnameBox3.Name = "petnameBox3" +Me.petnameBox3.Size = New System.Drawing.Size(114, 23) +Me.petnameBox3.TabIndex = 9 +Me.petnameBox3.Text = "slave" +Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label54 +' +Me.Label54.BackColor = System.Drawing.Color.Transparent +Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label54.ForeColor = System.Drawing.Color.Black +Me.Label54.Location = New System.Drawing.Point(7, 6) +Me.Label54.Name = "Label54" +Me.Label54.Size = New System.Drawing.Size(692, 21) +Me.Label54.TabIndex = 49 +Me.Label54.Text = "Domme Settings" +Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage10 +' +Me.TabPage10.BackColor = System.Drawing.Color.Silver +Me.TabPage10.Controls.Add(Me.Panel2) +Me.TabPage10.Location = New System.Drawing.Point(4, 22) +Me.TabPage10.Name = "TabPage10" +Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage10.Size = New System.Drawing.Size(720, 448) +Me.TabPage10.TabIndex = 9 +Me.TabPage10.Text = "Sub" +' +'Panel2 +' +Me.Panel2.BackColor = System.Drawing.Color.LightGray +Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel2.Controls.Add(Me.GroupBox22) +Me.Panel2.Controls.Add(Me.GroupBox45) +Me.Panel2.Controls.Add(Me.GroupBox35) +Me.Panel2.Controls.Add(Me.GroupBox13) +Me.Panel2.Controls.Add(Me.GroupBox7) +Me.Panel2.Controls.Add(Me.PictureBox12) +Me.Panel2.Controls.Add(Me.GroupBox32) +Me.Panel2.Controls.Add(Me.Label70) +Me.Panel2.Location = New System.Drawing.Point(6, 6) +Me.Panel2.Name = "Panel2" +Me.Panel2.Size = New System.Drawing.Size(708, 437) +Me.Panel2.TabIndex = 94 +' +'GroupBox22 +' +Me.GroupBox22.BackColor = System.Drawing.Color.LightGray +Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) +Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) +Me.GroupBox22.Controls.Add(Me.Label75) +Me.GroupBox22.Controls.Add(Me.Label77) +Me.GroupBox22.ForeColor = System.Drawing.Color.Black +Me.GroupBox22.Location = New System.Drawing.Point(440, 388) +Me.GroupBox22.Name = "GroupBox22" +Me.GroupBox22.Size = New System.Drawing.Size(259, 39) +Me.GroupBox22.TabIndex = 158 +Me.GroupBox22.TabStop = false +Me.GroupBox22.Text = "Writing Tasks" +' +'NBWritingTaskMax +' +Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) +Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMax.Name = "NBWritingTaskMax" +Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) +Me.NBWritingTaskMax.TabIndex = 168 +Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) +' +'NBWritingTaskMin +' +Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) +Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMin.Name = "NBWritingTaskMin" +Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) +Me.NBWritingTaskMin.TabIndex = 167 +Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +' +'Label75 +' +Me.Label75.BackColor = System.Drawing.Color.Transparent +Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label75.ForeColor = System.Drawing.Color.Black +Me.Label75.Location = New System.Drawing.Point(184, 13) +Me.Label75.Name = "Label75" +Me.Label75.Size = New System.Drawing.Size(10, 17) +Me.Label75.TabIndex = 166 +Me.Label75.Text = "-" +Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label77 +' +Me.Label77.BackColor = System.Drawing.Color.Transparent +Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label77.ForeColor = System.Drawing.Color.Black +Me.Label77.Location = New System.Drawing.Point(12, 15) +Me.Label77.Name = "Label77" +Me.Label77.Size = New System.Drawing.Size(126, 17) +Me.Label77.TabIndex = 165 +Me.Label77.Tag = "" +Me.Label77.Text = "Line Amount Range:" +Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox45 +' +Me.GroupBox45.BackColor = System.Drawing.Color.LightGray +Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) +Me.GroupBox45.Controls.Add(Me.CBCBTBalls) +Me.GroupBox45.Controls.Add(Me.CBCBTCock) +Me.GroupBox45.Controls.Add(Me.CBTSlider) +Me.GroupBox45.ForeColor = System.Drawing.Color.Black +Me.GroupBox45.Location = New System.Drawing.Point(440, 294) +Me.GroupBox45.Name = "GroupBox45" +Me.GroupBox45.Size = New System.Drawing.Size(259, 50) +Me.GroupBox45.TabIndex = 155 +Me.GroupBox45.TabStop = false +Me.GroupBox45.Text = "CBT" +' +'LBLCBTSlider +' +Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black +Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) +Me.LBLCBTSlider.Name = "LBLCBTSlider" +Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) +Me.LBLCBTSlider.TabIndex = 168 +Me.LBLCBTSlider.Text = "CBT Level: 3" +Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBCBTBalls +' +Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) +Me.CBCBTBalls.Name = "CBCBTBalls" +Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) +Me.CBCBTBalls.TabIndex = 1 +Me.CBCBTBalls.Text = "Ball Torture" +Me.CBCBTBalls.UseVisualStyleBackColor = true +' +'CBCBTCock +' +Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) +Me.CBCBTCock.Name = "CBCBTCock" +Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) +Me.CBCBTCock.TabIndex = 0 +Me.CBCBTCock.Text = "Cock Torture" +Me.CBCBTCock.UseVisualStyleBackColor = true +' +'CBTSlider +' +Me.CBTSlider.AutoSize = false +Me.CBTSlider.LargeChange = 1 +Me.CBTSlider.Location = New System.Drawing.Point(134, 13) +Me.CBTSlider.Maximum = 5 +Me.CBTSlider.Minimum = 1 +Me.CBTSlider.Name = "CBTSlider" +Me.CBTSlider.Size = New System.Drawing.Size(110, 25) +Me.CBTSlider.TabIndex = 166 +Me.CBTSlider.Value = 3 +' +'GroupBox35 +' +Me.GroupBox35.BackColor = System.Drawing.Color.LightGray +Me.GroupBox35.Controls.Add(Me.GroupBox39) +Me.GroupBox35.Controls.Add(Me.GroupBox38) +Me.GroupBox35.Controls.Add(Me.GroupBox37) +Me.GroupBox35.Controls.Add(Me.GroupBox36) +Me.GroupBox35.ForeColor = System.Drawing.Color.Black +Me.GroupBox35.Location = New System.Drawing.Point(440, 30) +Me.GroupBox35.Name = "GroupBox35" +Me.GroupBox35.Size = New System.Drawing.Size(259, 263) +Me.GroupBox35.TabIndex = 154 +Me.GroupBox35.TabStop = false +Me.GroupBox35.Text = "Key Phrases" +' +'GroupBox39 +' +Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) +Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) +Me.GroupBox39.Controls.Add(Me.TBHonorific) +Me.GroupBox39.Location = New System.Drawing.Point(6, 168) +Me.GroupBox39.Name = "GroupBox39" +Me.GroupBox39.Size = New System.Drawing.Size(247, 89) +Me.GroupBox39.TabIndex = 3 +Me.GroupBox39.TabStop = false +Me.GroupBox39.Tag = "" +Me.GroupBox39.Text = "Honorific" +' +'CBHonorificInclude +' +Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black +Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 44) +Me.CBHonorificInclude.Name = "CBHonorificInclude" +Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) +Me.CBHonorificInclude.TabIndex = 40 +Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" +Me.CBHonorificInclude.UseVisualStyleBackColor = true +' +'CBHonorificCapitalized +' +Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black +Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 66) +Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" +Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) +Me.CBHonorificCapitalized.TabIndex = 39 +Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" +Me.CBHonorificCapitalized.UseVisualStyleBackColor = true +' +'TBHonorific +' +Me.TBHonorific.Location = New System.Drawing.Point(9, 16) +Me.TBHonorific.Name = "TBHonorific" +Me.TBHonorific.Size = New System.Drawing.Size(229, 20) +Me.TBHonorific.TabIndex = 0 +Me.TBHonorific.Text = "Mistress" +' +'GroupBox38 +' +Me.GroupBox38.Controls.Add(Me.TBNo) +Me.GroupBox38.Location = New System.Drawing.Point(6, 116) +Me.GroupBox38.Name = "GroupBox38" +Me.GroupBox38.Size = New System.Drawing.Size(247, 46) +Me.GroupBox38.TabIndex = 2 +Me.GroupBox38.TabStop = false +Me.GroupBox38.Tag = "" +Me.GroupBox38.Text = "No" +' +'TBNo +' +Me.TBNo.Location = New System.Drawing.Point(9, 16) +Me.TBNo.Name = "TBNo" +Me.TBNo.Size = New System.Drawing.Size(229, 20) +Me.TBNo.TabIndex = 0 +Me.TBNo.Text = "no, nah, nope, not" +' +'GroupBox37 +' +Me.GroupBox37.Controls.Add(Me.TBYes) +Me.GroupBox37.Location = New System.Drawing.Point(6, 64) +Me.GroupBox37.Name = "GroupBox37" +Me.GroupBox37.Size = New System.Drawing.Size(247, 46) +Me.GroupBox37.TabIndex = 1 +Me.GroupBox37.TabStop = false +Me.GroupBox37.Tag = "" +Me.GroupBox37.Text = "Yes" +' +'TBYes +' +Me.TBYes.Location = New System.Drawing.Point(9, 16) +Me.TBYes.Name = "TBYes" +Me.TBYes.Size = New System.Drawing.Size(229, 20) +Me.TBYes.TabIndex = 0 +Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" +' +'GroupBox36 +' +Me.GroupBox36.Controls.Add(Me.TBGreeting) +Me.GroupBox36.Location = New System.Drawing.Point(6, 12) +Me.GroupBox36.Name = "GroupBox36" +Me.GroupBox36.Size = New System.Drawing.Size(247, 46) +Me.GroupBox36.TabIndex = 0 +Me.GroupBox36.TabStop = false +Me.GroupBox36.Tag = "" +Me.GroupBox36.Text = "Greeting" +' +'TBGreeting +' +Me.TBGreeting.Location = New System.Drawing.Point(9, 16) +Me.TBGreeting.Name = "TBGreeting" +Me.TBGreeting.Size = New System.Drawing.Size(229, 20) +Me.TBGreeting.TabIndex = 0 +Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" +' +'GroupBox13 +' +Me.GroupBox13.BackColor = System.Drawing.Color.LightGray +Me.GroupBox13.Controls.Add(Me.Label34) +Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) +Me.GroupBox13.ForeColor = System.Drawing.Color.Black +Me.GroupBox13.Location = New System.Drawing.Point(440, 346) +Me.GroupBox13.Name = "GroupBox13" +Me.GroupBox13.Size = New System.Drawing.Size(259, 39) +Me.GroupBox13.TabIndex = 157 +Me.GroupBox13.TabStop = false +Me.GroupBox13.Text = "Routine" +' +'Label34 +' +Me.Label34.BackColor = System.Drawing.Color.Transparent +Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label34.ForeColor = System.Drawing.Color.Black +Me.Label34.Location = New System.Drawing.Point(12, 15) +Me.Label34.Name = "Label34" +Me.Label34.Size = New System.Drawing.Size(116, 17) +Me.Label34.TabIndex = 140 +Me.Label34.Text = "Daily Wake Up Time:" +Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'TimeBoxWakeUp +' +Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time +Me.TimeBoxWakeUp.Location = New System.Drawing.Point(134, 12) +Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" +Me.TimeBoxWakeUp.ShowUpDown = true +Me.TimeBoxWakeUp.Size = New System.Drawing.Size(110, 20) +Me.TimeBoxWakeUp.TabIndex = 0 +' +'GroupBox7 +' +Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) +Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) +Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) +Me.GroupBox7.Controls.Add(Me.Label133) +Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) +Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) +Me.GroupBox7.Controls.Add(Me.Label78) +Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) +Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) +Me.GroupBox7.Controls.Add(Me.Label129) +Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) +Me.GroupBox7.Controls.Add(Me.LBLMaxHold) +Me.GroupBox7.Controls.Add(Me.Label79) +Me.GroupBox7.Controls.Add(Me.NBLongEdge) +Me.GroupBox7.Controls.Add(Me.LBLMinHold) +Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) +Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) +Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) +Me.GroupBox7.Controls.Add(Me.Label55) +Me.GroupBox7.Controls.Add(Me.Label81) +Me.GroupBox7.Controls.Add(Me.Label5) +Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) +Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) +Me.GroupBox7.Controls.Add(Me.Label131) +Me.GroupBox7.Location = New System.Drawing.Point(7, 201) +Me.GroupBox7.Name = "GroupBox7" +Me.GroupBox7.Size = New System.Drawing.Size(226, 226) +Me.GroupBox7.TabIndex = 152 +Me.GroupBox7.TabStop = false +Me.GroupBox7.Text = "Edging" +' +'LBLMaxExtremeHold +' +Me.LBLMaxExtremeHold.AutoSize = true +Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) +Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" +Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMaxExtremeHold.TabIndex = 192 +Me.LBLMaxExtremeHold.Text = "minutes" +Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLMinExtremeHold +' +Me.LBLMinExtremeHold.AutoSize = true +Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) +Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" +Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMinExtremeHold.TabIndex = 190 +Me.LBLMinExtremeHold.Text = "minutes" +Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBExtremeHoldMin +' +Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) +Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" +Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) +Me.NBExtremeHoldMin.TabIndex = 189 +Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label133 +' +Me.Label133.BackColor = System.Drawing.Color.Transparent +Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label133.ForeColor = System.Drawing.Color.Black +Me.Label133.Location = New System.Drawing.Point(6, 105) +Me.Label133.Name = "Label133" +Me.Label133.Size = New System.Drawing.Size(119, 17) +Me.Label133.TabIndex = 187 +Me.Label133.Text = "Min Extreme Hold Time:" +Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBExtremeHoldMax +' +Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) +Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" +Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) +Me.NBExtremeHoldMax.TabIndex = 188 +Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'LBLMaxLongHold +' +Me.LBLMaxLongHold.AutoSize = true +Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) +Me.LBLMaxLongHold.Name = "LBLMaxLongHold" +Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMaxLongHold.TabIndex = 186 +Me.LBLMaxLongHold.Text = "minutes" +Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label78 +' +Me.Label78.BackColor = System.Drawing.Color.Transparent +Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label78.ForeColor = System.Drawing.Color.Black +Me.Label78.Location = New System.Drawing.Point(6, 83) +Me.Label78.Name = "Label78" +Me.Label78.Size = New System.Drawing.Size(113, 17) +Me.Label78.TabIndex = 185 +Me.Label78.Text = "Max Long Hold Time:" +Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLMinLongHold +' +Me.LBLMinLongHold.AutoSize = true +Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) +Me.LBLMinLongHold.Name = "LBLMinLongHold" +Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMinLongHold.TabIndex = 184 +Me.LBLMinLongHold.Text = "minutes" +Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBLongHoldMin +' +Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) +Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBLongHoldMin.Name = "NBLongHoldMin" +Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) +Me.NBLongHoldMin.TabIndex = 183 +Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label129 +' +Me.Label129.BackColor = System.Drawing.Color.Transparent +Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label129.ForeColor = System.Drawing.Color.Black +Me.Label129.Location = New System.Drawing.Point(6, 61) +Me.Label129.Name = "Label129" +Me.Label129.Size = New System.Drawing.Size(113, 17) +Me.Label129.TabIndex = 181 +Me.Label129.Text = "Min Long Hold Time:" +Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBLongHoldMax +' +Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) +Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBLongHoldMax.Name = "NBLongHoldMax" +Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) +Me.NBLongHoldMax.TabIndex = 182 +Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'LBLMaxHold +' +Me.LBLMaxHold.AutoSize = true +Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) +Me.LBLMaxHold.Name = "LBLMaxHold" +Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMaxHold.TabIndex = 180 +Me.LBLMaxHold.Text = "minutes" +Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label79 +' +Me.Label79.BackColor = System.Drawing.Color.Transparent +Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label79.ForeColor = System.Drawing.Color.Black +Me.Label79.Location = New System.Drawing.Point(6, 39) +Me.Label79.Name = "Label79" +Me.Label79.Size = New System.Drawing.Size(113, 17) +Me.Label79.TabIndex = 178 +Me.Label79.Text = "Max Hold Edge Time:" +Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBLongEdge +' +Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) +Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBLongEdge.Name = "NBLongEdge" +Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) +Me.NBLongEdge.TabIndex = 152 +Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) +' +'LBLMinHold +' +Me.LBLMinHold.AutoSize = true +Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) +Me.LBLMinHold.Name = "LBLMinHold" +Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) +Me.LBLMinHold.TabIndex = 177 +Me.LBLMinHold.Text = "seconds" +Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBEdgeUseAvg +' +Me.CBEdgeUseAvg.AutoSize = true +Me.CBEdgeUseAvg.Enabled = false +Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) +Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" +Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) +Me.CBEdgeUseAvg.TabIndex = 174 +Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" +Me.CBEdgeUseAvg.UseVisualStyleBackColor = true +' +'CBLongEdgeInterrupts +' +Me.CBLongEdgeInterrupts.Checked = true +Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black +Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) +Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" +Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) +Me.CBLongEdgeInterrupts.TabIndex = 169 +Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" +Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = true +' +'NBHoldTheEdgeMin +' +Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) +Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" +Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) +Me.NBHoldTheEdgeMin.TabIndex = 176 +Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label55 +' +Me.Label55.BackColor = System.Drawing.Color.Transparent +Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label55.ForeColor = System.Drawing.Color.Black +Me.Label55.Location = New System.Drawing.Point(7, 149) +Me.Label55.Name = "Label55" +Me.Label55.Size = New System.Drawing.Size(116, 17) +Me.Label55.TabIndex = 170 +Me.Label55.Text = "Long Edge Threshold:" +Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label81 +' +Me.Label81.BackColor = System.Drawing.Color.Transparent +Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label81.ForeColor = System.Drawing.Color.Black +Me.Label81.Location = New System.Drawing.Point(6, 17) +Me.Label81.Name = "Label81" +Me.Label81.Size = New System.Drawing.Size(113, 17) +Me.Label81.TabIndex = 153 +Me.Label81.Text = "Min Hold Edge Time:" +Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label5 +' +Me.Label5.AutoSize = true +Me.Label5.Location = New System.Drawing.Point(174, 151) +Me.Label5.Name = "Label5" +Me.Label5.Size = New System.Drawing.Size(43, 13) +Me.Label5.TabIndex = 175 +Me.Label5.Text = "minutes" +Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBHoldTheEdgeMax +' +Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) +Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" +Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) +Me.NBHoldTheEdgeMax.TabIndex = 155 +Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'CBLongEdgeTaunts +' +Me.CBLongEdgeTaunts.Checked = true +Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black +Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) +Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" +Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) +Me.CBLongEdgeTaunts.TabIndex = 172 +Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" +Me.CBLongEdgeTaunts.UseVisualStyleBackColor = true +' +'Label131 +' +Me.Label131.BackColor = System.Drawing.Color.Transparent +Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label131.ForeColor = System.Drawing.Color.Black +Me.Label131.Location = New System.Drawing.Point(6, 127) +Me.Label131.Name = "Label131" +Me.Label131.Size = New System.Drawing.Size(128, 17) +Me.Label131.TabIndex = 191 +Me.Label131.Text = "Max Extreme Hold Time:" +Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'PictureBox12 +' +Me.PictureBox12.BackColor = System.Drawing.Color.LightGray +Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox12.Location = New System.Drawing.Point(9, 6) +Me.PictureBox12.Name = "PictureBox12" +Me.PictureBox12.Size = New System.Drawing.Size(160, 19) +Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox12.TabIndex = 149 +Me.PictureBox12.TabStop = false +' +'GroupBox32 +' +Me.GroupBox32.BackColor = System.Drawing.Color.LightGray +Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) +Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) +Me.GroupBox32.Controls.Add(Me.CBOwnChastity) +Me.GroupBox32.Controls.Add(Me.CBChastityPA) +Me.GroupBox32.Controls.Add(Me.CBHimHer) +Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) +Me.GroupBox32.Controls.Add(Me.CBCockToClit) +Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) +Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) +Me.GroupBox32.Controls.Add(Me.CBSubPierced) +Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) +Me.GroupBox32.Controls.Add(Me.TBSubHairColor) +Me.GroupBox32.Controls.Add(Me.Label63) +Me.GroupBox32.Controls.Add(Me.LBLSubInches) +Me.GroupBox32.Controls.Add(Me.subAgeNumBox) +Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) +Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) +Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) +Me.GroupBox32.Controls.Add(Me.LBLSubEye) +Me.GroupBox32.Controls.Add(Me.LBLSubHair) +Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) +Me.GroupBox32.Controls.Add(Me.LBLSubAge) +Me.GroupBox32.ForeColor = System.Drawing.Color.Black +Me.GroupBox32.Location = New System.Drawing.Point(7, 30) +Me.GroupBox32.Name = "GroupBox32" +Me.GroupBox32.Size = New System.Drawing.Size(427, 165) +Me.GroupBox32.TabIndex = 62 +Me.GroupBox32.TabStop = false +Me.GroupBox32.Text = "Stats && Information" +' +'LBLSubBdayFormat +' +Me.LBLSubBdayFormat.AutoSize = true +Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) +Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" +Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) +Me.LBLSubBdayFormat.TabIndex = 161 +Me.LBLSubBdayFormat.Text = "mm/dd" +Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBChastitySpikes +' +Me.CBChastitySpikes.AutoSize = true +Me.CBChastitySpikes.Enabled = false +Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) +Me.CBChastitySpikes.Name = "CBChastitySpikes" +Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) +Me.CBChastitySpikes.TabIndex = 4 +Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" +Me.CBChastitySpikes.UseVisualStyleBackColor = true +' +'CBOwnChastity +' +Me.CBOwnChastity.AutoSize = true +Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) +Me.CBOwnChastity.Name = "CBOwnChastity" +Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) +Me.CBOwnChastity.TabIndex = 5 +Me.CBOwnChastity.Text = "Own Device a Chastity Device" +Me.CBOwnChastity.UseVisualStyleBackColor = true +' +'CBChastityPA +' +Me.CBChastityPA.AutoSize = true +Me.CBChastityPA.Enabled = false +Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) +Me.CBChastityPA.Name = "CBChastityPA" +Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) +Me.CBChastityPA.TabIndex = 3 +Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" +Me.CBChastityPA.UseVisualStyleBackColor = true +' +'CBHimHer +' +Me.CBHimHer.AutoSize = true +Me.CBHimHer.Location = New System.Drawing.Point(191, 65) +Me.CBHimHer.Name = "CBHimHer" +Me.CBHimHer.Size = New System.Drawing.Size(219, 17) +Me.CBHimHer.TabIndex = 3 +Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" +Me.CBHimHer.UseVisualStyleBackColor = true +' +'CBBallsToPussy +' +Me.CBBallsToPussy.AutoSize = true +Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) +Me.CBBallsToPussy.Name = "CBBallsToPussy" +Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) +Me.CBBallsToPussy.TabIndex = 160 +Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" +Me.CBBallsToPussy.UseVisualStyleBackColor = true +' +'CBCockToClit +' +Me.CBCockToClit.AutoSize = true +Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) +Me.CBCockToClit.Name = "CBCockToClit" +Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) +Me.CBCockToClit.TabIndex = 159 +Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" +Me.CBCockToClit.UseVisualStyleBackColor = true +' +'NBBirthdayDay +' +Me.NBBirthdayDay.BackColor = System.Drawing.Color.White +Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black +Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) +Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) +Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBBirthdayDay.Name = "NBBirthdayDay" +Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) +Me.NBBirthdayDay.TabIndex = 144 +Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'CBSubCircumcised +' +Me.CBSubCircumcised.AutoSize = true +Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black +Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) +Me.CBSubCircumcised.Name = "CBSubCircumcised" +Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) +Me.CBSubCircumcised.TabIndex = 157 +Me.CBSubCircumcised.Text = "Circumcised" +Me.CBSubCircumcised.UseVisualStyleBackColor = true +' +'CBSubPierced +' +Me.CBSubPierced.AutoSize = true +Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBSubPierced.ForeColor = System.Drawing.Color.Black +Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) +Me.CBSubPierced.Name = "CBSubPierced" +Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) +Me.CBSubPierced.TabIndex = 156 +Me.CBSubPierced.Text = "Pierced" +Me.CBSubPierced.UseVisualStyleBackColor = true +' +'TBSubEyeColor +' +Me.TBSubEyeColor.BackColor = System.Drawing.Color.White +Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black +Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) +Me.TBSubEyeColor.Name = "TBSubEyeColor" +Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) +Me.TBSubEyeColor.TabIndex = 155 +Me.TBSubEyeColor.Text = "brown" +' +'TBSubHairColor +' +Me.TBSubHairColor.BackColor = System.Drawing.Color.White +Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black +Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) +Me.TBSubHairColor.Name = "TBSubHairColor" +Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) +Me.TBSubHairColor.TabIndex = 154 +Me.TBSubHairColor.Text = "brown" +' +'Label63 +' +Me.Label63.AutoSize = true +Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label63.ForeColor = System.Drawing.Color.Black +Me.Label63.Location = New System.Drawing.Point(113, 41) +Me.Label63.Name = "Label63" +Me.Label63.Size = New System.Drawing.Size(12, 13) +Me.Label63.TabIndex = 143 +Me.Label63.Text = "/" +Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLSubInches +' +Me.LBLSubInches.AutoSize = true +Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) +Me.LBLSubInches.Name = "LBLSubInches" +Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) +Me.LBLSubInches.TabIndex = 124 +Me.LBLSubInches.Text = "inches" +Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'subAgeNumBox +' +Me.subAgeNumBox.BackColor = System.Drawing.Color.White +Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black +Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) +Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) +Me.subAgeNumBox.Name = "subAgeNumBox" +Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) +Me.subAgeNumBox.TabIndex = 27 +Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) +' +'NBBirthdayMonth +' +Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White +Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black +Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) +Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) +Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBBirthdayMonth.Name = "NBBirthdayMonth" +Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) +Me.NBBirthdayMonth.TabIndex = 41 +Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'LBLSubCockSize +' +Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent +Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black +Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) +Me.LBLSubCockSize.Name = "LBLSubCockSize" +Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) +Me.LBLSubCockSize.TabIndex = 142 +Me.LBLSubCockSize.Text = "Cock Size:" +Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CockSizeNumBox +' +Me.CockSizeNumBox.BackColor = System.Drawing.Color.White +Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black +Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) +Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) +Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.CockSizeNumBox.Name = "CockSizeNumBox" +Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) +Me.CockSizeNumBox.TabIndex = 123 +Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) +' +'LBLSubEye +' +Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent +Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubEye.ForeColor = System.Drawing.Color.Black +Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) +Me.LBLSubEye.Name = "LBLSubEye" +Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) +Me.LBLSubEye.TabIndex = 141 +Me.LBLSubEye.Text = "Eye Color" +Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLSubHair +' +Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent +Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubHair.ForeColor = System.Drawing.Color.Black +Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) +Me.LBLSubHair.Name = "LBLSubHair" +Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) +Me.LBLSubHair.TabIndex = 140 +Me.LBLSubHair.Text = "Hair Color" +Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLSubBirthday +' +Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent +Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black +Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) +Me.LBLSubBirthday.Name = "LBLSubBirthday" +Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) +Me.LBLSubBirthday.TabIndex = 139 +Me.LBLSubBirthday.Text = "Birthday:" +Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLSubAge +' +Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent +Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubAge.ForeColor = System.Drawing.Color.Black +Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) +Me.LBLSubAge.Name = "LBLSubAge" +Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) +Me.LBLSubAge.TabIndex = 138 +Me.LBLSubAge.Text = "Age:" +Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label70 +' +Me.Label70.BackColor = System.Drawing.Color.Transparent +Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label70.ForeColor = System.Drawing.Color.Black +Me.Label70.Location = New System.Drawing.Point(7, 6) +Me.Label70.Name = "Label70" +Me.Label70.Size = New System.Drawing.Size(692, 21) +Me.Label70.TabIndex = 49 +Me.Label70.Text = "Sub Settings" +Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage16 +' +Me.TabPage16.BackColor = System.Drawing.Color.Silver +Me.TabPage16.Controls.Add(Me.Panel9) +Me.TabPage16.Location = New System.Drawing.Point(4, 22) +Me.TabPage16.Name = "TabPage16" +Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage16.Size = New System.Drawing.Size(720, 448) +Me.TabPage16.TabIndex = 14 +Me.TabPage16.Text = "Scripts" +' +'Panel9 +' +Me.Panel9.BackColor = System.Drawing.Color.LightGray +Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel9.Controls.Add(Me.BTNScriptAvailable) +Me.Panel9.Controls.Add(Me.BTNScriptNone) +Me.Panel9.Controls.Add(Me.BTNScriptAll) +Me.Panel9.Controls.Add(Me.BTNScriptOpen) +Me.Panel9.Controls.Add(Me.LBLScriptReq) +Me.Panel9.Controls.Add(Me.GroupBox31) +Me.Panel9.Controls.Add(Me.TCScripts) +Me.Panel9.Controls.Add(Me.GroupBox42) +Me.Panel9.Controls.Add(Me.PictureBox1) +Me.Panel9.Controls.Add(Me.GroupBox43) +Me.Panel9.Controls.Add(Me.Label104) +Me.Panel9.Location = New System.Drawing.Point(6, 6) +Me.Panel9.Name = "Panel9" +Me.Panel9.Size = New System.Drawing.Size(708, 437) +Me.Panel9.TabIndex = 94 +' +'BTNScriptAvailable +' +Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) +Me.BTNScriptAvailable.Name = "BTNScriptAvailable" +Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) +Me.BTNScriptAvailable.TabIndex = 160 +Me.BTNScriptAvailable.Text = "Select Available" +Me.BTNScriptAvailable.UseVisualStyleBackColor = true +' +'BTNScriptNone +' +Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) +Me.BTNScriptNone.Name = "BTNScriptNone" +Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) +Me.BTNScriptNone.TabIndex = 159 +Me.BTNScriptNone.Text = "Select None" +Me.BTNScriptNone.UseVisualStyleBackColor = true +' +'BTNScriptAll +' +Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) +Me.BTNScriptAll.Name = "BTNScriptAll" +Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) +Me.BTNScriptAll.TabIndex = 158 +Me.BTNScriptAll.Text = "Select All" +Me.BTNScriptAll.UseVisualStyleBackColor = true +' +'BTNScriptOpen +' +Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) +Me.BTNScriptOpen.Name = "BTNScriptOpen" +Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) +Me.BTNScriptOpen.TabIndex = 157 +Me.BTNScriptOpen.Text = "Open Script" +Me.BTNScriptOpen.UseVisualStyleBackColor = true +' +'LBLScriptReq +' +Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray +Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green +Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) +Me.LBLScriptReq.Name = "LBLScriptReq" +Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) +Me.LBLScriptReq.TabIndex = 156 +Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox31 +' +Me.GroupBox31.Controls.Add(Me.RTBScriptReq) +Me.GroupBox31.Location = New System.Drawing.Point(314, 169) +Me.GroupBox31.Name = "GroupBox31" +Me.GroupBox31.Size = New System.Drawing.Size(385, 110) +Me.GroupBox31.TabIndex = 155 +Me.GroupBox31.TabStop = false +Me.GroupBox31.Text = "Requirements" +' +'RTBScriptReq +' +Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) +Me.RTBScriptReq.Name = "RTBScriptReq" +Me.RTBScriptReq.ReadOnly = true +Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) +Me.RTBScriptReq.TabIndex = 0 +Me.RTBScriptReq.Text = "" +' +'TCScripts +' +Me.TCScripts.Controls.Add(Me.TabPage21) +Me.TCScripts.Controls.Add(Me.TabPage17) +Me.TCScripts.Controls.Add(Me.TabPage18) +Me.TCScripts.Controls.Add(Me.TabPage19) +Me.TCScripts.Location = New System.Drawing.Point(9, 31) +Me.TCScripts.Name = "TCScripts" +Me.TCScripts.SelectedIndex = 0 +Me.TCScripts.Size = New System.Drawing.Size(299, 248) +Me.TCScripts.TabIndex = 154 +' +'TabPage21 +' +Me.TabPage21.BackColor = System.Drawing.Color.Silver +Me.TabPage21.Controls.Add(Me.CLBStartList) +Me.TabPage21.Location = New System.Drawing.Point(4, 22) +Me.TabPage21.Name = "TabPage21" +Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage21.Size = New System.Drawing.Size(291, 222) +Me.TabPage21.TabIndex = 4 +Me.TabPage21.Text = "Start" +' +'CLBStartList +' +Me.CLBStartList.FormattingEnabled = true +Me.CLBStartList.Location = New System.Drawing.Point(4, 4) +Me.CLBStartList.Name = "CLBStartList" +Me.CLBStartList.Size = New System.Drawing.Size(283, 214) +Me.CLBStartList.Sorted = true +Me.CLBStartList.TabIndex = 155 +' +'TabPage17 +' +Me.TabPage17.BackColor = System.Drawing.Color.Silver +Me.TabPage17.Controls.Add(Me.CLBModuleList) +Me.TabPage17.Location = New System.Drawing.Point(4, 22) +Me.TabPage17.Name = "TabPage17" +Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage17.Size = New System.Drawing.Size(291, 222) +Me.TabPage17.TabIndex = 5 +Me.TabPage17.Text = "Modules" +' +'CLBModuleList +' +Me.CLBModuleList.FormattingEnabled = true +Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) +Me.CLBModuleList.Name = "CLBModuleList" +Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) +Me.CLBModuleList.Sorted = true +Me.CLBModuleList.TabIndex = 156 +' +'TabPage18 +' +Me.TabPage18.BackColor = System.Drawing.Color.Silver +Me.TabPage18.Controls.Add(Me.CLBLinkList) +Me.TabPage18.Location = New System.Drawing.Point(4, 22) +Me.TabPage18.Name = "TabPage18" +Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage18.Size = New System.Drawing.Size(291, 222) +Me.TabPage18.TabIndex = 6 +Me.TabPage18.Text = "Link" +' +'CLBLinkList +' +Me.CLBLinkList.FormattingEnabled = true +Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) +Me.CLBLinkList.Name = "CLBLinkList" +Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) +Me.CLBLinkList.Sorted = true +Me.CLBLinkList.TabIndex = 156 +' +'TabPage19 +' +Me.TabPage19.BackColor = System.Drawing.Color.Silver +Me.TabPage19.Controls.Add(Me.CLBEndList) +Me.TabPage19.Location = New System.Drawing.Point(4, 22) +Me.TabPage19.Name = "TabPage19" +Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage19.Size = New System.Drawing.Size(291, 222) +Me.TabPage19.TabIndex = 7 +Me.TabPage19.Text = "End" +' +'CLBEndList +' +Me.CLBEndList.FormattingEnabled = true +Me.CLBEndList.Location = New System.Drawing.Point(4, 4) +Me.CLBEndList.Name = "CLBEndList" +Me.CLBEndList.Size = New System.Drawing.Size(283, 214) +Me.CLBEndList.Sorted = true +Me.CLBEndList.TabIndex = 156 +' +'GroupBox42 +' +Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) +Me.GroupBox42.Location = New System.Drawing.Point(314, 53) +Me.GroupBox42.Name = "GroupBox42" +Me.GroupBox42.Size = New System.Drawing.Size(385, 110) +Me.GroupBox42.TabIndex = 153 +Me.GroupBox42.TabStop = false +Me.GroupBox42.Text = "Description" +' +'RTBScriptDesc +' +Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) +Me.RTBScriptDesc.Name = "RTBScriptDesc" +Me.RTBScriptDesc.ReadOnly = true +Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) +Me.RTBScriptDesc.TabIndex = 0 +Me.RTBScriptDesc.Text = "" +' +'PictureBox1 +' +Me.PictureBox1.BackColor = System.Drawing.Color.LightGray +Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox1.Location = New System.Drawing.Point(9, 6) +Me.PictureBox1.Name = "PictureBox1" +Me.PictureBox1.Size = New System.Drawing.Size(160, 19) +Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox1.TabIndex = 151 +Me.PictureBox1.TabStop = false +' +'GroupBox43 +' +Me.GroupBox43.BackColor = System.Drawing.Color.LightGray +Me.GroupBox43.Controls.Add(Me.Label98) +Me.GroupBox43.ForeColor = System.Drawing.Color.Black +Me.GroupBox43.Location = New System.Drawing.Point(7, 331) +Me.GroupBox43.Name = "GroupBox43" +Me.GroupBox43.Size = New System.Drawing.Size(692, 92) +Me.GroupBox43.TabIndex = 65 +Me.GroupBox43.TabStop = false +Me.GroupBox43.Text = "Description" +' +'Label98 +' +Me.Label98.BackColor = System.Drawing.Color.Transparent +Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label98.ForeColor = System.Drawing.Color.Black +Me.Label98.Location = New System.Drawing.Point(6, 16) +Me.Label98.Name = "Label98" +Me.Label98.Size = New System.Drawing.Size(680, 73) +Me.Label98.TabIndex = 62 +Me.Label98.Text = resources.GetString("Label98.Text") +Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label104 +' +Me.Label104.BackColor = System.Drawing.Color.Transparent +Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label104.ForeColor = System.Drawing.Color.Black +Me.Label104.Location = New System.Drawing.Point(7, 6) +Me.Label104.Name = "Label104" +Me.Label104.Size = New System.Drawing.Size(692, 21) +Me.Label104.TabIndex = 49 +Me.Label104.Text = "Script Selection" +Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage7 +' +Me.TabPage7.BackColor = System.Drawing.Color.Silver +Me.TabPage7.Controls.Add(Me.TabControl4) +Me.TabPage7.Location = New System.Drawing.Point(4, 22) +Me.TabPage7.Name = "TabPage7" +Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage7.Size = New System.Drawing.Size(720, 448) +Me.TabPage7.TabIndex = 11 +Me.TabPage7.Text = "Images" +' +'TabControl4 +' +Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) +Me.TabControl4.Controls.Add(Me.TpImagesGenre) +Me.TabControl4.Location = New System.Drawing.Point(6, 6) +Me.TabControl4.Name = "TabControl4" +Me.TabControl4.SelectedIndex = 0 +Me.TabControl4.Size = New System.Drawing.Size(708, 437) +Me.TabControl4.TabIndex = 154 +' +'TpImagesUrlFiles +' +Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray +Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) +Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) +Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) +Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) +Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) +Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) +Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" +Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) +Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) +Me.TpImagesUrlFiles.TabIndex = 0 +Me.TpImagesUrlFiles.Text = "URL Files" +' +'CBURLPreview +' +Me.CBURLPreview.AutoSize = true +Me.CBURLPreview.Checked = true +Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) +Me.CBURLPreview.Name = "CBURLPreview" +Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) +Me.CBURLPreview.TabIndex = 163 +Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" +Me.CBURLPreview.UseVisualStyleBackColor = true +' +'GroupBox66 +' +Me.GroupBox66.Controls.Add(Me.PBURLPreview) +Me.GroupBox66.Location = New System.Drawing.Point(344, 3) +Me.GroupBox66.Name = "GroupBox66" +Me.GroupBox66.Size = New System.Drawing.Size(350, 309) +Me.GroupBox66.TabIndex = 162 +Me.GroupBox66.TabStop = false +Me.GroupBox66.Text = "Example Preview" +' +'PBURLPreview +' +Me.PBURLPreview.BackColor = System.Drawing.Color.Black +Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) +Me.PBURLPreview.Name = "PBURLPreview" +Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) +Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.PBURLPreview.TabIndex = 0 +Me.PBURLPreview.TabStop = false +' +'BTNURLFilesAll +' +Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) +Me.BTNURLFilesAll.Name = "BTNURLFilesAll" +Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) +Me.BTNURLFilesAll.TabIndex = 160 +Me.BTNURLFilesAll.Text = "Select All" +Me.BTNURLFilesAll.UseVisualStyleBackColor = true +' +'BTNURLFilesNone +' +Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) +Me.BTNURLFilesNone.Name = "BTNURLFilesNone" +Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) +Me.BTNURLFilesNone.TabIndex = 161 +Me.BTNURLFilesNone.Text = "Select None" +Me.BTNURLFilesNone.UseVisualStyleBackColor = true +' +'URLFileList +' +Me.URLFileList.CheckOnClick = true +Me.URLFileList.FormattingEnabled = true +Me.URLFileList.Location = New System.Drawing.Point(6, 9) +Me.URLFileList.Name = "URLFileList" +Me.URLFileList.Size = New System.Drawing.Size(332, 394) +Me.URLFileList.Sorted = true +Me.URLFileList.TabIndex = 154 +' +'TpImagesGenre +' +Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray +Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) +Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) +Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) +Me.TpImagesGenre.Name = "TpImagesGenre" +Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) +Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) +Me.TpImagesGenre.TabIndex = 1 +Me.TpImagesGenre.Text = "Genre Images" +' +'GrbImageUrlFiles +' +Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) +Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) +Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" +Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) +Me.GrbImageUrlFiles.TabIndex = 1 +Me.GrbImageUrlFiles.TabStop = false +Me.GrbImageUrlFiles.Text = "URL Files" +' +'TlpImageUrls +' +Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray +Me.TlpImageUrls.ColumnCount = 3 +Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) +Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill +Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize +Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) +Me.TlpImageUrls.Name = "TlpImageUrls" +Me.TlpImageUrls.RowCount = 14 +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) +Me.TlpImageUrls.TabIndex = 0 +' +'BtnImageUrlButt +' +Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) +Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) +Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlButt.Name = "BtnImageUrlButt" +Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlButt.TabIndex = 38 +Me.BtnImageUrlButt.Text = "1" +Me.BtnImageUrlButt.UseVisualStyleBackColor = false +' +'BtnImageUrlBoobs +' +Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) +Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) +Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" +Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlBoobs.TabIndex = 35 +Me.BtnImageUrlBoobs.Text = "1" +Me.BtnImageUrlBoobs.UseVisualStyleBackColor = false +' +'BtnImageUrlBlowjob +' +Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" +Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlBlowjob.TabIndex = 11 +Me.BtnImageUrlBlowjob.Text = "1" +Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = false +' +'BtnImageUrlCaptions +' +Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) +Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" +Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlCaptions.TabIndex = 29 +Me.BtnImageUrlCaptions.Text = "1" +Me.BtnImageUrlCaptions.UseVisualStyleBackColor = false +' +'BtnImageUrlHentai +' +Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) +Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" +Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlHentai.TabIndex = 20 +Me.BtnImageUrlHentai.Text = "1" +Me.BtnImageUrlHentai.UseVisualStyleBackColor = false +' +'BtnImageUrlGay +' +Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) +Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlGay.Name = "BtnImageUrlGay" +Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlGay.TabIndex = 23 +Me.BtnImageUrlGay.Text = "1" +Me.BtnImageUrlGay.UseVisualStyleBackColor = false +' +'BtnImageUrlGeneral +' +Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) +Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" +Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlGeneral.TabIndex = 32 +Me.BtnImageUrlGeneral.Text = "1" +Me.BtnImageUrlGeneral.UseVisualStyleBackColor = false +' +'BtnImageUrlHardcore +' +Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) +Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" +Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlHardcore.TabIndex = 1 +Me.BtnImageUrlHardcore.Text = "1" +Me.BtnImageUrlHardcore.UseVisualStyleBackColor = false +' +'BtnImageUrlLesbian +' +Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) +Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" +Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlLesbian.TabIndex = 8 +Me.BtnImageUrlLesbian.Text = "1" +Me.BtnImageUrlLesbian.UseVisualStyleBackColor = false +' +'BtnImageUrlLezdom +' +Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) +Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" +Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlLezdom.TabIndex = 17 +Me.BtnImageUrlLezdom.Text = "1" +Me.BtnImageUrlLezdom.UseVisualStyleBackColor = false +' +'BtnImageUrlMaledom +' +Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) +Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" +Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlMaledom.TabIndex = 26 +Me.BtnImageUrlMaledom.Text = "1" +Me.BtnImageUrlMaledom.UseVisualStyleBackColor = false +' +'BtnImageUrlFemdom +' +Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) +Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" +Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlFemdom.TabIndex = 14 +Me.BtnImageUrlFemdom.Text = "1" +Me.BtnImageUrlFemdom.UseVisualStyleBackColor = false +' +'BtnImageUrlSoftcore +' +Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) +Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" +Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlSoftcore.TabIndex = 5 +Me.BtnImageUrlSoftcore.Text = "1" +Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false +' +'ChbImageUrlHardcore +' +Me.ChbImageUrlHardcore.AutoSize = true +Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled +Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) +Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" +Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHardcore.TabIndex = 0 +Me.ChbImageUrlHardcore.Text = "Hardcore" +Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true +' +'ChbImageUrlButts +' +Me.ChbImageUrlButts.AutoSize = true +Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled +Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) +Me.ChbImageUrlButts.Name = "ChbImageUrlButts" +Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) +Me.ChbImageUrlButts.TabIndex = 37 +Me.ChbImageUrlButts.Text = "Butts" +Me.ChbImageUrlButts.UseVisualStyleBackColor = true +' +'ChbImageUrlMaledom +' +Me.ChbImageUrlMaledom.AutoSize = true +Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled +Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) +Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" +Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlMaledom.TabIndex = 25 +Me.ChbImageUrlMaledom.Text = "Maledom" +Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true +' +'ChbImageUrlGay +' +Me.ChbImageUrlGay.AutoSize = true +Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled +Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) +Me.ChbImageUrlGay.Name = "ChbImageUrlGay" +Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGay.TabIndex = 22 +Me.ChbImageUrlGay.Text = "Gay" +Me.ChbImageUrlGay.UseVisualStyleBackColor = true +' +'ChbImageUrlSoftcore +' +Me.ChbImageUrlSoftcore.AutoSize = true +Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled +Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) +Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" +Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlSoftcore.TabIndex = 4 +Me.ChbImageUrlSoftcore.Text = "Softcore" +Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true +' +'ChbImageUrlBoobs +' +Me.ChbImageUrlBoobs.AutoSize = true +Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled +Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) +Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" +Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBoobs.TabIndex = 34 +Me.ChbImageUrlBoobs.Text = "Boobs" +Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true +' +'ChbImageUrlLesbian +' +Me.ChbImageUrlLesbian.AutoSize = true +Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled +Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) +Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" +Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLesbian.TabIndex = 7 +Me.ChbImageUrlLesbian.Text = "Lesbian" +Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true +' +'ChbImageUrlBlowjob +' +Me.ChbImageUrlBlowjob.AutoSize = true +Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled +Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) +Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" +Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBlowjob.TabIndex = 10 +Me.ChbImageUrlBlowjob.Text = "Blowjob" +Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true +' +'ChbImageUrlCaptions +' +Me.ChbImageUrlCaptions.AutoSize = true +Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled +Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) +Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" +Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlCaptions.TabIndex = 28 +Me.ChbImageUrlCaptions.Text = "Captions" +Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true +' +'ChbImageUrlGeneral +' +Me.ChbImageUrlGeneral.AutoSize = true +Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled +Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) +Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" +Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGeneral.TabIndex = 31 +Me.ChbImageUrlGeneral.Text = "General" +Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true +' +'ChbImageUrlFemdom +' +Me.ChbImageUrlFemdom.AutoSize = true +Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled +Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) +Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" +Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlFemdom.TabIndex = 13 +Me.ChbImageUrlFemdom.Text = "Femdom" +Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true +' +'ChbImageUrlHentai +' +Me.ChbImageUrlHentai.AutoSize = true +Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled +Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) +Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" +Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHentai.TabIndex = 19 +Me.ChbImageUrlHentai.Text = "Hentai" +Me.ChbImageUrlHentai.UseVisualStyleBackColor = true +' +'ChbImageUrlLezdom +' +Me.ChbImageUrlLezdom.AutoSize = true +Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled +Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) +Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" +Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLezdom.TabIndex = 16 +Me.ChbImageUrlLezdom.Text = "Lezdom" +Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true +' +'TxbImageUrlBlowjob +' +Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" +Me.TxbImageUrlBlowjob.ReadOnly = true +Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.TabIndex = 12 +Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob +' +'TxbImageUrlSoftcore +' +Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) +Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" +Me.TxbImageUrlSoftcore.ReadOnly = true +Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.TabIndex = 6 +Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore +' +'TxbImageUrlLezdom +' +Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) +Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" +Me.TxbImageUrlLezdom.ReadOnly = true +Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.TabIndex = 18 +Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom +' +'TxbImageUrlFemdom +' +Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) +Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" +Me.TxbImageUrlFemdom.ReadOnly = true +Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.TabIndex = 15 +Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom +' +'TxbImageUrlHardcore +' +Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) +Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" +Me.TxbImageUrlHardcore.ReadOnly = true +Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.TabIndex = 3 +Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore +' +'TxbImageUrlHentai +' +Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) +Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" +Me.TxbImageUrlHentai.ReadOnly = true +Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.TabIndex = 21 +Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai +' +'TxbImageUrlGay +' +Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) +Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.Name = "TxbImageUrlGay" +Me.TxbImageUrlGay.ReadOnly = true +Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.TabIndex = 24 +Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay +' +'TxbImageUrlLesbian +' +Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) +Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" +Me.TxbImageUrlLesbian.ReadOnly = true +Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.TabIndex = 9 +Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian +' +'TxbImageUrlMaledom +' +Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) +Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" +Me.TxbImageUrlMaledom.ReadOnly = true +Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.TabIndex = 27 +Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom +' +'TxbImageUrlCaptions +' +Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) +Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" +Me.TxbImageUrlCaptions.ReadOnly = true +Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.TabIndex = 30 +Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions +' +'TxbImageUrlGeneral +' +Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) +Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" +Me.TxbImageUrlGeneral.ReadOnly = true +Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.TabIndex = 33 +Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral +' +'TxbImageUrlBoobs +' +Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) +Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" +Me.TxbImageUrlBoobs.ReadOnly = true +Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.TabIndex = 36 +Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs +' +'TxbImageUrlButts +' +Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) +Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.Name = "TxbImageUrlButts" +Me.TxbImageUrlButts.ReadOnly = true +Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.TabIndex = 39 +Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt +' +'GbxImagesGenre +' +Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) +Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) +Me.GbxImagesGenre.Name = "GbxImagesGenre" +Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) +Me.GbxImagesGenre.TabIndex = 0 +Me.GbxImagesGenre.TabStop = false +Me.GbxImagesGenre.Text = "Local Images" +' +'TableLayoutPanel1 +' +Me.TableLayoutPanel1.ColumnCount = 4 +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) +Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) +Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) +Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) +Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill +Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize +Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) +Me.TableLayoutPanel1.Name = "TableLayoutPanel1" +Me.TableLayoutPanel1.RowCount = 13 +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) +Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) +Me.TableLayoutPanel1.TabIndex = 0 +' +'BTNIHardcore +' +Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray +Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black +Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) +Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHardcore.Name = "BTNIHardcore" +Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) +Me.BTNIHardcore.TabIndex = 1 +Me.BTNIHardcore.Text = "1" +Me.BTNIHardcore.UseVisualStyleBackColor = false +' +'TbxIHardcore +' +Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray +Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black +Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) +Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.Name = "TbxIHardcore" +Me.TbxIHardcore.ReadOnly = true +Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.TabIndex = 2 +Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore +' +'CBIHardcoreSD +' +Me.CBIHardcoreSD.AutoSize = true +Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD +Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) +Me.CBIHardcoreSD.Name = "CBIHardcoreSD" +Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHardcoreSD.TabIndex = 3 +Me.CBIHardcoreSD.UseVisualStyleBackColor = true +' +'CBIHardcore +' +Me.CBIHardcore.AutoSize = true +Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore +Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcore.ForeColor = System.Drawing.Color.Black +Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) +Me.CBIHardcore.Name = "CBIHardcore" +Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) +Me.CBIHardcore.TabIndex = 0 +Me.CBIHardcore.Text = "Hardcore" +Me.CBIHardcore.UseVisualStyleBackColor = true +' +'CBISoftcore +' +Me.CBISoftcore.AutoSize = true +Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore +Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcore.ForeColor = System.Drawing.Color.Black +Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) +Me.CBISoftcore.Name = "CBISoftcore" +Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) +Me.CBISoftcore.TabIndex = 4 +Me.CBISoftcore.Text = "Softcore" +Me.CBISoftcore.UseVisualStyleBackColor = true +' +'TbxISoftcore +' +Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray +Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black +Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) +Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.Name = "TbxISoftcore" +Me.TbxISoftcore.ReadOnly = true +Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.TabIndex = 6 +Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore +' +'CBButtSubDir +' +Me.CBButtSubDir.AutoSize = true +Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir +Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black +Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) +Me.CBButtSubDir.Name = "CBButtSubDir" +Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) +Me.CBButtSubDir.TabIndex = 51 +Me.CBButtSubDir.UseVisualStyleBackColor = true +' +'CBISoftcoreSD +' +Me.CBISoftcoreSD.AutoSize = true +Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD +Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) +Me.CBISoftcoreSD.Name = "CBISoftcoreSD" +Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBISoftcoreSD.TabIndex = 7 +Me.CBISoftcoreSD.UseVisualStyleBackColor = true +' +'CBBoobSubDir +' +Me.CBBoobSubDir.AutoSize = true +Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir +Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black +Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) +Me.CBBoobSubDir.Name = "CBBoobSubDir" +Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) +Me.CBBoobSubDir.TabIndex = 47 +Me.CBBoobSubDir.UseVisualStyleBackColor = true +' +'CBILezdomSD +' +Me.CBILezdomSD.AutoSize = true +Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD +Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black +Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) +Me.CBILezdomSD.Name = "CBILezdomSD" +Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBILezdomSD.TabIndex = 23 +Me.CBILezdomSD.UseVisualStyleBackColor = true +' +'CBIGeneralSD +' +Me.CBIGeneralSD.AutoSize = true +Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD +Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black +Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) +Me.CBIGeneralSD.Name = "CBIGeneralSD" +Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) +Me.CBIGeneralSD.TabIndex = 43 +Me.CBIGeneralSD.UseVisualStyleBackColor = true +' +'CBILesbianSD +' +Me.CBILesbianSD.AutoSize = true +Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD +Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black +Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) +Me.CBILesbianSD.Name = "CBILesbianSD" +Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) +Me.CBILesbianSD.TabIndex = 11 +Me.CBILesbianSD.UseVisualStyleBackColor = true +' +'CBICaptionsSD +' +Me.CBICaptionsSD.AutoSize = true +Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD +Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black +Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) +Me.CBICaptionsSD.Name = "CBICaptionsSD" +Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) +Me.CBICaptionsSD.TabIndex = 39 +Me.CBICaptionsSD.UseVisualStyleBackColor = true +' +'CBILesbian +' +Me.CBILesbian.AutoSize = true +Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian +Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbian.ForeColor = System.Drawing.Color.Black +Me.CBILesbian.Location = New System.Drawing.Point(3, 61) +Me.CBILesbian.Name = "CBILesbian" +Me.CBILesbian.Size = New System.Drawing.Size(70, 23) +Me.CBILesbian.TabIndex = 8 +Me.CBILesbian.Text = "Lesbian" +Me.CBILesbian.UseVisualStyleBackColor = true +' +'CBIMaledomSD +' +Me.CBIMaledomSD.AutoSize = true +Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD +Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black +Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) +Me.CBIMaledomSD.Name = "CBIMaledomSD" +Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIMaledomSD.TabIndex = 35 +Me.CBIMaledomSD.UseVisualStyleBackColor = true +' +'CBIBlowjob +' +Me.CBIBlowjob.AutoSize = true +Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob +Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) +Me.CBIBlowjob.Name = "CBIBlowjob" +Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) +Me.CBIBlowjob.TabIndex = 12 +Me.CBIBlowjob.Text = "Blowjob" +Me.CBIBlowjob.UseVisualStyleBackColor = true +' +'CBIGaySD +' +Me.CBIGaySD.AutoSize = true +Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD +Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGaySD.ForeColor = System.Drawing.Color.Black +Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) +Me.CBIGaySD.Name = "CBIGaySD" +Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) +Me.CBIGaySD.TabIndex = 31 +Me.CBIGaySD.UseVisualStyleBackColor = true +' +'CBIHentaiSD +' +Me.CBIHentaiSD.AutoSize = true +Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD +Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black +Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) +Me.CBIHentaiSD.Name = "CBIHentaiSD" +Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHentaiSD.TabIndex = 27 +Me.CBIHentaiSD.UseVisualStyleBackColor = true +' +'CBIBlowjobSD +' +Me.CBIBlowjobSD.AutoSize = true +Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD +Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) +Me.CBIBlowjobSD.Name = "CBIBlowjobSD" +Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) +Me.CBIBlowjobSD.TabIndex = 15 +Me.CBIBlowjobSD.UseVisualStyleBackColor = true +' +'CBIFemdomSD +' +Me.CBIFemdomSD.AutoSize = true +Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD +Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black +Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) +Me.CBIFemdomSD.Name = "CBIFemdomSD" +Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIFemdomSD.TabIndex = 19 +Me.CBIFemdomSD.UseVisualStyleBackColor = true +' +'TbxIButts +' +Me.TbxIButts.BackColor = System.Drawing.Color.LightGray +Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIButts.ForeColor = System.Drawing.Color.Black +Me.TbxIButts.Location = New System.Drawing.Point(115, 353) +Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIButts.Name = "TbxIButts" +Me.TbxIButts.ReadOnly = true +Me.TbxIButts.Size = New System.Drawing.Size(217, 17) +Me.TbxIButts.TabIndex = 50 +Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath +' +'CBIFemdom +' +Me.CBIFemdom.AutoSize = true +Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom +Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdom.ForeColor = System.Drawing.Color.Black +Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) +Me.CBIFemdom.Name = "CBIFemdom" +Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) +Me.CBIFemdom.TabIndex = 16 +Me.CBIFemdom.Text = "Femdom" +Me.CBIFemdom.UseVisualStyleBackColor = true +' +'TbxILesbian +' +Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray +Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILesbian.ForeColor = System.Drawing.Color.Black +Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) +Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILesbian.Name = "TbxILesbian" +Me.TbxILesbian.ReadOnly = true +Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) +Me.TbxILesbian.TabIndex = 10 +Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian +' +'BTNISoftcore +' +Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray +Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black +Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) +Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNISoftcore.Name = "BTNISoftcore" +Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) +Me.BTNISoftcore.TabIndex = 5 +Me.BTNISoftcore.Text = "1" +Me.BTNISoftcore.UseVisualStyleBackColor = false +' +'CBILezdom +' +Me.CBILezdom.AutoSize = true +Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom +Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdom.ForeColor = System.Drawing.Color.Black +Me.CBILezdom.Location = New System.Drawing.Point(3, 148) +Me.CBILezdom.Name = "CBILezdom" +Me.CBILezdom.Size = New System.Drawing.Size(70, 23) +Me.CBILezdom.TabIndex = 20 +Me.CBILezdom.Text = "Lezdom" +Me.CBILezdom.UseVisualStyleBackColor = true +' +'TbxIBoobs +' +Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray +Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black +Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) +Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.Name = "TbxIBoobs" +Me.TbxIBoobs.ReadOnly = true +Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.TabIndex = 46 +Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath +' +'CBIHentai +' +Me.CBIHentai.AutoSize = true +Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai +Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentai.ForeColor = System.Drawing.Color.Black +Me.CBIHentai.Location = New System.Drawing.Point(3, 177) +Me.CBIHentai.Name = "CBIHentai" +Me.CBIHentai.Size = New System.Drawing.Size(70, 23) +Me.CBIHentai.TabIndex = 24 +Me.CBIHentai.Text = "Hentai" +Me.CBIHentai.UseVisualStyleBackColor = true +' +'TbxIBlowjob +' +Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black +Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.Name = "TbxIBlowjob" +Me.TbxIBlowjob.ReadOnly = true +Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.TabIndex = 14 +Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob +' +'CBIGay +' +Me.CBIGay.AutoSize = true +Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay +Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGay.ForeColor = System.Drawing.Color.Black +Me.CBIGay.Location = New System.Drawing.Point(3, 206) +Me.CBIGay.Name = "CBIGay" +Me.CBIGay.Size = New System.Drawing.Size(70, 23) +Me.CBIGay.TabIndex = 28 +Me.CBIGay.Text = "Gay" +Me.CBIGay.UseVisualStyleBackColor = true +' +'TbxIGeneral +' +Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray +Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black +Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) +Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.Name = "TbxIGeneral" +Me.TbxIGeneral.ReadOnly = true +Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.TabIndex = 42 +Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral +' +'CBIMaledom +' +Me.CBIMaledom.AutoSize = true +Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom +Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledom.ForeColor = System.Drawing.Color.Black +Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) +Me.CBIMaledom.Name = "CBIMaledom" +Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) +Me.CBIMaledom.TabIndex = 32 +Me.CBIMaledom.Text = "Maledom" +Me.CBIMaledom.UseVisualStyleBackColor = true +' +'TbxIFemdom +' +Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray +Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black +Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) +Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.Name = "TbxIFemdom" +Me.TbxIFemdom.ReadOnly = true +Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.TabIndex = 18 +Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom +' +'BTNILesbian +' +Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILesbian.ForeColor = System.Drawing.Color.Black +Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) +Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILesbian.Name = "BTNILesbian" +Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNILesbian.TabIndex = 9 +Me.BTNILesbian.Text = "1" +Me.BTNILesbian.UseVisualStyleBackColor = false +' +'TbxICaptions +' +Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray +Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxICaptions.ForeColor = System.Drawing.Color.Black +Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) +Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxICaptions.Name = "TbxICaptions" +Me.TbxICaptions.ReadOnly = true +Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) +Me.TbxICaptions.TabIndex = 38 +Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions +' +'CBICaptions +' +Me.CBICaptions.AutoSize = true +Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions +Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptions.ForeColor = System.Drawing.Color.Black +Me.CBICaptions.Location = New System.Drawing.Point(3, 264) +Me.CBICaptions.Name = "CBICaptions" +Me.CBICaptions.Size = New System.Drawing.Size(70, 23) +Me.CBICaptions.TabIndex = 36 +Me.CBICaptions.Text = "Captions" +Me.CBICaptions.UseVisualStyleBackColor = true +' +'TbxILezdom +' +Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray +Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILezdom.ForeColor = System.Drawing.Color.Black +Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) +Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILezdom.Name = "TbxILezdom" +Me.TbxILezdom.ReadOnly = true +Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) +Me.TbxILezdom.TabIndex = 22 +Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom +' +'TbxIMaledom +' +Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray +Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black +Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) +Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.Name = "TbxIMaledom" +Me.TbxIMaledom.ReadOnly = true +Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.TabIndex = 34 +Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +' +'BTNButtPath +' +Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray +Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNButtPath.ForeColor = System.Drawing.Color.Black +Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) +Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNButtPath.Name = "BTNButtPath" +Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) +Me.BTNButtPath.TabIndex = 49 +Me.BTNButtPath.Text = "1" +Me.BTNButtPath.UseVisualStyleBackColor = false +' +'TbxIHentai +' +Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray +Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHentai.ForeColor = System.Drawing.Color.Black +Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) +Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHentai.Name = "TbxIHentai" +Me.TbxIHentai.ReadOnly = true +Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) +Me.TbxIHentai.TabIndex = 26 +Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai +' +'CBIGeneral +' +Me.CBIGeneral.AutoSize = true +Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral +Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneral.ForeColor = System.Drawing.Color.Black +Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) +Me.CBIGeneral.Name = "CBIGeneral" +Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) +Me.CBIGeneral.TabIndex = 40 +Me.CBIGeneral.Text = "General" +Me.CBIGeneral.UseVisualStyleBackColor = true +' +'TbxIGay +' +Me.TbxIGay.BackColor = System.Drawing.Color.LightGray +Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGay.ForeColor = System.Drawing.Color.Black +Me.TbxIGay.Location = New System.Drawing.Point(115, 208) +Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGay.Name = "TbxIGay" +Me.TbxIGay.ReadOnly = true +Me.TbxIGay.Size = New System.Drawing.Size(217, 17) +Me.TbxIGay.TabIndex = 30 +Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay +' +'CBIBoobs +' +Me.CBIBoobs.AutoSize = true +Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs +Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBoobs.ForeColor = System.Drawing.Color.Black +Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) +Me.CBIBoobs.Name = "CBIBoobs" +Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) +Me.CBIBoobs.TabIndex = 44 +Me.CBIBoobs.Text = "Boobs" +Me.CBIBoobs.UseVisualStyleBackColor = true +' +'CBIButts +' +Me.CBIButts.AutoSize = true +Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts +Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIButts.ForeColor = System.Drawing.Color.Black +Me.CBIButts.Location = New System.Drawing.Point(3, 351) +Me.CBIButts.Name = "CBIButts" +Me.CBIButts.Size = New System.Drawing.Size(70, 27) +Me.CBIButts.TabIndex = 48 +Me.CBIButts.Text = "Butts" +Me.CBIButts.UseVisualStyleBackColor = true +' +'BTNIBlowjob +' +Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIBlowjob.Name = "BTNIBlowjob" +Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNIBlowjob.TabIndex = 13 +Me.BTNIBlowjob.Text = "1" +Me.BTNIBlowjob.UseVisualStyleBackColor = false +' +'BTNIFemdom +' +Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray +Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black +Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) +Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIFemdom.Name = "BTNIFemdom" +Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) +Me.BTNIFemdom.TabIndex = 17 +Me.BTNIFemdom.Text = "1" +Me.BTNIFemdom.UseVisualStyleBackColor = false +' +'BTNBoobPath +' +Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray +Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black +Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) +Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNBoobPath.Name = "BTNBoobPath" +Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) +Me.BTNBoobPath.TabIndex = 45 +Me.BTNBoobPath.Text = "1" +Me.BTNBoobPath.UseVisualStyleBackColor = false +' +'BTNILezdom +' +Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray +Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILezdom.ForeColor = System.Drawing.Color.Black +Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) +Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILezdom.Name = "BTNILezdom" +Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) +Me.BTNILezdom.TabIndex = 21 +Me.BTNILezdom.Text = "1" +Me.BTNILezdom.UseVisualStyleBackColor = false +' +'BTNIHentai +' +Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray +Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHentai.ForeColor = System.Drawing.Color.Black +Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) +Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHentai.Name = "BTNIHentai" +Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) +Me.BTNIHentai.TabIndex = 25 +Me.BTNIHentai.Text = "1" +Me.BTNIHentai.UseVisualStyleBackColor = false +' +'BTNIGay +' +Me.BTNIGay.BackColor = System.Drawing.Color.LightGray +Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGay.ForeColor = System.Drawing.Color.Black +Me.BTNIGay.Location = New System.Drawing.Point(76, 203) +Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGay.Name = "BTNIGay" +Me.BTNIGay.Size = New System.Drawing.Size(34, 28) +Me.BTNIGay.TabIndex = 29 +Me.BTNIGay.Text = "1" +Me.BTNIGay.UseVisualStyleBackColor = false +' +'BTNIMaledom +' +Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray +Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black +Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) +Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIMaledom.Name = "BTNIMaledom" +Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) +Me.BTNIMaledom.TabIndex = 33 +Me.BTNIMaledom.Text = "1" +Me.BTNIMaledom.UseVisualStyleBackColor = false +' +'BTNICaptions +' +Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray +Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNICaptions.ForeColor = System.Drawing.Color.Black +Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) +Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNICaptions.Name = "BTNICaptions" +Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) +Me.BTNICaptions.TabIndex = 37 +Me.BTNICaptions.Text = "1" +Me.BTNICaptions.UseVisualStyleBackColor = false +' +'BTNIGeneral +' +Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) +Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGeneral.Name = "BTNIGeneral" +Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNIGeneral.TabIndex = 41 +Me.BTNIGeneral.Text = "1" +Me.BTNIGeneral.UseVisualStyleBackColor = false +' +'TabPage33 +' +Me.TabPage33.BackColor = System.Drawing.Color.Silver +Me.TabPage33.Controls.Add(Me.TabControl5) +Me.TabPage33.Location = New System.Drawing.Point(4, 22) +Me.TabPage33.Name = "TabPage33" +Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage33.Size = New System.Drawing.Size(720, 448) +Me.TabPage33.TabIndex = 21 +Me.TabPage33.Text = "Tagging" +' +'TabControl5 +' +Me.TabControl5.Controls.Add(Me.TabPage34) +Me.TabControl5.Controls.Add(Me.TabPage35) +Me.TabControl5.Location = New System.Drawing.Point(6, 6) +Me.TabControl5.Name = "TabControl5" +Me.TabControl5.SelectedIndex = 0 +Me.TabControl5.Size = New System.Drawing.Size(708, 437) +Me.TabControl5.TabIndex = 0 +' +'TabPage34 +' +Me.TabPage34.BackColor = System.Drawing.Color.LightGray +Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) +Me.TabPage34.Controls.Add(Me.CBTagAllFours) +Me.TabPage34.Controls.Add(Me.CBTagGlaring) +Me.TabPage34.Controls.Add(Me.CBTagSmiling) +Me.TabPage34.Controls.Add(Me.TBTagDir) +Me.TabPage34.Controls.Add(Me.CBTagPiercing) +Me.TabPage34.Controls.Add(Me.CBTagLegs) +Me.TabPage34.Controls.Add(Me.TBTagFurniture) +Me.TabPage34.Controls.Add(Me.CBTagFurniture) +Me.TabPage34.Controls.Add(Me.TBTagSexToy) +Me.TabPage34.Controls.Add(Me.CBTagSexToy) +Me.TabPage34.Controls.Add(Me.TBTagTattoo) +Me.TabPage34.Controls.Add(Me.CBTagTattoo) +Me.TabPage34.Controls.Add(Me.TBTagUnderwear) +Me.TabPage34.Controls.Add(Me.CBTagUnderwear) +Me.TabPage34.Controls.Add(Me.TBTagGarment) +Me.TabPage34.Controls.Add(Me.CBTagGarment) +Me.TabPage34.Controls.Add(Me.Label72) +Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) +Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) +Me.TabPage34.Controls.Add(Me.CBTagCloseUp) +Me.TabPage34.Controls.Add(Me.CBTagNaked) +Me.TabPage34.Controls.Add(Me.CBTagSideView) +Me.TabPage34.Controls.Add(Me.BTNTagPrevious) +Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) +Me.TabPage34.Controls.Add(Me.BTNTagNext) +Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) +Me.TabPage34.Controls.Add(Me.LBLTagCount) +Me.TabPage34.Controls.Add(Me.CBTagSucking) +Me.TabPage34.Controls.Add(Me.CBTagMasturbating) +Me.TabPage34.Controls.Add(Me.CBTagFeet) +Me.TabPage34.Controls.Add(Me.CBTagBoobs) +Me.TabPage34.Controls.Add(Me.CBTagAss) +Me.TabPage34.Controls.Add(Me.CBTagPussy) +Me.TabPage34.Controls.Add(Me.BTNTagSave) +Me.TabPage34.Controls.Add(Me.BTNTagDir) +Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) +Me.TabPage34.Controls.Add(Me.CBTagFace) +Me.TabPage34.Location = New System.Drawing.Point(4, 22) +Me.TabPage34.Name = "TabPage34" +Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage34.Size = New System.Drawing.Size(700, 411) +Me.TabPage34.TabIndex = 0 +Me.TabPage34.Text = "Domme Tags" +' +'CBTagSeeThrough +' +Me.CBTagSeeThrough.AutoSize = true +Me.CBTagSeeThrough.Enabled = false +Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) +Me.CBTagSeeThrough.Name = "CBTagSeeThrough" +Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) +Me.CBTagSeeThrough.TabIndex = 226 +Me.CBTagSeeThrough.Text = "See Through" +Me.CBTagSeeThrough.UseVisualStyleBackColor = true +' +'CBTagAllFours +' +Me.CBTagAllFours.AutoSize = true +Me.CBTagAllFours.Enabled = false +Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black +Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) +Me.CBTagAllFours.Name = "CBTagAllFours" +Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) +Me.CBTagAllFours.TabIndex = 225 +Me.CBTagAllFours.Text = "All Fours" +Me.CBTagAllFours.UseVisualStyleBackColor = true +' +'CBTagGlaring +' +Me.CBTagGlaring.AutoSize = true +Me.CBTagGlaring.Enabled = false +Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black +Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) +Me.CBTagGlaring.Name = "CBTagGlaring" +Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) +Me.CBTagGlaring.TabIndex = 224 +Me.CBTagGlaring.Text = "Glaring" +Me.CBTagGlaring.UseVisualStyleBackColor = true +' +'CBTagSmiling +' +Me.CBTagSmiling.AutoSize = true +Me.CBTagSmiling.Enabled = false +Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black +Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) +Me.CBTagSmiling.Name = "CBTagSmiling" +Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) +Me.CBTagSmiling.TabIndex = 223 +Me.CBTagSmiling.Text = "Smiling" +Me.CBTagSmiling.UseVisualStyleBackColor = true +' +'TBTagDir +' +Me.TBTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBTagDir.Name = "TBTagDir" +Me.TBTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBTagDir.TabIndex = 222 +Me.TBTagDir.Text = "Enter Image Directory" +' +'CBTagPiercing +' +Me.CBTagPiercing.AutoSize = true +Me.CBTagPiercing.Enabled = false +Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black +Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) +Me.CBTagPiercing.Name = "CBTagPiercing" +Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) +Me.CBTagPiercing.TabIndex = 221 +Me.CBTagPiercing.Text = "Piercing" +Me.CBTagPiercing.UseVisualStyleBackColor = true +' +'CBTagLegs +' +Me.CBTagLegs.AutoSize = true +Me.CBTagLegs.Enabled = false +Me.CBTagLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) +Me.CBTagLegs.Name = "CBTagLegs" +Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagLegs.TabIndex = 220 +Me.CBTagLegs.Text = "Legs" +Me.CBTagLegs.UseVisualStyleBackColor = true +' +'TBTagFurniture +' +Me.TBTagFurniture.Enabled = false +Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) +Me.TBTagFurniture.Name = "TBTagFurniture" +Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) +Me.TBTagFurniture.TabIndex = 219 +' +'CBTagFurniture +' +Me.CBTagFurniture.AutoSize = true +Me.CBTagFurniture.Enabled = false +Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black +Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) +Me.CBTagFurniture.Name = "CBTagFurniture" +Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) +Me.CBTagFurniture.TabIndex = 218 +Me.CBTagFurniture.Text = "Furniture" +Me.CBTagFurniture.UseVisualStyleBackColor = true +' +'TBTagSexToy +' +Me.TBTagSexToy.Enabled = false +Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) +Me.TBTagSexToy.Name = "TBTagSexToy" +Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) +Me.TBTagSexToy.TabIndex = 217 +' +'CBTagSexToy +' +Me.CBTagSexToy.AutoSize = true +Me.CBTagSexToy.Enabled = false +Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black +Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) +Me.CBTagSexToy.Name = "CBTagSexToy" +Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) +Me.CBTagSexToy.TabIndex = 216 +Me.CBTagSexToy.Text = "Sex Toy" +Me.CBTagSexToy.UseVisualStyleBackColor = true +' +'TBTagTattoo +' +Me.TBTagTattoo.Enabled = false +Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) +Me.TBTagTattoo.Name = "TBTagTattoo" +Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) +Me.TBTagTattoo.TabIndex = 215 +' +'CBTagTattoo +' +Me.CBTagTattoo.AutoSize = true +Me.CBTagTattoo.Enabled = false +Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) +Me.CBTagTattoo.Name = "CBTagTattoo" +Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) +Me.CBTagTattoo.TabIndex = 214 +Me.CBTagTattoo.Text = "Tattoo" +Me.CBTagTattoo.UseVisualStyleBackColor = true +' +'TBTagUnderwear +' +Me.TBTagUnderwear.Enabled = false +Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) +Me.TBTagUnderwear.Name = "TBTagUnderwear" +Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) +Me.TBTagUnderwear.TabIndex = 213 +' +'CBTagUnderwear +' +Me.CBTagUnderwear.AutoSize = true +Me.CBTagUnderwear.Enabled = false +Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black +Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) +Me.CBTagUnderwear.Name = "CBTagUnderwear" +Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) +Me.CBTagUnderwear.TabIndex = 212 +Me.CBTagUnderwear.Text = "Underwear" +Me.CBTagUnderwear.UseVisualStyleBackColor = true +' +'TBTagGarment +' +Me.TBTagGarment.Enabled = false +Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) +Me.TBTagGarment.Name = "TBTagGarment" +Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) +Me.TBTagGarment.TabIndex = 211 +' +'CBTagGarment +' +Me.CBTagGarment.AutoSize = true +Me.CBTagGarment.Enabled = false +Me.CBTagGarment.ForeColor = System.Drawing.Color.Black +Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) +Me.CBTagGarment.Name = "CBTagGarment" +Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) +Me.CBTagGarment.TabIndex = 210 +Me.CBTagGarment.Text = "Garment" +Me.CBTagGarment.UseVisualStyleBackColor = true +' +'Label72 +' +Me.Label72.BackColor = System.Drawing.Color.Transparent +Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label72.ForeColor = System.Drawing.Color.Black +Me.Label72.Location = New System.Drawing.Point(5, 368) +Me.Label72.Name = "Label72" +Me.Label72.Size = New System.Drawing.Size(451, 35) +Me.Label72.TabIndex = 189 +Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ + "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ + "e.g. Garment: dress)" +Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBTagHandsCovering +' +Me.CBTagHandsCovering.AutoSize = true +Me.CBTagHandsCovering.Enabled = false +Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) +Me.CBTagHandsCovering.Name = "CBTagHandsCovering" +Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) +Me.CBTagHandsCovering.TabIndex = 209 +Me.CBTagHandsCovering.Text = "Hands Covering" +Me.CBTagHandsCovering.UseVisualStyleBackColor = true +' +'CBTagGarmentCovering +' +Me.CBTagGarmentCovering.AutoSize = true +Me.CBTagGarmentCovering.Enabled = false +Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) +Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" +Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) +Me.CBTagGarmentCovering.TabIndex = 208 +Me.CBTagGarmentCovering.Text = "Garment Covering" +Me.CBTagGarmentCovering.UseVisualStyleBackColor = true +' +'CBTagCloseUp +' +Me.CBTagCloseUp.AutoSize = true +Me.CBTagCloseUp.Enabled = false +Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black +Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) +Me.CBTagCloseUp.Name = "CBTagCloseUp" +Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) +Me.CBTagCloseUp.TabIndex = 205 +Me.CBTagCloseUp.Text = "Close Up" +Me.CBTagCloseUp.UseVisualStyleBackColor = true +' +'CBTagNaked +' +Me.CBTagNaked.AutoSize = true +Me.CBTagNaked.Enabled = false +Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) +Me.CBTagNaked.Name = "CBTagNaked" +Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) +Me.CBTagNaked.TabIndex = 199 +Me.CBTagNaked.Text = "Naked" +Me.CBTagNaked.UseVisualStyleBackColor = true +' +'CBTagSideView +' +Me.CBTagSideView.AutoSize = true +Me.CBTagSideView.Enabled = false +Me.CBTagSideView.ForeColor = System.Drawing.Color.Black +Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) +Me.CBTagSideView.Name = "CBTagSideView" +Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) +Me.CBTagSideView.TabIndex = 204 +Me.CBTagSideView.Text = "Side View" +Me.CBTagSideView.UseVisualStyleBackColor = true +' +'BTNTagPrevious +' +Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNTagPrevious.Enabled = false +Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNTagPrevious.Name = "BTNTagPrevious" +Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNTagPrevious.TabIndex = 207 +Me.BTNTagPrevious.Text = "<<" +Me.BTNTagPrevious.UseVisualStyleBackColor = false +' +'CBTagHalfDressed +' +Me.CBTagHalfDressed.AutoSize = true +Me.CBTagHalfDressed.Enabled = false +Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) +Me.CBTagHalfDressed.Name = "CBTagHalfDressed" +Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) +Me.CBTagHalfDressed.TabIndex = 198 +Me.CBTagHalfDressed.Text = "Half Dressed" +Me.CBTagHalfDressed.UseVisualStyleBackColor = true +' +'BTNTagNext +' +Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNTagNext.Enabled = false +Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNTagNext.Name = "BTNTagNext" +Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNTagNext.TabIndex = 206 +Me.BTNTagNext.Text = ">>" +Me.BTNTagNext.UseVisualStyleBackColor = false +' +'CBTagFullyDressed +' +Me.CBTagFullyDressed.AutoSize = true +Me.CBTagFullyDressed.Enabled = false +Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) +Me.CBTagFullyDressed.Name = "CBTagFullyDressed" +Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) +Me.CBTagFullyDressed.TabIndex = 197 +Me.CBTagFullyDressed.Text = "Fully Dressed" +Me.CBTagFullyDressed.UseVisualStyleBackColor = true +' +'LBLTagCount +' +Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTagCount.Enabled = false +Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLTagCount.Name = "LBLTagCount" +Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLTagCount.TabIndex = 203 +Me.LBLTagCount.Text = "0/0" +Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBTagSucking +' +Me.CBTagSucking.AutoSize = true +Me.CBTagSucking.Enabled = false +Me.CBTagSucking.ForeColor = System.Drawing.Color.Black +Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) +Me.CBTagSucking.Name = "CBTagSucking" +Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) +Me.CBTagSucking.TabIndex = 202 +Me.CBTagSucking.Text = "Sucking" +Me.CBTagSucking.UseVisualStyleBackColor = true +' +'CBTagMasturbating +' +Me.CBTagMasturbating.AutoSize = true +Me.CBTagMasturbating.Enabled = false +Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) +Me.CBTagMasturbating.Name = "CBTagMasturbating" +Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbating.TabIndex = 201 +Me.CBTagMasturbating.Text = "Masturbating" +Me.CBTagMasturbating.UseVisualStyleBackColor = true +' +'CBTagFeet +' +Me.CBTagFeet.AutoSize = true +Me.CBTagFeet.Enabled = false +Me.CBTagFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) +Me.CBTagFeet.Name = "CBTagFeet" +Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagFeet.TabIndex = 200 +Me.CBTagFeet.Text = "Feet" +Me.CBTagFeet.UseVisualStyleBackColor = true +' +'CBTagBoobs +' +Me.CBTagBoobs.AutoSize = true +Me.CBTagBoobs.Enabled = false +Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black +Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) +Me.CBTagBoobs.Name = "CBTagBoobs" +Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) +Me.CBTagBoobs.TabIndex = 196 +Me.CBTagBoobs.Text = "Boobs" +Me.CBTagBoobs.UseVisualStyleBackColor = true +' +'CBTagAss +' +Me.CBTagAss.AutoSize = true +Me.CBTagAss.Enabled = false +Me.CBTagAss.ForeColor = System.Drawing.Color.Black +Me.CBTagAss.Location = New System.Drawing.Point(484, 97) +Me.CBTagAss.Name = "CBTagAss" +Me.CBTagAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagAss.TabIndex = 195 +Me.CBTagAss.Text = "Ass" +Me.CBTagAss.UseVisualStyleBackColor = true +' +'CBTagPussy +' +Me.CBTagPussy.AutoSize = true +Me.CBTagPussy.Enabled = false +Me.CBTagPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) +Me.CBTagPussy.Name = "CBTagPussy" +Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagPussy.TabIndex = 194 +Me.CBTagPussy.Text = "Pussy" +Me.CBTagPussy.UseVisualStyleBackColor = true +' +'BTNTagSave +' +Me.BTNTagSave.Enabled = false +Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNTagSave.Name = "BTNTagSave" +Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNTagSave.TabIndex = 193 +Me.BTNTagSave.Text = "Finished" +Me.BTNTagSave.UseVisualStyleBackColor = true +' +'BTNTagDir +' +Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNTagDir.Name = "BTNTagDir" +Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNTagDir.TabIndex = 192 +Me.BTNTagDir.Text = "1" +Me.BTNTagDir.UseVisualStyleBackColor = true +' +'ImageTagPictureBox +' +Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black +Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) +Me.ImageTagPictureBox.Name = "ImageTagPictureBox" +Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) +Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.ImageTagPictureBox.TabIndex = 191 +Me.ImageTagPictureBox.TabStop = false +' +'CBTagFace +' +Me.CBTagFace.AutoSize = true +Me.CBTagFace.Enabled = false +Me.CBTagFace.ForeColor = System.Drawing.Color.Black +Me.CBTagFace.Location = New System.Drawing.Point(484, 37) +Me.CBTagFace.Name = "CBTagFace" +Me.CBTagFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagFace.TabIndex = 190 +Me.CBTagFace.Text = "Face" +Me.CBTagFace.UseVisualStyleBackColor = true +' +'TabPage35 +' +Me.TabPage35.BackColor = System.Drawing.Color.LightGray +Me.TabPage35.Controls.Add(Me.GroupBox55) +Me.TabPage35.Controls.Add(Me.GroupBox53) +Me.TabPage35.Controls.Add(Me.GroupBox49) +Me.TabPage35.Controls.Add(Me.GroupBox46) +Me.TabPage35.Controls.Add(Me.GroupBox54) +Me.TabPage35.Controls.Add(Me.GroupBox51) +Me.TabPage35.Controls.Add(Me.GroupBox50) +Me.TabPage35.Controls.Add(Me.GroupBox48) +Me.TabPage35.Controls.Add(Me.TBLocalTagDir) +Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) +Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) +Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) +Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) +Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) +Me.TabPage35.Location = New System.Drawing.Point(4, 22) +Me.TabPage35.Name = "TabPage35" +Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage35.Size = New System.Drawing.Size(700, 411) +Me.TabPage35.TabIndex = 1 +Me.TabPage35.Text = "Local Tags" +' +'GroupBox55 +' +Me.GroupBox55.Controls.Add(Me.CBTagNurse) +Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) +Me.GroupBox55.Controls.Add(Me.CBTagMaid) +Me.GroupBox55.Controls.Add(Me.CBTagTeacher) +Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) +Me.GroupBox55.Location = New System.Drawing.Point(341, 277) +Me.GroupBox55.Name = "GroupBox55" +Me.GroupBox55.Size = New System.Drawing.Size(103, 118) +Me.GroupBox55.TabIndex = 241 +Me.GroupBox55.TabStop = false +Me.GroupBox55.Text = "Outfit" +' +'CBTagNurse +' +Me.CBTagNurse.AutoSize = true +Me.CBTagNurse.Enabled = false +Me.CBTagNurse.ForeColor = System.Drawing.Color.Black +Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) +Me.CBTagNurse.Name = "CBTagNurse" +Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) +Me.CBTagNurse.TabIndex = 203 +Me.CBTagNurse.Text = "Nurse" +Me.CBTagNurse.UseVisualStyleBackColor = true +' +'CBTagSchoolgirl +' +Me.CBTagSchoolgirl.AutoSize = true +Me.CBTagSchoolgirl.Enabled = false +Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) +Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" +Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) +Me.CBTagSchoolgirl.TabIndex = 204 +Me.CBTagSchoolgirl.Text = "Schoolgirl" +Me.CBTagSchoolgirl.UseVisualStyleBackColor = true +' +'CBTagMaid +' +Me.CBTagMaid.AutoSize = true +Me.CBTagMaid.Enabled = false +Me.CBTagMaid.ForeColor = System.Drawing.Color.Black +Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) +Me.CBTagMaid.Name = "CBTagMaid" +Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) +Me.CBTagMaid.TabIndex = 205 +Me.CBTagMaid.Text = "Maid" +Me.CBTagMaid.UseVisualStyleBackColor = true +' +'CBTagTeacher +' +Me.CBTagTeacher.AutoSize = true +Me.CBTagTeacher.Enabled = false +Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black +Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) +Me.CBTagTeacher.Name = "CBTagTeacher" +Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) +Me.CBTagTeacher.TabIndex = 206 +Me.CBTagTeacher.Text = "Teacher" +Me.CBTagTeacher.UseVisualStyleBackColor = true +' +'CBTagSuperhero +' +Me.CBTagSuperhero.AutoSize = true +Me.CBTagSuperhero.Enabled = false +Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black +Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) +Me.CBTagSuperhero.Name = "CBTagSuperhero" +Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) +Me.CBTagSuperhero.TabIndex = 213 +Me.CBTagSuperhero.Text = "Superhero" +Me.CBTagSuperhero.UseVisualStyleBackColor = true +' +'GroupBox53 +' +Me.GroupBox53.Controls.Add(Me.CBTagTrap) +Me.GroupBox53.Controls.Add(Me.CBTagTentacles) +Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) +Me.GroupBox53.Controls.Add(Me.CBTagBukkake) +Me.GroupBox53.Controls.Add(Me.CBTagGanguro) +Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) +Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) +Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) +Me.GroupBox53.Controls.Add(Me.CBTagAhegao) +Me.GroupBox53.Controls.Add(Me.CBTagShibari) +Me.GroupBox53.Location = New System.Drawing.Point(450, 277) +Me.GroupBox53.Name = "GroupBox53" +Me.GroupBox53.Size = New System.Drawing.Size(246, 118) +Me.GroupBox53.TabIndex = 240 +Me.GroupBox53.TabStop = false +Me.GroupBox53.Text = "Hentai/JAV Themes" +' +'CBTagTrap +' +Me.CBTagTrap.AutoSize = true +Me.CBTagTrap.Enabled = false +Me.CBTagTrap.ForeColor = System.Drawing.Color.Black +Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) +Me.CBTagTrap.Name = "CBTagTrap" +Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) +Me.CBTagTrap.TabIndex = 226 +Me.CBTagTrap.Text = "Trap" +Me.CBTagTrap.UseVisualStyleBackColor = true +' +'CBTagTentacles +' +Me.CBTagTentacles.AutoSize = true +Me.CBTagTentacles.Enabled = false +Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black +Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) +Me.CBTagTentacles.Name = "CBTagTentacles" +Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) +Me.CBTagTentacles.TabIndex = 204 +Me.CBTagTentacles.Text = "Tentacles" +Me.CBTagTentacles.UseVisualStyleBackColor = true +' +'CBTagMonsterGirl +' +Me.CBTagMonsterGirl.AutoSize = true +Me.CBTagMonsterGirl.Enabled = false +Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black +Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) +Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" +Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) +Me.CBTagMonsterGirl.TabIndex = 214 +Me.CBTagMonsterGirl.Text = "Monster Girl" +Me.CBTagMonsterGirl.UseVisualStyleBackColor = true +' +'CBTagBukkake +' +Me.CBTagBukkake.AutoSize = true +Me.CBTagBukkake.Enabled = false +Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black +Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) +Me.CBTagBukkake.Name = "CBTagBukkake" +Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) +Me.CBTagBukkake.TabIndex = 210 +Me.CBTagBukkake.Text = "Bukkake" +Me.CBTagBukkake.UseVisualStyleBackColor = true +' +'CBTagGanguro +' +Me.CBTagGanguro.AutoSize = true +Me.CBTagGanguro.Enabled = false +Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black +Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) +Me.CBTagGanguro.Name = "CBTagGanguro" +Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) +Me.CBTagGanguro.TabIndex = 205 +Me.CBTagGanguro.Text = "Ganguro" +Me.CBTagGanguro.UseVisualStyleBackColor = true +' +'CBTagBodyWriting +' +Me.CBTagBodyWriting.AutoSize = true +Me.CBTagBodyWriting.Enabled = false +Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) +Me.CBTagBodyWriting.Name = "CBTagBodyWriting" +Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) +Me.CBTagBodyWriting.TabIndex = 208 +Me.CBTagBodyWriting.Text = "Body Writing" +Me.CBTagBodyWriting.UseVisualStyleBackColor = true +' +'CBTagMahouShoujo +' +Me.CBTagMahouShoujo.AutoSize = true +Me.CBTagMahouShoujo.Enabled = false +Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black +Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) +Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" +Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) +Me.CBTagMahouShoujo.TabIndex = 209 +Me.CBTagMahouShoujo.Text = "Mahou Shoujo" +Me.CBTagMahouShoujo.UseVisualStyleBackColor = true +' +'CBTagBakunyuu +' +Me.CBTagBakunyuu.AutoSize = true +Me.CBTagBakunyuu.Enabled = false +Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black +Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) +Me.CBTagBakunyuu.Name = "CBTagBakunyuu" +Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) +Me.CBTagBakunyuu.TabIndex = 213 +Me.CBTagBakunyuu.Text = "Bakunyuu" +Me.CBTagBakunyuu.UseVisualStyleBackColor = true +' +'CBTagAhegao +' +Me.CBTagAhegao.AutoSize = true +Me.CBTagAhegao.Enabled = false +Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black +Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) +Me.CBTagAhegao.Name = "CBTagAhegao" +Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) +Me.CBTagAhegao.TabIndex = 207 +Me.CBTagAhegao.Text = "Ahegao" +Me.CBTagAhegao.UseVisualStyleBackColor = true +' +'CBTagShibari +' +Me.CBTagShibari.AutoSize = true +Me.CBTagShibari.Enabled = false +Me.CBTagShibari.ForeColor = System.Drawing.Color.Black +Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) +Me.CBTagShibari.Name = "CBTagShibari" +Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) +Me.CBTagShibari.TabIndex = 203 +Me.CBTagShibari.Text = "Shibari" +Me.CBTagShibari.UseVisualStyleBackColor = true +' +'GroupBox49 +' +Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) +Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) +Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) +Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) +Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) +Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) +Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) +Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) +Me.GroupBox49.Location = New System.Drawing.Point(341, 37) +Me.GroupBox49.Name = "GroupBox49" +Me.GroupBox49.Size = New System.Drawing.Size(103, 238) +Me.GroupBox49.TabIndex = 236 +Me.GroupBox49.TabStop = false +Me.GroupBox49.Text = "Body Part" +' +'CBTagBodyMouth +' +Me.CBTagBodyMouth.AutoSize = true +Me.CBTagBodyMouth.Enabled = false +Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) +Me.CBTagBodyMouth.Name = "CBTagBodyMouth" +Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) +Me.CBTagBodyMouth.TabIndex = 220 +Me.CBTagBodyMouth.Text = "Mouth" +Me.CBTagBodyMouth.UseVisualStyleBackColor = true +' +'CBTagBodyAss +' +Me.CBTagBodyAss.AutoSize = true +Me.CBTagBodyAss.Enabled = false +Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) +Me.CBTagBodyAss.Name = "CBTagBodyAss" +Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyAss.TabIndex = 219 +Me.CBTagBodyAss.Text = "Ass" +Me.CBTagBodyAss.UseVisualStyleBackColor = true +' +'CBTagBodyFace +' +Me.CBTagBodyFace.AutoSize = true +Me.CBTagBodyFace.Enabled = false +Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) +Me.CBTagBodyFace.Name = "CBTagBodyFace" +Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagBodyFace.TabIndex = 203 +Me.CBTagBodyFace.Text = "Face" +Me.CBTagBodyFace.UseVisualStyleBackColor = true +' +'CBTagBodyLegs +' +Me.CBTagBodyLegs.AutoSize = true +Me.CBTagBodyLegs.Enabled = false +Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) +Me.CBTagBodyLegs.Name = "CBTagBodyLegs" +Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagBodyLegs.TabIndex = 218 +Me.CBTagBodyLegs.Text = "Legs" +Me.CBTagBodyLegs.UseVisualStyleBackColor = true +' +'CBTagBodyBalls +' +Me.CBTagBodyBalls.AutoSize = true +Me.CBTagBodyBalls.Enabled = false +Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) +Me.CBTagBodyBalls.Name = "CBTagBodyBalls" +Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) +Me.CBTagBodyBalls.TabIndex = 217 +Me.CBTagBodyBalls.Text = "Balls" +Me.CBTagBodyBalls.UseVisualStyleBackColor = true +' +'CBTagBodyCock +' +Me.CBTagBodyCock.AutoSize = true +Me.CBTagBodyCock.Enabled = false +Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) +Me.CBTagBodyCock.Name = "CBTagBodyCock" +Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) +Me.CBTagBodyCock.TabIndex = 216 +Me.CBTagBodyCock.Text = "Cock" +Me.CBTagBodyCock.UseVisualStyleBackColor = true +' +'CBTagBodyFeet +' +Me.CBTagBodyFeet.AutoSize = true +Me.CBTagBodyFeet.Enabled = false +Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) +Me.CBTagBodyFeet.Name = "CBTagBodyFeet" +Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagBodyFeet.TabIndex = 215 +Me.CBTagBodyFeet.Text = "Feet" +Me.CBTagBodyFeet.UseVisualStyleBackColor = true +' +'CBTagBodyNipples +' +Me.CBTagBodyNipples.AutoSize = true +Me.CBTagBodyNipples.Enabled = false +Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) +Me.CBTagBodyNipples.Name = "CBTagBodyNipples" +Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) +Me.CBTagBodyNipples.TabIndex = 207 +Me.CBTagBodyNipples.Text = "Nipples" +Me.CBTagBodyNipples.UseVisualStyleBackColor = true +' +'CBTagBodyPussy +' +Me.CBTagBodyPussy.AutoSize = true +Me.CBTagBodyPussy.Enabled = false +Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) +Me.CBTagBodyPussy.Name = "CBTagBodyPussy" +Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagBodyPussy.TabIndex = 209 +Me.CBTagBodyPussy.Text = "Pussy" +Me.CBTagBodyPussy.UseVisualStyleBackColor = true +' +'CBTagBodyTits +' +Me.CBTagBodyTits.AutoSize = true +Me.CBTagBodyTits.Enabled = false +Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) +Me.CBTagBodyTits.Name = "CBTagBodyTits" +Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyTits.TabIndex = 213 +Me.CBTagBodyTits.Text = "Tits" +Me.CBTagBodyTits.UseVisualStyleBackColor = true +' +'CBTagBodyFingers +' +Me.CBTagBodyFingers.AutoSize = true +Me.CBTagBodyFingers.Enabled = false +Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) +Me.CBTagBodyFingers.Name = "CBTagBodyFingers" +Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) +Me.CBTagBodyFingers.TabIndex = 210 +Me.CBTagBodyFingers.Text = "Fingers" +Me.CBTagBodyFingers.UseVisualStyleBackColor = true +' +'GroupBox46 +' +Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) +Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) +Me.GroupBox46.Controls.Add(Me.CBTagFemdom) +Me.GroupBox46.Controls.Add(Me.CBTag2M) +Me.GroupBox46.Controls.Add(Me.CBTagFutadom) +Me.GroupBox46.Controls.Add(Me.CBTagFemsub) +Me.GroupBox46.Controls.Add(Me.CBTag2Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMaledom) +Me.GroupBox46.Controls.Add(Me.CBTag3M) +Me.GroupBox46.Controls.Add(Me.CBTagFutasub) +Me.GroupBox46.Controls.Add(Me.CBTag3Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMalesub) +Me.GroupBox46.Controls.Add(Me.CBTag2F) +Me.GroupBox46.Controls.Add(Me.CBTag1Futa) +Me.GroupBox46.Controls.Add(Me.CBTag1M) +Me.GroupBox46.Controls.Add(Me.CBTag1F) +Me.GroupBox46.Controls.Add(Me.CBTag3F) +Me.GroupBox46.Location = New System.Drawing.Point(230, 37) +Me.GroupBox46.Name = "GroupBox46" +Me.GroupBox46.Size = New System.Drawing.Size(105, 358) +Me.GroupBox46.TabIndex = 234 +Me.GroupBox46.TabStop = false +Me.GroupBox46.Text = "Genders && Roles" +' +'CBTagMultiSub +' +Me.CBTagMultiSub.AutoSize = true +Me.CBTagMultiSub.Enabled = false +Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) +Me.CBTagMultiSub.Name = "CBTagMultiSub" +Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) +Me.CBTagMultiSub.TabIndex = 207 +Me.CBTagMultiSub.Text = "Multi-Sub" +Me.CBTagMultiSub.UseVisualStyleBackColor = true +' +'CBTagMultiDom +' +Me.CBTagMultiDom.AutoSize = true +Me.CBTagMultiDom.Enabled = false +Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) +Me.CBTagMultiDom.Name = "CBTagMultiDom" +Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) +Me.CBTagMultiDom.TabIndex = 230 +Me.CBTagMultiDom.Text = "Multi-Dom" +Me.CBTagMultiDom.UseVisualStyleBackColor = true +' +'CBTagFemdom +' +Me.CBTagFemdom.AutoSize = true +Me.CBTagFemdom.Enabled = false +Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black +Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) +Me.CBTagFemdom.Name = "CBTagFemdom" +Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBTagFemdom.TabIndex = 229 +Me.CBTagFemdom.Text = "Femdom" +Me.CBTagFemdom.UseVisualStyleBackColor = true +' +'CBTag2M +' +Me.CBTag2M.AutoSize = true +Me.CBTag2M.Enabled = false +Me.CBTag2M.ForeColor = System.Drawing.Color.Black +Me.CBTag2M.Location = New System.Drawing.Point(15, 97) +Me.CBTag2M.Name = "CBTag2M" +Me.CBTag2M.Size = New System.Drawing.Size(56, 17) +Me.CBTag2M.TabIndex = 206 +Me.CBTag2M.Text = "2 Men" +Me.CBTag2M.UseVisualStyleBackColor = true +' +'CBTagFutadom +' +Me.CBTagFutadom.AutoSize = true +Me.CBTagFutadom.Enabled = false +Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black +Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) +Me.CBTagFutadom.Name = "CBTagFutadom" +Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) +Me.CBTagFutadom.TabIndex = 204 +Me.CBTagFutadom.Text = "Futadom" +Me.CBTagFutadom.UseVisualStyleBackColor = true +' +'CBTagFemsub +' +Me.CBTagFemsub.AutoSize = true +Me.CBTagFemsub.Enabled = false +Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black +Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) +Me.CBTagFemsub.Name = "CBTagFemsub" +Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBTagFemsub.TabIndex = 205 +Me.CBTagFemsub.Text = "Femsub" +Me.CBTagFemsub.UseVisualStyleBackColor = true +' +'CBTag2Futa +' +Me.CBTag2Futa.AutoSize = true +Me.CBTag2Futa.Enabled = false +Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) +Me.CBTag2Futa.Name = "CBTag2Futa" +Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag2Futa.TabIndex = 186 +Me.CBTag2Futa.Text = "2 Futa" +Me.CBTag2Futa.UseVisualStyleBackColor = true +' +'CBTagMaledom +' +Me.CBTagMaledom.AutoSize = true +Me.CBTagMaledom.Enabled = false +Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black +Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) +Me.CBTagMaledom.Name = "CBTagMaledom" +Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) +Me.CBTagMaledom.TabIndex = 206 +Me.CBTagMaledom.Text = "Maledom" +Me.CBTagMaledom.UseVisualStyleBackColor = true +' +'CBTag3M +' +Me.CBTag3M.AutoSize = true +Me.CBTag3M.Enabled = false +Me.CBTag3M.ForeColor = System.Drawing.Color.Black +Me.CBTag3M.Location = New System.Drawing.Point(15, 117) +Me.CBTag3M.Name = "CBTag3M" +Me.CBTag3M.Size = New System.Drawing.Size(56, 17) +Me.CBTag3M.TabIndex = 190 +Me.CBTag3M.Text = "3 Men" +Me.CBTag3M.UseVisualStyleBackColor = true +' +'CBTagFutasub +' +Me.CBTagFutasub.AutoSize = true +Me.CBTagFutasub.Enabled = false +Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black +Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) +Me.CBTagFutasub.Name = "CBTagFutasub" +Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) +Me.CBTagFutasub.TabIndex = 213 +Me.CBTagFutasub.Text = "Futasub" +Me.CBTagFutasub.UseVisualStyleBackColor = true +' +'CBTag3Futa +' +Me.CBTag3Futa.AutoSize = true +Me.CBTag3Futa.Enabled = false +Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) +Me.CBTag3Futa.Name = "CBTag3Futa" +Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag3Futa.TabIndex = 197 +Me.CBTag3Futa.Text = "3 Futa" +Me.CBTag3Futa.UseVisualStyleBackColor = true +' +'CBTagMalesub +' +Me.CBTagMalesub.AutoSize = true +Me.CBTagMalesub.Enabled = false +Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black +Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) +Me.CBTagMalesub.Name = "CBTagMalesub" +Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) +Me.CBTagMalesub.TabIndex = 210 +Me.CBTagMalesub.Text = "Malesub" +Me.CBTagMalesub.UseVisualStyleBackColor = true +' +'CBTag2F +' +Me.CBTag2F.AutoSize = true +Me.CBTag2F.Enabled = false +Me.CBTag2F.ForeColor = System.Drawing.Color.Black +Me.CBTag2F.Location = New System.Drawing.Point(15, 37) +Me.CBTag2F.Name = "CBTag2F" +Me.CBTag2F.Size = New System.Drawing.Size(72, 17) +Me.CBTag2F.TabIndex = 188 +Me.CBTag2F.Text = "2 Women" +Me.CBTag2F.UseVisualStyleBackColor = true +' +'CBTag1Futa +' +Me.CBTag1Futa.AutoSize = true +Me.CBTag1Futa.Enabled = false +Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) +Me.CBTag1Futa.Name = "CBTag1Futa" +Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag1Futa.TabIndex = 191 +Me.CBTag1Futa.Text = "1 Futa" +Me.CBTag1Futa.UseVisualStyleBackColor = true +' +'CBTag1M +' +Me.CBTag1M.AutoSize = true +Me.CBTag1M.Enabled = false +Me.CBTag1M.ForeColor = System.Drawing.Color.Black +Me.CBTag1M.Location = New System.Drawing.Point(15, 77) +Me.CBTag1M.Name = "CBTag1M" +Me.CBTag1M.Size = New System.Drawing.Size(56, 17) +Me.CBTag1M.TabIndex = 189 +Me.CBTag1M.Text = "1 Man" +Me.CBTag1M.UseVisualStyleBackColor = true +' +'CBTag1F +' +Me.CBTag1F.AutoSize = true +Me.CBTag1F.Enabled = false +Me.CBTag1F.ForeColor = System.Drawing.Color.Black +Me.CBTag1F.Location = New System.Drawing.Point(15, 17) +Me.CBTag1F.Name = "CBTag1F" +Me.CBTag1F.Size = New System.Drawing.Size(72, 17) +Me.CBTag1F.TabIndex = 185 +Me.CBTag1F.Text = "1 Woman" +Me.CBTag1F.UseVisualStyleBackColor = true +' +'CBTag3F +' +Me.CBTag3F.AutoSize = true +Me.CBTag3F.Enabled = false +Me.CBTag3F.ForeColor = System.Drawing.Color.Black +Me.CBTag3F.Location = New System.Drawing.Point(15, 57) +Me.CBTag3F.Name = "CBTag3F" +Me.CBTag3F.Size = New System.Drawing.Size(72, 17) +Me.CBTag3F.TabIndex = 192 +Me.CBTag3F.Text = "3 Women" +Me.CBTag3F.UseVisualStyleBackColor = true +' +'GroupBox54 +' +Me.GroupBox54.Controls.Add(Me.CBTagTattoos) +Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) +Me.GroupBox54.Controls.Add(Me.CBTagDomme) +Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) +Me.GroupBox54.Controls.Add(Me.CBTagWatersports) +Me.GroupBox54.Controls.Add(Me.CBTagStockings) +Me.GroupBox54.Controls.Add(Me.CBTagCumshot) +Me.GroupBox54.Controls.Add(Me.CBTagCumEating) +Me.GroupBox54.Controls.Add(Me.CBTagVibrator) +Me.GroupBox54.Controls.Add(Me.CBTagDildo) +Me.GroupBox54.Controls.Add(Me.CBTagKissing) +Me.GroupBox54.Location = New System.Drawing.Point(561, 37) +Me.GroupBox54.Name = "GroupBox54" +Me.GroupBox54.Size = New System.Drawing.Size(135, 238) +Me.GroupBox54.TabIndex = 239 +Me.GroupBox54.TabStop = false +Me.GroupBox54.Text = "Misc" +' +'CBTagTattoos +' +Me.CBTagTattoos.AutoSize = true +Me.CBTagTattoos.Enabled = false +Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) +Me.CBTagTattoos.Name = "CBTagTattoos" +Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBTagTattoos.TabIndex = 214 +Me.CBTagTattoos.Text = "Tattoos" +Me.CBTagTattoos.UseVisualStyleBackColor = true +' +'CBTagAnalToy +' +Me.CBTagAnalToy.AutoSize = true +Me.CBTagAnalToy.Enabled = false +Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) +Me.CBTagAnalToy.Name = "CBTagAnalToy" +Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalToy.TabIndex = 215 +Me.CBTagAnalToy.Text = "Anal Toy" +Me.CBTagAnalToy.UseVisualStyleBackColor = true +' +'CBTagDomme +' +Me.CBTagDomme.AutoSize = true +Me.CBTagDomme.Enabled = false +Me.CBTagDomme.ForeColor = System.Drawing.Color.Black +Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) +Me.CBTagDomme.Name = "CBTagDomme" +Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) +Me.CBTagDomme.TabIndex = 219 +Me.CBTagDomme.Text = "Tease A.I. Domme" +Me.CBTagDomme.UseVisualStyleBackColor = true +' +'CBTagPocketPussy +' +Me.CBTagPocketPussy.AutoSize = true +Me.CBTagPocketPussy.Enabled = false +Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) +Me.CBTagPocketPussy.Name = "CBTagPocketPussy" +Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) +Me.CBTagPocketPussy.TabIndex = 205 +Me.CBTagPocketPussy.Text = "Pocket Pussy" +Me.CBTagPocketPussy.UseVisualStyleBackColor = true +' +'CBTagWatersports +' +Me.CBTagWatersports.AutoSize = true +Me.CBTagWatersports.Enabled = false +Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black +Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) +Me.CBTagWatersports.Name = "CBTagWatersports" +Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) +Me.CBTagWatersports.TabIndex = 218 +Me.CBTagWatersports.Text = "Watersports" +Me.CBTagWatersports.UseVisualStyleBackColor = true +' +'CBTagStockings +' +Me.CBTagStockings.AutoSize = true +Me.CBTagStockings.Enabled = false +Me.CBTagStockings.ForeColor = System.Drawing.Color.Black +Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) +Me.CBTagStockings.Name = "CBTagStockings" +Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) +Me.CBTagStockings.TabIndex = 217 +Me.CBTagStockings.Text = "Stockings" +Me.CBTagStockings.UseVisualStyleBackColor = true +' +'CBTagCumshot +' +Me.CBTagCumshot.AutoSize = true +Me.CBTagCumshot.Enabled = false +Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black +Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) +Me.CBTagCumshot.Name = "CBTagCumshot" +Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) +Me.CBTagCumshot.TabIndex = 206 +Me.CBTagCumshot.Text = "Cumshot" +Me.CBTagCumshot.UseVisualStyleBackColor = true +' +'CBTagCumEating +' +Me.CBTagCumEating.AutoSize = true +Me.CBTagCumEating.Enabled = false +Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black +Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) +Me.CBTagCumEating.Name = "CBTagCumEating" +Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) +Me.CBTagCumEating.TabIndex = 204 +Me.CBTagCumEating.Text = "Cum Eating" +Me.CBTagCumEating.UseVisualStyleBackColor = true +' +'CBTagVibrator +' +Me.CBTagVibrator.AutoSize = true +Me.CBTagVibrator.Enabled = false +Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black +Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) +Me.CBTagVibrator.Name = "CBTagVibrator" +Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) +Me.CBTagVibrator.TabIndex = 210 +Me.CBTagVibrator.Text = "Vibrator" +Me.CBTagVibrator.UseVisualStyleBackColor = true +' +'CBTagDildo +' +Me.CBTagDildo.AutoSize = true +Me.CBTagDildo.Enabled = false +Me.CBTagDildo.ForeColor = System.Drawing.Color.Black +Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) +Me.CBTagDildo.Name = "CBTagDildo" +Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) +Me.CBTagDildo.TabIndex = 213 +Me.CBTagDildo.Text = "Dildo" +Me.CBTagDildo.UseVisualStyleBackColor = true +' +'CBTagKissing +' +Me.CBTagKissing.AutoSize = true +Me.CBTagKissing.Enabled = false +Me.CBTagKissing.ForeColor = System.Drawing.Color.Black +Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) +Me.CBTagKissing.Name = "CBTagKissing" +Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) +Me.CBTagKissing.TabIndex = 203 +Me.CBTagKissing.Text = "Kissing" +Me.CBTagKissing.UseVisualStyleBackColor = true +' +'GroupBox51 +' +Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) +Me.GroupBox51.Controls.Add(Me.CBTagGag) +Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) +Me.GroupBox51.Controls.Add(Me.CBTagWhipping) +Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) +Me.GroupBox51.Controls.Add(Me.CBTagElectro) +Me.GroupBox51.Controls.Add(Me.CBTagHotWax) +Me.GroupBox51.Controls.Add(Me.CBTagClamps) +Me.GroupBox51.Controls.Add(Me.CBTagStrapon) +Me.GroupBox51.Controls.Add(Me.CBTagSpanking) +Me.GroupBox51.Controls.Add(Me.CBTagNeedles) +Me.GroupBox51.Location = New System.Drawing.Point(450, 37) +Me.GroupBox51.Name = "GroupBox51" +Me.GroupBox51.Size = New System.Drawing.Size(105, 238) +Me.GroupBox51.TabIndex = 238 +Me.GroupBox51.TabStop = false +Me.GroupBox51.Text = "BDSM" +' +'CBTagBallTorture +' +Me.CBTagBallTorture.AutoSize = true +Me.CBTagBallTorture.Enabled = false +Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) +Me.CBTagBallTorture.Name = "CBTagBallTorture" +Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) +Me.CBTagBallTorture.TabIndex = 220 +Me.CBTagBallTorture.Text = "Ball Torture" +Me.CBTagBallTorture.UseVisualStyleBackColor = true +' +'CBTagGag +' +Me.CBTagGag.AutoSize = true +Me.CBTagGag.Enabled = false +Me.CBTagGag.ForeColor = System.Drawing.Color.Black +Me.CBTagGag.Location = New System.Drawing.Point(15, 137) +Me.CBTagGag.Name = "CBTagGag" +Me.CBTagGag.Size = New System.Drawing.Size(46, 17) +Me.CBTagGag.TabIndex = 214 +Me.CBTagGag.Text = "Gag" +Me.CBTagGag.UseVisualStyleBackColor = true +' +'CBTagBlindfold +' +Me.CBTagBlindfold.AutoSize = true +Me.CBTagBlindfold.Enabled = false +Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black +Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) +Me.CBTagBlindfold.Name = "CBTagBlindfold" +Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) +Me.CBTagBlindfold.TabIndex = 208 +Me.CBTagBlindfold.Text = "Blindfold" +Me.CBTagBlindfold.UseVisualStyleBackColor = true +' +'CBTagWhipping +' +Me.CBTagWhipping.AutoSize = true +Me.CBTagWhipping.Enabled = false +Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black +Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) +Me.CBTagWhipping.Name = "CBTagWhipping" +Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) +Me.CBTagWhipping.TabIndex = 203 +Me.CBTagWhipping.Text = "Whipping" +Me.CBTagWhipping.UseVisualStyleBackColor = true +' +'CBTagCockTorture +' +Me.CBTagCockTorture.AutoSize = true +Me.CBTagCockTorture.Enabled = false +Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) +Me.CBTagCockTorture.Name = "CBTagCockTorture" +Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) +Me.CBTagCockTorture.TabIndex = 204 +Me.CBTagCockTorture.Text = "Cock Torture" +Me.CBTagCockTorture.UseVisualStyleBackColor = true +' +'CBTagElectro +' +Me.CBTagElectro.AutoSize = true +Me.CBTagElectro.Enabled = false +Me.CBTagElectro.ForeColor = System.Drawing.Color.Black +Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) +Me.CBTagElectro.Name = "CBTagElectro" +Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) +Me.CBTagElectro.TabIndex = 207 +Me.CBTagElectro.Text = "Electro" +Me.CBTagElectro.UseVisualStyleBackColor = true +' +'CBTagHotWax +' +Me.CBTagHotWax.AutoSize = true +Me.CBTagHotWax.Enabled = false +Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black +Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) +Me.CBTagHotWax.Name = "CBTagHotWax" +Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) +Me.CBTagHotWax.TabIndex = 213 +Me.CBTagHotWax.Text = "Hot Wax" +Me.CBTagHotWax.UseVisualStyleBackColor = true +' +'CBTagClamps +' +Me.CBTagClamps.AutoSize = true +Me.CBTagClamps.Enabled = false +Me.CBTagClamps.ForeColor = System.Drawing.Color.Black +Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) +Me.CBTagClamps.Name = "CBTagClamps" +Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) +Me.CBTagClamps.TabIndex = 210 +Me.CBTagClamps.Text = "Clamps" +Me.CBTagClamps.UseVisualStyleBackColor = true +' +'CBTagStrapon +' +Me.CBTagStrapon.AutoSize = true +Me.CBTagStrapon.Enabled = false +Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black +Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) +Me.CBTagStrapon.Name = "CBTagStrapon" +Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) +Me.CBTagStrapon.TabIndex = 205 +Me.CBTagStrapon.Text = "Strap-on" +Me.CBTagStrapon.UseVisualStyleBackColor = true +' +'CBTagSpanking +' +Me.CBTagSpanking.AutoSize = true +Me.CBTagSpanking.Enabled = false +Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black +Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) +Me.CBTagSpanking.Name = "CBTagSpanking" +Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) +Me.CBTagSpanking.TabIndex = 206 +Me.CBTagSpanking.Text = "Spanking" +Me.CBTagSpanking.UseVisualStyleBackColor = true +' +'CBTagNeedles +' +Me.CBTagNeedles.AutoSize = true +Me.CBTagNeedles.Enabled = false +Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black +Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) +Me.CBTagNeedles.Name = "CBTagNeedles" +Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) +Me.CBTagNeedles.TabIndex = 209 +Me.CBTagNeedles.Text = "Needles" +Me.CBTagNeedles.UseVisualStyleBackColor = true +' +'GroupBox50 +' +Me.GroupBox50.Controls.Add(Me.CBTagRimming) +Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) +Me.GroupBox50.Controls.Add(Me.CBTagMissionary) +Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) +Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagFingering) +Me.GroupBox50.Controls.Add(Me.CBTagGangbang) +Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) +Me.GroupBox50.Controls.Add(Me.CBTagDP) +Me.GroupBox50.Controls.Add(Me.CBTagHandjob) +Me.GroupBox50.Controls.Add(Me.CBTagStanding) +Me.GroupBox50.Controls.Add(Me.CBTagFootjob) +Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) +Me.GroupBox50.Controls.Add(Me.CBTagTitjob) +Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) +Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) +Me.GroupBox50.Location = New System.Drawing.Point(119, 37) +Me.GroupBox50.Name = "GroupBox50" +Me.GroupBox50.Size = New System.Drawing.Size(105, 358) +Me.GroupBox50.TabIndex = 237 +Me.GroupBox50.TabStop = false +Me.GroupBox50.Text = "Sex" +' +'CBTagRimming +' +Me.CBTagRimming.AutoSize = true +Me.CBTagRimming.Enabled = false +Me.CBTagRimming.ForeColor = System.Drawing.Color.Black +Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) +Me.CBTagRimming.Name = "CBTagRimming" +Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) +Me.CBTagRimming.TabIndex = 219 +Me.CBTagRimming.Text = "Rimming" +Me.CBTagRimming.UseVisualStyleBackColor = true +' +'CBTagFacesitting +' +Me.CBTagFacesitting.AutoSize = true +Me.CBTagFacesitting.Enabled = false +Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black +Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) +Me.CBTagFacesitting.Name = "CBTagFacesitting" +Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) +Me.CBTagFacesitting.TabIndex = 226 +Me.CBTagFacesitting.Text = "Facesitting" +Me.CBTagFacesitting.UseVisualStyleBackColor = true +' +'CBTagMissionary +' +Me.CBTagMissionary.AutoSize = true +Me.CBTagMissionary.Enabled = false +Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black +Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) +Me.CBTagMissionary.Name = "CBTagMissionary" +Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) +Me.CBTagMissionary.TabIndex = 208 +Me.CBTagMissionary.Text = "Missionary" +Me.CBTagMissionary.UseVisualStyleBackColor = true +' +'CBTagMasturbation +' +Me.CBTagMasturbation.AutoSize = true +Me.CBTagMasturbation.Enabled = false +Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) +Me.CBTagMasturbation.Name = "CBTagMasturbation" +Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbation.TabIndex = 203 +Me.CBTagMasturbation.Text = "Masturbation" +Me.CBTagMasturbation.UseVisualStyleBackColor = true +' +'CBTagRCowgirl +' +Me.CBTagRCowgirl.AutoSize = true +Me.CBTagRCowgirl.Enabled = false +Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) +Me.CBTagRCowgirl.Name = "CBTagRCowgirl" +Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) +Me.CBTagRCowgirl.TabIndex = 218 +Me.CBTagRCowgirl.Text = "R. Cowgirl" +Me.CBTagRCowgirl.UseVisualStyleBackColor = true +' +'CBTagFingering +' +Me.CBTagFingering.AutoSize = true +Me.CBTagFingering.Enabled = false +Me.CBTagFingering.ForeColor = System.Drawing.Color.Black +Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) +Me.CBTagFingering.Name = "CBTagFingering" +Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) +Me.CBTagFingering.TabIndex = 204 +Me.CBTagFingering.Text = "Fingering" +Me.CBTagFingering.UseVisualStyleBackColor = true +' +'CBTagGangbang +' +Me.CBTagGangbang.AutoSize = true +Me.CBTagGangbang.Enabled = false +Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black +Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) +Me.CBTagGangbang.Name = "CBTagGangbang" +Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) +Me.CBTagGangbang.TabIndex = 217 +Me.CBTagGangbang.Text = "Gangbang" +Me.CBTagGangbang.UseVisualStyleBackColor = true +' +'CBTagBlowjob +' +Me.CBTagBlowjob.AutoSize = true +Me.CBTagBlowjob.Enabled = false +Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) +Me.CBTagBlowjob.Name = "CBTagBlowjob" +Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBTagBlowjob.TabIndex = 205 +Me.CBTagBlowjob.Text = "Blowjob" +Me.CBTagBlowjob.UseVisualStyleBackColor = true +' +'CBTagDP +' +Me.CBTagDP.AutoSize = true +Me.CBTagDP.Enabled = false +Me.CBTagDP.ForeColor = System.Drawing.Color.Black +Me.CBTagDP.Location = New System.Drawing.Point(15, 317) +Me.CBTagDP.Name = "CBTagDP" +Me.CBTagDP.Size = New System.Drawing.Size(41, 17) +Me.CBTagDP.TabIndex = 216 +Me.CBTagDP.Text = "DP" +Me.CBTagDP.UseVisualStyleBackColor = true +' +'CBTagHandjob +' +Me.CBTagHandjob.AutoSize = true +Me.CBTagHandjob.Enabled = false +Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black +Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) +Me.CBTagHandjob.Name = "CBTagHandjob" +Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) +Me.CBTagHandjob.TabIndex = 206 +Me.CBTagHandjob.Text = "Handjob" +Me.CBTagHandjob.UseVisualStyleBackColor = true +' +'CBTagStanding +' +Me.CBTagStanding.AutoSize = true +Me.CBTagStanding.Enabled = false +Me.CBTagStanding.ForeColor = System.Drawing.Color.Black +Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) +Me.CBTagStanding.Name = "CBTagStanding" +Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) +Me.CBTagStanding.TabIndex = 215 +Me.CBTagStanding.Text = "Standing" +Me.CBTagStanding.UseVisualStyleBackColor = true +' +'CBTagFootjob +' +Me.CBTagFootjob.AutoSize = true +Me.CBTagFootjob.Enabled = false +Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black +Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) +Me.CBTagFootjob.Name = "CBTagFootjob" +Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) +Me.CBTagFootjob.TabIndex = 207 +Me.CBTagFootjob.Text = "Footjob" +Me.CBTagFootjob.UseVisualStyleBackColor = true +' +'CBTagCowgirl +' +Me.CBTagCowgirl.AutoSize = true +Me.CBTagCowgirl.Enabled = false +Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) +Me.CBTagCowgirl.Name = "CBTagCowgirl" +Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) +Me.CBTagCowgirl.TabIndex = 214 +Me.CBTagCowgirl.Text = "Cowgirl" +Me.CBTagCowgirl.UseVisualStyleBackColor = true +' +'CBTagDoggyStyle +' +Me.CBTagDoggyStyle.AutoSize = true +Me.CBTagDoggyStyle.Enabled = false +Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black +Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) +Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" +Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) +Me.CBTagDoggyStyle.TabIndex = 209 +Me.CBTagDoggyStyle.Text = "Doggy Style" +Me.CBTagDoggyStyle.UseVisualStyleBackColor = true +' +'CBTagTitjob +' +Me.CBTagTitjob.AutoSize = true +Me.CBTagTitjob.Enabled = false +Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black +Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) +Me.CBTagTitjob.Name = "CBTagTitjob" +Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) +Me.CBTagTitjob.TabIndex = 213 +Me.CBTagTitjob.Text = "Titjob" +Me.CBTagTitjob.UseVisualStyleBackColor = true +' +'CBTagCunnilingus +' +Me.CBTagCunnilingus.AutoSize = true +Me.CBTagCunnilingus.Enabled = false +Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black +Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) +Me.CBTagCunnilingus.Name = "CBTagCunnilingus" +Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) +Me.CBTagCunnilingus.TabIndex = 210 +Me.CBTagCunnilingus.Text = "Cunnilingus" +Me.CBTagCunnilingus.UseVisualStyleBackColor = true +' +'CBTagAnalSex +' +Me.CBTagAnalSex.AutoSize = true +Me.CBTagAnalSex.Enabled = false +Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) +Me.CBTagAnalSex.Name = "CBTagAnalSex" +Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalSex.TabIndex = 212 +Me.CBTagAnalSex.Text = "Anal Sex" +Me.CBTagAnalSex.UseVisualStyleBackColor = true +' +'GroupBox48 +' +Me.GroupBox48.Controls.Add(Me.CBTagArtwork) +Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) +Me.GroupBox48.Controls.Add(Me.CBTagPOV) +Me.GroupBox48.Controls.Add(Me.CBTagHardcore) +Me.GroupBox48.Controls.Add(Me.CBTagTD) +Me.GroupBox48.Controls.Add(Me.CBTagGay) +Me.GroupBox48.Controls.Add(Me.CBTagBath) +Me.GroupBox48.Controls.Add(Me.CBTagBisexual) +Me.GroupBox48.Controls.Add(Me.CBTagCFNM) +Me.GroupBox48.Controls.Add(Me.CBTagLesbian) +Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) +Me.GroupBox48.Controls.Add(Me.CBTagSM) +Me.GroupBox48.Controls.Add(Me.CBTagBondage) +Me.GroupBox48.Controls.Add(Me.CBTagSoloM) +Me.GroupBox48.Controls.Add(Me.CBTagSoloF) +Me.GroupBox48.Controls.Add(Me.CBTagChastity) +Me.GroupBox48.Controls.Add(Me.CBTagShower) +Me.GroupBox48.Location = New System.Drawing.Point(8, 37) +Me.GroupBox48.Name = "GroupBox48" +Me.GroupBox48.Size = New System.Drawing.Size(105, 358) +Me.GroupBox48.TabIndex = 235 +Me.GroupBox48.TabStop = false +Me.GroupBox48.Text = "Category" +' +'CBTagArtwork +' +Me.CBTagArtwork.AutoSize = true +Me.CBTagArtwork.Enabled = false +Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black +Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) +Me.CBTagArtwork.Name = "CBTagArtwork" +Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) +Me.CBTagArtwork.TabIndex = 225 +Me.CBTagArtwork.Text = "Artwork" +Me.CBTagArtwork.UseVisualStyleBackColor = true +' +'CBTagOutdoors +' +Me.CBTagOutdoors.AutoSize = true +Me.CBTagOutdoors.Enabled = false +Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black +Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) +Me.CBTagOutdoors.Name = "CBTagOutdoors" +Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) +Me.CBTagOutdoors.TabIndex = 219 +Me.CBTagOutdoors.Text = "Outdoors" +Me.CBTagOutdoors.UseVisualStyleBackColor = true +' +'CBTagPOV +' +Me.CBTagPOV.AutoSize = true +Me.CBTagPOV.Enabled = false +Me.CBTagPOV.ForeColor = System.Drawing.Color.Black +Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) +Me.CBTagPOV.Name = "CBTagPOV" +Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) +Me.CBTagPOV.TabIndex = 208 +Me.CBTagPOV.Text = "POV" +Me.CBTagPOV.UseVisualStyleBackColor = true +' +'CBTagHardcore +' +Me.CBTagHardcore.AutoSize = true +Me.CBTagHardcore.Enabled = false +Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black +Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) +Me.CBTagHardcore.Name = "CBTagHardcore" +Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBTagHardcore.TabIndex = 203 +Me.CBTagHardcore.Text = "Hardcore" +Me.CBTagHardcore.UseVisualStyleBackColor = true +' +'CBTagTD +' +Me.CBTagTD.AutoSize = true +Me.CBTagTD.Enabled = false +Me.CBTagTD.ForeColor = System.Drawing.Color.Black +Me.CBTagTD.Location = New System.Drawing.Point(15, 217) +Me.CBTagTD.Name = "CBTagTD" +Me.CBTagTD.Size = New System.Drawing.Size(47, 17) +Me.CBTagTD.TabIndex = 218 +Me.CBTagTD.Text = "T&&D" +Me.CBTagTD.UseVisualStyleBackColor = true +' +'CBTagGay +' +Me.CBTagGay.AutoSize = true +Me.CBTagGay.Enabled = false +Me.CBTagGay.ForeColor = System.Drawing.Color.Black +Me.CBTagGay.Location = New System.Drawing.Point(15, 57) +Me.CBTagGay.Name = "CBTagGay" +Me.CBTagGay.Size = New System.Drawing.Size(45, 17) +Me.CBTagGay.TabIndex = 204 +Me.CBTagGay.Text = "Gay" +Me.CBTagGay.UseVisualStyleBackColor = true +' +'CBTagBath +' +Me.CBTagBath.AutoSize = true +Me.CBTagBath.Enabled = false +Me.CBTagBath.ForeColor = System.Drawing.Color.Black +Me.CBTagBath.Location = New System.Drawing.Point(15, 277) +Me.CBTagBath.Name = "CBTagBath" +Me.CBTagBath.Size = New System.Drawing.Size(48, 17) +Me.CBTagBath.TabIndex = 217 +Me.CBTagBath.Text = "Bath" +Me.CBTagBath.UseVisualStyleBackColor = true +' +'CBTagBisexual +' +Me.CBTagBisexual.AutoSize = true +Me.CBTagBisexual.Enabled = false +Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black +Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) +Me.CBTagBisexual.Name = "CBTagBisexual" +Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) +Me.CBTagBisexual.TabIndex = 205 +Me.CBTagBisexual.Text = "Bisexual" +Me.CBTagBisexual.UseVisualStyleBackColor = true +' +'CBTagCFNM +' +Me.CBTagCFNM.AutoSize = true +Me.CBTagCFNM.Enabled = false +Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black +Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) +Me.CBTagCFNM.Name = "CBTagCFNM" +Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) +Me.CBTagCFNM.TabIndex = 216 +Me.CBTagCFNM.Text = "CFNM" +Me.CBTagCFNM.UseVisualStyleBackColor = true +' +'CBTagLesbian +' +Me.CBTagLesbian.AutoSize = true +Me.CBTagLesbian.Enabled = false +Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black +Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) +Me.CBTagLesbian.Name = "CBTagLesbian" +Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBTagLesbian.TabIndex = 206 +Me.CBTagLesbian.Text = "Lesbian" +Me.CBTagLesbian.UseVisualStyleBackColor = true +' +'CBTagSoloFuta +' +Me.CBTagSoloFuta.AutoSize = true +Me.CBTagSoloFuta.Enabled = false +Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) +Me.CBTagSoloFuta.Name = "CBTagSoloFuta" +Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) +Me.CBTagSoloFuta.TabIndex = 207 +Me.CBTagSoloFuta.Text = "Solo Futa" +Me.CBTagSoloFuta.UseVisualStyleBackColor = true +' +'CBTagSM +' +Me.CBTagSM.AutoSize = true +Me.CBTagSM.Enabled = false +Me.CBTagSM.ForeColor = System.Drawing.Color.Black +Me.CBTagSM.Location = New System.Drawing.Point(15, 197) +Me.CBTagSM.Name = "CBTagSM" +Me.CBTagSM.Size = New System.Drawing.Size(48, 17) +Me.CBTagSM.TabIndex = 214 +Me.CBTagSM.Text = "S&&M" +Me.CBTagSM.UseVisualStyleBackColor = true +' +'CBTagBondage +' +Me.CBTagBondage.AutoSize = true +Me.CBTagBondage.Enabled = false +Me.CBTagBondage.ForeColor = System.Drawing.Color.Black +Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) +Me.CBTagBondage.Name = "CBTagBondage" +Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) +Me.CBTagBondage.TabIndex = 209 +Me.CBTagBondage.Text = "Bondage" +Me.CBTagBondage.UseVisualStyleBackColor = true +' +'CBTagSoloM +' +Me.CBTagSoloM.AutoSize = true +Me.CBTagSoloM.Enabled = false +Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) +Me.CBTagSoloM.Name = "CBTagSoloM" +Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) +Me.CBTagSoloM.TabIndex = 213 +Me.CBTagSoloM.Text = "Solo M" +Me.CBTagSoloM.UseVisualStyleBackColor = true +' +'CBTagSoloF +' +Me.CBTagSoloF.AutoSize = true +Me.CBTagSoloF.Enabled = false +Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) +Me.CBTagSoloF.Name = "CBTagSoloF" +Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) +Me.CBTagSoloF.TabIndex = 210 +Me.CBTagSoloF.Text = "Solo F" +Me.CBTagSoloF.UseVisualStyleBackColor = true +' +'CBTagChastity +' +Me.CBTagChastity.AutoSize = true +Me.CBTagChastity.Enabled = false +Me.CBTagChastity.ForeColor = System.Drawing.Color.Black +Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) +Me.CBTagChastity.Name = "CBTagChastity" +Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) +Me.CBTagChastity.TabIndex = 212 +Me.CBTagChastity.Text = "Chastity" +Me.CBTagChastity.UseVisualStyleBackColor = true +' +'CBTagShower +' +Me.CBTagShower.AutoSize = true +Me.CBTagShower.Enabled = false +Me.CBTagShower.ForeColor = System.Drawing.Color.Black +Me.CBTagShower.Location = New System.Drawing.Point(15, 297) +Me.CBTagShower.Name = "CBTagShower" +Me.CBTagShower.Size = New System.Drawing.Size(62, 17) +Me.CBTagShower.TabIndex = 211 +Me.CBTagShower.Text = "Shower" +Me.CBTagShower.UseVisualStyleBackColor = true +' +'TBLocalTagDir +' +Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBLocalTagDir.Name = "TBLocalTagDir" +Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBLocalTagDir.TabIndex = 233 +Me.TBLocalTagDir.Text = "Enter Image Directory" +' +'BTNLocalTagPrevious +' +Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagPrevious.Enabled = false +Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" +Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagPrevious.TabIndex = 232 +Me.BTNLocalTagPrevious.Text = "<<" +Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false +' +'BTNLocalTagNext +' +Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagNext.Enabled = false +Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNLocalTagNext.Name = "BTNLocalTagNext" +Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagNext.TabIndex = 231 +Me.BTNLocalTagNext.Text = ">>" +Me.BTNLocalTagNext.UseVisualStyleBackColor = false +' +'LBLLocalTagCount +' +Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLLocalTagCount.Enabled = false +Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLLocalTagCount.Name = "LBLLocalTagCount" +Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLLocalTagCount.TabIndex = 230 +Me.LBLLocalTagCount.Text = "0/0" +Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNLocalTagSave +' +Me.BTNLocalTagSave.Enabled = false +Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNLocalTagSave.Name = "BTNLocalTagSave" +Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNLocalTagSave.TabIndex = 229 +Me.BTNLocalTagSave.Text = "Finished" +Me.BTNLocalTagSave.UseVisualStyleBackColor = true +' +'BTNLocalTagDir +' +Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNLocalTagDir.Name = "BTNLocalTagDir" +Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNLocalTagDir.TabIndex = 228 +Me.BTNLocalTagDir.Text = "1" +Me.BTNLocalTagDir.UseVisualStyleBackColor = true +' +'TabPage11 +' +Me.TabPage11.BackColor = System.Drawing.Color.Silver +Me.TabPage11.Controls.Add(Me.Panel7) +Me.TabPage11.Location = New System.Drawing.Point(4, 22) +Me.TabPage11.Name = "TabPage11" +Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage11.Size = New System.Drawing.Size(720, 448) +Me.TabPage11.TabIndex = 10 +Me.TabPage11.Text = "URL Files" +' +'Panel7 +' +Me.Panel7.BackColor = System.Drawing.Color.LightGray +Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel7.Controls.Add(Me.BTNWIContinue) +Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) +Me.Panel7.Controls.Add(Me.BTNWICancel) +Me.Panel7.Controls.Add(Me.CBWIReview) +Me.Panel7.Controls.Add(Me.BTNWIBrowse) +Me.Panel7.Controls.Add(Me.TBWIDirectory) +Me.Panel7.Controls.Add(Me.BTNWIDisliked) +Me.Panel7.Controls.Add(Me.BTNWILiked) +Me.Panel7.Controls.Add(Me.BTNWIRemove) +Me.Panel7.Controls.Add(Me.CBWISaveToDisk) +Me.Panel7.Controls.Add(Me.PictureBox5) +Me.Panel7.Controls.Add(Me.WebImageProgressBar) +Me.Panel7.Controls.Add(Me.BTNWICreateURL) +Me.Panel7.Controls.Add(Me.LBLWebImageCount) +Me.Panel7.Controls.Add(Me.BTNWISave) +Me.Panel7.Controls.Add(Me.BTNWIOpenURL) +Me.Panel7.Controls.Add(Me.BTNWIPrevious) +Me.Panel7.Controls.Add(Me.BTNWINext) +Me.Panel7.Controls.Add(Me.WebPictureBox) +Me.Panel7.Controls.Add(Me.Label71) +Me.Panel7.Location = New System.Drawing.Point(6, 6) +Me.Panel7.Name = "Panel7" +Me.Panel7.Size = New System.Drawing.Size(708, 437) +Me.Panel7.TabIndex = 91 +' +'BTNWIContinue +' +Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIContinue.Enabled = false +Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) +Me.BTNWIContinue.Name = "BTNWIContinue" +Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIContinue.TabIndex = 168 +Me.BTNWIContinue.Text = "Continue" +Me.BTNWIContinue.UseVisualStyleBackColor = false +' +'BTNWIAddandContinue +' +Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIAddandContinue.Enabled = false +Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) +Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" +Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIAddandContinue.TabIndex = 167 +Me.BTNWIAddandContinue.Text = "Add and Continue" +Me.BTNWIAddandContinue.UseVisualStyleBackColor = false +' +'BTNWICancel +' +Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray +Me.BTNWICancel.Enabled = false +Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICancel.ForeColor = System.Drawing.Color.Black +Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) +Me.BTNWICancel.Name = "BTNWICancel" +Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) +Me.BTNWICancel.TabIndex = 166 +Me.BTNWICancel.Text = "Cancel" +Me.BTNWICancel.UseVisualStyleBackColor = false +' +'CBWIReview +' +Me.CBWIReview.Location = New System.Drawing.Point(567, 69) +Me.CBWIReview.Name = "CBWIReview" +Me.CBWIReview.Size = New System.Drawing.Size(124, 30) +Me.CBWIReview.TabIndex = 165 +Me.CBWIReview.Text = "Review Each Image" +Me.CBWIReview.UseVisualStyleBackColor = true +' +'BTNWIBrowse +' +Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray +Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black +Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) +Me.BTNWIBrowse.Name = "BTNWIBrowse" +Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) +Me.BTNWIBrowse.TabIndex = 163 +Me.BTNWIBrowse.Text = "Browse" +Me.BTNWIBrowse.UseVisualStyleBackColor = false +' +'TBWIDirectory +' +Me.TBWIDirectory.BackColor = System.Drawing.Color.White +Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black +Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) +Me.TBWIDirectory.Name = "TBWIDirectory" +Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) +Me.TBWIDirectory.TabIndex = 164 +Me.TBWIDirectory.Text = "Saved Image Directory" +' +'BTNWIDisliked +' +Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray +Me.BTNWIDisliked.Enabled = false +Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black +Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) +Me.BTNWIDisliked.Name = "BTNWIDisliked" +Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) +Me.BTNWIDisliked.TabIndex = 162 +Me.BTNWIDisliked.Text = "Add to Disliked Images" +Me.BTNWIDisliked.UseVisualStyleBackColor = false +' +'BTNWILiked +' +Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray +Me.BTNWILiked.Enabled = false +Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWILiked.ForeColor = System.Drawing.Color.Black +Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) +Me.BTNWILiked.Name = "BTNWILiked" +Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) +Me.BTNWILiked.TabIndex = 161 +Me.BTNWILiked.Text = "Add to Liked Images" +Me.BTNWILiked.UseVisualStyleBackColor = false +' +'BTNWIRemove +' +Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray +Me.BTNWIRemove.Enabled = false +Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black +Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) +Me.BTNWIRemove.Name = "BTNWIRemove" +Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) +Me.BTNWIRemove.TabIndex = 160 +Me.BTNWIRemove.Text = "Remove From URL File" +Me.BTNWIRemove.UseVisualStyleBackColor = false +' +'CBWISaveToDisk +' +Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) +Me.CBWISaveToDisk.Name = "CBWISaveToDisk" +Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) +Me.CBWISaveToDisk.TabIndex = 157 +Me.CBWISaveToDisk.Text = "Save Images to Disk" +Me.CBWISaveToDisk.UseVisualStyleBackColor = true +' +'PictureBox5 +' +Me.PictureBox5.BackColor = System.Drawing.Color.LightGray +Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox5.Location = New System.Drawing.Point(9, 6) +Me.PictureBox5.Name = "PictureBox5" +Me.PictureBox5.Size = New System.Drawing.Size(160, 19) +Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox5.TabIndex = 156 +Me.PictureBox5.TabStop = false +' +'WebImageProgressBar +' +Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) +Me.WebImageProgressBar.Maximum = 2500 +Me.WebImageProgressBar.Name = "WebImageProgressBar" +Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) +Me.WebImageProgressBar.TabIndex = 155 +' +'BTNWICreateURL +' +Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black +Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) +Me.BTNWICreateURL.Name = "BTNWICreateURL" +Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWICreateURL.TabIndex = 154 +Me.BTNWICreateURL.Text = "Create URL File" +Me.BTNWICreateURL.UseVisualStyleBackColor = false +' +'LBLWebImageCount +' +Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent +Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black +Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) +Me.LBLWebImageCount.Name = "LBLWebImageCount" +Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) +Me.LBLWebImageCount.TabIndex = 153 +Me.LBLWebImageCount.Text = "0/0" +Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNWISave +' +Me.BTNWISave.BackColor = System.Drawing.Color.LightGray +Me.BTNWISave.Enabled = false +Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWISave.ForeColor = System.Drawing.Color.Black +Me.BTNWISave.Location = New System.Drawing.Point(567, 401) +Me.BTNWISave.Name = "BTNWISave" +Me.BTNWISave.Size = New System.Drawing.Size(131, 24) +Me.BTNWISave.TabIndex = 152 +Me.BTNWISave.Text = "Save Image to Disk" +Me.BTNWISave.UseVisualStyleBackColor = false +' +'BTNWIOpenURL +' +Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black +Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) +Me.BTNWIOpenURL.Name = "BTNWIOpenURL" +Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWIOpenURL.TabIndex = 151 +Me.BTNWIOpenURL.Text = "Open URL File" +Me.BTNWIOpenURL.UseVisualStyleBackColor = false +' +'BTNWIPrevious +' +Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNWIPrevious.Enabled = false +Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) +Me.BTNWIPrevious.Name = "BTNWIPrevious" +Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNWIPrevious.TabIndex = 149 +Me.BTNWIPrevious.Text = "<<" +Me.BTNWIPrevious.UseVisualStyleBackColor = false +' +'BTNWINext +' +Me.BTNWINext.BackColor = System.Drawing.Color.LightGray +Me.BTNWINext.Enabled = false +Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWINext.ForeColor = System.Drawing.Color.Black +Me.BTNWINext.Location = New System.Drawing.Point(651, 282) +Me.BTNWINext.Name = "BTNWINext" +Me.BTNWINext.Size = New System.Drawing.Size(47, 24) +Me.BTNWINext.TabIndex = 150 +Me.BTNWINext.Text = ">>" +Me.BTNWINext.UseVisualStyleBackColor = false +' +'WebPictureBox +' +Me.WebPictureBox.BackColor = System.Drawing.Color.Black +Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) +Me.WebPictureBox.Name = "WebPictureBox" +Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) +Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WebPictureBox.TabIndex = 148 +Me.WebPictureBox.TabStop = false +' +'Label71 +' +Me.Label71.BackColor = System.Drawing.Color.Transparent +Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label71.ForeColor = System.Drawing.Color.Black +Me.Label71.Location = New System.Drawing.Point(7, 6) +Me.Label71.Name = "Label71" +Me.Label71.Size = New System.Drawing.Size(692, 21) +Me.Label71.TabIndex = 48 +Me.Label71.Text = "URL Files" +Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TpVideoSettings +' +Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver +Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) +Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) +Me.TpVideoSettings.Name = "TpVideoSettings" +Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) +Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) +Me.TpVideoSettings.TabIndex = 2 +Me.TpVideoSettings.Text = "Video" +' +'PnlVideoSettings +' +Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) +Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) +Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) +Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill +Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) +Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) +Me.PnlVideoSettings.Name = "PnlVideoSettings" +Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) +Me.PnlVideoSettings.TabIndex = 92 +' +'PbBannerVideoSettings +' +Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) +Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" +Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) +Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PbBannerVideoSettings.TabIndex = 151 +Me.PbBannerVideoSettings.TabStop = false +' +'BTNRefreshVideos +' +Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray +Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh +Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom +Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 +Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black +Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) +Me.BTNRefreshVideos.Name = "BTNRefreshVideos" +Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) +Me.BTNRefreshVideos.TabIndex = 149 +Me.BTNRefreshVideos.UseVisualStyleBackColor = false +' +'GbxVideoGeneralD +' +Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) +Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) +Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) +Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" +Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneralD.TabIndex = 5 +Me.GbxVideoGeneralD.TabStop = false +Me.GbxVideoGeneralD.Text = "Domme General" +' +'LblVideoGeneralTotalD +' +Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" +Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotalD.TabIndex = 3 +Me.LblVideoGeneralTotalD.Text = "0" +Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoGeneralD +' +Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" +Me.TxbVideoGeneralD.ReadOnly = true +Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.TabIndex = 2 +Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD +' +'BTNVideoGeneralD +' +Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" +Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneralD.TabIndex = 1 +Me.BTNVideoGeneralD.Text = "1" +Me.BTNVideoGeneralD.UseVisualStyleBackColor = false +' +'CBVideoGeneralD +' +Me.CBVideoGeneralD.AutoSize = true +Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD +Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneralD.Name = "CBVideoGeneralD" +Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneralD.TabIndex = 0 +Me.CBVideoGeneralD.Text = "General" +Me.CBVideoGeneralD.UseVisualStyleBackColor = true +' +'GbxVideoSpecialD +' +Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) +Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) +Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" +Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecialD.TabIndex = 4 +Me.GbxVideoSpecialD.TabStop = false +Me.GbxVideoSpecialD.Text = "Domme Special" +' +'LblVideoCHTotalD +' +Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) +Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" +Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotalD.TabIndex = 7 +Me.LblVideoCHTotalD.Text = "0" +Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LblVideoJOITotalD +' +Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" +Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotalD.TabIndex = 3 +Me.LblVideoJOITotalD.Text = "0" +Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoCHD +' +Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.Name = "TxbVideoCHD" +Me.TxbVideoCHD.ReadOnly = true +Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.TabIndex = 6 +Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD +' +'TxbVideoJOID +' +Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.Name = "TxbVideoJOID" +Me.TxbVideoJOID.ReadOnly = true +Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.TabIndex = 2 +Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID +' +'BTNVideoCHD +' +Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCHD.Name = "BTNVideoCHD" +Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCHD.TabIndex = 5 +Me.BTNVideoCHD.Text = "1" +Me.BTNVideoCHD.UseVisualStyleBackColor = false +' +'BTNVideoJOID +' +Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOID.Name = "BTNVideoJOID" +Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOID.TabIndex = 1 +Me.BTNVideoJOID.Text = "1" +Me.BTNVideoJOID.UseVisualStyleBackColor = false +' +'CBVideoJOID +' +Me.CBVideoJOID.AutoSize = true +Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID +Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOID.Name = "CBVideoJOID" +Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOID.TabIndex = 0 +Me.CBVideoJOID.Text = "JOI" +Me.CBVideoJOID.UseVisualStyleBackColor = true +' +'CBVideoCHD +' +Me.CBVideoCHD.AutoSize = true +Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD +Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black +Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCHD.Name = "CBVideoCHD" +Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCHD.TabIndex = 4 +Me.CBVideoCHD.Text = "CH" +Me.CBVideoCHD.UseVisualStyleBackColor = true +' +'GbxVideoGenreD +' +Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) +Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) +Me.GbxVideoGenreD.Name = "GbxVideoGenreD" +Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenreD.TabIndex = 3 +Me.GbxVideoGenreD.TabStop = false +Me.GbxVideoGenreD.Text = "Domme Genre" +' +'LblVideoFemsubTotalD +' +Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" +Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotalD.TabIndex = 23 +Me.LblVideoFemsubTotalD.Text = "0" +Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemsubD +' +Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" +Me.TxbVideoFemsubD.ReadOnly = true +Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.TabIndex = 22 +Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD +' +'LblVideoFemdomTotalD +' +Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" +Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotalD.TabIndex = 19 +Me.LblVideoFemdomTotalD.Text = "0" +Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemdomD +' +Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" +Me.TxbVideoFemdomD.ReadOnly = true +Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.TabIndex = 18 +Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD +' +'TxbVideoBlowjobD +' +Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" +Me.TxbVideoBlowjobD.ReadOnly = true +Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.TabIndex = 14 +Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD +' +'LblVideoBlowjobTotalD +' +Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" +Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotalD.TabIndex = 15 +Me.LblVideoBlowjobTotalD.Text = "0" +Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoLesbianD +' +Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" +Me.TxbVideoLesbianD.ReadOnly = true +Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.TabIndex = 10 +Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD +' +'TxbVideoSoftCoreD +' +Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" +Me.TxbVideoSoftCoreD.ReadOnly = true +Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.TabIndex = 6 +Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD +' +'LblVideoLesbianTotalD +' +Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" +Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotalD.TabIndex = 11 +Me.LblVideoLesbianTotalD.Text = "0" +Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoHardCoreD +' +Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" +Me.TxbVideoHardCoreD.ReadOnly = true +Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.TabIndex = 2 +Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD +' +'BTNVideoFemSubD +' +Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" +Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSubD.TabIndex = 21 +Me.BTNVideoFemSubD.Text = "1" +Me.BTNVideoFemSubD.UseVisualStyleBackColor = false +' +'LblVideoSoftCoreTotalD +' +Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" +Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotalD.TabIndex = 7 +Me.LblVideoSoftCoreTotalD.Text = "0" +Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoFemDomD +' +Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" +Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDomD.TabIndex = 17 +Me.BTNVideoFemDomD.Text = "1" +Me.BTNVideoFemDomD.UseVisualStyleBackColor = false +' +'BTNVideoBlowjobD +' +Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" +Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjobD.TabIndex = 13 +Me.BTNVideoBlowjobD.Text = "1" +Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false +' +'LblVideoHardCoreTotalD +' +Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" +Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotalD.TabIndex = 3 +Me.LblVideoHardCoreTotalD.Text = "0" +Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoLesbianD +' +Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" +Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbianD.TabIndex = 9 +Me.BTNVideoLesbianD.Text = "1" +Me.BTNVideoLesbianD.UseVisualStyleBackColor = false +' +'BTNVideoSoftCoreD +' +Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" +Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCoreD.TabIndex = 5 +Me.BTNVideoSoftCoreD.Text = "1" +Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false +' +'BTNVideoHardCoreD +' +Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" +Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCoreD.TabIndex = 1 +Me.BTNVideoHardCoreD.Text = "1" +Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false +' +'CBVideoHardcoreD +' +Me.CBVideoHardcoreD.AutoSize = true +Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD +Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" +Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcoreD.TabIndex = 0 +Me.CBVideoHardcoreD.Text = "Hardcore" +Me.CBVideoHardcoreD.UseVisualStyleBackColor = true +' +'CBVideoSoftCoreD +' +Me.CBVideoSoftCoreD.AutoSize = true +Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD +Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" +Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCoreD.TabIndex = 4 +Me.CBVideoSoftCoreD.Text = "Softcore" +Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true +' +'CBVideoLesbianD +' +Me.CBVideoLesbianD.AutoSize = true +Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD +Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbianD.Name = "CBVideoLesbianD" +Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbianD.TabIndex = 8 +Me.CBVideoLesbianD.Text = "Lesbian" +Me.CBVideoLesbianD.UseVisualStyleBackColor = true +' +'CBVideoBlowjobD +' +Me.CBVideoBlowjobD.AutoSize = true +Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD +Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" +Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjobD.TabIndex = 12 +Me.CBVideoBlowjobD.Text = "Blowjob" +Me.CBVideoBlowjobD.UseVisualStyleBackColor = true +' +'CBVideoFemsubD +' +Me.CBVideoFemsubD.AutoSize = true +Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD +Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsubD.Name = "CBVideoFemsubD" +Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsubD.TabIndex = 20 +Me.CBVideoFemsubD.Text = "Femsub" +Me.CBVideoFemsubD.UseVisualStyleBackColor = true +' +'CBVideoFemdomD +' +Me.CBVideoFemdomD.AutoSize = true +Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD +Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdomD.Name = "CBVideoFemdomD" +Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdomD.TabIndex = 16 +Me.CBVideoFemdomD.Text = "Femdom" +Me.CBVideoFemdomD.UseVisualStyleBackColor = true +' +'GbxVideoDescription +' +Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) +Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black +Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) +Me.GbxVideoDescription.Name = "GbxVideoDescription" +Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) +Me.GbxVideoDescription.TabIndex = 6 +Me.GbxVideoDescription.TabStop = false +Me.GbxVideoDescription.Text = "Description" +' +'VideoDescriptionLabel +' +Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent +Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black +Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) +Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" +Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) +Me.VideoDescriptionLabel.TabIndex = 62 +Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ + "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ + "using as your domme." +Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GbxVideoGeneral +' +Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) +Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) +Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) +Me.GbxVideoGeneral.Name = "GbxVideoGeneral" +Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneral.TabIndex = 2 +Me.GbxVideoGeneral.TabStop = false +Me.GbxVideoGeneral.Text = "General" +' +'LblVideoGeneralTotal +' +Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" +Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotal.TabIndex = 3 +Me.LblVideoGeneralTotal.Text = "0" +Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoGeneral +' +Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.Name = "TxbVideoGeneral" +Me.TxbVideoGeneral.ReadOnly = true +Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.TabIndex = 2 +Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral +' +'BTNVideoGeneral +' +Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneral.Name = "BTNVideoGeneral" +Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneral.TabIndex = 1 +Me.BTNVideoGeneral.Text = "1" +Me.BTNVideoGeneral.UseVisualStyleBackColor = false +' +'CBVideoGeneral +' +Me.CBVideoGeneral.AutoSize = true +Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral +Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneral.Name = "CBVideoGeneral" +Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneral.TabIndex = 0 +Me.CBVideoGeneral.Text = "General" +Me.CBVideoGeneral.UseVisualStyleBackColor = true +' +'GbxVideoSpecial +' +Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) +Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) +Me.GbxVideoSpecial.Name = "GbxVideoSpecial" +Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecial.TabIndex = 1 +Me.GbxVideoSpecial.TabStop = false +Me.GbxVideoSpecial.Text = "Special" +' +'LblVideoCHTotal +' +Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) +Me.LblVideoCHTotal.Name = "LblVideoCHTotal" +Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotal.TabIndex = 7 +Me.LblVideoCHTotal.Text = "0" +Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LblVideoJOITotal +' +Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) +Me.LblVideoJOITotal.Name = "LblVideoJOITotal" +Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotal.TabIndex = 3 +Me.LblVideoJOITotal.Text = "0" +Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoCH +' +Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.Name = "TxbVideoCH" +Me.TxbVideoCH.ReadOnly = true +Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.TabIndex = 6 +Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH +' +'TxbVideoJOI +' +Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.Name = "TxbVideoJOI" +Me.TxbVideoJOI.ReadOnly = true +Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.TabIndex = 2 +Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI +' +'BTNVideoCH +' +Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCH.Name = "BTNVideoCH" +Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCH.TabIndex = 5 +Me.BTNVideoCH.Text = "1" +Me.BTNVideoCH.UseVisualStyleBackColor = false +' +'BTNVideoJOI +' +Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOI.Name = "BTNVideoJOI" +Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOI.TabIndex = 1 +Me.BTNVideoJOI.Text = "1" +Me.BTNVideoJOI.UseVisualStyleBackColor = false +' +'CBVideoJOI +' +Me.CBVideoJOI.AutoSize = true +Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI +Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOI.Name = "CBVideoJOI" +Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOI.TabIndex = 0 +Me.CBVideoJOI.Text = "JOI" +Me.CBVideoJOI.UseVisualStyleBackColor = true +' +'CBVideoCH +' +Me.CBVideoCH.AutoSize = true +Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH +Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCH.ForeColor = System.Drawing.Color.Black +Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCH.Name = "CBVideoCH" +Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCH.TabIndex = 4 +Me.CBVideoCH.Text = "CH" +Me.CBVideoCH.UseVisualStyleBackColor = true +' +'GbxVideoGenre +' +Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) +Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) +Me.GbxVideoGenre.Name = "GbxVideoGenre" +Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenre.TabIndex = 0 +Me.GbxVideoGenre.TabStop = false +Me.GbxVideoGenre.Text = "Genre" +' +'LblVideoFemsubTotal +' +Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" +Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotal.TabIndex = 23 +Me.LblVideoFemsubTotal.Text = "0" +Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemsub +' +Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.Name = "TxbVideoFemsub" +Me.TxbVideoFemsub.ReadOnly = true +Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.TabIndex = 22 +Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub +' +'LblVideoFemdomTotal +' +Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" +Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotal.TabIndex = 19 +Me.LblVideoFemdomTotal.Text = "0" +Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemdom +' +Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.Name = "TxbVideoFemdom" +Me.TxbVideoFemdom.ReadOnly = true +Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.TabIndex = 18 +Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom +' +'TxbVideoBlowjob +' +Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" +Me.TxbVideoBlowjob.ReadOnly = true +Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.TabIndex = 14 +Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob +' +'LblVideoBlowjobTotal +' +Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" +Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotal.TabIndex = 15 +Me.LblVideoBlowjobTotal.Text = "0" +Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoLesbian +' +Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.Name = "TxbVideoLesbian" +Me.TxbVideoLesbian.ReadOnly = true +Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.TabIndex = 10 +Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian +' +'TxbVideoSoftCore +' +Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" +Me.TxbVideoSoftCore.ReadOnly = true +Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.TabIndex = 6 +Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore +' +'LblVideoLesbianTotal +' +Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" +Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotal.TabIndex = 11 +Me.LblVideoLesbianTotal.Text = "0" +Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoHardCore +' +Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.Name = "TxbVideoHardCore" +Me.TxbVideoHardCore.ReadOnly = true +Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.TabIndex = 2 +Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore +' +'BTNVideoFemSub +' +Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSub.Name = "BTNVideoFemSub" +Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSub.TabIndex = 21 +Me.BTNVideoFemSub.Text = "1" +Me.BTNVideoFemSub.UseVisualStyleBackColor = false +' +'LblVideoSoftCoreTotal +' +Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" +Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotal.TabIndex = 7 +Me.LblVideoSoftCoreTotal.Text = "0" +Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoFemDom +' +Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDom.Name = "BTNVideoFemDom" +Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDom.TabIndex = 17 +Me.BTNVideoFemDom.Text = "1" +Me.BTNVideoFemDom.UseVisualStyleBackColor = false +' +'BTNVideoBlowjob +' +Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" +Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjob.TabIndex = 13 +Me.BTNVideoBlowjob.Text = "1" +Me.BTNVideoBlowjob.UseVisualStyleBackColor = false +' +'LblVideoHardCoreTotal +' +Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" +Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotal.TabIndex = 3 +Me.LblVideoHardCoreTotal.Text = "0" +Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoLesbian +' +Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbian.Name = "BTNVideoLesbian" +Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbian.TabIndex = 9 +Me.BTNVideoLesbian.Text = "1" +Me.BTNVideoLesbian.UseVisualStyleBackColor = false +' +'BTNVideoSoftCore +' +Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" +Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCore.TabIndex = 5 +Me.BTNVideoSoftCore.Text = "1" +Me.BTNVideoSoftCore.UseVisualStyleBackColor = false +' +'BTNVideoHardCore +' +Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCore.Name = "BTNVideoHardCore" +Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCore.TabIndex = 1 +Me.BTNVideoHardCore.Text = "1" +Me.BTNVideoHardCore.UseVisualStyleBackColor = false +' +'CBVideoHardcore +' +Me.CBVideoHardcore.AutoSize = true +Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore +Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcore.Name = "CBVideoHardcore" +Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcore.TabIndex = 0 +Me.CBVideoHardcore.Text = "Hardcore" +Me.CBVideoHardcore.UseVisualStyleBackColor = true +' +'CBVideoSoftCore +' +Me.CBVideoSoftCore.AutoSize = true +Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore +Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCore.Name = "CBVideoSoftCore" +Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCore.TabIndex = 4 +Me.CBVideoSoftCore.Text = "Softcore" +Me.CBVideoSoftCore.UseVisualStyleBackColor = true +' +'CBVideoLesbian +' +Me.CBVideoLesbian.AutoSize = true +Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian +Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbian.Name = "CBVideoLesbian" +Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbian.TabIndex = 8 +Me.CBVideoLesbian.Text = "Lesbian" +Me.CBVideoLesbian.UseVisualStyleBackColor = true +' +'CBVideoBlowjob +' +Me.CBVideoBlowjob.AutoSize = true +Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob +Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjob.Name = "CBVideoBlowjob" +Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjob.TabIndex = 12 +Me.CBVideoBlowjob.Text = "Blowjob" +Me.CBVideoBlowjob.UseVisualStyleBackColor = true +' +'CBVideoFemsub +' +Me.CBVideoFemsub.AutoSize = true +Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub +Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsub.Name = "CBVideoFemsub" +Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsub.TabIndex = 20 +Me.CBVideoFemsub.Text = "Femsub" +Me.CBVideoFemsub.UseVisualStyleBackColor = true +' +'CBVideoFemdom +' +Me.CBVideoFemdom.AutoSize = true +Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom +Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdom.Name = "CBVideoFemdom" +Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdom.TabIndex = 16 +Me.CBVideoFemdom.Text = "Femdom" +Me.CBVideoFemdom.UseVisualStyleBackColor = true +' +'LblVideoHeader +' +Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black +Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) +Me.LblVideoHeader.Name = "LblVideoHeader" +Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) +Me.LblVideoHeader.TabIndex = 49 +Me.LblVideoHeader.Text = "Video Settings" +Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage20 +' +Me.TabPage20.BackColor = System.Drawing.Color.Silver +Me.TabPage20.Controls.Add(Me.TabControl1) +Me.TabPage20.Location = New System.Drawing.Point(4, 22) +Me.TabPage20.Name = "TabPage20" +Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage20.Size = New System.Drawing.Size(720, 448) +Me.TabPage20.TabIndex = 16 +Me.TabPage20.Text = "Apps" +' +'TabControl1 +' +Me.TabControl1.Controls.Add(Me.TabPage22) +Me.TabControl1.Controls.Add(Me.TpGames) +Me.TabControl1.Controls.Add(Me.TabPage6) +Me.TabControl1.Location = New System.Drawing.Point(6, 6) +Me.TabControl1.Name = "TabControl1" +Me.TabControl1.SelectedIndex = 0 +Me.TabControl1.Size = New System.Drawing.Size(708, 437) +Me.TabControl1.TabIndex = 0 +' +'TabPage22 +' +Me.TabPage22.BackColor = System.Drawing.Color.LightGray +Me.TabPage22.Controls.Add(Me.PNLGlitter) +Me.TabPage22.Location = New System.Drawing.Point(4, 22) +Me.TabPage22.Name = "TabPage22" +Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage22.Size = New System.Drawing.Size(700, 411) +Me.TabPage22.TabIndex = 0 +Me.TabPage22.Text = "Glitter" +' +'PNLGlitter +' +Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray +Me.PNLGlitter.Controls.Add(Me.Button15) +Me.PNLGlitter.Controls.Add(Me.Button16) +Me.PNLGlitter.Controls.Add(Me.Label121) +Me.PNLGlitter.Controls.Add(Me.Label122) +Me.PNLGlitter.Controls.Add(Me.GBGlitterD) +Me.PNLGlitter.Controls.Add(Me.GBGlitter1) +Me.PNLGlitter.Controls.Add(Me.GBGlitter3) +Me.PNLGlitter.Controls.Add(Me.GBGlitter2) +Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) +Me.PNLGlitter.Name = "PNLGlitter" +Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) +Me.PNLGlitter.TabIndex = 91 +' +'Button15 +' +Me.Button15.BackColor = System.Drawing.Color.LightGray +Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button15.FlatAppearance.BorderSize = 0 +Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button15.ForeColor = System.Drawing.Color.Black +Me.Button15.Location = New System.Drawing.Point(670, 366) +Me.Button15.Name = "Button15" +Me.Button15.Size = New System.Drawing.Size(30, 26) +Me.Button15.TabIndex = 163 +Me.Button15.UseVisualStyleBackColor = false +' +'Button16 +' +Me.Button16.BackColor = System.Drawing.Color.LightGray +Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button16.FlatAppearance.BorderSize = 0 +Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button16.ForeColor = System.Drawing.Color.Black +Me.Button16.Location = New System.Drawing.Point(667, 324) +Me.Button16.Name = "Button16" +Me.Button16.Size = New System.Drawing.Size(30, 26) +Me.Button16.TabIndex = 164 +Me.Button16.UseVisualStyleBackColor = false +' +'Label121 +' +Me.Label121.AutoSize = true +Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label121.ForeColor = System.Drawing.Color.Black +Me.Label121.Location = New System.Drawing.Point(669, 352) +Me.Label121.Name = "Label121" +Me.Label121.Size = New System.Drawing.Size(27, 13) +Me.Label121.TabIndex = 166 +Me.Label121.Text = "load" +Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label122 +' +Me.Label122.AutoSize = true +Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label122.ForeColor = System.Drawing.Color.Black +Me.Label122.Location = New System.Drawing.Point(667, 313) +Me.Label122.Name = "Label122" +Me.Label122.Size = New System.Drawing.Size(30, 13) +Me.Label122.TabIndex = 165 +Me.Label122.Text = "save" +Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GBGlitterD +' +Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray +Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) +Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom2) +Me.GBGlitterD.Controls.Add(Me.GlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom1) +Me.GBGlitterD.Controls.Add(Me.CBDaily) +Me.GBGlitterD.Controls.Add(Me.CBTrivia) +Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) +Me.GBGlitterD.Controls.Add(Me.CBEgotist) +Me.GBGlitterD.Controls.Add(Me.CBTease) +Me.GBGlitterD.Controls.Add(Me.GlitterAV) +Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) +Me.GBGlitterD.Name = "GBGlitterD" +Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) +Me.GBGlitterD.TabIndex = 162 +Me.GBGlitterD.TabStop = false +Me.GBGlitterD.Text = "Domme" +' +'GrbGlitterfeed +' +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) +Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) +Me.GrbGlitterfeed.Name = "GrbGlitterfeed" +Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) +Me.GrbGlitterfeed.TabIndex = 168 +Me.GrbGlitterfeed.TabStop = false +Me.GrbGlitterfeed.Text = "Glitterfeeds" +' +'CBGlitterFeedScripts +' +Me.CBGlitterFeedScripts.AutoSize = true +Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent +Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts +Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) +Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) +Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" +Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) +Me.CBGlitterFeedScripts.TabIndex = 146 +Me.CBGlitterFeedScripts.Text = "Scripts" +Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false +' +'CBGlitterFeed +' +Me.CBGlitterFeed.AutoSize = true +Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed +Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) +Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) +Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) +Me.CBGlitterFeed.Name = "CBGlitterFeed" +Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeed.TabIndex = 145 +Me.CBGlitterFeed.Text = "On" +Me.CBGlitterFeed.UseVisualStyleBackColor = true +' +'CBGlitterFeedOff +' +Me.CBGlitterFeedOff.AutoSize = true +Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff +Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) +Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) +Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" +Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeedOff.TabIndex = 147 +Me.CBGlitterFeedOff.TabStop = true +Me.CBGlitterFeedOff.Text = "Off" +Me.CBGlitterFeedOff.UseVisualStyleBackColor = true +' +'BTNGlitterD +' +Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black +Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitterD.Name = "BTNGlitterD" +Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitterD.TabIndex = 166 +Me.BTNGlitterD.Text = "Choose Name Color" +Me.BTNGlitterD.UseVisualStyleBackColor = false +' +'LBLGlitterNCDomme +' +Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White +Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor +Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" +Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNCDomme.TabIndex = 163 +Me.LBLGlitterNCDomme.Text = "Preview" +Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider +' +Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider.Name = "LBLGlitterSlider" +Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider.TabIndex = 162 +Me.LBLGlitterSlider.Text = "Post Frequency" +Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBCustom2 +' +Me.CBCustom2.AutoSize = true +Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 +Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom2.ForeColor = System.Drawing.Color.Black +Me.CBCustom2.Location = New System.Drawing.Point(149, 121) +Me.CBCustom2.Name = "CBCustom2" +Me.CBCustom2.Size = New System.Drawing.Size(70, 17) +Me.CBCustom2.TabIndex = 161 +Me.CBCustom2.Text = "Custom 2" +Me.CBCustom2.UseVisualStyleBackColor = true +' +'GlitterSlider +' +Me.GlitterSlider.AutoSize = false +Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider.LargeChange = 1 +Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider.Maximum = 9 +Me.GlitterSlider.Minimum = 1 +Me.GlitterSlider.Name = "GlitterSlider" +Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider.TabIndex = 160 +Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider +' +'CBCustom1 +' +Me.CBCustom1.AutoSize = true +Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 +Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom1.ForeColor = System.Drawing.Color.Black +Me.CBCustom1.Location = New System.Drawing.Point(149, 98) +Me.CBCustom1.Name = "CBCustom1" +Me.CBCustom1.Size = New System.Drawing.Size(70, 17) +Me.CBCustom1.TabIndex = 157 +Me.CBCustom1.Text = "Custom 1" +Me.CBCustom1.UseVisualStyleBackColor = true +' +'CBDaily +' +Me.CBDaily.AutoSize = true +Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily +Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBDaily.ForeColor = System.Drawing.Color.Black +Me.CBDaily.Location = New System.Drawing.Point(79, 121) +Me.CBDaily.Name = "CBDaily" +Me.CBDaily.Size = New System.Drawing.Size(49, 17) +Me.CBDaily.TabIndex = 156 +Me.CBDaily.Text = "Daily" +Me.CBDaily.UseVisualStyleBackColor = true +' +'CBTrivia +' +Me.CBTrivia.AutoSize = true +Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia +Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTrivia.ForeColor = System.Drawing.Color.Black +Me.CBTrivia.Location = New System.Drawing.Point(79, 98) +Me.CBTrivia.Name = "CBTrivia" +Me.CBTrivia.Size = New System.Drawing.Size(52, 17) +Me.CBTrivia.TabIndex = 155 +Me.CBTrivia.Text = "Trivia" +Me.CBTrivia.UseVisualStyleBackColor = true +' +'TBGlitterShortName +' +Me.TBGlitterShortName.BackColor = System.Drawing.Color.White +Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black +Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) +Me.TBGlitterShortName.Name = "TBGlitterShortName" +Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) +Me.TBGlitterShortName.TabIndex = 49 +Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN +Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'CBEgotist +' +Me.CBEgotist.AutoSize = true +Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist +Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBEgotist.ForeColor = System.Drawing.Color.Black +Me.CBEgotist.Location = New System.Drawing.Point(9, 121) +Me.CBEgotist.Name = "CBEgotist" +Me.CBEgotist.Size = New System.Drawing.Size(58, 17) +Me.CBEgotist.TabIndex = 153 +Me.CBEgotist.Text = "Egotist" +Me.CBEgotist.UseVisualStyleBackColor = true +' +'CBTease +' +Me.CBTease.AutoSize = true +Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease +Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTease.ForeColor = System.Drawing.Color.Black +Me.CBTease.Location = New System.Drawing.Point(9, 98) +Me.CBTease.Name = "CBTease" +Me.CBTease.Size = New System.Drawing.Size(56, 17) +Me.CBTease.TabIndex = 152 +Me.CBTease.Text = "Tease" +Me.CBTease.UseVisualStyleBackColor = true +' +'GlitterAV +' +Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV.Name = "GlitterAV" +Me.GlitterAV.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV.TabIndex = 149 +Me.GlitterAV.TabStop = false +' +'GBGlitter1 +' +Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.CBGlitter1) +Me.GBGlitter1.Controls.Add(Me.TBGlitter1) +Me.GBGlitter1.Controls.Add(Me.GlitterAV1) +Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) +Me.GBGlitter1.Name = "GBGlitter1" +Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter1.TabIndex = 161 +Me.GBGlitter1.TabStop = false +Me.GBGlitter1.Text = "Contact 1" +' +'BtnContact1ImageDirClear +' +Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" +Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact1ImageDirClear.TabIndex = 181 +Me.BtnContact1ImageDirClear.Text = "Clear" +Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false +' +'BtnContact1ImageDir +' +Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" +Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact1ImageDir.TabIndex = 177 +Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" +Me.BtnContact1ImageDir.UseVisualStyleBackColor = false +' +'TbxContact1ImageDir +' +Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" +Me.TbxContact1ImageDir.ReadOnly = true +Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.TabIndex = 176 +Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir +' +'BTNGlitter1 +' +Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter1.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter1.Name = "BTNGlitter1" +Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter1.TabIndex = 175 +Me.BTNGlitter1.Text = "Choose Name Color" +Me.BTNGlitter1.UseVisualStyleBackColor = false +' +'LBLGlitterNC1 +' +Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color +Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC1.Name = "LBLGlitterNC1" +Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC1.TabIndex = 166 +Me.LBLGlitterNC1.Text = "Preview" +Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider1 +' +Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" +Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider1.TabIndex = 163 +Me.LBLGlitterSlider1.Text = "Response Frequency" +Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GlitterSlider1 +' +Me.GlitterSlider1.AutoSize = false +Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider1.LargeChange = 1 +Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider1.Maximum = 9 +Me.GlitterSlider1.Minimum = 1 +Me.GlitterSlider1.Name = "GlitterSlider1" +Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider1.TabIndex = 161 +Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider +' +'CBGlitter1 +' +Me.CBGlitter1.AutoSize = true +Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 +Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter1.ForeColor = System.Drawing.Color.Black +Me.CBGlitter1.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter1.Name = "CBGlitter1" +Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter1.TabIndex = 151 +Me.CBGlitter1.Text = "Enable This Contact" +Me.CBGlitter1.UseVisualStyleBackColor = true +' +'TBGlitter1 +' +Me.TBGlitter1.BackColor = System.Drawing.Color.White +Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter1.ForeColor = System.Drawing.Color.Black +Me.TBGlitter1.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter1.Name = "TBGlitter1" +Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter1.TabIndex = 49 +Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 +Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GlitterAV1 +' +Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV1.Name = "GlitterAV1" +Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV1.TabIndex = 149 +Me.GlitterAV1.TabStop = false +' +'GBGlitter3 +' +Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.CBGlitter3) +Me.GBGlitter3.Controls.Add(Me.TBGlitter3) +Me.GBGlitter3.Controls.Add(Me.GlitterAV3) +Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) +Me.GBGlitter3.Name = "GBGlitter3" +Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter3.TabIndex = 160 +Me.GBGlitter3.TabStop = false +Me.GBGlitter3.Text = "Contact 3" +' +'BtnContact3ImageDirClear +' +Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" +Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact3ImageDirClear.TabIndex = 180 +Me.BtnContact3ImageDirClear.Text = "Clear" +Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false +' +'BtnContact3ImageDir +' +Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" +Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact3ImageDir.TabIndex = 179 +Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" +Me.BtnContact3ImageDir.UseVisualStyleBackColor = false +' +'TbxContact3ImageDir +' +Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" +Me.TbxContact3ImageDir.ReadOnly = true +Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.TabIndex = 178 +Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir +' +'BTNGlitter3 +' +Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter3.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter3.Name = "BTNGlitter3" +Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter3.TabIndex = 175 +Me.BTNGlitter3.Text = "Choose Name Color" +Me.BTNGlitter3.UseVisualStyleBackColor = false +' +'LBLGlitterNC3 +' +Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color +Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC3.Name = "LBLGlitterNC3" +Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC3.TabIndex = 166 +Me.LBLGlitterNC3.Text = "Preview" +Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider3 +' +Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" +Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider3.TabIndex = 163 +Me.LBLGlitterSlider3.Text = "Response Frequency" +Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GlitterSlider3 +' +Me.GlitterSlider3.AutoSize = false +Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider3.LargeChange = 1 +Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider3.Maximum = 9 +Me.GlitterSlider3.Minimum = 1 +Me.GlitterSlider3.Name = "GlitterSlider3" +Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider3.TabIndex = 161 +Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider +' +'CBGlitter3 +' +Me.CBGlitter3.AutoSize = true +Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 +Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter3.ForeColor = System.Drawing.Color.Black +Me.CBGlitter3.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter3.Name = "CBGlitter3" +Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter3.TabIndex = 151 +Me.CBGlitter3.Text = "Enable This Contact" +Me.CBGlitter3.UseVisualStyleBackColor = true +' +'TBGlitter3 +' +Me.TBGlitter3.BackColor = System.Drawing.Color.White +Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter3.ForeColor = System.Drawing.Color.Black +Me.TBGlitter3.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter3.Name = "TBGlitter3" +Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter3.TabIndex = 49 +Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 +Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GlitterAV3 +' +Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV3.Name = "GlitterAV3" +Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV3.TabIndex = 149 +Me.GlitterAV3.TabStop = false +' +'GBGlitter2 +' +Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.CBGlitter2) +Me.GBGlitter2.Controls.Add(Me.TBGlitter2) +Me.GBGlitter2.Controls.Add(Me.GlitterAV2) +Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) +Me.GBGlitter2.Name = "GBGlitter2" +Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter2.TabIndex = 151 +Me.GBGlitter2.TabStop = false +Me.GBGlitter2.Text = "Contact 2" +' +'BtnContact2ImageDirClear +' +Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" +Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact2ImageDirClear.TabIndex = 181 +Me.BtnContact2ImageDirClear.Text = "Clear" +Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false +' +'BtnContact2ImageDir +' +Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" +Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact2ImageDir.TabIndex = 179 +Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" +Me.BtnContact2ImageDir.UseVisualStyleBackColor = false +' +'TbxContact2ImageDir +' +Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" +Me.TbxContact2ImageDir.ReadOnly = true +Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.TabIndex = 178 +Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir +' +'BTNGlitter2 +' +Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter2.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter2.Name = "BTNGlitter2" +Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter2.TabIndex = 167 +Me.BTNGlitter2.Text = "Choose Name Color" +Me.BTNGlitter2.UseVisualStyleBackColor = false +' +'LBLGlitterNC2 +' +Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color +Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC2.Name = "LBLGlitterNC2" +Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC2.TabIndex = 166 +Me.LBLGlitterNC2.Text = "Preview" +Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider2 +' +Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" +Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider2.TabIndex = 163 +Me.LBLGlitterSlider2.Text = "Response Frequency" +Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GlitterSlider2 +' +Me.GlitterSlider2.AutoSize = false +Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider2.LargeChange = 1 +Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider2.Maximum = 9 +Me.GlitterSlider2.Minimum = 1 +Me.GlitterSlider2.Name = "GlitterSlider2" +Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider2.TabIndex = 161 +Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider +' +'CBGlitter2 +' +Me.CBGlitter2.AutoSize = true +Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 +Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter2.ForeColor = System.Drawing.Color.Black +Me.CBGlitter2.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter2.Name = "CBGlitter2" +Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter2.TabIndex = 151 +Me.CBGlitter2.Text = "Enable This Contact" +Me.CBGlitter2.UseVisualStyleBackColor = true +' +'TBGlitter2 +' +Me.TBGlitter2.BackColor = System.Drawing.Color.White +Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter2.ForeColor = System.Drawing.Color.Black +Me.TBGlitter2.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter2.Name = "TBGlitter2" +Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter2.TabIndex = 49 +Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 +Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GlitterAV2 +' +Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV2.Name = "GlitterAV2" +Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV2.TabIndex = 149 +Me.GlitterAV2.TabStop = false +' +'TpGames +' +Me.TpGames.BackColor = System.Drawing.Color.LightGray +Me.TpGames.Controls.Add(Me.CBIncludeGifs) +Me.TpGames.Controls.Add(Me.LblCardsSetupNote) +Me.TpGames.Controls.Add(Me.CBGameSounds) +Me.TpGames.Controls.Add(Me.GbxCardsGold) +Me.TpGames.Controls.Add(Me.GbxCardsBackground) +Me.TpGames.Controls.Add(Me.GbxCardsBronze) +Me.TpGames.Controls.Add(Me.GbxCardsSilver) +Me.TpGames.Location = New System.Drawing.Point(4, 22) +Me.TpGames.Name = "TpGames" +Me.TpGames.Padding = New System.Windows.Forms.Padding(3) +Me.TpGames.Size = New System.Drawing.Size(700, 411) +Me.TpGames.TabIndex = 1 +Me.TpGames.Text = "Games" +' +'CBIncludeGifs +' +Me.CBIncludeGifs.AutoSize = true +Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs +Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) +Me.CBIncludeGifs.Name = "CBIncludeGifs" +Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) +Me.CBIncludeGifs.TabIndex = 5 +Me.CBIncludeGifs.Text = "Match Game Includes Gifs " +Me.CBIncludeGifs.UseVisualStyleBackColor = true +' +'LblCardsSetupNote +' +Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) +Me.LblCardsSetupNote.Name = "LblCardsSetupNote" +Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) +Me.LblCardsSetupNote.TabIndex = 4 +Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ + "!" +Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBGameSounds +' +Me.CBGameSounds.AutoSize = true +Me.CBGameSounds.Checked = true +Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBGameSounds.ForeColor = System.Drawing.Color.Black +Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) +Me.CBGameSounds.Name = "CBGameSounds" +Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) +Me.CBGameSounds.TabIndex = 6 +Me.CBGameSounds.Text = "Play Game Sounds" +Me.CBGameSounds.UseVisualStyleBackColor = true +' +'GbxCardsGold +' +Me.GbxCardsGold.Controls.Add(Me.GN6) +Me.GbxCardsGold.Controls.Add(Me.GP6) +Me.GbxCardsGold.Controls.Add(Me.GN2) +Me.GbxCardsGold.Controls.Add(Me.GP2) +Me.GbxCardsGold.Controls.Add(Me.GP5) +Me.GbxCardsGold.Controls.Add(Me.GN1) +Me.GbxCardsGold.Controls.Add(Me.GP1) +Me.GbxCardsGold.Controls.Add(Me.GN5) +Me.GbxCardsGold.Controls.Add(Me.GN3) +Me.GbxCardsGold.Controls.Add(Me.GP3) +Me.GbxCardsGold.Controls.Add(Me.GP4) +Me.GbxCardsGold.Controls.Add(Me.GN4) +Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) +Me.GbxCardsGold.Name = "GbxCardsGold" +Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) +Me.GbxCardsGold.TabIndex = 2 +Me.GbxCardsGold.TabStop = false +Me.GbxCardsGold.Text = "Gold Cards" +' +'GN6 +' +Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN6.Location = New System.Drawing.Point(86, 367) +Me.GN6.Name = "GN6" +Me.GN6.Size = New System.Drawing.Size(71, 20) +Me.GN6.TabIndex = 5 +Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 +Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP6 +' +Me.GP6.BackColor = System.Drawing.Color.Silver +Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 +Me.GP6.InitialImage = Nothing +Me.GP6.Location = New System.Drawing.Point(86, 268) +Me.GP6.Name = "GP6" +Me.GP6.Size = New System.Drawing.Size(71, 93) +Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP6.TabIndex = 17 +Me.GP6.TabStop = false +' +'GN2 +' +Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN2.Location = New System.Drawing.Point(86, 117) +Me.GN2.Name = "GN2" +Me.GN2.Size = New System.Drawing.Size(71, 20) +Me.GN2.TabIndex = 1 +Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 +Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP2 +' +Me.GP2.BackColor = System.Drawing.Color.Silver +Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 +Me.GP2.InitialImage = Nothing +Me.GP2.Location = New System.Drawing.Point(86, 17) +Me.GP2.Name = "GP2" +Me.GP2.Size = New System.Drawing.Size(71, 94) +Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP2.TabIndex = 9 +Me.GP2.TabStop = false +' +'GP5 +' +Me.GP5.BackColor = System.Drawing.Color.Silver +Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 +Me.GP5.InitialImage = Nothing +Me.GP5.Location = New System.Drawing.Point(9, 268) +Me.GP5.Name = "GP5" +Me.GP5.Size = New System.Drawing.Size(71, 93) +Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP5.TabIndex = 15 +Me.GP5.TabStop = false +' +'GN1 +' +Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN1.Location = New System.Drawing.Point(9, 117) +Me.GN1.Name = "GN1" +Me.GN1.Size = New System.Drawing.Size(71, 20) +Me.GN1.TabIndex = 0 +Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 +Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP1 +' +Me.GP1.BackColor = System.Drawing.Color.Silver +Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 +Me.GP1.InitialImage = Nothing +Me.GP1.Location = New System.Drawing.Point(9, 17) +Me.GP1.Name = "GP1" +Me.GP1.Size = New System.Drawing.Size(71, 94) +Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP1.TabIndex = 0 +Me.GP1.TabStop = false +' +'GN5 +' +Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN5.Location = New System.Drawing.Point(9, 367) +Me.GN5.Name = "GN5" +Me.GN5.Size = New System.Drawing.Size(71, 20) +Me.GN5.TabIndex = 4 +Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 +Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GN3 +' +Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN3.Location = New System.Drawing.Point(9, 242) +Me.GN3.Name = "GN3" +Me.GN3.Size = New System.Drawing.Size(71, 20) +Me.GN3.TabIndex = 2 +Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 +Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP3 +' +Me.GP3.BackColor = System.Drawing.Color.Silver +Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 +Me.GP3.InitialImage = Nothing +Me.GP3.Location = New System.Drawing.Point(9, 143) +Me.GP3.Name = "GP3" +Me.GP3.Size = New System.Drawing.Size(71, 93) +Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP3.TabIndex = 11 +Me.GP3.TabStop = false +' +'GP4 +' +Me.GP4.BackColor = System.Drawing.Color.Silver +Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 +Me.GP4.InitialImage = Nothing +Me.GP4.Location = New System.Drawing.Point(86, 143) +Me.GP4.Name = "GP4" +Me.GP4.Size = New System.Drawing.Size(71, 93) +Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP4.TabIndex = 13 +Me.GP4.TabStop = false +' +'GN4 +' +Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN4.Location = New System.Drawing.Point(86, 242) +Me.GN4.Name = "GN4" +Me.GN4.Size = New System.Drawing.Size(71, 20) +Me.GN4.TabIndex = 3 +Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 +Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GbxCardsBackground +' +Me.GbxCardsBackground.Controls.Add(Me.CardBack) +Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) +Me.GbxCardsBackground.Name = "GbxCardsBackground" +Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) +Me.GbxCardsBackground.TabIndex = 3 +Me.GbxCardsBackground.TabStop = false +Me.GbxCardsBackground.Text = "Card Background" +' +'CardBack +' +Me.CardBack.BackColor = System.Drawing.Color.Silver +Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack +Me.CardBack.InitialImage = Nothing +Me.CardBack.Location = New System.Drawing.Point(17, 28) +Me.CardBack.Name = "CardBack" +Me.CardBack.Size = New System.Drawing.Size(138, 179) +Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.CardBack.TabIndex = 18 +Me.CardBack.TabStop = false +' +'GbxCardsBronze +' +Me.GbxCardsBronze.Controls.Add(Me.BN6) +Me.GbxCardsBronze.Controls.Add(Me.BN3) +Me.GbxCardsBronze.Controls.Add(Me.BP3) +Me.GbxCardsBronze.Controls.Add(Me.BP6) +Me.GbxCardsBronze.Controls.Add(Me.BN2) +Me.GbxCardsBronze.Controls.Add(Me.BN5) +Me.GbxCardsBronze.Controls.Add(Me.BP5) +Me.GbxCardsBronze.Controls.Add(Me.BP2) +Me.GbxCardsBronze.Controls.Add(Me.BN1) +Me.GbxCardsBronze.Controls.Add(Me.BN4) +Me.GbxCardsBronze.Controls.Add(Me.BP4) +Me.GbxCardsBronze.Controls.Add(Me.BP1) +Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) +Me.GbxCardsBronze.Name = "GbxCardsBronze" +Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsBronze.TabIndex = 0 +Me.GbxCardsBronze.TabStop = false +Me.GbxCardsBronze.Text = "Bronze Cards" +' +'BN6 +' +Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN6.Location = New System.Drawing.Point(86, 368) +Me.BN6.Name = "BN6" +Me.BN6.Size = New System.Drawing.Size(71, 20) +Me.BN6.TabIndex = 5 +Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 +Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BN3 +' +Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN3.Location = New System.Drawing.Point(9, 243) +Me.BN3.Name = "BN3" +Me.BN3.Size = New System.Drawing.Size(71, 20) +Me.BN3.TabIndex = 2 +Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 +Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BP3 +' +Me.BP3.BackColor = System.Drawing.Color.Silver +Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 +Me.BP3.InitialImage = Nothing +Me.BP3.Location = New System.Drawing.Point(9, 144) +Me.BP3.Name = "BP3" +Me.BP3.Size = New System.Drawing.Size(71, 93) +Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP3.TabIndex = 11 +Me.BP3.TabStop = false +' +'BP6 +' +Me.BP6.BackColor = System.Drawing.Color.Silver +Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 +Me.BP6.InitialImage = Nothing +Me.BP6.Location = New System.Drawing.Point(86, 269) +Me.BP6.Name = "BP6" +Me.BP6.Size = New System.Drawing.Size(71, 93) +Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP6.TabIndex = 17 +Me.BP6.TabStop = false +' +'BN2 +' +Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN2.Location = New System.Drawing.Point(86, 118) +Me.BN2.Name = "BN2" +Me.BN2.Size = New System.Drawing.Size(71, 20) +Me.BN2.TabIndex = 1 +Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 +Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BN5 +' +Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN5.Location = New System.Drawing.Point(9, 368) +Me.BN5.Name = "BN5" +Me.BN5.Size = New System.Drawing.Size(71, 20) +Me.BN5.TabIndex = 4 +Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 +Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BP5 +' +Me.BP5.BackColor = System.Drawing.Color.Silver +Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 +Me.BP5.InitialImage = Nothing +Me.BP5.Location = New System.Drawing.Point(9, 269) +Me.BP5.Name = "BP5" +Me.BP5.Size = New System.Drawing.Size(71, 93) +Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP5.TabIndex = 15 +Me.BP5.TabStop = false +' +'BP2 +' +Me.BP2.BackColor = System.Drawing.Color.Silver +Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 +Me.BP2.InitialImage = Nothing +Me.BP2.Location = New System.Drawing.Point(86, 19) +Me.BP2.Name = "BP2" +Me.BP2.Size = New System.Drawing.Size(71, 93) +Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP2.TabIndex = 9 +Me.BP2.TabStop = false +' +'BN1 +' +Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN1.Location = New System.Drawing.Point(9, 118) +Me.BN1.Name = "BN1" +Me.BN1.Size = New System.Drawing.Size(71, 20) +Me.BN1.TabIndex = 0 +Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 +Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BN4 +' +Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN4.Location = New System.Drawing.Point(86, 243) +Me.BN4.Name = "BN4" +Me.BN4.Size = New System.Drawing.Size(71, 20) +Me.BN4.TabIndex = 3 +Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 +Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BP4 +' +Me.BP4.BackColor = System.Drawing.Color.Silver +Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 +Me.BP4.InitialImage = Nothing +Me.BP4.Location = New System.Drawing.Point(86, 144) +Me.BP4.Name = "BP4" +Me.BP4.Size = New System.Drawing.Size(71, 93) +Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP4.TabIndex = 13 +Me.BP4.TabStop = false +' +'BP1 +' +Me.BP1.BackColor = System.Drawing.Color.Silver +Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 +Me.BP1.InitialImage = Nothing +Me.BP1.Location = New System.Drawing.Point(9, 19) +Me.BP1.Name = "BP1" +Me.BP1.Size = New System.Drawing.Size(71, 93) +Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP1.TabIndex = 0 +Me.BP1.TabStop = false +Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 +' +'GbxCardsSilver +' +Me.GbxCardsSilver.Controls.Add(Me.SN6) +Me.GbxCardsSilver.Controls.Add(Me.SP6) +Me.GbxCardsSilver.Controls.Add(Me.SN2) +Me.GbxCardsSilver.Controls.Add(Me.SP2) +Me.GbxCardsSilver.Controls.Add(Me.SN1) +Me.GbxCardsSilver.Controls.Add(Me.SP5) +Me.GbxCardsSilver.Controls.Add(Me.SP1) +Me.GbxCardsSilver.Controls.Add(Me.SN5) +Me.GbxCardsSilver.Controls.Add(Me.SN3) +Me.GbxCardsSilver.Controls.Add(Me.SN4) +Me.GbxCardsSilver.Controls.Add(Me.SP3) +Me.GbxCardsSilver.Controls.Add(Me.SP4) +Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) +Me.GbxCardsSilver.Name = "GbxCardsSilver" +Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsSilver.TabIndex = 1 +Me.GbxCardsSilver.TabStop = false +Me.GbxCardsSilver.Text = "Silver Cards" +' +'SN6 +' +Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN6.Location = New System.Drawing.Point(86, 368) +Me.SN6.Name = "SN6" +Me.SN6.Size = New System.Drawing.Size(71, 20) +Me.SN6.TabIndex = 5 +Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 +Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP6 +' +Me.SP6.BackColor = System.Drawing.Color.Silver +Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 +Me.SP6.InitialImage = Nothing +Me.SP6.Location = New System.Drawing.Point(86, 269) +Me.SP6.Name = "SP6" +Me.SP6.Size = New System.Drawing.Size(71, 93) +Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP6.TabIndex = 17 +Me.SP6.TabStop = false +' +'SN2 +' +Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN2.Location = New System.Drawing.Point(86, 118) +Me.SN2.Name = "SN2" +Me.SN2.Size = New System.Drawing.Size(71, 20) +Me.SN2.TabIndex = 1 +Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 +Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP2 +' +Me.SP2.BackColor = System.Drawing.Color.Silver +Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 +Me.SP2.InitialImage = Nothing +Me.SP2.Location = New System.Drawing.Point(86, 19) +Me.SP2.Name = "SP2" +Me.SP2.Size = New System.Drawing.Size(71, 93) +Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP2.TabIndex = 9 +Me.SP2.TabStop = false +' +'SN1 +' +Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN1.Location = New System.Drawing.Point(9, 118) +Me.SN1.Name = "SN1" +Me.SN1.Size = New System.Drawing.Size(71, 20) +Me.SN1.TabIndex = 0 +Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 +Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP5 +' +Me.SP5.BackColor = System.Drawing.Color.Silver +Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 +Me.SP5.InitialImage = Nothing +Me.SP5.Location = New System.Drawing.Point(9, 269) +Me.SP5.Name = "SP5" +Me.SP5.Size = New System.Drawing.Size(71, 93) +Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP5.TabIndex = 15 +Me.SP5.TabStop = false +' +'SP1 +' +Me.SP1.BackColor = System.Drawing.Color.Silver +Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 +Me.SP1.InitialImage = Nothing +Me.SP1.Location = New System.Drawing.Point(9, 19) +Me.SP1.Name = "SP1" +Me.SP1.Size = New System.Drawing.Size(71, 93) +Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP1.TabIndex = 0 +Me.SP1.TabStop = false +' +'SN5 +' +Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN5.Location = New System.Drawing.Point(9, 368) +Me.SN5.Name = "SN5" +Me.SN5.Size = New System.Drawing.Size(71, 20) +Me.SN5.TabIndex = 4 +Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 +Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SN3 +' +Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN3.Location = New System.Drawing.Point(9, 243) +Me.SN3.Name = "SN3" +Me.SN3.Size = New System.Drawing.Size(71, 20) +Me.SN3.TabIndex = 2 +Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 +Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SN4 +' +Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN4.Location = New System.Drawing.Point(86, 243) +Me.SN4.Name = "SN4" +Me.SN4.Size = New System.Drawing.Size(71, 20) +Me.SN4.TabIndex = 3 +Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 +Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP3 +' +Me.SP3.BackColor = System.Drawing.Color.Silver +Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 +Me.SP3.InitialImage = Nothing +Me.SP3.Location = New System.Drawing.Point(9, 144) +Me.SP3.Name = "SP3" +Me.SP3.Size = New System.Drawing.Size(71, 93) +Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP3.TabIndex = 11 +Me.SP3.TabStop = false +' +'SP4 +' +Me.SP4.BackColor = System.Drawing.Color.Silver +Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 +Me.SP4.InitialImage = Nothing +Me.SP4.Location = New System.Drawing.Point(86, 144) +Me.SP4.Name = "SP4" +Me.SP4.Size = New System.Drawing.Size(71, 93) +Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP4.TabIndex = 13 +Me.SP4.TabStop = false +' +'TabPage6 +' +Me.TabPage6.BackColor = System.Drawing.Color.LightGray +Me.TabPage6.Controls.Add(Me.Panel10) +Me.TabPage6.Controls.Add(Me.Label107) +Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) +Me.TabPage6.Controls.Add(Me.Label18) +Me.TabPage6.Controls.Add(Me.PNLWishList) +Me.TabPage6.Location = New System.Drawing.Point(4, 22) +Me.TabPage6.Name = "TabPage6" +Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage6.Size = New System.Drawing.Size(700, 411) +Me.TabPage6.TabIndex = 2 +Me.TabPage6.Text = "Wishlist" +' +'Panel10 +' +Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel10.Controls.Add(Me.TBWishlistComment) +Me.Panel10.Controls.Add(Me.Label32) +Me.Panel10.Controls.Add(Me.TBWishlistItem) +Me.Panel10.Controls.Add(Me.radioGold) +Me.Panel10.Controls.Add(Me.Label42) +Me.Panel10.Controls.Add(Me.radioSilver) +Me.Panel10.Controls.Add(Me.TBWishlistURL) +Me.Panel10.Controls.Add(Me.NBWishlistCost) +Me.Panel10.Controls.Add(Me.Label48) +Me.Panel10.Controls.Add(Me.Label73) +Me.Panel10.Location = New System.Drawing.Point(38, 47) +Me.Panel10.Name = "Panel10" +Me.Panel10.Size = New System.Drawing.Size(252, 308) +Me.Panel10.TabIndex = 179 +' +'TBWishlistComment +' +Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) +Me.TBWishlistComment.Multiline = true +Me.TBWishlistComment.Name = "TBWishlistComment" +Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) +Me.TBWishlistComment.TabIndex = 172 +' +'Label32 +' +Me.Label32.AutoSize = true +Me.Label32.Location = New System.Drawing.Point(13, 4) +Me.Label32.Name = "Label32" +Me.Label32.Size = New System.Drawing.Size(58, 13) +Me.Label32.TabIndex = 167 +Me.Label32.Text = "Item Name" +' +'TBWishlistItem +' +Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) +Me.TBWishlistItem.Name = "TBWishlistItem" +Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistItem.TabIndex = 168 +' +'radioGold +' +Me.radioGold.AutoSize = true +Me.radioGold.Location = New System.Drawing.Point(167, 125) +Me.radioGold.Name = "radioGold" +Me.radioGold.Size = New System.Drawing.Size(47, 17) +Me.radioGold.TabIndex = 176 +Me.radioGold.Text = "Gold" +Me.radioGold.UseVisualStyleBackColor = true +' +'Label42 +' +Me.Label42.AutoSize = true +Me.Label42.Location = New System.Drawing.Point(13, 56) +Me.Label42.Name = "Label42" +Me.Label42.Size = New System.Drawing.Size(75, 13) +Me.Label42.TabIndex = 169 +Me.Label42.Text = "Item Image Url" +' +'radioSilver +' +Me.radioSilver.AutoSize = true +Me.radioSilver.Checked = true +Me.radioSilver.Location = New System.Drawing.Point(100, 125) +Me.radioSilver.Name = "radioSilver" +Me.radioSilver.Size = New System.Drawing.Size(51, 17) +Me.radioSilver.TabIndex = 175 +Me.radioSilver.TabStop = true +Me.radioSilver.Text = "Silver" +Me.radioSilver.UseVisualStyleBackColor = true +' +'TBWishlistURL +' +Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) +Me.TBWishlistURL.Name = "TBWishlistURL" +Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistURL.TabIndex = 170 +' +'NBWishlistCost +' +Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) +Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBWishlistCost.Name = "NBWishlistCost" +Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) +Me.NBWishlistCost.TabIndex = 174 +Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) +' +'Label48 +' +Me.Label48.AutoSize = true +Me.Label48.Location = New System.Drawing.Point(13, 157) +Me.Label48.Name = "Label48" +Me.Label48.Size = New System.Drawing.Size(74, 13) +Me.Label48.TabIndex = 171 +Me.Label48.Text = "Item Comment" +' +'Label73 +' +Me.Label73.AutoSize = true +Me.Label73.Location = New System.Drawing.Point(13, 108) +Me.Label73.Name = "Label73" +Me.Label73.Size = New System.Drawing.Size(51, 13) +Me.Label73.TabIndex = 173 +Me.Label73.Text = "Item Cost" +' +'Label107 +' +Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label107.Location = New System.Drawing.Point(38, 5) +Me.Label107.Name = "Label107" +Me.Label107.Size = New System.Drawing.Size(252, 47) +Me.Label107.TabIndex = 178 +Me.Label107.Text = "Use this page to create Wishlist files." +Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNWishlistCreate +' +Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) +Me.BTNWishlistCreate.Name = "BTNWishlistCreate" +Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) +Me.BTNWishlistCreate.TabIndex = 177 +Me.BTNWishlistCreate.Text = "Create Wishlist File" +Me.BTNWishlistCreate.UseVisualStyleBackColor = true +' +'Label18 +' +Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label18.Location = New System.Drawing.Point(409, 5) +Me.Label18.Name = "Label18" +Me.Label18.Size = New System.Drawing.Size(250, 23) +Me.Label18.TabIndex = 166 +Me.Label18.Text = "Preview" +Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'PNLWishList +' +Me.PNLWishList.BackColor = System.Drawing.Color.White +Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) +Me.PNLWishList.Controls.Add(Me.LBLWishListText) +Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) +Me.PNLWishList.Controls.Add(Me.WishlistCostGold) +Me.PNLWishList.Controls.Add(Me.LBLWishListName) +Me.PNLWishList.Controls.Add(Me.WishlistPreview) +Me.PNLWishList.Location = New System.Drawing.Point(407, 31) +Me.PNLWishList.Name = "PNLWishList" +Me.PNLWishList.Size = New System.Drawing.Size(250, 367) +Me.PNLWishList.TabIndex = 165 +' +'WishlistCostSilver +' +Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) +Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostSilver.Name = "WishlistCostSilver" +Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostSilver.TabIndex = 111 +Me.WishlistCostSilver.TabStop = false +' +'LBLWishListText +' +Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) +Me.LBLWishListText.Name = "LBLWishListText" +Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) +Me.LBLWishListText.TabIndex = 108 +' +'LBLWishlistCost +' +Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black +Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) +Me.LBLWishlistCost.Name = "LBLWishlistCost" +Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) +Me.LBLWishlistCost.TabIndex = 107 +Me.LBLWishlistCost.Text = "3" +Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'WishlistCostGold +' +Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) +Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostGold.Name = "WishlistCostGold" +Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostGold.TabIndex = 106 +Me.WishlistCostGold.TabStop = false +Me.WishlistCostGold.Visible = false +' +'LBLWishListName +' +Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue +Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) +Me.LBLWishListName.Name = "LBLWishListName" +Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) +Me.LBLWishListName.TabIndex = 104 +Me.LBLWishListName.Text = "Item Name Goes Here" +Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'WishlistPreview +' +Me.WishlistPreview.ImageLocation = "" +Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) +Me.WishlistPreview.Name = "WishlistPreview" +Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) +Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WishlistPreview.TabIndex = 101 +Me.WishlistPreview.TabStop = false +' +'TabPage26 +' +Me.TabPage26.BackColor = System.Drawing.Color.Silver +Me.TabPage26.Controls.Add(Me.Panel12) +Me.TabPage26.Location = New System.Drawing.Point(4, 22) +Me.TabPage26.Name = "TabPage26" +Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage26.Size = New System.Drawing.Size(720, 448) +Me.TabPage26.TabIndex = 19 +Me.TabPage26.Text = "Themes" +' +'Panel12 +' +Me.Panel12.BackColor = System.Drawing.Color.LightGray +Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel12.Controls.Add(Me.GroupBox9) +Me.Panel12.Controls.Add(Me.PictureBox10) +Me.Panel12.Controls.Add(Me.GroupBox5) +Me.Panel12.Controls.Add(Me.GroupBox11) +Me.Panel12.Controls.Add(Me.GroupBox1) +Me.Panel12.Controls.Add(Me.Label164) +Me.Panel12.Location = New System.Drawing.Point(6, 6) +Me.Panel12.Name = "Panel12" +Me.Panel12.Size = New System.Drawing.Size(708, 437) +Me.Panel12.TabIndex = 93 +' +'GroupBox9 +' +Me.GroupBox9.Controls.Add(Me.Button32) +Me.GroupBox9.Controls.Add(Me.Button31) +Me.GroupBox9.Location = New System.Drawing.Point(351, 231) +Me.GroupBox9.Name = "GroupBox9" +Me.GroupBox9.Size = New System.Drawing.Size(348, 94) +Me.GroupBox9.TabIndex = 152 +Me.GroupBox9.TabStop = false +Me.GroupBox9.Text = "System" +' +'Button32 +' +Me.Button32.BackColor = System.Drawing.Color.Transparent +Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big +Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button32.Location = New System.Drawing.Point(196, 24) +Me.Button32.Name = "Button32" +Me.Button32.Size = New System.Drawing.Size(135, 55) +Me.Button32.TabIndex = 55 +Me.Button32.Text = " Save Theme" +Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button32.UseVisualStyleBackColor = false +' +'Button31 +' +Me.Button31.BackColor = System.Drawing.Color.Transparent +Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big +Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button31.Location = New System.Drawing.Point(17, 24) +Me.Button31.Name = "Button31" +Me.Button31.Size = New System.Drawing.Size(135, 55) +Me.Button31.TabIndex = 54 +Me.Button31.Text = " Open Theme" +Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button31.UseVisualStyleBackColor = false +' +'PictureBox10 +' +Me.PictureBox10.BackColor = System.Drawing.Color.LightGray +Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox10.Location = New System.Drawing.Point(9, 6) +Me.PictureBox10.Name = "PictureBox10" +Me.PictureBox10.Size = New System.Drawing.Size(160, 19) +Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox10.TabIndex = 151 +Me.PictureBox10.TabStop = false +' +'GroupBox5 +' +Me.GroupBox5.Controls.Add(Me.CBTransparentTime) +Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) +Me.GroupBox5.Controls.Add(Me.Label137) +Me.GroupBox5.Controls.Add(Me.Label138) +Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) +Me.GroupBox5.Location = New System.Drawing.Point(9, 31) +Me.GroupBox5.Name = "GroupBox5" +Me.GroupBox5.Size = New System.Drawing.Size(336, 294) +Me.GroupBox5.TabIndex = 58 +Me.GroupBox5.TabStop = false +Me.GroupBox5.Text = "UI Colors" +' +'CBTransparentTime +' +Me.CBTransparentTime.AutoSize = true +Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) +Me.CBTransparentTime.Name = "CBTransparentTime" +Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) +Me.CBTransparentTime.TabIndex = 23 +Me.CBTransparentTime.Text = "Transparent Date/Time Window" +Me.CBTransparentTime.UseVisualStyleBackColor = true +' +'LBLDateTimeColor2 +' +Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor +Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) +Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" +Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateTimeColor2.TabIndex = 19 +' +'Label137 +' +Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label137.Location = New System.Drawing.Point(6, 227) +Me.Label137.Name = "Label137" +Me.Label137.Size = New System.Drawing.Size(175, 20) +Me.Label137.TabIndex = 20 +Me.Label137.Text = "Date/Time Window Color" +Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label138 +' +Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label138.Location = New System.Drawing.Point(6, 193) +Me.Label138.Name = "Label138" +Me.Label138.Size = New System.Drawing.Size(175, 20) +Me.Label138.TabIndex = 17 +Me.Label138.Text = "Date/Time Text Color" +Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLDateBackColor2 +' +Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor +Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) +Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateBackColor2.Name = "LBLDateBackColor2" +Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateBackColor2.TabIndex = 22 +' +'LBLTextColor +' +Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) +Me.LBLTextColor.Name = "LBLTextColor" +Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLTextColor.TabIndex = 7 +Me.LBLTextColor.Text = "Text Color" +Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLChatWindowColor2 +' +Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor +Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) +Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" +Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatWindowColor2.TabIndex = 12 +' +'LBLTextColor2 +' +Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor +Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) +Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLTextColor2.Name = "LBLTextColor2" +Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLTextColor2.TabIndex = 9 +' +'LBLChatTextColor +' +Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) +Me.LBLChatTextColor.Name = "LBLChatTextColor" +Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatTextColor.TabIndex = 14 +Me.LBLChatTextColor.Text = "Chat Text Color" +Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLBackColor2 +' +Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor +Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) +Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLBackColor2.Name = "LBLBackColor2" +Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLBackColor2.TabIndex = 3 +' +'LBLButtonColor +' +Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) +Me.LBLButtonColor.Name = "LBLButtonColor" +Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) +Me.LBLButtonColor.TabIndex = 4 +Me.LBLButtonColor.Text = "Button Color" +Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLChatWindowColor +' +Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) +Me.LBLChatWindowColor.Name = "LBLChatWindowColor" +Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatWindowColor.TabIndex = 10 +Me.LBLChatWindowColor.Text = "Chat Window Color" +Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLBackColor +' +Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) +Me.LBLBackColor.Name = "LBLBackColor" +Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) +Me.LBLBackColor.TabIndex = 0 +Me.LBLBackColor.Text = "Background Color" +Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLChatTextColor2 +' +Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor +Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) +Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatTextColor2.Name = "LBLChatTextColor2" +Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatTextColor2.TabIndex = 16 +' +'LBLButtonColor2 +' +Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor +Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) +Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLButtonColor2.Name = "LBLButtonColor2" +Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLButtonColor2.TabIndex = 6 +' +'GroupBox11 +' +Me.GroupBox11.BackColor = System.Drawing.Color.LightGray +Me.GroupBox11.Controls.Add(Me.Label144) +Me.GroupBox11.ForeColor = System.Drawing.Color.Black +Me.GroupBox11.Location = New System.Drawing.Point(7, 331) +Me.GroupBox11.Name = "GroupBox11" +Me.GroupBox11.Size = New System.Drawing.Size(692, 92) +Me.GroupBox11.TabIndex = 65 +Me.GroupBox11.TabStop = false +Me.GroupBox11.Text = "Description" +' +'Label144 +' +Me.Label144.BackColor = System.Drawing.Color.Transparent +Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label144.ForeColor = System.Drawing.Color.Black +Me.Label144.Location = New System.Drawing.Point(6, 16) +Me.Label144.Name = "Label144" +Me.Label144.Size = New System.Drawing.Size(680, 73) +Me.Label144.TabIndex = 62 +Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ + "nd opened from txt files." +Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox1 +' +Me.GroupBox1.Controls.Add(Me.CBFlipBack) +Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) +Me.GroupBox1.Controls.Add(Me.Button17) +Me.GroupBox1.Controls.Add(Me.CBStretchBack) +Me.GroupBox1.Controls.Add(Me.Button18) +Me.GroupBox1.Location = New System.Drawing.Point(351, 30) +Me.GroupBox1.Name = "GroupBox1" +Me.GroupBox1.Size = New System.Drawing.Size(348, 195) +Me.GroupBox1.TabIndex = 57 +Me.GroupBox1.TabStop = false +Me.GroupBox1.Text = "Background" +' +'CBFlipBack +' +Me.CBFlipBack.Enabled = false +Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) +Me.CBFlipBack.Name = "CBFlipBack" +Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) +Me.CBFlipBack.TabIndex = 4 +Me.CBFlipBack.Text = "Flip Background" +Me.CBFlipBack.UseVisualStyleBackColor = true +' +'PBBackgroundPreview +' +Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) +Me.PBBackgroundPreview.Name = "PBBackgroundPreview" +Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) +Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PBBackgroundPreview.TabIndex = 0 +Me.PBBackgroundPreview.TabStop = false +' +'Button17 +' +Me.Button17.BackColor = System.Drawing.Color.Transparent +Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load +Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button17.Location = New System.Drawing.Point(228, 36) +Me.Button17.Name = "Button17" +Me.Button17.Size = New System.Drawing.Size(103, 93) +Me.Button17.TabIndex = 1 +Me.Button17.UseVisualStyleBackColor = false +' +'CBStretchBack +' +Me.CBStretchBack.Checked = true +Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) +Me.CBStretchBack.Name = "CBStretchBack" +Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) +Me.CBStretchBack.TabIndex = 2 +Me.CBStretchBack.Text = "Stretch Background" +Me.CBStretchBack.UseVisualStyleBackColor = true +' +'Button18 +' +Me.Button18.Location = New System.Drawing.Point(228, 155) +Me.Button18.Name = "Button18" +Me.Button18.Size = New System.Drawing.Size(103, 31) +Me.Button18.TabIndex = 3 +Me.Button18.Text = "Clear" +Me.Button18.UseVisualStyleBackColor = true +' +'Label164 +' +Me.Label164.BackColor = System.Drawing.Color.Transparent +Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label164.ForeColor = System.Drawing.Color.Black +Me.Label164.Location = New System.Drawing.Point(7, 6) +Me.Label164.Name = "Label164" +Me.Label164.Size = New System.Drawing.Size(692, 21) +Me.Label164.TabIndex = 49 +Me.Label164.Text = "Theme Settings" +Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage4 +' +Me.TabPage4.BackColor = System.Drawing.Color.Silver +Me.TabPage4.Controls.Add(Me.Panel6) +Me.TabPage4.Location = New System.Drawing.Point(4, 22) +Me.TabPage4.Name = "TabPage4" +Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage4.Size = New System.Drawing.Size(720, 448) +Me.TabPage4.TabIndex = 3 +Me.TabPage4.Text = "Ranges" +' +'Panel6 +' +Me.Panel6.BackColor = System.Drawing.Color.LightGray +Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel6.Controls.Add(Me.GroupBox69) +Me.Panel6.Controls.Add(Me.GroupBox68) +Me.Panel6.Controls.Add(Me.GroupBox67) +Me.Panel6.Controls.Add(Me.GroupBox10) +Me.Panel6.Controls.Add(Me.GroupBox57) +Me.Panel6.Controls.Add(Me.GBRangeRuinChance) +Me.Panel6.Controls.Add(Me.GroupBox17) +Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) +Me.Panel6.Controls.Add(Me.PictureBox8) +Me.Panel6.Controls.Add(Me.Label38) +Me.Panel6.Location = New System.Drawing.Point(6, 6) +Me.Panel6.Name = "Panel6" +Me.Panel6.Size = New System.Drawing.Size(708, 437) +Me.Panel6.TabIndex = 91 +' +'GroupBox69 +' +Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) +Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) +Me.GroupBox69.Controls.Add(Me.TimedWriting) +Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) +Me.GroupBox69.Location = New System.Drawing.Point(236, 344) +Me.GroupBox69.Name = "GroupBox69" +Me.GroupBox69.Size = New System.Drawing.Size(166, 83) +Me.GroupBox69.TabIndex = 173 +Me.GroupBox69.TabStop = false +Me.GroupBox69.Text = "Writing Tasks" +' +'TypesSpeedVal +' +Me.TypesSpeedVal.AutoSize = true +Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) +Me.TypesSpeedVal.Name = "TypesSpeedVal" +Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) +Me.TypesSpeedVal.TabIndex = 0 +Me.TypesSpeedVal.Text = "10" +Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'TypeSpeedLabel +' +Me.TypeSpeedLabel.AutoSize = true +Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) +Me.TypeSpeedLabel.Name = "TypeSpeedLabel" +Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) +Me.TypeSpeedLabel.TabIndex = 2 +Me.TypeSpeedLabel.Text = "Typing Speed:" +' +'TimedWriting +' +Me.TimedWriting.AutoSize = true +Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting +Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TimedWriting.Location = New System.Drawing.Point(9, 19) +Me.TimedWriting.Name = "TimedWriting" +Me.TimedWriting.Size = New System.Drawing.Size(123, 17) +Me.TimedWriting.TabIndex = 1 +Me.TimedWriting.Text = "Timed Writing Tasks" +Me.TimedWriting.UseVisualStyleBackColor = true +' +'TypeSpeedSlider +' +Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) +Me.TypeSpeedSlider.Maximum = 100 +Me.TypeSpeedSlider.Minimum = 33 +Me.TypeSpeedSlider.Name = "TypeSpeedSlider" +Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) +Me.TypeSpeedSlider.TabIndex = 3 +Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed +' +'GroupBox68 +' +Me.GroupBox68.Controls.Add(Me.NBTasksMax) +Me.GroupBox68.Controls.Add(Me.NBTasksMin) +Me.GroupBox68.Controls.Add(Me.Label165) +Me.GroupBox68.Controls.Add(Me.Label166) +Me.GroupBox68.Location = New System.Drawing.Point(236, 287) +Me.GroupBox68.Name = "GroupBox68" +Me.GroupBox68.Size = New System.Drawing.Size(166, 51) +Me.GroupBox68.TabIndex = 172 +Me.GroupBox68.TabStop = false +Me.GroupBox68.Text = "Session Tasks" +' +'NBTasksMax +' +Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) +Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) +Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTasksMax.Name = "NBTasksMax" +Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMax.TabIndex = 187 +Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) +' +'NBTasksMin +' +Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) +Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBTasksMin.Name = "NBTasksMin" +Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMin.TabIndex = 186 +Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label165 +' +Me.Label165.BackColor = System.Drawing.Color.Transparent +Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label165.ForeColor = System.Drawing.Color.Black +Me.Label165.Location = New System.Drawing.Point(100, 20) +Me.Label165.Name = "Label165" +Me.Label165.Size = New System.Drawing.Size(10, 17) +Me.Label165.TabIndex = 185 +Me.Label165.Text = "-" +Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label166 +' +Me.Label166.BackColor = System.Drawing.Color.Transparent +Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label166.ForeColor = System.Drawing.Color.Black +Me.Label166.Location = New System.Drawing.Point(6, 21) +Me.Label166.Name = "Label166" +Me.Label166.Size = New System.Drawing.Size(49, 17) +Me.Label166.TabIndex = 188 +Me.Label166.Text = "Amount:" +Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox67 +' +Me.GroupBox67.Controls.Add(Me.Label161) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) +Me.GroupBox67.Controls.Add(Me.Label162) +Me.GroupBox67.Controls.Add(Me.Label163) +Me.GroupBox67.Controls.Add(Me.Label158) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) +Me.GroupBox67.Controls.Add(Me.Label159) +Me.GroupBox67.Controls.Add(Me.Label160) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) +Me.GroupBox67.Controls.Add(Me.Label119) +Me.GroupBox67.Controls.Add(Me.Label157) +Me.GroupBox67.Controls.Add(Me.Label151) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) +Me.GroupBox67.Controls.Add(Me.Label154) +Me.GroupBox67.Controls.Add(Me.Label155) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) +Me.GroupBox67.Controls.Add(Me.Label146) +Me.GroupBox67.Controls.Add(Me.Label149) +Me.GroupBox67.Location = New System.Drawing.Point(408, 288) +Me.GroupBox67.Name = "GroupBox67" +Me.GroupBox67.Size = New System.Drawing.Size(291, 139) +Me.GroupBox67.TabIndex = 171 +Me.GroupBox67.TabStop = false +Me.GroupBox67.Text = "Letter Tasks" +' +'Label161 +' +Me.Label161.BackColor = System.Drawing.Color.Transparent +Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label161.ForeColor = System.Drawing.Color.Black +Me.Label161.Location = New System.Drawing.Point(233, 110) +Me.Label161.Name = "Label161" +Me.Label161.Size = New System.Drawing.Size(50, 17) +Me.Label161.TabIndex = 204 +Me.Label161.Text = "minutes" +Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskCBTTimeMax +' +Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) +Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" +Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMax.TabIndex = 203 +Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax +' +'NBTaskCBTTimeMin +' +Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) +Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" +Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMin.TabIndex = 202 +Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin +' +'Label162 +' +Me.Label162.BackColor = System.Drawing.Color.Transparent +Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label162.ForeColor = System.Drawing.Color.Black +Me.Label162.Location = New System.Drawing.Point(167, 110) +Me.Label162.Name = "Label162" +Me.Label162.Size = New System.Drawing.Size(10, 17) +Me.Label162.TabIndex = 201 +Me.Label162.Text = "-" +Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label163 +' +Me.Label163.BackColor = System.Drawing.Color.Transparent +Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label163.ForeColor = System.Drawing.Color.Black +Me.Label163.Location = New System.Drawing.Point(12, 111) +Me.Label163.Name = "Label163" +Me.Label163.Size = New System.Drawing.Size(151, 17) +Me.Label163.TabIndex = 200 +Me.Label163.Text = "CBT Time:" +Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label158 +' +Me.Label158.BackColor = System.Drawing.Color.Transparent +Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label158.ForeColor = System.Drawing.Color.Black +Me.Label158.Location = New System.Drawing.Point(233, 87) +Me.Label158.Name = "Label158" +Me.Label158.Size = New System.Drawing.Size(50, 17) +Me.Label158.TabIndex = 199 +Me.Label158.Text = "minutes" +Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskEdgeHoldTimeMax +' +Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) +Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" +Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 +Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax +' +'NBTaskEdgeHoldTimeMin +' +Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) +Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" +Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 +Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin +' +'Label159 +' +Me.Label159.BackColor = System.Drawing.Color.Transparent +Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label159.ForeColor = System.Drawing.Color.Black +Me.Label159.Location = New System.Drawing.Point(167, 87) +Me.Label159.Name = "Label159" +Me.Label159.Size = New System.Drawing.Size(10, 17) +Me.Label159.TabIndex = 196 +Me.Label159.Text = "-" +Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label160 +' +Me.Label160.BackColor = System.Drawing.Color.Transparent +Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label160.ForeColor = System.Drawing.Color.Black +Me.Label160.Location = New System.Drawing.Point(12, 88) +Me.Label160.Name = "Label160" +Me.Label160.Size = New System.Drawing.Size(151, 17) +Me.Label160.TabIndex = 195 +Me.Label160.Text = "Edge Hold Time:" +Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskEdgesMax +' +Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) +Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" +Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMax.TabIndex = 194 +Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax +' +'NBTaskEdgesMin +' +Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) +Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" +Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMin.TabIndex = 193 +Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin +' +'Label119 +' +Me.Label119.BackColor = System.Drawing.Color.Transparent +Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label119.ForeColor = System.Drawing.Color.Black +Me.Label119.Location = New System.Drawing.Point(167, 64) +Me.Label119.Name = "Label119" +Me.Label119.Size = New System.Drawing.Size(10, 17) +Me.Label119.TabIndex = 192 +Me.Label119.Text = "-" +Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label157 +' +Me.Label157.BackColor = System.Drawing.Color.Transparent +Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label157.ForeColor = System.Drawing.Color.Black +Me.Label157.Location = New System.Drawing.Point(12, 65) +Me.Label157.Name = "Label157" +Me.Label157.Size = New System.Drawing.Size(151, 17) +Me.Label157.TabIndex = 191 +Me.Label157.Text = "Edges:" +Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label151 +' +Me.Label151.BackColor = System.Drawing.Color.Transparent +Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label151.ForeColor = System.Drawing.Color.Black +Me.Label151.Location = New System.Drawing.Point(233, 41) +Me.Label151.Name = "Label151" +Me.Label151.Size = New System.Drawing.Size(50, 17) +Me.Label151.TabIndex = 190 +Me.Label151.Text = "minutes" +Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskStrokingTimeMax +' +Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) +Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" +Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMax.TabIndex = 189 +Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax +' +'NBTaskStrokingTimeMin +' +Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) +Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" +Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMin.TabIndex = 188 +Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin +' +'Label154 +' +Me.Label154.BackColor = System.Drawing.Color.Transparent +Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label154.ForeColor = System.Drawing.Color.Black +Me.Label154.Location = New System.Drawing.Point(167, 41) +Me.Label154.Name = "Label154" +Me.Label154.Size = New System.Drawing.Size(10, 17) +Me.Label154.TabIndex = 187 +Me.Label154.Text = "-" +Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label155 +' +Me.Label155.BackColor = System.Drawing.Color.Transparent +Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label155.ForeColor = System.Drawing.Color.Black +Me.Label155.Location = New System.Drawing.Point(12, 42) +Me.Label155.Name = "Label155" +Me.Label155.Size = New System.Drawing.Size(151, 17) +Me.Label155.TabIndex = 186 +Me.Label155.Text = "Stroking Time:" +Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskStrokesMax +' +Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) +Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" +Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMax.TabIndex = 184 +Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax +' +'NBTaskStrokesMin +' +Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) +Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" +Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMin.TabIndex = 183 +Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin +' +'Label146 +' +Me.Label146.BackColor = System.Drawing.Color.Transparent +Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label146.ForeColor = System.Drawing.Color.Black +Me.Label146.Location = New System.Drawing.Point(167, 18) +Me.Label146.Name = "Label146" +Me.Label146.Size = New System.Drawing.Size(10, 17) +Me.Label146.TabIndex = 182 +Me.Label146.Text = "-" +Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label149 +' +Me.Label149.BackColor = System.Drawing.Color.Transparent +Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label149.ForeColor = System.Drawing.Color.Black +Me.Label149.Location = New System.Drawing.Point(12, 19) +Me.Label149.Name = "Label149" +Me.Label149.Size = New System.Drawing.Size(151, 17) +Me.Label149.TabIndex = 181 +Me.Label149.Text = "Strokes:" +Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox10 +' +Me.GroupBox10.Controls.Add(Me.Label112) +Me.GroupBox10.Controls.Add(Me.NBNextImageChance) +Me.GroupBox10.Controls.Add(Me.Label6) +Me.GroupBox10.Location = New System.Drawing.Point(408, 31) +Me.GroupBox10.Name = "GroupBox10" +Me.GroupBox10.Size = New System.Drawing.Size(291, 54) +Me.GroupBox10.TabIndex = 170 +Me.GroupBox10.TabStop = false +Me.GroupBox10.Text = "Tease Slideshow" +' +'Label112 +' +Me.Label112.BackColor = System.Drawing.Color.Transparent +Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label112.ForeColor = System.Drawing.Color.Black +Me.Label112.Location = New System.Drawing.Point(233, 21) +Me.Label112.Name = "Label112" +Me.Label112.Size = New System.Drawing.Size(50, 17) +Me.Label112.TabIndex = 180 +Me.Label112.Text = "percent" +Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBNextImageChance +' +Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) +Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBNextImageChance.Name = "NBNextImageChance" +Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) +Me.NBNextImageChance.TabIndex = 179 +Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label6 +' +Me.Label6.BackColor = System.Drawing.Color.Transparent +Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label6.ForeColor = System.Drawing.Color.Black +Me.Label6.Location = New System.Drawing.Point(9, 21) +Me.Label6.Name = "Label6" +Me.Label6.Size = New System.Drawing.Size(151, 17) +Me.Label6.TabIndex = 154 +Me.Label6.Text = "Image Next/Previous Chance:" +Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox57 +' +Me.GroupBox57.Controls.Add(Me.Label139) +Me.GroupBox57.Controls.Add(Me.NBTauntEdging) +Me.GroupBox57.Controls.Add(Me.LBLVtf) +Me.GroupBox57.Controls.Add(Me.LBLStf) +Me.GroupBox57.Controls.Add(Me.SliderSTF) +Me.GroupBox57.Controls.Add(Me.TauntSlider) +Me.GroupBox57.Controls.Add(Me.Label106) +Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) +Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) +Me.GroupBox57.Controls.Add(Me.Label103) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) +Me.GroupBox57.Controls.Add(Me.Label105) +Me.GroupBox57.Controls.Add(Me.Label101) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) +Me.GroupBox57.Controls.Add(Me.Label102) +Me.GroupBox57.Controls.Add(Me.Label97) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) +Me.GroupBox57.Controls.Add(Me.Label99) +Me.GroupBox57.Controls.Add(Me.Label96) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) +Me.GroupBox57.Controls.Add(Me.Label95) +Me.GroupBox57.Controls.Add(Me.Label49) +Me.GroupBox57.Controls.Add(Me.Label141) +Me.GroupBox57.Location = New System.Drawing.Point(7, 30) +Me.GroupBox57.Name = "GroupBox57" +Me.GroupBox57.Size = New System.Drawing.Size(223, 308) +Me.GroupBox57.TabIndex = 169 +Me.GroupBox57.TabStop = false +Me.GroupBox57.Text = "Tease" +' +'Label139 +' +Me.Label139.BackColor = System.Drawing.Color.Transparent +Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label139.ForeColor = System.Drawing.Color.Black +Me.Label139.Location = New System.Drawing.Point(175, 171) +Me.Label139.Name = "Label139" +Me.Label139.Size = New System.Drawing.Size(50, 17) +Me.Label139.TabIndex = 184 +Me.Label139.Text = "percent" +Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTauntEdging +' +Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) +Me.NBTauntEdging.Name = "NBTauntEdging" +Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) +Me.NBTauntEdging.TabIndex = 188 +Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) +' +'LBLVtf +' +Me.LBLVtf.BackColor = System.Drawing.Color.Transparent +Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLVtf.ForeColor = System.Drawing.Color.Black +Me.LBLVtf.Location = New System.Drawing.Point(128, 261) +Me.LBLVtf.Name = "LBLVtf" +Me.LBLVtf.Size = New System.Drawing.Size(87, 17) +Me.LBLVtf.TabIndex = 187 +Me.LBLVtf.Text = "Normal" +Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLStf +' +Me.LBLStf.BackColor = System.Drawing.Color.Transparent +Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLStf.ForeColor = System.Drawing.Color.Black +Me.LBLStf.Location = New System.Drawing.Point(130, 220) +Me.LBLStf.Name = "LBLStf" +Me.LBLStf.Size = New System.Drawing.Size(87, 17) +Me.LBLStf.TabIndex = 165 +Me.LBLStf.Text = "Normal" +Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'SliderSTF +' +Me.SliderSTF.AutoSize = false +Me.SliderSTF.LargeChange = 1 +Me.SliderSTF.Location = New System.Drawing.Point(130, 199) +Me.SliderSTF.Maximum = 5 +Me.SliderSTF.Minimum = 1 +Me.SliderSTF.Name = "SliderSTF" +Me.SliderSTF.Size = New System.Drawing.Size(87, 25) +Me.SliderSTF.TabIndex = 163 +Me.SliderSTF.Value = 3 +' +'TauntSlider +' +Me.TauntSlider.AutoSize = false +Me.TauntSlider.LargeChange = 1 +Me.TauntSlider.Location = New System.Drawing.Point(130, 240) +Me.TauntSlider.Maximum = 9 +Me.TauntSlider.Minimum = 1 +Me.TauntSlider.Name = "TauntSlider" +Me.TauntSlider.Size = New System.Drawing.Size(87, 25) +Me.TauntSlider.TabIndex = 161 +Me.TauntSlider.Value = 4 +' +'Label106 +' +Me.Label106.BackColor = System.Drawing.Color.Transparent +Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label106.ForeColor = System.Drawing.Color.Black +Me.Label106.Location = New System.Drawing.Point(6, 243) +Me.Label106.Name = "Label106" +Me.Label106.Size = New System.Drawing.Size(123, 17) +Me.Label106.TabIndex = 186 +Me.Label106.Text = "Video Taunt Frequency:" +Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBTauntCycleDD +' +Me.CBTauntCycleDD.AutoSize = true +Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black +Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) +Me.CBTauntCycleDD.Name = "CBTauntCycleDD" +Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) +Me.CBTauntCycleDD.TabIndex = 185 +Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" +Me.CBTauntCycleDD.UseVisualStyleBackColor = true +' +'CBTeaseLengthDD +' +Me.CBTeaseLengthDD.AutoSize = true +Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black +Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) +Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" +Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) +Me.CBTeaseLengthDD.TabIndex = 184 +Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" +Me.CBTeaseLengthDD.UseVisualStyleBackColor = true +' +'Label103 +' +Me.Label103.BackColor = System.Drawing.Color.Transparent +Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label103.ForeColor = System.Drawing.Color.Black +Me.Label103.Location = New System.Drawing.Point(175, 117) +Me.Label103.Name = "Label103" +Me.Label103.Size = New System.Drawing.Size(50, 17) +Me.Label103.TabIndex = 183 +Me.Label103.Text = "minutes" +Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTauntCycleMax +' +Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) +Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) +Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBTauntCycleMax.Name = "NBTauntCycleMax" +Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMax.TabIndex = 182 +Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) +' +'Label105 +' +Me.Label105.BackColor = System.Drawing.Color.Transparent +Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label105.ForeColor = System.Drawing.Color.Black +Me.Label105.Location = New System.Drawing.Point(6, 117) +Me.Label105.Name = "Label105" +Me.Label105.Size = New System.Drawing.Size(123, 17) +Me.Label105.TabIndex = 181 +Me.Label105.Text = "Taunt Cycle Maximum:" +Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label101 +' +Me.Label101.BackColor = System.Drawing.Color.Transparent +Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label101.ForeColor = System.Drawing.Color.Black +Me.Label101.Location = New System.Drawing.Point(175, 93) +Me.Label101.Name = "Label101" +Me.Label101.Size = New System.Drawing.Size(50, 17) +Me.Label101.TabIndex = 180 +Me.Label101.Text = "minutes" +Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTauntCycleMin +' +Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) +Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTauntCycleMin.Name = "NBTauntCycleMin" +Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMin.TabIndex = 179 +Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) +' +'Label102 +' +Me.Label102.BackColor = System.Drawing.Color.Transparent +Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label102.ForeColor = System.Drawing.Color.Black +Me.Label102.Location = New System.Drawing.Point(6, 93) +Me.Label102.Name = "Label102" +Me.Label102.Size = New System.Drawing.Size(123, 17) +Me.Label102.TabIndex = 178 +Me.Label102.Text = "Taunt Cycle Minimum:" +Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label97 +' +Me.Label97.BackColor = System.Drawing.Color.Transparent +Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label97.ForeColor = System.Drawing.Color.Black +Me.Label97.Location = New System.Drawing.Point(175, 46) +Me.Label97.Name = "Label97" +Me.Label97.Size = New System.Drawing.Size(50, 17) +Me.Label97.TabIndex = 177 +Me.Label97.Text = "minutes" +Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTeaseLengthMax +' +Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) +Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) +Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" +Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMax.TabIndex = 176 +Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label99 +' +Me.Label99.BackColor = System.Drawing.Color.Transparent +Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label99.ForeColor = System.Drawing.Color.Black +Me.Label99.Location = New System.Drawing.Point(6, 46) +Me.Label99.Name = "Label99" +Me.Label99.Size = New System.Drawing.Size(123, 17) +Me.Label99.TabIndex = 175 +Me.Label99.Text = "Tease Length Maximum:" +Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label96 +' +Me.Label96.BackColor = System.Drawing.Color.Transparent +Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label96.ForeColor = System.Drawing.Color.Black +Me.Label96.Location = New System.Drawing.Point(175, 20) +Me.Label96.Name = "Label96" +Me.Label96.Size = New System.Drawing.Size(50, 17) +Me.Label96.TabIndex = 174 +Me.Label96.Text = "minutes" +Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTeaseLengthMin +' +Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) +Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) +Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" +Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMin.TabIndex = 169 +Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) +' +'Label95 +' +Me.Label95.BackColor = System.Drawing.Color.Transparent +Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label95.ForeColor = System.Drawing.Color.Black +Me.Label95.Location = New System.Drawing.Point(6, 20) +Me.Label95.Name = "Label95" +Me.Label95.Size = New System.Drawing.Size(123, 17) +Me.Label95.TabIndex = 166 +Me.Label95.Text = "Tease Length Minimum:" +Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label49 +' +Me.Label49.BackColor = System.Drawing.Color.Transparent +Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label49.ForeColor = System.Drawing.Color.Black +Me.Label49.Location = New System.Drawing.Point(6, 207) +Me.Label49.Name = "Label49" +Me.Label49.Size = New System.Drawing.Size(132, 17) +Me.Label49.TabIndex = 164 +Me.Label49.Text = "Stroke Taunt Frequency:" +Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label141 +' +Me.Label141.BackColor = System.Drawing.Color.Transparent +Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label141.ForeColor = System.Drawing.Color.Black +Me.Label141.Location = New System.Drawing.Point(6, 163) +Me.Label141.Name = "Label141" +Me.Label141.Size = New System.Drawing.Size(141, 32) +Me.Label141.TabIndex = 189 +Me.Label141.Text = "Edging Ends Taunts:" +Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GBRangeRuinChance +' +Me.GBRangeRuinChance.Controls.Add(Me.Label90) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) +Me.GBRangeRuinChance.Controls.Add(Me.Label91) +Me.GBRangeRuinChance.Controls.Add(Me.Label92) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) +Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) +Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) +Me.GBRangeRuinChance.Name = "GBRangeRuinChance" +Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeRuinChance.TabIndex = 168 +Me.GBRangeRuinChance.TabStop = false +Me.GBRangeRuinChance.Text = "Ruin Chance" +' +'Label90 +' +Me.Label90.BackColor = System.Drawing.Color.Transparent +Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label90.ForeColor = System.Drawing.Color.Black +Me.Label90.Location = New System.Drawing.Point(6, 94) +Me.Label90.Name = "Label90" +Me.Label90.Size = New System.Drawing.Size(83, 17) +Me.Label90.TabIndex = 173 +Me.Label90.Text = "Rarely Ruins:" +Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBRuinSometimes +' +Me.NBRuinSometimes.Enabled = false +Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinSometimes.Name = "NBRuinSometimes" +Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBRuinSometimes.TabIndex = 169 +Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +' +'Label91 +' +Me.Label91.BackColor = System.Drawing.Color.Transparent +Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label91.ForeColor = System.Drawing.Color.Black +Me.Label91.Location = New System.Drawing.Point(6, 68) +Me.Label91.Name = "Label91" +Me.Label91.Size = New System.Drawing.Size(102, 17) +Me.Label91.TabIndex = 172 +Me.Label91.Text = "Sometimes Ruins:" +Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label92 +' +Me.Label92.BackColor = System.Drawing.Color.Transparent +Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label92.ForeColor = System.Drawing.Color.Black +Me.Label92.Location = New System.Drawing.Point(6, 42) +Me.Label92.Name = "Label92" +Me.Label92.Size = New System.Drawing.Size(72, 17) +Me.Label92.TabIndex = 171 +Me.Label92.Text = "Often Ruins:" +Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBRuinRarely +' +Me.NBRuinRarely.Enabled = false +Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) +Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinRarely.Name = "NBRuinRarely" +Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) +Me.NBRuinRarely.TabIndex = 170 +Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +' +'NBRuinOften +' +Me.NBRuinOften.Enabled = false +Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) +Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinOften.Name = "NBRuinOften" +Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) +Me.NBRuinOften.TabIndex = 168 +Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +' +'CBRangeRuin +' +Me.CBRangeRuin.AutoSize = true +Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black +Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) +Me.CBRangeRuin.Name = "CBRangeRuin" +Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) +Me.CBRangeRuin.TabIndex = 159 +Me.CBRangeRuin.Text = "Domme Decide" +Me.CBRangeRuin.UseVisualStyleBackColor = true +' +'GroupBox17 +' +Me.GroupBox17.Controls.Add(Me.GroupBox19) +Me.GroupBox17.Controls.Add(Me.GroupBox18) +Me.GroupBox17.Location = New System.Drawing.Point(408, 91) +Me.GroupBox17.Name = "GroupBox17" +Me.GroupBox17.Size = New System.Drawing.Size(291, 190) +Me.GroupBox17.TabIndex = 0 +Me.GroupBox17.TabStop = false +Me.GroupBox17.Text = "Video Teases" +' +'GroupBox19 +' +Me.GroupBox19.Controls.Add(Me.Label110) +Me.GroupBox19.Controls.Add(Me.Label111) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) +Me.GroupBox19.Controls.Add(Me.NBRedLightMax) +Me.GroupBox19.Controls.Add(Me.Label26) +Me.GroupBox19.Controls.Add(Me.NBRedLightMin) +Me.GroupBox19.Controls.Add(Me.Label28) +Me.GroupBox19.Controls.Add(Me.Label27) +Me.GroupBox19.Controls.Add(Me.Label29) +Me.GroupBox19.Location = New System.Drawing.Point(6, 110) +Me.GroupBox19.Name = "GroupBox19" +Me.GroupBox19.Size = New System.Drawing.Size(279, 66) +Me.GroupBox19.TabIndex = 2 +Me.GroupBox19.TabStop = false +Me.GroupBox19.Text = "Red Light, Green Light" +' +'Label110 +' +Me.Label110.BackColor = System.Drawing.Color.Transparent +Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label110.ForeColor = System.Drawing.Color.Black +Me.Label110.Location = New System.Drawing.Point(227, 39) +Me.Label110.Name = "Label110" +Me.Label110.Size = New System.Drawing.Size(50, 17) +Me.Label110.TabIndex = 181 +Me.Label110.Text = "seconds" +Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label111 +' +Me.Label111.BackColor = System.Drawing.Color.Transparent +Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label111.ForeColor = System.Drawing.Color.Black +Me.Label111.Location = New System.Drawing.Point(227, 16) +Me.Label111.Name = "Label111" +Me.Label111.Size = New System.Drawing.Size(50, 17) +Me.Label111.TabIndex = 180 +Me.Label111.Text = "seconds" +Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBGreenLightMax +' +Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) +Me.NBGreenLightMax.Name = "NBGreenLightMax" +Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMax.TabIndex = 156 +Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'NBGreenLightMin +' +Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) +Me.NBGreenLightMin.Name = "NBGreenLightMin" +Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMin.TabIndex = 155 +Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +' +'NBRedLightMax +' +Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) +Me.NBRedLightMax.Name = "NBRedLightMax" +Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMax.TabIndex = 152 +Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) +' +'Label26 +' +Me.Label26.BackColor = System.Drawing.Color.Transparent +Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label26.ForeColor = System.Drawing.Color.Black +Me.Label26.Location = New System.Drawing.Point(161, 38) +Me.Label26.Name = "Label26" +Me.Label26.Size = New System.Drawing.Size(10, 17) +Me.Label26.TabIndex = 154 +Me.Label26.Text = "-" +Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBRedLightMin +' +Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) +Me.NBRedLightMin.Name = "NBRedLightMin" +Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMin.TabIndex = 151 +Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) +' +'Label28 +' +Me.Label28.BackColor = System.Drawing.Color.Transparent +Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label28.ForeColor = System.Drawing.Color.Black +Me.Label28.Location = New System.Drawing.Point(161, 15) +Me.Label28.Name = "Label28" +Me.Label28.Size = New System.Drawing.Size(10, 17) +Me.Label28.TabIndex = 150 +Me.Label28.Text = "-" +Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label27 +' +Me.Label27.BackColor = System.Drawing.Color.Transparent +Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label27.ForeColor = System.Drawing.Color.Black +Me.Label27.Location = New System.Drawing.Point(6, 39) +Me.Label27.Name = "Label27" +Me.Label27.Size = New System.Drawing.Size(151, 17) +Me.Label27.TabIndex = 153 +Me.Label27.Text = "Green Light Time:" +Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label29 +' +Me.Label29.BackColor = System.Drawing.Color.Transparent +Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label29.ForeColor = System.Drawing.Color.Black +Me.Label29.Location = New System.Drawing.Point(6, 16) +Me.Label29.Name = "Label29" +Me.Label29.Size = New System.Drawing.Size(151, 17) +Me.Label29.TabIndex = 149 +Me.Label29.Text = "Red Light Time:" +Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox18 +' +Me.GroupBox18.Controls.Add(Me.Label108) +Me.GroupBox18.Controls.Add(Me.Label109) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) +Me.GroupBox18.Controls.Add(Me.CBCensorConstant) +Me.GroupBox18.Controls.Add(Me.Label25) +Me.GroupBox18.Controls.Add(Me.Label20) +Me.GroupBox18.Controls.Add(Me.Label19) +Me.GroupBox18.Controls.Add(Me.Label24) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) +Me.GroupBox18.Location = New System.Drawing.Point(6, 16) +Me.GroupBox18.Name = "GroupBox18" +Me.GroupBox18.Size = New System.Drawing.Size(279, 88) +Me.GroupBox18.TabIndex = 1 +Me.GroupBox18.TabStop = false +Me.GroupBox18.Text = "Censorship Sucks" +' +'Label108 +' +Me.Label108.BackColor = System.Drawing.Color.Transparent +Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label108.ForeColor = System.Drawing.Color.Black +Me.Label108.Location = New System.Drawing.Point(227, 39) +Me.Label108.Name = "Label108" +Me.Label108.Size = New System.Drawing.Size(50, 17) +Me.Label108.TabIndex = 179 +Me.Label108.Text = "seconds" +Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label109 +' +Me.Label109.BackColor = System.Drawing.Color.Transparent +Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label109.ForeColor = System.Drawing.Color.Black +Me.Label109.Location = New System.Drawing.Point(227, 16) +Me.Label109.Name = "Label109" +Me.Label109.Size = New System.Drawing.Size(50, 17) +Me.Label109.TabIndex = 178 +Me.Label109.Text = "seconds" +Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBCensorShowMin +' +Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) +Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMin.Name = "NBCensorShowMin" +Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMin.TabIndex = 151 +Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin +' +'NBCensorHideMax +' +Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) +Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMax.Name = "NBCensorHideMax" +Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMax.TabIndex = 156 +Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax +' +'NBCensorHideMin +' +Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) +Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMin.Name = "NBCensorHideMin" +Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMin.TabIndex = 155 +Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin +' +'CBCensorConstant +' +Me.CBCensorConstant.AutoSize = true +Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant +Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black +Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) +Me.CBCensorConstant.Name = "CBCensorConstant" +Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) +Me.CBCensorConstant.TabIndex = 157 +Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" +Me.CBCensorConstant.UseVisualStyleBackColor = true +' +'Label25 +' +Me.Label25.BackColor = System.Drawing.Color.Transparent +Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label25.ForeColor = System.Drawing.Color.Black +Me.Label25.Location = New System.Drawing.Point(161, 15) +Me.Label25.Name = "Label25" +Me.Label25.Size = New System.Drawing.Size(10, 17) +Me.Label25.TabIndex = 150 +Me.Label25.Text = "-" +Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label20 +' +Me.Label20.BackColor = System.Drawing.Color.Transparent +Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label20.ForeColor = System.Drawing.Color.Black +Me.Label20.Location = New System.Drawing.Point(6, 39) +Me.Label20.Name = "Label20" +Me.Label20.Size = New System.Drawing.Size(110, 17) +Me.Label20.TabIndex = 153 +Me.Label20.Text = "Censor Bar Hidden:" +Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label19 +' +Me.Label19.BackColor = System.Drawing.Color.Transparent +Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label19.ForeColor = System.Drawing.Color.Black +Me.Label19.Location = New System.Drawing.Point(161, 38) +Me.Label19.Name = "Label19" +Me.Label19.Size = New System.Drawing.Size(10, 17) +Me.Label19.TabIndex = 154 +Me.Label19.Text = "-" +Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label24 +' +Me.Label24.BackColor = System.Drawing.Color.Transparent +Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label24.ForeColor = System.Drawing.Color.Black +Me.Label24.Location = New System.Drawing.Point(6, 16) +Me.Label24.Name = "Label24" +Me.Label24.Size = New System.Drawing.Size(110, 17) +Me.Label24.TabIndex = 149 +Me.Label24.Text = "Censor Bar Shown:" +Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBCensorShowMax +' +Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) +Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMax.Name = "NBCensorShowMax" +Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMax.TabIndex = 152 +Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax +' +'GBRangeOrgasmChance +' +Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) +Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) +Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) +Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" +Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeOrgasmChance.TabIndex = 167 +Me.GBRangeOrgasmChance.TabStop = false +Me.GBRangeOrgasmChance.Text = "Orgasm Chance" +' +'Label89 +' +Me.Label89.BackColor = System.Drawing.Color.Transparent +Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label89.ForeColor = System.Drawing.Color.Black +Me.Label89.Location = New System.Drawing.Point(6, 94) +Me.Label89.Name = "Label89" +Me.Label89.Size = New System.Drawing.Size(83, 17) +Me.Label89.TabIndex = 173 +Me.Label89.Text = "Rarely Allows:" +Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBAllowSometimes +' +Me.NBAllowSometimes.Enabled = false +Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowSometimes.Name = "NBAllowSometimes" +Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBAllowSometimes.TabIndex = 169 +Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +' +'Label86 +' +Me.Label86.BackColor = System.Drawing.Color.Transparent +Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label86.ForeColor = System.Drawing.Color.Black +Me.Label86.Location = New System.Drawing.Point(6, 68) +Me.Label86.Name = "Label86" +Me.Label86.Size = New System.Drawing.Size(102, 17) +Me.Label86.TabIndex = 172 +Me.Label86.Text = "Sometimes Allows:" +Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label82 +' +Me.Label82.BackColor = System.Drawing.Color.Transparent +Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label82.ForeColor = System.Drawing.Color.Black +Me.Label82.Location = New System.Drawing.Point(6, 42) +Me.Label82.Name = "Label82" +Me.Label82.Size = New System.Drawing.Size(83, 17) +Me.Label82.TabIndex = 171 +Me.Label82.Text = "Often Allows:" +Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBAllowRarely +' +Me.NBAllowRarely.Enabled = false +Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) +Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowRarely.Name = "NBAllowRarely" +Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) +Me.NBAllowRarely.TabIndex = 170 +Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +' +'NBAllowOften +' +Me.NBAllowOften.Enabled = false +Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) +Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowOften.Name = "NBAllowOften" +Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) +Me.NBAllowOften.TabIndex = 168 +Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +' +'CBRangeOrgasm +' +Me.CBRangeOrgasm.AutoSize = true +Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black +Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) +Me.CBRangeOrgasm.Name = "CBRangeOrgasm" +Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) +Me.CBRangeOrgasm.TabIndex = 159 +Me.CBRangeOrgasm.Text = "Domme Decide" +Me.CBRangeOrgasm.UseVisualStyleBackColor = true +' +'PictureBox8 +' +Me.PictureBox8.BackColor = System.Drawing.Color.LightGray +Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox8.Location = New System.Drawing.Point(9, 6) +Me.PictureBox8.Name = "PictureBox8" +Me.PictureBox8.Size = New System.Drawing.Size(160, 19) +Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox8.TabIndex = 166 +Me.PictureBox8.TabStop = false +' +'Label38 +' +Me.Label38.BackColor = System.Drawing.Color.Transparent +Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label38.ForeColor = System.Drawing.Color.Black +Me.Label38.Location = New System.Drawing.Point(7, 6) +Me.Label38.Name = "Label38" +Me.Label38.Size = New System.Drawing.Size(692, 21) +Me.Label38.TabIndex = 48 +Me.Label38.Text = "Range Settings" +Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage13 +' +Me.TabPage13.BackColor = System.Drawing.Color.Silver +Me.TabPage13.Controls.Add(Me.TabControl2) +Me.TabPage13.Location = New System.Drawing.Point(4, 22) +Me.TabPage13.Name = "TabPage13" +Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage13.Size = New System.Drawing.Size(720, 448) +Me.TabPage13.TabIndex = 13 +Me.TabPage13.Text = "Modding" +' +'TabControl2 +' +Me.TabControl2.Controls.Add(Me.TabPage27) +Me.TabControl2.Controls.Add(Me.TabPage14) +Me.TabControl2.Controls.Add(Me.TabPage24) +Me.TabControl2.Controls.Add(Me.TabPage8) +Me.TabControl2.Controls.Add(Me.TabPage15) +Me.TabControl2.Location = New System.Drawing.Point(6, 6) +Me.TabControl2.Name = "TabControl2" +Me.TabControl2.SelectedIndex = 0 +Me.TabControl2.Size = New System.Drawing.Size(708, 437) +Me.TabControl2.TabIndex = 0 +' +'TabPage27 +' +Me.TabPage27.BackColor = System.Drawing.Color.LightGray +Me.TabPage27.Controls.Add(Me.TBPlaylistSave) +Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) +Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) +Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) +Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) +Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) +Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) +Me.TabPage27.Controls.Add(Me.Button7) +Me.TabPage27.Controls.Add(Me.WBPlaylist) +Me.TabPage27.Controls.Add(Me.Label80) +Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) +Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) +Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) +Me.TabPage27.Controls.Add(Me.LBPlaylist) +Me.TabPage27.Location = New System.Drawing.Point(4, 22) +Me.TabPage27.Name = "TabPage27" +Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage27.Size = New System.Drawing.Size(700, 411) +Me.TabPage27.TabIndex = 5 +Me.TabPage27.Text = "Playlists" +' +'TBPlaylistSave +' +Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) +Me.TBPlaylistSave.Name = "TBPlaylistSave" +Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) +Me.TBPlaylistSave.TabIndex = 203 +' +'BTNPlaylistCtrlZ +' +Me.BTNPlaylistCtrlZ.Enabled = false +Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) +Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" +Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistCtrlZ.TabIndex = 202 +Me.BTNPlaylistCtrlZ.Text = "Undo" +Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true +' +'RadioPlaylistRegScripts +' +Me.RadioPlaylistRegScripts.AutoSize = true +Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) +Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" +Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) +Me.RadioPlaylistRegScripts.TabIndex = 201 +Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" +Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true +' +'RadioPlaylistScripts +' +Me.RadioPlaylistScripts.AutoSize = true +Me.RadioPlaylistScripts.Checked = true +Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) +Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" +Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) +Me.RadioPlaylistScripts.TabIndex = 200 +Me.RadioPlaylistScripts.TabStop = true +Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" +Me.RadioPlaylistScripts.UseVisualStyleBackColor = true +' +'BTNPlaylistEnd +' +Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray +Me.BTNPlaylistEnd.Enabled = false +Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black +Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) +Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" +Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistEnd.TabIndex = 199 +Me.BTNPlaylistEnd.Text = "End" +Me.BTNPlaylistEnd.UseVisualStyleBackColor = false +' +'BTNPlaylistClearAll +' +Me.BTNPlaylistClearAll.Enabled = false +Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) +Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" +Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) +Me.BTNPlaylistClearAll.TabIndex = 198 +Me.BTNPlaylistClearAll.Text = "Clear All" +Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true +' +'BTNPlaylistSave +' +Me.BTNPlaylistSave.Enabled = false +Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) +Me.BTNPlaylistSave.Name = "BTNPlaylistSave" +Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistSave.TabIndex = 197 +Me.BTNPlaylistSave.Text = "Save" +Me.BTNPlaylistSave.UseVisualStyleBackColor = true +' +'Button7 +' +Me.Button7.Location = New System.Drawing.Point(213, 21) +Me.Button7.Name = "Button7" +Me.Button7.Size = New System.Drawing.Size(78, 23) +Me.Button7.TabIndex = 196 +Me.Button7.Text = "Add Random" +Me.Button7.UseVisualStyleBackColor = true +' +'WBPlaylist +' +Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) +Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) +Me.WBPlaylist.Name = "WBPlaylist" +Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) +Me.WBPlaylist.TabIndex = 195 +' +'Label80 +' +Me.Label80.AutoSize = true +Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label80.Location = New System.Drawing.Point(410, 27) +Me.Label80.Name = "Label80" +Me.Label80.Size = New System.Drawing.Size(47, 13) +Me.Label80.TabIndex = 194 +Me.Label80.Text = "Playlist" +' +'LBLPlaylIstLink +' +Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylIstLink.Enabled = false +Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) +Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" +Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) +Me.LBLPlaylIstLink.TabIndex = 193 +Me.LBLPlaylIstLink.Text = "Link" +Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLPlaylistModule +' +Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylistModule.Enabled = false +Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) +Me.LBLPlaylistModule.Name = "LBLPlaylistModule" +Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) +Me.LBLPlaylistModule.TabIndex = 192 +Me.LBLPlaylistModule.Text = "Module" +Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLPLaylistStart +' +Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green +Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White +Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) +Me.LBLPLaylistStart.Name = "LBLPLaylistStart" +Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) +Me.LBLPLaylistStart.TabIndex = 190 +Me.LBLPLaylistStart.Text = "Start" +Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBPlaylist +' +Me.LBPlaylist.AllowDrop = true +Me.LBPlaylist.FormattingEnabled = true +Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) +Me.LBPlaylist.Name = "LBPlaylist" +Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) +Me.LBPlaylist.TabIndex = 189 +' +'TabPage14 +' +Me.TabPage14.BackColor = System.Drawing.Color.LightGray +Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) +Me.TabPage14.Controls.Add(Me.Label88) +Me.TabPage14.Controls.Add(Me.TBKeywordPreview) +Me.TabPage14.Controls.Add(Me.Button37) +Me.TabPage14.Controls.Add(Me.Button50) +Me.TabPage14.Controls.Add(Me.Button22) +Me.TabPage14.Controls.Add(Me.TBKeyWords) +Me.TabPage14.Controls.Add(Me.LBKeyWords) +Me.TabPage14.Controls.Add(Me.RTBKeyWords) +Me.TabPage14.Location = New System.Drawing.Point(4, 22) +Me.TabPage14.Name = "TabPage14" +Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage14.Size = New System.Drawing.Size(700, 411) +Me.TabPage14.TabIndex = 0 +Me.TabPage14.Text = "Keywords" +' +'LBLKeywordPreview +' +Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) +Me.LBLKeywordPreview.Name = "LBLKeywordPreview" +Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) +Me.LBLKeywordPreview.TabIndex = 174 +Me.LBLKeywordPreview.Text = "Get Preview Here" +Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label88 +' +Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label88.Location = New System.Drawing.Point(3, 358) +Me.Label88.Name = "Label88" +Me.Label88.Size = New System.Drawing.Size(194, 53) +Me.Label88.TabIndex = 173 +Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ + " the domme return." +Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBKeywordPreview +' +Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) +Me.TBKeywordPreview.Name = "TBKeywordPreview" +Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) +Me.TBKeywordPreview.TabIndex = 172 +Me.TBKeywordPreview.Text = "Enter Line Here" +Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Button37 +' +Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button37.Location = New System.Drawing.Point(638, 358) +Me.Button37.Name = "Button37" +Me.Button37.Size = New System.Drawing.Size(47, 50) +Me.Button37.TabIndex = 171 +Me.Button37.Text = "#" +Me.Button37.UseVisualStyleBackColor = true +' +'Button50 +' +Me.Button50.Location = New System.Drawing.Point(6, 10) +Me.Button50.Name = "Button50" +Me.Button50.Size = New System.Drawing.Size(194, 23) +Me.Button50.TabIndex = 169 +Me.Button50.Text = "Refresh and Clear Keyword List" +Me.Button50.UseVisualStyleBackColor = true +' +'Button22 +' +Me.Button22.Location = New System.Drawing.Point(638, 10) +Me.Button22.Name = "Button22" +Me.Button22.Size = New System.Drawing.Size(47, 23) +Me.Button22.TabIndex = 167 +Me.Button22.Text = "Save" +Me.Button22.UseVisualStyleBackColor = true +' +'TBKeyWords +' +Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) +Me.TBKeyWords.Name = "TBKeyWords" +Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) +Me.TBKeyWords.TabIndex = 166 +' +'LBKeyWords +' +Me.LBKeyWords.FormattingEnabled = true +Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) +Me.LBKeyWords.Name = "LBKeyWords" +Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) +Me.LBKeyWords.Sorted = true +Me.LBKeyWords.TabIndex = 165 +' +'RTBKeyWords +' +Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) +Me.RTBKeyWords.Name = "RTBKeyWords" +Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) +Me.RTBKeyWords.TabIndex = 164 +Me.RTBKeyWords.Text = "" +' +'TabPage24 +' +Me.TabPage24.BackColor = System.Drawing.Color.LightGray +Me.TabPage24.Controls.Add(Me.Button9) +Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) +Me.TabPage24.Controls.Add(Me.Button4) +Me.TabPage24.Controls.Add(Me.Button5) +Me.TabPage24.Controls.Add(Me.TBResponses) +Me.TabPage24.Controls.Add(Me.LBResponses) +Me.TabPage24.Controls.Add(Me.RTBResponses) +Me.TabPage24.Location = New System.Drawing.Point(4, 22) +Me.TabPage24.Name = "TabPage24" +Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage24.Size = New System.Drawing.Size(700, 411) +Me.TabPage24.TabIndex = 3 +Me.TabPage24.Text = "Responses" +' +'Button9 +' +Me.Button9.Location = New System.Drawing.Point(217, 10) +Me.Button9.Name = "Button9" +Me.Button9.Size = New System.Drawing.Size(215, 23) +Me.Button9.TabIndex = 176 +Me.Button9.Text = "Response Template" +Me.Button9.UseVisualStyleBackColor = true +' +'RTBResponsesKEY +' +Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) +Me.RTBResponsesKEY.Name = "RTBResponsesKEY" +Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) +Me.RTBResponsesKEY.TabIndex = 175 +Me.RTBResponsesKEY.Text = "" +' +'Button4 +' +Me.Button4.Location = New System.Drawing.Point(6, 10) +Me.Button4.Name = "Button4" +Me.Button4.Size = New System.Drawing.Size(194, 23) +Me.Button4.TabIndex = 174 +Me.Button4.Text = "Refresh and Clear Response List" +Me.Button4.UseVisualStyleBackColor = true +' +'Button5 +' +Me.Button5.Location = New System.Drawing.Point(638, 10) +Me.Button5.Name = "Button5" +Me.Button5.Size = New System.Drawing.Size(47, 23) +Me.Button5.TabIndex = 173 +Me.Button5.Text = "Save" +Me.Button5.UseVisualStyleBackColor = true +' +'TBResponses +' +Me.TBResponses.Location = New System.Drawing.Point(438, 10) +Me.TBResponses.Name = "TBResponses" +Me.TBResponses.Size = New System.Drawing.Size(194, 20) +Me.TBResponses.TabIndex = 172 +' +'LBResponses +' +Me.LBResponses.FormattingEnabled = true +Me.LBResponses.Location = New System.Drawing.Point(6, 36) +Me.LBResponses.Name = "LBResponses" +Me.LBResponses.Size = New System.Drawing.Size(194, 355) +Me.LBResponses.Sorted = true +Me.LBResponses.TabIndex = 171 +' +'RTBResponses +' +Me.RTBResponses.Location = New System.Drawing.Point(217, 82) +Me.RTBResponses.Name = "RTBResponses" +Me.RTBResponses.Size = New System.Drawing.Size(468, 309) +Me.RTBResponses.TabIndex = 170 +Me.RTBResponses.Text = "" +' +'TabPage8 +' +Me.TabPage8.BackColor = System.Drawing.Color.LightGray +Me.TabPage8.Controls.Add(Me.RTBVideoMod) +Me.TabPage8.Controls.Add(Me.GroupBox29) +Me.TabPage8.Controls.Add(Me.BTNVideoModClear) +Me.TabPage8.Controls.Add(Me.GroupBox28) +Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) +Me.TabPage8.Controls.Add(Me.GroupBox30) +Me.TabPage8.Controls.Add(Me.BTNVideoModSave) +Me.TabPage8.Location = New System.Drawing.Point(4, 22) +Me.TabPage8.Name = "TabPage8" +Me.TabPage8.Size = New System.Drawing.Size(700, 411) +Me.TabPage8.TabIndex = 2 +Me.TabPage8.Text = "Video" +' +'RTBVideoMod +' +Me.RTBVideoMod.Enabled = false +Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) +Me.RTBVideoMod.Name = "RTBVideoMod" +Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) +Me.RTBVideoMod.TabIndex = 150 +Me.RTBVideoMod.Text = "" +' +'GroupBox29 +' +Me.GroupBox29.BackColor = System.Drawing.Color.LightGray +Me.GroupBox29.Controls.Add(Me.Label51) +Me.GroupBox29.ForeColor = System.Drawing.Color.Black +Me.GroupBox29.Location = New System.Drawing.Point(6, 309) +Me.GroupBox29.Name = "GroupBox29" +Me.GroupBox29.Size = New System.Drawing.Size(692, 92) +Me.GroupBox29.TabIndex = 66 +Me.GroupBox29.TabStop = false +Me.GroupBox29.Text = "Description" +' +'Label51 +' +Me.Label51.BackColor = System.Drawing.Color.Transparent +Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label51.ForeColor = System.Drawing.Color.Black +Me.Label51.Location = New System.Drawing.Point(6, 16) +Me.Label51.Name = "Label51" +Me.Label51.Size = New System.Drawing.Size(680, 73) +Me.Label51.TabIndex = 62 +Me.Label51.Text = resources.GetString("Label51.Text") +Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoModClear +' +Me.BTNVideoModClear.Enabled = false +Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) +Me.BTNVideoModClear.Name = "BTNVideoModClear" +Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModClear.TabIndex = 153 +Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" +Me.BTNVideoModClear.UseVisualStyleBackColor = true +' +'GroupBox28 +' +Me.GroupBox28.Controls.Add(Me.CBVTType) +Me.GroupBox28.Location = New System.Drawing.Point(6, 8) +Me.GroupBox28.Name = "GroupBox28" +Me.GroupBox28.Size = New System.Drawing.Size(155, 46) +Me.GroupBox28.TabIndex = 148 +Me.GroupBox28.TabStop = false +Me.GroupBox28.Text = "Video Tease Type" +' +'CBVTType +' +Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBVTType.FormattingEnabled = true +Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) +Me.CBVTType.Location = New System.Drawing.Point(9, 15) +Me.CBVTType.Name = "CBVTType" +Me.CBVTType.Size = New System.Drawing.Size(137, 21) +Me.CBVTType.TabIndex = 171 +' +'BTNVideoModLoad +' +Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) +Me.BTNVideoModLoad.Name = "BTNVideoModLoad" +Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModLoad.TabIndex = 152 +Me.BTNVideoModLoad.Text = "Load Script" +Me.BTNVideoModLoad.UseVisualStyleBackColor = true +' +'GroupBox30 +' +Me.GroupBox30.Controls.Add(Me.LBVidScript) +Me.GroupBox30.Location = New System.Drawing.Point(6, 60) +Me.GroupBox30.Name = "GroupBox30" +Me.GroupBox30.Size = New System.Drawing.Size(155, 100) +Me.GroupBox30.TabIndex = 149 +Me.GroupBox30.TabStop = false +Me.GroupBox30.Text = "Script" +' +'LBVidScript +' +Me.LBVidScript.FormattingEnabled = true +Me.LBVidScript.Location = New System.Drawing.Point(9, 20) +Me.LBVidScript.Name = "LBVidScript" +Me.LBVidScript.Size = New System.Drawing.Size(137, 69) +Me.LBVidScript.TabIndex = 0 +' +'BTNVideoModSave +' +Me.BTNVideoModSave.Enabled = false +Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) +Me.BTNVideoModSave.Name = "BTNVideoModSave" +Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModSave.TabIndex = 151 +Me.BTNVideoModSave.Text = "Save Changes" +Me.BTNVideoModSave.UseVisualStyleBackColor = true +' +'TabPage15 +' +Me.TabPage15.BackColor = System.Drawing.Color.LightGray +Me.TabPage15.Controls.Add(Me.Label62) +Me.TabPage15.Controls.Add(Me.Label61) +Me.TabPage15.Controls.Add(Me.Label57) +Me.TabPage15.Controls.Add(Me.Label58) +Me.TabPage15.Controls.Add(Me.Label60) +Me.TabPage15.Controls.Add(Me.TBGlitModFileName) +Me.TabPage15.Controls.Add(Me.GroupBox34) +Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) +Me.TabPage15.Controls.Add(Me.Button26) +Me.TabPage15.Controls.Add(Me.Label56) +Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) +Me.TabPage15.Controls.Add(Me.LBGlitModScripts) +Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) +Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) +Me.TabPage15.Controls.Add(Me.Button29) +Me.TabPage15.Controls.Add(Me.CBGlitModType) +Me.TabPage15.Controls.Add(Me.Label59) +Me.TabPage15.Controls.Add(Me.Label50) +Me.TabPage15.Location = New System.Drawing.Point(4, 22) +Me.TabPage15.Name = "TabPage15" +Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage15.Size = New System.Drawing.Size(700, 411) +Me.TabPage15.TabIndex = 1 +Me.TabPage15.Text = "Glitter" +' +'Label62 +' +Me.Label62.Location = New System.Drawing.Point(255, 169) +Me.Label62.Name = "Label62" +Me.Label62.Size = New System.Drawing.Size(59, 51) +Me.Label62.TabIndex = 177 +Me.Label62.Text = "@Cruel @Angry @Custom2" +Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label61 +' +Me.Label61.Location = New System.Drawing.Point(194, 169) +Me.Label61.Name = "Label61" +Me.Label61.Size = New System.Drawing.Size(59, 51) +Me.Label61.TabIndex = 176 +Me.Label61.Text = "@Bratty @Caring @Custom1" +Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label57 +' +Me.Label57.Location = New System.Drawing.Point(194, 11) +Me.Label57.Name = "Label57" +Me.Label57.Size = New System.Drawing.Size(120, 23) +Me.Label57.TabIndex = 160 +Me.Label57.Text = "File Name" +Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label58 +' +Me.Label58.Location = New System.Drawing.Point(350, 11) +Me.Label58.Name = "Label58" +Me.Label58.Size = New System.Drawing.Size(326, 23) +Me.Label58.TabIndex = 161 +Me.Label58.Text = "Domme's Post" +Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label60 +' +Me.Label60.Location = New System.Drawing.Point(194, 139) +Me.Label60.Name = "Label60" +Me.Label60.Size = New System.Drawing.Size(120, 30) +Me.Label60.TabIndex = 175 +Me.Label60.Text = "Tease Responses Need 3 of Each:" +Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBGlitModFileName +' +Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) +Me.TBGlitModFileName.Name = "TBGlitModFileName" +Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) +Me.TBGlitModFileName.TabIndex = 158 +' +'GroupBox34 +' +Me.GroupBox34.BackColor = System.Drawing.Color.LightGray +Me.GroupBox34.Controls.Add(Me.Label52) +Me.GroupBox34.ForeColor = System.Drawing.Color.Black +Me.GroupBox34.Location = New System.Drawing.Point(8, 296) +Me.GroupBox34.Name = "GroupBox34" +Me.GroupBox34.Size = New System.Drawing.Size(683, 107) +Me.GroupBox34.TabIndex = 66 +Me.GroupBox34.TabStop = false +Me.GroupBox34.Text = "Description" +' +'Label52 +' +Me.Label52.BackColor = System.Drawing.Color.Transparent +Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label52.ForeColor = System.Drawing.Color.Black +Me.Label52.Location = New System.Drawing.Point(6, 16) +Me.Label52.Name = "Label52" +Me.Label52.Size = New System.Drawing.Size(670, 88) +Me.Label52.TabIndex = 62 +Me.Label52.Text = resources.GetString("Label52.Text") +Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'RTBGlitModDommePost +' +Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) +Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" +Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) +Me.RTBGlitModDommePost.TabIndex = 162 +Me.RTBGlitModDommePost.Text = "" +' +'Button26 +' +Me.Button26.Location = New System.Drawing.Point(194, 239) +Me.Button26.Name = "Button26" +Me.Button26.Size = New System.Drawing.Size(120, 23) +Me.Button26.TabIndex = 174 +Me.Button26.Text = "Clear Fields" +Me.Button26.UseVisualStyleBackColor = true +' +'Label56 +' +Me.Label56.Location = New System.Drawing.Point(350, 80) +Me.Label56.Name = "Label56" +Me.Label56.Size = New System.Drawing.Size(324, 23) +Me.Label56.TabIndex = 156 +Me.Label56.Text = "Responses (Minimum 3)" +Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'RTBGlitModResponses +' +Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) +Me.RTBGlitModResponses.Name = "RTBGlitModResponses" +Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) +Me.RTBGlitModResponses.TabIndex = 150 +Me.RTBGlitModResponses.Text = "" +' +'LBGlitModScripts +' +Me.LBGlitModScripts.FormattingEnabled = true +Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) +Me.LBGlitModScripts.Name = "LBGlitModScripts" +Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) +Me.LBGlitModScripts.TabIndex = 163 +' +'LBLGlitModScriptCount +' +Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) +Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" +Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) +Me.LBLGlitModScriptCount.TabIndex = 173 +Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" +Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitModDomType +' +Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) +Me.LBLGlitModDomType.Name = "LBLGlitModDomType" +Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) +Me.LBLGlitModDomType.TabIndex = 155 +Me.LBLGlitModDomType.Text = "Total Brat" +Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Button29 +' +Me.Button29.Location = New System.Drawing.Point(194, 268) +Me.Button29.Name = "Button29" +Me.Button29.Size = New System.Drawing.Size(120, 23) +Me.Button29.TabIndex = 151 +Me.Button29.Text = "Save Glitter File" +Me.Button29.UseVisualStyleBackColor = true +' +'CBGlitModType +' +Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBGlitModType.FormattingEnabled = true +Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) +Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) +Me.CBGlitModType.Name = "CBGlitModType" +Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) +Me.CBGlitModType.TabIndex = 171 +' +'Label59 +' +Me.Label59.Location = New System.Drawing.Point(33, 11) +Me.Label59.Name = "Label59" +Me.Label59.Size = New System.Drawing.Size(130, 23) +Me.Label59.TabIndex = 172 +Me.Label59.Text = "Glitter Post Type" +Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label50 +' +Me.Label50.Location = New System.Drawing.Point(191, 80) +Me.Label50.Name = "Label50" +Me.Label50.Size = New System.Drawing.Size(123, 23) +Me.Label50.TabIndex = 154 +Me.Label50.Text = "Current Domme Personality:" +Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage25 +' +Me.TabPage25.BackColor = System.Drawing.Color.Silver +Me.TabPage25.Controls.Add(Me.Panel11) +Me.TabPage25.Location = New System.Drawing.Point(4, 22) +Me.TabPage25.Name = "TabPage25" +Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage25.Size = New System.Drawing.Size(720, 448) +Me.TabPage25.TabIndex = 18 +Me.TabPage25.Text = "Misc" +' +'Panel11 +' +Me.Panel11.BackColor = System.Drawing.Color.LightGray +Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel11.Controls.Add(Me.GroupBox62) +Me.Panel11.Controls.Add(Me.GroupBox33) +Me.Panel11.Controls.Add(Me.GroupBox27) +Me.Panel11.Controls.Add(Me.GroupBox20) +Me.Panel11.Controls.Add(Me.WebToy) +Me.Panel11.Controls.Add(Me.GroupBox15) +Me.Panel11.Controls.Add(Me.PictureBox9) +Me.Panel11.Controls.Add(Me.Label148) +Me.Panel11.Location = New System.Drawing.Point(6, 6) +Me.Panel11.Name = "Panel11" +Me.Panel11.Size = New System.Drawing.Size(708, 437) +Me.Panel11.TabIndex = 92 +' +'GroupBox62 +' +Me.GroupBox62.Controls.Add(Me.RBGerman) +Me.GroupBox62.Controls.Add(Me.RBEnglish) +Me.GroupBox62.Location = New System.Drawing.Point(420, 155) +Me.GroupBox62.Name = "GroupBox62" +Me.GroupBox62.Size = New System.Drawing.Size(277, 107) +Me.GroupBox62.TabIndex = 178 +Me.GroupBox62.TabStop = false +Me.GroupBox62.Text = "Language" +' +'RBGerman +' +Me.RBGerman.AutoSize = true +Me.RBGerman.Location = New System.Drawing.Point(180, 20) +Me.RBGerman.Name = "RBGerman" +Me.RBGerman.Size = New System.Drawing.Size(65, 17) +Me.RBGerman.TabIndex = 1 +Me.RBGerman.Text = "Deutsch" +Me.RBGerman.UseVisualStyleBackColor = true +' +'RBEnglish +' +Me.RBEnglish.AutoSize = true +Me.RBEnglish.Checked = true +Me.RBEnglish.Location = New System.Drawing.Point(36, 19) +Me.RBEnglish.Name = "RBEnglish" +Me.RBEnglish.Size = New System.Drawing.Size(59, 17) +Me.RBEnglish.TabIndex = 0 +Me.RBEnglish.TabStop = true +Me.RBEnglish.Text = "English" +Me.RBEnglish.UseVisualStyleBackColor = true +' +'GroupBox33 +' +Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) +Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) +Me.GroupBox33.Controls.Add(Me.Label140) +Me.GroupBox33.Controls.Add(Me.Button11) +Me.GroupBox33.Controls.Add(Me.LBLChastityState) +Me.GroupBox33.Controls.Add(Me.Label120) +Me.GroupBox33.Location = New System.Drawing.Point(420, 268) +Me.GroupBox33.Name = "GroupBox33" +Me.GroupBox33.Size = New System.Drawing.Size(277, 159) +Me.GroupBox33.TabIndex = 177 +Me.GroupBox33.TabStop = false +Me.GroupBox33.Text = "System States" +' +'BTNOfflineMode +' +Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) +Me.BTNOfflineMode.Name = "BTNOfflineMode" +Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) +Me.BTNOfflineMode.TabIndex = 180 +Me.BTNOfflineMode.Text = "Toggle" +Me.BTNOfflineMode.UseVisualStyleBackColor = true +' +'LBLOfflineMode +' +Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray +Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red +Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) +Me.LBLOfflineMode.Name = "LBLOfflineMode" +Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) +Me.LBLOfflineMode.TabIndex = 179 +Me.LBLOfflineMode.Text = "OFF" +Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label140 +' +Me.Label140.BackColor = System.Drawing.Color.LightGray +Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label140.Location = New System.Drawing.Point(17, 70) +Me.Label140.Name = "Label140" +Me.Label140.Size = New System.Drawing.Size(98, 23) +Me.Label140.TabIndex = 178 +Me.Label140.Text = "OFFLINE MODE" +Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Button11 +' +Me.Button11.Location = New System.Drawing.Point(161, 33) +Me.Button11.Name = "Button11" +Me.Button11.Size = New System.Drawing.Size(99, 23) +Me.Button11.TabIndex = 177 +Me.Button11.Text = "Toggle" +Me.Button11.UseVisualStyleBackColor = true +' +'LBLChastityState +' +Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray +Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLChastityState.ForeColor = System.Drawing.Color.Red +Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) +Me.LBLChastityState.Name = "LBLChastityState" +Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) +Me.LBLChastityState.TabIndex = 3 +Me.LBLChastityState.Text = "OFF" +Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label120 +' +Me.Label120.BackColor = System.Drawing.Color.LightGray +Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label120.Location = New System.Drawing.Point(17, 33) +Me.Label120.Name = "Label120" +Me.Label120.Size = New System.Drawing.Size(98, 23) +Me.Label120.TabIndex = 2 +Me.Label120.Text = "CHASTITY" +Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox27 +' +Me.GroupBox27.Controls.Add(Me.Button6) +Me.GroupBox27.Controls.Add(Me.LBLSesSpace) +Me.GroupBox27.Controls.Add(Me.Button3) +Me.GroupBox27.Controls.Add(Me.LBLSesFiles) +Me.GroupBox27.Controls.Add(Me.Label125) +Me.GroupBox27.Controls.Add(Me.Label124) +Me.GroupBox27.Location = New System.Drawing.Point(420, 32) +Me.GroupBox27.Name = "GroupBox27" +Me.GroupBox27.Size = New System.Drawing.Size(279, 117) +Me.GroupBox27.TabIndex = 176 +Me.GroupBox27.TabStop = false +Me.GroupBox27.Text = "Session Images" +' +'Button6 +' +Me.Button6.Location = New System.Drawing.Point(143, 76) +Me.Button6.Name = "Button6" +Me.Button6.Size = New System.Drawing.Size(117, 23) +Me.Button6.TabIndex = 176 +Me.Button6.Text = "Delete All Files" +Me.Button6.UseVisualStyleBackColor = true +' +'LBLSesSpace +' +Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) +Me.LBLSesSpace.Name = "LBLSesSpace" +Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) +Me.LBLSesSpace.TabIndex = 3 +' +'Button3 +' +Me.Button3.Location = New System.Drawing.Point(20, 76) +Me.Button3.Name = "Button3" +Me.Button3.Size = New System.Drawing.Size(117, 23) +Me.Button3.TabIndex = 175 +Me.Button3.Text = "Open Folder" +Me.Button3.UseVisualStyleBackColor = true +' +'LBLSesFiles +' +Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) +Me.LBLSesFiles.Name = "LBLSesFiles" +Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) +Me.LBLSesFiles.TabIndex = 2 +' +'Label125 +' +Me.Label125.AutoSize = true +Me.Label125.Location = New System.Drawing.Point(17, 53) +Me.Label125.Name = "Label125" +Me.Label125.Size = New System.Drawing.Size(120, 13) +Me.Label125.TabIndex = 1 +Me.Label125.Text = "Total Disk Space Used:" +' +'Label124 +' +Me.Label124.AutoSize = true +Me.Label124.Location = New System.Drawing.Point(17, 24) +Me.Label124.Name = "Label124" +Me.Label124.Size = New System.Drawing.Size(126, 13) +Me.Label124.TabIndex = 0 +Me.Label124.Text = "Number of Files in Folder:" +' +'GroupBox20 +' +Me.GroupBox20.Controls.Add(Me.Button1) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) +Me.GroupBox20.Controls.Add(Me.Label117) +Me.GroupBox20.Controls.Add(Me.Label116) +Me.GroupBox20.Controls.Add(Me.PBCurrent) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) +Me.GroupBox20.Controls.Add(Me.PBMaintenance) +Me.GroupBox20.Controls.Add(Me.LBLMaintenance) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) +Me.GroupBox20.Location = New System.Drawing.Point(6, 32) +Me.GroupBox20.Name = "GroupBox20" +Me.GroupBox20.Size = New System.Drawing.Size(408, 230) +Me.GroupBox20.TabIndex = 174 +Me.GroupBox20.TabStop = false +Me.GroupBox20.Text = "Maintenance" +' +'Button1 +' +Me.Button1.Enabled = false +Me.Button1.Location = New System.Drawing.Point(270, 19) +Me.Button1.Name = "Button1" +Me.Button1.Size = New System.Drawing.Size(121, 23) +Me.Button1.TabIndex = 176 +Me.Button1.Text = "Reset Settings" +Me.Button1.UseVisualStyleBackColor = true +' +'BTNMaintenanceScripts +' +Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) +Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" +Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceScripts.TabIndex = 175 +Me.BTNMaintenanceScripts.Text = "Audit Scripts" +Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true +' +'BTNMaintenanceRefresh +' +Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) +Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" +Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRefresh.TabIndex = 7 +Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" +Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true +' +'Label117 +' +Me.Label117.AutoSize = true +Me.Label117.Location = New System.Drawing.Point(15, 182) +Me.Label117.Name = "Label117" +Me.Label117.Size = New System.Drawing.Size(84, 13) +Me.Label117.TabIndex = 6 +Me.Label117.Text = "Overall Progress" +' +'Label116 +' +Me.Label116.AutoSize = true +Me.Label116.Location = New System.Drawing.Point(15, 140) +Me.Label116.Name = "Label116" +Me.Label116.Size = New System.Drawing.Size(85, 13) +Me.Label116.TabIndex = 5 +Me.Label116.Text = "Current Progress" +' +'PBCurrent +' +Me.PBCurrent.Location = New System.Drawing.Point(15, 156) +Me.PBCurrent.Name = "PBCurrent" +Me.PBCurrent.Size = New System.Drawing.Size(376, 23) +Me.PBCurrent.TabIndex = 4 +' +'BTNMaintenanceCancel +' +Me.BTNMaintenanceCancel.Enabled = false +Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) +Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" +Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceCancel.TabIndex = 3 +Me.BTNMaintenanceCancel.Text = "Cancel" +Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true +' +'PBMaintenance +' +Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) +Me.PBMaintenance.Name = "PBMaintenance" +Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) +Me.PBMaintenance.TabIndex = 2 +' +'LBLMaintenance +' +Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) +Me.LBLMaintenance.Name = "LBLMaintenance" +Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) +Me.LBLMaintenance.TabIndex = 1 +Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNMaintenanceRebuild +' +Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) +Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" +Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRebuild.TabIndex = 0 +Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" +Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true +' +'WebToy +' +Me.WebToy.Location = New System.Drawing.Point(16, 379) +Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) +Me.WebToy.Name = "WebToy" +Me.WebToy.Size = New System.Drawing.Size(381, 36) +Me.WebToy.TabIndex = 172 +' +'GroupBox15 +' +Me.GroupBox15.Controls.Add(Me.Label115) +Me.GroupBox15.Controls.Add(Me.TBWebStop) +Me.GroupBox15.Controls.Add(Me.TBWebStart) +Me.GroupBox15.Controls.Add(Me.Label114) +Me.GroupBox15.Location = New System.Drawing.Point(6, 268) +Me.GroupBox15.Name = "GroupBox15" +Me.GroupBox15.Size = New System.Drawing.Size(408, 159) +Me.GroupBox15.TabIndex = 173 +Me.GroupBox15.TabStop = false +Me.GroupBox15.Text = "Web-Controlled Sex Toy" +' +'Label115 +' +Me.Label115.AutoSize = true +Me.Label115.Location = New System.Drawing.Point(12, 58) +Me.Label115.Name = "Label115" +Me.Label115.Size = New System.Drawing.Size(54, 13) +Me.Label115.TabIndex = 171 +Me.Label115.Text = "Stop URL" +' +'TBWebStop +' +Me.TBWebStop.Location = New System.Drawing.Point(10, 72) +Me.TBWebStop.Name = "TBWebStop" +Me.TBWebStop.Size = New System.Drawing.Size(381, 20) +Me.TBWebStop.TabIndex = 170 +' +'TBWebStart +' +Me.TBWebStart.Location = New System.Drawing.Point(10, 33) +Me.TBWebStart.Name = "TBWebStart" +Me.TBWebStart.Size = New System.Drawing.Size(381, 20) +Me.TBWebStart.TabIndex = 167 +' +'Label114 +' +Me.Label114.AutoSize = true +Me.Label114.Location = New System.Drawing.Point(12, 17) +Me.Label114.Name = "Label114" +Me.Label114.Size = New System.Drawing.Size(54, 13) +Me.Label114.TabIndex = 168 +Me.Label114.Text = "Start URL" +' +'PictureBox9 +' +Me.PictureBox9.BackColor = System.Drawing.Color.LightGray +Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox9.Location = New System.Drawing.Point(9, 6) +Me.PictureBox9.Name = "PictureBox9" +Me.PictureBox9.Size = New System.Drawing.Size(160, 19) +Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox9.TabIndex = 166 +Me.PictureBox9.TabStop = false +' +'Label148 +' +Me.Label148.BackColor = System.Drawing.Color.Transparent +Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label148.ForeColor = System.Drawing.Color.Black +Me.Label148.Location = New System.Drawing.Point(7, 6) +Me.Label148.Name = "Label148" +Me.Label148.Size = New System.Drawing.Size(692, 21) +Me.Label148.TabIndex = 48 +Me.Label148.Text = "Miscellaneous Settings" +Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage28 +' +Me.TabPage28.BackColor = System.Drawing.Color.Silver +Me.TabPage28.Controls.Add(Me.TabControl3) +Me.TabPage28.Location = New System.Drawing.Point(4, 22) +Me.TabPage28.Name = "TabPage28" +Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage28.Size = New System.Drawing.Size(720, 448) +Me.TabPage28.TabIndex = 20 +Me.TabPage28.Text = "Debug" +' +'TabControl3 +' +Me.TabControl3.Controls.Add(Me.TabPage29) +Me.TabControl3.Controls.Add(Me.TabPage30) +Me.TabControl3.Location = New System.Drawing.Point(6, 6) +Me.TabControl3.Name = "TabControl3" +Me.TabControl3.SelectedIndex = 0 +Me.TabControl3.Size = New System.Drawing.Size(708, 437) +Me.TabControl3.TabIndex = 0 +' +'TabPage29 +' +Me.TabPage29.BackColor = System.Drawing.Color.LightGray +Me.TabPage29.Controls.Add(Me.Label143) +Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) +Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) +Me.TabPage29.Controls.Add(Me.GroupBox26) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) +Me.TabPage29.Controls.Add(Me.Label145) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) +Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) +Me.TabPage29.Controls.Add(Me.Label142) +Me.TabPage29.Controls.Add(Me.Label150) +Me.TabPage29.Controls.Add(Me.Label152) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) +Me.TabPage29.Controls.Add(Me.Label147) +Me.TabPage29.Location = New System.Drawing.Point(4, 22) +Me.TabPage29.Name = "TabPage29" +Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage29.Size = New System.Drawing.Size(700, 411) +Me.TabPage29.TabIndex = 0 +Me.TabPage29.Text = "TabPage29" +' +'Label143 +' +Me.Label143.Location = New System.Drawing.Point(402, 46) +Me.Label143.Name = "Label143" +Me.Label143.Size = New System.Drawing.Size(67, 23) +Me.Label143.TabIndex = 15 +Me.Label143.Text = "Script Timer" +Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugScriptTime +' +Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) +Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" +Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugScriptTime.TabIndex = 16 +Me.LBLDebugScriptTime.Text = "0" +Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDebugHoldEdgeTimer +' +Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) +Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" +Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugHoldEdgeTimer.TabIndex = 14 +Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" +Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true +' +'GroupBox26 +' +Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) +Me.GroupBox26.Controls.Add(Me.Button19) +Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) +Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) +Me.GroupBox26.Location = New System.Drawing.Point(6, 5) +Me.GroupBox26.Name = "GroupBox26" +Me.GroupBox26.Size = New System.Drawing.Size(346, 178) +Me.GroupBox26.TabIndex = 0 +Me.GroupBox26.TabStop = false +Me.GroupBox26.Text = "Taunt Cycle" +' +'LBLCycleDebugCountdown +' +Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) +Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" +Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) +Me.LBLCycleDebugCountdown.TabIndex = 10 +Me.LBLCycleDebugCountdown.Text = "0" +Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Button19 +' +Me.Button19.Location = New System.Drawing.Point(191, 142) +Me.Button19.Name = "Button19" +Me.Button19.Size = New System.Drawing.Size(146, 30) +Me.Button19.TabIndex = 9 +Me.Button19.Text = "Countdown to 5 Seconds" +Me.Button19.UseVisualStyleBackColor = true +' +'BTNDebugTauntsClear +' +Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) +Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" +Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) +Me.BTNDebugTauntsClear.TabIndex = 8 +Me.BTNDebugTauntsClear.Text = "Clear" +Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true +' +'TBDebugTaunts3 +' +Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) +Me.TBDebugTaunts3.Name = "TBDebugTaunts3" +Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts3.TabIndex = 7 +' +'TBDebugTaunts2 +' +Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) +Me.TBDebugTaunts2.Name = "TBDebugTaunts2" +Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts2.TabIndex = 6 +' +'TBDebugTaunts1 +' +Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) +Me.TBDebugTaunts1.Name = "TBDebugTaunts1" +Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts1.TabIndex = 5 +' +'RBDebugTaunts3 +' +Me.RBDebugTaunts3.AutoSize = true +Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) +Me.RBDebugTaunts3.Name = "RBDebugTaunts3" +Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts3.TabIndex = 4 +Me.RBDebugTaunts3.Text = "3 Lines" +Me.RBDebugTaunts3.UseVisualStyleBackColor = true +' +'RBDebugTaunts2 +' +Me.RBDebugTaunts2.AutoSize = true +Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) +Me.RBDebugTaunts2.Name = "RBDebugTaunts2" +Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts2.TabIndex = 3 +Me.RBDebugTaunts2.Text = "2 Lines" +Me.RBDebugTaunts2.UseVisualStyleBackColor = true +' +'RBDebugTaunts1 +' +Me.RBDebugTaunts1.AutoSize = true +Me.RBDebugTaunts1.Checked = true +Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) +Me.RBDebugTaunts1.Name = "RBDebugTaunts1" +Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) +Me.RBDebugTaunts1.TabIndex = 2 +Me.RBDebugTaunts1.TabStop = true +Me.RBDebugTaunts1.Text = "1 Line" +Me.RBDebugTaunts1.UseVisualStyleBackColor = true +' +'CBDebugTauntsEndless +' +Me.CBDebugTauntsEndless.AutoSize = true +Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) +Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" +Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) +Me.CBDebugTauntsEndless.TabIndex = 1 +Me.CBDebugTauntsEndless.Text = "Endless Cycle" +Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true +' +'CBDebugTaunts +' +Me.CBDebugTaunts.AutoSize = true +Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) +Me.CBDebugTaunts.Name = "CBDebugTaunts" +Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) +Me.CBDebugTaunts.TabIndex = 0 +Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" +Me.CBDebugTaunts.UseVisualStyleBackColor = true +' +'BTNDebugStrokeTauntTimer +' +Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) +Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" +Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTauntTimer.TabIndex = 8 +Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" +Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true +' +'LBLDebugHoldEdgeTime +' +Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) +Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" +Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugHoldEdgeTime.TabIndex = 13 +Me.LBLDebugHoldEdgeTime.Text = "0" +Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label145 +' +Me.Label145.Location = New System.Drawing.Point(402, 11) +Me.Label145.Name = "Label145" +Me.Label145.Size = New System.Drawing.Size(67, 23) +Me.Label145.TabIndex = 3 +Me.Label145.Text = "Tease Timer" +Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDebugStrokeTime +' +Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) +Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" +Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTime.TabIndex = 2 +Me.BTNDebugStrokeTime.Text = "Set to 5" +Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true +' +'BTNDebugEdgeTauntTimer +' +Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) +Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" +Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugEdgeTauntTimer.TabIndex = 11 +Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" +Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true +' +'LBLDebugTeaseTime +' +Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) +Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" +Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugTeaseTime.TabIndex = 4 +Me.LBLDebugTeaseTime.Text = "0" +Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugStrokeTime +' +Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) +Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" +Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTime.TabIndex = 1 +Me.LBLDebugStrokeTime.Text = "0" +Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugEdgeTauntTime +' +Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) +Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" +Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugEdgeTauntTime.TabIndex = 10 +Me.LBLDebugEdgeTauntTime.Text = "0" +Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDebugTeaseTimer +' +Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) +Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" +Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugTeaseTimer.TabIndex = 5 +Me.BTNDebugTeaseTimer.Text = "Set to 5" +Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true +' +'Label142 +' +Me.Label142.Location = New System.Drawing.Point(402, 121) +Me.Label142.Name = "Label142" +Me.Label142.Size = New System.Drawing.Size(67, 23) +Me.Label142.TabIndex = 0 +Me.Label142.Text = "Stroke Timer" +Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label150 +' +Me.Label150.Location = New System.Drawing.Point(402, 206) +Me.Label150.Name = "Label150" +Me.Label150.Size = New System.Drawing.Size(67, 27) +Me.Label150.TabIndex = 9 +Me.Label150.Text = "Edge Taunt Timer" +Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label152 +' +Me.Label152.Location = New System.Drawing.Point(402, 238) +Me.Label152.Name = "Label152" +Me.Label152.Size = New System.Drawing.Size(67, 40) +Me.Label152.TabIndex = 12 +Me.Label152.Text = "Hold Edge Timer" +Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugStrokeTauntTime +' +Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) +Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" +Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTauntTime.TabIndex = 7 +Me.LBLDebugStrokeTauntTime.Text = "0" +Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label147 +' +Me.Label147.Location = New System.Drawing.Point(402, 143) +Me.Label147.Name = "Label147" +Me.Label147.Size = New System.Drawing.Size(67, 29) +Me.Label147.TabIndex = 6 +Me.Label147.Text = "Stroke Taunt Timer" +Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage30 +' +Me.TabPage30.BackColor = System.Drawing.Color.LightGray +Me.TabPage30.Controls.Add(Me.Button33) +Me.TabPage30.Controls.Add(Me.Button24) +Me.TabPage30.Location = New System.Drawing.Point(4, 22) +Me.TabPage30.Name = "TabPage30" +Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage30.Size = New System.Drawing.Size(700, 411) +Me.TabPage30.TabIndex = 1 +Me.TabPage30.Text = "TabPage30" +' +'Button33 +' +Me.Button33.Location = New System.Drawing.Point(6, 35) +Me.Button33.Name = "Button33" +Me.Button33.Size = New System.Drawing.Size(75, 23) +Me.Button33.TabIndex = 1 +Me.Button33.Text = "LoadState" +Me.Button33.UseVisualStyleBackColor = true +' +'Button24 +' +Me.Button24.Location = New System.Drawing.Point(6, 6) +Me.Button24.Name = "Button24" +Me.Button24.Size = New System.Drawing.Size(75, 23) +Me.Button24.TabIndex = 0 +Me.Button24.Text = "SaveState" +Me.Button24.UseVisualStyleBackColor = true +' +'TabPage5 +' +Me.TabPage5.BackColor = System.Drawing.Color.Silver +Me.TabPage5.Controls.Add(Me.Panel5) +Me.TabPage5.Location = New System.Drawing.Point(4, 22) +Me.TabPage5.Name = "TabPage5" +Me.TabPage5.Size = New System.Drawing.Size(720, 448) +Me.TabPage5.TabIndex = 17 +Me.TabPage5.Text = "About" +' +'Panel5 +' +Me.Panel5.BackColor = System.Drawing.Color.LightGray +Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel5.Controls.Add(Me.Label130) +Me.Panel5.Controls.Add(Me.Label123) +Me.Panel5.Controls.Add(Me.Label69) +Me.Panel5.Controls.Add(Me.Label113) +Me.Panel5.Controls.Add(Me.Label40) +Me.Panel5.Controls.Add(Me.Label35) +Me.Panel5.Controls.Add(Me.Label33) +Me.Panel5.Controls.Add(Me.Label17) +Me.Panel5.Controls.Add(Me.Label3) +Me.Panel5.Controls.Add(Me.PictureBox3) +Me.Panel5.Controls.Add(Me.Label41) +Me.Panel5.Location = New System.Drawing.Point(6, 6) +Me.Panel5.Name = "Panel5" +Me.Panel5.Size = New System.Drawing.Size(708, 437) +Me.Panel5.TabIndex = 92 +' +'Label130 +' +Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label130.Location = New System.Drawing.Point(361, 314) +Me.Label130.Name = "Label130" +Me.Label130.Size = New System.Drawing.Size(254, 54) +Me.Label130.TabIndex = 176 +Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label123 +' +Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label123.Location = New System.Drawing.Point(81, 314) +Me.Label123.Name = "Label123" +Me.Label123.Size = New System.Drawing.Size(254, 54) +Me.Label123.TabIndex = 175 +Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" +Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label69 +' +Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label69.Location = New System.Drawing.Point(35, 295) +Me.Label69.Name = "Label69" +Me.Label69.Size = New System.Drawing.Size(638, 22) +Me.Label69.TabIndex = 174 +Me.Label69.Text = "Triple Alfa" +Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label113 +' +Me.Label113.AutoSize = true +Me.Label113.Location = New System.Drawing.Point(4, 417) +Me.Label113.Name = "Label113" +Me.Label113.Size = New System.Drawing.Size(452, 13) +Me.Label113.TabIndex = 173 +Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ + "pective owners." +' +'Label40 +' +Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label40.Location = New System.Drawing.Point(35, 273) +Me.Label40.Name = "Label40" +Me.Label40.Size = New System.Drawing.Size(638, 24) +Me.Label40.TabIndex = 171 +Me.Label40.Text = "Special Thanks" +Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label35 +' +Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label35.Location = New System.Drawing.Point(32, 107) +Me.Label35.Name = "Label35" +Me.Label35.Size = New System.Drawing.Size(641, 77) +Me.Label35.TabIndex = 170 +Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ + "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ + "dditional files separately." +Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label33 +' +Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label33.Location = New System.Drawing.Point(32, 191) +Me.Label33.Name = "Label33" +Me.Label33.Size = New System.Drawing.Size(641, 77) +Me.Label33.TabIndex = 169 +Me.Label33.Text = resources.GetString("Label33.Text") +Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label17 +' +Me.Label17.AutoSize = true +Me.Label17.Location = New System.Drawing.Point(522, 78) +Me.Label17.Name = "Label17" +Me.Label17.Size = New System.Drawing.Size(93, 13) +Me.Label17.TabIndex = 168 +Me.Label17.Text = "Designed by 1885" +' +'Label3 +' +Me.Label3.AutoSize = true +Me.Label3.Location = New System.Drawing.Point(489, 417) +Me.Label3.Name = "Label3" +Me.Label3.Size = New System.Drawing.Size(215, 13) +Me.Label3.TabIndex = 167 +Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" +' +'PictureBox3 +' +Me.PictureBox3.BackColor = System.Drawing.Color.LightGray +Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big +Me.PictureBox3.Location = New System.Drawing.Point(84, 17) +Me.PictureBox3.Name = "PictureBox3" +Me.PictureBox3.Size = New System.Drawing.Size(531, 58) +Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PictureBox3.TabIndex = 166 +Me.PictureBox3.TabStop = false +' +'Label41 +' +Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label41.Location = New System.Drawing.Point(35, 372) +Me.Label41.Name = "Label41" +Me.Label41.Size = New System.Drawing.Size(638, 39) +Me.Label41.TabIndex = 172 +Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ + "nity who's been supportive of my work over the years. Tease AI exists because of"& _ + " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'GroupBox47 +' +Me.GroupBox47.BackColor = System.Drawing.Color.LightGray +Me.GroupBox47.Controls.Add(Me.GroupBox41) +Me.GroupBox47.Controls.Add(Me.GroupBox40) +Me.GroupBox47.ForeColor = System.Drawing.Color.Black +Me.GroupBox47.Location = New System.Drawing.Point(806, 255) +Me.GroupBox47.Name = "GroupBox47" +Me.GroupBox47.Size = New System.Drawing.Size(310, 190) +Me.GroupBox47.TabIndex = 63 +Me.GroupBox47.TabStop = false +Me.GroupBox47.Text = "Boobs and Butts Paths" +' +'GroupBox41 +' +Me.GroupBox41.Controls.Add(Me.Button34) +Me.GroupBox41.Location = New System.Drawing.Point(6, 110) +Me.GroupBox41.Name = "GroupBox41" +Me.GroupBox41.Size = New System.Drawing.Size(298, 74) +Me.GroupBox41.TabIndex = 153 +Me.GroupBox41.TabStop = false +Me.GroupBox41.Text = "Butts" +' +'Button34 +' +Me.Button34.BackColor = System.Drawing.Color.LightGray +Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.Button34.ForeColor = System.Drawing.Color.Black +Me.Button34.Location = New System.Drawing.Point(85, 25) +Me.Button34.Name = "Button34" +Me.Button34.Size = New System.Drawing.Size(34, 28) +Me.Button34.TabIndex = 131 +Me.Button34.Text = "1" +Me.Button34.UseVisualStyleBackColor = false +' +'GroupBox40 +' +Me.GroupBox40.Location = New System.Drawing.Point(5, 35) +Me.GroupBox40.Name = "GroupBox40" +Me.GroupBox40.Size = New System.Drawing.Size(298, 74) +Me.GroupBox40.TabIndex = 152 +Me.GroupBox40.TabStop = false +Me.GroupBox40.Text = "Boobs" +' +'GroupBox44 +' +Me.GroupBox44.BackColor = System.Drawing.Color.LightGray +Me.GroupBox44.Controls.Add(Me.Label100) +Me.GroupBox44.ForeColor = System.Drawing.Color.Black +Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) +Me.GroupBox44.Name = "GroupBox44" +Me.GroupBox44.Size = New System.Drawing.Size(310, 92) +Me.GroupBox44.TabIndex = 65 +Me.GroupBox44.TabStop = false +Me.GroupBox44.Text = "Description" +' +'Label100 +' +Me.Label100.BackColor = System.Drawing.Color.Transparent +Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label100.ForeColor = System.Drawing.Color.Black +Me.Label100.Location = New System.Drawing.Point(11, 16) +Me.Label100.Name = "Label100" +Me.Label100.Size = New System.Drawing.Size(286, 73) +Me.Label100.TabIndex = 62 +Me.Label100.Text = resources.GetString("Label100.Text") +Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox6 +' +Me.GroupBox6.Controls.Add(Me.Label4) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) +Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) +Me.GroupBox6.Controls.Add(Me.Label94) +Me.GroupBox6.Controls.Add(Me.LBLLastRuined) +Me.GroupBox6.Controls.Add(Me.Label65) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) +Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) +Me.GroupBox6.Controls.Add(Me.Label14) +Me.GroupBox6.Controls.Add(Me.Label13) +Me.GroupBox6.Controls.Add(Me.Label1) +Me.GroupBox6.Location = New System.Drawing.Point(27, 114) +Me.GroupBox6.Name = "GroupBox6" +Me.GroupBox6.Size = New System.Drawing.Size(283, 102) +Me.GroupBox6.TabIndex = 156 +Me.GroupBox6.TabStop = false +Me.GroupBox6.Text = "Performance" +' +'Label4 +' +Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label4.Location = New System.Drawing.Point(26, 16) +Me.Label4.Name = "Label4" +Me.Label4.Size = New System.Drawing.Size(77, 17) +Me.Label4.TabIndex = 147 +Me.Label4.Text = "Stroking Time" +Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLAvgEdgeStroking +' +Me.LBLAvgEdgeStroking.AutoSize = true +Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) +Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" +Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeStroking.TabIndex = 144 +Me.LBLAvgEdgeStroking.Text = "00:00" +Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLStrokeTimeTotal +' +Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) +Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" +Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) +Me.LBLStrokeTimeTotal.TabIndex = 148 +Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" +Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label94 +' +Me.Label94.BackColor = System.Drawing.Color.Transparent +Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label94.ForeColor = System.Drawing.Color.Black +Me.Label94.Location = New System.Drawing.Point(189, 16) +Me.Label94.Name = "Label94" +Me.Label94.Size = New System.Drawing.Size(65, 17) +Me.Label94.TabIndex = 150 +Me.Label94.Text = "Last Ruined" +Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLLastRuined +' +Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) +Me.LBLLastRuined.Name = "LBLLastRuined" +Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) +Me.LBLLastRuined.TabIndex = 152 +Me.LBLLastRuined.Text = "04/28/2015" +Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label65 +' +Me.Label65.BackColor = System.Drawing.Color.Transparent +Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label65.ForeColor = System.Drawing.Color.Black +Me.Label65.Location = New System.Drawing.Point(103, 16) +Me.Label65.Name = "Label65" +Me.Label65.Size = New System.Drawing.Size(85, 17) +Me.Label65.TabIndex = 149 +Me.Label65.Text = "Last Orgasm" +Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLAvgEdgeNoTouch +' +Me.LBLAvgEdgeNoTouch.AutoSize = true +Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) +Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" +Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeNoTouch.TabIndex = 146 +Me.LBLAvgEdgeNoTouch.Text = "00:00" +Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLLastOrgasm +' +Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) +Me.LBLLastOrgasm.Name = "LBLLastOrgasm" +Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) +Me.LBLLastOrgasm.TabIndex = 151 +Me.LBLLastOrgasm.Text = "04/28/2015" +Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label14 +' +Me.Label14.BackColor = System.Drawing.Color.Transparent +Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label14.ForeColor = System.Drawing.Color.Black +Me.Label14.Location = New System.Drawing.Point(25, 48) +Me.Label14.Name = "Label14" +Me.Label14.Size = New System.Drawing.Size(238, 17) +Me.Label14.TabIndex = 138 +Me.Label14.Text = "Average Time to Edge" +Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label13 +' +Me.Label13.AutoSize = true +Me.Label13.Location = New System.Drawing.Point(177, 68) +Me.Label13.Name = "Label13" +Me.Label13.Size = New System.Drawing.Size(32, 13) +Me.Label13.TabIndex = 145 +Me.Label13.Text = "Rest:" +Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label1 +' +Me.Label1.AutoSize = true +Me.Label1.Location = New System.Drawing.Point(28, 68) +Me.Label1.Name = "Label1" +Me.Label1.Size = New System.Drawing.Size(79, 13) +Me.Label1.TabIndex = 143 +Me.Label1.Text = "While Stroking:" +Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox21 +' +Me.GroupBox21.BackColor = System.Drawing.Color.LightGray +Me.GroupBox21.Controls.Add(Me.Label153) +Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) +Me.GroupBox21.Controls.Add(Me.GroupBox6) +Me.GroupBox21.Controls.Add(Me.Label156) +Me.GroupBox21.ForeColor = System.Drawing.Color.Black +Me.GroupBox21.Location = New System.Drawing.Point(797, 55) +Me.GroupBox21.Name = "GroupBox21" +Me.GroupBox21.Size = New System.Drawing.Size(316, 136) +Me.GroupBox21.TabIndex = 66 +Me.GroupBox21.TabStop = false +Me.GroupBox21.Text = "Description" +' +'Label153 +' +Me.Label153.BackColor = System.Drawing.Color.Transparent +Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label153.ForeColor = System.Drawing.Color.Black +Me.Label153.Location = New System.Drawing.Point(78, 94) +Me.Label153.Name = "Label153" +Me.Label153.Size = New System.Drawing.Size(158, 17) +Me.Label153.TabIndex = 135 +Me.Label153.Text = "No path selected" +Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLRangeSettingsDescription +' +Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) +Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" +Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) +Me.LBLRangeSettingsDescription.TabIndex = 62 +Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label156 +' +Me.Label156.BackColor = System.Drawing.Color.Transparent +Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label156.ForeColor = System.Drawing.Color.Black +Me.Label156.Location = New System.Drawing.Point(133, 23) +Me.Label156.Name = "Label156" +Me.Label156.Size = New System.Drawing.Size(158, 17) +Me.Label156.TabIndex = 135 +Me.Label156.Text = "No path selected" +Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox12 +' +Me.GroupBox12.BackColor = System.Drawing.Color.LightGray +Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) +Me.GroupBox12.ForeColor = System.Drawing.Color.Black +Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) +Me.GroupBox12.Name = "GroupBox12" +Me.GroupBox12.Size = New System.Drawing.Size(171, 124) +Me.GroupBox12.TabIndex = 65 +Me.GroupBox12.TabStop = false +Me.GroupBox12.Text = "Description" +' +'LBLSubSettingsDescription +' +Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) +Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" +Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) +Me.LBLSubSettingsDescription.TabIndex = 62 +Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +' +'OpenFileDialog1 +' +Me.OpenFileDialog1.FileName = "OpenFileDialog1" +Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ + "s (*.*)|*.*" +Me.OpenFileDialog1.Title = "Select an image file" +' +'GetColor +' +Me.GetColor.Color = System.Drawing.Color.SteelBlue +' +'WebImageFileDialog +' +Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.WebImageFileDialog.Title = "Please select a URL File" +' +'OpenScriptDialog +' +Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenScriptDialog.Title = "Please select a script" +' +'OpenSettingsDialog +' +Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenSettingsDialog.Title = "Please select a settings file to open" +' +'SaveSettingsDialog +' +Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" +' +'GroupBox65 +' +Me.GroupBox65.BackColor = System.Drawing.Color.LightGray +Me.GroupBox65.Controls.Add(Me.Label136) +Me.GroupBox65.Controls.Add(Me.Label134) +Me.GroupBox65.Controls.Add(Me.Label132) +Me.GroupBox65.Controls.Add(Me.TrackBar1) +Me.GroupBox65.Controls.Add(Me.ComboBox1) +Me.GroupBox65.Controls.Add(Me.CheckBox1) +Me.GroupBox65.Controls.Add(Me.Label135) +Me.GroupBox65.Controls.Add(Me.TrackBar2) +Me.GroupBox65.ForeColor = System.Drawing.Color.Black +Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) +Me.GroupBox65.Name = "GroupBox65" +Me.GroupBox65.Size = New System.Drawing.Size(259, 117) +Me.GroupBox65.TabIndex = 157 +Me.GroupBox65.TabStop = false +Me.GroupBox65.Text = "Text to Speech" +' +'Label136 +' +Me.Label136.AutoSize = true +Me.Label136.Location = New System.Drawing.Point(14, 52) +Me.Label136.Name = "Label136" +Me.Label136.Size = New System.Drawing.Size(45, 13) +Me.Label136.TabIndex = 32 +Me.Label136.Text = "Volume:" +' +'Label134 +' +Me.Label134.AutoSize = true +Me.Label134.Location = New System.Drawing.Point(141, 52) +Me.Label134.Name = "Label134" +Me.Label134.Size = New System.Drawing.Size(33, 13) +Me.Label134.TabIndex = 157 +Me.Label134.Text = "Rate:" +' +'Label132 +' +Me.Label132.Location = New System.Drawing.Point(202, 52) +Me.Label132.Name = "Label132" +Me.Label132.Size = New System.Drawing.Size(45, 13) +Me.Label132.TabIndex = 158 +Me.Label132.Text = "100" +Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'TrackBar1 +' +Me.TrackBar1.Location = New System.Drawing.Point(133, 68) +Me.TrackBar1.Minimum = -10 +Me.TrackBar1.Name = "TrackBar1" +Me.TrackBar1.Size = New System.Drawing.Size(120, 45) +Me.TrackBar1.TabIndex = 31 +' +'ComboBox1 +' +Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window +Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText +Me.ComboBox1.FormattingEnabled = true +Me.ComboBox1.Location = New System.Drawing.Point(71, 16) +Me.ComboBox1.Name = "ComboBox1" +Me.ComboBox1.Size = New System.Drawing.Size(178, 21) +Me.ComboBox1.TabIndex = 29 +Me.ComboBox1.TabStop = false +' +'CheckBox1 +' +Me.CheckBox1.AutoSize = true +Me.CheckBox1.ForeColor = System.Drawing.Color.Black +Me.CheckBox1.Location = New System.Drawing.Point(10, 18) +Me.CheckBox1.Name = "CheckBox1" +Me.CheckBox1.Size = New System.Drawing.Size(59, 17) +Me.CheckBox1.TabIndex = 28 +Me.CheckBox1.TabStop = false +Me.CheckBox1.Text = "Enable" +Me.CheckBox1.UseVisualStyleBackColor = true +' +'Label135 +' +Me.Label135.Location = New System.Drawing.Point(75, 52) +Me.Label135.Name = "Label135" +Me.Label135.Size = New System.Drawing.Size(45, 13) +Me.Label135.TabIndex = 33 +Me.Label135.Text = "100" +Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'TrackBar2 +' +Me.TrackBar2.Location = New System.Drawing.Point(6, 68) +Me.TrackBar2.Maximum = 100 +Me.TrackBar2.Name = "TrackBar2" +Me.TrackBar2.Size = New System.Drawing.Size(120, 45) +Me.TrackBar2.TabIndex = 30 +Me.TrackBar2.Value = 50 +' +'TxbImgUrlHardcore +' +Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) +Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" +Me.TxbImgUrlHardcore.ReadOnly = true +Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) +Me.TxbImgUrlHardcore.TabIndex = 145 +' +'TextBox2 +' +Me.TextBox2.BackColor = System.Drawing.Color.LightGray +Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill +Me.TextBox2.Location = New System.Drawing.Point(116, 34) +Me.TextBox2.Name = "TextBox2" +Me.TextBox2.ReadOnly = true +Me.TextBox2.Size = New System.Drawing.Size(189, 20) +Me.TextBox2.TabIndex = 145 +' +'BWURLFiles +' +Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" +Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" +Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" +Me.BWURLFiles.WorkerReportsProgress = true +Me.BWURLFiles.WorkerSupportsCancellation = true +' +'FrmSettings +' +Me.AllowDrop = true +Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) +Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font +Me.ClientSize = New System.Drawing.Size(727, 465) +Me.Controls.Add(Me.GroupBox65) +Me.Controls.Add(Me.GroupBox44) +Me.Controls.Add(Me.GroupBox47) +Me.Controls.Add(Me.SettingsPanel) +Me.Controls.Add(Me.GroupBox12) +Me.Controls.Add(Me.GroupBox21) +Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D +Me.MaximizeBox = false +Me.MinimizeBox = false +Me.Name = "FrmSettings" +Me.ShowIcon = false +Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen +Me.Text = "Tease AI Settings" +Me.SettingsPanel.ResumeLayout(false) +Me.SettingsTabs.ResumeLayout(false) +Me.TabPage1.ResumeLayout(false) +Me.PNLGeneralSettings.ResumeLayout(false) +Me.PNLGeneralSettings.PerformLayout +Me.GroupBox2.ResumeLayout(false) +Me.GroupBox2.PerformLayout +Me.GroupBox64.ResumeLayout(false) +Me.GroupBox64.PerformLayout +Me.GBDommeImages.ResumeLayout(false) +Me.GBDommeImages.PerformLayout +CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGeneralTextToSpeech.ResumeLayout(false) +Me.GBGeneralTextToSpeech.PerformLayout +CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).EndInit +Me.GBSafeword.ResumeLayout(false) +Me.GBSafeword.PerformLayout +Me.GBGeneralSystem.ResumeLayout(false) +Me.GBGeneralSystem.PerformLayout +Me.GBGeneralImages.ResumeLayout(false) +Me.GBGeneralImages.PerformLayout +CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGeneralSettings.ResumeLayout(false) +Me.GBGeneralSettings.PerformLayout +Me.GBSubFont.ResumeLayout(false) +CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDommeFont.ResumeLayout(false) +CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage2.ResumeLayout(false) +Me.Panel3.ResumeLayout(false) +Me.Panel3.PerformLayout +Me.GBGiveUp.ResumeLayout(false) +Me.GBGiveUp.PerformLayout +CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomTypingStyle.ResumeLayout(false) +Me.GBDomTypingStyle.PerformLayout +CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox63.ResumeLayout(false) +Me.GroupBox63.PerformLayout +Me.GBDomRanges.ResumeLayout(false) +CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomStats.ResumeLayout(false) +Me.GBDomStats.PerformLayout +CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomPersonality.ResumeLayout(false) +Me.GBDomPersonality.PerformLayout +Me.GBDomOrgasms.ResumeLayout(false) +Me.GBDomOrgasms.PerformLayout +CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomPetNames.ResumeLayout(false) +Me.GBDomPetNames.PerformLayout +Me.TabPage10.ResumeLayout(false) +Me.Panel2.ResumeLayout(false) +Me.GroupBox22.ResumeLayout(false) +CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox45.ResumeLayout(false) +CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox35.ResumeLayout(false) +Me.GroupBox39.ResumeLayout(false) +Me.GroupBox39.PerformLayout +Me.GroupBox38.ResumeLayout(false) +Me.GroupBox38.PerformLayout +Me.GroupBox37.ResumeLayout(false) +Me.GroupBox37.PerformLayout +Me.GroupBox36.ResumeLayout(false) +Me.GroupBox36.PerformLayout +Me.GroupBox13.ResumeLayout(false) +Me.GroupBox7.ResumeLayout(false) +Me.GroupBox7.PerformLayout +CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox32.ResumeLayout(false) +Me.GroupBox32.PerformLayout +CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage16.ResumeLayout(false) +Me.Panel9.ResumeLayout(false) +Me.GroupBox31.ResumeLayout(false) +Me.TCScripts.ResumeLayout(false) +Me.TabPage21.ResumeLayout(false) +Me.TabPage17.ResumeLayout(false) +Me.TabPage18.ResumeLayout(false) +Me.TabPage19.ResumeLayout(false) +Me.GroupBox42.ResumeLayout(false) +CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox43.ResumeLayout(false) +Me.TabPage7.ResumeLayout(false) +Me.TabControl4.ResumeLayout(false) +Me.TpImagesUrlFiles.ResumeLayout(false) +Me.TpImagesUrlFiles.PerformLayout +Me.GroupBox66.ResumeLayout(false) +CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).EndInit +Me.TpImagesGenre.ResumeLayout(false) +Me.GrbImageUrlFiles.ResumeLayout(false) +Me.TlpImageUrls.ResumeLayout(false) +Me.TlpImageUrls.PerformLayout +Me.GbxImagesGenre.ResumeLayout(false) +Me.TableLayoutPanel1.ResumeLayout(false) +Me.TableLayoutPanel1.PerformLayout +Me.TabPage33.ResumeLayout(false) +Me.TabControl5.ResumeLayout(false) +Me.TabPage34.ResumeLayout(false) +Me.TabPage34.PerformLayout +CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage35.ResumeLayout(false) +Me.TabPage35.PerformLayout +Me.GroupBox55.ResumeLayout(false) +Me.GroupBox55.PerformLayout +Me.GroupBox53.ResumeLayout(false) +Me.GroupBox53.PerformLayout +Me.GroupBox49.ResumeLayout(false) +Me.GroupBox49.PerformLayout +Me.GroupBox46.ResumeLayout(false) +Me.GroupBox46.PerformLayout +Me.GroupBox54.ResumeLayout(false) +Me.GroupBox54.PerformLayout +Me.GroupBox51.ResumeLayout(false) +Me.GroupBox51.PerformLayout +Me.GroupBox50.ResumeLayout(false) +Me.GroupBox50.PerformLayout +Me.GroupBox48.ResumeLayout(false) +Me.GroupBox48.PerformLayout +Me.TabPage11.ResumeLayout(false) +Me.Panel7.ResumeLayout(false) +Me.Panel7.PerformLayout +CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).EndInit +Me.TpVideoSettings.ResumeLayout(false) +Me.PnlVideoSettings.ResumeLayout(false) +CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxVideoGeneralD.ResumeLayout(false) +Me.GbxVideoGeneralD.PerformLayout +Me.GbxVideoSpecialD.ResumeLayout(false) +Me.GbxVideoSpecialD.PerformLayout +Me.GbxVideoGenreD.ResumeLayout(false) +Me.GbxVideoGenreD.PerformLayout +Me.GbxVideoDescription.ResumeLayout(false) +Me.GbxVideoGeneral.ResumeLayout(false) +Me.GbxVideoGeneral.PerformLayout +Me.GbxVideoSpecial.ResumeLayout(false) +Me.GbxVideoSpecial.PerformLayout +Me.GbxVideoGenre.ResumeLayout(false) +Me.GbxVideoGenre.PerformLayout +Me.TabPage20.ResumeLayout(false) +Me.TabControl1.ResumeLayout(false) +Me.TabPage22.ResumeLayout(false) +Me.PNLGlitter.ResumeLayout(false) +Me.PNLGlitter.PerformLayout +Me.GBGlitterD.ResumeLayout(false) +Me.GBGlitterD.PerformLayout +Me.GrbGlitterfeed.ResumeLayout(false) +Me.GrbGlitterfeed.PerformLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGlitter1.ResumeLayout(false) +Me.GBGlitter1.PerformLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGlitter3.ResumeLayout(false) +Me.GBGlitter3.PerformLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGlitter2.ResumeLayout(false) +Me.GBGlitter2.PerformLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit +Me.TpGames.ResumeLayout(false) +Me.TpGames.PerformLayout +Me.GbxCardsGold.ResumeLayout(false) +Me.GbxCardsGold.PerformLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxCardsBackground.ResumeLayout(false) +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxCardsBronze.ResumeLayout(false) +Me.GbxCardsBronze.PerformLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxCardsSilver.ResumeLayout(false) +Me.GbxCardsSilver.PerformLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage6.ResumeLayout(false) +Me.Panel10.ResumeLayout(false) +Me.Panel10.PerformLayout +CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).EndInit +Me.PNLWishList.ResumeLayout(false) +CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage26.ResumeLayout(false) +Me.Panel12.ResumeLayout(false) +Me.GroupBox9.ResumeLayout(false) +CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox5.ResumeLayout(false) +Me.GroupBox5.PerformLayout +Me.GroupBox11.ResumeLayout(false) +Me.GroupBox1.ResumeLayout(false) +CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage4.ResumeLayout(false) +Me.Panel6.ResumeLayout(false) +Me.GroupBox69.ResumeLayout(false) +Me.GroupBox69.PerformLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox68.ResumeLayout(false) +CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox67.ResumeLayout(false) +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox10.ResumeLayout(false) +CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox57.ResumeLayout(false) +Me.GroupBox57.PerformLayout +CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GBRangeRuinChance.ResumeLayout(false) +Me.GBRangeRuinChance.PerformLayout +CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox17.ResumeLayout(false) +Me.GroupBox19.ResumeLayout(false) +CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox18.ResumeLayout(false) +Me.GroupBox18.PerformLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit +Me.GBRangeOrgasmChance.ResumeLayout(false) +Me.GBRangeOrgasmChance.PerformLayout +CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage13.ResumeLayout(false) +Me.TabControl2.ResumeLayout(false) +Me.TabPage27.ResumeLayout(false) +Me.TabPage27.PerformLayout +Me.TabPage14.ResumeLayout(false) +Me.TabPage14.PerformLayout +Me.TabPage24.ResumeLayout(false) +Me.TabPage24.PerformLayout +Me.TabPage8.ResumeLayout(false) +Me.GroupBox29.ResumeLayout(false) +Me.GroupBox28.ResumeLayout(false) +Me.GroupBox30.ResumeLayout(false) +Me.TabPage15.ResumeLayout(false) +Me.TabPage15.PerformLayout +Me.GroupBox34.ResumeLayout(false) +Me.TabPage25.ResumeLayout(false) +Me.Panel11.ResumeLayout(false) +Me.GroupBox62.ResumeLayout(false) +Me.GroupBox62.PerformLayout +Me.GroupBox33.ResumeLayout(false) +Me.GroupBox27.ResumeLayout(false) +Me.GroupBox27.PerformLayout +Me.GroupBox20.ResumeLayout(false) +Me.GroupBox20.PerformLayout +Me.GroupBox15.ResumeLayout(false) +Me.GroupBox15.PerformLayout +CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage28.ResumeLayout(false) +Me.TabControl3.ResumeLayout(false) +Me.TabPage29.ResumeLayout(false) +Me.GroupBox26.ResumeLayout(false) +Me.GroupBox26.PerformLayout +Me.TabPage30.ResumeLayout(false) +Me.TabPage5.ResumeLayout(false) +Me.Panel5.ResumeLayout(false) +Me.Panel5.PerformLayout +CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox47.ResumeLayout(false) +Me.GroupBox41.ResumeLayout(false) +Me.GroupBox44.ResumeLayout(false) +Me.GroupBox6.ResumeLayout(false) +Me.GroupBox6.PerformLayout +Me.GroupBox21.ResumeLayout(false) +Me.GroupBox12.ResumeLayout(false) +Me.GroupBox65.ResumeLayout(false) +Me.GroupBox65.PerformLayout +CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit +Me.ResumeLayout(false) - End Sub +End Sub Friend WithEvents SettingsPanel As System.Windows.Forms.Panel Friend WithEvents SettingsTabs As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage @@ -15880,8 +15905,7 @@ Partial Class FrmSettings Friend WithEvents TbxContact3ImageDir As System.Windows.Forms.TextBox Friend WithEvents BtnContact2ImageDir As System.Windows.Forms.Button Friend WithEvents TbxContact2ImageDir As System.Windows.Forms.TextBox - Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox - Friend WithEvents BtnRandomImageDir As System.Windows.Forms.Button + Friend WithEvents BtnRandomImageDir As System.Windows.Forms.Button Friend WithEvents BtnRandomImageDirClear As System.Windows.Forms.Button Friend WithEvents CBGlitterFeedOff As System.Windows.Forms.RadioButton Friend WithEvents CBGlitterFeedScripts As System.Windows.Forms.RadioButton @@ -15932,7 +15956,7 @@ Partial Class FrmSettings Friend WithEvents Button31 As System.Windows.Forms.Button Friend WithEvents CBFlipBack As System.Windows.Forms.CheckBox Friend WithEvents Button32 As System.Windows.Forms.Button - Friend WithEvents condescendingCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents CFNMCheckBox As System.Windows.Forms.CheckBox Friend WithEvents degradingCheckBox As System.Windows.Forms.CheckBox Friend WithEvents sadisticCheckBox As System.Windows.Forms.CheckBox Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox @@ -16286,5 +16310,8 @@ Partial Class FrmSettings Friend WithEvents TableLayoutPanel1 As TableLayoutPanel Friend WithEvents GrbGlitterfeed As GroupBox Friend WithEvents GBGiveUp As GroupBox - Friend WithEvents giveupCheckBox As CheckBox + Friend WithEvents giveupCheckBox As CheckBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox + Friend WithEvents CBRandomDomme As System.Windows.Forms.CheckBox End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index a5fad1d..a04ad54 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -412,8 +412,10 @@ Public Class FrmSettings CBAuditStartup.Checked = My.Settings.AuditStartup sadisticCheckBox.Checked = My.Settings.DomSadistic - degradingCheckBox.Checked = My.Settings.DomDegrading - giveupCheckBox.Checked = My.Settings.GiveUpReturn + degradingCheckBox.Checked = My.Settings.DomDegrading + CFNMCheckBox.Checked = My.Settings.DomCFNM + CBRandomDomme.Checked = My.Settings.CBRandomDomme + giveupCheckBox.Checked = My.Settings.GiveUpReturn If CBAuditStartup.Checked = True Then AuditScripts() @@ -3071,9 +3073,9 @@ SkipDeserializing: TTDir.SetToolTip(sender, "This button allows you to change the color of this contact's name as it appears in the Glitter app.") End Sub - Private Sub LBLContact1ImageDir_MouseHover(sender As Object, e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover, TbxRandomImageDir.MouseHover - TTDir.SetToolTip(sender, CType(sender, TextBox).Text) - End Sub + Private Sub LBLContact1ImageDir_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover + TTDir.SetToolTip(sender, CType(sender, TextBox).Text) + End Sub Private Sub Button2_MouseHover(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover, BtnRandomImageDir.MouseHover @@ -7625,7 +7627,8 @@ checkFolder: My.Settings.DomVulgar = vulgarCheckBox.Checked My.Settings.DomSupremacist = supremacistCheckBox.Checked My.Settings.DomSadistic = sadisticCheckBox.Checked - My.Settings.DomDegrading = degradingCheckBox.Checked + My.Settings.DomDegrading = degradingCheckBox.Checked + My.Settings.DomCFNM = CFNMCheckBox.Checked My.Settings.GiveUpReturn = giveupCheckBox.Checked My.Settings.pnSetting1 = petnameBox1.Text My.Settings.pnSetting2 = petnameBox2.Text @@ -7682,7 +7685,8 @@ checkFolder: vulgarCheckBox.Checked = My.Settings.DomVulgar supremacistCheckBox.Checked = My.Settings.DomSupremacist sadisticCheckBox.Checked = My.Settings.DomSadistic - degradingCheckBox.Checked = My.Settings.DomDegrading + degradingCheckBox.Checked = My.Settings.DomDegrading + CFNMCheckBox.Checked = My.Settings.DomCFNM giveupCheckBox.Checked = My.Settings.GiveUpReturn petnameBox1.Text = My.Settings.pnSetting1 petnameBox2.Text = My.Settings.pnSetting2 @@ -9923,6 +9927,13 @@ checkFolder: My.Settings.DomDegrading = degradingCheckBox.Checked End Sub + Private Sub CFNMCheckBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CFNMCheckBox.LostFocus + My.Settings.DomCFNM = CFNMCheckBox.Checked + End Sub + + Private Sub CBRandomDomme_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRandomDomme.LostFocus + My.Settings.CBRandomDomme = CBRandomDomme.Checked + End Sub Private Sub CBWebtease_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBWebtease.CheckedChanged If CBWebtease.Checked = True Then @@ -10295,4 +10306,6 @@ checkFolder: End If End Sub + + End Class \ No newline at end of file diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 2078a62..57f2bec 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' Il codice è stato generato da uno strumento. -' Versione runtime:4.0.30319.42000 +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 ' -' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se -' il codice viene rigenerato. +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. ' '------------------------------------------------------------------------------ @@ -13,5764 +13,5789 @@ Option Explicit On Namespace My - - - 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 "Funzionalità di salvataggio automatico My.Settings" + + _ + 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 addedHandler As Boolean - Private Shared addedHandlerLockObject As New Object + Private Shared addedHandlerLockObject As New Object - - 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 + _ + 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 - + + 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 + 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 - - - Public Property VideoHardcore() As String - Get - Return CType(Me("VideoHardcore"), String) - End Get - Set - Me("VideoHardcore") = value - End Set - End Property - - - Public Property VideoSoftcore() As String - Get - Return CType(Me("VideoSoftcore"), String) - End Get - Set - Me("VideoSoftcore") = value - End Set - End Property - - - Public Property VideoLesbian() As String - Get - Return CType(Me("VideoLesbian"), String) - End Get - Set - Me("VideoLesbian") = value - End Set - End Property - - - Public Property VideoBlowjob() As String - Get - Return CType(Me("VideoBlowjob"), String) - End Get - Set - Me("VideoBlowjob") = value - End Set - End Property - - - Public Property VideoFemdom() As String - Get - Return CType(Me("VideoFemdom"), String) - End Get - Set - Me("VideoFemdom") = value - End Set - End Property - - - Public Property VideoFemsub() As String - Get - Return CType(Me("VideoFemsub"), String) - End Get - Set - Me("VideoFemsub") = value - End Set - End Property - - - Public Property VideoJOI() As String - Get - Return CType(Me("VideoJOI"), String) - End Get - Set - Me("VideoJOI") = value - End Set - End Property - - - Public Property VideoCH() As String - Get - Return CType(Me("VideoCH"), String) - End Get - Set - Me("VideoCH") = value - End Set - End Property - - - Public Property VideoGeneral() As String - Get - Return CType(Me("VideoGeneral"), String) - End Get - Set - Me("VideoGeneral") = value - End Set - End Property - - - Public Property CBHardcore() As Boolean - Get - Return CType(Me("CBHardcore"), Boolean) - End Get - Set - Me("CBHardcore") = value - End Set - End Property - - - Public Property CBSoftcore() As Boolean - Get - Return CType(Me("CBSoftcore"), Boolean) - End Get - Set - Me("CBSoftcore") = value - End Set - End Property - - - Public Property CBLesbian() As Boolean - Get - Return CType(Me("CBLesbian"), Boolean) - End Get - Set - Me("CBLesbian") = value - End Set - End Property - - - Public Property CBBlowjob() As Boolean - Get - Return CType(Me("CBBlowjob"), Boolean) - End Get - Set - Me("CBBlowjob") = value - End Set - End Property - - - Public Property CBFemdom() As Boolean - Get - Return CType(Me("CBFemdom"), Boolean) - End Get - Set - Me("CBFemdom") = value - End Set - End Property - - - Public Property CBFemsub() As Boolean - Get - Return CType(Me("CBFemsub"), Boolean) - End Get - Set - Me("CBFemsub") = value - End Set - End Property - - - Public Property CBJOI() As Boolean - Get - Return CType(Me("CBJOI"), Boolean) - End Get - Set - Me("CBJOI") = value - End Set - End Property - - - Public Property CBCH() As Boolean - Get - Return CType(Me("CBCH"), Boolean) - End Get - Set - Me("CBCH") = value - End Set - End Property - - - Public Property CBGeneral() As Boolean - Get - Return CType(Me("CBGeneral"), Boolean) - End Get - Set - Me("CBGeneral") = value - End Set - End Property - - - Public Property DomAvatarSave() As String - Get - Return CType(Me("DomAvatarSave"), String) - End Get - Set - Me("DomAvatarSave") = value - End Set - End Property - - - Public Property SubAvatarSave() As String - Get - Return CType(Me("SubAvatarSave"), String) - End Get - Set - Me("SubAvatarSave") = value - End Set - End Property - - - Public Property NBCensorShowMin() As Decimal - Get - Return CType(Me("NBCensorShowMin"), Decimal) - End Get - Set - Me("NBCensorShowMin") = value - End Set - End Property - - - Public Property NBCensorShowMax() As Decimal - Get - Return CType(Me("NBCensorShowMax"), Decimal) - End Get - Set - Me("NBCensorShowMax") = value - End Set - End Property - - - Public Property NBCensorHideMin() As Decimal - Get - Return CType(Me("NBCensorHideMin"), Decimal) - End Get - Set - Me("NBCensorHideMin") = value - End Set - End Property - - - Public Property NBCensorHideMax() As Decimal - Get - Return CType(Me("NBCensorHideMax"), Decimal) - End Get - Set - Me("NBCensorHideMax") = value - End Set - End Property - - - Public Property CBCensorConstant() As Boolean - Get - Return CType(Me("CBCensorConstant"), Boolean) - End Get - Set - Me("CBCensorConstant") = value - End Set - End Property - - - Public Property CBHardcoreD() As Boolean - Get - Return CType(Me("CBHardcoreD"), Boolean) - End Get - Set - Me("CBHardcoreD") = value - End Set - End Property - - - Public Property CBSoftcoreD() As Boolean - Get - Return CType(Me("CBSoftcoreD"), Boolean) - End Get - Set - Me("CBSoftcoreD") = value - End Set - End Property - - - Public Property CBLesbianD() As Boolean - Get - Return CType(Me("CBLesbianD"), Boolean) - End Get - Set - Me("CBLesbianD") = value - End Set - End Property - - - Public Property CBBlowjobD() As Boolean - Get - Return CType(Me("CBBlowjobD"), Boolean) - End Get - Set - Me("CBBlowjobD") = value - End Set - End Property - - - Public Property CBFemsubD() As Boolean - Get - Return CType(Me("CBFemsubD"), Boolean) - End Get - Set - Me("CBFemsubD") = value - End Set - End Property - - - Public Property CBJOID() As Boolean - Get - Return CType(Me("CBJOID"), Boolean) - End Get - Set - Me("CBJOID") = value - End Set - End Property - - - Public Property CBCHD() As Boolean - Get - Return CType(Me("CBCHD"), Boolean) - End Get - Set - Me("CBCHD") = value - End Set - End Property - - - Public Property CBGeneralD() As Boolean - Get - Return CType(Me("CBGeneralD"), Boolean) - End Get - Set - Me("CBGeneralD") = value - End Set - End Property - - - Public Property CBFemdomD() As Boolean - Get - Return CType(Me("CBFemdomD"), Boolean) - End Get - Set - Me("CBFemdomD") = value - End Set - End Property - - - Public Property VideoHardcoreD() As String - Get - Return CType(Me("VideoHardcoreD"), String) - End Get - Set - Me("VideoHardcoreD") = value - End Set - End Property - - - Public Property VideoSoftcoreD() As String - Get - Return CType(Me("VideoSoftcoreD"), String) - End Get - Set - Me("VideoSoftcoreD") = value - End Set - End Property - - - Public Property VideoLesbianD() As String - Get - Return CType(Me("VideoLesbianD"), String) - End Get - Set - Me("VideoLesbianD") = value - End Set - End Property - - - Public Property VideoBlowjobD() As String - Get - Return CType(Me("VideoBlowjobD"), String) - End Get - Set - Me("VideoBlowjobD") = value - End Set - End Property - - - Public Property VideoFemdomD() As String - Get - Return CType(Me("VideoFemdomD"), String) - End Get - Set - Me("VideoFemdomD") = value - End Set - End Property - - - Public Property VideoFemsubD() As String - Get - Return CType(Me("VideoFemsubD"), String) - End Get - Set - Me("VideoFemsubD") = value - End Set - End Property - - - Public Property VideoJOID() As String - Get - Return CType(Me("VideoJOID"), String) - End Get - Set - Me("VideoJOID") = value - End Set - End Property - - - Public Property VideoCHD() As String - Get - Return CType(Me("VideoCHD"), String) - End Get - Set - Me("VideoCHD") = value - End Set - End Property - - - Public Property VideoGeneralD() As String - Get - Return CType(Me("VideoGeneralD"), String) - End Get - Set - Me("VideoGeneralD") = value - End Set - End Property - - - Public Property GlitterAV() As String - Get - Return CType(Me("GlitterAV"), String) - End Get - Set - Me("GlitterAV") = value - End Set - End Property - - - Public Property GlitterAV1() As String - Get - Return CType(Me("GlitterAV1"), String) - End Get - Set - Me("GlitterAV1") = value - End Set - End Property - - - Public Property GlitterAV2() As String - Get - Return CType(Me("GlitterAV2"), String) - End Get - Set - Me("GlitterAV2") = value - End Set - End Property - - - Public Property GlitterAV3() As String - Get - Return CType(Me("GlitterAV3"), String) - End Get - Set - Me("GlitterAV3") = value - End Set - End Property - - - Public Property GlitterSN() As String - Get - Return CType(Me("GlitterSN"), String) - End Get - Set - Me("GlitterSN") = value - End Set - End Property - - - Public Property Glitter1() As String - Get - Return CType(Me("Glitter1"), String) - End Get - Set - Me("Glitter1") = value - End Set - End Property - - - Public Property Glitter2() As String - Get - Return CType(Me("Glitter2"), String) - End Get - Set - Me("Glitter2") = value - End Set - End Property - - - Public Property Glitter3() As String - Get - Return CType(Me("Glitter3"), String) - End Get - Set - Me("Glitter3") = value - End Set - End Property - - - Public Property GlitterNCDommeColor() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNCDommeColor"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNCDommeColor") = value - End Set - End Property - - - Public Property GlitterNC1Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC1Color"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC1Color") = value - End Set - End Property - - - Public Property GlitterNC2Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC2Color"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC2Color") = value - End Set - End Property - - - Public Property GlitterNC3Color() As Global.System.Drawing.Color - Get - Return CType(Me("GlitterNC3Color"), Global.System.Drawing.Color) - End Get - Set - Me("GlitterNC3Color") = value - End Set - End Property - - - Public Property GlitterDSlider() As Integer - Get - Return CType(Me("GlitterDSlider"), Integer) - End Get - Set - Me("GlitterDSlider") = value - End Set - End Property - - - Public Property Glitter1Slider() As Integer - Get - Return CType(Me("Glitter1Slider"), Integer) - End Get - Set - Me("Glitter1Slider") = value - End Set - End Property - - - Public Property Glitter2Slider() As Integer - Get - Return CType(Me("Glitter2Slider"), Integer) - End Get - Set - Me("Glitter2Slider") = value - End Set - End Property - - - Public Property Glitter3Slider() As Integer - Get - Return CType(Me("Glitter3Slider"), Integer) - End Get - Set - Me("Glitter3Slider") = value - End Set - End Property - - - Public Property CBGlitterFeed() As Boolean - Get - Return CType(Me("CBGlitterFeed"), Boolean) - End Get - Set - Me("CBGlitterFeed") = value - End Set - End Property - - - Public Property CBGlitter1() As Boolean - Get - Return CType(Me("CBGlitter1"), Boolean) - End Get - Set - Me("CBGlitter1") = value - End Set - End Property - - - Public Property CBGlitter2() As Boolean - Get - Return CType(Me("CBGlitter2"), Boolean) - End Get - Set - Me("CBGlitter2") = value - End Set - End Property - - - Public Property CBGlitter3() As Boolean - Get - Return CType(Me("CBGlitter3"), Boolean) - End Get - Set - Me("CBGlitter3") = value - End Set - End Property - - - Public Property CBTease() As Boolean - Get - Return CType(Me("CBTease"), Boolean) - End Get - Set - Me("CBTease") = value - End Set - End Property - - - Public Property CBEgotist() As Boolean - Get - Return CType(Me("CBEgotist"), Boolean) - End Get - Set - Me("CBEgotist") = value - End Set - End Property - - - Public Property CBTrivia() As Boolean - Get - Return CType(Me("CBTrivia"), Boolean) - End Get - Set - Me("CBTrivia") = value - End Set - End Property - - - Public Property CBDaily() As Boolean - Get - Return CType(Me("CBDaily"), Boolean) - End Get - Set - Me("CBDaily") = value - End Set - End Property - - - Public Property CBCustom1() As Boolean - Get - Return CType(Me("CBCustom1"), Boolean) - End Get - Set - Me("CBCustom1") = value - End Set - End Property - - - Public Property CBCustom2() As Boolean - Get - Return CType(Me("CBCustom2"), Boolean) - End Get - Set - Me("CBCustom2") = value - End Set - End Property - - - Public Property CB1Bratty() As Boolean - Get - Return CType(Me("CB1Bratty"), Boolean) - End Get - Set - Me("CB1Bratty") = value - End Set - End Property - - - Public Property CB1Cruel() As Boolean - Get - Return CType(Me("CB1Cruel"), Boolean) - End Get - Set - Me("CB1Cruel") = value - End Set - End Property - - - Public Property CB1Caring() As Boolean - Get - Return CType(Me("CB1Caring"), Boolean) - End Get - Set - Me("CB1Caring") = value - End Set - End Property - - - Public Property CB1Angry() As Boolean - Get - Return CType(Me("CB1Angry"), Boolean) - End Get - Set - Me("CB1Angry") = value - End Set - End Property - - - Public Property CB1Custom1() As Boolean - Get - Return CType(Me("CB1Custom1"), Boolean) - End Get - Set - Me("CB1Custom1") = value - End Set - End Property - - - Public Property CB1Custom2() As Boolean - Get - Return CType(Me("CB1Custom2"), Boolean) - End Get - Set - Me("CB1Custom2") = value - End Set - End Property - - - Public Property CB2Bratty() As Boolean - Get - Return CType(Me("CB2Bratty"), Boolean) - End Get - Set - Me("CB2Bratty") = value - End Set - End Property - - - Public Property CB2Cruel() As Boolean - Get - Return CType(Me("CB2Cruel"), Boolean) - End Get - Set - Me("CB2Cruel") = value - End Set - End Property - - - Public Property CB2Caring() As Boolean - Get - Return CType(Me("CB2Caring"), Boolean) - End Get - Set - Me("CB2Caring") = value - End Set - End Property - - - Public Property CB2Angry() As Boolean - Get - Return CType(Me("CB2Angry"), Boolean) - End Get - Set - Me("CB2Angry") = value - End Set - End Property - - - Public Property CB2Custom1() As Boolean - Get - Return CType(Me("CB2Custom1"), Boolean) - End Get - Set - Me("CB2Custom1") = value - End Set - End Property - - - Public Property CB2Custom2() As Boolean - Get - Return CType(Me("CB2Custom2"), Boolean) - End Get - Set - Me("CB2Custom2") = value - End Set - End Property - - - Public Property CB3Bratty() As Boolean - Get - Return CType(Me("CB3Bratty"), Boolean) - End Get - Set - Me("CB3Bratty") = value - End Set - End Property - - - Public Property CB3Cruel() As Boolean - Get - Return CType(Me("CB3Cruel"), Boolean) - End Get - Set - Me("CB3Cruel") = value - End Set - End Property - - - Public Property CB3Caring() As Boolean - Get - Return CType(Me("CB3Caring"), Boolean) - End Get - Set - Me("CB3Caring") = value - End Set - End Property - - - Public Property CB3Angry() As Boolean - Get - Return CType(Me("CB3Angry"), Boolean) - End Get - Set - Me("CB3Angry") = value - End Set - End Property - - - Public Property CB3Custom1() As Boolean - Get - Return CType(Me("CB3Custom1"), Boolean) - End Get - Set - Me("CB3Custom1") = value - End Set - End Property - - - Public Property CB3Custom2() As Boolean - Get - Return CType(Me("CB3Custom2"), Boolean) - End Get - Set - Me("CB3Custom2") = value - End Set - End Property - - - Public Property DomName() As String - Get - Return CType(Me("DomName"), String) - End Get - Set - Me("DomName") = value - End Set - End Property - - - Public Property SubName() As String - Get - Return CType(Me("SubName"), String) - End Get - Set - Me("SubName") = value - End Set - End Property - - - Public Property pnSetting1() As String - Get - Return CType(Me("pnSetting1"), String) - End Get - Set - Me("pnSetting1") = value - End Set - End Property - - - Public Property pnSetting2() As String - Get - Return CType(Me("pnSetting2"), String) - End Get - Set - Me("pnSetting2") = value - End Set - End Property - - - Public Property pnSetting3() As String - Get - Return CType(Me("pnSetting3"), String) - End Get - Set - Me("pnSetting3") = value - End Set - End Property - - - Public Property pnSetting4() As String - Get - Return CType(Me("pnSetting4"), String) - End Get - Set - Me("pnSetting4") = value - End Set - End Property - - - Public Property pnSetting5() As String - Get - Return CType(Me("pnSetting5"), String) - End Get - Set - Me("pnSetting5") = value - End Set - End Property - - - Public Property pnSetting6() As String - Get - Return CType(Me("pnSetting6"), String) - End Get - Set - Me("pnSetting6") = value - End Set - End Property - - - Public Property pnSetting7() As String - Get - Return CType(Me("pnSetting7"), String) - End Get - Set - Me("pnSetting7") = value - End Set - End Property - - - Public Property pnSetting8() As String - Get - Return CType(Me("pnSetting8"), String) - End Get - Set - Me("pnSetting8") = value - End Set - End Property - - - Public Property DomColor() As String - Get - Return CType(Me("DomColor"), String) - End Get - Set - Me("DomColor") = value - End Set - End Property - - - Public Property SubColor() As String - Get - Return CType(Me("SubColor"), String) - End Get - Set - Me("SubColor") = value - End Set - End Property - - - Public Property DomColorColor() As Global.System.Drawing.Color - Get - Return CType(Me("DomColorColor"), Global.System.Drawing.Color) - End Get - Set - Me("DomColorColor") = value - End Set - End Property - - - Public Property SubColorColor() As Global.System.Drawing.Color - Get - Return CType(Me("SubColorColor"), Global.System.Drawing.Color) - End Get - Set - Me("SubColorColor") = value - End Set - End Property - - - Public Property CBTimeStamps() As Boolean - Get - Return CType(Me("CBTimeStamps"), Boolean) - End Get - Set - Me("CBTimeStamps") = value - End Set - End Property - - - Public Property CBShowNames() As Boolean - Get - Return CType(Me("CBShowNames"), Boolean) - End Get - Set - Me("CBShowNames") = value - End Set - End Property - - - Public Property CBInstantType() As Boolean - Get - Return CType(Me("CBInstantType"), Boolean) - End Get - Set - Me("CBInstantType") = value - End Set - End Property - - - Public Property CBBlogImageMain() As Boolean - Get - Return CType(Me("CBBlogImageMain"), Boolean) - End Get - Set - Me("CBBlogImageMain") = value - End Set - End Property - - - Public Property CBStretchLandscape() As Boolean - Get - Return CType(Me("CBStretchLandscape"), Boolean) - End Get - Set - Me("CBStretchLandscape") = value - End Set - End Property - - - Public Property CBMetronome() As Boolean - Get - Return CType(Me("CBMetronome"), Boolean) - End Get - Set - Me("CBMetronome") = value - End Set - End Property - - - Public Property CBSettingsPause() As Boolean - Get - Return CType(Me("CBSettingsPause"), Boolean) - End Get - Set - Me("CBSettingsPause") = value - End Set - End Property - - - Public Property DomLevel() As Integer - Get - Return CType(Me("DomLevel"), Integer) - End Get - Set - Me("DomLevel") = value - End Set - End Property - - - Public Property OrgasmAllow() As String - Get - Return CType(Me("OrgasmAllow"), String) - End Get - Set - Me("OrgasmAllow") = value - End Set - End Property - - - Public Property OrgasmRuin() As String - Get - Return CType(Me("OrgasmRuin"), String) - End Get - Set - Me("OrgasmRuin") = value - End Set - End Property - - - Public Property CBAutosaveChatlog() As Boolean - Get - Return CType(Me("CBAutosaveChatlog"), Boolean) - End Get - Set - Me("CBAutosaveChatlog") = value - End Set - End Property - - - Public Property CBExitSaveChatlog() As Boolean - Get - Return CType(Me("CBExitSaveChatlog"), Boolean) - End Get - Set - Me("CBExitSaveChatlog") = value - End Set - End Property - - - Public Property AvgEdgeStroking() As Integer - Get - Return CType(Me("AvgEdgeStroking"), Integer) - End Get - Set - Me("AvgEdgeStroking") = value - End Set - End Property - - - Public Property AvgEdgeNoTouch() As Integer - Get - Return CType(Me("AvgEdgeNoTouch"), Integer) - End Get - Set - Me("AvgEdgeNoTouch") = value - End Set - End Property - - - Public Property AvgEdgeCount() As Integer - Get - Return CType(Me("AvgEdgeCount"), Integer) - End Get - Set - Me("AvgEdgeCount") = value - End Set - End Property - - - Public Property StrokeTimeTotal() As Integer - Get - Return CType(Me("StrokeTimeTotal"), Integer) - End Get - Set - Me("StrokeTimeTotal") = value - End Set - End Property - - - Public Property NBWritingTaskMin() As Integer - Get - Return CType(Me("NBWritingTaskMin"), Integer) - End Get - Set - Me("NBWritingTaskMin") = value - End Set - End Property - - - Public Property NBWritingTaskMax() As Integer - Get - Return CType(Me("NBWritingTaskMax"), Integer) - End Get - Set - Me("NBWritingTaskMax") = value - End Set - End Property - - - Public Property LBLBoobPath() As String - Get - Return CType(Me("LBLBoobPath"), String) - End Get - Set - Me("LBLBoobPath") = value - End Set - End Property - - - Public Property UrlFileBoobs() As String - Get - Return CType(Me("UrlFileBoobs"), String) - End Get - Set - Me("UrlFileBoobs") = value - End Set - End Property - - - Public Property LBLButtPath() As String - Get - Return CType(Me("LBLButtPath"), String) - End Get - Set - Me("LBLButtPath") = value - End Set - End Property - - - Public Property UrlFileButt() As String - Get - Return CType(Me("UrlFileButt"), String) - End Get - Set - Me("UrlFileButt") = value - End Set - End Property - - - Public Property CBBnBLocal() As Boolean - Get - Return CType(Me("CBBnBLocal"), Boolean) - End Get - Set - Me("CBBnBLocal") = value - End Set - End Property - - - Public Property CBBnBURL() As Boolean - Get - Return CType(Me("CBBnBURL"), Boolean) - End Get - Set - Me("CBBnBURL") = value - End Set - End Property - - - Public Property CBBoobSubDir() As Boolean - Get - Return CType(Me("CBBoobSubDir"), Boolean) - End Get - Set - Me("CBBoobSubDir") = value - End Set - End Property - - - Public Property CBButtSubDir() As Boolean - Get - Return CType(Me("CBButtSubDir"), Boolean) - End Get - Set - Me("CBButtSubDir") = value - End Set - End Property - - - Public Property CBEnableBnB() As Boolean - Get - Return CType(Me("CBEnableBnB"), Boolean) - End Get - Set - Me("CBEnableBnB") = value - End Set - End Property - - - Public Property CBSlideshowSubDir() As Boolean - Get - Return CType(Me("CBSlideshowSubDir"), Boolean) - End Get - Set - Me("CBSlideshowSubDir") = value - End Set - End Property - - - Public Property CBSlideshowRandom() As Boolean - Get - Return CType(Me("CBSlideshowRandom"), Boolean) - End Get - Set - Me("CBSlideshowRandom") = value - End Set - End Property - - - Public Property DomAge() As Integer - Get - Return CType(Me("DomAge"), Integer) - End Get - Set - Me("DomAge") = value - End Set - End Property - - - Public Property DomHair() As String - Get - Return CType(Me("DomHair"), String) - End Get - Set - Me("DomHair") = value - End Set - End Property - - - Public Property DomEyes() As String - Get - Return CType(Me("DomEyes"), String) - End Get - Set - Me("DomEyes") = value - End Set - End Property - - - Public Property DomCup() As String - Get - Return CType(Me("DomCup"), String) - End Get - Set - Me("DomCup") = value - End Set - End Property - - - Public Property DomPersonality() As String - Get - Return CType(Me("DomPersonality"), String) - End Get - Set - Me("DomPersonality") = value - End Set - End Property - - - Public Property DomCrazy() As Boolean - Get - Return CType(Me("DomCrazy"), Boolean) - End Get - Set - Me("DomCrazy") = value - End Set - End Property - - - Public Property DomVulgar() As Boolean - Get - Return CType(Me("DomVulgar"), Boolean) - End Get - Set - Me("DomVulgar") = value - End Set - End Property - - - Public Property DomSupremacist() As Boolean - Get - Return CType(Me("DomSupremacist"), Boolean) - End Get - Set - Me("DomSupremacist") = value - End Set - End Property - - - Public Property DomLowercase() As Boolean - Get - Return CType(Me("DomLowercase"), Boolean) - End Get - Set - Me("DomLowercase") = value - End Set - End Property - - - Public Property DomNoApostrophes() As Boolean - Get - Return CType(Me("DomNoApostrophes"), Boolean) - End Get - Set - Me("DomNoApostrophes") = value - End Set - End Property - - - Public Property DomNoCommas() As Boolean - Get - Return CType(Me("DomNoCommas"), Boolean) - End Get - Set - Me("DomNoCommas") = value - End Set - End Property - - - Public Property DomNoPeriods() As Boolean - Get - Return CType(Me("DomNoPeriods"), Boolean) - End Get - Set - Me("DomNoPeriods") = value - End Set - End Property - - - Public Property DomMeMyMine() As Boolean - Get - Return CType(Me("DomMeMyMine"), Boolean) - End Get - Set - Me("DomMeMyMine") = value - End Set - End Property - - - Public Property DomEmotes() As String - Get - Return CType(Me("DomEmotes"), String) - End Get - Set - Me("DomEmotes") = value - End Set - End Property - - - Public Property DomDenialEnd() As Boolean - Get - Return CType(Me("DomDenialEnd"), Boolean) - End Get - Set - Me("DomDenialEnd") = value - End Set - End Property - - - Public Property DomOrgasmEnd() As Boolean - Get - Return CType(Me("DomOrgasmEnd"), Boolean) - End Get - Set - Me("DomOrgasmEnd") = value - End Set - End Property - - - Public Property DomPOT() As Boolean - Get - Return CType(Me("DomPOT"), Boolean) - End Get - Set - Me("DomPOT") = value - End Set - End Property - - - Public Property DomLimit() As Boolean - Get - Return CType(Me("DomLimit"), Boolean) - End Get - Set - Me("DomLimit") = value - End Set - End Property - - - Public Property DomOrgasmPer() As Integer - Get - Return CType(Me("DomOrgasmPer"), Integer) - End Get - Set - Me("DomOrgasmPer") = value - End Set - End Property - - - Public Property DomPerMonth() As String - Get - Return CType(Me("DomPerMonth"), String) - End Get - Set - Me("DomPerMonth") = value - End Set - End Property - - - Public Property DomLock() As Boolean - Get - Return CType(Me("DomLock"), Boolean) - End Get - Set - Me("DomLock") = value - End Set - End Property - - - Public Property DomMoodMin() As Integer - Get - Return CType(Me("DomMoodMin"), Integer) - End Get - Set - Me("DomMoodMin") = value - End Set - End Property - - - Public Property DomMoodMax() As Integer - Get - Return CType(Me("DomMoodMax"), Integer) - End Get - Set - Me("DomMoodMax") = value - End Set - End Property - - - Public Property AvgCockMin() As Integer - Get - Return CType(Me("AvgCockMin"), Integer) - End Get - Set - Me("AvgCockMin") = value - End Set - End Property - - - Public Property AvgCockMax() As Integer - Get - Return CType(Me("AvgCockMax"), Integer) - End Get - Set - Me("AvgCockMax") = value - End Set - End Property - - - Public Property SelfAgeMin() As Integer - Get - Return CType(Me("SelfAgeMin"), Integer) - End Get - Set - Me("SelfAgeMin") = value - End Set - End Property - - - Public Property SelfAgeMax() As Integer - Get - Return CType(Me("SelfAgeMax"), Integer) - End Get - Set - Me("SelfAgeMax") = value - End Set - End Property - - - Public Property SubAgeMin() As Integer - Get - Return CType(Me("SubAgeMin"), Integer) - End Get - Set - Me("SubAgeMin") = value - End Set - End Property - - - Public Property SubAgeMax() As String - Get - Return CType(Me("SubAgeMax"), String) - End Get - Set - Me("SubAgeMax") = value - End Set - End Property - - - Public Property CBLockWindow() As Boolean - Get - Return CType(Me("CBLockWindow"), Boolean) - End Get - Set - Me("CBLockWindow") = value - End Set - End Property - - - Public Property SubGreeting() As String - Get - Return CType(Me("SubGreeting"), String) - End Get - Set - Me("SubGreeting") = value - End Set - End Property - - - Public Property SubYes() As String - Get - Return CType(Me("SubYes"), String) - End Get - Set - Me("SubYes") = value - End Set - End Property - - - Public Property SubNo() As String - Get - Return CType(Me("SubNo"), String) - End Get - Set - Me("SubNo") = value - End Set - End Property - - - Public Property SubHonorific() As String - Get - Return CType(Me("SubHonorific"), String) - End Get - Set - Me("SubHonorific") = value - End Set - End Property - - - Public Property CBUseHonor() As Boolean - Get - Return CType(Me("CBUseHonor"), Boolean) - End Get - Set - Me("CBUseHonor") = value - End Set - End Property - - - Public Property CBCapHonor() As Boolean - Get - Return CType(Me("CBCapHonor"), Boolean) - End Get - Set - Me("CBCapHonor") = value - End Set - End Property - - - Public Property SubCockSize() As Integer - Get - Return CType(Me("SubCockSize"), Integer) - End Get - Set - Me("SubCockSize") = value - End Set - End Property - - - Public Property SubAge() As Integer - Get - Return CType(Me("SubAge"), Integer) - End Get - Set - Me("SubAge") = value - End Set - End Property - - - Public Property TCAgreed() As Boolean - Get - Return CType(Me("TCAgreed"), Boolean) - End Get - Set - Me("TCAgreed") = value - End Set - End Property - - - Public Property TimerSTF() As Integer - Get - Return CType(Me("TimerSTF"), Integer) - End Get - Set - Me("TimerSTF") = value - End Set - End Property - - - Public Property SubBirthMonth() As Integer - Get - Return CType(Me("SubBirthMonth"), Integer) - End Get - Set - Me("SubBirthMonth") = value - End Set - End Property - - - Public Property SubBirthDay() As Integer - Get - Return CType(Me("SubBirthDay"), Integer) - End Get - Set - Me("SubBirthDay") = value - End Set - End Property - - - Public Property SubHair() As String - Get - Return CType(Me("SubHair"), String) - End Get - Set - Me("SubHair") = value - End Set - End Property - - - Public Property SubEyes() As String - Get - Return CType(Me("SubEyes"), String) - End Get - Set - Me("SubEyes") = value - End Set - End Property - - - Public Property DomFontSize() As Integer - Get - Return CType(Me("DomFontSize"), Integer) - End Get - Set - Me("DomFontSize") = value - End Set - End Property - - - Public Property DomFont() As String - Get - Return CType(Me("DomFont"), String) - End Get - Set - Me("DomFont") = value - End Set - End Property - - - Public Property SubFont() As String - Get - Return CType(Me("SubFont"), String) - End Get - Set - Me("SubFont") = value - End Set - End Property - - - Public Property SubFontSize() As Integer - Get - Return CType(Me("SubFontSize"), Integer) - End Get - Set - Me("SubFontSize") = value - End Set - End Property - - - Public Property DomBirthMonth() As Integer - Get - Return CType(Me("DomBirthMonth"), Integer) - End Get - Set - Me("DomBirthMonth") = value - End Set - End Property - - - Public Property DomBirthDay() As Integer - Get - Return CType(Me("DomBirthDay"), Integer) - End Get - Set - Me("DomBirthDay") = value - End Set - End Property - - - Public Property DomHairLength() As String - Get - Return CType(Me("DomHairLength"), String) - End Get - Set - Me("DomHairLength") = value - End Set - End Property - - - Public Property DomPubicHair() As String - Get - Return CType(Me("DomPubicHair"), String) - End Get - Set - Me("DomPubicHair") = value - End Set - End Property - - - Public Property DomTattoos() As Boolean - Get - Return CType(Me("DomTattoos"), Boolean) - End Get - Set - Me("DomTattoos") = value - End Set - End Property - - - Public Property DomFreckles() As Boolean - Get - Return CType(Me("DomFreckles"), Boolean) - End Get - Set - Me("DomFreckles") = value - End Set - End Property - - - Public Property CBImageInfo() As Boolean - Get - Return CType(Me("CBImageInfo"), Boolean) - End Get - Set - Me("CBImageInfo") = value - End Set - End Property - - - Public Property DomAVStretch() As Boolean - Get - Return CType(Me("DomAVStretch"), Boolean) - End Get - Set - Me("DomAVStretch") = value - End Set - End Property - - - Public Property SubAvStretch() As Boolean - Get - Return CType(Me("SubAvStretch"), Boolean) - End Get - Set - Me("SubAvStretch") = value - End Set - End Property - - - Public Property IHardcore() As String - Get - Return CType(Me("IHardcore"), String) - End Get - Set - Me("IHardcore") = value - End Set - End Property - - - Public Property ISoftcore() As String - Get - Return CType(Me("ISoftcore"), String) - End Get - Set - Me("ISoftcore") = value - End Set - End Property - - - Public Property ILesbian() As String - Get - Return CType(Me("ILesbian"), String) - End Get - Set - Me("ILesbian") = value - End Set - End Property - - - Public Property IBlowjob() As String - Get - Return CType(Me("IBlowjob"), String) - End Get - Set - Me("IBlowjob") = value - End Set - End Property - - - Public Property IFemdom() As String - Get - Return CType(Me("IFemdom"), String) - End Get - Set - Me("IFemdom") = value - End Set - End Property - - - Public Property ILezdom() As String - Get - Return CType(Me("ILezdom"), String) - End Get - Set - Me("ILezdom") = value - End Set - End Property - - - Public Property IHentai() As String - Get - Return CType(Me("IHentai"), String) - End Get - Set - Me("IHentai") = value - End Set - End Property - - - Public Property IGay() As String - Get - Return CType(Me("IGay"), String) - End Get - Set - Me("IGay") = value - End Set - End Property - - - Public Property IMaledom() As String - Get - Return CType(Me("IMaledom"), String) - End Get - Set - Me("IMaledom") = value - End Set - End Property - - - Public Property IGeneral() As String - Get - Return CType(Me("IGeneral"), String) - End Get - Set - Me("IGeneral") = value - End Set - End Property - - - Public Property IHardcoreSD() As Boolean - Get - Return CType(Me("IHardcoreSD"), Boolean) - End Get - Set - Me("IHardcoreSD") = value - End Set - End Property - - - Public Property ISoftcoreSD() As Boolean - Get - Return CType(Me("ISoftcoreSD"), Boolean) - End Get - Set - Me("ISoftcoreSD") = value - End Set - End Property - - - Public Property ILesbianSD() As Boolean - Get - Return CType(Me("ILesbianSD"), Boolean) - End Get - Set - Me("ILesbianSD") = value - End Set - End Property - - - Public Property IBlowjobSD() As Boolean - Get - Return CType(Me("IBlowjobSD"), Boolean) - End Get - Set - Me("IBlowjobSD") = value - End Set - End Property - - - Public Property IFemdomSD() As Boolean - Get - Return CType(Me("IFemdomSD"), Boolean) - End Get - Set - Me("IFemdomSD") = value - End Set - End Property - - - Public Property ILezdomSD() As Boolean - Get - Return CType(Me("ILezdomSD"), Boolean) - End Get - Set - Me("ILezdomSD") = value - End Set - End Property - - - Public Property IHentaiSD() As Boolean - Get - Return CType(Me("IHentaiSD"), Boolean) - End Get - Set - Me("IHentaiSD") = value - End Set - End Property - - - Public Property IGaySD() As Boolean - Get - Return CType(Me("IGaySD"), Boolean) - End Get - Set - Me("IGaySD") = value - End Set - End Property - - - Public Property IMaledomSD() As Boolean - Get - Return CType(Me("IMaledomSD"), Boolean) - End Get - Set - Me("IMaledomSD") = value - End Set - End Property - - - Public Property IGeneralSD() As Boolean - Get - Return CType(Me("IGeneralSD"), Boolean) - End Get - Set - Me("IGeneralSD") = value - End Set - End Property - - - Public Property ICaptionsSD() As Boolean - Get - Return CType(Me("ICaptionsSD"), Boolean) - End Get - Set - Me("ICaptionsSD") = value - End Set - End Property - - - Public Property CBIHardcore() As Boolean - Get - Return CType(Me("CBIHardcore"), Boolean) - End Get - Set - Me("CBIHardcore") = value - End Set - End Property - - - Public Property CBISoftcore() As Boolean - Get - Return CType(Me("CBISoftcore"), Boolean) - End Get - Set - Me("CBISoftcore") = value - End Set - End Property - - - Public Property CBILesbian() As Boolean - Get - Return CType(Me("CBILesbian"), Boolean) - End Get - Set - Me("CBILesbian") = value - End Set - End Property - - - Public Property CBIBlowjob() As Boolean - Get - Return CType(Me("CBIBlowjob"), Boolean) - End Get - Set - Me("CBIBlowjob") = value - End Set - End Property - - - Public Property CBIFemdom() As Boolean - Get - Return CType(Me("CBIFemdom"), Boolean) - End Get - Set - Me("CBIFemdom") = value - End Set - End Property - - - Public Property CBILezdom() As Boolean - Get - Return CType(Me("CBILezdom"), Boolean) - End Get - Set - Me("CBILezdom") = value - End Set - End Property - - - Public Property CBIHentai() As Boolean - Get - Return CType(Me("CBIHentai"), Boolean) - End Get - Set - Me("CBIHentai") = value - End Set - End Property - - - Public Property CBIGay() As Boolean - Get - Return CType(Me("CBIGay"), Boolean) - End Get - Set - Me("CBIGay") = value - End Set - End Property - - - Public Property CBIMaledom() As Boolean - Get - Return CType(Me("CBIMaledom"), Boolean) - End Get - Set - Me("CBIMaledom") = value - End Set - End Property - - - Public Property CBIGeneral() As Boolean - Get - Return CType(Me("CBIGeneral"), Boolean) - End Get - Set - Me("CBIGeneral") = value - End Set - End Property - - - Public Property CBICaptions() As Boolean - Get - Return CType(Me("CBICaptions"), Boolean) - End Get - Set - Me("CBICaptions") = value - End Set - End Property - - - Public Property ICaptions() As String - Get - Return CType(Me("ICaptions"), String) - End Get - Set - Me("ICaptions") = value - End Set - End Property - - - Public Property DomImageDir() As String - Get - Return CType(Me("DomImageDir"), String) - End Get - Set - Me("DomImageDir") = value - End Set - End Property - - - Public Property CBTCock() As Boolean - Get - Return CType(Me("CBTCock"), Boolean) - End Get - Set - Me("CBTCock") = value - End Set - End Property - - - Public Property CBTBalls() As Boolean - Get - Return CType(Me("CBTBalls"), Boolean) - End Get - Set - Me("CBTBalls") = value - End Set - End Property - - - Public Property ChastityPA() As Boolean - Get - Return CType(Me("ChastityPA"), Boolean) - End Get - Set - Me("ChastityPA") = value - End Set - End Property - - - Public Property ChastitySpikes() As Boolean - Get - Return CType(Me("ChastitySpikes"), Boolean) - End Get - Set - Me("ChastitySpikes") = value - End Set - End Property - - - Public Property SubInChastity() As Boolean - Get - Return CType(Me("SubInChastity"), Boolean) - End Get - Set - Me("SubInChastity") = value - End Set - End Property - - - Public Property LongEdge() As Integer - Get - Return CType(Me("LongEdge"), Integer) - End Get - Set - Me("LongEdge") = value - End Set - End Property - - - Public Property CBLongEdgeInterrupt() As Boolean - Get - Return CType(Me("CBLongEdgeInterrupt"), Boolean) - End Get - Set - Me("CBLongEdgeInterrupt") = value - End Set - End Property - - - Public Property HoldTheEdgeMax() As Integer - Get - Return CType(Me("HoldTheEdgeMax"), Integer) - End Get - Set - Me("HoldTheEdgeMax") = value - End Set - End Property - - - Public Property HoldEdgeTimeTotal() As Integer - Get - Return CType(Me("HoldEdgeTimeTotal"), Integer) - End Get - Set - Me("HoldEdgeTimeTotal") = value - End Set - End Property - - - Public Property CBTSlider() As Integer - Get - Return CType(Me("CBTSlider"), Integer) - End Get - Set - Me("CBTSlider") = value - End Set - End Property - - - Public Property SubCircumcised() As Boolean - Get - Return CType(Me("SubCircumcised"), Boolean) - End Get - Set - Me("SubCircumcised") = value - End Set - End Property - - - Public Property SubPierced() As Boolean - Get - Return CType(Me("SubPierced"), Boolean) - End Get - Set - Me("SubPierced") = value - End Set - End Property - - - Public Property DomEmpathy() As Integer - Get - Return CType(Me("DomEmpathy"), Integer) - End Get - Set - Me("DomEmpathy") = value - End Set - End Property - - - Public Property RangeOrgasm() As Boolean - Get - Return CType(Me("RangeOrgasm"), Boolean) - End Get - Set - Me("RangeOrgasm") = value - End Set - End Property - - - Public Property RangeRuin() As Boolean - Get - Return CType(Me("RangeRuin"), Boolean) - End Get - Set - Me("RangeRuin") = value - End Set - End Property - - - Public Property AllowOften() As Integer - Get - Return CType(Me("AllowOften"), Integer) - End Get - Set - Me("AllowOften") = value - End Set - End Property - - - Public Property AllowSometimes() As Integer - Get - Return CType(Me("AllowSometimes"), Integer) - End Get - Set - Me("AllowSometimes") = value - End Set - End Property - - - Public Property AllowRarely() As Integer - Get - Return CType(Me("AllowRarely"), Integer) - End Get - Set - Me("AllowRarely") = value - End Set - End Property - - - Public Property RuinOften() As Integer - Get - Return CType(Me("RuinOften"), Integer) - End Get - Set - Me("RuinOften") = value - End Set - End Property - - - Public Property RuinSometimes() As Integer - Get - Return CType(Me("RuinSometimes"), Integer) - End Get - Set - Me("RuinSometimes") = value - End Set - End Property - - - Public Property RuinRarely() As Integer - Get - Return CType(Me("RuinRarely"), Integer) - End Get - Set - Me("RuinRarely") = value - End Set - End Property - - - Public Property Chastity() As Boolean - Get - Return CType(Me("Chastity"), Boolean) - End Get - Set - Me("Chastity") = value - End Set - End Property - - - Public Property Safeword() As String - Get - Return CType(Me("Safeword"), String) - End Get - Set - Me("Safeword") = value - End Set - End Property - - - Public Property CaloriesConsumed() As Integer - Get - Return CType(Me("CaloriesConsumed"), Integer) - End Get - Set - Me("CaloriesConsumed") = value - End Set - End Property - - - Public Property CaloriesGoal() As Integer - Get - Return CType(Me("CaloriesGoal"), Integer) - End Get - Set - Me("CaloriesGoal") = value - End Set - End Property - - - Public Property VitalSubDisclaimer() As Boolean - Get - Return CType(Me("VitalSubDisclaimer"), Boolean) - End Get - Set - Me("VitalSubDisclaimer") = value - End Set - End Property - - - Public Property VitalSub() As Boolean - Get - Return CType(Me("VitalSub"), Boolean) - End Get - Set - Me("VitalSub") = value - End Set - End Property - - - Public Property VitalSubAssignments() As Boolean - Get - Return CType(Me("VitalSubAssignments"), Boolean) - End Get - Set - Me("VitalSubAssignments") = value - End Set - End Property - - - Public Property BP1() As String - Get - Return CType(Me("BP1"), String) - End Get - Set - Me("BP1") = value - End Set - End Property - - - Public Property BP2() As String - Get - Return CType(Me("BP2"), String) - End Get - Set - Me("BP2") = value - End Set - End Property - - - Public Property BP3() As String - Get - Return CType(Me("BP3"), String) - End Get - Set - Me("BP3") = value - End Set - End Property - - - Public Property BP4() As String - Get - Return CType(Me("BP4"), String) - End Get - Set - Me("BP4") = value - End Set - End Property - - - Public Property BP5() As String - Get - Return CType(Me("BP5"), String) - End Get - Set - Me("BP5") = value - End Set - End Property - - - Public Property BP6() As String - Get - Return CType(Me("BP6"), String) - End Get - Set - Me("BP6") = value - End Set - End Property - - - Public Property BN1() As String - Get - Return CType(Me("BN1"), String) - End Get - Set - Me("BN1") = value - End Set - End Property - - - Public Property BN2() As String - Get - Return CType(Me("BN2"), String) - End Get - Set - Me("BN2") = value - End Set - End Property - - - Public Property BN3() As String - Get - Return CType(Me("BN3"), String) - End Get - Set - Me("BN3") = value - End Set - End Property - - - Public Property BN4() As String - Get - Return CType(Me("BN4"), String) - End Get - Set - Me("BN4") = value - End Set - End Property - - - Public Property BN5() As String - Get - Return CType(Me("BN5"), String) - End Get - Set - Me("BN5") = value - End Set - End Property - - - Public Property BN6() As String - Get - Return CType(Me("BN6"), String) - End Get - Set - Me("BN6") = value - End Set - End Property - - - Public Property SP1() As String - Get - Return CType(Me("SP1"), String) - End Get - Set - Me("SP1") = value - End Set - End Property - - - Public Property SP2() As String - Get - Return CType(Me("SP2"), String) - End Get - Set - Me("SP2") = value - End Set - End Property - - - Public Property SP3() As String - Get - Return CType(Me("SP3"), String) - End Get - Set - Me("SP3") = value - End Set - End Property - - - Public Property SP4() As String - Get - Return CType(Me("SP4"), String) - End Get - Set - Me("SP4") = value - End Set - End Property - - - Public Property SP5() As String - Get - Return CType(Me("SP5"), String) - End Get - Set - Me("SP5") = value - End Set - End Property - - - Public Property SP6() As String - Get - Return CType(Me("SP6"), String) - End Get - Set - Me("SP6") = value - End Set - End Property - - - Public Property SN1() As String - Get - Return CType(Me("SN1"), String) - End Get - Set - Me("SN1") = value - End Set - End Property - - - Public Property SN2() As String - Get - Return CType(Me("SN2"), String) - End Get - Set - Me("SN2") = value - End Set - End Property - - - Public Property SN3() As String - Get - Return CType(Me("SN3"), String) - End Get - Set - Me("SN3") = value - End Set - End Property - - - Public Property SN4() As String - Get - Return CType(Me("SN4"), String) - End Get - Set - Me("SN4") = value - End Set - End Property - - - Public Property SN5() As String - Get - Return CType(Me("SN5"), String) - End Get - Set - Me("SN5") = value - End Set - End Property - - - Public Property SN6() As String - Get - Return CType(Me("SN6"), String) - End Get - Set - Me("SN6") = value - End Set - End Property - - - Public Property GP1() As String - Get - Return CType(Me("GP1"), String) - End Get - Set - Me("GP1") = value - End Set - End Property - - - Public Property GP2() As String - Get - Return CType(Me("GP2"), String) - End Get - Set - Me("GP2") = value - End Set - End Property - - - Public Property GP3() As String - Get - Return CType(Me("GP3"), String) - End Get - Set - Me("GP3") = value - End Set - End Property - - - Public Property GP4() As String - Get - Return CType(Me("GP4"), String) - End Get - Set - Me("GP4") = value - End Set - End Property - - - Public Property GP5() As String - Get - Return CType(Me("GP5"), String) - End Get - Set - Me("GP5") = value - End Set - End Property - - - Public Property GP6() As String - Get - Return CType(Me("GP6"), String) - End Get - Set - Me("GP6") = value - End Set - End Property - - - Public Property GN1() As String - Get - Return CType(Me("GN1"), String) - End Get - Set - Me("GN1") = value - End Set - End Property - - - Public Property GN2() As String - Get - Return CType(Me("GN2"), String) - End Get - Set - Me("GN2") = value - End Set - End Property - - - Public Property GN3() As String - Get - Return CType(Me("GN3"), String) - End Get - Set - Me("GN3") = value - End Set - End Property - - - Public Property GN4() As String - Get - Return CType(Me("GN4"), String) - End Get - Set - Me("GN4") = value - End Set - End Property - - - Public Property GN5() As String - Get - Return CType(Me("GN5"), String) - End Get - Set - Me("GN5") = value - End Set - End Property - - - Public Property GN6() As String - Get - Return CType(Me("GN6"), String) - End Get - Set - Me("GN6") = value - End Set - End Property - - - Public Property CardBack() As String - Get - Return CType(Me("CardBack"), String) - End Get - Set - Me("CardBack") = value - End Set - End Property - - - Public Property GoldTokens() As Integer - Get - Return CType(Me("GoldTokens"), Integer) - End Get - Set - Me("GoldTokens") = value - End Set - End Property - - - Public Property SilverTokens() As Integer - Get - Return CType(Me("SilverTokens"), Integer) - End Get - Set - Me("SilverTokens") = value - End Set - End Property - - - Public Property BronzeTokens() As Integer - Get - Return CType(Me("BronzeTokens"), Integer) - End Get - Set - Me("BronzeTokens") = value - End Set - End Property - - - Public Property B1() As Integer - Get - Return CType(Me("B1"), Integer) - End Get - Set - Me("B1") = value - End Set - End Property - - - Public Property B2() As Integer - Get - Return CType(Me("B2"), Integer) - End Get - Set - Me("B2") = value - End Set - End Property - - - Public Property B3() As Integer - Get - Return CType(Me("B3"), Integer) - End Get - Set - Me("B3") = value - End Set - End Property - - - Public Property B4() As Integer - Get - Return CType(Me("B4"), Integer) - End Get - Set - Me("B4") = value - End Set - End Property - - - Public Property B5() As Integer - Get - Return CType(Me("B5"), Integer) - End Get - Set - Me("B5") = value - End Set - End Property - - - Public Property B6() As Integer - Get - Return CType(Me("B6"), Integer) - End Get - Set - Me("B6") = value - End Set - End Property - - - Public Property S1() As Integer - Get - Return CType(Me("S1"), Integer) - End Get - Set - Me("S1") = value - End Set - End Property - - - Public Property S2() As Integer - Get - Return CType(Me("S2"), Integer) - End Get - Set - Me("S2") = value - End Set - End Property - - - Public Property S3() As Integer - Get - Return CType(Me("S3"), Integer) - End Get - Set - Me("S3") = value - End Set - End Property - - - Public Property S4() As Integer - Get - Return CType(Me("S4"), Integer) - End Get - Set - Me("S4") = value - End Set - End Property - - - Public Property S5() As Integer - Get - Return CType(Me("S5"), Integer) - End Get - Set - Me("S5") = value - End Set - End Property - - - Public Property S6() As Integer - Get - Return CType(Me("S6"), Integer) - End Get - Set - Me("S6") = value - End Set - End Property - - - Public Property G1() As Integer - Get - Return CType(Me("G1"), Integer) - End Get - Set - Me("G1") = value - End Set - End Property - - - Public Property G2() As Integer - Get - Return CType(Me("G2"), Integer) - End Get - Set - Me("G2") = value - End Set - End Property - - - Public Property G3() As Integer - Get - Return CType(Me("G3"), Integer) - End Get - Set - Me("G3") = value - End Set - End Property - - - Public Property G4() As Integer - Get - Return CType(Me("G4"), Integer) - End Get - Set - Me("G4") = value - End Set - End Property - - - Public Property G5() As Integer - Get - Return CType(Me("G5"), Integer) - End Get - Set - Me("G5") = value - End Set - End Property - - - Public Property G6() As Integer - Get - Return CType(Me("G6"), Integer) - End Get - Set - Me("G6") = value - End Set - End Property - - - Public Property ClearWishlist() As Boolean - Get - Return CType(Me("ClearWishlist"), Boolean) - End Get - Set - Me("ClearWishlist") = value - End Set - End Property - - - Public Property WishlistName() As String - Get - Return CType(Me("WishlistName"), String) - End Get - Set - Me("WishlistName") = value - End Set - End Property - - - Public Property WishlistPreview() As String - Get - Return CType(Me("WishlistPreview"), String) - End Get - Set - Me("WishlistPreview") = value - End Set - End Property - - - Public Property WishlistTokenType() As String - Get - Return CType(Me("WishlistTokenType"), String) - End Get - Set - Me("WishlistTokenType") = value - End Set - End Property - - - Public Property WishlistCost() As Integer - Get - Return CType(Me("WishlistCost"), Integer) - End Get - Set - Me("WishlistCost") = value - End Set - End Property - - - Public Property WishlistNote() As String - Get - Return CType(Me("WishlistNote"), String) - End Get - Set - Me("WishlistNote") = value - End Set - End Property - - - Public Property AvgEdgeCountRest() As Integer - Get - Return CType(Me("AvgEdgeCountRest"), Integer) - End Get - Set - Me("AvgEdgeCountRest") = value - End Set - End Property - - - Public Property PersonalityIndex() As Integer - Get - Return CType(Me("PersonalityIndex"), Integer) - End Get - Set - Me("PersonalityIndex") = value - End Set - End Property - - - Public Property LargeUI() As Boolean - Get - Return CType(Me("LargeUI"), Boolean) - End Get - Set - Me("LargeUI") = value - End Set - End Property - - - Public Property CBJackintheBox() As Boolean - Get - Return CType(Me("CBJackintheBox"), Boolean) - End Get - Set - Me("CBJackintheBox") = value - End Set - End Property - - - Public Property NextImageChance() As Integer - Get - Return CType(Me("NextImageChance"), Integer) - End Get - Set - Me("NextImageChance") = value - End Set - End Property - - - Public Property CBEdgeUseAvg() As Boolean - Get - Return CType(Me("CBEdgeUseAvg"), Boolean) - End Get - Set - Me("CBEdgeUseAvg") = value - End Set - End Property - - - Public Property CBLongEdgeTaunts() As Boolean - Get - Return CType(Me("CBLongEdgeTaunts"), Boolean) - End Get - Set - Me("CBLongEdgeTaunts") = value - End Set - End Property - - - Public Property CBLongEdgeInterrupts() As Boolean - Get - Return CType(Me("CBLongEdgeInterrupts"), Boolean) - End Get - Set - Me("CBLongEdgeInterrupts") = value - End Set - End Property - - - Public Property OrgasmsRemaining() As Integer - Get - Return CType(Me("OrgasmsRemaining"), Integer) - End Get - Set - Me("OrgasmsRemaining") = value - End Set - End Property - - - Public Property OrgasmsLocked() As Boolean - Get - Return CType(Me("OrgasmsLocked"), Boolean) - End Get - Set - Me("OrgasmsLocked") = value - End Set - End Property - - - Public Property TimerVTF() As Integer - Get - Return CType(Me("TimerVTF"), Integer) - End Get - Set - Me("TimerVTF") = value - End Set - End Property - - - Public Property CBTeaseLengthDD() As Boolean - Get - Return CType(Me("CBTeaseLengthDD"), Boolean) - End Get - Set - Me("CBTeaseLengthDD") = value - End Set - End Property - - - Public Property CBTauntCycleDD() As Boolean - Get - Return CType(Me("CBTauntCycleDD"), Boolean) - End Get - Set - Me("CBTauntCycleDD") = value - End Set - End Property - - - Public Property CBOwnChastity() As Boolean - Get - Return CType(Me("CBOwnChastity"), Boolean) - End Get - Set - Me("CBOwnChastity") = value - End Set - End Property - - - Public Property SmallUI() As Boolean - Get - Return CType(Me("SmallUI"), Boolean) - End Get - Set - Me("SmallUI") = value - End Set - End Property - - - Public Property UI768() As Boolean - Get - Return CType(Me("UI768"), Boolean) - End Get - Set - Me("UI768") = value - End Set - End Property - - - Public Property CBIncludeGifs() As Boolean - Get - Return CType(Me("CBIncludeGifs"), Boolean) - End Get - Set - Me("CBIncludeGifs") = value - End Set - End Property - - - Public Property CBHimHer() As Boolean - Get - Return CType(Me("CBHimHer"), Boolean) - End Get - Set - Me("CBHimHer") = value - End Set - End Property - - - Public Property DomDeleteMedia() As Boolean - Get - Return CType(Me("DomDeleteMedia"), Boolean) - End Get - Set - Me("DomDeleteMedia") = value - End Set - End Property - - - Public Property TeaseLengthMin() As Integer - Get - Return CType(Me("TeaseLengthMin"), Integer) - End Get - Set - Me("TeaseLengthMin") = value - End Set - End Property - - - Public Property TeaseLengthMax() As Integer - Get - Return CType(Me("TeaseLengthMax"), Integer) - End Get - Set - Me("TeaseLengthMax") = value - End Set - End Property - - - Public Property TauntCycleMin() As Integer - Get - Return CType(Me("TauntCycleMin"), Integer) - End Get - Set - Me("TauntCycleMin") = value - End Set - End Property - - - Public Property TauntCycleMax() As Integer - Get - Return CType(Me("TauntCycleMax"), Integer) - End Get - Set - Me("TauntCycleMax") = value - End Set - End Property - - - Public Property RedLightMin() As Integer - Get - Return CType(Me("RedLightMin"), Integer) - End Get - Set - Me("RedLightMin") = value - End Set - End Property - - - Public Property RedLightMax() As Integer - Get - Return CType(Me("RedLightMax"), Integer) - End Get - Set - Me("RedLightMax") = value - End Set - End Property - - - Public Property GreenLightMin() As Integer - Get - Return CType(Me("GreenLightMin"), Integer) - End Get - Set - Me("GreenLightMin") = value - End Set - End Property - - - Public Property GreenLightMax() As Integer - Get - Return CType(Me("GreenLightMax"), Integer) - End Get - Set - Me("GreenLightMax") = value - End Set - End Property - - - Public Property SlideshowMode() As String - Get - Return CType(Me("SlideshowMode"), String) - End Get - Set - Me("SlideshowMode") = value - End Set - End Property - - - Public Property OrgasmLockDate() As Date - Get - Return CType(Me("OrgasmLockDate"), Date) - End Get - Set - Me("OrgasmLockDate") = value - End Set - End Property - - - Public Property AuditStartup() As Boolean - Get - Return CType(Me("AuditStartup"), Boolean) - End Get - Set - Me("AuditStartup") = value - End Set - End Property - - - Public Property WishlistDate() As Date - Get - Return CType(Me("WishlistDate"), Date) - End Get - Set - Me("WishlistDate") = value - End Set - End Property - - - Public Property LastOrgasm() As Date - Get - Return CType(Me("LastOrgasm"), Date) - End Get - Set - Me("LastOrgasm") = value - End Set - End Property - - - Public Property LastRuined() As Date - Get - Return CType(Me("LastRuined"), Date) - End Get - Set - Me("LastRuined") = value - End Set - End Property - - - Public Property DateStamp() As Date - Get - Return CType(Me("DateStamp"), Date) - End Get - Set - Me("DateStamp") = value - End Set - End Property - - - Public Property TokenTasks() As Date - Get - Return CType(Me("TokenTasks"), Date) - End Get - Set - Me("TokenTasks") = value - End Set - End Property - - - Public Property WebToyStart() As String - Get - Return CType(Me("WebToyStart"), String) - End Get - Set - Me("WebToyStart") = value - End Set - End Property - - - Public Property WebToyStop() As String - Get - Return CType(Me("WebToyStop"), String) - End Get - Set - Me("WebToyStop") = value - End Set - End Property - - - Public Property CockToClit() As Boolean - Get - Return CType(Me("CockToClit"), Boolean) - End Get - Set - Me("CockToClit") = value - End Set - End Property - - - Public Property BallsToPussy() As Boolean - Get - Return CType(Me("BallsToPussy"), Boolean) - End Get - Set - Me("BallsToPussy") = value - End Set - End Property - - - Public Property Contact1ImageDir() As String - Get - Return CType(Me("Contact1ImageDir"), String) - End Get - Set - Me("Contact1ImageDir") = value - End Set - End Property - - - Public Property Contact2ImageDir() As String - Get - Return CType(Me("Contact2ImageDir"), String) - End Get - Set - Me("Contact2ImageDir") = value - End Set - End Property - - - Public Property Contact3ImageDir() As String - Get - Return CType(Me("Contact3ImageDir"), String) - End Get - Set - Me("Contact3ImageDir") = value - End Set - End Property - - - Public Property RandomImageDir() As String - Get - Return CType(Me("RandomImageDir"), String) - End Get - Set - Me("RandomImageDir") = Value - End Set - End Property - - Public Property CBGlitterFeedOff() As Boolean - Get - Return CType(Me("CBGlitterFeedOff"), Boolean) - End Get - Set - Me("CBGlitterFeedOff") = value - End Set - End Property - - - Public Property CBGlitterFeedScripts() As Boolean - Get - Return CType(Me("CBGlitterFeedScripts"), Boolean) - End Get - Set - Me("CBGlitterFeedScripts") = value - End Set - End Property - - - Public Property TeaseAILanguage() As String - Get - Return CType(Me("TeaseAILanguage"), String) - End Get - Set - Me("TeaseAILanguage") = value - End Set - End Property - - - Public Property Shortcuts() As Boolean - Get - Return CType(Me("Shortcuts"), Boolean) - End Get - Set - Me("Shortcuts") = value - End Set - End Property - - - Public Property ShowShortcuts() As Boolean - Get - Return CType(Me("ShowShortcuts"), Boolean) - End Get - Set - Me("ShowShortcuts") = value - End Set - End Property - - - Public Property ShortYes() As String - Get - Return CType(Me("ShortYes"), String) - End Get - Set - Me("ShortYes") = value - End Set - End Property - - - Public Property ShortNo() As String - Get - Return CType(Me("ShortNo"), String) - End Get - Set - Me("ShortNo") = value - End Set - End Property - - - Public Property ShortEdge() As String - Get - Return CType(Me("ShortEdge"), String) - End Get - Set - Me("ShortEdge") = value - End Set - End Property - - - Public Property ShortSpeedUp() As String - Get - Return CType(Me("ShortSpeedUp"), String) - End Get - Set - Me("ShortSpeedUp") = value - End Set - End Property - - - Public Property ShortSlowDown() As String - Get - Return CType(Me("ShortSlowDown"), String) - End Get - Set - Me("ShortSlowDown") = value - End Set - End Property - - - Public Property ShortStop() As String - Get - Return CType(Me("ShortStop"), String) - End Get - Set - Me("ShortStop") = value - End Set - End Property - - - Public Property ShortStroke() As String - Get - Return CType(Me("ShortStroke"), String) - End Get - Set - Me("ShortStroke") = value - End Set - End Property - - - Public Property ShortCum() As String - Get - Return CType(Me("ShortCum"), String) - End Get - Set - Me("ShortCum") = value - End Set - End Property - - - Public Property ShortGreet() As String - Get - Return CType(Me("ShortGreet"), String) - End Get - Set - Me("ShortGreet") = value - End Set - End Property - - - Public Property ShortSafeword() As String - Get - Return CType(Me("ShortSafeword"), String) - End Get - Set - Me("ShortSafeword") = value - End Set - End Property - - - Public Property Patch45Tokens() As Boolean - Get - Return CType(Me("Patch45Tokens"), Boolean) - End Get - Set - Me("Patch45Tokens") = value - End Set - End Property - - - Public Property WindowHeight() As Integer - Get - Return CType(Me("WindowHeight"), Integer) - End Get - Set - Me("WindowHeight") = value - End Set - End Property - - - Public Property WindowWidth() As Integer - Get - Return CType(Me("WindowWidth"), Integer) - End Get - Set - Me("WindowWidth") = value - End Set - End Property - - - Public Property UIColor() As String - Get - Return CType(Me("UIColor"), String) - End Get - Set - Me("UIColor") = value - End Set - End Property - - - Public Property TC2Agreed() As Boolean - Get - Return CType(Me("TC2Agreed"), Boolean) - End Get - Set - Me("TC2Agreed") = value - End Set - End Property - - - Public Property LastDomTagURL() As String - Get - Return CType(Me("LastDomTagURL"), String) - End Get - Set - Me("LastDomTagURL") = value - End Set - End Property - - - Public Property Sys_SubLeftEarly() As Integer - Get - Return CType(Me("Sys_SubLeftEarly"), Integer) - End Get - Set - Me("Sys_SubLeftEarly") = value - End Set - End Property - - - Public Property Sys_SubLeftEarlyTotal() As Integer - Get - Return CType(Me("Sys_SubLeftEarlyTotal"), Integer) - End Get - Set - Me("Sys_SubLeftEarlyTotal") = value - End Set - End Property - - - Public Property AIBoxDir() As Boolean - Get - Return CType(Me("AIBoxDir"), Boolean) - End Get - Set - Me("AIBoxDir") = value - End Set - End Property - - - Public Property AIBoxOpen() As Boolean - Get - Return CType(Me("AIBoxOpen"), Boolean) - End Get - Set - Me("AIBoxOpen") = value - End Set - End Property - - - Public Property BackgroundColor() As Global.System.Drawing.Color - Get - Return CType(Me("BackgroundColor"), Global.System.Drawing.Color) - End Get - Set - Me("BackgroundColor") = value - End Set - End Property - - - Public Property BackgroundImage() As String - Get - Return CType(Me("BackgroundImage"), String) - End Get - Set - Me("BackgroundImage") = value - End Set - End Property - - - Public Property ButtonColor() As Global.System.Drawing.Color - Get - Return CType(Me("ButtonColor"), Global.System.Drawing.Color) - End Get - Set - Me("ButtonColor") = value - End Set - End Property - - - Public Property TextColor() As Global.System.Drawing.Color - Get - Return CType(Me("TextColor"), Global.System.Drawing.Color) - End Get - Set - Me("TextColor") = value - End Set - End Property - - - Public Property ChatWindowColor() As Global.System.Drawing.Color - Get - Return CType(Me("ChatWindowColor"), Global.System.Drawing.Color) - End Get - Set - Me("ChatWindowColor") = value - End Set - End Property - - - Public Property ChatTextColor() As Global.System.Drawing.Color - Get - Return CType(Me("ChatTextColor"), Global.System.Drawing.Color) - End Get - Set - Me("ChatTextColor") = value - End Set - End Property - - - Public Property BackgroundStretch() As Boolean - Get - Return CType(Me("BackgroundStretch"), Boolean) - End Get - Set - Me("BackgroundStretch") = value - End Set - End Property - - - Public Property CBInputIcon() As Boolean - Get - Return CType(Me("CBInputIcon"), Boolean) - End Get - Set - Me("CBInputIcon") = value - End Set - End Property - - - Public Property DateTextColor() As Global.System.Drawing.Color - Get - Return CType(Me("DateTextColor"), Global.System.Drawing.Color) - End Get - Set - Me("DateTextColor") = value - End Set - End Property - - - Public Property DateBackColor() As Global.System.Drawing.Color - Get - Return CType(Me("DateBackColor"), Global.System.Drawing.Color) - End Get - Set - Me("DateBackColor") = value - End Set - End Property - - - Public Property CBDateTransparent() As Boolean - Get - Return CType(Me("CBDateTransparent"), Boolean) - End Get - Set - Me("CBDateTransparent") = value - End Set - End Property - - - Public Property SplitterPosition() As Integer - Get - Return CType(Me("SplitterPosition"), Integer) - End Get - Set - Me("SplitterPosition") = value - End Set - End Property - - - Public Property MirrorWindows() As Boolean - Get - Return CType(Me("MirrorWindows"), Boolean) - End Get - Set - Me("MirrorWindows") = value - End Set - End Property - - - Public Property WakeUp() As Date - Get - Return CType(Me("WakeUp"), Date) - End Get - Set - Me("WakeUp") = value - End Set - End Property - - - Public Property HoldTheEdgeMin() As Integer - Get - Return CType(Me("HoldTheEdgeMin"), Integer) - End Get - Set - Me("HoldTheEdgeMin") = value - End Set - End Property - - - Public Property HoldTheEdgeMinAmount() As String - Get - Return CType(Me("HoldTheEdgeMinAmount"), String) - End Get - Set - Me("HoldTheEdgeMinAmount") = value - End Set - End Property - - - Public Property HoldTheEdgeMaxAmount() As String - Get - Return CType(Me("HoldTheEdgeMaxAmount"), String) - End Get - Set - Me("HoldTheEdgeMaxAmount") = value - End Set - End Property - - - Public Property MaxPace() As Integer - Get - Return CType(Me("MaxPace"), Integer) - End Get - Set - Me("MaxPace") = value - End Set - End Property - - - Public Property MinPace() As Integer - Get - Return CType(Me("MinPace"), Integer) - End Get - Set - Me("MinPace") = value - End Set - End Property - - - Public Property TypoChance() As Integer - Get - Return CType(Me("TypoChance"), Integer) - End Get - Set - Me("TypoChance") = value - End Set - End Property - - - Public Property TBEmote() As String - Get - Return CType(Me("TBEmote"), String) - End Get - Set - Me("TBEmote") = value - End Set - End Property - - - Public Property TBEmoteEnd() As String - Get - Return CType(Me("TBEmoteEnd"), String) - End Get - Set - Me("TBEmoteEnd") = value - End Set - End Property - - - Public Property VVolume() As Integer - Get - Return CType(Me("VVolume"), Integer) - End Get - Set - Me("VVolume") = value - End Set - End Property - - - Public Property VRate() As Integer - Get - Return CType(Me("VRate"), Integer) - End Get - Set - Me("VRate") = value - End Set - End Property - - - Public Property DomSadistic() As Boolean - Get - Return CType(Me("DomSadistic"), Boolean) - End Get - Set - Me("DomSadistic") = value - End Set - End Property - - - Public Property DomDegrading() As Boolean - Get - Return CType(Me("DomDegrading"), Boolean) - End Get - Set - Me("DomDegrading") = value - End Set - End Property - - - Public Property MetroOn() As Boolean - Get - Return CType(Me("MetroOn"), Boolean) - End Get - Set - Me("MetroOn") = value - End Set - End Property - - - Public Property LS1() As String - Get - Return CType(Me("LS1"), String) - End Get - Set - Me("LS1") = value - End Set - End Property - - - Public Property LS2() As String - Get - Return CType(Me("LS2"), String) - End Get - Set - Me("LS2") = value - End Set - End Property - - - Public Property LS3() As String - Get - Return CType(Me("LS3"), String) - End Get - Set - Me("LS3") = value - End Set - End Property - - - Public Property LS4() As String - Get - Return CType(Me("LS4"), String) - End Get - Set - Me("LS4") = value - End Set - End Property - - - Public Property LS5() As String - Get - Return CType(Me("LS5"), String) - End Get - Set - Me("LS5") = value - End Set - End Property - - - Public Property LS6() As String - Get - Return CType(Me("LS6"), String) - End Get - Set - Me("LS6") = value - End Set - End Property - - - Public Property LS7() As String - Get - Return CType(Me("LS7"), String) - End Get - Set - Me("LS7") = value - End Set - End Property - - - Public Property LS8() As String - Get - Return CType(Me("LS8"), String) - End Get - Set - Me("LS8") = value - End Set - End Property - - - Public Property LS9() As String - Get - Return CType(Me("LS9"), String) - End Get - Set - Me("LS9") = value - End Set - End Property - - - Public Property LS10() As String - Get - Return CType(Me("LS10"), String) - End Get - Set - Me("LS10") = value - End Set - End Property - - - Public Property LongHoldMin() As Integer - Get - Return CType(Me("LongHoldMin"), Integer) - End Get - Set - Me("LongHoldMin") = value - End Set - End Property - - - Public Property LongHoldMax() As String - Get - Return CType(Me("LongHoldMax"), String) - End Get - Set - Me("LongHoldMax") = value - End Set - End Property - - - Public Property ExtremeHoldMin() As String - Get - Return CType(Me("ExtremeHoldMin"), String) - End Get - Set - Me("ExtremeHoldMin") = value - End Set - End Property - - - Public Property ExtremeHoldMax() As String - Get - Return CType(Me("ExtremeHoldMax"), String) - End Get - Set - Me("ExtremeHoldMax") = value - End Set - End Property - - - Public Property CBWebtease() As Boolean - Get - Return CType(Me("CBWebtease"), Boolean) - End Get - Set - Me("CBWebtease") = value - End Set - End Property - - - Public Property SplitterDistance() As Integer - Get - Return CType(Me("SplitterDistance"), Integer) - End Get - Set - Me("SplitterDistance") = value - End Set - End Property - - - Public Property SideChat() As Boolean - Get - Return CType(Me("SideChat"), Boolean) - End Get - Set - Me("SideChat") = value - End Set - End Property - - - Public Property LazySubAV() As Boolean - Get - Return CType(Me("LazySubAV"), Boolean) - End Get - Set - Me("LazySubAV") = value - End Set - End Property - - - Public Property MuteMedia() As Boolean - Get - Return CType(Me("MuteMedia"), Boolean) - End Get - Set - Me("MuteMedia") = value - End Set - End Property - - - Public Property OfflineMode() As Boolean - Get - Return CType(Me("OfflineMode"), Boolean) - End Get - Set - Me("OfflineMode") = value - End Set - End Property - - - Public Property CBNewSlideshow() As Boolean - Get - Return CType(Me("CBNewSlideshow"), Boolean) - End Get - Set - Me("CBNewSlideshow") = value - End Set - End Property - - - Public Property TauntEdging() As Integer - Get - Return CType(Me("TauntEdging"), Integer) - End Get - Set - Me("TauntEdging") = value - End Set - End Property - - - Public Property UrlFileHardcore() As String - Get - Return CType(Me("UrlFileHardcore"), String) - End Get - Set - Me("UrlFileHardcore") = value - End Set - End Property - - - Public Property UrlFileSoftcore() As String - Get - Return CType(Me("UrlFileSoftcore"), String) - End Get - Set - Me("UrlFileSoftcore") = value - End Set - End Property - - - Public Property UrlFileLesbian() As String - Get - Return CType(Me("UrlFileLesbian"), String) - End Get - Set - Me("UrlFileLesbian") = value - End Set - End Property - - - Public Property UrlFileBlowjob() As String - Get - Return CType(Me("UrlFileBlowjob"), String) - End Get - Set - Me("UrlFileBlowjob") = value - End Set - End Property - - - Public Property UrlFileFemdom() As String - Get - Return CType(Me("UrlFileFemdom"), String) - End Get - Set - Me("UrlFileFemdom") = value - End Set - End Property - - - Public Property UrlFileLezdom() As String - Get - Return CType(Me("UrlFileLezdom"), String) - End Get - Set - Me("UrlFileLezdom") = value - End Set - End Property - - - Public Property UrlFileHentai() As String - Get - Return CType(Me("UrlFileHentai"), String) - End Get - Set - Me("UrlFileHentai") = value - End Set - End Property - - - Public Property UrlFileGay() As String - Get - Return CType(Me("UrlFileGay"), String) - End Get - Set - Me("UrlFileGay") = value - End Set - End Property - - - Public Property UrlFileMaledom() As String - Get - Return CType(Me("UrlFileMaledom"), String) - End Get - Set - Me("UrlFileMaledom") = value - End Set - End Property - - - Public Property UrlFileCaptions() As String - Get - Return CType(Me("UrlFileCaptions"), String) - End Get - Set - Me("UrlFileCaptions") = value - End Set - End Property - - - Public Property UrlFileGeneral() As String - Get - Return CType(Me("UrlFileGeneral"), String) - End Get - Set - Me("UrlFileGeneral") = value - End Set - End Property - - - Public Property UrlFileHardcoreEnabled() As Boolean - Get - Return CType(Me("UrlFileHardcoreEnabled"), Boolean) - End Get - Set - Me("UrlFileHardcoreEnabled") = value - End Set - End Property - - - Public Property UrlFileSoftcoreEnabled() As Boolean - Get - Return CType(Me("UrlFileSoftcoreEnabled"), Boolean) - End Get - Set - Me("UrlFileSoftcoreEnabled") = value - End Set - End Property - - - Public Property UrlFileLesbianEnabled() As Boolean - Get - Return CType(Me("UrlFileLesbianEnabled"), Boolean) - End Get - Set - Me("UrlFileLesbianEnabled") = value - End Set - End Property - - - Public Property UrlFileBlowjobEnabled() As Boolean - Get - Return CType(Me("UrlFileBlowjobEnabled"), Boolean) - End Get - Set - Me("UrlFileBlowjobEnabled") = value - End Set - End Property - - - Public Property UrlFileFemdomEnabled() As Boolean - Get - Return CType(Me("UrlFileFemdomEnabled"), Boolean) - End Get - Set - Me("UrlFileFemdomEnabled") = value - End Set - End Property - - - Public Property UrlFileLezdomEnabled() As Boolean - Get - Return CType(Me("UrlFileLezdomEnabled"), Boolean) - End Get - Set - Me("UrlFileLezdomEnabled") = value - End Set - End Property - - - Public Property UrlFileHentaiEnabled() As Boolean - Get - Return CType(Me("UrlFileHentaiEnabled"), Boolean) - End Get - Set - Me("UrlFileHentaiEnabled") = value - End Set - End Property - - - Public Property UrlFileGayEnabled() As Boolean - Get - Return CType(Me("UrlFileGayEnabled"), Boolean) - End Get - Set - Me("UrlFileGayEnabled") = value - End Set - End Property - - - Public Property UrlFileMaledomEnabled() As Boolean - Get - Return CType(Me("UrlFileMaledomEnabled"), Boolean) - End Get - Set - Me("UrlFileMaledomEnabled") = value - End Set - End Property - - - Public Property UrlFileCaptionsEnabled() As Boolean - Get - Return CType(Me("UrlFileCaptionsEnabled"), Boolean) - End Get - Set - Me("UrlFileCaptionsEnabled") = value - End Set - End Property - - - Public Property UrlFileGeneralEnabled() As Boolean - Get - Return CType(Me("UrlFileGeneralEnabled"), Boolean) - End Get - Set - Me("UrlFileGeneralEnabled") = value - End Set - End Property - - - Public Property CBIBoobs() As Boolean - Get - Return CType(Me("CBIBoobs"), Boolean) - End Get - Set - Me("CBIBoobs") = value - End Set - End Property - - - Public Property CBIButts() As Boolean - Get - Return CType(Me("CBIButts"), Boolean) - End Get - Set - Me("CBIButts") = value - End Set - End Property - - - Public Property UrlFileBoobsEnabled() As Boolean - Get - Return CType(Me("UrlFileBoobsEnabled"), Boolean) - End Get - Set - Me("UrlFileBoobsEnabled") = value - End Set - End Property - - - Public Property UrlFileButtEnabled() As Boolean - Get - Return CType(Me("UrlFileButtEnabled"), Boolean) - End Get - Set - Me("UrlFileButtEnabled") = value - End Set - End Property - - - Public Property CBURLPreview() As Boolean - Get - Return CType(Me("CBURLPreview"), Boolean) - End Get - Set - Me("CBURLPreview") = value - End Set - End Property - - - Public Property TaskStrokesMin() As Decimal - Get - Return CType(Me("TaskStrokesMin"), Decimal) - End Get - Set - Me("TaskStrokesMin") = value - End Set - End Property - - - Public Property TaskStrokesMax() As Decimal - Get - Return CType(Me("TaskStrokesMax"), Decimal) - End Get - Set - Me("TaskStrokesMax") = value - End Set - End Property - - - Public Property TaskStrokingTimeMin() As Decimal - Get - Return CType(Me("TaskStrokingTimeMin"), Decimal) - End Get - Set - Me("TaskStrokingTimeMin") = value - End Set - End Property - - - Public Property TaskStrokingTimeMax() As Decimal - Get - Return CType(Me("TaskStrokingTimeMax"), Decimal) - End Get - Set - Me("TaskStrokingTimeMax") = value - End Set - End Property - - - Public Property TaskEdgesMin() As Decimal - Get - Return CType(Me("TaskEdgesMin"), Decimal) - End Get - Set - Me("TaskEdgesMin") = value - End Set - End Property - - - Public Property TaskEdgesMax() As Decimal - Get - Return CType(Me("TaskEdgesMax"), Decimal) - End Get - Set - Me("TaskEdgesMax") = value - End Set - End Property - - - Public Property TaskEdgeHoldTimeMin() As Decimal - Get - Return CType(Me("TaskEdgeHoldTimeMin"), Decimal) - End Get - Set - Me("TaskEdgeHoldTimeMin") = value - End Set - End Property - - - Public Property TaskEdgeHoldTimeMax() As Decimal - Get - Return CType(Me("TaskEdgeHoldTimeMax"), Decimal) - End Get - Set - Me("TaskEdgeHoldTimeMax") = value - End Set - End Property - - - Public Property TaskCBTTimeMin() As Decimal - Get - Return CType(Me("TaskCBTTimeMin"), Decimal) - End Get - Set - Me("TaskCBTTimeMin") = value - End Set - End Property - - - Public Property TaskCBTTimeMax() As Decimal - Get - Return CType(Me("TaskCBTTimeMax"), Decimal) - End Get - Set - Me("TaskCBTTimeMax") = value - End Set - End Property - - - Public Property TasksMin() As String - Get - Return CType(Me("TasksMin"), String) - End Get - Set - Me("TasksMin") = value - End Set - End Property - - - Public Property TasksMax() As String - Get - Return CType(Me("TasksMax"), String) - End Get - Set - Me("TasksMax") = value - End Set - End Property - - - Public Property WritingProgress() As Boolean - Get - Return CType(Me("WritingProgress"), Boolean) - End Get - Set - Me("WritingProgress") = value - End Set - End Property - - - Public Property TimedWriting() As Boolean - Get - Return CType(Me("TimedWriting"), Boolean) - End Get - Set - Me("TimedWriting") = value - End Set - End Property - - - Public Property TypeSpeed() As Integer - Get - Return CType(Me("TypeSpeed"), Integer) - End Get - Set - Me("TypeSpeed") = value - End Set - End Property - - " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "")> - Public Property RecentSlideshows() As Global.System.Collections.Specialized.StringCollection - Get - Return CType(Me("RecentSlideshows"), Global.System.Collections.Specialized.StringCollection) - End Get - Set - Me("RecentSlideshows") = value - End Set - End Property - - - Public Property LockOrgasmChances() As Boolean - Get - Return CType(Me("LockOrgasmChances"), Boolean) - End Get - Set - Me("LockOrgasmChances") = value - End Set - End Property - - - Public Property MaximizeMediaWindow() As Boolean - Get - Return CType(Me("MaximizeMediaWindow"), Boolean) - End Get - Set - Me("MaximizeMediaWindow") = value - End Set - End Property - - - Public Property DisplaySidePanel() As Boolean - Get - Return CType(Me("DisplaySidePanel"), Boolean) - End Get - Set - Me("DisplaySidePanel") = value - End Set - End Property - - - Public Property giveUpReturn() As Boolean - Get - Return CType(Me("giveUpReturn"), Boolean) - End Get - Set - Me("giveUpReturn") = Value - End Set - End Property - End Class + Return defaultInstance + End Get + End Property + + _ + Public Property VideoHardcore() As String + Get + Return CType(Me("VideoHardcore"),String) + End Get + Set + Me("VideoHardcore") = value + End Set + End Property + + _ + Public Property VideoSoftcore() As String + Get + Return CType(Me("VideoSoftcore"),String) + End Get + Set + Me("VideoSoftcore") = value + End Set + End Property + + _ + Public Property VideoLesbian() As String + Get + Return CType(Me("VideoLesbian"),String) + End Get + Set + Me("VideoLesbian") = value + End Set + End Property + + _ + Public Property VideoBlowjob() As String + Get + Return CType(Me("VideoBlowjob"),String) + End Get + Set + Me("VideoBlowjob") = value + End Set + End Property + + _ + Public Property VideoFemdom() As String + Get + Return CType(Me("VideoFemdom"),String) + End Get + Set + Me("VideoFemdom") = value + End Set + End Property + + _ + Public Property VideoFemsub() As String + Get + Return CType(Me("VideoFemsub"),String) + End Get + Set + Me("VideoFemsub") = value + End Set + End Property + + _ + Public Property VideoJOI() As String + Get + Return CType(Me("VideoJOI"),String) + End Get + Set + Me("VideoJOI") = value + End Set + End Property + + _ + Public Property VideoCH() As String + Get + Return CType(Me("VideoCH"),String) + End Get + Set + Me("VideoCH") = value + End Set + End Property + + _ + Public Property VideoGeneral() As String + Get + Return CType(Me("VideoGeneral"),String) + End Get + Set + Me("VideoGeneral") = value + End Set + End Property + + _ + Public Property CBHardcore() As Boolean + Get + Return CType(Me("CBHardcore"),Boolean) + End Get + Set + Me("CBHardcore") = value + End Set + End Property + + _ + Public Property CBSoftcore() As Boolean + Get + Return CType(Me("CBSoftcore"),Boolean) + End Get + Set + Me("CBSoftcore") = value + End Set + End Property + + _ + Public Property CBLesbian() As Boolean + Get + Return CType(Me("CBLesbian"),Boolean) + End Get + Set + Me("CBLesbian") = value + End Set + End Property + + _ + Public Property CBBlowjob() As Boolean + Get + Return CType(Me("CBBlowjob"),Boolean) + End Get + Set + Me("CBBlowjob") = value + End Set + End Property + + _ + Public Property CBFemdom() As Boolean + Get + Return CType(Me("CBFemdom"),Boolean) + End Get + Set + Me("CBFemdom") = value + End Set + End Property + + _ + Public Property CBFemsub() As Boolean + Get + Return CType(Me("CBFemsub"),Boolean) + End Get + Set + Me("CBFemsub") = value + End Set + End Property + + _ + Public Property CBJOI() As Boolean + Get + Return CType(Me("CBJOI"),Boolean) + End Get + Set + Me("CBJOI") = value + End Set + End Property + + _ + Public Property CBCH() As Boolean + Get + Return CType(Me("CBCH"),Boolean) + End Get + Set + Me("CBCH") = value + End Set + End Property + + _ + Public Property CBGeneral() As Boolean + Get + Return CType(Me("CBGeneral"),Boolean) + End Get + Set + Me("CBGeneral") = value + End Set + End Property + + _ + Public Property DomAvatarSave() As String + Get + Return CType(Me("DomAvatarSave"),String) + End Get + Set + Me("DomAvatarSave") = value + End Set + End Property + + _ + Public Property SubAvatarSave() As String + Get + Return CType(Me("SubAvatarSave"),String) + End Get + Set + Me("SubAvatarSave") = value + End Set + End Property + + _ + Public Property NBCensorShowMin() As Decimal + Get + Return CType(Me("NBCensorShowMin"),Decimal) + End Get + Set + Me("NBCensorShowMin") = value + End Set + End Property + + _ + Public Property NBCensorShowMax() As Decimal + Get + Return CType(Me("NBCensorShowMax"),Decimal) + End Get + Set + Me("NBCensorShowMax") = value + End Set + End Property + + _ + Public Property NBCensorHideMin() As Decimal + Get + Return CType(Me("NBCensorHideMin"),Decimal) + End Get + Set + Me("NBCensorHideMin") = value + End Set + End Property + + _ + Public Property NBCensorHideMax() As Decimal + Get + Return CType(Me("NBCensorHideMax"),Decimal) + End Get + Set + Me("NBCensorHideMax") = value + End Set + End Property + + _ + Public Property CBCensorConstant() As Boolean + Get + Return CType(Me("CBCensorConstant"),Boolean) + End Get + Set + Me("CBCensorConstant") = value + End Set + End Property + + _ + Public Property CBHardcoreD() As Boolean + Get + Return CType(Me("CBHardcoreD"),Boolean) + End Get + Set + Me("CBHardcoreD") = value + End Set + End Property + + _ + Public Property CBSoftcoreD() As Boolean + Get + Return CType(Me("CBSoftcoreD"),Boolean) + End Get + Set + Me("CBSoftcoreD") = value + End Set + End Property + + _ + Public Property CBLesbianD() As Boolean + Get + Return CType(Me("CBLesbianD"),Boolean) + End Get + Set + Me("CBLesbianD") = value + End Set + End Property + + _ + Public Property CBBlowjobD() As Boolean + Get + Return CType(Me("CBBlowjobD"),Boolean) + End Get + Set + Me("CBBlowjobD") = value + End Set + End Property + + _ + Public Property CBFemsubD() As Boolean + Get + Return CType(Me("CBFemsubD"),Boolean) + End Get + Set + Me("CBFemsubD") = value + End Set + End Property + + _ + Public Property CBJOID() As Boolean + Get + Return CType(Me("CBJOID"),Boolean) + End Get + Set + Me("CBJOID") = value + End Set + End Property + + _ + Public Property CBCHD() As Boolean + Get + Return CType(Me("CBCHD"),Boolean) + End Get + Set + Me("CBCHD") = value + End Set + End Property + + _ + Public Property CBGeneralD() As Boolean + Get + Return CType(Me("CBGeneralD"),Boolean) + End Get + Set + Me("CBGeneralD") = value + End Set + End Property + + _ + Public Property CBFemdomD() As Boolean + Get + Return CType(Me("CBFemdomD"),Boolean) + End Get + Set + Me("CBFemdomD") = value + End Set + End Property + + _ + Public Property VideoHardcoreD() As String + Get + Return CType(Me("VideoHardcoreD"),String) + End Get + Set + Me("VideoHardcoreD") = value + End Set + End Property + + _ + Public Property VideoSoftcoreD() As String + Get + Return CType(Me("VideoSoftcoreD"),String) + End Get + Set + Me("VideoSoftcoreD") = value + End Set + End Property + + _ + Public Property VideoLesbianD() As String + Get + Return CType(Me("VideoLesbianD"),String) + End Get + Set + Me("VideoLesbianD") = value + End Set + End Property + + _ + Public Property VideoBlowjobD() As String + Get + Return CType(Me("VideoBlowjobD"),String) + End Get + Set + Me("VideoBlowjobD") = value + End Set + End Property + + _ + Public Property VideoFemdomD() As String + Get + Return CType(Me("VideoFemdomD"),String) + End Get + Set + Me("VideoFemdomD") = value + End Set + End Property + + _ + Public Property VideoFemsubD() As String + Get + Return CType(Me("VideoFemsubD"),String) + End Get + Set + Me("VideoFemsubD") = value + End Set + End Property + + _ + Public Property VideoJOID() As String + Get + Return CType(Me("VideoJOID"),String) + End Get + Set + Me("VideoJOID") = value + End Set + End Property + + _ + Public Property VideoCHD() As String + Get + Return CType(Me("VideoCHD"),String) + End Get + Set + Me("VideoCHD") = value + End Set + End Property + + _ + Public Property VideoGeneralD() As String + Get + Return CType(Me("VideoGeneralD"),String) + End Get + Set + Me("VideoGeneralD") = value + End Set + End Property + + _ + Public Property GlitterAV() As String + Get + Return CType(Me("GlitterAV"),String) + End Get + Set + Me("GlitterAV") = value + End Set + End Property + + _ + Public Property GlitterAV1() As String + Get + Return CType(Me("GlitterAV1"),String) + End Get + Set + Me("GlitterAV1") = value + End Set + End Property + + _ + Public Property GlitterAV2() As String + Get + Return CType(Me("GlitterAV2"),String) + End Get + Set + Me("GlitterAV2") = value + End Set + End Property + + _ + Public Property GlitterAV3() As String + Get + Return CType(Me("GlitterAV3"),String) + End Get + Set + Me("GlitterAV3") = value + End Set + End Property + + _ + Public Property GlitterSN() As String + Get + Return CType(Me("GlitterSN"),String) + End Get + Set + Me("GlitterSN") = value + End Set + End Property + + _ + Public Property Glitter1() As String + Get + Return CType(Me("Glitter1"),String) + End Get + Set + Me("Glitter1") = value + End Set + End Property + + _ + Public Property Glitter2() As String + Get + Return CType(Me("Glitter2"),String) + End Get + Set + Me("Glitter2") = value + End Set + End Property + + _ + Public Property Glitter3() As String + Get + Return CType(Me("Glitter3"),String) + End Get + Set + Me("Glitter3") = value + End Set + End Property + + _ + Public Property GlitterNCDommeColor() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNCDommeColor"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNCDommeColor") = value + End Set + End Property + + _ + Public Property GlitterNC1Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC1Color"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC1Color") = value + End Set + End Property + + _ + Public Property GlitterNC2Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC2Color"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC2Color") = value + End Set + End Property + + _ + Public Property GlitterNC3Color() As Global.System.Drawing.Color + Get + Return CType(Me("GlitterNC3Color"),Global.System.Drawing.Color) + End Get + Set + Me("GlitterNC3Color") = value + End Set + End Property + + _ + Public Property GlitterDSlider() As Integer + Get + Return CType(Me("GlitterDSlider"),Integer) + End Get + Set + Me("GlitterDSlider") = value + End Set + End Property + + _ + Public Property Glitter1Slider() As Integer + Get + Return CType(Me("Glitter1Slider"),Integer) + End Get + Set + Me("Glitter1Slider") = value + End Set + End Property + + _ + Public Property Glitter2Slider() As Integer + Get + Return CType(Me("Glitter2Slider"),Integer) + End Get + Set + Me("Glitter2Slider") = value + End Set + End Property + + _ + Public Property Glitter3Slider() As Integer + Get + Return CType(Me("Glitter3Slider"),Integer) + End Get + Set + Me("Glitter3Slider") = value + End Set + End Property + + _ + Public Property CBGlitterFeed() As Boolean + Get + Return CType(Me("CBGlitterFeed"),Boolean) + End Get + Set + Me("CBGlitterFeed") = value + End Set + End Property + + _ + Public Property CBGlitter1() As Boolean + Get + Return CType(Me("CBGlitter1"),Boolean) + End Get + Set + Me("CBGlitter1") = value + End Set + End Property + + _ + Public Property CBGlitter2() As Boolean + Get + Return CType(Me("CBGlitter2"),Boolean) + End Get + Set + Me("CBGlitter2") = value + End Set + End Property + + _ + Public Property CBGlitter3() As Boolean + Get + Return CType(Me("CBGlitter3"),Boolean) + End Get + Set + Me("CBGlitter3") = value + End Set + End Property + + _ + Public Property CBTease() As Boolean + Get + Return CType(Me("CBTease"),Boolean) + End Get + Set + Me("CBTease") = value + End Set + End Property + + _ + Public Property CBEgotist() As Boolean + Get + Return CType(Me("CBEgotist"),Boolean) + End Get + Set + Me("CBEgotist") = value + End Set + End Property + + _ + Public Property CBTrivia() As Boolean + Get + Return CType(Me("CBTrivia"),Boolean) + End Get + Set + Me("CBTrivia") = value + End Set + End Property + + _ + Public Property CBDaily() As Boolean + Get + Return CType(Me("CBDaily"),Boolean) + End Get + Set + Me("CBDaily") = value + End Set + End Property + + _ + Public Property CBCustom1() As Boolean + Get + Return CType(Me("CBCustom1"),Boolean) + End Get + Set + Me("CBCustom1") = value + End Set + End Property + + _ + Public Property CBCustom2() As Boolean + Get + Return CType(Me("CBCustom2"),Boolean) + End Get + Set + Me("CBCustom2") = value + End Set + End Property + + _ + Public Property CB1Bratty() As Boolean + Get + Return CType(Me("CB1Bratty"),Boolean) + End Get + Set + Me("CB1Bratty") = value + End Set + End Property + + _ + Public Property CB1Cruel() As Boolean + Get + Return CType(Me("CB1Cruel"),Boolean) + End Get + Set + Me("CB1Cruel") = value + End Set + End Property + + _ + Public Property CB1Caring() As Boolean + Get + Return CType(Me("CB1Caring"),Boolean) + End Get + Set + Me("CB1Caring") = value + End Set + End Property + + _ + Public Property CB1Angry() As Boolean + Get + Return CType(Me("CB1Angry"),Boolean) + End Get + Set + Me("CB1Angry") = value + End Set + End Property + + _ + Public Property CB1Custom1() As Boolean + Get + Return CType(Me("CB1Custom1"),Boolean) + End Get + Set + Me("CB1Custom1") = value + End Set + End Property + + _ + Public Property CB1Custom2() As Boolean + Get + Return CType(Me("CB1Custom2"),Boolean) + End Get + Set + Me("CB1Custom2") = value + End Set + End Property + + _ + Public Property CB2Bratty() As Boolean + Get + Return CType(Me("CB2Bratty"),Boolean) + End Get + Set + Me("CB2Bratty") = value + End Set + End Property + + _ + Public Property CB2Cruel() As Boolean + Get + Return CType(Me("CB2Cruel"),Boolean) + End Get + Set + Me("CB2Cruel") = value + End Set + End Property + + _ + Public Property CB2Caring() As Boolean + Get + Return CType(Me("CB2Caring"),Boolean) + End Get + Set + Me("CB2Caring") = value + End Set + End Property + + _ + Public Property CB2Angry() As Boolean + Get + Return CType(Me("CB2Angry"),Boolean) + End Get + Set + Me("CB2Angry") = value + End Set + End Property + + _ + Public Property CB2Custom1() As Boolean + Get + Return CType(Me("CB2Custom1"),Boolean) + End Get + Set + Me("CB2Custom1") = value + End Set + End Property + + _ + Public Property CB2Custom2() As Boolean + Get + Return CType(Me("CB2Custom2"),Boolean) + End Get + Set + Me("CB2Custom2") = value + End Set + End Property + + _ + Public Property CB3Bratty() As Boolean + Get + Return CType(Me("CB3Bratty"),Boolean) + End Get + Set + Me("CB3Bratty") = value + End Set + End Property + + _ + Public Property CB3Cruel() As Boolean + Get + Return CType(Me("CB3Cruel"),Boolean) + End Get + Set + Me("CB3Cruel") = value + End Set + End Property + + _ + Public Property CB3Caring() As Boolean + Get + Return CType(Me("CB3Caring"),Boolean) + End Get + Set + Me("CB3Caring") = value + End Set + End Property + + _ + Public Property CB3Angry() As Boolean + Get + Return CType(Me("CB3Angry"),Boolean) + End Get + Set + Me("CB3Angry") = value + End Set + End Property + + _ + Public Property CB3Custom1() As Boolean + Get + Return CType(Me("CB3Custom1"),Boolean) + End Get + Set + Me("CB3Custom1") = value + End Set + End Property + + _ + Public Property CB3Custom2() As Boolean + Get + Return CType(Me("CB3Custom2"),Boolean) + End Get + Set + Me("CB3Custom2") = value + End Set + End Property + + _ + Public Property DomName() As String + Get + Return CType(Me("DomName"),String) + End Get + Set + Me("DomName") = value + End Set + End Property + + _ + Public Property SubName() As String + Get + Return CType(Me("SubName"),String) + End Get + Set + Me("SubName") = value + End Set + End Property + + _ + Public Property pnSetting1() As String + Get + Return CType(Me("pnSetting1"),String) + End Get + Set + Me("pnSetting1") = value + End Set + End Property + + _ + Public Property pnSetting2() As String + Get + Return CType(Me("pnSetting2"),String) + End Get + Set + Me("pnSetting2") = value + End Set + End Property + + _ + Public Property pnSetting3() As String + Get + Return CType(Me("pnSetting3"),String) + End Get + Set + Me("pnSetting3") = value + End Set + End Property + + _ + Public Property pnSetting4() As String + Get + Return CType(Me("pnSetting4"),String) + End Get + Set + Me("pnSetting4") = value + End Set + End Property + + _ + Public Property pnSetting5() As String + Get + Return CType(Me("pnSetting5"),String) + End Get + Set + Me("pnSetting5") = value + End Set + End Property + + _ + Public Property pnSetting6() As String + Get + Return CType(Me("pnSetting6"),String) + End Get + Set + Me("pnSetting6") = value + End Set + End Property + + _ + Public Property pnSetting7() As String + Get + Return CType(Me("pnSetting7"),String) + End Get + Set + Me("pnSetting7") = value + End Set + End Property + + _ + Public Property pnSetting8() As String + Get + Return CType(Me("pnSetting8"),String) + End Get + Set + Me("pnSetting8") = value + End Set + End Property + + _ + Public Property DomColor() As String + Get + Return CType(Me("DomColor"),String) + End Get + Set + Me("DomColor") = value + End Set + End Property + + _ + Public Property SubColor() As String + Get + Return CType(Me("SubColor"),String) + End Get + Set + Me("SubColor") = value + End Set + End Property + + _ + Public Property DomColorColor() As Global.System.Drawing.Color + Get + Return CType(Me("DomColorColor"),Global.System.Drawing.Color) + End Get + Set + Me("DomColorColor") = value + End Set + End Property + + _ + Public Property SubColorColor() As Global.System.Drawing.Color + Get + Return CType(Me("SubColorColor"),Global.System.Drawing.Color) + End Get + Set + Me("SubColorColor") = value + End Set + End Property + + _ + Public Property CBTimeStamps() As Boolean + Get + Return CType(Me("CBTimeStamps"),Boolean) + End Get + Set + Me("CBTimeStamps") = value + End Set + End Property + + _ + Public Property CBShowNames() As Boolean + Get + Return CType(Me("CBShowNames"),Boolean) + End Get + Set + Me("CBShowNames") = value + End Set + End Property + + _ + Public Property CBInstantType() As Boolean + Get + Return CType(Me("CBInstantType"),Boolean) + End Get + Set + Me("CBInstantType") = value + End Set + End Property + + _ + Public Property CBBlogImageMain() As Boolean + Get + Return CType(Me("CBBlogImageMain"),Boolean) + End Get + Set + Me("CBBlogImageMain") = value + End Set + End Property + + _ + Public Property CBStretchLandscape() As Boolean + Get + Return CType(Me("CBStretchLandscape"),Boolean) + End Get + Set + Me("CBStretchLandscape") = value + End Set + End Property + + _ + Public Property CBMetronome() As Boolean + Get + Return CType(Me("CBMetronome"),Boolean) + End Get + Set + Me("CBMetronome") = value + End Set + End Property + + _ + Public Property CBSettingsPause() As Boolean + Get + Return CType(Me("CBSettingsPause"),Boolean) + End Get + Set + Me("CBSettingsPause") = value + End Set + End Property + + _ + Public Property DomLevel() As Integer + Get + Return CType(Me("DomLevel"),Integer) + End Get + Set + Me("DomLevel") = value + End Set + End Property + + _ + Public Property OrgasmAllow() As String + Get + Return CType(Me("OrgasmAllow"),String) + End Get + Set + Me("OrgasmAllow") = value + End Set + End Property + + _ + Public Property OrgasmRuin() As String + Get + Return CType(Me("OrgasmRuin"),String) + End Get + Set + Me("OrgasmRuin") = value + End Set + End Property + + _ + Public Property CBAutosaveChatlog() As Boolean + Get + Return CType(Me("CBAutosaveChatlog"),Boolean) + End Get + Set + Me("CBAutosaveChatlog") = value + End Set + End Property + + _ + Public Property CBExitSaveChatlog() As Boolean + Get + Return CType(Me("CBExitSaveChatlog"),Boolean) + End Get + Set + Me("CBExitSaveChatlog") = value + End Set + End Property + + _ + Public Property AvgEdgeStroking() As Integer + Get + Return CType(Me("AvgEdgeStroking"),Integer) + End Get + Set + Me("AvgEdgeStroking") = value + End Set + End Property + + _ + Public Property AvgEdgeNoTouch() As Integer + Get + Return CType(Me("AvgEdgeNoTouch"),Integer) + End Get + Set + Me("AvgEdgeNoTouch") = value + End Set + End Property + + _ + Public Property AvgEdgeCount() As Integer + Get + Return CType(Me("AvgEdgeCount"),Integer) + End Get + Set + Me("AvgEdgeCount") = value + End Set + End Property + + _ + Public Property StrokeTimeTotal() As Integer + Get + Return CType(Me("StrokeTimeTotal"),Integer) + End Get + Set + Me("StrokeTimeTotal") = value + End Set + End Property + + _ + Public Property NBWritingTaskMin() As Integer + Get + Return CType(Me("NBWritingTaskMin"),Integer) + End Get + Set + Me("NBWritingTaskMin") = value + End Set + End Property + + _ + Public Property NBWritingTaskMax() As Integer + Get + Return CType(Me("NBWritingTaskMax"),Integer) + End Get + Set + Me("NBWritingTaskMax") = value + End Set + End Property + + _ + Public Property LBLBoobPath() As String + Get + Return CType(Me("LBLBoobPath"),String) + End Get + Set + Me("LBLBoobPath") = value + End Set + End Property + + _ + Public Property UrlFileBoobs() As String + Get + Return CType(Me("UrlFileBoobs"),String) + End Get + Set + Me("UrlFileBoobs") = value + End Set + End Property + + _ + Public Property LBLButtPath() As String + Get + Return CType(Me("LBLButtPath"),String) + End Get + Set + Me("LBLButtPath") = value + End Set + End Property + + _ + Public Property UrlFileButt() As String + Get + Return CType(Me("UrlFileButt"),String) + End Get + Set + Me("UrlFileButt") = value + End Set + End Property + + _ + Public Property CBBnBLocal() As Boolean + Get + Return CType(Me("CBBnBLocal"),Boolean) + End Get + Set + Me("CBBnBLocal") = value + End Set + End Property + + _ + Public Property CBBnBURL() As Boolean + Get + Return CType(Me("CBBnBURL"),Boolean) + End Get + Set + Me("CBBnBURL") = value + End Set + End Property + + _ + Public Property CBBoobSubDir() As Boolean + Get + Return CType(Me("CBBoobSubDir"),Boolean) + End Get + Set + Me("CBBoobSubDir") = value + End Set + End Property + + _ + Public Property CBButtSubDir() As Boolean + Get + Return CType(Me("CBButtSubDir"),Boolean) + End Get + Set + Me("CBButtSubDir") = value + End Set + End Property + + _ + Public Property CBEnableBnB() As Boolean + Get + Return CType(Me("CBEnableBnB"),Boolean) + End Get + Set + Me("CBEnableBnB") = value + End Set + End Property + + _ + Public Property CBSlideshowSubDir() As Boolean + Get + Return CType(Me("CBSlideshowSubDir"),Boolean) + End Get + Set + Me("CBSlideshowSubDir") = value + End Set + End Property + + _ + Public Property CBSlideshowRandom() As Boolean + Get + Return CType(Me("CBSlideshowRandom"),Boolean) + End Get + Set + Me("CBSlideshowRandom") = value + End Set + End Property + + _ + Public Property DomAge() As Integer + Get + Return CType(Me("DomAge"),Integer) + End Get + Set + Me("DomAge") = value + End Set + End Property + + _ + Public Property DomHair() As String + Get + Return CType(Me("DomHair"),String) + End Get + Set + Me("DomHair") = value + End Set + End Property + + _ + Public Property DomEyes() As String + Get + Return CType(Me("DomEyes"),String) + End Get + Set + Me("DomEyes") = value + End Set + End Property + + _ + Public Property DomCup() As String + Get + Return CType(Me("DomCup"),String) + End Get + Set + Me("DomCup") = value + End Set + End Property + + _ + Public Property DomPersonality() As String + Get + Return CType(Me("DomPersonality"),String) + End Get + Set + Me("DomPersonality") = value + End Set + End Property + + _ + Public Property DomCrazy() As Boolean + Get + Return CType(Me("DomCrazy"),Boolean) + End Get + Set + Me("DomCrazy") = value + End Set + End Property + + _ + Public Property DomVulgar() As Boolean + Get + Return CType(Me("DomVulgar"),Boolean) + End Get + Set + Me("DomVulgar") = value + End Set + End Property + + _ + Public Property DomSupremacist() As Boolean + Get + Return CType(Me("DomSupremacist"),Boolean) + End Get + Set + Me("DomSupremacist") = value + End Set + End Property + + _ + Public Property DomLowercase() As Boolean + Get + Return CType(Me("DomLowercase"),Boolean) + End Get + Set + Me("DomLowercase") = value + End Set + End Property + + _ + Public Property DomNoApostrophes() As Boolean + Get + Return CType(Me("DomNoApostrophes"),Boolean) + End Get + Set + Me("DomNoApostrophes") = value + End Set + End Property + + _ + Public Property DomNoCommas() As Boolean + Get + Return CType(Me("DomNoCommas"),Boolean) + End Get + Set + Me("DomNoCommas") = value + End Set + End Property + + _ + Public Property DomNoPeriods() As Boolean + Get + Return CType(Me("DomNoPeriods"),Boolean) + End Get + Set + Me("DomNoPeriods") = value + End Set + End Property + + _ + Public Property DomMeMyMine() As Boolean + Get + Return CType(Me("DomMeMyMine"),Boolean) + End Get + Set + Me("DomMeMyMine") = value + End Set + End Property + + _ + Public Property DomEmotes() As String + Get + Return CType(Me("DomEmotes"),String) + End Get + Set + Me("DomEmotes") = value + End Set + End Property + + _ + Public Property DomDenialEnd() As Boolean + Get + Return CType(Me("DomDenialEnd"),Boolean) + End Get + Set + Me("DomDenialEnd") = value + End Set + End Property + + _ + Public Property DomOrgasmEnd() As Boolean + Get + Return CType(Me("DomOrgasmEnd"),Boolean) + End Get + Set + Me("DomOrgasmEnd") = value + End Set + End Property + + _ + Public Property DomPOT() As Boolean + Get + Return CType(Me("DomPOT"),Boolean) + End Get + Set + Me("DomPOT") = value + End Set + End Property + + _ + Public Property DomLimit() As Boolean + Get + Return CType(Me("DomLimit"),Boolean) + End Get + Set + Me("DomLimit") = value + End Set + End Property + + _ + Public Property DomOrgasmPer() As Integer + Get + Return CType(Me("DomOrgasmPer"),Integer) + End Get + Set + Me("DomOrgasmPer") = value + End Set + End Property + + _ + Public Property DomPerMonth() As String + Get + Return CType(Me("DomPerMonth"),String) + End Get + Set + Me("DomPerMonth") = value + End Set + End Property + + _ + Public Property DomLock() As Boolean + Get + Return CType(Me("DomLock"),Boolean) + End Get + Set + Me("DomLock") = value + End Set + End Property + + _ + Public Property DomMoodMin() As Integer + Get + Return CType(Me("DomMoodMin"),Integer) + End Get + Set + Me("DomMoodMin") = value + End Set + End Property + + _ + Public Property DomMoodMax() As Integer + Get + Return CType(Me("DomMoodMax"),Integer) + End Get + Set + Me("DomMoodMax") = value + End Set + End Property + + _ + Public Property AvgCockMin() As Integer + Get + Return CType(Me("AvgCockMin"),Integer) + End Get + Set + Me("AvgCockMin") = value + End Set + End Property + + _ + Public Property AvgCockMax() As Integer + Get + Return CType(Me("AvgCockMax"),Integer) + End Get + Set + Me("AvgCockMax") = value + End Set + End Property + + _ + Public Property SelfAgeMin() As Integer + Get + Return CType(Me("SelfAgeMin"),Integer) + End Get + Set + Me("SelfAgeMin") = value + End Set + End Property + + _ + Public Property SelfAgeMax() As Integer + Get + Return CType(Me("SelfAgeMax"),Integer) + End Get + Set + Me("SelfAgeMax") = value + End Set + End Property + + _ + Public Property SubAgeMin() As Integer + Get + Return CType(Me("SubAgeMin"),Integer) + End Get + Set + Me("SubAgeMin") = value + End Set + End Property + + _ + Public Property SubAgeMax() As String + Get + Return CType(Me("SubAgeMax"),String) + End Get + Set + Me("SubAgeMax") = value + End Set + End Property + + _ + Public Property CBLockWindow() As Boolean + Get + Return CType(Me("CBLockWindow"),Boolean) + End Get + Set + Me("CBLockWindow") = value + End Set + End Property + + _ + Public Property SubGreeting() As String + Get + Return CType(Me("SubGreeting"),String) + End Get + Set + Me("SubGreeting") = value + End Set + End Property + + _ + Public Property SubYes() As String + Get + Return CType(Me("SubYes"),String) + End Get + Set + Me("SubYes") = value + End Set + End Property + + _ + Public Property SubNo() As String + Get + Return CType(Me("SubNo"),String) + End Get + Set + Me("SubNo") = value + End Set + End Property + + _ + Public Property SubHonorific() As String + Get + Return CType(Me("SubHonorific"),String) + End Get + Set + Me("SubHonorific") = value + End Set + End Property + + _ + Public Property CBUseHonor() As Boolean + Get + Return CType(Me("CBUseHonor"),Boolean) + End Get + Set + Me("CBUseHonor") = value + End Set + End Property + + _ + Public Property CBCapHonor() As Boolean + Get + Return CType(Me("CBCapHonor"),Boolean) + End Get + Set + Me("CBCapHonor") = value + End Set + End Property + + _ + Public Property SubCockSize() As Integer + Get + Return CType(Me("SubCockSize"),Integer) + End Get + Set + Me("SubCockSize") = value + End Set + End Property + + _ + Public Property SubAge() As Integer + Get + Return CType(Me("SubAge"),Integer) + End Get + Set + Me("SubAge") = value + End Set + End Property + + _ + Public Property TCAgreed() As Boolean + Get + Return CType(Me("TCAgreed"),Boolean) + End Get + Set + Me("TCAgreed") = value + End Set + End Property + + _ + Public Property TimerSTF() As Integer + Get + Return CType(Me("TimerSTF"),Integer) + End Get + Set + Me("TimerSTF") = value + End Set + End Property + + _ + Public Property SubBirthMonth() As Integer + Get + Return CType(Me("SubBirthMonth"),Integer) + End Get + Set + Me("SubBirthMonth") = value + End Set + End Property + + _ + Public Property SubBirthDay() As Integer + Get + Return CType(Me("SubBirthDay"),Integer) + End Get + Set + Me("SubBirthDay") = value + End Set + End Property + + _ + Public Property SubHair() As String + Get + Return CType(Me("SubHair"),String) + End Get + Set + Me("SubHair") = value + End Set + End Property + + _ + Public Property SubEyes() As String + Get + Return CType(Me("SubEyes"),String) + End Get + Set + Me("SubEyes") = value + End Set + End Property + + _ + Public Property DomFontSize() As Integer + Get + Return CType(Me("DomFontSize"),Integer) + End Get + Set + Me("DomFontSize") = value + End Set + End Property + + _ + Public Property DomFont() As String + Get + Return CType(Me("DomFont"),String) + End Get + Set + Me("DomFont") = value + End Set + End Property + + _ + Public Property SubFont() As String + Get + Return CType(Me("SubFont"),String) + End Get + Set + Me("SubFont") = value + End Set + End Property + + _ + Public Property SubFontSize() As Integer + Get + Return CType(Me("SubFontSize"),Integer) + End Get + Set + Me("SubFontSize") = value + End Set + End Property + + _ + Public Property DomBirthMonth() As Integer + Get + Return CType(Me("DomBirthMonth"),Integer) + End Get + Set + Me("DomBirthMonth") = value + End Set + End Property + + _ + Public Property DomBirthDay() As Integer + Get + Return CType(Me("DomBirthDay"),Integer) + End Get + Set + Me("DomBirthDay") = value + End Set + End Property + + _ + Public Property DomHairLength() As String + Get + Return CType(Me("DomHairLength"),String) + End Get + Set + Me("DomHairLength") = value + End Set + End Property + + _ + Public Property DomPubicHair() As String + Get + Return CType(Me("DomPubicHair"),String) + End Get + Set + Me("DomPubicHair") = value + End Set + End Property + + _ + Public Property DomTattoos() As Boolean + Get + Return CType(Me("DomTattoos"),Boolean) + End Get + Set + Me("DomTattoos") = value + End Set + End Property + + _ + Public Property DomFreckles() As Boolean + Get + Return CType(Me("DomFreckles"),Boolean) + End Get + Set + Me("DomFreckles") = value + End Set + End Property + + _ + Public Property CBImageInfo() As Boolean + Get + Return CType(Me("CBImageInfo"),Boolean) + End Get + Set + Me("CBImageInfo") = value + End Set + End Property + + _ + Public Property DomAVStretch() As Boolean + Get + Return CType(Me("DomAVStretch"),Boolean) + End Get + Set + Me("DomAVStretch") = value + End Set + End Property + + _ + Public Property SubAvStretch() As Boolean + Get + Return CType(Me("SubAvStretch"),Boolean) + End Get + Set + Me("SubAvStretch") = value + End Set + End Property + + _ + Public Property IHardcore() As String + Get + Return CType(Me("IHardcore"),String) + End Get + Set + Me("IHardcore") = value + End Set + End Property + + _ + Public Property ISoftcore() As String + Get + Return CType(Me("ISoftcore"),String) + End Get + Set + Me("ISoftcore") = value + End Set + End Property + + _ + Public Property ILesbian() As String + Get + Return CType(Me("ILesbian"),String) + End Get + Set + Me("ILesbian") = value + End Set + End Property + + _ + Public Property IBlowjob() As String + Get + Return CType(Me("IBlowjob"),String) + End Get + Set + Me("IBlowjob") = value + End Set + End Property + + _ + Public Property IFemdom() As String + Get + Return CType(Me("IFemdom"),String) + End Get + Set + Me("IFemdom") = value + End Set + End Property + + _ + Public Property ILezdom() As String + Get + Return CType(Me("ILezdom"),String) + End Get + Set + Me("ILezdom") = value + End Set + End Property + + _ + Public Property IHentai() As String + Get + Return CType(Me("IHentai"),String) + End Get + Set + Me("IHentai") = value + End Set + End Property + + _ + Public Property IGay() As String + Get + Return CType(Me("IGay"),String) + End Get + Set + Me("IGay") = value + End Set + End Property + + _ + Public Property IMaledom() As String + Get + Return CType(Me("IMaledom"),String) + End Get + Set + Me("IMaledom") = value + End Set + End Property + + _ + Public Property IGeneral() As String + Get + Return CType(Me("IGeneral"),String) + End Get + Set + Me("IGeneral") = value + End Set + End Property + + _ + Public Property IHardcoreSD() As Boolean + Get + Return CType(Me("IHardcoreSD"),Boolean) + End Get + Set + Me("IHardcoreSD") = value + End Set + End Property + + _ + Public Property ISoftcoreSD() As Boolean + Get + Return CType(Me("ISoftcoreSD"),Boolean) + End Get + Set + Me("ISoftcoreSD") = value + End Set + End Property + + _ + Public Property ILesbianSD() As Boolean + Get + Return CType(Me("ILesbianSD"),Boolean) + End Get + Set + Me("ILesbianSD") = value + End Set + End Property + + _ + Public Property IBlowjobSD() As Boolean + Get + Return CType(Me("IBlowjobSD"),Boolean) + End Get + Set + Me("IBlowjobSD") = value + End Set + End Property + + _ + Public Property IFemdomSD() As Boolean + Get + Return CType(Me("IFemdomSD"),Boolean) + End Get + Set + Me("IFemdomSD") = value + End Set + End Property + + _ + Public Property ILezdomSD() As Boolean + Get + Return CType(Me("ILezdomSD"),Boolean) + End Get + Set + Me("ILezdomSD") = value + End Set + End Property + + _ + Public Property IHentaiSD() As Boolean + Get + Return CType(Me("IHentaiSD"),Boolean) + End Get + Set + Me("IHentaiSD") = value + End Set + End Property + + _ + Public Property IGaySD() As Boolean + Get + Return CType(Me("IGaySD"),Boolean) + End Get + Set + Me("IGaySD") = value + End Set + End Property + + _ + Public Property IMaledomSD() As Boolean + Get + Return CType(Me("IMaledomSD"),Boolean) + End Get + Set + Me("IMaledomSD") = value + End Set + End Property + + _ + Public Property IGeneralSD() As Boolean + Get + Return CType(Me("IGeneralSD"),Boolean) + End Get + Set + Me("IGeneralSD") = value + End Set + End Property + + _ + Public Property ICaptionsSD() As Boolean + Get + Return CType(Me("ICaptionsSD"),Boolean) + End Get + Set + Me("ICaptionsSD") = value + End Set + End Property + + _ + Public Property CBIHardcore() As Boolean + Get + Return CType(Me("CBIHardcore"),Boolean) + End Get + Set + Me("CBIHardcore") = value + End Set + End Property + + _ + Public Property CBISoftcore() As Boolean + Get + Return CType(Me("CBISoftcore"),Boolean) + End Get + Set + Me("CBISoftcore") = value + End Set + End Property + + _ + Public Property CBILesbian() As Boolean + Get + Return CType(Me("CBILesbian"),Boolean) + End Get + Set + Me("CBILesbian") = value + End Set + End Property + + _ + Public Property CBIBlowjob() As Boolean + Get + Return CType(Me("CBIBlowjob"),Boolean) + End Get + Set + Me("CBIBlowjob") = value + End Set + End Property + + _ + Public Property CBIFemdom() As Boolean + Get + Return CType(Me("CBIFemdom"),Boolean) + End Get + Set + Me("CBIFemdom") = value + End Set + End Property + + _ + Public Property CBILezdom() As Boolean + Get + Return CType(Me("CBILezdom"),Boolean) + End Get + Set + Me("CBILezdom") = value + End Set + End Property + + _ + Public Property CBIHentai() As Boolean + Get + Return CType(Me("CBIHentai"),Boolean) + End Get + Set + Me("CBIHentai") = value + End Set + End Property + + _ + Public Property CBIGay() As Boolean + Get + Return CType(Me("CBIGay"),Boolean) + End Get + Set + Me("CBIGay") = value + End Set + End Property + + _ + Public Property CBIMaledom() As Boolean + Get + Return CType(Me("CBIMaledom"),Boolean) + End Get + Set + Me("CBIMaledom") = value + End Set + End Property + + _ + Public Property CBIGeneral() As Boolean + Get + Return CType(Me("CBIGeneral"),Boolean) + End Get + Set + Me("CBIGeneral") = value + End Set + End Property + + _ + Public Property CBICaptions() As Boolean + Get + Return CType(Me("CBICaptions"),Boolean) + End Get + Set + Me("CBICaptions") = value + End Set + End Property + + _ + Public Property ICaptions() As String + Get + Return CType(Me("ICaptions"),String) + End Get + Set + Me("ICaptions") = value + End Set + End Property + + _ + Public Property DomImageDir() As String + Get + Return CType(Me("DomImageDir"),String) + End Get + Set + Me("DomImageDir") = value + End Set + End Property + + _ + Public Property CBTCock() As Boolean + Get + Return CType(Me("CBTCock"),Boolean) + End Get + Set + Me("CBTCock") = value + End Set + End Property + + _ + Public Property CBTBalls() As Boolean + Get + Return CType(Me("CBTBalls"),Boolean) + End Get + Set + Me("CBTBalls") = value + End Set + End Property + + _ + Public Property ChastityPA() As Boolean + Get + Return CType(Me("ChastityPA"),Boolean) + End Get + Set + Me("ChastityPA") = value + End Set + End Property + + _ + Public Property ChastitySpikes() As Boolean + Get + Return CType(Me("ChastitySpikes"),Boolean) + End Get + Set + Me("ChastitySpikes") = value + End Set + End Property + + _ + Public Property SubInChastity() As Boolean + Get + Return CType(Me("SubInChastity"),Boolean) + End Get + Set + Me("SubInChastity") = value + End Set + End Property + + _ + Public Property LongEdge() As Integer + Get + Return CType(Me("LongEdge"),Integer) + End Get + Set + Me("LongEdge") = value + End Set + End Property + + _ + Public Property CBLongEdgeInterrupt() As Boolean + Get + Return CType(Me("CBLongEdgeInterrupt"),Boolean) + End Get + Set + Me("CBLongEdgeInterrupt") = value + End Set + End Property + + _ + Public Property HoldTheEdgeMax() As Integer + Get + Return CType(Me("HoldTheEdgeMax"),Integer) + End Get + Set + Me("HoldTheEdgeMax") = value + End Set + End Property + + _ + Public Property HoldEdgeTimeTotal() As Integer + Get + Return CType(Me("HoldEdgeTimeTotal"),Integer) + End Get + Set + Me("HoldEdgeTimeTotal") = value + End Set + End Property + + _ + Public Property CBTSlider() As Integer + Get + Return CType(Me("CBTSlider"),Integer) + End Get + Set + Me("CBTSlider") = value + End Set + End Property + + _ + Public Property SubCircumcised() As Boolean + Get + Return CType(Me("SubCircumcised"),Boolean) + End Get + Set + Me("SubCircumcised") = value + End Set + End Property + + _ + Public Property SubPierced() As Boolean + Get + Return CType(Me("SubPierced"),Boolean) + End Get + Set + Me("SubPierced") = value + End Set + End Property + + _ + Public Property DomEmpathy() As Integer + Get + Return CType(Me("DomEmpathy"),Integer) + End Get + Set + Me("DomEmpathy") = value + End Set + End Property + + _ + Public Property RangeOrgasm() As Boolean + Get + Return CType(Me("RangeOrgasm"),Boolean) + End Get + Set + Me("RangeOrgasm") = value + End Set + End Property + + _ + Public Property RangeRuin() As Boolean + Get + Return CType(Me("RangeRuin"),Boolean) + End Get + Set + Me("RangeRuin") = value + End Set + End Property + + _ + Public Property AllowOften() As Integer + Get + Return CType(Me("AllowOften"),Integer) + End Get + Set + Me("AllowOften") = value + End Set + End Property + + _ + Public Property AllowSometimes() As Integer + Get + Return CType(Me("AllowSometimes"),Integer) + End Get + Set + Me("AllowSometimes") = value + End Set + End Property + + _ + Public Property AllowRarely() As Integer + Get + Return CType(Me("AllowRarely"),Integer) + End Get + Set + Me("AllowRarely") = value + End Set + End Property + + _ + Public Property RuinOften() As Integer + Get + Return CType(Me("RuinOften"),Integer) + End Get + Set + Me("RuinOften") = value + End Set + End Property + + _ + Public Property RuinSometimes() As Integer + Get + Return CType(Me("RuinSometimes"),Integer) + End Get + Set + Me("RuinSometimes") = value + End Set + End Property + + _ + Public Property RuinRarely() As Integer + Get + Return CType(Me("RuinRarely"),Integer) + End Get + Set + Me("RuinRarely") = value + End Set + End Property + + _ + Public Property Chastity() As Boolean + Get + Return CType(Me("Chastity"),Boolean) + End Get + Set + Me("Chastity") = value + End Set + End Property + + _ + Public Property Safeword() As String + Get + Return CType(Me("Safeword"),String) + End Get + Set + Me("Safeword") = value + End Set + End Property + + _ + Public Property CaloriesConsumed() As Integer + Get + Return CType(Me("CaloriesConsumed"),Integer) + End Get + Set + Me("CaloriesConsumed") = value + End Set + End Property + + _ + Public Property CaloriesGoal() As Integer + Get + Return CType(Me("CaloriesGoal"),Integer) + End Get + Set + Me("CaloriesGoal") = value + End Set + End Property + + _ + Public Property VitalSubDisclaimer() As Boolean + Get + Return CType(Me("VitalSubDisclaimer"),Boolean) + End Get + Set + Me("VitalSubDisclaimer") = value + End Set + End Property + + _ + Public Property VitalSub() As Boolean + Get + Return CType(Me("VitalSub"),Boolean) + End Get + Set + Me("VitalSub") = value + End Set + End Property + + _ + Public Property VitalSubAssignments() As Boolean + Get + Return CType(Me("VitalSubAssignments"),Boolean) + End Get + Set + Me("VitalSubAssignments") = value + End Set + End Property + + _ + Public Property BP1() As String + Get + Return CType(Me("BP1"),String) + End Get + Set + Me("BP1") = value + End Set + End Property + + _ + Public Property BP2() As String + Get + Return CType(Me("BP2"),String) + End Get + Set + Me("BP2") = value + End Set + End Property + + _ + Public Property BP3() As String + Get + Return CType(Me("BP3"),String) + End Get + Set + Me("BP3") = value + End Set + End Property + + _ + Public Property BP4() As String + Get + Return CType(Me("BP4"),String) + End Get + Set + Me("BP4") = value + End Set + End Property + + _ + Public Property BP5() As String + Get + Return CType(Me("BP5"),String) + End Get + Set + Me("BP5") = value + End Set + End Property + + _ + Public Property BP6() As String + Get + Return CType(Me("BP6"),String) + End Get + Set + Me("BP6") = value + End Set + End Property + + _ + Public Property BN1() As String + Get + Return CType(Me("BN1"),String) + End Get + Set + Me("BN1") = value + End Set + End Property + + _ + Public Property BN2() As String + Get + Return CType(Me("BN2"),String) + End Get + Set + Me("BN2") = value + End Set + End Property + + _ + Public Property BN3() As String + Get + Return CType(Me("BN3"),String) + End Get + Set + Me("BN3") = value + End Set + End Property + + _ + Public Property BN4() As String + Get + Return CType(Me("BN4"),String) + End Get + Set + Me("BN4") = value + End Set + End Property + + _ + Public Property BN5() As String + Get + Return CType(Me("BN5"),String) + End Get + Set + Me("BN5") = value + End Set + End Property + + _ + Public Property BN6() As String + Get + Return CType(Me("BN6"),String) + End Get + Set + Me("BN6") = value + End Set + End Property + + _ + Public Property SP1() As String + Get + Return CType(Me("SP1"),String) + End Get + Set + Me("SP1") = value + End Set + End Property + + _ + Public Property SP2() As String + Get + Return CType(Me("SP2"),String) + End Get + Set + Me("SP2") = value + End Set + End Property + + _ + Public Property SP3() As String + Get + Return CType(Me("SP3"),String) + End Get + Set + Me("SP3") = value + End Set + End Property + + _ + Public Property SP4() As String + Get + Return CType(Me("SP4"),String) + End Get + Set + Me("SP4") = value + End Set + End Property + + _ + Public Property SP5() As String + Get + Return CType(Me("SP5"),String) + End Get + Set + Me("SP5") = value + End Set + End Property + + _ + Public Property SP6() As String + Get + Return CType(Me("SP6"),String) + End Get + Set + Me("SP6") = value + End Set + End Property + + _ + Public Property SN1() As String + Get + Return CType(Me("SN1"),String) + End Get + Set + Me("SN1") = value + End Set + End Property + + _ + Public Property SN2() As String + Get + Return CType(Me("SN2"),String) + End Get + Set + Me("SN2") = value + End Set + End Property + + _ + Public Property SN3() As String + Get + Return CType(Me("SN3"),String) + End Get + Set + Me("SN3") = value + End Set + End Property + + _ + Public Property SN4() As String + Get + Return CType(Me("SN4"),String) + End Get + Set + Me("SN4") = value + End Set + End Property + + _ + Public Property SN5() As String + Get + Return CType(Me("SN5"),String) + End Get + Set + Me("SN5") = value + End Set + End Property + + _ + Public Property SN6() As String + Get + Return CType(Me("SN6"),String) + End Get + Set + Me("SN6") = value + End Set + End Property + + _ + Public Property GP1() As String + Get + Return CType(Me("GP1"),String) + End Get + Set + Me("GP1") = value + End Set + End Property + + _ + Public Property GP2() As String + Get + Return CType(Me("GP2"),String) + End Get + Set + Me("GP2") = value + End Set + End Property + + _ + Public Property GP3() As String + Get + Return CType(Me("GP3"),String) + End Get + Set + Me("GP3") = value + End Set + End Property + + _ + Public Property GP4() As String + Get + Return CType(Me("GP4"),String) + End Get + Set + Me("GP4") = value + End Set + End Property + + _ + Public Property GP5() As String + Get + Return CType(Me("GP5"),String) + End Get + Set + Me("GP5") = value + End Set + End Property + + _ + Public Property GP6() As String + Get + Return CType(Me("GP6"),String) + End Get + Set + Me("GP6") = value + End Set + End Property + + _ + Public Property GN1() As String + Get + Return CType(Me("GN1"),String) + End Get + Set + Me("GN1") = value + End Set + End Property + + _ + Public Property GN2() As String + Get + Return CType(Me("GN2"),String) + End Get + Set + Me("GN2") = value + End Set + End Property + + _ + Public Property GN3() As String + Get + Return CType(Me("GN3"),String) + End Get + Set + Me("GN3") = value + End Set + End Property + + _ + Public Property GN4() As String + Get + Return CType(Me("GN4"),String) + End Get + Set + Me("GN4") = value + End Set + End Property + + _ + Public Property GN5() As String + Get + Return CType(Me("GN5"),String) + End Get + Set + Me("GN5") = value + End Set + End Property + + _ + Public Property GN6() As String + Get + Return CType(Me("GN6"),String) + End Get + Set + Me("GN6") = value + End Set + End Property + + _ + Public Property CardBack() As String + Get + Return CType(Me("CardBack"),String) + End Get + Set + Me("CardBack") = value + End Set + End Property + + _ + Public Property GoldTokens() As Integer + Get + Return CType(Me("GoldTokens"),Integer) + End Get + Set + Me("GoldTokens") = value + End Set + End Property + + _ + Public Property SilverTokens() As Integer + Get + Return CType(Me("SilverTokens"),Integer) + End Get + Set + Me("SilverTokens") = value + End Set + End Property + + _ + Public Property BronzeTokens() As Integer + Get + Return CType(Me("BronzeTokens"),Integer) + End Get + Set + Me("BronzeTokens") = value + End Set + End Property + + _ + Public Property B1() As Integer + Get + Return CType(Me("B1"),Integer) + End Get + Set + Me("B1") = value + End Set + End Property + + _ + Public Property B2() As Integer + Get + Return CType(Me("B2"),Integer) + End Get + Set + Me("B2") = value + End Set + End Property + + _ + Public Property B3() As Integer + Get + Return CType(Me("B3"),Integer) + End Get + Set + Me("B3") = value + End Set + End Property + + _ + Public Property B4() As Integer + Get + Return CType(Me("B4"),Integer) + End Get + Set + Me("B4") = value + End Set + End Property + + _ + Public Property B5() As Integer + Get + Return CType(Me("B5"),Integer) + End Get + Set + Me("B5") = value + End Set + End Property + + _ + Public Property B6() As Integer + Get + Return CType(Me("B6"),Integer) + End Get + Set + Me("B6") = value + End Set + End Property + + _ + Public Property S1() As Integer + Get + Return CType(Me("S1"),Integer) + End Get + Set + Me("S1") = value + End Set + End Property + + _ + Public Property S2() As Integer + Get + Return CType(Me("S2"),Integer) + End Get + Set + Me("S2") = value + End Set + End Property + + _ + Public Property S3() As Integer + Get + Return CType(Me("S3"),Integer) + End Get + Set + Me("S3") = value + End Set + End Property + + _ + Public Property S4() As Integer + Get + Return CType(Me("S4"),Integer) + End Get + Set + Me("S4") = value + End Set + End Property + + _ + Public Property S5() As Integer + Get + Return CType(Me("S5"),Integer) + End Get + Set + Me("S5") = value + End Set + End Property + + _ + Public Property S6() As Integer + Get + Return CType(Me("S6"),Integer) + End Get + Set + Me("S6") = value + End Set + End Property + + _ + Public Property G1() As Integer + Get + Return CType(Me("G1"),Integer) + End Get + Set + Me("G1") = value + End Set + End Property + + _ + Public Property G2() As Integer + Get + Return CType(Me("G2"),Integer) + End Get + Set + Me("G2") = value + End Set + End Property + + _ + Public Property G3() As Integer + Get + Return CType(Me("G3"),Integer) + End Get + Set + Me("G3") = value + End Set + End Property + + _ + Public Property G4() As Integer + Get + Return CType(Me("G4"),Integer) + End Get + Set + Me("G4") = value + End Set + End Property + + _ + Public Property G5() As Integer + Get + Return CType(Me("G5"),Integer) + End Get + Set + Me("G5") = value + End Set + End Property + + _ + Public Property G6() As Integer + Get + Return CType(Me("G6"),Integer) + End Get + Set + Me("G6") = value + End Set + End Property + + _ + Public Property ClearWishlist() As Boolean + Get + Return CType(Me("ClearWishlist"),Boolean) + End Get + Set + Me("ClearWishlist") = value + End Set + End Property + + _ + Public Property WishlistName() As String + Get + Return CType(Me("WishlistName"),String) + End Get + Set + Me("WishlistName") = value + End Set + End Property + + _ + Public Property WishlistPreview() As String + Get + Return CType(Me("WishlistPreview"),String) + End Get + Set + Me("WishlistPreview") = value + End Set + End Property + + _ + Public Property WishlistTokenType() As String + Get + Return CType(Me("WishlistTokenType"),String) + End Get + Set + Me("WishlistTokenType") = value + End Set + End Property + + _ + Public Property WishlistCost() As Integer + Get + Return CType(Me("WishlistCost"),Integer) + End Get + Set + Me("WishlistCost") = value + End Set + End Property + + _ + Public Property WishlistNote() As String + Get + Return CType(Me("WishlistNote"),String) + End Get + Set + Me("WishlistNote") = value + End Set + End Property + + _ + Public Property AvgEdgeCountRest() As Integer + Get + Return CType(Me("AvgEdgeCountRest"),Integer) + End Get + Set + Me("AvgEdgeCountRest") = value + End Set + End Property + + _ + Public Property PersonalityIndex() As Integer + Get + Return CType(Me("PersonalityIndex"),Integer) + End Get + Set + Me("PersonalityIndex") = value + End Set + End Property + + _ + Public Property LargeUI() As Boolean + Get + Return CType(Me("LargeUI"),Boolean) + End Get + Set + Me("LargeUI") = value + End Set + End Property + + _ + Public Property CBJackintheBox() As Boolean + Get + Return CType(Me("CBJackintheBox"),Boolean) + End Get + Set + Me("CBJackintheBox") = value + End Set + End Property + + _ + Public Property NextImageChance() As Integer + Get + Return CType(Me("NextImageChance"),Integer) + End Get + Set + Me("NextImageChance") = value + End Set + End Property + + _ + Public Property CBEdgeUseAvg() As Boolean + Get + Return CType(Me("CBEdgeUseAvg"),Boolean) + End Get + Set + Me("CBEdgeUseAvg") = value + End Set + End Property + + _ + Public Property CBLongEdgeTaunts() As Boolean + Get + Return CType(Me("CBLongEdgeTaunts"),Boolean) + End Get + Set + Me("CBLongEdgeTaunts") = value + End Set + End Property + + _ + Public Property CBLongEdgeInterrupts() As Boolean + Get + Return CType(Me("CBLongEdgeInterrupts"),Boolean) + End Get + Set + Me("CBLongEdgeInterrupts") = value + End Set + End Property + + _ + Public Property OrgasmsRemaining() As Integer + Get + Return CType(Me("OrgasmsRemaining"),Integer) + End Get + Set + Me("OrgasmsRemaining") = value + End Set + End Property + + _ + Public Property OrgasmsLocked() As Boolean + Get + Return CType(Me("OrgasmsLocked"),Boolean) + End Get + Set + Me("OrgasmsLocked") = value + End Set + End Property + + _ + Public Property TimerVTF() As Integer + Get + Return CType(Me("TimerVTF"),Integer) + End Get + Set + Me("TimerVTF") = value + End Set + End Property + + _ + Public Property CBTeaseLengthDD() As Boolean + Get + Return CType(Me("CBTeaseLengthDD"),Boolean) + End Get + Set + Me("CBTeaseLengthDD") = value + End Set + End Property + + _ + Public Property CBTauntCycleDD() As Boolean + Get + Return CType(Me("CBTauntCycleDD"),Boolean) + End Get + Set + Me("CBTauntCycleDD") = value + End Set + End Property + + _ + Public Property CBOwnChastity() As Boolean + Get + Return CType(Me("CBOwnChastity"),Boolean) + End Get + Set + Me("CBOwnChastity") = value + End Set + End Property + + _ + Public Property SmallUI() As Boolean + Get + Return CType(Me("SmallUI"),Boolean) + End Get + Set + Me("SmallUI") = value + End Set + End Property + + _ + Public Property UI768() As Boolean + Get + Return CType(Me("UI768"),Boolean) + End Get + Set + Me("UI768") = value + End Set + End Property + + _ + Public Property CBIncludeGifs() As Boolean + Get + Return CType(Me("CBIncludeGifs"),Boolean) + End Get + Set + Me("CBIncludeGifs") = value + End Set + End Property + + _ + Public Property CBHimHer() As Boolean + Get + Return CType(Me("CBHimHer"),Boolean) + End Get + Set + Me("CBHimHer") = value + End Set + End Property + + _ + Public Property DomDeleteMedia() As Boolean + Get + Return CType(Me("DomDeleteMedia"),Boolean) + End Get + Set + Me("DomDeleteMedia") = value + End Set + End Property + + _ + Public Property TeaseLengthMin() As Integer + Get + Return CType(Me("TeaseLengthMin"),Integer) + End Get + Set + Me("TeaseLengthMin") = value + End Set + End Property + + _ + Public Property TeaseLengthMax() As Integer + Get + Return CType(Me("TeaseLengthMax"),Integer) + End Get + Set + Me("TeaseLengthMax") = value + End Set + End Property + + _ + Public Property TauntCycleMin() As Integer + Get + Return CType(Me("TauntCycleMin"),Integer) + End Get + Set + Me("TauntCycleMin") = value + End Set + End Property + + _ + Public Property TauntCycleMax() As Integer + Get + Return CType(Me("TauntCycleMax"),Integer) + End Get + Set + Me("TauntCycleMax") = value + End Set + End Property + + _ + Public Property RedLightMin() As Integer + Get + Return CType(Me("RedLightMin"),Integer) + End Get + Set + Me("RedLightMin") = value + End Set + End Property + + _ + Public Property RedLightMax() As Integer + Get + Return CType(Me("RedLightMax"),Integer) + End Get + Set + Me("RedLightMax") = value + End Set + End Property + + _ + Public Property GreenLightMin() As Integer + Get + Return CType(Me("GreenLightMin"),Integer) + End Get + Set + Me("GreenLightMin") = value + End Set + End Property + + _ + Public Property GreenLightMax() As Integer + Get + Return CType(Me("GreenLightMax"),Integer) + End Get + Set + Me("GreenLightMax") = value + End Set + End Property + + _ + Public Property SlideshowMode() As String + Get + Return CType(Me("SlideshowMode"),String) + End Get + Set + Me("SlideshowMode") = value + End Set + End Property + + _ + Public Property OrgasmLockDate() As Date + Get + Return CType(Me("OrgasmLockDate"),Date) + End Get + Set + Me("OrgasmLockDate") = value + End Set + End Property + + _ + Public Property AuditStartup() As Boolean + Get + Return CType(Me("AuditStartup"),Boolean) + End Get + Set + Me("AuditStartup") = value + End Set + End Property + + _ + Public Property WishlistDate() As Date + Get + Return CType(Me("WishlistDate"),Date) + End Get + Set + Me("WishlistDate") = value + End Set + End Property + + _ + Public Property LastOrgasm() As Date + Get + Return CType(Me("LastOrgasm"),Date) + End Get + Set + Me("LastOrgasm") = value + End Set + End Property + + _ + Public Property LastRuined() As Date + Get + Return CType(Me("LastRuined"),Date) + End Get + Set + Me("LastRuined") = value + End Set + End Property + + _ + Public Property DateStamp() As Date + Get + Return CType(Me("DateStamp"),Date) + End Get + Set + Me("DateStamp") = value + End Set + End Property + + _ + Public Property TokenTasks() As Date + Get + Return CType(Me("TokenTasks"),Date) + End Get + Set + Me("TokenTasks") = value + End Set + End Property + + _ + Public Property WebToyStart() As String + Get + Return CType(Me("WebToyStart"),String) + End Get + Set + Me("WebToyStart") = value + End Set + End Property + + _ + Public Property WebToyStop() As String + Get + Return CType(Me("WebToyStop"),String) + End Get + Set + Me("WebToyStop") = value + End Set + End Property + + _ + Public Property CockToClit() As Boolean + Get + Return CType(Me("CockToClit"),Boolean) + End Get + Set + Me("CockToClit") = value + End Set + End Property + + _ + Public Property BallsToPussy() As Boolean + Get + Return CType(Me("BallsToPussy"),Boolean) + End Get + Set + Me("BallsToPussy") = value + End Set + End Property + + _ + Public Property Contact1ImageDir() As String + Get + Return CType(Me("Contact1ImageDir"),String) + End Get + Set + Me("Contact1ImageDir") = value + End Set + End Property + + _ + Public Property Contact2ImageDir() As String + Get + Return CType(Me("Contact2ImageDir"),String) + End Get + Set + Me("Contact2ImageDir") = value + End Set + End Property + + _ + Public Property Contact3ImageDir() As String + Get + Return CType(Me("Contact3ImageDir"),String) + End Get + Set + Me("Contact3ImageDir") = value + End Set + End Property + + _ + Public Property CBGlitterFeedOff() As Boolean + Get + Return CType(Me("CBGlitterFeedOff"),Boolean) + End Get + Set + Me("CBGlitterFeedOff") = value + End Set + End Property + + _ + Public Property CBGlitterFeedScripts() As Boolean + Get + Return CType(Me("CBGlitterFeedScripts"),Boolean) + End Get + Set + Me("CBGlitterFeedScripts") = value + End Set + End Property + + _ + Public Property TeaseAILanguage() As String + Get + Return CType(Me("TeaseAILanguage"),String) + End Get + Set + Me("TeaseAILanguage") = value + End Set + End Property + + _ + Public Property Shortcuts() As Boolean + Get + Return CType(Me("Shortcuts"),Boolean) + End Get + Set + Me("Shortcuts") = value + End Set + End Property + + _ + Public Property ShowShortcuts() As Boolean + Get + Return CType(Me("ShowShortcuts"),Boolean) + End Get + Set + Me("ShowShortcuts") = value + End Set + End Property + + _ + Public Property ShortYes() As String + Get + Return CType(Me("ShortYes"),String) + End Get + Set + Me("ShortYes") = value + End Set + End Property + + _ + Public Property ShortNo() As String + Get + Return CType(Me("ShortNo"),String) + End Get + Set + Me("ShortNo") = value + End Set + End Property + + _ + Public Property ShortEdge() As String + Get + Return CType(Me("ShortEdge"),String) + End Get + Set + Me("ShortEdge") = value + End Set + End Property + + _ + Public Property ShortSpeedUp() As String + Get + Return CType(Me("ShortSpeedUp"),String) + End Get + Set + Me("ShortSpeedUp") = value + End Set + End Property + + _ + Public Property ShortSlowDown() As String + Get + Return CType(Me("ShortSlowDown"),String) + End Get + Set + Me("ShortSlowDown") = value + End Set + End Property + + _ + Public Property ShortStop() As String + Get + Return CType(Me("ShortStop"),String) + End Get + Set + Me("ShortStop") = value + End Set + End Property + + _ + Public Property ShortStroke() As String + Get + Return CType(Me("ShortStroke"),String) + End Get + Set + Me("ShortStroke") = value + End Set + End Property + + _ + Public Property ShortCum() As String + Get + Return CType(Me("ShortCum"),String) + End Get + Set + Me("ShortCum") = value + End Set + End Property + + _ + Public Property ShortGreet() As String + Get + Return CType(Me("ShortGreet"),String) + End Get + Set + Me("ShortGreet") = value + End Set + End Property + + _ + Public Property ShortSafeword() As String + Get + Return CType(Me("ShortSafeword"),String) + End Get + Set + Me("ShortSafeword") = value + End Set + End Property + + _ + Public Property Patch45Tokens() As Boolean + Get + Return CType(Me("Patch45Tokens"),Boolean) + End Get + Set + Me("Patch45Tokens") = value + End Set + End Property + + _ + Public Property WindowHeight() As Integer + Get + Return CType(Me("WindowHeight"),Integer) + End Get + Set + Me("WindowHeight") = value + End Set + End Property + + _ + Public Property WindowWidth() As Integer + Get + Return CType(Me("WindowWidth"),Integer) + End Get + Set + Me("WindowWidth") = value + End Set + End Property + + _ + Public Property UIColor() As String + Get + Return CType(Me("UIColor"),String) + End Get + Set + Me("UIColor") = value + End Set + End Property + + _ + Public Property TC2Agreed() As Boolean + Get + Return CType(Me("TC2Agreed"),Boolean) + End Get + Set + Me("TC2Agreed") = value + End Set + End Property + + _ + Public Property LastDomTagURL() As String + Get + Return CType(Me("LastDomTagURL"),String) + End Get + Set + Me("LastDomTagURL") = value + End Set + End Property + + _ + Public Property Sys_SubLeftEarly() As Integer + Get + Return CType(Me("Sys_SubLeftEarly"),Integer) + End Get + Set + Me("Sys_SubLeftEarly") = value + End Set + End Property + + _ + Public Property Sys_SubLeftEarlyTotal() As Integer + Get + Return CType(Me("Sys_SubLeftEarlyTotal"),Integer) + End Get + Set + Me("Sys_SubLeftEarlyTotal") = value + End Set + End Property + + _ + Public Property AIBoxDir() As Boolean + Get + Return CType(Me("AIBoxDir"),Boolean) + End Get + Set + Me("AIBoxDir") = value + End Set + End Property + + _ + Public Property AIBoxOpen() As Boolean + Get + Return CType(Me("AIBoxOpen"),Boolean) + End Get + Set + Me("AIBoxOpen") = value + End Set + End Property + + _ + Public Property BackgroundColor() As Global.System.Drawing.Color + Get + Return CType(Me("BackgroundColor"),Global.System.Drawing.Color) + End Get + Set + Me("BackgroundColor") = value + End Set + End Property + + _ + Public Property BackgroundImage() As String + Get + Return CType(Me("BackgroundImage"),String) + End Get + Set + Me("BackgroundImage") = value + End Set + End Property + + _ + Public Property ButtonColor() As Global.System.Drawing.Color + Get + Return CType(Me("ButtonColor"),Global.System.Drawing.Color) + End Get + Set + Me("ButtonColor") = value + End Set + End Property + + _ + Public Property TextColor() As Global.System.Drawing.Color + Get + Return CType(Me("TextColor"),Global.System.Drawing.Color) + End Get + Set + Me("TextColor") = value + End Set + End Property + + _ + Public Property ChatWindowColor() As Global.System.Drawing.Color + Get + Return CType(Me("ChatWindowColor"),Global.System.Drawing.Color) + End Get + Set + Me("ChatWindowColor") = value + End Set + End Property + + _ + Public Property ChatTextColor() As Global.System.Drawing.Color + Get + Return CType(Me("ChatTextColor"),Global.System.Drawing.Color) + End Get + Set + Me("ChatTextColor") = value + End Set + End Property + + _ + Public Property BackgroundStretch() As Boolean + Get + Return CType(Me("BackgroundStretch"),Boolean) + End Get + Set + Me("BackgroundStretch") = value + End Set + End Property + + _ + Public Property CBInputIcon() As Boolean + Get + Return CType(Me("CBInputIcon"),Boolean) + End Get + Set + Me("CBInputIcon") = value + End Set + End Property + + _ + Public Property DateTextColor() As Global.System.Drawing.Color + Get + Return CType(Me("DateTextColor"),Global.System.Drawing.Color) + End Get + Set + Me("DateTextColor") = value + End Set + End Property + + _ + Public Property DateBackColor() As Global.System.Drawing.Color + Get + Return CType(Me("DateBackColor"),Global.System.Drawing.Color) + End Get + Set + Me("DateBackColor") = value + End Set + End Property + + _ + Public Property CBDateTransparent() As Boolean + Get + Return CType(Me("CBDateTransparent"),Boolean) + End Get + Set + Me("CBDateTransparent") = value + End Set + End Property + + _ + Public Property SplitterPosition() As Integer + Get + Return CType(Me("SplitterPosition"),Integer) + End Get + Set + Me("SplitterPosition") = value + End Set + End Property + + _ + Public Property MirrorWindows() As Boolean + Get + Return CType(Me("MirrorWindows"),Boolean) + End Get + Set + Me("MirrorWindows") = value + End Set + End Property + + _ + Public Property WakeUp() As Date + Get + Return CType(Me("WakeUp"),Date) + End Get + Set + Me("WakeUp") = value + End Set + End Property + + _ + Public Property HoldTheEdgeMin() As Integer + Get + Return CType(Me("HoldTheEdgeMin"),Integer) + End Get + Set + Me("HoldTheEdgeMin") = value + End Set + End Property + + _ + Public Property HoldTheEdgeMinAmount() As String + Get + Return CType(Me("HoldTheEdgeMinAmount"),String) + End Get + Set + Me("HoldTheEdgeMinAmount") = value + End Set + End Property + + _ + Public Property HoldTheEdgeMaxAmount() As String + Get + Return CType(Me("HoldTheEdgeMaxAmount"),String) + End Get + Set + Me("HoldTheEdgeMaxAmount") = value + End Set + End Property + + _ + Public Property MaxPace() As Integer + Get + Return CType(Me("MaxPace"),Integer) + End Get + Set + Me("MaxPace") = value + End Set + End Property + + _ + Public Property MinPace() As Integer + Get + Return CType(Me("MinPace"),Integer) + End Get + Set + Me("MinPace") = value + End Set + End Property + + _ + Public Property TypoChance() As Integer + Get + Return CType(Me("TypoChance"),Integer) + End Get + Set + Me("TypoChance") = value + End Set + End Property + + _ + Public Property TBEmote() As String + Get + Return CType(Me("TBEmote"),String) + End Get + Set + Me("TBEmote") = value + End Set + End Property + + _ + Public Property TBEmoteEnd() As String + Get + Return CType(Me("TBEmoteEnd"),String) + End Get + Set + Me("TBEmoteEnd") = value + End Set + End Property + + _ + Public Property VVolume() As Integer + Get + Return CType(Me("VVolume"),Integer) + End Get + Set + Me("VVolume") = value + End Set + End Property + + _ + Public Property VRate() As Integer + Get + Return CType(Me("VRate"),Integer) + End Get + Set + Me("VRate") = value + End Set + End Property + + _ + Public Property DomSadistic() As Boolean + Get + Return CType(Me("DomSadistic"),Boolean) + End Get + Set + Me("DomSadistic") = value + End Set + End Property + + _ + Public Property DomDegrading() As Boolean + Get + Return CType(Me("DomDegrading"),Boolean) + End Get + Set + Me("DomDegrading") = value + End Set + End Property + + _ + Public Property MetroOn() As Boolean + Get + Return CType(Me("MetroOn"),Boolean) + End Get + Set + Me("MetroOn") = value + End Set + End Property + + _ + Public Property LS1() As String + Get + Return CType(Me("LS1"),String) + End Get + Set + Me("LS1") = value + End Set + End Property + + _ + Public Property LS2() As String + Get + Return CType(Me("LS2"),String) + End Get + Set + Me("LS2") = value + End Set + End Property + + _ + Public Property LS3() As String + Get + Return CType(Me("LS3"),String) + End Get + Set + Me("LS3") = value + End Set + End Property + + _ + Public Property LS4() As String + Get + Return CType(Me("LS4"),String) + End Get + Set + Me("LS4") = value + End Set + End Property + + _ + Public Property LS5() As String + Get + Return CType(Me("LS5"),String) + End Get + Set + Me("LS5") = value + End Set + End Property + + _ + Public Property LS6() As String + Get + Return CType(Me("LS6"),String) + End Get + Set + Me("LS6") = value + End Set + End Property + + _ + Public Property LS7() As String + Get + Return CType(Me("LS7"),String) + End Get + Set + Me("LS7") = value + End Set + End Property + + _ + Public Property LS8() As String + Get + Return CType(Me("LS8"),String) + End Get + Set + Me("LS8") = value + End Set + End Property + + _ + Public Property LS9() As String + Get + Return CType(Me("LS9"),String) + End Get + Set + Me("LS9") = value + End Set + End Property + + _ + Public Property LS10() As String + Get + Return CType(Me("LS10"),String) + End Get + Set + Me("LS10") = value + End Set + End Property + + _ + Public Property LongHoldMin() As Integer + Get + Return CType(Me("LongHoldMin"),Integer) + End Get + Set + Me("LongHoldMin") = value + End Set + End Property + + _ + Public Property LongHoldMax() As String + Get + Return CType(Me("LongHoldMax"),String) + End Get + Set + Me("LongHoldMax") = value + End Set + End Property + + _ + Public Property ExtremeHoldMin() As String + Get + Return CType(Me("ExtremeHoldMin"),String) + End Get + Set + Me("ExtremeHoldMin") = value + End Set + End Property + + _ + Public Property ExtremeHoldMax() As String + Get + Return CType(Me("ExtremeHoldMax"),String) + End Get + Set + Me("ExtremeHoldMax") = value + End Set + End Property + + _ + Public Property CBWebtease() As Boolean + Get + Return CType(Me("CBWebtease"),Boolean) + End Get + Set + Me("CBWebtease") = value + End Set + End Property + + _ + Public Property SplitterDistance() As Integer + Get + Return CType(Me("SplitterDistance"),Integer) + End Get + Set + Me("SplitterDistance") = value + End Set + End Property + + _ + Public Property SideChat() As Boolean + Get + Return CType(Me("SideChat"),Boolean) + End Get + Set + Me("SideChat") = value + End Set + End Property + + _ + Public Property LazySubAV() As Boolean + Get + Return CType(Me("LazySubAV"),Boolean) + End Get + Set + Me("LazySubAV") = value + End Set + End Property + + _ + Public Property MuteMedia() As Boolean + Get + Return CType(Me("MuteMedia"),Boolean) + End Get + Set + Me("MuteMedia") = value + End Set + End Property + + _ + Public Property OfflineMode() As Boolean + Get + Return CType(Me("OfflineMode"),Boolean) + End Get + Set + Me("OfflineMode") = value + End Set + End Property + + _ + Public Property CBNewSlideshow() As Boolean + Get + Return CType(Me("CBNewSlideshow"),Boolean) + End Get + Set + Me("CBNewSlideshow") = value + End Set + End Property + + _ + Public Property TauntEdging() As Integer + Get + Return CType(Me("TauntEdging"),Integer) + End Get + Set + Me("TauntEdging") = value + End Set + End Property + + _ + Public Property UrlFileHardcore() As String + Get + Return CType(Me("UrlFileHardcore"),String) + End Get + Set + Me("UrlFileHardcore") = value + End Set + End Property + + _ + Public Property UrlFileSoftcore() As String + Get + Return CType(Me("UrlFileSoftcore"),String) + End Get + Set + Me("UrlFileSoftcore") = value + End Set + End Property + + _ + Public Property UrlFileLesbian() As String + Get + Return CType(Me("UrlFileLesbian"),String) + End Get + Set + Me("UrlFileLesbian") = value + End Set + End Property + + _ + Public Property UrlFileBlowjob() As String + Get + Return CType(Me("UrlFileBlowjob"),String) + End Get + Set + Me("UrlFileBlowjob") = value + End Set + End Property + + _ + Public Property UrlFileFemdom() As String + Get + Return CType(Me("UrlFileFemdom"),String) + End Get + Set + Me("UrlFileFemdom") = value + End Set + End Property + + _ + Public Property UrlFileLezdom() As String + Get + Return CType(Me("UrlFileLezdom"),String) + End Get + Set + Me("UrlFileLezdom") = value + End Set + End Property + + _ + Public Property UrlFileHentai() As String + Get + Return CType(Me("UrlFileHentai"),String) + End Get + Set + Me("UrlFileHentai") = value + End Set + End Property + + _ + Public Property UrlFileGay() As String + Get + Return CType(Me("UrlFileGay"),String) + End Get + Set + Me("UrlFileGay") = value + End Set + End Property + + _ + Public Property UrlFileMaledom() As String + Get + Return CType(Me("UrlFileMaledom"),String) + End Get + Set + Me("UrlFileMaledom") = value + End Set + End Property + + _ + Public Property UrlFileCaptions() As String + Get + Return CType(Me("UrlFileCaptions"),String) + End Get + Set + Me("UrlFileCaptions") = value + End Set + End Property + + _ + Public Property UrlFileGeneral() As String + Get + Return CType(Me("UrlFileGeneral"),String) + End Get + Set + Me("UrlFileGeneral") = value + End Set + End Property + + _ + Public Property UrlFileHardcoreEnabled() As Boolean + Get + Return CType(Me("UrlFileHardcoreEnabled"),Boolean) + End Get + Set + Me("UrlFileHardcoreEnabled") = value + End Set + End Property + + _ + Public Property UrlFileSoftcoreEnabled() As Boolean + Get + Return CType(Me("UrlFileSoftcoreEnabled"),Boolean) + End Get + Set + Me("UrlFileSoftcoreEnabled") = value + End Set + End Property + + _ + Public Property UrlFileLesbianEnabled() As Boolean + Get + Return CType(Me("UrlFileLesbianEnabled"),Boolean) + End Get + Set + Me("UrlFileLesbianEnabled") = value + End Set + End Property + + _ + Public Property UrlFileBlowjobEnabled() As Boolean + Get + Return CType(Me("UrlFileBlowjobEnabled"),Boolean) + End Get + Set + Me("UrlFileBlowjobEnabled") = value + End Set + End Property + + _ + Public Property UrlFileFemdomEnabled() As Boolean + Get + Return CType(Me("UrlFileFemdomEnabled"),Boolean) + End Get + Set + Me("UrlFileFemdomEnabled") = value + End Set + End Property + + _ + Public Property UrlFileLezdomEnabled() As Boolean + Get + Return CType(Me("UrlFileLezdomEnabled"),Boolean) + End Get + Set + Me("UrlFileLezdomEnabled") = value + End Set + End Property + + _ + Public Property UrlFileHentaiEnabled() As Boolean + Get + Return CType(Me("UrlFileHentaiEnabled"),Boolean) + End Get + Set + Me("UrlFileHentaiEnabled") = value + End Set + End Property + + _ + Public Property UrlFileGayEnabled() As Boolean + Get + Return CType(Me("UrlFileGayEnabled"),Boolean) + End Get + Set + Me("UrlFileGayEnabled") = value + End Set + End Property + + _ + Public Property UrlFileMaledomEnabled() As Boolean + Get + Return CType(Me("UrlFileMaledomEnabled"),Boolean) + End Get + Set + Me("UrlFileMaledomEnabled") = value + End Set + End Property + + _ + Public Property UrlFileCaptionsEnabled() As Boolean + Get + Return CType(Me("UrlFileCaptionsEnabled"),Boolean) + End Get + Set + Me("UrlFileCaptionsEnabled") = value + End Set + End Property + + _ + Public Property UrlFileGeneralEnabled() As Boolean + Get + Return CType(Me("UrlFileGeneralEnabled"),Boolean) + End Get + Set + Me("UrlFileGeneralEnabled") = value + End Set + End Property + + _ + Public Property CBIBoobs() As Boolean + Get + Return CType(Me("CBIBoobs"),Boolean) + End Get + Set + Me("CBIBoobs") = value + End Set + End Property + + _ + Public Property CBIButts() As Boolean + Get + Return CType(Me("CBIButts"),Boolean) + End Get + Set + Me("CBIButts") = value + End Set + End Property + + _ + Public Property UrlFileBoobsEnabled() As Boolean + Get + Return CType(Me("UrlFileBoobsEnabled"),Boolean) + End Get + Set + Me("UrlFileBoobsEnabled") = value + End Set + End Property + + _ + Public Property UrlFileButtEnabled() As Boolean + Get + Return CType(Me("UrlFileButtEnabled"),Boolean) + End Get + Set + Me("UrlFileButtEnabled") = value + End Set + End Property + + _ + Public Property CBURLPreview() As Boolean + Get + Return CType(Me("CBURLPreview"),Boolean) + End Get + Set + Me("CBURLPreview") = value + End Set + End Property + + _ + Public Property TaskStrokesMin() As Decimal + Get + Return CType(Me("TaskStrokesMin"),Decimal) + End Get + Set + Me("TaskStrokesMin") = value + End Set + End Property + + _ + Public Property TaskStrokesMax() As Decimal + Get + Return CType(Me("TaskStrokesMax"),Decimal) + End Get + Set + Me("TaskStrokesMax") = value + End Set + End Property + + _ + Public Property TaskStrokingTimeMin() As Decimal + Get + Return CType(Me("TaskStrokingTimeMin"),Decimal) + End Get + Set + Me("TaskStrokingTimeMin") = value + End Set + End Property + + _ + Public Property TaskStrokingTimeMax() As Decimal + Get + Return CType(Me("TaskStrokingTimeMax"),Decimal) + End Get + Set + Me("TaskStrokingTimeMax") = value + End Set + End Property + + _ + Public Property TaskEdgesMin() As Decimal + Get + Return CType(Me("TaskEdgesMin"),Decimal) + End Get + Set + Me("TaskEdgesMin") = value + End Set + End Property + + _ + Public Property TaskEdgesMax() As Decimal + Get + Return CType(Me("TaskEdgesMax"),Decimal) + End Get + Set + Me("TaskEdgesMax") = value + End Set + End Property + + _ + Public Property TaskEdgeHoldTimeMin() As Decimal + Get + Return CType(Me("TaskEdgeHoldTimeMin"),Decimal) + End Get + Set + Me("TaskEdgeHoldTimeMin") = value + End Set + End Property + + _ + Public Property TaskEdgeHoldTimeMax() As Decimal + Get + Return CType(Me("TaskEdgeHoldTimeMax"),Decimal) + End Get + Set + Me("TaskEdgeHoldTimeMax") = value + End Set + End Property + + _ + Public Property TaskCBTTimeMin() As Decimal + Get + Return CType(Me("TaskCBTTimeMin"),Decimal) + End Get + Set + Me("TaskCBTTimeMin") = value + End Set + End Property + + _ + Public Property TaskCBTTimeMax() As Decimal + Get + Return CType(Me("TaskCBTTimeMax"),Decimal) + End Get + Set + Me("TaskCBTTimeMax") = value + End Set + End Property + + _ + Public Property TasksMin() As String + Get + Return CType(Me("TasksMin"),String) + End Get + Set + Me("TasksMin") = value + End Set + End Property + + _ + Public Property TasksMax() As String + Get + Return CType(Me("TasksMax"),String) + End Get + Set + Me("TasksMax") = value + End Set + End Property + + _ + Public Property WritingProgress() As Boolean + Get + Return CType(Me("WritingProgress"),Boolean) + End Get + Set + Me("WritingProgress") = value + End Set + End Property + + _ + Public Property TimedWriting() As Boolean + Get + Return CType(Me("TimedWriting"),Boolean) + End Get + Set + Me("TimedWriting") = value + End Set + End Property + + _ + Public Property TypeSpeed() As Integer + Get + Return CType(Me("TypeSpeed"),Integer) + End Get + Set + Me("TypeSpeed") = value + End Set + End Property + + "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"")> _ + Public Property RecentSlideshows() As Global.System.Collections.Specialized.StringCollection + Get + Return CType(Me("RecentSlideshows"),Global.System.Collections.Specialized.StringCollection) + End Get + Set + Me("RecentSlideshows") = value + End Set + End Property + + _ + Public Property LockOrgasmChances() As Boolean + Get + Return CType(Me("LockOrgasmChances"),Boolean) + End Get + Set + Me("LockOrgasmChances") = value + End Set + End Property + + _ + Public Property MaximizeMediaWindow() As Boolean + Get + Return CType(Me("MaximizeMediaWindow"),Boolean) + End Get + Set + Me("MaximizeMediaWindow") = value + End Set + End Property + + _ + Public Property DisplaySidePanel() As Boolean + Get + Return CType(Me("DisplaySidePanel"),Boolean) + End Get + Set + Me("DisplaySidePanel") = value + End Set + End Property + + _ + Public Property DomCFNM() As Boolean + Get + Return CType(Me("DomCFNM"),Boolean) + End Get + Set + Me("DomCFNM") = value + End Set + End Property + + _ + Public Property GiveUpReturn() As Boolean + Get + Return CType(Me("GiveUpReturn"),Boolean) + End Get + Set + Me("GiveUpReturn") = value + End Set + End Property + + _ + Public Property RandomImageDir() As String + Get + Return CType(Me("RandomImageDir"),String) + End Get + Set + Me("RandomImageDir") = value + End Set + End Property + + _ + Public Property CBRandomDomme() As Boolean + Get + Return CType(Me("CBRandomDomme"),Boolean) + End Get + Set + Me("CBRandomDomme") = value + End Set + End Property + End Class End Namespace Namespace My diff --git a/Tease AI/My Project/Settings.settings b/Tease AI/My Project/Settings.settings index 8a79f4d..11ac0a0 100644 --- a/Tease AI/My Project/Settings.settings +++ b/Tease AI/My Project/Settings.settings @@ -1176,7 +1176,7 @@ True - 528 + 498 False @@ -1428,5 +1428,17 @@ True + + False + + + False + + + + + + False + \ No newline at end of file diff --git a/Tease AI/app.config b/Tease AI/app.config index dd45b70..c629deb 100644 --- a/Tease AI/app.config +++ b/Tease AI/app.config @@ -1225,7 +1225,7 @@ True - 528 + 498 False @@ -1479,6 +1479,18 @@ True + + False + + + False + + + + + + False + From e258ba4bb6da34c71ef5e72ad9c074caf498103b Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 21 Feb 2017 01:02:19 -0600 Subject: [PATCH 025/143] Updated ReadMe --- README.md | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/README.md b/README.md index 13e2317..5185f6e 100644 --- a/README.md +++ b/README.md @@ -14,28 +14,28 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Domme Personality settings now include a checkbox for CFNM (Clothed Female Nude Male). This is meant to allow taunts where the domme points out that the user will never see her naked, eg. This should be checked when using models with non-nude picture sets for the domme. * Added "Continue Current Script After Giving Up" option in Domme Settings. When you "give up" in Tease AI, the program normally moves on to a random Link script. When this option is checked, the script you're on will continue to play out instead. (dariobrun) * If options are set to use and/or capitalize the Domm'es honorific and the user fails to do so enough times, the domme will administer a CBT punishment (dariobrun) - Requires the following System Vocabulary files: - #SYS_HonorificPunish - The domme admonishes you for not addressing her correctly (immediately precedes the punishment) - #SYS_CapitalizeHonorific - The domme points out that she was not addressed correctly (immediately after failing to capitalize the honorific) + * Requires the following System Vocabulary files: + * #SYS_HonorificPunish - The domme admonishes you for not addressing her correctly (immediately precedes the punishment) + * #SYS_CapitalizeHonorific - The domme points out that she was not addressed correctly (immediately after failing to capitalize the honorific) * Added Commands: * @CountVar[] - Allows you to connect a timer to a specified Variable that will change its value by 1 every second. - Usage: - @CountVar[VarName] - Begins a timer that adds 1 to VarName every second - @CountVar[VarName, down] - Begins a timer that subtracts 1 from VarName every second - @CountVar[VarName, stop] - Stops any timer associated with VarName (up or down) + * Usage: + * @CountVar[VarName] - Begins a timer that adds 1 to VarName every second + * @CountVar[VarName, down] - Begins a timer that subtracts 1 from VarName every second + * @CountVar[VarName, stop] - Stops any timer associated with VarName (up or down) * @SetDomme() - Changes the active domme (name and slideshow) to the specified option. (dariobrun) - Usage: - @SetDomme(1) - Changes the domme to Contact 1 (Can also use @SetDomme(Contact1), @SetDomme(Glitter 1), etc. All that matters is the number) - @SetDomme(2) - Changes the domme to Contact 2 - @SetDomme(3) - Changes the domme to Contact 3 - @SetDomme(Domme) - Changes back to the original domme specified in Domme Images Directory - @SetDomme(Random) - Changes to a Random Domme as specified in the Random Domme Images Directory + * Usage: + * @SetDomme(1) - Changes the domme to Contact 1 (Can also use @SetDomme(Contact1), @SetDomme(Glitter 1), etc. All that matters is the number) + * @SetDomme(2) - Changes the domme to Contact 2 + * @SetDomme(3) - Changes the domme to Contact 3 + * @SetDomme(Domme) - Changes back to the original domme specified in Domme Images Directory + * @SetDomme(Random) - Changes to a Random Domme as specified in the Random Domme Images Directory - If @SetDomme() does not contain a valid value, the original domme will be used. + * If @SetDomme() does not contain a valid value, the original domme will be used. - @SetDomme() replaces @GlitterTease1, @GlitterTease2, @GlitterTease3, @DommeTease and @RandomTease. These Commands will be left in the code for compatibility purposes. + * @SetDomme() replaces @GlitterTease1, @GlitterTease2, @GlitterTease3, @DommeTease and @RandomTease. These Commands will be left in the code for compatibility purposes. * @RandomModule - Run a random Module (dariobrun) From 6a4d92807a49033c6319c8cb5257554e67e0b070 Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 21 Feb 2017 01:15:46 -0600 Subject: [PATCH 026/143] Fixed BtnRandomImageDir MouseHover description --- Tease AI/Form2.vb | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index a04ad54..258b630 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -3077,13 +3077,21 @@ SkipDeserializing: TTDir.SetToolTip(sender, CType(sender, TextBox).Text) End Sub - Private Sub Button2_MouseHover(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover, BtnRandomImageDir.MouseHover + Private Sub Button2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover - If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & + If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & "set folders of the same model you're using as your contact.") - If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & -"Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") - End Sub + If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + End Sub + + Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover + + If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes." & Environment.NewLine & +"Each model should have her own directory containing folders of different imagesets.") + If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + End Sub Private Sub BtnContact1ImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDirClear.Click My.Settings.ResetField(TbxContact1ImageDir, "Text") From 6568961f991266be0592bfe384bb128b24191a9e Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 21 Feb 2017 04:43:40 -0600 Subject: [PATCH 027/143] Better timing for lines containing @RT() --- README.md | 12 ++++++++++-- Tease AI/Form1.vb | 24 ++++++++++++++++++++++-- 2 files changed, 32 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 5185f6e..4a46bf8 100644 --- a/README.md +++ b/README.md @@ -9,6 +9,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 54.7.0 * Added Features: + * Tease AI now tries to determine an appropriate "DomName is typing..." delay length for lines containing one or more @RT()/@RandomText() Commands. * Can now set a directory for Random Dommes in General Settings. This should point to location containing folders named after individual models, and each of those folders should contain folders with imagesets of that model. Tease AI will then chose a folder at random for the pictures, and the name of the model's folder for the domme's name. (dariobrun) * Added checkbox in General Settings to begin any new session with a Random Domme. * Domme Personality settings now include a checkbox for CFNM (Clothed Female Nude Male). This is meant to allow taunts where the domme points out that the user will never see her naked, eg. This should be checked when using models with non-nude picture sets for the domme. @@ -42,9 +43,16 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * @RandomLink - Run a random Link (dariobrun) *Added Command Filters: - * @FlagOr() Command Filter. Check multiple flags and will read the line if any of them are present. For example, @FlagOr(Flag1, Flag2) - If Flag1 or Flag 2 exists, then Tease AI will read the line. (dariobrun) + * @DayOfWeek() - Will only show lines if the current day of the week is specified. + * Usage: + * @DayOfWeek(Friday) - Will only show the line if the current day is Friday + * @DayOfWeek(Monday, Tuesday) - Will only show the line if the current day is Monday or Tuesday + * @DayOfWeek(Monday, Not) - Will only show the line if the current day is NOT Monday + * @DayOfWeek(Saturday, Sunday, Not) - Will only show the line if the current day is neither Saturday or Sunday + + * @FlagOr() - Check multiple flags and will read the line if any of them are present. For example, @FlagOr(Flag1, Flag2) - If Flag1 or Flag 2 exists, then Tease AI will read the line. (dariobrun) - * @CFNM Command Filter. When used, will only show lines with this Command Filter if the CFNM box is checked in the Domme Personality settings. + * @CFNM - When used, will only show lines with this Command Filter if the CFNM box is checked in the Domme Personality settings. * Bugfixes: * @RT() and @RandomText() were not working correctly (Stefaf) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ed53fdc..8ef1e20 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4787,7 +4787,17 @@ CancelGoto: End If ssh.TypeDelay = ssh.StringLength If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 - If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 + If ssh.TypeDelay <> 0 Then + If GetCharCount(ssh.DomChat, "@RT(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + ssh.TypeDelay *= GetCharCount(ssh.DomChat, "@RT(") + End If + If GetCharCount(ssh.DomChat, "@RandomText(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + ssh.TypeDelay *= GetCharCount(ssh.DomChat, "@RandomText(") + End If + End If SendTimer.Start() @@ -4801,7 +4811,17 @@ CancelGoto: ssh.TypeDelay = ssh.StringLength If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 - If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.TypeDelay = 0 + If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.TypeDelay = 0 + If ssh.TypeDelay <> 0 Then + If GetCharCount(ssh.DomTask, "@RT(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + ssh.TypeDelay *= GetCharCount(ssh.DomTask, "@RT(") + End If + If GetCharCount(ssh.DomTask, "@RandomText(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + ssh.TypeDelay *= GetCharCount(ssh.DomTask, "@RandomText(") + End If + End If Timer1.Start() End Sub From b22d43c8ba2a2023e2fad98926f9d05a1c60c0f1 Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 21 Feb 2017 07:39:09 -0600 Subject: [PATCH 028/143] Changed AI Box completion msgbox Changed the message displayed after unpacking an AI Box. It was a little "cutesy" before, may confuse some new users as to what the function even did. --- README.md | 2 ++ Tease AI/Form9.vb | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 4a46bf8..411e0b7 100644 --- a/README.md +++ b/README.md @@ -18,6 +18,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Requires the following System Vocabulary files: * #SYS_HonorificPunish - The domme admonishes you for not addressing her correctly (immediately precedes the punishment) * #SYS_CapitalizeHonorific - The domme points out that she was not addressed correctly (immediately after failing to capitalize the honorific) + * #SYS_MissingHonorific - The domme points out that you did not use the honorific in such a way to get you to immediately correct yourself. This file replaces the hardcoded "what?" response that Tease AI used before. * Added Commands: * @CountVar[] - Allows you to connect a timer to a specified Variable that will change its value by 1 every second. @@ -65,6 +66,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Tweaked values of stroking speed changes instructed by the domme to make them slightly more profound (dariobrun) * Minor edits to State.vb so I could compile it using VS 2010 (Notay) * Cleaned up code for saving chatlogs (pepsifreak) + * Changed the message displayed after unpacking an AI Box # Changelog - Patch 54.6.0 diff --git a/Tease AI/Form9.vb b/Tease AI/Form9.vb index 342ba22..5914534 100644 --- a/Tease AI/Form9.vb +++ b/Tease AI/Form9.vb @@ -540,7 +540,7 @@ FoundScriptType: Try If GetaiBoxList(NextCycle) = "[aiBox Empty]" Then - MessageBox.Show(Me, "The domme's consciousness has escaped this AI Box!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, "AI Box unpacking complete!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) BTNSaveFile.Enabled = False BTNSkipFile.Enabled = False LBLFileName.Text = "" @@ -551,7 +551,7 @@ FoundScriptType: Return End If Catch - MessageBox.Show(Me, "The domme's consciousness has escaped this AI Box!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, "AI Box unpacking complete!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) BTNSaveFile.Enabled = False BTNSkipFile.Enabled = False LBLFileName.Text = "" @@ -596,7 +596,7 @@ FoundScriptType: Try If GetaiBoxList(NextCycle) = "[aiBox Empty]" Then - MessageBox.Show(Me, "The domme's consciousness has escaped this AI Box!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, "AI Box unpacking complete!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) BTNSaveFile.Enabled = False BTNSkipFile.Enabled = False LBLFileName.Text = "" @@ -607,7 +607,7 @@ FoundScriptType: Return End If Catch - MessageBox.Show(Me, "The domme's consciousness has escaped this AI Box!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBox.Show(Me, "AI Box unpacking complete!", "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) BTNSaveFile.Enabled = False BTNSkipFile.Enabled = False LBLFileName.Text = "" From d048c33faf68e63721eb9856e101103b043dd18c Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 21 Feb 2017 21:34:41 -0600 Subject: [PATCH 029/143] Allow comma usage in #RT() Commas can now be used in @RT() by typing ",," Not tested outside of scripts (task letter generation, for instance). PoundClean looks a little different than I remember, gonna have to wrap my head around it --- README.md | 2 ++ Tease AI/Form1.vb | 10 ++++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 411e0b7..addd2bc 100644 --- a/README.md +++ b/README.md @@ -10,6 +10,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added Features: * Tease AI now tries to determine an appropriate "DomName is typing..." delay length for lines containing one or more @RT()/@RandomText() Commands. + * Commas can now be used in @RT() by typing ",,". When parsing @RT() collections, Tease AI will treat any double comma as a single comma in the domme's output. + * For example, @RT(Look,, I don't want to talk about it, Listen,, we're not discussing this right now, Sorry,, not going there right now) * Can now set a directory for Random Dommes in General Settings. This should point to location containing folders named after individual models, and each of those folders should contain folders with imagesets of that model. Tease AI will then chose a folder at random for the pictures, and the name of the model's folder for the domme's name. (dariobrun) * Added checkbox in General Settings to begin any new session with a Random Domme. * Domme Personality settings now include a checkbox for CFNM (Clothed Female Nude Male). This is meant to allow taunts where the domme points out that the user will never see her naked, eg. This should be checked when using models with non-nude picture sets for the domme. diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 8ef1e20..5ee0d4d 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -7861,13 +7861,13 @@ StatusUpdateEnd: Dim TempText As String = GetParentheses(RandArray(i), "@RandomText(") Dim OriginalRand As String = TempText - + TempText = TempText.Replace(",,", "###INSERT-COMMA###") If TempText.Contains(",") Then TempText = FixCommas(TempText) Dim TextArray As String() = TempText.Split(",") TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) End If - + TempText = TempText.Replace("###INSERT-COMMA###", ",") StringClean = StringClean.Replace("@RandomText(" & OriginalRand & ")", TempText) End If @@ -7882,12 +7882,14 @@ StatusUpdateEnd: If RandArray(i).Contains("@RT(") Then RandArray(i) = RandArray(i) & ")" Dim TempText As String = GetParentheses(RandArray(i), "@RT(") - Dim OriginalRand As String = TempText + Dim OriginalRand As String = TempText + TempText = TempText.Replace(",,", "###INSERT-COMMA###") If TempText.Contains(",") Then TempText = FixCommas(TempText) Dim TextArray As String() = TempText.Split(",") TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) - End If + End If + TempText = TempText.Replace("###INSERT-COMMA###", ",") StringClean = StringClean.Replace("@RT(" & OriginalRand & ")", TempText) End If Next From 6170da0d12dcf6aab819faaffce9e98cbb9e20cc Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 21 Feb 2017 23:43:21 -0600 Subject: [PATCH 030/143] Validate All System Files --- README.md | 6 ++++++ Tease AI/Form2.Designer.vb | 29 +++++++++++++++++++++++++++++ Tease AI/Form2.vb | 34 ++++++++++++++++++++++++++++++++-- 3 files changed, 67 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index addd2bc..488fe72 100644 --- a/README.md +++ b/README.md @@ -9,6 +9,12 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 54.7.0 * Added Features: + * Added "Validate All System Files" button to the General settings panel. Rather than updating the Personality Framework with any new System Files, and expecting people to update each Personality + one at a time manually if they missed any updates, the Personality Framework will now be stored in root\System\System Files\. + + By clicking "Validate All System Files", Tease AI automatically searches all installed Personalities and copies over any System files that are missing. I'll need to include the Personality Framework in every patch, but this + turns the problem of updating/validating these files across multiple Personalities into a one-click solution for the user. + * Tease AI now tries to determine an appropriate "DomName is typing..." delay length for lines containing one or more @RT()/@RandomText() Commands. * Commas can now be used in @RT() by typing ",,". When parsing @RT() collections, Tease AI will treat any double comma as a single comma in the domme's output. * For example, @RT(Look,, I don't want to talk about it, Listen,, we're not discussing this right now, Sorry,, not going there right now) diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 8679ac9..9dbede6 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -1114,6 +1114,8 @@ Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() +Me.GroupBox3 = New System.Windows.Forms.GroupBox() +Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() Me.SettingsPanel.SuspendLayout Me.SettingsTabs.SuspendLayout Me.TabPage1.SuspendLayout @@ -1375,6 +1377,7 @@ Me.GroupBox12.SuspendLayout Me.GroupBox65.SuspendLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox3.SuspendLayout Me.SuspendLayout ' 'SettingsPanel @@ -1425,6 +1428,7 @@ Me.TabPage1.Text = "General" ' Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PNLGeneralSettings.Controls.Add(Me.GroupBox3) Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) @@ -14869,6 +14873,28 @@ Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" Me.BWURLFiles.WorkerReportsProgress = true Me.BWURLFiles.WorkerSupportsCancellation = true ' +'GroupBox3 +' +Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) +Me.GroupBox3.Location = New System.Drawing.Point(7, 365) +Me.GroupBox3.Name = "GroupBox3" +Me.GroupBox3.Size = New System.Drawing.Size(211, 65) +Me.GroupBox3.TabIndex = 184 +Me.GroupBox3.TabStop = false +Me.GroupBox3.Text = "System Files" +' +'BTNValidateSystemFiles +' +Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray +Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black +Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) +Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" +Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) +Me.BTNValidateSystemFiles.TabIndex = 183 +Me.BTNValidateSystemFiles.Text = "Validate All System Files" +Me.BTNValidateSystemFiles.UseVisualStyleBackColor = false +' 'FrmSettings ' Me.AllowDrop = true @@ -15221,6 +15247,7 @@ Me.GroupBox65.ResumeLayout(false) Me.GroupBox65.PerformLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox3.ResumeLayout(false) Me.ResumeLayout(false) End Sub @@ -16314,4 +16341,6 @@ End Sub Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox Friend WithEvents CBRandomDomme As System.Windows.Forms.CheckBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents BTNValidateSystemFiles As System.Windows.Forms.Button End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 258b630..925487b 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -3087,8 +3087,8 @@ SkipDeserializing: Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover - If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes." & Environment.NewLine & -"Each model should have her own directory containing folders of different imagesets.") + If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes. Each model " & Environment.NewLine & +"should have her own directory containing folders of different imagesets.") If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") End Sub @@ -10316,4 +10316,34 @@ checkFolder: End Sub + Private Sub BTNValidateSystemFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.Click + + Dim ValidateCount As Integer + + For Each Dir As String In myDirectory.GetDirectories(Application.StartupPath & "\Scripts\") + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\System\System Files\", FileIO.SearchOption.SearchAllSubDirectories, "*.*") + If Not File.Exists(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) Then + If Not System.IO.Directory.Exists(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) Then + System.IO.Directory.CreateDirectory(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) + End If + System.IO.File.Copy(foundFile, Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) + ValidateCount += 1 + End If + Next + Next + + Dim output As String = "All Personalities have been validated!" & Environment.NewLine & Environment.NewLine & ValidateCount & " System Files were added." + output = output.Replace(Environment.NewLine & "1 System Files were added.", Environment.NewLine & "1 System File was added.") + + MessageBox.Show(output, "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + + End Sub + + + Private Sub BTNValidateSystemFiles_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.MouseHover + + TTDir.SetToolTip(BTNValidateSystemFiles, "Searches each installed Personality and automatically" & Environment.NewLine & "creates any missing System Files in the correct folders.") + + End Sub + End Class \ No newline at end of file From b771adad9415e32ff7405af49467aad9f99bfafd Mon Sep 17 00:00:00 2001 From: 1885 Date: Wed, 22 Feb 2017 14:48:41 -0600 Subject: [PATCH 031/143] Flag, NotFlag, FlagOr fix --- Tease AI/Form1.vb | 86 ++++++++++++++++++----------------------------- Tease AI/Form2.vb | 2 +- 2 files changed, 34 insertions(+), 54 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 5ee0d4d..31a3123 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -14061,66 +14061,46 @@ VTSkip: End If End If - If FilterString.Contains("@Flag(") Or FilterString.Contains("@NotFlag(") Then - Dim result As Boolean = True + If FilterString.Contains("@Flag(") Then Dim writeFlag As String Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@Flag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If Not FlagExists(s) Then + Return False + End If + Next + End If - If FilterString.Contains("@Flag(") Then - writeFlag = GetParentheses(FilterString, "@Flag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - - For Each s In splitFlag - If Not FlagExists(s) Then - result = False - Exit For - End If - Next - End If - If result = False Then Return result - - If FilterString.Contains("@NotFlag(") Then - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - result = False - For Each s In splitFlag - If result Then - If FlagExists(s) Then - result = True - Exit For - End If - Else - If FlagExists(s) Then - result = True - Else - result = False - End If - End If - Next - End If - If result = True Then Return False + If FilterString.Contains("@NotFlag(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@NotFlag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If FlagExists(s) Then + Return False + End If + Next End If - + If FilterString.Contains("@FlagOr(") Then - Dim result As Boolean = False Dim writeFlag As String Dim splitFlag As String() - - If FilterString.Contains("@FlagOr(") Then - writeFlag = GetParentheses(FilterString, "@FlagOr(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - - For Each s In splitFlag - If FlagExists(s) Then - result = True - Exit For - End If - Next - End If - If result = False Then Return result + writeFlag = GetParentheses(FilterString, "@FlagOr(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + Dim result As Boolean = False + For Each s In splitFlag + If FlagExists(s) Then + result = True + Exit For + End If + Next + If Not result Then Return False End If If FilterString.Contains("@CheckDate(") And Linear = False Then diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 925487b..ff97fdd 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -3073,7 +3073,7 @@ SkipDeserializing: TTDir.SetToolTip(sender, "This button allows you to change the color of this contact's name as it appears in the Glitter app.") End Sub - Private Sub LBLContact1ImageDir_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover + Private Sub LBLContact1ImageDir_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover, TbxRandomImageDir.MouseHover TTDir.SetToolTip(sender, CType(sender, TextBox).Text) End Sub From 879a5490f213a8dc43396299157f40fbedff9ad7 Mon Sep 17 00:00:00 2001 From: 1885 Date: Wed, 22 Feb 2017 16:40:00 -0600 Subject: [PATCH 032/143] CallReturn Goto fix Bugfix - Using CallReturn could crash the program if DomTask contained "@Goto()" when it was called --- .../Classes/SessionState.ScriptPosition.vb | 29 ++++++++++++++----- .../Classes/SessionState.StackedCallReturn.vb | 20 ++++++------- Tease AI/Form1.vb | 18 ++++-------- 3 files changed, 36 insertions(+), 31 deletions(-) diff --git a/Tease AI/Classes/SessionState.ScriptPosition.vb b/Tease AI/Classes/SessionState.ScriptPosition.vb index 42fb132..f7e9a18 100644 --- a/Tease AI/Classes/SessionState.ScriptPosition.vb +++ b/Tease AI/Classes/SessionState.ScriptPosition.vb @@ -27,14 +27,27 @@ Partial Class SessionState End Set End Property - Public Property Line As Integer = -1 - - ''' Creates a new instance with given parameters. - Sub New(session As SessionState, filepath As String, line As Integer) - Me.Session = session - Me.FilePath = filepath - Me.Line = line - End Sub + Public Property Line As Integer = -1 + + Public Property GotoStatus As Boolean = False + + Public Property LineGoTo As String = "" + + ''' Creates a new instance with given parameters. + + Sub New(ByVal session As SessionState, ByVal filepath As String, ByVal line As Integer, ByVal goToStatus As Boolean, ByVal lineGoTo As String) + + Me.Session = session + + Me.FilePath = filepath + + Me.Line = line + + Me.GotoStatus = goToStatus + + Me.LineGoTo = lineGoTo + + End Sub End Class diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb index 0e0ae35..b2a3a98 100644 --- a/Tease AI/Classes/SessionState.StackedCallReturn.vb +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -6,14 +6,14 @@ Public Property ReturnState As String Sub New(session As SessionState) - MyBase.New(session, session.FileText, session.StrokeTauntVal) - ReturnState = Me.Session.ReturnSubState - End Sub - - Sub resumeState() - Session.StrokeTauntVal = Line - Session.FileText = FilePath - Session.ReturnSubState = ReturnState - End Sub - End Class + MyBase.New(session, session.FileText, session.StrokeTauntVal, session.GotoFlag, session.CameGotoLine) + ReturnState = Me.Session.ReturnSubState + End Sub + Sub resumeState() + Session.StrokeTauntVal = Line + Session.FileText = FilePath + Session.ReturnSubState = ReturnState + Session.FileGoto = LineGoTo + End Sub + End Class End Class \ No newline at end of file diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 31a3123..6ada8e9 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -12403,6 +12403,10 @@ VTSkip: GetSubState() ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) + ssh.GotoFlag = False + + ssh.FileGoto = "" + StrokeTimer.Stop() StrokeTauntTimer.Stop() CensorshipTimer.Stop() @@ -17241,19 +17245,7 @@ saveImage: ElseIf ssh.glitterDommeNumber = 4 Then ssh.SlideshowMain = New ContactData(ContactType.Random) End If - 'check if the #DomHonorific file has some flags to determine which honorific to use with the current domme - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\#DomHonorific.txt") Then - Dim filePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\#DomHonorific.txt" - Dim lines As List(Of String) = Txt2List(filePath) - lines = FilterList(lines) - Dim randomize As Integer = ssh.randomizer.Next(0, lines.Count) - Dim chosen As String = lines(randomize) - Dim words() As String = Split(chosen, ")") - FrmSettings.TBHonorific.Text = words(1) - Else - FrmSettings.TBHonorific.Text = My.Settings.SubHonorific - End If - End If + End If ssh.SlideshowMain.LoadNew(ssh.newSlideshow) ssh.tempDomName = ssh.SlideshowMain.TypeName ssh.newSlideshow = False From 3b8f0cf3374b7624904909b8dda79c501ccff1c5 Mon Sep 17 00:00:00 2001 From: 1885 Date: Wed, 22 Feb 2017 18:28:26 -0600 Subject: [PATCH 033/143] MiniScript-CallReturn conversion, @RT() delay fix MiniScripts have been causing some issues for people, now that @CallReturn() is tentatively functioning without issue, MiniScripts get converted to @CallReturn() in the code. The earlier submitted @RT() delay tweak was not functioning correctly, but should be fixed now --- README.md | 2 + Tease AI/Form1.vb | 96 +++++++++++++++++++++++++++++------------------ 2 files changed, 61 insertions(+), 37 deletions(-) diff --git a/README.md b/README.md index 488fe72..9fda56b 100644 --- a/README.md +++ b/README.md @@ -64,6 +64,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * @CFNM - When used, will only show lines with this Command Filter if the CFNM box is checked in the Domme Personality settings. * Bugfixes: + * @CallReturn() would cause the program to crash if used when Tease AI last parsed a line containing @Goto(). Use of @CallReturn should be much more stable. (dariobrun) + * @MiniScript() Command re-written to utilize @CallReturn()'s stability improvements * @RT() and @RandomText() were not working correctly (Stefaf) * @NotFlag() was only checking for any flags not to be present when parsing multiple flags instead of all flags not to be present. (dariobrun) * Certain local genre images were not using their subdirectories correctly. (dariobrun) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 6ada8e9..2ad5cde 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4786,18 +4786,18 @@ CancelGoto: ssh.DomChat = OfflineConversion(ssh.DomChat) End If ssh.TypeDelay = ssh.StringLength - If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 If ssh.TypeDelay <> 0 Then If GetCharCount(ssh.DomChat, "@RT(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") - ssh.TypeDelay *= GetCharCount(ssh.DomChat, "@RT(") + ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomChat, "@RT(") End If If GetCharCount(ssh.DomChat, "@RandomText(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") - ssh.TypeDelay *= GetCharCount(ssh.DomChat, "@RandomText(") + ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomChat, "@RandomText(") End If End If + If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 SendTimer.Start() @@ -4809,20 +4809,20 @@ CancelGoto: ssh.DomTask = OfflineConversion(ssh.DomTask) End If ssh.TypeDelay = ssh.StringLength - If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 - If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.TypeDelay = 0 If ssh.TypeDelay <> 0 Then If GetCharCount(ssh.DomTask, "@RT(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") - ssh.TypeDelay *= GetCharCount(ssh.DomTask, "@RT(") + ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomTask, "@RT(") End If If GetCharCount(ssh.DomTask, "@RandomText(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") - ssh.TypeDelay *= GetCharCount(ssh.DomTask, "@RandomText(") + ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomTask, "@RandomText(") End If End If - Timer1.Start() + If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 + Timer1.Start() End Sub @@ -12398,6 +12398,40 @@ VTSkip: StringClean = StringClean.Replace("@EmoteMessage ", "") End If + + + + + + + + If StringClean.Contains("@MiniScript(") Then + + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" + + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & Mini2CR) Then + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "@CallReturn(" & Mini2CR & ")") + Else + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + End If + + ' With @CallReturn() now tentatively in complete working order, @MiniScript() is being converted to @CallReturn() here in code - 1885 + + 'If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then + 'ssh.MiniScript = True + 'ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" + 'ssh.MiniTauntVal = -1 + 'ssh.MiniTimerCheck = ScriptTimer.Enabled + 'ssh.ScriptTick = 2 + 'ScriptTimer.Start() + 'End If + 'StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + + End If + + + If StringClean.Contains("@CallReturn(") Then GetSubState() @@ -12799,30 +12833,6 @@ VTSkip: End If - - - - - - - If StringClean.Contains("@MiniScript(") Then - - Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") - - - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then - ssh.MiniScript = True - ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" - ssh.MiniTauntVal = -1 - ssh.MiniTimerCheck = ScriptTimer.Enabled - ssh.ScriptTick = 2 - ScriptTimer.Start() - End If - - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") - End If - - If StringClean.Contains("@CheckFile(") Then Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") @@ -20799,7 +20809,19 @@ playLoop: Public Function GetCharCount(ByVal StringClean As String, ByVal Character As String) As Integer Return Len(StringClean) - Len(Replace(StringClean, Character, "")) - End Function + End Function + + Public Function GetSubstringCount(ByVal StringClean As String, ByVal Substring As String) As Integer + + Dim SubstringCount As Integer = 0 + For i As Integer = 0 To StringClean.Length - 1 + If StringClean.Substring(i).StartsWith(Substring) Then + SubstringCount += 1 + End If + Next + Return SubstringCount + + End Function From 6012d5ecdee0e2e91212e4ace64ac7d49d52dea0 Mon Sep 17 00:00:00 2001 From: 1885 Date: Wed, 22 Feb 2017 22:03:18 -0600 Subject: [PATCH 034/143] Change Domme buttons in Settings->Apps->Glitter Change Domme buttons added to Settings->Apps->Glitter. This lets the user set the current domme on the fly. Also fixed bug where Random slideshow always got selected if "Always Start with Random Domme" was checked, even if LoadDommeImageFolder() was called and ssh.glitternumber=0 --- README.md | 1 + Tease AI/Form1.vb | 5 +- Tease AI/Form2.Designer.vb | 196 +++++++++++++++++++++++++++---------- Tease AI/Form2.vb | 43 ++++++-- 4 files changed, 186 insertions(+), 59 deletions(-) diff --git a/README.md b/README.md index 9fda56b..b274082 100644 --- a/README.md +++ b/README.md @@ -20,6 +20,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * For example, @RT(Look,, I don't want to talk about it, Listen,, we're not discussing this right now, Sorry,, not going there right now) * Can now set a directory for Random Dommes in General Settings. This should point to location containing folders named after individual models, and each of those folders should contain folders with imagesets of that model. Tease AI will then chose a folder at random for the pictures, and the name of the model's folder for the domme's name. (dariobrun) * Added checkbox in General Settings to begin any new session with a Random Domme. + * Added Change Current Domme buttons in Settings->Apps->Glitter. This allows to set the currently active domme at any time the session is active. * Domme Personality settings now include a checkbox for CFNM (Clothed Female Nude Male). This is meant to allow taunts where the domme points out that the user will never see her naked, eg. This should be checked when using models with non-nude picture sets for the domme. * Added "Continue Current Script After Giving Up" option in Domme Settings. When you "give up" in Tease AI, the program normally moves on to a random Link script. When this option is checked, the script you're on will continue to play out instead. (dariobrun) * If options are set to use and/or capitalize the Domm'es honorific and the user fails to do so enough times, the domme will administer a CBT punishment (dariobrun) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 2ad5cde..e8c4550 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -17241,7 +17241,7 @@ saveImage: 'check which domme should be loaded If Not ssh.newSlideshow Then If ssh.glitterDommeNumber = 0 Then - If FrmSettings.CBRandomDomme.Checked = False Then + If FrmSettings.CBRandomDomme.Checked = False Or ssh.SaidHello = True Then ssh.SlideshowMain = New ContactData(ContactType.Domme) Else ssh.SlideshowMain = New ContactData(ContactType.Random) @@ -17257,7 +17257,8 @@ saveImage: End If End If ssh.SlideshowMain.LoadNew(ssh.newSlideshow) - ssh.tempDomName = ssh.SlideshowMain.TypeName + ssh.tempDomName = ssh.SlideshowMain.TypeName + FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName ssh.newSlideshow = False ShowImage(ssh.SlideshowMain.CurrentImage, False) diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 9dbede6..acfb867 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -28,9 +28,11 @@ Me.SettingsPanel = New System.Windows.Forms.Panel() Me.SettingsTabs = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.PNLGeneralSettings = New System.Windows.Forms.Panel() +Me.GroupBox3 = New System.Windows.Forms.GroupBox() +Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() Me.GroupBox2 = New System.Windows.Forms.GroupBox() -Me.CBRandomDomme = New System.Windows.Forms.CheckBox() Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() +Me.CBRandomDomme = New System.Windows.Forms.CheckBox() Me.BtnRandomImageDir = New System.Windows.Forms.Button() Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() Me.BtnImportSettings = New System.Windows.Forms.Button() @@ -1113,13 +1115,19 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() +Me.GroupBox4 = New System.Windows.Forms.GroupBox() +Me.BTNDomChangeDomme = New System.Windows.Forms.Button() +Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() +Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() +Me.BTNDomChangeRandom = New System.Windows.Forms.Button() +Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() +Me.LBLCurrentDomme = New System.Windows.Forms.Label() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() -Me.GroupBox3 = New System.Windows.Forms.GroupBox() -Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() Me.SettingsPanel.SuspendLayout Me.SettingsTabs.SuspendLayout Me.TabPage1.SuspendLayout Me.PNLGeneralSettings.SuspendLayout +Me.GroupBox3.SuspendLayout Me.GroupBox2.SuspendLayout Me.GroupBox64.SuspendLayout Me.GBDommeImages.SuspendLayout @@ -1377,7 +1385,7 @@ Me.GroupBox12.SuspendLayout Me.GroupBox65.SuspendLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox3.SuspendLayout +Me.GroupBox4.SuspendLayout Me.SuspendLayout ' 'SettingsPanel @@ -1446,12 +1454,33 @@ Me.PNLGeneralSettings.Name = "PNLGeneralSettings" Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) Me.PNLGeneralSettings.TabIndex = 0 ' +'GroupBox3 +' +Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) +Me.GroupBox3.Location = New System.Drawing.Point(7, 365) +Me.GroupBox3.Name = "GroupBox3" +Me.GroupBox3.Size = New System.Drawing.Size(211, 65) +Me.GroupBox3.TabIndex = 184 +Me.GroupBox3.TabStop = false +Me.GroupBox3.Text = "System Files" +' +'BTNValidateSystemFiles +' +Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray +Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black +Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) +Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" +Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) +Me.BTNValidateSystemFiles.TabIndex = 183 +Me.BTNValidateSystemFiles.Text = "Validate All System Files" +Me.BTNValidateSystemFiles.UseVisualStyleBackColor = false +' 'GroupBox2 ' -Me.GroupBox2.Controls.Add(Me.CBRandomDomme) Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) +Me.GroupBox2.Controls.Add(Me.CBRandomDomme) Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) -Me.GroupBox2.Controls.Add(Me.BtnRandomImageDirClear) Me.GroupBox2.Location = New System.Drawing.Point(224, 313) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(210, 117) @@ -1459,30 +1488,27 @@ Me.GroupBox2.TabIndex = 183 Me.GroupBox2.TabStop = false Me.GroupBox2.Text = "Random Domme" ' +'TbxRandomImageDir +' +Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 50) +Me.TbxRandomImageDir.Name = "TbxRandomImageDir" +Me.TbxRandomImageDir.ReadOnly = true +Me.TbxRandomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxRandomImageDir.TabIndex = 185 +Me.TbxRandomImageDir.Text = "No Path Selected" +' 'CBRandomDomme ' Me.CBRandomDomme.AutoSize = true -Me.CBRandomDomme.Location = New System.Drawing.Point(6, 83) +Me.CBRandomDomme.Location = New System.Drawing.Point(10, 83) Me.CBRandomDomme.Name = "CBRandomDomme" Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) Me.CBRandomDomme.TabIndex = 184 Me.CBRandomDomme.Text = "Always Start With Random Domme" Me.CBRandomDomme.UseVisualStyleBackColor = true ' -'TbxRandomImageDir -' -Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxRandomImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 49) -Me.TbxRandomImageDir.Name = "TbxRandomImageDir" -Me.TbxRandomImageDir.ReadOnly = true -Me.TbxRandomImageDir.Size = New System.Drawing.Size(145, 20) -Me.TbxRandomImageDir.TabIndex = 183 -Me.TbxRandomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir -' 'BtnRandomImageDir ' Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray @@ -1500,7 +1526,7 @@ Me.BtnRandomImageDir.UseVisualStyleBackColor = false Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(161, 47) +Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) Me.BtnRandomImageDirClear.TabIndex = 181 @@ -1613,12 +1639,12 @@ Me.CBNewSlideshow.AutoSize = true Me.CBNewSlideshow.Checked = true Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black -Me.CBNewSlideshow.Location = New System.Drawing.Point(4, 100) +Me.CBNewSlideshow.Location = New System.Drawing.Point(10, 100) Me.CBNewSlideshow.Name = "CBNewSlideshow" -Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) +Me.CBNewSlideshow.Size = New System.Drawing.Size(187, 17) Me.CBNewSlideshow.TabIndex = 18 Me.CBNewSlideshow.TabStop = false -Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" +Me.CBNewSlideshow.Text = "Load New Slideshow When Done" Me.CBNewSlideshow.UseVisualStyleBackColor = true ' 'offRadio @@ -9659,6 +9685,7 @@ Me.TabPage22.Text = "Glitter" 'PNLGlitter ' Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray +Me.PNLGlitter.Controls.Add(Me.GroupBox4) Me.PNLGlitter.Controls.Add(Me.Button15) Me.PNLGlitter.Controls.Add(Me.Button16) Me.PNLGlitter.Controls.Add(Me.Label121) @@ -14865,6 +14892,90 @@ Me.TextBox2.ReadOnly = true Me.TextBox2.Size = New System.Drawing.Size(189, 20) Me.TextBox2.TabIndex = 145 ' +'GroupBox4 +' +Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) +Me.GroupBox4.Location = New System.Drawing.Point(7, 307) +Me.GroupBox4.Name = "GroupBox4" +Me.GroupBox4.Size = New System.Drawing.Size(344, 85) +Me.GroupBox4.TabIndex = 167 +Me.GroupBox4.TabStop = false +Me.GroupBox4.Text = "Change Current Domme" +' +'BTNDomChangeDomme +' +Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) +Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" +Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeDomme.TabIndex = 168 +Me.BTNDomChangeDomme.Text = "Domme" +Me.BTNDomChangeDomme.UseVisualStyleBackColor = false +' +'BTNDomChangeContact2 +' +Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) +Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" +Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact2.TabIndex = 170 +Me.BTNDomChangeContact2.Text = "Contact 2" +Me.BTNDomChangeContact2.UseVisualStyleBackColor = false +' +'BTNDomChangeContact3 +' +Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) +Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" +Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact3.TabIndex = 171 +Me.BTNDomChangeContact3.Text = "Contact 3" +Me.BTNDomChangeContact3.UseVisualStyleBackColor = false +' +'BTNDomChangeRandom +' +Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) +Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" +Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeRandom.TabIndex = 172 +Me.BTNDomChangeRandom.Text = "Random" +Me.BTNDomChangeRandom.UseVisualStyleBackColor = false +' +'BTNDomChangeContact1 +' +Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) +Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" +Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact1.TabIndex = 173 +Me.BTNDomChangeContact1.Text = "Contact 1" +Me.BTNDomChangeContact1.UseVisualStyleBackColor = false +' +'LBLCurrentDomme +' +Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) +Me.LBLCurrentDomme.Name = "LBLCurrentDomme" +Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) +Me.LBLCurrentDomme.TabIndex = 168 +Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' 'BWURLFiles ' Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" @@ -14873,28 +14984,6 @@ Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" Me.BWURLFiles.WorkerReportsProgress = true Me.BWURLFiles.WorkerSupportsCancellation = true ' -'GroupBox3 -' -Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) -Me.GroupBox3.Location = New System.Drawing.Point(7, 365) -Me.GroupBox3.Name = "GroupBox3" -Me.GroupBox3.Size = New System.Drawing.Size(211, 65) -Me.GroupBox3.TabIndex = 184 -Me.GroupBox3.TabStop = false -Me.GroupBox3.Text = "System Files" -' -'BTNValidateSystemFiles -' -Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray -Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black -Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) -Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" -Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) -Me.BTNValidateSystemFiles.TabIndex = 183 -Me.BTNValidateSystemFiles.Text = "Validate All System Files" -Me.BTNValidateSystemFiles.UseVisualStyleBackColor = false -' 'FrmSettings ' Me.AllowDrop = true @@ -14904,6 +14993,7 @@ Me.ClientSize = New System.Drawing.Size(727, 465) Me.Controls.Add(Me.GroupBox65) Me.Controls.Add(Me.GroupBox44) Me.Controls.Add(Me.GroupBox47) +Me.Controls.Add(Me.BtnRandomImageDirClear) Me.Controls.Add(Me.SettingsPanel) Me.Controls.Add(Me.GroupBox12) Me.Controls.Add(Me.GroupBox21) @@ -14919,6 +15009,7 @@ Me.SettingsTabs.ResumeLayout(false) Me.TabPage1.ResumeLayout(false) Me.PNLGeneralSettings.ResumeLayout(false) Me.PNLGeneralSettings.PerformLayout +Me.GroupBox3.ResumeLayout(false) Me.GroupBox2.ResumeLayout(false) Me.GroupBox2.PerformLayout Me.GroupBox64.ResumeLayout(false) @@ -15247,7 +15338,7 @@ Me.GroupBox65.ResumeLayout(false) Me.GroupBox65.PerformLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox3.ResumeLayout(false) +Me.GroupBox4.ResumeLayout(false) Me.ResumeLayout(false) End Sub @@ -16339,8 +16430,15 @@ End Sub Friend WithEvents GBGiveUp As GroupBox Friend WithEvents giveupCheckBox As CheckBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox - Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox Friend WithEvents CBRandomDomme As System.Windows.Forms.CheckBox Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents BTNValidateSystemFiles As System.Windows.Forms.Button + Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents BTNDomChangeContact1 As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeRandom As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeContact3 As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeContact2 As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeDomme As System.Windows.Forms.Button + Friend WithEvents LBLCurrentDomme As System.Windows.Forms.Label End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index ff97fdd..650493c 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -449,12 +449,12 @@ Public Class FrmSettings WBPlaylist.Navigate(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\Playlist\Start\") - For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir, TbxRandomImageDir} - If tmptbx.DataBindings("Text") Is Nothing Then - Throw New Exception("There is no databinding set on """ & tmptbx.Name & - """'s text-property. Set the databinding and recompile!") - End If - Next + For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir} + If tmptbx.DataBindings("Text") Is Nothing Then + Throw New Exception("There is no databinding set on """ & tmptbx.Name & + """'s text-property. Set the databinding and recompile!") + End If + Next For Each tmptbx As CheckBox In New List(Of CheckBox) From {CBGlitter1, CBGlitter2, CBGlitter3} If tmptbx.DataBindings("Checked") Is Nothing Then @@ -463,6 +463,8 @@ Public Class FrmSettings End If Next + TbxRandomImageDir.Text = My.Settings.RandomImageDir + If My.Settings.TeaseAILanguage = "English" Then EnglishMenu() If My.Settings.TeaseAILanguage = "German" Then GermanMenu() @@ -2967,8 +2969,9 @@ SkipDeserializing: If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.RandomImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowContactRandom = New ContactData(ContactType.Random) - End If - End Sub + TbxRandomImageDir.Text = My.Settings.RandomImageDir + End If + End Sub Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles BTNGlitterD.Click If GetColor.ShowDialog() = DialogResult.OK Then @@ -10346,4 +10349,28 @@ checkFolder: End Sub + Private Sub BTNDomChangeDomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeDomme.Click + Ssh.glitterDommeNumber = 0 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeRandom.Click + Ssh.glitterDommeNumber = 4 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact1.Click + Ssh.glitterDommeNumber = 1 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact2.Click + Ssh.glitterDommeNumber = 2 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact3.Click + Ssh.glitterDommeNumber = 3 + Form1.LoadDommeImageFolder() + End Sub End Class \ No newline at end of file From 3970b63aad636bbd1d9bc616badd2fcbbe567dde Mon Sep 17 00:00:00 2001 From: pepsifreak Date: Fri, 3 Mar 2017 06:04:45 -0500 Subject: [PATCH 035/143] Add pause setting check to TeaseTick Having the settings window up now freezes teasetick if the related setting is enabled. --- Tease AI/Form1.vb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index e8c4550..04b5028 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -16807,6 +16807,8 @@ RestartFunction: FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick 'Debug.Print("TeaseTick = " & TeaseTick) + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + ssh.TeaseTick -= 1 If ssh.TeaseTick < 1 Then TeaseTimer.Stop() From 57375181b545cb5647d9c4e07f74a1542a61606b Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 4 Mar 2017 10:45:51 -0600 Subject: [PATCH 036/143] Output Error Messages to Chat Added "Output Error Message to Chat Window" option to Misc Settings. --- README.md | 9 + Tease AI/Classes/Common.vb | 17 +- Tease AI/Classes/ContactData.vb | 6 +- Tease AI/Classes/mySettings_Partial.vb | 1 + Tease AI/Form1.vb | 94 +- Tease AI/Form1/ImageFuctions.vb | 55 +- Tease AI/Form2.Designer.vb | 17680 +++++++++++---------- Tease AI/Form2.vb | 5 + Tease AI/My Project/Settings.Designer.vb | 12 + Tease AI/My Project/Settings.settings | 3 + Tease AI/app.config | 3 + 11 files changed, 8992 insertions(+), 8893 deletions(-) diff --git a/README.md b/README.md index b274082..1f27ab2 100644 --- a/README.md +++ b/README.md @@ -6,6 +6,15 @@ Tease AI is adult-oriented software that aims to create an interactive tease and Stefaf: Integration of Class myDirectory: Status ongoing. Testrun to sort Lists like Win-Explorer: initialized in v0.54.5.1 +# Changelog - Patch 54.8.0 + +* Added Features: + * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. + +* Miscellaneous: + * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) + + # Changelog - Patch 54.7.0 * Added Features: diff --git a/Tease AI/Classes/Common.vb b/Tease AI/Classes/Common.vb index 7de6aa2..4c844f9 100644 --- a/Tease AI/Classes/Common.vb +++ b/Tease AI/Classes/Common.vb @@ -94,7 +94,8 @@ Public Class Common FswChache.Add(tmpString, tmpFsw) Catch ex As Exception - Log.WriteError("TxtCache: Unable to Create FileSystemWatcher for:" & Filepath, ex, "TxtCache Create FileSystemWatcher") + Log.WriteError("TxtCache: Unable to Create FileSystemWatcher for:" & Filepath, ex, "TxtCache Create FileSystemWatcher") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to Create FileSystemWatcher for: " & Filepath & ".", False) End Try End Sub @@ -189,7 +190,8 @@ Public Class Common '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error loading TextFile: """ & GetText & """") + Log.WriteError(ex.Message, ex, "Error loading TextFile: """ & GetText & """") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading TextFile: " & GetText & "", False) End Try Return New List(Of String) End Function @@ -228,7 +230,8 @@ Public Class Common '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error loading TextLine: " & GetText) + Log.WriteError(ex.Message, ex, "Error loading TextLine: " & GetText) + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading TextLine: " & GetText & "", False) End Try Return "" End Function @@ -266,8 +269,9 @@ Public Class Common '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error removing TextLine: """ & Searchpattern & - """ from file """ & Filepath & """") + Log.WriteError(ex.Message, ex, "Error removing TextLine: """ & Searchpattern & + """ from file """ & Filepath & """") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error removing TextLine: " & Searchpattern & " from file: " & Filepath & "", False) Return 0 End Try End Function @@ -380,7 +384,8 @@ Public Class Common ' All Errors - But image was loaded so return it. '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("Exception while saving image: """ & uri & "") - Log.WriteError("Exception while saving image: """ & uri & "", ex, "Exception while saving image") + Log.WriteError("Exception while saving image: """ & uri & "", ex, "Exception while saving image") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception while saving image: " & uri & "", False) Return rtnImage Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index b38717e..534450a 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -528,7 +528,8 @@ SetForwardImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Exception in GetDommeImage()", ex, "") + Log.WriteError("Exception in GetDommeImage()", ex, "") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in GetDommeImage().", False) Finally '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ #If TRACE Then @@ -706,7 +707,8 @@ redo: ApplyTextedTags = ApplyTextedTags.Replace("#Tag", "") Catch ex As Exception - Log.WriteError(ex.Message, ex, "ApplyTextedTags(String)") + Log.WriteError(ex.Message, ex, "ApplyTextedTags(String)") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: ApplyTextedTags(String).", False) End Try End Function diff --git a/Tease AI/Classes/mySettings_Partial.vb b/Tease AI/Classes/mySettings_Partial.vb index 66658cf..35fbf7d 100644 --- a/Tease AI/Classes/mySettings_Partial.vb +++ b/Tease AI/Classes/mySettings_Partial.vb @@ -250,6 +250,7 @@ Error_All: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Exception while duplicating user.config.") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception while duplicating user.config.", False) End Try End Sub diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 04b5028..0122824 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -3465,7 +3465,7 @@ FoundState: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Response line from file: " & ssh.ResponseFile, ex, "ReponseClean(String)") - CleanResponse = "ERROR: Tease AI did not return a valid Response line" + CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile End Try @@ -3922,7 +3922,7 @@ AcceptAnswer: Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTBalls line from file: " & File2Read, ex, "CBTBalls()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line" + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read End Try ssh.CBTBallsFirst = False @@ -3950,7 +3950,7 @@ AcceptAnswer: Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTCock line from file: " & File2Read, ex, "CBTCock()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line" + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read End Try ssh.CBTCockFirst = False @@ -3991,7 +3991,7 @@ AcceptAnswer: Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBT line from file: " & File2Read, ex, "CBTBoth()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line" + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read End Try ssh.CBTBothFirst = False @@ -4015,8 +4015,8 @@ AcceptAnswer: CustomList = FilterList(CustomList) ssh.DomTask = CustomList(ssh.randomizer.Next(0, CustomList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Custom Taks line from file: " & File2Read, ex, "RunCustomTask()") - ssh.DomTask = "ERROR: Tease AI did not return a valid Custom Task line" + Log.WriteError("Tease AI did not return a valid Custom Task line from file: " & File2Read, ex, "RunCustomTask()") + ssh.DomTask = "ERROR: Tease AI did not return a valid Custom Task line from file: " & File2Read End Try ssh.CustomTaskFirst = False @@ -4768,7 +4768,8 @@ SkipGotoSearch: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") + Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "::: Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """", False) Throw End Try @@ -5425,13 +5426,16 @@ DommeSlideshowFallback: Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ContactToUse = Nothing - Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + Log.WriteError("Error occurred while displaying image. Performing Fallback.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + ChatAddSystemMessage(ex.ToString, False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ - Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") + Log.WriteError("Error occurred while displaying image. Fallback Failed.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -6125,13 +6129,15 @@ DommeSlideshowFallback: Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ContactToUse = Nothing - Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + Log.WriteError("Error occurred while displaying image. Performing Fallback.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ - Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") + Log.WriteError("Error occurred while displaying image. Fallback Failed.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -6550,7 +6556,8 @@ Retry: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Move in slideshow Failed") + Log.WriteError(ex.Message, ex, "Move in slideshow Failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) MessageBox.Show(ex.Message, "Move in Slideshow failed", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub @@ -6788,7 +6795,7 @@ Retry: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Taunt from file: " & ssh.TauntText, ex, "StrokeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt" + ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from file: " & ssh.TauntText End Try @@ -6842,10 +6849,10 @@ Retry: End If Catch ex As Exception - ssh.DomTask = ex.Message - Log.WriteError(ex.Message, ex, "CBTScript()") - Finally - TypingDelayGeneric() + ssh.DomTask = ex.Message + Log.WriteError(ex.Message, ex, "CBTScript()") + Finally + TypingDelayGeneric() End Try End Sub @@ -7236,7 +7243,7 @@ CensorConstant: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo, ex, "CensorshipTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line" + ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo End Try TypingDelayGeneric() @@ -7290,7 +7297,7 @@ CensorConstant: Catch ex As Exception Log.WriteError("Tease AI did not return a valid RLGL line from file: " & file2read, ex, "RLGLTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line" + ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read End Try TypingDelayGeneric() @@ -8534,8 +8541,9 @@ RinseLatherRepeat: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", - ex, "@DeleteLocalImage failed") + Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", + ex, "@DeleteLocalImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If StringClean = StringClean.Replace("@DeleteLocalImage", "") @@ -8552,8 +8560,9 @@ RinseLatherRepeat: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteImage was unable to delete the image.", - ex, "@DeleteImage failed") + Log.WriteError("Command @DeleteImage was unable to delete the image.", + ex, "@DeleteImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If StringClean = StringClean.Replace("@DeleteImage", "") @@ -8890,7 +8899,8 @@ ShowedBlogImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Command @ShowImage[] was unable to display the image.", ex, "Error at @ShowImage[]") - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") + 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error at @ShowImage[]", False) End Try StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") End If @@ -8922,8 +8932,9 @@ ShowedBlogImage: TnASlides.Start() Catch ex As Exception - Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & - ex.Message, ex, "CommandClean()") + Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & + ex.Message, ex, "CommandClean()") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) End Try StringClean = StringClean.Replace("@TnAFastSlides", "") @@ -9091,7 +9102,8 @@ ShowedBlogImage: GetGoto() Else Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." - Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") + Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) End If StringClean = StringClean.Replace("@GotoSlideshow", "") @@ -13854,7 +13866,8 @@ VTSkip: ' To Avoid DivideByZeroException If ListIncrement <= 0 Then Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " - Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") + Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & "", False) Return ListClean End If @@ -14459,8 +14472,9 @@ VTSkip: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exceoption occured while checking line ""{0}"".", OrgFilterString), + Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), ex, "GetFilter(String, Boolean)") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) Return False End Try End Function @@ -15539,7 +15553,7 @@ NoPlaylistEndFile: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & File2Read, ex, "EdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt" + ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15908,7 +15922,7 @@ NoRepeatOFiles: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read, ex, "HoldEdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt" + ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -16361,7 +16375,8 @@ RestartFunction: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ TnASlides.Stop() - Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlieds.Tick occured") + Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in TnASlides.Tick occured", False) End Try End Sub @@ -16779,7 +16794,7 @@ RestartFunction: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "VideoTaunTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16854,7 +16869,7 @@ RestartFunction: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "RLGLTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16907,7 +16922,7 @@ RestartFunction: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "AvoidTheEdgeTaunts.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -20827,6 +20842,5 @@ playLoop: End Function - End Class diff --git a/Tease AI/Form1/ImageFuctions.vb b/Tease AI/Form1/ImageFuctions.vb index 3ecad22..6dde671 100644 --- a/Tease AI/Form1/ImageFuctions.vb +++ b/Tease AI/Form1/ImageFuctions.vb @@ -131,8 +131,9 @@ Partial Class Form1 '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " : " & ex.Message, ex, - "Excetion at: " & Name.ToString & ".ToList()") + Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " : " & ex.Message, ex, + "Exception at: " & Name.ToString & ".ToList()") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist for genre. See Errorlogs for more information.", False) Return New List(Of String) End Try Return rtnList @@ -199,7 +200,8 @@ Partial Class Form1 rtnList.AddRange(addlist) Catch ex As Exception - Log.WriteError(ex.Message, ex, "Error occured while loading Likelist") + Log.WriteError(ex.Message, ex, "Error occured while loading Likelist") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Likelist", False) GoTo exitEmpty End Try '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -219,7 +221,8 @@ Partial Class Form1 rtnList.AddRange(addlist) Catch ex As Exception - Log.WriteError(ex.Message, ex, "Error occured while loading Dislikelist") + Log.WriteError(ex.Message, ex, "Error occured while loading Dislikelist") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Dislikelist", False) GoTo exitEmpty End Try '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -272,8 +275,9 @@ Partial Class Form1 '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " and Source." & Type.ToString & " : " & ex.Message, ex, - "Excetion at: " & Name.ToString & ".ToList(" & Type.ToString & ")") + Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " and Source." & Type.ToString & " : " & ex.Message, ex, + "Exception at: " & Name.ToString & ".ToList(" & Type.ToString & ")") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist. See Errorlogs for more information.", False) Return New List(Of String) End Try exitEmpty: @@ -300,7 +304,8 @@ exitEmpty: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") + Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) End Try NoneFound: ' Return the Error-Image FilePath @@ -330,7 +335,8 @@ NoneFound: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") + Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) End Try NoneFound: ' Return an Error-Image FilePath @@ -621,12 +627,14 @@ NoNeFound: ' ===================== NULL Reference ======================= FetchContainer.ImageLocation = pathImageErrorOnLoading Dim lazyText As String = "The given imagepath was NULL." - Log.WriteError(lazyText, New ArgumentNullException(lazyText), "ShowImage with no valid imagepath.") + Log.WriteError(lazyText, New ArgumentNullException(lazyText), "ShowImage with no valid imagepath.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) ElseIf ImageToShow = "" Then ' ====================== String.Empty ======================== FetchContainer.ImageLocation = pathImageErrorOnLoading Dim lazyText As String = "The given imagepath was empty." - Log.WriteError(lazyText, New ArgumentException(lazyText), "ShowImage with no valid imagepath.") + Log.WriteError(lazyText, New ArgumentException(lazyText), "ShowImage with no valid imagepath.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) Else ' ======================== All fine ========================== FetchContainer.ImageLocation = ImageToShow @@ -643,8 +651,9 @@ NoNeFound: Try If WaitToFinish Then BWimageFetcher.WaitToFinish() Catch ex As Exception - Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "ShowImage(String, Boolean)") + Log.WriteError("Error occurred while displaying image. Fallback Failed.", + ex, "ShowImage(String, Boolean)") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while displaying image. Fallback failed.", False) End Try End Sub @@ -749,17 +758,19 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima ' All Errors - !first! time '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("ImageFetch - DoWork - 1st Exception perfomaing fallback") - Log.WriteError("Error loading Image: """ & .ImageLocation & """", ex, - "Error loading image. Performing fallback to errorimage.") - .ImageLocation = errorimagepath + Log.WriteError("Error loading Image: """ & .ImageLocation & """", ex, + "Error loading image. Performing fallback to errorimage.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading image: " & .ImageLocation & "", False) + .ImageLocation = errorimagepath GoTo retryLocal Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors - 2nd time '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("ImageFetch - DoWork - 2nd Exception - fallback failed.") - Log.WriteError("Fallback to errorimage """ & .ImageLocation & """ failed ", - ex, "Error loading image") + Log.WriteError("Fallback to errorimage """ & .ImageLocation & """ failed ", + ex, "Error loading image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Fallback to errorimage """ & .ImageLocation & """ failed ", False) End Try End With @@ -827,8 +838,9 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("An Exception occurred while displaying image: " & vbCrLf & ex.Message, - ex, "Error Displaying image.") + Log.WriteError("An Exception occurred while displaying image: " & vbCrLf & ex.Message, + ex, "Error Displaying image.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: An exception occurred while displaying image", False) End Try End Sub @@ -908,8 +920,9 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Unable to set image in MainPictureBox: " & ex.Message, - ex, "MainPictureboxSetImage") + Log.WriteError("Unable to set image in MainPictureBox: " & ex.Message, + ex, "MainPictureboxSetImage") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to set image in MainPictureBox", False) End Try End Sub diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index acfb867..82ed727 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -34,11 +34,9 @@ Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() Me.CBRandomDomme = New System.Windows.Forms.CheckBox() Me.BtnRandomImageDir = New System.Windows.Forms.Button() -Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() Me.BtnImportSettings = New System.Windows.Forms.Button() Me.LblImportSettings = New System.Windows.Forms.Label() Me.GroupBox64 = New System.Windows.Forms.GroupBox() -Me.CBMuteMedia = New System.Windows.Forms.CheckBox() Me.GBDommeImages = New System.Windows.Forms.GroupBox() Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() Me.teaseRadio = New System.Windows.Forms.RadioButton() @@ -46,7 +44,6 @@ Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() Me.offRadio = New System.Windows.Forms.RadioButton() Me.BTNDomImageDir = New System.Windows.Forms.Button() Me.timedRadio = New System.Windows.Forms.RadioButton() -Me.TbxDomImageDir = New System.Windows.Forms.TextBox() Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() Me.LBLVRate = New System.Windows.Forms.Label() Me.Label93 = New System.Windows.Forms.Label() @@ -76,13 +73,11 @@ Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() Me.CBWebtease = New System.Windows.Forms.CheckBox() Me.GBSubFont = New System.Windows.Forms.GroupBox() Me.BTNSubColor = New System.Windows.Forms.Button() -Me.LBLSubColor = New System.Windows.Forms.Label() Me.NBFontSize = New System.Windows.Forms.NumericUpDown() Me.Label2 = New System.Windows.Forms.Label() Me.FontComboBox = New System.Windows.Forms.ComboBox() Me.GBDommeFont = New System.Windows.Forms.GroupBox() Me.BTNDomColor = New System.Windows.Forms.Button() -Me.LBLDomColor = New System.Windows.Forms.Label() Me.FontComboBoxD = New System.Windows.Forms.ComboBox() Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() Me.Label7 = New System.Windows.Forms.Label() @@ -164,7 +159,6 @@ Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() Me.crazyCheckBox = New System.Windows.Forms.CheckBox() Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() -Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() Me.orgasmlockrandombutton = New System.Windows.Forms.Button() Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() @@ -315,77 +309,12 @@ Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() -Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() -Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() -Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() -Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() -Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() -Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.BTNIHardcore = New System.Windows.Forms.Button() -Me.TbxIHardcore = New System.Windows.Forms.TextBox() -Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() -Me.CBIHardcore = New System.Windows.Forms.CheckBox() -Me.CBISoftcore = New System.Windows.Forms.CheckBox() -Me.TbxISoftcore = New System.Windows.Forms.TextBox() -Me.CBButtSubDir = New System.Windows.Forms.CheckBox() -Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() -Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() -Me.CBILezdomSD = New System.Windows.Forms.CheckBox() -Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() -Me.CBILesbianSD = New System.Windows.Forms.CheckBox() -Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() -Me.CBILesbian = New System.Windows.Forms.CheckBox() -Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjob = New System.Windows.Forms.CheckBox() -Me.CBIGaySD = New System.Windows.Forms.CheckBox() -Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() -Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() -Me.TbxIButts = New System.Windows.Forms.TextBox() -Me.CBIFemdom = New System.Windows.Forms.CheckBox() -Me.TbxILesbian = New System.Windows.Forms.TextBox() Me.BTNISoftcore = New System.Windows.Forms.Button() -Me.CBILezdom = New System.Windows.Forms.CheckBox() -Me.TbxIBoobs = New System.Windows.Forms.TextBox() -Me.CBIHentai = New System.Windows.Forms.CheckBox() -Me.TbxIBlowjob = New System.Windows.Forms.TextBox() -Me.CBIGay = New System.Windows.Forms.CheckBox() -Me.TbxIGeneral = New System.Windows.Forms.TextBox() -Me.CBIMaledom = New System.Windows.Forms.CheckBox() -Me.TbxIFemdom = New System.Windows.Forms.TextBox() Me.BTNILesbian = New System.Windows.Forms.Button() -Me.TbxICaptions = New System.Windows.Forms.TextBox() -Me.CBICaptions = New System.Windows.Forms.CheckBox() -Me.TbxILezdom = New System.Windows.Forms.TextBox() -Me.TbxIMaledom = New System.Windows.Forms.TextBox() Me.BTNButtPath = New System.Windows.Forms.Button() -Me.TbxIHentai = New System.Windows.Forms.TextBox() -Me.CBIGeneral = New System.Windows.Forms.CheckBox() -Me.TbxIGay = New System.Windows.Forms.TextBox() -Me.CBIBoobs = New System.Windows.Forms.CheckBox() -Me.CBIButts = New System.Windows.Forms.CheckBox() Me.BTNIBlowjob = New System.Windows.Forms.Button() Me.BTNIFemdom = New System.Windows.Forms.Button() Me.BTNBoobPath = New System.Windows.Forms.Button() @@ -578,29 +507,17 @@ Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() Me.BTNRefreshVideos = New System.Windows.Forms.Button() Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() -Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() Me.BTNVideoGeneralD = New System.Windows.Forms.Button() -Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotalD = New System.Windows.Forms.Label() Me.LblVideoJOITotalD = New System.Windows.Forms.Label() -Me.TxbVideoCHD = New System.Windows.Forms.TextBox() -Me.TxbVideoJOID = New System.Windows.Forms.TextBox() Me.BTNVideoCHD = New System.Windows.Forms.Button() Me.BTNVideoJOID = New System.Windows.Forms.Button() -Me.CBVideoJOID = New System.Windows.Forms.CheckBox() -Me.CBVideoCHD = New System.Windows.Forms.CheckBox() Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() -Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() -Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() Me.BTNVideoFemSubD = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoFemDomD = New System.Windows.Forms.Button() @@ -609,39 +526,21 @@ Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoLesbianD = New System.Windows.Forms.Button() Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() -Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() Me.VideoDescriptionLabel = New System.Windows.Forms.Label() Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() -Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() Me.BTNVideoGeneral = New System.Windows.Forms.Button() -Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotal = New System.Windows.Forms.Label() Me.LblVideoJOITotal = New System.Windows.Forms.Label() -Me.TxbVideoCH = New System.Windows.Forms.TextBox() -Me.TxbVideoJOI = New System.Windows.Forms.TextBox() Me.BTNVideoCH = New System.Windows.Forms.Button() Me.BTNVideoJOI = New System.Windows.Forms.Button() -Me.CBVideoJOI = New System.Windows.Forms.CheckBox() -Me.CBVideoCH = New System.Windows.Forms.CheckBox() Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() -Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() -Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() Me.BTNVideoFemSub = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoFemDom = New System.Windows.Forms.Button() @@ -650,116 +549,52 @@ Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoLesbian = New System.Windows.Forms.Button() Me.BTNVideoSoftCore = New System.Windows.Forms.Button() Me.BTNVideoHardCore = New System.Windows.Forms.Button() -Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() Me.LblVideoHeader = New System.Windows.Forms.Label() Me.TabPage20 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage22 = New System.Windows.Forms.TabPage() Me.PNLGlitter = New System.Windows.Forms.Panel() +Me.GroupBox4 = New System.Windows.Forms.GroupBox() +Me.LBLCurrentDomme = New System.Windows.Forms.Label() +Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() +Me.BTNDomChangeRandom = New System.Windows.Forms.Button() +Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() +Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() +Me.BTNDomChangeDomme = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.Button16 = New System.Windows.Forms.Button() Me.Label121 = New System.Windows.Forms.Label() Me.Label122 = New System.Windows.Forms.Label() Me.GBGlitterD = New System.Windows.Forms.GroupBox() Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() -Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() Me.BTNGlitterD = New System.Windows.Forms.Button() -Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() Me.LBLGlitterSlider = New System.Windows.Forms.Label() -Me.CBCustom2 = New System.Windows.Forms.CheckBox() -Me.GlitterSlider = New System.Windows.Forms.TrackBar() -Me.CBCustom1 = New System.Windows.Forms.CheckBox() -Me.CBDaily = New System.Windows.Forms.CheckBox() -Me.CBTrivia = New System.Windows.Forms.CheckBox() -Me.TBGlitterShortName = New System.Windows.Forms.TextBox() -Me.CBEgotist = New System.Windows.Forms.CheckBox() -Me.CBTease = New System.Windows.Forms.CheckBox() Me.GlitterAV = New System.Windows.Forms.PictureBox() Me.GBGlitter1 = New System.Windows.Forms.GroupBox() Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact1ImageDir = New System.Windows.Forms.Button() -Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter1 = New System.Windows.Forms.Button() -Me.LBLGlitterNC1 = New System.Windows.Forms.Label() Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() -Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() -Me.CBGlitter1 = New System.Windows.Forms.CheckBox() -Me.TBGlitter1 = New System.Windows.Forms.TextBox() Me.GlitterAV1 = New System.Windows.Forms.PictureBox() Me.GBGlitter3 = New System.Windows.Forms.GroupBox() Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact3ImageDir = New System.Windows.Forms.Button() -Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter3 = New System.Windows.Forms.Button() -Me.LBLGlitterNC3 = New System.Windows.Forms.Label() Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() -Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() -Me.CBGlitter3 = New System.Windows.Forms.CheckBox() -Me.TBGlitter3 = New System.Windows.Forms.TextBox() Me.GlitterAV3 = New System.Windows.Forms.PictureBox() Me.GBGlitter2 = New System.Windows.Forms.GroupBox() Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact2ImageDir = New System.Windows.Forms.Button() -Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter2 = New System.Windows.Forms.Button() -Me.LBLGlitterNC2 = New System.Windows.Forms.Label() Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() -Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() -Me.CBGlitter2 = New System.Windows.Forms.CheckBox() -Me.TBGlitter2 = New System.Windows.Forms.TextBox() Me.GlitterAV2 = New System.Windows.Forms.PictureBox() Me.TpGames = New System.Windows.Forms.TabPage() -Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() Me.LblCardsSetupNote = New System.Windows.Forms.Label() Me.CBGameSounds = New System.Windows.Forms.CheckBox() Me.GbxCardsGold = New System.Windows.Forms.GroupBox() -Me.GN6 = New System.Windows.Forms.TextBox() -Me.GP6 = New System.Windows.Forms.PictureBox() -Me.GN2 = New System.Windows.Forms.TextBox() -Me.GP2 = New System.Windows.Forms.PictureBox() -Me.GP5 = New System.Windows.Forms.PictureBox() -Me.GN1 = New System.Windows.Forms.TextBox() -Me.GP1 = New System.Windows.Forms.PictureBox() -Me.GN5 = New System.Windows.Forms.TextBox() -Me.GN3 = New System.Windows.Forms.TextBox() -Me.GP3 = New System.Windows.Forms.PictureBox() -Me.GP4 = New System.Windows.Forms.PictureBox() -Me.GN4 = New System.Windows.Forms.TextBox() Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() -Me.CardBack = New System.Windows.Forms.PictureBox() Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() -Me.BN6 = New System.Windows.Forms.TextBox() -Me.BN3 = New System.Windows.Forms.TextBox() -Me.BP3 = New System.Windows.Forms.PictureBox() -Me.BP6 = New System.Windows.Forms.PictureBox() -Me.BN2 = New System.Windows.Forms.TextBox() -Me.BN5 = New System.Windows.Forms.TextBox() -Me.BP5 = New System.Windows.Forms.PictureBox() -Me.BP2 = New System.Windows.Forms.PictureBox() -Me.BN1 = New System.Windows.Forms.TextBox() -Me.BN4 = New System.Windows.Forms.TextBox() -Me.BP4 = New System.Windows.Forms.PictureBox() -Me.BP1 = New System.Windows.Forms.PictureBox() Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() -Me.SN6 = New System.Windows.Forms.TextBox() -Me.SP6 = New System.Windows.Forms.PictureBox() -Me.SN2 = New System.Windows.Forms.TextBox() -Me.SP2 = New System.Windows.Forms.PictureBox() -Me.SN1 = New System.Windows.Forms.TextBox() -Me.SP5 = New System.Windows.Forms.PictureBox() -Me.SP1 = New System.Windows.Forms.PictureBox() -Me.SN5 = New System.Windows.Forms.TextBox() -Me.SN3 = New System.Windows.Forms.TextBox() -Me.SN4 = New System.Windows.Forms.TextBox() -Me.SP3 = New System.Windows.Forms.PictureBox() -Me.SP4 = New System.Windows.Forms.PictureBox() Me.TabPage6 = New System.Windows.Forms.TabPage() Me.Panel10 = New System.Windows.Forms.Panel() Me.TBWishlistComment = New System.Windows.Forms.TextBox() @@ -790,20 +625,13 @@ Me.Button31 = New System.Windows.Forms.Button() Me.PictureBox10 = New System.Windows.Forms.PictureBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.CBTransparentTime = New System.Windows.Forms.CheckBox() -Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() Me.Label137 = New System.Windows.Forms.Label() Me.Label138 = New System.Windows.Forms.Label() -Me.LBLDateBackColor2 = New System.Windows.Forms.Label() Me.LBLTextColor = New System.Windows.Forms.Label() -Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor2 = New System.Windows.Forms.Label() Me.LBLChatTextColor = New System.Windows.Forms.Label() -Me.LBLBackColor2 = New System.Windows.Forms.Label() Me.LBLButtonColor = New System.Windows.Forms.Label() Me.LBLChatWindowColor = New System.Windows.Forms.Label() Me.LBLBackColor = New System.Windows.Forms.Label() -Me.LBLChatTextColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor2 = New System.Windows.Forms.Label() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label144 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() @@ -818,8 +646,6 @@ Me.Panel6 = New System.Windows.Forms.Panel() Me.GroupBox69 = New System.Windows.Forms.GroupBox() Me.TypesSpeedVal = New System.Windows.Forms.Label() Me.TypeSpeedLabel = New System.Windows.Forms.Label() -Me.TimedWriting = New System.Windows.Forms.CheckBox() -Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() Me.GroupBox68 = New System.Windows.Forms.GroupBox() Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() @@ -827,26 +653,16 @@ Me.Label165 = New System.Windows.Forms.Label() Me.Label166 = New System.Windows.Forms.Label() Me.GroupBox67 = New System.Windows.Forms.GroupBox() Me.Label161 = New System.Windows.Forms.Label() -Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label162 = New System.Windows.Forms.Label() Me.Label163 = New System.Windows.Forms.Label() Me.Label158 = New System.Windows.Forms.Label() -Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label159 = New System.Windows.Forms.Label() Me.Label160 = New System.Windows.Forms.Label() -Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() Me.Label119 = New System.Windows.Forms.Label() Me.Label157 = New System.Windows.Forms.Label() Me.Label151 = New System.Windows.Forms.Label() -Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label154 = New System.Windows.Forms.Label() Me.Label155 = New System.Windows.Forms.Label() -Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() Me.Label146 = New System.Windows.Forms.Label() Me.Label149 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() @@ -900,15 +716,10 @@ Me.Label29 = New System.Windows.Forms.Label() Me.GroupBox18 = New System.Windows.Forms.GroupBox() Me.Label108 = New System.Windows.Forms.Label() Me.Label109 = New System.Windows.Forms.Label() -Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() -Me.CBCensorConstant = New System.Windows.Forms.CheckBox() Me.Label25 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() -Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() Me.Label89 = New System.Windows.Forms.Label() Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() @@ -1071,6 +882,7 @@ Me.Label17 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.Label41 = New System.Windows.Forms.Label() +Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() Me.GroupBox47 = New System.Windows.Forms.GroupBox() Me.GroupBox41 = New System.Windows.Forms.GroupBox() Me.Button34 = New System.Windows.Forms.Button() @@ -1115,59 +927,249 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.GroupBox4 = New System.Windows.Forms.GroupBox() -Me.BTNDomChangeDomme = New System.Windows.Forms.Button() -Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() -Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() -Me.BTNDomChangeRandom = New System.Windows.Forms.Button() -Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() -Me.LBLCurrentDomme = New System.Windows.Forms.Label() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() -Me.SettingsPanel.SuspendLayout -Me.SettingsTabs.SuspendLayout -Me.TabPage1.SuspendLayout -Me.PNLGeneralSettings.SuspendLayout -Me.GroupBox3.SuspendLayout -Me.GroupBox2.SuspendLayout -Me.GroupBox64.SuspendLayout -Me.GBDommeImages.SuspendLayout -CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralTextToSpeech.SuspendLayout -CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBSafeword.SuspendLayout -Me.GBGeneralSystem.SuspendLayout -Me.GBGeneralImages.SuspendLayout -CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralSettings.SuspendLayout -Me.GBSubFont.SuspendLayout -CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDommeFont.SuspendLayout -CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage2.SuspendLayout -Me.Panel3.SuspendLayout -Me.GBGiveUp.SuspendLayout -CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomTypingStyle.SuspendLayout -CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox63.SuspendLayout -Me.GBDomRanges.SuspendLayout -CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomStats.SuspendLayout -CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomPersonality.SuspendLayout -Me.GBDomOrgasms.SuspendLayout +Me.GroupBox8 = New System.Windows.Forms.GroupBox() +Me.CBOutputErrors = New System.Windows.Forms.CheckBox() +Me.CBMuteMedia = New System.Windows.Forms.CheckBox() +Me.TbxDomImageDir = New System.Windows.Forms.TextBox() +Me.LBLSubColor = New System.Windows.Forms.Label() +Me.LBLDomColor = New System.Windows.Forms.Label() +Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() +Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() +Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() +Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() +Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() +Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() +Me.TbxIHardcore = New System.Windows.Forms.TextBox() +Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() +Me.CBIHardcore = New System.Windows.Forms.CheckBox() +Me.CBISoftcore = New System.Windows.Forms.CheckBox() +Me.TbxISoftcore = New System.Windows.Forms.TextBox() +Me.CBButtSubDir = New System.Windows.Forms.CheckBox() +Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() +Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() +Me.CBILezdomSD = New System.Windows.Forms.CheckBox() +Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() +Me.CBILesbianSD = New System.Windows.Forms.CheckBox() +Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() +Me.CBILesbian = New System.Windows.Forms.CheckBox() +Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjob = New System.Windows.Forms.CheckBox() +Me.CBIGaySD = New System.Windows.Forms.CheckBox() +Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() +Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() +Me.TbxIButts = New System.Windows.Forms.TextBox() +Me.CBIFemdom = New System.Windows.Forms.CheckBox() +Me.TbxILesbian = New System.Windows.Forms.TextBox() +Me.CBILezdom = New System.Windows.Forms.CheckBox() +Me.TbxIBoobs = New System.Windows.Forms.TextBox() +Me.CBIHentai = New System.Windows.Forms.CheckBox() +Me.TbxIBlowjob = New System.Windows.Forms.TextBox() +Me.CBIGay = New System.Windows.Forms.CheckBox() +Me.TbxIGeneral = New System.Windows.Forms.TextBox() +Me.CBIMaledom = New System.Windows.Forms.CheckBox() +Me.TbxIFemdom = New System.Windows.Forms.TextBox() +Me.TbxICaptions = New System.Windows.Forms.TextBox() +Me.CBICaptions = New System.Windows.Forms.CheckBox() +Me.TbxILezdom = New System.Windows.Forms.TextBox() +Me.TbxIMaledom = New System.Windows.Forms.TextBox() +Me.TbxIHentai = New System.Windows.Forms.TextBox() +Me.CBIGeneral = New System.Windows.Forms.CheckBox() +Me.TbxIGay = New System.Windows.Forms.TextBox() +Me.CBIBoobs = New System.Windows.Forms.CheckBox() +Me.CBIButts = New System.Windows.Forms.CheckBox() +Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() +Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() +Me.TxbVideoCHD = New System.Windows.Forms.TextBox() +Me.TxbVideoJOID = New System.Windows.Forms.TextBox() +Me.CBVideoJOID = New System.Windows.Forms.CheckBox() +Me.CBVideoCHD = New System.Windows.Forms.CheckBox() +Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() +Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() +Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() +Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() +Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() +Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() +Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() +Me.TxbVideoCH = New System.Windows.Forms.TextBox() +Me.TxbVideoJOI = New System.Windows.Forms.TextBox() +Me.CBVideoJOI = New System.Windows.Forms.CheckBox() +Me.CBVideoCH = New System.Windows.Forms.CheckBox() +Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() +Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() +Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() +Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() +Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() +Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() +Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() +Me.CBCustom2 = New System.Windows.Forms.CheckBox() +Me.GlitterSlider = New System.Windows.Forms.TrackBar() +Me.CBCustom1 = New System.Windows.Forms.CheckBox() +Me.CBDaily = New System.Windows.Forms.CheckBox() +Me.CBTrivia = New System.Windows.Forms.CheckBox() +Me.TBGlitterShortName = New System.Windows.Forms.TextBox() +Me.CBEgotist = New System.Windows.Forms.CheckBox() +Me.CBTease = New System.Windows.Forms.CheckBox() +Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() +Me.LBLGlitterNC1 = New System.Windows.Forms.Label() +Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() +Me.CBGlitter1 = New System.Windows.Forms.CheckBox() +Me.TBGlitter1 = New System.Windows.Forms.TextBox() +Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() +Me.LBLGlitterNC3 = New System.Windows.Forms.Label() +Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() +Me.CBGlitter3 = New System.Windows.Forms.CheckBox() +Me.TBGlitter3 = New System.Windows.Forms.TextBox() +Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() +Me.LBLGlitterNC2 = New System.Windows.Forms.Label() +Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() +Me.CBGlitter2 = New System.Windows.Forms.CheckBox() +Me.TBGlitter2 = New System.Windows.Forms.TextBox() +Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() +Me.GN6 = New System.Windows.Forms.TextBox() +Me.GP6 = New System.Windows.Forms.PictureBox() +Me.GN2 = New System.Windows.Forms.TextBox() +Me.GP2 = New System.Windows.Forms.PictureBox() +Me.GP5 = New System.Windows.Forms.PictureBox() +Me.GN1 = New System.Windows.Forms.TextBox() +Me.GP1 = New System.Windows.Forms.PictureBox() +Me.GN5 = New System.Windows.Forms.TextBox() +Me.GN3 = New System.Windows.Forms.TextBox() +Me.GP3 = New System.Windows.Forms.PictureBox() +Me.GP4 = New System.Windows.Forms.PictureBox() +Me.GN4 = New System.Windows.Forms.TextBox() +Me.CardBack = New System.Windows.Forms.PictureBox() +Me.BN6 = New System.Windows.Forms.TextBox() +Me.BN3 = New System.Windows.Forms.TextBox() +Me.BP3 = New System.Windows.Forms.PictureBox() +Me.BP6 = New System.Windows.Forms.PictureBox() +Me.BN2 = New System.Windows.Forms.TextBox() +Me.BN5 = New System.Windows.Forms.TextBox() +Me.BP5 = New System.Windows.Forms.PictureBox() +Me.BP2 = New System.Windows.Forms.PictureBox() +Me.BN1 = New System.Windows.Forms.TextBox() +Me.BN4 = New System.Windows.Forms.TextBox() +Me.BP4 = New System.Windows.Forms.PictureBox() +Me.BP1 = New System.Windows.Forms.PictureBox() +Me.SN6 = New System.Windows.Forms.TextBox() +Me.SP6 = New System.Windows.Forms.PictureBox() +Me.SN2 = New System.Windows.Forms.TextBox() +Me.SP2 = New System.Windows.Forms.PictureBox() +Me.SN1 = New System.Windows.Forms.TextBox() +Me.SP5 = New System.Windows.Forms.PictureBox() +Me.SP1 = New System.Windows.Forms.PictureBox() +Me.SN5 = New System.Windows.Forms.TextBox() +Me.SN3 = New System.Windows.Forms.TextBox() +Me.SN4 = New System.Windows.Forms.TextBox() +Me.SP3 = New System.Windows.Forms.PictureBox() +Me.SP4 = New System.Windows.Forms.PictureBox() +Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() +Me.LBLDateBackColor2 = New System.Windows.Forms.Label() +Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor2 = New System.Windows.Forms.Label() +Me.LBLBackColor2 = New System.Windows.Forms.Label() +Me.LBLChatTextColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor2 = New System.Windows.Forms.Label() +Me.TimedWriting = New System.Windows.Forms.CheckBox() +Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() +Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() +Me.CBCensorConstant = New System.Windows.Forms.CheckBox() +Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() +Me.SettingsPanel.SuspendLayout +Me.SettingsTabs.SuspendLayout +Me.TabPage1.SuspendLayout +Me.PNLGeneralSettings.SuspendLayout +Me.GroupBox3.SuspendLayout +Me.GroupBox2.SuspendLayout +Me.GroupBox64.SuspendLayout +Me.GBDommeImages.SuspendLayout +CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralTextToSpeech.SuspendLayout +CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBSafeword.SuspendLayout +Me.GBGeneralSystem.SuspendLayout +Me.GBGeneralImages.SuspendLayout +CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralSettings.SuspendLayout +Me.GBSubFont.SuspendLayout +CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDommeFont.SuspendLayout +CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage2.SuspendLayout +Me.Panel3.SuspendLayout +Me.GBGiveUp.SuspendLayout +CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomTypingStyle.SuspendLayout +CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox63.SuspendLayout +Me.GBDomRanges.SuspendLayout +CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomStats.SuspendLayout +CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomPersonality.SuspendLayout +Me.GBDomOrgasms.SuspendLayout CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).BeginInit Me.GBDomPetNames.SuspendLayout Me.TabPage10.SuspendLayout @@ -1249,43 +1251,21 @@ Me.TabPage20.SuspendLayout Me.TabControl1.SuspendLayout Me.TabPage22.SuspendLayout Me.PNLGlitter.SuspendLayout +Me.GroupBox4.SuspendLayout Me.GBGlitterD.SuspendLayout Me.GrbGlitterfeed.SuspendLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter1.SuspendLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter3.SuspendLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter2.SuspendLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit Me.TpGames.SuspendLayout Me.GbxCardsGold.SuspendLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBackground.SuspendLayout -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBronze.SuspendLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsSilver.SuspendLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage6.SuspendLayout Me.Panel10.SuspendLayout CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit @@ -1304,21 +1284,10 @@ CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage4.SuspendLayout Me.Panel6.SuspendLayout Me.GroupBox69.SuspendLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox68.SuspendLayout CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox67.SuspendLayout -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox10.SuspendLayout CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox57.SuspendLayout @@ -1340,10 +1309,6 @@ CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox18.SuspendLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.GBRangeOrgasmChance.SuspendLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit @@ -1385,7 +1350,45 @@ Me.GroupBox12.SuspendLayout Me.GroupBox65.SuspendLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox4.SuspendLayout +Me.GroupBox8.SuspendLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' 'SettingsPanel @@ -1521,18 +1524,6 @@ Me.BtnRandomImageDir.TabIndex = 182 Me.BtnRandomImageDir.Text = "Set Random Domme Directory" Me.BtnRandomImageDir.UseVisualStyleBackColor = false ' -'BtnRandomImageDirClear -' -Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) -Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" -Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnRandomImageDirClear.TabIndex = 181 -Me.BtnRandomImageDirClear.Text = "Clear" -Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false -' 'BtnImportSettings ' Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent @@ -1574,20 +1565,6 @@ Me.GroupBox64.TabIndex = 157 Me.GroupBox64.TabStop = false Me.GroupBox64.Text = "Media Options" ' -'CBMuteMedia -' -Me.CBMuteMedia.AutoSize = true -Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia -Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black -Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) -Me.CBMuteMedia.Name = "CBMuteMedia" -Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) -Me.CBMuteMedia.TabIndex = 6 -Me.CBMuteMedia.TabStop = false -Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" -Me.CBMuteMedia.UseVisualStyleBackColor = true -' 'GBDommeImages ' Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray @@ -1682,20 +1659,6 @@ Me.timedRadio.Size = New System.Drawing.Size(14, 13) Me.timedRadio.TabIndex = 19 Me.timedRadio.UseVisualStyleBackColor = true ' -'TbxDomImageDir -' -Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) -Me.TbxDomImageDir.Name = "TbxDomImageDir" -Me.TbxDomImageDir.ReadOnly = true -Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxDomImageDir.TabIndex = 0 -Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir -' 'GBGeneralTextToSpeech ' Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray @@ -2047,20 +2010,6 @@ Me.BTNSubColor.TabIndex = 8 Me.BTNSubColor.Text = "Sub Name Color" Me.BTNSubColor.UseVisualStyleBackColor = false ' -'LBLSubColor -' -Me.LBLSubColor.BackColor = System.Drawing.Color.White -Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor -Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) -Me.LBLSubColor.Name = "LBLSubColor" -Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) -Me.LBLSubColor.TabIndex = 0 -Me.LBLSubColor.Text = "Preview" -Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' 'NBFontSize ' Me.NBFontSize.BackColor = System.Drawing.Color.White @@ -2120,20 +2069,6 @@ Me.BTNDomColor.TabIndex = 5 Me.BTNDomColor.Text = "Domme Name Color" Me.BTNDomColor.UseVisualStyleBackColor = false ' -'LBLDomColor -' -Me.LBLDomColor.BackColor = System.Drawing.Color.White -Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor -Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) -Me.LBLDomColor.Name = "LBLDomColor" -Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) -Me.LBLDomColor.TabIndex = 0 -Me.LBLDomColor.Text = "Preview" -Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' 'FontComboBoxD ' Me.FontComboBoxD.FormattingEnabled = true @@ -3167,19 +3102,6 @@ Me.GBDomOrgasms.TabIndex = 132 Me.GBDomOrgasms.TabStop = false Me.GBDomOrgasms.Text = "Orgasms" ' -'CBLockOrgasmChances -' -Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances -Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black -Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) -Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" -Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) -Me.CBLockOrgasmChances.TabIndex = 146 -Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" -Me.CBLockOrgasmChances.UseVisualStyleBackColor = true -' 'orgasmlockrandombutton ' Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray @@ -5002,9987 +4924,10093 @@ Me.BtnImageUrlSoftcore.TabIndex = 5 Me.BtnImageUrlSoftcore.Text = "1" Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false ' -'ChbImageUrlHardcore +'GbxImagesGenre ' -Me.ChbImageUrlHardcore.AutoSize = true -Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled -Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) -Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" -Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHardcore.TabIndex = 0 -Me.ChbImageUrlHardcore.Text = "Hardcore" -Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true +Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) +Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) +Me.GbxImagesGenre.Name = "GbxImagesGenre" +Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) +Me.GbxImagesGenre.TabIndex = 0 +Me.GbxImagesGenre.TabStop = false +Me.GbxImagesGenre.Text = "Local Images" ' -'ChbImageUrlButts +'TableLayoutPanel1 ' -Me.ChbImageUrlButts.AutoSize = true -Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled -Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) -Me.ChbImageUrlButts.Name = "ChbImageUrlButts" -Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) -Me.ChbImageUrlButts.TabIndex = 37 -Me.ChbImageUrlButts.Text = "Butts" -Me.ChbImageUrlButts.UseVisualStyleBackColor = true +Me.TableLayoutPanel1.ColumnCount = 4 +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) +Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) +Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) +Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) +Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill +Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize +Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) +Me.TableLayoutPanel1.Name = "TableLayoutPanel1" +Me.TableLayoutPanel1.RowCount = 13 +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) +Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) +Me.TableLayoutPanel1.TabIndex = 0 ' -'ChbImageUrlMaledom +'BTNIHardcore ' -Me.ChbImageUrlMaledom.AutoSize = true -Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled -Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) -Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" -Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlMaledom.TabIndex = 25 -Me.ChbImageUrlMaledom.Text = "Maledom" -Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true +Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray +Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black +Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) +Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHardcore.Name = "BTNIHardcore" +Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) +Me.BTNIHardcore.TabIndex = 1 +Me.BTNIHardcore.Text = "1" +Me.BTNIHardcore.UseVisualStyleBackColor = false ' -'ChbImageUrlGay +'BTNISoftcore ' -Me.ChbImageUrlGay.AutoSize = true -Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled -Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) -Me.ChbImageUrlGay.Name = "ChbImageUrlGay" -Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGay.TabIndex = 22 -Me.ChbImageUrlGay.Text = "Gay" -Me.ChbImageUrlGay.UseVisualStyleBackColor = true +Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray +Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black +Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) +Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNISoftcore.Name = "BTNISoftcore" +Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) +Me.BTNISoftcore.TabIndex = 5 +Me.BTNISoftcore.Text = "1" +Me.BTNISoftcore.UseVisualStyleBackColor = false ' -'ChbImageUrlSoftcore +'BTNILesbian ' -Me.ChbImageUrlSoftcore.AutoSize = true -Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled -Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) -Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" -Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlSoftcore.TabIndex = 4 -Me.ChbImageUrlSoftcore.Text = "Softcore" -Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true +Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILesbian.ForeColor = System.Drawing.Color.Black +Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) +Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILesbian.Name = "BTNILesbian" +Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNILesbian.TabIndex = 9 +Me.BTNILesbian.Text = "1" +Me.BTNILesbian.UseVisualStyleBackColor = false ' -'ChbImageUrlBoobs +'BTNButtPath ' -Me.ChbImageUrlBoobs.AutoSize = true -Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled -Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) -Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" -Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBoobs.TabIndex = 34 -Me.ChbImageUrlBoobs.Text = "Boobs" -Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true +Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray +Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNButtPath.ForeColor = System.Drawing.Color.Black +Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) +Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNButtPath.Name = "BTNButtPath" +Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) +Me.BTNButtPath.TabIndex = 49 +Me.BTNButtPath.Text = "1" +Me.BTNButtPath.UseVisualStyleBackColor = false ' -'ChbImageUrlLesbian +'BTNIBlowjob ' -Me.ChbImageUrlLesbian.AutoSize = true -Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled -Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) -Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" -Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLesbian.TabIndex = 7 -Me.ChbImageUrlLesbian.Text = "Lesbian" -Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true +Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIBlowjob.Name = "BTNIBlowjob" +Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNIBlowjob.TabIndex = 13 +Me.BTNIBlowjob.Text = "1" +Me.BTNIBlowjob.UseVisualStyleBackColor = false ' -'ChbImageUrlBlowjob +'BTNIFemdom ' -Me.ChbImageUrlBlowjob.AutoSize = true -Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled -Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) -Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" -Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBlowjob.TabIndex = 10 -Me.ChbImageUrlBlowjob.Text = "Blowjob" -Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true +Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray +Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black +Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) +Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIFemdom.Name = "BTNIFemdom" +Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) +Me.BTNIFemdom.TabIndex = 17 +Me.BTNIFemdom.Text = "1" +Me.BTNIFemdom.UseVisualStyleBackColor = false ' -'ChbImageUrlCaptions +'BTNBoobPath ' -Me.ChbImageUrlCaptions.AutoSize = true -Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled -Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) -Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" -Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlCaptions.TabIndex = 28 -Me.ChbImageUrlCaptions.Text = "Captions" -Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true +Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray +Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black +Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) +Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNBoobPath.Name = "BTNBoobPath" +Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) +Me.BTNBoobPath.TabIndex = 45 +Me.BTNBoobPath.Text = "1" +Me.BTNBoobPath.UseVisualStyleBackColor = false ' -'ChbImageUrlGeneral +'BTNILezdom ' -Me.ChbImageUrlGeneral.AutoSize = true -Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled -Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) -Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" -Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGeneral.TabIndex = 31 -Me.ChbImageUrlGeneral.Text = "General" -Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true +Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray +Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILezdom.ForeColor = System.Drawing.Color.Black +Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) +Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILezdom.Name = "BTNILezdom" +Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) +Me.BTNILezdom.TabIndex = 21 +Me.BTNILezdom.Text = "1" +Me.BTNILezdom.UseVisualStyleBackColor = false ' -'ChbImageUrlFemdom +'BTNIHentai ' -Me.ChbImageUrlFemdom.AutoSize = true -Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled -Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) -Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" -Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlFemdom.TabIndex = 13 -Me.ChbImageUrlFemdom.Text = "Femdom" -Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true +Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray +Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHentai.ForeColor = System.Drawing.Color.Black +Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) +Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHentai.Name = "BTNIHentai" +Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) +Me.BTNIHentai.TabIndex = 25 +Me.BTNIHentai.Text = "1" +Me.BTNIHentai.UseVisualStyleBackColor = false ' -'ChbImageUrlHentai +'BTNIGay ' -Me.ChbImageUrlHentai.AutoSize = true -Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled -Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) -Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" -Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHentai.TabIndex = 19 -Me.ChbImageUrlHentai.Text = "Hentai" -Me.ChbImageUrlHentai.UseVisualStyleBackColor = true +Me.BTNIGay.BackColor = System.Drawing.Color.LightGray +Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGay.ForeColor = System.Drawing.Color.Black +Me.BTNIGay.Location = New System.Drawing.Point(76, 203) +Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGay.Name = "BTNIGay" +Me.BTNIGay.Size = New System.Drawing.Size(34, 28) +Me.BTNIGay.TabIndex = 29 +Me.BTNIGay.Text = "1" +Me.BTNIGay.UseVisualStyleBackColor = false ' -'ChbImageUrlLezdom +'BTNIMaledom ' -Me.ChbImageUrlLezdom.AutoSize = true -Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled -Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) -Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" -Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLezdom.TabIndex = 16 -Me.ChbImageUrlLezdom.Text = "Lezdom" -Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true +Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray +Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black +Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) +Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIMaledom.Name = "BTNIMaledom" +Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) +Me.BTNIMaledom.TabIndex = 33 +Me.BTNIMaledom.Text = "1" +Me.BTNIMaledom.UseVisualStyleBackColor = false ' -'TxbImageUrlBlowjob +'BTNICaptions ' -Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" -Me.TxbImageUrlBlowjob.ReadOnly = true -Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.TabIndex = 12 -Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob -' -'TxbImageUrlSoftcore -' -Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) -Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" -Me.TxbImageUrlSoftcore.ReadOnly = true -Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.TabIndex = 6 -Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore -' -'TxbImageUrlLezdom -' -Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) -Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" -Me.TxbImageUrlLezdom.ReadOnly = true -Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.TabIndex = 18 -Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom -' -'TxbImageUrlFemdom -' -Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) -Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" -Me.TxbImageUrlFemdom.ReadOnly = true -Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.TabIndex = 15 -Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom -' -'TxbImageUrlHardcore -' -Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) -Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" -Me.TxbImageUrlHardcore.ReadOnly = true -Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.TabIndex = 3 -Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore -' -'TxbImageUrlHentai -' -Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) -Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" -Me.TxbImageUrlHentai.ReadOnly = true -Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.TabIndex = 21 -Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai -' -'TxbImageUrlGay -' -Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) -Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.Name = "TxbImageUrlGay" -Me.TxbImageUrlGay.ReadOnly = true -Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.TabIndex = 24 -Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay -' -'TxbImageUrlLesbian -' -Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) -Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" -Me.TxbImageUrlLesbian.ReadOnly = true -Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.TabIndex = 9 -Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian -' -'TxbImageUrlMaledom -' -Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) -Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" -Me.TxbImageUrlMaledom.ReadOnly = true -Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.TabIndex = 27 -Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom -' -'TxbImageUrlCaptions -' -Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) -Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" -Me.TxbImageUrlCaptions.ReadOnly = true -Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.TabIndex = 30 -Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions -' -'TxbImageUrlGeneral -' -Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) -Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" -Me.TxbImageUrlGeneral.ReadOnly = true -Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.TabIndex = 33 -Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral -' -'TxbImageUrlBoobs -' -Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) -Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" -Me.TxbImageUrlBoobs.ReadOnly = true -Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.TabIndex = 36 -Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs -' -'TxbImageUrlButts -' -Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) -Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.Name = "TxbImageUrlButts" -Me.TxbImageUrlButts.ReadOnly = true -Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.TabIndex = 39 -Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt -' -'GbxImagesGenre -' -Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) -Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) -Me.GbxImagesGenre.Name = "GbxImagesGenre" -Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) -Me.GbxImagesGenre.TabIndex = 0 -Me.GbxImagesGenre.TabStop = false -Me.GbxImagesGenre.Text = "Local Images" -' -'TableLayoutPanel1 -' -Me.TableLayoutPanel1.ColumnCount = 4 -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) -Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) -Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) -Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) -Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill -Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize -Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) -Me.TableLayoutPanel1.Name = "TableLayoutPanel1" -Me.TableLayoutPanel1.RowCount = 13 -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) -Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) -Me.TableLayoutPanel1.TabIndex = 0 -' -'BTNIHardcore -' -Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray -Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black -Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) -Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHardcore.Name = "BTNIHardcore" -Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) -Me.BTNIHardcore.TabIndex = 1 -Me.BTNIHardcore.Text = "1" -Me.BTNIHardcore.UseVisualStyleBackColor = false -' -'TbxIHardcore -' -Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray -Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black -Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) -Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.Name = "TbxIHardcore" -Me.TbxIHardcore.ReadOnly = true -Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.TabIndex = 2 -Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore -' -'CBIHardcoreSD -' -Me.CBIHardcoreSD.AutoSize = true -Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD -Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) -Me.CBIHardcoreSD.Name = "CBIHardcoreSD" -Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHardcoreSD.TabIndex = 3 -Me.CBIHardcoreSD.UseVisualStyleBackColor = true -' -'CBIHardcore -' -Me.CBIHardcore.AutoSize = true -Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore -Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcore.ForeColor = System.Drawing.Color.Black -Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) -Me.CBIHardcore.Name = "CBIHardcore" -Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) -Me.CBIHardcore.TabIndex = 0 -Me.CBIHardcore.Text = "Hardcore" -Me.CBIHardcore.UseVisualStyleBackColor = true -' -'CBISoftcore -' -Me.CBISoftcore.AutoSize = true -Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore -Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcore.ForeColor = System.Drawing.Color.Black -Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) -Me.CBISoftcore.Name = "CBISoftcore" -Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) -Me.CBISoftcore.TabIndex = 4 -Me.CBISoftcore.Text = "Softcore" -Me.CBISoftcore.UseVisualStyleBackColor = true -' -'TbxISoftcore -' -Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray -Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black -Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) -Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.Name = "TbxISoftcore" -Me.TbxISoftcore.ReadOnly = true -Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.TabIndex = 6 -Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore -' -'CBButtSubDir -' -Me.CBButtSubDir.AutoSize = true -Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir -Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black -Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) -Me.CBButtSubDir.Name = "CBButtSubDir" -Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) -Me.CBButtSubDir.TabIndex = 51 -Me.CBButtSubDir.UseVisualStyleBackColor = true -' -'CBISoftcoreSD -' -Me.CBISoftcoreSD.AutoSize = true -Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD -Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) -Me.CBISoftcoreSD.Name = "CBISoftcoreSD" -Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBISoftcoreSD.TabIndex = 7 -Me.CBISoftcoreSD.UseVisualStyleBackColor = true -' -'CBBoobSubDir +Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray +Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNICaptions.ForeColor = System.Drawing.Color.Black +Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) +Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNICaptions.Name = "BTNICaptions" +Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) +Me.BTNICaptions.TabIndex = 37 +Me.BTNICaptions.Text = "1" +Me.BTNICaptions.UseVisualStyleBackColor = false ' -Me.CBBoobSubDir.AutoSize = true -Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir -Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black -Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) -Me.CBBoobSubDir.Name = "CBBoobSubDir" -Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) -Me.CBBoobSubDir.TabIndex = 47 -Me.CBBoobSubDir.UseVisualStyleBackColor = true +'BTNIGeneral ' -'CBILezdomSD +Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) +Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGeneral.Name = "BTNIGeneral" +Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNIGeneral.TabIndex = 41 +Me.BTNIGeneral.Text = "1" +Me.BTNIGeneral.UseVisualStyleBackColor = false ' -Me.CBILezdomSD.AutoSize = true -Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD -Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black -Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) -Me.CBILezdomSD.Name = "CBILezdomSD" -Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBILezdomSD.TabIndex = 23 -Me.CBILezdomSD.UseVisualStyleBackColor = true +'TabPage33 ' -'CBIGeneralSD +Me.TabPage33.BackColor = System.Drawing.Color.Silver +Me.TabPage33.Controls.Add(Me.TabControl5) +Me.TabPage33.Location = New System.Drawing.Point(4, 22) +Me.TabPage33.Name = "TabPage33" +Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage33.Size = New System.Drawing.Size(720, 448) +Me.TabPage33.TabIndex = 21 +Me.TabPage33.Text = "Tagging" ' -Me.CBIGeneralSD.AutoSize = true -Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD -Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black -Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) -Me.CBIGeneralSD.Name = "CBIGeneralSD" -Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) -Me.CBIGeneralSD.TabIndex = 43 -Me.CBIGeneralSD.UseVisualStyleBackColor = true +'TabControl5 ' -'CBILesbianSD +Me.TabControl5.Controls.Add(Me.TabPage34) +Me.TabControl5.Controls.Add(Me.TabPage35) +Me.TabControl5.Location = New System.Drawing.Point(6, 6) +Me.TabControl5.Name = "TabControl5" +Me.TabControl5.SelectedIndex = 0 +Me.TabControl5.Size = New System.Drawing.Size(708, 437) +Me.TabControl5.TabIndex = 0 ' -Me.CBILesbianSD.AutoSize = true -Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD -Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black -Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) -Me.CBILesbianSD.Name = "CBILesbianSD" -Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) -Me.CBILesbianSD.TabIndex = 11 -Me.CBILesbianSD.UseVisualStyleBackColor = true +'TabPage34 ' -'CBICaptionsSD +Me.TabPage34.BackColor = System.Drawing.Color.LightGray +Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) +Me.TabPage34.Controls.Add(Me.CBTagAllFours) +Me.TabPage34.Controls.Add(Me.CBTagGlaring) +Me.TabPage34.Controls.Add(Me.CBTagSmiling) +Me.TabPage34.Controls.Add(Me.TBTagDir) +Me.TabPage34.Controls.Add(Me.CBTagPiercing) +Me.TabPage34.Controls.Add(Me.CBTagLegs) +Me.TabPage34.Controls.Add(Me.TBTagFurniture) +Me.TabPage34.Controls.Add(Me.CBTagFurniture) +Me.TabPage34.Controls.Add(Me.TBTagSexToy) +Me.TabPage34.Controls.Add(Me.CBTagSexToy) +Me.TabPage34.Controls.Add(Me.TBTagTattoo) +Me.TabPage34.Controls.Add(Me.CBTagTattoo) +Me.TabPage34.Controls.Add(Me.TBTagUnderwear) +Me.TabPage34.Controls.Add(Me.CBTagUnderwear) +Me.TabPage34.Controls.Add(Me.TBTagGarment) +Me.TabPage34.Controls.Add(Me.CBTagGarment) +Me.TabPage34.Controls.Add(Me.Label72) +Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) +Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) +Me.TabPage34.Controls.Add(Me.CBTagCloseUp) +Me.TabPage34.Controls.Add(Me.CBTagNaked) +Me.TabPage34.Controls.Add(Me.CBTagSideView) +Me.TabPage34.Controls.Add(Me.BTNTagPrevious) +Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) +Me.TabPage34.Controls.Add(Me.BTNTagNext) +Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) +Me.TabPage34.Controls.Add(Me.LBLTagCount) +Me.TabPage34.Controls.Add(Me.CBTagSucking) +Me.TabPage34.Controls.Add(Me.CBTagMasturbating) +Me.TabPage34.Controls.Add(Me.CBTagFeet) +Me.TabPage34.Controls.Add(Me.CBTagBoobs) +Me.TabPage34.Controls.Add(Me.CBTagAss) +Me.TabPage34.Controls.Add(Me.CBTagPussy) +Me.TabPage34.Controls.Add(Me.BTNTagSave) +Me.TabPage34.Controls.Add(Me.BTNTagDir) +Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) +Me.TabPage34.Controls.Add(Me.CBTagFace) +Me.TabPage34.Location = New System.Drawing.Point(4, 22) +Me.TabPage34.Name = "TabPage34" +Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage34.Size = New System.Drawing.Size(700, 411) +Me.TabPage34.TabIndex = 0 +Me.TabPage34.Text = "Domme Tags" ' -Me.CBICaptionsSD.AutoSize = true -Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD -Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black -Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) -Me.CBICaptionsSD.Name = "CBICaptionsSD" -Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) -Me.CBICaptionsSD.TabIndex = 39 -Me.CBICaptionsSD.UseVisualStyleBackColor = true +'CBTagSeeThrough ' -'CBILesbian +Me.CBTagSeeThrough.AutoSize = true +Me.CBTagSeeThrough.Enabled = false +Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) +Me.CBTagSeeThrough.Name = "CBTagSeeThrough" +Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) +Me.CBTagSeeThrough.TabIndex = 226 +Me.CBTagSeeThrough.Text = "See Through" +Me.CBTagSeeThrough.UseVisualStyleBackColor = true ' -Me.CBILesbian.AutoSize = true -Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian -Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbian.ForeColor = System.Drawing.Color.Black -Me.CBILesbian.Location = New System.Drawing.Point(3, 61) -Me.CBILesbian.Name = "CBILesbian" -Me.CBILesbian.Size = New System.Drawing.Size(70, 23) -Me.CBILesbian.TabIndex = 8 -Me.CBILesbian.Text = "Lesbian" -Me.CBILesbian.UseVisualStyleBackColor = true +'CBTagAllFours ' -'CBIMaledomSD +Me.CBTagAllFours.AutoSize = true +Me.CBTagAllFours.Enabled = false +Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black +Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) +Me.CBTagAllFours.Name = "CBTagAllFours" +Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) +Me.CBTagAllFours.TabIndex = 225 +Me.CBTagAllFours.Text = "All Fours" +Me.CBTagAllFours.UseVisualStyleBackColor = true ' -Me.CBIMaledomSD.AutoSize = true -Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD -Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black -Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) -Me.CBIMaledomSD.Name = "CBIMaledomSD" -Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIMaledomSD.TabIndex = 35 -Me.CBIMaledomSD.UseVisualStyleBackColor = true +'CBTagGlaring ' -'CBIBlowjob +Me.CBTagGlaring.AutoSize = true +Me.CBTagGlaring.Enabled = false +Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black +Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) +Me.CBTagGlaring.Name = "CBTagGlaring" +Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) +Me.CBTagGlaring.TabIndex = 224 +Me.CBTagGlaring.Text = "Glaring" +Me.CBTagGlaring.UseVisualStyleBackColor = true ' -Me.CBIBlowjob.AutoSize = true -Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob -Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) -Me.CBIBlowjob.Name = "CBIBlowjob" -Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) -Me.CBIBlowjob.TabIndex = 12 -Me.CBIBlowjob.Text = "Blowjob" -Me.CBIBlowjob.UseVisualStyleBackColor = true +'CBTagSmiling ' -'CBIGaySD +Me.CBTagSmiling.AutoSize = true +Me.CBTagSmiling.Enabled = false +Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black +Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) +Me.CBTagSmiling.Name = "CBTagSmiling" +Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) +Me.CBTagSmiling.TabIndex = 223 +Me.CBTagSmiling.Text = "Smiling" +Me.CBTagSmiling.UseVisualStyleBackColor = true ' -Me.CBIGaySD.AutoSize = true -Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD -Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGaySD.ForeColor = System.Drawing.Color.Black -Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) -Me.CBIGaySD.Name = "CBIGaySD" -Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) -Me.CBIGaySD.TabIndex = 31 -Me.CBIGaySD.UseVisualStyleBackColor = true +'TBTagDir ' -'CBIHentaiSD +Me.TBTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBTagDir.Name = "TBTagDir" +Me.TBTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBTagDir.TabIndex = 222 +Me.TBTagDir.Text = "Enter Image Directory" ' -Me.CBIHentaiSD.AutoSize = true -Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD -Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black -Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) -Me.CBIHentaiSD.Name = "CBIHentaiSD" -Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHentaiSD.TabIndex = 27 -Me.CBIHentaiSD.UseVisualStyleBackColor = true +'CBTagPiercing ' -'CBIBlowjobSD +Me.CBTagPiercing.AutoSize = true +Me.CBTagPiercing.Enabled = false +Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black +Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) +Me.CBTagPiercing.Name = "CBTagPiercing" +Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) +Me.CBTagPiercing.TabIndex = 221 +Me.CBTagPiercing.Text = "Piercing" +Me.CBTagPiercing.UseVisualStyleBackColor = true ' -Me.CBIBlowjobSD.AutoSize = true -Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD -Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) -Me.CBIBlowjobSD.Name = "CBIBlowjobSD" -Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) -Me.CBIBlowjobSD.TabIndex = 15 -Me.CBIBlowjobSD.UseVisualStyleBackColor = true +'CBTagLegs ' -'CBIFemdomSD +Me.CBTagLegs.AutoSize = true +Me.CBTagLegs.Enabled = false +Me.CBTagLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) +Me.CBTagLegs.Name = "CBTagLegs" +Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagLegs.TabIndex = 220 +Me.CBTagLegs.Text = "Legs" +Me.CBTagLegs.UseVisualStyleBackColor = true ' -Me.CBIFemdomSD.AutoSize = true -Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD -Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black -Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) -Me.CBIFemdomSD.Name = "CBIFemdomSD" -Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIFemdomSD.TabIndex = 19 -Me.CBIFemdomSD.UseVisualStyleBackColor = true +'TBTagFurniture ' -'TbxIButts +Me.TBTagFurniture.Enabled = false +Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) +Me.TBTagFurniture.Name = "TBTagFurniture" +Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) +Me.TBTagFurniture.TabIndex = 219 ' -Me.TbxIButts.BackColor = System.Drawing.Color.LightGray -Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIButts.ForeColor = System.Drawing.Color.Black -Me.TbxIButts.Location = New System.Drawing.Point(115, 353) -Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIButts.Name = "TbxIButts" -Me.TbxIButts.ReadOnly = true -Me.TbxIButts.Size = New System.Drawing.Size(217, 17) -Me.TbxIButts.TabIndex = 50 -Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath +'CBTagFurniture +' +Me.CBTagFurniture.AutoSize = true +Me.CBTagFurniture.Enabled = false +Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black +Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) +Me.CBTagFurniture.Name = "CBTagFurniture" +Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) +Me.CBTagFurniture.TabIndex = 218 +Me.CBTagFurniture.Text = "Furniture" +Me.CBTagFurniture.UseVisualStyleBackColor = true ' -'CBIFemdom +'TBTagSexToy ' -Me.CBIFemdom.AutoSize = true -Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom -Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdom.ForeColor = System.Drawing.Color.Black -Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) -Me.CBIFemdom.Name = "CBIFemdom" -Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) -Me.CBIFemdom.TabIndex = 16 -Me.CBIFemdom.Text = "Femdom" -Me.CBIFemdom.UseVisualStyleBackColor = true +Me.TBTagSexToy.Enabled = false +Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) +Me.TBTagSexToy.Name = "TBTagSexToy" +Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) +Me.TBTagSexToy.TabIndex = 217 ' -'TbxILesbian +'CBTagSexToy ' -Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray -Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILesbian.ForeColor = System.Drawing.Color.Black -Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) -Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILesbian.Name = "TbxILesbian" -Me.TbxILesbian.ReadOnly = true -Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) -Me.TbxILesbian.TabIndex = 10 -Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian +Me.CBTagSexToy.AutoSize = true +Me.CBTagSexToy.Enabled = false +Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black +Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) +Me.CBTagSexToy.Name = "CBTagSexToy" +Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) +Me.CBTagSexToy.TabIndex = 216 +Me.CBTagSexToy.Text = "Sex Toy" +Me.CBTagSexToy.UseVisualStyleBackColor = true ' -'BTNISoftcore +'TBTagTattoo ' -Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray -Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black -Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) -Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNISoftcore.Name = "BTNISoftcore" -Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) -Me.BTNISoftcore.TabIndex = 5 -Me.BTNISoftcore.Text = "1" -Me.BTNISoftcore.UseVisualStyleBackColor = false +Me.TBTagTattoo.Enabled = false +Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) +Me.TBTagTattoo.Name = "TBTagTattoo" +Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) +Me.TBTagTattoo.TabIndex = 215 ' -'CBILezdom +'CBTagTattoo ' -Me.CBILezdom.AutoSize = true -Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom -Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdom.ForeColor = System.Drawing.Color.Black -Me.CBILezdom.Location = New System.Drawing.Point(3, 148) -Me.CBILezdom.Name = "CBILezdom" -Me.CBILezdom.Size = New System.Drawing.Size(70, 23) -Me.CBILezdom.TabIndex = 20 -Me.CBILezdom.Text = "Lezdom" -Me.CBILezdom.UseVisualStyleBackColor = true +Me.CBTagTattoo.AutoSize = true +Me.CBTagTattoo.Enabled = false +Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) +Me.CBTagTattoo.Name = "CBTagTattoo" +Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) +Me.CBTagTattoo.TabIndex = 214 +Me.CBTagTattoo.Text = "Tattoo" +Me.CBTagTattoo.UseVisualStyleBackColor = true ' -'TbxIBoobs +'TBTagUnderwear ' -Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray -Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black -Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) -Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.Name = "TbxIBoobs" -Me.TbxIBoobs.ReadOnly = true -Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.TabIndex = 46 -Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath +Me.TBTagUnderwear.Enabled = false +Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) +Me.TBTagUnderwear.Name = "TBTagUnderwear" +Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) +Me.TBTagUnderwear.TabIndex = 213 ' -'CBIHentai +'CBTagUnderwear ' -Me.CBIHentai.AutoSize = true -Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai -Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentai.ForeColor = System.Drawing.Color.Black -Me.CBIHentai.Location = New System.Drawing.Point(3, 177) -Me.CBIHentai.Name = "CBIHentai" -Me.CBIHentai.Size = New System.Drawing.Size(70, 23) -Me.CBIHentai.TabIndex = 24 -Me.CBIHentai.Text = "Hentai" -Me.CBIHentai.UseVisualStyleBackColor = true +Me.CBTagUnderwear.AutoSize = true +Me.CBTagUnderwear.Enabled = false +Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black +Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) +Me.CBTagUnderwear.Name = "CBTagUnderwear" +Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) +Me.CBTagUnderwear.TabIndex = 212 +Me.CBTagUnderwear.Text = "Underwear" +Me.CBTagUnderwear.UseVisualStyleBackColor = true ' -'TbxIBlowjob +'TBTagGarment ' -Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black -Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.Name = "TbxIBlowjob" -Me.TbxIBlowjob.ReadOnly = true -Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.TabIndex = 14 -Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob +Me.TBTagGarment.Enabled = false +Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) +Me.TBTagGarment.Name = "TBTagGarment" +Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) +Me.TBTagGarment.TabIndex = 211 ' -'CBIGay +'CBTagGarment ' -Me.CBIGay.AutoSize = true -Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay -Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGay.ForeColor = System.Drawing.Color.Black -Me.CBIGay.Location = New System.Drawing.Point(3, 206) -Me.CBIGay.Name = "CBIGay" -Me.CBIGay.Size = New System.Drawing.Size(70, 23) -Me.CBIGay.TabIndex = 28 -Me.CBIGay.Text = "Gay" -Me.CBIGay.UseVisualStyleBackColor = true +Me.CBTagGarment.AutoSize = true +Me.CBTagGarment.Enabled = false +Me.CBTagGarment.ForeColor = System.Drawing.Color.Black +Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) +Me.CBTagGarment.Name = "CBTagGarment" +Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) +Me.CBTagGarment.TabIndex = 210 +Me.CBTagGarment.Text = "Garment" +Me.CBTagGarment.UseVisualStyleBackColor = true ' -'TbxIGeneral +'Label72 ' -Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray -Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black -Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) -Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.Name = "TbxIGeneral" -Me.TbxIGeneral.ReadOnly = true -Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.TabIndex = 42 -Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral +Me.Label72.BackColor = System.Drawing.Color.Transparent +Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label72.ForeColor = System.Drawing.Color.Black +Me.Label72.Location = New System.Drawing.Point(5, 368) +Me.Label72.Name = "Label72" +Me.Label72.Size = New System.Drawing.Size(451, 35) +Me.Label72.TabIndex = 189 +Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ + "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ + "e.g. Garment: dress)" +Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBIMaledom +'CBTagHandsCovering ' -Me.CBIMaledom.AutoSize = true -Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom -Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledom.ForeColor = System.Drawing.Color.Black -Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) -Me.CBIMaledom.Name = "CBIMaledom" -Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) -Me.CBIMaledom.TabIndex = 32 -Me.CBIMaledom.Text = "Maledom" -Me.CBIMaledom.UseVisualStyleBackColor = true +Me.CBTagHandsCovering.AutoSize = true +Me.CBTagHandsCovering.Enabled = false +Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) +Me.CBTagHandsCovering.Name = "CBTagHandsCovering" +Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) +Me.CBTagHandsCovering.TabIndex = 209 +Me.CBTagHandsCovering.Text = "Hands Covering" +Me.CBTagHandsCovering.UseVisualStyleBackColor = true ' -'TbxIFemdom +'CBTagGarmentCovering ' -Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray -Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black -Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) -Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.Name = "TbxIFemdom" -Me.TbxIFemdom.ReadOnly = true -Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.TabIndex = 18 -Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom +Me.CBTagGarmentCovering.AutoSize = true +Me.CBTagGarmentCovering.Enabled = false +Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) +Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" +Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) +Me.CBTagGarmentCovering.TabIndex = 208 +Me.CBTagGarmentCovering.Text = "Garment Covering" +Me.CBTagGarmentCovering.UseVisualStyleBackColor = true +' +'CBTagCloseUp +' +Me.CBTagCloseUp.AutoSize = true +Me.CBTagCloseUp.Enabled = false +Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black +Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) +Me.CBTagCloseUp.Name = "CBTagCloseUp" +Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) +Me.CBTagCloseUp.TabIndex = 205 +Me.CBTagCloseUp.Text = "Close Up" +Me.CBTagCloseUp.UseVisualStyleBackColor = true +' +'CBTagNaked ' -'BTNILesbian +Me.CBTagNaked.AutoSize = true +Me.CBTagNaked.Enabled = false +Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) +Me.CBTagNaked.Name = "CBTagNaked" +Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) +Me.CBTagNaked.TabIndex = 199 +Me.CBTagNaked.Text = "Naked" +Me.CBTagNaked.UseVisualStyleBackColor = true ' -Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILesbian.ForeColor = System.Drawing.Color.Black -Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) -Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILesbian.Name = "BTNILesbian" -Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNILesbian.TabIndex = 9 -Me.BTNILesbian.Text = "1" -Me.BTNILesbian.UseVisualStyleBackColor = false +'CBTagSideView ' -'TbxICaptions +Me.CBTagSideView.AutoSize = true +Me.CBTagSideView.Enabled = false +Me.CBTagSideView.ForeColor = System.Drawing.Color.Black +Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) +Me.CBTagSideView.Name = "CBTagSideView" +Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) +Me.CBTagSideView.TabIndex = 204 +Me.CBTagSideView.Text = "Side View" +Me.CBTagSideView.UseVisualStyleBackColor = true ' -Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray -Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxICaptions.ForeColor = System.Drawing.Color.Black -Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) -Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxICaptions.Name = "TbxICaptions" -Me.TbxICaptions.ReadOnly = true -Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) -Me.TbxICaptions.TabIndex = 38 -Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions +'BTNTagPrevious ' -'CBICaptions +Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNTagPrevious.Enabled = false +Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNTagPrevious.Name = "BTNTagPrevious" +Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNTagPrevious.TabIndex = 207 +Me.BTNTagPrevious.Text = "<<" +Me.BTNTagPrevious.UseVisualStyleBackColor = false ' -Me.CBICaptions.AutoSize = true -Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions -Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptions.ForeColor = System.Drawing.Color.Black -Me.CBICaptions.Location = New System.Drawing.Point(3, 264) -Me.CBICaptions.Name = "CBICaptions" -Me.CBICaptions.Size = New System.Drawing.Size(70, 23) -Me.CBICaptions.TabIndex = 36 -Me.CBICaptions.Text = "Captions" -Me.CBICaptions.UseVisualStyleBackColor = true +'CBTagHalfDressed ' -'TbxILezdom +Me.CBTagHalfDressed.AutoSize = true +Me.CBTagHalfDressed.Enabled = false +Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) +Me.CBTagHalfDressed.Name = "CBTagHalfDressed" +Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) +Me.CBTagHalfDressed.TabIndex = 198 +Me.CBTagHalfDressed.Text = "Half Dressed" +Me.CBTagHalfDressed.UseVisualStyleBackColor = true ' -Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray -Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILezdom.ForeColor = System.Drawing.Color.Black -Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) -Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILezdom.Name = "TbxILezdom" -Me.TbxILezdom.ReadOnly = true -Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) -Me.TbxILezdom.TabIndex = 22 -Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom +'BTNTagNext ' -'TbxIMaledom +Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNTagNext.Enabled = false +Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNTagNext.Name = "BTNTagNext" +Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNTagNext.TabIndex = 206 +Me.BTNTagNext.Text = ">>" +Me.BTNTagNext.UseVisualStyleBackColor = false ' -Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray -Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black -Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) -Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.Name = "TbxIMaledom" -Me.TbxIMaledom.ReadOnly = true -Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.TabIndex = 34 -Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +'CBTagFullyDressed ' -'BTNButtPath +Me.CBTagFullyDressed.AutoSize = true +Me.CBTagFullyDressed.Enabled = false +Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) +Me.CBTagFullyDressed.Name = "CBTagFullyDressed" +Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) +Me.CBTagFullyDressed.TabIndex = 197 +Me.CBTagFullyDressed.Text = "Fully Dressed" +Me.CBTagFullyDressed.UseVisualStyleBackColor = true ' -Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray -Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNButtPath.ForeColor = System.Drawing.Color.Black -Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) -Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNButtPath.Name = "BTNButtPath" -Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) -Me.BTNButtPath.TabIndex = 49 -Me.BTNButtPath.Text = "1" -Me.BTNButtPath.UseVisualStyleBackColor = false +'LBLTagCount ' -'TbxIHentai +Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTagCount.Enabled = false +Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLTagCount.Name = "LBLTagCount" +Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLTagCount.TabIndex = 203 +Me.LBLTagCount.Text = "0/0" +Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray -Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHentai.ForeColor = System.Drawing.Color.Black -Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) -Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHentai.Name = "TbxIHentai" -Me.TbxIHentai.ReadOnly = true -Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) -Me.TbxIHentai.TabIndex = 26 -Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai +'CBTagSucking ' -'CBIGeneral +Me.CBTagSucking.AutoSize = true +Me.CBTagSucking.Enabled = false +Me.CBTagSucking.ForeColor = System.Drawing.Color.Black +Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) +Me.CBTagSucking.Name = "CBTagSucking" +Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) +Me.CBTagSucking.TabIndex = 202 +Me.CBTagSucking.Text = "Sucking" +Me.CBTagSucking.UseVisualStyleBackColor = true ' -Me.CBIGeneral.AutoSize = true -Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral -Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneral.ForeColor = System.Drawing.Color.Black -Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) -Me.CBIGeneral.Name = "CBIGeneral" -Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) -Me.CBIGeneral.TabIndex = 40 -Me.CBIGeneral.Text = "General" -Me.CBIGeneral.UseVisualStyleBackColor = true +'CBTagMasturbating ' -'TbxIGay +Me.CBTagMasturbating.AutoSize = true +Me.CBTagMasturbating.Enabled = false +Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) +Me.CBTagMasturbating.Name = "CBTagMasturbating" +Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbating.TabIndex = 201 +Me.CBTagMasturbating.Text = "Masturbating" +Me.CBTagMasturbating.UseVisualStyleBackColor = true ' -Me.TbxIGay.BackColor = System.Drawing.Color.LightGray -Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGay.ForeColor = System.Drawing.Color.Black -Me.TbxIGay.Location = New System.Drawing.Point(115, 208) -Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGay.Name = "TbxIGay" -Me.TbxIGay.ReadOnly = true -Me.TbxIGay.Size = New System.Drawing.Size(217, 17) -Me.TbxIGay.TabIndex = 30 -Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay +'CBTagFeet ' -'CBIBoobs +Me.CBTagFeet.AutoSize = true +Me.CBTagFeet.Enabled = false +Me.CBTagFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) +Me.CBTagFeet.Name = "CBTagFeet" +Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagFeet.TabIndex = 200 +Me.CBTagFeet.Text = "Feet" +Me.CBTagFeet.UseVisualStyleBackColor = true ' -Me.CBIBoobs.AutoSize = true -Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs -Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBoobs.ForeColor = System.Drawing.Color.Black -Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) -Me.CBIBoobs.Name = "CBIBoobs" -Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) -Me.CBIBoobs.TabIndex = 44 -Me.CBIBoobs.Text = "Boobs" -Me.CBIBoobs.UseVisualStyleBackColor = true +'CBTagBoobs +' +Me.CBTagBoobs.AutoSize = true +Me.CBTagBoobs.Enabled = false +Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black +Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) +Me.CBTagBoobs.Name = "CBTagBoobs" +Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) +Me.CBTagBoobs.TabIndex = 196 +Me.CBTagBoobs.Text = "Boobs" +Me.CBTagBoobs.UseVisualStyleBackColor = true +' +'CBTagAss +' +Me.CBTagAss.AutoSize = true +Me.CBTagAss.Enabled = false +Me.CBTagAss.ForeColor = System.Drawing.Color.Black +Me.CBTagAss.Location = New System.Drawing.Point(484, 97) +Me.CBTagAss.Name = "CBTagAss" +Me.CBTagAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagAss.TabIndex = 195 +Me.CBTagAss.Text = "Ass" +Me.CBTagAss.UseVisualStyleBackColor = true ' -'CBIButts +'CBTagPussy ' -Me.CBIButts.AutoSize = true -Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts -Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIButts.ForeColor = System.Drawing.Color.Black -Me.CBIButts.Location = New System.Drawing.Point(3, 351) -Me.CBIButts.Name = "CBIButts" -Me.CBIButts.Size = New System.Drawing.Size(70, 27) -Me.CBIButts.TabIndex = 48 -Me.CBIButts.Text = "Butts" -Me.CBIButts.UseVisualStyleBackColor = true +Me.CBTagPussy.AutoSize = true +Me.CBTagPussy.Enabled = false +Me.CBTagPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) +Me.CBTagPussy.Name = "CBTagPussy" +Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagPussy.TabIndex = 194 +Me.CBTagPussy.Text = "Pussy" +Me.CBTagPussy.UseVisualStyleBackColor = true ' -'BTNIBlowjob +'BTNTagSave ' -Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIBlowjob.Name = "BTNIBlowjob" -Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNIBlowjob.TabIndex = 13 -Me.BTNIBlowjob.Text = "1" -Me.BTNIBlowjob.UseVisualStyleBackColor = false +Me.BTNTagSave.Enabled = false +Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNTagSave.Name = "BTNTagSave" +Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNTagSave.TabIndex = 193 +Me.BTNTagSave.Text = "Finished" +Me.BTNTagSave.UseVisualStyleBackColor = true ' -'BTNIFemdom +'BTNTagDir ' -Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray -Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black -Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) -Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIFemdom.Name = "BTNIFemdom" -Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) -Me.BTNIFemdom.TabIndex = 17 -Me.BTNIFemdom.Text = "1" -Me.BTNIFemdom.UseVisualStyleBackColor = false +Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNTagDir.Name = "BTNTagDir" +Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNTagDir.TabIndex = 192 +Me.BTNTagDir.Text = "1" +Me.BTNTagDir.UseVisualStyleBackColor = true ' -'BTNBoobPath +'ImageTagPictureBox ' -Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray -Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black -Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) -Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNBoobPath.Name = "BTNBoobPath" -Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) -Me.BTNBoobPath.TabIndex = 45 -Me.BTNBoobPath.Text = "1" -Me.BTNBoobPath.UseVisualStyleBackColor = false +Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black +Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) +Me.ImageTagPictureBox.Name = "ImageTagPictureBox" +Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) +Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.ImageTagPictureBox.TabIndex = 191 +Me.ImageTagPictureBox.TabStop = false ' -'BTNILezdom +'CBTagFace ' -Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray -Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILezdom.ForeColor = System.Drawing.Color.Black -Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) -Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILezdom.Name = "BTNILezdom" -Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) -Me.BTNILezdom.TabIndex = 21 -Me.BTNILezdom.Text = "1" -Me.BTNILezdom.UseVisualStyleBackColor = false +Me.CBTagFace.AutoSize = true +Me.CBTagFace.Enabled = false +Me.CBTagFace.ForeColor = System.Drawing.Color.Black +Me.CBTagFace.Location = New System.Drawing.Point(484, 37) +Me.CBTagFace.Name = "CBTagFace" +Me.CBTagFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagFace.TabIndex = 190 +Me.CBTagFace.Text = "Face" +Me.CBTagFace.UseVisualStyleBackColor = true ' -'BTNIHentai +'TabPage35 ' -Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray -Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHentai.ForeColor = System.Drawing.Color.Black -Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) -Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHentai.Name = "BTNIHentai" -Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) -Me.BTNIHentai.TabIndex = 25 -Me.BTNIHentai.Text = "1" -Me.BTNIHentai.UseVisualStyleBackColor = false +Me.TabPage35.BackColor = System.Drawing.Color.LightGray +Me.TabPage35.Controls.Add(Me.GroupBox55) +Me.TabPage35.Controls.Add(Me.GroupBox53) +Me.TabPage35.Controls.Add(Me.GroupBox49) +Me.TabPage35.Controls.Add(Me.GroupBox46) +Me.TabPage35.Controls.Add(Me.GroupBox54) +Me.TabPage35.Controls.Add(Me.GroupBox51) +Me.TabPage35.Controls.Add(Me.GroupBox50) +Me.TabPage35.Controls.Add(Me.GroupBox48) +Me.TabPage35.Controls.Add(Me.TBLocalTagDir) +Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) +Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) +Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) +Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) +Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) +Me.TabPage35.Location = New System.Drawing.Point(4, 22) +Me.TabPage35.Name = "TabPage35" +Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage35.Size = New System.Drawing.Size(700, 411) +Me.TabPage35.TabIndex = 1 +Me.TabPage35.Text = "Local Tags" ' -'BTNIGay +'GroupBox55 ' -Me.BTNIGay.BackColor = System.Drawing.Color.LightGray -Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGay.ForeColor = System.Drawing.Color.Black -Me.BTNIGay.Location = New System.Drawing.Point(76, 203) -Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGay.Name = "BTNIGay" -Me.BTNIGay.Size = New System.Drawing.Size(34, 28) -Me.BTNIGay.TabIndex = 29 -Me.BTNIGay.Text = "1" -Me.BTNIGay.UseVisualStyleBackColor = false +Me.GroupBox55.Controls.Add(Me.CBTagNurse) +Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) +Me.GroupBox55.Controls.Add(Me.CBTagMaid) +Me.GroupBox55.Controls.Add(Me.CBTagTeacher) +Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) +Me.GroupBox55.Location = New System.Drawing.Point(341, 277) +Me.GroupBox55.Name = "GroupBox55" +Me.GroupBox55.Size = New System.Drawing.Size(103, 118) +Me.GroupBox55.TabIndex = 241 +Me.GroupBox55.TabStop = false +Me.GroupBox55.Text = "Outfit" ' -'BTNIMaledom +'CBTagNurse ' -Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray -Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black -Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) -Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIMaledom.Name = "BTNIMaledom" -Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) -Me.BTNIMaledom.TabIndex = 33 -Me.BTNIMaledom.Text = "1" -Me.BTNIMaledom.UseVisualStyleBackColor = false +Me.CBTagNurse.AutoSize = true +Me.CBTagNurse.Enabled = false +Me.CBTagNurse.ForeColor = System.Drawing.Color.Black +Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) +Me.CBTagNurse.Name = "CBTagNurse" +Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) +Me.CBTagNurse.TabIndex = 203 +Me.CBTagNurse.Text = "Nurse" +Me.CBTagNurse.UseVisualStyleBackColor = true ' -'BTNICaptions +'CBTagSchoolgirl ' -Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray -Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNICaptions.ForeColor = System.Drawing.Color.Black -Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) -Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNICaptions.Name = "BTNICaptions" -Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) -Me.BTNICaptions.TabIndex = 37 -Me.BTNICaptions.Text = "1" -Me.BTNICaptions.UseVisualStyleBackColor = false +Me.CBTagSchoolgirl.AutoSize = true +Me.CBTagSchoolgirl.Enabled = false +Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) +Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" +Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) +Me.CBTagSchoolgirl.TabIndex = 204 +Me.CBTagSchoolgirl.Text = "Schoolgirl" +Me.CBTagSchoolgirl.UseVisualStyleBackColor = true ' -'BTNIGeneral +'CBTagMaid ' -Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) -Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGeneral.Name = "BTNIGeneral" -Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNIGeneral.TabIndex = 41 -Me.BTNIGeneral.Text = "1" -Me.BTNIGeneral.UseVisualStyleBackColor = false +Me.CBTagMaid.AutoSize = true +Me.CBTagMaid.Enabled = false +Me.CBTagMaid.ForeColor = System.Drawing.Color.Black +Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) +Me.CBTagMaid.Name = "CBTagMaid" +Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) +Me.CBTagMaid.TabIndex = 205 +Me.CBTagMaid.Text = "Maid" +Me.CBTagMaid.UseVisualStyleBackColor = true ' -'TabPage33 +'CBTagTeacher ' -Me.TabPage33.BackColor = System.Drawing.Color.Silver -Me.TabPage33.Controls.Add(Me.TabControl5) -Me.TabPage33.Location = New System.Drawing.Point(4, 22) -Me.TabPage33.Name = "TabPage33" -Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage33.Size = New System.Drawing.Size(720, 448) -Me.TabPage33.TabIndex = 21 -Me.TabPage33.Text = "Tagging" +Me.CBTagTeacher.AutoSize = true +Me.CBTagTeacher.Enabled = false +Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black +Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) +Me.CBTagTeacher.Name = "CBTagTeacher" +Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) +Me.CBTagTeacher.TabIndex = 206 +Me.CBTagTeacher.Text = "Teacher" +Me.CBTagTeacher.UseVisualStyleBackColor = true ' -'TabControl5 +'CBTagSuperhero ' -Me.TabControl5.Controls.Add(Me.TabPage34) -Me.TabControl5.Controls.Add(Me.TabPage35) -Me.TabControl5.Location = New System.Drawing.Point(6, 6) -Me.TabControl5.Name = "TabControl5" -Me.TabControl5.SelectedIndex = 0 -Me.TabControl5.Size = New System.Drawing.Size(708, 437) -Me.TabControl5.TabIndex = 0 +Me.CBTagSuperhero.AutoSize = true +Me.CBTagSuperhero.Enabled = false +Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black +Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) +Me.CBTagSuperhero.Name = "CBTagSuperhero" +Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) +Me.CBTagSuperhero.TabIndex = 213 +Me.CBTagSuperhero.Text = "Superhero" +Me.CBTagSuperhero.UseVisualStyleBackColor = true ' -'TabPage34 +'GroupBox53 ' -Me.TabPage34.BackColor = System.Drawing.Color.LightGray -Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) -Me.TabPage34.Controls.Add(Me.CBTagAllFours) -Me.TabPage34.Controls.Add(Me.CBTagGlaring) -Me.TabPage34.Controls.Add(Me.CBTagSmiling) -Me.TabPage34.Controls.Add(Me.TBTagDir) -Me.TabPage34.Controls.Add(Me.CBTagPiercing) -Me.TabPage34.Controls.Add(Me.CBTagLegs) -Me.TabPage34.Controls.Add(Me.TBTagFurniture) -Me.TabPage34.Controls.Add(Me.CBTagFurniture) -Me.TabPage34.Controls.Add(Me.TBTagSexToy) -Me.TabPage34.Controls.Add(Me.CBTagSexToy) -Me.TabPage34.Controls.Add(Me.TBTagTattoo) -Me.TabPage34.Controls.Add(Me.CBTagTattoo) -Me.TabPage34.Controls.Add(Me.TBTagUnderwear) -Me.TabPage34.Controls.Add(Me.CBTagUnderwear) -Me.TabPage34.Controls.Add(Me.TBTagGarment) -Me.TabPage34.Controls.Add(Me.CBTagGarment) -Me.TabPage34.Controls.Add(Me.Label72) -Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) -Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) -Me.TabPage34.Controls.Add(Me.CBTagCloseUp) -Me.TabPage34.Controls.Add(Me.CBTagNaked) -Me.TabPage34.Controls.Add(Me.CBTagSideView) -Me.TabPage34.Controls.Add(Me.BTNTagPrevious) -Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) -Me.TabPage34.Controls.Add(Me.BTNTagNext) -Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) -Me.TabPage34.Controls.Add(Me.LBLTagCount) -Me.TabPage34.Controls.Add(Me.CBTagSucking) -Me.TabPage34.Controls.Add(Me.CBTagMasturbating) -Me.TabPage34.Controls.Add(Me.CBTagFeet) -Me.TabPage34.Controls.Add(Me.CBTagBoobs) -Me.TabPage34.Controls.Add(Me.CBTagAss) -Me.TabPage34.Controls.Add(Me.CBTagPussy) -Me.TabPage34.Controls.Add(Me.BTNTagSave) -Me.TabPage34.Controls.Add(Me.BTNTagDir) -Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) -Me.TabPage34.Controls.Add(Me.CBTagFace) -Me.TabPage34.Location = New System.Drawing.Point(4, 22) -Me.TabPage34.Name = "TabPage34" -Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage34.Size = New System.Drawing.Size(700, 411) -Me.TabPage34.TabIndex = 0 -Me.TabPage34.Text = "Domme Tags" +Me.GroupBox53.Controls.Add(Me.CBTagTrap) +Me.GroupBox53.Controls.Add(Me.CBTagTentacles) +Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) +Me.GroupBox53.Controls.Add(Me.CBTagBukkake) +Me.GroupBox53.Controls.Add(Me.CBTagGanguro) +Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) +Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) +Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) +Me.GroupBox53.Controls.Add(Me.CBTagAhegao) +Me.GroupBox53.Controls.Add(Me.CBTagShibari) +Me.GroupBox53.Location = New System.Drawing.Point(450, 277) +Me.GroupBox53.Name = "GroupBox53" +Me.GroupBox53.Size = New System.Drawing.Size(246, 118) +Me.GroupBox53.TabIndex = 240 +Me.GroupBox53.TabStop = false +Me.GroupBox53.Text = "Hentai/JAV Themes" ' -'CBTagSeeThrough +'CBTagTrap ' -Me.CBTagSeeThrough.AutoSize = true -Me.CBTagSeeThrough.Enabled = false -Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) -Me.CBTagSeeThrough.Name = "CBTagSeeThrough" -Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) -Me.CBTagSeeThrough.TabIndex = 226 -Me.CBTagSeeThrough.Text = "See Through" -Me.CBTagSeeThrough.UseVisualStyleBackColor = true +Me.CBTagTrap.AutoSize = true +Me.CBTagTrap.Enabled = false +Me.CBTagTrap.ForeColor = System.Drawing.Color.Black +Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) +Me.CBTagTrap.Name = "CBTagTrap" +Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) +Me.CBTagTrap.TabIndex = 226 +Me.CBTagTrap.Text = "Trap" +Me.CBTagTrap.UseVisualStyleBackColor = true ' -'CBTagAllFours +'CBTagTentacles ' -Me.CBTagAllFours.AutoSize = true -Me.CBTagAllFours.Enabled = false -Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black -Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) -Me.CBTagAllFours.Name = "CBTagAllFours" -Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) -Me.CBTagAllFours.TabIndex = 225 -Me.CBTagAllFours.Text = "All Fours" -Me.CBTagAllFours.UseVisualStyleBackColor = true +Me.CBTagTentacles.AutoSize = true +Me.CBTagTentacles.Enabled = false +Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black +Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) +Me.CBTagTentacles.Name = "CBTagTentacles" +Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) +Me.CBTagTentacles.TabIndex = 204 +Me.CBTagTentacles.Text = "Tentacles" +Me.CBTagTentacles.UseVisualStyleBackColor = true ' -'CBTagGlaring +'CBTagMonsterGirl ' -Me.CBTagGlaring.AutoSize = true -Me.CBTagGlaring.Enabled = false -Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black -Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) -Me.CBTagGlaring.Name = "CBTagGlaring" -Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) -Me.CBTagGlaring.TabIndex = 224 -Me.CBTagGlaring.Text = "Glaring" -Me.CBTagGlaring.UseVisualStyleBackColor = true +Me.CBTagMonsterGirl.AutoSize = true +Me.CBTagMonsterGirl.Enabled = false +Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black +Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) +Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" +Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) +Me.CBTagMonsterGirl.TabIndex = 214 +Me.CBTagMonsterGirl.Text = "Monster Girl" +Me.CBTagMonsterGirl.UseVisualStyleBackColor = true ' -'CBTagSmiling +'CBTagBukkake ' -Me.CBTagSmiling.AutoSize = true -Me.CBTagSmiling.Enabled = false -Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black -Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) -Me.CBTagSmiling.Name = "CBTagSmiling" -Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) -Me.CBTagSmiling.TabIndex = 223 -Me.CBTagSmiling.Text = "Smiling" -Me.CBTagSmiling.UseVisualStyleBackColor = true +Me.CBTagBukkake.AutoSize = true +Me.CBTagBukkake.Enabled = false +Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black +Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) +Me.CBTagBukkake.Name = "CBTagBukkake" +Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) +Me.CBTagBukkake.TabIndex = 210 +Me.CBTagBukkake.Text = "Bukkake" +Me.CBTagBukkake.UseVisualStyleBackColor = true ' -'TBTagDir +'CBTagGanguro ' -Me.TBTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBTagDir.Name = "TBTagDir" -Me.TBTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBTagDir.TabIndex = 222 -Me.TBTagDir.Text = "Enter Image Directory" +Me.CBTagGanguro.AutoSize = true +Me.CBTagGanguro.Enabled = false +Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black +Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) +Me.CBTagGanguro.Name = "CBTagGanguro" +Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) +Me.CBTagGanguro.TabIndex = 205 +Me.CBTagGanguro.Text = "Ganguro" +Me.CBTagGanguro.UseVisualStyleBackColor = true ' -'CBTagPiercing +'CBTagBodyWriting ' -Me.CBTagPiercing.AutoSize = true -Me.CBTagPiercing.Enabled = false -Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black -Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) -Me.CBTagPiercing.Name = "CBTagPiercing" -Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) -Me.CBTagPiercing.TabIndex = 221 -Me.CBTagPiercing.Text = "Piercing" -Me.CBTagPiercing.UseVisualStyleBackColor = true +Me.CBTagBodyWriting.AutoSize = true +Me.CBTagBodyWriting.Enabled = false +Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) +Me.CBTagBodyWriting.Name = "CBTagBodyWriting" +Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) +Me.CBTagBodyWriting.TabIndex = 208 +Me.CBTagBodyWriting.Text = "Body Writing" +Me.CBTagBodyWriting.UseVisualStyleBackColor = true ' -'CBTagLegs +'CBTagMahouShoujo ' -Me.CBTagLegs.AutoSize = true -Me.CBTagLegs.Enabled = false -Me.CBTagLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) -Me.CBTagLegs.Name = "CBTagLegs" -Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagLegs.TabIndex = 220 -Me.CBTagLegs.Text = "Legs" -Me.CBTagLegs.UseVisualStyleBackColor = true +Me.CBTagMahouShoujo.AutoSize = true +Me.CBTagMahouShoujo.Enabled = false +Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black +Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) +Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" +Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) +Me.CBTagMahouShoujo.TabIndex = 209 +Me.CBTagMahouShoujo.Text = "Mahou Shoujo" +Me.CBTagMahouShoujo.UseVisualStyleBackColor = true ' -'TBTagFurniture +'CBTagBakunyuu ' -Me.TBTagFurniture.Enabled = false -Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) -Me.TBTagFurniture.Name = "TBTagFurniture" -Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) -Me.TBTagFurniture.TabIndex = 219 +Me.CBTagBakunyuu.AutoSize = true +Me.CBTagBakunyuu.Enabled = false +Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black +Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) +Me.CBTagBakunyuu.Name = "CBTagBakunyuu" +Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) +Me.CBTagBakunyuu.TabIndex = 213 +Me.CBTagBakunyuu.Text = "Bakunyuu" +Me.CBTagBakunyuu.UseVisualStyleBackColor = true ' -'CBTagFurniture +'CBTagAhegao ' -Me.CBTagFurniture.AutoSize = true -Me.CBTagFurniture.Enabled = false -Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black -Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) -Me.CBTagFurniture.Name = "CBTagFurniture" -Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) -Me.CBTagFurniture.TabIndex = 218 -Me.CBTagFurniture.Text = "Furniture" -Me.CBTagFurniture.UseVisualStyleBackColor = true +Me.CBTagAhegao.AutoSize = true +Me.CBTagAhegao.Enabled = false +Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black +Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) +Me.CBTagAhegao.Name = "CBTagAhegao" +Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) +Me.CBTagAhegao.TabIndex = 207 +Me.CBTagAhegao.Text = "Ahegao" +Me.CBTagAhegao.UseVisualStyleBackColor = true ' -'TBTagSexToy +'CBTagShibari ' -Me.TBTagSexToy.Enabled = false -Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) -Me.TBTagSexToy.Name = "TBTagSexToy" -Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) -Me.TBTagSexToy.TabIndex = 217 +Me.CBTagShibari.AutoSize = true +Me.CBTagShibari.Enabled = false +Me.CBTagShibari.ForeColor = System.Drawing.Color.Black +Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) +Me.CBTagShibari.Name = "CBTagShibari" +Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) +Me.CBTagShibari.TabIndex = 203 +Me.CBTagShibari.Text = "Shibari" +Me.CBTagShibari.UseVisualStyleBackColor = true +' +'GroupBox49 +' +Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) +Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) +Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) +Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) +Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) +Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) +Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) +Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) +Me.GroupBox49.Location = New System.Drawing.Point(341, 37) +Me.GroupBox49.Name = "GroupBox49" +Me.GroupBox49.Size = New System.Drawing.Size(103, 238) +Me.GroupBox49.TabIndex = 236 +Me.GroupBox49.TabStop = false +Me.GroupBox49.Text = "Body Part" ' -'CBTagSexToy +'CBTagBodyMouth ' -Me.CBTagSexToy.AutoSize = true -Me.CBTagSexToy.Enabled = false -Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black -Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) -Me.CBTagSexToy.Name = "CBTagSexToy" -Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) -Me.CBTagSexToy.TabIndex = 216 -Me.CBTagSexToy.Text = "Sex Toy" -Me.CBTagSexToy.UseVisualStyleBackColor = true +Me.CBTagBodyMouth.AutoSize = true +Me.CBTagBodyMouth.Enabled = false +Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) +Me.CBTagBodyMouth.Name = "CBTagBodyMouth" +Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) +Me.CBTagBodyMouth.TabIndex = 220 +Me.CBTagBodyMouth.Text = "Mouth" +Me.CBTagBodyMouth.UseVisualStyleBackColor = true ' -'TBTagTattoo +'CBTagBodyAss ' -Me.TBTagTattoo.Enabled = false -Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) -Me.TBTagTattoo.Name = "TBTagTattoo" -Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) -Me.TBTagTattoo.TabIndex = 215 +Me.CBTagBodyAss.AutoSize = true +Me.CBTagBodyAss.Enabled = false +Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) +Me.CBTagBodyAss.Name = "CBTagBodyAss" +Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyAss.TabIndex = 219 +Me.CBTagBodyAss.Text = "Ass" +Me.CBTagBodyAss.UseVisualStyleBackColor = true ' -'CBTagTattoo +'CBTagBodyFace ' -Me.CBTagTattoo.AutoSize = true -Me.CBTagTattoo.Enabled = false -Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) -Me.CBTagTattoo.Name = "CBTagTattoo" -Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) -Me.CBTagTattoo.TabIndex = 214 -Me.CBTagTattoo.Text = "Tattoo" -Me.CBTagTattoo.UseVisualStyleBackColor = true +Me.CBTagBodyFace.AutoSize = true +Me.CBTagBodyFace.Enabled = false +Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) +Me.CBTagBodyFace.Name = "CBTagBodyFace" +Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagBodyFace.TabIndex = 203 +Me.CBTagBodyFace.Text = "Face" +Me.CBTagBodyFace.UseVisualStyleBackColor = true ' -'TBTagUnderwear +'CBTagBodyLegs ' -Me.TBTagUnderwear.Enabled = false -Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) -Me.TBTagUnderwear.Name = "TBTagUnderwear" -Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) -Me.TBTagUnderwear.TabIndex = 213 +Me.CBTagBodyLegs.AutoSize = true +Me.CBTagBodyLegs.Enabled = false +Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) +Me.CBTagBodyLegs.Name = "CBTagBodyLegs" +Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagBodyLegs.TabIndex = 218 +Me.CBTagBodyLegs.Text = "Legs" +Me.CBTagBodyLegs.UseVisualStyleBackColor = true ' -'CBTagUnderwear +'CBTagBodyBalls ' -Me.CBTagUnderwear.AutoSize = true -Me.CBTagUnderwear.Enabled = false -Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black -Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) -Me.CBTagUnderwear.Name = "CBTagUnderwear" -Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) -Me.CBTagUnderwear.TabIndex = 212 -Me.CBTagUnderwear.Text = "Underwear" -Me.CBTagUnderwear.UseVisualStyleBackColor = true +Me.CBTagBodyBalls.AutoSize = true +Me.CBTagBodyBalls.Enabled = false +Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) +Me.CBTagBodyBalls.Name = "CBTagBodyBalls" +Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) +Me.CBTagBodyBalls.TabIndex = 217 +Me.CBTagBodyBalls.Text = "Balls" +Me.CBTagBodyBalls.UseVisualStyleBackColor = true ' -'TBTagGarment +'CBTagBodyCock ' -Me.TBTagGarment.Enabled = false -Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) -Me.TBTagGarment.Name = "TBTagGarment" -Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) -Me.TBTagGarment.TabIndex = 211 +Me.CBTagBodyCock.AutoSize = true +Me.CBTagBodyCock.Enabled = false +Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) +Me.CBTagBodyCock.Name = "CBTagBodyCock" +Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) +Me.CBTagBodyCock.TabIndex = 216 +Me.CBTagBodyCock.Text = "Cock" +Me.CBTagBodyCock.UseVisualStyleBackColor = true ' -'CBTagGarment +'CBTagBodyFeet ' -Me.CBTagGarment.AutoSize = true -Me.CBTagGarment.Enabled = false -Me.CBTagGarment.ForeColor = System.Drawing.Color.Black -Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) -Me.CBTagGarment.Name = "CBTagGarment" -Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) -Me.CBTagGarment.TabIndex = 210 -Me.CBTagGarment.Text = "Garment" -Me.CBTagGarment.UseVisualStyleBackColor = true +Me.CBTagBodyFeet.AutoSize = true +Me.CBTagBodyFeet.Enabled = false +Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) +Me.CBTagBodyFeet.Name = "CBTagBodyFeet" +Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagBodyFeet.TabIndex = 215 +Me.CBTagBodyFeet.Text = "Feet" +Me.CBTagBodyFeet.UseVisualStyleBackColor = true ' -'Label72 +'CBTagBodyNipples ' -Me.Label72.BackColor = System.Drawing.Color.Transparent -Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label72.ForeColor = System.Drawing.Color.Black -Me.Label72.Location = New System.Drawing.Point(5, 368) -Me.Label72.Name = "Label72" -Me.Label72.Size = New System.Drawing.Size(451, 35) -Me.Label72.TabIndex = 189 -Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ - "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ - "e.g. Garment: dress)" -Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBTagBodyNipples.AutoSize = true +Me.CBTagBodyNipples.Enabled = false +Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) +Me.CBTagBodyNipples.Name = "CBTagBodyNipples" +Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) +Me.CBTagBodyNipples.TabIndex = 207 +Me.CBTagBodyNipples.Text = "Nipples" +Me.CBTagBodyNipples.UseVisualStyleBackColor = true ' -'CBTagHandsCovering +'CBTagBodyPussy ' -Me.CBTagHandsCovering.AutoSize = true -Me.CBTagHandsCovering.Enabled = false -Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) -Me.CBTagHandsCovering.Name = "CBTagHandsCovering" -Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) -Me.CBTagHandsCovering.TabIndex = 209 -Me.CBTagHandsCovering.Text = "Hands Covering" -Me.CBTagHandsCovering.UseVisualStyleBackColor = true +Me.CBTagBodyPussy.AutoSize = true +Me.CBTagBodyPussy.Enabled = false +Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) +Me.CBTagBodyPussy.Name = "CBTagBodyPussy" +Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagBodyPussy.TabIndex = 209 +Me.CBTagBodyPussy.Text = "Pussy" +Me.CBTagBodyPussy.UseVisualStyleBackColor = true ' -'CBTagGarmentCovering +'CBTagBodyTits ' -Me.CBTagGarmentCovering.AutoSize = true -Me.CBTagGarmentCovering.Enabled = false -Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) -Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" -Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) -Me.CBTagGarmentCovering.TabIndex = 208 -Me.CBTagGarmentCovering.Text = "Garment Covering" -Me.CBTagGarmentCovering.UseVisualStyleBackColor = true +Me.CBTagBodyTits.AutoSize = true +Me.CBTagBodyTits.Enabled = false +Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) +Me.CBTagBodyTits.Name = "CBTagBodyTits" +Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyTits.TabIndex = 213 +Me.CBTagBodyTits.Text = "Tits" +Me.CBTagBodyTits.UseVisualStyleBackColor = true ' -'CBTagCloseUp +'CBTagBodyFingers ' -Me.CBTagCloseUp.AutoSize = true -Me.CBTagCloseUp.Enabled = false -Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black -Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) -Me.CBTagCloseUp.Name = "CBTagCloseUp" -Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) -Me.CBTagCloseUp.TabIndex = 205 -Me.CBTagCloseUp.Text = "Close Up" -Me.CBTagCloseUp.UseVisualStyleBackColor = true +Me.CBTagBodyFingers.AutoSize = true +Me.CBTagBodyFingers.Enabled = false +Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) +Me.CBTagBodyFingers.Name = "CBTagBodyFingers" +Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) +Me.CBTagBodyFingers.TabIndex = 210 +Me.CBTagBodyFingers.Text = "Fingers" +Me.CBTagBodyFingers.UseVisualStyleBackColor = true ' -'CBTagNaked +'GroupBox46 ' -Me.CBTagNaked.AutoSize = true -Me.CBTagNaked.Enabled = false -Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) -Me.CBTagNaked.Name = "CBTagNaked" -Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) -Me.CBTagNaked.TabIndex = 199 -Me.CBTagNaked.Text = "Naked" -Me.CBTagNaked.UseVisualStyleBackColor = true +Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) +Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) +Me.GroupBox46.Controls.Add(Me.CBTagFemdom) +Me.GroupBox46.Controls.Add(Me.CBTag2M) +Me.GroupBox46.Controls.Add(Me.CBTagFutadom) +Me.GroupBox46.Controls.Add(Me.CBTagFemsub) +Me.GroupBox46.Controls.Add(Me.CBTag2Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMaledom) +Me.GroupBox46.Controls.Add(Me.CBTag3M) +Me.GroupBox46.Controls.Add(Me.CBTagFutasub) +Me.GroupBox46.Controls.Add(Me.CBTag3Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMalesub) +Me.GroupBox46.Controls.Add(Me.CBTag2F) +Me.GroupBox46.Controls.Add(Me.CBTag1Futa) +Me.GroupBox46.Controls.Add(Me.CBTag1M) +Me.GroupBox46.Controls.Add(Me.CBTag1F) +Me.GroupBox46.Controls.Add(Me.CBTag3F) +Me.GroupBox46.Location = New System.Drawing.Point(230, 37) +Me.GroupBox46.Name = "GroupBox46" +Me.GroupBox46.Size = New System.Drawing.Size(105, 358) +Me.GroupBox46.TabIndex = 234 +Me.GroupBox46.TabStop = false +Me.GroupBox46.Text = "Genders && Roles" ' -'CBTagSideView +'CBTagMultiSub ' -Me.CBTagSideView.AutoSize = true -Me.CBTagSideView.Enabled = false -Me.CBTagSideView.ForeColor = System.Drawing.Color.Black -Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) -Me.CBTagSideView.Name = "CBTagSideView" -Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) -Me.CBTagSideView.TabIndex = 204 -Me.CBTagSideView.Text = "Side View" -Me.CBTagSideView.UseVisualStyleBackColor = true +Me.CBTagMultiSub.AutoSize = true +Me.CBTagMultiSub.Enabled = false +Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) +Me.CBTagMultiSub.Name = "CBTagMultiSub" +Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) +Me.CBTagMultiSub.TabIndex = 207 +Me.CBTagMultiSub.Text = "Multi-Sub" +Me.CBTagMultiSub.UseVisualStyleBackColor = true ' -'BTNTagPrevious +'CBTagMultiDom ' -Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNTagPrevious.Enabled = false -Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNTagPrevious.Name = "BTNTagPrevious" -Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNTagPrevious.TabIndex = 207 -Me.BTNTagPrevious.Text = "<<" -Me.BTNTagPrevious.UseVisualStyleBackColor = false +Me.CBTagMultiDom.AutoSize = true +Me.CBTagMultiDom.Enabled = false +Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) +Me.CBTagMultiDom.Name = "CBTagMultiDom" +Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) +Me.CBTagMultiDom.TabIndex = 230 +Me.CBTagMultiDom.Text = "Multi-Dom" +Me.CBTagMultiDom.UseVisualStyleBackColor = true ' -'CBTagHalfDressed +'CBTagFemdom ' -Me.CBTagHalfDressed.AutoSize = true -Me.CBTagHalfDressed.Enabled = false -Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) -Me.CBTagHalfDressed.Name = "CBTagHalfDressed" -Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) -Me.CBTagHalfDressed.TabIndex = 198 -Me.CBTagHalfDressed.Text = "Half Dressed" -Me.CBTagHalfDressed.UseVisualStyleBackColor = true +Me.CBTagFemdom.AutoSize = true +Me.CBTagFemdom.Enabled = false +Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black +Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) +Me.CBTagFemdom.Name = "CBTagFemdom" +Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBTagFemdom.TabIndex = 229 +Me.CBTagFemdom.Text = "Femdom" +Me.CBTagFemdom.UseVisualStyleBackColor = true ' -'BTNTagNext +'CBTag2M ' -Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNTagNext.Enabled = false -Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNTagNext.Name = "BTNTagNext" -Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNTagNext.TabIndex = 206 -Me.BTNTagNext.Text = ">>" -Me.BTNTagNext.UseVisualStyleBackColor = false +Me.CBTag2M.AutoSize = true +Me.CBTag2M.Enabled = false +Me.CBTag2M.ForeColor = System.Drawing.Color.Black +Me.CBTag2M.Location = New System.Drawing.Point(15, 97) +Me.CBTag2M.Name = "CBTag2M" +Me.CBTag2M.Size = New System.Drawing.Size(56, 17) +Me.CBTag2M.TabIndex = 206 +Me.CBTag2M.Text = "2 Men" +Me.CBTag2M.UseVisualStyleBackColor = true ' -'CBTagFullyDressed +'CBTagFutadom ' -Me.CBTagFullyDressed.AutoSize = true -Me.CBTagFullyDressed.Enabled = false -Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) -Me.CBTagFullyDressed.Name = "CBTagFullyDressed" -Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) -Me.CBTagFullyDressed.TabIndex = 197 -Me.CBTagFullyDressed.Text = "Fully Dressed" -Me.CBTagFullyDressed.UseVisualStyleBackColor = true +Me.CBTagFutadom.AutoSize = true +Me.CBTagFutadom.Enabled = false +Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black +Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) +Me.CBTagFutadom.Name = "CBTagFutadom" +Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) +Me.CBTagFutadom.TabIndex = 204 +Me.CBTagFutadom.Text = "Futadom" +Me.CBTagFutadom.UseVisualStyleBackColor = true ' -'LBLTagCount +'CBTagFemsub ' -Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTagCount.Enabled = false -Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLTagCount.Name = "LBLTagCount" -Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLTagCount.TabIndex = 203 -Me.LBLTagCount.Text = "0/0" -Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagFemsub.AutoSize = true +Me.CBTagFemsub.Enabled = false +Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black +Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) +Me.CBTagFemsub.Name = "CBTagFemsub" +Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBTagFemsub.TabIndex = 205 +Me.CBTagFemsub.Text = "Femsub" +Me.CBTagFemsub.UseVisualStyleBackColor = true ' -'CBTagSucking +'CBTag2Futa ' -Me.CBTagSucking.AutoSize = true -Me.CBTagSucking.Enabled = false -Me.CBTagSucking.ForeColor = System.Drawing.Color.Black -Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) -Me.CBTagSucking.Name = "CBTagSucking" -Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) -Me.CBTagSucking.TabIndex = 202 -Me.CBTagSucking.Text = "Sucking" -Me.CBTagSucking.UseVisualStyleBackColor = true +Me.CBTag2Futa.AutoSize = true +Me.CBTag2Futa.Enabled = false +Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) +Me.CBTag2Futa.Name = "CBTag2Futa" +Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag2Futa.TabIndex = 186 +Me.CBTag2Futa.Text = "2 Futa" +Me.CBTag2Futa.UseVisualStyleBackColor = true ' -'CBTagMasturbating +'CBTagMaledom ' -Me.CBTagMasturbating.AutoSize = true -Me.CBTagMasturbating.Enabled = false -Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) -Me.CBTagMasturbating.Name = "CBTagMasturbating" -Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbating.TabIndex = 201 -Me.CBTagMasturbating.Text = "Masturbating" -Me.CBTagMasturbating.UseVisualStyleBackColor = true +Me.CBTagMaledom.AutoSize = true +Me.CBTagMaledom.Enabled = false +Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black +Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) +Me.CBTagMaledom.Name = "CBTagMaledom" +Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) +Me.CBTagMaledom.TabIndex = 206 +Me.CBTagMaledom.Text = "Maledom" +Me.CBTagMaledom.UseVisualStyleBackColor = true ' -'CBTagFeet +'CBTag3M ' -Me.CBTagFeet.AutoSize = true -Me.CBTagFeet.Enabled = false -Me.CBTagFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) -Me.CBTagFeet.Name = "CBTagFeet" -Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagFeet.TabIndex = 200 -Me.CBTagFeet.Text = "Feet" -Me.CBTagFeet.UseVisualStyleBackColor = true +Me.CBTag3M.AutoSize = true +Me.CBTag3M.Enabled = false +Me.CBTag3M.ForeColor = System.Drawing.Color.Black +Me.CBTag3M.Location = New System.Drawing.Point(15, 117) +Me.CBTag3M.Name = "CBTag3M" +Me.CBTag3M.Size = New System.Drawing.Size(56, 17) +Me.CBTag3M.TabIndex = 190 +Me.CBTag3M.Text = "3 Men" +Me.CBTag3M.UseVisualStyleBackColor = true ' -'CBTagBoobs +'CBTagFutasub ' -Me.CBTagBoobs.AutoSize = true -Me.CBTagBoobs.Enabled = false -Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black -Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) -Me.CBTagBoobs.Name = "CBTagBoobs" -Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) -Me.CBTagBoobs.TabIndex = 196 -Me.CBTagBoobs.Text = "Boobs" -Me.CBTagBoobs.UseVisualStyleBackColor = true +Me.CBTagFutasub.AutoSize = true +Me.CBTagFutasub.Enabled = false +Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black +Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) +Me.CBTagFutasub.Name = "CBTagFutasub" +Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) +Me.CBTagFutasub.TabIndex = 213 +Me.CBTagFutasub.Text = "Futasub" +Me.CBTagFutasub.UseVisualStyleBackColor = true ' -'CBTagAss +'CBTag3Futa ' -Me.CBTagAss.AutoSize = true -Me.CBTagAss.Enabled = false -Me.CBTagAss.ForeColor = System.Drawing.Color.Black -Me.CBTagAss.Location = New System.Drawing.Point(484, 97) -Me.CBTagAss.Name = "CBTagAss" -Me.CBTagAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagAss.TabIndex = 195 -Me.CBTagAss.Text = "Ass" -Me.CBTagAss.UseVisualStyleBackColor = true +Me.CBTag3Futa.AutoSize = true +Me.CBTag3Futa.Enabled = false +Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) +Me.CBTag3Futa.Name = "CBTag3Futa" +Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag3Futa.TabIndex = 197 +Me.CBTag3Futa.Text = "3 Futa" +Me.CBTag3Futa.UseVisualStyleBackColor = true ' -'CBTagPussy +'CBTagMalesub ' -Me.CBTagPussy.AutoSize = true -Me.CBTagPussy.Enabled = false -Me.CBTagPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) -Me.CBTagPussy.Name = "CBTagPussy" -Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagPussy.TabIndex = 194 -Me.CBTagPussy.Text = "Pussy" -Me.CBTagPussy.UseVisualStyleBackColor = true +Me.CBTagMalesub.AutoSize = true +Me.CBTagMalesub.Enabled = false +Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black +Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) +Me.CBTagMalesub.Name = "CBTagMalesub" +Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) +Me.CBTagMalesub.TabIndex = 210 +Me.CBTagMalesub.Text = "Malesub" +Me.CBTagMalesub.UseVisualStyleBackColor = true ' -'BTNTagSave +'CBTag2F +' +Me.CBTag2F.AutoSize = true +Me.CBTag2F.Enabled = false +Me.CBTag2F.ForeColor = System.Drawing.Color.Black +Me.CBTag2F.Location = New System.Drawing.Point(15, 37) +Me.CBTag2F.Name = "CBTag2F" +Me.CBTag2F.Size = New System.Drawing.Size(72, 17) +Me.CBTag2F.TabIndex = 188 +Me.CBTag2F.Text = "2 Women" +Me.CBTag2F.UseVisualStyleBackColor = true +' +'CBTag1Futa ' -Me.BTNTagSave.Enabled = false -Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNTagSave.Name = "BTNTagSave" -Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNTagSave.TabIndex = 193 -Me.BTNTagSave.Text = "Finished" -Me.BTNTagSave.UseVisualStyleBackColor = true +Me.CBTag1Futa.AutoSize = true +Me.CBTag1Futa.Enabled = false +Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) +Me.CBTag1Futa.Name = "CBTag1Futa" +Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag1Futa.TabIndex = 191 +Me.CBTag1Futa.Text = "1 Futa" +Me.CBTag1Futa.UseVisualStyleBackColor = true ' -'BTNTagDir +'CBTag1M ' -Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNTagDir.Name = "BTNTagDir" -Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNTagDir.TabIndex = 192 -Me.BTNTagDir.Text = "1" -Me.BTNTagDir.UseVisualStyleBackColor = true +Me.CBTag1M.AutoSize = true +Me.CBTag1M.Enabled = false +Me.CBTag1M.ForeColor = System.Drawing.Color.Black +Me.CBTag1M.Location = New System.Drawing.Point(15, 77) +Me.CBTag1M.Name = "CBTag1M" +Me.CBTag1M.Size = New System.Drawing.Size(56, 17) +Me.CBTag1M.TabIndex = 189 +Me.CBTag1M.Text = "1 Man" +Me.CBTag1M.UseVisualStyleBackColor = true ' -'ImageTagPictureBox +'CBTag1F ' -Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black -Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) -Me.ImageTagPictureBox.Name = "ImageTagPictureBox" -Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) -Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.ImageTagPictureBox.TabIndex = 191 -Me.ImageTagPictureBox.TabStop = false +Me.CBTag1F.AutoSize = true +Me.CBTag1F.Enabled = false +Me.CBTag1F.ForeColor = System.Drawing.Color.Black +Me.CBTag1F.Location = New System.Drawing.Point(15, 17) +Me.CBTag1F.Name = "CBTag1F" +Me.CBTag1F.Size = New System.Drawing.Size(72, 17) +Me.CBTag1F.TabIndex = 185 +Me.CBTag1F.Text = "1 Woman" +Me.CBTag1F.UseVisualStyleBackColor = true ' -'CBTagFace +'CBTag3F ' -Me.CBTagFace.AutoSize = true -Me.CBTagFace.Enabled = false -Me.CBTagFace.ForeColor = System.Drawing.Color.Black -Me.CBTagFace.Location = New System.Drawing.Point(484, 37) -Me.CBTagFace.Name = "CBTagFace" -Me.CBTagFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagFace.TabIndex = 190 -Me.CBTagFace.Text = "Face" -Me.CBTagFace.UseVisualStyleBackColor = true +Me.CBTag3F.AutoSize = true +Me.CBTag3F.Enabled = false +Me.CBTag3F.ForeColor = System.Drawing.Color.Black +Me.CBTag3F.Location = New System.Drawing.Point(15, 57) +Me.CBTag3F.Name = "CBTag3F" +Me.CBTag3F.Size = New System.Drawing.Size(72, 17) +Me.CBTag3F.TabIndex = 192 +Me.CBTag3F.Text = "3 Women" +Me.CBTag3F.UseVisualStyleBackColor = true ' -'TabPage35 +'GroupBox54 ' -Me.TabPage35.BackColor = System.Drawing.Color.LightGray -Me.TabPage35.Controls.Add(Me.GroupBox55) -Me.TabPage35.Controls.Add(Me.GroupBox53) -Me.TabPage35.Controls.Add(Me.GroupBox49) -Me.TabPage35.Controls.Add(Me.GroupBox46) -Me.TabPage35.Controls.Add(Me.GroupBox54) -Me.TabPage35.Controls.Add(Me.GroupBox51) -Me.TabPage35.Controls.Add(Me.GroupBox50) -Me.TabPage35.Controls.Add(Me.GroupBox48) -Me.TabPage35.Controls.Add(Me.TBLocalTagDir) -Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) -Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) -Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) -Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) -Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) -Me.TabPage35.Location = New System.Drawing.Point(4, 22) -Me.TabPage35.Name = "TabPage35" -Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage35.Size = New System.Drawing.Size(700, 411) -Me.TabPage35.TabIndex = 1 -Me.TabPage35.Text = "Local Tags" +Me.GroupBox54.Controls.Add(Me.CBTagTattoos) +Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) +Me.GroupBox54.Controls.Add(Me.CBTagDomme) +Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) +Me.GroupBox54.Controls.Add(Me.CBTagWatersports) +Me.GroupBox54.Controls.Add(Me.CBTagStockings) +Me.GroupBox54.Controls.Add(Me.CBTagCumshot) +Me.GroupBox54.Controls.Add(Me.CBTagCumEating) +Me.GroupBox54.Controls.Add(Me.CBTagVibrator) +Me.GroupBox54.Controls.Add(Me.CBTagDildo) +Me.GroupBox54.Controls.Add(Me.CBTagKissing) +Me.GroupBox54.Location = New System.Drawing.Point(561, 37) +Me.GroupBox54.Name = "GroupBox54" +Me.GroupBox54.Size = New System.Drawing.Size(135, 238) +Me.GroupBox54.TabIndex = 239 +Me.GroupBox54.TabStop = false +Me.GroupBox54.Text = "Misc" ' -'GroupBox55 +'CBTagTattoos ' -Me.GroupBox55.Controls.Add(Me.CBTagNurse) -Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) -Me.GroupBox55.Controls.Add(Me.CBTagMaid) -Me.GroupBox55.Controls.Add(Me.CBTagTeacher) -Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) -Me.GroupBox55.Location = New System.Drawing.Point(341, 277) -Me.GroupBox55.Name = "GroupBox55" -Me.GroupBox55.Size = New System.Drawing.Size(103, 118) -Me.GroupBox55.TabIndex = 241 -Me.GroupBox55.TabStop = false -Me.GroupBox55.Text = "Outfit" +Me.CBTagTattoos.AutoSize = true +Me.CBTagTattoos.Enabled = false +Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) +Me.CBTagTattoos.Name = "CBTagTattoos" +Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBTagTattoos.TabIndex = 214 +Me.CBTagTattoos.Text = "Tattoos" +Me.CBTagTattoos.UseVisualStyleBackColor = true ' -'CBTagNurse +'CBTagAnalToy ' -Me.CBTagNurse.AutoSize = true -Me.CBTagNurse.Enabled = false -Me.CBTagNurse.ForeColor = System.Drawing.Color.Black -Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) -Me.CBTagNurse.Name = "CBTagNurse" -Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) -Me.CBTagNurse.TabIndex = 203 -Me.CBTagNurse.Text = "Nurse" -Me.CBTagNurse.UseVisualStyleBackColor = true +Me.CBTagAnalToy.AutoSize = true +Me.CBTagAnalToy.Enabled = false +Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) +Me.CBTagAnalToy.Name = "CBTagAnalToy" +Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalToy.TabIndex = 215 +Me.CBTagAnalToy.Text = "Anal Toy" +Me.CBTagAnalToy.UseVisualStyleBackColor = true ' -'CBTagSchoolgirl +'CBTagDomme ' -Me.CBTagSchoolgirl.AutoSize = true -Me.CBTagSchoolgirl.Enabled = false -Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) -Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" -Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) -Me.CBTagSchoolgirl.TabIndex = 204 -Me.CBTagSchoolgirl.Text = "Schoolgirl" -Me.CBTagSchoolgirl.UseVisualStyleBackColor = true +Me.CBTagDomme.AutoSize = true +Me.CBTagDomme.Enabled = false +Me.CBTagDomme.ForeColor = System.Drawing.Color.Black +Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) +Me.CBTagDomme.Name = "CBTagDomme" +Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) +Me.CBTagDomme.TabIndex = 219 +Me.CBTagDomme.Text = "Tease A.I. Domme" +Me.CBTagDomme.UseVisualStyleBackColor = true ' -'CBTagMaid +'CBTagPocketPussy ' -Me.CBTagMaid.AutoSize = true -Me.CBTagMaid.Enabled = false -Me.CBTagMaid.ForeColor = System.Drawing.Color.Black -Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) -Me.CBTagMaid.Name = "CBTagMaid" -Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) -Me.CBTagMaid.TabIndex = 205 -Me.CBTagMaid.Text = "Maid" -Me.CBTagMaid.UseVisualStyleBackColor = true +Me.CBTagPocketPussy.AutoSize = true +Me.CBTagPocketPussy.Enabled = false +Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) +Me.CBTagPocketPussy.Name = "CBTagPocketPussy" +Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) +Me.CBTagPocketPussy.TabIndex = 205 +Me.CBTagPocketPussy.Text = "Pocket Pussy" +Me.CBTagPocketPussy.UseVisualStyleBackColor = true ' -'CBTagTeacher +'CBTagWatersports ' -Me.CBTagTeacher.AutoSize = true -Me.CBTagTeacher.Enabled = false -Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black -Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) -Me.CBTagTeacher.Name = "CBTagTeacher" -Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) -Me.CBTagTeacher.TabIndex = 206 -Me.CBTagTeacher.Text = "Teacher" -Me.CBTagTeacher.UseVisualStyleBackColor = true +Me.CBTagWatersports.AutoSize = true +Me.CBTagWatersports.Enabled = false +Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black +Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) +Me.CBTagWatersports.Name = "CBTagWatersports" +Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) +Me.CBTagWatersports.TabIndex = 218 +Me.CBTagWatersports.Text = "Watersports" +Me.CBTagWatersports.UseVisualStyleBackColor = true ' -'CBTagSuperhero +'CBTagStockings ' -Me.CBTagSuperhero.AutoSize = true -Me.CBTagSuperhero.Enabled = false -Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black -Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) -Me.CBTagSuperhero.Name = "CBTagSuperhero" -Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) -Me.CBTagSuperhero.TabIndex = 213 -Me.CBTagSuperhero.Text = "Superhero" -Me.CBTagSuperhero.UseVisualStyleBackColor = true +Me.CBTagStockings.AutoSize = true +Me.CBTagStockings.Enabled = false +Me.CBTagStockings.ForeColor = System.Drawing.Color.Black +Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) +Me.CBTagStockings.Name = "CBTagStockings" +Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) +Me.CBTagStockings.TabIndex = 217 +Me.CBTagStockings.Text = "Stockings" +Me.CBTagStockings.UseVisualStyleBackColor = true ' -'GroupBox53 +'CBTagCumshot ' -Me.GroupBox53.Controls.Add(Me.CBTagTrap) -Me.GroupBox53.Controls.Add(Me.CBTagTentacles) -Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) -Me.GroupBox53.Controls.Add(Me.CBTagBukkake) -Me.GroupBox53.Controls.Add(Me.CBTagGanguro) -Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) -Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) -Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) -Me.GroupBox53.Controls.Add(Me.CBTagAhegao) -Me.GroupBox53.Controls.Add(Me.CBTagShibari) -Me.GroupBox53.Location = New System.Drawing.Point(450, 277) -Me.GroupBox53.Name = "GroupBox53" -Me.GroupBox53.Size = New System.Drawing.Size(246, 118) -Me.GroupBox53.TabIndex = 240 -Me.GroupBox53.TabStop = false -Me.GroupBox53.Text = "Hentai/JAV Themes" +Me.CBTagCumshot.AutoSize = true +Me.CBTagCumshot.Enabled = false +Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black +Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) +Me.CBTagCumshot.Name = "CBTagCumshot" +Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) +Me.CBTagCumshot.TabIndex = 206 +Me.CBTagCumshot.Text = "Cumshot" +Me.CBTagCumshot.UseVisualStyleBackColor = true ' -'CBTagTrap +'CBTagCumEating ' -Me.CBTagTrap.AutoSize = true -Me.CBTagTrap.Enabled = false -Me.CBTagTrap.ForeColor = System.Drawing.Color.Black -Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) -Me.CBTagTrap.Name = "CBTagTrap" -Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) -Me.CBTagTrap.TabIndex = 226 -Me.CBTagTrap.Text = "Trap" -Me.CBTagTrap.UseVisualStyleBackColor = true +Me.CBTagCumEating.AutoSize = true +Me.CBTagCumEating.Enabled = false +Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black +Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) +Me.CBTagCumEating.Name = "CBTagCumEating" +Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) +Me.CBTagCumEating.TabIndex = 204 +Me.CBTagCumEating.Text = "Cum Eating" +Me.CBTagCumEating.UseVisualStyleBackColor = true ' -'CBTagTentacles +'CBTagVibrator ' -Me.CBTagTentacles.AutoSize = true -Me.CBTagTentacles.Enabled = false -Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black -Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) -Me.CBTagTentacles.Name = "CBTagTentacles" -Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) -Me.CBTagTentacles.TabIndex = 204 -Me.CBTagTentacles.Text = "Tentacles" -Me.CBTagTentacles.UseVisualStyleBackColor = true +Me.CBTagVibrator.AutoSize = true +Me.CBTagVibrator.Enabled = false +Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black +Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) +Me.CBTagVibrator.Name = "CBTagVibrator" +Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) +Me.CBTagVibrator.TabIndex = 210 +Me.CBTagVibrator.Text = "Vibrator" +Me.CBTagVibrator.UseVisualStyleBackColor = true ' -'CBTagMonsterGirl +'CBTagDildo ' -Me.CBTagMonsterGirl.AutoSize = true -Me.CBTagMonsterGirl.Enabled = false -Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black -Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) -Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" -Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) -Me.CBTagMonsterGirl.TabIndex = 214 -Me.CBTagMonsterGirl.Text = "Monster Girl" -Me.CBTagMonsterGirl.UseVisualStyleBackColor = true +Me.CBTagDildo.AutoSize = true +Me.CBTagDildo.Enabled = false +Me.CBTagDildo.ForeColor = System.Drawing.Color.Black +Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) +Me.CBTagDildo.Name = "CBTagDildo" +Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) +Me.CBTagDildo.TabIndex = 213 +Me.CBTagDildo.Text = "Dildo" +Me.CBTagDildo.UseVisualStyleBackColor = true ' -'CBTagBukkake +'CBTagKissing ' -Me.CBTagBukkake.AutoSize = true -Me.CBTagBukkake.Enabled = false -Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black -Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) -Me.CBTagBukkake.Name = "CBTagBukkake" -Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) -Me.CBTagBukkake.TabIndex = 210 -Me.CBTagBukkake.Text = "Bukkake" -Me.CBTagBukkake.UseVisualStyleBackColor = true +Me.CBTagKissing.AutoSize = true +Me.CBTagKissing.Enabled = false +Me.CBTagKissing.ForeColor = System.Drawing.Color.Black +Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) +Me.CBTagKissing.Name = "CBTagKissing" +Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) +Me.CBTagKissing.TabIndex = 203 +Me.CBTagKissing.Text = "Kissing" +Me.CBTagKissing.UseVisualStyleBackColor = true ' -'CBTagGanguro +'GroupBox51 ' -Me.CBTagGanguro.AutoSize = true -Me.CBTagGanguro.Enabled = false -Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black -Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) -Me.CBTagGanguro.Name = "CBTagGanguro" -Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) -Me.CBTagGanguro.TabIndex = 205 -Me.CBTagGanguro.Text = "Ganguro" -Me.CBTagGanguro.UseVisualStyleBackColor = true +Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) +Me.GroupBox51.Controls.Add(Me.CBTagGag) +Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) +Me.GroupBox51.Controls.Add(Me.CBTagWhipping) +Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) +Me.GroupBox51.Controls.Add(Me.CBTagElectro) +Me.GroupBox51.Controls.Add(Me.CBTagHotWax) +Me.GroupBox51.Controls.Add(Me.CBTagClamps) +Me.GroupBox51.Controls.Add(Me.CBTagStrapon) +Me.GroupBox51.Controls.Add(Me.CBTagSpanking) +Me.GroupBox51.Controls.Add(Me.CBTagNeedles) +Me.GroupBox51.Location = New System.Drawing.Point(450, 37) +Me.GroupBox51.Name = "GroupBox51" +Me.GroupBox51.Size = New System.Drawing.Size(105, 238) +Me.GroupBox51.TabIndex = 238 +Me.GroupBox51.TabStop = false +Me.GroupBox51.Text = "BDSM" ' -'CBTagBodyWriting +'CBTagBallTorture ' -Me.CBTagBodyWriting.AutoSize = true -Me.CBTagBodyWriting.Enabled = false -Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) -Me.CBTagBodyWriting.Name = "CBTagBodyWriting" -Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) -Me.CBTagBodyWriting.TabIndex = 208 -Me.CBTagBodyWriting.Text = "Body Writing" -Me.CBTagBodyWriting.UseVisualStyleBackColor = true +Me.CBTagBallTorture.AutoSize = true +Me.CBTagBallTorture.Enabled = false +Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) +Me.CBTagBallTorture.Name = "CBTagBallTorture" +Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) +Me.CBTagBallTorture.TabIndex = 220 +Me.CBTagBallTorture.Text = "Ball Torture" +Me.CBTagBallTorture.UseVisualStyleBackColor = true ' -'CBTagMahouShoujo +'CBTagGag ' -Me.CBTagMahouShoujo.AutoSize = true -Me.CBTagMahouShoujo.Enabled = false -Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black -Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) -Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" -Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) -Me.CBTagMahouShoujo.TabIndex = 209 -Me.CBTagMahouShoujo.Text = "Mahou Shoujo" -Me.CBTagMahouShoujo.UseVisualStyleBackColor = true +Me.CBTagGag.AutoSize = true +Me.CBTagGag.Enabled = false +Me.CBTagGag.ForeColor = System.Drawing.Color.Black +Me.CBTagGag.Location = New System.Drawing.Point(15, 137) +Me.CBTagGag.Name = "CBTagGag" +Me.CBTagGag.Size = New System.Drawing.Size(46, 17) +Me.CBTagGag.TabIndex = 214 +Me.CBTagGag.Text = "Gag" +Me.CBTagGag.UseVisualStyleBackColor = true ' -'CBTagBakunyuu +'CBTagBlindfold ' -Me.CBTagBakunyuu.AutoSize = true -Me.CBTagBakunyuu.Enabled = false -Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black -Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) -Me.CBTagBakunyuu.Name = "CBTagBakunyuu" -Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) -Me.CBTagBakunyuu.TabIndex = 213 -Me.CBTagBakunyuu.Text = "Bakunyuu" -Me.CBTagBakunyuu.UseVisualStyleBackColor = true +Me.CBTagBlindfold.AutoSize = true +Me.CBTagBlindfold.Enabled = false +Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black +Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) +Me.CBTagBlindfold.Name = "CBTagBlindfold" +Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) +Me.CBTagBlindfold.TabIndex = 208 +Me.CBTagBlindfold.Text = "Blindfold" +Me.CBTagBlindfold.UseVisualStyleBackColor = true ' -'CBTagAhegao +'CBTagWhipping ' -Me.CBTagAhegao.AutoSize = true -Me.CBTagAhegao.Enabled = false -Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black -Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) -Me.CBTagAhegao.Name = "CBTagAhegao" -Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) -Me.CBTagAhegao.TabIndex = 207 -Me.CBTagAhegao.Text = "Ahegao" -Me.CBTagAhegao.UseVisualStyleBackColor = true +Me.CBTagWhipping.AutoSize = true +Me.CBTagWhipping.Enabled = false +Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black +Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) +Me.CBTagWhipping.Name = "CBTagWhipping" +Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) +Me.CBTagWhipping.TabIndex = 203 +Me.CBTagWhipping.Text = "Whipping" +Me.CBTagWhipping.UseVisualStyleBackColor = true ' -'CBTagShibari +'CBTagCockTorture ' -Me.CBTagShibari.AutoSize = true -Me.CBTagShibari.Enabled = false -Me.CBTagShibari.ForeColor = System.Drawing.Color.Black -Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) -Me.CBTagShibari.Name = "CBTagShibari" -Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) -Me.CBTagShibari.TabIndex = 203 -Me.CBTagShibari.Text = "Shibari" -Me.CBTagShibari.UseVisualStyleBackColor = true +Me.CBTagCockTorture.AutoSize = true +Me.CBTagCockTorture.Enabled = false +Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) +Me.CBTagCockTorture.Name = "CBTagCockTorture" +Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) +Me.CBTagCockTorture.TabIndex = 204 +Me.CBTagCockTorture.Text = "Cock Torture" +Me.CBTagCockTorture.UseVisualStyleBackColor = true ' -'GroupBox49 +'CBTagElectro ' -Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) -Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) -Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) -Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) -Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) -Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) -Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) -Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) -Me.GroupBox49.Location = New System.Drawing.Point(341, 37) -Me.GroupBox49.Name = "GroupBox49" -Me.GroupBox49.Size = New System.Drawing.Size(103, 238) -Me.GroupBox49.TabIndex = 236 -Me.GroupBox49.TabStop = false -Me.GroupBox49.Text = "Body Part" +Me.CBTagElectro.AutoSize = true +Me.CBTagElectro.Enabled = false +Me.CBTagElectro.ForeColor = System.Drawing.Color.Black +Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) +Me.CBTagElectro.Name = "CBTagElectro" +Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) +Me.CBTagElectro.TabIndex = 207 +Me.CBTagElectro.Text = "Electro" +Me.CBTagElectro.UseVisualStyleBackColor = true ' -'CBTagBodyMouth +'CBTagHotWax ' -Me.CBTagBodyMouth.AutoSize = true -Me.CBTagBodyMouth.Enabled = false -Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) -Me.CBTagBodyMouth.Name = "CBTagBodyMouth" -Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) -Me.CBTagBodyMouth.TabIndex = 220 -Me.CBTagBodyMouth.Text = "Mouth" -Me.CBTagBodyMouth.UseVisualStyleBackColor = true +Me.CBTagHotWax.AutoSize = true +Me.CBTagHotWax.Enabled = false +Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black +Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) +Me.CBTagHotWax.Name = "CBTagHotWax" +Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) +Me.CBTagHotWax.TabIndex = 213 +Me.CBTagHotWax.Text = "Hot Wax" +Me.CBTagHotWax.UseVisualStyleBackColor = true ' -'CBTagBodyAss +'CBTagClamps ' -Me.CBTagBodyAss.AutoSize = true -Me.CBTagBodyAss.Enabled = false -Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) -Me.CBTagBodyAss.Name = "CBTagBodyAss" -Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyAss.TabIndex = 219 -Me.CBTagBodyAss.Text = "Ass" -Me.CBTagBodyAss.UseVisualStyleBackColor = true +Me.CBTagClamps.AutoSize = true +Me.CBTagClamps.Enabled = false +Me.CBTagClamps.ForeColor = System.Drawing.Color.Black +Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) +Me.CBTagClamps.Name = "CBTagClamps" +Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) +Me.CBTagClamps.TabIndex = 210 +Me.CBTagClamps.Text = "Clamps" +Me.CBTagClamps.UseVisualStyleBackColor = true ' -'CBTagBodyFace +'CBTagStrapon ' -Me.CBTagBodyFace.AutoSize = true -Me.CBTagBodyFace.Enabled = false -Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) -Me.CBTagBodyFace.Name = "CBTagBodyFace" -Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagBodyFace.TabIndex = 203 -Me.CBTagBodyFace.Text = "Face" -Me.CBTagBodyFace.UseVisualStyleBackColor = true +Me.CBTagStrapon.AutoSize = true +Me.CBTagStrapon.Enabled = false +Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black +Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) +Me.CBTagStrapon.Name = "CBTagStrapon" +Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) +Me.CBTagStrapon.TabIndex = 205 +Me.CBTagStrapon.Text = "Strap-on" +Me.CBTagStrapon.UseVisualStyleBackColor = true ' -'CBTagBodyLegs +'CBTagSpanking ' -Me.CBTagBodyLegs.AutoSize = true -Me.CBTagBodyLegs.Enabled = false -Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) -Me.CBTagBodyLegs.Name = "CBTagBodyLegs" -Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagBodyLegs.TabIndex = 218 -Me.CBTagBodyLegs.Text = "Legs" -Me.CBTagBodyLegs.UseVisualStyleBackColor = true +Me.CBTagSpanking.AutoSize = true +Me.CBTagSpanking.Enabled = false +Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black +Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) +Me.CBTagSpanking.Name = "CBTagSpanking" +Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) +Me.CBTagSpanking.TabIndex = 206 +Me.CBTagSpanking.Text = "Spanking" +Me.CBTagSpanking.UseVisualStyleBackColor = true ' -'CBTagBodyBalls +'CBTagNeedles ' -Me.CBTagBodyBalls.AutoSize = true -Me.CBTagBodyBalls.Enabled = false -Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) -Me.CBTagBodyBalls.Name = "CBTagBodyBalls" -Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) -Me.CBTagBodyBalls.TabIndex = 217 -Me.CBTagBodyBalls.Text = "Balls" -Me.CBTagBodyBalls.UseVisualStyleBackColor = true +Me.CBTagNeedles.AutoSize = true +Me.CBTagNeedles.Enabled = false +Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black +Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) +Me.CBTagNeedles.Name = "CBTagNeedles" +Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) +Me.CBTagNeedles.TabIndex = 209 +Me.CBTagNeedles.Text = "Needles" +Me.CBTagNeedles.UseVisualStyleBackColor = true ' -'CBTagBodyCock +'GroupBox50 ' -Me.CBTagBodyCock.AutoSize = true -Me.CBTagBodyCock.Enabled = false -Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) -Me.CBTagBodyCock.Name = "CBTagBodyCock" -Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) -Me.CBTagBodyCock.TabIndex = 216 -Me.CBTagBodyCock.Text = "Cock" -Me.CBTagBodyCock.UseVisualStyleBackColor = true +Me.GroupBox50.Controls.Add(Me.CBTagRimming) +Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) +Me.GroupBox50.Controls.Add(Me.CBTagMissionary) +Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) +Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagFingering) +Me.GroupBox50.Controls.Add(Me.CBTagGangbang) +Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) +Me.GroupBox50.Controls.Add(Me.CBTagDP) +Me.GroupBox50.Controls.Add(Me.CBTagHandjob) +Me.GroupBox50.Controls.Add(Me.CBTagStanding) +Me.GroupBox50.Controls.Add(Me.CBTagFootjob) +Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) +Me.GroupBox50.Controls.Add(Me.CBTagTitjob) +Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) +Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) +Me.GroupBox50.Location = New System.Drawing.Point(119, 37) +Me.GroupBox50.Name = "GroupBox50" +Me.GroupBox50.Size = New System.Drawing.Size(105, 358) +Me.GroupBox50.TabIndex = 237 +Me.GroupBox50.TabStop = false +Me.GroupBox50.Text = "Sex" ' -'CBTagBodyFeet +'CBTagRimming ' -Me.CBTagBodyFeet.AutoSize = true -Me.CBTagBodyFeet.Enabled = false -Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) -Me.CBTagBodyFeet.Name = "CBTagBodyFeet" -Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagBodyFeet.TabIndex = 215 -Me.CBTagBodyFeet.Text = "Feet" -Me.CBTagBodyFeet.UseVisualStyleBackColor = true +Me.CBTagRimming.AutoSize = true +Me.CBTagRimming.Enabled = false +Me.CBTagRimming.ForeColor = System.Drawing.Color.Black +Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) +Me.CBTagRimming.Name = "CBTagRimming" +Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) +Me.CBTagRimming.TabIndex = 219 +Me.CBTagRimming.Text = "Rimming" +Me.CBTagRimming.UseVisualStyleBackColor = true ' -'CBTagBodyNipples +'CBTagFacesitting ' -Me.CBTagBodyNipples.AutoSize = true -Me.CBTagBodyNipples.Enabled = false -Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) -Me.CBTagBodyNipples.Name = "CBTagBodyNipples" -Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) -Me.CBTagBodyNipples.TabIndex = 207 -Me.CBTagBodyNipples.Text = "Nipples" -Me.CBTagBodyNipples.UseVisualStyleBackColor = true +Me.CBTagFacesitting.AutoSize = true +Me.CBTagFacesitting.Enabled = false +Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black +Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) +Me.CBTagFacesitting.Name = "CBTagFacesitting" +Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) +Me.CBTagFacesitting.TabIndex = 226 +Me.CBTagFacesitting.Text = "Facesitting" +Me.CBTagFacesitting.UseVisualStyleBackColor = true ' -'CBTagBodyPussy +'CBTagMissionary ' -Me.CBTagBodyPussy.AutoSize = true -Me.CBTagBodyPussy.Enabled = false -Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) -Me.CBTagBodyPussy.Name = "CBTagBodyPussy" -Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagBodyPussy.TabIndex = 209 -Me.CBTagBodyPussy.Text = "Pussy" -Me.CBTagBodyPussy.UseVisualStyleBackColor = true +Me.CBTagMissionary.AutoSize = true +Me.CBTagMissionary.Enabled = false +Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black +Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) +Me.CBTagMissionary.Name = "CBTagMissionary" +Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) +Me.CBTagMissionary.TabIndex = 208 +Me.CBTagMissionary.Text = "Missionary" +Me.CBTagMissionary.UseVisualStyleBackColor = true ' -'CBTagBodyTits +'CBTagMasturbation ' -Me.CBTagBodyTits.AutoSize = true -Me.CBTagBodyTits.Enabled = false -Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) -Me.CBTagBodyTits.Name = "CBTagBodyTits" -Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyTits.TabIndex = 213 -Me.CBTagBodyTits.Text = "Tits" -Me.CBTagBodyTits.UseVisualStyleBackColor = true +Me.CBTagMasturbation.AutoSize = true +Me.CBTagMasturbation.Enabled = false +Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) +Me.CBTagMasturbation.Name = "CBTagMasturbation" +Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbation.TabIndex = 203 +Me.CBTagMasturbation.Text = "Masturbation" +Me.CBTagMasturbation.UseVisualStyleBackColor = true ' -'CBTagBodyFingers +'CBTagRCowgirl ' -Me.CBTagBodyFingers.AutoSize = true -Me.CBTagBodyFingers.Enabled = false -Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) -Me.CBTagBodyFingers.Name = "CBTagBodyFingers" -Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) -Me.CBTagBodyFingers.TabIndex = 210 -Me.CBTagBodyFingers.Text = "Fingers" -Me.CBTagBodyFingers.UseVisualStyleBackColor = true +Me.CBTagRCowgirl.AutoSize = true +Me.CBTagRCowgirl.Enabled = false +Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) +Me.CBTagRCowgirl.Name = "CBTagRCowgirl" +Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) +Me.CBTagRCowgirl.TabIndex = 218 +Me.CBTagRCowgirl.Text = "R. Cowgirl" +Me.CBTagRCowgirl.UseVisualStyleBackColor = true ' -'GroupBox46 +'CBTagFingering ' -Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) -Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) -Me.GroupBox46.Controls.Add(Me.CBTagFemdom) -Me.GroupBox46.Controls.Add(Me.CBTag2M) -Me.GroupBox46.Controls.Add(Me.CBTagFutadom) -Me.GroupBox46.Controls.Add(Me.CBTagFemsub) -Me.GroupBox46.Controls.Add(Me.CBTag2Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMaledom) -Me.GroupBox46.Controls.Add(Me.CBTag3M) -Me.GroupBox46.Controls.Add(Me.CBTagFutasub) -Me.GroupBox46.Controls.Add(Me.CBTag3Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMalesub) -Me.GroupBox46.Controls.Add(Me.CBTag2F) -Me.GroupBox46.Controls.Add(Me.CBTag1Futa) -Me.GroupBox46.Controls.Add(Me.CBTag1M) -Me.GroupBox46.Controls.Add(Me.CBTag1F) -Me.GroupBox46.Controls.Add(Me.CBTag3F) -Me.GroupBox46.Location = New System.Drawing.Point(230, 37) -Me.GroupBox46.Name = "GroupBox46" -Me.GroupBox46.Size = New System.Drawing.Size(105, 358) -Me.GroupBox46.TabIndex = 234 -Me.GroupBox46.TabStop = false -Me.GroupBox46.Text = "Genders && Roles" +Me.CBTagFingering.AutoSize = true +Me.CBTagFingering.Enabled = false +Me.CBTagFingering.ForeColor = System.Drawing.Color.Black +Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) +Me.CBTagFingering.Name = "CBTagFingering" +Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) +Me.CBTagFingering.TabIndex = 204 +Me.CBTagFingering.Text = "Fingering" +Me.CBTagFingering.UseVisualStyleBackColor = true +' +'CBTagGangbang +' +Me.CBTagGangbang.AutoSize = true +Me.CBTagGangbang.Enabled = false +Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black +Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) +Me.CBTagGangbang.Name = "CBTagGangbang" +Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) +Me.CBTagGangbang.TabIndex = 217 +Me.CBTagGangbang.Text = "Gangbang" +Me.CBTagGangbang.UseVisualStyleBackColor = true ' -'CBTagMultiSub +'CBTagBlowjob ' -Me.CBTagMultiSub.AutoSize = true -Me.CBTagMultiSub.Enabled = false -Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) -Me.CBTagMultiSub.Name = "CBTagMultiSub" -Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) -Me.CBTagMultiSub.TabIndex = 207 -Me.CBTagMultiSub.Text = "Multi-Sub" -Me.CBTagMultiSub.UseVisualStyleBackColor = true +Me.CBTagBlowjob.AutoSize = true +Me.CBTagBlowjob.Enabled = false +Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) +Me.CBTagBlowjob.Name = "CBTagBlowjob" +Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBTagBlowjob.TabIndex = 205 +Me.CBTagBlowjob.Text = "Blowjob" +Me.CBTagBlowjob.UseVisualStyleBackColor = true ' -'CBTagMultiDom +'CBTagDP ' -Me.CBTagMultiDom.AutoSize = true -Me.CBTagMultiDom.Enabled = false -Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) -Me.CBTagMultiDom.Name = "CBTagMultiDom" -Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) -Me.CBTagMultiDom.TabIndex = 230 -Me.CBTagMultiDom.Text = "Multi-Dom" -Me.CBTagMultiDom.UseVisualStyleBackColor = true +Me.CBTagDP.AutoSize = true +Me.CBTagDP.Enabled = false +Me.CBTagDP.ForeColor = System.Drawing.Color.Black +Me.CBTagDP.Location = New System.Drawing.Point(15, 317) +Me.CBTagDP.Name = "CBTagDP" +Me.CBTagDP.Size = New System.Drawing.Size(41, 17) +Me.CBTagDP.TabIndex = 216 +Me.CBTagDP.Text = "DP" +Me.CBTagDP.UseVisualStyleBackColor = true ' -'CBTagFemdom +'CBTagHandjob ' -Me.CBTagFemdom.AutoSize = true -Me.CBTagFemdom.Enabled = false -Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black -Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) -Me.CBTagFemdom.Name = "CBTagFemdom" -Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBTagFemdom.TabIndex = 229 -Me.CBTagFemdom.Text = "Femdom" -Me.CBTagFemdom.UseVisualStyleBackColor = true +Me.CBTagHandjob.AutoSize = true +Me.CBTagHandjob.Enabled = false +Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black +Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) +Me.CBTagHandjob.Name = "CBTagHandjob" +Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) +Me.CBTagHandjob.TabIndex = 206 +Me.CBTagHandjob.Text = "Handjob" +Me.CBTagHandjob.UseVisualStyleBackColor = true ' -'CBTag2M +'CBTagStanding ' -Me.CBTag2M.AutoSize = true -Me.CBTag2M.Enabled = false -Me.CBTag2M.ForeColor = System.Drawing.Color.Black -Me.CBTag2M.Location = New System.Drawing.Point(15, 97) -Me.CBTag2M.Name = "CBTag2M" -Me.CBTag2M.Size = New System.Drawing.Size(56, 17) -Me.CBTag2M.TabIndex = 206 -Me.CBTag2M.Text = "2 Men" -Me.CBTag2M.UseVisualStyleBackColor = true +Me.CBTagStanding.AutoSize = true +Me.CBTagStanding.Enabled = false +Me.CBTagStanding.ForeColor = System.Drawing.Color.Black +Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) +Me.CBTagStanding.Name = "CBTagStanding" +Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) +Me.CBTagStanding.TabIndex = 215 +Me.CBTagStanding.Text = "Standing" +Me.CBTagStanding.UseVisualStyleBackColor = true ' -'CBTagFutadom +'CBTagFootjob ' -Me.CBTagFutadom.AutoSize = true -Me.CBTagFutadom.Enabled = false -Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black -Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) -Me.CBTagFutadom.Name = "CBTagFutadom" -Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) -Me.CBTagFutadom.TabIndex = 204 -Me.CBTagFutadom.Text = "Futadom" -Me.CBTagFutadom.UseVisualStyleBackColor = true +Me.CBTagFootjob.AutoSize = true +Me.CBTagFootjob.Enabled = false +Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black +Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) +Me.CBTagFootjob.Name = "CBTagFootjob" +Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) +Me.CBTagFootjob.TabIndex = 207 +Me.CBTagFootjob.Text = "Footjob" +Me.CBTagFootjob.UseVisualStyleBackColor = true ' -'CBTagFemsub +'CBTagCowgirl ' -Me.CBTagFemsub.AutoSize = true -Me.CBTagFemsub.Enabled = false -Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black -Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) -Me.CBTagFemsub.Name = "CBTagFemsub" -Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBTagFemsub.TabIndex = 205 -Me.CBTagFemsub.Text = "Femsub" -Me.CBTagFemsub.UseVisualStyleBackColor = true +Me.CBTagCowgirl.AutoSize = true +Me.CBTagCowgirl.Enabled = false +Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) +Me.CBTagCowgirl.Name = "CBTagCowgirl" +Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) +Me.CBTagCowgirl.TabIndex = 214 +Me.CBTagCowgirl.Text = "Cowgirl" +Me.CBTagCowgirl.UseVisualStyleBackColor = true ' -'CBTag2Futa +'CBTagDoggyStyle ' -Me.CBTag2Futa.AutoSize = true -Me.CBTag2Futa.Enabled = false -Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) -Me.CBTag2Futa.Name = "CBTag2Futa" -Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag2Futa.TabIndex = 186 -Me.CBTag2Futa.Text = "2 Futa" -Me.CBTag2Futa.UseVisualStyleBackColor = true +Me.CBTagDoggyStyle.AutoSize = true +Me.CBTagDoggyStyle.Enabled = false +Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black +Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) +Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" +Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) +Me.CBTagDoggyStyle.TabIndex = 209 +Me.CBTagDoggyStyle.Text = "Doggy Style" +Me.CBTagDoggyStyle.UseVisualStyleBackColor = true ' -'CBTagMaledom +'CBTagTitjob ' -Me.CBTagMaledom.AutoSize = true -Me.CBTagMaledom.Enabled = false -Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black -Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) -Me.CBTagMaledom.Name = "CBTagMaledom" -Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) -Me.CBTagMaledom.TabIndex = 206 -Me.CBTagMaledom.Text = "Maledom" -Me.CBTagMaledom.UseVisualStyleBackColor = true +Me.CBTagTitjob.AutoSize = true +Me.CBTagTitjob.Enabled = false +Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black +Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) +Me.CBTagTitjob.Name = "CBTagTitjob" +Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) +Me.CBTagTitjob.TabIndex = 213 +Me.CBTagTitjob.Text = "Titjob" +Me.CBTagTitjob.UseVisualStyleBackColor = true ' -'CBTag3M +'CBTagCunnilingus ' -Me.CBTag3M.AutoSize = true -Me.CBTag3M.Enabled = false -Me.CBTag3M.ForeColor = System.Drawing.Color.Black -Me.CBTag3M.Location = New System.Drawing.Point(15, 117) -Me.CBTag3M.Name = "CBTag3M" -Me.CBTag3M.Size = New System.Drawing.Size(56, 17) -Me.CBTag3M.TabIndex = 190 -Me.CBTag3M.Text = "3 Men" -Me.CBTag3M.UseVisualStyleBackColor = true +Me.CBTagCunnilingus.AutoSize = true +Me.CBTagCunnilingus.Enabled = false +Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black +Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) +Me.CBTagCunnilingus.Name = "CBTagCunnilingus" +Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) +Me.CBTagCunnilingus.TabIndex = 210 +Me.CBTagCunnilingus.Text = "Cunnilingus" +Me.CBTagCunnilingus.UseVisualStyleBackColor = true ' -'CBTagFutasub +'CBTagAnalSex ' -Me.CBTagFutasub.AutoSize = true -Me.CBTagFutasub.Enabled = false -Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black -Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) -Me.CBTagFutasub.Name = "CBTagFutasub" -Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) -Me.CBTagFutasub.TabIndex = 213 -Me.CBTagFutasub.Text = "Futasub" -Me.CBTagFutasub.UseVisualStyleBackColor = true +Me.CBTagAnalSex.AutoSize = true +Me.CBTagAnalSex.Enabled = false +Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) +Me.CBTagAnalSex.Name = "CBTagAnalSex" +Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalSex.TabIndex = 212 +Me.CBTagAnalSex.Text = "Anal Sex" +Me.CBTagAnalSex.UseVisualStyleBackColor = true ' -'CBTag3Futa +'GroupBox48 ' -Me.CBTag3Futa.AutoSize = true -Me.CBTag3Futa.Enabled = false -Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) -Me.CBTag3Futa.Name = "CBTag3Futa" -Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag3Futa.TabIndex = 197 -Me.CBTag3Futa.Text = "3 Futa" -Me.CBTag3Futa.UseVisualStyleBackColor = true +Me.GroupBox48.Controls.Add(Me.CBTagArtwork) +Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) +Me.GroupBox48.Controls.Add(Me.CBTagPOV) +Me.GroupBox48.Controls.Add(Me.CBTagHardcore) +Me.GroupBox48.Controls.Add(Me.CBTagTD) +Me.GroupBox48.Controls.Add(Me.CBTagGay) +Me.GroupBox48.Controls.Add(Me.CBTagBath) +Me.GroupBox48.Controls.Add(Me.CBTagBisexual) +Me.GroupBox48.Controls.Add(Me.CBTagCFNM) +Me.GroupBox48.Controls.Add(Me.CBTagLesbian) +Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) +Me.GroupBox48.Controls.Add(Me.CBTagSM) +Me.GroupBox48.Controls.Add(Me.CBTagBondage) +Me.GroupBox48.Controls.Add(Me.CBTagSoloM) +Me.GroupBox48.Controls.Add(Me.CBTagSoloF) +Me.GroupBox48.Controls.Add(Me.CBTagChastity) +Me.GroupBox48.Controls.Add(Me.CBTagShower) +Me.GroupBox48.Location = New System.Drawing.Point(8, 37) +Me.GroupBox48.Name = "GroupBox48" +Me.GroupBox48.Size = New System.Drawing.Size(105, 358) +Me.GroupBox48.TabIndex = 235 +Me.GroupBox48.TabStop = false +Me.GroupBox48.Text = "Category" +' +'CBTagArtwork +' +Me.CBTagArtwork.AutoSize = true +Me.CBTagArtwork.Enabled = false +Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black +Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) +Me.CBTagArtwork.Name = "CBTagArtwork" +Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) +Me.CBTagArtwork.TabIndex = 225 +Me.CBTagArtwork.Text = "Artwork" +Me.CBTagArtwork.UseVisualStyleBackColor = true +' +'CBTagOutdoors ' -'CBTagMalesub +Me.CBTagOutdoors.AutoSize = true +Me.CBTagOutdoors.Enabled = false +Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black +Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) +Me.CBTagOutdoors.Name = "CBTagOutdoors" +Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) +Me.CBTagOutdoors.TabIndex = 219 +Me.CBTagOutdoors.Text = "Outdoors" +Me.CBTagOutdoors.UseVisualStyleBackColor = true ' -Me.CBTagMalesub.AutoSize = true -Me.CBTagMalesub.Enabled = false -Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black -Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) -Me.CBTagMalesub.Name = "CBTagMalesub" -Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) -Me.CBTagMalesub.TabIndex = 210 -Me.CBTagMalesub.Text = "Malesub" -Me.CBTagMalesub.UseVisualStyleBackColor = true +'CBTagPOV ' -'CBTag2F +Me.CBTagPOV.AutoSize = true +Me.CBTagPOV.Enabled = false +Me.CBTagPOV.ForeColor = System.Drawing.Color.Black +Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) +Me.CBTagPOV.Name = "CBTagPOV" +Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) +Me.CBTagPOV.TabIndex = 208 +Me.CBTagPOV.Text = "POV" +Me.CBTagPOV.UseVisualStyleBackColor = true ' -Me.CBTag2F.AutoSize = true -Me.CBTag2F.Enabled = false -Me.CBTag2F.ForeColor = System.Drawing.Color.Black -Me.CBTag2F.Location = New System.Drawing.Point(15, 37) -Me.CBTag2F.Name = "CBTag2F" -Me.CBTag2F.Size = New System.Drawing.Size(72, 17) -Me.CBTag2F.TabIndex = 188 -Me.CBTag2F.Text = "2 Women" -Me.CBTag2F.UseVisualStyleBackColor = true +'CBTagHardcore ' -'CBTag1Futa +Me.CBTagHardcore.AutoSize = true +Me.CBTagHardcore.Enabled = false +Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black +Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) +Me.CBTagHardcore.Name = "CBTagHardcore" +Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBTagHardcore.TabIndex = 203 +Me.CBTagHardcore.Text = "Hardcore" +Me.CBTagHardcore.UseVisualStyleBackColor = true ' -Me.CBTag1Futa.AutoSize = true -Me.CBTag1Futa.Enabled = false -Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) -Me.CBTag1Futa.Name = "CBTag1Futa" -Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag1Futa.TabIndex = 191 -Me.CBTag1Futa.Text = "1 Futa" -Me.CBTag1Futa.UseVisualStyleBackColor = true +'CBTagTD ' -'CBTag1M +Me.CBTagTD.AutoSize = true +Me.CBTagTD.Enabled = false +Me.CBTagTD.ForeColor = System.Drawing.Color.Black +Me.CBTagTD.Location = New System.Drawing.Point(15, 217) +Me.CBTagTD.Name = "CBTagTD" +Me.CBTagTD.Size = New System.Drawing.Size(47, 17) +Me.CBTagTD.TabIndex = 218 +Me.CBTagTD.Text = "T&&D" +Me.CBTagTD.UseVisualStyleBackColor = true ' -Me.CBTag1M.AutoSize = true -Me.CBTag1M.Enabled = false -Me.CBTag1M.ForeColor = System.Drawing.Color.Black -Me.CBTag1M.Location = New System.Drawing.Point(15, 77) -Me.CBTag1M.Name = "CBTag1M" -Me.CBTag1M.Size = New System.Drawing.Size(56, 17) -Me.CBTag1M.TabIndex = 189 -Me.CBTag1M.Text = "1 Man" -Me.CBTag1M.UseVisualStyleBackColor = true +'CBTagGay ' -'CBTag1F +Me.CBTagGay.AutoSize = true +Me.CBTagGay.Enabled = false +Me.CBTagGay.ForeColor = System.Drawing.Color.Black +Me.CBTagGay.Location = New System.Drawing.Point(15, 57) +Me.CBTagGay.Name = "CBTagGay" +Me.CBTagGay.Size = New System.Drawing.Size(45, 17) +Me.CBTagGay.TabIndex = 204 +Me.CBTagGay.Text = "Gay" +Me.CBTagGay.UseVisualStyleBackColor = true ' -Me.CBTag1F.AutoSize = true -Me.CBTag1F.Enabled = false -Me.CBTag1F.ForeColor = System.Drawing.Color.Black -Me.CBTag1F.Location = New System.Drawing.Point(15, 17) -Me.CBTag1F.Name = "CBTag1F" -Me.CBTag1F.Size = New System.Drawing.Size(72, 17) -Me.CBTag1F.TabIndex = 185 -Me.CBTag1F.Text = "1 Woman" -Me.CBTag1F.UseVisualStyleBackColor = true +'CBTagBath ' -'CBTag3F +Me.CBTagBath.AutoSize = true +Me.CBTagBath.Enabled = false +Me.CBTagBath.ForeColor = System.Drawing.Color.Black +Me.CBTagBath.Location = New System.Drawing.Point(15, 277) +Me.CBTagBath.Name = "CBTagBath" +Me.CBTagBath.Size = New System.Drawing.Size(48, 17) +Me.CBTagBath.TabIndex = 217 +Me.CBTagBath.Text = "Bath" +Me.CBTagBath.UseVisualStyleBackColor = true ' -Me.CBTag3F.AutoSize = true -Me.CBTag3F.Enabled = false -Me.CBTag3F.ForeColor = System.Drawing.Color.Black -Me.CBTag3F.Location = New System.Drawing.Point(15, 57) -Me.CBTag3F.Name = "CBTag3F" -Me.CBTag3F.Size = New System.Drawing.Size(72, 17) -Me.CBTag3F.TabIndex = 192 -Me.CBTag3F.Text = "3 Women" -Me.CBTag3F.UseVisualStyleBackColor = true +'CBTagBisexual ' -'GroupBox54 +Me.CBTagBisexual.AutoSize = true +Me.CBTagBisexual.Enabled = false +Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black +Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) +Me.CBTagBisexual.Name = "CBTagBisexual" +Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) +Me.CBTagBisexual.TabIndex = 205 +Me.CBTagBisexual.Text = "Bisexual" +Me.CBTagBisexual.UseVisualStyleBackColor = true ' -Me.GroupBox54.Controls.Add(Me.CBTagTattoos) -Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) -Me.GroupBox54.Controls.Add(Me.CBTagDomme) -Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) -Me.GroupBox54.Controls.Add(Me.CBTagWatersports) -Me.GroupBox54.Controls.Add(Me.CBTagStockings) -Me.GroupBox54.Controls.Add(Me.CBTagCumshot) -Me.GroupBox54.Controls.Add(Me.CBTagCumEating) -Me.GroupBox54.Controls.Add(Me.CBTagVibrator) -Me.GroupBox54.Controls.Add(Me.CBTagDildo) -Me.GroupBox54.Controls.Add(Me.CBTagKissing) -Me.GroupBox54.Location = New System.Drawing.Point(561, 37) -Me.GroupBox54.Name = "GroupBox54" -Me.GroupBox54.Size = New System.Drawing.Size(135, 238) -Me.GroupBox54.TabIndex = 239 -Me.GroupBox54.TabStop = false -Me.GroupBox54.Text = "Misc" +'CBTagCFNM ' -'CBTagTattoos +Me.CBTagCFNM.AutoSize = true +Me.CBTagCFNM.Enabled = false +Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black +Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) +Me.CBTagCFNM.Name = "CBTagCFNM" +Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) +Me.CBTagCFNM.TabIndex = 216 +Me.CBTagCFNM.Text = "CFNM" +Me.CBTagCFNM.UseVisualStyleBackColor = true ' -Me.CBTagTattoos.AutoSize = true -Me.CBTagTattoos.Enabled = false -Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) -Me.CBTagTattoos.Name = "CBTagTattoos" -Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBTagTattoos.TabIndex = 214 -Me.CBTagTattoos.Text = "Tattoos" -Me.CBTagTattoos.UseVisualStyleBackColor = true +'CBTagLesbian ' -'CBTagAnalToy +Me.CBTagLesbian.AutoSize = true +Me.CBTagLesbian.Enabled = false +Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black +Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) +Me.CBTagLesbian.Name = "CBTagLesbian" +Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBTagLesbian.TabIndex = 206 +Me.CBTagLesbian.Text = "Lesbian" +Me.CBTagLesbian.UseVisualStyleBackColor = true ' -Me.CBTagAnalToy.AutoSize = true -Me.CBTagAnalToy.Enabled = false -Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) -Me.CBTagAnalToy.Name = "CBTagAnalToy" -Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalToy.TabIndex = 215 -Me.CBTagAnalToy.Text = "Anal Toy" -Me.CBTagAnalToy.UseVisualStyleBackColor = true +'CBTagSoloFuta ' -'CBTagDomme +Me.CBTagSoloFuta.AutoSize = true +Me.CBTagSoloFuta.Enabled = false +Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) +Me.CBTagSoloFuta.Name = "CBTagSoloFuta" +Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) +Me.CBTagSoloFuta.TabIndex = 207 +Me.CBTagSoloFuta.Text = "Solo Futa" +Me.CBTagSoloFuta.UseVisualStyleBackColor = true ' -Me.CBTagDomme.AutoSize = true -Me.CBTagDomme.Enabled = false -Me.CBTagDomme.ForeColor = System.Drawing.Color.Black -Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) -Me.CBTagDomme.Name = "CBTagDomme" -Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) -Me.CBTagDomme.TabIndex = 219 -Me.CBTagDomme.Text = "Tease A.I. Domme" -Me.CBTagDomme.UseVisualStyleBackColor = true +'CBTagSM ' -'CBTagPocketPussy +Me.CBTagSM.AutoSize = true +Me.CBTagSM.Enabled = false +Me.CBTagSM.ForeColor = System.Drawing.Color.Black +Me.CBTagSM.Location = New System.Drawing.Point(15, 197) +Me.CBTagSM.Name = "CBTagSM" +Me.CBTagSM.Size = New System.Drawing.Size(48, 17) +Me.CBTagSM.TabIndex = 214 +Me.CBTagSM.Text = "S&&M" +Me.CBTagSM.UseVisualStyleBackColor = true ' -Me.CBTagPocketPussy.AutoSize = true -Me.CBTagPocketPussy.Enabled = false -Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) -Me.CBTagPocketPussy.Name = "CBTagPocketPussy" -Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) -Me.CBTagPocketPussy.TabIndex = 205 -Me.CBTagPocketPussy.Text = "Pocket Pussy" -Me.CBTagPocketPussy.UseVisualStyleBackColor = true +'CBTagBondage ' -'CBTagWatersports +Me.CBTagBondage.AutoSize = true +Me.CBTagBondage.Enabled = false +Me.CBTagBondage.ForeColor = System.Drawing.Color.Black +Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) +Me.CBTagBondage.Name = "CBTagBondage" +Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) +Me.CBTagBondage.TabIndex = 209 +Me.CBTagBondage.Text = "Bondage" +Me.CBTagBondage.UseVisualStyleBackColor = true ' -Me.CBTagWatersports.AutoSize = true -Me.CBTagWatersports.Enabled = false -Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black -Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) -Me.CBTagWatersports.Name = "CBTagWatersports" -Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) -Me.CBTagWatersports.TabIndex = 218 -Me.CBTagWatersports.Text = "Watersports" -Me.CBTagWatersports.UseVisualStyleBackColor = true +'CBTagSoloM +' +Me.CBTagSoloM.AutoSize = true +Me.CBTagSoloM.Enabled = false +Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) +Me.CBTagSoloM.Name = "CBTagSoloM" +Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) +Me.CBTagSoloM.TabIndex = 213 +Me.CBTagSoloM.Text = "Solo M" +Me.CBTagSoloM.UseVisualStyleBackColor = true ' -'CBTagStockings +'CBTagSoloF ' -Me.CBTagStockings.AutoSize = true -Me.CBTagStockings.Enabled = false -Me.CBTagStockings.ForeColor = System.Drawing.Color.Black -Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) -Me.CBTagStockings.Name = "CBTagStockings" -Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) -Me.CBTagStockings.TabIndex = 217 -Me.CBTagStockings.Text = "Stockings" -Me.CBTagStockings.UseVisualStyleBackColor = true +Me.CBTagSoloF.AutoSize = true +Me.CBTagSoloF.Enabled = false +Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) +Me.CBTagSoloF.Name = "CBTagSoloF" +Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) +Me.CBTagSoloF.TabIndex = 210 +Me.CBTagSoloF.Text = "Solo F" +Me.CBTagSoloF.UseVisualStyleBackColor = true ' -'CBTagCumshot +'CBTagChastity ' -Me.CBTagCumshot.AutoSize = true -Me.CBTagCumshot.Enabled = false -Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black -Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) -Me.CBTagCumshot.Name = "CBTagCumshot" -Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) -Me.CBTagCumshot.TabIndex = 206 -Me.CBTagCumshot.Text = "Cumshot" -Me.CBTagCumshot.UseVisualStyleBackColor = true +Me.CBTagChastity.AutoSize = true +Me.CBTagChastity.Enabled = false +Me.CBTagChastity.ForeColor = System.Drawing.Color.Black +Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) +Me.CBTagChastity.Name = "CBTagChastity" +Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) +Me.CBTagChastity.TabIndex = 212 +Me.CBTagChastity.Text = "Chastity" +Me.CBTagChastity.UseVisualStyleBackColor = true ' -'CBTagCumEating +'CBTagShower ' -Me.CBTagCumEating.AutoSize = true -Me.CBTagCumEating.Enabled = false -Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black -Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) -Me.CBTagCumEating.Name = "CBTagCumEating" -Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) -Me.CBTagCumEating.TabIndex = 204 -Me.CBTagCumEating.Text = "Cum Eating" -Me.CBTagCumEating.UseVisualStyleBackColor = true +Me.CBTagShower.AutoSize = true +Me.CBTagShower.Enabled = false +Me.CBTagShower.ForeColor = System.Drawing.Color.Black +Me.CBTagShower.Location = New System.Drawing.Point(15, 297) +Me.CBTagShower.Name = "CBTagShower" +Me.CBTagShower.Size = New System.Drawing.Size(62, 17) +Me.CBTagShower.TabIndex = 211 +Me.CBTagShower.Text = "Shower" +Me.CBTagShower.UseVisualStyleBackColor = true ' -'CBTagVibrator +'TBLocalTagDir ' -Me.CBTagVibrator.AutoSize = true -Me.CBTagVibrator.Enabled = false -Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black -Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) -Me.CBTagVibrator.Name = "CBTagVibrator" -Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) -Me.CBTagVibrator.TabIndex = 210 -Me.CBTagVibrator.Text = "Vibrator" -Me.CBTagVibrator.UseVisualStyleBackColor = true +Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBLocalTagDir.Name = "TBLocalTagDir" +Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBLocalTagDir.TabIndex = 233 +Me.TBLocalTagDir.Text = "Enter Image Directory" ' -'CBTagDildo +'BTNLocalTagPrevious ' -Me.CBTagDildo.AutoSize = true -Me.CBTagDildo.Enabled = false -Me.CBTagDildo.ForeColor = System.Drawing.Color.Black -Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) -Me.CBTagDildo.Name = "CBTagDildo" -Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) -Me.CBTagDildo.TabIndex = 213 -Me.CBTagDildo.Text = "Dildo" -Me.CBTagDildo.UseVisualStyleBackColor = true +Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagPrevious.Enabled = false +Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" +Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagPrevious.TabIndex = 232 +Me.BTNLocalTagPrevious.Text = "<<" +Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false ' -'CBTagKissing +'BTNLocalTagNext ' -Me.CBTagKissing.AutoSize = true -Me.CBTagKissing.Enabled = false -Me.CBTagKissing.ForeColor = System.Drawing.Color.Black -Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) -Me.CBTagKissing.Name = "CBTagKissing" -Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) -Me.CBTagKissing.TabIndex = 203 -Me.CBTagKissing.Text = "Kissing" -Me.CBTagKissing.UseVisualStyleBackColor = true +Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagNext.Enabled = false +Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNLocalTagNext.Name = "BTNLocalTagNext" +Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagNext.TabIndex = 231 +Me.BTNLocalTagNext.Text = ">>" +Me.BTNLocalTagNext.UseVisualStyleBackColor = false ' -'GroupBox51 +'LBLLocalTagCount ' -Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) -Me.GroupBox51.Controls.Add(Me.CBTagGag) -Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) -Me.GroupBox51.Controls.Add(Me.CBTagWhipping) -Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) -Me.GroupBox51.Controls.Add(Me.CBTagElectro) -Me.GroupBox51.Controls.Add(Me.CBTagHotWax) -Me.GroupBox51.Controls.Add(Me.CBTagClamps) -Me.GroupBox51.Controls.Add(Me.CBTagStrapon) -Me.GroupBox51.Controls.Add(Me.CBTagSpanking) -Me.GroupBox51.Controls.Add(Me.CBTagNeedles) -Me.GroupBox51.Location = New System.Drawing.Point(450, 37) -Me.GroupBox51.Name = "GroupBox51" -Me.GroupBox51.Size = New System.Drawing.Size(105, 238) -Me.GroupBox51.TabIndex = 238 -Me.GroupBox51.TabStop = false -Me.GroupBox51.Text = "BDSM" +Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLLocalTagCount.Enabled = false +Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLLocalTagCount.Name = "LBLLocalTagCount" +Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLLocalTagCount.TabIndex = 230 +Me.LBLLocalTagCount.Text = "0/0" +Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagBallTorture +'BTNLocalTagSave ' -Me.CBTagBallTorture.AutoSize = true -Me.CBTagBallTorture.Enabled = false -Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) -Me.CBTagBallTorture.Name = "CBTagBallTorture" -Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) -Me.CBTagBallTorture.TabIndex = 220 -Me.CBTagBallTorture.Text = "Ball Torture" -Me.CBTagBallTorture.UseVisualStyleBackColor = true +Me.BTNLocalTagSave.Enabled = false +Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNLocalTagSave.Name = "BTNLocalTagSave" +Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNLocalTagSave.TabIndex = 229 +Me.BTNLocalTagSave.Text = "Finished" +Me.BTNLocalTagSave.UseVisualStyleBackColor = true ' -'CBTagGag +'BTNLocalTagDir ' -Me.CBTagGag.AutoSize = true -Me.CBTagGag.Enabled = false -Me.CBTagGag.ForeColor = System.Drawing.Color.Black -Me.CBTagGag.Location = New System.Drawing.Point(15, 137) -Me.CBTagGag.Name = "CBTagGag" -Me.CBTagGag.Size = New System.Drawing.Size(46, 17) -Me.CBTagGag.TabIndex = 214 -Me.CBTagGag.Text = "Gag" -Me.CBTagGag.UseVisualStyleBackColor = true +Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNLocalTagDir.Name = "BTNLocalTagDir" +Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNLocalTagDir.TabIndex = 228 +Me.BTNLocalTagDir.Text = "1" +Me.BTNLocalTagDir.UseVisualStyleBackColor = true ' -'CBTagBlindfold +'TabPage11 ' -Me.CBTagBlindfold.AutoSize = true -Me.CBTagBlindfold.Enabled = false -Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black -Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) -Me.CBTagBlindfold.Name = "CBTagBlindfold" -Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) -Me.CBTagBlindfold.TabIndex = 208 -Me.CBTagBlindfold.Text = "Blindfold" -Me.CBTagBlindfold.UseVisualStyleBackColor = true +Me.TabPage11.BackColor = System.Drawing.Color.Silver +Me.TabPage11.Controls.Add(Me.Panel7) +Me.TabPage11.Location = New System.Drawing.Point(4, 22) +Me.TabPage11.Name = "TabPage11" +Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage11.Size = New System.Drawing.Size(720, 448) +Me.TabPage11.TabIndex = 10 +Me.TabPage11.Text = "URL Files" ' -'CBTagWhipping +'Panel7 ' -Me.CBTagWhipping.AutoSize = true -Me.CBTagWhipping.Enabled = false -Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black -Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) -Me.CBTagWhipping.Name = "CBTagWhipping" -Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) -Me.CBTagWhipping.TabIndex = 203 -Me.CBTagWhipping.Text = "Whipping" -Me.CBTagWhipping.UseVisualStyleBackColor = true +Me.Panel7.BackColor = System.Drawing.Color.LightGray +Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel7.Controls.Add(Me.BTNWIContinue) +Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) +Me.Panel7.Controls.Add(Me.BTNWICancel) +Me.Panel7.Controls.Add(Me.CBWIReview) +Me.Panel7.Controls.Add(Me.BTNWIBrowse) +Me.Panel7.Controls.Add(Me.TBWIDirectory) +Me.Panel7.Controls.Add(Me.BTNWIDisliked) +Me.Panel7.Controls.Add(Me.BTNWILiked) +Me.Panel7.Controls.Add(Me.BTNWIRemove) +Me.Panel7.Controls.Add(Me.CBWISaveToDisk) +Me.Panel7.Controls.Add(Me.PictureBox5) +Me.Panel7.Controls.Add(Me.WebImageProgressBar) +Me.Panel7.Controls.Add(Me.BTNWICreateURL) +Me.Panel7.Controls.Add(Me.LBLWebImageCount) +Me.Panel7.Controls.Add(Me.BTNWISave) +Me.Panel7.Controls.Add(Me.BTNWIOpenURL) +Me.Panel7.Controls.Add(Me.BTNWIPrevious) +Me.Panel7.Controls.Add(Me.BTNWINext) +Me.Panel7.Controls.Add(Me.WebPictureBox) +Me.Panel7.Controls.Add(Me.Label71) +Me.Panel7.Location = New System.Drawing.Point(6, 6) +Me.Panel7.Name = "Panel7" +Me.Panel7.Size = New System.Drawing.Size(708, 437) +Me.Panel7.TabIndex = 91 ' -'CBTagCockTorture +'BTNWIContinue ' -Me.CBTagCockTorture.AutoSize = true -Me.CBTagCockTorture.Enabled = false -Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) -Me.CBTagCockTorture.Name = "CBTagCockTorture" -Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) -Me.CBTagCockTorture.TabIndex = 204 -Me.CBTagCockTorture.Text = "Cock Torture" -Me.CBTagCockTorture.UseVisualStyleBackColor = true +Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIContinue.Enabled = false +Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) +Me.BTNWIContinue.Name = "BTNWIContinue" +Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIContinue.TabIndex = 168 +Me.BTNWIContinue.Text = "Continue" +Me.BTNWIContinue.UseVisualStyleBackColor = false ' -'CBTagElectro +'BTNWIAddandContinue ' -Me.CBTagElectro.AutoSize = true -Me.CBTagElectro.Enabled = false -Me.CBTagElectro.ForeColor = System.Drawing.Color.Black -Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) -Me.CBTagElectro.Name = "CBTagElectro" -Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) -Me.CBTagElectro.TabIndex = 207 -Me.CBTagElectro.Text = "Electro" -Me.CBTagElectro.UseVisualStyleBackColor = true +Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIAddandContinue.Enabled = false +Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) +Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" +Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIAddandContinue.TabIndex = 167 +Me.BTNWIAddandContinue.Text = "Add and Continue" +Me.BTNWIAddandContinue.UseVisualStyleBackColor = false ' -'CBTagHotWax +'BTNWICancel ' -Me.CBTagHotWax.AutoSize = true -Me.CBTagHotWax.Enabled = false -Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black -Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) -Me.CBTagHotWax.Name = "CBTagHotWax" -Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) -Me.CBTagHotWax.TabIndex = 213 -Me.CBTagHotWax.Text = "Hot Wax" -Me.CBTagHotWax.UseVisualStyleBackColor = true +Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray +Me.BTNWICancel.Enabled = false +Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICancel.ForeColor = System.Drawing.Color.Black +Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) +Me.BTNWICancel.Name = "BTNWICancel" +Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) +Me.BTNWICancel.TabIndex = 166 +Me.BTNWICancel.Text = "Cancel" +Me.BTNWICancel.UseVisualStyleBackColor = false ' -'CBTagClamps +'CBWIReview ' -Me.CBTagClamps.AutoSize = true -Me.CBTagClamps.Enabled = false -Me.CBTagClamps.ForeColor = System.Drawing.Color.Black -Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) -Me.CBTagClamps.Name = "CBTagClamps" -Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) -Me.CBTagClamps.TabIndex = 210 -Me.CBTagClamps.Text = "Clamps" -Me.CBTagClamps.UseVisualStyleBackColor = true +Me.CBWIReview.Location = New System.Drawing.Point(567, 69) +Me.CBWIReview.Name = "CBWIReview" +Me.CBWIReview.Size = New System.Drawing.Size(124, 30) +Me.CBWIReview.TabIndex = 165 +Me.CBWIReview.Text = "Review Each Image" +Me.CBWIReview.UseVisualStyleBackColor = true ' -'CBTagStrapon +'BTNWIBrowse ' -Me.CBTagStrapon.AutoSize = true -Me.CBTagStrapon.Enabled = false -Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black -Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) -Me.CBTagStrapon.Name = "CBTagStrapon" -Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) -Me.CBTagStrapon.TabIndex = 205 -Me.CBTagStrapon.Text = "Strap-on" -Me.CBTagStrapon.UseVisualStyleBackColor = true +Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray +Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black +Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) +Me.BTNWIBrowse.Name = "BTNWIBrowse" +Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) +Me.BTNWIBrowse.TabIndex = 163 +Me.BTNWIBrowse.Text = "Browse" +Me.BTNWIBrowse.UseVisualStyleBackColor = false ' -'CBTagSpanking +'TBWIDirectory ' -Me.CBTagSpanking.AutoSize = true -Me.CBTagSpanking.Enabled = false -Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black -Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) -Me.CBTagSpanking.Name = "CBTagSpanking" -Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) -Me.CBTagSpanking.TabIndex = 206 -Me.CBTagSpanking.Text = "Spanking" -Me.CBTagSpanking.UseVisualStyleBackColor = true +Me.TBWIDirectory.BackColor = System.Drawing.Color.White +Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black +Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) +Me.TBWIDirectory.Name = "TBWIDirectory" +Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) +Me.TBWIDirectory.TabIndex = 164 +Me.TBWIDirectory.Text = "Saved Image Directory" ' -'CBTagNeedles +'BTNWIDisliked ' -Me.CBTagNeedles.AutoSize = true -Me.CBTagNeedles.Enabled = false -Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black -Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) -Me.CBTagNeedles.Name = "CBTagNeedles" -Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) -Me.CBTagNeedles.TabIndex = 209 -Me.CBTagNeedles.Text = "Needles" -Me.CBTagNeedles.UseVisualStyleBackColor = true +Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray +Me.BTNWIDisliked.Enabled = false +Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black +Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) +Me.BTNWIDisliked.Name = "BTNWIDisliked" +Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) +Me.BTNWIDisliked.TabIndex = 162 +Me.BTNWIDisliked.Text = "Add to Disliked Images" +Me.BTNWIDisliked.UseVisualStyleBackColor = false ' -'GroupBox50 +'BTNWILiked ' -Me.GroupBox50.Controls.Add(Me.CBTagRimming) -Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) -Me.GroupBox50.Controls.Add(Me.CBTagMissionary) -Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) -Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagFingering) -Me.GroupBox50.Controls.Add(Me.CBTagGangbang) -Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) -Me.GroupBox50.Controls.Add(Me.CBTagDP) -Me.GroupBox50.Controls.Add(Me.CBTagHandjob) -Me.GroupBox50.Controls.Add(Me.CBTagStanding) -Me.GroupBox50.Controls.Add(Me.CBTagFootjob) -Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) -Me.GroupBox50.Controls.Add(Me.CBTagTitjob) -Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) -Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) -Me.GroupBox50.Location = New System.Drawing.Point(119, 37) -Me.GroupBox50.Name = "GroupBox50" -Me.GroupBox50.Size = New System.Drawing.Size(105, 358) -Me.GroupBox50.TabIndex = 237 -Me.GroupBox50.TabStop = false -Me.GroupBox50.Text = "Sex" +Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray +Me.BTNWILiked.Enabled = false +Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWILiked.ForeColor = System.Drawing.Color.Black +Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) +Me.BTNWILiked.Name = "BTNWILiked" +Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) +Me.BTNWILiked.TabIndex = 161 +Me.BTNWILiked.Text = "Add to Liked Images" +Me.BTNWILiked.UseVisualStyleBackColor = false ' -'CBTagRimming +'BTNWIRemove ' -Me.CBTagRimming.AutoSize = true -Me.CBTagRimming.Enabled = false -Me.CBTagRimming.ForeColor = System.Drawing.Color.Black -Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) -Me.CBTagRimming.Name = "CBTagRimming" -Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) -Me.CBTagRimming.TabIndex = 219 -Me.CBTagRimming.Text = "Rimming" -Me.CBTagRimming.UseVisualStyleBackColor = true +Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray +Me.BTNWIRemove.Enabled = false +Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black +Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) +Me.BTNWIRemove.Name = "BTNWIRemove" +Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) +Me.BTNWIRemove.TabIndex = 160 +Me.BTNWIRemove.Text = "Remove From URL File" +Me.BTNWIRemove.UseVisualStyleBackColor = false ' -'CBTagFacesitting +'CBWISaveToDisk ' -Me.CBTagFacesitting.AutoSize = true -Me.CBTagFacesitting.Enabled = false -Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black -Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) -Me.CBTagFacesitting.Name = "CBTagFacesitting" -Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) -Me.CBTagFacesitting.TabIndex = 226 -Me.CBTagFacesitting.Text = "Facesitting" -Me.CBTagFacesitting.UseVisualStyleBackColor = true +Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) +Me.CBWISaveToDisk.Name = "CBWISaveToDisk" +Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) +Me.CBWISaveToDisk.TabIndex = 157 +Me.CBWISaveToDisk.Text = "Save Images to Disk" +Me.CBWISaveToDisk.UseVisualStyleBackColor = true ' -'CBTagMissionary +'PictureBox5 ' -Me.CBTagMissionary.AutoSize = true -Me.CBTagMissionary.Enabled = false -Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black -Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) -Me.CBTagMissionary.Name = "CBTagMissionary" -Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) -Me.CBTagMissionary.TabIndex = 208 -Me.CBTagMissionary.Text = "Missionary" -Me.CBTagMissionary.UseVisualStyleBackColor = true +Me.PictureBox5.BackColor = System.Drawing.Color.LightGray +Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox5.Location = New System.Drawing.Point(9, 6) +Me.PictureBox5.Name = "PictureBox5" +Me.PictureBox5.Size = New System.Drawing.Size(160, 19) +Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox5.TabIndex = 156 +Me.PictureBox5.TabStop = false ' -'CBTagMasturbation +'WebImageProgressBar ' -Me.CBTagMasturbation.AutoSize = true -Me.CBTagMasturbation.Enabled = false -Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) -Me.CBTagMasturbation.Name = "CBTagMasturbation" -Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbation.TabIndex = 203 -Me.CBTagMasturbation.Text = "Masturbation" -Me.CBTagMasturbation.UseVisualStyleBackColor = true +Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) +Me.WebImageProgressBar.Maximum = 2500 +Me.WebImageProgressBar.Name = "WebImageProgressBar" +Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) +Me.WebImageProgressBar.TabIndex = 155 ' -'CBTagRCowgirl +'BTNWICreateURL ' -Me.CBTagRCowgirl.AutoSize = true -Me.CBTagRCowgirl.Enabled = false -Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) -Me.CBTagRCowgirl.Name = "CBTagRCowgirl" -Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) -Me.CBTagRCowgirl.TabIndex = 218 -Me.CBTagRCowgirl.Text = "R. Cowgirl" -Me.CBTagRCowgirl.UseVisualStyleBackColor = true +Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black +Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) +Me.BTNWICreateURL.Name = "BTNWICreateURL" +Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWICreateURL.TabIndex = 154 +Me.BTNWICreateURL.Text = "Create URL File" +Me.BTNWICreateURL.UseVisualStyleBackColor = false ' -'CBTagFingering +'LBLWebImageCount ' -Me.CBTagFingering.AutoSize = true -Me.CBTagFingering.Enabled = false -Me.CBTagFingering.ForeColor = System.Drawing.Color.Black -Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) -Me.CBTagFingering.Name = "CBTagFingering" -Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) -Me.CBTagFingering.TabIndex = 204 -Me.CBTagFingering.Text = "Fingering" -Me.CBTagFingering.UseVisualStyleBackColor = true +Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent +Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black +Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) +Me.LBLWebImageCount.Name = "LBLWebImageCount" +Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) +Me.LBLWebImageCount.TabIndex = 153 +Me.LBLWebImageCount.Text = "0/0" +Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagGangbang +'BTNWISave ' -Me.CBTagGangbang.AutoSize = true -Me.CBTagGangbang.Enabled = false -Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black -Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) -Me.CBTagGangbang.Name = "CBTagGangbang" -Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) -Me.CBTagGangbang.TabIndex = 217 -Me.CBTagGangbang.Text = "Gangbang" -Me.CBTagGangbang.UseVisualStyleBackColor = true +Me.BTNWISave.BackColor = System.Drawing.Color.LightGray +Me.BTNWISave.Enabled = false +Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWISave.ForeColor = System.Drawing.Color.Black +Me.BTNWISave.Location = New System.Drawing.Point(567, 401) +Me.BTNWISave.Name = "BTNWISave" +Me.BTNWISave.Size = New System.Drawing.Size(131, 24) +Me.BTNWISave.TabIndex = 152 +Me.BTNWISave.Text = "Save Image to Disk" +Me.BTNWISave.UseVisualStyleBackColor = false ' -'CBTagBlowjob +'BTNWIOpenURL ' -Me.CBTagBlowjob.AutoSize = true -Me.CBTagBlowjob.Enabled = false -Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) -Me.CBTagBlowjob.Name = "CBTagBlowjob" -Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBTagBlowjob.TabIndex = 205 -Me.CBTagBlowjob.Text = "Blowjob" -Me.CBTagBlowjob.UseVisualStyleBackColor = true +Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black +Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) +Me.BTNWIOpenURL.Name = "BTNWIOpenURL" +Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWIOpenURL.TabIndex = 151 +Me.BTNWIOpenURL.Text = "Open URL File" +Me.BTNWIOpenURL.UseVisualStyleBackColor = false ' -'CBTagDP +'BTNWIPrevious ' -Me.CBTagDP.AutoSize = true -Me.CBTagDP.Enabled = false -Me.CBTagDP.ForeColor = System.Drawing.Color.Black -Me.CBTagDP.Location = New System.Drawing.Point(15, 317) -Me.CBTagDP.Name = "CBTagDP" -Me.CBTagDP.Size = New System.Drawing.Size(41, 17) -Me.CBTagDP.TabIndex = 216 -Me.CBTagDP.Text = "DP" -Me.CBTagDP.UseVisualStyleBackColor = true +Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNWIPrevious.Enabled = false +Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) +Me.BTNWIPrevious.Name = "BTNWIPrevious" +Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNWIPrevious.TabIndex = 149 +Me.BTNWIPrevious.Text = "<<" +Me.BTNWIPrevious.UseVisualStyleBackColor = false ' -'CBTagHandjob +'BTNWINext ' -Me.CBTagHandjob.AutoSize = true -Me.CBTagHandjob.Enabled = false -Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black -Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) -Me.CBTagHandjob.Name = "CBTagHandjob" -Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) -Me.CBTagHandjob.TabIndex = 206 -Me.CBTagHandjob.Text = "Handjob" -Me.CBTagHandjob.UseVisualStyleBackColor = true +Me.BTNWINext.BackColor = System.Drawing.Color.LightGray +Me.BTNWINext.Enabled = false +Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWINext.ForeColor = System.Drawing.Color.Black +Me.BTNWINext.Location = New System.Drawing.Point(651, 282) +Me.BTNWINext.Name = "BTNWINext" +Me.BTNWINext.Size = New System.Drawing.Size(47, 24) +Me.BTNWINext.TabIndex = 150 +Me.BTNWINext.Text = ">>" +Me.BTNWINext.UseVisualStyleBackColor = false ' -'CBTagStanding +'WebPictureBox ' -Me.CBTagStanding.AutoSize = true -Me.CBTagStanding.Enabled = false -Me.CBTagStanding.ForeColor = System.Drawing.Color.Black -Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) -Me.CBTagStanding.Name = "CBTagStanding" -Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) -Me.CBTagStanding.TabIndex = 215 -Me.CBTagStanding.Text = "Standing" -Me.CBTagStanding.UseVisualStyleBackColor = true +Me.WebPictureBox.BackColor = System.Drawing.Color.Black +Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) +Me.WebPictureBox.Name = "WebPictureBox" +Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) +Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WebPictureBox.TabIndex = 148 +Me.WebPictureBox.TabStop = false ' -'CBTagFootjob +'Label71 ' -Me.CBTagFootjob.AutoSize = true -Me.CBTagFootjob.Enabled = false -Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black -Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) -Me.CBTagFootjob.Name = "CBTagFootjob" -Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) -Me.CBTagFootjob.TabIndex = 207 -Me.CBTagFootjob.Text = "Footjob" -Me.CBTagFootjob.UseVisualStyleBackColor = true +Me.Label71.BackColor = System.Drawing.Color.Transparent +Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label71.ForeColor = System.Drawing.Color.Black +Me.Label71.Location = New System.Drawing.Point(7, 6) +Me.Label71.Name = "Label71" +Me.Label71.Size = New System.Drawing.Size(692, 21) +Me.Label71.TabIndex = 48 +Me.Label71.Text = "URL Files" +Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagCowgirl +'TpVideoSettings ' -Me.CBTagCowgirl.AutoSize = true -Me.CBTagCowgirl.Enabled = false -Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) -Me.CBTagCowgirl.Name = "CBTagCowgirl" -Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) -Me.CBTagCowgirl.TabIndex = 214 -Me.CBTagCowgirl.Text = "Cowgirl" -Me.CBTagCowgirl.UseVisualStyleBackColor = true +Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver +Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) +Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) +Me.TpVideoSettings.Name = "TpVideoSettings" +Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) +Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) +Me.TpVideoSettings.TabIndex = 2 +Me.TpVideoSettings.Text = "Video" ' -'CBTagDoggyStyle +'PnlVideoSettings ' -Me.CBTagDoggyStyle.AutoSize = true -Me.CBTagDoggyStyle.Enabled = false -Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black -Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) -Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" -Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) -Me.CBTagDoggyStyle.TabIndex = 209 -Me.CBTagDoggyStyle.Text = "Doggy Style" -Me.CBTagDoggyStyle.UseVisualStyleBackColor = true +Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) +Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) +Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) +Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill +Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) +Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) +Me.PnlVideoSettings.Name = "PnlVideoSettings" +Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) +Me.PnlVideoSettings.TabIndex = 92 ' -'CBTagTitjob +'PbBannerVideoSettings ' -Me.CBTagTitjob.AutoSize = true -Me.CBTagTitjob.Enabled = false -Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black -Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) -Me.CBTagTitjob.Name = "CBTagTitjob" -Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) -Me.CBTagTitjob.TabIndex = 213 -Me.CBTagTitjob.Text = "Titjob" -Me.CBTagTitjob.UseVisualStyleBackColor = true +Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) +Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" +Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) +Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PbBannerVideoSettings.TabIndex = 151 +Me.PbBannerVideoSettings.TabStop = false ' -'CBTagCunnilingus +'BTNRefreshVideos ' -Me.CBTagCunnilingus.AutoSize = true -Me.CBTagCunnilingus.Enabled = false -Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black -Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) -Me.CBTagCunnilingus.Name = "CBTagCunnilingus" -Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) -Me.CBTagCunnilingus.TabIndex = 210 -Me.CBTagCunnilingus.Text = "Cunnilingus" -Me.CBTagCunnilingus.UseVisualStyleBackColor = true +Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray +Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh +Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom +Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 +Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black +Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) +Me.BTNRefreshVideos.Name = "BTNRefreshVideos" +Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) +Me.BTNRefreshVideos.TabIndex = 149 +Me.BTNRefreshVideos.UseVisualStyleBackColor = false ' -'CBTagAnalSex +'GbxVideoGeneralD ' -Me.CBTagAnalSex.AutoSize = true -Me.CBTagAnalSex.Enabled = false -Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) -Me.CBTagAnalSex.Name = "CBTagAnalSex" -Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalSex.TabIndex = 212 -Me.CBTagAnalSex.Text = "Anal Sex" -Me.CBTagAnalSex.UseVisualStyleBackColor = true +Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) +Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) +Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) +Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" +Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneralD.TabIndex = 5 +Me.GbxVideoGeneralD.TabStop = false +Me.GbxVideoGeneralD.Text = "Domme General" ' -'GroupBox48 +'LblVideoGeneralTotalD ' -Me.GroupBox48.Controls.Add(Me.CBTagArtwork) -Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) -Me.GroupBox48.Controls.Add(Me.CBTagPOV) -Me.GroupBox48.Controls.Add(Me.CBTagHardcore) -Me.GroupBox48.Controls.Add(Me.CBTagTD) -Me.GroupBox48.Controls.Add(Me.CBTagGay) -Me.GroupBox48.Controls.Add(Me.CBTagBath) -Me.GroupBox48.Controls.Add(Me.CBTagBisexual) -Me.GroupBox48.Controls.Add(Me.CBTagCFNM) -Me.GroupBox48.Controls.Add(Me.CBTagLesbian) -Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) -Me.GroupBox48.Controls.Add(Me.CBTagSM) -Me.GroupBox48.Controls.Add(Me.CBTagBondage) -Me.GroupBox48.Controls.Add(Me.CBTagSoloM) -Me.GroupBox48.Controls.Add(Me.CBTagSoloF) -Me.GroupBox48.Controls.Add(Me.CBTagChastity) -Me.GroupBox48.Controls.Add(Me.CBTagShower) -Me.GroupBox48.Location = New System.Drawing.Point(8, 37) -Me.GroupBox48.Name = "GroupBox48" -Me.GroupBox48.Size = New System.Drawing.Size(105, 358) -Me.GroupBox48.TabIndex = 235 -Me.GroupBox48.TabStop = false -Me.GroupBox48.Text = "Category" +Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" +Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotalD.TabIndex = 3 +Me.LblVideoGeneralTotalD.Text = "0" +Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagArtwork +'BTNVideoGeneralD ' -Me.CBTagArtwork.AutoSize = true -Me.CBTagArtwork.Enabled = false -Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black -Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) -Me.CBTagArtwork.Name = "CBTagArtwork" -Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) -Me.CBTagArtwork.TabIndex = 225 -Me.CBTagArtwork.Text = "Artwork" -Me.CBTagArtwork.UseVisualStyleBackColor = true +Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" +Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneralD.TabIndex = 1 +Me.BTNVideoGeneralD.Text = "1" +Me.BTNVideoGeneralD.UseVisualStyleBackColor = false ' -'CBTagOutdoors +'GbxVideoSpecialD ' -Me.CBTagOutdoors.AutoSize = true -Me.CBTagOutdoors.Enabled = false -Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black -Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) -Me.CBTagOutdoors.Name = "CBTagOutdoors" -Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) -Me.CBTagOutdoors.TabIndex = 219 -Me.CBTagOutdoors.Text = "Outdoors" -Me.CBTagOutdoors.UseVisualStyleBackColor = true +Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) +Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) +Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" +Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecialD.TabIndex = 4 +Me.GbxVideoSpecialD.TabStop = false +Me.GbxVideoSpecialD.Text = "Domme Special" ' -'CBTagPOV +'LblVideoCHTotalD ' -Me.CBTagPOV.AutoSize = true -Me.CBTagPOV.Enabled = false -Me.CBTagPOV.ForeColor = System.Drawing.Color.Black -Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) -Me.CBTagPOV.Name = "CBTagPOV" -Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) -Me.CBTagPOV.TabIndex = 208 -Me.CBTagPOV.Text = "POV" -Me.CBTagPOV.UseVisualStyleBackColor = true +Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) +Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" +Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotalD.TabIndex = 7 +Me.LblVideoCHTotalD.Text = "0" +Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagHardcore +'LblVideoJOITotalD ' -Me.CBTagHardcore.AutoSize = true -Me.CBTagHardcore.Enabled = false -Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black -Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) -Me.CBTagHardcore.Name = "CBTagHardcore" -Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBTagHardcore.TabIndex = 203 -Me.CBTagHardcore.Text = "Hardcore" -Me.CBTagHardcore.UseVisualStyleBackColor = true +Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" +Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotalD.TabIndex = 3 +Me.LblVideoJOITotalD.Text = "0" +Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagTD +'BTNVideoCHD ' -Me.CBTagTD.AutoSize = true -Me.CBTagTD.Enabled = false -Me.CBTagTD.ForeColor = System.Drawing.Color.Black -Me.CBTagTD.Location = New System.Drawing.Point(15, 217) -Me.CBTagTD.Name = "CBTagTD" -Me.CBTagTD.Size = New System.Drawing.Size(47, 17) -Me.CBTagTD.TabIndex = 218 -Me.CBTagTD.Text = "T&&D" -Me.CBTagTD.UseVisualStyleBackColor = true +Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCHD.Name = "BTNVideoCHD" +Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCHD.TabIndex = 5 +Me.BTNVideoCHD.Text = "1" +Me.BTNVideoCHD.UseVisualStyleBackColor = false ' -'CBTagGay +'BTNVideoJOID ' -Me.CBTagGay.AutoSize = true -Me.CBTagGay.Enabled = false -Me.CBTagGay.ForeColor = System.Drawing.Color.Black -Me.CBTagGay.Location = New System.Drawing.Point(15, 57) -Me.CBTagGay.Name = "CBTagGay" -Me.CBTagGay.Size = New System.Drawing.Size(45, 17) -Me.CBTagGay.TabIndex = 204 -Me.CBTagGay.Text = "Gay" -Me.CBTagGay.UseVisualStyleBackColor = true +Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOID.Name = "BTNVideoJOID" +Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOID.TabIndex = 1 +Me.BTNVideoJOID.Text = "1" +Me.BTNVideoJOID.UseVisualStyleBackColor = false ' -'CBTagBath +'GbxVideoGenreD ' -Me.CBTagBath.AutoSize = true -Me.CBTagBath.Enabled = false -Me.CBTagBath.ForeColor = System.Drawing.Color.Black -Me.CBTagBath.Location = New System.Drawing.Point(15, 277) -Me.CBTagBath.Name = "CBTagBath" -Me.CBTagBath.Size = New System.Drawing.Size(48, 17) -Me.CBTagBath.TabIndex = 217 -Me.CBTagBath.Text = "Bath" -Me.CBTagBath.UseVisualStyleBackColor = true +Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) +Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) +Me.GbxVideoGenreD.Name = "GbxVideoGenreD" +Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenreD.TabIndex = 3 +Me.GbxVideoGenreD.TabStop = false +Me.GbxVideoGenreD.Text = "Domme Genre" ' -'CBTagBisexual +'LblVideoFemsubTotalD ' -Me.CBTagBisexual.AutoSize = true -Me.CBTagBisexual.Enabled = false -Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black -Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) -Me.CBTagBisexual.Name = "CBTagBisexual" -Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) -Me.CBTagBisexual.TabIndex = 205 -Me.CBTagBisexual.Text = "Bisexual" -Me.CBTagBisexual.UseVisualStyleBackColor = true +Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" +Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotalD.TabIndex = 23 +Me.LblVideoFemsubTotalD.Text = "0" +Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagCFNM +'LblVideoFemdomTotalD ' -Me.CBTagCFNM.AutoSize = true -Me.CBTagCFNM.Enabled = false -Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black -Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) -Me.CBTagCFNM.Name = "CBTagCFNM" -Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) -Me.CBTagCFNM.TabIndex = 216 -Me.CBTagCFNM.Text = "CFNM" -Me.CBTagCFNM.UseVisualStyleBackColor = true +Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" +Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotalD.TabIndex = 19 +Me.LblVideoFemdomTotalD.Text = "0" +Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LblVideoBlowjobTotalD +' +Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" +Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotalD.TabIndex = 15 +Me.LblVideoBlowjobTotalD.Text = "0" +Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagLesbian +'LblVideoLesbianTotalD ' -Me.CBTagLesbian.AutoSize = true -Me.CBTagLesbian.Enabled = false -Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black -Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) -Me.CBTagLesbian.Name = "CBTagLesbian" -Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBTagLesbian.TabIndex = 206 -Me.CBTagLesbian.Text = "Lesbian" -Me.CBTagLesbian.UseVisualStyleBackColor = true +Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" +Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotalD.TabIndex = 11 +Me.LblVideoLesbianTotalD.Text = "0" +Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagSoloFuta +'BTNVideoFemSubD ' -Me.CBTagSoloFuta.AutoSize = true -Me.CBTagSoloFuta.Enabled = false -Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) -Me.CBTagSoloFuta.Name = "CBTagSoloFuta" -Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) -Me.CBTagSoloFuta.TabIndex = 207 -Me.CBTagSoloFuta.Text = "Solo Futa" -Me.CBTagSoloFuta.UseVisualStyleBackColor = true +Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" +Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSubD.TabIndex = 21 +Me.BTNVideoFemSubD.Text = "1" +Me.BTNVideoFemSubD.UseVisualStyleBackColor = false ' -'CBTagSM +'LblVideoSoftCoreTotalD ' -Me.CBTagSM.AutoSize = true -Me.CBTagSM.Enabled = false -Me.CBTagSM.ForeColor = System.Drawing.Color.Black -Me.CBTagSM.Location = New System.Drawing.Point(15, 197) -Me.CBTagSM.Name = "CBTagSM" -Me.CBTagSM.Size = New System.Drawing.Size(48, 17) -Me.CBTagSM.TabIndex = 214 -Me.CBTagSM.Text = "S&&M" -Me.CBTagSM.UseVisualStyleBackColor = true +Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" +Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotalD.TabIndex = 7 +Me.LblVideoSoftCoreTotalD.Text = "0" +Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagBondage +'BTNVideoFemDomD ' -Me.CBTagBondage.AutoSize = true -Me.CBTagBondage.Enabled = false -Me.CBTagBondage.ForeColor = System.Drawing.Color.Black -Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) -Me.CBTagBondage.Name = "CBTagBondage" -Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) -Me.CBTagBondage.TabIndex = 209 -Me.CBTagBondage.Text = "Bondage" -Me.CBTagBondage.UseVisualStyleBackColor = true +Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" +Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDomD.TabIndex = 17 +Me.BTNVideoFemDomD.Text = "1" +Me.BTNVideoFemDomD.UseVisualStyleBackColor = false ' -'CBTagSoloM +'BTNVideoBlowjobD ' -Me.CBTagSoloM.AutoSize = true -Me.CBTagSoloM.Enabled = false -Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) -Me.CBTagSoloM.Name = "CBTagSoloM" -Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) -Me.CBTagSoloM.TabIndex = 213 -Me.CBTagSoloM.Text = "Solo M" -Me.CBTagSoloM.UseVisualStyleBackColor = true +Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" +Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjobD.TabIndex = 13 +Me.BTNVideoBlowjobD.Text = "1" +Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false ' -'CBTagSoloF +'LblVideoHardCoreTotalD ' -Me.CBTagSoloF.AutoSize = true -Me.CBTagSoloF.Enabled = false -Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) -Me.CBTagSoloF.Name = "CBTagSoloF" -Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) -Me.CBTagSoloF.TabIndex = 210 -Me.CBTagSoloF.Text = "Solo F" -Me.CBTagSoloF.UseVisualStyleBackColor = true +Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" +Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotalD.TabIndex = 3 +Me.LblVideoHardCoreTotalD.Text = "0" +Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagChastity +'BTNVideoLesbianD ' -Me.CBTagChastity.AutoSize = true -Me.CBTagChastity.Enabled = false -Me.CBTagChastity.ForeColor = System.Drawing.Color.Black -Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) -Me.CBTagChastity.Name = "CBTagChastity" -Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) -Me.CBTagChastity.TabIndex = 212 -Me.CBTagChastity.Text = "Chastity" -Me.CBTagChastity.UseVisualStyleBackColor = true +Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" +Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbianD.TabIndex = 9 +Me.BTNVideoLesbianD.Text = "1" +Me.BTNVideoLesbianD.UseVisualStyleBackColor = false ' -'CBTagShower +'BTNVideoSoftCoreD ' -Me.CBTagShower.AutoSize = true -Me.CBTagShower.Enabled = false -Me.CBTagShower.ForeColor = System.Drawing.Color.Black -Me.CBTagShower.Location = New System.Drawing.Point(15, 297) -Me.CBTagShower.Name = "CBTagShower" -Me.CBTagShower.Size = New System.Drawing.Size(62, 17) -Me.CBTagShower.TabIndex = 211 -Me.CBTagShower.Text = "Shower" -Me.CBTagShower.UseVisualStyleBackColor = true +Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" +Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCoreD.TabIndex = 5 +Me.BTNVideoSoftCoreD.Text = "1" +Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false ' -'TBLocalTagDir +'BTNVideoHardCoreD ' -Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBLocalTagDir.Name = "TBLocalTagDir" -Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBLocalTagDir.TabIndex = 233 -Me.TBLocalTagDir.Text = "Enter Image Directory" +Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" +Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCoreD.TabIndex = 1 +Me.BTNVideoHardCoreD.Text = "1" +Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false ' -'BTNLocalTagPrevious +'GbxVideoDescription ' -Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagPrevious.Enabled = false -Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" -Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagPrevious.TabIndex = 232 -Me.BTNLocalTagPrevious.Text = "<<" -Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false +Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) +Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black +Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) +Me.GbxVideoDescription.Name = "GbxVideoDescription" +Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) +Me.GbxVideoDescription.TabIndex = 6 +Me.GbxVideoDescription.TabStop = false +Me.GbxVideoDescription.Text = "Description" ' -'BTNLocalTagNext +'VideoDescriptionLabel ' -Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagNext.Enabled = false -Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNLocalTagNext.Name = "BTNLocalTagNext" -Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagNext.TabIndex = 231 -Me.BTNLocalTagNext.Text = ">>" -Me.BTNLocalTagNext.UseVisualStyleBackColor = false +Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent +Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black +Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) +Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" +Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) +Me.VideoDescriptionLabel.TabIndex = 62 +Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ + "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ + "using as your domme." +Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLLocalTagCount +'GbxVideoGeneral ' -Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLLocalTagCount.Enabled = false -Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLLocalTagCount.Name = "LBLLocalTagCount" -Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLLocalTagCount.TabIndex = 230 -Me.LBLLocalTagCount.Text = "0/0" -Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) +Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) +Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) +Me.GbxVideoGeneral.Name = "GbxVideoGeneral" +Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneral.TabIndex = 2 +Me.GbxVideoGeneral.TabStop = false +Me.GbxVideoGeneral.Text = "General" ' -'BTNLocalTagSave +'LblVideoGeneralTotal +' +Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" +Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotal.TabIndex = 3 +Me.LblVideoGeneralTotal.Text = "0" +Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNLocalTagSave.Enabled = false -Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNLocalTagSave.Name = "BTNLocalTagSave" -Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNLocalTagSave.TabIndex = 229 -Me.BTNLocalTagSave.Text = "Finished" -Me.BTNLocalTagSave.UseVisualStyleBackColor = true +'BTNVideoGeneral ' -'BTNLocalTagDir +Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneral.Name = "BTNVideoGeneral" +Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneral.TabIndex = 1 +Me.BTNVideoGeneral.Text = "1" +Me.BTNVideoGeneral.UseVisualStyleBackColor = false ' -Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNLocalTagDir.Name = "BTNLocalTagDir" -Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNLocalTagDir.TabIndex = 228 -Me.BTNLocalTagDir.Text = "1" -Me.BTNLocalTagDir.UseVisualStyleBackColor = true +'GbxVideoSpecial ' -'TabPage11 +Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) +Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) +Me.GbxVideoSpecial.Name = "GbxVideoSpecial" +Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecial.TabIndex = 1 +Me.GbxVideoSpecial.TabStop = false +Me.GbxVideoSpecial.Text = "Special" ' -Me.TabPage11.BackColor = System.Drawing.Color.Silver -Me.TabPage11.Controls.Add(Me.Panel7) -Me.TabPage11.Location = New System.Drawing.Point(4, 22) -Me.TabPage11.Name = "TabPage11" -Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage11.Size = New System.Drawing.Size(720, 448) -Me.TabPage11.TabIndex = 10 -Me.TabPage11.Text = "URL Files" +'LblVideoCHTotal ' -'Panel7 +Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) +Me.LblVideoCHTotal.Name = "LblVideoCHTotal" +Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotal.TabIndex = 7 +Me.LblVideoCHTotal.Text = "0" +Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Panel7.BackColor = System.Drawing.Color.LightGray -Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel7.Controls.Add(Me.BTNWIContinue) -Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) -Me.Panel7.Controls.Add(Me.BTNWICancel) -Me.Panel7.Controls.Add(Me.CBWIReview) -Me.Panel7.Controls.Add(Me.BTNWIBrowse) -Me.Panel7.Controls.Add(Me.TBWIDirectory) -Me.Panel7.Controls.Add(Me.BTNWIDisliked) -Me.Panel7.Controls.Add(Me.BTNWILiked) -Me.Panel7.Controls.Add(Me.BTNWIRemove) -Me.Panel7.Controls.Add(Me.CBWISaveToDisk) -Me.Panel7.Controls.Add(Me.PictureBox5) -Me.Panel7.Controls.Add(Me.WebImageProgressBar) -Me.Panel7.Controls.Add(Me.BTNWICreateURL) -Me.Panel7.Controls.Add(Me.LBLWebImageCount) -Me.Panel7.Controls.Add(Me.BTNWISave) -Me.Panel7.Controls.Add(Me.BTNWIOpenURL) -Me.Panel7.Controls.Add(Me.BTNWIPrevious) -Me.Panel7.Controls.Add(Me.BTNWINext) -Me.Panel7.Controls.Add(Me.WebPictureBox) -Me.Panel7.Controls.Add(Me.Label71) -Me.Panel7.Location = New System.Drawing.Point(6, 6) -Me.Panel7.Name = "Panel7" -Me.Panel7.Size = New System.Drawing.Size(708, 437) -Me.Panel7.TabIndex = 91 +'LblVideoJOITotal ' -'BTNWIContinue +Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) +Me.LblVideoJOITotal.Name = "LblVideoJOITotal" +Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotal.TabIndex = 3 +Me.LblVideoJOITotal.Text = "0" +Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIContinue.Enabled = false -Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) -Me.BTNWIContinue.Name = "BTNWIContinue" -Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIContinue.TabIndex = 168 -Me.BTNWIContinue.Text = "Continue" -Me.BTNWIContinue.UseVisualStyleBackColor = false +'BTNVideoCH ' -'BTNWIAddandContinue +Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCH.Name = "BTNVideoCH" +Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCH.TabIndex = 5 +Me.BTNVideoCH.Text = "1" +Me.BTNVideoCH.UseVisualStyleBackColor = false ' -Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIAddandContinue.Enabled = false -Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) -Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" -Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIAddandContinue.TabIndex = 167 -Me.BTNWIAddandContinue.Text = "Add and Continue" -Me.BTNWIAddandContinue.UseVisualStyleBackColor = false +'BTNVideoJOI ' -'BTNWICancel +Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOI.Name = "BTNVideoJOI" +Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOI.TabIndex = 1 +Me.BTNVideoJOI.Text = "1" +Me.BTNVideoJOI.UseVisualStyleBackColor = false ' -Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray -Me.BTNWICancel.Enabled = false -Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICancel.ForeColor = System.Drawing.Color.Black -Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) -Me.BTNWICancel.Name = "BTNWICancel" -Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) -Me.BTNWICancel.TabIndex = 166 -Me.BTNWICancel.Text = "Cancel" -Me.BTNWICancel.UseVisualStyleBackColor = false +'GbxVideoGenre ' -'CBWIReview +Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) +Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) +Me.GbxVideoGenre.Name = "GbxVideoGenre" +Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenre.TabIndex = 0 +Me.GbxVideoGenre.TabStop = false +Me.GbxVideoGenre.Text = "Genre" ' -Me.CBWIReview.Location = New System.Drawing.Point(567, 69) -Me.CBWIReview.Name = "CBWIReview" -Me.CBWIReview.Size = New System.Drawing.Size(124, 30) -Me.CBWIReview.TabIndex = 165 -Me.CBWIReview.Text = "Review Each Image" -Me.CBWIReview.UseVisualStyleBackColor = true +'LblVideoFemsubTotal ' -'BTNWIBrowse +Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" +Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotal.TabIndex = 23 +Me.LblVideoFemsubTotal.Text = "0" +Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray -Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black -Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) -Me.BTNWIBrowse.Name = "BTNWIBrowse" -Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) -Me.BTNWIBrowse.TabIndex = 163 -Me.BTNWIBrowse.Text = "Browse" -Me.BTNWIBrowse.UseVisualStyleBackColor = false +'LblVideoFemdomTotal ' -'TBWIDirectory +Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" +Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotal.TabIndex = 19 +Me.LblVideoFemdomTotal.Text = "0" +Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TBWIDirectory.BackColor = System.Drawing.Color.White -Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black -Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) -Me.TBWIDirectory.Name = "TBWIDirectory" -Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) -Me.TBWIDirectory.TabIndex = 164 -Me.TBWIDirectory.Text = "Saved Image Directory" +'LblVideoBlowjobTotal ' -'BTNWIDisliked +Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" +Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotal.TabIndex = 15 +Me.LblVideoBlowjobTotal.Text = "0" +Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray -Me.BTNWIDisliked.Enabled = false -Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black -Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) -Me.BTNWIDisliked.Name = "BTNWIDisliked" -Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) -Me.BTNWIDisliked.TabIndex = 162 -Me.BTNWIDisliked.Text = "Add to Disliked Images" -Me.BTNWIDisliked.UseVisualStyleBackColor = false +'LblVideoLesbianTotal ' -'BTNWILiked +Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" +Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotal.TabIndex = 11 +Me.LblVideoLesbianTotal.Text = "0" +Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray -Me.BTNWILiked.Enabled = false -Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWILiked.ForeColor = System.Drawing.Color.Black -Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) -Me.BTNWILiked.Name = "BTNWILiked" -Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) -Me.BTNWILiked.TabIndex = 161 -Me.BTNWILiked.Text = "Add to Liked Images" -Me.BTNWILiked.UseVisualStyleBackColor = false +'BTNVideoFemSub ' -'BTNWIRemove +Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSub.Name = "BTNVideoFemSub" +Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSub.TabIndex = 21 +Me.BTNVideoFemSub.Text = "1" +Me.BTNVideoFemSub.UseVisualStyleBackColor = false ' -Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray -Me.BTNWIRemove.Enabled = false -Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black -Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) -Me.BTNWIRemove.Name = "BTNWIRemove" -Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) -Me.BTNWIRemove.TabIndex = 160 -Me.BTNWIRemove.Text = "Remove From URL File" -Me.BTNWIRemove.UseVisualStyleBackColor = false +'LblVideoSoftCoreTotal ' -'CBWISaveToDisk +Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" +Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotal.TabIndex = 7 +Me.LblVideoSoftCoreTotal.Text = "0" +Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) -Me.CBWISaveToDisk.Name = "CBWISaveToDisk" -Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) -Me.CBWISaveToDisk.TabIndex = 157 -Me.CBWISaveToDisk.Text = "Save Images to Disk" -Me.CBWISaveToDisk.UseVisualStyleBackColor = true +'BTNVideoFemDom ' -'PictureBox5 +Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDom.Name = "BTNVideoFemDom" +Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDom.TabIndex = 17 +Me.BTNVideoFemDom.Text = "1" +Me.BTNVideoFemDom.UseVisualStyleBackColor = false ' -Me.PictureBox5.BackColor = System.Drawing.Color.LightGray -Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox5.Location = New System.Drawing.Point(9, 6) -Me.PictureBox5.Name = "PictureBox5" -Me.PictureBox5.Size = New System.Drawing.Size(160, 19) -Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox5.TabIndex = 156 -Me.PictureBox5.TabStop = false +'BTNVideoBlowjob ' -'WebImageProgressBar +Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" +Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjob.TabIndex = 13 +Me.BTNVideoBlowjob.Text = "1" +Me.BTNVideoBlowjob.UseVisualStyleBackColor = false ' -Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) -Me.WebImageProgressBar.Maximum = 2500 -Me.WebImageProgressBar.Name = "WebImageProgressBar" -Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) -Me.WebImageProgressBar.TabIndex = 155 +'LblVideoHardCoreTotal ' -'BTNWICreateURL +Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" +Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotal.TabIndex = 3 +Me.LblVideoHardCoreTotal.Text = "0" +Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black -Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) -Me.BTNWICreateURL.Name = "BTNWICreateURL" -Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWICreateURL.TabIndex = 154 -Me.BTNWICreateURL.Text = "Create URL File" -Me.BTNWICreateURL.UseVisualStyleBackColor = false +'BTNVideoLesbian ' -'LBLWebImageCount +Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbian.Name = "BTNVideoLesbian" +Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbian.TabIndex = 9 +Me.BTNVideoLesbian.Text = "1" +Me.BTNVideoLesbian.UseVisualStyleBackColor = false ' -Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent -Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black -Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) -Me.LBLWebImageCount.Name = "LBLWebImageCount" -Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) -Me.LBLWebImageCount.TabIndex = 153 -Me.LBLWebImageCount.Text = "0/0" -Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BTNVideoSoftCore ' -'BTNWISave +Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" +Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCore.TabIndex = 5 +Me.BTNVideoSoftCore.Text = "1" +Me.BTNVideoSoftCore.UseVisualStyleBackColor = false ' -Me.BTNWISave.BackColor = System.Drawing.Color.LightGray -Me.BTNWISave.Enabled = false -Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWISave.ForeColor = System.Drawing.Color.Black -Me.BTNWISave.Location = New System.Drawing.Point(567, 401) -Me.BTNWISave.Name = "BTNWISave" -Me.BTNWISave.Size = New System.Drawing.Size(131, 24) -Me.BTNWISave.TabIndex = 152 -Me.BTNWISave.Text = "Save Image to Disk" -Me.BTNWISave.UseVisualStyleBackColor = false +'BTNVideoHardCore ' -'BTNWIOpenURL +Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCore.Name = "BTNVideoHardCore" +Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCore.TabIndex = 1 +Me.BTNVideoHardCore.Text = "1" +Me.BTNVideoHardCore.UseVisualStyleBackColor = false ' -Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black -Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) -Me.BTNWIOpenURL.Name = "BTNWIOpenURL" -Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWIOpenURL.TabIndex = 151 -Me.BTNWIOpenURL.Text = "Open URL File" -Me.BTNWIOpenURL.UseVisualStyleBackColor = false +'LblVideoHeader ' -'BTNWIPrevious +Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black +Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) +Me.LblVideoHeader.Name = "LblVideoHeader" +Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) +Me.LblVideoHeader.TabIndex = 49 +Me.LblVideoHeader.Text = "Video Settings" +Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNWIPrevious.Enabled = false -Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) -Me.BTNWIPrevious.Name = "BTNWIPrevious" -Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNWIPrevious.TabIndex = 149 -Me.BTNWIPrevious.Text = "<<" -Me.BTNWIPrevious.UseVisualStyleBackColor = false +'TabPage20 ' -'BTNWINext +Me.TabPage20.BackColor = System.Drawing.Color.Silver +Me.TabPage20.Controls.Add(Me.TabControl1) +Me.TabPage20.Location = New System.Drawing.Point(4, 22) +Me.TabPage20.Name = "TabPage20" +Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage20.Size = New System.Drawing.Size(720, 448) +Me.TabPage20.TabIndex = 16 +Me.TabPage20.Text = "Apps" ' -Me.BTNWINext.BackColor = System.Drawing.Color.LightGray -Me.BTNWINext.Enabled = false -Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWINext.ForeColor = System.Drawing.Color.Black -Me.BTNWINext.Location = New System.Drawing.Point(651, 282) -Me.BTNWINext.Name = "BTNWINext" -Me.BTNWINext.Size = New System.Drawing.Size(47, 24) -Me.BTNWINext.TabIndex = 150 -Me.BTNWINext.Text = ">>" -Me.BTNWINext.UseVisualStyleBackColor = false +'TabControl1 ' -'WebPictureBox +Me.TabControl1.Controls.Add(Me.TabPage22) +Me.TabControl1.Controls.Add(Me.TpGames) +Me.TabControl1.Controls.Add(Me.TabPage6) +Me.TabControl1.Location = New System.Drawing.Point(6, 6) +Me.TabControl1.Name = "TabControl1" +Me.TabControl1.SelectedIndex = 0 +Me.TabControl1.Size = New System.Drawing.Size(708, 437) +Me.TabControl1.TabIndex = 0 ' -Me.WebPictureBox.BackColor = System.Drawing.Color.Black -Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) -Me.WebPictureBox.Name = "WebPictureBox" -Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) -Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WebPictureBox.TabIndex = 148 -Me.WebPictureBox.TabStop = false +'TabPage22 ' -'Label71 +Me.TabPage22.BackColor = System.Drawing.Color.LightGray +Me.TabPage22.Controls.Add(Me.PNLGlitter) +Me.TabPage22.Location = New System.Drawing.Point(4, 22) +Me.TabPage22.Name = "TabPage22" +Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage22.Size = New System.Drawing.Size(700, 411) +Me.TabPage22.TabIndex = 0 +Me.TabPage22.Text = "Glitter" ' -Me.Label71.BackColor = System.Drawing.Color.Transparent -Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label71.ForeColor = System.Drawing.Color.Black -Me.Label71.Location = New System.Drawing.Point(7, 6) -Me.Label71.Name = "Label71" -Me.Label71.Size = New System.Drawing.Size(692, 21) -Me.Label71.TabIndex = 48 -Me.Label71.Text = "URL Files" -Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'PNLGlitter ' -'TpVideoSettings +Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray +Me.PNLGlitter.Controls.Add(Me.GroupBox4) +Me.PNLGlitter.Controls.Add(Me.Button15) +Me.PNLGlitter.Controls.Add(Me.Button16) +Me.PNLGlitter.Controls.Add(Me.Label121) +Me.PNLGlitter.Controls.Add(Me.Label122) +Me.PNLGlitter.Controls.Add(Me.GBGlitterD) +Me.PNLGlitter.Controls.Add(Me.GBGlitter1) +Me.PNLGlitter.Controls.Add(Me.GBGlitter3) +Me.PNLGlitter.Controls.Add(Me.GBGlitter2) +Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) +Me.PNLGlitter.Name = "PNLGlitter" +Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) +Me.PNLGlitter.TabIndex = 91 ' -Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver -Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) -Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) -Me.TpVideoSettings.Name = "TpVideoSettings" -Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) -Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) -Me.TpVideoSettings.TabIndex = 2 -Me.TpVideoSettings.Text = "Video" +'GroupBox4 ' -'PnlVideoSettings +Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) +Me.GroupBox4.Location = New System.Drawing.Point(7, 307) +Me.GroupBox4.Name = "GroupBox4" +Me.GroupBox4.Size = New System.Drawing.Size(344, 85) +Me.GroupBox4.TabIndex = 167 +Me.GroupBox4.TabStop = false +Me.GroupBox4.Text = "Change Current Domme" ' -Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) -Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) -Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) -Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill -Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) -Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) -Me.PnlVideoSettings.Name = "PnlVideoSettings" -Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) -Me.PnlVideoSettings.TabIndex = 92 +'LBLCurrentDomme ' -'PbBannerVideoSettings +Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) +Me.LBLCurrentDomme.Name = "LBLCurrentDomme" +Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) +Me.LBLCurrentDomme.TabIndex = 168 +Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) -Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" -Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) -Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PbBannerVideoSettings.TabIndex = 151 -Me.PbBannerVideoSettings.TabStop = false +'BTNDomChangeContact1 ' -'BTNRefreshVideos +Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) +Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" +Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact1.TabIndex = 173 +Me.BTNDomChangeContact1.Text = "Contact 1" +Me.BTNDomChangeContact1.UseVisualStyleBackColor = false ' -Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray -Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh -Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom -Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 -Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black -Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) -Me.BTNRefreshVideos.Name = "BTNRefreshVideos" -Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) -Me.BTNRefreshVideos.TabIndex = 149 -Me.BTNRefreshVideos.UseVisualStyleBackColor = false +'BTNDomChangeRandom ' -'GbxVideoGeneralD +Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) +Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" +Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeRandom.TabIndex = 172 +Me.BTNDomChangeRandom.Text = "Random" +Me.BTNDomChangeRandom.UseVisualStyleBackColor = false ' -Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) -Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) -Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) -Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" -Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneralD.TabIndex = 5 -Me.GbxVideoGeneralD.TabStop = false -Me.GbxVideoGeneralD.Text = "Domme General" +'BTNDomChangeContact3 ' -'LblVideoGeneralTotalD +Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) +Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" +Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact3.TabIndex = 171 +Me.BTNDomChangeContact3.Text = "Contact 3" +Me.BTNDomChangeContact3.UseVisualStyleBackColor = false ' -Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" -Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotalD.TabIndex = 3 -Me.LblVideoGeneralTotalD.Text = "0" -Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BTNDomChangeContact2 ' -'TxbVideoGeneralD +Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) +Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" +Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact2.TabIndex = 170 +Me.BTNDomChangeContact2.Text = "Contact 2" +Me.BTNDomChangeContact2.UseVisualStyleBackColor = false ' -Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" -Me.TxbVideoGeneralD.ReadOnly = true -Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.TabIndex = 2 -Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD +'BTNDomChangeDomme ' -'BTNVideoGeneralD +Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) +Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" +Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeDomme.TabIndex = 168 +Me.BTNDomChangeDomme.Text = "Domme" +Me.BTNDomChangeDomme.UseVisualStyleBackColor = false ' -Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" -Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneralD.TabIndex = 1 -Me.BTNVideoGeneralD.Text = "1" -Me.BTNVideoGeneralD.UseVisualStyleBackColor = false +'Button15 ' -'CBVideoGeneralD +Me.Button15.BackColor = System.Drawing.Color.LightGray +Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button15.FlatAppearance.BorderSize = 0 +Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button15.ForeColor = System.Drawing.Color.Black +Me.Button15.Location = New System.Drawing.Point(670, 366) +Me.Button15.Name = "Button15" +Me.Button15.Size = New System.Drawing.Size(30, 26) +Me.Button15.TabIndex = 163 +Me.Button15.UseVisualStyleBackColor = false ' -Me.CBVideoGeneralD.AutoSize = true -Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD -Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneralD.Name = "CBVideoGeneralD" -Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneralD.TabIndex = 0 -Me.CBVideoGeneralD.Text = "General" -Me.CBVideoGeneralD.UseVisualStyleBackColor = true +'Button16 ' -'GbxVideoSpecialD +Me.Button16.BackColor = System.Drawing.Color.LightGray +Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button16.FlatAppearance.BorderSize = 0 +Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button16.ForeColor = System.Drawing.Color.Black +Me.Button16.Location = New System.Drawing.Point(667, 324) +Me.Button16.Name = "Button16" +Me.Button16.Size = New System.Drawing.Size(30, 26) +Me.Button16.TabIndex = 164 +Me.Button16.UseVisualStyleBackColor = false ' -Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) -Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) -Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" -Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecialD.TabIndex = 4 -Me.GbxVideoSpecialD.TabStop = false -Me.GbxVideoSpecialD.Text = "Domme Special" +'Label121 ' -'LblVideoCHTotalD +Me.Label121.AutoSize = true +Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label121.ForeColor = System.Drawing.Color.Black +Me.Label121.Location = New System.Drawing.Point(669, 352) +Me.Label121.Name = "Label121" +Me.Label121.Size = New System.Drawing.Size(27, 13) +Me.Label121.TabIndex = 166 +Me.Label121.Text = "load" +Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) -Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" -Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotalD.TabIndex = 7 -Me.LblVideoCHTotalD.Text = "0" -Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Label122 ' -'LblVideoJOITotalD +Me.Label122.AutoSize = true +Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label122.ForeColor = System.Drawing.Color.Black +Me.Label122.Location = New System.Drawing.Point(667, 313) +Me.Label122.Name = "Label122" +Me.Label122.Size = New System.Drawing.Size(30, 13) +Me.Label122.TabIndex = 165 +Me.Label122.Text = "save" +Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" -Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotalD.TabIndex = 3 -Me.LblVideoJOITotalD.Text = "0" -Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GBGlitterD ' -'TxbVideoCHD +Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray +Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) +Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom2) +Me.GBGlitterD.Controls.Add(Me.GlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom1) +Me.GBGlitterD.Controls.Add(Me.CBDaily) +Me.GBGlitterD.Controls.Add(Me.CBTrivia) +Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) +Me.GBGlitterD.Controls.Add(Me.CBEgotist) +Me.GBGlitterD.Controls.Add(Me.CBTease) +Me.GBGlitterD.Controls.Add(Me.GlitterAV) +Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) +Me.GBGlitterD.Name = "GBGlitterD" +Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) +Me.GBGlitterD.TabIndex = 162 +Me.GBGlitterD.TabStop = false +Me.GBGlitterD.Text = "Domme" ' -Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.Name = "TxbVideoCHD" -Me.TxbVideoCHD.ReadOnly = true -Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.TabIndex = 6 -Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD +'GrbGlitterfeed ' -'TxbVideoJOID +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) +Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) +Me.GrbGlitterfeed.Name = "GrbGlitterfeed" +Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) +Me.GrbGlitterfeed.TabIndex = 168 +Me.GrbGlitterfeed.TabStop = false +Me.GrbGlitterfeed.Text = "Glitterfeeds" ' -Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.Name = "TxbVideoJOID" -Me.TxbVideoJOID.ReadOnly = true -Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.TabIndex = 2 -Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID +'BTNGlitterD ' -'BTNVideoCHD +Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black +Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitterD.Name = "BTNGlitterD" +Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitterD.TabIndex = 166 +Me.BTNGlitterD.Text = "Choose Name Color" +Me.BTNGlitterD.UseVisualStyleBackColor = false ' -Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCHD.Name = "BTNVideoCHD" -Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCHD.TabIndex = 5 -Me.BTNVideoCHD.Text = "1" -Me.BTNVideoCHD.UseVisualStyleBackColor = false +'LBLGlitterSlider ' -'BTNVideoJOID +Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider.Name = "LBLGlitterSlider" +Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider.TabIndex = 162 +Me.LBLGlitterSlider.Text = "Post Frequency" +Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOID.Name = "BTNVideoJOID" -Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOID.TabIndex = 1 -Me.BTNVideoJOID.Text = "1" -Me.BTNVideoJOID.UseVisualStyleBackColor = false +'GlitterAV ' -'CBVideoJOID +Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV.Name = "GlitterAV" +Me.GlitterAV.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV.TabIndex = 149 +Me.GlitterAV.TabStop = false ' -Me.CBVideoJOID.AutoSize = true -Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID -Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOID.Name = "CBVideoJOID" -Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOID.TabIndex = 0 -Me.CBVideoJOID.Text = "JOI" -Me.CBVideoJOID.UseVisualStyleBackColor = true +'GBGlitter1 ' -'CBVideoCHD +Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.CBGlitter1) +Me.GBGlitter1.Controls.Add(Me.TBGlitter1) +Me.GBGlitter1.Controls.Add(Me.GlitterAV1) +Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) +Me.GBGlitter1.Name = "GBGlitter1" +Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter1.TabIndex = 161 +Me.GBGlitter1.TabStop = false +Me.GBGlitter1.Text = "Contact 1" ' -Me.CBVideoCHD.AutoSize = true -Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD -Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black -Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCHD.Name = "CBVideoCHD" -Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCHD.TabIndex = 4 -Me.CBVideoCHD.Text = "CH" -Me.CBVideoCHD.UseVisualStyleBackColor = true +'BtnContact1ImageDirClear ' -'GbxVideoGenreD +Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" +Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact1ImageDirClear.TabIndex = 181 +Me.BtnContact1ImageDirClear.Text = "Clear" +Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false ' -Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) -Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) -Me.GbxVideoGenreD.Name = "GbxVideoGenreD" -Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenreD.TabIndex = 3 -Me.GbxVideoGenreD.TabStop = false -Me.GbxVideoGenreD.Text = "Domme Genre" +'BtnContact1ImageDir ' -'LblVideoFemsubTotalD +Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" +Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact1ImageDir.TabIndex = 177 +Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" +Me.BtnContact1ImageDir.UseVisualStyleBackColor = false ' -Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" -Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotalD.TabIndex = 23 -Me.LblVideoFemsubTotalD.Text = "0" -Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BTNGlitter1 ' -'TxbVideoFemsubD +Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter1.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter1.Name = "BTNGlitter1" +Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter1.TabIndex = 175 +Me.BTNGlitter1.Text = "Choose Name Color" +Me.BTNGlitter1.UseVisualStyleBackColor = false ' -Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" -Me.TxbVideoFemsubD.ReadOnly = true -Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.TabIndex = 22 -Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD +'LBLGlitterSlider1 +' +Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" +Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider1.TabIndex = 163 +Me.LBLGlitterSlider1.Text = "Response Frequency" +Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoFemdomTotalD +'GlitterAV1 ' -Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" -Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotalD.TabIndex = 19 -Me.LblVideoFemdomTotalD.Text = "0" -Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV1.Name = "GlitterAV1" +Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV1.TabIndex = 149 +Me.GlitterAV1.TabStop = false ' -'TxbVideoFemdomD +'GBGlitter3 ' -Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" -Me.TxbVideoFemdomD.ReadOnly = true -Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.TabIndex = 18 -Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD +Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.CBGlitter3) +Me.GBGlitter3.Controls.Add(Me.TBGlitter3) +Me.GBGlitter3.Controls.Add(Me.GlitterAV3) +Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) +Me.GBGlitter3.Name = "GBGlitter3" +Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter3.TabIndex = 160 +Me.GBGlitter3.TabStop = false +Me.GBGlitter3.Text = "Contact 3" ' -'TxbVideoBlowjobD +'BtnContact3ImageDirClear ' -Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" -Me.TxbVideoBlowjobD.ReadOnly = true -Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.TabIndex = 14 -Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD +Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" +Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact3ImageDirClear.TabIndex = 180 +Me.BtnContact3ImageDirClear.Text = "Clear" +Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false ' -'LblVideoBlowjobTotalD +'BtnContact3ImageDir ' -Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" -Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotalD.TabIndex = 15 -Me.LblVideoBlowjobTotalD.Text = "0" -Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" +Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact3ImageDir.TabIndex = 179 +Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" +Me.BtnContact3ImageDir.UseVisualStyleBackColor = false ' -'TxbVideoLesbianD +'BTNGlitter3 ' -Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" -Me.TxbVideoLesbianD.ReadOnly = true -Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.TabIndex = 10 -Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD +Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter3.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter3.Name = "BTNGlitter3" +Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter3.TabIndex = 175 +Me.BTNGlitter3.Text = "Choose Name Color" +Me.BTNGlitter3.UseVisualStyleBackColor = false ' -'TxbVideoSoftCoreD +'LBLGlitterSlider3 ' -Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" -Me.TxbVideoSoftCoreD.ReadOnly = true -Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.TabIndex = 6 -Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD +Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" +Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider3.TabIndex = 163 +Me.LBLGlitterSlider3.Text = "Response Frequency" +Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoLesbianTotalD +'GlitterAV3 ' -Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" -Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotalD.TabIndex = 11 -Me.LblVideoLesbianTotalD.Text = "0" -Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV3.Name = "GlitterAV3" +Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV3.TabIndex = 149 +Me.GlitterAV3.TabStop = false ' -'TxbVideoHardCoreD +'GBGlitter2 ' -Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" -Me.TxbVideoHardCoreD.ReadOnly = true -Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.TabIndex = 2 -Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD +Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.CBGlitter2) +Me.GBGlitter2.Controls.Add(Me.TBGlitter2) +Me.GBGlitter2.Controls.Add(Me.GlitterAV2) +Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) +Me.GBGlitter2.Name = "GBGlitter2" +Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter2.TabIndex = 151 +Me.GBGlitter2.TabStop = false +Me.GBGlitter2.Text = "Contact 2" ' -'BTNVideoFemSubD +'BtnContact2ImageDirClear ' -Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" -Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSubD.TabIndex = 21 -Me.BTNVideoFemSubD.Text = "1" -Me.BTNVideoFemSubD.UseVisualStyleBackColor = false +Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" +Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact2ImageDirClear.TabIndex = 181 +Me.BtnContact2ImageDirClear.Text = "Clear" +Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false ' -'LblVideoSoftCoreTotalD +'BtnContact2ImageDir ' -Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" -Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotalD.TabIndex = 7 -Me.LblVideoSoftCoreTotalD.Text = "0" -Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" +Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact2ImageDir.TabIndex = 179 +Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" +Me.BtnContact2ImageDir.UseVisualStyleBackColor = false ' -'BTNVideoFemDomD +'BTNGlitter2 ' -Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" -Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDomD.TabIndex = 17 -Me.BTNVideoFemDomD.Text = "1" -Me.BTNVideoFemDomD.UseVisualStyleBackColor = false +Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter2.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter2.Name = "BTNGlitter2" +Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter2.TabIndex = 167 +Me.BTNGlitter2.Text = "Choose Name Color" +Me.BTNGlitter2.UseVisualStyleBackColor = false ' -'BTNVideoBlowjobD +'LBLGlitterSlider2 ' -Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" -Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjobD.TabIndex = 13 -Me.BTNVideoBlowjobD.Text = "1" -Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false +Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" +Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider2.TabIndex = 163 +Me.LBLGlitterSlider2.Text = "Response Frequency" +Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoHardCoreTotalD +'GlitterAV2 ' -Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" -Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotalD.TabIndex = 3 -Me.LblVideoHardCoreTotalD.Text = "0" -Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV2.Name = "GlitterAV2" +Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV2.TabIndex = 149 +Me.GlitterAV2.TabStop = false ' -'BTNVideoLesbianD +'TpGames ' -Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" -Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbianD.TabIndex = 9 -Me.BTNVideoLesbianD.Text = "1" -Me.BTNVideoLesbianD.UseVisualStyleBackColor = false +Me.TpGames.BackColor = System.Drawing.Color.LightGray +Me.TpGames.Controls.Add(Me.CBIncludeGifs) +Me.TpGames.Controls.Add(Me.LblCardsSetupNote) +Me.TpGames.Controls.Add(Me.CBGameSounds) +Me.TpGames.Controls.Add(Me.GbxCardsGold) +Me.TpGames.Controls.Add(Me.GbxCardsBackground) +Me.TpGames.Controls.Add(Me.GbxCardsBronze) +Me.TpGames.Controls.Add(Me.GbxCardsSilver) +Me.TpGames.Location = New System.Drawing.Point(4, 22) +Me.TpGames.Name = "TpGames" +Me.TpGames.Padding = New System.Windows.Forms.Padding(3) +Me.TpGames.Size = New System.Drawing.Size(700, 411) +Me.TpGames.TabIndex = 1 +Me.TpGames.Text = "Games" ' -'BTNVideoSoftCoreD +'LblCardsSetupNote ' -Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" -Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCoreD.TabIndex = 5 -Me.BTNVideoSoftCoreD.Text = "1" -Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false +Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) +Me.LblCardsSetupNote.Name = "LblCardsSetupNote" +Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) +Me.LblCardsSetupNote.TabIndex = 4 +Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ + "!" +Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNVideoHardCoreD +'CBGameSounds ' -Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" -Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCoreD.TabIndex = 1 -Me.BTNVideoHardCoreD.Text = "1" -Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false +Me.CBGameSounds.AutoSize = true +Me.CBGameSounds.Checked = true +Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBGameSounds.ForeColor = System.Drawing.Color.Black +Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) +Me.CBGameSounds.Name = "CBGameSounds" +Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) +Me.CBGameSounds.TabIndex = 6 +Me.CBGameSounds.Text = "Play Game Sounds" +Me.CBGameSounds.UseVisualStyleBackColor = true ' -'CBVideoHardcoreD +'GbxCardsGold ' -Me.CBVideoHardcoreD.AutoSize = true -Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD -Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" -Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcoreD.TabIndex = 0 -Me.CBVideoHardcoreD.Text = "Hardcore" -Me.CBVideoHardcoreD.UseVisualStyleBackColor = true +Me.GbxCardsGold.Controls.Add(Me.GN6) +Me.GbxCardsGold.Controls.Add(Me.GP6) +Me.GbxCardsGold.Controls.Add(Me.GN2) +Me.GbxCardsGold.Controls.Add(Me.GP2) +Me.GbxCardsGold.Controls.Add(Me.GP5) +Me.GbxCardsGold.Controls.Add(Me.GN1) +Me.GbxCardsGold.Controls.Add(Me.GP1) +Me.GbxCardsGold.Controls.Add(Me.GN5) +Me.GbxCardsGold.Controls.Add(Me.GN3) +Me.GbxCardsGold.Controls.Add(Me.GP3) +Me.GbxCardsGold.Controls.Add(Me.GP4) +Me.GbxCardsGold.Controls.Add(Me.GN4) +Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) +Me.GbxCardsGold.Name = "GbxCardsGold" +Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) +Me.GbxCardsGold.TabIndex = 2 +Me.GbxCardsGold.TabStop = false +Me.GbxCardsGold.Text = "Gold Cards" ' -'CBVideoSoftCoreD +'GbxCardsBackground ' -Me.CBVideoSoftCoreD.AutoSize = true -Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD -Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" -Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCoreD.TabIndex = 4 -Me.CBVideoSoftCoreD.Text = "Softcore" -Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true +Me.GbxCardsBackground.Controls.Add(Me.CardBack) +Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) +Me.GbxCardsBackground.Name = "GbxCardsBackground" +Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) +Me.GbxCardsBackground.TabIndex = 3 +Me.GbxCardsBackground.TabStop = false +Me.GbxCardsBackground.Text = "Card Background" ' -'CBVideoLesbianD +'GbxCardsBronze ' -Me.CBVideoLesbianD.AutoSize = true -Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD -Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbianD.Name = "CBVideoLesbianD" -Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbianD.TabIndex = 8 -Me.CBVideoLesbianD.Text = "Lesbian" -Me.CBVideoLesbianD.UseVisualStyleBackColor = true +Me.GbxCardsBronze.Controls.Add(Me.BN6) +Me.GbxCardsBronze.Controls.Add(Me.BN3) +Me.GbxCardsBronze.Controls.Add(Me.BP3) +Me.GbxCardsBronze.Controls.Add(Me.BP6) +Me.GbxCardsBronze.Controls.Add(Me.BN2) +Me.GbxCardsBronze.Controls.Add(Me.BN5) +Me.GbxCardsBronze.Controls.Add(Me.BP5) +Me.GbxCardsBronze.Controls.Add(Me.BP2) +Me.GbxCardsBronze.Controls.Add(Me.BN1) +Me.GbxCardsBronze.Controls.Add(Me.BN4) +Me.GbxCardsBronze.Controls.Add(Me.BP4) +Me.GbxCardsBronze.Controls.Add(Me.BP1) +Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) +Me.GbxCardsBronze.Name = "GbxCardsBronze" +Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsBronze.TabIndex = 0 +Me.GbxCardsBronze.TabStop = false +Me.GbxCardsBronze.Text = "Bronze Cards" ' -'CBVideoBlowjobD +'GbxCardsSilver ' -Me.CBVideoBlowjobD.AutoSize = true -Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD -Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" -Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjobD.TabIndex = 12 -Me.CBVideoBlowjobD.Text = "Blowjob" -Me.CBVideoBlowjobD.UseVisualStyleBackColor = true +Me.GbxCardsSilver.Controls.Add(Me.SN6) +Me.GbxCardsSilver.Controls.Add(Me.SP6) +Me.GbxCardsSilver.Controls.Add(Me.SN2) +Me.GbxCardsSilver.Controls.Add(Me.SP2) +Me.GbxCardsSilver.Controls.Add(Me.SN1) +Me.GbxCardsSilver.Controls.Add(Me.SP5) +Me.GbxCardsSilver.Controls.Add(Me.SP1) +Me.GbxCardsSilver.Controls.Add(Me.SN5) +Me.GbxCardsSilver.Controls.Add(Me.SN3) +Me.GbxCardsSilver.Controls.Add(Me.SN4) +Me.GbxCardsSilver.Controls.Add(Me.SP3) +Me.GbxCardsSilver.Controls.Add(Me.SP4) +Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) +Me.GbxCardsSilver.Name = "GbxCardsSilver" +Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsSilver.TabIndex = 1 +Me.GbxCardsSilver.TabStop = false +Me.GbxCardsSilver.Text = "Silver Cards" ' -'CBVideoFemsubD +'TabPage6 ' -Me.CBVideoFemsubD.AutoSize = true -Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD -Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsubD.Name = "CBVideoFemsubD" -Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsubD.TabIndex = 20 -Me.CBVideoFemsubD.Text = "Femsub" -Me.CBVideoFemsubD.UseVisualStyleBackColor = true +Me.TabPage6.BackColor = System.Drawing.Color.LightGray +Me.TabPage6.Controls.Add(Me.Panel10) +Me.TabPage6.Controls.Add(Me.Label107) +Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) +Me.TabPage6.Controls.Add(Me.Label18) +Me.TabPage6.Controls.Add(Me.PNLWishList) +Me.TabPage6.Location = New System.Drawing.Point(4, 22) +Me.TabPage6.Name = "TabPage6" +Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage6.Size = New System.Drawing.Size(700, 411) +Me.TabPage6.TabIndex = 2 +Me.TabPage6.Text = "Wishlist" ' -'CBVideoFemdomD +'Panel10 ' -Me.CBVideoFemdomD.AutoSize = true -Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD -Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdomD.Name = "CBVideoFemdomD" -Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdomD.TabIndex = 16 -Me.CBVideoFemdomD.Text = "Femdom" -Me.CBVideoFemdomD.UseVisualStyleBackColor = true +Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel10.Controls.Add(Me.TBWishlistComment) +Me.Panel10.Controls.Add(Me.Label32) +Me.Panel10.Controls.Add(Me.TBWishlistItem) +Me.Panel10.Controls.Add(Me.radioGold) +Me.Panel10.Controls.Add(Me.Label42) +Me.Panel10.Controls.Add(Me.radioSilver) +Me.Panel10.Controls.Add(Me.TBWishlistURL) +Me.Panel10.Controls.Add(Me.NBWishlistCost) +Me.Panel10.Controls.Add(Me.Label48) +Me.Panel10.Controls.Add(Me.Label73) +Me.Panel10.Location = New System.Drawing.Point(38, 47) +Me.Panel10.Name = "Panel10" +Me.Panel10.Size = New System.Drawing.Size(252, 308) +Me.Panel10.TabIndex = 179 ' -'GbxVideoDescription +'TBWishlistComment ' -Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) -Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black -Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) -Me.GbxVideoDescription.Name = "GbxVideoDescription" -Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) -Me.GbxVideoDescription.TabIndex = 6 -Me.GbxVideoDescription.TabStop = false -Me.GbxVideoDescription.Text = "Description" +Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) +Me.TBWishlistComment.Multiline = true +Me.TBWishlistComment.Name = "TBWishlistComment" +Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) +Me.TBWishlistComment.TabIndex = 172 ' -'VideoDescriptionLabel +'Label32 ' -Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent -Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black -Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) -Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" -Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) -Me.VideoDescriptionLabel.TabIndex = 62 -Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ - "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ - "using as your domme." -Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label32.AutoSize = true +Me.Label32.Location = New System.Drawing.Point(13, 4) +Me.Label32.Name = "Label32" +Me.Label32.Size = New System.Drawing.Size(58, 13) +Me.Label32.TabIndex = 167 +Me.Label32.Text = "Item Name" ' -'GbxVideoGeneral +'TBWishlistItem ' -Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) -Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) -Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) -Me.GbxVideoGeneral.Name = "GbxVideoGeneral" -Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneral.TabIndex = 2 -Me.GbxVideoGeneral.TabStop = false -Me.GbxVideoGeneral.Text = "General" +Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) +Me.TBWishlistItem.Name = "TBWishlistItem" +Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistItem.TabIndex = 168 ' -'LblVideoGeneralTotal +'radioGold ' -Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" -Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotal.TabIndex = 3 -Me.LblVideoGeneralTotal.Text = "0" -Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.radioGold.AutoSize = true +Me.radioGold.Location = New System.Drawing.Point(167, 125) +Me.radioGold.Name = "radioGold" +Me.radioGold.Size = New System.Drawing.Size(47, 17) +Me.radioGold.TabIndex = 176 +Me.radioGold.Text = "Gold" +Me.radioGold.UseVisualStyleBackColor = true ' -'TxbVideoGeneral +'Label42 ' -Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.Name = "TxbVideoGeneral" -Me.TxbVideoGeneral.ReadOnly = true -Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.TabIndex = 2 -Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral +Me.Label42.AutoSize = true +Me.Label42.Location = New System.Drawing.Point(13, 56) +Me.Label42.Name = "Label42" +Me.Label42.Size = New System.Drawing.Size(75, 13) +Me.Label42.TabIndex = 169 +Me.Label42.Text = "Item Image Url" ' -'BTNVideoGeneral +'radioSilver ' -Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneral.Name = "BTNVideoGeneral" -Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneral.TabIndex = 1 -Me.BTNVideoGeneral.Text = "1" -Me.BTNVideoGeneral.UseVisualStyleBackColor = false +Me.radioSilver.AutoSize = true +Me.radioSilver.Checked = true +Me.radioSilver.Location = New System.Drawing.Point(100, 125) +Me.radioSilver.Name = "radioSilver" +Me.radioSilver.Size = New System.Drawing.Size(51, 17) +Me.radioSilver.TabIndex = 175 +Me.radioSilver.TabStop = true +Me.radioSilver.Text = "Silver" +Me.radioSilver.UseVisualStyleBackColor = true ' -'CBVideoGeneral +'TBWishlistURL ' -Me.CBVideoGeneral.AutoSize = true -Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral -Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneral.Name = "CBVideoGeneral" -Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneral.TabIndex = 0 -Me.CBVideoGeneral.Text = "General" -Me.CBVideoGeneral.UseVisualStyleBackColor = true +Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) +Me.TBWishlistURL.Name = "TBWishlistURL" +Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistURL.TabIndex = 170 ' -'GbxVideoSpecial +'NBWishlistCost ' -Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) -Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) -Me.GbxVideoSpecial.Name = "GbxVideoSpecial" -Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecial.TabIndex = 1 -Me.GbxVideoSpecial.TabStop = false -Me.GbxVideoSpecial.Text = "Special" +Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) +Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBWishlistCost.Name = "NBWishlistCost" +Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) +Me.NBWishlistCost.TabIndex = 174 +Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -'LblVideoCHTotal +'Label48 ' -Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) -Me.LblVideoCHTotal.Name = "LblVideoCHTotal" -Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotal.TabIndex = 7 -Me.LblVideoCHTotal.Text = "0" -Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label48.AutoSize = true +Me.Label48.Location = New System.Drawing.Point(13, 157) +Me.Label48.Name = "Label48" +Me.Label48.Size = New System.Drawing.Size(74, 13) +Me.Label48.TabIndex = 171 +Me.Label48.Text = "Item Comment" ' -'LblVideoJOITotal +'Label73 ' -Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) -Me.LblVideoJOITotal.Name = "LblVideoJOITotal" -Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotal.TabIndex = 3 -Me.LblVideoJOITotal.Text = "0" -Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label73.AutoSize = true +Me.Label73.Location = New System.Drawing.Point(13, 108) +Me.Label73.Name = "Label73" +Me.Label73.Size = New System.Drawing.Size(51, 13) +Me.Label73.TabIndex = 173 +Me.Label73.Text = "Item Cost" ' -'TxbVideoCH +'Label107 ' -Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.Name = "TxbVideoCH" -Me.TxbVideoCH.ReadOnly = true -Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.TabIndex = 6 -Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH +Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label107.Location = New System.Drawing.Point(38, 5) +Me.Label107.Name = "Label107" +Me.Label107.Size = New System.Drawing.Size(252, 47) +Me.Label107.TabIndex = 178 +Me.Label107.Text = "Use this page to create Wishlist files." +Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TxbVideoJOI +'BTNWishlistCreate ' -Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.Name = "TxbVideoJOI" -Me.TxbVideoJOI.ReadOnly = true -Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.TabIndex = 2 -Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI +Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) +Me.BTNWishlistCreate.Name = "BTNWishlistCreate" +Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) +Me.BTNWishlistCreate.TabIndex = 177 +Me.BTNWishlistCreate.Text = "Create Wishlist File" +Me.BTNWishlistCreate.UseVisualStyleBackColor = true ' -'BTNVideoCH +'Label18 ' -Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCH.Name = "BTNVideoCH" -Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCH.TabIndex = 5 -Me.BTNVideoCH.Text = "1" -Me.BTNVideoCH.UseVisualStyleBackColor = false +Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label18.Location = New System.Drawing.Point(409, 5) +Me.Label18.Name = "Label18" +Me.Label18.Size = New System.Drawing.Size(250, 23) +Me.Label18.TabIndex = 166 +Me.Label18.Text = "Preview" +Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNVideoJOI +'PNLWishList ' -Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOI.Name = "BTNVideoJOI" -Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOI.TabIndex = 1 -Me.BTNVideoJOI.Text = "1" -Me.BTNVideoJOI.UseVisualStyleBackColor = false +Me.PNLWishList.BackColor = System.Drawing.Color.White +Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) +Me.PNLWishList.Controls.Add(Me.LBLWishListText) +Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) +Me.PNLWishList.Controls.Add(Me.WishlistCostGold) +Me.PNLWishList.Controls.Add(Me.LBLWishListName) +Me.PNLWishList.Controls.Add(Me.WishlistPreview) +Me.PNLWishList.Location = New System.Drawing.Point(407, 31) +Me.PNLWishList.Name = "PNLWishList" +Me.PNLWishList.Size = New System.Drawing.Size(250, 367) +Me.PNLWishList.TabIndex = 165 ' -'CBVideoJOI +'WishlistCostSilver ' -Me.CBVideoJOI.AutoSize = true -Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI -Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOI.Name = "CBVideoJOI" -Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOI.TabIndex = 0 -Me.CBVideoJOI.Text = "JOI" -Me.CBVideoJOI.UseVisualStyleBackColor = true +Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) +Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostSilver.Name = "WishlistCostSilver" +Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostSilver.TabIndex = 111 +Me.WishlistCostSilver.TabStop = false ' -'CBVideoCH +'LBLWishListText ' -Me.CBVideoCH.AutoSize = true -Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH -Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCH.ForeColor = System.Drawing.Color.Black -Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCH.Name = "CBVideoCH" -Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCH.TabIndex = 4 -Me.CBVideoCH.Text = "CH" -Me.CBVideoCH.UseVisualStyleBackColor = true +Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) +Me.LBLWishListText.Name = "LBLWishListText" +Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) +Me.LBLWishListText.TabIndex = 108 ' -'GbxVideoGenre +'LBLWishlistCost ' -Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) -Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) -Me.GbxVideoGenre.Name = "GbxVideoGenre" -Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenre.TabIndex = 0 -Me.GbxVideoGenre.TabStop = false -Me.GbxVideoGenre.Text = "Genre" +Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black +Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) +Me.LBLWishlistCost.Name = "LBLWishlistCost" +Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) +Me.LBLWishlistCost.TabIndex = 107 +Me.LBLWishlistCost.Text = "3" +Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LblVideoFemsubTotal +'WishlistCostGold ' -Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" -Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotal.TabIndex = 23 -Me.LblVideoFemsubTotal.Text = "0" -Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) +Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostGold.Name = "WishlistCostGold" +Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostGold.TabIndex = 106 +Me.WishlistCostGold.TabStop = false +Me.WishlistCostGold.Visible = false ' -'TxbVideoFemsub +'LBLWishListName ' -Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.Name = "TxbVideoFemsub" -Me.TxbVideoFemsub.ReadOnly = true -Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.TabIndex = 22 -Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub +Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue +Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) +Me.LBLWishListName.Name = "LBLWishListName" +Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) +Me.LBLWishListName.TabIndex = 104 +Me.LBLWishListName.Text = "Item Name Goes Here" +Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoFemdomTotal +'WishlistPreview ' -Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" -Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotal.TabIndex = 19 -Me.LblVideoFemdomTotal.Text = "0" -Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.WishlistPreview.ImageLocation = "" +Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) +Me.WishlistPreview.Name = "WishlistPreview" +Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) +Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WishlistPreview.TabIndex = 101 +Me.WishlistPreview.TabStop = false ' -'TxbVideoFemdom +'TabPage26 ' -Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.Name = "TxbVideoFemdom" -Me.TxbVideoFemdom.ReadOnly = true -Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.TabIndex = 18 -Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom +Me.TabPage26.BackColor = System.Drawing.Color.Silver +Me.TabPage26.Controls.Add(Me.Panel12) +Me.TabPage26.Location = New System.Drawing.Point(4, 22) +Me.TabPage26.Name = "TabPage26" +Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage26.Size = New System.Drawing.Size(720, 448) +Me.TabPage26.TabIndex = 19 +Me.TabPage26.Text = "Themes" ' -'TxbVideoBlowjob +'Panel12 ' -Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" -Me.TxbVideoBlowjob.ReadOnly = true -Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.TabIndex = 14 -Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob +Me.Panel12.BackColor = System.Drawing.Color.LightGray +Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel12.Controls.Add(Me.GroupBox9) +Me.Panel12.Controls.Add(Me.PictureBox10) +Me.Panel12.Controls.Add(Me.GroupBox5) +Me.Panel12.Controls.Add(Me.GroupBox11) +Me.Panel12.Controls.Add(Me.GroupBox1) +Me.Panel12.Controls.Add(Me.Label164) +Me.Panel12.Location = New System.Drawing.Point(6, 6) +Me.Panel12.Name = "Panel12" +Me.Panel12.Size = New System.Drawing.Size(708, 437) +Me.Panel12.TabIndex = 93 ' -'LblVideoBlowjobTotal +'GroupBox9 ' -Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" -Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotal.TabIndex = 15 -Me.LblVideoBlowjobTotal.Text = "0" -Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox9.Controls.Add(Me.Button32) +Me.GroupBox9.Controls.Add(Me.Button31) +Me.GroupBox9.Location = New System.Drawing.Point(351, 231) +Me.GroupBox9.Name = "GroupBox9" +Me.GroupBox9.Size = New System.Drawing.Size(348, 94) +Me.GroupBox9.TabIndex = 152 +Me.GroupBox9.TabStop = false +Me.GroupBox9.Text = "System" ' -'TxbVideoLesbian +'Button32 ' -Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.Name = "TxbVideoLesbian" -Me.TxbVideoLesbian.ReadOnly = true -Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.TabIndex = 10 -Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian +Me.Button32.BackColor = System.Drawing.Color.Transparent +Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big +Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button32.Location = New System.Drawing.Point(196, 24) +Me.Button32.Name = "Button32" +Me.Button32.Size = New System.Drawing.Size(135, 55) +Me.Button32.TabIndex = 55 +Me.Button32.Text = " Save Theme" +Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button32.UseVisualStyleBackColor = false ' -'TxbVideoSoftCore +'Button31 ' -Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" -Me.TxbVideoSoftCore.ReadOnly = true -Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.TabIndex = 6 -Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore +Me.Button31.BackColor = System.Drawing.Color.Transparent +Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big +Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button31.Location = New System.Drawing.Point(17, 24) +Me.Button31.Name = "Button31" +Me.Button31.Size = New System.Drawing.Size(135, 55) +Me.Button31.TabIndex = 54 +Me.Button31.Text = " Open Theme" +Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button31.UseVisualStyleBackColor = false ' -'LblVideoLesbianTotal +'PictureBox10 ' -Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" -Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotal.TabIndex = 11 -Me.LblVideoLesbianTotal.Text = "0" -Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.PictureBox10.BackColor = System.Drawing.Color.LightGray +Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox10.Location = New System.Drawing.Point(9, 6) +Me.PictureBox10.Name = "PictureBox10" +Me.PictureBox10.Size = New System.Drawing.Size(160, 19) +Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox10.TabIndex = 151 +Me.PictureBox10.TabStop = false ' -'TxbVideoHardCore +'GroupBox5 ' -Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.Name = "TxbVideoHardCore" -Me.TxbVideoHardCore.ReadOnly = true -Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.TabIndex = 2 -Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore +Me.GroupBox5.Controls.Add(Me.CBTransparentTime) +Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) +Me.GroupBox5.Controls.Add(Me.Label137) +Me.GroupBox5.Controls.Add(Me.Label138) +Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) +Me.GroupBox5.Location = New System.Drawing.Point(9, 31) +Me.GroupBox5.Name = "GroupBox5" +Me.GroupBox5.Size = New System.Drawing.Size(336, 294) +Me.GroupBox5.TabIndex = 58 +Me.GroupBox5.TabStop = false +Me.GroupBox5.Text = "UI Colors" ' -'BTNVideoFemSub +'CBTransparentTime ' -Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSub.Name = "BTNVideoFemSub" -Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSub.TabIndex = 21 -Me.BTNVideoFemSub.Text = "1" -Me.BTNVideoFemSub.UseVisualStyleBackColor = false +Me.CBTransparentTime.AutoSize = true +Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) +Me.CBTransparentTime.Name = "CBTransparentTime" +Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) +Me.CBTransparentTime.TabIndex = 23 +Me.CBTransparentTime.Text = "Transparent Date/Time Window" +Me.CBTransparentTime.UseVisualStyleBackColor = true ' -'LblVideoSoftCoreTotal +'Label137 ' -Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" -Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotal.TabIndex = 7 -Me.LblVideoSoftCoreTotal.Text = "0" -Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label137.Location = New System.Drawing.Point(6, 227) +Me.Label137.Name = "Label137" +Me.Label137.Size = New System.Drawing.Size(175, 20) +Me.Label137.TabIndex = 20 +Me.Label137.Text = "Date/Time Window Color" +Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoFemDom +'Label138 ' -Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDom.Name = "BTNVideoFemDom" -Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDom.TabIndex = 17 -Me.BTNVideoFemDom.Text = "1" -Me.BTNVideoFemDom.UseVisualStyleBackColor = false +Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label138.Location = New System.Drawing.Point(6, 193) +Me.Label138.Name = "Label138" +Me.Label138.Size = New System.Drawing.Size(175, 20) +Me.Label138.TabIndex = 17 +Me.Label138.Text = "Date/Time Text Color" +Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoBlowjob +'LBLTextColor ' -Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" -Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjob.TabIndex = 13 -Me.BTNVideoBlowjob.Text = "1" -Me.BTNVideoBlowjob.UseVisualStyleBackColor = false +Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) +Me.LBLTextColor.Name = "LBLTextColor" +Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLTextColor.TabIndex = 7 +Me.LBLTextColor.Text = "Text Color" +Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LblVideoHardCoreTotal +'LBLChatTextColor ' -Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" -Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotal.TabIndex = 3 -Me.LblVideoHardCoreTotal.Text = "0" -Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) +Me.LBLChatTextColor.Name = "LBLChatTextColor" +Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatTextColor.TabIndex = 14 +Me.LBLChatTextColor.Text = "Chat Text Color" +Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoLesbian +'LBLButtonColor ' -Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbian.Name = "BTNVideoLesbian" -Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbian.TabIndex = 9 -Me.BTNVideoLesbian.Text = "1" -Me.BTNVideoLesbian.UseVisualStyleBackColor = false +Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) +Me.LBLButtonColor.Name = "LBLButtonColor" +Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) +Me.LBLButtonColor.TabIndex = 4 +Me.LBLButtonColor.Text = "Button Color" +Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoSoftCore +'LBLChatWindowColor ' -Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" -Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCore.TabIndex = 5 -Me.BTNVideoSoftCore.Text = "1" -Me.BTNVideoSoftCore.UseVisualStyleBackColor = false +Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) +Me.LBLChatWindowColor.Name = "LBLChatWindowColor" +Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatWindowColor.TabIndex = 10 +Me.LBLChatWindowColor.Text = "Chat Window Color" +Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoHardCore +'LBLBackColor ' -Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCore.Name = "BTNVideoHardCore" -Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCore.TabIndex = 1 -Me.BTNVideoHardCore.Text = "1" -Me.BTNVideoHardCore.UseVisualStyleBackColor = false +Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) +Me.LBLBackColor.Name = "LBLBackColor" +Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) +Me.LBLBackColor.TabIndex = 0 +Me.LBLBackColor.Text = "Background Color" +Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBVideoHardcore +'GroupBox11 ' -Me.CBVideoHardcore.AutoSize = true -Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore -Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcore.Name = "CBVideoHardcore" -Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcore.TabIndex = 0 -Me.CBVideoHardcore.Text = "Hardcore" -Me.CBVideoHardcore.UseVisualStyleBackColor = true +Me.GroupBox11.BackColor = System.Drawing.Color.LightGray +Me.GroupBox11.Controls.Add(Me.Label144) +Me.GroupBox11.ForeColor = System.Drawing.Color.Black +Me.GroupBox11.Location = New System.Drawing.Point(7, 331) +Me.GroupBox11.Name = "GroupBox11" +Me.GroupBox11.Size = New System.Drawing.Size(692, 92) +Me.GroupBox11.TabIndex = 65 +Me.GroupBox11.TabStop = false +Me.GroupBox11.Text = "Description" +' +'Label144 +' +Me.Label144.BackColor = System.Drawing.Color.Transparent +Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label144.ForeColor = System.Drawing.Color.Black +Me.Label144.Location = New System.Drawing.Point(6, 16) +Me.Label144.Name = "Label144" +Me.Label144.Size = New System.Drawing.Size(680, 73) +Me.Label144.TabIndex = 62 +Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ + "nd opened from txt files." +Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBVideoSoftCore +'GroupBox1 ' -Me.CBVideoSoftCore.AutoSize = true -Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore -Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCore.Name = "CBVideoSoftCore" -Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCore.TabIndex = 4 -Me.CBVideoSoftCore.Text = "Softcore" -Me.CBVideoSoftCore.UseVisualStyleBackColor = true +Me.GroupBox1.Controls.Add(Me.CBFlipBack) +Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) +Me.GroupBox1.Controls.Add(Me.Button17) +Me.GroupBox1.Controls.Add(Me.CBStretchBack) +Me.GroupBox1.Controls.Add(Me.Button18) +Me.GroupBox1.Location = New System.Drawing.Point(351, 30) +Me.GroupBox1.Name = "GroupBox1" +Me.GroupBox1.Size = New System.Drawing.Size(348, 195) +Me.GroupBox1.TabIndex = 57 +Me.GroupBox1.TabStop = false +Me.GroupBox1.Text = "Background" ' -'CBVideoLesbian +'CBFlipBack ' -Me.CBVideoLesbian.AutoSize = true -Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian -Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbian.Name = "CBVideoLesbian" -Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbian.TabIndex = 8 -Me.CBVideoLesbian.Text = "Lesbian" -Me.CBVideoLesbian.UseVisualStyleBackColor = true +Me.CBFlipBack.Enabled = false +Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) +Me.CBFlipBack.Name = "CBFlipBack" +Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) +Me.CBFlipBack.TabIndex = 4 +Me.CBFlipBack.Text = "Flip Background" +Me.CBFlipBack.UseVisualStyleBackColor = true ' -'CBVideoBlowjob +'PBBackgroundPreview ' -Me.CBVideoBlowjob.AutoSize = true -Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob -Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjob.Name = "CBVideoBlowjob" -Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjob.TabIndex = 12 -Me.CBVideoBlowjob.Text = "Blowjob" -Me.CBVideoBlowjob.UseVisualStyleBackColor = true +Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) +Me.PBBackgroundPreview.Name = "PBBackgroundPreview" +Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) +Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PBBackgroundPreview.TabIndex = 0 +Me.PBBackgroundPreview.TabStop = false ' -'CBVideoFemsub +'Button17 ' -Me.CBVideoFemsub.AutoSize = true -Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub -Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsub.Name = "CBVideoFemsub" -Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsub.TabIndex = 20 -Me.CBVideoFemsub.Text = "Femsub" -Me.CBVideoFemsub.UseVisualStyleBackColor = true +Me.Button17.BackColor = System.Drawing.Color.Transparent +Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load +Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button17.Location = New System.Drawing.Point(228, 36) +Me.Button17.Name = "Button17" +Me.Button17.Size = New System.Drawing.Size(103, 93) +Me.Button17.TabIndex = 1 +Me.Button17.UseVisualStyleBackColor = false ' -'CBVideoFemdom +'CBStretchBack ' -Me.CBVideoFemdom.AutoSize = true -Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom -Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdom.Name = "CBVideoFemdom" -Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdom.TabIndex = 16 -Me.CBVideoFemdom.Text = "Femdom" -Me.CBVideoFemdom.UseVisualStyleBackColor = true +Me.CBStretchBack.Checked = true +Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) +Me.CBStretchBack.Name = "CBStretchBack" +Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) +Me.CBStretchBack.TabIndex = 2 +Me.CBStretchBack.Text = "Stretch Background" +Me.CBStretchBack.UseVisualStyleBackColor = true ' -'LblVideoHeader +'Button18 ' -Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black -Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) -Me.LblVideoHeader.Name = "LblVideoHeader" -Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) -Me.LblVideoHeader.TabIndex = 49 -Me.LblVideoHeader.Text = "Video Settings" -Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Button18.Location = New System.Drawing.Point(228, 155) +Me.Button18.Name = "Button18" +Me.Button18.Size = New System.Drawing.Size(103, 31) +Me.Button18.TabIndex = 3 +Me.Button18.Text = "Clear" +Me.Button18.UseVisualStyleBackColor = true ' -'TabPage20 +'Label164 ' -Me.TabPage20.BackColor = System.Drawing.Color.Silver -Me.TabPage20.Controls.Add(Me.TabControl1) -Me.TabPage20.Location = New System.Drawing.Point(4, 22) -Me.TabPage20.Name = "TabPage20" -Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage20.Size = New System.Drawing.Size(720, 448) -Me.TabPage20.TabIndex = 16 -Me.TabPage20.Text = "Apps" +Me.Label164.BackColor = System.Drawing.Color.Transparent +Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label164.ForeColor = System.Drawing.Color.Black +Me.Label164.Location = New System.Drawing.Point(7, 6) +Me.Label164.Name = "Label164" +Me.Label164.Size = New System.Drawing.Size(692, 21) +Me.Label164.TabIndex = 49 +Me.Label164.Text = "Theme Settings" +Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TabControl1 +'TabPage4 ' -Me.TabControl1.Controls.Add(Me.TabPage22) -Me.TabControl1.Controls.Add(Me.TpGames) -Me.TabControl1.Controls.Add(Me.TabPage6) -Me.TabControl1.Location = New System.Drawing.Point(6, 6) -Me.TabControl1.Name = "TabControl1" -Me.TabControl1.SelectedIndex = 0 -Me.TabControl1.Size = New System.Drawing.Size(708, 437) -Me.TabControl1.TabIndex = 0 +Me.TabPage4.BackColor = System.Drawing.Color.Silver +Me.TabPage4.Controls.Add(Me.Panel6) +Me.TabPage4.Location = New System.Drawing.Point(4, 22) +Me.TabPage4.Name = "TabPage4" +Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage4.Size = New System.Drawing.Size(720, 448) +Me.TabPage4.TabIndex = 3 +Me.TabPage4.Text = "Ranges" ' -'TabPage22 +'Panel6 ' -Me.TabPage22.BackColor = System.Drawing.Color.LightGray -Me.TabPage22.Controls.Add(Me.PNLGlitter) -Me.TabPage22.Location = New System.Drawing.Point(4, 22) -Me.TabPage22.Name = "TabPage22" -Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage22.Size = New System.Drawing.Size(700, 411) -Me.TabPage22.TabIndex = 0 -Me.TabPage22.Text = "Glitter" +Me.Panel6.BackColor = System.Drawing.Color.LightGray +Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel6.Controls.Add(Me.GroupBox69) +Me.Panel6.Controls.Add(Me.GroupBox68) +Me.Panel6.Controls.Add(Me.GroupBox67) +Me.Panel6.Controls.Add(Me.GroupBox10) +Me.Panel6.Controls.Add(Me.GroupBox57) +Me.Panel6.Controls.Add(Me.GBRangeRuinChance) +Me.Panel6.Controls.Add(Me.GroupBox17) +Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) +Me.Panel6.Controls.Add(Me.PictureBox8) +Me.Panel6.Controls.Add(Me.Label38) +Me.Panel6.Location = New System.Drawing.Point(6, 6) +Me.Panel6.Name = "Panel6" +Me.Panel6.Size = New System.Drawing.Size(708, 437) +Me.Panel6.TabIndex = 91 ' -'PNLGlitter +'GroupBox69 ' -Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray -Me.PNLGlitter.Controls.Add(Me.GroupBox4) -Me.PNLGlitter.Controls.Add(Me.Button15) -Me.PNLGlitter.Controls.Add(Me.Button16) -Me.PNLGlitter.Controls.Add(Me.Label121) -Me.PNLGlitter.Controls.Add(Me.Label122) -Me.PNLGlitter.Controls.Add(Me.GBGlitterD) -Me.PNLGlitter.Controls.Add(Me.GBGlitter1) -Me.PNLGlitter.Controls.Add(Me.GBGlitter3) -Me.PNLGlitter.Controls.Add(Me.GBGlitter2) -Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) -Me.PNLGlitter.Name = "PNLGlitter" -Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) -Me.PNLGlitter.TabIndex = 91 +Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) +Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) +Me.GroupBox69.Controls.Add(Me.TimedWriting) +Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) +Me.GroupBox69.Location = New System.Drawing.Point(236, 344) +Me.GroupBox69.Name = "GroupBox69" +Me.GroupBox69.Size = New System.Drawing.Size(166, 83) +Me.GroupBox69.TabIndex = 173 +Me.GroupBox69.TabStop = false +Me.GroupBox69.Text = "Writing Tasks" ' -'Button15 +'TypesSpeedVal ' -Me.Button15.BackColor = System.Drawing.Color.LightGray -Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button15.FlatAppearance.BorderSize = 0 -Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button15.ForeColor = System.Drawing.Color.Black -Me.Button15.Location = New System.Drawing.Point(670, 366) -Me.Button15.Name = "Button15" -Me.Button15.Size = New System.Drawing.Size(30, 26) -Me.Button15.TabIndex = 163 -Me.Button15.UseVisualStyleBackColor = false +Me.TypesSpeedVal.AutoSize = true +Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) +Me.TypesSpeedVal.Name = "TypesSpeedVal" +Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) +Me.TypesSpeedVal.TabIndex = 0 +Me.TypesSpeedVal.Text = "10" +Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'Button16 +'TypeSpeedLabel ' -Me.Button16.BackColor = System.Drawing.Color.LightGray -Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button16.FlatAppearance.BorderSize = 0 -Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button16.ForeColor = System.Drawing.Color.Black -Me.Button16.Location = New System.Drawing.Point(667, 324) -Me.Button16.Name = "Button16" -Me.Button16.Size = New System.Drawing.Size(30, 26) -Me.Button16.TabIndex = 164 -Me.Button16.UseVisualStyleBackColor = false +Me.TypeSpeedLabel.AutoSize = true +Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) +Me.TypeSpeedLabel.Name = "TypeSpeedLabel" +Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) +Me.TypeSpeedLabel.TabIndex = 2 +Me.TypeSpeedLabel.Text = "Typing Speed:" ' -'Label121 +'GroupBox68 ' -Me.Label121.AutoSize = true -Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label121.ForeColor = System.Drawing.Color.Black -Me.Label121.Location = New System.Drawing.Point(669, 352) -Me.Label121.Name = "Label121" -Me.Label121.Size = New System.Drawing.Size(27, 13) -Me.Label121.TabIndex = 166 -Me.Label121.Text = "load" -Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox68.Controls.Add(Me.NBTasksMax) +Me.GroupBox68.Controls.Add(Me.NBTasksMin) +Me.GroupBox68.Controls.Add(Me.Label165) +Me.GroupBox68.Controls.Add(Me.Label166) +Me.GroupBox68.Location = New System.Drawing.Point(236, 287) +Me.GroupBox68.Name = "GroupBox68" +Me.GroupBox68.Size = New System.Drawing.Size(166, 51) +Me.GroupBox68.TabIndex = 172 +Me.GroupBox68.TabStop = false +Me.GroupBox68.Text = "Session Tasks" ' -'Label122 +'NBTasksMax ' -Me.Label122.AutoSize = true -Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label122.ForeColor = System.Drawing.Color.Black -Me.Label122.Location = New System.Drawing.Point(667, 313) -Me.Label122.Name = "Label122" -Me.Label122.Size = New System.Drawing.Size(30, 13) -Me.Label122.TabIndex = 165 -Me.Label122.Text = "save" -Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) +Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) +Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTasksMax.Name = "NBTasksMax" +Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMax.TabIndex = 187 +Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) ' -'GBGlitterD +'NBTasksMin ' -Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray -Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) -Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom2) -Me.GBGlitterD.Controls.Add(Me.GlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom1) -Me.GBGlitterD.Controls.Add(Me.CBDaily) -Me.GBGlitterD.Controls.Add(Me.CBTrivia) -Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) -Me.GBGlitterD.Controls.Add(Me.CBEgotist) -Me.GBGlitterD.Controls.Add(Me.CBTease) -Me.GBGlitterD.Controls.Add(Me.GlitterAV) -Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) -Me.GBGlitterD.Name = "GBGlitterD" -Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) -Me.GBGlitterD.TabIndex = 162 -Me.GBGlitterD.TabStop = false -Me.GBGlitterD.Text = "Domme" +Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) +Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBTasksMin.Name = "NBTasksMin" +Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMin.TabIndex = 186 +Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) ' -'GrbGlitterfeed +'Label165 ' -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) -Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) -Me.GrbGlitterfeed.Name = "GrbGlitterfeed" -Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) -Me.GrbGlitterfeed.TabIndex = 168 -Me.GrbGlitterfeed.TabStop = false -Me.GrbGlitterfeed.Text = "Glitterfeeds" +Me.Label165.BackColor = System.Drawing.Color.Transparent +Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label165.ForeColor = System.Drawing.Color.Black +Me.Label165.Location = New System.Drawing.Point(100, 20) +Me.Label165.Name = "Label165" +Me.Label165.Size = New System.Drawing.Size(10, 17) +Me.Label165.TabIndex = 185 +Me.Label165.Text = "-" +Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBGlitterFeedScripts +'Label166 ' -Me.CBGlitterFeedScripts.AutoSize = true -Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent -Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts -Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) -Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) -Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" -Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) -Me.CBGlitterFeedScripts.TabIndex = 146 -Me.CBGlitterFeedScripts.Text = "Scripts" -Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false +Me.Label166.BackColor = System.Drawing.Color.Transparent +Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label166.ForeColor = System.Drawing.Color.Black +Me.Label166.Location = New System.Drawing.Point(6, 21) +Me.Label166.Name = "Label166" +Me.Label166.Size = New System.Drawing.Size(49, 17) +Me.Label166.TabIndex = 188 +Me.Label166.Text = "Amount:" +Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBGlitterFeed +'GroupBox67 ' -Me.CBGlitterFeed.AutoSize = true -Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed -Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) -Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) -Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) -Me.CBGlitterFeed.Name = "CBGlitterFeed" -Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeed.TabIndex = 145 -Me.CBGlitterFeed.Text = "On" -Me.CBGlitterFeed.UseVisualStyleBackColor = true +Me.GroupBox67.Controls.Add(Me.Label161) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) +Me.GroupBox67.Controls.Add(Me.Label162) +Me.GroupBox67.Controls.Add(Me.Label163) +Me.GroupBox67.Controls.Add(Me.Label158) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) +Me.GroupBox67.Controls.Add(Me.Label159) +Me.GroupBox67.Controls.Add(Me.Label160) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) +Me.GroupBox67.Controls.Add(Me.Label119) +Me.GroupBox67.Controls.Add(Me.Label157) +Me.GroupBox67.Controls.Add(Me.Label151) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) +Me.GroupBox67.Controls.Add(Me.Label154) +Me.GroupBox67.Controls.Add(Me.Label155) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) +Me.GroupBox67.Controls.Add(Me.Label146) +Me.GroupBox67.Controls.Add(Me.Label149) +Me.GroupBox67.Location = New System.Drawing.Point(408, 288) +Me.GroupBox67.Name = "GroupBox67" +Me.GroupBox67.Size = New System.Drawing.Size(291, 139) +Me.GroupBox67.TabIndex = 171 +Me.GroupBox67.TabStop = false +Me.GroupBox67.Text = "Letter Tasks" ' -'CBGlitterFeedOff +'Label161 ' -Me.CBGlitterFeedOff.AutoSize = true -Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff -Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) -Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) -Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" -Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeedOff.TabIndex = 147 -Me.CBGlitterFeedOff.TabStop = true -Me.CBGlitterFeedOff.Text = "Off" -Me.CBGlitterFeedOff.UseVisualStyleBackColor = true +Me.Label161.BackColor = System.Drawing.Color.Transparent +Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label161.ForeColor = System.Drawing.Color.Black +Me.Label161.Location = New System.Drawing.Point(233, 110) +Me.Label161.Name = "Label161" +Me.Label161.Size = New System.Drawing.Size(50, 17) +Me.Label161.TabIndex = 204 +Me.Label161.Text = "minutes" +Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNGlitterD +'Label162 ' -Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black -Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitterD.Name = "BTNGlitterD" -Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitterD.TabIndex = 166 -Me.BTNGlitterD.Text = "Choose Name Color" -Me.BTNGlitterD.UseVisualStyleBackColor = false +Me.Label162.BackColor = System.Drawing.Color.Transparent +Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label162.ForeColor = System.Drawing.Color.Black +Me.Label162.Location = New System.Drawing.Point(167, 110) +Me.Label162.Name = "Label162" +Me.Label162.Size = New System.Drawing.Size(10, 17) +Me.Label162.TabIndex = 201 +Me.Label162.Text = "-" +Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitterNCDomme +'Label163 ' -Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White -Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor -Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" -Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNCDomme.TabIndex = 163 -Me.LBLGlitterNCDomme.Text = "Preview" -Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label163.BackColor = System.Drawing.Color.Transparent +Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label163.ForeColor = System.Drawing.Color.Black +Me.Label163.Location = New System.Drawing.Point(12, 111) +Me.Label163.Name = "Label163" +Me.Label163.Size = New System.Drawing.Size(151, 17) +Me.Label163.TabIndex = 200 +Me.Label163.Text = "CBT Time:" +Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitterSlider +'Label158 ' -Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider.Name = "LBLGlitterSlider" -Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider.TabIndex = 162 -Me.LBLGlitterSlider.Text = "Post Frequency" -Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label158.BackColor = System.Drawing.Color.Transparent +Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label158.ForeColor = System.Drawing.Color.Black +Me.Label158.Location = New System.Drawing.Point(233, 87) +Me.Label158.Name = "Label158" +Me.Label158.Size = New System.Drawing.Size(50, 17) +Me.Label158.TabIndex = 199 +Me.Label158.Text = "minutes" +Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBCustom2 +'Label159 ' -Me.CBCustom2.AutoSize = true -Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 -Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom2.ForeColor = System.Drawing.Color.Black -Me.CBCustom2.Location = New System.Drawing.Point(149, 121) -Me.CBCustom2.Name = "CBCustom2" -Me.CBCustom2.Size = New System.Drawing.Size(70, 17) -Me.CBCustom2.TabIndex = 161 -Me.CBCustom2.Text = "Custom 2" -Me.CBCustom2.UseVisualStyleBackColor = true +Me.Label159.BackColor = System.Drawing.Color.Transparent +Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label159.ForeColor = System.Drawing.Color.Black +Me.Label159.Location = New System.Drawing.Point(167, 87) +Me.Label159.Name = "Label159" +Me.Label159.Size = New System.Drawing.Size(10, 17) +Me.Label159.TabIndex = 196 +Me.Label159.Text = "-" +Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterSlider +'Label160 ' -Me.GlitterSlider.AutoSize = false -Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider.LargeChange = 1 -Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider.Maximum = 9 -Me.GlitterSlider.Minimum = 1 -Me.GlitterSlider.Name = "GlitterSlider" -Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider.TabIndex = 160 -Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider +Me.Label160.BackColor = System.Drawing.Color.Transparent +Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label160.ForeColor = System.Drawing.Color.Black +Me.Label160.Location = New System.Drawing.Point(12, 88) +Me.Label160.Name = "Label160" +Me.Label160.Size = New System.Drawing.Size(151, 17) +Me.Label160.TabIndex = 195 +Me.Label160.Text = "Edge Hold Time:" +Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBCustom1 +'Label119 ' -Me.CBCustom1.AutoSize = true -Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 -Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom1.ForeColor = System.Drawing.Color.Black -Me.CBCustom1.Location = New System.Drawing.Point(149, 98) -Me.CBCustom1.Name = "CBCustom1" -Me.CBCustom1.Size = New System.Drawing.Size(70, 17) -Me.CBCustom1.TabIndex = 157 -Me.CBCustom1.Text = "Custom 1" -Me.CBCustom1.UseVisualStyleBackColor = true +Me.Label119.BackColor = System.Drawing.Color.Transparent +Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label119.ForeColor = System.Drawing.Color.Black +Me.Label119.Location = New System.Drawing.Point(167, 64) +Me.Label119.Name = "Label119" +Me.Label119.Size = New System.Drawing.Size(10, 17) +Me.Label119.TabIndex = 192 +Me.Label119.Text = "-" +Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBDaily +'Label157 ' -Me.CBDaily.AutoSize = true -Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily -Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBDaily.ForeColor = System.Drawing.Color.Black -Me.CBDaily.Location = New System.Drawing.Point(79, 121) -Me.CBDaily.Name = "CBDaily" -Me.CBDaily.Size = New System.Drawing.Size(49, 17) -Me.CBDaily.TabIndex = 156 -Me.CBDaily.Text = "Daily" -Me.CBDaily.UseVisualStyleBackColor = true +Me.Label157.BackColor = System.Drawing.Color.Transparent +Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label157.ForeColor = System.Drawing.Color.Black +Me.Label157.Location = New System.Drawing.Point(12, 65) +Me.Label157.Name = "Label157" +Me.Label157.Size = New System.Drawing.Size(151, 17) +Me.Label157.TabIndex = 191 +Me.Label157.Text = "Edges:" +Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBTrivia +'Label151 ' -Me.CBTrivia.AutoSize = true -Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia -Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTrivia.ForeColor = System.Drawing.Color.Black -Me.CBTrivia.Location = New System.Drawing.Point(79, 98) -Me.CBTrivia.Name = "CBTrivia" -Me.CBTrivia.Size = New System.Drawing.Size(52, 17) -Me.CBTrivia.TabIndex = 155 -Me.CBTrivia.Text = "Trivia" -Me.CBTrivia.UseVisualStyleBackColor = true +Me.Label151.BackColor = System.Drawing.Color.Transparent +Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label151.ForeColor = System.Drawing.Color.Black +Me.Label151.Location = New System.Drawing.Point(233, 41) +Me.Label151.Name = "Label151" +Me.Label151.Size = New System.Drawing.Size(50, 17) +Me.Label151.TabIndex = 190 +Me.Label151.Text = "minutes" +Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBGlitterShortName +'Label154 ' -Me.TBGlitterShortName.BackColor = System.Drawing.Color.White -Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black -Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) -Me.TBGlitterShortName.Name = "TBGlitterShortName" -Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) -Me.TBGlitterShortName.TabIndex = 49 -Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN -Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label154.BackColor = System.Drawing.Color.Transparent +Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label154.ForeColor = System.Drawing.Color.Black +Me.Label154.Location = New System.Drawing.Point(167, 41) +Me.Label154.Name = "Label154" +Me.Label154.Size = New System.Drawing.Size(10, 17) +Me.Label154.TabIndex = 187 +Me.Label154.Text = "-" +Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBEgotist +'Label155 ' -Me.CBEgotist.AutoSize = true -Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist -Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBEgotist.ForeColor = System.Drawing.Color.Black -Me.CBEgotist.Location = New System.Drawing.Point(9, 121) -Me.CBEgotist.Name = "CBEgotist" -Me.CBEgotist.Size = New System.Drawing.Size(58, 17) -Me.CBEgotist.TabIndex = 153 -Me.CBEgotist.Text = "Egotist" -Me.CBEgotist.UseVisualStyleBackColor = true +Me.Label155.BackColor = System.Drawing.Color.Transparent +Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label155.ForeColor = System.Drawing.Color.Black +Me.Label155.Location = New System.Drawing.Point(12, 42) +Me.Label155.Name = "Label155" +Me.Label155.Size = New System.Drawing.Size(151, 17) +Me.Label155.TabIndex = 186 +Me.Label155.Text = "Stroking Time:" +Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBTease +'Label146 ' -Me.CBTease.AutoSize = true -Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease -Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTease.ForeColor = System.Drawing.Color.Black -Me.CBTease.Location = New System.Drawing.Point(9, 98) -Me.CBTease.Name = "CBTease" -Me.CBTease.Size = New System.Drawing.Size(56, 17) -Me.CBTease.TabIndex = 152 -Me.CBTease.Text = "Tease" -Me.CBTease.UseVisualStyleBackColor = true +Me.Label146.BackColor = System.Drawing.Color.Transparent +Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label146.ForeColor = System.Drawing.Color.Black +Me.Label146.Location = New System.Drawing.Point(167, 18) +Me.Label146.Name = "Label146" +Me.Label146.Size = New System.Drawing.Size(10, 17) +Me.Label146.TabIndex = 182 +Me.Label146.Text = "-" +Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterAV +'Label149 ' -Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV.Name = "GlitterAV" -Me.GlitterAV.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV.TabIndex = 149 -Me.GlitterAV.TabStop = false +Me.Label149.BackColor = System.Drawing.Color.Transparent +Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label149.ForeColor = System.Drawing.Color.Black +Me.Label149.Location = New System.Drawing.Point(12, 19) +Me.Label149.Name = "Label149" +Me.Label149.Size = New System.Drawing.Size(151, 17) +Me.Label149.TabIndex = 181 +Me.Label149.Text = "Strokes:" +Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GBGlitter1 +'GroupBox10 ' -Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.CBGlitter1) -Me.GBGlitter1.Controls.Add(Me.TBGlitter1) -Me.GBGlitter1.Controls.Add(Me.GlitterAV1) -Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) -Me.GBGlitter1.Name = "GBGlitter1" -Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter1.TabIndex = 161 -Me.GBGlitter1.TabStop = false -Me.GBGlitter1.Text = "Contact 1" +Me.GroupBox10.Controls.Add(Me.Label112) +Me.GroupBox10.Controls.Add(Me.NBNextImageChance) +Me.GroupBox10.Controls.Add(Me.Label6) +Me.GroupBox10.Location = New System.Drawing.Point(408, 31) +Me.GroupBox10.Name = "GroupBox10" +Me.GroupBox10.Size = New System.Drawing.Size(291, 54) +Me.GroupBox10.TabIndex = 170 +Me.GroupBox10.TabStop = false +Me.GroupBox10.Text = "Tease Slideshow" ' -'BtnContact1ImageDirClear +'Label112 ' -Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" -Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact1ImageDirClear.TabIndex = 181 -Me.BtnContact1ImageDirClear.Text = "Clear" -Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false +Me.Label112.BackColor = System.Drawing.Color.Transparent +Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label112.ForeColor = System.Drawing.Color.Black +Me.Label112.Location = New System.Drawing.Point(233, 21) +Me.Label112.Name = "Label112" +Me.Label112.Size = New System.Drawing.Size(50, 17) +Me.Label112.TabIndex = 180 +Me.Label112.Text = "percent" +Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BtnContact1ImageDir +'NBNextImageChance ' -Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" -Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact1ImageDir.TabIndex = 177 -Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" -Me.BtnContact1ImageDir.UseVisualStyleBackColor = false +Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) +Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBNextImageChance.Name = "NBNextImageChance" +Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) +Me.NBNextImageChance.TabIndex = 179 +Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'TbxContact1ImageDir +'Label6 ' -Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" -Me.TbxContact1ImageDir.ReadOnly = true -Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.TabIndex = 176 -Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir +Me.Label6.BackColor = System.Drawing.Color.Transparent +Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label6.ForeColor = System.Drawing.Color.Black +Me.Label6.Location = New System.Drawing.Point(9, 21) +Me.Label6.Name = "Label6" +Me.Label6.Size = New System.Drawing.Size(151, 17) +Me.Label6.TabIndex = 154 +Me.Label6.Text = "Image Next/Previous Chance:" +Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNGlitter1 +'GroupBox57 ' -Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter1.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter1.Name = "BTNGlitter1" -Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter1.TabIndex = 175 -Me.BTNGlitter1.Text = "Choose Name Color" -Me.BTNGlitter1.UseVisualStyleBackColor = false +Me.GroupBox57.Controls.Add(Me.Label139) +Me.GroupBox57.Controls.Add(Me.NBTauntEdging) +Me.GroupBox57.Controls.Add(Me.LBLVtf) +Me.GroupBox57.Controls.Add(Me.LBLStf) +Me.GroupBox57.Controls.Add(Me.SliderSTF) +Me.GroupBox57.Controls.Add(Me.TauntSlider) +Me.GroupBox57.Controls.Add(Me.Label106) +Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) +Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) +Me.GroupBox57.Controls.Add(Me.Label103) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) +Me.GroupBox57.Controls.Add(Me.Label105) +Me.GroupBox57.Controls.Add(Me.Label101) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) +Me.GroupBox57.Controls.Add(Me.Label102) +Me.GroupBox57.Controls.Add(Me.Label97) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) +Me.GroupBox57.Controls.Add(Me.Label99) +Me.GroupBox57.Controls.Add(Me.Label96) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) +Me.GroupBox57.Controls.Add(Me.Label95) +Me.GroupBox57.Controls.Add(Me.Label49) +Me.GroupBox57.Controls.Add(Me.Label141) +Me.GroupBox57.Location = New System.Drawing.Point(7, 30) +Me.GroupBox57.Name = "GroupBox57" +Me.GroupBox57.Size = New System.Drawing.Size(223, 308) +Me.GroupBox57.TabIndex = 169 +Me.GroupBox57.TabStop = false +Me.GroupBox57.Text = "Tease" ' -'LBLGlitterNC1 +'Label139 ' -Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color -Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC1.Name = "LBLGlitterNC1" -Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC1.TabIndex = 166 -Me.LBLGlitterNC1.Text = "Preview" -Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label139.BackColor = System.Drawing.Color.Transparent +Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label139.ForeColor = System.Drawing.Color.Black +Me.Label139.Location = New System.Drawing.Point(175, 171) +Me.Label139.Name = "Label139" +Me.Label139.Size = New System.Drawing.Size(50, 17) +Me.Label139.TabIndex = 184 +Me.Label139.Text = "percent" +Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitterSlider1 +'NBTauntEdging ' -Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" -Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider1.TabIndex = 163 -Me.LBLGlitterSlider1.Text = "Response Frequency" -Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) +Me.NBTauntEdging.Name = "NBTauntEdging" +Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) +Me.NBTauntEdging.TabIndex = 188 +Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) ' -'GlitterSlider1 +'LBLVtf ' -Me.GlitterSlider1.AutoSize = false -Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider1.LargeChange = 1 -Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider1.Maximum = 9 -Me.GlitterSlider1.Minimum = 1 -Me.GlitterSlider1.Name = "GlitterSlider1" -Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider1.TabIndex = 161 -Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider +Me.LBLVtf.BackColor = System.Drawing.Color.Transparent +Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLVtf.ForeColor = System.Drawing.Color.Black +Me.LBLVtf.Location = New System.Drawing.Point(128, 261) +Me.LBLVtf.Name = "LBLVtf" +Me.LBLVtf.Size = New System.Drawing.Size(87, 17) +Me.LBLVtf.TabIndex = 187 +Me.LBLVtf.Text = "Normal" +Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitter1 +'LBLStf ' -Me.CBGlitter1.AutoSize = true -Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 -Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter1.ForeColor = System.Drawing.Color.Black -Me.CBGlitter1.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter1.Name = "CBGlitter1" -Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter1.TabIndex = 151 -Me.CBGlitter1.Text = "Enable This Contact" -Me.CBGlitter1.UseVisualStyleBackColor = true +Me.LBLStf.BackColor = System.Drawing.Color.Transparent +Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLStf.ForeColor = System.Drawing.Color.Black +Me.LBLStf.Location = New System.Drawing.Point(130, 220) +Me.LBLStf.Name = "LBLStf" +Me.LBLStf.Size = New System.Drawing.Size(87, 17) +Me.LBLStf.TabIndex = 165 +Me.LBLStf.Text = "Normal" +Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBGlitter1 +'SliderSTF ' -Me.TBGlitter1.BackColor = System.Drawing.Color.White -Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter1.ForeColor = System.Drawing.Color.Black -Me.TBGlitter1.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter1.Name = "TBGlitter1" -Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter1.TabIndex = 49 -Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 -Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.SliderSTF.AutoSize = false +Me.SliderSTF.LargeChange = 1 +Me.SliderSTF.Location = New System.Drawing.Point(130, 199) +Me.SliderSTF.Maximum = 5 +Me.SliderSTF.Minimum = 1 +Me.SliderSTF.Name = "SliderSTF" +Me.SliderSTF.Size = New System.Drawing.Size(87, 25) +Me.SliderSTF.TabIndex = 163 +Me.SliderSTF.Value = 3 ' -'GlitterAV1 +'TauntSlider ' -Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV1.Name = "GlitterAV1" -Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV1.TabIndex = 149 -Me.GlitterAV1.TabStop = false +Me.TauntSlider.AutoSize = false +Me.TauntSlider.LargeChange = 1 +Me.TauntSlider.Location = New System.Drawing.Point(130, 240) +Me.TauntSlider.Maximum = 9 +Me.TauntSlider.Minimum = 1 +Me.TauntSlider.Name = "TauntSlider" +Me.TauntSlider.Size = New System.Drawing.Size(87, 25) +Me.TauntSlider.TabIndex = 161 +Me.TauntSlider.Value = 4 ' -'GBGlitter3 +'Label106 ' -Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.CBGlitter3) -Me.GBGlitter3.Controls.Add(Me.TBGlitter3) -Me.GBGlitter3.Controls.Add(Me.GlitterAV3) -Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) -Me.GBGlitter3.Name = "GBGlitter3" -Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter3.TabIndex = 160 -Me.GBGlitter3.TabStop = false -Me.GBGlitter3.Text = "Contact 3" +Me.Label106.BackColor = System.Drawing.Color.Transparent +Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label106.ForeColor = System.Drawing.Color.Black +Me.Label106.Location = New System.Drawing.Point(6, 243) +Me.Label106.Name = "Label106" +Me.Label106.Size = New System.Drawing.Size(123, 17) +Me.Label106.TabIndex = 186 +Me.Label106.Text = "Video Taunt Frequency:" +Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BtnContact3ImageDirClear +'CBTauntCycleDD ' -Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" -Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact3ImageDirClear.TabIndex = 180 -Me.BtnContact3ImageDirClear.Text = "Clear" -Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false +Me.CBTauntCycleDD.AutoSize = true +Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black +Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) +Me.CBTauntCycleDD.Name = "CBTauntCycleDD" +Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) +Me.CBTauntCycleDD.TabIndex = 185 +Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" +Me.CBTauntCycleDD.UseVisualStyleBackColor = true ' -'BtnContact3ImageDir +'CBTeaseLengthDD ' -Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" -Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact3ImageDir.TabIndex = 179 -Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" -Me.BtnContact3ImageDir.UseVisualStyleBackColor = false +Me.CBTeaseLengthDD.AutoSize = true +Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black +Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) +Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" +Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) +Me.CBTeaseLengthDD.TabIndex = 184 +Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" +Me.CBTeaseLengthDD.UseVisualStyleBackColor = true ' -'TbxContact3ImageDir +'Label103 ' -Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" -Me.TbxContact3ImageDir.ReadOnly = true -Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.TabIndex = 178 -Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir +Me.Label103.BackColor = System.Drawing.Color.Transparent +Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label103.ForeColor = System.Drawing.Color.Black +Me.Label103.Location = New System.Drawing.Point(175, 117) +Me.Label103.Name = "Label103" +Me.Label103.Size = New System.Drawing.Size(50, 17) +Me.Label103.TabIndex = 183 +Me.Label103.Text = "minutes" +Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTauntCycleMax ' -'BTNGlitter3 +Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) +Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) +Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBTauntCycleMax.Name = "NBTauntCycleMax" +Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMax.TabIndex = 182 +Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter3.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter3.Name = "BTNGlitter3" -Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter3.TabIndex = 175 -Me.BTNGlitter3.Text = "Choose Name Color" -Me.BTNGlitter3.UseVisualStyleBackColor = false +'Label105 ' -'LBLGlitterNC3 +Me.Label105.BackColor = System.Drawing.Color.Transparent +Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label105.ForeColor = System.Drawing.Color.Black +Me.Label105.Location = New System.Drawing.Point(6, 117) +Me.Label105.Name = "Label105" +Me.Label105.Size = New System.Drawing.Size(123, 17) +Me.Label105.TabIndex = 181 +Me.Label105.Text = "Taunt Cycle Maximum:" +Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color -Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC3.Name = "LBLGlitterNC3" -Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC3.TabIndex = 166 -Me.LBLGlitterNC3.Text = "Preview" -Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Label101 ' -'LBLGlitterSlider3 +Me.Label101.BackColor = System.Drawing.Color.Transparent +Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label101.ForeColor = System.Drawing.Color.Black +Me.Label101.Location = New System.Drawing.Point(175, 93) +Me.Label101.Name = "Label101" +Me.Label101.Size = New System.Drawing.Size(50, 17) +Me.Label101.TabIndex = 180 +Me.Label101.Text = "minutes" +Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" -Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider3.TabIndex = 163 -Me.LBLGlitterSlider3.Text = "Response Frequency" -Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'NBTauntCycleMin ' -'GlitterSlider3 +Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) +Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTauntCycleMin.Name = "NBTauntCycleMin" +Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMin.TabIndex = 179 +Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -Me.GlitterSlider3.AutoSize = false -Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider3.LargeChange = 1 -Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider3.Maximum = 9 -Me.GlitterSlider3.Minimum = 1 -Me.GlitterSlider3.Name = "GlitterSlider3" -Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider3.TabIndex = 161 -Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider +'Label102 ' -'CBGlitter3 +Me.Label102.BackColor = System.Drawing.Color.Transparent +Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label102.ForeColor = System.Drawing.Color.Black +Me.Label102.Location = New System.Drawing.Point(6, 93) +Me.Label102.Name = "Label102" +Me.Label102.Size = New System.Drawing.Size(123, 17) +Me.Label102.TabIndex = 178 +Me.Label102.Text = "Taunt Cycle Minimum:" +Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBGlitter3.AutoSize = true -Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 -Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter3.ForeColor = System.Drawing.Color.Black -Me.CBGlitter3.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter3.Name = "CBGlitter3" -Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter3.TabIndex = 151 -Me.CBGlitter3.Text = "Enable This Contact" -Me.CBGlitter3.UseVisualStyleBackColor = true +'Label97 ' -'TBGlitter3 +Me.Label97.BackColor = System.Drawing.Color.Transparent +Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label97.ForeColor = System.Drawing.Color.Black +Me.Label97.Location = New System.Drawing.Point(175, 46) +Me.Label97.Name = "Label97" +Me.Label97.Size = New System.Drawing.Size(50, 17) +Me.Label97.TabIndex = 177 +Me.Label97.Text = "minutes" +Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.TBGlitter3.BackColor = System.Drawing.Color.White -Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter3.ForeColor = System.Drawing.Color.Black -Me.TBGlitter3.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter3.Name = "TBGlitter3" -Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter3.TabIndex = 49 -Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 -Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'NBTeaseLengthMax ' -'GlitterAV3 +Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) +Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) +Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" +Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMax.TabIndex = 176 +Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV3.Name = "GlitterAV3" -Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV3.TabIndex = 149 -Me.GlitterAV3.TabStop = false +'Label99 ' -'GBGlitter2 +Me.Label99.BackColor = System.Drawing.Color.Transparent +Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label99.ForeColor = System.Drawing.Color.Black +Me.Label99.Location = New System.Drawing.Point(6, 46) +Me.Label99.Name = "Label99" +Me.Label99.Size = New System.Drawing.Size(123, 17) +Me.Label99.TabIndex = 175 +Me.Label99.Text = "Tease Length Maximum:" +Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.CBGlitter2) -Me.GBGlitter2.Controls.Add(Me.TBGlitter2) -Me.GBGlitter2.Controls.Add(Me.GlitterAV2) -Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) -Me.GBGlitter2.Name = "GBGlitter2" -Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter2.TabIndex = 151 -Me.GBGlitter2.TabStop = false -Me.GBGlitter2.Text = "Contact 2" +'Label96 ' -'BtnContact2ImageDirClear +Me.Label96.BackColor = System.Drawing.Color.Transparent +Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label96.ForeColor = System.Drawing.Color.Black +Me.Label96.Location = New System.Drawing.Point(175, 20) +Me.Label96.Name = "Label96" +Me.Label96.Size = New System.Drawing.Size(50, 17) +Me.Label96.TabIndex = 174 +Me.Label96.Text = "minutes" +Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" -Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact2ImageDirClear.TabIndex = 181 -Me.BtnContact2ImageDirClear.Text = "Clear" -Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false +'NBTeaseLengthMin ' -'BtnContact2ImageDir +Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) +Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) +Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" +Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMin.TabIndex = 169 +Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) ' -Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" -Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact2ImageDir.TabIndex = 179 -Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" -Me.BtnContact2ImageDir.UseVisualStyleBackColor = false +'Label95 ' -'TbxContact2ImageDir +Me.Label95.BackColor = System.Drawing.Color.Transparent +Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label95.ForeColor = System.Drawing.Color.Black +Me.Label95.Location = New System.Drawing.Point(6, 20) +Me.Label95.Name = "Label95" +Me.Label95.Size = New System.Drawing.Size(123, 17) +Me.Label95.TabIndex = 166 +Me.Label95.Text = "Tease Length Minimum:" +Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" -Me.TbxContact2ImageDir.ReadOnly = true -Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.TabIndex = 178 -Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir +'Label49 ' -'BTNGlitter2 +Me.Label49.BackColor = System.Drawing.Color.Transparent +Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label49.ForeColor = System.Drawing.Color.Black +Me.Label49.Location = New System.Drawing.Point(6, 207) +Me.Label49.Name = "Label49" +Me.Label49.Size = New System.Drawing.Size(132, 17) +Me.Label49.TabIndex = 164 +Me.Label49.Text = "Stroke Taunt Frequency:" +Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter2.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter2.Name = "BTNGlitter2" -Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter2.TabIndex = 167 -Me.BTNGlitter2.Text = "Choose Name Color" -Me.BTNGlitter2.UseVisualStyleBackColor = false +'Label141 +' +Me.Label141.BackColor = System.Drawing.Color.Transparent +Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label141.ForeColor = System.Drawing.Color.Black +Me.Label141.Location = New System.Drawing.Point(6, 163) +Me.Label141.Name = "Label141" +Me.Label141.Size = New System.Drawing.Size(141, 32) +Me.Label141.TabIndex = 189 +Me.Label141.Text = "Edging Ends Taunts:" +Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitterNC2 +'GBRangeRuinChance ' -Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color -Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC2.Name = "LBLGlitterNC2" -Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC2.TabIndex = 166 -Me.LBLGlitterNC2.Text = "Preview" -Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GBRangeRuinChance.Controls.Add(Me.Label90) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) +Me.GBRangeRuinChance.Controls.Add(Me.Label91) +Me.GBRangeRuinChance.Controls.Add(Me.Label92) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) +Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) +Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) +Me.GBRangeRuinChance.Name = "GBRangeRuinChance" +Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeRuinChance.TabIndex = 168 +Me.GBRangeRuinChance.TabStop = false +Me.GBRangeRuinChance.Text = "Ruin Chance" ' -'LBLGlitterSlider2 +'Label90 ' -Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" -Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider2.TabIndex = 163 -Me.LBLGlitterSlider2.Text = "Response Frequency" -Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label90.BackColor = System.Drawing.Color.Transparent +Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label90.ForeColor = System.Drawing.Color.Black +Me.Label90.Location = New System.Drawing.Point(6, 94) +Me.Label90.Name = "Label90" +Me.Label90.Size = New System.Drawing.Size(83, 17) +Me.Label90.TabIndex = 173 +Me.Label90.Text = "Rarely Ruins:" +Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterSlider2 +'NBRuinSometimes ' -Me.GlitterSlider2.AutoSize = false -Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider2.LargeChange = 1 -Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider2.Maximum = 9 -Me.GlitterSlider2.Minimum = 1 -Me.GlitterSlider2.Name = "GlitterSlider2" -Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider2.TabIndex = 161 -Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider +Me.NBRuinSometimes.Enabled = false +Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinSometimes.Name = "NBRuinSometimes" +Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBRuinSometimes.TabIndex = 169 +Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -'CBGlitter2 +'Label91 ' -Me.CBGlitter2.AutoSize = true -Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 -Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter2.ForeColor = System.Drawing.Color.Black -Me.CBGlitter2.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter2.Name = "CBGlitter2" -Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter2.TabIndex = 151 -Me.CBGlitter2.Text = "Enable This Contact" -Me.CBGlitter2.UseVisualStyleBackColor = true +Me.Label91.BackColor = System.Drawing.Color.Transparent +Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label91.ForeColor = System.Drawing.Color.Black +Me.Label91.Location = New System.Drawing.Point(6, 68) +Me.Label91.Name = "Label91" +Me.Label91.Size = New System.Drawing.Size(102, 17) +Me.Label91.TabIndex = 172 +Me.Label91.Text = "Sometimes Ruins:" +Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBGlitter2 +'Label92 ' -Me.TBGlitter2.BackColor = System.Drawing.Color.White -Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter2.ForeColor = System.Drawing.Color.Black -Me.TBGlitter2.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter2.Name = "TBGlitter2" -Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter2.TabIndex = 49 -Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 -Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label92.BackColor = System.Drawing.Color.Transparent +Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label92.ForeColor = System.Drawing.Color.Black +Me.Label92.Location = New System.Drawing.Point(6, 42) +Me.Label92.Name = "Label92" +Me.Label92.Size = New System.Drawing.Size(72, 17) +Me.Label92.TabIndex = 171 +Me.Label92.Text = "Often Ruins:" +Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterAV2 +'NBRuinRarely ' -Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV2.Name = "GlitterAV2" -Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV2.TabIndex = 149 -Me.GlitterAV2.TabStop = false +Me.NBRuinRarely.Enabled = false +Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) +Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinRarely.Name = "NBRuinRarely" +Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) +Me.NBRuinRarely.TabIndex = 170 +Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -'TpGames +'NBRuinOften ' -Me.TpGames.BackColor = System.Drawing.Color.LightGray -Me.TpGames.Controls.Add(Me.CBIncludeGifs) -Me.TpGames.Controls.Add(Me.LblCardsSetupNote) -Me.TpGames.Controls.Add(Me.CBGameSounds) -Me.TpGames.Controls.Add(Me.GbxCardsGold) -Me.TpGames.Controls.Add(Me.GbxCardsBackground) -Me.TpGames.Controls.Add(Me.GbxCardsBronze) -Me.TpGames.Controls.Add(Me.GbxCardsSilver) -Me.TpGames.Location = New System.Drawing.Point(4, 22) -Me.TpGames.Name = "TpGames" -Me.TpGames.Padding = New System.Windows.Forms.Padding(3) -Me.TpGames.Size = New System.Drawing.Size(700, 411) -Me.TpGames.TabIndex = 1 -Me.TpGames.Text = "Games" +Me.NBRuinOften.Enabled = false +Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) +Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinOften.Name = "NBRuinOften" +Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) +Me.NBRuinOften.TabIndex = 168 +Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) ' -'CBIncludeGifs +'CBRangeRuin ' -Me.CBIncludeGifs.AutoSize = true -Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs -Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) -Me.CBIncludeGifs.Name = "CBIncludeGifs" -Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) -Me.CBIncludeGifs.TabIndex = 5 -Me.CBIncludeGifs.Text = "Match Game Includes Gifs " -Me.CBIncludeGifs.UseVisualStyleBackColor = true +Me.CBRangeRuin.AutoSize = true +Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black +Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) +Me.CBRangeRuin.Name = "CBRangeRuin" +Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) +Me.CBRangeRuin.TabIndex = 159 +Me.CBRangeRuin.Text = "Domme Decide" +Me.CBRangeRuin.UseVisualStyleBackColor = true ' -'LblCardsSetupNote +'GroupBox17 ' -Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) -Me.LblCardsSetupNote.Name = "LblCardsSetupNote" -Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) -Me.LblCardsSetupNote.TabIndex = 4 -Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ - "!" -Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox17.Controls.Add(Me.GroupBox19) +Me.GroupBox17.Controls.Add(Me.GroupBox18) +Me.GroupBox17.Location = New System.Drawing.Point(408, 91) +Me.GroupBox17.Name = "GroupBox17" +Me.GroupBox17.Size = New System.Drawing.Size(291, 190) +Me.GroupBox17.TabIndex = 0 +Me.GroupBox17.TabStop = false +Me.GroupBox17.Text = "Video Teases" ' -'CBGameSounds +'GroupBox19 ' -Me.CBGameSounds.AutoSize = true -Me.CBGameSounds.Checked = true -Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBGameSounds.ForeColor = System.Drawing.Color.Black -Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) -Me.CBGameSounds.Name = "CBGameSounds" -Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) -Me.CBGameSounds.TabIndex = 6 -Me.CBGameSounds.Text = "Play Game Sounds" -Me.CBGameSounds.UseVisualStyleBackColor = true +Me.GroupBox19.Controls.Add(Me.Label110) +Me.GroupBox19.Controls.Add(Me.Label111) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) +Me.GroupBox19.Controls.Add(Me.NBRedLightMax) +Me.GroupBox19.Controls.Add(Me.Label26) +Me.GroupBox19.Controls.Add(Me.NBRedLightMin) +Me.GroupBox19.Controls.Add(Me.Label28) +Me.GroupBox19.Controls.Add(Me.Label27) +Me.GroupBox19.Controls.Add(Me.Label29) +Me.GroupBox19.Location = New System.Drawing.Point(6, 110) +Me.GroupBox19.Name = "GroupBox19" +Me.GroupBox19.Size = New System.Drawing.Size(279, 66) +Me.GroupBox19.TabIndex = 2 +Me.GroupBox19.TabStop = false +Me.GroupBox19.Text = "Red Light, Green Light" ' -'GbxCardsGold +'Label110 ' -Me.GbxCardsGold.Controls.Add(Me.GN6) -Me.GbxCardsGold.Controls.Add(Me.GP6) -Me.GbxCardsGold.Controls.Add(Me.GN2) -Me.GbxCardsGold.Controls.Add(Me.GP2) -Me.GbxCardsGold.Controls.Add(Me.GP5) -Me.GbxCardsGold.Controls.Add(Me.GN1) -Me.GbxCardsGold.Controls.Add(Me.GP1) -Me.GbxCardsGold.Controls.Add(Me.GN5) -Me.GbxCardsGold.Controls.Add(Me.GN3) -Me.GbxCardsGold.Controls.Add(Me.GP3) -Me.GbxCardsGold.Controls.Add(Me.GP4) -Me.GbxCardsGold.Controls.Add(Me.GN4) -Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) -Me.GbxCardsGold.Name = "GbxCardsGold" -Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) -Me.GbxCardsGold.TabIndex = 2 -Me.GbxCardsGold.TabStop = false -Me.GbxCardsGold.Text = "Gold Cards" +Me.Label110.BackColor = System.Drawing.Color.Transparent +Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label110.ForeColor = System.Drawing.Color.Black +Me.Label110.Location = New System.Drawing.Point(227, 39) +Me.Label110.Name = "Label110" +Me.Label110.Size = New System.Drawing.Size(50, 17) +Me.Label110.TabIndex = 181 +Me.Label110.Text = "seconds" +Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label111 +' +Me.Label111.BackColor = System.Drawing.Color.Transparent +Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label111.ForeColor = System.Drawing.Color.Black +Me.Label111.Location = New System.Drawing.Point(227, 16) +Me.Label111.Name = "Label111" +Me.Label111.Size = New System.Drawing.Size(50, 17) +Me.Label111.TabIndex = 180 +Me.Label111.Text = "seconds" +Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GN6 +'NBGreenLightMax ' -Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN6.Location = New System.Drawing.Point(86, 367) -Me.GN6.Name = "GN6" -Me.GN6.Size = New System.Drawing.Size(71, 20) -Me.GN6.TabIndex = 5 -Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 -Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) +Me.NBGreenLightMax.Name = "NBGreenLightMax" +Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMax.TabIndex = 156 +Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'GP6 +'NBGreenLightMin ' -Me.GP6.BackColor = System.Drawing.Color.Silver -Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 -Me.GP6.InitialImage = Nothing -Me.GP6.Location = New System.Drawing.Point(86, 268) -Me.GP6.Name = "GP6" -Me.GP6.Size = New System.Drawing.Size(71, 93) -Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP6.TabIndex = 17 -Me.GP6.TabStop = false +Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) +Me.NBGreenLightMin.Name = "NBGreenLightMin" +Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMin.TabIndex = 155 +Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) ' -'GN2 +'NBRedLightMax ' -Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN2.Location = New System.Drawing.Point(86, 117) -Me.GN2.Name = "GN2" -Me.GN2.Size = New System.Drawing.Size(71, 20) -Me.GN2.TabIndex = 1 -Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 -Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) +Me.NBRedLightMax.Name = "NBRedLightMax" +Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMax.TabIndex = 152 +Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) ' -'GP2 +'Label26 ' -Me.GP2.BackColor = System.Drawing.Color.Silver -Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 -Me.GP2.InitialImage = Nothing -Me.GP2.Location = New System.Drawing.Point(86, 17) -Me.GP2.Name = "GP2" -Me.GP2.Size = New System.Drawing.Size(71, 94) -Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP2.TabIndex = 9 -Me.GP2.TabStop = false +Me.Label26.BackColor = System.Drawing.Color.Transparent +Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label26.ForeColor = System.Drawing.Color.Black +Me.Label26.Location = New System.Drawing.Point(161, 38) +Me.Label26.Name = "Label26" +Me.Label26.Size = New System.Drawing.Size(10, 17) +Me.Label26.TabIndex = 154 +Me.Label26.Text = "-" +Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP5 +'NBRedLightMin ' -Me.GP5.BackColor = System.Drawing.Color.Silver -Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 -Me.GP5.InitialImage = Nothing -Me.GP5.Location = New System.Drawing.Point(9, 268) -Me.GP5.Name = "GP5" -Me.GP5.Size = New System.Drawing.Size(71, 93) -Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP5.TabIndex = 15 -Me.GP5.TabStop = false +Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) +Me.NBRedLightMin.Name = "NBRedLightMin" +Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMin.TabIndex = 151 +Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -'GN1 +'Label28 ' -Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN1.Location = New System.Drawing.Point(9, 117) -Me.GN1.Name = "GN1" -Me.GN1.Size = New System.Drawing.Size(71, 20) -Me.GN1.TabIndex = 0 -Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 -Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label28.BackColor = System.Drawing.Color.Transparent +Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label28.ForeColor = System.Drawing.Color.Black +Me.Label28.Location = New System.Drawing.Point(161, 15) +Me.Label28.Name = "Label28" +Me.Label28.Size = New System.Drawing.Size(10, 17) +Me.Label28.TabIndex = 150 +Me.Label28.Text = "-" +Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP1 +'Label27 ' -Me.GP1.BackColor = System.Drawing.Color.Silver -Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 -Me.GP1.InitialImage = Nothing -Me.GP1.Location = New System.Drawing.Point(9, 17) -Me.GP1.Name = "GP1" -Me.GP1.Size = New System.Drawing.Size(71, 94) -Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP1.TabIndex = 0 -Me.GP1.TabStop = false +Me.Label27.BackColor = System.Drawing.Color.Transparent +Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label27.ForeColor = System.Drawing.Color.Black +Me.Label27.Location = New System.Drawing.Point(6, 39) +Me.Label27.Name = "Label27" +Me.Label27.Size = New System.Drawing.Size(151, 17) +Me.Label27.TabIndex = 153 +Me.Label27.Text = "Green Light Time:" +Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GN5 +'Label29 ' -Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN5.Location = New System.Drawing.Point(9, 367) -Me.GN5.Name = "GN5" -Me.GN5.Size = New System.Drawing.Size(71, 20) -Me.GN5.TabIndex = 4 -Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 -Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label29.BackColor = System.Drawing.Color.Transparent +Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label29.ForeColor = System.Drawing.Color.Black +Me.Label29.Location = New System.Drawing.Point(6, 16) +Me.Label29.Name = "Label29" +Me.Label29.Size = New System.Drawing.Size(151, 17) +Me.Label29.TabIndex = 149 +Me.Label29.Text = "Red Light Time:" +Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GN3 +'GroupBox18 ' -Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN3.Location = New System.Drawing.Point(9, 242) -Me.GN3.Name = "GN3" -Me.GN3.Size = New System.Drawing.Size(71, 20) -Me.GN3.TabIndex = 2 -Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 -Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.GroupBox18.Controls.Add(Me.Label108) +Me.GroupBox18.Controls.Add(Me.Label109) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) +Me.GroupBox18.Controls.Add(Me.CBCensorConstant) +Me.GroupBox18.Controls.Add(Me.Label25) +Me.GroupBox18.Controls.Add(Me.Label20) +Me.GroupBox18.Controls.Add(Me.Label19) +Me.GroupBox18.Controls.Add(Me.Label24) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) +Me.GroupBox18.Location = New System.Drawing.Point(6, 16) +Me.GroupBox18.Name = "GroupBox18" +Me.GroupBox18.Size = New System.Drawing.Size(279, 88) +Me.GroupBox18.TabIndex = 1 +Me.GroupBox18.TabStop = false +Me.GroupBox18.Text = "Censorship Sucks" ' -'GP3 +'Label108 ' -Me.GP3.BackColor = System.Drawing.Color.Silver -Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 -Me.GP3.InitialImage = Nothing -Me.GP3.Location = New System.Drawing.Point(9, 143) -Me.GP3.Name = "GP3" -Me.GP3.Size = New System.Drawing.Size(71, 93) -Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP3.TabIndex = 11 -Me.GP3.TabStop = false +Me.Label108.BackColor = System.Drawing.Color.Transparent +Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label108.ForeColor = System.Drawing.Color.Black +Me.Label108.Location = New System.Drawing.Point(227, 39) +Me.Label108.Name = "Label108" +Me.Label108.Size = New System.Drawing.Size(50, 17) +Me.Label108.TabIndex = 179 +Me.Label108.Text = "seconds" +Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP4 +'Label109 ' -Me.GP4.BackColor = System.Drawing.Color.Silver -Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 -Me.GP4.InitialImage = Nothing -Me.GP4.Location = New System.Drawing.Point(86, 143) -Me.GP4.Name = "GP4" -Me.GP4.Size = New System.Drawing.Size(71, 93) -Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP4.TabIndex = 13 -Me.GP4.TabStop = false +Me.Label109.BackColor = System.Drawing.Color.Transparent +Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label109.ForeColor = System.Drawing.Color.Black +Me.Label109.Location = New System.Drawing.Point(227, 16) +Me.Label109.Name = "Label109" +Me.Label109.Size = New System.Drawing.Size(50, 17) +Me.Label109.TabIndex = 178 +Me.Label109.Text = "seconds" +Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GN4 +'Label25 ' -Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN4.Location = New System.Drawing.Point(86, 242) -Me.GN4.Name = "GN4" -Me.GN4.Size = New System.Drawing.Size(71, 20) -Me.GN4.TabIndex = 3 -Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 -Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label25.BackColor = System.Drawing.Color.Transparent +Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label25.ForeColor = System.Drawing.Color.Black +Me.Label25.Location = New System.Drawing.Point(161, 15) +Me.Label25.Name = "Label25" +Me.Label25.Size = New System.Drawing.Size(10, 17) +Me.Label25.TabIndex = 150 +Me.Label25.Text = "-" +Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GbxCardsBackground +'Label20 ' -Me.GbxCardsBackground.Controls.Add(Me.CardBack) -Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) -Me.GbxCardsBackground.Name = "GbxCardsBackground" -Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) -Me.GbxCardsBackground.TabIndex = 3 -Me.GbxCardsBackground.TabStop = false -Me.GbxCardsBackground.Text = "Card Background" +Me.Label20.BackColor = System.Drawing.Color.Transparent +Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label20.ForeColor = System.Drawing.Color.Black +Me.Label20.Location = New System.Drawing.Point(6, 39) +Me.Label20.Name = "Label20" +Me.Label20.Size = New System.Drawing.Size(110, 17) +Me.Label20.TabIndex = 153 +Me.Label20.Text = "Censor Bar Hidden:" +Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label19 ' -'CardBack +Me.Label19.BackColor = System.Drawing.Color.Transparent +Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label19.ForeColor = System.Drawing.Color.Black +Me.Label19.Location = New System.Drawing.Point(161, 38) +Me.Label19.Name = "Label19" +Me.Label19.Size = New System.Drawing.Size(10, 17) +Me.Label19.TabIndex = 154 +Me.Label19.Text = "-" +Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CardBack.BackColor = System.Drawing.Color.Silver -Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack -Me.CardBack.InitialImage = Nothing -Me.CardBack.Location = New System.Drawing.Point(17, 28) -Me.CardBack.Name = "CardBack" -Me.CardBack.Size = New System.Drawing.Size(138, 179) -Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.CardBack.TabIndex = 18 -Me.CardBack.TabStop = false +'Label24 ' -'GbxCardsBronze +Me.Label24.BackColor = System.Drawing.Color.Transparent +Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label24.ForeColor = System.Drawing.Color.Black +Me.Label24.Location = New System.Drawing.Point(6, 16) +Me.Label24.Name = "Label24" +Me.Label24.Size = New System.Drawing.Size(110, 17) +Me.Label24.TabIndex = 149 +Me.Label24.Text = "Censor Bar Shown:" +Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.GbxCardsBronze.Controls.Add(Me.BN6) -Me.GbxCardsBronze.Controls.Add(Me.BN3) -Me.GbxCardsBronze.Controls.Add(Me.BP3) -Me.GbxCardsBronze.Controls.Add(Me.BP6) -Me.GbxCardsBronze.Controls.Add(Me.BN2) -Me.GbxCardsBronze.Controls.Add(Me.BN5) -Me.GbxCardsBronze.Controls.Add(Me.BP5) -Me.GbxCardsBronze.Controls.Add(Me.BP2) -Me.GbxCardsBronze.Controls.Add(Me.BN1) -Me.GbxCardsBronze.Controls.Add(Me.BN4) -Me.GbxCardsBronze.Controls.Add(Me.BP4) -Me.GbxCardsBronze.Controls.Add(Me.BP1) -Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) -Me.GbxCardsBronze.Name = "GbxCardsBronze" -Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsBronze.TabIndex = 0 -Me.GbxCardsBronze.TabStop = false -Me.GbxCardsBronze.Text = "Bronze Cards" +'GBRangeOrgasmChance ' -'BN6 +Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) +Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) +Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) +Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" +Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeOrgasmChance.TabIndex = 167 +Me.GBRangeOrgasmChance.TabStop = false +Me.GBRangeOrgasmChance.Text = "Orgasm Chance" ' -Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN6.Location = New System.Drawing.Point(86, 368) -Me.BN6.Name = "BN6" -Me.BN6.Size = New System.Drawing.Size(71, 20) -Me.BN6.TabIndex = 5 -Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 -Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'Label89 ' -'BN3 +Me.Label89.BackColor = System.Drawing.Color.Transparent +Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label89.ForeColor = System.Drawing.Color.Black +Me.Label89.Location = New System.Drawing.Point(6, 94) +Me.Label89.Name = "Label89" +Me.Label89.Size = New System.Drawing.Size(83, 17) +Me.Label89.TabIndex = 173 +Me.Label89.Text = "Rarely Allows:" +Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN3.Location = New System.Drawing.Point(9, 243) -Me.BN3.Name = "BN3" -Me.BN3.Size = New System.Drawing.Size(71, 20) -Me.BN3.TabIndex = 2 -Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 -Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'NBAllowSometimes ' -'BP3 +Me.NBAllowSometimes.Enabled = false +Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowSometimes.Name = "NBAllowSometimes" +Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBAllowSometimes.TabIndex = 169 +Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -Me.BP3.BackColor = System.Drawing.Color.Silver -Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 -Me.BP3.InitialImage = Nothing -Me.BP3.Location = New System.Drawing.Point(9, 144) -Me.BP3.Name = "BP3" -Me.BP3.Size = New System.Drawing.Size(71, 93) -Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP3.TabIndex = 11 -Me.BP3.TabStop = false +'Label86 ' -'BP6 +Me.Label86.BackColor = System.Drawing.Color.Transparent +Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label86.ForeColor = System.Drawing.Color.Black +Me.Label86.Location = New System.Drawing.Point(6, 68) +Me.Label86.Name = "Label86" +Me.Label86.Size = New System.Drawing.Size(102, 17) +Me.Label86.TabIndex = 172 +Me.Label86.Text = "Sometimes Allows:" +Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.BP6.BackColor = System.Drawing.Color.Silver -Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 -Me.BP6.InitialImage = Nothing -Me.BP6.Location = New System.Drawing.Point(86, 269) -Me.BP6.Name = "BP6" -Me.BP6.Size = New System.Drawing.Size(71, 93) -Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP6.TabIndex = 17 -Me.BP6.TabStop = false +'Label82 ' -'BN2 +Me.Label82.BackColor = System.Drawing.Color.Transparent +Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label82.ForeColor = System.Drawing.Color.Black +Me.Label82.Location = New System.Drawing.Point(6, 42) +Me.Label82.Name = "Label82" +Me.Label82.Size = New System.Drawing.Size(83, 17) +Me.Label82.TabIndex = 171 +Me.Label82.Text = "Often Allows:" +Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN2.Location = New System.Drawing.Point(86, 118) -Me.BN2.Name = "BN2" -Me.BN2.Size = New System.Drawing.Size(71, 20) -Me.BN2.TabIndex = 1 -Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 -Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'NBAllowRarely ' -'BN5 +Me.NBAllowRarely.Enabled = false +Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) +Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowRarely.Name = "NBAllowRarely" +Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) +Me.NBAllowRarely.TabIndex = 170 +Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN5.Location = New System.Drawing.Point(9, 368) -Me.BN5.Name = "BN5" -Me.BN5.Size = New System.Drawing.Size(71, 20) -Me.BN5.TabIndex = 4 -Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 -Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'NBAllowOften ' -'BP5 +Me.NBAllowOften.Enabled = false +Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) +Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowOften.Name = "NBAllowOften" +Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) +Me.NBAllowOften.TabIndex = 168 +Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) ' -Me.BP5.BackColor = System.Drawing.Color.Silver -Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 -Me.BP5.InitialImage = Nothing -Me.BP5.Location = New System.Drawing.Point(9, 269) -Me.BP5.Name = "BP5" -Me.BP5.Size = New System.Drawing.Size(71, 93) -Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP5.TabIndex = 15 -Me.BP5.TabStop = false +'CBRangeOrgasm ' -'BP2 +Me.CBRangeOrgasm.AutoSize = true +Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black +Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) +Me.CBRangeOrgasm.Name = "CBRangeOrgasm" +Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) +Me.CBRangeOrgasm.TabIndex = 159 +Me.CBRangeOrgasm.Text = "Domme Decide" +Me.CBRangeOrgasm.UseVisualStyleBackColor = true ' -Me.BP2.BackColor = System.Drawing.Color.Silver -Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 -Me.BP2.InitialImage = Nothing -Me.BP2.Location = New System.Drawing.Point(86, 19) -Me.BP2.Name = "BP2" -Me.BP2.Size = New System.Drawing.Size(71, 93) -Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP2.TabIndex = 9 -Me.BP2.TabStop = false +'PictureBox8 ' -'BN1 +Me.PictureBox8.BackColor = System.Drawing.Color.LightGray +Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox8.Location = New System.Drawing.Point(9, 6) +Me.PictureBox8.Name = "PictureBox8" +Me.PictureBox8.Size = New System.Drawing.Size(160, 19) +Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox8.TabIndex = 166 +Me.PictureBox8.TabStop = false ' -Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN1.Location = New System.Drawing.Point(9, 118) -Me.BN1.Name = "BN1" -Me.BN1.Size = New System.Drawing.Size(71, 20) -Me.BN1.TabIndex = 0 -Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 -Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'Label38 ' -'BN4 +Me.Label38.BackColor = System.Drawing.Color.Transparent +Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label38.ForeColor = System.Drawing.Color.Black +Me.Label38.Location = New System.Drawing.Point(7, 6) +Me.Label38.Name = "Label38" +Me.Label38.Size = New System.Drawing.Size(692, 21) +Me.Label38.TabIndex = 48 +Me.Label38.Text = "Range Settings" +Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN4.Location = New System.Drawing.Point(86, 243) -Me.BN4.Name = "BN4" -Me.BN4.Size = New System.Drawing.Size(71, 20) -Me.BN4.TabIndex = 3 -Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 -Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'TabPage13 +' +Me.TabPage13.BackColor = System.Drawing.Color.Silver +Me.TabPage13.Controls.Add(Me.TabControl2) +Me.TabPage13.Location = New System.Drawing.Point(4, 22) +Me.TabPage13.Name = "TabPage13" +Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage13.Size = New System.Drawing.Size(720, 448) +Me.TabPage13.TabIndex = 13 +Me.TabPage13.Text = "Modding" ' -'BP4 +'TabControl2 ' -Me.BP4.BackColor = System.Drawing.Color.Silver -Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 -Me.BP4.InitialImage = Nothing -Me.BP4.Location = New System.Drawing.Point(86, 144) -Me.BP4.Name = "BP4" -Me.BP4.Size = New System.Drawing.Size(71, 93) -Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP4.TabIndex = 13 -Me.BP4.TabStop = false +Me.TabControl2.Controls.Add(Me.TabPage27) +Me.TabControl2.Controls.Add(Me.TabPage14) +Me.TabControl2.Controls.Add(Me.TabPage24) +Me.TabControl2.Controls.Add(Me.TabPage8) +Me.TabControl2.Controls.Add(Me.TabPage15) +Me.TabControl2.Location = New System.Drawing.Point(6, 6) +Me.TabControl2.Name = "TabControl2" +Me.TabControl2.SelectedIndex = 0 +Me.TabControl2.Size = New System.Drawing.Size(708, 437) +Me.TabControl2.TabIndex = 0 ' -'BP1 +'TabPage27 ' -Me.BP1.BackColor = System.Drawing.Color.Silver -Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 -Me.BP1.InitialImage = Nothing -Me.BP1.Location = New System.Drawing.Point(9, 19) -Me.BP1.Name = "BP1" -Me.BP1.Size = New System.Drawing.Size(71, 93) -Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP1.TabIndex = 0 -Me.BP1.TabStop = false -Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 +Me.TabPage27.BackColor = System.Drawing.Color.LightGray +Me.TabPage27.Controls.Add(Me.TBPlaylistSave) +Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) +Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) +Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) +Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) +Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) +Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) +Me.TabPage27.Controls.Add(Me.Button7) +Me.TabPage27.Controls.Add(Me.WBPlaylist) +Me.TabPage27.Controls.Add(Me.Label80) +Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) +Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) +Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) +Me.TabPage27.Controls.Add(Me.LBPlaylist) +Me.TabPage27.Location = New System.Drawing.Point(4, 22) +Me.TabPage27.Name = "TabPage27" +Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage27.Size = New System.Drawing.Size(700, 411) +Me.TabPage27.TabIndex = 5 +Me.TabPage27.Text = "Playlists" ' -'GbxCardsSilver +'TBPlaylistSave ' -Me.GbxCardsSilver.Controls.Add(Me.SN6) -Me.GbxCardsSilver.Controls.Add(Me.SP6) -Me.GbxCardsSilver.Controls.Add(Me.SN2) -Me.GbxCardsSilver.Controls.Add(Me.SP2) -Me.GbxCardsSilver.Controls.Add(Me.SN1) -Me.GbxCardsSilver.Controls.Add(Me.SP5) -Me.GbxCardsSilver.Controls.Add(Me.SP1) -Me.GbxCardsSilver.Controls.Add(Me.SN5) -Me.GbxCardsSilver.Controls.Add(Me.SN3) -Me.GbxCardsSilver.Controls.Add(Me.SN4) -Me.GbxCardsSilver.Controls.Add(Me.SP3) -Me.GbxCardsSilver.Controls.Add(Me.SP4) -Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) -Me.GbxCardsSilver.Name = "GbxCardsSilver" -Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsSilver.TabIndex = 1 -Me.GbxCardsSilver.TabStop = false -Me.GbxCardsSilver.Text = "Silver Cards" +Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) +Me.TBPlaylistSave.Name = "TBPlaylistSave" +Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) +Me.TBPlaylistSave.TabIndex = 203 ' -'SN6 +'BTNPlaylistCtrlZ ' -Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN6.Location = New System.Drawing.Point(86, 368) -Me.SN6.Name = "SN6" -Me.SN6.Size = New System.Drawing.Size(71, 20) -Me.SN6.TabIndex = 5 -Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 -Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BTNPlaylistCtrlZ.Enabled = false +Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) +Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" +Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistCtrlZ.TabIndex = 202 +Me.BTNPlaylistCtrlZ.Text = "Undo" +Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true ' -'SP6 +'RadioPlaylistRegScripts ' -Me.SP6.BackColor = System.Drawing.Color.Silver -Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 -Me.SP6.InitialImage = Nothing -Me.SP6.Location = New System.Drawing.Point(86, 269) -Me.SP6.Name = "SP6" -Me.SP6.Size = New System.Drawing.Size(71, 93) -Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP6.TabIndex = 17 -Me.SP6.TabStop = false +Me.RadioPlaylistRegScripts.AutoSize = true +Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) +Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" +Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) +Me.RadioPlaylistRegScripts.TabIndex = 201 +Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" +Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true ' -'SN2 +'RadioPlaylistScripts ' -Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN2.Location = New System.Drawing.Point(86, 118) -Me.SN2.Name = "SN2" -Me.SN2.Size = New System.Drawing.Size(71, 20) -Me.SN2.TabIndex = 1 -Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 -Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.RadioPlaylistScripts.AutoSize = true +Me.RadioPlaylistScripts.Checked = true +Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) +Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" +Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) +Me.RadioPlaylistScripts.TabIndex = 200 +Me.RadioPlaylistScripts.TabStop = true +Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" +Me.RadioPlaylistScripts.UseVisualStyleBackColor = true ' -'SP2 +'BTNPlaylistEnd ' -Me.SP2.BackColor = System.Drawing.Color.Silver -Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 -Me.SP2.InitialImage = Nothing -Me.SP2.Location = New System.Drawing.Point(86, 19) -Me.SP2.Name = "SP2" -Me.SP2.Size = New System.Drawing.Size(71, 93) -Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP2.TabIndex = 9 -Me.SP2.TabStop = false +Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray +Me.BTNPlaylistEnd.Enabled = false +Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black +Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) +Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" +Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistEnd.TabIndex = 199 +Me.BTNPlaylistEnd.Text = "End" +Me.BTNPlaylistEnd.UseVisualStyleBackColor = false ' -'SN1 +'BTNPlaylistClearAll ' -Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN1.Location = New System.Drawing.Point(9, 118) -Me.SN1.Name = "SN1" -Me.SN1.Size = New System.Drawing.Size(71, 20) -Me.SN1.TabIndex = 0 -Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 -Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BTNPlaylistClearAll.Enabled = false +Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) +Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" +Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) +Me.BTNPlaylistClearAll.TabIndex = 198 +Me.BTNPlaylistClearAll.Text = "Clear All" +Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true ' -'SP5 +'BTNPlaylistSave ' -Me.SP5.BackColor = System.Drawing.Color.Silver -Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 -Me.SP5.InitialImage = Nothing -Me.SP5.Location = New System.Drawing.Point(9, 269) -Me.SP5.Name = "SP5" -Me.SP5.Size = New System.Drawing.Size(71, 93) -Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP5.TabIndex = 15 -Me.SP5.TabStop = false +Me.BTNPlaylistSave.Enabled = false +Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) +Me.BTNPlaylistSave.Name = "BTNPlaylistSave" +Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistSave.TabIndex = 197 +Me.BTNPlaylistSave.Text = "Save" +Me.BTNPlaylistSave.UseVisualStyleBackColor = true ' -'SP1 +'Button7 ' -Me.SP1.BackColor = System.Drawing.Color.Silver -Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 -Me.SP1.InitialImage = Nothing -Me.SP1.Location = New System.Drawing.Point(9, 19) -Me.SP1.Name = "SP1" -Me.SP1.Size = New System.Drawing.Size(71, 93) -Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP1.TabIndex = 0 -Me.SP1.TabStop = false +Me.Button7.Location = New System.Drawing.Point(213, 21) +Me.Button7.Name = "Button7" +Me.Button7.Size = New System.Drawing.Size(78, 23) +Me.Button7.TabIndex = 196 +Me.Button7.Text = "Add Random" +Me.Button7.UseVisualStyleBackColor = true ' -'SN5 +'WBPlaylist ' -Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN5.Location = New System.Drawing.Point(9, 368) -Me.SN5.Name = "SN5" -Me.SN5.Size = New System.Drawing.Size(71, 20) -Me.SN5.TabIndex = 4 -Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 -Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) +Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) +Me.WBPlaylist.Name = "WBPlaylist" +Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) +Me.WBPlaylist.TabIndex = 195 ' -'SN3 +'Label80 ' -Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN3.Location = New System.Drawing.Point(9, 243) -Me.SN3.Name = "SN3" -Me.SN3.Size = New System.Drawing.Size(71, 20) -Me.SN3.TabIndex = 2 -Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 -Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label80.AutoSize = true +Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label80.Location = New System.Drawing.Point(410, 27) +Me.Label80.Name = "Label80" +Me.Label80.Size = New System.Drawing.Size(47, 13) +Me.Label80.TabIndex = 194 +Me.Label80.Text = "Playlist" ' -'SN4 +'LBLPlaylIstLink ' -Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN4.Location = New System.Drawing.Point(86, 243) -Me.SN4.Name = "SN4" -Me.SN4.Size = New System.Drawing.Size(71, 20) -Me.SN4.TabIndex = 3 -Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 -Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylIstLink.Enabled = false +Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) +Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" +Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) +Me.LBLPlaylIstLink.TabIndex = 193 +Me.LBLPlaylIstLink.Text = "Link" +Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP3 +'LBLPlaylistModule ' -Me.SP3.BackColor = System.Drawing.Color.Silver -Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 -Me.SP3.InitialImage = Nothing -Me.SP3.Location = New System.Drawing.Point(9, 144) -Me.SP3.Name = "SP3" -Me.SP3.Size = New System.Drawing.Size(71, 93) -Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP3.TabIndex = 11 -Me.SP3.TabStop = false +Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylistModule.Enabled = false +Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) +Me.LBLPlaylistModule.Name = "LBLPlaylistModule" +Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) +Me.LBLPlaylistModule.TabIndex = 192 +Me.LBLPlaylistModule.Text = "Module" +Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP4 +'LBLPLaylistStart ' -Me.SP4.BackColor = System.Drawing.Color.Silver -Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 -Me.SP4.InitialImage = Nothing -Me.SP4.Location = New System.Drawing.Point(86, 144) -Me.SP4.Name = "SP4" -Me.SP4.Size = New System.Drawing.Size(71, 93) -Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP4.TabIndex = 13 -Me.SP4.TabStop = false +Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green +Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White +Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) +Me.LBLPLaylistStart.Name = "LBLPLaylistStart" +Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) +Me.LBLPLaylistStart.TabIndex = 190 +Me.LBLPLaylistStart.Text = "Start" +Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TabPage6 +'LBPlaylist ' -Me.TabPage6.BackColor = System.Drawing.Color.LightGray -Me.TabPage6.Controls.Add(Me.Panel10) -Me.TabPage6.Controls.Add(Me.Label107) -Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) -Me.TabPage6.Controls.Add(Me.Label18) -Me.TabPage6.Controls.Add(Me.PNLWishList) -Me.TabPage6.Location = New System.Drawing.Point(4, 22) -Me.TabPage6.Name = "TabPage6" -Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage6.Size = New System.Drawing.Size(700, 411) -Me.TabPage6.TabIndex = 2 -Me.TabPage6.Text = "Wishlist" +Me.LBPlaylist.AllowDrop = true +Me.LBPlaylist.FormattingEnabled = true +Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) +Me.LBPlaylist.Name = "LBPlaylist" +Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) +Me.LBPlaylist.TabIndex = 189 ' -'Panel10 +'TabPage14 ' -Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel10.Controls.Add(Me.TBWishlistComment) -Me.Panel10.Controls.Add(Me.Label32) -Me.Panel10.Controls.Add(Me.TBWishlistItem) -Me.Panel10.Controls.Add(Me.radioGold) -Me.Panel10.Controls.Add(Me.Label42) -Me.Panel10.Controls.Add(Me.radioSilver) -Me.Panel10.Controls.Add(Me.TBWishlistURL) -Me.Panel10.Controls.Add(Me.NBWishlistCost) -Me.Panel10.Controls.Add(Me.Label48) -Me.Panel10.Controls.Add(Me.Label73) -Me.Panel10.Location = New System.Drawing.Point(38, 47) -Me.Panel10.Name = "Panel10" -Me.Panel10.Size = New System.Drawing.Size(252, 308) -Me.Panel10.TabIndex = 179 +Me.TabPage14.BackColor = System.Drawing.Color.LightGray +Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) +Me.TabPage14.Controls.Add(Me.Label88) +Me.TabPage14.Controls.Add(Me.TBKeywordPreview) +Me.TabPage14.Controls.Add(Me.Button37) +Me.TabPage14.Controls.Add(Me.Button50) +Me.TabPage14.Controls.Add(Me.Button22) +Me.TabPage14.Controls.Add(Me.TBKeyWords) +Me.TabPage14.Controls.Add(Me.LBKeyWords) +Me.TabPage14.Controls.Add(Me.RTBKeyWords) +Me.TabPage14.Location = New System.Drawing.Point(4, 22) +Me.TabPage14.Name = "TabPage14" +Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage14.Size = New System.Drawing.Size(700, 411) +Me.TabPage14.TabIndex = 0 +Me.TabPage14.Text = "Keywords" ' -'TBWishlistComment +'LBLKeywordPreview ' -Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) -Me.TBWishlistComment.Multiline = true -Me.TBWishlistComment.Name = "TBWishlistComment" -Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) -Me.TBWishlistComment.TabIndex = 172 +Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) +Me.LBLKeywordPreview.Name = "LBLKeywordPreview" +Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) +Me.LBLKeywordPreview.TabIndex = 174 +Me.LBLKeywordPreview.Text = "Get Preview Here" +Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label32 +'Label88 ' -Me.Label32.AutoSize = true -Me.Label32.Location = New System.Drawing.Point(13, 4) -Me.Label32.Name = "Label32" -Me.Label32.Size = New System.Drawing.Size(58, 13) -Me.Label32.TabIndex = 167 -Me.Label32.Text = "Item Name" +Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label88.Location = New System.Drawing.Point(3, 358) +Me.Label88.Name = "Label88" +Me.Label88.Size = New System.Drawing.Size(194, 53) +Me.Label88.TabIndex = 173 +Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ + " the domme return." +Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBWishlistItem +'TBKeywordPreview ' -Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) -Me.TBWishlistItem.Name = "TBWishlistItem" -Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistItem.TabIndex = 168 +Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) +Me.TBKeywordPreview.Name = "TBKeywordPreview" +Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) +Me.TBKeywordPreview.TabIndex = 172 +Me.TBKeywordPreview.Text = "Enter Line Here" +Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'radioGold +'Button37 ' -Me.radioGold.AutoSize = true -Me.radioGold.Location = New System.Drawing.Point(167, 125) -Me.radioGold.Name = "radioGold" -Me.radioGold.Size = New System.Drawing.Size(47, 17) -Me.radioGold.TabIndex = 176 -Me.radioGold.Text = "Gold" -Me.radioGold.UseVisualStyleBackColor = true +Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button37.Location = New System.Drawing.Point(638, 358) +Me.Button37.Name = "Button37" +Me.Button37.Size = New System.Drawing.Size(47, 50) +Me.Button37.TabIndex = 171 +Me.Button37.Text = "#" +Me.Button37.UseVisualStyleBackColor = true ' -'Label42 +'Button50 ' -Me.Label42.AutoSize = true -Me.Label42.Location = New System.Drawing.Point(13, 56) -Me.Label42.Name = "Label42" -Me.Label42.Size = New System.Drawing.Size(75, 13) -Me.Label42.TabIndex = 169 -Me.Label42.Text = "Item Image Url" +Me.Button50.Location = New System.Drawing.Point(6, 10) +Me.Button50.Name = "Button50" +Me.Button50.Size = New System.Drawing.Size(194, 23) +Me.Button50.TabIndex = 169 +Me.Button50.Text = "Refresh and Clear Keyword List" +Me.Button50.UseVisualStyleBackColor = true ' -'radioSilver +'Button22 ' -Me.radioSilver.AutoSize = true -Me.radioSilver.Checked = true -Me.radioSilver.Location = New System.Drawing.Point(100, 125) -Me.radioSilver.Name = "radioSilver" -Me.radioSilver.Size = New System.Drawing.Size(51, 17) -Me.radioSilver.TabIndex = 175 -Me.radioSilver.TabStop = true -Me.radioSilver.Text = "Silver" -Me.radioSilver.UseVisualStyleBackColor = true +Me.Button22.Location = New System.Drawing.Point(638, 10) +Me.Button22.Name = "Button22" +Me.Button22.Size = New System.Drawing.Size(47, 23) +Me.Button22.TabIndex = 167 +Me.Button22.Text = "Save" +Me.Button22.UseVisualStyleBackColor = true ' -'TBWishlistURL +'TBKeyWords ' -Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) -Me.TBWishlistURL.Name = "TBWishlistURL" -Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistURL.TabIndex = 170 +Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) +Me.TBKeyWords.Name = "TBKeyWords" +Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) +Me.TBKeyWords.TabIndex = 166 ' -'NBWishlistCost +'LBKeyWords ' -Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) -Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBWishlistCost.Name = "NBWishlistCost" -Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) -Me.NBWishlistCost.TabIndex = 174 -Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) +Me.LBKeyWords.FormattingEnabled = true +Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) +Me.LBKeyWords.Name = "LBKeyWords" +Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) +Me.LBKeyWords.Sorted = true +Me.LBKeyWords.TabIndex = 165 ' -'Label48 +'RTBKeyWords ' -Me.Label48.AutoSize = true -Me.Label48.Location = New System.Drawing.Point(13, 157) -Me.Label48.Name = "Label48" -Me.Label48.Size = New System.Drawing.Size(74, 13) -Me.Label48.TabIndex = 171 -Me.Label48.Text = "Item Comment" +Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) +Me.RTBKeyWords.Name = "RTBKeyWords" +Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) +Me.RTBKeyWords.TabIndex = 164 +Me.RTBKeyWords.Text = "" ' -'Label73 +'TabPage24 ' -Me.Label73.AutoSize = true -Me.Label73.Location = New System.Drawing.Point(13, 108) -Me.Label73.Name = "Label73" -Me.Label73.Size = New System.Drawing.Size(51, 13) -Me.Label73.TabIndex = 173 -Me.Label73.Text = "Item Cost" +Me.TabPage24.BackColor = System.Drawing.Color.LightGray +Me.TabPage24.Controls.Add(Me.Button9) +Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) +Me.TabPage24.Controls.Add(Me.Button4) +Me.TabPage24.Controls.Add(Me.Button5) +Me.TabPage24.Controls.Add(Me.TBResponses) +Me.TabPage24.Controls.Add(Me.LBResponses) +Me.TabPage24.Controls.Add(Me.RTBResponses) +Me.TabPage24.Location = New System.Drawing.Point(4, 22) +Me.TabPage24.Name = "TabPage24" +Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage24.Size = New System.Drawing.Size(700, 411) +Me.TabPage24.TabIndex = 3 +Me.TabPage24.Text = "Responses" ' -'Label107 +'Button9 ' -Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label107.Location = New System.Drawing.Point(38, 5) -Me.Label107.Name = "Label107" -Me.Label107.Size = New System.Drawing.Size(252, 47) -Me.Label107.TabIndex = 178 -Me.Label107.Text = "Use this page to create Wishlist files." -Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Button9.Location = New System.Drawing.Point(217, 10) +Me.Button9.Name = "Button9" +Me.Button9.Size = New System.Drawing.Size(215, 23) +Me.Button9.TabIndex = 176 +Me.Button9.Text = "Response Template" +Me.Button9.UseVisualStyleBackColor = true ' -'BTNWishlistCreate +'RTBResponsesKEY ' -Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) -Me.BTNWishlistCreate.Name = "BTNWishlistCreate" -Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) -Me.BTNWishlistCreate.TabIndex = 177 -Me.BTNWishlistCreate.Text = "Create Wishlist File" -Me.BTNWishlistCreate.UseVisualStyleBackColor = true +Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) +Me.RTBResponsesKEY.Name = "RTBResponsesKEY" +Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) +Me.RTBResponsesKEY.TabIndex = 175 +Me.RTBResponsesKEY.Text = "" ' -'Label18 +'Button4 ' -Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label18.Location = New System.Drawing.Point(409, 5) -Me.Label18.Name = "Label18" -Me.Label18.Size = New System.Drawing.Size(250, 23) -Me.Label18.TabIndex = 166 -Me.Label18.Text = "Preview" -Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Button4.Location = New System.Drawing.Point(6, 10) +Me.Button4.Name = "Button4" +Me.Button4.Size = New System.Drawing.Size(194, 23) +Me.Button4.TabIndex = 174 +Me.Button4.Text = "Refresh and Clear Response List" +Me.Button4.UseVisualStyleBackColor = true ' -'PNLWishList +'Button5 ' -Me.PNLWishList.BackColor = System.Drawing.Color.White -Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) -Me.PNLWishList.Controls.Add(Me.LBLWishListText) -Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) -Me.PNLWishList.Controls.Add(Me.WishlistCostGold) -Me.PNLWishList.Controls.Add(Me.LBLWishListName) -Me.PNLWishList.Controls.Add(Me.WishlistPreview) -Me.PNLWishList.Location = New System.Drawing.Point(407, 31) -Me.PNLWishList.Name = "PNLWishList" -Me.PNLWishList.Size = New System.Drawing.Size(250, 367) -Me.PNLWishList.TabIndex = 165 +Me.Button5.Location = New System.Drawing.Point(638, 10) +Me.Button5.Name = "Button5" +Me.Button5.Size = New System.Drawing.Size(47, 23) +Me.Button5.TabIndex = 173 +Me.Button5.Text = "Save" +Me.Button5.UseVisualStyleBackColor = true ' -'WishlistCostSilver +'TBResponses ' -Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) -Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostSilver.Name = "WishlistCostSilver" -Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostSilver.TabIndex = 111 -Me.WishlistCostSilver.TabStop = false +Me.TBResponses.Location = New System.Drawing.Point(438, 10) +Me.TBResponses.Name = "TBResponses" +Me.TBResponses.Size = New System.Drawing.Size(194, 20) +Me.TBResponses.TabIndex = 172 ' -'LBLWishListText +'LBResponses ' -Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) -Me.LBLWishListText.Name = "LBLWishListText" -Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) -Me.LBLWishListText.TabIndex = 108 +Me.LBResponses.FormattingEnabled = true +Me.LBResponses.Location = New System.Drawing.Point(6, 36) +Me.LBResponses.Name = "LBResponses" +Me.LBResponses.Size = New System.Drawing.Size(194, 355) +Me.LBResponses.Sorted = true +Me.LBResponses.TabIndex = 171 ' -'LBLWishlistCost +'RTBResponses ' -Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black -Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) -Me.LBLWishlistCost.Name = "LBLWishlistCost" -Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) -Me.LBLWishlistCost.TabIndex = 107 -Me.LBLWishlistCost.Text = "3" -Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.RTBResponses.Location = New System.Drawing.Point(217, 82) +Me.RTBResponses.Name = "RTBResponses" +Me.RTBResponses.Size = New System.Drawing.Size(468, 309) +Me.RTBResponses.TabIndex = 170 +Me.RTBResponses.Text = "" ' -'WishlistCostGold +'TabPage8 ' -Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) -Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostGold.Name = "WishlistCostGold" -Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostGold.TabIndex = 106 -Me.WishlistCostGold.TabStop = false -Me.WishlistCostGold.Visible = false +Me.TabPage8.BackColor = System.Drawing.Color.LightGray +Me.TabPage8.Controls.Add(Me.RTBVideoMod) +Me.TabPage8.Controls.Add(Me.GroupBox29) +Me.TabPage8.Controls.Add(Me.BTNVideoModClear) +Me.TabPage8.Controls.Add(Me.GroupBox28) +Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) +Me.TabPage8.Controls.Add(Me.GroupBox30) +Me.TabPage8.Controls.Add(Me.BTNVideoModSave) +Me.TabPage8.Location = New System.Drawing.Point(4, 22) +Me.TabPage8.Name = "TabPage8" +Me.TabPage8.Size = New System.Drawing.Size(700, 411) +Me.TabPage8.TabIndex = 2 +Me.TabPage8.Text = "Video" ' -'LBLWishListName +'RTBVideoMod ' -Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue -Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) -Me.LBLWishListName.Name = "LBLWishListName" -Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) -Me.LBLWishListName.TabIndex = 104 -Me.LBLWishListName.Text = "Item Name Goes Here" -Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.RTBVideoMod.Enabled = false +Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) +Me.RTBVideoMod.Name = "RTBVideoMod" +Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) +Me.RTBVideoMod.TabIndex = 150 +Me.RTBVideoMod.Text = "" ' -'WishlistPreview +'GroupBox29 ' -Me.WishlistPreview.ImageLocation = "" -Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) -Me.WishlistPreview.Name = "WishlistPreview" -Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) -Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WishlistPreview.TabIndex = 101 -Me.WishlistPreview.TabStop = false +Me.GroupBox29.BackColor = System.Drawing.Color.LightGray +Me.GroupBox29.Controls.Add(Me.Label51) +Me.GroupBox29.ForeColor = System.Drawing.Color.Black +Me.GroupBox29.Location = New System.Drawing.Point(6, 309) +Me.GroupBox29.Name = "GroupBox29" +Me.GroupBox29.Size = New System.Drawing.Size(692, 92) +Me.GroupBox29.TabIndex = 66 +Me.GroupBox29.TabStop = false +Me.GroupBox29.Text = "Description" ' -'TabPage26 +'Label51 ' -Me.TabPage26.BackColor = System.Drawing.Color.Silver -Me.TabPage26.Controls.Add(Me.Panel12) -Me.TabPage26.Location = New System.Drawing.Point(4, 22) -Me.TabPage26.Name = "TabPage26" -Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage26.Size = New System.Drawing.Size(720, 448) -Me.TabPage26.TabIndex = 19 -Me.TabPage26.Text = "Themes" +Me.Label51.BackColor = System.Drawing.Color.Transparent +Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label51.ForeColor = System.Drawing.Color.Black +Me.Label51.Location = New System.Drawing.Point(6, 16) +Me.Label51.Name = "Label51" +Me.Label51.Size = New System.Drawing.Size(680, 73) +Me.Label51.TabIndex = 62 +Me.Label51.Text = resources.GetString("Label51.Text") +Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Panel12 +'BTNVideoModClear ' -Me.Panel12.BackColor = System.Drawing.Color.LightGray -Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel12.Controls.Add(Me.GroupBox9) -Me.Panel12.Controls.Add(Me.PictureBox10) -Me.Panel12.Controls.Add(Me.GroupBox5) -Me.Panel12.Controls.Add(Me.GroupBox11) -Me.Panel12.Controls.Add(Me.GroupBox1) -Me.Panel12.Controls.Add(Me.Label164) -Me.Panel12.Location = New System.Drawing.Point(6, 6) -Me.Panel12.Name = "Panel12" -Me.Panel12.Size = New System.Drawing.Size(708, 437) -Me.Panel12.TabIndex = 93 +Me.BTNVideoModClear.Enabled = false +Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) +Me.BTNVideoModClear.Name = "BTNVideoModClear" +Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModClear.TabIndex = 153 +Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" +Me.BTNVideoModClear.UseVisualStyleBackColor = true ' -'GroupBox9 +'GroupBox28 ' -Me.GroupBox9.Controls.Add(Me.Button32) -Me.GroupBox9.Controls.Add(Me.Button31) -Me.GroupBox9.Location = New System.Drawing.Point(351, 231) -Me.GroupBox9.Name = "GroupBox9" -Me.GroupBox9.Size = New System.Drawing.Size(348, 94) -Me.GroupBox9.TabIndex = 152 -Me.GroupBox9.TabStop = false -Me.GroupBox9.Text = "System" +Me.GroupBox28.Controls.Add(Me.CBVTType) +Me.GroupBox28.Location = New System.Drawing.Point(6, 8) +Me.GroupBox28.Name = "GroupBox28" +Me.GroupBox28.Size = New System.Drawing.Size(155, 46) +Me.GroupBox28.TabIndex = 148 +Me.GroupBox28.TabStop = false +Me.GroupBox28.Text = "Video Tease Type" ' -'Button32 +'CBVTType ' -Me.Button32.BackColor = System.Drawing.Color.Transparent -Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big -Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button32.Location = New System.Drawing.Point(196, 24) -Me.Button32.Name = "Button32" -Me.Button32.Size = New System.Drawing.Size(135, 55) -Me.Button32.TabIndex = 55 -Me.Button32.Text = " Save Theme" -Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button32.UseVisualStyleBackColor = false +Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBVTType.FormattingEnabled = true +Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) +Me.CBVTType.Location = New System.Drawing.Point(9, 15) +Me.CBVTType.Name = "CBVTType" +Me.CBVTType.Size = New System.Drawing.Size(137, 21) +Me.CBVTType.TabIndex = 171 ' -'Button31 +'BTNVideoModLoad ' -Me.Button31.BackColor = System.Drawing.Color.Transparent -Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big -Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button31.Location = New System.Drawing.Point(17, 24) -Me.Button31.Name = "Button31" -Me.Button31.Size = New System.Drawing.Size(135, 55) -Me.Button31.TabIndex = 54 -Me.Button31.Text = " Open Theme" -Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button31.UseVisualStyleBackColor = false +Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) +Me.BTNVideoModLoad.Name = "BTNVideoModLoad" +Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModLoad.TabIndex = 152 +Me.BTNVideoModLoad.Text = "Load Script" +Me.BTNVideoModLoad.UseVisualStyleBackColor = true ' -'PictureBox10 +'GroupBox30 ' -Me.PictureBox10.BackColor = System.Drawing.Color.LightGray -Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox10.Location = New System.Drawing.Point(9, 6) -Me.PictureBox10.Name = "PictureBox10" -Me.PictureBox10.Size = New System.Drawing.Size(160, 19) -Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox10.TabIndex = 151 -Me.PictureBox10.TabStop = false +Me.GroupBox30.Controls.Add(Me.LBVidScript) +Me.GroupBox30.Location = New System.Drawing.Point(6, 60) +Me.GroupBox30.Name = "GroupBox30" +Me.GroupBox30.Size = New System.Drawing.Size(155, 100) +Me.GroupBox30.TabIndex = 149 +Me.GroupBox30.TabStop = false +Me.GroupBox30.Text = "Script" ' -'GroupBox5 +'LBVidScript ' -Me.GroupBox5.Controls.Add(Me.CBTransparentTime) -Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) -Me.GroupBox5.Controls.Add(Me.Label137) -Me.GroupBox5.Controls.Add(Me.Label138) -Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) -Me.GroupBox5.Location = New System.Drawing.Point(9, 31) -Me.GroupBox5.Name = "GroupBox5" -Me.GroupBox5.Size = New System.Drawing.Size(336, 294) -Me.GroupBox5.TabIndex = 58 -Me.GroupBox5.TabStop = false -Me.GroupBox5.Text = "UI Colors" +Me.LBVidScript.FormattingEnabled = true +Me.LBVidScript.Location = New System.Drawing.Point(9, 20) +Me.LBVidScript.Name = "LBVidScript" +Me.LBVidScript.Size = New System.Drawing.Size(137, 69) +Me.LBVidScript.TabIndex = 0 ' -'CBTransparentTime +'BTNVideoModSave ' -Me.CBTransparentTime.AutoSize = true -Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) -Me.CBTransparentTime.Name = "CBTransparentTime" -Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) -Me.CBTransparentTime.TabIndex = 23 -Me.CBTransparentTime.Text = "Transparent Date/Time Window" -Me.CBTransparentTime.UseVisualStyleBackColor = true +Me.BTNVideoModSave.Enabled = false +Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) +Me.BTNVideoModSave.Name = "BTNVideoModSave" +Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModSave.TabIndex = 151 +Me.BTNVideoModSave.Text = "Save Changes" +Me.BTNVideoModSave.UseVisualStyleBackColor = true ' -'LBLDateTimeColor2 +'TabPage15 ' -Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor -Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) -Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" -Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateTimeColor2.TabIndex = 19 +Me.TabPage15.BackColor = System.Drawing.Color.LightGray +Me.TabPage15.Controls.Add(Me.Label62) +Me.TabPage15.Controls.Add(Me.Label61) +Me.TabPage15.Controls.Add(Me.Label57) +Me.TabPage15.Controls.Add(Me.Label58) +Me.TabPage15.Controls.Add(Me.Label60) +Me.TabPage15.Controls.Add(Me.TBGlitModFileName) +Me.TabPage15.Controls.Add(Me.GroupBox34) +Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) +Me.TabPage15.Controls.Add(Me.Button26) +Me.TabPage15.Controls.Add(Me.Label56) +Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) +Me.TabPage15.Controls.Add(Me.LBGlitModScripts) +Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) +Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) +Me.TabPage15.Controls.Add(Me.Button29) +Me.TabPage15.Controls.Add(Me.CBGlitModType) +Me.TabPage15.Controls.Add(Me.Label59) +Me.TabPage15.Controls.Add(Me.Label50) +Me.TabPage15.Location = New System.Drawing.Point(4, 22) +Me.TabPage15.Name = "TabPage15" +Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage15.Size = New System.Drawing.Size(700, 411) +Me.TabPage15.TabIndex = 1 +Me.TabPage15.Text = "Glitter" ' -'Label137 +'Label62 ' -Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label137.Location = New System.Drawing.Point(6, 227) -Me.Label137.Name = "Label137" -Me.Label137.Size = New System.Drawing.Size(175, 20) -Me.Label137.TabIndex = 20 -Me.Label137.Text = "Date/Time Window Color" -Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label62.Location = New System.Drawing.Point(255, 169) +Me.Label62.Name = "Label62" +Me.Label62.Size = New System.Drawing.Size(59, 51) +Me.Label62.TabIndex = 177 +Me.Label62.Text = "@Cruel @Angry @Custom2" +Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label138 +'Label61 ' -Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label138.Location = New System.Drawing.Point(6, 193) -Me.Label138.Name = "Label138" -Me.Label138.Size = New System.Drawing.Size(175, 20) -Me.Label138.TabIndex = 17 -Me.Label138.Text = "Date/Time Text Color" -Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label61.Location = New System.Drawing.Point(194, 169) +Me.Label61.Name = "Label61" +Me.Label61.Size = New System.Drawing.Size(59, 51) +Me.Label61.TabIndex = 176 +Me.Label61.Text = "@Bratty @Caring @Custom1" +Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLDateBackColor2 +'Label57 ' -Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor -Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) -Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateBackColor2.Name = "LBLDateBackColor2" -Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateBackColor2.TabIndex = 22 +Me.Label57.Location = New System.Drawing.Point(194, 11) +Me.Label57.Name = "Label57" +Me.Label57.Size = New System.Drawing.Size(120, 23) +Me.Label57.TabIndex = 160 +Me.Label57.Text = "File Name" +Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLTextColor +'Label58 ' -Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) -Me.LBLTextColor.Name = "LBLTextColor" -Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLTextColor.TabIndex = 7 -Me.LBLTextColor.Text = "Text Color" -Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label58.Location = New System.Drawing.Point(350, 11) +Me.Label58.Name = "Label58" +Me.Label58.Size = New System.Drawing.Size(326, 23) +Me.Label58.TabIndex = 161 +Me.Label58.Text = "Domme's Post" +Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLChatWindowColor2 +'Label60 ' -Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor -Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) -Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" -Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatWindowColor2.TabIndex = 12 +Me.Label60.Location = New System.Drawing.Point(194, 139) +Me.Label60.Name = "Label60" +Me.Label60.Size = New System.Drawing.Size(120, 30) +Me.Label60.TabIndex = 175 +Me.Label60.Text = "Tease Responses Need 3 of Each:" +Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLTextColor2 +'TBGlitModFileName ' -Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor -Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) -Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLTextColor2.Name = "LBLTextColor2" -Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLTextColor2.TabIndex = 9 +Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) +Me.TBGlitModFileName.Name = "TBGlitModFileName" +Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) +Me.TBGlitModFileName.TabIndex = 158 ' -'LBLChatTextColor +'GroupBox34 ' -Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) -Me.LBLChatTextColor.Name = "LBLChatTextColor" -Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatTextColor.TabIndex = 14 -Me.LBLChatTextColor.Text = "Chat Text Color" -Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox34.BackColor = System.Drawing.Color.LightGray +Me.GroupBox34.Controls.Add(Me.Label52) +Me.GroupBox34.ForeColor = System.Drawing.Color.Black +Me.GroupBox34.Location = New System.Drawing.Point(8, 296) +Me.GroupBox34.Name = "GroupBox34" +Me.GroupBox34.Size = New System.Drawing.Size(683, 107) +Me.GroupBox34.TabIndex = 66 +Me.GroupBox34.TabStop = false +Me.GroupBox34.Text = "Description" ' -'LBLBackColor2 +'Label52 ' -Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor -Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) -Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLBackColor2.Name = "LBLBackColor2" -Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLBackColor2.TabIndex = 3 +Me.Label52.BackColor = System.Drawing.Color.Transparent +Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label52.ForeColor = System.Drawing.Color.Black +Me.Label52.Location = New System.Drawing.Point(6, 16) +Me.Label52.Name = "Label52" +Me.Label52.Size = New System.Drawing.Size(670, 88) +Me.Label52.TabIndex = 62 +Me.Label52.Text = resources.GetString("Label52.Text") +Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLButtonColor +'RTBGlitModDommePost ' -Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) -Me.LBLButtonColor.Name = "LBLButtonColor" -Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) -Me.LBLButtonColor.TabIndex = 4 -Me.LBLButtonColor.Text = "Button Color" -Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) +Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" +Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) +Me.RTBGlitModDommePost.TabIndex = 162 +Me.RTBGlitModDommePost.Text = "" ' -'LBLChatWindowColor +'Button26 ' -Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) -Me.LBLChatWindowColor.Name = "LBLChatWindowColor" -Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatWindowColor.TabIndex = 10 -Me.LBLChatWindowColor.Text = "Chat Window Color" -Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button26.Location = New System.Drawing.Point(194, 239) +Me.Button26.Name = "Button26" +Me.Button26.Size = New System.Drawing.Size(120, 23) +Me.Button26.TabIndex = 174 +Me.Button26.Text = "Clear Fields" +Me.Button26.UseVisualStyleBackColor = true +' +'Label56 +' +Me.Label56.Location = New System.Drawing.Point(350, 80) +Me.Label56.Name = "Label56" +Me.Label56.Size = New System.Drawing.Size(324, 23) +Me.Label56.TabIndex = 156 +Me.Label56.Text = "Responses (Minimum 3)" +Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLBackColor +'RTBGlitModResponses ' -Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) -Me.LBLBackColor.Name = "LBLBackColor" -Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) -Me.LBLBackColor.TabIndex = 0 -Me.LBLBackColor.Text = "Background Color" -Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) +Me.RTBGlitModResponses.Name = "RTBGlitModResponses" +Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) +Me.RTBGlitModResponses.TabIndex = 150 +Me.RTBGlitModResponses.Text = "" ' -'LBLChatTextColor2 +'LBGlitModScripts ' -Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor -Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) -Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatTextColor2.Name = "LBLChatTextColor2" -Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatTextColor2.TabIndex = 16 +Me.LBGlitModScripts.FormattingEnabled = true +Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) +Me.LBGlitModScripts.Name = "LBGlitModScripts" +Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) +Me.LBGlitModScripts.TabIndex = 163 ' -'LBLButtonColor2 +'LBLGlitModScriptCount ' -Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor -Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) -Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLButtonColor2.Name = "LBLButtonColor2" -Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLButtonColor2.TabIndex = 6 +Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) +Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" +Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) +Me.LBLGlitModScriptCount.TabIndex = 173 +Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" +Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox11 +'LBLGlitModDomType ' -Me.GroupBox11.BackColor = System.Drawing.Color.LightGray -Me.GroupBox11.Controls.Add(Me.Label144) -Me.GroupBox11.ForeColor = System.Drawing.Color.Black -Me.GroupBox11.Location = New System.Drawing.Point(7, 331) -Me.GroupBox11.Name = "GroupBox11" -Me.GroupBox11.Size = New System.Drawing.Size(692, 92) -Me.GroupBox11.TabIndex = 65 -Me.GroupBox11.TabStop = false -Me.GroupBox11.Text = "Description" +Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) +Me.LBLGlitModDomType.Name = "LBLGlitModDomType" +Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) +Me.LBLGlitModDomType.TabIndex = 155 +Me.LBLGlitModDomType.Text = "Total Brat" +Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label144 +'Button29 ' -Me.Label144.BackColor = System.Drawing.Color.Transparent -Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label144.ForeColor = System.Drawing.Color.Black -Me.Label144.Location = New System.Drawing.Point(6, 16) -Me.Label144.Name = "Label144" -Me.Label144.Size = New System.Drawing.Size(680, 73) -Me.Label144.TabIndex = 62 -Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ - "nd opened from txt files." -Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Button29.Location = New System.Drawing.Point(194, 268) +Me.Button29.Name = "Button29" +Me.Button29.Size = New System.Drawing.Size(120, 23) +Me.Button29.TabIndex = 151 +Me.Button29.Text = "Save Glitter File" +Me.Button29.UseVisualStyleBackColor = true ' -'GroupBox1 +'CBGlitModType ' -Me.GroupBox1.Controls.Add(Me.CBFlipBack) -Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) -Me.GroupBox1.Controls.Add(Me.Button17) -Me.GroupBox1.Controls.Add(Me.CBStretchBack) -Me.GroupBox1.Controls.Add(Me.Button18) -Me.GroupBox1.Location = New System.Drawing.Point(351, 30) -Me.GroupBox1.Name = "GroupBox1" -Me.GroupBox1.Size = New System.Drawing.Size(348, 195) -Me.GroupBox1.TabIndex = 57 -Me.GroupBox1.TabStop = false -Me.GroupBox1.Text = "Background" +Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBGlitModType.FormattingEnabled = true +Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) +Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) +Me.CBGlitModType.Name = "CBGlitModType" +Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) +Me.CBGlitModType.TabIndex = 171 ' -'CBFlipBack +'Label59 ' -Me.CBFlipBack.Enabled = false -Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) -Me.CBFlipBack.Name = "CBFlipBack" -Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) -Me.CBFlipBack.TabIndex = 4 -Me.CBFlipBack.Text = "Flip Background" -Me.CBFlipBack.UseVisualStyleBackColor = true +Me.Label59.Location = New System.Drawing.Point(33, 11) +Me.Label59.Name = "Label59" +Me.Label59.Size = New System.Drawing.Size(130, 23) +Me.Label59.TabIndex = 172 +Me.Label59.Text = "Glitter Post Type" +Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'PBBackgroundPreview +'Label50 ' -Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) -Me.PBBackgroundPreview.Name = "PBBackgroundPreview" -Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) -Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PBBackgroundPreview.TabIndex = 0 -Me.PBBackgroundPreview.TabStop = false +Me.Label50.Location = New System.Drawing.Point(191, 80) +Me.Label50.Name = "Label50" +Me.Label50.Size = New System.Drawing.Size(123, 23) +Me.Label50.TabIndex = 154 +Me.Label50.Text = "Current Domme Personality:" +Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Button17 +'TabPage25 ' -Me.Button17.BackColor = System.Drawing.Color.Transparent -Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load -Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button17.Location = New System.Drawing.Point(228, 36) -Me.Button17.Name = "Button17" -Me.Button17.Size = New System.Drawing.Size(103, 93) -Me.Button17.TabIndex = 1 -Me.Button17.UseVisualStyleBackColor = false +Me.TabPage25.BackColor = System.Drawing.Color.Silver +Me.TabPage25.Controls.Add(Me.Panel11) +Me.TabPage25.Location = New System.Drawing.Point(4, 22) +Me.TabPage25.Name = "TabPage25" +Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage25.Size = New System.Drawing.Size(720, 448) +Me.TabPage25.TabIndex = 18 +Me.TabPage25.Text = "Misc" ' -'CBStretchBack +'Panel11 ' -Me.CBStretchBack.Checked = true -Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) -Me.CBStretchBack.Name = "CBStretchBack" -Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) -Me.CBStretchBack.TabIndex = 2 -Me.CBStretchBack.Text = "Stretch Background" -Me.CBStretchBack.UseVisualStyleBackColor = true +Me.Panel11.BackColor = System.Drawing.Color.LightGray +Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel11.Controls.Add(Me.GroupBox8) +Me.Panel11.Controls.Add(Me.GroupBox62) +Me.Panel11.Controls.Add(Me.GroupBox33) +Me.Panel11.Controls.Add(Me.GroupBox27) +Me.Panel11.Controls.Add(Me.GroupBox20) +Me.Panel11.Controls.Add(Me.WebToy) +Me.Panel11.Controls.Add(Me.GroupBox15) +Me.Panel11.Controls.Add(Me.PictureBox9) +Me.Panel11.Controls.Add(Me.Label148) +Me.Panel11.Location = New System.Drawing.Point(6, 6) +Me.Panel11.Name = "Panel11" +Me.Panel11.Size = New System.Drawing.Size(708, 437) +Me.Panel11.TabIndex = 92 ' -'Button18 +'GroupBox62 ' -Me.Button18.Location = New System.Drawing.Point(228, 155) -Me.Button18.Name = "Button18" -Me.Button18.Size = New System.Drawing.Size(103, 31) -Me.Button18.TabIndex = 3 -Me.Button18.Text = "Clear" -Me.Button18.UseVisualStyleBackColor = true +Me.GroupBox62.Controls.Add(Me.RBGerman) +Me.GroupBox62.Controls.Add(Me.RBEnglish) +Me.GroupBox62.Location = New System.Drawing.Point(420, 374) +Me.GroupBox62.Name = "GroupBox62" +Me.GroupBox62.Size = New System.Drawing.Size(279, 53) +Me.GroupBox62.TabIndex = 178 +Me.GroupBox62.TabStop = false +Me.GroupBox62.Text = "Language" ' -'Label164 +'RBGerman ' -Me.Label164.BackColor = System.Drawing.Color.Transparent -Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label164.ForeColor = System.Drawing.Color.Black -Me.Label164.Location = New System.Drawing.Point(7, 6) -Me.Label164.Name = "Label164" -Me.Label164.Size = New System.Drawing.Size(692, 21) -Me.Label164.TabIndex = 49 -Me.Label164.Text = "Theme Settings" -Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.RBGerman.AutoSize = true +Me.RBGerman.Location = New System.Drawing.Point(180, 20) +Me.RBGerman.Name = "RBGerman" +Me.RBGerman.Size = New System.Drawing.Size(65, 17) +Me.RBGerman.TabIndex = 1 +Me.RBGerman.Text = "Deutsch" +Me.RBGerman.UseVisualStyleBackColor = true ' -'TabPage4 +'RBEnglish ' -Me.TabPage4.BackColor = System.Drawing.Color.Silver -Me.TabPage4.Controls.Add(Me.Panel6) -Me.TabPage4.Location = New System.Drawing.Point(4, 22) -Me.TabPage4.Name = "TabPage4" -Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage4.Size = New System.Drawing.Size(720, 448) -Me.TabPage4.TabIndex = 3 -Me.TabPage4.Text = "Ranges" +Me.RBEnglish.AutoSize = true +Me.RBEnglish.Checked = true +Me.RBEnglish.Location = New System.Drawing.Point(36, 19) +Me.RBEnglish.Name = "RBEnglish" +Me.RBEnglish.Size = New System.Drawing.Size(59, 17) +Me.RBEnglish.TabIndex = 0 +Me.RBEnglish.TabStop = true +Me.RBEnglish.Text = "English" +Me.RBEnglish.UseVisualStyleBackColor = true ' -'Panel6 +'GroupBox33 ' -Me.Panel6.BackColor = System.Drawing.Color.LightGray -Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel6.Controls.Add(Me.GroupBox69) -Me.Panel6.Controls.Add(Me.GroupBox68) -Me.Panel6.Controls.Add(Me.GroupBox67) -Me.Panel6.Controls.Add(Me.GroupBox10) -Me.Panel6.Controls.Add(Me.GroupBox57) -Me.Panel6.Controls.Add(Me.GBRangeRuinChance) -Me.Panel6.Controls.Add(Me.GroupBox17) -Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) -Me.Panel6.Controls.Add(Me.PictureBox8) -Me.Panel6.Controls.Add(Me.Label38) -Me.Panel6.Location = New System.Drawing.Point(6, 6) -Me.Panel6.Name = "Panel6" -Me.Panel6.Size = New System.Drawing.Size(708, 437) -Me.Panel6.TabIndex = 91 +Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) +Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) +Me.GroupBox33.Controls.Add(Me.Label140) +Me.GroupBox33.Controls.Add(Me.Button11) +Me.GroupBox33.Controls.Add(Me.LBLChastityState) +Me.GroupBox33.Controls.Add(Me.Label120) +Me.GroupBox33.Location = New System.Drawing.Point(420, 155) +Me.GroupBox33.Name = "GroupBox33" +Me.GroupBox33.Size = New System.Drawing.Size(279, 107) +Me.GroupBox33.TabIndex = 177 +Me.GroupBox33.TabStop = false +Me.GroupBox33.Text = "System States" ' -'GroupBox69 +'BTNOfflineMode ' -Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) -Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) -Me.GroupBox69.Controls.Add(Me.TimedWriting) -Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) -Me.GroupBox69.Location = New System.Drawing.Point(236, 344) -Me.GroupBox69.Name = "GroupBox69" -Me.GroupBox69.Size = New System.Drawing.Size(166, 83) -Me.GroupBox69.TabIndex = 173 -Me.GroupBox69.TabStop = false -Me.GroupBox69.Text = "Writing Tasks" +Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 62) +Me.BTNOfflineMode.Name = "BTNOfflineMode" +Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) +Me.BTNOfflineMode.TabIndex = 180 +Me.BTNOfflineMode.Text = "Toggle" +Me.BTNOfflineMode.UseVisualStyleBackColor = true ' -'TypesSpeedVal +'LBLOfflineMode ' -Me.TypesSpeedVal.AutoSize = true -Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) -Me.TypesSpeedVal.Name = "TypesSpeedVal" -Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) -Me.TypesSpeedVal.TabIndex = 0 -Me.TypesSpeedVal.Text = "10" -Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight +Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray +Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red +Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 62) +Me.LBLOfflineMode.Name = "LBLOfflineMode" +Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) +Me.LBLOfflineMode.TabIndex = 179 +Me.LBLOfflineMode.Text = "OFF" +Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TypeSpeedLabel +'Label140 ' -Me.TypeSpeedLabel.AutoSize = true -Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) -Me.TypeSpeedLabel.Name = "TypeSpeedLabel" -Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) -Me.TypeSpeedLabel.TabIndex = 2 -Me.TypeSpeedLabel.Text = "Typing Speed:" +Me.Label140.BackColor = System.Drawing.Color.LightGray +Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label140.Location = New System.Drawing.Point(17, 62) +Me.Label140.Name = "Label140" +Me.Label140.Size = New System.Drawing.Size(98, 23) +Me.Label140.TabIndex = 178 +Me.Label140.Text = "OFFLINE MODE" +Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TimedWriting +'Button11 ' -Me.TimedWriting.AutoSize = true -Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting -Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TimedWriting.Location = New System.Drawing.Point(9, 19) -Me.TimedWriting.Name = "TimedWriting" -Me.TimedWriting.Size = New System.Drawing.Size(123, 17) -Me.TimedWriting.TabIndex = 1 -Me.TimedWriting.Text = "Timed Writing Tasks" -Me.TimedWriting.UseVisualStyleBackColor = true +Me.Button11.Location = New System.Drawing.Point(161, 25) +Me.Button11.Name = "Button11" +Me.Button11.Size = New System.Drawing.Size(99, 23) +Me.Button11.TabIndex = 177 +Me.Button11.Text = "Toggle" +Me.Button11.UseVisualStyleBackColor = true ' -'TypeSpeedSlider +'LBLChastityState ' -Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) -Me.TypeSpeedSlider.Maximum = 100 -Me.TypeSpeedSlider.Minimum = 33 -Me.TypeSpeedSlider.Name = "TypeSpeedSlider" -Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) -Me.TypeSpeedSlider.TabIndex = 3 -Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed +Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray +Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLChastityState.ForeColor = System.Drawing.Color.Red +Me.LBLChastityState.Location = New System.Drawing.Point(120, 25) +Me.LBLChastityState.Name = "LBLChastityState" +Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) +Me.LBLChastityState.TabIndex = 3 +Me.LBLChastityState.Text = "OFF" +Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox68 +'Label120 ' -Me.GroupBox68.Controls.Add(Me.NBTasksMax) -Me.GroupBox68.Controls.Add(Me.NBTasksMin) -Me.GroupBox68.Controls.Add(Me.Label165) -Me.GroupBox68.Controls.Add(Me.Label166) -Me.GroupBox68.Location = New System.Drawing.Point(236, 287) -Me.GroupBox68.Name = "GroupBox68" -Me.GroupBox68.Size = New System.Drawing.Size(166, 51) -Me.GroupBox68.TabIndex = 172 -Me.GroupBox68.TabStop = false -Me.GroupBox68.Text = "Session Tasks" +Me.Label120.BackColor = System.Drawing.Color.LightGray +Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label120.Location = New System.Drawing.Point(17, 25) +Me.Label120.Name = "Label120" +Me.Label120.Size = New System.Drawing.Size(98, 23) +Me.Label120.TabIndex = 2 +Me.Label120.Text = "CHASTITY" +Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTasksMax +'GroupBox27 ' -Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) -Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) -Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTasksMax.Name = "NBTasksMax" -Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMax.TabIndex = 187 -Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) +Me.GroupBox27.Controls.Add(Me.Button6) +Me.GroupBox27.Controls.Add(Me.LBLSesSpace) +Me.GroupBox27.Controls.Add(Me.Button3) +Me.GroupBox27.Controls.Add(Me.LBLSesFiles) +Me.GroupBox27.Controls.Add(Me.Label125) +Me.GroupBox27.Controls.Add(Me.Label124) +Me.GroupBox27.Location = New System.Drawing.Point(420, 32) +Me.GroupBox27.Name = "GroupBox27" +Me.GroupBox27.Size = New System.Drawing.Size(279, 117) +Me.GroupBox27.TabIndex = 176 +Me.GroupBox27.TabStop = false +Me.GroupBox27.Text = "Session Images" ' -'NBTasksMin +'Button6 ' -Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) -Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBTasksMin.Name = "NBTasksMin" -Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMin.TabIndex = 186 -Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) +Me.Button6.Location = New System.Drawing.Point(143, 76) +Me.Button6.Name = "Button6" +Me.Button6.Size = New System.Drawing.Size(117, 23) +Me.Button6.TabIndex = 176 +Me.Button6.Text = "Delete All Files" +Me.Button6.UseVisualStyleBackColor = true ' -'Label165 +'LBLSesSpace ' -Me.Label165.BackColor = System.Drawing.Color.Transparent -Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label165.ForeColor = System.Drawing.Color.Black -Me.Label165.Location = New System.Drawing.Point(100, 20) -Me.Label165.Name = "Label165" -Me.Label165.Size = New System.Drawing.Size(10, 17) -Me.Label165.TabIndex = 185 -Me.Label165.Text = "-" -Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) +Me.LBLSesSpace.Name = "LBLSesSpace" +Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) +Me.LBLSesSpace.TabIndex = 3 ' -'Label166 +'Button3 ' -Me.Label166.BackColor = System.Drawing.Color.Transparent -Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label166.ForeColor = System.Drawing.Color.Black -Me.Label166.Location = New System.Drawing.Point(6, 21) -Me.Label166.Name = "Label166" -Me.Label166.Size = New System.Drawing.Size(49, 17) -Me.Label166.TabIndex = 188 -Me.Label166.Text = "Amount:" -Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button3.Location = New System.Drawing.Point(20, 76) +Me.Button3.Name = "Button3" +Me.Button3.Size = New System.Drawing.Size(117, 23) +Me.Button3.TabIndex = 175 +Me.Button3.Text = "Open Folder" +Me.Button3.UseVisualStyleBackColor = true ' -'GroupBox67 +'LBLSesFiles ' -Me.GroupBox67.Controls.Add(Me.Label161) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) -Me.GroupBox67.Controls.Add(Me.Label162) -Me.GroupBox67.Controls.Add(Me.Label163) -Me.GroupBox67.Controls.Add(Me.Label158) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) -Me.GroupBox67.Controls.Add(Me.Label159) -Me.GroupBox67.Controls.Add(Me.Label160) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) -Me.GroupBox67.Controls.Add(Me.Label119) -Me.GroupBox67.Controls.Add(Me.Label157) -Me.GroupBox67.Controls.Add(Me.Label151) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) -Me.GroupBox67.Controls.Add(Me.Label154) -Me.GroupBox67.Controls.Add(Me.Label155) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) -Me.GroupBox67.Controls.Add(Me.Label146) -Me.GroupBox67.Controls.Add(Me.Label149) -Me.GroupBox67.Location = New System.Drawing.Point(408, 288) -Me.GroupBox67.Name = "GroupBox67" -Me.GroupBox67.Size = New System.Drawing.Size(291, 139) -Me.GroupBox67.TabIndex = 171 -Me.GroupBox67.TabStop = false -Me.GroupBox67.Text = "Letter Tasks" +Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) +Me.LBLSesFiles.Name = "LBLSesFiles" +Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) +Me.LBLSesFiles.TabIndex = 2 ' -'Label161 +'Label125 ' -Me.Label161.BackColor = System.Drawing.Color.Transparent -Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label161.ForeColor = System.Drawing.Color.Black -Me.Label161.Location = New System.Drawing.Point(233, 110) -Me.Label161.Name = "Label161" -Me.Label161.Size = New System.Drawing.Size(50, 17) -Me.Label161.TabIndex = 204 -Me.Label161.Text = "minutes" -Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label125.AutoSize = true +Me.Label125.Location = New System.Drawing.Point(17, 53) +Me.Label125.Name = "Label125" +Me.Label125.Size = New System.Drawing.Size(120, 13) +Me.Label125.TabIndex = 1 +Me.Label125.Text = "Total Disk Space Used:" +' +'Label124 +' +Me.Label124.AutoSize = true +Me.Label124.Location = New System.Drawing.Point(17, 24) +Me.Label124.Name = "Label124" +Me.Label124.Size = New System.Drawing.Size(126, 13) +Me.Label124.TabIndex = 0 +Me.Label124.Text = "Number of Files in Folder:" +' +'GroupBox20 +' +Me.GroupBox20.Controls.Add(Me.Button1) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) +Me.GroupBox20.Controls.Add(Me.Label117) +Me.GroupBox20.Controls.Add(Me.Label116) +Me.GroupBox20.Controls.Add(Me.PBCurrent) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) +Me.GroupBox20.Controls.Add(Me.PBMaintenance) +Me.GroupBox20.Controls.Add(Me.LBLMaintenance) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) +Me.GroupBox20.Location = New System.Drawing.Point(6, 32) +Me.GroupBox20.Name = "GroupBox20" +Me.GroupBox20.Size = New System.Drawing.Size(408, 230) +Me.GroupBox20.TabIndex = 174 +Me.GroupBox20.TabStop = false +Me.GroupBox20.Text = "Maintenance" ' -'NBTaskCBTTimeMax +'Button1 ' -Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) -Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" -Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMax.TabIndex = 203 -Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax +Me.Button1.Enabled = false +Me.Button1.Location = New System.Drawing.Point(270, 19) +Me.Button1.Name = "Button1" +Me.Button1.Size = New System.Drawing.Size(121, 23) +Me.Button1.TabIndex = 176 +Me.Button1.Text = "Reset Settings" +Me.Button1.UseVisualStyleBackColor = true ' -'NBTaskCBTTimeMin +'BTNMaintenanceScripts ' -Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) -Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" -Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMin.TabIndex = 202 -Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin +Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) +Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" +Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceScripts.TabIndex = 175 +Me.BTNMaintenanceScripts.Text = "Audit Scripts" +Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true ' -'Label162 +'BTNMaintenanceRefresh ' -Me.Label162.BackColor = System.Drawing.Color.Transparent -Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label162.ForeColor = System.Drawing.Color.Black -Me.Label162.Location = New System.Drawing.Point(167, 110) -Me.Label162.Name = "Label162" -Me.Label162.Size = New System.Drawing.Size(10, 17) -Me.Label162.TabIndex = 201 -Me.Label162.Text = "-" -Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) +Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" +Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRefresh.TabIndex = 7 +Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" +Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true ' -'Label163 +'Label117 ' -Me.Label163.BackColor = System.Drawing.Color.Transparent -Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label163.ForeColor = System.Drawing.Color.Black -Me.Label163.Location = New System.Drawing.Point(12, 111) -Me.Label163.Name = "Label163" -Me.Label163.Size = New System.Drawing.Size(151, 17) -Me.Label163.TabIndex = 200 -Me.Label163.Text = "CBT Time:" -Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label117.AutoSize = true +Me.Label117.Location = New System.Drawing.Point(15, 182) +Me.Label117.Name = "Label117" +Me.Label117.Size = New System.Drawing.Size(84, 13) +Me.Label117.TabIndex = 6 +Me.Label117.Text = "Overall Progress" ' -'Label158 +'Label116 ' -Me.Label158.BackColor = System.Drawing.Color.Transparent -Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label158.ForeColor = System.Drawing.Color.Black -Me.Label158.Location = New System.Drawing.Point(233, 87) -Me.Label158.Name = "Label158" -Me.Label158.Size = New System.Drawing.Size(50, 17) -Me.Label158.TabIndex = 199 -Me.Label158.Text = "minutes" -Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label116.AutoSize = true +Me.Label116.Location = New System.Drawing.Point(15, 140) +Me.Label116.Name = "Label116" +Me.Label116.Size = New System.Drawing.Size(85, 13) +Me.Label116.TabIndex = 5 +Me.Label116.Text = "Current Progress" ' -'NBTaskEdgeHoldTimeMax +'PBCurrent ' -Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) -Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" -Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 -Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax +Me.PBCurrent.Location = New System.Drawing.Point(15, 156) +Me.PBCurrent.Name = "PBCurrent" +Me.PBCurrent.Size = New System.Drawing.Size(376, 23) +Me.PBCurrent.TabIndex = 4 ' -'NBTaskEdgeHoldTimeMin +'BTNMaintenanceCancel ' -Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) -Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" -Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 -Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin +Me.BTNMaintenanceCancel.Enabled = false +Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) +Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" +Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceCancel.TabIndex = 3 +Me.BTNMaintenanceCancel.Text = "Cancel" +Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true ' -'Label159 +'PBMaintenance ' -Me.Label159.BackColor = System.Drawing.Color.Transparent -Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label159.ForeColor = System.Drawing.Color.Black -Me.Label159.Location = New System.Drawing.Point(167, 87) -Me.Label159.Name = "Label159" -Me.Label159.Size = New System.Drawing.Size(10, 17) -Me.Label159.TabIndex = 196 -Me.Label159.Text = "-" -Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) +Me.PBMaintenance.Name = "PBMaintenance" +Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) +Me.PBMaintenance.TabIndex = 2 ' -'Label160 +'LBLMaintenance ' -Me.Label160.BackColor = System.Drawing.Color.Transparent -Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label160.ForeColor = System.Drawing.Color.Black -Me.Label160.Location = New System.Drawing.Point(12, 88) -Me.Label160.Name = "Label160" -Me.Label160.Size = New System.Drawing.Size(151, 17) -Me.Label160.TabIndex = 195 -Me.Label160.Text = "Edge Hold Time:" -Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) +Me.LBLMaintenance.Name = "LBLMaintenance" +Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) +Me.LBLMaintenance.TabIndex = 1 +Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTaskEdgesMax +'BTNMaintenanceRebuild ' -Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) -Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" -Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMax.TabIndex = 194 -Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax +Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) +Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" +Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRebuild.TabIndex = 0 +Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" +Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true ' -'NBTaskEdgesMin +'WebToy ' -Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) -Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" -Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMin.TabIndex = 193 -Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin +Me.WebToy.Location = New System.Drawing.Point(16, 379) +Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) +Me.WebToy.Name = "WebToy" +Me.WebToy.Size = New System.Drawing.Size(381, 36) +Me.WebToy.TabIndex = 172 ' -'Label119 +'GroupBox15 ' -Me.Label119.BackColor = System.Drawing.Color.Transparent -Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label119.ForeColor = System.Drawing.Color.Black -Me.Label119.Location = New System.Drawing.Point(167, 64) -Me.Label119.Name = "Label119" -Me.Label119.Size = New System.Drawing.Size(10, 17) -Me.Label119.TabIndex = 192 -Me.Label119.Text = "-" -Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox15.Controls.Add(Me.Label115) +Me.GroupBox15.Controls.Add(Me.TBWebStop) +Me.GroupBox15.Controls.Add(Me.TBWebStart) +Me.GroupBox15.Controls.Add(Me.Label114) +Me.GroupBox15.Location = New System.Drawing.Point(6, 268) +Me.GroupBox15.Name = "GroupBox15" +Me.GroupBox15.Size = New System.Drawing.Size(408, 159) +Me.GroupBox15.TabIndex = 173 +Me.GroupBox15.TabStop = false +Me.GroupBox15.Text = "Web-Controlled Sex Toy" ' -'Label157 +'Label115 ' -Me.Label157.BackColor = System.Drawing.Color.Transparent -Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label157.ForeColor = System.Drawing.Color.Black -Me.Label157.Location = New System.Drawing.Point(12, 65) -Me.Label157.Name = "Label157" -Me.Label157.Size = New System.Drawing.Size(151, 17) -Me.Label157.TabIndex = 191 -Me.Label157.Text = "Edges:" -Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label115.AutoSize = true +Me.Label115.Location = New System.Drawing.Point(12, 58) +Me.Label115.Name = "Label115" +Me.Label115.Size = New System.Drawing.Size(54, 13) +Me.Label115.TabIndex = 171 +Me.Label115.Text = "Stop URL" ' -'Label151 +'TBWebStop ' -Me.Label151.BackColor = System.Drawing.Color.Transparent -Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label151.ForeColor = System.Drawing.Color.Black -Me.Label151.Location = New System.Drawing.Point(233, 41) -Me.Label151.Name = "Label151" -Me.Label151.Size = New System.Drawing.Size(50, 17) -Me.Label151.TabIndex = 190 -Me.Label151.Text = "minutes" -Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TBWebStop.Location = New System.Drawing.Point(10, 72) +Me.TBWebStop.Name = "TBWebStop" +Me.TBWebStop.Size = New System.Drawing.Size(381, 20) +Me.TBWebStop.TabIndex = 170 ' -'NBTaskStrokingTimeMax +'TBWebStart ' -Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) -Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" -Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMax.TabIndex = 189 -Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax +Me.TBWebStart.Location = New System.Drawing.Point(10, 33) +Me.TBWebStart.Name = "TBWebStart" +Me.TBWebStart.Size = New System.Drawing.Size(381, 20) +Me.TBWebStart.TabIndex = 167 ' -'NBTaskStrokingTimeMin +'Label114 +' +Me.Label114.AutoSize = true +Me.Label114.Location = New System.Drawing.Point(12, 17) +Me.Label114.Name = "Label114" +Me.Label114.Size = New System.Drawing.Size(54, 13) +Me.Label114.TabIndex = 168 +Me.Label114.Text = "Start URL" +' +'PictureBox9 ' -Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) -Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" -Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMin.TabIndex = 188 -Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin +Me.PictureBox9.BackColor = System.Drawing.Color.LightGray +Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox9.Location = New System.Drawing.Point(9, 6) +Me.PictureBox9.Name = "PictureBox9" +Me.PictureBox9.Size = New System.Drawing.Size(160, 19) +Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox9.TabIndex = 166 +Me.PictureBox9.TabStop = false ' -'Label154 +'Label148 ' -Me.Label154.BackColor = System.Drawing.Color.Transparent -Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label154.ForeColor = System.Drawing.Color.Black -Me.Label154.Location = New System.Drawing.Point(167, 41) -Me.Label154.Name = "Label154" -Me.Label154.Size = New System.Drawing.Size(10, 17) -Me.Label154.TabIndex = 187 -Me.Label154.Text = "-" -Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label148.BackColor = System.Drawing.Color.Transparent +Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label148.ForeColor = System.Drawing.Color.Black +Me.Label148.Location = New System.Drawing.Point(7, 6) +Me.Label148.Name = "Label148" +Me.Label148.Size = New System.Drawing.Size(692, 21) +Me.Label148.TabIndex = 48 +Me.Label148.Text = "Miscellaneous Settings" +Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label155 +'TabPage28 ' -Me.Label155.BackColor = System.Drawing.Color.Transparent -Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label155.ForeColor = System.Drawing.Color.Black -Me.Label155.Location = New System.Drawing.Point(12, 42) -Me.Label155.Name = "Label155" -Me.Label155.Size = New System.Drawing.Size(151, 17) -Me.Label155.TabIndex = 186 -Me.Label155.Text = "Stroking Time:" -Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage28.BackColor = System.Drawing.Color.Silver +Me.TabPage28.Controls.Add(Me.TabControl3) +Me.TabPage28.Location = New System.Drawing.Point(4, 22) +Me.TabPage28.Name = "TabPage28" +Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage28.Size = New System.Drawing.Size(720, 448) +Me.TabPage28.TabIndex = 20 +Me.TabPage28.Text = "Debug" ' -'NBTaskStrokesMax +'TabControl3 ' -Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) -Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" -Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMax.TabIndex = 184 -Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax +Me.TabControl3.Controls.Add(Me.TabPage29) +Me.TabControl3.Controls.Add(Me.TabPage30) +Me.TabControl3.Location = New System.Drawing.Point(6, 6) +Me.TabControl3.Name = "TabControl3" +Me.TabControl3.SelectedIndex = 0 +Me.TabControl3.Size = New System.Drawing.Size(708, 437) +Me.TabControl3.TabIndex = 0 ' -'NBTaskStrokesMin +'TabPage29 ' -Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) -Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" -Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMin.TabIndex = 183 -Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin +Me.TabPage29.BackColor = System.Drawing.Color.LightGray +Me.TabPage29.Controls.Add(Me.Label143) +Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) +Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) +Me.TabPage29.Controls.Add(Me.GroupBox26) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) +Me.TabPage29.Controls.Add(Me.Label145) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) +Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) +Me.TabPage29.Controls.Add(Me.Label142) +Me.TabPage29.Controls.Add(Me.Label150) +Me.TabPage29.Controls.Add(Me.Label152) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) +Me.TabPage29.Controls.Add(Me.Label147) +Me.TabPage29.Location = New System.Drawing.Point(4, 22) +Me.TabPage29.Name = "TabPage29" +Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage29.Size = New System.Drawing.Size(700, 411) +Me.TabPage29.TabIndex = 0 +Me.TabPage29.Text = "TabPage29" ' -'Label146 +'Label143 ' -Me.Label146.BackColor = System.Drawing.Color.Transparent -Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label146.ForeColor = System.Drawing.Color.Black -Me.Label146.Location = New System.Drawing.Point(167, 18) -Me.Label146.Name = "Label146" -Me.Label146.Size = New System.Drawing.Size(10, 17) -Me.Label146.TabIndex = 182 -Me.Label146.Text = "-" -Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label143.Location = New System.Drawing.Point(402, 46) +Me.Label143.Name = "Label143" +Me.Label143.Size = New System.Drawing.Size(67, 23) +Me.Label143.TabIndex = 15 +Me.Label143.Text = "Script Timer" +Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label149 +'LBLDebugScriptTime ' -Me.Label149.BackColor = System.Drawing.Color.Transparent -Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label149.ForeColor = System.Drawing.Color.Black -Me.Label149.Location = New System.Drawing.Point(12, 19) -Me.Label149.Name = "Label149" -Me.Label149.Size = New System.Drawing.Size(151, 17) -Me.Label149.TabIndex = 181 -Me.Label149.Text = "Strokes:" -Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) +Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" +Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugScriptTime.TabIndex = 16 +Me.LBLDebugScriptTime.Text = "0" +Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox10 +'BTNDebugHoldEdgeTimer ' -Me.GroupBox10.Controls.Add(Me.Label112) -Me.GroupBox10.Controls.Add(Me.NBNextImageChance) -Me.GroupBox10.Controls.Add(Me.Label6) -Me.GroupBox10.Location = New System.Drawing.Point(408, 31) -Me.GroupBox10.Name = "GroupBox10" -Me.GroupBox10.Size = New System.Drawing.Size(291, 54) -Me.GroupBox10.TabIndex = 170 -Me.GroupBox10.TabStop = false -Me.GroupBox10.Text = "Tease Slideshow" +Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) +Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" +Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugHoldEdgeTimer.TabIndex = 14 +Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" +Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true ' -'Label112 +'GroupBox26 ' -Me.Label112.BackColor = System.Drawing.Color.Transparent -Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label112.ForeColor = System.Drawing.Color.Black -Me.Label112.Location = New System.Drawing.Point(233, 21) -Me.Label112.Name = "Label112" -Me.Label112.Size = New System.Drawing.Size(50, 17) -Me.Label112.TabIndex = 180 -Me.Label112.Text = "percent" -Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) +Me.GroupBox26.Controls.Add(Me.Button19) +Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) +Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) +Me.GroupBox26.Location = New System.Drawing.Point(6, 5) +Me.GroupBox26.Name = "GroupBox26" +Me.GroupBox26.Size = New System.Drawing.Size(346, 178) +Me.GroupBox26.TabIndex = 0 +Me.GroupBox26.TabStop = false +Me.GroupBox26.Text = "Taunt Cycle" ' -'NBNextImageChance +'LBLCycleDebugCountdown ' -Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) -Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBNextImageChance.Name = "NBNextImageChance" -Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) -Me.NBNextImageChance.TabIndex = 179 -Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) +Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" +Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) +Me.LBLCycleDebugCountdown.TabIndex = 10 +Me.LBLCycleDebugCountdown.Text = "0" +Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label6 +'Button19 ' -Me.Label6.BackColor = System.Drawing.Color.Transparent -Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label6.ForeColor = System.Drawing.Color.Black -Me.Label6.Location = New System.Drawing.Point(9, 21) -Me.Label6.Name = "Label6" -Me.Label6.Size = New System.Drawing.Size(151, 17) -Me.Label6.TabIndex = 154 -Me.Label6.Text = "Image Next/Previous Chance:" -Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button19.Location = New System.Drawing.Point(191, 142) +Me.Button19.Name = "Button19" +Me.Button19.Size = New System.Drawing.Size(146, 30) +Me.Button19.TabIndex = 9 +Me.Button19.Text = "Countdown to 5 Seconds" +Me.Button19.UseVisualStyleBackColor = true ' -'GroupBox57 +'BTNDebugTauntsClear ' -Me.GroupBox57.Controls.Add(Me.Label139) -Me.GroupBox57.Controls.Add(Me.NBTauntEdging) -Me.GroupBox57.Controls.Add(Me.LBLVtf) -Me.GroupBox57.Controls.Add(Me.LBLStf) -Me.GroupBox57.Controls.Add(Me.SliderSTF) -Me.GroupBox57.Controls.Add(Me.TauntSlider) -Me.GroupBox57.Controls.Add(Me.Label106) -Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) -Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) -Me.GroupBox57.Controls.Add(Me.Label103) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) -Me.GroupBox57.Controls.Add(Me.Label105) -Me.GroupBox57.Controls.Add(Me.Label101) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) -Me.GroupBox57.Controls.Add(Me.Label102) -Me.GroupBox57.Controls.Add(Me.Label97) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) -Me.GroupBox57.Controls.Add(Me.Label99) -Me.GroupBox57.Controls.Add(Me.Label96) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) -Me.GroupBox57.Controls.Add(Me.Label95) -Me.GroupBox57.Controls.Add(Me.Label49) -Me.GroupBox57.Controls.Add(Me.Label141) -Me.GroupBox57.Location = New System.Drawing.Point(7, 30) -Me.GroupBox57.Name = "GroupBox57" -Me.GroupBox57.Size = New System.Drawing.Size(223, 308) -Me.GroupBox57.TabIndex = 169 -Me.GroupBox57.TabStop = false -Me.GroupBox57.Text = "Tease" +Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) +Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" +Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) +Me.BTNDebugTauntsClear.TabIndex = 8 +Me.BTNDebugTauntsClear.Text = "Clear" +Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true ' -'Label139 +'TBDebugTaunts3 ' -Me.Label139.BackColor = System.Drawing.Color.Transparent -Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label139.ForeColor = System.Drawing.Color.Black -Me.Label139.Location = New System.Drawing.Point(175, 171) -Me.Label139.Name = "Label139" -Me.Label139.Size = New System.Drawing.Size(50, 17) -Me.Label139.TabIndex = 184 -Me.Label139.Text = "percent" -Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) +Me.TBDebugTaunts3.Name = "TBDebugTaunts3" +Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts3.TabIndex = 7 ' -'NBTauntEdging +'TBDebugTaunts2 ' -Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) -Me.NBTauntEdging.Name = "NBTauntEdging" -Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) -Me.NBTauntEdging.TabIndex = 188 -Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) +Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) +Me.TBDebugTaunts2.Name = "TBDebugTaunts2" +Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts2.TabIndex = 6 ' -'LBLVtf +'TBDebugTaunts1 ' -Me.LBLVtf.BackColor = System.Drawing.Color.Transparent -Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLVtf.ForeColor = System.Drawing.Color.Black -Me.LBLVtf.Location = New System.Drawing.Point(128, 261) -Me.LBLVtf.Name = "LBLVtf" -Me.LBLVtf.Size = New System.Drawing.Size(87, 17) -Me.LBLVtf.TabIndex = 187 -Me.LBLVtf.Text = "Normal" -Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) +Me.TBDebugTaunts1.Name = "TBDebugTaunts1" +Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts1.TabIndex = 5 ' -'LBLStf +'RBDebugTaunts3 ' -Me.LBLStf.BackColor = System.Drawing.Color.Transparent -Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLStf.ForeColor = System.Drawing.Color.Black -Me.LBLStf.Location = New System.Drawing.Point(130, 220) -Me.LBLStf.Name = "LBLStf" -Me.LBLStf.Size = New System.Drawing.Size(87, 17) -Me.LBLStf.TabIndex = 165 -Me.LBLStf.Text = "Normal" -Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.RBDebugTaunts3.AutoSize = true +Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) +Me.RBDebugTaunts3.Name = "RBDebugTaunts3" +Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts3.TabIndex = 4 +Me.RBDebugTaunts3.Text = "3 Lines" +Me.RBDebugTaunts3.UseVisualStyleBackColor = true ' -'SliderSTF +'RBDebugTaunts2 ' -Me.SliderSTF.AutoSize = false -Me.SliderSTF.LargeChange = 1 -Me.SliderSTF.Location = New System.Drawing.Point(130, 199) -Me.SliderSTF.Maximum = 5 -Me.SliderSTF.Minimum = 1 -Me.SliderSTF.Name = "SliderSTF" -Me.SliderSTF.Size = New System.Drawing.Size(87, 25) -Me.SliderSTF.TabIndex = 163 -Me.SliderSTF.Value = 3 +Me.RBDebugTaunts2.AutoSize = true +Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) +Me.RBDebugTaunts2.Name = "RBDebugTaunts2" +Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts2.TabIndex = 3 +Me.RBDebugTaunts2.Text = "2 Lines" +Me.RBDebugTaunts2.UseVisualStyleBackColor = true ' -'TauntSlider +'RBDebugTaunts1 ' -Me.TauntSlider.AutoSize = false -Me.TauntSlider.LargeChange = 1 -Me.TauntSlider.Location = New System.Drawing.Point(130, 240) -Me.TauntSlider.Maximum = 9 -Me.TauntSlider.Minimum = 1 -Me.TauntSlider.Name = "TauntSlider" -Me.TauntSlider.Size = New System.Drawing.Size(87, 25) -Me.TauntSlider.TabIndex = 161 -Me.TauntSlider.Value = 4 +Me.RBDebugTaunts1.AutoSize = true +Me.RBDebugTaunts1.Checked = true +Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) +Me.RBDebugTaunts1.Name = "RBDebugTaunts1" +Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) +Me.RBDebugTaunts1.TabIndex = 2 +Me.RBDebugTaunts1.TabStop = true +Me.RBDebugTaunts1.Text = "1 Line" +Me.RBDebugTaunts1.UseVisualStyleBackColor = true ' -'Label106 +'CBDebugTauntsEndless ' -Me.Label106.BackColor = System.Drawing.Color.Transparent -Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label106.ForeColor = System.Drawing.Color.Black -Me.Label106.Location = New System.Drawing.Point(6, 243) -Me.Label106.Name = "Label106" -Me.Label106.Size = New System.Drawing.Size(123, 17) -Me.Label106.TabIndex = 186 -Me.Label106.Text = "Video Taunt Frequency:" -Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBDebugTauntsEndless.AutoSize = true +Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) +Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" +Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) +Me.CBDebugTauntsEndless.TabIndex = 1 +Me.CBDebugTauntsEndless.Text = "Endless Cycle" +Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true ' -'CBTauntCycleDD +'CBDebugTaunts ' -Me.CBTauntCycleDD.AutoSize = true -Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black -Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) -Me.CBTauntCycleDD.Name = "CBTauntCycleDD" -Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) -Me.CBTauntCycleDD.TabIndex = 185 -Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" -Me.CBTauntCycleDD.UseVisualStyleBackColor = true +Me.CBDebugTaunts.AutoSize = true +Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) +Me.CBDebugTaunts.Name = "CBDebugTaunts" +Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) +Me.CBDebugTaunts.TabIndex = 0 +Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" +Me.CBDebugTaunts.UseVisualStyleBackColor = true ' -'CBTeaseLengthDD +'BTNDebugStrokeTauntTimer ' -Me.CBTeaseLengthDD.AutoSize = true -Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black -Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) -Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" -Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) -Me.CBTeaseLengthDD.TabIndex = 184 -Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" -Me.CBTeaseLengthDD.UseVisualStyleBackColor = true +Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) +Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" +Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTauntTimer.TabIndex = 8 +Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" +Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true ' -'Label103 +'LBLDebugHoldEdgeTime ' -Me.Label103.BackColor = System.Drawing.Color.Transparent -Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label103.ForeColor = System.Drawing.Color.Black -Me.Label103.Location = New System.Drawing.Point(175, 117) -Me.Label103.Name = "Label103" -Me.Label103.Size = New System.Drawing.Size(50, 17) -Me.Label103.TabIndex = 183 -Me.Label103.Text = "minutes" -Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) +Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" +Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugHoldEdgeTime.TabIndex = 13 +Me.LBLDebugHoldEdgeTime.Text = "0" +Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTauntCycleMax +'Label145 ' -Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) -Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) -Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBTauntCycleMax.Name = "NBTauntCycleMax" -Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMax.TabIndex = 182 -Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) +Me.Label145.Location = New System.Drawing.Point(402, 11) +Me.Label145.Name = "Label145" +Me.Label145.Size = New System.Drawing.Size(67, 23) +Me.Label145.TabIndex = 3 +Me.Label145.Text = "Tease Timer" +Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label105 +'BTNDebugStrokeTime ' -Me.Label105.BackColor = System.Drawing.Color.Transparent -Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label105.ForeColor = System.Drawing.Color.Black -Me.Label105.Location = New System.Drawing.Point(6, 117) -Me.Label105.Name = "Label105" -Me.Label105.Size = New System.Drawing.Size(123, 17) -Me.Label105.TabIndex = 181 -Me.Label105.Text = "Taunt Cycle Maximum:" -Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) +Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" +Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTime.TabIndex = 2 +Me.BTNDebugStrokeTime.Text = "Set to 5" +Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true ' -'Label101 +'BTNDebugEdgeTauntTimer ' -Me.Label101.BackColor = System.Drawing.Color.Transparent -Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label101.ForeColor = System.Drawing.Color.Black -Me.Label101.Location = New System.Drawing.Point(175, 93) -Me.Label101.Name = "Label101" -Me.Label101.Size = New System.Drawing.Size(50, 17) -Me.Label101.TabIndex = 180 -Me.Label101.Text = "minutes" -Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) +Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" +Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugEdgeTauntTimer.TabIndex = 11 +Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" +Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true +' +'LBLDebugTeaseTime +' +Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) +Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" +Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugTeaseTime.TabIndex = 4 +Me.LBLDebugTeaseTime.Text = "0" +Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugStrokeTime +' +Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) +Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" +Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTime.TabIndex = 1 +Me.LBLDebugStrokeTime.Text = "0" +Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugEdgeTauntTime +' +Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) +Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" +Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugEdgeTauntTime.TabIndex = 10 +Me.LBLDebugEdgeTauntTime.Text = "0" +Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDebugTeaseTimer +' +Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) +Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" +Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugTeaseTimer.TabIndex = 5 +Me.BTNDebugTeaseTimer.Text = "Set to 5" +Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true ' -'NBTauntCycleMin +'Label142 ' -Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) -Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTauntCycleMin.Name = "NBTauntCycleMin" -Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMin.TabIndex = 179 -Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) +Me.Label142.Location = New System.Drawing.Point(402, 121) +Me.Label142.Name = "Label142" +Me.Label142.Size = New System.Drawing.Size(67, 23) +Me.Label142.TabIndex = 0 +Me.Label142.Text = "Stroke Timer" +Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label102 +'Label150 ' -Me.Label102.BackColor = System.Drawing.Color.Transparent -Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label102.ForeColor = System.Drawing.Color.Black -Me.Label102.Location = New System.Drawing.Point(6, 93) -Me.Label102.Name = "Label102" -Me.Label102.Size = New System.Drawing.Size(123, 17) -Me.Label102.TabIndex = 178 -Me.Label102.Text = "Taunt Cycle Minimum:" -Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label150.Location = New System.Drawing.Point(402, 206) +Me.Label150.Name = "Label150" +Me.Label150.Size = New System.Drawing.Size(67, 27) +Me.Label150.TabIndex = 9 +Me.Label150.Text = "Edge Taunt Timer" +Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label97 +'Label152 ' -Me.Label97.BackColor = System.Drawing.Color.Transparent -Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label97.ForeColor = System.Drawing.Color.Black -Me.Label97.Location = New System.Drawing.Point(175, 46) -Me.Label97.Name = "Label97" -Me.Label97.Size = New System.Drawing.Size(50, 17) -Me.Label97.TabIndex = 177 -Me.Label97.Text = "minutes" -Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label152.Location = New System.Drawing.Point(402, 238) +Me.Label152.Name = "Label152" +Me.Label152.Size = New System.Drawing.Size(67, 40) +Me.Label152.TabIndex = 12 +Me.Label152.Text = "Hold Edge Timer" +Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTeaseLengthMax +'LBLDebugStrokeTauntTime ' -Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) -Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) -Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" -Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMax.TabIndex = 176 -Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) +Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" +Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTauntTime.TabIndex = 7 +Me.LBLDebugStrokeTauntTime.Text = "0" +Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label99 +'Label147 ' -Me.Label99.BackColor = System.Drawing.Color.Transparent -Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label99.ForeColor = System.Drawing.Color.Black -Me.Label99.Location = New System.Drawing.Point(6, 46) -Me.Label99.Name = "Label99" -Me.Label99.Size = New System.Drawing.Size(123, 17) -Me.Label99.TabIndex = 175 -Me.Label99.Text = "Tease Length Maximum:" -Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label147.Location = New System.Drawing.Point(402, 143) +Me.Label147.Name = "Label147" +Me.Label147.Size = New System.Drawing.Size(67, 29) +Me.Label147.TabIndex = 6 +Me.Label147.Text = "Stroke Taunt Timer" +Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label96 +'TabPage30 ' -Me.Label96.BackColor = System.Drawing.Color.Transparent -Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label96.ForeColor = System.Drawing.Color.Black -Me.Label96.Location = New System.Drawing.Point(175, 20) -Me.Label96.Name = "Label96" -Me.Label96.Size = New System.Drawing.Size(50, 17) -Me.Label96.TabIndex = 174 -Me.Label96.Text = "minutes" -Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage30.BackColor = System.Drawing.Color.LightGray +Me.TabPage30.Controls.Add(Me.Button33) +Me.TabPage30.Controls.Add(Me.Button24) +Me.TabPage30.Location = New System.Drawing.Point(4, 22) +Me.TabPage30.Name = "TabPage30" +Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage30.Size = New System.Drawing.Size(700, 411) +Me.TabPage30.TabIndex = 1 +Me.TabPage30.Text = "TabPage30" ' -'NBTeaseLengthMin +'Button33 ' -Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) -Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) -Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" -Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMin.TabIndex = 169 -Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) +Me.Button33.Location = New System.Drawing.Point(6, 35) +Me.Button33.Name = "Button33" +Me.Button33.Size = New System.Drawing.Size(75, 23) +Me.Button33.TabIndex = 1 +Me.Button33.Text = "LoadState" +Me.Button33.UseVisualStyleBackColor = true ' -'Label95 +'Button24 ' -Me.Label95.BackColor = System.Drawing.Color.Transparent -Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label95.ForeColor = System.Drawing.Color.Black -Me.Label95.Location = New System.Drawing.Point(6, 20) -Me.Label95.Name = "Label95" -Me.Label95.Size = New System.Drawing.Size(123, 17) -Me.Label95.TabIndex = 166 -Me.Label95.Text = "Tease Length Minimum:" -Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button24.Location = New System.Drawing.Point(6, 6) +Me.Button24.Name = "Button24" +Me.Button24.Size = New System.Drawing.Size(75, 23) +Me.Button24.TabIndex = 0 +Me.Button24.Text = "SaveState" +Me.Button24.UseVisualStyleBackColor = true ' -'Label49 +'TabPage5 ' -Me.Label49.BackColor = System.Drawing.Color.Transparent -Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label49.ForeColor = System.Drawing.Color.Black -Me.Label49.Location = New System.Drawing.Point(6, 207) -Me.Label49.Name = "Label49" -Me.Label49.Size = New System.Drawing.Size(132, 17) -Me.Label49.TabIndex = 164 -Me.Label49.Text = "Stroke Taunt Frequency:" -Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage5.BackColor = System.Drawing.Color.Silver +Me.TabPage5.Controls.Add(Me.Panel5) +Me.TabPage5.Location = New System.Drawing.Point(4, 22) +Me.TabPage5.Name = "TabPage5" +Me.TabPage5.Size = New System.Drawing.Size(720, 448) +Me.TabPage5.TabIndex = 17 +Me.TabPage5.Text = "About" ' -'Label141 +'Panel5 ' -Me.Label141.BackColor = System.Drawing.Color.Transparent -Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label141.ForeColor = System.Drawing.Color.Black -Me.Label141.Location = New System.Drawing.Point(6, 163) -Me.Label141.Name = "Label141" -Me.Label141.Size = New System.Drawing.Size(141, 32) -Me.Label141.TabIndex = 189 -Me.Label141.Text = "Edging Ends Taunts:" -Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Panel5.BackColor = System.Drawing.Color.LightGray +Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel5.Controls.Add(Me.Label130) +Me.Panel5.Controls.Add(Me.Label123) +Me.Panel5.Controls.Add(Me.Label69) +Me.Panel5.Controls.Add(Me.Label113) +Me.Panel5.Controls.Add(Me.Label40) +Me.Panel5.Controls.Add(Me.Label35) +Me.Panel5.Controls.Add(Me.Label33) +Me.Panel5.Controls.Add(Me.Label17) +Me.Panel5.Controls.Add(Me.Label3) +Me.Panel5.Controls.Add(Me.PictureBox3) +Me.Panel5.Controls.Add(Me.Label41) +Me.Panel5.Location = New System.Drawing.Point(6, 6) +Me.Panel5.Name = "Panel5" +Me.Panel5.Size = New System.Drawing.Size(708, 437) +Me.Panel5.TabIndex = 92 ' -'GBRangeRuinChance +'Label130 ' -Me.GBRangeRuinChance.Controls.Add(Me.Label90) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) -Me.GBRangeRuinChance.Controls.Add(Me.Label91) -Me.GBRangeRuinChance.Controls.Add(Me.Label92) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) -Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) -Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) -Me.GBRangeRuinChance.Name = "GBRangeRuinChance" -Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeRuinChance.TabIndex = 168 -Me.GBRangeRuinChance.TabStop = false -Me.GBRangeRuinChance.Text = "Ruin Chance" +Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label130.Location = New System.Drawing.Point(361, 314) +Me.Label130.Name = "Label130" +Me.Label130.Size = New System.Drawing.Size(254, 54) +Me.Label130.TabIndex = 176 +Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'Label90 +'Label123 ' -Me.Label90.BackColor = System.Drawing.Color.Transparent -Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label90.ForeColor = System.Drawing.Color.Black -Me.Label90.Location = New System.Drawing.Point(6, 94) -Me.Label90.Name = "Label90" -Me.Label90.Size = New System.Drawing.Size(83, 17) -Me.Label90.TabIndex = 173 -Me.Label90.Text = "Rarely Ruins:" -Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label123.Location = New System.Drawing.Point(81, 314) +Me.Label123.Name = "Label123" +Me.Label123.Size = New System.Drawing.Size(254, 54) +Me.Label123.TabIndex = 175 +Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" +Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'NBRuinSometimes +'Label69 ' -Me.NBRuinSometimes.Enabled = false -Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinSometimes.Name = "NBRuinSometimes" -Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBRuinSometimes.TabIndex = 169 -Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label69.Location = New System.Drawing.Point(35, 295) +Me.Label69.Name = "Label69" +Me.Label69.Size = New System.Drawing.Size(638, 22) +Me.Label69.TabIndex = 174 +Me.Label69.Text = "Triple Alfa" +Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'Label91 +'Label113 ' -Me.Label91.BackColor = System.Drawing.Color.Transparent -Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label91.ForeColor = System.Drawing.Color.Black -Me.Label91.Location = New System.Drawing.Point(6, 68) -Me.Label91.Name = "Label91" -Me.Label91.Size = New System.Drawing.Size(102, 17) -Me.Label91.TabIndex = 172 -Me.Label91.Text = "Sometimes Ruins:" -Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label113.AutoSize = true +Me.Label113.Location = New System.Drawing.Point(4, 417) +Me.Label113.Name = "Label113" +Me.Label113.Size = New System.Drawing.Size(452, 13) +Me.Label113.TabIndex = 173 +Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ + "pective owners." ' -'Label92 +'Label40 ' -Me.Label92.BackColor = System.Drawing.Color.Transparent -Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label92.ForeColor = System.Drawing.Color.Black -Me.Label92.Location = New System.Drawing.Point(6, 42) -Me.Label92.Name = "Label92" -Me.Label92.Size = New System.Drawing.Size(72, 17) -Me.Label92.TabIndex = 171 -Me.Label92.Text = "Often Ruins:" -Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label40.Location = New System.Drawing.Point(35, 273) +Me.Label40.Name = "Label40" +Me.Label40.Size = New System.Drawing.Size(638, 24) +Me.Label40.TabIndex = 171 +Me.Label40.Text = "Special Thanks" +Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'NBRuinRarely +'Label35 ' -Me.NBRuinRarely.Enabled = false -Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) -Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinRarely.Name = "NBRuinRarely" -Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) -Me.NBRuinRarely.TabIndex = 170 -Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label35.Location = New System.Drawing.Point(32, 107) +Me.Label35.Name = "Label35" +Me.Label35.Size = New System.Drawing.Size(641, 77) +Me.Label35.TabIndex = 170 +Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ + "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ + "dditional files separately." +Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'NBRuinOften +'Label33 ' -Me.NBRuinOften.Enabled = false -Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) -Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinOften.Name = "NBRuinOften" -Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) -Me.NBRuinOften.TabIndex = 168 -Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label33.Location = New System.Drawing.Point(32, 191) +Me.Label33.Name = "Label33" +Me.Label33.Size = New System.Drawing.Size(641, 77) +Me.Label33.TabIndex = 169 +Me.Label33.Text = resources.GetString("Label33.Text") +Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'CBRangeRuin +'Label17 ' -Me.CBRangeRuin.AutoSize = true -Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black -Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) -Me.CBRangeRuin.Name = "CBRangeRuin" -Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) -Me.CBRangeRuin.TabIndex = 159 -Me.CBRangeRuin.Text = "Domme Decide" -Me.CBRangeRuin.UseVisualStyleBackColor = true +Me.Label17.AutoSize = true +Me.Label17.Location = New System.Drawing.Point(522, 78) +Me.Label17.Name = "Label17" +Me.Label17.Size = New System.Drawing.Size(93, 13) +Me.Label17.TabIndex = 168 +Me.Label17.Text = "Designed by 1885" ' -'GroupBox17 +'Label3 ' -Me.GroupBox17.Controls.Add(Me.GroupBox19) -Me.GroupBox17.Controls.Add(Me.GroupBox18) -Me.GroupBox17.Location = New System.Drawing.Point(408, 91) -Me.GroupBox17.Name = "GroupBox17" -Me.GroupBox17.Size = New System.Drawing.Size(291, 190) -Me.GroupBox17.TabIndex = 0 -Me.GroupBox17.TabStop = false -Me.GroupBox17.Text = "Video Teases" +Me.Label3.AutoSize = true +Me.Label3.Location = New System.Drawing.Point(489, 417) +Me.Label3.Name = "Label3" +Me.Label3.Size = New System.Drawing.Size(215, 13) +Me.Label3.TabIndex = 167 +Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" ' -'GroupBox19 +'PictureBox3 ' -Me.GroupBox19.Controls.Add(Me.Label110) -Me.GroupBox19.Controls.Add(Me.Label111) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) -Me.GroupBox19.Controls.Add(Me.NBRedLightMax) -Me.GroupBox19.Controls.Add(Me.Label26) -Me.GroupBox19.Controls.Add(Me.NBRedLightMin) -Me.GroupBox19.Controls.Add(Me.Label28) -Me.GroupBox19.Controls.Add(Me.Label27) -Me.GroupBox19.Controls.Add(Me.Label29) -Me.GroupBox19.Location = New System.Drawing.Point(6, 110) -Me.GroupBox19.Name = "GroupBox19" -Me.GroupBox19.Size = New System.Drawing.Size(279, 66) -Me.GroupBox19.TabIndex = 2 -Me.GroupBox19.TabStop = false -Me.GroupBox19.Text = "Red Light, Green Light" +Me.PictureBox3.BackColor = System.Drawing.Color.LightGray +Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big +Me.PictureBox3.Location = New System.Drawing.Point(84, 17) +Me.PictureBox3.Name = "PictureBox3" +Me.PictureBox3.Size = New System.Drawing.Size(531, 58) +Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PictureBox3.TabIndex = 166 +Me.PictureBox3.TabStop = false ' -'Label110 +'Label41 ' -Me.Label110.BackColor = System.Drawing.Color.Transparent -Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label110.ForeColor = System.Drawing.Color.Black -Me.Label110.Location = New System.Drawing.Point(227, 39) -Me.Label110.Name = "Label110" -Me.Label110.Size = New System.Drawing.Size(50, 17) -Me.Label110.TabIndex = 181 -Me.Label110.Text = "seconds" -Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label41.Location = New System.Drawing.Point(35, 372) +Me.Label41.Name = "Label41" +Me.Label41.Size = New System.Drawing.Size(638, 39) +Me.Label41.TabIndex = 172 +Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ + "nity who's been supportive of my work over the years. Tease AI exists because of"& _ + " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'Label111 +'BtnRandomImageDirClear ' -Me.Label111.BackColor = System.Drawing.Color.Transparent -Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label111.ForeColor = System.Drawing.Color.Black -Me.Label111.Location = New System.Drawing.Point(227, 16) -Me.Label111.Name = "Label111" -Me.Label111.Size = New System.Drawing.Size(50, 17) -Me.Label111.TabIndex = 180 -Me.Label111.Text = "seconds" -Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) +Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" +Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnRandomImageDirClear.TabIndex = 181 +Me.BtnRandomImageDirClear.Text = "Clear" +Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false ' -'NBGreenLightMax +'GroupBox47 ' -Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) -Me.NBGreenLightMax.Name = "NBGreenLightMax" -Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMax.TabIndex = 156 -Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.GroupBox47.BackColor = System.Drawing.Color.LightGray +Me.GroupBox47.Controls.Add(Me.GroupBox41) +Me.GroupBox47.Controls.Add(Me.GroupBox40) +Me.GroupBox47.ForeColor = System.Drawing.Color.Black +Me.GroupBox47.Location = New System.Drawing.Point(806, 255) +Me.GroupBox47.Name = "GroupBox47" +Me.GroupBox47.Size = New System.Drawing.Size(310, 190) +Me.GroupBox47.TabIndex = 63 +Me.GroupBox47.TabStop = false +Me.GroupBox47.Text = "Boobs and Butts Paths" ' -'NBGreenLightMin +'GroupBox41 ' -Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) -Me.NBGreenLightMin.Name = "NBGreenLightMin" -Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMin.TabIndex = 155 -Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +Me.GroupBox41.Controls.Add(Me.Button34) +Me.GroupBox41.Location = New System.Drawing.Point(6, 110) +Me.GroupBox41.Name = "GroupBox41" +Me.GroupBox41.Size = New System.Drawing.Size(298, 74) +Me.GroupBox41.TabIndex = 153 +Me.GroupBox41.TabStop = false +Me.GroupBox41.Text = "Butts" ' -'NBRedLightMax +'Button34 ' -Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) -Me.NBRedLightMax.Name = "NBRedLightMax" -Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMax.TabIndex = 152 -Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) +Me.Button34.BackColor = System.Drawing.Color.LightGray +Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.Button34.ForeColor = System.Drawing.Color.Black +Me.Button34.Location = New System.Drawing.Point(85, 25) +Me.Button34.Name = "Button34" +Me.Button34.Size = New System.Drawing.Size(34, 28) +Me.Button34.TabIndex = 131 +Me.Button34.Text = "1" +Me.Button34.UseVisualStyleBackColor = false ' -'Label26 +'GroupBox40 ' -Me.Label26.BackColor = System.Drawing.Color.Transparent -Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label26.ForeColor = System.Drawing.Color.Black -Me.Label26.Location = New System.Drawing.Point(161, 38) -Me.Label26.Name = "Label26" -Me.Label26.Size = New System.Drawing.Size(10, 17) -Me.Label26.TabIndex = 154 -Me.Label26.Text = "-" -Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox40.Location = New System.Drawing.Point(5, 35) +Me.GroupBox40.Name = "GroupBox40" +Me.GroupBox40.Size = New System.Drawing.Size(298, 74) +Me.GroupBox40.TabIndex = 152 +Me.GroupBox40.TabStop = false +Me.GroupBox40.Text = "Boobs" ' -'NBRedLightMin +'GroupBox44 ' -Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) -Me.NBRedLightMin.Name = "NBRedLightMin" -Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMin.TabIndex = 151 -Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) +Me.GroupBox44.BackColor = System.Drawing.Color.LightGray +Me.GroupBox44.Controls.Add(Me.Label100) +Me.GroupBox44.ForeColor = System.Drawing.Color.Black +Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) +Me.GroupBox44.Name = "GroupBox44" +Me.GroupBox44.Size = New System.Drawing.Size(310, 92) +Me.GroupBox44.TabIndex = 65 +Me.GroupBox44.TabStop = false +Me.GroupBox44.Text = "Description" ' -'Label28 +'Label100 ' -Me.Label28.BackColor = System.Drawing.Color.Transparent -Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label28.ForeColor = System.Drawing.Color.Black -Me.Label28.Location = New System.Drawing.Point(161, 15) -Me.Label28.Name = "Label28" -Me.Label28.Size = New System.Drawing.Size(10, 17) -Me.Label28.TabIndex = 150 -Me.Label28.Text = "-" -Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label100.BackColor = System.Drawing.Color.Transparent +Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label100.ForeColor = System.Drawing.Color.Black +Me.Label100.Location = New System.Drawing.Point(11, 16) +Me.Label100.Name = "Label100" +Me.Label100.Size = New System.Drawing.Size(286, 73) +Me.Label100.TabIndex = 62 +Me.Label100.Text = resources.GetString("Label100.Text") +Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label27 +'GroupBox6 ' -Me.Label27.BackColor = System.Drawing.Color.Transparent -Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label27.ForeColor = System.Drawing.Color.Black -Me.Label27.Location = New System.Drawing.Point(6, 39) -Me.Label27.Name = "Label27" -Me.Label27.Size = New System.Drawing.Size(151, 17) -Me.Label27.TabIndex = 153 -Me.Label27.Text = "Green Light Time:" -Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox6.Controls.Add(Me.Label4) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) +Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) +Me.GroupBox6.Controls.Add(Me.Label94) +Me.GroupBox6.Controls.Add(Me.LBLLastRuined) +Me.GroupBox6.Controls.Add(Me.Label65) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) +Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) +Me.GroupBox6.Controls.Add(Me.Label14) +Me.GroupBox6.Controls.Add(Me.Label13) +Me.GroupBox6.Controls.Add(Me.Label1) +Me.GroupBox6.Location = New System.Drawing.Point(27, 114) +Me.GroupBox6.Name = "GroupBox6" +Me.GroupBox6.Size = New System.Drawing.Size(283, 102) +Me.GroupBox6.TabIndex = 156 +Me.GroupBox6.TabStop = false +Me.GroupBox6.Text = "Performance" ' -'Label29 +'Label4 ' -Me.Label29.BackColor = System.Drawing.Color.Transparent -Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label29.ForeColor = System.Drawing.Color.Black -Me.Label29.Location = New System.Drawing.Point(6, 16) -Me.Label29.Name = "Label29" -Me.Label29.Size = New System.Drawing.Size(151, 17) -Me.Label29.TabIndex = 149 -Me.Label29.Text = "Red Light Time:" -Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label4.Location = New System.Drawing.Point(26, 16) +Me.Label4.Name = "Label4" +Me.Label4.Size = New System.Drawing.Size(77, 17) +Me.Label4.TabIndex = 147 +Me.Label4.Text = "Stroking Time" +Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox18 +'LBLAvgEdgeStroking ' -Me.GroupBox18.Controls.Add(Me.Label108) -Me.GroupBox18.Controls.Add(Me.Label109) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) -Me.GroupBox18.Controls.Add(Me.CBCensorConstant) -Me.GroupBox18.Controls.Add(Me.Label25) -Me.GroupBox18.Controls.Add(Me.Label20) -Me.GroupBox18.Controls.Add(Me.Label19) -Me.GroupBox18.Controls.Add(Me.Label24) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) -Me.GroupBox18.Location = New System.Drawing.Point(6, 16) -Me.GroupBox18.Name = "GroupBox18" -Me.GroupBox18.Size = New System.Drawing.Size(279, 88) -Me.GroupBox18.TabIndex = 1 -Me.GroupBox18.TabStop = false -Me.GroupBox18.Text = "Censorship Sucks" +Me.LBLAvgEdgeStroking.AutoSize = true +Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) +Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" +Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeStroking.TabIndex = 144 +Me.LBLAvgEdgeStroking.Text = "00:00" +Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label108 +'LBLStrokeTimeTotal ' -Me.Label108.BackColor = System.Drawing.Color.Transparent -Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label108.ForeColor = System.Drawing.Color.Black -Me.Label108.Location = New System.Drawing.Point(227, 39) -Me.Label108.Name = "Label108" -Me.Label108.Size = New System.Drawing.Size(50, 17) -Me.Label108.TabIndex = 179 -Me.Label108.Text = "seconds" -Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) +Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" +Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) +Me.LBLStrokeTimeTotal.TabIndex = 148 +Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" +Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label109 +'Label94 ' -Me.Label109.BackColor = System.Drawing.Color.Transparent -Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label109.ForeColor = System.Drawing.Color.Black -Me.Label109.Location = New System.Drawing.Point(227, 16) -Me.Label109.Name = "Label109" -Me.Label109.Size = New System.Drawing.Size(50, 17) -Me.Label109.TabIndex = 178 -Me.Label109.Text = "seconds" -Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label94.BackColor = System.Drawing.Color.Transparent +Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label94.ForeColor = System.Drawing.Color.Black +Me.Label94.Location = New System.Drawing.Point(189, 16) +Me.Label94.Name = "Label94" +Me.Label94.Size = New System.Drawing.Size(65, 17) +Me.Label94.TabIndex = 150 +Me.Label94.Text = "Last Ruined" +Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBCensorShowMin +'LBLLastRuined ' -Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) -Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMin.Name = "NBCensorShowMin" -Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMin.TabIndex = 151 -Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin +Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) +Me.LBLLastRuined.Name = "LBLLastRuined" +Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) +Me.LBLLastRuined.TabIndex = 152 +Me.LBLLastRuined.Text = "04/28/2015" +Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBCensorHideMax +'Label65 ' -Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) -Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMax.Name = "NBCensorHideMax" -Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMax.TabIndex = 156 -Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax +Me.Label65.BackColor = System.Drawing.Color.Transparent +Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label65.ForeColor = System.Drawing.Color.Black +Me.Label65.Location = New System.Drawing.Point(103, 16) +Me.Label65.Name = "Label65" +Me.Label65.Size = New System.Drawing.Size(85, 17) +Me.Label65.TabIndex = 149 +Me.Label65.Text = "Last Orgasm" +Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBCensorHideMin +'LBLAvgEdgeNoTouch ' -Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) -Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMin.Name = "NBCensorHideMin" -Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMin.TabIndex = 155 -Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin +Me.LBLAvgEdgeNoTouch.AutoSize = true +Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) +Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" +Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeNoTouch.TabIndex = 146 +Me.LBLAvgEdgeNoTouch.Text = "00:00" +Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBCensorConstant +'LBLLastOrgasm ' -Me.CBCensorConstant.AutoSize = true -Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant -Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black -Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) -Me.CBCensorConstant.Name = "CBCensorConstant" -Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) -Me.CBCensorConstant.TabIndex = 157 -Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" -Me.CBCensorConstant.UseVisualStyleBackColor = true +Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) +Me.LBLLastOrgasm.Name = "LBLLastOrgasm" +Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) +Me.LBLLastOrgasm.TabIndex = 151 +Me.LBLLastOrgasm.Text = "04/28/2015" +Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label25 +'Label14 ' -Me.Label25.BackColor = System.Drawing.Color.Transparent -Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label25.ForeColor = System.Drawing.Color.Black -Me.Label25.Location = New System.Drawing.Point(161, 15) -Me.Label25.Name = "Label25" -Me.Label25.Size = New System.Drawing.Size(10, 17) -Me.Label25.TabIndex = 150 -Me.Label25.Text = "-" -Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label14.BackColor = System.Drawing.Color.Transparent +Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label14.ForeColor = System.Drawing.Color.Black +Me.Label14.Location = New System.Drawing.Point(25, 48) +Me.Label14.Name = "Label14" +Me.Label14.Size = New System.Drawing.Size(238, 17) +Me.Label14.TabIndex = 138 +Me.Label14.Text = "Average Time to Edge" +Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label20 +'Label13 ' -Me.Label20.BackColor = System.Drawing.Color.Transparent -Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label20.ForeColor = System.Drawing.Color.Black -Me.Label20.Location = New System.Drawing.Point(6, 39) -Me.Label20.Name = "Label20" -Me.Label20.Size = New System.Drawing.Size(110, 17) -Me.Label20.TabIndex = 153 -Me.Label20.Text = "Censor Bar Hidden:" -Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label13.AutoSize = true +Me.Label13.Location = New System.Drawing.Point(177, 68) +Me.Label13.Name = "Label13" +Me.Label13.Size = New System.Drawing.Size(32, 13) +Me.Label13.TabIndex = 145 +Me.Label13.Text = "Rest:" +Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label19 +'Label1 ' -Me.Label19.BackColor = System.Drawing.Color.Transparent -Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label19.ForeColor = System.Drawing.Color.Black -Me.Label19.Location = New System.Drawing.Point(161, 38) -Me.Label19.Name = "Label19" -Me.Label19.Size = New System.Drawing.Size(10, 17) -Me.Label19.TabIndex = 154 -Me.Label19.Text = "-" -Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label1.AutoSize = true +Me.Label1.Location = New System.Drawing.Point(28, 68) +Me.Label1.Name = "Label1" +Me.Label1.Size = New System.Drawing.Size(79, 13) +Me.Label1.TabIndex = 143 +Me.Label1.Text = "While Stroking:" +Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label24 +'GroupBox21 ' -Me.Label24.BackColor = System.Drawing.Color.Transparent -Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label24.ForeColor = System.Drawing.Color.Black -Me.Label24.Location = New System.Drawing.Point(6, 16) -Me.Label24.Name = "Label24" -Me.Label24.Size = New System.Drawing.Size(110, 17) -Me.Label24.TabIndex = 149 -Me.Label24.Text = "Censor Bar Shown:" -Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox21.BackColor = System.Drawing.Color.LightGray +Me.GroupBox21.Controls.Add(Me.Label153) +Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) +Me.GroupBox21.Controls.Add(Me.GroupBox6) +Me.GroupBox21.Controls.Add(Me.Label156) +Me.GroupBox21.ForeColor = System.Drawing.Color.Black +Me.GroupBox21.Location = New System.Drawing.Point(797, 55) +Me.GroupBox21.Name = "GroupBox21" +Me.GroupBox21.Size = New System.Drawing.Size(316, 136) +Me.GroupBox21.TabIndex = 66 +Me.GroupBox21.TabStop = false +Me.GroupBox21.Text = "Description" ' -'NBCensorShowMax +'Label153 ' -Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) -Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMax.Name = "NBCensorShowMax" -Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMax.TabIndex = 152 -Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax +Me.Label153.BackColor = System.Drawing.Color.Transparent +Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label153.ForeColor = System.Drawing.Color.Black +Me.Label153.Location = New System.Drawing.Point(78, 94) +Me.Label153.Name = "Label153" +Me.Label153.Size = New System.Drawing.Size(158, 17) +Me.Label153.TabIndex = 135 +Me.Label153.Text = "No path selected" +Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GBRangeOrgasmChance +'LBLRangeSettingsDescription ' -Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) -Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) -Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) -Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" -Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeOrgasmChance.TabIndex = 167 -Me.GBRangeOrgasmChance.TabStop = false -Me.GBRangeOrgasmChance.Text = "Orgasm Chance" +Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) +Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" +Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) +Me.LBLRangeSettingsDescription.TabIndex = 62 +Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label89 +'Label156 ' -Me.Label89.BackColor = System.Drawing.Color.Transparent -Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label89.ForeColor = System.Drawing.Color.Black -Me.Label89.Location = New System.Drawing.Point(6, 94) -Me.Label89.Name = "Label89" -Me.Label89.Size = New System.Drawing.Size(83, 17) -Me.Label89.TabIndex = 173 -Me.Label89.Text = "Rarely Allows:" -Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label156.BackColor = System.Drawing.Color.Transparent +Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label156.ForeColor = System.Drawing.Color.Black +Me.Label156.Location = New System.Drawing.Point(133, 23) +Me.Label156.Name = "Label156" +Me.Label156.Size = New System.Drawing.Size(158, 17) +Me.Label156.TabIndex = 135 +Me.Label156.Text = "No path selected" +Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'NBAllowSometimes +'GroupBox12 ' -Me.NBAllowSometimes.Enabled = false -Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowSometimes.Name = "NBAllowSometimes" -Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBAllowSometimes.TabIndex = 169 -Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.GroupBox12.BackColor = System.Drawing.Color.LightGray +Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) +Me.GroupBox12.ForeColor = System.Drawing.Color.Black +Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) +Me.GroupBox12.Name = "GroupBox12" +Me.GroupBox12.Size = New System.Drawing.Size(171, 124) +Me.GroupBox12.TabIndex = 65 +Me.GroupBox12.TabStop = false +Me.GroupBox12.Text = "Description" ' -'Label86 +'LBLSubSettingsDescription ' -Me.Label86.BackColor = System.Drawing.Color.Transparent -Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label86.ForeColor = System.Drawing.Color.Black -Me.Label86.Location = New System.Drawing.Point(6, 68) -Me.Label86.Name = "Label86" -Me.Label86.Size = New System.Drawing.Size(102, 17) -Me.Label86.TabIndex = 172 -Me.Label86.Text = "Sometimes Allows:" -Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) +Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" +Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) +Me.LBLSubSettingsDescription.TabIndex = 62 +Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." ' -'Label82 +'OpenFileDialog1 ' -Me.Label82.BackColor = System.Drawing.Color.Transparent -Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label82.ForeColor = System.Drawing.Color.Black -Me.Label82.Location = New System.Drawing.Point(6, 42) -Me.Label82.Name = "Label82" -Me.Label82.Size = New System.Drawing.Size(83, 17) -Me.Label82.TabIndex = 171 -Me.Label82.Text = "Often Allows:" -Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.OpenFileDialog1.FileName = "OpenFileDialog1" +Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ + "s (*.*)|*.*" +Me.OpenFileDialog1.Title = "Select an image file" ' -'NBAllowRarely +'GetColor ' -Me.NBAllowRarely.Enabled = false -Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) -Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowRarely.Name = "NBAllowRarely" -Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) -Me.NBAllowRarely.TabIndex = 170 -Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.GetColor.Color = System.Drawing.Color.SteelBlue ' -'NBAllowOften +'WebImageFileDialog ' -Me.NBAllowOften.Enabled = false -Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) -Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowOften.Name = "NBAllowOften" -Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) -Me.NBAllowOften.TabIndex = 168 -Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.WebImageFileDialog.Title = "Please select a URL File" ' -'CBRangeOrgasm +'OpenScriptDialog ' -Me.CBRangeOrgasm.AutoSize = true -Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black -Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) -Me.CBRangeOrgasm.Name = "CBRangeOrgasm" -Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) -Me.CBRangeOrgasm.TabIndex = 159 -Me.CBRangeOrgasm.Text = "Domme Decide" -Me.CBRangeOrgasm.UseVisualStyleBackColor = true +Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenScriptDialog.Title = "Please select a script" ' -'PictureBox8 +'OpenSettingsDialog ' -Me.PictureBox8.BackColor = System.Drawing.Color.LightGray -Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox8.Location = New System.Drawing.Point(9, 6) -Me.PictureBox8.Name = "PictureBox8" -Me.PictureBox8.Size = New System.Drawing.Size(160, 19) -Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox8.TabIndex = 166 -Me.PictureBox8.TabStop = false +Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenSettingsDialog.Title = "Please select a settings file to open" ' -'Label38 +'SaveSettingsDialog ' -Me.Label38.BackColor = System.Drawing.Color.Transparent -Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label38.ForeColor = System.Drawing.Color.Black -Me.Label38.Location = New System.Drawing.Point(7, 6) -Me.Label38.Name = "Label38" -Me.Label38.Size = New System.Drawing.Size(692, 21) -Me.Label38.TabIndex = 48 -Me.Label38.Text = "Range Settings" -Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" ' -'TabPage13 +'GroupBox65 ' -Me.TabPage13.BackColor = System.Drawing.Color.Silver -Me.TabPage13.Controls.Add(Me.TabControl2) -Me.TabPage13.Location = New System.Drawing.Point(4, 22) -Me.TabPage13.Name = "TabPage13" -Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage13.Size = New System.Drawing.Size(720, 448) -Me.TabPage13.TabIndex = 13 -Me.TabPage13.Text = "Modding" +Me.GroupBox65.BackColor = System.Drawing.Color.LightGray +Me.GroupBox65.Controls.Add(Me.Label136) +Me.GroupBox65.Controls.Add(Me.Label134) +Me.GroupBox65.Controls.Add(Me.Label132) +Me.GroupBox65.Controls.Add(Me.TrackBar1) +Me.GroupBox65.Controls.Add(Me.ComboBox1) +Me.GroupBox65.Controls.Add(Me.CheckBox1) +Me.GroupBox65.Controls.Add(Me.Label135) +Me.GroupBox65.Controls.Add(Me.TrackBar2) +Me.GroupBox65.ForeColor = System.Drawing.Color.Black +Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) +Me.GroupBox65.Name = "GroupBox65" +Me.GroupBox65.Size = New System.Drawing.Size(259, 117) +Me.GroupBox65.TabIndex = 157 +Me.GroupBox65.TabStop = false +Me.GroupBox65.Text = "Text to Speech" ' -'TabControl2 +'Label136 ' -Me.TabControl2.Controls.Add(Me.TabPage27) -Me.TabControl2.Controls.Add(Me.TabPage14) -Me.TabControl2.Controls.Add(Me.TabPage24) -Me.TabControl2.Controls.Add(Me.TabPage8) -Me.TabControl2.Controls.Add(Me.TabPage15) -Me.TabControl2.Location = New System.Drawing.Point(6, 6) -Me.TabControl2.Name = "TabControl2" -Me.TabControl2.SelectedIndex = 0 -Me.TabControl2.Size = New System.Drawing.Size(708, 437) -Me.TabControl2.TabIndex = 0 +Me.Label136.AutoSize = true +Me.Label136.Location = New System.Drawing.Point(14, 52) +Me.Label136.Name = "Label136" +Me.Label136.Size = New System.Drawing.Size(45, 13) +Me.Label136.TabIndex = 32 +Me.Label136.Text = "Volume:" ' -'TabPage27 +'Label134 ' -Me.TabPage27.BackColor = System.Drawing.Color.LightGray -Me.TabPage27.Controls.Add(Me.TBPlaylistSave) -Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) -Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) -Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) -Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) -Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) -Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) -Me.TabPage27.Controls.Add(Me.Button7) -Me.TabPage27.Controls.Add(Me.WBPlaylist) -Me.TabPage27.Controls.Add(Me.Label80) -Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) -Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) -Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) -Me.TabPage27.Controls.Add(Me.LBPlaylist) -Me.TabPage27.Location = New System.Drawing.Point(4, 22) -Me.TabPage27.Name = "TabPage27" -Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage27.Size = New System.Drawing.Size(700, 411) -Me.TabPage27.TabIndex = 5 -Me.TabPage27.Text = "Playlists" +Me.Label134.AutoSize = true +Me.Label134.Location = New System.Drawing.Point(141, 52) +Me.Label134.Name = "Label134" +Me.Label134.Size = New System.Drawing.Size(33, 13) +Me.Label134.TabIndex = 157 +Me.Label134.Text = "Rate:" ' -'TBPlaylistSave +'Label132 ' -Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) -Me.TBPlaylistSave.Name = "TBPlaylistSave" -Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) -Me.TBPlaylistSave.TabIndex = 203 +Me.Label132.Location = New System.Drawing.Point(202, 52) +Me.Label132.Name = "Label132" +Me.Label132.Size = New System.Drawing.Size(45, 13) +Me.Label132.TabIndex = 158 +Me.Label132.Text = "100" +Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'BTNPlaylistCtrlZ +'TrackBar1 ' -Me.BTNPlaylistCtrlZ.Enabled = false -Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) -Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" -Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistCtrlZ.TabIndex = 202 -Me.BTNPlaylistCtrlZ.Text = "Undo" -Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true +Me.TrackBar1.Location = New System.Drawing.Point(133, 68) +Me.TrackBar1.Minimum = -10 +Me.TrackBar1.Name = "TrackBar1" +Me.TrackBar1.Size = New System.Drawing.Size(120, 45) +Me.TrackBar1.TabIndex = 31 ' -'RadioPlaylistRegScripts +'ComboBox1 ' -Me.RadioPlaylistRegScripts.AutoSize = true -Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) -Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" -Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) -Me.RadioPlaylistRegScripts.TabIndex = 201 -Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" -Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true +Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window +Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText +Me.ComboBox1.FormattingEnabled = true +Me.ComboBox1.Location = New System.Drawing.Point(71, 16) +Me.ComboBox1.Name = "ComboBox1" +Me.ComboBox1.Size = New System.Drawing.Size(178, 21) +Me.ComboBox1.TabIndex = 29 +Me.ComboBox1.TabStop = false ' -'RadioPlaylistScripts +'CheckBox1 ' -Me.RadioPlaylistScripts.AutoSize = true -Me.RadioPlaylistScripts.Checked = true -Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) -Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" -Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) -Me.RadioPlaylistScripts.TabIndex = 200 -Me.RadioPlaylistScripts.TabStop = true -Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" -Me.RadioPlaylistScripts.UseVisualStyleBackColor = true +Me.CheckBox1.AutoSize = true +Me.CheckBox1.ForeColor = System.Drawing.Color.Black +Me.CheckBox1.Location = New System.Drawing.Point(10, 18) +Me.CheckBox1.Name = "CheckBox1" +Me.CheckBox1.Size = New System.Drawing.Size(59, 17) +Me.CheckBox1.TabIndex = 28 +Me.CheckBox1.TabStop = false +Me.CheckBox1.Text = "Enable" +Me.CheckBox1.UseVisualStyleBackColor = true ' -'BTNPlaylistEnd +'Label135 ' -Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray -Me.BTNPlaylistEnd.Enabled = false -Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black -Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) -Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" -Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistEnd.TabIndex = 199 -Me.BTNPlaylistEnd.Text = "End" -Me.BTNPlaylistEnd.UseVisualStyleBackColor = false +Me.Label135.Location = New System.Drawing.Point(75, 52) +Me.Label135.Name = "Label135" +Me.Label135.Size = New System.Drawing.Size(45, 13) +Me.Label135.TabIndex = 33 +Me.Label135.Text = "100" +Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'BTNPlaylistClearAll +'TrackBar2 ' -Me.BTNPlaylistClearAll.Enabled = false -Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) -Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" -Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) -Me.BTNPlaylistClearAll.TabIndex = 198 -Me.BTNPlaylistClearAll.Text = "Clear All" -Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true +Me.TrackBar2.Location = New System.Drawing.Point(6, 68) +Me.TrackBar2.Maximum = 100 +Me.TrackBar2.Name = "TrackBar2" +Me.TrackBar2.Size = New System.Drawing.Size(120, 45) +Me.TrackBar2.TabIndex = 30 +Me.TrackBar2.Value = 50 ' -'BTNPlaylistSave +'TxbImgUrlHardcore ' -Me.BTNPlaylistSave.Enabled = false -Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) -Me.BTNPlaylistSave.Name = "BTNPlaylistSave" -Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistSave.TabIndex = 197 -Me.BTNPlaylistSave.Text = "Save" -Me.BTNPlaylistSave.UseVisualStyleBackColor = true +Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) +Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" +Me.TxbImgUrlHardcore.ReadOnly = true +Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) +Me.TxbImgUrlHardcore.TabIndex = 145 ' -'Button7 +'TextBox2 ' -Me.Button7.Location = New System.Drawing.Point(213, 21) -Me.Button7.Name = "Button7" -Me.Button7.Size = New System.Drawing.Size(78, 23) -Me.Button7.TabIndex = 196 -Me.Button7.Text = "Add Random" -Me.Button7.UseVisualStyleBackColor = true +Me.TextBox2.BackColor = System.Drawing.Color.LightGray +Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill +Me.TextBox2.Location = New System.Drawing.Point(116, 34) +Me.TextBox2.Name = "TextBox2" +Me.TextBox2.ReadOnly = true +Me.TextBox2.Size = New System.Drawing.Size(189, 20) +Me.TextBox2.TabIndex = 145 ' -'WBPlaylist +'BWURLFiles ' -Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) -Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) -Me.WBPlaylist.Name = "WBPlaylist" -Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) -Me.WBPlaylist.TabIndex = 195 +Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" +Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" +Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" +Me.BWURLFiles.WorkerReportsProgress = true +Me.BWURLFiles.WorkerSupportsCancellation = true ' -'Label80 +'GroupBox8 +' +Me.GroupBox8.Controls.Add(Me.CBOutputErrors) +Me.GroupBox8.Location = New System.Drawing.Point(420, 268) +Me.GroupBox8.Name = "GroupBox8" +Me.GroupBox8.Size = New System.Drawing.Size(279, 100) +Me.GroupBox8.TabIndex = 179 +Me.GroupBox8.TabStop = false +Me.GroupBox8.Text = "System Information" +' +'CBOutputErrors +' +Me.CBOutputErrors.AutoSize = true +Me.CBOutputErrors.Checked = true +Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black +Me.CBOutputErrors.Location = New System.Drawing.Point(17, 33) +Me.CBOutputErrors.Name = "CBOutputErrors" +Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) +Me.CBOutputErrors.TabIndex = 29 +Me.CBOutputErrors.TabStop = false +Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" +Me.CBOutputErrors.UseVisualStyleBackColor = true ' -Me.Label80.AutoSize = true -Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label80.Location = New System.Drawing.Point(410, 27) -Me.Label80.Name = "Label80" -Me.Label80.Size = New System.Drawing.Size(47, 13) -Me.Label80.TabIndex = 194 -Me.Label80.Text = "Playlist" +'CBMuteMedia ' -'LBLPlaylIstLink +Me.CBMuteMedia.AutoSize = true +Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia +Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black +Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) +Me.CBMuteMedia.Name = "CBMuteMedia" +Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) +Me.CBMuteMedia.TabIndex = 6 +Me.CBMuteMedia.TabStop = false +Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" +Me.CBMuteMedia.UseVisualStyleBackColor = true ' -Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylIstLink.Enabled = false -Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) -Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" -Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) -Me.LBLPlaylIstLink.TabIndex = 193 -Me.LBLPlaylIstLink.Text = "Link" -Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'TbxDomImageDir ' -'LBLPlaylistModule +Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) +Me.TbxDomImageDir.Name = "TbxDomImageDir" +Me.TbxDomImageDir.ReadOnly = true +Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxDomImageDir.TabIndex = 0 +Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir ' -Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylistModule.Enabled = false -Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) -Me.LBLPlaylistModule.Name = "LBLPlaylistModule" -Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) -Me.LBLPlaylistModule.TabIndex = 192 -Me.LBLPlaylistModule.Text = "Module" -Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLSubColor ' -'LBLPLaylistStart +Me.LBLSubColor.BackColor = System.Drawing.Color.White +Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor +Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) +Me.LBLSubColor.Name = "LBLSubColor" +Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) +Me.LBLSubColor.TabIndex = 0 +Me.LBLSubColor.Text = "Preview" +Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green -Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White -Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) -Me.LBLPLaylistStart.Name = "LBLPLaylistStart" -Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) -Me.LBLPLaylistStart.TabIndex = 190 -Me.LBLPLaylistStart.Text = "Start" -Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLDomColor ' -'LBPlaylist +Me.LBLDomColor.BackColor = System.Drawing.Color.White +Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor +Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) +Me.LBLDomColor.Name = "LBLDomColor" +Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) +Me.LBLDomColor.TabIndex = 0 +Me.LBLDomColor.Text = "Preview" +Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBLockOrgasmChances +' +Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances +Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black +Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) +Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" +Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) +Me.CBLockOrgasmChances.TabIndex = 146 +Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" +Me.CBLockOrgasmChances.UseVisualStyleBackColor = true +' +'ChbImageUrlHardcore +' +Me.ChbImageUrlHardcore.AutoSize = true +Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled +Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) +Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" +Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHardcore.TabIndex = 0 +Me.ChbImageUrlHardcore.Text = "Hardcore" +Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true ' -Me.LBPlaylist.AllowDrop = true -Me.LBPlaylist.FormattingEnabled = true -Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) -Me.LBPlaylist.Name = "LBPlaylist" -Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) -Me.LBPlaylist.TabIndex = 189 +'ChbImageUrlButts ' -'TabPage14 +Me.ChbImageUrlButts.AutoSize = true +Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled +Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) +Me.ChbImageUrlButts.Name = "ChbImageUrlButts" +Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) +Me.ChbImageUrlButts.TabIndex = 37 +Me.ChbImageUrlButts.Text = "Butts" +Me.ChbImageUrlButts.UseVisualStyleBackColor = true ' -Me.TabPage14.BackColor = System.Drawing.Color.LightGray -Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) -Me.TabPage14.Controls.Add(Me.Label88) -Me.TabPage14.Controls.Add(Me.TBKeywordPreview) -Me.TabPage14.Controls.Add(Me.Button37) -Me.TabPage14.Controls.Add(Me.Button50) -Me.TabPage14.Controls.Add(Me.Button22) -Me.TabPage14.Controls.Add(Me.TBKeyWords) -Me.TabPage14.Controls.Add(Me.LBKeyWords) -Me.TabPage14.Controls.Add(Me.RTBKeyWords) -Me.TabPage14.Location = New System.Drawing.Point(4, 22) -Me.TabPage14.Name = "TabPage14" -Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage14.Size = New System.Drawing.Size(700, 411) -Me.TabPage14.TabIndex = 0 -Me.TabPage14.Text = "Keywords" +'ChbImageUrlMaledom ' -'LBLKeywordPreview +Me.ChbImageUrlMaledom.AutoSize = true +Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled +Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) +Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" +Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlMaledom.TabIndex = 25 +Me.ChbImageUrlMaledom.Text = "Maledom" +Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true ' -Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) -Me.LBLKeywordPreview.Name = "LBLKeywordPreview" -Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) -Me.LBLKeywordPreview.TabIndex = 174 -Me.LBLKeywordPreview.Text = "Get Preview Here" -Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'ChbImageUrlGay ' -'Label88 +Me.ChbImageUrlGay.AutoSize = true +Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled +Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) +Me.ChbImageUrlGay.Name = "ChbImageUrlGay" +Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGay.TabIndex = 22 +Me.ChbImageUrlGay.Text = "Gay" +Me.ChbImageUrlGay.UseVisualStyleBackColor = true ' -Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label88.Location = New System.Drawing.Point(3, 358) -Me.Label88.Name = "Label88" -Me.Label88.Size = New System.Drawing.Size(194, 53) -Me.Label88.TabIndex = 173 -Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ - " the domme return." -Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'ChbImageUrlSoftcore ' -'TBKeywordPreview +Me.ChbImageUrlSoftcore.AutoSize = true +Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled +Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) +Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" +Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlSoftcore.TabIndex = 4 +Me.ChbImageUrlSoftcore.Text = "Softcore" +Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true ' -Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) -Me.TBKeywordPreview.Name = "TBKeywordPreview" -Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) -Me.TBKeywordPreview.TabIndex = 172 -Me.TBKeywordPreview.Text = "Enter Line Here" -Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'ChbImageUrlBoobs ' -'Button37 +Me.ChbImageUrlBoobs.AutoSize = true +Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled +Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) +Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" +Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBoobs.TabIndex = 34 +Me.ChbImageUrlBoobs.Text = "Boobs" +Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true ' -Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button37.Location = New System.Drawing.Point(638, 358) -Me.Button37.Name = "Button37" -Me.Button37.Size = New System.Drawing.Size(47, 50) -Me.Button37.TabIndex = 171 -Me.Button37.Text = "#" -Me.Button37.UseVisualStyleBackColor = true +'ChbImageUrlLesbian ' -'Button50 +Me.ChbImageUrlLesbian.AutoSize = true +Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled +Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) +Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" +Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLesbian.TabIndex = 7 +Me.ChbImageUrlLesbian.Text = "Lesbian" +Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true ' -Me.Button50.Location = New System.Drawing.Point(6, 10) -Me.Button50.Name = "Button50" -Me.Button50.Size = New System.Drawing.Size(194, 23) -Me.Button50.TabIndex = 169 -Me.Button50.Text = "Refresh and Clear Keyword List" -Me.Button50.UseVisualStyleBackColor = true +'ChbImageUrlBlowjob ' -'Button22 +Me.ChbImageUrlBlowjob.AutoSize = true +Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled +Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) +Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" +Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBlowjob.TabIndex = 10 +Me.ChbImageUrlBlowjob.Text = "Blowjob" +Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true ' -Me.Button22.Location = New System.Drawing.Point(638, 10) -Me.Button22.Name = "Button22" -Me.Button22.Size = New System.Drawing.Size(47, 23) -Me.Button22.TabIndex = 167 -Me.Button22.Text = "Save" -Me.Button22.UseVisualStyleBackColor = true +'ChbImageUrlCaptions ' -'TBKeyWords +Me.ChbImageUrlCaptions.AutoSize = true +Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled +Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) +Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" +Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlCaptions.TabIndex = 28 +Me.ChbImageUrlCaptions.Text = "Captions" +Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true ' -Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) -Me.TBKeyWords.Name = "TBKeyWords" -Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) -Me.TBKeyWords.TabIndex = 166 +'ChbImageUrlGeneral ' -'LBKeyWords +Me.ChbImageUrlGeneral.AutoSize = true +Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled +Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) +Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" +Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGeneral.TabIndex = 31 +Me.ChbImageUrlGeneral.Text = "General" +Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true ' -Me.LBKeyWords.FormattingEnabled = true -Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) -Me.LBKeyWords.Name = "LBKeyWords" -Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) -Me.LBKeyWords.Sorted = true -Me.LBKeyWords.TabIndex = 165 +'ChbImageUrlFemdom ' -'RTBKeyWords +Me.ChbImageUrlFemdom.AutoSize = true +Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled +Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) +Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" +Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlFemdom.TabIndex = 13 +Me.ChbImageUrlFemdom.Text = "Femdom" +Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true ' -Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) -Me.RTBKeyWords.Name = "RTBKeyWords" -Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) -Me.RTBKeyWords.TabIndex = 164 -Me.RTBKeyWords.Text = "" +'ChbImageUrlHentai ' -'TabPage24 +Me.ChbImageUrlHentai.AutoSize = true +Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled +Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) +Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" +Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHentai.TabIndex = 19 +Me.ChbImageUrlHentai.Text = "Hentai" +Me.ChbImageUrlHentai.UseVisualStyleBackColor = true ' -Me.TabPage24.BackColor = System.Drawing.Color.LightGray -Me.TabPage24.Controls.Add(Me.Button9) -Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) -Me.TabPage24.Controls.Add(Me.Button4) -Me.TabPage24.Controls.Add(Me.Button5) -Me.TabPage24.Controls.Add(Me.TBResponses) -Me.TabPage24.Controls.Add(Me.LBResponses) -Me.TabPage24.Controls.Add(Me.RTBResponses) -Me.TabPage24.Location = New System.Drawing.Point(4, 22) -Me.TabPage24.Name = "TabPage24" -Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage24.Size = New System.Drawing.Size(700, 411) -Me.TabPage24.TabIndex = 3 -Me.TabPage24.Text = "Responses" +'ChbImageUrlLezdom ' -'Button9 +Me.ChbImageUrlLezdom.AutoSize = true +Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled +Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) +Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" +Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLezdom.TabIndex = 16 +Me.ChbImageUrlLezdom.Text = "Lezdom" +Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true ' -Me.Button9.Location = New System.Drawing.Point(217, 10) -Me.Button9.Name = "Button9" -Me.Button9.Size = New System.Drawing.Size(215, 23) -Me.Button9.TabIndex = 176 -Me.Button9.Text = "Response Template" -Me.Button9.UseVisualStyleBackColor = true +'TxbImageUrlBlowjob ' -'RTBResponsesKEY +Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" +Me.TxbImageUrlBlowjob.ReadOnly = true +Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.TabIndex = 12 +Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob ' -Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) -Me.RTBResponsesKEY.Name = "RTBResponsesKEY" -Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) -Me.RTBResponsesKEY.TabIndex = 175 -Me.RTBResponsesKEY.Text = "" +'TxbImageUrlSoftcore ' -'Button4 +Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) +Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" +Me.TxbImageUrlSoftcore.ReadOnly = true +Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.TabIndex = 6 +Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore ' -Me.Button4.Location = New System.Drawing.Point(6, 10) -Me.Button4.Name = "Button4" -Me.Button4.Size = New System.Drawing.Size(194, 23) -Me.Button4.TabIndex = 174 -Me.Button4.Text = "Refresh and Clear Response List" -Me.Button4.UseVisualStyleBackColor = true +'TxbImageUrlLezdom ' -'Button5 +Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) +Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" +Me.TxbImageUrlLezdom.ReadOnly = true +Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.TabIndex = 18 +Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom ' -Me.Button5.Location = New System.Drawing.Point(638, 10) -Me.Button5.Name = "Button5" -Me.Button5.Size = New System.Drawing.Size(47, 23) -Me.Button5.TabIndex = 173 -Me.Button5.Text = "Save" -Me.Button5.UseVisualStyleBackColor = true +'TxbImageUrlFemdom ' -'TBResponses +Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) +Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" +Me.TxbImageUrlFemdom.ReadOnly = true +Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.TabIndex = 15 +Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom ' -Me.TBResponses.Location = New System.Drawing.Point(438, 10) -Me.TBResponses.Name = "TBResponses" -Me.TBResponses.Size = New System.Drawing.Size(194, 20) -Me.TBResponses.TabIndex = 172 +'TxbImageUrlHardcore ' -'LBResponses +Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) +Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" +Me.TxbImageUrlHardcore.ReadOnly = true +Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.TabIndex = 3 +Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore ' -Me.LBResponses.FormattingEnabled = true -Me.LBResponses.Location = New System.Drawing.Point(6, 36) -Me.LBResponses.Name = "LBResponses" -Me.LBResponses.Size = New System.Drawing.Size(194, 355) -Me.LBResponses.Sorted = true -Me.LBResponses.TabIndex = 171 +'TxbImageUrlHentai ' -'RTBResponses +Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) +Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" +Me.TxbImageUrlHentai.ReadOnly = true +Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.TabIndex = 21 +Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai ' -Me.RTBResponses.Location = New System.Drawing.Point(217, 82) -Me.RTBResponses.Name = "RTBResponses" -Me.RTBResponses.Size = New System.Drawing.Size(468, 309) -Me.RTBResponses.TabIndex = 170 -Me.RTBResponses.Text = "" +'TxbImageUrlGay ' -'TabPage8 +Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) +Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.Name = "TxbImageUrlGay" +Me.TxbImageUrlGay.ReadOnly = true +Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.TabIndex = 24 +Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay ' -Me.TabPage8.BackColor = System.Drawing.Color.LightGray -Me.TabPage8.Controls.Add(Me.RTBVideoMod) -Me.TabPage8.Controls.Add(Me.GroupBox29) -Me.TabPage8.Controls.Add(Me.BTNVideoModClear) -Me.TabPage8.Controls.Add(Me.GroupBox28) -Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) -Me.TabPage8.Controls.Add(Me.GroupBox30) -Me.TabPage8.Controls.Add(Me.BTNVideoModSave) -Me.TabPage8.Location = New System.Drawing.Point(4, 22) -Me.TabPage8.Name = "TabPage8" -Me.TabPage8.Size = New System.Drawing.Size(700, 411) -Me.TabPage8.TabIndex = 2 -Me.TabPage8.Text = "Video" +'TxbImageUrlLesbian ' -'RTBVideoMod +Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) +Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" +Me.TxbImageUrlLesbian.ReadOnly = true +Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.TabIndex = 9 +Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian ' -Me.RTBVideoMod.Enabled = false -Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) -Me.RTBVideoMod.Name = "RTBVideoMod" -Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) -Me.RTBVideoMod.TabIndex = 150 -Me.RTBVideoMod.Text = "" +'TxbImageUrlMaledom ' -'GroupBox29 +Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) +Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" +Me.TxbImageUrlMaledom.ReadOnly = true +Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.TabIndex = 27 +Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom ' -Me.GroupBox29.BackColor = System.Drawing.Color.LightGray -Me.GroupBox29.Controls.Add(Me.Label51) -Me.GroupBox29.ForeColor = System.Drawing.Color.Black -Me.GroupBox29.Location = New System.Drawing.Point(6, 309) -Me.GroupBox29.Name = "GroupBox29" -Me.GroupBox29.Size = New System.Drawing.Size(692, 92) -Me.GroupBox29.TabIndex = 66 -Me.GroupBox29.TabStop = false -Me.GroupBox29.Text = "Description" +'TxbImageUrlCaptions ' -'Label51 +Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) +Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" +Me.TxbImageUrlCaptions.ReadOnly = true +Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.TabIndex = 30 +Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions ' -Me.Label51.BackColor = System.Drawing.Color.Transparent -Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label51.ForeColor = System.Drawing.Color.Black -Me.Label51.Location = New System.Drawing.Point(6, 16) -Me.Label51.Name = "Label51" -Me.Label51.Size = New System.Drawing.Size(680, 73) -Me.Label51.TabIndex = 62 -Me.Label51.Text = resources.GetString("Label51.Text") -Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'TxbImageUrlGeneral ' -'BTNVideoModClear +Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) +Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" +Me.TxbImageUrlGeneral.ReadOnly = true +Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.TabIndex = 33 +Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral ' -Me.BTNVideoModClear.Enabled = false -Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) -Me.BTNVideoModClear.Name = "BTNVideoModClear" -Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModClear.TabIndex = 153 -Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" -Me.BTNVideoModClear.UseVisualStyleBackColor = true +'TxbImageUrlBoobs +' +Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) +Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" +Me.TxbImageUrlBoobs.ReadOnly = true +Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.TabIndex = 36 +Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs ' -'GroupBox28 +'TxbImageUrlButts ' -Me.GroupBox28.Controls.Add(Me.CBVTType) -Me.GroupBox28.Location = New System.Drawing.Point(6, 8) -Me.GroupBox28.Name = "GroupBox28" -Me.GroupBox28.Size = New System.Drawing.Size(155, 46) -Me.GroupBox28.TabIndex = 148 -Me.GroupBox28.TabStop = false -Me.GroupBox28.Text = "Video Tease Type" +Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) +Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.Name = "TxbImageUrlButts" +Me.TxbImageUrlButts.ReadOnly = true +Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.TabIndex = 39 +Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt ' -'CBVTType +'TbxIHardcore ' -Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBVTType.FormattingEnabled = true -Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) -Me.CBVTType.Location = New System.Drawing.Point(9, 15) -Me.CBVTType.Name = "CBVTType" -Me.CBVTType.Size = New System.Drawing.Size(137, 21) -Me.CBVTType.TabIndex = 171 +Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray +Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black +Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) +Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.Name = "TbxIHardcore" +Me.TbxIHardcore.ReadOnly = true +Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.TabIndex = 2 +Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore ' -'BTNVideoModLoad +'CBIHardcoreSD ' -Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) -Me.BTNVideoModLoad.Name = "BTNVideoModLoad" -Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModLoad.TabIndex = 152 -Me.BTNVideoModLoad.Text = "Load Script" -Me.BTNVideoModLoad.UseVisualStyleBackColor = true +Me.CBIHardcoreSD.AutoSize = true +Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD +Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) +Me.CBIHardcoreSD.Name = "CBIHardcoreSD" +Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHardcoreSD.TabIndex = 3 +Me.CBIHardcoreSD.UseVisualStyleBackColor = true ' -'GroupBox30 +'CBIHardcore ' -Me.GroupBox30.Controls.Add(Me.LBVidScript) -Me.GroupBox30.Location = New System.Drawing.Point(6, 60) -Me.GroupBox30.Name = "GroupBox30" -Me.GroupBox30.Size = New System.Drawing.Size(155, 100) -Me.GroupBox30.TabIndex = 149 -Me.GroupBox30.TabStop = false -Me.GroupBox30.Text = "Script" +Me.CBIHardcore.AutoSize = true +Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore +Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcore.ForeColor = System.Drawing.Color.Black +Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) +Me.CBIHardcore.Name = "CBIHardcore" +Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) +Me.CBIHardcore.TabIndex = 0 +Me.CBIHardcore.Text = "Hardcore" +Me.CBIHardcore.UseVisualStyleBackColor = true ' -'LBVidScript +'CBISoftcore ' -Me.LBVidScript.FormattingEnabled = true -Me.LBVidScript.Location = New System.Drawing.Point(9, 20) -Me.LBVidScript.Name = "LBVidScript" -Me.LBVidScript.Size = New System.Drawing.Size(137, 69) -Me.LBVidScript.TabIndex = 0 +Me.CBISoftcore.AutoSize = true +Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore +Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcore.ForeColor = System.Drawing.Color.Black +Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) +Me.CBISoftcore.Name = "CBISoftcore" +Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) +Me.CBISoftcore.TabIndex = 4 +Me.CBISoftcore.Text = "Softcore" +Me.CBISoftcore.UseVisualStyleBackColor = true ' -'BTNVideoModSave +'TbxISoftcore ' -Me.BTNVideoModSave.Enabled = false -Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) -Me.BTNVideoModSave.Name = "BTNVideoModSave" -Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModSave.TabIndex = 151 -Me.BTNVideoModSave.Text = "Save Changes" -Me.BTNVideoModSave.UseVisualStyleBackColor = true +Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray +Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black +Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) +Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.Name = "TbxISoftcore" +Me.TbxISoftcore.ReadOnly = true +Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.TabIndex = 6 +Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore ' -'TabPage15 +'CBButtSubDir ' -Me.TabPage15.BackColor = System.Drawing.Color.LightGray -Me.TabPage15.Controls.Add(Me.Label62) -Me.TabPage15.Controls.Add(Me.Label61) -Me.TabPage15.Controls.Add(Me.Label57) -Me.TabPage15.Controls.Add(Me.Label58) -Me.TabPage15.Controls.Add(Me.Label60) -Me.TabPage15.Controls.Add(Me.TBGlitModFileName) -Me.TabPage15.Controls.Add(Me.GroupBox34) -Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) -Me.TabPage15.Controls.Add(Me.Button26) -Me.TabPage15.Controls.Add(Me.Label56) -Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) -Me.TabPage15.Controls.Add(Me.LBGlitModScripts) -Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) -Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) -Me.TabPage15.Controls.Add(Me.Button29) -Me.TabPage15.Controls.Add(Me.CBGlitModType) -Me.TabPage15.Controls.Add(Me.Label59) -Me.TabPage15.Controls.Add(Me.Label50) -Me.TabPage15.Location = New System.Drawing.Point(4, 22) -Me.TabPage15.Name = "TabPage15" -Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage15.Size = New System.Drawing.Size(700, 411) -Me.TabPage15.TabIndex = 1 -Me.TabPage15.Text = "Glitter" +Me.CBButtSubDir.AutoSize = true +Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir +Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black +Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) +Me.CBButtSubDir.Name = "CBButtSubDir" +Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) +Me.CBButtSubDir.TabIndex = 51 +Me.CBButtSubDir.UseVisualStyleBackColor = true ' -'Label62 +'CBISoftcoreSD ' -Me.Label62.Location = New System.Drawing.Point(255, 169) -Me.Label62.Name = "Label62" -Me.Label62.Size = New System.Drawing.Size(59, 51) -Me.Label62.TabIndex = 177 -Me.Label62.Text = "@Cruel @Angry @Custom2" -Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBISoftcoreSD.AutoSize = true +Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD +Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) +Me.CBISoftcoreSD.Name = "CBISoftcoreSD" +Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBISoftcoreSD.TabIndex = 7 +Me.CBISoftcoreSD.UseVisualStyleBackColor = true ' -'Label61 +'CBBoobSubDir ' -Me.Label61.Location = New System.Drawing.Point(194, 169) -Me.Label61.Name = "Label61" -Me.Label61.Size = New System.Drawing.Size(59, 51) -Me.Label61.TabIndex = 176 -Me.Label61.Text = "@Bratty @Caring @Custom1" -Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBBoobSubDir.AutoSize = true +Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir +Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black +Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) +Me.CBBoobSubDir.Name = "CBBoobSubDir" +Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) +Me.CBBoobSubDir.TabIndex = 47 +Me.CBBoobSubDir.UseVisualStyleBackColor = true ' -'Label57 +'CBILezdomSD ' -Me.Label57.Location = New System.Drawing.Point(194, 11) -Me.Label57.Name = "Label57" -Me.Label57.Size = New System.Drawing.Size(120, 23) -Me.Label57.TabIndex = 160 -Me.Label57.Text = "File Name" -Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBILezdomSD.AutoSize = true +Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD +Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black +Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) +Me.CBILezdomSD.Name = "CBILezdomSD" +Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBILezdomSD.TabIndex = 23 +Me.CBILezdomSD.UseVisualStyleBackColor = true ' -'Label58 +'CBIGeneralSD ' -Me.Label58.Location = New System.Drawing.Point(350, 11) -Me.Label58.Name = "Label58" -Me.Label58.Size = New System.Drawing.Size(326, 23) -Me.Label58.TabIndex = 161 -Me.Label58.Text = "Domme's Post" -Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIGeneralSD.AutoSize = true +Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD +Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black +Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) +Me.CBIGeneralSD.Name = "CBIGeneralSD" +Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) +Me.CBIGeneralSD.TabIndex = 43 +Me.CBIGeneralSD.UseVisualStyleBackColor = true ' -'Label60 +'CBILesbianSD +' +Me.CBILesbianSD.AutoSize = true +Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD +Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black +Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) +Me.CBILesbianSD.Name = "CBILesbianSD" +Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) +Me.CBILesbianSD.TabIndex = 11 +Me.CBILesbianSD.UseVisualStyleBackColor = true +' +'CBICaptionsSD ' -Me.Label60.Location = New System.Drawing.Point(194, 139) -Me.Label60.Name = "Label60" -Me.Label60.Size = New System.Drawing.Size(120, 30) -Me.Label60.TabIndex = 175 -Me.Label60.Text = "Tease Responses Need 3 of Each:" -Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBICaptionsSD.AutoSize = true +Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD +Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black +Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) +Me.CBICaptionsSD.Name = "CBICaptionsSD" +Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) +Me.CBICaptionsSD.TabIndex = 39 +Me.CBICaptionsSD.UseVisualStyleBackColor = true ' -'TBGlitModFileName +'CBILesbian ' -Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) -Me.TBGlitModFileName.Name = "TBGlitModFileName" -Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) -Me.TBGlitModFileName.TabIndex = 158 +Me.CBILesbian.AutoSize = true +Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian +Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbian.ForeColor = System.Drawing.Color.Black +Me.CBILesbian.Location = New System.Drawing.Point(3, 61) +Me.CBILesbian.Name = "CBILesbian" +Me.CBILesbian.Size = New System.Drawing.Size(70, 23) +Me.CBILesbian.TabIndex = 8 +Me.CBILesbian.Text = "Lesbian" +Me.CBILesbian.UseVisualStyleBackColor = true ' -'GroupBox34 +'CBIMaledomSD ' -Me.GroupBox34.BackColor = System.Drawing.Color.LightGray -Me.GroupBox34.Controls.Add(Me.Label52) -Me.GroupBox34.ForeColor = System.Drawing.Color.Black -Me.GroupBox34.Location = New System.Drawing.Point(8, 296) -Me.GroupBox34.Name = "GroupBox34" -Me.GroupBox34.Size = New System.Drawing.Size(683, 107) -Me.GroupBox34.TabIndex = 66 -Me.GroupBox34.TabStop = false -Me.GroupBox34.Text = "Description" +Me.CBIMaledomSD.AutoSize = true +Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD +Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black +Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) +Me.CBIMaledomSD.Name = "CBIMaledomSD" +Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIMaledomSD.TabIndex = 35 +Me.CBIMaledomSD.UseVisualStyleBackColor = true ' -'Label52 +'CBIBlowjob ' -Me.Label52.BackColor = System.Drawing.Color.Transparent -Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label52.ForeColor = System.Drawing.Color.Black -Me.Label52.Location = New System.Drawing.Point(6, 16) -Me.Label52.Name = "Label52" -Me.Label52.Size = New System.Drawing.Size(670, 88) -Me.Label52.TabIndex = 62 -Me.Label52.Text = resources.GetString("Label52.Text") -Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIBlowjob.AutoSize = true +Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob +Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) +Me.CBIBlowjob.Name = "CBIBlowjob" +Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) +Me.CBIBlowjob.TabIndex = 12 +Me.CBIBlowjob.Text = "Blowjob" +Me.CBIBlowjob.UseVisualStyleBackColor = true ' -'RTBGlitModDommePost +'CBIGaySD ' -Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) -Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" -Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) -Me.RTBGlitModDommePost.TabIndex = 162 -Me.RTBGlitModDommePost.Text = "" +Me.CBIGaySD.AutoSize = true +Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD +Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGaySD.ForeColor = System.Drawing.Color.Black +Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) +Me.CBIGaySD.Name = "CBIGaySD" +Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) +Me.CBIGaySD.TabIndex = 31 +Me.CBIGaySD.UseVisualStyleBackColor = true ' -'Button26 +'CBIHentaiSD ' -Me.Button26.Location = New System.Drawing.Point(194, 239) -Me.Button26.Name = "Button26" -Me.Button26.Size = New System.Drawing.Size(120, 23) -Me.Button26.TabIndex = 174 -Me.Button26.Text = "Clear Fields" -Me.Button26.UseVisualStyleBackColor = true +Me.CBIHentaiSD.AutoSize = true +Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD +Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black +Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) +Me.CBIHentaiSD.Name = "CBIHentaiSD" +Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHentaiSD.TabIndex = 27 +Me.CBIHentaiSD.UseVisualStyleBackColor = true ' -'Label56 +'CBIBlowjobSD ' -Me.Label56.Location = New System.Drawing.Point(350, 80) -Me.Label56.Name = "Label56" -Me.Label56.Size = New System.Drawing.Size(324, 23) -Me.Label56.TabIndex = 156 -Me.Label56.Text = "Responses (Minimum 3)" -Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIBlowjobSD.AutoSize = true +Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD +Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) +Me.CBIBlowjobSD.Name = "CBIBlowjobSD" +Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) +Me.CBIBlowjobSD.TabIndex = 15 +Me.CBIBlowjobSD.UseVisualStyleBackColor = true ' -'RTBGlitModResponses +'CBIFemdomSD ' -Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) -Me.RTBGlitModResponses.Name = "RTBGlitModResponses" -Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) -Me.RTBGlitModResponses.TabIndex = 150 -Me.RTBGlitModResponses.Text = "" +Me.CBIFemdomSD.AutoSize = true +Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD +Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black +Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) +Me.CBIFemdomSD.Name = "CBIFemdomSD" +Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIFemdomSD.TabIndex = 19 +Me.CBIFemdomSD.UseVisualStyleBackColor = true ' -'LBGlitModScripts +'TbxIButts ' -Me.LBGlitModScripts.FormattingEnabled = true -Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) -Me.LBGlitModScripts.Name = "LBGlitModScripts" -Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) -Me.LBGlitModScripts.TabIndex = 163 +Me.TbxIButts.BackColor = System.Drawing.Color.LightGray +Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIButts.ForeColor = System.Drawing.Color.Black +Me.TbxIButts.Location = New System.Drawing.Point(115, 353) +Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIButts.Name = "TbxIButts" +Me.TbxIButts.ReadOnly = true +Me.TbxIButts.Size = New System.Drawing.Size(217, 17) +Me.TbxIButts.TabIndex = 50 +Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath ' -'LBLGlitModScriptCount +'CBIFemdom ' -Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) -Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" -Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) -Me.LBLGlitModScriptCount.TabIndex = 173 -Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" -Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIFemdom.AutoSize = true +Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom +Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdom.ForeColor = System.Drawing.Color.Black +Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) +Me.CBIFemdom.Name = "CBIFemdom" +Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) +Me.CBIFemdom.TabIndex = 16 +Me.CBIFemdom.Text = "Femdom" +Me.CBIFemdom.UseVisualStyleBackColor = true ' -'LBLGlitModDomType +'TbxILesbian ' -Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) -Me.LBLGlitModDomType.Name = "LBLGlitModDomType" -Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) -Me.LBLGlitModDomType.TabIndex = 155 -Me.LBLGlitModDomType.Text = "Total Brat" -Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray +Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILesbian.ForeColor = System.Drawing.Color.Black +Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) +Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILesbian.Name = "TbxILesbian" +Me.TbxILesbian.ReadOnly = true +Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) +Me.TbxILesbian.TabIndex = 10 +Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian ' -'Button29 +'CBILezdom ' -Me.Button29.Location = New System.Drawing.Point(194, 268) -Me.Button29.Name = "Button29" -Me.Button29.Size = New System.Drawing.Size(120, 23) -Me.Button29.TabIndex = 151 -Me.Button29.Text = "Save Glitter File" -Me.Button29.UseVisualStyleBackColor = true +Me.CBILezdom.AutoSize = true +Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom +Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdom.ForeColor = System.Drawing.Color.Black +Me.CBILezdom.Location = New System.Drawing.Point(3, 148) +Me.CBILezdom.Name = "CBILezdom" +Me.CBILezdom.Size = New System.Drawing.Size(70, 23) +Me.CBILezdom.TabIndex = 20 +Me.CBILezdom.Text = "Lezdom" +Me.CBILezdom.UseVisualStyleBackColor = true ' -'CBGlitModType +'TbxIBoobs ' -Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBGlitModType.FormattingEnabled = true -Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) -Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) -Me.CBGlitModType.Name = "CBGlitModType" -Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) -Me.CBGlitModType.TabIndex = 171 +Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray +Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black +Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) +Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.Name = "TbxIBoobs" +Me.TbxIBoobs.ReadOnly = true +Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.TabIndex = 46 +Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath ' -'Label59 +'CBIHentai ' -Me.Label59.Location = New System.Drawing.Point(33, 11) -Me.Label59.Name = "Label59" -Me.Label59.Size = New System.Drawing.Size(130, 23) -Me.Label59.TabIndex = 172 -Me.Label59.Text = "Glitter Post Type" -Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIHentai.AutoSize = true +Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai +Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentai.ForeColor = System.Drawing.Color.Black +Me.CBIHentai.Location = New System.Drawing.Point(3, 177) +Me.CBIHentai.Name = "CBIHentai" +Me.CBIHentai.Size = New System.Drawing.Size(70, 23) +Me.CBIHentai.TabIndex = 24 +Me.CBIHentai.Text = "Hentai" +Me.CBIHentai.UseVisualStyleBackColor = true ' -'Label50 +'TbxIBlowjob ' -Me.Label50.Location = New System.Drawing.Point(191, 80) -Me.Label50.Name = "Label50" -Me.Label50.Size = New System.Drawing.Size(123, 23) -Me.Label50.TabIndex = 154 -Me.Label50.Text = "Current Domme Personality:" -Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black +Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.Name = "TbxIBlowjob" +Me.TbxIBlowjob.ReadOnly = true +Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.TabIndex = 14 +Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob ' -'TabPage25 +'CBIGay ' -Me.TabPage25.BackColor = System.Drawing.Color.Silver -Me.TabPage25.Controls.Add(Me.Panel11) -Me.TabPage25.Location = New System.Drawing.Point(4, 22) -Me.TabPage25.Name = "TabPage25" -Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage25.Size = New System.Drawing.Size(720, 448) -Me.TabPage25.TabIndex = 18 -Me.TabPage25.Text = "Misc" +Me.CBIGay.AutoSize = true +Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay +Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGay.ForeColor = System.Drawing.Color.Black +Me.CBIGay.Location = New System.Drawing.Point(3, 206) +Me.CBIGay.Name = "CBIGay" +Me.CBIGay.Size = New System.Drawing.Size(70, 23) +Me.CBIGay.TabIndex = 28 +Me.CBIGay.Text = "Gay" +Me.CBIGay.UseVisualStyleBackColor = true ' -'Panel11 +'TbxIGeneral ' -Me.Panel11.BackColor = System.Drawing.Color.LightGray -Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel11.Controls.Add(Me.GroupBox62) -Me.Panel11.Controls.Add(Me.GroupBox33) -Me.Panel11.Controls.Add(Me.GroupBox27) -Me.Panel11.Controls.Add(Me.GroupBox20) -Me.Panel11.Controls.Add(Me.WebToy) -Me.Panel11.Controls.Add(Me.GroupBox15) -Me.Panel11.Controls.Add(Me.PictureBox9) -Me.Panel11.Controls.Add(Me.Label148) -Me.Panel11.Location = New System.Drawing.Point(6, 6) -Me.Panel11.Name = "Panel11" -Me.Panel11.Size = New System.Drawing.Size(708, 437) -Me.Panel11.TabIndex = 92 +Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray +Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black +Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) +Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.Name = "TbxIGeneral" +Me.TbxIGeneral.ReadOnly = true +Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.TabIndex = 42 +Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral ' -'GroupBox62 +'CBIMaledom ' -Me.GroupBox62.Controls.Add(Me.RBGerman) -Me.GroupBox62.Controls.Add(Me.RBEnglish) -Me.GroupBox62.Location = New System.Drawing.Point(420, 155) -Me.GroupBox62.Name = "GroupBox62" -Me.GroupBox62.Size = New System.Drawing.Size(277, 107) -Me.GroupBox62.TabIndex = 178 -Me.GroupBox62.TabStop = false -Me.GroupBox62.Text = "Language" +Me.CBIMaledom.AutoSize = true +Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom +Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledom.ForeColor = System.Drawing.Color.Black +Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) +Me.CBIMaledom.Name = "CBIMaledom" +Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) +Me.CBIMaledom.TabIndex = 32 +Me.CBIMaledom.Text = "Maledom" +Me.CBIMaledom.UseVisualStyleBackColor = true ' -'RBGerman +'TbxIFemdom ' -Me.RBGerman.AutoSize = true -Me.RBGerman.Location = New System.Drawing.Point(180, 20) -Me.RBGerman.Name = "RBGerman" -Me.RBGerman.Size = New System.Drawing.Size(65, 17) -Me.RBGerman.TabIndex = 1 -Me.RBGerman.Text = "Deutsch" -Me.RBGerman.UseVisualStyleBackColor = true +Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray +Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black +Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) +Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.Name = "TbxIFemdom" +Me.TbxIFemdom.ReadOnly = true +Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.TabIndex = 18 +Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom ' -'RBEnglish +'TbxICaptions ' -Me.RBEnglish.AutoSize = true -Me.RBEnglish.Checked = true -Me.RBEnglish.Location = New System.Drawing.Point(36, 19) -Me.RBEnglish.Name = "RBEnglish" -Me.RBEnglish.Size = New System.Drawing.Size(59, 17) -Me.RBEnglish.TabIndex = 0 -Me.RBEnglish.TabStop = true -Me.RBEnglish.Text = "English" -Me.RBEnglish.UseVisualStyleBackColor = true +Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray +Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxICaptions.ForeColor = System.Drawing.Color.Black +Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) +Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxICaptions.Name = "TbxICaptions" +Me.TbxICaptions.ReadOnly = true +Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) +Me.TbxICaptions.TabIndex = 38 +Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions ' -'GroupBox33 +'CBICaptions ' -Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) -Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) -Me.GroupBox33.Controls.Add(Me.Label140) -Me.GroupBox33.Controls.Add(Me.Button11) -Me.GroupBox33.Controls.Add(Me.LBLChastityState) -Me.GroupBox33.Controls.Add(Me.Label120) -Me.GroupBox33.Location = New System.Drawing.Point(420, 268) -Me.GroupBox33.Name = "GroupBox33" -Me.GroupBox33.Size = New System.Drawing.Size(277, 159) -Me.GroupBox33.TabIndex = 177 -Me.GroupBox33.TabStop = false -Me.GroupBox33.Text = "System States" +Me.CBICaptions.AutoSize = true +Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions +Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptions.ForeColor = System.Drawing.Color.Black +Me.CBICaptions.Location = New System.Drawing.Point(3, 264) +Me.CBICaptions.Name = "CBICaptions" +Me.CBICaptions.Size = New System.Drawing.Size(70, 23) +Me.CBICaptions.TabIndex = 36 +Me.CBICaptions.Text = "Captions" +Me.CBICaptions.UseVisualStyleBackColor = true ' -'BTNOfflineMode +'TbxILezdom ' -Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) -Me.BTNOfflineMode.Name = "BTNOfflineMode" -Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) -Me.BTNOfflineMode.TabIndex = 180 -Me.BTNOfflineMode.Text = "Toggle" -Me.BTNOfflineMode.UseVisualStyleBackColor = true +Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray +Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILezdom.ForeColor = System.Drawing.Color.Black +Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) +Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILezdom.Name = "TbxILezdom" +Me.TbxILezdom.ReadOnly = true +Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) +Me.TbxILezdom.TabIndex = 22 +Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom ' -'LBLOfflineMode +'TbxIMaledom ' -Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray -Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red -Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) -Me.LBLOfflineMode.Name = "LBLOfflineMode" -Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) -Me.LBLOfflineMode.TabIndex = 179 -Me.LBLOfflineMode.Text = "OFF" -Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray +Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black +Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) +Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.Name = "TbxIMaledom" +Me.TbxIMaledom.ReadOnly = true +Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.TabIndex = 34 +Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom ' -'Label140 +'TbxIHentai ' -Me.Label140.BackColor = System.Drawing.Color.LightGray -Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label140.Location = New System.Drawing.Point(17, 70) -Me.Label140.Name = "Label140" -Me.Label140.Size = New System.Drawing.Size(98, 23) -Me.Label140.TabIndex = 178 -Me.Label140.Text = "OFFLINE MODE" -Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray +Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHentai.ForeColor = System.Drawing.Color.Black +Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) +Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHentai.Name = "TbxIHentai" +Me.TbxIHentai.ReadOnly = true +Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) +Me.TbxIHentai.TabIndex = 26 +Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai +' +'CBIGeneral +' +Me.CBIGeneral.AutoSize = true +Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral +Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneral.ForeColor = System.Drawing.Color.Black +Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) +Me.CBIGeneral.Name = "CBIGeneral" +Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) +Me.CBIGeneral.TabIndex = 40 +Me.CBIGeneral.Text = "General" +Me.CBIGeneral.UseVisualStyleBackColor = true ' -'Button11 +'TbxIGay ' -Me.Button11.Location = New System.Drawing.Point(161, 33) -Me.Button11.Name = "Button11" -Me.Button11.Size = New System.Drawing.Size(99, 23) -Me.Button11.TabIndex = 177 -Me.Button11.Text = "Toggle" -Me.Button11.UseVisualStyleBackColor = true +Me.TbxIGay.BackColor = System.Drawing.Color.LightGray +Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGay.ForeColor = System.Drawing.Color.Black +Me.TbxIGay.Location = New System.Drawing.Point(115, 208) +Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGay.Name = "TbxIGay" +Me.TbxIGay.ReadOnly = true +Me.TbxIGay.Size = New System.Drawing.Size(217, 17) +Me.TbxIGay.TabIndex = 30 +Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay ' -'LBLChastityState +'CBIBoobs ' -Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray -Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLChastityState.ForeColor = System.Drawing.Color.Red -Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) -Me.LBLChastityState.Name = "LBLChastityState" -Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) -Me.LBLChastityState.TabIndex = 3 -Me.LBLChastityState.Text = "OFF" -Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIBoobs.AutoSize = true +Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs +Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBoobs.ForeColor = System.Drawing.Color.Black +Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) +Me.CBIBoobs.Name = "CBIBoobs" +Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) +Me.CBIBoobs.TabIndex = 44 +Me.CBIBoobs.Text = "Boobs" +Me.CBIBoobs.UseVisualStyleBackColor = true ' -'Label120 +'CBIButts ' -Me.Label120.BackColor = System.Drawing.Color.LightGray -Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label120.Location = New System.Drawing.Point(17, 33) -Me.Label120.Name = "Label120" -Me.Label120.Size = New System.Drawing.Size(98, 23) -Me.Label120.TabIndex = 2 -Me.Label120.Text = "CHASTITY" -Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIButts.AutoSize = true +Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts +Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIButts.ForeColor = System.Drawing.Color.Black +Me.CBIButts.Location = New System.Drawing.Point(3, 351) +Me.CBIButts.Name = "CBIButts" +Me.CBIButts.Size = New System.Drawing.Size(70, 27) +Me.CBIButts.TabIndex = 48 +Me.CBIButts.Text = "Butts" +Me.CBIButts.UseVisualStyleBackColor = true ' -'GroupBox27 +'TxbVideoGeneralD ' -Me.GroupBox27.Controls.Add(Me.Button6) -Me.GroupBox27.Controls.Add(Me.LBLSesSpace) -Me.GroupBox27.Controls.Add(Me.Button3) -Me.GroupBox27.Controls.Add(Me.LBLSesFiles) -Me.GroupBox27.Controls.Add(Me.Label125) -Me.GroupBox27.Controls.Add(Me.Label124) -Me.GroupBox27.Location = New System.Drawing.Point(420, 32) -Me.GroupBox27.Name = "GroupBox27" -Me.GroupBox27.Size = New System.Drawing.Size(279, 117) -Me.GroupBox27.TabIndex = 176 -Me.GroupBox27.TabStop = false -Me.GroupBox27.Text = "Session Images" +Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" +Me.TxbVideoGeneralD.ReadOnly = true +Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.TabIndex = 2 +Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD ' -'Button6 +'CBVideoGeneralD ' -Me.Button6.Location = New System.Drawing.Point(143, 76) -Me.Button6.Name = "Button6" -Me.Button6.Size = New System.Drawing.Size(117, 23) -Me.Button6.TabIndex = 176 -Me.Button6.Text = "Delete All Files" -Me.Button6.UseVisualStyleBackColor = true +Me.CBVideoGeneralD.AutoSize = true +Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD +Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneralD.Name = "CBVideoGeneralD" +Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneralD.TabIndex = 0 +Me.CBVideoGeneralD.Text = "General" +Me.CBVideoGeneralD.UseVisualStyleBackColor = true ' -'LBLSesSpace +'TxbVideoCHD ' -Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) -Me.LBLSesSpace.Name = "LBLSesSpace" -Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) -Me.LBLSesSpace.TabIndex = 3 +Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.Name = "TxbVideoCHD" +Me.TxbVideoCHD.ReadOnly = true +Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.TabIndex = 6 +Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD ' -'Button3 +'TxbVideoJOID ' -Me.Button3.Location = New System.Drawing.Point(20, 76) -Me.Button3.Name = "Button3" -Me.Button3.Size = New System.Drawing.Size(117, 23) -Me.Button3.TabIndex = 175 -Me.Button3.Text = "Open Folder" -Me.Button3.UseVisualStyleBackColor = true +Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.Name = "TxbVideoJOID" +Me.TxbVideoJOID.ReadOnly = true +Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.TabIndex = 2 +Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID ' -'LBLSesFiles +'CBVideoJOID ' -Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) -Me.LBLSesFiles.Name = "LBLSesFiles" -Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) -Me.LBLSesFiles.TabIndex = 2 +Me.CBVideoJOID.AutoSize = true +Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID +Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOID.Name = "CBVideoJOID" +Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOID.TabIndex = 0 +Me.CBVideoJOID.Text = "JOI" +Me.CBVideoJOID.UseVisualStyleBackColor = true ' -'Label125 +'CBVideoCHD ' -Me.Label125.AutoSize = true -Me.Label125.Location = New System.Drawing.Point(17, 53) -Me.Label125.Name = "Label125" -Me.Label125.Size = New System.Drawing.Size(120, 13) -Me.Label125.TabIndex = 1 -Me.Label125.Text = "Total Disk Space Used:" +Me.CBVideoCHD.AutoSize = true +Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD +Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black +Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCHD.Name = "CBVideoCHD" +Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCHD.TabIndex = 4 +Me.CBVideoCHD.Text = "CH" +Me.CBVideoCHD.UseVisualStyleBackColor = true ' -'Label124 +'TxbVideoFemsubD ' -Me.Label124.AutoSize = true -Me.Label124.Location = New System.Drawing.Point(17, 24) -Me.Label124.Name = "Label124" -Me.Label124.Size = New System.Drawing.Size(126, 13) -Me.Label124.TabIndex = 0 -Me.Label124.Text = "Number of Files in Folder:" +Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" +Me.TxbVideoFemsubD.ReadOnly = true +Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.TabIndex = 22 +Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD ' -'GroupBox20 +'TxbVideoFemdomD ' -Me.GroupBox20.Controls.Add(Me.Button1) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) -Me.GroupBox20.Controls.Add(Me.Label117) -Me.GroupBox20.Controls.Add(Me.Label116) -Me.GroupBox20.Controls.Add(Me.PBCurrent) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) -Me.GroupBox20.Controls.Add(Me.PBMaintenance) -Me.GroupBox20.Controls.Add(Me.LBLMaintenance) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) -Me.GroupBox20.Location = New System.Drawing.Point(6, 32) -Me.GroupBox20.Name = "GroupBox20" -Me.GroupBox20.Size = New System.Drawing.Size(408, 230) -Me.GroupBox20.TabIndex = 174 -Me.GroupBox20.TabStop = false -Me.GroupBox20.Text = "Maintenance" +Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" +Me.TxbVideoFemdomD.ReadOnly = true +Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.TabIndex = 18 +Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD ' -'Button1 +'TxbVideoBlowjobD ' -Me.Button1.Enabled = false -Me.Button1.Location = New System.Drawing.Point(270, 19) -Me.Button1.Name = "Button1" -Me.Button1.Size = New System.Drawing.Size(121, 23) -Me.Button1.TabIndex = 176 -Me.Button1.Text = "Reset Settings" -Me.Button1.UseVisualStyleBackColor = true +Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" +Me.TxbVideoBlowjobD.ReadOnly = true +Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.TabIndex = 14 +Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD ' -'BTNMaintenanceScripts +'TxbVideoLesbianD ' -Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) -Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" -Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceScripts.TabIndex = 175 -Me.BTNMaintenanceScripts.Text = "Audit Scripts" -Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true +Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" +Me.TxbVideoLesbianD.ReadOnly = true +Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.TabIndex = 10 +Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD ' -'BTNMaintenanceRefresh +'TxbVideoSoftCoreD ' -Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) -Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" -Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRefresh.TabIndex = 7 -Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" -Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true +Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" +Me.TxbVideoSoftCoreD.ReadOnly = true +Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.TabIndex = 6 +Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD ' -'Label117 +'TxbVideoHardCoreD ' -Me.Label117.AutoSize = true -Me.Label117.Location = New System.Drawing.Point(15, 182) -Me.Label117.Name = "Label117" -Me.Label117.Size = New System.Drawing.Size(84, 13) -Me.Label117.TabIndex = 6 -Me.Label117.Text = "Overall Progress" +Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" +Me.TxbVideoHardCoreD.ReadOnly = true +Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.TabIndex = 2 +Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD ' -'Label116 +'CBVideoHardcoreD ' -Me.Label116.AutoSize = true -Me.Label116.Location = New System.Drawing.Point(15, 140) -Me.Label116.Name = "Label116" -Me.Label116.Size = New System.Drawing.Size(85, 13) -Me.Label116.TabIndex = 5 -Me.Label116.Text = "Current Progress" +Me.CBVideoHardcoreD.AutoSize = true +Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD +Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" +Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcoreD.TabIndex = 0 +Me.CBVideoHardcoreD.Text = "Hardcore" +Me.CBVideoHardcoreD.UseVisualStyleBackColor = true ' -'PBCurrent +'CBVideoSoftCoreD ' -Me.PBCurrent.Location = New System.Drawing.Point(15, 156) -Me.PBCurrent.Name = "PBCurrent" -Me.PBCurrent.Size = New System.Drawing.Size(376, 23) -Me.PBCurrent.TabIndex = 4 +Me.CBVideoSoftCoreD.AutoSize = true +Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD +Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" +Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCoreD.TabIndex = 4 +Me.CBVideoSoftCoreD.Text = "Softcore" +Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true ' -'BTNMaintenanceCancel +'CBVideoLesbianD ' -Me.BTNMaintenanceCancel.Enabled = false -Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) -Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" -Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceCancel.TabIndex = 3 -Me.BTNMaintenanceCancel.Text = "Cancel" -Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true +Me.CBVideoLesbianD.AutoSize = true +Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD +Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbianD.Name = "CBVideoLesbianD" +Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbianD.TabIndex = 8 +Me.CBVideoLesbianD.Text = "Lesbian" +Me.CBVideoLesbianD.UseVisualStyleBackColor = true ' -'PBMaintenance +'CBVideoBlowjobD ' -Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) -Me.PBMaintenance.Name = "PBMaintenance" -Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) -Me.PBMaintenance.TabIndex = 2 +Me.CBVideoBlowjobD.AutoSize = true +Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD +Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" +Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjobD.TabIndex = 12 +Me.CBVideoBlowjobD.Text = "Blowjob" +Me.CBVideoBlowjobD.UseVisualStyleBackColor = true ' -'LBLMaintenance +'CBVideoFemsubD ' -Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) -Me.LBLMaintenance.Name = "LBLMaintenance" -Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) -Me.LBLMaintenance.TabIndex = 1 -Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBVideoFemsubD.AutoSize = true +Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD +Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsubD.Name = "CBVideoFemsubD" +Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsubD.TabIndex = 20 +Me.CBVideoFemsubD.Text = "Femsub" +Me.CBVideoFemsubD.UseVisualStyleBackColor = true ' -'BTNMaintenanceRebuild +'CBVideoFemdomD ' -Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) -Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" -Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRebuild.TabIndex = 0 -Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" -Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true +Me.CBVideoFemdomD.AutoSize = true +Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD +Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdomD.Name = "CBVideoFemdomD" +Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdomD.TabIndex = 16 +Me.CBVideoFemdomD.Text = "Femdom" +Me.CBVideoFemdomD.UseVisualStyleBackColor = true ' -'WebToy +'TxbVideoGeneral ' -Me.WebToy.Location = New System.Drawing.Point(16, 379) -Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) -Me.WebToy.Name = "WebToy" -Me.WebToy.Size = New System.Drawing.Size(381, 36) -Me.WebToy.TabIndex = 172 +Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.Name = "TxbVideoGeneral" +Me.TxbVideoGeneral.ReadOnly = true +Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.TabIndex = 2 +Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral ' -'GroupBox15 +'CBVideoGeneral ' -Me.GroupBox15.Controls.Add(Me.Label115) -Me.GroupBox15.Controls.Add(Me.TBWebStop) -Me.GroupBox15.Controls.Add(Me.TBWebStart) -Me.GroupBox15.Controls.Add(Me.Label114) -Me.GroupBox15.Location = New System.Drawing.Point(6, 268) -Me.GroupBox15.Name = "GroupBox15" -Me.GroupBox15.Size = New System.Drawing.Size(408, 159) -Me.GroupBox15.TabIndex = 173 -Me.GroupBox15.TabStop = false -Me.GroupBox15.Text = "Web-Controlled Sex Toy" +Me.CBVideoGeneral.AutoSize = true +Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral +Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneral.Name = "CBVideoGeneral" +Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneral.TabIndex = 0 +Me.CBVideoGeneral.Text = "General" +Me.CBVideoGeneral.UseVisualStyleBackColor = true ' -'Label115 +'TxbVideoCH ' -Me.Label115.AutoSize = true -Me.Label115.Location = New System.Drawing.Point(12, 58) -Me.Label115.Name = "Label115" -Me.Label115.Size = New System.Drawing.Size(54, 13) -Me.Label115.TabIndex = 171 -Me.Label115.Text = "Stop URL" +Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.Name = "TxbVideoCH" +Me.TxbVideoCH.ReadOnly = true +Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.TabIndex = 6 +Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH ' -'TBWebStop +'TxbVideoJOI ' -Me.TBWebStop.Location = New System.Drawing.Point(10, 72) -Me.TBWebStop.Name = "TBWebStop" -Me.TBWebStop.Size = New System.Drawing.Size(381, 20) -Me.TBWebStop.TabIndex = 170 +Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.Name = "TxbVideoJOI" +Me.TxbVideoJOI.ReadOnly = true +Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.TabIndex = 2 +Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI ' -'TBWebStart +'CBVideoJOI ' -Me.TBWebStart.Location = New System.Drawing.Point(10, 33) -Me.TBWebStart.Name = "TBWebStart" -Me.TBWebStart.Size = New System.Drawing.Size(381, 20) -Me.TBWebStart.TabIndex = 167 +Me.CBVideoJOI.AutoSize = true +Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI +Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOI.Name = "CBVideoJOI" +Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOI.TabIndex = 0 +Me.CBVideoJOI.Text = "JOI" +Me.CBVideoJOI.UseVisualStyleBackColor = true ' -'Label114 +'CBVideoCH ' -Me.Label114.AutoSize = true -Me.Label114.Location = New System.Drawing.Point(12, 17) -Me.Label114.Name = "Label114" -Me.Label114.Size = New System.Drawing.Size(54, 13) -Me.Label114.TabIndex = 168 -Me.Label114.Text = "Start URL" +Me.CBVideoCH.AutoSize = true +Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH +Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCH.ForeColor = System.Drawing.Color.Black +Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCH.Name = "CBVideoCH" +Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCH.TabIndex = 4 +Me.CBVideoCH.Text = "CH" +Me.CBVideoCH.UseVisualStyleBackColor = true ' -'PictureBox9 +'TxbVideoFemsub ' -Me.PictureBox9.BackColor = System.Drawing.Color.LightGray -Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox9.Location = New System.Drawing.Point(9, 6) -Me.PictureBox9.Name = "PictureBox9" -Me.PictureBox9.Size = New System.Drawing.Size(160, 19) -Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox9.TabIndex = 166 -Me.PictureBox9.TabStop = false +Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.Name = "TxbVideoFemsub" +Me.TxbVideoFemsub.ReadOnly = true +Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.TabIndex = 22 +Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub ' -'Label148 +'TxbVideoFemdom ' -Me.Label148.BackColor = System.Drawing.Color.Transparent -Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label148.ForeColor = System.Drawing.Color.Black -Me.Label148.Location = New System.Drawing.Point(7, 6) -Me.Label148.Name = "Label148" -Me.Label148.Size = New System.Drawing.Size(692, 21) -Me.Label148.TabIndex = 48 -Me.Label148.Text = "Miscellaneous Settings" -Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.Name = "TxbVideoFemdom" +Me.TxbVideoFemdom.ReadOnly = true +Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.TabIndex = 18 +Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom ' -'TabPage28 +'TxbVideoBlowjob ' -Me.TabPage28.BackColor = System.Drawing.Color.Silver -Me.TabPage28.Controls.Add(Me.TabControl3) -Me.TabPage28.Location = New System.Drawing.Point(4, 22) -Me.TabPage28.Name = "TabPage28" -Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage28.Size = New System.Drawing.Size(720, 448) -Me.TabPage28.TabIndex = 20 -Me.TabPage28.Text = "Debug" +Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" +Me.TxbVideoBlowjob.ReadOnly = true +Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.TabIndex = 14 +Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob ' -'TabControl3 +'TxbVideoLesbian ' -Me.TabControl3.Controls.Add(Me.TabPage29) -Me.TabControl3.Controls.Add(Me.TabPage30) -Me.TabControl3.Location = New System.Drawing.Point(6, 6) -Me.TabControl3.Name = "TabControl3" -Me.TabControl3.SelectedIndex = 0 -Me.TabControl3.Size = New System.Drawing.Size(708, 437) -Me.TabControl3.TabIndex = 0 +Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.Name = "TxbVideoLesbian" +Me.TxbVideoLesbian.ReadOnly = true +Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.TabIndex = 10 +Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian ' -'TabPage29 +'TxbVideoSoftCore ' -Me.TabPage29.BackColor = System.Drawing.Color.LightGray -Me.TabPage29.Controls.Add(Me.Label143) -Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) -Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) -Me.TabPage29.Controls.Add(Me.GroupBox26) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) -Me.TabPage29.Controls.Add(Me.Label145) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) -Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) -Me.TabPage29.Controls.Add(Me.Label142) -Me.TabPage29.Controls.Add(Me.Label150) -Me.TabPage29.Controls.Add(Me.Label152) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) -Me.TabPage29.Controls.Add(Me.Label147) -Me.TabPage29.Location = New System.Drawing.Point(4, 22) -Me.TabPage29.Name = "TabPage29" -Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage29.Size = New System.Drawing.Size(700, 411) -Me.TabPage29.TabIndex = 0 -Me.TabPage29.Text = "TabPage29" +Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" +Me.TxbVideoSoftCore.ReadOnly = true +Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.TabIndex = 6 +Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore ' -'Label143 +'TxbVideoHardCore ' -Me.Label143.Location = New System.Drawing.Point(402, 46) -Me.Label143.Name = "Label143" -Me.Label143.Size = New System.Drawing.Size(67, 23) -Me.Label143.TabIndex = 15 -Me.Label143.Text = "Script Timer" -Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.Name = "TxbVideoHardCore" +Me.TxbVideoHardCore.ReadOnly = true +Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.TabIndex = 2 +Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore ' -'LBLDebugScriptTime +'CBVideoHardcore ' -Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) -Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" -Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugScriptTime.TabIndex = 16 -Me.LBLDebugScriptTime.Text = "0" -Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBVideoHardcore.AutoSize = true +Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore +Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcore.Name = "CBVideoHardcore" +Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcore.TabIndex = 0 +Me.CBVideoHardcore.Text = "Hardcore" +Me.CBVideoHardcore.UseVisualStyleBackColor = true ' -'BTNDebugHoldEdgeTimer +'CBVideoSoftCore ' -Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) -Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" -Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugHoldEdgeTimer.TabIndex = 14 -Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" -Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true +Me.CBVideoSoftCore.AutoSize = true +Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore +Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCore.Name = "CBVideoSoftCore" +Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCore.TabIndex = 4 +Me.CBVideoSoftCore.Text = "Softcore" +Me.CBVideoSoftCore.UseVisualStyleBackColor = true ' -'GroupBox26 +'CBVideoLesbian ' -Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) -Me.GroupBox26.Controls.Add(Me.Button19) -Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) -Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) -Me.GroupBox26.Location = New System.Drawing.Point(6, 5) -Me.GroupBox26.Name = "GroupBox26" -Me.GroupBox26.Size = New System.Drawing.Size(346, 178) -Me.GroupBox26.TabIndex = 0 -Me.GroupBox26.TabStop = false -Me.GroupBox26.Text = "Taunt Cycle" +Me.CBVideoLesbian.AutoSize = true +Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian +Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbian.Name = "CBVideoLesbian" +Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbian.TabIndex = 8 +Me.CBVideoLesbian.Text = "Lesbian" +Me.CBVideoLesbian.UseVisualStyleBackColor = true ' -'LBLCycleDebugCountdown +'CBVideoBlowjob ' -Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) -Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" -Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) -Me.LBLCycleDebugCountdown.TabIndex = 10 -Me.LBLCycleDebugCountdown.Text = "0" -Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBVideoBlowjob.AutoSize = true +Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob +Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjob.Name = "CBVideoBlowjob" +Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjob.TabIndex = 12 +Me.CBVideoBlowjob.Text = "Blowjob" +Me.CBVideoBlowjob.UseVisualStyleBackColor = true ' -'Button19 +'CBVideoFemsub ' -Me.Button19.Location = New System.Drawing.Point(191, 142) -Me.Button19.Name = "Button19" -Me.Button19.Size = New System.Drawing.Size(146, 30) -Me.Button19.TabIndex = 9 -Me.Button19.Text = "Countdown to 5 Seconds" -Me.Button19.UseVisualStyleBackColor = true +Me.CBVideoFemsub.AutoSize = true +Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub +Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsub.Name = "CBVideoFemsub" +Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsub.TabIndex = 20 +Me.CBVideoFemsub.Text = "Femsub" +Me.CBVideoFemsub.UseVisualStyleBackColor = true ' -'BTNDebugTauntsClear +'CBVideoFemdom ' -Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) -Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" -Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) -Me.BTNDebugTauntsClear.TabIndex = 8 -Me.BTNDebugTauntsClear.Text = "Clear" -Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true +Me.CBVideoFemdom.AutoSize = true +Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom +Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdom.Name = "CBVideoFemdom" +Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdom.TabIndex = 16 +Me.CBVideoFemdom.Text = "Femdom" +Me.CBVideoFemdom.UseVisualStyleBackColor = true ' -'TBDebugTaunts3 +'CBGlitterFeedScripts ' -Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) -Me.TBDebugTaunts3.Name = "TBDebugTaunts3" -Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts3.TabIndex = 7 +Me.CBGlitterFeedScripts.AutoSize = true +Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent +Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts +Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) +Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) +Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" +Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) +Me.CBGlitterFeedScripts.TabIndex = 146 +Me.CBGlitterFeedScripts.Text = "Scripts" +Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false ' -'TBDebugTaunts2 +'CBGlitterFeed ' -Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) -Me.TBDebugTaunts2.Name = "TBDebugTaunts2" -Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts2.TabIndex = 6 +Me.CBGlitterFeed.AutoSize = true +Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed +Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) +Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) +Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) +Me.CBGlitterFeed.Name = "CBGlitterFeed" +Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeed.TabIndex = 145 +Me.CBGlitterFeed.Text = "On" +Me.CBGlitterFeed.UseVisualStyleBackColor = true ' -'TBDebugTaunts1 +'CBGlitterFeedOff ' -Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) -Me.TBDebugTaunts1.Name = "TBDebugTaunts1" -Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts1.TabIndex = 5 +Me.CBGlitterFeedOff.AutoSize = true +Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff +Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) +Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) +Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" +Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeedOff.TabIndex = 147 +Me.CBGlitterFeedOff.TabStop = true +Me.CBGlitterFeedOff.Text = "Off" +Me.CBGlitterFeedOff.UseVisualStyleBackColor = true ' -'RBDebugTaunts3 +'LBLGlitterNCDomme ' -Me.RBDebugTaunts3.AutoSize = true -Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) -Me.RBDebugTaunts3.Name = "RBDebugTaunts3" -Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts3.TabIndex = 4 -Me.RBDebugTaunts3.Text = "3 Lines" -Me.RBDebugTaunts3.UseVisualStyleBackColor = true +Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White +Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor +Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" +Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNCDomme.TabIndex = 163 +Me.LBLGlitterNCDomme.Text = "Preview" +Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'RBDebugTaunts2 +'CBCustom2 ' -Me.RBDebugTaunts2.AutoSize = true -Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) -Me.RBDebugTaunts2.Name = "RBDebugTaunts2" -Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts2.TabIndex = 3 -Me.RBDebugTaunts2.Text = "2 Lines" -Me.RBDebugTaunts2.UseVisualStyleBackColor = true +Me.CBCustom2.AutoSize = true +Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 +Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom2.ForeColor = System.Drawing.Color.Black +Me.CBCustom2.Location = New System.Drawing.Point(149, 121) +Me.CBCustom2.Name = "CBCustom2" +Me.CBCustom2.Size = New System.Drawing.Size(70, 17) +Me.CBCustom2.TabIndex = 161 +Me.CBCustom2.Text = "Custom 2" +Me.CBCustom2.UseVisualStyleBackColor = true ' -'RBDebugTaunts1 +'GlitterSlider ' -Me.RBDebugTaunts1.AutoSize = true -Me.RBDebugTaunts1.Checked = true -Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) -Me.RBDebugTaunts1.Name = "RBDebugTaunts1" -Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) -Me.RBDebugTaunts1.TabIndex = 2 -Me.RBDebugTaunts1.TabStop = true -Me.RBDebugTaunts1.Text = "1 Line" -Me.RBDebugTaunts1.UseVisualStyleBackColor = true +Me.GlitterSlider.AutoSize = false +Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider.LargeChange = 1 +Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider.Maximum = 9 +Me.GlitterSlider.Minimum = 1 +Me.GlitterSlider.Name = "GlitterSlider" +Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider.TabIndex = 160 +Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider ' -'CBDebugTauntsEndless +'CBCustom1 ' -Me.CBDebugTauntsEndless.AutoSize = true -Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) -Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" -Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) -Me.CBDebugTauntsEndless.TabIndex = 1 -Me.CBDebugTauntsEndless.Text = "Endless Cycle" -Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true +Me.CBCustom1.AutoSize = true +Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 +Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom1.ForeColor = System.Drawing.Color.Black +Me.CBCustom1.Location = New System.Drawing.Point(149, 98) +Me.CBCustom1.Name = "CBCustom1" +Me.CBCustom1.Size = New System.Drawing.Size(70, 17) +Me.CBCustom1.TabIndex = 157 +Me.CBCustom1.Text = "Custom 1" +Me.CBCustom1.UseVisualStyleBackColor = true ' -'CBDebugTaunts +'CBDaily ' -Me.CBDebugTaunts.AutoSize = true -Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) -Me.CBDebugTaunts.Name = "CBDebugTaunts" -Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) -Me.CBDebugTaunts.TabIndex = 0 -Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" -Me.CBDebugTaunts.UseVisualStyleBackColor = true +Me.CBDaily.AutoSize = true +Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily +Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBDaily.ForeColor = System.Drawing.Color.Black +Me.CBDaily.Location = New System.Drawing.Point(79, 121) +Me.CBDaily.Name = "CBDaily" +Me.CBDaily.Size = New System.Drawing.Size(49, 17) +Me.CBDaily.TabIndex = 156 +Me.CBDaily.Text = "Daily" +Me.CBDaily.UseVisualStyleBackColor = true ' -'BTNDebugStrokeTauntTimer +'CBTrivia ' -Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) -Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" -Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTauntTimer.TabIndex = 8 -Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" -Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true +Me.CBTrivia.AutoSize = true +Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia +Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTrivia.ForeColor = System.Drawing.Color.Black +Me.CBTrivia.Location = New System.Drawing.Point(79, 98) +Me.CBTrivia.Name = "CBTrivia" +Me.CBTrivia.Size = New System.Drawing.Size(52, 17) +Me.CBTrivia.TabIndex = 155 +Me.CBTrivia.Text = "Trivia" +Me.CBTrivia.UseVisualStyleBackColor = true ' -'LBLDebugHoldEdgeTime +'TBGlitterShortName ' -Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) -Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" -Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugHoldEdgeTime.TabIndex = 13 -Me.LBLDebugHoldEdgeTime.Text = "0" -Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TBGlitterShortName.BackColor = System.Drawing.Color.White +Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black +Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) +Me.TBGlitterShortName.Name = "TBGlitterShortName" +Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) +Me.TBGlitterShortName.TabIndex = 49 +Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN +Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'CBEgotist +' +Me.CBEgotist.AutoSize = true +Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist +Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBEgotist.ForeColor = System.Drawing.Color.Black +Me.CBEgotist.Location = New System.Drawing.Point(9, 121) +Me.CBEgotist.Name = "CBEgotist" +Me.CBEgotist.Size = New System.Drawing.Size(58, 17) +Me.CBEgotist.TabIndex = 153 +Me.CBEgotist.Text = "Egotist" +Me.CBEgotist.UseVisualStyleBackColor = true ' -'Label145 +'CBTease ' -Me.Label145.Location = New System.Drawing.Point(402, 11) -Me.Label145.Name = "Label145" -Me.Label145.Size = New System.Drawing.Size(67, 23) -Me.Label145.TabIndex = 3 -Me.Label145.Text = "Tease Timer" -Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTease.AutoSize = true +Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease +Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTease.ForeColor = System.Drawing.Color.Black +Me.CBTease.Location = New System.Drawing.Point(9, 98) +Me.CBTease.Name = "CBTease" +Me.CBTease.Size = New System.Drawing.Size(56, 17) +Me.CBTease.TabIndex = 152 +Me.CBTease.Text = "Tease" +Me.CBTease.UseVisualStyleBackColor = true ' -'BTNDebugStrokeTime +'TbxContact1ImageDir ' -Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) -Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" -Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTime.TabIndex = 2 -Me.BTNDebugStrokeTime.Text = "Set to 5" -Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true +Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" +Me.TbxContact1ImageDir.ReadOnly = true +Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.TabIndex = 176 +Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir ' -'BTNDebugEdgeTauntTimer +'LBLGlitterNC1 ' -Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) -Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" -Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugEdgeTauntTimer.TabIndex = 11 -Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" -Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true +Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color +Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC1.Name = "LBLGlitterNC1" +Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC1.TabIndex = 166 +Me.LBLGlitterNC1.Text = "Preview" +Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLDebugTeaseTime +'GlitterSlider1 ' -Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) -Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" -Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugTeaseTime.TabIndex = 4 -Me.LBLDebugTeaseTime.Text = "0" -Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GlitterSlider1.AutoSize = false +Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider1.LargeChange = 1 +Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider1.Maximum = 9 +Me.GlitterSlider1.Minimum = 1 +Me.GlitterSlider1.Name = "GlitterSlider1" +Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider1.TabIndex = 161 +Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider ' -'LBLDebugStrokeTime +'CBGlitter1 ' -Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) -Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" -Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTime.TabIndex = 1 -Me.LBLDebugStrokeTime.Text = "0" -Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBGlitter1.AutoSize = true +Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 +Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter1.ForeColor = System.Drawing.Color.Black +Me.CBGlitter1.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter1.Name = "CBGlitter1" +Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter1.TabIndex = 151 +Me.CBGlitter1.Text = "Enable This Contact" +Me.CBGlitter1.UseVisualStyleBackColor = true ' -'LBLDebugEdgeTauntTime +'TBGlitter1 ' -Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) -Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" -Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugEdgeTauntTime.TabIndex = 10 -Me.LBLDebugEdgeTauntTime.Text = "0" -Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TBGlitter1.BackColor = System.Drawing.Color.White +Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter1.ForeColor = System.Drawing.Color.Black +Me.TBGlitter1.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter1.Name = "TBGlitter1" +Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter1.TabIndex = 49 +Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 +Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BTNDebugTeaseTimer +'TbxContact3ImageDir ' -Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) -Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" -Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugTeaseTimer.TabIndex = 5 -Me.BTNDebugTeaseTimer.Text = "Set to 5" -Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true +Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" +Me.TbxContact3ImageDir.ReadOnly = true +Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.TabIndex = 178 +Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir ' -'Label142 +'LBLGlitterNC3 ' -Me.Label142.Location = New System.Drawing.Point(402, 121) -Me.Label142.Name = "Label142" -Me.Label142.Size = New System.Drawing.Size(67, 23) -Me.Label142.TabIndex = 0 -Me.Label142.Text = "Stroke Timer" -Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color +Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC3.Name = "LBLGlitterNC3" +Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC3.TabIndex = 166 +Me.LBLGlitterNC3.Text = "Preview" +Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label150 +'GlitterSlider3 ' -Me.Label150.Location = New System.Drawing.Point(402, 206) -Me.Label150.Name = "Label150" -Me.Label150.Size = New System.Drawing.Size(67, 27) -Me.Label150.TabIndex = 9 -Me.Label150.Text = "Edge Taunt Timer" -Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GlitterSlider3.AutoSize = false +Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider3.LargeChange = 1 +Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider3.Maximum = 9 +Me.GlitterSlider3.Minimum = 1 +Me.GlitterSlider3.Name = "GlitterSlider3" +Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider3.TabIndex = 161 +Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider ' -'Label152 +'CBGlitter3 ' -Me.Label152.Location = New System.Drawing.Point(402, 238) -Me.Label152.Name = "Label152" -Me.Label152.Size = New System.Drawing.Size(67, 40) -Me.Label152.TabIndex = 12 -Me.Label152.Text = "Hold Edge Timer" -Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBGlitter3.AutoSize = true +Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 +Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter3.ForeColor = System.Drawing.Color.Black +Me.CBGlitter3.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter3.Name = "CBGlitter3" +Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter3.TabIndex = 151 +Me.CBGlitter3.Text = "Enable This Contact" +Me.CBGlitter3.UseVisualStyleBackColor = true ' -'LBLDebugStrokeTauntTime +'TBGlitter3 ' -Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) -Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" -Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTauntTime.TabIndex = 7 -Me.LBLDebugStrokeTauntTime.Text = "0" -Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TBGlitter3.BackColor = System.Drawing.Color.White +Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter3.ForeColor = System.Drawing.Color.Black +Me.TBGlitter3.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter3.Name = "TBGlitter3" +Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter3.TabIndex = 49 +Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 +Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label147 +'TbxContact2ImageDir ' -Me.Label147.Location = New System.Drawing.Point(402, 143) -Me.Label147.Name = "Label147" -Me.Label147.Size = New System.Drawing.Size(67, 29) -Me.Label147.TabIndex = 6 -Me.Label147.Text = "Stroke Taunt Timer" -Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" +Me.TbxContact2ImageDir.ReadOnly = true +Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.TabIndex = 178 +Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir ' -'TabPage30 +'LBLGlitterNC2 ' -Me.TabPage30.BackColor = System.Drawing.Color.LightGray -Me.TabPage30.Controls.Add(Me.Button33) -Me.TabPage30.Controls.Add(Me.Button24) -Me.TabPage30.Location = New System.Drawing.Point(4, 22) -Me.TabPage30.Name = "TabPage30" -Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage30.Size = New System.Drawing.Size(700, 411) -Me.TabPage30.TabIndex = 1 -Me.TabPage30.Text = "TabPage30" +Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color +Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC2.Name = "LBLGlitterNC2" +Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC2.TabIndex = 166 +Me.LBLGlitterNC2.Text = "Preview" +Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Button33 +'GlitterSlider2 ' -Me.Button33.Location = New System.Drawing.Point(6, 35) -Me.Button33.Name = "Button33" -Me.Button33.Size = New System.Drawing.Size(75, 23) -Me.Button33.TabIndex = 1 -Me.Button33.Text = "LoadState" -Me.Button33.UseVisualStyleBackColor = true +Me.GlitterSlider2.AutoSize = false +Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider2.LargeChange = 1 +Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider2.Maximum = 9 +Me.GlitterSlider2.Minimum = 1 +Me.GlitterSlider2.Name = "GlitterSlider2" +Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider2.TabIndex = 161 +Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider ' -'Button24 +'CBGlitter2 ' -Me.Button24.Location = New System.Drawing.Point(6, 6) -Me.Button24.Name = "Button24" -Me.Button24.Size = New System.Drawing.Size(75, 23) -Me.Button24.TabIndex = 0 -Me.Button24.Text = "SaveState" -Me.Button24.UseVisualStyleBackColor = true +Me.CBGlitter2.AutoSize = true +Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 +Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter2.ForeColor = System.Drawing.Color.Black +Me.CBGlitter2.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter2.Name = "CBGlitter2" +Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter2.TabIndex = 151 +Me.CBGlitter2.Text = "Enable This Contact" +Me.CBGlitter2.UseVisualStyleBackColor = true ' -'TabPage5 +'TBGlitter2 ' -Me.TabPage5.BackColor = System.Drawing.Color.Silver -Me.TabPage5.Controls.Add(Me.Panel5) -Me.TabPage5.Location = New System.Drawing.Point(4, 22) -Me.TabPage5.Name = "TabPage5" -Me.TabPage5.Size = New System.Drawing.Size(720, 448) -Me.TabPage5.TabIndex = 17 -Me.TabPage5.Text = "About" +Me.TBGlitter2.BackColor = System.Drawing.Color.White +Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter2.ForeColor = System.Drawing.Color.Black +Me.TBGlitter2.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter2.Name = "TBGlitter2" +Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter2.TabIndex = 49 +Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 +Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Panel5 +'CBIncludeGifs ' -Me.Panel5.BackColor = System.Drawing.Color.LightGray -Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel5.Controls.Add(Me.Label130) -Me.Panel5.Controls.Add(Me.Label123) -Me.Panel5.Controls.Add(Me.Label69) -Me.Panel5.Controls.Add(Me.Label113) -Me.Panel5.Controls.Add(Me.Label40) -Me.Panel5.Controls.Add(Me.Label35) -Me.Panel5.Controls.Add(Me.Label33) -Me.Panel5.Controls.Add(Me.Label17) -Me.Panel5.Controls.Add(Me.Label3) -Me.Panel5.Controls.Add(Me.PictureBox3) -Me.Panel5.Controls.Add(Me.Label41) -Me.Panel5.Location = New System.Drawing.Point(6, 6) -Me.Panel5.Name = "Panel5" -Me.Panel5.Size = New System.Drawing.Size(708, 437) -Me.Panel5.TabIndex = 92 +Me.CBIncludeGifs.AutoSize = true +Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs +Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) +Me.CBIncludeGifs.Name = "CBIncludeGifs" +Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) +Me.CBIncludeGifs.TabIndex = 5 +Me.CBIncludeGifs.Text = "Match Game Includes Gifs " +Me.CBIncludeGifs.UseVisualStyleBackColor = true ' -'Label130 +'GN6 ' -Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label130.Location = New System.Drawing.Point(361, 314) -Me.Label130.Name = "Label130" -Me.Label130.Size = New System.Drawing.Size(254, 54) -Me.Label130.TabIndex = 176 -Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN6.Location = New System.Drawing.Point(86, 367) +Me.GN6.Name = "GN6" +Me.GN6.Size = New System.Drawing.Size(71, 20) +Me.GN6.TabIndex = 5 +Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 +Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label123 +'GP6 ' -Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label123.Location = New System.Drawing.Point(81, 314) -Me.Label123.Name = "Label123" -Me.Label123.Size = New System.Drawing.Size(254, 54) -Me.Label123.TabIndex = 175 -Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" -Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GP6.BackColor = System.Drawing.Color.Silver +Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 +Me.GP6.InitialImage = Nothing +Me.GP6.Location = New System.Drawing.Point(86, 268) +Me.GP6.Name = "GP6" +Me.GP6.Size = New System.Drawing.Size(71, 93) +Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP6.TabIndex = 17 +Me.GP6.TabStop = false ' -'Label69 +'GN2 ' -Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label69.Location = New System.Drawing.Point(35, 295) -Me.Label69.Name = "Label69" -Me.Label69.Size = New System.Drawing.Size(638, 22) -Me.Label69.TabIndex = 174 -Me.Label69.Text = "Triple Alfa" -Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN2.Location = New System.Drawing.Point(86, 117) +Me.GN2.Name = "GN2" +Me.GN2.Size = New System.Drawing.Size(71, 20) +Me.GN2.TabIndex = 1 +Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 +Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label113 +'GP2 ' -Me.Label113.AutoSize = true -Me.Label113.Location = New System.Drawing.Point(4, 417) -Me.Label113.Name = "Label113" -Me.Label113.Size = New System.Drawing.Size(452, 13) -Me.Label113.TabIndex = 173 -Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ - "pective owners." +Me.GP2.BackColor = System.Drawing.Color.Silver +Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 +Me.GP2.InitialImage = Nothing +Me.GP2.Location = New System.Drawing.Point(86, 17) +Me.GP2.Name = "GP2" +Me.GP2.Size = New System.Drawing.Size(71, 94) +Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP2.TabIndex = 9 +Me.GP2.TabStop = false ' -'Label40 +'GP5 ' -Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label40.Location = New System.Drawing.Point(35, 273) -Me.Label40.Name = "Label40" -Me.Label40.Size = New System.Drawing.Size(638, 24) -Me.Label40.TabIndex = 171 -Me.Label40.Text = "Special Thanks" -Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GP5.BackColor = System.Drawing.Color.Silver +Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 +Me.GP5.InitialImage = Nothing +Me.GP5.Location = New System.Drawing.Point(9, 268) +Me.GP5.Name = "GP5" +Me.GP5.Size = New System.Drawing.Size(71, 93) +Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP5.TabIndex = 15 +Me.GP5.TabStop = false ' -'Label35 +'GN1 ' -Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label35.Location = New System.Drawing.Point(32, 107) -Me.Label35.Name = "Label35" -Me.Label35.Size = New System.Drawing.Size(641, 77) -Me.Label35.TabIndex = 170 -Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ - "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ - "dditional files separately." -Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN1.Location = New System.Drawing.Point(9, 117) +Me.GN1.Name = "GN1" +Me.GN1.Size = New System.Drawing.Size(71, 20) +Me.GN1.TabIndex = 0 +Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 +Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label33 +'GP1 ' -Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label33.Location = New System.Drawing.Point(32, 191) -Me.Label33.Name = "Label33" -Me.Label33.Size = New System.Drawing.Size(641, 77) -Me.Label33.TabIndex = 169 -Me.Label33.Text = resources.GetString("Label33.Text") -Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GP1.BackColor = System.Drawing.Color.Silver +Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 +Me.GP1.InitialImage = Nothing +Me.GP1.Location = New System.Drawing.Point(9, 17) +Me.GP1.Name = "GP1" +Me.GP1.Size = New System.Drawing.Size(71, 94) +Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP1.TabIndex = 0 +Me.GP1.TabStop = false ' -'Label17 +'GN5 ' -Me.Label17.AutoSize = true -Me.Label17.Location = New System.Drawing.Point(522, 78) -Me.Label17.Name = "Label17" -Me.Label17.Size = New System.Drawing.Size(93, 13) -Me.Label17.TabIndex = 168 -Me.Label17.Text = "Designed by 1885" +Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN5.Location = New System.Drawing.Point(9, 367) +Me.GN5.Name = "GN5" +Me.GN5.Size = New System.Drawing.Size(71, 20) +Me.GN5.TabIndex = 4 +Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 +Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label3 +'GN3 ' -Me.Label3.AutoSize = true -Me.Label3.Location = New System.Drawing.Point(489, 417) -Me.Label3.Name = "Label3" -Me.Label3.Size = New System.Drawing.Size(215, 13) -Me.Label3.TabIndex = 167 -Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" +Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN3.Location = New System.Drawing.Point(9, 242) +Me.GN3.Name = "GN3" +Me.GN3.Size = New System.Drawing.Size(71, 20) +Me.GN3.TabIndex = 2 +Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 +Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'PictureBox3 +'GP3 +' +Me.GP3.BackColor = System.Drawing.Color.Silver +Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 +Me.GP3.InitialImage = Nothing +Me.GP3.Location = New System.Drawing.Point(9, 143) +Me.GP3.Name = "GP3" +Me.GP3.Size = New System.Drawing.Size(71, 93) +Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP3.TabIndex = 11 +Me.GP3.TabStop = false ' -Me.PictureBox3.BackColor = System.Drawing.Color.LightGray -Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big -Me.PictureBox3.Location = New System.Drawing.Point(84, 17) -Me.PictureBox3.Name = "PictureBox3" -Me.PictureBox3.Size = New System.Drawing.Size(531, 58) -Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PictureBox3.TabIndex = 166 -Me.PictureBox3.TabStop = false +'GP4 ' -'Label41 +Me.GP4.BackColor = System.Drawing.Color.Silver +Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 +Me.GP4.InitialImage = Nothing +Me.GP4.Location = New System.Drawing.Point(86, 143) +Me.GP4.Name = "GP4" +Me.GP4.Size = New System.Drawing.Size(71, 93) +Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP4.TabIndex = 13 +Me.GP4.TabStop = false ' -Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label41.Location = New System.Drawing.Point(35, 372) -Me.Label41.Name = "Label41" -Me.Label41.Size = New System.Drawing.Size(638, 39) -Me.Label41.TabIndex = 172 -Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ - "nity who's been supportive of my work over the years. Tease AI exists because of"& _ - " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter +'GN4 ' -'GroupBox47 +Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN4.Location = New System.Drawing.Point(86, 242) +Me.GN4.Name = "GN4" +Me.GN4.Size = New System.Drawing.Size(71, 20) +Me.GN4.TabIndex = 3 +Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 +Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.GroupBox47.BackColor = System.Drawing.Color.LightGray -Me.GroupBox47.Controls.Add(Me.GroupBox41) -Me.GroupBox47.Controls.Add(Me.GroupBox40) -Me.GroupBox47.ForeColor = System.Drawing.Color.Black -Me.GroupBox47.Location = New System.Drawing.Point(806, 255) -Me.GroupBox47.Name = "GroupBox47" -Me.GroupBox47.Size = New System.Drawing.Size(310, 190) -Me.GroupBox47.TabIndex = 63 -Me.GroupBox47.TabStop = false -Me.GroupBox47.Text = "Boobs and Butts Paths" +'CardBack ' -'GroupBox41 +Me.CardBack.BackColor = System.Drawing.Color.Silver +Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack +Me.CardBack.InitialImage = Nothing +Me.CardBack.Location = New System.Drawing.Point(17, 28) +Me.CardBack.Name = "CardBack" +Me.CardBack.Size = New System.Drawing.Size(138, 179) +Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.CardBack.TabIndex = 18 +Me.CardBack.TabStop = false ' -Me.GroupBox41.Controls.Add(Me.Button34) -Me.GroupBox41.Location = New System.Drawing.Point(6, 110) -Me.GroupBox41.Name = "GroupBox41" -Me.GroupBox41.Size = New System.Drawing.Size(298, 74) -Me.GroupBox41.TabIndex = 153 -Me.GroupBox41.TabStop = false -Me.GroupBox41.Text = "Butts" +'BN6 ' -'Button34 +Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN6.Location = New System.Drawing.Point(86, 368) +Me.BN6.Name = "BN6" +Me.BN6.Size = New System.Drawing.Size(71, 20) +Me.BN6.TabIndex = 5 +Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 +Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Button34.BackColor = System.Drawing.Color.LightGray -Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.Button34.ForeColor = System.Drawing.Color.Black -Me.Button34.Location = New System.Drawing.Point(85, 25) -Me.Button34.Name = "Button34" -Me.Button34.Size = New System.Drawing.Size(34, 28) -Me.Button34.TabIndex = 131 -Me.Button34.Text = "1" -Me.Button34.UseVisualStyleBackColor = false +'BN3 ' -'GroupBox40 +Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN3.Location = New System.Drawing.Point(9, 243) +Me.BN3.Name = "BN3" +Me.BN3.Size = New System.Drawing.Size(71, 20) +Me.BN3.TabIndex = 2 +Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 +Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.GroupBox40.Location = New System.Drawing.Point(5, 35) -Me.GroupBox40.Name = "GroupBox40" -Me.GroupBox40.Size = New System.Drawing.Size(298, 74) -Me.GroupBox40.TabIndex = 152 -Me.GroupBox40.TabStop = false -Me.GroupBox40.Text = "Boobs" +'BP3 ' -'GroupBox44 +Me.BP3.BackColor = System.Drawing.Color.Silver +Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 +Me.BP3.InitialImage = Nothing +Me.BP3.Location = New System.Drawing.Point(9, 144) +Me.BP3.Name = "BP3" +Me.BP3.Size = New System.Drawing.Size(71, 93) +Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP3.TabIndex = 11 +Me.BP3.TabStop = false ' -Me.GroupBox44.BackColor = System.Drawing.Color.LightGray -Me.GroupBox44.Controls.Add(Me.Label100) -Me.GroupBox44.ForeColor = System.Drawing.Color.Black -Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) -Me.GroupBox44.Name = "GroupBox44" -Me.GroupBox44.Size = New System.Drawing.Size(310, 92) -Me.GroupBox44.TabIndex = 65 -Me.GroupBox44.TabStop = false -Me.GroupBox44.Text = "Description" +'BP6 ' -'Label100 +Me.BP6.BackColor = System.Drawing.Color.Silver +Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 +Me.BP6.InitialImage = Nothing +Me.BP6.Location = New System.Drawing.Point(86, 269) +Me.BP6.Name = "BP6" +Me.BP6.Size = New System.Drawing.Size(71, 93) +Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP6.TabIndex = 17 +Me.BP6.TabStop = false ' -Me.Label100.BackColor = System.Drawing.Color.Transparent -Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label100.ForeColor = System.Drawing.Color.Black -Me.Label100.Location = New System.Drawing.Point(11, 16) -Me.Label100.Name = "Label100" -Me.Label100.Size = New System.Drawing.Size(286, 73) -Me.Label100.TabIndex = 62 -Me.Label100.Text = resources.GetString("Label100.Text") -Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BN2 ' -'GroupBox6 +Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN2.Location = New System.Drawing.Point(86, 118) +Me.BN2.Name = "BN2" +Me.BN2.Size = New System.Drawing.Size(71, 20) +Me.BN2.TabIndex = 1 +Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 +Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.GroupBox6.Controls.Add(Me.Label4) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) -Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) -Me.GroupBox6.Controls.Add(Me.Label94) -Me.GroupBox6.Controls.Add(Me.LBLLastRuined) -Me.GroupBox6.Controls.Add(Me.Label65) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) -Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) -Me.GroupBox6.Controls.Add(Me.Label14) -Me.GroupBox6.Controls.Add(Me.Label13) -Me.GroupBox6.Controls.Add(Me.Label1) -Me.GroupBox6.Location = New System.Drawing.Point(27, 114) -Me.GroupBox6.Name = "GroupBox6" -Me.GroupBox6.Size = New System.Drawing.Size(283, 102) -Me.GroupBox6.TabIndex = 156 -Me.GroupBox6.TabStop = false -Me.GroupBox6.Text = "Performance" +'BN5 ' -'Label4 +Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN5.Location = New System.Drawing.Point(9, 368) +Me.BN5.Name = "BN5" +Me.BN5.Size = New System.Drawing.Size(71, 20) +Me.BN5.TabIndex = 4 +Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 +Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label4.Location = New System.Drawing.Point(26, 16) -Me.Label4.Name = "Label4" -Me.Label4.Size = New System.Drawing.Size(77, 17) -Me.Label4.TabIndex = 147 -Me.Label4.Text = "Stroking Time" -Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BP5 ' -'LBLAvgEdgeStroking +Me.BP5.BackColor = System.Drawing.Color.Silver +Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 +Me.BP5.InitialImage = Nothing +Me.BP5.Location = New System.Drawing.Point(9, 269) +Me.BP5.Name = "BP5" +Me.BP5.Size = New System.Drawing.Size(71, 93) +Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP5.TabIndex = 15 +Me.BP5.TabStop = false ' -Me.LBLAvgEdgeStroking.AutoSize = true -Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) -Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" -Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeStroking.TabIndex = 144 -Me.LBLAvgEdgeStroking.Text = "00:00" -Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BP2 ' -'LBLStrokeTimeTotal +Me.BP2.BackColor = System.Drawing.Color.Silver +Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 +Me.BP2.InitialImage = Nothing +Me.BP2.Location = New System.Drawing.Point(86, 19) +Me.BP2.Name = "BP2" +Me.BP2.Size = New System.Drawing.Size(71, 93) +Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP2.TabIndex = 9 +Me.BP2.TabStop = false ' -Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) -Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" -Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) -Me.LBLStrokeTimeTotal.TabIndex = 148 -Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" -Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BN1 ' -'Label94 +Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN1.Location = New System.Drawing.Point(9, 118) +Me.BN1.Name = "BN1" +Me.BN1.Size = New System.Drawing.Size(71, 20) +Me.BN1.TabIndex = 0 +Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 +Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label94.BackColor = System.Drawing.Color.Transparent -Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label94.ForeColor = System.Drawing.Color.Black -Me.Label94.Location = New System.Drawing.Point(189, 16) -Me.Label94.Name = "Label94" -Me.Label94.Size = New System.Drawing.Size(65, 17) -Me.Label94.TabIndex = 150 -Me.Label94.Text = "Last Ruined" -Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BN4 ' -'LBLLastRuined +Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN4.Location = New System.Drawing.Point(86, 243) +Me.BN4.Name = "BN4" +Me.BN4.Size = New System.Drawing.Size(71, 20) +Me.BN4.TabIndex = 3 +Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 +Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) -Me.LBLLastRuined.Name = "LBLLastRuined" -Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) -Me.LBLLastRuined.TabIndex = 152 -Me.LBLLastRuined.Text = "04/28/2015" -Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BP4 ' -'Label65 +Me.BP4.BackColor = System.Drawing.Color.Silver +Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 +Me.BP4.InitialImage = Nothing +Me.BP4.Location = New System.Drawing.Point(86, 144) +Me.BP4.Name = "BP4" +Me.BP4.Size = New System.Drawing.Size(71, 93) +Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP4.TabIndex = 13 +Me.BP4.TabStop = false ' -Me.Label65.BackColor = System.Drawing.Color.Transparent -Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label65.ForeColor = System.Drawing.Color.Black -Me.Label65.Location = New System.Drawing.Point(103, 16) -Me.Label65.Name = "Label65" -Me.Label65.Size = New System.Drawing.Size(85, 17) -Me.Label65.TabIndex = 149 -Me.Label65.Text = "Last Orgasm" -Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BP1 ' -'LBLAvgEdgeNoTouch +Me.BP1.BackColor = System.Drawing.Color.Silver +Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 +Me.BP1.InitialImage = Nothing +Me.BP1.Location = New System.Drawing.Point(9, 19) +Me.BP1.Name = "BP1" +Me.BP1.Size = New System.Drawing.Size(71, 93) +Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP1.TabIndex = 0 +Me.BP1.TabStop = false +Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 ' -Me.LBLAvgEdgeNoTouch.AutoSize = true -Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) -Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" -Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeNoTouch.TabIndex = 146 -Me.LBLAvgEdgeNoTouch.Text = "00:00" -Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'SN6 ' -'LBLLastOrgasm +Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN6.Location = New System.Drawing.Point(86, 368) +Me.SN6.Name = "SN6" +Me.SN6.Size = New System.Drawing.Size(71, 20) +Me.SN6.TabIndex = 5 +Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 +Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) -Me.LBLLastOrgasm.Name = "LBLLastOrgasm" -Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) -Me.LBLLastOrgasm.TabIndex = 151 -Me.LBLLastOrgasm.Text = "04/28/2015" -Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'SP6 ' -'Label14 +Me.SP6.BackColor = System.Drawing.Color.Silver +Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 +Me.SP6.InitialImage = Nothing +Me.SP6.Location = New System.Drawing.Point(86, 269) +Me.SP6.Name = "SP6" +Me.SP6.Size = New System.Drawing.Size(71, 93) +Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP6.TabIndex = 17 +Me.SP6.TabStop = false ' -Me.Label14.BackColor = System.Drawing.Color.Transparent -Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label14.ForeColor = System.Drawing.Color.Black -Me.Label14.Location = New System.Drawing.Point(25, 48) -Me.Label14.Name = "Label14" -Me.Label14.Size = New System.Drawing.Size(238, 17) -Me.Label14.TabIndex = 138 -Me.Label14.Text = "Average Time to Edge" -Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'SN2 ' -'Label13 +Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN2.Location = New System.Drawing.Point(86, 118) +Me.SN2.Name = "SN2" +Me.SN2.Size = New System.Drawing.Size(71, 20) +Me.SN2.TabIndex = 1 +Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 +Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label13.AutoSize = true -Me.Label13.Location = New System.Drawing.Point(177, 68) -Me.Label13.Name = "Label13" -Me.Label13.Size = New System.Drawing.Size(32, 13) -Me.Label13.TabIndex = 145 -Me.Label13.Text = "Rest:" -Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'SP2 ' -'Label1 +Me.SP2.BackColor = System.Drawing.Color.Silver +Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 +Me.SP2.InitialImage = Nothing +Me.SP2.Location = New System.Drawing.Point(86, 19) +Me.SP2.Name = "SP2" +Me.SP2.Size = New System.Drawing.Size(71, 93) +Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP2.TabIndex = 9 +Me.SP2.TabStop = false ' -Me.Label1.AutoSize = true -Me.Label1.Location = New System.Drawing.Point(28, 68) -Me.Label1.Name = "Label1" -Me.Label1.Size = New System.Drawing.Size(79, 13) -Me.Label1.TabIndex = 143 -Me.Label1.Text = "While Stroking:" -Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'SN1 ' -'GroupBox21 +Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN1.Location = New System.Drawing.Point(9, 118) +Me.SN1.Name = "SN1" +Me.SN1.Size = New System.Drawing.Size(71, 20) +Me.SN1.TabIndex = 0 +Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 +Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.GroupBox21.BackColor = System.Drawing.Color.LightGray -Me.GroupBox21.Controls.Add(Me.Label153) -Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) -Me.GroupBox21.Controls.Add(Me.GroupBox6) -Me.GroupBox21.Controls.Add(Me.Label156) -Me.GroupBox21.ForeColor = System.Drawing.Color.Black -Me.GroupBox21.Location = New System.Drawing.Point(797, 55) -Me.GroupBox21.Name = "GroupBox21" -Me.GroupBox21.Size = New System.Drawing.Size(316, 136) -Me.GroupBox21.TabIndex = 66 -Me.GroupBox21.TabStop = false -Me.GroupBox21.Text = "Description" +'SP5 ' -'Label153 +Me.SP5.BackColor = System.Drawing.Color.Silver +Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 +Me.SP5.InitialImage = Nothing +Me.SP5.Location = New System.Drawing.Point(9, 269) +Me.SP5.Name = "SP5" +Me.SP5.Size = New System.Drawing.Size(71, 93) +Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP5.TabIndex = 15 +Me.SP5.TabStop = false ' -Me.Label153.BackColor = System.Drawing.Color.Transparent -Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label153.ForeColor = System.Drawing.Color.Black -Me.Label153.Location = New System.Drawing.Point(78, 94) -Me.Label153.Name = "Label153" -Me.Label153.Size = New System.Drawing.Size(158, 17) -Me.Label153.TabIndex = 135 -Me.Label153.Text = "No path selected" -Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'SP1 ' -'LBLRangeSettingsDescription +Me.SP1.BackColor = System.Drawing.Color.Silver +Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 +Me.SP1.InitialImage = Nothing +Me.SP1.Location = New System.Drawing.Point(9, 19) +Me.SP1.Name = "SP1" +Me.SP1.Size = New System.Drawing.Size(71, 93) +Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP1.TabIndex = 0 +Me.SP1.TabStop = false ' -Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) -Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" -Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) -Me.LBLRangeSettingsDescription.TabIndex = 62 -Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'SN5 ' -'Label156 +Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN5.Location = New System.Drawing.Point(9, 368) +Me.SN5.Name = "SN5" +Me.SN5.Size = New System.Drawing.Size(71, 20) +Me.SN5.TabIndex = 4 +Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 +Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label156.BackColor = System.Drawing.Color.Transparent -Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label156.ForeColor = System.Drawing.Color.Black -Me.Label156.Location = New System.Drawing.Point(133, 23) -Me.Label156.Name = "Label156" -Me.Label156.Size = New System.Drawing.Size(158, 17) -Me.Label156.TabIndex = 135 -Me.Label156.Text = "No path selected" -Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'SN3 ' -'GroupBox12 +Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN3.Location = New System.Drawing.Point(9, 243) +Me.SN3.Name = "SN3" +Me.SN3.Size = New System.Drawing.Size(71, 20) +Me.SN3.TabIndex = 2 +Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 +Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.GroupBox12.BackColor = System.Drawing.Color.LightGray -Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) -Me.GroupBox12.ForeColor = System.Drawing.Color.Black -Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) -Me.GroupBox12.Name = "GroupBox12" -Me.GroupBox12.Size = New System.Drawing.Size(171, 124) -Me.GroupBox12.TabIndex = 65 -Me.GroupBox12.TabStop = false -Me.GroupBox12.Text = "Description" +'SN4 ' -'LBLSubSettingsDescription +Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN4.Location = New System.Drawing.Point(86, 243) +Me.SN4.Name = "SN4" +Me.SN4.Size = New System.Drawing.Size(71, 20) +Me.SN4.TabIndex = 3 +Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 +Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) -Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" -Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) -Me.LBLSubSettingsDescription.TabIndex = 62 -Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." +'SP3 ' -'OpenFileDialog1 +Me.SP3.BackColor = System.Drawing.Color.Silver +Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 +Me.SP3.InitialImage = Nothing +Me.SP3.Location = New System.Drawing.Point(9, 144) +Me.SP3.Name = "SP3" +Me.SP3.Size = New System.Drawing.Size(71, 93) +Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP3.TabIndex = 11 +Me.SP3.TabStop = false ' -Me.OpenFileDialog1.FileName = "OpenFileDialog1" -Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ - "s (*.*)|*.*" -Me.OpenFileDialog1.Title = "Select an image file" +'SP4 ' -'GetColor +Me.SP4.BackColor = System.Drawing.Color.Silver +Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 +Me.SP4.InitialImage = Nothing +Me.SP4.Location = New System.Drawing.Point(86, 144) +Me.SP4.Name = "SP4" +Me.SP4.Size = New System.Drawing.Size(71, 93) +Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP4.TabIndex = 13 +Me.SP4.TabStop = false ' -Me.GetColor.Color = System.Drawing.Color.SteelBlue +'LBLDateTimeColor2 ' -'WebImageFileDialog +Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor +Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) +Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" +Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateTimeColor2.TabIndex = 19 ' -Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.WebImageFileDialog.Title = "Please select a URL File" +'LBLDateBackColor2 ' -'OpenScriptDialog +Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor +Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) +Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateBackColor2.Name = "LBLDateBackColor2" +Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateBackColor2.TabIndex = 22 ' -Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenScriptDialog.Title = "Please select a script" +'LBLChatWindowColor2 ' -'OpenSettingsDialog +Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor +Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) +Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" +Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatWindowColor2.TabIndex = 12 ' -Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenSettingsDialog.Title = "Please select a settings file to open" +'LBLTextColor2 ' -'SaveSettingsDialog +Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor +Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) +Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLTextColor2.Name = "LBLTextColor2" +Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLTextColor2.TabIndex = 9 ' -Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" +'LBLBackColor2 ' -'GroupBox65 +Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor +Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) +Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLBackColor2.Name = "LBLBackColor2" +Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLBackColor2.TabIndex = 3 ' -Me.GroupBox65.BackColor = System.Drawing.Color.LightGray -Me.GroupBox65.Controls.Add(Me.Label136) -Me.GroupBox65.Controls.Add(Me.Label134) -Me.GroupBox65.Controls.Add(Me.Label132) -Me.GroupBox65.Controls.Add(Me.TrackBar1) -Me.GroupBox65.Controls.Add(Me.ComboBox1) -Me.GroupBox65.Controls.Add(Me.CheckBox1) -Me.GroupBox65.Controls.Add(Me.Label135) -Me.GroupBox65.Controls.Add(Me.TrackBar2) -Me.GroupBox65.ForeColor = System.Drawing.Color.Black -Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) -Me.GroupBox65.Name = "GroupBox65" -Me.GroupBox65.Size = New System.Drawing.Size(259, 117) -Me.GroupBox65.TabIndex = 157 -Me.GroupBox65.TabStop = false -Me.GroupBox65.Text = "Text to Speech" +'LBLChatTextColor2 ' -'Label136 +Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor +Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) +Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatTextColor2.Name = "LBLChatTextColor2" +Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatTextColor2.TabIndex = 16 ' -Me.Label136.AutoSize = true -Me.Label136.Location = New System.Drawing.Point(14, 52) -Me.Label136.Name = "Label136" -Me.Label136.Size = New System.Drawing.Size(45, 13) -Me.Label136.TabIndex = 32 -Me.Label136.Text = "Volume:" +'LBLButtonColor2 ' -'Label134 +Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor +Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) +Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLButtonColor2.Name = "LBLButtonColor2" +Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLButtonColor2.TabIndex = 6 ' -Me.Label134.AutoSize = true -Me.Label134.Location = New System.Drawing.Point(141, 52) -Me.Label134.Name = "Label134" -Me.Label134.Size = New System.Drawing.Size(33, 13) -Me.Label134.TabIndex = 157 -Me.Label134.Text = "Rate:" +'TimedWriting ' -'Label132 +Me.TimedWriting.AutoSize = true +Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting +Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TimedWriting.Location = New System.Drawing.Point(9, 19) +Me.TimedWriting.Name = "TimedWriting" +Me.TimedWriting.Size = New System.Drawing.Size(123, 17) +Me.TimedWriting.TabIndex = 1 +Me.TimedWriting.Text = "Timed Writing Tasks" +Me.TimedWriting.UseVisualStyleBackColor = true ' -Me.Label132.Location = New System.Drawing.Point(202, 52) -Me.Label132.Name = "Label132" -Me.Label132.Size = New System.Drawing.Size(45, 13) -Me.Label132.TabIndex = 158 -Me.Label132.Text = "100" -Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight +'TypeSpeedSlider ' -'TrackBar1 +Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) +Me.TypeSpeedSlider.Maximum = 100 +Me.TypeSpeedSlider.Minimum = 33 +Me.TypeSpeedSlider.Name = "TypeSpeedSlider" +Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) +Me.TypeSpeedSlider.TabIndex = 3 +Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed ' -Me.TrackBar1.Location = New System.Drawing.Point(133, 68) -Me.TrackBar1.Minimum = -10 -Me.TrackBar1.Name = "TrackBar1" -Me.TrackBar1.Size = New System.Drawing.Size(120, 45) -Me.TrackBar1.TabIndex = 31 +'NBTaskCBTTimeMax ' -'ComboBox1 +Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) +Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" +Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMax.TabIndex = 203 +Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax ' -Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window -Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText -Me.ComboBox1.FormattingEnabled = true -Me.ComboBox1.Location = New System.Drawing.Point(71, 16) -Me.ComboBox1.Name = "ComboBox1" -Me.ComboBox1.Size = New System.Drawing.Size(178, 21) -Me.ComboBox1.TabIndex = 29 -Me.ComboBox1.TabStop = false +'NBTaskCBTTimeMin ' -'CheckBox1 +Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) +Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" +Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMin.TabIndex = 202 +Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin ' -Me.CheckBox1.AutoSize = true -Me.CheckBox1.ForeColor = System.Drawing.Color.Black -Me.CheckBox1.Location = New System.Drawing.Point(10, 18) -Me.CheckBox1.Name = "CheckBox1" -Me.CheckBox1.Size = New System.Drawing.Size(59, 17) -Me.CheckBox1.TabIndex = 28 -Me.CheckBox1.TabStop = false -Me.CheckBox1.Text = "Enable" -Me.CheckBox1.UseVisualStyleBackColor = true +'NBTaskEdgeHoldTimeMax ' -'Label135 +Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) +Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" +Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 +Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax ' -Me.Label135.Location = New System.Drawing.Point(75, 52) -Me.Label135.Name = "Label135" -Me.Label135.Size = New System.Drawing.Size(45, 13) -Me.Label135.TabIndex = 33 -Me.Label135.Text = "100" -Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight +'NBTaskEdgeHoldTimeMin ' -'TrackBar2 +Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) +Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" +Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 +Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin ' -Me.TrackBar2.Location = New System.Drawing.Point(6, 68) -Me.TrackBar2.Maximum = 100 -Me.TrackBar2.Name = "TrackBar2" -Me.TrackBar2.Size = New System.Drawing.Size(120, 45) -Me.TrackBar2.TabIndex = 30 -Me.TrackBar2.Value = 50 +'NBTaskEdgesMax ' -'TxbImgUrlHardcore +Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) +Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" +Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMax.TabIndex = 194 +Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax ' -Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) -Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" -Me.TxbImgUrlHardcore.ReadOnly = true -Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) -Me.TxbImgUrlHardcore.TabIndex = 145 +'NBTaskEdgesMin ' -'TextBox2 +Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) +Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" +Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMin.TabIndex = 193 +Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin ' -Me.TextBox2.BackColor = System.Drawing.Color.LightGray -Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill -Me.TextBox2.Location = New System.Drawing.Point(116, 34) -Me.TextBox2.Name = "TextBox2" -Me.TextBox2.ReadOnly = true -Me.TextBox2.Size = New System.Drawing.Size(189, 20) -Me.TextBox2.TabIndex = 145 +'NBTaskStrokingTimeMax ' -'GroupBox4 +Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) +Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" +Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMax.TabIndex = 189 +Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax ' -Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) -Me.GroupBox4.Location = New System.Drawing.Point(7, 307) -Me.GroupBox4.Name = "GroupBox4" -Me.GroupBox4.Size = New System.Drawing.Size(344, 85) -Me.GroupBox4.TabIndex = 167 -Me.GroupBox4.TabStop = false -Me.GroupBox4.Text = "Change Current Domme" +'NBTaskStrokingTimeMin ' -'BTNDomChangeDomme +Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) +Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" +Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMin.TabIndex = 188 +Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin ' -Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) -Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" -Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeDomme.TabIndex = 168 -Me.BTNDomChangeDomme.Text = "Domme" -Me.BTNDomChangeDomme.UseVisualStyleBackColor = false +'NBTaskStrokesMax ' -'BTNDomChangeContact2 +Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) +Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" +Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMax.TabIndex = 184 +Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax ' -Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) -Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" -Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact2.TabIndex = 170 -Me.BTNDomChangeContact2.Text = "Contact 2" -Me.BTNDomChangeContact2.UseVisualStyleBackColor = false +'NBTaskStrokesMin ' -'BTNDomChangeContact3 +Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) +Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" +Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMin.TabIndex = 183 +Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin ' -Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) -Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" -Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact3.TabIndex = 171 -Me.BTNDomChangeContact3.Text = "Contact 3" -Me.BTNDomChangeContact3.UseVisualStyleBackColor = false +'NBCensorShowMin ' -'BTNDomChangeRandom +Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) +Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMin.Name = "NBCensorShowMin" +Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMin.TabIndex = 151 +Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin ' -Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) -Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" -Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeRandom.TabIndex = 172 -Me.BTNDomChangeRandom.Text = "Random" -Me.BTNDomChangeRandom.UseVisualStyleBackColor = false +'NBCensorHideMax ' -'BTNDomChangeContact1 +Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) +Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMax.Name = "NBCensorHideMax" +Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMax.TabIndex = 156 +Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax ' -Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) -Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" -Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact1.TabIndex = 173 -Me.BTNDomChangeContact1.Text = "Contact 1" -Me.BTNDomChangeContact1.UseVisualStyleBackColor = false +'NBCensorHideMin ' -'LBLCurrentDomme +Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) +Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMin.Name = "NBCensorHideMin" +Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMin.TabIndex = 155 +Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin ' -Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) -Me.LBLCurrentDomme.Name = "LBLCurrentDomme" -Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) -Me.LBLCurrentDomme.TabIndex = 168 -Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBCensorConstant ' -'BWURLFiles +Me.CBCensorConstant.AutoSize = true +Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant +Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black +Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) +Me.CBCensorConstant.Name = "CBCensorConstant" +Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) +Me.CBCensorConstant.TabIndex = 157 +Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" +Me.CBCensorConstant.UseVisualStyleBackColor = true ' -Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" -Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" -Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" -Me.BWURLFiles.WorkerReportsProgress = true -Me.BWURLFiles.WorkerSupportsCancellation = true +'NBCensorShowMax +' +Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) +Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMax.Name = "NBCensorShowMax" +Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMax.TabIndex = 152 +Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax ' 'FrmSettings ' @@ -15174,52 +15202,30 @@ Me.TabControl1.ResumeLayout(false) Me.TabPage22.ResumeLayout(false) Me.PNLGlitter.ResumeLayout(false) Me.PNLGlitter.PerformLayout +Me.GroupBox4.ResumeLayout(false) Me.GBGlitterD.ResumeLayout(false) Me.GBGlitterD.PerformLayout Me.GrbGlitterfeed.ResumeLayout(false) Me.GrbGlitterfeed.PerformLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter1.ResumeLayout(false) Me.GBGlitter1.PerformLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter3.ResumeLayout(false) Me.GBGlitter3.PerformLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter2.ResumeLayout(false) Me.GBGlitter2.PerformLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit Me.TpGames.ResumeLayout(false) Me.TpGames.PerformLayout Me.GbxCardsGold.ResumeLayout(false) Me.GbxCardsGold.PerformLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBackground.ResumeLayout(false) -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBronze.ResumeLayout(false) Me.GbxCardsBronze.PerformLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsSilver.ResumeLayout(false) Me.GbxCardsSilver.PerformLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit Me.TabPage6.ResumeLayout(false) Me.Panel10.ResumeLayout(false) Me.Panel10.PerformLayout @@ -15241,21 +15247,10 @@ Me.TabPage4.ResumeLayout(false) Me.Panel6.ResumeLayout(false) Me.GroupBox69.ResumeLayout(false) Me.GroupBox69.PerformLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox68.ResumeLayout(false) CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox67.ResumeLayout(false) -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox10.ResumeLayout(false) CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox57.ResumeLayout(false) @@ -15280,10 +15275,6 @@ CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox18.ResumeLayout(false) Me.GroupBox18.PerformLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.GBRangeOrgasmChance.ResumeLayout(false) Me.GBRangeOrgasmChance.PerformLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit @@ -15338,7 +15329,46 @@ Me.GroupBox65.ResumeLayout(false) Me.GroupBox65.PerformLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox4.ResumeLayout(false) +Me.GroupBox8.ResumeLayout(false) +Me.GroupBox8.PerformLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) End Sub @@ -16441,4 +16471,6 @@ End Sub Friend WithEvents BTNDomChangeContact2 As System.Windows.Forms.Button Friend WithEvents BTNDomChangeDomme As System.Windows.Forms.Button Friend WithEvents LBLCurrentDomme As System.Windows.Forms.Label + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents CBOutputErrors As System.Windows.Forms.CheckBox End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 650493c..270a674 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -415,6 +415,7 @@ Public Class FrmSettings degradingCheckBox.Checked = My.Settings.DomDegrading CFNMCheckBox.Checked = My.Settings.DomCFNM CBRandomDomme.Checked = My.Settings.CBRandomDomme + CBOutputErrors.Checked = My.Settings.CBOutputErrors giveupCheckBox.Checked = My.Settings.GiveUpReturn If CBAuditStartup.Checked = True Then AuditScripts() @@ -10373,4 +10374,8 @@ checkFolder: Ssh.glitterDommeNumber = 3 Form1.LoadDommeImageFolder() End Sub + + Private Sub CBOutputErrors_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOutputErrors.LostFocus + My.Settings.CBOutputErrors = CBOutputErrors.Checked + End Sub End Class \ No newline at end of file diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 57f2bec..31e47e0 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -5795,6 +5795,18 @@ Namespace My Me("CBRandomDomme") = value End Set End Property + + _ + Public Property CBOutputErrors() As Boolean + Get + Return CType(Me("CBOutputErrors"),Boolean) + End Get + Set + Me("CBOutputErrors") = value + End Set + End Property End Class End Namespace diff --git a/Tease AI/My Project/Settings.settings b/Tease AI/My Project/Settings.settings index 11ac0a0..eeb361d 100644 --- a/Tease AI/My Project/Settings.settings +++ b/Tease AI/My Project/Settings.settings @@ -1440,5 +1440,8 @@ False + + True + \ No newline at end of file diff --git a/Tease AI/app.config b/Tease AI/app.config index c629deb..164ef42 100644 --- a/Tease AI/app.config +++ b/Tease AI/app.config @@ -1491,6 +1491,9 @@ False + + True + From 08bca2389b3b3b684f8c136807447439786abffd Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 4 Mar 2017 11:18:49 -0600 Subject: [PATCH 037/143] #RandomSlideshowCategory fix --- README.md | 5 +- Tease AI/Form1.vb | 4646 ++++++++++++++++++------------------ Tease AI/Form2.Designer.vb | 76 +- 3 files changed, 2373 insertions(+), 2354 deletions(-) diff --git a/README.md b/README.md index 1f27ab2..44379e4 100644 --- a/README.md +++ b/README.md @@ -10,7 +10,10 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added Features: * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. - + +* Bugfixes: + * The System Keyword #RandomSlideshowCategory should now work as intended. + * Miscellaneous: * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 0122824..262eb45 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8205,8 +8205,24 @@ StatusUpdateEnd: End If - 'BUG: #RandomSlideshowCategory does not work! The Variable RandomSlideshowCategory is never set. - If StringClean.Contains("#RandomSlideshowCategory") Then StringClean = StringClean.Replace("#RandomSlideshowCategory", ssh.RandomSlideshowCategory) + If StringClean.Contains("#RandomSlideshowCategory") Then + Dim RanCat As New List(Of String) + + If FrmSettings.CBIHardcore.Checked = True Then RanCat.Add("Hardcore") + If FrmSettings.CBISoftcore.Checked = True Then RanCat.Add("Softcore") + If FrmSettings.CBILesbian.Checked = True Then RanCat.Add("Lesbian") + If FrmSettings.CBIBlowjob.Checked = True Then RanCat.Add("Blowjob") + If FrmSettings.CBIFemdom.Checked = True Then RanCat.Add("Femdom") + If FrmSettings.CBILezdom.Checked = True Then RanCat.Add("Lezdom") + If FrmSettings.CBIHentai.Checked = True Then RanCat.Add("Hentai") + If FrmSettings.CBIGay.Checked = True Then RanCat.Add("Gay") + If FrmSettings.CBIMaledom.Checked = True Then RanCat.Add("Maledom") + If FrmSettings.CBICaptions.Checked = True Then RanCat.Add("Captions") + If FrmSettings.CBIGeneral.Checked = True Then RanCat.Add("General") + + StringClean = StringClean.Replace("#RandomSlideshowCategory", RanCat(ssh.randomizer.Next(0, RanCat.Count))) + End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' ImageCount @@ -13267,31 +13283,31 @@ VTSkip: Return StringClean - End Function + End Function #Region "-------------------------------------------- Webtoy --------------------------------------------" - Public Sub ActivateWebToy() + Public Sub ActivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try + End If - End Sub + End Sub - Public Sub DeactivateWebToy() + Public Sub DeactivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - End Sub + End Sub #End Region ' WebToy @@ -13299,331 +13315,331 @@ VTSkip: #Region "---------------------------------------- Script-Flags ------------------------------------------" - ''' Creates the given flag. - ''' The flag name to set. - ''' If set to true, the flag is temporary set otherwise permanent. - Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) - If Temp = False Then - FlagName = ssh.Folders.Flags & FlagName - Else - FlagName = ssh.Folders.TempFlags & FlagName - End If + ''' Creates the given flag. + ''' The flag name to set. + ''' If set to true, the flag is temporary set otherwise permanent. + Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) + If Temp = False Then + FlagName = ssh.Folders.Flags & FlagName + Else + FlagName = ssh.Folders.TempFlags & FlagName + End If - Using fs As New FileStream(FlagName, FileMode.Create) : End Using + Using fs As New FileStream(FlagName, FileMode.Create) : End Using - End Sub - ''' Deletes the given flag. Deletes permanent and temporary flags. - ''' The name of the flag to delete. - Friend Sub DeleteFlag(ByVal FlagName As String) + End Sub + ''' Deletes the given flag. Deletes permanent and temporary flags. + ''' The name of the flag to delete. + Friend Sub DeleteFlag(ByVal FlagName As String) - If File.Exists(ssh.Folders.Flags & FlagName) Then _ - File.Delete(ssh.Folders.Flags & FlagName) + If File.Exists(ssh.Folders.Flags & FlagName) Then _ + File.Delete(ssh.Folders.Flags & FlagName) - If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ - File.Delete(ssh.Folders.TempFlags & FlagName) + If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ + File.Delete(ssh.Folders.TempFlags & FlagName) - End Sub - ''' Checks if the given flag is set, permanent and temporary. - ''' The flag name to search for. - ''' Returns true if a permanent or temporary flag with the name is found. - Friend Function FlagExists(ByVal FlagName As String) As Boolean - - If File.Exists(ssh.Folders.Flags & FlagName) OrElse - File.Exists(ssh.Folders.TempFlags & FlagName) Then - Return True - Else - Return False - End If + End Sub + ''' Checks if the given flag is set, permanent and temporary. + ''' The flag name to search for. + ''' Returns true if a permanent or temporary flag with the name is found. + Friend Function FlagExists(ByVal FlagName As String) As Boolean - End Function + If File.Exists(ssh.Folders.Flags & FlagName) OrElse + File.Exists(ssh.Folders.TempFlags & FlagName) Then + Return True + Else + Return False + End If + + End Function #End Region ' Script-Flags #Region "------------------------------------- Script-Variables -----------------------------------------" - Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) + Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) - End Function + End Function - Public Function DeleteVariable(ByVal FlagDir As String) + Public Function DeleteVariable(ByVal FlagDir As String) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ - My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ + My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) - End Function + End Function - Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) + Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) - Dim Val1 As Integer - Dim Val2 As Integer + Dim Val1 As Integer + Dim Val2 As Integer - If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) - Else - Val1 = 0 - End If - Else - Val1 = Val(ChangeVal1) - End If + If IsNumeric(ChangeVal1) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) + Else + Val1 = 0 + End If + Else + Val1 = Val(ChangeVal1) + End If - If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) - Else - Val2 = 0 - End If - Else - Val2 = Val(ChangeVal2) - End If + If IsNumeric(ChangeVal2) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) + Else + Val2 = 0 + End If + Else + Val2 = Val(ChangeVal2) + End If - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Dim ChangeVal As Integer = 0 + Dim ChangeVal As Integer = 0 - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - End Function + End Function - Public Function GetVariable(ByVal VarName As String) As String + Public Function GetVariable(ByVal VarName As String) As String - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - '### DEBUG + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + '### DEBUG - ' VarGet = Val(VarReader.ReadLine()) + ' VarGet = Val(VarReader.ReadLine()) - VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) - Else - VarGet = 0 - End If + VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) + Else + VarGet = 0 + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function CheckVariable(ByVal StringCLean As String) As Boolean + Public Function CheckVariable(ByVal StringCLean As String) As Boolean - Do + Do - Dim SCIfVar As String() = Split(StringCLean) - Dim SCGotVar As String = "Null" + Dim SCIfVar As String() = Split(StringCLean) + Dim SCGotVar As String = "Null" - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@Variable[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains("] ") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") - End If - SCGotVar = SCIfVar(i).Trim - SCIfVar(i) = "" - StringCLean = Join(SCIfVar) - Do - StringCLean = StringCLean.Replace(" ", " ") - Loop Until Not StringCLean.Contains(" ") - Exit For - End If - Next + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@Variable[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains("] ") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") + End If + SCGotVar = SCIfVar(i).Trim + SCIfVar(i) = "" + StringCLean = Join(SCIfVar) + Do + StringCLean = StringCLean.Replace(" ", " ") + Loop Until Not StringCLean.Contains(" ") + Exit For + End If + Next - If SCGotVar.Contains("]And[") Then + If SCGotVar.Contains("]And[") Then - Dim AndCheck As Boolean = True + Dim AndCheck As Boolean = True - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") - Next + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") + Next - Return AndCheck + Return AndCheck - ElseIf SCGotVar.Contains("]Or[") Then + ElseIf SCGotVar.Contains("]Or[") Then - Dim OrCheck As Boolean = False + Dim OrCheck As Boolean = False - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") - Next + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") + Next - Return OrCheck + Return OrCheck - Else + Else - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - Return True + Return True - Else + Else - Return False + Return False - End If + End If - End If + End If - Loop Until Not StringCLean.Contains("@Variable") + Loop Until Not StringCLean.Contains("@Variable") - End Function + End Function #End Region ' Script-Variables #Region "---------------------------------------- Script-Dates ------------------------------------------" - Public Function GetDate(ByVal VarName As String) As Date + Public Function GetDate(ByVal VarName As String) As Date - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) - Else - VarGet = FormatDateTime(Now, DateFormat.GeneralDate) - End If + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + Else + VarGet = FormatDateTime(Now, DateFormat.GeneralDate) + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function GetTime(ByVal VarName As String) As Date + Public Function GetTime(ByVal VarName As String) As Date - Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) - Else - VarGet = FormatDateTime(Now, DateFormat.LongTime) - End If + Dim VarGet As String + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + Else + VarGet = FormatDateTime(Now, DateFormat.LongTime) + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean + Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") + Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") - If DateFlag.Contains(",") Then + If DateFlag.Contains(",") Then - DateFlag = FixCommas(DateFlag) + DateFlag = FixCommas(DateFlag) - Dim DateArray() As String = DateFlag.Split(",") - Dim DDiff As Long = 18855881 - Dim DDiff2 As Long = 18855881 + Dim DateArray() As String = DateFlag.Split(",") + Dim DDiff As Long = 18855881 + Dim DDiff2 As Long = 18855881 - Dim DCompare As Long - Dim DCompare2 As Long + Dim DCompare As Long + Dim DCompare2 As Long - If Linear = False Then + If Linear = False Then - If DateArray.Count = 2 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If + If DateArray.Count = 2 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If - Else + Else - If DateArray.Count = 2 Then - If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True - Return False - End If + If DateArray.Count = 2 Then + If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True + Return False + End If - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If - If DateArray.Count = 4 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If + If DateArray.Count = 4 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If - End If + End If - Else - If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True - Return False - End If + Else + If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True + Return False + End If - Return False + Return False - End Function + End Function - Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long + Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long - Dim DDiff As Long = 0 + Dim DDiff As Long = 0 - If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) - If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 + If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) + If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 - Return DDiff + Return DDiff - End Function + End Function - Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long + Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long - Dim DDiff As Long = 0 - Dim Amount As Long = Val(DateString) + Dim DDiff As Long = 0 + Dim Amount As Long = Val(DateString) - If UCase(DateString).Contains("SECOND") Then DDiff = Amount - If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 + If UCase(DateString).Contains("SECOND") Then DDiff = Amount + If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 - Return DDiff + Return DDiff - End Function + End Function #End Region ' Script-Dates @@ -13631,462 +13647,462 @@ VTSkip: - Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String + Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String - Dim ParenFlag As String = ParenCheck - Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length - 'githib patch Dim ParenType As String + Dim ParenFlag As String = ParenCheck + Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length + 'githib patch Dim ParenType As String - Dim ParenType As String = Nothing + Dim ParenType As String = Nothing - ' #### CHECK ALL GETPAREN! - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" + ' #### CHECK ALL GETPAREN! + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then - ParenType = ")" - End If - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then - ParenType = "]" - End If + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then + ParenType = ")" + End If + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then + ParenType = "]" + End If - 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) + 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) - 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) - Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) + 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) + Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) - Debug.Print("ParenEnd = " & ParenEnd) + Debug.Print("ParenEnd = " & ParenEnd) - If ParenEnd = -1 Then ParenEnd = ParenFlag.Length - ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) + If ParenEnd = -1 Then ParenEnd = ParenFlag.Length + ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) - 'ParenFlag = ParenFlag.Split(")")(0) - 'ParenFlag = ParenFlag.Split(ParenType)(0) - 'ParenFlag = ParenFlag.Replace(ParenType, "") - 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) - Debug.Print("ParenFlag = " & ParenFlag) + 'ParenFlag = ParenFlag.Split(")")(0) + 'ParenFlag = ParenFlag.Split(ParenType)(0) + 'ParenFlag = ParenFlag.Replace(ParenType, "") + 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) + Debug.Print("ParenFlag = " & ParenFlag) - Return ParenFlag + Return ParenFlag - End Function + End Function - Public Function GetNthIndex(searchString As String, charToFind As Char, startIndex As Integer, n As Integer) As Integer - Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ - .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ - .ElementAtOrDefault(n - 1) - Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) - End Function + Public Function GetNthIndex(ByVal searchString As String, ByVal charToFind As Char, ByVal startIndex As Integer, ByVal n As Integer) As Integer + Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ + .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ + .ElementAtOrDefault(n - 1) + Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) + End Function - Public Function FixCommas(ByVal CommaString) As String + Public Function FixCommas(ByVal CommaString) As String - CommaString = CommaString.replace(", ", ",") - CommaString = CommaString.replace(" ,", ",") + CommaString = CommaString.replace(", ", ",") + CommaString = CommaString.replace(" ,", ",") - Return CommaString + Return CommaString - End Function + End Function - Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean + Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean - Dim HoldEdgeCheck As Boolean = False + Dim HoldEdgeCheck As Boolean = False - If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True + If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True - Return HoldEdgeCheck + Return HoldEdgeCheck - End Function + End Function - Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, - Optional ByVal ExcludeTags As List(Of String) = Nothing) As String - - - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - ' Read all lines of given file. - ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") - - - Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") - - ssh.LocalTagImageList.RemoveAll(Function(x) - ' Remove if given include tags are missing - If IncludeTags IsNot Nothing Then - For Each tag As String In IncludeTags - If Not x.Contains(tag.Replace("@", "")) Then Return True - Next - End If - ' Remove if given exclude tags are present - If ExcludeTags IsNot Nothing Then - For Each tag As String In ExcludeTags - If x.Contains(tag.Replace("@", "")) Then Return True - Next - End If - ' Remove all without valid extension - Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower - If Not ValidExt.Contains(Ext) Then Return True - 'Everything fine keep file - Return False - End Function) - - Do While ssh.LocalTagImageList.Count > 0 - Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) - ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. - Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) - - If Directory.Exists(Path.GetDirectoryName(Filepath)) _ - AndAlso File.Exists(Filepath) Then - Return Filepath - Else - ssh.LocalTagImageList.RemoveAt(rndNumber) - End If - Loop - End If + Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, + Optional ByVal ExcludeTags As List(Of String) = Nothing) As String + + + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + ' Read all lines of given file. + ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + + + Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") + + ssh.LocalTagImageList.RemoveAll(Function(x) + ' Remove if given include tags are missing + If IncludeTags IsNot Nothing Then + For Each tag As String In IncludeTags + If Not x.Contains(tag.Replace("@", "")) Then Return True + Next + End If + ' Remove if given exclude tags are present + If ExcludeTags IsNot Nothing Then + For Each tag As String In ExcludeTags + If x.Contains(tag.Replace("@", "")) Then Return True + Next + End If + ' Remove all without valid extension + Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower + If Not ValidExt.Contains(Ext) Then Return True + 'Everything fine keep file + Return False + End Function) + + Do While ssh.LocalTagImageList.Count > 0 + Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) + ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. + Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) + + If Directory.Exists(Path.GetDirectoryName(Filepath)) _ + AndAlso File.Exists(Filepath) Then + Return Filepath + Else + ssh.LocalTagImageList.RemoveAt(rndNumber) + End If + Loop + End If - Return String.Empty - End Function + Return String.Empty + End Function - Public Function GetLocalImage(ByVal LocTag As String) As String - 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + Public Function GetLocalImage(ByVal LocTag As String) As String + 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - Dim TagList As New List(Of String) - TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + Dim TagList As New List(Of String) + TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") - LocTag = LocTag.Replace(" ,", ",") - LocTag = LocTag.Replace(", ", ",") + LocTag = LocTag.Replace(" ,", ",") + LocTag = LocTag.Replace(", ", ",") - Dim LocTagArray As String() = LocTag.Split(",") + Dim LocTagArray As String() = LocTag.Split(",") - Dim LocTag1 As String = " " - Dim LocTag2 As String = " " - Dim LocTag3 As String = " " + Dim LocTag1 As String = " " + Dim LocTag2 As String = " " + Dim LocTag3 As String = " " - For i As Integer = 0 To LocTagArray.Count - 1 - If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) - If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) - If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) - Next + For i As Integer = 0 To LocTagArray.Count - 1 + If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) + If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) + If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) + Next - Dim TaggedList As New List(Of String) + Dim TaggedList As New List(Of String) - For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then - TaggedList.Add(TagList(i)) - End If - Next + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then + TaggedList.Add(TagList(i)) + End If + Next - If TaggedList.Count > 0 Then + If TaggedList.Count > 0 Then - Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split - Dim PicDir As String = "" + Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split + Dim PicDir As String = "" - For p As Integer = 0 To PicArray.Count - 1 - PicDir = PicDir & PicArray(p) & " " - If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For - Next + For p As Integer = 0 To PicArray.Count - 1 + PicDir = PicDir & PicArray(p) & " " + If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For + Next - Return PicDir + Return PicDir - Else - Return String.Empty + Else + Return String.Empty - End If + End If - End If - End Function + End If + End Function - Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) - If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True - If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True - If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True - End Sub + Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) + If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True + If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True + If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True + End Sub - Public Sub DisableContactStroke() - ssh.Contact1Stroke = False - ssh.Contact2Stroke = False - ssh.Contact3Stroke = False - End Sub + Public Sub DisableContactStroke() + ssh.Contact1Stroke = False + ssh.Contact2Stroke = False + ssh.Contact3Stroke = False + End Sub - Public Sub GetSubState() + Public Sub GetSubState() - ssh.ReturnSubState = "Rest" - If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" - If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" - If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" - If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" - If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" - If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" - If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" - If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" + ssh.ReturnSubState = "Rest" + If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" + If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" + If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" + If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" + If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" + If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" + If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" + If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" - End Sub + End Sub - Public Sub EdgePace() + Public Sub EdgePace() - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) - If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value - StrokePace = 50 * Math.Round(StrokePace / 50) + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) + If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value + StrokePace = 50 * Math.Round(StrokePace / 50) - End Sub + End Sub - Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) + Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) #If TRACE Then - Dim sw As New Stopwatch - sw.Start() + Dim sw As New Stopwatch + sw.Start() - Trace.WriteLine("FilterList Started") - Trace.Indent() + Trace.WriteLine("FilterList Started") + Trace.Indent() #End If - Dim FilterPass As Boolean - Dim ListIncrement As Integer = 1 - If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount - - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Check if Grouped-Lines-Files have the right amount of Lines - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' No need to go further on an empty file. - If ListClean.Count <= 0 Then - Trace.WriteLine("FilterList started with empty List. Skipping filter.") - Return ListClean - End If + Dim FilterPass As Boolean + Dim ListIncrement As Integer = 1 + If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount + + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Check if Grouped-Lines-Files have the right amount of Lines + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' No need to go further on an empty file. + If ListClean.Count <= 0 Then + Trace.WriteLine("FilterList started with empty List. Skipping filter.") + Return ListClean + End If - ' To Avoid DivideByZeroException - If ListIncrement <= 0 Then - Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " + ' To Avoid DivideByZeroException + If ListIncrement <= 0 Then + Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & "", False) - Return ListClean - End If + Return ListClean + End If - ' Divide List.Count by StrokeTauntSize and get the Remainder. - Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement + ' Divide List.Count by StrokeTauntSize and get the Remainder. + Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement - ' If there is a Remainder, the file has not the desired Line.Count. - If InvalidLineCount > 0 Then - ' So delete the Lines of the last and hopefully uncomplete Group. - ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Grouped-Lines-Check-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' If there is a Remainder, the file has not the desired Line.Count. + If InvalidLineCount > 0 Then + ' So delete the Lines of the last and hopefully uncomplete Group. + ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Grouped-Lines-Check-END + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement - FilterPass = True + FilterPass = True - For x As Integer = 0 To ListIncrement - 1 - If GetFilter(ListClean(i + x)) = False Then - FilterPass = False - Exit For - End If - Next + For x As Integer = 0 To ListIncrement - 1 + If GetFilter(ListClean(i + x)) = False Then + FilterPass = False + Exit For + End If + Next - If FilterPass = False Then - For x As Integer = 0 To ListIncrement - 1 - ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" - Next - End If + If FilterPass = False Then + For x As Integer = 0 To ListIncrement - 1 + ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" + Next + End If - Next + Next - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) - Next + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) + Next - Dim FilteredList As New List(Of String) + Dim FilteredList As New List(Of String) - 'For i As Integer = 0 To ListClean.Count - 1 - 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) - 'Next + 'For i As Integer = 0 To ListClean.Count - 1 + 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) + 'Next #If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If - Return ListClean + Return ListClean - End Function + End Function - Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim OrgFilterString As String = FilterString - Try - '######################### Determine filtering Contact ########################### - Dim FilterContact As ContactData - Dim ActiveContacts As New List(Of String) - - For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) - ' Pattern Description: - ' [d\d]: All Numbers and letter "D" - ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) - ActiveContacts.Add(match.Value) - Next + Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean + Dim OrgFilterString As String = FilterString + Try + '######################### Determine filtering Contact ########################### + Dim FilterContact As ContactData + Dim ActiveContacts As New List(Of String) - If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then - FilterContact = ssh.SlideshowContact1 - ElseIf FilterString.Includes("@Contact2") AndAlso ActiveContacts.Contains("2") Then - FilterContact = ssh.SlideshowContact2 - ElseIf FilterString.Includes("@Contact3") AndAlso ActiveContacts.Contains("3") Then - FilterContact = ssh.SlideshowContact3 - ElseIf ContactToUse IsNot Nothing Then - FilterContact = ContactToUse - Else - FilterContact = ssh.SlideshowMain - End If + For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) + ' Pattern Description: + ' [d\d]: All Numbers and letter "D" + ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) + ActiveContacts.Add(match.Value) + Next - If Linear = False Then - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Commands to sort out - ' This Section contains @Commands, which are able to disqualify vocabulary lines. - ' - ' Example-line: "Whatever Text to display @DommeTag(Glaring)" - ' - ' This line has to be sorted out, if there are no corresponding images tagged - ' with "glaring". - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - 'ISSUE: @DomTag() is not filtered out - If FilterString.Includes("@DommeTag(") Then - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.LockImage = True Then - Return False - Else - If FilterContact.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - End If - End If + If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then + FilterContact = ssh.SlideshowContact1 + ElseIf FilterString.Includes("@Contact2") AndAlso ActiveContacts.Contains("2") Then + FilterContact = ssh.SlideshowContact2 + ElseIf FilterString.Includes("@Contact3") AndAlso ActiveContacts.Contains("3") Then + FilterContact = ssh.SlideshowContact3 + ElseIf ContactToUse IsNot Nothing Then + FilterContact = ContactToUse + Else + FilterContact = ssh.SlideshowMain + End If - If FilterString.Contains("@ImageTag(") Then - If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False - End If + If Linear = False Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Commands to sort out + ' This Section contains @Commands, which are able to disqualify vocabulary lines. + ' + ' Example-line: "Whatever Text to display @DommeTag(Glaring)" + ' + ' This line has to be sorted out, if there are no corresponding images tagged + ' with "glaring". + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + 'ISSUE: @DomTag() is not filtered out + If FilterString.Includes("@DommeTag(") Then + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.LockImage = True Then + Return False + Else + If FilterContact.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + End If + End If - ' ################## @Show-Category-Image ##################### - If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then - If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowBlowjobImage") Then - If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then - If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowCaptionsImage") Then - If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowDislikedImage") Then - If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowFemdomImage") Then - If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowGayImage") Then - If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowGeneralImage") Then - If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowHardcoreImage") Then - If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowHentaiImage") Then - If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLesbianImage") Then - If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLezdomImage") Then - If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLikedImage") Then - If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLocalImage") Then - If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False - End If - If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then - If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False - End If - 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. - If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False + If FilterString.Contains("@ImageTag(") Then + If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False + End If - If FilterString.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = FilterString.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + ' ################## @Show-Category-Image ##################### + If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then + If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowBlowjobImage") Then + If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then + If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowCaptionsImage") Then + If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowDislikedImage") Then + If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowFemdomImage") Then + If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowGayImage") Then + If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowGeneralImage") Then + If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowHardcoreImage") Then + If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowHentaiImage") Then + If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLesbianImage") Then + If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLezdomImage") Then + If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLikedImage") Then + If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLocalImage") Then + If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False + End If + If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then + If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False + End If + 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. + If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False - If GetLocalImage(Tags, Nothing) = String.Empty Then Return False - End If + If FilterString.Contains("@ShowTaggedImage") Then + Dim Tags As List(Of String) = FilterString.Split() _ + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - If FilterString.Contains("@ShowMaledomImage") Then - If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowSoftcoreImage") Then - If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Disqualifying @Commands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - End If + If GetLocalImage(Tags, Nothing) = String.Empty Then Return False + End If + + If FilterString.Contains("@ShowMaledomImage") Then + If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowSoftcoreImage") Then + If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Disqualifying @Commands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Possible space Filters - ' This Section Contains @CommandFilters which allow space chars (0x20). - ' - ' Example: "@Cup(A, B) Whatever Text to display" - ' Mostly all perametrized command filters allow space chars in parameters. - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Possible space Filters + ' This Section Contains @CommandFilters which allow space chars (0x20). + ' + ' Example: "@Cup(A, B) Whatever Text to display" + ' Mostly all perametrized command filters allow space chars in parameters. + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If FilterString.Contains("@AllowsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@ApathyLevel(") Then - If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False + If FilterString.Contains("@AllowsOrgasm(") Then + If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@ApathyLevel(") Then + If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False End If If FilterString.Contains("@DommeLevel(") Then If FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) = False Then Return False End If - If FilterString.Contains("@Cup(") Then - If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False - End If - If FilterString.Contains("@RuinsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@Variable[") Then - If CheckVariable(FilterString) = False Then Return False - End If + If FilterString.Contains("@Cup(") Then + If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False + End If + If FilterString.Contains("@RuinsOrgasm(") Then + If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@Variable[") Then + If CheckVariable(FilterString) = False Then Return False + End If - If FilterString.Contains("@Group(") Then - Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") - If GroupCheck.Contains("D") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False - End If - If GroupCheck.Contains("1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - End If - If GroupCheck.Contains("2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - End If - If GroupCheck.Contains("3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - End If - End If + If FilterString.Contains("@Group(") Then + Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") + If GroupCheck.Contains("D") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False + End If + If GroupCheck.Contains("1") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + End If + If GroupCheck.Contains("2") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + End If + If GroupCheck.Contains("3") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + End If + End If If FilterString.Contains("@Flag(") Then Dim writeFlag As String @@ -14477,1268 +14493,1268 @@ VTSkip: If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) Return False End Try - End Function + End Function - Public Function GetFilter2(ByVal FilterString As String) As Boolean + Public Function GetFilter2(ByVal FilterString As String) As Boolean - Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) - Try - '=============================================================================== - ' Dictionary Setup Description - ' 1st Parameter: "Key" this is the Command as String preceded with @ - ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. - ' - ' If "Value" is "True", all lines containing "Key" will be excuded. - ' - '=============================================================================== - With __ConditionDic - .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) - .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) - .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) - .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) - .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) - .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) - .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) - .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) - .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) - .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) - .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) - .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) - .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) - .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) - .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) - .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) - .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) - .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) - .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) - .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) - .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) - .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) - .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) - .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) - .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) - .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) - .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) - .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - - .Add("@FirstRound", ssh.FirstRound = False) - .Add("@NotFirstRound", ssh.FirstRound = True) - .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) - .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) - .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") - .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") - .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") - .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") - .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") - .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") - .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") - .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") - .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") - .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") - .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") - .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") - .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") - .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") - .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) - .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) - .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) - '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. - '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) - .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) - .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) - .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) - .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) - .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) - .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) - .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) - .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) - .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) - .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) - .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) - .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) - .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) - .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) - .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) - .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) - .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) - .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) - '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. - .Add("@BeforeTease", ssh.BeforeTease = False) - .Add("@OrgasmDenied", ssh.OrgasmDenied = False) - .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) - .Add("@OrgasmRuined", ssh.OrgasmRuined = False) - .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) - .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) - .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) - .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) - .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) - .Add("@InChastity", My.Settings.Chastity = False) - .Add("@NotInChastity", My.Settings.Chastity = True) - .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) - .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) - .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) - .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) - .Add("@VitalSub", CBVitalSub.Checked = False) - .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) - .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) - .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) - .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) - .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") - .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") - .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") - .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") - .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") - .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") - .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") - .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") - .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") - .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") - .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") - .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") - .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") - .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") - .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) - .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) - .Add("@BallTorture0", ssh.CBTBallsCount <> 0) - .Add("@BallTorture1", ssh.CBTBallsCount <> 1) - .Add("@BallTorture2", ssh.CBTBallsCount <> 2) - .Add("@BallTorture3", ssh.CBTBallsCount <> 3) - .Add("@BallTorture4+", ssh.CBTBallsCount < 4) - .Add("@CockTorture0", ssh.CBTCockCount <> 0) - .Add("@CockTorture1", ssh.CBTCockCount <> 1) - .Add("@CockTorture2", ssh.CBTCockCount <> 2) - .Add("@CockTorture3", ssh.CBTCockCount <> 3) - .Add("@CockTorture4+", ssh.CBTCockCount < 4) - .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) - .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) - .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) - .Add("@Stroking", ssh.SubStroking = False) - .Add("@SubStroking", ssh.SubStroking = False) - .Add("@NotStroking", ssh.SubStroking = True) - .Add("@SubNotStroking", ssh.SubStroking = True) - .Add("@Edging", ssh.SubEdging = False) - .Add("@SubEdging", ssh.SubEdging = False) - .Add("@NotEdging", ssh.SubEdging = True) - .Add("@SubNotEdging", ssh.SubEdging = True) - .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@Morning", ssh.GeneralTime <> "Morning") - .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") - .Add("@Night", ssh.GeneralTime <> "Night") - .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) - .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) - .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) - .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. - .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) - .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) - .Add("@SubWorshipping", ssh.WorshipMode = False) - .Add("@SubNotWorshipping", ssh.WorshipMode = True) - .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) - .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) - .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) - .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) - .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) - End With - Catch ex As ArgumentException - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' ArgumentException => Will occur everytime until you fix Source Code! - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) - MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & - "further executing the Code, the application will exit after closing this Message." & vbCrLf & - ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") - Application.Exit() - End Try + Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) + Try + '=============================================================================== + ' Dictionary Setup Description + ' 1st Parameter: "Key" this is the Command as String preceded with @ + ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. + ' + ' If "Value" is "True", all lines containing "Key" will be excuded. + ' + '=============================================================================== + With __ConditionDic + .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) + .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) + .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) + .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) + .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) + .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) + .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) + .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) + .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) + .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) + .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) + .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) + .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) + .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) + .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) + .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) + .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) + .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) + .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) + .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) + .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) + .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) + .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) + .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) + .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) + .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) + .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) + .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + + .Add("@FirstRound", ssh.FirstRound = False) + .Add("@NotFirstRound", ssh.FirstRound = True) + .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) + .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) + .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") + .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") + .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") + .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") + .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") + .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") + .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") + .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") + .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") + .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") + .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") + .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") + .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") + .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") + .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) + .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) + .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. + '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) + .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) + .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) + .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) + .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) + .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) + .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) + .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) + .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) + .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) + .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) + .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) + .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) + .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) + .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) + .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) + .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) + .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) + .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) + '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. + .Add("@BeforeTease", ssh.BeforeTease = False) + .Add("@OrgasmDenied", ssh.OrgasmDenied = False) + .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) + .Add("@OrgasmRuined", ssh.OrgasmRuined = False) + .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) + .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) + .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) + .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) + .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) + .Add("@InChastity", My.Settings.Chastity = False) + .Add("@NotInChastity", My.Settings.Chastity = True) + .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) + .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) + .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) + .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) + .Add("@VitalSub", CBVitalSub.Checked = False) + .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) + .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) + .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) + .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) + .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") + .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") + .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") + .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") + .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") + .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") + .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") + .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") + .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") + .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") + .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") + .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") + .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") + .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") + .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) + .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) + .Add("@BallTorture0", ssh.CBTBallsCount <> 0) + .Add("@BallTorture1", ssh.CBTBallsCount <> 1) + .Add("@BallTorture2", ssh.CBTBallsCount <> 2) + .Add("@BallTorture3", ssh.CBTBallsCount <> 3) + .Add("@BallTorture4+", ssh.CBTBallsCount < 4) + .Add("@CockTorture0", ssh.CBTCockCount <> 0) + .Add("@CockTorture1", ssh.CBTCockCount <> 1) + .Add("@CockTorture2", ssh.CBTCockCount <> 2) + .Add("@CockTorture3", ssh.CBTCockCount <> 3) + .Add("@CockTorture4+", ssh.CBTCockCount < 4) + .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) + .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) + .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) + .Add("@Stroking", ssh.SubStroking = False) + .Add("@SubStroking", ssh.SubStroking = False) + .Add("@NotStroking", ssh.SubStroking = True) + .Add("@SubNotStroking", ssh.SubStroking = True) + .Add("@Edging", ssh.SubEdging = False) + .Add("@SubEdging", ssh.SubEdging = False) + .Add("@NotEdging", ssh.SubEdging = True) + .Add("@SubNotEdging", ssh.SubEdging = True) + .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@Morning", ssh.GeneralTime <> "Morning") + .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") + .Add("@Night", ssh.GeneralTime <> "Night") + .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) + .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) + .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) + .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. + .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) + .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) + .Add("@SubWorshipping", ssh.WorshipMode = False) + .Add("@SubNotWorshipping", ssh.WorshipMode = True) + .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) + .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) + .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) + .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) + .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) + End With + Catch ex As ArgumentException + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' ArgumentException => Will occur everytime until you fix Source Code! + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) + MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & + "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & + "further executing the Code, the application will exit after closing this Message." & vbCrLf & + ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") + Application.Exit() + End Try - Try - ' Declare a new regex Instance, for detecting the parameters in a line. - ' Allowed chars for Commands are: A-Z a-z 0-9 @ - ' Allowed Brackets are : ( [ - ' Minimum length is 3 Chars, maximum Command length has no restriction. - Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) - - - ' Execute regex on current line, to find all containing Commands - Dim mc As MatchCollection = __re.Matches(FilterString) - - For Each m As Match In mc - If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then - '=============================================================================== - ' Known Command - DELETE Condition = TRUE - '=============================================================================== - ' The Command is known and his delete condition is True -> delete line - Return False - - ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then - '=============================================================================== - ' Unknown Command / BracketCommand - '=============================================================================== - Dim Condition As Boolean = False - - Select Case m.Value.ToUpper - Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) - Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) - Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) - Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) - Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) - Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) - Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) - 'QND-Implemented: ContactData.GetTaggedImage - 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True - Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) - Case Else - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - ' Unknown Command => goto next Match - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - Dim f As String = "" ' Debug line to add the ability to set a breakpoint. - Exit For - End Select - ' The Command is known and his delete condition is True -> delete line - If Condition Then Return False - End If - Next ' of Regex matches (Commands) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: Once implemented rethrow all exceptions. - 'Throw - End Try + Try + ' Declare a new regex Instance, for detecting the parameters in a line. + ' Allowed chars for Commands are: A-Z a-z 0-9 @ + ' Allowed Brackets are : ( [ + ' Minimum length is 3 Chars, maximum Command length has no restriction. + Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) + + + ' Execute regex on current line, to find all containing Commands + Dim mc As MatchCollection = __re.Matches(FilterString) + + For Each m As Match In mc + If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then + '=============================================================================== + ' Known Command - DELETE Condition = TRUE + '=============================================================================== + ' The Command is known and his delete condition is True -> delete line + Return False + + ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then + '=============================================================================== + ' Unknown Command / BracketCommand + '=============================================================================== + Dim Condition As Boolean = False + + Select Case m.Value.ToUpper + Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) + Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) + Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) + Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) + Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) + Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) + Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) + 'QND-Implemented: ContactData.GetTaggedImage + 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True + Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) + Case Else + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + ' Unknown Command => goto next Match + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + Dim f As String = "" ' Debug line to add the ability to set a breakpoint. + Exit For + End Select + ' The Command is known and his delete condition is True -> delete line + If Condition Then Return False + End If + Next ' of Regex matches (Commands) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: Once implemented rethrow all exceptions. + 'Throw + End Try - Return True + Return True - End Function + End Function #Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" - Private Sub ChatText_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted - ScrollChatDown() - End Sub + Private Sub ChatText_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted + ScrollChatDown() + End Sub - Private Sub ChatText2_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub + Private Sub ChatText2_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + End Sub + + Private Sub chatBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop + chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub + + Private Sub chatBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop + chatBox.Text = "" + ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub + + Private Sub chatBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + End If + End Sub - Private Sub chatBox_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop - chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub + Private Sub chatBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + End If + End Sub - Private Sub chatBox2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop - chatBox.Text = "" - ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub + Private Sub chatbox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles chatBox.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True + End If + End Sub - Private Sub chatBox_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy - End If - End Sub + Private Sub chatbox2_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles ChatBox2.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True + End If + End Sub - Private Sub chatBox2_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy - End If - End Sub + Private Sub chatBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True + ' sendButton.PerformClick() + e.KeyChar = Chr(0) + End If + End Sub - Private Sub chatbox_KeyDown(sender As Object, e As KeyEventArgs) Handles chatBox.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True - End If - End Sub + Private Sub chatBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True + ' sendButton.PerformClick() + e.KeyChar = Chr(0) + End If + End Sub + + ''' Appends a system message to chat and prints it if desired. + ''' Messagetext to append to chat. + ''' If true the chatwindow is refreshed and reprinted. + Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) + ChatAppend("" & messageText & "", printChat) + 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" + End Sub + + Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) + ssh.Chat &= elementText & "
" & vbCrLf + If printChat Then Me.PrintChat() + End Sub + + Friend Sub PrintChat() + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + End Sub + + Public Sub ScrollChatDown() + + Try + ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - Private Sub chatbox2_KeyDown(sender As Object, e As KeyEventArgs) Handles ChatBox2.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True - End If - End Sub + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - Private Sub chatBox_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) - End If - End Sub + End Sub - Private Sub chatBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) - End If - End Sub + Public Sub ClearChat() - ''' Appends a system message to chat and prints it if desired. - ''' Messagetext to append to chat. - ''' If true the chatwindow is refreshed and reprinted. - Public Sub ChatAddSystemMessage(messageText As String, Optional printChat As Boolean = True) - ChatAppend("" & messageText & "", printChat) - 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" - End Sub + ssh.Chat = "" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() - Public Sub ChatAppend(elementText As String, Optional printChat As Boolean = True) - ssh.Chat &= elementText & "
" & vbCrLf - If printChat Then Me.PrintChat() - End Sub + End Sub - Friend Sub PrintChat() - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - End Sub + Public Sub ChatReadyState() + While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete + Application.DoEvents() + End While + ScrollChatDown() + End Sub - Public Sub ScrollChatDown() +#End Region ' Chatbox - Try - ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try +#Region "------------------------------------ Avoid the Edge --------------------------------------------" - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try + Private Sub AvoidTheEdge_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvoidTheEdge.Tick - End Sub + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - Public Sub ClearChat() + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return + If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - ssh.Chat = "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ssh.AvoidTheEdgeTick -= 1 - End Sub + If ssh.AvoidTheEdgeTick < 1 Then - Public Sub ChatReadyState() - While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete - Application.DoEvents() - End While - ScrollChatDown() - End Sub -#End Region ' Chatbox -#Region "------------------------------------ Avoid the Edge --------------------------------------------" + Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" + If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" - Private Sub AvoidTheEdge_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdge.Tick + Dim AvoidTheEdgeLineStart As Integer + Dim AvoidTheEdgeLineEnd As Integer - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return - If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If File.Exists(AvoidTheEdgeVideo) Then + Else + If ssh.DommeVideo = True Then + MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") + Else + MsgBox("AvoidTheEdge.txt is missing!", , "Error!") + End If + Return + End If - ssh.AvoidTheEdgeTick -= 1 - If ssh.AvoidTheEdgeTick < 1 Then + If ssh.AvoidTheEdgeStroking = False Then - Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" - If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" + 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) - Dim AvoidTheEdgeLineStart As Integer - Dim AvoidTheEdgeLineEnd As Integer + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then + 'Return + 'End If - If File.Exists(AvoidTheEdgeVideo) Then - Else - If ssh.DommeVideo = True Then - MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") - Else - MsgBox("AvoidTheEdge.txt is missing!", , "Error!") - End If - Return - End If + Using ioFileA As New StreamReader(AvoidTheEdgeVideo) + Dim linesA As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer + TempAvoidTheEdgeLine = -1 + While ioFileA.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesA.Add(ioFileA.ReadLine()) + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While + End Using - If ssh.AvoidTheEdgeStroking = False Then + Else - 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then - 'Return - 'End If - Using ioFileA As New StreamReader(AvoidTheEdgeVideo) - Dim linesA As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer - - TempAvoidTheEdgeLine = -1 - While ioFileA.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesA.Add(ioFileA.ReadLine()) - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While - End Using + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - Else + Using ioFileB As New StreamReader(AvoidTheEdgeVideo) + Dim linesB As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer + TempAvoidTheEdgeLine = -1 + While ioFileB.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesB.Add(ioFileB.ReadLine()) + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While + End Using + End If + Dim ioFile As New StreamReader(AvoidTheEdgeVideo) + Dim lines As New List(Of String) + While ioFile.Peek <> -1 + lines.Add(ioFile.ReadLine()) + End While + Dim AvoidTheEdgeLine As Integer - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) + 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) - Using ioFileB As New StreamReader(AvoidTheEdgeVideo) - Dim linesB As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer - - TempAvoidTheEdgeLine = -1 - While ioFileB.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesB.Add(ioFileB.ReadLine()) - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While + AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) - End Using + ssh.DomTask = lines(AvoidTheEdgeLine) - End If + TypingDelayGeneric() - Dim ioFile As New StreamReader(AvoidTheEdgeVideo) - Dim lines As New List(Of String) - While ioFile.Peek <> -1 - lines.Add(ioFile.ReadLine()) - End While - Dim AvoidTheEdgeLine As Integer - 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) - 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) - AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) + End If - ssh.DomTask = lines(AvoidTheEdgeLine) + End Sub - TypingDelayGeneric() + Private Sub AvoidTheEdgeResume_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvoidTheEdgeResume.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return + If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return + If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return + ssh.AtECountdown -= 1 + 'Debug.Print("AtECountdown = " & AtECountdown) - End If + If ssh.AtECountdown < 1 Then + AvoidTheEdgeResume.Stop() - End Sub + ssh.FileGoto = "NoAvoidTheEdgeInstructions" + ssh.SkipGotoLine = True + GetGoto() + 'domVLC.playlist.play() + DomWMP.Ctlcontrols.play() + HandleScripts() + ScriptTimer.Start() - Private Sub AvoidTheEdgeResume_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeResume.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + End If - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return - If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return - If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return - ssh.AtECountdown -= 1 - 'Debug.Print("AtECountdown = " & AtECountdown) + End Sub - If ssh.AtECountdown < 1 Then - AvoidTheEdgeResume.Stop() +#End Region ' Avoid the Edge - ssh.FileGoto = "NoAvoidTheEdgeInstructions" - ssh.SkipGotoLine = True - GetGoto() - 'domVLC.playlist.play() - DomWMP.Ctlcontrols.play() - HandleScripts() - ScriptTimer.Start() - End If - End Sub -#End Region ' Avoid the Edge + Private Sub BtnToggleImageVideo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleImageVideo.Click + If mainPictureBox.Visible = True Then + DomWMP.Visible = True + mainPictureBox.Visible = False + Else + mainPictureBox.Visible = True + DomWMP.Visible = False + End If + End Sub + Public Sub RunModuleScript(ByVal IsEdging As Boolean) - Private Sub BtnToggleImageVideo_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleImageVideo.Click + ssh.ShowModule = True + ssh.TauntEdging = False - If mainPictureBox.Visible = True Then - DomWMP.Visible = True - mainPictureBox.Visible = False - Else - mainPictureBox.Visible = True - DomWMP.Visible = False - End If + ssh.AskedToGiveUpSection = False + Dim ModuleList As New List(Of String) + ModuleList.Clear() - End Sub + Dim ChastityModuleCheck As String = "*.txt" + If My.Settings.Chastity = True And Not IsEdging Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + ChastityModuleCheck = "*_CHASTITY.txt" + End If + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile - Public Sub RunModuleScript(IsEdging As Boolean) + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then - ssh.ShowModule = True - ssh.TauntEdging = False +NoPlaylistModuleFile: - ssh.AskedToGiveUpSection = False - Dim ModuleList As New List(Of String) - ModuleList.Clear() + If ssh.SetModule <> "" Then - Dim ChastityModuleCheck As String = "*.txt" - If My.Settings.Chastity = True And Not IsEdging Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - ChastityModuleCheck = "*_CHASTITY.txt" - End If + ssh.FileText = ssh.SetModule + Else - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) + Dim TempModule As String = foundFile + TempModule = Path.GetFileName(TempModule).Replace(".txt", "") - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then + If IsEdging Then + Do Until Not TempModule.Contains("\") + TempModule = TempModule.Remove(0, 1) + Loop + End If -NoPlaylistModuleFile: + For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If + ElseIf IsEdging Then + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If + Else + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then + ModuleList.Add(foundFile) + End If + End If + Next + Next - If ssh.SetModule <> "" Then + If ModuleList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" + ElseIf IsEdging Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" + End If + Else + ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) + End If + End If - ssh.FileText = ssh.SetModule - Else + Else + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) - Dim TempModule As String = foundFile - TempModule = Path.GetFileName(TempModule).Replace(".txt", "") + End If - If IsEdging Then + ssh.SetModule = "" - Do Until Not TempModule.Contains("\") - TempModule = TempModule.Remove(0, 1) - Loop - End If + ssh.DomTask = ssh.DomTask.Replace("@Module", "") - For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If - ElseIf IsEdging Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If - Else - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then - ModuleList.Add(foundFile) - End If - End If - Next - Next - If ModuleList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" - ElseIf IsEdging Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" - End If - Else - ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) - End If - End If + If ssh.SetModuleGoto <> "" Then + ssh.FileGoto = ssh.SetModuleGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetModuleGoto = "" + Else + ssh.StrokeTauntVal = -1 + End If - Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - End If + If Not IsEdging Then - ssh.SetModule = "" + If ssh.Playlist = True Then ssh.BookmarkModule = False - ssh.DomTask = ssh.DomTask.Replace("@Module", "") + If ssh.BookmarkModule = True Then + ssh.BookmarkModule = False + ssh.FileText = ssh.BookmarkModuleFile + ssh.StrokeTauntVal = ssh.BookmarkModuleLine + End If + ssh.ScriptTick = 3 - If ssh.SetModuleGoto <> "" Then - ssh.FileGoto = ssh.SetModuleGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetModuleGoto = "" - Else - ssh.StrokeTauntVal = -1 - End If + Else + ssh.ScriptTick = 4 + End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + ScriptTimer.Start() + End Sub - If Not IsEdging Then - If ssh.Playlist = True Then ssh.BookmarkModule = False - If ssh.BookmarkModule = True Then - ssh.BookmarkModule = False - ssh.FileText = ssh.BookmarkModuleFile - ssh.StrokeTauntVal = ssh.BookmarkModuleLine - End If + Public Sub RunLinkScript() - ssh.ScriptTick = 3 + Debug.Print("RunLinkScript() Called") - Else - ssh.ScriptTick = 4 - End If + ClearModes() - ScriptTimer.Start() - End Sub + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then - Public Sub RunLinkScript() +NoPlaylistLinkFile: - Debug.Print("RunLinkScript() Called") - ClearModes() + Debug.Print("SetLink = " & ssh.SetLink) - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then + If ssh.SetLink <> "" Then + Debug.Print("SetLink Called") + ssh.FileText = ssh.SetLink + Else -NoPlaylistLinkFile: + Dim LinkList As New List(Of String) + LinkList.Clear() - Debug.Print("SetLink = " & ssh.SetLink) + Dim ChastityLinkCheck As String + If My.Settings.Chastity = True Then + ChastityLinkCheck = "*_CHASTITY.txt" + Else + ChastityLinkCheck = "*.txt" + End If + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) + Dim TempLink As String = foundFile + TempLink = TempLink.Replace(".txt", "") + Do Until Not TempLink.Contains("\") + TempLink = TempLink.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then + LinkList.Add(foundFile) + End If + Else + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then + LinkList.Add(foundFile) + End If + End If - If ssh.SetLink <> "" Then - Debug.Print("SetLink Called") - ssh.FileText = ssh.SetLink - Else + Next + Next + If LinkList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" + End If + Else + ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) + End If - Dim LinkList As New List(Of String) - LinkList.Clear() + End If + Else + Debug.Print("Playlist Link Called") + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If - Dim ChastityLinkCheck As String - If My.Settings.Chastity = True Then - ChastityLinkCheck = "*_CHASTITY.txt" - Else - ChastityLinkCheck = "*.txt" - End If + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) - Dim TempLink As String = foundFile - TempLink = TempLink.Replace(".txt", "") - Do Until Not TempLink.Contains("\") - TempLink = TempLink.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then - LinkList.Add(foundFile) - End If - Else - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then - LinkList.Add(foundFile) - End If - End If + ssh.SetLink = "" + Debug.Print("SetLink = " & ssh.SetLink) - Next - Next - - If LinkList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" - End If - Else - ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) - End If - End If - - Else - Debug.Print("Playlist Link Called") - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If - - End If - - ssh.SetLink = "" - Debug.Print("SetLink = " & ssh.SetLink) - - - If ssh.WorshipMode = False Then - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - End If + If ssh.WorshipMode = False Then + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + End If - If ssh.SetLinkGoto <> "" Then - ssh.FileGoto = ssh.SetLinkGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetLinkGoto = "" - Else - ssh.StrokeTauntVal = -1 - End If + If ssh.SetLinkGoto <> "" Then + ssh.FileGoto = ssh.SetLinkGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetLinkGoto = "" + Else + ssh.StrokeTauntVal = -1 + End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - If ssh.Playlist = True Then ssh.BookmarkLink = False + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + If ssh.Playlist = True Then ssh.BookmarkLink = False - If ssh.BookmarkLink = True Then - ssh.BookmarkLink = False - ssh.FileText = ssh.BookmarkLinkFile - ssh.StrokeTauntVal = ssh.BookmarkLinkLine - End If + If ssh.BookmarkLink = True Then + ssh.BookmarkLink = False + ssh.FileText = ssh.BookmarkLinkFile + ssh.StrokeTauntVal = ssh.BookmarkLinkLine + End If - Debug.Print("Link FileText Called") + Debug.Print("Link FileText Called") - ssh.ScriptTick = 3 - ScriptTimer.Start() + ssh.ScriptTick = 3 + ScriptTimer.Start() - End Sub + End Sub - Public Sub RunLastScript() + Public Sub RunLastScript() - ClearModes() + ClearModes() - 'My.Settings.Sys_SubLeftEarly = 0 + 'My.Settings.Sys_SubLeftEarly = 0 - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) - SetVariable("SYS_SubLeftEarly", 0) + SetVariable("SYS_SubLeftEarly", 0) - SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) + SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) - 'Debug.Print("RunLastScript() Called") + 'Debug.Print("RunLastScript() Called") - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then NoPlaylistEndFile: - Dim EndList As New List(Of String) - EndList.Clear() + Dim EndList As New List(Of String) + EndList.Clear() - Dim ChastityEndCheck As String - If My.Settings.Chastity = True Then - ChastityEndCheck = "*_CHASTITY.txt" - Else - ChastityEndCheck = "*.txt" - End If + Dim ChastityEndCheck As String + If My.Settings.Chastity = True Then + ChastityEndCheck = "*_CHASTITY.txt" + Else + ChastityEndCheck = "*.txt" + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) - Dim TempEnd As String = foundFile - TempEnd = TempEnd.Replace(".txt", "") - Do Until Not TempEnd.Contains("\") - TempEnd = TempEnd.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - Else + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) + Dim TempEnd As String = foundFile + TempEnd = TempEnd.Replace(".txt", "") + Do Until Not TempEnd.Contains("\") + TempEnd = TempEnd.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + Else - If ssh.OrgasmRestricted = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ - And Not TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - End If - End If - Next - Next + If ssh.OrgasmRestricted = True Then + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + Else + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ + And Not TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + End If + End If + Next + Next - If EndList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" - Else - If ssh.OrgasmRestricted = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" - End If - End If - Else - ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) - End If + If EndList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" + Else + If ssh.OrgasmRestricted = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" + End If + End If + Else + ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) + End If - Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If - End If + Else + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If + End If - If ssh.WorshipMode = False Then - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.LockImage = False - End If + If ssh.WorshipMode = False Then + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.LockImage = False + End If - ssh.StrokeTauntVal = -1 + ssh.StrokeTauntVal = -1 - ssh.LastScript = True + ssh.LastScript = True - ssh.ScriptTick = 3 - ScriptTimer.Start() + ssh.ScriptTick = 3 + ScriptTimer.Start() - End Sub + End Sub - Public Sub RunLastBegScript() + Public Sub RunLastBegScript() - ClearModes() + ClearModes() - 'Debug.Print("RunLastBegScript() Called") - Dim EndList As New List(Of String) - EndList.Clear() + 'Debug.Print("RunLastBegScript() Called") + Dim EndList As New List(Of String) + EndList.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - Dim TempEnd As String = foundFile - TempEnd = TempEnd.Replace(".txt", "") - Do Until Not TempEnd.Contains("\") - TempEnd = TempEnd.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + Dim TempEnd As String = foundFile + TempEnd = TempEnd.Replace(".txt", "") + Do Until Not TempEnd.Contains("\") + TempEnd = TempEnd.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 - If ssh.OrgasmRestricted = False Then + If ssh.OrgasmRestricted = False Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then - EndList.Add(foundFile) - End If - Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then + EndList.Add(foundFile) + End If + Else + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If - End If + End If - Next - Next + Next + Next - If EndList.Count < 1 Then + If EndList.Count < 1 Then - If ssh.OrgasmRestricted = False Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" - End If - Else - ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) - End If + If ssh.OrgasmRestricted = False Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + End If + Else + ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) + End If - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 4 - ScriptTimer.Start() - ssh.LastScript = True + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 4 + ScriptTimer.Start() + ssh.LastScript = True - 'RunFileText() + 'RunFileText() - End Sub + End Sub - Public Sub StopEverything() + Public Sub StopEverything() - ScriptTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False + ScriptTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False - ssh.ExtremeHold = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False - ssh.MiniScript = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False + ssh.ExtremeHold = False - ' Unlock OrgasmChances - FrmSettings.LockOrgasmChances(False) + ssh.MiniScript = False - ClearModes() + ' Unlock OrgasmChances + FrmSettings.LockOrgasmChances(False) + ClearModes() - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If - StrokePace = 0 + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - End Sub + StrokePace = 0 + End Sub - Private Sub EdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeTauntTimer.Tick - If MultipleEdgesTimer.Enabled = True Then Return - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return + Private Sub EdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeTauntTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If MultipleEdgesTimer.Enabled = True Then Return + If ssh.MiniScript = True Then Return + If ssh.InputFlag = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) + FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt - ssh.EdgeTauntInt -= 1 + 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) - If ssh.EdgeTauntInt < 1 Then + ssh.EdgeTauntInt -= 1 - Dim File2Read As String = "" + If ssh.EdgeTauntInt < 1 Then - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" - End If + Dim File2Read As String = "" + + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" + End If - 'Read all lines of the given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + 'Read all lines of the given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & - File2Read, ex, "EdgeTauntTimer.Tick") + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & + File2Read, ex, "EdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read - End Try + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) + ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) - End If + End If - End Sub + End Sub #Region "--------------------------------------- Hold the Edge ------------------------------------------" - Private Sub HoldEdgeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTimer.Tick - - If ssh.MiniScript = True Then Return + Private Sub HoldEdgeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTimer.Tick - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + If ssh.MiniScript = True Then Return - ssh.HoldEdgeTime += 1 - ssh.HoldEdgeTimeTotal += 1 + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal + ssh.HoldEdgeTime += 1 + ssh.HoldEdgeTimeTotal += 1 - If ssh.InputFlag = True Then Return + My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.InputFlag = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - 'If DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return - If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return - ssh.HoldEdgeTick -= 1 + 'If DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return + If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return - FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + ssh.HoldEdgeTick -= 1 - If ssh.HoldEdgeTick < 1 Then + FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - 'stop - ssh.LongHold = False - ssh.ExtremeHold = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" + If ssh.HoldEdgeTick < 1 Then - 'If OrgasmAllowed = True Then GoTo AllowedOrgasm - 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm + 'stop + ssh.LongHold = False + ssh.ExtremeHold = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" - If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then - ssh.LastOrgasmType = "RUINED" - ssh.OrgasmRuined = False - GoTo RuinedOrgasm - End If + 'If OrgasmAllowed = True Then GoTo AllowedOrgasm + 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm - If ssh.OrgasmAllowed = True Then - ssh.LastOrgasmType = "ALLOWED" - ssh.OrgasmAllowed = False - GoTo AllowedOrgasm - End If + If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then + ssh.LastOrgasmType = "RUINED" + ssh.OrgasmRuined = False + GoTo RuinedOrgasm + End If - If ssh.OrgasmDenied = True Then + If ssh.OrgasmAllowed = True Then + ssh.LastOrgasmType = "ALLOWED" + ssh.OrgasmAllowed = False + GoTo AllowedOrgasm + End If - ssh.LastOrgasmType = "DENIED" + If ssh.OrgasmDenied = True Then - If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then + ssh.LastOrgasmType = "DENIED" - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then - If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - Dim RepeatList As New List(Of String) + If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + Dim RepeatList As New List(Of String) - If RepeatList.Count < 1 Then GoTo NoRepeatFiles + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If + If RepeatList.Count < 1 Then GoTo NoRepeatFiles - TeaseTimer.Start() + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmDenied = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If + TeaseTimer.Start() + + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmDenied = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - End If + End If - End If + End If NoRepeatFiles: - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - ssh.DomTask = "#StopStroking" - If ssh.Contact1Edge = True Then - ssh.DomTask = "@Contact1 #StopStroking" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomTask = "@Contact2 #StopStroking" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomTask = "@Contact3 #StopStroking" - ssh.Contact3Edge = False - End If - TypingDelayGeneric() - Return + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + ssh.DomTask = "#StopStroking" + If ssh.Contact1Edge = True Then + ssh.DomTask = "@Contact1 #StopStroking" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomTask = "@Contact2 #StopStroking" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomTask = "@Contact3 #StopStroking" + ssh.Contact3Edge = False + End If + TypingDelayGeneric() + Return RuinedOrgasm: - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then + If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True - Dim RepeatList As New List(Of String) + Dim RepeatList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next - If RepeatList.Count < 1 Then GoTo NoRepeatRFiles + If RepeatList.Count < 1 Then GoTo NoRepeatRFiles - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If - TeaseTimer.Start() + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmRuined = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmRuined = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - End If + End If @@ -15746,639 +15762,639 @@ NoRepeatRFiles: - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - ssh.OrgasmYesNo = False - ssh.DomChat = "#RuinYourOrgasm" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #RuinYourOrgasm" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #RuinYourOrgasm" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #RuinYourOrgasm" - ssh.Contact3Edge = False - End If - TypingDelay() - Return + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + ssh.OrgasmYesNo = False + ssh.DomChat = "#RuinYourOrgasm" + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #RuinYourOrgasm" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #RuinYourOrgasm" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #RuinYourOrgasm" + ssh.Contact3Edge = False + End If + TypingDelay() + Return AllowedOrgasm: - If My.Settings.OrgasmsLocked = True Then + If My.Settings.OrgasmsLocked = True Then - If My.Settings.OrgasmsRemaining < 1 Then + If My.Settings.OrgasmsRemaining < 1 Then - Dim NoCumList As New List(Of String) + Dim NoCumList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - NoCumList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + NoCumList.Add(foundFile) + Next - If NoCumList.Count < 1 Then GoTo NoNoCumFiles + If NoCumList.Count < 1 Then GoTo NoNoCumFiles - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - Return - End If + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + Return + End If - My.Settings.OrgasmsRemaining -= 1 + My.Settings.OrgasmsRemaining -= 1 - End If + End If NoNoCumFiles: - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then + If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + EdgeTauntTimer.Stop() - Dim RepeatList As New List(Of String) + Dim RepeatList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next - If RepeatList.Count < 1 Then GoTo NoRepeatOFiles + If RepeatList.Count < 1 Then GoTo NoRepeatOFiles - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If - TeaseTimer.Start() + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmAllowed = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If + 'ShowModule = True + ssh.StrokeTauntVal = -1 + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmAllowed = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - End If + End If NoRepeatOFiles: - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - 'OrgasmAllowed = False - ssh.DomChat = "#CumForMe" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #CumForMe" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #CumForMe" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #CumForMe" - ssh.Contact3Edge = False - End If - TypingDelay() - Return + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + 'OrgasmAllowed = False + ssh.DomChat = "#CumForMe" + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #CumForMe" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #CumForMe" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #CumForMe" + ssh.Contact3Edge = False + End If + TypingDelay() + Return - End If + End If - End Sub + End Sub - Private Sub HoldEdgeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick + Private Sub HoldEdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return + If ssh.MiniScript = True Then Return + If ssh.InputFlag = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - ssh.EdgeTauntInt -= 1 + ssh.EdgeTauntInt -= 1 - If ssh.EdgeTauntInt < 1 Then + If ssh.EdgeTauntInt < 1 Then - Dim File2Read As String = "" + Dim File2Read As String = "" - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" - End If + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" + End If - ' Read all lines of given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + ' Read all lines of given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & + File2Read, ex, "HoldEdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read - End Try + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) + ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) - End If + End If - End Sub + End Sub #End Region ' Hold the Edge - Public Sub CreateTaskLetter() + Public Sub CreateTaskLetter() - Dim TaskEntry As String + Dim TaskEntry As String - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon - If ssh.GeneralTime = "Night" Then GoTo Night + If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon + If ssh.GeneralTime = "Night" Then GoTo Night - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Afternoon: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Night: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If FrmSettings.CBHonorificInclude.Checked = True Then - ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & ssh.tempDomName - Else - ssh.TaskText = ssh.TaskText & ssh.tempDomName - End If + If FrmSettings.CBHonorificInclude.Checked = True Then + ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & ssh.tempDomName + Else + ssh.TaskText = ssh.TaskText & ssh.tempDomName + End If - ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") + ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") - Dim TempDate As String - Dim TempDateNow As DateTime = DateTime.Now + Dim TempDate As String + Dim TempDateNow As DateTime = DateTime.Now - TempDate = TempDateNow.ToString("M dd") + TempDate = TempDateNow.ToString("M dd") - ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" - My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) + ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" + My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) - ssh.TaskText = "" + ssh.TaskText = "" - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" - PNLFileTransfer.Visible = True - PNLFileTransfer.BringToFront() + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + PNLFileTransfer.Visible = True + PNLFileTransfer.BringToFront() - StupidTimer.Start() + StupidTimer.Start() - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - Debug.Print("Created " & ssh.GeneralTime & " Task Letter") - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("Created " & ssh.GeneralTime & " Task Letter") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - End Sub + End Sub - Public Function CleanTaskLines(ByVal dir As String) As String - Try - Dim TaskLines As List(Of String) = Txt2List(dir) - Dim TaskEntry As String - Dim TaskArray As String() - Dim TaskList As New List(Of String) + Public Function CleanTaskLines(ByVal dir As String) As String + Try + Dim TaskLines As List(Of String) = Txt2List(dir) + Dim TaskEntry As String + Dim TaskArray As String() + Dim TaskList As New List(Of String) - TaskLines = FilterList(TaskLines) - If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") + TaskLines = FilterList(TaskLines) + If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") - TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) + TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) - Dim LoopBuffer As Integer + Dim LoopBuffer As Integer - TaskArray = TaskEntry.Split(" ") - For i As Integer = 0 To TaskArray.Count - 1 - TaskList.Add(TaskArray(i)) - Next - TaskEntry = "" - For i As Integer = 0 To TaskList.Count - 1 - Try - LoopBuffer = 0 + TaskArray = TaskEntry.Split(" ") + For i As Integer = 0 To TaskArray.Count - 1 + TaskList.Add(TaskArray(i)) + Next + TaskEntry = "" + For i As Integer = 0 To TaskList.Count - 1 + Try + LoopBuffer = 0 PoundLoop: - LoopBuffer += 1 + LoopBuffer += 1 - TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") - TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") - TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") + TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") + TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") + TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") - TaskList(i) = PoundClean(TaskList(i)) - If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop + TaskList(i) = PoundClean(TaskList(i)) + If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop - TaskEntry = TaskEntry & TaskList(i) & " " - Catch - End Try - Next + TaskEntry = TaskEntry & TaskList(i) & " " + Catch + End Try + Next - Dim int As Integer + Dim int As Integer - If TaskEntry.Contains("#TaskEdges") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskEdges", int) - Loop Until Not TaskEntry.Contains("#TaskEdges") - End If + If TaskEntry.Contains("#TaskEdges") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskEdges", int) + Loop Until Not TaskEntry.Contains("#TaskEdges") + End If - If TaskEntry.Contains("#TaskStrokes") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) - If int > 10 Then int = 10 * Math.Round(int / 10) - TaskEntry = TaskEntry.Replace("#TaskStrokes", int) - Loop Until Not TaskEntry.Contains("#TaskStrokes") - End If + If TaskEntry.Contains("#TaskStrokes") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) + If int > 10 Then int = 10 * Math.Round(int / 10) + TaskEntry = TaskEntry.Replace("#TaskStrokes", int) + Loop Until Not TaskEntry.Contains("#TaskStrokes") + End If - If TaskEntry.Contains("#TaskHours") Then - Do - int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskHours", int) - Loop Until Not TaskEntry.Contains("#TaskHours") - End If + If TaskEntry.Contains("#TaskHours") Then + Do + int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskHours", int) + Loop Until Not TaskEntry.Contains("#TaskHours") + End If - If TaskEntry.Contains("#TaskMinutes") Then - Do - int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskMinutes", int) - Loop Until Not TaskEntry.Contains("#TaskMinutes") - End If + If TaskEntry.Contains("#TaskMinutes") Then + Do + int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskMinutes", int) + Loop Until Not TaskEntry.Contains("#TaskMinutes") + End If - If TaskEntry.Contains("#TaskSeconds") Then - Do - int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) - TaskEntry = TaskEntry.Replace("#TaskSeconds", int) - Loop Until Not TaskEntry.Contains("#TaskSeconds") - End If + If TaskEntry.Contains("#TaskSeconds") Then + Do + int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + TaskEntry = TaskEntry.Replace("#TaskSeconds", int) + Loop Until Not TaskEntry.Contains("#TaskSeconds") + End If - If TaskEntry.Contains("#TaskAmountLarge") Then - Do - int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) - Loop Until Not TaskEntry.Contains("#TaskAmountLarge") - End If + If TaskEntry.Contains("#TaskAmountLarge") Then + Do + int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) + Loop Until Not TaskEntry.Contains("#TaskAmountLarge") + End If - If TaskEntry.Contains("#TaskAmountSmall") Then - Do - int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) - Loop Until Not TaskEntry.Contains("#TaskAmountSmall") - End If + If TaskEntry.Contains("#TaskAmountSmall") Then + Do + int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) + Loop Until Not TaskEntry.Contains("#TaskAmountSmall") + End If - If TaskEntry.Contains("#TaskAmount") Then - Do - int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmount", int) - Loop Until Not TaskEntry.Contains("#TaskAmount") - End If + If TaskEntry.Contains("#TaskAmount") Then + Do + int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmount", int) + Loop Until Not TaskEntry.Contains("#TaskAmount") + End If - If TaskEntry.Contains("#TaskStrokingTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskStrokingTime") - End If + If TaskEntry.Contains("#TaskStrokingTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskStrokingTime") + End If - If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") - End If + If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") + End If - If TaskEntry.Contains("#TaskCBTTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskCBTTime") - End If + If TaskEntry.Contains("#TaskCBTTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskCBTTime") + End If - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("#Null", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("#Null", "") - LoopBuffer = 0 + LoopBuffer = 0 - Do - LoopBuffer += 1 - If LoopBuffer > 4 Then Exit Do - TaskEntry = PoundClean(TaskEntry) - Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") + Do + LoopBuffer += 1 + If LoopBuffer > 4 Then Exit Do + TaskEntry = PoundClean(TaskEntry) + Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") - TaskEntry = CommandClean(TaskEntry, True) + TaskEntry = CommandClean(TaskEntry, True) - TaskEntry = StripCommands(TaskEntry) + TaskEntry = StripCommands(TaskEntry) - TaskEntry = Trim(TaskEntry) + TaskEntry = Trim(TaskEntry) - If TaskEntry.Contains("*") Then - TaskEntry = TaskEntry.Replace(". *", " *") - Dim EmoToggle As Boolean = True - For i As Integer = TaskEntry.Length - 1 To 0 Step -1 - If TaskEntry.Substring(i, 1) = "*" Then - If EmoToggle = False Then - EmoToggle = True - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) - Else - EmoToggle = False - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) - End If - End If - Next - End If + If TaskEntry.Contains("*") Then + TaskEntry = TaskEntry.Replace(". *", " *") + Dim EmoToggle As Boolean = True + For i As Integer = TaskEntry.Length - 1 To 0 Step -1 + If TaskEntry.Substring(i, 1) = "*" Then + If EmoToggle = False Then + EmoToggle = True + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) + Else + EmoToggle = False + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) + End If + End If + Next + End If - Return TaskEntry - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") - Return "ERROR: Tease AI did not return a valid Task line" - End Try - End Function + Return TaskEntry + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") + Return "ERROR: Tease AI did not return a valid Task line" + End Try + End Function - Private Sub BTNFIleTransferDismiss_Click(sender As System.Object, e As System.EventArgs) Handles BTNFIleTransferDismiss.Click + Private Sub BTNFIleTransferDismiss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNFIleTransferDismiss.Click - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Public Function ShellExecute(ByVal File As String) As Boolean - Dim myProcess As New Process - myProcess.StartInfo.FileName = File - myProcess.StartInfo.UseShellExecute = True - myProcess.StartInfo.RedirectStandardOutput = False - myProcess.Start() - myProcess.Dispose() - End Function + Public Function ShellExecute(ByVal File As String) As Boolean + Dim myProcess As New Process + myProcess.StartInfo.FileName = File + myProcess.StartInfo.UseShellExecute = True + myProcess.StartInfo.RedirectStandardOutput = False + myProcess.Start() + myProcess.Dispose() + End Function - Public Sub BTNFileTransferOpen_Click(sender As System.Object, e As System.EventArgs) Handles BTNFileTransferOpen.Click + Public Sub BTNFileTransferOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNFileTransferOpen.Click - ShellExecute(ssh.TaskTextDir) + ShellExecute(ssh.TaskTextDir) - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Private Sub SlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SlideshowTimer.Tick - 'TODO: Remove CrossForm data access - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub SlideshowTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlideshowTimer.Tick + 'TODO: Remove CrossForm data access + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return + If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return - ssh.SlideshowTimerTick -= 1 + ssh.SlideshowTimerTick -= 1 - If ssh.SlideshowTimerTick < 1 Then + If ssh.SlideshowTimerTick < 1 Then TryNext: - If My.Settings.CBSlideshowRandom Then - ssh.SlideshowMain.NavigateNextTease() - Else - ssh.SlideshowMain.NavigateForward() - End If + If My.Settings.CBSlideshowRandom Then + ssh.SlideshowMain.NavigateNextTease() + Else + ssh.SlideshowMain.NavigateForward() + End If - If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ - Or isURL(ssh.SlideshowMain.CurrentImage)) Then - ClearMainPictureBox() - Exit Sub - End If + If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ + Or isURL(ssh.SlideshowMain.CurrentImage)) Then + ClearMainPictureBox() + Exit Sub + End If - Try - ShowImage(ssh.SlideshowMain.CurrentImage, True) - ssh.JustShowedBlogImage = False - ssh.JustShowedSlideshowImage = True + Try + ShowImage(ssh.SlideshowMain.CurrentImage, True) + ssh.JustShowedBlogImage = False + ssh.JustShowedSlideshowImage = True - Catch - GoTo TryNext - End Try + Catch + GoTo TryNext + End Try - ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value - End If + ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value + End If - End Sub + End Sub - Public Sub GetEdgeTickCheck() + Public Sub GetEdgeTickCheck() - If ssh.AlreadyStrokingEdge = True Then + If ssh.AlreadyStrokingEdge = True Then - If ssh.AvgEdgeCount < 5 Then - ssh.EdgeTickCheck = 60 - Else - ssh.EdgeTickCheck = ssh.AvgEdgeStroking - End If + If ssh.AvgEdgeCount < 5 Then + ssh.EdgeTickCheck = 60 + Else + ssh.EdgeTickCheck = ssh.AvgEdgeStroking + End If - Else + Else - If ssh.AvgEdgeCountRest < 5 Then - ssh.EdgeTickCheck = 300 - Else - ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch - End If + If ssh.AvgEdgeCountRest < 5 Then + ssh.EdgeTickCheck = 300 + Else + ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch + End If - End If + End If - End Sub + End Sub - Private Sub EdgeCountTimer_Tick(sender As System.Object, e As System.EventArgs) Handles EdgeCountTimer.Tick + Private Sub EdgeCountTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeCountTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.EdgeCountTick += 1 + ssh.EdgeCountTick += 1 - If FrmSettings.CBEdgeUseAvg.Checked = True Then - If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True - Else - If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True - End If + If FrmSettings.CBEdgeUseAvg.Checked = True Then + If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True + Else + If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True + End If - Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes - Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds + Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes + Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds - Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) + Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) - ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) + ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) - 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) - End Sub + 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) + End Sub - Private Sub StrokeTimeTotalTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick + Private Sub StrokeTimeTotalTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SubStroking = False Then Return + If ssh.SubStroking = False Then Return - ssh.StrokeTimeTotal += 1 - 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) + ssh.StrokeTimeTotal += 1 + 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) - My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal + My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal - Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) + Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) - 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - End Sub + End Sub - Private Sub TnAFastSlides_Tick(sender As System.Object, e As System.EventArgs) Handles TnASlides.Tick - Dim tmpSw As New Stopwatch + Private Sub TnAFastSlides_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TnASlides.Tick + Dim tmpSw As New Stopwatch RestartFunction: - tmpSw.Restart() - Try - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") + tmpSw.Restart() + Try + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") - Dim tmpImageToShow As String = "" - Dim tmpLateSet As Boolean + Dim tmpImageToShow As String = "" + Dim tmpLateSet As Boolean - If New Random().Next(0, 101) < 51 Then - tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) - tmpLateSet = True - Else - tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) - tmpLateSet = False - End If + If New Random().Next(0, 101) < 51 Then + tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) + tmpLateSet = True + Else + tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) + tmpLateSet = False + End If - Try - ShowImage(tmpImageToShow, True) + Try + ShowImage(tmpImageToShow, True) - If tmpLateSet Then - ssh.BoobImage = True - ssh.AssImage = False - Else - ssh.BoobImage = False - ssh.AssImage = True - End If + If tmpLateSet Then + ssh.BoobImage = True + ssh.AssImage = False + Else + ssh.BoobImage = False + ssh.AssImage = True + End If - ' If the elapsed time to load an image was longer as the Timer.Interval - ' we restart the function instantly, to avoid an unnecessary delay. - ' If it took way too long and the Timer was stopped during imagedownload, - ' we dont want the timer to restart. - If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then - GoTo RestartFunction - End If - Catch ex As Exception - ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ - ' Remove the ImagePath and retry. - ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) - ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) - GoTo RestartFunction - End Try - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - TnASlides.Stop() + ' If the elapsed time to load an image was longer as the Timer.Interval + ' we restart the function instantly, to avoid an unnecessary delay. + ' If it took way too long and the Timer was stopped during imagedownload, + ' we dont want the timer to restart. + If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then + GoTo RestartFunction + End If + Catch ex As Exception + ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ + ' Remove the ImagePath and retry. + ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + GoTo RestartFunction + End Try + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + TnASlides.Stop() Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in TnASlides.Tick occured", False) - End Try - End Sub + End Try + End Sub @@ -16390,245 +16406,245 @@ RestartFunction: #Region "---------------------------------------------------- Domme-WMP -------------------------------------------------------" - Private Sub DomWMP_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange + Private Sub DomWMP_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - If FrmSettings.CBMuteMedia.Checked = True Then - DomWMP.settings.mute = True - End If - End If + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + If FrmSettings.CBMuteMedia.Checked = True Then + DomWMP.settings.mute = True + End If + End If - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then - 'Debug.Print("WMP Stopped Called") + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then + 'Debug.Print("WMP Stopped Called") - VideoTimer.Stop() + VideoTimer.Stop() - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False + ssh.EdgeVideo = False + ssh.YesVideo = False + ssh.NoVideo_Mode = False + ssh.CameVideo = False + ssh.RuinedVideo = False - DomWMP.currentPlaylist.clear() + DomWMP.currentPlaylist.clear() - If ssh.CensorshipGame = True Then - CensorshipTimer.Stop() - CensorshipBar.Visible = False - ssh.CensorshipGame = False - ssh.VideoTease = False + If ssh.CensorshipGame = True Then + CensorshipTimer.Stop() + CensorshipBar.Visible = False + ssh.CensorshipGame = False + ssh.VideoTease = False - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - RunFileText() - End If + RunFileText() + End If - If ssh.AvoidTheEdgeGame = True Then + If ssh.AvoidTheEdgeGame = True Then - ssh.TeaseVideo = False - ssh.AvoidTheEdgeGame = False - ssh.AvoidTheEdgeStroking = False - AvoidTheEdgeTaunts.Stop() - ssh.VideoTease = False - ssh.SubStroking = False + ssh.TeaseVideo = False + ssh.AvoidTheEdgeGame = False + ssh.AvoidTheEdgeStroking = False + AvoidTheEdgeTaunts.Stop() + ssh.VideoTease = False + ssh.SubStroking = False - Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) - Debug.Print("TempFileText = " & ssh.TempFileText) + Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) + Debug.Print("TempFileText = " & ssh.TempFileText) - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - ssh.StrokeTauntVal = ssh.TempStrokeTauntVal - ssh.FileText = ssh.TempFileText + ssh.StrokeTauntVal = ssh.TempStrokeTauntVal + ssh.FileText = ssh.TempFileText - ssh.ScriptTick = 2 - ScriptTimer.Start() + ssh.ScriptTick = 2 + ScriptTimer.Start() - 'RunFileText() + 'RunFileText() - 'AvoidTheEdge.Stop() - 'AvoidTheEdgeGame = False - 'SkipGotoLine = True - 'If AvoidTheEdgeTimerTick < 1 Then - 'FileGoto = "(AvoidTheEdge Video Stop)" - 'Else - ' FileGoto = "(AvoidTheEdge Video Continue)" - 'End If - 'GetGoto() - 'RunFileText() - End If + 'AvoidTheEdge.Stop() + 'AvoidTheEdgeGame = False + 'SkipGotoLine = True + 'If AvoidTheEdgeTimerTick < 1 Then + 'FileGoto = "(AvoidTheEdge Video Stop)" + 'Else + ' FileGoto = "(AvoidTheEdge Video Continue)" + 'End If + 'GetGoto() + 'RunFileText() + End If - If ssh.RLGLGame = True Then - RLGLTimer.Stop() - RLGLTauntTimer.Stop() - ssh.RLGLGame = False - ssh.VideoTease = False - ssh.SubStroking = False + If ssh.RLGLGame = True Then + RLGLTimer.Stop() + RLGLTauntTimer.Stop() + ssh.RLGLGame = False + ssh.VideoTease = False + ssh.SubStroking = False - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - ssh.ScriptTick = 1 - ScriptTimer.Start() + ssh.ScriptTick = 1 + ScriptTimer.Start() - Return - End If + Return + End If - If ssh.TeaseVideo = True Then - ssh.TeaseVideo = False - DomWMP.Ctlcontrols.pause() - RunFileText() - End If + If ssh.TeaseVideo = True Then + ssh.TeaseVideo = False + DomWMP.Ctlcontrols.pause() + RunFileText() + End If - If ssh.LockVideo = False Then - mainPictureBox.Visible = True - DomWMP.Visible = False - End If + If ssh.LockVideo = False Then + mainPictureBox.Visible = True + DomWMP.Visible = False + End If - End If + End If - End Sub + End Sub - Private Sub WMPTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WMPTimer.Tick + Private Sub WMPTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WMPTimer.Tick - If DomWMP.currentPlaylist.count <> 0 Then - Try - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) + If DomWMP.currentPlaylist.count <> 0 Then + Try + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) - Debug.Print("Video Length = " & VideoLength) - Debug.Print("Video Remaining = " & VideoRemaining) - Catch - End Try - End If + Debug.Print("Video Length = " & VideoLength) + Debug.Print("Video Remaining = " & VideoRemaining) + Catch + End Try + End If - If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return + If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return - 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) + 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) - ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) + ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) - Dim VidSplit As String() = ssh.VidFile.Split(".") - ssh.VidFile = "" - For i As Integer = 0 To VidSplit.Count - 2 - ssh.VidFile = ssh.VidFile + VidSplit(i) - Next - 'Debug.Print(VidFile) - If ssh.VidFile = "" Then Exit Sub - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then - Dim SubCheck As String() - Dim PlayPos As Integer - Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) - - Dim SubList As New List(Of String) - SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") - - If Not SubList Is Nothing Then - For i As Integer = 0 To SubList.Count - 1 - SubCheck = SubList(i).Split("]") - SubCheck(0) = SubCheck(0).Replace("[", "") - Dim SubCheck2 As String() = SubCheck(0).Split(":") - - PlayPos = SubCheck2(0) * 3600 - PlayPos += SubCheck2(1) * 60 - PlayPos += SubCheck2(2) - - If WMPPos = PlayPos Then - ssh.DomTask = SubCheck(1) - TypingDelayGeneric() - Debug.Print(SubList(i)) - End If - Next - End If - End If + Dim VidSplit As String() = ssh.VidFile.Split(".") + ssh.VidFile = "" + For i As Integer = 0 To VidSplit.Count - 2 + ssh.VidFile = ssh.VidFile + VidSplit(i) + Next + 'Debug.Print(VidFile) + If ssh.VidFile = "" Then Exit Sub + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then + Dim SubCheck As String() + Dim PlayPos As Integer + Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) + + Dim SubList As New List(Of String) + SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") + + If Not SubList Is Nothing Then + For i As Integer = 0 To SubList.Count - 1 + SubCheck = SubList(i).Split("]") + SubCheck(0) = SubCheck(0).Replace("[", "") + Dim SubCheck2 As String() = SubCheck(0).Split(":") + + PlayPos = SubCheck2(0) * 3600 + PlayPos += SubCheck2(1) * 60 + PlayPos += SubCheck2(2) + + If WMPPos = PlayPos Then + ssh.DomTask = SubCheck(1) + TypingDelayGeneric() + Debug.Print(SubList(i)) + End If + Next + End If + End If - End Sub + End Sub #End Region 'Domme-WMP - Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter - If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() - End Sub + Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter + If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() + End Sub - Private Sub domAvatar_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel + Private Sub domAvatar_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel - If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then - domAvatar.SizeMode = PictureBoxSizeMode.Zoom - My.Settings.DomAVStretch = False - Else - domAvatar.SizeMode = PictureBoxSizeMode.StretchImage - My.Settings.DomAVStretch = True - End If + If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then + domAvatar.SizeMode = PictureBoxSizeMode.Zoom + My.Settings.DomAVStretch = False + Else + domAvatar.SizeMode = PictureBoxSizeMode.StretchImage + My.Settings.DomAVStretch = True + End If - End Sub + End Sub - Private Sub WaitTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WaitTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub WaitTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaitTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return + If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return - 'Debug.Print("WaitTick = " & WaitTick) + 'Debug.Print("WaitTick = " & WaitTick) - ssh.WaitTick -= 1 + ssh.WaitTick -= 1 - If ssh.WaitTick < 1 Then - WaitTimer.Stop() - ssh.ScriptTick = 1 - End If + If ssh.WaitTick < 1 Then + WaitTimer.Stop() + ssh.ScriptTick = 1 + End If - End Sub + End Sub - Private Sub StupidTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StupidTimer.Tick + Private Sub StupidTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StupidTimer.Tick - If PBFileTransfer.Value = PBFileTransfer.Maximum Then - StupidTimer.Enabled = False + If PBFileTransfer.Value = PBFileTransfer.Maximum Then + StupidTimer.Enabled = False - LBLFileTransfer.Text = "Download complete!" - BTNFileTransferOpen.Visible = True - BTNFIleTransferDismiss.Visible = True - Exit Sub - End If + LBLFileTransfer.Text = "Download complete!" + BTNFileTransferOpen.Visible = True + BTNFIleTransferDismiss.Visible = True + Exit Sub + End If - PBFileTransfer.Value += 1 + PBFileTransfer.Value += 1 - End Sub + End Sub @@ -16639,37 +16655,37 @@ RestartFunction: - Public Sub SaveExercise() + Public Sub SaveExercise() - If FormLoading = True Then Return + If FormLoading = True Then Return - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) - Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) - For i = 0 To CLBExercise.Items.Count - 1 - BinaryWriter.Write(CStr(CLBExercise.Items(i))) - BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) - Next - BinaryWriter.Close() - FileStream.Dispose() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) + Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) + For i = 0 To CLBExercise.Items.Count - 1 + BinaryWriter.Write(CStr(CLBExercise.Items(i))) + BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) + Next + BinaryWriter.Close() + FileStream.Dispose() - End Sub + End Sub - Public Sub LoadExercise() + Public Sub LoadExercise() - CLBExercise.Items.Clear() - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) - Dim BinaryReader As New System.IO.BinaryReader(FileStream) - CLBExercise.BeginUpdate() - Do While FileStream.Position < FileStream.Length - CLBExercise.Items.Add(BinaryReader.ReadString) - CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) - Loop - CLBExercise.EndUpdate() - BinaryReader.Close() - FileStream.Dispose() + CLBExercise.Items.Clear() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) + Dim BinaryReader As New System.IO.BinaryReader(FileStream) + CLBExercise.BeginUpdate() + Do While FileStream.Position < FileStream.Length + CLBExercise.Items.Add(BinaryReader.ReadString) + CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) + Loop + CLBExercise.EndUpdate() + BinaryReader.Close() + FileStream.Dispose() - End Sub + End Sub @@ -16679,51 +16695,51 @@ RestartFunction: - Public Sub RefreshCards() + Public Sub RefreshCards() - FrmCardList.GoldN1.Text = FrmSettings.GN1.Text - FrmCardList.GoldN2.Text = FrmSettings.GN2.Text - FrmCardList.GoldN3.Text = FrmSettings.GN3.Text - FrmCardList.GoldN4.Text = FrmSettings.GN4.Text - FrmCardList.GoldN5.Text = FrmSettings.GN5.Text - FrmCardList.GoldN6.Text = FrmSettings.GN6.Text + FrmCardList.GoldN1.Text = FrmSettings.GN1.Text + FrmCardList.GoldN2.Text = FrmSettings.GN2.Text + FrmCardList.GoldN3.Text = FrmSettings.GN3.Text + FrmCardList.GoldN4.Text = FrmSettings.GN4.Text + FrmCardList.GoldN5.Text = FrmSettings.GN5.Text + FrmCardList.GoldN6.Text = FrmSettings.GN6.Text - FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) - FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) - FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) - FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) - FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) - FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) + FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) + FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) + FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) + FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) + FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) + FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) - FrmCardList.SilverN1.Text = FrmSettings.SN1.Text - FrmCardList.SilverN2.Text = FrmSettings.SN2.Text - FrmCardList.SilverN3.Text = FrmSettings.SN3.Text - FrmCardList.SilverN4.Text = FrmSettings.SN4.Text - FrmCardList.SilverN5.Text = FrmSettings.SN5.Text - FrmCardList.SilverN6.Text = FrmSettings.SN6.Text + FrmCardList.SilverN1.Text = FrmSettings.SN1.Text + FrmCardList.SilverN2.Text = FrmSettings.SN2.Text + FrmCardList.SilverN3.Text = FrmSettings.SN3.Text + FrmCardList.SilverN4.Text = FrmSettings.SN4.Text + FrmCardList.SilverN5.Text = FrmSettings.SN5.Text + FrmCardList.SilverN6.Text = FrmSettings.SN6.Text - FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) - FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) - FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) - FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) - FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) - FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) + FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) + FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) + FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) + FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) + FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) + FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) - FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text - FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text - FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text - FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text - FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text - FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text + FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text + FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text + FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text + FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text + FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text + FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text - FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) - FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) - FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) - FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) - FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) - FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) + FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) + FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) + FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) + FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) + FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) + FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) - End Sub + End Sub @@ -16732,13 +16748,13 @@ RestartFunction: - Public Sub SaveTokens() + Public Sub SaveTokens() - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - End Sub + End Sub @@ -16756,55 +16772,55 @@ RestartFunction: - Private Sub VideoTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTauntTimer.Tick + Private Sub VideoTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoTauntTimer.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.MiniScript = True Then Return + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If ssh.MiniScript = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return - If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return + If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return - ssh.VideoTauntTick -= 1 + ssh.VideoTauntTick -= 1 - If ssh.VideoTauntTick < 1 Then + If ssh.VideoTauntTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" - 'TODO: Prevent File.Exits() with String.Empty - If Not File.Exists(VTDir) Then Return + If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" + 'TODO: Prevent File.Exits() with String.Empty + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "VideoTaunTimer.Tick") + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + VTDir, ex, "VideoTaunTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir - End Try + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - End If + End If @@ -16814,23 +16830,23 @@ RestartFunction: - End Sub + End Sub - Private Sub TeaseTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseTimer.Tick + Private Sub TeaseTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TeaseTimer.Tick - FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick - 'Debug.Print("TeaseTick = " & TeaseTick) + FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick + 'Debug.Print("TeaseTick = " & TeaseTick) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.TeaseTick -= 1 + ssh.TeaseTick -= 1 - If ssh.TeaseTick < 1 Then TeaseTimer.Stop() + If ssh.TeaseTick < 1 Then TeaseTimer.Stop() - End Sub + End Sub Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 82ed727..991233e 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -798,6 +798,8 @@ Me.Label59 = New System.Windows.Forms.Label() Me.Label50 = New System.Windows.Forms.Label() Me.TabPage25 = New System.Windows.Forms.TabPage() Me.Panel11 = New System.Windows.Forms.Panel() +Me.GroupBox8 = New System.Windows.Forms.GroupBox() +Me.CBOutputErrors = New System.Windows.Forms.CheckBox() Me.GroupBox62 = New System.Windows.Forms.GroupBox() Me.RBGerman = New System.Windows.Forms.RadioButton() Me.RBEnglish = New System.Windows.Forms.RadioButton() @@ -927,9 +929,6 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() -Me.GroupBox8 = New System.Windows.Forms.GroupBox() -Me.CBOutputErrors = New System.Windows.Forms.CheckBox() Me.CBMuteMedia = New System.Windows.Forms.CheckBox() Me.TbxDomImageDir = New System.Windows.Forms.TextBox() Me.LBLSubColor = New System.Windows.Forms.Label() @@ -1125,6 +1124,7 @@ Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() Me.CBCensorConstant = New System.Windows.Forms.CheckBox() Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() +Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() Me.SettingsPanel.SuspendLayout Me.SettingsTabs.SuspendLayout Me.TabPage1.SuspendLayout @@ -1327,6 +1327,7 @@ Me.TabPage15.SuspendLayout Me.GroupBox34.SuspendLayout Me.TabPage25.SuspendLayout Me.Panel11.SuspendLayout +Me.GroupBox8.SuspendLayout Me.GroupBox62.SuspendLayout Me.GroupBox33.SuspendLayout Me.GroupBox27.SuspendLayout @@ -1350,7 +1351,6 @@ Me.GroupBox12.SuspendLayout Me.GroupBox65.SuspendLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox8.SuspendLayout CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit @@ -11001,6 +11001,30 @@ Me.Panel11.Name = "Panel11" Me.Panel11.Size = New System.Drawing.Size(708, 437) Me.Panel11.TabIndex = 92 ' +'GroupBox8 +' +Me.GroupBox8.Controls.Add(Me.CBOutputErrors) +Me.GroupBox8.Location = New System.Drawing.Point(420, 268) +Me.GroupBox8.Name = "GroupBox8" +Me.GroupBox8.Size = New System.Drawing.Size(279, 100) +Me.GroupBox8.TabIndex = 179 +Me.GroupBox8.TabStop = false +Me.GroupBox8.Text = "System Information" +' +'CBOutputErrors +' +Me.CBOutputErrors.AutoSize = true +Me.CBOutputErrors.Checked = true +Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black +Me.CBOutputErrors.Location = New System.Drawing.Point(17, 33) +Me.CBOutputErrors.Name = "CBOutputErrors" +Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) +Me.CBOutputErrors.TabIndex = 29 +Me.CBOutputErrors.TabStop = false +Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" +Me.CBOutputErrors.UseVisualStyleBackColor = true +' 'GroupBox62 ' Me.GroupBox62.Controls.Add(Me.RBGerman) @@ -12315,38 +12339,6 @@ Me.TextBox2.ReadOnly = true Me.TextBox2.Size = New System.Drawing.Size(189, 20) Me.TextBox2.TabIndex = 145 ' -'BWURLFiles -' -Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" -Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" -Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" -Me.BWURLFiles.WorkerReportsProgress = true -Me.BWURLFiles.WorkerSupportsCancellation = true -' -'GroupBox8 -' -Me.GroupBox8.Controls.Add(Me.CBOutputErrors) -Me.GroupBox8.Location = New System.Drawing.Point(420, 268) -Me.GroupBox8.Name = "GroupBox8" -Me.GroupBox8.Size = New System.Drawing.Size(279, 100) -Me.GroupBox8.TabIndex = 179 -Me.GroupBox8.TabStop = false -Me.GroupBox8.Text = "System Information" -' -'CBOutputErrors -' -Me.CBOutputErrors.AutoSize = true -Me.CBOutputErrors.Checked = true -Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black -Me.CBOutputErrors.Location = New System.Drawing.Point(17, 33) -Me.CBOutputErrors.Name = "CBOutputErrors" -Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) -Me.CBOutputErrors.TabIndex = 29 -Me.CBOutputErrors.TabStop = false -Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" -Me.CBOutputErrors.UseVisualStyleBackColor = true -' 'CBMuteMedia ' Me.CBMuteMedia.AutoSize = true @@ -15012,6 +15004,14 @@ Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) Me.NBCensorShowMax.TabIndex = 152 Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax ' +'BWURLFiles +' +Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" +Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" +Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" +Me.BWURLFiles.WorkerReportsProgress = true +Me.BWURLFiles.WorkerSupportsCancellation = true +' 'FrmSettings ' Me.AllowDrop = true @@ -15298,6 +15298,8 @@ Me.TabPage15.PerformLayout Me.GroupBox34.ResumeLayout(false) Me.TabPage25.ResumeLayout(false) Me.Panel11.ResumeLayout(false) +Me.GroupBox8.ResumeLayout(false) +Me.GroupBox8.PerformLayout Me.GroupBox62.ResumeLayout(false) Me.GroupBox62.PerformLayout Me.GroupBox33.ResumeLayout(false) @@ -15329,8 +15331,6 @@ Me.GroupBox65.ResumeLayout(false) Me.GroupBox65.PerformLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox8.ResumeLayout(false) -Me.GroupBox8.PerformLayout CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit From 7d4b27e7d7f978c06f20c43266c759c77cdf7183 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 4 Mar 2017 15:48:56 -0600 Subject: [PATCH 038/143] #RandomSlideshowCategory fix #2 Added errorhandling --- Tease AI/Form1.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 262eb45..596f273 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8220,7 +8220,12 @@ StatusUpdateEnd: If FrmSettings.CBICaptions.Checked = True Then RanCat.Add("Captions") If FrmSettings.CBIGeneral.Checked = True Then RanCat.Add("General") - StringClean = StringClean.Replace("#RandomSlideshowCategory", RanCat(ssh.randomizer.Next(0, RanCat.Count))) + If RanCat.Count < 1 Then + ChatAddSystemMessage("ERROR: #RandomSlideshowCategory called but no local images have been set.") + Else + StringClean = StringClean.Replace("#RandomSlideshowCategory", RanCat(ssh.randomizer.Next(0, RanCat.Count))) + End If + End If From 1d782b9b83e088d7b8f242aaaee81d3340082313 Mon Sep 17 00:00:00 2001 From: OxiKlein Date: Mon, 6 Mar 2017 22:03:07 -0800 Subject: [PATCH 039/143] Added @SecondSession command: When used, sets a variable to start a second session immediately after @DecideOrgasm if the corresponding X always ends tease is unchecked. A way to force the Orgasm/Ruin/Denial Continue scripts if the user has the option enabled. --- Tease AI/Classes/State.vb | 2 + Tease AI/Form1.vb | 196 ++++++++++++++++++++------------------ 2 files changed, 103 insertions(+), 95 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 0577a01..d03b13a 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -549,6 +549,8 @@ Public Class SessionState Public Property CameGotoLine As String Public Property RuinedGotoLine As String + Public Property SecondSession As Boolean + ''' ''' Set to true if the sub is on the edge and the domme had decided to not to stop stroking. ''' diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 596f273..818c019 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -2194,7 +2194,8 @@ WritingTaskLine: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then + If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() @@ -2274,8 +2275,9 @@ RuinedOrgasm: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then + If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False ssh.EdgeToRuin = False @@ -2394,7 +2396,8 @@ NoNoCumFiles: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then + If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() @@ -15645,43 +15648,44 @@ NoPlaylistEndFile: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Then - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() + If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + ssh.SecondSession = False + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() - Dim RepeatList As New List(Of String) + Dim RepeatList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Denial Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next - If RepeatList.Count < 1 Then GoTo NoRepeatFiles + If RepeatList.Count < 1 Then GoTo NoRepeatFiles - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If - TeaseTimer.Start() + TeaseTimer.Start() 'ShowModule = True ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmDenied = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmDenied = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - End If + End If End If @@ -15718,48 +15722,49 @@ RuinedOrgasm: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Then + If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SecondSession = False + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True - Dim RepeatList As New List(Of String) + Dim RepeatList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Ruin Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next - If RepeatList.Count < 1 Then GoTo NoRepeatRFiles + If RepeatList.Count < 1 Then GoTo NoRepeatRFiles - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If - TeaseTimer.Start() + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + TeaseTimer.Start() 'ShowModule = True ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmRuined = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmRuined = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - End If + End If @@ -15835,48 +15840,49 @@ NoNoCumFiles: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Then + If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SecondSession = False + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + EdgeTauntTimer.Stop() - Dim RepeatList As New List(Of String) + Dim RepeatList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RepeatList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Orgasm Continue\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RepeatList.Add(foundFile) + Next - If RepeatList.Count < 1 Then GoTo NoRepeatOFiles + If RepeatList.Count < 1 Then GoTo NoRepeatOFiles - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If - TeaseTimer.Start() + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + TeaseTimer.Start() 'ShowModule = True ssh.StrokeTauntVal = -1 - ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.OrgasmAllowed = False - ssh.OrgasmYesNo = False - ssh.EndTease = False - Return - End If + ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.OrgasmAllowed = False + ssh.OrgasmYesNo = False + ssh.EndTease = False + Return + End If - End If + End If From 0ab0a735f2d2a53f3cbda52e5ea950c6b40ef485 Mon Sep 17 00:00:00 2001 From: OxiKlein Date: Mon, 6 Mar 2017 22:07:11 -0800 Subject: [PATCH 040/143] Updated README.md to incorporate the last change. --- README.md | 2 ++ 1 file changed, 2 insertions(+) diff --git a/README.md b/README.md index 44379e4..ab6b375 100644 --- a/README.md +++ b/README.md @@ -10,6 +10,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added Features: * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. + + *Added @SecondSession command to force the Orgasm/Ruin/Denial Continue interrupt scripts if the user has the option "X always ends tease" unchecked when the current session ends, thus starting a second session. * Bugfixes: * The System Keyword #RandomSlideshowCategory should now work as intended. From 30a6b10296ef427574dd1dfed245d4ea61af7d1d Mon Sep 17 00:00:00 2001 From: OxiKlein Date: Mon, 6 Mar 2017 22:13:02 -0800 Subject: [PATCH 041/143] Forgot the space after the * in README.md to make a bullet point. Whoopsie --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index ab6b375..be7f424 100644 --- a/README.md +++ b/README.md @@ -11,7 +11,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added Features: * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. - *Added @SecondSession command to force the Orgasm/Ruin/Denial Continue interrupt scripts if the user has the option "X always ends tease" unchecked when the current session ends, thus starting a second session. + * Added @SecondSession command to force the Orgasm/Ruin/Denial Continue interrupt scripts if the user has the option "X always ends tease" unchecked when the current session ends, thus starting a second session. * Bugfixes: * The System Keyword #RandomSlideshowCategory should now work as intended. From c91222eb7004916f939c0e025b69f68e751296dc Mon Sep 17 00:00:00 2001 From: 1885 Date: Wed, 8 Mar 2017 12:00:29 -0600 Subject: [PATCH 042/143] Change URL File Servers Added "Change URL File Servers" function to Maintenance options in thhe Miscellaneous Settings tab. --- README.md | 2 + Tease AI/Form2.Designer.vb | 17618 ++++++++++++++++++----------------- Tease AI/Form2.vb | 111 + 3 files changed, 8968 insertions(+), 8763 deletions(-) diff --git a/README.md b/README.md index 44379e4..5c688f5 100644 --- a/README.md +++ b/README.md @@ -9,6 +9,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 54.8.0 * Added Features: + * Added "Change URL File Servers" function to Maintenance options in thhe Miscellaneous Settings tab. This will replace the specified "Replace" string with the specified "With" string in an URL Files, as well as Liked and Disliked Image URLs. You should only use numbers in these text fields, as Tease AI will automatically add ".media" to avoid changing file names instead of just the server. So if you enter 41 in the Replace box, and 40 in the With box, all URLS in all URL Files that start with "41.media.tumblr.com" will be replaced with "40.media.tumblr.com". After a little testing, I was able to get rid of every "Error Loading Image" error I was getting by changing 41 to 40, 67 to 68, 65 to 66 and 36 to 37. + * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. * Bugfixes: diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 991233e..2c31138 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -37,6 +37,7 @@ Me.BtnRandomImageDir = New System.Windows.Forms.Button() Me.BtnImportSettings = New System.Windows.Forms.Button() Me.LblImportSettings = New System.Windows.Forms.Label() Me.GroupBox64 = New System.Windows.Forms.GroupBox() +Me.CBMuteMedia = New System.Windows.Forms.CheckBox() Me.GBDommeImages = New System.Windows.Forms.GroupBox() Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() Me.teaseRadio = New System.Windows.Forms.RadioButton() @@ -44,6 +45,7 @@ Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() Me.offRadio = New System.Windows.Forms.RadioButton() Me.BTNDomImageDir = New System.Windows.Forms.Button() Me.timedRadio = New System.Windows.Forms.RadioButton() +Me.TbxDomImageDir = New System.Windows.Forms.TextBox() Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() Me.LBLVRate = New System.Windows.Forms.Label() Me.Label93 = New System.Windows.Forms.Label() @@ -73,11 +75,13 @@ Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() Me.CBWebtease = New System.Windows.Forms.CheckBox() Me.GBSubFont = New System.Windows.Forms.GroupBox() Me.BTNSubColor = New System.Windows.Forms.Button() +Me.LBLSubColor = New System.Windows.Forms.Label() Me.NBFontSize = New System.Windows.Forms.NumericUpDown() Me.Label2 = New System.Windows.Forms.Label() Me.FontComboBox = New System.Windows.Forms.ComboBox() Me.GBDommeFont = New System.Windows.Forms.GroupBox() Me.BTNDomColor = New System.Windows.Forms.Button() +Me.LBLDomColor = New System.Windows.Forms.Label() Me.FontComboBoxD = New System.Windows.Forms.ComboBox() Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() Me.Label7 = New System.Windows.Forms.Label() @@ -159,6 +163,7 @@ Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() Me.crazyCheckBox = New System.Windows.Forms.CheckBox() Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() +Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() Me.orgasmlockrandombutton = New System.Windows.Forms.Button() Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() @@ -309,12 +314,77 @@ Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() +Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() +Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() +Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() +Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() +Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() +Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.BTNIHardcore = New System.Windows.Forms.Button() +Me.TbxIHardcore = New System.Windows.Forms.TextBox() +Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() +Me.CBIHardcore = New System.Windows.Forms.CheckBox() +Me.CBISoftcore = New System.Windows.Forms.CheckBox() +Me.TbxISoftcore = New System.Windows.Forms.TextBox() +Me.CBButtSubDir = New System.Windows.Forms.CheckBox() +Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() +Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() +Me.CBILezdomSD = New System.Windows.Forms.CheckBox() +Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() +Me.CBILesbianSD = New System.Windows.Forms.CheckBox() +Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() +Me.CBILesbian = New System.Windows.Forms.CheckBox() +Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjob = New System.Windows.Forms.CheckBox() +Me.CBIGaySD = New System.Windows.Forms.CheckBox() +Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() +Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() +Me.TbxIButts = New System.Windows.Forms.TextBox() +Me.CBIFemdom = New System.Windows.Forms.CheckBox() +Me.TbxILesbian = New System.Windows.Forms.TextBox() Me.BTNISoftcore = New System.Windows.Forms.Button() +Me.CBILezdom = New System.Windows.Forms.CheckBox() +Me.TbxIBoobs = New System.Windows.Forms.TextBox() +Me.CBIHentai = New System.Windows.Forms.CheckBox() +Me.TbxIBlowjob = New System.Windows.Forms.TextBox() +Me.CBIGay = New System.Windows.Forms.CheckBox() +Me.TbxIGeneral = New System.Windows.Forms.TextBox() +Me.CBIMaledom = New System.Windows.Forms.CheckBox() +Me.TbxIFemdom = New System.Windows.Forms.TextBox() Me.BTNILesbian = New System.Windows.Forms.Button() +Me.TbxICaptions = New System.Windows.Forms.TextBox() +Me.CBICaptions = New System.Windows.Forms.CheckBox() +Me.TbxILezdom = New System.Windows.Forms.TextBox() +Me.TbxIMaledom = New System.Windows.Forms.TextBox() Me.BTNButtPath = New System.Windows.Forms.Button() +Me.TbxIHentai = New System.Windows.Forms.TextBox() +Me.CBIGeneral = New System.Windows.Forms.CheckBox() +Me.TbxIGay = New System.Windows.Forms.TextBox() +Me.CBIBoobs = New System.Windows.Forms.CheckBox() +Me.CBIButts = New System.Windows.Forms.CheckBox() Me.BTNIBlowjob = New System.Windows.Forms.Button() Me.BTNIFemdom = New System.Windows.Forms.Button() Me.BTNBoobPath = New System.Windows.Forms.Button() @@ -507,17 +577,29 @@ Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() Me.BTNRefreshVideos = New System.Windows.Forms.Button() Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() +Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() Me.BTNVideoGeneralD = New System.Windows.Forms.Button() +Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotalD = New System.Windows.Forms.Label() Me.LblVideoJOITotalD = New System.Windows.Forms.Label() +Me.TxbVideoCHD = New System.Windows.Forms.TextBox() +Me.TxbVideoJOID = New System.Windows.Forms.TextBox() Me.BTNVideoCHD = New System.Windows.Forms.Button() Me.BTNVideoJOID = New System.Windows.Forms.Button() +Me.CBVideoJOID = New System.Windows.Forms.CheckBox() +Me.CBVideoCHD = New System.Windows.Forms.CheckBox() Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() +Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() +Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() Me.BTNVideoFemSubD = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoFemDomD = New System.Windows.Forms.Button() @@ -526,21 +608,39 @@ Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoLesbianD = New System.Windows.Forms.Button() Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() +Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() Me.VideoDescriptionLabel = New System.Windows.Forms.Label() Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() +Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() Me.BTNVideoGeneral = New System.Windows.Forms.Button() +Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotal = New System.Windows.Forms.Label() Me.LblVideoJOITotal = New System.Windows.Forms.Label() +Me.TxbVideoCH = New System.Windows.Forms.TextBox() +Me.TxbVideoJOI = New System.Windows.Forms.TextBox() Me.BTNVideoCH = New System.Windows.Forms.Button() Me.BTNVideoJOI = New System.Windows.Forms.Button() +Me.CBVideoJOI = New System.Windows.Forms.CheckBox() +Me.CBVideoCH = New System.Windows.Forms.CheckBox() Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() +Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() +Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() Me.BTNVideoFemSub = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoFemDom = New System.Windows.Forms.Button() @@ -549,6 +649,12 @@ Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoLesbian = New System.Windows.Forms.Button() Me.BTNVideoSoftCore = New System.Windows.Forms.Button() Me.BTNVideoHardCore = New System.Windows.Forms.Button() +Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() Me.LblVideoHeader = New System.Windows.Forms.Label() Me.TabPage20 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() @@ -567,34 +673,99 @@ Me.Label121 = New System.Windows.Forms.Label() Me.Label122 = New System.Windows.Forms.Label() Me.GBGlitterD = New System.Windows.Forms.GroupBox() Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() +Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() Me.BTNGlitterD = New System.Windows.Forms.Button() +Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() Me.LBLGlitterSlider = New System.Windows.Forms.Label() +Me.CBCustom2 = New System.Windows.Forms.CheckBox() +Me.GlitterSlider = New System.Windows.Forms.TrackBar() +Me.CBCustom1 = New System.Windows.Forms.CheckBox() +Me.CBDaily = New System.Windows.Forms.CheckBox() +Me.CBTrivia = New System.Windows.Forms.CheckBox() +Me.TBGlitterShortName = New System.Windows.Forms.TextBox() +Me.CBEgotist = New System.Windows.Forms.CheckBox() +Me.CBTease = New System.Windows.Forms.CheckBox() Me.GlitterAV = New System.Windows.Forms.PictureBox() Me.GBGlitter1 = New System.Windows.Forms.GroupBox() Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact1ImageDir = New System.Windows.Forms.Button() +Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter1 = New System.Windows.Forms.Button() +Me.LBLGlitterNC1 = New System.Windows.Forms.Label() Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() +Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() +Me.CBGlitter1 = New System.Windows.Forms.CheckBox() +Me.TBGlitter1 = New System.Windows.Forms.TextBox() Me.GlitterAV1 = New System.Windows.Forms.PictureBox() Me.GBGlitter3 = New System.Windows.Forms.GroupBox() Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact3ImageDir = New System.Windows.Forms.Button() +Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter3 = New System.Windows.Forms.Button() +Me.LBLGlitterNC3 = New System.Windows.Forms.Label() Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() +Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() +Me.CBGlitter3 = New System.Windows.Forms.CheckBox() +Me.TBGlitter3 = New System.Windows.Forms.TextBox() Me.GlitterAV3 = New System.Windows.Forms.PictureBox() Me.GBGlitter2 = New System.Windows.Forms.GroupBox() Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact2ImageDir = New System.Windows.Forms.Button() +Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter2 = New System.Windows.Forms.Button() +Me.LBLGlitterNC2 = New System.Windows.Forms.Label() Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() +Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() +Me.CBGlitter2 = New System.Windows.Forms.CheckBox() +Me.TBGlitter2 = New System.Windows.Forms.TextBox() Me.GlitterAV2 = New System.Windows.Forms.PictureBox() Me.TpGames = New System.Windows.Forms.TabPage() +Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() Me.LblCardsSetupNote = New System.Windows.Forms.Label() Me.CBGameSounds = New System.Windows.Forms.CheckBox() Me.GbxCardsGold = New System.Windows.Forms.GroupBox() +Me.GN6 = New System.Windows.Forms.TextBox() +Me.GP6 = New System.Windows.Forms.PictureBox() +Me.GN2 = New System.Windows.Forms.TextBox() +Me.GP2 = New System.Windows.Forms.PictureBox() +Me.GP5 = New System.Windows.Forms.PictureBox() +Me.GN1 = New System.Windows.Forms.TextBox() +Me.GP1 = New System.Windows.Forms.PictureBox() +Me.GN5 = New System.Windows.Forms.TextBox() +Me.GN3 = New System.Windows.Forms.TextBox() +Me.GP3 = New System.Windows.Forms.PictureBox() +Me.GP4 = New System.Windows.Forms.PictureBox() +Me.GN4 = New System.Windows.Forms.TextBox() Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() +Me.CardBack = New System.Windows.Forms.PictureBox() Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() +Me.BN6 = New System.Windows.Forms.TextBox() +Me.BN3 = New System.Windows.Forms.TextBox() +Me.BP3 = New System.Windows.Forms.PictureBox() +Me.BP6 = New System.Windows.Forms.PictureBox() +Me.BN2 = New System.Windows.Forms.TextBox() +Me.BN5 = New System.Windows.Forms.TextBox() +Me.BP5 = New System.Windows.Forms.PictureBox() +Me.BP2 = New System.Windows.Forms.PictureBox() +Me.BN1 = New System.Windows.Forms.TextBox() +Me.BN4 = New System.Windows.Forms.TextBox() +Me.BP4 = New System.Windows.Forms.PictureBox() +Me.BP1 = New System.Windows.Forms.PictureBox() Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() +Me.SN6 = New System.Windows.Forms.TextBox() +Me.SP6 = New System.Windows.Forms.PictureBox() +Me.SN2 = New System.Windows.Forms.TextBox() +Me.SP2 = New System.Windows.Forms.PictureBox() +Me.SN1 = New System.Windows.Forms.TextBox() +Me.SP5 = New System.Windows.Forms.PictureBox() +Me.SP1 = New System.Windows.Forms.PictureBox() +Me.SN5 = New System.Windows.Forms.TextBox() +Me.SN3 = New System.Windows.Forms.TextBox() +Me.SN4 = New System.Windows.Forms.TextBox() +Me.SP3 = New System.Windows.Forms.PictureBox() +Me.SP4 = New System.Windows.Forms.PictureBox() Me.TabPage6 = New System.Windows.Forms.TabPage() Me.Panel10 = New System.Windows.Forms.Panel() Me.TBWishlistComment = New System.Windows.Forms.TextBox() @@ -625,13 +796,20 @@ Me.Button31 = New System.Windows.Forms.Button() Me.PictureBox10 = New System.Windows.Forms.PictureBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.CBTransparentTime = New System.Windows.Forms.CheckBox() +Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() Me.Label137 = New System.Windows.Forms.Label() Me.Label138 = New System.Windows.Forms.Label() +Me.LBLDateBackColor2 = New System.Windows.Forms.Label() Me.LBLTextColor = New System.Windows.Forms.Label() +Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor2 = New System.Windows.Forms.Label() Me.LBLChatTextColor = New System.Windows.Forms.Label() +Me.LBLBackColor2 = New System.Windows.Forms.Label() Me.LBLButtonColor = New System.Windows.Forms.Label() Me.LBLChatWindowColor = New System.Windows.Forms.Label() Me.LBLBackColor = New System.Windows.Forms.Label() +Me.LBLChatTextColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor2 = New System.Windows.Forms.Label() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label144 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() @@ -646,6 +824,8 @@ Me.Panel6 = New System.Windows.Forms.Panel() Me.GroupBox69 = New System.Windows.Forms.GroupBox() Me.TypesSpeedVal = New System.Windows.Forms.Label() Me.TypeSpeedLabel = New System.Windows.Forms.Label() +Me.TimedWriting = New System.Windows.Forms.CheckBox() +Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() Me.GroupBox68 = New System.Windows.Forms.GroupBox() Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() @@ -653,16 +833,26 @@ Me.Label165 = New System.Windows.Forms.Label() Me.Label166 = New System.Windows.Forms.Label() Me.GroupBox67 = New System.Windows.Forms.GroupBox() Me.Label161 = New System.Windows.Forms.Label() +Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label162 = New System.Windows.Forms.Label() Me.Label163 = New System.Windows.Forms.Label() Me.Label158 = New System.Windows.Forms.Label() +Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label159 = New System.Windows.Forms.Label() Me.Label160 = New System.Windows.Forms.Label() +Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() Me.Label119 = New System.Windows.Forms.Label() Me.Label157 = New System.Windows.Forms.Label() Me.Label151 = New System.Windows.Forms.Label() +Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label154 = New System.Windows.Forms.Label() Me.Label155 = New System.Windows.Forms.Label() +Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() Me.Label146 = New System.Windows.Forms.Label() Me.Label149 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() @@ -716,10 +906,15 @@ Me.Label29 = New System.Windows.Forms.Label() Me.GroupBox18 = New System.Windows.Forms.GroupBox() Me.Label108 = New System.Windows.Forms.Label() Me.Label109 = New System.Windows.Forms.Label() +Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() +Me.CBCensorConstant = New System.Windows.Forms.CheckBox() Me.Label25 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() +Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() Me.Label89 = New System.Windows.Forms.Label() Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() @@ -818,6 +1013,10 @@ Me.LBLSesFiles = New System.Windows.Forms.Label() Me.Label125 = New System.Windows.Forms.Label() Me.Label124 = New System.Windows.Forms.Label() Me.GroupBox20 = New System.Windows.Forms.GroupBox() +Me.Label85 = New System.Windows.Forms.Label() +Me.TBURLFileReplace = New System.Windows.Forms.TextBox() +Me.Label53 = New System.Windows.Forms.Label() +Me.Label8 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() @@ -828,12 +1027,12 @@ Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() Me.PBMaintenance = New System.Windows.Forms.ProgressBar() Me.LBLMaintenance = New System.Windows.Forms.Label() Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() -Me.WebToy = New System.Windows.Forms.WebBrowser() Me.GroupBox15 = New System.Windows.Forms.GroupBox() Me.Label115 = New System.Windows.Forms.Label() Me.TBWebStop = New System.Windows.Forms.TextBox() Me.TBWebStart = New System.Windows.Forms.TextBox() Me.Label114 = New System.Windows.Forms.Label() +Me.WebToy = New System.Windows.Forms.WebBrowser() Me.PictureBox9 = New System.Windows.Forms.PictureBox() Me.Label148 = New System.Windows.Forms.Label() Me.TabPage28 = New System.Windows.Forms.TabPage() @@ -929,201 +1128,10 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.CBMuteMedia = New System.Windows.Forms.CheckBox() -Me.TbxDomImageDir = New System.Windows.Forms.TextBox() -Me.LBLSubColor = New System.Windows.Forms.Label() -Me.LBLDomColor = New System.Windows.Forms.Label() -Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() -Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() -Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() -Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() -Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() -Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() -Me.TbxIHardcore = New System.Windows.Forms.TextBox() -Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() -Me.CBIHardcore = New System.Windows.Forms.CheckBox() -Me.CBISoftcore = New System.Windows.Forms.CheckBox() -Me.TbxISoftcore = New System.Windows.Forms.TextBox() -Me.CBButtSubDir = New System.Windows.Forms.CheckBox() -Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() -Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() -Me.CBILezdomSD = New System.Windows.Forms.CheckBox() -Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() -Me.CBILesbianSD = New System.Windows.Forms.CheckBox() -Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() -Me.CBILesbian = New System.Windows.Forms.CheckBox() -Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjob = New System.Windows.Forms.CheckBox() -Me.CBIGaySD = New System.Windows.Forms.CheckBox() -Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() -Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() -Me.TbxIButts = New System.Windows.Forms.TextBox() -Me.CBIFemdom = New System.Windows.Forms.CheckBox() -Me.TbxILesbian = New System.Windows.Forms.TextBox() -Me.CBILezdom = New System.Windows.Forms.CheckBox() -Me.TbxIBoobs = New System.Windows.Forms.TextBox() -Me.CBIHentai = New System.Windows.Forms.CheckBox() -Me.TbxIBlowjob = New System.Windows.Forms.TextBox() -Me.CBIGay = New System.Windows.Forms.CheckBox() -Me.TbxIGeneral = New System.Windows.Forms.TextBox() -Me.CBIMaledom = New System.Windows.Forms.CheckBox() -Me.TbxIFemdom = New System.Windows.Forms.TextBox() -Me.TbxICaptions = New System.Windows.Forms.TextBox() -Me.CBICaptions = New System.Windows.Forms.CheckBox() -Me.TbxILezdom = New System.Windows.Forms.TextBox() -Me.TbxIMaledom = New System.Windows.Forms.TextBox() -Me.TbxIHentai = New System.Windows.Forms.TextBox() -Me.CBIGeneral = New System.Windows.Forms.CheckBox() -Me.TbxIGay = New System.Windows.Forms.TextBox() -Me.CBIBoobs = New System.Windows.Forms.CheckBox() -Me.CBIButts = New System.Windows.Forms.CheckBox() -Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() -Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() -Me.TxbVideoCHD = New System.Windows.Forms.TextBox() -Me.TxbVideoJOID = New System.Windows.Forms.TextBox() -Me.CBVideoJOID = New System.Windows.Forms.CheckBox() -Me.CBVideoCHD = New System.Windows.Forms.CheckBox() -Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() -Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() -Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() -Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() -Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() -Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() -Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() -Me.TxbVideoCH = New System.Windows.Forms.TextBox() -Me.TxbVideoJOI = New System.Windows.Forms.TextBox() -Me.CBVideoJOI = New System.Windows.Forms.CheckBox() -Me.CBVideoCH = New System.Windows.Forms.CheckBox() -Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() -Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() -Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() -Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() -Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() -Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() -Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() -Me.CBCustom2 = New System.Windows.Forms.CheckBox() -Me.GlitterSlider = New System.Windows.Forms.TrackBar() -Me.CBCustom1 = New System.Windows.Forms.CheckBox() -Me.CBDaily = New System.Windows.Forms.CheckBox() -Me.CBTrivia = New System.Windows.Forms.CheckBox() -Me.TBGlitterShortName = New System.Windows.Forms.TextBox() -Me.CBEgotist = New System.Windows.Forms.CheckBox() -Me.CBTease = New System.Windows.Forms.CheckBox() -Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() -Me.LBLGlitterNC1 = New System.Windows.Forms.Label() -Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() -Me.CBGlitter1 = New System.Windows.Forms.CheckBox() -Me.TBGlitter1 = New System.Windows.Forms.TextBox() -Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() -Me.LBLGlitterNC3 = New System.Windows.Forms.Label() -Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() -Me.CBGlitter3 = New System.Windows.Forms.CheckBox() -Me.TBGlitter3 = New System.Windows.Forms.TextBox() -Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() -Me.LBLGlitterNC2 = New System.Windows.Forms.Label() -Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() -Me.CBGlitter2 = New System.Windows.Forms.CheckBox() -Me.TBGlitter2 = New System.Windows.Forms.TextBox() -Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() -Me.GN6 = New System.Windows.Forms.TextBox() -Me.GP6 = New System.Windows.Forms.PictureBox() -Me.GN2 = New System.Windows.Forms.TextBox() -Me.GP2 = New System.Windows.Forms.PictureBox() -Me.GP5 = New System.Windows.Forms.PictureBox() -Me.GN1 = New System.Windows.Forms.TextBox() -Me.GP1 = New System.Windows.Forms.PictureBox() -Me.GN5 = New System.Windows.Forms.TextBox() -Me.GN3 = New System.Windows.Forms.TextBox() -Me.GP3 = New System.Windows.Forms.PictureBox() -Me.GP4 = New System.Windows.Forms.PictureBox() -Me.GN4 = New System.Windows.Forms.TextBox() -Me.CardBack = New System.Windows.Forms.PictureBox() -Me.BN6 = New System.Windows.Forms.TextBox() -Me.BN3 = New System.Windows.Forms.TextBox() -Me.BP3 = New System.Windows.Forms.PictureBox() -Me.BP6 = New System.Windows.Forms.PictureBox() -Me.BN2 = New System.Windows.Forms.TextBox() -Me.BN5 = New System.Windows.Forms.TextBox() -Me.BP5 = New System.Windows.Forms.PictureBox() -Me.BP2 = New System.Windows.Forms.PictureBox() -Me.BN1 = New System.Windows.Forms.TextBox() -Me.BN4 = New System.Windows.Forms.TextBox() -Me.BP4 = New System.Windows.Forms.PictureBox() -Me.BP1 = New System.Windows.Forms.PictureBox() -Me.SN6 = New System.Windows.Forms.TextBox() -Me.SP6 = New System.Windows.Forms.PictureBox() -Me.SN2 = New System.Windows.Forms.TextBox() -Me.SP2 = New System.Windows.Forms.PictureBox() -Me.SN1 = New System.Windows.Forms.TextBox() -Me.SP5 = New System.Windows.Forms.PictureBox() -Me.SP1 = New System.Windows.Forms.PictureBox() -Me.SN5 = New System.Windows.Forms.TextBox() -Me.SN3 = New System.Windows.Forms.TextBox() -Me.SN4 = New System.Windows.Forms.TextBox() -Me.SP3 = New System.Windows.Forms.PictureBox() -Me.SP4 = New System.Windows.Forms.PictureBox() -Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() -Me.LBLDateBackColor2 = New System.Windows.Forms.Label() -Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor2 = New System.Windows.Forms.Label() -Me.LBLBackColor2 = New System.Windows.Forms.Label() -Me.LBLChatTextColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor2 = New System.Windows.Forms.Label() -Me.TimedWriting = New System.Windows.Forms.CheckBox() -Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() -Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() -Me.CBCensorConstant = New System.Windows.Forms.CheckBox() -Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() +Me.Label87 = New System.Windows.Forms.Label() +Me.TBURLFileWith = New System.Windows.Forms.TextBox() +Me.Label118 = New System.Windows.Forms.Label() +Me.BTNURLFileReplace = New System.Windows.Forms.Button() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() Me.SettingsPanel.SuspendLayout Me.SettingsTabs.SuspendLayout @@ -1254,18 +1262,41 @@ Me.PNLGlitter.SuspendLayout Me.GroupBox4.SuspendLayout Me.GBGlitterD.SuspendLayout Me.GrbGlitterfeed.SuspendLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter1.SuspendLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter3.SuspendLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter2.SuspendLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit Me.TpGames.SuspendLayout Me.GbxCardsGold.SuspendLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBackground.SuspendLayout +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBronze.SuspendLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsSilver.SuspendLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage6.SuspendLayout Me.Panel10.SuspendLayout CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit @@ -1284,10 +1315,21 @@ CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage4.SuspendLayout Me.Panel6.SuspendLayout Me.GroupBox69.SuspendLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox68.SuspendLayout CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox67.SuspendLayout +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox10.SuspendLayout CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox57.SuspendLayout @@ -1309,6 +1351,10 @@ CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox18.SuspendLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.GBRangeOrgasmChance.SuspendLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit @@ -1351,44 +1397,6 @@ Me.GroupBox12.SuspendLayout Me.GroupBox65.SuspendLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' 'SettingsPanel @@ -1565,6 +1573,20 @@ Me.GroupBox64.TabIndex = 157 Me.GroupBox64.TabStop = false Me.GroupBox64.Text = "Media Options" ' +'CBMuteMedia +' +Me.CBMuteMedia.AutoSize = true +Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia +Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black +Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) +Me.CBMuteMedia.Name = "CBMuteMedia" +Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) +Me.CBMuteMedia.TabIndex = 6 +Me.CBMuteMedia.TabStop = false +Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" +Me.CBMuteMedia.UseVisualStyleBackColor = true +' 'GBDommeImages ' Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray @@ -1659,6 +1681,20 @@ Me.timedRadio.Size = New System.Drawing.Size(14, 13) Me.timedRadio.TabIndex = 19 Me.timedRadio.UseVisualStyleBackColor = true ' +'TbxDomImageDir +' +Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) +Me.TbxDomImageDir.Name = "TbxDomImageDir" +Me.TbxDomImageDir.ReadOnly = true +Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxDomImageDir.TabIndex = 0 +Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir +' 'GBGeneralTextToSpeech ' Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray @@ -2010,6 +2046,20 @@ Me.BTNSubColor.TabIndex = 8 Me.BTNSubColor.Text = "Sub Name Color" Me.BTNSubColor.UseVisualStyleBackColor = false ' +'LBLSubColor +' +Me.LBLSubColor.BackColor = System.Drawing.Color.White +Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor +Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) +Me.LBLSubColor.Name = "LBLSubColor" +Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) +Me.LBLSubColor.TabIndex = 0 +Me.LBLSubColor.Text = "Preview" +Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' 'NBFontSize ' Me.NBFontSize.BackColor = System.Drawing.Color.White @@ -2069,7 +2119,21 @@ Me.BTNDomColor.TabIndex = 5 Me.BTNDomColor.Text = "Domme Name Color" Me.BTNDomColor.UseVisualStyleBackColor = false ' -'FontComboBoxD +'LBLDomColor +' +Me.LBLDomColor.BackColor = System.Drawing.Color.White +Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor +Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) +Me.LBLDomColor.Name = "LBLDomColor" +Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) +Me.LBLDomColor.TabIndex = 0 +Me.LBLDomColor.Text = "Preview" +Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'FontComboBoxD ' Me.FontComboBoxD.FormattingEnabled = true Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) @@ -3102,6 +3166,19 @@ Me.GBDomOrgasms.TabIndex = 132 Me.GBDomOrgasms.TabStop = false Me.GBDomOrgasms.Text = "Orgasms" ' +'CBLockOrgasmChances +' +Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances +Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black +Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) +Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" +Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) +Me.CBLockOrgasmChances.TabIndex = 146 +Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" +Me.CBLockOrgasmChances.UseVisualStyleBackColor = true +' 'orgasmlockrandombutton ' Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray @@ -4924,10085 +5001,10092 @@ Me.BtnImageUrlSoftcore.TabIndex = 5 Me.BtnImageUrlSoftcore.Text = "1" Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false ' -'GbxImagesGenre +'ChbImageUrlHardcore ' -Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) -Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) -Me.GbxImagesGenre.Name = "GbxImagesGenre" -Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) -Me.GbxImagesGenre.TabIndex = 0 -Me.GbxImagesGenre.TabStop = false -Me.GbxImagesGenre.Text = "Local Images" +Me.ChbImageUrlHardcore.AutoSize = true +Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled +Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) +Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" +Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHardcore.TabIndex = 0 +Me.ChbImageUrlHardcore.Text = "Hardcore" +Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true ' -'TableLayoutPanel1 +'ChbImageUrlButts ' -Me.TableLayoutPanel1.ColumnCount = 4 -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) -Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) -Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) -Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) -Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill -Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize -Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) -Me.TableLayoutPanel1.Name = "TableLayoutPanel1" -Me.TableLayoutPanel1.RowCount = 13 -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) -Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) -Me.TableLayoutPanel1.TabIndex = 0 +Me.ChbImageUrlButts.AutoSize = true +Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled +Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) +Me.ChbImageUrlButts.Name = "ChbImageUrlButts" +Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) +Me.ChbImageUrlButts.TabIndex = 37 +Me.ChbImageUrlButts.Text = "Butts" +Me.ChbImageUrlButts.UseVisualStyleBackColor = true ' -'BTNIHardcore +'ChbImageUrlMaledom ' -Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray -Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black -Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) -Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHardcore.Name = "BTNIHardcore" -Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) -Me.BTNIHardcore.TabIndex = 1 -Me.BTNIHardcore.Text = "1" -Me.BTNIHardcore.UseVisualStyleBackColor = false +Me.ChbImageUrlMaledom.AutoSize = true +Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled +Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) +Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" +Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlMaledom.TabIndex = 25 +Me.ChbImageUrlMaledom.Text = "Maledom" +Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true ' -'BTNISoftcore +'ChbImageUrlGay ' -Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray -Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black -Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) -Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNISoftcore.Name = "BTNISoftcore" -Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) -Me.BTNISoftcore.TabIndex = 5 -Me.BTNISoftcore.Text = "1" -Me.BTNISoftcore.UseVisualStyleBackColor = false +Me.ChbImageUrlGay.AutoSize = true +Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled +Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) +Me.ChbImageUrlGay.Name = "ChbImageUrlGay" +Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGay.TabIndex = 22 +Me.ChbImageUrlGay.Text = "Gay" +Me.ChbImageUrlGay.UseVisualStyleBackColor = true ' -'BTNILesbian +'ChbImageUrlSoftcore ' -Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILesbian.ForeColor = System.Drawing.Color.Black -Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) -Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILesbian.Name = "BTNILesbian" -Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNILesbian.TabIndex = 9 -Me.BTNILesbian.Text = "1" -Me.BTNILesbian.UseVisualStyleBackColor = false +Me.ChbImageUrlSoftcore.AutoSize = true +Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled +Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) +Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" +Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlSoftcore.TabIndex = 4 +Me.ChbImageUrlSoftcore.Text = "Softcore" +Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true ' -'BTNButtPath +'ChbImageUrlBoobs ' -Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray -Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNButtPath.ForeColor = System.Drawing.Color.Black -Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) -Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNButtPath.Name = "BTNButtPath" -Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) -Me.BTNButtPath.TabIndex = 49 -Me.BTNButtPath.Text = "1" -Me.BTNButtPath.UseVisualStyleBackColor = false +Me.ChbImageUrlBoobs.AutoSize = true +Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled +Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) +Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" +Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBoobs.TabIndex = 34 +Me.ChbImageUrlBoobs.Text = "Boobs" +Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true ' -'BTNIBlowjob +'ChbImageUrlLesbian ' -Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIBlowjob.Name = "BTNIBlowjob" -Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNIBlowjob.TabIndex = 13 -Me.BTNIBlowjob.Text = "1" -Me.BTNIBlowjob.UseVisualStyleBackColor = false +Me.ChbImageUrlLesbian.AutoSize = true +Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled +Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) +Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" +Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLesbian.TabIndex = 7 +Me.ChbImageUrlLesbian.Text = "Lesbian" +Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true ' -'BTNIFemdom +'ChbImageUrlBlowjob ' -Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray -Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black -Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) -Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIFemdom.Name = "BTNIFemdom" -Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) -Me.BTNIFemdom.TabIndex = 17 -Me.BTNIFemdom.Text = "1" -Me.BTNIFemdom.UseVisualStyleBackColor = false +Me.ChbImageUrlBlowjob.AutoSize = true +Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled +Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) +Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" +Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBlowjob.TabIndex = 10 +Me.ChbImageUrlBlowjob.Text = "Blowjob" +Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true ' -'BTNBoobPath +'ChbImageUrlCaptions ' -Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray -Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black -Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) -Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNBoobPath.Name = "BTNBoobPath" -Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) -Me.BTNBoobPath.TabIndex = 45 -Me.BTNBoobPath.Text = "1" -Me.BTNBoobPath.UseVisualStyleBackColor = false +Me.ChbImageUrlCaptions.AutoSize = true +Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled +Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) +Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" +Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlCaptions.TabIndex = 28 +Me.ChbImageUrlCaptions.Text = "Captions" +Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true ' -'BTNILezdom +'ChbImageUrlGeneral ' -Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray -Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILezdom.ForeColor = System.Drawing.Color.Black -Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) -Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILezdom.Name = "BTNILezdom" -Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) -Me.BTNILezdom.TabIndex = 21 -Me.BTNILezdom.Text = "1" -Me.BTNILezdom.UseVisualStyleBackColor = false +Me.ChbImageUrlGeneral.AutoSize = true +Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled +Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) +Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" +Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGeneral.TabIndex = 31 +Me.ChbImageUrlGeneral.Text = "General" +Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true ' -'BTNIHentai +'ChbImageUrlFemdom ' -Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray -Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHentai.ForeColor = System.Drawing.Color.Black -Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) -Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHentai.Name = "BTNIHentai" -Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) -Me.BTNIHentai.TabIndex = 25 -Me.BTNIHentai.Text = "1" -Me.BTNIHentai.UseVisualStyleBackColor = false +Me.ChbImageUrlFemdom.AutoSize = true +Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled +Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) +Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" +Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlFemdom.TabIndex = 13 +Me.ChbImageUrlFemdom.Text = "Femdom" +Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true ' -'BTNIGay +'ChbImageUrlHentai ' -Me.BTNIGay.BackColor = System.Drawing.Color.LightGray -Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGay.ForeColor = System.Drawing.Color.Black -Me.BTNIGay.Location = New System.Drawing.Point(76, 203) -Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGay.Name = "BTNIGay" -Me.BTNIGay.Size = New System.Drawing.Size(34, 28) -Me.BTNIGay.TabIndex = 29 -Me.BTNIGay.Text = "1" -Me.BTNIGay.UseVisualStyleBackColor = false +Me.ChbImageUrlHentai.AutoSize = true +Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled +Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) +Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" +Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHentai.TabIndex = 19 +Me.ChbImageUrlHentai.Text = "Hentai" +Me.ChbImageUrlHentai.UseVisualStyleBackColor = true ' -'BTNIMaledom +'ChbImageUrlLezdom ' -Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray -Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black -Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) -Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIMaledom.Name = "BTNIMaledom" -Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) -Me.BTNIMaledom.TabIndex = 33 -Me.BTNIMaledom.Text = "1" -Me.BTNIMaledom.UseVisualStyleBackColor = false +Me.ChbImageUrlLezdom.AutoSize = true +Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled +Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) +Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" +Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLezdom.TabIndex = 16 +Me.ChbImageUrlLezdom.Text = "Lezdom" +Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true ' -'BTNICaptions +'TxbImageUrlBlowjob ' -Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray -Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNICaptions.ForeColor = System.Drawing.Color.Black -Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) -Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNICaptions.Name = "BTNICaptions" -Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) -Me.BTNICaptions.TabIndex = 37 -Me.BTNICaptions.Text = "1" -Me.BTNICaptions.UseVisualStyleBackColor = false +Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" +Me.TxbImageUrlBlowjob.ReadOnly = true +Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.TabIndex = 12 +Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob ' -'BTNIGeneral +'TxbImageUrlSoftcore ' -Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) -Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGeneral.Name = "BTNIGeneral" -Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNIGeneral.TabIndex = 41 -Me.BTNIGeneral.Text = "1" -Me.BTNIGeneral.UseVisualStyleBackColor = false +Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) +Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" +Me.TxbImageUrlSoftcore.ReadOnly = true +Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.TabIndex = 6 +Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore ' -'TabPage33 +'TxbImageUrlLezdom ' -Me.TabPage33.BackColor = System.Drawing.Color.Silver -Me.TabPage33.Controls.Add(Me.TabControl5) -Me.TabPage33.Location = New System.Drawing.Point(4, 22) -Me.TabPage33.Name = "TabPage33" -Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage33.Size = New System.Drawing.Size(720, 448) -Me.TabPage33.TabIndex = 21 -Me.TabPage33.Text = "Tagging" +Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) +Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" +Me.TxbImageUrlLezdom.ReadOnly = true +Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.TabIndex = 18 +Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom ' -'TabControl5 +'TxbImageUrlFemdom ' -Me.TabControl5.Controls.Add(Me.TabPage34) -Me.TabControl5.Controls.Add(Me.TabPage35) -Me.TabControl5.Location = New System.Drawing.Point(6, 6) -Me.TabControl5.Name = "TabControl5" -Me.TabControl5.SelectedIndex = 0 -Me.TabControl5.Size = New System.Drawing.Size(708, 437) -Me.TabControl5.TabIndex = 0 +Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) +Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" +Me.TxbImageUrlFemdom.ReadOnly = true +Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.TabIndex = 15 +Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom ' -'TabPage34 +'TxbImageUrlHardcore ' -Me.TabPage34.BackColor = System.Drawing.Color.LightGray -Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) -Me.TabPage34.Controls.Add(Me.CBTagAllFours) -Me.TabPage34.Controls.Add(Me.CBTagGlaring) -Me.TabPage34.Controls.Add(Me.CBTagSmiling) -Me.TabPage34.Controls.Add(Me.TBTagDir) -Me.TabPage34.Controls.Add(Me.CBTagPiercing) -Me.TabPage34.Controls.Add(Me.CBTagLegs) -Me.TabPage34.Controls.Add(Me.TBTagFurniture) -Me.TabPage34.Controls.Add(Me.CBTagFurniture) -Me.TabPage34.Controls.Add(Me.TBTagSexToy) -Me.TabPage34.Controls.Add(Me.CBTagSexToy) -Me.TabPage34.Controls.Add(Me.TBTagTattoo) -Me.TabPage34.Controls.Add(Me.CBTagTattoo) -Me.TabPage34.Controls.Add(Me.TBTagUnderwear) -Me.TabPage34.Controls.Add(Me.CBTagUnderwear) -Me.TabPage34.Controls.Add(Me.TBTagGarment) -Me.TabPage34.Controls.Add(Me.CBTagGarment) -Me.TabPage34.Controls.Add(Me.Label72) -Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) -Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) -Me.TabPage34.Controls.Add(Me.CBTagCloseUp) -Me.TabPage34.Controls.Add(Me.CBTagNaked) -Me.TabPage34.Controls.Add(Me.CBTagSideView) -Me.TabPage34.Controls.Add(Me.BTNTagPrevious) -Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) -Me.TabPage34.Controls.Add(Me.BTNTagNext) -Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) -Me.TabPage34.Controls.Add(Me.LBLTagCount) -Me.TabPage34.Controls.Add(Me.CBTagSucking) -Me.TabPage34.Controls.Add(Me.CBTagMasturbating) -Me.TabPage34.Controls.Add(Me.CBTagFeet) -Me.TabPage34.Controls.Add(Me.CBTagBoobs) -Me.TabPage34.Controls.Add(Me.CBTagAss) -Me.TabPage34.Controls.Add(Me.CBTagPussy) -Me.TabPage34.Controls.Add(Me.BTNTagSave) -Me.TabPage34.Controls.Add(Me.BTNTagDir) -Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) -Me.TabPage34.Controls.Add(Me.CBTagFace) -Me.TabPage34.Location = New System.Drawing.Point(4, 22) -Me.TabPage34.Name = "TabPage34" -Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage34.Size = New System.Drawing.Size(700, 411) -Me.TabPage34.TabIndex = 0 -Me.TabPage34.Text = "Domme Tags" -' -'CBTagSeeThrough -' -Me.CBTagSeeThrough.AutoSize = true -Me.CBTagSeeThrough.Enabled = false -Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) -Me.CBTagSeeThrough.Name = "CBTagSeeThrough" -Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) -Me.CBTagSeeThrough.TabIndex = 226 -Me.CBTagSeeThrough.Text = "See Through" -Me.CBTagSeeThrough.UseVisualStyleBackColor = true -' -'CBTagAllFours +Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) +Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" +Me.TxbImageUrlHardcore.ReadOnly = true +Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.TabIndex = 3 +Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore ' -Me.CBTagAllFours.AutoSize = true -Me.CBTagAllFours.Enabled = false -Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black -Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) -Me.CBTagAllFours.Name = "CBTagAllFours" -Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) -Me.CBTagAllFours.TabIndex = 225 -Me.CBTagAllFours.Text = "All Fours" -Me.CBTagAllFours.UseVisualStyleBackColor = true +'TxbImageUrlHentai ' -'CBTagGlaring +Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) +Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" +Me.TxbImageUrlHentai.ReadOnly = true +Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.TabIndex = 21 +Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai ' -Me.CBTagGlaring.AutoSize = true -Me.CBTagGlaring.Enabled = false -Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black -Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) -Me.CBTagGlaring.Name = "CBTagGlaring" -Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) -Me.CBTagGlaring.TabIndex = 224 -Me.CBTagGlaring.Text = "Glaring" -Me.CBTagGlaring.UseVisualStyleBackColor = true +'TxbImageUrlGay ' -'CBTagSmiling +Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) +Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.Name = "TxbImageUrlGay" +Me.TxbImageUrlGay.ReadOnly = true +Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.TabIndex = 24 +Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay ' -Me.CBTagSmiling.AutoSize = true -Me.CBTagSmiling.Enabled = false -Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black -Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) -Me.CBTagSmiling.Name = "CBTagSmiling" -Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) -Me.CBTagSmiling.TabIndex = 223 -Me.CBTagSmiling.Text = "Smiling" -Me.CBTagSmiling.UseVisualStyleBackColor = true +'TxbImageUrlLesbian ' -'TBTagDir +Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) +Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" +Me.TxbImageUrlLesbian.ReadOnly = true +Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.TabIndex = 9 +Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian ' -Me.TBTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBTagDir.Name = "TBTagDir" -Me.TBTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBTagDir.TabIndex = 222 -Me.TBTagDir.Text = "Enter Image Directory" +'TxbImageUrlMaledom ' -'CBTagPiercing +Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) +Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" +Me.TxbImageUrlMaledom.ReadOnly = true +Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.TabIndex = 27 +Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom ' -Me.CBTagPiercing.AutoSize = true -Me.CBTagPiercing.Enabled = false -Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black -Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) -Me.CBTagPiercing.Name = "CBTagPiercing" -Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) -Me.CBTagPiercing.TabIndex = 221 -Me.CBTagPiercing.Text = "Piercing" -Me.CBTagPiercing.UseVisualStyleBackColor = true +'TxbImageUrlCaptions ' -'CBTagLegs +Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) +Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" +Me.TxbImageUrlCaptions.ReadOnly = true +Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.TabIndex = 30 +Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions ' -Me.CBTagLegs.AutoSize = true -Me.CBTagLegs.Enabled = false -Me.CBTagLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) -Me.CBTagLegs.Name = "CBTagLegs" -Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagLegs.TabIndex = 220 -Me.CBTagLegs.Text = "Legs" -Me.CBTagLegs.UseVisualStyleBackColor = true +'TxbImageUrlGeneral ' -'TBTagFurniture +Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) +Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" +Me.TxbImageUrlGeneral.ReadOnly = true +Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.TabIndex = 33 +Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral ' -Me.TBTagFurniture.Enabled = false -Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) -Me.TBTagFurniture.Name = "TBTagFurniture" -Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) -Me.TBTagFurniture.TabIndex = 219 +'TxbImageUrlBoobs ' -'CBTagFurniture +Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) +Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" +Me.TxbImageUrlBoobs.ReadOnly = true +Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.TabIndex = 36 +Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs ' -Me.CBTagFurniture.AutoSize = true -Me.CBTagFurniture.Enabled = false -Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black -Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) -Me.CBTagFurniture.Name = "CBTagFurniture" -Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) -Me.CBTagFurniture.TabIndex = 218 -Me.CBTagFurniture.Text = "Furniture" -Me.CBTagFurniture.UseVisualStyleBackColor = true +'TxbImageUrlButts ' -'TBTagSexToy +Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) +Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.Name = "TxbImageUrlButts" +Me.TxbImageUrlButts.ReadOnly = true +Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.TabIndex = 39 +Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt ' -Me.TBTagSexToy.Enabled = false -Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) -Me.TBTagSexToy.Name = "TBTagSexToy" -Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) -Me.TBTagSexToy.TabIndex = 217 +'GbxImagesGenre ' -'CBTagSexToy +Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) +Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) +Me.GbxImagesGenre.Name = "GbxImagesGenre" +Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) +Me.GbxImagesGenre.TabIndex = 0 +Me.GbxImagesGenre.TabStop = false +Me.GbxImagesGenre.Text = "Local Images" ' -Me.CBTagSexToy.AutoSize = true -Me.CBTagSexToy.Enabled = false -Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black -Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) -Me.CBTagSexToy.Name = "CBTagSexToy" -Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) -Me.CBTagSexToy.TabIndex = 216 -Me.CBTagSexToy.Text = "Sex Toy" -Me.CBTagSexToy.UseVisualStyleBackColor = true +'TableLayoutPanel1 ' -'TBTagTattoo -' -Me.TBTagTattoo.Enabled = false -Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) -Me.TBTagTattoo.Name = "TBTagTattoo" -Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) -Me.TBTagTattoo.TabIndex = 215 -' -'CBTagTattoo -' -Me.CBTagTattoo.AutoSize = true -Me.CBTagTattoo.Enabled = false -Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) -Me.CBTagTattoo.Name = "CBTagTattoo" -Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) -Me.CBTagTattoo.TabIndex = 214 -Me.CBTagTattoo.Text = "Tattoo" -Me.CBTagTattoo.UseVisualStyleBackColor = true -' -'TBTagUnderwear -' -Me.TBTagUnderwear.Enabled = false -Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) -Me.TBTagUnderwear.Name = "TBTagUnderwear" -Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) -Me.TBTagUnderwear.TabIndex = 213 -' -'CBTagUnderwear -' -Me.CBTagUnderwear.AutoSize = true -Me.CBTagUnderwear.Enabled = false -Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black -Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) -Me.CBTagUnderwear.Name = "CBTagUnderwear" -Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) -Me.CBTagUnderwear.TabIndex = 212 -Me.CBTagUnderwear.Text = "Underwear" -Me.CBTagUnderwear.UseVisualStyleBackColor = true -' -'TBTagGarment -' -Me.TBTagGarment.Enabled = false -Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) -Me.TBTagGarment.Name = "TBTagGarment" -Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) -Me.TBTagGarment.TabIndex = 211 -' -'CBTagGarment -' -Me.CBTagGarment.AutoSize = true -Me.CBTagGarment.Enabled = false -Me.CBTagGarment.ForeColor = System.Drawing.Color.Black -Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) -Me.CBTagGarment.Name = "CBTagGarment" -Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) -Me.CBTagGarment.TabIndex = 210 -Me.CBTagGarment.Text = "Garment" -Me.CBTagGarment.UseVisualStyleBackColor = true -' -'Label72 -' -Me.Label72.BackColor = System.Drawing.Color.Transparent -Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label72.ForeColor = System.Drawing.Color.Black -Me.Label72.Location = New System.Drawing.Point(5, 368) -Me.Label72.Name = "Label72" -Me.Label72.Size = New System.Drawing.Size(451, 35) -Me.Label72.TabIndex = 189 -Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ - "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ - "e.g. Garment: dress)" -Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBTagHandsCovering -' -Me.CBTagHandsCovering.AutoSize = true -Me.CBTagHandsCovering.Enabled = false -Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) -Me.CBTagHandsCovering.Name = "CBTagHandsCovering" -Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) -Me.CBTagHandsCovering.TabIndex = 209 -Me.CBTagHandsCovering.Text = "Hands Covering" -Me.CBTagHandsCovering.UseVisualStyleBackColor = true -' -'CBTagGarmentCovering -' -Me.CBTagGarmentCovering.AutoSize = true -Me.CBTagGarmentCovering.Enabled = false -Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) -Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" -Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) -Me.CBTagGarmentCovering.TabIndex = 208 -Me.CBTagGarmentCovering.Text = "Garment Covering" -Me.CBTagGarmentCovering.UseVisualStyleBackColor = true -' -'CBTagCloseUp -' -Me.CBTagCloseUp.AutoSize = true -Me.CBTagCloseUp.Enabled = false -Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black -Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) -Me.CBTagCloseUp.Name = "CBTagCloseUp" -Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) -Me.CBTagCloseUp.TabIndex = 205 -Me.CBTagCloseUp.Text = "Close Up" -Me.CBTagCloseUp.UseVisualStyleBackColor = true -' -'CBTagNaked -' -Me.CBTagNaked.AutoSize = true -Me.CBTagNaked.Enabled = false -Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) -Me.CBTagNaked.Name = "CBTagNaked" -Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) -Me.CBTagNaked.TabIndex = 199 -Me.CBTagNaked.Text = "Naked" -Me.CBTagNaked.UseVisualStyleBackColor = true -' -'CBTagSideView -' -Me.CBTagSideView.AutoSize = true -Me.CBTagSideView.Enabled = false -Me.CBTagSideView.ForeColor = System.Drawing.Color.Black -Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) -Me.CBTagSideView.Name = "CBTagSideView" -Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) -Me.CBTagSideView.TabIndex = 204 -Me.CBTagSideView.Text = "Side View" -Me.CBTagSideView.UseVisualStyleBackColor = true -' -'BTNTagPrevious -' -Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNTagPrevious.Enabled = false -Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNTagPrevious.Name = "BTNTagPrevious" -Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNTagPrevious.TabIndex = 207 -Me.BTNTagPrevious.Text = "<<" -Me.BTNTagPrevious.UseVisualStyleBackColor = false -' -'CBTagHalfDressed -' -Me.CBTagHalfDressed.AutoSize = true -Me.CBTagHalfDressed.Enabled = false -Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) -Me.CBTagHalfDressed.Name = "CBTagHalfDressed" -Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) -Me.CBTagHalfDressed.TabIndex = 198 -Me.CBTagHalfDressed.Text = "Half Dressed" -Me.CBTagHalfDressed.UseVisualStyleBackColor = true -' -'BTNTagNext -' -Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNTagNext.Enabled = false -Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNTagNext.Name = "BTNTagNext" -Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNTagNext.TabIndex = 206 -Me.BTNTagNext.Text = ">>" -Me.BTNTagNext.UseVisualStyleBackColor = false -' -'CBTagFullyDressed -' -Me.CBTagFullyDressed.AutoSize = true -Me.CBTagFullyDressed.Enabled = false -Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) -Me.CBTagFullyDressed.Name = "CBTagFullyDressed" -Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) -Me.CBTagFullyDressed.TabIndex = 197 -Me.CBTagFullyDressed.Text = "Fully Dressed" -Me.CBTagFullyDressed.UseVisualStyleBackColor = true +Me.TableLayoutPanel1.ColumnCount = 4 +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) +Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) +Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) +Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) +Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill +Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize +Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) +Me.TableLayoutPanel1.Name = "TableLayoutPanel1" +Me.TableLayoutPanel1.RowCount = 13 +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) +Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) +Me.TableLayoutPanel1.TabIndex = 0 ' -'LBLTagCount +'BTNIHardcore ' -Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTagCount.Enabled = false -Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLTagCount.Name = "LBLTagCount" -Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLTagCount.TabIndex = 203 -Me.LBLTagCount.Text = "0/0" -Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray +Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black +Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) +Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHardcore.Name = "BTNIHardcore" +Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) +Me.BTNIHardcore.TabIndex = 1 +Me.BTNIHardcore.Text = "1" +Me.BTNIHardcore.UseVisualStyleBackColor = false ' -'CBTagSucking +'TbxIHardcore ' -Me.CBTagSucking.AutoSize = true -Me.CBTagSucking.Enabled = false -Me.CBTagSucking.ForeColor = System.Drawing.Color.Black -Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) -Me.CBTagSucking.Name = "CBTagSucking" -Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) -Me.CBTagSucking.TabIndex = 202 -Me.CBTagSucking.Text = "Sucking" -Me.CBTagSucking.UseVisualStyleBackColor = true +Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray +Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black +Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) +Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.Name = "TbxIHardcore" +Me.TbxIHardcore.ReadOnly = true +Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.TabIndex = 2 +Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore ' -'CBTagMasturbating +'CBIHardcoreSD ' -Me.CBTagMasturbating.AutoSize = true -Me.CBTagMasturbating.Enabled = false -Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) -Me.CBTagMasturbating.Name = "CBTagMasturbating" -Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbating.TabIndex = 201 -Me.CBTagMasturbating.Text = "Masturbating" -Me.CBTagMasturbating.UseVisualStyleBackColor = true +Me.CBIHardcoreSD.AutoSize = true +Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD +Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) +Me.CBIHardcoreSD.Name = "CBIHardcoreSD" +Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHardcoreSD.TabIndex = 3 +Me.CBIHardcoreSD.UseVisualStyleBackColor = true ' -'CBTagFeet +'CBIHardcore ' -Me.CBTagFeet.AutoSize = true -Me.CBTagFeet.Enabled = false -Me.CBTagFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) -Me.CBTagFeet.Name = "CBTagFeet" -Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagFeet.TabIndex = 200 -Me.CBTagFeet.Text = "Feet" -Me.CBTagFeet.UseVisualStyleBackColor = true +Me.CBIHardcore.AutoSize = true +Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore +Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcore.ForeColor = System.Drawing.Color.Black +Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) +Me.CBIHardcore.Name = "CBIHardcore" +Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) +Me.CBIHardcore.TabIndex = 0 +Me.CBIHardcore.Text = "Hardcore" +Me.CBIHardcore.UseVisualStyleBackColor = true ' -'CBTagBoobs +'CBISoftcore ' -Me.CBTagBoobs.AutoSize = true -Me.CBTagBoobs.Enabled = false -Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black -Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) -Me.CBTagBoobs.Name = "CBTagBoobs" -Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) -Me.CBTagBoobs.TabIndex = 196 -Me.CBTagBoobs.Text = "Boobs" -Me.CBTagBoobs.UseVisualStyleBackColor = true +Me.CBISoftcore.AutoSize = true +Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore +Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcore.ForeColor = System.Drawing.Color.Black +Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) +Me.CBISoftcore.Name = "CBISoftcore" +Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) +Me.CBISoftcore.TabIndex = 4 +Me.CBISoftcore.Text = "Softcore" +Me.CBISoftcore.UseVisualStyleBackColor = true ' -'CBTagAss +'TbxISoftcore ' -Me.CBTagAss.AutoSize = true -Me.CBTagAss.Enabled = false -Me.CBTagAss.ForeColor = System.Drawing.Color.Black -Me.CBTagAss.Location = New System.Drawing.Point(484, 97) -Me.CBTagAss.Name = "CBTagAss" -Me.CBTagAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagAss.TabIndex = 195 -Me.CBTagAss.Text = "Ass" -Me.CBTagAss.UseVisualStyleBackColor = true +Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray +Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black +Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) +Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.Name = "TbxISoftcore" +Me.TbxISoftcore.ReadOnly = true +Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.TabIndex = 6 +Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore ' -'CBTagPussy +'CBButtSubDir ' -Me.CBTagPussy.AutoSize = true -Me.CBTagPussy.Enabled = false -Me.CBTagPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) -Me.CBTagPussy.Name = "CBTagPussy" -Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagPussy.TabIndex = 194 -Me.CBTagPussy.Text = "Pussy" -Me.CBTagPussy.UseVisualStyleBackColor = true +Me.CBButtSubDir.AutoSize = true +Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir +Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black +Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) +Me.CBButtSubDir.Name = "CBButtSubDir" +Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) +Me.CBButtSubDir.TabIndex = 51 +Me.CBButtSubDir.UseVisualStyleBackColor = true ' -'BTNTagSave +'CBISoftcoreSD ' -Me.BTNTagSave.Enabled = false -Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNTagSave.Name = "BTNTagSave" -Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNTagSave.TabIndex = 193 -Me.BTNTagSave.Text = "Finished" -Me.BTNTagSave.UseVisualStyleBackColor = true +Me.CBISoftcoreSD.AutoSize = true +Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD +Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) +Me.CBISoftcoreSD.Name = "CBISoftcoreSD" +Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBISoftcoreSD.TabIndex = 7 +Me.CBISoftcoreSD.UseVisualStyleBackColor = true ' -'BTNTagDir +'CBBoobSubDir ' -Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNTagDir.Name = "BTNTagDir" -Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNTagDir.TabIndex = 192 -Me.BTNTagDir.Text = "1" -Me.BTNTagDir.UseVisualStyleBackColor = true +Me.CBBoobSubDir.AutoSize = true +Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir +Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black +Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) +Me.CBBoobSubDir.Name = "CBBoobSubDir" +Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) +Me.CBBoobSubDir.TabIndex = 47 +Me.CBBoobSubDir.UseVisualStyleBackColor = true ' -'ImageTagPictureBox +'CBILezdomSD ' -Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black -Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) -Me.ImageTagPictureBox.Name = "ImageTagPictureBox" -Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) -Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.ImageTagPictureBox.TabIndex = 191 -Me.ImageTagPictureBox.TabStop = false +Me.CBILezdomSD.AutoSize = true +Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD +Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black +Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) +Me.CBILezdomSD.Name = "CBILezdomSD" +Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBILezdomSD.TabIndex = 23 +Me.CBILezdomSD.UseVisualStyleBackColor = true ' -'CBTagFace +'CBIGeneralSD ' -Me.CBTagFace.AutoSize = true -Me.CBTagFace.Enabled = false -Me.CBTagFace.ForeColor = System.Drawing.Color.Black -Me.CBTagFace.Location = New System.Drawing.Point(484, 37) -Me.CBTagFace.Name = "CBTagFace" -Me.CBTagFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagFace.TabIndex = 190 -Me.CBTagFace.Text = "Face" -Me.CBTagFace.UseVisualStyleBackColor = true +Me.CBIGeneralSD.AutoSize = true +Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD +Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black +Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) +Me.CBIGeneralSD.Name = "CBIGeneralSD" +Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) +Me.CBIGeneralSD.TabIndex = 43 +Me.CBIGeneralSD.UseVisualStyleBackColor = true ' -'TabPage35 +'CBILesbianSD ' -Me.TabPage35.BackColor = System.Drawing.Color.LightGray -Me.TabPage35.Controls.Add(Me.GroupBox55) -Me.TabPage35.Controls.Add(Me.GroupBox53) -Me.TabPage35.Controls.Add(Me.GroupBox49) -Me.TabPage35.Controls.Add(Me.GroupBox46) -Me.TabPage35.Controls.Add(Me.GroupBox54) -Me.TabPage35.Controls.Add(Me.GroupBox51) -Me.TabPage35.Controls.Add(Me.GroupBox50) -Me.TabPage35.Controls.Add(Me.GroupBox48) -Me.TabPage35.Controls.Add(Me.TBLocalTagDir) -Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) -Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) -Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) -Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) -Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) -Me.TabPage35.Location = New System.Drawing.Point(4, 22) -Me.TabPage35.Name = "TabPage35" -Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage35.Size = New System.Drawing.Size(700, 411) -Me.TabPage35.TabIndex = 1 -Me.TabPage35.Text = "Local Tags" +Me.CBILesbianSD.AutoSize = true +Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD +Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black +Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) +Me.CBILesbianSD.Name = "CBILesbianSD" +Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) +Me.CBILesbianSD.TabIndex = 11 +Me.CBILesbianSD.UseVisualStyleBackColor = true ' -'GroupBox55 +'CBICaptionsSD ' -Me.GroupBox55.Controls.Add(Me.CBTagNurse) -Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) -Me.GroupBox55.Controls.Add(Me.CBTagMaid) -Me.GroupBox55.Controls.Add(Me.CBTagTeacher) -Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) -Me.GroupBox55.Location = New System.Drawing.Point(341, 277) -Me.GroupBox55.Name = "GroupBox55" -Me.GroupBox55.Size = New System.Drawing.Size(103, 118) -Me.GroupBox55.TabIndex = 241 -Me.GroupBox55.TabStop = false -Me.GroupBox55.Text = "Outfit" +Me.CBICaptionsSD.AutoSize = true +Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD +Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black +Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) +Me.CBICaptionsSD.Name = "CBICaptionsSD" +Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) +Me.CBICaptionsSD.TabIndex = 39 +Me.CBICaptionsSD.UseVisualStyleBackColor = true ' -'CBTagNurse +'CBILesbian ' -Me.CBTagNurse.AutoSize = true -Me.CBTagNurse.Enabled = false -Me.CBTagNurse.ForeColor = System.Drawing.Color.Black -Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) -Me.CBTagNurse.Name = "CBTagNurse" -Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) -Me.CBTagNurse.TabIndex = 203 -Me.CBTagNurse.Text = "Nurse" -Me.CBTagNurse.UseVisualStyleBackColor = true +Me.CBILesbian.AutoSize = true +Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian +Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbian.ForeColor = System.Drawing.Color.Black +Me.CBILesbian.Location = New System.Drawing.Point(3, 61) +Me.CBILesbian.Name = "CBILesbian" +Me.CBILesbian.Size = New System.Drawing.Size(70, 23) +Me.CBILesbian.TabIndex = 8 +Me.CBILesbian.Text = "Lesbian" +Me.CBILesbian.UseVisualStyleBackColor = true ' -'CBTagSchoolgirl +'CBIMaledomSD ' -Me.CBTagSchoolgirl.AutoSize = true -Me.CBTagSchoolgirl.Enabled = false -Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) -Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" -Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) -Me.CBTagSchoolgirl.TabIndex = 204 -Me.CBTagSchoolgirl.Text = "Schoolgirl" -Me.CBTagSchoolgirl.UseVisualStyleBackColor = true +Me.CBIMaledomSD.AutoSize = true +Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD +Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black +Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) +Me.CBIMaledomSD.Name = "CBIMaledomSD" +Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIMaledomSD.TabIndex = 35 +Me.CBIMaledomSD.UseVisualStyleBackColor = true ' -'CBTagMaid +'CBIBlowjob ' -Me.CBTagMaid.AutoSize = true -Me.CBTagMaid.Enabled = false -Me.CBTagMaid.ForeColor = System.Drawing.Color.Black -Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) -Me.CBTagMaid.Name = "CBTagMaid" -Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) -Me.CBTagMaid.TabIndex = 205 -Me.CBTagMaid.Text = "Maid" -Me.CBTagMaid.UseVisualStyleBackColor = true +Me.CBIBlowjob.AutoSize = true +Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob +Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) +Me.CBIBlowjob.Name = "CBIBlowjob" +Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) +Me.CBIBlowjob.TabIndex = 12 +Me.CBIBlowjob.Text = "Blowjob" +Me.CBIBlowjob.UseVisualStyleBackColor = true ' -'CBTagTeacher +'CBIGaySD ' -Me.CBTagTeacher.AutoSize = true -Me.CBTagTeacher.Enabled = false -Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black -Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) -Me.CBTagTeacher.Name = "CBTagTeacher" -Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) -Me.CBTagTeacher.TabIndex = 206 -Me.CBTagTeacher.Text = "Teacher" -Me.CBTagTeacher.UseVisualStyleBackColor = true +Me.CBIGaySD.AutoSize = true +Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD +Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGaySD.ForeColor = System.Drawing.Color.Black +Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) +Me.CBIGaySD.Name = "CBIGaySD" +Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) +Me.CBIGaySD.TabIndex = 31 +Me.CBIGaySD.UseVisualStyleBackColor = true ' -'CBTagSuperhero +'CBIHentaiSD ' -Me.CBTagSuperhero.AutoSize = true -Me.CBTagSuperhero.Enabled = false -Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black -Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) -Me.CBTagSuperhero.Name = "CBTagSuperhero" -Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) -Me.CBTagSuperhero.TabIndex = 213 -Me.CBTagSuperhero.Text = "Superhero" -Me.CBTagSuperhero.UseVisualStyleBackColor = true +Me.CBIHentaiSD.AutoSize = true +Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD +Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black +Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) +Me.CBIHentaiSD.Name = "CBIHentaiSD" +Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHentaiSD.TabIndex = 27 +Me.CBIHentaiSD.UseVisualStyleBackColor = true ' -'GroupBox53 +'CBIBlowjobSD ' -Me.GroupBox53.Controls.Add(Me.CBTagTrap) -Me.GroupBox53.Controls.Add(Me.CBTagTentacles) -Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) -Me.GroupBox53.Controls.Add(Me.CBTagBukkake) -Me.GroupBox53.Controls.Add(Me.CBTagGanguro) -Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) -Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) -Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) -Me.GroupBox53.Controls.Add(Me.CBTagAhegao) -Me.GroupBox53.Controls.Add(Me.CBTagShibari) -Me.GroupBox53.Location = New System.Drawing.Point(450, 277) -Me.GroupBox53.Name = "GroupBox53" -Me.GroupBox53.Size = New System.Drawing.Size(246, 118) -Me.GroupBox53.TabIndex = 240 -Me.GroupBox53.TabStop = false -Me.GroupBox53.Text = "Hentai/JAV Themes" +Me.CBIBlowjobSD.AutoSize = true +Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD +Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) +Me.CBIBlowjobSD.Name = "CBIBlowjobSD" +Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) +Me.CBIBlowjobSD.TabIndex = 15 +Me.CBIBlowjobSD.UseVisualStyleBackColor = true ' -'CBTagTrap +'CBIFemdomSD ' -Me.CBTagTrap.AutoSize = true -Me.CBTagTrap.Enabled = false -Me.CBTagTrap.ForeColor = System.Drawing.Color.Black -Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) -Me.CBTagTrap.Name = "CBTagTrap" -Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) -Me.CBTagTrap.TabIndex = 226 -Me.CBTagTrap.Text = "Trap" -Me.CBTagTrap.UseVisualStyleBackColor = true +Me.CBIFemdomSD.AutoSize = true +Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD +Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black +Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) +Me.CBIFemdomSD.Name = "CBIFemdomSD" +Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIFemdomSD.TabIndex = 19 +Me.CBIFemdomSD.UseVisualStyleBackColor = true ' -'CBTagTentacles +'TbxIButts ' -Me.CBTagTentacles.AutoSize = true -Me.CBTagTentacles.Enabled = false -Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black -Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) -Me.CBTagTentacles.Name = "CBTagTentacles" -Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) -Me.CBTagTentacles.TabIndex = 204 -Me.CBTagTentacles.Text = "Tentacles" -Me.CBTagTentacles.UseVisualStyleBackColor = true +Me.TbxIButts.BackColor = System.Drawing.Color.LightGray +Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIButts.ForeColor = System.Drawing.Color.Black +Me.TbxIButts.Location = New System.Drawing.Point(115, 353) +Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIButts.Name = "TbxIButts" +Me.TbxIButts.ReadOnly = true +Me.TbxIButts.Size = New System.Drawing.Size(217, 17) +Me.TbxIButts.TabIndex = 50 +Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath ' -'CBTagMonsterGirl +'CBIFemdom ' -Me.CBTagMonsterGirl.AutoSize = true -Me.CBTagMonsterGirl.Enabled = false -Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black -Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) -Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" -Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) -Me.CBTagMonsterGirl.TabIndex = 214 -Me.CBTagMonsterGirl.Text = "Monster Girl" -Me.CBTagMonsterGirl.UseVisualStyleBackColor = true +Me.CBIFemdom.AutoSize = true +Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom +Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdom.ForeColor = System.Drawing.Color.Black +Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) +Me.CBIFemdom.Name = "CBIFemdom" +Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) +Me.CBIFemdom.TabIndex = 16 +Me.CBIFemdom.Text = "Femdom" +Me.CBIFemdom.UseVisualStyleBackColor = true ' -'CBTagBukkake +'TbxILesbian ' -Me.CBTagBukkake.AutoSize = true -Me.CBTagBukkake.Enabled = false -Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black -Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) -Me.CBTagBukkake.Name = "CBTagBukkake" -Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) -Me.CBTagBukkake.TabIndex = 210 -Me.CBTagBukkake.Text = "Bukkake" -Me.CBTagBukkake.UseVisualStyleBackColor = true +Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray +Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILesbian.ForeColor = System.Drawing.Color.Black +Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) +Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILesbian.Name = "TbxILesbian" +Me.TbxILesbian.ReadOnly = true +Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) +Me.TbxILesbian.TabIndex = 10 +Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian ' -'CBTagGanguro +'BTNISoftcore ' -Me.CBTagGanguro.AutoSize = true -Me.CBTagGanguro.Enabled = false -Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black -Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) -Me.CBTagGanguro.Name = "CBTagGanguro" -Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) -Me.CBTagGanguro.TabIndex = 205 -Me.CBTagGanguro.Text = "Ganguro" -Me.CBTagGanguro.UseVisualStyleBackColor = true +Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray +Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black +Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) +Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNISoftcore.Name = "BTNISoftcore" +Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) +Me.BTNISoftcore.TabIndex = 5 +Me.BTNISoftcore.Text = "1" +Me.BTNISoftcore.UseVisualStyleBackColor = false ' -'CBTagBodyWriting +'CBILezdom ' -Me.CBTagBodyWriting.AutoSize = true -Me.CBTagBodyWriting.Enabled = false -Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) -Me.CBTagBodyWriting.Name = "CBTagBodyWriting" -Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) -Me.CBTagBodyWriting.TabIndex = 208 -Me.CBTagBodyWriting.Text = "Body Writing" -Me.CBTagBodyWriting.UseVisualStyleBackColor = true +Me.CBILezdom.AutoSize = true +Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom +Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdom.ForeColor = System.Drawing.Color.Black +Me.CBILezdom.Location = New System.Drawing.Point(3, 148) +Me.CBILezdom.Name = "CBILezdom" +Me.CBILezdom.Size = New System.Drawing.Size(70, 23) +Me.CBILezdom.TabIndex = 20 +Me.CBILezdom.Text = "Lezdom" +Me.CBILezdom.UseVisualStyleBackColor = true ' -'CBTagMahouShoujo +'TbxIBoobs ' -Me.CBTagMahouShoujo.AutoSize = true -Me.CBTagMahouShoujo.Enabled = false -Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black -Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) -Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" -Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) -Me.CBTagMahouShoujo.TabIndex = 209 -Me.CBTagMahouShoujo.Text = "Mahou Shoujo" -Me.CBTagMahouShoujo.UseVisualStyleBackColor = true +Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray +Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black +Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) +Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.Name = "TbxIBoobs" +Me.TbxIBoobs.ReadOnly = true +Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.TabIndex = 46 +Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath ' -'CBTagBakunyuu +'CBIHentai ' -Me.CBTagBakunyuu.AutoSize = true -Me.CBTagBakunyuu.Enabled = false -Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black -Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) -Me.CBTagBakunyuu.Name = "CBTagBakunyuu" -Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) -Me.CBTagBakunyuu.TabIndex = 213 -Me.CBTagBakunyuu.Text = "Bakunyuu" -Me.CBTagBakunyuu.UseVisualStyleBackColor = true +Me.CBIHentai.AutoSize = true +Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai +Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentai.ForeColor = System.Drawing.Color.Black +Me.CBIHentai.Location = New System.Drawing.Point(3, 177) +Me.CBIHentai.Name = "CBIHentai" +Me.CBIHentai.Size = New System.Drawing.Size(70, 23) +Me.CBIHentai.TabIndex = 24 +Me.CBIHentai.Text = "Hentai" +Me.CBIHentai.UseVisualStyleBackColor = true ' -'CBTagAhegao +'TbxIBlowjob ' -Me.CBTagAhegao.AutoSize = true -Me.CBTagAhegao.Enabled = false -Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black -Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) -Me.CBTagAhegao.Name = "CBTagAhegao" -Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) -Me.CBTagAhegao.TabIndex = 207 -Me.CBTagAhegao.Text = "Ahegao" -Me.CBTagAhegao.UseVisualStyleBackColor = true +Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black +Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.Name = "TbxIBlowjob" +Me.TbxIBlowjob.ReadOnly = true +Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.TabIndex = 14 +Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob ' -'CBTagShibari +'CBIGay ' -Me.CBTagShibari.AutoSize = true -Me.CBTagShibari.Enabled = false -Me.CBTagShibari.ForeColor = System.Drawing.Color.Black -Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) -Me.CBTagShibari.Name = "CBTagShibari" -Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) -Me.CBTagShibari.TabIndex = 203 -Me.CBTagShibari.Text = "Shibari" -Me.CBTagShibari.UseVisualStyleBackColor = true +Me.CBIGay.AutoSize = true +Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay +Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGay.ForeColor = System.Drawing.Color.Black +Me.CBIGay.Location = New System.Drawing.Point(3, 206) +Me.CBIGay.Name = "CBIGay" +Me.CBIGay.Size = New System.Drawing.Size(70, 23) +Me.CBIGay.TabIndex = 28 +Me.CBIGay.Text = "Gay" +Me.CBIGay.UseVisualStyleBackColor = true ' -'GroupBox49 +'TbxIGeneral ' -Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) -Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) -Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) -Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) -Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) -Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) -Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) -Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) -Me.GroupBox49.Location = New System.Drawing.Point(341, 37) -Me.GroupBox49.Name = "GroupBox49" -Me.GroupBox49.Size = New System.Drawing.Size(103, 238) -Me.GroupBox49.TabIndex = 236 -Me.GroupBox49.TabStop = false -Me.GroupBox49.Text = "Body Part" +Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray +Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black +Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) +Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.Name = "TbxIGeneral" +Me.TbxIGeneral.ReadOnly = true +Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.TabIndex = 42 +Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral ' -'CBTagBodyMouth +'CBIMaledom ' -Me.CBTagBodyMouth.AutoSize = true -Me.CBTagBodyMouth.Enabled = false -Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) -Me.CBTagBodyMouth.Name = "CBTagBodyMouth" -Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) -Me.CBTagBodyMouth.TabIndex = 220 -Me.CBTagBodyMouth.Text = "Mouth" -Me.CBTagBodyMouth.UseVisualStyleBackColor = true +Me.CBIMaledom.AutoSize = true +Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom +Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledom.ForeColor = System.Drawing.Color.Black +Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) +Me.CBIMaledom.Name = "CBIMaledom" +Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) +Me.CBIMaledom.TabIndex = 32 +Me.CBIMaledom.Text = "Maledom" +Me.CBIMaledom.UseVisualStyleBackColor = true ' -'CBTagBodyAss +'TbxIFemdom ' -Me.CBTagBodyAss.AutoSize = true -Me.CBTagBodyAss.Enabled = false -Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) -Me.CBTagBodyAss.Name = "CBTagBodyAss" -Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyAss.TabIndex = 219 -Me.CBTagBodyAss.Text = "Ass" -Me.CBTagBodyAss.UseVisualStyleBackColor = true +Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray +Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black +Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) +Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.Name = "TbxIFemdom" +Me.TbxIFemdom.ReadOnly = true +Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.TabIndex = 18 +Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom ' -'CBTagBodyFace +'BTNILesbian ' -Me.CBTagBodyFace.AutoSize = true -Me.CBTagBodyFace.Enabled = false -Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) -Me.CBTagBodyFace.Name = "CBTagBodyFace" -Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagBodyFace.TabIndex = 203 -Me.CBTagBodyFace.Text = "Face" -Me.CBTagBodyFace.UseVisualStyleBackColor = true +Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILesbian.ForeColor = System.Drawing.Color.Black +Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) +Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILesbian.Name = "BTNILesbian" +Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNILesbian.TabIndex = 9 +Me.BTNILesbian.Text = "1" +Me.BTNILesbian.UseVisualStyleBackColor = false ' -'CBTagBodyLegs +'TbxICaptions ' -Me.CBTagBodyLegs.AutoSize = true -Me.CBTagBodyLegs.Enabled = false -Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) -Me.CBTagBodyLegs.Name = "CBTagBodyLegs" -Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagBodyLegs.TabIndex = 218 -Me.CBTagBodyLegs.Text = "Legs" -Me.CBTagBodyLegs.UseVisualStyleBackColor = true +Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray +Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxICaptions.ForeColor = System.Drawing.Color.Black +Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) +Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxICaptions.Name = "TbxICaptions" +Me.TbxICaptions.ReadOnly = true +Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) +Me.TbxICaptions.TabIndex = 38 +Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions ' -'CBTagBodyBalls +'CBICaptions ' -Me.CBTagBodyBalls.AutoSize = true -Me.CBTagBodyBalls.Enabled = false -Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) -Me.CBTagBodyBalls.Name = "CBTagBodyBalls" -Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) -Me.CBTagBodyBalls.TabIndex = 217 -Me.CBTagBodyBalls.Text = "Balls" -Me.CBTagBodyBalls.UseVisualStyleBackColor = true +Me.CBICaptions.AutoSize = true +Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions +Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptions.ForeColor = System.Drawing.Color.Black +Me.CBICaptions.Location = New System.Drawing.Point(3, 264) +Me.CBICaptions.Name = "CBICaptions" +Me.CBICaptions.Size = New System.Drawing.Size(70, 23) +Me.CBICaptions.TabIndex = 36 +Me.CBICaptions.Text = "Captions" +Me.CBICaptions.UseVisualStyleBackColor = true ' -'CBTagBodyCock +'TbxILezdom ' -Me.CBTagBodyCock.AutoSize = true -Me.CBTagBodyCock.Enabled = false -Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) -Me.CBTagBodyCock.Name = "CBTagBodyCock" -Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) -Me.CBTagBodyCock.TabIndex = 216 -Me.CBTagBodyCock.Text = "Cock" -Me.CBTagBodyCock.UseVisualStyleBackColor = true +Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray +Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILezdom.ForeColor = System.Drawing.Color.Black +Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) +Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILezdom.Name = "TbxILezdom" +Me.TbxILezdom.ReadOnly = true +Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) +Me.TbxILezdom.TabIndex = 22 +Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom ' -'CBTagBodyFeet +'TbxIMaledom ' -Me.CBTagBodyFeet.AutoSize = true -Me.CBTagBodyFeet.Enabled = false -Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) -Me.CBTagBodyFeet.Name = "CBTagBodyFeet" -Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagBodyFeet.TabIndex = 215 -Me.CBTagBodyFeet.Text = "Feet" -Me.CBTagBodyFeet.UseVisualStyleBackColor = true +Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray +Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black +Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) +Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.Name = "TbxIMaledom" +Me.TbxIMaledom.ReadOnly = true +Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.TabIndex = 34 +Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +' +'BTNButtPath +' +Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray +Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNButtPath.ForeColor = System.Drawing.Color.Black +Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) +Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNButtPath.Name = "BTNButtPath" +Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) +Me.BTNButtPath.TabIndex = 49 +Me.BTNButtPath.Text = "1" +Me.BTNButtPath.UseVisualStyleBackColor = false ' -'CBTagBodyNipples +'TbxIHentai ' -Me.CBTagBodyNipples.AutoSize = true -Me.CBTagBodyNipples.Enabled = false -Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) -Me.CBTagBodyNipples.Name = "CBTagBodyNipples" -Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) -Me.CBTagBodyNipples.TabIndex = 207 -Me.CBTagBodyNipples.Text = "Nipples" -Me.CBTagBodyNipples.UseVisualStyleBackColor = true +Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray +Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHentai.ForeColor = System.Drawing.Color.Black +Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) +Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHentai.Name = "TbxIHentai" +Me.TbxIHentai.ReadOnly = true +Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) +Me.TbxIHentai.TabIndex = 26 +Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai ' -'CBTagBodyPussy +'CBIGeneral ' -Me.CBTagBodyPussy.AutoSize = true -Me.CBTagBodyPussy.Enabled = false -Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) -Me.CBTagBodyPussy.Name = "CBTagBodyPussy" -Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagBodyPussy.TabIndex = 209 -Me.CBTagBodyPussy.Text = "Pussy" -Me.CBTagBodyPussy.UseVisualStyleBackColor = true +Me.CBIGeneral.AutoSize = true +Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral +Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneral.ForeColor = System.Drawing.Color.Black +Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) +Me.CBIGeneral.Name = "CBIGeneral" +Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) +Me.CBIGeneral.TabIndex = 40 +Me.CBIGeneral.Text = "General" +Me.CBIGeneral.UseVisualStyleBackColor = true ' -'CBTagBodyTits +'TbxIGay ' -Me.CBTagBodyTits.AutoSize = true -Me.CBTagBodyTits.Enabled = false -Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) -Me.CBTagBodyTits.Name = "CBTagBodyTits" -Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyTits.TabIndex = 213 -Me.CBTagBodyTits.Text = "Tits" -Me.CBTagBodyTits.UseVisualStyleBackColor = true +Me.TbxIGay.BackColor = System.Drawing.Color.LightGray +Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGay.ForeColor = System.Drawing.Color.Black +Me.TbxIGay.Location = New System.Drawing.Point(115, 208) +Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGay.Name = "TbxIGay" +Me.TbxIGay.ReadOnly = true +Me.TbxIGay.Size = New System.Drawing.Size(217, 17) +Me.TbxIGay.TabIndex = 30 +Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay ' -'CBTagBodyFingers +'CBIBoobs ' -Me.CBTagBodyFingers.AutoSize = true -Me.CBTagBodyFingers.Enabled = false -Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) -Me.CBTagBodyFingers.Name = "CBTagBodyFingers" -Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) -Me.CBTagBodyFingers.TabIndex = 210 -Me.CBTagBodyFingers.Text = "Fingers" -Me.CBTagBodyFingers.UseVisualStyleBackColor = true +Me.CBIBoobs.AutoSize = true +Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs +Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBoobs.ForeColor = System.Drawing.Color.Black +Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) +Me.CBIBoobs.Name = "CBIBoobs" +Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) +Me.CBIBoobs.TabIndex = 44 +Me.CBIBoobs.Text = "Boobs" +Me.CBIBoobs.UseVisualStyleBackColor = true ' -'GroupBox46 +'CBIButts ' -Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) -Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) -Me.GroupBox46.Controls.Add(Me.CBTagFemdom) -Me.GroupBox46.Controls.Add(Me.CBTag2M) -Me.GroupBox46.Controls.Add(Me.CBTagFutadom) -Me.GroupBox46.Controls.Add(Me.CBTagFemsub) -Me.GroupBox46.Controls.Add(Me.CBTag2Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMaledom) -Me.GroupBox46.Controls.Add(Me.CBTag3M) -Me.GroupBox46.Controls.Add(Me.CBTagFutasub) -Me.GroupBox46.Controls.Add(Me.CBTag3Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMalesub) -Me.GroupBox46.Controls.Add(Me.CBTag2F) -Me.GroupBox46.Controls.Add(Me.CBTag1Futa) -Me.GroupBox46.Controls.Add(Me.CBTag1M) -Me.GroupBox46.Controls.Add(Me.CBTag1F) -Me.GroupBox46.Controls.Add(Me.CBTag3F) -Me.GroupBox46.Location = New System.Drawing.Point(230, 37) -Me.GroupBox46.Name = "GroupBox46" -Me.GroupBox46.Size = New System.Drawing.Size(105, 358) -Me.GroupBox46.TabIndex = 234 -Me.GroupBox46.TabStop = false -Me.GroupBox46.Text = "Genders && Roles" +Me.CBIButts.AutoSize = true +Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts +Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIButts.ForeColor = System.Drawing.Color.Black +Me.CBIButts.Location = New System.Drawing.Point(3, 351) +Me.CBIButts.Name = "CBIButts" +Me.CBIButts.Size = New System.Drawing.Size(70, 27) +Me.CBIButts.TabIndex = 48 +Me.CBIButts.Text = "Butts" +Me.CBIButts.UseVisualStyleBackColor = true ' -'CBTagMultiSub +'BTNIBlowjob ' -Me.CBTagMultiSub.AutoSize = true -Me.CBTagMultiSub.Enabled = false -Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) -Me.CBTagMultiSub.Name = "CBTagMultiSub" -Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) -Me.CBTagMultiSub.TabIndex = 207 -Me.CBTagMultiSub.Text = "Multi-Sub" -Me.CBTagMultiSub.UseVisualStyleBackColor = true +Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIBlowjob.Name = "BTNIBlowjob" +Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNIBlowjob.TabIndex = 13 +Me.BTNIBlowjob.Text = "1" +Me.BTNIBlowjob.UseVisualStyleBackColor = false ' -'CBTagMultiDom +'BTNIFemdom ' -Me.CBTagMultiDom.AutoSize = true -Me.CBTagMultiDom.Enabled = false -Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) -Me.CBTagMultiDom.Name = "CBTagMultiDom" -Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) -Me.CBTagMultiDom.TabIndex = 230 -Me.CBTagMultiDom.Text = "Multi-Dom" -Me.CBTagMultiDom.UseVisualStyleBackColor = true +Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray +Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black +Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) +Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIFemdom.Name = "BTNIFemdom" +Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) +Me.BTNIFemdom.TabIndex = 17 +Me.BTNIFemdom.Text = "1" +Me.BTNIFemdom.UseVisualStyleBackColor = false ' -'CBTagFemdom +'BTNBoobPath ' -Me.CBTagFemdom.AutoSize = true -Me.CBTagFemdom.Enabled = false -Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black -Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) -Me.CBTagFemdom.Name = "CBTagFemdom" -Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBTagFemdom.TabIndex = 229 -Me.CBTagFemdom.Text = "Femdom" -Me.CBTagFemdom.UseVisualStyleBackColor = true +Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray +Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black +Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) +Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNBoobPath.Name = "BTNBoobPath" +Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) +Me.BTNBoobPath.TabIndex = 45 +Me.BTNBoobPath.Text = "1" +Me.BTNBoobPath.UseVisualStyleBackColor = false ' -'CBTag2M +'BTNILezdom ' -Me.CBTag2M.AutoSize = true -Me.CBTag2M.Enabled = false -Me.CBTag2M.ForeColor = System.Drawing.Color.Black -Me.CBTag2M.Location = New System.Drawing.Point(15, 97) -Me.CBTag2M.Name = "CBTag2M" -Me.CBTag2M.Size = New System.Drawing.Size(56, 17) -Me.CBTag2M.TabIndex = 206 -Me.CBTag2M.Text = "2 Men" -Me.CBTag2M.UseVisualStyleBackColor = true +Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray +Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILezdom.ForeColor = System.Drawing.Color.Black +Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) +Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILezdom.Name = "BTNILezdom" +Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) +Me.BTNILezdom.TabIndex = 21 +Me.BTNILezdom.Text = "1" +Me.BTNILezdom.UseVisualStyleBackColor = false ' -'CBTagFutadom +'BTNIHentai ' -Me.CBTagFutadom.AutoSize = true -Me.CBTagFutadom.Enabled = false -Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black -Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) -Me.CBTagFutadom.Name = "CBTagFutadom" -Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) -Me.CBTagFutadom.TabIndex = 204 -Me.CBTagFutadom.Text = "Futadom" -Me.CBTagFutadom.UseVisualStyleBackColor = true +Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray +Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHentai.ForeColor = System.Drawing.Color.Black +Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) +Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHentai.Name = "BTNIHentai" +Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) +Me.BTNIHentai.TabIndex = 25 +Me.BTNIHentai.Text = "1" +Me.BTNIHentai.UseVisualStyleBackColor = false ' -'CBTagFemsub +'BTNIGay ' -Me.CBTagFemsub.AutoSize = true -Me.CBTagFemsub.Enabled = false -Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black -Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) -Me.CBTagFemsub.Name = "CBTagFemsub" -Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBTagFemsub.TabIndex = 205 -Me.CBTagFemsub.Text = "Femsub" -Me.CBTagFemsub.UseVisualStyleBackColor = true +Me.BTNIGay.BackColor = System.Drawing.Color.LightGray +Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGay.ForeColor = System.Drawing.Color.Black +Me.BTNIGay.Location = New System.Drawing.Point(76, 203) +Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGay.Name = "BTNIGay" +Me.BTNIGay.Size = New System.Drawing.Size(34, 28) +Me.BTNIGay.TabIndex = 29 +Me.BTNIGay.Text = "1" +Me.BTNIGay.UseVisualStyleBackColor = false ' -'CBTag2Futa +'BTNIMaledom ' -Me.CBTag2Futa.AutoSize = true -Me.CBTag2Futa.Enabled = false -Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) -Me.CBTag2Futa.Name = "CBTag2Futa" -Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag2Futa.TabIndex = 186 -Me.CBTag2Futa.Text = "2 Futa" -Me.CBTag2Futa.UseVisualStyleBackColor = true +Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray +Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black +Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) +Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIMaledom.Name = "BTNIMaledom" +Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) +Me.BTNIMaledom.TabIndex = 33 +Me.BTNIMaledom.Text = "1" +Me.BTNIMaledom.UseVisualStyleBackColor = false ' -'CBTagMaledom +'BTNICaptions ' -Me.CBTagMaledom.AutoSize = true -Me.CBTagMaledom.Enabled = false -Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black -Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) -Me.CBTagMaledom.Name = "CBTagMaledom" -Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) -Me.CBTagMaledom.TabIndex = 206 -Me.CBTagMaledom.Text = "Maledom" -Me.CBTagMaledom.UseVisualStyleBackColor = true +Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray +Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNICaptions.ForeColor = System.Drawing.Color.Black +Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) +Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNICaptions.Name = "BTNICaptions" +Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) +Me.BTNICaptions.TabIndex = 37 +Me.BTNICaptions.Text = "1" +Me.BTNICaptions.UseVisualStyleBackColor = false ' -'CBTag3M +'BTNIGeneral ' -Me.CBTag3M.AutoSize = true -Me.CBTag3M.Enabled = false -Me.CBTag3M.ForeColor = System.Drawing.Color.Black -Me.CBTag3M.Location = New System.Drawing.Point(15, 117) -Me.CBTag3M.Name = "CBTag3M" -Me.CBTag3M.Size = New System.Drawing.Size(56, 17) -Me.CBTag3M.TabIndex = 190 -Me.CBTag3M.Text = "3 Men" -Me.CBTag3M.UseVisualStyleBackColor = true +Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) +Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGeneral.Name = "BTNIGeneral" +Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNIGeneral.TabIndex = 41 +Me.BTNIGeneral.Text = "1" +Me.BTNIGeneral.UseVisualStyleBackColor = false ' -'CBTagFutasub +'TabPage33 ' -Me.CBTagFutasub.AutoSize = true -Me.CBTagFutasub.Enabled = false -Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black -Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) -Me.CBTagFutasub.Name = "CBTagFutasub" -Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) -Me.CBTagFutasub.TabIndex = 213 -Me.CBTagFutasub.Text = "Futasub" -Me.CBTagFutasub.UseVisualStyleBackColor = true +Me.TabPage33.BackColor = System.Drawing.Color.Silver +Me.TabPage33.Controls.Add(Me.TabControl5) +Me.TabPage33.Location = New System.Drawing.Point(4, 22) +Me.TabPage33.Name = "TabPage33" +Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage33.Size = New System.Drawing.Size(720, 448) +Me.TabPage33.TabIndex = 21 +Me.TabPage33.Text = "Tagging" ' -'CBTag3Futa +'TabControl5 ' -Me.CBTag3Futa.AutoSize = true -Me.CBTag3Futa.Enabled = false -Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) -Me.CBTag3Futa.Name = "CBTag3Futa" -Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag3Futa.TabIndex = 197 -Me.CBTag3Futa.Text = "3 Futa" -Me.CBTag3Futa.UseVisualStyleBackColor = true +Me.TabControl5.Controls.Add(Me.TabPage34) +Me.TabControl5.Controls.Add(Me.TabPage35) +Me.TabControl5.Location = New System.Drawing.Point(6, 6) +Me.TabControl5.Name = "TabControl5" +Me.TabControl5.SelectedIndex = 0 +Me.TabControl5.Size = New System.Drawing.Size(708, 437) +Me.TabControl5.TabIndex = 0 ' -'CBTagMalesub +'TabPage34 ' -Me.CBTagMalesub.AutoSize = true -Me.CBTagMalesub.Enabled = false -Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black -Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) -Me.CBTagMalesub.Name = "CBTagMalesub" -Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) -Me.CBTagMalesub.TabIndex = 210 -Me.CBTagMalesub.Text = "Malesub" -Me.CBTagMalesub.UseVisualStyleBackColor = true +Me.TabPage34.BackColor = System.Drawing.Color.LightGray +Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) +Me.TabPage34.Controls.Add(Me.CBTagAllFours) +Me.TabPage34.Controls.Add(Me.CBTagGlaring) +Me.TabPage34.Controls.Add(Me.CBTagSmiling) +Me.TabPage34.Controls.Add(Me.TBTagDir) +Me.TabPage34.Controls.Add(Me.CBTagPiercing) +Me.TabPage34.Controls.Add(Me.CBTagLegs) +Me.TabPage34.Controls.Add(Me.TBTagFurniture) +Me.TabPage34.Controls.Add(Me.CBTagFurniture) +Me.TabPage34.Controls.Add(Me.TBTagSexToy) +Me.TabPage34.Controls.Add(Me.CBTagSexToy) +Me.TabPage34.Controls.Add(Me.TBTagTattoo) +Me.TabPage34.Controls.Add(Me.CBTagTattoo) +Me.TabPage34.Controls.Add(Me.TBTagUnderwear) +Me.TabPage34.Controls.Add(Me.CBTagUnderwear) +Me.TabPage34.Controls.Add(Me.TBTagGarment) +Me.TabPage34.Controls.Add(Me.CBTagGarment) +Me.TabPage34.Controls.Add(Me.Label72) +Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) +Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) +Me.TabPage34.Controls.Add(Me.CBTagCloseUp) +Me.TabPage34.Controls.Add(Me.CBTagNaked) +Me.TabPage34.Controls.Add(Me.CBTagSideView) +Me.TabPage34.Controls.Add(Me.BTNTagPrevious) +Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) +Me.TabPage34.Controls.Add(Me.BTNTagNext) +Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) +Me.TabPage34.Controls.Add(Me.LBLTagCount) +Me.TabPage34.Controls.Add(Me.CBTagSucking) +Me.TabPage34.Controls.Add(Me.CBTagMasturbating) +Me.TabPage34.Controls.Add(Me.CBTagFeet) +Me.TabPage34.Controls.Add(Me.CBTagBoobs) +Me.TabPage34.Controls.Add(Me.CBTagAss) +Me.TabPage34.Controls.Add(Me.CBTagPussy) +Me.TabPage34.Controls.Add(Me.BTNTagSave) +Me.TabPage34.Controls.Add(Me.BTNTagDir) +Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) +Me.TabPage34.Controls.Add(Me.CBTagFace) +Me.TabPage34.Location = New System.Drawing.Point(4, 22) +Me.TabPage34.Name = "TabPage34" +Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage34.Size = New System.Drawing.Size(700, 411) +Me.TabPage34.TabIndex = 0 +Me.TabPage34.Text = "Domme Tags" ' -'CBTag2F +'CBTagSeeThrough ' -Me.CBTag2F.AutoSize = true -Me.CBTag2F.Enabled = false -Me.CBTag2F.ForeColor = System.Drawing.Color.Black -Me.CBTag2F.Location = New System.Drawing.Point(15, 37) -Me.CBTag2F.Name = "CBTag2F" -Me.CBTag2F.Size = New System.Drawing.Size(72, 17) -Me.CBTag2F.TabIndex = 188 -Me.CBTag2F.Text = "2 Women" -Me.CBTag2F.UseVisualStyleBackColor = true +Me.CBTagSeeThrough.AutoSize = true +Me.CBTagSeeThrough.Enabled = false +Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) +Me.CBTagSeeThrough.Name = "CBTagSeeThrough" +Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) +Me.CBTagSeeThrough.TabIndex = 226 +Me.CBTagSeeThrough.Text = "See Through" +Me.CBTagSeeThrough.UseVisualStyleBackColor = true ' -'CBTag1Futa +'CBTagAllFours ' -Me.CBTag1Futa.AutoSize = true -Me.CBTag1Futa.Enabled = false -Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) -Me.CBTag1Futa.Name = "CBTag1Futa" -Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag1Futa.TabIndex = 191 -Me.CBTag1Futa.Text = "1 Futa" -Me.CBTag1Futa.UseVisualStyleBackColor = true +Me.CBTagAllFours.AutoSize = true +Me.CBTagAllFours.Enabled = false +Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black +Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) +Me.CBTagAllFours.Name = "CBTagAllFours" +Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) +Me.CBTagAllFours.TabIndex = 225 +Me.CBTagAllFours.Text = "All Fours" +Me.CBTagAllFours.UseVisualStyleBackColor = true ' -'CBTag1M +'CBTagGlaring ' -Me.CBTag1M.AutoSize = true -Me.CBTag1M.Enabled = false -Me.CBTag1M.ForeColor = System.Drawing.Color.Black -Me.CBTag1M.Location = New System.Drawing.Point(15, 77) -Me.CBTag1M.Name = "CBTag1M" -Me.CBTag1M.Size = New System.Drawing.Size(56, 17) -Me.CBTag1M.TabIndex = 189 -Me.CBTag1M.Text = "1 Man" -Me.CBTag1M.UseVisualStyleBackColor = true +Me.CBTagGlaring.AutoSize = true +Me.CBTagGlaring.Enabled = false +Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black +Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) +Me.CBTagGlaring.Name = "CBTagGlaring" +Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) +Me.CBTagGlaring.TabIndex = 224 +Me.CBTagGlaring.Text = "Glaring" +Me.CBTagGlaring.UseVisualStyleBackColor = true ' -'CBTag1F +'CBTagSmiling ' -Me.CBTag1F.AutoSize = true -Me.CBTag1F.Enabled = false -Me.CBTag1F.ForeColor = System.Drawing.Color.Black -Me.CBTag1F.Location = New System.Drawing.Point(15, 17) -Me.CBTag1F.Name = "CBTag1F" -Me.CBTag1F.Size = New System.Drawing.Size(72, 17) -Me.CBTag1F.TabIndex = 185 -Me.CBTag1F.Text = "1 Woman" -Me.CBTag1F.UseVisualStyleBackColor = true +Me.CBTagSmiling.AutoSize = true +Me.CBTagSmiling.Enabled = false +Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black +Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) +Me.CBTagSmiling.Name = "CBTagSmiling" +Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) +Me.CBTagSmiling.TabIndex = 223 +Me.CBTagSmiling.Text = "Smiling" +Me.CBTagSmiling.UseVisualStyleBackColor = true ' -'CBTag3F +'TBTagDir ' -Me.CBTag3F.AutoSize = true -Me.CBTag3F.Enabled = false -Me.CBTag3F.ForeColor = System.Drawing.Color.Black -Me.CBTag3F.Location = New System.Drawing.Point(15, 57) -Me.CBTag3F.Name = "CBTag3F" -Me.CBTag3F.Size = New System.Drawing.Size(72, 17) -Me.CBTag3F.TabIndex = 192 -Me.CBTag3F.Text = "3 Women" -Me.CBTag3F.UseVisualStyleBackColor = true +Me.TBTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBTagDir.Name = "TBTagDir" +Me.TBTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBTagDir.TabIndex = 222 +Me.TBTagDir.Text = "Enter Image Directory" ' -'GroupBox54 +'CBTagPiercing ' -Me.GroupBox54.Controls.Add(Me.CBTagTattoos) -Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) -Me.GroupBox54.Controls.Add(Me.CBTagDomme) -Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) -Me.GroupBox54.Controls.Add(Me.CBTagWatersports) -Me.GroupBox54.Controls.Add(Me.CBTagStockings) -Me.GroupBox54.Controls.Add(Me.CBTagCumshot) -Me.GroupBox54.Controls.Add(Me.CBTagCumEating) -Me.GroupBox54.Controls.Add(Me.CBTagVibrator) -Me.GroupBox54.Controls.Add(Me.CBTagDildo) -Me.GroupBox54.Controls.Add(Me.CBTagKissing) -Me.GroupBox54.Location = New System.Drawing.Point(561, 37) -Me.GroupBox54.Name = "GroupBox54" -Me.GroupBox54.Size = New System.Drawing.Size(135, 238) -Me.GroupBox54.TabIndex = 239 -Me.GroupBox54.TabStop = false -Me.GroupBox54.Text = "Misc" +Me.CBTagPiercing.AutoSize = true +Me.CBTagPiercing.Enabled = false +Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black +Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) +Me.CBTagPiercing.Name = "CBTagPiercing" +Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) +Me.CBTagPiercing.TabIndex = 221 +Me.CBTagPiercing.Text = "Piercing" +Me.CBTagPiercing.UseVisualStyleBackColor = true ' -'CBTagTattoos +'CBTagLegs ' -Me.CBTagTattoos.AutoSize = true -Me.CBTagTattoos.Enabled = false -Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) -Me.CBTagTattoos.Name = "CBTagTattoos" -Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBTagTattoos.TabIndex = 214 -Me.CBTagTattoos.Text = "Tattoos" -Me.CBTagTattoos.UseVisualStyleBackColor = true +Me.CBTagLegs.AutoSize = true +Me.CBTagLegs.Enabled = false +Me.CBTagLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) +Me.CBTagLegs.Name = "CBTagLegs" +Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagLegs.TabIndex = 220 +Me.CBTagLegs.Text = "Legs" +Me.CBTagLegs.UseVisualStyleBackColor = true ' -'CBTagAnalToy +'TBTagFurniture ' -Me.CBTagAnalToy.AutoSize = true -Me.CBTagAnalToy.Enabled = false -Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) -Me.CBTagAnalToy.Name = "CBTagAnalToy" -Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalToy.TabIndex = 215 -Me.CBTagAnalToy.Text = "Anal Toy" -Me.CBTagAnalToy.UseVisualStyleBackColor = true +Me.TBTagFurniture.Enabled = false +Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) +Me.TBTagFurniture.Name = "TBTagFurniture" +Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) +Me.TBTagFurniture.TabIndex = 219 ' -'CBTagDomme +'CBTagFurniture ' -Me.CBTagDomme.AutoSize = true -Me.CBTagDomme.Enabled = false -Me.CBTagDomme.ForeColor = System.Drawing.Color.Black -Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) -Me.CBTagDomme.Name = "CBTagDomme" -Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) -Me.CBTagDomme.TabIndex = 219 -Me.CBTagDomme.Text = "Tease A.I. Domme" -Me.CBTagDomme.UseVisualStyleBackColor = true +Me.CBTagFurniture.AutoSize = true +Me.CBTagFurniture.Enabled = false +Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black +Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) +Me.CBTagFurniture.Name = "CBTagFurniture" +Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) +Me.CBTagFurniture.TabIndex = 218 +Me.CBTagFurniture.Text = "Furniture" +Me.CBTagFurniture.UseVisualStyleBackColor = true ' -'CBTagPocketPussy +'TBTagSexToy ' -Me.CBTagPocketPussy.AutoSize = true -Me.CBTagPocketPussy.Enabled = false -Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) -Me.CBTagPocketPussy.Name = "CBTagPocketPussy" -Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) -Me.CBTagPocketPussy.TabIndex = 205 -Me.CBTagPocketPussy.Text = "Pocket Pussy" -Me.CBTagPocketPussy.UseVisualStyleBackColor = true +Me.TBTagSexToy.Enabled = false +Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) +Me.TBTagSexToy.Name = "TBTagSexToy" +Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) +Me.TBTagSexToy.TabIndex = 217 ' -'CBTagWatersports +'CBTagSexToy ' -Me.CBTagWatersports.AutoSize = true -Me.CBTagWatersports.Enabled = false -Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black -Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) -Me.CBTagWatersports.Name = "CBTagWatersports" -Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) -Me.CBTagWatersports.TabIndex = 218 -Me.CBTagWatersports.Text = "Watersports" -Me.CBTagWatersports.UseVisualStyleBackColor = true +Me.CBTagSexToy.AutoSize = true +Me.CBTagSexToy.Enabled = false +Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black +Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) +Me.CBTagSexToy.Name = "CBTagSexToy" +Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) +Me.CBTagSexToy.TabIndex = 216 +Me.CBTagSexToy.Text = "Sex Toy" +Me.CBTagSexToy.UseVisualStyleBackColor = true ' -'CBTagStockings +'TBTagTattoo ' -Me.CBTagStockings.AutoSize = true -Me.CBTagStockings.Enabled = false -Me.CBTagStockings.ForeColor = System.Drawing.Color.Black -Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) -Me.CBTagStockings.Name = "CBTagStockings" -Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) -Me.CBTagStockings.TabIndex = 217 -Me.CBTagStockings.Text = "Stockings" -Me.CBTagStockings.UseVisualStyleBackColor = true +Me.TBTagTattoo.Enabled = false +Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) +Me.TBTagTattoo.Name = "TBTagTattoo" +Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) +Me.TBTagTattoo.TabIndex = 215 ' -'CBTagCumshot +'CBTagTattoo ' -Me.CBTagCumshot.AutoSize = true -Me.CBTagCumshot.Enabled = false -Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black -Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) -Me.CBTagCumshot.Name = "CBTagCumshot" -Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) -Me.CBTagCumshot.TabIndex = 206 -Me.CBTagCumshot.Text = "Cumshot" -Me.CBTagCumshot.UseVisualStyleBackColor = true +Me.CBTagTattoo.AutoSize = true +Me.CBTagTattoo.Enabled = false +Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) +Me.CBTagTattoo.Name = "CBTagTattoo" +Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) +Me.CBTagTattoo.TabIndex = 214 +Me.CBTagTattoo.Text = "Tattoo" +Me.CBTagTattoo.UseVisualStyleBackColor = true ' -'CBTagCumEating +'TBTagUnderwear ' -Me.CBTagCumEating.AutoSize = true -Me.CBTagCumEating.Enabled = false -Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black -Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) -Me.CBTagCumEating.Name = "CBTagCumEating" -Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) -Me.CBTagCumEating.TabIndex = 204 -Me.CBTagCumEating.Text = "Cum Eating" -Me.CBTagCumEating.UseVisualStyleBackColor = true +Me.TBTagUnderwear.Enabled = false +Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) +Me.TBTagUnderwear.Name = "TBTagUnderwear" +Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) +Me.TBTagUnderwear.TabIndex = 213 ' -'CBTagVibrator +'CBTagUnderwear ' -Me.CBTagVibrator.AutoSize = true -Me.CBTagVibrator.Enabled = false -Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black -Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) -Me.CBTagVibrator.Name = "CBTagVibrator" -Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) -Me.CBTagVibrator.TabIndex = 210 -Me.CBTagVibrator.Text = "Vibrator" -Me.CBTagVibrator.UseVisualStyleBackColor = true +Me.CBTagUnderwear.AutoSize = true +Me.CBTagUnderwear.Enabled = false +Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black +Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) +Me.CBTagUnderwear.Name = "CBTagUnderwear" +Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) +Me.CBTagUnderwear.TabIndex = 212 +Me.CBTagUnderwear.Text = "Underwear" +Me.CBTagUnderwear.UseVisualStyleBackColor = true ' -'CBTagDildo +'TBTagGarment ' -Me.CBTagDildo.AutoSize = true -Me.CBTagDildo.Enabled = false -Me.CBTagDildo.ForeColor = System.Drawing.Color.Black -Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) -Me.CBTagDildo.Name = "CBTagDildo" -Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) -Me.CBTagDildo.TabIndex = 213 -Me.CBTagDildo.Text = "Dildo" -Me.CBTagDildo.UseVisualStyleBackColor = true +Me.TBTagGarment.Enabled = false +Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) +Me.TBTagGarment.Name = "TBTagGarment" +Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) +Me.TBTagGarment.TabIndex = 211 ' -'CBTagKissing +'CBTagGarment ' -Me.CBTagKissing.AutoSize = true -Me.CBTagKissing.Enabled = false -Me.CBTagKissing.ForeColor = System.Drawing.Color.Black -Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) -Me.CBTagKissing.Name = "CBTagKissing" -Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) -Me.CBTagKissing.TabIndex = 203 -Me.CBTagKissing.Text = "Kissing" -Me.CBTagKissing.UseVisualStyleBackColor = true +Me.CBTagGarment.AutoSize = true +Me.CBTagGarment.Enabled = false +Me.CBTagGarment.ForeColor = System.Drawing.Color.Black +Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) +Me.CBTagGarment.Name = "CBTagGarment" +Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) +Me.CBTagGarment.TabIndex = 210 +Me.CBTagGarment.Text = "Garment" +Me.CBTagGarment.UseVisualStyleBackColor = true ' -'GroupBox51 +'Label72 ' -Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) -Me.GroupBox51.Controls.Add(Me.CBTagGag) -Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) -Me.GroupBox51.Controls.Add(Me.CBTagWhipping) -Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) -Me.GroupBox51.Controls.Add(Me.CBTagElectro) -Me.GroupBox51.Controls.Add(Me.CBTagHotWax) -Me.GroupBox51.Controls.Add(Me.CBTagClamps) -Me.GroupBox51.Controls.Add(Me.CBTagStrapon) -Me.GroupBox51.Controls.Add(Me.CBTagSpanking) -Me.GroupBox51.Controls.Add(Me.CBTagNeedles) -Me.GroupBox51.Location = New System.Drawing.Point(450, 37) -Me.GroupBox51.Name = "GroupBox51" -Me.GroupBox51.Size = New System.Drawing.Size(105, 238) -Me.GroupBox51.TabIndex = 238 -Me.GroupBox51.TabStop = false -Me.GroupBox51.Text = "BDSM" +Me.Label72.BackColor = System.Drawing.Color.Transparent +Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label72.ForeColor = System.Drawing.Color.Black +Me.Label72.Location = New System.Drawing.Point(5, 368) +Me.Label72.Name = "Label72" +Me.Label72.Size = New System.Drawing.Size(451, 35) +Me.Label72.TabIndex = 189 +Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ + "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ + "e.g. Garment: dress)" +Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBTagBallTorture +'CBTagHandsCovering ' -Me.CBTagBallTorture.AutoSize = true -Me.CBTagBallTorture.Enabled = false -Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) -Me.CBTagBallTorture.Name = "CBTagBallTorture" -Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) -Me.CBTagBallTorture.TabIndex = 220 -Me.CBTagBallTorture.Text = "Ball Torture" -Me.CBTagBallTorture.UseVisualStyleBackColor = true +Me.CBTagHandsCovering.AutoSize = true +Me.CBTagHandsCovering.Enabled = false +Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) +Me.CBTagHandsCovering.Name = "CBTagHandsCovering" +Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) +Me.CBTagHandsCovering.TabIndex = 209 +Me.CBTagHandsCovering.Text = "Hands Covering" +Me.CBTagHandsCovering.UseVisualStyleBackColor = true ' -'CBTagGag +'CBTagGarmentCovering ' -Me.CBTagGag.AutoSize = true -Me.CBTagGag.Enabled = false -Me.CBTagGag.ForeColor = System.Drawing.Color.Black -Me.CBTagGag.Location = New System.Drawing.Point(15, 137) -Me.CBTagGag.Name = "CBTagGag" -Me.CBTagGag.Size = New System.Drawing.Size(46, 17) -Me.CBTagGag.TabIndex = 214 -Me.CBTagGag.Text = "Gag" -Me.CBTagGag.UseVisualStyleBackColor = true +Me.CBTagGarmentCovering.AutoSize = true +Me.CBTagGarmentCovering.Enabled = false +Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) +Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" +Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) +Me.CBTagGarmentCovering.TabIndex = 208 +Me.CBTagGarmentCovering.Text = "Garment Covering" +Me.CBTagGarmentCovering.UseVisualStyleBackColor = true ' -'CBTagBlindfold +'CBTagCloseUp ' -Me.CBTagBlindfold.AutoSize = true -Me.CBTagBlindfold.Enabled = false -Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black -Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) -Me.CBTagBlindfold.Name = "CBTagBlindfold" -Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) -Me.CBTagBlindfold.TabIndex = 208 -Me.CBTagBlindfold.Text = "Blindfold" -Me.CBTagBlindfold.UseVisualStyleBackColor = true +Me.CBTagCloseUp.AutoSize = true +Me.CBTagCloseUp.Enabled = false +Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black +Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) +Me.CBTagCloseUp.Name = "CBTagCloseUp" +Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) +Me.CBTagCloseUp.TabIndex = 205 +Me.CBTagCloseUp.Text = "Close Up" +Me.CBTagCloseUp.UseVisualStyleBackColor = true ' -'CBTagWhipping +'CBTagNaked ' -Me.CBTagWhipping.AutoSize = true -Me.CBTagWhipping.Enabled = false -Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black -Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) -Me.CBTagWhipping.Name = "CBTagWhipping" -Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) -Me.CBTagWhipping.TabIndex = 203 -Me.CBTagWhipping.Text = "Whipping" -Me.CBTagWhipping.UseVisualStyleBackColor = true +Me.CBTagNaked.AutoSize = true +Me.CBTagNaked.Enabled = false +Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) +Me.CBTagNaked.Name = "CBTagNaked" +Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) +Me.CBTagNaked.TabIndex = 199 +Me.CBTagNaked.Text = "Naked" +Me.CBTagNaked.UseVisualStyleBackColor = true ' -'CBTagCockTorture +'CBTagSideView ' -Me.CBTagCockTorture.AutoSize = true -Me.CBTagCockTorture.Enabled = false -Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) -Me.CBTagCockTorture.Name = "CBTagCockTorture" -Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) -Me.CBTagCockTorture.TabIndex = 204 -Me.CBTagCockTorture.Text = "Cock Torture" -Me.CBTagCockTorture.UseVisualStyleBackColor = true +Me.CBTagSideView.AutoSize = true +Me.CBTagSideView.Enabled = false +Me.CBTagSideView.ForeColor = System.Drawing.Color.Black +Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) +Me.CBTagSideView.Name = "CBTagSideView" +Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) +Me.CBTagSideView.TabIndex = 204 +Me.CBTagSideView.Text = "Side View" +Me.CBTagSideView.UseVisualStyleBackColor = true ' -'CBTagElectro +'BTNTagPrevious ' -Me.CBTagElectro.AutoSize = true -Me.CBTagElectro.Enabled = false -Me.CBTagElectro.ForeColor = System.Drawing.Color.Black -Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) -Me.CBTagElectro.Name = "CBTagElectro" -Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) -Me.CBTagElectro.TabIndex = 207 -Me.CBTagElectro.Text = "Electro" -Me.CBTagElectro.UseVisualStyleBackColor = true +Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNTagPrevious.Enabled = false +Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNTagPrevious.Name = "BTNTagPrevious" +Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNTagPrevious.TabIndex = 207 +Me.BTNTagPrevious.Text = "<<" +Me.BTNTagPrevious.UseVisualStyleBackColor = false ' -'CBTagHotWax +'CBTagHalfDressed ' -Me.CBTagHotWax.AutoSize = true -Me.CBTagHotWax.Enabled = false -Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black -Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) -Me.CBTagHotWax.Name = "CBTagHotWax" -Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) -Me.CBTagHotWax.TabIndex = 213 -Me.CBTagHotWax.Text = "Hot Wax" -Me.CBTagHotWax.UseVisualStyleBackColor = true +Me.CBTagHalfDressed.AutoSize = true +Me.CBTagHalfDressed.Enabled = false +Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) +Me.CBTagHalfDressed.Name = "CBTagHalfDressed" +Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) +Me.CBTagHalfDressed.TabIndex = 198 +Me.CBTagHalfDressed.Text = "Half Dressed" +Me.CBTagHalfDressed.UseVisualStyleBackColor = true ' -'CBTagClamps +'BTNTagNext ' -Me.CBTagClamps.AutoSize = true -Me.CBTagClamps.Enabled = false -Me.CBTagClamps.ForeColor = System.Drawing.Color.Black -Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) -Me.CBTagClamps.Name = "CBTagClamps" -Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) -Me.CBTagClamps.TabIndex = 210 -Me.CBTagClamps.Text = "Clamps" -Me.CBTagClamps.UseVisualStyleBackColor = true +Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNTagNext.Enabled = false +Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNTagNext.Name = "BTNTagNext" +Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNTagNext.TabIndex = 206 +Me.BTNTagNext.Text = ">>" +Me.BTNTagNext.UseVisualStyleBackColor = false ' -'CBTagStrapon +'CBTagFullyDressed ' -Me.CBTagStrapon.AutoSize = true -Me.CBTagStrapon.Enabled = false -Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black -Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) -Me.CBTagStrapon.Name = "CBTagStrapon" -Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) -Me.CBTagStrapon.TabIndex = 205 -Me.CBTagStrapon.Text = "Strap-on" -Me.CBTagStrapon.UseVisualStyleBackColor = true +Me.CBTagFullyDressed.AutoSize = true +Me.CBTagFullyDressed.Enabled = false +Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) +Me.CBTagFullyDressed.Name = "CBTagFullyDressed" +Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) +Me.CBTagFullyDressed.TabIndex = 197 +Me.CBTagFullyDressed.Text = "Fully Dressed" +Me.CBTagFullyDressed.UseVisualStyleBackColor = true ' -'CBTagSpanking +'LBLTagCount ' -Me.CBTagSpanking.AutoSize = true -Me.CBTagSpanking.Enabled = false -Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black -Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) -Me.CBTagSpanking.Name = "CBTagSpanking" -Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) -Me.CBTagSpanking.TabIndex = 206 -Me.CBTagSpanking.Text = "Spanking" -Me.CBTagSpanking.UseVisualStyleBackColor = true +Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTagCount.Enabled = false +Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLTagCount.Name = "LBLTagCount" +Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLTagCount.TabIndex = 203 +Me.LBLTagCount.Text = "0/0" +Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagNeedles +'CBTagSucking ' -Me.CBTagNeedles.AutoSize = true -Me.CBTagNeedles.Enabled = false -Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black -Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) -Me.CBTagNeedles.Name = "CBTagNeedles" -Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) -Me.CBTagNeedles.TabIndex = 209 -Me.CBTagNeedles.Text = "Needles" -Me.CBTagNeedles.UseVisualStyleBackColor = true +Me.CBTagSucking.AutoSize = true +Me.CBTagSucking.Enabled = false +Me.CBTagSucking.ForeColor = System.Drawing.Color.Black +Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) +Me.CBTagSucking.Name = "CBTagSucking" +Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) +Me.CBTagSucking.TabIndex = 202 +Me.CBTagSucking.Text = "Sucking" +Me.CBTagSucking.UseVisualStyleBackColor = true ' -'GroupBox50 +'CBTagMasturbating ' -Me.GroupBox50.Controls.Add(Me.CBTagRimming) -Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) -Me.GroupBox50.Controls.Add(Me.CBTagMissionary) -Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) -Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagFingering) -Me.GroupBox50.Controls.Add(Me.CBTagGangbang) -Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) -Me.GroupBox50.Controls.Add(Me.CBTagDP) -Me.GroupBox50.Controls.Add(Me.CBTagHandjob) -Me.GroupBox50.Controls.Add(Me.CBTagStanding) -Me.GroupBox50.Controls.Add(Me.CBTagFootjob) -Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) -Me.GroupBox50.Controls.Add(Me.CBTagTitjob) -Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) -Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) -Me.GroupBox50.Location = New System.Drawing.Point(119, 37) -Me.GroupBox50.Name = "GroupBox50" -Me.GroupBox50.Size = New System.Drawing.Size(105, 358) -Me.GroupBox50.TabIndex = 237 -Me.GroupBox50.TabStop = false -Me.GroupBox50.Text = "Sex" +Me.CBTagMasturbating.AutoSize = true +Me.CBTagMasturbating.Enabled = false +Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) +Me.CBTagMasturbating.Name = "CBTagMasturbating" +Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbating.TabIndex = 201 +Me.CBTagMasturbating.Text = "Masturbating" +Me.CBTagMasturbating.UseVisualStyleBackColor = true ' -'CBTagRimming +'CBTagFeet ' -Me.CBTagRimming.AutoSize = true -Me.CBTagRimming.Enabled = false -Me.CBTagRimming.ForeColor = System.Drawing.Color.Black -Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) -Me.CBTagRimming.Name = "CBTagRimming" -Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) -Me.CBTagRimming.TabIndex = 219 -Me.CBTagRimming.Text = "Rimming" -Me.CBTagRimming.UseVisualStyleBackColor = true +Me.CBTagFeet.AutoSize = true +Me.CBTagFeet.Enabled = false +Me.CBTagFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) +Me.CBTagFeet.Name = "CBTagFeet" +Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagFeet.TabIndex = 200 +Me.CBTagFeet.Text = "Feet" +Me.CBTagFeet.UseVisualStyleBackColor = true ' -'CBTagFacesitting +'CBTagBoobs ' -Me.CBTagFacesitting.AutoSize = true -Me.CBTagFacesitting.Enabled = false -Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black -Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) -Me.CBTagFacesitting.Name = "CBTagFacesitting" -Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) -Me.CBTagFacesitting.TabIndex = 226 -Me.CBTagFacesitting.Text = "Facesitting" -Me.CBTagFacesitting.UseVisualStyleBackColor = true +Me.CBTagBoobs.AutoSize = true +Me.CBTagBoobs.Enabled = false +Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black +Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) +Me.CBTagBoobs.Name = "CBTagBoobs" +Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) +Me.CBTagBoobs.TabIndex = 196 +Me.CBTagBoobs.Text = "Boobs" +Me.CBTagBoobs.UseVisualStyleBackColor = true ' -'CBTagMissionary +'CBTagAss ' -Me.CBTagMissionary.AutoSize = true -Me.CBTagMissionary.Enabled = false -Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black -Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) -Me.CBTagMissionary.Name = "CBTagMissionary" -Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) -Me.CBTagMissionary.TabIndex = 208 -Me.CBTagMissionary.Text = "Missionary" -Me.CBTagMissionary.UseVisualStyleBackColor = true +Me.CBTagAss.AutoSize = true +Me.CBTagAss.Enabled = false +Me.CBTagAss.ForeColor = System.Drawing.Color.Black +Me.CBTagAss.Location = New System.Drawing.Point(484, 97) +Me.CBTagAss.Name = "CBTagAss" +Me.CBTagAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagAss.TabIndex = 195 +Me.CBTagAss.Text = "Ass" +Me.CBTagAss.UseVisualStyleBackColor = true ' -'CBTagMasturbation +'CBTagPussy ' -Me.CBTagMasturbation.AutoSize = true -Me.CBTagMasturbation.Enabled = false -Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) -Me.CBTagMasturbation.Name = "CBTagMasturbation" -Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbation.TabIndex = 203 -Me.CBTagMasturbation.Text = "Masturbation" -Me.CBTagMasturbation.UseVisualStyleBackColor = true +Me.CBTagPussy.AutoSize = true +Me.CBTagPussy.Enabled = false +Me.CBTagPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) +Me.CBTagPussy.Name = "CBTagPussy" +Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagPussy.TabIndex = 194 +Me.CBTagPussy.Text = "Pussy" +Me.CBTagPussy.UseVisualStyleBackColor = true ' -'CBTagRCowgirl +'BTNTagSave ' -Me.CBTagRCowgirl.AutoSize = true -Me.CBTagRCowgirl.Enabled = false -Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) -Me.CBTagRCowgirl.Name = "CBTagRCowgirl" -Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) -Me.CBTagRCowgirl.TabIndex = 218 -Me.CBTagRCowgirl.Text = "R. Cowgirl" -Me.CBTagRCowgirl.UseVisualStyleBackColor = true +Me.BTNTagSave.Enabled = false +Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNTagSave.Name = "BTNTagSave" +Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNTagSave.TabIndex = 193 +Me.BTNTagSave.Text = "Finished" +Me.BTNTagSave.UseVisualStyleBackColor = true ' -'CBTagFingering +'BTNTagDir ' -Me.CBTagFingering.AutoSize = true -Me.CBTagFingering.Enabled = false -Me.CBTagFingering.ForeColor = System.Drawing.Color.Black -Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) -Me.CBTagFingering.Name = "CBTagFingering" -Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) -Me.CBTagFingering.TabIndex = 204 -Me.CBTagFingering.Text = "Fingering" -Me.CBTagFingering.UseVisualStyleBackColor = true +Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNTagDir.Name = "BTNTagDir" +Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNTagDir.TabIndex = 192 +Me.BTNTagDir.Text = "1" +Me.BTNTagDir.UseVisualStyleBackColor = true ' -'CBTagGangbang +'ImageTagPictureBox ' -Me.CBTagGangbang.AutoSize = true -Me.CBTagGangbang.Enabled = false -Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black -Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) -Me.CBTagGangbang.Name = "CBTagGangbang" -Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) -Me.CBTagGangbang.TabIndex = 217 -Me.CBTagGangbang.Text = "Gangbang" -Me.CBTagGangbang.UseVisualStyleBackColor = true +Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black +Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) +Me.ImageTagPictureBox.Name = "ImageTagPictureBox" +Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) +Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.ImageTagPictureBox.TabIndex = 191 +Me.ImageTagPictureBox.TabStop = false ' -'CBTagBlowjob +'CBTagFace ' -Me.CBTagBlowjob.AutoSize = true -Me.CBTagBlowjob.Enabled = false -Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) -Me.CBTagBlowjob.Name = "CBTagBlowjob" -Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBTagBlowjob.TabIndex = 205 -Me.CBTagBlowjob.Text = "Blowjob" -Me.CBTagBlowjob.UseVisualStyleBackColor = true +Me.CBTagFace.AutoSize = true +Me.CBTagFace.Enabled = false +Me.CBTagFace.ForeColor = System.Drawing.Color.Black +Me.CBTagFace.Location = New System.Drawing.Point(484, 37) +Me.CBTagFace.Name = "CBTagFace" +Me.CBTagFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagFace.TabIndex = 190 +Me.CBTagFace.Text = "Face" +Me.CBTagFace.UseVisualStyleBackColor = true ' -'CBTagDP +'TabPage35 ' -Me.CBTagDP.AutoSize = true -Me.CBTagDP.Enabled = false -Me.CBTagDP.ForeColor = System.Drawing.Color.Black -Me.CBTagDP.Location = New System.Drawing.Point(15, 317) -Me.CBTagDP.Name = "CBTagDP" -Me.CBTagDP.Size = New System.Drawing.Size(41, 17) -Me.CBTagDP.TabIndex = 216 -Me.CBTagDP.Text = "DP" -Me.CBTagDP.UseVisualStyleBackColor = true +Me.TabPage35.BackColor = System.Drawing.Color.LightGray +Me.TabPage35.Controls.Add(Me.GroupBox55) +Me.TabPage35.Controls.Add(Me.GroupBox53) +Me.TabPage35.Controls.Add(Me.GroupBox49) +Me.TabPage35.Controls.Add(Me.GroupBox46) +Me.TabPage35.Controls.Add(Me.GroupBox54) +Me.TabPage35.Controls.Add(Me.GroupBox51) +Me.TabPage35.Controls.Add(Me.GroupBox50) +Me.TabPage35.Controls.Add(Me.GroupBox48) +Me.TabPage35.Controls.Add(Me.TBLocalTagDir) +Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) +Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) +Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) +Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) +Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) +Me.TabPage35.Location = New System.Drawing.Point(4, 22) +Me.TabPage35.Name = "TabPage35" +Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage35.Size = New System.Drawing.Size(700, 411) +Me.TabPage35.TabIndex = 1 +Me.TabPage35.Text = "Local Tags" ' -'CBTagHandjob +'GroupBox55 ' -Me.CBTagHandjob.AutoSize = true -Me.CBTagHandjob.Enabled = false -Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black -Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) -Me.CBTagHandjob.Name = "CBTagHandjob" -Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) -Me.CBTagHandjob.TabIndex = 206 -Me.CBTagHandjob.Text = "Handjob" -Me.CBTagHandjob.UseVisualStyleBackColor = true +Me.GroupBox55.Controls.Add(Me.CBTagNurse) +Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) +Me.GroupBox55.Controls.Add(Me.CBTagMaid) +Me.GroupBox55.Controls.Add(Me.CBTagTeacher) +Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) +Me.GroupBox55.Location = New System.Drawing.Point(341, 277) +Me.GroupBox55.Name = "GroupBox55" +Me.GroupBox55.Size = New System.Drawing.Size(103, 118) +Me.GroupBox55.TabIndex = 241 +Me.GroupBox55.TabStop = false +Me.GroupBox55.Text = "Outfit" ' -'CBTagStanding +'CBTagNurse ' -Me.CBTagStanding.AutoSize = true -Me.CBTagStanding.Enabled = false -Me.CBTagStanding.ForeColor = System.Drawing.Color.Black -Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) -Me.CBTagStanding.Name = "CBTagStanding" -Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) -Me.CBTagStanding.TabIndex = 215 -Me.CBTagStanding.Text = "Standing" -Me.CBTagStanding.UseVisualStyleBackColor = true +Me.CBTagNurse.AutoSize = true +Me.CBTagNurse.Enabled = false +Me.CBTagNurse.ForeColor = System.Drawing.Color.Black +Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) +Me.CBTagNurse.Name = "CBTagNurse" +Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) +Me.CBTagNurse.TabIndex = 203 +Me.CBTagNurse.Text = "Nurse" +Me.CBTagNurse.UseVisualStyleBackColor = true ' -'CBTagFootjob +'CBTagSchoolgirl ' -Me.CBTagFootjob.AutoSize = true -Me.CBTagFootjob.Enabled = false -Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black -Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) -Me.CBTagFootjob.Name = "CBTagFootjob" -Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) -Me.CBTagFootjob.TabIndex = 207 -Me.CBTagFootjob.Text = "Footjob" -Me.CBTagFootjob.UseVisualStyleBackColor = true +Me.CBTagSchoolgirl.AutoSize = true +Me.CBTagSchoolgirl.Enabled = false +Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) +Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" +Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) +Me.CBTagSchoolgirl.TabIndex = 204 +Me.CBTagSchoolgirl.Text = "Schoolgirl" +Me.CBTagSchoolgirl.UseVisualStyleBackColor = true +' +'CBTagMaid +' +Me.CBTagMaid.AutoSize = true +Me.CBTagMaid.Enabled = false +Me.CBTagMaid.ForeColor = System.Drawing.Color.Black +Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) +Me.CBTagMaid.Name = "CBTagMaid" +Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) +Me.CBTagMaid.TabIndex = 205 +Me.CBTagMaid.Text = "Maid" +Me.CBTagMaid.UseVisualStyleBackColor = true ' -'CBTagCowgirl +'CBTagTeacher ' -Me.CBTagCowgirl.AutoSize = true -Me.CBTagCowgirl.Enabled = false -Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) -Me.CBTagCowgirl.Name = "CBTagCowgirl" -Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) -Me.CBTagCowgirl.TabIndex = 214 -Me.CBTagCowgirl.Text = "Cowgirl" -Me.CBTagCowgirl.UseVisualStyleBackColor = true +Me.CBTagTeacher.AutoSize = true +Me.CBTagTeacher.Enabled = false +Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black +Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) +Me.CBTagTeacher.Name = "CBTagTeacher" +Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) +Me.CBTagTeacher.TabIndex = 206 +Me.CBTagTeacher.Text = "Teacher" +Me.CBTagTeacher.UseVisualStyleBackColor = true ' -'CBTagDoggyStyle +'CBTagSuperhero ' -Me.CBTagDoggyStyle.AutoSize = true -Me.CBTagDoggyStyle.Enabled = false -Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black -Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) -Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" -Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) -Me.CBTagDoggyStyle.TabIndex = 209 -Me.CBTagDoggyStyle.Text = "Doggy Style" -Me.CBTagDoggyStyle.UseVisualStyleBackColor = true +Me.CBTagSuperhero.AutoSize = true +Me.CBTagSuperhero.Enabled = false +Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black +Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) +Me.CBTagSuperhero.Name = "CBTagSuperhero" +Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) +Me.CBTagSuperhero.TabIndex = 213 +Me.CBTagSuperhero.Text = "Superhero" +Me.CBTagSuperhero.UseVisualStyleBackColor = true ' -'CBTagTitjob +'GroupBox53 ' -Me.CBTagTitjob.AutoSize = true -Me.CBTagTitjob.Enabled = false -Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black -Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) -Me.CBTagTitjob.Name = "CBTagTitjob" -Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) -Me.CBTagTitjob.TabIndex = 213 -Me.CBTagTitjob.Text = "Titjob" -Me.CBTagTitjob.UseVisualStyleBackColor = true +Me.GroupBox53.Controls.Add(Me.CBTagTrap) +Me.GroupBox53.Controls.Add(Me.CBTagTentacles) +Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) +Me.GroupBox53.Controls.Add(Me.CBTagBukkake) +Me.GroupBox53.Controls.Add(Me.CBTagGanguro) +Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) +Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) +Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) +Me.GroupBox53.Controls.Add(Me.CBTagAhegao) +Me.GroupBox53.Controls.Add(Me.CBTagShibari) +Me.GroupBox53.Location = New System.Drawing.Point(450, 277) +Me.GroupBox53.Name = "GroupBox53" +Me.GroupBox53.Size = New System.Drawing.Size(246, 118) +Me.GroupBox53.TabIndex = 240 +Me.GroupBox53.TabStop = false +Me.GroupBox53.Text = "Hentai/JAV Themes" ' -'CBTagCunnilingus +'CBTagTrap ' -Me.CBTagCunnilingus.AutoSize = true -Me.CBTagCunnilingus.Enabled = false -Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black -Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) -Me.CBTagCunnilingus.Name = "CBTagCunnilingus" -Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) -Me.CBTagCunnilingus.TabIndex = 210 -Me.CBTagCunnilingus.Text = "Cunnilingus" -Me.CBTagCunnilingus.UseVisualStyleBackColor = true +Me.CBTagTrap.AutoSize = true +Me.CBTagTrap.Enabled = false +Me.CBTagTrap.ForeColor = System.Drawing.Color.Black +Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) +Me.CBTagTrap.Name = "CBTagTrap" +Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) +Me.CBTagTrap.TabIndex = 226 +Me.CBTagTrap.Text = "Trap" +Me.CBTagTrap.UseVisualStyleBackColor = true ' -'CBTagAnalSex +'CBTagTentacles ' -Me.CBTagAnalSex.AutoSize = true -Me.CBTagAnalSex.Enabled = false -Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) -Me.CBTagAnalSex.Name = "CBTagAnalSex" -Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalSex.TabIndex = 212 -Me.CBTagAnalSex.Text = "Anal Sex" -Me.CBTagAnalSex.UseVisualStyleBackColor = true +Me.CBTagTentacles.AutoSize = true +Me.CBTagTentacles.Enabled = false +Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black +Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) +Me.CBTagTentacles.Name = "CBTagTentacles" +Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) +Me.CBTagTentacles.TabIndex = 204 +Me.CBTagTentacles.Text = "Tentacles" +Me.CBTagTentacles.UseVisualStyleBackColor = true ' -'GroupBox48 +'CBTagMonsterGirl ' -Me.GroupBox48.Controls.Add(Me.CBTagArtwork) -Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) -Me.GroupBox48.Controls.Add(Me.CBTagPOV) -Me.GroupBox48.Controls.Add(Me.CBTagHardcore) -Me.GroupBox48.Controls.Add(Me.CBTagTD) -Me.GroupBox48.Controls.Add(Me.CBTagGay) -Me.GroupBox48.Controls.Add(Me.CBTagBath) -Me.GroupBox48.Controls.Add(Me.CBTagBisexual) -Me.GroupBox48.Controls.Add(Me.CBTagCFNM) -Me.GroupBox48.Controls.Add(Me.CBTagLesbian) -Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) -Me.GroupBox48.Controls.Add(Me.CBTagSM) -Me.GroupBox48.Controls.Add(Me.CBTagBondage) -Me.GroupBox48.Controls.Add(Me.CBTagSoloM) -Me.GroupBox48.Controls.Add(Me.CBTagSoloF) -Me.GroupBox48.Controls.Add(Me.CBTagChastity) -Me.GroupBox48.Controls.Add(Me.CBTagShower) -Me.GroupBox48.Location = New System.Drawing.Point(8, 37) -Me.GroupBox48.Name = "GroupBox48" -Me.GroupBox48.Size = New System.Drawing.Size(105, 358) -Me.GroupBox48.TabIndex = 235 -Me.GroupBox48.TabStop = false -Me.GroupBox48.Text = "Category" +Me.CBTagMonsterGirl.AutoSize = true +Me.CBTagMonsterGirl.Enabled = false +Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black +Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) +Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" +Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) +Me.CBTagMonsterGirl.TabIndex = 214 +Me.CBTagMonsterGirl.Text = "Monster Girl" +Me.CBTagMonsterGirl.UseVisualStyleBackColor = true ' -'CBTagArtwork +'CBTagBukkake ' -Me.CBTagArtwork.AutoSize = true -Me.CBTagArtwork.Enabled = false -Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black -Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) -Me.CBTagArtwork.Name = "CBTagArtwork" -Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) -Me.CBTagArtwork.TabIndex = 225 -Me.CBTagArtwork.Text = "Artwork" -Me.CBTagArtwork.UseVisualStyleBackColor = true +Me.CBTagBukkake.AutoSize = true +Me.CBTagBukkake.Enabled = false +Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black +Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) +Me.CBTagBukkake.Name = "CBTagBukkake" +Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) +Me.CBTagBukkake.TabIndex = 210 +Me.CBTagBukkake.Text = "Bukkake" +Me.CBTagBukkake.UseVisualStyleBackColor = true ' -'CBTagOutdoors +'CBTagGanguro ' -Me.CBTagOutdoors.AutoSize = true -Me.CBTagOutdoors.Enabled = false -Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black -Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) -Me.CBTagOutdoors.Name = "CBTagOutdoors" -Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) -Me.CBTagOutdoors.TabIndex = 219 -Me.CBTagOutdoors.Text = "Outdoors" -Me.CBTagOutdoors.UseVisualStyleBackColor = true +Me.CBTagGanguro.AutoSize = true +Me.CBTagGanguro.Enabled = false +Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black +Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) +Me.CBTagGanguro.Name = "CBTagGanguro" +Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) +Me.CBTagGanguro.TabIndex = 205 +Me.CBTagGanguro.Text = "Ganguro" +Me.CBTagGanguro.UseVisualStyleBackColor = true ' -'CBTagPOV +'CBTagBodyWriting ' -Me.CBTagPOV.AutoSize = true -Me.CBTagPOV.Enabled = false -Me.CBTagPOV.ForeColor = System.Drawing.Color.Black -Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) -Me.CBTagPOV.Name = "CBTagPOV" -Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) -Me.CBTagPOV.TabIndex = 208 -Me.CBTagPOV.Text = "POV" -Me.CBTagPOV.UseVisualStyleBackColor = true +Me.CBTagBodyWriting.AutoSize = true +Me.CBTagBodyWriting.Enabled = false +Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) +Me.CBTagBodyWriting.Name = "CBTagBodyWriting" +Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) +Me.CBTagBodyWriting.TabIndex = 208 +Me.CBTagBodyWriting.Text = "Body Writing" +Me.CBTagBodyWriting.UseVisualStyleBackColor = true ' -'CBTagHardcore +'CBTagMahouShoujo ' -Me.CBTagHardcore.AutoSize = true -Me.CBTagHardcore.Enabled = false -Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black -Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) -Me.CBTagHardcore.Name = "CBTagHardcore" -Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBTagHardcore.TabIndex = 203 -Me.CBTagHardcore.Text = "Hardcore" -Me.CBTagHardcore.UseVisualStyleBackColor = true +Me.CBTagMahouShoujo.AutoSize = true +Me.CBTagMahouShoujo.Enabled = false +Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black +Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) +Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" +Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) +Me.CBTagMahouShoujo.TabIndex = 209 +Me.CBTagMahouShoujo.Text = "Mahou Shoujo" +Me.CBTagMahouShoujo.UseVisualStyleBackColor = true ' -'CBTagTD +'CBTagBakunyuu ' -Me.CBTagTD.AutoSize = true -Me.CBTagTD.Enabled = false -Me.CBTagTD.ForeColor = System.Drawing.Color.Black -Me.CBTagTD.Location = New System.Drawing.Point(15, 217) -Me.CBTagTD.Name = "CBTagTD" -Me.CBTagTD.Size = New System.Drawing.Size(47, 17) -Me.CBTagTD.TabIndex = 218 -Me.CBTagTD.Text = "T&&D" -Me.CBTagTD.UseVisualStyleBackColor = true +Me.CBTagBakunyuu.AutoSize = true +Me.CBTagBakunyuu.Enabled = false +Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black +Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) +Me.CBTagBakunyuu.Name = "CBTagBakunyuu" +Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) +Me.CBTagBakunyuu.TabIndex = 213 +Me.CBTagBakunyuu.Text = "Bakunyuu" +Me.CBTagBakunyuu.UseVisualStyleBackColor = true +' +'CBTagAhegao +' +Me.CBTagAhegao.AutoSize = true +Me.CBTagAhegao.Enabled = false +Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black +Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) +Me.CBTagAhegao.Name = "CBTagAhegao" +Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) +Me.CBTagAhegao.TabIndex = 207 +Me.CBTagAhegao.Text = "Ahegao" +Me.CBTagAhegao.UseVisualStyleBackColor = true ' -'CBTagGay +'CBTagShibari ' -Me.CBTagGay.AutoSize = true -Me.CBTagGay.Enabled = false -Me.CBTagGay.ForeColor = System.Drawing.Color.Black -Me.CBTagGay.Location = New System.Drawing.Point(15, 57) -Me.CBTagGay.Name = "CBTagGay" -Me.CBTagGay.Size = New System.Drawing.Size(45, 17) -Me.CBTagGay.TabIndex = 204 -Me.CBTagGay.Text = "Gay" -Me.CBTagGay.UseVisualStyleBackColor = true +Me.CBTagShibari.AutoSize = true +Me.CBTagShibari.Enabled = false +Me.CBTagShibari.ForeColor = System.Drawing.Color.Black +Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) +Me.CBTagShibari.Name = "CBTagShibari" +Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) +Me.CBTagShibari.TabIndex = 203 +Me.CBTagShibari.Text = "Shibari" +Me.CBTagShibari.UseVisualStyleBackColor = true ' -'CBTagBath +'GroupBox49 ' -Me.CBTagBath.AutoSize = true -Me.CBTagBath.Enabled = false -Me.CBTagBath.ForeColor = System.Drawing.Color.Black -Me.CBTagBath.Location = New System.Drawing.Point(15, 277) -Me.CBTagBath.Name = "CBTagBath" -Me.CBTagBath.Size = New System.Drawing.Size(48, 17) -Me.CBTagBath.TabIndex = 217 -Me.CBTagBath.Text = "Bath" -Me.CBTagBath.UseVisualStyleBackColor = true +Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) +Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) +Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) +Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) +Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) +Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) +Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) +Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) +Me.GroupBox49.Location = New System.Drawing.Point(341, 37) +Me.GroupBox49.Name = "GroupBox49" +Me.GroupBox49.Size = New System.Drawing.Size(103, 238) +Me.GroupBox49.TabIndex = 236 +Me.GroupBox49.TabStop = false +Me.GroupBox49.Text = "Body Part" ' -'CBTagBisexual +'CBTagBodyMouth ' -Me.CBTagBisexual.AutoSize = true -Me.CBTagBisexual.Enabled = false -Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black -Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) -Me.CBTagBisexual.Name = "CBTagBisexual" -Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) -Me.CBTagBisexual.TabIndex = 205 -Me.CBTagBisexual.Text = "Bisexual" -Me.CBTagBisexual.UseVisualStyleBackColor = true +Me.CBTagBodyMouth.AutoSize = true +Me.CBTagBodyMouth.Enabled = false +Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) +Me.CBTagBodyMouth.Name = "CBTagBodyMouth" +Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) +Me.CBTagBodyMouth.TabIndex = 220 +Me.CBTagBodyMouth.Text = "Mouth" +Me.CBTagBodyMouth.UseVisualStyleBackColor = true ' -'CBTagCFNM +'CBTagBodyAss ' -Me.CBTagCFNM.AutoSize = true -Me.CBTagCFNM.Enabled = false -Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black -Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) -Me.CBTagCFNM.Name = "CBTagCFNM" -Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) -Me.CBTagCFNM.TabIndex = 216 -Me.CBTagCFNM.Text = "CFNM" -Me.CBTagCFNM.UseVisualStyleBackColor = true +Me.CBTagBodyAss.AutoSize = true +Me.CBTagBodyAss.Enabled = false +Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) +Me.CBTagBodyAss.Name = "CBTagBodyAss" +Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyAss.TabIndex = 219 +Me.CBTagBodyAss.Text = "Ass" +Me.CBTagBodyAss.UseVisualStyleBackColor = true ' -'CBTagLesbian +'CBTagBodyFace ' -Me.CBTagLesbian.AutoSize = true -Me.CBTagLesbian.Enabled = false -Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black -Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) -Me.CBTagLesbian.Name = "CBTagLesbian" -Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBTagLesbian.TabIndex = 206 -Me.CBTagLesbian.Text = "Lesbian" -Me.CBTagLesbian.UseVisualStyleBackColor = true +Me.CBTagBodyFace.AutoSize = true +Me.CBTagBodyFace.Enabled = false +Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) +Me.CBTagBodyFace.Name = "CBTagBodyFace" +Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagBodyFace.TabIndex = 203 +Me.CBTagBodyFace.Text = "Face" +Me.CBTagBodyFace.UseVisualStyleBackColor = true ' -'CBTagSoloFuta +'CBTagBodyLegs ' -Me.CBTagSoloFuta.AutoSize = true -Me.CBTagSoloFuta.Enabled = false -Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) -Me.CBTagSoloFuta.Name = "CBTagSoloFuta" -Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) -Me.CBTagSoloFuta.TabIndex = 207 -Me.CBTagSoloFuta.Text = "Solo Futa" -Me.CBTagSoloFuta.UseVisualStyleBackColor = true +Me.CBTagBodyLegs.AutoSize = true +Me.CBTagBodyLegs.Enabled = false +Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) +Me.CBTagBodyLegs.Name = "CBTagBodyLegs" +Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagBodyLegs.TabIndex = 218 +Me.CBTagBodyLegs.Text = "Legs" +Me.CBTagBodyLegs.UseVisualStyleBackColor = true ' -'CBTagSM +'CBTagBodyBalls ' -Me.CBTagSM.AutoSize = true -Me.CBTagSM.Enabled = false -Me.CBTagSM.ForeColor = System.Drawing.Color.Black -Me.CBTagSM.Location = New System.Drawing.Point(15, 197) -Me.CBTagSM.Name = "CBTagSM" -Me.CBTagSM.Size = New System.Drawing.Size(48, 17) -Me.CBTagSM.TabIndex = 214 -Me.CBTagSM.Text = "S&&M" -Me.CBTagSM.UseVisualStyleBackColor = true +Me.CBTagBodyBalls.AutoSize = true +Me.CBTagBodyBalls.Enabled = false +Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) +Me.CBTagBodyBalls.Name = "CBTagBodyBalls" +Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) +Me.CBTagBodyBalls.TabIndex = 217 +Me.CBTagBodyBalls.Text = "Balls" +Me.CBTagBodyBalls.UseVisualStyleBackColor = true ' -'CBTagBondage +'CBTagBodyCock ' -Me.CBTagBondage.AutoSize = true -Me.CBTagBondage.Enabled = false -Me.CBTagBondage.ForeColor = System.Drawing.Color.Black -Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) -Me.CBTagBondage.Name = "CBTagBondage" -Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) -Me.CBTagBondage.TabIndex = 209 -Me.CBTagBondage.Text = "Bondage" -Me.CBTagBondage.UseVisualStyleBackColor = true +Me.CBTagBodyCock.AutoSize = true +Me.CBTagBodyCock.Enabled = false +Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) +Me.CBTagBodyCock.Name = "CBTagBodyCock" +Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) +Me.CBTagBodyCock.TabIndex = 216 +Me.CBTagBodyCock.Text = "Cock" +Me.CBTagBodyCock.UseVisualStyleBackColor = true ' -'CBTagSoloM +'CBTagBodyFeet ' -Me.CBTagSoloM.AutoSize = true -Me.CBTagSoloM.Enabled = false -Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) -Me.CBTagSoloM.Name = "CBTagSoloM" -Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) -Me.CBTagSoloM.TabIndex = 213 -Me.CBTagSoloM.Text = "Solo M" -Me.CBTagSoloM.UseVisualStyleBackColor = true +Me.CBTagBodyFeet.AutoSize = true +Me.CBTagBodyFeet.Enabled = false +Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) +Me.CBTagBodyFeet.Name = "CBTagBodyFeet" +Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagBodyFeet.TabIndex = 215 +Me.CBTagBodyFeet.Text = "Feet" +Me.CBTagBodyFeet.UseVisualStyleBackColor = true ' -'CBTagSoloF +'CBTagBodyNipples ' -Me.CBTagSoloF.AutoSize = true -Me.CBTagSoloF.Enabled = false -Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) -Me.CBTagSoloF.Name = "CBTagSoloF" -Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) -Me.CBTagSoloF.TabIndex = 210 -Me.CBTagSoloF.Text = "Solo F" -Me.CBTagSoloF.UseVisualStyleBackColor = true +Me.CBTagBodyNipples.AutoSize = true +Me.CBTagBodyNipples.Enabled = false +Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) +Me.CBTagBodyNipples.Name = "CBTagBodyNipples" +Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) +Me.CBTagBodyNipples.TabIndex = 207 +Me.CBTagBodyNipples.Text = "Nipples" +Me.CBTagBodyNipples.UseVisualStyleBackColor = true ' -'CBTagChastity +'CBTagBodyPussy ' -Me.CBTagChastity.AutoSize = true -Me.CBTagChastity.Enabled = false -Me.CBTagChastity.ForeColor = System.Drawing.Color.Black -Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) -Me.CBTagChastity.Name = "CBTagChastity" -Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) -Me.CBTagChastity.TabIndex = 212 -Me.CBTagChastity.Text = "Chastity" -Me.CBTagChastity.UseVisualStyleBackColor = true +Me.CBTagBodyPussy.AutoSize = true +Me.CBTagBodyPussy.Enabled = false +Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) +Me.CBTagBodyPussy.Name = "CBTagBodyPussy" +Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagBodyPussy.TabIndex = 209 +Me.CBTagBodyPussy.Text = "Pussy" +Me.CBTagBodyPussy.UseVisualStyleBackColor = true ' -'CBTagShower +'CBTagBodyTits ' -Me.CBTagShower.AutoSize = true -Me.CBTagShower.Enabled = false -Me.CBTagShower.ForeColor = System.Drawing.Color.Black -Me.CBTagShower.Location = New System.Drawing.Point(15, 297) -Me.CBTagShower.Name = "CBTagShower" -Me.CBTagShower.Size = New System.Drawing.Size(62, 17) -Me.CBTagShower.TabIndex = 211 -Me.CBTagShower.Text = "Shower" -Me.CBTagShower.UseVisualStyleBackColor = true +Me.CBTagBodyTits.AutoSize = true +Me.CBTagBodyTits.Enabled = false +Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) +Me.CBTagBodyTits.Name = "CBTagBodyTits" +Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyTits.TabIndex = 213 +Me.CBTagBodyTits.Text = "Tits" +Me.CBTagBodyTits.UseVisualStyleBackColor = true +' +'CBTagBodyFingers +' +Me.CBTagBodyFingers.AutoSize = true +Me.CBTagBodyFingers.Enabled = false +Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) +Me.CBTagBodyFingers.Name = "CBTagBodyFingers" +Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) +Me.CBTagBodyFingers.TabIndex = 210 +Me.CBTagBodyFingers.Text = "Fingers" +Me.CBTagBodyFingers.UseVisualStyleBackColor = true ' -'TBLocalTagDir +'GroupBox46 ' -Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBLocalTagDir.Name = "TBLocalTagDir" -Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBLocalTagDir.TabIndex = 233 -Me.TBLocalTagDir.Text = "Enter Image Directory" +Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) +Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) +Me.GroupBox46.Controls.Add(Me.CBTagFemdom) +Me.GroupBox46.Controls.Add(Me.CBTag2M) +Me.GroupBox46.Controls.Add(Me.CBTagFutadom) +Me.GroupBox46.Controls.Add(Me.CBTagFemsub) +Me.GroupBox46.Controls.Add(Me.CBTag2Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMaledom) +Me.GroupBox46.Controls.Add(Me.CBTag3M) +Me.GroupBox46.Controls.Add(Me.CBTagFutasub) +Me.GroupBox46.Controls.Add(Me.CBTag3Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMalesub) +Me.GroupBox46.Controls.Add(Me.CBTag2F) +Me.GroupBox46.Controls.Add(Me.CBTag1Futa) +Me.GroupBox46.Controls.Add(Me.CBTag1M) +Me.GroupBox46.Controls.Add(Me.CBTag1F) +Me.GroupBox46.Controls.Add(Me.CBTag3F) +Me.GroupBox46.Location = New System.Drawing.Point(230, 37) +Me.GroupBox46.Name = "GroupBox46" +Me.GroupBox46.Size = New System.Drawing.Size(105, 358) +Me.GroupBox46.TabIndex = 234 +Me.GroupBox46.TabStop = false +Me.GroupBox46.Text = "Genders && Roles" ' -'BTNLocalTagPrevious +'CBTagMultiSub ' -Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagPrevious.Enabled = false -Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" -Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagPrevious.TabIndex = 232 -Me.BTNLocalTagPrevious.Text = "<<" -Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false +Me.CBTagMultiSub.AutoSize = true +Me.CBTagMultiSub.Enabled = false +Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) +Me.CBTagMultiSub.Name = "CBTagMultiSub" +Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) +Me.CBTagMultiSub.TabIndex = 207 +Me.CBTagMultiSub.Text = "Multi-Sub" +Me.CBTagMultiSub.UseVisualStyleBackColor = true ' -'BTNLocalTagNext +'CBTagMultiDom ' -Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagNext.Enabled = false -Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNLocalTagNext.Name = "BTNLocalTagNext" -Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagNext.TabIndex = 231 -Me.BTNLocalTagNext.Text = ">>" -Me.BTNLocalTagNext.UseVisualStyleBackColor = false +Me.CBTagMultiDom.AutoSize = true +Me.CBTagMultiDom.Enabled = false +Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) +Me.CBTagMultiDom.Name = "CBTagMultiDom" +Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) +Me.CBTagMultiDom.TabIndex = 230 +Me.CBTagMultiDom.Text = "Multi-Dom" +Me.CBTagMultiDom.UseVisualStyleBackColor = true ' -'LBLLocalTagCount +'CBTagFemdom ' -Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLLocalTagCount.Enabled = false -Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLLocalTagCount.Name = "LBLLocalTagCount" -Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLLocalTagCount.TabIndex = 230 -Me.LBLLocalTagCount.Text = "0/0" -Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagFemdom.AutoSize = true +Me.CBTagFemdom.Enabled = false +Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black +Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) +Me.CBTagFemdom.Name = "CBTagFemdom" +Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBTagFemdom.TabIndex = 229 +Me.CBTagFemdom.Text = "Femdom" +Me.CBTagFemdom.UseVisualStyleBackColor = true ' -'BTNLocalTagSave +'CBTag2M ' -Me.BTNLocalTagSave.Enabled = false -Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNLocalTagSave.Name = "BTNLocalTagSave" -Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNLocalTagSave.TabIndex = 229 -Me.BTNLocalTagSave.Text = "Finished" -Me.BTNLocalTagSave.UseVisualStyleBackColor = true +Me.CBTag2M.AutoSize = true +Me.CBTag2M.Enabled = false +Me.CBTag2M.ForeColor = System.Drawing.Color.Black +Me.CBTag2M.Location = New System.Drawing.Point(15, 97) +Me.CBTag2M.Name = "CBTag2M" +Me.CBTag2M.Size = New System.Drawing.Size(56, 17) +Me.CBTag2M.TabIndex = 206 +Me.CBTag2M.Text = "2 Men" +Me.CBTag2M.UseVisualStyleBackColor = true ' -'BTNLocalTagDir +'CBTagFutadom ' -Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNLocalTagDir.Name = "BTNLocalTagDir" -Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNLocalTagDir.TabIndex = 228 -Me.BTNLocalTagDir.Text = "1" -Me.BTNLocalTagDir.UseVisualStyleBackColor = true +Me.CBTagFutadom.AutoSize = true +Me.CBTagFutadom.Enabled = false +Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black +Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) +Me.CBTagFutadom.Name = "CBTagFutadom" +Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) +Me.CBTagFutadom.TabIndex = 204 +Me.CBTagFutadom.Text = "Futadom" +Me.CBTagFutadom.UseVisualStyleBackColor = true ' -'TabPage11 +'CBTagFemsub ' -Me.TabPage11.BackColor = System.Drawing.Color.Silver -Me.TabPage11.Controls.Add(Me.Panel7) -Me.TabPage11.Location = New System.Drawing.Point(4, 22) -Me.TabPage11.Name = "TabPage11" -Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage11.Size = New System.Drawing.Size(720, 448) -Me.TabPage11.TabIndex = 10 -Me.TabPage11.Text = "URL Files" +Me.CBTagFemsub.AutoSize = true +Me.CBTagFemsub.Enabled = false +Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black +Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) +Me.CBTagFemsub.Name = "CBTagFemsub" +Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBTagFemsub.TabIndex = 205 +Me.CBTagFemsub.Text = "Femsub" +Me.CBTagFemsub.UseVisualStyleBackColor = true ' -'Panel7 +'CBTag2Futa ' -Me.Panel7.BackColor = System.Drawing.Color.LightGray -Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel7.Controls.Add(Me.BTNWIContinue) -Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) -Me.Panel7.Controls.Add(Me.BTNWICancel) -Me.Panel7.Controls.Add(Me.CBWIReview) -Me.Panel7.Controls.Add(Me.BTNWIBrowse) -Me.Panel7.Controls.Add(Me.TBWIDirectory) -Me.Panel7.Controls.Add(Me.BTNWIDisliked) -Me.Panel7.Controls.Add(Me.BTNWILiked) -Me.Panel7.Controls.Add(Me.BTNWIRemove) -Me.Panel7.Controls.Add(Me.CBWISaveToDisk) -Me.Panel7.Controls.Add(Me.PictureBox5) -Me.Panel7.Controls.Add(Me.WebImageProgressBar) -Me.Panel7.Controls.Add(Me.BTNWICreateURL) -Me.Panel7.Controls.Add(Me.LBLWebImageCount) -Me.Panel7.Controls.Add(Me.BTNWISave) -Me.Panel7.Controls.Add(Me.BTNWIOpenURL) -Me.Panel7.Controls.Add(Me.BTNWIPrevious) -Me.Panel7.Controls.Add(Me.BTNWINext) -Me.Panel7.Controls.Add(Me.WebPictureBox) -Me.Panel7.Controls.Add(Me.Label71) -Me.Panel7.Location = New System.Drawing.Point(6, 6) -Me.Panel7.Name = "Panel7" -Me.Panel7.Size = New System.Drawing.Size(708, 437) -Me.Panel7.TabIndex = 91 +Me.CBTag2Futa.AutoSize = true +Me.CBTag2Futa.Enabled = false +Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) +Me.CBTag2Futa.Name = "CBTag2Futa" +Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag2Futa.TabIndex = 186 +Me.CBTag2Futa.Text = "2 Futa" +Me.CBTag2Futa.UseVisualStyleBackColor = true ' -'BTNWIContinue +'CBTagMaledom ' -Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIContinue.Enabled = false -Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) -Me.BTNWIContinue.Name = "BTNWIContinue" -Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIContinue.TabIndex = 168 -Me.BTNWIContinue.Text = "Continue" -Me.BTNWIContinue.UseVisualStyleBackColor = false +Me.CBTagMaledom.AutoSize = true +Me.CBTagMaledom.Enabled = false +Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black +Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) +Me.CBTagMaledom.Name = "CBTagMaledom" +Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) +Me.CBTagMaledom.TabIndex = 206 +Me.CBTagMaledom.Text = "Maledom" +Me.CBTagMaledom.UseVisualStyleBackColor = true ' -'BTNWIAddandContinue +'CBTag3M ' -Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIAddandContinue.Enabled = false -Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) -Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" -Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIAddandContinue.TabIndex = 167 -Me.BTNWIAddandContinue.Text = "Add and Continue" -Me.BTNWIAddandContinue.UseVisualStyleBackColor = false +Me.CBTag3M.AutoSize = true +Me.CBTag3M.Enabled = false +Me.CBTag3M.ForeColor = System.Drawing.Color.Black +Me.CBTag3M.Location = New System.Drawing.Point(15, 117) +Me.CBTag3M.Name = "CBTag3M" +Me.CBTag3M.Size = New System.Drawing.Size(56, 17) +Me.CBTag3M.TabIndex = 190 +Me.CBTag3M.Text = "3 Men" +Me.CBTag3M.UseVisualStyleBackColor = true ' -'BTNWICancel +'CBTagFutasub ' -Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray -Me.BTNWICancel.Enabled = false -Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICancel.ForeColor = System.Drawing.Color.Black -Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) -Me.BTNWICancel.Name = "BTNWICancel" -Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) -Me.BTNWICancel.TabIndex = 166 -Me.BTNWICancel.Text = "Cancel" -Me.BTNWICancel.UseVisualStyleBackColor = false +Me.CBTagFutasub.AutoSize = true +Me.CBTagFutasub.Enabled = false +Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black +Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) +Me.CBTagFutasub.Name = "CBTagFutasub" +Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) +Me.CBTagFutasub.TabIndex = 213 +Me.CBTagFutasub.Text = "Futasub" +Me.CBTagFutasub.UseVisualStyleBackColor = true ' -'CBWIReview +'CBTag3Futa ' -Me.CBWIReview.Location = New System.Drawing.Point(567, 69) -Me.CBWIReview.Name = "CBWIReview" -Me.CBWIReview.Size = New System.Drawing.Size(124, 30) -Me.CBWIReview.TabIndex = 165 -Me.CBWIReview.Text = "Review Each Image" -Me.CBWIReview.UseVisualStyleBackColor = true +Me.CBTag3Futa.AutoSize = true +Me.CBTag3Futa.Enabled = false +Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) +Me.CBTag3Futa.Name = "CBTag3Futa" +Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag3Futa.TabIndex = 197 +Me.CBTag3Futa.Text = "3 Futa" +Me.CBTag3Futa.UseVisualStyleBackColor = true ' -'BTNWIBrowse +'CBTagMalesub ' -Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray -Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black -Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) -Me.BTNWIBrowse.Name = "BTNWIBrowse" -Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) -Me.BTNWIBrowse.TabIndex = 163 -Me.BTNWIBrowse.Text = "Browse" -Me.BTNWIBrowse.UseVisualStyleBackColor = false +Me.CBTagMalesub.AutoSize = true +Me.CBTagMalesub.Enabled = false +Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black +Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) +Me.CBTagMalesub.Name = "CBTagMalesub" +Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) +Me.CBTagMalesub.TabIndex = 210 +Me.CBTagMalesub.Text = "Malesub" +Me.CBTagMalesub.UseVisualStyleBackColor = true ' -'TBWIDirectory +'CBTag2F ' -Me.TBWIDirectory.BackColor = System.Drawing.Color.White -Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black -Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) -Me.TBWIDirectory.Name = "TBWIDirectory" -Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) -Me.TBWIDirectory.TabIndex = 164 -Me.TBWIDirectory.Text = "Saved Image Directory" +Me.CBTag2F.AutoSize = true +Me.CBTag2F.Enabled = false +Me.CBTag2F.ForeColor = System.Drawing.Color.Black +Me.CBTag2F.Location = New System.Drawing.Point(15, 37) +Me.CBTag2F.Name = "CBTag2F" +Me.CBTag2F.Size = New System.Drawing.Size(72, 17) +Me.CBTag2F.TabIndex = 188 +Me.CBTag2F.Text = "2 Women" +Me.CBTag2F.UseVisualStyleBackColor = true ' -'BTNWIDisliked +'CBTag1Futa ' -Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray -Me.BTNWIDisliked.Enabled = false -Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black -Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) -Me.BTNWIDisliked.Name = "BTNWIDisliked" -Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) -Me.BTNWIDisliked.TabIndex = 162 -Me.BTNWIDisliked.Text = "Add to Disliked Images" -Me.BTNWIDisliked.UseVisualStyleBackColor = false +Me.CBTag1Futa.AutoSize = true +Me.CBTag1Futa.Enabled = false +Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) +Me.CBTag1Futa.Name = "CBTag1Futa" +Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag1Futa.TabIndex = 191 +Me.CBTag1Futa.Text = "1 Futa" +Me.CBTag1Futa.UseVisualStyleBackColor = true ' -'BTNWILiked +'CBTag1M ' -Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray -Me.BTNWILiked.Enabled = false -Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWILiked.ForeColor = System.Drawing.Color.Black -Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) -Me.BTNWILiked.Name = "BTNWILiked" -Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) -Me.BTNWILiked.TabIndex = 161 -Me.BTNWILiked.Text = "Add to Liked Images" -Me.BTNWILiked.UseVisualStyleBackColor = false +Me.CBTag1M.AutoSize = true +Me.CBTag1M.Enabled = false +Me.CBTag1M.ForeColor = System.Drawing.Color.Black +Me.CBTag1M.Location = New System.Drawing.Point(15, 77) +Me.CBTag1M.Name = "CBTag1M" +Me.CBTag1M.Size = New System.Drawing.Size(56, 17) +Me.CBTag1M.TabIndex = 189 +Me.CBTag1M.Text = "1 Man" +Me.CBTag1M.UseVisualStyleBackColor = true ' -'BTNWIRemove +'CBTag1F ' -Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray -Me.BTNWIRemove.Enabled = false -Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black -Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) -Me.BTNWIRemove.Name = "BTNWIRemove" -Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) -Me.BTNWIRemove.TabIndex = 160 -Me.BTNWIRemove.Text = "Remove From URL File" -Me.BTNWIRemove.UseVisualStyleBackColor = false +Me.CBTag1F.AutoSize = true +Me.CBTag1F.Enabled = false +Me.CBTag1F.ForeColor = System.Drawing.Color.Black +Me.CBTag1F.Location = New System.Drawing.Point(15, 17) +Me.CBTag1F.Name = "CBTag1F" +Me.CBTag1F.Size = New System.Drawing.Size(72, 17) +Me.CBTag1F.TabIndex = 185 +Me.CBTag1F.Text = "1 Woman" +Me.CBTag1F.UseVisualStyleBackColor = true ' -'CBWISaveToDisk +'CBTag3F ' -Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) -Me.CBWISaveToDisk.Name = "CBWISaveToDisk" -Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) -Me.CBWISaveToDisk.TabIndex = 157 -Me.CBWISaveToDisk.Text = "Save Images to Disk" -Me.CBWISaveToDisk.UseVisualStyleBackColor = true +Me.CBTag3F.AutoSize = true +Me.CBTag3F.Enabled = false +Me.CBTag3F.ForeColor = System.Drawing.Color.Black +Me.CBTag3F.Location = New System.Drawing.Point(15, 57) +Me.CBTag3F.Name = "CBTag3F" +Me.CBTag3F.Size = New System.Drawing.Size(72, 17) +Me.CBTag3F.TabIndex = 192 +Me.CBTag3F.Text = "3 Women" +Me.CBTag3F.UseVisualStyleBackColor = true ' -'PictureBox5 +'GroupBox54 ' -Me.PictureBox5.BackColor = System.Drawing.Color.LightGray -Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox5.Location = New System.Drawing.Point(9, 6) -Me.PictureBox5.Name = "PictureBox5" -Me.PictureBox5.Size = New System.Drawing.Size(160, 19) -Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox5.TabIndex = 156 -Me.PictureBox5.TabStop = false +Me.GroupBox54.Controls.Add(Me.CBTagTattoos) +Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) +Me.GroupBox54.Controls.Add(Me.CBTagDomme) +Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) +Me.GroupBox54.Controls.Add(Me.CBTagWatersports) +Me.GroupBox54.Controls.Add(Me.CBTagStockings) +Me.GroupBox54.Controls.Add(Me.CBTagCumshot) +Me.GroupBox54.Controls.Add(Me.CBTagCumEating) +Me.GroupBox54.Controls.Add(Me.CBTagVibrator) +Me.GroupBox54.Controls.Add(Me.CBTagDildo) +Me.GroupBox54.Controls.Add(Me.CBTagKissing) +Me.GroupBox54.Location = New System.Drawing.Point(561, 37) +Me.GroupBox54.Name = "GroupBox54" +Me.GroupBox54.Size = New System.Drawing.Size(135, 238) +Me.GroupBox54.TabIndex = 239 +Me.GroupBox54.TabStop = false +Me.GroupBox54.Text = "Misc" ' -'WebImageProgressBar +'CBTagTattoos ' -Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) -Me.WebImageProgressBar.Maximum = 2500 -Me.WebImageProgressBar.Name = "WebImageProgressBar" -Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) -Me.WebImageProgressBar.TabIndex = 155 +Me.CBTagTattoos.AutoSize = true +Me.CBTagTattoos.Enabled = false +Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) +Me.CBTagTattoos.Name = "CBTagTattoos" +Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBTagTattoos.TabIndex = 214 +Me.CBTagTattoos.Text = "Tattoos" +Me.CBTagTattoos.UseVisualStyleBackColor = true ' -'BTNWICreateURL +'CBTagAnalToy ' -Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black -Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) -Me.BTNWICreateURL.Name = "BTNWICreateURL" -Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWICreateURL.TabIndex = 154 -Me.BTNWICreateURL.Text = "Create URL File" -Me.BTNWICreateURL.UseVisualStyleBackColor = false +Me.CBTagAnalToy.AutoSize = true +Me.CBTagAnalToy.Enabled = false +Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) +Me.CBTagAnalToy.Name = "CBTagAnalToy" +Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalToy.TabIndex = 215 +Me.CBTagAnalToy.Text = "Anal Toy" +Me.CBTagAnalToy.UseVisualStyleBackColor = true ' -'LBLWebImageCount +'CBTagDomme ' -Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent -Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black -Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) -Me.LBLWebImageCount.Name = "LBLWebImageCount" -Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) -Me.LBLWebImageCount.TabIndex = 153 -Me.LBLWebImageCount.Text = "0/0" -Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagDomme.AutoSize = true +Me.CBTagDomme.Enabled = false +Me.CBTagDomme.ForeColor = System.Drawing.Color.Black +Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) +Me.CBTagDomme.Name = "CBTagDomme" +Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) +Me.CBTagDomme.TabIndex = 219 +Me.CBTagDomme.Text = "Tease A.I. Domme" +Me.CBTagDomme.UseVisualStyleBackColor = true ' -'BTNWISave +'CBTagPocketPussy ' -Me.BTNWISave.BackColor = System.Drawing.Color.LightGray -Me.BTNWISave.Enabled = false -Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWISave.ForeColor = System.Drawing.Color.Black -Me.BTNWISave.Location = New System.Drawing.Point(567, 401) -Me.BTNWISave.Name = "BTNWISave" -Me.BTNWISave.Size = New System.Drawing.Size(131, 24) -Me.BTNWISave.TabIndex = 152 -Me.BTNWISave.Text = "Save Image to Disk" -Me.BTNWISave.UseVisualStyleBackColor = false +Me.CBTagPocketPussy.AutoSize = true +Me.CBTagPocketPussy.Enabled = false +Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) +Me.CBTagPocketPussy.Name = "CBTagPocketPussy" +Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) +Me.CBTagPocketPussy.TabIndex = 205 +Me.CBTagPocketPussy.Text = "Pocket Pussy" +Me.CBTagPocketPussy.UseVisualStyleBackColor = true ' -'BTNWIOpenURL +'CBTagWatersports ' -Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black -Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) -Me.BTNWIOpenURL.Name = "BTNWIOpenURL" -Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWIOpenURL.TabIndex = 151 -Me.BTNWIOpenURL.Text = "Open URL File" -Me.BTNWIOpenURL.UseVisualStyleBackColor = false +Me.CBTagWatersports.AutoSize = true +Me.CBTagWatersports.Enabled = false +Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black +Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) +Me.CBTagWatersports.Name = "CBTagWatersports" +Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) +Me.CBTagWatersports.TabIndex = 218 +Me.CBTagWatersports.Text = "Watersports" +Me.CBTagWatersports.UseVisualStyleBackColor = true ' -'BTNWIPrevious +'CBTagStockings ' -Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNWIPrevious.Enabled = false -Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) -Me.BTNWIPrevious.Name = "BTNWIPrevious" -Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNWIPrevious.TabIndex = 149 -Me.BTNWIPrevious.Text = "<<" -Me.BTNWIPrevious.UseVisualStyleBackColor = false +Me.CBTagStockings.AutoSize = true +Me.CBTagStockings.Enabled = false +Me.CBTagStockings.ForeColor = System.Drawing.Color.Black +Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) +Me.CBTagStockings.Name = "CBTagStockings" +Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) +Me.CBTagStockings.TabIndex = 217 +Me.CBTagStockings.Text = "Stockings" +Me.CBTagStockings.UseVisualStyleBackColor = true ' -'BTNWINext +'CBTagCumshot ' -Me.BTNWINext.BackColor = System.Drawing.Color.LightGray -Me.BTNWINext.Enabled = false -Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWINext.ForeColor = System.Drawing.Color.Black -Me.BTNWINext.Location = New System.Drawing.Point(651, 282) -Me.BTNWINext.Name = "BTNWINext" -Me.BTNWINext.Size = New System.Drawing.Size(47, 24) -Me.BTNWINext.TabIndex = 150 -Me.BTNWINext.Text = ">>" -Me.BTNWINext.UseVisualStyleBackColor = false +Me.CBTagCumshot.AutoSize = true +Me.CBTagCumshot.Enabled = false +Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black +Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) +Me.CBTagCumshot.Name = "CBTagCumshot" +Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) +Me.CBTagCumshot.TabIndex = 206 +Me.CBTagCumshot.Text = "Cumshot" +Me.CBTagCumshot.UseVisualStyleBackColor = true ' -'WebPictureBox +'CBTagCumEating ' -Me.WebPictureBox.BackColor = System.Drawing.Color.Black -Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) -Me.WebPictureBox.Name = "WebPictureBox" -Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) -Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WebPictureBox.TabIndex = 148 -Me.WebPictureBox.TabStop = false +Me.CBTagCumEating.AutoSize = true +Me.CBTagCumEating.Enabled = false +Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black +Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) +Me.CBTagCumEating.Name = "CBTagCumEating" +Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) +Me.CBTagCumEating.TabIndex = 204 +Me.CBTagCumEating.Text = "Cum Eating" +Me.CBTagCumEating.UseVisualStyleBackColor = true ' -'Label71 +'CBTagVibrator ' -Me.Label71.BackColor = System.Drawing.Color.Transparent -Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label71.ForeColor = System.Drawing.Color.Black -Me.Label71.Location = New System.Drawing.Point(7, 6) -Me.Label71.Name = "Label71" -Me.Label71.Size = New System.Drawing.Size(692, 21) -Me.Label71.TabIndex = 48 -Me.Label71.Text = "URL Files" -Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagVibrator.AutoSize = true +Me.CBTagVibrator.Enabled = false +Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black +Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) +Me.CBTagVibrator.Name = "CBTagVibrator" +Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) +Me.CBTagVibrator.TabIndex = 210 +Me.CBTagVibrator.Text = "Vibrator" +Me.CBTagVibrator.UseVisualStyleBackColor = true ' -'TpVideoSettings +'CBTagDildo ' -Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver -Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) -Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) -Me.TpVideoSettings.Name = "TpVideoSettings" -Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) -Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) -Me.TpVideoSettings.TabIndex = 2 -Me.TpVideoSettings.Text = "Video" +Me.CBTagDildo.AutoSize = true +Me.CBTagDildo.Enabled = false +Me.CBTagDildo.ForeColor = System.Drawing.Color.Black +Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) +Me.CBTagDildo.Name = "CBTagDildo" +Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) +Me.CBTagDildo.TabIndex = 213 +Me.CBTagDildo.Text = "Dildo" +Me.CBTagDildo.UseVisualStyleBackColor = true ' -'PnlVideoSettings +'CBTagKissing ' -Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) -Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) -Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) -Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill -Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) -Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) -Me.PnlVideoSettings.Name = "PnlVideoSettings" -Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) -Me.PnlVideoSettings.TabIndex = 92 +Me.CBTagKissing.AutoSize = true +Me.CBTagKissing.Enabled = false +Me.CBTagKissing.ForeColor = System.Drawing.Color.Black +Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) +Me.CBTagKissing.Name = "CBTagKissing" +Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) +Me.CBTagKissing.TabIndex = 203 +Me.CBTagKissing.Text = "Kissing" +Me.CBTagKissing.UseVisualStyleBackColor = true ' -'PbBannerVideoSettings +'GroupBox51 ' -Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) -Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" -Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) -Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PbBannerVideoSettings.TabIndex = 151 -Me.PbBannerVideoSettings.TabStop = false +Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) +Me.GroupBox51.Controls.Add(Me.CBTagGag) +Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) +Me.GroupBox51.Controls.Add(Me.CBTagWhipping) +Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) +Me.GroupBox51.Controls.Add(Me.CBTagElectro) +Me.GroupBox51.Controls.Add(Me.CBTagHotWax) +Me.GroupBox51.Controls.Add(Me.CBTagClamps) +Me.GroupBox51.Controls.Add(Me.CBTagStrapon) +Me.GroupBox51.Controls.Add(Me.CBTagSpanking) +Me.GroupBox51.Controls.Add(Me.CBTagNeedles) +Me.GroupBox51.Location = New System.Drawing.Point(450, 37) +Me.GroupBox51.Name = "GroupBox51" +Me.GroupBox51.Size = New System.Drawing.Size(105, 238) +Me.GroupBox51.TabIndex = 238 +Me.GroupBox51.TabStop = false +Me.GroupBox51.Text = "BDSM" ' -'BTNRefreshVideos +'CBTagBallTorture ' -Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray -Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh -Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom -Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 -Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black -Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) -Me.BTNRefreshVideos.Name = "BTNRefreshVideos" -Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) -Me.BTNRefreshVideos.TabIndex = 149 -Me.BTNRefreshVideos.UseVisualStyleBackColor = false +Me.CBTagBallTorture.AutoSize = true +Me.CBTagBallTorture.Enabled = false +Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) +Me.CBTagBallTorture.Name = "CBTagBallTorture" +Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) +Me.CBTagBallTorture.TabIndex = 220 +Me.CBTagBallTorture.Text = "Ball Torture" +Me.CBTagBallTorture.UseVisualStyleBackColor = true ' -'GbxVideoGeneralD +'CBTagGag ' -Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) -Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) -Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) -Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" -Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneralD.TabIndex = 5 -Me.GbxVideoGeneralD.TabStop = false -Me.GbxVideoGeneralD.Text = "Domme General" +Me.CBTagGag.AutoSize = true +Me.CBTagGag.Enabled = false +Me.CBTagGag.ForeColor = System.Drawing.Color.Black +Me.CBTagGag.Location = New System.Drawing.Point(15, 137) +Me.CBTagGag.Name = "CBTagGag" +Me.CBTagGag.Size = New System.Drawing.Size(46, 17) +Me.CBTagGag.TabIndex = 214 +Me.CBTagGag.Text = "Gag" +Me.CBTagGag.UseVisualStyleBackColor = true ' -'LblVideoGeneralTotalD +'CBTagBlindfold ' -Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" -Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotalD.TabIndex = 3 -Me.LblVideoGeneralTotalD.Text = "0" -Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagBlindfold.AutoSize = true +Me.CBTagBlindfold.Enabled = false +Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black +Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) +Me.CBTagBlindfold.Name = "CBTagBlindfold" +Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) +Me.CBTagBlindfold.TabIndex = 208 +Me.CBTagBlindfold.Text = "Blindfold" +Me.CBTagBlindfold.UseVisualStyleBackColor = true ' -'BTNVideoGeneralD +'CBTagWhipping ' -Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" -Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneralD.TabIndex = 1 -Me.BTNVideoGeneralD.Text = "1" -Me.BTNVideoGeneralD.UseVisualStyleBackColor = false +Me.CBTagWhipping.AutoSize = true +Me.CBTagWhipping.Enabled = false +Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black +Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) +Me.CBTagWhipping.Name = "CBTagWhipping" +Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) +Me.CBTagWhipping.TabIndex = 203 +Me.CBTagWhipping.Text = "Whipping" +Me.CBTagWhipping.UseVisualStyleBackColor = true ' -'GbxVideoSpecialD +'CBTagCockTorture +' +Me.CBTagCockTorture.AutoSize = true +Me.CBTagCockTorture.Enabled = false +Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) +Me.CBTagCockTorture.Name = "CBTagCockTorture" +Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) +Me.CBTagCockTorture.TabIndex = 204 +Me.CBTagCockTorture.Text = "Cock Torture" +Me.CBTagCockTorture.UseVisualStyleBackColor = true ' -Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) -Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) -Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" -Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecialD.TabIndex = 4 -Me.GbxVideoSpecialD.TabStop = false -Me.GbxVideoSpecialD.Text = "Domme Special" +'CBTagElectro ' -'LblVideoCHTotalD +Me.CBTagElectro.AutoSize = true +Me.CBTagElectro.Enabled = false +Me.CBTagElectro.ForeColor = System.Drawing.Color.Black +Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) +Me.CBTagElectro.Name = "CBTagElectro" +Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) +Me.CBTagElectro.TabIndex = 207 +Me.CBTagElectro.Text = "Electro" +Me.CBTagElectro.UseVisualStyleBackColor = true ' -Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) -Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" -Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotalD.TabIndex = 7 -Me.LblVideoCHTotalD.Text = "0" -Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagHotWax ' -'LblVideoJOITotalD +Me.CBTagHotWax.AutoSize = true +Me.CBTagHotWax.Enabled = false +Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black +Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) +Me.CBTagHotWax.Name = "CBTagHotWax" +Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) +Me.CBTagHotWax.TabIndex = 213 +Me.CBTagHotWax.Text = "Hot Wax" +Me.CBTagHotWax.UseVisualStyleBackColor = true ' -Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" -Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotalD.TabIndex = 3 -Me.LblVideoJOITotalD.Text = "0" -Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagClamps ' -'BTNVideoCHD +Me.CBTagClamps.AutoSize = true +Me.CBTagClamps.Enabled = false +Me.CBTagClamps.ForeColor = System.Drawing.Color.Black +Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) +Me.CBTagClamps.Name = "CBTagClamps" +Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) +Me.CBTagClamps.TabIndex = 210 +Me.CBTagClamps.Text = "Clamps" +Me.CBTagClamps.UseVisualStyleBackColor = true ' -Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCHD.Name = "BTNVideoCHD" -Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCHD.TabIndex = 5 -Me.BTNVideoCHD.Text = "1" -Me.BTNVideoCHD.UseVisualStyleBackColor = false +'CBTagStrapon ' -'BTNVideoJOID +Me.CBTagStrapon.AutoSize = true +Me.CBTagStrapon.Enabled = false +Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black +Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) +Me.CBTagStrapon.Name = "CBTagStrapon" +Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) +Me.CBTagStrapon.TabIndex = 205 +Me.CBTagStrapon.Text = "Strap-on" +Me.CBTagStrapon.UseVisualStyleBackColor = true ' -Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOID.Name = "BTNVideoJOID" -Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOID.TabIndex = 1 -Me.BTNVideoJOID.Text = "1" -Me.BTNVideoJOID.UseVisualStyleBackColor = false +'CBTagSpanking ' -'GbxVideoGenreD +Me.CBTagSpanking.AutoSize = true +Me.CBTagSpanking.Enabled = false +Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black +Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) +Me.CBTagSpanking.Name = "CBTagSpanking" +Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) +Me.CBTagSpanking.TabIndex = 206 +Me.CBTagSpanking.Text = "Spanking" +Me.CBTagSpanking.UseVisualStyleBackColor = true ' -Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) -Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) -Me.GbxVideoGenreD.Name = "GbxVideoGenreD" -Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenreD.TabIndex = 3 -Me.GbxVideoGenreD.TabStop = false -Me.GbxVideoGenreD.Text = "Domme Genre" +'CBTagNeedles ' -'LblVideoFemsubTotalD +Me.CBTagNeedles.AutoSize = true +Me.CBTagNeedles.Enabled = false +Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black +Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) +Me.CBTagNeedles.Name = "CBTagNeedles" +Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) +Me.CBTagNeedles.TabIndex = 209 +Me.CBTagNeedles.Text = "Needles" +Me.CBTagNeedles.UseVisualStyleBackColor = true ' -Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" -Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotalD.TabIndex = 23 -Me.LblVideoFemsubTotalD.Text = "0" -Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GroupBox50 ' -'LblVideoFemdomTotalD +Me.GroupBox50.Controls.Add(Me.CBTagRimming) +Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) +Me.GroupBox50.Controls.Add(Me.CBTagMissionary) +Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) +Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagFingering) +Me.GroupBox50.Controls.Add(Me.CBTagGangbang) +Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) +Me.GroupBox50.Controls.Add(Me.CBTagDP) +Me.GroupBox50.Controls.Add(Me.CBTagHandjob) +Me.GroupBox50.Controls.Add(Me.CBTagStanding) +Me.GroupBox50.Controls.Add(Me.CBTagFootjob) +Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) +Me.GroupBox50.Controls.Add(Me.CBTagTitjob) +Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) +Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) +Me.GroupBox50.Location = New System.Drawing.Point(119, 37) +Me.GroupBox50.Name = "GroupBox50" +Me.GroupBox50.Size = New System.Drawing.Size(105, 358) +Me.GroupBox50.TabIndex = 237 +Me.GroupBox50.TabStop = false +Me.GroupBox50.Text = "Sex" ' -Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" -Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotalD.TabIndex = 19 -Me.LblVideoFemdomTotalD.Text = "0" -Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagRimming ' -'LblVideoBlowjobTotalD +Me.CBTagRimming.AutoSize = true +Me.CBTagRimming.Enabled = false +Me.CBTagRimming.ForeColor = System.Drawing.Color.Black +Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) +Me.CBTagRimming.Name = "CBTagRimming" +Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) +Me.CBTagRimming.TabIndex = 219 +Me.CBTagRimming.Text = "Rimming" +Me.CBTagRimming.UseVisualStyleBackColor = true ' -Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" -Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotalD.TabIndex = 15 -Me.LblVideoBlowjobTotalD.Text = "0" -Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagFacesitting ' -'LblVideoLesbianTotalD +Me.CBTagFacesitting.AutoSize = true +Me.CBTagFacesitting.Enabled = false +Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black +Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) +Me.CBTagFacesitting.Name = "CBTagFacesitting" +Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) +Me.CBTagFacesitting.TabIndex = 226 +Me.CBTagFacesitting.Text = "Facesitting" +Me.CBTagFacesitting.UseVisualStyleBackColor = true ' -Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" -Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotalD.TabIndex = 11 -Me.LblVideoLesbianTotalD.Text = "0" -Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagMissionary ' -'BTNVideoFemSubD +Me.CBTagMissionary.AutoSize = true +Me.CBTagMissionary.Enabled = false +Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black +Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) +Me.CBTagMissionary.Name = "CBTagMissionary" +Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) +Me.CBTagMissionary.TabIndex = 208 +Me.CBTagMissionary.Text = "Missionary" +Me.CBTagMissionary.UseVisualStyleBackColor = true ' -Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" -Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSubD.TabIndex = 21 -Me.BTNVideoFemSubD.Text = "1" -Me.BTNVideoFemSubD.UseVisualStyleBackColor = false +'CBTagMasturbation ' -'LblVideoSoftCoreTotalD +Me.CBTagMasturbation.AutoSize = true +Me.CBTagMasturbation.Enabled = false +Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) +Me.CBTagMasturbation.Name = "CBTagMasturbation" +Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbation.TabIndex = 203 +Me.CBTagMasturbation.Text = "Masturbation" +Me.CBTagMasturbation.UseVisualStyleBackColor = true ' -Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" -Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotalD.TabIndex = 7 -Me.LblVideoSoftCoreTotalD.Text = "0" -Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagRCowgirl ' -'BTNVideoFemDomD +Me.CBTagRCowgirl.AutoSize = true +Me.CBTagRCowgirl.Enabled = false +Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) +Me.CBTagRCowgirl.Name = "CBTagRCowgirl" +Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) +Me.CBTagRCowgirl.TabIndex = 218 +Me.CBTagRCowgirl.Text = "R. Cowgirl" +Me.CBTagRCowgirl.UseVisualStyleBackColor = true ' -Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" -Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDomD.TabIndex = 17 -Me.BTNVideoFemDomD.Text = "1" -Me.BTNVideoFemDomD.UseVisualStyleBackColor = false +'CBTagFingering ' -'BTNVideoBlowjobD +Me.CBTagFingering.AutoSize = true +Me.CBTagFingering.Enabled = false +Me.CBTagFingering.ForeColor = System.Drawing.Color.Black +Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) +Me.CBTagFingering.Name = "CBTagFingering" +Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) +Me.CBTagFingering.TabIndex = 204 +Me.CBTagFingering.Text = "Fingering" +Me.CBTagFingering.UseVisualStyleBackColor = true ' -Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" -Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjobD.TabIndex = 13 -Me.BTNVideoBlowjobD.Text = "1" -Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false +'CBTagGangbang ' -'LblVideoHardCoreTotalD +Me.CBTagGangbang.AutoSize = true +Me.CBTagGangbang.Enabled = false +Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black +Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) +Me.CBTagGangbang.Name = "CBTagGangbang" +Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) +Me.CBTagGangbang.TabIndex = 217 +Me.CBTagGangbang.Text = "Gangbang" +Me.CBTagGangbang.UseVisualStyleBackColor = true ' -Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" -Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotalD.TabIndex = 3 -Me.LblVideoHardCoreTotalD.Text = "0" -Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagBlowjob ' -'BTNVideoLesbianD +Me.CBTagBlowjob.AutoSize = true +Me.CBTagBlowjob.Enabled = false +Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) +Me.CBTagBlowjob.Name = "CBTagBlowjob" +Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBTagBlowjob.TabIndex = 205 +Me.CBTagBlowjob.Text = "Blowjob" +Me.CBTagBlowjob.UseVisualStyleBackColor = true ' -Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" -Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbianD.TabIndex = 9 -Me.BTNVideoLesbianD.Text = "1" -Me.BTNVideoLesbianD.UseVisualStyleBackColor = false +'CBTagDP ' -'BTNVideoSoftCoreD +Me.CBTagDP.AutoSize = true +Me.CBTagDP.Enabled = false +Me.CBTagDP.ForeColor = System.Drawing.Color.Black +Me.CBTagDP.Location = New System.Drawing.Point(15, 317) +Me.CBTagDP.Name = "CBTagDP" +Me.CBTagDP.Size = New System.Drawing.Size(41, 17) +Me.CBTagDP.TabIndex = 216 +Me.CBTagDP.Text = "DP" +Me.CBTagDP.UseVisualStyleBackColor = true ' -Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" -Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCoreD.TabIndex = 5 -Me.BTNVideoSoftCoreD.Text = "1" -Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false +'CBTagHandjob ' -'BTNVideoHardCoreD +Me.CBTagHandjob.AutoSize = true +Me.CBTagHandjob.Enabled = false +Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black +Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) +Me.CBTagHandjob.Name = "CBTagHandjob" +Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) +Me.CBTagHandjob.TabIndex = 206 +Me.CBTagHandjob.Text = "Handjob" +Me.CBTagHandjob.UseVisualStyleBackColor = true ' -Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" -Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCoreD.TabIndex = 1 -Me.BTNVideoHardCoreD.Text = "1" -Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false +'CBTagStanding ' -'GbxVideoDescription +Me.CBTagStanding.AutoSize = true +Me.CBTagStanding.Enabled = false +Me.CBTagStanding.ForeColor = System.Drawing.Color.Black +Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) +Me.CBTagStanding.Name = "CBTagStanding" +Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) +Me.CBTagStanding.TabIndex = 215 +Me.CBTagStanding.Text = "Standing" +Me.CBTagStanding.UseVisualStyleBackColor = true ' -Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) -Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black -Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) -Me.GbxVideoDescription.Name = "GbxVideoDescription" -Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) -Me.GbxVideoDescription.TabIndex = 6 -Me.GbxVideoDescription.TabStop = false -Me.GbxVideoDescription.Text = "Description" +'CBTagFootjob ' -'VideoDescriptionLabel +Me.CBTagFootjob.AutoSize = true +Me.CBTagFootjob.Enabled = false +Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black +Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) +Me.CBTagFootjob.Name = "CBTagFootjob" +Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) +Me.CBTagFootjob.TabIndex = 207 +Me.CBTagFootjob.Text = "Footjob" +Me.CBTagFootjob.UseVisualStyleBackColor = true ' -Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent -Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black -Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) -Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" -Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) -Me.VideoDescriptionLabel.TabIndex = 62 -Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ - "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ - "using as your domme." -Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagCowgirl ' -'GbxVideoGeneral +Me.CBTagCowgirl.AutoSize = true +Me.CBTagCowgirl.Enabled = false +Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) +Me.CBTagCowgirl.Name = "CBTagCowgirl" +Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) +Me.CBTagCowgirl.TabIndex = 214 +Me.CBTagCowgirl.Text = "Cowgirl" +Me.CBTagCowgirl.UseVisualStyleBackColor = true ' -Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) -Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) -Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) -Me.GbxVideoGeneral.Name = "GbxVideoGeneral" -Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneral.TabIndex = 2 -Me.GbxVideoGeneral.TabStop = false -Me.GbxVideoGeneral.Text = "General" +'CBTagDoggyStyle ' -'LblVideoGeneralTotal +Me.CBTagDoggyStyle.AutoSize = true +Me.CBTagDoggyStyle.Enabled = false +Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black +Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) +Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" +Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) +Me.CBTagDoggyStyle.TabIndex = 209 +Me.CBTagDoggyStyle.Text = "Doggy Style" +Me.CBTagDoggyStyle.UseVisualStyleBackColor = true ' -Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" -Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotal.TabIndex = 3 -Me.LblVideoGeneralTotal.Text = "0" -Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagTitjob ' -'BTNVideoGeneral +Me.CBTagTitjob.AutoSize = true +Me.CBTagTitjob.Enabled = false +Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black +Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) +Me.CBTagTitjob.Name = "CBTagTitjob" +Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) +Me.CBTagTitjob.TabIndex = 213 +Me.CBTagTitjob.Text = "Titjob" +Me.CBTagTitjob.UseVisualStyleBackColor = true ' -Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneral.Name = "BTNVideoGeneral" -Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneral.TabIndex = 1 -Me.BTNVideoGeneral.Text = "1" -Me.BTNVideoGeneral.UseVisualStyleBackColor = false +'CBTagCunnilingus +' +Me.CBTagCunnilingus.AutoSize = true +Me.CBTagCunnilingus.Enabled = false +Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black +Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) +Me.CBTagCunnilingus.Name = "CBTagCunnilingus" +Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) +Me.CBTagCunnilingus.TabIndex = 210 +Me.CBTagCunnilingus.Text = "Cunnilingus" +Me.CBTagCunnilingus.UseVisualStyleBackColor = true ' -'GbxVideoSpecial +'CBTagAnalSex ' -Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) -Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) -Me.GbxVideoSpecial.Name = "GbxVideoSpecial" -Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecial.TabIndex = 1 -Me.GbxVideoSpecial.TabStop = false -Me.GbxVideoSpecial.Text = "Special" +Me.CBTagAnalSex.AutoSize = true +Me.CBTagAnalSex.Enabled = false +Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) +Me.CBTagAnalSex.Name = "CBTagAnalSex" +Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalSex.TabIndex = 212 +Me.CBTagAnalSex.Text = "Anal Sex" +Me.CBTagAnalSex.UseVisualStyleBackColor = true ' -'LblVideoCHTotal +'GroupBox48 ' -Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) -Me.LblVideoCHTotal.Name = "LblVideoCHTotal" -Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotal.TabIndex = 7 -Me.LblVideoCHTotal.Text = "0" -Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox48.Controls.Add(Me.CBTagArtwork) +Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) +Me.GroupBox48.Controls.Add(Me.CBTagPOV) +Me.GroupBox48.Controls.Add(Me.CBTagHardcore) +Me.GroupBox48.Controls.Add(Me.CBTagTD) +Me.GroupBox48.Controls.Add(Me.CBTagGay) +Me.GroupBox48.Controls.Add(Me.CBTagBath) +Me.GroupBox48.Controls.Add(Me.CBTagBisexual) +Me.GroupBox48.Controls.Add(Me.CBTagCFNM) +Me.GroupBox48.Controls.Add(Me.CBTagLesbian) +Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) +Me.GroupBox48.Controls.Add(Me.CBTagSM) +Me.GroupBox48.Controls.Add(Me.CBTagBondage) +Me.GroupBox48.Controls.Add(Me.CBTagSoloM) +Me.GroupBox48.Controls.Add(Me.CBTagSoloF) +Me.GroupBox48.Controls.Add(Me.CBTagChastity) +Me.GroupBox48.Controls.Add(Me.CBTagShower) +Me.GroupBox48.Location = New System.Drawing.Point(8, 37) +Me.GroupBox48.Name = "GroupBox48" +Me.GroupBox48.Size = New System.Drawing.Size(105, 358) +Me.GroupBox48.TabIndex = 235 +Me.GroupBox48.TabStop = false +Me.GroupBox48.Text = "Category" ' -'LblVideoJOITotal +'CBTagArtwork ' -Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) -Me.LblVideoJOITotal.Name = "LblVideoJOITotal" -Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotal.TabIndex = 3 -Me.LblVideoJOITotal.Text = "0" -Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagArtwork.AutoSize = true +Me.CBTagArtwork.Enabled = false +Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black +Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) +Me.CBTagArtwork.Name = "CBTagArtwork" +Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) +Me.CBTagArtwork.TabIndex = 225 +Me.CBTagArtwork.Text = "Artwork" +Me.CBTagArtwork.UseVisualStyleBackColor = true ' -'BTNVideoCH +'CBTagOutdoors ' -Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCH.Name = "BTNVideoCH" -Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCH.TabIndex = 5 -Me.BTNVideoCH.Text = "1" -Me.BTNVideoCH.UseVisualStyleBackColor = false +Me.CBTagOutdoors.AutoSize = true +Me.CBTagOutdoors.Enabled = false +Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black +Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) +Me.CBTagOutdoors.Name = "CBTagOutdoors" +Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) +Me.CBTagOutdoors.TabIndex = 219 +Me.CBTagOutdoors.Text = "Outdoors" +Me.CBTagOutdoors.UseVisualStyleBackColor = true ' -'BTNVideoJOI +'CBTagPOV ' -Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOI.Name = "BTNVideoJOI" -Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOI.TabIndex = 1 -Me.BTNVideoJOI.Text = "1" -Me.BTNVideoJOI.UseVisualStyleBackColor = false +Me.CBTagPOV.AutoSize = true +Me.CBTagPOV.Enabled = false +Me.CBTagPOV.ForeColor = System.Drawing.Color.Black +Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) +Me.CBTagPOV.Name = "CBTagPOV" +Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) +Me.CBTagPOV.TabIndex = 208 +Me.CBTagPOV.Text = "POV" +Me.CBTagPOV.UseVisualStyleBackColor = true ' -'GbxVideoGenre +'CBTagHardcore ' -Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) -Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) -Me.GbxVideoGenre.Name = "GbxVideoGenre" -Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenre.TabIndex = 0 -Me.GbxVideoGenre.TabStop = false -Me.GbxVideoGenre.Text = "Genre" +Me.CBTagHardcore.AutoSize = true +Me.CBTagHardcore.Enabled = false +Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black +Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) +Me.CBTagHardcore.Name = "CBTagHardcore" +Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBTagHardcore.TabIndex = 203 +Me.CBTagHardcore.Text = "Hardcore" +Me.CBTagHardcore.UseVisualStyleBackColor = true ' -'LblVideoFemsubTotal +'CBTagTD ' -Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" -Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotal.TabIndex = 23 -Me.LblVideoFemsubTotal.Text = "0" -Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagTD.AutoSize = true +Me.CBTagTD.Enabled = false +Me.CBTagTD.ForeColor = System.Drawing.Color.Black +Me.CBTagTD.Location = New System.Drawing.Point(15, 217) +Me.CBTagTD.Name = "CBTagTD" +Me.CBTagTD.Size = New System.Drawing.Size(47, 17) +Me.CBTagTD.TabIndex = 218 +Me.CBTagTD.Text = "T&&D" +Me.CBTagTD.UseVisualStyleBackColor = true ' -'LblVideoFemdomTotal +'CBTagGay ' -Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" -Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotal.TabIndex = 19 -Me.LblVideoFemdomTotal.Text = "0" -Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagGay.AutoSize = true +Me.CBTagGay.Enabled = false +Me.CBTagGay.ForeColor = System.Drawing.Color.Black +Me.CBTagGay.Location = New System.Drawing.Point(15, 57) +Me.CBTagGay.Name = "CBTagGay" +Me.CBTagGay.Size = New System.Drawing.Size(45, 17) +Me.CBTagGay.TabIndex = 204 +Me.CBTagGay.Text = "Gay" +Me.CBTagGay.UseVisualStyleBackColor = true ' -'LblVideoBlowjobTotal +'CBTagBath ' -Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" -Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotal.TabIndex = 15 -Me.LblVideoBlowjobTotal.Text = "0" -Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagBath.AutoSize = true +Me.CBTagBath.Enabled = false +Me.CBTagBath.ForeColor = System.Drawing.Color.Black +Me.CBTagBath.Location = New System.Drawing.Point(15, 277) +Me.CBTagBath.Name = "CBTagBath" +Me.CBTagBath.Size = New System.Drawing.Size(48, 17) +Me.CBTagBath.TabIndex = 217 +Me.CBTagBath.Text = "Bath" +Me.CBTagBath.UseVisualStyleBackColor = true ' -'LblVideoLesbianTotal +'CBTagBisexual ' -Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" -Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotal.TabIndex = 11 -Me.LblVideoLesbianTotal.Text = "0" -Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagBisexual.AutoSize = true +Me.CBTagBisexual.Enabled = false +Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black +Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) +Me.CBTagBisexual.Name = "CBTagBisexual" +Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) +Me.CBTagBisexual.TabIndex = 205 +Me.CBTagBisexual.Text = "Bisexual" +Me.CBTagBisexual.UseVisualStyleBackColor = true +' +'CBTagCFNM +' +Me.CBTagCFNM.AutoSize = true +Me.CBTagCFNM.Enabled = false +Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black +Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) +Me.CBTagCFNM.Name = "CBTagCFNM" +Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) +Me.CBTagCFNM.TabIndex = 216 +Me.CBTagCFNM.Text = "CFNM" +Me.CBTagCFNM.UseVisualStyleBackColor = true ' -'BTNVideoFemSub +'CBTagLesbian ' -Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSub.Name = "BTNVideoFemSub" -Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSub.TabIndex = 21 -Me.BTNVideoFemSub.Text = "1" -Me.BTNVideoFemSub.UseVisualStyleBackColor = false +Me.CBTagLesbian.AutoSize = true +Me.CBTagLesbian.Enabled = false +Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black +Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) +Me.CBTagLesbian.Name = "CBTagLesbian" +Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBTagLesbian.TabIndex = 206 +Me.CBTagLesbian.Text = "Lesbian" +Me.CBTagLesbian.UseVisualStyleBackColor = true ' -'LblVideoSoftCoreTotal +'CBTagSoloFuta ' -Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" -Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotal.TabIndex = 7 -Me.LblVideoSoftCoreTotal.Text = "0" -Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagSoloFuta.AutoSize = true +Me.CBTagSoloFuta.Enabled = false +Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) +Me.CBTagSoloFuta.Name = "CBTagSoloFuta" +Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) +Me.CBTagSoloFuta.TabIndex = 207 +Me.CBTagSoloFuta.Text = "Solo Futa" +Me.CBTagSoloFuta.UseVisualStyleBackColor = true ' -'BTNVideoFemDom +'CBTagSM ' -Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDom.Name = "BTNVideoFemDom" -Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDom.TabIndex = 17 -Me.BTNVideoFemDom.Text = "1" -Me.BTNVideoFemDom.UseVisualStyleBackColor = false +Me.CBTagSM.AutoSize = true +Me.CBTagSM.Enabled = false +Me.CBTagSM.ForeColor = System.Drawing.Color.Black +Me.CBTagSM.Location = New System.Drawing.Point(15, 197) +Me.CBTagSM.Name = "CBTagSM" +Me.CBTagSM.Size = New System.Drawing.Size(48, 17) +Me.CBTagSM.TabIndex = 214 +Me.CBTagSM.Text = "S&&M" +Me.CBTagSM.UseVisualStyleBackColor = true ' -'BTNVideoBlowjob +'CBTagBondage ' -Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" -Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjob.TabIndex = 13 -Me.BTNVideoBlowjob.Text = "1" -Me.BTNVideoBlowjob.UseVisualStyleBackColor = false +Me.CBTagBondage.AutoSize = true +Me.CBTagBondage.Enabled = false +Me.CBTagBondage.ForeColor = System.Drawing.Color.Black +Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) +Me.CBTagBondage.Name = "CBTagBondage" +Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) +Me.CBTagBondage.TabIndex = 209 +Me.CBTagBondage.Text = "Bondage" +Me.CBTagBondage.UseVisualStyleBackColor = true ' -'LblVideoHardCoreTotal +'CBTagSoloM ' -Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" -Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotal.TabIndex = 3 -Me.LblVideoHardCoreTotal.Text = "0" -Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagSoloM.AutoSize = true +Me.CBTagSoloM.Enabled = false +Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) +Me.CBTagSoloM.Name = "CBTagSoloM" +Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) +Me.CBTagSoloM.TabIndex = 213 +Me.CBTagSoloM.Text = "Solo M" +Me.CBTagSoloM.UseVisualStyleBackColor = true ' -'BTNVideoLesbian +'CBTagSoloF ' -Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbian.Name = "BTNVideoLesbian" -Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbian.TabIndex = 9 -Me.BTNVideoLesbian.Text = "1" -Me.BTNVideoLesbian.UseVisualStyleBackColor = false +Me.CBTagSoloF.AutoSize = true +Me.CBTagSoloF.Enabled = false +Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) +Me.CBTagSoloF.Name = "CBTagSoloF" +Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) +Me.CBTagSoloF.TabIndex = 210 +Me.CBTagSoloF.Text = "Solo F" +Me.CBTagSoloF.UseVisualStyleBackColor = true ' -'BTNVideoSoftCore +'CBTagChastity ' -Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" -Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCore.TabIndex = 5 -Me.BTNVideoSoftCore.Text = "1" -Me.BTNVideoSoftCore.UseVisualStyleBackColor = false +Me.CBTagChastity.AutoSize = true +Me.CBTagChastity.Enabled = false +Me.CBTagChastity.ForeColor = System.Drawing.Color.Black +Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) +Me.CBTagChastity.Name = "CBTagChastity" +Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) +Me.CBTagChastity.TabIndex = 212 +Me.CBTagChastity.Text = "Chastity" +Me.CBTagChastity.UseVisualStyleBackColor = true ' -'BTNVideoHardCore +'CBTagShower ' -Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCore.Name = "BTNVideoHardCore" -Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCore.TabIndex = 1 -Me.BTNVideoHardCore.Text = "1" -Me.BTNVideoHardCore.UseVisualStyleBackColor = false +Me.CBTagShower.AutoSize = true +Me.CBTagShower.Enabled = false +Me.CBTagShower.ForeColor = System.Drawing.Color.Black +Me.CBTagShower.Location = New System.Drawing.Point(15, 297) +Me.CBTagShower.Name = "CBTagShower" +Me.CBTagShower.Size = New System.Drawing.Size(62, 17) +Me.CBTagShower.TabIndex = 211 +Me.CBTagShower.Text = "Shower" +Me.CBTagShower.UseVisualStyleBackColor = true ' -'LblVideoHeader +'TBLocalTagDir ' -Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black -Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) -Me.LblVideoHeader.Name = "LblVideoHeader" -Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) -Me.LblVideoHeader.TabIndex = 49 -Me.LblVideoHeader.Text = "Video Settings" -Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBLocalTagDir.Name = "TBLocalTagDir" +Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBLocalTagDir.TabIndex = 233 +Me.TBLocalTagDir.Text = "Enter Image Directory" ' -'TabPage20 +'BTNLocalTagPrevious ' -Me.TabPage20.BackColor = System.Drawing.Color.Silver -Me.TabPage20.Controls.Add(Me.TabControl1) -Me.TabPage20.Location = New System.Drawing.Point(4, 22) -Me.TabPage20.Name = "TabPage20" -Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage20.Size = New System.Drawing.Size(720, 448) -Me.TabPage20.TabIndex = 16 -Me.TabPage20.Text = "Apps" +Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagPrevious.Enabled = false +Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" +Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagPrevious.TabIndex = 232 +Me.BTNLocalTagPrevious.Text = "<<" +Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false ' -'TabControl1 +'BTNLocalTagNext ' -Me.TabControl1.Controls.Add(Me.TabPage22) -Me.TabControl1.Controls.Add(Me.TpGames) -Me.TabControl1.Controls.Add(Me.TabPage6) -Me.TabControl1.Location = New System.Drawing.Point(6, 6) -Me.TabControl1.Name = "TabControl1" -Me.TabControl1.SelectedIndex = 0 -Me.TabControl1.Size = New System.Drawing.Size(708, 437) -Me.TabControl1.TabIndex = 0 +Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagNext.Enabled = false +Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNLocalTagNext.Name = "BTNLocalTagNext" +Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagNext.TabIndex = 231 +Me.BTNLocalTagNext.Text = ">>" +Me.BTNLocalTagNext.UseVisualStyleBackColor = false ' -'TabPage22 +'LBLLocalTagCount ' -Me.TabPage22.BackColor = System.Drawing.Color.LightGray -Me.TabPage22.Controls.Add(Me.PNLGlitter) -Me.TabPage22.Location = New System.Drawing.Point(4, 22) -Me.TabPage22.Name = "TabPage22" -Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage22.Size = New System.Drawing.Size(700, 411) -Me.TabPage22.TabIndex = 0 -Me.TabPage22.Text = "Glitter" +Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLLocalTagCount.Enabled = false +Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLLocalTagCount.Name = "LBLLocalTagCount" +Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLLocalTagCount.TabIndex = 230 +Me.LBLLocalTagCount.Text = "0/0" +Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'PNLGlitter +'BTNLocalTagSave ' -Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray -Me.PNLGlitter.Controls.Add(Me.GroupBox4) -Me.PNLGlitter.Controls.Add(Me.Button15) -Me.PNLGlitter.Controls.Add(Me.Button16) -Me.PNLGlitter.Controls.Add(Me.Label121) -Me.PNLGlitter.Controls.Add(Me.Label122) -Me.PNLGlitter.Controls.Add(Me.GBGlitterD) -Me.PNLGlitter.Controls.Add(Me.GBGlitter1) -Me.PNLGlitter.Controls.Add(Me.GBGlitter3) -Me.PNLGlitter.Controls.Add(Me.GBGlitter2) -Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) -Me.PNLGlitter.Name = "PNLGlitter" -Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) -Me.PNLGlitter.TabIndex = 91 +Me.BTNLocalTagSave.Enabled = false +Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNLocalTagSave.Name = "BTNLocalTagSave" +Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNLocalTagSave.TabIndex = 229 +Me.BTNLocalTagSave.Text = "Finished" +Me.BTNLocalTagSave.UseVisualStyleBackColor = true ' -'GroupBox4 +'BTNLocalTagDir ' -Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) -Me.GroupBox4.Location = New System.Drawing.Point(7, 307) -Me.GroupBox4.Name = "GroupBox4" -Me.GroupBox4.Size = New System.Drawing.Size(344, 85) -Me.GroupBox4.TabIndex = 167 -Me.GroupBox4.TabStop = false -Me.GroupBox4.Text = "Change Current Domme" +Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNLocalTagDir.Name = "BTNLocalTagDir" +Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNLocalTagDir.TabIndex = 228 +Me.BTNLocalTagDir.Text = "1" +Me.BTNLocalTagDir.UseVisualStyleBackColor = true ' -'LBLCurrentDomme +'TabPage11 ' -Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) -Me.LBLCurrentDomme.Name = "LBLCurrentDomme" -Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) -Me.LBLCurrentDomme.TabIndex = 168 -Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TabPage11.BackColor = System.Drawing.Color.Silver +Me.TabPage11.Controls.Add(Me.Panel7) +Me.TabPage11.Location = New System.Drawing.Point(4, 22) +Me.TabPage11.Name = "TabPage11" +Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage11.Size = New System.Drawing.Size(720, 448) +Me.TabPage11.TabIndex = 10 +Me.TabPage11.Text = "URL Files" ' -'BTNDomChangeContact1 +'Panel7 ' -Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) -Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" -Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact1.TabIndex = 173 -Me.BTNDomChangeContact1.Text = "Contact 1" -Me.BTNDomChangeContact1.UseVisualStyleBackColor = false +Me.Panel7.BackColor = System.Drawing.Color.LightGray +Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel7.Controls.Add(Me.BTNWIContinue) +Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) +Me.Panel7.Controls.Add(Me.BTNWICancel) +Me.Panel7.Controls.Add(Me.CBWIReview) +Me.Panel7.Controls.Add(Me.BTNWIBrowse) +Me.Panel7.Controls.Add(Me.TBWIDirectory) +Me.Panel7.Controls.Add(Me.BTNWIDisliked) +Me.Panel7.Controls.Add(Me.BTNWILiked) +Me.Panel7.Controls.Add(Me.BTNWIRemove) +Me.Panel7.Controls.Add(Me.CBWISaveToDisk) +Me.Panel7.Controls.Add(Me.PictureBox5) +Me.Panel7.Controls.Add(Me.WebImageProgressBar) +Me.Panel7.Controls.Add(Me.BTNWICreateURL) +Me.Panel7.Controls.Add(Me.LBLWebImageCount) +Me.Panel7.Controls.Add(Me.BTNWISave) +Me.Panel7.Controls.Add(Me.BTNWIOpenURL) +Me.Panel7.Controls.Add(Me.BTNWIPrevious) +Me.Panel7.Controls.Add(Me.BTNWINext) +Me.Panel7.Controls.Add(Me.WebPictureBox) +Me.Panel7.Controls.Add(Me.Label71) +Me.Panel7.Location = New System.Drawing.Point(6, 6) +Me.Panel7.Name = "Panel7" +Me.Panel7.Size = New System.Drawing.Size(708, 437) +Me.Panel7.TabIndex = 91 ' -'BTNDomChangeRandom +'BTNWIContinue ' -Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) -Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" -Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeRandom.TabIndex = 172 -Me.BTNDomChangeRandom.Text = "Random" -Me.BTNDomChangeRandom.UseVisualStyleBackColor = false +Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIContinue.Enabled = false +Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) +Me.BTNWIContinue.Name = "BTNWIContinue" +Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIContinue.TabIndex = 168 +Me.BTNWIContinue.Text = "Continue" +Me.BTNWIContinue.UseVisualStyleBackColor = false ' -'BTNDomChangeContact3 +'BTNWIAddandContinue ' -Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) -Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" -Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact3.TabIndex = 171 -Me.BTNDomChangeContact3.Text = "Contact 3" -Me.BTNDomChangeContact3.UseVisualStyleBackColor = false +Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIAddandContinue.Enabled = false +Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) +Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" +Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIAddandContinue.TabIndex = 167 +Me.BTNWIAddandContinue.Text = "Add and Continue" +Me.BTNWIAddandContinue.UseVisualStyleBackColor = false ' -'BTNDomChangeContact2 +'BTNWICancel ' -Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) -Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" -Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact2.TabIndex = 170 -Me.BTNDomChangeContact2.Text = "Contact 2" -Me.BTNDomChangeContact2.UseVisualStyleBackColor = false +Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray +Me.BTNWICancel.Enabled = false +Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICancel.ForeColor = System.Drawing.Color.Black +Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) +Me.BTNWICancel.Name = "BTNWICancel" +Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) +Me.BTNWICancel.TabIndex = 166 +Me.BTNWICancel.Text = "Cancel" +Me.BTNWICancel.UseVisualStyleBackColor = false ' -'BTNDomChangeDomme +'CBWIReview ' -Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) -Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" -Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeDomme.TabIndex = 168 -Me.BTNDomChangeDomme.Text = "Domme" -Me.BTNDomChangeDomme.UseVisualStyleBackColor = false +Me.CBWIReview.Location = New System.Drawing.Point(567, 69) +Me.CBWIReview.Name = "CBWIReview" +Me.CBWIReview.Size = New System.Drawing.Size(124, 30) +Me.CBWIReview.TabIndex = 165 +Me.CBWIReview.Text = "Review Each Image" +Me.CBWIReview.UseVisualStyleBackColor = true ' -'Button15 +'BTNWIBrowse ' -Me.Button15.BackColor = System.Drawing.Color.LightGray -Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button15.FlatAppearance.BorderSize = 0 -Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button15.ForeColor = System.Drawing.Color.Black -Me.Button15.Location = New System.Drawing.Point(670, 366) -Me.Button15.Name = "Button15" -Me.Button15.Size = New System.Drawing.Size(30, 26) -Me.Button15.TabIndex = 163 -Me.Button15.UseVisualStyleBackColor = false +Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray +Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black +Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) +Me.BTNWIBrowse.Name = "BTNWIBrowse" +Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) +Me.BTNWIBrowse.TabIndex = 163 +Me.BTNWIBrowse.Text = "Browse" +Me.BTNWIBrowse.UseVisualStyleBackColor = false ' -'Button16 +'TBWIDirectory ' -Me.Button16.BackColor = System.Drawing.Color.LightGray -Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button16.FlatAppearance.BorderSize = 0 -Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button16.ForeColor = System.Drawing.Color.Black -Me.Button16.Location = New System.Drawing.Point(667, 324) -Me.Button16.Name = "Button16" -Me.Button16.Size = New System.Drawing.Size(30, 26) -Me.Button16.TabIndex = 164 -Me.Button16.UseVisualStyleBackColor = false +Me.TBWIDirectory.BackColor = System.Drawing.Color.White +Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black +Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) +Me.TBWIDirectory.Name = "TBWIDirectory" +Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) +Me.TBWIDirectory.TabIndex = 164 +Me.TBWIDirectory.Text = "Saved Image Directory" ' -'Label121 +'BTNWIDisliked ' -Me.Label121.AutoSize = true -Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label121.ForeColor = System.Drawing.Color.Black -Me.Label121.Location = New System.Drawing.Point(669, 352) -Me.Label121.Name = "Label121" -Me.Label121.Size = New System.Drawing.Size(27, 13) -Me.Label121.TabIndex = 166 -Me.Label121.Text = "load" -Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray +Me.BTNWIDisliked.Enabled = false +Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black +Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) +Me.BTNWIDisliked.Name = "BTNWIDisliked" +Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) +Me.BTNWIDisliked.TabIndex = 162 +Me.BTNWIDisliked.Text = "Add to Disliked Images" +Me.BTNWIDisliked.UseVisualStyleBackColor = false ' -'Label122 +'BTNWILiked ' -Me.Label122.AutoSize = true -Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label122.ForeColor = System.Drawing.Color.Black -Me.Label122.Location = New System.Drawing.Point(667, 313) -Me.Label122.Name = "Label122" -Me.Label122.Size = New System.Drawing.Size(30, 13) -Me.Label122.TabIndex = 165 -Me.Label122.Text = "save" -Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray +Me.BTNWILiked.Enabled = false +Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWILiked.ForeColor = System.Drawing.Color.Black +Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) +Me.BTNWILiked.Name = "BTNWILiked" +Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) +Me.BTNWILiked.TabIndex = 161 +Me.BTNWILiked.Text = "Add to Liked Images" +Me.BTNWILiked.UseVisualStyleBackColor = false +' +'BTNWIRemove +' +Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray +Me.BTNWIRemove.Enabled = false +Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black +Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) +Me.BTNWIRemove.Name = "BTNWIRemove" +Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) +Me.BTNWIRemove.TabIndex = 160 +Me.BTNWIRemove.Text = "Remove From URL File" +Me.BTNWIRemove.UseVisualStyleBackColor = false ' -'GBGlitterD +'CBWISaveToDisk ' -Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray -Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) -Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom2) -Me.GBGlitterD.Controls.Add(Me.GlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom1) -Me.GBGlitterD.Controls.Add(Me.CBDaily) -Me.GBGlitterD.Controls.Add(Me.CBTrivia) -Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) -Me.GBGlitterD.Controls.Add(Me.CBEgotist) -Me.GBGlitterD.Controls.Add(Me.CBTease) -Me.GBGlitterD.Controls.Add(Me.GlitterAV) -Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) -Me.GBGlitterD.Name = "GBGlitterD" -Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) -Me.GBGlitterD.TabIndex = 162 -Me.GBGlitterD.TabStop = false -Me.GBGlitterD.Text = "Domme" +Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) +Me.CBWISaveToDisk.Name = "CBWISaveToDisk" +Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) +Me.CBWISaveToDisk.TabIndex = 157 +Me.CBWISaveToDisk.Text = "Save Images to Disk" +Me.CBWISaveToDisk.UseVisualStyleBackColor = true ' -'GrbGlitterfeed +'PictureBox5 ' -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) -Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) -Me.GrbGlitterfeed.Name = "GrbGlitterfeed" -Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) -Me.GrbGlitterfeed.TabIndex = 168 -Me.GrbGlitterfeed.TabStop = false -Me.GrbGlitterfeed.Text = "Glitterfeeds" +Me.PictureBox5.BackColor = System.Drawing.Color.LightGray +Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox5.Location = New System.Drawing.Point(9, 6) +Me.PictureBox5.Name = "PictureBox5" +Me.PictureBox5.Size = New System.Drawing.Size(160, 19) +Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox5.TabIndex = 156 +Me.PictureBox5.TabStop = false ' -'BTNGlitterD +'WebImageProgressBar ' -Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black -Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitterD.Name = "BTNGlitterD" -Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitterD.TabIndex = 166 -Me.BTNGlitterD.Text = "Choose Name Color" -Me.BTNGlitterD.UseVisualStyleBackColor = false +Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) +Me.WebImageProgressBar.Maximum = 2500 +Me.WebImageProgressBar.Name = "WebImageProgressBar" +Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) +Me.WebImageProgressBar.TabIndex = 155 ' -'LBLGlitterSlider +'BTNWICreateURL ' -Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider.Name = "LBLGlitterSlider" -Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider.TabIndex = 162 -Me.LBLGlitterSlider.Text = "Post Frequency" -Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black +Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) +Me.BTNWICreateURL.Name = "BTNWICreateURL" +Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWICreateURL.TabIndex = 154 +Me.BTNWICreateURL.Text = "Create URL File" +Me.BTNWICreateURL.UseVisualStyleBackColor = false ' -'GlitterAV +'LBLWebImageCount ' -Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV.Name = "GlitterAV" -Me.GlitterAV.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV.TabIndex = 149 -Me.GlitterAV.TabStop = false +Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent +Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black +Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) +Me.LBLWebImageCount.Name = "LBLWebImageCount" +Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) +Me.LBLWebImageCount.TabIndex = 153 +Me.LBLWebImageCount.Text = "0/0" +Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GBGlitter1 +'BTNWISave ' -Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.CBGlitter1) -Me.GBGlitter1.Controls.Add(Me.TBGlitter1) -Me.GBGlitter1.Controls.Add(Me.GlitterAV1) -Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) -Me.GBGlitter1.Name = "GBGlitter1" -Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter1.TabIndex = 161 -Me.GBGlitter1.TabStop = false -Me.GBGlitter1.Text = "Contact 1" +Me.BTNWISave.BackColor = System.Drawing.Color.LightGray +Me.BTNWISave.Enabled = false +Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWISave.ForeColor = System.Drawing.Color.Black +Me.BTNWISave.Location = New System.Drawing.Point(567, 401) +Me.BTNWISave.Name = "BTNWISave" +Me.BTNWISave.Size = New System.Drawing.Size(131, 24) +Me.BTNWISave.TabIndex = 152 +Me.BTNWISave.Text = "Save Image to Disk" +Me.BTNWISave.UseVisualStyleBackColor = false ' -'BtnContact1ImageDirClear +'BTNWIOpenURL ' -Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" -Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact1ImageDirClear.TabIndex = 181 -Me.BtnContact1ImageDirClear.Text = "Clear" -Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false +Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black +Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) +Me.BTNWIOpenURL.Name = "BTNWIOpenURL" +Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWIOpenURL.TabIndex = 151 +Me.BTNWIOpenURL.Text = "Open URL File" +Me.BTNWIOpenURL.UseVisualStyleBackColor = false ' -'BtnContact1ImageDir +'BTNWIPrevious ' -Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" -Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact1ImageDir.TabIndex = 177 -Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" -Me.BtnContact1ImageDir.UseVisualStyleBackColor = false +Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNWIPrevious.Enabled = false +Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) +Me.BTNWIPrevious.Name = "BTNWIPrevious" +Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNWIPrevious.TabIndex = 149 +Me.BTNWIPrevious.Text = "<<" +Me.BTNWIPrevious.UseVisualStyleBackColor = false ' -'BTNGlitter1 +'BTNWINext ' -Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter1.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter1.Name = "BTNGlitter1" -Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter1.TabIndex = 175 -Me.BTNGlitter1.Text = "Choose Name Color" -Me.BTNGlitter1.UseVisualStyleBackColor = false +Me.BTNWINext.BackColor = System.Drawing.Color.LightGray +Me.BTNWINext.Enabled = false +Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWINext.ForeColor = System.Drawing.Color.Black +Me.BTNWINext.Location = New System.Drawing.Point(651, 282) +Me.BTNWINext.Name = "BTNWINext" +Me.BTNWINext.Size = New System.Drawing.Size(47, 24) +Me.BTNWINext.TabIndex = 150 +Me.BTNWINext.Text = ">>" +Me.BTNWINext.UseVisualStyleBackColor = false ' -'LBLGlitterSlider1 +'WebPictureBox ' -Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" -Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider1.TabIndex = 163 -Me.LBLGlitterSlider1.Text = "Response Frequency" -Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.WebPictureBox.BackColor = System.Drawing.Color.Black +Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) +Me.WebPictureBox.Name = "WebPictureBox" +Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) +Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WebPictureBox.TabIndex = 148 +Me.WebPictureBox.TabStop = false ' -'GlitterAV1 +'Label71 ' -Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV1.Name = "GlitterAV1" -Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV1.TabIndex = 149 -Me.GlitterAV1.TabStop = false +Me.Label71.BackColor = System.Drawing.Color.Transparent +Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label71.ForeColor = System.Drawing.Color.Black +Me.Label71.Location = New System.Drawing.Point(7, 6) +Me.Label71.Name = "Label71" +Me.Label71.Size = New System.Drawing.Size(692, 21) +Me.Label71.TabIndex = 48 +Me.Label71.Text = "URL Files" +Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GBGlitter3 +'TpVideoSettings ' -Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.CBGlitter3) -Me.GBGlitter3.Controls.Add(Me.TBGlitter3) -Me.GBGlitter3.Controls.Add(Me.GlitterAV3) -Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) -Me.GBGlitter3.Name = "GBGlitter3" -Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter3.TabIndex = 160 -Me.GBGlitter3.TabStop = false -Me.GBGlitter3.Text = "Contact 3" +Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver +Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) +Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) +Me.TpVideoSettings.Name = "TpVideoSettings" +Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) +Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) +Me.TpVideoSettings.TabIndex = 2 +Me.TpVideoSettings.Text = "Video" ' -'BtnContact3ImageDirClear +'PnlVideoSettings ' -Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" -Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact3ImageDirClear.TabIndex = 180 -Me.BtnContact3ImageDirClear.Text = "Clear" -Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false +Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) +Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) +Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) +Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill +Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) +Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) +Me.PnlVideoSettings.Name = "PnlVideoSettings" +Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) +Me.PnlVideoSettings.TabIndex = 92 ' -'BtnContact3ImageDir +'PbBannerVideoSettings ' -Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" -Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact3ImageDir.TabIndex = 179 -Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" -Me.BtnContact3ImageDir.UseVisualStyleBackColor = false +Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) +Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" +Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) +Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PbBannerVideoSettings.TabIndex = 151 +Me.PbBannerVideoSettings.TabStop = false ' -'BTNGlitter3 +'BTNRefreshVideos ' -Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter3.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter3.Name = "BTNGlitter3" -Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter3.TabIndex = 175 -Me.BTNGlitter3.Text = "Choose Name Color" -Me.BTNGlitter3.UseVisualStyleBackColor = false +Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray +Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh +Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom +Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 +Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black +Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) +Me.BTNRefreshVideos.Name = "BTNRefreshVideos" +Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) +Me.BTNRefreshVideos.TabIndex = 149 +Me.BTNRefreshVideos.UseVisualStyleBackColor = false ' -'LBLGlitterSlider3 +'GbxVideoGeneralD ' -Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" -Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider3.TabIndex = 163 -Me.LBLGlitterSlider3.Text = "Response Frequency" -Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) +Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) +Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) +Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" +Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneralD.TabIndex = 5 +Me.GbxVideoGeneralD.TabStop = false +Me.GbxVideoGeneralD.Text = "Domme General" ' -'GlitterAV3 +'LblVideoGeneralTotalD ' -Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV3.Name = "GlitterAV3" -Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV3.TabIndex = 149 -Me.GlitterAV3.TabStop = false +Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" +Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotalD.TabIndex = 3 +Me.LblVideoGeneralTotalD.Text = "0" +Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GBGlitter2 +'TxbVideoGeneralD ' -Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.CBGlitter2) -Me.GBGlitter2.Controls.Add(Me.TBGlitter2) -Me.GBGlitter2.Controls.Add(Me.GlitterAV2) -Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) -Me.GBGlitter2.Name = "GBGlitter2" -Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter2.TabIndex = 151 -Me.GBGlitter2.TabStop = false -Me.GBGlitter2.Text = "Contact 2" +Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" +Me.TxbVideoGeneralD.ReadOnly = true +Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.TabIndex = 2 +Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD ' -'BtnContact2ImageDirClear +'BTNVideoGeneralD ' -Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" -Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact2ImageDirClear.TabIndex = 181 -Me.BtnContact2ImageDirClear.Text = "Clear" -Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false +Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" +Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneralD.TabIndex = 1 +Me.BTNVideoGeneralD.Text = "1" +Me.BTNVideoGeneralD.UseVisualStyleBackColor = false ' -'BtnContact2ImageDir +'CBVideoGeneralD ' -Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" -Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact2ImageDir.TabIndex = 179 -Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" -Me.BtnContact2ImageDir.UseVisualStyleBackColor = false +Me.CBVideoGeneralD.AutoSize = true +Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD +Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneralD.Name = "CBVideoGeneralD" +Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneralD.TabIndex = 0 +Me.CBVideoGeneralD.Text = "General" +Me.CBVideoGeneralD.UseVisualStyleBackColor = true ' -'BTNGlitter2 +'GbxVideoSpecialD ' -Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter2.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter2.Name = "BTNGlitter2" -Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter2.TabIndex = 167 -Me.BTNGlitter2.Text = "Choose Name Color" -Me.BTNGlitter2.UseVisualStyleBackColor = false +Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) +Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) +Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" +Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecialD.TabIndex = 4 +Me.GbxVideoSpecialD.TabStop = false +Me.GbxVideoSpecialD.Text = "Domme Special" ' -'LBLGlitterSlider2 +'LblVideoCHTotalD ' -Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" -Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider2.TabIndex = 163 -Me.LBLGlitterSlider2.Text = "Response Frequency" -Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) +Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" +Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotalD.TabIndex = 7 +Me.LblVideoCHTotalD.Text = "0" +Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GlitterAV2 +'LblVideoJOITotalD ' -Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV2.Name = "GlitterAV2" -Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV2.TabIndex = 149 -Me.GlitterAV2.TabStop = false +Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" +Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotalD.TabIndex = 3 +Me.LblVideoJOITotalD.Text = "0" +Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TpGames +'TxbVideoCHD ' -Me.TpGames.BackColor = System.Drawing.Color.LightGray -Me.TpGames.Controls.Add(Me.CBIncludeGifs) -Me.TpGames.Controls.Add(Me.LblCardsSetupNote) -Me.TpGames.Controls.Add(Me.CBGameSounds) -Me.TpGames.Controls.Add(Me.GbxCardsGold) -Me.TpGames.Controls.Add(Me.GbxCardsBackground) -Me.TpGames.Controls.Add(Me.GbxCardsBronze) -Me.TpGames.Controls.Add(Me.GbxCardsSilver) -Me.TpGames.Location = New System.Drawing.Point(4, 22) -Me.TpGames.Name = "TpGames" -Me.TpGames.Padding = New System.Windows.Forms.Padding(3) -Me.TpGames.Size = New System.Drawing.Size(700, 411) -Me.TpGames.TabIndex = 1 -Me.TpGames.Text = "Games" +Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.Name = "TxbVideoCHD" +Me.TxbVideoCHD.ReadOnly = true +Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.TabIndex = 6 +Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD ' -'LblCardsSetupNote +'TxbVideoJOID ' -Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) -Me.LblCardsSetupNote.Name = "LblCardsSetupNote" -Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) -Me.LblCardsSetupNote.TabIndex = 4 -Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ - "!" -Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.Name = "TxbVideoJOID" +Me.TxbVideoJOID.ReadOnly = true +Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.TabIndex = 2 +Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID ' -'CBGameSounds +'BTNVideoCHD ' -Me.CBGameSounds.AutoSize = true -Me.CBGameSounds.Checked = true -Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBGameSounds.ForeColor = System.Drawing.Color.Black -Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) -Me.CBGameSounds.Name = "CBGameSounds" -Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) -Me.CBGameSounds.TabIndex = 6 -Me.CBGameSounds.Text = "Play Game Sounds" -Me.CBGameSounds.UseVisualStyleBackColor = true +Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCHD.Name = "BTNVideoCHD" +Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCHD.TabIndex = 5 +Me.BTNVideoCHD.Text = "1" +Me.BTNVideoCHD.UseVisualStyleBackColor = false ' -'GbxCardsGold +'BTNVideoJOID ' -Me.GbxCardsGold.Controls.Add(Me.GN6) -Me.GbxCardsGold.Controls.Add(Me.GP6) -Me.GbxCardsGold.Controls.Add(Me.GN2) -Me.GbxCardsGold.Controls.Add(Me.GP2) -Me.GbxCardsGold.Controls.Add(Me.GP5) -Me.GbxCardsGold.Controls.Add(Me.GN1) -Me.GbxCardsGold.Controls.Add(Me.GP1) -Me.GbxCardsGold.Controls.Add(Me.GN5) -Me.GbxCardsGold.Controls.Add(Me.GN3) -Me.GbxCardsGold.Controls.Add(Me.GP3) -Me.GbxCardsGold.Controls.Add(Me.GP4) -Me.GbxCardsGold.Controls.Add(Me.GN4) -Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) -Me.GbxCardsGold.Name = "GbxCardsGold" -Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) -Me.GbxCardsGold.TabIndex = 2 -Me.GbxCardsGold.TabStop = false -Me.GbxCardsGold.Text = "Gold Cards" +Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOID.Name = "BTNVideoJOID" +Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOID.TabIndex = 1 +Me.BTNVideoJOID.Text = "1" +Me.BTNVideoJOID.UseVisualStyleBackColor = false ' -'GbxCardsBackground +'CBVideoJOID ' -Me.GbxCardsBackground.Controls.Add(Me.CardBack) -Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) -Me.GbxCardsBackground.Name = "GbxCardsBackground" -Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) -Me.GbxCardsBackground.TabIndex = 3 -Me.GbxCardsBackground.TabStop = false -Me.GbxCardsBackground.Text = "Card Background" +Me.CBVideoJOID.AutoSize = true +Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID +Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOID.Name = "CBVideoJOID" +Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOID.TabIndex = 0 +Me.CBVideoJOID.Text = "JOI" +Me.CBVideoJOID.UseVisualStyleBackColor = true ' -'GbxCardsBronze +'CBVideoCHD ' -Me.GbxCardsBronze.Controls.Add(Me.BN6) -Me.GbxCardsBronze.Controls.Add(Me.BN3) -Me.GbxCardsBronze.Controls.Add(Me.BP3) -Me.GbxCardsBronze.Controls.Add(Me.BP6) -Me.GbxCardsBronze.Controls.Add(Me.BN2) -Me.GbxCardsBronze.Controls.Add(Me.BN5) -Me.GbxCardsBronze.Controls.Add(Me.BP5) -Me.GbxCardsBronze.Controls.Add(Me.BP2) -Me.GbxCardsBronze.Controls.Add(Me.BN1) -Me.GbxCardsBronze.Controls.Add(Me.BN4) -Me.GbxCardsBronze.Controls.Add(Me.BP4) -Me.GbxCardsBronze.Controls.Add(Me.BP1) -Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) -Me.GbxCardsBronze.Name = "GbxCardsBronze" -Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsBronze.TabIndex = 0 -Me.GbxCardsBronze.TabStop = false -Me.GbxCardsBronze.Text = "Bronze Cards" +Me.CBVideoCHD.AutoSize = true +Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD +Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black +Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCHD.Name = "CBVideoCHD" +Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCHD.TabIndex = 4 +Me.CBVideoCHD.Text = "CH" +Me.CBVideoCHD.UseVisualStyleBackColor = true ' -'GbxCardsSilver +'GbxVideoGenreD ' -Me.GbxCardsSilver.Controls.Add(Me.SN6) -Me.GbxCardsSilver.Controls.Add(Me.SP6) -Me.GbxCardsSilver.Controls.Add(Me.SN2) -Me.GbxCardsSilver.Controls.Add(Me.SP2) -Me.GbxCardsSilver.Controls.Add(Me.SN1) -Me.GbxCardsSilver.Controls.Add(Me.SP5) -Me.GbxCardsSilver.Controls.Add(Me.SP1) -Me.GbxCardsSilver.Controls.Add(Me.SN5) -Me.GbxCardsSilver.Controls.Add(Me.SN3) -Me.GbxCardsSilver.Controls.Add(Me.SN4) -Me.GbxCardsSilver.Controls.Add(Me.SP3) -Me.GbxCardsSilver.Controls.Add(Me.SP4) -Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) -Me.GbxCardsSilver.Name = "GbxCardsSilver" -Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsSilver.TabIndex = 1 -Me.GbxCardsSilver.TabStop = false -Me.GbxCardsSilver.Text = "Silver Cards" +Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) +Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) +Me.GbxVideoGenreD.Name = "GbxVideoGenreD" +Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenreD.TabIndex = 3 +Me.GbxVideoGenreD.TabStop = false +Me.GbxVideoGenreD.Text = "Domme Genre" ' -'TabPage6 +'LblVideoFemsubTotalD ' -Me.TabPage6.BackColor = System.Drawing.Color.LightGray -Me.TabPage6.Controls.Add(Me.Panel10) -Me.TabPage6.Controls.Add(Me.Label107) -Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) -Me.TabPage6.Controls.Add(Me.Label18) -Me.TabPage6.Controls.Add(Me.PNLWishList) -Me.TabPage6.Location = New System.Drawing.Point(4, 22) -Me.TabPage6.Name = "TabPage6" -Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage6.Size = New System.Drawing.Size(700, 411) -Me.TabPage6.TabIndex = 2 -Me.TabPage6.Text = "Wishlist" +Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" +Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotalD.TabIndex = 23 +Me.LblVideoFemsubTotalD.Text = "0" +Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Panel10 +'TxbVideoFemsubD ' -Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel10.Controls.Add(Me.TBWishlistComment) -Me.Panel10.Controls.Add(Me.Label32) -Me.Panel10.Controls.Add(Me.TBWishlistItem) -Me.Panel10.Controls.Add(Me.radioGold) -Me.Panel10.Controls.Add(Me.Label42) -Me.Panel10.Controls.Add(Me.radioSilver) -Me.Panel10.Controls.Add(Me.TBWishlistURL) -Me.Panel10.Controls.Add(Me.NBWishlistCost) -Me.Panel10.Controls.Add(Me.Label48) -Me.Panel10.Controls.Add(Me.Label73) -Me.Panel10.Location = New System.Drawing.Point(38, 47) -Me.Panel10.Name = "Panel10" -Me.Panel10.Size = New System.Drawing.Size(252, 308) -Me.Panel10.TabIndex = 179 +Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" +Me.TxbVideoFemsubD.ReadOnly = true +Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.TabIndex = 22 +Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD ' -'TBWishlistComment +'LblVideoFemdomTotalD ' -Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) -Me.TBWishlistComment.Multiline = true -Me.TBWishlistComment.Name = "TBWishlistComment" -Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) -Me.TBWishlistComment.TabIndex = 172 +Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" +Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotalD.TabIndex = 19 +Me.LblVideoFemdomTotalD.Text = "0" +Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label32 +'TxbVideoFemdomD ' -Me.Label32.AutoSize = true -Me.Label32.Location = New System.Drawing.Point(13, 4) -Me.Label32.Name = "Label32" -Me.Label32.Size = New System.Drawing.Size(58, 13) -Me.Label32.TabIndex = 167 -Me.Label32.Text = "Item Name" +Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" +Me.TxbVideoFemdomD.ReadOnly = true +Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.TabIndex = 18 +Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD ' -'TBWishlistItem +'TxbVideoBlowjobD ' -Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) -Me.TBWishlistItem.Name = "TBWishlistItem" -Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistItem.TabIndex = 168 +Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" +Me.TxbVideoBlowjobD.ReadOnly = true +Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.TabIndex = 14 +Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD ' -'radioGold +'LblVideoBlowjobTotalD ' -Me.radioGold.AutoSize = true -Me.radioGold.Location = New System.Drawing.Point(167, 125) -Me.radioGold.Name = "radioGold" -Me.radioGold.Size = New System.Drawing.Size(47, 17) -Me.radioGold.TabIndex = 176 -Me.radioGold.Text = "Gold" -Me.radioGold.UseVisualStyleBackColor = true +Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" +Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotalD.TabIndex = 15 +Me.LblVideoBlowjobTotalD.Text = "0" +Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label42 +'TxbVideoLesbianD ' -Me.Label42.AutoSize = true -Me.Label42.Location = New System.Drawing.Point(13, 56) -Me.Label42.Name = "Label42" -Me.Label42.Size = New System.Drawing.Size(75, 13) -Me.Label42.TabIndex = 169 -Me.Label42.Text = "Item Image Url" +Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" +Me.TxbVideoLesbianD.ReadOnly = true +Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.TabIndex = 10 +Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD ' -'radioSilver +'TxbVideoSoftCoreD ' -Me.radioSilver.AutoSize = true -Me.radioSilver.Checked = true -Me.radioSilver.Location = New System.Drawing.Point(100, 125) -Me.radioSilver.Name = "radioSilver" -Me.radioSilver.Size = New System.Drawing.Size(51, 17) -Me.radioSilver.TabIndex = 175 -Me.radioSilver.TabStop = true -Me.radioSilver.Text = "Silver" -Me.radioSilver.UseVisualStyleBackColor = true +Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" +Me.TxbVideoSoftCoreD.ReadOnly = true +Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.TabIndex = 6 +Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD ' -'TBWishlistURL +'LblVideoLesbianTotalD ' -Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) -Me.TBWishlistURL.Name = "TBWishlistURL" -Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistURL.TabIndex = 170 +Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" +Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotalD.TabIndex = 11 +Me.LblVideoLesbianTotalD.Text = "0" +Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBWishlistCost +'TxbVideoHardCoreD ' -Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) -Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBWishlistCost.Name = "NBWishlistCost" -Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) -Me.NBWishlistCost.TabIndex = 174 -Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) +Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" +Me.TxbVideoHardCoreD.ReadOnly = true +Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.TabIndex = 2 +Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD ' -'Label48 +'BTNVideoFemSubD ' -Me.Label48.AutoSize = true -Me.Label48.Location = New System.Drawing.Point(13, 157) -Me.Label48.Name = "Label48" -Me.Label48.Size = New System.Drawing.Size(74, 13) -Me.Label48.TabIndex = 171 -Me.Label48.Text = "Item Comment" +Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" +Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSubD.TabIndex = 21 +Me.BTNVideoFemSubD.Text = "1" +Me.BTNVideoFemSubD.UseVisualStyleBackColor = false ' -'Label73 +'LblVideoSoftCoreTotalD ' -Me.Label73.AutoSize = true -Me.Label73.Location = New System.Drawing.Point(13, 108) -Me.Label73.Name = "Label73" -Me.Label73.Size = New System.Drawing.Size(51, 13) -Me.Label73.TabIndex = 173 -Me.Label73.Text = "Item Cost" +Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" +Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotalD.TabIndex = 7 +Me.LblVideoSoftCoreTotalD.Text = "0" +Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label107 +'BTNVideoFemDomD ' -Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label107.Location = New System.Drawing.Point(38, 5) -Me.Label107.Name = "Label107" -Me.Label107.Size = New System.Drawing.Size(252, 47) -Me.Label107.TabIndex = 178 -Me.Label107.Text = "Use this page to create Wishlist files." -Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" +Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDomD.TabIndex = 17 +Me.BTNVideoFemDomD.Text = "1" +Me.BTNVideoFemDomD.UseVisualStyleBackColor = false ' -'BTNWishlistCreate +'BTNVideoBlowjobD ' -Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) -Me.BTNWishlistCreate.Name = "BTNWishlistCreate" -Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) -Me.BTNWishlistCreate.TabIndex = 177 -Me.BTNWishlistCreate.Text = "Create Wishlist File" -Me.BTNWishlistCreate.UseVisualStyleBackColor = true +Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" +Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjobD.TabIndex = 13 +Me.BTNVideoBlowjobD.Text = "1" +Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false ' -'Label18 +'LblVideoHardCoreTotalD ' -Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label18.Location = New System.Drawing.Point(409, 5) -Me.Label18.Name = "Label18" -Me.Label18.Size = New System.Drawing.Size(250, 23) -Me.Label18.TabIndex = 166 -Me.Label18.Text = "Preview" -Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" +Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotalD.TabIndex = 3 +Me.LblVideoHardCoreTotalD.Text = "0" +Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoLesbianD +' +Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" +Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbianD.TabIndex = 9 +Me.BTNVideoLesbianD.Text = "1" +Me.BTNVideoLesbianD.UseVisualStyleBackColor = false ' -'PNLWishList +'BTNVideoSoftCoreD ' -Me.PNLWishList.BackColor = System.Drawing.Color.White -Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) -Me.PNLWishList.Controls.Add(Me.LBLWishListText) -Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) -Me.PNLWishList.Controls.Add(Me.WishlistCostGold) -Me.PNLWishList.Controls.Add(Me.LBLWishListName) -Me.PNLWishList.Controls.Add(Me.WishlistPreview) -Me.PNLWishList.Location = New System.Drawing.Point(407, 31) -Me.PNLWishList.Name = "PNLWishList" -Me.PNLWishList.Size = New System.Drawing.Size(250, 367) -Me.PNLWishList.TabIndex = 165 +Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" +Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCoreD.TabIndex = 5 +Me.BTNVideoSoftCoreD.Text = "1" +Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false ' -'WishlistCostSilver +'BTNVideoHardCoreD ' -Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) -Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostSilver.Name = "WishlistCostSilver" -Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostSilver.TabIndex = 111 -Me.WishlistCostSilver.TabStop = false +Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" +Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCoreD.TabIndex = 1 +Me.BTNVideoHardCoreD.Text = "1" +Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false ' -'LBLWishListText +'CBVideoHardcoreD ' -Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) -Me.LBLWishListText.Name = "LBLWishListText" -Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) -Me.LBLWishListText.TabIndex = 108 +Me.CBVideoHardcoreD.AutoSize = true +Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD +Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" +Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcoreD.TabIndex = 0 +Me.CBVideoHardcoreD.Text = "Hardcore" +Me.CBVideoHardcoreD.UseVisualStyleBackColor = true ' -'LBLWishlistCost +'CBVideoSoftCoreD ' -Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black -Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) -Me.LBLWishlistCost.Name = "LBLWishlistCost" -Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) -Me.LBLWishlistCost.TabIndex = 107 -Me.LBLWishlistCost.Text = "3" -Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBVideoSoftCoreD.AutoSize = true +Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD +Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" +Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCoreD.TabIndex = 4 +Me.CBVideoSoftCoreD.Text = "Softcore" +Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true ' -'WishlistCostGold +'CBVideoLesbianD ' -Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) -Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostGold.Name = "WishlistCostGold" -Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostGold.TabIndex = 106 -Me.WishlistCostGold.TabStop = false -Me.WishlistCostGold.Visible = false +Me.CBVideoLesbianD.AutoSize = true +Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD +Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbianD.Name = "CBVideoLesbianD" +Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbianD.TabIndex = 8 +Me.CBVideoLesbianD.Text = "Lesbian" +Me.CBVideoLesbianD.UseVisualStyleBackColor = true ' -'LBLWishListName +'CBVideoBlowjobD ' -Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue -Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) -Me.LBLWishListName.Name = "LBLWishListName" -Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) -Me.LBLWishListName.TabIndex = 104 -Me.LBLWishListName.Text = "Item Name Goes Here" -Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBVideoBlowjobD.AutoSize = true +Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD +Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" +Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjobD.TabIndex = 12 +Me.CBVideoBlowjobD.Text = "Blowjob" +Me.CBVideoBlowjobD.UseVisualStyleBackColor = true ' -'WishlistPreview +'CBVideoFemsubD ' -Me.WishlistPreview.ImageLocation = "" -Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) -Me.WishlistPreview.Name = "WishlistPreview" -Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) -Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WishlistPreview.TabIndex = 101 -Me.WishlistPreview.TabStop = false +Me.CBVideoFemsubD.AutoSize = true +Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD +Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsubD.Name = "CBVideoFemsubD" +Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsubD.TabIndex = 20 +Me.CBVideoFemsubD.Text = "Femsub" +Me.CBVideoFemsubD.UseVisualStyleBackColor = true ' -'TabPage26 +'CBVideoFemdomD ' -Me.TabPage26.BackColor = System.Drawing.Color.Silver -Me.TabPage26.Controls.Add(Me.Panel12) -Me.TabPage26.Location = New System.Drawing.Point(4, 22) -Me.TabPage26.Name = "TabPage26" -Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage26.Size = New System.Drawing.Size(720, 448) -Me.TabPage26.TabIndex = 19 -Me.TabPage26.Text = "Themes" +Me.CBVideoFemdomD.AutoSize = true +Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD +Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdomD.Name = "CBVideoFemdomD" +Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdomD.TabIndex = 16 +Me.CBVideoFemdomD.Text = "Femdom" +Me.CBVideoFemdomD.UseVisualStyleBackColor = true ' -'Panel12 +'GbxVideoDescription ' -Me.Panel12.BackColor = System.Drawing.Color.LightGray -Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel12.Controls.Add(Me.GroupBox9) -Me.Panel12.Controls.Add(Me.PictureBox10) -Me.Panel12.Controls.Add(Me.GroupBox5) -Me.Panel12.Controls.Add(Me.GroupBox11) -Me.Panel12.Controls.Add(Me.GroupBox1) -Me.Panel12.Controls.Add(Me.Label164) -Me.Panel12.Location = New System.Drawing.Point(6, 6) -Me.Panel12.Name = "Panel12" -Me.Panel12.Size = New System.Drawing.Size(708, 437) -Me.Panel12.TabIndex = 93 +Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) +Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black +Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) +Me.GbxVideoDescription.Name = "GbxVideoDescription" +Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) +Me.GbxVideoDescription.TabIndex = 6 +Me.GbxVideoDescription.TabStop = false +Me.GbxVideoDescription.Text = "Description" ' -'GroupBox9 +'VideoDescriptionLabel ' -Me.GroupBox9.Controls.Add(Me.Button32) -Me.GroupBox9.Controls.Add(Me.Button31) -Me.GroupBox9.Location = New System.Drawing.Point(351, 231) -Me.GroupBox9.Name = "GroupBox9" -Me.GroupBox9.Size = New System.Drawing.Size(348, 94) -Me.GroupBox9.TabIndex = 152 -Me.GroupBox9.TabStop = false -Me.GroupBox9.Text = "System" +Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent +Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black +Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) +Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" +Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) +Me.VideoDescriptionLabel.TabIndex = 62 +Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ + "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ + "using as your domme." +Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Button32 +'GbxVideoGeneral ' -Me.Button32.BackColor = System.Drawing.Color.Transparent -Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big -Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button32.Location = New System.Drawing.Point(196, 24) -Me.Button32.Name = "Button32" -Me.Button32.Size = New System.Drawing.Size(135, 55) -Me.Button32.TabIndex = 55 -Me.Button32.Text = " Save Theme" -Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button32.UseVisualStyleBackColor = false +Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) +Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) +Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) +Me.GbxVideoGeneral.Name = "GbxVideoGeneral" +Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneral.TabIndex = 2 +Me.GbxVideoGeneral.TabStop = false +Me.GbxVideoGeneral.Text = "General" ' -'Button31 +'LblVideoGeneralTotal ' -Me.Button31.BackColor = System.Drawing.Color.Transparent -Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big -Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button31.Location = New System.Drawing.Point(17, 24) -Me.Button31.Name = "Button31" -Me.Button31.Size = New System.Drawing.Size(135, 55) -Me.Button31.TabIndex = 54 -Me.Button31.Text = " Open Theme" -Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button31.UseVisualStyleBackColor = false +Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" +Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotal.TabIndex = 3 +Me.LblVideoGeneralTotal.Text = "0" +Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'PictureBox10 +'TxbVideoGeneral +' +Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.Name = "TxbVideoGeneral" +Me.TxbVideoGeneral.ReadOnly = true +Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.TabIndex = 2 +Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral ' -Me.PictureBox10.BackColor = System.Drawing.Color.LightGray -Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox10.Location = New System.Drawing.Point(9, 6) -Me.PictureBox10.Name = "PictureBox10" -Me.PictureBox10.Size = New System.Drawing.Size(160, 19) -Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox10.TabIndex = 151 -Me.PictureBox10.TabStop = false +'BTNVideoGeneral ' -'GroupBox5 +Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneral.Name = "BTNVideoGeneral" +Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneral.TabIndex = 1 +Me.BTNVideoGeneral.Text = "1" +Me.BTNVideoGeneral.UseVisualStyleBackColor = false ' -Me.GroupBox5.Controls.Add(Me.CBTransparentTime) -Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) -Me.GroupBox5.Controls.Add(Me.Label137) -Me.GroupBox5.Controls.Add(Me.Label138) -Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) -Me.GroupBox5.Location = New System.Drawing.Point(9, 31) -Me.GroupBox5.Name = "GroupBox5" -Me.GroupBox5.Size = New System.Drawing.Size(336, 294) -Me.GroupBox5.TabIndex = 58 -Me.GroupBox5.TabStop = false -Me.GroupBox5.Text = "UI Colors" +'CBVideoGeneral ' -'CBTransparentTime +Me.CBVideoGeneral.AutoSize = true +Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral +Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneral.Name = "CBVideoGeneral" +Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneral.TabIndex = 0 +Me.CBVideoGeneral.Text = "General" +Me.CBVideoGeneral.UseVisualStyleBackColor = true ' -Me.CBTransparentTime.AutoSize = true -Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) -Me.CBTransparentTime.Name = "CBTransparentTime" -Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) -Me.CBTransparentTime.TabIndex = 23 -Me.CBTransparentTime.Text = "Transparent Date/Time Window" -Me.CBTransparentTime.UseVisualStyleBackColor = true +'GbxVideoSpecial ' -'Label137 +Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) +Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) +Me.GbxVideoSpecial.Name = "GbxVideoSpecial" +Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecial.TabIndex = 1 +Me.GbxVideoSpecial.TabStop = false +Me.GbxVideoSpecial.Text = "Special" ' -Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label137.Location = New System.Drawing.Point(6, 227) -Me.Label137.Name = "Label137" -Me.Label137.Size = New System.Drawing.Size(175, 20) -Me.Label137.TabIndex = 20 -Me.Label137.Text = "Date/Time Window Color" -Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LblVideoCHTotal ' -'Label138 +Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) +Me.LblVideoCHTotal.Name = "LblVideoCHTotal" +Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotal.TabIndex = 7 +Me.LblVideoCHTotal.Text = "0" +Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label138.Location = New System.Drawing.Point(6, 193) -Me.Label138.Name = "Label138" -Me.Label138.Size = New System.Drawing.Size(175, 20) -Me.Label138.TabIndex = 17 -Me.Label138.Text = "Date/Time Text Color" -Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LblVideoJOITotal ' -'LBLTextColor +Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) +Me.LblVideoJOITotal.Name = "LblVideoJOITotal" +Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotal.TabIndex = 3 +Me.LblVideoJOITotal.Text = "0" +Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) -Me.LBLTextColor.Name = "LBLTextColor" -Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLTextColor.TabIndex = 7 -Me.LBLTextColor.Text = "Text Color" -Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TxbVideoCH ' -'LBLChatTextColor +Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.Name = "TxbVideoCH" +Me.TxbVideoCH.ReadOnly = true +Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.TabIndex = 6 +Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH ' -Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) -Me.LBLChatTextColor.Name = "LBLChatTextColor" -Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatTextColor.TabIndex = 14 -Me.LBLChatTextColor.Text = "Chat Text Color" -Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TxbVideoJOI ' -'LBLButtonColor +Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.Name = "TxbVideoJOI" +Me.TxbVideoJOI.ReadOnly = true +Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.TabIndex = 2 +Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI ' -Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) -Me.LBLButtonColor.Name = "LBLButtonColor" -Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) -Me.LBLButtonColor.TabIndex = 4 -Me.LBLButtonColor.Text = "Button Color" -Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNVideoCH ' -'LBLChatWindowColor +Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCH.Name = "BTNVideoCH" +Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCH.TabIndex = 5 +Me.BTNVideoCH.Text = "1" +Me.BTNVideoCH.UseVisualStyleBackColor = false ' -Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) -Me.LBLChatWindowColor.Name = "LBLChatWindowColor" -Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatWindowColor.TabIndex = 10 -Me.LBLChatWindowColor.Text = "Chat Window Color" -Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNVideoJOI ' -'LBLBackColor +Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOI.Name = "BTNVideoJOI" +Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOI.TabIndex = 1 +Me.BTNVideoJOI.Text = "1" +Me.BTNVideoJOI.UseVisualStyleBackColor = false ' -Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) -Me.LBLBackColor.Name = "LBLBackColor" -Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) -Me.LBLBackColor.TabIndex = 0 -Me.LBLBackColor.Text = "Background Color" -Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBVideoJOI ' -'GroupBox11 +Me.CBVideoJOI.AutoSize = true +Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI +Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOI.Name = "CBVideoJOI" +Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOI.TabIndex = 0 +Me.CBVideoJOI.Text = "JOI" +Me.CBVideoJOI.UseVisualStyleBackColor = true ' -Me.GroupBox11.BackColor = System.Drawing.Color.LightGray -Me.GroupBox11.Controls.Add(Me.Label144) -Me.GroupBox11.ForeColor = System.Drawing.Color.Black -Me.GroupBox11.Location = New System.Drawing.Point(7, 331) -Me.GroupBox11.Name = "GroupBox11" -Me.GroupBox11.Size = New System.Drawing.Size(692, 92) -Me.GroupBox11.TabIndex = 65 -Me.GroupBox11.TabStop = false -Me.GroupBox11.Text = "Description" +'CBVideoCH ' -'Label144 +Me.CBVideoCH.AutoSize = true +Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH +Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCH.ForeColor = System.Drawing.Color.Black +Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCH.Name = "CBVideoCH" +Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCH.TabIndex = 4 +Me.CBVideoCH.Text = "CH" +Me.CBVideoCH.UseVisualStyleBackColor = true ' -Me.Label144.BackColor = System.Drawing.Color.Transparent -Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label144.ForeColor = System.Drawing.Color.Black -Me.Label144.Location = New System.Drawing.Point(6, 16) -Me.Label144.Name = "Label144" -Me.Label144.Size = New System.Drawing.Size(680, 73) -Me.Label144.TabIndex = 62 -Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ - "nd opened from txt files." -Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GbxVideoGenre ' -'GroupBox1 +Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) +Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) +Me.GbxVideoGenre.Name = "GbxVideoGenre" +Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenre.TabIndex = 0 +Me.GbxVideoGenre.TabStop = false +Me.GbxVideoGenre.Text = "Genre" ' -Me.GroupBox1.Controls.Add(Me.CBFlipBack) -Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) -Me.GroupBox1.Controls.Add(Me.Button17) -Me.GroupBox1.Controls.Add(Me.CBStretchBack) -Me.GroupBox1.Controls.Add(Me.Button18) -Me.GroupBox1.Location = New System.Drawing.Point(351, 30) -Me.GroupBox1.Name = "GroupBox1" -Me.GroupBox1.Size = New System.Drawing.Size(348, 195) -Me.GroupBox1.TabIndex = 57 -Me.GroupBox1.TabStop = false -Me.GroupBox1.Text = "Background" +'LblVideoFemsubTotal ' -'CBFlipBack +Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" +Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotal.TabIndex = 23 +Me.LblVideoFemsubTotal.Text = "0" +Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBFlipBack.Enabled = false -Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) -Me.CBFlipBack.Name = "CBFlipBack" -Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) -Me.CBFlipBack.TabIndex = 4 -Me.CBFlipBack.Text = "Flip Background" -Me.CBFlipBack.UseVisualStyleBackColor = true +'TxbVideoFemsub ' -'PBBackgroundPreview +Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.Name = "TxbVideoFemsub" +Me.TxbVideoFemsub.ReadOnly = true +Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.TabIndex = 22 +Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub ' -Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) -Me.PBBackgroundPreview.Name = "PBBackgroundPreview" -Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) -Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PBBackgroundPreview.TabIndex = 0 -Me.PBBackgroundPreview.TabStop = false +'LblVideoFemdomTotal ' -'Button17 +Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" +Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotal.TabIndex = 19 +Me.LblVideoFemdomTotal.Text = "0" +Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Button17.BackColor = System.Drawing.Color.Transparent -Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load -Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button17.Location = New System.Drawing.Point(228, 36) -Me.Button17.Name = "Button17" -Me.Button17.Size = New System.Drawing.Size(103, 93) -Me.Button17.TabIndex = 1 -Me.Button17.UseVisualStyleBackColor = false +'TxbVideoFemdom ' -'CBStretchBack +Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.Name = "TxbVideoFemdom" +Me.TxbVideoFemdom.ReadOnly = true +Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.TabIndex = 18 +Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom ' -Me.CBStretchBack.Checked = true -Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) -Me.CBStretchBack.Name = "CBStretchBack" -Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) -Me.CBStretchBack.TabIndex = 2 -Me.CBStretchBack.Text = "Stretch Background" -Me.CBStretchBack.UseVisualStyleBackColor = true +'TxbVideoBlowjob ' -'Button18 +Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" +Me.TxbVideoBlowjob.ReadOnly = true +Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.TabIndex = 14 +Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob ' -Me.Button18.Location = New System.Drawing.Point(228, 155) -Me.Button18.Name = "Button18" -Me.Button18.Size = New System.Drawing.Size(103, 31) -Me.Button18.TabIndex = 3 -Me.Button18.Text = "Clear" -Me.Button18.UseVisualStyleBackColor = true +'LblVideoBlowjobTotal ' -'Label164 +Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" +Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotal.TabIndex = 15 +Me.LblVideoBlowjobTotal.Text = "0" +Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label164.BackColor = System.Drawing.Color.Transparent -Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label164.ForeColor = System.Drawing.Color.Black -Me.Label164.Location = New System.Drawing.Point(7, 6) -Me.Label164.Name = "Label164" -Me.Label164.Size = New System.Drawing.Size(692, 21) -Me.Label164.TabIndex = 49 -Me.Label164.Text = "Theme Settings" -Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'TxbVideoLesbian ' -'TabPage4 +Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.Name = "TxbVideoLesbian" +Me.TxbVideoLesbian.ReadOnly = true +Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.TabIndex = 10 +Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian ' -Me.TabPage4.BackColor = System.Drawing.Color.Silver -Me.TabPage4.Controls.Add(Me.Panel6) -Me.TabPage4.Location = New System.Drawing.Point(4, 22) -Me.TabPage4.Name = "TabPage4" -Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage4.Size = New System.Drawing.Size(720, 448) -Me.TabPage4.TabIndex = 3 -Me.TabPage4.Text = "Ranges" +'TxbVideoSoftCore ' -'Panel6 +Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" +Me.TxbVideoSoftCore.ReadOnly = true +Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.TabIndex = 6 +Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore ' -Me.Panel6.BackColor = System.Drawing.Color.LightGray -Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel6.Controls.Add(Me.GroupBox69) -Me.Panel6.Controls.Add(Me.GroupBox68) -Me.Panel6.Controls.Add(Me.GroupBox67) -Me.Panel6.Controls.Add(Me.GroupBox10) -Me.Panel6.Controls.Add(Me.GroupBox57) -Me.Panel6.Controls.Add(Me.GBRangeRuinChance) -Me.Panel6.Controls.Add(Me.GroupBox17) -Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) -Me.Panel6.Controls.Add(Me.PictureBox8) -Me.Panel6.Controls.Add(Me.Label38) -Me.Panel6.Location = New System.Drawing.Point(6, 6) -Me.Panel6.Name = "Panel6" -Me.Panel6.Size = New System.Drawing.Size(708, 437) -Me.Panel6.TabIndex = 91 +'LblVideoLesbianTotal ' -'GroupBox69 +Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" +Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotal.TabIndex = 11 +Me.LblVideoLesbianTotal.Text = "0" +Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) -Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) -Me.GroupBox69.Controls.Add(Me.TimedWriting) -Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) -Me.GroupBox69.Location = New System.Drawing.Point(236, 344) -Me.GroupBox69.Name = "GroupBox69" -Me.GroupBox69.Size = New System.Drawing.Size(166, 83) -Me.GroupBox69.TabIndex = 173 -Me.GroupBox69.TabStop = false -Me.GroupBox69.Text = "Writing Tasks" +'TxbVideoHardCore ' -'TypesSpeedVal +Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.Name = "TxbVideoHardCore" +Me.TxbVideoHardCore.ReadOnly = true +Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.TabIndex = 2 +Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore ' -Me.TypesSpeedVal.AutoSize = true -Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) -Me.TypesSpeedVal.Name = "TypesSpeedVal" -Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) -Me.TypesSpeedVal.TabIndex = 0 -Me.TypesSpeedVal.Text = "10" -Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight +'BTNVideoFemSub ' -'TypeSpeedLabel +Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSub.Name = "BTNVideoFemSub" +Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSub.TabIndex = 21 +Me.BTNVideoFemSub.Text = "1" +Me.BTNVideoFemSub.UseVisualStyleBackColor = false ' -Me.TypeSpeedLabel.AutoSize = true -Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) -Me.TypeSpeedLabel.Name = "TypeSpeedLabel" -Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) -Me.TypeSpeedLabel.TabIndex = 2 -Me.TypeSpeedLabel.Text = "Typing Speed:" +'LblVideoSoftCoreTotal ' -'GroupBox68 +Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" +Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotal.TabIndex = 7 +Me.LblVideoSoftCoreTotal.Text = "0" +Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.GroupBox68.Controls.Add(Me.NBTasksMax) -Me.GroupBox68.Controls.Add(Me.NBTasksMin) -Me.GroupBox68.Controls.Add(Me.Label165) -Me.GroupBox68.Controls.Add(Me.Label166) -Me.GroupBox68.Location = New System.Drawing.Point(236, 287) -Me.GroupBox68.Name = "GroupBox68" -Me.GroupBox68.Size = New System.Drawing.Size(166, 51) -Me.GroupBox68.TabIndex = 172 -Me.GroupBox68.TabStop = false -Me.GroupBox68.Text = "Session Tasks" +'BTNVideoFemDom ' -'NBTasksMax +Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDom.Name = "BTNVideoFemDom" +Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDom.TabIndex = 17 +Me.BTNVideoFemDom.Text = "1" +Me.BTNVideoFemDom.UseVisualStyleBackColor = false ' -Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) -Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) -Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTasksMax.Name = "NBTasksMax" -Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMax.TabIndex = 187 -Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) +'BTNVideoBlowjob ' -'NBTasksMin +Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" +Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjob.TabIndex = 13 +Me.BTNVideoBlowjob.Text = "1" +Me.BTNVideoBlowjob.UseVisualStyleBackColor = false ' -Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) -Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBTasksMin.Name = "NBTasksMin" -Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMin.TabIndex = 186 -Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) +'LblVideoHardCoreTotal ' -'Label165 +Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" +Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotal.TabIndex = 3 +Me.LblVideoHardCoreTotal.Text = "0" +Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label165.BackColor = System.Drawing.Color.Transparent -Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label165.ForeColor = System.Drawing.Color.Black -Me.Label165.Location = New System.Drawing.Point(100, 20) -Me.Label165.Name = "Label165" -Me.Label165.Size = New System.Drawing.Size(10, 17) -Me.Label165.TabIndex = 185 -Me.Label165.Text = "-" -Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNVideoLesbian ' -'Label166 +Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbian.Name = "BTNVideoLesbian" +Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbian.TabIndex = 9 +Me.BTNVideoLesbian.Text = "1" +Me.BTNVideoLesbian.UseVisualStyleBackColor = false ' -Me.Label166.BackColor = System.Drawing.Color.Transparent -Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label166.ForeColor = System.Drawing.Color.Black -Me.Label166.Location = New System.Drawing.Point(6, 21) -Me.Label166.Name = "Label166" -Me.Label166.Size = New System.Drawing.Size(49, 17) -Me.Label166.TabIndex = 188 -Me.Label166.Text = "Amount:" -Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNVideoSoftCore ' -'GroupBox67 +Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" +Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCore.TabIndex = 5 +Me.BTNVideoSoftCore.Text = "1" +Me.BTNVideoSoftCore.UseVisualStyleBackColor = false ' -Me.GroupBox67.Controls.Add(Me.Label161) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) -Me.GroupBox67.Controls.Add(Me.Label162) -Me.GroupBox67.Controls.Add(Me.Label163) -Me.GroupBox67.Controls.Add(Me.Label158) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) -Me.GroupBox67.Controls.Add(Me.Label159) -Me.GroupBox67.Controls.Add(Me.Label160) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) -Me.GroupBox67.Controls.Add(Me.Label119) -Me.GroupBox67.Controls.Add(Me.Label157) -Me.GroupBox67.Controls.Add(Me.Label151) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) -Me.GroupBox67.Controls.Add(Me.Label154) -Me.GroupBox67.Controls.Add(Me.Label155) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) -Me.GroupBox67.Controls.Add(Me.Label146) -Me.GroupBox67.Controls.Add(Me.Label149) -Me.GroupBox67.Location = New System.Drawing.Point(408, 288) -Me.GroupBox67.Name = "GroupBox67" -Me.GroupBox67.Size = New System.Drawing.Size(291, 139) -Me.GroupBox67.TabIndex = 171 -Me.GroupBox67.TabStop = false -Me.GroupBox67.Text = "Letter Tasks" +'BTNVideoHardCore ' -'Label161 +Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCore.Name = "BTNVideoHardCore" +Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCore.TabIndex = 1 +Me.BTNVideoHardCore.Text = "1" +Me.BTNVideoHardCore.UseVisualStyleBackColor = false ' -Me.Label161.BackColor = System.Drawing.Color.Transparent -Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label161.ForeColor = System.Drawing.Color.Black -Me.Label161.Location = New System.Drawing.Point(233, 110) -Me.Label161.Name = "Label161" -Me.Label161.Size = New System.Drawing.Size(50, 17) -Me.Label161.TabIndex = 204 -Me.Label161.Text = "minutes" -Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBVideoHardcore ' -'Label162 +Me.CBVideoHardcore.AutoSize = true +Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore +Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcore.Name = "CBVideoHardcore" +Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcore.TabIndex = 0 +Me.CBVideoHardcore.Text = "Hardcore" +Me.CBVideoHardcore.UseVisualStyleBackColor = true ' -Me.Label162.BackColor = System.Drawing.Color.Transparent -Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label162.ForeColor = System.Drawing.Color.Black -Me.Label162.Location = New System.Drawing.Point(167, 110) -Me.Label162.Name = "Label162" -Me.Label162.Size = New System.Drawing.Size(10, 17) -Me.Label162.TabIndex = 201 -Me.Label162.Text = "-" -Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBVideoSoftCore ' -'Label163 +Me.CBVideoSoftCore.AutoSize = true +Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore +Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCore.Name = "CBVideoSoftCore" +Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCore.TabIndex = 4 +Me.CBVideoSoftCore.Text = "Softcore" +Me.CBVideoSoftCore.UseVisualStyleBackColor = true ' -Me.Label163.BackColor = System.Drawing.Color.Transparent -Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label163.ForeColor = System.Drawing.Color.Black -Me.Label163.Location = New System.Drawing.Point(12, 111) -Me.Label163.Name = "Label163" -Me.Label163.Size = New System.Drawing.Size(151, 17) -Me.Label163.TabIndex = 200 -Me.Label163.Text = "CBT Time:" -Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBVideoLesbian ' -'Label158 +Me.CBVideoLesbian.AutoSize = true +Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian +Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbian.Name = "CBVideoLesbian" +Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbian.TabIndex = 8 +Me.CBVideoLesbian.Text = "Lesbian" +Me.CBVideoLesbian.UseVisualStyleBackColor = true ' -Me.Label158.BackColor = System.Drawing.Color.Transparent -Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label158.ForeColor = System.Drawing.Color.Black -Me.Label158.Location = New System.Drawing.Point(233, 87) -Me.Label158.Name = "Label158" -Me.Label158.Size = New System.Drawing.Size(50, 17) -Me.Label158.TabIndex = 199 -Me.Label158.Text = "minutes" -Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBVideoBlowjob ' -'Label159 +Me.CBVideoBlowjob.AutoSize = true +Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob +Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjob.Name = "CBVideoBlowjob" +Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjob.TabIndex = 12 +Me.CBVideoBlowjob.Text = "Blowjob" +Me.CBVideoBlowjob.UseVisualStyleBackColor = true ' -Me.Label159.BackColor = System.Drawing.Color.Transparent -Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label159.ForeColor = System.Drawing.Color.Black -Me.Label159.Location = New System.Drawing.Point(167, 87) -Me.Label159.Name = "Label159" -Me.Label159.Size = New System.Drawing.Size(10, 17) -Me.Label159.TabIndex = 196 -Me.Label159.Text = "-" -Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBVideoFemsub ' -'Label160 +Me.CBVideoFemsub.AutoSize = true +Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub +Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsub.Name = "CBVideoFemsub" +Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsub.TabIndex = 20 +Me.CBVideoFemsub.Text = "Femsub" +Me.CBVideoFemsub.UseVisualStyleBackColor = true ' -Me.Label160.BackColor = System.Drawing.Color.Transparent -Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label160.ForeColor = System.Drawing.Color.Black -Me.Label160.Location = New System.Drawing.Point(12, 88) -Me.Label160.Name = "Label160" -Me.Label160.Size = New System.Drawing.Size(151, 17) -Me.Label160.TabIndex = 195 -Me.Label160.Text = "Edge Hold Time:" -Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBVideoFemdom ' -'Label119 +Me.CBVideoFemdom.AutoSize = true +Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom +Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdom.Name = "CBVideoFemdom" +Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdom.TabIndex = 16 +Me.CBVideoFemdom.Text = "Femdom" +Me.CBVideoFemdom.UseVisualStyleBackColor = true ' -Me.Label119.BackColor = System.Drawing.Color.Transparent -Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label119.ForeColor = System.Drawing.Color.Black -Me.Label119.Location = New System.Drawing.Point(167, 64) -Me.Label119.Name = "Label119" -Me.Label119.Size = New System.Drawing.Size(10, 17) -Me.Label119.TabIndex = 192 -Me.Label119.Text = "-" -Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LblVideoHeader ' -'Label157 +Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black +Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) +Me.LblVideoHeader.Name = "LblVideoHeader" +Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) +Me.LblVideoHeader.TabIndex = 49 +Me.LblVideoHeader.Text = "Video Settings" +Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label157.BackColor = System.Drawing.Color.Transparent -Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label157.ForeColor = System.Drawing.Color.Black -Me.Label157.Location = New System.Drawing.Point(12, 65) -Me.Label157.Name = "Label157" -Me.Label157.Size = New System.Drawing.Size(151, 17) -Me.Label157.TabIndex = 191 -Me.Label157.Text = "Edges:" -Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TabPage20 ' -'Label151 +Me.TabPage20.BackColor = System.Drawing.Color.Silver +Me.TabPage20.Controls.Add(Me.TabControl1) +Me.TabPage20.Location = New System.Drawing.Point(4, 22) +Me.TabPage20.Name = "TabPage20" +Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage20.Size = New System.Drawing.Size(720, 448) +Me.TabPage20.TabIndex = 16 +Me.TabPage20.Text = "Apps" ' -Me.Label151.BackColor = System.Drawing.Color.Transparent -Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label151.ForeColor = System.Drawing.Color.Black -Me.Label151.Location = New System.Drawing.Point(233, 41) -Me.Label151.Name = "Label151" -Me.Label151.Size = New System.Drawing.Size(50, 17) -Me.Label151.TabIndex = 190 -Me.Label151.Text = "minutes" -Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TabControl1 ' -'Label154 +Me.TabControl1.Controls.Add(Me.TabPage22) +Me.TabControl1.Controls.Add(Me.TpGames) +Me.TabControl1.Controls.Add(Me.TabPage6) +Me.TabControl1.Location = New System.Drawing.Point(6, 6) +Me.TabControl1.Name = "TabControl1" +Me.TabControl1.SelectedIndex = 0 +Me.TabControl1.Size = New System.Drawing.Size(708, 437) +Me.TabControl1.TabIndex = 0 ' -Me.Label154.BackColor = System.Drawing.Color.Transparent -Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label154.ForeColor = System.Drawing.Color.Black -Me.Label154.Location = New System.Drawing.Point(167, 41) -Me.Label154.Name = "Label154" -Me.Label154.Size = New System.Drawing.Size(10, 17) -Me.Label154.TabIndex = 187 -Me.Label154.Text = "-" -Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TabPage22 ' -'Label155 +Me.TabPage22.BackColor = System.Drawing.Color.LightGray +Me.TabPage22.Controls.Add(Me.PNLGlitter) +Me.TabPage22.Location = New System.Drawing.Point(4, 22) +Me.TabPage22.Name = "TabPage22" +Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage22.Size = New System.Drawing.Size(700, 411) +Me.TabPage22.TabIndex = 0 +Me.TabPage22.Text = "Glitter" ' -Me.Label155.BackColor = System.Drawing.Color.Transparent -Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label155.ForeColor = System.Drawing.Color.Black -Me.Label155.Location = New System.Drawing.Point(12, 42) -Me.Label155.Name = "Label155" -Me.Label155.Size = New System.Drawing.Size(151, 17) -Me.Label155.TabIndex = 186 -Me.Label155.Text = "Stroking Time:" -Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'PNLGlitter ' -'Label146 +Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray +Me.PNLGlitter.Controls.Add(Me.GroupBox4) +Me.PNLGlitter.Controls.Add(Me.Button15) +Me.PNLGlitter.Controls.Add(Me.Button16) +Me.PNLGlitter.Controls.Add(Me.Label121) +Me.PNLGlitter.Controls.Add(Me.Label122) +Me.PNLGlitter.Controls.Add(Me.GBGlitterD) +Me.PNLGlitter.Controls.Add(Me.GBGlitter1) +Me.PNLGlitter.Controls.Add(Me.GBGlitter3) +Me.PNLGlitter.Controls.Add(Me.GBGlitter2) +Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) +Me.PNLGlitter.Name = "PNLGlitter" +Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) +Me.PNLGlitter.TabIndex = 91 ' -Me.Label146.BackColor = System.Drawing.Color.Transparent -Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label146.ForeColor = System.Drawing.Color.Black -Me.Label146.Location = New System.Drawing.Point(167, 18) -Me.Label146.Name = "Label146" -Me.Label146.Size = New System.Drawing.Size(10, 17) -Me.Label146.TabIndex = 182 -Me.Label146.Text = "-" -Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'GroupBox4 ' -'Label149 +Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) +Me.GroupBox4.Location = New System.Drawing.Point(7, 307) +Me.GroupBox4.Name = "GroupBox4" +Me.GroupBox4.Size = New System.Drawing.Size(344, 85) +Me.GroupBox4.TabIndex = 167 +Me.GroupBox4.TabStop = false +Me.GroupBox4.Text = "Change Current Domme" ' -Me.Label149.BackColor = System.Drawing.Color.Transparent -Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label149.ForeColor = System.Drawing.Color.Black -Me.Label149.Location = New System.Drawing.Point(12, 19) -Me.Label149.Name = "Label149" -Me.Label149.Size = New System.Drawing.Size(151, 17) -Me.Label149.TabIndex = 181 -Me.Label149.Text = "Strokes:" -Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LBLCurrentDomme ' -'GroupBox10 +Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) +Me.LBLCurrentDomme.Name = "LBLCurrentDomme" +Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) +Me.LBLCurrentDomme.TabIndex = 168 +Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.GroupBox10.Controls.Add(Me.Label112) -Me.GroupBox10.Controls.Add(Me.NBNextImageChance) -Me.GroupBox10.Controls.Add(Me.Label6) -Me.GroupBox10.Location = New System.Drawing.Point(408, 31) -Me.GroupBox10.Name = "GroupBox10" -Me.GroupBox10.Size = New System.Drawing.Size(291, 54) -Me.GroupBox10.TabIndex = 170 -Me.GroupBox10.TabStop = false -Me.GroupBox10.Text = "Tease Slideshow" +'BTNDomChangeContact1 ' -'Label112 +Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) +Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" +Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact1.TabIndex = 173 +Me.BTNDomChangeContact1.Text = "Contact 1" +Me.BTNDomChangeContact1.UseVisualStyleBackColor = false ' -Me.Label112.BackColor = System.Drawing.Color.Transparent -Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label112.ForeColor = System.Drawing.Color.Black -Me.Label112.Location = New System.Drawing.Point(233, 21) -Me.Label112.Name = "Label112" -Me.Label112.Size = New System.Drawing.Size(50, 17) -Me.Label112.TabIndex = 180 -Me.Label112.Text = "percent" -Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNDomChangeRandom ' -'NBNextImageChance +Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) +Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" +Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeRandom.TabIndex = 172 +Me.BTNDomChangeRandom.Text = "Random" +Me.BTNDomChangeRandom.UseVisualStyleBackColor = false ' -Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) -Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBNextImageChance.Name = "NBNextImageChance" -Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) -Me.NBNextImageChance.TabIndex = 179 -Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) +'BTNDomChangeContact3 ' -'Label6 +Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) +Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" +Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact3.TabIndex = 171 +Me.BTNDomChangeContact3.Text = "Contact 3" +Me.BTNDomChangeContact3.UseVisualStyleBackColor = false ' -Me.Label6.BackColor = System.Drawing.Color.Transparent -Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label6.ForeColor = System.Drawing.Color.Black -Me.Label6.Location = New System.Drawing.Point(9, 21) -Me.Label6.Name = "Label6" -Me.Label6.Size = New System.Drawing.Size(151, 17) -Me.Label6.TabIndex = 154 -Me.Label6.Text = "Image Next/Previous Chance:" -Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNDomChangeContact2 ' -'GroupBox57 +Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) +Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" +Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact2.TabIndex = 170 +Me.BTNDomChangeContact2.Text = "Contact 2" +Me.BTNDomChangeContact2.UseVisualStyleBackColor = false ' -Me.GroupBox57.Controls.Add(Me.Label139) -Me.GroupBox57.Controls.Add(Me.NBTauntEdging) -Me.GroupBox57.Controls.Add(Me.LBLVtf) -Me.GroupBox57.Controls.Add(Me.LBLStf) -Me.GroupBox57.Controls.Add(Me.SliderSTF) -Me.GroupBox57.Controls.Add(Me.TauntSlider) -Me.GroupBox57.Controls.Add(Me.Label106) -Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) -Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) -Me.GroupBox57.Controls.Add(Me.Label103) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) -Me.GroupBox57.Controls.Add(Me.Label105) -Me.GroupBox57.Controls.Add(Me.Label101) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) -Me.GroupBox57.Controls.Add(Me.Label102) -Me.GroupBox57.Controls.Add(Me.Label97) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) -Me.GroupBox57.Controls.Add(Me.Label99) -Me.GroupBox57.Controls.Add(Me.Label96) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) -Me.GroupBox57.Controls.Add(Me.Label95) -Me.GroupBox57.Controls.Add(Me.Label49) -Me.GroupBox57.Controls.Add(Me.Label141) -Me.GroupBox57.Location = New System.Drawing.Point(7, 30) -Me.GroupBox57.Name = "GroupBox57" -Me.GroupBox57.Size = New System.Drawing.Size(223, 308) -Me.GroupBox57.TabIndex = 169 -Me.GroupBox57.TabStop = false -Me.GroupBox57.Text = "Tease" +'BTNDomChangeDomme ' -'Label139 +Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) +Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" +Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeDomme.TabIndex = 168 +Me.BTNDomChangeDomme.Text = "Domme" +Me.BTNDomChangeDomme.UseVisualStyleBackColor = false ' -Me.Label139.BackColor = System.Drawing.Color.Transparent -Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label139.ForeColor = System.Drawing.Color.Black -Me.Label139.Location = New System.Drawing.Point(175, 171) -Me.Label139.Name = "Label139" -Me.Label139.Size = New System.Drawing.Size(50, 17) -Me.Label139.TabIndex = 184 -Me.Label139.Text = "percent" -Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'Button15 ' -'NBTauntEdging +Me.Button15.BackColor = System.Drawing.Color.LightGray +Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button15.FlatAppearance.BorderSize = 0 +Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button15.ForeColor = System.Drawing.Color.Black +Me.Button15.Location = New System.Drawing.Point(670, 366) +Me.Button15.Name = "Button15" +Me.Button15.Size = New System.Drawing.Size(30, 26) +Me.Button15.TabIndex = 163 +Me.Button15.UseVisualStyleBackColor = false ' -Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) -Me.NBTauntEdging.Name = "NBTauntEdging" -Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) -Me.NBTauntEdging.TabIndex = 188 -Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) +'Button16 ' -'LBLVtf +Me.Button16.BackColor = System.Drawing.Color.LightGray +Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button16.FlatAppearance.BorderSize = 0 +Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button16.ForeColor = System.Drawing.Color.Black +Me.Button16.Location = New System.Drawing.Point(667, 324) +Me.Button16.Name = "Button16" +Me.Button16.Size = New System.Drawing.Size(30, 26) +Me.Button16.TabIndex = 164 +Me.Button16.UseVisualStyleBackColor = false ' -Me.LBLVtf.BackColor = System.Drawing.Color.Transparent -Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLVtf.ForeColor = System.Drawing.Color.Black -Me.LBLVtf.Location = New System.Drawing.Point(128, 261) -Me.LBLVtf.Name = "LBLVtf" -Me.LBLVtf.Size = New System.Drawing.Size(87, 17) -Me.LBLVtf.TabIndex = 187 -Me.LBLVtf.Text = "Normal" -Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Label121 ' -'LBLStf +Me.Label121.AutoSize = true +Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label121.ForeColor = System.Drawing.Color.Black +Me.Label121.Location = New System.Drawing.Point(669, 352) +Me.Label121.Name = "Label121" +Me.Label121.Size = New System.Drawing.Size(27, 13) +Me.Label121.TabIndex = 166 +Me.Label121.Text = "load" +Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.LBLStf.BackColor = System.Drawing.Color.Transparent -Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLStf.ForeColor = System.Drawing.Color.Black -Me.LBLStf.Location = New System.Drawing.Point(130, 220) -Me.LBLStf.Name = "LBLStf" -Me.LBLStf.Size = New System.Drawing.Size(87, 17) -Me.LBLStf.TabIndex = 165 -Me.LBLStf.Text = "Normal" -Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Label122 ' -'SliderSTF +Me.Label122.AutoSize = true +Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label122.ForeColor = System.Drawing.Color.Black +Me.Label122.Location = New System.Drawing.Point(667, 313) +Me.Label122.Name = "Label122" +Me.Label122.Size = New System.Drawing.Size(30, 13) +Me.Label122.TabIndex = 165 +Me.Label122.Text = "save" +Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.SliderSTF.AutoSize = false -Me.SliderSTF.LargeChange = 1 -Me.SliderSTF.Location = New System.Drawing.Point(130, 199) -Me.SliderSTF.Maximum = 5 -Me.SliderSTF.Minimum = 1 -Me.SliderSTF.Name = "SliderSTF" -Me.SliderSTF.Size = New System.Drawing.Size(87, 25) -Me.SliderSTF.TabIndex = 163 -Me.SliderSTF.Value = 3 +'GBGlitterD ' -'TauntSlider +Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray +Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) +Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom2) +Me.GBGlitterD.Controls.Add(Me.GlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom1) +Me.GBGlitterD.Controls.Add(Me.CBDaily) +Me.GBGlitterD.Controls.Add(Me.CBTrivia) +Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) +Me.GBGlitterD.Controls.Add(Me.CBEgotist) +Me.GBGlitterD.Controls.Add(Me.CBTease) +Me.GBGlitterD.Controls.Add(Me.GlitterAV) +Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) +Me.GBGlitterD.Name = "GBGlitterD" +Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) +Me.GBGlitterD.TabIndex = 162 +Me.GBGlitterD.TabStop = false +Me.GBGlitterD.Text = "Domme" ' -Me.TauntSlider.AutoSize = false -Me.TauntSlider.LargeChange = 1 -Me.TauntSlider.Location = New System.Drawing.Point(130, 240) -Me.TauntSlider.Maximum = 9 -Me.TauntSlider.Minimum = 1 -Me.TauntSlider.Name = "TauntSlider" -Me.TauntSlider.Size = New System.Drawing.Size(87, 25) -Me.TauntSlider.TabIndex = 161 -Me.TauntSlider.Value = 4 +'GrbGlitterfeed ' -'Label106 +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) +Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) +Me.GrbGlitterfeed.Name = "GrbGlitterfeed" +Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) +Me.GrbGlitterfeed.TabIndex = 168 +Me.GrbGlitterfeed.TabStop = false +Me.GrbGlitterfeed.Text = "Glitterfeeds" ' -Me.Label106.BackColor = System.Drawing.Color.Transparent -Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label106.ForeColor = System.Drawing.Color.Black -Me.Label106.Location = New System.Drawing.Point(6, 243) -Me.Label106.Name = "Label106" -Me.Label106.Size = New System.Drawing.Size(123, 17) -Me.Label106.TabIndex = 186 -Me.Label106.Text = "Video Taunt Frequency:" -Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBGlitterFeedScripts ' -'CBTauntCycleDD +Me.CBGlitterFeedScripts.AutoSize = true +Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent +Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts +Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) +Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) +Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" +Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) +Me.CBGlitterFeedScripts.TabIndex = 146 +Me.CBGlitterFeedScripts.Text = "Scripts" +Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false ' -Me.CBTauntCycleDD.AutoSize = true -Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black -Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) -Me.CBTauntCycleDD.Name = "CBTauntCycleDD" -Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) -Me.CBTauntCycleDD.TabIndex = 185 -Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" -Me.CBTauntCycleDD.UseVisualStyleBackColor = true +'CBGlitterFeed ' -'CBTeaseLengthDD +Me.CBGlitterFeed.AutoSize = true +Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed +Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) +Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) +Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) +Me.CBGlitterFeed.Name = "CBGlitterFeed" +Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeed.TabIndex = 145 +Me.CBGlitterFeed.Text = "On" +Me.CBGlitterFeed.UseVisualStyleBackColor = true ' -Me.CBTeaseLengthDD.AutoSize = true -Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black -Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) -Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" -Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) -Me.CBTeaseLengthDD.TabIndex = 184 -Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" -Me.CBTeaseLengthDD.UseVisualStyleBackColor = true +'CBGlitterFeedOff ' -'Label103 +Me.CBGlitterFeedOff.AutoSize = true +Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff +Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) +Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) +Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" +Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeedOff.TabIndex = 147 +Me.CBGlitterFeedOff.TabStop = true +Me.CBGlitterFeedOff.Text = "Off" +Me.CBGlitterFeedOff.UseVisualStyleBackColor = true ' -Me.Label103.BackColor = System.Drawing.Color.Transparent -Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label103.ForeColor = System.Drawing.Color.Black -Me.Label103.Location = New System.Drawing.Point(175, 117) -Me.Label103.Name = "Label103" -Me.Label103.Size = New System.Drawing.Size(50, 17) -Me.Label103.TabIndex = 183 -Me.Label103.Text = "minutes" -Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNGlitterD ' -'NBTauntCycleMax +Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black +Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitterD.Name = "BTNGlitterD" +Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitterD.TabIndex = 166 +Me.BTNGlitterD.Text = "Choose Name Color" +Me.BTNGlitterD.UseVisualStyleBackColor = false ' -Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) -Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) -Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBTauntCycleMax.Name = "NBTauntCycleMax" -Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMax.TabIndex = 182 -Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) +'LBLGlitterNCDomme ' -'Label105 +Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White +Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor +Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" +Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNCDomme.TabIndex = 163 +Me.LBLGlitterNCDomme.Text = "Preview" +Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label105.BackColor = System.Drawing.Color.Transparent -Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label105.ForeColor = System.Drawing.Color.Black -Me.Label105.Location = New System.Drawing.Point(6, 117) -Me.Label105.Name = "Label105" -Me.Label105.Size = New System.Drawing.Size(123, 17) -Me.Label105.TabIndex = 181 -Me.Label105.Text = "Taunt Cycle Maximum:" -Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LBLGlitterSlider ' -'Label101 +Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider.Name = "LBLGlitterSlider" +Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider.TabIndex = 162 +Me.LBLGlitterSlider.Text = "Post Frequency" +Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label101.BackColor = System.Drawing.Color.Transparent -Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label101.ForeColor = System.Drawing.Color.Black -Me.Label101.Location = New System.Drawing.Point(175, 93) -Me.Label101.Name = "Label101" -Me.Label101.Size = New System.Drawing.Size(50, 17) -Me.Label101.TabIndex = 180 -Me.Label101.Text = "minutes" -Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBCustom2 ' -'NBTauntCycleMin +Me.CBCustom2.AutoSize = true +Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 +Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom2.ForeColor = System.Drawing.Color.Black +Me.CBCustom2.Location = New System.Drawing.Point(149, 121) +Me.CBCustom2.Name = "CBCustom2" +Me.CBCustom2.Size = New System.Drawing.Size(70, 17) +Me.CBCustom2.TabIndex = 161 +Me.CBCustom2.Text = "Custom 2" +Me.CBCustom2.UseVisualStyleBackColor = true ' -Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) -Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTauntCycleMin.Name = "NBTauntCycleMin" -Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMin.TabIndex = 179 -Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) +'GlitterSlider ' -'Label102 +Me.GlitterSlider.AutoSize = false +Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider.LargeChange = 1 +Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider.Maximum = 9 +Me.GlitterSlider.Minimum = 1 +Me.GlitterSlider.Name = "GlitterSlider" +Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider.TabIndex = 160 +Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider ' -Me.Label102.BackColor = System.Drawing.Color.Transparent -Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label102.ForeColor = System.Drawing.Color.Black -Me.Label102.Location = New System.Drawing.Point(6, 93) -Me.Label102.Name = "Label102" -Me.Label102.Size = New System.Drawing.Size(123, 17) -Me.Label102.TabIndex = 178 -Me.Label102.Text = "Taunt Cycle Minimum:" -Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBCustom1 ' -'Label97 +Me.CBCustom1.AutoSize = true +Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 +Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom1.ForeColor = System.Drawing.Color.Black +Me.CBCustom1.Location = New System.Drawing.Point(149, 98) +Me.CBCustom1.Name = "CBCustom1" +Me.CBCustom1.Size = New System.Drawing.Size(70, 17) +Me.CBCustom1.TabIndex = 157 +Me.CBCustom1.Text = "Custom 1" +Me.CBCustom1.UseVisualStyleBackColor = true ' -Me.Label97.BackColor = System.Drawing.Color.Transparent -Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label97.ForeColor = System.Drawing.Color.Black -Me.Label97.Location = New System.Drawing.Point(175, 46) -Me.Label97.Name = "Label97" -Me.Label97.Size = New System.Drawing.Size(50, 17) -Me.Label97.TabIndex = 177 -Me.Label97.Text = "minutes" -Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBDaily ' -'NBTeaseLengthMax +Me.CBDaily.AutoSize = true +Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily +Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBDaily.ForeColor = System.Drawing.Color.Black +Me.CBDaily.Location = New System.Drawing.Point(79, 121) +Me.CBDaily.Name = "CBDaily" +Me.CBDaily.Size = New System.Drawing.Size(49, 17) +Me.CBDaily.TabIndex = 156 +Me.CBDaily.Text = "Daily" +Me.CBDaily.UseVisualStyleBackColor = true ' -Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) -Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) -Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" -Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMax.TabIndex = 176 -Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +'CBTrivia ' -'Label99 +Me.CBTrivia.AutoSize = true +Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia +Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTrivia.ForeColor = System.Drawing.Color.Black +Me.CBTrivia.Location = New System.Drawing.Point(79, 98) +Me.CBTrivia.Name = "CBTrivia" +Me.CBTrivia.Size = New System.Drawing.Size(52, 17) +Me.CBTrivia.TabIndex = 155 +Me.CBTrivia.Text = "Trivia" +Me.CBTrivia.UseVisualStyleBackColor = true ' -Me.Label99.BackColor = System.Drawing.Color.Transparent -Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label99.ForeColor = System.Drawing.Color.Black -Me.Label99.Location = New System.Drawing.Point(6, 46) -Me.Label99.Name = "Label99" -Me.Label99.Size = New System.Drawing.Size(123, 17) -Me.Label99.TabIndex = 175 -Me.Label99.Text = "Tease Length Maximum:" -Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TBGlitterShortName ' -'Label96 +Me.TBGlitterShortName.BackColor = System.Drawing.Color.White +Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black +Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) +Me.TBGlitterShortName.Name = "TBGlitterShortName" +Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) +Me.TBGlitterShortName.TabIndex = 49 +Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN +Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label96.BackColor = System.Drawing.Color.Transparent -Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label96.ForeColor = System.Drawing.Color.Black -Me.Label96.Location = New System.Drawing.Point(175, 20) -Me.Label96.Name = "Label96" -Me.Label96.Size = New System.Drawing.Size(50, 17) -Me.Label96.TabIndex = 174 -Me.Label96.Text = "minutes" -Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBEgotist ' -'NBTeaseLengthMin +Me.CBEgotist.AutoSize = true +Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist +Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBEgotist.ForeColor = System.Drawing.Color.Black +Me.CBEgotist.Location = New System.Drawing.Point(9, 121) +Me.CBEgotist.Name = "CBEgotist" +Me.CBEgotist.Size = New System.Drawing.Size(58, 17) +Me.CBEgotist.TabIndex = 153 +Me.CBEgotist.Text = "Egotist" +Me.CBEgotist.UseVisualStyleBackColor = true ' -Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) -Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) -Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" -Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMin.TabIndex = 169 -Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) +'CBTease ' -'Label95 +Me.CBTease.AutoSize = true +Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease +Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTease.ForeColor = System.Drawing.Color.Black +Me.CBTease.Location = New System.Drawing.Point(9, 98) +Me.CBTease.Name = "CBTease" +Me.CBTease.Size = New System.Drawing.Size(56, 17) +Me.CBTease.TabIndex = 152 +Me.CBTease.Text = "Tease" +Me.CBTease.UseVisualStyleBackColor = true ' -Me.Label95.BackColor = System.Drawing.Color.Transparent -Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label95.ForeColor = System.Drawing.Color.Black -Me.Label95.Location = New System.Drawing.Point(6, 20) -Me.Label95.Name = "Label95" -Me.Label95.Size = New System.Drawing.Size(123, 17) -Me.Label95.TabIndex = 166 -Me.Label95.Text = "Tease Length Minimum:" -Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'GlitterAV ' -'Label49 +Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV.Name = "GlitterAV" +Me.GlitterAV.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV.TabIndex = 149 +Me.GlitterAV.TabStop = false ' -Me.Label49.BackColor = System.Drawing.Color.Transparent -Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label49.ForeColor = System.Drawing.Color.Black -Me.Label49.Location = New System.Drawing.Point(6, 207) -Me.Label49.Name = "Label49" -Me.Label49.Size = New System.Drawing.Size(132, 17) -Me.Label49.TabIndex = 164 -Me.Label49.Text = "Stroke Taunt Frequency:" -Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'GBGlitter1 +' +Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.CBGlitter1) +Me.GBGlitter1.Controls.Add(Me.TBGlitter1) +Me.GBGlitter1.Controls.Add(Me.GlitterAV1) +Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) +Me.GBGlitter1.Name = "GBGlitter1" +Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter1.TabIndex = 161 +Me.GBGlitter1.TabStop = false +Me.GBGlitter1.Text = "Contact 1" ' -'Label141 +'BtnContact1ImageDirClear ' -Me.Label141.BackColor = System.Drawing.Color.Transparent -Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label141.ForeColor = System.Drawing.Color.Black -Me.Label141.Location = New System.Drawing.Point(6, 163) -Me.Label141.Name = "Label141" -Me.Label141.Size = New System.Drawing.Size(141, 32) -Me.Label141.TabIndex = 189 -Me.Label141.Text = "Edging Ends Taunts:" -Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" +Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact1ImageDirClear.TabIndex = 181 +Me.BtnContact1ImageDirClear.Text = "Clear" +Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false ' -'GBRangeRuinChance +'BtnContact1ImageDir ' -Me.GBRangeRuinChance.Controls.Add(Me.Label90) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) -Me.GBRangeRuinChance.Controls.Add(Me.Label91) -Me.GBRangeRuinChance.Controls.Add(Me.Label92) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) -Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) -Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) -Me.GBRangeRuinChance.Name = "GBRangeRuinChance" -Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeRuinChance.TabIndex = 168 -Me.GBRangeRuinChance.TabStop = false -Me.GBRangeRuinChance.Text = "Ruin Chance" +Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" +Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact1ImageDir.TabIndex = 177 +Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" +Me.BtnContact1ImageDir.UseVisualStyleBackColor = false ' -'Label90 +'TbxContact1ImageDir ' -Me.Label90.BackColor = System.Drawing.Color.Transparent -Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label90.ForeColor = System.Drawing.Color.Black -Me.Label90.Location = New System.Drawing.Point(6, 94) -Me.Label90.Name = "Label90" -Me.Label90.Size = New System.Drawing.Size(83, 17) -Me.Label90.TabIndex = 173 -Me.Label90.Text = "Rarely Ruins:" -Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" +Me.TbxContact1ImageDir.ReadOnly = true +Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.TabIndex = 176 +Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir ' -'NBRuinSometimes +'BTNGlitter1 ' -Me.NBRuinSometimes.Enabled = false -Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinSometimes.Name = "NBRuinSometimes" -Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBRuinSometimes.TabIndex = 169 -Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter1.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter1.Name = "BTNGlitter1" +Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter1.TabIndex = 175 +Me.BTNGlitter1.Text = "Choose Name Color" +Me.BTNGlitter1.UseVisualStyleBackColor = false ' -'Label91 +'LBLGlitterNC1 ' -Me.Label91.BackColor = System.Drawing.Color.Transparent -Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label91.ForeColor = System.Drawing.Color.Black -Me.Label91.Location = New System.Drawing.Point(6, 68) -Me.Label91.Name = "Label91" -Me.Label91.Size = New System.Drawing.Size(102, 17) -Me.Label91.TabIndex = 172 -Me.Label91.Text = "Sometimes Ruins:" -Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color +Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC1.Name = "LBLGlitterNC1" +Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC1.TabIndex = 166 +Me.LBLGlitterNC1.Text = "Preview" +Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label92 +'LBLGlitterSlider1 ' -Me.Label92.BackColor = System.Drawing.Color.Transparent -Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label92.ForeColor = System.Drawing.Color.Black -Me.Label92.Location = New System.Drawing.Point(6, 42) -Me.Label92.Name = "Label92" -Me.Label92.Size = New System.Drawing.Size(72, 17) -Me.Label92.TabIndex = 171 -Me.Label92.Text = "Often Ruins:" -Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" +Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider1.TabIndex = 163 +Me.LBLGlitterSlider1.Text = "Response Frequency" +Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBRuinRarely +'GlitterSlider1 ' -Me.NBRuinRarely.Enabled = false -Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) -Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinRarely.Name = "NBRuinRarely" -Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) -Me.NBRuinRarely.TabIndex = 170 -Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.GlitterSlider1.AutoSize = false +Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider1.LargeChange = 1 +Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider1.Maximum = 9 +Me.GlitterSlider1.Minimum = 1 +Me.GlitterSlider1.Name = "GlitterSlider1" +Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider1.TabIndex = 161 +Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider ' -'NBRuinOften +'CBGlitter1 ' -Me.NBRuinOften.Enabled = false -Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) -Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinOften.Name = "NBRuinOften" -Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) -Me.NBRuinOften.TabIndex = 168 -Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.CBGlitter1.AutoSize = true +Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 +Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter1.ForeColor = System.Drawing.Color.Black +Me.CBGlitter1.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter1.Name = "CBGlitter1" +Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter1.TabIndex = 151 +Me.CBGlitter1.Text = "Enable This Contact" +Me.CBGlitter1.UseVisualStyleBackColor = true ' -'CBRangeRuin +'TBGlitter1 ' -Me.CBRangeRuin.AutoSize = true -Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black -Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) -Me.CBRangeRuin.Name = "CBRangeRuin" -Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) -Me.CBRangeRuin.TabIndex = 159 -Me.CBRangeRuin.Text = "Domme Decide" -Me.CBRangeRuin.UseVisualStyleBackColor = true +Me.TBGlitter1.BackColor = System.Drawing.Color.White +Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter1.ForeColor = System.Drawing.Color.Black +Me.TBGlitter1.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter1.Name = "TBGlitter1" +Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter1.TabIndex = 49 +Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 +Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'GroupBox17 +'GlitterAV1 ' -Me.GroupBox17.Controls.Add(Me.GroupBox19) -Me.GroupBox17.Controls.Add(Me.GroupBox18) -Me.GroupBox17.Location = New System.Drawing.Point(408, 91) -Me.GroupBox17.Name = "GroupBox17" -Me.GroupBox17.Size = New System.Drawing.Size(291, 190) -Me.GroupBox17.TabIndex = 0 -Me.GroupBox17.TabStop = false -Me.GroupBox17.Text = "Video Teases" +Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV1.Name = "GlitterAV1" +Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV1.TabIndex = 149 +Me.GlitterAV1.TabStop = false ' -'GroupBox19 +'GBGlitter3 ' -Me.GroupBox19.Controls.Add(Me.Label110) -Me.GroupBox19.Controls.Add(Me.Label111) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) -Me.GroupBox19.Controls.Add(Me.NBRedLightMax) -Me.GroupBox19.Controls.Add(Me.Label26) -Me.GroupBox19.Controls.Add(Me.NBRedLightMin) -Me.GroupBox19.Controls.Add(Me.Label28) -Me.GroupBox19.Controls.Add(Me.Label27) -Me.GroupBox19.Controls.Add(Me.Label29) -Me.GroupBox19.Location = New System.Drawing.Point(6, 110) -Me.GroupBox19.Name = "GroupBox19" -Me.GroupBox19.Size = New System.Drawing.Size(279, 66) -Me.GroupBox19.TabIndex = 2 -Me.GroupBox19.TabStop = false -Me.GroupBox19.Text = "Red Light, Green Light" +Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.CBGlitter3) +Me.GBGlitter3.Controls.Add(Me.TBGlitter3) +Me.GBGlitter3.Controls.Add(Me.GlitterAV3) +Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) +Me.GBGlitter3.Name = "GBGlitter3" +Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter3.TabIndex = 160 +Me.GBGlitter3.TabStop = false +Me.GBGlitter3.Text = "Contact 3" ' -'Label110 +'BtnContact3ImageDirClear ' -Me.Label110.BackColor = System.Drawing.Color.Transparent -Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label110.ForeColor = System.Drawing.Color.Black -Me.Label110.Location = New System.Drawing.Point(227, 39) -Me.Label110.Name = "Label110" -Me.Label110.Size = New System.Drawing.Size(50, 17) -Me.Label110.TabIndex = 181 -Me.Label110.Text = "seconds" -Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" +Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact3ImageDirClear.TabIndex = 180 +Me.BtnContact3ImageDirClear.Text = "Clear" +Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false ' -'Label111 +'BtnContact3ImageDir ' -Me.Label111.BackColor = System.Drawing.Color.Transparent -Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label111.ForeColor = System.Drawing.Color.Black -Me.Label111.Location = New System.Drawing.Point(227, 16) -Me.Label111.Name = "Label111" -Me.Label111.Size = New System.Drawing.Size(50, 17) -Me.Label111.TabIndex = 180 -Me.Label111.Text = "seconds" -Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" +Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact3ImageDir.TabIndex = 179 +Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" +Me.BtnContact3ImageDir.UseVisualStyleBackColor = false ' -'NBGreenLightMax +'TbxContact3ImageDir ' -Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) -Me.NBGreenLightMax.Name = "NBGreenLightMax" -Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMax.TabIndex = 156 -Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" +Me.TbxContact3ImageDir.ReadOnly = true +Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.TabIndex = 178 +Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir ' -'NBGreenLightMin +'BTNGlitter3 ' -Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) -Me.NBGreenLightMin.Name = "NBGreenLightMin" -Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMin.TabIndex = 155 -Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter3.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter3.Name = "BTNGlitter3" +Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter3.TabIndex = 175 +Me.BTNGlitter3.Text = "Choose Name Color" +Me.BTNGlitter3.UseVisualStyleBackColor = false ' -'NBRedLightMax +'LBLGlitterNC3 ' -Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) -Me.NBRedLightMax.Name = "NBRedLightMax" -Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMax.TabIndex = 152 -Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) +Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color +Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC3.Name = "LBLGlitterNC3" +Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC3.TabIndex = 166 +Me.LBLGlitterNC3.Text = "Preview" +Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label26 +'LBLGlitterSlider3 ' -Me.Label26.BackColor = System.Drawing.Color.Transparent -Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label26.ForeColor = System.Drawing.Color.Black -Me.Label26.Location = New System.Drawing.Point(161, 38) -Me.Label26.Name = "Label26" -Me.Label26.Size = New System.Drawing.Size(10, 17) -Me.Label26.TabIndex = 154 -Me.Label26.Text = "-" -Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" +Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider3.TabIndex = 163 +Me.LBLGlitterSlider3.Text = "Response Frequency" +Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBRedLightMin +'GlitterSlider3 ' -Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) -Me.NBRedLightMin.Name = "NBRedLightMin" -Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMin.TabIndex = 151 -Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) +Me.GlitterSlider3.AutoSize = false +Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider3.LargeChange = 1 +Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider3.Maximum = 9 +Me.GlitterSlider3.Minimum = 1 +Me.GlitterSlider3.Name = "GlitterSlider3" +Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider3.TabIndex = 161 +Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider ' -'Label28 +'CBGlitter3 ' -Me.Label28.BackColor = System.Drawing.Color.Transparent -Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label28.ForeColor = System.Drawing.Color.Black -Me.Label28.Location = New System.Drawing.Point(161, 15) -Me.Label28.Name = "Label28" -Me.Label28.Size = New System.Drawing.Size(10, 17) -Me.Label28.TabIndex = 150 -Me.Label28.Text = "-" -Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBGlitter3.AutoSize = true +Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 +Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter3.ForeColor = System.Drawing.Color.Black +Me.CBGlitter3.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter3.Name = "CBGlitter3" +Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter3.TabIndex = 151 +Me.CBGlitter3.Text = "Enable This Contact" +Me.CBGlitter3.UseVisualStyleBackColor = true ' -'Label27 +'TBGlitter3 ' -Me.Label27.BackColor = System.Drawing.Color.Transparent -Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label27.ForeColor = System.Drawing.Color.Black -Me.Label27.Location = New System.Drawing.Point(6, 39) -Me.Label27.Name = "Label27" -Me.Label27.Size = New System.Drawing.Size(151, 17) -Me.Label27.TabIndex = 153 -Me.Label27.Text = "Green Light Time:" -Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TBGlitter3.BackColor = System.Drawing.Color.White +Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter3.ForeColor = System.Drawing.Color.Black +Me.TBGlitter3.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter3.Name = "TBGlitter3" +Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter3.TabIndex = 49 +Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 +Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label29 +'GlitterAV3 ' -Me.Label29.BackColor = System.Drawing.Color.Transparent -Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label29.ForeColor = System.Drawing.Color.Black -Me.Label29.Location = New System.Drawing.Point(6, 16) -Me.Label29.Name = "Label29" -Me.Label29.Size = New System.Drawing.Size(151, 17) -Me.Label29.TabIndex = 149 -Me.Label29.Text = "Red Light Time:" -Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV3.Name = "GlitterAV3" +Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV3.TabIndex = 149 +Me.GlitterAV3.TabStop = false ' -'GroupBox18 +'GBGlitter2 ' -Me.GroupBox18.Controls.Add(Me.Label108) -Me.GroupBox18.Controls.Add(Me.Label109) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) -Me.GroupBox18.Controls.Add(Me.CBCensorConstant) -Me.GroupBox18.Controls.Add(Me.Label25) -Me.GroupBox18.Controls.Add(Me.Label20) -Me.GroupBox18.Controls.Add(Me.Label19) -Me.GroupBox18.Controls.Add(Me.Label24) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) -Me.GroupBox18.Location = New System.Drawing.Point(6, 16) -Me.GroupBox18.Name = "GroupBox18" -Me.GroupBox18.Size = New System.Drawing.Size(279, 88) -Me.GroupBox18.TabIndex = 1 -Me.GroupBox18.TabStop = false -Me.GroupBox18.Text = "Censorship Sucks" +Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.CBGlitter2) +Me.GBGlitter2.Controls.Add(Me.TBGlitter2) +Me.GBGlitter2.Controls.Add(Me.GlitterAV2) +Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) +Me.GBGlitter2.Name = "GBGlitter2" +Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter2.TabIndex = 151 +Me.GBGlitter2.TabStop = false +Me.GBGlitter2.Text = "Contact 2" ' -'Label108 +'BtnContact2ImageDirClear ' -Me.Label108.BackColor = System.Drawing.Color.Transparent -Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label108.ForeColor = System.Drawing.Color.Black -Me.Label108.Location = New System.Drawing.Point(227, 39) -Me.Label108.Name = "Label108" -Me.Label108.Size = New System.Drawing.Size(50, 17) -Me.Label108.TabIndex = 179 -Me.Label108.Text = "seconds" -Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" +Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact2ImageDirClear.TabIndex = 181 +Me.BtnContact2ImageDirClear.Text = "Clear" +Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false ' -'Label109 +'BtnContact2ImageDir ' -Me.Label109.BackColor = System.Drawing.Color.Transparent -Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label109.ForeColor = System.Drawing.Color.Black -Me.Label109.Location = New System.Drawing.Point(227, 16) -Me.Label109.Name = "Label109" -Me.Label109.Size = New System.Drawing.Size(50, 17) -Me.Label109.TabIndex = 178 -Me.Label109.Text = "seconds" -Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" +Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact2ImageDir.TabIndex = 179 +Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" +Me.BtnContact2ImageDir.UseVisualStyleBackColor = false ' -'Label25 +'TbxContact2ImageDir ' -Me.Label25.BackColor = System.Drawing.Color.Transparent -Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label25.ForeColor = System.Drawing.Color.Black -Me.Label25.Location = New System.Drawing.Point(161, 15) -Me.Label25.Name = "Label25" -Me.Label25.Size = New System.Drawing.Size(10, 17) -Me.Label25.TabIndex = 150 -Me.Label25.Text = "-" -Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" +Me.TbxContact2ImageDir.ReadOnly = true +Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.TabIndex = 178 +Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir ' -'Label20 +'BTNGlitter2 ' -Me.Label20.BackColor = System.Drawing.Color.Transparent -Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label20.ForeColor = System.Drawing.Color.Black -Me.Label20.Location = New System.Drawing.Point(6, 39) -Me.Label20.Name = "Label20" -Me.Label20.Size = New System.Drawing.Size(110, 17) -Me.Label20.TabIndex = 153 -Me.Label20.Text = "Censor Bar Hidden:" -Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter2.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitter2.Name = "BTNGlitter2" +Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitter2.TabIndex = 167 +Me.BTNGlitter2.Text = "Choose Name Color" +Me.BTNGlitter2.UseVisualStyleBackColor = false ' -'Label19 +'LBLGlitterNC2 ' -Me.Label19.BackColor = System.Drawing.Color.Transparent -Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label19.ForeColor = System.Drawing.Color.Black -Me.Label19.Location = New System.Drawing.Point(161, 38) -Me.Label19.Name = "Label19" -Me.Label19.Size = New System.Drawing.Size(10, 17) -Me.Label19.TabIndex = 154 -Me.Label19.Text = "-" -Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color +Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNC2.Name = "LBLGlitterNC2" +Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNC2.TabIndex = 166 +Me.LBLGlitterNC2.Text = "Preview" +Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label24 +'LBLGlitterSlider2 ' -Me.Label24.BackColor = System.Drawing.Color.Transparent -Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label24.ForeColor = System.Drawing.Color.Black -Me.Label24.Location = New System.Drawing.Point(6, 16) -Me.Label24.Name = "Label24" -Me.Label24.Size = New System.Drawing.Size(110, 17) -Me.Label24.TabIndex = 149 -Me.Label24.Text = "Censor Bar Shown:" -Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" +Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider2.TabIndex = 163 +Me.LBLGlitterSlider2.Text = "Response Frequency" +Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GBRangeOrgasmChance +'GlitterSlider2 ' -Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) -Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) -Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) -Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" -Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeOrgasmChance.TabIndex = 167 -Me.GBRangeOrgasmChance.TabStop = false -Me.GBRangeOrgasmChance.Text = "Orgasm Chance" +Me.GlitterSlider2.AutoSize = false +Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider2.LargeChange = 1 +Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider2.Maximum = 9 +Me.GlitterSlider2.Minimum = 1 +Me.GlitterSlider2.Name = "GlitterSlider2" +Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider2.TabIndex = 161 +Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider ' -'Label89 +'CBGlitter2 ' -Me.Label89.BackColor = System.Drawing.Color.Transparent -Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label89.ForeColor = System.Drawing.Color.Black -Me.Label89.Location = New System.Drawing.Point(6, 94) -Me.Label89.Name = "Label89" -Me.Label89.Size = New System.Drawing.Size(83, 17) -Me.Label89.TabIndex = 173 -Me.Label89.Text = "Rarely Allows:" -Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBGlitter2.AutoSize = true +Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 +Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter2.ForeColor = System.Drawing.Color.Black +Me.CBGlitter2.Location = New System.Drawing.Point(79, 26) +Me.CBGlitter2.Name = "CBGlitter2" +Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter2.TabIndex = 151 +Me.CBGlitter2.Text = "Enable This Contact" +Me.CBGlitter2.UseVisualStyleBackColor = true ' -'NBAllowSometimes +'TBGlitter2 ' -Me.NBAllowSometimes.Enabled = false -Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowSometimes.Name = "NBAllowSometimes" -Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBAllowSometimes.TabIndex = 169 -Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.TBGlitter2.BackColor = System.Drawing.Color.White +Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter2.ForeColor = System.Drawing.Color.Black +Me.TBGlitter2.Location = New System.Drawing.Point(79, 57) +Me.TBGlitter2.Name = "TBGlitter2" +Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter2.TabIndex = 49 +Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 +Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label86 +'GlitterAV2 ' -Me.Label86.BackColor = System.Drawing.Color.Transparent -Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label86.ForeColor = System.Drawing.Color.Black -Me.Label86.Location = New System.Drawing.Point(6, 68) -Me.Label86.Name = "Label86" -Me.Label86.Size = New System.Drawing.Size(102, 17) -Me.Label86.TabIndex = 172 -Me.Label86.Text = "Sometimes Allows:" -Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) +Me.GlitterAV2.Name = "GlitterAV2" +Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV2.TabIndex = 149 +Me.GlitterAV2.TabStop = false ' -'Label82 +'TpGames ' -Me.Label82.BackColor = System.Drawing.Color.Transparent -Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label82.ForeColor = System.Drawing.Color.Black -Me.Label82.Location = New System.Drawing.Point(6, 42) -Me.Label82.Name = "Label82" -Me.Label82.Size = New System.Drawing.Size(83, 17) -Me.Label82.TabIndex = 171 -Me.Label82.Text = "Often Allows:" -Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TpGames.BackColor = System.Drawing.Color.LightGray +Me.TpGames.Controls.Add(Me.CBIncludeGifs) +Me.TpGames.Controls.Add(Me.LblCardsSetupNote) +Me.TpGames.Controls.Add(Me.CBGameSounds) +Me.TpGames.Controls.Add(Me.GbxCardsGold) +Me.TpGames.Controls.Add(Me.GbxCardsBackground) +Me.TpGames.Controls.Add(Me.GbxCardsBronze) +Me.TpGames.Controls.Add(Me.GbxCardsSilver) +Me.TpGames.Location = New System.Drawing.Point(4, 22) +Me.TpGames.Name = "TpGames" +Me.TpGames.Padding = New System.Windows.Forms.Padding(3) +Me.TpGames.Size = New System.Drawing.Size(700, 411) +Me.TpGames.TabIndex = 1 +Me.TpGames.Text = "Games" ' -'NBAllowRarely +'CBIncludeGifs ' -Me.NBAllowRarely.Enabled = false -Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) -Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowRarely.Name = "NBAllowRarely" -Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) -Me.NBAllowRarely.TabIndex = 170 -Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.CBIncludeGifs.AutoSize = true +Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs +Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) +Me.CBIncludeGifs.Name = "CBIncludeGifs" +Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) +Me.CBIncludeGifs.TabIndex = 5 +Me.CBIncludeGifs.Text = "Match Game Includes Gifs " +Me.CBIncludeGifs.UseVisualStyleBackColor = true ' -'NBAllowOften +'LblCardsSetupNote ' -Me.NBAllowOften.Enabled = false -Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) -Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowOften.Name = "NBAllowOften" -Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) -Me.NBAllowOften.TabIndex = 168 -Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) +Me.LblCardsSetupNote.Name = "LblCardsSetupNote" +Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) +Me.LblCardsSetupNote.TabIndex = 4 +Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ + "!" +Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBRangeOrgasm +'CBGameSounds ' -Me.CBRangeOrgasm.AutoSize = true -Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black -Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) -Me.CBRangeOrgasm.Name = "CBRangeOrgasm" -Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) -Me.CBRangeOrgasm.TabIndex = 159 -Me.CBRangeOrgasm.Text = "Domme Decide" -Me.CBRangeOrgasm.UseVisualStyleBackColor = true +Me.CBGameSounds.AutoSize = true +Me.CBGameSounds.Checked = true +Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBGameSounds.ForeColor = System.Drawing.Color.Black +Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) +Me.CBGameSounds.Name = "CBGameSounds" +Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) +Me.CBGameSounds.TabIndex = 6 +Me.CBGameSounds.Text = "Play Game Sounds" +Me.CBGameSounds.UseVisualStyleBackColor = true ' -'PictureBox8 +'GbxCardsGold ' -Me.PictureBox8.BackColor = System.Drawing.Color.LightGray -Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox8.Location = New System.Drawing.Point(9, 6) -Me.PictureBox8.Name = "PictureBox8" -Me.PictureBox8.Size = New System.Drawing.Size(160, 19) -Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox8.TabIndex = 166 -Me.PictureBox8.TabStop = false +Me.GbxCardsGold.Controls.Add(Me.GN6) +Me.GbxCardsGold.Controls.Add(Me.GP6) +Me.GbxCardsGold.Controls.Add(Me.GN2) +Me.GbxCardsGold.Controls.Add(Me.GP2) +Me.GbxCardsGold.Controls.Add(Me.GP5) +Me.GbxCardsGold.Controls.Add(Me.GN1) +Me.GbxCardsGold.Controls.Add(Me.GP1) +Me.GbxCardsGold.Controls.Add(Me.GN5) +Me.GbxCardsGold.Controls.Add(Me.GN3) +Me.GbxCardsGold.Controls.Add(Me.GP3) +Me.GbxCardsGold.Controls.Add(Me.GP4) +Me.GbxCardsGold.Controls.Add(Me.GN4) +Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) +Me.GbxCardsGold.Name = "GbxCardsGold" +Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) +Me.GbxCardsGold.TabIndex = 2 +Me.GbxCardsGold.TabStop = false +Me.GbxCardsGold.Text = "Gold Cards" ' -'Label38 +'GN6 ' -Me.Label38.BackColor = System.Drawing.Color.Transparent -Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label38.ForeColor = System.Drawing.Color.Black -Me.Label38.Location = New System.Drawing.Point(7, 6) -Me.Label38.Name = "Label38" -Me.Label38.Size = New System.Drawing.Size(692, 21) -Me.Label38.TabIndex = 48 -Me.Label38.Text = "Range Settings" -Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN6.Location = New System.Drawing.Point(86, 367) +Me.GN6.Name = "GN6" +Me.GN6.Size = New System.Drawing.Size(71, 20) +Me.GN6.TabIndex = 5 +Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 +Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'TabPage13 +'GP6 ' -Me.TabPage13.BackColor = System.Drawing.Color.Silver -Me.TabPage13.Controls.Add(Me.TabControl2) -Me.TabPage13.Location = New System.Drawing.Point(4, 22) -Me.TabPage13.Name = "TabPage13" -Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage13.Size = New System.Drawing.Size(720, 448) -Me.TabPage13.TabIndex = 13 -Me.TabPage13.Text = "Modding" +Me.GP6.BackColor = System.Drawing.Color.Silver +Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 +Me.GP6.InitialImage = Nothing +Me.GP6.Location = New System.Drawing.Point(86, 268) +Me.GP6.Name = "GP6" +Me.GP6.Size = New System.Drawing.Size(71, 93) +Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP6.TabIndex = 17 +Me.GP6.TabStop = false ' -'TabControl2 +'GN2 ' -Me.TabControl2.Controls.Add(Me.TabPage27) -Me.TabControl2.Controls.Add(Me.TabPage14) -Me.TabControl2.Controls.Add(Me.TabPage24) -Me.TabControl2.Controls.Add(Me.TabPage8) -Me.TabControl2.Controls.Add(Me.TabPage15) -Me.TabControl2.Location = New System.Drawing.Point(6, 6) -Me.TabControl2.Name = "TabControl2" -Me.TabControl2.SelectedIndex = 0 -Me.TabControl2.Size = New System.Drawing.Size(708, 437) -Me.TabControl2.TabIndex = 0 +Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN2.Location = New System.Drawing.Point(86, 117) +Me.GN2.Name = "GN2" +Me.GN2.Size = New System.Drawing.Size(71, 20) +Me.GN2.TabIndex = 1 +Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 +Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'TabPage27 +'GP2 ' -Me.TabPage27.BackColor = System.Drawing.Color.LightGray -Me.TabPage27.Controls.Add(Me.TBPlaylistSave) -Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) -Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) -Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) -Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) -Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) -Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) -Me.TabPage27.Controls.Add(Me.Button7) -Me.TabPage27.Controls.Add(Me.WBPlaylist) -Me.TabPage27.Controls.Add(Me.Label80) -Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) -Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) -Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) -Me.TabPage27.Controls.Add(Me.LBPlaylist) -Me.TabPage27.Location = New System.Drawing.Point(4, 22) -Me.TabPage27.Name = "TabPage27" -Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage27.Size = New System.Drawing.Size(700, 411) -Me.TabPage27.TabIndex = 5 -Me.TabPage27.Text = "Playlists" +Me.GP2.BackColor = System.Drawing.Color.Silver +Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 +Me.GP2.InitialImage = Nothing +Me.GP2.Location = New System.Drawing.Point(86, 17) +Me.GP2.Name = "GP2" +Me.GP2.Size = New System.Drawing.Size(71, 94) +Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP2.TabIndex = 9 +Me.GP2.TabStop = false ' -'TBPlaylistSave +'GP5 ' -Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) -Me.TBPlaylistSave.Name = "TBPlaylistSave" -Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) -Me.TBPlaylistSave.TabIndex = 203 +Me.GP5.BackColor = System.Drawing.Color.Silver +Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 +Me.GP5.InitialImage = Nothing +Me.GP5.Location = New System.Drawing.Point(9, 268) +Me.GP5.Name = "GP5" +Me.GP5.Size = New System.Drawing.Size(71, 93) +Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP5.TabIndex = 15 +Me.GP5.TabStop = false ' -'BTNPlaylistCtrlZ +'GN1 ' -Me.BTNPlaylistCtrlZ.Enabled = false -Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) -Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" -Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistCtrlZ.TabIndex = 202 -Me.BTNPlaylistCtrlZ.Text = "Undo" -Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true +Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN1.Location = New System.Drawing.Point(9, 117) +Me.GN1.Name = "GN1" +Me.GN1.Size = New System.Drawing.Size(71, 20) +Me.GN1.TabIndex = 0 +Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 +Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'RadioPlaylistRegScripts +'GP1 ' -Me.RadioPlaylistRegScripts.AutoSize = true -Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) -Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" -Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) -Me.RadioPlaylistRegScripts.TabIndex = 201 -Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" -Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true +Me.GP1.BackColor = System.Drawing.Color.Silver +Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 +Me.GP1.InitialImage = Nothing +Me.GP1.Location = New System.Drawing.Point(9, 17) +Me.GP1.Name = "GP1" +Me.GP1.Size = New System.Drawing.Size(71, 94) +Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP1.TabIndex = 0 +Me.GP1.TabStop = false ' -'RadioPlaylistScripts +'GN5 ' -Me.RadioPlaylistScripts.AutoSize = true -Me.RadioPlaylistScripts.Checked = true -Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) -Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" -Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) -Me.RadioPlaylistScripts.TabIndex = 200 -Me.RadioPlaylistScripts.TabStop = true -Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" -Me.RadioPlaylistScripts.UseVisualStyleBackColor = true +Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN5.Location = New System.Drawing.Point(9, 367) +Me.GN5.Name = "GN5" +Me.GN5.Size = New System.Drawing.Size(71, 20) +Me.GN5.TabIndex = 4 +Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 +Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BTNPlaylistEnd +'GN3 ' -Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray -Me.BTNPlaylistEnd.Enabled = false -Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black -Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) -Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" -Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistEnd.TabIndex = 199 -Me.BTNPlaylistEnd.Text = "End" -Me.BTNPlaylistEnd.UseVisualStyleBackColor = false +Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN3.Location = New System.Drawing.Point(9, 242) +Me.GN3.Name = "GN3" +Me.GN3.Size = New System.Drawing.Size(71, 20) +Me.GN3.TabIndex = 2 +Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 +Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BTNPlaylistClearAll +'GP3 ' -Me.BTNPlaylistClearAll.Enabled = false -Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) -Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" -Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) -Me.BTNPlaylistClearAll.TabIndex = 198 -Me.BTNPlaylistClearAll.Text = "Clear All" -Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true +Me.GP3.BackColor = System.Drawing.Color.Silver +Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 +Me.GP3.InitialImage = Nothing +Me.GP3.Location = New System.Drawing.Point(9, 143) +Me.GP3.Name = "GP3" +Me.GP3.Size = New System.Drawing.Size(71, 93) +Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP3.TabIndex = 11 +Me.GP3.TabStop = false ' -'BTNPlaylistSave +'GP4 ' -Me.BTNPlaylistSave.Enabled = false -Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) -Me.BTNPlaylistSave.Name = "BTNPlaylistSave" -Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistSave.TabIndex = 197 -Me.BTNPlaylistSave.Text = "Save" -Me.BTNPlaylistSave.UseVisualStyleBackColor = true +Me.GP4.BackColor = System.Drawing.Color.Silver +Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 +Me.GP4.InitialImage = Nothing +Me.GP4.Location = New System.Drawing.Point(86, 143) +Me.GP4.Name = "GP4" +Me.GP4.Size = New System.Drawing.Size(71, 93) +Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP4.TabIndex = 13 +Me.GP4.TabStop = false +' +'GN4 +' +Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN4.Location = New System.Drawing.Point(86, 242) +Me.GN4.Name = "GN4" +Me.GN4.Size = New System.Drawing.Size(71, 20) +Me.GN4.TabIndex = 3 +Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 +Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Button7 +'GbxCardsBackground ' -Me.Button7.Location = New System.Drawing.Point(213, 21) -Me.Button7.Name = "Button7" -Me.Button7.Size = New System.Drawing.Size(78, 23) -Me.Button7.TabIndex = 196 -Me.Button7.Text = "Add Random" -Me.Button7.UseVisualStyleBackColor = true +Me.GbxCardsBackground.Controls.Add(Me.CardBack) +Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) +Me.GbxCardsBackground.Name = "GbxCardsBackground" +Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) +Me.GbxCardsBackground.TabIndex = 3 +Me.GbxCardsBackground.TabStop = false +Me.GbxCardsBackground.Text = "Card Background" ' -'WBPlaylist +'CardBack ' -Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) -Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) -Me.WBPlaylist.Name = "WBPlaylist" -Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) -Me.WBPlaylist.TabIndex = 195 +Me.CardBack.BackColor = System.Drawing.Color.Silver +Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack +Me.CardBack.InitialImage = Nothing +Me.CardBack.Location = New System.Drawing.Point(17, 28) +Me.CardBack.Name = "CardBack" +Me.CardBack.Size = New System.Drawing.Size(138, 179) +Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.CardBack.TabIndex = 18 +Me.CardBack.TabStop = false ' -'Label80 +'GbxCardsBronze ' -Me.Label80.AutoSize = true -Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label80.Location = New System.Drawing.Point(410, 27) -Me.Label80.Name = "Label80" -Me.Label80.Size = New System.Drawing.Size(47, 13) -Me.Label80.TabIndex = 194 -Me.Label80.Text = "Playlist" +Me.GbxCardsBronze.Controls.Add(Me.BN6) +Me.GbxCardsBronze.Controls.Add(Me.BN3) +Me.GbxCardsBronze.Controls.Add(Me.BP3) +Me.GbxCardsBronze.Controls.Add(Me.BP6) +Me.GbxCardsBronze.Controls.Add(Me.BN2) +Me.GbxCardsBronze.Controls.Add(Me.BN5) +Me.GbxCardsBronze.Controls.Add(Me.BP5) +Me.GbxCardsBronze.Controls.Add(Me.BP2) +Me.GbxCardsBronze.Controls.Add(Me.BN1) +Me.GbxCardsBronze.Controls.Add(Me.BN4) +Me.GbxCardsBronze.Controls.Add(Me.BP4) +Me.GbxCardsBronze.Controls.Add(Me.BP1) +Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) +Me.GbxCardsBronze.Name = "GbxCardsBronze" +Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsBronze.TabIndex = 0 +Me.GbxCardsBronze.TabStop = false +Me.GbxCardsBronze.Text = "Bronze Cards" ' -'LBLPlaylIstLink +'BN6 ' -Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylIstLink.Enabled = false -Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) -Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" -Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) -Me.LBLPlaylIstLink.TabIndex = 193 -Me.LBLPlaylIstLink.Text = "Link" -Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN6.Location = New System.Drawing.Point(86, 368) +Me.BN6.Name = "BN6" +Me.BN6.Size = New System.Drawing.Size(71, 20) +Me.BN6.TabIndex = 5 +Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 +Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLPlaylistModule +'BN3 ' -Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylistModule.Enabled = false -Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) -Me.LBLPlaylistModule.Name = "LBLPlaylistModule" -Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) -Me.LBLPlaylistModule.TabIndex = 192 -Me.LBLPlaylistModule.Text = "Module" -Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN3.Location = New System.Drawing.Point(9, 243) +Me.BN3.Name = "BN3" +Me.BN3.Size = New System.Drawing.Size(71, 20) +Me.BN3.TabIndex = 2 +Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 +Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLPLaylistStart +'BP3 ' -Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green -Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White -Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) -Me.LBLPLaylistStart.Name = "LBLPLaylistStart" -Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) -Me.LBLPLaylistStart.TabIndex = 190 -Me.LBLPLaylistStart.Text = "Start" -Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BP3.BackColor = System.Drawing.Color.Silver +Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 +Me.BP3.InitialImage = Nothing +Me.BP3.Location = New System.Drawing.Point(9, 144) +Me.BP3.Name = "BP3" +Me.BP3.Size = New System.Drawing.Size(71, 93) +Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP3.TabIndex = 11 +Me.BP3.TabStop = false ' -'LBPlaylist +'BP6 ' -Me.LBPlaylist.AllowDrop = true -Me.LBPlaylist.FormattingEnabled = true -Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) -Me.LBPlaylist.Name = "LBPlaylist" -Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) -Me.LBPlaylist.TabIndex = 189 +Me.BP6.BackColor = System.Drawing.Color.Silver +Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 +Me.BP6.InitialImage = Nothing +Me.BP6.Location = New System.Drawing.Point(86, 269) +Me.BP6.Name = "BP6" +Me.BP6.Size = New System.Drawing.Size(71, 93) +Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP6.TabIndex = 17 +Me.BP6.TabStop = false ' -'TabPage14 +'BN2 ' -Me.TabPage14.BackColor = System.Drawing.Color.LightGray -Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) -Me.TabPage14.Controls.Add(Me.Label88) -Me.TabPage14.Controls.Add(Me.TBKeywordPreview) -Me.TabPage14.Controls.Add(Me.Button37) -Me.TabPage14.Controls.Add(Me.Button50) -Me.TabPage14.Controls.Add(Me.Button22) -Me.TabPage14.Controls.Add(Me.TBKeyWords) -Me.TabPage14.Controls.Add(Me.LBKeyWords) -Me.TabPage14.Controls.Add(Me.RTBKeyWords) -Me.TabPage14.Location = New System.Drawing.Point(4, 22) -Me.TabPage14.Name = "TabPage14" -Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage14.Size = New System.Drawing.Size(700, 411) -Me.TabPage14.TabIndex = 0 -Me.TabPage14.Text = "Keywords" +Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN2.Location = New System.Drawing.Point(86, 118) +Me.BN2.Name = "BN2" +Me.BN2.Size = New System.Drawing.Size(71, 20) +Me.BN2.TabIndex = 1 +Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 +Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLKeywordPreview +'BN5 ' -Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) -Me.LBLKeywordPreview.Name = "LBLKeywordPreview" -Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) -Me.LBLKeywordPreview.TabIndex = 174 -Me.LBLKeywordPreview.Text = "Get Preview Here" -Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN5.Location = New System.Drawing.Point(9, 368) +Me.BN5.Name = "BN5" +Me.BN5.Size = New System.Drawing.Size(71, 20) +Me.BN5.TabIndex = 4 +Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 +Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label88 +'BP5 ' -Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label88.Location = New System.Drawing.Point(3, 358) -Me.Label88.Name = "Label88" -Me.Label88.Size = New System.Drawing.Size(194, 53) -Me.Label88.TabIndex = 173 -Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ - " the domme return." -Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BP5.BackColor = System.Drawing.Color.Silver +Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 +Me.BP5.InitialImage = Nothing +Me.BP5.Location = New System.Drawing.Point(9, 269) +Me.BP5.Name = "BP5" +Me.BP5.Size = New System.Drawing.Size(71, 93) +Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP5.TabIndex = 15 +Me.BP5.TabStop = false ' -'TBKeywordPreview +'BP2 ' -Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) -Me.TBKeywordPreview.Name = "TBKeywordPreview" -Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) -Me.TBKeywordPreview.TabIndex = 172 -Me.TBKeywordPreview.Text = "Enter Line Here" -Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BP2.BackColor = System.Drawing.Color.Silver +Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 +Me.BP2.InitialImage = Nothing +Me.BP2.Location = New System.Drawing.Point(86, 19) +Me.BP2.Name = "BP2" +Me.BP2.Size = New System.Drawing.Size(71, 93) +Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP2.TabIndex = 9 +Me.BP2.TabStop = false ' -'Button37 +'BN1 ' -Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button37.Location = New System.Drawing.Point(638, 358) -Me.Button37.Name = "Button37" -Me.Button37.Size = New System.Drawing.Size(47, 50) -Me.Button37.TabIndex = 171 -Me.Button37.Text = "#" -Me.Button37.UseVisualStyleBackColor = true +Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN1.Location = New System.Drawing.Point(9, 118) +Me.BN1.Name = "BN1" +Me.BN1.Size = New System.Drawing.Size(71, 20) +Me.BN1.TabIndex = 0 +Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 +Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Button50 +'BN4 ' -Me.Button50.Location = New System.Drawing.Point(6, 10) -Me.Button50.Name = "Button50" -Me.Button50.Size = New System.Drawing.Size(194, 23) -Me.Button50.TabIndex = 169 -Me.Button50.Text = "Refresh and Clear Keyword List" -Me.Button50.UseVisualStyleBackColor = true +Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN4.Location = New System.Drawing.Point(86, 243) +Me.BN4.Name = "BN4" +Me.BN4.Size = New System.Drawing.Size(71, 20) +Me.BN4.TabIndex = 3 +Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 +Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BP4 ' -'Button22 +Me.BP4.BackColor = System.Drawing.Color.Silver +Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 +Me.BP4.InitialImage = Nothing +Me.BP4.Location = New System.Drawing.Point(86, 144) +Me.BP4.Name = "BP4" +Me.BP4.Size = New System.Drawing.Size(71, 93) +Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP4.TabIndex = 13 +Me.BP4.TabStop = false ' -Me.Button22.Location = New System.Drawing.Point(638, 10) -Me.Button22.Name = "Button22" -Me.Button22.Size = New System.Drawing.Size(47, 23) -Me.Button22.TabIndex = 167 -Me.Button22.Text = "Save" -Me.Button22.UseVisualStyleBackColor = true +'BP1 ' -'TBKeyWords +Me.BP1.BackColor = System.Drawing.Color.Silver +Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 +Me.BP1.InitialImage = Nothing +Me.BP1.Location = New System.Drawing.Point(9, 19) +Me.BP1.Name = "BP1" +Me.BP1.Size = New System.Drawing.Size(71, 93) +Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP1.TabIndex = 0 +Me.BP1.TabStop = false +Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 ' -Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) -Me.TBKeyWords.Name = "TBKeyWords" -Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) -Me.TBKeyWords.TabIndex = 166 +'GbxCardsSilver ' -'LBKeyWords +Me.GbxCardsSilver.Controls.Add(Me.SN6) +Me.GbxCardsSilver.Controls.Add(Me.SP6) +Me.GbxCardsSilver.Controls.Add(Me.SN2) +Me.GbxCardsSilver.Controls.Add(Me.SP2) +Me.GbxCardsSilver.Controls.Add(Me.SN1) +Me.GbxCardsSilver.Controls.Add(Me.SP5) +Me.GbxCardsSilver.Controls.Add(Me.SP1) +Me.GbxCardsSilver.Controls.Add(Me.SN5) +Me.GbxCardsSilver.Controls.Add(Me.SN3) +Me.GbxCardsSilver.Controls.Add(Me.SN4) +Me.GbxCardsSilver.Controls.Add(Me.SP3) +Me.GbxCardsSilver.Controls.Add(Me.SP4) +Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) +Me.GbxCardsSilver.Name = "GbxCardsSilver" +Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsSilver.TabIndex = 1 +Me.GbxCardsSilver.TabStop = false +Me.GbxCardsSilver.Text = "Silver Cards" ' -Me.LBKeyWords.FormattingEnabled = true -Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) -Me.LBKeyWords.Name = "LBKeyWords" -Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) -Me.LBKeyWords.Sorted = true -Me.LBKeyWords.TabIndex = 165 +'SN6 ' -'RTBKeyWords +Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN6.Location = New System.Drawing.Point(86, 368) +Me.SN6.Name = "SN6" +Me.SN6.Size = New System.Drawing.Size(71, 20) +Me.SN6.TabIndex = 5 +Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 +Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) -Me.RTBKeyWords.Name = "RTBKeyWords" -Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) -Me.RTBKeyWords.TabIndex = 164 -Me.RTBKeyWords.Text = "" +'SP6 ' -'TabPage24 +Me.SP6.BackColor = System.Drawing.Color.Silver +Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 +Me.SP6.InitialImage = Nothing +Me.SP6.Location = New System.Drawing.Point(86, 269) +Me.SP6.Name = "SP6" +Me.SP6.Size = New System.Drawing.Size(71, 93) +Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP6.TabIndex = 17 +Me.SP6.TabStop = false ' -Me.TabPage24.BackColor = System.Drawing.Color.LightGray -Me.TabPage24.Controls.Add(Me.Button9) -Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) -Me.TabPage24.Controls.Add(Me.Button4) -Me.TabPage24.Controls.Add(Me.Button5) -Me.TabPage24.Controls.Add(Me.TBResponses) -Me.TabPage24.Controls.Add(Me.LBResponses) -Me.TabPage24.Controls.Add(Me.RTBResponses) -Me.TabPage24.Location = New System.Drawing.Point(4, 22) -Me.TabPage24.Name = "TabPage24" -Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage24.Size = New System.Drawing.Size(700, 411) -Me.TabPage24.TabIndex = 3 -Me.TabPage24.Text = "Responses" +'SN2 ' -'Button9 +Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN2.Location = New System.Drawing.Point(86, 118) +Me.SN2.Name = "SN2" +Me.SN2.Size = New System.Drawing.Size(71, 20) +Me.SN2.TabIndex = 1 +Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 +Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Button9.Location = New System.Drawing.Point(217, 10) -Me.Button9.Name = "Button9" -Me.Button9.Size = New System.Drawing.Size(215, 23) -Me.Button9.TabIndex = 176 -Me.Button9.Text = "Response Template" -Me.Button9.UseVisualStyleBackColor = true +'SP2 ' -'RTBResponsesKEY +Me.SP2.BackColor = System.Drawing.Color.Silver +Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 +Me.SP2.InitialImage = Nothing +Me.SP2.Location = New System.Drawing.Point(86, 19) +Me.SP2.Name = "SP2" +Me.SP2.Size = New System.Drawing.Size(71, 93) +Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP2.TabIndex = 9 +Me.SP2.TabStop = false ' -Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) -Me.RTBResponsesKEY.Name = "RTBResponsesKEY" -Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) -Me.RTBResponsesKEY.TabIndex = 175 -Me.RTBResponsesKEY.Text = "" +'SN1 ' -'Button4 +Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN1.Location = New System.Drawing.Point(9, 118) +Me.SN1.Name = "SN1" +Me.SN1.Size = New System.Drawing.Size(71, 20) +Me.SN1.TabIndex = 0 +Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 +Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Button4.Location = New System.Drawing.Point(6, 10) -Me.Button4.Name = "Button4" -Me.Button4.Size = New System.Drawing.Size(194, 23) -Me.Button4.TabIndex = 174 -Me.Button4.Text = "Refresh and Clear Response List" -Me.Button4.UseVisualStyleBackColor = true +'SP5 ' -'Button5 +Me.SP5.BackColor = System.Drawing.Color.Silver +Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 +Me.SP5.InitialImage = Nothing +Me.SP5.Location = New System.Drawing.Point(9, 269) +Me.SP5.Name = "SP5" +Me.SP5.Size = New System.Drawing.Size(71, 93) +Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP5.TabIndex = 15 +Me.SP5.TabStop = false ' -Me.Button5.Location = New System.Drawing.Point(638, 10) -Me.Button5.Name = "Button5" -Me.Button5.Size = New System.Drawing.Size(47, 23) -Me.Button5.TabIndex = 173 -Me.Button5.Text = "Save" -Me.Button5.UseVisualStyleBackColor = true +'SP1 ' -'TBResponses +Me.SP1.BackColor = System.Drawing.Color.Silver +Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 +Me.SP1.InitialImage = Nothing +Me.SP1.Location = New System.Drawing.Point(9, 19) +Me.SP1.Name = "SP1" +Me.SP1.Size = New System.Drawing.Size(71, 93) +Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP1.TabIndex = 0 +Me.SP1.TabStop = false ' -Me.TBResponses.Location = New System.Drawing.Point(438, 10) -Me.TBResponses.Name = "TBResponses" -Me.TBResponses.Size = New System.Drawing.Size(194, 20) -Me.TBResponses.TabIndex = 172 +'SN5 ' -'LBResponses +Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN5.Location = New System.Drawing.Point(9, 368) +Me.SN5.Name = "SN5" +Me.SN5.Size = New System.Drawing.Size(71, 20) +Me.SN5.TabIndex = 4 +Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 +Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.LBResponses.FormattingEnabled = true -Me.LBResponses.Location = New System.Drawing.Point(6, 36) -Me.LBResponses.Name = "LBResponses" -Me.LBResponses.Size = New System.Drawing.Size(194, 355) -Me.LBResponses.Sorted = true -Me.LBResponses.TabIndex = 171 +'SN3 ' -'RTBResponses +Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN3.Location = New System.Drawing.Point(9, 243) +Me.SN3.Name = "SN3" +Me.SN3.Size = New System.Drawing.Size(71, 20) +Me.SN3.TabIndex = 2 +Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 +Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.RTBResponses.Location = New System.Drawing.Point(217, 82) -Me.RTBResponses.Name = "RTBResponses" -Me.RTBResponses.Size = New System.Drawing.Size(468, 309) -Me.RTBResponses.TabIndex = 170 -Me.RTBResponses.Text = "" +'SN4 ' -'TabPage8 +Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN4.Location = New System.Drawing.Point(86, 243) +Me.SN4.Name = "SN4" +Me.SN4.Size = New System.Drawing.Size(71, 20) +Me.SN4.TabIndex = 3 +Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 +Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.TabPage8.BackColor = System.Drawing.Color.LightGray -Me.TabPage8.Controls.Add(Me.RTBVideoMod) -Me.TabPage8.Controls.Add(Me.GroupBox29) -Me.TabPage8.Controls.Add(Me.BTNVideoModClear) -Me.TabPage8.Controls.Add(Me.GroupBox28) -Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) -Me.TabPage8.Controls.Add(Me.GroupBox30) -Me.TabPage8.Controls.Add(Me.BTNVideoModSave) -Me.TabPage8.Location = New System.Drawing.Point(4, 22) -Me.TabPage8.Name = "TabPage8" -Me.TabPage8.Size = New System.Drawing.Size(700, 411) -Me.TabPage8.TabIndex = 2 -Me.TabPage8.Text = "Video" +'SP3 ' -'RTBVideoMod +Me.SP3.BackColor = System.Drawing.Color.Silver +Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 +Me.SP3.InitialImage = Nothing +Me.SP3.Location = New System.Drawing.Point(9, 144) +Me.SP3.Name = "SP3" +Me.SP3.Size = New System.Drawing.Size(71, 93) +Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP3.TabIndex = 11 +Me.SP3.TabStop = false +' +'SP4 ' -Me.RTBVideoMod.Enabled = false -Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) -Me.RTBVideoMod.Name = "RTBVideoMod" -Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) -Me.RTBVideoMod.TabIndex = 150 -Me.RTBVideoMod.Text = "" +Me.SP4.BackColor = System.Drawing.Color.Silver +Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 +Me.SP4.InitialImage = Nothing +Me.SP4.Location = New System.Drawing.Point(86, 144) +Me.SP4.Name = "SP4" +Me.SP4.Size = New System.Drawing.Size(71, 93) +Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP4.TabIndex = 13 +Me.SP4.TabStop = false ' -'GroupBox29 +'TabPage6 ' -Me.GroupBox29.BackColor = System.Drawing.Color.LightGray -Me.GroupBox29.Controls.Add(Me.Label51) -Me.GroupBox29.ForeColor = System.Drawing.Color.Black -Me.GroupBox29.Location = New System.Drawing.Point(6, 309) -Me.GroupBox29.Name = "GroupBox29" -Me.GroupBox29.Size = New System.Drawing.Size(692, 92) -Me.GroupBox29.TabIndex = 66 -Me.GroupBox29.TabStop = false -Me.GroupBox29.Text = "Description" +Me.TabPage6.BackColor = System.Drawing.Color.LightGray +Me.TabPage6.Controls.Add(Me.Panel10) +Me.TabPage6.Controls.Add(Me.Label107) +Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) +Me.TabPage6.Controls.Add(Me.Label18) +Me.TabPage6.Controls.Add(Me.PNLWishList) +Me.TabPage6.Location = New System.Drawing.Point(4, 22) +Me.TabPage6.Name = "TabPage6" +Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage6.Size = New System.Drawing.Size(700, 411) +Me.TabPage6.TabIndex = 2 +Me.TabPage6.Text = "Wishlist" ' -'Label51 +'Panel10 ' -Me.Label51.BackColor = System.Drawing.Color.Transparent -Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label51.ForeColor = System.Drawing.Color.Black -Me.Label51.Location = New System.Drawing.Point(6, 16) -Me.Label51.Name = "Label51" -Me.Label51.Size = New System.Drawing.Size(680, 73) -Me.Label51.TabIndex = 62 -Me.Label51.Text = resources.GetString("Label51.Text") -Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel10.Controls.Add(Me.TBWishlistComment) +Me.Panel10.Controls.Add(Me.Label32) +Me.Panel10.Controls.Add(Me.TBWishlistItem) +Me.Panel10.Controls.Add(Me.radioGold) +Me.Panel10.Controls.Add(Me.Label42) +Me.Panel10.Controls.Add(Me.radioSilver) +Me.Panel10.Controls.Add(Me.TBWishlistURL) +Me.Panel10.Controls.Add(Me.NBWishlistCost) +Me.Panel10.Controls.Add(Me.Label48) +Me.Panel10.Controls.Add(Me.Label73) +Me.Panel10.Location = New System.Drawing.Point(38, 47) +Me.Panel10.Name = "Panel10" +Me.Panel10.Size = New System.Drawing.Size(252, 308) +Me.Panel10.TabIndex = 179 ' -'BTNVideoModClear +'TBWishlistComment ' -Me.BTNVideoModClear.Enabled = false -Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) -Me.BTNVideoModClear.Name = "BTNVideoModClear" -Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModClear.TabIndex = 153 -Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" -Me.BTNVideoModClear.UseVisualStyleBackColor = true +Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) +Me.TBWishlistComment.Multiline = true +Me.TBWishlistComment.Name = "TBWishlistComment" +Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) +Me.TBWishlistComment.TabIndex = 172 ' -'GroupBox28 +'Label32 ' -Me.GroupBox28.Controls.Add(Me.CBVTType) -Me.GroupBox28.Location = New System.Drawing.Point(6, 8) -Me.GroupBox28.Name = "GroupBox28" -Me.GroupBox28.Size = New System.Drawing.Size(155, 46) -Me.GroupBox28.TabIndex = 148 -Me.GroupBox28.TabStop = false -Me.GroupBox28.Text = "Video Tease Type" +Me.Label32.AutoSize = true +Me.Label32.Location = New System.Drawing.Point(13, 4) +Me.Label32.Name = "Label32" +Me.Label32.Size = New System.Drawing.Size(58, 13) +Me.Label32.TabIndex = 167 +Me.Label32.Text = "Item Name" ' -'CBVTType +'TBWishlistItem ' -Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBVTType.FormattingEnabled = true -Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) -Me.CBVTType.Location = New System.Drawing.Point(9, 15) -Me.CBVTType.Name = "CBVTType" -Me.CBVTType.Size = New System.Drawing.Size(137, 21) -Me.CBVTType.TabIndex = 171 +Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) +Me.TBWishlistItem.Name = "TBWishlistItem" +Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistItem.TabIndex = 168 ' -'BTNVideoModLoad +'radioGold ' -Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) -Me.BTNVideoModLoad.Name = "BTNVideoModLoad" -Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModLoad.TabIndex = 152 -Me.BTNVideoModLoad.Text = "Load Script" -Me.BTNVideoModLoad.UseVisualStyleBackColor = true +Me.radioGold.AutoSize = true +Me.radioGold.Location = New System.Drawing.Point(167, 125) +Me.radioGold.Name = "radioGold" +Me.radioGold.Size = New System.Drawing.Size(47, 17) +Me.radioGold.TabIndex = 176 +Me.radioGold.Text = "Gold" +Me.radioGold.UseVisualStyleBackColor = true ' -'GroupBox30 +'Label42 ' -Me.GroupBox30.Controls.Add(Me.LBVidScript) -Me.GroupBox30.Location = New System.Drawing.Point(6, 60) -Me.GroupBox30.Name = "GroupBox30" -Me.GroupBox30.Size = New System.Drawing.Size(155, 100) -Me.GroupBox30.TabIndex = 149 -Me.GroupBox30.TabStop = false -Me.GroupBox30.Text = "Script" +Me.Label42.AutoSize = true +Me.Label42.Location = New System.Drawing.Point(13, 56) +Me.Label42.Name = "Label42" +Me.Label42.Size = New System.Drawing.Size(75, 13) +Me.Label42.TabIndex = 169 +Me.Label42.Text = "Item Image Url" ' -'LBVidScript +'radioSilver ' -Me.LBVidScript.FormattingEnabled = true -Me.LBVidScript.Location = New System.Drawing.Point(9, 20) -Me.LBVidScript.Name = "LBVidScript" -Me.LBVidScript.Size = New System.Drawing.Size(137, 69) -Me.LBVidScript.TabIndex = 0 +Me.radioSilver.AutoSize = true +Me.radioSilver.Checked = true +Me.radioSilver.Location = New System.Drawing.Point(100, 125) +Me.radioSilver.Name = "radioSilver" +Me.radioSilver.Size = New System.Drawing.Size(51, 17) +Me.radioSilver.TabIndex = 175 +Me.radioSilver.TabStop = true +Me.radioSilver.Text = "Silver" +Me.radioSilver.UseVisualStyleBackColor = true ' -'BTNVideoModSave +'TBWishlistURL ' -Me.BTNVideoModSave.Enabled = false -Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) -Me.BTNVideoModSave.Name = "BTNVideoModSave" -Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModSave.TabIndex = 151 -Me.BTNVideoModSave.Text = "Save Changes" -Me.BTNVideoModSave.UseVisualStyleBackColor = true +Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) +Me.TBWishlistURL.Name = "TBWishlistURL" +Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistURL.TabIndex = 170 ' -'TabPage15 +'NBWishlistCost ' -Me.TabPage15.BackColor = System.Drawing.Color.LightGray -Me.TabPage15.Controls.Add(Me.Label62) -Me.TabPage15.Controls.Add(Me.Label61) -Me.TabPage15.Controls.Add(Me.Label57) -Me.TabPage15.Controls.Add(Me.Label58) -Me.TabPage15.Controls.Add(Me.Label60) -Me.TabPage15.Controls.Add(Me.TBGlitModFileName) -Me.TabPage15.Controls.Add(Me.GroupBox34) -Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) -Me.TabPage15.Controls.Add(Me.Button26) -Me.TabPage15.Controls.Add(Me.Label56) -Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) -Me.TabPage15.Controls.Add(Me.LBGlitModScripts) -Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) -Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) -Me.TabPage15.Controls.Add(Me.Button29) -Me.TabPage15.Controls.Add(Me.CBGlitModType) -Me.TabPage15.Controls.Add(Me.Label59) -Me.TabPage15.Controls.Add(Me.Label50) -Me.TabPage15.Location = New System.Drawing.Point(4, 22) -Me.TabPage15.Name = "TabPage15" -Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage15.Size = New System.Drawing.Size(700, 411) -Me.TabPage15.TabIndex = 1 -Me.TabPage15.Text = "Glitter" +Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) +Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBWishlistCost.Name = "NBWishlistCost" +Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) +Me.NBWishlistCost.TabIndex = 174 +Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -'Label62 +'Label48 ' -Me.Label62.Location = New System.Drawing.Point(255, 169) -Me.Label62.Name = "Label62" -Me.Label62.Size = New System.Drawing.Size(59, 51) -Me.Label62.TabIndex = 177 -Me.Label62.Text = "@Cruel @Angry @Custom2" -Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label48.AutoSize = true +Me.Label48.Location = New System.Drawing.Point(13, 157) +Me.Label48.Name = "Label48" +Me.Label48.Size = New System.Drawing.Size(74, 13) +Me.Label48.TabIndex = 171 +Me.Label48.Text = "Item Comment" ' -'Label61 +'Label73 ' -Me.Label61.Location = New System.Drawing.Point(194, 169) -Me.Label61.Name = "Label61" -Me.Label61.Size = New System.Drawing.Size(59, 51) -Me.Label61.TabIndex = 176 -Me.Label61.Text = "@Bratty @Caring @Custom1" -Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label73.AutoSize = true +Me.Label73.Location = New System.Drawing.Point(13, 108) +Me.Label73.Name = "Label73" +Me.Label73.Size = New System.Drawing.Size(51, 13) +Me.Label73.TabIndex = 173 +Me.Label73.Text = "Item Cost" ' -'Label57 +'Label107 ' -Me.Label57.Location = New System.Drawing.Point(194, 11) -Me.Label57.Name = "Label57" -Me.Label57.Size = New System.Drawing.Size(120, 23) -Me.Label57.TabIndex = 160 -Me.Label57.Text = "File Name" -Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label107.Location = New System.Drawing.Point(38, 5) +Me.Label107.Name = "Label107" +Me.Label107.Size = New System.Drawing.Size(252, 47) +Me.Label107.TabIndex = 178 +Me.Label107.Text = "Use this page to create Wishlist files." +Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label58 +'BTNWishlistCreate ' -Me.Label58.Location = New System.Drawing.Point(350, 11) -Me.Label58.Name = "Label58" -Me.Label58.Size = New System.Drawing.Size(326, 23) -Me.Label58.TabIndex = 161 -Me.Label58.Text = "Domme's Post" -Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) +Me.BTNWishlistCreate.Name = "BTNWishlistCreate" +Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) +Me.BTNWishlistCreate.TabIndex = 177 +Me.BTNWishlistCreate.Text = "Create Wishlist File" +Me.BTNWishlistCreate.UseVisualStyleBackColor = true ' -'Label60 +'Label18 ' -Me.Label60.Location = New System.Drawing.Point(194, 139) -Me.Label60.Name = "Label60" -Me.Label60.Size = New System.Drawing.Size(120, 30) -Me.Label60.TabIndex = 175 -Me.Label60.Text = "Tease Responses Need 3 of Each:" -Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label18.Location = New System.Drawing.Point(409, 5) +Me.Label18.Name = "Label18" +Me.Label18.Size = New System.Drawing.Size(250, 23) +Me.Label18.TabIndex = 166 +Me.Label18.Text = "Preview" +Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBGlitModFileName +'PNLWishList ' -Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) -Me.TBGlitModFileName.Name = "TBGlitModFileName" -Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) -Me.TBGlitModFileName.TabIndex = 158 +Me.PNLWishList.BackColor = System.Drawing.Color.White +Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) +Me.PNLWishList.Controls.Add(Me.LBLWishListText) +Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) +Me.PNLWishList.Controls.Add(Me.WishlistCostGold) +Me.PNLWishList.Controls.Add(Me.LBLWishListName) +Me.PNLWishList.Controls.Add(Me.WishlistPreview) +Me.PNLWishList.Location = New System.Drawing.Point(407, 31) +Me.PNLWishList.Name = "PNLWishList" +Me.PNLWishList.Size = New System.Drawing.Size(250, 367) +Me.PNLWishList.TabIndex = 165 ' -'GroupBox34 +'WishlistCostSilver ' -Me.GroupBox34.BackColor = System.Drawing.Color.LightGray -Me.GroupBox34.Controls.Add(Me.Label52) -Me.GroupBox34.ForeColor = System.Drawing.Color.Black -Me.GroupBox34.Location = New System.Drawing.Point(8, 296) -Me.GroupBox34.Name = "GroupBox34" -Me.GroupBox34.Size = New System.Drawing.Size(683, 107) -Me.GroupBox34.TabIndex = 66 -Me.GroupBox34.TabStop = false -Me.GroupBox34.Text = "Description" +Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) +Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostSilver.Name = "WishlistCostSilver" +Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostSilver.TabIndex = 111 +Me.WishlistCostSilver.TabStop = false ' -'Label52 +'LBLWishListText ' -Me.Label52.BackColor = System.Drawing.Color.Transparent -Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label52.ForeColor = System.Drawing.Color.Black -Me.Label52.Location = New System.Drawing.Point(6, 16) -Me.Label52.Name = "Label52" -Me.Label52.Size = New System.Drawing.Size(670, 88) -Me.Label52.TabIndex = 62 -Me.Label52.Text = resources.GetString("Label52.Text") -Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) +Me.LBLWishListText.Name = "LBLWishListText" +Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) +Me.LBLWishListText.TabIndex = 108 ' -'RTBGlitModDommePost +'LBLWishlistCost ' -Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) -Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" -Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) -Me.RTBGlitModDommePost.TabIndex = 162 -Me.RTBGlitModDommePost.Text = "" +Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black +Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) +Me.LBLWishlistCost.Name = "LBLWishlistCost" +Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) +Me.LBLWishlistCost.TabIndex = 107 +Me.LBLWishlistCost.Text = "3" +Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button26 +'WishlistCostGold ' -Me.Button26.Location = New System.Drawing.Point(194, 239) -Me.Button26.Name = "Button26" -Me.Button26.Size = New System.Drawing.Size(120, 23) -Me.Button26.TabIndex = 174 -Me.Button26.Text = "Clear Fields" -Me.Button26.UseVisualStyleBackColor = true +Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) +Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostGold.Name = "WishlistCostGold" +Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostGold.TabIndex = 106 +Me.WishlistCostGold.TabStop = false +Me.WishlistCostGold.Visible = false ' -'Label56 +'LBLWishListName ' -Me.Label56.Location = New System.Drawing.Point(350, 80) -Me.Label56.Name = "Label56" -Me.Label56.Size = New System.Drawing.Size(324, 23) -Me.Label56.TabIndex = 156 -Me.Label56.Text = "Responses (Minimum 3)" -Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue +Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) +Me.LBLWishListName.Name = "LBLWishListName" +Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) +Me.LBLWishListName.TabIndex = 104 +Me.LBLWishListName.Text = "Item Name Goes Here" +Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'RTBGlitModResponses +'WishlistPreview ' -Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) -Me.RTBGlitModResponses.Name = "RTBGlitModResponses" -Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) -Me.RTBGlitModResponses.TabIndex = 150 -Me.RTBGlitModResponses.Text = "" +Me.WishlistPreview.ImageLocation = "" +Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) +Me.WishlistPreview.Name = "WishlistPreview" +Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) +Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WishlistPreview.TabIndex = 101 +Me.WishlistPreview.TabStop = false ' -'LBGlitModScripts +'TabPage26 ' -Me.LBGlitModScripts.FormattingEnabled = true -Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) -Me.LBGlitModScripts.Name = "LBGlitModScripts" -Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) -Me.LBGlitModScripts.TabIndex = 163 +Me.TabPage26.BackColor = System.Drawing.Color.Silver +Me.TabPage26.Controls.Add(Me.Panel12) +Me.TabPage26.Location = New System.Drawing.Point(4, 22) +Me.TabPage26.Name = "TabPage26" +Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage26.Size = New System.Drawing.Size(720, 448) +Me.TabPage26.TabIndex = 19 +Me.TabPage26.Text = "Themes" ' -'LBLGlitModScriptCount +'Panel12 ' -Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) -Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" -Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) -Me.LBLGlitModScriptCount.TabIndex = 173 -Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" -Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Panel12.BackColor = System.Drawing.Color.LightGray +Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel12.Controls.Add(Me.GroupBox9) +Me.Panel12.Controls.Add(Me.PictureBox10) +Me.Panel12.Controls.Add(Me.GroupBox5) +Me.Panel12.Controls.Add(Me.GroupBox11) +Me.Panel12.Controls.Add(Me.GroupBox1) +Me.Panel12.Controls.Add(Me.Label164) +Me.Panel12.Location = New System.Drawing.Point(6, 6) +Me.Panel12.Name = "Panel12" +Me.Panel12.Size = New System.Drawing.Size(708, 437) +Me.Panel12.TabIndex = 93 ' -'LBLGlitModDomType +'GroupBox9 ' -Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) -Me.LBLGlitModDomType.Name = "LBLGlitModDomType" -Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) -Me.LBLGlitModDomType.TabIndex = 155 -Me.LBLGlitModDomType.Text = "Total Brat" -Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox9.Controls.Add(Me.Button32) +Me.GroupBox9.Controls.Add(Me.Button31) +Me.GroupBox9.Location = New System.Drawing.Point(351, 231) +Me.GroupBox9.Name = "GroupBox9" +Me.GroupBox9.Size = New System.Drawing.Size(348, 94) +Me.GroupBox9.TabIndex = 152 +Me.GroupBox9.TabStop = false +Me.GroupBox9.Text = "System" ' -'Button29 +'Button32 ' -Me.Button29.Location = New System.Drawing.Point(194, 268) -Me.Button29.Name = "Button29" -Me.Button29.Size = New System.Drawing.Size(120, 23) -Me.Button29.TabIndex = 151 -Me.Button29.Text = "Save Glitter File" -Me.Button29.UseVisualStyleBackColor = true +Me.Button32.BackColor = System.Drawing.Color.Transparent +Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big +Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button32.Location = New System.Drawing.Point(196, 24) +Me.Button32.Name = "Button32" +Me.Button32.Size = New System.Drawing.Size(135, 55) +Me.Button32.TabIndex = 55 +Me.Button32.Text = " Save Theme" +Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button32.UseVisualStyleBackColor = false ' -'CBGlitModType +'Button31 ' -Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBGlitModType.FormattingEnabled = true -Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) -Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) -Me.CBGlitModType.Name = "CBGlitModType" -Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) -Me.CBGlitModType.TabIndex = 171 +Me.Button31.BackColor = System.Drawing.Color.Transparent +Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big +Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button31.Location = New System.Drawing.Point(17, 24) +Me.Button31.Name = "Button31" +Me.Button31.Size = New System.Drawing.Size(135, 55) +Me.Button31.TabIndex = 54 +Me.Button31.Text = " Open Theme" +Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button31.UseVisualStyleBackColor = false ' -'Label59 +'PictureBox10 ' -Me.Label59.Location = New System.Drawing.Point(33, 11) -Me.Label59.Name = "Label59" -Me.Label59.Size = New System.Drawing.Size(130, 23) -Me.Label59.TabIndex = 172 -Me.Label59.Text = "Glitter Post Type" -Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.PictureBox10.BackColor = System.Drawing.Color.LightGray +Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox10.Location = New System.Drawing.Point(9, 6) +Me.PictureBox10.Name = "PictureBox10" +Me.PictureBox10.Size = New System.Drawing.Size(160, 19) +Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox10.TabIndex = 151 +Me.PictureBox10.TabStop = false ' -'Label50 +'GroupBox5 +' +Me.GroupBox5.Controls.Add(Me.CBTransparentTime) +Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) +Me.GroupBox5.Controls.Add(Me.Label137) +Me.GroupBox5.Controls.Add(Me.Label138) +Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) +Me.GroupBox5.Location = New System.Drawing.Point(9, 31) +Me.GroupBox5.Name = "GroupBox5" +Me.GroupBox5.Size = New System.Drawing.Size(336, 294) +Me.GroupBox5.TabIndex = 58 +Me.GroupBox5.TabStop = false +Me.GroupBox5.Text = "UI Colors" ' -Me.Label50.Location = New System.Drawing.Point(191, 80) -Me.Label50.Name = "Label50" -Me.Label50.Size = New System.Drawing.Size(123, 23) -Me.Label50.TabIndex = 154 -Me.Label50.Text = "Current Domme Personality:" -Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTransparentTime ' -'TabPage25 +Me.CBTransparentTime.AutoSize = true +Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) +Me.CBTransparentTime.Name = "CBTransparentTime" +Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) +Me.CBTransparentTime.TabIndex = 23 +Me.CBTransparentTime.Text = "Transparent Date/Time Window" +Me.CBTransparentTime.UseVisualStyleBackColor = true ' -Me.TabPage25.BackColor = System.Drawing.Color.Silver -Me.TabPage25.Controls.Add(Me.Panel11) -Me.TabPage25.Location = New System.Drawing.Point(4, 22) -Me.TabPage25.Name = "TabPage25" -Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage25.Size = New System.Drawing.Size(720, 448) -Me.TabPage25.TabIndex = 18 -Me.TabPage25.Text = "Misc" +'LBLDateTimeColor2 ' -'Panel11 +Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor +Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) +Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" +Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateTimeColor2.TabIndex = 19 ' -Me.Panel11.BackColor = System.Drawing.Color.LightGray -Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel11.Controls.Add(Me.GroupBox8) -Me.Panel11.Controls.Add(Me.GroupBox62) -Me.Panel11.Controls.Add(Me.GroupBox33) -Me.Panel11.Controls.Add(Me.GroupBox27) -Me.Panel11.Controls.Add(Me.GroupBox20) -Me.Panel11.Controls.Add(Me.WebToy) -Me.Panel11.Controls.Add(Me.GroupBox15) -Me.Panel11.Controls.Add(Me.PictureBox9) -Me.Panel11.Controls.Add(Me.Label148) -Me.Panel11.Location = New System.Drawing.Point(6, 6) -Me.Panel11.Name = "Panel11" -Me.Panel11.Size = New System.Drawing.Size(708, 437) -Me.Panel11.TabIndex = 92 +'Label137 ' -'GroupBox8 +Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label137.Location = New System.Drawing.Point(6, 227) +Me.Label137.Name = "Label137" +Me.Label137.Size = New System.Drawing.Size(175, 20) +Me.Label137.TabIndex = 20 +Me.Label137.Text = "Date/Time Window Color" +Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.GroupBox8.Controls.Add(Me.CBOutputErrors) -Me.GroupBox8.Location = New System.Drawing.Point(420, 268) -Me.GroupBox8.Name = "GroupBox8" -Me.GroupBox8.Size = New System.Drawing.Size(279, 100) -Me.GroupBox8.TabIndex = 179 -Me.GroupBox8.TabStop = false -Me.GroupBox8.Text = "System Information" +'Label138 ' -'CBOutputErrors +Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label138.Location = New System.Drawing.Point(6, 193) +Me.Label138.Name = "Label138" +Me.Label138.Size = New System.Drawing.Size(175, 20) +Me.Label138.TabIndex = 17 +Me.Label138.Text = "Date/Time Text Color" +Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBOutputErrors.AutoSize = true -Me.CBOutputErrors.Checked = true -Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black -Me.CBOutputErrors.Location = New System.Drawing.Point(17, 33) -Me.CBOutputErrors.Name = "CBOutputErrors" -Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) -Me.CBOutputErrors.TabIndex = 29 -Me.CBOutputErrors.TabStop = false -Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" -Me.CBOutputErrors.UseVisualStyleBackColor = true +'LBLDateBackColor2 ' -'GroupBox62 +Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor +Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) +Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateBackColor2.Name = "LBLDateBackColor2" +Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateBackColor2.TabIndex = 22 ' -Me.GroupBox62.Controls.Add(Me.RBGerman) -Me.GroupBox62.Controls.Add(Me.RBEnglish) -Me.GroupBox62.Location = New System.Drawing.Point(420, 374) -Me.GroupBox62.Name = "GroupBox62" -Me.GroupBox62.Size = New System.Drawing.Size(279, 53) -Me.GroupBox62.TabIndex = 178 -Me.GroupBox62.TabStop = false -Me.GroupBox62.Text = "Language" +'LBLTextColor ' -'RBGerman +Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) +Me.LBLTextColor.Name = "LBLTextColor" +Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLTextColor.TabIndex = 7 +Me.LBLTextColor.Text = "Text Color" +Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.RBGerman.AutoSize = true -Me.RBGerman.Location = New System.Drawing.Point(180, 20) -Me.RBGerman.Name = "RBGerman" -Me.RBGerman.Size = New System.Drawing.Size(65, 17) -Me.RBGerman.TabIndex = 1 -Me.RBGerman.Text = "Deutsch" -Me.RBGerman.UseVisualStyleBackColor = true +'LBLChatWindowColor2 ' -'RBEnglish +Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor +Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) +Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" +Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatWindowColor2.TabIndex = 12 ' -Me.RBEnglish.AutoSize = true -Me.RBEnglish.Checked = true -Me.RBEnglish.Location = New System.Drawing.Point(36, 19) -Me.RBEnglish.Name = "RBEnglish" -Me.RBEnglish.Size = New System.Drawing.Size(59, 17) -Me.RBEnglish.TabIndex = 0 -Me.RBEnglish.TabStop = true -Me.RBEnglish.Text = "English" -Me.RBEnglish.UseVisualStyleBackColor = true +'LBLTextColor2 ' -'GroupBox33 +Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor +Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) +Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLTextColor2.Name = "LBLTextColor2" +Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLTextColor2.TabIndex = 9 ' -Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) -Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) -Me.GroupBox33.Controls.Add(Me.Label140) -Me.GroupBox33.Controls.Add(Me.Button11) -Me.GroupBox33.Controls.Add(Me.LBLChastityState) -Me.GroupBox33.Controls.Add(Me.Label120) -Me.GroupBox33.Location = New System.Drawing.Point(420, 155) -Me.GroupBox33.Name = "GroupBox33" -Me.GroupBox33.Size = New System.Drawing.Size(279, 107) -Me.GroupBox33.TabIndex = 177 -Me.GroupBox33.TabStop = false -Me.GroupBox33.Text = "System States" +'LBLChatTextColor ' -'BTNOfflineMode +Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) +Me.LBLChatTextColor.Name = "LBLChatTextColor" +Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatTextColor.TabIndex = 14 +Me.LBLChatTextColor.Text = "Chat Text Color" +Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 62) -Me.BTNOfflineMode.Name = "BTNOfflineMode" -Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) -Me.BTNOfflineMode.TabIndex = 180 -Me.BTNOfflineMode.Text = "Toggle" -Me.BTNOfflineMode.UseVisualStyleBackColor = true +'LBLBackColor2 ' -'LBLOfflineMode +Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor +Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) +Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLBackColor2.Name = "LBLBackColor2" +Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLBackColor2.TabIndex = 3 ' -Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray -Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red -Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 62) -Me.LBLOfflineMode.Name = "LBLOfflineMode" -Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) -Me.LBLOfflineMode.TabIndex = 179 -Me.LBLOfflineMode.Text = "OFF" -Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLButtonColor ' -'Label140 +Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) +Me.LBLButtonColor.Name = "LBLButtonColor" +Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) +Me.LBLButtonColor.TabIndex = 4 +Me.LBLButtonColor.Text = "Button Color" +Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.Label140.BackColor = System.Drawing.Color.LightGray -Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label140.Location = New System.Drawing.Point(17, 62) -Me.Label140.Name = "Label140" -Me.Label140.Size = New System.Drawing.Size(98, 23) -Me.Label140.TabIndex = 178 -Me.Label140.Text = "OFFLINE MODE" -Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLChatWindowColor ' -'Button11 +Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) +Me.LBLChatWindowColor.Name = "LBLChatWindowColor" +Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatWindowColor.TabIndex = 10 +Me.LBLChatWindowColor.Text = "Chat Window Color" +Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.Button11.Location = New System.Drawing.Point(161, 25) -Me.Button11.Name = "Button11" -Me.Button11.Size = New System.Drawing.Size(99, 23) -Me.Button11.TabIndex = 177 -Me.Button11.Text = "Toggle" -Me.Button11.UseVisualStyleBackColor = true +'LBLBackColor ' -'LBLChastityState +Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) +Me.LBLBackColor.Name = "LBLBackColor" +Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) +Me.LBLBackColor.TabIndex = 0 +Me.LBLBackColor.Text = "Background Color" +Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray -Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLChastityState.ForeColor = System.Drawing.Color.Red -Me.LBLChastityState.Location = New System.Drawing.Point(120, 25) -Me.LBLChastityState.Name = "LBLChastityState" -Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) -Me.LBLChastityState.TabIndex = 3 -Me.LBLChastityState.Text = "OFF" -Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLChatTextColor2 ' -'Label120 +Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor +Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) +Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatTextColor2.Name = "LBLChatTextColor2" +Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatTextColor2.TabIndex = 16 ' -Me.Label120.BackColor = System.Drawing.Color.LightGray -Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label120.Location = New System.Drawing.Point(17, 25) -Me.Label120.Name = "Label120" -Me.Label120.Size = New System.Drawing.Size(98, 23) -Me.Label120.TabIndex = 2 -Me.Label120.Text = "CHASTITY" -Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLButtonColor2 ' -'GroupBox27 +Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor +Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) +Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLButtonColor2.Name = "LBLButtonColor2" +Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLButtonColor2.TabIndex = 6 ' -Me.GroupBox27.Controls.Add(Me.Button6) -Me.GroupBox27.Controls.Add(Me.LBLSesSpace) -Me.GroupBox27.Controls.Add(Me.Button3) -Me.GroupBox27.Controls.Add(Me.LBLSesFiles) -Me.GroupBox27.Controls.Add(Me.Label125) -Me.GroupBox27.Controls.Add(Me.Label124) -Me.GroupBox27.Location = New System.Drawing.Point(420, 32) -Me.GroupBox27.Name = "GroupBox27" -Me.GroupBox27.Size = New System.Drawing.Size(279, 117) -Me.GroupBox27.TabIndex = 176 -Me.GroupBox27.TabStop = false -Me.GroupBox27.Text = "Session Images" +'GroupBox11 ' -'Button6 +Me.GroupBox11.BackColor = System.Drawing.Color.LightGray +Me.GroupBox11.Controls.Add(Me.Label144) +Me.GroupBox11.ForeColor = System.Drawing.Color.Black +Me.GroupBox11.Location = New System.Drawing.Point(7, 331) +Me.GroupBox11.Name = "GroupBox11" +Me.GroupBox11.Size = New System.Drawing.Size(692, 92) +Me.GroupBox11.TabIndex = 65 +Me.GroupBox11.TabStop = false +Me.GroupBox11.Text = "Description" ' -Me.Button6.Location = New System.Drawing.Point(143, 76) -Me.Button6.Name = "Button6" -Me.Button6.Size = New System.Drawing.Size(117, 23) -Me.Button6.TabIndex = 176 -Me.Button6.Text = "Delete All Files" -Me.Button6.UseVisualStyleBackColor = true +'Label144 ' -'LBLSesSpace +Me.Label144.BackColor = System.Drawing.Color.Transparent +Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label144.ForeColor = System.Drawing.Color.Black +Me.Label144.Location = New System.Drawing.Point(6, 16) +Me.Label144.Name = "Label144" +Me.Label144.Size = New System.Drawing.Size(680, 73) +Me.Label144.TabIndex = 62 +Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ + "nd opened from txt files." +Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) -Me.LBLSesSpace.Name = "LBLSesSpace" -Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) -Me.LBLSesSpace.TabIndex = 3 +'GroupBox1 ' -'Button3 +Me.GroupBox1.Controls.Add(Me.CBFlipBack) +Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) +Me.GroupBox1.Controls.Add(Me.Button17) +Me.GroupBox1.Controls.Add(Me.CBStretchBack) +Me.GroupBox1.Controls.Add(Me.Button18) +Me.GroupBox1.Location = New System.Drawing.Point(351, 30) +Me.GroupBox1.Name = "GroupBox1" +Me.GroupBox1.Size = New System.Drawing.Size(348, 195) +Me.GroupBox1.TabIndex = 57 +Me.GroupBox1.TabStop = false +Me.GroupBox1.Text = "Background" ' -Me.Button3.Location = New System.Drawing.Point(20, 76) -Me.Button3.Name = "Button3" -Me.Button3.Size = New System.Drawing.Size(117, 23) -Me.Button3.TabIndex = 175 -Me.Button3.Text = "Open Folder" -Me.Button3.UseVisualStyleBackColor = true +'CBFlipBack ' -'LBLSesFiles +Me.CBFlipBack.Enabled = false +Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) +Me.CBFlipBack.Name = "CBFlipBack" +Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) +Me.CBFlipBack.TabIndex = 4 +Me.CBFlipBack.Text = "Flip Background" +Me.CBFlipBack.UseVisualStyleBackColor = true ' -Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) -Me.LBLSesFiles.Name = "LBLSesFiles" -Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) -Me.LBLSesFiles.TabIndex = 2 +'PBBackgroundPreview ' -'Label125 +Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) +Me.PBBackgroundPreview.Name = "PBBackgroundPreview" +Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) +Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PBBackgroundPreview.TabIndex = 0 +Me.PBBackgroundPreview.TabStop = false ' -Me.Label125.AutoSize = true -Me.Label125.Location = New System.Drawing.Point(17, 53) -Me.Label125.Name = "Label125" -Me.Label125.Size = New System.Drawing.Size(120, 13) -Me.Label125.TabIndex = 1 -Me.Label125.Text = "Total Disk Space Used:" +'Button17 ' -'Label124 +Me.Button17.BackColor = System.Drawing.Color.Transparent +Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load +Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button17.Location = New System.Drawing.Point(228, 36) +Me.Button17.Name = "Button17" +Me.Button17.Size = New System.Drawing.Size(103, 93) +Me.Button17.TabIndex = 1 +Me.Button17.UseVisualStyleBackColor = false ' -Me.Label124.AutoSize = true -Me.Label124.Location = New System.Drawing.Point(17, 24) -Me.Label124.Name = "Label124" -Me.Label124.Size = New System.Drawing.Size(126, 13) -Me.Label124.TabIndex = 0 -Me.Label124.Text = "Number of Files in Folder:" +'CBStretchBack ' -'GroupBox20 +Me.CBStretchBack.Checked = true +Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) +Me.CBStretchBack.Name = "CBStretchBack" +Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) +Me.CBStretchBack.TabIndex = 2 +Me.CBStretchBack.Text = "Stretch Background" +Me.CBStretchBack.UseVisualStyleBackColor = true ' -Me.GroupBox20.Controls.Add(Me.Button1) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) -Me.GroupBox20.Controls.Add(Me.Label117) -Me.GroupBox20.Controls.Add(Me.Label116) -Me.GroupBox20.Controls.Add(Me.PBCurrent) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) -Me.GroupBox20.Controls.Add(Me.PBMaintenance) -Me.GroupBox20.Controls.Add(Me.LBLMaintenance) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) -Me.GroupBox20.Location = New System.Drawing.Point(6, 32) -Me.GroupBox20.Name = "GroupBox20" -Me.GroupBox20.Size = New System.Drawing.Size(408, 230) -Me.GroupBox20.TabIndex = 174 -Me.GroupBox20.TabStop = false -Me.GroupBox20.Text = "Maintenance" +'Button18 ' -'Button1 +Me.Button18.Location = New System.Drawing.Point(228, 155) +Me.Button18.Name = "Button18" +Me.Button18.Size = New System.Drawing.Size(103, 31) +Me.Button18.TabIndex = 3 +Me.Button18.Text = "Clear" +Me.Button18.UseVisualStyleBackColor = true ' -Me.Button1.Enabled = false -Me.Button1.Location = New System.Drawing.Point(270, 19) -Me.Button1.Name = "Button1" -Me.Button1.Size = New System.Drawing.Size(121, 23) -Me.Button1.TabIndex = 176 -Me.Button1.Text = "Reset Settings" -Me.Button1.UseVisualStyleBackColor = true +'Label164 ' -'BTNMaintenanceScripts +Me.Label164.BackColor = System.Drawing.Color.Transparent +Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label164.ForeColor = System.Drawing.Color.Black +Me.Label164.Location = New System.Drawing.Point(7, 6) +Me.Label164.Name = "Label164" +Me.Label164.Size = New System.Drawing.Size(692, 21) +Me.Label164.TabIndex = 49 +Me.Label164.Text = "Theme Settings" +Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) -Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" -Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceScripts.TabIndex = 175 -Me.BTNMaintenanceScripts.Text = "Audit Scripts" -Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true +'TabPage4 ' -'BTNMaintenanceRefresh +Me.TabPage4.BackColor = System.Drawing.Color.Silver +Me.TabPage4.Controls.Add(Me.Panel6) +Me.TabPage4.Location = New System.Drawing.Point(4, 22) +Me.TabPage4.Name = "TabPage4" +Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage4.Size = New System.Drawing.Size(720, 448) +Me.TabPage4.TabIndex = 3 +Me.TabPage4.Text = "Ranges" ' -Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) -Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" -Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRefresh.TabIndex = 7 -Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" -Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true +'Panel6 ' -'Label117 +Me.Panel6.BackColor = System.Drawing.Color.LightGray +Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel6.Controls.Add(Me.GroupBox69) +Me.Panel6.Controls.Add(Me.GroupBox68) +Me.Panel6.Controls.Add(Me.GroupBox67) +Me.Panel6.Controls.Add(Me.GroupBox10) +Me.Panel6.Controls.Add(Me.GroupBox57) +Me.Panel6.Controls.Add(Me.GBRangeRuinChance) +Me.Panel6.Controls.Add(Me.GroupBox17) +Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) +Me.Panel6.Controls.Add(Me.PictureBox8) +Me.Panel6.Controls.Add(Me.Label38) +Me.Panel6.Location = New System.Drawing.Point(6, 6) +Me.Panel6.Name = "Panel6" +Me.Panel6.Size = New System.Drawing.Size(708, 437) +Me.Panel6.TabIndex = 91 ' -Me.Label117.AutoSize = true -Me.Label117.Location = New System.Drawing.Point(15, 182) -Me.Label117.Name = "Label117" -Me.Label117.Size = New System.Drawing.Size(84, 13) -Me.Label117.TabIndex = 6 -Me.Label117.Text = "Overall Progress" +'GroupBox69 ' -'Label116 +Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) +Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) +Me.GroupBox69.Controls.Add(Me.TimedWriting) +Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) +Me.GroupBox69.Location = New System.Drawing.Point(236, 344) +Me.GroupBox69.Name = "GroupBox69" +Me.GroupBox69.Size = New System.Drawing.Size(166, 83) +Me.GroupBox69.TabIndex = 173 +Me.GroupBox69.TabStop = false +Me.GroupBox69.Text = "Writing Tasks" ' -Me.Label116.AutoSize = true -Me.Label116.Location = New System.Drawing.Point(15, 140) -Me.Label116.Name = "Label116" -Me.Label116.Size = New System.Drawing.Size(85, 13) -Me.Label116.TabIndex = 5 -Me.Label116.Text = "Current Progress" +'TypesSpeedVal ' -'PBCurrent +Me.TypesSpeedVal.AutoSize = true +Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) +Me.TypesSpeedVal.Name = "TypesSpeedVal" +Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) +Me.TypesSpeedVal.TabIndex = 0 +Me.TypesSpeedVal.Text = "10" +Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight ' -Me.PBCurrent.Location = New System.Drawing.Point(15, 156) -Me.PBCurrent.Name = "PBCurrent" -Me.PBCurrent.Size = New System.Drawing.Size(376, 23) -Me.PBCurrent.TabIndex = 4 +'TypeSpeedLabel ' -'BTNMaintenanceCancel +Me.TypeSpeedLabel.AutoSize = true +Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) +Me.TypeSpeedLabel.Name = "TypeSpeedLabel" +Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) +Me.TypeSpeedLabel.TabIndex = 2 +Me.TypeSpeedLabel.Text = "Typing Speed:" ' -Me.BTNMaintenanceCancel.Enabled = false -Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) -Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" -Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceCancel.TabIndex = 3 -Me.BTNMaintenanceCancel.Text = "Cancel" -Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true +'TimedWriting ' -'PBMaintenance +Me.TimedWriting.AutoSize = true +Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting +Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TimedWriting.Location = New System.Drawing.Point(9, 19) +Me.TimedWriting.Name = "TimedWriting" +Me.TimedWriting.Size = New System.Drawing.Size(123, 17) +Me.TimedWriting.TabIndex = 1 +Me.TimedWriting.Text = "Timed Writing Tasks" +Me.TimedWriting.UseVisualStyleBackColor = true ' -Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) -Me.PBMaintenance.Name = "PBMaintenance" -Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) -Me.PBMaintenance.TabIndex = 2 +'TypeSpeedSlider ' -'LBLMaintenance +Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) +Me.TypeSpeedSlider.Maximum = 100 +Me.TypeSpeedSlider.Minimum = 33 +Me.TypeSpeedSlider.Name = "TypeSpeedSlider" +Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) +Me.TypeSpeedSlider.TabIndex = 3 +Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed ' -Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) -Me.LBLMaintenance.Name = "LBLMaintenance" -Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) -Me.LBLMaintenance.TabIndex = 1 -Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GroupBox68 ' -'BTNMaintenanceRebuild +Me.GroupBox68.Controls.Add(Me.NBTasksMax) +Me.GroupBox68.Controls.Add(Me.NBTasksMin) +Me.GroupBox68.Controls.Add(Me.Label165) +Me.GroupBox68.Controls.Add(Me.Label166) +Me.GroupBox68.Location = New System.Drawing.Point(236, 287) +Me.GroupBox68.Name = "GroupBox68" +Me.GroupBox68.Size = New System.Drawing.Size(166, 51) +Me.GroupBox68.TabIndex = 172 +Me.GroupBox68.TabStop = false +Me.GroupBox68.Text = "Session Tasks" ' -Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) -Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" -Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRebuild.TabIndex = 0 -Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" -Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true +'NBTasksMax ' -'WebToy +Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) +Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) +Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTasksMax.Name = "NBTasksMax" +Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMax.TabIndex = 187 +Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) ' -Me.WebToy.Location = New System.Drawing.Point(16, 379) -Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) -Me.WebToy.Name = "WebToy" -Me.WebToy.Size = New System.Drawing.Size(381, 36) -Me.WebToy.TabIndex = 172 +'NBTasksMin ' -'GroupBox15 +Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) +Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBTasksMin.Name = "NBTasksMin" +Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMin.TabIndex = 186 +Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) ' -Me.GroupBox15.Controls.Add(Me.Label115) -Me.GroupBox15.Controls.Add(Me.TBWebStop) -Me.GroupBox15.Controls.Add(Me.TBWebStart) -Me.GroupBox15.Controls.Add(Me.Label114) -Me.GroupBox15.Location = New System.Drawing.Point(6, 268) -Me.GroupBox15.Name = "GroupBox15" -Me.GroupBox15.Size = New System.Drawing.Size(408, 159) -Me.GroupBox15.TabIndex = 173 -Me.GroupBox15.TabStop = false -Me.GroupBox15.Text = "Web-Controlled Sex Toy" +'Label165 ' -'Label115 +Me.Label165.BackColor = System.Drawing.Color.Transparent +Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label165.ForeColor = System.Drawing.Color.Black +Me.Label165.Location = New System.Drawing.Point(100, 20) +Me.Label165.Name = "Label165" +Me.Label165.Size = New System.Drawing.Size(10, 17) +Me.Label165.TabIndex = 185 +Me.Label165.Text = "-" +Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.Label115.AutoSize = true -Me.Label115.Location = New System.Drawing.Point(12, 58) -Me.Label115.Name = "Label115" -Me.Label115.Size = New System.Drawing.Size(54, 13) -Me.Label115.TabIndex = 171 -Me.Label115.Text = "Stop URL" +'Label166 ' -'TBWebStop +Me.Label166.BackColor = System.Drawing.Color.Transparent +Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label166.ForeColor = System.Drawing.Color.Black +Me.Label166.Location = New System.Drawing.Point(6, 21) +Me.Label166.Name = "Label166" +Me.Label166.Size = New System.Drawing.Size(49, 17) +Me.Label166.TabIndex = 188 +Me.Label166.Text = "Amount:" +Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.TBWebStop.Location = New System.Drawing.Point(10, 72) -Me.TBWebStop.Name = "TBWebStop" -Me.TBWebStop.Size = New System.Drawing.Size(381, 20) -Me.TBWebStop.TabIndex = 170 +'GroupBox67 ' -'TBWebStart +Me.GroupBox67.Controls.Add(Me.Label161) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) +Me.GroupBox67.Controls.Add(Me.Label162) +Me.GroupBox67.Controls.Add(Me.Label163) +Me.GroupBox67.Controls.Add(Me.Label158) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) +Me.GroupBox67.Controls.Add(Me.Label159) +Me.GroupBox67.Controls.Add(Me.Label160) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) +Me.GroupBox67.Controls.Add(Me.Label119) +Me.GroupBox67.Controls.Add(Me.Label157) +Me.GroupBox67.Controls.Add(Me.Label151) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) +Me.GroupBox67.Controls.Add(Me.Label154) +Me.GroupBox67.Controls.Add(Me.Label155) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) +Me.GroupBox67.Controls.Add(Me.Label146) +Me.GroupBox67.Controls.Add(Me.Label149) +Me.GroupBox67.Location = New System.Drawing.Point(408, 288) +Me.GroupBox67.Name = "GroupBox67" +Me.GroupBox67.Size = New System.Drawing.Size(291, 139) +Me.GroupBox67.TabIndex = 171 +Me.GroupBox67.TabStop = false +Me.GroupBox67.Text = "Letter Tasks" ' -Me.TBWebStart.Location = New System.Drawing.Point(10, 33) -Me.TBWebStart.Name = "TBWebStart" -Me.TBWebStart.Size = New System.Drawing.Size(381, 20) -Me.TBWebStart.TabIndex = 167 +'Label161 ' -'Label114 +Me.Label161.BackColor = System.Drawing.Color.Transparent +Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label161.ForeColor = System.Drawing.Color.Black +Me.Label161.Location = New System.Drawing.Point(233, 110) +Me.Label161.Name = "Label161" +Me.Label161.Size = New System.Drawing.Size(50, 17) +Me.Label161.TabIndex = 204 +Me.Label161.Text = "minutes" +Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.Label114.AutoSize = true -Me.Label114.Location = New System.Drawing.Point(12, 17) -Me.Label114.Name = "Label114" -Me.Label114.Size = New System.Drawing.Size(54, 13) -Me.Label114.TabIndex = 168 -Me.Label114.Text = "Start URL" +'NBTaskCBTTimeMax ' -'PictureBox9 +Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) +Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" +Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMax.TabIndex = 203 +Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax ' -Me.PictureBox9.BackColor = System.Drawing.Color.LightGray -Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox9.Location = New System.Drawing.Point(9, 6) -Me.PictureBox9.Name = "PictureBox9" -Me.PictureBox9.Size = New System.Drawing.Size(160, 19) -Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox9.TabIndex = 166 -Me.PictureBox9.TabStop = false +'NBTaskCBTTimeMin ' -'Label148 +Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) +Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" +Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMin.TabIndex = 202 +Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin ' -Me.Label148.BackColor = System.Drawing.Color.Transparent -Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label148.ForeColor = System.Drawing.Color.Black -Me.Label148.Location = New System.Drawing.Point(7, 6) -Me.Label148.Name = "Label148" -Me.Label148.Size = New System.Drawing.Size(692, 21) -Me.Label148.TabIndex = 48 -Me.Label148.Text = "Miscellaneous Settings" -Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Label162 ' -'TabPage28 +Me.Label162.BackColor = System.Drawing.Color.Transparent +Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label162.ForeColor = System.Drawing.Color.Black +Me.Label162.Location = New System.Drawing.Point(167, 110) +Me.Label162.Name = "Label162" +Me.Label162.Size = New System.Drawing.Size(10, 17) +Me.Label162.TabIndex = 201 +Me.Label162.Text = "-" +Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.TabPage28.BackColor = System.Drawing.Color.Silver -Me.TabPage28.Controls.Add(Me.TabControl3) -Me.TabPage28.Location = New System.Drawing.Point(4, 22) -Me.TabPage28.Name = "TabPage28" -Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage28.Size = New System.Drawing.Size(720, 448) -Me.TabPage28.TabIndex = 20 -Me.TabPage28.Text = "Debug" +'Label163 ' -'TabControl3 +Me.Label163.BackColor = System.Drawing.Color.Transparent +Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label163.ForeColor = System.Drawing.Color.Black +Me.Label163.Location = New System.Drawing.Point(12, 111) +Me.Label163.Name = "Label163" +Me.Label163.Size = New System.Drawing.Size(151, 17) +Me.Label163.TabIndex = 200 +Me.Label163.Text = "CBT Time:" +Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.TabControl3.Controls.Add(Me.TabPage29) -Me.TabControl3.Controls.Add(Me.TabPage30) -Me.TabControl3.Location = New System.Drawing.Point(6, 6) -Me.TabControl3.Name = "TabControl3" -Me.TabControl3.SelectedIndex = 0 -Me.TabControl3.Size = New System.Drawing.Size(708, 437) -Me.TabControl3.TabIndex = 0 +'Label158 +' +Me.Label158.BackColor = System.Drawing.Color.Transparent +Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label158.ForeColor = System.Drawing.Color.Black +Me.Label158.Location = New System.Drawing.Point(233, 87) +Me.Label158.Name = "Label158" +Me.Label158.Size = New System.Drawing.Size(50, 17) +Me.Label158.TabIndex = 199 +Me.Label158.Text = "minutes" +Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TabPage29 +'NBTaskEdgeHoldTimeMax ' -Me.TabPage29.BackColor = System.Drawing.Color.LightGray -Me.TabPage29.Controls.Add(Me.Label143) -Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) -Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) -Me.TabPage29.Controls.Add(Me.GroupBox26) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) -Me.TabPage29.Controls.Add(Me.Label145) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) -Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) -Me.TabPage29.Controls.Add(Me.Label142) -Me.TabPage29.Controls.Add(Me.Label150) -Me.TabPage29.Controls.Add(Me.Label152) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) -Me.TabPage29.Controls.Add(Me.Label147) -Me.TabPage29.Location = New System.Drawing.Point(4, 22) -Me.TabPage29.Name = "TabPage29" -Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage29.Size = New System.Drawing.Size(700, 411) -Me.TabPage29.TabIndex = 0 -Me.TabPage29.Text = "TabPage29" +Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) +Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" +Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 +Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax ' -'Label143 +'NBTaskEdgeHoldTimeMin ' -Me.Label143.Location = New System.Drawing.Point(402, 46) -Me.Label143.Name = "Label143" -Me.Label143.Size = New System.Drawing.Size(67, 23) -Me.Label143.TabIndex = 15 -Me.Label143.Text = "Script Timer" -Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) +Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" +Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 +Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin ' -'LBLDebugScriptTime +'Label159 ' -Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) -Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" -Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugScriptTime.TabIndex = 16 -Me.LBLDebugScriptTime.Text = "0" -Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label159.BackColor = System.Drawing.Color.Transparent +Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label159.ForeColor = System.Drawing.Color.Black +Me.Label159.Location = New System.Drawing.Point(167, 87) +Me.Label159.Name = "Label159" +Me.Label159.Size = New System.Drawing.Size(10, 17) +Me.Label159.TabIndex = 196 +Me.Label159.Text = "-" +Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNDebugHoldEdgeTimer +'Label160 ' -Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) -Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" -Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugHoldEdgeTimer.TabIndex = 14 -Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" -Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true +Me.Label160.BackColor = System.Drawing.Color.Transparent +Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label160.ForeColor = System.Drawing.Color.Black +Me.Label160.Location = New System.Drawing.Point(12, 88) +Me.Label160.Name = "Label160" +Me.Label160.Size = New System.Drawing.Size(151, 17) +Me.Label160.TabIndex = 195 +Me.Label160.Text = "Edge Hold Time:" +Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox26 +'NBTaskEdgesMax ' -Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) -Me.GroupBox26.Controls.Add(Me.Button19) -Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) -Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) -Me.GroupBox26.Location = New System.Drawing.Point(6, 5) -Me.GroupBox26.Name = "GroupBox26" -Me.GroupBox26.Size = New System.Drawing.Size(346, 178) -Me.GroupBox26.TabIndex = 0 -Me.GroupBox26.TabStop = false -Me.GroupBox26.Text = "Taunt Cycle" +Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) +Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" +Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMax.TabIndex = 194 +Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax ' -'LBLCycleDebugCountdown +'NBTaskEdgesMin ' -Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) -Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" -Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) -Me.LBLCycleDebugCountdown.TabIndex = 10 -Me.LBLCycleDebugCountdown.Text = "0" -Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) +Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" +Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMin.TabIndex = 193 +Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin ' -'Button19 +'Label119 ' -Me.Button19.Location = New System.Drawing.Point(191, 142) -Me.Button19.Name = "Button19" -Me.Button19.Size = New System.Drawing.Size(146, 30) -Me.Button19.TabIndex = 9 -Me.Button19.Text = "Countdown to 5 Seconds" -Me.Button19.UseVisualStyleBackColor = true +Me.Label119.BackColor = System.Drawing.Color.Transparent +Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label119.ForeColor = System.Drawing.Color.Black +Me.Label119.Location = New System.Drawing.Point(167, 64) +Me.Label119.Name = "Label119" +Me.Label119.Size = New System.Drawing.Size(10, 17) +Me.Label119.TabIndex = 192 +Me.Label119.Text = "-" +Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNDebugTauntsClear +'Label157 ' -Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) -Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" -Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) -Me.BTNDebugTauntsClear.TabIndex = 8 -Me.BTNDebugTauntsClear.Text = "Clear" -Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true +Me.Label157.BackColor = System.Drawing.Color.Transparent +Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label157.ForeColor = System.Drawing.Color.Black +Me.Label157.Location = New System.Drawing.Point(12, 65) +Me.Label157.Name = "Label157" +Me.Label157.Size = New System.Drawing.Size(151, 17) +Me.Label157.TabIndex = 191 +Me.Label157.Text = "Edges:" +Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBDebugTaunts3 +'Label151 ' -Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) -Me.TBDebugTaunts3.Name = "TBDebugTaunts3" -Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts3.TabIndex = 7 +Me.Label151.BackColor = System.Drawing.Color.Transparent +Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label151.ForeColor = System.Drawing.Color.Black +Me.Label151.Location = New System.Drawing.Point(233, 41) +Me.Label151.Name = "Label151" +Me.Label151.Size = New System.Drawing.Size(50, 17) +Me.Label151.TabIndex = 190 +Me.Label151.Text = "minutes" +Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBDebugTaunts2 +'NBTaskStrokingTimeMax ' -Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) -Me.TBDebugTaunts2.Name = "TBDebugTaunts2" -Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts2.TabIndex = 6 +Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) +Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" +Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMax.TabIndex = 189 +Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax ' -'TBDebugTaunts1 +'NBTaskStrokingTimeMin ' -Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) -Me.TBDebugTaunts1.Name = "TBDebugTaunts1" -Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts1.TabIndex = 5 +Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) +Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" +Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMin.TabIndex = 188 +Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin ' -'RBDebugTaunts3 +'Label154 ' -Me.RBDebugTaunts3.AutoSize = true -Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) -Me.RBDebugTaunts3.Name = "RBDebugTaunts3" -Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts3.TabIndex = 4 -Me.RBDebugTaunts3.Text = "3 Lines" -Me.RBDebugTaunts3.UseVisualStyleBackColor = true +Me.Label154.BackColor = System.Drawing.Color.Transparent +Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label154.ForeColor = System.Drawing.Color.Black +Me.Label154.Location = New System.Drawing.Point(167, 41) +Me.Label154.Name = "Label154" +Me.Label154.Size = New System.Drawing.Size(10, 17) +Me.Label154.TabIndex = 187 +Me.Label154.Text = "-" +Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'RBDebugTaunts2 +'Label155 ' -Me.RBDebugTaunts2.AutoSize = true -Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) -Me.RBDebugTaunts2.Name = "RBDebugTaunts2" -Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts2.TabIndex = 3 -Me.RBDebugTaunts2.Text = "2 Lines" -Me.RBDebugTaunts2.UseVisualStyleBackColor = true +Me.Label155.BackColor = System.Drawing.Color.Transparent +Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label155.ForeColor = System.Drawing.Color.Black +Me.Label155.Location = New System.Drawing.Point(12, 42) +Me.Label155.Name = "Label155" +Me.Label155.Size = New System.Drawing.Size(151, 17) +Me.Label155.TabIndex = 186 +Me.Label155.Text = "Stroking Time:" +Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskStrokesMax +' +Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) +Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" +Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMax.TabIndex = 184 +Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax ' -'RBDebugTaunts1 +'NBTaskStrokesMin ' -Me.RBDebugTaunts1.AutoSize = true -Me.RBDebugTaunts1.Checked = true -Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) -Me.RBDebugTaunts1.Name = "RBDebugTaunts1" -Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) -Me.RBDebugTaunts1.TabIndex = 2 -Me.RBDebugTaunts1.TabStop = true -Me.RBDebugTaunts1.Text = "1 Line" -Me.RBDebugTaunts1.UseVisualStyleBackColor = true +Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) +Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" +Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMin.TabIndex = 183 +Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin ' -'CBDebugTauntsEndless +'Label146 ' -Me.CBDebugTauntsEndless.AutoSize = true -Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) -Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" -Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) -Me.CBDebugTauntsEndless.TabIndex = 1 -Me.CBDebugTauntsEndless.Text = "Endless Cycle" -Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true +Me.Label146.BackColor = System.Drawing.Color.Transparent +Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label146.ForeColor = System.Drawing.Color.Black +Me.Label146.Location = New System.Drawing.Point(167, 18) +Me.Label146.Name = "Label146" +Me.Label146.Size = New System.Drawing.Size(10, 17) +Me.Label146.TabIndex = 182 +Me.Label146.Text = "-" +Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBDebugTaunts +'Label149 ' -Me.CBDebugTaunts.AutoSize = true -Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) -Me.CBDebugTaunts.Name = "CBDebugTaunts" -Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) -Me.CBDebugTaunts.TabIndex = 0 -Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" -Me.CBDebugTaunts.UseVisualStyleBackColor = true +Me.Label149.BackColor = System.Drawing.Color.Transparent +Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label149.ForeColor = System.Drawing.Color.Black +Me.Label149.Location = New System.Drawing.Point(12, 19) +Me.Label149.Name = "Label149" +Me.Label149.Size = New System.Drawing.Size(151, 17) +Me.Label149.TabIndex = 181 +Me.Label149.Text = "Strokes:" +Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNDebugStrokeTauntTimer +'GroupBox10 ' -Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) -Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" -Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTauntTimer.TabIndex = 8 -Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" -Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true +Me.GroupBox10.Controls.Add(Me.Label112) +Me.GroupBox10.Controls.Add(Me.NBNextImageChance) +Me.GroupBox10.Controls.Add(Me.Label6) +Me.GroupBox10.Location = New System.Drawing.Point(408, 31) +Me.GroupBox10.Name = "GroupBox10" +Me.GroupBox10.Size = New System.Drawing.Size(291, 54) +Me.GroupBox10.TabIndex = 170 +Me.GroupBox10.TabStop = false +Me.GroupBox10.Text = "Tease Slideshow" ' -'LBLDebugHoldEdgeTime +'Label112 ' -Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) -Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" -Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugHoldEdgeTime.TabIndex = 13 -Me.LBLDebugHoldEdgeTime.Text = "0" -Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label112.BackColor = System.Drawing.Color.Transparent +Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label112.ForeColor = System.Drawing.Color.Black +Me.Label112.Location = New System.Drawing.Point(233, 21) +Me.Label112.Name = "Label112" +Me.Label112.Size = New System.Drawing.Size(50, 17) +Me.Label112.TabIndex = 180 +Me.Label112.Text = "percent" +Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label145 +'NBNextImageChance ' -Me.Label145.Location = New System.Drawing.Point(402, 11) -Me.Label145.Name = "Label145" -Me.Label145.Size = New System.Drawing.Size(67, 23) -Me.Label145.TabIndex = 3 -Me.Label145.Text = "Tease Timer" -Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) +Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBNextImageChance.Name = "NBNextImageChance" +Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) +Me.NBNextImageChance.TabIndex = 179 +Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'BTNDebugStrokeTime +'Label6 ' -Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) -Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" -Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTime.TabIndex = 2 -Me.BTNDebugStrokeTime.Text = "Set to 5" -Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true +Me.Label6.BackColor = System.Drawing.Color.Transparent +Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label6.ForeColor = System.Drawing.Color.Black +Me.Label6.Location = New System.Drawing.Point(9, 21) +Me.Label6.Name = "Label6" +Me.Label6.Size = New System.Drawing.Size(151, 17) +Me.Label6.TabIndex = 154 +Me.Label6.Text = "Image Next/Previous Chance:" +Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNDebugEdgeTauntTimer +'GroupBox57 ' -Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) -Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" -Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugEdgeTauntTimer.TabIndex = 11 -Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" -Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true +Me.GroupBox57.Controls.Add(Me.Label139) +Me.GroupBox57.Controls.Add(Me.NBTauntEdging) +Me.GroupBox57.Controls.Add(Me.LBLVtf) +Me.GroupBox57.Controls.Add(Me.LBLStf) +Me.GroupBox57.Controls.Add(Me.SliderSTF) +Me.GroupBox57.Controls.Add(Me.TauntSlider) +Me.GroupBox57.Controls.Add(Me.Label106) +Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) +Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) +Me.GroupBox57.Controls.Add(Me.Label103) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) +Me.GroupBox57.Controls.Add(Me.Label105) +Me.GroupBox57.Controls.Add(Me.Label101) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) +Me.GroupBox57.Controls.Add(Me.Label102) +Me.GroupBox57.Controls.Add(Me.Label97) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) +Me.GroupBox57.Controls.Add(Me.Label99) +Me.GroupBox57.Controls.Add(Me.Label96) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) +Me.GroupBox57.Controls.Add(Me.Label95) +Me.GroupBox57.Controls.Add(Me.Label49) +Me.GroupBox57.Controls.Add(Me.Label141) +Me.GroupBox57.Location = New System.Drawing.Point(7, 30) +Me.GroupBox57.Name = "GroupBox57" +Me.GroupBox57.Size = New System.Drawing.Size(223, 308) +Me.GroupBox57.TabIndex = 169 +Me.GroupBox57.TabStop = false +Me.GroupBox57.Text = "Tease" ' -'LBLDebugTeaseTime +'Label139 ' -Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) -Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" -Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugTeaseTime.TabIndex = 4 -Me.LBLDebugTeaseTime.Text = "0" -Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label139.BackColor = System.Drawing.Color.Transparent +Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label139.ForeColor = System.Drawing.Color.Black +Me.Label139.Location = New System.Drawing.Point(175, 171) +Me.Label139.Name = "Label139" +Me.Label139.Size = New System.Drawing.Size(50, 17) +Me.Label139.TabIndex = 184 +Me.Label139.Text = "percent" +Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLDebugStrokeTime +'NBTauntEdging ' -Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) -Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" -Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTime.TabIndex = 1 -Me.LBLDebugStrokeTime.Text = "0" -Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) +Me.NBTauntEdging.Name = "NBTauntEdging" +Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) +Me.NBTauntEdging.TabIndex = 188 +Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) ' -'LBLDebugEdgeTauntTime +'LBLVtf ' -Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) -Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" -Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugEdgeTauntTime.TabIndex = 10 -Me.LBLDebugEdgeTauntTime.Text = "0" -Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLVtf.BackColor = System.Drawing.Color.Transparent +Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLVtf.ForeColor = System.Drawing.Color.Black +Me.LBLVtf.Location = New System.Drawing.Point(128, 261) +Me.LBLVtf.Name = "LBLVtf" +Me.LBLVtf.Size = New System.Drawing.Size(87, 17) +Me.LBLVtf.TabIndex = 187 +Me.LBLVtf.Text = "Normal" +Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNDebugTeaseTimer +'LBLStf ' -Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) -Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" -Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugTeaseTimer.TabIndex = 5 -Me.BTNDebugTeaseTimer.Text = "Set to 5" -Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true +Me.LBLStf.BackColor = System.Drawing.Color.Transparent +Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLStf.ForeColor = System.Drawing.Color.Black +Me.LBLStf.Location = New System.Drawing.Point(130, 220) +Me.LBLStf.Name = "LBLStf" +Me.LBLStf.Size = New System.Drawing.Size(87, 17) +Me.LBLStf.TabIndex = 165 +Me.LBLStf.Text = "Normal" +Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label142 +'SliderSTF ' -Me.Label142.Location = New System.Drawing.Point(402, 121) -Me.Label142.Name = "Label142" -Me.Label142.Size = New System.Drawing.Size(67, 23) -Me.Label142.TabIndex = 0 -Me.Label142.Text = "Stroke Timer" -Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SliderSTF.AutoSize = false +Me.SliderSTF.LargeChange = 1 +Me.SliderSTF.Location = New System.Drawing.Point(130, 199) +Me.SliderSTF.Maximum = 5 +Me.SliderSTF.Minimum = 1 +Me.SliderSTF.Name = "SliderSTF" +Me.SliderSTF.Size = New System.Drawing.Size(87, 25) +Me.SliderSTF.TabIndex = 163 +Me.SliderSTF.Value = 3 ' -'Label150 +'TauntSlider ' -Me.Label150.Location = New System.Drawing.Point(402, 206) -Me.Label150.Name = "Label150" -Me.Label150.Size = New System.Drawing.Size(67, 27) -Me.Label150.TabIndex = 9 -Me.Label150.Text = "Edge Taunt Timer" -Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TauntSlider.AutoSize = false +Me.TauntSlider.LargeChange = 1 +Me.TauntSlider.Location = New System.Drawing.Point(130, 240) +Me.TauntSlider.Maximum = 9 +Me.TauntSlider.Minimum = 1 +Me.TauntSlider.Name = "TauntSlider" +Me.TauntSlider.Size = New System.Drawing.Size(87, 25) +Me.TauntSlider.TabIndex = 161 +Me.TauntSlider.Value = 4 ' -'Label152 +'Label106 ' -Me.Label152.Location = New System.Drawing.Point(402, 238) -Me.Label152.Name = "Label152" -Me.Label152.Size = New System.Drawing.Size(67, 40) -Me.Label152.TabIndex = 12 -Me.Label152.Text = "Hold Edge Timer" -Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label106.BackColor = System.Drawing.Color.Transparent +Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label106.ForeColor = System.Drawing.Color.Black +Me.Label106.Location = New System.Drawing.Point(6, 243) +Me.Label106.Name = "Label106" +Me.Label106.Size = New System.Drawing.Size(123, 17) +Me.Label106.TabIndex = 186 +Me.Label106.Text = "Video Taunt Frequency:" +Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLDebugStrokeTauntTime +'CBTauntCycleDD ' -Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) -Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" -Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTauntTime.TabIndex = 7 -Me.LBLDebugStrokeTauntTime.Text = "0" -Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTauntCycleDD.AutoSize = true +Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black +Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) +Me.CBTauntCycleDD.Name = "CBTauntCycleDD" +Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) +Me.CBTauntCycleDD.TabIndex = 185 +Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" +Me.CBTauntCycleDD.UseVisualStyleBackColor = true ' -'Label147 +'CBTeaseLengthDD ' -Me.Label147.Location = New System.Drawing.Point(402, 143) -Me.Label147.Name = "Label147" -Me.Label147.Size = New System.Drawing.Size(67, 29) -Me.Label147.TabIndex = 6 -Me.Label147.Text = "Stroke Taunt Timer" -Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTeaseLengthDD.AutoSize = true +Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black +Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) +Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" +Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) +Me.CBTeaseLengthDD.TabIndex = 184 +Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" +Me.CBTeaseLengthDD.UseVisualStyleBackColor = true ' -'TabPage30 +'Label103 ' -Me.TabPage30.BackColor = System.Drawing.Color.LightGray -Me.TabPage30.Controls.Add(Me.Button33) -Me.TabPage30.Controls.Add(Me.Button24) -Me.TabPage30.Location = New System.Drawing.Point(4, 22) -Me.TabPage30.Name = "TabPage30" -Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage30.Size = New System.Drawing.Size(700, 411) -Me.TabPage30.TabIndex = 1 -Me.TabPage30.Text = "TabPage30" +Me.Label103.BackColor = System.Drawing.Color.Transparent +Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label103.ForeColor = System.Drawing.Color.Black +Me.Label103.Location = New System.Drawing.Point(175, 117) +Me.Label103.Name = "Label103" +Me.Label103.Size = New System.Drawing.Size(50, 17) +Me.Label103.TabIndex = 183 +Me.Label103.Text = "minutes" +Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button33 +'NBTauntCycleMax ' -Me.Button33.Location = New System.Drawing.Point(6, 35) -Me.Button33.Name = "Button33" -Me.Button33.Size = New System.Drawing.Size(75, 23) -Me.Button33.TabIndex = 1 -Me.Button33.Text = "LoadState" -Me.Button33.UseVisualStyleBackColor = true +Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) +Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) +Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBTauntCycleMax.Name = "NBTauntCycleMax" +Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMax.TabIndex = 182 +Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -'Button24 +'Label105 ' -Me.Button24.Location = New System.Drawing.Point(6, 6) -Me.Button24.Name = "Button24" -Me.Button24.Size = New System.Drawing.Size(75, 23) -Me.Button24.TabIndex = 0 -Me.Button24.Text = "SaveState" -Me.Button24.UseVisualStyleBackColor = true +Me.Label105.BackColor = System.Drawing.Color.Transparent +Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label105.ForeColor = System.Drawing.Color.Black +Me.Label105.Location = New System.Drawing.Point(6, 117) +Me.Label105.Name = "Label105" +Me.Label105.Size = New System.Drawing.Size(123, 17) +Me.Label105.TabIndex = 181 +Me.Label105.Text = "Taunt Cycle Maximum:" +Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TabPage5 +'Label101 ' -Me.TabPage5.BackColor = System.Drawing.Color.Silver -Me.TabPage5.Controls.Add(Me.Panel5) -Me.TabPage5.Location = New System.Drawing.Point(4, 22) -Me.TabPage5.Name = "TabPage5" -Me.TabPage5.Size = New System.Drawing.Size(720, 448) -Me.TabPage5.TabIndex = 17 -Me.TabPage5.Text = "About" +Me.Label101.BackColor = System.Drawing.Color.Transparent +Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label101.ForeColor = System.Drawing.Color.Black +Me.Label101.Location = New System.Drawing.Point(175, 93) +Me.Label101.Name = "Label101" +Me.Label101.Size = New System.Drawing.Size(50, 17) +Me.Label101.TabIndex = 180 +Me.Label101.Text = "minutes" +Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Panel5 +'NBTauntCycleMin ' -Me.Panel5.BackColor = System.Drawing.Color.LightGray -Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel5.Controls.Add(Me.Label130) -Me.Panel5.Controls.Add(Me.Label123) -Me.Panel5.Controls.Add(Me.Label69) -Me.Panel5.Controls.Add(Me.Label113) -Me.Panel5.Controls.Add(Me.Label40) -Me.Panel5.Controls.Add(Me.Label35) -Me.Panel5.Controls.Add(Me.Label33) -Me.Panel5.Controls.Add(Me.Label17) -Me.Panel5.Controls.Add(Me.Label3) -Me.Panel5.Controls.Add(Me.PictureBox3) -Me.Panel5.Controls.Add(Me.Label41) -Me.Panel5.Location = New System.Drawing.Point(6, 6) -Me.Panel5.Name = "Panel5" -Me.Panel5.Size = New System.Drawing.Size(708, 437) -Me.Panel5.TabIndex = 92 +Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) +Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTauntCycleMin.Name = "NBTauntCycleMin" +Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMin.TabIndex = 179 +Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -'Label130 +'Label102 ' -Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label130.Location = New System.Drawing.Point(361, 314) -Me.Label130.Name = "Label130" -Me.Label130.Size = New System.Drawing.Size(254, 54) -Me.Label130.TabIndex = 176 -Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label102.BackColor = System.Drawing.Color.Transparent +Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label102.ForeColor = System.Drawing.Color.Black +Me.Label102.Location = New System.Drawing.Point(6, 93) +Me.Label102.Name = "Label102" +Me.Label102.Size = New System.Drawing.Size(123, 17) +Me.Label102.TabIndex = 178 +Me.Label102.Text = "Taunt Cycle Minimum:" +Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label123 +'Label97 ' -Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label123.Location = New System.Drawing.Point(81, 314) -Me.Label123.Name = "Label123" -Me.Label123.Size = New System.Drawing.Size(254, 54) -Me.Label123.TabIndex = 175 -Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" -Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label97.BackColor = System.Drawing.Color.Transparent +Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label97.ForeColor = System.Drawing.Color.Black +Me.Label97.Location = New System.Drawing.Point(175, 46) +Me.Label97.Name = "Label97" +Me.Label97.Size = New System.Drawing.Size(50, 17) +Me.Label97.TabIndex = 177 +Me.Label97.Text = "minutes" +Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label69 +'NBTeaseLengthMax ' -Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label69.Location = New System.Drawing.Point(35, 295) -Me.Label69.Name = "Label69" -Me.Label69.Size = New System.Drawing.Size(638, 22) -Me.Label69.TabIndex = 174 -Me.Label69.Text = "Triple Alfa" -Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) +Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) +Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" +Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMax.TabIndex = 176 +Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'Label113 +'Label99 ' -Me.Label113.AutoSize = true -Me.Label113.Location = New System.Drawing.Point(4, 417) -Me.Label113.Name = "Label113" -Me.Label113.Size = New System.Drawing.Size(452, 13) -Me.Label113.TabIndex = 173 -Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ - "pective owners." +Me.Label99.BackColor = System.Drawing.Color.Transparent +Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label99.ForeColor = System.Drawing.Color.Black +Me.Label99.Location = New System.Drawing.Point(6, 46) +Me.Label99.Name = "Label99" +Me.Label99.Size = New System.Drawing.Size(123, 17) +Me.Label99.TabIndex = 175 +Me.Label99.Text = "Tease Length Maximum:" +Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label40 +'Label96 ' -Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label40.Location = New System.Drawing.Point(35, 273) -Me.Label40.Name = "Label40" -Me.Label40.Size = New System.Drawing.Size(638, 24) -Me.Label40.TabIndex = 171 -Me.Label40.Text = "Special Thanks" -Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label96.BackColor = System.Drawing.Color.Transparent +Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label96.ForeColor = System.Drawing.Color.Black +Me.Label96.Location = New System.Drawing.Point(175, 20) +Me.Label96.Name = "Label96" +Me.Label96.Size = New System.Drawing.Size(50, 17) +Me.Label96.TabIndex = 174 +Me.Label96.Text = "minutes" +Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label35 +'NBTeaseLengthMin ' -Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label35.Location = New System.Drawing.Point(32, 107) -Me.Label35.Name = "Label35" -Me.Label35.Size = New System.Drawing.Size(641, 77) -Me.Label35.TabIndex = 170 -Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ - "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ - "dditional files separately." -Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) +Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) +Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" +Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMin.TabIndex = 169 +Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) ' -'Label33 +'Label95 ' -Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label33.Location = New System.Drawing.Point(32, 191) -Me.Label33.Name = "Label33" -Me.Label33.Size = New System.Drawing.Size(641, 77) -Me.Label33.TabIndex = 169 -Me.Label33.Text = resources.GetString("Label33.Text") -Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label95.BackColor = System.Drawing.Color.Transparent +Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label95.ForeColor = System.Drawing.Color.Black +Me.Label95.Location = New System.Drawing.Point(6, 20) +Me.Label95.Name = "Label95" +Me.Label95.Size = New System.Drawing.Size(123, 17) +Me.Label95.TabIndex = 166 +Me.Label95.Text = "Tease Length Minimum:" +Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label17 +'Label49 ' -Me.Label17.AutoSize = true -Me.Label17.Location = New System.Drawing.Point(522, 78) -Me.Label17.Name = "Label17" -Me.Label17.Size = New System.Drawing.Size(93, 13) -Me.Label17.TabIndex = 168 -Me.Label17.Text = "Designed by 1885" +Me.Label49.BackColor = System.Drawing.Color.Transparent +Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label49.ForeColor = System.Drawing.Color.Black +Me.Label49.Location = New System.Drawing.Point(6, 207) +Me.Label49.Name = "Label49" +Me.Label49.Size = New System.Drawing.Size(132, 17) +Me.Label49.TabIndex = 164 +Me.Label49.Text = "Stroke Taunt Frequency:" +Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label3 +'Label141 ' -Me.Label3.AutoSize = true -Me.Label3.Location = New System.Drawing.Point(489, 417) -Me.Label3.Name = "Label3" -Me.Label3.Size = New System.Drawing.Size(215, 13) -Me.Label3.TabIndex = 167 -Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" +Me.Label141.BackColor = System.Drawing.Color.Transparent +Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label141.ForeColor = System.Drawing.Color.Black +Me.Label141.Location = New System.Drawing.Point(6, 163) +Me.Label141.Name = "Label141" +Me.Label141.Size = New System.Drawing.Size(141, 32) +Me.Label141.TabIndex = 189 +Me.Label141.Text = "Edging Ends Taunts:" +Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'PictureBox3 +'GBRangeRuinChance ' -Me.PictureBox3.BackColor = System.Drawing.Color.LightGray -Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big -Me.PictureBox3.Location = New System.Drawing.Point(84, 17) -Me.PictureBox3.Name = "PictureBox3" -Me.PictureBox3.Size = New System.Drawing.Size(531, 58) -Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PictureBox3.TabIndex = 166 -Me.PictureBox3.TabStop = false +Me.GBRangeRuinChance.Controls.Add(Me.Label90) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) +Me.GBRangeRuinChance.Controls.Add(Me.Label91) +Me.GBRangeRuinChance.Controls.Add(Me.Label92) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) +Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) +Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) +Me.GBRangeRuinChance.Name = "GBRangeRuinChance" +Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeRuinChance.TabIndex = 168 +Me.GBRangeRuinChance.TabStop = false +Me.GBRangeRuinChance.Text = "Ruin Chance" ' -'Label41 +'Label90 ' -Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label41.Location = New System.Drawing.Point(35, 372) -Me.Label41.Name = "Label41" -Me.Label41.Size = New System.Drawing.Size(638, 39) -Me.Label41.TabIndex = 172 -Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ - "nity who's been supportive of my work over the years. Tease AI exists because of"& _ - " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label90.BackColor = System.Drawing.Color.Transparent +Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label90.ForeColor = System.Drawing.Color.Black +Me.Label90.Location = New System.Drawing.Point(6, 94) +Me.Label90.Name = "Label90" +Me.Label90.Size = New System.Drawing.Size(83, 17) +Me.Label90.TabIndex = 173 +Me.Label90.Text = "Rarely Ruins:" +Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BtnRandomImageDirClear +'NBRuinSometimes ' -Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) -Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" -Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnRandomImageDirClear.TabIndex = 181 -Me.BtnRandomImageDirClear.Text = "Clear" -Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false +Me.NBRuinSometimes.Enabled = false +Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinSometimes.Name = "NBRuinSometimes" +Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBRuinSometimes.TabIndex = 169 +Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -'GroupBox47 +'Label91 ' -Me.GroupBox47.BackColor = System.Drawing.Color.LightGray -Me.GroupBox47.Controls.Add(Me.GroupBox41) -Me.GroupBox47.Controls.Add(Me.GroupBox40) -Me.GroupBox47.ForeColor = System.Drawing.Color.Black -Me.GroupBox47.Location = New System.Drawing.Point(806, 255) -Me.GroupBox47.Name = "GroupBox47" -Me.GroupBox47.Size = New System.Drawing.Size(310, 190) -Me.GroupBox47.TabIndex = 63 -Me.GroupBox47.TabStop = false -Me.GroupBox47.Text = "Boobs and Butts Paths" +Me.Label91.BackColor = System.Drawing.Color.Transparent +Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label91.ForeColor = System.Drawing.Color.Black +Me.Label91.Location = New System.Drawing.Point(6, 68) +Me.Label91.Name = "Label91" +Me.Label91.Size = New System.Drawing.Size(102, 17) +Me.Label91.TabIndex = 172 +Me.Label91.Text = "Sometimes Ruins:" +Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox41 +'Label92 ' -Me.GroupBox41.Controls.Add(Me.Button34) -Me.GroupBox41.Location = New System.Drawing.Point(6, 110) -Me.GroupBox41.Name = "GroupBox41" -Me.GroupBox41.Size = New System.Drawing.Size(298, 74) -Me.GroupBox41.TabIndex = 153 -Me.GroupBox41.TabStop = false -Me.GroupBox41.Text = "Butts" +Me.Label92.BackColor = System.Drawing.Color.Transparent +Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label92.ForeColor = System.Drawing.Color.Black +Me.Label92.Location = New System.Drawing.Point(6, 42) +Me.Label92.Name = "Label92" +Me.Label92.Size = New System.Drawing.Size(72, 17) +Me.Label92.TabIndex = 171 +Me.Label92.Text = "Often Ruins:" +Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button34 +'NBRuinRarely ' -Me.Button34.BackColor = System.Drawing.Color.LightGray -Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.Button34.ForeColor = System.Drawing.Color.Black -Me.Button34.Location = New System.Drawing.Point(85, 25) -Me.Button34.Name = "Button34" -Me.Button34.Size = New System.Drawing.Size(34, 28) -Me.Button34.TabIndex = 131 -Me.Button34.Text = "1" -Me.Button34.UseVisualStyleBackColor = false +Me.NBRuinRarely.Enabled = false +Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) +Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinRarely.Name = "NBRuinRarely" +Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) +Me.NBRuinRarely.TabIndex = 170 +Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -'GroupBox40 +'NBRuinOften ' -Me.GroupBox40.Location = New System.Drawing.Point(5, 35) -Me.GroupBox40.Name = "GroupBox40" -Me.GroupBox40.Size = New System.Drawing.Size(298, 74) -Me.GroupBox40.TabIndex = 152 -Me.GroupBox40.TabStop = false -Me.GroupBox40.Text = "Boobs" +Me.NBRuinOften.Enabled = false +Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) +Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinOften.Name = "NBRuinOften" +Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) +Me.NBRuinOften.TabIndex = 168 +Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) ' -'GroupBox44 +'CBRangeRuin ' -Me.GroupBox44.BackColor = System.Drawing.Color.LightGray -Me.GroupBox44.Controls.Add(Me.Label100) -Me.GroupBox44.ForeColor = System.Drawing.Color.Black -Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) -Me.GroupBox44.Name = "GroupBox44" -Me.GroupBox44.Size = New System.Drawing.Size(310, 92) -Me.GroupBox44.TabIndex = 65 -Me.GroupBox44.TabStop = false -Me.GroupBox44.Text = "Description" +Me.CBRangeRuin.AutoSize = true +Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black +Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) +Me.CBRangeRuin.Name = "CBRangeRuin" +Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) +Me.CBRangeRuin.TabIndex = 159 +Me.CBRangeRuin.Text = "Domme Decide" +Me.CBRangeRuin.UseVisualStyleBackColor = true ' -'Label100 +'GroupBox17 ' -Me.Label100.BackColor = System.Drawing.Color.Transparent -Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label100.ForeColor = System.Drawing.Color.Black -Me.Label100.Location = New System.Drawing.Point(11, 16) -Me.Label100.Name = "Label100" -Me.Label100.Size = New System.Drawing.Size(286, 73) -Me.Label100.TabIndex = 62 -Me.Label100.Text = resources.GetString("Label100.Text") -Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox17.Controls.Add(Me.GroupBox19) +Me.GroupBox17.Controls.Add(Me.GroupBox18) +Me.GroupBox17.Location = New System.Drawing.Point(408, 91) +Me.GroupBox17.Name = "GroupBox17" +Me.GroupBox17.Size = New System.Drawing.Size(291, 190) +Me.GroupBox17.TabIndex = 0 +Me.GroupBox17.TabStop = false +Me.GroupBox17.Text = "Video Teases" ' -'GroupBox6 +'GroupBox19 ' -Me.GroupBox6.Controls.Add(Me.Label4) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) -Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) -Me.GroupBox6.Controls.Add(Me.Label94) -Me.GroupBox6.Controls.Add(Me.LBLLastRuined) -Me.GroupBox6.Controls.Add(Me.Label65) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) -Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) -Me.GroupBox6.Controls.Add(Me.Label14) -Me.GroupBox6.Controls.Add(Me.Label13) -Me.GroupBox6.Controls.Add(Me.Label1) -Me.GroupBox6.Location = New System.Drawing.Point(27, 114) -Me.GroupBox6.Name = "GroupBox6" -Me.GroupBox6.Size = New System.Drawing.Size(283, 102) -Me.GroupBox6.TabIndex = 156 -Me.GroupBox6.TabStop = false -Me.GroupBox6.Text = "Performance" +Me.GroupBox19.Controls.Add(Me.Label110) +Me.GroupBox19.Controls.Add(Me.Label111) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) +Me.GroupBox19.Controls.Add(Me.NBRedLightMax) +Me.GroupBox19.Controls.Add(Me.Label26) +Me.GroupBox19.Controls.Add(Me.NBRedLightMin) +Me.GroupBox19.Controls.Add(Me.Label28) +Me.GroupBox19.Controls.Add(Me.Label27) +Me.GroupBox19.Controls.Add(Me.Label29) +Me.GroupBox19.Location = New System.Drawing.Point(6, 110) +Me.GroupBox19.Name = "GroupBox19" +Me.GroupBox19.Size = New System.Drawing.Size(279, 66) +Me.GroupBox19.TabIndex = 2 +Me.GroupBox19.TabStop = false +Me.GroupBox19.Text = "Red Light, Green Light" ' -'Label4 +'Label110 ' -Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label4.Location = New System.Drawing.Point(26, 16) -Me.Label4.Name = "Label4" -Me.Label4.Size = New System.Drawing.Size(77, 17) -Me.Label4.TabIndex = 147 -Me.Label4.Text = "Stroking Time" -Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label110.BackColor = System.Drawing.Color.Transparent +Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label110.ForeColor = System.Drawing.Color.Black +Me.Label110.Location = New System.Drawing.Point(227, 39) +Me.Label110.Name = "Label110" +Me.Label110.Size = New System.Drawing.Size(50, 17) +Me.Label110.TabIndex = 181 +Me.Label110.Text = "seconds" +Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLAvgEdgeStroking +'Label111 ' -Me.LBLAvgEdgeStroking.AutoSize = true -Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) -Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" -Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeStroking.TabIndex = 144 -Me.LBLAvgEdgeStroking.Text = "00:00" -Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label111.BackColor = System.Drawing.Color.Transparent +Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label111.ForeColor = System.Drawing.Color.Black +Me.Label111.Location = New System.Drawing.Point(227, 16) +Me.Label111.Name = "Label111" +Me.Label111.Size = New System.Drawing.Size(50, 17) +Me.Label111.TabIndex = 180 +Me.Label111.Text = "seconds" +Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLStrokeTimeTotal +'NBGreenLightMax ' -Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) -Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" -Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) -Me.LBLStrokeTimeTotal.TabIndex = 148 -Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" -Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) +Me.NBGreenLightMax.Name = "NBGreenLightMax" +Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMax.TabIndex = 156 +Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'Label94 +'NBGreenLightMin ' -Me.Label94.BackColor = System.Drawing.Color.Transparent -Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label94.ForeColor = System.Drawing.Color.Black -Me.Label94.Location = New System.Drawing.Point(189, 16) -Me.Label94.Name = "Label94" -Me.Label94.Size = New System.Drawing.Size(65, 17) -Me.Label94.TabIndex = 150 -Me.Label94.Text = "Last Ruined" -Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) +Me.NBGreenLightMin.Name = "NBGreenLightMin" +Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMin.TabIndex = 155 +Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) ' -'LBLLastRuined +'NBRedLightMax ' -Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) -Me.LBLLastRuined.Name = "LBLLastRuined" -Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) -Me.LBLLastRuined.TabIndex = 152 -Me.LBLLastRuined.Text = "04/28/2015" -Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) +Me.NBRedLightMax.Name = "NBRedLightMax" +Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMax.TabIndex = 152 +Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) ' -'Label65 +'Label26 ' -Me.Label65.BackColor = System.Drawing.Color.Transparent -Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label65.ForeColor = System.Drawing.Color.Black -Me.Label65.Location = New System.Drawing.Point(103, 16) -Me.Label65.Name = "Label65" -Me.Label65.Size = New System.Drawing.Size(85, 17) -Me.Label65.TabIndex = 149 -Me.Label65.Text = "Last Orgasm" -Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label26.BackColor = System.Drawing.Color.Transparent +Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label26.ForeColor = System.Drawing.Color.Black +Me.Label26.Location = New System.Drawing.Point(161, 38) +Me.Label26.Name = "Label26" +Me.Label26.Size = New System.Drawing.Size(10, 17) +Me.Label26.TabIndex = 154 +Me.Label26.Text = "-" +Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLAvgEdgeNoTouch +'NBRedLightMin ' -Me.LBLAvgEdgeNoTouch.AutoSize = true -Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) -Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" -Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeNoTouch.TabIndex = 146 -Me.LBLAvgEdgeNoTouch.Text = "00:00" -Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) +Me.NBRedLightMin.Name = "NBRedLightMin" +Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMin.TabIndex = 151 +Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -'LBLLastOrgasm +'Label28 ' -Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) -Me.LBLLastOrgasm.Name = "LBLLastOrgasm" -Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) -Me.LBLLastOrgasm.TabIndex = 151 -Me.LBLLastOrgasm.Text = "04/28/2015" -Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label28.BackColor = System.Drawing.Color.Transparent +Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label28.ForeColor = System.Drawing.Color.Black +Me.Label28.Location = New System.Drawing.Point(161, 15) +Me.Label28.Name = "Label28" +Me.Label28.Size = New System.Drawing.Size(10, 17) +Me.Label28.TabIndex = 150 +Me.Label28.Text = "-" +Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label14 +'Label27 ' -Me.Label14.BackColor = System.Drawing.Color.Transparent -Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label14.ForeColor = System.Drawing.Color.Black -Me.Label14.Location = New System.Drawing.Point(25, 48) -Me.Label14.Name = "Label14" -Me.Label14.Size = New System.Drawing.Size(238, 17) -Me.Label14.TabIndex = 138 -Me.Label14.Text = "Average Time to Edge" -Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label27.BackColor = System.Drawing.Color.Transparent +Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label27.ForeColor = System.Drawing.Color.Black +Me.Label27.Location = New System.Drawing.Point(6, 39) +Me.Label27.Name = "Label27" +Me.Label27.Size = New System.Drawing.Size(151, 17) +Me.Label27.TabIndex = 153 +Me.Label27.Text = "Green Light Time:" +Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label13 +'Label29 ' -Me.Label13.AutoSize = true -Me.Label13.Location = New System.Drawing.Point(177, 68) -Me.Label13.Name = "Label13" -Me.Label13.Size = New System.Drawing.Size(32, 13) -Me.Label13.TabIndex = 145 -Me.Label13.Text = "Rest:" -Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label29.BackColor = System.Drawing.Color.Transparent +Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label29.ForeColor = System.Drawing.Color.Black +Me.Label29.Location = New System.Drawing.Point(6, 16) +Me.Label29.Name = "Label29" +Me.Label29.Size = New System.Drawing.Size(151, 17) +Me.Label29.TabIndex = 149 +Me.Label29.Text = "Red Light Time:" +Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label1 +'GroupBox18 ' -Me.Label1.AutoSize = true -Me.Label1.Location = New System.Drawing.Point(28, 68) -Me.Label1.Name = "Label1" -Me.Label1.Size = New System.Drawing.Size(79, 13) -Me.Label1.TabIndex = 143 -Me.Label1.Text = "While Stroking:" -Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox18.Controls.Add(Me.Label108) +Me.GroupBox18.Controls.Add(Me.Label109) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) +Me.GroupBox18.Controls.Add(Me.CBCensorConstant) +Me.GroupBox18.Controls.Add(Me.Label25) +Me.GroupBox18.Controls.Add(Me.Label20) +Me.GroupBox18.Controls.Add(Me.Label19) +Me.GroupBox18.Controls.Add(Me.Label24) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) +Me.GroupBox18.Location = New System.Drawing.Point(6, 16) +Me.GroupBox18.Name = "GroupBox18" +Me.GroupBox18.Size = New System.Drawing.Size(279, 88) +Me.GroupBox18.TabIndex = 1 +Me.GroupBox18.TabStop = false +Me.GroupBox18.Text = "Censorship Sucks" ' -'GroupBox21 +'Label108 ' -Me.GroupBox21.BackColor = System.Drawing.Color.LightGray -Me.GroupBox21.Controls.Add(Me.Label153) -Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) -Me.GroupBox21.Controls.Add(Me.GroupBox6) -Me.GroupBox21.Controls.Add(Me.Label156) -Me.GroupBox21.ForeColor = System.Drawing.Color.Black -Me.GroupBox21.Location = New System.Drawing.Point(797, 55) -Me.GroupBox21.Name = "GroupBox21" -Me.GroupBox21.Size = New System.Drawing.Size(316, 136) -Me.GroupBox21.TabIndex = 66 -Me.GroupBox21.TabStop = false -Me.GroupBox21.Text = "Description" +Me.Label108.BackColor = System.Drawing.Color.Transparent +Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label108.ForeColor = System.Drawing.Color.Black +Me.Label108.Location = New System.Drawing.Point(227, 39) +Me.Label108.Name = "Label108" +Me.Label108.Size = New System.Drawing.Size(50, 17) +Me.Label108.TabIndex = 179 +Me.Label108.Text = "seconds" +Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label153 +'Label109 ' -Me.Label153.BackColor = System.Drawing.Color.Transparent -Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label153.ForeColor = System.Drawing.Color.Black -Me.Label153.Location = New System.Drawing.Point(78, 94) -Me.Label153.Name = "Label153" -Me.Label153.Size = New System.Drawing.Size(158, 17) -Me.Label153.TabIndex = 135 -Me.Label153.Text = "No path selected" -Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label109.BackColor = System.Drawing.Color.Transparent +Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label109.ForeColor = System.Drawing.Color.Black +Me.Label109.Location = New System.Drawing.Point(227, 16) +Me.Label109.Name = "Label109" +Me.Label109.Size = New System.Drawing.Size(50, 17) +Me.Label109.TabIndex = 178 +Me.Label109.Text = "seconds" +Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBCensorShowMin +' +Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) +Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMin.Name = "NBCensorShowMin" +Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMin.TabIndex = 151 +Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin ' -'LBLRangeSettingsDescription +'NBCensorHideMax ' -Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) -Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" -Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) -Me.LBLRangeSettingsDescription.TabIndex = 62 -Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) +Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMax.Name = "NBCensorHideMax" +Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMax.TabIndex = 156 +Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax ' -'Label156 +'NBCensorHideMin ' -Me.Label156.BackColor = System.Drawing.Color.Transparent -Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label156.ForeColor = System.Drawing.Color.Black -Me.Label156.Location = New System.Drawing.Point(133, 23) -Me.Label156.Name = "Label156" -Me.Label156.Size = New System.Drawing.Size(158, 17) -Me.Label156.TabIndex = 135 -Me.Label156.Text = "No path selected" -Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) +Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMin.Name = "NBCensorHideMin" +Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMin.TabIndex = 155 +Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin ' -'GroupBox12 +'CBCensorConstant ' -Me.GroupBox12.BackColor = System.Drawing.Color.LightGray -Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) -Me.GroupBox12.ForeColor = System.Drawing.Color.Black -Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) -Me.GroupBox12.Name = "GroupBox12" -Me.GroupBox12.Size = New System.Drawing.Size(171, 124) -Me.GroupBox12.TabIndex = 65 -Me.GroupBox12.TabStop = false -Me.GroupBox12.Text = "Description" +Me.CBCensorConstant.AutoSize = true +Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant +Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black +Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) +Me.CBCensorConstant.Name = "CBCensorConstant" +Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) +Me.CBCensorConstant.TabIndex = 157 +Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" +Me.CBCensorConstant.UseVisualStyleBackColor = true ' -'LBLSubSettingsDescription +'Label25 ' -Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) -Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" -Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) -Me.LBLSubSettingsDescription.TabIndex = 62 -Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." +Me.Label25.BackColor = System.Drawing.Color.Transparent +Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label25.ForeColor = System.Drawing.Color.Black +Me.Label25.Location = New System.Drawing.Point(161, 15) +Me.Label25.Name = "Label25" +Me.Label25.Size = New System.Drawing.Size(10, 17) +Me.Label25.TabIndex = 150 +Me.Label25.Text = "-" +Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'OpenFileDialog1 +'Label20 ' -Me.OpenFileDialog1.FileName = "OpenFileDialog1" -Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ - "s (*.*)|*.*" -Me.OpenFileDialog1.Title = "Select an image file" +Me.Label20.BackColor = System.Drawing.Color.Transparent +Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label20.ForeColor = System.Drawing.Color.Black +Me.Label20.Location = New System.Drawing.Point(6, 39) +Me.Label20.Name = "Label20" +Me.Label20.Size = New System.Drawing.Size(110, 17) +Me.Label20.TabIndex = 153 +Me.Label20.Text = "Censor Bar Hidden:" +Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GetColor +'Label19 ' -Me.GetColor.Color = System.Drawing.Color.SteelBlue +Me.Label19.BackColor = System.Drawing.Color.Transparent +Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label19.ForeColor = System.Drawing.Color.Black +Me.Label19.Location = New System.Drawing.Point(161, 38) +Me.Label19.Name = "Label19" +Me.Label19.Size = New System.Drawing.Size(10, 17) +Me.Label19.TabIndex = 154 +Me.Label19.Text = "-" +Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'WebImageFileDialog +'Label24 ' -Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.WebImageFileDialog.Title = "Please select a URL File" +Me.Label24.BackColor = System.Drawing.Color.Transparent +Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label24.ForeColor = System.Drawing.Color.Black +Me.Label24.Location = New System.Drawing.Point(6, 16) +Me.Label24.Name = "Label24" +Me.Label24.Size = New System.Drawing.Size(110, 17) +Me.Label24.TabIndex = 149 +Me.Label24.Text = "Censor Bar Shown:" +Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'OpenScriptDialog +'NBCensorShowMax ' -Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenScriptDialog.Title = "Please select a script" +Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) +Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMax.Name = "NBCensorShowMax" +Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMax.TabIndex = 152 +Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax ' -'OpenSettingsDialog +'GBRangeOrgasmChance ' -Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenSettingsDialog.Title = "Please select a settings file to open" +Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) +Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) +Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) +Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" +Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeOrgasmChance.TabIndex = 167 +Me.GBRangeOrgasmChance.TabStop = false +Me.GBRangeOrgasmChance.Text = "Orgasm Chance" ' -'SaveSettingsDialog +'Label89 ' -Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" +Me.Label89.BackColor = System.Drawing.Color.Transparent +Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label89.ForeColor = System.Drawing.Color.Black +Me.Label89.Location = New System.Drawing.Point(6, 94) +Me.Label89.Name = "Label89" +Me.Label89.Size = New System.Drawing.Size(83, 17) +Me.Label89.TabIndex = 173 +Me.Label89.Text = "Rarely Allows:" +Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox65 +'NBAllowSometimes ' -Me.GroupBox65.BackColor = System.Drawing.Color.LightGray -Me.GroupBox65.Controls.Add(Me.Label136) -Me.GroupBox65.Controls.Add(Me.Label134) -Me.GroupBox65.Controls.Add(Me.Label132) -Me.GroupBox65.Controls.Add(Me.TrackBar1) -Me.GroupBox65.Controls.Add(Me.ComboBox1) -Me.GroupBox65.Controls.Add(Me.CheckBox1) -Me.GroupBox65.Controls.Add(Me.Label135) -Me.GroupBox65.Controls.Add(Me.TrackBar2) -Me.GroupBox65.ForeColor = System.Drawing.Color.Black -Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) -Me.GroupBox65.Name = "GroupBox65" -Me.GroupBox65.Size = New System.Drawing.Size(259, 117) -Me.GroupBox65.TabIndex = 157 -Me.GroupBox65.TabStop = false -Me.GroupBox65.Text = "Text to Speech" +Me.NBAllowSometimes.Enabled = false +Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowSometimes.Name = "NBAllowSometimes" +Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBAllowSometimes.TabIndex = 169 +Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -'Label136 +'Label86 ' -Me.Label136.AutoSize = true -Me.Label136.Location = New System.Drawing.Point(14, 52) -Me.Label136.Name = "Label136" -Me.Label136.Size = New System.Drawing.Size(45, 13) -Me.Label136.TabIndex = 32 -Me.Label136.Text = "Volume:" +Me.Label86.BackColor = System.Drawing.Color.Transparent +Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label86.ForeColor = System.Drawing.Color.Black +Me.Label86.Location = New System.Drawing.Point(6, 68) +Me.Label86.Name = "Label86" +Me.Label86.Size = New System.Drawing.Size(102, 17) +Me.Label86.TabIndex = 172 +Me.Label86.Text = "Sometimes Allows:" +Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label134 +'Label82 ' -Me.Label134.AutoSize = true -Me.Label134.Location = New System.Drawing.Point(141, 52) -Me.Label134.Name = "Label134" -Me.Label134.Size = New System.Drawing.Size(33, 13) -Me.Label134.TabIndex = 157 -Me.Label134.Text = "Rate:" +Me.Label82.BackColor = System.Drawing.Color.Transparent +Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label82.ForeColor = System.Drawing.Color.Black +Me.Label82.Location = New System.Drawing.Point(6, 42) +Me.Label82.Name = "Label82" +Me.Label82.Size = New System.Drawing.Size(83, 17) +Me.Label82.TabIndex = 171 +Me.Label82.Text = "Often Allows:" +Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label132 +'NBAllowRarely ' -Me.Label132.Location = New System.Drawing.Point(202, 52) -Me.Label132.Name = "Label132" -Me.Label132.Size = New System.Drawing.Size(45, 13) -Me.Label132.TabIndex = 158 -Me.Label132.Text = "100" -Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight +Me.NBAllowRarely.Enabled = false +Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) +Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowRarely.Name = "NBAllowRarely" +Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) +Me.NBAllowRarely.TabIndex = 170 +Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -'TrackBar1 +'NBAllowOften +' +Me.NBAllowOften.Enabled = false +Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) +Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowOften.Name = "NBAllowOften" +Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) +Me.NBAllowOften.TabIndex = 168 +Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +' +'CBRangeOrgasm ' -Me.TrackBar1.Location = New System.Drawing.Point(133, 68) -Me.TrackBar1.Minimum = -10 -Me.TrackBar1.Name = "TrackBar1" -Me.TrackBar1.Size = New System.Drawing.Size(120, 45) -Me.TrackBar1.TabIndex = 31 +Me.CBRangeOrgasm.AutoSize = true +Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black +Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) +Me.CBRangeOrgasm.Name = "CBRangeOrgasm" +Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) +Me.CBRangeOrgasm.TabIndex = 159 +Me.CBRangeOrgasm.Text = "Domme Decide" +Me.CBRangeOrgasm.UseVisualStyleBackColor = true ' -'ComboBox1 +'PictureBox8 ' -Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window -Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText -Me.ComboBox1.FormattingEnabled = true -Me.ComboBox1.Location = New System.Drawing.Point(71, 16) -Me.ComboBox1.Name = "ComboBox1" -Me.ComboBox1.Size = New System.Drawing.Size(178, 21) -Me.ComboBox1.TabIndex = 29 -Me.ComboBox1.TabStop = false +Me.PictureBox8.BackColor = System.Drawing.Color.LightGray +Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox8.Location = New System.Drawing.Point(9, 6) +Me.PictureBox8.Name = "PictureBox8" +Me.PictureBox8.Size = New System.Drawing.Size(160, 19) +Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox8.TabIndex = 166 +Me.PictureBox8.TabStop = false ' -'CheckBox1 +'Label38 ' -Me.CheckBox1.AutoSize = true -Me.CheckBox1.ForeColor = System.Drawing.Color.Black -Me.CheckBox1.Location = New System.Drawing.Point(10, 18) -Me.CheckBox1.Name = "CheckBox1" -Me.CheckBox1.Size = New System.Drawing.Size(59, 17) -Me.CheckBox1.TabIndex = 28 -Me.CheckBox1.TabStop = false -Me.CheckBox1.Text = "Enable" -Me.CheckBox1.UseVisualStyleBackColor = true +Me.Label38.BackColor = System.Drawing.Color.Transparent +Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label38.ForeColor = System.Drawing.Color.Black +Me.Label38.Location = New System.Drawing.Point(7, 6) +Me.Label38.Name = "Label38" +Me.Label38.Size = New System.Drawing.Size(692, 21) +Me.Label38.TabIndex = 48 +Me.Label38.Text = "Range Settings" +Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label135 +'TabPage13 ' -Me.Label135.Location = New System.Drawing.Point(75, 52) -Me.Label135.Name = "Label135" -Me.Label135.Size = New System.Drawing.Size(45, 13) -Me.Label135.TabIndex = 33 -Me.Label135.Text = "100" -Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight +Me.TabPage13.BackColor = System.Drawing.Color.Silver +Me.TabPage13.Controls.Add(Me.TabControl2) +Me.TabPage13.Location = New System.Drawing.Point(4, 22) +Me.TabPage13.Name = "TabPage13" +Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage13.Size = New System.Drawing.Size(720, 448) +Me.TabPage13.TabIndex = 13 +Me.TabPage13.Text = "Modding" ' -'TrackBar2 +'TabControl2 ' -Me.TrackBar2.Location = New System.Drawing.Point(6, 68) -Me.TrackBar2.Maximum = 100 -Me.TrackBar2.Name = "TrackBar2" -Me.TrackBar2.Size = New System.Drawing.Size(120, 45) -Me.TrackBar2.TabIndex = 30 -Me.TrackBar2.Value = 50 +Me.TabControl2.Controls.Add(Me.TabPage27) +Me.TabControl2.Controls.Add(Me.TabPage14) +Me.TabControl2.Controls.Add(Me.TabPage24) +Me.TabControl2.Controls.Add(Me.TabPage8) +Me.TabControl2.Controls.Add(Me.TabPage15) +Me.TabControl2.Location = New System.Drawing.Point(6, 6) +Me.TabControl2.Name = "TabControl2" +Me.TabControl2.SelectedIndex = 0 +Me.TabControl2.Size = New System.Drawing.Size(708, 437) +Me.TabControl2.TabIndex = 0 ' -'TxbImgUrlHardcore +'TabPage27 ' -Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) -Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" -Me.TxbImgUrlHardcore.ReadOnly = true -Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) -Me.TxbImgUrlHardcore.TabIndex = 145 +Me.TabPage27.BackColor = System.Drawing.Color.LightGray +Me.TabPage27.Controls.Add(Me.TBPlaylistSave) +Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) +Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) +Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) +Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) +Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) +Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) +Me.TabPage27.Controls.Add(Me.Button7) +Me.TabPage27.Controls.Add(Me.WBPlaylist) +Me.TabPage27.Controls.Add(Me.Label80) +Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) +Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) +Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) +Me.TabPage27.Controls.Add(Me.LBPlaylist) +Me.TabPage27.Location = New System.Drawing.Point(4, 22) +Me.TabPage27.Name = "TabPage27" +Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage27.Size = New System.Drawing.Size(700, 411) +Me.TabPage27.TabIndex = 5 +Me.TabPage27.Text = "Playlists" ' -'TextBox2 +'TBPlaylistSave ' -Me.TextBox2.BackColor = System.Drawing.Color.LightGray -Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill -Me.TextBox2.Location = New System.Drawing.Point(116, 34) -Me.TextBox2.Name = "TextBox2" -Me.TextBox2.ReadOnly = true -Me.TextBox2.Size = New System.Drawing.Size(189, 20) -Me.TextBox2.TabIndex = 145 +Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) +Me.TBPlaylistSave.Name = "TBPlaylistSave" +Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) +Me.TBPlaylistSave.TabIndex = 203 ' -'CBMuteMedia +'BTNPlaylistCtrlZ ' -Me.CBMuteMedia.AutoSize = true -Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia -Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black -Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) -Me.CBMuteMedia.Name = "CBMuteMedia" -Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) -Me.CBMuteMedia.TabIndex = 6 -Me.CBMuteMedia.TabStop = false -Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" -Me.CBMuteMedia.UseVisualStyleBackColor = true +Me.BTNPlaylistCtrlZ.Enabled = false +Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) +Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" +Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistCtrlZ.TabIndex = 202 +Me.BTNPlaylistCtrlZ.Text = "Undo" +Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true ' -'TbxDomImageDir +'RadioPlaylistRegScripts ' -Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) -Me.TbxDomImageDir.Name = "TbxDomImageDir" -Me.TbxDomImageDir.ReadOnly = true -Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxDomImageDir.TabIndex = 0 -Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir +Me.RadioPlaylistRegScripts.AutoSize = true +Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) +Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" +Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) +Me.RadioPlaylistRegScripts.TabIndex = 201 +Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" +Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true ' -'LBLSubColor +'RadioPlaylistScripts ' -Me.LBLSubColor.BackColor = System.Drawing.Color.White -Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor -Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) -Me.LBLSubColor.Name = "LBLSubColor" -Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) -Me.LBLSubColor.TabIndex = 0 -Me.LBLSubColor.Text = "Preview" -Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.RadioPlaylistScripts.AutoSize = true +Me.RadioPlaylistScripts.Checked = true +Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) +Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" +Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) +Me.RadioPlaylistScripts.TabIndex = 200 +Me.RadioPlaylistScripts.TabStop = true +Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" +Me.RadioPlaylistScripts.UseVisualStyleBackColor = true ' -'LBLDomColor +'BTNPlaylistEnd ' -Me.LBLDomColor.BackColor = System.Drawing.Color.White -Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor -Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) -Me.LBLDomColor.Name = "LBLDomColor" -Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) -Me.LBLDomColor.TabIndex = 0 -Me.LBLDomColor.Text = "Preview" -Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray +Me.BTNPlaylistEnd.Enabled = false +Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black +Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) +Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" +Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistEnd.TabIndex = 199 +Me.BTNPlaylistEnd.Text = "End" +Me.BTNPlaylistEnd.UseVisualStyleBackColor = false ' -'CBLockOrgasmChances +'BTNPlaylistClearAll ' -Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances -Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black -Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) -Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" -Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) -Me.CBLockOrgasmChances.TabIndex = 146 -Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" -Me.CBLockOrgasmChances.UseVisualStyleBackColor = true +Me.BTNPlaylistClearAll.Enabled = false +Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) +Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" +Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) +Me.BTNPlaylistClearAll.TabIndex = 198 +Me.BTNPlaylistClearAll.Text = "Clear All" +Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true ' -'ChbImageUrlHardcore +'BTNPlaylistSave ' -Me.ChbImageUrlHardcore.AutoSize = true -Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled -Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) -Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" -Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHardcore.TabIndex = 0 -Me.ChbImageUrlHardcore.Text = "Hardcore" -Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true +Me.BTNPlaylistSave.Enabled = false +Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) +Me.BTNPlaylistSave.Name = "BTNPlaylistSave" +Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistSave.TabIndex = 197 +Me.BTNPlaylistSave.Text = "Save" +Me.BTNPlaylistSave.UseVisualStyleBackColor = true ' -'ChbImageUrlButts +'Button7 ' -Me.ChbImageUrlButts.AutoSize = true -Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled -Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) -Me.ChbImageUrlButts.Name = "ChbImageUrlButts" -Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) -Me.ChbImageUrlButts.TabIndex = 37 -Me.ChbImageUrlButts.Text = "Butts" -Me.ChbImageUrlButts.UseVisualStyleBackColor = true +Me.Button7.Location = New System.Drawing.Point(213, 21) +Me.Button7.Name = "Button7" +Me.Button7.Size = New System.Drawing.Size(78, 23) +Me.Button7.TabIndex = 196 +Me.Button7.Text = "Add Random" +Me.Button7.UseVisualStyleBackColor = true ' -'ChbImageUrlMaledom +'WBPlaylist ' -Me.ChbImageUrlMaledom.AutoSize = true -Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled -Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) -Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" -Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlMaledom.TabIndex = 25 -Me.ChbImageUrlMaledom.Text = "Maledom" -Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true +Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) +Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) +Me.WBPlaylist.Name = "WBPlaylist" +Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) +Me.WBPlaylist.TabIndex = 195 ' -'ChbImageUrlGay +'Label80 ' -Me.ChbImageUrlGay.AutoSize = true -Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled -Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) -Me.ChbImageUrlGay.Name = "ChbImageUrlGay" -Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGay.TabIndex = 22 -Me.ChbImageUrlGay.Text = "Gay" -Me.ChbImageUrlGay.UseVisualStyleBackColor = true +Me.Label80.AutoSize = true +Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label80.Location = New System.Drawing.Point(410, 27) +Me.Label80.Name = "Label80" +Me.Label80.Size = New System.Drawing.Size(47, 13) +Me.Label80.TabIndex = 194 +Me.Label80.Text = "Playlist" ' -'ChbImageUrlSoftcore +'LBLPlaylIstLink ' -Me.ChbImageUrlSoftcore.AutoSize = true -Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled -Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) -Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" -Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlSoftcore.TabIndex = 4 -Me.ChbImageUrlSoftcore.Text = "Softcore" -Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true +Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylIstLink.Enabled = false +Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) +Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" +Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) +Me.LBLPlaylIstLink.TabIndex = 193 +Me.LBLPlaylIstLink.Text = "Link" +Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlBoobs +'LBLPlaylistModule ' -Me.ChbImageUrlBoobs.AutoSize = true -Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled -Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) -Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" -Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBoobs.TabIndex = 34 -Me.ChbImageUrlBoobs.Text = "Boobs" -Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true +Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylistModule.Enabled = false +Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) +Me.LBLPlaylistModule.Name = "LBLPlaylistModule" +Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) +Me.LBLPlaylistModule.TabIndex = 192 +Me.LBLPlaylistModule.Text = "Module" +Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlLesbian +'LBLPLaylistStart ' -Me.ChbImageUrlLesbian.AutoSize = true -Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled -Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) -Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" -Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLesbian.TabIndex = 7 -Me.ChbImageUrlLesbian.Text = "Lesbian" -Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true +Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green +Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White +Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) +Me.LBLPLaylistStart.Name = "LBLPLaylistStart" +Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) +Me.LBLPLaylistStart.TabIndex = 190 +Me.LBLPLaylistStart.Text = "Start" +Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlBlowjob +'LBPlaylist ' -Me.ChbImageUrlBlowjob.AutoSize = true -Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled -Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) -Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" -Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBlowjob.TabIndex = 10 -Me.ChbImageUrlBlowjob.Text = "Blowjob" -Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true +Me.LBPlaylist.AllowDrop = true +Me.LBPlaylist.FormattingEnabled = true +Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) +Me.LBPlaylist.Name = "LBPlaylist" +Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) +Me.LBPlaylist.TabIndex = 189 ' -'ChbImageUrlCaptions +'TabPage14 ' -Me.ChbImageUrlCaptions.AutoSize = true -Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled -Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) -Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" -Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlCaptions.TabIndex = 28 -Me.ChbImageUrlCaptions.Text = "Captions" -Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true +Me.TabPage14.BackColor = System.Drawing.Color.LightGray +Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) +Me.TabPage14.Controls.Add(Me.Label88) +Me.TabPage14.Controls.Add(Me.TBKeywordPreview) +Me.TabPage14.Controls.Add(Me.Button37) +Me.TabPage14.Controls.Add(Me.Button50) +Me.TabPage14.Controls.Add(Me.Button22) +Me.TabPage14.Controls.Add(Me.TBKeyWords) +Me.TabPage14.Controls.Add(Me.LBKeyWords) +Me.TabPage14.Controls.Add(Me.RTBKeyWords) +Me.TabPage14.Location = New System.Drawing.Point(4, 22) +Me.TabPage14.Name = "TabPage14" +Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage14.Size = New System.Drawing.Size(700, 411) +Me.TabPage14.TabIndex = 0 +Me.TabPage14.Text = "Keywords" ' -'ChbImageUrlGeneral +'LBLKeywordPreview ' -Me.ChbImageUrlGeneral.AutoSize = true -Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled -Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) -Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" -Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGeneral.TabIndex = 31 -Me.ChbImageUrlGeneral.Text = "General" -Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true +Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) +Me.LBLKeywordPreview.Name = "LBLKeywordPreview" +Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) +Me.LBLKeywordPreview.TabIndex = 174 +Me.LBLKeywordPreview.Text = "Get Preview Here" +Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlFemdom +'Label88 ' -Me.ChbImageUrlFemdom.AutoSize = true -Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled -Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) -Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" -Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlFemdom.TabIndex = 13 -Me.ChbImageUrlFemdom.Text = "Femdom" -Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true +Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label88.Location = New System.Drawing.Point(3, 358) +Me.Label88.Name = "Label88" +Me.Label88.Size = New System.Drawing.Size(194, 53) +Me.Label88.TabIndex = 173 +Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ + " the domme return." +Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlHentai +'TBKeywordPreview ' -Me.ChbImageUrlHentai.AutoSize = true -Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled -Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) -Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" -Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHentai.TabIndex = 19 -Me.ChbImageUrlHentai.Text = "Hentai" -Me.ChbImageUrlHentai.UseVisualStyleBackColor = true +Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) +Me.TBKeywordPreview.Name = "TBKeywordPreview" +Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) +Me.TBKeywordPreview.TabIndex = 172 +Me.TBKeywordPreview.Text = "Enter Line Here" +Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'ChbImageUrlLezdom +'Button37 ' -Me.ChbImageUrlLezdom.AutoSize = true -Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled -Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) -Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" -Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLezdom.TabIndex = 16 -Me.ChbImageUrlLezdom.Text = "Lezdom" -Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true +Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button37.Location = New System.Drawing.Point(638, 358) +Me.Button37.Name = "Button37" +Me.Button37.Size = New System.Drawing.Size(47, 50) +Me.Button37.TabIndex = 171 +Me.Button37.Text = "#" +Me.Button37.UseVisualStyleBackColor = true +' +'Button50 +' +Me.Button50.Location = New System.Drawing.Point(6, 10) +Me.Button50.Name = "Button50" +Me.Button50.Size = New System.Drawing.Size(194, 23) +Me.Button50.TabIndex = 169 +Me.Button50.Text = "Refresh and Clear Keyword List" +Me.Button50.UseVisualStyleBackColor = true ' -'TxbImageUrlBlowjob +'Button22 ' -Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" -Me.TxbImageUrlBlowjob.ReadOnly = true -Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.TabIndex = 12 -Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob +Me.Button22.Location = New System.Drawing.Point(638, 10) +Me.Button22.Name = "Button22" +Me.Button22.Size = New System.Drawing.Size(47, 23) +Me.Button22.TabIndex = 167 +Me.Button22.Text = "Save" +Me.Button22.UseVisualStyleBackColor = true ' -'TxbImageUrlSoftcore +'TBKeyWords ' -Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) -Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" -Me.TxbImageUrlSoftcore.ReadOnly = true -Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.TabIndex = 6 -Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore +Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) +Me.TBKeyWords.Name = "TBKeyWords" +Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) +Me.TBKeyWords.TabIndex = 166 ' -'TxbImageUrlLezdom +'LBKeyWords ' -Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) -Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" -Me.TxbImageUrlLezdom.ReadOnly = true -Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.TabIndex = 18 -Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom +Me.LBKeyWords.FormattingEnabled = true +Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) +Me.LBKeyWords.Name = "LBKeyWords" +Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) +Me.LBKeyWords.Sorted = true +Me.LBKeyWords.TabIndex = 165 ' -'TxbImageUrlFemdom +'RTBKeyWords ' -Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) -Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" -Me.TxbImageUrlFemdom.ReadOnly = true -Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.TabIndex = 15 -Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom +Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) +Me.RTBKeyWords.Name = "RTBKeyWords" +Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) +Me.RTBKeyWords.TabIndex = 164 +Me.RTBKeyWords.Text = "" ' -'TxbImageUrlHardcore +'TabPage24 ' -Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) -Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" -Me.TxbImageUrlHardcore.ReadOnly = true -Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.TabIndex = 3 -Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore +Me.TabPage24.BackColor = System.Drawing.Color.LightGray +Me.TabPage24.Controls.Add(Me.Button9) +Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) +Me.TabPage24.Controls.Add(Me.Button4) +Me.TabPage24.Controls.Add(Me.Button5) +Me.TabPage24.Controls.Add(Me.TBResponses) +Me.TabPage24.Controls.Add(Me.LBResponses) +Me.TabPage24.Controls.Add(Me.RTBResponses) +Me.TabPage24.Location = New System.Drawing.Point(4, 22) +Me.TabPage24.Name = "TabPage24" +Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage24.Size = New System.Drawing.Size(700, 411) +Me.TabPage24.TabIndex = 3 +Me.TabPage24.Text = "Responses" ' -'TxbImageUrlHentai +'Button9 ' -Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) -Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" -Me.TxbImageUrlHentai.ReadOnly = true -Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.TabIndex = 21 -Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai +Me.Button9.Location = New System.Drawing.Point(217, 10) +Me.Button9.Name = "Button9" +Me.Button9.Size = New System.Drawing.Size(215, 23) +Me.Button9.TabIndex = 176 +Me.Button9.Text = "Response Template" +Me.Button9.UseVisualStyleBackColor = true ' -'TxbImageUrlGay +'RTBResponsesKEY ' -Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) -Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.Name = "TxbImageUrlGay" -Me.TxbImageUrlGay.ReadOnly = true -Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.TabIndex = 24 -Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay +Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) +Me.RTBResponsesKEY.Name = "RTBResponsesKEY" +Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) +Me.RTBResponsesKEY.TabIndex = 175 +Me.RTBResponsesKEY.Text = "" ' -'TxbImageUrlLesbian +'Button4 ' -Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) -Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" -Me.TxbImageUrlLesbian.ReadOnly = true -Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.TabIndex = 9 -Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian +Me.Button4.Location = New System.Drawing.Point(6, 10) +Me.Button4.Name = "Button4" +Me.Button4.Size = New System.Drawing.Size(194, 23) +Me.Button4.TabIndex = 174 +Me.Button4.Text = "Refresh and Clear Response List" +Me.Button4.UseVisualStyleBackColor = true ' -'TxbImageUrlMaledom +'Button5 ' -Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) -Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" -Me.TxbImageUrlMaledom.ReadOnly = true -Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.TabIndex = 27 -Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom +Me.Button5.Location = New System.Drawing.Point(638, 10) +Me.Button5.Name = "Button5" +Me.Button5.Size = New System.Drawing.Size(47, 23) +Me.Button5.TabIndex = 173 +Me.Button5.Text = "Save" +Me.Button5.UseVisualStyleBackColor = true ' -'TxbImageUrlCaptions +'TBResponses ' -Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) -Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" -Me.TxbImageUrlCaptions.ReadOnly = true -Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.TabIndex = 30 -Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions +Me.TBResponses.Location = New System.Drawing.Point(438, 10) +Me.TBResponses.Name = "TBResponses" +Me.TBResponses.Size = New System.Drawing.Size(194, 20) +Me.TBResponses.TabIndex = 172 ' -'TxbImageUrlGeneral +'LBResponses ' -Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) -Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" -Me.TxbImageUrlGeneral.ReadOnly = true -Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.TabIndex = 33 -Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral +Me.LBResponses.FormattingEnabled = true +Me.LBResponses.Location = New System.Drawing.Point(6, 36) +Me.LBResponses.Name = "LBResponses" +Me.LBResponses.Size = New System.Drawing.Size(194, 355) +Me.LBResponses.Sorted = true +Me.LBResponses.TabIndex = 171 ' -'TxbImageUrlBoobs +'RTBResponses ' -Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) -Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" -Me.TxbImageUrlBoobs.ReadOnly = true -Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.TabIndex = 36 -Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs +Me.RTBResponses.Location = New System.Drawing.Point(217, 82) +Me.RTBResponses.Name = "RTBResponses" +Me.RTBResponses.Size = New System.Drawing.Size(468, 309) +Me.RTBResponses.TabIndex = 170 +Me.RTBResponses.Text = "" ' -'TxbImageUrlButts +'TabPage8 ' -Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) -Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.Name = "TxbImageUrlButts" -Me.TxbImageUrlButts.ReadOnly = true -Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.TabIndex = 39 -Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt +Me.TabPage8.BackColor = System.Drawing.Color.LightGray +Me.TabPage8.Controls.Add(Me.RTBVideoMod) +Me.TabPage8.Controls.Add(Me.GroupBox29) +Me.TabPage8.Controls.Add(Me.BTNVideoModClear) +Me.TabPage8.Controls.Add(Me.GroupBox28) +Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) +Me.TabPage8.Controls.Add(Me.GroupBox30) +Me.TabPage8.Controls.Add(Me.BTNVideoModSave) +Me.TabPage8.Location = New System.Drawing.Point(4, 22) +Me.TabPage8.Name = "TabPage8" +Me.TabPage8.Size = New System.Drawing.Size(700, 411) +Me.TabPage8.TabIndex = 2 +Me.TabPage8.Text = "Video" ' -'TbxIHardcore +'RTBVideoMod ' -Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray -Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black -Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) -Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.Name = "TbxIHardcore" -Me.TbxIHardcore.ReadOnly = true -Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.TabIndex = 2 -Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore +Me.RTBVideoMod.Enabled = false +Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) +Me.RTBVideoMod.Name = "RTBVideoMod" +Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) +Me.RTBVideoMod.TabIndex = 150 +Me.RTBVideoMod.Text = "" ' -'CBIHardcoreSD +'GroupBox29 ' -Me.CBIHardcoreSD.AutoSize = true -Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD -Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) -Me.CBIHardcoreSD.Name = "CBIHardcoreSD" -Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHardcoreSD.TabIndex = 3 -Me.CBIHardcoreSD.UseVisualStyleBackColor = true +Me.GroupBox29.BackColor = System.Drawing.Color.LightGray +Me.GroupBox29.Controls.Add(Me.Label51) +Me.GroupBox29.ForeColor = System.Drawing.Color.Black +Me.GroupBox29.Location = New System.Drawing.Point(6, 309) +Me.GroupBox29.Name = "GroupBox29" +Me.GroupBox29.Size = New System.Drawing.Size(692, 92) +Me.GroupBox29.TabIndex = 66 +Me.GroupBox29.TabStop = false +Me.GroupBox29.Text = "Description" ' -'CBIHardcore +'Label51 ' -Me.CBIHardcore.AutoSize = true -Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore -Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcore.ForeColor = System.Drawing.Color.Black -Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) -Me.CBIHardcore.Name = "CBIHardcore" -Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) -Me.CBIHardcore.TabIndex = 0 -Me.CBIHardcore.Text = "Hardcore" -Me.CBIHardcore.UseVisualStyleBackColor = true +Me.Label51.BackColor = System.Drawing.Color.Transparent +Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label51.ForeColor = System.Drawing.Color.Black +Me.Label51.Location = New System.Drawing.Point(6, 16) +Me.Label51.Name = "Label51" +Me.Label51.Size = New System.Drawing.Size(680, 73) +Me.Label51.TabIndex = 62 +Me.Label51.Text = resources.GetString("Label51.Text") +Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBISoftcore +'BTNVideoModClear ' -Me.CBISoftcore.AutoSize = true -Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore -Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcore.ForeColor = System.Drawing.Color.Black -Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) -Me.CBISoftcore.Name = "CBISoftcore" -Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) -Me.CBISoftcore.TabIndex = 4 -Me.CBISoftcore.Text = "Softcore" -Me.CBISoftcore.UseVisualStyleBackColor = true +Me.BTNVideoModClear.Enabled = false +Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) +Me.BTNVideoModClear.Name = "BTNVideoModClear" +Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModClear.TabIndex = 153 +Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" +Me.BTNVideoModClear.UseVisualStyleBackColor = true ' -'TbxISoftcore +'GroupBox28 ' -Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray -Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black -Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) -Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.Name = "TbxISoftcore" -Me.TbxISoftcore.ReadOnly = true -Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.TabIndex = 6 -Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore +Me.GroupBox28.Controls.Add(Me.CBVTType) +Me.GroupBox28.Location = New System.Drawing.Point(6, 8) +Me.GroupBox28.Name = "GroupBox28" +Me.GroupBox28.Size = New System.Drawing.Size(155, 46) +Me.GroupBox28.TabIndex = 148 +Me.GroupBox28.TabStop = false +Me.GroupBox28.Text = "Video Tease Type" ' -'CBButtSubDir +'CBVTType ' -Me.CBButtSubDir.AutoSize = true -Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir -Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black -Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) -Me.CBButtSubDir.Name = "CBButtSubDir" -Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) -Me.CBButtSubDir.TabIndex = 51 -Me.CBButtSubDir.UseVisualStyleBackColor = true +Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBVTType.FormattingEnabled = true +Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) +Me.CBVTType.Location = New System.Drawing.Point(9, 15) +Me.CBVTType.Name = "CBVTType" +Me.CBVTType.Size = New System.Drawing.Size(137, 21) +Me.CBVTType.TabIndex = 171 ' -'CBISoftcoreSD +'BTNVideoModLoad ' -Me.CBISoftcoreSD.AutoSize = true -Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD -Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) -Me.CBISoftcoreSD.Name = "CBISoftcoreSD" -Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBISoftcoreSD.TabIndex = 7 -Me.CBISoftcoreSD.UseVisualStyleBackColor = true +Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) +Me.BTNVideoModLoad.Name = "BTNVideoModLoad" +Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModLoad.TabIndex = 152 +Me.BTNVideoModLoad.Text = "Load Script" +Me.BTNVideoModLoad.UseVisualStyleBackColor = true ' -'CBBoobSubDir +'GroupBox30 ' -Me.CBBoobSubDir.AutoSize = true -Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir -Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black -Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) -Me.CBBoobSubDir.Name = "CBBoobSubDir" -Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) -Me.CBBoobSubDir.TabIndex = 47 -Me.CBBoobSubDir.UseVisualStyleBackColor = true +Me.GroupBox30.Controls.Add(Me.LBVidScript) +Me.GroupBox30.Location = New System.Drawing.Point(6, 60) +Me.GroupBox30.Name = "GroupBox30" +Me.GroupBox30.Size = New System.Drawing.Size(155, 100) +Me.GroupBox30.TabIndex = 149 +Me.GroupBox30.TabStop = false +Me.GroupBox30.Text = "Script" ' -'CBILezdomSD +'LBVidScript ' -Me.CBILezdomSD.AutoSize = true -Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD -Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black -Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) -Me.CBILezdomSD.Name = "CBILezdomSD" -Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBILezdomSD.TabIndex = 23 -Me.CBILezdomSD.UseVisualStyleBackColor = true +Me.LBVidScript.FormattingEnabled = true +Me.LBVidScript.Location = New System.Drawing.Point(9, 20) +Me.LBVidScript.Name = "LBVidScript" +Me.LBVidScript.Size = New System.Drawing.Size(137, 69) +Me.LBVidScript.TabIndex = 0 ' -'CBIGeneralSD +'BTNVideoModSave ' -Me.CBIGeneralSD.AutoSize = true -Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD -Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black -Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) -Me.CBIGeneralSD.Name = "CBIGeneralSD" -Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) -Me.CBIGeneralSD.TabIndex = 43 -Me.CBIGeneralSD.UseVisualStyleBackColor = true +Me.BTNVideoModSave.Enabled = false +Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) +Me.BTNVideoModSave.Name = "BTNVideoModSave" +Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModSave.TabIndex = 151 +Me.BTNVideoModSave.Text = "Save Changes" +Me.BTNVideoModSave.UseVisualStyleBackColor = true ' -'CBILesbianSD +'TabPage15 +' +Me.TabPage15.BackColor = System.Drawing.Color.LightGray +Me.TabPage15.Controls.Add(Me.Label62) +Me.TabPage15.Controls.Add(Me.Label61) +Me.TabPage15.Controls.Add(Me.Label57) +Me.TabPage15.Controls.Add(Me.Label58) +Me.TabPage15.Controls.Add(Me.Label60) +Me.TabPage15.Controls.Add(Me.TBGlitModFileName) +Me.TabPage15.Controls.Add(Me.GroupBox34) +Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) +Me.TabPage15.Controls.Add(Me.Button26) +Me.TabPage15.Controls.Add(Me.Label56) +Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) +Me.TabPage15.Controls.Add(Me.LBGlitModScripts) +Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) +Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) +Me.TabPage15.Controls.Add(Me.Button29) +Me.TabPage15.Controls.Add(Me.CBGlitModType) +Me.TabPage15.Controls.Add(Me.Label59) +Me.TabPage15.Controls.Add(Me.Label50) +Me.TabPage15.Location = New System.Drawing.Point(4, 22) +Me.TabPage15.Name = "TabPage15" +Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage15.Size = New System.Drawing.Size(700, 411) +Me.TabPage15.TabIndex = 1 +Me.TabPage15.Text = "Glitter" ' -Me.CBILesbianSD.AutoSize = true -Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD -Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black -Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) -Me.CBILesbianSD.Name = "CBILesbianSD" -Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) -Me.CBILesbianSD.TabIndex = 11 -Me.CBILesbianSD.UseVisualStyleBackColor = true +'Label62 ' -'CBICaptionsSD +Me.Label62.Location = New System.Drawing.Point(255, 169) +Me.Label62.Name = "Label62" +Me.Label62.Size = New System.Drawing.Size(59, 51) +Me.Label62.TabIndex = 177 +Me.Label62.Text = "@Cruel @Angry @Custom2" +Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBICaptionsSD.AutoSize = true -Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD -Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black -Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) -Me.CBICaptionsSD.Name = "CBICaptionsSD" -Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) -Me.CBICaptionsSD.TabIndex = 39 -Me.CBICaptionsSD.UseVisualStyleBackColor = true +'Label61 ' -'CBILesbian +Me.Label61.Location = New System.Drawing.Point(194, 169) +Me.Label61.Name = "Label61" +Me.Label61.Size = New System.Drawing.Size(59, 51) +Me.Label61.TabIndex = 176 +Me.Label61.Text = "@Bratty @Caring @Custom1" +Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBILesbian.AutoSize = true -Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian -Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbian.ForeColor = System.Drawing.Color.Black -Me.CBILesbian.Location = New System.Drawing.Point(3, 61) -Me.CBILesbian.Name = "CBILesbian" -Me.CBILesbian.Size = New System.Drawing.Size(70, 23) -Me.CBILesbian.TabIndex = 8 -Me.CBILesbian.Text = "Lesbian" -Me.CBILesbian.UseVisualStyleBackColor = true +'Label57 ' -'CBIMaledomSD +Me.Label57.Location = New System.Drawing.Point(194, 11) +Me.Label57.Name = "Label57" +Me.Label57.Size = New System.Drawing.Size(120, 23) +Me.Label57.TabIndex = 160 +Me.Label57.Text = "File Name" +Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBIMaledomSD.AutoSize = true -Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD -Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black -Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) -Me.CBIMaledomSD.Name = "CBIMaledomSD" -Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIMaledomSD.TabIndex = 35 -Me.CBIMaledomSD.UseVisualStyleBackColor = true +'Label58 ' -'CBIBlowjob +Me.Label58.Location = New System.Drawing.Point(350, 11) +Me.Label58.Name = "Label58" +Me.Label58.Size = New System.Drawing.Size(326, 23) +Me.Label58.TabIndex = 161 +Me.Label58.Text = "Domme's Post" +Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBIBlowjob.AutoSize = true -Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob -Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) -Me.CBIBlowjob.Name = "CBIBlowjob" -Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) -Me.CBIBlowjob.TabIndex = 12 -Me.CBIBlowjob.Text = "Blowjob" -Me.CBIBlowjob.UseVisualStyleBackColor = true +'Label60 ' -'CBIGaySD +Me.Label60.Location = New System.Drawing.Point(194, 139) +Me.Label60.Name = "Label60" +Me.Label60.Size = New System.Drawing.Size(120, 30) +Me.Label60.TabIndex = 175 +Me.Label60.Text = "Tease Responses Need 3 of Each:" +Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBIGaySD.AutoSize = true -Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD -Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGaySD.ForeColor = System.Drawing.Color.Black -Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) -Me.CBIGaySD.Name = "CBIGaySD" -Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) -Me.CBIGaySD.TabIndex = 31 -Me.CBIGaySD.UseVisualStyleBackColor = true +'TBGlitModFileName ' -'CBIHentaiSD +Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) +Me.TBGlitModFileName.Name = "TBGlitModFileName" +Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) +Me.TBGlitModFileName.TabIndex = 158 ' -Me.CBIHentaiSD.AutoSize = true -Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD -Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black -Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) -Me.CBIHentaiSD.Name = "CBIHentaiSD" -Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHentaiSD.TabIndex = 27 -Me.CBIHentaiSD.UseVisualStyleBackColor = true +'GroupBox34 ' -'CBIBlowjobSD +Me.GroupBox34.BackColor = System.Drawing.Color.LightGray +Me.GroupBox34.Controls.Add(Me.Label52) +Me.GroupBox34.ForeColor = System.Drawing.Color.Black +Me.GroupBox34.Location = New System.Drawing.Point(8, 296) +Me.GroupBox34.Name = "GroupBox34" +Me.GroupBox34.Size = New System.Drawing.Size(683, 107) +Me.GroupBox34.TabIndex = 66 +Me.GroupBox34.TabStop = false +Me.GroupBox34.Text = "Description" ' -Me.CBIBlowjobSD.AutoSize = true -Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD -Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) -Me.CBIBlowjobSD.Name = "CBIBlowjobSD" -Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) -Me.CBIBlowjobSD.TabIndex = 15 -Me.CBIBlowjobSD.UseVisualStyleBackColor = true +'Label52 ' -'CBIFemdomSD +Me.Label52.BackColor = System.Drawing.Color.Transparent +Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label52.ForeColor = System.Drawing.Color.Black +Me.Label52.Location = New System.Drawing.Point(6, 16) +Me.Label52.Name = "Label52" +Me.Label52.Size = New System.Drawing.Size(670, 88) +Me.Label52.TabIndex = 62 +Me.Label52.Text = resources.GetString("Label52.Text") +Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBIFemdomSD.AutoSize = true -Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD -Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black -Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) -Me.CBIFemdomSD.Name = "CBIFemdomSD" -Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIFemdomSD.TabIndex = 19 -Me.CBIFemdomSD.UseVisualStyleBackColor = true +'RTBGlitModDommePost ' -'TbxIButts +Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) +Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" +Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) +Me.RTBGlitModDommePost.TabIndex = 162 +Me.RTBGlitModDommePost.Text = "" ' -Me.TbxIButts.BackColor = System.Drawing.Color.LightGray -Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIButts.ForeColor = System.Drawing.Color.Black -Me.TbxIButts.Location = New System.Drawing.Point(115, 353) -Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIButts.Name = "TbxIButts" -Me.TbxIButts.ReadOnly = true -Me.TbxIButts.Size = New System.Drawing.Size(217, 17) -Me.TbxIButts.TabIndex = 50 -Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath +'Button26 ' -'CBIFemdom +Me.Button26.Location = New System.Drawing.Point(194, 239) +Me.Button26.Name = "Button26" +Me.Button26.Size = New System.Drawing.Size(120, 23) +Me.Button26.TabIndex = 174 +Me.Button26.Text = "Clear Fields" +Me.Button26.UseVisualStyleBackColor = true ' -Me.CBIFemdom.AutoSize = true -Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom -Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdom.ForeColor = System.Drawing.Color.Black -Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) -Me.CBIFemdom.Name = "CBIFemdom" -Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) -Me.CBIFemdom.TabIndex = 16 -Me.CBIFemdom.Text = "Femdom" -Me.CBIFemdom.UseVisualStyleBackColor = true +'Label56 ' -'TbxILesbian +Me.Label56.Location = New System.Drawing.Point(350, 80) +Me.Label56.Name = "Label56" +Me.Label56.Size = New System.Drawing.Size(324, 23) +Me.Label56.TabIndex = 156 +Me.Label56.Text = "Responses (Minimum 3)" +Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray -Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILesbian.ForeColor = System.Drawing.Color.Black -Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) -Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILesbian.Name = "TbxILesbian" -Me.TbxILesbian.ReadOnly = true -Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) -Me.TbxILesbian.TabIndex = 10 -Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian +'RTBGlitModResponses ' -'CBILezdom +Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) +Me.RTBGlitModResponses.Name = "RTBGlitModResponses" +Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) +Me.RTBGlitModResponses.TabIndex = 150 +Me.RTBGlitModResponses.Text = "" ' -Me.CBILezdom.AutoSize = true -Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom -Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdom.ForeColor = System.Drawing.Color.Black -Me.CBILezdom.Location = New System.Drawing.Point(3, 148) -Me.CBILezdom.Name = "CBILezdom" -Me.CBILezdom.Size = New System.Drawing.Size(70, 23) -Me.CBILezdom.TabIndex = 20 -Me.CBILezdom.Text = "Lezdom" -Me.CBILezdom.UseVisualStyleBackColor = true +'LBGlitModScripts ' -'TbxIBoobs +Me.LBGlitModScripts.FormattingEnabled = true +Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) +Me.LBGlitModScripts.Name = "LBGlitModScripts" +Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) +Me.LBGlitModScripts.TabIndex = 163 ' -Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray -Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black -Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) -Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.Name = "TbxIBoobs" -Me.TbxIBoobs.ReadOnly = true -Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.TabIndex = 46 -Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath +'LBLGlitModScriptCount ' -'CBIHentai +Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) +Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" +Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) +Me.LBLGlitModScriptCount.TabIndex = 173 +Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" +Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBIHentai.AutoSize = true -Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai -Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentai.ForeColor = System.Drawing.Color.Black -Me.CBIHentai.Location = New System.Drawing.Point(3, 177) -Me.CBIHentai.Name = "CBIHentai" -Me.CBIHentai.Size = New System.Drawing.Size(70, 23) -Me.CBIHentai.TabIndex = 24 -Me.CBIHentai.Text = "Hentai" -Me.CBIHentai.UseVisualStyleBackColor = true +'LBLGlitModDomType ' -'TbxIBlowjob +Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) +Me.LBLGlitModDomType.Name = "LBLGlitModDomType" +Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) +Me.LBLGlitModDomType.TabIndex = 155 +Me.LBLGlitModDomType.Text = "Total Brat" +Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black -Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.Name = "TbxIBlowjob" -Me.TbxIBlowjob.ReadOnly = true -Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.TabIndex = 14 -Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob +'Button29 ' -'CBIGay +Me.Button29.Location = New System.Drawing.Point(194, 268) +Me.Button29.Name = "Button29" +Me.Button29.Size = New System.Drawing.Size(120, 23) +Me.Button29.TabIndex = 151 +Me.Button29.Text = "Save Glitter File" +Me.Button29.UseVisualStyleBackColor = true ' -Me.CBIGay.AutoSize = true -Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay -Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGay.ForeColor = System.Drawing.Color.Black -Me.CBIGay.Location = New System.Drawing.Point(3, 206) -Me.CBIGay.Name = "CBIGay" -Me.CBIGay.Size = New System.Drawing.Size(70, 23) -Me.CBIGay.TabIndex = 28 -Me.CBIGay.Text = "Gay" -Me.CBIGay.UseVisualStyleBackColor = true +'CBGlitModType ' -'TbxIGeneral +Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBGlitModType.FormattingEnabled = true +Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) +Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) +Me.CBGlitModType.Name = "CBGlitModType" +Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) +Me.CBGlitModType.TabIndex = 171 ' -Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray -Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black -Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) -Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.Name = "TbxIGeneral" -Me.TbxIGeneral.ReadOnly = true -Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.TabIndex = 42 -Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral +'Label59 ' -'CBIMaledom +Me.Label59.Location = New System.Drawing.Point(33, 11) +Me.Label59.Name = "Label59" +Me.Label59.Size = New System.Drawing.Size(130, 23) +Me.Label59.TabIndex = 172 +Me.Label59.Text = "Glitter Post Type" +Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBIMaledom.AutoSize = true -Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom -Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledom.ForeColor = System.Drawing.Color.Black -Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) -Me.CBIMaledom.Name = "CBIMaledom" -Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) -Me.CBIMaledom.TabIndex = 32 -Me.CBIMaledom.Text = "Maledom" -Me.CBIMaledom.UseVisualStyleBackColor = true +'Label50 ' -'TbxIFemdom +Me.Label50.Location = New System.Drawing.Point(191, 80) +Me.Label50.Name = "Label50" +Me.Label50.Size = New System.Drawing.Size(123, 23) +Me.Label50.TabIndex = 154 +Me.Label50.Text = "Current Domme Personality:" +Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray -Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black -Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) -Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.Name = "TbxIFemdom" -Me.TbxIFemdom.ReadOnly = true -Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.TabIndex = 18 -Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom +'TabPage25 ' -'TbxICaptions +Me.TabPage25.BackColor = System.Drawing.Color.Silver +Me.TabPage25.Controls.Add(Me.Panel11) +Me.TabPage25.Location = New System.Drawing.Point(4, 22) +Me.TabPage25.Name = "TabPage25" +Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage25.Size = New System.Drawing.Size(720, 448) +Me.TabPage25.TabIndex = 18 +Me.TabPage25.Text = "Misc" ' -Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray -Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxICaptions.ForeColor = System.Drawing.Color.Black -Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) -Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxICaptions.Name = "TbxICaptions" -Me.TbxICaptions.ReadOnly = true -Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) -Me.TbxICaptions.TabIndex = 38 -Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions +'Panel11 ' -'CBICaptions +Me.Panel11.BackColor = System.Drawing.Color.LightGray +Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel11.Controls.Add(Me.GroupBox8) +Me.Panel11.Controls.Add(Me.GroupBox62) +Me.Panel11.Controls.Add(Me.GroupBox33) +Me.Panel11.Controls.Add(Me.GroupBox27) +Me.Panel11.Controls.Add(Me.GroupBox20) +Me.Panel11.Controls.Add(Me.GroupBox15) +Me.Panel11.Controls.Add(Me.PictureBox9) +Me.Panel11.Controls.Add(Me.Label148) +Me.Panel11.Location = New System.Drawing.Point(6, 6) +Me.Panel11.Name = "Panel11" +Me.Panel11.Size = New System.Drawing.Size(708, 437) +Me.Panel11.TabIndex = 92 ' -Me.CBICaptions.AutoSize = true -Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions -Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptions.ForeColor = System.Drawing.Color.Black -Me.CBICaptions.Location = New System.Drawing.Point(3, 264) -Me.CBICaptions.Name = "CBICaptions" -Me.CBICaptions.Size = New System.Drawing.Size(70, 23) -Me.CBICaptions.TabIndex = 36 -Me.CBICaptions.Text = "Captions" -Me.CBICaptions.UseVisualStyleBackColor = true +'GroupBox8 ' -'TbxILezdom +Me.GroupBox8.Controls.Add(Me.CBOutputErrors) +Me.GroupBox8.Location = New System.Drawing.Point(420, 321) +Me.GroupBox8.Name = "GroupBox8" +Me.GroupBox8.Size = New System.Drawing.Size(279, 47) +Me.GroupBox8.TabIndex = 179 +Me.GroupBox8.TabStop = false +Me.GroupBox8.Text = "System Information" ' -Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray -Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILezdom.ForeColor = System.Drawing.Color.Black -Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) -Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILezdom.Name = "TbxILezdom" -Me.TbxILezdom.ReadOnly = true -Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) -Me.TbxILezdom.TabIndex = 22 -Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom +'CBOutputErrors ' -'TbxIMaledom +Me.CBOutputErrors.AutoSize = true +Me.CBOutputErrors.Checked = true +Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black +Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) +Me.CBOutputErrors.Name = "CBOutputErrors" +Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) +Me.CBOutputErrors.TabIndex = 29 +Me.CBOutputErrors.TabStop = false +Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" +Me.CBOutputErrors.UseVisualStyleBackColor = true ' -Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray -Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black -Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) -Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.Name = "TbxIMaledom" -Me.TbxIMaledom.ReadOnly = true -Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.TabIndex = 34 -Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +'GroupBox62 +' +Me.GroupBox62.Controls.Add(Me.RBGerman) +Me.GroupBox62.Controls.Add(Me.RBEnglish) +Me.GroupBox62.Location = New System.Drawing.Point(420, 374) +Me.GroupBox62.Name = "GroupBox62" +Me.GroupBox62.Size = New System.Drawing.Size(279, 53) +Me.GroupBox62.TabIndex = 178 +Me.GroupBox62.TabStop = false +Me.GroupBox62.Text = "Language" +' +'RBGerman ' -'TbxIHentai +Me.RBGerman.AutoSize = true +Me.RBGerman.Location = New System.Drawing.Point(180, 20) +Me.RBGerman.Name = "RBGerman" +Me.RBGerman.Size = New System.Drawing.Size(65, 17) +Me.RBGerman.TabIndex = 1 +Me.RBGerman.Text = "Deutsch" +Me.RBGerman.UseVisualStyleBackColor = true ' -Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray -Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHentai.ForeColor = System.Drawing.Color.Black -Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) -Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHentai.Name = "TbxIHentai" -Me.TbxIHentai.ReadOnly = true -Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) -Me.TbxIHentai.TabIndex = 26 -Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai +'RBEnglish ' -'CBIGeneral +Me.RBEnglish.AutoSize = true +Me.RBEnglish.Checked = true +Me.RBEnglish.Location = New System.Drawing.Point(36, 19) +Me.RBEnglish.Name = "RBEnglish" +Me.RBEnglish.Size = New System.Drawing.Size(59, 17) +Me.RBEnglish.TabIndex = 0 +Me.RBEnglish.TabStop = true +Me.RBEnglish.Text = "English" +Me.RBEnglish.UseVisualStyleBackColor = true ' -Me.CBIGeneral.AutoSize = true -Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral -Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneral.ForeColor = System.Drawing.Color.Black -Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) -Me.CBIGeneral.Name = "CBIGeneral" -Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) -Me.CBIGeneral.TabIndex = 40 -Me.CBIGeneral.Text = "General" -Me.CBIGeneral.UseVisualStyleBackColor = true +'GroupBox33 ' -'TbxIGay +Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) +Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) +Me.GroupBox33.Controls.Add(Me.Label140) +Me.GroupBox33.Controls.Add(Me.Button11) +Me.GroupBox33.Controls.Add(Me.LBLChastityState) +Me.GroupBox33.Controls.Add(Me.Label120) +Me.GroupBox33.Location = New System.Drawing.Point(420, 155) +Me.GroupBox33.Name = "GroupBox33" +Me.GroupBox33.Size = New System.Drawing.Size(279, 160) +Me.GroupBox33.TabIndex = 177 +Me.GroupBox33.TabStop = false +Me.GroupBox33.Text = "System States" ' -Me.TbxIGay.BackColor = System.Drawing.Color.LightGray -Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGay.ForeColor = System.Drawing.Color.Black -Me.TbxIGay.Location = New System.Drawing.Point(115, 208) -Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGay.Name = "TbxIGay" -Me.TbxIGay.ReadOnly = true -Me.TbxIGay.Size = New System.Drawing.Size(217, 17) -Me.TbxIGay.TabIndex = 30 -Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay +'BTNOfflineMode ' -'CBIBoobs +Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 62) +Me.BTNOfflineMode.Name = "BTNOfflineMode" +Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) +Me.BTNOfflineMode.TabIndex = 180 +Me.BTNOfflineMode.Text = "Toggle" +Me.BTNOfflineMode.UseVisualStyleBackColor = true ' -Me.CBIBoobs.AutoSize = true -Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs -Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBoobs.ForeColor = System.Drawing.Color.Black -Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) -Me.CBIBoobs.Name = "CBIBoobs" -Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) -Me.CBIBoobs.TabIndex = 44 -Me.CBIBoobs.Text = "Boobs" -Me.CBIBoobs.UseVisualStyleBackColor = true +'LBLOfflineMode ' -'CBIButts +Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray +Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red +Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 62) +Me.LBLOfflineMode.Name = "LBLOfflineMode" +Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) +Me.LBLOfflineMode.TabIndex = 179 +Me.LBLOfflineMode.Text = "OFF" +Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBIButts.AutoSize = true -Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts -Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIButts.ForeColor = System.Drawing.Color.Black -Me.CBIButts.Location = New System.Drawing.Point(3, 351) -Me.CBIButts.Name = "CBIButts" -Me.CBIButts.Size = New System.Drawing.Size(70, 27) -Me.CBIButts.TabIndex = 48 -Me.CBIButts.Text = "Butts" -Me.CBIButts.UseVisualStyleBackColor = true +'Label140 ' -'TxbVideoGeneralD +Me.Label140.BackColor = System.Drawing.Color.LightGray +Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label140.Location = New System.Drawing.Point(17, 62) +Me.Label140.Name = "Label140" +Me.Label140.Size = New System.Drawing.Size(98, 23) +Me.Label140.TabIndex = 178 +Me.Label140.Text = "OFFLINE MODE" +Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" -Me.TxbVideoGeneralD.ReadOnly = true -Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.TabIndex = 2 -Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD +'Button11 ' -'CBVideoGeneralD +Me.Button11.Location = New System.Drawing.Point(161, 25) +Me.Button11.Name = "Button11" +Me.Button11.Size = New System.Drawing.Size(99, 23) +Me.Button11.TabIndex = 177 +Me.Button11.Text = "Toggle" +Me.Button11.UseVisualStyleBackColor = true ' -Me.CBVideoGeneralD.AutoSize = true -Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD -Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneralD.Name = "CBVideoGeneralD" -Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneralD.TabIndex = 0 -Me.CBVideoGeneralD.Text = "General" -Me.CBVideoGeneralD.UseVisualStyleBackColor = true +'LBLChastityState ' -'TxbVideoCHD +Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray +Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLChastityState.ForeColor = System.Drawing.Color.Red +Me.LBLChastityState.Location = New System.Drawing.Point(120, 25) +Me.LBLChastityState.Name = "LBLChastityState" +Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) +Me.LBLChastityState.TabIndex = 3 +Me.LBLChastityState.Text = "OFF" +Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.Name = "TxbVideoCHD" -Me.TxbVideoCHD.ReadOnly = true -Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.TabIndex = 6 -Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD +'Label120 ' -'TxbVideoJOID +Me.Label120.BackColor = System.Drawing.Color.LightGray +Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label120.Location = New System.Drawing.Point(17, 25) +Me.Label120.Name = "Label120" +Me.Label120.Size = New System.Drawing.Size(98, 23) +Me.Label120.TabIndex = 2 +Me.Label120.Text = "CHASTITY" +Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.Name = "TxbVideoJOID" -Me.TxbVideoJOID.ReadOnly = true -Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.TabIndex = 2 -Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID +'GroupBox27 ' -'CBVideoJOID +Me.GroupBox27.Controls.Add(Me.Button6) +Me.GroupBox27.Controls.Add(Me.LBLSesSpace) +Me.GroupBox27.Controls.Add(Me.Button3) +Me.GroupBox27.Controls.Add(Me.LBLSesFiles) +Me.GroupBox27.Controls.Add(Me.Label125) +Me.GroupBox27.Controls.Add(Me.Label124) +Me.GroupBox27.Location = New System.Drawing.Point(420, 32) +Me.GroupBox27.Name = "GroupBox27" +Me.GroupBox27.Size = New System.Drawing.Size(279, 117) +Me.GroupBox27.TabIndex = 176 +Me.GroupBox27.TabStop = false +Me.GroupBox27.Text = "Session Images" ' -Me.CBVideoJOID.AutoSize = true -Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID -Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOID.Name = "CBVideoJOID" -Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOID.TabIndex = 0 -Me.CBVideoJOID.Text = "JOI" -Me.CBVideoJOID.UseVisualStyleBackColor = true +'Button6 ' -'CBVideoCHD +Me.Button6.Location = New System.Drawing.Point(143, 76) +Me.Button6.Name = "Button6" +Me.Button6.Size = New System.Drawing.Size(117, 23) +Me.Button6.TabIndex = 176 +Me.Button6.Text = "Delete All Files" +Me.Button6.UseVisualStyleBackColor = true ' -Me.CBVideoCHD.AutoSize = true -Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD -Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black -Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCHD.Name = "CBVideoCHD" -Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCHD.TabIndex = 4 -Me.CBVideoCHD.Text = "CH" -Me.CBVideoCHD.UseVisualStyleBackColor = true +'LBLSesSpace +' +Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) +Me.LBLSesSpace.Name = "LBLSesSpace" +Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) +Me.LBLSesSpace.TabIndex = 3 +' +'Button3 +' +Me.Button3.Location = New System.Drawing.Point(20, 76) +Me.Button3.Name = "Button3" +Me.Button3.Size = New System.Drawing.Size(117, 23) +Me.Button3.TabIndex = 175 +Me.Button3.Text = "Open Folder" +Me.Button3.UseVisualStyleBackColor = true ' -'TxbVideoFemsubD +'LBLSesFiles ' -Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" -Me.TxbVideoFemsubD.ReadOnly = true -Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.TabIndex = 22 -Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD +Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) +Me.LBLSesFiles.Name = "LBLSesFiles" +Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) +Me.LBLSesFiles.TabIndex = 2 ' -'TxbVideoFemdomD +'Label125 ' -Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" -Me.TxbVideoFemdomD.ReadOnly = true -Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.TabIndex = 18 -Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD +Me.Label125.AutoSize = true +Me.Label125.Location = New System.Drawing.Point(17, 53) +Me.Label125.Name = "Label125" +Me.Label125.Size = New System.Drawing.Size(120, 13) +Me.Label125.TabIndex = 1 +Me.Label125.Text = "Total Disk Space Used:" ' -'TxbVideoBlowjobD +'Label124 ' -Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" -Me.TxbVideoBlowjobD.ReadOnly = true -Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.TabIndex = 14 -Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD +Me.Label124.AutoSize = true +Me.Label124.Location = New System.Drawing.Point(17, 24) +Me.Label124.Name = "Label124" +Me.Label124.Size = New System.Drawing.Size(126, 13) +Me.Label124.TabIndex = 0 +Me.Label124.Text = "Number of Files in Folder:" ' -'TxbVideoLesbianD +'GroupBox20 ' -Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" -Me.TxbVideoLesbianD.ReadOnly = true -Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.TabIndex = 10 -Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD +Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label87) +Me.GroupBox20.Controls.Add(Me.TBURLFileWith) +Me.GroupBox20.Controls.Add(Me.Label118) +Me.GroupBox20.Controls.Add(Me.Label85) +Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label53) +Me.GroupBox20.Controls.Add(Me.Label8) +Me.GroupBox20.Controls.Add(Me.Button1) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) +Me.GroupBox20.Controls.Add(Me.Label117) +Me.GroupBox20.Controls.Add(Me.Label116) +Me.GroupBox20.Controls.Add(Me.PBCurrent) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) +Me.GroupBox20.Controls.Add(Me.PBMaintenance) +Me.GroupBox20.Controls.Add(Me.LBLMaintenance) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) +Me.GroupBox20.Location = New System.Drawing.Point(6, 32) +Me.GroupBox20.Name = "GroupBox20" +Me.GroupBox20.Size = New System.Drawing.Size(408, 283) +Me.GroupBox20.TabIndex = 174 +Me.GroupBox20.TabStop = false +Me.GroupBox20.Text = "Maintenance" ' -'TxbVideoSoftCoreD +'Label85 ' -Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" -Me.TxbVideoSoftCoreD.ReadOnly = true -Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.TabIndex = 6 -Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD +Me.Label85.AutoSize = true +Me.Label85.Location = New System.Drawing.Point(98, 254) +Me.Label85.Name = "Label85" +Me.Label85.Size = New System.Drawing.Size(38, 13) +Me.Label85.TabIndex = 180 +Me.Label85.Text = ".media" ' -'TxbVideoHardCoreD +'TBURLFileReplace ' -Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" -Me.TxbVideoHardCoreD.ReadOnly = true -Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.TabIndex = 2 -Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD +Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) +Me.TBURLFileReplace.Name = "TBURLFileReplace" +Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileReplace.TabIndex = 179 ' -'CBVideoHardcoreD +'Label53 ' -Me.CBVideoHardcoreD.AutoSize = true -Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD -Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" -Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcoreD.TabIndex = 0 -Me.CBVideoHardcoreD.Text = "Hardcore" -Me.CBVideoHardcoreD.UseVisualStyleBackColor = true +Me.Label53.AutoSize = true +Me.Label53.Location = New System.Drawing.Point(16, 254) +Me.Label53.Name = "Label53" +Me.Label53.Size = New System.Drawing.Size(47, 13) +Me.Label53.TabIndex = 178 +Me.Label53.Text = "Replace" ' -'CBVideoSoftCoreD +'Label8 ' -Me.CBVideoSoftCoreD.AutoSize = true -Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD -Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" -Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCoreD.TabIndex = 4 -Me.CBVideoSoftCoreD.Text = "Softcore" -Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true +Me.Label8.AutoSize = true +Me.Label8.Location = New System.Drawing.Point(16, 232) +Me.Label8.Name = "Label8" +Me.Label8.Size = New System.Drawing.Size(130, 13) +Me.Label8.TabIndex = 177 +Me.Label8.Text = "Change URL File Servers " ' -'CBVideoLesbianD +'Button1 ' -Me.CBVideoLesbianD.AutoSize = true -Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD -Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbianD.Name = "CBVideoLesbianD" -Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbianD.TabIndex = 8 -Me.CBVideoLesbianD.Text = "Lesbian" -Me.CBVideoLesbianD.UseVisualStyleBackColor = true +Me.Button1.Enabled = false +Me.Button1.Location = New System.Drawing.Point(270, 19) +Me.Button1.Name = "Button1" +Me.Button1.Size = New System.Drawing.Size(121, 23) +Me.Button1.TabIndex = 176 +Me.Button1.Text = "Reset Settings" +Me.Button1.UseVisualStyleBackColor = true ' -'CBVideoBlowjobD +'BTNMaintenanceScripts ' -Me.CBVideoBlowjobD.AutoSize = true -Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD -Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" -Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjobD.TabIndex = 12 -Me.CBVideoBlowjobD.Text = "Blowjob" -Me.CBVideoBlowjobD.UseVisualStyleBackColor = true +Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) +Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" +Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceScripts.TabIndex = 175 +Me.BTNMaintenanceScripts.Text = "Audit Scripts" +Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true ' -'CBVideoFemsubD +'BTNMaintenanceRefresh ' -Me.CBVideoFemsubD.AutoSize = true -Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD -Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsubD.Name = "CBVideoFemsubD" -Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsubD.TabIndex = 20 -Me.CBVideoFemsubD.Text = "Femsub" -Me.CBVideoFemsubD.UseVisualStyleBackColor = true +Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) +Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" +Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRefresh.TabIndex = 7 +Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" +Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true ' -'CBVideoFemdomD +'Label117 ' -Me.CBVideoFemdomD.AutoSize = true -Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD -Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdomD.Name = "CBVideoFemdomD" -Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdomD.TabIndex = 16 -Me.CBVideoFemdomD.Text = "Femdom" -Me.CBVideoFemdomD.UseVisualStyleBackColor = true +Me.Label117.AutoSize = true +Me.Label117.Location = New System.Drawing.Point(15, 182) +Me.Label117.Name = "Label117" +Me.Label117.Size = New System.Drawing.Size(84, 13) +Me.Label117.TabIndex = 6 +Me.Label117.Text = "Overall Progress" ' -'TxbVideoGeneral +'Label116 ' -Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.Name = "TxbVideoGeneral" -Me.TxbVideoGeneral.ReadOnly = true -Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.TabIndex = 2 -Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral +Me.Label116.AutoSize = true +Me.Label116.Location = New System.Drawing.Point(15, 140) +Me.Label116.Name = "Label116" +Me.Label116.Size = New System.Drawing.Size(85, 13) +Me.Label116.TabIndex = 5 +Me.Label116.Text = "Current Progress" ' -'CBVideoGeneral +'PBCurrent ' -Me.CBVideoGeneral.AutoSize = true -Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral -Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneral.Name = "CBVideoGeneral" -Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneral.TabIndex = 0 -Me.CBVideoGeneral.Text = "General" -Me.CBVideoGeneral.UseVisualStyleBackColor = true +Me.PBCurrent.Location = New System.Drawing.Point(15, 156) +Me.PBCurrent.Name = "PBCurrent" +Me.PBCurrent.Size = New System.Drawing.Size(376, 23) +Me.PBCurrent.TabIndex = 4 ' -'TxbVideoCH +'BTNMaintenanceCancel ' -Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.Name = "TxbVideoCH" -Me.TxbVideoCH.ReadOnly = true -Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.TabIndex = 6 -Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH +Me.BTNMaintenanceCancel.Enabled = false +Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) +Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" +Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceCancel.TabIndex = 3 +Me.BTNMaintenanceCancel.Text = "Cancel" +Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true ' -'TxbVideoJOI +'PBMaintenance ' -Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.Name = "TxbVideoJOI" -Me.TxbVideoJOI.ReadOnly = true -Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.TabIndex = 2 -Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI +Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) +Me.PBMaintenance.Name = "PBMaintenance" +Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) +Me.PBMaintenance.TabIndex = 2 ' -'CBVideoJOI +'LBLMaintenance ' -Me.CBVideoJOI.AutoSize = true -Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI -Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOI.Name = "CBVideoJOI" -Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOI.TabIndex = 0 -Me.CBVideoJOI.Text = "JOI" -Me.CBVideoJOI.UseVisualStyleBackColor = true +Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) +Me.LBLMaintenance.Name = "LBLMaintenance" +Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) +Me.LBLMaintenance.TabIndex = 1 +Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBVideoCH +'BTNMaintenanceRebuild ' -Me.CBVideoCH.AutoSize = true -Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH -Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCH.ForeColor = System.Drawing.Color.Black -Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCH.Name = "CBVideoCH" -Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCH.TabIndex = 4 -Me.CBVideoCH.Text = "CH" -Me.CBVideoCH.UseVisualStyleBackColor = true +Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) +Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" +Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRebuild.TabIndex = 0 +Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" +Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true ' -'TxbVideoFemsub +'GroupBox15 ' -Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.Name = "TxbVideoFemsub" -Me.TxbVideoFemsub.ReadOnly = true -Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.TabIndex = 22 -Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub +Me.GroupBox15.Controls.Add(Me.Label115) +Me.GroupBox15.Controls.Add(Me.TBWebStop) +Me.GroupBox15.Controls.Add(Me.TBWebStart) +Me.GroupBox15.Controls.Add(Me.Label114) +Me.GroupBox15.Controls.Add(Me.WebToy) +Me.GroupBox15.Location = New System.Drawing.Point(6, 321) +Me.GroupBox15.Name = "GroupBox15" +Me.GroupBox15.Size = New System.Drawing.Size(408, 106) +Me.GroupBox15.TabIndex = 173 +Me.GroupBox15.TabStop = false +Me.GroupBox15.Text = "Web-Controlled Sex Toy" ' -'TxbVideoFemdom +'Label115 ' -Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.Name = "TxbVideoFemdom" -Me.TxbVideoFemdom.ReadOnly = true -Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.TabIndex = 18 -Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom +Me.Label115.AutoSize = true +Me.Label115.Location = New System.Drawing.Point(12, 58) +Me.Label115.Name = "Label115" +Me.Label115.Size = New System.Drawing.Size(54, 13) +Me.Label115.TabIndex = 171 +Me.Label115.Text = "Stop URL" ' -'TxbVideoBlowjob +'TBWebStop ' -Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" -Me.TxbVideoBlowjob.ReadOnly = true -Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.TabIndex = 14 -Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob +Me.TBWebStop.Location = New System.Drawing.Point(15, 72) +Me.TBWebStop.Name = "TBWebStop" +Me.TBWebStop.Size = New System.Drawing.Size(325, 20) +Me.TBWebStop.TabIndex = 170 ' -'TxbVideoLesbian +'TBWebStart ' -Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.Name = "TxbVideoLesbian" -Me.TxbVideoLesbian.ReadOnly = true -Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.TabIndex = 10 -Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian +Me.TBWebStart.Location = New System.Drawing.Point(15, 33) +Me.TBWebStart.Name = "TBWebStart" +Me.TBWebStart.Size = New System.Drawing.Size(325, 20) +Me.TBWebStart.TabIndex = 167 ' -'TxbVideoSoftCore +'Label114 ' -Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" -Me.TxbVideoSoftCore.ReadOnly = true -Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.TabIndex = 6 -Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore +Me.Label114.AutoSize = true +Me.Label114.Location = New System.Drawing.Point(12, 17) +Me.Label114.Name = "Label114" +Me.Label114.Size = New System.Drawing.Size(54, 13) +Me.Label114.TabIndex = 168 +Me.Label114.Text = "Start URL" ' -'TxbVideoHardCore +'WebToy ' -Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.Name = "TxbVideoHardCore" -Me.TxbVideoHardCore.ReadOnly = true -Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.TabIndex = 2 -Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore +Me.WebToy.Location = New System.Drawing.Point(346, 33) +Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) +Me.WebToy.Name = "WebToy" +Me.WebToy.Size = New System.Drawing.Size(45, 59) +Me.WebToy.TabIndex = 172 ' -'CBVideoHardcore +'PictureBox9 ' -Me.CBVideoHardcore.AutoSize = true -Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore -Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcore.Name = "CBVideoHardcore" -Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcore.TabIndex = 0 -Me.CBVideoHardcore.Text = "Hardcore" -Me.CBVideoHardcore.UseVisualStyleBackColor = true +Me.PictureBox9.BackColor = System.Drawing.Color.LightGray +Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox9.Location = New System.Drawing.Point(9, 6) +Me.PictureBox9.Name = "PictureBox9" +Me.PictureBox9.Size = New System.Drawing.Size(160, 19) +Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox9.TabIndex = 166 +Me.PictureBox9.TabStop = false ' -'CBVideoSoftCore +'Label148 ' -Me.CBVideoSoftCore.AutoSize = true -Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore -Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCore.Name = "CBVideoSoftCore" -Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCore.TabIndex = 4 -Me.CBVideoSoftCore.Text = "Softcore" -Me.CBVideoSoftCore.UseVisualStyleBackColor = true +Me.Label148.BackColor = System.Drawing.Color.Transparent +Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label148.ForeColor = System.Drawing.Color.Black +Me.Label148.Location = New System.Drawing.Point(7, 6) +Me.Label148.Name = "Label148" +Me.Label148.Size = New System.Drawing.Size(692, 21) +Me.Label148.TabIndex = 48 +Me.Label148.Text = "Miscellaneous Settings" +Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBVideoLesbian +'TabPage28 ' -Me.CBVideoLesbian.AutoSize = true -Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian -Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbian.Name = "CBVideoLesbian" -Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbian.TabIndex = 8 -Me.CBVideoLesbian.Text = "Lesbian" -Me.CBVideoLesbian.UseVisualStyleBackColor = true +Me.TabPage28.BackColor = System.Drawing.Color.Silver +Me.TabPage28.Controls.Add(Me.TabControl3) +Me.TabPage28.Location = New System.Drawing.Point(4, 22) +Me.TabPage28.Name = "TabPage28" +Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage28.Size = New System.Drawing.Size(720, 448) +Me.TabPage28.TabIndex = 20 +Me.TabPage28.Text = "Debug" +' +'TabControl3 ' -'CBVideoBlowjob +Me.TabControl3.Controls.Add(Me.TabPage29) +Me.TabControl3.Controls.Add(Me.TabPage30) +Me.TabControl3.Location = New System.Drawing.Point(6, 6) +Me.TabControl3.Name = "TabControl3" +Me.TabControl3.SelectedIndex = 0 +Me.TabControl3.Size = New System.Drawing.Size(708, 437) +Me.TabControl3.TabIndex = 0 ' -Me.CBVideoBlowjob.AutoSize = true -Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob -Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjob.Name = "CBVideoBlowjob" -Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjob.TabIndex = 12 -Me.CBVideoBlowjob.Text = "Blowjob" -Me.CBVideoBlowjob.UseVisualStyleBackColor = true +'TabPage29 ' -'CBVideoFemsub +Me.TabPage29.BackColor = System.Drawing.Color.LightGray +Me.TabPage29.Controls.Add(Me.Label143) +Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) +Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) +Me.TabPage29.Controls.Add(Me.GroupBox26) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) +Me.TabPage29.Controls.Add(Me.Label145) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) +Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) +Me.TabPage29.Controls.Add(Me.Label142) +Me.TabPage29.Controls.Add(Me.Label150) +Me.TabPage29.Controls.Add(Me.Label152) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) +Me.TabPage29.Controls.Add(Me.Label147) +Me.TabPage29.Location = New System.Drawing.Point(4, 22) +Me.TabPage29.Name = "TabPage29" +Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage29.Size = New System.Drawing.Size(700, 411) +Me.TabPage29.TabIndex = 0 +Me.TabPage29.Text = "TabPage29" ' -Me.CBVideoFemsub.AutoSize = true -Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub -Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsub.Name = "CBVideoFemsub" -Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsub.TabIndex = 20 -Me.CBVideoFemsub.Text = "Femsub" -Me.CBVideoFemsub.UseVisualStyleBackColor = true +'Label143 ' -'CBVideoFemdom +Me.Label143.Location = New System.Drawing.Point(402, 46) +Me.Label143.Name = "Label143" +Me.Label143.Size = New System.Drawing.Size(67, 23) +Me.Label143.TabIndex = 15 +Me.Label143.Text = "Script Timer" +Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBVideoFemdom.AutoSize = true -Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom -Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdom.Name = "CBVideoFemdom" -Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdom.TabIndex = 16 -Me.CBVideoFemdom.Text = "Femdom" -Me.CBVideoFemdom.UseVisualStyleBackColor = true +'LBLDebugScriptTime ' -'CBGlitterFeedScripts +Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) +Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" +Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugScriptTime.TabIndex = 16 +Me.LBLDebugScriptTime.Text = "0" +Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBGlitterFeedScripts.AutoSize = true -Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent -Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts -Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) -Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) -Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" -Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) -Me.CBGlitterFeedScripts.TabIndex = 146 -Me.CBGlitterFeedScripts.Text = "Scripts" -Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false +'BTNDebugHoldEdgeTimer ' -'CBGlitterFeed +Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) +Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" +Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugHoldEdgeTimer.TabIndex = 14 +Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" +Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true ' -Me.CBGlitterFeed.AutoSize = true -Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed -Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) -Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) -Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) -Me.CBGlitterFeed.Name = "CBGlitterFeed" -Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeed.TabIndex = 145 -Me.CBGlitterFeed.Text = "On" -Me.CBGlitterFeed.UseVisualStyleBackColor = true +'GroupBox26 ' -'CBGlitterFeedOff +Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) +Me.GroupBox26.Controls.Add(Me.Button19) +Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) +Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) +Me.GroupBox26.Location = New System.Drawing.Point(6, 5) +Me.GroupBox26.Name = "GroupBox26" +Me.GroupBox26.Size = New System.Drawing.Size(346, 178) +Me.GroupBox26.TabIndex = 0 +Me.GroupBox26.TabStop = false +Me.GroupBox26.Text = "Taunt Cycle" ' -Me.CBGlitterFeedOff.AutoSize = true -Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff -Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) -Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) -Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" -Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeedOff.TabIndex = 147 -Me.CBGlitterFeedOff.TabStop = true -Me.CBGlitterFeedOff.Text = "Off" -Me.CBGlitterFeedOff.UseVisualStyleBackColor = true +'LBLCycleDebugCountdown ' -'LBLGlitterNCDomme +Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) +Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" +Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) +Me.LBLCycleDebugCountdown.TabIndex = 10 +Me.LBLCycleDebugCountdown.Text = "0" +Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White -Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor -Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" -Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNCDomme.TabIndex = 163 -Me.LBLGlitterNCDomme.Text = "Preview" -Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Button19 ' -'CBCustom2 +Me.Button19.Location = New System.Drawing.Point(191, 142) +Me.Button19.Name = "Button19" +Me.Button19.Size = New System.Drawing.Size(146, 30) +Me.Button19.TabIndex = 9 +Me.Button19.Text = "Countdown to 5 Seconds" +Me.Button19.UseVisualStyleBackColor = true ' -Me.CBCustom2.AutoSize = true -Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 -Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom2.ForeColor = System.Drawing.Color.Black -Me.CBCustom2.Location = New System.Drawing.Point(149, 121) -Me.CBCustom2.Name = "CBCustom2" -Me.CBCustom2.Size = New System.Drawing.Size(70, 17) -Me.CBCustom2.TabIndex = 161 -Me.CBCustom2.Text = "Custom 2" -Me.CBCustom2.UseVisualStyleBackColor = true +'BTNDebugTauntsClear ' -'GlitterSlider +Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) +Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" +Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) +Me.BTNDebugTauntsClear.TabIndex = 8 +Me.BTNDebugTauntsClear.Text = "Clear" +Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true ' -Me.GlitterSlider.AutoSize = false -Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider.LargeChange = 1 -Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider.Maximum = 9 -Me.GlitterSlider.Minimum = 1 -Me.GlitterSlider.Name = "GlitterSlider" -Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider.TabIndex = 160 -Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider +'TBDebugTaunts3 ' -'CBCustom1 +Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) +Me.TBDebugTaunts3.Name = "TBDebugTaunts3" +Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts3.TabIndex = 7 ' -Me.CBCustom1.AutoSize = true -Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 -Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom1.ForeColor = System.Drawing.Color.Black -Me.CBCustom1.Location = New System.Drawing.Point(149, 98) -Me.CBCustom1.Name = "CBCustom1" -Me.CBCustom1.Size = New System.Drawing.Size(70, 17) -Me.CBCustom1.TabIndex = 157 -Me.CBCustom1.Text = "Custom 1" -Me.CBCustom1.UseVisualStyleBackColor = true +'TBDebugTaunts2 ' -'CBDaily +Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) +Me.TBDebugTaunts2.Name = "TBDebugTaunts2" +Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts2.TabIndex = 6 ' -Me.CBDaily.AutoSize = true -Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily -Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBDaily.ForeColor = System.Drawing.Color.Black -Me.CBDaily.Location = New System.Drawing.Point(79, 121) -Me.CBDaily.Name = "CBDaily" -Me.CBDaily.Size = New System.Drawing.Size(49, 17) -Me.CBDaily.TabIndex = 156 -Me.CBDaily.Text = "Daily" -Me.CBDaily.UseVisualStyleBackColor = true +'TBDebugTaunts1 ' -'CBTrivia +Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) +Me.TBDebugTaunts1.Name = "TBDebugTaunts1" +Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts1.TabIndex = 5 ' -Me.CBTrivia.AutoSize = true -Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia -Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTrivia.ForeColor = System.Drawing.Color.Black -Me.CBTrivia.Location = New System.Drawing.Point(79, 98) -Me.CBTrivia.Name = "CBTrivia" -Me.CBTrivia.Size = New System.Drawing.Size(52, 17) -Me.CBTrivia.TabIndex = 155 -Me.CBTrivia.Text = "Trivia" -Me.CBTrivia.UseVisualStyleBackColor = true +'RBDebugTaunts3 +' +Me.RBDebugTaunts3.AutoSize = true +Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) +Me.RBDebugTaunts3.Name = "RBDebugTaunts3" +Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts3.TabIndex = 4 +Me.RBDebugTaunts3.Text = "3 Lines" +Me.RBDebugTaunts3.UseVisualStyleBackColor = true ' -'TBGlitterShortName +'RBDebugTaunts2 ' -Me.TBGlitterShortName.BackColor = System.Drawing.Color.White -Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black -Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) -Me.TBGlitterShortName.Name = "TBGlitterShortName" -Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) -Me.TBGlitterShortName.TabIndex = 49 -Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN -Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.RBDebugTaunts2.AutoSize = true +Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) +Me.RBDebugTaunts2.Name = "RBDebugTaunts2" +Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts2.TabIndex = 3 +Me.RBDebugTaunts2.Text = "2 Lines" +Me.RBDebugTaunts2.UseVisualStyleBackColor = true ' -'CBEgotist +'RBDebugTaunts1 ' -Me.CBEgotist.AutoSize = true -Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist -Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBEgotist.ForeColor = System.Drawing.Color.Black -Me.CBEgotist.Location = New System.Drawing.Point(9, 121) -Me.CBEgotist.Name = "CBEgotist" -Me.CBEgotist.Size = New System.Drawing.Size(58, 17) -Me.CBEgotist.TabIndex = 153 -Me.CBEgotist.Text = "Egotist" -Me.CBEgotist.UseVisualStyleBackColor = true +Me.RBDebugTaunts1.AutoSize = true +Me.RBDebugTaunts1.Checked = true +Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) +Me.RBDebugTaunts1.Name = "RBDebugTaunts1" +Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) +Me.RBDebugTaunts1.TabIndex = 2 +Me.RBDebugTaunts1.TabStop = true +Me.RBDebugTaunts1.Text = "1 Line" +Me.RBDebugTaunts1.UseVisualStyleBackColor = true ' -'CBTease +'CBDebugTauntsEndless ' -Me.CBTease.AutoSize = true -Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease -Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTease.ForeColor = System.Drawing.Color.Black -Me.CBTease.Location = New System.Drawing.Point(9, 98) -Me.CBTease.Name = "CBTease" -Me.CBTease.Size = New System.Drawing.Size(56, 17) -Me.CBTease.TabIndex = 152 -Me.CBTease.Text = "Tease" -Me.CBTease.UseVisualStyleBackColor = true +Me.CBDebugTauntsEndless.AutoSize = true +Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) +Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" +Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) +Me.CBDebugTauntsEndless.TabIndex = 1 +Me.CBDebugTauntsEndless.Text = "Endless Cycle" +Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true ' -'TbxContact1ImageDir +'CBDebugTaunts ' -Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" -Me.TbxContact1ImageDir.ReadOnly = true -Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.TabIndex = 176 -Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir +Me.CBDebugTaunts.AutoSize = true +Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) +Me.CBDebugTaunts.Name = "CBDebugTaunts" +Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) +Me.CBDebugTaunts.TabIndex = 0 +Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" +Me.CBDebugTaunts.UseVisualStyleBackColor = true ' -'LBLGlitterNC1 +'BTNDebugStrokeTauntTimer ' -Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color -Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC1.Name = "LBLGlitterNC1" -Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC1.TabIndex = 166 -Me.LBLGlitterNC1.Text = "Preview" -Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) +Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" +Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTauntTimer.TabIndex = 8 +Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" +Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true ' -'GlitterSlider1 +'LBLDebugHoldEdgeTime ' -Me.GlitterSlider1.AutoSize = false -Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider1.LargeChange = 1 -Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider1.Maximum = 9 -Me.GlitterSlider1.Minimum = 1 -Me.GlitterSlider1.Name = "GlitterSlider1" -Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider1.TabIndex = 161 -Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider +Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) +Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" +Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugHoldEdgeTime.TabIndex = 13 +Me.LBLDebugHoldEdgeTime.Text = "0" +Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitter1 +'Label145 ' -Me.CBGlitter1.AutoSize = true -Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 -Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter1.ForeColor = System.Drawing.Color.Black -Me.CBGlitter1.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter1.Name = "CBGlitter1" -Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter1.TabIndex = 151 -Me.CBGlitter1.Text = "Enable This Contact" -Me.CBGlitter1.UseVisualStyleBackColor = true +Me.Label145.Location = New System.Drawing.Point(402, 11) +Me.Label145.Name = "Label145" +Me.Label145.Size = New System.Drawing.Size(67, 23) +Me.Label145.TabIndex = 3 +Me.Label145.Text = "Tease Timer" +Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBGlitter1 +'BTNDebugStrokeTime ' -Me.TBGlitter1.BackColor = System.Drawing.Color.White -Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter1.ForeColor = System.Drawing.Color.Black -Me.TBGlitter1.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter1.Name = "TBGlitter1" -Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter1.TabIndex = 49 -Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 -Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) +Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" +Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTime.TabIndex = 2 +Me.BTNDebugStrokeTime.Text = "Set to 5" +Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true ' -'TbxContact3ImageDir +'BTNDebugEdgeTauntTimer ' -Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" -Me.TbxContact3ImageDir.ReadOnly = true -Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.TabIndex = 178 -Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir +Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) +Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" +Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugEdgeTauntTimer.TabIndex = 11 +Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" +Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true ' -'LBLGlitterNC3 +'LBLDebugTeaseTime ' -Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color -Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC3.Name = "LBLGlitterNC3" -Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC3.TabIndex = 166 -Me.LBLGlitterNC3.Text = "Preview" -Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) +Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" +Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugTeaseTime.TabIndex = 4 +Me.LBLDebugTeaseTime.Text = "0" +Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GlitterSlider3 +'LBLDebugStrokeTime ' -Me.GlitterSlider3.AutoSize = false -Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider3.LargeChange = 1 -Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider3.Maximum = 9 -Me.GlitterSlider3.Minimum = 1 -Me.GlitterSlider3.Name = "GlitterSlider3" -Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider3.TabIndex = 161 -Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider +Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) +Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" +Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTime.TabIndex = 1 +Me.LBLDebugStrokeTime.Text = "0" +Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitter3 +'LBLDebugEdgeTauntTime ' -Me.CBGlitter3.AutoSize = true -Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 -Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter3.ForeColor = System.Drawing.Color.Black -Me.CBGlitter3.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter3.Name = "CBGlitter3" -Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter3.TabIndex = 151 -Me.CBGlitter3.Text = "Enable This Contact" -Me.CBGlitter3.UseVisualStyleBackColor = true +Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) +Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" +Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugEdgeTauntTime.TabIndex = 10 +Me.LBLDebugEdgeTauntTime.Text = "0" +Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBGlitter3 +'BTNDebugTeaseTimer ' -Me.TBGlitter3.BackColor = System.Drawing.Color.White -Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter3.ForeColor = System.Drawing.Color.Black -Me.TBGlitter3.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter3.Name = "TBGlitter3" -Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter3.TabIndex = 49 -Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 -Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) +Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" +Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugTeaseTimer.TabIndex = 5 +Me.BTNDebugTeaseTimer.Text = "Set to 5" +Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true ' -'TbxContact2ImageDir +'Label142 ' -Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" -Me.TbxContact2ImageDir.ReadOnly = true -Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.TabIndex = 178 -Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir +Me.Label142.Location = New System.Drawing.Point(402, 121) +Me.Label142.Name = "Label142" +Me.Label142.Size = New System.Drawing.Size(67, 23) +Me.Label142.TabIndex = 0 +Me.Label142.Text = "Stroke Timer" +Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLGlitterNC2 +'Label150 ' -Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color -Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC2.Name = "LBLGlitterNC2" -Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC2.TabIndex = 166 -Me.LBLGlitterNC2.Text = "Preview" -Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label150.Location = New System.Drawing.Point(402, 206) +Me.Label150.Name = "Label150" +Me.Label150.Size = New System.Drawing.Size(67, 27) +Me.Label150.TabIndex = 9 +Me.Label150.Text = "Edge Taunt Timer" +Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GlitterSlider2 +'Label152 ' -Me.GlitterSlider2.AutoSize = false -Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider2.LargeChange = 1 -Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider2.Maximum = 9 -Me.GlitterSlider2.Minimum = 1 -Me.GlitterSlider2.Name = "GlitterSlider2" -Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider2.TabIndex = 161 -Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider +Me.Label152.Location = New System.Drawing.Point(402, 238) +Me.Label152.Name = "Label152" +Me.Label152.Size = New System.Drawing.Size(67, 40) +Me.Label152.TabIndex = 12 +Me.Label152.Text = "Hold Edge Timer" +Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitter2 +'LBLDebugStrokeTauntTime ' -Me.CBGlitter2.AutoSize = true -Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 -Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter2.ForeColor = System.Drawing.Color.Black -Me.CBGlitter2.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter2.Name = "CBGlitter2" -Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter2.TabIndex = 151 -Me.CBGlitter2.Text = "Enable This Contact" -Me.CBGlitter2.UseVisualStyleBackColor = true +Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) +Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" +Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTauntTime.TabIndex = 7 +Me.LBLDebugStrokeTauntTime.Text = "0" +Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBGlitter2 +'Label147 ' -Me.TBGlitter2.BackColor = System.Drawing.Color.White -Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter2.ForeColor = System.Drawing.Color.Black -Me.TBGlitter2.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter2.Name = "TBGlitter2" -Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter2.TabIndex = 49 -Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 -Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label147.Location = New System.Drawing.Point(402, 143) +Me.Label147.Name = "Label147" +Me.Label147.Size = New System.Drawing.Size(67, 29) +Me.Label147.TabIndex = 6 +Me.Label147.Text = "Stroke Taunt Timer" +Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIncludeGifs +'TabPage30 ' -Me.CBIncludeGifs.AutoSize = true -Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs -Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) -Me.CBIncludeGifs.Name = "CBIncludeGifs" -Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) -Me.CBIncludeGifs.TabIndex = 5 -Me.CBIncludeGifs.Text = "Match Game Includes Gifs " -Me.CBIncludeGifs.UseVisualStyleBackColor = true +Me.TabPage30.BackColor = System.Drawing.Color.LightGray +Me.TabPage30.Controls.Add(Me.Button33) +Me.TabPage30.Controls.Add(Me.Button24) +Me.TabPage30.Location = New System.Drawing.Point(4, 22) +Me.TabPage30.Name = "TabPage30" +Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage30.Size = New System.Drawing.Size(700, 411) +Me.TabPage30.TabIndex = 1 +Me.TabPage30.Text = "TabPage30" ' -'GN6 +'Button33 ' -Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN6.Location = New System.Drawing.Point(86, 367) -Me.GN6.Name = "GN6" -Me.GN6.Size = New System.Drawing.Size(71, 20) -Me.GN6.TabIndex = 5 -Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 -Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Button33.Location = New System.Drawing.Point(6, 35) +Me.Button33.Name = "Button33" +Me.Button33.Size = New System.Drawing.Size(75, 23) +Me.Button33.TabIndex = 1 +Me.Button33.Text = "LoadState" +Me.Button33.UseVisualStyleBackColor = true ' -'GP6 +'Button24 ' -Me.GP6.BackColor = System.Drawing.Color.Silver -Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 -Me.GP6.InitialImage = Nothing -Me.GP6.Location = New System.Drawing.Point(86, 268) -Me.GP6.Name = "GP6" -Me.GP6.Size = New System.Drawing.Size(71, 93) -Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP6.TabIndex = 17 -Me.GP6.TabStop = false +Me.Button24.Location = New System.Drawing.Point(6, 6) +Me.Button24.Name = "Button24" +Me.Button24.Size = New System.Drawing.Size(75, 23) +Me.Button24.TabIndex = 0 +Me.Button24.Text = "SaveState" +Me.Button24.UseVisualStyleBackColor = true ' -'GN2 +'TabPage5 ' -Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN2.Location = New System.Drawing.Point(86, 117) -Me.GN2.Name = "GN2" -Me.GN2.Size = New System.Drawing.Size(71, 20) -Me.GN2.TabIndex = 1 -Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 -Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.TabPage5.BackColor = System.Drawing.Color.Silver +Me.TabPage5.Controls.Add(Me.Panel5) +Me.TabPage5.Location = New System.Drawing.Point(4, 22) +Me.TabPage5.Name = "TabPage5" +Me.TabPage5.Size = New System.Drawing.Size(720, 448) +Me.TabPage5.TabIndex = 17 +Me.TabPage5.Text = "About" ' -'GP2 +'Panel5 ' -Me.GP2.BackColor = System.Drawing.Color.Silver -Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 -Me.GP2.InitialImage = Nothing -Me.GP2.Location = New System.Drawing.Point(86, 17) -Me.GP2.Name = "GP2" -Me.GP2.Size = New System.Drawing.Size(71, 94) -Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP2.TabIndex = 9 -Me.GP2.TabStop = false +Me.Panel5.BackColor = System.Drawing.Color.LightGray +Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel5.Controls.Add(Me.Label130) +Me.Panel5.Controls.Add(Me.Label123) +Me.Panel5.Controls.Add(Me.Label69) +Me.Panel5.Controls.Add(Me.Label113) +Me.Panel5.Controls.Add(Me.Label40) +Me.Panel5.Controls.Add(Me.Label35) +Me.Panel5.Controls.Add(Me.Label33) +Me.Panel5.Controls.Add(Me.Label17) +Me.Panel5.Controls.Add(Me.Label3) +Me.Panel5.Controls.Add(Me.PictureBox3) +Me.Panel5.Controls.Add(Me.Label41) +Me.Panel5.Location = New System.Drawing.Point(6, 6) +Me.Panel5.Name = "Panel5" +Me.Panel5.Size = New System.Drawing.Size(708, 437) +Me.Panel5.TabIndex = 92 ' -'GP5 +'Label130 ' -Me.GP5.BackColor = System.Drawing.Color.Silver -Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 -Me.GP5.InitialImage = Nothing -Me.GP5.Location = New System.Drawing.Point(9, 268) -Me.GP5.Name = "GP5" -Me.GP5.Size = New System.Drawing.Size(71, 93) -Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP5.TabIndex = 15 -Me.GP5.TabStop = false +Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label130.Location = New System.Drawing.Point(361, 314) +Me.Label130.Name = "Label130" +Me.Label130.Size = New System.Drawing.Size(254, 54) +Me.Label130.TabIndex = 176 +Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GN1 +'Label123 ' -Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN1.Location = New System.Drawing.Point(9, 117) -Me.GN1.Name = "GN1" -Me.GN1.Size = New System.Drawing.Size(71, 20) -Me.GN1.TabIndex = 0 -Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 -Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label123.Location = New System.Drawing.Point(81, 314) +Me.Label123.Name = "Label123" +Me.Label123.Size = New System.Drawing.Size(254, 54) +Me.Label123.TabIndex = 175 +Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" +Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GP1 +'Label69 ' -Me.GP1.BackColor = System.Drawing.Color.Silver -Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 -Me.GP1.InitialImage = Nothing -Me.GP1.Location = New System.Drawing.Point(9, 17) -Me.GP1.Name = "GP1" -Me.GP1.Size = New System.Drawing.Size(71, 94) -Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP1.TabIndex = 0 -Me.GP1.TabStop = false +Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label69.Location = New System.Drawing.Point(35, 295) +Me.Label69.Name = "Label69" +Me.Label69.Size = New System.Drawing.Size(638, 22) +Me.Label69.TabIndex = 174 +Me.Label69.Text = "Triple Alfa" +Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GN5 +'Label113 ' -Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN5.Location = New System.Drawing.Point(9, 367) -Me.GN5.Name = "GN5" -Me.GN5.Size = New System.Drawing.Size(71, 20) -Me.GN5.TabIndex = 4 -Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 -Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label113.AutoSize = true +Me.Label113.Location = New System.Drawing.Point(4, 417) +Me.Label113.Name = "Label113" +Me.Label113.Size = New System.Drawing.Size(452, 13) +Me.Label113.TabIndex = 173 +Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ + "pective owners." ' -'GN3 +'Label40 ' -Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN3.Location = New System.Drawing.Point(9, 242) -Me.GN3.Name = "GN3" -Me.GN3.Size = New System.Drawing.Size(71, 20) -Me.GN3.TabIndex = 2 -Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 -Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label40.Location = New System.Drawing.Point(35, 273) +Me.Label40.Name = "Label40" +Me.Label40.Size = New System.Drawing.Size(638, 24) +Me.Label40.TabIndex = 171 +Me.Label40.Text = "Special Thanks" +Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GP3 +'Label35 ' -Me.GP3.BackColor = System.Drawing.Color.Silver -Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 -Me.GP3.InitialImage = Nothing -Me.GP3.Location = New System.Drawing.Point(9, 143) -Me.GP3.Name = "GP3" -Me.GP3.Size = New System.Drawing.Size(71, 93) -Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP3.TabIndex = 11 -Me.GP3.TabStop = false +Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label35.Location = New System.Drawing.Point(32, 107) +Me.Label35.Name = "Label35" +Me.Label35.Size = New System.Drawing.Size(641, 77) +Me.Label35.TabIndex = 170 +Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ + "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ + "dditional files separately." +Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GP4 +'Label33 ' -Me.GP4.BackColor = System.Drawing.Color.Silver -Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 -Me.GP4.InitialImage = Nothing -Me.GP4.Location = New System.Drawing.Point(86, 143) -Me.GP4.Name = "GP4" -Me.GP4.Size = New System.Drawing.Size(71, 93) -Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP4.TabIndex = 13 -Me.GP4.TabStop = false +Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label33.Location = New System.Drawing.Point(32, 191) +Me.Label33.Name = "Label33" +Me.Label33.Size = New System.Drawing.Size(641, 77) +Me.Label33.TabIndex = 169 +Me.Label33.Text = resources.GetString("Label33.Text") +Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GN4 +'Label17 ' -Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN4.Location = New System.Drawing.Point(86, 242) -Me.GN4.Name = "GN4" -Me.GN4.Size = New System.Drawing.Size(71, 20) -Me.GN4.TabIndex = 3 -Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 -Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label17.AutoSize = true +Me.Label17.Location = New System.Drawing.Point(522, 78) +Me.Label17.Name = "Label17" +Me.Label17.Size = New System.Drawing.Size(93, 13) +Me.Label17.TabIndex = 168 +Me.Label17.Text = "Designed by 1885" ' -'CardBack +'Label3 ' -Me.CardBack.BackColor = System.Drawing.Color.Silver -Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack -Me.CardBack.InitialImage = Nothing -Me.CardBack.Location = New System.Drawing.Point(17, 28) -Me.CardBack.Name = "CardBack" -Me.CardBack.Size = New System.Drawing.Size(138, 179) -Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.CardBack.TabIndex = 18 -Me.CardBack.TabStop = false +Me.Label3.AutoSize = true +Me.Label3.Location = New System.Drawing.Point(489, 417) +Me.Label3.Name = "Label3" +Me.Label3.Size = New System.Drawing.Size(215, 13) +Me.Label3.TabIndex = 167 +Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" ' -'BN6 +'PictureBox3 ' -Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN6.Location = New System.Drawing.Point(86, 368) -Me.BN6.Name = "BN6" -Me.BN6.Size = New System.Drawing.Size(71, 20) -Me.BN6.TabIndex = 5 -Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 -Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.PictureBox3.BackColor = System.Drawing.Color.LightGray +Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big +Me.PictureBox3.Location = New System.Drawing.Point(84, 17) +Me.PictureBox3.Name = "PictureBox3" +Me.PictureBox3.Size = New System.Drawing.Size(531, 58) +Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PictureBox3.TabIndex = 166 +Me.PictureBox3.TabStop = false ' -'BN3 +'Label41 ' -Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN3.Location = New System.Drawing.Point(9, 243) -Me.BN3.Name = "BN3" -Me.BN3.Size = New System.Drawing.Size(71, 20) -Me.BN3.TabIndex = 2 -Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 -Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label41.Location = New System.Drawing.Point(35, 372) +Me.Label41.Name = "Label41" +Me.Label41.Size = New System.Drawing.Size(638, 39) +Me.Label41.TabIndex = 172 +Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ + "nity who's been supportive of my work over the years. Tease AI exists because of"& _ + " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'BP3 +'BtnRandomImageDirClear ' -Me.BP3.BackColor = System.Drawing.Color.Silver -Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 -Me.BP3.InitialImage = Nothing -Me.BP3.Location = New System.Drawing.Point(9, 144) -Me.BP3.Name = "BP3" -Me.BP3.Size = New System.Drawing.Size(71, 93) -Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP3.TabIndex = 11 -Me.BP3.TabStop = false +Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) +Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" +Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnRandomImageDirClear.TabIndex = 181 +Me.BtnRandomImageDirClear.Text = "Clear" +Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false ' -'BP6 +'GroupBox47 ' -Me.BP6.BackColor = System.Drawing.Color.Silver -Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 -Me.BP6.InitialImage = Nothing -Me.BP6.Location = New System.Drawing.Point(86, 269) -Me.BP6.Name = "BP6" -Me.BP6.Size = New System.Drawing.Size(71, 93) -Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP6.TabIndex = 17 -Me.BP6.TabStop = false +Me.GroupBox47.BackColor = System.Drawing.Color.LightGray +Me.GroupBox47.Controls.Add(Me.GroupBox41) +Me.GroupBox47.Controls.Add(Me.GroupBox40) +Me.GroupBox47.ForeColor = System.Drawing.Color.Black +Me.GroupBox47.Location = New System.Drawing.Point(806, 255) +Me.GroupBox47.Name = "GroupBox47" +Me.GroupBox47.Size = New System.Drawing.Size(310, 190) +Me.GroupBox47.TabIndex = 63 +Me.GroupBox47.TabStop = false +Me.GroupBox47.Text = "Boobs and Butts Paths" ' -'BN2 +'GroupBox41 ' -Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN2.Location = New System.Drawing.Point(86, 118) -Me.BN2.Name = "BN2" -Me.BN2.Size = New System.Drawing.Size(71, 20) -Me.BN2.TabIndex = 1 -Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 -Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.GroupBox41.Controls.Add(Me.Button34) +Me.GroupBox41.Location = New System.Drawing.Point(6, 110) +Me.GroupBox41.Name = "GroupBox41" +Me.GroupBox41.Size = New System.Drawing.Size(298, 74) +Me.GroupBox41.TabIndex = 153 +Me.GroupBox41.TabStop = false +Me.GroupBox41.Text = "Butts" ' -'BN5 +'Button34 ' -Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN5.Location = New System.Drawing.Point(9, 368) -Me.BN5.Name = "BN5" -Me.BN5.Size = New System.Drawing.Size(71, 20) -Me.BN5.TabIndex = 4 -Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 -Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Button34.BackColor = System.Drawing.Color.LightGray +Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.Button34.ForeColor = System.Drawing.Color.Black +Me.Button34.Location = New System.Drawing.Point(85, 25) +Me.Button34.Name = "Button34" +Me.Button34.Size = New System.Drawing.Size(34, 28) +Me.Button34.TabIndex = 131 +Me.Button34.Text = "1" +Me.Button34.UseVisualStyleBackColor = false ' -'BP5 +'GroupBox40 ' -Me.BP5.BackColor = System.Drawing.Color.Silver -Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 -Me.BP5.InitialImage = Nothing -Me.BP5.Location = New System.Drawing.Point(9, 269) -Me.BP5.Name = "BP5" -Me.BP5.Size = New System.Drawing.Size(71, 93) -Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP5.TabIndex = 15 -Me.BP5.TabStop = false +Me.GroupBox40.Location = New System.Drawing.Point(5, 35) +Me.GroupBox40.Name = "GroupBox40" +Me.GroupBox40.Size = New System.Drawing.Size(298, 74) +Me.GroupBox40.TabIndex = 152 +Me.GroupBox40.TabStop = false +Me.GroupBox40.Text = "Boobs" ' -'BP2 +'GroupBox44 ' -Me.BP2.BackColor = System.Drawing.Color.Silver -Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 -Me.BP2.InitialImage = Nothing -Me.BP2.Location = New System.Drawing.Point(86, 19) -Me.BP2.Name = "BP2" -Me.BP2.Size = New System.Drawing.Size(71, 93) -Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP2.TabIndex = 9 -Me.BP2.TabStop = false +Me.GroupBox44.BackColor = System.Drawing.Color.LightGray +Me.GroupBox44.Controls.Add(Me.Label100) +Me.GroupBox44.ForeColor = System.Drawing.Color.Black +Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) +Me.GroupBox44.Name = "GroupBox44" +Me.GroupBox44.Size = New System.Drawing.Size(310, 92) +Me.GroupBox44.TabIndex = 65 +Me.GroupBox44.TabStop = false +Me.GroupBox44.Text = "Description" ' -'BN1 +'Label100 ' -Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN1.Location = New System.Drawing.Point(9, 118) -Me.BN1.Name = "BN1" -Me.BN1.Size = New System.Drawing.Size(71, 20) -Me.BN1.TabIndex = 0 -Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 -Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label100.BackColor = System.Drawing.Color.Transparent +Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label100.ForeColor = System.Drawing.Color.Black +Me.Label100.Location = New System.Drawing.Point(11, 16) +Me.Label100.Name = "Label100" +Me.Label100.Size = New System.Drawing.Size(286, 73) +Me.Label100.TabIndex = 62 +Me.Label100.Text = resources.GetString("Label100.Text") +Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BN4 +'GroupBox6 ' -Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN4.Location = New System.Drawing.Point(86, 243) -Me.BN4.Name = "BN4" -Me.BN4.Size = New System.Drawing.Size(71, 20) -Me.BN4.TabIndex = 3 -Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 -Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.GroupBox6.Controls.Add(Me.Label4) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) +Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) +Me.GroupBox6.Controls.Add(Me.Label94) +Me.GroupBox6.Controls.Add(Me.LBLLastRuined) +Me.GroupBox6.Controls.Add(Me.Label65) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) +Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) +Me.GroupBox6.Controls.Add(Me.Label14) +Me.GroupBox6.Controls.Add(Me.Label13) +Me.GroupBox6.Controls.Add(Me.Label1) +Me.GroupBox6.Location = New System.Drawing.Point(27, 114) +Me.GroupBox6.Name = "GroupBox6" +Me.GroupBox6.Size = New System.Drawing.Size(283, 102) +Me.GroupBox6.TabIndex = 156 +Me.GroupBox6.TabStop = false +Me.GroupBox6.Text = "Performance" ' -'BP4 +'Label4 ' -Me.BP4.BackColor = System.Drawing.Color.Silver -Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 -Me.BP4.InitialImage = Nothing -Me.BP4.Location = New System.Drawing.Point(86, 144) -Me.BP4.Name = "BP4" -Me.BP4.Size = New System.Drawing.Size(71, 93) -Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP4.TabIndex = 13 -Me.BP4.TabStop = false +Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label4.Location = New System.Drawing.Point(26, 16) +Me.Label4.Name = "Label4" +Me.Label4.Size = New System.Drawing.Size(77, 17) +Me.Label4.TabIndex = 147 +Me.Label4.Text = "Stroking Time" +Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BP1 +'LBLAvgEdgeStroking ' -Me.BP1.BackColor = System.Drawing.Color.Silver -Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 -Me.BP1.InitialImage = Nothing -Me.BP1.Location = New System.Drawing.Point(9, 19) -Me.BP1.Name = "BP1" -Me.BP1.Size = New System.Drawing.Size(71, 93) -Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP1.TabIndex = 0 -Me.BP1.TabStop = false -Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 +Me.LBLAvgEdgeStroking.AutoSize = true +Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) +Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" +Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeStroking.TabIndex = 144 +Me.LBLAvgEdgeStroking.Text = "00:00" +Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN6 +'LBLStrokeTimeTotal ' -Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN6.Location = New System.Drawing.Point(86, 368) -Me.SN6.Name = "SN6" -Me.SN6.Size = New System.Drawing.Size(71, 20) -Me.SN6.TabIndex = 5 -Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 -Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) +Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" +Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) +Me.LBLStrokeTimeTotal.TabIndex = 148 +Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" +Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP6 +'Label94 ' -Me.SP6.BackColor = System.Drawing.Color.Silver -Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 -Me.SP6.InitialImage = Nothing -Me.SP6.Location = New System.Drawing.Point(86, 269) -Me.SP6.Name = "SP6" -Me.SP6.Size = New System.Drawing.Size(71, 93) -Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP6.TabIndex = 17 -Me.SP6.TabStop = false +Me.Label94.BackColor = System.Drawing.Color.Transparent +Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label94.ForeColor = System.Drawing.Color.Black +Me.Label94.Location = New System.Drawing.Point(189, 16) +Me.Label94.Name = "Label94" +Me.Label94.Size = New System.Drawing.Size(65, 17) +Me.Label94.TabIndex = 150 +Me.Label94.Text = "Last Ruined" +Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN2 +'LBLLastRuined ' -Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN2.Location = New System.Drawing.Point(86, 118) -Me.SN2.Name = "SN2" -Me.SN2.Size = New System.Drawing.Size(71, 20) -Me.SN2.TabIndex = 1 -Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 -Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) +Me.LBLLastRuined.Name = "LBLLastRuined" +Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) +Me.LBLLastRuined.TabIndex = 152 +Me.LBLLastRuined.Text = "04/28/2015" +Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP2 +'Label65 ' -Me.SP2.BackColor = System.Drawing.Color.Silver -Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 -Me.SP2.InitialImage = Nothing -Me.SP2.Location = New System.Drawing.Point(86, 19) -Me.SP2.Name = "SP2" -Me.SP2.Size = New System.Drawing.Size(71, 93) -Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP2.TabIndex = 9 -Me.SP2.TabStop = false +Me.Label65.BackColor = System.Drawing.Color.Transparent +Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label65.ForeColor = System.Drawing.Color.Black +Me.Label65.Location = New System.Drawing.Point(103, 16) +Me.Label65.Name = "Label65" +Me.Label65.Size = New System.Drawing.Size(85, 17) +Me.Label65.TabIndex = 149 +Me.Label65.Text = "Last Orgasm" +Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN1 +'LBLAvgEdgeNoTouch ' -Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN1.Location = New System.Drawing.Point(9, 118) -Me.SN1.Name = "SN1" -Me.SN1.Size = New System.Drawing.Size(71, 20) -Me.SN1.TabIndex = 0 -Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 -Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLAvgEdgeNoTouch.AutoSize = true +Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) +Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" +Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeNoTouch.TabIndex = 146 +Me.LBLAvgEdgeNoTouch.Text = "00:00" +Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP5 +'LBLLastOrgasm ' -Me.SP5.BackColor = System.Drawing.Color.Silver -Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 -Me.SP5.InitialImage = Nothing -Me.SP5.Location = New System.Drawing.Point(9, 269) -Me.SP5.Name = "SP5" -Me.SP5.Size = New System.Drawing.Size(71, 93) -Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP5.TabIndex = 15 -Me.SP5.TabStop = false +Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) +Me.LBLLastOrgasm.Name = "LBLLastOrgasm" +Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) +Me.LBLLastOrgasm.TabIndex = 151 +Me.LBLLastOrgasm.Text = "04/28/2015" +Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP1 +'Label14 ' -Me.SP1.BackColor = System.Drawing.Color.Silver -Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 -Me.SP1.InitialImage = Nothing -Me.SP1.Location = New System.Drawing.Point(9, 19) -Me.SP1.Name = "SP1" -Me.SP1.Size = New System.Drawing.Size(71, 93) -Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP1.TabIndex = 0 -Me.SP1.TabStop = false +Me.Label14.BackColor = System.Drawing.Color.Transparent +Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label14.ForeColor = System.Drawing.Color.Black +Me.Label14.Location = New System.Drawing.Point(25, 48) +Me.Label14.Name = "Label14" +Me.Label14.Size = New System.Drawing.Size(238, 17) +Me.Label14.TabIndex = 138 +Me.Label14.Text = "Average Time to Edge" +Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN5 +'Label13 ' -Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN5.Location = New System.Drawing.Point(9, 368) -Me.SN5.Name = "SN5" -Me.SN5.Size = New System.Drawing.Size(71, 20) -Me.SN5.TabIndex = 4 -Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 -Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label13.AutoSize = true +Me.Label13.Location = New System.Drawing.Point(177, 68) +Me.Label13.Name = "Label13" +Me.Label13.Size = New System.Drawing.Size(32, 13) +Me.Label13.TabIndex = 145 +Me.Label13.Text = "Rest:" +Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN3 +'Label1 ' -Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN3.Location = New System.Drawing.Point(9, 243) -Me.SN3.Name = "SN3" -Me.SN3.Size = New System.Drawing.Size(71, 20) -Me.SN3.TabIndex = 2 -Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 -Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label1.AutoSize = true +Me.Label1.Location = New System.Drawing.Point(28, 68) +Me.Label1.Name = "Label1" +Me.Label1.Size = New System.Drawing.Size(79, 13) +Me.Label1.TabIndex = 143 +Me.Label1.Text = "While Stroking:" +Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN4 +'GroupBox21 ' -Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN4.Location = New System.Drawing.Point(86, 243) -Me.SN4.Name = "SN4" -Me.SN4.Size = New System.Drawing.Size(71, 20) -Me.SN4.TabIndex = 3 -Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 -Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.GroupBox21.BackColor = System.Drawing.Color.LightGray +Me.GroupBox21.Controls.Add(Me.Label153) +Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) +Me.GroupBox21.Controls.Add(Me.GroupBox6) +Me.GroupBox21.Controls.Add(Me.Label156) +Me.GroupBox21.ForeColor = System.Drawing.Color.Black +Me.GroupBox21.Location = New System.Drawing.Point(797, 55) +Me.GroupBox21.Name = "GroupBox21" +Me.GroupBox21.Size = New System.Drawing.Size(316, 136) +Me.GroupBox21.TabIndex = 66 +Me.GroupBox21.TabStop = false +Me.GroupBox21.Text = "Description" ' -'SP3 +'Label153 ' -Me.SP3.BackColor = System.Drawing.Color.Silver -Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 -Me.SP3.InitialImage = Nothing -Me.SP3.Location = New System.Drawing.Point(9, 144) -Me.SP3.Name = "SP3" -Me.SP3.Size = New System.Drawing.Size(71, 93) -Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP3.TabIndex = 11 -Me.SP3.TabStop = false +Me.Label153.BackColor = System.Drawing.Color.Transparent +Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label153.ForeColor = System.Drawing.Color.Black +Me.Label153.Location = New System.Drawing.Point(78, 94) +Me.Label153.Name = "Label153" +Me.Label153.Size = New System.Drawing.Size(158, 17) +Me.Label153.TabIndex = 135 +Me.Label153.Text = "No path selected" +Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'SP4 +'LBLRangeSettingsDescription ' -Me.SP4.BackColor = System.Drawing.Color.Silver -Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 -Me.SP4.InitialImage = Nothing -Me.SP4.Location = New System.Drawing.Point(86, 144) -Me.SP4.Name = "SP4" -Me.SP4.Size = New System.Drawing.Size(71, 93) -Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP4.TabIndex = 13 -Me.SP4.TabStop = false +Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) +Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" +Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) +Me.LBLRangeSettingsDescription.TabIndex = 62 +Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLDateTimeColor2 +'Label156 ' -Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor -Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) -Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" -Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateTimeColor2.TabIndex = 19 +Me.Label156.BackColor = System.Drawing.Color.Transparent +Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label156.ForeColor = System.Drawing.Color.Black +Me.Label156.Location = New System.Drawing.Point(133, 23) +Me.Label156.Name = "Label156" +Me.Label156.Size = New System.Drawing.Size(158, 17) +Me.Label156.TabIndex = 135 +Me.Label156.Text = "No path selected" +Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLDateBackColor2 +'GroupBox12 ' -Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor -Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) -Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateBackColor2.Name = "LBLDateBackColor2" -Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateBackColor2.TabIndex = 22 +Me.GroupBox12.BackColor = System.Drawing.Color.LightGray +Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) +Me.GroupBox12.ForeColor = System.Drawing.Color.Black +Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) +Me.GroupBox12.Name = "GroupBox12" +Me.GroupBox12.Size = New System.Drawing.Size(171, 124) +Me.GroupBox12.TabIndex = 65 +Me.GroupBox12.TabStop = false +Me.GroupBox12.Text = "Description" ' -'LBLChatWindowColor2 +'LBLSubSettingsDescription ' -Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor -Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) -Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" -Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatWindowColor2.TabIndex = 12 +Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) +Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" +Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) +Me.LBLSubSettingsDescription.TabIndex = 62 +Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." ' -'LBLTextColor2 +'OpenFileDialog1 ' -Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor -Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) -Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLTextColor2.Name = "LBLTextColor2" -Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLTextColor2.TabIndex = 9 +Me.OpenFileDialog1.FileName = "OpenFileDialog1" +Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ + "s (*.*)|*.*" +Me.OpenFileDialog1.Title = "Select an image file" ' -'LBLBackColor2 +'GetColor ' -Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor -Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) -Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLBackColor2.Name = "LBLBackColor2" -Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLBackColor2.TabIndex = 3 +Me.GetColor.Color = System.Drawing.Color.SteelBlue ' -'LBLChatTextColor2 +'WebImageFileDialog ' -Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor -Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) -Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatTextColor2.Name = "LBLChatTextColor2" -Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatTextColor2.TabIndex = 16 +Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.WebImageFileDialog.Title = "Please select a URL File" ' -'LBLButtonColor2 +'OpenScriptDialog ' -Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor -Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) -Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLButtonColor2.Name = "LBLButtonColor2" -Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLButtonColor2.TabIndex = 6 +Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenScriptDialog.Title = "Please select a script" ' -'TimedWriting +'OpenSettingsDialog ' -Me.TimedWriting.AutoSize = true -Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting -Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TimedWriting.Location = New System.Drawing.Point(9, 19) -Me.TimedWriting.Name = "TimedWriting" -Me.TimedWriting.Size = New System.Drawing.Size(123, 17) -Me.TimedWriting.TabIndex = 1 -Me.TimedWriting.Text = "Timed Writing Tasks" -Me.TimedWriting.UseVisualStyleBackColor = true +Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenSettingsDialog.Title = "Please select a settings file to open" ' -'TypeSpeedSlider +'SaveSettingsDialog ' -Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) -Me.TypeSpeedSlider.Maximum = 100 -Me.TypeSpeedSlider.Minimum = 33 -Me.TypeSpeedSlider.Name = "TypeSpeedSlider" -Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) -Me.TypeSpeedSlider.TabIndex = 3 -Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed +Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" ' -'NBTaskCBTTimeMax +'GroupBox65 ' -Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) -Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" -Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMax.TabIndex = 203 -Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax +Me.GroupBox65.BackColor = System.Drawing.Color.LightGray +Me.GroupBox65.Controls.Add(Me.Label136) +Me.GroupBox65.Controls.Add(Me.Label134) +Me.GroupBox65.Controls.Add(Me.Label132) +Me.GroupBox65.Controls.Add(Me.TrackBar1) +Me.GroupBox65.Controls.Add(Me.ComboBox1) +Me.GroupBox65.Controls.Add(Me.CheckBox1) +Me.GroupBox65.Controls.Add(Me.Label135) +Me.GroupBox65.Controls.Add(Me.TrackBar2) +Me.GroupBox65.ForeColor = System.Drawing.Color.Black +Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) +Me.GroupBox65.Name = "GroupBox65" +Me.GroupBox65.Size = New System.Drawing.Size(259, 117) +Me.GroupBox65.TabIndex = 157 +Me.GroupBox65.TabStop = false +Me.GroupBox65.Text = "Text to Speech" ' -'NBTaskCBTTimeMin +'Label136 ' -Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) -Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" -Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMin.TabIndex = 202 -Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin +Me.Label136.AutoSize = true +Me.Label136.Location = New System.Drawing.Point(14, 52) +Me.Label136.Name = "Label136" +Me.Label136.Size = New System.Drawing.Size(45, 13) +Me.Label136.TabIndex = 32 +Me.Label136.Text = "Volume:" ' -'NBTaskEdgeHoldTimeMax +'Label134 ' -Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) -Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" -Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 -Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax +Me.Label134.AutoSize = true +Me.Label134.Location = New System.Drawing.Point(141, 52) +Me.Label134.Name = "Label134" +Me.Label134.Size = New System.Drawing.Size(33, 13) +Me.Label134.TabIndex = 157 +Me.Label134.Text = "Rate:" ' -'NBTaskEdgeHoldTimeMin +'Label132 ' -Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) -Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" -Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 -Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin +Me.Label132.Location = New System.Drawing.Point(202, 52) +Me.Label132.Name = "Label132" +Me.Label132.Size = New System.Drawing.Size(45, 13) +Me.Label132.TabIndex = 158 +Me.Label132.Text = "100" +Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'NBTaskEdgesMax +'TrackBar1 ' -Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) -Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" -Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMax.TabIndex = 194 -Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax +Me.TrackBar1.Location = New System.Drawing.Point(133, 68) +Me.TrackBar1.Minimum = -10 +Me.TrackBar1.Name = "TrackBar1" +Me.TrackBar1.Size = New System.Drawing.Size(120, 45) +Me.TrackBar1.TabIndex = 31 ' -'NBTaskEdgesMin +'ComboBox1 ' -Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) -Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" -Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMin.TabIndex = 193 -Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin +Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window +Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText +Me.ComboBox1.FormattingEnabled = true +Me.ComboBox1.Location = New System.Drawing.Point(71, 16) +Me.ComboBox1.Name = "ComboBox1" +Me.ComboBox1.Size = New System.Drawing.Size(178, 21) +Me.ComboBox1.TabIndex = 29 +Me.ComboBox1.TabStop = false ' -'NBTaskStrokingTimeMax +'CheckBox1 ' -Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) -Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" -Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMax.TabIndex = 189 -Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax +Me.CheckBox1.AutoSize = true +Me.CheckBox1.ForeColor = System.Drawing.Color.Black +Me.CheckBox1.Location = New System.Drawing.Point(10, 18) +Me.CheckBox1.Name = "CheckBox1" +Me.CheckBox1.Size = New System.Drawing.Size(59, 17) +Me.CheckBox1.TabIndex = 28 +Me.CheckBox1.TabStop = false +Me.CheckBox1.Text = "Enable" +Me.CheckBox1.UseVisualStyleBackColor = true ' -'NBTaskStrokingTimeMin +'Label135 ' -Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) -Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" -Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMin.TabIndex = 188 -Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin +Me.Label135.Location = New System.Drawing.Point(75, 52) +Me.Label135.Name = "Label135" +Me.Label135.Size = New System.Drawing.Size(45, 13) +Me.Label135.TabIndex = 33 +Me.Label135.Text = "100" +Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'NBTaskStrokesMax +'TrackBar2 ' -Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) -Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" -Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMax.TabIndex = 184 -Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax +Me.TrackBar2.Location = New System.Drawing.Point(6, 68) +Me.TrackBar2.Maximum = 100 +Me.TrackBar2.Name = "TrackBar2" +Me.TrackBar2.Size = New System.Drawing.Size(120, 45) +Me.TrackBar2.TabIndex = 30 +Me.TrackBar2.Value = 50 ' -'NBTaskStrokesMin +'TxbImgUrlHardcore ' -Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) -Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" -Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMin.TabIndex = 183 -Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin +Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) +Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" +Me.TxbImgUrlHardcore.ReadOnly = true +Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) +Me.TxbImgUrlHardcore.TabIndex = 145 ' -'NBCensorShowMin +'TextBox2 ' -Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) -Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMin.Name = "NBCensorShowMin" -Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMin.TabIndex = 151 -Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin +Me.TextBox2.BackColor = System.Drawing.Color.LightGray +Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill +Me.TextBox2.Location = New System.Drawing.Point(116, 34) +Me.TextBox2.Name = "TextBox2" +Me.TextBox2.ReadOnly = true +Me.TextBox2.Size = New System.Drawing.Size(189, 20) +Me.TextBox2.TabIndex = 145 ' -'NBCensorHideMax +'Label87 ' -Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) -Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMax.Name = "NBCensorHideMax" -Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMax.TabIndex = 156 -Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax +Me.Label87.AutoSize = true +Me.Label87.Location = New System.Drawing.Point(206, 254) +Me.Label87.Name = "Label87" +Me.Label87.Size = New System.Drawing.Size(38, 13) +Me.Label87.TabIndex = 183 +Me.Label87.Text = ".media" ' -'NBCensorHideMin +'TBURLFileWith ' -Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) -Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMin.Name = "NBCensorHideMin" -Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMin.TabIndex = 155 -Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin +Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) +Me.TBURLFileWith.Name = "TBURLFileWith" +Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileWith.TabIndex = 182 ' -'CBCensorConstant +'Label118 ' -Me.CBCensorConstant.AutoSize = true -Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant -Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black -Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) -Me.CBCensorConstant.Name = "CBCensorConstant" -Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) -Me.CBCensorConstant.TabIndex = 157 -Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" -Me.CBCensorConstant.UseVisualStyleBackColor = true +Me.Label118.AutoSize = true +Me.Label118.Location = New System.Drawing.Point(142, 254) +Me.Label118.Name = "Label118" +Me.Label118.Size = New System.Drawing.Size(29, 13) +Me.Label118.TabIndex = 181 +Me.Label118.Text = "With" ' -'NBCensorShowMax +'BTNURLFileReplace ' -Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) -Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMax.Name = "NBCensorShowMax" -Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMax.TabIndex = 152 -Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax +Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) +Me.BTNURLFileReplace.Name = "BTNURLFileReplace" +Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) +Me.BTNURLFileReplace.TabIndex = 184 +Me.BTNURLFileReplace.Text = "Replace" +Me.BTNURLFileReplace.UseVisualStyleBackColor = true ' 'BWURLFiles ' @@ -15207,25 +15291,48 @@ Me.GBGlitterD.ResumeLayout(false) Me.GBGlitterD.PerformLayout Me.GrbGlitterfeed.ResumeLayout(false) Me.GrbGlitterfeed.PerformLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter1.ResumeLayout(false) Me.GBGlitter1.PerformLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter3.ResumeLayout(false) Me.GBGlitter3.PerformLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter2.ResumeLayout(false) Me.GBGlitter2.PerformLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit Me.TpGames.ResumeLayout(false) Me.TpGames.PerformLayout Me.GbxCardsGold.ResumeLayout(false) Me.GbxCardsGold.PerformLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBackground.ResumeLayout(false) +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBronze.ResumeLayout(false) Me.GbxCardsBronze.PerformLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsSilver.ResumeLayout(false) Me.GbxCardsSilver.PerformLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit Me.TabPage6.ResumeLayout(false) Me.Panel10.ResumeLayout(false) Me.Panel10.PerformLayout @@ -15247,10 +15354,21 @@ Me.TabPage4.ResumeLayout(false) Me.Panel6.ResumeLayout(false) Me.GroupBox69.ResumeLayout(false) Me.GroupBox69.PerformLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox68.ResumeLayout(false) CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox67.ResumeLayout(false) +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox10.ResumeLayout(false) CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox57.ResumeLayout(false) @@ -15275,6 +15393,10 @@ CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox18.ResumeLayout(false) Me.GroupBox18.PerformLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.GBRangeOrgasmChance.ResumeLayout(false) Me.GBRangeOrgasmChance.PerformLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit @@ -15331,44 +15453,6 @@ Me.GroupBox65.ResumeLayout(false) Me.GroupBox65.PerformLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) End Sub @@ -16473,4 +16557,12 @@ End Sub Friend WithEvents LBLCurrentDomme As System.Windows.Forms.Label Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents CBOutputErrors As System.Windows.Forms.CheckBox + Friend WithEvents Label85 As System.Windows.Forms.Label + Friend WithEvents TBURLFileReplace As System.Windows.Forms.TextBox + Friend WithEvents Label53 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents BTNURLFileReplace As System.Windows.Forms.Button + Friend WithEvents Label87 As System.Windows.Forms.Label + Friend WithEvents TBURLFileWith As System.Windows.Forms.TextBox + Friend WithEvents Label118 As System.Windows.Forms.Label End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 270a674..ae43ee9 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -10378,4 +10378,115 @@ checkFolder: Private Sub CBOutputErrors_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOutputErrors.LostFocus My.Settings.CBOutputErrors = CBOutputErrors.Checked End Sub + + Private Sub BTNURLFileReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFileReplace.Click + + If TBURLFileReplace.Text = "" Or TBURLFileWith.Text = "" Then + MessageBox.Show("Please enter the text to be replaced!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Exit Sub + End If + + Dim ReplaceCount As Integer = 0 + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\URL Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + + + Dim CheckFiles As String() = File.ReadAllLines(foundFile) + + Dim GoodLines As New List(Of String) + + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + + Dim fs As New FileStream(foundFile, FileMode.Create) + Dim sw As New StreamWriter(fs) + + + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + + sw.Close() + sw.Dispose() + + fs.Close() + fs.Dispose() + + + Next + + + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\LikedImageURLs.txt") + Dim GoodLines As New List(Of String) + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + Dim fs As New FileStream(Application.StartupPath & "\Images\System\LikedImageURLs.txt", FileMode.Create) + Dim sw As New StreamWriter(fs) + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + sw.Close() + sw.Dispose() + fs.Close() + fs.Dispose() + End If + + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") + Dim GoodLines As New List(Of String) + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + Dim fs As New FileStream(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", FileMode.Create) + Dim sw As New StreamWriter(fs) + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + sw.Close() + sw.Dispose() + fs.Close() + fs.Dispose() + End If + + + + + MessageBox.Show("All URL File servers have been successfully replaced!" & Environment.NewLine & Environment.NewLine & ReplaceCount & " image locations have been changed.", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) + + + + End Sub End Class \ No newline at end of file From 268317df352a9fd45f054b9c9eae40425d77367e Mon Sep 17 00:00:00 2001 From: pepsifreak Date: Thu, 9 Mar 2017 06:58:02 -0500 Subject: [PATCH 043/143] Prevent endless loop in statuses If a unique comment cannot be found after so many tries, an error will get written instead of hanging --- Tease AI/Form1.vb | 28 +++++++++++++++++++++++----- 1 file changed, 23 insertions(+), 5 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 596f273..56cad4d 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -7324,16 +7324,16 @@ CensorConstant: If ssh.UpdateStage > 0 Then GoTo StatusUpdateBegin - ssh.StatusText = ssh.UpdateList(ssh.randomizer.Next(0, ssh.UpdateList.Count)) + Dim StatusFile = ssh.UpdateList(ssh.randomizer.Next(0, ssh.UpdateList.Count)) For i As Integer = 0 To ssh.UpdateList.Count - 1 Debug.Print(i & ". " & ssh.UpdateList(i)) Next - Debug.Print("STatusText = " & ssh.StatusText) + Debug.Print("STatusText = " & StatusFile) Debug.Print("Clear stage 1") ' Read all lines of the given File. - Dim lines As List(Of String) = Txt2List(ssh.StatusText) + Dim lines As List(Of String) = Txt2List(StatusFile) For i As Integer = lines.Count - 1 To 0 Step -1 @@ -7390,6 +7390,7 @@ CensorConstant: Debug.Print("Clear Stage 2") + Dim LoopCounter As Integer = 0 Dim StatusLines1 As New List(Of String) @@ -7429,8 +7430,15 @@ CensorConstant: Do ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) - Loop Until ssh.StatusText2 <> ssh.StatusText1 + LoopCounter += 1 + Loop Until ssh.StatusText2 <> ssh.StatusText1 Or LoopCounter = 10 + If LoopCounter = 10 Then + ssh.StatusText2 = "ERROR: Tease AI could not return a unique comment" + Dim StatusError = "Tease AI could not return a unique comment for Contact2 in file: " & StatusFile + Trace.WriteLine(StatusError) + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & StatusError & "", False) + End If Dim StatusLines3 As New List(Of String) For i As Integer = 1 To lines.Count - 1 @@ -7446,9 +7454,19 @@ CensorConstant: StatusLines3 = StatusClean(StatusLines3) + LoopCounter = 0 + Do ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) - Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 + LoopCounter += 1 + Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 Or LoopCounter = 10 + + If LoopCounter = 10 Then + ssh.StatusText3 = "ERROR: Tease AI could not return a unique comment" + Dim StatusError = "Tease AI could not return a unique comment for Contact3 in file: " & StatusFile + Trace.WriteLine(StatusError) + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & StatusError & "", False) + End If ''Debug.Print("StatusLine = " & StatusLine) From b30c65e53727686bc348d76a5b2222f2b1c7b461 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 23 Mar 2017 11:37:37 -0500 Subject: [PATCH 044/143] Edge Taunt Command Filters I thought these were implemnted already, but I guess not. Adds @HoldTaunt, @LongTaunt and @ExtremeTaunt Command Filters that are activated by using "HoldTaunts" in the @Edge() Command --- README.md | 7 +++++++ Tease AI/Classes/State.vb | 3 ++- Tease AI/Form1.vb | 31 +++++++++++++++++++++++++++---- 3 files changed, 36 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index 5c688f5..e03c60b 100644 --- a/README.md +++ b/README.md @@ -13,7 +13,14 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. +* Command Filters: + * @HoldTaunt - Will only display the line if the user is edging, will hold the edge once he reaches it and has been called by using "HoldTaunts" in the @Edge() Command. For example, @Edge(Hold, HoldTaunts). This is to allow the domme to taunt the user about the edge he's about to hold. + * @LongTaunt - Will only display the line if the user is edging, will hold a long edge once he reaches it and has been called by using "HoldTaunts" in the @Edge() Command. For example, @Edge(LongHold, HoldTaunts) + * @ExtremeTaunt - Will only display the line if the user is edging, will hold an extreme edge once he reaches it and has been called by using "HoldTaunts" in the @Edge() Command. For example, @Edge(ExtremeHold, HoldTaunts) + + * Bugfixes: + * Prevent endless loop in statuses (pepsifreak) * The System Keyword #RandomSlideshowCategory should now work as intended. * Miscellaneous: diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 0577a01..92664be 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -506,10 +506,11 @@ Public Class SessionState Public Property WorshipMode As Boolean = False Public Property WorshipTarget As String = "" + Public Property HoldTaunts As Boolean = False Public Property LongHold As Boolean = False Public Property ExtremeHold As Boolean = False - Public LongTaunts As Boolean + Public ExtremeTaunts As Boolean diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 56cad4d..0787378 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -10347,6 +10347,9 @@ TaskCleanSet: ssh.WorshipTarget = "" ssh.LongHold = False ssh.ExtremeHold = False + ssh.HoldTaunts = False + ssh.LongTaunts = False + ssh.ExtremeTaunts = False StrokeTimer.Stop() StrokeTauntTimer.Stop() StrokePace = 0 @@ -10456,8 +10459,10 @@ TaskCleanSet: ssh.EdgeHold = True ssh.ExtremeHold = True End If - If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True Then + If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True And ssh.EdgeHold = True Then If ssh.LongHold = True Then ssh.LongTaunts = True + If ssh.ExtremeHold = True Then ssh.ExtremeTaunts = True + If ssh.LongTaunts = False And ssh.ExtremeTaunts = False Then ssh.HoldTaunts = True End If End If @@ -14476,7 +14481,19 @@ VTSkip: If FilterString.Contains("@ExtremeHold") Then If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False - End If + End If + + If FilterString.Contains("@HoldTaunt") Then + If ssh.HoldTaunts = False Then Return False + End If + + If FilterString.Contains("@LongTaunt") Then + If ssh.LongTaunts = False Then Return False + End If + + If FilterString.Contains("@ExtremeTaunt") Then + If ssh.ExtremeTaunts = False Then Return False + End If If FilterString.Contains("@AssWorship") Then If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False @@ -15532,7 +15549,10 @@ NoPlaylistEndFile: ssh.WorshipMode = False ssh.WorshipTarget = "" ssh.LongHold = False - ssh.ExtremeHold = False + ssh.ExtremeHold = False + ssh.HoldTaunts = False + ssh.LongTaunts = False + ssh.ExtremeTaunts = False ssh.MiniScript = False @@ -15636,7 +15656,10 @@ NoPlaylistEndFile: 'stop ssh.LongHold = False - ssh.ExtremeHold = False + ssh.ExtremeHold = False + ssh.HoldTaunts = False + ssh.LongTaunts = False + ssh.ExtremeTaunts = False ssh.WorshipMode = False ssh.WorshipTarget = "" From ae85259c5a3861e083d9e96ec92f40c30af65a96 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 23 Mar 2017 12:01:53 -0500 Subject: [PATCH 045/143] MultipleEdges taunt timer reset The timer for edge taunts now resets after each edge during Multiple Edges --- README.md | 1 + Tease AI/Form1.vb | 2 ++ 2 files changed, 3 insertions(+) diff --git a/README.md b/README.md index e03c60b..b7d1ec1 100644 --- a/README.md +++ b/README.md @@ -25,6 +25,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Miscellaneous: * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) + * The timer for edge taunts now resets after each edge during Multiple Edges # Changelog - Patch 54.7.0 diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 0787378..05c15f7 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -20613,6 +20613,8 @@ playLoop: If ssh.MultipleEdgesTick < 1 Then + ssh.EdgeTauntInt = ssh.randomizer.Next(20, 31) + MultipleEdgesTimer.Stop() ssh.DomChat = "#SYS_MultipleEdgesStart" From 4e4c140220f3b62d1ce4b1d99bc5d40e1fa8373c Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 1 Apr 2017 10:54:18 -0500 Subject: [PATCH 046/143] Fixed @EdgeHold() Commands --- README.md | 1 + Tease AI/Classes/State.vb | 1 - Tease AI/Form1.vb | 6 +++--- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 208304c..fe0ffbd 100644 --- a/README.md +++ b/README.md @@ -22,6 +22,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Bugfixes: + * @EdgeHold() and similar Commands did not make the user hold the edge for the specified amount of time * Prevent endless loop in statuses (pepsifreak) * The System Keyword #RandomSlideshowCategory should now work as intended. diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 8ae98eb..e94c110 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -469,7 +469,6 @@ Public Class SessionState Public Property DoNotDisturb As Boolean Public Property EdgeHoldSeconds As Integer - Public EdgeHoldFlag As Boolean diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 88f2d8a..25d08b9 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -10539,7 +10539,7 @@ TaskCleanSet: End If - EdgeHoldFlag = True + ssh.EdgeHoldFlag = True ContactEdgeCheck(StringClean) Edge() @@ -10605,7 +10605,7 @@ TaskCleanSet: End If - EdgeHoldFlag = True + ssh.EdgeHoldFlag = True ContactEdgeCheck(StringClean) Edge() @@ -10674,7 +10674,7 @@ TaskCleanSet: End If - EdgeHoldFlag = True + ssh.EdgeHoldFlag = True ContactEdgeCheck(StringClean) From 05eb5fc250de98ad99acfd42ef623fe76bd93131 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 1 Apr 2017 11:42:38 -0500 Subject: [PATCH 047/143] RandomDomme Fix --- README.md | 3 ++- Tease AI/Form1.vb | 27 ++++++++++++--------------- 2 files changed, 14 insertions(+), 16 deletions(-) diff --git a/README.md b/README.md index fe0ffbd..a354af2 100644 --- a/README.md +++ b/README.md @@ -24,7 +24,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Bugfixes: * @EdgeHold() and similar Commands did not make the user hold the edge for the specified amount of time * Prevent endless loop in statuses (pepsifreak) - * The System Keyword #RandomSlideshowCategory should now work as intended. + * Refined the "Always Start With Random Domme" option + * The System Keyword #RandomSlideshowCategory should now work as intended. * Miscellaneous: * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 25d08b9..4e57167 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1661,6 +1661,7 @@ NoPlaylistStartFile: ssh.LastScriptCountdown = ssh.randomizer.Next(3, 5 * FrmSettings.domlevelNumBox.Value) If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + If FrmSettings.CBRandomDomme.Checked = True Then ssh.glitterDommeNumber = 4 LoadDommeImageFolder() End If @@ -17326,21 +17327,17 @@ saveImage: 'check which domme should be loaded If Not ssh.newSlideshow Then If ssh.glitterDommeNumber = 0 Then - If FrmSettings.CBRandomDomme.Checked = False Or ssh.SaidHello = True Then - ssh.SlideshowMain = New ContactData(ContactType.Domme) - Else - ssh.SlideshowMain = New ContactData(ContactType.Random) - End If - ElseIf ssh.glitterDommeNumber = 1 Then - ssh.SlideshowMain = New ContactData(ContactType.Contact1) - ElseIf ssh.glitterDommeNumber = 2 Then - ssh.SlideshowMain = New ContactData(ContactType.Contact2) - ElseIf ssh.glitterDommeNumber = 3 Then - ssh.SlideshowMain = New ContactData(ContactType.Contact3) - ElseIf ssh.glitterDommeNumber = 4 Then - ssh.SlideshowMain = New ContactData(ContactType.Random) - End If - End If + ssh.SlideshowMain = New ContactData(ContactType.Domme) + ElseIf ssh.glitterDommeNumber = 1 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact1) + ElseIf ssh.glitterDommeNumber = 2 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact2) + ElseIf ssh.glitterDommeNumber = 3 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact3) + ElseIf ssh.glitterDommeNumber = 4 Then + ssh.SlideshowMain = New ContactData(ContactType.Random) + End If + End If ssh.SlideshowMain.LoadNew(ssh.newSlideshow) ssh.tempDomName = ssh.SlideshowMain.TypeName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName From 525468f68cbbb517dbfc4b1d3188bf0e10c0a317 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 1 Apr 2017 12:28:50 -0500 Subject: [PATCH 048/143] Fixed image changing during multi-line Taunts --- README.md | 1 + Tease AI/Classes/State.vb | 5 ++++- Tease AI/Form1.vb | 18 ++++++++++++------ 3 files changed, 17 insertions(+), 7 deletions(-) diff --git a/README.md b/README.md index a354af2..79f2832 100644 --- a/README.md +++ b/README.md @@ -28,6 +28,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * The System Keyword #RandomSlideshowCategory should now work as intended. * Miscellaneous: + * The picture will no longer change in the middle of StrokeTaunts that are more than one line * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) * The timer for edge taunts now resets after each edge during Multiple Edges diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index e94c110..29ae7f5 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -565,7 +565,10 @@ Public Class SessionState Public Property Modes As New Dictionary(Of String, Mode)(System.StringComparer.OrdinalIgnoreCase) Public Property CountDownList As New List(Of String) - Public Property CountUpList As New List(Of String) + Public Property CountUpList As New List(Of String) + + Public Property MultiTauntPictureHold As Boolean + #Region "----------------------------------- Only for Serialization -------------------------------------" diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 4e57167..0c5fa39 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4987,12 +4987,12 @@ SkipIsTyping: If FrmSettings.teaseRadio.Checked = True And ssh.JustShowedBlogImage = False And ssh.TeaseVideo = False And Not ssh.DomTask.Contains("@NewBlogImage") And ssh.NullResponse = False _ - And ssh.SlideshowLoaded = True And Not ssh.DomTask.Contains("@ShowButtImage") And Not ssh.DomTask.Contains("@ShowBoobsImage") And Not ssh.DomTask.Contains("@ShowButtsImage") _ - And Not ssh.DomTask.Contains("@ShowBoobsImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ - And UCase(ssh.DomTask) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False Then + And ssh.SlideshowLoaded = True And Not ssh.DomTask.Contains("@ShowButtImage") And Not ssh.DomTask.Contains("@ShowBoobsImage") And Not ssh.DomTask.Contains("@ShowButtsImage") _ + And Not ssh.DomTask.Contains("@ShowBoobsImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ + And UCase(ssh.DomTask) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False And ssh.MultiTauntPictureHold = False Then If ssh.SubStroking = False Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then ' Begin Next Button - + ssh.MultiTauntPictureHold = False ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TryNextWithTease: @@ -6784,12 +6784,18 @@ Retry: ssh.TauntTextCount = TauntToUse.RandomTauntLine ssh.TempScriptCount = TauntToUse.TauntSize - 1 + ssh.MultiTauntPictureHold = False + End If Else ' ##################### Next Taunt line ####################### ssh.TauntTextCount += 1 + + If ssh.TempScriptCount > 0 Then ssh.MultiTauntPictureHold = True + ssh.TempScriptCount -= 1 + End If If ssh.TauntLines.Count > 0 Then @@ -6798,8 +6804,8 @@ Retry: ssh.DomTask = ssh.TauntLines(ssh.TauntTextCount) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Taunt from file: " & - ssh.TauntText, ex, "StrokeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from file: " & ssh.TauntText + ssh.TauntText, ex, "StrokeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from file: " & ssh.TauntText End Try From d80d04ee14cef6646bf5cb6a2b78cc2e314243bd Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 1 Apr 2017 12:59:46 -0500 Subject: [PATCH 049/143] Added CBT\Custom Task flags to StopEverything() --- README.md | 1 + Tease AI/Form1.vb | 10 +++++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index 79f2832..832fe9a 100644 --- a/README.md +++ b/README.md @@ -31,6 +31,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * The picture will no longer change in the middle of StrokeTaunts that are more than one line * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) * The timer for edge taunts now resets after each edge during Multiple Edges + * CBT\Custom Task were missing from StopEverything() sub-routine (dariobrun) # Changelog - Patch 54.7.0 diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 0c5fa39..f2ecb51 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -15564,7 +15564,15 @@ NoPlaylistEndFile: ssh.LongTaunts = False ssh.ExtremeTaunts = False - ssh.MiniScript = False + ssh.MiniScript = False + + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False ' Unlock OrgasmChances FrmSettings.LockOrgasmChances(False) From 7ebd63a5e1668b9819feeaf694dd32a898707e35 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 1 Apr 2017 17:57:20 -0500 Subject: [PATCH 050/143] @Goto() Improvements Previously, Tease AI would crash if it tried to find a Goto Label that did not exist in the current script. The two most common occurrences seemed to be when INterrupts were called while a Goto line was active, and typos in the @Goto() Command or Goto Label. Goto searches are now cleared when Interrupts, CallReturns or Miniscripts are used. Additionally, if Tease AI cannot find an exact match after parsing the entire script, it will begin checking labels for similar text found in the @Goto() Command, looking for any Labels that are 1 character off, then 2, then 3 and so on up to 5. This should help scripts flow correctly even when typos are present. If Tease AI still fails to find an exact or similar match, then the program will move on to a random Link script and begin the next cycle. This should prevent the widespread problem of crashes occurring when @Goto() can't find what it's looking for. --- README.md | 2 + Tease AI/Form1.vb | 140 ++++++++++++++++++++++++++++++++++++++++------ 2 files changed, 125 insertions(+), 17 deletions(-) diff --git a/README.md b/README.md index 832fe9a..2f4ab54 100644 --- a/README.md +++ b/README.md @@ -11,6 +11,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added Features: * Added "Change URL File Servers" function to Maintenance options in thhe Miscellaneous Settings tab. This will replace the specified "Replace" string with the specified "With" string in an URL Files, as well as Liked and Disliked Image URLs. You should only use numbers in these text fields, as Tease AI will automatically add ".media" to avoid changing file names instead of just the server. So if you enter 41 in the Replace box, and 40 in the With box, all URLS in all URL Files that start with "41.media.tumblr.com" will be replaced with "40.media.tumblr.com". After a little testing, I was able to get rid of every "Error Loading Image" error I was getting by changing 41 to 40, 67 to 68, 65 to 66 and 36 to 37. + * @Goto() Improvements: Previously, Tease AI would crash if it tried to find a Goto Label that did not exist in the current script. The two most common occurrences seemed to be when INterrupts were called while a Goto line was active, and typos in the @Goto() Command or Goto Label. Goto searches are now cleared when Interrupts, CallReturns or Miniscripts are used. Additionally, if Tease AI cannot find an exact match after parsing the entire script, it will begin checking labels for similar text found in the @Goto() Command, looking for any Labels that are 1 character off, then 2, then 3 and so on up to 5. This should help scripts flow correctly even when typos are present. If Tease AI still fails to find an exact or similar match, then the program will move on to a random Link script and begin the next cycle. This should prevent the widespread problem of crashes occurring when @Goto() can't find what it's looking for. + * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. * Added @SecondSession command to force the Orgasm/Ruin/Denial Continue interrupt scripts if the user has the option "X always ends tease" unchecked when the current session ends, thus starting a second session. diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index f2ecb51..0afef30 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4699,9 +4699,9 @@ NonModuleEnd: End Sub Public Sub GetGoto() - 'BUG: @Goto Command is sometimes searching in the wrong file. Description: https://milovana.com/forum/viewtopic.php?f=2&t=15776&p=219171#p219169 - 'If FileGoto = "" Then GoTo CancelGoto + Dim ReplaceGoto As String = "" + Dim ReplaceX As Integer = 1 ssh.GotoFlag = True @@ -4773,15 +4773,70 @@ SkipGotoSearch: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "::: Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """", False) - Throw + + Dim GotoLikeList As New List(Of String) + GotoLikeList = Txt2List(GotoText) + + ' BreakPoint + Do + + For i As Integer = 0 To GotoLikeList.Count - 1 + If GotoLikeList(i).Substring(0, 1) = "(" Then + If GetLikeValue(GotoLikeList(i), ssh.FileGoto) = ReplaceX Then + ReplaceX = 1885 + ReplaceGoto = GotoLikeList(i) + Exit For + End If + End If + Next + + ReplaceX += 1 + Application.DoEvents() + + Loop Until ReplaceX > 5 + + 'If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "::: Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """", False) + 'Throw End Try + If ReplaceGoto <> "" Then + ReplaceX = 1 + ssh.FileGoto = ReplaceGoto + ReplaceGoto = "" + GoTo SkipGotoSearch + End If + CancelGoto: ssh.GotoDommeLevel = False ssh.SkipGotoLine = False + If ReplaceX <> 1 Then + StopEverything() + ssh.CallReturns.Clear() + If ssh.LastScript = False Then + If ssh.BeforeTease = True Then + ssh.BeforeTease = False + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + End If + RunLinkScript() + Else + ChatAddSystemMessage("Error: @Goto() could not find a valid Goto Label. Since this is the final cycle, the session will now end.") + SetVariable("SYS_SubLeftEarly", 0) + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + End If + End If + End Sub Public Sub TypingDelay() @@ -11132,6 +11187,8 @@ OrgasmDecided: If EdgeList.Count > 0 Then + GotoClear() + ssh.SubEdging = False ssh.SubHoldingEdge = False EdgeTauntTimer.Stop() @@ -11176,6 +11233,8 @@ OrgasmDecided: If StrokeList.Count > 0 Then + GotoClear() + ssh.CBTCockFlag = False ssh.CBTBallsFlag = False ssh.CBTBothFlag = False @@ -11217,6 +11276,8 @@ OrgasmDecided: If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then + GotoClear() + ssh.FirstRound = False ssh.CBTCockFlag = False ssh.CBTBallsFlag = False @@ -12503,9 +12564,7 @@ VTSkip: GetSubState() ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) - ssh.GotoFlag = False - - ssh.FileGoto = "" + GotoClear() StrokeTimer.Stop() StrokeTauntTimer.Stop() @@ -12580,6 +12639,7 @@ VTSkip: Else + GotoClear() ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag ssh.StrokeTauntVal = -1 @@ -12607,9 +12667,10 @@ VTSkip: If RandomFile.Count < 1 Then MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) - ssh.StrokeTauntVal = -1 + Else + GotoClear() + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 End If End If StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") @@ -17461,12 +17522,12 @@ saveImage: If CFClean.Contains("Or[") Then CFClean = CFClean.Replace("Or[" & GetParentheses(CFClean, "Or[", 2) & "]", "") End If - For Each com As String In New List(Of String) From - {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", - "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", - "@DayOfWeek(", "@FlagOr("} - If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") - Next + For Each com As String In New List(Of String) From + {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", + "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", + "@DayOfWeek(", "@FlagOr("} + If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") + Next '=============================================================================== ' Clean all other remaining @Commands @@ -20920,8 +20981,53 @@ playLoop: Next Return SubstringCount - End Function + End Function + + Public Function GetLikeValue(ByVal s As String, ByVal t As String) As Integer + + s = s.ToLower + t = t.ToLower + + Dim n As Integer = s.Length + Dim m As Integer = t.Length + Dim d(n + 1, m + 1) As Integer + If n = 0 Then + Return m + End If + If m = 0 Then + Return n + End If + + Dim i As Integer + Dim j As Integer + + For i = 0 To n + d(i, 0) = i + Next + For j = 0 To m + d(0, j) = j + Next + For i = 1 To n + For j = 1 To m + Dim cost As Integer + If t(j - 1) = s(i - 1) Then + cost = 0 + Else + cost = 1 + End If + d(i, j) = Math.Min(Math.Min(d(i - 1, j) + 1, d(i, j - 1) + 1), d(i - 1, j - 1) + cost) + Next + Next + Return d(n, m) + End Function + + Private Sub GotoClear() + + ssh.GotoFlag = False + ssh.FileGoto = "" + + End Sub End Class From 07de31549bc55627884b053ad4fba922aa540a97 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 1 Apr 2017 19:22:30 -0500 Subject: [PATCH 051/143] Audit Scripts Comma fix Commas are no longer affected when auditing scripts --- README.md | 1 + Tease AI/Form2.vb | 21 --------------------- 2 files changed, 1 insertion(+), 21 deletions(-) diff --git a/README.md b/README.md index 2f4ab54..7ff4b3e 100644 --- a/README.md +++ b/README.md @@ -33,6 +33,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * The picture will no longer change in the middle of StrokeTaunts that are more than one line * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) * The timer for edge taunts now resets after each edge during Multiple Edges + * Commas are no longer affected when auditing scripts * CBT\Custom Task were missing from StopEverything() sub-routine (dariobrun) diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index ae43ee9..713382a 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -8945,27 +8945,6 @@ checkFolder: GoodLines(i) = GoodLines(i).Replace("[ ", "[") Loop Until Not GoodLines(i).Contains("[ ") End If - If GoodLines(i).Contains(",,") Then - ErrorAudit += 1 - Do - - GoodLines(i) = GoodLines(i).Replace(",,", ",") - Loop Until Not GoodLines(i).Contains(",,") - End If - If GoodLines(i).Contains(",]") Then - ErrorAudit += 1 - Do - - GoodLines(i) = GoodLines(i).Replace(",]", "]") - Loop Until Not GoodLines(i).Contains(",]") - End If - If GoodLines(i).Contains(" ,") Then - ErrorAudit += 1 - Do - - GoodLines(i) = GoodLines(i).Replace(" ,", ",") - Loop Until Not GoodLines(i).Contains(" ,") - End If If foundFile.Contains("Suffering") Then Debug.Print(GoodLines(i)) If GoodLines(i).Contains("@ShowBoobImage") Then From 31fe36850e9b45e5236f2811acda4a2a1fda45c6 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 1 Apr 2017 20:08:32 -0500 Subject: [PATCH 052/143] @InputVar[] - Response fix Response Files were still being parsed when @InputVar[] was active --- README.md | 1 + Tease AI/Form1.vb | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index 7ff4b3e..f1558ff 100644 --- a/README.md +++ b/README.md @@ -27,6 +27,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * @EdgeHold() and similar Commands did not make the user hold the edge for the specified amount of time * Prevent endless loop in statuses (pepsifreak) * Refined the "Always Start With Random Domme" option + * Response Files were still being parsed when @InputVar[] was active * The System Keyword #RandomSlideshowCategory should now work as intended. * Miscellaneous: diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 0afef30..690e67a 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -2557,7 +2557,7 @@ DebugAwareness: If ssh.InputFlag = True And ssh.DomTypeCheck = False Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.InputString, ssh.ChatString, False) - ssh.InputFlag = False + 'ssh.InputFlag = False End If ' Remove commas and apostrophes from user's entered text @@ -2606,6 +2606,10 @@ EdgeSkip: Debug.Print("DomResponse Called") + If ssh.InputFlag = True Then + ssh.InputFlag = False + Return + End If If ssh.EdgeNOT = True Then ssh.EdgeNOT = False From 8f06d9cf77c8cb20bfd29776de59d3ba8af95f50 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sun, 2 Apr 2017 13:28:12 -0500 Subject: [PATCH 053/143] Change Audit Scripts to ignore blank lines Blank lines are now only removed from URL Files when auditing scripts. Blank lines no longer crash the program, so there's no need to leave this function as part of Audit Scripts. When writing scripts, blank lines are helpful for creating sections and making the whole thing easier to read. --- README.md | 1 + Tease AI/Form2.vb | 10 +++++----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index f1558ff..de53412 100644 --- a/README.md +++ b/README.md @@ -35,6 +35,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) * The timer for edge taunts now resets after each edge during Multiple Edges * Commas are no longer affected when auditing scripts + * Blank lines are now only removed from URL Files when auditing scripts * CBT\Custom Task were missing from StopEverything() sub-routine (dariobrun) diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 713382a..ce7d7e1 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -8925,11 +8925,11 @@ checkFolder: Dim GoodLines As New List(Of String) For Each line As String In CheckFiles - If Not line = "" Then - GoodLines.Add(line) - Else - BlankAudit += 1 - End If + 'If Not line = "" Then + GoodLines.Add(line) + 'Else + 'BlankAudit += 1 + 'End If Next For i As Integer = 0 To GoodLines.Count - 1 From b2291f3e49ec555c38da0d9aed4c017a7546da6e Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 4 Apr 2017 23:38:38 -0500 Subject: [PATCH 054/143] First Round Give Up fix Giving up during the first round did not display [First Round] Responses --- README.md | 3 ++- Tease AI/Form1.vb | 8 ++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index de53412..cfe1e43 100644 --- a/README.md +++ b/README.md @@ -28,7 +28,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Prevent endless loop in statuses (pepsifreak) * Refined the "Always Start With Random Domme" option * Response Files were still being parsed when @InputVar[] was active - * The System Keyword #RandomSlideshowCategory should now work as intended. + * The System Keyword #RandomSlideshowCategory should now work as intended + * Giving up during the first round did not display [First Round] Responses * Miscellaneous: * The picture will no longer change in the middle of StrokeTaunts that are more than one line diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 690e67a..6f492ff 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -11117,7 +11117,7 @@ OrgasmDecided: End If ssh.SubGaveUp = True If ssh.TasksCount >= 1 Then ssh.TasksCount = 0 - ssh.FirstRound = False + 'ssh.FirstRound = False Else ' you can't give up ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" @@ -15188,7 +15188,7 @@ VTSkip: Public Sub RunModuleScript(ByVal IsEdging As Boolean) ssh.ShowModule = True - + ssh.FirstRound = False ssh.TauntEdging = False ssh.AskedToGiveUpSection = False @@ -15313,7 +15313,7 @@ NoPlaylistModuleFile: Public Sub RunLinkScript() Debug.Print("RunLinkScript() Called") - + ssh.FirstRound = False ClearModes() If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile @@ -15435,7 +15435,7 @@ NoPlaylistLinkFile: Public Sub RunLastScript() ClearModes() - + ssh.FirstRound = False 'My.Settings.Sys_SubLeftEarly = 0 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) From 3a1e225e224dd59a018316e8b7f9d49f6e5e2ddd Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 4 Apr 2017 23:58:22 -0500 Subject: [PATCH 055/143] Keyword exists but no valid lines When Tease AI parses a Vocabulary file with no valid lines, it will now highlight the Vocabularly filename in orange instead of causing a crash. This works similarly to how the program will currently highlight the Keyword in red if it does not exist at all (dariobrun) --- README.md | 1 + Tease AI/Form1.vb | 29 ++++++++++++++++++++++------- 2 files changed, 23 insertions(+), 7 deletions(-) diff --git a/README.md b/README.md index cfe1e43..336d753 100644 --- a/README.md +++ b/README.md @@ -24,6 +24,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Bugfixes: + * When Tease AI parses a Vocabulary file with no valid lines, it will now highlight the Vocabularly filename in orange instead of causing a crash. This works similarly to how the program will currently highlight the Keyword in red if it does not exist at all (dariobrun) * @EdgeHold() and similar Commands did not make the user hold the edge for the specified amount of time * Prevent endless loop in statuses (pepsifreak) * Refined the "Always Start With Random Domme" option diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 6f492ff..63f8e85 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8562,15 +8562,30 @@ StatusUpdateEnd: If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then Dim lines As List(Of String) = Txt2List(filepath) - Try - lines = FilterList(lines) + + lines = FilterList(lines) + + If lines.Count > 0 Then + Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - Catch ex As Exception - Log.WriteError("Error Processing vocabulary file: " & filepath, ex, - "Tease AI did not return a valid line while parsing vocabulary file.") - StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value - End Try + + Else + + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + + End If + + 'Try + 'lines = FilterList(lines) + 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + 'Catch ex As Exception + 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + ' "Tease AI did not return a valid line while parsing vocabulary file.") + 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value + 'End Try Else StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") From 51c4c776a1af48b11e289dbc93479928cf4dd91b Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 9 Apr 2017 17:53:00 +0200 Subject: [PATCH 056/143] First batch for the merge: -streamlined the @RT/@RandomText() and @FollowUp() code to be able the presence of ")" inside the word/phrases without messing up -contactToUse is now saved as a session variable so it will be possible to resume/reset a session in which the main domme was not the speaker without problems (before you'd wrongly get the domme as the speaker instead) -streamlined the TTS commands and the fonttype/fontcolor/fontsze to use so that they are now tied to the contact currently speaking -added new commands: @VoiceOn and @VoiceOff to turn on and off the TTS speaking in scripts -fixed a small bug in the loadrandom function (in the contactdata class) that was causing it to never be able to choose the last subfolder in the array as a possible slideshow --- Tease AI/Classes/ContactData.vb | 2 +- Tease AI/Classes/State.vb | 1 + Tease AI/Form1.vb | 2812 +++++++++++++++---------------- 3 files changed, 1400 insertions(+), 1415 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index 534450a..db77dd2 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -236,7 +236,7 @@ checkFolder: Dim currPath As String If Contact = ContactType.Random And Not newFolder Then - currPath = myDirectory.GetDirectories(baseDirectory).ElementAt(New Random().Next(0, myDirectory.GetDirectories(baseDirectory).Count - 1)) + currPath = myDirectory.GetDirectories(baseDirectory).ElementAt(New Random().Next(0, myDirectory.GetDirectories(baseDirectory).Count)) tempBaseFolder = currPath Else currPath = baseDirectory diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 29ae7f5..927b19c 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -183,6 +183,7 @@ Public Class SessionState Public Property ModuleEnd As Boolean Public Property giveUpReturn As Boolean + Public Property contactToUse As ContactData Public Property DivideText As Boolean Public Property HoldEdgeTick As Integer diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 63f8e85..ec04b95 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -30,11 +30,6 @@ Public Class Form1 Friend FormLoading As Boolean = True Dim FormFinishedLoading As Boolean = False - - 'TODO: Use a custom class to pass data between ScriptParsing methods. - - Dim ContactToUse As ContactData - Dim sshSyncLock As New Object ''' ''' Shorthand Property to access My.Application.Session @@ -451,7 +446,7 @@ retryStart: If My.Settings.CBGlitterFeedOff Then My.Settings.CBGlitterFeed = False My.Settings.CBGlitterFeedScripts = False - ElseIf My.Settings.CBGlitterFeed + ElseIf My.Settings.CBGlitterFeed Then ' No need to unset My.Settings.CBGlitterFeedOff. ' If it would be true, this branch Is unreachable My.Settings.CBGlitterFeedScripts = False @@ -466,14 +461,7 @@ retryStart: FrmSplash.LBLSplash.Text = "Loading names..." FrmSplash.Refresh() - - - If My.Settings.DomName <> "" Then - ssh.tempDomName = My.Settings.DomName - domName.Text = ssh.tempDomName - End If - If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName - + setStartName() FrmSettings.petnameBox1.Text = My.Settings.pnSetting1 FrmSettings.petnameBox2.Text = My.Settings.pnSetting2 @@ -1150,7 +1138,7 @@ retryStart: If b = MsgBoxResult.Abort Or b = MsgBoxResult.Cancel Then Process.GetCurrentProcess().Kill() - ElseIf b = MsgBoxResult.Retry + ElseIf b = MsgBoxResult.Retry Then GoTo retryStart End If @@ -1544,7 +1532,7 @@ retryStart: 'If InStr(UCase(ChatString), (UCase(FrmSettings.TBHonorific.Text))) = 0 Then 'If Not UCase(ChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" + ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) @@ -1561,7 +1549,7 @@ retryStart: If FrmSettings.CBHonorificCapitalized.Checked = True Then If WordExists(ssh.ChatString, Capitalize(FrmSettings.TBHonorific.Text)) = False Then 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat = "#SYS_CapitalizeHonorific" + ssh.DomChat = "#SYS_CapitalizeHonorific" ssh.nameErrors += 1 ssh.wrongAttempt = True TypingDelay() @@ -3473,7 +3461,7 @@ FoundState: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Response line from file: " & ssh.ResponseFile, ex, "ReponseClean(String)") - CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile + CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile End Try @@ -3599,7 +3587,7 @@ NullSkip: If ssh.CheckYes = True Or ssh.CheckNo = True Then If FrmSettings.CBHonorificInclude.Checked = True Then If Not UCase(TempChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" + ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) @@ -3675,7 +3663,7 @@ NullSkip: If ssh.CheckYes = True Or ssh.CheckNo = True Then If FrmSettings.CBHonorificInclude.Checked = True Then If Not UCase(TempChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" + ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) ssh.DomChat = ssh.DomChat.Remove(0, 1) @@ -3688,7 +3676,7 @@ NullSkip: End If If FrmSettings.CBHonorificCapitalized.Checked = True Then If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat = "#SYS_CapitalizeHonorific" + ssh.DomChat = "#SYS_CapitalizeHonorific" ssh.nameErrors += 1 ssh.wrongAttempt = True TypingDelay() @@ -3930,7 +3918,7 @@ AcceptAnswer: Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTBalls line from file: " & File2Read, ex, "CBTBalls()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read End Try ssh.CBTBallsFirst = False @@ -3958,7 +3946,7 @@ AcceptAnswer: Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTCock line from file: " & File2Read, ex, "CBTCock()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read End Try ssh.CBTCockFirst = False @@ -3999,7 +3987,7 @@ AcceptAnswer: Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBT line from file: " & File2Read, ex, "CBTBoth()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read End Try ssh.CBTBothFirst = False @@ -4023,8 +4011,8 @@ AcceptAnswer: CustomList = FilterList(CustomList) ssh.DomTask = CustomList(ssh.randomizer.Next(0, CustomList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Custom Task line from file: " & File2Read, ex, "RunCustomTask()") - ssh.DomTask = "ERROR: Tease AI did not return a valid Custom Task line from file: " & File2Read + Log.WriteError("Tease AI did not return a valid Custom Task line from file: " & File2Read, ex, "RunCustomTask()") + ssh.DomTask = "ERROR: Tease AI did not return a valid Custom Task line from file: " & File2Read End Try ssh.CustomTaskFirst = False @@ -4171,8 +4159,8 @@ ReturnCalled: 'End If ' ### Debug - If ssh.nameErrors >= 3 And ssh.foundAnswer = True And ssh.wrongAttempt = True Then - ssh.DomChat = "#SYS_HonorificPunish" + If ssh.nameErrors >= 3 And ssh.foundAnswer = True And ssh.wrongAttempt = True Then + ssh.DomChat = "#SYS_HonorificPunish" TypingDelay() If FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBallsActive = True @@ -4185,7 +4173,7 @@ ReturnCalled: ssh.StrokeTauntVal -= 1 Return End If - + ModuleEnd: If ssh.ModuleEnd = True And ssh.AvoidTheEdgeGame = False Then @@ -4776,7 +4764,7 @@ SkipGotoSearch: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") + Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") Dim GotoLikeList As New List(Of String) GotoLikeList = Txt2List(GotoText) @@ -4850,18 +4838,18 @@ CancelGoto: ssh.DomChat = OfflineConversion(ssh.DomChat) End If ssh.TypeDelay = ssh.StringLength - If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 - If ssh.TypeDelay <> 0 Then - If GetCharCount(ssh.DomChat, "@RT(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 - ssh.TypeDelay *= GetSubstringCount(ssh.DomChat, "@RT(") - End If - If GetCharCount(ssh.DomChat, "@RandomText(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 - ssh.TypeDelay *= GetSubstringCount(ssh.DomChat, "@RandomText(") - End If - End If - If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 + If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 + If ssh.TypeDelay <> 0 Then + If GetCharCount(ssh.DomChat, "@RT(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomChat, "@RT(") + End If + If GetCharCount(ssh.DomChat, "@RandomText(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomChat, "@RandomText(") + End If + End If + If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 SendTimer.Start() @@ -4873,20 +4861,20 @@ CancelGoto: ssh.DomTask = OfflineConversion(ssh.DomTask) End If ssh.TypeDelay = ssh.StringLength - If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 - If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.TypeDelay = 0 - If ssh.TypeDelay <> 0 Then - If GetCharCount(ssh.DomTask, "@RT(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + 1 - ssh.TypeDelay *= GetSubstringCount(ssh.DomTask, "@RT(") - End If - If GetCharCount(ssh.DomTask, "@RandomText(") <> 0 Then - ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + 1 - ssh.TypeDelay *= GetSubstringCount(ssh.DomTask, "@RandomText(") - End If - End If - If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 - Timer1.Start() + If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 + If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.TypeDelay = 0 + If ssh.TypeDelay <> 0 Then + If GetCharCount(ssh.DomTask, "@RT(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomTask, "@RT(") + End If + If GetCharCount(ssh.DomTask, "@RandomText(") <> 0 Then + ssh.TypeDelay /= GetCharCount(ssh.DomTask, ",") + 1 + ssh.TypeDelay *= GetSubstringCount(ssh.DomTask, "@RandomText(") + End If + End If + If ssh.TypeDelay > 60 Then ssh.TypeDelay = 60 + Timer1.Start() End Sub @@ -5078,35 +5066,35 @@ NullResponse: '################### Gather Response Data ################# 'TODO-Next: Test Code - ContactToUse = ssh.SlideshowMain + 'ssh.contactToUse = ssh.SlideshowMain - If ssh.DomTask.Contains("@Contact1") Then _ - ContactToUse = ssh.SlideshowContact1 + 'If ssh.DomTask.Contains("@Contact1") Then _ + 'ssh.contactToUse = ssh.SlideshowContact1 - If ssh.DomTask.Contains("@Contact2") Then _ - ContactToUse = ssh.SlideshowContact2 + 'If ssh.DomTask.Contains("@Contact2") Then _ + 'ssh.contactToUse = ssh.SlideshowContact2 - If ssh.DomTask.Contains("@Contact3") Then _ - ContactToUse = ssh.SlideshowContact3 + 'If ssh.DomTask.Contains("@Contact3") Then _ + 'ssh.contactToUse = ssh.SlideshowContact3 - Dim TypeName As String = ContactToUse.TypeName - Dim TypeColor As String = ContactToUse.TypeColorHtml - Dim TypeFont As String = ContactToUse.TypeFont - Dim TypeSize As String = ContactToUse.TypeSize + 'Dim TypeName As String = ssh.contactToUse.TypeName + 'Dim TypeColor As String = ssh.contactToUse.TypeColorHtml + 'Dim TypeFont As String = ssh.contactToUse.TypeFont + 'Dim TypeSize As String = ssh.contactToUse.TypeSize Dim TTSVoice As String = FrmSettings.TTSComboBox.Text - Dim TTSrate As Integer = ContactToUse.TTSrate - Dim TTSvolume As String = ContactToUse.TTSvolume + 'Dim TTSrate As Integer = ssh.contactToUse.TTSrate + 'Dim TTSvolume As String = ssh.contactToUse.TTSvolume ' Set LineSpeaker for typo corrections. Dim LineSpeaker As String = "" If ssh.dommePresent Then - If ContactToUse.Equals(ssh.SlideshowContact1) Then + If ssh.contactToUse.Equals(ssh.SlideshowContact1) Then LineSpeaker = "@Contact1 " - ElseIf ContactToUse.Equals(ssh.SlideshowContact2) Then + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact2) Then LineSpeaker = "@Contact2 " - ElseIf ContactToUse.Equals(ssh.SlideshowContact3) Then + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact3) Then LineSpeaker = "@Contact3 " End If End If @@ -5394,7 +5382,7 @@ NullResponse: If ssh.EmoMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.DomTask & "
" ssh.EmoMes = False GoTo EndSysMes End If @@ -5420,7 +5408,7 @@ NullResponse: If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" Else @@ -5431,7 +5419,7 @@ NullResponse: TextColor & """>
" & ssh.DomTask & "

" Else ssh.Chat = "" & ssh.Chat & "" & TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" End If @@ -5441,7 +5429,7 @@ NullResponse: ssh.TypeToggle = 0 If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" End If @@ -5463,42 +5451,42 @@ NoResponse: ElseIf ssh.RiskyDeal = True Then ' ######################## Risky Pick ######################### - FrmCardList.PBRiskyPic.Image = Image.FromFile(ContactToUse.NavigateNextTease) + FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.contactToUse.NavigateNextTease) ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImageSTR) Then ' ######################## Domme Tags ######################### ShowImage(ssh.DommeImageSTR, True) - ElseIf ShowPicture = True AndAlso ContactToUse IsNot Nothing Then + ElseIf ShowPicture = True AndAlso ssh.contactToUse IsNot Nothing Then ' ######################## Slideshow ########################## - ShowImage(ContactToUse.NavigateNextTease, True) + ShowImage(ssh.contactToUse.NavigateNextTease, True) - ElseIf ShowPicture = True + ElseIf ShowPicture = True Then ' #################### Domme Slideshow ######################## DommeSlideshowFallback: ShowImage(ssh.SlideshowMain.NavigateNextTease, True) End If - If ssh.DomTask <> "" AndAlso ContactToUse IsNot Nothing AndAlso ShowPicture Then + If ssh.DomTask <> "" AndAlso ssh.contactToUse IsNot Nothing AndAlso ShowPicture Then ' Apply texted Tags, after displaying an image. Dim OutputOrg As String = ssh.DomTask - ssh.DomTask = ContactToUse.ApplyTextedTags(OutputOrg) + ssh.DomTask = ssh.contactToUse.ApplyTextedTags(OutputOrg) ssh.Chat = ssh.Chat.Replace(OutputOrg, ssh.DomTask) End If - Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain + Catch ex As Exception When ssh.contactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ - ContactToUse = Nothing - Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) - ChatAddSystemMessage(ex.ToString, False) + ssh.contactToUse = Nothing + Log.WriteError("Error occurred while displaying image. Performing Fallback.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + ChatAddSystemMessage(ex.ToString, False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ - Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + Log.WriteError("Error occurred while displaying image. Fallback Failed.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -5529,8 +5517,8 @@ DommeSlideshowFallback: Dim SpeechDir As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Hypnotic Guide\TempWav.wav" - synth2.Volume = TTSvolume - synth2.Rate = TTSrate + synth2.Volume = ssh.contactToUse.TTSvolume + synth2.Rate = ssh.contactToUse.TTSrate synth2.SelectVoice(TTSVoice) synth2.SetOutputToWaveFile(SpeechDir, New SpeechAudioFormatInfo(32000, AudioBitsPerSample.Sixteen, AudioChannel.Mono)) synth2.Speak(ssh.DomTask) @@ -5934,25 +5922,25 @@ TryNextWithTease: '################### Gather Response Data ################# 'TODO-Next: Test Code - ContactToUse = ssh.SlideshowMain + 'ssh.contactToUse = ssh.SlideshowMain - If ssh.DomChat.Contains("@Contact1") Then _ - ContactToUse = ssh.SlideshowContact1 + 'If ssh.DomChat.Contains("@Contact1") Then _ + 'ssh.contactToUse = ssh.SlideshowContact1 - If ssh.DomChat.Contains("@Contact2") Then _ - ContactToUse = ssh.SlideshowContact2 + 'If ssh.DomChat.Contains("@Contact2") Then _ + 'ssh.contactToUse = ssh.SlideshowContact2 - If ssh.DomChat.Contains("@Contact3") Then _ - ContactToUse = ssh.SlideshowContact3 + 'If ssh.DomChat.Contains("@Contact3") Then _ + 'ssh.contactToUse = ssh.SlideshowContact3 - Dim TypeName As String = ContactToUse.TypeName - Dim TypeColor As String = ContactToUse.TypeColorHtml - Dim TypeFont As String = ContactToUse.TypeFont - Dim TypeSize As String = ContactToUse.TypeSize + 'Dim TypeName As String = ssh.contactToUse.TypeName + 'Dim TypeColor As String = ssh.contactToUse.TypeColorHtml + 'Dim TypeFont As String = ssh.contactToUse.TypeFont + 'Dim TypeSize As String = ssh.contactToUse.TypeSize Dim TTSVoice As String = FrmSettings.TTSComboBox.Text - Dim TTSrate As Integer = ContactToUse.TTSrate - Dim TTSvolume As String = ContactToUse.TTSvolume + 'Dim TTSrate As Integer = ssh.contactToUse.TTSrate + 'Dim TTSvolume As String = ssh.contactToUse.TTSvolume @@ -6107,7 +6095,7 @@ TryNextWithTease: If ssh.EmoMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.DomChat & "
" ssh.EmoMes = False GoTo EndSysMes End If @@ -6133,7 +6121,7 @@ TryNextWithTease: If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" Else @@ -6142,13 +6130,13 @@ TryNextWithTease: TextColor & """>
" & ssh.DomChat & "

" Else ssh.Chat = "" & ssh.Chat & "" & TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If ssh.TypeToggle = 0 If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If @@ -6167,40 +6155,40 @@ NullResponseLine2: ElseIf ssh.RiskyDeal = True Then ' ######################## Risky Pick ######################### - FrmCardList.PBRiskyPic.Image = Image.FromFile(ContactToUse.NavigateNextTease) + FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.contactToUse.NavigateNextTease) ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImageSTR) Then ' ######################## Domme Tags ######################### ShowImage(ssh.DommeImageSTR, True) - ElseIf ShowPicture = True AndAlso ContactToUse IsNot Nothing Then + ElseIf ShowPicture = True AndAlso ssh.contactToUse IsNot Nothing Then ' ################### Variable Slideshow ###################### - ShowImage(ContactToUse.NavigateNextTease, True) + ShowImage(ssh.contactToUse.NavigateNextTease, True) - ElseIf ShowPicture = True + ElseIf ShowPicture = True Then ' #################### Domme Slideshow ######################## DommeSlideshowFallback: ShowImage(ssh.SlideshowMain.NavigateNextTease, True) End If - If ssh.DomChat <> "" AndAlso ContactToUse IsNot Nothing AndAlso ShowPicture Then + If ssh.DomChat <> "" AndAlso ssh.contactToUse IsNot Nothing AndAlso ShowPicture Then ' Apply texted Tags, after displaying an image. Dim OutputOrg As String = ssh.DomChat - ssh.DomChat = ContactToUse.ApplyTextedTags(OutputOrg) + ssh.DomChat = ssh.contactToUse.ApplyTextedTags(OutputOrg) ssh.Chat = ssh.Chat.Replace(OutputOrg, ssh.DomChat) End If - Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain + Catch ex As Exception When ssh.contactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ - ContactToUse = Nothing - Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + ssh.contactToUse = Nothing + Log.WriteError("Error occurred while displaying image. Performing Fallback.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ - Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + Log.WriteError("Error occurred while displaying image. Fallback Failed.", + ex, "Display Image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -6224,8 +6212,8 @@ DommeSlideshowFallback: And TTSVoice <> "No voices installed" _ And ssh.DomChat <> "" Then ssh.DomChat = StripFormat(ssh.DomChat) - synth.Volume = TTSvolume - synth.Rate = TTSrate + synth.Volume = ssh.contactToUse.TTSvolume + synth.Rate = ssh.contactToUse.TTSrate synth.SelectVoice(TTSVoice) synth.Speak(ssh.DomChat) End If @@ -6431,7 +6419,7 @@ DommeSlideshowFallback: ImageFolderComboBox.Text = GetFolder End If - ElseIf sender Is ImageFolderComboBox And TypeOf e Is KeyEventArgs + ElseIf sender Is ImageFolderComboBox And TypeOf e Is KeyEventArgs Then '=============================================================================== ' ImageFolderComboBox - KeyPressEvent '=============================================================================== @@ -6443,7 +6431,7 @@ DommeSlideshowFallback: Else Exit Sub End If - ElseIf sender Is ImageFolderComboBox And TypeOf e Is EventArgs + ElseIf sender Is ImageFolderComboBox And TypeOf e Is EventArgs Then '=============================================================================== ' ImageFolderComboBox '=============================================================================== @@ -6579,7 +6567,7 @@ Retry: ElseIf sender Is nextButton Then ' ====================== Next Image ======================= sh.NavigateForward() - ElseIf sender Is previousButton + ElseIf sender Is previousButton Then ' ==================== Previous Image ===================== sh.NavigateBackward() Else @@ -6619,8 +6607,8 @@ Retry: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Move in slideshow Failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + Log.WriteError(ex.Message, ex, "Move in slideshow Failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) MessageBox.Show(ex.Message, "Move in Slideshow failed", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub @@ -6918,10 +6906,10 @@ Retry: End If Catch ex As Exception - ssh.DomTask = ex.Message - Log.WriteError(ex.Message, ex, "CBTScript()") - Finally - TypingDelayGeneric() + ssh.DomTask = ex.Message + Log.WriteError(ex.Message, ex, "CBTScript()") + Finally + TypingDelayGeneric() End Try End Sub @@ -7312,7 +7300,7 @@ CensorConstant: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo, ex, "CensorshipTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo + ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo End Try TypingDelayGeneric() @@ -7366,7 +7354,7 @@ CensorConstant: Catch ex As Exception Log.WriteError("Tease AI did not return a valid RLGL line from file: " & file2read, ex, "RLGLTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read + ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read End Try TypingDelayGeneric() @@ -7941,56 +7929,29 @@ StatusUpdateEnd: Public Function SysKeywordClean(ByVal StringClean As String) As String - If StringClean.Contains("@RandomText(") Then - - - - Dim RandArray As String() = StringClean.Split(")") - - For i As Integer = 0 To RandArray.Count - 1 - - If RandArray(i).Contains("@RandomText(") Then - - RandArray(i) = RandArray(i) & ")" - - Dim TempText As String = GetParentheses(RandArray(i), "@RandomText(") - Dim OriginalRand As String = TempText - TempText = TempText.Replace(",,", "###INSERT-COMMA###") - If TempText.Contains(",") Then - TempText = FixCommas(TempText) - Dim TextArray As String() = TempText.Split(",") - TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) - End If - TempText = TempText.Replace("###INSERT-COMMA###", ",") - StringClean = StringClean.Replace("@RandomText(" & OriginalRand & ")", TempText) - - End If - - Next - - End If - If StringClean.Contains("@RT(") Then - Dim RandArray As String() = StringClean.Split(")") - For i As Integer = 0 To RandArray.Count - 1 - If RandArray(i).Contains("@RT(") Then - RandArray(i) = RandArray(i) & ")" - Dim TempText As String = GetParentheses(RandArray(i), "@RT(") - Dim OriginalRand As String = TempText - TempText = TempText.Replace(",,", "###INSERT-COMMA###") - If TempText.Contains(",") Then - TempText = FixCommas(TempText) - Dim TextArray As String() = TempText.Split(",") - TempText = TextArray(ssh.randomizer.Next(0, TextArray.Count)) - End If - TempText = TempText.Replace("###INSERT-COMMA###", ",") - StringClean = StringClean.Replace("@RT(" & OriginalRand & ")", TempText) - End If + Dim replace As String() = {"@RT(", "@RandomText("} + For a = 0 To replace.Length() - 1 + Dim RandArray As String() = StringClean.Split(replace(a)) + For i As Integer = 0 To RandArray.Count - 1 + RandArray(i) = "@" & RandArray(i) + If RandArray(i).Contains(replace(a)) Then + Dim tempString = GetParentheses(RandArray(i), replace(a), RandArray(i).Split(")").Length - 1) + Dim startString = tempString + tempString = tempString.Replace(",,", "###INSERT-COMMA###") + tempString = FixCommas(tempString) + Dim selectArray As String() = tempString.Split(",") + For n As Integer = 0 To selectArray.Count - 1 + selectArray(n) = selectArray(n).Replace("###INSERT-COMMA###", ",") + Next + tempString = selectArray(ssh.randomizer.Next(0, selectArray.Count())) + StringClean = StringClean.Replace(replace(a) & startString & ")", tempString) + End If + Next Next End If - If FrmSettings.CBCockToClit.Checked = True Then StringClean = StringClean.Replace("#Cock", "#CockToClit") StringClean = StringClean.Replace("stroking", "#StrokingToRubbing") @@ -8292,28 +8253,28 @@ StatusUpdateEnd: End If - If StringClean.Contains("#RandomSlideshowCategory") Then - Dim RanCat As New List(Of String) + If StringClean.Contains("#RandomSlideshowCategory") Then + Dim RanCat As New List(Of String) - If FrmSettings.CBIHardcore.Checked = True Then RanCat.Add("Hardcore") - If FrmSettings.CBISoftcore.Checked = True Then RanCat.Add("Softcore") - If FrmSettings.CBILesbian.Checked = True Then RanCat.Add("Lesbian") - If FrmSettings.CBIBlowjob.Checked = True Then RanCat.Add("Blowjob") - If FrmSettings.CBIFemdom.Checked = True Then RanCat.Add("Femdom") - If FrmSettings.CBILezdom.Checked = True Then RanCat.Add("Lezdom") - If FrmSettings.CBIHentai.Checked = True Then RanCat.Add("Hentai") - If FrmSettings.CBIGay.Checked = True Then RanCat.Add("Gay") - If FrmSettings.CBIMaledom.Checked = True Then RanCat.Add("Maledom") - If FrmSettings.CBICaptions.Checked = True Then RanCat.Add("Captions") - If FrmSettings.CBIGeneral.Checked = True Then RanCat.Add("General") + If FrmSettings.CBIHardcore.Checked = True Then RanCat.Add("Hardcore") + If FrmSettings.CBISoftcore.Checked = True Then RanCat.Add("Softcore") + If FrmSettings.CBILesbian.Checked = True Then RanCat.Add("Lesbian") + If FrmSettings.CBIBlowjob.Checked = True Then RanCat.Add("Blowjob") + If FrmSettings.CBIFemdom.Checked = True Then RanCat.Add("Femdom") + If FrmSettings.CBILezdom.Checked = True Then RanCat.Add("Lezdom") + If FrmSettings.CBIHentai.Checked = True Then RanCat.Add("Hentai") + If FrmSettings.CBIGay.Checked = True Then RanCat.Add("Gay") + If FrmSettings.CBIMaledom.Checked = True Then RanCat.Add("Maledom") + If FrmSettings.CBICaptions.Checked = True Then RanCat.Add("Captions") + If FrmSettings.CBIGeneral.Checked = True Then RanCat.Add("General") - If RanCat.Count < 1 Then - ChatAddSystemMessage("ERROR: #RandomSlideshowCategory called but no local images have been set.") - Else - StringClean = StringClean.Replace("#RandomSlideshowCategory", RanCat(ssh.randomizer.Next(0, RanCat.Count))) - End If + If RanCat.Count < 1 Then + ChatAddSystemMessage("ERROR: #RandomSlideshowCategory called but no local images have been set.") + Else + StringClean = StringClean.Replace("#RandomSlideshowCategory", RanCat(ssh.randomizer.Next(0, RanCat.Count))) + End If - End If + End If '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -8664,9 +8625,9 @@ RinseLatherRepeat: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", - ex, "@DeleteLocalImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", + ex, "@DeleteLocalImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If StringClean = StringClean.Replace("@DeleteLocalImage", "") @@ -8683,9 +8644,9 @@ RinseLatherRepeat: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteImage was unable to delete the image.", - ex, "@DeleteImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + Log.WriteError("Command @DeleteImage was unable to delete the image.", + ex, "@DeleteImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If StringClean = StringClean.Replace("@DeleteImage", "") @@ -8705,8 +8666,8 @@ RinseLatherRepeat: If StringClean.Contains("@DommeTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") 'QND-Implemented: ContactData.GetTaggedImage - If ContactToUse IsNot Nothing Then - ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = ssh.contactToUse.GetTaggedImage(TagFlag, True) Else ssh.DommeImageSTR = "" End If @@ -8716,10 +8677,8 @@ RinseLatherRepeat: If StringClean.Contains("@NewDommeSlideshow") Then 'TODO: Add Support for contact slideshows. - - ssh.newSlideshow = True - LoadDommeImageFolder() + LoadDommeImageFolder() StringClean = StringClean.Replace("@NewDommeSlideshow", "") End If @@ -8727,8 +8686,8 @@ RinseLatherRepeat: Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage - If ContactToUse IsNot Nothing Then - ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = ssh.contactToUse.GetTaggedImage(TagFlag, True) Else ssh.DommeImageSTR = "" End If @@ -9055,9 +9014,9 @@ ShowedBlogImage: TnASlides.Start() Catch ex As Exception - Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & - ex.Message, ex, "CommandClean()") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) + Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & + ex.Message, ex, "CommandClean()") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) End Try StringClean = StringClean.Replace("@TnAFastSlides", "") @@ -9225,8 +9184,8 @@ ShowedBlogImage: GetGoto() Else Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." - Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) + Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) End If StringClean = StringClean.Replace("@GotoSlideshow", "") @@ -11157,6 +11116,7 @@ OrgasmDecided: FrmSettings.LockOrgasmChances(False) ssh.DomTask = "@SystemMessage Tease AI has been reset" ssh.DomChat = "@SystemMessage Tease AI has been reset" + setStartName() StringClean = StringClean.Replace("@EndTease", "") End If @@ -12094,34 +12054,34 @@ ExternalAudio: If StringClean.Contains("@AddTeaseTime(") Then Dim OriginalFlag As String = "" - 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun + 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun 'If TeaseTimer.Enabled = True Then - Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") - OriginalFlag = TeaseFlag - Dim TeaseSeconds As Integer + Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") + OriginalFlag = TeaseFlag + Dim TeaseSeconds As Integer + + If TeaseFlag.Contains(",") Then + TeaseFlag = FixCommas(TeaseFlag) + Dim TeaseFlagArray As String() = TeaseFlag.Split(",") + Dim Tease1 As Integer = Val(TeaseFlagArray(0)) + Dim Tease2 As Integer = Val(TeaseFlagArray(1)) + If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 + If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 + If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 + If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 + TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) + Else + TeaseSeconds = Val(TeaseFlag) + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 - If TeaseFlag.Contains(",") Then - TeaseFlag = FixCommas(TeaseFlag) - Dim TeaseFlagArray As String() = TeaseFlag.Split(",") - Dim Tease1 As Integer = Val(TeaseFlagArray(0)) - Dim Tease2 As Integer = Val(TeaseFlagArray(1)) - If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 - If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 - If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 - If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 - TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) - Else - TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 - - - End If - ssh.TeaseTick += TeaseSeconds - If ssh.LastScript Then ssh.LastScript = False - If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True - StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") + + End If + ssh.TeaseTick += TeaseSeconds + If ssh.LastScript Then ssh.LastScript = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True + StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") End If If StringClean.Contains("@RemoveTeaseTime(") Then @@ -12197,7 +12157,15 @@ ExternalAudio: StringClean = StringClean.Replace("@RTOff", "") End If - + If StringClean.Contains("@VoiceOn") Then + FrmSettings.TTSCheckBox.Checked = True + StringClean = StringClean.Replace("@VoiceOn", "") + End If + + If StringClean.Contains("@VoiceOff") Then + FrmSettings.TTSCheckBox.Checked = False + StringClean = StringClean.Replace("@VoiceOff", "") + End If If StringClean.Contains("@GlitterTease1") Then ssh.glitterDommeNumber = 1 @@ -12227,245 +12195,245 @@ ExternalAudio: ssh.glitterDommeNumber = 4 LoadDommeImageFolder() StringClean = StringClean.Replace("@RandomTease", "") - End If + End If - If StringClean.Contains("@SetDomme(") Then + If StringClean.Contains("@SetDomme(") Then - Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") - ssh.glitterDommeNumber = 0 - If DommeFlag.Contains("1") Then ssh.glitterDommeNumber = 1 - If DommeFlag.Contains("2") Then ssh.glitterDommeNumber = 2 - If DommeFlag.Contains("3") Then ssh.glitterDommeNumber = 3 - If DommeFlag.Contains("0") Or DommeFlag.ToLower.Contains("domme") Then ssh.glitterDommeNumber = 0 - If DommeFlag.Contains("4") Or DommeFlag.ToLower.Contains("random") Then ssh.glitterDommeNumber = 4 - LoadDommeImageFolder() + Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") + ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("1") Then ssh.glitterDommeNumber = 1 + If DommeFlag.Contains("2") Then ssh.glitterDommeNumber = 2 + If DommeFlag.Contains("3") Then ssh.glitterDommeNumber = 3 + If DommeFlag.Contains("0") Or DommeFlag.ToLower.Contains("domme") Then ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("4") Or DommeFlag.ToLower.Contains("random") Then ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() - StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") - End If + StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") + End If - If StringClean.Contains("@AddContact1") Then - If Not ssh.contact1Present Then - ssh.contact1Present = True - ssh.AddContactTick = 2 - Contact1Timer.Start() - End If - StringClean = StringClean.Replace("@AddContact1", "") - End If + If StringClean.Contains("@AddContact1") Then + If Not ssh.contact1Present Then + ssh.contact1Present = True + ssh.AddContactTick = 2 + Contact1Timer.Start() + End If + StringClean = StringClean.Replace("@AddContact1", "") + End If - If StringClean.Contains("@RemoveContact1") Then - If ssh.contact1Present Then - ssh.contact1Present = False - ssh.AddContactTick = 2 - Contact1Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact1", "") - End If + If StringClean.Contains("@RemoveContact1") Then + If ssh.contact1Present Then + ssh.contact1Present = False + ssh.AddContactTick = 2 + Contact1Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact1", "") + End If - If StringClean.Contains("@AddContact2") Then - If Not ssh.contact2Present Then - ssh.contact2Present = True - ssh.AddContactTick = 2 - Contact2Timer.Start() - End If - StringClean = StringClean.Replace("@AddContact2", "") - End If + If StringClean.Contains("@AddContact2") Then + If Not ssh.contact2Present Then + ssh.contact2Present = True + ssh.AddContactTick = 2 + Contact2Timer.Start() + End If + StringClean = StringClean.Replace("@AddContact2", "") + End If - If StringClean.Contains("@RemoveContact2") Then - If ssh.contact2Present Then - ssh.contact2Present = False - ssh.AddContactTick = 2 - Contact2Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact2", "") - End If + If StringClean.Contains("@RemoveContact2") Then + If ssh.contact2Present Then + ssh.contact2Present = False + ssh.AddContactTick = 2 + Contact2Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact2", "") + End If - If StringClean.Contains("@AddContact3") Then - If Not ssh.contact3Present Then - ssh.contact3Present = True - ssh.AddContactTick = 2 - Contact3Timer.Start() - End If - StringClean = StringClean.Replace("@AddContact3", "") - End If + If StringClean.Contains("@AddContact3") Then + If Not ssh.contact3Present Then + ssh.contact3Present = True + ssh.AddContactTick = 2 + Contact3Timer.Start() + End If + StringClean = StringClean.Replace("@AddContact3", "") + End If - If StringClean.Contains("@RemoveContact3") Then - If ssh.contact3Present Then - ssh.contact3Present = False - ssh.AddContactTick = 2 - Contact3Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact3", "") - End If + If StringClean.Contains("@RemoveContact3") Then + If ssh.contact3Present Then + ssh.contact3Present = False + ssh.AddContactTick = 2 + Contact3Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact3", "") + End If - If StringClean.Contains("@AddDomme") Then - If Not ssh.dommePresent Then - ssh.dommePresent = True - ssh.AddContactTick = 2 - DommeTimer.Start() - End If - StringClean = StringClean.Replace("@AddDomme", "") + If StringClean.Contains("@AddDomme") Then + If Not ssh.dommePresent Then + ssh.dommePresent = True + ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@AddDomme", "") - End If + End If - If StringClean.Contains("@RemoveDomme") Then - If ssh.dommePresent Then - ssh.dommePresent = False - ssh.AddContactTick = 2 - DommeTimer.Start() - End If - StringClean = StringClean.Replace("@RemoveDomme", "") - End If + If StringClean.Contains("@RemoveDomme") Then + If ssh.dommePresent Then + ssh.dommePresent = False + ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@RemoveDomme", "") + End If - If StringClean.Contains("@NullResponse") Then - ssh.NullResponse = True - StringClean = StringClean.Replace("@NullResponse", "") + If StringClean.Contains("@NullResponse") Then + ssh.NullResponse = True + StringClean = StringClean.Replace("@NullResponse", "") 'Debug.Print("NullResponse Called") End If VTSkip: - If StringClean.Contains("@SpeedUpCheck") Then + If StringClean.Contains("@SpeedUpCheck") Then - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" - StringClean = ResponseClean(StringClean) + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" + StringClean = ResponseClean(StringClean) - Else + Else - If StrokePace < 201 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" - StringClean = ResponseClean(StringClean) + If StrokePace < 201 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + StringClean = ResponseClean(StringClean) - Else + Else - Dim SpeedUpCheck As Integer + Dim SpeedUpCheck As Integer - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - If SpeedUpVal > SpeedUpCheck Then + If SpeedUpVal > SpeedUpCheck Then ' you can speed up ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" - Else + Else ' you can't speed up ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" - End If + End If - StringClean = ResponseClean(StringClean) + StringClean = ResponseClean(StringClean) - End If + End If - End If + End If - StringClean = StringClean.Replace("@SpeedUpCheck", "") - GoTo RinseLatherRepeat - End If + StringClean = StringClean.Replace("@SpeedUpCheck", "") + GoTo RinseLatherRepeat + End If - If StringClean.Contains("@SlowDownCheck") Then + If StringClean.Contains("@SlowDownCheck") Then - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" - StringClean = ResponseClean(StringClean) + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" + StringClean = ResponseClean(StringClean) - Else + Else - If StrokePace > 999 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" - StringClean = ResponseClean(StringClean) + If StrokePace > 999 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" + StringClean = ResponseClean(StringClean) - Else + Else - Dim SpeedUpCheck As Integer + Dim SpeedUpCheck As Integer - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - If SpeedUpVal > SpeedUpCheck Then + If SpeedUpVal > SpeedUpCheck Then ' you can speed up ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" - Else + Else ' you can't speed up ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" - End If + End If - StringClean = ResponseClean(StringClean) + StringClean = ResponseClean(StringClean) - End If + End If - End If + End If - StringClean = StringClean.Replace("@SlowDownCheck", "") - GoTo RinseLatherRepeat + StringClean = StringClean.Replace("@SlowDownCheck", "") + GoTo RinseLatherRepeat - End If + End If - If StringClean.Contains("@PlayRiskyPick") Then - ssh.RiskyDeal = True + If StringClean.Contains("@PlayRiskyPick") Then + ssh.RiskyDeal = True 'FrmCardList.RiskyRound += 1 FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - FrmCardList.InitializeRiskyDeal() - StringClean = StringClean.Replace("@PlayRiskyPick", "") + FrmCardList.Show() + FrmCardList.Focus() + FrmCardList.InitializeRiskyDeal() + StringClean = StringClean.Replace("@PlayRiskyPick", "") 'Debug.Print("NullResponse Called") End If - If StringClean.Contains("@ChooseRiskyPick") Then - ssh.RiskyDelay = True - If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True - If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True - If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True - If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True - If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True - If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True - If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True - If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True - If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True - If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True - - If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True - If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True - If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True - If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True - If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True - If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True - If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True - If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True - If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True - If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True - - If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True - If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True - If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True - If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True - - FrmCardList.RiskyChoiceCount = 0 - FrmCardList.RiskyRound += 1 - FrmCardList.RiskyPickCount = 0 - FrmCardList.RiskyChoices.Clear() - FrmCardList.ClearCaseLabelsOffer() + If StringClean.Contains("@ChooseRiskyPick") Then + ssh.RiskyDelay = True + If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True + If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True + If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True + If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True + If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True + If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True + If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True + If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True + If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True + If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True + + If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True + If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True + If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True + If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True + If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True + If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True + If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True + If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True + If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True + If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True + + If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True + If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True + If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True + If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True + + FrmCardList.RiskyChoiceCount = 0 + FrmCardList.RiskyRound += 1 + FrmCardList.RiskyPickCount = 0 + FrmCardList.RiskyChoices.Clear() + FrmCardList.ClearCaseLabelsOffer() 'FrmCardList.Show() 'FrmCardList.TCGames.SelectTab(4) 'FrmCardList.Focus() @@ -12475,74 +12443,74 @@ VTSkip: End If - If StringClean.Contains("@CheckRiskyPick") Then + If StringClean.Contains("@CheckRiskyPick") Then 'FrmCardList.Focus() FrmCardList.CheckRiskyPick() - StringClean = StringClean.Replace("@CheckRiskyPick", "") + StringClean = StringClean.Replace("@CheckRiskyPick", "") 'Debug.Print("NullResponse Called") End If - If StringClean.Contains("@FinalRiskyPick") Then + If StringClean.Contains("@FinalRiskyPick") Then 'FrmCardList.Focus() FrmCardList.BTNRiskIt.Text = "LAST CASE" - FrmCardList.BTNPickIt.Text = "MY CASE" - StringClean = StringClean.Replace("@FinalRiskyPick", "") + FrmCardList.BTNPickIt.Text = "MY CASE" + StringClean = StringClean.Replace("@FinalRiskyPick", "") 'Debug.Print("NullResponse Called") End If - If StringClean.Contains("@ClearRiskyLabels") Then + If StringClean.Contains("@ClearRiskyLabels") Then 'FrmCardList.Focus() FrmCardList.ClearCaseLabelsOffer() - StringClean = StringClean.Replace("@ClearRiskyLabels", "") + StringClean = StringClean.Replace("@ClearRiskyLabels", "") 'Debug.Print("NullResponse Called") End If - If StringClean.Contains("@RiskyPayout") Then - If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then - FrmCardList.GameWMP.settings.setMode("loop", False) - FrmCardList.GameWMP.settings.volume = 20 - FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" - End If - ssh.BronzeTokens += FrmCardList.TokensPaid - FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) - StringClean = StringClean.Replace("@RiskyPayout", "") - End If + If StringClean.Contains("@RiskyPayout") Then + If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then + FrmCardList.GameWMP.settings.setMode("loop", False) + FrmCardList.GameWMP.settings.volume = 20 + FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" + End If + ssh.BronzeTokens += FrmCardList.TokensPaid + FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) + StringClean = StringClean.Replace("@RiskyPayout", "") + End If - If StringClean.Contains("@CloseRiskyPick") Then - FrmCardList.CloseRiskyPick() - StringClean = StringClean.Replace("@CloseRiskyPick", "") - End If + If StringClean.Contains("@CloseRiskyPick") Then + FrmCardList.CloseRiskyPick() + StringClean = StringClean.Replace("@CloseRiskyPick", "") + End If - If StringClean.Contains("@RevealLastCase") Then - FrmCardList.RevealLastCase() - StringClean = StringClean.Replace("@RevealLastCase", "") - End If + If StringClean.Contains("@RevealLastCase") Then + FrmCardList.RevealLastCase() + StringClean = StringClean.Replace("@RevealLastCase", "") + End If - If StringClean.Contains("@RevealUserCase") Then - FrmCardList.RevealUserCase() - StringClean = StringClean.Replace("@RevealUserCase", "") - End If + If StringClean.Contains("@RevealUserCase") Then + FrmCardList.RevealUserCase() + StringClean = StringClean.Replace("@RevealUserCase", "") + End If - If StringClean.Contains("@RiskyState") Then - If FrmCardList.RiskyState = True Then - ssh.FileGoto = "(Risky Game)" - Else - ssh.FileGoto = "(Risky Tease)" - End If - FrmCardList.RiskyState = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@RiskyState", "") - End If + If StringClean.Contains("@RiskyState") Then + If FrmCardList.RiskyState = True Then + ssh.FileGoto = "(Risky Game)" + Else + ssh.FileGoto = "(Risky Tease)" + End If + FrmCardList.RiskyState = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@RiskyState", "") + End If - If StringClean.Contains("@SystemMessage ") Then - StringClean = StringClean.Replace("@SystemMessage ", "") - End If + If StringClean.Contains("@SystemMessage ") Then + StringClean = StringClean.Replace("@SystemMessage ", "") + End If - If StringClean.Contains("@EmoteMessage ") Then - StringClean = StringClean.Replace("@EmoteMessage ", "") - End If + If StringClean.Contains("@EmoteMessage ") Then + StringClean = StringClean.Replace("@EmoteMessage ", "") + End If @@ -12551,16 +12519,16 @@ VTSkip: - If StringClean.Contains("@MiniScript(") Then + If StringClean.Contains("@MiniScript(") Then - Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") - Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & Mini2CR) Then - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "@CallReturn(" & Mini2CR & ")") - Else - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & Mini2CR) Then + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "@CallReturn(" & Mini2CR & ")") + Else + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + End If ' With @CallReturn() now tentatively in complete working order, @MiniScript() is being converted to @CallReturn() here in code - 1885 @@ -12578,122 +12546,122 @@ VTSkip: - If StringClean.Contains("@CallReturn(") Then + If StringClean.Contains("@CallReturn(") Then - GetSubState() - ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) + GetSubState() + ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) GotoClear() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.CBTBallsActive = False - ssh.CBTBallsFlag = False - ssh.CBTCockActive = False - ssh.CBTCockFlag = False - ssh.CBTBothActive = False - ssh.CBTBothFlag = False - ssh.CustomTaskActive = False - - If Not ssh.SubGaveUp Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - End If + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False + + If Not ssh.SubGaveUp Then + ssh.SubEdging = False + ssh.SubHoldingEdge = False + End If 'StopEverything() Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag + Dim CallReplace As String = CheckFlag - If CheckFlag.Contains(",") Then + If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + CheckFlag = FixCommas(CheckFlag) - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - Else + Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - End If - ssh.ScriptTick = 2 - ScriptTimer.Start() + End If + ssh.ScriptTick = 2 + ScriptTimer.Start() - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - End If + End If - If StringClean.Contains("@Call(") Then + If StringClean.Contains("@Call(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") - Dim CallReplace As String = CheckFlag + Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") + Dim CallReplace As String = CheckFlag - If CheckFlag.Contains(",") Then + If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + CheckFlag = FixCommas(CheckFlag) - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - Else + Else GotoClear() - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - End If + End If - StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") + StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") - End If + End If - If StringClean.Contains("@CallRandom(") Then + If StringClean.Contains("@CallRandom(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") - Dim CallReplace As String = CheckFlag + Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") + Dim CallReplace As String = CheckFlag - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else GotoClear() ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) ssh.StrokeTauntVal = -1 - End If - End If - StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") - End If + End If + End If + StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") + End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code @@ -12701,199 +12669,199 @@ VTSkip: '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ If StringClean.Contains("@RandomLink") Then - RunLinkScript() - StringClean = StringClean.Replace("@RandomLink", "") - End If + RunLinkScript() + StringClean = StringClean.Replace("@RandomLink", "") + End If - If StringClean.Contains("@RandomModule") Then - If ssh.SubEdging Or ssh.SubHoldingEdge Then - RunModuleScript(True) - Else - RunModuleScript(False) - End If - StringClean = StringClean.Replace("@RandomModule", "") - End If + If StringClean.Contains("@RandomModule") Then + If ssh.SubEdging Or ssh.SubHoldingEdge Then + RunModuleScript(True) + Else + RunModuleScript(False) + End If + StringClean = StringClean.Replace("@RandomModule", "") + End If - If StringClean.Contains("@RapidCodeOn") Then - ssh.RapidCode = True - StringClean = StringClean.Replace("@RapidCodeOn", "") - End If + If StringClean.Contains("@RapidCodeOn") Then + ssh.RapidCode = True + StringClean = StringClean.Replace("@RapidCodeOn", "") + End If - If StringClean.Contains("@RapidCodeOff") Then - ssh.RapidCode = False - StringClean = StringClean.Replace("@RapidCodeOff", "") - End If + If StringClean.Contains("@RapidCodeOff") Then + ssh.RapidCode = False + StringClean = StringClean.Replace("@RapidCodeOff", "") + End If - If StringClean.Contains("@InterruptsOff") Then - ssh.DoNotDisturb = True - StringClean = StringClean.Replace("@InterruptsOff", "") - End If + If StringClean.Contains("@InterruptsOff") Then + ssh.DoNotDisturb = True + StringClean = StringClean.Replace("@InterruptsOff", "") + End If - If StringClean.Contains("@InterruptsOn") Then - ssh.DoNotDisturb = False - StringClean = StringClean.Replace("@InterruptsOn", "") - End If + If StringClean.Contains("@InterruptsOn") Then + ssh.DoNotDisturb = False + StringClean = StringClean.Replace("@InterruptsOn", "") + End If - If StringClean.Contains("@NoTypo") Then - ssh.TypoSwitch = 0 - StringClean = StringClean.Replace("@NoTypo", "") - End If + If StringClean.Contains("@NoTypo") Then + ssh.TypoSwitch = 0 + StringClean = StringClean.Replace("@NoTypo", "") + End If - If StringClean.Contains("@ForceTypo") Then - ssh.TypoSwitch = 2 - StringClean = StringClean.Replace("@ForceTypo", "") - End If + If StringClean.Contains("@ForceTypo") Then + ssh.TypoSwitch = 2 + StringClean = StringClean.Replace("@ForceTypo", "") + End If - If StringClean.Contains("@TyposOff") Then - ssh.TyposDisabled = True - StringClean = StringClean.Replace("@TyposOff", "") - End If + If StringClean.Contains("@TyposOff") Then + ssh.TyposDisabled = True + StringClean = StringClean.Replace("@TyposOff", "") + End If - If StringClean.Contains("@TyposOn") Then - ssh.TyposDisabled = False - StringClean = StringClean.Replace("@TyposOn", "") - End If + If StringClean.Contains("@TyposOn") Then + ssh.TyposDisabled = False + StringClean = StringClean.Replace("@TyposOn", "") + End If - If StringClean.Contains("@GoodMood(") Then + If StringClean.Contains("@GoodMood(") Then - Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") + Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") - End If + StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@BadMood(") Then + If StringClean.Contains("@BadMood(") Then - Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") + Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") - End If + StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@NeutralMood(") Then + If StringClean.Contains("@NeutralMood(") Then - Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") + Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") - If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") - End If + StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@MoodUp") Then - ssh.DommeMood += 1 - If ssh.DommeMood > 10 Then ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodUp", "") - End If + If StringClean.Contains("@MoodUp") Then + ssh.DommeMood += 1 + If ssh.DommeMood > 10 Then ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodUp", "") + End If - If StringClean.Contains("@MoodDown") Then - ssh.DommeMood -= 1 - If ssh.DommeMood < 1 Then ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodDown", "") - End If + If StringClean.Contains("@MoodDown") Then + ssh.DommeMood -= 1 + If ssh.DommeMood < 1 Then ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodDown", "") + End If - If StringClean.Contains("@MoodBest") Then - ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodBest", "") - End If + If StringClean.Contains("@MoodBest") Then + ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodBest", "") + End If - If StringClean.Contains("@MoodWorst") Then - ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodWorst", "") - End If + If StringClean.Contains("@MoodWorst") Then + ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodWorst", "") + End If - If StringClean.Contains("@Timeout(") Then + If StringClean.Contains("@Timeout(") Then - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") - Dim OriginalFlag As String = TimeFlag + Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") + Dim OriginalFlag As String = TimeFlag - TimeFlag = FixCommas(TimeFlag) + TimeFlag = FixCommas(TimeFlag) - Dim TimeArray As String() = TimeFlag.Split(",") + Dim TimeArray As String() = TimeFlag.Split(",") - ssh.FileGoto = TimeArray(1) - ssh.TimeoutTick = Val(TimeArray(0)) - TimeoutTimer.Start() + ssh.FileGoto = TimeArray(1) + ssh.TimeoutTick = Val(TimeArray(0)) + TimeoutTimer.Start() - StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") - End If + StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@BallTorture+1") Then - ssh.CBTBallsCount += 1 - StringClean = StringClean.Replace("@BallTorture+1", "") - End If + If StringClean.Contains("@BallTorture+1") Then + ssh.CBTBallsCount += 1 + StringClean = StringClean.Replace("@BallTorture+1", "") + End If - If StringClean.Contains("@CockTorture+1") Then - ssh.CBTCockCount += 1 - StringClean = StringClean.Replace("@CockTorture+1", "") - End If + If StringClean.Contains("@CockTorture+1") Then + ssh.CBTCockCount += 1 + StringClean = StringClean.Replace("@CockTorture+1", "") + End If - If StringClean.Contains("@EndTaunts") Then - ssh.StrokeTick = 0 - StringClean = StringClean.Replace("@EndTaunts", "") - End If + If StringClean.Contains("@EndTaunts") Then + ssh.StrokeTick = 0 + StringClean = StringClean.Replace("@EndTaunts", "") + End If - If StringClean.Contains("@ResponseYes(") Then - ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") - StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") - End If + If StringClean.Contains("@ResponseYes(") Then + ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") + StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") + End If - If StringClean.Contains("@ResponseNo(") Then - ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") - StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") - End If + If StringClean.Contains("@ResponseNo(") Then + ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") + StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") + End If - If StringClean.Contains("@SetModule(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + If StringClean.Contains("@SetModule(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") - If TempMod.Contains(",") Then - TempMod = FixCommas(TempMod) - Dim TempArray As String() = TempMod.Split(",") - TempMod = TempArray(0) - ssh.SetModuleGoto = TempArray(1) + If TempMod.Contains(",") Then + TempMod = FixCommas(TempMod) + Dim TempArray As String() = TempMod.Split(",") + TempMod = TempArray(0) + ssh.SetModuleGoto = TempArray(1) - End If + End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" + End If - If ssh.SetModule = "" Then ssh.SetModuleGoto = "" + If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") - End If + StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + End If - If StringClean.Contains("@SetLink(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" - End If - StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") - End If + If StringClean.Contains("@SetLink(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" + End If + StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + End If 'If StringClean.Contains("@RandomText(") Then @@ -12906,57 +12874,57 @@ VTSkip: If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") - StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") - End If + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Length - 1) + StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + End If - If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then + If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then - Dim FollowTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + Dim FollowTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 - TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 + TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 + TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 - FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - Dim FollowVal As Integer + Dim FollowVal As Integer - FollowVal = Val(FollowTemp) + FollowVal = Val(FollowTemp) - ssh.TempVal = ssh.randomizer.Next(1, 101) + ssh.TempVal = ssh.randomizer.Next(1, 101) - Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") + Dim FollowLineTemp As String + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Length - 1) - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - End If + End If - If StringClean.Contains("@Worship(") Then - Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") - Debug.Print("Worship Paren = " & WorshipTemp) - If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" - If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" - If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" - ssh.WorshipMode = True - StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") - End If + If StringClean.Contains("@Worship(") Then + Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") + Debug.Print("Worship Paren = " & WorshipTemp) + If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" + If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" + If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" + ssh.WorshipMode = True + StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") + End If - If StringClean.Contains("@WorshipOn") Then - ssh.WorshipMode = True - StringClean = StringClean.Replace("@WorshipOn", "") - End If + If StringClean.Contains("@WorshipOn") Then + ssh.WorshipMode = True + StringClean = StringClean.Replace("@WorshipOn", "") + End If - If StringClean.Contains("@WorshipOff") Then - ssh.WorshipMode = False - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@WorshipOff", "") - End If + If StringClean.Contains("@WorshipOff") Then + ssh.WorshipMode = False + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@WorshipOff", "") + End If ' If StringClean.Contains("@AssWorship") Then 'WorshipTarget = "Ass" @@ -12974,381 +12942,381 @@ VTSkip: 'End If If StringClean.Contains("@ClearWorship") Then - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@ClearWorship", "") - End If + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@ClearWorship", "") + End If - If StringClean.Contains("@CheckFile(") Then + If StringClean.Contains("@CheckFile(") Then - Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") - FileFlag = FixCommas(FileFlag) + Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") + FileFlag = FixCommas(FileFlag) - Dim FileArray As String() = FileFlag.Split(",") + Dim FileArray As String() = FileFlag.Split(",") - If FileArray.Count = 2 Or FileArray.Count = 3 Then + If FileArray.Count = 2 Or FileArray.Count = 3 Then - If File.Exists(FileArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(1) - GetGoto() - End If + If File.Exists(FileArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(1) + GetGoto() + End If - If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(2) - GetGoto() - End If + If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(2) + GetGoto() + End If - End If + End If - StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") - End If + StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") + End If - If StringClean.Contains("@YesMode(") Then + If StringClean.Contains("@YesMode(") Then - Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") - YesFlag = FixCommas(YesFlag) - Dim YesArray As String() = YesFlag.Split(",") + Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") + YesFlag = FixCommas(YesFlag) + Dim YesArray As String() = YesFlag.Split(",") - If UCase(YesArray(0)).Contains("GOTO") Then - ssh.YesGoto = True - ssh.YesGotoLine = YesArray(1) - End If + If UCase(YesArray(0)).Contains("GOTO") Then + ssh.YesGoto = True + ssh.YesGotoLine = YesArray(1) + End If - If UCase(YesArray(0)).Contains("VIDEO") Then - ssh.YesVideo = True - ssh.YesGotoLine = YesArray(1) - End If + If UCase(YesArray(0)).Contains("VIDEO") Then + ssh.YesVideo = True + ssh.YesGotoLine = YesArray(1) + End If - If UCase(YesArray(0)).Contains("NORMAL") Then - ssh.YesGoto = False - ssh.YesVideo = False - End If + If UCase(YesArray(0)).Contains("NORMAL") Then + ssh.YesGoto = False + ssh.YesVideo = False + End If - StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") - End If + StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") + End If - If StringClean.Contains("@NoMode(") Then + If StringClean.Contains("@NoMode(") Then - Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") - NoFlag = FixCommas(NoFlag) - Dim NoArray As String() = NoFlag.Split(",") + Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") + NoFlag = FixCommas(NoFlag) + Dim NoArray As String() = NoFlag.Split(",") - If UCase(NoArray(0)).Contains("GOTO") Then - ssh.NoGoto = True - ssh.NoGotoLine = NoArray(1) - End If + If UCase(NoArray(0)).Contains("GOTO") Then + ssh.NoGoto = True + ssh.NoGotoLine = NoArray(1) + End If - If UCase(NoArray(0)).Contains("VIDEO") Then - ssh.NoVideo_Mode = True - ssh.NoGotoLine = NoArray(1) - End If + If UCase(NoArray(0)).Contains("VIDEO") Then + ssh.NoVideo_Mode = True + ssh.NoGotoLine = NoArray(1) + End If - If UCase(NoArray(0)).Contains("NORMAL") Then - ssh.NoGoto = False - ssh.NoVideo_Mode = False - End If + If UCase(NoArray(0)).Contains("NORMAL") Then + ssh.NoGoto = False + ssh.NoVideo_Mode = False + End If - StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") - End If + StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") + End If - If StringClean.Contains("@CameMode(") Then + If StringClean.Contains("@CameMode(") Then - Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") - CameFlag = FixCommas(CameFlag) - Dim CameArray As String() = CameFlag.Split(",") + Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") + CameFlag = FixCommas(CameFlag) + Dim CameArray As String() = CameFlag.Split(",") - If UCase(CameArray(0)).Contains("GOTO") Then - ssh.CameGoto = True - ssh.CameGotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("GOTO") Then + ssh.CameGoto = True + ssh.CameGotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("MESSAGE") Then - ssh.CameMessage = True - ssh.CameMessageText = CameArray(1) - End If + If UCase(CameArray(0)).Contains("MESSAGE") Then + ssh.CameMessage = True + ssh.CameMessageText = CameArray(1) + End If - If UCase(CameArray(0)).Contains("VIDEO") Then - ssh.CameVideo = True - ssh.CameGotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("VIDEO") Then + ssh.CameVideo = True + ssh.CameGotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("NORMAL") Then - ssh.CameGoto = False - ssh.CameMessage = False - ssh.CameVideo = False - End If + If UCase(CameArray(0)).Contains("NORMAL") Then + ssh.CameGoto = False + ssh.CameMessage = False + ssh.CameVideo = False + End If - StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") - End If + StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") + End If - If StringClean.Contains("@RuinedMode(") Then + If StringClean.Contains("@RuinedMode(") Then - Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") - RuinedFlag = FixCommas(RuinedFlag) - Dim RuinedArray As String() = RuinedFlag.Split(",") + Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") + RuinedFlag = FixCommas(RuinedFlag) + Dim RuinedArray As String() = RuinedFlag.Split(",") - If UCase(RuinedArray(0)).Contains("GOTO") Then - ssh.RuinedGoto = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("GOTO") Then + ssh.RuinedGoto = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("MESSAGE") Then - ssh.RuinedMessage = True - ssh.RuinedMessageText = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("MESSAGE") Then + ssh.RuinedMessage = True + ssh.RuinedMessageText = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("VIDEO") Then - ssh.RuinedVideo = True - ssh.RuinedGotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("VIDEO") Then + ssh.RuinedVideo = True + ssh.RuinedGotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("NORMAL") Then - ssh.RuinedGoto = False - ssh.RuinedMessage = False - ssh.RuinedVideo = False - End If + If UCase(RuinedArray(0)).Contains("NORMAL") Then + ssh.RuinedGoto = False + ssh.RuinedMessage = False + ssh.RuinedVideo = False + End If - StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") - End If + StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") + End If - If StringClean.Contains("@CustomMode(") Then + If StringClean.Contains("@CustomMode(") Then - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") - CustomFlag = FixCommas(CustomFlag) - Dim CustomArray As String() = CustomFlag.Split(",") + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") + CustomFlag = FixCommas(CustomFlag) + Dim CustomArray As String() = CustomFlag.Split(",") - If CustomArray.Count = 3 Then + If CustomArray.Count = 3 Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) + If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) - Dim NewMode As New Mode - NewMode.Keyword = CustomArray(0) - NewMode.Type = CustomArray(1) - NewMode.GotoLine = CustomArray(2) - ssh.Modes.Add(CustomArray(0), NewMode) - End If + Dim NewMode As New Mode + NewMode.Keyword = CustomArray(0) + NewMode.Type = CustomArray(1) + NewMode.GotoLine = CustomArray(2) + ssh.Modes.Add(CustomArray(0), NewMode) + End If - If CustomArray.Count = 2 Then - If CustomArray(1).ToUpper.Contains("NORMAL") Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then - ssh.Modes.Remove(CustomArray(0)) - End If - End If - End If + If CustomArray.Count = 2 Then + If CustomArray(1).ToUpper.Contains("NORMAL") Then + If ssh.Modes.Keys.Contains(CustomArray(0)) Then + ssh.Modes.Remove(CustomArray(0)) + End If + End If + End If - StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - End If + End If - If StringClean.Contains("@ClearModes") Then - ClearModes() - StringClean = StringClean.Replace("@ClearModes", "") - End If + If StringClean.Contains("@ClearModes") Then + ClearModes() + StringClean = StringClean.Replace("@ClearModes", "") + End If - If StringClean.Contains("@LockVideo") Then - ssh.LockVideo = True - StringClean = StringClean.Replace("@LockVideo", "") - End If + If StringClean.Contains("@LockVideo") Then + ssh.LockVideo = True + StringClean = StringClean.Replace("@LockVideo", "") + End If - If StringClean.Contains("@UnlockVideo") Then - ssh.LockVideo = False - mainPictureBox.Visible = True - DomWMP.Visible = False - StringClean = StringClean.Replace("@UnlockVideo", "") - End If + If StringClean.Contains("@UnlockVideo") Then + ssh.LockVideo = False + mainPictureBox.Visible = True + DomWMP.Visible = False + StringClean = StringClean.Replace("@UnlockVideo", "") + End If - If StringClean.Contains("@ClearChat") Then - ClearChat() - StringClean = StringClean.Replace("@ClearChat", "") - End If + If StringClean.Contains("@ClearChat") Then + ClearChat() + StringClean = StringClean.Replace("@ClearChat", "") + End If - If StringClean.Contains("@ChatImage[") Then - Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") - ImageDir = ImageDir.Replace("/", "\") - ImageDir = ImageDir.Replace("\\", "\") + If StringClean.Contains("@ChatImage[") Then + Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") + ImageDir = ImageDir.Replace("/", "\") + ImageDir = ImageDir.Replace("\\", "\") - If File.Exists(ImageDir.Split(",")(0)) Then + If File.Exists(ImageDir.Split(",")(0)) Then - If GetCharCount(ImageDir, ",") = 2 Then + If GetCharCount(ImageDir, ",") = 2 Then - Dim PicAttributes As String() = GetArrayString(ImageDir) + Dim PicAttributes As String() = GetArrayString(ImageDir) - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - End If + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + End If - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - End If - End If + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + End If + End If - If StringClean.Contains("@CountVar[") Then + If StringClean.Contains("@CountVar[") Then - Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") + Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") - If CountFlag.Contains(",") Then + If CountFlag.Contains(",") Then - CountFlag = FixCommas(CountFlag) - Dim CountArray() As String = CountFlag.Split(",") + CountFlag = FixCommas(CountFlag) + Dim CountArray() As String = CountFlag.Split(",") - If CountArray(1).ToLower.Contains("stop") Then - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) - Next - End If - If ssh.CountUpList.Count > 0 Then - For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 - If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) - Next - End If + If CountArray(1).ToLower.Contains("stop") Then + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next + End If + If ssh.CountUpList.Count > 0 Then + For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 + If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) + Next + End If - Else + Else - If CountArray(1).ToLower.Contains("down") Then - ssh.CountDownList.Add(CountArray(0)) - If ssh.CountUpList.Count > 0 Then - For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 - If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) - Next - End If - Else - ssh.CountUpList.Add(CountArray(0)) - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) - Next - End If - End If + If CountArray(1).ToLower.Contains("down") Then + ssh.CountDownList.Add(CountArray(0)) + If ssh.CountUpList.Count > 0 Then + For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 + If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) + Next + End If + Else + ssh.CountUpList.Add(CountArray(0)) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next + End If + End If - End If + End If - Else + Else - ssh.CountUpList.Add(CountFlag) - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountFlag) Then ssh.CountDownList.RemoveAt(i) - Next - End If + ssh.CountUpList.Add(CountFlag) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountFlag) Then ssh.CountDownList.RemoveAt(i) + Next + End If - End If + End If - StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") - End If + StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") + End If - If StringClean.Contains("@Debug") Then + If StringClean.Contains("@Debug") Then 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) - MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) - MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) - MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) + MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) + MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) + MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) StringClean = StringClean.Replace("@Debug", "") - End If + End If - If StringClean.Contains("@GotoDommeOrgasm") Then + If StringClean.Contains("@GotoDommeOrgasm") Then 'Debug.Print("GotoDommeOrgasmCalled") If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" 'Debug.Print(FileGoto) ssh.SkipGotoLine = True - GetGoto() + GetGoto() - StringClean = StringClean.Replace("@GotoDommeOrgasm", "") + StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - End If + End If - If StringClean.Contains("@GotoDommeRuin") Then + If StringClean.Contains("@GotoDommeRuin") Then - Debug.Print("GotoDommeRuinedCalled") + Debug.Print("GotoDommeRuinedCalled") - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" 'Debug.Print(FileGoto) ssh.SkipGotoLine = True - GetGoto() + GetGoto() - StringClean = StringClean.Replace("@GotoDommeRuin", "") + StringClean = StringClean.Replace("@GotoDommeRuin", "") - End If + End If - If StringClean.Contains("@GotoDommeApathy") Then + If StringClean.Contains("@GotoDommeApathy") Then 'Debug.Print("GotoDommeApathyCalled") If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" - If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" - If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" - If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" - If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" + If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" + If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" + If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" + If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" 'Debug.Print(FileGoto) ssh.SkipGotoLine = True - GetGoto() + GetGoto() - StringClean = StringClean.Replace("@GotoDommeApathy", "") + StringClean = StringClean.Replace("@GotoDommeApathy", "") - End If + End If - If StringClean.Contains("@GotoDommeLevel") Then + If StringClean.Contains("@GotoDommeLevel") Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" 'Debug.Print(FileGoto) ssh.SkipGotoLine = True - GetGoto() + GetGoto() - StringClean = StringClean.Replace("@GotoDommeLevel", "") + StringClean = StringClean.Replace("@GotoDommeLevel", "") - End If + End If - If StringClean.Contains("@CheckBnB") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then - ssh.FileGoto = "(No BnB)" - ssh.SkipGotoLine = True - GetGoto() - End If - StringClean = StringClean.Replace("@CheckBnB", "") - End If + If StringClean.Contains("@CheckBnB") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then + ssh.FileGoto = "(No BnB)" + ssh.SkipGotoLine = True + GetGoto() + End If + StringClean = StringClean.Replace("@CheckBnB", "") + End If @@ -13356,76 +13324,76 @@ VTSkip: - If StringClean.Contains("@CheckStrokingState") Then + If StringClean.Contains("@CheckStrokingState") Then 'If SubStroking = True Then If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ssh.FileGoto = "(Sub Stroking)" - Else - ssh.FileGoto = "(Sub Not Stroking)" - End If - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckStrokingState", "") - End If + ssh.FileGoto = "(Sub Stroking)" + Else + ssh.FileGoto = "(Sub Not Stroking)" + End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckStrokingState", "") + End If 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. If StringClean.Contains("@SetGroup(") Then - Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) + Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" + If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" + If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" + If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" + If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" + If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" - If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" + If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" + If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" + If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" - StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") + StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") - End If + End If - Debug.Print("Command Clean Complete") + Debug.Print("Command Clean Complete") - Return StringClean + Return StringClean - End Function + End Function #Region "-------------------------------------------- Webtoy --------------------------------------------" - Public Sub ActivateWebToy() + Public Sub ActivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try + End If - End Sub + End Sub - Public Sub DeactivateWebToy() + Public Sub DeactivateWebToy() - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - End Sub + End Sub #End Region ' WebToy @@ -13433,108 +13401,108 @@ VTSkip: #Region "---------------------------------------- Script-Flags ------------------------------------------" - ''' Creates the given flag. - ''' The flag name to set. - ''' If set to true, the flag is temporary set otherwise permanent. - Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) - If Temp = False Then - FlagName = ssh.Folders.Flags & FlagName - Else - FlagName = ssh.Folders.TempFlags & FlagName - End If + ''' Creates the given flag. + ''' The flag name to set. + ''' If set to true, the flag is temporary set otherwise permanent. + Friend Sub CreateFlag(ByVal FlagName As String, Optional ByVal Temp As Boolean = False) + If Temp = False Then + FlagName = ssh.Folders.Flags & FlagName + Else + FlagName = ssh.Folders.TempFlags & FlagName + End If - Using fs As New FileStream(FlagName, FileMode.Create) : End Using + Using fs As New FileStream(FlagName, FileMode.Create) : End Using - End Sub + End Sub ''' Deletes the given flag. Deletes permanent and temporary flags. ''' The name of the flag to delete. Friend Sub DeleteFlag(ByVal FlagName As String) - If File.Exists(ssh.Folders.Flags & FlagName) Then _ - File.Delete(ssh.Folders.Flags & FlagName) + If File.Exists(ssh.Folders.Flags & FlagName) Then _ + File.Delete(ssh.Folders.Flags & FlagName) - If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ - File.Delete(ssh.Folders.TempFlags & FlagName) + If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ + File.Delete(ssh.Folders.TempFlags & FlagName) - End Sub + End Sub ''' Checks if the given flag is set, permanent and temporary. ''' The flag name to search for. ''' Returns true if a permanent or temporary flag with the name is found. Friend Function FlagExists(ByVal FlagName As String) As Boolean - If File.Exists(ssh.Folders.Flags & FlagName) OrElse - File.Exists(ssh.Folders.TempFlags & FlagName) Then - Return True - Else - Return False - End If + If File.Exists(ssh.Folders.Flags & FlagName) OrElse + File.Exists(ssh.Folders.TempFlags & FlagName) Then + Return True + Else + Return False + End If - End Function + End Function #End Region ' Script-Flags #Region "------------------------------------- Script-Variables -----------------------------------------" - Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) + Public Function SetVariable(ByVal VarName As String, ByVal VarValue As String) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, VarValue, False) - End Function + End Function - Public Function DeleteVariable(ByVal FlagDir As String) + Public Function DeleteVariable(ByVal FlagDir As String) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ - My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ + My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) - End Function + End Function - Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) + Public Function ChangeVariable(ByVal ChangeVar As String, ByVal ChangeVal1 As String, ByVal ChangeOperator As String, ByVal ChangeVal2 As String) - Dim Val1 As Integer - Dim Val2 As Integer + Dim Val1 As Integer + Dim Val2 As Integer - If IsNumeric(ChangeVal1) = False Then + If IsNumeric(ChangeVal1) = False Then 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) - Else - Val1 = 0 - End If - Else - Val1 = Val(ChangeVal1) - End If + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) + Else + Val1 = 0 + End If + Else + Val1 = Val(ChangeVal1) + End If - If IsNumeric(ChangeVal2) = False Then + If IsNumeric(ChangeVal2) = False Then 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) - Else - Val2 = 0 - End If - Else - Val2 = Val(ChangeVal2) - End If + Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) + Else + Val2 = 0 + End If + Else + Val2 = Val(ChangeVal2) + End If - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Dim ChangeVal As Integer = 0 + Dim ChangeVal As Integer = 0 - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - End Function + End Function - Public Function GetVariable(ByVal VarName As String) As String + Public Function GetVariable(ByVal VarName As String) As String - Dim VarGet As String + Dim VarGet As String 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then '### DEBUG @@ -13542,222 +13510,222 @@ VTSkip: ' VarGet = Val(VarReader.ReadLine()) VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) - Else - VarGet = 0 - End If + Else + VarGet = 0 + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function CheckVariable(ByVal StringCLean As String) As Boolean + Public Function CheckVariable(ByVal StringCLean As String) As Boolean - Do + Do - Dim SCIfVar As String() = Split(StringCLean) - Dim SCGotVar As String = "Null" + Dim SCIfVar As String() = Split(StringCLean) + Dim SCGotVar As String = "Null" - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@Variable[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains("] ") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") - End If - SCGotVar = SCIfVar(i).Trim - SCIfVar(i) = "" - StringCLean = Join(SCIfVar) - Do - StringCLean = StringCLean.Replace(" ", " ") - Loop Until Not StringCLean.Contains(" ") - Exit For - End If - Next + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@Variable[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains("] ") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains("] ") Or SCIfVar(i).EndsWith("]") + End If + SCGotVar = SCIfVar(i).Trim + SCIfVar(i) = "" + StringCLean = Join(SCIfVar) + Do + StringCLean = StringCLean.Replace(" ", " ") + Loop Until Not StringCLean.Contains(" ") + Exit For + End If + Next - If SCGotVar.Contains("]And[") Then + If SCGotVar.Contains("]And[") Then - Dim AndCheck As Boolean = True + Dim AndCheck As Boolean = True - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") - Next + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]And", "") + Next - Return AndCheck + Return AndCheck - ElseIf SCGotVar.Contains("]Or[") Then + ElseIf SCGotVar.Contains("]Or[") Then - Dim OrCheck As Boolean = False + Dim OrCheck As Boolean = False - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") - Next + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") + Next - Return OrCheck + Return OrCheck - Else + Else - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - Return True + Return True - Else + Else - Return False + Return False - End If + End If - End If + End If - Loop Until Not StringCLean.Contains("@Variable") + Loop Until Not StringCLean.Contains("@Variable") - End Function + End Function #End Region ' Script-Variables #Region "---------------------------------------- Script-Dates ------------------------------------------" - Public Function GetDate(ByVal VarName As String) As Date + Public Function GetDate(ByVal VarName As String) As Date - Dim VarGet As String + Dim VarGet As String 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) - Else - VarGet = FormatDateTime(Now, DateFormat.GeneralDate) - End If + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + Else + VarGet = FormatDateTime(Now, DateFormat.GeneralDate) + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function GetTime(ByVal VarName As String) As Date + Public Function GetTime(ByVal VarName As String) As Date - Dim VarGet As String + Dim VarGet As String 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) - Else - VarGet = FormatDateTime(Now, DateFormat.LongTime) - End If + VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + Else + VarGet = FormatDateTime(Now, DateFormat.LongTime) + End If - Return VarGet + Return VarGet - End Function + End Function - Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean + Public Function CheckDateList(ByVal DateString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") + Dim DateFlag As String = GetParentheses(DateString, "@CheckDate(") - If DateFlag.Contains(",") Then + If DateFlag.Contains(",") Then - DateFlag = FixCommas(DateFlag) + DateFlag = FixCommas(DateFlag) - Dim DateArray() As String = DateFlag.Split(",") - Dim DDiff As Long = 18855881 - Dim DDiff2 As Long = 18855881 + Dim DateArray() As String = DateFlag.Split(",") + Dim DDiff As Long = 18855881 + Dim DDiff2 As Long = 18855881 - Dim DCompare As Long - Dim DCompare2 As Long + Dim DCompare As Long + Dim DCompare2 As Long - If Linear = False Then + If Linear = False Then - If DateArray.Count = 2 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If + If DateArray.Count = 2 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If - Else + Else - If DateArray.Count = 2 Then - If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True - Return False - End If + If DateArray.Count = 2 Then + If CompareDatesWithTime(GetDate(DateArray(0))) <> 1 Then Return True + Return False + End If - If DateArray.Count = 3 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - If DDiff >= DCompare Then Return True - Return False - End If + If DateArray.Count = 3 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + If DDiff >= DCompare Then Return True + Return False + End If - If DateArray.Count = 4 Then - DDiff = GetDateDifference(DateArray(0), DateArray(1)) - DCompare = GetDateCompare(DateArray(0), DateArray(1)) - DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) - DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) - If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True - Return False - End If + If DateArray.Count = 4 Then + DDiff = GetDateDifference(DateArray(0), DateArray(1)) + DCompare = GetDateCompare(DateArray(0), DateArray(1)) + DDiff2 = GetDateDifference(DateArray(0), DateArray(2)) + DCompare2 = GetDateCompare(DateArray(0), DateArray(2)) + If DDiff >= DCompare And DDiff2 <= DCompare2 Then Return True + Return False + End If - End If + End If - Else - If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True - Return False - End If + Else + If CompareDatesWithTime(GetDate(DateFlag)) <> 1 Then Return True + Return False + End If - Return False + Return False - End Function + End Function - Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long + Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long - Dim DDiff As Long = 0 + Dim DDiff As Long = 0 - If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) - If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 + If UCase(DateString).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateVar), Now) + If UCase(DateString).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateVar), Now) * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateVar), Now) * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateVar), Now) * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateVar), Now) * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateVar), Now) * 31536000 - Return DDiff + Return DDiff - End Function + End Function - Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long + Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long - Dim DDiff As Long = 0 - Dim Amount As Long = Val(DateString) + Dim DDiff As Long = 0 + Dim Amount As Long = Val(DateString) - If UCase(DateString).Contains("SECOND") Then DDiff = Amount - If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 - If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 - If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 - If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 - If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 - If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 + If UCase(DateString).Contains("SECOND") Then DDiff = Amount + If UCase(DateString).Contains("MINUTE") Then DDiff = Amount * 60 + If UCase(DateString).Contains("HOUR") Then DDiff = Amount * 3600 + If UCase(DateString).Contains("DAY") Then DDiff = Amount * 86400 + If UCase(DateString).Contains("WEEK") Then DDiff = Amount * 604800 + If UCase(DateString).Contains("MONTH") Then DDiff = Amount * 2629746 + If UCase(DateString).Contains("YEAR") Then DDiff = Amount * 31536000 - Return DDiff + Return DDiff - End Function + End Function #End Region ' Script-Dates @@ -13765,12 +13733,12 @@ VTSkip: - Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String + Public Function GetParentheses(ByVal ParenCheck As String, ByVal CommandCheck As String, Optional ByVal Iterations As Integer = 1) As String - Dim ParenFlag As String = ParenCheck - Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length + Dim ParenFlag As String = ParenCheck + Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length 'githib patch Dim ParenType As String Dim ParenType As String = Nothing @@ -13780,11 +13748,11 @@ VTSkip: 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then - ParenType = ")" - End If - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then - ParenType = "]" - End If + ParenType = ")" + End If + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then + ParenType = "]" + End If @@ -13793,10 +13761,10 @@ VTSkip: 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) - Debug.Print("ParenEnd = " & ParenEnd) + Debug.Print("ParenEnd = " & ParenEnd) - If ParenEnd = -1 Then ParenEnd = ParenFlag.Length - ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) + If ParenEnd = -1 Then ParenEnd = ParenFlag.Length + ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) 'ParenFlag = ParenFlag.Split(")")(0) 'ParenFlag = ParenFlag.Split(ParenType)(0) @@ -13804,206 +13772,206 @@ VTSkip: 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) Debug.Print("ParenFlag = " & ParenFlag) - Return ParenFlag + Return ParenFlag - End Function + End Function - Public Function GetNthIndex(ByVal searchString As String, ByVal charToFind As Char, ByVal startIndex As Integer, ByVal n As Integer) As Integer - Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ - .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ - .ElementAtOrDefault(n - 1) - Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) - End Function + Public Function GetNthIndex(ByVal searchString As String, ByVal charToFind As Char, ByVal startIndex As Integer, ByVal n As Integer) As Integer + Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ + .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ + .ElementAtOrDefault(n - 1) + Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) + End Function - Public Function FixCommas(ByVal CommaString) As String + Public Function FixCommas(ByVal CommaString) As String - CommaString = CommaString.replace(", ", ",") - CommaString = CommaString.replace(" ,", ",") + CommaString = CommaString.replace(", ", ",") + CommaString = CommaString.replace(" ,", ",") - Return CommaString + Return CommaString - End Function + End Function - Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean + Public Function GetEdgeHoldMinutes(ByVal HoldTime As Integer) As Boolean - Dim HoldEdgeCheck As Boolean = False + Dim HoldEdgeCheck As Boolean = False - If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True + If ssh.HoldEdgeTime >= HoldTime * 60 Then HoldEdgeCheck = True - Return HoldEdgeCheck + Return HoldEdgeCheck - End Function + End Function - Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, - Optional ByVal ExcludeTags As List(Of String) = Nothing) As String + Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, + Optional ByVal ExcludeTags As List(Of String) = Nothing) As String - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then ' Read all lines of given file. ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") - Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") + Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") - ssh.LocalTagImageList.RemoveAll(Function(x) + ssh.LocalTagImageList.RemoveAll(Function(x) ' Remove if given include tags are missing If IncludeTags IsNot Nothing Then - For Each tag As String In IncludeTags - If Not x.Contains(tag.Replace("@", "")) Then Return True - Next - End If + For Each tag As String In IncludeTags + If Not x.Contains(tag.Replace("@", "")) Then Return True + Next + End If ' Remove if given exclude tags are present If ExcludeTags IsNot Nothing Then - For Each tag As String In ExcludeTags - If x.Contains(tag.Replace("@", "")) Then Return True - Next - End If + For Each tag As String In ExcludeTags + If x.Contains(tag.Replace("@", "")) Then Return True + Next + End If ' Remove all without valid extension Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower - If Not ValidExt.Contains(Ext) Then Return True + If Not ValidExt.Contains(Ext) Then Return True 'Everything fine keep file Return False - End Function) + End Function) - Do While ssh.LocalTagImageList.Count > 0 - Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) + Do While ssh.LocalTagImageList.Count > 0 + Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) - If Directory.Exists(Path.GetDirectoryName(Filepath)) _ - AndAlso File.Exists(Filepath) Then - Return Filepath - Else - ssh.LocalTagImageList.RemoveAt(rndNumber) - End If - Loop - End If + If Directory.Exists(Path.GetDirectoryName(Filepath)) _ + AndAlso File.Exists(Filepath) Then + Return Filepath + Else + ssh.LocalTagImageList.RemoveAt(rndNumber) + End If + Loop + End If - Return String.Empty - End Function + Return String.Empty + End Function - Public Function GetLocalImage(ByVal LocTag As String) As String + Public Function GetLocalImage(ByVal LocTag As String) As String 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - Dim TagList As New List(Of String) - TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + Dim TagList As New List(Of String) + TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") - LocTag = LocTag.Replace(" ,", ",") - LocTag = LocTag.Replace(", ", ",") + LocTag = LocTag.Replace(" ,", ",") + LocTag = LocTag.Replace(", ", ",") - Dim LocTagArray As String() = LocTag.Split(",") + Dim LocTagArray As String() = LocTag.Split(",") - Dim LocTag1 As String = " " - Dim LocTag2 As String = " " - Dim LocTag3 As String = " " + Dim LocTag1 As String = " " + Dim LocTag2 As String = " " + Dim LocTag3 As String = " " - For i As Integer = 0 To LocTagArray.Count - 1 - If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) - If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) - If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) - Next + For i As Integer = 0 To LocTagArray.Count - 1 + If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) + If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) + If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) + Next - Dim TaggedList As New List(Of String) + Dim TaggedList As New List(Of String) - For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then - TaggedList.Add(TagList(i)) - End If - Next + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then + TaggedList.Add(TagList(i)) + End If + Next - If TaggedList.Count > 0 Then + If TaggedList.Count > 0 Then - Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split - Dim PicDir As String = "" + Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split + Dim PicDir As String = "" - For p As Integer = 0 To PicArray.Count - 1 - PicDir = PicDir & PicArray(p) & " " - If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For - Next + For p As Integer = 0 To PicArray.Count - 1 + PicDir = PicDir & PicArray(p) & " " + If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For + Next - Return PicDir + Return PicDir - Else - Return String.Empty + Else + Return String.Empty - End If + End If - End If - End Function + End If + End Function - Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) - If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True - If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True - If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True - End Sub + Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) + If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True + If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True + If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True + End Sub - Public Sub DisableContactStroke() - ssh.Contact1Stroke = False - ssh.Contact2Stroke = False - ssh.Contact3Stroke = False - End Sub + Public Sub DisableContactStroke() + ssh.Contact1Stroke = False + ssh.Contact2Stroke = False + ssh.Contact3Stroke = False + End Sub - Public Sub GetSubState() + Public Sub GetSubState() - ssh.ReturnSubState = "Rest" - If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" - If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" - If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" - If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" - If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" - If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" - If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" - If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" + ssh.ReturnSubState = "Rest" + If ssh.SubStroking = True Then ssh.ReturnSubState = "Stroking" + If ssh.SubEdging = True Then ssh.ReturnSubState = "Edging" + If ssh.SubHoldingEdge = True Then ssh.ReturnSubState = "Holding The Edge" + If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then ssh.ReturnSubState = "CBTBalls" + If ssh.CBTCockFlag = True Then ssh.ReturnSubState = "CBTCock" + If ssh.CensorshipGame = True Then ssh.ReturnSubState = "Censorship Sucks" + If ssh.AvoidTheEdgeGame = True Then ssh.ReturnSubState = "Avoid The Edge" + If ssh.RLGLGame = True Then ssh.ReturnSubState = "RLGL" - End Sub + End Sub - Public Sub EdgePace() + Public Sub EdgePace() - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) - If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value - StrokePace = 50 * Math.Round(StrokePace / 50) + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMaxPace.Value + 151) + If StrokePace > NBMinPace.Value Then StrokePace = NBMinPace.Value + StrokePace = 50 * Math.Round(StrokePace / 50) - End Sub + End Sub - Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) + Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) #If TRACE Then - Dim sw As New Stopwatch - sw.Start() + Dim sw As New Stopwatch + sw.Start() - Trace.WriteLine("FilterList Started") - Trace.Indent() + Trace.WriteLine("FilterList Started") + Trace.Indent() #End If - Dim FilterPass As Boolean - Dim ListIncrement As Integer = 1 - If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount + Dim FilterPass As Boolean + Dim ListIncrement As Integer = 1 + If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Check if Grouped-Lines-Files have the right amount of Lines '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' No need to go further on an empty file. If ListClean.Count <= 0 Then - Trace.WriteLine("FilterList started with empty List. Skipping filter.") - Return ListClean - End If + Trace.WriteLine("FilterList started with empty List. Skipping filter.") + Return ListClean + End If ' To Avoid DivideByZeroException If ListIncrement <= 0 Then - Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " - Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & "", False) - Return ListClean - End If + Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " + Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & "", False) + Return ListClean + End If ' Divide List.Count by StrokeTauntSize and get the Remainder. Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement @@ -14012,73 +13980,73 @@ VTSkip: If InvalidLineCount > 0 Then ' So delete the Lines of the last and hopefully uncomplete Group. ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) - End If + End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Grouped-Lines-Check-END '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement - FilterPass = True + FilterPass = True - For x As Integer = 0 To ListIncrement - 1 - If GetFilter(ListClean(i + x)) = False Then - FilterPass = False - Exit For - End If - Next + For x As Integer = 0 To ListIncrement - 1 + If GetFilter(ListClean(i + x)) = False Then + FilterPass = False + Exit For + End If + Next - If FilterPass = False Then - For x As Integer = 0 To ListIncrement - 1 - ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" - Next - End If + If FilterPass = False Then + For x As Integer = 0 To ListIncrement - 1 + ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" + Next + End If - Next + Next - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) - Next + For i As Integer = ListClean.Count - 1 To 0 Step -1 + If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) + Next - Dim FilteredList As New List(Of String) + Dim FilteredList As New List(Of String) - 'For i As Integer = 0 To ListClean.Count - 1 - 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) - 'Next + 'For i As Integer = 0 To ListClean.Count - 1 + 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) + 'Next #If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If - Return ListClean + Return ListClean - End Function + End Function - Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean - Dim OrgFilterString As String = FilterString - Try + Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean + Dim OrgFilterString As String = FilterString + Try '######################### Determine filtering Contact ########################### Dim FilterContact As ContactData - Dim ActiveContacts As New List(Of String) + Dim ActiveContacts As New List(Of String) - For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) + For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) ' Pattern Description: ' [d\d]: All Numbers and letter "D" ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) ActiveContacts.Add(match.Value) - Next + Next - If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then - FilterContact = ssh.SlideshowContact1 - ElseIf FilterString.Includes("@Contact2") AndAlso ActiveContacts.Contains("2") Then - FilterContact = ssh.SlideshowContact2 - ElseIf FilterString.Includes("@Contact3") AndAlso ActiveContacts.Contains("3") Then - FilterContact = ssh.SlideshowContact3 - ElseIf ContactToUse IsNot Nothing Then - FilterContact = ContactToUse - Else + If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then + FilterContact = ssh.SlideshowContact1 + ElseIf FilterString.Includes("@Contact2") AndAlso ActiveContacts.Contains("2") Then + FilterContact = ssh.SlideshowContact2 + ElseIf FilterString.Includes("@Contact3") AndAlso ActiveContacts.Contains("3") Then + FilterContact = ssh.SlideshowContact3 + ElseIf ssh.contactToUse IsNot Nothing Then + FilterContact = ssh.contactToUse + Else FilterContact = ssh.SlideshowMain End If @@ -17420,8 +17388,12 @@ saveImage: Public Sub LoadDommeImageFolder() 'check which domme should be loaded If Not ssh.newSlideshow Then - If ssh.glitterDommeNumber = 0 Then - ssh.SlideshowMain = New ContactData(ContactType.Domme) + If ssh.glitterDommeNumber = 0 Then + If FrmSettings.CBRandomDomme.Checked = False Then + ssh.SlideshowMain = New ContactData(ContactType.Domme) + Else + ssh.SlideshowMain = New ContactData(ContactType.Random) + End If ElseIf ssh.glitterDommeNumber = 1 Then ssh.SlideshowMain = New ContactData(ContactType.Contact1) ElseIf ssh.glitterDommeNumber = 2 Then @@ -17431,10 +17403,12 @@ saveImage: ElseIf ssh.glitterDommeNumber = 4 Then ssh.SlideshowMain = New ContactData(ContactType.Random) End If + ssh.contactToUse = ssh.SlideshowMain End If ssh.SlideshowMain.LoadNew(ssh.newSlideshow) - ssh.tempDomName = ssh.SlideshowMain.TypeName - FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName + ssh.tempDomName = ssh.SlideshowMain.TypeName + Me.domName.Text = ssh.tempDomName + FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName ssh.newSlideshow = False ShowImage(ssh.SlideshowMain.CurrentImage, False) @@ -17867,7 +17841,8 @@ restartInstantly: End If ssh.Load(filename, True) - + Me.domName.Text = ssh.tempDomName + FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ FrmSettings.LockOrgasmChances(True) @@ -17895,7 +17870,7 @@ restartInstantly: ssh.DomTask = "Tease AI has been reset" TypingDelayGeneric() End If - + setStartName() End Sub Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click, @@ -21042,11 +21017,20 @@ playLoop: End Function Private Sub GotoClear() - ssh.GotoFlag = False ssh.FileGoto = "" End Sub + Public Sub setStartName() + ssh.contactToUse = ssh.SlideshowMain + If My.Settings.DomName <> "" Then + ssh.tempDomName = My.Settings.DomName + domName.Text = ssh.tempDomName + 'ssh.tempHonorific = My.Settings.SubHonorific + End If + If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName + FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName + End Sub End Class From 0e1abef90a386c61d53d0f401aceb21b646cf4ed Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 9 Apr 2017 21:15:42 +0200 Subject: [PATCH 057/143] Small Update: 1) created the updateDommeName() sub that will update the conctactToUse so that the program will always display the correct name of the speaker and also update the honorific to check against if needed 2) small improvements to the contact honorifics: they will now start as "" and can be left empty (so in that case, for example, a check for the honorific will always pass since the honorific of that contact is empty) 3) introduced new #Vocab to deal with the newly introduced honorifics: writing #Contact1Honorific,#Contact2Honorific or #Contact3Honorific in a script will replace it with the correct honorific for that contact (just like #DomHonorific) 4) #DomHonorific changes: -if you are doing a GlitterSession or RandomSession, then, when in the script there is a #DomHonorific, it will use the correct honorific for that contact and not the one of the domme (this only comes in if you are doing a complete session with just the glitter/random contacts, so when you used @SetDomme(X), and not when there is the main domme present). -if during a normal session the domme goes away and there are only glitters/random contact present, then #DomHonorific will use the honorific of the currently speaking contact 5) added security controls to the @RemoveContact/Domme: removal of the contact will only be permitted if there is at least another person present in the chat, to prevent session from crashing due to no one left in the chat --- Tease AI/Classes/ContactData.vb | 16 + Tease AI/Classes/State.vb | 3 + Tease AI/Form1.vb | 177 +- Tease AI/Form2.Designer.vb | 31044 +++++++++++---------- Tease AI/Form2.vb | 45 + Tease AI/My Project/Settings.Designer.vb | 52 +- 6 files changed, 15817 insertions(+), 15520 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index db77dd2..0135f6a 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -41,6 +41,22 @@ Public Class ContactData End Get End Property + Public ReadOnly Property TypeHonorific As String + Get + If Contact = ContactType.Contact1 Then + Return My.Settings.G1Honorific + ElseIf Contact = ContactType.Contact2 Then + Return My.Settings.G2Honorific + ElseIf Contact = ContactType.Contact3 Then + Return My.Settings.G3Honorific + ElseIf Contact = ContactType.Random Then + Return My.Settings.RandomHonorific + Else + Return My.Settings.SubHonorific + End If + End Get + End Property + Public ReadOnly Property TypeColorHtml As String Get If Contact = ContactType.Contact1 Then diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 927b19c..4731779 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -424,6 +424,9 @@ Public Class SessionState Public Property Contact3Stroke As Boolean Public Property tempDomName As String + Public Property tempHonorific As String + Public Property replaceHonorific As String + #Region "@CallReturn(" ''' Gets or sets current stack for @CallReturn( command. diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ec04b95..1238910 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -736,6 +736,10 @@ retryStart: FrmSettings.TBYes.Text = My.Settings.SubYes FrmSettings.TBNo.Text = My.Settings.SubNo FrmSettings.TBHonorific.Text = My.Settings.SubHonorific + FrmSettings.G1Honorific.Text = My.Settings.G1Honorific + FrmSettings.G2Honorific.Text = My.Settings.G2Honorific + FrmSettings.G3Honorific.Text = My.Settings.G3Honorific + FrmSettings.RandomHonorific.Text = My.Settings.RandomHonorific If FrmSettings.TBHonorific.Text = "" Or FrmSettings.TBHonorific.Text Is Nothing Then FrmSettings.TBHonorific.Text = "Mistress" @@ -1357,16 +1361,16 @@ retryStart: If CBShortcuts.Checked = True Then - If UCase(ssh.ChatString) = UCase(TBShortYes.Text) Then ssh.ChatString = "Yes " & FrmSettings.TBHonorific.Text - If UCase(ssh.ChatString) = UCase(TBShortNo.Text) Then ssh.ChatString = "No " & FrmSettings.TBHonorific.Text + If UCase(ssh.ChatString) = UCase(TBShortYes.Text) Then ssh.ChatString = "Yes " & ssh.tempHonorific + If UCase(ssh.ChatString) = UCase(TBShortNo.Text) Then ssh.ChatString = "No " & ssh.tempHonorific If UCase(ssh.ChatString) = UCase(TBShortEdge.Text) Then ssh.ChatString = "On the edge" If UCase(ssh.ChatString) = UCase(TBShortSpeedUp.Text) Then ssh.ChatString = "Let me speed up" If UCase(ssh.ChatString) = UCase(TBShortSlowDown.Text) Then ssh.ChatString = "Let me slow down" If UCase(ssh.ChatString) = UCase(TBShortStop.Text) Then ssh.ChatString = "Let me stop" If UCase(ssh.ChatString) = UCase(TBShortStroke.Text) Then ssh.ChatString = "May I start stroking?" If UCase(ssh.ChatString) = UCase(TBShortCum.Text) Then ssh.ChatString = "Please let me cum!" - If UCase(ssh.ChatString) = UCase(TBShortGreet.Text) Then ssh.ChatString = "Hello " & FrmSettings.TBHonorific.Text - If UCase(ssh.ChatString) = UCase(TBShortSafeword.Text) Then ssh.ChatString = FrmSettings.TBSafeword.Text + If UCase(ssh.ChatString) = UCase(TBShortGreet.Text) Then ssh.ChatString = "Hello " & ssh.tempHonorific + If UCase(ssh.ChatString) = UCase(TBShortSafeword.Text) Then ssh.ChatString = ssh.tempHonorific End If @@ -1528,7 +1532,7 @@ retryStart: If FrmSettings.CBHonorificInclude.Checked = True Then - If WordExists(UCase(ssh.ChatString), UCase(FrmSettings.TBHonorific.Text)) = False Then + If WordExists(UCase(ssh.ChatString), UCase(ssh.tempHonorific)) = False Then 'If InStr(UCase(ChatString), (UCase(FrmSettings.TBHonorific.Text))) = 0 Then 'If Not UCase(ChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then @@ -1547,7 +1551,7 @@ retryStart: If FrmSettings.CBHonorificCapitalized.Checked = True Then - If WordExists(ssh.ChatString, Capitalize(FrmSettings.TBHonorific.Text)) = False Then + If WordExists(ssh.ChatString, Capitalize(ssh.tempHonorific)) = False Then 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then ssh.DomChat = "#SYS_CapitalizeHonorific" ssh.nameErrors += 1 @@ -2613,7 +2617,7 @@ EdgeSkip: Dim CheckResponse As String = UCase(ssh.ChatString) CheckResponse = CheckResponse.Replace(UCase(ssh.tempDomName), "") - CheckResponse = CheckResponse.Replace(UCase(FrmSettings.TBHonorific.Text), "") + CheckResponse = CheckResponse.Replace(UCase(ssh.tempHonorific), "") CheckResponse = CheckResponse.Replace("!", "") CheckResponse = CheckResponse.Replace("?", "") CheckResponse = CheckResponse.Replace(".", "") @@ -3586,7 +3590,7 @@ NullSkip: If ssh.CheckYes = True Or ssh.CheckNo = True Then If FrmSettings.CBHonorificInclude.Checked = True Then - If Not UCase(TempChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then + If Not UCase(TempChatString).Contains(UCase(ssh.tempHonorific)) Then ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) @@ -3599,7 +3603,7 @@ NullSkip: Return End If If FrmSettings.CBHonorificCapitalized.Checked = True Then - If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then + If Not ssh.ChatString.Contains(ssh.tempHonorific) Then ssh.DomChat = "#DomHonorific" ssh.nameErrors += 1 ssh.wrongAttempt = True @@ -3612,7 +3616,7 @@ NullSkip: 'Splits(0) = "" 'DomChat = Join(Splits, "]") - ssh.DomChat = ChatReplace + ssh.DomChat = updateDommeName(ChatReplace) ' DomChat = Splits(1) GoTo FoundAnswer @@ -3662,7 +3666,7 @@ NullSkip: If ssh.CheckYes = True Or ssh.CheckNo = True Then If FrmSettings.CBHonorificInclude.Checked = True Then - If Not UCase(TempChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then + If Not UCase(TempChatString).Contains(UCase(ssh.tempHonorific)) Then ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) @@ -3675,7 +3679,7 @@ NullSkip: Return End If If FrmSettings.CBHonorificCapitalized.Checked = True Then - If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then + If Not ssh.ChatString.Contains(ssh.tempHonorific) Then ssh.DomChat = "#SYS_CapitalizeHonorific" ssh.nameErrors += 1 ssh.wrongAttempt = True @@ -3685,7 +3689,7 @@ NullSkip: End If End If End If - ssh.DomChat = ChatReplace + ssh.DomChat = updateDommeName(ChatReplace) GoTo FoundAnswer End If Next @@ -4902,17 +4906,6 @@ CancelGoto: ssh.RapidCode = False End If - - If Not ssh.Group.Contains("D") And Not ssh.DomTask.Contains("@Contact1") And Not ssh.DomTask.Contains("@Contact2") And Not ssh.DomTask.Contains("@Contact3") Then - Dim GroupList As New List(Of String) - GroupList.Clear() - If ssh.Group.Contains("1") Then GroupList.Add(" @Contact1 ") - If ssh.Group.Contains("2") Then GroupList.Add(" @Contact2 ") - If ssh.Group.Contains("3") Then GroupList.Add(" @Contact3 ") - ssh.DomTask = ssh.DomTask & GroupList(ssh.randomizer.Next(0, GroupList.Count)) - End If - - If ssh.NullResponse = True Then Timer1.Stop() GoTo NullResponse @@ -4936,11 +4929,7 @@ CancelGoto: If ssh.RiskyDeal = True Then FrmCardList.LblRiskType.Visible = True If ssh.NullResponse = False Then ssh.IsTyping = True - Dim TypingName As String = ssh.tempDomName - If ssh.DomTask.Contains("@Contact1") Then TypingName = My.Settings.Glitter1 - If ssh.DomTask.Contains("@Contact2") Then TypingName = My.Settings.Glitter2 - If ssh.DomTask.Contains("@Contact3") Then TypingName = My.Settings.Glitter3 - 'If TypingName <> ssh.tempDomName Then JustShowedBlogImage = True + ssh.DomTask = updateDommeName(ssh.DomTask) If ssh.DomTask.Contains("@EmoteMessage") Then ssh.EmoMes = True @@ -4954,14 +4943,14 @@ CancelGoto: If FrmSettings.CBWebtease.Checked = True Then - ChatText.DocumentText = ssh.Chat & "
" & TypingName & " is typing...
" - ChatText2.DocumentText = ssh.Chat & "
" & TypingName & " is typing...
" + ChatText.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" + ChatText2.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" ChatReadyState() Else - ChatText.DocumentText = ssh.Chat & "" & TypingName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & TypingName & " is typing..." + ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." + ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." ChatReadyState() End If @@ -5776,14 +5765,14 @@ DommeSlideshowFallback: ssh.RapidCode = False End If - If Not ssh.Group.Contains("D") And Not ssh.DomChat.Contains("@Contact1") And Not ssh.DomChat.Contains("@Contact2") And Not ssh.DomChat.Contains("@Contact3") Then - Dim GroupList As New List(Of String) - GroupList.Clear() - If ssh.Group.Contains("1") Then GroupList.Add(" @Contact1 ") - If ssh.Group.Contains("2") Then GroupList.Add(" @Contact2 ") - If ssh.Group.Contains("3") Then GroupList.Add(" @Contact3 ") - ssh.DomChat = ssh.DomChat & GroupList(ssh.randomizer.Next(0, GroupList.Count)) - End If + 'If Not ssh.Group.Contains("D") And Not ssh.DomChat.Contains("@Contact1") And Not ssh.DomChat.Contains("@Contact2") And Not ssh.DomChat.Contains("@Contact3") Then + 'Dim GroupList As New List(Of String) + ' GroupList.Clear() + 'If ssh.Group.Contains("1") Then GroupList.Add(" @Contact1 ") + 'If ssh.Group.Contains("2") Then GroupList.Add(" @Contact2 ") + 'If ssh.Group.Contains("3") Then GroupList.Add(" @Contact3 ") + ' ssh.DomChat = ssh.DomChat & GroupList(ssh.randomizer.Next(0, GroupList.Count)) + 'End If If ssh.NullResponse = True Then SendTimer.Stop() @@ -5807,10 +5796,6 @@ DommeSlideshowFallback: If ssh.RiskyDeal = True Then FrmCardList.LblRiskType.Visible = True ssh.IsTyping = True - Dim TypingName As String = ssh.tempDomName - If ssh.DomChat.Contains("@Contact1") Then TypingName = My.Settings.Glitter1 - If ssh.DomChat.Contains("@Contact2") Then TypingName = My.Settings.Glitter2 - If ssh.DomChat.Contains("@Contact3") Then TypingName = My.Settings.Glitter3 If ssh.DomChat.Contains("@EmoteMessage") Then ssh.EmoMes = True @@ -5822,14 +5807,14 @@ DommeSlideshowFallback: If FrmSettings.CBWebtease.Checked = True Then - ChatText.DocumentText = ssh.Chat & "
" & TypingName & " is typing...
" - ChatText2.DocumentText = ssh.Chat & "
" & TypingName & " is typing...
" + ChatText.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" + ChatText2.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" ChatReadyState() Else - ChatText.DocumentText = ssh.Chat & "" & TypingName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & TypingName & " is typing..." + ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." + ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." ChatReadyState() End If @@ -7966,7 +7951,17 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#DomName", ssh.tempDomName) - StringClean = StringClean.Replace("#DomHonorific", FrmSettings.TBHonorific.Text) + If StringClean.Contains("#Contact1Honorific") Then StringClean = StringClean.Replace("#Contact1Honorific", My.Settings.G1Honorific) + + If StringClean.Contains("#Contact2Honorific") Then StringClean = StringClean.Replace("#Contact2Honorific", My.Settings.G2Honorific) + + If StringClean.Contains("#Contact3Honorific") Then StringClean = StringClean.Replace("#Contact3Honorific", My.Settings.G3Honorific) + + If ssh.dommePresent = True Then + StringClean = StringClean.Replace("#DomHonorific", ssh.replaceHonorific) + Else + StringClean = StringClean.Replace("#DomHonorific", ssh.tempHonorific) + End If StringClean = StringClean.Replace("#DomAge", FrmSettings.domageNumBox.Value) @@ -12221,7 +12216,8 @@ ExternalAudio: End If If StringClean.Contains("@RemoveContact1") Then - If ssh.contact1Present Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then ssh.contact1Present = False ssh.AddContactTick = 2 Contact1Timer.Start() @@ -12239,7 +12235,8 @@ ExternalAudio: End If If StringClean.Contains("@RemoveContact2") Then - If ssh.contact2Present Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then ssh.contact2Present = False ssh.AddContactTick = 2 Contact2Timer.Start() @@ -12257,7 +12254,8 @@ ExternalAudio: End If If StringClean.Contains("@RemoveContact3") Then - If ssh.contact3Present Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then ssh.contact3Present = False ssh.AddContactTick = 2 Contact3Timer.Start() @@ -12276,7 +12274,8 @@ ExternalAudio: End If If StringClean.Contains("@RemoveDomme") Then - If ssh.dommePresent Then + 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present + If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then ssh.dommePresent = False ssh.AddContactTick = 2 DommeTimer.Start() @@ -16106,8 +16105,8 @@ Night: ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine If FrmSettings.CBHonorificInclude.Checked = True Then - ssh.TaskText = ssh.TaskText & FrmSettings.TBHonorific.Text & " " & ssh.tempDomName - Else + ssh.TaskText = ssh.TaskText & ssh.tempHonorific & " " & ssh.tempDomName + Else ssh.TaskText = ssh.TaskText & ssh.tempDomName End If @@ -17391,17 +17390,23 @@ saveImage: If ssh.glitterDommeNumber = 0 Then If FrmSettings.CBRandomDomme.Checked = False Then ssh.SlideshowMain = New ContactData(ContactType.Domme) + ssh.replaceHonorific = My.Settings.SubHonorific Else ssh.SlideshowMain = New ContactData(ContactType.Random) + ssh.replaceHonorific = My.Settings.RandomHonorific End If ElseIf ssh.glitterDommeNumber = 1 Then ssh.SlideshowMain = New ContactData(ContactType.Contact1) + ssh.replaceHonorific = My.Settings.G1Honorific ElseIf ssh.glitterDommeNumber = 2 Then ssh.SlideshowMain = New ContactData(ContactType.Contact2) + ssh.replaceHonorific = My.Settings.G2Honorific ElseIf ssh.glitterDommeNumber = 3 Then ssh.SlideshowMain = New ContactData(ContactType.Contact3) + ssh.replaceHonorific = My.Settings.G3Honorific ElseIf ssh.glitterDommeNumber = 4 Then ssh.SlideshowMain = New ContactData(ContactType.Random) + ssh.replaceHonorific = My.Settings.RandomHonorific End If ssh.contactToUse = ssh.SlideshowMain End If @@ -19590,7 +19595,7 @@ restartInstantly: Private Sub BTNYes_Click(sender As System.Object, e As System.EventArgs) Handles BTNYes.Click, Button2.Click Try - chatBox.Text = "Yes " & FrmSettings.TBHonorific.Text + chatBox.Text = "Yes " & ssh.tempHonorific Catch chatBox.Text = "Yes" End Try @@ -19600,7 +19605,7 @@ restartInstantly: Private Sub BTNNo_Click(sender As System.Object, e As System.EventArgs) Handles BTNNo.Click, Button3.Click Try - chatBox.Text = "No " & FrmSettings.TBHonorific.Text + chatBox.Text = "No " & ssh.tempHonorific Catch chatBox.Text = "No" End Try @@ -19647,7 +19652,7 @@ restartInstantly: End If Try - chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text + chatBox.Text = "Hello " & ssh.tempHonorific Catch chatBox.Text = "Hello" End Try @@ -20141,7 +20146,7 @@ restartInstantly: ssh.PlaylistFile = StripBlankLines(ssh.PlaylistFile) ssh.PlaylistCurrent = 0 Try - chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text + chatBox.Text = "Hello " & ssh.tempHonorific Catch chatBox.Text = "Hello" End Try @@ -21027,10 +21032,60 @@ playLoop: If My.Settings.DomName <> "" Then ssh.tempDomName = My.Settings.DomName domName.Text = ssh.tempDomName - 'ssh.tempHonorific = My.Settings.SubHonorific + ssh.tempHonorific = My.Settings.SubHonorific + ssh.replaceHonorific = ssh.tempHonorific End If If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName End Sub + + + Private Function updateDommeName(stringToCheck As String) As String + 'deals with situation in which the domme is not present + If Not ssh.Group.Contains("D") And Not stringToCheck.Contains("@Contact1") And Not stringToCheck.Contains("@Contact2") And Not stringToCheck.Contains("@Contact3") And Not stringToCheck.Contains("@RandomContact") Then + Dim GroupList As New List(Of String) + GroupList.Clear() + If ssh.Group.Contains("1") Then GroupList.Add(" @Contact1 ") + If ssh.Group.Contains("2") Then GroupList.Add(" @Contact2 ") + If ssh.Group.Contains("3") Then GroupList.Add(" @Contact3 ") + stringToCheck = stringToCheck & GroupList(ssh.randomizer.Next(0, GroupList.Count)) + End If + + ssh.contactToUse = ssh.SlideshowMain + ssh.tempDomName = ssh.SlideshowMain.TypeName + ssh.tempHonorific = ssh.SlideshowMain.TypeHonorific + If stringToCheck.Contains("@Contact1") Then + ssh.tempDomName = My.Settings.Glitter1 + ssh.tempHonorific = My.Settings.G1Honorific + ssh.contactToUse = ssh.SlideshowContact1 + ElseIf stringToCheck.Contains("@Contact2") Then + ssh.tempDomName = My.Settings.Glitter2 + ssh.tempHonorific = My.Settings.G2Honorific + ssh.contactToUse = ssh.SlideshowContact2 + ElseIf stringToCheck.Contains("@Contact3") Then + ssh.tempDomName = My.Settings.Glitter3 + ssh.tempHonorific = My.Settings.G3Honorific + ssh.contactToUse = ssh.SlideshowContact3 + 'ElseIf stringToCheck.Contains("@RandomContact") Then + ' Dim casual As Integer = 0 + ' casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) + ' Select Case ssh.currentlyPresentContacts(casual) + 'Case ssh.SlideshowContact1.TypeName + ' ssh.tempDomName = My.Settings.Glitter1 + ' ssh.tempHonorific = My.Settings.G1Honorific + 'ssh.contactToUse = ssh.SlideshowContact1 + 'Case ssh.SlideshowContact2.TypeName + ' ssh.tempDomName = My.Settings.Glitter2 + 'ssh.tempHonorific = My.Settings.G2Honorific + 'ssh.contactToUse = ssh.SlideshowContact2 + 'Case ssh.SlideshowContact3.TypeName + 'ssh.tempDomName = My.Settings.Glitter3 + 'ssh.tempHonorific = My.Settings.G3Honorific + 'ssh.contactToUse = ssh.SlideshowContact3 + 'Case Else + 'End Select + End If + Return stringToCheck + End Function End Class diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 2c31138..3ac455e 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -22,15440 +22,15560 @@ Partial Class FrmSettings 'Do not modify it using the code editor. Private Sub InitializeComponent() -Me.components = New System.ComponentModel.Container() -Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) -Me.SettingsPanel = New System.Windows.Forms.Panel() -Me.SettingsTabs = New System.Windows.Forms.TabControl() -Me.TabPage1 = New System.Windows.Forms.TabPage() -Me.PNLGeneralSettings = New System.Windows.Forms.Panel() -Me.GroupBox3 = New System.Windows.Forms.GroupBox() -Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() -Me.GroupBox2 = New System.Windows.Forms.GroupBox() -Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() -Me.CBRandomDomme = New System.Windows.Forms.CheckBox() -Me.BtnRandomImageDir = New System.Windows.Forms.Button() -Me.BtnImportSettings = New System.Windows.Forms.Button() -Me.LblImportSettings = New System.Windows.Forms.Label() -Me.GroupBox64 = New System.Windows.Forms.GroupBox() -Me.CBMuteMedia = New System.Windows.Forms.CheckBox() -Me.GBDommeImages = New System.Windows.Forms.GroupBox() -Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() -Me.teaseRadio = New System.Windows.Forms.RadioButton() -Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() -Me.offRadio = New System.Windows.Forms.RadioButton() -Me.BTNDomImageDir = New System.Windows.Forms.Button() -Me.timedRadio = New System.Windows.Forms.RadioButton() -Me.TbxDomImageDir = New System.Windows.Forms.TextBox() -Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() -Me.LBLVRate = New System.Windows.Forms.Label() -Me.Label93 = New System.Windows.Forms.Label() -Me.LBLVVolume = New System.Windows.Forms.Label() -Me.Label68 = New System.Windows.Forms.Label() -Me.SliderVRate = New System.Windows.Forms.TrackBar() -Me.SliderVVolume = New System.Windows.Forms.TrackBar() -Me.TTSCheckBox = New System.Windows.Forms.CheckBox() -Me.TTSComboBox = New System.Windows.Forms.ComboBox() -Me.GBSafeword = New System.Windows.Forms.GroupBox() -Me.LBLSafeword = New System.Windows.Forms.Label() -Me.TBSafeword = New System.Windows.Forms.TextBox() -Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() -Me.CBAuditStartup = New System.Windows.Forms.CheckBox() -Me.CBDomDel = New System.Windows.Forms.CheckBox() -Me.CBSettingsPause = New System.Windows.Forms.CheckBox() -Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() -Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() -Me.GBGeneralImages = New System.Windows.Forms.GroupBox() -Me.CBImageInfo = New System.Windows.Forms.CheckBox() -Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() -Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() -Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() -Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() -Me.PictureBox2 = New System.Windows.Forms.PictureBox() -Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() -Me.CBWebtease = New System.Windows.Forms.CheckBox() -Me.GBSubFont = New System.Windows.Forms.GroupBox() -Me.BTNSubColor = New System.Windows.Forms.Button() -Me.LBLSubColor = New System.Windows.Forms.Label() -Me.NBFontSize = New System.Windows.Forms.NumericUpDown() -Me.Label2 = New System.Windows.Forms.Label() -Me.FontComboBox = New System.Windows.Forms.ComboBox() -Me.GBDommeFont = New System.Windows.Forms.GroupBox() -Me.BTNDomColor = New System.Windows.Forms.Button() -Me.LBLDomColor = New System.Windows.Forms.Label() -Me.FontComboBoxD = New System.Windows.Forms.ComboBox() -Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() -Me.Label7 = New System.Windows.Forms.Label() -Me.CBInputIcon = New System.Windows.Forms.CheckBox() -Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() -Me.timestampCheckBox = New System.Windows.Forms.CheckBox() -Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() -Me.LBLGeneralSettings = New System.Windows.Forms.Label() -Me.TabPage2 = New System.Windows.Forms.TabPage() -Me.Panel3 = New System.Windows.Forms.Panel() -Me.GBGiveUp = New System.Windows.Forms.GroupBox() -Me.giveupCheckBox = New System.Windows.Forms.CheckBox() -Me.BTNLoadDomSet = New System.Windows.Forms.Button() -Me.BTNSaveDomSet = New System.Windows.Forms.Button() -Me.Label127 = New System.Windows.Forms.Label() -Me.Label126 = New System.Windows.Forms.Label() -Me.PictureBox4 = New System.Windows.Forms.PictureBox() -Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() -Me.TBEmoteEnd = New System.Windows.Forms.TextBox() -Me.Label67 = New System.Windows.Forms.Label() -Me.TBEmote = New System.Windows.Forms.TextBox() -Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() -Me.Label66 = New System.Windows.Forms.Label() -Me.CBMeMyMine = New System.Windows.Forms.CheckBox() -Me.GroupBox63 = New System.Windows.Forms.GroupBox() -Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() -Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() -Me.periodCheckBox = New System.Windows.Forms.CheckBox() -Me.commaCheckBox = New System.Windows.Forms.CheckBox() -Me.Label64 = New System.Windows.Forms.Label() -Me.GBDomRanges = New System.Windows.Forms.GroupBox() -Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() -Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() -Me.Label37 = New System.Windows.Forms.Label() -Me.Label39 = New System.Windows.Forms.Label() -Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() -Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() -Me.Label31 = New System.Windows.Forms.Label() -Me.Label36 = New System.Windows.Forms.Label() -Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() -Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() -Me.Label21 = New System.Windows.Forms.Label() -Me.Label22 = New System.Windows.Forms.Label() -Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() -Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() -Me.Label23 = New System.Windows.Forms.Label() -Me.Label30 = New System.Windows.Forms.Label() -Me.GBDomStats = New System.Windows.Forms.GroupBox() -Me.Label128 = New System.Windows.Forms.Label() -Me.LBLEmpathy = New System.Windows.Forms.Label() -Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() -Me.Label83 = New System.Windows.Forms.Label() -Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() -Me.TBDomEyeColor = New System.Windows.Forms.TextBox() -Me.TBDomHairColor = New System.Windows.Forms.TextBox() -Me.domageNumBox = New System.Windows.Forms.NumericUpDown() -Me.Label47 = New System.Windows.Forms.Label() -Me.Label76 = New System.Windows.Forms.Label() -Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() -Me.Label84 = New System.Windows.Forms.Label() -Me.CBDomTattoos = New System.Windows.Forms.CheckBox() -Me.CBDomFreckles = New System.Windows.Forms.CheckBox() -Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() -Me.Label10 = New System.Windows.Forms.Label() -Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() -Me.Label9 = New System.Windows.Forms.Label() -Me.boobComboBox = New System.Windows.Forms.ComboBox() -Me.DomLevelDescLabel = New System.Windows.Forms.Label() -Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() -Me.Label43 = New System.Windows.Forms.Label() -Me.Label44 = New System.Windows.Forms.Label() -Me.Label45 = New System.Windows.Forms.Label() -Me.Label46 = New System.Windows.Forms.Label() -Me.GBDomPersonality = New System.Windows.Forms.GroupBox() -Me.degradingCheckBox = New System.Windows.Forms.CheckBox() -Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() -Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() -Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() -Me.crazyCheckBox = New System.Windows.Forms.CheckBox() -Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() -Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() -Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() -Me.orgasmlockrandombutton = New System.Windows.Forms.Button() -Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() -Me.Label16 = New System.Windows.Forms.Label() -Me.Label12 = New System.Windows.Forms.Label() -Me.orgasmsperlockButton = New System.Windows.Forms.Button() -Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() -Me.orgasmsperLabel = New System.Windows.Forms.Label() -Me.limitcheckbox = New System.Windows.Forms.CheckBox() -Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() -Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() -Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() -Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() -Me.GBDomPetNames = New System.Windows.Forms.GroupBox() -Me.Label74 = New System.Windows.Forms.Label() -Me.petnameBox7 = New System.Windows.Forms.TextBox() -Me.petnameBox8 = New System.Windows.Forms.TextBox() -Me.petnameBox1 = New System.Windows.Forms.TextBox() -Me.Label15 = New System.Windows.Forms.Label() -Me.petnameBox4 = New System.Windows.Forms.TextBox() -Me.petnameBox6 = New System.Windows.Forms.TextBox() -Me.petnameBox2 = New System.Windows.Forms.TextBox() -Me.Label11 = New System.Windows.Forms.Label() -Me.petnameBox5 = New System.Windows.Forms.TextBox() -Me.petnameBox3 = New System.Windows.Forms.TextBox() -Me.Label54 = New System.Windows.Forms.Label() -Me.TabPage10 = New System.Windows.Forms.TabPage() -Me.Panel2 = New System.Windows.Forms.Panel() -Me.GroupBox22 = New System.Windows.Forms.GroupBox() -Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() -Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() -Me.Label75 = New System.Windows.Forms.Label() -Me.Label77 = New System.Windows.Forms.Label() -Me.GroupBox45 = New System.Windows.Forms.GroupBox() -Me.LBLCBTSlider = New System.Windows.Forms.Label() -Me.CBCBTBalls = New System.Windows.Forms.CheckBox() -Me.CBCBTCock = New System.Windows.Forms.CheckBox() -Me.CBTSlider = New System.Windows.Forms.TrackBar() -Me.GroupBox35 = New System.Windows.Forms.GroupBox() -Me.GroupBox39 = New System.Windows.Forms.GroupBox() -Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() -Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() -Me.TBHonorific = New System.Windows.Forms.TextBox() -Me.GroupBox38 = New System.Windows.Forms.GroupBox() -Me.TBNo = New System.Windows.Forms.TextBox() -Me.GroupBox37 = New System.Windows.Forms.GroupBox() -Me.TBYes = New System.Windows.Forms.TextBox() -Me.GroupBox36 = New System.Windows.Forms.GroupBox() -Me.TBGreeting = New System.Windows.Forms.TextBox() -Me.GroupBox13 = New System.Windows.Forms.GroupBox() -Me.Label34 = New System.Windows.Forms.Label() -Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() -Me.GroupBox7 = New System.Windows.Forms.GroupBox() -Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() -Me.LBLMinExtremeHold = New System.Windows.Forms.Label() -Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() -Me.Label133 = New System.Windows.Forms.Label() -Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() -Me.LBLMaxLongHold = New System.Windows.Forms.Label() -Me.Label78 = New System.Windows.Forms.Label() -Me.LBLMinLongHold = New System.Windows.Forms.Label() -Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() -Me.Label129 = New System.Windows.Forms.Label() -Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() -Me.LBLMaxHold = New System.Windows.Forms.Label() -Me.Label79 = New System.Windows.Forms.Label() -Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() -Me.LBLMinHold = New System.Windows.Forms.Label() -Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() -Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() -Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() -Me.Label55 = New System.Windows.Forms.Label() -Me.Label81 = New System.Windows.Forms.Label() -Me.Label5 = New System.Windows.Forms.Label() -Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() -Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() -Me.Label131 = New System.Windows.Forms.Label() -Me.PictureBox12 = New System.Windows.Forms.PictureBox() -Me.GroupBox32 = New System.Windows.Forms.GroupBox() -Me.LBLSubBdayFormat = New System.Windows.Forms.Label() -Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() -Me.CBOwnChastity = New System.Windows.Forms.CheckBox() -Me.CBChastityPA = New System.Windows.Forms.CheckBox() -Me.CBHimHer = New System.Windows.Forms.CheckBox() -Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() -Me.CBCockToClit = New System.Windows.Forms.CheckBox() -Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() -Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() -Me.CBSubPierced = New System.Windows.Forms.CheckBox() -Me.TBSubEyeColor = New System.Windows.Forms.TextBox() -Me.TBSubHairColor = New System.Windows.Forms.TextBox() -Me.Label63 = New System.Windows.Forms.Label() -Me.LBLSubInches = New System.Windows.Forms.Label() -Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() -Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() -Me.LBLSubCockSize = New System.Windows.Forms.Label() -Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() -Me.LBLSubEye = New System.Windows.Forms.Label() -Me.LBLSubHair = New System.Windows.Forms.Label() -Me.LBLSubBirthday = New System.Windows.Forms.Label() -Me.LBLSubAge = New System.Windows.Forms.Label() -Me.Label70 = New System.Windows.Forms.Label() -Me.TabPage16 = New System.Windows.Forms.TabPage() -Me.Panel9 = New System.Windows.Forms.Panel() -Me.BTNScriptAvailable = New System.Windows.Forms.Button() -Me.BTNScriptNone = New System.Windows.Forms.Button() -Me.BTNScriptAll = New System.Windows.Forms.Button() -Me.BTNScriptOpen = New System.Windows.Forms.Button() -Me.LBLScriptReq = New System.Windows.Forms.Label() -Me.GroupBox31 = New System.Windows.Forms.GroupBox() -Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() -Me.TCScripts = New System.Windows.Forms.TabControl() -Me.TabPage21 = New System.Windows.Forms.TabPage() -Me.CLBStartList = New System.Windows.Forms.CheckedListBox() -Me.TabPage17 = New System.Windows.Forms.TabPage() -Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() -Me.TabPage18 = New System.Windows.Forms.TabPage() -Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() -Me.TabPage19 = New System.Windows.Forms.TabPage() -Me.CLBEndList = New System.Windows.Forms.CheckedListBox() -Me.GroupBox42 = New System.Windows.Forms.GroupBox() -Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() -Me.PictureBox1 = New System.Windows.Forms.PictureBox() -Me.GroupBox43 = New System.Windows.Forms.GroupBox() -Me.Label98 = New System.Windows.Forms.Label() -Me.Label104 = New System.Windows.Forms.Label() -Me.TabPage7 = New System.Windows.Forms.TabPage() -Me.TabControl4 = New System.Windows.Forms.TabControl() -Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() -Me.CBURLPreview = New System.Windows.Forms.CheckBox() -Me.GroupBox66 = New System.Windows.Forms.GroupBox() -Me.PBURLPreview = New System.Windows.Forms.PictureBox() -Me.BTNURLFilesAll = New System.Windows.Forms.Button() -Me.BTNURLFilesNone = New System.Windows.Forms.Button() -Me.URLFileList = New System.Windows.Forms.CheckedListBox() -Me.TpImagesGenre = New System.Windows.Forms.TabPage() -Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() -Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() -Me.BtnImageUrlButt = New System.Windows.Forms.Button() -Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() -Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() -Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() -Me.BtnImageUrlHentai = New System.Windows.Forms.Button() -Me.BtnImageUrlGay = New System.Windows.Forms.Button() -Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() -Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() -Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() -Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() -Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() -Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() -Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() -Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() -Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() -Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() -Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() -Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() -Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() -Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() -Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() -Me.BTNIHardcore = New System.Windows.Forms.Button() -Me.TbxIHardcore = New System.Windows.Forms.TextBox() -Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() -Me.CBIHardcore = New System.Windows.Forms.CheckBox() -Me.CBISoftcore = New System.Windows.Forms.CheckBox() -Me.TbxISoftcore = New System.Windows.Forms.TextBox() -Me.CBButtSubDir = New System.Windows.Forms.CheckBox() -Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() -Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() -Me.CBILezdomSD = New System.Windows.Forms.CheckBox() -Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() -Me.CBILesbianSD = New System.Windows.Forms.CheckBox() -Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() -Me.CBILesbian = New System.Windows.Forms.CheckBox() -Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjob = New System.Windows.Forms.CheckBox() -Me.CBIGaySD = New System.Windows.Forms.CheckBox() -Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() -Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() -Me.TbxIButts = New System.Windows.Forms.TextBox() -Me.CBIFemdom = New System.Windows.Forms.CheckBox() -Me.TbxILesbian = New System.Windows.Forms.TextBox() -Me.BTNISoftcore = New System.Windows.Forms.Button() -Me.CBILezdom = New System.Windows.Forms.CheckBox() -Me.TbxIBoobs = New System.Windows.Forms.TextBox() -Me.CBIHentai = New System.Windows.Forms.CheckBox() -Me.TbxIBlowjob = New System.Windows.Forms.TextBox() -Me.CBIGay = New System.Windows.Forms.CheckBox() -Me.TbxIGeneral = New System.Windows.Forms.TextBox() -Me.CBIMaledom = New System.Windows.Forms.CheckBox() -Me.TbxIFemdom = New System.Windows.Forms.TextBox() -Me.BTNILesbian = New System.Windows.Forms.Button() -Me.TbxICaptions = New System.Windows.Forms.TextBox() -Me.CBICaptions = New System.Windows.Forms.CheckBox() -Me.TbxILezdom = New System.Windows.Forms.TextBox() -Me.TbxIMaledom = New System.Windows.Forms.TextBox() -Me.BTNButtPath = New System.Windows.Forms.Button() -Me.TbxIHentai = New System.Windows.Forms.TextBox() -Me.CBIGeneral = New System.Windows.Forms.CheckBox() -Me.TbxIGay = New System.Windows.Forms.TextBox() -Me.CBIBoobs = New System.Windows.Forms.CheckBox() -Me.CBIButts = New System.Windows.Forms.CheckBox() -Me.BTNIBlowjob = New System.Windows.Forms.Button() -Me.BTNIFemdom = New System.Windows.Forms.Button() -Me.BTNBoobPath = New System.Windows.Forms.Button() -Me.BTNILezdom = New System.Windows.Forms.Button() -Me.BTNIHentai = New System.Windows.Forms.Button() -Me.BTNIGay = New System.Windows.Forms.Button() -Me.BTNIMaledom = New System.Windows.Forms.Button() -Me.BTNICaptions = New System.Windows.Forms.Button() -Me.BTNIGeneral = New System.Windows.Forms.Button() -Me.TabPage33 = New System.Windows.Forms.TabPage() -Me.TabControl5 = New System.Windows.Forms.TabControl() -Me.TabPage34 = New System.Windows.Forms.TabPage() -Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() -Me.CBTagAllFours = New System.Windows.Forms.CheckBox() -Me.CBTagGlaring = New System.Windows.Forms.CheckBox() -Me.CBTagSmiling = New System.Windows.Forms.CheckBox() -Me.TBTagDir = New System.Windows.Forms.TextBox() -Me.CBTagPiercing = New System.Windows.Forms.CheckBox() -Me.CBTagLegs = New System.Windows.Forms.CheckBox() -Me.TBTagFurniture = New System.Windows.Forms.TextBox() -Me.CBTagFurniture = New System.Windows.Forms.CheckBox() -Me.TBTagSexToy = New System.Windows.Forms.TextBox() -Me.CBTagSexToy = New System.Windows.Forms.CheckBox() -Me.TBTagTattoo = New System.Windows.Forms.TextBox() -Me.CBTagTattoo = New System.Windows.Forms.CheckBox() -Me.TBTagUnderwear = New System.Windows.Forms.TextBox() -Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() -Me.TBTagGarment = New System.Windows.Forms.TextBox() -Me.CBTagGarment = New System.Windows.Forms.CheckBox() -Me.Label72 = New System.Windows.Forms.Label() -Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() -Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() -Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() -Me.CBTagNaked = New System.Windows.Forms.RadioButton() -Me.CBTagSideView = New System.Windows.Forms.CheckBox() -Me.BTNTagPrevious = New System.Windows.Forms.Button() -Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() -Me.BTNTagNext = New System.Windows.Forms.Button() -Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() -Me.LBLTagCount = New System.Windows.Forms.Label() -Me.CBTagSucking = New System.Windows.Forms.CheckBox() -Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() -Me.CBTagFeet = New System.Windows.Forms.CheckBox() -Me.CBTagBoobs = New System.Windows.Forms.CheckBox() -Me.CBTagAss = New System.Windows.Forms.CheckBox() -Me.CBTagPussy = New System.Windows.Forms.CheckBox() -Me.BTNTagSave = New System.Windows.Forms.Button() -Me.BTNTagDir = New System.Windows.Forms.Button() -Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() -Me.CBTagFace = New System.Windows.Forms.CheckBox() -Me.TabPage35 = New System.Windows.Forms.TabPage() -Me.GroupBox55 = New System.Windows.Forms.GroupBox() -Me.CBTagNurse = New System.Windows.Forms.CheckBox() -Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() -Me.CBTagMaid = New System.Windows.Forms.CheckBox() -Me.CBTagTeacher = New System.Windows.Forms.CheckBox() -Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() -Me.GroupBox53 = New System.Windows.Forms.GroupBox() -Me.CBTagTrap = New System.Windows.Forms.CheckBox() -Me.CBTagTentacles = New System.Windows.Forms.CheckBox() -Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() -Me.CBTagBukkake = New System.Windows.Forms.CheckBox() -Me.CBTagGanguro = New System.Windows.Forms.CheckBox() -Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() -Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() -Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() -Me.CBTagAhegao = New System.Windows.Forms.CheckBox() -Me.CBTagShibari = New System.Windows.Forms.CheckBox() -Me.GroupBox49 = New System.Windows.Forms.GroupBox() -Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() -Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() -Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() -Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() -Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() -Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() -Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() -Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() -Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() -Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() -Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() -Me.GroupBox46 = New System.Windows.Forms.GroupBox() -Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() -Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() -Me.CBTagFemdom = New System.Windows.Forms.CheckBox() -Me.CBTag2M = New System.Windows.Forms.CheckBox() -Me.CBTagFutadom = New System.Windows.Forms.CheckBox() -Me.CBTagFemsub = New System.Windows.Forms.CheckBox() -Me.CBTag2Futa = New System.Windows.Forms.CheckBox() -Me.CBTagMaledom = New System.Windows.Forms.CheckBox() -Me.CBTag3M = New System.Windows.Forms.CheckBox() -Me.CBTagFutasub = New System.Windows.Forms.CheckBox() -Me.CBTag3Futa = New System.Windows.Forms.CheckBox() -Me.CBTagMalesub = New System.Windows.Forms.CheckBox() -Me.CBTag2F = New System.Windows.Forms.CheckBox() -Me.CBTag1Futa = New System.Windows.Forms.CheckBox() -Me.CBTag1M = New System.Windows.Forms.CheckBox() -Me.CBTag1F = New System.Windows.Forms.CheckBox() -Me.CBTag3F = New System.Windows.Forms.CheckBox() -Me.GroupBox54 = New System.Windows.Forms.GroupBox() -Me.CBTagTattoos = New System.Windows.Forms.CheckBox() -Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() -Me.CBTagDomme = New System.Windows.Forms.CheckBox() -Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() -Me.CBTagWatersports = New System.Windows.Forms.CheckBox() -Me.CBTagStockings = New System.Windows.Forms.CheckBox() -Me.CBTagCumshot = New System.Windows.Forms.CheckBox() -Me.CBTagCumEating = New System.Windows.Forms.CheckBox() -Me.CBTagVibrator = New System.Windows.Forms.CheckBox() -Me.CBTagDildo = New System.Windows.Forms.CheckBox() -Me.CBTagKissing = New System.Windows.Forms.CheckBox() -Me.GroupBox51 = New System.Windows.Forms.GroupBox() -Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() -Me.CBTagGag = New System.Windows.Forms.CheckBox() -Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() -Me.CBTagWhipping = New System.Windows.Forms.CheckBox() -Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() -Me.CBTagElectro = New System.Windows.Forms.CheckBox() -Me.CBTagHotWax = New System.Windows.Forms.CheckBox() -Me.CBTagClamps = New System.Windows.Forms.CheckBox() -Me.CBTagStrapon = New System.Windows.Forms.CheckBox() -Me.CBTagSpanking = New System.Windows.Forms.CheckBox() -Me.CBTagNeedles = New System.Windows.Forms.CheckBox() -Me.GroupBox50 = New System.Windows.Forms.GroupBox() -Me.CBTagRimming = New System.Windows.Forms.CheckBox() -Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() -Me.CBTagMissionary = New System.Windows.Forms.CheckBox() -Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() -Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() -Me.CBTagFingering = New System.Windows.Forms.CheckBox() -Me.CBTagGangbang = New System.Windows.Forms.CheckBox() -Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() -Me.CBTagDP = New System.Windows.Forms.CheckBox() -Me.CBTagHandjob = New System.Windows.Forms.CheckBox() -Me.CBTagStanding = New System.Windows.Forms.CheckBox() -Me.CBTagFootjob = New System.Windows.Forms.CheckBox() -Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() -Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() -Me.CBTagTitjob = New System.Windows.Forms.CheckBox() -Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() -Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() -Me.GroupBox48 = New System.Windows.Forms.GroupBox() -Me.CBTagArtwork = New System.Windows.Forms.CheckBox() -Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() -Me.CBTagPOV = New System.Windows.Forms.CheckBox() -Me.CBTagHardcore = New System.Windows.Forms.CheckBox() -Me.CBTagTD = New System.Windows.Forms.CheckBox() -Me.CBTagGay = New System.Windows.Forms.CheckBox() -Me.CBTagBath = New System.Windows.Forms.CheckBox() -Me.CBTagBisexual = New System.Windows.Forms.CheckBox() -Me.CBTagCFNM = New System.Windows.Forms.CheckBox() -Me.CBTagLesbian = New System.Windows.Forms.CheckBox() -Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() -Me.CBTagSM = New System.Windows.Forms.CheckBox() -Me.CBTagBondage = New System.Windows.Forms.CheckBox() -Me.CBTagSoloM = New System.Windows.Forms.CheckBox() -Me.CBTagSoloF = New System.Windows.Forms.CheckBox() -Me.CBTagChastity = New System.Windows.Forms.CheckBox() -Me.CBTagShower = New System.Windows.Forms.CheckBox() -Me.TBLocalTagDir = New System.Windows.Forms.TextBox() -Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() -Me.BTNLocalTagNext = New System.Windows.Forms.Button() -Me.LBLLocalTagCount = New System.Windows.Forms.Label() -Me.BTNLocalTagSave = New System.Windows.Forms.Button() -Me.BTNLocalTagDir = New System.Windows.Forms.Button() -Me.TabPage11 = New System.Windows.Forms.TabPage() -Me.Panel7 = New System.Windows.Forms.Panel() -Me.BTNWIContinue = New System.Windows.Forms.Button() -Me.BTNWIAddandContinue = New System.Windows.Forms.Button() -Me.BTNWICancel = New System.Windows.Forms.Button() -Me.CBWIReview = New System.Windows.Forms.CheckBox() -Me.BTNWIBrowse = New System.Windows.Forms.Button() -Me.TBWIDirectory = New System.Windows.Forms.TextBox() -Me.BTNWIDisliked = New System.Windows.Forms.Button() -Me.BTNWILiked = New System.Windows.Forms.Button() -Me.BTNWIRemove = New System.Windows.Forms.Button() -Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() -Me.PictureBox5 = New System.Windows.Forms.PictureBox() -Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() -Me.BTNWICreateURL = New System.Windows.Forms.Button() -Me.LBLWebImageCount = New System.Windows.Forms.Label() -Me.BTNWISave = New System.Windows.Forms.Button() -Me.BTNWIOpenURL = New System.Windows.Forms.Button() -Me.BTNWIPrevious = New System.Windows.Forms.Button() -Me.BTNWINext = New System.Windows.Forms.Button() -Me.WebPictureBox = New System.Windows.Forms.PictureBox() -Me.Label71 = New System.Windows.Forms.Label() -Me.TpVideoSettings = New System.Windows.Forms.TabPage() -Me.PnlVideoSettings = New System.Windows.Forms.Panel() -Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() -Me.BTNRefreshVideos = New System.Windows.Forms.Button() -Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() -Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() -Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() -Me.BTNVideoGeneralD = New System.Windows.Forms.Button() -Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() -Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() -Me.LblVideoCHTotalD = New System.Windows.Forms.Label() -Me.LblVideoJOITotalD = New System.Windows.Forms.Label() -Me.TxbVideoCHD = New System.Windows.Forms.TextBox() -Me.TxbVideoJOID = New System.Windows.Forms.TextBox() -Me.BTNVideoCHD = New System.Windows.Forms.Button() -Me.BTNVideoJOID = New System.Windows.Forms.Button() -Me.CBVideoJOID = New System.Windows.Forms.CheckBox() -Me.CBVideoCHD = New System.Windows.Forms.CheckBox() -Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() -Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() -Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() -Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() -Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() -Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() -Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() -Me.BTNVideoFemSubD = New System.Windows.Forms.Button() -Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() -Me.BTNVideoFemDomD = New System.Windows.Forms.Button() -Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() -Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() -Me.BTNVideoLesbianD = New System.Windows.Forms.Button() -Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() -Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() -Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() -Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() -Me.VideoDescriptionLabel = New System.Windows.Forms.Label() -Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() -Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() -Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() -Me.BTNVideoGeneral = New System.Windows.Forms.Button() -Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() -Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() -Me.LblVideoCHTotal = New System.Windows.Forms.Label() -Me.LblVideoJOITotal = New System.Windows.Forms.Label() -Me.TxbVideoCH = New System.Windows.Forms.TextBox() -Me.TxbVideoJOI = New System.Windows.Forms.TextBox() -Me.BTNVideoCH = New System.Windows.Forms.Button() -Me.BTNVideoJOI = New System.Windows.Forms.Button() -Me.CBVideoJOI = New System.Windows.Forms.CheckBox() -Me.CBVideoCH = New System.Windows.Forms.CheckBox() -Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() -Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() -Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() -Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() -Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() -Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() -Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() -Me.BTNVideoFemSub = New System.Windows.Forms.Button() -Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() -Me.BTNVideoFemDom = New System.Windows.Forms.Button() -Me.BTNVideoBlowjob = New System.Windows.Forms.Button() -Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() -Me.BTNVideoLesbian = New System.Windows.Forms.Button() -Me.BTNVideoSoftCore = New System.Windows.Forms.Button() -Me.BTNVideoHardCore = New System.Windows.Forms.Button() -Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() -Me.LblVideoHeader = New System.Windows.Forms.Label() -Me.TabPage20 = New System.Windows.Forms.TabPage() -Me.TabControl1 = New System.Windows.Forms.TabControl() -Me.TabPage22 = New System.Windows.Forms.TabPage() -Me.PNLGlitter = New System.Windows.Forms.Panel() -Me.GroupBox4 = New System.Windows.Forms.GroupBox() -Me.LBLCurrentDomme = New System.Windows.Forms.Label() -Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() -Me.BTNDomChangeRandom = New System.Windows.Forms.Button() -Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() -Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() -Me.BTNDomChangeDomme = New System.Windows.Forms.Button() -Me.Button15 = New System.Windows.Forms.Button() -Me.Button16 = New System.Windows.Forms.Button() -Me.Label121 = New System.Windows.Forms.Label() -Me.Label122 = New System.Windows.Forms.Label() -Me.GBGlitterD = New System.Windows.Forms.GroupBox() -Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() -Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() -Me.BTNGlitterD = New System.Windows.Forms.Button() -Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() -Me.LBLGlitterSlider = New System.Windows.Forms.Label() -Me.CBCustom2 = New System.Windows.Forms.CheckBox() -Me.GlitterSlider = New System.Windows.Forms.TrackBar() -Me.CBCustom1 = New System.Windows.Forms.CheckBox() -Me.CBDaily = New System.Windows.Forms.CheckBox() -Me.CBTrivia = New System.Windows.Forms.CheckBox() -Me.TBGlitterShortName = New System.Windows.Forms.TextBox() -Me.CBEgotist = New System.Windows.Forms.CheckBox() -Me.CBTease = New System.Windows.Forms.CheckBox() -Me.GlitterAV = New System.Windows.Forms.PictureBox() -Me.GBGlitter1 = New System.Windows.Forms.GroupBox() -Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() -Me.BtnContact1ImageDir = New System.Windows.Forms.Button() -Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() -Me.BTNGlitter1 = New System.Windows.Forms.Button() -Me.LBLGlitterNC1 = New System.Windows.Forms.Label() -Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() -Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() -Me.CBGlitter1 = New System.Windows.Forms.CheckBox() -Me.TBGlitter1 = New System.Windows.Forms.TextBox() -Me.GlitterAV1 = New System.Windows.Forms.PictureBox() -Me.GBGlitter3 = New System.Windows.Forms.GroupBox() -Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() -Me.BtnContact3ImageDir = New System.Windows.Forms.Button() -Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() -Me.BTNGlitter3 = New System.Windows.Forms.Button() -Me.LBLGlitterNC3 = New System.Windows.Forms.Label() -Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() -Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() -Me.CBGlitter3 = New System.Windows.Forms.CheckBox() -Me.TBGlitter3 = New System.Windows.Forms.TextBox() -Me.GlitterAV3 = New System.Windows.Forms.PictureBox() -Me.GBGlitter2 = New System.Windows.Forms.GroupBox() -Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() -Me.BtnContact2ImageDir = New System.Windows.Forms.Button() -Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() -Me.BTNGlitter2 = New System.Windows.Forms.Button() -Me.LBLGlitterNC2 = New System.Windows.Forms.Label() -Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() -Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() -Me.CBGlitter2 = New System.Windows.Forms.CheckBox() -Me.TBGlitter2 = New System.Windows.Forms.TextBox() -Me.GlitterAV2 = New System.Windows.Forms.PictureBox() -Me.TpGames = New System.Windows.Forms.TabPage() -Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() -Me.LblCardsSetupNote = New System.Windows.Forms.Label() -Me.CBGameSounds = New System.Windows.Forms.CheckBox() -Me.GbxCardsGold = New System.Windows.Forms.GroupBox() -Me.GN6 = New System.Windows.Forms.TextBox() -Me.GP6 = New System.Windows.Forms.PictureBox() -Me.GN2 = New System.Windows.Forms.TextBox() -Me.GP2 = New System.Windows.Forms.PictureBox() -Me.GP5 = New System.Windows.Forms.PictureBox() -Me.GN1 = New System.Windows.Forms.TextBox() -Me.GP1 = New System.Windows.Forms.PictureBox() -Me.GN5 = New System.Windows.Forms.TextBox() -Me.GN3 = New System.Windows.Forms.TextBox() -Me.GP3 = New System.Windows.Forms.PictureBox() -Me.GP4 = New System.Windows.Forms.PictureBox() -Me.GN4 = New System.Windows.Forms.TextBox() -Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() -Me.CardBack = New System.Windows.Forms.PictureBox() -Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() -Me.BN6 = New System.Windows.Forms.TextBox() -Me.BN3 = New System.Windows.Forms.TextBox() -Me.BP3 = New System.Windows.Forms.PictureBox() -Me.BP6 = New System.Windows.Forms.PictureBox() -Me.BN2 = New System.Windows.Forms.TextBox() -Me.BN5 = New System.Windows.Forms.TextBox() -Me.BP5 = New System.Windows.Forms.PictureBox() -Me.BP2 = New System.Windows.Forms.PictureBox() -Me.BN1 = New System.Windows.Forms.TextBox() -Me.BN4 = New System.Windows.Forms.TextBox() -Me.BP4 = New System.Windows.Forms.PictureBox() -Me.BP1 = New System.Windows.Forms.PictureBox() -Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() -Me.SN6 = New System.Windows.Forms.TextBox() -Me.SP6 = New System.Windows.Forms.PictureBox() -Me.SN2 = New System.Windows.Forms.TextBox() -Me.SP2 = New System.Windows.Forms.PictureBox() -Me.SN1 = New System.Windows.Forms.TextBox() -Me.SP5 = New System.Windows.Forms.PictureBox() -Me.SP1 = New System.Windows.Forms.PictureBox() -Me.SN5 = New System.Windows.Forms.TextBox() -Me.SN3 = New System.Windows.Forms.TextBox() -Me.SN4 = New System.Windows.Forms.TextBox() -Me.SP3 = New System.Windows.Forms.PictureBox() -Me.SP4 = New System.Windows.Forms.PictureBox() -Me.TabPage6 = New System.Windows.Forms.TabPage() -Me.Panel10 = New System.Windows.Forms.Panel() -Me.TBWishlistComment = New System.Windows.Forms.TextBox() -Me.Label32 = New System.Windows.Forms.Label() -Me.TBWishlistItem = New System.Windows.Forms.TextBox() -Me.radioGold = New System.Windows.Forms.RadioButton() -Me.Label42 = New System.Windows.Forms.Label() -Me.radioSilver = New System.Windows.Forms.RadioButton() -Me.TBWishlistURL = New System.Windows.Forms.TextBox() -Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() -Me.Label48 = New System.Windows.Forms.Label() -Me.Label73 = New System.Windows.Forms.Label() -Me.Label107 = New System.Windows.Forms.Label() -Me.BTNWishlistCreate = New System.Windows.Forms.Button() -Me.Label18 = New System.Windows.Forms.Label() -Me.PNLWishList = New System.Windows.Forms.Panel() -Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() -Me.LBLWishListText = New System.Windows.Forms.Label() -Me.LBLWishlistCost = New System.Windows.Forms.Label() -Me.WishlistCostGold = New System.Windows.Forms.PictureBox() -Me.LBLWishListName = New System.Windows.Forms.Label() -Me.WishlistPreview = New System.Windows.Forms.PictureBox() -Me.TabPage26 = New System.Windows.Forms.TabPage() -Me.Panel12 = New System.Windows.Forms.Panel() -Me.GroupBox9 = New System.Windows.Forms.GroupBox() -Me.Button32 = New System.Windows.Forms.Button() -Me.Button31 = New System.Windows.Forms.Button() -Me.PictureBox10 = New System.Windows.Forms.PictureBox() -Me.GroupBox5 = New System.Windows.Forms.GroupBox() -Me.CBTransparentTime = New System.Windows.Forms.CheckBox() -Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() -Me.Label137 = New System.Windows.Forms.Label() -Me.Label138 = New System.Windows.Forms.Label() -Me.LBLDateBackColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor = New System.Windows.Forms.Label() -Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor2 = New System.Windows.Forms.Label() -Me.LBLChatTextColor = New System.Windows.Forms.Label() -Me.LBLBackColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor = New System.Windows.Forms.Label() -Me.LBLChatWindowColor = New System.Windows.Forms.Label() -Me.LBLBackColor = New System.Windows.Forms.Label() -Me.LBLChatTextColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor2 = New System.Windows.Forms.Label() -Me.GroupBox11 = New System.Windows.Forms.GroupBox() -Me.Label144 = New System.Windows.Forms.Label() -Me.GroupBox1 = New System.Windows.Forms.GroupBox() -Me.CBFlipBack = New System.Windows.Forms.CheckBox() -Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() -Me.Button17 = New System.Windows.Forms.Button() -Me.CBStretchBack = New System.Windows.Forms.CheckBox() -Me.Button18 = New System.Windows.Forms.Button() -Me.Label164 = New System.Windows.Forms.Label() -Me.TabPage4 = New System.Windows.Forms.TabPage() -Me.Panel6 = New System.Windows.Forms.Panel() -Me.GroupBox69 = New System.Windows.Forms.GroupBox() -Me.TypesSpeedVal = New System.Windows.Forms.Label() -Me.TypeSpeedLabel = New System.Windows.Forms.Label() -Me.TimedWriting = New System.Windows.Forms.CheckBox() -Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() -Me.GroupBox68 = New System.Windows.Forms.GroupBox() -Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() -Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() -Me.Label165 = New System.Windows.Forms.Label() -Me.Label166 = New System.Windows.Forms.Label() -Me.GroupBox67 = New System.Windows.Forms.GroupBox() -Me.Label161 = New System.Windows.Forms.Label() -Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() -Me.Label162 = New System.Windows.Forms.Label() -Me.Label163 = New System.Windows.Forms.Label() -Me.Label158 = New System.Windows.Forms.Label() -Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() -Me.Label159 = New System.Windows.Forms.Label() -Me.Label160 = New System.Windows.Forms.Label() -Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() -Me.Label119 = New System.Windows.Forms.Label() -Me.Label157 = New System.Windows.Forms.Label() -Me.Label151 = New System.Windows.Forms.Label() -Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() -Me.Label154 = New System.Windows.Forms.Label() -Me.Label155 = New System.Windows.Forms.Label() -Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() -Me.Label146 = New System.Windows.Forms.Label() -Me.Label149 = New System.Windows.Forms.Label() -Me.GroupBox10 = New System.Windows.Forms.GroupBox() -Me.Label112 = New System.Windows.Forms.Label() -Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() -Me.Label6 = New System.Windows.Forms.Label() -Me.GroupBox57 = New System.Windows.Forms.GroupBox() -Me.Label139 = New System.Windows.Forms.Label() -Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() -Me.LBLVtf = New System.Windows.Forms.Label() -Me.LBLStf = New System.Windows.Forms.Label() -Me.SliderSTF = New System.Windows.Forms.TrackBar() -Me.TauntSlider = New System.Windows.Forms.TrackBar() -Me.Label106 = New System.Windows.Forms.Label() -Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() -Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() -Me.Label103 = New System.Windows.Forms.Label() -Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() -Me.Label105 = New System.Windows.Forms.Label() -Me.Label101 = New System.Windows.Forms.Label() -Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() -Me.Label102 = New System.Windows.Forms.Label() -Me.Label97 = New System.Windows.Forms.Label() -Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() -Me.Label99 = New System.Windows.Forms.Label() -Me.Label96 = New System.Windows.Forms.Label() -Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() -Me.Label95 = New System.Windows.Forms.Label() -Me.Label49 = New System.Windows.Forms.Label() -Me.Label141 = New System.Windows.Forms.Label() -Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() -Me.Label90 = New System.Windows.Forms.Label() -Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() -Me.Label91 = New System.Windows.Forms.Label() -Me.Label92 = New System.Windows.Forms.Label() -Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() -Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() -Me.CBRangeRuin = New System.Windows.Forms.CheckBox() -Me.GroupBox17 = New System.Windows.Forms.GroupBox() -Me.GroupBox19 = New System.Windows.Forms.GroupBox() -Me.Label110 = New System.Windows.Forms.Label() -Me.Label111 = New System.Windows.Forms.Label() -Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() -Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() -Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() -Me.Label26 = New System.Windows.Forms.Label() -Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() -Me.Label28 = New System.Windows.Forms.Label() -Me.Label27 = New System.Windows.Forms.Label() -Me.Label29 = New System.Windows.Forms.Label() -Me.GroupBox18 = New System.Windows.Forms.GroupBox() -Me.Label108 = New System.Windows.Forms.Label() -Me.Label109 = New System.Windows.Forms.Label() -Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() -Me.CBCensorConstant = New System.Windows.Forms.CheckBox() -Me.Label25 = New System.Windows.Forms.Label() -Me.Label20 = New System.Windows.Forms.Label() -Me.Label19 = New System.Windows.Forms.Label() -Me.Label24 = New System.Windows.Forms.Label() -Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() -Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() -Me.Label89 = New System.Windows.Forms.Label() -Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() -Me.Label86 = New System.Windows.Forms.Label() -Me.Label82 = New System.Windows.Forms.Label() -Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() -Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() -Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() -Me.PictureBox8 = New System.Windows.Forms.PictureBox() -Me.Label38 = New System.Windows.Forms.Label() -Me.TabPage13 = New System.Windows.Forms.TabPage() -Me.TabControl2 = New System.Windows.Forms.TabControl() -Me.TabPage27 = New System.Windows.Forms.TabPage() -Me.TBPlaylistSave = New System.Windows.Forms.TextBox() -Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() -Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() -Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() -Me.BTNPlaylistEnd = New System.Windows.Forms.Button() -Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() -Me.BTNPlaylistSave = New System.Windows.Forms.Button() -Me.Button7 = New System.Windows.Forms.Button() -Me.WBPlaylist = New System.Windows.Forms.WebBrowser() -Me.Label80 = New System.Windows.Forms.Label() -Me.LBLPlaylIstLink = New System.Windows.Forms.Label() -Me.LBLPlaylistModule = New System.Windows.Forms.Label() -Me.LBLPLaylistStart = New System.Windows.Forms.Label() -Me.LBPlaylist = New System.Windows.Forms.ListBox() -Me.TabPage14 = New System.Windows.Forms.TabPage() -Me.LBLKeywordPreview = New System.Windows.Forms.Label() -Me.Label88 = New System.Windows.Forms.Label() -Me.TBKeywordPreview = New System.Windows.Forms.TextBox() -Me.Button37 = New System.Windows.Forms.Button() -Me.Button50 = New System.Windows.Forms.Button() -Me.Button22 = New System.Windows.Forms.Button() -Me.TBKeyWords = New System.Windows.Forms.TextBox() -Me.LBKeyWords = New System.Windows.Forms.ListBox() -Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() -Me.TabPage24 = New System.Windows.Forms.TabPage() -Me.Button9 = New System.Windows.Forms.Button() -Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() -Me.Button4 = New System.Windows.Forms.Button() -Me.Button5 = New System.Windows.Forms.Button() -Me.TBResponses = New System.Windows.Forms.TextBox() -Me.LBResponses = New System.Windows.Forms.ListBox() -Me.RTBResponses = New System.Windows.Forms.RichTextBox() -Me.TabPage8 = New System.Windows.Forms.TabPage() -Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() -Me.GroupBox29 = New System.Windows.Forms.GroupBox() -Me.Label51 = New System.Windows.Forms.Label() -Me.BTNVideoModClear = New System.Windows.Forms.Button() -Me.GroupBox28 = New System.Windows.Forms.GroupBox() -Me.CBVTType = New System.Windows.Forms.ComboBox() -Me.BTNVideoModLoad = New System.Windows.Forms.Button() -Me.GroupBox30 = New System.Windows.Forms.GroupBox() -Me.LBVidScript = New System.Windows.Forms.ListBox() -Me.BTNVideoModSave = New System.Windows.Forms.Button() -Me.TabPage15 = New System.Windows.Forms.TabPage() -Me.Label62 = New System.Windows.Forms.Label() -Me.Label61 = New System.Windows.Forms.Label() -Me.Label57 = New System.Windows.Forms.Label() -Me.Label58 = New System.Windows.Forms.Label() -Me.Label60 = New System.Windows.Forms.Label() -Me.TBGlitModFileName = New System.Windows.Forms.TextBox() -Me.GroupBox34 = New System.Windows.Forms.GroupBox() -Me.Label52 = New System.Windows.Forms.Label() -Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() -Me.Button26 = New System.Windows.Forms.Button() -Me.Label56 = New System.Windows.Forms.Label() -Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() -Me.LBGlitModScripts = New System.Windows.Forms.ListBox() -Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() -Me.LBLGlitModDomType = New System.Windows.Forms.Label() -Me.Button29 = New System.Windows.Forms.Button() -Me.CBGlitModType = New System.Windows.Forms.ComboBox() -Me.Label59 = New System.Windows.Forms.Label() -Me.Label50 = New System.Windows.Forms.Label() -Me.TabPage25 = New System.Windows.Forms.TabPage() -Me.Panel11 = New System.Windows.Forms.Panel() -Me.GroupBox8 = New System.Windows.Forms.GroupBox() -Me.CBOutputErrors = New System.Windows.Forms.CheckBox() -Me.GroupBox62 = New System.Windows.Forms.GroupBox() -Me.RBGerman = New System.Windows.Forms.RadioButton() -Me.RBEnglish = New System.Windows.Forms.RadioButton() -Me.GroupBox33 = New System.Windows.Forms.GroupBox() -Me.BTNOfflineMode = New System.Windows.Forms.Button() -Me.LBLOfflineMode = New System.Windows.Forms.Label() -Me.Label140 = New System.Windows.Forms.Label() -Me.Button11 = New System.Windows.Forms.Button() -Me.LBLChastityState = New System.Windows.Forms.Label() -Me.Label120 = New System.Windows.Forms.Label() -Me.GroupBox27 = New System.Windows.Forms.GroupBox() -Me.Button6 = New System.Windows.Forms.Button() -Me.LBLSesSpace = New System.Windows.Forms.Label() -Me.Button3 = New System.Windows.Forms.Button() -Me.LBLSesFiles = New System.Windows.Forms.Label() -Me.Label125 = New System.Windows.Forms.Label() -Me.Label124 = New System.Windows.Forms.Label() -Me.GroupBox20 = New System.Windows.Forms.GroupBox() -Me.Label85 = New System.Windows.Forms.Label() -Me.TBURLFileReplace = New System.Windows.Forms.TextBox() -Me.Label53 = New System.Windows.Forms.Label() -Me.Label8 = New System.Windows.Forms.Label() -Me.Button1 = New System.Windows.Forms.Button() -Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() -Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() -Me.Label117 = New System.Windows.Forms.Label() -Me.Label116 = New System.Windows.Forms.Label() -Me.PBCurrent = New System.Windows.Forms.ProgressBar() -Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() -Me.PBMaintenance = New System.Windows.Forms.ProgressBar() -Me.LBLMaintenance = New System.Windows.Forms.Label() -Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() -Me.GroupBox15 = New System.Windows.Forms.GroupBox() -Me.Label115 = New System.Windows.Forms.Label() -Me.TBWebStop = New System.Windows.Forms.TextBox() -Me.TBWebStart = New System.Windows.Forms.TextBox() -Me.Label114 = New System.Windows.Forms.Label() -Me.WebToy = New System.Windows.Forms.WebBrowser() -Me.PictureBox9 = New System.Windows.Forms.PictureBox() -Me.Label148 = New System.Windows.Forms.Label() -Me.TabPage28 = New System.Windows.Forms.TabPage() -Me.TabControl3 = New System.Windows.Forms.TabControl() -Me.TabPage29 = New System.Windows.Forms.TabPage() -Me.Label143 = New System.Windows.Forms.Label() -Me.LBLDebugScriptTime = New System.Windows.Forms.Label() -Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() -Me.GroupBox26 = New System.Windows.Forms.GroupBox() -Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() -Me.Button19 = New System.Windows.Forms.Button() -Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() -Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() -Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() -Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() -Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() -Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() -Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() -Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() -Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() -Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() -Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() -Me.Label145 = New System.Windows.Forms.Label() -Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() -Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() -Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() -Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() -Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() -Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() -Me.Label142 = New System.Windows.Forms.Label() -Me.Label150 = New System.Windows.Forms.Label() -Me.Label152 = New System.Windows.Forms.Label() -Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() -Me.Label147 = New System.Windows.Forms.Label() -Me.TabPage30 = New System.Windows.Forms.TabPage() -Me.Button33 = New System.Windows.Forms.Button() -Me.Button24 = New System.Windows.Forms.Button() -Me.TabPage5 = New System.Windows.Forms.TabPage() -Me.Panel5 = New System.Windows.Forms.Panel() -Me.Label130 = New System.Windows.Forms.Label() -Me.Label123 = New System.Windows.Forms.Label() -Me.Label69 = New System.Windows.Forms.Label() -Me.Label113 = New System.Windows.Forms.Label() -Me.Label40 = New System.Windows.Forms.Label() -Me.Label35 = New System.Windows.Forms.Label() -Me.Label33 = New System.Windows.Forms.Label() -Me.Label17 = New System.Windows.Forms.Label() -Me.Label3 = New System.Windows.Forms.Label() -Me.PictureBox3 = New System.Windows.Forms.PictureBox() -Me.Label41 = New System.Windows.Forms.Label() -Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() -Me.GroupBox47 = New System.Windows.Forms.GroupBox() -Me.GroupBox41 = New System.Windows.Forms.GroupBox() -Me.Button34 = New System.Windows.Forms.Button() -Me.GroupBox40 = New System.Windows.Forms.GroupBox() -Me.GroupBox44 = New System.Windows.Forms.GroupBox() -Me.Label100 = New System.Windows.Forms.Label() -Me.GroupBox6 = New System.Windows.Forms.GroupBox() -Me.Label4 = New System.Windows.Forms.Label() -Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() -Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() -Me.Label94 = New System.Windows.Forms.Label() -Me.LBLLastRuined = New System.Windows.Forms.Label() -Me.Label65 = New System.Windows.Forms.Label() -Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() -Me.LBLLastOrgasm = New System.Windows.Forms.Label() -Me.Label14 = New System.Windows.Forms.Label() -Me.Label13 = New System.Windows.Forms.Label() -Me.Label1 = New System.Windows.Forms.Label() -Me.GroupBox21 = New System.Windows.Forms.GroupBox() -Me.Label153 = New System.Windows.Forms.Label() -Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() -Me.Label156 = New System.Windows.Forms.Label() -Me.GroupBox12 = New System.Windows.Forms.GroupBox() -Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() -Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() -Me.GetColor = New System.Windows.Forms.ColorDialog() -Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() -Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() -Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() -Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() -Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() -Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() -Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) -Me.GroupBox65 = New System.Windows.Forms.GroupBox() -Me.Label136 = New System.Windows.Forms.Label() -Me.Label134 = New System.Windows.Forms.Label() -Me.Label132 = New System.Windows.Forms.Label() -Me.TrackBar1 = New System.Windows.Forms.TrackBar() -Me.ComboBox1 = New System.Windows.Forms.ComboBox() -Me.CheckBox1 = New System.Windows.Forms.CheckBox() -Me.Label135 = New System.Windows.Forms.Label() -Me.TrackBar2 = New System.Windows.Forms.TrackBar() -Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() -Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.Label87 = New System.Windows.Forms.Label() -Me.TBURLFileWith = New System.Windows.Forms.TextBox() -Me.Label118 = New System.Windows.Forms.Label() -Me.BTNURLFileReplace = New System.Windows.Forms.Button() -Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() -Me.SettingsPanel.SuspendLayout -Me.SettingsTabs.SuspendLayout -Me.TabPage1.SuspendLayout -Me.PNLGeneralSettings.SuspendLayout -Me.GroupBox3.SuspendLayout -Me.GroupBox2.SuspendLayout -Me.GroupBox64.SuspendLayout -Me.GBDommeImages.SuspendLayout -CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralTextToSpeech.SuspendLayout -CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBSafeword.SuspendLayout -Me.GBGeneralSystem.SuspendLayout -Me.GBGeneralImages.SuspendLayout -CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralSettings.SuspendLayout -Me.GBSubFont.SuspendLayout -CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDommeFont.SuspendLayout -CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage2.SuspendLayout -Me.Panel3.SuspendLayout -Me.GBGiveUp.SuspendLayout -CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomTypingStyle.SuspendLayout -CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox63.SuspendLayout -Me.GBDomRanges.SuspendLayout -CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomStats.SuspendLayout -CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomPersonality.SuspendLayout -Me.GBDomOrgasms.SuspendLayout -CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomPetNames.SuspendLayout -Me.TabPage10.SuspendLayout -Me.Panel2.SuspendLayout -Me.GroupBox22.SuspendLayout -CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox45.SuspendLayout -CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox35.SuspendLayout -Me.GroupBox39.SuspendLayout -Me.GroupBox38.SuspendLayout -Me.GroupBox37.SuspendLayout -Me.GroupBox36.SuspendLayout -Me.GroupBox13.SuspendLayout -Me.GroupBox7.SuspendLayout -CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox32.SuspendLayout -CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage16.SuspendLayout -Me.Panel9.SuspendLayout -Me.GroupBox31.SuspendLayout -Me.TCScripts.SuspendLayout -Me.TabPage21.SuspendLayout -Me.TabPage17.SuspendLayout -Me.TabPage18.SuspendLayout -Me.TabPage19.SuspendLayout -Me.GroupBox42.SuspendLayout -CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox43.SuspendLayout -Me.TabPage7.SuspendLayout -Me.TabControl4.SuspendLayout -Me.TpImagesUrlFiles.SuspendLayout -Me.GroupBox66.SuspendLayout -CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).BeginInit -Me.TpImagesGenre.SuspendLayout -Me.GrbImageUrlFiles.SuspendLayout -Me.TlpImageUrls.SuspendLayout -Me.GbxImagesGenre.SuspendLayout -Me.TableLayoutPanel1.SuspendLayout -Me.TabPage33.SuspendLayout -Me.TabControl5.SuspendLayout -Me.TabPage34.SuspendLayout -CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage35.SuspendLayout -Me.GroupBox55.SuspendLayout -Me.GroupBox53.SuspendLayout -Me.GroupBox49.SuspendLayout -Me.GroupBox46.SuspendLayout -Me.GroupBox54.SuspendLayout -Me.GroupBox51.SuspendLayout -Me.GroupBox50.SuspendLayout -Me.GroupBox48.SuspendLayout -Me.TabPage11.SuspendLayout -Me.Panel7.SuspendLayout -CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.TpVideoSettings.SuspendLayout -Me.PnlVideoSettings.SuspendLayout -CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxVideoGeneralD.SuspendLayout -Me.GbxVideoSpecialD.SuspendLayout -Me.GbxVideoGenreD.SuspendLayout -Me.GbxVideoDescription.SuspendLayout -Me.GbxVideoGeneral.SuspendLayout -Me.GbxVideoSpecial.SuspendLayout -Me.GbxVideoGenre.SuspendLayout -Me.TabPage20.SuspendLayout -Me.TabControl1.SuspendLayout -Me.TabPage22.SuspendLayout -Me.PNLGlitter.SuspendLayout -Me.GroupBox4.SuspendLayout -Me.GBGlitterD.SuspendLayout -Me.GrbGlitterfeed.SuspendLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGlitter1.SuspendLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGlitter3.SuspendLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGlitter2.SuspendLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit -Me.TpGames.SuspendLayout -Me.GbxCardsGold.SuspendLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxCardsBackground.SuspendLayout -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxCardsBronze.SuspendLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxCardsSilver.SuspendLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage6.SuspendLayout -Me.Panel10.SuspendLayout -CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit -Me.PNLWishList.SuspendLayout -CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage26.SuspendLayout -Me.Panel12.SuspendLayout -Me.GroupBox9.SuspendLayout -CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox5.SuspendLayout -Me.GroupBox11.SuspendLayout -Me.GroupBox1.SuspendLayout -CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage4.SuspendLayout -Me.Panel6.SuspendLayout -Me.GroupBox69.SuspendLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox68.SuspendLayout -CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox67.SuspendLayout -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox10.SuspendLayout -CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox57.SuspendLayout -CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBRangeRuinChance.SuspendLayout -CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox17.SuspendLayout -Me.GroupBox19.SuspendLayout -CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox18.SuspendLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBRangeOrgasmChance.SuspendLayout -CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage13.SuspendLayout -Me.TabControl2.SuspendLayout -Me.TabPage27.SuspendLayout -Me.TabPage14.SuspendLayout -Me.TabPage24.SuspendLayout -Me.TabPage8.SuspendLayout -Me.GroupBox29.SuspendLayout -Me.GroupBox28.SuspendLayout -Me.GroupBox30.SuspendLayout -Me.TabPage15.SuspendLayout -Me.GroupBox34.SuspendLayout -Me.TabPage25.SuspendLayout -Me.Panel11.SuspendLayout -Me.GroupBox8.SuspendLayout -Me.GroupBox62.SuspendLayout -Me.GroupBox33.SuspendLayout -Me.GroupBox27.SuspendLayout -Me.GroupBox20.SuspendLayout -Me.GroupBox15.SuspendLayout -CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage28.SuspendLayout -Me.TabControl3.SuspendLayout -Me.TabPage29.SuspendLayout -Me.GroupBox26.SuspendLayout -Me.TabPage30.SuspendLayout -Me.TabPage5.SuspendLayout -Me.Panel5.SuspendLayout -CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox47.SuspendLayout -Me.GroupBox41.SuspendLayout -Me.GroupBox44.SuspendLayout -Me.GroupBox6.SuspendLayout -Me.GroupBox21.SuspendLayout -Me.GroupBox12.SuspendLayout -Me.GroupBox65.SuspendLayout -CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit -Me.SuspendLayout -' -'SettingsPanel -' -Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray -Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SettingsPanel.Controls.Add(Me.SettingsTabs) -Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) -Me.SettingsPanel.Name = "SettingsPanel" -Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) -Me.SettingsPanel.TabIndex = 94 -' -'SettingsTabs -' -Me.SettingsTabs.Controls.Add(Me.TabPage1) -Me.SettingsTabs.Controls.Add(Me.TabPage2) -Me.SettingsTabs.Controls.Add(Me.TabPage10) -Me.SettingsTabs.Controls.Add(Me.TabPage16) -Me.SettingsTabs.Controls.Add(Me.TabPage7) -Me.SettingsTabs.Controls.Add(Me.TabPage33) -Me.SettingsTabs.Controls.Add(Me.TabPage11) -Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) -Me.SettingsTabs.Controls.Add(Me.TabPage20) -Me.SettingsTabs.Controls.Add(Me.TabPage26) -Me.SettingsTabs.Controls.Add(Me.TabPage4) -Me.SettingsTabs.Controls.Add(Me.TabPage13) -Me.SettingsTabs.Controls.Add(Me.TabPage25) -Me.SettingsTabs.Controls.Add(Me.TabPage28) -Me.SettingsTabs.Controls.Add(Me.TabPage5) -Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) -Me.SettingsTabs.Name = "SettingsTabs" -Me.SettingsTabs.SelectedIndex = 0 -Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) -Me.SettingsTabs.TabIndex = 0 -' -'TabPage1 -' -Me.TabPage1.BackColor = System.Drawing.Color.Silver -Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) -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(720, 448) -Me.TabPage1.TabIndex = 0 -Me.TabPage1.Text = "General" -' -'PNLGeneralSettings -' -Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray -Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PNLGeneralSettings.Controls.Add(Me.GroupBox3) -Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) -Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) -Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) -Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) -Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) -Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) -Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) -Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) -Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) -Me.PNLGeneralSettings.Name = "PNLGeneralSettings" -Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) -Me.PNLGeneralSettings.TabIndex = 0 -' -'GroupBox3 -' -Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) -Me.GroupBox3.Location = New System.Drawing.Point(7, 365) -Me.GroupBox3.Name = "GroupBox3" -Me.GroupBox3.Size = New System.Drawing.Size(211, 65) -Me.GroupBox3.TabIndex = 184 -Me.GroupBox3.TabStop = false -Me.GroupBox3.Text = "System Files" -' -'BTNValidateSystemFiles -' -Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray -Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black -Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) -Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" -Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) -Me.BTNValidateSystemFiles.TabIndex = 183 -Me.BTNValidateSystemFiles.Text = "Validate All System Files" -Me.BTNValidateSystemFiles.UseVisualStyleBackColor = false -' -'GroupBox2 -' -Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) -Me.GroupBox2.Controls.Add(Me.CBRandomDomme) -Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) -Me.GroupBox2.Location = New System.Drawing.Point(224, 313) -Me.GroupBox2.Name = "GroupBox2" -Me.GroupBox2.Size = New System.Drawing.Size(210, 117) -Me.GroupBox2.TabIndex = 183 -Me.GroupBox2.TabStop = false -Me.GroupBox2.Text = "Random Domme" -' -'TbxRandomImageDir -' -Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 50) -Me.TbxRandomImageDir.Name = "TbxRandomImageDir" -Me.TbxRandomImageDir.ReadOnly = true -Me.TbxRandomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxRandomImageDir.TabIndex = 185 -Me.TbxRandomImageDir.Text = "No Path Selected" -' -'CBRandomDomme -' -Me.CBRandomDomme.AutoSize = true -Me.CBRandomDomme.Location = New System.Drawing.Point(10, 83) -Me.CBRandomDomme.Name = "CBRandomDomme" -Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) -Me.CBRandomDomme.TabIndex = 184 -Me.CBRandomDomme.Text = "Always Start With Random Domme" -Me.CBRandomDomme.UseVisualStyleBackColor = true -' -'BtnRandomImageDir -' -Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDir.Location = New System.Drawing.Point(10, 21) -Me.BtnRandomImageDir.Name = "BtnRandomImageDir" -Me.BtnRandomImageDir.Size = New System.Drawing.Size(190, 22) -Me.BtnRandomImageDir.TabIndex = 182 -Me.BtnRandomImageDir.Text = "Set Random Domme Directory" -Me.BtnRandomImageDir.UseVisualStyleBackColor = false -' -'BtnImportSettings -' -Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent -Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.BtnImportSettings.FlatAppearance.BorderSize = 0 -Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black -Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) -Me.BtnImportSettings.Name = "BtnImportSettings" -Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) -Me.BtnImportSettings.TabIndex = 158 -Me.BtnImportSettings.UseVisualStyleBackColor = false -' -'LblImportSettings -' -Me.LblImportSettings.AutoSize = true -Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblImportSettings.ForeColor = System.Drawing.Color.Black -Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) -Me.LblImportSettings.Name = "LblImportSettings" -Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) -Me.LblImportSettings.TabIndex = 159 -Me.LblImportSettings.Text = "import" -Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox64 -' -Me.GroupBox64.BackColor = System.Drawing.Color.LightGray -Me.GroupBox64.Controls.Add(Me.CBMuteMedia) -Me.GroupBox64.ForeColor = System.Drawing.Color.Black -Me.GroupBox64.Location = New System.Drawing.Point(440, 258) -Me.GroupBox64.Name = "GroupBox64" -Me.GroupBox64.Size = New System.Drawing.Size(259, 49) -Me.GroupBox64.TabIndex = 157 -Me.GroupBox64.TabStop = false -Me.GroupBox64.Text = "Media Options" -' -'CBMuteMedia -' -Me.CBMuteMedia.AutoSize = true -Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia -Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black -Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) -Me.CBMuteMedia.Name = "CBMuteMedia" -Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) -Me.CBMuteMedia.TabIndex = 6 -Me.CBMuteMedia.TabStop = false -Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" -Me.CBMuteMedia.UseVisualStyleBackColor = true -' -'GBDommeImages -' -Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray -Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) -Me.GBDommeImages.Controls.Add(Me.teaseRadio) -Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) -Me.GBDommeImages.Controls.Add(Me.offRadio) -Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) -Me.GBDommeImages.Controls.Add(Me.timedRadio) -Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) -Me.GBDommeImages.ForeColor = System.Drawing.Color.Black -Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) -Me.GBDommeImages.Name = "GBDommeImages" -Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) -Me.GBDommeImages.TabIndex = 156 -Me.GBDommeImages.TabStop = false -Me.GBDommeImages.Text = "Slideshow Options" -' -'slideshowNumBox -' -Me.slideshowNumBox.BackColor = System.Drawing.Color.White -Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black -Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) -Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) -Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.slideshowNumBox.Name = "slideshowNumBox" -Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) -Me.slideshowNumBox.TabIndex = 20 -Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) -' -'teaseRadio -' -Me.teaseRadio.AutoSize = true -Me.teaseRadio.Checked = true -Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.teaseRadio.ForeColor = System.Drawing.Color.Black -Me.teaseRadio.Location = New System.Drawing.Point(149, 21) -Me.teaseRadio.Name = "teaseRadio" -Me.teaseRadio.Size = New System.Drawing.Size(55, 17) -Me.teaseRadio.TabIndex = 21 -Me.teaseRadio.TabStop = true -Me.teaseRadio.Text = "Tease" -Me.teaseRadio.UseVisualStyleBackColor = true -' -'CBNewSlideshow -' -Me.CBNewSlideshow.AutoSize = true -Me.CBNewSlideshow.Checked = true -Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black -Me.CBNewSlideshow.Location = New System.Drawing.Point(10, 100) -Me.CBNewSlideshow.Name = "CBNewSlideshow" -Me.CBNewSlideshow.Size = New System.Drawing.Size(187, 17) -Me.CBNewSlideshow.TabIndex = 18 -Me.CBNewSlideshow.TabStop = false -Me.CBNewSlideshow.Text = "Load New Slideshow When Done" -Me.CBNewSlideshow.UseVisualStyleBackColor = true -' -'offRadio -' -Me.offRadio.AutoSize = true -Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.offRadio.ForeColor = System.Drawing.Color.Black -Me.offRadio.Location = New System.Drawing.Point(6, 21) -Me.offRadio.Name = "offRadio" -Me.offRadio.Size = New System.Drawing.Size(60, 17) -Me.offRadio.TabIndex = 18 -Me.offRadio.Text = "Manual" -Me.offRadio.UseVisualStyleBackColor = true -' -'BTNDomImageDir -' -Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black -Me.BTNDomImageDir.Location = New System.Drawing.Point(10, 45) -Me.BTNDomImageDir.Name = "BTNDomImageDir" -Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) -Me.BTNDomImageDir.TabIndex = 17 -Me.BTNDomImageDir.Text = "Set Domme Images Directory" -Me.BTNDomImageDir.UseVisualStyleBackColor = false -' -'timedRadio -' -Me.timedRadio.AutoSize = true -Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.timedRadio.ForeColor = System.Drawing.Color.Black -Me.timedRadio.Location = New System.Drawing.Point(72, 23) -Me.timedRadio.Name = "timedRadio" -Me.timedRadio.Size = New System.Drawing.Size(14, 13) -Me.timedRadio.TabIndex = 19 -Me.timedRadio.UseVisualStyleBackColor = true -' -'TbxDomImageDir -' -Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) -Me.TbxDomImageDir.Name = "TbxDomImageDir" -Me.TbxDomImageDir.ReadOnly = true -Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxDomImageDir.TabIndex = 0 -Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir -' -'GBGeneralTextToSpeech -' -Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray -Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) -Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) -Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) -Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) -Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) -Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) -Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) -Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) -Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black -Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) -Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" -Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) -Me.GBGeneralTextToSpeech.TabIndex = 0 -Me.GBGeneralTextToSpeech.TabStop = false -Me.GBGeneralTextToSpeech.Text = "Text to Speech" -' -'LBLVRate -' -Me.LBLVRate.Location = New System.Drawing.Point(202, 52) -Me.LBLVRate.Name = "LBLVRate" -Me.LBLVRate.Size = New System.Drawing.Size(45, 13) -Me.LBLVRate.TabIndex = 158 -Me.LBLVRate.Text = "100" -Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'Label93 -' -Me.Label93.AutoSize = true -Me.Label93.Location = New System.Drawing.Point(141, 52) -Me.Label93.Name = "Label93" -Me.Label93.Size = New System.Drawing.Size(33, 13) -Me.Label93.TabIndex = 157 -Me.Label93.Text = "Rate:" -' -'LBLVVolume -' -Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) -Me.LBLVVolume.Name = "LBLVVolume" -Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) -Me.LBLVVolume.TabIndex = 33 -Me.LBLVVolume.Text = "100" -Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'Label68 -' -Me.Label68.AutoSize = true -Me.Label68.Location = New System.Drawing.Point(14, 52) -Me.Label68.Name = "Label68" -Me.Label68.Size = New System.Drawing.Size(45, 13) -Me.Label68.TabIndex = 32 -Me.Label68.Text = "Volume:" -' -'SliderVRate -' -Me.SliderVRate.Location = New System.Drawing.Point(133, 68) -Me.SliderVRate.Minimum = -10 -Me.SliderVRate.Name = "SliderVRate" -Me.SliderVRate.Size = New System.Drawing.Size(120, 45) -Me.SliderVRate.TabIndex = 31 -' -'SliderVVolume -' -Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) -Me.SliderVVolume.Maximum = 100 -Me.SliderVVolume.Name = "SliderVVolume" -Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) -Me.SliderVVolume.TabIndex = 30 -Me.SliderVVolume.Value = 50 -' -'TTSCheckBox -' -Me.TTSCheckBox.AutoSize = true -Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black -Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) -Me.TTSCheckBox.Name = "TTSCheckBox" -Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) -Me.TTSCheckBox.TabIndex = 28 -Me.TTSCheckBox.TabStop = false -Me.TTSCheckBox.Text = "Enable" -Me.TTSCheckBox.UseVisualStyleBackColor = true -' -'TTSComboBox -' -Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window -Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText -Me.TTSComboBox.FormattingEnabled = true -Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) -Me.TTSComboBox.Name = "TTSComboBox" -Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) -Me.TTSComboBox.TabIndex = 29 -Me.TTSComboBox.TabStop = false -' -'GBSafeword -' -Me.GBSafeword.BackColor = System.Drawing.Color.LightGray -Me.GBSafeword.Controls.Add(Me.LBLSafeword) -Me.GBSafeword.Controls.Add(Me.TBSafeword) -Me.GBSafeword.ForeColor = System.Drawing.Color.Black -Me.GBSafeword.Location = New System.Drawing.Point(440, 179) -Me.GBSafeword.Name = "GBSafeword" -Me.GBSafeword.Size = New System.Drawing.Size(259, 74) -Me.GBSafeword.TabIndex = 0 -Me.GBSafeword.TabStop = false -Me.GBSafeword.Text = "Safeword" -' -'LBLSafeword -' -Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) -Me.LBLSafeword.Name = "LBLSafeword" -Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) -Me.LBLSafeword.TabIndex = 0 -Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able "& _ - "to continue." -Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBSafeword -' -Me.TBSafeword.Location = New System.Drawing.Point(17, 19) -Me.TBSafeword.Name = "TBSafeword" -Me.TBSafeword.Size = New System.Drawing.Size(225, 20) -Me.TBSafeword.TabIndex = 27 -Me.TBSafeword.Text = "red" -Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GBGeneralSystem -' -Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) -Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) -Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) -Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) -Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) -Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) -Me.GBGeneralSystem.Name = "GBGeneralSystem" -Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) -Me.GBGeneralSystem.TabIndex = 0 -Me.GBGeneralSystem.TabStop = false -Me.GBGeneralSystem.Text = "System" -' -'CBAuditStartup -' -Me.CBAuditStartup.AutoSize = true -Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black -Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) -Me.CBAuditStartup.Name = "CBAuditStartup" -Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) -Me.CBAuditStartup.TabIndex = 26 -Me.CBAuditStartup.TabStop = false -Me.CBAuditStartup.Text = "Audit Scripts on Startup" -Me.CBAuditStartup.UseVisualStyleBackColor = true -' -'CBDomDel -' -Me.CBDomDel.AutoSize = true -Me.CBDomDel.ForeColor = System.Drawing.Color.Black -Me.CBDomDel.Location = New System.Drawing.Point(7, 110) -Me.CBDomDel.Name = "CBDomDel" -Me.CBDomDel.Size = New System.Drawing.Size(197, 17) -Me.CBDomDel.TabIndex = 27 -Me.CBDomDel.TabStop = false -Me.CBDomDel.Text = "Allow Domme to Delete Local Media" -Me.CBDomDel.UseVisualStyleBackColor = true -' -'CBSettingsPause -' -Me.CBSettingsPause.AutoSize = true -Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black -Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) -Me.CBSettingsPause.Name = "CBSettingsPause" -Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) -Me.CBSettingsPause.TabIndex = 22 -Me.CBSettingsPause.TabStop = false -Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" -Me.CBSettingsPause.UseVisualStyleBackColor = true -' -'CBSaveChatlogExit -' -Me.CBSaveChatlogExit.AutoSize = true -Me.CBSaveChatlogExit.Checked = true -Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black -Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) -Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" -Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) -Me.CBSaveChatlogExit.TabIndex = 25 -Me.CBSaveChatlogExit.TabStop = false -Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" -Me.CBSaveChatlogExit.UseVisualStyleBackColor = true -' -'CBAutosaveChatlog -' -Me.CBAutosaveChatlog.AutoSize = true -Me.CBAutosaveChatlog.Checked = true -Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black -Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) -Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" -Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) -Me.CBAutosaveChatlog.TabIndex = 24 -Me.CBAutosaveChatlog.TabStop = false -Me.CBAutosaveChatlog.Text = "Autosave Chatlog" -Me.CBAutosaveChatlog.UseVisualStyleBackColor = true -' -'GBGeneralImages -' -Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) -Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) -Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) -Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) -Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) -Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) -Me.GBGeneralImages.Name = "GBGeneralImages" -Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) -Me.GBGeneralImages.TabIndex = 0 -Me.GBGeneralImages.TabStop = false -Me.GBGeneralImages.Text = "Images" -' -'CBImageInfo -' -Me.CBImageInfo.AutoSize = true -Me.CBImageInfo.ForeColor = System.Drawing.Color.Black -Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) -Me.CBImageInfo.Name = "CBImageInfo" -Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) -Me.CBImageInfo.TabIndex = 16 -Me.CBImageInfo.TabStop = false -Me.CBImageInfo.Text = "Display Image Information" -Me.CBImageInfo.UseVisualStyleBackColor = true -' -'CBSlideshowRandom -' -Me.CBSlideshowRandom.AutoSize = true -Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black -Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) -Me.CBSlideshowRandom.Name = "CBSlideshowRandom" -Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) -Me.CBSlideshowRandom.TabIndex = 14 -Me.CBSlideshowRandom.TabStop = false -Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" -Me.CBSlideshowRandom.UseVisualStyleBackColor = true -' -'landscapeCheckBox -' -Me.landscapeCheckBox.AutoSize = true -Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black -Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) -Me.landscapeCheckBox.Name = "landscapeCheckBox" -Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) -Me.landscapeCheckBox.TabIndex = 15 -Me.landscapeCheckBox.TabStop = false -Me.landscapeCheckBox.Text = "Stretch Landscape Images" -Me.landscapeCheckBox.UseVisualStyleBackColor = true -' -'CBBlogImageWindow -' -Me.CBBlogImageWindow.AutoSize = true -Me.CBBlogImageWindow.Checked = true -Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black -Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) -Me.CBBlogImageWindow.Name = "CBBlogImageWindow" -Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) -Me.CBBlogImageWindow.TabIndex = 12 -Me.CBBlogImageWindow.TabStop = false -Me.CBBlogImageWindow.Text = "Save Blog Images From Session" -Me.CBBlogImageWindow.UseVisualStyleBackColor = true -' -'CBSlideshowSubDir -' -Me.CBSlideshowSubDir.AutoSize = true -Me.CBSlideshowSubDir.Checked = true -Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black -Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) -Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" -Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) -Me.CBSlideshowSubDir.TabIndex = 13 -Me.CBSlideshowSubDir.TabStop = false -Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" -Me.CBSlideshowSubDir.UseVisualStyleBackColor = true -' -'PictureBox2 -' -Me.PictureBox2.BackColor = System.Drawing.Color.LightGray -Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox2.Location = New System.Drawing.Point(9, 6) -Me.PictureBox2.Name = "PictureBox2" -Me.PictureBox2.Size = New System.Drawing.Size(160, 19) -Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox2.TabIndex = 148 -Me.PictureBox2.TabStop = false -' -'GBGeneralSettings -' -Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray -Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) -Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) -Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) -Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) -Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) -Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) -Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) -Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black -Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) -Me.GBGeneralSettings.Name = "GBGeneralSettings" -Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) -Me.GBGeneralSettings.TabIndex = 0 -Me.GBGeneralSettings.TabStop = false -Me.GBGeneralSettings.Text = "Chat Window" -' -'CBWebtease -' -Me.CBWebtease.AutoSize = true -Me.CBWebtease.ForeColor = System.Drawing.Color.Black -Me.CBWebtease.Location = New System.Drawing.Point(6, 110) -Me.CBWebtease.Name = "CBWebtease" -Me.CBWebtease.Size = New System.Drawing.Size(105, 17) -Me.CBWebtease.TabIndex = 5 -Me.CBWebtease.TabStop = false -Me.CBWebtease.Text = "Webtease Mode" -Me.CBWebtease.UseVisualStyleBackColor = true -' -'GBSubFont -' -Me.GBSubFont.Controls.Add(Me.BTNSubColor) -Me.GBSubFont.Controls.Add(Me.LBLSubColor) -Me.GBSubFont.Controls.Add(Me.NBFontSize) -Me.GBSubFont.Controls.Add(Me.Label2) -Me.GBSubFont.Controls.Add(Me.FontComboBox) -Me.GBSubFont.Location = New System.Drawing.Point(6, 219) -Me.GBSubFont.Name = "GBSubFont" -Me.GBSubFont.Size = New System.Drawing.Size(200, 77) -Me.GBSubFont.TabIndex = 0 -Me.GBSubFont.TabStop = false -Me.GBSubFont.Text = "Sub Font Settings" -' -'BTNSubColor -' -Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray -Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNSubColor.ForeColor = System.Drawing.Color.Black -Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) -Me.BTNSubColor.Name = "BTNSubColor" -Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) -Me.BTNSubColor.TabIndex = 8 -Me.BTNSubColor.Text = "Sub Name Color" -Me.BTNSubColor.UseVisualStyleBackColor = false -' -'LBLSubColor -' -Me.LBLSubColor.BackColor = System.Drawing.Color.White -Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor -Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) -Me.LBLSubColor.Name = "LBLSubColor" -Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) -Me.LBLSubColor.TabIndex = 0 -Me.LBLSubColor.Text = "Preview" -Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBFontSize -' -Me.NBFontSize.BackColor = System.Drawing.Color.White -Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBFontSize.ForeColor = System.Drawing.Color.Black -Me.NBFontSize.Location = New System.Drawing.Point(147, 47) -Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBFontSize.Name = "NBFontSize" -Me.NBFontSize.Size = New System.Drawing.Size(45, 20) -Me.NBFontSize.TabIndex = 11 -Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label2 -' -Me.Label2.BackColor = System.Drawing.Color.Transparent -Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label2.ForeColor = System.Drawing.Color.Black -Me.Label2.Location = New System.Drawing.Point(117, 45) -Me.Label2.Name = "Label2" -Me.Label2.Size = New System.Drawing.Size(30, 20) -Me.Label2.TabIndex = 63 -Me.Label2.Text = "Size:" -Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'FontComboBox -' -Me.FontComboBox.FormattingEnabled = true -Me.FontComboBox.Location = New System.Drawing.Point(6, 46) -Me.FontComboBox.Name = "FontComboBox" -Me.FontComboBox.Size = New System.Drawing.Size(110, 21) -Me.FontComboBox.TabIndex = 9 -' -'GBDommeFont -' -Me.GBDommeFont.Controls.Add(Me.BTNDomColor) -Me.GBDommeFont.Controls.Add(Me.LBLDomColor) -Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) -Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) -Me.GBDommeFont.Controls.Add(Me.Label7) -Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) -Me.GBDommeFont.Name = "GBDommeFont" -Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) -Me.GBDommeFont.TabIndex = 0 -Me.GBDommeFont.TabStop = false -Me.GBDommeFont.Text = "Domme Font Settings" -' -'BTNDomColor -' -Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray -Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomColor.ForeColor = System.Drawing.Color.Black -Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) -Me.BTNDomColor.Name = "BTNDomColor" -Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) -Me.BTNDomColor.TabIndex = 5 -Me.BTNDomColor.Text = "Domme Name Color" -Me.BTNDomColor.UseVisualStyleBackColor = false -' -'LBLDomColor -' -Me.LBLDomColor.BackColor = System.Drawing.Color.White -Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor -Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) -Me.LBLDomColor.Name = "LBLDomColor" -Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) -Me.LBLDomColor.TabIndex = 0 -Me.LBLDomColor.Text = "Preview" -Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'FontComboBoxD -' -Me.FontComboBoxD.FormattingEnabled = true -Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) -Me.FontComboBoxD.Name = "FontComboBoxD" -Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) -Me.FontComboBoxD.TabIndex = 6 -' -'NBFontSizeD -' -Me.NBFontSizeD.BackColor = System.Drawing.Color.White -Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black -Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) -Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBFontSizeD.Name = "NBFontSizeD" -Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) -Me.NBFontSizeD.TabIndex = 7 -Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label7 -' -Me.Label7.BackColor = System.Drawing.Color.Transparent -Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label7.ForeColor = System.Drawing.Color.Black -Me.Label7.Location = New System.Drawing.Point(117, 45) -Me.Label7.Name = "Label7" -Me.Label7.Size = New System.Drawing.Size(30, 20) -Me.Label7.TabIndex = 172 -Me.Label7.Text = "Size:" -Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBInputIcon -' -Me.CBInputIcon.AutoSize = true -Me.CBInputIcon.Checked = true -Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBInputIcon.ForeColor = System.Drawing.Color.Black -Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) -Me.CBInputIcon.Name = "CBInputIcon" -Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) -Me.CBInputIcon.TabIndex = 4 -Me.CBInputIcon.TabStop = false -Me.CBInputIcon.Text = "Show Icon During Input Questions" -Me.CBInputIcon.UseVisualStyleBackColor = true -' -'typeinstantlyCheckBox -' -Me.typeinstantlyCheckBox.AutoSize = true -Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black -Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) -Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" -Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) -Me.typeinstantlyCheckBox.TabIndex = 3 -Me.typeinstantlyCheckBox.TabStop = false -Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" -Me.typeinstantlyCheckBox.UseVisualStyleBackColor = true -' -'timestampCheckBox -' -Me.timestampCheckBox.AutoSize = true -Me.timestampCheckBox.Checked = true -Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked -Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black -Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) -Me.timestampCheckBox.Name = "timestampCheckBox" -Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) -Me.timestampCheckBox.TabIndex = 1 -Me.timestampCheckBox.TabStop = false -Me.timestampCheckBox.Text = "Show Timestamps" -Me.timestampCheckBox.UseVisualStyleBackColor = true -' -'shownamesCheckBox -' -Me.shownamesCheckBox.AutoSize = true -Me.shownamesCheckBox.Checked = true -Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked -Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black -Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) -Me.shownamesCheckBox.Name = "shownamesCheckBox" -Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) -Me.shownamesCheckBox.TabIndex = 2 -Me.shownamesCheckBox.TabStop = false -Me.shownamesCheckBox.Text = "Always Show Names" -Me.shownamesCheckBox.UseVisualStyleBackColor = true -' -'LBLGeneralSettings -' -Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent -Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black -Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) -Me.LBLGeneralSettings.Name = "LBLGeneralSettings" -Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) -Me.LBLGeneralSettings.TabIndex = 0 -Me.LBLGeneralSettings.Text = "General Settings" -Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage2 -' -Me.TabPage2.BackColor = System.Drawing.Color.Silver -Me.TabPage2.Controls.Add(Me.Panel3) -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(720, 448) -Me.TabPage2.TabIndex = 1 -Me.TabPage2.Text = "Domme" -' -'Panel3 -' -Me.Panel3.BackColor = System.Drawing.Color.LightGray -Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel3.Controls.Add(Me.GBGiveUp) -Me.Panel3.Controls.Add(Me.BTNLoadDomSet) -Me.Panel3.Controls.Add(Me.BTNSaveDomSet) -Me.Panel3.Controls.Add(Me.Label127) -Me.Panel3.Controls.Add(Me.Label126) -Me.Panel3.Controls.Add(Me.PictureBox4) -Me.Panel3.Controls.Add(Me.GBDomTypingStyle) -Me.Panel3.Controls.Add(Me.GBDomRanges) -Me.Panel3.Controls.Add(Me.GBDomStats) -Me.Panel3.Controls.Add(Me.GBDomPersonality) -Me.Panel3.Controls.Add(Me.GBDomOrgasms) -Me.Panel3.Controls.Add(Me.GBDomPetNames) -Me.Panel3.Controls.Add(Me.Label54) -Me.Panel3.Location = New System.Drawing.Point(6, 6) -Me.Panel3.Name = "Panel3" -Me.Panel3.Size = New System.Drawing.Size(708, 437) -Me.Panel3.TabIndex = 93 -' -'GBGiveUp -' -Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) -Me.GBGiveUp.Location = New System.Drawing.Point(440, 230) -Me.GBGiveUp.Name = "GBGiveUp" -Me.GBGiveUp.Size = New System.Drawing.Size(259, 63) -Me.GBGiveUp.TabIndex = 42 -Me.GBGiveUp.TabStop = false -Me.GBGiveUp.Text = "Script Behavior" -' -'giveupCheckBox -' -Me.giveupCheckBox.AutoSize = true -Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black -Me.giveupCheckBox.Location = New System.Drawing.Point(15, 26) -Me.giveupCheckBox.Name = "giveupCheckBox" -Me.giveupCheckBox.Size = New System.Drawing.Size(210, 17) -Me.giveupCheckBox.TabIndex = 38 -Me.giveupCheckBox.Text = "Continue Current Script After Giving Up" -Me.giveupCheckBox.UseVisualStyleBackColor = true -' -'BTNLoadDomSet -' -Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray -Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 -Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black -Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) -Me.BTNLoadDomSet.Name = "BTNLoadDomSet" -Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) -Me.BTNLoadDomSet.TabIndex = 150 -Me.BTNLoadDomSet.UseVisualStyleBackColor = false -' -'BTNSaveDomSet -' -Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray -Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 -Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black -Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) -Me.BTNSaveDomSet.Name = "BTNSaveDomSet" -Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) -Me.BTNSaveDomSet.TabIndex = 151 -Me.BTNSaveDomSet.UseVisualStyleBackColor = false -' -'Label127 -' -Me.Label127.AutoSize = true -Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label127.ForeColor = System.Drawing.Color.Black -Me.Label127.Location = New System.Drawing.Point(670, -3) -Me.Label127.Name = "Label127" -Me.Label127.Size = New System.Drawing.Size(27, 13) -Me.Label127.TabIndex = 153 -Me.Label127.Text = "load" -Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label126 -' -Me.Label126.AutoSize = true -Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label126.ForeColor = System.Drawing.Color.Black -Me.Label126.Location = New System.Drawing.Point(636, -3) -Me.Label126.Name = "Label126" -Me.Label126.Size = New System.Drawing.Size(30, 13) -Me.Label126.TabIndex = 152 -Me.Label126.Text = "save" -Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'PictureBox4 -' -Me.PictureBox4.BackColor = System.Drawing.Color.LightGray -Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox4.Location = New System.Drawing.Point(9, 6) -Me.PictureBox4.Name = "PictureBox4" -Me.PictureBox4.Size = New System.Drawing.Size(160, 19) -Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox4.TabIndex = 149 -Me.PictureBox4.TabStop = false -' -'GBDomTypingStyle -' -Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) -Me.GBDomTypingStyle.Controls.Add(Me.Label67) -Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) -Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) -Me.GBDomTypingStyle.Controls.Add(Me.Label66) -Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) -Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) -Me.GBDomTypingStyle.Controls.Add(Me.Label64) -Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black -Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) -Me.GBDomTypingStyle.Name = "GBDomTypingStyle" -Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) -Me.GBDomTypingStyle.TabIndex = 138 -Me.GBDomTypingStyle.TabStop = false -Me.GBDomTypingStyle.Text = "Typing Style" -' -'TBEmoteEnd -' -Me.TBEmoteEnd.BackColor = System.Drawing.Color.White -Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black -Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) -Me.TBEmoteEnd.Name = "TBEmoteEnd" -Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) -Me.TBEmoteEnd.TabIndex = 155 -Me.TBEmoteEnd.Text = "*" -Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label67 -' -Me.Label67.AutoSize = true -Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label67.ForeColor = System.Drawing.Color.Black -Me.Label67.Location = New System.Drawing.Point(237, 77) -Me.Label67.Name = "Label67" -Me.Label67.Size = New System.Drawing.Size(42, 13) -Me.Label67.TabIndex = 169 -Me.Label67.Text = "Typo %" -Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBEmote -' -Me.TBEmote.BackColor = System.Drawing.Color.White -Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBEmote.ForeColor = System.Drawing.Color.Black -Me.TBEmote.Location = New System.Drawing.Point(9, 91) -Me.TBEmote.Name = "TBEmote" -Me.TBEmote.Size = New System.Drawing.Size(85, 23) -Me.TBEmote.TabIndex = 154 -Me.TBEmote.Text = "*" -Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'NBTypoChance -' -Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) -Me.NBTypoChance.Name = "NBTypoChance" -Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) -Me.NBTypoChance.TabIndex = 168 -Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) -' -'Label66 -' -Me.Label66.AutoSize = true -Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label66.ForeColor = System.Drawing.Color.Black -Me.Label66.Location = New System.Drawing.Point(322, 77) -Me.Label66.Name = "Label66" -Me.Label66.Size = New System.Drawing.Size(52, 13) -Me.Label66.TabIndex = 44 -Me.Label66.Text = "Pronouns" -Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBMeMyMine -' -Me.CBMeMyMine.AutoSize = true -Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black -Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) -Me.CBMeMyMine.Name = "CBMeMyMine" -Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) -Me.CBMeMyMine.TabIndex = 40 -Me.CBMeMyMine.Text = "Me/My/Mine" -Me.CBMeMyMine.UseVisualStyleBackColor = true -' -'GroupBox63 -' -Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) -Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) -Me.GroupBox63.Controls.Add(Me.periodCheckBox) -Me.GroupBox63.Controls.Add(Me.commaCheckBox) -Me.GroupBox63.Location = New System.Drawing.Point(9, 15) -Me.GroupBox63.Name = "GroupBox63" -Me.GroupBox63.Size = New System.Drawing.Size(407, 48) -Me.GroupBox63.TabIndex = 41 -Me.GroupBox63.TabStop = false -Me.GroupBox63.Text = "Remove" -' -'LCaseCheckBox -' -Me.LCaseCheckBox.AutoSize = true -Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black -Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) -Me.LCaseCheckBox.Name = "LCaseCheckBox" -Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) -Me.LCaseCheckBox.TabIndex = 38 -Me.LCaseCheckBox.Text = "Capitalization" -Me.LCaseCheckBox.UseVisualStyleBackColor = true -' -'apostropheCheckBox -' -Me.apostropheCheckBox.AutoSize = true -Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black -Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) -Me.apostropheCheckBox.Name = "apostropheCheckBox" -Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) -Me.apostropheCheckBox.TabIndex = 39 -Me.apostropheCheckBox.Text = "Apostrophes" -Me.apostropheCheckBox.UseVisualStyleBackColor = true -' -'periodCheckBox -' -Me.periodCheckBox.AutoSize = true -Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.periodCheckBox.ForeColor = System.Drawing.Color.Black -Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) -Me.periodCheckBox.Name = "periodCheckBox" -Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) -Me.periodCheckBox.TabIndex = 37 -Me.periodCheckBox.Text = "Periods" -Me.periodCheckBox.UseVisualStyleBackColor = true -' -'commaCheckBox -' -Me.commaCheckBox.AutoSize = true -Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.commaCheckBox.ForeColor = System.Drawing.Color.Black -Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) -Me.commaCheckBox.Name = "commaCheckBox" -Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) -Me.commaCheckBox.TabIndex = 36 -Me.commaCheckBox.Text = "Commas" -Me.commaCheckBox.UseVisualStyleBackColor = true -' -'Label64 -' -Me.Label64.AutoSize = true -Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label64.ForeColor = System.Drawing.Color.Black -Me.Label64.Location = New System.Drawing.Point(8, 77) -Me.Label64.Name = "Label64" -Me.Label64.Size = New System.Drawing.Size(79, 13) -Me.Label64.TabIndex = 43 -Me.Label64.Text = "Emote Symbols" -Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GBDomRanges -' -Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) -Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) -Me.GBDomRanges.Controls.Add(Me.Label37) -Me.GBDomRanges.Controls.Add(Me.Label39) -Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) -Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) -Me.GBDomRanges.Controls.Add(Me.Label31) -Me.GBDomRanges.Controls.Add(Me.Label36) -Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) -Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) -Me.GBDomRanges.Controls.Add(Me.Label21) -Me.GBDomRanges.Controls.Add(Me.Label22) -Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) -Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) -Me.GBDomRanges.Controls.Add(Me.Label23) -Me.GBDomRanges.Controls.Add(Me.Label30) -Me.GBDomRanges.Location = New System.Drawing.Point(440, 299) -Me.GBDomRanges.Name = "GBDomRanges" -Me.GBDomRanges.Size = New System.Drawing.Size(259, 124) -Me.GBDomRanges.TabIndex = 148 -Me.GBDomRanges.TabStop = false -Me.GBDomRanges.Text = "Ranges" -' -'NBDomMoodMax -' -Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 19) -Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBDomMoodMax.Name = "NBDomMoodMax" -Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) -Me.NBDomMoodMax.TabIndex = 168 -Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) -' -'NBDomMoodMin -' -Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 19) -Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) -Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBDomMoodMin.Name = "NBDomMoodMin" -Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) -Me.NBDomMoodMin.TabIndex = 167 -Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) -' -'Label37 -' -Me.Label37.BackColor = System.Drawing.Color.Transparent -Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label37.ForeColor = System.Drawing.Color.Black -Me.Label37.Location = New System.Drawing.Point(184, 19) -Me.Label37.Name = "Label37" -Me.Label37.Size = New System.Drawing.Size(10, 17) -Me.Label37.TabIndex = 166 -Me.Label37.Text = "-" -Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label39 -' -Me.Label39.BackColor = System.Drawing.Color.Transparent -Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label39.ForeColor = System.Drawing.Color.Black -Me.Label39.Location = New System.Drawing.Point(12, 19) -Me.Label39.Name = "Label39" -Me.Label39.Size = New System.Drawing.Size(116, 17) -Me.Label39.TabIndex = 165 -Me.Label39.Text = "Domme Mood Index:" -Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBSubAgeMax -' -Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 94) -Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) -Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) -Me.NBSubAgeMax.Name = "NBSubAgeMax" -Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) -Me.NBSubAgeMax.TabIndex = 164 -Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) -' -'NBSubAgeMin -' -Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 94) -Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) -Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) -Me.NBSubAgeMin.Name = "NBSubAgeMin" -Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) -Me.NBSubAgeMin.TabIndex = 163 -Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) -' -'Label31 -' -Me.Label31.BackColor = System.Drawing.Color.Transparent -Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label31.ForeColor = System.Drawing.Color.Black -Me.Label31.Location = New System.Drawing.Point(184, 94) -Me.Label31.Name = "Label31" -Me.Label31.Size = New System.Drawing.Size(10, 17) -Me.Label31.TabIndex = 162 -Me.Label31.Text = "-" -Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label36 -' -Me.Label36.BackColor = System.Drawing.Color.Transparent -Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label36.ForeColor = System.Drawing.Color.Black -Me.Label36.Location = New System.Drawing.Point(12, 94) -Me.Label36.Name = "Label36" -Me.Label36.Size = New System.Drawing.Size(113, 17) -Me.Label36.TabIndex = 161 -Me.Label36.Text = "Sub Age Perception:" -Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBSelfAgeMax -' -Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 69) -Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) -Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) -Me.NBSelfAgeMax.Name = "NBSelfAgeMax" -Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) -Me.NBSelfAgeMax.TabIndex = 156 -Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) -' -'NBSelfAgeMin -' -Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 69) -Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) -Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) -Me.NBSelfAgeMin.Name = "NBSelfAgeMin" -Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) -Me.NBSelfAgeMin.TabIndex = 155 -Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) -' -'Label21 -' -Me.Label21.BackColor = System.Drawing.Color.Transparent -Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label21.ForeColor = System.Drawing.Color.Black -Me.Label21.Location = New System.Drawing.Point(184, 69) -Me.Label21.Name = "Label21" -Me.Label21.Size = New System.Drawing.Size(10, 17) -Me.Label21.TabIndex = 154 -Me.Label21.Text = "-" -Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label22 -' -Me.Label22.BackColor = System.Drawing.Color.Transparent -Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label22.ForeColor = System.Drawing.Color.Black -Me.Label22.Location = New System.Drawing.Point(12, 69) -Me.Label22.Name = "Label22" -Me.Label22.Size = New System.Drawing.Size(116, 17) -Me.Label22.TabIndex = 153 -Me.Label22.Text = "Self Age Perception:" -Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBAvgCockMax -' -Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 44) -Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) -Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBAvgCockMax.Name = "NBAvgCockMax" -Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) -Me.NBAvgCockMax.TabIndex = 152 -Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) -' -'NBAvgCockMin -' -Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 44) -Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) -Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBAvgCockMin.Name = "NBAvgCockMin" -Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) -Me.NBAvgCockMin.TabIndex = 151 -Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) -' -'Label23 -' -Me.Label23.BackColor = System.Drawing.Color.Transparent -Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label23.ForeColor = System.Drawing.Color.Black -Me.Label23.Location = New System.Drawing.Point(184, 44) -Me.Label23.Name = "Label23" -Me.Label23.Size = New System.Drawing.Size(10, 17) -Me.Label23.TabIndex = 150 -Me.Label23.Text = "-" -Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label30 -' -Me.Label30.BackColor = System.Drawing.Color.Transparent -Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label30.ForeColor = System.Drawing.Color.Black -Me.Label30.Location = New System.Drawing.Point(12, 44) -Me.Label30.Name = "Label30" -Me.Label30.Size = New System.Drawing.Size(116, 17) -Me.Label30.TabIndex = 149 -Me.Label30.Text = "Average Dick Size:" -Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GBDomStats -' -Me.GBDomStats.BackColor = System.Drawing.Color.LightGray -Me.GBDomStats.Controls.Add(Me.Label128) -Me.GBDomStats.Controls.Add(Me.LBLEmpathy) -Me.GBDomStats.Controls.Add(Me.NBEmpathy) -Me.GBDomStats.Controls.Add(Me.Label83) -Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) -Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) -Me.GBDomStats.Controls.Add(Me.TBDomHairColor) -Me.GBDomStats.Controls.Add(Me.domageNumBox) -Me.GBDomStats.Controls.Add(Me.Label47) -Me.GBDomStats.Controls.Add(Me.Label76) -Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) -Me.GBDomStats.Controls.Add(Me.Label84) -Me.GBDomStats.Controls.Add(Me.CBDomTattoos) -Me.GBDomStats.Controls.Add(Me.CBDomFreckles) -Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) -Me.GBDomStats.Controls.Add(Me.Label10) -Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) -Me.GBDomStats.Controls.Add(Me.Label9) -Me.GBDomStats.Controls.Add(Me.boobComboBox) -Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) -Me.GBDomStats.Controls.Add(Me.domlevelNumBox) -Me.GBDomStats.Controls.Add(Me.Label43) -Me.GBDomStats.Controls.Add(Me.Label44) -Me.GBDomStats.Controls.Add(Me.Label45) -Me.GBDomStats.Controls.Add(Me.Label46) -Me.GBDomStats.ForeColor = System.Drawing.Color.Black -Me.GBDomStats.Location = New System.Drawing.Point(7, 30) -Me.GBDomStats.Name = "GBDomStats" -Me.GBDomStats.Size = New System.Drawing.Size(171, 263) -Me.GBDomStats.TabIndex = 62 -Me.GBDomStats.TabStop = false -Me.GBDomStats.Text = "Stats/Appearance" -' -'Label128 -' -Me.Label128.AutoSize = true -Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label128.Location = New System.Drawing.Point(125, 68) -Me.Label128.Name = "Label128" -Me.Label128.Size = New System.Drawing.Size(38, 13) -Me.Label128.TabIndex = 156 -Me.Label128.Text = "mm/dd" -Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLEmpathy -' -Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) -Me.LBLEmpathy.Name = "LBLEmpathy" -Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) -Me.LBLEmpathy.TabIndex = 157 -Me.LBLEmpathy.Text = "Moderate" -Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBEmpathy -' -Me.NBEmpathy.BackColor = System.Drawing.Color.White -Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBEmpathy.ForeColor = System.Drawing.Color.Black -Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) -Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBEmpathy.Name = "NBEmpathy" -Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) -Me.NBEmpathy.TabIndex = 156 -Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label83 -' -Me.Label83.BackColor = System.Drawing.Color.Transparent -Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label83.ForeColor = System.Drawing.Color.Black -Me.Label83.Location = New System.Drawing.Point(6, 37) -Me.Label83.Name = "Label83" -Me.Label83.Size = New System.Drawing.Size(60, 17) -Me.Label83.TabIndex = 158 -Me.Label83.Text = "Apathy:" -Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBDomBirthdayDay -' -Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White -Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black -Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) -Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) -Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" -Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) -Me.NBDomBirthdayDay.TabIndex = 152 -Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'TBDomEyeColor -' -Me.TBDomEyeColor.BackColor = System.Drawing.Color.White -Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black -Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) -Me.TBDomEyeColor.Name = "TBDomEyeColor" -Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) -Me.TBDomEyeColor.TabIndex = 154 -Me.TBDomEyeColor.Text = "green" -' -'TBDomHairColor -' -Me.TBDomHairColor.BackColor = System.Drawing.Color.White -Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black -Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) -Me.TBDomHairColor.Name = "TBDomHairColor" -Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) -Me.TBDomHairColor.TabIndex = 153 -Me.TBDomHairColor.Text = "brown" -' -'domageNumBox -' -Me.domageNumBox.BackColor = System.Drawing.Color.White -Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.domageNumBox.ForeColor = System.Drawing.Color.Black -Me.domageNumBox.Location = New System.Drawing.Point(73, 61) -Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) -Me.domageNumBox.Name = "domageNumBox" -Me.domageNumBox.Size = New System.Drawing.Size(38, 20) -Me.domageNumBox.TabIndex = 27 -Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) -' -'Label47 -' -Me.Label47.BackColor = System.Drawing.Color.Transparent -Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label47.ForeColor = System.Drawing.Color.Black -Me.Label47.Location = New System.Drawing.Point(6, 60) -Me.Label47.Name = "Label47" -Me.Label47.Size = New System.Drawing.Size(63, 17) -Me.Label47.TabIndex = 138 -Me.Label47.Text = "Age:" -Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label76 -' -Me.Label76.AutoSize = true -Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label76.ForeColor = System.Drawing.Color.Black -Me.Label76.Location = New System.Drawing.Point(113, 87) -Me.Label76.Name = "Label76" -Me.Label76.Size = New System.Drawing.Size(12, 13) -Me.Label76.TabIndex = 151 -Me.Label76.Text = "/" -Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBDomBirthdayMonth -' -Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White -Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black -Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) -Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) -Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" -Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) -Me.NBDomBirthdayMonth.TabIndex = 149 -Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label84 -' -Me.Label84.BackColor = System.Drawing.Color.Transparent -Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label84.ForeColor = System.Drawing.Color.Black -Me.Label84.Location = New System.Drawing.Point(6, 84) -Me.Label84.Name = "Label84" -Me.Label84.Size = New System.Drawing.Size(60, 17) -Me.Label84.TabIndex = 150 -Me.Label84.Text = "Birthday:" -Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBDomTattoos -' -Me.CBDomTattoos.AutoSize = true -Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black -Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) -Me.CBDomTattoos.Name = "CBDomTattoos" -Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBDomTattoos.TabIndex = 148 -Me.CBDomTattoos.Text = "Tattoos" -Me.CBDomTattoos.UseVisualStyleBackColor = true -' -'CBDomFreckles -' -Me.CBDomFreckles.AutoSize = true -Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black -Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) -Me.CBDomFreckles.Name = "CBDomFreckles" -Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) -Me.CBDomFreckles.TabIndex = 147 -Me.CBDomFreckles.Text = "Freckles" -Me.CBDomFreckles.UseVisualStyleBackColor = true -' -'domhairlengthComboBox -' -Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White -Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black -Me.domhairlengthComboBox.FormattingEnabled = true -Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) -Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) -Me.domhairlengthComboBox.Name = "domhairlengthComboBox" -Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) -Me.domhairlengthComboBox.TabIndex = 145 -' -'Label10 -' -Me.Label10.BackColor = System.Drawing.Color.Transparent -Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label10.ForeColor = System.Drawing.Color.Black -Me.Label10.Location = New System.Drawing.Point(6, 133) -Me.Label10.Name = "Label10" -Me.Label10.Size = New System.Drawing.Size(78, 17) -Me.Label10.TabIndex = 146 -Me.Label10.Text = "Hair Length:" -Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'dompubichairComboBox -' -Me.dompubichairComboBox.BackColor = System.Drawing.Color.White -Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black -Me.dompubichairComboBox.FormattingEnabled = true -Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) -Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) -Me.dompubichairComboBox.Name = "dompubichairComboBox" -Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) -Me.dompubichairComboBox.TabIndex = 143 -' -'Label9 -' -Me.Label9.BackColor = System.Drawing.Color.Transparent -Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label9.ForeColor = System.Drawing.Color.Black -Me.Label9.Location = New System.Drawing.Point(6, 209) -Me.Label9.Name = "Label9" -Me.Label9.Size = New System.Drawing.Size(63, 17) -Me.Label9.TabIndex = 144 -Me.Label9.Text = "Pubic Hair:" -Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'boobComboBox -' -Me.boobComboBox.BackColor = System.Drawing.Color.White -Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.boobComboBox.ForeColor = System.Drawing.Color.Black -Me.boobComboBox.FormattingEnabled = true -Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) -Me.boobComboBox.Location = New System.Drawing.Point(73, 182) -Me.boobComboBox.Name = "boobComboBox" -Me.boobComboBox.Size = New System.Drawing.Size(89, 21) -Me.boobComboBox.TabIndex = 2 -' -'DomLevelDescLabel -' -Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) -Me.DomLevelDescLabel.Name = "DomLevelDescLabel" -Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) -Me.DomLevelDescLabel.TabIndex = 42 -Me.DomLevelDescLabel.Text = "Tease" -Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'domlevelNumBox -' -Me.domlevelNumBox.BackColor = System.Drawing.Color.White -Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black -Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) -Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.domlevelNumBox.Name = "domlevelNumBox" -Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) -Me.domlevelNumBox.TabIndex = 41 -Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label43 -' -Me.Label43.BackColor = System.Drawing.Color.Transparent -Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label43.ForeColor = System.Drawing.Color.Black -Me.Label43.Location = New System.Drawing.Point(6, 183) -Me.Label43.Name = "Label43" -Me.Label43.Size = New System.Drawing.Size(63, 17) -Me.Label43.TabIndex = 142 -Me.Label43.Text = "Cup Size:" -Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label44 -' -Me.Label44.BackColor = System.Drawing.Color.Transparent -Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label44.ForeColor = System.Drawing.Color.Black -Me.Label44.Location = New System.Drawing.Point(6, 158) -Me.Label44.Name = "Label44" -Me.Label44.Size = New System.Drawing.Size(63, 17) -Me.Label44.TabIndex = 141 -Me.Label44.Text = "Eye Color:" -Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label45 -' -Me.Label45.BackColor = System.Drawing.Color.Transparent -Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label45.ForeColor = System.Drawing.Color.Black -Me.Label45.Location = New System.Drawing.Point(6, 108) -Me.Label45.Name = "Label45" -Me.Label45.Size = New System.Drawing.Size(78, 17) -Me.Label45.TabIndex = 140 -Me.Label45.Text = "Hair Color:" -Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label46 -' -Me.Label46.BackColor = System.Drawing.Color.Transparent -Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label46.ForeColor = System.Drawing.Color.Black -Me.Label46.Location = New System.Drawing.Point(6, 15) -Me.Label46.Name = "Label46" -Me.Label46.Size = New System.Drawing.Size(46, 17) -Me.Label46.TabIndex = 139 -Me.Label46.Text = "Level:" -Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GBDomPersonality -' -Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) -Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) -Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) -Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) -Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) -Me.GBDomPersonality.Controls.Add(Me.CFNMCheckBox) -Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black -Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) -Me.GBDomPersonality.Name = "GBDomPersonality" -Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) -Me.GBDomPersonality.TabIndex = 131 -Me.GBDomPersonality.TabStop = false -Me.GBDomPersonality.Text = "Personality" -' -'degradingCheckBox -' -Me.degradingCheckBox.AutoSize = true -Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black -Me.degradingCheckBox.Location = New System.Drawing.Point(79, 43) -Me.degradingCheckBox.Name = "degradingCheckBox" -Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) -Me.degradingCheckBox.TabIndex = 40 -Me.degradingCheckBox.Text = "Degrading" -Me.degradingCheckBox.UseVisualStyleBackColor = true -' -'sadisticCheckBox -' -Me.sadisticCheckBox.AutoSize = true -Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black -Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) -Me.sadisticCheckBox.Name = "sadisticCheckBox" -Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) -Me.sadisticCheckBox.TabIndex = 39 -Me.sadisticCheckBox.Text = "Sadistic" -Me.sadisticCheckBox.UseVisualStyleBackColor = true -' -'supremacistCheckBox -' -Me.supremacistCheckBox.AutoSize = true -Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black -Me.supremacistCheckBox.Location = New System.Drawing.Point(155, 20) -Me.supremacistCheckBox.Name = "supremacistCheckBox" -Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) -Me.supremacistCheckBox.TabIndex = 38 -Me.supremacistCheckBox.Text = "Supremacist" -Me.supremacistCheckBox.UseVisualStyleBackColor = true -' -'vulgarCheckBox -' -Me.vulgarCheckBox.AutoSize = true -Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black -Me.vulgarCheckBox.Location = New System.Drawing.Point(79, 20) -Me.vulgarCheckBox.Name = "vulgarCheckBox" -Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) -Me.vulgarCheckBox.TabIndex = 37 -Me.vulgarCheckBox.Text = "Vulgar" -Me.vulgarCheckBox.UseVisualStyleBackColor = true -' -'crazyCheckBox -' -Me.crazyCheckBox.AutoSize = true -Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black -Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) -Me.crazyCheckBox.Name = "crazyCheckBox" -Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) -Me.crazyCheckBox.TabIndex = 36 -Me.crazyCheckBox.Text = "Crazy" -Me.crazyCheckBox.UseVisualStyleBackColor = true -' -'CFNMCheckBox -' -Me.CFNMCheckBox.AutoSize = true -Me.CFNMCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CFNMCheckBox.ForeColor = System.Drawing.Color.Black -Me.CFNMCheckBox.Location = New System.Drawing.Point(155, 43) -Me.CFNMCheckBox.Name = "CFNMCheckBox" -Me.CFNMCheckBox.Size = New System.Drawing.Size(56, 17) -Me.CFNMCheckBox.TabIndex = 41 -Me.CFNMCheckBox.Text = "CFNM" -Me.CFNMCheckBox.UseVisualStyleBackColor = true -' -'GBDomOrgasms -' -Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) -Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) -Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) -Me.GBDomOrgasms.Controls.Add(Me.Label16) -Me.GBDomOrgasms.Controls.Add(Me.Label12) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) -Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) -Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) -Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) -Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) -Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black -Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) -Me.GBDomOrgasms.Name = "GBDomOrgasms" -Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) -Me.GBDomOrgasms.TabIndex = 132 -Me.GBDomOrgasms.TabStop = false -Me.GBDomOrgasms.Text = "Orgasms" -' -'CBLockOrgasmChances -' -Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances -Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black -Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) -Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" -Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) -Me.CBLockOrgasmChances.TabIndex = 146 -Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" -Me.CBLockOrgasmChances.UseVisualStyleBackColor = true -' -'orgasmlockrandombutton -' -Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray -Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black -Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) -Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" -Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) -Me.orgasmlockrandombutton.TabIndex = 145 -Me.orgasmlockrandombutton.Text = "Lock Random" -Me.orgasmlockrandombutton.UseVisualStyleBackColor = false -' -'CBDomOrgasmEnds -' -Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black -Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) -Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" -Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) -Me.CBDomOrgasmEnds.TabIndex = 144 -Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" -Me.CBDomOrgasmEnds.UseVisualStyleBackColor = true -' -'Label16 -' -Me.Label16.BackColor = System.Drawing.Color.Transparent -Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label16.ForeColor = System.Drawing.Color.Black -Me.Label16.Location = New System.Drawing.Point(12, 47) -Me.Label16.Name = "Label16" -Me.Label16.Size = New System.Drawing.Size(87, 17) -Me.Label16.TabIndex = 142 -Me.Label16.Text = "Ruins Orgasms:" -Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label12 -' -Me.Label12.BackColor = System.Drawing.Color.Transparent -Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label12.ForeColor = System.Drawing.Color.Black -Me.Label12.Location = New System.Drawing.Point(12, 19) -Me.Label12.Name = "Label12" -Me.Label12.Size = New System.Drawing.Size(87, 17) -Me.Label12.TabIndex = 141 -Me.Label12.Text = "Allows Orgasms:" -Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'orgasmsperlockButton -' -Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray -Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black -Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) -Me.orgasmsperlockButton.Name = "orgasmsperlockButton" -Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) -Me.orgasmsperlockButton.TabIndex = 97 -Me.orgasmsperlockButton.Text = "Lock Selected" -Me.orgasmsperlockButton.UseVisualStyleBackColor = false -' -'orgasmsperComboBox -' -Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White -Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black -Me.orgasmsperComboBox.FormattingEnabled = true -Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) -Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) -Me.orgasmsperComboBox.Name = "orgasmsperComboBox" -Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) -Me.orgasmsperComboBox.TabIndex = 43 -' -'orgasmsperLabel -' -Me.orgasmsperLabel.AutoSize = true -Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black -Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) -Me.orgasmsperLabel.Name = "orgasmsperLabel" -Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) -Me.orgasmsperLabel.TabIndex = 42 -Me.orgasmsperLabel.Text = "per" -Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'limitcheckbox -' -Me.limitcheckbox.AutoSize = true -Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.limitcheckbox.ForeColor = System.Drawing.Color.Black -Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) -Me.limitcheckbox.Name = "limitcheckbox" -Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) -Me.limitcheckbox.TabIndex = 39 -Me.limitcheckbox.Text = "Limit" -Me.limitcheckbox.UseVisualStyleBackColor = true -' -'orgasmsPerNumBox -' -Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White -Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black -Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) -Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" -Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) -Me.orgasmsPerNumBox.TabIndex = 41 -Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'CBDomDenialEnds -' -Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black -Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) -Me.CBDomDenialEnds.Name = "CBDomDenialEnds" -Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) -Me.CBDomDenialEnds.TabIndex = 38 -Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" -Me.CBDomDenialEnds.UseVisualStyleBackColor = true -' -'alloworgasmComboBox -' -Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White -Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black -Me.alloworgasmComboBox.FormattingEnabled = true -Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) -Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) -Me.alloworgasmComboBox.Name = "alloworgasmComboBox" -Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) -Me.alloworgasmComboBox.TabIndex = 1 -' -'ruinorgasmComboBox -' -Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White -Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black -Me.ruinorgasmComboBox.FormattingEnabled = true -Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) -Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) -Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" -Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) -Me.ruinorgasmComboBox.TabIndex = 2 -' -'GBDomPetNames -' -Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray -Me.GBDomPetNames.Controls.Add(Me.Label74) -Me.GBDomPetNames.Controls.Add(Me.petnameBox7) -Me.GBDomPetNames.Controls.Add(Me.petnameBox8) -Me.GBDomPetNames.Controls.Add(Me.petnameBox1) -Me.GBDomPetNames.Controls.Add(Me.Label15) -Me.GBDomPetNames.Controls.Add(Me.petnameBox4) -Me.GBDomPetNames.Controls.Add(Me.petnameBox6) -Me.GBDomPetNames.Controls.Add(Me.petnameBox2) -Me.GBDomPetNames.Controls.Add(Me.Label11) -Me.GBDomPetNames.Controls.Add(Me.petnameBox5) -Me.GBDomPetNames.Controls.Add(Me.petnameBox3) -Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black -Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) -Me.GBDomPetNames.Name = "GBDomPetNames" -Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) -Me.GBDomPetNames.TabIndex = 134 -Me.GBDomPetNames.TabStop = false -Me.GBDomPetNames.Text = "Pet Names" -' -'Label74 -' -Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label74.ForeColor = System.Drawing.Color.Black -Me.Label74.Location = New System.Drawing.Point(8, 14) -Me.Label74.Name = "Label74" -Me.Label74.Size = New System.Drawing.Size(233, 13) -Me.Label74.TabIndex = 45 -Me.Label74.Text = "Great Mood" -Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'petnameBox7 -' -Me.petnameBox7.BackColor = System.Drawing.Color.White -Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox7.ForeColor = System.Drawing.Color.Black -Me.petnameBox7.Location = New System.Drawing.Point(8, 154) -Me.petnameBox7.Name = "petnameBox7" -Me.petnameBox7.Size = New System.Drawing.Size(114, 23) -Me.petnameBox7.TabIndex = 13 -Me.petnameBox7.Text = "bitch boy" -Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox8 -' -Me.petnameBox8.BackColor = System.Drawing.Color.White -Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox8.ForeColor = System.Drawing.Color.Black -Me.petnameBox8.Location = New System.Drawing.Point(128, 154) -Me.petnameBox8.Name = "petnameBox8" -Me.petnameBox8.Size = New System.Drawing.Size(113, 22) -Me.petnameBox8.TabIndex = 14 -Me.petnameBox8.Text = "slut" -Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox1 -' -Me.petnameBox1.BackColor = System.Drawing.Color.White -Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox1.ForeColor = System.Drawing.Color.Black -Me.petnameBox1.Location = New System.Drawing.Point(8, 32) -Me.petnameBox1.Name = "petnameBox1" -Me.petnameBox1.Size = New System.Drawing.Size(114, 23) -Me.petnameBox1.TabIndex = 7 -Me.petnameBox1.Text = "stroker" -Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label15 -' -Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label15.ForeColor = System.Drawing.Color.Black -Me.Label15.Location = New System.Drawing.Point(8, 136) -Me.Label15.Name = "Label15" -Me.Label15.Size = New System.Drawing.Size(233, 13) -Me.Label15.TabIndex = 44 -Me.Label15.Text = "Bad Mood" -Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'petnameBox4 -' -Me.petnameBox4.BackColor = System.Drawing.Color.White -Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox4.ForeColor = System.Drawing.Color.Black -Me.petnameBox4.Location = New System.Drawing.Point(128, 81) -Me.petnameBox4.Name = "petnameBox4" -Me.petnameBox4.Size = New System.Drawing.Size(113, 23) -Me.petnameBox4.TabIndex = 10 -Me.petnameBox4.Text = "loser" -Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox6 -' -Me.petnameBox6.BackColor = System.Drawing.Color.White -Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox6.ForeColor = System.Drawing.Color.Black -Me.petnameBox6.Location = New System.Drawing.Point(128, 107) -Me.petnameBox6.Name = "petnameBox6" -Me.petnameBox6.Size = New System.Drawing.Size(113, 23) -Me.petnameBox6.TabIndex = 12 -Me.petnameBox6.Text = "pet" -Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox2 -' -Me.petnameBox2.BackColor = System.Drawing.Color.White -Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox2.ForeColor = System.Drawing.Color.Black -Me.petnameBox2.Location = New System.Drawing.Point(128, 32) -Me.petnameBox2.Name = "petnameBox2" -Me.petnameBox2.Size = New System.Drawing.Size(114, 23) -Me.petnameBox2.TabIndex = 8 -Me.petnameBox2.Text = "wanker" -Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label11 -' -Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label11.ForeColor = System.Drawing.Color.Black -Me.Label11.Location = New System.Drawing.Point(5, 63) -Me.Label11.Name = "Label11" -Me.Label11.Size = New System.Drawing.Size(239, 13) -Me.Label11.TabIndex = 43 -Me.Label11.Text = "Neutral Mood" -Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'petnameBox5 -' -Me.petnameBox5.BackColor = System.Drawing.Color.White -Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox5.ForeColor = System.Drawing.Color.Black -Me.petnameBox5.Location = New System.Drawing.Point(8, 107) -Me.petnameBox5.Name = "petnameBox5" -Me.petnameBox5.Size = New System.Drawing.Size(114, 23) -Me.petnameBox5.TabIndex = 11 -Me.petnameBox5.Text = "baby" -Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox3 -' -Me.petnameBox3.BackColor = System.Drawing.Color.White -Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox3.ForeColor = System.Drawing.Color.Black -Me.petnameBox3.Location = New System.Drawing.Point(8, 81) -Me.petnameBox3.Name = "petnameBox3" -Me.petnameBox3.Size = New System.Drawing.Size(114, 23) -Me.petnameBox3.TabIndex = 9 -Me.petnameBox3.Text = "slave" -Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label54 -' -Me.Label54.BackColor = System.Drawing.Color.Transparent -Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label54.ForeColor = System.Drawing.Color.Black -Me.Label54.Location = New System.Drawing.Point(7, 6) -Me.Label54.Name = "Label54" -Me.Label54.Size = New System.Drawing.Size(692, 21) -Me.Label54.TabIndex = 49 -Me.Label54.Text = "Domme Settings" -Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage10 -' -Me.TabPage10.BackColor = System.Drawing.Color.Silver -Me.TabPage10.Controls.Add(Me.Panel2) -Me.TabPage10.Location = New System.Drawing.Point(4, 22) -Me.TabPage10.Name = "TabPage10" -Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage10.Size = New System.Drawing.Size(720, 448) -Me.TabPage10.TabIndex = 9 -Me.TabPage10.Text = "Sub" -' -'Panel2 -' -Me.Panel2.BackColor = System.Drawing.Color.LightGray -Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel2.Controls.Add(Me.GroupBox22) -Me.Panel2.Controls.Add(Me.GroupBox45) -Me.Panel2.Controls.Add(Me.GroupBox35) -Me.Panel2.Controls.Add(Me.GroupBox13) -Me.Panel2.Controls.Add(Me.GroupBox7) -Me.Panel2.Controls.Add(Me.PictureBox12) -Me.Panel2.Controls.Add(Me.GroupBox32) -Me.Panel2.Controls.Add(Me.Label70) -Me.Panel2.Location = New System.Drawing.Point(6, 6) -Me.Panel2.Name = "Panel2" -Me.Panel2.Size = New System.Drawing.Size(708, 437) -Me.Panel2.TabIndex = 94 -' -'GroupBox22 -' -Me.GroupBox22.BackColor = System.Drawing.Color.LightGray -Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) -Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) -Me.GroupBox22.Controls.Add(Me.Label75) -Me.GroupBox22.Controls.Add(Me.Label77) -Me.GroupBox22.ForeColor = System.Drawing.Color.Black -Me.GroupBox22.Location = New System.Drawing.Point(440, 388) -Me.GroupBox22.Name = "GroupBox22" -Me.GroupBox22.Size = New System.Drawing.Size(259, 39) -Me.GroupBox22.TabIndex = 158 -Me.GroupBox22.TabStop = false -Me.GroupBox22.Text = "Writing Tasks" -' -'NBWritingTaskMax -' -Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) -Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMax.Name = "NBWritingTaskMax" -Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) -Me.NBWritingTaskMax.TabIndex = 168 -Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) -' -'NBWritingTaskMin -' -Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) -Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMin.Name = "NBWritingTaskMin" -Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) -Me.NBWritingTaskMin.TabIndex = 167 -Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) -' -'Label75 -' -Me.Label75.BackColor = System.Drawing.Color.Transparent -Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label75.ForeColor = System.Drawing.Color.Black -Me.Label75.Location = New System.Drawing.Point(184, 13) -Me.Label75.Name = "Label75" -Me.Label75.Size = New System.Drawing.Size(10, 17) -Me.Label75.TabIndex = 166 -Me.Label75.Text = "-" -Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label77 -' -Me.Label77.BackColor = System.Drawing.Color.Transparent -Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label77.ForeColor = System.Drawing.Color.Black -Me.Label77.Location = New System.Drawing.Point(12, 15) -Me.Label77.Name = "Label77" -Me.Label77.Size = New System.Drawing.Size(126, 17) -Me.Label77.TabIndex = 165 -Me.Label77.Tag = "" -Me.Label77.Text = "Line Amount Range:" -Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox45 -' -Me.GroupBox45.BackColor = System.Drawing.Color.LightGray -Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) -Me.GroupBox45.Controls.Add(Me.CBCBTBalls) -Me.GroupBox45.Controls.Add(Me.CBCBTCock) -Me.GroupBox45.Controls.Add(Me.CBTSlider) -Me.GroupBox45.ForeColor = System.Drawing.Color.Black -Me.GroupBox45.Location = New System.Drawing.Point(440, 294) -Me.GroupBox45.Name = "GroupBox45" -Me.GroupBox45.Size = New System.Drawing.Size(259, 50) -Me.GroupBox45.TabIndex = 155 -Me.GroupBox45.TabStop = false -Me.GroupBox45.Text = "CBT" -' -'LBLCBTSlider -' -Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black -Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) -Me.LBLCBTSlider.Name = "LBLCBTSlider" -Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) -Me.LBLCBTSlider.TabIndex = 168 -Me.LBLCBTSlider.Text = "CBT Level: 3" -Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBCBTBalls -' -Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) -Me.CBCBTBalls.Name = "CBCBTBalls" -Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) -Me.CBCBTBalls.TabIndex = 1 -Me.CBCBTBalls.Text = "Ball Torture" -Me.CBCBTBalls.UseVisualStyleBackColor = true -' -'CBCBTCock -' -Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) -Me.CBCBTCock.Name = "CBCBTCock" -Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) -Me.CBCBTCock.TabIndex = 0 -Me.CBCBTCock.Text = "Cock Torture" -Me.CBCBTCock.UseVisualStyleBackColor = true -' -'CBTSlider -' -Me.CBTSlider.AutoSize = false -Me.CBTSlider.LargeChange = 1 -Me.CBTSlider.Location = New System.Drawing.Point(134, 13) -Me.CBTSlider.Maximum = 5 -Me.CBTSlider.Minimum = 1 -Me.CBTSlider.Name = "CBTSlider" -Me.CBTSlider.Size = New System.Drawing.Size(110, 25) -Me.CBTSlider.TabIndex = 166 -Me.CBTSlider.Value = 3 -' -'GroupBox35 -' -Me.GroupBox35.BackColor = System.Drawing.Color.LightGray -Me.GroupBox35.Controls.Add(Me.GroupBox39) -Me.GroupBox35.Controls.Add(Me.GroupBox38) -Me.GroupBox35.Controls.Add(Me.GroupBox37) -Me.GroupBox35.Controls.Add(Me.GroupBox36) -Me.GroupBox35.ForeColor = System.Drawing.Color.Black -Me.GroupBox35.Location = New System.Drawing.Point(440, 30) -Me.GroupBox35.Name = "GroupBox35" -Me.GroupBox35.Size = New System.Drawing.Size(259, 263) -Me.GroupBox35.TabIndex = 154 -Me.GroupBox35.TabStop = false -Me.GroupBox35.Text = "Key Phrases" -' -'GroupBox39 -' -Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) -Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) -Me.GroupBox39.Controls.Add(Me.TBHonorific) -Me.GroupBox39.Location = New System.Drawing.Point(6, 168) -Me.GroupBox39.Name = "GroupBox39" -Me.GroupBox39.Size = New System.Drawing.Size(247, 89) -Me.GroupBox39.TabIndex = 3 -Me.GroupBox39.TabStop = false -Me.GroupBox39.Tag = "" -Me.GroupBox39.Text = "Honorific" -' -'CBHonorificInclude -' -Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black -Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 44) -Me.CBHonorificInclude.Name = "CBHonorificInclude" -Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) -Me.CBHonorificInclude.TabIndex = 40 -Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" -Me.CBHonorificInclude.UseVisualStyleBackColor = true -' -'CBHonorificCapitalized -' -Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black -Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 66) -Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" -Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) -Me.CBHonorificCapitalized.TabIndex = 39 -Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" -Me.CBHonorificCapitalized.UseVisualStyleBackColor = true -' -'TBHonorific -' -Me.TBHonorific.Location = New System.Drawing.Point(9, 16) -Me.TBHonorific.Name = "TBHonorific" -Me.TBHonorific.Size = New System.Drawing.Size(229, 20) -Me.TBHonorific.TabIndex = 0 -Me.TBHonorific.Text = "Mistress" -' -'GroupBox38 -' -Me.GroupBox38.Controls.Add(Me.TBNo) -Me.GroupBox38.Location = New System.Drawing.Point(6, 116) -Me.GroupBox38.Name = "GroupBox38" -Me.GroupBox38.Size = New System.Drawing.Size(247, 46) -Me.GroupBox38.TabIndex = 2 -Me.GroupBox38.TabStop = false -Me.GroupBox38.Tag = "" -Me.GroupBox38.Text = "No" -' -'TBNo -' -Me.TBNo.Location = New System.Drawing.Point(9, 16) -Me.TBNo.Name = "TBNo" -Me.TBNo.Size = New System.Drawing.Size(229, 20) -Me.TBNo.TabIndex = 0 -Me.TBNo.Text = "no, nah, nope, not" -' -'GroupBox37 -' -Me.GroupBox37.Controls.Add(Me.TBYes) -Me.GroupBox37.Location = New System.Drawing.Point(6, 64) -Me.GroupBox37.Name = "GroupBox37" -Me.GroupBox37.Size = New System.Drawing.Size(247, 46) -Me.GroupBox37.TabIndex = 1 -Me.GroupBox37.TabStop = false -Me.GroupBox37.Tag = "" -Me.GroupBox37.Text = "Yes" -' -'TBYes -' -Me.TBYes.Location = New System.Drawing.Point(9, 16) -Me.TBYes.Name = "TBYes" -Me.TBYes.Size = New System.Drawing.Size(229, 20) -Me.TBYes.TabIndex = 0 -Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" -' -'GroupBox36 -' -Me.GroupBox36.Controls.Add(Me.TBGreeting) -Me.GroupBox36.Location = New System.Drawing.Point(6, 12) -Me.GroupBox36.Name = "GroupBox36" -Me.GroupBox36.Size = New System.Drawing.Size(247, 46) -Me.GroupBox36.TabIndex = 0 -Me.GroupBox36.TabStop = false -Me.GroupBox36.Tag = "" -Me.GroupBox36.Text = "Greeting" -' -'TBGreeting -' -Me.TBGreeting.Location = New System.Drawing.Point(9, 16) -Me.TBGreeting.Name = "TBGreeting" -Me.TBGreeting.Size = New System.Drawing.Size(229, 20) -Me.TBGreeting.TabIndex = 0 -Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" -' -'GroupBox13 -' -Me.GroupBox13.BackColor = System.Drawing.Color.LightGray -Me.GroupBox13.Controls.Add(Me.Label34) -Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) -Me.GroupBox13.ForeColor = System.Drawing.Color.Black -Me.GroupBox13.Location = New System.Drawing.Point(440, 346) -Me.GroupBox13.Name = "GroupBox13" -Me.GroupBox13.Size = New System.Drawing.Size(259, 39) -Me.GroupBox13.TabIndex = 157 -Me.GroupBox13.TabStop = false -Me.GroupBox13.Text = "Routine" -' -'Label34 -' -Me.Label34.BackColor = System.Drawing.Color.Transparent -Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label34.ForeColor = System.Drawing.Color.Black -Me.Label34.Location = New System.Drawing.Point(12, 15) -Me.Label34.Name = "Label34" -Me.Label34.Size = New System.Drawing.Size(116, 17) -Me.Label34.TabIndex = 140 -Me.Label34.Text = "Daily Wake Up Time:" -Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'TimeBoxWakeUp -' -Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time -Me.TimeBoxWakeUp.Location = New System.Drawing.Point(134, 12) -Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" -Me.TimeBoxWakeUp.ShowUpDown = true -Me.TimeBoxWakeUp.Size = New System.Drawing.Size(110, 20) -Me.TimeBoxWakeUp.TabIndex = 0 -' -'GroupBox7 -' -Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) -Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) -Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) -Me.GroupBox7.Controls.Add(Me.Label133) -Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) -Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) -Me.GroupBox7.Controls.Add(Me.Label78) -Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) -Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) -Me.GroupBox7.Controls.Add(Me.Label129) -Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) -Me.GroupBox7.Controls.Add(Me.LBLMaxHold) -Me.GroupBox7.Controls.Add(Me.Label79) -Me.GroupBox7.Controls.Add(Me.NBLongEdge) -Me.GroupBox7.Controls.Add(Me.LBLMinHold) -Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) -Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) -Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) -Me.GroupBox7.Controls.Add(Me.Label55) -Me.GroupBox7.Controls.Add(Me.Label81) -Me.GroupBox7.Controls.Add(Me.Label5) -Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) -Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) -Me.GroupBox7.Controls.Add(Me.Label131) -Me.GroupBox7.Location = New System.Drawing.Point(7, 201) -Me.GroupBox7.Name = "GroupBox7" -Me.GroupBox7.Size = New System.Drawing.Size(226, 226) -Me.GroupBox7.TabIndex = 152 -Me.GroupBox7.TabStop = false -Me.GroupBox7.Text = "Edging" -' -'LBLMaxExtremeHold -' -Me.LBLMaxExtremeHold.AutoSize = true -Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) -Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" -Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMaxExtremeHold.TabIndex = 192 -Me.LBLMaxExtremeHold.Text = "minutes" -Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLMinExtremeHold -' -Me.LBLMinExtremeHold.AutoSize = true -Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) -Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" -Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMinExtremeHold.TabIndex = 190 -Me.LBLMinExtremeHold.Text = "minutes" -Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBExtremeHoldMin -' -Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) -Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" -Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) -Me.NBExtremeHoldMin.TabIndex = 189 -Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label133 -' -Me.Label133.BackColor = System.Drawing.Color.Transparent -Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label133.ForeColor = System.Drawing.Color.Black -Me.Label133.Location = New System.Drawing.Point(6, 105) -Me.Label133.Name = "Label133" -Me.Label133.Size = New System.Drawing.Size(119, 17) -Me.Label133.TabIndex = 187 -Me.Label133.Text = "Min Extreme Hold Time:" -Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBExtremeHoldMax -' -Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) -Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" -Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) -Me.NBExtremeHoldMax.TabIndex = 188 -Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'LBLMaxLongHold -' -Me.LBLMaxLongHold.AutoSize = true -Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) -Me.LBLMaxLongHold.Name = "LBLMaxLongHold" -Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMaxLongHold.TabIndex = 186 -Me.LBLMaxLongHold.Text = "minutes" -Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label78 -' -Me.Label78.BackColor = System.Drawing.Color.Transparent -Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label78.ForeColor = System.Drawing.Color.Black -Me.Label78.Location = New System.Drawing.Point(6, 83) -Me.Label78.Name = "Label78" -Me.Label78.Size = New System.Drawing.Size(113, 17) -Me.Label78.TabIndex = 185 -Me.Label78.Text = "Max Long Hold Time:" -Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLMinLongHold -' -Me.LBLMinLongHold.AutoSize = true -Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) -Me.LBLMinLongHold.Name = "LBLMinLongHold" -Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMinLongHold.TabIndex = 184 -Me.LBLMinLongHold.Text = "minutes" -Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBLongHoldMin -' -Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) -Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBLongHoldMin.Name = "NBLongHoldMin" -Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) -Me.NBLongHoldMin.TabIndex = 183 -Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label129 -' -Me.Label129.BackColor = System.Drawing.Color.Transparent -Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label129.ForeColor = System.Drawing.Color.Black -Me.Label129.Location = New System.Drawing.Point(6, 61) -Me.Label129.Name = "Label129" -Me.Label129.Size = New System.Drawing.Size(113, 17) -Me.Label129.TabIndex = 181 -Me.Label129.Text = "Min Long Hold Time:" -Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBLongHoldMax -' -Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) -Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBLongHoldMax.Name = "NBLongHoldMax" -Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) -Me.NBLongHoldMax.TabIndex = 182 -Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'LBLMaxHold -' -Me.LBLMaxHold.AutoSize = true -Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) -Me.LBLMaxHold.Name = "LBLMaxHold" -Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMaxHold.TabIndex = 180 -Me.LBLMaxHold.Text = "minutes" -Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label79 -' -Me.Label79.BackColor = System.Drawing.Color.Transparent -Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label79.ForeColor = System.Drawing.Color.Black -Me.Label79.Location = New System.Drawing.Point(6, 39) -Me.Label79.Name = "Label79" -Me.Label79.Size = New System.Drawing.Size(113, 17) -Me.Label79.TabIndex = 178 -Me.Label79.Text = "Max Hold Edge Time:" -Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBLongEdge -' -Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) -Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBLongEdge.Name = "NBLongEdge" -Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) -Me.NBLongEdge.TabIndex = 152 -Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) -' -'LBLMinHold -' -Me.LBLMinHold.AutoSize = true -Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) -Me.LBLMinHold.Name = "LBLMinHold" -Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) -Me.LBLMinHold.TabIndex = 177 -Me.LBLMinHold.Text = "seconds" -Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBEdgeUseAvg -' -Me.CBEdgeUseAvg.AutoSize = true -Me.CBEdgeUseAvg.Enabled = false -Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) -Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" -Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) -Me.CBEdgeUseAvg.TabIndex = 174 -Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" -Me.CBEdgeUseAvg.UseVisualStyleBackColor = true -' -'CBLongEdgeInterrupts -' -Me.CBLongEdgeInterrupts.Checked = true -Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black -Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) -Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" -Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) -Me.CBLongEdgeInterrupts.TabIndex = 169 -Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" -Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = true -' -'NBHoldTheEdgeMin -' -Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) -Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" -Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) -Me.NBHoldTheEdgeMin.TabIndex = 176 -Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label55 -' -Me.Label55.BackColor = System.Drawing.Color.Transparent -Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label55.ForeColor = System.Drawing.Color.Black -Me.Label55.Location = New System.Drawing.Point(7, 149) -Me.Label55.Name = "Label55" -Me.Label55.Size = New System.Drawing.Size(116, 17) -Me.Label55.TabIndex = 170 -Me.Label55.Text = "Long Edge Threshold:" -Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label81 -' -Me.Label81.BackColor = System.Drawing.Color.Transparent -Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label81.ForeColor = System.Drawing.Color.Black -Me.Label81.Location = New System.Drawing.Point(6, 17) -Me.Label81.Name = "Label81" -Me.Label81.Size = New System.Drawing.Size(113, 17) -Me.Label81.TabIndex = 153 -Me.Label81.Text = "Min Hold Edge Time:" -Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label5 -' -Me.Label5.AutoSize = true -Me.Label5.Location = New System.Drawing.Point(174, 151) -Me.Label5.Name = "Label5" -Me.Label5.Size = New System.Drawing.Size(43, 13) -Me.Label5.TabIndex = 175 -Me.Label5.Text = "minutes" -Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBHoldTheEdgeMax -' -Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) -Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" -Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) -Me.NBHoldTheEdgeMax.TabIndex = 155 -Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'CBLongEdgeTaunts -' -Me.CBLongEdgeTaunts.Checked = true -Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black -Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) -Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" -Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) -Me.CBLongEdgeTaunts.TabIndex = 172 -Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" -Me.CBLongEdgeTaunts.UseVisualStyleBackColor = true -' -'Label131 -' -Me.Label131.BackColor = System.Drawing.Color.Transparent -Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label131.ForeColor = System.Drawing.Color.Black -Me.Label131.Location = New System.Drawing.Point(6, 127) -Me.Label131.Name = "Label131" -Me.Label131.Size = New System.Drawing.Size(128, 17) -Me.Label131.TabIndex = 191 -Me.Label131.Text = "Max Extreme Hold Time:" -Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'PictureBox12 -' -Me.PictureBox12.BackColor = System.Drawing.Color.LightGray -Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox12.Location = New System.Drawing.Point(9, 6) -Me.PictureBox12.Name = "PictureBox12" -Me.PictureBox12.Size = New System.Drawing.Size(160, 19) -Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox12.TabIndex = 149 -Me.PictureBox12.TabStop = false -' -'GroupBox32 -' -Me.GroupBox32.BackColor = System.Drawing.Color.LightGray -Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) -Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) -Me.GroupBox32.Controls.Add(Me.CBOwnChastity) -Me.GroupBox32.Controls.Add(Me.CBChastityPA) -Me.GroupBox32.Controls.Add(Me.CBHimHer) -Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) -Me.GroupBox32.Controls.Add(Me.CBCockToClit) -Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) -Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) -Me.GroupBox32.Controls.Add(Me.CBSubPierced) -Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) -Me.GroupBox32.Controls.Add(Me.TBSubHairColor) -Me.GroupBox32.Controls.Add(Me.Label63) -Me.GroupBox32.Controls.Add(Me.LBLSubInches) -Me.GroupBox32.Controls.Add(Me.subAgeNumBox) -Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) -Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) -Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) -Me.GroupBox32.Controls.Add(Me.LBLSubEye) -Me.GroupBox32.Controls.Add(Me.LBLSubHair) -Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) -Me.GroupBox32.Controls.Add(Me.LBLSubAge) -Me.GroupBox32.ForeColor = System.Drawing.Color.Black -Me.GroupBox32.Location = New System.Drawing.Point(7, 30) -Me.GroupBox32.Name = "GroupBox32" -Me.GroupBox32.Size = New System.Drawing.Size(427, 165) -Me.GroupBox32.TabIndex = 62 -Me.GroupBox32.TabStop = false -Me.GroupBox32.Text = "Stats && Information" -' -'LBLSubBdayFormat -' -Me.LBLSubBdayFormat.AutoSize = true -Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) -Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" -Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) -Me.LBLSubBdayFormat.TabIndex = 161 -Me.LBLSubBdayFormat.Text = "mm/dd" -Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBChastitySpikes -' -Me.CBChastitySpikes.AutoSize = true -Me.CBChastitySpikes.Enabled = false -Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) -Me.CBChastitySpikes.Name = "CBChastitySpikes" -Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) -Me.CBChastitySpikes.TabIndex = 4 -Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" -Me.CBChastitySpikes.UseVisualStyleBackColor = true -' -'CBOwnChastity -' -Me.CBOwnChastity.AutoSize = true -Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) -Me.CBOwnChastity.Name = "CBOwnChastity" -Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) -Me.CBOwnChastity.TabIndex = 5 -Me.CBOwnChastity.Text = "Own Device a Chastity Device" -Me.CBOwnChastity.UseVisualStyleBackColor = true -' -'CBChastityPA -' -Me.CBChastityPA.AutoSize = true -Me.CBChastityPA.Enabled = false -Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) -Me.CBChastityPA.Name = "CBChastityPA" -Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) -Me.CBChastityPA.TabIndex = 3 -Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" -Me.CBChastityPA.UseVisualStyleBackColor = true -' -'CBHimHer -' -Me.CBHimHer.AutoSize = true -Me.CBHimHer.Location = New System.Drawing.Point(191, 65) -Me.CBHimHer.Name = "CBHimHer" -Me.CBHimHer.Size = New System.Drawing.Size(219, 17) -Me.CBHimHer.TabIndex = 3 -Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" -Me.CBHimHer.UseVisualStyleBackColor = true -' -'CBBallsToPussy -' -Me.CBBallsToPussy.AutoSize = true -Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) -Me.CBBallsToPussy.Name = "CBBallsToPussy" -Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) -Me.CBBallsToPussy.TabIndex = 160 -Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" -Me.CBBallsToPussy.UseVisualStyleBackColor = true -' -'CBCockToClit -' -Me.CBCockToClit.AutoSize = true -Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) -Me.CBCockToClit.Name = "CBCockToClit" -Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) -Me.CBCockToClit.TabIndex = 159 -Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" -Me.CBCockToClit.UseVisualStyleBackColor = true -' -'NBBirthdayDay -' -Me.NBBirthdayDay.BackColor = System.Drawing.Color.White -Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black -Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) -Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) -Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBBirthdayDay.Name = "NBBirthdayDay" -Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) -Me.NBBirthdayDay.TabIndex = 144 -Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'CBSubCircumcised -' -Me.CBSubCircumcised.AutoSize = true -Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black -Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) -Me.CBSubCircumcised.Name = "CBSubCircumcised" -Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) -Me.CBSubCircumcised.TabIndex = 157 -Me.CBSubCircumcised.Text = "Circumcised" -Me.CBSubCircumcised.UseVisualStyleBackColor = true -' -'CBSubPierced -' -Me.CBSubPierced.AutoSize = true -Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBSubPierced.ForeColor = System.Drawing.Color.Black -Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) -Me.CBSubPierced.Name = "CBSubPierced" -Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) -Me.CBSubPierced.TabIndex = 156 -Me.CBSubPierced.Text = "Pierced" -Me.CBSubPierced.UseVisualStyleBackColor = true -' -'TBSubEyeColor -' -Me.TBSubEyeColor.BackColor = System.Drawing.Color.White -Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black -Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) -Me.TBSubEyeColor.Name = "TBSubEyeColor" -Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) -Me.TBSubEyeColor.TabIndex = 155 -Me.TBSubEyeColor.Text = "brown" -' -'TBSubHairColor -' -Me.TBSubHairColor.BackColor = System.Drawing.Color.White -Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black -Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) -Me.TBSubHairColor.Name = "TBSubHairColor" -Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) -Me.TBSubHairColor.TabIndex = 154 -Me.TBSubHairColor.Text = "brown" -' -'Label63 -' -Me.Label63.AutoSize = true -Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label63.ForeColor = System.Drawing.Color.Black -Me.Label63.Location = New System.Drawing.Point(113, 41) -Me.Label63.Name = "Label63" -Me.Label63.Size = New System.Drawing.Size(12, 13) -Me.Label63.TabIndex = 143 -Me.Label63.Text = "/" -Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLSubInches -' -Me.LBLSubInches.AutoSize = true -Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) -Me.LBLSubInches.Name = "LBLSubInches" -Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) -Me.LBLSubInches.TabIndex = 124 -Me.LBLSubInches.Text = "inches" -Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'subAgeNumBox -' -Me.subAgeNumBox.BackColor = System.Drawing.Color.White -Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black -Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) -Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) -Me.subAgeNumBox.Name = "subAgeNumBox" -Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) -Me.subAgeNumBox.TabIndex = 27 -Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) -' -'NBBirthdayMonth -' -Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White -Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black -Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) -Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) -Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBBirthdayMonth.Name = "NBBirthdayMonth" -Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) -Me.NBBirthdayMonth.TabIndex = 41 -Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'LBLSubCockSize -' -Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent -Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black -Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) -Me.LBLSubCockSize.Name = "LBLSubCockSize" -Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) -Me.LBLSubCockSize.TabIndex = 142 -Me.LBLSubCockSize.Text = "Cock Size:" -Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CockSizeNumBox -' -Me.CockSizeNumBox.BackColor = System.Drawing.Color.White -Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black -Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) -Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) -Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.CockSizeNumBox.Name = "CockSizeNumBox" -Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) -Me.CockSizeNumBox.TabIndex = 123 -Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) -' -'LBLSubEye -' -Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent -Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubEye.ForeColor = System.Drawing.Color.Black -Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) -Me.LBLSubEye.Name = "LBLSubEye" -Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) -Me.LBLSubEye.TabIndex = 141 -Me.LBLSubEye.Text = "Eye Color" -Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLSubHair -' -Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent -Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubHair.ForeColor = System.Drawing.Color.Black -Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) -Me.LBLSubHair.Name = "LBLSubHair" -Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) -Me.LBLSubHair.TabIndex = 140 -Me.LBLSubHair.Text = "Hair Color" -Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLSubBirthday -' -Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent -Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black -Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) -Me.LBLSubBirthday.Name = "LBLSubBirthday" -Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) -Me.LBLSubBirthday.TabIndex = 139 -Me.LBLSubBirthday.Text = "Birthday:" -Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLSubAge -' -Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent -Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubAge.ForeColor = System.Drawing.Color.Black -Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) -Me.LBLSubAge.Name = "LBLSubAge" -Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) -Me.LBLSubAge.TabIndex = 138 -Me.LBLSubAge.Text = "Age:" -Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label70 -' -Me.Label70.BackColor = System.Drawing.Color.Transparent -Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label70.ForeColor = System.Drawing.Color.Black -Me.Label70.Location = New System.Drawing.Point(7, 6) -Me.Label70.Name = "Label70" -Me.Label70.Size = New System.Drawing.Size(692, 21) -Me.Label70.TabIndex = 49 -Me.Label70.Text = "Sub Settings" -Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage16 -' -Me.TabPage16.BackColor = System.Drawing.Color.Silver -Me.TabPage16.Controls.Add(Me.Panel9) -Me.TabPage16.Location = New System.Drawing.Point(4, 22) -Me.TabPage16.Name = "TabPage16" -Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage16.Size = New System.Drawing.Size(720, 448) -Me.TabPage16.TabIndex = 14 -Me.TabPage16.Text = "Scripts" -' -'Panel9 -' -Me.Panel9.BackColor = System.Drawing.Color.LightGray -Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel9.Controls.Add(Me.BTNScriptAvailable) -Me.Panel9.Controls.Add(Me.BTNScriptNone) -Me.Panel9.Controls.Add(Me.BTNScriptAll) -Me.Panel9.Controls.Add(Me.BTNScriptOpen) -Me.Panel9.Controls.Add(Me.LBLScriptReq) -Me.Panel9.Controls.Add(Me.GroupBox31) -Me.Panel9.Controls.Add(Me.TCScripts) -Me.Panel9.Controls.Add(Me.GroupBox42) -Me.Panel9.Controls.Add(Me.PictureBox1) -Me.Panel9.Controls.Add(Me.GroupBox43) -Me.Panel9.Controls.Add(Me.Label104) -Me.Panel9.Location = New System.Drawing.Point(6, 6) -Me.Panel9.Name = "Panel9" -Me.Panel9.Size = New System.Drawing.Size(708, 437) -Me.Panel9.TabIndex = 94 -' -'BTNScriptAvailable -' -Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) -Me.BTNScriptAvailable.Name = "BTNScriptAvailable" -Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) -Me.BTNScriptAvailable.TabIndex = 160 -Me.BTNScriptAvailable.Text = "Select Available" -Me.BTNScriptAvailable.UseVisualStyleBackColor = true -' -'BTNScriptNone -' -Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) -Me.BTNScriptNone.Name = "BTNScriptNone" -Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) -Me.BTNScriptNone.TabIndex = 159 -Me.BTNScriptNone.Text = "Select None" -Me.BTNScriptNone.UseVisualStyleBackColor = true -' -'BTNScriptAll -' -Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) -Me.BTNScriptAll.Name = "BTNScriptAll" -Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) -Me.BTNScriptAll.TabIndex = 158 -Me.BTNScriptAll.Text = "Select All" -Me.BTNScriptAll.UseVisualStyleBackColor = true -' -'BTNScriptOpen -' -Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) -Me.BTNScriptOpen.Name = "BTNScriptOpen" -Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) -Me.BTNScriptOpen.TabIndex = 157 -Me.BTNScriptOpen.Text = "Open Script" -Me.BTNScriptOpen.UseVisualStyleBackColor = true -' -'LBLScriptReq -' -Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray -Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green -Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) -Me.LBLScriptReq.Name = "LBLScriptReq" -Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) -Me.LBLScriptReq.TabIndex = 156 -Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox31 -' -Me.GroupBox31.Controls.Add(Me.RTBScriptReq) -Me.GroupBox31.Location = New System.Drawing.Point(314, 169) -Me.GroupBox31.Name = "GroupBox31" -Me.GroupBox31.Size = New System.Drawing.Size(385, 110) -Me.GroupBox31.TabIndex = 155 -Me.GroupBox31.TabStop = false -Me.GroupBox31.Text = "Requirements" -' -'RTBScriptReq -' -Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) -Me.RTBScriptReq.Name = "RTBScriptReq" -Me.RTBScriptReq.ReadOnly = true -Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) -Me.RTBScriptReq.TabIndex = 0 -Me.RTBScriptReq.Text = "" -' -'TCScripts -' -Me.TCScripts.Controls.Add(Me.TabPage21) -Me.TCScripts.Controls.Add(Me.TabPage17) -Me.TCScripts.Controls.Add(Me.TabPage18) -Me.TCScripts.Controls.Add(Me.TabPage19) -Me.TCScripts.Location = New System.Drawing.Point(9, 31) -Me.TCScripts.Name = "TCScripts" -Me.TCScripts.SelectedIndex = 0 -Me.TCScripts.Size = New System.Drawing.Size(299, 248) -Me.TCScripts.TabIndex = 154 -' -'TabPage21 -' -Me.TabPage21.BackColor = System.Drawing.Color.Silver -Me.TabPage21.Controls.Add(Me.CLBStartList) -Me.TabPage21.Location = New System.Drawing.Point(4, 22) -Me.TabPage21.Name = "TabPage21" -Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage21.Size = New System.Drawing.Size(291, 222) -Me.TabPage21.TabIndex = 4 -Me.TabPage21.Text = "Start" -' -'CLBStartList -' -Me.CLBStartList.FormattingEnabled = true -Me.CLBStartList.Location = New System.Drawing.Point(4, 4) -Me.CLBStartList.Name = "CLBStartList" -Me.CLBStartList.Size = New System.Drawing.Size(283, 214) -Me.CLBStartList.Sorted = true -Me.CLBStartList.TabIndex = 155 -' -'TabPage17 -' -Me.TabPage17.BackColor = System.Drawing.Color.Silver -Me.TabPage17.Controls.Add(Me.CLBModuleList) -Me.TabPage17.Location = New System.Drawing.Point(4, 22) -Me.TabPage17.Name = "TabPage17" -Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage17.Size = New System.Drawing.Size(291, 222) -Me.TabPage17.TabIndex = 5 -Me.TabPage17.Text = "Modules" -' -'CLBModuleList -' -Me.CLBModuleList.FormattingEnabled = true -Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) -Me.CLBModuleList.Name = "CLBModuleList" -Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) -Me.CLBModuleList.Sorted = true -Me.CLBModuleList.TabIndex = 156 -' -'TabPage18 -' -Me.TabPage18.BackColor = System.Drawing.Color.Silver -Me.TabPage18.Controls.Add(Me.CLBLinkList) -Me.TabPage18.Location = New System.Drawing.Point(4, 22) -Me.TabPage18.Name = "TabPage18" -Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage18.Size = New System.Drawing.Size(291, 222) -Me.TabPage18.TabIndex = 6 -Me.TabPage18.Text = "Link" -' -'CLBLinkList -' -Me.CLBLinkList.FormattingEnabled = true -Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) -Me.CLBLinkList.Name = "CLBLinkList" -Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) -Me.CLBLinkList.Sorted = true -Me.CLBLinkList.TabIndex = 156 -' -'TabPage19 -' -Me.TabPage19.BackColor = System.Drawing.Color.Silver -Me.TabPage19.Controls.Add(Me.CLBEndList) -Me.TabPage19.Location = New System.Drawing.Point(4, 22) -Me.TabPage19.Name = "TabPage19" -Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage19.Size = New System.Drawing.Size(291, 222) -Me.TabPage19.TabIndex = 7 -Me.TabPage19.Text = "End" -' -'CLBEndList -' -Me.CLBEndList.FormattingEnabled = true -Me.CLBEndList.Location = New System.Drawing.Point(4, 4) -Me.CLBEndList.Name = "CLBEndList" -Me.CLBEndList.Size = New System.Drawing.Size(283, 214) -Me.CLBEndList.Sorted = true -Me.CLBEndList.TabIndex = 156 -' -'GroupBox42 -' -Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) -Me.GroupBox42.Location = New System.Drawing.Point(314, 53) -Me.GroupBox42.Name = "GroupBox42" -Me.GroupBox42.Size = New System.Drawing.Size(385, 110) -Me.GroupBox42.TabIndex = 153 -Me.GroupBox42.TabStop = false -Me.GroupBox42.Text = "Description" -' -'RTBScriptDesc -' -Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) -Me.RTBScriptDesc.Name = "RTBScriptDesc" -Me.RTBScriptDesc.ReadOnly = true -Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) -Me.RTBScriptDesc.TabIndex = 0 -Me.RTBScriptDesc.Text = "" -' -'PictureBox1 -' -Me.PictureBox1.BackColor = System.Drawing.Color.LightGray -Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox1.Location = New System.Drawing.Point(9, 6) -Me.PictureBox1.Name = "PictureBox1" -Me.PictureBox1.Size = New System.Drawing.Size(160, 19) -Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox1.TabIndex = 151 -Me.PictureBox1.TabStop = false -' -'GroupBox43 -' -Me.GroupBox43.BackColor = System.Drawing.Color.LightGray -Me.GroupBox43.Controls.Add(Me.Label98) -Me.GroupBox43.ForeColor = System.Drawing.Color.Black -Me.GroupBox43.Location = New System.Drawing.Point(7, 331) -Me.GroupBox43.Name = "GroupBox43" -Me.GroupBox43.Size = New System.Drawing.Size(692, 92) -Me.GroupBox43.TabIndex = 65 -Me.GroupBox43.TabStop = false -Me.GroupBox43.Text = "Description" -' -'Label98 -' -Me.Label98.BackColor = System.Drawing.Color.Transparent -Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label98.ForeColor = System.Drawing.Color.Black -Me.Label98.Location = New System.Drawing.Point(6, 16) -Me.Label98.Name = "Label98" -Me.Label98.Size = New System.Drawing.Size(680, 73) -Me.Label98.TabIndex = 62 -Me.Label98.Text = resources.GetString("Label98.Text") -Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label104 -' -Me.Label104.BackColor = System.Drawing.Color.Transparent -Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label104.ForeColor = System.Drawing.Color.Black -Me.Label104.Location = New System.Drawing.Point(7, 6) -Me.Label104.Name = "Label104" -Me.Label104.Size = New System.Drawing.Size(692, 21) -Me.Label104.TabIndex = 49 -Me.Label104.Text = "Script Selection" -Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage7 -' -Me.TabPage7.BackColor = System.Drawing.Color.Silver -Me.TabPage7.Controls.Add(Me.TabControl4) -Me.TabPage7.Location = New System.Drawing.Point(4, 22) -Me.TabPage7.Name = "TabPage7" -Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage7.Size = New System.Drawing.Size(720, 448) -Me.TabPage7.TabIndex = 11 -Me.TabPage7.Text = "Images" -' -'TabControl4 -' -Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) -Me.TabControl4.Controls.Add(Me.TpImagesGenre) -Me.TabControl4.Location = New System.Drawing.Point(6, 6) -Me.TabControl4.Name = "TabControl4" -Me.TabControl4.SelectedIndex = 0 -Me.TabControl4.Size = New System.Drawing.Size(708, 437) -Me.TabControl4.TabIndex = 154 -' -'TpImagesUrlFiles -' -Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray -Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) -Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) -Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) -Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) -Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) -Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) -Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" -Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) -Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) -Me.TpImagesUrlFiles.TabIndex = 0 -Me.TpImagesUrlFiles.Text = "URL Files" -' -'CBURLPreview -' -Me.CBURLPreview.AutoSize = true -Me.CBURLPreview.Checked = true -Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) -Me.CBURLPreview.Name = "CBURLPreview" -Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) -Me.CBURLPreview.TabIndex = 163 -Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" -Me.CBURLPreview.UseVisualStyleBackColor = true -' -'GroupBox66 -' -Me.GroupBox66.Controls.Add(Me.PBURLPreview) -Me.GroupBox66.Location = New System.Drawing.Point(344, 3) -Me.GroupBox66.Name = "GroupBox66" -Me.GroupBox66.Size = New System.Drawing.Size(350, 309) -Me.GroupBox66.TabIndex = 162 -Me.GroupBox66.TabStop = false -Me.GroupBox66.Text = "Example Preview" -' -'PBURLPreview -' -Me.PBURLPreview.BackColor = System.Drawing.Color.Black -Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) -Me.PBURLPreview.Name = "PBURLPreview" -Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) -Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.PBURLPreview.TabIndex = 0 -Me.PBURLPreview.TabStop = false -' -'BTNURLFilesAll -' -Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) -Me.BTNURLFilesAll.Name = "BTNURLFilesAll" -Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) -Me.BTNURLFilesAll.TabIndex = 160 -Me.BTNURLFilesAll.Text = "Select All" -Me.BTNURLFilesAll.UseVisualStyleBackColor = true -' -'BTNURLFilesNone -' -Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) -Me.BTNURLFilesNone.Name = "BTNURLFilesNone" -Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) -Me.BTNURLFilesNone.TabIndex = 161 -Me.BTNURLFilesNone.Text = "Select None" -Me.BTNURLFilesNone.UseVisualStyleBackColor = true -' -'URLFileList -' -Me.URLFileList.CheckOnClick = true -Me.URLFileList.FormattingEnabled = true -Me.URLFileList.Location = New System.Drawing.Point(6, 9) -Me.URLFileList.Name = "URLFileList" -Me.URLFileList.Size = New System.Drawing.Size(332, 394) -Me.URLFileList.Sorted = true -Me.URLFileList.TabIndex = 154 -' -'TpImagesGenre -' -Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray -Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) -Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) -Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) -Me.TpImagesGenre.Name = "TpImagesGenre" -Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) -Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) -Me.TpImagesGenre.TabIndex = 1 -Me.TpImagesGenre.Text = "Genre Images" -' -'GrbImageUrlFiles -' -Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) -Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) -Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" -Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) -Me.GrbImageUrlFiles.TabIndex = 1 -Me.GrbImageUrlFiles.TabStop = false -Me.GrbImageUrlFiles.Text = "URL Files" -' -'TlpImageUrls -' -Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray -Me.TlpImageUrls.ColumnCount = 3 -Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) -Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill -Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize -Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) -Me.TlpImageUrls.Name = "TlpImageUrls" -Me.TlpImageUrls.RowCount = 14 -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) -Me.TlpImageUrls.TabIndex = 0 -' -'BtnImageUrlButt -' -Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) -Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) -Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlButt.Name = "BtnImageUrlButt" -Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlButt.TabIndex = 38 -Me.BtnImageUrlButt.Text = "1" -Me.BtnImageUrlButt.UseVisualStyleBackColor = false -' -'BtnImageUrlBoobs -' -Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) -Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) -Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" -Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlBoobs.TabIndex = 35 -Me.BtnImageUrlBoobs.Text = "1" -Me.BtnImageUrlBoobs.UseVisualStyleBackColor = false -' -'BtnImageUrlBlowjob -' -Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" -Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlBlowjob.TabIndex = 11 -Me.BtnImageUrlBlowjob.Text = "1" -Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = false -' -'BtnImageUrlCaptions -' -Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) -Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" -Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlCaptions.TabIndex = 29 -Me.BtnImageUrlCaptions.Text = "1" -Me.BtnImageUrlCaptions.UseVisualStyleBackColor = false -' -'BtnImageUrlHentai -' -Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) -Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" -Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlHentai.TabIndex = 20 -Me.BtnImageUrlHentai.Text = "1" -Me.BtnImageUrlHentai.UseVisualStyleBackColor = false -' -'BtnImageUrlGay -' -Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) -Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlGay.Name = "BtnImageUrlGay" -Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlGay.TabIndex = 23 -Me.BtnImageUrlGay.Text = "1" -Me.BtnImageUrlGay.UseVisualStyleBackColor = false -' -'BtnImageUrlGeneral -' -Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) -Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" -Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlGeneral.TabIndex = 32 -Me.BtnImageUrlGeneral.Text = "1" -Me.BtnImageUrlGeneral.UseVisualStyleBackColor = false -' -'BtnImageUrlHardcore -' -Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) -Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" -Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlHardcore.TabIndex = 1 -Me.BtnImageUrlHardcore.Text = "1" -Me.BtnImageUrlHardcore.UseVisualStyleBackColor = false -' -'BtnImageUrlLesbian -' -Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) -Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" -Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlLesbian.TabIndex = 8 -Me.BtnImageUrlLesbian.Text = "1" -Me.BtnImageUrlLesbian.UseVisualStyleBackColor = false -' -'BtnImageUrlLezdom -' -Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) -Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" -Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlLezdom.TabIndex = 17 -Me.BtnImageUrlLezdom.Text = "1" -Me.BtnImageUrlLezdom.UseVisualStyleBackColor = false -' -'BtnImageUrlMaledom -' -Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) -Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" -Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlMaledom.TabIndex = 26 -Me.BtnImageUrlMaledom.Text = "1" -Me.BtnImageUrlMaledom.UseVisualStyleBackColor = false -' -'BtnImageUrlFemdom -' -Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) -Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" -Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlFemdom.TabIndex = 14 -Me.BtnImageUrlFemdom.Text = "1" -Me.BtnImageUrlFemdom.UseVisualStyleBackColor = false -' -'BtnImageUrlSoftcore -' -Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) -Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" -Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlSoftcore.TabIndex = 5 -Me.BtnImageUrlSoftcore.Text = "1" -Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false -' -'ChbImageUrlHardcore -' -Me.ChbImageUrlHardcore.AutoSize = true -Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled -Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) -Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" -Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHardcore.TabIndex = 0 -Me.ChbImageUrlHardcore.Text = "Hardcore" -Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true -' -'ChbImageUrlButts -' -Me.ChbImageUrlButts.AutoSize = true -Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled -Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) -Me.ChbImageUrlButts.Name = "ChbImageUrlButts" -Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) -Me.ChbImageUrlButts.TabIndex = 37 -Me.ChbImageUrlButts.Text = "Butts" -Me.ChbImageUrlButts.UseVisualStyleBackColor = true -' -'ChbImageUrlMaledom -' -Me.ChbImageUrlMaledom.AutoSize = true -Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled -Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) -Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" -Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlMaledom.TabIndex = 25 -Me.ChbImageUrlMaledom.Text = "Maledom" -Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true -' -'ChbImageUrlGay -' -Me.ChbImageUrlGay.AutoSize = true -Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled -Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) -Me.ChbImageUrlGay.Name = "ChbImageUrlGay" -Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGay.TabIndex = 22 -Me.ChbImageUrlGay.Text = "Gay" -Me.ChbImageUrlGay.UseVisualStyleBackColor = true -' -'ChbImageUrlSoftcore -' -Me.ChbImageUrlSoftcore.AutoSize = true -Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled -Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) -Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" -Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlSoftcore.TabIndex = 4 -Me.ChbImageUrlSoftcore.Text = "Softcore" -Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true -' -'ChbImageUrlBoobs -' -Me.ChbImageUrlBoobs.AutoSize = true -Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled -Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) -Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" -Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBoobs.TabIndex = 34 -Me.ChbImageUrlBoobs.Text = "Boobs" -Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true -' -'ChbImageUrlLesbian -' -Me.ChbImageUrlLesbian.AutoSize = true -Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled -Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) -Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" -Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLesbian.TabIndex = 7 -Me.ChbImageUrlLesbian.Text = "Lesbian" -Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true -' -'ChbImageUrlBlowjob -' -Me.ChbImageUrlBlowjob.AutoSize = true -Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled -Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) -Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" -Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBlowjob.TabIndex = 10 -Me.ChbImageUrlBlowjob.Text = "Blowjob" -Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true -' -'ChbImageUrlCaptions -' -Me.ChbImageUrlCaptions.AutoSize = true -Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled -Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) -Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" -Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlCaptions.TabIndex = 28 -Me.ChbImageUrlCaptions.Text = "Captions" -Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true -' -'ChbImageUrlGeneral -' -Me.ChbImageUrlGeneral.AutoSize = true -Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled -Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) -Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" -Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGeneral.TabIndex = 31 -Me.ChbImageUrlGeneral.Text = "General" -Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true -' -'ChbImageUrlFemdom -' -Me.ChbImageUrlFemdom.AutoSize = true -Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled -Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) -Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" -Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlFemdom.TabIndex = 13 -Me.ChbImageUrlFemdom.Text = "Femdom" -Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true -' -'ChbImageUrlHentai -' -Me.ChbImageUrlHentai.AutoSize = true -Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled -Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) -Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" -Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHentai.TabIndex = 19 -Me.ChbImageUrlHentai.Text = "Hentai" -Me.ChbImageUrlHentai.UseVisualStyleBackColor = true -' -'ChbImageUrlLezdom -' -Me.ChbImageUrlLezdom.AutoSize = true -Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled -Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) -Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" -Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLezdom.TabIndex = 16 -Me.ChbImageUrlLezdom.Text = "Lezdom" -Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true -' -'TxbImageUrlBlowjob -' -Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" -Me.TxbImageUrlBlowjob.ReadOnly = true -Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.TabIndex = 12 -Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob -' -'TxbImageUrlSoftcore -' -Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) -Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" -Me.TxbImageUrlSoftcore.ReadOnly = true -Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.TabIndex = 6 -Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore -' -'TxbImageUrlLezdom -' -Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) -Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" -Me.TxbImageUrlLezdom.ReadOnly = true -Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.TabIndex = 18 -Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom -' -'TxbImageUrlFemdom -' -Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) -Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" -Me.TxbImageUrlFemdom.ReadOnly = true -Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.TabIndex = 15 -Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom -' -'TxbImageUrlHardcore -' -Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) -Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" -Me.TxbImageUrlHardcore.ReadOnly = true -Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.TabIndex = 3 -Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore -' -'TxbImageUrlHentai -' -Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) -Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" -Me.TxbImageUrlHentai.ReadOnly = true -Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.TabIndex = 21 -Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai -' -'TxbImageUrlGay -' -Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) -Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.Name = "TxbImageUrlGay" -Me.TxbImageUrlGay.ReadOnly = true -Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.TabIndex = 24 -Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay -' -'TxbImageUrlLesbian -' -Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) -Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" -Me.TxbImageUrlLesbian.ReadOnly = true -Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.TabIndex = 9 -Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian -' -'TxbImageUrlMaledom -' -Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) -Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" -Me.TxbImageUrlMaledom.ReadOnly = true -Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.TabIndex = 27 -Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom -' -'TxbImageUrlCaptions -' -Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) -Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" -Me.TxbImageUrlCaptions.ReadOnly = true -Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.TabIndex = 30 -Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions -' -'TxbImageUrlGeneral -' -Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) -Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" -Me.TxbImageUrlGeneral.ReadOnly = true -Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.TabIndex = 33 -Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral -' -'TxbImageUrlBoobs -' -Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) -Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" -Me.TxbImageUrlBoobs.ReadOnly = true -Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.TabIndex = 36 -Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs -' -'TxbImageUrlButts -' -Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) -Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.Name = "TxbImageUrlButts" -Me.TxbImageUrlButts.ReadOnly = true -Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.TabIndex = 39 -Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt -' -'GbxImagesGenre -' -Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) -Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) -Me.GbxImagesGenre.Name = "GbxImagesGenre" -Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) -Me.GbxImagesGenre.TabIndex = 0 -Me.GbxImagesGenre.TabStop = false -Me.GbxImagesGenre.Text = "Local Images" -' -'TableLayoutPanel1 -' -Me.TableLayoutPanel1.ColumnCount = 4 -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) -Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) -Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) -Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) -Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill -Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize -Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) -Me.TableLayoutPanel1.Name = "TableLayoutPanel1" -Me.TableLayoutPanel1.RowCount = 13 -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) -Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) -Me.TableLayoutPanel1.TabIndex = 0 -' -'BTNIHardcore -' -Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray -Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black -Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) -Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHardcore.Name = "BTNIHardcore" -Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) -Me.BTNIHardcore.TabIndex = 1 -Me.BTNIHardcore.Text = "1" -Me.BTNIHardcore.UseVisualStyleBackColor = false -' -'TbxIHardcore -' -Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray -Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black -Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) -Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.Name = "TbxIHardcore" -Me.TbxIHardcore.ReadOnly = true -Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.TabIndex = 2 -Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore -' -'CBIHardcoreSD -' -Me.CBIHardcoreSD.AutoSize = true -Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD -Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) -Me.CBIHardcoreSD.Name = "CBIHardcoreSD" -Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHardcoreSD.TabIndex = 3 -Me.CBIHardcoreSD.UseVisualStyleBackColor = true -' -'CBIHardcore -' -Me.CBIHardcore.AutoSize = true -Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore -Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcore.ForeColor = System.Drawing.Color.Black -Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) -Me.CBIHardcore.Name = "CBIHardcore" -Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) -Me.CBIHardcore.TabIndex = 0 -Me.CBIHardcore.Text = "Hardcore" -Me.CBIHardcore.UseVisualStyleBackColor = true -' -'CBISoftcore -' -Me.CBISoftcore.AutoSize = true -Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore -Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcore.ForeColor = System.Drawing.Color.Black -Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) -Me.CBISoftcore.Name = "CBISoftcore" -Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) -Me.CBISoftcore.TabIndex = 4 -Me.CBISoftcore.Text = "Softcore" -Me.CBISoftcore.UseVisualStyleBackColor = true -' -'TbxISoftcore -' -Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray -Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black -Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) -Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.Name = "TbxISoftcore" -Me.TbxISoftcore.ReadOnly = true -Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.TabIndex = 6 -Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore -' -'CBButtSubDir -' -Me.CBButtSubDir.AutoSize = true -Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir -Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black -Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) -Me.CBButtSubDir.Name = "CBButtSubDir" -Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) -Me.CBButtSubDir.TabIndex = 51 -Me.CBButtSubDir.UseVisualStyleBackColor = true -' -'CBISoftcoreSD -' -Me.CBISoftcoreSD.AutoSize = true -Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD -Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) -Me.CBISoftcoreSD.Name = "CBISoftcoreSD" -Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBISoftcoreSD.TabIndex = 7 -Me.CBISoftcoreSD.UseVisualStyleBackColor = true -' -'CBBoobSubDir -' -Me.CBBoobSubDir.AutoSize = true -Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir -Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black -Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) -Me.CBBoobSubDir.Name = "CBBoobSubDir" -Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) -Me.CBBoobSubDir.TabIndex = 47 -Me.CBBoobSubDir.UseVisualStyleBackColor = true -' -'CBILezdomSD -' -Me.CBILezdomSD.AutoSize = true -Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD -Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black -Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) -Me.CBILezdomSD.Name = "CBILezdomSD" -Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBILezdomSD.TabIndex = 23 -Me.CBILezdomSD.UseVisualStyleBackColor = true -' -'CBIGeneralSD -' -Me.CBIGeneralSD.AutoSize = true -Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD -Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black -Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) -Me.CBIGeneralSD.Name = "CBIGeneralSD" -Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) -Me.CBIGeneralSD.TabIndex = 43 -Me.CBIGeneralSD.UseVisualStyleBackColor = true -' -'CBILesbianSD -' -Me.CBILesbianSD.AutoSize = true -Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD -Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black -Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) -Me.CBILesbianSD.Name = "CBILesbianSD" -Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) -Me.CBILesbianSD.TabIndex = 11 -Me.CBILesbianSD.UseVisualStyleBackColor = true -' -'CBICaptionsSD -' -Me.CBICaptionsSD.AutoSize = true -Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD -Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black -Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) -Me.CBICaptionsSD.Name = "CBICaptionsSD" -Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) -Me.CBICaptionsSD.TabIndex = 39 -Me.CBICaptionsSD.UseVisualStyleBackColor = true -' -'CBILesbian -' -Me.CBILesbian.AutoSize = true -Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian -Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbian.ForeColor = System.Drawing.Color.Black -Me.CBILesbian.Location = New System.Drawing.Point(3, 61) -Me.CBILesbian.Name = "CBILesbian" -Me.CBILesbian.Size = New System.Drawing.Size(70, 23) -Me.CBILesbian.TabIndex = 8 -Me.CBILesbian.Text = "Lesbian" -Me.CBILesbian.UseVisualStyleBackColor = true -' -'CBIMaledomSD -' -Me.CBIMaledomSD.AutoSize = true -Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD -Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black -Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) -Me.CBIMaledomSD.Name = "CBIMaledomSD" -Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIMaledomSD.TabIndex = 35 -Me.CBIMaledomSD.UseVisualStyleBackColor = true -' -'CBIBlowjob -' -Me.CBIBlowjob.AutoSize = true -Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob -Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) -Me.CBIBlowjob.Name = "CBIBlowjob" -Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) -Me.CBIBlowjob.TabIndex = 12 -Me.CBIBlowjob.Text = "Blowjob" -Me.CBIBlowjob.UseVisualStyleBackColor = true -' -'CBIGaySD -' -Me.CBIGaySD.AutoSize = true -Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD -Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGaySD.ForeColor = System.Drawing.Color.Black -Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) -Me.CBIGaySD.Name = "CBIGaySD" -Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) -Me.CBIGaySD.TabIndex = 31 -Me.CBIGaySD.UseVisualStyleBackColor = true -' -'CBIHentaiSD -' -Me.CBIHentaiSD.AutoSize = true -Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD -Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black -Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) -Me.CBIHentaiSD.Name = "CBIHentaiSD" -Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHentaiSD.TabIndex = 27 -Me.CBIHentaiSD.UseVisualStyleBackColor = true -' -'CBIBlowjobSD -' -Me.CBIBlowjobSD.AutoSize = true -Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD -Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) -Me.CBIBlowjobSD.Name = "CBIBlowjobSD" -Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) -Me.CBIBlowjobSD.TabIndex = 15 -Me.CBIBlowjobSD.UseVisualStyleBackColor = true -' -'CBIFemdomSD -' -Me.CBIFemdomSD.AutoSize = true -Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD -Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black -Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) -Me.CBIFemdomSD.Name = "CBIFemdomSD" -Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIFemdomSD.TabIndex = 19 -Me.CBIFemdomSD.UseVisualStyleBackColor = true -' -'TbxIButts -' -Me.TbxIButts.BackColor = System.Drawing.Color.LightGray -Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIButts.ForeColor = System.Drawing.Color.Black -Me.TbxIButts.Location = New System.Drawing.Point(115, 353) -Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIButts.Name = "TbxIButts" -Me.TbxIButts.ReadOnly = true -Me.TbxIButts.Size = New System.Drawing.Size(217, 17) -Me.TbxIButts.TabIndex = 50 -Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath -' -'CBIFemdom -' -Me.CBIFemdom.AutoSize = true -Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom -Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdom.ForeColor = System.Drawing.Color.Black -Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) -Me.CBIFemdom.Name = "CBIFemdom" -Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) -Me.CBIFemdom.TabIndex = 16 -Me.CBIFemdom.Text = "Femdom" -Me.CBIFemdom.UseVisualStyleBackColor = true -' -'TbxILesbian -' -Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray -Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILesbian.ForeColor = System.Drawing.Color.Black -Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) -Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILesbian.Name = "TbxILesbian" -Me.TbxILesbian.ReadOnly = true -Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) -Me.TbxILesbian.TabIndex = 10 -Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian -' -'BTNISoftcore -' -Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray -Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black -Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) -Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNISoftcore.Name = "BTNISoftcore" -Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) -Me.BTNISoftcore.TabIndex = 5 -Me.BTNISoftcore.Text = "1" -Me.BTNISoftcore.UseVisualStyleBackColor = false -' -'CBILezdom -' -Me.CBILezdom.AutoSize = true -Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom -Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdom.ForeColor = System.Drawing.Color.Black -Me.CBILezdom.Location = New System.Drawing.Point(3, 148) -Me.CBILezdom.Name = "CBILezdom" -Me.CBILezdom.Size = New System.Drawing.Size(70, 23) -Me.CBILezdom.TabIndex = 20 -Me.CBILezdom.Text = "Lezdom" -Me.CBILezdom.UseVisualStyleBackColor = true -' -'TbxIBoobs -' -Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray -Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black -Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) -Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.Name = "TbxIBoobs" -Me.TbxIBoobs.ReadOnly = true -Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.TabIndex = 46 -Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath -' -'CBIHentai -' -Me.CBIHentai.AutoSize = true -Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai -Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentai.ForeColor = System.Drawing.Color.Black -Me.CBIHentai.Location = New System.Drawing.Point(3, 177) -Me.CBIHentai.Name = "CBIHentai" -Me.CBIHentai.Size = New System.Drawing.Size(70, 23) -Me.CBIHentai.TabIndex = 24 -Me.CBIHentai.Text = "Hentai" -Me.CBIHentai.UseVisualStyleBackColor = true -' -'TbxIBlowjob -' -Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black -Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.Name = "TbxIBlowjob" -Me.TbxIBlowjob.ReadOnly = true -Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.TabIndex = 14 -Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob -' -'CBIGay -' -Me.CBIGay.AutoSize = true -Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay -Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGay.ForeColor = System.Drawing.Color.Black -Me.CBIGay.Location = New System.Drawing.Point(3, 206) -Me.CBIGay.Name = "CBIGay" -Me.CBIGay.Size = New System.Drawing.Size(70, 23) -Me.CBIGay.TabIndex = 28 -Me.CBIGay.Text = "Gay" -Me.CBIGay.UseVisualStyleBackColor = true -' -'TbxIGeneral -' -Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray -Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black -Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) -Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.Name = "TbxIGeneral" -Me.TbxIGeneral.ReadOnly = true -Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.TabIndex = 42 -Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral -' -'CBIMaledom -' -Me.CBIMaledom.AutoSize = true -Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom -Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledom.ForeColor = System.Drawing.Color.Black -Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) -Me.CBIMaledom.Name = "CBIMaledom" -Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) -Me.CBIMaledom.TabIndex = 32 -Me.CBIMaledom.Text = "Maledom" -Me.CBIMaledom.UseVisualStyleBackColor = true -' -'TbxIFemdom -' -Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray -Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black -Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) -Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.Name = "TbxIFemdom" -Me.TbxIFemdom.ReadOnly = true -Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.TabIndex = 18 -Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom -' -'BTNILesbian -' -Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILesbian.ForeColor = System.Drawing.Color.Black -Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) -Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILesbian.Name = "BTNILesbian" -Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNILesbian.TabIndex = 9 -Me.BTNILesbian.Text = "1" -Me.BTNILesbian.UseVisualStyleBackColor = false -' -'TbxICaptions -' -Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray -Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxICaptions.ForeColor = System.Drawing.Color.Black -Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) -Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxICaptions.Name = "TbxICaptions" -Me.TbxICaptions.ReadOnly = true -Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) -Me.TbxICaptions.TabIndex = 38 -Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions -' -'CBICaptions -' -Me.CBICaptions.AutoSize = true -Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions -Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptions.ForeColor = System.Drawing.Color.Black -Me.CBICaptions.Location = New System.Drawing.Point(3, 264) -Me.CBICaptions.Name = "CBICaptions" -Me.CBICaptions.Size = New System.Drawing.Size(70, 23) -Me.CBICaptions.TabIndex = 36 -Me.CBICaptions.Text = "Captions" -Me.CBICaptions.UseVisualStyleBackColor = true -' -'TbxILezdom -' -Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray -Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILezdom.ForeColor = System.Drawing.Color.Black -Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) -Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILezdom.Name = "TbxILezdom" -Me.TbxILezdom.ReadOnly = true -Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) -Me.TbxILezdom.TabIndex = 22 -Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom -' -'TbxIMaledom -' -Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray -Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black -Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) -Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.Name = "TbxIMaledom" -Me.TbxIMaledom.ReadOnly = true -Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.TabIndex = 34 -Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom -' -'BTNButtPath -' -Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray -Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNButtPath.ForeColor = System.Drawing.Color.Black -Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) -Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNButtPath.Name = "BTNButtPath" -Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) -Me.BTNButtPath.TabIndex = 49 -Me.BTNButtPath.Text = "1" -Me.BTNButtPath.UseVisualStyleBackColor = false -' -'TbxIHentai -' -Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray -Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHentai.ForeColor = System.Drawing.Color.Black -Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) -Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHentai.Name = "TbxIHentai" -Me.TbxIHentai.ReadOnly = true -Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) -Me.TbxIHentai.TabIndex = 26 -Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai -' -'CBIGeneral -' -Me.CBIGeneral.AutoSize = true -Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral -Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneral.ForeColor = System.Drawing.Color.Black -Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) -Me.CBIGeneral.Name = "CBIGeneral" -Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) -Me.CBIGeneral.TabIndex = 40 -Me.CBIGeneral.Text = "General" -Me.CBIGeneral.UseVisualStyleBackColor = true -' -'TbxIGay -' -Me.TbxIGay.BackColor = System.Drawing.Color.LightGray -Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGay.ForeColor = System.Drawing.Color.Black -Me.TbxIGay.Location = New System.Drawing.Point(115, 208) -Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGay.Name = "TbxIGay" -Me.TbxIGay.ReadOnly = true -Me.TbxIGay.Size = New System.Drawing.Size(217, 17) -Me.TbxIGay.TabIndex = 30 -Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay -' -'CBIBoobs -' -Me.CBIBoobs.AutoSize = true -Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs -Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBoobs.ForeColor = System.Drawing.Color.Black -Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) -Me.CBIBoobs.Name = "CBIBoobs" -Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) -Me.CBIBoobs.TabIndex = 44 -Me.CBIBoobs.Text = "Boobs" -Me.CBIBoobs.UseVisualStyleBackColor = true -' -'CBIButts -' -Me.CBIButts.AutoSize = true -Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts -Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIButts.ForeColor = System.Drawing.Color.Black -Me.CBIButts.Location = New System.Drawing.Point(3, 351) -Me.CBIButts.Name = "CBIButts" -Me.CBIButts.Size = New System.Drawing.Size(70, 27) -Me.CBIButts.TabIndex = 48 -Me.CBIButts.Text = "Butts" -Me.CBIButts.UseVisualStyleBackColor = true -' -'BTNIBlowjob -' -Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIBlowjob.Name = "BTNIBlowjob" -Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNIBlowjob.TabIndex = 13 -Me.BTNIBlowjob.Text = "1" -Me.BTNIBlowjob.UseVisualStyleBackColor = false -' -'BTNIFemdom -' -Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray -Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black -Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) -Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIFemdom.Name = "BTNIFemdom" -Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) -Me.BTNIFemdom.TabIndex = 17 -Me.BTNIFemdom.Text = "1" -Me.BTNIFemdom.UseVisualStyleBackColor = false -' -'BTNBoobPath -' -Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray -Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black -Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) -Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNBoobPath.Name = "BTNBoobPath" -Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) -Me.BTNBoobPath.TabIndex = 45 -Me.BTNBoobPath.Text = "1" -Me.BTNBoobPath.UseVisualStyleBackColor = false -' -'BTNILezdom -' -Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray -Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILezdom.ForeColor = System.Drawing.Color.Black -Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) -Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILezdom.Name = "BTNILezdom" -Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) -Me.BTNILezdom.TabIndex = 21 -Me.BTNILezdom.Text = "1" -Me.BTNILezdom.UseVisualStyleBackColor = false -' -'BTNIHentai -' -Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray -Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHentai.ForeColor = System.Drawing.Color.Black -Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) -Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHentai.Name = "BTNIHentai" -Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) -Me.BTNIHentai.TabIndex = 25 -Me.BTNIHentai.Text = "1" -Me.BTNIHentai.UseVisualStyleBackColor = false -' -'BTNIGay -' -Me.BTNIGay.BackColor = System.Drawing.Color.LightGray -Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGay.ForeColor = System.Drawing.Color.Black -Me.BTNIGay.Location = New System.Drawing.Point(76, 203) -Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGay.Name = "BTNIGay" -Me.BTNIGay.Size = New System.Drawing.Size(34, 28) -Me.BTNIGay.TabIndex = 29 -Me.BTNIGay.Text = "1" -Me.BTNIGay.UseVisualStyleBackColor = false -' -'BTNIMaledom -' -Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray -Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black -Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) -Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIMaledom.Name = "BTNIMaledom" -Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) -Me.BTNIMaledom.TabIndex = 33 -Me.BTNIMaledom.Text = "1" -Me.BTNIMaledom.UseVisualStyleBackColor = false -' -'BTNICaptions -' -Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray -Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNICaptions.ForeColor = System.Drawing.Color.Black -Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) -Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNICaptions.Name = "BTNICaptions" -Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) -Me.BTNICaptions.TabIndex = 37 -Me.BTNICaptions.Text = "1" -Me.BTNICaptions.UseVisualStyleBackColor = false -' -'BTNIGeneral -' -Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) -Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGeneral.Name = "BTNIGeneral" -Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNIGeneral.TabIndex = 41 -Me.BTNIGeneral.Text = "1" -Me.BTNIGeneral.UseVisualStyleBackColor = false -' -'TabPage33 -' -Me.TabPage33.BackColor = System.Drawing.Color.Silver -Me.TabPage33.Controls.Add(Me.TabControl5) -Me.TabPage33.Location = New System.Drawing.Point(4, 22) -Me.TabPage33.Name = "TabPage33" -Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage33.Size = New System.Drawing.Size(720, 448) -Me.TabPage33.TabIndex = 21 -Me.TabPage33.Text = "Tagging" -' -'TabControl5 -' -Me.TabControl5.Controls.Add(Me.TabPage34) -Me.TabControl5.Controls.Add(Me.TabPage35) -Me.TabControl5.Location = New System.Drawing.Point(6, 6) -Me.TabControl5.Name = "TabControl5" -Me.TabControl5.SelectedIndex = 0 -Me.TabControl5.Size = New System.Drawing.Size(708, 437) -Me.TabControl5.TabIndex = 0 -' -'TabPage34 -' -Me.TabPage34.BackColor = System.Drawing.Color.LightGray -Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) -Me.TabPage34.Controls.Add(Me.CBTagAllFours) -Me.TabPage34.Controls.Add(Me.CBTagGlaring) -Me.TabPage34.Controls.Add(Me.CBTagSmiling) -Me.TabPage34.Controls.Add(Me.TBTagDir) -Me.TabPage34.Controls.Add(Me.CBTagPiercing) -Me.TabPage34.Controls.Add(Me.CBTagLegs) -Me.TabPage34.Controls.Add(Me.TBTagFurniture) -Me.TabPage34.Controls.Add(Me.CBTagFurniture) -Me.TabPage34.Controls.Add(Me.TBTagSexToy) -Me.TabPage34.Controls.Add(Me.CBTagSexToy) -Me.TabPage34.Controls.Add(Me.TBTagTattoo) -Me.TabPage34.Controls.Add(Me.CBTagTattoo) -Me.TabPage34.Controls.Add(Me.TBTagUnderwear) -Me.TabPage34.Controls.Add(Me.CBTagUnderwear) -Me.TabPage34.Controls.Add(Me.TBTagGarment) -Me.TabPage34.Controls.Add(Me.CBTagGarment) -Me.TabPage34.Controls.Add(Me.Label72) -Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) -Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) -Me.TabPage34.Controls.Add(Me.CBTagCloseUp) -Me.TabPage34.Controls.Add(Me.CBTagNaked) -Me.TabPage34.Controls.Add(Me.CBTagSideView) -Me.TabPage34.Controls.Add(Me.BTNTagPrevious) -Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) -Me.TabPage34.Controls.Add(Me.BTNTagNext) -Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) -Me.TabPage34.Controls.Add(Me.LBLTagCount) -Me.TabPage34.Controls.Add(Me.CBTagSucking) -Me.TabPage34.Controls.Add(Me.CBTagMasturbating) -Me.TabPage34.Controls.Add(Me.CBTagFeet) -Me.TabPage34.Controls.Add(Me.CBTagBoobs) -Me.TabPage34.Controls.Add(Me.CBTagAss) -Me.TabPage34.Controls.Add(Me.CBTagPussy) -Me.TabPage34.Controls.Add(Me.BTNTagSave) -Me.TabPage34.Controls.Add(Me.BTNTagDir) -Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) -Me.TabPage34.Controls.Add(Me.CBTagFace) -Me.TabPage34.Location = New System.Drawing.Point(4, 22) -Me.TabPage34.Name = "TabPage34" -Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage34.Size = New System.Drawing.Size(700, 411) -Me.TabPage34.TabIndex = 0 -Me.TabPage34.Text = "Domme Tags" -' -'CBTagSeeThrough -' -Me.CBTagSeeThrough.AutoSize = true -Me.CBTagSeeThrough.Enabled = false -Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) -Me.CBTagSeeThrough.Name = "CBTagSeeThrough" -Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) -Me.CBTagSeeThrough.TabIndex = 226 -Me.CBTagSeeThrough.Text = "See Through" -Me.CBTagSeeThrough.UseVisualStyleBackColor = true -' -'CBTagAllFours -' -Me.CBTagAllFours.AutoSize = true -Me.CBTagAllFours.Enabled = false -Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black -Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) -Me.CBTagAllFours.Name = "CBTagAllFours" -Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) -Me.CBTagAllFours.TabIndex = 225 -Me.CBTagAllFours.Text = "All Fours" -Me.CBTagAllFours.UseVisualStyleBackColor = true -' -'CBTagGlaring -' -Me.CBTagGlaring.AutoSize = true -Me.CBTagGlaring.Enabled = false -Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black -Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) -Me.CBTagGlaring.Name = "CBTagGlaring" -Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) -Me.CBTagGlaring.TabIndex = 224 -Me.CBTagGlaring.Text = "Glaring" -Me.CBTagGlaring.UseVisualStyleBackColor = true -' -'CBTagSmiling -' -Me.CBTagSmiling.AutoSize = true -Me.CBTagSmiling.Enabled = false -Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black -Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) -Me.CBTagSmiling.Name = "CBTagSmiling" -Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) -Me.CBTagSmiling.TabIndex = 223 -Me.CBTagSmiling.Text = "Smiling" -Me.CBTagSmiling.UseVisualStyleBackColor = true -' -'TBTagDir -' -Me.TBTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBTagDir.Name = "TBTagDir" -Me.TBTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBTagDir.TabIndex = 222 -Me.TBTagDir.Text = "Enter Image Directory" -' -'CBTagPiercing -' -Me.CBTagPiercing.AutoSize = true -Me.CBTagPiercing.Enabled = false -Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black -Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) -Me.CBTagPiercing.Name = "CBTagPiercing" -Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) -Me.CBTagPiercing.TabIndex = 221 -Me.CBTagPiercing.Text = "Piercing" -Me.CBTagPiercing.UseVisualStyleBackColor = true -' -'CBTagLegs -' -Me.CBTagLegs.AutoSize = true -Me.CBTagLegs.Enabled = false -Me.CBTagLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) -Me.CBTagLegs.Name = "CBTagLegs" -Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagLegs.TabIndex = 220 -Me.CBTagLegs.Text = "Legs" -Me.CBTagLegs.UseVisualStyleBackColor = true -' -'TBTagFurniture -' -Me.TBTagFurniture.Enabled = false -Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) -Me.TBTagFurniture.Name = "TBTagFurniture" -Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) -Me.TBTagFurniture.TabIndex = 219 -' -'CBTagFurniture -' -Me.CBTagFurniture.AutoSize = true -Me.CBTagFurniture.Enabled = false -Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black -Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) -Me.CBTagFurniture.Name = "CBTagFurniture" -Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) -Me.CBTagFurniture.TabIndex = 218 -Me.CBTagFurniture.Text = "Furniture" -Me.CBTagFurniture.UseVisualStyleBackColor = true -' -'TBTagSexToy -' -Me.TBTagSexToy.Enabled = false -Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) -Me.TBTagSexToy.Name = "TBTagSexToy" -Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) -Me.TBTagSexToy.TabIndex = 217 -' -'CBTagSexToy -' -Me.CBTagSexToy.AutoSize = true -Me.CBTagSexToy.Enabled = false -Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black -Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) -Me.CBTagSexToy.Name = "CBTagSexToy" -Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) -Me.CBTagSexToy.TabIndex = 216 -Me.CBTagSexToy.Text = "Sex Toy" -Me.CBTagSexToy.UseVisualStyleBackColor = true -' -'TBTagTattoo -' -Me.TBTagTattoo.Enabled = false -Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) -Me.TBTagTattoo.Name = "TBTagTattoo" -Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) -Me.TBTagTattoo.TabIndex = 215 -' -'CBTagTattoo -' -Me.CBTagTattoo.AutoSize = true -Me.CBTagTattoo.Enabled = false -Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) -Me.CBTagTattoo.Name = "CBTagTattoo" -Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) -Me.CBTagTattoo.TabIndex = 214 -Me.CBTagTattoo.Text = "Tattoo" -Me.CBTagTattoo.UseVisualStyleBackColor = true -' -'TBTagUnderwear -' -Me.TBTagUnderwear.Enabled = false -Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) -Me.TBTagUnderwear.Name = "TBTagUnderwear" -Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) -Me.TBTagUnderwear.TabIndex = 213 -' -'CBTagUnderwear -' -Me.CBTagUnderwear.AutoSize = true -Me.CBTagUnderwear.Enabled = false -Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black -Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) -Me.CBTagUnderwear.Name = "CBTagUnderwear" -Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) -Me.CBTagUnderwear.TabIndex = 212 -Me.CBTagUnderwear.Text = "Underwear" -Me.CBTagUnderwear.UseVisualStyleBackColor = true -' -'TBTagGarment -' -Me.TBTagGarment.Enabled = false -Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) -Me.TBTagGarment.Name = "TBTagGarment" -Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) -Me.TBTagGarment.TabIndex = 211 -' -'CBTagGarment -' -Me.CBTagGarment.AutoSize = true -Me.CBTagGarment.Enabled = false -Me.CBTagGarment.ForeColor = System.Drawing.Color.Black -Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) -Me.CBTagGarment.Name = "CBTagGarment" -Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) -Me.CBTagGarment.TabIndex = 210 -Me.CBTagGarment.Text = "Garment" -Me.CBTagGarment.UseVisualStyleBackColor = true -' -'Label72 -' -Me.Label72.BackColor = System.Drawing.Color.Transparent -Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label72.ForeColor = System.Drawing.Color.Black -Me.Label72.Location = New System.Drawing.Point(5, 368) -Me.Label72.Name = "Label72" -Me.Label72.Size = New System.Drawing.Size(451, 35) -Me.Label72.TabIndex = 189 -Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ - "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ - "e.g. Garment: dress)" -Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBTagHandsCovering -' -Me.CBTagHandsCovering.AutoSize = true -Me.CBTagHandsCovering.Enabled = false -Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) -Me.CBTagHandsCovering.Name = "CBTagHandsCovering" -Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) -Me.CBTagHandsCovering.TabIndex = 209 -Me.CBTagHandsCovering.Text = "Hands Covering" -Me.CBTagHandsCovering.UseVisualStyleBackColor = true -' -'CBTagGarmentCovering -' -Me.CBTagGarmentCovering.AutoSize = true -Me.CBTagGarmentCovering.Enabled = false -Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) -Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" -Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) -Me.CBTagGarmentCovering.TabIndex = 208 -Me.CBTagGarmentCovering.Text = "Garment Covering" -Me.CBTagGarmentCovering.UseVisualStyleBackColor = true -' -'CBTagCloseUp -' -Me.CBTagCloseUp.AutoSize = true -Me.CBTagCloseUp.Enabled = false -Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black -Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) -Me.CBTagCloseUp.Name = "CBTagCloseUp" -Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) -Me.CBTagCloseUp.TabIndex = 205 -Me.CBTagCloseUp.Text = "Close Up" -Me.CBTagCloseUp.UseVisualStyleBackColor = true -' -'CBTagNaked -' -Me.CBTagNaked.AutoSize = true -Me.CBTagNaked.Enabled = false -Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) -Me.CBTagNaked.Name = "CBTagNaked" -Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) -Me.CBTagNaked.TabIndex = 199 -Me.CBTagNaked.Text = "Naked" -Me.CBTagNaked.UseVisualStyleBackColor = true -' -'CBTagSideView -' -Me.CBTagSideView.AutoSize = true -Me.CBTagSideView.Enabled = false -Me.CBTagSideView.ForeColor = System.Drawing.Color.Black -Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) -Me.CBTagSideView.Name = "CBTagSideView" -Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) -Me.CBTagSideView.TabIndex = 204 -Me.CBTagSideView.Text = "Side View" -Me.CBTagSideView.UseVisualStyleBackColor = true -' -'BTNTagPrevious -' -Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNTagPrevious.Enabled = false -Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNTagPrevious.Name = "BTNTagPrevious" -Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNTagPrevious.TabIndex = 207 -Me.BTNTagPrevious.Text = "<<" -Me.BTNTagPrevious.UseVisualStyleBackColor = false -' -'CBTagHalfDressed -' -Me.CBTagHalfDressed.AutoSize = true -Me.CBTagHalfDressed.Enabled = false -Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) -Me.CBTagHalfDressed.Name = "CBTagHalfDressed" -Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) -Me.CBTagHalfDressed.TabIndex = 198 -Me.CBTagHalfDressed.Text = "Half Dressed" -Me.CBTagHalfDressed.UseVisualStyleBackColor = true -' -'BTNTagNext -' -Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNTagNext.Enabled = false -Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNTagNext.Name = "BTNTagNext" -Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNTagNext.TabIndex = 206 -Me.BTNTagNext.Text = ">>" -Me.BTNTagNext.UseVisualStyleBackColor = false -' -'CBTagFullyDressed -' -Me.CBTagFullyDressed.AutoSize = true -Me.CBTagFullyDressed.Enabled = false -Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) -Me.CBTagFullyDressed.Name = "CBTagFullyDressed" -Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) -Me.CBTagFullyDressed.TabIndex = 197 -Me.CBTagFullyDressed.Text = "Fully Dressed" -Me.CBTagFullyDressed.UseVisualStyleBackColor = true -' -'LBLTagCount -' -Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTagCount.Enabled = false -Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLTagCount.Name = "LBLTagCount" -Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLTagCount.TabIndex = 203 -Me.LBLTagCount.Text = "0/0" -Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBTagSucking -' -Me.CBTagSucking.AutoSize = true -Me.CBTagSucking.Enabled = false -Me.CBTagSucking.ForeColor = System.Drawing.Color.Black -Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) -Me.CBTagSucking.Name = "CBTagSucking" -Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) -Me.CBTagSucking.TabIndex = 202 -Me.CBTagSucking.Text = "Sucking" -Me.CBTagSucking.UseVisualStyleBackColor = true -' -'CBTagMasturbating -' -Me.CBTagMasturbating.AutoSize = true -Me.CBTagMasturbating.Enabled = false -Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) -Me.CBTagMasturbating.Name = "CBTagMasturbating" -Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbating.TabIndex = 201 -Me.CBTagMasturbating.Text = "Masturbating" -Me.CBTagMasturbating.UseVisualStyleBackColor = true -' -'CBTagFeet -' -Me.CBTagFeet.AutoSize = true -Me.CBTagFeet.Enabled = false -Me.CBTagFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) -Me.CBTagFeet.Name = "CBTagFeet" -Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagFeet.TabIndex = 200 -Me.CBTagFeet.Text = "Feet" -Me.CBTagFeet.UseVisualStyleBackColor = true -' -'CBTagBoobs -' -Me.CBTagBoobs.AutoSize = true -Me.CBTagBoobs.Enabled = false -Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black -Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) -Me.CBTagBoobs.Name = "CBTagBoobs" -Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) -Me.CBTagBoobs.TabIndex = 196 -Me.CBTagBoobs.Text = "Boobs" -Me.CBTagBoobs.UseVisualStyleBackColor = true -' -'CBTagAss -' -Me.CBTagAss.AutoSize = true -Me.CBTagAss.Enabled = false -Me.CBTagAss.ForeColor = System.Drawing.Color.Black -Me.CBTagAss.Location = New System.Drawing.Point(484, 97) -Me.CBTagAss.Name = "CBTagAss" -Me.CBTagAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagAss.TabIndex = 195 -Me.CBTagAss.Text = "Ass" -Me.CBTagAss.UseVisualStyleBackColor = true -' -'CBTagPussy -' -Me.CBTagPussy.AutoSize = true -Me.CBTagPussy.Enabled = false -Me.CBTagPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) -Me.CBTagPussy.Name = "CBTagPussy" -Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagPussy.TabIndex = 194 -Me.CBTagPussy.Text = "Pussy" -Me.CBTagPussy.UseVisualStyleBackColor = true -' -'BTNTagSave -' -Me.BTNTagSave.Enabled = false -Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNTagSave.Name = "BTNTagSave" -Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNTagSave.TabIndex = 193 -Me.BTNTagSave.Text = "Finished" -Me.BTNTagSave.UseVisualStyleBackColor = true -' -'BTNTagDir -' -Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNTagDir.Name = "BTNTagDir" -Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNTagDir.TabIndex = 192 -Me.BTNTagDir.Text = "1" -Me.BTNTagDir.UseVisualStyleBackColor = true -' -'ImageTagPictureBox -' -Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black -Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) -Me.ImageTagPictureBox.Name = "ImageTagPictureBox" -Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) -Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.ImageTagPictureBox.TabIndex = 191 -Me.ImageTagPictureBox.TabStop = false -' -'CBTagFace -' -Me.CBTagFace.AutoSize = true -Me.CBTagFace.Enabled = false -Me.CBTagFace.ForeColor = System.Drawing.Color.Black -Me.CBTagFace.Location = New System.Drawing.Point(484, 37) -Me.CBTagFace.Name = "CBTagFace" -Me.CBTagFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagFace.TabIndex = 190 -Me.CBTagFace.Text = "Face" -Me.CBTagFace.UseVisualStyleBackColor = true -' -'TabPage35 -' -Me.TabPage35.BackColor = System.Drawing.Color.LightGray -Me.TabPage35.Controls.Add(Me.GroupBox55) -Me.TabPage35.Controls.Add(Me.GroupBox53) -Me.TabPage35.Controls.Add(Me.GroupBox49) -Me.TabPage35.Controls.Add(Me.GroupBox46) -Me.TabPage35.Controls.Add(Me.GroupBox54) -Me.TabPage35.Controls.Add(Me.GroupBox51) -Me.TabPage35.Controls.Add(Me.GroupBox50) -Me.TabPage35.Controls.Add(Me.GroupBox48) -Me.TabPage35.Controls.Add(Me.TBLocalTagDir) -Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) -Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) -Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) -Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) -Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) -Me.TabPage35.Location = New System.Drawing.Point(4, 22) -Me.TabPage35.Name = "TabPage35" -Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage35.Size = New System.Drawing.Size(700, 411) -Me.TabPage35.TabIndex = 1 -Me.TabPage35.Text = "Local Tags" -' -'GroupBox55 -' -Me.GroupBox55.Controls.Add(Me.CBTagNurse) -Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) -Me.GroupBox55.Controls.Add(Me.CBTagMaid) -Me.GroupBox55.Controls.Add(Me.CBTagTeacher) -Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) -Me.GroupBox55.Location = New System.Drawing.Point(341, 277) -Me.GroupBox55.Name = "GroupBox55" -Me.GroupBox55.Size = New System.Drawing.Size(103, 118) -Me.GroupBox55.TabIndex = 241 -Me.GroupBox55.TabStop = false -Me.GroupBox55.Text = "Outfit" -' -'CBTagNurse -' -Me.CBTagNurse.AutoSize = true -Me.CBTagNurse.Enabled = false -Me.CBTagNurse.ForeColor = System.Drawing.Color.Black -Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) -Me.CBTagNurse.Name = "CBTagNurse" -Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) -Me.CBTagNurse.TabIndex = 203 -Me.CBTagNurse.Text = "Nurse" -Me.CBTagNurse.UseVisualStyleBackColor = true -' -'CBTagSchoolgirl -' -Me.CBTagSchoolgirl.AutoSize = true -Me.CBTagSchoolgirl.Enabled = false -Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) -Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" -Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) -Me.CBTagSchoolgirl.TabIndex = 204 -Me.CBTagSchoolgirl.Text = "Schoolgirl" -Me.CBTagSchoolgirl.UseVisualStyleBackColor = true -' -'CBTagMaid -' -Me.CBTagMaid.AutoSize = true -Me.CBTagMaid.Enabled = false -Me.CBTagMaid.ForeColor = System.Drawing.Color.Black -Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) -Me.CBTagMaid.Name = "CBTagMaid" -Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) -Me.CBTagMaid.TabIndex = 205 -Me.CBTagMaid.Text = "Maid" -Me.CBTagMaid.UseVisualStyleBackColor = true -' -'CBTagTeacher -' -Me.CBTagTeacher.AutoSize = true -Me.CBTagTeacher.Enabled = false -Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black -Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) -Me.CBTagTeacher.Name = "CBTagTeacher" -Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) -Me.CBTagTeacher.TabIndex = 206 -Me.CBTagTeacher.Text = "Teacher" -Me.CBTagTeacher.UseVisualStyleBackColor = true -' -'CBTagSuperhero -' -Me.CBTagSuperhero.AutoSize = true -Me.CBTagSuperhero.Enabled = false -Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black -Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) -Me.CBTagSuperhero.Name = "CBTagSuperhero" -Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) -Me.CBTagSuperhero.TabIndex = 213 -Me.CBTagSuperhero.Text = "Superhero" -Me.CBTagSuperhero.UseVisualStyleBackColor = true -' -'GroupBox53 -' -Me.GroupBox53.Controls.Add(Me.CBTagTrap) -Me.GroupBox53.Controls.Add(Me.CBTagTentacles) -Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) -Me.GroupBox53.Controls.Add(Me.CBTagBukkake) -Me.GroupBox53.Controls.Add(Me.CBTagGanguro) -Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) -Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) -Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) -Me.GroupBox53.Controls.Add(Me.CBTagAhegao) -Me.GroupBox53.Controls.Add(Me.CBTagShibari) -Me.GroupBox53.Location = New System.Drawing.Point(450, 277) -Me.GroupBox53.Name = "GroupBox53" -Me.GroupBox53.Size = New System.Drawing.Size(246, 118) -Me.GroupBox53.TabIndex = 240 -Me.GroupBox53.TabStop = false -Me.GroupBox53.Text = "Hentai/JAV Themes" -' -'CBTagTrap -' -Me.CBTagTrap.AutoSize = true -Me.CBTagTrap.Enabled = false -Me.CBTagTrap.ForeColor = System.Drawing.Color.Black -Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) -Me.CBTagTrap.Name = "CBTagTrap" -Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) -Me.CBTagTrap.TabIndex = 226 -Me.CBTagTrap.Text = "Trap" -Me.CBTagTrap.UseVisualStyleBackColor = true -' -'CBTagTentacles -' -Me.CBTagTentacles.AutoSize = true -Me.CBTagTentacles.Enabled = false -Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black -Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) -Me.CBTagTentacles.Name = "CBTagTentacles" -Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) -Me.CBTagTentacles.TabIndex = 204 -Me.CBTagTentacles.Text = "Tentacles" -Me.CBTagTentacles.UseVisualStyleBackColor = true -' -'CBTagMonsterGirl -' -Me.CBTagMonsterGirl.AutoSize = true -Me.CBTagMonsterGirl.Enabled = false -Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black -Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) -Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" -Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) -Me.CBTagMonsterGirl.TabIndex = 214 -Me.CBTagMonsterGirl.Text = "Monster Girl" -Me.CBTagMonsterGirl.UseVisualStyleBackColor = true -' -'CBTagBukkake -' -Me.CBTagBukkake.AutoSize = true -Me.CBTagBukkake.Enabled = false -Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black -Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) -Me.CBTagBukkake.Name = "CBTagBukkake" -Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) -Me.CBTagBukkake.TabIndex = 210 -Me.CBTagBukkake.Text = "Bukkake" -Me.CBTagBukkake.UseVisualStyleBackColor = true -' -'CBTagGanguro -' -Me.CBTagGanguro.AutoSize = true -Me.CBTagGanguro.Enabled = false -Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black -Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) -Me.CBTagGanguro.Name = "CBTagGanguro" -Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) -Me.CBTagGanguro.TabIndex = 205 -Me.CBTagGanguro.Text = "Ganguro" -Me.CBTagGanguro.UseVisualStyleBackColor = true -' -'CBTagBodyWriting -' -Me.CBTagBodyWriting.AutoSize = true -Me.CBTagBodyWriting.Enabled = false -Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) -Me.CBTagBodyWriting.Name = "CBTagBodyWriting" -Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) -Me.CBTagBodyWriting.TabIndex = 208 -Me.CBTagBodyWriting.Text = "Body Writing" -Me.CBTagBodyWriting.UseVisualStyleBackColor = true -' -'CBTagMahouShoujo -' -Me.CBTagMahouShoujo.AutoSize = true -Me.CBTagMahouShoujo.Enabled = false -Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black -Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) -Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" -Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) -Me.CBTagMahouShoujo.TabIndex = 209 -Me.CBTagMahouShoujo.Text = "Mahou Shoujo" -Me.CBTagMahouShoujo.UseVisualStyleBackColor = true -' -'CBTagBakunyuu -' -Me.CBTagBakunyuu.AutoSize = true -Me.CBTagBakunyuu.Enabled = false -Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black -Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) -Me.CBTagBakunyuu.Name = "CBTagBakunyuu" -Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) -Me.CBTagBakunyuu.TabIndex = 213 -Me.CBTagBakunyuu.Text = "Bakunyuu" -Me.CBTagBakunyuu.UseVisualStyleBackColor = true -' -'CBTagAhegao -' -Me.CBTagAhegao.AutoSize = true -Me.CBTagAhegao.Enabled = false -Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black -Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) -Me.CBTagAhegao.Name = "CBTagAhegao" -Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) -Me.CBTagAhegao.TabIndex = 207 -Me.CBTagAhegao.Text = "Ahegao" -Me.CBTagAhegao.UseVisualStyleBackColor = true -' -'CBTagShibari -' -Me.CBTagShibari.AutoSize = true -Me.CBTagShibari.Enabled = false -Me.CBTagShibari.ForeColor = System.Drawing.Color.Black -Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) -Me.CBTagShibari.Name = "CBTagShibari" -Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) -Me.CBTagShibari.TabIndex = 203 -Me.CBTagShibari.Text = "Shibari" -Me.CBTagShibari.UseVisualStyleBackColor = true -' -'GroupBox49 -' -Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) -Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) -Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) -Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) -Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) -Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) -Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) -Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) -Me.GroupBox49.Location = New System.Drawing.Point(341, 37) -Me.GroupBox49.Name = "GroupBox49" -Me.GroupBox49.Size = New System.Drawing.Size(103, 238) -Me.GroupBox49.TabIndex = 236 -Me.GroupBox49.TabStop = false -Me.GroupBox49.Text = "Body Part" -' -'CBTagBodyMouth -' -Me.CBTagBodyMouth.AutoSize = true -Me.CBTagBodyMouth.Enabled = false -Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) -Me.CBTagBodyMouth.Name = "CBTagBodyMouth" -Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) -Me.CBTagBodyMouth.TabIndex = 220 -Me.CBTagBodyMouth.Text = "Mouth" -Me.CBTagBodyMouth.UseVisualStyleBackColor = true -' -'CBTagBodyAss -' -Me.CBTagBodyAss.AutoSize = true -Me.CBTagBodyAss.Enabled = false -Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) -Me.CBTagBodyAss.Name = "CBTagBodyAss" -Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyAss.TabIndex = 219 -Me.CBTagBodyAss.Text = "Ass" -Me.CBTagBodyAss.UseVisualStyleBackColor = true -' -'CBTagBodyFace -' -Me.CBTagBodyFace.AutoSize = true -Me.CBTagBodyFace.Enabled = false -Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) -Me.CBTagBodyFace.Name = "CBTagBodyFace" -Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagBodyFace.TabIndex = 203 -Me.CBTagBodyFace.Text = "Face" -Me.CBTagBodyFace.UseVisualStyleBackColor = true -' -'CBTagBodyLegs -' -Me.CBTagBodyLegs.AutoSize = true -Me.CBTagBodyLegs.Enabled = false -Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) -Me.CBTagBodyLegs.Name = "CBTagBodyLegs" -Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagBodyLegs.TabIndex = 218 -Me.CBTagBodyLegs.Text = "Legs" -Me.CBTagBodyLegs.UseVisualStyleBackColor = true -' -'CBTagBodyBalls -' -Me.CBTagBodyBalls.AutoSize = true -Me.CBTagBodyBalls.Enabled = false -Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) -Me.CBTagBodyBalls.Name = "CBTagBodyBalls" -Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) -Me.CBTagBodyBalls.TabIndex = 217 -Me.CBTagBodyBalls.Text = "Balls" -Me.CBTagBodyBalls.UseVisualStyleBackColor = true -' -'CBTagBodyCock -' -Me.CBTagBodyCock.AutoSize = true -Me.CBTagBodyCock.Enabled = false -Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) -Me.CBTagBodyCock.Name = "CBTagBodyCock" -Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) -Me.CBTagBodyCock.TabIndex = 216 -Me.CBTagBodyCock.Text = "Cock" -Me.CBTagBodyCock.UseVisualStyleBackColor = true -' -'CBTagBodyFeet -' -Me.CBTagBodyFeet.AutoSize = true -Me.CBTagBodyFeet.Enabled = false -Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) -Me.CBTagBodyFeet.Name = "CBTagBodyFeet" -Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagBodyFeet.TabIndex = 215 -Me.CBTagBodyFeet.Text = "Feet" -Me.CBTagBodyFeet.UseVisualStyleBackColor = true -' -'CBTagBodyNipples -' -Me.CBTagBodyNipples.AutoSize = true -Me.CBTagBodyNipples.Enabled = false -Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) -Me.CBTagBodyNipples.Name = "CBTagBodyNipples" -Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) -Me.CBTagBodyNipples.TabIndex = 207 -Me.CBTagBodyNipples.Text = "Nipples" -Me.CBTagBodyNipples.UseVisualStyleBackColor = true -' -'CBTagBodyPussy -' -Me.CBTagBodyPussy.AutoSize = true -Me.CBTagBodyPussy.Enabled = false -Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) -Me.CBTagBodyPussy.Name = "CBTagBodyPussy" -Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagBodyPussy.TabIndex = 209 -Me.CBTagBodyPussy.Text = "Pussy" -Me.CBTagBodyPussy.UseVisualStyleBackColor = true -' -'CBTagBodyTits -' -Me.CBTagBodyTits.AutoSize = true -Me.CBTagBodyTits.Enabled = false -Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) -Me.CBTagBodyTits.Name = "CBTagBodyTits" -Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyTits.TabIndex = 213 -Me.CBTagBodyTits.Text = "Tits" -Me.CBTagBodyTits.UseVisualStyleBackColor = true -' -'CBTagBodyFingers -' -Me.CBTagBodyFingers.AutoSize = true -Me.CBTagBodyFingers.Enabled = false -Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) -Me.CBTagBodyFingers.Name = "CBTagBodyFingers" -Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) -Me.CBTagBodyFingers.TabIndex = 210 -Me.CBTagBodyFingers.Text = "Fingers" -Me.CBTagBodyFingers.UseVisualStyleBackColor = true -' -'GroupBox46 -' -Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) -Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) -Me.GroupBox46.Controls.Add(Me.CBTagFemdom) -Me.GroupBox46.Controls.Add(Me.CBTag2M) -Me.GroupBox46.Controls.Add(Me.CBTagFutadom) -Me.GroupBox46.Controls.Add(Me.CBTagFemsub) -Me.GroupBox46.Controls.Add(Me.CBTag2Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMaledom) -Me.GroupBox46.Controls.Add(Me.CBTag3M) -Me.GroupBox46.Controls.Add(Me.CBTagFutasub) -Me.GroupBox46.Controls.Add(Me.CBTag3Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMalesub) -Me.GroupBox46.Controls.Add(Me.CBTag2F) -Me.GroupBox46.Controls.Add(Me.CBTag1Futa) -Me.GroupBox46.Controls.Add(Me.CBTag1M) -Me.GroupBox46.Controls.Add(Me.CBTag1F) -Me.GroupBox46.Controls.Add(Me.CBTag3F) -Me.GroupBox46.Location = New System.Drawing.Point(230, 37) -Me.GroupBox46.Name = "GroupBox46" -Me.GroupBox46.Size = New System.Drawing.Size(105, 358) -Me.GroupBox46.TabIndex = 234 -Me.GroupBox46.TabStop = false -Me.GroupBox46.Text = "Genders && Roles" -' -'CBTagMultiSub -' -Me.CBTagMultiSub.AutoSize = true -Me.CBTagMultiSub.Enabled = false -Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) -Me.CBTagMultiSub.Name = "CBTagMultiSub" -Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) -Me.CBTagMultiSub.TabIndex = 207 -Me.CBTagMultiSub.Text = "Multi-Sub" -Me.CBTagMultiSub.UseVisualStyleBackColor = true -' -'CBTagMultiDom -' -Me.CBTagMultiDom.AutoSize = true -Me.CBTagMultiDom.Enabled = false -Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) -Me.CBTagMultiDom.Name = "CBTagMultiDom" -Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) -Me.CBTagMultiDom.TabIndex = 230 -Me.CBTagMultiDom.Text = "Multi-Dom" -Me.CBTagMultiDom.UseVisualStyleBackColor = true -' -'CBTagFemdom -' -Me.CBTagFemdom.AutoSize = true -Me.CBTagFemdom.Enabled = false -Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black -Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) -Me.CBTagFemdom.Name = "CBTagFemdom" -Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBTagFemdom.TabIndex = 229 -Me.CBTagFemdom.Text = "Femdom" -Me.CBTagFemdom.UseVisualStyleBackColor = true -' -'CBTag2M -' -Me.CBTag2M.AutoSize = true -Me.CBTag2M.Enabled = false -Me.CBTag2M.ForeColor = System.Drawing.Color.Black -Me.CBTag2M.Location = New System.Drawing.Point(15, 97) -Me.CBTag2M.Name = "CBTag2M" -Me.CBTag2M.Size = New System.Drawing.Size(56, 17) -Me.CBTag2M.TabIndex = 206 -Me.CBTag2M.Text = "2 Men" -Me.CBTag2M.UseVisualStyleBackColor = true -' -'CBTagFutadom -' -Me.CBTagFutadom.AutoSize = true -Me.CBTagFutadom.Enabled = false -Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black -Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) -Me.CBTagFutadom.Name = "CBTagFutadom" -Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) -Me.CBTagFutadom.TabIndex = 204 -Me.CBTagFutadom.Text = "Futadom" -Me.CBTagFutadom.UseVisualStyleBackColor = true -' -'CBTagFemsub -' -Me.CBTagFemsub.AutoSize = true -Me.CBTagFemsub.Enabled = false -Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black -Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) -Me.CBTagFemsub.Name = "CBTagFemsub" -Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBTagFemsub.TabIndex = 205 -Me.CBTagFemsub.Text = "Femsub" -Me.CBTagFemsub.UseVisualStyleBackColor = true -' -'CBTag2Futa -' -Me.CBTag2Futa.AutoSize = true -Me.CBTag2Futa.Enabled = false -Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) -Me.CBTag2Futa.Name = "CBTag2Futa" -Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag2Futa.TabIndex = 186 -Me.CBTag2Futa.Text = "2 Futa" -Me.CBTag2Futa.UseVisualStyleBackColor = true -' -'CBTagMaledom -' -Me.CBTagMaledom.AutoSize = true -Me.CBTagMaledom.Enabled = false -Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black -Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) -Me.CBTagMaledom.Name = "CBTagMaledom" -Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) -Me.CBTagMaledom.TabIndex = 206 -Me.CBTagMaledom.Text = "Maledom" -Me.CBTagMaledom.UseVisualStyleBackColor = true -' -'CBTag3M -' -Me.CBTag3M.AutoSize = true -Me.CBTag3M.Enabled = false -Me.CBTag3M.ForeColor = System.Drawing.Color.Black -Me.CBTag3M.Location = New System.Drawing.Point(15, 117) -Me.CBTag3M.Name = "CBTag3M" -Me.CBTag3M.Size = New System.Drawing.Size(56, 17) -Me.CBTag3M.TabIndex = 190 -Me.CBTag3M.Text = "3 Men" -Me.CBTag3M.UseVisualStyleBackColor = true -' -'CBTagFutasub -' -Me.CBTagFutasub.AutoSize = true -Me.CBTagFutasub.Enabled = false -Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black -Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) -Me.CBTagFutasub.Name = "CBTagFutasub" -Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) -Me.CBTagFutasub.TabIndex = 213 -Me.CBTagFutasub.Text = "Futasub" -Me.CBTagFutasub.UseVisualStyleBackColor = true -' -'CBTag3Futa -' -Me.CBTag3Futa.AutoSize = true -Me.CBTag3Futa.Enabled = false -Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) -Me.CBTag3Futa.Name = "CBTag3Futa" -Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag3Futa.TabIndex = 197 -Me.CBTag3Futa.Text = "3 Futa" -Me.CBTag3Futa.UseVisualStyleBackColor = true -' -'CBTagMalesub -' -Me.CBTagMalesub.AutoSize = true -Me.CBTagMalesub.Enabled = false -Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black -Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) -Me.CBTagMalesub.Name = "CBTagMalesub" -Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) -Me.CBTagMalesub.TabIndex = 210 -Me.CBTagMalesub.Text = "Malesub" -Me.CBTagMalesub.UseVisualStyleBackColor = true -' -'CBTag2F -' -Me.CBTag2F.AutoSize = true -Me.CBTag2F.Enabled = false -Me.CBTag2F.ForeColor = System.Drawing.Color.Black -Me.CBTag2F.Location = New System.Drawing.Point(15, 37) -Me.CBTag2F.Name = "CBTag2F" -Me.CBTag2F.Size = New System.Drawing.Size(72, 17) -Me.CBTag2F.TabIndex = 188 -Me.CBTag2F.Text = "2 Women" -Me.CBTag2F.UseVisualStyleBackColor = true -' -'CBTag1Futa -' -Me.CBTag1Futa.AutoSize = true -Me.CBTag1Futa.Enabled = false -Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) -Me.CBTag1Futa.Name = "CBTag1Futa" -Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag1Futa.TabIndex = 191 -Me.CBTag1Futa.Text = "1 Futa" -Me.CBTag1Futa.UseVisualStyleBackColor = true -' -'CBTag1M -' -Me.CBTag1M.AutoSize = true -Me.CBTag1M.Enabled = false -Me.CBTag1M.ForeColor = System.Drawing.Color.Black -Me.CBTag1M.Location = New System.Drawing.Point(15, 77) -Me.CBTag1M.Name = "CBTag1M" -Me.CBTag1M.Size = New System.Drawing.Size(56, 17) -Me.CBTag1M.TabIndex = 189 -Me.CBTag1M.Text = "1 Man" -Me.CBTag1M.UseVisualStyleBackColor = true -' -'CBTag1F -' -Me.CBTag1F.AutoSize = true -Me.CBTag1F.Enabled = false -Me.CBTag1F.ForeColor = System.Drawing.Color.Black -Me.CBTag1F.Location = New System.Drawing.Point(15, 17) -Me.CBTag1F.Name = "CBTag1F" -Me.CBTag1F.Size = New System.Drawing.Size(72, 17) -Me.CBTag1F.TabIndex = 185 -Me.CBTag1F.Text = "1 Woman" -Me.CBTag1F.UseVisualStyleBackColor = true -' -'CBTag3F -' -Me.CBTag3F.AutoSize = true -Me.CBTag3F.Enabled = false -Me.CBTag3F.ForeColor = System.Drawing.Color.Black -Me.CBTag3F.Location = New System.Drawing.Point(15, 57) -Me.CBTag3F.Name = "CBTag3F" -Me.CBTag3F.Size = New System.Drawing.Size(72, 17) -Me.CBTag3F.TabIndex = 192 -Me.CBTag3F.Text = "3 Women" -Me.CBTag3F.UseVisualStyleBackColor = true -' -'GroupBox54 -' -Me.GroupBox54.Controls.Add(Me.CBTagTattoos) -Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) -Me.GroupBox54.Controls.Add(Me.CBTagDomme) -Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) -Me.GroupBox54.Controls.Add(Me.CBTagWatersports) -Me.GroupBox54.Controls.Add(Me.CBTagStockings) -Me.GroupBox54.Controls.Add(Me.CBTagCumshot) -Me.GroupBox54.Controls.Add(Me.CBTagCumEating) -Me.GroupBox54.Controls.Add(Me.CBTagVibrator) -Me.GroupBox54.Controls.Add(Me.CBTagDildo) -Me.GroupBox54.Controls.Add(Me.CBTagKissing) -Me.GroupBox54.Location = New System.Drawing.Point(561, 37) -Me.GroupBox54.Name = "GroupBox54" -Me.GroupBox54.Size = New System.Drawing.Size(135, 238) -Me.GroupBox54.TabIndex = 239 -Me.GroupBox54.TabStop = false -Me.GroupBox54.Text = "Misc" -' -'CBTagTattoos -' -Me.CBTagTattoos.AutoSize = true -Me.CBTagTattoos.Enabled = false -Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) -Me.CBTagTattoos.Name = "CBTagTattoos" -Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBTagTattoos.TabIndex = 214 -Me.CBTagTattoos.Text = "Tattoos" -Me.CBTagTattoos.UseVisualStyleBackColor = true -' -'CBTagAnalToy -' -Me.CBTagAnalToy.AutoSize = true -Me.CBTagAnalToy.Enabled = false -Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) -Me.CBTagAnalToy.Name = "CBTagAnalToy" -Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalToy.TabIndex = 215 -Me.CBTagAnalToy.Text = "Anal Toy" -Me.CBTagAnalToy.UseVisualStyleBackColor = true -' -'CBTagDomme -' -Me.CBTagDomme.AutoSize = true -Me.CBTagDomme.Enabled = false -Me.CBTagDomme.ForeColor = System.Drawing.Color.Black -Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) -Me.CBTagDomme.Name = "CBTagDomme" -Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) -Me.CBTagDomme.TabIndex = 219 -Me.CBTagDomme.Text = "Tease A.I. Domme" -Me.CBTagDomme.UseVisualStyleBackColor = true -' -'CBTagPocketPussy -' -Me.CBTagPocketPussy.AutoSize = true -Me.CBTagPocketPussy.Enabled = false -Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) -Me.CBTagPocketPussy.Name = "CBTagPocketPussy" -Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) -Me.CBTagPocketPussy.TabIndex = 205 -Me.CBTagPocketPussy.Text = "Pocket Pussy" -Me.CBTagPocketPussy.UseVisualStyleBackColor = true -' -'CBTagWatersports -' -Me.CBTagWatersports.AutoSize = true -Me.CBTagWatersports.Enabled = false -Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black -Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) -Me.CBTagWatersports.Name = "CBTagWatersports" -Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) -Me.CBTagWatersports.TabIndex = 218 -Me.CBTagWatersports.Text = "Watersports" -Me.CBTagWatersports.UseVisualStyleBackColor = true -' -'CBTagStockings -' -Me.CBTagStockings.AutoSize = true -Me.CBTagStockings.Enabled = false -Me.CBTagStockings.ForeColor = System.Drawing.Color.Black -Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) -Me.CBTagStockings.Name = "CBTagStockings" -Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) -Me.CBTagStockings.TabIndex = 217 -Me.CBTagStockings.Text = "Stockings" -Me.CBTagStockings.UseVisualStyleBackColor = true -' -'CBTagCumshot -' -Me.CBTagCumshot.AutoSize = true -Me.CBTagCumshot.Enabled = false -Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black -Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) -Me.CBTagCumshot.Name = "CBTagCumshot" -Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) -Me.CBTagCumshot.TabIndex = 206 -Me.CBTagCumshot.Text = "Cumshot" -Me.CBTagCumshot.UseVisualStyleBackColor = true -' -'CBTagCumEating -' -Me.CBTagCumEating.AutoSize = true -Me.CBTagCumEating.Enabled = false -Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black -Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) -Me.CBTagCumEating.Name = "CBTagCumEating" -Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) -Me.CBTagCumEating.TabIndex = 204 -Me.CBTagCumEating.Text = "Cum Eating" -Me.CBTagCumEating.UseVisualStyleBackColor = true -' -'CBTagVibrator -' -Me.CBTagVibrator.AutoSize = true -Me.CBTagVibrator.Enabled = false -Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black -Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) -Me.CBTagVibrator.Name = "CBTagVibrator" -Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) -Me.CBTagVibrator.TabIndex = 210 -Me.CBTagVibrator.Text = "Vibrator" -Me.CBTagVibrator.UseVisualStyleBackColor = true -' -'CBTagDildo -' -Me.CBTagDildo.AutoSize = true -Me.CBTagDildo.Enabled = false -Me.CBTagDildo.ForeColor = System.Drawing.Color.Black -Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) -Me.CBTagDildo.Name = "CBTagDildo" -Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) -Me.CBTagDildo.TabIndex = 213 -Me.CBTagDildo.Text = "Dildo" -Me.CBTagDildo.UseVisualStyleBackColor = true -' -'CBTagKissing -' -Me.CBTagKissing.AutoSize = true -Me.CBTagKissing.Enabled = false -Me.CBTagKissing.ForeColor = System.Drawing.Color.Black -Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) -Me.CBTagKissing.Name = "CBTagKissing" -Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) -Me.CBTagKissing.TabIndex = 203 -Me.CBTagKissing.Text = "Kissing" -Me.CBTagKissing.UseVisualStyleBackColor = true -' -'GroupBox51 -' -Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) -Me.GroupBox51.Controls.Add(Me.CBTagGag) -Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) -Me.GroupBox51.Controls.Add(Me.CBTagWhipping) -Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) -Me.GroupBox51.Controls.Add(Me.CBTagElectro) -Me.GroupBox51.Controls.Add(Me.CBTagHotWax) -Me.GroupBox51.Controls.Add(Me.CBTagClamps) -Me.GroupBox51.Controls.Add(Me.CBTagStrapon) -Me.GroupBox51.Controls.Add(Me.CBTagSpanking) -Me.GroupBox51.Controls.Add(Me.CBTagNeedles) -Me.GroupBox51.Location = New System.Drawing.Point(450, 37) -Me.GroupBox51.Name = "GroupBox51" -Me.GroupBox51.Size = New System.Drawing.Size(105, 238) -Me.GroupBox51.TabIndex = 238 -Me.GroupBox51.TabStop = false -Me.GroupBox51.Text = "BDSM" -' -'CBTagBallTorture -' -Me.CBTagBallTorture.AutoSize = true -Me.CBTagBallTorture.Enabled = false -Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) -Me.CBTagBallTorture.Name = "CBTagBallTorture" -Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) -Me.CBTagBallTorture.TabIndex = 220 -Me.CBTagBallTorture.Text = "Ball Torture" -Me.CBTagBallTorture.UseVisualStyleBackColor = true -' -'CBTagGag -' -Me.CBTagGag.AutoSize = true -Me.CBTagGag.Enabled = false -Me.CBTagGag.ForeColor = System.Drawing.Color.Black -Me.CBTagGag.Location = New System.Drawing.Point(15, 137) -Me.CBTagGag.Name = "CBTagGag" -Me.CBTagGag.Size = New System.Drawing.Size(46, 17) -Me.CBTagGag.TabIndex = 214 -Me.CBTagGag.Text = "Gag" -Me.CBTagGag.UseVisualStyleBackColor = true -' -'CBTagBlindfold -' -Me.CBTagBlindfold.AutoSize = true -Me.CBTagBlindfold.Enabled = false -Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black -Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) -Me.CBTagBlindfold.Name = "CBTagBlindfold" -Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) -Me.CBTagBlindfold.TabIndex = 208 -Me.CBTagBlindfold.Text = "Blindfold" -Me.CBTagBlindfold.UseVisualStyleBackColor = true -' -'CBTagWhipping -' -Me.CBTagWhipping.AutoSize = true -Me.CBTagWhipping.Enabled = false -Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black -Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) -Me.CBTagWhipping.Name = "CBTagWhipping" -Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) -Me.CBTagWhipping.TabIndex = 203 -Me.CBTagWhipping.Text = "Whipping" -Me.CBTagWhipping.UseVisualStyleBackColor = true -' -'CBTagCockTorture -' -Me.CBTagCockTorture.AutoSize = true -Me.CBTagCockTorture.Enabled = false -Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) -Me.CBTagCockTorture.Name = "CBTagCockTorture" -Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) -Me.CBTagCockTorture.TabIndex = 204 -Me.CBTagCockTorture.Text = "Cock Torture" -Me.CBTagCockTorture.UseVisualStyleBackColor = true -' -'CBTagElectro -' -Me.CBTagElectro.AutoSize = true -Me.CBTagElectro.Enabled = false -Me.CBTagElectro.ForeColor = System.Drawing.Color.Black -Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) -Me.CBTagElectro.Name = "CBTagElectro" -Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) -Me.CBTagElectro.TabIndex = 207 -Me.CBTagElectro.Text = "Electro" -Me.CBTagElectro.UseVisualStyleBackColor = true -' -'CBTagHotWax -' -Me.CBTagHotWax.AutoSize = true -Me.CBTagHotWax.Enabled = false -Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black -Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) -Me.CBTagHotWax.Name = "CBTagHotWax" -Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) -Me.CBTagHotWax.TabIndex = 213 -Me.CBTagHotWax.Text = "Hot Wax" -Me.CBTagHotWax.UseVisualStyleBackColor = true -' -'CBTagClamps -' -Me.CBTagClamps.AutoSize = true -Me.CBTagClamps.Enabled = false -Me.CBTagClamps.ForeColor = System.Drawing.Color.Black -Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) -Me.CBTagClamps.Name = "CBTagClamps" -Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) -Me.CBTagClamps.TabIndex = 210 -Me.CBTagClamps.Text = "Clamps" -Me.CBTagClamps.UseVisualStyleBackColor = true -' -'CBTagStrapon -' -Me.CBTagStrapon.AutoSize = true -Me.CBTagStrapon.Enabled = false -Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black -Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) -Me.CBTagStrapon.Name = "CBTagStrapon" -Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) -Me.CBTagStrapon.TabIndex = 205 -Me.CBTagStrapon.Text = "Strap-on" -Me.CBTagStrapon.UseVisualStyleBackColor = true -' -'CBTagSpanking -' -Me.CBTagSpanking.AutoSize = true -Me.CBTagSpanking.Enabled = false -Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black -Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) -Me.CBTagSpanking.Name = "CBTagSpanking" -Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) -Me.CBTagSpanking.TabIndex = 206 -Me.CBTagSpanking.Text = "Spanking" -Me.CBTagSpanking.UseVisualStyleBackColor = true -' -'CBTagNeedles -' -Me.CBTagNeedles.AutoSize = true -Me.CBTagNeedles.Enabled = false -Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black -Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) -Me.CBTagNeedles.Name = "CBTagNeedles" -Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) -Me.CBTagNeedles.TabIndex = 209 -Me.CBTagNeedles.Text = "Needles" -Me.CBTagNeedles.UseVisualStyleBackColor = true -' -'GroupBox50 -' -Me.GroupBox50.Controls.Add(Me.CBTagRimming) -Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) -Me.GroupBox50.Controls.Add(Me.CBTagMissionary) -Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) -Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagFingering) -Me.GroupBox50.Controls.Add(Me.CBTagGangbang) -Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) -Me.GroupBox50.Controls.Add(Me.CBTagDP) -Me.GroupBox50.Controls.Add(Me.CBTagHandjob) -Me.GroupBox50.Controls.Add(Me.CBTagStanding) -Me.GroupBox50.Controls.Add(Me.CBTagFootjob) -Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) -Me.GroupBox50.Controls.Add(Me.CBTagTitjob) -Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) -Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) -Me.GroupBox50.Location = New System.Drawing.Point(119, 37) -Me.GroupBox50.Name = "GroupBox50" -Me.GroupBox50.Size = New System.Drawing.Size(105, 358) -Me.GroupBox50.TabIndex = 237 -Me.GroupBox50.TabStop = false -Me.GroupBox50.Text = "Sex" -' -'CBTagRimming -' -Me.CBTagRimming.AutoSize = true -Me.CBTagRimming.Enabled = false -Me.CBTagRimming.ForeColor = System.Drawing.Color.Black -Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) -Me.CBTagRimming.Name = "CBTagRimming" -Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) -Me.CBTagRimming.TabIndex = 219 -Me.CBTagRimming.Text = "Rimming" -Me.CBTagRimming.UseVisualStyleBackColor = true -' -'CBTagFacesitting -' -Me.CBTagFacesitting.AutoSize = true -Me.CBTagFacesitting.Enabled = false -Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black -Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) -Me.CBTagFacesitting.Name = "CBTagFacesitting" -Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) -Me.CBTagFacesitting.TabIndex = 226 -Me.CBTagFacesitting.Text = "Facesitting" -Me.CBTagFacesitting.UseVisualStyleBackColor = true -' -'CBTagMissionary -' -Me.CBTagMissionary.AutoSize = true -Me.CBTagMissionary.Enabled = false -Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black -Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) -Me.CBTagMissionary.Name = "CBTagMissionary" -Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) -Me.CBTagMissionary.TabIndex = 208 -Me.CBTagMissionary.Text = "Missionary" -Me.CBTagMissionary.UseVisualStyleBackColor = true -' -'CBTagMasturbation -' -Me.CBTagMasturbation.AutoSize = true -Me.CBTagMasturbation.Enabled = false -Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) -Me.CBTagMasturbation.Name = "CBTagMasturbation" -Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbation.TabIndex = 203 -Me.CBTagMasturbation.Text = "Masturbation" -Me.CBTagMasturbation.UseVisualStyleBackColor = true -' -'CBTagRCowgirl -' -Me.CBTagRCowgirl.AutoSize = true -Me.CBTagRCowgirl.Enabled = false -Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) -Me.CBTagRCowgirl.Name = "CBTagRCowgirl" -Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) -Me.CBTagRCowgirl.TabIndex = 218 -Me.CBTagRCowgirl.Text = "R. Cowgirl" -Me.CBTagRCowgirl.UseVisualStyleBackColor = true -' -'CBTagFingering -' -Me.CBTagFingering.AutoSize = true -Me.CBTagFingering.Enabled = false -Me.CBTagFingering.ForeColor = System.Drawing.Color.Black -Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) -Me.CBTagFingering.Name = "CBTagFingering" -Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) -Me.CBTagFingering.TabIndex = 204 -Me.CBTagFingering.Text = "Fingering" -Me.CBTagFingering.UseVisualStyleBackColor = true -' -'CBTagGangbang -' -Me.CBTagGangbang.AutoSize = true -Me.CBTagGangbang.Enabled = false -Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black -Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) -Me.CBTagGangbang.Name = "CBTagGangbang" -Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) -Me.CBTagGangbang.TabIndex = 217 -Me.CBTagGangbang.Text = "Gangbang" -Me.CBTagGangbang.UseVisualStyleBackColor = true -' -'CBTagBlowjob -' -Me.CBTagBlowjob.AutoSize = true -Me.CBTagBlowjob.Enabled = false -Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) -Me.CBTagBlowjob.Name = "CBTagBlowjob" -Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBTagBlowjob.TabIndex = 205 -Me.CBTagBlowjob.Text = "Blowjob" -Me.CBTagBlowjob.UseVisualStyleBackColor = true -' -'CBTagDP -' -Me.CBTagDP.AutoSize = true -Me.CBTagDP.Enabled = false -Me.CBTagDP.ForeColor = System.Drawing.Color.Black -Me.CBTagDP.Location = New System.Drawing.Point(15, 317) -Me.CBTagDP.Name = "CBTagDP" -Me.CBTagDP.Size = New System.Drawing.Size(41, 17) -Me.CBTagDP.TabIndex = 216 -Me.CBTagDP.Text = "DP" -Me.CBTagDP.UseVisualStyleBackColor = true -' -'CBTagHandjob -' -Me.CBTagHandjob.AutoSize = true -Me.CBTagHandjob.Enabled = false -Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black -Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) -Me.CBTagHandjob.Name = "CBTagHandjob" -Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) -Me.CBTagHandjob.TabIndex = 206 -Me.CBTagHandjob.Text = "Handjob" -Me.CBTagHandjob.UseVisualStyleBackColor = true -' -'CBTagStanding -' -Me.CBTagStanding.AutoSize = true -Me.CBTagStanding.Enabled = false -Me.CBTagStanding.ForeColor = System.Drawing.Color.Black -Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) -Me.CBTagStanding.Name = "CBTagStanding" -Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) -Me.CBTagStanding.TabIndex = 215 -Me.CBTagStanding.Text = "Standing" -Me.CBTagStanding.UseVisualStyleBackColor = true -' -'CBTagFootjob -' -Me.CBTagFootjob.AutoSize = true -Me.CBTagFootjob.Enabled = false -Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black -Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) -Me.CBTagFootjob.Name = "CBTagFootjob" -Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) -Me.CBTagFootjob.TabIndex = 207 -Me.CBTagFootjob.Text = "Footjob" -Me.CBTagFootjob.UseVisualStyleBackColor = true -' -'CBTagCowgirl -' -Me.CBTagCowgirl.AutoSize = true -Me.CBTagCowgirl.Enabled = false -Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) -Me.CBTagCowgirl.Name = "CBTagCowgirl" -Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) -Me.CBTagCowgirl.TabIndex = 214 -Me.CBTagCowgirl.Text = "Cowgirl" -Me.CBTagCowgirl.UseVisualStyleBackColor = true -' -'CBTagDoggyStyle -' -Me.CBTagDoggyStyle.AutoSize = true -Me.CBTagDoggyStyle.Enabled = false -Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black -Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) -Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" -Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) -Me.CBTagDoggyStyle.TabIndex = 209 -Me.CBTagDoggyStyle.Text = "Doggy Style" -Me.CBTagDoggyStyle.UseVisualStyleBackColor = true -' -'CBTagTitjob -' -Me.CBTagTitjob.AutoSize = true -Me.CBTagTitjob.Enabled = false -Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black -Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) -Me.CBTagTitjob.Name = "CBTagTitjob" -Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) -Me.CBTagTitjob.TabIndex = 213 -Me.CBTagTitjob.Text = "Titjob" -Me.CBTagTitjob.UseVisualStyleBackColor = true -' -'CBTagCunnilingus -' -Me.CBTagCunnilingus.AutoSize = true -Me.CBTagCunnilingus.Enabled = false -Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black -Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) -Me.CBTagCunnilingus.Name = "CBTagCunnilingus" -Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) -Me.CBTagCunnilingus.TabIndex = 210 -Me.CBTagCunnilingus.Text = "Cunnilingus" -Me.CBTagCunnilingus.UseVisualStyleBackColor = true -' -'CBTagAnalSex -' -Me.CBTagAnalSex.AutoSize = true -Me.CBTagAnalSex.Enabled = false -Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) -Me.CBTagAnalSex.Name = "CBTagAnalSex" -Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalSex.TabIndex = 212 -Me.CBTagAnalSex.Text = "Anal Sex" -Me.CBTagAnalSex.UseVisualStyleBackColor = true -' -'GroupBox48 -' -Me.GroupBox48.Controls.Add(Me.CBTagArtwork) -Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) -Me.GroupBox48.Controls.Add(Me.CBTagPOV) -Me.GroupBox48.Controls.Add(Me.CBTagHardcore) -Me.GroupBox48.Controls.Add(Me.CBTagTD) -Me.GroupBox48.Controls.Add(Me.CBTagGay) -Me.GroupBox48.Controls.Add(Me.CBTagBath) -Me.GroupBox48.Controls.Add(Me.CBTagBisexual) -Me.GroupBox48.Controls.Add(Me.CBTagCFNM) -Me.GroupBox48.Controls.Add(Me.CBTagLesbian) -Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) -Me.GroupBox48.Controls.Add(Me.CBTagSM) -Me.GroupBox48.Controls.Add(Me.CBTagBondage) -Me.GroupBox48.Controls.Add(Me.CBTagSoloM) -Me.GroupBox48.Controls.Add(Me.CBTagSoloF) -Me.GroupBox48.Controls.Add(Me.CBTagChastity) -Me.GroupBox48.Controls.Add(Me.CBTagShower) -Me.GroupBox48.Location = New System.Drawing.Point(8, 37) -Me.GroupBox48.Name = "GroupBox48" -Me.GroupBox48.Size = New System.Drawing.Size(105, 358) -Me.GroupBox48.TabIndex = 235 -Me.GroupBox48.TabStop = false -Me.GroupBox48.Text = "Category" -' -'CBTagArtwork -' -Me.CBTagArtwork.AutoSize = true -Me.CBTagArtwork.Enabled = false -Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black -Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) -Me.CBTagArtwork.Name = "CBTagArtwork" -Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) -Me.CBTagArtwork.TabIndex = 225 -Me.CBTagArtwork.Text = "Artwork" -Me.CBTagArtwork.UseVisualStyleBackColor = true -' -'CBTagOutdoors -' -Me.CBTagOutdoors.AutoSize = true -Me.CBTagOutdoors.Enabled = false -Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black -Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) -Me.CBTagOutdoors.Name = "CBTagOutdoors" -Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) -Me.CBTagOutdoors.TabIndex = 219 -Me.CBTagOutdoors.Text = "Outdoors" -Me.CBTagOutdoors.UseVisualStyleBackColor = true -' -'CBTagPOV -' -Me.CBTagPOV.AutoSize = true -Me.CBTagPOV.Enabled = false -Me.CBTagPOV.ForeColor = System.Drawing.Color.Black -Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) -Me.CBTagPOV.Name = "CBTagPOV" -Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) -Me.CBTagPOV.TabIndex = 208 -Me.CBTagPOV.Text = "POV" -Me.CBTagPOV.UseVisualStyleBackColor = true -' -'CBTagHardcore -' -Me.CBTagHardcore.AutoSize = true -Me.CBTagHardcore.Enabled = false -Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black -Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) -Me.CBTagHardcore.Name = "CBTagHardcore" -Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBTagHardcore.TabIndex = 203 -Me.CBTagHardcore.Text = "Hardcore" -Me.CBTagHardcore.UseVisualStyleBackColor = true -' -'CBTagTD -' -Me.CBTagTD.AutoSize = true -Me.CBTagTD.Enabled = false -Me.CBTagTD.ForeColor = System.Drawing.Color.Black -Me.CBTagTD.Location = New System.Drawing.Point(15, 217) -Me.CBTagTD.Name = "CBTagTD" -Me.CBTagTD.Size = New System.Drawing.Size(47, 17) -Me.CBTagTD.TabIndex = 218 -Me.CBTagTD.Text = "T&&D" -Me.CBTagTD.UseVisualStyleBackColor = true -' -'CBTagGay -' -Me.CBTagGay.AutoSize = true -Me.CBTagGay.Enabled = false -Me.CBTagGay.ForeColor = System.Drawing.Color.Black -Me.CBTagGay.Location = New System.Drawing.Point(15, 57) -Me.CBTagGay.Name = "CBTagGay" -Me.CBTagGay.Size = New System.Drawing.Size(45, 17) -Me.CBTagGay.TabIndex = 204 -Me.CBTagGay.Text = "Gay" -Me.CBTagGay.UseVisualStyleBackColor = true -' -'CBTagBath -' -Me.CBTagBath.AutoSize = true -Me.CBTagBath.Enabled = false -Me.CBTagBath.ForeColor = System.Drawing.Color.Black -Me.CBTagBath.Location = New System.Drawing.Point(15, 277) -Me.CBTagBath.Name = "CBTagBath" -Me.CBTagBath.Size = New System.Drawing.Size(48, 17) -Me.CBTagBath.TabIndex = 217 -Me.CBTagBath.Text = "Bath" -Me.CBTagBath.UseVisualStyleBackColor = true -' -'CBTagBisexual -' -Me.CBTagBisexual.AutoSize = true -Me.CBTagBisexual.Enabled = false -Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black -Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) -Me.CBTagBisexual.Name = "CBTagBisexual" -Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) -Me.CBTagBisexual.TabIndex = 205 -Me.CBTagBisexual.Text = "Bisexual" -Me.CBTagBisexual.UseVisualStyleBackColor = true -' -'CBTagCFNM -' -Me.CBTagCFNM.AutoSize = true -Me.CBTagCFNM.Enabled = false -Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black -Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) -Me.CBTagCFNM.Name = "CBTagCFNM" -Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) -Me.CBTagCFNM.TabIndex = 216 -Me.CBTagCFNM.Text = "CFNM" -Me.CBTagCFNM.UseVisualStyleBackColor = true -' -'CBTagLesbian -' -Me.CBTagLesbian.AutoSize = true -Me.CBTagLesbian.Enabled = false -Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black -Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) -Me.CBTagLesbian.Name = "CBTagLesbian" -Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBTagLesbian.TabIndex = 206 -Me.CBTagLesbian.Text = "Lesbian" -Me.CBTagLesbian.UseVisualStyleBackColor = true -' -'CBTagSoloFuta -' -Me.CBTagSoloFuta.AutoSize = true -Me.CBTagSoloFuta.Enabled = false -Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) -Me.CBTagSoloFuta.Name = "CBTagSoloFuta" -Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) -Me.CBTagSoloFuta.TabIndex = 207 -Me.CBTagSoloFuta.Text = "Solo Futa" -Me.CBTagSoloFuta.UseVisualStyleBackColor = true -' -'CBTagSM -' -Me.CBTagSM.AutoSize = true -Me.CBTagSM.Enabled = false -Me.CBTagSM.ForeColor = System.Drawing.Color.Black -Me.CBTagSM.Location = New System.Drawing.Point(15, 197) -Me.CBTagSM.Name = "CBTagSM" -Me.CBTagSM.Size = New System.Drawing.Size(48, 17) -Me.CBTagSM.TabIndex = 214 -Me.CBTagSM.Text = "S&&M" -Me.CBTagSM.UseVisualStyleBackColor = true -' -'CBTagBondage -' -Me.CBTagBondage.AutoSize = true -Me.CBTagBondage.Enabled = false -Me.CBTagBondage.ForeColor = System.Drawing.Color.Black -Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) -Me.CBTagBondage.Name = "CBTagBondage" -Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) -Me.CBTagBondage.TabIndex = 209 -Me.CBTagBondage.Text = "Bondage" -Me.CBTagBondage.UseVisualStyleBackColor = true -' -'CBTagSoloM -' -Me.CBTagSoloM.AutoSize = true -Me.CBTagSoloM.Enabled = false -Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) -Me.CBTagSoloM.Name = "CBTagSoloM" -Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) -Me.CBTagSoloM.TabIndex = 213 -Me.CBTagSoloM.Text = "Solo M" -Me.CBTagSoloM.UseVisualStyleBackColor = true -' -'CBTagSoloF -' -Me.CBTagSoloF.AutoSize = true -Me.CBTagSoloF.Enabled = false -Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) -Me.CBTagSoloF.Name = "CBTagSoloF" -Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) -Me.CBTagSoloF.TabIndex = 210 -Me.CBTagSoloF.Text = "Solo F" -Me.CBTagSoloF.UseVisualStyleBackColor = true -' -'CBTagChastity -' -Me.CBTagChastity.AutoSize = true -Me.CBTagChastity.Enabled = false -Me.CBTagChastity.ForeColor = System.Drawing.Color.Black -Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) -Me.CBTagChastity.Name = "CBTagChastity" -Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) -Me.CBTagChastity.TabIndex = 212 -Me.CBTagChastity.Text = "Chastity" -Me.CBTagChastity.UseVisualStyleBackColor = true -' -'CBTagShower -' -Me.CBTagShower.AutoSize = true -Me.CBTagShower.Enabled = false -Me.CBTagShower.ForeColor = System.Drawing.Color.Black -Me.CBTagShower.Location = New System.Drawing.Point(15, 297) -Me.CBTagShower.Name = "CBTagShower" -Me.CBTagShower.Size = New System.Drawing.Size(62, 17) -Me.CBTagShower.TabIndex = 211 -Me.CBTagShower.Text = "Shower" -Me.CBTagShower.UseVisualStyleBackColor = true -' -'TBLocalTagDir -' -Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBLocalTagDir.Name = "TBLocalTagDir" -Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBLocalTagDir.TabIndex = 233 -Me.TBLocalTagDir.Text = "Enter Image Directory" -' -'BTNLocalTagPrevious -' -Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagPrevious.Enabled = false -Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" -Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagPrevious.TabIndex = 232 -Me.BTNLocalTagPrevious.Text = "<<" -Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false -' -'BTNLocalTagNext -' -Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagNext.Enabled = false -Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNLocalTagNext.Name = "BTNLocalTagNext" -Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagNext.TabIndex = 231 -Me.BTNLocalTagNext.Text = ">>" -Me.BTNLocalTagNext.UseVisualStyleBackColor = false -' -'LBLLocalTagCount -' -Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLLocalTagCount.Enabled = false -Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLLocalTagCount.Name = "LBLLocalTagCount" -Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLLocalTagCount.TabIndex = 230 -Me.LBLLocalTagCount.Text = "0/0" -Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNLocalTagSave -' -Me.BTNLocalTagSave.Enabled = false -Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNLocalTagSave.Name = "BTNLocalTagSave" -Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNLocalTagSave.TabIndex = 229 -Me.BTNLocalTagSave.Text = "Finished" -Me.BTNLocalTagSave.UseVisualStyleBackColor = true -' -'BTNLocalTagDir -' -Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNLocalTagDir.Name = "BTNLocalTagDir" -Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNLocalTagDir.TabIndex = 228 -Me.BTNLocalTagDir.Text = "1" -Me.BTNLocalTagDir.UseVisualStyleBackColor = true -' -'TabPage11 -' -Me.TabPage11.BackColor = System.Drawing.Color.Silver -Me.TabPage11.Controls.Add(Me.Panel7) -Me.TabPage11.Location = New System.Drawing.Point(4, 22) -Me.TabPage11.Name = "TabPage11" -Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage11.Size = New System.Drawing.Size(720, 448) -Me.TabPage11.TabIndex = 10 -Me.TabPage11.Text = "URL Files" -' -'Panel7 -' -Me.Panel7.BackColor = System.Drawing.Color.LightGray -Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel7.Controls.Add(Me.BTNWIContinue) -Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) -Me.Panel7.Controls.Add(Me.BTNWICancel) -Me.Panel7.Controls.Add(Me.CBWIReview) -Me.Panel7.Controls.Add(Me.BTNWIBrowse) -Me.Panel7.Controls.Add(Me.TBWIDirectory) -Me.Panel7.Controls.Add(Me.BTNWIDisliked) -Me.Panel7.Controls.Add(Me.BTNWILiked) -Me.Panel7.Controls.Add(Me.BTNWIRemove) -Me.Panel7.Controls.Add(Me.CBWISaveToDisk) -Me.Panel7.Controls.Add(Me.PictureBox5) -Me.Panel7.Controls.Add(Me.WebImageProgressBar) -Me.Panel7.Controls.Add(Me.BTNWICreateURL) -Me.Panel7.Controls.Add(Me.LBLWebImageCount) -Me.Panel7.Controls.Add(Me.BTNWISave) -Me.Panel7.Controls.Add(Me.BTNWIOpenURL) -Me.Panel7.Controls.Add(Me.BTNWIPrevious) -Me.Panel7.Controls.Add(Me.BTNWINext) -Me.Panel7.Controls.Add(Me.WebPictureBox) -Me.Panel7.Controls.Add(Me.Label71) -Me.Panel7.Location = New System.Drawing.Point(6, 6) -Me.Panel7.Name = "Panel7" -Me.Panel7.Size = New System.Drawing.Size(708, 437) -Me.Panel7.TabIndex = 91 -' -'BTNWIContinue -' -Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIContinue.Enabled = false -Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) -Me.BTNWIContinue.Name = "BTNWIContinue" -Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIContinue.TabIndex = 168 -Me.BTNWIContinue.Text = "Continue" -Me.BTNWIContinue.UseVisualStyleBackColor = false -' -'BTNWIAddandContinue -' -Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIAddandContinue.Enabled = false -Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) -Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" -Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIAddandContinue.TabIndex = 167 -Me.BTNWIAddandContinue.Text = "Add and Continue" -Me.BTNWIAddandContinue.UseVisualStyleBackColor = false -' -'BTNWICancel -' -Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray -Me.BTNWICancel.Enabled = false -Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICancel.ForeColor = System.Drawing.Color.Black -Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) -Me.BTNWICancel.Name = "BTNWICancel" -Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) -Me.BTNWICancel.TabIndex = 166 -Me.BTNWICancel.Text = "Cancel" -Me.BTNWICancel.UseVisualStyleBackColor = false -' -'CBWIReview -' -Me.CBWIReview.Location = New System.Drawing.Point(567, 69) -Me.CBWIReview.Name = "CBWIReview" -Me.CBWIReview.Size = New System.Drawing.Size(124, 30) -Me.CBWIReview.TabIndex = 165 -Me.CBWIReview.Text = "Review Each Image" -Me.CBWIReview.UseVisualStyleBackColor = true -' -'BTNWIBrowse -' -Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray -Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black -Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) -Me.BTNWIBrowse.Name = "BTNWIBrowse" -Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) -Me.BTNWIBrowse.TabIndex = 163 -Me.BTNWIBrowse.Text = "Browse" -Me.BTNWIBrowse.UseVisualStyleBackColor = false -' -'TBWIDirectory -' -Me.TBWIDirectory.BackColor = System.Drawing.Color.White -Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black -Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) -Me.TBWIDirectory.Name = "TBWIDirectory" -Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) -Me.TBWIDirectory.TabIndex = 164 -Me.TBWIDirectory.Text = "Saved Image Directory" -' -'BTNWIDisliked -' -Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray -Me.BTNWIDisliked.Enabled = false -Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black -Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) -Me.BTNWIDisliked.Name = "BTNWIDisliked" -Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) -Me.BTNWIDisliked.TabIndex = 162 -Me.BTNWIDisliked.Text = "Add to Disliked Images" -Me.BTNWIDisliked.UseVisualStyleBackColor = false -' -'BTNWILiked -' -Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray -Me.BTNWILiked.Enabled = false -Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWILiked.ForeColor = System.Drawing.Color.Black -Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) -Me.BTNWILiked.Name = "BTNWILiked" -Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) -Me.BTNWILiked.TabIndex = 161 -Me.BTNWILiked.Text = "Add to Liked Images" -Me.BTNWILiked.UseVisualStyleBackColor = false -' -'BTNWIRemove -' -Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray -Me.BTNWIRemove.Enabled = false -Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black -Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) -Me.BTNWIRemove.Name = "BTNWIRemove" -Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) -Me.BTNWIRemove.TabIndex = 160 -Me.BTNWIRemove.Text = "Remove From URL File" -Me.BTNWIRemove.UseVisualStyleBackColor = false -' -'CBWISaveToDisk -' -Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) -Me.CBWISaveToDisk.Name = "CBWISaveToDisk" -Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) -Me.CBWISaveToDisk.TabIndex = 157 -Me.CBWISaveToDisk.Text = "Save Images to Disk" -Me.CBWISaveToDisk.UseVisualStyleBackColor = true -' -'PictureBox5 -' -Me.PictureBox5.BackColor = System.Drawing.Color.LightGray -Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox5.Location = New System.Drawing.Point(9, 6) -Me.PictureBox5.Name = "PictureBox5" -Me.PictureBox5.Size = New System.Drawing.Size(160, 19) -Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox5.TabIndex = 156 -Me.PictureBox5.TabStop = false -' -'WebImageProgressBar -' -Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) -Me.WebImageProgressBar.Maximum = 2500 -Me.WebImageProgressBar.Name = "WebImageProgressBar" -Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) -Me.WebImageProgressBar.TabIndex = 155 -' -'BTNWICreateURL -' -Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black -Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) -Me.BTNWICreateURL.Name = "BTNWICreateURL" -Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWICreateURL.TabIndex = 154 -Me.BTNWICreateURL.Text = "Create URL File" -Me.BTNWICreateURL.UseVisualStyleBackColor = false -' -'LBLWebImageCount -' -Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent -Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black -Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) -Me.LBLWebImageCount.Name = "LBLWebImageCount" -Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) -Me.LBLWebImageCount.TabIndex = 153 -Me.LBLWebImageCount.Text = "0/0" -Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNWISave -' -Me.BTNWISave.BackColor = System.Drawing.Color.LightGray -Me.BTNWISave.Enabled = false -Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWISave.ForeColor = System.Drawing.Color.Black -Me.BTNWISave.Location = New System.Drawing.Point(567, 401) -Me.BTNWISave.Name = "BTNWISave" -Me.BTNWISave.Size = New System.Drawing.Size(131, 24) -Me.BTNWISave.TabIndex = 152 -Me.BTNWISave.Text = "Save Image to Disk" -Me.BTNWISave.UseVisualStyleBackColor = false -' -'BTNWIOpenURL -' -Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black -Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) -Me.BTNWIOpenURL.Name = "BTNWIOpenURL" -Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWIOpenURL.TabIndex = 151 -Me.BTNWIOpenURL.Text = "Open URL File" -Me.BTNWIOpenURL.UseVisualStyleBackColor = false -' -'BTNWIPrevious -' -Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNWIPrevious.Enabled = false -Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) -Me.BTNWIPrevious.Name = "BTNWIPrevious" -Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNWIPrevious.TabIndex = 149 -Me.BTNWIPrevious.Text = "<<" -Me.BTNWIPrevious.UseVisualStyleBackColor = false -' -'BTNWINext -' -Me.BTNWINext.BackColor = System.Drawing.Color.LightGray -Me.BTNWINext.Enabled = false -Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWINext.ForeColor = System.Drawing.Color.Black -Me.BTNWINext.Location = New System.Drawing.Point(651, 282) -Me.BTNWINext.Name = "BTNWINext" -Me.BTNWINext.Size = New System.Drawing.Size(47, 24) -Me.BTNWINext.TabIndex = 150 -Me.BTNWINext.Text = ">>" -Me.BTNWINext.UseVisualStyleBackColor = false -' -'WebPictureBox -' -Me.WebPictureBox.BackColor = System.Drawing.Color.Black -Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) -Me.WebPictureBox.Name = "WebPictureBox" -Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) -Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WebPictureBox.TabIndex = 148 -Me.WebPictureBox.TabStop = false -' -'Label71 -' -Me.Label71.BackColor = System.Drawing.Color.Transparent -Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label71.ForeColor = System.Drawing.Color.Black -Me.Label71.Location = New System.Drawing.Point(7, 6) -Me.Label71.Name = "Label71" -Me.Label71.Size = New System.Drawing.Size(692, 21) -Me.Label71.TabIndex = 48 -Me.Label71.Text = "URL Files" -Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TpVideoSettings -' -Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver -Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) -Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) -Me.TpVideoSettings.Name = "TpVideoSettings" -Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) -Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) -Me.TpVideoSettings.TabIndex = 2 -Me.TpVideoSettings.Text = "Video" -' -'PnlVideoSettings -' -Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) -Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) -Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) -Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill -Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) -Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) -Me.PnlVideoSettings.Name = "PnlVideoSettings" -Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) -Me.PnlVideoSettings.TabIndex = 92 -' -'PbBannerVideoSettings -' -Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) -Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" -Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) -Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PbBannerVideoSettings.TabIndex = 151 -Me.PbBannerVideoSettings.TabStop = false -' -'BTNRefreshVideos -' -Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray -Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh -Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom -Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 -Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black -Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) -Me.BTNRefreshVideos.Name = "BTNRefreshVideos" -Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) -Me.BTNRefreshVideos.TabIndex = 149 -Me.BTNRefreshVideos.UseVisualStyleBackColor = false -' -'GbxVideoGeneralD -' -Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) -Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) -Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) -Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" -Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneralD.TabIndex = 5 -Me.GbxVideoGeneralD.TabStop = false -Me.GbxVideoGeneralD.Text = "Domme General" -' -'LblVideoGeneralTotalD -' -Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" -Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotalD.TabIndex = 3 -Me.LblVideoGeneralTotalD.Text = "0" -Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoGeneralD -' -Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" -Me.TxbVideoGeneralD.ReadOnly = true -Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.TabIndex = 2 -Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD -' -'BTNVideoGeneralD -' -Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" -Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneralD.TabIndex = 1 -Me.BTNVideoGeneralD.Text = "1" -Me.BTNVideoGeneralD.UseVisualStyleBackColor = false -' -'CBVideoGeneralD -' -Me.CBVideoGeneralD.AutoSize = true -Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD -Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneralD.Name = "CBVideoGeneralD" -Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneralD.TabIndex = 0 -Me.CBVideoGeneralD.Text = "General" -Me.CBVideoGeneralD.UseVisualStyleBackColor = true -' -'GbxVideoSpecialD -' -Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) -Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) -Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" -Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecialD.TabIndex = 4 -Me.GbxVideoSpecialD.TabStop = false -Me.GbxVideoSpecialD.Text = "Domme Special" -' -'LblVideoCHTotalD -' -Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) -Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" -Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotalD.TabIndex = 7 -Me.LblVideoCHTotalD.Text = "0" -Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LblVideoJOITotalD -' -Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" -Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotalD.TabIndex = 3 -Me.LblVideoJOITotalD.Text = "0" -Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoCHD -' -Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.Name = "TxbVideoCHD" -Me.TxbVideoCHD.ReadOnly = true -Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.TabIndex = 6 -Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD -' -'TxbVideoJOID -' -Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.Name = "TxbVideoJOID" -Me.TxbVideoJOID.ReadOnly = true -Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.TabIndex = 2 -Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID -' -'BTNVideoCHD -' -Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCHD.Name = "BTNVideoCHD" -Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCHD.TabIndex = 5 -Me.BTNVideoCHD.Text = "1" -Me.BTNVideoCHD.UseVisualStyleBackColor = false -' -'BTNVideoJOID -' -Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOID.Name = "BTNVideoJOID" -Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOID.TabIndex = 1 -Me.BTNVideoJOID.Text = "1" -Me.BTNVideoJOID.UseVisualStyleBackColor = false -' -'CBVideoJOID -' -Me.CBVideoJOID.AutoSize = true -Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID -Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOID.Name = "CBVideoJOID" -Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOID.TabIndex = 0 -Me.CBVideoJOID.Text = "JOI" -Me.CBVideoJOID.UseVisualStyleBackColor = true -' -'CBVideoCHD -' -Me.CBVideoCHD.AutoSize = true -Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD -Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black -Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCHD.Name = "CBVideoCHD" -Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCHD.TabIndex = 4 -Me.CBVideoCHD.Text = "CH" -Me.CBVideoCHD.UseVisualStyleBackColor = true -' -'GbxVideoGenreD -' -Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) -Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) -Me.GbxVideoGenreD.Name = "GbxVideoGenreD" -Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenreD.TabIndex = 3 -Me.GbxVideoGenreD.TabStop = false -Me.GbxVideoGenreD.Text = "Domme Genre" -' -'LblVideoFemsubTotalD -' -Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" -Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotalD.TabIndex = 23 -Me.LblVideoFemsubTotalD.Text = "0" -Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemsubD -' -Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" -Me.TxbVideoFemsubD.ReadOnly = true -Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.TabIndex = 22 -Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD -' -'LblVideoFemdomTotalD -' -Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" -Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotalD.TabIndex = 19 -Me.LblVideoFemdomTotalD.Text = "0" -Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemdomD -' -Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" -Me.TxbVideoFemdomD.ReadOnly = true -Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.TabIndex = 18 -Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD -' -'TxbVideoBlowjobD -' -Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" -Me.TxbVideoBlowjobD.ReadOnly = true -Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.TabIndex = 14 -Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD -' -'LblVideoBlowjobTotalD -' -Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" -Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotalD.TabIndex = 15 -Me.LblVideoBlowjobTotalD.Text = "0" -Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoLesbianD -' -Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" -Me.TxbVideoLesbianD.ReadOnly = true -Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.TabIndex = 10 -Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD -' -'TxbVideoSoftCoreD -' -Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" -Me.TxbVideoSoftCoreD.ReadOnly = true -Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.TabIndex = 6 -Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD -' -'LblVideoLesbianTotalD -' -Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" -Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotalD.TabIndex = 11 -Me.LblVideoLesbianTotalD.Text = "0" -Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoHardCoreD -' -Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" -Me.TxbVideoHardCoreD.ReadOnly = true -Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.TabIndex = 2 -Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD -' -'BTNVideoFemSubD -' -Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" -Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSubD.TabIndex = 21 -Me.BTNVideoFemSubD.Text = "1" -Me.BTNVideoFemSubD.UseVisualStyleBackColor = false -' -'LblVideoSoftCoreTotalD -' -Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" -Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotalD.TabIndex = 7 -Me.LblVideoSoftCoreTotalD.Text = "0" -Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoFemDomD -' -Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" -Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDomD.TabIndex = 17 -Me.BTNVideoFemDomD.Text = "1" -Me.BTNVideoFemDomD.UseVisualStyleBackColor = false -' -'BTNVideoBlowjobD -' -Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" -Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjobD.TabIndex = 13 -Me.BTNVideoBlowjobD.Text = "1" -Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false -' -'LblVideoHardCoreTotalD -' -Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" -Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotalD.TabIndex = 3 -Me.LblVideoHardCoreTotalD.Text = "0" -Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoLesbianD -' -Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" -Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbianD.TabIndex = 9 -Me.BTNVideoLesbianD.Text = "1" -Me.BTNVideoLesbianD.UseVisualStyleBackColor = false -' -'BTNVideoSoftCoreD -' -Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" -Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCoreD.TabIndex = 5 -Me.BTNVideoSoftCoreD.Text = "1" -Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false -' -'BTNVideoHardCoreD -' -Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" -Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCoreD.TabIndex = 1 -Me.BTNVideoHardCoreD.Text = "1" -Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false -' -'CBVideoHardcoreD -' -Me.CBVideoHardcoreD.AutoSize = true -Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD -Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" -Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcoreD.TabIndex = 0 -Me.CBVideoHardcoreD.Text = "Hardcore" -Me.CBVideoHardcoreD.UseVisualStyleBackColor = true -' -'CBVideoSoftCoreD -' -Me.CBVideoSoftCoreD.AutoSize = true -Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD -Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" -Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCoreD.TabIndex = 4 -Me.CBVideoSoftCoreD.Text = "Softcore" -Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true -' -'CBVideoLesbianD -' -Me.CBVideoLesbianD.AutoSize = true -Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD -Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbianD.Name = "CBVideoLesbianD" -Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbianD.TabIndex = 8 -Me.CBVideoLesbianD.Text = "Lesbian" -Me.CBVideoLesbianD.UseVisualStyleBackColor = true -' -'CBVideoBlowjobD -' -Me.CBVideoBlowjobD.AutoSize = true -Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD -Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" -Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjobD.TabIndex = 12 -Me.CBVideoBlowjobD.Text = "Blowjob" -Me.CBVideoBlowjobD.UseVisualStyleBackColor = true -' -'CBVideoFemsubD -' -Me.CBVideoFemsubD.AutoSize = true -Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD -Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsubD.Name = "CBVideoFemsubD" -Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsubD.TabIndex = 20 -Me.CBVideoFemsubD.Text = "Femsub" -Me.CBVideoFemsubD.UseVisualStyleBackColor = true -' -'CBVideoFemdomD -' -Me.CBVideoFemdomD.AutoSize = true -Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD -Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdomD.Name = "CBVideoFemdomD" -Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdomD.TabIndex = 16 -Me.CBVideoFemdomD.Text = "Femdom" -Me.CBVideoFemdomD.UseVisualStyleBackColor = true -' -'GbxVideoDescription -' -Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) -Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black -Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) -Me.GbxVideoDescription.Name = "GbxVideoDescription" -Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) -Me.GbxVideoDescription.TabIndex = 6 -Me.GbxVideoDescription.TabStop = false -Me.GbxVideoDescription.Text = "Description" -' -'VideoDescriptionLabel -' -Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent -Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black -Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) -Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" -Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) -Me.VideoDescriptionLabel.TabIndex = 62 -Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ - "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ - "using as your domme." -Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GbxVideoGeneral -' -Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) -Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) -Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) -Me.GbxVideoGeneral.Name = "GbxVideoGeneral" -Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneral.TabIndex = 2 -Me.GbxVideoGeneral.TabStop = false -Me.GbxVideoGeneral.Text = "General" -' -'LblVideoGeneralTotal -' -Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" -Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotal.TabIndex = 3 -Me.LblVideoGeneralTotal.Text = "0" -Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoGeneral -' -Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.Name = "TxbVideoGeneral" -Me.TxbVideoGeneral.ReadOnly = true -Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.TabIndex = 2 -Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral -' -'BTNVideoGeneral -' -Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneral.Name = "BTNVideoGeneral" -Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneral.TabIndex = 1 -Me.BTNVideoGeneral.Text = "1" -Me.BTNVideoGeneral.UseVisualStyleBackColor = false -' -'CBVideoGeneral -' -Me.CBVideoGeneral.AutoSize = true -Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral -Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneral.Name = "CBVideoGeneral" -Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneral.TabIndex = 0 -Me.CBVideoGeneral.Text = "General" -Me.CBVideoGeneral.UseVisualStyleBackColor = true -' -'GbxVideoSpecial -' -Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) -Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) -Me.GbxVideoSpecial.Name = "GbxVideoSpecial" -Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecial.TabIndex = 1 -Me.GbxVideoSpecial.TabStop = false -Me.GbxVideoSpecial.Text = "Special" -' -'LblVideoCHTotal -' -Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) -Me.LblVideoCHTotal.Name = "LblVideoCHTotal" -Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotal.TabIndex = 7 -Me.LblVideoCHTotal.Text = "0" -Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LblVideoJOITotal -' -Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) -Me.LblVideoJOITotal.Name = "LblVideoJOITotal" -Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotal.TabIndex = 3 -Me.LblVideoJOITotal.Text = "0" -Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoCH -' -Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.Name = "TxbVideoCH" -Me.TxbVideoCH.ReadOnly = true -Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.TabIndex = 6 -Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH -' -'TxbVideoJOI -' -Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.Name = "TxbVideoJOI" -Me.TxbVideoJOI.ReadOnly = true -Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.TabIndex = 2 -Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI -' -'BTNVideoCH -' -Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCH.Name = "BTNVideoCH" -Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCH.TabIndex = 5 -Me.BTNVideoCH.Text = "1" -Me.BTNVideoCH.UseVisualStyleBackColor = false -' -'BTNVideoJOI -' -Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOI.Name = "BTNVideoJOI" -Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOI.TabIndex = 1 -Me.BTNVideoJOI.Text = "1" -Me.BTNVideoJOI.UseVisualStyleBackColor = false -' -'CBVideoJOI -' -Me.CBVideoJOI.AutoSize = true -Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI -Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOI.Name = "CBVideoJOI" -Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOI.TabIndex = 0 -Me.CBVideoJOI.Text = "JOI" -Me.CBVideoJOI.UseVisualStyleBackColor = true -' -'CBVideoCH -' -Me.CBVideoCH.AutoSize = true -Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH -Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCH.ForeColor = System.Drawing.Color.Black -Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCH.Name = "CBVideoCH" -Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCH.TabIndex = 4 -Me.CBVideoCH.Text = "CH" -Me.CBVideoCH.UseVisualStyleBackColor = true -' -'GbxVideoGenre -' -Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) -Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) -Me.GbxVideoGenre.Name = "GbxVideoGenre" -Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenre.TabIndex = 0 -Me.GbxVideoGenre.TabStop = false -Me.GbxVideoGenre.Text = "Genre" -' -'LblVideoFemsubTotal -' -Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" -Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotal.TabIndex = 23 -Me.LblVideoFemsubTotal.Text = "0" -Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemsub -' -Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.Name = "TxbVideoFemsub" -Me.TxbVideoFemsub.ReadOnly = true -Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.TabIndex = 22 -Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub -' -'LblVideoFemdomTotal -' -Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" -Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotal.TabIndex = 19 -Me.LblVideoFemdomTotal.Text = "0" -Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemdom -' -Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.Name = "TxbVideoFemdom" -Me.TxbVideoFemdom.ReadOnly = true -Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.TabIndex = 18 -Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom -' -'TxbVideoBlowjob -' -Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" -Me.TxbVideoBlowjob.ReadOnly = true -Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.TabIndex = 14 -Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob -' -'LblVideoBlowjobTotal -' -Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" -Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotal.TabIndex = 15 -Me.LblVideoBlowjobTotal.Text = "0" -Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoLesbian -' -Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.Name = "TxbVideoLesbian" -Me.TxbVideoLesbian.ReadOnly = true -Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.TabIndex = 10 -Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian -' -'TxbVideoSoftCore -' -Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" -Me.TxbVideoSoftCore.ReadOnly = true -Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.TabIndex = 6 -Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore -' -'LblVideoLesbianTotal -' -Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" -Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotal.TabIndex = 11 -Me.LblVideoLesbianTotal.Text = "0" -Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoHardCore -' -Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.Name = "TxbVideoHardCore" -Me.TxbVideoHardCore.ReadOnly = true -Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.TabIndex = 2 -Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore -' -'BTNVideoFemSub -' -Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSub.Name = "BTNVideoFemSub" -Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSub.TabIndex = 21 -Me.BTNVideoFemSub.Text = "1" -Me.BTNVideoFemSub.UseVisualStyleBackColor = false -' -'LblVideoSoftCoreTotal -' -Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" -Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotal.TabIndex = 7 -Me.LblVideoSoftCoreTotal.Text = "0" -Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoFemDom -' -Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDom.Name = "BTNVideoFemDom" -Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDom.TabIndex = 17 -Me.BTNVideoFemDom.Text = "1" -Me.BTNVideoFemDom.UseVisualStyleBackColor = false -' -'BTNVideoBlowjob -' -Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" -Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjob.TabIndex = 13 -Me.BTNVideoBlowjob.Text = "1" -Me.BTNVideoBlowjob.UseVisualStyleBackColor = false -' -'LblVideoHardCoreTotal -' -Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" -Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotal.TabIndex = 3 -Me.LblVideoHardCoreTotal.Text = "0" -Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoLesbian -' -Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbian.Name = "BTNVideoLesbian" -Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbian.TabIndex = 9 -Me.BTNVideoLesbian.Text = "1" -Me.BTNVideoLesbian.UseVisualStyleBackColor = false -' -'BTNVideoSoftCore -' -Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" -Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCore.TabIndex = 5 -Me.BTNVideoSoftCore.Text = "1" -Me.BTNVideoSoftCore.UseVisualStyleBackColor = false -' -'BTNVideoHardCore -' -Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCore.Name = "BTNVideoHardCore" -Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCore.TabIndex = 1 -Me.BTNVideoHardCore.Text = "1" -Me.BTNVideoHardCore.UseVisualStyleBackColor = false -' -'CBVideoHardcore -' -Me.CBVideoHardcore.AutoSize = true -Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore -Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcore.Name = "CBVideoHardcore" -Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcore.TabIndex = 0 -Me.CBVideoHardcore.Text = "Hardcore" -Me.CBVideoHardcore.UseVisualStyleBackColor = true -' -'CBVideoSoftCore -' -Me.CBVideoSoftCore.AutoSize = true -Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore -Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCore.Name = "CBVideoSoftCore" -Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCore.TabIndex = 4 -Me.CBVideoSoftCore.Text = "Softcore" -Me.CBVideoSoftCore.UseVisualStyleBackColor = true -' -'CBVideoLesbian -' -Me.CBVideoLesbian.AutoSize = true -Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian -Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbian.Name = "CBVideoLesbian" -Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbian.TabIndex = 8 -Me.CBVideoLesbian.Text = "Lesbian" -Me.CBVideoLesbian.UseVisualStyleBackColor = true -' -'CBVideoBlowjob -' -Me.CBVideoBlowjob.AutoSize = true -Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob -Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjob.Name = "CBVideoBlowjob" -Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjob.TabIndex = 12 -Me.CBVideoBlowjob.Text = "Blowjob" -Me.CBVideoBlowjob.UseVisualStyleBackColor = true -' -'CBVideoFemsub -' -Me.CBVideoFemsub.AutoSize = true -Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub -Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsub.Name = "CBVideoFemsub" -Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsub.TabIndex = 20 -Me.CBVideoFemsub.Text = "Femsub" -Me.CBVideoFemsub.UseVisualStyleBackColor = true -' -'CBVideoFemdom -' -Me.CBVideoFemdom.AutoSize = true -Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom -Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdom.Name = "CBVideoFemdom" -Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdom.TabIndex = 16 -Me.CBVideoFemdom.Text = "Femdom" -Me.CBVideoFemdom.UseVisualStyleBackColor = true -' -'LblVideoHeader -' -Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black -Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) -Me.LblVideoHeader.Name = "LblVideoHeader" -Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) -Me.LblVideoHeader.TabIndex = 49 -Me.LblVideoHeader.Text = "Video Settings" -Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage20 -' -Me.TabPage20.BackColor = System.Drawing.Color.Silver -Me.TabPage20.Controls.Add(Me.TabControl1) -Me.TabPage20.Location = New System.Drawing.Point(4, 22) -Me.TabPage20.Name = "TabPage20" -Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage20.Size = New System.Drawing.Size(720, 448) -Me.TabPage20.TabIndex = 16 -Me.TabPage20.Text = "Apps" -' -'TabControl1 -' -Me.TabControl1.Controls.Add(Me.TabPage22) -Me.TabControl1.Controls.Add(Me.TpGames) -Me.TabControl1.Controls.Add(Me.TabPage6) -Me.TabControl1.Location = New System.Drawing.Point(6, 6) -Me.TabControl1.Name = "TabControl1" -Me.TabControl1.SelectedIndex = 0 -Me.TabControl1.Size = New System.Drawing.Size(708, 437) -Me.TabControl1.TabIndex = 0 -' -'TabPage22 -' -Me.TabPage22.BackColor = System.Drawing.Color.LightGray -Me.TabPage22.Controls.Add(Me.PNLGlitter) -Me.TabPage22.Location = New System.Drawing.Point(4, 22) -Me.TabPage22.Name = "TabPage22" -Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage22.Size = New System.Drawing.Size(700, 411) -Me.TabPage22.TabIndex = 0 -Me.TabPage22.Text = "Glitter" -' -'PNLGlitter -' -Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray -Me.PNLGlitter.Controls.Add(Me.GroupBox4) -Me.PNLGlitter.Controls.Add(Me.Button15) -Me.PNLGlitter.Controls.Add(Me.Button16) -Me.PNLGlitter.Controls.Add(Me.Label121) -Me.PNLGlitter.Controls.Add(Me.Label122) -Me.PNLGlitter.Controls.Add(Me.GBGlitterD) -Me.PNLGlitter.Controls.Add(Me.GBGlitter1) -Me.PNLGlitter.Controls.Add(Me.GBGlitter3) -Me.PNLGlitter.Controls.Add(Me.GBGlitter2) -Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) -Me.PNLGlitter.Name = "PNLGlitter" -Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) -Me.PNLGlitter.TabIndex = 91 -' -'GroupBox4 -' -Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) -Me.GroupBox4.Location = New System.Drawing.Point(7, 307) -Me.GroupBox4.Name = "GroupBox4" -Me.GroupBox4.Size = New System.Drawing.Size(344, 85) -Me.GroupBox4.TabIndex = 167 -Me.GroupBox4.TabStop = false -Me.GroupBox4.Text = "Change Current Domme" -' -'LBLCurrentDomme -' -Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) -Me.LBLCurrentDomme.Name = "LBLCurrentDomme" -Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) -Me.LBLCurrentDomme.TabIndex = 168 -Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDomChangeContact1 -' -Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) -Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" -Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact1.TabIndex = 173 -Me.BTNDomChangeContact1.Text = "Contact 1" -Me.BTNDomChangeContact1.UseVisualStyleBackColor = false -' -'BTNDomChangeRandom -' -Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) -Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" -Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeRandom.TabIndex = 172 -Me.BTNDomChangeRandom.Text = "Random" -Me.BTNDomChangeRandom.UseVisualStyleBackColor = false -' -'BTNDomChangeContact3 -' -Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) -Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" -Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact3.TabIndex = 171 -Me.BTNDomChangeContact3.Text = "Contact 3" -Me.BTNDomChangeContact3.UseVisualStyleBackColor = false -' -'BTNDomChangeContact2 -' -Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) -Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" -Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact2.TabIndex = 170 -Me.BTNDomChangeContact2.Text = "Contact 2" -Me.BTNDomChangeContact2.UseVisualStyleBackColor = false -' -'BTNDomChangeDomme -' -Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) -Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" -Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeDomme.TabIndex = 168 -Me.BTNDomChangeDomme.Text = "Domme" -Me.BTNDomChangeDomme.UseVisualStyleBackColor = false -' -'Button15 -' -Me.Button15.BackColor = System.Drawing.Color.LightGray -Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button15.FlatAppearance.BorderSize = 0 -Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button15.ForeColor = System.Drawing.Color.Black -Me.Button15.Location = New System.Drawing.Point(670, 366) -Me.Button15.Name = "Button15" -Me.Button15.Size = New System.Drawing.Size(30, 26) -Me.Button15.TabIndex = 163 -Me.Button15.UseVisualStyleBackColor = false -' -'Button16 -' -Me.Button16.BackColor = System.Drawing.Color.LightGray -Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button16.FlatAppearance.BorderSize = 0 -Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button16.ForeColor = System.Drawing.Color.Black -Me.Button16.Location = New System.Drawing.Point(667, 324) -Me.Button16.Name = "Button16" -Me.Button16.Size = New System.Drawing.Size(30, 26) -Me.Button16.TabIndex = 164 -Me.Button16.UseVisualStyleBackColor = false -' -'Label121 -' -Me.Label121.AutoSize = true -Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label121.ForeColor = System.Drawing.Color.Black -Me.Label121.Location = New System.Drawing.Point(669, 352) -Me.Label121.Name = "Label121" -Me.Label121.Size = New System.Drawing.Size(27, 13) -Me.Label121.TabIndex = 166 -Me.Label121.Text = "load" -Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label122 -' -Me.Label122.AutoSize = true -Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label122.ForeColor = System.Drawing.Color.Black -Me.Label122.Location = New System.Drawing.Point(667, 313) -Me.Label122.Name = "Label122" -Me.Label122.Size = New System.Drawing.Size(30, 13) -Me.Label122.TabIndex = 165 -Me.Label122.Text = "save" -Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GBGlitterD -' -Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray -Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) -Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom2) -Me.GBGlitterD.Controls.Add(Me.GlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom1) -Me.GBGlitterD.Controls.Add(Me.CBDaily) -Me.GBGlitterD.Controls.Add(Me.CBTrivia) -Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) -Me.GBGlitterD.Controls.Add(Me.CBEgotist) -Me.GBGlitterD.Controls.Add(Me.CBTease) -Me.GBGlitterD.Controls.Add(Me.GlitterAV) -Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) -Me.GBGlitterD.Name = "GBGlitterD" -Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) -Me.GBGlitterD.TabIndex = 162 -Me.GBGlitterD.TabStop = false -Me.GBGlitterD.Text = "Domme" -' -'GrbGlitterfeed -' -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) -Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) -Me.GrbGlitterfeed.Name = "GrbGlitterfeed" -Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) -Me.GrbGlitterfeed.TabIndex = 168 -Me.GrbGlitterfeed.TabStop = false -Me.GrbGlitterfeed.Text = "Glitterfeeds" -' -'CBGlitterFeedScripts -' -Me.CBGlitterFeedScripts.AutoSize = true -Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent -Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts -Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) -Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) -Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" -Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) -Me.CBGlitterFeedScripts.TabIndex = 146 -Me.CBGlitterFeedScripts.Text = "Scripts" -Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false -' -'CBGlitterFeed -' -Me.CBGlitterFeed.AutoSize = true -Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed -Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) -Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) -Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) -Me.CBGlitterFeed.Name = "CBGlitterFeed" -Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeed.TabIndex = 145 -Me.CBGlitterFeed.Text = "On" -Me.CBGlitterFeed.UseVisualStyleBackColor = true -' -'CBGlitterFeedOff -' -Me.CBGlitterFeedOff.AutoSize = true -Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff -Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) -Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) -Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" -Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeedOff.TabIndex = 147 -Me.CBGlitterFeedOff.TabStop = true -Me.CBGlitterFeedOff.Text = "Off" -Me.CBGlitterFeedOff.UseVisualStyleBackColor = true -' -'BTNGlitterD -' -Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black -Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitterD.Name = "BTNGlitterD" -Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitterD.TabIndex = 166 -Me.BTNGlitterD.Text = "Choose Name Color" -Me.BTNGlitterD.UseVisualStyleBackColor = false -' -'LBLGlitterNCDomme -' -Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White -Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor -Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" -Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNCDomme.TabIndex = 163 -Me.LBLGlitterNCDomme.Text = "Preview" -Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider -' -Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider.Name = "LBLGlitterSlider" -Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider.TabIndex = 162 -Me.LBLGlitterSlider.Text = "Post Frequency" -Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBCustom2 -' -Me.CBCustom2.AutoSize = true -Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 -Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom2.ForeColor = System.Drawing.Color.Black -Me.CBCustom2.Location = New System.Drawing.Point(149, 121) -Me.CBCustom2.Name = "CBCustom2" -Me.CBCustom2.Size = New System.Drawing.Size(70, 17) -Me.CBCustom2.TabIndex = 161 -Me.CBCustom2.Text = "Custom 2" -Me.CBCustom2.UseVisualStyleBackColor = true -' -'GlitterSlider -' -Me.GlitterSlider.AutoSize = false -Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider.LargeChange = 1 -Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider.Maximum = 9 -Me.GlitterSlider.Minimum = 1 -Me.GlitterSlider.Name = "GlitterSlider" -Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider.TabIndex = 160 -Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider -' -'CBCustom1 -' -Me.CBCustom1.AutoSize = true -Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 -Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom1.ForeColor = System.Drawing.Color.Black -Me.CBCustom1.Location = New System.Drawing.Point(149, 98) -Me.CBCustom1.Name = "CBCustom1" -Me.CBCustom1.Size = New System.Drawing.Size(70, 17) -Me.CBCustom1.TabIndex = 157 -Me.CBCustom1.Text = "Custom 1" -Me.CBCustom1.UseVisualStyleBackColor = true -' -'CBDaily -' -Me.CBDaily.AutoSize = true -Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily -Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBDaily.ForeColor = System.Drawing.Color.Black -Me.CBDaily.Location = New System.Drawing.Point(79, 121) -Me.CBDaily.Name = "CBDaily" -Me.CBDaily.Size = New System.Drawing.Size(49, 17) -Me.CBDaily.TabIndex = 156 -Me.CBDaily.Text = "Daily" -Me.CBDaily.UseVisualStyleBackColor = true -' -'CBTrivia -' -Me.CBTrivia.AutoSize = true -Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia -Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTrivia.ForeColor = System.Drawing.Color.Black -Me.CBTrivia.Location = New System.Drawing.Point(79, 98) -Me.CBTrivia.Name = "CBTrivia" -Me.CBTrivia.Size = New System.Drawing.Size(52, 17) -Me.CBTrivia.TabIndex = 155 -Me.CBTrivia.Text = "Trivia" -Me.CBTrivia.UseVisualStyleBackColor = true -' -'TBGlitterShortName -' -Me.TBGlitterShortName.BackColor = System.Drawing.Color.White -Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black -Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) -Me.TBGlitterShortName.Name = "TBGlitterShortName" -Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) -Me.TBGlitterShortName.TabIndex = 49 -Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN -Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'CBEgotist -' -Me.CBEgotist.AutoSize = true -Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist -Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBEgotist.ForeColor = System.Drawing.Color.Black -Me.CBEgotist.Location = New System.Drawing.Point(9, 121) -Me.CBEgotist.Name = "CBEgotist" -Me.CBEgotist.Size = New System.Drawing.Size(58, 17) -Me.CBEgotist.TabIndex = 153 -Me.CBEgotist.Text = "Egotist" -Me.CBEgotist.UseVisualStyleBackColor = true -' -'CBTease -' -Me.CBTease.AutoSize = true -Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease -Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTease.ForeColor = System.Drawing.Color.Black -Me.CBTease.Location = New System.Drawing.Point(9, 98) -Me.CBTease.Name = "CBTease" -Me.CBTease.Size = New System.Drawing.Size(56, 17) -Me.CBTease.TabIndex = 152 -Me.CBTease.Text = "Tease" -Me.CBTease.UseVisualStyleBackColor = true -' -'GlitterAV -' -Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV.Name = "GlitterAV" -Me.GlitterAV.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV.TabIndex = 149 -Me.GlitterAV.TabStop = false -' -'GBGlitter1 -' -Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.CBGlitter1) -Me.GBGlitter1.Controls.Add(Me.TBGlitter1) -Me.GBGlitter1.Controls.Add(Me.GlitterAV1) -Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) -Me.GBGlitter1.Name = "GBGlitter1" -Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter1.TabIndex = 161 -Me.GBGlitter1.TabStop = false -Me.GBGlitter1.Text = "Contact 1" -' -'BtnContact1ImageDirClear -' -Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" -Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact1ImageDirClear.TabIndex = 181 -Me.BtnContact1ImageDirClear.Text = "Clear" -Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false -' -'BtnContact1ImageDir -' -Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" -Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact1ImageDir.TabIndex = 177 -Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" -Me.BtnContact1ImageDir.UseVisualStyleBackColor = false -' -'TbxContact1ImageDir -' -Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" -Me.TbxContact1ImageDir.ReadOnly = true -Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.TabIndex = 176 -Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir -' -'BTNGlitter1 -' -Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter1.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter1.Name = "BTNGlitter1" -Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter1.TabIndex = 175 -Me.BTNGlitter1.Text = "Choose Name Color" -Me.BTNGlitter1.UseVisualStyleBackColor = false -' -'LBLGlitterNC1 -' -Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color -Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC1.Name = "LBLGlitterNC1" -Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC1.TabIndex = 166 -Me.LBLGlitterNC1.Text = "Preview" -Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider1 -' -Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" -Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider1.TabIndex = 163 -Me.LBLGlitterSlider1.Text = "Response Frequency" -Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GlitterSlider1 -' -Me.GlitterSlider1.AutoSize = false -Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider1.LargeChange = 1 -Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider1.Maximum = 9 -Me.GlitterSlider1.Minimum = 1 -Me.GlitterSlider1.Name = "GlitterSlider1" -Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider1.TabIndex = 161 -Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider -' -'CBGlitter1 -' -Me.CBGlitter1.AutoSize = true -Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 -Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter1.ForeColor = System.Drawing.Color.Black -Me.CBGlitter1.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter1.Name = "CBGlitter1" -Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter1.TabIndex = 151 -Me.CBGlitter1.Text = "Enable This Contact" -Me.CBGlitter1.UseVisualStyleBackColor = true -' -'TBGlitter1 -' -Me.TBGlitter1.BackColor = System.Drawing.Color.White -Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter1.ForeColor = System.Drawing.Color.Black -Me.TBGlitter1.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter1.Name = "TBGlitter1" -Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter1.TabIndex = 49 -Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 -Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GlitterAV1 -' -Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV1.Name = "GlitterAV1" -Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV1.TabIndex = 149 -Me.GlitterAV1.TabStop = false -' -'GBGlitter3 -' -Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.CBGlitter3) -Me.GBGlitter3.Controls.Add(Me.TBGlitter3) -Me.GBGlitter3.Controls.Add(Me.GlitterAV3) -Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) -Me.GBGlitter3.Name = "GBGlitter3" -Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter3.TabIndex = 160 -Me.GBGlitter3.TabStop = false -Me.GBGlitter3.Text = "Contact 3" -' -'BtnContact3ImageDirClear -' -Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" -Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact3ImageDirClear.TabIndex = 180 -Me.BtnContact3ImageDirClear.Text = "Clear" -Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false -' -'BtnContact3ImageDir -' -Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" -Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact3ImageDir.TabIndex = 179 -Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" -Me.BtnContact3ImageDir.UseVisualStyleBackColor = false -' -'TbxContact3ImageDir -' -Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" -Me.TbxContact3ImageDir.ReadOnly = true -Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.TabIndex = 178 -Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir -' -'BTNGlitter3 -' -Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter3.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter3.Name = "BTNGlitter3" -Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter3.TabIndex = 175 -Me.BTNGlitter3.Text = "Choose Name Color" -Me.BTNGlitter3.UseVisualStyleBackColor = false -' -'LBLGlitterNC3 -' -Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color -Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC3.Name = "LBLGlitterNC3" -Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC3.TabIndex = 166 -Me.LBLGlitterNC3.Text = "Preview" -Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider3 -' -Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" -Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider3.TabIndex = 163 -Me.LBLGlitterSlider3.Text = "Response Frequency" -Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GlitterSlider3 -' -Me.GlitterSlider3.AutoSize = false -Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider3.LargeChange = 1 -Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider3.Maximum = 9 -Me.GlitterSlider3.Minimum = 1 -Me.GlitterSlider3.Name = "GlitterSlider3" -Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider3.TabIndex = 161 -Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider -' -'CBGlitter3 -' -Me.CBGlitter3.AutoSize = true -Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 -Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter3.ForeColor = System.Drawing.Color.Black -Me.CBGlitter3.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter3.Name = "CBGlitter3" -Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter3.TabIndex = 151 -Me.CBGlitter3.Text = "Enable This Contact" -Me.CBGlitter3.UseVisualStyleBackColor = true -' -'TBGlitter3 -' -Me.TBGlitter3.BackColor = System.Drawing.Color.White -Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter3.ForeColor = System.Drawing.Color.Black -Me.TBGlitter3.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter3.Name = "TBGlitter3" -Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter3.TabIndex = 49 -Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 -Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GlitterAV3 -' -Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV3.Name = "GlitterAV3" -Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV3.TabIndex = 149 -Me.GlitterAV3.TabStop = false -' -'GBGlitter2 -' -Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.CBGlitter2) -Me.GBGlitter2.Controls.Add(Me.TBGlitter2) -Me.GBGlitter2.Controls.Add(Me.GlitterAV2) -Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) -Me.GBGlitter2.Name = "GBGlitter2" -Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter2.TabIndex = 151 -Me.GBGlitter2.TabStop = false -Me.GBGlitter2.Text = "Contact 2" -' -'BtnContact2ImageDirClear -' -Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" -Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact2ImageDirClear.TabIndex = 181 -Me.BtnContact2ImageDirClear.Text = "Clear" -Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false -' -'BtnContact2ImageDir -' -Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" -Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact2ImageDir.TabIndex = 179 -Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" -Me.BtnContact2ImageDir.UseVisualStyleBackColor = false -' -'TbxContact2ImageDir -' -Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" -Me.TbxContact2ImageDir.ReadOnly = true -Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.TabIndex = 178 -Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir -' -'BTNGlitter2 -' -Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter2.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitter2.Name = "BTNGlitter2" -Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitter2.TabIndex = 167 -Me.BTNGlitter2.Text = "Choose Name Color" -Me.BTNGlitter2.UseVisualStyleBackColor = false -' -'LBLGlitterNC2 -' -Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color -Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNC2.Name = "LBLGlitterNC2" -Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNC2.TabIndex = 166 -Me.LBLGlitterNC2.Text = "Preview" -Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider2 -' -Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" -Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider2.TabIndex = 163 -Me.LBLGlitterSlider2.Text = "Response Frequency" -Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GlitterSlider2 -' -Me.GlitterSlider2.AutoSize = false -Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider2.LargeChange = 1 -Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider2.Maximum = 9 -Me.GlitterSlider2.Minimum = 1 -Me.GlitterSlider2.Name = "GlitterSlider2" -Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider2.TabIndex = 161 -Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider -' -'CBGlitter2 -' -Me.CBGlitter2.AutoSize = true -Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 -Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter2.ForeColor = System.Drawing.Color.Black -Me.CBGlitter2.Location = New System.Drawing.Point(79, 26) -Me.CBGlitter2.Name = "CBGlitter2" -Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter2.TabIndex = 151 -Me.CBGlitter2.Text = "Enable This Contact" -Me.CBGlitter2.UseVisualStyleBackColor = true -' -'TBGlitter2 -' -Me.TBGlitter2.BackColor = System.Drawing.Color.White -Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter2.ForeColor = System.Drawing.Color.Black -Me.TBGlitter2.Location = New System.Drawing.Point(79, 57) -Me.TBGlitter2.Name = "TBGlitter2" -Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter2.TabIndex = 49 -Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 -Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GlitterAV2 -' -Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) -Me.GlitterAV2.Name = "GlitterAV2" -Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV2.TabIndex = 149 -Me.GlitterAV2.TabStop = false -' -'TpGames -' -Me.TpGames.BackColor = System.Drawing.Color.LightGray -Me.TpGames.Controls.Add(Me.CBIncludeGifs) -Me.TpGames.Controls.Add(Me.LblCardsSetupNote) -Me.TpGames.Controls.Add(Me.CBGameSounds) -Me.TpGames.Controls.Add(Me.GbxCardsGold) -Me.TpGames.Controls.Add(Me.GbxCardsBackground) -Me.TpGames.Controls.Add(Me.GbxCardsBronze) -Me.TpGames.Controls.Add(Me.GbxCardsSilver) -Me.TpGames.Location = New System.Drawing.Point(4, 22) -Me.TpGames.Name = "TpGames" -Me.TpGames.Padding = New System.Windows.Forms.Padding(3) -Me.TpGames.Size = New System.Drawing.Size(700, 411) -Me.TpGames.TabIndex = 1 -Me.TpGames.Text = "Games" -' -'CBIncludeGifs -' -Me.CBIncludeGifs.AutoSize = true -Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs -Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) -Me.CBIncludeGifs.Name = "CBIncludeGifs" -Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) -Me.CBIncludeGifs.TabIndex = 5 -Me.CBIncludeGifs.Text = "Match Game Includes Gifs " -Me.CBIncludeGifs.UseVisualStyleBackColor = true -' -'LblCardsSetupNote -' -Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) -Me.LblCardsSetupNote.Name = "LblCardsSetupNote" -Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) -Me.LblCardsSetupNote.TabIndex = 4 -Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ - "!" -Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBGameSounds -' -Me.CBGameSounds.AutoSize = true -Me.CBGameSounds.Checked = true -Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBGameSounds.ForeColor = System.Drawing.Color.Black -Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) -Me.CBGameSounds.Name = "CBGameSounds" -Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) -Me.CBGameSounds.TabIndex = 6 -Me.CBGameSounds.Text = "Play Game Sounds" -Me.CBGameSounds.UseVisualStyleBackColor = true -' -'GbxCardsGold -' -Me.GbxCardsGold.Controls.Add(Me.GN6) -Me.GbxCardsGold.Controls.Add(Me.GP6) -Me.GbxCardsGold.Controls.Add(Me.GN2) -Me.GbxCardsGold.Controls.Add(Me.GP2) -Me.GbxCardsGold.Controls.Add(Me.GP5) -Me.GbxCardsGold.Controls.Add(Me.GN1) -Me.GbxCardsGold.Controls.Add(Me.GP1) -Me.GbxCardsGold.Controls.Add(Me.GN5) -Me.GbxCardsGold.Controls.Add(Me.GN3) -Me.GbxCardsGold.Controls.Add(Me.GP3) -Me.GbxCardsGold.Controls.Add(Me.GP4) -Me.GbxCardsGold.Controls.Add(Me.GN4) -Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) -Me.GbxCardsGold.Name = "GbxCardsGold" -Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) -Me.GbxCardsGold.TabIndex = 2 -Me.GbxCardsGold.TabStop = false -Me.GbxCardsGold.Text = "Gold Cards" -' -'GN6 -' -Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN6.Location = New System.Drawing.Point(86, 367) -Me.GN6.Name = "GN6" -Me.GN6.Size = New System.Drawing.Size(71, 20) -Me.GN6.TabIndex = 5 -Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 -Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP6 -' -Me.GP6.BackColor = System.Drawing.Color.Silver -Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 -Me.GP6.InitialImage = Nothing -Me.GP6.Location = New System.Drawing.Point(86, 268) -Me.GP6.Name = "GP6" -Me.GP6.Size = New System.Drawing.Size(71, 93) -Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP6.TabIndex = 17 -Me.GP6.TabStop = false -' -'GN2 -' -Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN2.Location = New System.Drawing.Point(86, 117) -Me.GN2.Name = "GN2" -Me.GN2.Size = New System.Drawing.Size(71, 20) -Me.GN2.TabIndex = 1 -Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 -Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP2 -' -Me.GP2.BackColor = System.Drawing.Color.Silver -Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 -Me.GP2.InitialImage = Nothing -Me.GP2.Location = New System.Drawing.Point(86, 17) -Me.GP2.Name = "GP2" -Me.GP2.Size = New System.Drawing.Size(71, 94) -Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP2.TabIndex = 9 -Me.GP2.TabStop = false -' -'GP5 -' -Me.GP5.BackColor = System.Drawing.Color.Silver -Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 -Me.GP5.InitialImage = Nothing -Me.GP5.Location = New System.Drawing.Point(9, 268) -Me.GP5.Name = "GP5" -Me.GP5.Size = New System.Drawing.Size(71, 93) -Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP5.TabIndex = 15 -Me.GP5.TabStop = false -' -'GN1 -' -Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN1.Location = New System.Drawing.Point(9, 117) -Me.GN1.Name = "GN1" -Me.GN1.Size = New System.Drawing.Size(71, 20) -Me.GN1.TabIndex = 0 -Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 -Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP1 -' -Me.GP1.BackColor = System.Drawing.Color.Silver -Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 -Me.GP1.InitialImage = Nothing -Me.GP1.Location = New System.Drawing.Point(9, 17) -Me.GP1.Name = "GP1" -Me.GP1.Size = New System.Drawing.Size(71, 94) -Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP1.TabIndex = 0 -Me.GP1.TabStop = false -' -'GN5 -' -Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN5.Location = New System.Drawing.Point(9, 367) -Me.GN5.Name = "GN5" -Me.GN5.Size = New System.Drawing.Size(71, 20) -Me.GN5.TabIndex = 4 -Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 -Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GN3 -' -Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN3.Location = New System.Drawing.Point(9, 242) -Me.GN3.Name = "GN3" -Me.GN3.Size = New System.Drawing.Size(71, 20) -Me.GN3.TabIndex = 2 -Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 -Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP3 -' -Me.GP3.BackColor = System.Drawing.Color.Silver -Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 -Me.GP3.InitialImage = Nothing -Me.GP3.Location = New System.Drawing.Point(9, 143) -Me.GP3.Name = "GP3" -Me.GP3.Size = New System.Drawing.Size(71, 93) -Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP3.TabIndex = 11 -Me.GP3.TabStop = false -' -'GP4 -' -Me.GP4.BackColor = System.Drawing.Color.Silver -Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 -Me.GP4.InitialImage = Nothing -Me.GP4.Location = New System.Drawing.Point(86, 143) -Me.GP4.Name = "GP4" -Me.GP4.Size = New System.Drawing.Size(71, 93) -Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP4.TabIndex = 13 -Me.GP4.TabStop = false -' -'GN4 -' -Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN4.Location = New System.Drawing.Point(86, 242) -Me.GN4.Name = "GN4" -Me.GN4.Size = New System.Drawing.Size(71, 20) -Me.GN4.TabIndex = 3 -Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 -Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GbxCardsBackground -' -Me.GbxCardsBackground.Controls.Add(Me.CardBack) -Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) -Me.GbxCardsBackground.Name = "GbxCardsBackground" -Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) -Me.GbxCardsBackground.TabIndex = 3 -Me.GbxCardsBackground.TabStop = false -Me.GbxCardsBackground.Text = "Card Background" -' -'CardBack -' -Me.CardBack.BackColor = System.Drawing.Color.Silver -Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack -Me.CardBack.InitialImage = Nothing -Me.CardBack.Location = New System.Drawing.Point(17, 28) -Me.CardBack.Name = "CardBack" -Me.CardBack.Size = New System.Drawing.Size(138, 179) -Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.CardBack.TabIndex = 18 -Me.CardBack.TabStop = false -' -'GbxCardsBronze -' -Me.GbxCardsBronze.Controls.Add(Me.BN6) -Me.GbxCardsBronze.Controls.Add(Me.BN3) -Me.GbxCardsBronze.Controls.Add(Me.BP3) -Me.GbxCardsBronze.Controls.Add(Me.BP6) -Me.GbxCardsBronze.Controls.Add(Me.BN2) -Me.GbxCardsBronze.Controls.Add(Me.BN5) -Me.GbxCardsBronze.Controls.Add(Me.BP5) -Me.GbxCardsBronze.Controls.Add(Me.BP2) -Me.GbxCardsBronze.Controls.Add(Me.BN1) -Me.GbxCardsBronze.Controls.Add(Me.BN4) -Me.GbxCardsBronze.Controls.Add(Me.BP4) -Me.GbxCardsBronze.Controls.Add(Me.BP1) -Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) -Me.GbxCardsBronze.Name = "GbxCardsBronze" -Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsBronze.TabIndex = 0 -Me.GbxCardsBronze.TabStop = false -Me.GbxCardsBronze.Text = "Bronze Cards" -' -'BN6 -' -Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN6.Location = New System.Drawing.Point(86, 368) -Me.BN6.Name = "BN6" -Me.BN6.Size = New System.Drawing.Size(71, 20) -Me.BN6.TabIndex = 5 -Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 -Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BN3 -' -Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN3.Location = New System.Drawing.Point(9, 243) -Me.BN3.Name = "BN3" -Me.BN3.Size = New System.Drawing.Size(71, 20) -Me.BN3.TabIndex = 2 -Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 -Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BP3 -' -Me.BP3.BackColor = System.Drawing.Color.Silver -Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 -Me.BP3.InitialImage = Nothing -Me.BP3.Location = New System.Drawing.Point(9, 144) -Me.BP3.Name = "BP3" -Me.BP3.Size = New System.Drawing.Size(71, 93) -Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP3.TabIndex = 11 -Me.BP3.TabStop = false -' -'BP6 -' -Me.BP6.BackColor = System.Drawing.Color.Silver -Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 -Me.BP6.InitialImage = Nothing -Me.BP6.Location = New System.Drawing.Point(86, 269) -Me.BP6.Name = "BP6" -Me.BP6.Size = New System.Drawing.Size(71, 93) -Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP6.TabIndex = 17 -Me.BP6.TabStop = false -' -'BN2 -' -Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN2.Location = New System.Drawing.Point(86, 118) -Me.BN2.Name = "BN2" -Me.BN2.Size = New System.Drawing.Size(71, 20) -Me.BN2.TabIndex = 1 -Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 -Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BN5 -' -Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN5.Location = New System.Drawing.Point(9, 368) -Me.BN5.Name = "BN5" -Me.BN5.Size = New System.Drawing.Size(71, 20) -Me.BN5.TabIndex = 4 -Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 -Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BP5 -' -Me.BP5.BackColor = System.Drawing.Color.Silver -Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 -Me.BP5.InitialImage = Nothing -Me.BP5.Location = New System.Drawing.Point(9, 269) -Me.BP5.Name = "BP5" -Me.BP5.Size = New System.Drawing.Size(71, 93) -Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP5.TabIndex = 15 -Me.BP5.TabStop = false -' -'BP2 -' -Me.BP2.BackColor = System.Drawing.Color.Silver -Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 -Me.BP2.InitialImage = Nothing -Me.BP2.Location = New System.Drawing.Point(86, 19) -Me.BP2.Name = "BP2" -Me.BP2.Size = New System.Drawing.Size(71, 93) -Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP2.TabIndex = 9 -Me.BP2.TabStop = false -' -'BN1 -' -Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN1.Location = New System.Drawing.Point(9, 118) -Me.BN1.Name = "BN1" -Me.BN1.Size = New System.Drawing.Size(71, 20) -Me.BN1.TabIndex = 0 -Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 -Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BN4 -' -Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN4.Location = New System.Drawing.Point(86, 243) -Me.BN4.Name = "BN4" -Me.BN4.Size = New System.Drawing.Size(71, 20) -Me.BN4.TabIndex = 3 -Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 -Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BP4 -' -Me.BP4.BackColor = System.Drawing.Color.Silver -Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 -Me.BP4.InitialImage = Nothing -Me.BP4.Location = New System.Drawing.Point(86, 144) -Me.BP4.Name = "BP4" -Me.BP4.Size = New System.Drawing.Size(71, 93) -Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP4.TabIndex = 13 -Me.BP4.TabStop = false -' -'BP1 -' -Me.BP1.BackColor = System.Drawing.Color.Silver -Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 -Me.BP1.InitialImage = Nothing -Me.BP1.Location = New System.Drawing.Point(9, 19) -Me.BP1.Name = "BP1" -Me.BP1.Size = New System.Drawing.Size(71, 93) -Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP1.TabIndex = 0 -Me.BP1.TabStop = false -Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 -' -'GbxCardsSilver -' -Me.GbxCardsSilver.Controls.Add(Me.SN6) -Me.GbxCardsSilver.Controls.Add(Me.SP6) -Me.GbxCardsSilver.Controls.Add(Me.SN2) -Me.GbxCardsSilver.Controls.Add(Me.SP2) -Me.GbxCardsSilver.Controls.Add(Me.SN1) -Me.GbxCardsSilver.Controls.Add(Me.SP5) -Me.GbxCardsSilver.Controls.Add(Me.SP1) -Me.GbxCardsSilver.Controls.Add(Me.SN5) -Me.GbxCardsSilver.Controls.Add(Me.SN3) -Me.GbxCardsSilver.Controls.Add(Me.SN4) -Me.GbxCardsSilver.Controls.Add(Me.SP3) -Me.GbxCardsSilver.Controls.Add(Me.SP4) -Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) -Me.GbxCardsSilver.Name = "GbxCardsSilver" -Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsSilver.TabIndex = 1 -Me.GbxCardsSilver.TabStop = false -Me.GbxCardsSilver.Text = "Silver Cards" -' -'SN6 -' -Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN6.Location = New System.Drawing.Point(86, 368) -Me.SN6.Name = "SN6" -Me.SN6.Size = New System.Drawing.Size(71, 20) -Me.SN6.TabIndex = 5 -Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 -Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP6 -' -Me.SP6.BackColor = System.Drawing.Color.Silver -Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 -Me.SP6.InitialImage = Nothing -Me.SP6.Location = New System.Drawing.Point(86, 269) -Me.SP6.Name = "SP6" -Me.SP6.Size = New System.Drawing.Size(71, 93) -Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP6.TabIndex = 17 -Me.SP6.TabStop = false -' -'SN2 -' -Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN2.Location = New System.Drawing.Point(86, 118) -Me.SN2.Name = "SN2" -Me.SN2.Size = New System.Drawing.Size(71, 20) -Me.SN2.TabIndex = 1 -Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 -Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP2 -' -Me.SP2.BackColor = System.Drawing.Color.Silver -Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 -Me.SP2.InitialImage = Nothing -Me.SP2.Location = New System.Drawing.Point(86, 19) -Me.SP2.Name = "SP2" -Me.SP2.Size = New System.Drawing.Size(71, 93) -Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP2.TabIndex = 9 -Me.SP2.TabStop = false -' -'SN1 -' -Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN1.Location = New System.Drawing.Point(9, 118) -Me.SN1.Name = "SN1" -Me.SN1.Size = New System.Drawing.Size(71, 20) -Me.SN1.TabIndex = 0 -Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 -Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP5 -' -Me.SP5.BackColor = System.Drawing.Color.Silver -Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 -Me.SP5.InitialImage = Nothing -Me.SP5.Location = New System.Drawing.Point(9, 269) -Me.SP5.Name = "SP5" -Me.SP5.Size = New System.Drawing.Size(71, 93) -Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP5.TabIndex = 15 -Me.SP5.TabStop = false -' -'SP1 -' -Me.SP1.BackColor = System.Drawing.Color.Silver -Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 -Me.SP1.InitialImage = Nothing -Me.SP1.Location = New System.Drawing.Point(9, 19) -Me.SP1.Name = "SP1" -Me.SP1.Size = New System.Drawing.Size(71, 93) -Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP1.TabIndex = 0 -Me.SP1.TabStop = false -' -'SN5 -' -Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN5.Location = New System.Drawing.Point(9, 368) -Me.SN5.Name = "SN5" -Me.SN5.Size = New System.Drawing.Size(71, 20) -Me.SN5.TabIndex = 4 -Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 -Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SN3 -' -Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN3.Location = New System.Drawing.Point(9, 243) -Me.SN3.Name = "SN3" -Me.SN3.Size = New System.Drawing.Size(71, 20) -Me.SN3.TabIndex = 2 -Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 -Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SN4 -' -Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN4.Location = New System.Drawing.Point(86, 243) -Me.SN4.Name = "SN4" -Me.SN4.Size = New System.Drawing.Size(71, 20) -Me.SN4.TabIndex = 3 -Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 -Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP3 -' -Me.SP3.BackColor = System.Drawing.Color.Silver -Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 -Me.SP3.InitialImage = Nothing -Me.SP3.Location = New System.Drawing.Point(9, 144) -Me.SP3.Name = "SP3" -Me.SP3.Size = New System.Drawing.Size(71, 93) -Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP3.TabIndex = 11 -Me.SP3.TabStop = false -' -'SP4 -' -Me.SP4.BackColor = System.Drawing.Color.Silver -Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 -Me.SP4.InitialImage = Nothing -Me.SP4.Location = New System.Drawing.Point(86, 144) -Me.SP4.Name = "SP4" -Me.SP4.Size = New System.Drawing.Size(71, 93) -Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP4.TabIndex = 13 -Me.SP4.TabStop = false -' -'TabPage6 -' -Me.TabPage6.BackColor = System.Drawing.Color.LightGray -Me.TabPage6.Controls.Add(Me.Panel10) -Me.TabPage6.Controls.Add(Me.Label107) -Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) -Me.TabPage6.Controls.Add(Me.Label18) -Me.TabPage6.Controls.Add(Me.PNLWishList) -Me.TabPage6.Location = New System.Drawing.Point(4, 22) -Me.TabPage6.Name = "TabPage6" -Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage6.Size = New System.Drawing.Size(700, 411) -Me.TabPage6.TabIndex = 2 -Me.TabPage6.Text = "Wishlist" -' -'Panel10 -' -Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel10.Controls.Add(Me.TBWishlistComment) -Me.Panel10.Controls.Add(Me.Label32) -Me.Panel10.Controls.Add(Me.TBWishlistItem) -Me.Panel10.Controls.Add(Me.radioGold) -Me.Panel10.Controls.Add(Me.Label42) -Me.Panel10.Controls.Add(Me.radioSilver) -Me.Panel10.Controls.Add(Me.TBWishlistURL) -Me.Panel10.Controls.Add(Me.NBWishlistCost) -Me.Panel10.Controls.Add(Me.Label48) -Me.Panel10.Controls.Add(Me.Label73) -Me.Panel10.Location = New System.Drawing.Point(38, 47) -Me.Panel10.Name = "Panel10" -Me.Panel10.Size = New System.Drawing.Size(252, 308) -Me.Panel10.TabIndex = 179 -' -'TBWishlistComment -' -Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) -Me.TBWishlistComment.Multiline = true -Me.TBWishlistComment.Name = "TBWishlistComment" -Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) -Me.TBWishlistComment.TabIndex = 172 -' -'Label32 -' -Me.Label32.AutoSize = true -Me.Label32.Location = New System.Drawing.Point(13, 4) -Me.Label32.Name = "Label32" -Me.Label32.Size = New System.Drawing.Size(58, 13) -Me.Label32.TabIndex = 167 -Me.Label32.Text = "Item Name" -' -'TBWishlistItem -' -Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) -Me.TBWishlistItem.Name = "TBWishlistItem" -Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistItem.TabIndex = 168 -' -'radioGold -' -Me.radioGold.AutoSize = true -Me.radioGold.Location = New System.Drawing.Point(167, 125) -Me.radioGold.Name = "radioGold" -Me.radioGold.Size = New System.Drawing.Size(47, 17) -Me.radioGold.TabIndex = 176 -Me.radioGold.Text = "Gold" -Me.radioGold.UseVisualStyleBackColor = true -' -'Label42 -' -Me.Label42.AutoSize = true -Me.Label42.Location = New System.Drawing.Point(13, 56) -Me.Label42.Name = "Label42" -Me.Label42.Size = New System.Drawing.Size(75, 13) -Me.Label42.TabIndex = 169 -Me.Label42.Text = "Item Image Url" -' -'radioSilver -' -Me.radioSilver.AutoSize = true -Me.radioSilver.Checked = true -Me.radioSilver.Location = New System.Drawing.Point(100, 125) -Me.radioSilver.Name = "radioSilver" -Me.radioSilver.Size = New System.Drawing.Size(51, 17) -Me.radioSilver.TabIndex = 175 -Me.radioSilver.TabStop = true -Me.radioSilver.Text = "Silver" -Me.radioSilver.UseVisualStyleBackColor = true -' -'TBWishlistURL -' -Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) -Me.TBWishlistURL.Name = "TBWishlistURL" -Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistURL.TabIndex = 170 -' -'NBWishlistCost -' -Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) -Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBWishlistCost.Name = "NBWishlistCost" -Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) -Me.NBWishlistCost.TabIndex = 174 -Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) -' -'Label48 -' -Me.Label48.AutoSize = true -Me.Label48.Location = New System.Drawing.Point(13, 157) -Me.Label48.Name = "Label48" -Me.Label48.Size = New System.Drawing.Size(74, 13) -Me.Label48.TabIndex = 171 -Me.Label48.Text = "Item Comment" -' -'Label73 -' -Me.Label73.AutoSize = true -Me.Label73.Location = New System.Drawing.Point(13, 108) -Me.Label73.Name = "Label73" -Me.Label73.Size = New System.Drawing.Size(51, 13) -Me.Label73.TabIndex = 173 -Me.Label73.Text = "Item Cost" -' -'Label107 -' -Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label107.Location = New System.Drawing.Point(38, 5) -Me.Label107.Name = "Label107" -Me.Label107.Size = New System.Drawing.Size(252, 47) -Me.Label107.TabIndex = 178 -Me.Label107.Text = "Use this page to create Wishlist files." -Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNWishlistCreate -' -Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) -Me.BTNWishlistCreate.Name = "BTNWishlistCreate" -Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) -Me.BTNWishlistCreate.TabIndex = 177 -Me.BTNWishlistCreate.Text = "Create Wishlist File" -Me.BTNWishlistCreate.UseVisualStyleBackColor = true -' -'Label18 -' -Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label18.Location = New System.Drawing.Point(409, 5) -Me.Label18.Name = "Label18" -Me.Label18.Size = New System.Drawing.Size(250, 23) -Me.Label18.TabIndex = 166 -Me.Label18.Text = "Preview" -Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'PNLWishList -' -Me.PNLWishList.BackColor = System.Drawing.Color.White -Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) -Me.PNLWishList.Controls.Add(Me.LBLWishListText) -Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) -Me.PNLWishList.Controls.Add(Me.WishlistCostGold) -Me.PNLWishList.Controls.Add(Me.LBLWishListName) -Me.PNLWishList.Controls.Add(Me.WishlistPreview) -Me.PNLWishList.Location = New System.Drawing.Point(407, 31) -Me.PNLWishList.Name = "PNLWishList" -Me.PNLWishList.Size = New System.Drawing.Size(250, 367) -Me.PNLWishList.TabIndex = 165 -' -'WishlistCostSilver -' -Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) -Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostSilver.Name = "WishlistCostSilver" -Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostSilver.TabIndex = 111 -Me.WishlistCostSilver.TabStop = false -' -'LBLWishListText -' -Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) -Me.LBLWishListText.Name = "LBLWishListText" -Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) -Me.LBLWishListText.TabIndex = 108 -' -'LBLWishlistCost -' -Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black -Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) -Me.LBLWishlistCost.Name = "LBLWishlistCost" -Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) -Me.LBLWishlistCost.TabIndex = 107 -Me.LBLWishlistCost.Text = "3" -Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'WishlistCostGold -' -Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) -Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostGold.Name = "WishlistCostGold" -Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostGold.TabIndex = 106 -Me.WishlistCostGold.TabStop = false -Me.WishlistCostGold.Visible = false -' -'LBLWishListName -' -Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue -Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) -Me.LBLWishListName.Name = "LBLWishListName" -Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) -Me.LBLWishListName.TabIndex = 104 -Me.LBLWishListName.Text = "Item Name Goes Here" -Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'WishlistPreview -' -Me.WishlistPreview.ImageLocation = "" -Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) -Me.WishlistPreview.Name = "WishlistPreview" -Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) -Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WishlistPreview.TabIndex = 101 -Me.WishlistPreview.TabStop = false -' -'TabPage26 -' -Me.TabPage26.BackColor = System.Drawing.Color.Silver -Me.TabPage26.Controls.Add(Me.Panel12) -Me.TabPage26.Location = New System.Drawing.Point(4, 22) -Me.TabPage26.Name = "TabPage26" -Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage26.Size = New System.Drawing.Size(720, 448) -Me.TabPage26.TabIndex = 19 -Me.TabPage26.Text = "Themes" -' -'Panel12 -' -Me.Panel12.BackColor = System.Drawing.Color.LightGray -Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel12.Controls.Add(Me.GroupBox9) -Me.Panel12.Controls.Add(Me.PictureBox10) -Me.Panel12.Controls.Add(Me.GroupBox5) -Me.Panel12.Controls.Add(Me.GroupBox11) -Me.Panel12.Controls.Add(Me.GroupBox1) -Me.Panel12.Controls.Add(Me.Label164) -Me.Panel12.Location = New System.Drawing.Point(6, 6) -Me.Panel12.Name = "Panel12" -Me.Panel12.Size = New System.Drawing.Size(708, 437) -Me.Panel12.TabIndex = 93 -' -'GroupBox9 -' -Me.GroupBox9.Controls.Add(Me.Button32) -Me.GroupBox9.Controls.Add(Me.Button31) -Me.GroupBox9.Location = New System.Drawing.Point(351, 231) -Me.GroupBox9.Name = "GroupBox9" -Me.GroupBox9.Size = New System.Drawing.Size(348, 94) -Me.GroupBox9.TabIndex = 152 -Me.GroupBox9.TabStop = false -Me.GroupBox9.Text = "System" -' -'Button32 -' -Me.Button32.BackColor = System.Drawing.Color.Transparent -Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big -Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button32.Location = New System.Drawing.Point(196, 24) -Me.Button32.Name = "Button32" -Me.Button32.Size = New System.Drawing.Size(135, 55) -Me.Button32.TabIndex = 55 -Me.Button32.Text = " Save Theme" -Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button32.UseVisualStyleBackColor = false -' -'Button31 -' -Me.Button31.BackColor = System.Drawing.Color.Transparent -Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big -Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button31.Location = New System.Drawing.Point(17, 24) -Me.Button31.Name = "Button31" -Me.Button31.Size = New System.Drawing.Size(135, 55) -Me.Button31.TabIndex = 54 -Me.Button31.Text = " Open Theme" -Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button31.UseVisualStyleBackColor = false -' -'PictureBox10 -' -Me.PictureBox10.BackColor = System.Drawing.Color.LightGray -Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox10.Location = New System.Drawing.Point(9, 6) -Me.PictureBox10.Name = "PictureBox10" -Me.PictureBox10.Size = New System.Drawing.Size(160, 19) -Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox10.TabIndex = 151 -Me.PictureBox10.TabStop = false -' -'GroupBox5 -' -Me.GroupBox5.Controls.Add(Me.CBTransparentTime) -Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) -Me.GroupBox5.Controls.Add(Me.Label137) -Me.GroupBox5.Controls.Add(Me.Label138) -Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) -Me.GroupBox5.Location = New System.Drawing.Point(9, 31) -Me.GroupBox5.Name = "GroupBox5" -Me.GroupBox5.Size = New System.Drawing.Size(336, 294) -Me.GroupBox5.TabIndex = 58 -Me.GroupBox5.TabStop = false -Me.GroupBox5.Text = "UI Colors" -' -'CBTransparentTime -' -Me.CBTransparentTime.AutoSize = true -Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) -Me.CBTransparentTime.Name = "CBTransparentTime" -Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) -Me.CBTransparentTime.TabIndex = 23 -Me.CBTransparentTime.Text = "Transparent Date/Time Window" -Me.CBTransparentTime.UseVisualStyleBackColor = true -' -'LBLDateTimeColor2 -' -Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor -Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) -Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" -Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateTimeColor2.TabIndex = 19 -' -'Label137 -' -Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label137.Location = New System.Drawing.Point(6, 227) -Me.Label137.Name = "Label137" -Me.Label137.Size = New System.Drawing.Size(175, 20) -Me.Label137.TabIndex = 20 -Me.Label137.Text = "Date/Time Window Color" -Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label138 -' -Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label138.Location = New System.Drawing.Point(6, 193) -Me.Label138.Name = "Label138" -Me.Label138.Size = New System.Drawing.Size(175, 20) -Me.Label138.TabIndex = 17 -Me.Label138.Text = "Date/Time Text Color" -Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLDateBackColor2 -' -Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor -Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) -Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateBackColor2.Name = "LBLDateBackColor2" -Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateBackColor2.TabIndex = 22 -' -'LBLTextColor -' -Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) -Me.LBLTextColor.Name = "LBLTextColor" -Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLTextColor.TabIndex = 7 -Me.LBLTextColor.Text = "Text Color" -Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLChatWindowColor2 -' -Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor -Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) -Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" -Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatWindowColor2.TabIndex = 12 -' -'LBLTextColor2 -' -Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor -Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) -Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLTextColor2.Name = "LBLTextColor2" -Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLTextColor2.TabIndex = 9 -' -'LBLChatTextColor -' -Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) -Me.LBLChatTextColor.Name = "LBLChatTextColor" -Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatTextColor.TabIndex = 14 -Me.LBLChatTextColor.Text = "Chat Text Color" -Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLBackColor2 -' -Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor -Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) -Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLBackColor2.Name = "LBLBackColor2" -Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLBackColor2.TabIndex = 3 -' -'LBLButtonColor -' -Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) -Me.LBLButtonColor.Name = "LBLButtonColor" -Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) -Me.LBLButtonColor.TabIndex = 4 -Me.LBLButtonColor.Text = "Button Color" -Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLChatWindowColor -' -Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) -Me.LBLChatWindowColor.Name = "LBLChatWindowColor" -Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatWindowColor.TabIndex = 10 -Me.LBLChatWindowColor.Text = "Chat Window Color" -Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLBackColor -' -Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) -Me.LBLBackColor.Name = "LBLBackColor" -Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) -Me.LBLBackColor.TabIndex = 0 -Me.LBLBackColor.Text = "Background Color" -Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLChatTextColor2 -' -Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor -Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) -Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatTextColor2.Name = "LBLChatTextColor2" -Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatTextColor2.TabIndex = 16 -' -'LBLButtonColor2 -' -Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor -Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) -Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLButtonColor2.Name = "LBLButtonColor2" -Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLButtonColor2.TabIndex = 6 -' -'GroupBox11 -' -Me.GroupBox11.BackColor = System.Drawing.Color.LightGray -Me.GroupBox11.Controls.Add(Me.Label144) -Me.GroupBox11.ForeColor = System.Drawing.Color.Black -Me.GroupBox11.Location = New System.Drawing.Point(7, 331) -Me.GroupBox11.Name = "GroupBox11" -Me.GroupBox11.Size = New System.Drawing.Size(692, 92) -Me.GroupBox11.TabIndex = 65 -Me.GroupBox11.TabStop = false -Me.GroupBox11.Text = "Description" -' -'Label144 -' -Me.Label144.BackColor = System.Drawing.Color.Transparent -Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label144.ForeColor = System.Drawing.Color.Black -Me.Label144.Location = New System.Drawing.Point(6, 16) -Me.Label144.Name = "Label144" -Me.Label144.Size = New System.Drawing.Size(680, 73) -Me.Label144.TabIndex = 62 -Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ - "nd opened from txt files." -Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox1 -' -Me.GroupBox1.Controls.Add(Me.CBFlipBack) -Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) -Me.GroupBox1.Controls.Add(Me.Button17) -Me.GroupBox1.Controls.Add(Me.CBStretchBack) -Me.GroupBox1.Controls.Add(Me.Button18) -Me.GroupBox1.Location = New System.Drawing.Point(351, 30) -Me.GroupBox1.Name = "GroupBox1" -Me.GroupBox1.Size = New System.Drawing.Size(348, 195) -Me.GroupBox1.TabIndex = 57 -Me.GroupBox1.TabStop = false -Me.GroupBox1.Text = "Background" -' -'CBFlipBack -' -Me.CBFlipBack.Enabled = false -Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) -Me.CBFlipBack.Name = "CBFlipBack" -Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) -Me.CBFlipBack.TabIndex = 4 -Me.CBFlipBack.Text = "Flip Background" -Me.CBFlipBack.UseVisualStyleBackColor = true -' -'PBBackgroundPreview -' -Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) -Me.PBBackgroundPreview.Name = "PBBackgroundPreview" -Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) -Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PBBackgroundPreview.TabIndex = 0 -Me.PBBackgroundPreview.TabStop = false -' -'Button17 -' -Me.Button17.BackColor = System.Drawing.Color.Transparent -Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load -Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button17.Location = New System.Drawing.Point(228, 36) -Me.Button17.Name = "Button17" -Me.Button17.Size = New System.Drawing.Size(103, 93) -Me.Button17.TabIndex = 1 -Me.Button17.UseVisualStyleBackColor = false -' -'CBStretchBack -' -Me.CBStretchBack.Checked = true -Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) -Me.CBStretchBack.Name = "CBStretchBack" -Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) -Me.CBStretchBack.TabIndex = 2 -Me.CBStretchBack.Text = "Stretch Background" -Me.CBStretchBack.UseVisualStyleBackColor = true -' -'Button18 -' -Me.Button18.Location = New System.Drawing.Point(228, 155) -Me.Button18.Name = "Button18" -Me.Button18.Size = New System.Drawing.Size(103, 31) -Me.Button18.TabIndex = 3 -Me.Button18.Text = "Clear" -Me.Button18.UseVisualStyleBackColor = true -' -'Label164 -' -Me.Label164.BackColor = System.Drawing.Color.Transparent -Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label164.ForeColor = System.Drawing.Color.Black -Me.Label164.Location = New System.Drawing.Point(7, 6) -Me.Label164.Name = "Label164" -Me.Label164.Size = New System.Drawing.Size(692, 21) -Me.Label164.TabIndex = 49 -Me.Label164.Text = "Theme Settings" -Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage4 -' -Me.TabPage4.BackColor = System.Drawing.Color.Silver -Me.TabPage4.Controls.Add(Me.Panel6) -Me.TabPage4.Location = New System.Drawing.Point(4, 22) -Me.TabPage4.Name = "TabPage4" -Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage4.Size = New System.Drawing.Size(720, 448) -Me.TabPage4.TabIndex = 3 -Me.TabPage4.Text = "Ranges" -' -'Panel6 -' -Me.Panel6.BackColor = System.Drawing.Color.LightGray -Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel6.Controls.Add(Me.GroupBox69) -Me.Panel6.Controls.Add(Me.GroupBox68) -Me.Panel6.Controls.Add(Me.GroupBox67) -Me.Panel6.Controls.Add(Me.GroupBox10) -Me.Panel6.Controls.Add(Me.GroupBox57) -Me.Panel6.Controls.Add(Me.GBRangeRuinChance) -Me.Panel6.Controls.Add(Me.GroupBox17) -Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) -Me.Panel6.Controls.Add(Me.PictureBox8) -Me.Panel6.Controls.Add(Me.Label38) -Me.Panel6.Location = New System.Drawing.Point(6, 6) -Me.Panel6.Name = "Panel6" -Me.Panel6.Size = New System.Drawing.Size(708, 437) -Me.Panel6.TabIndex = 91 -' -'GroupBox69 -' -Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) -Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) -Me.GroupBox69.Controls.Add(Me.TimedWriting) -Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) -Me.GroupBox69.Location = New System.Drawing.Point(236, 344) -Me.GroupBox69.Name = "GroupBox69" -Me.GroupBox69.Size = New System.Drawing.Size(166, 83) -Me.GroupBox69.TabIndex = 173 -Me.GroupBox69.TabStop = false -Me.GroupBox69.Text = "Writing Tasks" -' -'TypesSpeedVal -' -Me.TypesSpeedVal.AutoSize = true -Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) -Me.TypesSpeedVal.Name = "TypesSpeedVal" -Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) -Me.TypesSpeedVal.TabIndex = 0 -Me.TypesSpeedVal.Text = "10" -Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'TypeSpeedLabel -' -Me.TypeSpeedLabel.AutoSize = true -Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) -Me.TypeSpeedLabel.Name = "TypeSpeedLabel" -Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) -Me.TypeSpeedLabel.TabIndex = 2 -Me.TypeSpeedLabel.Text = "Typing Speed:" -' -'TimedWriting -' -Me.TimedWriting.AutoSize = true -Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting -Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TimedWriting.Location = New System.Drawing.Point(9, 19) -Me.TimedWriting.Name = "TimedWriting" -Me.TimedWriting.Size = New System.Drawing.Size(123, 17) -Me.TimedWriting.TabIndex = 1 -Me.TimedWriting.Text = "Timed Writing Tasks" -Me.TimedWriting.UseVisualStyleBackColor = true -' -'TypeSpeedSlider -' -Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) -Me.TypeSpeedSlider.Maximum = 100 -Me.TypeSpeedSlider.Minimum = 33 -Me.TypeSpeedSlider.Name = "TypeSpeedSlider" -Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) -Me.TypeSpeedSlider.TabIndex = 3 -Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed -' -'GroupBox68 -' -Me.GroupBox68.Controls.Add(Me.NBTasksMax) -Me.GroupBox68.Controls.Add(Me.NBTasksMin) -Me.GroupBox68.Controls.Add(Me.Label165) -Me.GroupBox68.Controls.Add(Me.Label166) -Me.GroupBox68.Location = New System.Drawing.Point(236, 287) -Me.GroupBox68.Name = "GroupBox68" -Me.GroupBox68.Size = New System.Drawing.Size(166, 51) -Me.GroupBox68.TabIndex = 172 -Me.GroupBox68.TabStop = false -Me.GroupBox68.Text = "Session Tasks" -' -'NBTasksMax -' -Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) -Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) -Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTasksMax.Name = "NBTasksMax" -Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMax.TabIndex = 187 -Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) -' -'NBTasksMin -' -Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) -Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBTasksMin.Name = "NBTasksMin" -Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMin.TabIndex = 186 -Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label165 -' -Me.Label165.BackColor = System.Drawing.Color.Transparent -Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label165.ForeColor = System.Drawing.Color.Black -Me.Label165.Location = New System.Drawing.Point(100, 20) -Me.Label165.Name = "Label165" -Me.Label165.Size = New System.Drawing.Size(10, 17) -Me.Label165.TabIndex = 185 -Me.Label165.Text = "-" -Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label166 -' -Me.Label166.BackColor = System.Drawing.Color.Transparent -Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label166.ForeColor = System.Drawing.Color.Black -Me.Label166.Location = New System.Drawing.Point(6, 21) -Me.Label166.Name = "Label166" -Me.Label166.Size = New System.Drawing.Size(49, 17) -Me.Label166.TabIndex = 188 -Me.Label166.Text = "Amount:" -Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox67 -' -Me.GroupBox67.Controls.Add(Me.Label161) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) -Me.GroupBox67.Controls.Add(Me.Label162) -Me.GroupBox67.Controls.Add(Me.Label163) -Me.GroupBox67.Controls.Add(Me.Label158) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) -Me.GroupBox67.Controls.Add(Me.Label159) -Me.GroupBox67.Controls.Add(Me.Label160) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) -Me.GroupBox67.Controls.Add(Me.Label119) -Me.GroupBox67.Controls.Add(Me.Label157) -Me.GroupBox67.Controls.Add(Me.Label151) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) -Me.GroupBox67.Controls.Add(Me.Label154) -Me.GroupBox67.Controls.Add(Me.Label155) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) -Me.GroupBox67.Controls.Add(Me.Label146) -Me.GroupBox67.Controls.Add(Me.Label149) -Me.GroupBox67.Location = New System.Drawing.Point(408, 288) -Me.GroupBox67.Name = "GroupBox67" -Me.GroupBox67.Size = New System.Drawing.Size(291, 139) -Me.GroupBox67.TabIndex = 171 -Me.GroupBox67.TabStop = false -Me.GroupBox67.Text = "Letter Tasks" -' -'Label161 -' -Me.Label161.BackColor = System.Drawing.Color.Transparent -Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label161.ForeColor = System.Drawing.Color.Black -Me.Label161.Location = New System.Drawing.Point(233, 110) -Me.Label161.Name = "Label161" -Me.Label161.Size = New System.Drawing.Size(50, 17) -Me.Label161.TabIndex = 204 -Me.Label161.Text = "minutes" -Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskCBTTimeMax -' -Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) -Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" -Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMax.TabIndex = 203 -Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax -' -'NBTaskCBTTimeMin -' -Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) -Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" -Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMin.TabIndex = 202 -Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin -' -'Label162 -' -Me.Label162.BackColor = System.Drawing.Color.Transparent -Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label162.ForeColor = System.Drawing.Color.Black -Me.Label162.Location = New System.Drawing.Point(167, 110) -Me.Label162.Name = "Label162" -Me.Label162.Size = New System.Drawing.Size(10, 17) -Me.Label162.TabIndex = 201 -Me.Label162.Text = "-" -Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label163 -' -Me.Label163.BackColor = System.Drawing.Color.Transparent -Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label163.ForeColor = System.Drawing.Color.Black -Me.Label163.Location = New System.Drawing.Point(12, 111) -Me.Label163.Name = "Label163" -Me.Label163.Size = New System.Drawing.Size(151, 17) -Me.Label163.TabIndex = 200 -Me.Label163.Text = "CBT Time:" -Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label158 -' -Me.Label158.BackColor = System.Drawing.Color.Transparent -Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label158.ForeColor = System.Drawing.Color.Black -Me.Label158.Location = New System.Drawing.Point(233, 87) -Me.Label158.Name = "Label158" -Me.Label158.Size = New System.Drawing.Size(50, 17) -Me.Label158.TabIndex = 199 -Me.Label158.Text = "minutes" -Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskEdgeHoldTimeMax -' -Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) -Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" -Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 -Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax -' -'NBTaskEdgeHoldTimeMin -' -Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) -Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" -Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 -Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin -' -'Label159 -' -Me.Label159.BackColor = System.Drawing.Color.Transparent -Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label159.ForeColor = System.Drawing.Color.Black -Me.Label159.Location = New System.Drawing.Point(167, 87) -Me.Label159.Name = "Label159" -Me.Label159.Size = New System.Drawing.Size(10, 17) -Me.Label159.TabIndex = 196 -Me.Label159.Text = "-" -Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label160 -' -Me.Label160.BackColor = System.Drawing.Color.Transparent -Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label160.ForeColor = System.Drawing.Color.Black -Me.Label160.Location = New System.Drawing.Point(12, 88) -Me.Label160.Name = "Label160" -Me.Label160.Size = New System.Drawing.Size(151, 17) -Me.Label160.TabIndex = 195 -Me.Label160.Text = "Edge Hold Time:" -Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskEdgesMax -' -Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) -Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" -Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMax.TabIndex = 194 -Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax -' -'NBTaskEdgesMin -' -Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) -Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" -Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMin.TabIndex = 193 -Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin -' -'Label119 -' -Me.Label119.BackColor = System.Drawing.Color.Transparent -Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label119.ForeColor = System.Drawing.Color.Black -Me.Label119.Location = New System.Drawing.Point(167, 64) -Me.Label119.Name = "Label119" -Me.Label119.Size = New System.Drawing.Size(10, 17) -Me.Label119.TabIndex = 192 -Me.Label119.Text = "-" -Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label157 -' -Me.Label157.BackColor = System.Drawing.Color.Transparent -Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label157.ForeColor = System.Drawing.Color.Black -Me.Label157.Location = New System.Drawing.Point(12, 65) -Me.Label157.Name = "Label157" -Me.Label157.Size = New System.Drawing.Size(151, 17) -Me.Label157.TabIndex = 191 -Me.Label157.Text = "Edges:" -Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label151 -' -Me.Label151.BackColor = System.Drawing.Color.Transparent -Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label151.ForeColor = System.Drawing.Color.Black -Me.Label151.Location = New System.Drawing.Point(233, 41) -Me.Label151.Name = "Label151" -Me.Label151.Size = New System.Drawing.Size(50, 17) -Me.Label151.TabIndex = 190 -Me.Label151.Text = "minutes" -Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskStrokingTimeMax -' -Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) -Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" -Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMax.TabIndex = 189 -Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax -' -'NBTaskStrokingTimeMin -' -Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) -Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" -Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMin.TabIndex = 188 -Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin -' -'Label154 -' -Me.Label154.BackColor = System.Drawing.Color.Transparent -Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label154.ForeColor = System.Drawing.Color.Black -Me.Label154.Location = New System.Drawing.Point(167, 41) -Me.Label154.Name = "Label154" -Me.Label154.Size = New System.Drawing.Size(10, 17) -Me.Label154.TabIndex = 187 -Me.Label154.Text = "-" -Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label155 -' -Me.Label155.BackColor = System.Drawing.Color.Transparent -Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label155.ForeColor = System.Drawing.Color.Black -Me.Label155.Location = New System.Drawing.Point(12, 42) -Me.Label155.Name = "Label155" -Me.Label155.Size = New System.Drawing.Size(151, 17) -Me.Label155.TabIndex = 186 -Me.Label155.Text = "Stroking Time:" -Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskStrokesMax -' -Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) -Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" -Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMax.TabIndex = 184 -Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax -' -'NBTaskStrokesMin -' -Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) -Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" -Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMin.TabIndex = 183 -Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin -' -'Label146 -' -Me.Label146.BackColor = System.Drawing.Color.Transparent -Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label146.ForeColor = System.Drawing.Color.Black -Me.Label146.Location = New System.Drawing.Point(167, 18) -Me.Label146.Name = "Label146" -Me.Label146.Size = New System.Drawing.Size(10, 17) -Me.Label146.TabIndex = 182 -Me.Label146.Text = "-" -Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label149 -' -Me.Label149.BackColor = System.Drawing.Color.Transparent -Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label149.ForeColor = System.Drawing.Color.Black -Me.Label149.Location = New System.Drawing.Point(12, 19) -Me.Label149.Name = "Label149" -Me.Label149.Size = New System.Drawing.Size(151, 17) -Me.Label149.TabIndex = 181 -Me.Label149.Text = "Strokes:" -Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox10 -' -Me.GroupBox10.Controls.Add(Me.Label112) -Me.GroupBox10.Controls.Add(Me.NBNextImageChance) -Me.GroupBox10.Controls.Add(Me.Label6) -Me.GroupBox10.Location = New System.Drawing.Point(408, 31) -Me.GroupBox10.Name = "GroupBox10" -Me.GroupBox10.Size = New System.Drawing.Size(291, 54) -Me.GroupBox10.TabIndex = 170 -Me.GroupBox10.TabStop = false -Me.GroupBox10.Text = "Tease Slideshow" -' -'Label112 -' -Me.Label112.BackColor = System.Drawing.Color.Transparent -Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label112.ForeColor = System.Drawing.Color.Black -Me.Label112.Location = New System.Drawing.Point(233, 21) -Me.Label112.Name = "Label112" -Me.Label112.Size = New System.Drawing.Size(50, 17) -Me.Label112.TabIndex = 180 -Me.Label112.Text = "percent" -Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBNextImageChance -' -Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) -Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBNextImageChance.Name = "NBNextImageChance" -Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) -Me.NBNextImageChance.TabIndex = 179 -Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label6 -' -Me.Label6.BackColor = System.Drawing.Color.Transparent -Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label6.ForeColor = System.Drawing.Color.Black -Me.Label6.Location = New System.Drawing.Point(9, 21) -Me.Label6.Name = "Label6" -Me.Label6.Size = New System.Drawing.Size(151, 17) -Me.Label6.TabIndex = 154 -Me.Label6.Text = "Image Next/Previous Chance:" -Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox57 -' -Me.GroupBox57.Controls.Add(Me.Label139) -Me.GroupBox57.Controls.Add(Me.NBTauntEdging) -Me.GroupBox57.Controls.Add(Me.LBLVtf) -Me.GroupBox57.Controls.Add(Me.LBLStf) -Me.GroupBox57.Controls.Add(Me.SliderSTF) -Me.GroupBox57.Controls.Add(Me.TauntSlider) -Me.GroupBox57.Controls.Add(Me.Label106) -Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) -Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) -Me.GroupBox57.Controls.Add(Me.Label103) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) -Me.GroupBox57.Controls.Add(Me.Label105) -Me.GroupBox57.Controls.Add(Me.Label101) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) -Me.GroupBox57.Controls.Add(Me.Label102) -Me.GroupBox57.Controls.Add(Me.Label97) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) -Me.GroupBox57.Controls.Add(Me.Label99) -Me.GroupBox57.Controls.Add(Me.Label96) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) -Me.GroupBox57.Controls.Add(Me.Label95) -Me.GroupBox57.Controls.Add(Me.Label49) -Me.GroupBox57.Controls.Add(Me.Label141) -Me.GroupBox57.Location = New System.Drawing.Point(7, 30) -Me.GroupBox57.Name = "GroupBox57" -Me.GroupBox57.Size = New System.Drawing.Size(223, 308) -Me.GroupBox57.TabIndex = 169 -Me.GroupBox57.TabStop = false -Me.GroupBox57.Text = "Tease" -' -'Label139 -' -Me.Label139.BackColor = System.Drawing.Color.Transparent -Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label139.ForeColor = System.Drawing.Color.Black -Me.Label139.Location = New System.Drawing.Point(175, 171) -Me.Label139.Name = "Label139" -Me.Label139.Size = New System.Drawing.Size(50, 17) -Me.Label139.TabIndex = 184 -Me.Label139.Text = "percent" -Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTauntEdging -' -Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) -Me.NBTauntEdging.Name = "NBTauntEdging" -Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) -Me.NBTauntEdging.TabIndex = 188 -Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) -' -'LBLVtf -' -Me.LBLVtf.BackColor = System.Drawing.Color.Transparent -Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLVtf.ForeColor = System.Drawing.Color.Black -Me.LBLVtf.Location = New System.Drawing.Point(128, 261) -Me.LBLVtf.Name = "LBLVtf" -Me.LBLVtf.Size = New System.Drawing.Size(87, 17) -Me.LBLVtf.TabIndex = 187 -Me.LBLVtf.Text = "Normal" -Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLStf -' -Me.LBLStf.BackColor = System.Drawing.Color.Transparent -Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLStf.ForeColor = System.Drawing.Color.Black -Me.LBLStf.Location = New System.Drawing.Point(130, 220) -Me.LBLStf.Name = "LBLStf" -Me.LBLStf.Size = New System.Drawing.Size(87, 17) -Me.LBLStf.TabIndex = 165 -Me.LBLStf.Text = "Normal" -Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'SliderSTF -' -Me.SliderSTF.AutoSize = false -Me.SliderSTF.LargeChange = 1 -Me.SliderSTF.Location = New System.Drawing.Point(130, 199) -Me.SliderSTF.Maximum = 5 -Me.SliderSTF.Minimum = 1 -Me.SliderSTF.Name = "SliderSTF" -Me.SliderSTF.Size = New System.Drawing.Size(87, 25) -Me.SliderSTF.TabIndex = 163 -Me.SliderSTF.Value = 3 -' -'TauntSlider -' -Me.TauntSlider.AutoSize = false -Me.TauntSlider.LargeChange = 1 -Me.TauntSlider.Location = New System.Drawing.Point(130, 240) -Me.TauntSlider.Maximum = 9 -Me.TauntSlider.Minimum = 1 -Me.TauntSlider.Name = "TauntSlider" -Me.TauntSlider.Size = New System.Drawing.Size(87, 25) -Me.TauntSlider.TabIndex = 161 -Me.TauntSlider.Value = 4 -' -'Label106 -' -Me.Label106.BackColor = System.Drawing.Color.Transparent -Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label106.ForeColor = System.Drawing.Color.Black -Me.Label106.Location = New System.Drawing.Point(6, 243) -Me.Label106.Name = "Label106" -Me.Label106.Size = New System.Drawing.Size(123, 17) -Me.Label106.TabIndex = 186 -Me.Label106.Text = "Video Taunt Frequency:" -Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBTauntCycleDD -' -Me.CBTauntCycleDD.AutoSize = true -Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black -Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) -Me.CBTauntCycleDD.Name = "CBTauntCycleDD" -Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) -Me.CBTauntCycleDD.TabIndex = 185 -Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" -Me.CBTauntCycleDD.UseVisualStyleBackColor = true -' -'CBTeaseLengthDD -' -Me.CBTeaseLengthDD.AutoSize = true -Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black -Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) -Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" -Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) -Me.CBTeaseLengthDD.TabIndex = 184 -Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" -Me.CBTeaseLengthDD.UseVisualStyleBackColor = true -' -'Label103 -' -Me.Label103.BackColor = System.Drawing.Color.Transparent -Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label103.ForeColor = System.Drawing.Color.Black -Me.Label103.Location = New System.Drawing.Point(175, 117) -Me.Label103.Name = "Label103" -Me.Label103.Size = New System.Drawing.Size(50, 17) -Me.Label103.TabIndex = 183 -Me.Label103.Text = "minutes" -Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTauntCycleMax -' -Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) -Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) -Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBTauntCycleMax.Name = "NBTauntCycleMax" -Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMax.TabIndex = 182 -Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) -' -'Label105 -' -Me.Label105.BackColor = System.Drawing.Color.Transparent -Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label105.ForeColor = System.Drawing.Color.Black -Me.Label105.Location = New System.Drawing.Point(6, 117) -Me.Label105.Name = "Label105" -Me.Label105.Size = New System.Drawing.Size(123, 17) -Me.Label105.TabIndex = 181 -Me.Label105.Text = "Taunt Cycle Maximum:" -Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label101 -' -Me.Label101.BackColor = System.Drawing.Color.Transparent -Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label101.ForeColor = System.Drawing.Color.Black -Me.Label101.Location = New System.Drawing.Point(175, 93) -Me.Label101.Name = "Label101" -Me.Label101.Size = New System.Drawing.Size(50, 17) -Me.Label101.TabIndex = 180 -Me.Label101.Text = "minutes" -Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTauntCycleMin -' -Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) -Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTauntCycleMin.Name = "NBTauntCycleMin" -Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMin.TabIndex = 179 -Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) -' -'Label102 -' -Me.Label102.BackColor = System.Drawing.Color.Transparent -Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label102.ForeColor = System.Drawing.Color.Black -Me.Label102.Location = New System.Drawing.Point(6, 93) -Me.Label102.Name = "Label102" -Me.Label102.Size = New System.Drawing.Size(123, 17) -Me.Label102.TabIndex = 178 -Me.Label102.Text = "Taunt Cycle Minimum:" -Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label97 -' -Me.Label97.BackColor = System.Drawing.Color.Transparent -Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label97.ForeColor = System.Drawing.Color.Black -Me.Label97.Location = New System.Drawing.Point(175, 46) -Me.Label97.Name = "Label97" -Me.Label97.Size = New System.Drawing.Size(50, 17) -Me.Label97.TabIndex = 177 -Me.Label97.Text = "minutes" -Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTeaseLengthMax -' -Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) -Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) -Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" -Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMax.TabIndex = 176 -Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label99 -' -Me.Label99.BackColor = System.Drawing.Color.Transparent -Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label99.ForeColor = System.Drawing.Color.Black -Me.Label99.Location = New System.Drawing.Point(6, 46) -Me.Label99.Name = "Label99" -Me.Label99.Size = New System.Drawing.Size(123, 17) -Me.Label99.TabIndex = 175 -Me.Label99.Text = "Tease Length Maximum:" -Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label96 -' -Me.Label96.BackColor = System.Drawing.Color.Transparent -Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label96.ForeColor = System.Drawing.Color.Black -Me.Label96.Location = New System.Drawing.Point(175, 20) -Me.Label96.Name = "Label96" -Me.Label96.Size = New System.Drawing.Size(50, 17) -Me.Label96.TabIndex = 174 -Me.Label96.Text = "minutes" -Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTeaseLengthMin -' -Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) -Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) -Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" -Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMin.TabIndex = 169 -Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) -' -'Label95 -' -Me.Label95.BackColor = System.Drawing.Color.Transparent -Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label95.ForeColor = System.Drawing.Color.Black -Me.Label95.Location = New System.Drawing.Point(6, 20) -Me.Label95.Name = "Label95" -Me.Label95.Size = New System.Drawing.Size(123, 17) -Me.Label95.TabIndex = 166 -Me.Label95.Text = "Tease Length Minimum:" -Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label49 -' -Me.Label49.BackColor = System.Drawing.Color.Transparent -Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label49.ForeColor = System.Drawing.Color.Black -Me.Label49.Location = New System.Drawing.Point(6, 207) -Me.Label49.Name = "Label49" -Me.Label49.Size = New System.Drawing.Size(132, 17) -Me.Label49.TabIndex = 164 -Me.Label49.Text = "Stroke Taunt Frequency:" -Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label141 -' -Me.Label141.BackColor = System.Drawing.Color.Transparent -Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label141.ForeColor = System.Drawing.Color.Black -Me.Label141.Location = New System.Drawing.Point(6, 163) -Me.Label141.Name = "Label141" -Me.Label141.Size = New System.Drawing.Size(141, 32) -Me.Label141.TabIndex = 189 -Me.Label141.Text = "Edging Ends Taunts:" -Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GBRangeRuinChance -' -Me.GBRangeRuinChance.Controls.Add(Me.Label90) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) -Me.GBRangeRuinChance.Controls.Add(Me.Label91) -Me.GBRangeRuinChance.Controls.Add(Me.Label92) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) -Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) -Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) -Me.GBRangeRuinChance.Name = "GBRangeRuinChance" -Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeRuinChance.TabIndex = 168 -Me.GBRangeRuinChance.TabStop = false -Me.GBRangeRuinChance.Text = "Ruin Chance" -' -'Label90 -' -Me.Label90.BackColor = System.Drawing.Color.Transparent -Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label90.ForeColor = System.Drawing.Color.Black -Me.Label90.Location = New System.Drawing.Point(6, 94) -Me.Label90.Name = "Label90" -Me.Label90.Size = New System.Drawing.Size(83, 17) -Me.Label90.TabIndex = 173 -Me.Label90.Text = "Rarely Ruins:" -Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBRuinSometimes -' -Me.NBRuinSometimes.Enabled = false -Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinSometimes.Name = "NBRuinSometimes" -Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBRuinSometimes.TabIndex = 169 -Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) -' -'Label91 -' -Me.Label91.BackColor = System.Drawing.Color.Transparent -Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label91.ForeColor = System.Drawing.Color.Black -Me.Label91.Location = New System.Drawing.Point(6, 68) -Me.Label91.Name = "Label91" -Me.Label91.Size = New System.Drawing.Size(102, 17) -Me.Label91.TabIndex = 172 -Me.Label91.Text = "Sometimes Ruins:" -Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label92 -' -Me.Label92.BackColor = System.Drawing.Color.Transparent -Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label92.ForeColor = System.Drawing.Color.Black -Me.Label92.Location = New System.Drawing.Point(6, 42) -Me.Label92.Name = "Label92" -Me.Label92.Size = New System.Drawing.Size(72, 17) -Me.Label92.TabIndex = 171 -Me.Label92.Text = "Often Ruins:" -Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBRuinRarely -' -Me.NBRuinRarely.Enabled = false -Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) -Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinRarely.Name = "NBRuinRarely" -Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) -Me.NBRuinRarely.TabIndex = 170 -Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) -' -'NBRuinOften -' -Me.NBRuinOften.Enabled = false -Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) -Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinOften.Name = "NBRuinOften" -Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) -Me.NBRuinOften.TabIndex = 168 -Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) -' -'CBRangeRuin -' -Me.CBRangeRuin.AutoSize = true -Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black -Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) -Me.CBRangeRuin.Name = "CBRangeRuin" -Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) -Me.CBRangeRuin.TabIndex = 159 -Me.CBRangeRuin.Text = "Domme Decide" -Me.CBRangeRuin.UseVisualStyleBackColor = true -' -'GroupBox17 -' -Me.GroupBox17.Controls.Add(Me.GroupBox19) -Me.GroupBox17.Controls.Add(Me.GroupBox18) -Me.GroupBox17.Location = New System.Drawing.Point(408, 91) -Me.GroupBox17.Name = "GroupBox17" -Me.GroupBox17.Size = New System.Drawing.Size(291, 190) -Me.GroupBox17.TabIndex = 0 -Me.GroupBox17.TabStop = false -Me.GroupBox17.Text = "Video Teases" -' -'GroupBox19 -' -Me.GroupBox19.Controls.Add(Me.Label110) -Me.GroupBox19.Controls.Add(Me.Label111) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) -Me.GroupBox19.Controls.Add(Me.NBRedLightMax) -Me.GroupBox19.Controls.Add(Me.Label26) -Me.GroupBox19.Controls.Add(Me.NBRedLightMin) -Me.GroupBox19.Controls.Add(Me.Label28) -Me.GroupBox19.Controls.Add(Me.Label27) -Me.GroupBox19.Controls.Add(Me.Label29) -Me.GroupBox19.Location = New System.Drawing.Point(6, 110) -Me.GroupBox19.Name = "GroupBox19" -Me.GroupBox19.Size = New System.Drawing.Size(279, 66) -Me.GroupBox19.TabIndex = 2 -Me.GroupBox19.TabStop = false -Me.GroupBox19.Text = "Red Light, Green Light" -' -'Label110 -' -Me.Label110.BackColor = System.Drawing.Color.Transparent -Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label110.ForeColor = System.Drawing.Color.Black -Me.Label110.Location = New System.Drawing.Point(227, 39) -Me.Label110.Name = "Label110" -Me.Label110.Size = New System.Drawing.Size(50, 17) -Me.Label110.TabIndex = 181 -Me.Label110.Text = "seconds" -Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label111 -' -Me.Label111.BackColor = System.Drawing.Color.Transparent -Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label111.ForeColor = System.Drawing.Color.Black -Me.Label111.Location = New System.Drawing.Point(227, 16) -Me.Label111.Name = "Label111" -Me.Label111.Size = New System.Drawing.Size(50, 17) -Me.Label111.TabIndex = 180 -Me.Label111.Text = "seconds" -Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBGreenLightMax -' -Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) -Me.NBGreenLightMax.Name = "NBGreenLightMax" -Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMax.TabIndex = 156 -Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'NBGreenLightMin -' -Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) -Me.NBGreenLightMin.Name = "NBGreenLightMin" -Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMin.TabIndex = 155 -Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) -' -'NBRedLightMax -' -Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) -Me.NBRedLightMax.Name = "NBRedLightMax" -Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMax.TabIndex = 152 -Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) -' -'Label26 -' -Me.Label26.BackColor = System.Drawing.Color.Transparent -Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label26.ForeColor = System.Drawing.Color.Black -Me.Label26.Location = New System.Drawing.Point(161, 38) -Me.Label26.Name = "Label26" -Me.Label26.Size = New System.Drawing.Size(10, 17) -Me.Label26.TabIndex = 154 -Me.Label26.Text = "-" -Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBRedLightMin -' -Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) -Me.NBRedLightMin.Name = "NBRedLightMin" -Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMin.TabIndex = 151 -Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) -' -'Label28 -' -Me.Label28.BackColor = System.Drawing.Color.Transparent -Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label28.ForeColor = System.Drawing.Color.Black -Me.Label28.Location = New System.Drawing.Point(161, 15) -Me.Label28.Name = "Label28" -Me.Label28.Size = New System.Drawing.Size(10, 17) -Me.Label28.TabIndex = 150 -Me.Label28.Text = "-" -Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label27 -' -Me.Label27.BackColor = System.Drawing.Color.Transparent -Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label27.ForeColor = System.Drawing.Color.Black -Me.Label27.Location = New System.Drawing.Point(6, 39) -Me.Label27.Name = "Label27" -Me.Label27.Size = New System.Drawing.Size(151, 17) -Me.Label27.TabIndex = 153 -Me.Label27.Text = "Green Light Time:" -Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label29 -' -Me.Label29.BackColor = System.Drawing.Color.Transparent -Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label29.ForeColor = System.Drawing.Color.Black -Me.Label29.Location = New System.Drawing.Point(6, 16) -Me.Label29.Name = "Label29" -Me.Label29.Size = New System.Drawing.Size(151, 17) -Me.Label29.TabIndex = 149 -Me.Label29.Text = "Red Light Time:" -Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox18 -' -Me.GroupBox18.Controls.Add(Me.Label108) -Me.GroupBox18.Controls.Add(Me.Label109) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) -Me.GroupBox18.Controls.Add(Me.CBCensorConstant) -Me.GroupBox18.Controls.Add(Me.Label25) -Me.GroupBox18.Controls.Add(Me.Label20) -Me.GroupBox18.Controls.Add(Me.Label19) -Me.GroupBox18.Controls.Add(Me.Label24) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) -Me.GroupBox18.Location = New System.Drawing.Point(6, 16) -Me.GroupBox18.Name = "GroupBox18" -Me.GroupBox18.Size = New System.Drawing.Size(279, 88) -Me.GroupBox18.TabIndex = 1 -Me.GroupBox18.TabStop = false -Me.GroupBox18.Text = "Censorship Sucks" -' -'Label108 -' -Me.Label108.BackColor = System.Drawing.Color.Transparent -Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label108.ForeColor = System.Drawing.Color.Black -Me.Label108.Location = New System.Drawing.Point(227, 39) -Me.Label108.Name = "Label108" -Me.Label108.Size = New System.Drawing.Size(50, 17) -Me.Label108.TabIndex = 179 -Me.Label108.Text = "seconds" -Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label109 -' -Me.Label109.BackColor = System.Drawing.Color.Transparent -Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label109.ForeColor = System.Drawing.Color.Black -Me.Label109.Location = New System.Drawing.Point(227, 16) -Me.Label109.Name = "Label109" -Me.Label109.Size = New System.Drawing.Size(50, 17) -Me.Label109.TabIndex = 178 -Me.Label109.Text = "seconds" -Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBCensorShowMin -' -Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) -Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMin.Name = "NBCensorShowMin" -Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMin.TabIndex = 151 -Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin -' -'NBCensorHideMax -' -Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) -Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMax.Name = "NBCensorHideMax" -Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMax.TabIndex = 156 -Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax -' -'NBCensorHideMin -' -Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) -Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMin.Name = "NBCensorHideMin" -Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMin.TabIndex = 155 -Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin -' -'CBCensorConstant -' -Me.CBCensorConstant.AutoSize = true -Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant -Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black -Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) -Me.CBCensorConstant.Name = "CBCensorConstant" -Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) -Me.CBCensorConstant.TabIndex = 157 -Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" -Me.CBCensorConstant.UseVisualStyleBackColor = true -' -'Label25 -' -Me.Label25.BackColor = System.Drawing.Color.Transparent -Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label25.ForeColor = System.Drawing.Color.Black -Me.Label25.Location = New System.Drawing.Point(161, 15) -Me.Label25.Name = "Label25" -Me.Label25.Size = New System.Drawing.Size(10, 17) -Me.Label25.TabIndex = 150 -Me.Label25.Text = "-" -Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label20 -' -Me.Label20.BackColor = System.Drawing.Color.Transparent -Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label20.ForeColor = System.Drawing.Color.Black -Me.Label20.Location = New System.Drawing.Point(6, 39) -Me.Label20.Name = "Label20" -Me.Label20.Size = New System.Drawing.Size(110, 17) -Me.Label20.TabIndex = 153 -Me.Label20.Text = "Censor Bar Hidden:" -Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label19 -' -Me.Label19.BackColor = System.Drawing.Color.Transparent -Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label19.ForeColor = System.Drawing.Color.Black -Me.Label19.Location = New System.Drawing.Point(161, 38) -Me.Label19.Name = "Label19" -Me.Label19.Size = New System.Drawing.Size(10, 17) -Me.Label19.TabIndex = 154 -Me.Label19.Text = "-" -Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label24 -' -Me.Label24.BackColor = System.Drawing.Color.Transparent -Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label24.ForeColor = System.Drawing.Color.Black -Me.Label24.Location = New System.Drawing.Point(6, 16) -Me.Label24.Name = "Label24" -Me.Label24.Size = New System.Drawing.Size(110, 17) -Me.Label24.TabIndex = 149 -Me.Label24.Text = "Censor Bar Shown:" -Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBCensorShowMax -' -Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) -Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMax.Name = "NBCensorShowMax" -Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMax.TabIndex = 152 -Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax -' -'GBRangeOrgasmChance -' -Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) -Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) -Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) -Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" -Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeOrgasmChance.TabIndex = 167 -Me.GBRangeOrgasmChance.TabStop = false -Me.GBRangeOrgasmChance.Text = "Orgasm Chance" -' -'Label89 -' -Me.Label89.BackColor = System.Drawing.Color.Transparent -Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label89.ForeColor = System.Drawing.Color.Black -Me.Label89.Location = New System.Drawing.Point(6, 94) -Me.Label89.Name = "Label89" -Me.Label89.Size = New System.Drawing.Size(83, 17) -Me.Label89.TabIndex = 173 -Me.Label89.Text = "Rarely Allows:" -Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBAllowSometimes -' -Me.NBAllowSometimes.Enabled = false -Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowSometimes.Name = "NBAllowSometimes" -Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBAllowSometimes.TabIndex = 169 -Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) -' -'Label86 -' -Me.Label86.BackColor = System.Drawing.Color.Transparent -Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label86.ForeColor = System.Drawing.Color.Black -Me.Label86.Location = New System.Drawing.Point(6, 68) -Me.Label86.Name = "Label86" -Me.Label86.Size = New System.Drawing.Size(102, 17) -Me.Label86.TabIndex = 172 -Me.Label86.Text = "Sometimes Allows:" -Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label82 -' -Me.Label82.BackColor = System.Drawing.Color.Transparent -Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label82.ForeColor = System.Drawing.Color.Black -Me.Label82.Location = New System.Drawing.Point(6, 42) -Me.Label82.Name = "Label82" -Me.Label82.Size = New System.Drawing.Size(83, 17) -Me.Label82.TabIndex = 171 -Me.Label82.Text = "Often Allows:" -Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBAllowRarely -' -Me.NBAllowRarely.Enabled = false -Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) -Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowRarely.Name = "NBAllowRarely" -Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) -Me.NBAllowRarely.TabIndex = 170 -Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) -' -'NBAllowOften -' -Me.NBAllowOften.Enabled = false -Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) -Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowOften.Name = "NBAllowOften" -Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) -Me.NBAllowOften.TabIndex = 168 -Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) -' -'CBRangeOrgasm -' -Me.CBRangeOrgasm.AutoSize = true -Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black -Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) -Me.CBRangeOrgasm.Name = "CBRangeOrgasm" -Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) -Me.CBRangeOrgasm.TabIndex = 159 -Me.CBRangeOrgasm.Text = "Domme Decide" -Me.CBRangeOrgasm.UseVisualStyleBackColor = true -' -'PictureBox8 -' -Me.PictureBox8.BackColor = System.Drawing.Color.LightGray -Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox8.Location = New System.Drawing.Point(9, 6) -Me.PictureBox8.Name = "PictureBox8" -Me.PictureBox8.Size = New System.Drawing.Size(160, 19) -Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox8.TabIndex = 166 -Me.PictureBox8.TabStop = false -' -'Label38 -' -Me.Label38.BackColor = System.Drawing.Color.Transparent -Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label38.ForeColor = System.Drawing.Color.Black -Me.Label38.Location = New System.Drawing.Point(7, 6) -Me.Label38.Name = "Label38" -Me.Label38.Size = New System.Drawing.Size(692, 21) -Me.Label38.TabIndex = 48 -Me.Label38.Text = "Range Settings" -Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage13 -' -Me.TabPage13.BackColor = System.Drawing.Color.Silver -Me.TabPage13.Controls.Add(Me.TabControl2) -Me.TabPage13.Location = New System.Drawing.Point(4, 22) -Me.TabPage13.Name = "TabPage13" -Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage13.Size = New System.Drawing.Size(720, 448) -Me.TabPage13.TabIndex = 13 -Me.TabPage13.Text = "Modding" -' -'TabControl2 -' -Me.TabControl2.Controls.Add(Me.TabPage27) -Me.TabControl2.Controls.Add(Me.TabPage14) -Me.TabControl2.Controls.Add(Me.TabPage24) -Me.TabControl2.Controls.Add(Me.TabPage8) -Me.TabControl2.Controls.Add(Me.TabPage15) -Me.TabControl2.Location = New System.Drawing.Point(6, 6) -Me.TabControl2.Name = "TabControl2" -Me.TabControl2.SelectedIndex = 0 -Me.TabControl2.Size = New System.Drawing.Size(708, 437) -Me.TabControl2.TabIndex = 0 -' -'TabPage27 -' -Me.TabPage27.BackColor = System.Drawing.Color.LightGray -Me.TabPage27.Controls.Add(Me.TBPlaylistSave) -Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) -Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) -Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) -Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) -Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) -Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) -Me.TabPage27.Controls.Add(Me.Button7) -Me.TabPage27.Controls.Add(Me.WBPlaylist) -Me.TabPage27.Controls.Add(Me.Label80) -Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) -Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) -Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) -Me.TabPage27.Controls.Add(Me.LBPlaylist) -Me.TabPage27.Location = New System.Drawing.Point(4, 22) -Me.TabPage27.Name = "TabPage27" -Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage27.Size = New System.Drawing.Size(700, 411) -Me.TabPage27.TabIndex = 5 -Me.TabPage27.Text = "Playlists" -' -'TBPlaylistSave -' -Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) -Me.TBPlaylistSave.Name = "TBPlaylistSave" -Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) -Me.TBPlaylistSave.TabIndex = 203 -' -'BTNPlaylistCtrlZ -' -Me.BTNPlaylistCtrlZ.Enabled = false -Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) -Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" -Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistCtrlZ.TabIndex = 202 -Me.BTNPlaylistCtrlZ.Text = "Undo" -Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true -' -'RadioPlaylistRegScripts -' -Me.RadioPlaylistRegScripts.AutoSize = true -Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) -Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" -Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) -Me.RadioPlaylistRegScripts.TabIndex = 201 -Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" -Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true -' -'RadioPlaylistScripts -' -Me.RadioPlaylistScripts.AutoSize = true -Me.RadioPlaylistScripts.Checked = true -Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) -Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" -Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) -Me.RadioPlaylistScripts.TabIndex = 200 -Me.RadioPlaylistScripts.TabStop = true -Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" -Me.RadioPlaylistScripts.UseVisualStyleBackColor = true -' -'BTNPlaylistEnd -' -Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray -Me.BTNPlaylistEnd.Enabled = false -Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black -Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) -Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" -Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistEnd.TabIndex = 199 -Me.BTNPlaylistEnd.Text = "End" -Me.BTNPlaylistEnd.UseVisualStyleBackColor = false -' -'BTNPlaylistClearAll -' -Me.BTNPlaylistClearAll.Enabled = false -Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) -Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" -Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) -Me.BTNPlaylistClearAll.TabIndex = 198 -Me.BTNPlaylistClearAll.Text = "Clear All" -Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true -' -'BTNPlaylistSave -' -Me.BTNPlaylistSave.Enabled = false -Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) -Me.BTNPlaylistSave.Name = "BTNPlaylistSave" -Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistSave.TabIndex = 197 -Me.BTNPlaylistSave.Text = "Save" -Me.BTNPlaylistSave.UseVisualStyleBackColor = true -' -'Button7 -' -Me.Button7.Location = New System.Drawing.Point(213, 21) -Me.Button7.Name = "Button7" -Me.Button7.Size = New System.Drawing.Size(78, 23) -Me.Button7.TabIndex = 196 -Me.Button7.Text = "Add Random" -Me.Button7.UseVisualStyleBackColor = true -' -'WBPlaylist -' -Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) -Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) -Me.WBPlaylist.Name = "WBPlaylist" -Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) -Me.WBPlaylist.TabIndex = 195 -' -'Label80 -' -Me.Label80.AutoSize = true -Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label80.Location = New System.Drawing.Point(410, 27) -Me.Label80.Name = "Label80" -Me.Label80.Size = New System.Drawing.Size(47, 13) -Me.Label80.TabIndex = 194 -Me.Label80.Text = "Playlist" -' -'LBLPlaylIstLink -' -Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylIstLink.Enabled = false -Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) -Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" -Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) -Me.LBLPlaylIstLink.TabIndex = 193 -Me.LBLPlaylIstLink.Text = "Link" -Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLPlaylistModule -' -Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylistModule.Enabled = false -Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) -Me.LBLPlaylistModule.Name = "LBLPlaylistModule" -Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) -Me.LBLPlaylistModule.TabIndex = 192 -Me.LBLPlaylistModule.Text = "Module" -Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLPLaylistStart -' -Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green -Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White -Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) -Me.LBLPLaylistStart.Name = "LBLPLaylistStart" -Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) -Me.LBLPLaylistStart.TabIndex = 190 -Me.LBLPLaylistStart.Text = "Start" -Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBPlaylist -' -Me.LBPlaylist.AllowDrop = true -Me.LBPlaylist.FormattingEnabled = true -Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) -Me.LBPlaylist.Name = "LBPlaylist" -Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) -Me.LBPlaylist.TabIndex = 189 -' -'TabPage14 -' -Me.TabPage14.BackColor = System.Drawing.Color.LightGray -Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) -Me.TabPage14.Controls.Add(Me.Label88) -Me.TabPage14.Controls.Add(Me.TBKeywordPreview) -Me.TabPage14.Controls.Add(Me.Button37) -Me.TabPage14.Controls.Add(Me.Button50) -Me.TabPage14.Controls.Add(Me.Button22) -Me.TabPage14.Controls.Add(Me.TBKeyWords) -Me.TabPage14.Controls.Add(Me.LBKeyWords) -Me.TabPage14.Controls.Add(Me.RTBKeyWords) -Me.TabPage14.Location = New System.Drawing.Point(4, 22) -Me.TabPage14.Name = "TabPage14" -Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage14.Size = New System.Drawing.Size(700, 411) -Me.TabPage14.TabIndex = 0 -Me.TabPage14.Text = "Keywords" -' -'LBLKeywordPreview -' -Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) -Me.LBLKeywordPreview.Name = "LBLKeywordPreview" -Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) -Me.LBLKeywordPreview.TabIndex = 174 -Me.LBLKeywordPreview.Text = "Get Preview Here" -Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label88 -' -Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label88.Location = New System.Drawing.Point(3, 358) -Me.Label88.Name = "Label88" -Me.Label88.Size = New System.Drawing.Size(194, 53) -Me.Label88.TabIndex = 173 -Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ - " the domme return." -Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBKeywordPreview -' -Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) -Me.TBKeywordPreview.Name = "TBKeywordPreview" -Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) -Me.TBKeywordPreview.TabIndex = 172 -Me.TBKeywordPreview.Text = "Enter Line Here" -Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Button37 -' -Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button37.Location = New System.Drawing.Point(638, 358) -Me.Button37.Name = "Button37" -Me.Button37.Size = New System.Drawing.Size(47, 50) -Me.Button37.TabIndex = 171 -Me.Button37.Text = "#" -Me.Button37.UseVisualStyleBackColor = true -' -'Button50 -' -Me.Button50.Location = New System.Drawing.Point(6, 10) -Me.Button50.Name = "Button50" -Me.Button50.Size = New System.Drawing.Size(194, 23) -Me.Button50.TabIndex = 169 -Me.Button50.Text = "Refresh and Clear Keyword List" -Me.Button50.UseVisualStyleBackColor = true -' -'Button22 -' -Me.Button22.Location = New System.Drawing.Point(638, 10) -Me.Button22.Name = "Button22" -Me.Button22.Size = New System.Drawing.Size(47, 23) -Me.Button22.TabIndex = 167 -Me.Button22.Text = "Save" -Me.Button22.UseVisualStyleBackColor = true -' -'TBKeyWords -' -Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) -Me.TBKeyWords.Name = "TBKeyWords" -Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) -Me.TBKeyWords.TabIndex = 166 -' -'LBKeyWords -' -Me.LBKeyWords.FormattingEnabled = true -Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) -Me.LBKeyWords.Name = "LBKeyWords" -Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) -Me.LBKeyWords.Sorted = true -Me.LBKeyWords.TabIndex = 165 -' -'RTBKeyWords -' -Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) -Me.RTBKeyWords.Name = "RTBKeyWords" -Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) -Me.RTBKeyWords.TabIndex = 164 -Me.RTBKeyWords.Text = "" -' -'TabPage24 -' -Me.TabPage24.BackColor = System.Drawing.Color.LightGray -Me.TabPage24.Controls.Add(Me.Button9) -Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) -Me.TabPage24.Controls.Add(Me.Button4) -Me.TabPage24.Controls.Add(Me.Button5) -Me.TabPage24.Controls.Add(Me.TBResponses) -Me.TabPage24.Controls.Add(Me.LBResponses) -Me.TabPage24.Controls.Add(Me.RTBResponses) -Me.TabPage24.Location = New System.Drawing.Point(4, 22) -Me.TabPage24.Name = "TabPage24" -Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage24.Size = New System.Drawing.Size(700, 411) -Me.TabPage24.TabIndex = 3 -Me.TabPage24.Text = "Responses" -' -'Button9 -' -Me.Button9.Location = New System.Drawing.Point(217, 10) -Me.Button9.Name = "Button9" -Me.Button9.Size = New System.Drawing.Size(215, 23) -Me.Button9.TabIndex = 176 -Me.Button9.Text = "Response Template" -Me.Button9.UseVisualStyleBackColor = true -' -'RTBResponsesKEY -' -Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) -Me.RTBResponsesKEY.Name = "RTBResponsesKEY" -Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) -Me.RTBResponsesKEY.TabIndex = 175 -Me.RTBResponsesKEY.Text = "" -' -'Button4 -' -Me.Button4.Location = New System.Drawing.Point(6, 10) -Me.Button4.Name = "Button4" -Me.Button4.Size = New System.Drawing.Size(194, 23) -Me.Button4.TabIndex = 174 -Me.Button4.Text = "Refresh and Clear Response List" -Me.Button4.UseVisualStyleBackColor = true -' -'Button5 -' -Me.Button5.Location = New System.Drawing.Point(638, 10) -Me.Button5.Name = "Button5" -Me.Button5.Size = New System.Drawing.Size(47, 23) -Me.Button5.TabIndex = 173 -Me.Button5.Text = "Save" -Me.Button5.UseVisualStyleBackColor = true -' -'TBResponses -' -Me.TBResponses.Location = New System.Drawing.Point(438, 10) -Me.TBResponses.Name = "TBResponses" -Me.TBResponses.Size = New System.Drawing.Size(194, 20) -Me.TBResponses.TabIndex = 172 -' -'LBResponses -' -Me.LBResponses.FormattingEnabled = true -Me.LBResponses.Location = New System.Drawing.Point(6, 36) -Me.LBResponses.Name = "LBResponses" -Me.LBResponses.Size = New System.Drawing.Size(194, 355) -Me.LBResponses.Sorted = true -Me.LBResponses.TabIndex = 171 -' -'RTBResponses -' -Me.RTBResponses.Location = New System.Drawing.Point(217, 82) -Me.RTBResponses.Name = "RTBResponses" -Me.RTBResponses.Size = New System.Drawing.Size(468, 309) -Me.RTBResponses.TabIndex = 170 -Me.RTBResponses.Text = "" -' -'TabPage8 -' -Me.TabPage8.BackColor = System.Drawing.Color.LightGray -Me.TabPage8.Controls.Add(Me.RTBVideoMod) -Me.TabPage8.Controls.Add(Me.GroupBox29) -Me.TabPage8.Controls.Add(Me.BTNVideoModClear) -Me.TabPage8.Controls.Add(Me.GroupBox28) -Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) -Me.TabPage8.Controls.Add(Me.GroupBox30) -Me.TabPage8.Controls.Add(Me.BTNVideoModSave) -Me.TabPage8.Location = New System.Drawing.Point(4, 22) -Me.TabPage8.Name = "TabPage8" -Me.TabPage8.Size = New System.Drawing.Size(700, 411) -Me.TabPage8.TabIndex = 2 -Me.TabPage8.Text = "Video" -' -'RTBVideoMod -' -Me.RTBVideoMod.Enabled = false -Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) -Me.RTBVideoMod.Name = "RTBVideoMod" -Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) -Me.RTBVideoMod.TabIndex = 150 -Me.RTBVideoMod.Text = "" -' -'GroupBox29 -' -Me.GroupBox29.BackColor = System.Drawing.Color.LightGray -Me.GroupBox29.Controls.Add(Me.Label51) -Me.GroupBox29.ForeColor = System.Drawing.Color.Black -Me.GroupBox29.Location = New System.Drawing.Point(6, 309) -Me.GroupBox29.Name = "GroupBox29" -Me.GroupBox29.Size = New System.Drawing.Size(692, 92) -Me.GroupBox29.TabIndex = 66 -Me.GroupBox29.TabStop = false -Me.GroupBox29.Text = "Description" -' -'Label51 -' -Me.Label51.BackColor = System.Drawing.Color.Transparent -Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label51.ForeColor = System.Drawing.Color.Black -Me.Label51.Location = New System.Drawing.Point(6, 16) -Me.Label51.Name = "Label51" -Me.Label51.Size = New System.Drawing.Size(680, 73) -Me.Label51.TabIndex = 62 -Me.Label51.Text = resources.GetString("Label51.Text") -Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoModClear -' -Me.BTNVideoModClear.Enabled = false -Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) -Me.BTNVideoModClear.Name = "BTNVideoModClear" -Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModClear.TabIndex = 153 -Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" -Me.BTNVideoModClear.UseVisualStyleBackColor = true -' -'GroupBox28 -' -Me.GroupBox28.Controls.Add(Me.CBVTType) -Me.GroupBox28.Location = New System.Drawing.Point(6, 8) -Me.GroupBox28.Name = "GroupBox28" -Me.GroupBox28.Size = New System.Drawing.Size(155, 46) -Me.GroupBox28.TabIndex = 148 -Me.GroupBox28.TabStop = false -Me.GroupBox28.Text = "Video Tease Type" -' -'CBVTType -' -Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBVTType.FormattingEnabled = true -Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) -Me.CBVTType.Location = New System.Drawing.Point(9, 15) -Me.CBVTType.Name = "CBVTType" -Me.CBVTType.Size = New System.Drawing.Size(137, 21) -Me.CBVTType.TabIndex = 171 -' -'BTNVideoModLoad -' -Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) -Me.BTNVideoModLoad.Name = "BTNVideoModLoad" -Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModLoad.TabIndex = 152 -Me.BTNVideoModLoad.Text = "Load Script" -Me.BTNVideoModLoad.UseVisualStyleBackColor = true -' -'GroupBox30 -' -Me.GroupBox30.Controls.Add(Me.LBVidScript) -Me.GroupBox30.Location = New System.Drawing.Point(6, 60) -Me.GroupBox30.Name = "GroupBox30" -Me.GroupBox30.Size = New System.Drawing.Size(155, 100) -Me.GroupBox30.TabIndex = 149 -Me.GroupBox30.TabStop = false -Me.GroupBox30.Text = "Script" -' -'LBVidScript -' -Me.LBVidScript.FormattingEnabled = true -Me.LBVidScript.Location = New System.Drawing.Point(9, 20) -Me.LBVidScript.Name = "LBVidScript" -Me.LBVidScript.Size = New System.Drawing.Size(137, 69) -Me.LBVidScript.TabIndex = 0 -' -'BTNVideoModSave -' -Me.BTNVideoModSave.Enabled = false -Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) -Me.BTNVideoModSave.Name = "BTNVideoModSave" -Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModSave.TabIndex = 151 -Me.BTNVideoModSave.Text = "Save Changes" -Me.BTNVideoModSave.UseVisualStyleBackColor = true -' -'TabPage15 -' -Me.TabPage15.BackColor = System.Drawing.Color.LightGray -Me.TabPage15.Controls.Add(Me.Label62) -Me.TabPage15.Controls.Add(Me.Label61) -Me.TabPage15.Controls.Add(Me.Label57) -Me.TabPage15.Controls.Add(Me.Label58) -Me.TabPage15.Controls.Add(Me.Label60) -Me.TabPage15.Controls.Add(Me.TBGlitModFileName) -Me.TabPage15.Controls.Add(Me.GroupBox34) -Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) -Me.TabPage15.Controls.Add(Me.Button26) -Me.TabPage15.Controls.Add(Me.Label56) -Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) -Me.TabPage15.Controls.Add(Me.LBGlitModScripts) -Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) -Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) -Me.TabPage15.Controls.Add(Me.Button29) -Me.TabPage15.Controls.Add(Me.CBGlitModType) -Me.TabPage15.Controls.Add(Me.Label59) -Me.TabPage15.Controls.Add(Me.Label50) -Me.TabPage15.Location = New System.Drawing.Point(4, 22) -Me.TabPage15.Name = "TabPage15" -Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage15.Size = New System.Drawing.Size(700, 411) -Me.TabPage15.TabIndex = 1 -Me.TabPage15.Text = "Glitter" -' -'Label62 -' -Me.Label62.Location = New System.Drawing.Point(255, 169) -Me.Label62.Name = "Label62" -Me.Label62.Size = New System.Drawing.Size(59, 51) -Me.Label62.TabIndex = 177 -Me.Label62.Text = "@Cruel @Angry @Custom2" -Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label61 -' -Me.Label61.Location = New System.Drawing.Point(194, 169) -Me.Label61.Name = "Label61" -Me.Label61.Size = New System.Drawing.Size(59, 51) -Me.Label61.TabIndex = 176 -Me.Label61.Text = "@Bratty @Caring @Custom1" -Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label57 -' -Me.Label57.Location = New System.Drawing.Point(194, 11) -Me.Label57.Name = "Label57" -Me.Label57.Size = New System.Drawing.Size(120, 23) -Me.Label57.TabIndex = 160 -Me.Label57.Text = "File Name" -Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label58 -' -Me.Label58.Location = New System.Drawing.Point(350, 11) -Me.Label58.Name = "Label58" -Me.Label58.Size = New System.Drawing.Size(326, 23) -Me.Label58.TabIndex = 161 -Me.Label58.Text = "Domme's Post" -Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label60 -' -Me.Label60.Location = New System.Drawing.Point(194, 139) -Me.Label60.Name = "Label60" -Me.Label60.Size = New System.Drawing.Size(120, 30) -Me.Label60.TabIndex = 175 -Me.Label60.Text = "Tease Responses Need 3 of Each:" -Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBGlitModFileName -' -Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) -Me.TBGlitModFileName.Name = "TBGlitModFileName" -Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) -Me.TBGlitModFileName.TabIndex = 158 -' -'GroupBox34 -' -Me.GroupBox34.BackColor = System.Drawing.Color.LightGray -Me.GroupBox34.Controls.Add(Me.Label52) -Me.GroupBox34.ForeColor = System.Drawing.Color.Black -Me.GroupBox34.Location = New System.Drawing.Point(8, 296) -Me.GroupBox34.Name = "GroupBox34" -Me.GroupBox34.Size = New System.Drawing.Size(683, 107) -Me.GroupBox34.TabIndex = 66 -Me.GroupBox34.TabStop = false -Me.GroupBox34.Text = "Description" -' -'Label52 -' -Me.Label52.BackColor = System.Drawing.Color.Transparent -Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label52.ForeColor = System.Drawing.Color.Black -Me.Label52.Location = New System.Drawing.Point(6, 16) -Me.Label52.Name = "Label52" -Me.Label52.Size = New System.Drawing.Size(670, 88) -Me.Label52.TabIndex = 62 -Me.Label52.Text = resources.GetString("Label52.Text") -Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'RTBGlitModDommePost -' -Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) -Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" -Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) -Me.RTBGlitModDommePost.TabIndex = 162 -Me.RTBGlitModDommePost.Text = "" -' -'Button26 -' -Me.Button26.Location = New System.Drawing.Point(194, 239) -Me.Button26.Name = "Button26" -Me.Button26.Size = New System.Drawing.Size(120, 23) -Me.Button26.TabIndex = 174 -Me.Button26.Text = "Clear Fields" -Me.Button26.UseVisualStyleBackColor = true -' -'Label56 -' -Me.Label56.Location = New System.Drawing.Point(350, 80) -Me.Label56.Name = "Label56" -Me.Label56.Size = New System.Drawing.Size(324, 23) -Me.Label56.TabIndex = 156 -Me.Label56.Text = "Responses (Minimum 3)" -Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'RTBGlitModResponses -' -Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) -Me.RTBGlitModResponses.Name = "RTBGlitModResponses" -Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) -Me.RTBGlitModResponses.TabIndex = 150 -Me.RTBGlitModResponses.Text = "" -' -'LBGlitModScripts -' -Me.LBGlitModScripts.FormattingEnabled = true -Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) -Me.LBGlitModScripts.Name = "LBGlitModScripts" -Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) -Me.LBGlitModScripts.TabIndex = 163 -' -'LBLGlitModScriptCount -' -Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) -Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" -Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) -Me.LBLGlitModScriptCount.TabIndex = 173 -Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" -Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitModDomType -' -Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) -Me.LBLGlitModDomType.Name = "LBLGlitModDomType" -Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) -Me.LBLGlitModDomType.TabIndex = 155 -Me.LBLGlitModDomType.Text = "Total Brat" -Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Button29 -' -Me.Button29.Location = New System.Drawing.Point(194, 268) -Me.Button29.Name = "Button29" -Me.Button29.Size = New System.Drawing.Size(120, 23) -Me.Button29.TabIndex = 151 -Me.Button29.Text = "Save Glitter File" -Me.Button29.UseVisualStyleBackColor = true -' -'CBGlitModType -' -Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBGlitModType.FormattingEnabled = true -Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) -Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) -Me.CBGlitModType.Name = "CBGlitModType" -Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) -Me.CBGlitModType.TabIndex = 171 -' -'Label59 -' -Me.Label59.Location = New System.Drawing.Point(33, 11) -Me.Label59.Name = "Label59" -Me.Label59.Size = New System.Drawing.Size(130, 23) -Me.Label59.TabIndex = 172 -Me.Label59.Text = "Glitter Post Type" -Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label50 -' -Me.Label50.Location = New System.Drawing.Point(191, 80) -Me.Label50.Name = "Label50" -Me.Label50.Size = New System.Drawing.Size(123, 23) -Me.Label50.TabIndex = 154 -Me.Label50.Text = "Current Domme Personality:" -Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage25 -' -Me.TabPage25.BackColor = System.Drawing.Color.Silver -Me.TabPage25.Controls.Add(Me.Panel11) -Me.TabPage25.Location = New System.Drawing.Point(4, 22) -Me.TabPage25.Name = "TabPage25" -Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage25.Size = New System.Drawing.Size(720, 448) -Me.TabPage25.TabIndex = 18 -Me.TabPage25.Text = "Misc" -' -'Panel11 -' -Me.Panel11.BackColor = System.Drawing.Color.LightGray -Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel11.Controls.Add(Me.GroupBox8) -Me.Panel11.Controls.Add(Me.GroupBox62) -Me.Panel11.Controls.Add(Me.GroupBox33) -Me.Panel11.Controls.Add(Me.GroupBox27) -Me.Panel11.Controls.Add(Me.GroupBox20) -Me.Panel11.Controls.Add(Me.GroupBox15) -Me.Panel11.Controls.Add(Me.PictureBox9) -Me.Panel11.Controls.Add(Me.Label148) -Me.Panel11.Location = New System.Drawing.Point(6, 6) -Me.Panel11.Name = "Panel11" -Me.Panel11.Size = New System.Drawing.Size(708, 437) -Me.Panel11.TabIndex = 92 -' -'GroupBox8 -' -Me.GroupBox8.Controls.Add(Me.CBOutputErrors) -Me.GroupBox8.Location = New System.Drawing.Point(420, 321) -Me.GroupBox8.Name = "GroupBox8" -Me.GroupBox8.Size = New System.Drawing.Size(279, 47) -Me.GroupBox8.TabIndex = 179 -Me.GroupBox8.TabStop = false -Me.GroupBox8.Text = "System Information" -' -'CBOutputErrors -' -Me.CBOutputErrors.AutoSize = true -Me.CBOutputErrors.Checked = true -Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black -Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) -Me.CBOutputErrors.Name = "CBOutputErrors" -Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) -Me.CBOutputErrors.TabIndex = 29 -Me.CBOutputErrors.TabStop = false -Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" -Me.CBOutputErrors.UseVisualStyleBackColor = true -' -'GroupBox62 -' -Me.GroupBox62.Controls.Add(Me.RBGerman) -Me.GroupBox62.Controls.Add(Me.RBEnglish) -Me.GroupBox62.Location = New System.Drawing.Point(420, 374) -Me.GroupBox62.Name = "GroupBox62" -Me.GroupBox62.Size = New System.Drawing.Size(279, 53) -Me.GroupBox62.TabIndex = 178 -Me.GroupBox62.TabStop = false -Me.GroupBox62.Text = "Language" -' -'RBGerman -' -Me.RBGerman.AutoSize = true -Me.RBGerman.Location = New System.Drawing.Point(180, 20) -Me.RBGerman.Name = "RBGerman" -Me.RBGerman.Size = New System.Drawing.Size(65, 17) -Me.RBGerman.TabIndex = 1 -Me.RBGerman.Text = "Deutsch" -Me.RBGerman.UseVisualStyleBackColor = true -' -'RBEnglish -' -Me.RBEnglish.AutoSize = true -Me.RBEnglish.Checked = true -Me.RBEnglish.Location = New System.Drawing.Point(36, 19) -Me.RBEnglish.Name = "RBEnglish" -Me.RBEnglish.Size = New System.Drawing.Size(59, 17) -Me.RBEnglish.TabIndex = 0 -Me.RBEnglish.TabStop = true -Me.RBEnglish.Text = "English" -Me.RBEnglish.UseVisualStyleBackColor = true -' -'GroupBox33 -' -Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) -Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) -Me.GroupBox33.Controls.Add(Me.Label140) -Me.GroupBox33.Controls.Add(Me.Button11) -Me.GroupBox33.Controls.Add(Me.LBLChastityState) -Me.GroupBox33.Controls.Add(Me.Label120) -Me.GroupBox33.Location = New System.Drawing.Point(420, 155) -Me.GroupBox33.Name = "GroupBox33" -Me.GroupBox33.Size = New System.Drawing.Size(279, 160) -Me.GroupBox33.TabIndex = 177 -Me.GroupBox33.TabStop = false -Me.GroupBox33.Text = "System States" -' -'BTNOfflineMode -' -Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 62) -Me.BTNOfflineMode.Name = "BTNOfflineMode" -Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) -Me.BTNOfflineMode.TabIndex = 180 -Me.BTNOfflineMode.Text = "Toggle" -Me.BTNOfflineMode.UseVisualStyleBackColor = true -' -'LBLOfflineMode -' -Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray -Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red -Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 62) -Me.LBLOfflineMode.Name = "LBLOfflineMode" -Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) -Me.LBLOfflineMode.TabIndex = 179 -Me.LBLOfflineMode.Text = "OFF" -Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label140 -' -Me.Label140.BackColor = System.Drawing.Color.LightGray -Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label140.Location = New System.Drawing.Point(17, 62) -Me.Label140.Name = "Label140" -Me.Label140.Size = New System.Drawing.Size(98, 23) -Me.Label140.TabIndex = 178 -Me.Label140.Text = "OFFLINE MODE" -Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Button11 -' -Me.Button11.Location = New System.Drawing.Point(161, 25) -Me.Button11.Name = "Button11" -Me.Button11.Size = New System.Drawing.Size(99, 23) -Me.Button11.TabIndex = 177 -Me.Button11.Text = "Toggle" -Me.Button11.UseVisualStyleBackColor = true -' -'LBLChastityState -' -Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray -Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLChastityState.ForeColor = System.Drawing.Color.Red -Me.LBLChastityState.Location = New System.Drawing.Point(120, 25) -Me.LBLChastityState.Name = "LBLChastityState" -Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) -Me.LBLChastityState.TabIndex = 3 -Me.LBLChastityState.Text = "OFF" -Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label120 -' -Me.Label120.BackColor = System.Drawing.Color.LightGray -Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label120.Location = New System.Drawing.Point(17, 25) -Me.Label120.Name = "Label120" -Me.Label120.Size = New System.Drawing.Size(98, 23) -Me.Label120.TabIndex = 2 -Me.Label120.Text = "CHASTITY" -Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox27 -' -Me.GroupBox27.Controls.Add(Me.Button6) -Me.GroupBox27.Controls.Add(Me.LBLSesSpace) -Me.GroupBox27.Controls.Add(Me.Button3) -Me.GroupBox27.Controls.Add(Me.LBLSesFiles) -Me.GroupBox27.Controls.Add(Me.Label125) -Me.GroupBox27.Controls.Add(Me.Label124) -Me.GroupBox27.Location = New System.Drawing.Point(420, 32) -Me.GroupBox27.Name = "GroupBox27" -Me.GroupBox27.Size = New System.Drawing.Size(279, 117) -Me.GroupBox27.TabIndex = 176 -Me.GroupBox27.TabStop = false -Me.GroupBox27.Text = "Session Images" -' -'Button6 -' -Me.Button6.Location = New System.Drawing.Point(143, 76) -Me.Button6.Name = "Button6" -Me.Button6.Size = New System.Drawing.Size(117, 23) -Me.Button6.TabIndex = 176 -Me.Button6.Text = "Delete All Files" -Me.Button6.UseVisualStyleBackColor = true -' -'LBLSesSpace -' -Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) -Me.LBLSesSpace.Name = "LBLSesSpace" -Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) -Me.LBLSesSpace.TabIndex = 3 -' -'Button3 -' -Me.Button3.Location = New System.Drawing.Point(20, 76) -Me.Button3.Name = "Button3" -Me.Button3.Size = New System.Drawing.Size(117, 23) -Me.Button3.TabIndex = 175 -Me.Button3.Text = "Open Folder" -Me.Button3.UseVisualStyleBackColor = true -' -'LBLSesFiles -' -Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) -Me.LBLSesFiles.Name = "LBLSesFiles" -Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) -Me.LBLSesFiles.TabIndex = 2 -' -'Label125 -' -Me.Label125.AutoSize = true -Me.Label125.Location = New System.Drawing.Point(17, 53) -Me.Label125.Name = "Label125" -Me.Label125.Size = New System.Drawing.Size(120, 13) -Me.Label125.TabIndex = 1 -Me.Label125.Text = "Total Disk Space Used:" -' -'Label124 -' -Me.Label124.AutoSize = true -Me.Label124.Location = New System.Drawing.Point(17, 24) -Me.Label124.Name = "Label124" -Me.Label124.Size = New System.Drawing.Size(126, 13) -Me.Label124.TabIndex = 0 -Me.Label124.Text = "Number of Files in Folder:" -' -'GroupBox20 -' -Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label87) -Me.GroupBox20.Controls.Add(Me.TBURLFileWith) -Me.GroupBox20.Controls.Add(Me.Label118) -Me.GroupBox20.Controls.Add(Me.Label85) -Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label53) -Me.GroupBox20.Controls.Add(Me.Label8) -Me.GroupBox20.Controls.Add(Me.Button1) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) -Me.GroupBox20.Controls.Add(Me.Label117) -Me.GroupBox20.Controls.Add(Me.Label116) -Me.GroupBox20.Controls.Add(Me.PBCurrent) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) -Me.GroupBox20.Controls.Add(Me.PBMaintenance) -Me.GroupBox20.Controls.Add(Me.LBLMaintenance) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) -Me.GroupBox20.Location = New System.Drawing.Point(6, 32) -Me.GroupBox20.Name = "GroupBox20" -Me.GroupBox20.Size = New System.Drawing.Size(408, 283) -Me.GroupBox20.TabIndex = 174 -Me.GroupBox20.TabStop = false -Me.GroupBox20.Text = "Maintenance" -' -'Label85 -' -Me.Label85.AutoSize = true -Me.Label85.Location = New System.Drawing.Point(98, 254) -Me.Label85.Name = "Label85" -Me.Label85.Size = New System.Drawing.Size(38, 13) -Me.Label85.TabIndex = 180 -Me.Label85.Text = ".media" -' -'TBURLFileReplace -' -Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) -Me.TBURLFileReplace.Name = "TBURLFileReplace" -Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileReplace.TabIndex = 179 -' -'Label53 -' -Me.Label53.AutoSize = true -Me.Label53.Location = New System.Drawing.Point(16, 254) -Me.Label53.Name = "Label53" -Me.Label53.Size = New System.Drawing.Size(47, 13) -Me.Label53.TabIndex = 178 -Me.Label53.Text = "Replace" -' -'Label8 -' -Me.Label8.AutoSize = true -Me.Label8.Location = New System.Drawing.Point(16, 232) -Me.Label8.Name = "Label8" -Me.Label8.Size = New System.Drawing.Size(130, 13) -Me.Label8.TabIndex = 177 -Me.Label8.Text = "Change URL File Servers " -' -'Button1 -' -Me.Button1.Enabled = false -Me.Button1.Location = New System.Drawing.Point(270, 19) -Me.Button1.Name = "Button1" -Me.Button1.Size = New System.Drawing.Size(121, 23) -Me.Button1.TabIndex = 176 -Me.Button1.Text = "Reset Settings" -Me.Button1.UseVisualStyleBackColor = true -' -'BTNMaintenanceScripts -' -Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) -Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" -Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceScripts.TabIndex = 175 -Me.BTNMaintenanceScripts.Text = "Audit Scripts" -Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true -' -'BTNMaintenanceRefresh -' -Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) -Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" -Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRefresh.TabIndex = 7 -Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" -Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true -' -'Label117 -' -Me.Label117.AutoSize = true -Me.Label117.Location = New System.Drawing.Point(15, 182) -Me.Label117.Name = "Label117" -Me.Label117.Size = New System.Drawing.Size(84, 13) -Me.Label117.TabIndex = 6 -Me.Label117.Text = "Overall Progress" -' -'Label116 -' -Me.Label116.AutoSize = true -Me.Label116.Location = New System.Drawing.Point(15, 140) -Me.Label116.Name = "Label116" -Me.Label116.Size = New System.Drawing.Size(85, 13) -Me.Label116.TabIndex = 5 -Me.Label116.Text = "Current Progress" -' -'PBCurrent -' -Me.PBCurrent.Location = New System.Drawing.Point(15, 156) -Me.PBCurrent.Name = "PBCurrent" -Me.PBCurrent.Size = New System.Drawing.Size(376, 23) -Me.PBCurrent.TabIndex = 4 -' -'BTNMaintenanceCancel -' -Me.BTNMaintenanceCancel.Enabled = false -Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) -Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" -Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceCancel.TabIndex = 3 -Me.BTNMaintenanceCancel.Text = "Cancel" -Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true -' -'PBMaintenance -' -Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) -Me.PBMaintenance.Name = "PBMaintenance" -Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) -Me.PBMaintenance.TabIndex = 2 -' -'LBLMaintenance -' -Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) -Me.LBLMaintenance.Name = "LBLMaintenance" -Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) -Me.LBLMaintenance.TabIndex = 1 -Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNMaintenanceRebuild -' -Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) -Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" -Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRebuild.TabIndex = 0 -Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" -Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true -' -'GroupBox15 -' -Me.GroupBox15.Controls.Add(Me.Label115) -Me.GroupBox15.Controls.Add(Me.TBWebStop) -Me.GroupBox15.Controls.Add(Me.TBWebStart) -Me.GroupBox15.Controls.Add(Me.Label114) -Me.GroupBox15.Controls.Add(Me.WebToy) -Me.GroupBox15.Location = New System.Drawing.Point(6, 321) -Me.GroupBox15.Name = "GroupBox15" -Me.GroupBox15.Size = New System.Drawing.Size(408, 106) -Me.GroupBox15.TabIndex = 173 -Me.GroupBox15.TabStop = false -Me.GroupBox15.Text = "Web-Controlled Sex Toy" -' -'Label115 -' -Me.Label115.AutoSize = true -Me.Label115.Location = New System.Drawing.Point(12, 58) -Me.Label115.Name = "Label115" -Me.Label115.Size = New System.Drawing.Size(54, 13) -Me.Label115.TabIndex = 171 -Me.Label115.Text = "Stop URL" -' -'TBWebStop -' -Me.TBWebStop.Location = New System.Drawing.Point(15, 72) -Me.TBWebStop.Name = "TBWebStop" -Me.TBWebStop.Size = New System.Drawing.Size(325, 20) -Me.TBWebStop.TabIndex = 170 -' -'TBWebStart -' -Me.TBWebStart.Location = New System.Drawing.Point(15, 33) -Me.TBWebStart.Name = "TBWebStart" -Me.TBWebStart.Size = New System.Drawing.Size(325, 20) -Me.TBWebStart.TabIndex = 167 -' -'Label114 -' -Me.Label114.AutoSize = true -Me.Label114.Location = New System.Drawing.Point(12, 17) -Me.Label114.Name = "Label114" -Me.Label114.Size = New System.Drawing.Size(54, 13) -Me.Label114.TabIndex = 168 -Me.Label114.Text = "Start URL" -' -'WebToy -' -Me.WebToy.Location = New System.Drawing.Point(346, 33) -Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) -Me.WebToy.Name = "WebToy" -Me.WebToy.Size = New System.Drawing.Size(45, 59) -Me.WebToy.TabIndex = 172 -' -'PictureBox9 -' -Me.PictureBox9.BackColor = System.Drawing.Color.LightGray -Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox9.Location = New System.Drawing.Point(9, 6) -Me.PictureBox9.Name = "PictureBox9" -Me.PictureBox9.Size = New System.Drawing.Size(160, 19) -Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox9.TabIndex = 166 -Me.PictureBox9.TabStop = false -' -'Label148 -' -Me.Label148.BackColor = System.Drawing.Color.Transparent -Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label148.ForeColor = System.Drawing.Color.Black -Me.Label148.Location = New System.Drawing.Point(7, 6) -Me.Label148.Name = "Label148" -Me.Label148.Size = New System.Drawing.Size(692, 21) -Me.Label148.TabIndex = 48 -Me.Label148.Text = "Miscellaneous Settings" -Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage28 -' -Me.TabPage28.BackColor = System.Drawing.Color.Silver -Me.TabPage28.Controls.Add(Me.TabControl3) -Me.TabPage28.Location = New System.Drawing.Point(4, 22) -Me.TabPage28.Name = "TabPage28" -Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage28.Size = New System.Drawing.Size(720, 448) -Me.TabPage28.TabIndex = 20 -Me.TabPage28.Text = "Debug" -' -'TabControl3 -' -Me.TabControl3.Controls.Add(Me.TabPage29) -Me.TabControl3.Controls.Add(Me.TabPage30) -Me.TabControl3.Location = New System.Drawing.Point(6, 6) -Me.TabControl3.Name = "TabControl3" -Me.TabControl3.SelectedIndex = 0 -Me.TabControl3.Size = New System.Drawing.Size(708, 437) -Me.TabControl3.TabIndex = 0 -' -'TabPage29 -' -Me.TabPage29.BackColor = System.Drawing.Color.LightGray -Me.TabPage29.Controls.Add(Me.Label143) -Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) -Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) -Me.TabPage29.Controls.Add(Me.GroupBox26) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) -Me.TabPage29.Controls.Add(Me.Label145) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) -Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) -Me.TabPage29.Controls.Add(Me.Label142) -Me.TabPage29.Controls.Add(Me.Label150) -Me.TabPage29.Controls.Add(Me.Label152) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) -Me.TabPage29.Controls.Add(Me.Label147) -Me.TabPage29.Location = New System.Drawing.Point(4, 22) -Me.TabPage29.Name = "TabPage29" -Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage29.Size = New System.Drawing.Size(700, 411) -Me.TabPage29.TabIndex = 0 -Me.TabPage29.Text = "TabPage29" -' -'Label143 -' -Me.Label143.Location = New System.Drawing.Point(402, 46) -Me.Label143.Name = "Label143" -Me.Label143.Size = New System.Drawing.Size(67, 23) -Me.Label143.TabIndex = 15 -Me.Label143.Text = "Script Timer" -Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugScriptTime -' -Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) -Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" -Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugScriptTime.TabIndex = 16 -Me.LBLDebugScriptTime.Text = "0" -Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDebugHoldEdgeTimer -' -Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) -Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" -Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugHoldEdgeTimer.TabIndex = 14 -Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" -Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true -' -'GroupBox26 -' -Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) -Me.GroupBox26.Controls.Add(Me.Button19) -Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) -Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) -Me.GroupBox26.Location = New System.Drawing.Point(6, 5) -Me.GroupBox26.Name = "GroupBox26" -Me.GroupBox26.Size = New System.Drawing.Size(346, 178) -Me.GroupBox26.TabIndex = 0 -Me.GroupBox26.TabStop = false -Me.GroupBox26.Text = "Taunt Cycle" -' -'LBLCycleDebugCountdown -' -Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) -Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" -Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) -Me.LBLCycleDebugCountdown.TabIndex = 10 -Me.LBLCycleDebugCountdown.Text = "0" -Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Button19 -' -Me.Button19.Location = New System.Drawing.Point(191, 142) -Me.Button19.Name = "Button19" -Me.Button19.Size = New System.Drawing.Size(146, 30) -Me.Button19.TabIndex = 9 -Me.Button19.Text = "Countdown to 5 Seconds" -Me.Button19.UseVisualStyleBackColor = true -' -'BTNDebugTauntsClear -' -Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) -Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" -Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) -Me.BTNDebugTauntsClear.TabIndex = 8 -Me.BTNDebugTauntsClear.Text = "Clear" -Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true -' -'TBDebugTaunts3 -' -Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) -Me.TBDebugTaunts3.Name = "TBDebugTaunts3" -Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts3.TabIndex = 7 -' -'TBDebugTaunts2 -' -Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) -Me.TBDebugTaunts2.Name = "TBDebugTaunts2" -Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts2.TabIndex = 6 -' -'TBDebugTaunts1 -' -Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) -Me.TBDebugTaunts1.Name = "TBDebugTaunts1" -Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts1.TabIndex = 5 -' -'RBDebugTaunts3 -' -Me.RBDebugTaunts3.AutoSize = true -Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) -Me.RBDebugTaunts3.Name = "RBDebugTaunts3" -Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts3.TabIndex = 4 -Me.RBDebugTaunts3.Text = "3 Lines" -Me.RBDebugTaunts3.UseVisualStyleBackColor = true -' -'RBDebugTaunts2 -' -Me.RBDebugTaunts2.AutoSize = true -Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) -Me.RBDebugTaunts2.Name = "RBDebugTaunts2" -Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts2.TabIndex = 3 -Me.RBDebugTaunts2.Text = "2 Lines" -Me.RBDebugTaunts2.UseVisualStyleBackColor = true -' -'RBDebugTaunts1 -' -Me.RBDebugTaunts1.AutoSize = true -Me.RBDebugTaunts1.Checked = true -Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) -Me.RBDebugTaunts1.Name = "RBDebugTaunts1" -Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) -Me.RBDebugTaunts1.TabIndex = 2 -Me.RBDebugTaunts1.TabStop = true -Me.RBDebugTaunts1.Text = "1 Line" -Me.RBDebugTaunts1.UseVisualStyleBackColor = true -' -'CBDebugTauntsEndless -' -Me.CBDebugTauntsEndless.AutoSize = true -Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) -Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" -Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) -Me.CBDebugTauntsEndless.TabIndex = 1 -Me.CBDebugTauntsEndless.Text = "Endless Cycle" -Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true -' -'CBDebugTaunts -' -Me.CBDebugTaunts.AutoSize = true -Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) -Me.CBDebugTaunts.Name = "CBDebugTaunts" -Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) -Me.CBDebugTaunts.TabIndex = 0 -Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" -Me.CBDebugTaunts.UseVisualStyleBackColor = true -' -'BTNDebugStrokeTauntTimer -' -Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) -Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" -Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTauntTimer.TabIndex = 8 -Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" -Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true -' -'LBLDebugHoldEdgeTime -' -Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) -Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" -Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugHoldEdgeTime.TabIndex = 13 -Me.LBLDebugHoldEdgeTime.Text = "0" -Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label145 -' -Me.Label145.Location = New System.Drawing.Point(402, 11) -Me.Label145.Name = "Label145" -Me.Label145.Size = New System.Drawing.Size(67, 23) -Me.Label145.TabIndex = 3 -Me.Label145.Text = "Tease Timer" -Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDebugStrokeTime -' -Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) -Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" -Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTime.TabIndex = 2 -Me.BTNDebugStrokeTime.Text = "Set to 5" -Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true -' -'BTNDebugEdgeTauntTimer -' -Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) -Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" -Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugEdgeTauntTimer.TabIndex = 11 -Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" -Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true -' -'LBLDebugTeaseTime -' -Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) -Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" -Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugTeaseTime.TabIndex = 4 -Me.LBLDebugTeaseTime.Text = "0" -Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugStrokeTime -' -Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) -Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" -Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTime.TabIndex = 1 -Me.LBLDebugStrokeTime.Text = "0" -Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugEdgeTauntTime -' -Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) -Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" -Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugEdgeTauntTime.TabIndex = 10 -Me.LBLDebugEdgeTauntTime.Text = "0" -Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDebugTeaseTimer -' -Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) -Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" -Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugTeaseTimer.TabIndex = 5 -Me.BTNDebugTeaseTimer.Text = "Set to 5" -Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true -' -'Label142 -' -Me.Label142.Location = New System.Drawing.Point(402, 121) -Me.Label142.Name = "Label142" -Me.Label142.Size = New System.Drawing.Size(67, 23) -Me.Label142.TabIndex = 0 -Me.Label142.Text = "Stroke Timer" -Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label150 -' -Me.Label150.Location = New System.Drawing.Point(402, 206) -Me.Label150.Name = "Label150" -Me.Label150.Size = New System.Drawing.Size(67, 27) -Me.Label150.TabIndex = 9 -Me.Label150.Text = "Edge Taunt Timer" -Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label152 -' -Me.Label152.Location = New System.Drawing.Point(402, 238) -Me.Label152.Name = "Label152" -Me.Label152.Size = New System.Drawing.Size(67, 40) -Me.Label152.TabIndex = 12 -Me.Label152.Text = "Hold Edge Timer" -Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugStrokeTauntTime -' -Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) -Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" -Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTauntTime.TabIndex = 7 -Me.LBLDebugStrokeTauntTime.Text = "0" -Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label147 -' -Me.Label147.Location = New System.Drawing.Point(402, 143) -Me.Label147.Name = "Label147" -Me.Label147.Size = New System.Drawing.Size(67, 29) -Me.Label147.TabIndex = 6 -Me.Label147.Text = "Stroke Taunt Timer" -Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage30 -' -Me.TabPage30.BackColor = System.Drawing.Color.LightGray -Me.TabPage30.Controls.Add(Me.Button33) -Me.TabPage30.Controls.Add(Me.Button24) -Me.TabPage30.Location = New System.Drawing.Point(4, 22) -Me.TabPage30.Name = "TabPage30" -Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage30.Size = New System.Drawing.Size(700, 411) -Me.TabPage30.TabIndex = 1 -Me.TabPage30.Text = "TabPage30" -' -'Button33 -' -Me.Button33.Location = New System.Drawing.Point(6, 35) -Me.Button33.Name = "Button33" -Me.Button33.Size = New System.Drawing.Size(75, 23) -Me.Button33.TabIndex = 1 -Me.Button33.Text = "LoadState" -Me.Button33.UseVisualStyleBackColor = true -' -'Button24 -' -Me.Button24.Location = New System.Drawing.Point(6, 6) -Me.Button24.Name = "Button24" -Me.Button24.Size = New System.Drawing.Size(75, 23) -Me.Button24.TabIndex = 0 -Me.Button24.Text = "SaveState" -Me.Button24.UseVisualStyleBackColor = true -' -'TabPage5 -' -Me.TabPage5.BackColor = System.Drawing.Color.Silver -Me.TabPage5.Controls.Add(Me.Panel5) -Me.TabPage5.Location = New System.Drawing.Point(4, 22) -Me.TabPage5.Name = "TabPage5" -Me.TabPage5.Size = New System.Drawing.Size(720, 448) -Me.TabPage5.TabIndex = 17 -Me.TabPage5.Text = "About" -' -'Panel5 -' -Me.Panel5.BackColor = System.Drawing.Color.LightGray -Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel5.Controls.Add(Me.Label130) -Me.Panel5.Controls.Add(Me.Label123) -Me.Panel5.Controls.Add(Me.Label69) -Me.Panel5.Controls.Add(Me.Label113) -Me.Panel5.Controls.Add(Me.Label40) -Me.Panel5.Controls.Add(Me.Label35) -Me.Panel5.Controls.Add(Me.Label33) -Me.Panel5.Controls.Add(Me.Label17) -Me.Panel5.Controls.Add(Me.Label3) -Me.Panel5.Controls.Add(Me.PictureBox3) -Me.Panel5.Controls.Add(Me.Label41) -Me.Panel5.Location = New System.Drawing.Point(6, 6) -Me.Panel5.Name = "Panel5" -Me.Panel5.Size = New System.Drawing.Size(708, 437) -Me.Panel5.TabIndex = 92 -' -'Label130 -' -Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label130.Location = New System.Drawing.Point(361, 314) -Me.Label130.Name = "Label130" -Me.Label130.Size = New System.Drawing.Size(254, 54) -Me.Label130.TabIndex = 176 -Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label123 -' -Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label123.Location = New System.Drawing.Point(81, 314) -Me.Label123.Name = "Label123" -Me.Label123.Size = New System.Drawing.Size(254, 54) -Me.Label123.TabIndex = 175 -Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" -Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label69 -' -Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label69.Location = New System.Drawing.Point(35, 295) -Me.Label69.Name = "Label69" -Me.Label69.Size = New System.Drawing.Size(638, 22) -Me.Label69.TabIndex = 174 -Me.Label69.Text = "Triple Alfa" -Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label113 -' -Me.Label113.AutoSize = true -Me.Label113.Location = New System.Drawing.Point(4, 417) -Me.Label113.Name = "Label113" -Me.Label113.Size = New System.Drawing.Size(452, 13) -Me.Label113.TabIndex = 173 -Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ - "pective owners." -' -'Label40 -' -Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label40.Location = New System.Drawing.Point(35, 273) -Me.Label40.Name = "Label40" -Me.Label40.Size = New System.Drawing.Size(638, 24) -Me.Label40.TabIndex = 171 -Me.Label40.Text = "Special Thanks" -Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label35 -' -Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label35.Location = New System.Drawing.Point(32, 107) -Me.Label35.Name = "Label35" -Me.Label35.Size = New System.Drawing.Size(641, 77) -Me.Label35.TabIndex = 170 -Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ - "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ - "dditional files separately." -Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label33 -' -Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label33.Location = New System.Drawing.Point(32, 191) -Me.Label33.Name = "Label33" -Me.Label33.Size = New System.Drawing.Size(641, 77) -Me.Label33.TabIndex = 169 -Me.Label33.Text = resources.GetString("Label33.Text") -Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label17 -' -Me.Label17.AutoSize = true -Me.Label17.Location = New System.Drawing.Point(522, 78) -Me.Label17.Name = "Label17" -Me.Label17.Size = New System.Drawing.Size(93, 13) -Me.Label17.TabIndex = 168 -Me.Label17.Text = "Designed by 1885" -' -'Label3 -' -Me.Label3.AutoSize = true -Me.Label3.Location = New System.Drawing.Point(489, 417) -Me.Label3.Name = "Label3" -Me.Label3.Size = New System.Drawing.Size(215, 13) -Me.Label3.TabIndex = 167 -Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" -' -'PictureBox3 -' -Me.PictureBox3.BackColor = System.Drawing.Color.LightGray -Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big -Me.PictureBox3.Location = New System.Drawing.Point(84, 17) -Me.PictureBox3.Name = "PictureBox3" -Me.PictureBox3.Size = New System.Drawing.Size(531, 58) -Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PictureBox3.TabIndex = 166 -Me.PictureBox3.TabStop = false -' -'Label41 -' -Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label41.Location = New System.Drawing.Point(35, 372) -Me.Label41.Name = "Label41" -Me.Label41.Size = New System.Drawing.Size(638, 39) -Me.Label41.TabIndex = 172 -Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ - "nity who's been supportive of my work over the years. Tease AI exists because of"& _ - " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'BtnRandomImageDirClear -' -Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) -Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" -Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnRandomImageDirClear.TabIndex = 181 -Me.BtnRandomImageDirClear.Text = "Clear" -Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false -' -'GroupBox47 -' -Me.GroupBox47.BackColor = System.Drawing.Color.LightGray -Me.GroupBox47.Controls.Add(Me.GroupBox41) -Me.GroupBox47.Controls.Add(Me.GroupBox40) -Me.GroupBox47.ForeColor = System.Drawing.Color.Black -Me.GroupBox47.Location = New System.Drawing.Point(806, 255) -Me.GroupBox47.Name = "GroupBox47" -Me.GroupBox47.Size = New System.Drawing.Size(310, 190) -Me.GroupBox47.TabIndex = 63 -Me.GroupBox47.TabStop = false -Me.GroupBox47.Text = "Boobs and Butts Paths" -' -'GroupBox41 -' -Me.GroupBox41.Controls.Add(Me.Button34) -Me.GroupBox41.Location = New System.Drawing.Point(6, 110) -Me.GroupBox41.Name = "GroupBox41" -Me.GroupBox41.Size = New System.Drawing.Size(298, 74) -Me.GroupBox41.TabIndex = 153 -Me.GroupBox41.TabStop = false -Me.GroupBox41.Text = "Butts" -' -'Button34 -' -Me.Button34.BackColor = System.Drawing.Color.LightGray -Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.Button34.ForeColor = System.Drawing.Color.Black -Me.Button34.Location = New System.Drawing.Point(85, 25) -Me.Button34.Name = "Button34" -Me.Button34.Size = New System.Drawing.Size(34, 28) -Me.Button34.TabIndex = 131 -Me.Button34.Text = "1" -Me.Button34.UseVisualStyleBackColor = false -' -'GroupBox40 -' -Me.GroupBox40.Location = New System.Drawing.Point(5, 35) -Me.GroupBox40.Name = "GroupBox40" -Me.GroupBox40.Size = New System.Drawing.Size(298, 74) -Me.GroupBox40.TabIndex = 152 -Me.GroupBox40.TabStop = false -Me.GroupBox40.Text = "Boobs" -' -'GroupBox44 -' -Me.GroupBox44.BackColor = System.Drawing.Color.LightGray -Me.GroupBox44.Controls.Add(Me.Label100) -Me.GroupBox44.ForeColor = System.Drawing.Color.Black -Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) -Me.GroupBox44.Name = "GroupBox44" -Me.GroupBox44.Size = New System.Drawing.Size(310, 92) -Me.GroupBox44.TabIndex = 65 -Me.GroupBox44.TabStop = false -Me.GroupBox44.Text = "Description" -' -'Label100 -' -Me.Label100.BackColor = System.Drawing.Color.Transparent -Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label100.ForeColor = System.Drawing.Color.Black -Me.Label100.Location = New System.Drawing.Point(11, 16) -Me.Label100.Name = "Label100" -Me.Label100.Size = New System.Drawing.Size(286, 73) -Me.Label100.TabIndex = 62 -Me.Label100.Text = resources.GetString("Label100.Text") -Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox6 -' -Me.GroupBox6.Controls.Add(Me.Label4) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) -Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) -Me.GroupBox6.Controls.Add(Me.Label94) -Me.GroupBox6.Controls.Add(Me.LBLLastRuined) -Me.GroupBox6.Controls.Add(Me.Label65) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) -Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) -Me.GroupBox6.Controls.Add(Me.Label14) -Me.GroupBox6.Controls.Add(Me.Label13) -Me.GroupBox6.Controls.Add(Me.Label1) -Me.GroupBox6.Location = New System.Drawing.Point(27, 114) -Me.GroupBox6.Name = "GroupBox6" -Me.GroupBox6.Size = New System.Drawing.Size(283, 102) -Me.GroupBox6.TabIndex = 156 -Me.GroupBox6.TabStop = false -Me.GroupBox6.Text = "Performance" -' -'Label4 -' -Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label4.Location = New System.Drawing.Point(26, 16) -Me.Label4.Name = "Label4" -Me.Label4.Size = New System.Drawing.Size(77, 17) -Me.Label4.TabIndex = 147 -Me.Label4.Text = "Stroking Time" -Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLAvgEdgeStroking -' -Me.LBLAvgEdgeStroking.AutoSize = true -Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) -Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" -Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeStroking.TabIndex = 144 -Me.LBLAvgEdgeStroking.Text = "00:00" -Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLStrokeTimeTotal -' -Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) -Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" -Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) -Me.LBLStrokeTimeTotal.TabIndex = 148 -Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" -Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label94 -' -Me.Label94.BackColor = System.Drawing.Color.Transparent -Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label94.ForeColor = System.Drawing.Color.Black -Me.Label94.Location = New System.Drawing.Point(189, 16) -Me.Label94.Name = "Label94" -Me.Label94.Size = New System.Drawing.Size(65, 17) -Me.Label94.TabIndex = 150 -Me.Label94.Text = "Last Ruined" -Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLLastRuined -' -Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) -Me.LBLLastRuined.Name = "LBLLastRuined" -Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) -Me.LBLLastRuined.TabIndex = 152 -Me.LBLLastRuined.Text = "04/28/2015" -Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label65 -' -Me.Label65.BackColor = System.Drawing.Color.Transparent -Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label65.ForeColor = System.Drawing.Color.Black -Me.Label65.Location = New System.Drawing.Point(103, 16) -Me.Label65.Name = "Label65" -Me.Label65.Size = New System.Drawing.Size(85, 17) -Me.Label65.TabIndex = 149 -Me.Label65.Text = "Last Orgasm" -Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLAvgEdgeNoTouch -' -Me.LBLAvgEdgeNoTouch.AutoSize = true -Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) -Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" -Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeNoTouch.TabIndex = 146 -Me.LBLAvgEdgeNoTouch.Text = "00:00" -Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLLastOrgasm -' -Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) -Me.LBLLastOrgasm.Name = "LBLLastOrgasm" -Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) -Me.LBLLastOrgasm.TabIndex = 151 -Me.LBLLastOrgasm.Text = "04/28/2015" -Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label14 -' -Me.Label14.BackColor = System.Drawing.Color.Transparent -Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label14.ForeColor = System.Drawing.Color.Black -Me.Label14.Location = New System.Drawing.Point(25, 48) -Me.Label14.Name = "Label14" -Me.Label14.Size = New System.Drawing.Size(238, 17) -Me.Label14.TabIndex = 138 -Me.Label14.Text = "Average Time to Edge" -Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label13 -' -Me.Label13.AutoSize = true -Me.Label13.Location = New System.Drawing.Point(177, 68) -Me.Label13.Name = "Label13" -Me.Label13.Size = New System.Drawing.Size(32, 13) -Me.Label13.TabIndex = 145 -Me.Label13.Text = "Rest:" -Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label1 -' -Me.Label1.AutoSize = true -Me.Label1.Location = New System.Drawing.Point(28, 68) -Me.Label1.Name = "Label1" -Me.Label1.Size = New System.Drawing.Size(79, 13) -Me.Label1.TabIndex = 143 -Me.Label1.Text = "While Stroking:" -Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox21 -' -Me.GroupBox21.BackColor = System.Drawing.Color.LightGray -Me.GroupBox21.Controls.Add(Me.Label153) -Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) -Me.GroupBox21.Controls.Add(Me.GroupBox6) -Me.GroupBox21.Controls.Add(Me.Label156) -Me.GroupBox21.ForeColor = System.Drawing.Color.Black -Me.GroupBox21.Location = New System.Drawing.Point(797, 55) -Me.GroupBox21.Name = "GroupBox21" -Me.GroupBox21.Size = New System.Drawing.Size(316, 136) -Me.GroupBox21.TabIndex = 66 -Me.GroupBox21.TabStop = false -Me.GroupBox21.Text = "Description" -' -'Label153 -' -Me.Label153.BackColor = System.Drawing.Color.Transparent -Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label153.ForeColor = System.Drawing.Color.Black -Me.Label153.Location = New System.Drawing.Point(78, 94) -Me.Label153.Name = "Label153" -Me.Label153.Size = New System.Drawing.Size(158, 17) -Me.Label153.TabIndex = 135 -Me.Label153.Text = "No path selected" -Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLRangeSettingsDescription -' -Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) -Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" -Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) -Me.LBLRangeSettingsDescription.TabIndex = 62 -Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label156 -' -Me.Label156.BackColor = System.Drawing.Color.Transparent -Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label156.ForeColor = System.Drawing.Color.Black -Me.Label156.Location = New System.Drawing.Point(133, 23) -Me.Label156.Name = "Label156" -Me.Label156.Size = New System.Drawing.Size(158, 17) -Me.Label156.TabIndex = 135 -Me.Label156.Text = "No path selected" -Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox12 -' -Me.GroupBox12.BackColor = System.Drawing.Color.LightGray -Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) -Me.GroupBox12.ForeColor = System.Drawing.Color.Black -Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) -Me.GroupBox12.Name = "GroupBox12" -Me.GroupBox12.Size = New System.Drawing.Size(171, 124) -Me.GroupBox12.TabIndex = 65 -Me.GroupBox12.TabStop = false -Me.GroupBox12.Text = "Description" -' -'LBLSubSettingsDescription -' -Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) -Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" -Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) -Me.LBLSubSettingsDescription.TabIndex = 62 -Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -' -'OpenFileDialog1 -' -Me.OpenFileDialog1.FileName = "OpenFileDialog1" -Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ - "s (*.*)|*.*" -Me.OpenFileDialog1.Title = "Select an image file" -' -'GetColor -' -Me.GetColor.Color = System.Drawing.Color.SteelBlue -' -'WebImageFileDialog -' -Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.WebImageFileDialog.Title = "Please select a URL File" -' -'OpenScriptDialog -' -Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenScriptDialog.Title = "Please select a script" -' -'OpenSettingsDialog -' -Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenSettingsDialog.Title = "Please select a settings file to open" -' -'SaveSettingsDialog -' -Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" -' -'GroupBox65 -' -Me.GroupBox65.BackColor = System.Drawing.Color.LightGray -Me.GroupBox65.Controls.Add(Me.Label136) -Me.GroupBox65.Controls.Add(Me.Label134) -Me.GroupBox65.Controls.Add(Me.Label132) -Me.GroupBox65.Controls.Add(Me.TrackBar1) -Me.GroupBox65.Controls.Add(Me.ComboBox1) -Me.GroupBox65.Controls.Add(Me.CheckBox1) -Me.GroupBox65.Controls.Add(Me.Label135) -Me.GroupBox65.Controls.Add(Me.TrackBar2) -Me.GroupBox65.ForeColor = System.Drawing.Color.Black -Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) -Me.GroupBox65.Name = "GroupBox65" -Me.GroupBox65.Size = New System.Drawing.Size(259, 117) -Me.GroupBox65.TabIndex = 157 -Me.GroupBox65.TabStop = false -Me.GroupBox65.Text = "Text to Speech" -' -'Label136 -' -Me.Label136.AutoSize = true -Me.Label136.Location = New System.Drawing.Point(14, 52) -Me.Label136.Name = "Label136" -Me.Label136.Size = New System.Drawing.Size(45, 13) -Me.Label136.TabIndex = 32 -Me.Label136.Text = "Volume:" -' -'Label134 -' -Me.Label134.AutoSize = true -Me.Label134.Location = New System.Drawing.Point(141, 52) -Me.Label134.Name = "Label134" -Me.Label134.Size = New System.Drawing.Size(33, 13) -Me.Label134.TabIndex = 157 -Me.Label134.Text = "Rate:" -' -'Label132 -' -Me.Label132.Location = New System.Drawing.Point(202, 52) -Me.Label132.Name = "Label132" -Me.Label132.Size = New System.Drawing.Size(45, 13) -Me.Label132.TabIndex = 158 -Me.Label132.Text = "100" -Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'TrackBar1 -' -Me.TrackBar1.Location = New System.Drawing.Point(133, 68) -Me.TrackBar1.Minimum = -10 -Me.TrackBar1.Name = "TrackBar1" -Me.TrackBar1.Size = New System.Drawing.Size(120, 45) -Me.TrackBar1.TabIndex = 31 -' -'ComboBox1 -' -Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window -Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText -Me.ComboBox1.FormattingEnabled = true -Me.ComboBox1.Location = New System.Drawing.Point(71, 16) -Me.ComboBox1.Name = "ComboBox1" -Me.ComboBox1.Size = New System.Drawing.Size(178, 21) -Me.ComboBox1.TabIndex = 29 -Me.ComboBox1.TabStop = false -' -'CheckBox1 -' -Me.CheckBox1.AutoSize = true -Me.CheckBox1.ForeColor = System.Drawing.Color.Black -Me.CheckBox1.Location = New System.Drawing.Point(10, 18) -Me.CheckBox1.Name = "CheckBox1" -Me.CheckBox1.Size = New System.Drawing.Size(59, 17) -Me.CheckBox1.TabIndex = 28 -Me.CheckBox1.TabStop = false -Me.CheckBox1.Text = "Enable" -Me.CheckBox1.UseVisualStyleBackColor = true -' -'Label135 -' -Me.Label135.Location = New System.Drawing.Point(75, 52) -Me.Label135.Name = "Label135" -Me.Label135.Size = New System.Drawing.Size(45, 13) -Me.Label135.TabIndex = 33 -Me.Label135.Text = "100" -Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'TrackBar2 -' -Me.TrackBar2.Location = New System.Drawing.Point(6, 68) -Me.TrackBar2.Maximum = 100 -Me.TrackBar2.Name = "TrackBar2" -Me.TrackBar2.Size = New System.Drawing.Size(120, 45) -Me.TrackBar2.TabIndex = 30 -Me.TrackBar2.Value = 50 -' -'TxbImgUrlHardcore -' -Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) -Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" -Me.TxbImgUrlHardcore.ReadOnly = true -Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) -Me.TxbImgUrlHardcore.TabIndex = 145 -' -'TextBox2 -' -Me.TextBox2.BackColor = System.Drawing.Color.LightGray -Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill -Me.TextBox2.Location = New System.Drawing.Point(116, 34) -Me.TextBox2.Name = "TextBox2" -Me.TextBox2.ReadOnly = true -Me.TextBox2.Size = New System.Drawing.Size(189, 20) -Me.TextBox2.TabIndex = 145 -' -'Label87 -' -Me.Label87.AutoSize = true -Me.Label87.Location = New System.Drawing.Point(206, 254) -Me.Label87.Name = "Label87" -Me.Label87.Size = New System.Drawing.Size(38, 13) -Me.Label87.TabIndex = 183 -Me.Label87.Text = ".media" -' -'TBURLFileWith -' -Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) -Me.TBURLFileWith.Name = "TBURLFileWith" -Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileWith.TabIndex = 182 -' -'Label118 -' -Me.Label118.AutoSize = true -Me.Label118.Location = New System.Drawing.Point(142, 254) -Me.Label118.Name = "Label118" -Me.Label118.Size = New System.Drawing.Size(29, 13) -Me.Label118.TabIndex = 181 -Me.Label118.Text = "With" -' -'BTNURLFileReplace -' -Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) -Me.BTNURLFileReplace.Name = "BTNURLFileReplace" -Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) -Me.BTNURLFileReplace.TabIndex = 184 -Me.BTNURLFileReplace.Text = "Replace" -Me.BTNURLFileReplace.UseVisualStyleBackColor = true -' -'BWURLFiles -' -Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" -Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" -Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" -Me.BWURLFiles.WorkerReportsProgress = true -Me.BWURLFiles.WorkerSupportsCancellation = true -' -'FrmSettings -' -Me.AllowDrop = true -Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) -Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font -Me.ClientSize = New System.Drawing.Size(727, 465) -Me.Controls.Add(Me.GroupBox65) -Me.Controls.Add(Me.GroupBox44) -Me.Controls.Add(Me.GroupBox47) -Me.Controls.Add(Me.BtnRandomImageDirClear) -Me.Controls.Add(Me.SettingsPanel) -Me.Controls.Add(Me.GroupBox12) -Me.Controls.Add(Me.GroupBox21) -Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D -Me.MaximizeBox = false -Me.MinimizeBox = false -Me.Name = "FrmSettings" -Me.ShowIcon = false -Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen -Me.Text = "Tease AI Settings" -Me.SettingsPanel.ResumeLayout(false) -Me.SettingsTabs.ResumeLayout(false) -Me.TabPage1.ResumeLayout(false) -Me.PNLGeneralSettings.ResumeLayout(false) -Me.PNLGeneralSettings.PerformLayout -Me.GroupBox3.ResumeLayout(false) -Me.GroupBox2.ResumeLayout(false) -Me.GroupBox2.PerformLayout -Me.GroupBox64.ResumeLayout(false) -Me.GroupBox64.PerformLayout -Me.GBDommeImages.ResumeLayout(false) -Me.GBDommeImages.PerformLayout -CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGeneralTextToSpeech.ResumeLayout(false) -Me.GBGeneralTextToSpeech.PerformLayout -CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).EndInit -Me.GBSafeword.ResumeLayout(false) -Me.GBSafeword.PerformLayout -Me.GBGeneralSystem.ResumeLayout(false) -Me.GBGeneralSystem.PerformLayout -Me.GBGeneralImages.ResumeLayout(false) -Me.GBGeneralImages.PerformLayout -CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGeneralSettings.ResumeLayout(false) -Me.GBGeneralSettings.PerformLayout -Me.GBSubFont.ResumeLayout(false) -CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDommeFont.ResumeLayout(false) -CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage2.ResumeLayout(false) -Me.Panel3.ResumeLayout(false) -Me.Panel3.PerformLayout -Me.GBGiveUp.ResumeLayout(false) -Me.GBGiveUp.PerformLayout -CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomTypingStyle.ResumeLayout(false) -Me.GBDomTypingStyle.PerformLayout -CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox63.ResumeLayout(false) -Me.GroupBox63.PerformLayout -Me.GBDomRanges.ResumeLayout(false) -CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomStats.ResumeLayout(false) -Me.GBDomStats.PerformLayout -CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomPersonality.ResumeLayout(false) -Me.GBDomPersonality.PerformLayout -Me.GBDomOrgasms.ResumeLayout(false) -Me.GBDomOrgasms.PerformLayout -CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomPetNames.ResumeLayout(false) -Me.GBDomPetNames.PerformLayout -Me.TabPage10.ResumeLayout(false) -Me.Panel2.ResumeLayout(false) -Me.GroupBox22.ResumeLayout(false) -CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox45.ResumeLayout(false) -CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox35.ResumeLayout(false) -Me.GroupBox39.ResumeLayout(false) -Me.GroupBox39.PerformLayout -Me.GroupBox38.ResumeLayout(false) -Me.GroupBox38.PerformLayout -Me.GroupBox37.ResumeLayout(false) -Me.GroupBox37.PerformLayout -Me.GroupBox36.ResumeLayout(false) -Me.GroupBox36.PerformLayout -Me.GroupBox13.ResumeLayout(false) -Me.GroupBox7.ResumeLayout(false) -Me.GroupBox7.PerformLayout -CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox32.ResumeLayout(false) -Me.GroupBox32.PerformLayout -CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage16.ResumeLayout(false) -Me.Panel9.ResumeLayout(false) -Me.GroupBox31.ResumeLayout(false) -Me.TCScripts.ResumeLayout(false) -Me.TabPage21.ResumeLayout(false) -Me.TabPage17.ResumeLayout(false) -Me.TabPage18.ResumeLayout(false) -Me.TabPage19.ResumeLayout(false) -Me.GroupBox42.ResumeLayout(false) -CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox43.ResumeLayout(false) -Me.TabPage7.ResumeLayout(false) -Me.TabControl4.ResumeLayout(false) -Me.TpImagesUrlFiles.ResumeLayout(false) -Me.TpImagesUrlFiles.PerformLayout -Me.GroupBox66.ResumeLayout(false) -CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).EndInit -Me.TpImagesGenre.ResumeLayout(false) -Me.GrbImageUrlFiles.ResumeLayout(false) -Me.TlpImageUrls.ResumeLayout(false) -Me.TlpImageUrls.PerformLayout -Me.GbxImagesGenre.ResumeLayout(false) -Me.TableLayoutPanel1.ResumeLayout(false) -Me.TableLayoutPanel1.PerformLayout -Me.TabPage33.ResumeLayout(false) -Me.TabControl5.ResumeLayout(false) -Me.TabPage34.ResumeLayout(false) -Me.TabPage34.PerformLayout -CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage35.ResumeLayout(false) -Me.TabPage35.PerformLayout -Me.GroupBox55.ResumeLayout(false) -Me.GroupBox55.PerformLayout -Me.GroupBox53.ResumeLayout(false) -Me.GroupBox53.PerformLayout -Me.GroupBox49.ResumeLayout(false) -Me.GroupBox49.PerformLayout -Me.GroupBox46.ResumeLayout(false) -Me.GroupBox46.PerformLayout -Me.GroupBox54.ResumeLayout(false) -Me.GroupBox54.PerformLayout -Me.GroupBox51.ResumeLayout(false) -Me.GroupBox51.PerformLayout -Me.GroupBox50.ResumeLayout(false) -Me.GroupBox50.PerformLayout -Me.GroupBox48.ResumeLayout(false) -Me.GroupBox48.PerformLayout -Me.TabPage11.ResumeLayout(false) -Me.Panel7.ResumeLayout(false) -Me.Panel7.PerformLayout -CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).EndInit -Me.TpVideoSettings.ResumeLayout(false) -Me.PnlVideoSettings.ResumeLayout(false) -CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxVideoGeneralD.ResumeLayout(false) -Me.GbxVideoGeneralD.PerformLayout -Me.GbxVideoSpecialD.ResumeLayout(false) -Me.GbxVideoSpecialD.PerformLayout -Me.GbxVideoGenreD.ResumeLayout(false) -Me.GbxVideoGenreD.PerformLayout -Me.GbxVideoDescription.ResumeLayout(false) -Me.GbxVideoGeneral.ResumeLayout(false) -Me.GbxVideoGeneral.PerformLayout -Me.GbxVideoSpecial.ResumeLayout(false) -Me.GbxVideoSpecial.PerformLayout -Me.GbxVideoGenre.ResumeLayout(false) -Me.GbxVideoGenre.PerformLayout -Me.TabPage20.ResumeLayout(false) -Me.TabControl1.ResumeLayout(false) -Me.TabPage22.ResumeLayout(false) -Me.PNLGlitter.ResumeLayout(false) -Me.PNLGlitter.PerformLayout -Me.GroupBox4.ResumeLayout(false) -Me.GBGlitterD.ResumeLayout(false) -Me.GBGlitterD.PerformLayout -Me.GrbGlitterfeed.ResumeLayout(false) -Me.GrbGlitterfeed.PerformLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGlitter1.ResumeLayout(false) -Me.GBGlitter1.PerformLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGlitter3.ResumeLayout(false) -Me.GBGlitter3.PerformLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGlitter2.ResumeLayout(false) -Me.GBGlitter2.PerformLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit -Me.TpGames.ResumeLayout(false) -Me.TpGames.PerformLayout -Me.GbxCardsGold.ResumeLayout(false) -Me.GbxCardsGold.PerformLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxCardsBackground.ResumeLayout(false) -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxCardsBronze.ResumeLayout(false) -Me.GbxCardsBronze.PerformLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxCardsSilver.ResumeLayout(false) -Me.GbxCardsSilver.PerformLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage6.ResumeLayout(false) -Me.Panel10.ResumeLayout(false) -Me.Panel10.PerformLayout -CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).EndInit -Me.PNLWishList.ResumeLayout(false) -CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage26.ResumeLayout(false) -Me.Panel12.ResumeLayout(false) -Me.GroupBox9.ResumeLayout(false) -CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox5.ResumeLayout(false) -Me.GroupBox5.PerformLayout -Me.GroupBox11.ResumeLayout(false) -Me.GroupBox1.ResumeLayout(false) -CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage4.ResumeLayout(false) -Me.Panel6.ResumeLayout(false) -Me.GroupBox69.ResumeLayout(false) -Me.GroupBox69.PerformLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox68.ResumeLayout(false) -CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox67.ResumeLayout(false) -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox10.ResumeLayout(false) -CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox57.ResumeLayout(false) -Me.GroupBox57.PerformLayout -CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GBRangeRuinChance.ResumeLayout(false) -Me.GBRangeRuinChance.PerformLayout -CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox17.ResumeLayout(false) -Me.GroupBox19.ResumeLayout(false) -CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox18.ResumeLayout(false) -Me.GroupBox18.PerformLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit -Me.GBRangeOrgasmChance.ResumeLayout(false) -Me.GBRangeOrgasmChance.PerformLayout -CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage13.ResumeLayout(false) -Me.TabControl2.ResumeLayout(false) -Me.TabPage27.ResumeLayout(false) -Me.TabPage27.PerformLayout -Me.TabPage14.ResumeLayout(false) -Me.TabPage14.PerformLayout -Me.TabPage24.ResumeLayout(false) -Me.TabPage24.PerformLayout -Me.TabPage8.ResumeLayout(false) -Me.GroupBox29.ResumeLayout(false) -Me.GroupBox28.ResumeLayout(false) -Me.GroupBox30.ResumeLayout(false) -Me.TabPage15.ResumeLayout(false) -Me.TabPage15.PerformLayout -Me.GroupBox34.ResumeLayout(false) -Me.TabPage25.ResumeLayout(false) -Me.Panel11.ResumeLayout(false) -Me.GroupBox8.ResumeLayout(false) -Me.GroupBox8.PerformLayout -Me.GroupBox62.ResumeLayout(false) -Me.GroupBox62.PerformLayout -Me.GroupBox33.ResumeLayout(false) -Me.GroupBox27.ResumeLayout(false) -Me.GroupBox27.PerformLayout -Me.GroupBox20.ResumeLayout(false) -Me.GroupBox20.PerformLayout -Me.GroupBox15.ResumeLayout(false) -Me.GroupBox15.PerformLayout -CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage28.ResumeLayout(false) -Me.TabControl3.ResumeLayout(false) -Me.TabPage29.ResumeLayout(false) -Me.GroupBox26.ResumeLayout(false) -Me.GroupBox26.PerformLayout -Me.TabPage30.ResumeLayout(false) -Me.TabPage5.ResumeLayout(false) -Me.Panel5.ResumeLayout(false) -Me.Panel5.PerformLayout -CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox47.ResumeLayout(false) -Me.GroupBox41.ResumeLayout(false) -Me.GroupBox44.ResumeLayout(false) -Me.GroupBox6.ResumeLayout(false) -Me.GroupBox6.PerformLayout -Me.GroupBox21.ResumeLayout(false) -Me.GroupBox12.ResumeLayout(false) -Me.GroupBox65.ResumeLayout(false) -Me.GroupBox65.PerformLayout -CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit -Me.ResumeLayout(false) + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) + Me.SettingsPanel = New System.Windows.Forms.Panel() + Me.SettingsTabs = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.PNLGeneralSettings = New System.Windows.Forms.Panel() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.RandomHonorific = New System.Windows.Forms.TextBox() + Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() + Me.CBRandomDomme = New System.Windows.Forms.CheckBox() + Me.BtnRandomImageDir = New System.Windows.Forms.Button() + Me.BtnImportSettings = New System.Windows.Forms.Button() + Me.LblImportSettings = New System.Windows.Forms.Label() + Me.GroupBox64 = New System.Windows.Forms.GroupBox() + Me.CBMuteMedia = New System.Windows.Forms.CheckBox() + Me.GBDommeImages = New System.Windows.Forms.GroupBox() + Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() + Me.teaseRadio = New System.Windows.Forms.RadioButton() + Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() + Me.offRadio = New System.Windows.Forms.RadioButton() + Me.BTNDomImageDir = New System.Windows.Forms.Button() + Me.timedRadio = New System.Windows.Forms.RadioButton() + Me.TbxDomImageDir = New System.Windows.Forms.TextBox() + Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() + Me.LBLVRate = New System.Windows.Forms.Label() + Me.Label93 = New System.Windows.Forms.Label() + Me.LBLVVolume = New System.Windows.Forms.Label() + Me.Label68 = New System.Windows.Forms.Label() + Me.SliderVRate = New System.Windows.Forms.TrackBar() + Me.SliderVVolume = New System.Windows.Forms.TrackBar() + Me.TTSCheckBox = New System.Windows.Forms.CheckBox() + Me.TTSComboBox = New System.Windows.Forms.ComboBox() + Me.GBSafeword = New System.Windows.Forms.GroupBox() + Me.LBLSafeword = New System.Windows.Forms.Label() + Me.TBSafeword = New System.Windows.Forms.TextBox() + Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() + Me.CBAuditStartup = New System.Windows.Forms.CheckBox() + Me.CBDomDel = New System.Windows.Forms.CheckBox() + Me.CBSettingsPause = New System.Windows.Forms.CheckBox() + Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() + Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() + Me.GBGeneralImages = New System.Windows.Forms.GroupBox() + Me.CBImageInfo = New System.Windows.Forms.CheckBox() + Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() + Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() + Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() + Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() + Me.CBWebtease = New System.Windows.Forms.CheckBox() + Me.GBSubFont = New System.Windows.Forms.GroupBox() + Me.BTNSubColor = New System.Windows.Forms.Button() + Me.LBLSubColor = New System.Windows.Forms.Label() + Me.NBFontSize = New System.Windows.Forms.NumericUpDown() + Me.Label2 = New System.Windows.Forms.Label() + Me.FontComboBox = New System.Windows.Forms.ComboBox() + Me.GBDommeFont = New System.Windows.Forms.GroupBox() + Me.BTNDomColor = New System.Windows.Forms.Button() + Me.LBLDomColor = New System.Windows.Forms.Label() + Me.FontComboBoxD = New System.Windows.Forms.ComboBox() + Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() + Me.Label7 = New System.Windows.Forms.Label() + Me.CBInputIcon = New System.Windows.Forms.CheckBox() + Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() + Me.timestampCheckBox = New System.Windows.Forms.CheckBox() + Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() + Me.LBLGeneralSettings = New System.Windows.Forms.Label() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.GBGiveUp = New System.Windows.Forms.GroupBox() + Me.giveupCheckBox = New System.Windows.Forms.CheckBox() + Me.BTNLoadDomSet = New System.Windows.Forms.Button() + Me.BTNSaveDomSet = New System.Windows.Forms.Button() + Me.Label127 = New System.Windows.Forms.Label() + Me.Label126 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() + Me.TBEmoteEnd = New System.Windows.Forms.TextBox() + Me.Label67 = New System.Windows.Forms.Label() + Me.TBEmote = New System.Windows.Forms.TextBox() + Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() + Me.Label66 = New System.Windows.Forms.Label() + Me.CBMeMyMine = New System.Windows.Forms.CheckBox() + Me.GroupBox63 = New System.Windows.Forms.GroupBox() + Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() + Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() + Me.periodCheckBox = New System.Windows.Forms.CheckBox() + Me.commaCheckBox = New System.Windows.Forms.CheckBox() + Me.Label64 = New System.Windows.Forms.Label() + Me.GBDomRanges = New System.Windows.Forms.GroupBox() + Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() + Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() + Me.Label37 = New System.Windows.Forms.Label() + Me.Label39 = New System.Windows.Forms.Label() + Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() + Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label36 = New System.Windows.Forms.Label() + Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() + Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() + Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.GBDomStats = New System.Windows.Forms.GroupBox() + Me.Label128 = New System.Windows.Forms.Label() + Me.LBLEmpathy = New System.Windows.Forms.Label() + Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() + Me.Label83 = New System.Windows.Forms.Label() + Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() + Me.TBDomEyeColor = New System.Windows.Forms.TextBox() + Me.TBDomHairColor = New System.Windows.Forms.TextBox() + Me.domageNumBox = New System.Windows.Forms.NumericUpDown() + Me.Label47 = New System.Windows.Forms.Label() + Me.Label76 = New System.Windows.Forms.Label() + Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() + Me.Label84 = New System.Windows.Forms.Label() + Me.CBDomTattoos = New System.Windows.Forms.CheckBox() + Me.CBDomFreckles = New System.Windows.Forms.CheckBox() + Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.boobComboBox = New System.Windows.Forms.ComboBox() + Me.DomLevelDescLabel = New System.Windows.Forms.Label() + Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() + Me.Label43 = New System.Windows.Forms.Label() + Me.Label44 = New System.Windows.Forms.Label() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() + Me.GBDomPersonality = New System.Windows.Forms.GroupBox() + Me.degradingCheckBox = New System.Windows.Forms.CheckBox() + Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() + Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() + Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() + Me.crazyCheckBox = New System.Windows.Forms.CheckBox() + Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() + Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() + Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() + Me.orgasmlockrandombutton = New System.Windows.Forms.Button() + Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.orgasmsperlockButton = New System.Windows.Forms.Button() + Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() + Me.orgasmsperLabel = New System.Windows.Forms.Label() + Me.limitcheckbox = New System.Windows.Forms.CheckBox() + Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() + Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() + Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() + Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() + Me.GBDomPetNames = New System.Windows.Forms.GroupBox() + Me.Label74 = New System.Windows.Forms.Label() + Me.petnameBox7 = New System.Windows.Forms.TextBox() + Me.petnameBox8 = New System.Windows.Forms.TextBox() + Me.petnameBox1 = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.petnameBox4 = New System.Windows.Forms.TextBox() + Me.petnameBox6 = New System.Windows.Forms.TextBox() + Me.petnameBox2 = New System.Windows.Forms.TextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.petnameBox5 = New System.Windows.Forms.TextBox() + Me.petnameBox3 = New System.Windows.Forms.TextBox() + Me.Label54 = New System.Windows.Forms.Label() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.GroupBox22 = New System.Windows.Forms.GroupBox() + Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() + Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() + Me.Label75 = New System.Windows.Forms.Label() + Me.Label77 = New System.Windows.Forms.Label() + Me.GroupBox45 = New System.Windows.Forms.GroupBox() + Me.LBLCBTSlider = New System.Windows.Forms.Label() + Me.CBCBTBalls = New System.Windows.Forms.CheckBox() + Me.CBCBTCock = New System.Windows.Forms.CheckBox() + Me.CBTSlider = New System.Windows.Forms.TrackBar() + Me.GroupBox35 = New System.Windows.Forms.GroupBox() + Me.GroupBoxSorry = New System.Windows.Forms.GroupBox() + Me.TBSorry = New System.Windows.Forms.TextBox() + Me.GroupBox39 = New System.Windows.Forms.GroupBox() + Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() + Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() + Me.TBHonorific = New System.Windows.Forms.TextBox() + Me.GroupBox38 = New System.Windows.Forms.GroupBox() + Me.TBNo = New System.Windows.Forms.TextBox() + Me.GroupBox37 = New System.Windows.Forms.GroupBox() + Me.TBYes = New System.Windows.Forms.TextBox() + Me.GroupBox36 = New System.Windows.Forms.GroupBox() + Me.TBGreeting = New System.Windows.Forms.TextBox() + Me.GroupBox13 = New System.Windows.Forms.GroupBox() + Me.Label34 = New System.Windows.Forms.Label() + Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() + Me.LBLMinExtremeHold = New System.Windows.Forms.Label() + Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() + Me.Label133 = New System.Windows.Forms.Label() + Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() + Me.LBLMaxLongHold = New System.Windows.Forms.Label() + Me.Label78 = New System.Windows.Forms.Label() + Me.LBLMinLongHold = New System.Windows.Forms.Label() + Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() + Me.Label129 = New System.Windows.Forms.Label() + Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() + Me.LBLMaxHold = New System.Windows.Forms.Label() + Me.Label79 = New System.Windows.Forms.Label() + Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() + Me.LBLMinHold = New System.Windows.Forms.Label() + Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() + Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() + Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() + Me.Label55 = New System.Windows.Forms.Label() + Me.Label81 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() + Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() + Me.Label131 = New System.Windows.Forms.Label() + Me.PictureBox12 = New System.Windows.Forms.PictureBox() + Me.GroupBox32 = New System.Windows.Forms.GroupBox() + Me.LBLSubBdayFormat = New System.Windows.Forms.Label() + Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() + Me.CBOwnChastity = New System.Windows.Forms.CheckBox() + Me.CBChastityPA = New System.Windows.Forms.CheckBox() + Me.CBHimHer = New System.Windows.Forms.CheckBox() + Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() + Me.CBCockToClit = New System.Windows.Forms.CheckBox() + Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() + Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() + Me.CBSubPierced = New System.Windows.Forms.CheckBox() + Me.TBSubEyeColor = New System.Windows.Forms.TextBox() + Me.TBSubHairColor = New System.Windows.Forms.TextBox() + Me.Label63 = New System.Windows.Forms.Label() + Me.LBLSubInches = New System.Windows.Forms.Label() + Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() + Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() + Me.LBLSubCockSize = New System.Windows.Forms.Label() + Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() + Me.LBLSubEye = New System.Windows.Forms.Label() + Me.LBLSubHair = New System.Windows.Forms.Label() + Me.LBLSubBirthday = New System.Windows.Forms.Label() + Me.LBLSubAge = New System.Windows.Forms.Label() + Me.Label70 = New System.Windows.Forms.Label() + Me.TabPage16 = New System.Windows.Forms.TabPage() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.BTNScriptAvailable = New System.Windows.Forms.Button() + Me.BTNScriptNone = New System.Windows.Forms.Button() + Me.BTNScriptAll = New System.Windows.Forms.Button() + Me.BTNScriptOpen = New System.Windows.Forms.Button() + Me.LBLScriptReq = New System.Windows.Forms.Label() + Me.GroupBox31 = New System.Windows.Forms.GroupBox() + Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() + Me.TCScripts = New System.Windows.Forms.TabControl() + Me.TabPage21 = New System.Windows.Forms.TabPage() + Me.CLBStartList = New System.Windows.Forms.CheckedListBox() + Me.TabPage17 = New System.Windows.Forms.TabPage() + Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() + Me.TabPage18 = New System.Windows.Forms.TabPage() + Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() + Me.TabPage19 = New System.Windows.Forms.TabPage() + Me.CLBEndList = New System.Windows.Forms.CheckedListBox() + Me.GroupBox42 = New System.Windows.Forms.GroupBox() + Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox43 = New System.Windows.Forms.GroupBox() + Me.Label98 = New System.Windows.Forms.Label() + Me.Label104 = New System.Windows.Forms.Label() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.TabControl4 = New System.Windows.Forms.TabControl() + Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() + Me.CBURLPreview = New System.Windows.Forms.CheckBox() + Me.GroupBox66 = New System.Windows.Forms.GroupBox() + Me.PBURLPreview = New System.Windows.Forms.PictureBox() + Me.BTNURLFilesAll = New System.Windows.Forms.Button() + Me.BTNURLFilesNone = New System.Windows.Forms.Button() + Me.URLFileList = New System.Windows.Forms.CheckedListBox() + Me.TpImagesGenre = New System.Windows.Forms.TabPage() + Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() + Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() + Me.BtnImageUrlButt = New System.Windows.Forms.Button() + Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() + Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() + Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() + Me.BtnImageUrlHentai = New System.Windows.Forms.Button() + Me.BtnImageUrlGay = New System.Windows.Forms.Button() + Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() + Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() + Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() + Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() + Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() + Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() + Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() + Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() + Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() + Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() + Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() + Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() + Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() + Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() + Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() + Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() + Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() + Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() + Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() + Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() + Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() + Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.BTNIHardcore = New System.Windows.Forms.Button() + Me.TbxIHardcore = New System.Windows.Forms.TextBox() + Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() + Me.CBIHardcore = New System.Windows.Forms.CheckBox() + Me.CBISoftcore = New System.Windows.Forms.CheckBox() + Me.TbxISoftcore = New System.Windows.Forms.TextBox() + Me.CBButtSubDir = New System.Windows.Forms.CheckBox() + Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() + Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() + Me.CBILezdomSD = New System.Windows.Forms.CheckBox() + Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() + Me.CBILesbianSD = New System.Windows.Forms.CheckBox() + Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() + Me.CBILesbian = New System.Windows.Forms.CheckBox() + Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() + Me.CBIBlowjob = New System.Windows.Forms.CheckBox() + Me.CBIGaySD = New System.Windows.Forms.CheckBox() + Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() + Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() + Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() + Me.TbxIButts = New System.Windows.Forms.TextBox() + Me.CBIFemdom = New System.Windows.Forms.CheckBox() + Me.TbxILesbian = New System.Windows.Forms.TextBox() + Me.BTNISoftcore = New System.Windows.Forms.Button() + Me.CBILezdom = New System.Windows.Forms.CheckBox() + Me.TbxIBoobs = New System.Windows.Forms.TextBox() + Me.CBIHentai = New System.Windows.Forms.CheckBox() + Me.TbxIBlowjob = New System.Windows.Forms.TextBox() + Me.CBIGay = New System.Windows.Forms.CheckBox() + Me.TbxIGeneral = New System.Windows.Forms.TextBox() + Me.CBIMaledom = New System.Windows.Forms.CheckBox() + Me.TbxIFemdom = New System.Windows.Forms.TextBox() + Me.BTNILesbian = New System.Windows.Forms.Button() + Me.TbxICaptions = New System.Windows.Forms.TextBox() + Me.CBICaptions = New System.Windows.Forms.CheckBox() + Me.TbxILezdom = New System.Windows.Forms.TextBox() + Me.TbxIMaledom = New System.Windows.Forms.TextBox() + Me.BTNButtPath = New System.Windows.Forms.Button() + Me.TbxIHentai = New System.Windows.Forms.TextBox() + Me.CBIGeneral = New System.Windows.Forms.CheckBox() + Me.TbxIGay = New System.Windows.Forms.TextBox() + Me.CBIBoobs = New System.Windows.Forms.CheckBox() + Me.CBIButts = New System.Windows.Forms.CheckBox() + Me.BTNIBlowjob = New System.Windows.Forms.Button() + Me.BTNIFemdom = New System.Windows.Forms.Button() + Me.BTNBoobPath = New System.Windows.Forms.Button() + Me.BTNILezdom = New System.Windows.Forms.Button() + Me.BTNIHentai = New System.Windows.Forms.Button() + Me.BTNIGay = New System.Windows.Forms.Button() + Me.BTNIMaledom = New System.Windows.Forms.Button() + Me.BTNICaptions = New System.Windows.Forms.Button() + Me.BTNIGeneral = New System.Windows.Forms.Button() + Me.TabPage33 = New System.Windows.Forms.TabPage() + Me.TabControl5 = New System.Windows.Forms.TabControl() + Me.TabPage34 = New System.Windows.Forms.TabPage() + Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() + Me.CBTagAllFours = New System.Windows.Forms.CheckBox() + Me.CBTagGlaring = New System.Windows.Forms.CheckBox() + Me.CBTagSmiling = New System.Windows.Forms.CheckBox() + Me.TBTagDir = New System.Windows.Forms.TextBox() + Me.CBTagPiercing = New System.Windows.Forms.CheckBox() + Me.CBTagLegs = New System.Windows.Forms.CheckBox() + Me.TBTagFurniture = New System.Windows.Forms.TextBox() + Me.CBTagFurniture = New System.Windows.Forms.CheckBox() + Me.TBTagSexToy = New System.Windows.Forms.TextBox() + Me.CBTagSexToy = New System.Windows.Forms.CheckBox() + Me.TBTagTattoo = New System.Windows.Forms.TextBox() + Me.CBTagTattoo = New System.Windows.Forms.CheckBox() + Me.TBTagUnderwear = New System.Windows.Forms.TextBox() + Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() + Me.TBTagGarment = New System.Windows.Forms.TextBox() + Me.CBTagGarment = New System.Windows.Forms.CheckBox() + Me.Label72 = New System.Windows.Forms.Label() + Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() + Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() + Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() + Me.CBTagNaked = New System.Windows.Forms.RadioButton() + Me.CBTagSideView = New System.Windows.Forms.CheckBox() + Me.BTNTagPrevious = New System.Windows.Forms.Button() + Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() + Me.BTNTagNext = New System.Windows.Forms.Button() + Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() + Me.LBLTagCount = New System.Windows.Forms.Label() + Me.CBTagSucking = New System.Windows.Forms.CheckBox() + Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() + Me.CBTagFeet = New System.Windows.Forms.CheckBox() + Me.CBTagBoobs = New System.Windows.Forms.CheckBox() + Me.CBTagAss = New System.Windows.Forms.CheckBox() + Me.CBTagPussy = New System.Windows.Forms.CheckBox() + Me.BTNTagSave = New System.Windows.Forms.Button() + Me.BTNTagDir = New System.Windows.Forms.Button() + Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() + Me.CBTagFace = New System.Windows.Forms.CheckBox() + Me.TabPage35 = New System.Windows.Forms.TabPage() + Me.GroupBox55 = New System.Windows.Forms.GroupBox() + Me.CBTagNurse = New System.Windows.Forms.CheckBox() + Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() + Me.CBTagMaid = New System.Windows.Forms.CheckBox() + Me.CBTagTeacher = New System.Windows.Forms.CheckBox() + Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() + Me.GroupBox53 = New System.Windows.Forms.GroupBox() + Me.CBTagTrap = New System.Windows.Forms.CheckBox() + Me.CBTagTentacles = New System.Windows.Forms.CheckBox() + Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() + Me.CBTagBukkake = New System.Windows.Forms.CheckBox() + Me.CBTagGanguro = New System.Windows.Forms.CheckBox() + Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() + Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() + Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() + Me.CBTagAhegao = New System.Windows.Forms.CheckBox() + Me.CBTagShibari = New System.Windows.Forms.CheckBox() + Me.GroupBox49 = New System.Windows.Forms.GroupBox() + Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() + Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() + Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() + Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() + Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() + Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() + Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() + Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() + Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() + Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() + Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() + Me.GroupBox46 = New System.Windows.Forms.GroupBox() + Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() + Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() + Me.CBTagFemdom = New System.Windows.Forms.CheckBox() + Me.CBTag2M = New System.Windows.Forms.CheckBox() + Me.CBTagFutadom = New System.Windows.Forms.CheckBox() + Me.CBTagFemsub = New System.Windows.Forms.CheckBox() + Me.CBTag2Futa = New System.Windows.Forms.CheckBox() + Me.CBTagMaledom = New System.Windows.Forms.CheckBox() + Me.CBTag3M = New System.Windows.Forms.CheckBox() + Me.CBTagFutasub = New System.Windows.Forms.CheckBox() + Me.CBTag3Futa = New System.Windows.Forms.CheckBox() + Me.CBTagMalesub = New System.Windows.Forms.CheckBox() + Me.CBTag2F = New System.Windows.Forms.CheckBox() + Me.CBTag1Futa = New System.Windows.Forms.CheckBox() + Me.CBTag1M = New System.Windows.Forms.CheckBox() + Me.CBTag1F = New System.Windows.Forms.CheckBox() + Me.CBTag3F = New System.Windows.Forms.CheckBox() + Me.GroupBox54 = New System.Windows.Forms.GroupBox() + Me.CBTagTattoos = New System.Windows.Forms.CheckBox() + Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() + Me.CBTagDomme = New System.Windows.Forms.CheckBox() + Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() + Me.CBTagWatersports = New System.Windows.Forms.CheckBox() + Me.CBTagStockings = New System.Windows.Forms.CheckBox() + Me.CBTagCumshot = New System.Windows.Forms.CheckBox() + Me.CBTagCumEating = New System.Windows.Forms.CheckBox() + Me.CBTagVibrator = New System.Windows.Forms.CheckBox() + Me.CBTagDildo = New System.Windows.Forms.CheckBox() + Me.CBTagKissing = New System.Windows.Forms.CheckBox() + Me.GroupBox51 = New System.Windows.Forms.GroupBox() + Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() + Me.CBTagGag = New System.Windows.Forms.CheckBox() + Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() + Me.CBTagWhipping = New System.Windows.Forms.CheckBox() + Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() + Me.CBTagElectro = New System.Windows.Forms.CheckBox() + Me.CBTagHotWax = New System.Windows.Forms.CheckBox() + Me.CBTagClamps = New System.Windows.Forms.CheckBox() + Me.CBTagStrapon = New System.Windows.Forms.CheckBox() + Me.CBTagSpanking = New System.Windows.Forms.CheckBox() + Me.CBTagNeedles = New System.Windows.Forms.CheckBox() + Me.GroupBox50 = New System.Windows.Forms.GroupBox() + Me.CBTagRimming = New System.Windows.Forms.CheckBox() + Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() + Me.CBTagMissionary = New System.Windows.Forms.CheckBox() + Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() + Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() + Me.CBTagFingering = New System.Windows.Forms.CheckBox() + Me.CBTagGangbang = New System.Windows.Forms.CheckBox() + Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() + Me.CBTagDP = New System.Windows.Forms.CheckBox() + Me.CBTagHandjob = New System.Windows.Forms.CheckBox() + Me.CBTagStanding = New System.Windows.Forms.CheckBox() + Me.CBTagFootjob = New System.Windows.Forms.CheckBox() + Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() + Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() + Me.CBTagTitjob = New System.Windows.Forms.CheckBox() + Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() + Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() + Me.GroupBox48 = New System.Windows.Forms.GroupBox() + Me.CBTagArtwork = New System.Windows.Forms.CheckBox() + Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() + Me.CBTagPOV = New System.Windows.Forms.CheckBox() + Me.CBTagHardcore = New System.Windows.Forms.CheckBox() + Me.CBTagTD = New System.Windows.Forms.CheckBox() + Me.CBTagGay = New System.Windows.Forms.CheckBox() + Me.CBTagBath = New System.Windows.Forms.CheckBox() + Me.CBTagBisexual = New System.Windows.Forms.CheckBox() + Me.CBTagCFNM = New System.Windows.Forms.CheckBox() + Me.CBTagLesbian = New System.Windows.Forms.CheckBox() + Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() + Me.CBTagSM = New System.Windows.Forms.CheckBox() + Me.CBTagBondage = New System.Windows.Forms.CheckBox() + Me.CBTagSoloM = New System.Windows.Forms.CheckBox() + Me.CBTagSoloF = New System.Windows.Forms.CheckBox() + Me.CBTagChastity = New System.Windows.Forms.CheckBox() + Me.CBTagShower = New System.Windows.Forms.CheckBox() + Me.TBLocalTagDir = New System.Windows.Forms.TextBox() + Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() + Me.BTNLocalTagNext = New System.Windows.Forms.Button() + Me.LBLLocalTagCount = New System.Windows.Forms.Label() + Me.BTNLocalTagSave = New System.Windows.Forms.Button() + Me.BTNLocalTagDir = New System.Windows.Forms.Button() + Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.BTNWIContinue = New System.Windows.Forms.Button() + Me.BTNWIAddandContinue = New System.Windows.Forms.Button() + Me.BTNWICancel = New System.Windows.Forms.Button() + Me.CBWIReview = New System.Windows.Forms.CheckBox() + Me.BTNWIBrowse = New System.Windows.Forms.Button() + Me.TBWIDirectory = New System.Windows.Forms.TextBox() + Me.BTNWIDisliked = New System.Windows.Forms.Button() + Me.BTNWILiked = New System.Windows.Forms.Button() + Me.BTNWIRemove = New System.Windows.Forms.Button() + Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() + Me.BTNWICreateURL = New System.Windows.Forms.Button() + Me.LBLWebImageCount = New System.Windows.Forms.Label() + Me.BTNWISave = New System.Windows.Forms.Button() + Me.BTNWIOpenURL = New System.Windows.Forms.Button() + Me.BTNWIPrevious = New System.Windows.Forms.Button() + Me.BTNWINext = New System.Windows.Forms.Button() + Me.WebPictureBox = New System.Windows.Forms.PictureBox() + Me.Label71 = New System.Windows.Forms.Label() + Me.TpVideoSettings = New System.Windows.Forms.TabPage() + Me.PnlVideoSettings = New System.Windows.Forms.Panel() + Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() + Me.BTNRefreshVideos = New System.Windows.Forms.Button() + Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() + Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() + Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() + Me.BTNVideoGeneralD = New System.Windows.Forms.Button() + Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() + Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() + Me.LblVideoCHTotalD = New System.Windows.Forms.Label() + Me.LblVideoJOITotalD = New System.Windows.Forms.Label() + Me.TxbVideoCHD = New System.Windows.Forms.TextBox() + Me.TxbVideoJOID = New System.Windows.Forms.TextBox() + Me.BTNVideoCHD = New System.Windows.Forms.Button() + Me.BTNVideoJOID = New System.Windows.Forms.Button() + Me.CBVideoJOID = New System.Windows.Forms.CheckBox() + Me.CBVideoCHD = New System.Windows.Forms.CheckBox() + Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() + Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() + Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() + Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() + Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() + Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() + Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() + Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() + Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() + Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() + Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() + Me.BTNVideoFemSubD = New System.Windows.Forms.Button() + Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() + Me.BTNVideoFemDomD = New System.Windows.Forms.Button() + Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() + Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() + Me.BTNVideoLesbianD = New System.Windows.Forms.Button() + Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() + Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() + Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() + Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() + Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() + Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() + Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() + Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() + Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() + Me.VideoDescriptionLabel = New System.Windows.Forms.Label() + Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() + Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() + Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() + Me.BTNVideoGeneral = New System.Windows.Forms.Button() + Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() + Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() + Me.LblVideoCHTotal = New System.Windows.Forms.Label() + Me.LblVideoJOITotal = New System.Windows.Forms.Label() + Me.TxbVideoCH = New System.Windows.Forms.TextBox() + Me.TxbVideoJOI = New System.Windows.Forms.TextBox() + Me.BTNVideoCH = New System.Windows.Forms.Button() + Me.BTNVideoJOI = New System.Windows.Forms.Button() + Me.CBVideoJOI = New System.Windows.Forms.CheckBox() + Me.CBVideoCH = New System.Windows.Forms.CheckBox() + Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() + Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() + Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() + Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() + Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() + Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() + Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() + Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() + Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() + Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() + Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() + Me.BTNVideoFemSub = New System.Windows.Forms.Button() + Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() + Me.BTNVideoFemDom = New System.Windows.Forms.Button() + Me.BTNVideoBlowjob = New System.Windows.Forms.Button() + Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() + Me.BTNVideoLesbian = New System.Windows.Forms.Button() + Me.BTNVideoSoftCore = New System.Windows.Forms.Button() + Me.BTNVideoHardCore = New System.Windows.Forms.Button() + Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() + Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() + Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() + Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() + Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() + Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() + Me.LblVideoHeader = New System.Windows.Forms.Label() + Me.TabPage20 = New System.Windows.Forms.TabPage() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage22 = New System.Windows.Forms.TabPage() + Me.PNLGlitter = New System.Windows.Forms.Panel() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.LBLCurrentDomme = New System.Windows.Forms.Label() + Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() + Me.BTNDomChangeRandom = New System.Windows.Forms.Button() + Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() + Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() + Me.BTNDomChangeDomme = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button16 = New System.Windows.Forms.Button() + Me.Label121 = New System.Windows.Forms.Label() + Me.Label122 = New System.Windows.Forms.Label() + Me.GBGlitterD = New System.Windows.Forms.GroupBox() + Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() + Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() + Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() + Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() + Me.BTNGlitterD = New System.Windows.Forms.Button() + Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() + Me.LBLGlitterSlider = New System.Windows.Forms.Label() + Me.CBCustom2 = New System.Windows.Forms.CheckBox() + Me.GlitterSlider = New System.Windows.Forms.TrackBar() + Me.CBCustom1 = New System.Windows.Forms.CheckBox() + Me.CBDaily = New System.Windows.Forms.CheckBox() + Me.CBTrivia = New System.Windows.Forms.CheckBox() + Me.TBGlitterShortName = New System.Windows.Forms.TextBox() + Me.CBEgotist = New System.Windows.Forms.CheckBox() + Me.CBTease = New System.Windows.Forms.CheckBox() + Me.GlitterAV = New System.Windows.Forms.PictureBox() + Me.GBGlitter1 = New System.Windows.Forms.GroupBox() + Me.Label167 = New System.Windows.Forms.Label() + Me.G1Honorific = New System.Windows.Forms.TextBox() + Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() + Me.BtnContact1ImageDir = New System.Windows.Forms.Button() + Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() + Me.BTNGlitter1 = New System.Windows.Forms.Button() + Me.LBLGlitterNC1 = New System.Windows.Forms.Label() + Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() + Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() + Me.CBGlitter1 = New System.Windows.Forms.CheckBox() + Me.TBGlitter1 = New System.Windows.Forms.TextBox() + Me.GlitterAV1 = New System.Windows.Forms.PictureBox() + Me.GBGlitter3 = New System.Windows.Forms.GroupBox() + Me.Label168 = New System.Windows.Forms.Label() + Me.G3Honorific = New System.Windows.Forms.TextBox() + Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() + Me.BtnContact3ImageDir = New System.Windows.Forms.Button() + Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() + Me.BTNGlitter3 = New System.Windows.Forms.Button() + Me.LBLGlitterNC3 = New System.Windows.Forms.Label() + Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() + Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() + Me.CBGlitter3 = New System.Windows.Forms.CheckBox() + Me.TBGlitter3 = New System.Windows.Forms.TextBox() + Me.GlitterAV3 = New System.Windows.Forms.PictureBox() + Me.GBGlitter2 = New System.Windows.Forms.GroupBox() + Me.Label169 = New System.Windows.Forms.Label() + Me.G2Honorific = New System.Windows.Forms.TextBox() + Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() + Me.BtnContact2ImageDir = New System.Windows.Forms.Button() + Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() + Me.BTNGlitter2 = New System.Windows.Forms.Button() + Me.LBLGlitterNC2 = New System.Windows.Forms.Label() + Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() + Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() + Me.CBGlitter2 = New System.Windows.Forms.CheckBox() + Me.TBGlitter2 = New System.Windows.Forms.TextBox() + Me.GlitterAV2 = New System.Windows.Forms.PictureBox() + Me.TpGames = New System.Windows.Forms.TabPage() + Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() + Me.LblCardsSetupNote = New System.Windows.Forms.Label() + Me.CBGameSounds = New System.Windows.Forms.CheckBox() + Me.GbxCardsGold = New System.Windows.Forms.GroupBox() + Me.GN6 = New System.Windows.Forms.TextBox() + Me.GP6 = New System.Windows.Forms.PictureBox() + Me.GN2 = New System.Windows.Forms.TextBox() + Me.GP2 = New System.Windows.Forms.PictureBox() + Me.GP5 = New System.Windows.Forms.PictureBox() + Me.GN1 = New System.Windows.Forms.TextBox() + Me.GP1 = New System.Windows.Forms.PictureBox() + Me.GN5 = New System.Windows.Forms.TextBox() + Me.GN3 = New System.Windows.Forms.TextBox() + Me.GP3 = New System.Windows.Forms.PictureBox() + Me.GP4 = New System.Windows.Forms.PictureBox() + Me.GN4 = New System.Windows.Forms.TextBox() + Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() + Me.CardBack = New System.Windows.Forms.PictureBox() + Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() + Me.BN6 = New System.Windows.Forms.TextBox() + Me.BN3 = New System.Windows.Forms.TextBox() + Me.BP3 = New System.Windows.Forms.PictureBox() + Me.BP6 = New System.Windows.Forms.PictureBox() + Me.BN2 = New System.Windows.Forms.TextBox() + Me.BN5 = New System.Windows.Forms.TextBox() + Me.BP5 = New System.Windows.Forms.PictureBox() + Me.BP2 = New System.Windows.Forms.PictureBox() + Me.BN1 = New System.Windows.Forms.TextBox() + Me.BN4 = New System.Windows.Forms.TextBox() + Me.BP4 = New System.Windows.Forms.PictureBox() + Me.BP1 = New System.Windows.Forms.PictureBox() + Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() + Me.SN6 = New System.Windows.Forms.TextBox() + Me.SP6 = New System.Windows.Forms.PictureBox() + Me.SN2 = New System.Windows.Forms.TextBox() + Me.SP2 = New System.Windows.Forms.PictureBox() + Me.SN1 = New System.Windows.Forms.TextBox() + Me.SP5 = New System.Windows.Forms.PictureBox() + Me.SP1 = New System.Windows.Forms.PictureBox() + Me.SN5 = New System.Windows.Forms.TextBox() + Me.SN3 = New System.Windows.Forms.TextBox() + Me.SN4 = New System.Windows.Forms.TextBox() + Me.SP3 = New System.Windows.Forms.PictureBox() + Me.SP4 = New System.Windows.Forms.PictureBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.Panel10 = New System.Windows.Forms.Panel() + Me.TBWishlistComment = New System.Windows.Forms.TextBox() + Me.Label32 = New System.Windows.Forms.Label() + Me.TBWishlistItem = New System.Windows.Forms.TextBox() + Me.radioGold = New System.Windows.Forms.RadioButton() + Me.Label42 = New System.Windows.Forms.Label() + Me.radioSilver = New System.Windows.Forms.RadioButton() + Me.TBWishlistURL = New System.Windows.Forms.TextBox() + Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() + Me.Label48 = New System.Windows.Forms.Label() + Me.Label73 = New System.Windows.Forms.Label() + Me.Label107 = New System.Windows.Forms.Label() + Me.BTNWishlistCreate = New System.Windows.Forms.Button() + Me.Label18 = New System.Windows.Forms.Label() + Me.PNLWishList = New System.Windows.Forms.Panel() + Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() + Me.LBLWishListText = New System.Windows.Forms.Label() + Me.LBLWishlistCost = New System.Windows.Forms.Label() + Me.WishlistCostGold = New System.Windows.Forms.PictureBox() + Me.LBLWishListName = New System.Windows.Forms.Label() + Me.WishlistPreview = New System.Windows.Forms.PictureBox() + Me.TabPage26 = New System.Windows.Forms.TabPage() + Me.Panel12 = New System.Windows.Forms.Panel() + Me.GroupBox9 = New System.Windows.Forms.GroupBox() + Me.Button32 = New System.Windows.Forms.Button() + Me.Button31 = New System.Windows.Forms.Button() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.CBTransparentTime = New System.Windows.Forms.CheckBox() + Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() + Me.Label137 = New System.Windows.Forms.Label() + Me.Label138 = New System.Windows.Forms.Label() + Me.LBLDateBackColor2 = New System.Windows.Forms.Label() + Me.LBLTextColor = New System.Windows.Forms.Label() + Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() + Me.LBLTextColor2 = New System.Windows.Forms.Label() + Me.LBLChatTextColor = New System.Windows.Forms.Label() + Me.LBLBackColor2 = New System.Windows.Forms.Label() + Me.LBLButtonColor = New System.Windows.Forms.Label() + Me.LBLChatWindowColor = New System.Windows.Forms.Label() + Me.LBLBackColor = New System.Windows.Forms.Label() + Me.LBLChatTextColor2 = New System.Windows.Forms.Label() + Me.LBLButtonColor2 = New System.Windows.Forms.Label() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.Label144 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.CBFlipBack = New System.Windows.Forms.CheckBox() + Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() + Me.Button17 = New System.Windows.Forms.Button() + Me.CBStretchBack = New System.Windows.Forms.CheckBox() + Me.Button18 = New System.Windows.Forms.Button() + Me.Label164 = New System.Windows.Forms.Label() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.GroupBox69 = New System.Windows.Forms.GroupBox() + Me.TypesSpeedVal = New System.Windows.Forms.Label() + Me.TypeSpeedLabel = New System.Windows.Forms.Label() + Me.TimedWriting = New System.Windows.Forms.CheckBox() + Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() + Me.GroupBox68 = New System.Windows.Forms.GroupBox() + Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() + Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() + Me.Label165 = New System.Windows.Forms.Label() + Me.Label166 = New System.Windows.Forms.Label() + Me.GroupBox67 = New System.Windows.Forms.GroupBox() + Me.Label161 = New System.Windows.Forms.Label() + Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() + Me.Label162 = New System.Windows.Forms.Label() + Me.Label163 = New System.Windows.Forms.Label() + Me.Label158 = New System.Windows.Forms.Label() + Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() + Me.Label159 = New System.Windows.Forms.Label() + Me.Label160 = New System.Windows.Forms.Label() + Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() + Me.Label119 = New System.Windows.Forms.Label() + Me.Label157 = New System.Windows.Forms.Label() + Me.Label151 = New System.Windows.Forms.Label() + Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() + Me.Label154 = New System.Windows.Forms.Label() + Me.Label155 = New System.Windows.Forms.Label() + Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() + Me.Label146 = New System.Windows.Forms.Label() + Me.Label149 = New System.Windows.Forms.Label() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.Label112 = New System.Windows.Forms.Label() + Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() + Me.Label6 = New System.Windows.Forms.Label() + Me.GroupBox57 = New System.Windows.Forms.GroupBox() + Me.Label139 = New System.Windows.Forms.Label() + Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() + Me.LBLVtf = New System.Windows.Forms.Label() + Me.LBLStf = New System.Windows.Forms.Label() + Me.SliderSTF = New System.Windows.Forms.TrackBar() + Me.TauntSlider = New System.Windows.Forms.TrackBar() + Me.Label106 = New System.Windows.Forms.Label() + Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() + Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() + Me.Label103 = New System.Windows.Forms.Label() + Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() + Me.Label105 = New System.Windows.Forms.Label() + Me.Label101 = New System.Windows.Forms.Label() + Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() + Me.Label102 = New System.Windows.Forms.Label() + Me.Label97 = New System.Windows.Forms.Label() + Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() + Me.Label99 = New System.Windows.Forms.Label() + Me.Label96 = New System.Windows.Forms.Label() + Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() + Me.Label95 = New System.Windows.Forms.Label() + Me.Label49 = New System.Windows.Forms.Label() + Me.Label141 = New System.Windows.Forms.Label() + Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() + Me.Label90 = New System.Windows.Forms.Label() + Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() + Me.Label91 = New System.Windows.Forms.Label() + Me.Label92 = New System.Windows.Forms.Label() + Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() + Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() + Me.CBRangeRuin = New System.Windows.Forms.CheckBox() + Me.GroupBox17 = New System.Windows.Forms.GroupBox() + Me.GroupBox19 = New System.Windows.Forms.GroupBox() + Me.Label110 = New System.Windows.Forms.Label() + Me.Label111 = New System.Windows.Forms.Label() + Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() + Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() + Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() + Me.Label26 = New System.Windows.Forms.Label() + Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label29 = New System.Windows.Forms.Label() + Me.GroupBox18 = New System.Windows.Forms.GroupBox() + Me.Label108 = New System.Windows.Forms.Label() + Me.Label109 = New System.Windows.Forms.Label() + Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() + Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() + Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() + Me.CBCensorConstant = New System.Windows.Forms.CheckBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() + Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() + Me.Label89 = New System.Windows.Forms.Label() + Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() + Me.Label86 = New System.Windows.Forms.Label() + Me.Label82 = New System.Windows.Forms.Label() + Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() + Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() + Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.Label38 = New System.Windows.Forms.Label() + Me.TabPage13 = New System.Windows.Forms.TabPage() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage27 = New System.Windows.Forms.TabPage() + Me.TBPlaylistSave = New System.Windows.Forms.TextBox() + Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() + Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() + Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() + Me.BTNPlaylistEnd = New System.Windows.Forms.Button() + Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() + Me.BTNPlaylistSave = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() + Me.WBPlaylist = New System.Windows.Forms.WebBrowser() + Me.Label80 = New System.Windows.Forms.Label() + Me.LBLPlaylIstLink = New System.Windows.Forms.Label() + Me.LBLPlaylistModule = New System.Windows.Forms.Label() + Me.LBLPLaylistStart = New System.Windows.Forms.Label() + Me.LBPlaylist = New System.Windows.Forms.ListBox() + Me.TabPage14 = New System.Windows.Forms.TabPage() + Me.LBLKeywordPreview = New System.Windows.Forms.Label() + Me.Label88 = New System.Windows.Forms.Label() + Me.TBKeywordPreview = New System.Windows.Forms.TextBox() + Me.Button37 = New System.Windows.Forms.Button() + Me.Button50 = New System.Windows.Forms.Button() + Me.Button22 = New System.Windows.Forms.Button() + Me.TBKeyWords = New System.Windows.Forms.TextBox() + Me.LBKeyWords = New System.Windows.Forms.ListBox() + Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() + Me.TabPage24 = New System.Windows.Forms.TabPage() + Me.Button9 = New System.Windows.Forms.Button() + Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.TBResponses = New System.Windows.Forms.TextBox() + Me.LBResponses = New System.Windows.Forms.ListBox() + Me.RTBResponses = New System.Windows.Forms.RichTextBox() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() + Me.GroupBox29 = New System.Windows.Forms.GroupBox() + Me.Label51 = New System.Windows.Forms.Label() + Me.BTNVideoModClear = New System.Windows.Forms.Button() + Me.GroupBox28 = New System.Windows.Forms.GroupBox() + Me.CBVTType = New System.Windows.Forms.ComboBox() + Me.BTNVideoModLoad = New System.Windows.Forms.Button() + Me.GroupBox30 = New System.Windows.Forms.GroupBox() + Me.LBVidScript = New System.Windows.Forms.ListBox() + Me.BTNVideoModSave = New System.Windows.Forms.Button() + Me.TabPage15 = New System.Windows.Forms.TabPage() + Me.Label62 = New System.Windows.Forms.Label() + Me.Label61 = New System.Windows.Forms.Label() + Me.Label57 = New System.Windows.Forms.Label() + Me.Label58 = New System.Windows.Forms.Label() + Me.Label60 = New System.Windows.Forms.Label() + Me.TBGlitModFileName = New System.Windows.Forms.TextBox() + Me.GroupBox34 = New System.Windows.Forms.GroupBox() + Me.Label52 = New System.Windows.Forms.Label() + Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() + Me.Button26 = New System.Windows.Forms.Button() + Me.Label56 = New System.Windows.Forms.Label() + Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() + Me.LBGlitModScripts = New System.Windows.Forms.ListBox() + Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() + Me.LBLGlitModDomType = New System.Windows.Forms.Label() + Me.Button29 = New System.Windows.Forms.Button() + Me.CBGlitModType = New System.Windows.Forms.ComboBox() + Me.Label59 = New System.Windows.Forms.Label() + Me.Label50 = New System.Windows.Forms.Label() + Me.TabPage25 = New System.Windows.Forms.TabPage() + Me.Panel11 = New System.Windows.Forms.Panel() + Me.GroupBox62 = New System.Windows.Forms.GroupBox() + Me.RBGerman = New System.Windows.Forms.RadioButton() + Me.RBEnglish = New System.Windows.Forms.RadioButton() + Me.GroupBox33 = New System.Windows.Forms.GroupBox() + Me.BTNOfflineMode = New System.Windows.Forms.Button() + Me.LBLOfflineMode = New System.Windows.Forms.Label() + Me.Label140 = New System.Windows.Forms.Label() + Me.Button11 = New System.Windows.Forms.Button() + Me.LBLChastityState = New System.Windows.Forms.Label() + Me.Label120 = New System.Windows.Forms.Label() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.CBOutputErrors = New System.Windows.Forms.CheckBox() + Me.GroupBox27 = New System.Windows.Forms.GroupBox() + Me.Button6 = New System.Windows.Forms.Button() + Me.LBLSesSpace = New System.Windows.Forms.Label() + Me.Button3 = New System.Windows.Forms.Button() + Me.LBLSesFiles = New System.Windows.Forms.Label() + Me.Label125 = New System.Windows.Forms.Label() + Me.Label124 = New System.Windows.Forms.Label() + Me.GroupBox20 = New System.Windows.Forms.GroupBox() + Me.BTNURLFileReplace = New System.Windows.Forms.Button() + Me.Label87 = New System.Windows.Forms.Label() + Me.TBURLFileWith = New System.Windows.Forms.TextBox() + Me.Label118 = New System.Windows.Forms.Label() + Me.Label85 = New System.Windows.Forms.Label() + Me.TBURLFileReplace = New System.Windows.Forms.TextBox() + Me.Label53 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() + Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() + Me.Label117 = New System.Windows.Forms.Label() + Me.Label116 = New System.Windows.Forms.Label() + Me.PBCurrent = New System.Windows.Forms.ProgressBar() + Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() + Me.PBMaintenance = New System.Windows.Forms.ProgressBar() + Me.LBLMaintenance = New System.Windows.Forms.Label() + Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() + Me.GroupBox15 = New System.Windows.Forms.GroupBox() + Me.Label115 = New System.Windows.Forms.Label() + Me.TBWebStop = New System.Windows.Forms.TextBox() + Me.TBWebStart = New System.Windows.Forms.TextBox() + Me.Label114 = New System.Windows.Forms.Label() + Me.WebToy = New System.Windows.Forms.WebBrowser() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.Label148 = New System.Windows.Forms.Label() + Me.TabPage28 = New System.Windows.Forms.TabPage() + Me.TabControl3 = New System.Windows.Forms.TabControl() + Me.TabPage29 = New System.Windows.Forms.TabPage() + Me.Label143 = New System.Windows.Forms.Label() + Me.LBLDebugScriptTime = New System.Windows.Forms.Label() + Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() + Me.GroupBox26 = New System.Windows.Forms.GroupBox() + Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() + Me.Button19 = New System.Windows.Forms.Button() + Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() + Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() + Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() + Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() + Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() + Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() + Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() + Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() + Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() + Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() + Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() + Me.Label145 = New System.Windows.Forms.Label() + Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() + Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() + Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() + Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() + Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() + Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() + Me.Label142 = New System.Windows.Forms.Label() + Me.Label150 = New System.Windows.Forms.Label() + Me.Label152 = New System.Windows.Forms.Label() + Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() + Me.Label147 = New System.Windows.Forms.Label() + Me.TabPage30 = New System.Windows.Forms.TabPage() + Me.Button33 = New System.Windows.Forms.Button() + Me.Button24 = New System.Windows.Forms.Button() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.Label130 = New System.Windows.Forms.Label() + Me.Label123 = New System.Windows.Forms.Label() + Me.Label69 = New System.Windows.Forms.Label() + Me.Label113 = New System.Windows.Forms.Label() + Me.Label40 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.Label41 = New System.Windows.Forms.Label() + Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() + Me.GroupBox47 = New System.Windows.Forms.GroupBox() + Me.GroupBox41 = New System.Windows.Forms.GroupBox() + Me.Button34 = New System.Windows.Forms.Button() + Me.GroupBox40 = New System.Windows.Forms.GroupBox() + Me.GroupBox44 = New System.Windows.Forms.GroupBox() + Me.Label100 = New System.Windows.Forms.Label() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() + Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() + Me.Label94 = New System.Windows.Forms.Label() + Me.LBLLastRuined = New System.Windows.Forms.Label() + Me.Label65 = New System.Windows.Forms.Label() + Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() + Me.LBLLastOrgasm = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.GroupBox21 = New System.Windows.Forms.GroupBox() + Me.Label153 = New System.Windows.Forms.Label() + Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() + Me.Label156 = New System.Windows.Forms.Label() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.GetColor = New System.Windows.Forms.ColorDialog() + Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() + Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() + Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() + Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() + Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) + Me.GroupBox65 = New System.Windows.Forms.GroupBox() + Me.Label136 = New System.Windows.Forms.Label() + Me.Label134 = New System.Windows.Forms.Label() + Me.Label132 = New System.Windows.Forms.Label() + Me.TrackBar1 = New System.Windows.Forms.TrackBar() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.Label135 = New System.Windows.Forms.Label() + Me.TrackBar2 = New System.Windows.Forms.TrackBar() + Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() + Me.Label170 = New System.Windows.Forms.Label() + Me.SettingsPanel.SuspendLayout() + Me.SettingsTabs.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.PNLGeneralSettings.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox64.SuspendLayout() + Me.GBDommeImages.SuspendLayout() + CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGeneralTextToSpeech.SuspendLayout() + CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBSafeword.SuspendLayout() + Me.GBGeneralSystem.SuspendLayout() + Me.GBGeneralImages.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGeneralSettings.SuspendLayout() + Me.GBSubFont.SuspendLayout() + CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDommeFont.SuspendLayout() + CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage2.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.GBGiveUp.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomTypingStyle.SuspendLayout() + CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox63.SuspendLayout() + Me.GBDomRanges.SuspendLayout() + CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomStats.SuspendLayout() + CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomPersonality.SuspendLayout() + Me.GBDomOrgasms.SuspendLayout() + CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomPetNames.SuspendLayout() + Me.TabPage10.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.GroupBox22.SuspendLayout() + CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox45.SuspendLayout() + CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox35.SuspendLayout() + Me.GroupBoxSorry.SuspendLayout() + Me.GroupBox39.SuspendLayout() + Me.GroupBox38.SuspendLayout() + Me.GroupBox37.SuspendLayout() + Me.GroupBox36.SuspendLayout() + Me.GroupBox13.SuspendLayout() + Me.GroupBox7.SuspendLayout() + CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox32.SuspendLayout() + CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage16.SuspendLayout() + Me.Panel9.SuspendLayout() + Me.GroupBox31.SuspendLayout() + Me.TCScripts.SuspendLayout() + Me.TabPage21.SuspendLayout() + Me.TabPage17.SuspendLayout() + Me.TabPage18.SuspendLayout() + Me.TabPage19.SuspendLayout() + Me.GroupBox42.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox43.SuspendLayout() + Me.TabPage7.SuspendLayout() + Me.TabControl4.SuspendLayout() + Me.TpImagesUrlFiles.SuspendLayout() + Me.GroupBox66.SuspendLayout() + CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TpImagesGenre.SuspendLayout() + Me.GrbImageUrlFiles.SuspendLayout() + Me.TlpImageUrls.SuspendLayout() + Me.GbxImagesGenre.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.TabPage33.SuspendLayout() + Me.TabControl5.SuspendLayout() + Me.TabPage34.SuspendLayout() + CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage35.SuspendLayout() + Me.GroupBox55.SuspendLayout() + Me.GroupBox53.SuspendLayout() + Me.GroupBox49.SuspendLayout() + Me.GroupBox46.SuspendLayout() + Me.GroupBox54.SuspendLayout() + Me.GroupBox51.SuspendLayout() + Me.GroupBox50.SuspendLayout() + Me.GroupBox48.SuspendLayout() + Me.TabPage11.SuspendLayout() + Me.Panel7.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TpVideoSettings.SuspendLayout() + Me.PnlVideoSettings.SuspendLayout() + CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxVideoGeneralD.SuspendLayout() + Me.GbxVideoSpecialD.SuspendLayout() + Me.GbxVideoGenreD.SuspendLayout() + Me.GbxVideoDescription.SuspendLayout() + Me.GbxVideoGeneral.SuspendLayout() + Me.GbxVideoSpecial.SuspendLayout() + Me.GbxVideoGenre.SuspendLayout() + Me.TabPage20.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage22.SuspendLayout() + Me.PNLGlitter.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GBGlitterD.SuspendLayout() + Me.GrbGlitterfeed.SuspendLayout() + CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGlitter1.SuspendLayout() + CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGlitter3.SuspendLayout() + CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGlitter2.SuspendLayout() + CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TpGames.SuspendLayout() + Me.GbxCardsGold.SuspendLayout() + CType(Me.GP6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxCardsBackground.SuspendLayout() + CType(Me.CardBack, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxCardsBronze.SuspendLayout() + CType(Me.BP3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxCardsSilver.SuspendLayout() + CType(Me.SP6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage6.SuspendLayout() + Me.Panel10.SuspendLayout() + CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PNLWishList.SuspendLayout() + CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage26.SuspendLayout() + Me.Panel12.SuspendLayout() + Me.GroupBox9.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + Me.GroupBox11.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage4.SuspendLayout() + Me.Panel6.SuspendLayout() + Me.GroupBox69.SuspendLayout() + CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox68.SuspendLayout() + CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox67.SuspendLayout() + CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox10.SuspendLayout() + CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox57.SuspendLayout() + CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBRangeRuinChance.SuspendLayout() + CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox17.SuspendLayout() + Me.GroupBox19.SuspendLayout() + CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox18.SuspendLayout() + CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBRangeOrgasmChance.SuspendLayout() + CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage13.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage27.SuspendLayout() + Me.TabPage14.SuspendLayout() + Me.TabPage24.SuspendLayout() + Me.TabPage8.SuspendLayout() + Me.GroupBox29.SuspendLayout() + Me.GroupBox28.SuspendLayout() + Me.GroupBox30.SuspendLayout() + Me.TabPage15.SuspendLayout() + Me.GroupBox34.SuspendLayout() + Me.TabPage25.SuspendLayout() + Me.Panel11.SuspendLayout() + Me.GroupBox62.SuspendLayout() + Me.GroupBox33.SuspendLayout() + Me.GroupBox8.SuspendLayout() + Me.GroupBox27.SuspendLayout() + Me.GroupBox20.SuspendLayout() + Me.GroupBox15.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage28.SuspendLayout() + Me.TabControl3.SuspendLayout() + Me.TabPage29.SuspendLayout() + Me.GroupBox26.SuspendLayout() + Me.TabPage30.SuspendLayout() + Me.TabPage5.SuspendLayout() + Me.Panel5.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox47.SuspendLayout() + Me.GroupBox41.SuspendLayout() + Me.GroupBox44.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox21.SuspendLayout() + Me.GroupBox12.SuspendLayout() + Me.GroupBox65.SuspendLayout() + CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SettingsPanel + ' + Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray + Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SettingsPanel.Controls.Add(Me.SettingsTabs) + Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) + Me.SettingsPanel.Name = "SettingsPanel" + Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) + Me.SettingsPanel.TabIndex = 94 + ' + 'SettingsTabs + ' + Me.SettingsTabs.Controls.Add(Me.TabPage1) + Me.SettingsTabs.Controls.Add(Me.TabPage2) + Me.SettingsTabs.Controls.Add(Me.TabPage10) + Me.SettingsTabs.Controls.Add(Me.TabPage16) + Me.SettingsTabs.Controls.Add(Me.TabPage7) + Me.SettingsTabs.Controls.Add(Me.TabPage33) + Me.SettingsTabs.Controls.Add(Me.TabPage11) + Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) + Me.SettingsTabs.Controls.Add(Me.TabPage20) + Me.SettingsTabs.Controls.Add(Me.TabPage26) + Me.SettingsTabs.Controls.Add(Me.TabPage4) + Me.SettingsTabs.Controls.Add(Me.TabPage13) + Me.SettingsTabs.Controls.Add(Me.TabPage25) + Me.SettingsTabs.Controls.Add(Me.TabPage28) + Me.SettingsTabs.Controls.Add(Me.TabPage5) + Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) + Me.SettingsTabs.Name = "SettingsTabs" + Me.SettingsTabs.SelectedIndex = 0 + Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) + Me.SettingsTabs.TabIndex = 0 + ' + 'TabPage1 + ' + Me.TabPage1.BackColor = System.Drawing.Color.Silver + Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) + 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(720, 448) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "General" + ' + 'PNLGeneralSettings + ' + Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray + Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PNLGeneralSettings.Controls.Add(Me.GroupBox3) + Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) + Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) + Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) + Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) + Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) + Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) + Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) + Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) + Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) + Me.PNLGeneralSettings.Name = "PNLGeneralSettings" + Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) + Me.PNLGeneralSettings.TabIndex = 0 + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) + Me.GroupBox3.Location = New System.Drawing.Point(7, 365) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(211, 65) + Me.GroupBox3.TabIndex = 184 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "System Files" + ' + 'BTNValidateSystemFiles + ' + Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray + Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black + Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) + Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" + Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) + Me.BTNValidateSystemFiles.TabIndex = 183 + Me.BTNValidateSystemFiles.Text = "Validate All System Files" + Me.BTNValidateSystemFiles.UseVisualStyleBackColor = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Label170) + Me.GroupBox2.Controls.Add(Me.RandomHonorific) + Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) + Me.GroupBox2.Controls.Add(Me.CBRandomDomme) + Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) + Me.GroupBox2.Location = New System.Drawing.Point(224, 313) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(210, 117) + Me.GroupBox2.TabIndex = 183 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Random Domme" + ' + 'RandomHonorific + ' + Me.RandomHonorific.BackColor = System.Drawing.Color.White + Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.RandomHonorific.Location = New System.Drawing.Point(72, 95) + Me.RandomHonorific.Name = "RandomHonorific" + Me.RandomHonorific.Size = New System.Drawing.Size(128, 20) + Me.RandomHonorific.TabIndex = 187 + Me.RandomHonorific.Text = "Random Domme Honorific" + ' + 'TbxRandomImageDir + ' + Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "RandomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 44) + Me.TbxRandomImageDir.Name = "TbxRandomImageDir" + Me.TbxRandomImageDir.ReadOnly = True + Me.TbxRandomImageDir.Size = New System.Drawing.Size(190, 20) + Me.TbxRandomImageDir.TabIndex = 185 + Me.TbxRandomImageDir.Text = "No Path Selected" + ' + 'CBRandomDomme + ' + Me.CBRandomDomme.AutoSize = True + Me.CBRandomDomme.Location = New System.Drawing.Point(10, 71) + Me.CBRandomDomme.Name = "CBRandomDomme" + Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) + Me.CBRandomDomme.TabIndex = 184 + Me.CBRandomDomme.Text = "Always Start With Random Domme" + Me.CBRandomDomme.UseVisualStyleBackColor = True + ' + 'BtnRandomImageDir + ' + Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnRandomImageDir.Location = New System.Drawing.Point(10, 15) + Me.BtnRandomImageDir.Name = "BtnRandomImageDir" + Me.BtnRandomImageDir.Size = New System.Drawing.Size(190, 22) + Me.BtnRandomImageDir.TabIndex = 182 + Me.BtnRandomImageDir.Text = "Set Random Domme Directory" + Me.BtnRandomImageDir.UseVisualStyleBackColor = False + ' + 'BtnImportSettings + ' + Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent + Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export + Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.BtnImportSettings.FlatAppearance.BorderSize = 0 + Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black + Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) + Me.BtnImportSettings.Name = "BtnImportSettings" + Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) + Me.BtnImportSettings.TabIndex = 158 + Me.BtnImportSettings.UseVisualStyleBackColor = False + ' + 'LblImportSettings + ' + Me.LblImportSettings.AutoSize = True + Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblImportSettings.ForeColor = System.Drawing.Color.Black + Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) + Me.LblImportSettings.Name = "LblImportSettings" + Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) + Me.LblImportSettings.TabIndex = 159 + Me.LblImportSettings.Text = "import" + Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox64 + ' + Me.GroupBox64.BackColor = System.Drawing.Color.LightGray + Me.GroupBox64.Controls.Add(Me.CBMuteMedia) + Me.GroupBox64.ForeColor = System.Drawing.Color.Black + Me.GroupBox64.Location = New System.Drawing.Point(440, 258) + Me.GroupBox64.Name = "GroupBox64" + Me.GroupBox64.Size = New System.Drawing.Size(259, 49) + Me.GroupBox64.TabIndex = 157 + Me.GroupBox64.TabStop = False + Me.GroupBox64.Text = "Media Options" + ' + 'CBMuteMedia + ' + Me.CBMuteMedia.AutoSize = True + Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia + Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black + Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) + Me.CBMuteMedia.Name = "CBMuteMedia" + Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) + Me.CBMuteMedia.TabIndex = 6 + Me.CBMuteMedia.TabStop = False + Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" + Me.CBMuteMedia.UseVisualStyleBackColor = True + ' + 'GBDommeImages + ' + Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray + Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) + Me.GBDommeImages.Controls.Add(Me.teaseRadio) + Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) + Me.GBDommeImages.Controls.Add(Me.offRadio) + Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) + Me.GBDommeImages.Controls.Add(Me.timedRadio) + Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) + Me.GBDommeImages.ForeColor = System.Drawing.Color.Black + Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) + Me.GBDommeImages.Name = "GBDommeImages" + Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) + Me.GBDommeImages.TabIndex = 156 + Me.GBDommeImages.TabStop = False + Me.GBDommeImages.Text = "Slideshow Options" + ' + 'slideshowNumBox + ' + Me.slideshowNumBox.BackColor = System.Drawing.Color.White + Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black + Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) + Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) + Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.slideshowNumBox.Name = "slideshowNumBox" + Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) + Me.slideshowNumBox.TabIndex = 20 + Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) + ' + 'teaseRadio + ' + Me.teaseRadio.AutoSize = True + Me.teaseRadio.Checked = True + Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.teaseRadio.ForeColor = System.Drawing.Color.Black + Me.teaseRadio.Location = New System.Drawing.Point(149, 21) + Me.teaseRadio.Name = "teaseRadio" + Me.teaseRadio.Size = New System.Drawing.Size(55, 17) + Me.teaseRadio.TabIndex = 21 + Me.teaseRadio.TabStop = True + Me.teaseRadio.Text = "Tease" + Me.teaseRadio.UseVisualStyleBackColor = True + ' + 'CBNewSlideshow + ' + Me.CBNewSlideshow.AutoSize = True + Me.CBNewSlideshow.Checked = True + Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black + Me.CBNewSlideshow.Location = New System.Drawing.Point(4, 100) + Me.CBNewSlideshow.Name = "CBNewSlideshow" + Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) + Me.CBNewSlideshow.TabIndex = 18 + Me.CBNewSlideshow.TabStop = False + Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" + Me.CBNewSlideshow.UseVisualStyleBackColor = True + ' + 'offRadio + ' + Me.offRadio.AutoSize = True + Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.offRadio.ForeColor = System.Drawing.Color.Black + Me.offRadio.Location = New System.Drawing.Point(6, 21) + Me.offRadio.Name = "offRadio" + Me.offRadio.Size = New System.Drawing.Size(60, 17) + Me.offRadio.TabIndex = 18 + Me.offRadio.Text = "Manual" + Me.offRadio.UseVisualStyleBackColor = True + ' + 'BTNDomImageDir + ' + Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray + Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black + Me.BTNDomImageDir.Location = New System.Drawing.Point(10, 45) + Me.BTNDomImageDir.Name = "BTNDomImageDir" + Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) + Me.BTNDomImageDir.TabIndex = 17 + Me.BTNDomImageDir.Text = "Set Domme Images Directory" + Me.BTNDomImageDir.UseVisualStyleBackColor = False + ' + 'timedRadio + ' + Me.timedRadio.AutoSize = True + Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.timedRadio.ForeColor = System.Drawing.Color.Black + Me.timedRadio.Location = New System.Drawing.Point(72, 23) + Me.timedRadio.Name = "timedRadio" + Me.timedRadio.Size = New System.Drawing.Size(14, 13) + Me.timedRadio.TabIndex = 19 + Me.timedRadio.UseVisualStyleBackColor = True + ' + 'TbxDomImageDir + ' + Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) + Me.TbxDomImageDir.Name = "TbxDomImageDir" + Me.TbxDomImageDir.ReadOnly = True + Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) + Me.TbxDomImageDir.TabIndex = 0 + Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir + ' + 'GBGeneralTextToSpeech + ' + Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray + Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) + Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) + Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) + Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) + Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) + Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) + Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) + Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) + Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black + Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) + Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" + Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) + Me.GBGeneralTextToSpeech.TabIndex = 0 + Me.GBGeneralTextToSpeech.TabStop = False + Me.GBGeneralTextToSpeech.Text = "Text to Speech" + ' + 'LBLVRate + ' + Me.LBLVRate.Location = New System.Drawing.Point(202, 52) + Me.LBLVRate.Name = "LBLVRate" + Me.LBLVRate.Size = New System.Drawing.Size(45, 13) + Me.LBLVRate.TabIndex = 158 + Me.LBLVRate.Text = "100" + Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label93 + ' + Me.Label93.AutoSize = True + Me.Label93.Location = New System.Drawing.Point(141, 52) + Me.Label93.Name = "Label93" + Me.Label93.Size = New System.Drawing.Size(33, 13) + Me.Label93.TabIndex = 157 + Me.Label93.Text = "Rate:" + ' + 'LBLVVolume + ' + Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) + Me.LBLVVolume.Name = "LBLVVolume" + Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) + Me.LBLVVolume.TabIndex = 33 + Me.LBLVVolume.Text = "100" + Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.Location = New System.Drawing.Point(14, 52) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(45, 13) + Me.Label68.TabIndex = 32 + Me.Label68.Text = "Volume:" + ' + 'SliderVRate + ' + Me.SliderVRate.Location = New System.Drawing.Point(133, 68) + Me.SliderVRate.Minimum = -10 + Me.SliderVRate.Name = "SliderVRate" + Me.SliderVRate.Size = New System.Drawing.Size(120, 45) + Me.SliderVRate.TabIndex = 31 + ' + 'SliderVVolume + ' + Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) + Me.SliderVVolume.Maximum = 100 + Me.SliderVVolume.Name = "SliderVVolume" + Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) + Me.SliderVVolume.TabIndex = 30 + Me.SliderVVolume.Value = 50 + ' + 'TTSCheckBox + ' + Me.TTSCheckBox.AutoSize = True + Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black + Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) + Me.TTSCheckBox.Name = "TTSCheckBox" + Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) + Me.TTSCheckBox.TabIndex = 28 + Me.TTSCheckBox.TabStop = False + Me.TTSCheckBox.Text = "Enable" + Me.TTSCheckBox.UseVisualStyleBackColor = True + ' + 'TTSComboBox + ' + Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window + Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText + Me.TTSComboBox.FormattingEnabled = True + Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) + Me.TTSComboBox.Name = "TTSComboBox" + Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) + Me.TTSComboBox.TabIndex = 29 + Me.TTSComboBox.TabStop = False + ' + 'GBSafeword + ' + Me.GBSafeword.BackColor = System.Drawing.Color.LightGray + Me.GBSafeword.Controls.Add(Me.LBLSafeword) + Me.GBSafeword.Controls.Add(Me.TBSafeword) + Me.GBSafeword.ForeColor = System.Drawing.Color.Black + Me.GBSafeword.Location = New System.Drawing.Point(440, 179) + Me.GBSafeword.Name = "GBSafeword" + Me.GBSafeword.Size = New System.Drawing.Size(259, 74) + Me.GBSafeword.TabIndex = 0 + Me.GBSafeword.TabStop = False + Me.GBSafeword.Text = "Safeword" + ' + 'LBLSafeword + ' + Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) + Me.LBLSafeword.Name = "LBLSafeword" + Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) + Me.LBLSafeword.TabIndex = 0 + Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able " & + "to continue." + Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBSafeword + ' + Me.TBSafeword.Location = New System.Drawing.Point(17, 19) + Me.TBSafeword.Name = "TBSafeword" + Me.TBSafeword.Size = New System.Drawing.Size(225, 20) + Me.TBSafeword.TabIndex = 27 + Me.TBSafeword.Text = "red" + Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GBGeneralSystem + ' + Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) + Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) + Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) + Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) + Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) + Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) + Me.GBGeneralSystem.Name = "GBGeneralSystem" + Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) + Me.GBGeneralSystem.TabIndex = 0 + Me.GBGeneralSystem.TabStop = False + Me.GBGeneralSystem.Text = "System" + ' + 'CBAuditStartup + ' + Me.CBAuditStartup.AutoSize = True + Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black + Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) + Me.CBAuditStartup.Name = "CBAuditStartup" + Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) + Me.CBAuditStartup.TabIndex = 26 + Me.CBAuditStartup.TabStop = False + Me.CBAuditStartup.Text = "Audit Scripts on Startup" + Me.CBAuditStartup.UseVisualStyleBackColor = True + ' + 'CBDomDel + ' + Me.CBDomDel.AutoSize = True + Me.CBDomDel.ForeColor = System.Drawing.Color.Black + Me.CBDomDel.Location = New System.Drawing.Point(7, 110) + Me.CBDomDel.Name = "CBDomDel" + Me.CBDomDel.Size = New System.Drawing.Size(197, 17) + Me.CBDomDel.TabIndex = 27 + Me.CBDomDel.TabStop = False + Me.CBDomDel.Text = "Allow Domme to Delete Local Media" + Me.CBDomDel.UseVisualStyleBackColor = True + ' + 'CBSettingsPause + ' + Me.CBSettingsPause.AutoSize = True + Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black + Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) + Me.CBSettingsPause.Name = "CBSettingsPause" + Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) + Me.CBSettingsPause.TabIndex = 22 + Me.CBSettingsPause.TabStop = False + Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" + Me.CBSettingsPause.UseVisualStyleBackColor = True + ' + 'CBSaveChatlogExit + ' + Me.CBSaveChatlogExit.AutoSize = True + Me.CBSaveChatlogExit.Checked = True + Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black + Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) + Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" + Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) + Me.CBSaveChatlogExit.TabIndex = 25 + Me.CBSaveChatlogExit.TabStop = False + Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" + Me.CBSaveChatlogExit.UseVisualStyleBackColor = True + ' + 'CBAutosaveChatlog + ' + Me.CBAutosaveChatlog.AutoSize = True + Me.CBAutosaveChatlog.Checked = True + Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black + Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) + Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" + Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) + Me.CBAutosaveChatlog.TabIndex = 24 + Me.CBAutosaveChatlog.TabStop = False + Me.CBAutosaveChatlog.Text = "Autosave Chatlog" + Me.CBAutosaveChatlog.UseVisualStyleBackColor = True + ' + 'GBGeneralImages + ' + Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) + Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) + Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) + Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) + Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) + Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) + Me.GBGeneralImages.Name = "GBGeneralImages" + Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) + Me.GBGeneralImages.TabIndex = 0 + Me.GBGeneralImages.TabStop = False + Me.GBGeneralImages.Text = "Images" + ' + 'CBImageInfo + ' + Me.CBImageInfo.AutoSize = True + Me.CBImageInfo.ForeColor = System.Drawing.Color.Black + Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) + Me.CBImageInfo.Name = "CBImageInfo" + Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) + Me.CBImageInfo.TabIndex = 16 + Me.CBImageInfo.TabStop = False + Me.CBImageInfo.Text = "Display Image Information" + Me.CBImageInfo.UseVisualStyleBackColor = True + ' + 'CBSlideshowRandom + ' + Me.CBSlideshowRandom.AutoSize = True + Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black + Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) + Me.CBSlideshowRandom.Name = "CBSlideshowRandom" + Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) + Me.CBSlideshowRandom.TabIndex = 14 + Me.CBSlideshowRandom.TabStop = False + Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" + Me.CBSlideshowRandom.UseVisualStyleBackColor = True + ' + 'landscapeCheckBox + ' + Me.landscapeCheckBox.AutoSize = True + Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black + Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) + Me.landscapeCheckBox.Name = "landscapeCheckBox" + Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) + Me.landscapeCheckBox.TabIndex = 15 + Me.landscapeCheckBox.TabStop = False + Me.landscapeCheckBox.Text = "Stretch Landscape Images" + Me.landscapeCheckBox.UseVisualStyleBackColor = True + ' + 'CBBlogImageWindow + ' + Me.CBBlogImageWindow.AutoSize = True + Me.CBBlogImageWindow.Checked = True + Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black + Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) + Me.CBBlogImageWindow.Name = "CBBlogImageWindow" + Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) + Me.CBBlogImageWindow.TabIndex = 12 + Me.CBBlogImageWindow.TabStop = False + Me.CBBlogImageWindow.Text = "Save Blog Images From Session" + Me.CBBlogImageWindow.UseVisualStyleBackColor = True + ' + 'CBSlideshowSubDir + ' + Me.CBSlideshowSubDir.AutoSize = True + Me.CBSlideshowSubDir.Checked = True + Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black + Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) + Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" + Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) + Me.CBSlideshowSubDir.TabIndex = 13 + Me.CBSlideshowSubDir.TabStop = False + Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" + Me.CBSlideshowSubDir.UseVisualStyleBackColor = True + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.LightGray + Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox2.Location = New System.Drawing.Point(9, 6) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(160, 19) + Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox2.TabIndex = 148 + Me.PictureBox2.TabStop = False + ' + 'GBGeneralSettings + ' + Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray + Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) + Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) + Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) + Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) + Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) + Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) + Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) + Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black + Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) + Me.GBGeneralSettings.Name = "GBGeneralSettings" + Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) + Me.GBGeneralSettings.TabIndex = 0 + Me.GBGeneralSettings.TabStop = False + Me.GBGeneralSettings.Text = "Chat Window" + ' + 'CBWebtease + ' + Me.CBWebtease.AutoSize = True + Me.CBWebtease.ForeColor = System.Drawing.Color.Black + Me.CBWebtease.Location = New System.Drawing.Point(6, 110) + Me.CBWebtease.Name = "CBWebtease" + Me.CBWebtease.Size = New System.Drawing.Size(105, 17) + Me.CBWebtease.TabIndex = 5 + Me.CBWebtease.TabStop = False + Me.CBWebtease.Text = "Webtease Mode" + Me.CBWebtease.UseVisualStyleBackColor = True + ' + 'GBSubFont + ' + Me.GBSubFont.Controls.Add(Me.BTNSubColor) + Me.GBSubFont.Controls.Add(Me.LBLSubColor) + Me.GBSubFont.Controls.Add(Me.NBFontSize) + Me.GBSubFont.Controls.Add(Me.Label2) + Me.GBSubFont.Controls.Add(Me.FontComboBox) + Me.GBSubFont.Location = New System.Drawing.Point(6, 219) + Me.GBSubFont.Name = "GBSubFont" + Me.GBSubFont.Size = New System.Drawing.Size(200, 77) + Me.GBSubFont.TabIndex = 0 + Me.GBSubFont.TabStop = False + Me.GBSubFont.Text = "Sub Font Settings" + ' + 'BTNSubColor + ' + Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray + Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNSubColor.ForeColor = System.Drawing.Color.Black + Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) + Me.BTNSubColor.Name = "BTNSubColor" + Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) + Me.BTNSubColor.TabIndex = 8 + Me.BTNSubColor.Text = "Sub Name Color" + Me.BTNSubColor.UseVisualStyleBackColor = False + ' + 'LBLSubColor + ' + Me.LBLSubColor.BackColor = System.Drawing.Color.White + Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor + Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) + Me.LBLSubColor.Name = "LBLSubColor" + Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) + Me.LBLSubColor.TabIndex = 0 + Me.LBLSubColor.Text = "Preview" + Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBFontSize + ' + Me.NBFontSize.BackColor = System.Drawing.Color.White + Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBFontSize.ForeColor = System.Drawing.Color.Black + Me.NBFontSize.Location = New System.Drawing.Point(147, 47) + Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBFontSize.Name = "NBFontSize" + Me.NBFontSize.Size = New System.Drawing.Size(45, 20) + Me.NBFontSize.TabIndex = 11 + Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label2 + ' + Me.Label2.BackColor = System.Drawing.Color.Transparent + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.Black + Me.Label2.Location = New System.Drawing.Point(117, 45) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(30, 20) + Me.Label2.TabIndex = 63 + Me.Label2.Text = "Size:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'FontComboBox + ' + Me.FontComboBox.FormattingEnabled = True + Me.FontComboBox.Location = New System.Drawing.Point(6, 46) + Me.FontComboBox.Name = "FontComboBox" + Me.FontComboBox.Size = New System.Drawing.Size(110, 21) + Me.FontComboBox.TabIndex = 9 + ' + 'GBDommeFont + ' + Me.GBDommeFont.Controls.Add(Me.BTNDomColor) + Me.GBDommeFont.Controls.Add(Me.LBLDomColor) + Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) + Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) + Me.GBDommeFont.Controls.Add(Me.Label7) + Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) + Me.GBDommeFont.Name = "GBDommeFont" + Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) + Me.GBDommeFont.TabIndex = 0 + Me.GBDommeFont.TabStop = False + Me.GBDommeFont.Text = "Domme Font Settings" + ' + 'BTNDomColor + ' + Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray + Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomColor.ForeColor = System.Drawing.Color.Black + Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) + Me.BTNDomColor.Name = "BTNDomColor" + Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) + Me.BTNDomColor.TabIndex = 5 + Me.BTNDomColor.Text = "Domme Name Color" + Me.BTNDomColor.UseVisualStyleBackColor = False + ' + 'LBLDomColor + ' + Me.LBLDomColor.BackColor = System.Drawing.Color.White + Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor + Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) + Me.LBLDomColor.Name = "LBLDomColor" + Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) + Me.LBLDomColor.TabIndex = 0 + Me.LBLDomColor.Text = "Preview" + Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'FontComboBoxD + ' + Me.FontComboBoxD.FormattingEnabled = True + Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) + Me.FontComboBoxD.Name = "FontComboBoxD" + Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) + Me.FontComboBoxD.TabIndex = 6 + ' + 'NBFontSizeD + ' + Me.NBFontSizeD.BackColor = System.Drawing.Color.White + Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black + Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) + Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBFontSizeD.Name = "NBFontSizeD" + Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) + Me.NBFontSizeD.TabIndex = 7 + Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label7 + ' + Me.Label7.BackColor = System.Drawing.Color.Transparent + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.ForeColor = System.Drawing.Color.Black + Me.Label7.Location = New System.Drawing.Point(117, 45) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(30, 20) + Me.Label7.TabIndex = 172 + Me.Label7.Text = "Size:" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBInputIcon + ' + Me.CBInputIcon.AutoSize = True + Me.CBInputIcon.Checked = True + Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBInputIcon.ForeColor = System.Drawing.Color.Black + Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) + Me.CBInputIcon.Name = "CBInputIcon" + Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) + Me.CBInputIcon.TabIndex = 4 + Me.CBInputIcon.TabStop = False + Me.CBInputIcon.Text = "Show Icon During Input Questions" + Me.CBInputIcon.UseVisualStyleBackColor = True + ' + 'typeinstantlyCheckBox + ' + Me.typeinstantlyCheckBox.AutoSize = True + Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black + Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) + Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" + Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) + Me.typeinstantlyCheckBox.TabIndex = 3 + Me.typeinstantlyCheckBox.TabStop = False + Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" + Me.typeinstantlyCheckBox.UseVisualStyleBackColor = True + ' + 'timestampCheckBox + ' + Me.timestampCheckBox.AutoSize = True + Me.timestampCheckBox.Checked = True + Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked + Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black + Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) + Me.timestampCheckBox.Name = "timestampCheckBox" + Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) + Me.timestampCheckBox.TabIndex = 1 + Me.timestampCheckBox.TabStop = False + Me.timestampCheckBox.Text = "Show Timestamps" + Me.timestampCheckBox.UseVisualStyleBackColor = True + ' + 'shownamesCheckBox + ' + Me.shownamesCheckBox.AutoSize = True + Me.shownamesCheckBox.Checked = True + Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked + Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black + Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) + Me.shownamesCheckBox.Name = "shownamesCheckBox" + Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) + Me.shownamesCheckBox.TabIndex = 2 + Me.shownamesCheckBox.TabStop = False + Me.shownamesCheckBox.Text = "Always Show Names" + Me.shownamesCheckBox.UseVisualStyleBackColor = True + ' + 'LBLGeneralSettings + ' + Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent + Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black + Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) + Me.LBLGeneralSettings.Name = "LBLGeneralSettings" + Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) + Me.LBLGeneralSettings.TabIndex = 0 + Me.LBLGeneralSettings.Text = "General Settings" + Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage2 + ' + Me.TabPage2.BackColor = System.Drawing.Color.Silver + Me.TabPage2.Controls.Add(Me.Panel3) + 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(720, 448) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Domme" + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.LightGray + Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel3.Controls.Add(Me.GBGiveUp) + Me.Panel3.Controls.Add(Me.BTNLoadDomSet) + Me.Panel3.Controls.Add(Me.BTNSaveDomSet) + Me.Panel3.Controls.Add(Me.Label127) + Me.Panel3.Controls.Add(Me.Label126) + Me.Panel3.Controls.Add(Me.PictureBox4) + Me.Panel3.Controls.Add(Me.GBDomTypingStyle) + Me.Panel3.Controls.Add(Me.GBDomRanges) + Me.Panel3.Controls.Add(Me.GBDomStats) + Me.Panel3.Controls.Add(Me.GBDomPersonality) + Me.Panel3.Controls.Add(Me.GBDomOrgasms) + Me.Panel3.Controls.Add(Me.GBDomPetNames) + Me.Panel3.Controls.Add(Me.Label54) + Me.Panel3.Location = New System.Drawing.Point(6, 6) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(708, 437) + Me.Panel3.TabIndex = 93 + ' + 'GBGiveUp + ' + Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) + Me.GBGiveUp.Location = New System.Drawing.Point(440, 230) + Me.GBGiveUp.Name = "GBGiveUp" + Me.GBGiveUp.Size = New System.Drawing.Size(259, 63) + Me.GBGiveUp.TabIndex = 42 + Me.GBGiveUp.TabStop = False + Me.GBGiveUp.Text = "Script Behavior" + ' + 'giveupCheckBox + ' + Me.giveupCheckBox.AutoSize = True + Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black + Me.giveupCheckBox.Location = New System.Drawing.Point(15, 26) + Me.giveupCheckBox.Name = "giveupCheckBox" + Me.giveupCheckBox.Size = New System.Drawing.Size(210, 17) + Me.giveupCheckBox.TabIndex = 38 + Me.giveupCheckBox.Text = "Continue Current Script After Giving Up" + Me.giveupCheckBox.UseVisualStyleBackColor = True + ' + 'BTNLoadDomSet + ' + Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray + Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export + Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 + Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black + Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) + Me.BTNLoadDomSet.Name = "BTNLoadDomSet" + Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) + Me.BTNLoadDomSet.TabIndex = 150 + Me.BTNLoadDomSet.UseVisualStyleBackColor = False + ' + 'BTNSaveDomSet + ' + Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray + Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save + Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 + Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black + Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) + Me.BTNSaveDomSet.Name = "BTNSaveDomSet" + Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) + Me.BTNSaveDomSet.TabIndex = 151 + Me.BTNSaveDomSet.UseVisualStyleBackColor = False + ' + 'Label127 + ' + Me.Label127.AutoSize = True + Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label127.ForeColor = System.Drawing.Color.Black + Me.Label127.Location = New System.Drawing.Point(670, -3) + Me.Label127.Name = "Label127" + Me.Label127.Size = New System.Drawing.Size(27, 13) + Me.Label127.TabIndex = 153 + Me.Label127.Text = "load" + Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label126 + ' + Me.Label126.AutoSize = True + Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label126.ForeColor = System.Drawing.Color.Black + Me.Label126.Location = New System.Drawing.Point(636, -3) + Me.Label126.Name = "Label126" + Me.Label126.Size = New System.Drawing.Size(30, 13) + Me.Label126.TabIndex = 152 + Me.Label126.Text = "save" + Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PictureBox4 + ' + Me.PictureBox4.BackColor = System.Drawing.Color.LightGray + Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox4.Location = New System.Drawing.Point(9, 6) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(160, 19) + Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox4.TabIndex = 149 + Me.PictureBox4.TabStop = False + ' + 'GBDomTypingStyle + ' + Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) + Me.GBDomTypingStyle.Controls.Add(Me.Label67) + Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) + Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) + Me.GBDomTypingStyle.Controls.Add(Me.Label66) + Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) + Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) + Me.GBDomTypingStyle.Controls.Add(Me.Label64) + Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black + Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) + Me.GBDomTypingStyle.Name = "GBDomTypingStyle" + Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) + Me.GBDomTypingStyle.TabIndex = 138 + Me.GBDomTypingStyle.TabStop = False + Me.GBDomTypingStyle.Text = "Typing Style" + ' + 'TBEmoteEnd + ' + Me.TBEmoteEnd.BackColor = System.Drawing.Color.White + Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black + Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) + Me.TBEmoteEnd.Name = "TBEmoteEnd" + Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) + Me.TBEmoteEnd.TabIndex = 155 + Me.TBEmoteEnd.Text = "*" + Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label67.ForeColor = System.Drawing.Color.Black + Me.Label67.Location = New System.Drawing.Point(237, 77) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(42, 13) + Me.Label67.TabIndex = 169 + Me.Label67.Text = "Typo %" + Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBEmote + ' + Me.TBEmote.BackColor = System.Drawing.Color.White + Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBEmote.ForeColor = System.Drawing.Color.Black + Me.TBEmote.Location = New System.Drawing.Point(9, 91) + Me.TBEmote.Name = "TBEmote" + Me.TBEmote.Size = New System.Drawing.Size(85, 23) + Me.TBEmote.TabIndex = 154 + Me.TBEmote.Text = "*" + Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'NBTypoChance + ' + Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) + Me.NBTypoChance.Name = "NBTypoChance" + Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) + Me.NBTypoChance.TabIndex = 168 + Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'Label66 + ' + Me.Label66.AutoSize = True + Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label66.ForeColor = System.Drawing.Color.Black + Me.Label66.Location = New System.Drawing.Point(322, 77) + Me.Label66.Name = "Label66" + Me.Label66.Size = New System.Drawing.Size(52, 13) + Me.Label66.TabIndex = 44 + Me.Label66.Text = "Pronouns" + Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBMeMyMine + ' + Me.CBMeMyMine.AutoSize = True + Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black + Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) + Me.CBMeMyMine.Name = "CBMeMyMine" + Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) + Me.CBMeMyMine.TabIndex = 40 + Me.CBMeMyMine.Text = "Me/My/Mine" + Me.CBMeMyMine.UseVisualStyleBackColor = True + ' + 'GroupBox63 + ' + Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) + Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) + Me.GroupBox63.Controls.Add(Me.periodCheckBox) + Me.GroupBox63.Controls.Add(Me.commaCheckBox) + Me.GroupBox63.Location = New System.Drawing.Point(9, 15) + Me.GroupBox63.Name = "GroupBox63" + Me.GroupBox63.Size = New System.Drawing.Size(407, 48) + Me.GroupBox63.TabIndex = 41 + Me.GroupBox63.TabStop = False + Me.GroupBox63.Text = "Remove" + ' + 'LCaseCheckBox + ' + Me.LCaseCheckBox.AutoSize = True + Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black + Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) + Me.LCaseCheckBox.Name = "LCaseCheckBox" + Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) + Me.LCaseCheckBox.TabIndex = 38 + Me.LCaseCheckBox.Text = "Capitalization" + Me.LCaseCheckBox.UseVisualStyleBackColor = True + ' + 'apostropheCheckBox + ' + Me.apostropheCheckBox.AutoSize = True + Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black + Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) + Me.apostropheCheckBox.Name = "apostropheCheckBox" + Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) + Me.apostropheCheckBox.TabIndex = 39 + Me.apostropheCheckBox.Text = "Apostrophes" + Me.apostropheCheckBox.UseVisualStyleBackColor = True + ' + 'periodCheckBox + ' + Me.periodCheckBox.AutoSize = True + Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.periodCheckBox.ForeColor = System.Drawing.Color.Black + Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) + Me.periodCheckBox.Name = "periodCheckBox" + Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) + Me.periodCheckBox.TabIndex = 37 + Me.periodCheckBox.Text = "Periods" + Me.periodCheckBox.UseVisualStyleBackColor = True + ' + 'commaCheckBox + ' + Me.commaCheckBox.AutoSize = True + Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.commaCheckBox.ForeColor = System.Drawing.Color.Black + Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) + Me.commaCheckBox.Name = "commaCheckBox" + Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) + Me.commaCheckBox.TabIndex = 36 + Me.commaCheckBox.Text = "Commas" + Me.commaCheckBox.UseVisualStyleBackColor = True + ' + 'Label64 + ' + Me.Label64.AutoSize = True + Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label64.ForeColor = System.Drawing.Color.Black + Me.Label64.Location = New System.Drawing.Point(8, 77) + Me.Label64.Name = "Label64" + Me.Label64.Size = New System.Drawing.Size(79, 13) + Me.Label64.TabIndex = 43 + Me.Label64.Text = "Emote Symbols" + Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GBDomRanges + ' + Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) + Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) + Me.GBDomRanges.Controls.Add(Me.Label37) + Me.GBDomRanges.Controls.Add(Me.Label39) + Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) + Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) + Me.GBDomRanges.Controls.Add(Me.Label31) + Me.GBDomRanges.Controls.Add(Me.Label36) + Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) + Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) + Me.GBDomRanges.Controls.Add(Me.Label21) + Me.GBDomRanges.Controls.Add(Me.Label22) + Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) + Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) + Me.GBDomRanges.Controls.Add(Me.Label23) + Me.GBDomRanges.Controls.Add(Me.Label30) + Me.GBDomRanges.Location = New System.Drawing.Point(440, 299) + Me.GBDomRanges.Name = "GBDomRanges" + Me.GBDomRanges.Size = New System.Drawing.Size(259, 124) + Me.GBDomRanges.TabIndex = 148 + Me.GBDomRanges.TabStop = False + Me.GBDomRanges.Text = "Ranges" + ' + 'NBDomMoodMax + ' + Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 19) + Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBDomMoodMax.Name = "NBDomMoodMax" + Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) + Me.NBDomMoodMax.TabIndex = 168 + Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) + ' + 'NBDomMoodMin + ' + Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 19) + Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) + Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBDomMoodMin.Name = "NBDomMoodMin" + Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) + Me.NBDomMoodMin.TabIndex = 167 + Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) + ' + 'Label37 + ' + Me.Label37.BackColor = System.Drawing.Color.Transparent + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.ForeColor = System.Drawing.Color.Black + Me.Label37.Location = New System.Drawing.Point(184, 19) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(10, 17) + Me.Label37.TabIndex = 166 + Me.Label37.Text = "-" + Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label39 + ' + Me.Label39.BackColor = System.Drawing.Color.Transparent + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.ForeColor = System.Drawing.Color.Black + Me.Label39.Location = New System.Drawing.Point(12, 19) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(116, 17) + Me.Label39.TabIndex = 165 + Me.Label39.Text = "Domme Mood Index:" + Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBSubAgeMax + ' + Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 94) + Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) + Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) + Me.NBSubAgeMax.Name = "NBSubAgeMax" + Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) + Me.NBSubAgeMax.TabIndex = 164 + Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) + ' + 'NBSubAgeMin + ' + Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 94) + Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) + Me.NBSubAgeMin.Name = "NBSubAgeMin" + Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) + Me.NBSubAgeMin.TabIndex = 163 + Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) + ' + 'Label31 + ' + Me.Label31.BackColor = System.Drawing.Color.Transparent + Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label31.ForeColor = System.Drawing.Color.Black + Me.Label31.Location = New System.Drawing.Point(184, 94) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(10, 17) + Me.Label31.TabIndex = 162 + Me.Label31.Text = "-" + Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label36 + ' + Me.Label36.BackColor = System.Drawing.Color.Transparent + Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label36.ForeColor = System.Drawing.Color.Black + Me.Label36.Location = New System.Drawing.Point(12, 94) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(113, 17) + Me.Label36.TabIndex = 161 + Me.Label36.Text = "Sub Age Perception:" + Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBSelfAgeMax + ' + Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 69) + Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) + Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) + Me.NBSelfAgeMax.Name = "NBSelfAgeMax" + Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) + Me.NBSelfAgeMax.TabIndex = 156 + Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) + ' + 'NBSelfAgeMin + ' + Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 69) + Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) + Me.NBSelfAgeMin.Name = "NBSelfAgeMin" + Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) + Me.NBSelfAgeMin.TabIndex = 155 + Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) + ' + 'Label21 + ' + Me.Label21.BackColor = System.Drawing.Color.Transparent + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.ForeColor = System.Drawing.Color.Black + Me.Label21.Location = New System.Drawing.Point(184, 69) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(10, 17) + Me.Label21.TabIndex = 154 + Me.Label21.Text = "-" + Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label22 + ' + Me.Label22.BackColor = System.Drawing.Color.Transparent + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.ForeColor = System.Drawing.Color.Black + Me.Label22.Location = New System.Drawing.Point(12, 69) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(116, 17) + Me.Label22.TabIndex = 153 + Me.Label22.Text = "Self Age Perception:" + Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBAvgCockMax + ' + Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 44) + Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) + Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) + Me.NBAvgCockMax.Name = "NBAvgCockMax" + Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) + Me.NBAvgCockMax.TabIndex = 152 + Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) + ' + 'NBAvgCockMin + ' + Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 44) + Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) + Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBAvgCockMin.Name = "NBAvgCockMin" + Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) + Me.NBAvgCockMin.TabIndex = 151 + Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) + ' + 'Label23 + ' + Me.Label23.BackColor = System.Drawing.Color.Transparent + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.ForeColor = System.Drawing.Color.Black + Me.Label23.Location = New System.Drawing.Point(184, 44) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(10, 17) + Me.Label23.TabIndex = 150 + Me.Label23.Text = "-" + Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label30 + ' + Me.Label30.BackColor = System.Drawing.Color.Transparent + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.ForeColor = System.Drawing.Color.Black + Me.Label30.Location = New System.Drawing.Point(12, 44) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(116, 17) + Me.Label30.TabIndex = 149 + Me.Label30.Text = "Average Dick Size:" + Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GBDomStats + ' + Me.GBDomStats.BackColor = System.Drawing.Color.LightGray + Me.GBDomStats.Controls.Add(Me.Label128) + Me.GBDomStats.Controls.Add(Me.LBLEmpathy) + Me.GBDomStats.Controls.Add(Me.NBEmpathy) + Me.GBDomStats.Controls.Add(Me.Label83) + Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) + Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) + Me.GBDomStats.Controls.Add(Me.TBDomHairColor) + Me.GBDomStats.Controls.Add(Me.domageNumBox) + Me.GBDomStats.Controls.Add(Me.Label47) + Me.GBDomStats.Controls.Add(Me.Label76) + Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) + Me.GBDomStats.Controls.Add(Me.Label84) + Me.GBDomStats.Controls.Add(Me.CBDomTattoos) + Me.GBDomStats.Controls.Add(Me.CBDomFreckles) + Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) + Me.GBDomStats.Controls.Add(Me.Label10) + Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) + Me.GBDomStats.Controls.Add(Me.Label9) + Me.GBDomStats.Controls.Add(Me.boobComboBox) + Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) + Me.GBDomStats.Controls.Add(Me.domlevelNumBox) + Me.GBDomStats.Controls.Add(Me.Label43) + Me.GBDomStats.Controls.Add(Me.Label44) + Me.GBDomStats.Controls.Add(Me.Label45) + Me.GBDomStats.Controls.Add(Me.Label46) + Me.GBDomStats.ForeColor = System.Drawing.Color.Black + Me.GBDomStats.Location = New System.Drawing.Point(18, 33) + Me.GBDomStats.Name = "GBDomStats" + Me.GBDomStats.Size = New System.Drawing.Size(171, 263) + Me.GBDomStats.TabIndex = 62 + Me.GBDomStats.TabStop = False + Me.GBDomStats.Text = "Stats/Appearance" + ' + 'Label128 + ' + Me.Label128.AutoSize = True + Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label128.Location = New System.Drawing.Point(125, 68) + Me.Label128.Name = "Label128" + Me.Label128.Size = New System.Drawing.Size(38, 13) + Me.Label128.TabIndex = 156 + Me.Label128.Text = "mm/dd" + Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLEmpathy + ' + Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) + Me.LBLEmpathy.Name = "LBLEmpathy" + Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) + Me.LBLEmpathy.TabIndex = 157 + Me.LBLEmpathy.Text = "Moderate" + Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBEmpathy + ' + Me.NBEmpathy.BackColor = System.Drawing.Color.White + Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBEmpathy.ForeColor = System.Drawing.Color.Black + Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) + Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBEmpathy.Name = "NBEmpathy" + Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) + Me.NBEmpathy.TabIndex = 156 + Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label83 + ' + Me.Label83.BackColor = System.Drawing.Color.Transparent + Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label83.ForeColor = System.Drawing.Color.Black + Me.Label83.Location = New System.Drawing.Point(6, 37) + Me.Label83.Name = "Label83" + Me.Label83.Size = New System.Drawing.Size(60, 17) + Me.Label83.TabIndex = 158 + Me.Label83.Text = "Apathy:" + Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBDomBirthdayDay + ' + Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White + Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black + Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) + Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) + Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" + Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) + Me.NBDomBirthdayDay.TabIndex = 152 + Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'TBDomEyeColor + ' + Me.TBDomEyeColor.BackColor = System.Drawing.Color.White + Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black + Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) + Me.TBDomEyeColor.Name = "TBDomEyeColor" + Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) + Me.TBDomEyeColor.TabIndex = 154 + Me.TBDomEyeColor.Text = "green" + ' + 'TBDomHairColor + ' + Me.TBDomHairColor.BackColor = System.Drawing.Color.White + Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black + Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) + Me.TBDomHairColor.Name = "TBDomHairColor" + Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) + Me.TBDomHairColor.TabIndex = 153 + Me.TBDomHairColor.Text = "brown" + ' + 'domageNumBox + ' + Me.domageNumBox.BackColor = System.Drawing.Color.White + Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.domageNumBox.ForeColor = System.Drawing.Color.Black + Me.domageNumBox.Location = New System.Drawing.Point(73, 61) + Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) + Me.domageNumBox.Name = "domageNumBox" + Me.domageNumBox.Size = New System.Drawing.Size(38, 20) + Me.domageNumBox.TabIndex = 27 + Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) + ' + 'Label47 + ' + Me.Label47.BackColor = System.Drawing.Color.Transparent + Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label47.ForeColor = System.Drawing.Color.Black + Me.Label47.Location = New System.Drawing.Point(6, 60) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(63, 17) + Me.Label47.TabIndex = 138 + Me.Label47.Text = "Age:" + Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label76 + ' + Me.Label76.AutoSize = True + Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label76.ForeColor = System.Drawing.Color.Black + Me.Label76.Location = New System.Drawing.Point(113, 87) + Me.Label76.Name = "Label76" + Me.Label76.Size = New System.Drawing.Size(12, 13) + Me.Label76.TabIndex = 151 + Me.Label76.Text = "/" + Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBDomBirthdayMonth + ' + Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White + Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black + Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) + Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) + Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" + Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) + Me.NBDomBirthdayMonth.TabIndex = 149 + Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label84 + ' + Me.Label84.BackColor = System.Drawing.Color.Transparent + Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label84.ForeColor = System.Drawing.Color.Black + Me.Label84.Location = New System.Drawing.Point(6, 84) + Me.Label84.Name = "Label84" + Me.Label84.Size = New System.Drawing.Size(60, 17) + Me.Label84.TabIndex = 150 + Me.Label84.Text = "Birthday:" + Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBDomTattoos + ' + Me.CBDomTattoos.AutoSize = True + Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black + Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) + Me.CBDomTattoos.Name = "CBDomTattoos" + Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) + Me.CBDomTattoos.TabIndex = 148 + Me.CBDomTattoos.Text = "Tattoos" + Me.CBDomTattoos.UseVisualStyleBackColor = True + ' + 'CBDomFreckles + ' + Me.CBDomFreckles.AutoSize = True + Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black + Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) + Me.CBDomFreckles.Name = "CBDomFreckles" + Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) + Me.CBDomFreckles.TabIndex = 147 + Me.CBDomFreckles.Text = "Freckles" + Me.CBDomFreckles.UseVisualStyleBackColor = True + ' + 'domhairlengthComboBox + ' + Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White + Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black + Me.domhairlengthComboBox.FormattingEnabled = True + Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) + Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) + Me.domhairlengthComboBox.Name = "domhairlengthComboBox" + Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) + Me.domhairlengthComboBox.TabIndex = 145 + ' + 'Label10 + ' + Me.Label10.BackColor = System.Drawing.Color.Transparent + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.ForeColor = System.Drawing.Color.Black + Me.Label10.Location = New System.Drawing.Point(6, 133) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(78, 17) + Me.Label10.TabIndex = 146 + Me.Label10.Text = "Hair Length:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'dompubichairComboBox + ' + Me.dompubichairComboBox.BackColor = System.Drawing.Color.White + Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black + Me.dompubichairComboBox.FormattingEnabled = True + Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) + Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) + Me.dompubichairComboBox.Name = "dompubichairComboBox" + Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) + Me.dompubichairComboBox.TabIndex = 143 + ' + 'Label9 + ' + Me.Label9.BackColor = System.Drawing.Color.Transparent + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.ForeColor = System.Drawing.Color.Black + Me.Label9.Location = New System.Drawing.Point(6, 209) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(63, 17) + Me.Label9.TabIndex = 144 + Me.Label9.Text = "Pubic Hair:" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'boobComboBox + ' + Me.boobComboBox.BackColor = System.Drawing.Color.White + Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.boobComboBox.ForeColor = System.Drawing.Color.Black + Me.boobComboBox.FormattingEnabled = True + Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) + Me.boobComboBox.Location = New System.Drawing.Point(73, 182) + Me.boobComboBox.Name = "boobComboBox" + Me.boobComboBox.Size = New System.Drawing.Size(89, 21) + Me.boobComboBox.TabIndex = 2 + ' + 'DomLevelDescLabel + ' + Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) + Me.DomLevelDescLabel.Name = "DomLevelDescLabel" + Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) + Me.DomLevelDescLabel.TabIndex = 42 + Me.DomLevelDescLabel.Text = "Tease" + Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'domlevelNumBox + ' + Me.domlevelNumBox.BackColor = System.Drawing.Color.White + Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black + Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) + Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.domlevelNumBox.Name = "domlevelNumBox" + Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) + Me.domlevelNumBox.TabIndex = 41 + Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label43 + ' + Me.Label43.BackColor = System.Drawing.Color.Transparent + Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.ForeColor = System.Drawing.Color.Black + Me.Label43.Location = New System.Drawing.Point(6, 183) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(63, 17) + Me.Label43.TabIndex = 142 + Me.Label43.Text = "Cup Size:" + Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label44 + ' + Me.Label44.BackColor = System.Drawing.Color.Transparent + Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label44.ForeColor = System.Drawing.Color.Black + Me.Label44.Location = New System.Drawing.Point(6, 158) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(63, 17) + Me.Label44.TabIndex = 141 + Me.Label44.Text = "Eye Color:" + Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label45 + ' + Me.Label45.BackColor = System.Drawing.Color.Transparent + Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label45.ForeColor = System.Drawing.Color.Black + Me.Label45.Location = New System.Drawing.Point(6, 108) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(78, 17) + Me.Label45.TabIndex = 140 + Me.Label45.Text = "Hair Color:" + Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label46 + ' + Me.Label46.BackColor = System.Drawing.Color.Transparent + Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label46.ForeColor = System.Drawing.Color.Black + Me.Label46.Location = New System.Drawing.Point(6, 15) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(46, 17) + Me.Label46.TabIndex = 139 + Me.Label46.Text = "Level:" + Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GBDomPersonality + ' + Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) + Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) + Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) + Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) + Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) + Me.GBDomPersonality.Controls.Add(Me.CFNMCheckBox) + Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black + Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) + Me.GBDomPersonality.Name = "GBDomPersonality" + Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) + Me.GBDomPersonality.TabIndex = 131 + Me.GBDomPersonality.TabStop = False + Me.GBDomPersonality.Text = "Personality" + ' + 'degradingCheckBox + ' + Me.degradingCheckBox.AutoSize = True + Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black + Me.degradingCheckBox.Location = New System.Drawing.Point(79, 43) + Me.degradingCheckBox.Name = "degradingCheckBox" + Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) + Me.degradingCheckBox.TabIndex = 40 + Me.degradingCheckBox.Text = "Degrading" + Me.degradingCheckBox.UseVisualStyleBackColor = True + ' + 'sadisticCheckBox + ' + Me.sadisticCheckBox.AutoSize = True + Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black + Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) + Me.sadisticCheckBox.Name = "sadisticCheckBox" + Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) + Me.sadisticCheckBox.TabIndex = 39 + Me.sadisticCheckBox.Text = "Sadistic" + Me.sadisticCheckBox.UseVisualStyleBackColor = True + ' + 'supremacistCheckBox + ' + Me.supremacistCheckBox.AutoSize = True + Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black + Me.supremacistCheckBox.Location = New System.Drawing.Point(155, 20) + Me.supremacistCheckBox.Name = "supremacistCheckBox" + Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) + Me.supremacistCheckBox.TabIndex = 38 + Me.supremacistCheckBox.Text = "Supremacist" + Me.supremacistCheckBox.UseVisualStyleBackColor = True + ' + 'vulgarCheckBox + ' + Me.vulgarCheckBox.AutoSize = True + Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black + Me.vulgarCheckBox.Location = New System.Drawing.Point(79, 20) + Me.vulgarCheckBox.Name = "vulgarCheckBox" + Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) + Me.vulgarCheckBox.TabIndex = 37 + Me.vulgarCheckBox.Text = "Vulgar" + Me.vulgarCheckBox.UseVisualStyleBackColor = True + ' + 'crazyCheckBox + ' + Me.crazyCheckBox.AutoSize = True + Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black + Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) + Me.crazyCheckBox.Name = "crazyCheckBox" + Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) + Me.crazyCheckBox.TabIndex = 36 + Me.crazyCheckBox.Text = "Crazy" + Me.crazyCheckBox.UseVisualStyleBackColor = True + ' + 'CFNMCheckBox + ' + Me.CFNMCheckBox.AutoSize = True + Me.CFNMCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CFNMCheckBox.ForeColor = System.Drawing.Color.Black + Me.CFNMCheckBox.Location = New System.Drawing.Point(155, 43) + Me.CFNMCheckBox.Name = "CFNMCheckBox" + Me.CFNMCheckBox.Size = New System.Drawing.Size(56, 17) + Me.CFNMCheckBox.TabIndex = 41 + Me.CFNMCheckBox.Text = "CFNM" + Me.CFNMCheckBox.UseVisualStyleBackColor = True + ' + 'GBDomOrgasms + ' + Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) + Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) + Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) + Me.GBDomOrgasms.Controls.Add(Me.Label16) + Me.GBDomOrgasms.Controls.Add(Me.Label12) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) + Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) + Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) + Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) + Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) + Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black + Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) + Me.GBDomOrgasms.Name = "GBDomOrgasms" + Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) + Me.GBDomOrgasms.TabIndex = 132 + Me.GBDomOrgasms.TabStop = False + Me.GBDomOrgasms.Text = "Orgasms" + ' + 'CBLockOrgasmChances + ' + Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances + Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black + Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) + Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" + Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) + Me.CBLockOrgasmChances.TabIndex = 146 + Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" + Me.CBLockOrgasmChances.UseVisualStyleBackColor = True + ' + 'orgasmlockrandombutton + ' + Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray + Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black + Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) + Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" + Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) + Me.orgasmlockrandombutton.TabIndex = 145 + Me.orgasmlockrandombutton.Text = "Lock Random" + Me.orgasmlockrandombutton.UseVisualStyleBackColor = False + ' + 'CBDomOrgasmEnds + ' + Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black + Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) + Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" + Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) + Me.CBDomOrgasmEnds.TabIndex = 144 + Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" + Me.CBDomOrgasmEnds.UseVisualStyleBackColor = True + ' + 'Label16 + ' + Me.Label16.BackColor = System.Drawing.Color.Transparent + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.ForeColor = System.Drawing.Color.Black + Me.Label16.Location = New System.Drawing.Point(12, 47) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(87, 17) + Me.Label16.TabIndex = 142 + Me.Label16.Text = "Ruins Orgasms:" + Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label12 + ' + Me.Label12.BackColor = System.Drawing.Color.Transparent + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.ForeColor = System.Drawing.Color.Black + Me.Label12.Location = New System.Drawing.Point(12, 19) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(87, 17) + Me.Label12.TabIndex = 141 + Me.Label12.Text = "Allows Orgasms:" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'orgasmsperlockButton + ' + Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray + Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black + Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) + Me.orgasmsperlockButton.Name = "orgasmsperlockButton" + Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) + Me.orgasmsperlockButton.TabIndex = 97 + Me.orgasmsperlockButton.Text = "Lock Selected" + Me.orgasmsperlockButton.UseVisualStyleBackColor = False + ' + 'orgasmsperComboBox + ' + Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White + Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black + Me.orgasmsperComboBox.FormattingEnabled = True + Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) + Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) + Me.orgasmsperComboBox.Name = "orgasmsperComboBox" + Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) + Me.orgasmsperComboBox.TabIndex = 43 + ' + 'orgasmsperLabel + ' + Me.orgasmsperLabel.AutoSize = True + Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black + Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) + Me.orgasmsperLabel.Name = "orgasmsperLabel" + Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) + Me.orgasmsperLabel.TabIndex = 42 + Me.orgasmsperLabel.Text = "per" + Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'limitcheckbox + ' + Me.limitcheckbox.AutoSize = True + Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.limitcheckbox.ForeColor = System.Drawing.Color.Black + Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) + Me.limitcheckbox.Name = "limitcheckbox" + Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) + Me.limitcheckbox.TabIndex = 39 + Me.limitcheckbox.Text = "Limit" + Me.limitcheckbox.UseVisualStyleBackColor = True + ' + 'orgasmsPerNumBox + ' + Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White + Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black + Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) + Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" + Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) + Me.orgasmsPerNumBox.TabIndex = 41 + Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'CBDomDenialEnds + ' + Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black + Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) + Me.CBDomDenialEnds.Name = "CBDomDenialEnds" + Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) + Me.CBDomDenialEnds.TabIndex = 38 + Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" + Me.CBDomDenialEnds.UseVisualStyleBackColor = True + ' + 'alloworgasmComboBox + ' + Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White + Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black + Me.alloworgasmComboBox.FormattingEnabled = True + Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) + Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) + Me.alloworgasmComboBox.Name = "alloworgasmComboBox" + Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) + Me.alloworgasmComboBox.TabIndex = 1 + ' + 'ruinorgasmComboBox + ' + Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White + Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black + Me.ruinorgasmComboBox.FormattingEnabled = True + Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) + Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) + Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" + Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) + Me.ruinorgasmComboBox.TabIndex = 2 + ' + 'GBDomPetNames + ' + Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray + Me.GBDomPetNames.Controls.Add(Me.Label74) + Me.GBDomPetNames.Controls.Add(Me.petnameBox7) + Me.GBDomPetNames.Controls.Add(Me.petnameBox8) + Me.GBDomPetNames.Controls.Add(Me.petnameBox1) + Me.GBDomPetNames.Controls.Add(Me.Label15) + Me.GBDomPetNames.Controls.Add(Me.petnameBox4) + Me.GBDomPetNames.Controls.Add(Me.petnameBox6) + Me.GBDomPetNames.Controls.Add(Me.petnameBox2) + Me.GBDomPetNames.Controls.Add(Me.Label11) + Me.GBDomPetNames.Controls.Add(Me.petnameBox5) + Me.GBDomPetNames.Controls.Add(Me.petnameBox3) + Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black + Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) + Me.GBDomPetNames.Name = "GBDomPetNames" + Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) + Me.GBDomPetNames.TabIndex = 134 + Me.GBDomPetNames.TabStop = False + Me.GBDomPetNames.Text = "Pet Names" + ' + 'Label74 + ' + Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label74.ForeColor = System.Drawing.Color.Black + Me.Label74.Location = New System.Drawing.Point(8, 14) + Me.Label74.Name = "Label74" + Me.Label74.Size = New System.Drawing.Size(233, 13) + Me.Label74.TabIndex = 45 + Me.Label74.Text = "Great Mood" + Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'petnameBox7 + ' + Me.petnameBox7.BackColor = System.Drawing.Color.White + Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox7.ForeColor = System.Drawing.Color.Black + Me.petnameBox7.Location = New System.Drawing.Point(8, 154) + Me.petnameBox7.Name = "petnameBox7" + Me.petnameBox7.Size = New System.Drawing.Size(114, 23) + Me.petnameBox7.TabIndex = 13 + Me.petnameBox7.Text = "bitch boy" + Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox8 + ' + Me.petnameBox8.BackColor = System.Drawing.Color.White + Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox8.ForeColor = System.Drawing.Color.Black + Me.petnameBox8.Location = New System.Drawing.Point(128, 154) + Me.petnameBox8.Name = "petnameBox8" + Me.petnameBox8.Size = New System.Drawing.Size(113, 22) + Me.petnameBox8.TabIndex = 14 + Me.petnameBox8.Text = "slut" + Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox1 + ' + Me.petnameBox1.BackColor = System.Drawing.Color.White + Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox1.ForeColor = System.Drawing.Color.Black + Me.petnameBox1.Location = New System.Drawing.Point(8, 32) + Me.petnameBox1.Name = "petnameBox1" + Me.petnameBox1.Size = New System.Drawing.Size(114, 23) + Me.petnameBox1.TabIndex = 7 + Me.petnameBox1.Text = "stroker" + Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label15 + ' + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.ForeColor = System.Drawing.Color.Black + Me.Label15.Location = New System.Drawing.Point(8, 136) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(233, 13) + Me.Label15.TabIndex = 44 + Me.Label15.Text = "Bad Mood" + Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'petnameBox4 + ' + Me.petnameBox4.BackColor = System.Drawing.Color.White + Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox4.ForeColor = System.Drawing.Color.Black + Me.petnameBox4.Location = New System.Drawing.Point(128, 81) + Me.petnameBox4.Name = "petnameBox4" + Me.petnameBox4.Size = New System.Drawing.Size(113, 23) + Me.petnameBox4.TabIndex = 10 + Me.petnameBox4.Text = "loser" + Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox6 + ' + Me.petnameBox6.BackColor = System.Drawing.Color.White + Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox6.ForeColor = System.Drawing.Color.Black + Me.petnameBox6.Location = New System.Drawing.Point(128, 107) + Me.petnameBox6.Name = "petnameBox6" + Me.petnameBox6.Size = New System.Drawing.Size(113, 23) + Me.petnameBox6.TabIndex = 12 + Me.petnameBox6.Text = "pet" + Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox2 + ' + Me.petnameBox2.BackColor = System.Drawing.Color.White + Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox2.ForeColor = System.Drawing.Color.Black + Me.petnameBox2.Location = New System.Drawing.Point(128, 32) + Me.petnameBox2.Name = "petnameBox2" + Me.petnameBox2.Size = New System.Drawing.Size(114, 23) + Me.petnameBox2.TabIndex = 8 + Me.petnameBox2.Text = "wanker" + Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label11 + ' + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.ForeColor = System.Drawing.Color.Black + Me.Label11.Location = New System.Drawing.Point(5, 63) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(239, 13) + Me.Label11.TabIndex = 43 + Me.Label11.Text = "Neutral Mood" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'petnameBox5 + ' + Me.petnameBox5.BackColor = System.Drawing.Color.White + Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox5.ForeColor = System.Drawing.Color.Black + Me.petnameBox5.Location = New System.Drawing.Point(8, 107) + Me.petnameBox5.Name = "petnameBox5" + Me.petnameBox5.Size = New System.Drawing.Size(114, 23) + Me.petnameBox5.TabIndex = 11 + Me.petnameBox5.Text = "baby" + Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox3 + ' + Me.petnameBox3.BackColor = System.Drawing.Color.White + Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox3.ForeColor = System.Drawing.Color.Black + Me.petnameBox3.Location = New System.Drawing.Point(8, 81) + Me.petnameBox3.Name = "petnameBox3" + Me.petnameBox3.Size = New System.Drawing.Size(114, 23) + Me.petnameBox3.TabIndex = 9 + Me.petnameBox3.Text = "slave" + Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label54 + ' + Me.Label54.BackColor = System.Drawing.Color.Transparent + Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label54.ForeColor = System.Drawing.Color.Black + Me.Label54.Location = New System.Drawing.Point(7, 6) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(692, 21) + Me.Label54.TabIndex = 49 + Me.Label54.Text = "Domme Settings" + Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage10 + ' + Me.TabPage10.BackColor = System.Drawing.Color.Silver + Me.TabPage10.Controls.Add(Me.Panel2) + Me.TabPage10.Location = New System.Drawing.Point(4, 22) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage10.Size = New System.Drawing.Size(720, 448) + Me.TabPage10.TabIndex = 9 + Me.TabPage10.Text = "Sub" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.LightGray + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.GroupBox22) + Me.Panel2.Controls.Add(Me.GroupBox45) + Me.Panel2.Controls.Add(Me.GroupBox35) + Me.Panel2.Controls.Add(Me.GroupBox13) + Me.Panel2.Controls.Add(Me.GroupBox7) + Me.Panel2.Controls.Add(Me.PictureBox12) + Me.Panel2.Controls.Add(Me.GroupBox32) + Me.Panel2.Controls.Add(Me.Label70) + Me.Panel2.Location = New System.Drawing.Point(6, 6) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(708, 437) + Me.Panel2.TabIndex = 94 + ' + 'GroupBox22 + ' + Me.GroupBox22.BackColor = System.Drawing.Color.LightGray + Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) + Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) + Me.GroupBox22.Controls.Add(Me.Label75) + Me.GroupBox22.Controls.Add(Me.Label77) + Me.GroupBox22.ForeColor = System.Drawing.Color.Black + Me.GroupBox22.Location = New System.Drawing.Point(440, 388) + Me.GroupBox22.Name = "GroupBox22" + Me.GroupBox22.Size = New System.Drawing.Size(259, 39) + Me.GroupBox22.TabIndex = 158 + Me.GroupBox22.TabStop = False + Me.GroupBox22.Text = "Writing Tasks" + ' + 'NBWritingTaskMax + ' + Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) + Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMax.Name = "NBWritingTaskMax" + Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) + Me.NBWritingTaskMax.TabIndex = 168 + Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) + ' + 'NBWritingTaskMin + ' + Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) + Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMin.Name = "NBWritingTaskMin" + Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) + Me.NBWritingTaskMin.TabIndex = 167 + Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) + ' + 'Label75 + ' + Me.Label75.BackColor = System.Drawing.Color.Transparent + Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label75.ForeColor = System.Drawing.Color.Black + Me.Label75.Location = New System.Drawing.Point(184, 13) + Me.Label75.Name = "Label75" + Me.Label75.Size = New System.Drawing.Size(10, 17) + Me.Label75.TabIndex = 166 + Me.Label75.Text = "-" + Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label77 + ' + Me.Label77.BackColor = System.Drawing.Color.Transparent + Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label77.ForeColor = System.Drawing.Color.Black + Me.Label77.Location = New System.Drawing.Point(12, 15) + Me.Label77.Name = "Label77" + Me.Label77.Size = New System.Drawing.Size(126, 17) + Me.Label77.TabIndex = 165 + Me.Label77.Tag = "" + Me.Label77.Text = "Line Amount Range:" + Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox45 + ' + Me.GroupBox45.BackColor = System.Drawing.Color.LightGray + Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) + Me.GroupBox45.Controls.Add(Me.CBCBTBalls) + Me.GroupBox45.Controls.Add(Me.CBCBTCock) + Me.GroupBox45.Controls.Add(Me.CBTSlider) + Me.GroupBox45.ForeColor = System.Drawing.Color.Black + Me.GroupBox45.Location = New System.Drawing.Point(440, 294) + Me.GroupBox45.Name = "GroupBox45" + Me.GroupBox45.Size = New System.Drawing.Size(259, 50) + Me.GroupBox45.TabIndex = 155 + Me.GroupBox45.TabStop = False + Me.GroupBox45.Text = "CBT" + ' + 'LBLCBTSlider + ' + Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent + Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black + Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) + Me.LBLCBTSlider.Name = "LBLCBTSlider" + Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) + Me.LBLCBTSlider.TabIndex = 168 + Me.LBLCBTSlider.Text = "CBT Level: 3" + Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBCBTBalls + ' + Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) + Me.CBCBTBalls.Name = "CBCBTBalls" + Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) + Me.CBCBTBalls.TabIndex = 1 + Me.CBCBTBalls.Text = "Ball Torture" + Me.CBCBTBalls.UseVisualStyleBackColor = True + ' + 'CBCBTCock + ' + Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) + Me.CBCBTCock.Name = "CBCBTCock" + Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) + Me.CBCBTCock.TabIndex = 0 + Me.CBCBTCock.Text = "Cock Torture" + Me.CBCBTCock.UseVisualStyleBackColor = True + ' + 'CBTSlider + ' + Me.CBTSlider.AutoSize = False + Me.CBTSlider.LargeChange = 1 + Me.CBTSlider.Location = New System.Drawing.Point(134, 13) + Me.CBTSlider.Maximum = 5 + Me.CBTSlider.Minimum = 1 + Me.CBTSlider.Name = "CBTSlider" + Me.CBTSlider.Size = New System.Drawing.Size(110, 25) + Me.CBTSlider.TabIndex = 166 + Me.CBTSlider.Value = 3 + ' + 'GroupBox35 + ' + Me.GroupBox35.BackColor = System.Drawing.Color.LightGray + Me.GroupBox35.Controls.Add(Me.GroupBoxSorry) + Me.GroupBox35.Controls.Add(Me.GroupBox39) + Me.GroupBox35.Controls.Add(Me.GroupBox38) + Me.GroupBox35.Controls.Add(Me.GroupBox37) + Me.GroupBox35.Controls.Add(Me.GroupBox36) + Me.GroupBox35.ForeColor = System.Drawing.Color.Black + Me.GroupBox35.Location = New System.Drawing.Point(440, 6) + Me.GroupBox35.Name = "GroupBox35" + Me.GroupBox35.Size = New System.Drawing.Size(259, 287) + Me.GroupBox35.TabIndex = 154 + Me.GroupBox35.TabStop = False + Me.GroupBox35.Text = "Key Phrases" + ' + 'GroupBoxSorry + ' + Me.GroupBoxSorry.Controls.Add(Me.TBSorry) + Me.GroupBoxSorry.Location = New System.Drawing.Point(6, 145) + Me.GroupBoxSorry.Name = "GroupBoxSorry" + Me.GroupBoxSorry.Size = New System.Drawing.Size(247, 46) + Me.GroupBoxSorry.TabIndex = 3 + Me.GroupBoxSorry.TabStop = False + Me.GroupBoxSorry.Tag = "" + Me.GroupBoxSorry.Text = "Sorry" + ' + 'TBSorry + ' + Me.TBSorry.Location = New System.Drawing.Point(9, 16) + Me.TBSorry.Name = "TBSorry" + Me.TBSorry.Size = New System.Drawing.Size(229, 20) + Me.TBSorry.TabIndex = 0 + Me.TBSorry.Text = "sorry, apologize, excuse" + ' + 'GroupBox39 + ' + Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) + Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) + Me.GroupBox39.Controls.Add(Me.TBHonorific) + Me.GroupBox39.Location = New System.Drawing.Point(6, 191) + Me.GroupBox39.Name = "GroupBox39" + Me.GroupBox39.Size = New System.Drawing.Size(247, 89) + Me.GroupBox39.TabIndex = 3 + Me.GroupBox39.TabStop = False + Me.GroupBox39.Tag = "" + Me.GroupBox39.Text = "Honorific" + ' + 'CBHonorificInclude + ' + Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black + Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 44) + Me.CBHonorificInclude.Name = "CBHonorificInclude" + Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) + Me.CBHonorificInclude.TabIndex = 40 + Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" + Me.CBHonorificInclude.UseVisualStyleBackColor = True + ' + 'CBHonorificCapitalized + ' + Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black + Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 66) + Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" + Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) + Me.CBHonorificCapitalized.TabIndex = 39 + Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" + Me.CBHonorificCapitalized.UseVisualStyleBackColor = True + ' + 'TBHonorific + ' + Me.TBHonorific.Location = New System.Drawing.Point(9, 16) + Me.TBHonorific.Name = "TBHonorific" + Me.TBHonorific.Size = New System.Drawing.Size(229, 20) + Me.TBHonorific.TabIndex = 0 + Me.TBHonorific.Text = "Mistress" + ' + 'GroupBox38 + ' + Me.GroupBox38.Controls.Add(Me.TBNo) + Me.GroupBox38.Location = New System.Drawing.Point(6, 100) + Me.GroupBox38.Name = "GroupBox38" + Me.GroupBox38.Size = New System.Drawing.Size(247, 46) + Me.GroupBox38.TabIndex = 2 + Me.GroupBox38.TabStop = False + Me.GroupBox38.Tag = "" + Me.GroupBox38.Text = "No" + ' + 'TBNo + ' + Me.TBNo.Location = New System.Drawing.Point(9, 16) + Me.TBNo.Name = "TBNo" + Me.TBNo.Size = New System.Drawing.Size(229, 20) + Me.TBNo.TabIndex = 0 + Me.TBNo.Text = "no, nah, nope" + ' + 'GroupBox37 + ' + Me.GroupBox37.Controls.Add(Me.TBYes) + Me.GroupBox37.Location = New System.Drawing.Point(6, 57) + Me.GroupBox37.Name = "GroupBox37" + Me.GroupBox37.Size = New System.Drawing.Size(247, 46) + Me.GroupBox37.TabIndex = 1 + Me.GroupBox37.TabStop = False + Me.GroupBox37.Tag = "" + Me.GroupBox37.Text = "Yes" + ' + 'TBYes + ' + Me.TBYes.Location = New System.Drawing.Point(9, 16) + Me.TBYes.Name = "TBYes" + Me.TBYes.Size = New System.Drawing.Size(229, 20) + Me.TBYes.TabIndex = 0 + Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" + ' + 'GroupBox36 + ' + Me.GroupBox36.Controls.Add(Me.TBGreeting) + Me.GroupBox36.Location = New System.Drawing.Point(6, 17) + Me.GroupBox36.Name = "GroupBox36" + Me.GroupBox36.Size = New System.Drawing.Size(247, 46) + Me.GroupBox36.TabIndex = 0 + Me.GroupBox36.TabStop = False + Me.GroupBox36.Tag = "" + Me.GroupBox36.Text = "Greeting" + ' + 'TBGreeting + ' + Me.TBGreeting.Location = New System.Drawing.Point(9, 16) + Me.TBGreeting.Name = "TBGreeting" + Me.TBGreeting.Size = New System.Drawing.Size(229, 20) + Me.TBGreeting.TabIndex = 0 + Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" + ' + 'GroupBox13 + ' + Me.GroupBox13.BackColor = System.Drawing.Color.LightGray + Me.GroupBox13.Controls.Add(Me.Label34) + Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) + Me.GroupBox13.ForeColor = System.Drawing.Color.Black + Me.GroupBox13.Location = New System.Drawing.Point(440, 346) + Me.GroupBox13.Name = "GroupBox13" + Me.GroupBox13.Size = New System.Drawing.Size(259, 39) + Me.GroupBox13.TabIndex = 157 + Me.GroupBox13.TabStop = False + Me.GroupBox13.Text = "Routine" + ' + 'Label34 + ' + Me.Label34.BackColor = System.Drawing.Color.Transparent + Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label34.ForeColor = System.Drawing.Color.Black + Me.Label34.Location = New System.Drawing.Point(12, 15) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(116, 17) + Me.Label34.TabIndex = 140 + Me.Label34.Text = "Daily Wake Up Time:" + Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TimeBoxWakeUp + ' + Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time + Me.TimeBoxWakeUp.Location = New System.Drawing.Point(134, 12) + Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" + Me.TimeBoxWakeUp.ShowUpDown = True + Me.TimeBoxWakeUp.Size = New System.Drawing.Size(110, 20) + Me.TimeBoxWakeUp.TabIndex = 0 + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) + Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) + Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) + Me.GroupBox7.Controls.Add(Me.Label133) + Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) + Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) + Me.GroupBox7.Controls.Add(Me.Label78) + Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) + Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) + Me.GroupBox7.Controls.Add(Me.Label129) + Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) + Me.GroupBox7.Controls.Add(Me.LBLMaxHold) + Me.GroupBox7.Controls.Add(Me.Label79) + Me.GroupBox7.Controls.Add(Me.NBLongEdge) + Me.GroupBox7.Controls.Add(Me.LBLMinHold) + Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) + Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) + Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) + Me.GroupBox7.Controls.Add(Me.Label55) + Me.GroupBox7.Controls.Add(Me.Label81) + Me.GroupBox7.Controls.Add(Me.Label5) + Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) + Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) + Me.GroupBox7.Controls.Add(Me.Label131) + Me.GroupBox7.Location = New System.Drawing.Point(7, 201) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(226, 226) + Me.GroupBox7.TabIndex = 152 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "Edging" + ' + 'LBLMaxExtremeHold + ' + Me.LBLMaxExtremeHold.AutoSize = True + Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) + Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" + Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMaxExtremeHold.TabIndex = 192 + Me.LBLMaxExtremeHold.Text = "minutes" + Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLMinExtremeHold + ' + Me.LBLMinExtremeHold.AutoSize = True + Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) + Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" + Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMinExtremeHold.TabIndex = 190 + Me.LBLMinExtremeHold.Text = "minutes" + Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBExtremeHoldMin + ' + Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) + Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" + Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) + Me.NBExtremeHoldMin.TabIndex = 189 + Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label133 + ' + Me.Label133.BackColor = System.Drawing.Color.Transparent + Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label133.ForeColor = System.Drawing.Color.Black + Me.Label133.Location = New System.Drawing.Point(6, 105) + Me.Label133.Name = "Label133" + Me.Label133.Size = New System.Drawing.Size(119, 17) + Me.Label133.TabIndex = 187 + Me.Label133.Text = "Min Extreme Hold Time:" + Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBExtremeHoldMax + ' + Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) + Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" + Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) + Me.NBExtremeHoldMax.TabIndex = 188 + Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'LBLMaxLongHold + ' + Me.LBLMaxLongHold.AutoSize = True + Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) + Me.LBLMaxLongHold.Name = "LBLMaxLongHold" + Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMaxLongHold.TabIndex = 186 + Me.LBLMaxLongHold.Text = "minutes" + Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label78 + ' + Me.Label78.BackColor = System.Drawing.Color.Transparent + Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label78.ForeColor = System.Drawing.Color.Black + Me.Label78.Location = New System.Drawing.Point(6, 83) + Me.Label78.Name = "Label78" + Me.Label78.Size = New System.Drawing.Size(113, 17) + Me.Label78.TabIndex = 185 + Me.Label78.Text = "Max Long Hold Time:" + Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLMinLongHold + ' + Me.LBLMinLongHold.AutoSize = True + Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) + Me.LBLMinLongHold.Name = "LBLMinLongHold" + Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMinLongHold.TabIndex = 184 + Me.LBLMinLongHold.Text = "minutes" + Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBLongHoldMin + ' + Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) + Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBLongHoldMin.Name = "NBLongHoldMin" + Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) + Me.NBLongHoldMin.TabIndex = 183 + Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label129 + ' + Me.Label129.BackColor = System.Drawing.Color.Transparent + Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label129.ForeColor = System.Drawing.Color.Black + Me.Label129.Location = New System.Drawing.Point(6, 61) + Me.Label129.Name = "Label129" + Me.Label129.Size = New System.Drawing.Size(113, 17) + Me.Label129.TabIndex = 181 + Me.Label129.Text = "Min Long Hold Time:" + Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBLongHoldMax + ' + Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) + Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBLongHoldMax.Name = "NBLongHoldMax" + Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) + Me.NBLongHoldMax.TabIndex = 182 + Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'LBLMaxHold + ' + Me.LBLMaxHold.AutoSize = True + Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) + Me.LBLMaxHold.Name = "LBLMaxHold" + Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMaxHold.TabIndex = 180 + Me.LBLMaxHold.Text = "minutes" + Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label79 + ' + Me.Label79.BackColor = System.Drawing.Color.Transparent + Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label79.ForeColor = System.Drawing.Color.Black + Me.Label79.Location = New System.Drawing.Point(6, 39) + Me.Label79.Name = "Label79" + Me.Label79.Size = New System.Drawing.Size(113, 17) + Me.Label79.TabIndex = 178 + Me.Label79.Text = "Max Hold Edge Time:" + Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBLongEdge + ' + Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) + Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) + Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBLongEdge.Name = "NBLongEdge" + Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) + Me.NBLongEdge.TabIndex = 152 + Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) + ' + 'LBLMinHold + ' + Me.LBLMinHold.AutoSize = True + Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) + Me.LBLMinHold.Name = "LBLMinHold" + Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) + Me.LBLMinHold.TabIndex = 177 + Me.LBLMinHold.Text = "seconds" + Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBEdgeUseAvg + ' + Me.CBEdgeUseAvg.AutoSize = True + Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) + Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" + Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) + Me.CBEdgeUseAvg.TabIndex = 174 + Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" + Me.CBEdgeUseAvg.UseVisualStyleBackColor = True + ' + 'CBLongEdgeInterrupts + ' + Me.CBLongEdgeInterrupts.Checked = True + Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black + Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) + Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" + Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) + Me.CBLongEdgeInterrupts.TabIndex = 169 + Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" + Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = True + ' + 'NBHoldTheEdgeMin + ' + Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) + Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" + Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) + Me.NBHoldTheEdgeMin.TabIndex = 176 + Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label55 + ' + Me.Label55.BackColor = System.Drawing.Color.Transparent + Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label55.ForeColor = System.Drawing.Color.Black + Me.Label55.Location = New System.Drawing.Point(7, 149) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(116, 17) + Me.Label55.TabIndex = 170 + Me.Label55.Text = "Long Edge Threshold:" + Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label81 + ' + Me.Label81.BackColor = System.Drawing.Color.Transparent + Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label81.ForeColor = System.Drawing.Color.Black + Me.Label81.Location = New System.Drawing.Point(6, 17) + Me.Label81.Name = "Label81" + Me.Label81.Size = New System.Drawing.Size(113, 17) + Me.Label81.TabIndex = 153 + Me.Label81.Text = "Min Hold Edge Time:" + Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(174, 151) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(43, 13) + Me.Label5.TabIndex = 175 + Me.Label5.Text = "minutes" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBHoldTheEdgeMax + ' + Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) + Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" + Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) + Me.NBHoldTheEdgeMax.TabIndex = 155 + Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'CBLongEdgeTaunts + ' + Me.CBLongEdgeTaunts.Checked = True + Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black + Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) + Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" + Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) + Me.CBLongEdgeTaunts.TabIndex = 172 + Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" + Me.CBLongEdgeTaunts.UseVisualStyleBackColor = True + ' + 'Label131 + ' + Me.Label131.BackColor = System.Drawing.Color.Transparent + Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label131.ForeColor = System.Drawing.Color.Black + Me.Label131.Location = New System.Drawing.Point(6, 127) + Me.Label131.Name = "Label131" + Me.Label131.Size = New System.Drawing.Size(128, 17) + Me.Label131.TabIndex = 191 + Me.Label131.Text = "Max Extreme Hold Time:" + Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'PictureBox12 + ' + Me.PictureBox12.BackColor = System.Drawing.Color.LightGray + Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox12.Location = New System.Drawing.Point(9, 6) + Me.PictureBox12.Name = "PictureBox12" + Me.PictureBox12.Size = New System.Drawing.Size(160, 19) + Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox12.TabIndex = 149 + Me.PictureBox12.TabStop = False + ' + 'GroupBox32 + ' + Me.GroupBox32.BackColor = System.Drawing.Color.LightGray + Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) + Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) + Me.GroupBox32.Controls.Add(Me.CBOwnChastity) + Me.GroupBox32.Controls.Add(Me.CBChastityPA) + Me.GroupBox32.Controls.Add(Me.CBHimHer) + Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) + Me.GroupBox32.Controls.Add(Me.CBCockToClit) + Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) + Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) + Me.GroupBox32.Controls.Add(Me.CBSubPierced) + Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) + Me.GroupBox32.Controls.Add(Me.TBSubHairColor) + Me.GroupBox32.Controls.Add(Me.Label63) + Me.GroupBox32.Controls.Add(Me.LBLSubInches) + Me.GroupBox32.Controls.Add(Me.subAgeNumBox) + Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) + Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) + Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) + Me.GroupBox32.Controls.Add(Me.LBLSubEye) + Me.GroupBox32.Controls.Add(Me.LBLSubHair) + Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) + Me.GroupBox32.Controls.Add(Me.LBLSubAge) + Me.GroupBox32.ForeColor = System.Drawing.Color.Black + Me.GroupBox32.Location = New System.Drawing.Point(7, 30) + Me.GroupBox32.Name = "GroupBox32" + Me.GroupBox32.Size = New System.Drawing.Size(427, 165) + Me.GroupBox32.TabIndex = 62 + Me.GroupBox32.TabStop = False + Me.GroupBox32.Text = "Stats && Information" + ' + 'LBLSubBdayFormat + ' + Me.LBLSubBdayFormat.AutoSize = True + Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) + Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" + Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) + Me.LBLSubBdayFormat.TabIndex = 161 + Me.LBLSubBdayFormat.Text = "mm/dd" + Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBChastitySpikes + ' + Me.CBChastitySpikes.AutoSize = True + Me.CBChastitySpikes.Enabled = False + Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) + Me.CBChastitySpikes.Name = "CBChastitySpikes" + Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) + Me.CBChastitySpikes.TabIndex = 4 + Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" + Me.CBChastitySpikes.UseVisualStyleBackColor = True + ' + 'CBOwnChastity + ' + Me.CBOwnChastity.AutoSize = True + Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) + Me.CBOwnChastity.Name = "CBOwnChastity" + Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) + Me.CBOwnChastity.TabIndex = 5 + Me.CBOwnChastity.Text = "Own Device a Chastity Device" + Me.CBOwnChastity.UseVisualStyleBackColor = True + ' + 'CBChastityPA + ' + Me.CBChastityPA.AutoSize = True + Me.CBChastityPA.Enabled = False + Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) + Me.CBChastityPA.Name = "CBChastityPA" + Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) + Me.CBChastityPA.TabIndex = 3 + Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" + Me.CBChastityPA.UseVisualStyleBackColor = True + ' + 'CBHimHer + ' + Me.CBHimHer.AutoSize = True + Me.CBHimHer.Location = New System.Drawing.Point(191, 65) + Me.CBHimHer.Name = "CBHimHer" + Me.CBHimHer.Size = New System.Drawing.Size(219, 17) + Me.CBHimHer.TabIndex = 3 + Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" + Me.CBHimHer.UseVisualStyleBackColor = True + ' + 'CBBallsToPussy + ' + Me.CBBallsToPussy.AutoSize = True + Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) + Me.CBBallsToPussy.Name = "CBBallsToPussy" + Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) + Me.CBBallsToPussy.TabIndex = 160 + Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" + Me.CBBallsToPussy.UseVisualStyleBackColor = True + ' + 'CBCockToClit + ' + Me.CBCockToClit.AutoSize = True + Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) + Me.CBCockToClit.Name = "CBCockToClit" + Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) + Me.CBCockToClit.TabIndex = 159 + Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" + Me.CBCockToClit.UseVisualStyleBackColor = True + ' + 'NBBirthdayDay + ' + Me.NBBirthdayDay.BackColor = System.Drawing.Color.White + Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black + Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) + Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) + Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBBirthdayDay.Name = "NBBirthdayDay" + Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) + Me.NBBirthdayDay.TabIndex = 144 + Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'CBSubCircumcised + ' + Me.CBSubCircumcised.AutoSize = True + Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black + Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) + Me.CBSubCircumcised.Name = "CBSubCircumcised" + Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) + Me.CBSubCircumcised.TabIndex = 157 + Me.CBSubCircumcised.Text = "Circumcised" + Me.CBSubCircumcised.UseVisualStyleBackColor = True + ' + 'CBSubPierced + ' + Me.CBSubPierced.AutoSize = True + Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBSubPierced.ForeColor = System.Drawing.Color.Black + Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) + Me.CBSubPierced.Name = "CBSubPierced" + Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) + Me.CBSubPierced.TabIndex = 156 + Me.CBSubPierced.Text = "Pierced" + Me.CBSubPierced.UseVisualStyleBackColor = True + ' + 'TBSubEyeColor + ' + Me.TBSubEyeColor.BackColor = System.Drawing.Color.White + Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black + Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) + Me.TBSubEyeColor.Name = "TBSubEyeColor" + Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) + Me.TBSubEyeColor.TabIndex = 155 + Me.TBSubEyeColor.Text = "brown" + ' + 'TBSubHairColor + ' + Me.TBSubHairColor.BackColor = System.Drawing.Color.White + Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black + Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) + Me.TBSubHairColor.Name = "TBSubHairColor" + Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) + Me.TBSubHairColor.TabIndex = 154 + Me.TBSubHairColor.Text = "brown" + ' + 'Label63 + ' + Me.Label63.AutoSize = True + Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label63.ForeColor = System.Drawing.Color.Black + Me.Label63.Location = New System.Drawing.Point(113, 41) + Me.Label63.Name = "Label63" + Me.Label63.Size = New System.Drawing.Size(12, 13) + Me.Label63.TabIndex = 143 + Me.Label63.Text = "/" + Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLSubInches + ' + Me.LBLSubInches.AutoSize = True + Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) + Me.LBLSubInches.Name = "LBLSubInches" + Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) + Me.LBLSubInches.TabIndex = 124 + Me.LBLSubInches.Text = "inches" + Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'subAgeNumBox + ' + Me.subAgeNumBox.BackColor = System.Drawing.Color.White + Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black + Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) + Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) + Me.subAgeNumBox.Name = "subAgeNumBox" + Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) + Me.subAgeNumBox.TabIndex = 27 + Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) + ' + 'NBBirthdayMonth + ' + Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White + Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black + Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) + Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) + Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBBirthdayMonth.Name = "NBBirthdayMonth" + Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) + Me.NBBirthdayMonth.TabIndex = 41 + Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'LBLSubCockSize + ' + Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent + Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black + Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) + Me.LBLSubCockSize.Name = "LBLSubCockSize" + Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) + Me.LBLSubCockSize.TabIndex = 142 + Me.LBLSubCockSize.Text = "Cock Size:" + Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CockSizeNumBox + ' + Me.CockSizeNumBox.BackColor = System.Drawing.Color.White + Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black + Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) + Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) + Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.CockSizeNumBox.Name = "CockSizeNumBox" + Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) + Me.CockSizeNumBox.TabIndex = 123 + Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'LBLSubEye + ' + Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent + Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubEye.ForeColor = System.Drawing.Color.Black + Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) + Me.LBLSubEye.Name = "LBLSubEye" + Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) + Me.LBLSubEye.TabIndex = 141 + Me.LBLSubEye.Text = "Eye Color" + Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLSubHair + ' + Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent + Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubHair.ForeColor = System.Drawing.Color.Black + Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) + Me.LBLSubHair.Name = "LBLSubHair" + Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) + Me.LBLSubHair.TabIndex = 140 + Me.LBLSubHair.Text = "Hair Color" + Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLSubBirthday + ' + Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent + Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black + Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) + Me.LBLSubBirthday.Name = "LBLSubBirthday" + Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) + Me.LBLSubBirthday.TabIndex = 139 + Me.LBLSubBirthday.Text = "Birthday:" + Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLSubAge + ' + Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent + Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubAge.ForeColor = System.Drawing.Color.Black + Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) + Me.LBLSubAge.Name = "LBLSubAge" + Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) + Me.LBLSubAge.TabIndex = 138 + Me.LBLSubAge.Text = "Age:" + Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label70 + ' + Me.Label70.BackColor = System.Drawing.Color.Transparent + Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label70.ForeColor = System.Drawing.Color.Black + Me.Label70.Location = New System.Drawing.Point(7, 6) + Me.Label70.Name = "Label70" + Me.Label70.Size = New System.Drawing.Size(692, 21) + Me.Label70.TabIndex = 49 + Me.Label70.Text = "Sub Settings" + Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage16 + ' + Me.TabPage16.BackColor = System.Drawing.Color.Silver + Me.TabPage16.Controls.Add(Me.Panel9) + Me.TabPage16.Location = New System.Drawing.Point(4, 22) + Me.TabPage16.Name = "TabPage16" + Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage16.Size = New System.Drawing.Size(720, 448) + Me.TabPage16.TabIndex = 14 + Me.TabPage16.Text = "Scripts" + ' + 'Panel9 + ' + Me.Panel9.BackColor = System.Drawing.Color.LightGray + Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel9.Controls.Add(Me.BTNScriptAvailable) + Me.Panel9.Controls.Add(Me.BTNScriptNone) + Me.Panel9.Controls.Add(Me.BTNScriptAll) + Me.Panel9.Controls.Add(Me.BTNScriptOpen) + Me.Panel9.Controls.Add(Me.LBLScriptReq) + Me.Panel9.Controls.Add(Me.GroupBox31) + Me.Panel9.Controls.Add(Me.TCScripts) + Me.Panel9.Controls.Add(Me.GroupBox42) + Me.Panel9.Controls.Add(Me.PictureBox1) + Me.Panel9.Controls.Add(Me.GroupBox43) + Me.Panel9.Controls.Add(Me.Label104) + Me.Panel9.Location = New System.Drawing.Point(6, 6) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(708, 437) + Me.Panel9.TabIndex = 94 + ' + 'BTNScriptAvailable + ' + Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) + Me.BTNScriptAvailable.Name = "BTNScriptAvailable" + Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) + Me.BTNScriptAvailable.TabIndex = 160 + Me.BTNScriptAvailable.Text = "Select Available" + Me.BTNScriptAvailable.UseVisualStyleBackColor = True + ' + 'BTNScriptNone + ' + Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) + Me.BTNScriptNone.Name = "BTNScriptNone" + Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) + Me.BTNScriptNone.TabIndex = 159 + Me.BTNScriptNone.Text = "Select None" + Me.BTNScriptNone.UseVisualStyleBackColor = True + ' + 'BTNScriptAll + ' + Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) + Me.BTNScriptAll.Name = "BTNScriptAll" + Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) + Me.BTNScriptAll.TabIndex = 158 + Me.BTNScriptAll.Text = "Select All" + Me.BTNScriptAll.UseVisualStyleBackColor = True + ' + 'BTNScriptOpen + ' + Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) + Me.BTNScriptOpen.Name = "BTNScriptOpen" + Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) + Me.BTNScriptOpen.TabIndex = 157 + Me.BTNScriptOpen.Text = "Open Script" + Me.BTNScriptOpen.UseVisualStyleBackColor = True + ' + 'LBLScriptReq + ' + Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray + Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green + Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) + Me.LBLScriptReq.Name = "LBLScriptReq" + Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) + Me.LBLScriptReq.TabIndex = 156 + Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox31 + ' + Me.GroupBox31.Controls.Add(Me.RTBScriptReq) + Me.GroupBox31.Location = New System.Drawing.Point(314, 169) + Me.GroupBox31.Name = "GroupBox31" + Me.GroupBox31.Size = New System.Drawing.Size(385, 110) + Me.GroupBox31.TabIndex = 155 + Me.GroupBox31.TabStop = False + Me.GroupBox31.Text = "Requirements" + ' + 'RTBScriptReq + ' + Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) + Me.RTBScriptReq.Name = "RTBScriptReq" + Me.RTBScriptReq.ReadOnly = True + Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) + Me.RTBScriptReq.TabIndex = 0 + Me.RTBScriptReq.Text = "" + ' + 'TCScripts + ' + Me.TCScripts.Controls.Add(Me.TabPage21) + Me.TCScripts.Controls.Add(Me.TabPage17) + Me.TCScripts.Controls.Add(Me.TabPage18) + Me.TCScripts.Controls.Add(Me.TabPage19) + Me.TCScripts.Location = New System.Drawing.Point(9, 31) + Me.TCScripts.Name = "TCScripts" + Me.TCScripts.SelectedIndex = 0 + Me.TCScripts.Size = New System.Drawing.Size(299, 248) + Me.TCScripts.TabIndex = 154 + ' + 'TabPage21 + ' + Me.TabPage21.BackColor = System.Drawing.Color.Silver + Me.TabPage21.Controls.Add(Me.CLBStartList) + Me.TabPage21.Location = New System.Drawing.Point(4, 22) + Me.TabPage21.Name = "TabPage21" + Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage21.Size = New System.Drawing.Size(291, 222) + Me.TabPage21.TabIndex = 4 + Me.TabPage21.Text = "Start" + ' + 'CLBStartList + ' + Me.CLBStartList.FormattingEnabled = True + Me.CLBStartList.Location = New System.Drawing.Point(4, 4) + Me.CLBStartList.Name = "CLBStartList" + Me.CLBStartList.Size = New System.Drawing.Size(283, 214) + Me.CLBStartList.Sorted = True + Me.CLBStartList.TabIndex = 155 + ' + 'TabPage17 + ' + Me.TabPage17.BackColor = System.Drawing.Color.Silver + Me.TabPage17.Controls.Add(Me.CLBModuleList) + Me.TabPage17.Location = New System.Drawing.Point(4, 22) + Me.TabPage17.Name = "TabPage17" + Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage17.Size = New System.Drawing.Size(291, 222) + Me.TabPage17.TabIndex = 5 + Me.TabPage17.Text = "Modules" + ' + 'CLBModuleList + ' + Me.CLBModuleList.FormattingEnabled = True + Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) + Me.CLBModuleList.Name = "CLBModuleList" + Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) + Me.CLBModuleList.Sorted = True + Me.CLBModuleList.TabIndex = 156 + ' + 'TabPage18 + ' + Me.TabPage18.BackColor = System.Drawing.Color.Silver + Me.TabPage18.Controls.Add(Me.CLBLinkList) + Me.TabPage18.Location = New System.Drawing.Point(4, 22) + Me.TabPage18.Name = "TabPage18" + Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage18.Size = New System.Drawing.Size(291, 222) + Me.TabPage18.TabIndex = 6 + Me.TabPage18.Text = "Link" + ' + 'CLBLinkList + ' + Me.CLBLinkList.FormattingEnabled = True + Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) + Me.CLBLinkList.Name = "CLBLinkList" + Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) + Me.CLBLinkList.Sorted = True + Me.CLBLinkList.TabIndex = 156 + ' + 'TabPage19 + ' + Me.TabPage19.BackColor = System.Drawing.Color.Silver + Me.TabPage19.Controls.Add(Me.CLBEndList) + Me.TabPage19.Location = New System.Drawing.Point(4, 22) + Me.TabPage19.Name = "TabPage19" + Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage19.Size = New System.Drawing.Size(291, 222) + Me.TabPage19.TabIndex = 7 + Me.TabPage19.Text = "End" + ' + 'CLBEndList + ' + Me.CLBEndList.FormattingEnabled = True + Me.CLBEndList.Location = New System.Drawing.Point(4, 4) + Me.CLBEndList.Name = "CLBEndList" + Me.CLBEndList.Size = New System.Drawing.Size(283, 214) + Me.CLBEndList.Sorted = True + Me.CLBEndList.TabIndex = 156 + ' + 'GroupBox42 + ' + Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) + Me.GroupBox42.Location = New System.Drawing.Point(314, 53) + Me.GroupBox42.Name = "GroupBox42" + Me.GroupBox42.Size = New System.Drawing.Size(385, 110) + Me.GroupBox42.TabIndex = 153 + Me.GroupBox42.TabStop = False + Me.GroupBox42.Text = "Description" + ' + 'RTBScriptDesc + ' + Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) + Me.RTBScriptDesc.Name = "RTBScriptDesc" + Me.RTBScriptDesc.ReadOnly = True + Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) + Me.RTBScriptDesc.TabIndex = 0 + Me.RTBScriptDesc.Text = "" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.LightGray + Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox1.Location = New System.Drawing.Point(9, 6) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(160, 19) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox1.TabIndex = 151 + Me.PictureBox1.TabStop = False + ' + 'GroupBox43 + ' + Me.GroupBox43.BackColor = System.Drawing.Color.LightGray + Me.GroupBox43.Controls.Add(Me.Label98) + Me.GroupBox43.ForeColor = System.Drawing.Color.Black + Me.GroupBox43.Location = New System.Drawing.Point(7, 331) + Me.GroupBox43.Name = "GroupBox43" + Me.GroupBox43.Size = New System.Drawing.Size(692, 92) + Me.GroupBox43.TabIndex = 65 + Me.GroupBox43.TabStop = False + Me.GroupBox43.Text = "Description" + ' + 'Label98 + ' + Me.Label98.BackColor = System.Drawing.Color.Transparent + Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label98.ForeColor = System.Drawing.Color.Black + Me.Label98.Location = New System.Drawing.Point(6, 16) + Me.Label98.Name = "Label98" + Me.Label98.Size = New System.Drawing.Size(680, 73) + Me.Label98.TabIndex = 62 + Me.Label98.Text = resources.GetString("Label98.Text") + Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label104 + ' + Me.Label104.BackColor = System.Drawing.Color.Transparent + Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label104.ForeColor = System.Drawing.Color.Black + Me.Label104.Location = New System.Drawing.Point(7, 6) + Me.Label104.Name = "Label104" + Me.Label104.Size = New System.Drawing.Size(692, 21) + Me.Label104.TabIndex = 49 + Me.Label104.Text = "Script Selection" + Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage7 + ' + Me.TabPage7.BackColor = System.Drawing.Color.Silver + Me.TabPage7.Controls.Add(Me.TabControl4) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage7.Size = New System.Drawing.Size(720, 448) + Me.TabPage7.TabIndex = 11 + Me.TabPage7.Text = "Images" + ' + 'TabControl4 + ' + Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) + Me.TabControl4.Controls.Add(Me.TpImagesGenre) + Me.TabControl4.Location = New System.Drawing.Point(6, 6) + Me.TabControl4.Name = "TabControl4" + Me.TabControl4.SelectedIndex = 0 + Me.TabControl4.Size = New System.Drawing.Size(708, 437) + Me.TabControl4.TabIndex = 154 + ' + 'TpImagesUrlFiles + ' + Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray + Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) + Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) + Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) + Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) + Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) + Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) + Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" + Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) + Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) + Me.TpImagesUrlFiles.TabIndex = 0 + Me.TpImagesUrlFiles.Text = "URL Files" + ' + 'CBURLPreview + ' + Me.CBURLPreview.AutoSize = True + Me.CBURLPreview.Checked = True + Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) + Me.CBURLPreview.Name = "CBURLPreview" + Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) + Me.CBURLPreview.TabIndex = 163 + Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" + Me.CBURLPreview.UseVisualStyleBackColor = True + ' + 'GroupBox66 + ' + Me.GroupBox66.Controls.Add(Me.PBURLPreview) + Me.GroupBox66.Location = New System.Drawing.Point(344, 3) + Me.GroupBox66.Name = "GroupBox66" + Me.GroupBox66.Size = New System.Drawing.Size(350, 309) + Me.GroupBox66.TabIndex = 162 + Me.GroupBox66.TabStop = False + Me.GroupBox66.Text = "Example Preview" + ' + 'PBURLPreview + ' + Me.PBURLPreview.BackColor = System.Drawing.Color.Black + Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) + Me.PBURLPreview.Name = "PBURLPreview" + Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) + Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PBURLPreview.TabIndex = 0 + Me.PBURLPreview.TabStop = False + ' + 'BTNURLFilesAll + ' + Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) + Me.BTNURLFilesAll.Name = "BTNURLFilesAll" + Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) + Me.BTNURLFilesAll.TabIndex = 160 + Me.BTNURLFilesAll.Text = "Select All" + Me.BTNURLFilesAll.UseVisualStyleBackColor = True + ' + 'BTNURLFilesNone + ' + Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) + Me.BTNURLFilesNone.Name = "BTNURLFilesNone" + Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) + Me.BTNURLFilesNone.TabIndex = 161 + Me.BTNURLFilesNone.Text = "Select None" + Me.BTNURLFilesNone.UseVisualStyleBackColor = True + ' + 'URLFileList + ' + Me.URLFileList.CheckOnClick = True + Me.URLFileList.FormattingEnabled = True + Me.URLFileList.Location = New System.Drawing.Point(6, 9) + Me.URLFileList.Name = "URLFileList" + Me.URLFileList.Size = New System.Drawing.Size(332, 394) + Me.URLFileList.Sorted = True + Me.URLFileList.TabIndex = 154 + ' + 'TpImagesGenre + ' + Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray + Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) + Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) + Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) + Me.TpImagesGenre.Name = "TpImagesGenre" + Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) + Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) + Me.TpImagesGenre.TabIndex = 1 + Me.TpImagesGenre.Text = "Genre Images" + ' + 'GrbImageUrlFiles + ' + Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) + Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) + Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" + Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) + Me.GrbImageUrlFiles.TabIndex = 1 + Me.GrbImageUrlFiles.TabStop = False + Me.GrbImageUrlFiles.Text = "URL Files" + ' + 'TlpImageUrls + ' + Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray + Me.TlpImageUrls.ColumnCount = 3 + Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) + Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill + Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize + Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) + Me.TlpImageUrls.Name = "TlpImageUrls" + Me.TlpImageUrls.RowCount = 14 + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) + Me.TlpImageUrls.TabIndex = 0 + ' + 'BtnImageUrlButt + ' + Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) + Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) + Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlButt.Name = "BtnImageUrlButt" + Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlButt.TabIndex = 38 + Me.BtnImageUrlButt.Text = "1" + Me.BtnImageUrlButt.UseVisualStyleBackColor = False + ' + 'BtnImageUrlBoobs + ' + Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) + Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) + Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" + Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlBoobs.TabIndex = 35 + Me.BtnImageUrlBoobs.Text = "1" + Me.BtnImageUrlBoobs.UseVisualStyleBackColor = False + ' + 'BtnImageUrlBlowjob + ' + Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) + Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" + Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlBlowjob.TabIndex = 11 + Me.BtnImageUrlBlowjob.Text = "1" + Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = False + ' + 'BtnImageUrlCaptions + ' + Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) + Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" + Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlCaptions.TabIndex = 29 + Me.BtnImageUrlCaptions.Text = "1" + Me.BtnImageUrlCaptions.UseVisualStyleBackColor = False + ' + 'BtnImageUrlHentai + ' + Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) + Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" + Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlHentai.TabIndex = 20 + Me.BtnImageUrlHentai.Text = "1" + Me.BtnImageUrlHentai.UseVisualStyleBackColor = False + ' + 'BtnImageUrlGay + ' + Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) + Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlGay.Name = "BtnImageUrlGay" + Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlGay.TabIndex = 23 + Me.BtnImageUrlGay.Text = "1" + Me.BtnImageUrlGay.UseVisualStyleBackColor = False + ' + 'BtnImageUrlGeneral + ' + Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) + Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" + Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlGeneral.TabIndex = 32 + Me.BtnImageUrlGeneral.Text = "1" + Me.BtnImageUrlGeneral.UseVisualStyleBackColor = False + ' + 'BtnImageUrlHardcore + ' + Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) + Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" + Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlHardcore.TabIndex = 1 + Me.BtnImageUrlHardcore.Text = "1" + Me.BtnImageUrlHardcore.UseVisualStyleBackColor = False + ' + 'BtnImageUrlLesbian + ' + Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) + Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" + Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlLesbian.TabIndex = 8 + Me.BtnImageUrlLesbian.Text = "1" + Me.BtnImageUrlLesbian.UseVisualStyleBackColor = False + ' + 'BtnImageUrlLezdom + ' + Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) + Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" + Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlLezdom.TabIndex = 17 + Me.BtnImageUrlLezdom.Text = "1" + Me.BtnImageUrlLezdom.UseVisualStyleBackColor = False + ' + 'BtnImageUrlMaledom + ' + Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) + Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" + Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlMaledom.TabIndex = 26 + Me.BtnImageUrlMaledom.Text = "1" + Me.BtnImageUrlMaledom.UseVisualStyleBackColor = False + ' + 'BtnImageUrlFemdom + ' + Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) + Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" + Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlFemdom.TabIndex = 14 + Me.BtnImageUrlFemdom.Text = "1" + Me.BtnImageUrlFemdom.UseVisualStyleBackColor = False + ' + 'BtnImageUrlSoftcore + ' + Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) + Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" + Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlSoftcore.TabIndex = 5 + Me.BtnImageUrlSoftcore.Text = "1" + Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = False + ' + 'ChbImageUrlHardcore + ' + Me.ChbImageUrlHardcore.AutoSize = True + Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled + Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) + Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" + Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlHardcore.TabIndex = 0 + Me.ChbImageUrlHardcore.Text = "Hardcore" + Me.ChbImageUrlHardcore.UseVisualStyleBackColor = True + ' + 'ChbImageUrlButts + ' + Me.ChbImageUrlButts.AutoSize = True + Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled + Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) + Me.ChbImageUrlButts.Name = "ChbImageUrlButts" + Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) + Me.ChbImageUrlButts.TabIndex = 37 + Me.ChbImageUrlButts.Text = "Butts" + Me.ChbImageUrlButts.UseVisualStyleBackColor = True + ' + 'ChbImageUrlMaledom + ' + Me.ChbImageUrlMaledom.AutoSize = True + Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled + Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) + Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" + Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlMaledom.TabIndex = 25 + Me.ChbImageUrlMaledom.Text = "Maledom" + Me.ChbImageUrlMaledom.UseVisualStyleBackColor = True + ' + 'ChbImageUrlGay + ' + Me.ChbImageUrlGay.AutoSize = True + Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled + Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) + Me.ChbImageUrlGay.Name = "ChbImageUrlGay" + Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlGay.TabIndex = 22 + Me.ChbImageUrlGay.Text = "Gay" + Me.ChbImageUrlGay.UseVisualStyleBackColor = True + ' + 'ChbImageUrlSoftcore + ' + Me.ChbImageUrlSoftcore.AutoSize = True + Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled + Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) + Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" + Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlSoftcore.TabIndex = 4 + Me.ChbImageUrlSoftcore.Text = "Softcore" + Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = True + ' + 'ChbImageUrlBoobs + ' + Me.ChbImageUrlBoobs.AutoSize = True + Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled + Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) + Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" + Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlBoobs.TabIndex = 34 + Me.ChbImageUrlBoobs.Text = "Boobs" + Me.ChbImageUrlBoobs.UseVisualStyleBackColor = True + ' + 'ChbImageUrlLesbian + ' + Me.ChbImageUrlLesbian.AutoSize = True + Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled + Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) + Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" + Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlLesbian.TabIndex = 7 + Me.ChbImageUrlLesbian.Text = "Lesbian" + Me.ChbImageUrlLesbian.UseVisualStyleBackColor = True + ' + 'ChbImageUrlBlowjob + ' + Me.ChbImageUrlBlowjob.AutoSize = True + Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled + Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) + Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" + Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlBlowjob.TabIndex = 10 + Me.ChbImageUrlBlowjob.Text = "Blowjob" + Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = True + ' + 'ChbImageUrlCaptions + ' + Me.ChbImageUrlCaptions.AutoSize = True + Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled + Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) + Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" + Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlCaptions.TabIndex = 28 + Me.ChbImageUrlCaptions.Text = "Captions" + Me.ChbImageUrlCaptions.UseVisualStyleBackColor = True + ' + 'ChbImageUrlGeneral + ' + Me.ChbImageUrlGeneral.AutoSize = True + Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled + Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) + Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" + Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlGeneral.TabIndex = 31 + Me.ChbImageUrlGeneral.Text = "General" + Me.ChbImageUrlGeneral.UseVisualStyleBackColor = True + ' + 'ChbImageUrlFemdom + ' + Me.ChbImageUrlFemdom.AutoSize = True + Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled + Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) + Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" + Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlFemdom.TabIndex = 13 + Me.ChbImageUrlFemdom.Text = "Femdom" + Me.ChbImageUrlFemdom.UseVisualStyleBackColor = True + ' + 'ChbImageUrlHentai + ' + Me.ChbImageUrlHentai.AutoSize = True + Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled + Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) + Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" + Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlHentai.TabIndex = 19 + Me.ChbImageUrlHentai.Text = "Hentai" + Me.ChbImageUrlHentai.UseVisualStyleBackColor = True + ' + 'ChbImageUrlLezdom + ' + Me.ChbImageUrlLezdom.AutoSize = True + Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled + Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) + Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" + Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlLezdom.TabIndex = 16 + Me.ChbImageUrlLezdom.Text = "Lezdom" + Me.ChbImageUrlLezdom.UseVisualStyleBackColor = True + ' + 'TxbImageUrlBlowjob + ' + Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) + Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" + Me.TxbImageUrlBlowjob.ReadOnly = True + Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBlowjob.TabIndex = 12 + Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob + ' + 'TxbImageUrlSoftcore + ' + Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) + Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" + Me.TxbImageUrlSoftcore.ReadOnly = True + Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlSoftcore.TabIndex = 6 + Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore + ' + 'TxbImageUrlLezdom + ' + Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) + Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" + Me.TxbImageUrlLezdom.ReadOnly = True + Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLezdom.TabIndex = 18 + Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom + ' + 'TxbImageUrlFemdom + ' + Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) + Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" + Me.TxbImageUrlFemdom.ReadOnly = True + Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlFemdom.TabIndex = 15 + Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom + ' + 'TxbImageUrlHardcore + ' + Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) + Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" + Me.TxbImageUrlHardcore.ReadOnly = True + Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHardcore.TabIndex = 3 + Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore + ' + 'TxbImageUrlHentai + ' + Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) + Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" + Me.TxbImageUrlHentai.ReadOnly = True + Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHentai.TabIndex = 21 + Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai + ' + 'TxbImageUrlGay + ' + Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) + Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGay.Name = "TxbImageUrlGay" + Me.TxbImageUrlGay.ReadOnly = True + Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGay.TabIndex = 24 + Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay + ' + 'TxbImageUrlLesbian + ' + Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) + Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" + Me.TxbImageUrlLesbian.ReadOnly = True + Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLesbian.TabIndex = 9 + Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian + ' + 'TxbImageUrlMaledom + ' + Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) + Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" + Me.TxbImageUrlMaledom.ReadOnly = True + Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlMaledom.TabIndex = 27 + Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom + ' + 'TxbImageUrlCaptions + ' + Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) + Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" + Me.TxbImageUrlCaptions.ReadOnly = True + Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlCaptions.TabIndex = 30 + Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions + ' + 'TxbImageUrlGeneral + ' + Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) + Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" + Me.TxbImageUrlGeneral.ReadOnly = True + Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGeneral.TabIndex = 33 + Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral + ' + 'TxbImageUrlBoobs + ' + Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) + Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" + Me.TxbImageUrlBoobs.ReadOnly = True + Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBoobs.TabIndex = 36 + Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs + ' + 'TxbImageUrlButts + ' + Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) + Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlButts.Name = "TxbImageUrlButts" + Me.TxbImageUrlButts.ReadOnly = True + Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlButts.TabIndex = 39 + Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt + ' + 'GbxImagesGenre + ' + Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) + Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) + Me.GbxImagesGenre.Name = "GbxImagesGenre" + Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) + Me.GbxImagesGenre.TabIndex = 0 + Me.GbxImagesGenre.TabStop = False + Me.GbxImagesGenre.Text = "Local Images" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 4 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) + Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) + Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) + Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) + Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) + Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) + Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) + Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) + Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) + Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) + Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) + Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) + Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) + Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) + Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) + Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) + Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) + Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) + Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) + Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) + Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) + Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) + Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) + Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) + Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) + Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize + Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'BTNIHardcore + ' + Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray + Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black + Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) + Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIHardcore.Name = "BTNIHardcore" + Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) + Me.BTNIHardcore.TabIndex = 1 + Me.BTNIHardcore.Text = "1" + Me.BTNIHardcore.UseVisualStyleBackColor = False + ' + 'TbxIHardcore + ' + Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray + Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black + Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) + Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIHardcore.Name = "TbxIHardcore" + Me.TbxIHardcore.ReadOnly = True + Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) + Me.TbxIHardcore.TabIndex = 2 + Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore + ' + 'CBIHardcoreSD + ' + Me.CBIHardcoreSD.AutoSize = True + Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD + Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black + Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) + Me.CBIHardcoreSD.Name = "CBIHardcoreSD" + Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) + Me.CBIHardcoreSD.TabIndex = 3 + Me.CBIHardcoreSD.UseVisualStyleBackColor = True + ' + 'CBIHardcore + ' + Me.CBIHardcore.AutoSize = True + Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore + Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHardcore.ForeColor = System.Drawing.Color.Black + Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) + Me.CBIHardcore.Name = "CBIHardcore" + Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) + Me.CBIHardcore.TabIndex = 0 + Me.CBIHardcore.Text = "Hardcore" + Me.CBIHardcore.UseVisualStyleBackColor = True + ' + 'CBISoftcore + ' + Me.CBISoftcore.AutoSize = True + Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore + Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBISoftcore.ForeColor = System.Drawing.Color.Black + Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) + Me.CBISoftcore.Name = "CBISoftcore" + Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) + Me.CBISoftcore.TabIndex = 4 + Me.CBISoftcore.Text = "Softcore" + Me.CBISoftcore.UseVisualStyleBackColor = True + ' + 'TbxISoftcore + ' + Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray + Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black + Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) + Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxISoftcore.Name = "TbxISoftcore" + Me.TbxISoftcore.ReadOnly = True + Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) + Me.TbxISoftcore.TabIndex = 6 + Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore + ' + 'CBButtSubDir + ' + Me.CBButtSubDir.AutoSize = True + Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir + Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black + Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) + Me.CBButtSubDir.Name = "CBButtSubDir" + Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) + Me.CBButtSubDir.TabIndex = 51 + Me.CBButtSubDir.UseVisualStyleBackColor = True + ' + 'CBISoftcoreSD + ' + Me.CBISoftcoreSD.AutoSize = True + Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD + Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black + Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) + Me.CBISoftcoreSD.Name = "CBISoftcoreSD" + Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) + Me.CBISoftcoreSD.TabIndex = 7 + Me.CBISoftcoreSD.UseVisualStyleBackColor = True + ' + 'CBBoobSubDir + ' + Me.CBBoobSubDir.AutoSize = True + Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir + Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black + Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) + Me.CBBoobSubDir.Name = "CBBoobSubDir" + Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) + Me.CBBoobSubDir.TabIndex = 47 + Me.CBBoobSubDir.UseVisualStyleBackColor = True + ' + 'CBILezdomSD + ' + Me.CBILezdomSD.AutoSize = True + Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD + Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black + Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) + Me.CBILezdomSD.Name = "CBILezdomSD" + Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) + Me.CBILezdomSD.TabIndex = 23 + Me.CBILezdomSD.UseVisualStyleBackColor = True + ' + 'CBIGeneralSD + ' + Me.CBIGeneralSD.AutoSize = True + Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD + Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black + Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) + Me.CBIGeneralSD.Name = "CBIGeneralSD" + Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) + Me.CBIGeneralSD.TabIndex = 43 + Me.CBIGeneralSD.UseVisualStyleBackColor = True + ' + 'CBILesbianSD + ' + Me.CBILesbianSD.AutoSize = True + Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD + Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black + Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) + Me.CBILesbianSD.Name = "CBILesbianSD" + Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) + Me.CBILesbianSD.TabIndex = 11 + Me.CBILesbianSD.UseVisualStyleBackColor = True + ' + 'CBICaptionsSD + ' + Me.CBICaptionsSD.AutoSize = True + Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD + Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black + Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) + Me.CBICaptionsSD.Name = "CBICaptionsSD" + Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) + Me.CBICaptionsSD.TabIndex = 39 + Me.CBICaptionsSD.UseVisualStyleBackColor = True + ' + 'CBILesbian + ' + Me.CBILesbian.AutoSize = True + Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian + Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILesbian.ForeColor = System.Drawing.Color.Black + Me.CBILesbian.Location = New System.Drawing.Point(3, 61) + Me.CBILesbian.Name = "CBILesbian" + Me.CBILesbian.Size = New System.Drawing.Size(70, 23) + Me.CBILesbian.TabIndex = 8 + Me.CBILesbian.Text = "Lesbian" + Me.CBILesbian.UseVisualStyleBackColor = True + ' + 'CBIMaledomSD + ' + Me.CBIMaledomSD.AutoSize = True + Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD + Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black + Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) + Me.CBIMaledomSD.Name = "CBIMaledomSD" + Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) + Me.CBIMaledomSD.TabIndex = 35 + Me.CBIMaledomSD.UseVisualStyleBackColor = True + ' + 'CBIBlowjob + ' + Me.CBIBlowjob.AutoSize = True + Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob + Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black + Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) + Me.CBIBlowjob.Name = "CBIBlowjob" + Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) + Me.CBIBlowjob.TabIndex = 12 + Me.CBIBlowjob.Text = "Blowjob" + Me.CBIBlowjob.UseVisualStyleBackColor = True + ' + 'CBIGaySD + ' + Me.CBIGaySD.AutoSize = True + Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD + Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGaySD.ForeColor = System.Drawing.Color.Black + Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) + Me.CBIGaySD.Name = "CBIGaySD" + Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) + Me.CBIGaySD.TabIndex = 31 + Me.CBIGaySD.UseVisualStyleBackColor = True + ' + 'CBIHentaiSD + ' + Me.CBIHentaiSD.AutoSize = True + Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD + Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black + Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) + Me.CBIHentaiSD.Name = "CBIHentaiSD" + Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) + Me.CBIHentaiSD.TabIndex = 27 + Me.CBIHentaiSD.UseVisualStyleBackColor = True + ' + 'CBIBlowjobSD + ' + Me.CBIBlowjobSD.AutoSize = True + Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD + Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black + Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) + Me.CBIBlowjobSD.Name = "CBIBlowjobSD" + Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) + Me.CBIBlowjobSD.TabIndex = 15 + Me.CBIBlowjobSD.UseVisualStyleBackColor = True + ' + 'CBIFemdomSD + ' + Me.CBIFemdomSD.AutoSize = True + Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD + Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black + Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) + Me.CBIFemdomSD.Name = "CBIFemdomSD" + Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) + Me.CBIFemdomSD.TabIndex = 19 + Me.CBIFemdomSD.UseVisualStyleBackColor = True + ' + 'TbxIButts + ' + Me.TbxIButts.BackColor = System.Drawing.Color.LightGray + Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIButts.ForeColor = System.Drawing.Color.Black + Me.TbxIButts.Location = New System.Drawing.Point(115, 353) + Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIButts.Name = "TbxIButts" + Me.TbxIButts.ReadOnly = True + Me.TbxIButts.Size = New System.Drawing.Size(217, 17) + Me.TbxIButts.TabIndex = 50 + Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath + ' + 'CBIFemdom + ' + Me.CBIFemdom.AutoSize = True + Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom + Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIFemdom.ForeColor = System.Drawing.Color.Black + Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) + Me.CBIFemdom.Name = "CBIFemdom" + Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) + Me.CBIFemdom.TabIndex = 16 + Me.CBIFemdom.Text = "Femdom" + Me.CBIFemdom.UseVisualStyleBackColor = True + ' + 'TbxILesbian + ' + Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray + Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxILesbian.ForeColor = System.Drawing.Color.Black + Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) + Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxILesbian.Name = "TbxILesbian" + Me.TbxILesbian.ReadOnly = True + Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) + Me.TbxILesbian.TabIndex = 10 + Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian + ' + 'BTNISoftcore + ' + Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray + Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black + Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) + Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNISoftcore.Name = "BTNISoftcore" + Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) + Me.BTNISoftcore.TabIndex = 5 + Me.BTNISoftcore.Text = "1" + Me.BTNISoftcore.UseVisualStyleBackColor = False + ' + 'CBILezdom + ' + Me.CBILezdom.AutoSize = True + Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom + Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILezdom.ForeColor = System.Drawing.Color.Black + Me.CBILezdom.Location = New System.Drawing.Point(3, 148) + Me.CBILezdom.Name = "CBILezdom" + Me.CBILezdom.Size = New System.Drawing.Size(70, 23) + Me.CBILezdom.TabIndex = 20 + Me.CBILezdom.Text = "Lezdom" + Me.CBILezdom.UseVisualStyleBackColor = True + ' + 'TbxIBoobs + ' + Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray + Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black + Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) + Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIBoobs.Name = "TbxIBoobs" + Me.TbxIBoobs.ReadOnly = True + Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) + Me.TbxIBoobs.TabIndex = 46 + Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath + ' + 'CBIHentai + ' + Me.CBIHentai.AutoSize = True + Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai + Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHentai.ForeColor = System.Drawing.Color.Black + Me.CBIHentai.Location = New System.Drawing.Point(3, 177) + Me.CBIHentai.Name = "CBIHentai" + Me.CBIHentai.Size = New System.Drawing.Size(70, 23) + Me.CBIHentai.TabIndex = 24 + Me.CBIHentai.Text = "Hentai" + Me.CBIHentai.UseVisualStyleBackColor = True + ' + 'TbxIBlowjob + ' + Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray + Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black + Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) + Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIBlowjob.Name = "TbxIBlowjob" + Me.TbxIBlowjob.ReadOnly = True + Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) + Me.TbxIBlowjob.TabIndex = 14 + Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob + ' + 'CBIGay + ' + Me.CBIGay.AutoSize = True + Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay + Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGay.ForeColor = System.Drawing.Color.Black + Me.CBIGay.Location = New System.Drawing.Point(3, 206) + Me.CBIGay.Name = "CBIGay" + Me.CBIGay.Size = New System.Drawing.Size(70, 23) + Me.CBIGay.TabIndex = 28 + Me.CBIGay.Text = "Gay" + Me.CBIGay.UseVisualStyleBackColor = True + ' + 'TbxIGeneral + ' + Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray + Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black + Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) + Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIGeneral.Name = "TbxIGeneral" + Me.TbxIGeneral.ReadOnly = True + Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) + Me.TbxIGeneral.TabIndex = 42 + Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral + ' + 'CBIMaledom + ' + Me.CBIMaledom.AutoSize = True + Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom + Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIMaledom.ForeColor = System.Drawing.Color.Black + Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) + Me.CBIMaledom.Name = "CBIMaledom" + Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) + Me.CBIMaledom.TabIndex = 32 + Me.CBIMaledom.Text = "Maledom" + Me.CBIMaledom.UseVisualStyleBackColor = True + ' + 'TbxIFemdom + ' + Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray + Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black + Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) + Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIFemdom.Name = "TbxIFemdom" + Me.TbxIFemdom.ReadOnly = True + Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) + Me.TbxIFemdom.TabIndex = 18 + Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom + ' + 'BTNILesbian + ' + Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray + Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNILesbian.ForeColor = System.Drawing.Color.Black + Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) + Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNILesbian.Name = "BTNILesbian" + Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) + Me.BTNILesbian.TabIndex = 9 + Me.BTNILesbian.Text = "1" + Me.BTNILesbian.UseVisualStyleBackColor = False + ' + 'TbxICaptions + ' + Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray + Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxICaptions.ForeColor = System.Drawing.Color.Black + Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) + Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxICaptions.Name = "TbxICaptions" + Me.TbxICaptions.ReadOnly = True + Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) + Me.TbxICaptions.TabIndex = 38 + Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions + ' + 'CBICaptions + ' + Me.CBICaptions.AutoSize = True + Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions + Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBICaptions.ForeColor = System.Drawing.Color.Black + Me.CBICaptions.Location = New System.Drawing.Point(3, 264) + Me.CBICaptions.Name = "CBICaptions" + Me.CBICaptions.Size = New System.Drawing.Size(70, 23) + Me.CBICaptions.TabIndex = 36 + Me.CBICaptions.Text = "Captions" + Me.CBICaptions.UseVisualStyleBackColor = True + ' + 'TbxILezdom + ' + Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray + Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxILezdom.ForeColor = System.Drawing.Color.Black + Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) + Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxILezdom.Name = "TbxILezdom" + Me.TbxILezdom.ReadOnly = True + Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) + Me.TbxILezdom.TabIndex = 22 + Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom + ' + 'TbxIMaledom + ' + Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray + Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black + Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) + Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIMaledom.Name = "TbxIMaledom" + Me.TbxIMaledom.ReadOnly = True + Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) + Me.TbxIMaledom.TabIndex = 34 + Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom + ' + 'BTNButtPath + ' + Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray + Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNButtPath.ForeColor = System.Drawing.Color.Black + Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) + Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNButtPath.Name = "BTNButtPath" + Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) + Me.BTNButtPath.TabIndex = 49 + Me.BTNButtPath.Text = "1" + Me.BTNButtPath.UseVisualStyleBackColor = False + ' + 'TbxIHentai + ' + Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray + Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIHentai.ForeColor = System.Drawing.Color.Black + Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) + Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIHentai.Name = "TbxIHentai" + Me.TbxIHentai.ReadOnly = True + Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) + Me.TbxIHentai.TabIndex = 26 + Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai + ' + 'CBIGeneral + ' + Me.CBIGeneral.AutoSize = True + Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral + Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGeneral.ForeColor = System.Drawing.Color.Black + Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) + Me.CBIGeneral.Name = "CBIGeneral" + Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) + Me.CBIGeneral.TabIndex = 40 + Me.CBIGeneral.Text = "General" + Me.CBIGeneral.UseVisualStyleBackColor = True + ' + 'TbxIGay + ' + Me.TbxIGay.BackColor = System.Drawing.Color.LightGray + Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIGay.ForeColor = System.Drawing.Color.Black + Me.TbxIGay.Location = New System.Drawing.Point(115, 208) + Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIGay.Name = "TbxIGay" + Me.TbxIGay.ReadOnly = True + Me.TbxIGay.Size = New System.Drawing.Size(217, 17) + Me.TbxIGay.TabIndex = 30 + Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay + ' + 'CBIBoobs + ' + Me.CBIBoobs.AutoSize = True + Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs + Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIBoobs.ForeColor = System.Drawing.Color.Black + Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) + Me.CBIBoobs.Name = "CBIBoobs" + Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) + Me.CBIBoobs.TabIndex = 44 + Me.CBIBoobs.Text = "Boobs" + Me.CBIBoobs.UseVisualStyleBackColor = True + ' + 'CBIButts + ' + Me.CBIButts.AutoSize = True + Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts + Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIButts.ForeColor = System.Drawing.Color.Black + Me.CBIButts.Location = New System.Drawing.Point(3, 351) + Me.CBIButts.Name = "CBIButts" + Me.CBIButts.Size = New System.Drawing.Size(70, 27) + Me.CBIButts.TabIndex = 48 + Me.CBIButts.Text = "Butts" + Me.CBIButts.UseVisualStyleBackColor = True + ' + 'BTNIBlowjob + ' + Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray + Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black + Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) + Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIBlowjob.Name = "BTNIBlowjob" + Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) + Me.BTNIBlowjob.TabIndex = 13 + Me.BTNIBlowjob.Text = "1" + Me.BTNIBlowjob.UseVisualStyleBackColor = False + ' + 'BTNIFemdom + ' + Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray + Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black + Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) + Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIFemdom.Name = "BTNIFemdom" + Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) + Me.BTNIFemdom.TabIndex = 17 + Me.BTNIFemdom.Text = "1" + Me.BTNIFemdom.UseVisualStyleBackColor = False + ' + 'BTNBoobPath + ' + Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray + Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black + Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) + Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNBoobPath.Name = "BTNBoobPath" + Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) + Me.BTNBoobPath.TabIndex = 45 + Me.BTNBoobPath.Text = "1" + Me.BTNBoobPath.UseVisualStyleBackColor = False + ' + 'BTNILezdom + ' + Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray + Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNILezdom.ForeColor = System.Drawing.Color.Black + Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) + Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNILezdom.Name = "BTNILezdom" + Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) + Me.BTNILezdom.TabIndex = 21 + Me.BTNILezdom.Text = "1" + Me.BTNILezdom.UseVisualStyleBackColor = False + ' + 'BTNIHentai + ' + Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray + Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIHentai.ForeColor = System.Drawing.Color.Black + Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) + Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIHentai.Name = "BTNIHentai" + Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) + Me.BTNIHentai.TabIndex = 25 + Me.BTNIHentai.Text = "1" + Me.BTNIHentai.UseVisualStyleBackColor = False + ' + 'BTNIGay + ' + Me.BTNIGay.BackColor = System.Drawing.Color.LightGray + Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIGay.ForeColor = System.Drawing.Color.Black + Me.BTNIGay.Location = New System.Drawing.Point(76, 203) + Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIGay.Name = "BTNIGay" + Me.BTNIGay.Size = New System.Drawing.Size(34, 28) + Me.BTNIGay.TabIndex = 29 + Me.BTNIGay.Text = "1" + Me.BTNIGay.UseVisualStyleBackColor = False + ' + 'BTNIMaledom + ' + Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray + Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black + Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) + Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIMaledom.Name = "BTNIMaledom" + Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) + Me.BTNIMaledom.TabIndex = 33 + Me.BTNIMaledom.Text = "1" + Me.BTNIMaledom.UseVisualStyleBackColor = False + ' + 'BTNICaptions + ' + Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray + Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNICaptions.ForeColor = System.Drawing.Color.Black + Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) + Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNICaptions.Name = "BTNICaptions" + Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) + Me.BTNICaptions.TabIndex = 37 + Me.BTNICaptions.Text = "1" + Me.BTNICaptions.UseVisualStyleBackColor = False + ' + 'BTNIGeneral + ' + Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray + Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black + Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) + Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIGeneral.Name = "BTNIGeneral" + Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) + Me.BTNIGeneral.TabIndex = 41 + Me.BTNIGeneral.Text = "1" + Me.BTNIGeneral.UseVisualStyleBackColor = False + ' + 'TabPage33 + ' + Me.TabPage33.BackColor = System.Drawing.Color.Silver + Me.TabPage33.Controls.Add(Me.TabControl5) + Me.TabPage33.Location = New System.Drawing.Point(4, 22) + Me.TabPage33.Name = "TabPage33" + Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage33.Size = New System.Drawing.Size(720, 448) + Me.TabPage33.TabIndex = 21 + Me.TabPage33.Text = "Tagging" + ' + 'TabControl5 + ' + Me.TabControl5.Controls.Add(Me.TabPage34) + Me.TabControl5.Controls.Add(Me.TabPage35) + Me.TabControl5.Location = New System.Drawing.Point(6, 6) + Me.TabControl5.Name = "TabControl5" + Me.TabControl5.SelectedIndex = 0 + Me.TabControl5.Size = New System.Drawing.Size(708, 437) + Me.TabControl5.TabIndex = 0 + ' + 'TabPage34 + ' + Me.TabPage34.BackColor = System.Drawing.Color.LightGray + Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) + Me.TabPage34.Controls.Add(Me.CBTagAllFours) + Me.TabPage34.Controls.Add(Me.CBTagGlaring) + Me.TabPage34.Controls.Add(Me.CBTagSmiling) + Me.TabPage34.Controls.Add(Me.TBTagDir) + Me.TabPage34.Controls.Add(Me.CBTagPiercing) + Me.TabPage34.Controls.Add(Me.CBTagLegs) + Me.TabPage34.Controls.Add(Me.TBTagFurniture) + Me.TabPage34.Controls.Add(Me.CBTagFurniture) + Me.TabPage34.Controls.Add(Me.TBTagSexToy) + Me.TabPage34.Controls.Add(Me.CBTagSexToy) + Me.TabPage34.Controls.Add(Me.TBTagTattoo) + Me.TabPage34.Controls.Add(Me.CBTagTattoo) + Me.TabPage34.Controls.Add(Me.TBTagUnderwear) + Me.TabPage34.Controls.Add(Me.CBTagUnderwear) + Me.TabPage34.Controls.Add(Me.TBTagGarment) + Me.TabPage34.Controls.Add(Me.CBTagGarment) + Me.TabPage34.Controls.Add(Me.Label72) + Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) + Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) + Me.TabPage34.Controls.Add(Me.CBTagCloseUp) + Me.TabPage34.Controls.Add(Me.CBTagNaked) + Me.TabPage34.Controls.Add(Me.CBTagSideView) + Me.TabPage34.Controls.Add(Me.BTNTagPrevious) + Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) + Me.TabPage34.Controls.Add(Me.BTNTagNext) + Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) + Me.TabPage34.Controls.Add(Me.LBLTagCount) + Me.TabPage34.Controls.Add(Me.CBTagSucking) + Me.TabPage34.Controls.Add(Me.CBTagMasturbating) + Me.TabPage34.Controls.Add(Me.CBTagFeet) + Me.TabPage34.Controls.Add(Me.CBTagBoobs) + Me.TabPage34.Controls.Add(Me.CBTagAss) + Me.TabPage34.Controls.Add(Me.CBTagPussy) + Me.TabPage34.Controls.Add(Me.BTNTagSave) + Me.TabPage34.Controls.Add(Me.BTNTagDir) + Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) + Me.TabPage34.Controls.Add(Me.CBTagFace) + Me.TabPage34.Location = New System.Drawing.Point(4, 22) + Me.TabPage34.Name = "TabPage34" + Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage34.Size = New System.Drawing.Size(700, 411) + Me.TabPage34.TabIndex = 0 + Me.TabPage34.Text = "Domme Tags" + ' + 'CBTagSeeThrough + ' + Me.CBTagSeeThrough.AutoSize = True + Me.CBTagSeeThrough.Enabled = False + Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) + Me.CBTagSeeThrough.Name = "CBTagSeeThrough" + Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) + Me.CBTagSeeThrough.TabIndex = 226 + Me.CBTagSeeThrough.Text = "See Through" + Me.CBTagSeeThrough.UseVisualStyleBackColor = True + ' + 'CBTagAllFours + ' + Me.CBTagAllFours.AutoSize = True + Me.CBTagAllFours.Enabled = False + Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black + Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) + Me.CBTagAllFours.Name = "CBTagAllFours" + Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) + Me.CBTagAllFours.TabIndex = 225 + Me.CBTagAllFours.Text = "All Fours" + Me.CBTagAllFours.UseVisualStyleBackColor = True + ' + 'CBTagGlaring + ' + Me.CBTagGlaring.AutoSize = True + Me.CBTagGlaring.Enabled = False + Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black + Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) + Me.CBTagGlaring.Name = "CBTagGlaring" + Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) + Me.CBTagGlaring.TabIndex = 224 + Me.CBTagGlaring.Text = "Glaring" + Me.CBTagGlaring.UseVisualStyleBackColor = True + ' + 'CBTagSmiling + ' + Me.CBTagSmiling.AutoSize = True + Me.CBTagSmiling.Enabled = False + Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black + Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) + Me.CBTagSmiling.Name = "CBTagSmiling" + Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) + Me.CBTagSmiling.TabIndex = 223 + Me.CBTagSmiling.Text = "Smiling" + Me.CBTagSmiling.UseVisualStyleBackColor = True + ' + 'TBTagDir + ' + Me.TBTagDir.Location = New System.Drawing.Point(55, 9) + Me.TBTagDir.Name = "TBTagDir" + Me.TBTagDir.Size = New System.Drawing.Size(330, 20) + Me.TBTagDir.TabIndex = 222 + Me.TBTagDir.Text = "Enter Image Directory" + ' + 'CBTagPiercing + ' + Me.CBTagPiercing.AutoSize = True + Me.CBTagPiercing.Enabled = False + Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black + Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) + Me.CBTagPiercing.Name = "CBTagPiercing" + Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) + Me.CBTagPiercing.TabIndex = 221 + Me.CBTagPiercing.Text = "Piercing" + Me.CBTagPiercing.UseVisualStyleBackColor = True + ' + 'CBTagLegs + ' + Me.CBTagLegs.AutoSize = True + Me.CBTagLegs.Enabled = False + Me.CBTagLegs.ForeColor = System.Drawing.Color.Black + Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) + Me.CBTagLegs.Name = "CBTagLegs" + Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) + Me.CBTagLegs.TabIndex = 220 + Me.CBTagLegs.Text = "Legs" + Me.CBTagLegs.UseVisualStyleBackColor = True + ' + 'TBTagFurniture + ' + Me.TBTagFurniture.Enabled = False + Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) + Me.TBTagFurniture.Name = "TBTagFurniture" + Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) + Me.TBTagFurniture.TabIndex = 219 + ' + 'CBTagFurniture + ' + Me.CBTagFurniture.AutoSize = True + Me.CBTagFurniture.Enabled = False + Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black + Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) + Me.CBTagFurniture.Name = "CBTagFurniture" + Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) + Me.CBTagFurniture.TabIndex = 218 + Me.CBTagFurniture.Text = "Furniture" + Me.CBTagFurniture.UseVisualStyleBackColor = True + ' + 'TBTagSexToy + ' + Me.TBTagSexToy.Enabled = False + Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) + Me.TBTagSexToy.Name = "TBTagSexToy" + Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) + Me.TBTagSexToy.TabIndex = 217 + ' + 'CBTagSexToy + ' + Me.CBTagSexToy.AutoSize = True + Me.CBTagSexToy.Enabled = False + Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black + Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) + Me.CBTagSexToy.Name = "CBTagSexToy" + Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) + Me.CBTagSexToy.TabIndex = 216 + Me.CBTagSexToy.Text = "Sex Toy" + Me.CBTagSexToy.UseVisualStyleBackColor = True + ' + 'TBTagTattoo + ' + Me.TBTagTattoo.Enabled = False + Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) + Me.TBTagTattoo.Name = "TBTagTattoo" + Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) + Me.TBTagTattoo.TabIndex = 215 + ' + 'CBTagTattoo + ' + Me.CBTagTattoo.AutoSize = True + Me.CBTagTattoo.Enabled = False + Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black + Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) + Me.CBTagTattoo.Name = "CBTagTattoo" + Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) + Me.CBTagTattoo.TabIndex = 214 + Me.CBTagTattoo.Text = "Tattoo" + Me.CBTagTattoo.UseVisualStyleBackColor = True + ' + 'TBTagUnderwear + ' + Me.TBTagUnderwear.Enabled = False + Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) + Me.TBTagUnderwear.Name = "TBTagUnderwear" + Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) + Me.TBTagUnderwear.TabIndex = 213 + ' + 'CBTagUnderwear + ' + Me.CBTagUnderwear.AutoSize = True + Me.CBTagUnderwear.Enabled = False + Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black + Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) + Me.CBTagUnderwear.Name = "CBTagUnderwear" + Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) + Me.CBTagUnderwear.TabIndex = 212 + Me.CBTagUnderwear.Text = "Underwear" + Me.CBTagUnderwear.UseVisualStyleBackColor = True + ' + 'TBTagGarment + ' + Me.TBTagGarment.Enabled = False + Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) + Me.TBTagGarment.Name = "TBTagGarment" + Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) + Me.TBTagGarment.TabIndex = 211 + ' + 'CBTagGarment + ' + Me.CBTagGarment.AutoSize = True + Me.CBTagGarment.Enabled = False + Me.CBTagGarment.ForeColor = System.Drawing.Color.Black + Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) + Me.CBTagGarment.Name = "CBTagGarment" + Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) + Me.CBTagGarment.TabIndex = 210 + Me.CBTagGarment.Text = "Garment" + Me.CBTagGarment.UseVisualStyleBackColor = True + ' + 'Label72 + ' + Me.Label72.BackColor = System.Drawing.Color.Transparent + Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label72.ForeColor = System.Drawing.Color.Black + Me.Label72.Location = New System.Drawing.Point(5, 368) + Me.Label72.Name = "Label72" + Me.Label72.Size = New System.Drawing.Size(451, 35) + Me.Label72.TabIndex = 189 + Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ" & + "ayed, and enter one-word tag descriptions in the text fields when appropriate. (" & + "e.g. Garment: dress)" + Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBTagHandsCovering + ' + Me.CBTagHandsCovering.AutoSize = True + Me.CBTagHandsCovering.Enabled = False + Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) + Me.CBTagHandsCovering.Name = "CBTagHandsCovering" + Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) + Me.CBTagHandsCovering.TabIndex = 209 + Me.CBTagHandsCovering.Text = "Hands Covering" + Me.CBTagHandsCovering.UseVisualStyleBackColor = True + ' + 'CBTagGarmentCovering + ' + Me.CBTagGarmentCovering.AutoSize = True + Me.CBTagGarmentCovering.Enabled = False + Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) + Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" + Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) + Me.CBTagGarmentCovering.TabIndex = 208 + Me.CBTagGarmentCovering.Text = "Garment Covering" + Me.CBTagGarmentCovering.UseVisualStyleBackColor = True + ' + 'CBTagCloseUp + ' + Me.CBTagCloseUp.AutoSize = True + Me.CBTagCloseUp.Enabled = False + Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black + Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) + Me.CBTagCloseUp.Name = "CBTagCloseUp" + Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) + Me.CBTagCloseUp.TabIndex = 205 + Me.CBTagCloseUp.Text = "Close Up" + Me.CBTagCloseUp.UseVisualStyleBackColor = True + ' + 'CBTagNaked + ' + Me.CBTagNaked.AutoSize = True + Me.CBTagNaked.Enabled = False + Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) + Me.CBTagNaked.Name = "CBTagNaked" + Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) + Me.CBTagNaked.TabIndex = 199 + Me.CBTagNaked.Text = "Naked" + Me.CBTagNaked.UseVisualStyleBackColor = True + ' + 'CBTagSideView + ' + Me.CBTagSideView.AutoSize = True + Me.CBTagSideView.Enabled = False + Me.CBTagSideView.ForeColor = System.Drawing.Color.Black + Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) + Me.CBTagSideView.Name = "CBTagSideView" + Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) + Me.CBTagSideView.TabIndex = 204 + Me.CBTagSideView.Text = "Side View" + Me.CBTagSideView.UseVisualStyleBackColor = True + ' + 'BTNTagPrevious + ' + Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray + Me.BTNTagPrevious.Enabled = False + Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black + Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) + Me.BTNTagPrevious.Name = "BTNTagPrevious" + Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) + Me.BTNTagPrevious.TabIndex = 207 + Me.BTNTagPrevious.Text = "<<" + Me.BTNTagPrevious.UseVisualStyleBackColor = False + ' + 'CBTagHalfDressed + ' + Me.CBTagHalfDressed.AutoSize = True + Me.CBTagHalfDressed.Enabled = False + Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) + Me.CBTagHalfDressed.Name = "CBTagHalfDressed" + Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) + Me.CBTagHalfDressed.TabIndex = 198 + Me.CBTagHalfDressed.Text = "Half Dressed" + Me.CBTagHalfDressed.UseVisualStyleBackColor = True + ' + 'BTNTagNext + ' + Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray + Me.BTNTagNext.Enabled = False + Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNTagNext.ForeColor = System.Drawing.Color.Black + Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) + Me.BTNTagNext.Name = "BTNTagNext" + Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) + Me.BTNTagNext.TabIndex = 206 + Me.BTNTagNext.Text = ">>" + Me.BTNTagNext.UseVisualStyleBackColor = False + ' + 'CBTagFullyDressed + ' + Me.CBTagFullyDressed.AutoSize = True + Me.CBTagFullyDressed.Enabled = False + Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) + Me.CBTagFullyDressed.Name = "CBTagFullyDressed" + Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) + Me.CBTagFullyDressed.TabIndex = 197 + Me.CBTagFullyDressed.Text = "Fully Dressed" + Me.CBTagFullyDressed.UseVisualStyleBackColor = True + ' + 'LBLTagCount + ' + Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent + Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLTagCount.Enabled = False + Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLTagCount.ForeColor = System.Drawing.Color.Black + Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) + Me.LBLTagCount.Name = "LBLTagCount" + Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) + Me.LBLTagCount.TabIndex = 203 + Me.LBLTagCount.Text = "0/0" + Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBTagSucking + ' + Me.CBTagSucking.AutoSize = True + Me.CBTagSucking.Enabled = False + Me.CBTagSucking.ForeColor = System.Drawing.Color.Black + Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) + Me.CBTagSucking.Name = "CBTagSucking" + Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) + Me.CBTagSucking.TabIndex = 202 + Me.CBTagSucking.Text = "Sucking" + Me.CBTagSucking.UseVisualStyleBackColor = True + ' + 'CBTagMasturbating + ' + Me.CBTagMasturbating.AutoSize = True + Me.CBTagMasturbating.Enabled = False + Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black + Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) + Me.CBTagMasturbating.Name = "CBTagMasturbating" + Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) + Me.CBTagMasturbating.TabIndex = 201 + Me.CBTagMasturbating.Text = "Masturbating" + Me.CBTagMasturbating.UseVisualStyleBackColor = True + ' + 'CBTagFeet + ' + Me.CBTagFeet.AutoSize = True + Me.CBTagFeet.Enabled = False + Me.CBTagFeet.ForeColor = System.Drawing.Color.Black + Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) + Me.CBTagFeet.Name = "CBTagFeet" + Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) + Me.CBTagFeet.TabIndex = 200 + Me.CBTagFeet.Text = "Feet" + Me.CBTagFeet.UseVisualStyleBackColor = True + ' + 'CBTagBoobs + ' + Me.CBTagBoobs.AutoSize = True + Me.CBTagBoobs.Enabled = False + Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black + Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) + Me.CBTagBoobs.Name = "CBTagBoobs" + Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) + Me.CBTagBoobs.TabIndex = 196 + Me.CBTagBoobs.Text = "Boobs" + Me.CBTagBoobs.UseVisualStyleBackColor = True + ' + 'CBTagAss + ' + Me.CBTagAss.AutoSize = True + Me.CBTagAss.Enabled = False + Me.CBTagAss.ForeColor = System.Drawing.Color.Black + Me.CBTagAss.Location = New System.Drawing.Point(484, 97) + Me.CBTagAss.Name = "CBTagAss" + Me.CBTagAss.Size = New System.Drawing.Size(43, 17) + Me.CBTagAss.TabIndex = 195 + Me.CBTagAss.Text = "Ass" + Me.CBTagAss.UseVisualStyleBackColor = True + ' + 'CBTagPussy + ' + Me.CBTagPussy.AutoSize = True + Me.CBTagPussy.Enabled = False + Me.CBTagPussy.ForeColor = System.Drawing.Color.Black + Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) + Me.CBTagPussy.Name = "CBTagPussy" + Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) + Me.CBTagPussy.TabIndex = 194 + Me.CBTagPussy.Text = "Pussy" + Me.CBTagPussy.UseVisualStyleBackColor = True + ' + 'BTNTagSave + ' + Me.BTNTagSave.Enabled = False + Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) + Me.BTNTagSave.Name = "BTNTagSave" + Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) + Me.BTNTagSave.TabIndex = 193 + Me.BTNTagSave.Text = "Finished" + Me.BTNTagSave.UseVisualStyleBackColor = True + ' + 'BTNTagDir + ' + Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) + Me.BTNTagDir.Name = "BTNTagDir" + Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) + Me.BTNTagDir.TabIndex = 192 + Me.BTNTagDir.Text = "1" + Me.BTNTagDir.UseVisualStyleBackColor = True + ' + 'ImageTagPictureBox + ' + Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black + Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) + Me.ImageTagPictureBox.Name = "ImageTagPictureBox" + Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) + Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.ImageTagPictureBox.TabIndex = 191 + Me.ImageTagPictureBox.TabStop = False + ' + 'CBTagFace + ' + Me.CBTagFace.AutoSize = True + Me.CBTagFace.Enabled = False + Me.CBTagFace.ForeColor = System.Drawing.Color.Black + Me.CBTagFace.Location = New System.Drawing.Point(484, 37) + Me.CBTagFace.Name = "CBTagFace" + Me.CBTagFace.Size = New System.Drawing.Size(50, 17) + Me.CBTagFace.TabIndex = 190 + Me.CBTagFace.Text = "Face" + Me.CBTagFace.UseVisualStyleBackColor = True + ' + 'TabPage35 + ' + Me.TabPage35.BackColor = System.Drawing.Color.LightGray + Me.TabPage35.Controls.Add(Me.GroupBox55) + Me.TabPage35.Controls.Add(Me.GroupBox53) + Me.TabPage35.Controls.Add(Me.GroupBox49) + Me.TabPage35.Controls.Add(Me.GroupBox46) + Me.TabPage35.Controls.Add(Me.GroupBox54) + Me.TabPage35.Controls.Add(Me.GroupBox51) + Me.TabPage35.Controls.Add(Me.GroupBox50) + Me.TabPage35.Controls.Add(Me.GroupBox48) + Me.TabPage35.Controls.Add(Me.TBLocalTagDir) + Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) + Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) + Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) + Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) + Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) + Me.TabPage35.Location = New System.Drawing.Point(4, 22) + Me.TabPage35.Name = "TabPage35" + Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage35.Size = New System.Drawing.Size(700, 411) + Me.TabPage35.TabIndex = 1 + Me.TabPage35.Text = "Local Tags" + ' + 'GroupBox55 + ' + Me.GroupBox55.Controls.Add(Me.CBTagNurse) + Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) + Me.GroupBox55.Controls.Add(Me.CBTagMaid) + Me.GroupBox55.Controls.Add(Me.CBTagTeacher) + Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) + Me.GroupBox55.Location = New System.Drawing.Point(341, 277) + Me.GroupBox55.Name = "GroupBox55" + Me.GroupBox55.Size = New System.Drawing.Size(103, 118) + Me.GroupBox55.TabIndex = 241 + Me.GroupBox55.TabStop = False + Me.GroupBox55.Text = "Outfit" + ' + 'CBTagNurse + ' + Me.CBTagNurse.AutoSize = True + Me.CBTagNurse.Enabled = False + Me.CBTagNurse.ForeColor = System.Drawing.Color.Black + Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) + Me.CBTagNurse.Name = "CBTagNurse" + Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) + Me.CBTagNurse.TabIndex = 203 + Me.CBTagNurse.Text = "Nurse" + Me.CBTagNurse.UseVisualStyleBackColor = True + ' + 'CBTagSchoolgirl + ' + Me.CBTagSchoolgirl.AutoSize = True + Me.CBTagSchoolgirl.Enabled = False + Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black + Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) + Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" + Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) + Me.CBTagSchoolgirl.TabIndex = 204 + Me.CBTagSchoolgirl.Text = "Schoolgirl" + Me.CBTagSchoolgirl.UseVisualStyleBackColor = True + ' + 'CBTagMaid + ' + Me.CBTagMaid.AutoSize = True + Me.CBTagMaid.Enabled = False + Me.CBTagMaid.ForeColor = System.Drawing.Color.Black + Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) + Me.CBTagMaid.Name = "CBTagMaid" + Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) + Me.CBTagMaid.TabIndex = 205 + Me.CBTagMaid.Text = "Maid" + Me.CBTagMaid.UseVisualStyleBackColor = True + ' + 'CBTagTeacher + ' + Me.CBTagTeacher.AutoSize = True + Me.CBTagTeacher.Enabled = False + Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black + Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) + Me.CBTagTeacher.Name = "CBTagTeacher" + Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) + Me.CBTagTeacher.TabIndex = 206 + Me.CBTagTeacher.Text = "Teacher" + Me.CBTagTeacher.UseVisualStyleBackColor = True + ' + 'CBTagSuperhero + ' + Me.CBTagSuperhero.AutoSize = True + Me.CBTagSuperhero.Enabled = False + Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black + Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) + Me.CBTagSuperhero.Name = "CBTagSuperhero" + Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) + Me.CBTagSuperhero.TabIndex = 213 + Me.CBTagSuperhero.Text = "Superhero" + Me.CBTagSuperhero.UseVisualStyleBackColor = True + ' + 'GroupBox53 + ' + Me.GroupBox53.Controls.Add(Me.CBTagTrap) + Me.GroupBox53.Controls.Add(Me.CBTagTentacles) + Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) + Me.GroupBox53.Controls.Add(Me.CBTagBukkake) + Me.GroupBox53.Controls.Add(Me.CBTagGanguro) + Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) + Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) + Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) + Me.GroupBox53.Controls.Add(Me.CBTagAhegao) + Me.GroupBox53.Controls.Add(Me.CBTagShibari) + Me.GroupBox53.Location = New System.Drawing.Point(450, 277) + Me.GroupBox53.Name = "GroupBox53" + Me.GroupBox53.Size = New System.Drawing.Size(246, 118) + Me.GroupBox53.TabIndex = 240 + Me.GroupBox53.TabStop = False + Me.GroupBox53.Text = "Hentai/JAV Themes" + ' + 'CBTagTrap + ' + Me.CBTagTrap.AutoSize = True + Me.CBTagTrap.Enabled = False + Me.CBTagTrap.ForeColor = System.Drawing.Color.Black + Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) + Me.CBTagTrap.Name = "CBTagTrap" + Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) + Me.CBTagTrap.TabIndex = 226 + Me.CBTagTrap.Text = "Trap" + Me.CBTagTrap.UseVisualStyleBackColor = True + ' + 'CBTagTentacles + ' + Me.CBTagTentacles.AutoSize = True + Me.CBTagTentacles.Enabled = False + Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black + Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) + Me.CBTagTentacles.Name = "CBTagTentacles" + Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) + Me.CBTagTentacles.TabIndex = 204 + Me.CBTagTentacles.Text = "Tentacles" + Me.CBTagTentacles.UseVisualStyleBackColor = True + ' + 'CBTagMonsterGirl + ' + Me.CBTagMonsterGirl.AutoSize = True + Me.CBTagMonsterGirl.Enabled = False + Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black + Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) + Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" + Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) + Me.CBTagMonsterGirl.TabIndex = 214 + Me.CBTagMonsterGirl.Text = "Monster Girl" + Me.CBTagMonsterGirl.UseVisualStyleBackColor = True + ' + 'CBTagBukkake + ' + Me.CBTagBukkake.AutoSize = True + Me.CBTagBukkake.Enabled = False + Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black + Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) + Me.CBTagBukkake.Name = "CBTagBukkake" + Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) + Me.CBTagBukkake.TabIndex = 210 + Me.CBTagBukkake.Text = "Bukkake" + Me.CBTagBukkake.UseVisualStyleBackColor = True + ' + 'CBTagGanguro + ' + Me.CBTagGanguro.AutoSize = True + Me.CBTagGanguro.Enabled = False + Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black + Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) + Me.CBTagGanguro.Name = "CBTagGanguro" + Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) + Me.CBTagGanguro.TabIndex = 205 + Me.CBTagGanguro.Text = "Ganguro" + Me.CBTagGanguro.UseVisualStyleBackColor = True + ' + 'CBTagBodyWriting + ' + Me.CBTagBodyWriting.AutoSize = True + Me.CBTagBodyWriting.Enabled = False + Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) + Me.CBTagBodyWriting.Name = "CBTagBodyWriting" + Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) + Me.CBTagBodyWriting.TabIndex = 208 + Me.CBTagBodyWriting.Text = "Body Writing" + Me.CBTagBodyWriting.UseVisualStyleBackColor = True + ' + 'CBTagMahouShoujo + ' + Me.CBTagMahouShoujo.AutoSize = True + Me.CBTagMahouShoujo.Enabled = False + Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black + Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) + Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" + Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) + Me.CBTagMahouShoujo.TabIndex = 209 + Me.CBTagMahouShoujo.Text = "Mahou Shoujo" + Me.CBTagMahouShoujo.UseVisualStyleBackColor = True + ' + 'CBTagBakunyuu + ' + Me.CBTagBakunyuu.AutoSize = True + Me.CBTagBakunyuu.Enabled = False + Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black + Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) + Me.CBTagBakunyuu.Name = "CBTagBakunyuu" + Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) + Me.CBTagBakunyuu.TabIndex = 213 + Me.CBTagBakunyuu.Text = "Bakunyuu" + Me.CBTagBakunyuu.UseVisualStyleBackColor = True + ' + 'CBTagAhegao + ' + Me.CBTagAhegao.AutoSize = True + Me.CBTagAhegao.Enabled = False + Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black + Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) + Me.CBTagAhegao.Name = "CBTagAhegao" + Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) + Me.CBTagAhegao.TabIndex = 207 + Me.CBTagAhegao.Text = "Ahegao" + Me.CBTagAhegao.UseVisualStyleBackColor = True + ' + 'CBTagShibari + ' + Me.CBTagShibari.AutoSize = True + Me.CBTagShibari.Enabled = False + Me.CBTagShibari.ForeColor = System.Drawing.Color.Black + Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) + Me.CBTagShibari.Name = "CBTagShibari" + Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) + Me.CBTagShibari.TabIndex = 203 + Me.CBTagShibari.Text = "Shibari" + Me.CBTagShibari.UseVisualStyleBackColor = True + ' + 'GroupBox49 + ' + Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) + Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) + Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) + Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) + Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) + Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) + Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) + Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) + Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) + Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) + Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) + Me.GroupBox49.Location = New System.Drawing.Point(341, 37) + Me.GroupBox49.Name = "GroupBox49" + Me.GroupBox49.Size = New System.Drawing.Size(103, 238) + Me.GroupBox49.TabIndex = 236 + Me.GroupBox49.TabStop = False + Me.GroupBox49.Text = "Body Part" + ' + 'CBTagBodyMouth + ' + Me.CBTagBodyMouth.AutoSize = True + Me.CBTagBodyMouth.Enabled = False + Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) + Me.CBTagBodyMouth.Name = "CBTagBodyMouth" + Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) + Me.CBTagBodyMouth.TabIndex = 220 + Me.CBTagBodyMouth.Text = "Mouth" + Me.CBTagBodyMouth.UseVisualStyleBackColor = True + ' + 'CBTagBodyAss + ' + Me.CBTagBodyAss.AutoSize = True + Me.CBTagBodyAss.Enabled = False + Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) + Me.CBTagBodyAss.Name = "CBTagBodyAss" + Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) + Me.CBTagBodyAss.TabIndex = 219 + Me.CBTagBodyAss.Text = "Ass" + Me.CBTagBodyAss.UseVisualStyleBackColor = True + ' + 'CBTagBodyFace + ' + Me.CBTagBodyFace.AutoSize = True + Me.CBTagBodyFace.Enabled = False + Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) + Me.CBTagBodyFace.Name = "CBTagBodyFace" + Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) + Me.CBTagBodyFace.TabIndex = 203 + Me.CBTagBodyFace.Text = "Face" + Me.CBTagBodyFace.UseVisualStyleBackColor = True + ' + 'CBTagBodyLegs + ' + Me.CBTagBodyLegs.AutoSize = True + Me.CBTagBodyLegs.Enabled = False + Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) + Me.CBTagBodyLegs.Name = "CBTagBodyLegs" + Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) + Me.CBTagBodyLegs.TabIndex = 218 + Me.CBTagBodyLegs.Text = "Legs" + Me.CBTagBodyLegs.UseVisualStyleBackColor = True + ' + 'CBTagBodyBalls + ' + Me.CBTagBodyBalls.AutoSize = True + Me.CBTagBodyBalls.Enabled = False + Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) + Me.CBTagBodyBalls.Name = "CBTagBodyBalls" + Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) + Me.CBTagBodyBalls.TabIndex = 217 + Me.CBTagBodyBalls.Text = "Balls" + Me.CBTagBodyBalls.UseVisualStyleBackColor = True + ' + 'CBTagBodyCock + ' + Me.CBTagBodyCock.AutoSize = True + Me.CBTagBodyCock.Enabled = False + Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) + Me.CBTagBodyCock.Name = "CBTagBodyCock" + Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) + Me.CBTagBodyCock.TabIndex = 216 + Me.CBTagBodyCock.Text = "Cock" + Me.CBTagBodyCock.UseVisualStyleBackColor = True + ' + 'CBTagBodyFeet + ' + Me.CBTagBodyFeet.AutoSize = True + Me.CBTagBodyFeet.Enabled = False + Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) + Me.CBTagBodyFeet.Name = "CBTagBodyFeet" + Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) + Me.CBTagBodyFeet.TabIndex = 215 + Me.CBTagBodyFeet.Text = "Feet" + Me.CBTagBodyFeet.UseVisualStyleBackColor = True + ' + 'CBTagBodyNipples + ' + Me.CBTagBodyNipples.AutoSize = True + Me.CBTagBodyNipples.Enabled = False + Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) + Me.CBTagBodyNipples.Name = "CBTagBodyNipples" + Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) + Me.CBTagBodyNipples.TabIndex = 207 + Me.CBTagBodyNipples.Text = "Nipples" + Me.CBTagBodyNipples.UseVisualStyleBackColor = True + ' + 'CBTagBodyPussy + ' + Me.CBTagBodyPussy.AutoSize = True + Me.CBTagBodyPussy.Enabled = False + Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) + Me.CBTagBodyPussy.Name = "CBTagBodyPussy" + Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) + Me.CBTagBodyPussy.TabIndex = 209 + Me.CBTagBodyPussy.Text = "Pussy" + Me.CBTagBodyPussy.UseVisualStyleBackColor = True + ' + 'CBTagBodyTits + ' + Me.CBTagBodyTits.AutoSize = True + Me.CBTagBodyTits.Enabled = False + Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) + Me.CBTagBodyTits.Name = "CBTagBodyTits" + Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) + Me.CBTagBodyTits.TabIndex = 213 + Me.CBTagBodyTits.Text = "Tits" + Me.CBTagBodyTits.UseVisualStyleBackColor = True + ' + 'CBTagBodyFingers + ' + Me.CBTagBodyFingers.AutoSize = True + Me.CBTagBodyFingers.Enabled = False + Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) + Me.CBTagBodyFingers.Name = "CBTagBodyFingers" + Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) + Me.CBTagBodyFingers.TabIndex = 210 + Me.CBTagBodyFingers.Text = "Fingers" + Me.CBTagBodyFingers.UseVisualStyleBackColor = True + ' + 'GroupBox46 + ' + Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) + Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) + Me.GroupBox46.Controls.Add(Me.CBTagFemdom) + Me.GroupBox46.Controls.Add(Me.CBTag2M) + Me.GroupBox46.Controls.Add(Me.CBTagFutadom) + Me.GroupBox46.Controls.Add(Me.CBTagFemsub) + Me.GroupBox46.Controls.Add(Me.CBTag2Futa) + Me.GroupBox46.Controls.Add(Me.CBTagMaledom) + Me.GroupBox46.Controls.Add(Me.CBTag3M) + Me.GroupBox46.Controls.Add(Me.CBTagFutasub) + Me.GroupBox46.Controls.Add(Me.CBTag3Futa) + Me.GroupBox46.Controls.Add(Me.CBTagMalesub) + Me.GroupBox46.Controls.Add(Me.CBTag2F) + Me.GroupBox46.Controls.Add(Me.CBTag1Futa) + Me.GroupBox46.Controls.Add(Me.CBTag1M) + Me.GroupBox46.Controls.Add(Me.CBTag1F) + Me.GroupBox46.Controls.Add(Me.CBTag3F) + Me.GroupBox46.Location = New System.Drawing.Point(230, 37) + Me.GroupBox46.Name = "GroupBox46" + Me.GroupBox46.Size = New System.Drawing.Size(105, 358) + Me.GroupBox46.TabIndex = 234 + Me.GroupBox46.TabStop = False + Me.GroupBox46.Text = "Genders && Roles" + ' + 'CBTagMultiSub + ' + Me.CBTagMultiSub.AutoSize = True + Me.CBTagMultiSub.Enabled = False + Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black + Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) + Me.CBTagMultiSub.Name = "CBTagMultiSub" + Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) + Me.CBTagMultiSub.TabIndex = 207 + Me.CBTagMultiSub.Text = "Multi-Sub" + Me.CBTagMultiSub.UseVisualStyleBackColor = True + ' + 'CBTagMultiDom + ' + Me.CBTagMultiDom.AutoSize = True + Me.CBTagMultiDom.Enabled = False + Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black + Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) + Me.CBTagMultiDom.Name = "CBTagMultiDom" + Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) + Me.CBTagMultiDom.TabIndex = 230 + Me.CBTagMultiDom.Text = "Multi-Dom" + Me.CBTagMultiDom.UseVisualStyleBackColor = True + ' + 'CBTagFemdom + ' + Me.CBTagFemdom.AutoSize = True + Me.CBTagFemdom.Enabled = False + Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black + Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) + Me.CBTagFemdom.Name = "CBTagFemdom" + Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) + Me.CBTagFemdom.TabIndex = 229 + Me.CBTagFemdom.Text = "Femdom" + Me.CBTagFemdom.UseVisualStyleBackColor = True + ' + 'CBTag2M + ' + Me.CBTag2M.AutoSize = True + Me.CBTag2M.Enabled = False + Me.CBTag2M.ForeColor = System.Drawing.Color.Black + Me.CBTag2M.Location = New System.Drawing.Point(15, 97) + Me.CBTag2M.Name = "CBTag2M" + Me.CBTag2M.Size = New System.Drawing.Size(56, 17) + Me.CBTag2M.TabIndex = 206 + Me.CBTag2M.Text = "2 Men" + Me.CBTag2M.UseVisualStyleBackColor = True + ' + 'CBTagFutadom + ' + Me.CBTagFutadom.AutoSize = True + Me.CBTagFutadom.Enabled = False + Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black + Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) + Me.CBTagFutadom.Name = "CBTagFutadom" + Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) + Me.CBTagFutadom.TabIndex = 204 + Me.CBTagFutadom.Text = "Futadom" + Me.CBTagFutadom.UseVisualStyleBackColor = True + ' + 'CBTagFemsub + ' + Me.CBTagFemsub.AutoSize = True + Me.CBTagFemsub.Enabled = False + Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black + Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) + Me.CBTagFemsub.Name = "CBTagFemsub" + Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) + Me.CBTagFemsub.TabIndex = 205 + Me.CBTagFemsub.Text = "Femsub" + Me.CBTagFemsub.UseVisualStyleBackColor = True + ' + 'CBTag2Futa + ' + Me.CBTag2Futa.AutoSize = True + Me.CBTag2Futa.Enabled = False + Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black + Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) + Me.CBTag2Futa.Name = "CBTag2Futa" + Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) + Me.CBTag2Futa.TabIndex = 186 + Me.CBTag2Futa.Text = "2 Futa" + Me.CBTag2Futa.UseVisualStyleBackColor = True + ' + 'CBTagMaledom + ' + Me.CBTagMaledom.AutoSize = True + Me.CBTagMaledom.Enabled = False + Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black + Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) + Me.CBTagMaledom.Name = "CBTagMaledom" + Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) + Me.CBTagMaledom.TabIndex = 206 + Me.CBTagMaledom.Text = "Maledom" + Me.CBTagMaledom.UseVisualStyleBackColor = True + ' + 'CBTag3M + ' + Me.CBTag3M.AutoSize = True + Me.CBTag3M.Enabled = False + Me.CBTag3M.ForeColor = System.Drawing.Color.Black + Me.CBTag3M.Location = New System.Drawing.Point(15, 117) + Me.CBTag3M.Name = "CBTag3M" + Me.CBTag3M.Size = New System.Drawing.Size(56, 17) + Me.CBTag3M.TabIndex = 190 + Me.CBTag3M.Text = "3 Men" + Me.CBTag3M.UseVisualStyleBackColor = True + ' + 'CBTagFutasub + ' + Me.CBTagFutasub.AutoSize = True + Me.CBTagFutasub.Enabled = False + Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black + Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) + Me.CBTagFutasub.Name = "CBTagFutasub" + Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) + Me.CBTagFutasub.TabIndex = 213 + Me.CBTagFutasub.Text = "Futasub" + Me.CBTagFutasub.UseVisualStyleBackColor = True + ' + 'CBTag3Futa + ' + Me.CBTag3Futa.AutoSize = True + Me.CBTag3Futa.Enabled = False + Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black + Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) + Me.CBTag3Futa.Name = "CBTag3Futa" + Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) + Me.CBTag3Futa.TabIndex = 197 + Me.CBTag3Futa.Text = "3 Futa" + Me.CBTag3Futa.UseVisualStyleBackColor = True + ' + 'CBTagMalesub + ' + Me.CBTagMalesub.AutoSize = True + Me.CBTagMalesub.Enabled = False + Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black + Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) + Me.CBTagMalesub.Name = "CBTagMalesub" + Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) + Me.CBTagMalesub.TabIndex = 210 + Me.CBTagMalesub.Text = "Malesub" + Me.CBTagMalesub.UseVisualStyleBackColor = True + ' + 'CBTag2F + ' + Me.CBTag2F.AutoSize = True + Me.CBTag2F.Enabled = False + Me.CBTag2F.ForeColor = System.Drawing.Color.Black + Me.CBTag2F.Location = New System.Drawing.Point(15, 37) + Me.CBTag2F.Name = "CBTag2F" + Me.CBTag2F.Size = New System.Drawing.Size(72, 17) + Me.CBTag2F.TabIndex = 188 + Me.CBTag2F.Text = "2 Women" + Me.CBTag2F.UseVisualStyleBackColor = True + ' + 'CBTag1Futa + ' + Me.CBTag1Futa.AutoSize = True + Me.CBTag1Futa.Enabled = False + Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black + Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) + Me.CBTag1Futa.Name = "CBTag1Futa" + Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) + Me.CBTag1Futa.TabIndex = 191 + Me.CBTag1Futa.Text = "1 Futa" + Me.CBTag1Futa.UseVisualStyleBackColor = True + ' + 'CBTag1M + ' + Me.CBTag1M.AutoSize = True + Me.CBTag1M.Enabled = False + Me.CBTag1M.ForeColor = System.Drawing.Color.Black + Me.CBTag1M.Location = New System.Drawing.Point(15, 77) + Me.CBTag1M.Name = "CBTag1M" + Me.CBTag1M.Size = New System.Drawing.Size(56, 17) + Me.CBTag1M.TabIndex = 189 + Me.CBTag1M.Text = "1 Man" + Me.CBTag1M.UseVisualStyleBackColor = True + ' + 'CBTag1F + ' + Me.CBTag1F.AutoSize = True + Me.CBTag1F.Enabled = False + Me.CBTag1F.ForeColor = System.Drawing.Color.Black + Me.CBTag1F.Location = New System.Drawing.Point(15, 17) + Me.CBTag1F.Name = "CBTag1F" + Me.CBTag1F.Size = New System.Drawing.Size(72, 17) + Me.CBTag1F.TabIndex = 185 + Me.CBTag1F.Text = "1 Woman" + Me.CBTag1F.UseVisualStyleBackColor = True + ' + 'CBTag3F + ' + Me.CBTag3F.AutoSize = True + Me.CBTag3F.Enabled = False + Me.CBTag3F.ForeColor = System.Drawing.Color.Black + Me.CBTag3F.Location = New System.Drawing.Point(15, 57) + Me.CBTag3F.Name = "CBTag3F" + Me.CBTag3F.Size = New System.Drawing.Size(72, 17) + Me.CBTag3F.TabIndex = 192 + Me.CBTag3F.Text = "3 Women" + Me.CBTag3F.UseVisualStyleBackColor = True + ' + 'GroupBox54 + ' + Me.GroupBox54.Controls.Add(Me.CBTagTattoos) + Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) + Me.GroupBox54.Controls.Add(Me.CBTagDomme) + Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) + Me.GroupBox54.Controls.Add(Me.CBTagWatersports) + Me.GroupBox54.Controls.Add(Me.CBTagStockings) + Me.GroupBox54.Controls.Add(Me.CBTagCumshot) + Me.GroupBox54.Controls.Add(Me.CBTagCumEating) + Me.GroupBox54.Controls.Add(Me.CBTagVibrator) + Me.GroupBox54.Controls.Add(Me.CBTagDildo) + Me.GroupBox54.Controls.Add(Me.CBTagKissing) + Me.GroupBox54.Location = New System.Drawing.Point(561, 37) + Me.GroupBox54.Name = "GroupBox54" + Me.GroupBox54.Size = New System.Drawing.Size(135, 238) + Me.GroupBox54.TabIndex = 239 + Me.GroupBox54.TabStop = False + Me.GroupBox54.Text = "Misc" + ' + 'CBTagTattoos + ' + Me.CBTagTattoos.AutoSize = True + Me.CBTagTattoos.Enabled = False + Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black + Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) + Me.CBTagTattoos.Name = "CBTagTattoos" + Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) + Me.CBTagTattoos.TabIndex = 214 + Me.CBTagTattoos.Text = "Tattoos" + Me.CBTagTattoos.UseVisualStyleBackColor = True + ' + 'CBTagAnalToy + ' + Me.CBTagAnalToy.AutoSize = True + Me.CBTagAnalToy.Enabled = False + Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black + Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) + Me.CBTagAnalToy.Name = "CBTagAnalToy" + Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) + Me.CBTagAnalToy.TabIndex = 215 + Me.CBTagAnalToy.Text = "Anal Toy" + Me.CBTagAnalToy.UseVisualStyleBackColor = True + ' + 'CBTagDomme + ' + Me.CBTagDomme.AutoSize = True + Me.CBTagDomme.Enabled = False + Me.CBTagDomme.ForeColor = System.Drawing.Color.Black + Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) + Me.CBTagDomme.Name = "CBTagDomme" + Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) + Me.CBTagDomme.TabIndex = 219 + Me.CBTagDomme.Text = "Tease A.I. Domme" + Me.CBTagDomme.UseVisualStyleBackColor = True + ' + 'CBTagPocketPussy + ' + Me.CBTagPocketPussy.AutoSize = True + Me.CBTagPocketPussy.Enabled = False + Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black + Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) + Me.CBTagPocketPussy.Name = "CBTagPocketPussy" + Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) + Me.CBTagPocketPussy.TabIndex = 205 + Me.CBTagPocketPussy.Text = "Pocket Pussy" + Me.CBTagPocketPussy.UseVisualStyleBackColor = True + ' + 'CBTagWatersports + ' + Me.CBTagWatersports.AutoSize = True + Me.CBTagWatersports.Enabled = False + Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black + Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) + Me.CBTagWatersports.Name = "CBTagWatersports" + Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) + Me.CBTagWatersports.TabIndex = 218 + Me.CBTagWatersports.Text = "Watersports" + Me.CBTagWatersports.UseVisualStyleBackColor = True + ' + 'CBTagStockings + ' + Me.CBTagStockings.AutoSize = True + Me.CBTagStockings.Enabled = False + Me.CBTagStockings.ForeColor = System.Drawing.Color.Black + Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) + Me.CBTagStockings.Name = "CBTagStockings" + Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) + Me.CBTagStockings.TabIndex = 217 + Me.CBTagStockings.Text = "Stockings" + Me.CBTagStockings.UseVisualStyleBackColor = True + ' + 'CBTagCumshot + ' + Me.CBTagCumshot.AutoSize = True + Me.CBTagCumshot.Enabled = False + Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black + Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) + Me.CBTagCumshot.Name = "CBTagCumshot" + Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) + Me.CBTagCumshot.TabIndex = 206 + Me.CBTagCumshot.Text = "Cumshot" + Me.CBTagCumshot.UseVisualStyleBackColor = True + ' + 'CBTagCumEating + ' + Me.CBTagCumEating.AutoSize = True + Me.CBTagCumEating.Enabled = False + Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black + Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) + Me.CBTagCumEating.Name = "CBTagCumEating" + Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) + Me.CBTagCumEating.TabIndex = 204 + Me.CBTagCumEating.Text = "Cum Eating" + Me.CBTagCumEating.UseVisualStyleBackColor = True + ' + 'CBTagVibrator + ' + Me.CBTagVibrator.AutoSize = True + Me.CBTagVibrator.Enabled = False + Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black + Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) + Me.CBTagVibrator.Name = "CBTagVibrator" + Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) + Me.CBTagVibrator.TabIndex = 210 + Me.CBTagVibrator.Text = "Vibrator" + Me.CBTagVibrator.UseVisualStyleBackColor = True + ' + 'CBTagDildo + ' + Me.CBTagDildo.AutoSize = True + Me.CBTagDildo.Enabled = False + Me.CBTagDildo.ForeColor = System.Drawing.Color.Black + Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) + Me.CBTagDildo.Name = "CBTagDildo" + Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) + Me.CBTagDildo.TabIndex = 213 + Me.CBTagDildo.Text = "Dildo" + Me.CBTagDildo.UseVisualStyleBackColor = True + ' + 'CBTagKissing + ' + Me.CBTagKissing.AutoSize = True + Me.CBTagKissing.Enabled = False + Me.CBTagKissing.ForeColor = System.Drawing.Color.Black + Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) + Me.CBTagKissing.Name = "CBTagKissing" + Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) + Me.CBTagKissing.TabIndex = 203 + Me.CBTagKissing.Text = "Kissing" + Me.CBTagKissing.UseVisualStyleBackColor = True + ' + 'GroupBox51 + ' + Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) + Me.GroupBox51.Controls.Add(Me.CBTagGag) + Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) + Me.GroupBox51.Controls.Add(Me.CBTagWhipping) + Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) + Me.GroupBox51.Controls.Add(Me.CBTagElectro) + Me.GroupBox51.Controls.Add(Me.CBTagHotWax) + Me.GroupBox51.Controls.Add(Me.CBTagClamps) + Me.GroupBox51.Controls.Add(Me.CBTagStrapon) + Me.GroupBox51.Controls.Add(Me.CBTagSpanking) + Me.GroupBox51.Controls.Add(Me.CBTagNeedles) + Me.GroupBox51.Location = New System.Drawing.Point(450, 37) + Me.GroupBox51.Name = "GroupBox51" + Me.GroupBox51.Size = New System.Drawing.Size(105, 238) + Me.GroupBox51.TabIndex = 238 + Me.GroupBox51.TabStop = False + Me.GroupBox51.Text = "BDSM" + ' + 'CBTagBallTorture + ' + Me.CBTagBallTorture.AutoSize = True + Me.CBTagBallTorture.Enabled = False + Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black + Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) + Me.CBTagBallTorture.Name = "CBTagBallTorture" + Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) + Me.CBTagBallTorture.TabIndex = 220 + Me.CBTagBallTorture.Text = "Ball Torture" + Me.CBTagBallTorture.UseVisualStyleBackColor = True + ' + 'CBTagGag + ' + Me.CBTagGag.AutoSize = True + Me.CBTagGag.Enabled = False + Me.CBTagGag.ForeColor = System.Drawing.Color.Black + Me.CBTagGag.Location = New System.Drawing.Point(15, 137) + Me.CBTagGag.Name = "CBTagGag" + Me.CBTagGag.Size = New System.Drawing.Size(46, 17) + Me.CBTagGag.TabIndex = 214 + Me.CBTagGag.Text = "Gag" + Me.CBTagGag.UseVisualStyleBackColor = True + ' + 'CBTagBlindfold + ' + Me.CBTagBlindfold.AutoSize = True + Me.CBTagBlindfold.Enabled = False + Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black + Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) + Me.CBTagBlindfold.Name = "CBTagBlindfold" + Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) + Me.CBTagBlindfold.TabIndex = 208 + Me.CBTagBlindfold.Text = "Blindfold" + Me.CBTagBlindfold.UseVisualStyleBackColor = True + ' + 'CBTagWhipping + ' + Me.CBTagWhipping.AutoSize = True + Me.CBTagWhipping.Enabled = False + Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black + Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) + Me.CBTagWhipping.Name = "CBTagWhipping" + Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) + Me.CBTagWhipping.TabIndex = 203 + Me.CBTagWhipping.Text = "Whipping" + Me.CBTagWhipping.UseVisualStyleBackColor = True + ' + 'CBTagCockTorture + ' + Me.CBTagCockTorture.AutoSize = True + Me.CBTagCockTorture.Enabled = False + Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black + Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) + Me.CBTagCockTorture.Name = "CBTagCockTorture" + Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) + Me.CBTagCockTorture.TabIndex = 204 + Me.CBTagCockTorture.Text = "Cock Torture" + Me.CBTagCockTorture.UseVisualStyleBackColor = True + ' + 'CBTagElectro + ' + Me.CBTagElectro.AutoSize = True + Me.CBTagElectro.Enabled = False + Me.CBTagElectro.ForeColor = System.Drawing.Color.Black + Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) + Me.CBTagElectro.Name = "CBTagElectro" + Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) + Me.CBTagElectro.TabIndex = 207 + Me.CBTagElectro.Text = "Electro" + Me.CBTagElectro.UseVisualStyleBackColor = True + ' + 'CBTagHotWax + ' + Me.CBTagHotWax.AutoSize = True + Me.CBTagHotWax.Enabled = False + Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black + Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) + Me.CBTagHotWax.Name = "CBTagHotWax" + Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) + Me.CBTagHotWax.TabIndex = 213 + Me.CBTagHotWax.Text = "Hot Wax" + Me.CBTagHotWax.UseVisualStyleBackColor = True + ' + 'CBTagClamps + ' + Me.CBTagClamps.AutoSize = True + Me.CBTagClamps.Enabled = False + Me.CBTagClamps.ForeColor = System.Drawing.Color.Black + Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) + Me.CBTagClamps.Name = "CBTagClamps" + Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) + Me.CBTagClamps.TabIndex = 210 + Me.CBTagClamps.Text = "Clamps" + Me.CBTagClamps.UseVisualStyleBackColor = True + ' + 'CBTagStrapon + ' + Me.CBTagStrapon.AutoSize = True + Me.CBTagStrapon.Enabled = False + Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black + Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) + Me.CBTagStrapon.Name = "CBTagStrapon" + Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) + Me.CBTagStrapon.TabIndex = 205 + Me.CBTagStrapon.Text = "Strap-on" + Me.CBTagStrapon.UseVisualStyleBackColor = True + ' + 'CBTagSpanking + ' + Me.CBTagSpanking.AutoSize = True + Me.CBTagSpanking.Enabled = False + Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black + Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) + Me.CBTagSpanking.Name = "CBTagSpanking" + Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) + Me.CBTagSpanking.TabIndex = 206 + Me.CBTagSpanking.Text = "Spanking" + Me.CBTagSpanking.UseVisualStyleBackColor = True + ' + 'CBTagNeedles + ' + Me.CBTagNeedles.AutoSize = True + Me.CBTagNeedles.Enabled = False + Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black + Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) + Me.CBTagNeedles.Name = "CBTagNeedles" + Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) + Me.CBTagNeedles.TabIndex = 209 + Me.CBTagNeedles.Text = "Needles" + Me.CBTagNeedles.UseVisualStyleBackColor = True + ' + 'GroupBox50 + ' + Me.GroupBox50.Controls.Add(Me.CBTagRimming) + Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) + Me.GroupBox50.Controls.Add(Me.CBTagMissionary) + Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) + Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) + Me.GroupBox50.Controls.Add(Me.CBTagFingering) + Me.GroupBox50.Controls.Add(Me.CBTagGangbang) + Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) + Me.GroupBox50.Controls.Add(Me.CBTagDP) + Me.GroupBox50.Controls.Add(Me.CBTagHandjob) + Me.GroupBox50.Controls.Add(Me.CBTagStanding) + Me.GroupBox50.Controls.Add(Me.CBTagFootjob) + Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) + Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) + Me.GroupBox50.Controls.Add(Me.CBTagTitjob) + Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) + Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) + Me.GroupBox50.Location = New System.Drawing.Point(119, 37) + Me.GroupBox50.Name = "GroupBox50" + Me.GroupBox50.Size = New System.Drawing.Size(105, 358) + Me.GroupBox50.TabIndex = 237 + Me.GroupBox50.TabStop = False + Me.GroupBox50.Text = "Sex" + ' + 'CBTagRimming + ' + Me.CBTagRimming.AutoSize = True + Me.CBTagRimming.Enabled = False + Me.CBTagRimming.ForeColor = System.Drawing.Color.Black + Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) + Me.CBTagRimming.Name = "CBTagRimming" + Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) + Me.CBTagRimming.TabIndex = 219 + Me.CBTagRimming.Text = "Rimming" + Me.CBTagRimming.UseVisualStyleBackColor = True + ' + 'CBTagFacesitting + ' + Me.CBTagFacesitting.AutoSize = True + Me.CBTagFacesitting.Enabled = False + Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black + Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) + Me.CBTagFacesitting.Name = "CBTagFacesitting" + Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) + Me.CBTagFacesitting.TabIndex = 226 + Me.CBTagFacesitting.Text = "Facesitting" + Me.CBTagFacesitting.UseVisualStyleBackColor = True + ' + 'CBTagMissionary + ' + Me.CBTagMissionary.AutoSize = True + Me.CBTagMissionary.Enabled = False + Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black + Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) + Me.CBTagMissionary.Name = "CBTagMissionary" + Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) + Me.CBTagMissionary.TabIndex = 208 + Me.CBTagMissionary.Text = "Missionary" + Me.CBTagMissionary.UseVisualStyleBackColor = True + ' + 'CBTagMasturbation + ' + Me.CBTagMasturbation.AutoSize = True + Me.CBTagMasturbation.Enabled = False + Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black + Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) + Me.CBTagMasturbation.Name = "CBTagMasturbation" + Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) + Me.CBTagMasturbation.TabIndex = 203 + Me.CBTagMasturbation.Text = "Masturbation" + Me.CBTagMasturbation.UseVisualStyleBackColor = True + ' + 'CBTagRCowgirl + ' + Me.CBTagRCowgirl.AutoSize = True + Me.CBTagRCowgirl.Enabled = False + Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black + Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) + Me.CBTagRCowgirl.Name = "CBTagRCowgirl" + Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) + Me.CBTagRCowgirl.TabIndex = 218 + Me.CBTagRCowgirl.Text = "R. Cowgirl" + Me.CBTagRCowgirl.UseVisualStyleBackColor = True + ' + 'CBTagFingering + ' + Me.CBTagFingering.AutoSize = True + Me.CBTagFingering.Enabled = False + Me.CBTagFingering.ForeColor = System.Drawing.Color.Black + Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) + Me.CBTagFingering.Name = "CBTagFingering" + Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) + Me.CBTagFingering.TabIndex = 204 + Me.CBTagFingering.Text = "Fingering" + Me.CBTagFingering.UseVisualStyleBackColor = True + ' + 'CBTagGangbang + ' + Me.CBTagGangbang.AutoSize = True + Me.CBTagGangbang.Enabled = False + Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black + Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) + Me.CBTagGangbang.Name = "CBTagGangbang" + Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) + Me.CBTagGangbang.TabIndex = 217 + Me.CBTagGangbang.Text = "Gangbang" + Me.CBTagGangbang.UseVisualStyleBackColor = True + ' + 'CBTagBlowjob + ' + Me.CBTagBlowjob.AutoSize = True + Me.CBTagBlowjob.Enabled = False + Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black + Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) + Me.CBTagBlowjob.Name = "CBTagBlowjob" + Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) + Me.CBTagBlowjob.TabIndex = 205 + Me.CBTagBlowjob.Text = "Blowjob" + Me.CBTagBlowjob.UseVisualStyleBackColor = True + ' + 'CBTagDP + ' + Me.CBTagDP.AutoSize = True + Me.CBTagDP.Enabled = False + Me.CBTagDP.ForeColor = System.Drawing.Color.Black + Me.CBTagDP.Location = New System.Drawing.Point(15, 317) + Me.CBTagDP.Name = "CBTagDP" + Me.CBTagDP.Size = New System.Drawing.Size(41, 17) + Me.CBTagDP.TabIndex = 216 + Me.CBTagDP.Text = "DP" + Me.CBTagDP.UseVisualStyleBackColor = True + ' + 'CBTagHandjob + ' + Me.CBTagHandjob.AutoSize = True + Me.CBTagHandjob.Enabled = False + Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black + Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) + Me.CBTagHandjob.Name = "CBTagHandjob" + Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) + Me.CBTagHandjob.TabIndex = 206 + Me.CBTagHandjob.Text = "Handjob" + Me.CBTagHandjob.UseVisualStyleBackColor = True + ' + 'CBTagStanding + ' + Me.CBTagStanding.AutoSize = True + Me.CBTagStanding.Enabled = False + Me.CBTagStanding.ForeColor = System.Drawing.Color.Black + Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) + Me.CBTagStanding.Name = "CBTagStanding" + Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) + Me.CBTagStanding.TabIndex = 215 + Me.CBTagStanding.Text = "Standing" + Me.CBTagStanding.UseVisualStyleBackColor = True + ' + 'CBTagFootjob + ' + Me.CBTagFootjob.AutoSize = True + Me.CBTagFootjob.Enabled = False + Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black + Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) + Me.CBTagFootjob.Name = "CBTagFootjob" + Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) + Me.CBTagFootjob.TabIndex = 207 + Me.CBTagFootjob.Text = "Footjob" + Me.CBTagFootjob.UseVisualStyleBackColor = True + ' + 'CBTagCowgirl + ' + Me.CBTagCowgirl.AutoSize = True + Me.CBTagCowgirl.Enabled = False + Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black + Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) + Me.CBTagCowgirl.Name = "CBTagCowgirl" + Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) + Me.CBTagCowgirl.TabIndex = 214 + Me.CBTagCowgirl.Text = "Cowgirl" + Me.CBTagCowgirl.UseVisualStyleBackColor = True + ' + 'CBTagDoggyStyle + ' + Me.CBTagDoggyStyle.AutoSize = True + Me.CBTagDoggyStyle.Enabled = False + Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black + Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) + Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" + Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) + Me.CBTagDoggyStyle.TabIndex = 209 + Me.CBTagDoggyStyle.Text = "Doggy Style" + Me.CBTagDoggyStyle.UseVisualStyleBackColor = True + ' + 'CBTagTitjob + ' + Me.CBTagTitjob.AutoSize = True + Me.CBTagTitjob.Enabled = False + Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black + Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) + Me.CBTagTitjob.Name = "CBTagTitjob" + Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) + Me.CBTagTitjob.TabIndex = 213 + Me.CBTagTitjob.Text = "Titjob" + Me.CBTagTitjob.UseVisualStyleBackColor = True + ' + 'CBTagCunnilingus + ' + Me.CBTagCunnilingus.AutoSize = True + Me.CBTagCunnilingus.Enabled = False + Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black + Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) + Me.CBTagCunnilingus.Name = "CBTagCunnilingus" + Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) + Me.CBTagCunnilingus.TabIndex = 210 + Me.CBTagCunnilingus.Text = "Cunnilingus" + Me.CBTagCunnilingus.UseVisualStyleBackColor = True + ' + 'CBTagAnalSex + ' + Me.CBTagAnalSex.AutoSize = True + Me.CBTagAnalSex.Enabled = False + Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black + Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) + Me.CBTagAnalSex.Name = "CBTagAnalSex" + Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) + Me.CBTagAnalSex.TabIndex = 212 + Me.CBTagAnalSex.Text = "Anal Sex" + Me.CBTagAnalSex.UseVisualStyleBackColor = True + ' + 'GroupBox48 + ' + Me.GroupBox48.Controls.Add(Me.CBTagArtwork) + Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) + Me.GroupBox48.Controls.Add(Me.CBTagPOV) + Me.GroupBox48.Controls.Add(Me.CBTagHardcore) + Me.GroupBox48.Controls.Add(Me.CBTagTD) + Me.GroupBox48.Controls.Add(Me.CBTagGay) + Me.GroupBox48.Controls.Add(Me.CBTagBath) + Me.GroupBox48.Controls.Add(Me.CBTagBisexual) + Me.GroupBox48.Controls.Add(Me.CBTagCFNM) + Me.GroupBox48.Controls.Add(Me.CBTagLesbian) + Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) + Me.GroupBox48.Controls.Add(Me.CBTagSM) + Me.GroupBox48.Controls.Add(Me.CBTagBondage) + Me.GroupBox48.Controls.Add(Me.CBTagSoloM) + Me.GroupBox48.Controls.Add(Me.CBTagSoloF) + Me.GroupBox48.Controls.Add(Me.CBTagChastity) + Me.GroupBox48.Controls.Add(Me.CBTagShower) + Me.GroupBox48.Location = New System.Drawing.Point(8, 37) + Me.GroupBox48.Name = "GroupBox48" + Me.GroupBox48.Size = New System.Drawing.Size(105, 358) + Me.GroupBox48.TabIndex = 235 + Me.GroupBox48.TabStop = False + Me.GroupBox48.Text = "Category" + ' + 'CBTagArtwork + ' + Me.CBTagArtwork.AutoSize = True + Me.CBTagArtwork.Enabled = False + Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black + Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) + Me.CBTagArtwork.Name = "CBTagArtwork" + Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) + Me.CBTagArtwork.TabIndex = 225 + Me.CBTagArtwork.Text = "Artwork" + Me.CBTagArtwork.UseVisualStyleBackColor = True + ' + 'CBTagOutdoors + ' + Me.CBTagOutdoors.AutoSize = True + Me.CBTagOutdoors.Enabled = False + Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black + Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) + Me.CBTagOutdoors.Name = "CBTagOutdoors" + Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) + Me.CBTagOutdoors.TabIndex = 219 + Me.CBTagOutdoors.Text = "Outdoors" + Me.CBTagOutdoors.UseVisualStyleBackColor = True + ' + 'CBTagPOV + ' + Me.CBTagPOV.AutoSize = True + Me.CBTagPOV.Enabled = False + Me.CBTagPOV.ForeColor = System.Drawing.Color.Black + Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) + Me.CBTagPOV.Name = "CBTagPOV" + Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) + Me.CBTagPOV.TabIndex = 208 + Me.CBTagPOV.Text = "POV" + Me.CBTagPOV.UseVisualStyleBackColor = True + ' + 'CBTagHardcore + ' + Me.CBTagHardcore.AutoSize = True + Me.CBTagHardcore.Enabled = False + Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black + Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) + Me.CBTagHardcore.Name = "CBTagHardcore" + Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) + Me.CBTagHardcore.TabIndex = 203 + Me.CBTagHardcore.Text = "Hardcore" + Me.CBTagHardcore.UseVisualStyleBackColor = True + ' + 'CBTagTD + ' + Me.CBTagTD.AutoSize = True + Me.CBTagTD.Enabled = False + Me.CBTagTD.ForeColor = System.Drawing.Color.Black + Me.CBTagTD.Location = New System.Drawing.Point(15, 217) + Me.CBTagTD.Name = "CBTagTD" + Me.CBTagTD.Size = New System.Drawing.Size(47, 17) + Me.CBTagTD.TabIndex = 218 + Me.CBTagTD.Text = "T&&D" + Me.CBTagTD.UseVisualStyleBackColor = True + ' + 'CBTagGay + ' + Me.CBTagGay.AutoSize = True + Me.CBTagGay.Enabled = False + Me.CBTagGay.ForeColor = System.Drawing.Color.Black + Me.CBTagGay.Location = New System.Drawing.Point(15, 57) + Me.CBTagGay.Name = "CBTagGay" + Me.CBTagGay.Size = New System.Drawing.Size(45, 17) + Me.CBTagGay.TabIndex = 204 + Me.CBTagGay.Text = "Gay" + Me.CBTagGay.UseVisualStyleBackColor = True + ' + 'CBTagBath + ' + Me.CBTagBath.AutoSize = True + Me.CBTagBath.Enabled = False + Me.CBTagBath.ForeColor = System.Drawing.Color.Black + Me.CBTagBath.Location = New System.Drawing.Point(15, 277) + Me.CBTagBath.Name = "CBTagBath" + Me.CBTagBath.Size = New System.Drawing.Size(48, 17) + Me.CBTagBath.TabIndex = 217 + Me.CBTagBath.Text = "Bath" + Me.CBTagBath.UseVisualStyleBackColor = True + ' + 'CBTagBisexual + ' + Me.CBTagBisexual.AutoSize = True + Me.CBTagBisexual.Enabled = False + Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black + Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) + Me.CBTagBisexual.Name = "CBTagBisexual" + Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) + Me.CBTagBisexual.TabIndex = 205 + Me.CBTagBisexual.Text = "Bisexual" + Me.CBTagBisexual.UseVisualStyleBackColor = True + ' + 'CBTagCFNM + ' + Me.CBTagCFNM.AutoSize = True + Me.CBTagCFNM.Enabled = False + Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black + Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) + Me.CBTagCFNM.Name = "CBTagCFNM" + Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) + Me.CBTagCFNM.TabIndex = 216 + Me.CBTagCFNM.Text = "CFNM" + Me.CBTagCFNM.UseVisualStyleBackColor = True + ' + 'CBTagLesbian + ' + Me.CBTagLesbian.AutoSize = True + Me.CBTagLesbian.Enabled = False + Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black + Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) + Me.CBTagLesbian.Name = "CBTagLesbian" + Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) + Me.CBTagLesbian.TabIndex = 206 + Me.CBTagLesbian.Text = "Lesbian" + Me.CBTagLesbian.UseVisualStyleBackColor = True + ' + 'CBTagSoloFuta + ' + Me.CBTagSoloFuta.AutoSize = True + Me.CBTagSoloFuta.Enabled = False + Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black + Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) + Me.CBTagSoloFuta.Name = "CBTagSoloFuta" + Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) + Me.CBTagSoloFuta.TabIndex = 207 + Me.CBTagSoloFuta.Text = "Solo Futa" + Me.CBTagSoloFuta.UseVisualStyleBackColor = True + ' + 'CBTagSM + ' + Me.CBTagSM.AutoSize = True + Me.CBTagSM.Enabled = False + Me.CBTagSM.ForeColor = System.Drawing.Color.Black + Me.CBTagSM.Location = New System.Drawing.Point(15, 197) + Me.CBTagSM.Name = "CBTagSM" + Me.CBTagSM.Size = New System.Drawing.Size(48, 17) + Me.CBTagSM.TabIndex = 214 + Me.CBTagSM.Text = "S&&M" + Me.CBTagSM.UseVisualStyleBackColor = True + ' + 'CBTagBondage + ' + Me.CBTagBondage.AutoSize = True + Me.CBTagBondage.Enabled = False + Me.CBTagBondage.ForeColor = System.Drawing.Color.Black + Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) + Me.CBTagBondage.Name = "CBTagBondage" + Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) + Me.CBTagBondage.TabIndex = 209 + Me.CBTagBondage.Text = "Bondage" + Me.CBTagBondage.UseVisualStyleBackColor = True + ' + 'CBTagSoloM + ' + Me.CBTagSoloM.AutoSize = True + Me.CBTagSoloM.Enabled = False + Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black + Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) + Me.CBTagSoloM.Name = "CBTagSoloM" + Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) + Me.CBTagSoloM.TabIndex = 213 + Me.CBTagSoloM.Text = "Solo M" + Me.CBTagSoloM.UseVisualStyleBackColor = True + ' + 'CBTagSoloF + ' + Me.CBTagSoloF.AutoSize = True + Me.CBTagSoloF.Enabled = False + Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black + Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) + Me.CBTagSoloF.Name = "CBTagSoloF" + Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) + Me.CBTagSoloF.TabIndex = 210 + Me.CBTagSoloF.Text = "Solo F" + Me.CBTagSoloF.UseVisualStyleBackColor = True + ' + 'CBTagChastity + ' + Me.CBTagChastity.AutoSize = True + Me.CBTagChastity.Enabled = False + Me.CBTagChastity.ForeColor = System.Drawing.Color.Black + Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) + Me.CBTagChastity.Name = "CBTagChastity" + Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) + Me.CBTagChastity.TabIndex = 212 + Me.CBTagChastity.Text = "Chastity" + Me.CBTagChastity.UseVisualStyleBackColor = True + ' + 'CBTagShower + ' + Me.CBTagShower.AutoSize = True + Me.CBTagShower.Enabled = False + Me.CBTagShower.ForeColor = System.Drawing.Color.Black + Me.CBTagShower.Location = New System.Drawing.Point(15, 297) + Me.CBTagShower.Name = "CBTagShower" + Me.CBTagShower.Size = New System.Drawing.Size(62, 17) + Me.CBTagShower.TabIndex = 211 + Me.CBTagShower.Text = "Shower" + Me.CBTagShower.UseVisualStyleBackColor = True + ' + 'TBLocalTagDir + ' + Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) + Me.TBLocalTagDir.Name = "TBLocalTagDir" + Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) + Me.TBLocalTagDir.TabIndex = 233 + Me.TBLocalTagDir.Text = "Enter Image Directory" + ' + 'BTNLocalTagPrevious + ' + Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray + Me.BTNLocalTagPrevious.Enabled = False + Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black + Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) + Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" + Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) + Me.BTNLocalTagPrevious.TabIndex = 232 + Me.BTNLocalTagPrevious.Text = "<<" + Me.BTNLocalTagPrevious.UseVisualStyleBackColor = False + ' + 'BTNLocalTagNext + ' + Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray + Me.BTNLocalTagNext.Enabled = False + Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black + Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) + Me.BTNLocalTagNext.Name = "BTNLocalTagNext" + Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) + Me.BTNLocalTagNext.TabIndex = 231 + Me.BTNLocalTagNext.Text = ">>" + Me.BTNLocalTagNext.UseVisualStyleBackColor = False + ' + 'LBLLocalTagCount + ' + Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent + Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLLocalTagCount.Enabled = False + Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black + Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) + Me.LBLLocalTagCount.Name = "LBLLocalTagCount" + Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) + Me.LBLLocalTagCount.TabIndex = 230 + Me.LBLLocalTagCount.Text = "0/0" + Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNLocalTagSave + ' + Me.BTNLocalTagSave.Enabled = False + Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) + Me.BTNLocalTagSave.Name = "BTNLocalTagSave" + Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) + Me.BTNLocalTagSave.TabIndex = 229 + Me.BTNLocalTagSave.Text = "Finished" + Me.BTNLocalTagSave.UseVisualStyleBackColor = True + ' + 'BTNLocalTagDir + ' + Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) + Me.BTNLocalTagDir.Name = "BTNLocalTagDir" + Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) + Me.BTNLocalTagDir.TabIndex = 228 + Me.BTNLocalTagDir.Text = "1" + Me.BTNLocalTagDir.UseVisualStyleBackColor = True + ' + 'TabPage11 + ' + Me.TabPage11.BackColor = System.Drawing.Color.Silver + Me.TabPage11.Controls.Add(Me.Panel7) + Me.TabPage11.Location = New System.Drawing.Point(4, 22) + Me.TabPage11.Name = "TabPage11" + Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage11.Size = New System.Drawing.Size(720, 448) + Me.TabPage11.TabIndex = 10 + Me.TabPage11.Text = "URL Files" + ' + 'Panel7 + ' + Me.Panel7.BackColor = System.Drawing.Color.LightGray + Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel7.Controls.Add(Me.BTNWIContinue) + Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) + Me.Panel7.Controls.Add(Me.BTNWICancel) + Me.Panel7.Controls.Add(Me.CBWIReview) + Me.Panel7.Controls.Add(Me.BTNWIBrowse) + Me.Panel7.Controls.Add(Me.TBWIDirectory) + Me.Panel7.Controls.Add(Me.BTNWIDisliked) + Me.Panel7.Controls.Add(Me.BTNWILiked) + Me.Panel7.Controls.Add(Me.BTNWIRemove) + Me.Panel7.Controls.Add(Me.CBWISaveToDisk) + Me.Panel7.Controls.Add(Me.PictureBox5) + Me.Panel7.Controls.Add(Me.WebImageProgressBar) + Me.Panel7.Controls.Add(Me.BTNWICreateURL) + Me.Panel7.Controls.Add(Me.LBLWebImageCount) + Me.Panel7.Controls.Add(Me.BTNWISave) + Me.Panel7.Controls.Add(Me.BTNWIOpenURL) + Me.Panel7.Controls.Add(Me.BTNWIPrevious) + Me.Panel7.Controls.Add(Me.BTNWINext) + Me.Panel7.Controls.Add(Me.WebPictureBox) + Me.Panel7.Controls.Add(Me.Label71) + Me.Panel7.Location = New System.Drawing.Point(6, 6) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(708, 437) + Me.Panel7.TabIndex = 91 + ' + 'BTNWIContinue + ' + Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray + Me.BTNWIContinue.Enabled = False + Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black + Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) + Me.BTNWIContinue.Name = "BTNWIContinue" + Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) + Me.BTNWIContinue.TabIndex = 168 + Me.BTNWIContinue.Text = "Continue" + Me.BTNWIContinue.UseVisualStyleBackColor = False + ' + 'BTNWIAddandContinue + ' + Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray + Me.BTNWIAddandContinue.Enabled = False + Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black + Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) + Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" + Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) + Me.BTNWIAddandContinue.TabIndex = 167 + Me.BTNWIAddandContinue.Text = "Add and Continue" + Me.BTNWIAddandContinue.UseVisualStyleBackColor = False + ' + 'BTNWICancel + ' + Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray + Me.BTNWICancel.Enabled = False + Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWICancel.ForeColor = System.Drawing.Color.Black + Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) + Me.BTNWICancel.Name = "BTNWICancel" + Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) + Me.BTNWICancel.TabIndex = 166 + Me.BTNWICancel.Text = "Cancel" + Me.BTNWICancel.UseVisualStyleBackColor = False + ' + 'CBWIReview + ' + Me.CBWIReview.Location = New System.Drawing.Point(567, 69) + Me.CBWIReview.Name = "CBWIReview" + Me.CBWIReview.Size = New System.Drawing.Size(124, 30) + Me.CBWIReview.TabIndex = 165 + Me.CBWIReview.Text = "Review Each Image" + Me.CBWIReview.UseVisualStyleBackColor = True + ' + 'BTNWIBrowse + ' + Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray + Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black + Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) + Me.BTNWIBrowse.Name = "BTNWIBrowse" + Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) + Me.BTNWIBrowse.TabIndex = 163 + Me.BTNWIBrowse.Text = "Browse" + Me.BTNWIBrowse.UseVisualStyleBackColor = False + ' + 'TBWIDirectory + ' + Me.TBWIDirectory.BackColor = System.Drawing.Color.White + Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black + Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) + Me.TBWIDirectory.Name = "TBWIDirectory" + Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) + Me.TBWIDirectory.TabIndex = 164 + Me.TBWIDirectory.Text = "Saved Image Directory" + ' + 'BTNWIDisliked + ' + Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray + Me.BTNWIDisliked.Enabled = False + Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black + Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) + Me.BTNWIDisliked.Name = "BTNWIDisliked" + Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) + Me.BTNWIDisliked.TabIndex = 162 + Me.BTNWIDisliked.Text = "Add to Disliked Images" + Me.BTNWIDisliked.UseVisualStyleBackColor = False + ' + 'BTNWILiked + ' + Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray + Me.BTNWILiked.Enabled = False + Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWILiked.ForeColor = System.Drawing.Color.Black + Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) + Me.BTNWILiked.Name = "BTNWILiked" + Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) + Me.BTNWILiked.TabIndex = 161 + Me.BTNWILiked.Text = "Add to Liked Images" + Me.BTNWILiked.UseVisualStyleBackColor = False + ' + 'BTNWIRemove + ' + Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray + Me.BTNWIRemove.Enabled = False + Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black + Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) + Me.BTNWIRemove.Name = "BTNWIRemove" + Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) + Me.BTNWIRemove.TabIndex = 160 + Me.BTNWIRemove.Text = "Remove From URL File" + Me.BTNWIRemove.UseVisualStyleBackColor = False + ' + 'CBWISaveToDisk + ' + Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) + Me.CBWISaveToDisk.Name = "CBWISaveToDisk" + Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) + Me.CBWISaveToDisk.TabIndex = 157 + Me.CBWISaveToDisk.Text = "Save Images to Disk" + Me.CBWISaveToDisk.UseVisualStyleBackColor = True + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.LightGray + Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox5.Location = New System.Drawing.Point(9, 6) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(160, 19) + Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox5.TabIndex = 156 + Me.PictureBox5.TabStop = False + ' + 'WebImageProgressBar + ' + Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) + Me.WebImageProgressBar.Maximum = 2500 + Me.WebImageProgressBar.Name = "WebImageProgressBar" + Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) + Me.WebImageProgressBar.TabIndex = 155 + ' + 'BTNWICreateURL + ' + Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray + Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black + Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) + Me.BTNWICreateURL.Name = "BTNWICreateURL" + Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) + Me.BTNWICreateURL.TabIndex = 154 + Me.BTNWICreateURL.Text = "Create URL File" + Me.BTNWICreateURL.UseVisualStyleBackColor = False + ' + 'LBLWebImageCount + ' + Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent + Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black + Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) + Me.LBLWebImageCount.Name = "LBLWebImageCount" + Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) + Me.LBLWebImageCount.TabIndex = 153 + Me.LBLWebImageCount.Text = "0/0" + Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNWISave + ' + Me.BTNWISave.BackColor = System.Drawing.Color.LightGray + Me.BTNWISave.Enabled = False + Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWISave.ForeColor = System.Drawing.Color.Black + Me.BTNWISave.Location = New System.Drawing.Point(567, 401) + Me.BTNWISave.Name = "BTNWISave" + Me.BTNWISave.Size = New System.Drawing.Size(131, 24) + Me.BTNWISave.TabIndex = 152 + Me.BTNWISave.Text = "Save Image to Disk" + Me.BTNWISave.UseVisualStyleBackColor = False + ' + 'BTNWIOpenURL + ' + Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray + Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black + Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) + Me.BTNWIOpenURL.Name = "BTNWIOpenURL" + Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) + Me.BTNWIOpenURL.TabIndex = 151 + Me.BTNWIOpenURL.Text = "Open URL File" + Me.BTNWIOpenURL.UseVisualStyleBackColor = False + ' + 'BTNWIPrevious + ' + Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray + Me.BTNWIPrevious.Enabled = False + Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black + Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) + Me.BTNWIPrevious.Name = "BTNWIPrevious" + Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) + Me.BTNWIPrevious.TabIndex = 149 + Me.BTNWIPrevious.Text = "<<" + Me.BTNWIPrevious.UseVisualStyleBackColor = False + ' + 'BTNWINext + ' + Me.BTNWINext.BackColor = System.Drawing.Color.LightGray + Me.BTNWINext.Enabled = False + Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWINext.ForeColor = System.Drawing.Color.Black + Me.BTNWINext.Location = New System.Drawing.Point(651, 282) + Me.BTNWINext.Name = "BTNWINext" + Me.BTNWINext.Size = New System.Drawing.Size(47, 24) + Me.BTNWINext.TabIndex = 150 + Me.BTNWINext.Text = ">>" + Me.BTNWINext.UseVisualStyleBackColor = False + ' + 'WebPictureBox + ' + Me.WebPictureBox.BackColor = System.Drawing.Color.Black + Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) + Me.WebPictureBox.Name = "WebPictureBox" + Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) + Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.WebPictureBox.TabIndex = 148 + Me.WebPictureBox.TabStop = False + ' + 'Label71 + ' + Me.Label71.BackColor = System.Drawing.Color.Transparent + Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label71.ForeColor = System.Drawing.Color.Black + Me.Label71.Location = New System.Drawing.Point(7, 6) + Me.Label71.Name = "Label71" + Me.Label71.Size = New System.Drawing.Size(692, 21) + Me.Label71.TabIndex = 48 + Me.Label71.Text = "URL Files" + Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TpVideoSettings + ' + Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver + Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) + Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) + Me.TpVideoSettings.Name = "TpVideoSettings" + Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) + Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) + Me.TpVideoSettings.TabIndex = 2 + Me.TpVideoSettings.Text = "Video" + ' + 'PnlVideoSettings + ' + Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray + Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) + Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) + Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) + Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill + Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) + Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) + Me.PnlVideoSettings.Name = "PnlVideoSettings" + Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) + Me.PnlVideoSettings.TabIndex = 92 + ' + 'PbBannerVideoSettings + ' + Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray + Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) + Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" + Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) + Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PbBannerVideoSettings.TabIndex = 151 + Me.PbBannerVideoSettings.TabStop = False + ' + 'BTNRefreshVideos + ' + Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray + Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh + Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 + Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black + Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) + Me.BTNRefreshVideos.Name = "BTNRefreshVideos" + Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) + Me.BTNRefreshVideos.TabIndex = 149 + Me.BTNRefreshVideos.UseVisualStyleBackColor = False + ' + 'GbxVideoGeneralD + ' + Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) + Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) + Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) + Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) + Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) + Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" + Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) + Me.GbxVideoGeneralD.TabIndex = 5 + Me.GbxVideoGeneralD.TabStop = False + Me.GbxVideoGeneralD.Text = "Domme General" + ' + 'LblVideoGeneralTotalD + ' + Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) + Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" + Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoGeneralTotalD.TabIndex = 3 + Me.LblVideoGeneralTotalD.Text = "0" + Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoGeneralD + ' + Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" + Me.TxbVideoGeneralD.ReadOnly = True + Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneralD.TabIndex = 2 + Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD + ' + 'BTNVideoGeneralD + ' + Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" + Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoGeneralD.TabIndex = 1 + Me.BTNVideoGeneralD.Text = "1" + Me.BTNVideoGeneralD.UseVisualStyleBackColor = False + ' + 'CBVideoGeneralD + ' + Me.CBVideoGeneralD.AutoSize = True + Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD + Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) + Me.CBVideoGeneralD.Name = "CBVideoGeneralD" + Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoGeneralD.TabIndex = 0 + Me.CBVideoGeneralD.Text = "General" + Me.CBVideoGeneralD.UseVisualStyleBackColor = True + ' + 'GbxVideoSpecialD + ' + Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) + Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) + Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) + Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) + Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) + Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) + Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) + Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) + Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black + Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) + Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" + Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) + Me.GbxVideoSpecialD.TabIndex = 4 + Me.GbxVideoSpecialD.TabStop = False + Me.GbxVideoSpecialD.Text = "Domme Special" + ' + 'LblVideoCHTotalD + ' + Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) + Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" + Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoCHTotalD.TabIndex = 7 + Me.LblVideoCHTotalD.Text = "0" + Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LblVideoJOITotalD + ' + Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) + Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" + Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoJOITotalD.TabIndex = 3 + Me.LblVideoJOITotalD.Text = "0" + Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoCHD + ' + Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) + Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoCHD.Name = "TxbVideoCHD" + Me.TxbVideoCHD.ReadOnly = True + Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoCHD.TabIndex = 6 + Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD + ' + 'TxbVideoJOID + ' + Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black + Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoJOID.Name = "TxbVideoJOID" + Me.TxbVideoJOID.ReadOnly = True + Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoJOID.TabIndex = 2 + Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID + ' + 'BTNVideoCHD + ' + Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoCHD.Name = "BTNVideoCHD" + Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoCHD.TabIndex = 5 + Me.BTNVideoCHD.Text = "1" + Me.BTNVideoCHD.UseVisualStyleBackColor = False + ' + 'BTNVideoJOID + ' + Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black + Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoJOID.Name = "BTNVideoJOID" + Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoJOID.TabIndex = 1 + Me.BTNVideoJOID.Text = "1" + Me.BTNVideoJOID.UseVisualStyleBackColor = False + ' + 'CBVideoJOID + ' + Me.CBVideoJOID.AutoSize = True + Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID + Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black + Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) + Me.CBVideoJOID.Name = "CBVideoJOID" + Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) + Me.CBVideoJOID.TabIndex = 0 + Me.CBVideoJOID.Text = "JOI" + Me.CBVideoJOID.UseVisualStyleBackColor = True + ' + 'CBVideoCHD + ' + Me.CBVideoCHD.AutoSize = True + Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD + Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black + Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) + Me.CBVideoCHD.Name = "CBVideoCHD" + Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) + Me.CBVideoCHD.TabIndex = 4 + Me.CBVideoCHD.Text = "CH" + Me.CBVideoCHD.UseVisualStyleBackColor = True + ' + 'GbxVideoGenreD + ' + Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) + Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) + Me.GbxVideoGenreD.Name = "GbxVideoGenreD" + Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) + Me.GbxVideoGenreD.TabIndex = 3 + Me.GbxVideoGenreD.TabStop = False + Me.GbxVideoGenreD.Text = "Domme Genre" + ' + 'LblVideoFemsubTotalD + ' + Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) + Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" + Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemsubTotalD.TabIndex = 23 + Me.LblVideoFemsubTotalD.Text = "0" + Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemsubD + ' + Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) + Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" + Me.TxbVideoFemsubD.ReadOnly = True + Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsubD.TabIndex = 22 + Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD + ' + 'LblVideoFemdomTotalD + ' + Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) + Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" + Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemdomTotalD.TabIndex = 19 + Me.LblVideoFemdomTotalD.Text = "0" + Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemdomD + ' + Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) + Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" + Me.TxbVideoFemdomD.ReadOnly = True + Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdomD.TabIndex = 18 + Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD + ' + 'TxbVideoBlowjobD + ' + Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) + Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" + Me.TxbVideoBlowjobD.ReadOnly = True + Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjobD.TabIndex = 14 + Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD + ' + 'LblVideoBlowjobTotalD + ' + Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) + Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" + Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoBlowjobTotalD.TabIndex = 15 + Me.LblVideoBlowjobTotalD.Text = "0" + Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoLesbianD + ' + Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) + Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" + Me.TxbVideoLesbianD.ReadOnly = True + Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbianD.TabIndex = 10 + Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD + ' + 'TxbVideoSoftCoreD + ' + Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) + Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" + Me.TxbVideoSoftCoreD.ReadOnly = True + Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCoreD.TabIndex = 6 + Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD + ' + 'LblVideoLesbianTotalD + ' + Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) + Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" + Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoLesbianTotalD.TabIndex = 11 + Me.LblVideoLesbianTotalD.Text = "0" + Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoHardCoreD + ' + Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) + Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" + Me.TxbVideoHardCoreD.ReadOnly = True + Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCoreD.TabIndex = 2 + Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD + ' + 'BTNVideoFemSubD + ' + Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) + Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" + Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemSubD.TabIndex = 21 + Me.BTNVideoFemSubD.Text = "1" + Me.BTNVideoFemSubD.UseVisualStyleBackColor = False + ' + 'LblVideoSoftCoreTotalD + ' + Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) + Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" + Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoSoftCoreTotalD.TabIndex = 7 + Me.LblVideoSoftCoreTotalD.Text = "0" + Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoFemDomD + ' + Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) + Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" + Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemDomD.TabIndex = 17 + Me.BTNVideoFemDomD.Text = "1" + Me.BTNVideoFemDomD.UseVisualStyleBackColor = False + ' + 'BTNVideoBlowjobD + ' + Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) + Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" + Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoBlowjobD.TabIndex = 13 + Me.BTNVideoBlowjobD.Text = "1" + Me.BTNVideoBlowjobD.UseVisualStyleBackColor = False + ' + 'LblVideoHardCoreTotalD + ' + Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) + Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" + Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoHardCoreTotalD.TabIndex = 3 + Me.LblVideoHardCoreTotalD.Text = "0" + Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoLesbianD + ' + Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) + Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" + Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoLesbianD.TabIndex = 9 + Me.BTNVideoLesbianD.Text = "1" + Me.BTNVideoLesbianD.UseVisualStyleBackColor = False + ' + 'BTNVideoSoftCoreD + ' + Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" + Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoSoftCoreD.TabIndex = 5 + Me.BTNVideoSoftCoreD.Text = "1" + Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = False + ' + 'BTNVideoHardCoreD + ' + Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) + Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" + Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoHardCoreD.TabIndex = 1 + Me.BTNVideoHardCoreD.Text = "1" + Me.BTNVideoHardCoreD.UseVisualStyleBackColor = False + ' + 'CBVideoHardcoreD + ' + Me.CBVideoHardcoreD.AutoSize = True + Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD + Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black + Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) + Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" + Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) + Me.CBVideoHardcoreD.TabIndex = 0 + Me.CBVideoHardcoreD.Text = "Hardcore" + Me.CBVideoHardcoreD.UseVisualStyleBackColor = True + ' + 'CBVideoSoftCoreD + ' + Me.CBVideoSoftCoreD.AutoSize = True + Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD + Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black + Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) + Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" + Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) + Me.CBVideoSoftCoreD.TabIndex = 4 + Me.CBVideoSoftCoreD.Text = "Softcore" + Me.CBVideoSoftCoreD.UseVisualStyleBackColor = True + ' + 'CBVideoLesbianD + ' + Me.CBVideoLesbianD.AutoSize = True + Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD + Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black + Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) + Me.CBVideoLesbianD.Name = "CBVideoLesbianD" + Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoLesbianD.TabIndex = 8 + Me.CBVideoLesbianD.Text = "Lesbian" + Me.CBVideoLesbianD.UseVisualStyleBackColor = True + ' + 'CBVideoBlowjobD + ' + Me.CBVideoBlowjobD.AutoSize = True + Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD + Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black + Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) + Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" + Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoBlowjobD.TabIndex = 12 + Me.CBVideoBlowjobD.Text = "Blowjob" + Me.CBVideoBlowjobD.UseVisualStyleBackColor = True + ' + 'CBVideoFemsubD + ' + Me.CBVideoFemsubD.AutoSize = True + Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD + Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) + Me.CBVideoFemsubD.Name = "CBVideoFemsubD" + Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoFemsubD.TabIndex = 20 + Me.CBVideoFemsubD.Text = "Femsub" + Me.CBVideoFemsubD.UseVisualStyleBackColor = True + ' + 'CBVideoFemdomD + ' + Me.CBVideoFemdomD.AutoSize = True + Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD + Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) + Me.CBVideoFemdomD.Name = "CBVideoFemdomD" + Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) + Me.CBVideoFemdomD.TabIndex = 16 + Me.CBVideoFemdomD.Text = "Femdom" + Me.CBVideoFemdomD.UseVisualStyleBackColor = True + ' + 'GbxVideoDescription + ' + Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) + Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black + Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) + Me.GbxVideoDescription.Name = "GbxVideoDescription" + Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) + Me.GbxVideoDescription.TabIndex = 6 + Me.GbxVideoDescription.TabStop = False + Me.GbxVideoDescription.Text = "Description" + ' + 'VideoDescriptionLabel + ' + Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent + Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black + Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) + Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" + Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) + Me.VideoDescriptionLabel.TabIndex = 62 + Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei" & + "r paths." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The Domme Genre paths are for videos that feature the model you are " & + "using as your domme." + Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GbxVideoGeneral + ' + Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) + Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) + Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) + Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) + Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) + Me.GbxVideoGeneral.Name = "GbxVideoGeneral" + Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) + Me.GbxVideoGeneral.TabIndex = 2 + Me.GbxVideoGeneral.TabStop = False + Me.GbxVideoGeneral.Text = "General" + ' + 'LblVideoGeneralTotal + ' + Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) + Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" + Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoGeneralTotal.TabIndex = 3 + Me.LblVideoGeneralTotal.Text = "0" + Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoGeneral + ' + Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneral.Name = "TxbVideoGeneral" + Me.TxbVideoGeneral.ReadOnly = True + Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneral.TabIndex = 2 + Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral + ' + 'BTNVideoGeneral + ' + Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoGeneral.Name = "BTNVideoGeneral" + Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoGeneral.TabIndex = 1 + Me.BTNVideoGeneral.Text = "1" + Me.BTNVideoGeneral.UseVisualStyleBackColor = False + ' + 'CBVideoGeneral + ' + Me.CBVideoGeneral.AutoSize = True + Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral + Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) + Me.CBVideoGeneral.Name = "CBVideoGeneral" + Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) + Me.CBVideoGeneral.TabIndex = 0 + Me.CBVideoGeneral.Text = "General" + Me.CBVideoGeneral.UseVisualStyleBackColor = True + ' + 'GbxVideoSpecial + ' + Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) + Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) + Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) + Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) + Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) + Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) + Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) + Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) + Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black + Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) + Me.GbxVideoSpecial.Name = "GbxVideoSpecial" + Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) + Me.GbxVideoSpecial.TabIndex = 1 + Me.GbxVideoSpecial.TabStop = False + Me.GbxVideoSpecial.Text = "Special" + ' + 'LblVideoCHTotal + ' + Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) + Me.LblVideoCHTotal.Name = "LblVideoCHTotal" + Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoCHTotal.TabIndex = 7 + Me.LblVideoCHTotal.Text = "0" + Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LblVideoJOITotal + ' + Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) + Me.LblVideoJOITotal.Name = "LblVideoJOITotal" + Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoJOITotal.TabIndex = 3 + Me.LblVideoJOITotal.Text = "0" + Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoCH + ' + Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black + Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) + Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoCH.Name = "TxbVideoCH" + Me.TxbVideoCH.ReadOnly = True + Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoCH.TabIndex = 6 + Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH + ' + 'TxbVideoJOI + ' + Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black + Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoJOI.Name = "TxbVideoJOI" + Me.TxbVideoJOI.ReadOnly = True + Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoJOI.TabIndex = 2 + Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI + ' + 'BTNVideoCH + ' + Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black + Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoCH.Name = "BTNVideoCH" + Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoCH.TabIndex = 5 + Me.BTNVideoCH.Text = "1" + Me.BTNVideoCH.UseVisualStyleBackColor = False + ' + 'BTNVideoJOI + ' + Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black + Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoJOI.Name = "BTNVideoJOI" + Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoJOI.TabIndex = 1 + Me.BTNVideoJOI.Text = "1" + Me.BTNVideoJOI.UseVisualStyleBackColor = False + ' + 'CBVideoJOI + ' + Me.CBVideoJOI.AutoSize = True + Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI + Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black + Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) + Me.CBVideoJOI.Name = "CBVideoJOI" + Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) + Me.CBVideoJOI.TabIndex = 0 + Me.CBVideoJOI.Text = "JOI" + Me.CBVideoJOI.UseVisualStyleBackColor = True + ' + 'CBVideoCH + ' + Me.CBVideoCH.AutoSize = True + Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH + Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoCH.ForeColor = System.Drawing.Color.Black + Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) + Me.CBVideoCH.Name = "CBVideoCH" + Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) + Me.CBVideoCH.TabIndex = 4 + Me.CBVideoCH.Text = "CH" + Me.CBVideoCH.UseVisualStyleBackColor = True + ' + 'GbxVideoGenre + ' + Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) + Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) + Me.GbxVideoGenre.Name = "GbxVideoGenre" + Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) + Me.GbxVideoGenre.TabIndex = 0 + Me.GbxVideoGenre.TabStop = False + Me.GbxVideoGenre.Text = "Genre" + ' + 'LblVideoFemsubTotal + ' + Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) + Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" + Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemsubTotal.TabIndex = 23 + Me.LblVideoFemsubTotal.Text = "0" + Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemsub + ' + Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) + Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsub.Name = "TxbVideoFemsub" + Me.TxbVideoFemsub.ReadOnly = True + Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsub.TabIndex = 22 + Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub + ' + 'LblVideoFemdomTotal + ' + Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) + Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" + Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemdomTotal.TabIndex = 19 + Me.LblVideoFemdomTotal.Text = "0" + Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemdom + ' + Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) + Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdom.Name = "TxbVideoFemdom" + Me.TxbVideoFemdom.ReadOnly = True + Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdom.TabIndex = 18 + Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom + ' + 'TxbVideoBlowjob + ' + Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black + Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) + Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" + Me.TxbVideoBlowjob.ReadOnly = True + Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjob.TabIndex = 14 + Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob + ' + 'LblVideoBlowjobTotal + ' + Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) + Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" + Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoBlowjobTotal.TabIndex = 15 + Me.LblVideoBlowjobTotal.Text = "0" + Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoLesbian + ' + Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black + Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) + Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbian.Name = "TxbVideoLesbian" + Me.TxbVideoLesbian.ReadOnly = True + Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbian.TabIndex = 10 + Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian + ' + 'TxbVideoSoftCore + ' + Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black + Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) + Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" + Me.TxbVideoSoftCore.ReadOnly = True + Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCore.TabIndex = 6 + Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore + ' + 'LblVideoLesbianTotal + ' + Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) + Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" + Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoLesbianTotal.TabIndex = 11 + Me.LblVideoLesbianTotal.Text = "0" + Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoHardCore + ' + Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black + Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) + Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCore.Name = "TxbVideoHardCore" + Me.TxbVideoHardCore.ReadOnly = True + Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCore.TabIndex = 2 + Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore + ' + 'BTNVideoFemSub + ' + Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) + Me.BTNVideoFemSub.Name = "BTNVideoFemSub" + Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemSub.TabIndex = 21 + Me.BTNVideoFemSub.Text = "1" + Me.BTNVideoFemSub.UseVisualStyleBackColor = False + ' + 'LblVideoSoftCoreTotal + ' + Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) + Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" + Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoSoftCoreTotal.TabIndex = 7 + Me.LblVideoSoftCoreTotal.Text = "0" + Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoFemDom + ' + Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) + Me.BTNVideoFemDom.Name = "BTNVideoFemDom" + Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemDom.TabIndex = 17 + Me.BTNVideoFemDom.Text = "1" + Me.BTNVideoFemDom.UseVisualStyleBackColor = False + ' + 'BTNVideoBlowjob + ' + Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black + Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) + Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" + Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoBlowjob.TabIndex = 13 + Me.BTNVideoBlowjob.Text = "1" + Me.BTNVideoBlowjob.UseVisualStyleBackColor = False + ' + 'LblVideoHardCoreTotal + ' + Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) + Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" + Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoHardCoreTotal.TabIndex = 3 + Me.LblVideoHardCoreTotal.Text = "0" + Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoLesbian + ' + Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black + Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) + Me.BTNVideoLesbian.Name = "BTNVideoLesbian" + Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoLesbian.TabIndex = 9 + Me.BTNVideoLesbian.Text = "1" + Me.BTNVideoLesbian.UseVisualStyleBackColor = False + ' + 'BTNVideoSoftCore + ' + Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black + Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" + Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoSoftCore.TabIndex = 5 + Me.BTNVideoSoftCore.Text = "1" + Me.BTNVideoSoftCore.UseVisualStyleBackColor = False + ' + 'BTNVideoHardCore + ' + Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black + Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) + Me.BTNVideoHardCore.Name = "BTNVideoHardCore" + Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoHardCore.TabIndex = 1 + Me.BTNVideoHardCore.Text = "1" + Me.BTNVideoHardCore.UseVisualStyleBackColor = False + ' + 'CBVideoHardcore + ' + Me.CBVideoHardcore.AutoSize = True + Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore + Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black + Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) + Me.CBVideoHardcore.Name = "CBVideoHardcore" + Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) + Me.CBVideoHardcore.TabIndex = 0 + Me.CBVideoHardcore.Text = "Hardcore" + Me.CBVideoHardcore.UseVisualStyleBackColor = True + ' + 'CBVideoSoftCore + ' + Me.CBVideoSoftCore.AutoSize = True + Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore + Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black + Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) + Me.CBVideoSoftCore.Name = "CBVideoSoftCore" + Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) + Me.CBVideoSoftCore.TabIndex = 4 + Me.CBVideoSoftCore.Text = "Softcore" + Me.CBVideoSoftCore.UseVisualStyleBackColor = True + ' + 'CBVideoLesbian + ' + Me.CBVideoLesbian.AutoSize = True + Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian + Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black + Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) + Me.CBVideoLesbian.Name = "CBVideoLesbian" + Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) + Me.CBVideoLesbian.TabIndex = 8 + Me.CBVideoLesbian.Text = "Lesbian" + Me.CBVideoLesbian.UseVisualStyleBackColor = True + ' + 'CBVideoBlowjob + ' + Me.CBVideoBlowjob.AutoSize = True + Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob + Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black + Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) + Me.CBVideoBlowjob.Name = "CBVideoBlowjob" + Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) + Me.CBVideoBlowjob.TabIndex = 12 + Me.CBVideoBlowjob.Text = "Blowjob" + Me.CBVideoBlowjob.UseVisualStyleBackColor = True + ' + 'CBVideoFemsub + ' + Me.CBVideoFemsub.AutoSize = True + Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub + Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) + Me.CBVideoFemsub.Name = "CBVideoFemsub" + Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) + Me.CBVideoFemsub.TabIndex = 20 + Me.CBVideoFemsub.Text = "Femsub" + Me.CBVideoFemsub.UseVisualStyleBackColor = True + ' + 'CBVideoFemdom + ' + Me.CBVideoFemdom.AutoSize = True + Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom + Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) + Me.CBVideoFemdom.Name = "CBVideoFemdom" + Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) + Me.CBVideoFemdom.TabIndex = 16 + Me.CBVideoFemdom.Text = "Femdom" + Me.CBVideoFemdom.UseVisualStyleBackColor = True + ' + 'LblVideoHeader + ' + Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent + Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black + Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) + Me.LblVideoHeader.Name = "LblVideoHeader" + Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) + Me.LblVideoHeader.TabIndex = 49 + Me.LblVideoHeader.Text = "Video Settings" + Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage20 + ' + Me.TabPage20.BackColor = System.Drawing.Color.Silver + Me.TabPage20.Controls.Add(Me.TabControl1) + Me.TabPage20.Location = New System.Drawing.Point(4, 22) + Me.TabPage20.Name = "TabPage20" + Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage20.Size = New System.Drawing.Size(720, 448) + Me.TabPage20.TabIndex = 16 + Me.TabPage20.Text = "Apps" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage22) + Me.TabControl1.Controls.Add(Me.TpGames) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Location = New System.Drawing.Point(6, 6) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(708, 437) + Me.TabControl1.TabIndex = 0 + ' + 'TabPage22 + ' + Me.TabPage22.BackColor = System.Drawing.Color.LightGray + Me.TabPage22.Controls.Add(Me.PNLGlitter) + Me.TabPage22.Location = New System.Drawing.Point(4, 22) + Me.TabPage22.Name = "TabPage22" + Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage22.Size = New System.Drawing.Size(700, 411) + Me.TabPage22.TabIndex = 0 + Me.TabPage22.Text = "Glitter" + ' + 'PNLGlitter + ' + Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray + Me.PNLGlitter.Controls.Add(Me.GroupBox4) + Me.PNLGlitter.Controls.Add(Me.Button15) + Me.PNLGlitter.Controls.Add(Me.Button16) + Me.PNLGlitter.Controls.Add(Me.Label121) + Me.PNLGlitter.Controls.Add(Me.Label122) + Me.PNLGlitter.Controls.Add(Me.GBGlitterD) + Me.PNLGlitter.Controls.Add(Me.GBGlitter1) + Me.PNLGlitter.Controls.Add(Me.GBGlitter3) + Me.PNLGlitter.Controls.Add(Me.GBGlitter2) + Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) + Me.PNLGlitter.Name = "PNLGlitter" + Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) + Me.PNLGlitter.TabIndex = 91 + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) + Me.GroupBox4.Location = New System.Drawing.Point(7, 307) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(344, 85) + Me.GroupBox4.TabIndex = 167 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "Change Current Domme" + ' + 'LBLCurrentDomme + ' + Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) + Me.LBLCurrentDomme.Name = "LBLCurrentDomme" + Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) + Me.LBLCurrentDomme.TabIndex = 168 + Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDomChangeContact1 + ' + Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) + Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" + Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeContact1.TabIndex = 173 + Me.BTNDomChangeContact1.Text = "Contact 1" + Me.BTNDomChangeContact1.UseVisualStyleBackColor = False + ' + 'BTNDomChangeRandom + ' + Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) + Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" + Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeRandom.TabIndex = 172 + Me.BTNDomChangeRandom.Text = "Random" + Me.BTNDomChangeRandom.UseVisualStyleBackColor = False + ' + 'BTNDomChangeContact3 + ' + Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) + Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" + Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeContact3.TabIndex = 171 + Me.BTNDomChangeContact3.Text = "Contact 3" + Me.BTNDomChangeContact3.UseVisualStyleBackColor = False + ' + 'BTNDomChangeContact2 + ' + Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) + Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" + Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeContact2.TabIndex = 170 + Me.BTNDomChangeContact2.Text = "Contact 2" + Me.BTNDomChangeContact2.UseVisualStyleBackColor = False + ' + 'BTNDomChangeDomme + ' + Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) + Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" + Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeDomme.TabIndex = 168 + Me.BTNDomChangeDomme.Text = "Domme" + Me.BTNDomChangeDomme.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.BackColor = System.Drawing.Color.LightGray + Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export + Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button15.FlatAppearance.BorderSize = 0 + Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button15.ForeColor = System.Drawing.Color.Black + Me.Button15.Location = New System.Drawing.Point(670, 366) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(30, 26) + Me.Button15.TabIndex = 163 + Me.Button15.UseVisualStyleBackColor = False + ' + 'Button16 + ' + Me.Button16.BackColor = System.Drawing.Color.LightGray + Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save + Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button16.FlatAppearance.BorderSize = 0 + Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button16.ForeColor = System.Drawing.Color.Black + Me.Button16.Location = New System.Drawing.Point(667, 324) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(30, 26) + Me.Button16.TabIndex = 164 + Me.Button16.UseVisualStyleBackColor = False + ' + 'Label121 + ' + Me.Label121.AutoSize = True + Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label121.ForeColor = System.Drawing.Color.Black + Me.Label121.Location = New System.Drawing.Point(669, 352) + Me.Label121.Name = "Label121" + Me.Label121.Size = New System.Drawing.Size(27, 13) + Me.Label121.TabIndex = 166 + Me.Label121.Text = "load" + Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label122 + ' + Me.Label122.AutoSize = True + Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label122.ForeColor = System.Drawing.Color.Black + Me.Label122.Location = New System.Drawing.Point(667, 313) + Me.Label122.Name = "Label122" + Me.Label122.Size = New System.Drawing.Size(30, 13) + Me.Label122.TabIndex = 165 + Me.Label122.Text = "save" + Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GBGlitterD + ' + Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray + Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) + Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) + Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) + Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) + Me.GBGlitterD.Controls.Add(Me.CBCustom2) + Me.GBGlitterD.Controls.Add(Me.GlitterSlider) + Me.GBGlitterD.Controls.Add(Me.CBCustom1) + Me.GBGlitterD.Controls.Add(Me.CBDaily) + Me.GBGlitterD.Controls.Add(Me.CBTrivia) + Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) + Me.GBGlitterD.Controls.Add(Me.CBEgotist) + Me.GBGlitterD.Controls.Add(Me.CBTease) + Me.GBGlitterD.Controls.Add(Me.GlitterAV) + Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) + Me.GBGlitterD.Name = "GBGlitterD" + Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) + Me.GBGlitterD.TabIndex = 162 + Me.GBGlitterD.TabStop = False + Me.GBGlitterD.Text = "Domme" + ' + 'GrbGlitterfeed + ' + Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) + Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) + Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) + Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) + Me.GrbGlitterfeed.Name = "GrbGlitterfeed" + Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) + Me.GrbGlitterfeed.TabIndex = 168 + Me.GrbGlitterfeed.TabStop = False + Me.GrbGlitterfeed.Text = "Glitterfeeds" + ' + 'CBGlitterFeedScripts + ' + Me.CBGlitterFeedScripts.AutoSize = True + Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent + Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts + Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", True)) + Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) + Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) + Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" + Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) + Me.CBGlitterFeedScripts.TabIndex = 146 + Me.CBGlitterFeedScripts.Text = "Scripts" + Me.CBGlitterFeedScripts.UseVisualStyleBackColor = False + ' + 'CBGlitterFeed + ' + Me.CBGlitterFeed.AutoSize = True + Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed + Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", True)) + Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) + Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) + Me.CBGlitterFeed.Name = "CBGlitterFeed" + Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) + Me.CBGlitterFeed.TabIndex = 145 + Me.CBGlitterFeed.Text = "On" + Me.CBGlitterFeed.UseVisualStyleBackColor = True + ' + 'CBGlitterFeedOff + ' + Me.CBGlitterFeedOff.AutoSize = True + Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff + Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", True)) + Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) + Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) + Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" + Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) + Me.CBGlitterFeedOff.TabIndex = 147 + Me.CBGlitterFeedOff.TabStop = True + Me.CBGlitterFeedOff.Text = "Off" + Me.CBGlitterFeedOff.UseVisualStyleBackColor = True + ' + 'BTNGlitterD + ' + Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black + Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) + Me.BTNGlitterD.Name = "BTNGlitterD" + Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) + Me.BTNGlitterD.TabIndex = 166 + Me.BTNGlitterD.Text = "Choose Name Color" + Me.BTNGlitterD.UseVisualStyleBackColor = False + ' + 'LBLGlitterNCDomme + ' + Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White + Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor + Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) + Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" + Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) + Me.LBLGlitterNCDomme.TabIndex = 163 + Me.LBLGlitterNCDomme.Text = "Preview" + Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider + ' + Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider.Name = "LBLGlitterSlider" + Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider.TabIndex = 162 + Me.LBLGlitterSlider.Text = "Post Frequency" + Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBCustom2 + ' + Me.CBCustom2.AutoSize = True + Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 + Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBCustom2.ForeColor = System.Drawing.Color.Black + Me.CBCustom2.Location = New System.Drawing.Point(149, 121) + Me.CBCustom2.Name = "CBCustom2" + Me.CBCustom2.Size = New System.Drawing.Size(70, 17) + Me.CBCustom2.TabIndex = 161 + Me.CBCustom2.Text = "Custom 2" + Me.CBCustom2.UseVisualStyleBackColor = True + ' + 'GlitterSlider + ' + Me.GlitterSlider.AutoSize = False + Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider.LargeChange = 1 + Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider.Maximum = 9 + Me.GlitterSlider.Minimum = 1 + Me.GlitterSlider.Name = "GlitterSlider" + Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider.TabIndex = 160 + Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider + ' + 'CBCustom1 + ' + Me.CBCustom1.AutoSize = True + Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 + Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBCustom1.ForeColor = System.Drawing.Color.Black + Me.CBCustom1.Location = New System.Drawing.Point(149, 98) + Me.CBCustom1.Name = "CBCustom1" + Me.CBCustom1.Size = New System.Drawing.Size(70, 17) + Me.CBCustom1.TabIndex = 157 + Me.CBCustom1.Text = "Custom 1" + Me.CBCustom1.UseVisualStyleBackColor = True + ' + 'CBDaily + ' + Me.CBDaily.AutoSize = True + Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily + Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBDaily.ForeColor = System.Drawing.Color.Black + Me.CBDaily.Location = New System.Drawing.Point(79, 121) + Me.CBDaily.Name = "CBDaily" + Me.CBDaily.Size = New System.Drawing.Size(49, 17) + Me.CBDaily.TabIndex = 156 + Me.CBDaily.Text = "Daily" + Me.CBDaily.UseVisualStyleBackColor = True + ' + 'CBTrivia + ' + Me.CBTrivia.AutoSize = True + Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia + Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBTrivia.ForeColor = System.Drawing.Color.Black + Me.CBTrivia.Location = New System.Drawing.Point(79, 98) + Me.CBTrivia.Name = "CBTrivia" + Me.CBTrivia.Size = New System.Drawing.Size(52, 17) + Me.CBTrivia.TabIndex = 155 + Me.CBTrivia.Text = "Trivia" + Me.CBTrivia.UseVisualStyleBackColor = True + ' + 'TBGlitterShortName + ' + Me.TBGlitterShortName.BackColor = System.Drawing.Color.White + Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black + Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) + Me.TBGlitterShortName.Name = "TBGlitterShortName" + Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) + Me.TBGlitterShortName.TabIndex = 49 + Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN + Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'CBEgotist + ' + Me.CBEgotist.AutoSize = True + Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist + Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBEgotist.ForeColor = System.Drawing.Color.Black + Me.CBEgotist.Location = New System.Drawing.Point(9, 121) + Me.CBEgotist.Name = "CBEgotist" + Me.CBEgotist.Size = New System.Drawing.Size(58, 17) + Me.CBEgotist.TabIndex = 153 + Me.CBEgotist.Text = "Egotist" + Me.CBEgotist.UseVisualStyleBackColor = True + ' + 'CBTease + ' + Me.CBTease.AutoSize = True + Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease + Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBTease.ForeColor = System.Drawing.Color.Black + Me.CBTease.Location = New System.Drawing.Point(9, 98) + Me.CBTease.Name = "CBTease" + Me.CBTease.Size = New System.Drawing.Size(56, 17) + Me.CBTease.TabIndex = 152 + Me.CBTease.Text = "Tease" + Me.CBTease.UseVisualStyleBackColor = True + ' + 'GlitterAV + ' + Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV.Location = New System.Drawing.Point(9, 16) + Me.GlitterAV.Name = "GlitterAV" + Me.GlitterAV.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV.TabIndex = 149 + Me.GlitterAV.TabStop = False + ' + 'GBGlitter1 + ' + Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray + Me.GBGlitter1.Controls.Add(Me.Label167) + Me.GBGlitter1.Controls.Add(Me.G1Honorific) + Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) + Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) + Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) + Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) + Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) + Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) + Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) + Me.GBGlitter1.Controls.Add(Me.CBGlitter1) + Me.GBGlitter1.Controls.Add(Me.TBGlitter1) + Me.GBGlitter1.Controls.Add(Me.GlitterAV1) + Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) + Me.GBGlitter1.Name = "GBGlitter1" + Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) + Me.GBGlitter1.TabIndex = 161 + Me.GBGlitter1.TabStop = False + Me.GBGlitter1.Text = "Contact 1" + ' + 'Label167 + ' + Me.Label167.BackColor = System.Drawing.Color.Transparent + Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label167.ForeColor = System.Drawing.Color.Black + Me.Label167.Location = New System.Drawing.Point(98, 71) + Me.Label167.Name = "Label167" + Me.Label167.Size = New System.Drawing.Size(115, 19) + Me.Label167.TabIndex = 182 + Me.Label167.Text = "Contact Honorific" + Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'G1Honorific + ' + Me.G1Honorific.Location = New System.Drawing.Point(219, 70) + Me.G1Honorific.Name = "G1Honorific" + Me.G1Honorific.Size = New System.Drawing.Size(116, 20) + Me.G1Honorific.TabIndex = 0 + Me.G1Honorific.Text = "Mistress" + ' + 'BtnContact1ImageDirClear + ' + Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) + Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" + Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnContact1ImageDirClear.TabIndex = 181 + Me.BtnContact1ImageDirClear.Text = "Clear" + Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = False + ' + 'BtnContact1ImageDir + ' + Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) + Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" + Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) + Me.BtnContact1ImageDir.TabIndex = 177 + Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" + Me.BtnContact1ImageDir.UseVisualStyleBackColor = False + ' + 'TbxContact1ImageDir + ' + Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) + Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) + Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" + Me.TbxContact1ImageDir.ReadOnly = True + Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) + Me.TbxContact1ImageDir.TabIndex = 176 + Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir + ' + 'BTNGlitter1 + ' + Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black + Me.BTNGlitter1.Location = New System.Drawing.Point(220, 17) + Me.BTNGlitter1.Name = "BTNGlitter1" + Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) + Me.BTNGlitter1.TabIndex = 175 + Me.BTNGlitter1.Text = "Choose Name Color" + Me.BTNGlitter1.UseVisualStyleBackColor = False + ' + 'LBLGlitterNC1 + ' + Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White + Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color + Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 43) + Me.LBLGlitterNC1.Name = "LBLGlitterNC1" + Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) + Me.LBLGlitterNC1.TabIndex = 166 + Me.LBLGlitterNC1.Text = "Preview" + Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider1 + ' + Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" + Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider1.TabIndex = 163 + Me.LBLGlitterSlider1.Text = "Response Frequency" + Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GlitterSlider1 + ' + Me.GlitterSlider1.AutoSize = False + Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider1.LargeChange = 1 + Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider1.Maximum = 9 + Me.GlitterSlider1.Minimum = 1 + Me.GlitterSlider1.Name = "GlitterSlider1" + Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider1.TabIndex = 161 + Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider + ' + 'CBGlitter1 + ' + Me.CBGlitter1.AutoSize = True + Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 + Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBGlitter1.ForeColor = System.Drawing.Color.Black + Me.CBGlitter1.Location = New System.Drawing.Point(79, 20) + Me.CBGlitter1.Name = "CBGlitter1" + Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) + Me.CBGlitter1.TabIndex = 151 + Me.CBGlitter1.Text = "Enable This Contact" + Me.CBGlitter1.UseVisualStyleBackColor = True + ' + 'TBGlitter1 + ' + Me.TBGlitter1.BackColor = System.Drawing.Color.White + Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitter1.ForeColor = System.Drawing.Color.Black + Me.TBGlitter1.Location = New System.Drawing.Point(79, 43) + Me.TBGlitter1.Name = "TBGlitter1" + Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) + Me.TBGlitter1.TabIndex = 49 + Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 + Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GlitterAV1 + ' + Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) + Me.GlitterAV1.Name = "GlitterAV1" + Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV1.TabIndex = 149 + Me.GlitterAV1.TabStop = False + ' + 'GBGlitter3 + ' + Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray + Me.GBGlitter3.Controls.Add(Me.Label168) + Me.GBGlitter3.Controls.Add(Me.G3Honorific) + Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) + Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) + Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) + Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) + Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) + Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) + Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) + Me.GBGlitter3.Controls.Add(Me.CBGlitter3) + Me.GBGlitter3.Controls.Add(Me.TBGlitter3) + Me.GBGlitter3.Controls.Add(Me.GlitterAV3) + Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) + Me.GBGlitter3.Name = "GBGlitter3" + Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) + Me.GBGlitter3.TabIndex = 160 + Me.GBGlitter3.TabStop = False + Me.GBGlitter3.Text = "Contact 3" + ' + 'Label168 + ' + Me.Label168.BackColor = System.Drawing.Color.Transparent + Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label168.ForeColor = System.Drawing.Color.Black + Me.Label168.Location = New System.Drawing.Point(99, 71) + Me.Label168.Name = "Label168" + Me.Label168.Size = New System.Drawing.Size(115, 19) + Me.Label168.TabIndex = 181 + Me.Label168.Text = "Contact Honorific" + Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'G3Honorific + ' + Me.G3Honorific.Location = New System.Drawing.Point(220, 70) + Me.G3Honorific.Name = "G3Honorific" + Me.G3Honorific.Size = New System.Drawing.Size(115, 20) + Me.G3Honorific.TabIndex = 0 + Me.G3Honorific.Text = "Mistress" + ' + 'BtnContact3ImageDirClear + ' + Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) + Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" + Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnContact3ImageDirClear.TabIndex = 180 + Me.BtnContact3ImageDirClear.Text = "Clear" + Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = False + ' + 'BtnContact3ImageDir + ' + Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) + Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" + Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) + Me.BtnContact3ImageDir.TabIndex = 179 + Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" + Me.BtnContact3ImageDir.UseVisualStyleBackColor = False + ' + 'TbxContact3ImageDir + ' + Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) + Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) + Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" + Me.TbxContact3ImageDir.ReadOnly = True + Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) + Me.TbxContact3ImageDir.TabIndex = 178 + Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir + ' + 'BTNGlitter3 + ' + Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black + Me.BTNGlitter3.Location = New System.Drawing.Point(220, 15) + Me.BTNGlitter3.Name = "BTNGlitter3" + Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) + Me.BTNGlitter3.TabIndex = 175 + Me.BTNGlitter3.Text = "Choose Name Color" + Me.BTNGlitter3.UseVisualStyleBackColor = False + ' + 'LBLGlitterNC3 + ' + Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White + Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color + Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 42) + Me.LBLGlitterNC3.Name = "LBLGlitterNC3" + Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) + Me.LBLGlitterNC3.TabIndex = 166 + Me.LBLGlitterNC3.Text = "Preview" + Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider3 + ' + Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" + Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider3.TabIndex = 163 + Me.LBLGlitterSlider3.Text = "Response Frequency" + Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GlitterSlider3 + ' + Me.GlitterSlider3.AutoSize = False + Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider3.LargeChange = 1 + Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider3.Maximum = 9 + Me.GlitterSlider3.Minimum = 1 + Me.GlitterSlider3.Name = "GlitterSlider3" + Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider3.TabIndex = 161 + Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider + ' + 'CBGlitter3 + ' + Me.CBGlitter3.AutoSize = True + Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 + Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBGlitter3.ForeColor = System.Drawing.Color.Black + Me.CBGlitter3.Location = New System.Drawing.Point(79, 18) + Me.CBGlitter3.Name = "CBGlitter3" + Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) + Me.CBGlitter3.TabIndex = 151 + Me.CBGlitter3.Text = "Enable This Contact" + Me.CBGlitter3.UseVisualStyleBackColor = True + ' + 'TBGlitter3 + ' + Me.TBGlitter3.BackColor = System.Drawing.Color.White + Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitter3.ForeColor = System.Drawing.Color.Black + Me.TBGlitter3.Location = New System.Drawing.Point(79, 42) + Me.TBGlitter3.Name = "TBGlitter3" + Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) + Me.TBGlitter3.TabIndex = 49 + Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 + Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GlitterAV3 + ' + Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) + Me.GlitterAV3.Name = "GlitterAV3" + Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV3.TabIndex = 149 + Me.GlitterAV3.TabStop = False + ' + 'GBGlitter2 + ' + Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray + Me.GBGlitter2.Controls.Add(Me.Label169) + Me.GBGlitter2.Controls.Add(Me.G2Honorific) + Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) + Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) + Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) + Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) + Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) + Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) + Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) + Me.GBGlitter2.Controls.Add(Me.CBGlitter2) + Me.GBGlitter2.Controls.Add(Me.TBGlitter2) + Me.GBGlitter2.Controls.Add(Me.GlitterAV2) + Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) + Me.GBGlitter2.Name = "GBGlitter2" + Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) + Me.GBGlitter2.TabIndex = 151 + Me.GBGlitter2.TabStop = False + Me.GBGlitter2.Text = "Contact 2" + ' + 'Label169 + ' + Me.Label169.BackColor = System.Drawing.Color.Transparent + Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label169.ForeColor = System.Drawing.Color.Black + Me.Label169.Location = New System.Drawing.Point(98, 74) + Me.Label169.Name = "Label169" + Me.Label169.Size = New System.Drawing.Size(115, 19) + Me.Label169.TabIndex = 182 + Me.Label169.Text = "Contact Honorific" + Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'G2Honorific + ' + Me.G2Honorific.Location = New System.Drawing.Point(220, 73) + Me.G2Honorific.Name = "G2Honorific" + Me.G2Honorific.Size = New System.Drawing.Size(115, 20) + Me.G2Honorific.TabIndex = 0 + Me.G2Honorific.Text = "Mistress" + ' + 'BtnContact2ImageDirClear + ' + Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) + Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" + Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnContact2ImageDirClear.TabIndex = 181 + Me.BtnContact2ImageDirClear.Text = "Clear" + Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = False + ' + 'BtnContact2ImageDir + ' + Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) + Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" + Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) + Me.BtnContact2ImageDir.TabIndex = 179 + Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" + Me.BtnContact2ImageDir.UseVisualStyleBackColor = False + ' + 'TbxContact2ImageDir + ' + Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) + Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) + Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" + Me.TbxContact2ImageDir.ReadOnly = True + Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) + Me.TbxContact2ImageDir.TabIndex = 178 + Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir + ' + 'BTNGlitter2 + ' + Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black + Me.BTNGlitter2.Location = New System.Drawing.Point(220, 17) + Me.BTNGlitter2.Name = "BTNGlitter2" + Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) + Me.BTNGlitter2.TabIndex = 167 + Me.BTNGlitter2.Text = "Choose Name Color" + Me.BTNGlitter2.UseVisualStyleBackColor = False + ' + 'LBLGlitterNC2 + ' + Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White + Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color + Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 45) + Me.LBLGlitterNC2.Name = "LBLGlitterNC2" + Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) + Me.LBLGlitterNC2.TabIndex = 166 + Me.LBLGlitterNC2.Text = "Preview" + Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider2 + ' + Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" + Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider2.TabIndex = 163 + Me.LBLGlitterSlider2.Text = "Response Frequency" + Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GlitterSlider2 + ' + Me.GlitterSlider2.AutoSize = False + Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider2.LargeChange = 1 + Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider2.Maximum = 9 + Me.GlitterSlider2.Minimum = 1 + Me.GlitterSlider2.Name = "GlitterSlider2" + Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider2.TabIndex = 161 + Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider + ' + 'CBGlitter2 + ' + Me.CBGlitter2.AutoSize = True + Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 + Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBGlitter2.ForeColor = System.Drawing.Color.Black + Me.CBGlitter2.Location = New System.Drawing.Point(79, 20) + Me.CBGlitter2.Name = "CBGlitter2" + Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) + Me.CBGlitter2.TabIndex = 151 + Me.CBGlitter2.Text = "Enable This Contact" + Me.CBGlitter2.UseVisualStyleBackColor = True + ' + 'TBGlitter2 + ' + Me.TBGlitter2.BackColor = System.Drawing.Color.White + Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitter2.ForeColor = System.Drawing.Color.Black + Me.TBGlitter2.Location = New System.Drawing.Point(79, 45) + Me.TBGlitter2.Name = "TBGlitter2" + Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) + Me.TBGlitter2.TabIndex = 49 + Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 + Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GlitterAV2 + ' + Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) + Me.GlitterAV2.Name = "GlitterAV2" + Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV2.TabIndex = 149 + Me.GlitterAV2.TabStop = False + ' + 'TpGames + ' + Me.TpGames.BackColor = System.Drawing.Color.LightGray + Me.TpGames.Controls.Add(Me.CBIncludeGifs) + Me.TpGames.Controls.Add(Me.LblCardsSetupNote) + Me.TpGames.Controls.Add(Me.CBGameSounds) + Me.TpGames.Controls.Add(Me.GbxCardsGold) + Me.TpGames.Controls.Add(Me.GbxCardsBackground) + Me.TpGames.Controls.Add(Me.GbxCardsBronze) + Me.TpGames.Controls.Add(Me.GbxCardsSilver) + Me.TpGames.Location = New System.Drawing.Point(4, 22) + Me.TpGames.Name = "TpGames" + Me.TpGames.Padding = New System.Windows.Forms.Padding(3) + Me.TpGames.Size = New System.Drawing.Size(700, 411) + Me.TpGames.TabIndex = 1 + Me.TpGames.Text = "Games" + ' + 'CBIncludeGifs + ' + Me.CBIncludeGifs.AutoSize = True + Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs + Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) + Me.CBIncludeGifs.Name = "CBIncludeGifs" + Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) + Me.CBIncludeGifs.TabIndex = 5 + Me.CBIncludeGifs.Text = "Match Game Includes Gifs " + Me.CBIncludeGifs.UseVisualStyleBackColor = True + ' + 'LblCardsSetupNote + ' + Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) + Me.LblCardsSetupNote.Name = "LblCardsSetupNote" + Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) + Me.LblCardsSetupNote.TabIndex = 4 + Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected" & + "!" + Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBGameSounds + ' + Me.CBGameSounds.AutoSize = True + Me.CBGameSounds.Checked = True + Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBGameSounds.ForeColor = System.Drawing.Color.Black + Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) + Me.CBGameSounds.Name = "CBGameSounds" + Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) + Me.CBGameSounds.TabIndex = 6 + Me.CBGameSounds.Text = "Play Game Sounds" + Me.CBGameSounds.UseVisualStyleBackColor = True + ' + 'GbxCardsGold + ' + Me.GbxCardsGold.Controls.Add(Me.GN6) + Me.GbxCardsGold.Controls.Add(Me.GP6) + Me.GbxCardsGold.Controls.Add(Me.GN2) + Me.GbxCardsGold.Controls.Add(Me.GP2) + Me.GbxCardsGold.Controls.Add(Me.GP5) + Me.GbxCardsGold.Controls.Add(Me.GN1) + Me.GbxCardsGold.Controls.Add(Me.GP1) + Me.GbxCardsGold.Controls.Add(Me.GN5) + Me.GbxCardsGold.Controls.Add(Me.GN3) + Me.GbxCardsGold.Controls.Add(Me.GP3) + Me.GbxCardsGold.Controls.Add(Me.GP4) + Me.GbxCardsGold.Controls.Add(Me.GN4) + Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) + Me.GbxCardsGold.Name = "GbxCardsGold" + Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) + Me.GbxCardsGold.TabIndex = 2 + Me.GbxCardsGold.TabStop = False + Me.GbxCardsGold.Text = "Gold Cards" + ' + 'GN6 + ' + Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN6.Location = New System.Drawing.Point(86, 367) + Me.GN6.Name = "GN6" + Me.GN6.Size = New System.Drawing.Size(71, 20) + Me.GN6.TabIndex = 5 + Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 + Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP6 + ' + Me.GP6.BackColor = System.Drawing.Color.Silver + Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 + Me.GP6.InitialImage = Nothing + Me.GP6.Location = New System.Drawing.Point(86, 268) + Me.GP6.Name = "GP6" + Me.GP6.Size = New System.Drawing.Size(71, 93) + Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP6.TabIndex = 17 + Me.GP6.TabStop = False + ' + 'GN2 + ' + Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN2.Location = New System.Drawing.Point(86, 117) + Me.GN2.Name = "GN2" + Me.GN2.Size = New System.Drawing.Size(71, 20) + Me.GN2.TabIndex = 1 + Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 + Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP2 + ' + Me.GP2.BackColor = System.Drawing.Color.Silver + Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 + Me.GP2.InitialImage = Nothing + Me.GP2.Location = New System.Drawing.Point(86, 17) + Me.GP2.Name = "GP2" + Me.GP2.Size = New System.Drawing.Size(71, 94) + Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP2.TabIndex = 9 + Me.GP2.TabStop = False + ' + 'GP5 + ' + Me.GP5.BackColor = System.Drawing.Color.Silver + Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 + Me.GP5.InitialImage = Nothing + Me.GP5.Location = New System.Drawing.Point(9, 268) + Me.GP5.Name = "GP5" + Me.GP5.Size = New System.Drawing.Size(71, 93) + Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP5.TabIndex = 15 + Me.GP5.TabStop = False + ' + 'GN1 + ' + Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN1.Location = New System.Drawing.Point(9, 117) + Me.GN1.Name = "GN1" + Me.GN1.Size = New System.Drawing.Size(71, 20) + Me.GN1.TabIndex = 0 + Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 + Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP1 + ' + Me.GP1.BackColor = System.Drawing.Color.Silver + Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 + Me.GP1.InitialImage = Nothing + Me.GP1.Location = New System.Drawing.Point(9, 17) + Me.GP1.Name = "GP1" + Me.GP1.Size = New System.Drawing.Size(71, 94) + Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP1.TabIndex = 0 + Me.GP1.TabStop = False + ' + 'GN5 + ' + Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN5.Location = New System.Drawing.Point(9, 367) + Me.GN5.Name = "GN5" + Me.GN5.Size = New System.Drawing.Size(71, 20) + Me.GN5.TabIndex = 4 + Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 + Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GN3 + ' + Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN3.Location = New System.Drawing.Point(9, 242) + Me.GN3.Name = "GN3" + Me.GN3.Size = New System.Drawing.Size(71, 20) + Me.GN3.TabIndex = 2 + Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 + Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP3 + ' + Me.GP3.BackColor = System.Drawing.Color.Silver + Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 + Me.GP3.InitialImage = Nothing + Me.GP3.Location = New System.Drawing.Point(9, 143) + Me.GP3.Name = "GP3" + Me.GP3.Size = New System.Drawing.Size(71, 93) + Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP3.TabIndex = 11 + Me.GP3.TabStop = False + ' + 'GP4 + ' + Me.GP4.BackColor = System.Drawing.Color.Silver + Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 + Me.GP4.InitialImage = Nothing + Me.GP4.Location = New System.Drawing.Point(86, 143) + Me.GP4.Name = "GP4" + Me.GP4.Size = New System.Drawing.Size(71, 93) + Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP4.TabIndex = 13 + Me.GP4.TabStop = False + ' + 'GN4 + ' + Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN4.Location = New System.Drawing.Point(86, 242) + Me.GN4.Name = "GN4" + Me.GN4.Size = New System.Drawing.Size(71, 20) + Me.GN4.TabIndex = 3 + Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 + Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GbxCardsBackground + ' + Me.GbxCardsBackground.Controls.Add(Me.CardBack) + Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) + Me.GbxCardsBackground.Name = "GbxCardsBackground" + Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) + Me.GbxCardsBackground.TabIndex = 3 + Me.GbxCardsBackground.TabStop = False + Me.GbxCardsBackground.Text = "Card Background" + ' + 'CardBack + ' + Me.CardBack.BackColor = System.Drawing.Color.Silver + Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack + Me.CardBack.InitialImage = Nothing + Me.CardBack.Location = New System.Drawing.Point(17, 28) + Me.CardBack.Name = "CardBack" + Me.CardBack.Size = New System.Drawing.Size(138, 179) + Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.CardBack.TabIndex = 18 + Me.CardBack.TabStop = False + ' + 'GbxCardsBronze + ' + Me.GbxCardsBronze.Controls.Add(Me.BN6) + Me.GbxCardsBronze.Controls.Add(Me.BN3) + Me.GbxCardsBronze.Controls.Add(Me.BP3) + Me.GbxCardsBronze.Controls.Add(Me.BP6) + Me.GbxCardsBronze.Controls.Add(Me.BN2) + Me.GbxCardsBronze.Controls.Add(Me.BN5) + Me.GbxCardsBronze.Controls.Add(Me.BP5) + Me.GbxCardsBronze.Controls.Add(Me.BP2) + Me.GbxCardsBronze.Controls.Add(Me.BN1) + Me.GbxCardsBronze.Controls.Add(Me.BN4) + Me.GbxCardsBronze.Controls.Add(Me.BP4) + Me.GbxCardsBronze.Controls.Add(Me.BP1) + Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) + Me.GbxCardsBronze.Name = "GbxCardsBronze" + Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) + Me.GbxCardsBronze.TabIndex = 0 + Me.GbxCardsBronze.TabStop = False + Me.GbxCardsBronze.Text = "Bronze Cards" + ' + 'BN6 + ' + Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN6.Location = New System.Drawing.Point(86, 368) + Me.BN6.Name = "BN6" + Me.BN6.Size = New System.Drawing.Size(71, 20) + Me.BN6.TabIndex = 5 + Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 + Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BN3 + ' + Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN3.Location = New System.Drawing.Point(9, 243) + Me.BN3.Name = "BN3" + Me.BN3.Size = New System.Drawing.Size(71, 20) + Me.BN3.TabIndex = 2 + Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 + Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BP3 + ' + Me.BP3.BackColor = System.Drawing.Color.Silver + Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 + Me.BP3.InitialImage = Nothing + Me.BP3.Location = New System.Drawing.Point(9, 144) + Me.BP3.Name = "BP3" + Me.BP3.Size = New System.Drawing.Size(71, 93) + Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP3.TabIndex = 11 + Me.BP3.TabStop = False + ' + 'BP6 + ' + Me.BP6.BackColor = System.Drawing.Color.Silver + Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 + Me.BP6.InitialImage = Nothing + Me.BP6.Location = New System.Drawing.Point(86, 269) + Me.BP6.Name = "BP6" + Me.BP6.Size = New System.Drawing.Size(71, 93) + Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP6.TabIndex = 17 + Me.BP6.TabStop = False + ' + 'BN2 + ' + Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN2.Location = New System.Drawing.Point(86, 118) + Me.BN2.Name = "BN2" + Me.BN2.Size = New System.Drawing.Size(71, 20) + Me.BN2.TabIndex = 1 + Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 + Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BN5 + ' + Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN5.Location = New System.Drawing.Point(9, 368) + Me.BN5.Name = "BN5" + Me.BN5.Size = New System.Drawing.Size(71, 20) + Me.BN5.TabIndex = 4 + Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 + Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BP5 + ' + Me.BP5.BackColor = System.Drawing.Color.Silver + Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 + Me.BP5.InitialImage = Nothing + Me.BP5.Location = New System.Drawing.Point(9, 269) + Me.BP5.Name = "BP5" + Me.BP5.Size = New System.Drawing.Size(71, 93) + Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP5.TabIndex = 15 + Me.BP5.TabStop = False + ' + 'BP2 + ' + Me.BP2.BackColor = System.Drawing.Color.Silver + Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 + Me.BP2.InitialImage = Nothing + Me.BP2.Location = New System.Drawing.Point(86, 19) + Me.BP2.Name = "BP2" + Me.BP2.Size = New System.Drawing.Size(71, 93) + Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP2.TabIndex = 9 + Me.BP2.TabStop = False + ' + 'BN1 + ' + Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN1.Location = New System.Drawing.Point(9, 118) + Me.BN1.Name = "BN1" + Me.BN1.Size = New System.Drawing.Size(71, 20) + Me.BN1.TabIndex = 0 + Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 + Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BN4 + ' + Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN4.Location = New System.Drawing.Point(86, 243) + Me.BN4.Name = "BN4" + Me.BN4.Size = New System.Drawing.Size(71, 20) + Me.BN4.TabIndex = 3 + Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 + Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BP4 + ' + Me.BP4.BackColor = System.Drawing.Color.Silver + Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 + Me.BP4.InitialImage = Nothing + Me.BP4.Location = New System.Drawing.Point(86, 144) + Me.BP4.Name = "BP4" + Me.BP4.Size = New System.Drawing.Size(71, 93) + Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP4.TabIndex = 13 + Me.BP4.TabStop = False + ' + 'BP1 + ' + Me.BP1.BackColor = System.Drawing.Color.Silver + Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", True)) + Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 + Me.BP1.InitialImage = Nothing + Me.BP1.Location = New System.Drawing.Point(9, 19) + Me.BP1.Name = "BP1" + Me.BP1.Size = New System.Drawing.Size(71, 93) + Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP1.TabIndex = 0 + Me.BP1.TabStop = False + Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 + ' + 'GbxCardsSilver + ' + Me.GbxCardsSilver.Controls.Add(Me.SN6) + Me.GbxCardsSilver.Controls.Add(Me.SP6) + Me.GbxCardsSilver.Controls.Add(Me.SN2) + Me.GbxCardsSilver.Controls.Add(Me.SP2) + Me.GbxCardsSilver.Controls.Add(Me.SN1) + Me.GbxCardsSilver.Controls.Add(Me.SP5) + Me.GbxCardsSilver.Controls.Add(Me.SP1) + Me.GbxCardsSilver.Controls.Add(Me.SN5) + Me.GbxCardsSilver.Controls.Add(Me.SN3) + Me.GbxCardsSilver.Controls.Add(Me.SN4) + Me.GbxCardsSilver.Controls.Add(Me.SP3) + Me.GbxCardsSilver.Controls.Add(Me.SP4) + Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) + Me.GbxCardsSilver.Name = "GbxCardsSilver" + Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) + Me.GbxCardsSilver.TabIndex = 1 + Me.GbxCardsSilver.TabStop = False + Me.GbxCardsSilver.Text = "Silver Cards" + ' + 'SN6 + ' + Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN6.Location = New System.Drawing.Point(86, 368) + Me.SN6.Name = "SN6" + Me.SN6.Size = New System.Drawing.Size(71, 20) + Me.SN6.TabIndex = 5 + Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 + Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP6 + ' + Me.SP6.BackColor = System.Drawing.Color.Silver + Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 + Me.SP6.InitialImage = Nothing + Me.SP6.Location = New System.Drawing.Point(86, 269) + Me.SP6.Name = "SP6" + Me.SP6.Size = New System.Drawing.Size(71, 93) + Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP6.TabIndex = 17 + Me.SP6.TabStop = False + ' + 'SN2 + ' + Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN2.Location = New System.Drawing.Point(86, 118) + Me.SN2.Name = "SN2" + Me.SN2.Size = New System.Drawing.Size(71, 20) + Me.SN2.TabIndex = 1 + Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 + Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP2 + ' + Me.SP2.BackColor = System.Drawing.Color.Silver + Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 + Me.SP2.InitialImage = Nothing + Me.SP2.Location = New System.Drawing.Point(86, 19) + Me.SP2.Name = "SP2" + Me.SP2.Size = New System.Drawing.Size(71, 93) + Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP2.TabIndex = 9 + Me.SP2.TabStop = False + ' + 'SN1 + ' + Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN1.Location = New System.Drawing.Point(9, 118) + Me.SN1.Name = "SN1" + Me.SN1.Size = New System.Drawing.Size(71, 20) + Me.SN1.TabIndex = 0 + Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 + Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP5 + ' + Me.SP5.BackColor = System.Drawing.Color.Silver + Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 + Me.SP5.InitialImage = Nothing + Me.SP5.Location = New System.Drawing.Point(9, 269) + Me.SP5.Name = "SP5" + Me.SP5.Size = New System.Drawing.Size(71, 93) + Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP5.TabIndex = 15 + Me.SP5.TabStop = False + ' + 'SP1 + ' + Me.SP1.BackColor = System.Drawing.Color.Silver + Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 + Me.SP1.InitialImage = Nothing + Me.SP1.Location = New System.Drawing.Point(9, 19) + Me.SP1.Name = "SP1" + Me.SP1.Size = New System.Drawing.Size(71, 93) + Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP1.TabIndex = 0 + Me.SP1.TabStop = False + ' + 'SN5 + ' + Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN5.Location = New System.Drawing.Point(9, 368) + Me.SN5.Name = "SN5" + Me.SN5.Size = New System.Drawing.Size(71, 20) + Me.SN5.TabIndex = 4 + Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 + Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SN3 + ' + Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN3.Location = New System.Drawing.Point(9, 243) + Me.SN3.Name = "SN3" + Me.SN3.Size = New System.Drawing.Size(71, 20) + Me.SN3.TabIndex = 2 + Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 + Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SN4 + ' + Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN4.Location = New System.Drawing.Point(86, 243) + Me.SN4.Name = "SN4" + Me.SN4.Size = New System.Drawing.Size(71, 20) + Me.SN4.TabIndex = 3 + Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 + Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP3 + ' + Me.SP3.BackColor = System.Drawing.Color.Silver + Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 + Me.SP3.InitialImage = Nothing + Me.SP3.Location = New System.Drawing.Point(9, 144) + Me.SP3.Name = "SP3" + Me.SP3.Size = New System.Drawing.Size(71, 93) + Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP3.TabIndex = 11 + Me.SP3.TabStop = False + ' + 'SP4 + ' + Me.SP4.BackColor = System.Drawing.Color.Silver + Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 + Me.SP4.InitialImage = Nothing + Me.SP4.Location = New System.Drawing.Point(86, 144) + Me.SP4.Name = "SP4" + Me.SP4.Size = New System.Drawing.Size(71, 93) + Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP4.TabIndex = 13 + Me.SP4.TabStop = False + ' + 'TabPage6 + ' + Me.TabPage6.BackColor = System.Drawing.Color.LightGray + Me.TabPage6.Controls.Add(Me.Panel10) + Me.TabPage6.Controls.Add(Me.Label107) + Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) + Me.TabPage6.Controls.Add(Me.Label18) + Me.TabPage6.Controls.Add(Me.PNLWishList) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(700, 411) + Me.TabPage6.TabIndex = 2 + Me.TabPage6.Text = "Wishlist" + ' + 'Panel10 + ' + Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel10.Controls.Add(Me.TBWishlistComment) + Me.Panel10.Controls.Add(Me.Label32) + Me.Panel10.Controls.Add(Me.TBWishlistItem) + Me.Panel10.Controls.Add(Me.radioGold) + Me.Panel10.Controls.Add(Me.Label42) + Me.Panel10.Controls.Add(Me.radioSilver) + Me.Panel10.Controls.Add(Me.TBWishlistURL) + Me.Panel10.Controls.Add(Me.NBWishlistCost) + Me.Panel10.Controls.Add(Me.Label48) + Me.Panel10.Controls.Add(Me.Label73) + Me.Panel10.Location = New System.Drawing.Point(38, 47) + Me.Panel10.Name = "Panel10" + Me.Panel10.Size = New System.Drawing.Size(252, 308) + Me.Panel10.TabIndex = 179 + ' + 'TBWishlistComment + ' + Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) + Me.TBWishlistComment.Multiline = True + Me.TBWishlistComment.Name = "TBWishlistComment" + Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) + Me.TBWishlistComment.TabIndex = 172 + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(13, 4) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(58, 13) + Me.Label32.TabIndex = 167 + Me.Label32.Text = "Item Name" + ' + 'TBWishlistItem + ' + Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) + Me.TBWishlistItem.Name = "TBWishlistItem" + Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) + Me.TBWishlistItem.TabIndex = 168 + ' + 'radioGold + ' + Me.radioGold.AutoSize = True + Me.radioGold.Location = New System.Drawing.Point(167, 125) + Me.radioGold.Name = "radioGold" + Me.radioGold.Size = New System.Drawing.Size(47, 17) + Me.radioGold.TabIndex = 176 + Me.radioGold.Text = "Gold" + Me.radioGold.UseVisualStyleBackColor = True + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Location = New System.Drawing.Point(13, 56) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(75, 13) + Me.Label42.TabIndex = 169 + Me.Label42.Text = "Item Image Url" + ' + 'radioSilver + ' + Me.radioSilver.AutoSize = True + Me.radioSilver.Checked = True + Me.radioSilver.Location = New System.Drawing.Point(100, 125) + Me.radioSilver.Name = "radioSilver" + Me.radioSilver.Size = New System.Drawing.Size(51, 17) + Me.radioSilver.TabIndex = 175 + Me.radioSilver.TabStop = True + Me.radioSilver.Text = "Silver" + Me.radioSilver.UseVisualStyleBackColor = True + ' + 'TBWishlistURL + ' + Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) + Me.TBWishlistURL.Name = "TBWishlistURL" + Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) + Me.TBWishlistURL.TabIndex = 170 + ' + 'NBWishlistCost + ' + Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) + Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBWishlistCost.Name = "NBWishlistCost" + Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) + Me.NBWishlistCost.TabIndex = 174 + Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(13, 157) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(74, 13) + Me.Label48.TabIndex = 171 + Me.Label48.Text = "Item Comment" + ' + 'Label73 + ' + Me.Label73.AutoSize = True + Me.Label73.Location = New System.Drawing.Point(13, 108) + Me.Label73.Name = "Label73" + Me.Label73.Size = New System.Drawing.Size(51, 13) + Me.Label73.TabIndex = 173 + Me.Label73.Text = "Item Cost" + ' + 'Label107 + ' + Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label107.Location = New System.Drawing.Point(38, 5) + Me.Label107.Name = "Label107" + Me.Label107.Size = New System.Drawing.Size(252, 47) + Me.Label107.TabIndex = 178 + Me.Label107.Text = "Use this page to create Wishlist files." + Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNWishlistCreate + ' + Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) + Me.BTNWishlistCreate.Name = "BTNWishlistCreate" + Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) + Me.BTNWishlistCreate.TabIndex = 177 + Me.BTNWishlistCreate.Text = "Create Wishlist File" + Me.BTNWishlistCreate.UseVisualStyleBackColor = True + ' + 'Label18 + ' + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(409, 5) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(250, 23) + Me.Label18.TabIndex = 166 + Me.Label18.Text = "Preview" + Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PNLWishList + ' + Me.PNLWishList.BackColor = System.Drawing.Color.White + Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) + Me.PNLWishList.Controls.Add(Me.LBLWishListText) + Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) + Me.PNLWishList.Controls.Add(Me.WishlistCostGold) + Me.PNLWishList.Controls.Add(Me.LBLWishListName) + Me.PNLWishList.Controls.Add(Me.WishlistPreview) + Me.PNLWishList.Location = New System.Drawing.Point(407, 31) + Me.PNLWishList.Name = "PNLWishList" + Me.PNLWishList.Size = New System.Drawing.Size(250, 367) + Me.PNLWishList.TabIndex = 165 + ' + 'WishlistCostSilver + ' + Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent + Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"), System.Drawing.Image) + Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) + Me.WishlistCostSilver.Name = "WishlistCostSilver" + Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) + Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.WishlistCostSilver.TabIndex = 111 + Me.WishlistCostSilver.TabStop = False + ' + 'LBLWishListText + ' + Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) + Me.LBLWishListText.Name = "LBLWishListText" + Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) + Me.LBLWishListText.TabIndex = 108 + ' + 'LBLWishlistCost + ' + Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black + Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) + Me.LBLWishlistCost.Name = "LBLWishlistCost" + Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) + Me.LBLWishlistCost.TabIndex = 107 + Me.LBLWishlistCost.Text = "3" + Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'WishlistCostGold + ' + Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent + Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"), System.Drawing.Image) + Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) + Me.WishlistCostGold.Name = "WishlistCostGold" + Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) + Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.WishlistCostGold.TabIndex = 106 + Me.WishlistCostGold.TabStop = False + Me.WishlistCostGold.Visible = False + ' + 'LBLWishListName + ' + Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue + Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) + Me.LBLWishListName.Name = "LBLWishListName" + Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) + Me.LBLWishListName.TabIndex = 104 + Me.LBLWishListName.Text = "Item Name Goes Here" + Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'WishlistPreview + ' + Me.WishlistPreview.ImageLocation = "" + Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) + Me.WishlistPreview.Name = "WishlistPreview" + Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) + Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.WishlistPreview.TabIndex = 101 + Me.WishlistPreview.TabStop = False + ' + 'TabPage26 + ' + Me.TabPage26.BackColor = System.Drawing.Color.Silver + Me.TabPage26.Controls.Add(Me.Panel12) + Me.TabPage26.Location = New System.Drawing.Point(4, 22) + Me.TabPage26.Name = "TabPage26" + Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage26.Size = New System.Drawing.Size(720, 448) + Me.TabPage26.TabIndex = 19 + Me.TabPage26.Text = "Themes" + ' + 'Panel12 + ' + Me.Panel12.BackColor = System.Drawing.Color.LightGray + Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel12.Controls.Add(Me.GroupBox9) + Me.Panel12.Controls.Add(Me.PictureBox10) + Me.Panel12.Controls.Add(Me.GroupBox5) + Me.Panel12.Controls.Add(Me.GroupBox11) + Me.Panel12.Controls.Add(Me.GroupBox1) + Me.Panel12.Controls.Add(Me.Label164) + Me.Panel12.Location = New System.Drawing.Point(6, 6) + Me.Panel12.Name = "Panel12" + Me.Panel12.Size = New System.Drawing.Size(708, 437) + Me.Panel12.TabIndex = 93 + ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.Button32) + Me.GroupBox9.Controls.Add(Me.Button31) + Me.GroupBox9.Location = New System.Drawing.Point(351, 231) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(348, 94) + Me.GroupBox9.TabIndex = 152 + Me.GroupBox9.TabStop = False + Me.GroupBox9.Text = "System" + ' + 'Button32 + ' + Me.Button32.BackColor = System.Drawing.Color.Transparent + Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big + Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button32.Location = New System.Drawing.Point(196, 24) + Me.Button32.Name = "Button32" + Me.Button32.Size = New System.Drawing.Size(135, 55) + Me.Button32.TabIndex = 55 + Me.Button32.Text = " Save Theme" + Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText + Me.Button32.UseVisualStyleBackColor = False + ' + 'Button31 + ' + Me.Button31.BackColor = System.Drawing.Color.Transparent + Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big + Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button31.Location = New System.Drawing.Point(17, 24) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(135, 55) + Me.Button31.TabIndex = 54 + Me.Button31.Text = " Open Theme" + Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText + Me.Button31.UseVisualStyleBackColor = False + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.LightGray + Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox10.Location = New System.Drawing.Point(9, 6) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(160, 19) + Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox10.TabIndex = 151 + Me.PictureBox10.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.CBTransparentTime) + Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) + Me.GroupBox5.Controls.Add(Me.Label137) + Me.GroupBox5.Controls.Add(Me.Label138) + Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) + Me.GroupBox5.Controls.Add(Me.LBLTextColor) + Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) + Me.GroupBox5.Controls.Add(Me.LBLTextColor2) + Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) + Me.GroupBox5.Controls.Add(Me.LBLBackColor2) + Me.GroupBox5.Controls.Add(Me.LBLButtonColor) + Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) + Me.GroupBox5.Controls.Add(Me.LBLBackColor) + Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) + Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) + Me.GroupBox5.Location = New System.Drawing.Point(9, 31) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(336, 294) + Me.GroupBox5.TabIndex = 58 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "UI Colors" + ' + 'CBTransparentTime + ' + Me.CBTransparentTime.AutoSize = True + Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) + Me.CBTransparentTime.Name = "CBTransparentTime" + Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) + Me.CBTransparentTime.TabIndex = 23 + Me.CBTransparentTime.Text = "Transparent Date/Time Window" + Me.CBTransparentTime.UseVisualStyleBackColor = True + ' + 'LBLDateTimeColor2 + ' + Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor + Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) + Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" + Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLDateTimeColor2.TabIndex = 19 + ' + 'Label137 + ' + Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label137.Location = New System.Drawing.Point(6, 227) + Me.Label137.Name = "Label137" + Me.Label137.Size = New System.Drawing.Size(175, 20) + Me.Label137.TabIndex = 20 + Me.Label137.Text = "Date/Time Window Color" + Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label138 + ' + Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label138.Location = New System.Drawing.Point(6, 193) + Me.Label138.Name = "Label138" + Me.Label138.Size = New System.Drawing.Size(175, 20) + Me.Label138.TabIndex = 17 + Me.Label138.Text = "Date/Time Text Color" + Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLDateBackColor2 + ' + Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor + Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) + Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLDateBackColor2.Name = "LBLDateBackColor2" + Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLDateBackColor2.TabIndex = 22 + ' + 'LBLTextColor + ' + Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) + Me.LBLTextColor.Name = "LBLTextColor" + Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) + Me.LBLTextColor.TabIndex = 7 + Me.LBLTextColor.Text = "Text Color" + Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLChatWindowColor2 + ' + Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor + Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) + Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" + Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLChatWindowColor2.TabIndex = 12 + ' + 'LBLTextColor2 + ' + Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) + Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLTextColor2.Name = "LBLTextColor2" + Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLTextColor2.TabIndex = 9 + ' + 'LBLChatTextColor + ' + Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) + Me.LBLChatTextColor.Name = "LBLChatTextColor" + Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) + Me.LBLChatTextColor.TabIndex = 14 + Me.LBLChatTextColor.Text = "Chat Text Color" + Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLBackColor2 + ' + Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor + Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) + Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLBackColor2.Name = "LBLBackColor2" + Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLBackColor2.TabIndex = 3 + ' + 'LBLButtonColor + ' + Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) + Me.LBLButtonColor.Name = "LBLButtonColor" + Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) + Me.LBLButtonColor.TabIndex = 4 + Me.LBLButtonColor.Text = "Button Color" + Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLChatWindowColor + ' + Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) + Me.LBLChatWindowColor.Name = "LBLChatWindowColor" + Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) + Me.LBLChatWindowColor.TabIndex = 10 + Me.LBLChatWindowColor.Text = "Chat Window Color" + Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLBackColor + ' + Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) + Me.LBLBackColor.Name = "LBLBackColor" + Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) + Me.LBLBackColor.TabIndex = 0 + Me.LBLBackColor.Text = "Background Color" + Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLChatTextColor2 + ' + Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor + Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) + Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLChatTextColor2.Name = "LBLChatTextColor2" + Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLChatTextColor2.TabIndex = 16 + ' + 'LBLButtonColor2 + ' + Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) + Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLButtonColor2.Name = "LBLButtonColor2" + Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLButtonColor2.TabIndex = 6 + ' + 'GroupBox11 + ' + Me.GroupBox11.BackColor = System.Drawing.Color.LightGray + Me.GroupBox11.Controls.Add(Me.Label144) + Me.GroupBox11.ForeColor = System.Drawing.Color.Black + Me.GroupBox11.Location = New System.Drawing.Point(7, 331) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(692, 92) + Me.GroupBox11.TabIndex = 65 + Me.GroupBox11.TabStop = False + Me.GroupBox11.Text = "Description" + ' + 'Label144 + ' + Me.Label144.BackColor = System.Drawing.Color.Transparent + Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label144.ForeColor = System.Drawing.Color.Black + Me.Label144.Location = New System.Drawing.Point(6, 16) + Me.Label144.Name = "Label144" + Me.Label144.Size = New System.Drawing.Size(680, 73) + Me.Label144.TabIndex = 62 + Me.Label144.Text = "Use this page to create custom themes for Tease AI." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Themes can then be saved a" & + "nd opened from txt files." + Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.CBFlipBack) + Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) + Me.GroupBox1.Controls.Add(Me.Button17) + Me.GroupBox1.Controls.Add(Me.CBStretchBack) + Me.GroupBox1.Controls.Add(Me.Button18) + Me.GroupBox1.Location = New System.Drawing.Point(351, 30) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(348, 195) + Me.GroupBox1.TabIndex = 57 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Background" + ' + 'CBFlipBack + ' + Me.CBFlipBack.Enabled = False + Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) + Me.CBFlipBack.Name = "CBFlipBack" + Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) + Me.CBFlipBack.TabIndex = 4 + Me.CBFlipBack.Text = "Flip Background" + Me.CBFlipBack.UseVisualStyleBackColor = True + ' + 'PBBackgroundPreview + ' + Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) + Me.PBBackgroundPreview.Name = "PBBackgroundPreview" + Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) + Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PBBackgroundPreview.TabIndex = 0 + Me.PBBackgroundPreview.TabStop = False + ' + 'Button17 + ' + Me.Button17.BackColor = System.Drawing.Color.Transparent + Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load + Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button17.Location = New System.Drawing.Point(228, 36) + Me.Button17.Name = "Button17" + Me.Button17.Size = New System.Drawing.Size(103, 93) + Me.Button17.TabIndex = 1 + Me.Button17.UseVisualStyleBackColor = False + ' + 'CBStretchBack + ' + Me.CBStretchBack.Checked = True + Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) + Me.CBStretchBack.Name = "CBStretchBack" + Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) + Me.CBStretchBack.TabIndex = 2 + Me.CBStretchBack.Text = "Stretch Background" + Me.CBStretchBack.UseVisualStyleBackColor = True + ' + 'Button18 + ' + Me.Button18.Location = New System.Drawing.Point(228, 155) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(103, 31) + Me.Button18.TabIndex = 3 + Me.Button18.Text = "Clear" + Me.Button18.UseVisualStyleBackColor = True + ' + 'Label164 + ' + Me.Label164.BackColor = System.Drawing.Color.Transparent + Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label164.ForeColor = System.Drawing.Color.Black + Me.Label164.Location = New System.Drawing.Point(7, 6) + Me.Label164.Name = "Label164" + Me.Label164.Size = New System.Drawing.Size(692, 21) + Me.Label164.TabIndex = 49 + Me.Label164.Text = "Theme Settings" + Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage4 + ' + Me.TabPage4.BackColor = System.Drawing.Color.Silver + Me.TabPage4.Controls.Add(Me.Panel6) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(720, 448) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "Ranges" + ' + 'Panel6 + ' + Me.Panel6.BackColor = System.Drawing.Color.LightGray + Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel6.Controls.Add(Me.GroupBox69) + Me.Panel6.Controls.Add(Me.GroupBox68) + Me.Panel6.Controls.Add(Me.GroupBox67) + Me.Panel6.Controls.Add(Me.GroupBox10) + Me.Panel6.Controls.Add(Me.GroupBox57) + Me.Panel6.Controls.Add(Me.GBRangeRuinChance) + Me.Panel6.Controls.Add(Me.GroupBox17) + Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) + Me.Panel6.Controls.Add(Me.PictureBox8) + Me.Panel6.Controls.Add(Me.Label38) + Me.Panel6.Location = New System.Drawing.Point(6, 6) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(708, 437) + Me.Panel6.TabIndex = 91 + ' + 'GroupBox69 + ' + Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) + Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) + Me.GroupBox69.Controls.Add(Me.TimedWriting) + Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) + Me.GroupBox69.Location = New System.Drawing.Point(236, 344) + Me.GroupBox69.Name = "GroupBox69" + Me.GroupBox69.Size = New System.Drawing.Size(166, 83) + Me.GroupBox69.TabIndex = 173 + Me.GroupBox69.TabStop = False + Me.GroupBox69.Text = "Writing Tasks" + ' + 'TypesSpeedVal + ' + Me.TypesSpeedVal.AutoSize = True + Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) + Me.TypesSpeedVal.Name = "TypesSpeedVal" + Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) + Me.TypesSpeedVal.TabIndex = 0 + Me.TypesSpeedVal.Text = "10" + Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'TypeSpeedLabel + ' + Me.TypeSpeedLabel.AutoSize = True + Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) + Me.TypeSpeedLabel.Name = "TypeSpeedLabel" + Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) + Me.TypeSpeedLabel.TabIndex = 2 + Me.TypeSpeedLabel.Text = "Typing Speed:" + ' + 'TimedWriting + ' + Me.TimedWriting.AutoSize = True + Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting + Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TimedWriting.Location = New System.Drawing.Point(9, 19) + Me.TimedWriting.Name = "TimedWriting" + Me.TimedWriting.Size = New System.Drawing.Size(123, 17) + Me.TimedWriting.TabIndex = 1 + Me.TimedWriting.Text = "Timed Writing Tasks" + Me.TimedWriting.UseVisualStyleBackColor = True + ' + 'TypeSpeedSlider + ' + Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) + Me.TypeSpeedSlider.Maximum = 100 + Me.TypeSpeedSlider.Minimum = 33 + Me.TypeSpeedSlider.Name = "TypeSpeedSlider" + Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) + Me.TypeSpeedSlider.TabIndex = 3 + Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed + ' + 'GroupBox68 + ' + Me.GroupBox68.Controls.Add(Me.NBTasksMax) + Me.GroupBox68.Controls.Add(Me.NBTasksMin) + Me.GroupBox68.Controls.Add(Me.Label165) + Me.GroupBox68.Controls.Add(Me.Label166) + Me.GroupBox68.Location = New System.Drawing.Point(236, 287) + Me.GroupBox68.Name = "GroupBox68" + Me.GroupBox68.Size = New System.Drawing.Size(166, 51) + Me.GroupBox68.TabIndex = 172 + Me.GroupBox68.TabStop = False + Me.GroupBox68.Text = "Session Tasks" + ' + 'NBTasksMax + ' + Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) + Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) + Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBTasksMax.Name = "NBTasksMax" + Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) + Me.NBTasksMax.TabIndex = 187 + Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) + ' + 'NBTasksMin + ' + Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) + Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) + Me.NBTasksMin.Name = "NBTasksMin" + Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) + Me.NBTasksMin.TabIndex = 186 + Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label165 + ' + Me.Label165.BackColor = System.Drawing.Color.Transparent + Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label165.ForeColor = System.Drawing.Color.Black + Me.Label165.Location = New System.Drawing.Point(100, 20) + Me.Label165.Name = "Label165" + Me.Label165.Size = New System.Drawing.Size(10, 17) + Me.Label165.TabIndex = 185 + Me.Label165.Text = "-" + Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label166 + ' + Me.Label166.BackColor = System.Drawing.Color.Transparent + Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label166.ForeColor = System.Drawing.Color.Black + Me.Label166.Location = New System.Drawing.Point(6, 21) + Me.Label166.Name = "Label166" + Me.Label166.Size = New System.Drawing.Size(49, 17) + Me.Label166.TabIndex = 188 + Me.Label166.Text = "Amount:" + Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox67 + ' + Me.GroupBox67.Controls.Add(Me.Label161) + Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) + Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) + Me.GroupBox67.Controls.Add(Me.Label162) + Me.GroupBox67.Controls.Add(Me.Label163) + Me.GroupBox67.Controls.Add(Me.Label158) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) + Me.GroupBox67.Controls.Add(Me.Label159) + Me.GroupBox67.Controls.Add(Me.Label160) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) + Me.GroupBox67.Controls.Add(Me.Label119) + Me.GroupBox67.Controls.Add(Me.Label157) + Me.GroupBox67.Controls.Add(Me.Label151) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) + Me.GroupBox67.Controls.Add(Me.Label154) + Me.GroupBox67.Controls.Add(Me.Label155) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) + Me.GroupBox67.Controls.Add(Me.Label146) + Me.GroupBox67.Controls.Add(Me.Label149) + Me.GroupBox67.Location = New System.Drawing.Point(408, 288) + Me.GroupBox67.Name = "GroupBox67" + Me.GroupBox67.Size = New System.Drawing.Size(291, 139) + Me.GroupBox67.TabIndex = 171 + Me.GroupBox67.TabStop = False + Me.GroupBox67.Text = "Letter Tasks" + ' + 'Label161 + ' + Me.Label161.BackColor = System.Drawing.Color.Transparent + Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label161.ForeColor = System.Drawing.Color.Black + Me.Label161.Location = New System.Drawing.Point(233, 110) + Me.Label161.Name = "Label161" + Me.Label161.Size = New System.Drawing.Size(50, 17) + Me.Label161.TabIndex = 204 + Me.Label161.Text = "minutes" + Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskCBTTimeMax + ' + Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) + Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) + Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" + Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskCBTTimeMax.TabIndex = 203 + Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax + ' + 'NBTaskCBTTimeMin + ' + Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) + Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" + Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskCBTTimeMin.TabIndex = 202 + Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin + ' + 'Label162 + ' + Me.Label162.BackColor = System.Drawing.Color.Transparent + Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label162.ForeColor = System.Drawing.Color.Black + Me.Label162.Location = New System.Drawing.Point(167, 110) + Me.Label162.Name = "Label162" + Me.Label162.Size = New System.Drawing.Size(10, 17) + Me.Label162.TabIndex = 201 + Me.Label162.Text = "-" + Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label163 + ' + Me.Label163.BackColor = System.Drawing.Color.Transparent + Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label163.ForeColor = System.Drawing.Color.Black + Me.Label163.Location = New System.Drawing.Point(12, 111) + Me.Label163.Name = "Label163" + Me.Label163.Size = New System.Drawing.Size(151, 17) + Me.Label163.TabIndex = 200 + Me.Label163.Text = "CBT Time:" + Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label158 + ' + Me.Label158.BackColor = System.Drawing.Color.Transparent + Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label158.ForeColor = System.Drawing.Color.Black + Me.Label158.Location = New System.Drawing.Point(233, 87) + Me.Label158.Name = "Label158" + Me.Label158.Size = New System.Drawing.Size(50, 17) + Me.Label158.TabIndex = 199 + Me.Label158.Text = "minutes" + Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskEdgeHoldTimeMax + ' + Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) + Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" + Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 + Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax + ' + 'NBTaskEdgeHoldTimeMin + ' + Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) + Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" + Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 + Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin + ' + 'Label159 + ' + Me.Label159.BackColor = System.Drawing.Color.Transparent + Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label159.ForeColor = System.Drawing.Color.Black + Me.Label159.Location = New System.Drawing.Point(167, 87) + Me.Label159.Name = "Label159" + Me.Label159.Size = New System.Drawing.Size(10, 17) + Me.Label159.TabIndex = 196 + Me.Label159.Text = "-" + Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label160 + ' + Me.Label160.BackColor = System.Drawing.Color.Transparent + Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label160.ForeColor = System.Drawing.Color.Black + Me.Label160.Location = New System.Drawing.Point(12, 88) + Me.Label160.Name = "Label160" + Me.Label160.Size = New System.Drawing.Size(151, 17) + Me.Label160.TabIndex = 195 + Me.Label160.Text = "Edge Hold Time:" + Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskEdgesMax + ' + Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) + Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" + Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgesMax.TabIndex = 194 + Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax + ' + 'NBTaskEdgesMin + ' + Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) + Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" + Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgesMin.TabIndex = 193 + Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin + ' + 'Label119 + ' + Me.Label119.BackColor = System.Drawing.Color.Transparent + Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label119.ForeColor = System.Drawing.Color.Black + Me.Label119.Location = New System.Drawing.Point(167, 64) + Me.Label119.Name = "Label119" + Me.Label119.Size = New System.Drawing.Size(10, 17) + Me.Label119.TabIndex = 192 + Me.Label119.Text = "-" + Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label157 + ' + Me.Label157.BackColor = System.Drawing.Color.Transparent + Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label157.ForeColor = System.Drawing.Color.Black + Me.Label157.Location = New System.Drawing.Point(12, 65) + Me.Label157.Name = "Label157" + Me.Label157.Size = New System.Drawing.Size(151, 17) + Me.Label157.TabIndex = 191 + Me.Label157.Text = "Edges:" + Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label151 + ' + Me.Label151.BackColor = System.Drawing.Color.Transparent + Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label151.ForeColor = System.Drawing.Color.Black + Me.Label151.Location = New System.Drawing.Point(233, 41) + Me.Label151.Name = "Label151" + Me.Label151.Size = New System.Drawing.Size(50, 17) + Me.Label151.TabIndex = 190 + Me.Label151.Text = "minutes" + Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskStrokingTimeMax + ' + Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) + Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" + Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokingTimeMax.TabIndex = 189 + Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax + ' + 'NBTaskStrokingTimeMin + ' + Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) + Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" + Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokingTimeMin.TabIndex = 188 + Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin + ' + 'Label154 + ' + Me.Label154.BackColor = System.Drawing.Color.Transparent + Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label154.ForeColor = System.Drawing.Color.Black + Me.Label154.Location = New System.Drawing.Point(167, 41) + Me.Label154.Name = "Label154" + Me.Label154.Size = New System.Drawing.Size(10, 17) + Me.Label154.TabIndex = 187 + Me.Label154.Text = "-" + Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label155 + ' + Me.Label155.BackColor = System.Drawing.Color.Transparent + Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label155.ForeColor = System.Drawing.Color.Black + Me.Label155.Location = New System.Drawing.Point(12, 42) + Me.Label155.Name = "Label155" + Me.Label155.Size = New System.Drawing.Size(151, 17) + Me.Label155.TabIndex = 186 + Me.Label155.Text = "Stroking Time:" + Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskStrokesMax + ' + Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) + Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" + Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokesMax.TabIndex = 184 + Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax + ' + 'NBTaskStrokesMin + ' + Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) + Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" + Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokesMin.TabIndex = 183 + Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin + ' + 'Label146 + ' + Me.Label146.BackColor = System.Drawing.Color.Transparent + Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label146.ForeColor = System.Drawing.Color.Black + Me.Label146.Location = New System.Drawing.Point(167, 18) + Me.Label146.Name = "Label146" + Me.Label146.Size = New System.Drawing.Size(10, 17) + Me.Label146.TabIndex = 182 + Me.Label146.Text = "-" + Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label149 + ' + Me.Label149.BackColor = System.Drawing.Color.Transparent + Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label149.ForeColor = System.Drawing.Color.Black + Me.Label149.Location = New System.Drawing.Point(12, 19) + Me.Label149.Name = "Label149" + Me.Label149.Size = New System.Drawing.Size(151, 17) + Me.Label149.TabIndex = 181 + Me.Label149.Text = "Strokes:" + Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Me.Label112) + Me.GroupBox10.Controls.Add(Me.NBNextImageChance) + Me.GroupBox10.Controls.Add(Me.Label6) + Me.GroupBox10.Location = New System.Drawing.Point(408, 31) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(291, 54) + Me.GroupBox10.TabIndex = 170 + Me.GroupBox10.TabStop = False + Me.GroupBox10.Text = "Tease Slideshow" + ' + 'Label112 + ' + Me.Label112.BackColor = System.Drawing.Color.Transparent + Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label112.ForeColor = System.Drawing.Color.Black + Me.Label112.Location = New System.Drawing.Point(233, 21) + Me.Label112.Name = "Label112" + Me.Label112.Size = New System.Drawing.Size(50, 17) + Me.Label112.TabIndex = 180 + Me.Label112.Text = "percent" + Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBNextImageChance + ' + Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) + Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBNextImageChance.Name = "NBNextImageChance" + Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) + Me.NBNextImageChance.TabIndex = 179 + Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label6 + ' + Me.Label6.BackColor = System.Drawing.Color.Transparent + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.ForeColor = System.Drawing.Color.Black + Me.Label6.Location = New System.Drawing.Point(9, 21) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(151, 17) + Me.Label6.TabIndex = 154 + Me.Label6.Text = "Image Next/Previous Chance:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox57 + ' + Me.GroupBox57.Controls.Add(Me.Label139) + Me.GroupBox57.Controls.Add(Me.NBTauntEdging) + Me.GroupBox57.Controls.Add(Me.LBLVtf) + Me.GroupBox57.Controls.Add(Me.LBLStf) + Me.GroupBox57.Controls.Add(Me.SliderSTF) + Me.GroupBox57.Controls.Add(Me.TauntSlider) + Me.GroupBox57.Controls.Add(Me.Label106) + Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) + Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) + Me.GroupBox57.Controls.Add(Me.Label103) + Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) + Me.GroupBox57.Controls.Add(Me.Label105) + Me.GroupBox57.Controls.Add(Me.Label101) + Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) + Me.GroupBox57.Controls.Add(Me.Label102) + Me.GroupBox57.Controls.Add(Me.Label97) + Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) + Me.GroupBox57.Controls.Add(Me.Label99) + Me.GroupBox57.Controls.Add(Me.Label96) + Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) + Me.GroupBox57.Controls.Add(Me.Label95) + Me.GroupBox57.Controls.Add(Me.Label49) + Me.GroupBox57.Controls.Add(Me.Label141) + Me.GroupBox57.Location = New System.Drawing.Point(7, 30) + Me.GroupBox57.Name = "GroupBox57" + Me.GroupBox57.Size = New System.Drawing.Size(223, 308) + Me.GroupBox57.TabIndex = 169 + Me.GroupBox57.TabStop = False + Me.GroupBox57.Text = "Tease" + ' + 'Label139 + ' + Me.Label139.BackColor = System.Drawing.Color.Transparent + Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label139.ForeColor = System.Drawing.Color.Black + Me.Label139.Location = New System.Drawing.Point(175, 171) + Me.Label139.Name = "Label139" + Me.Label139.Size = New System.Drawing.Size(50, 17) + Me.Label139.TabIndex = 184 + Me.Label139.Text = "percent" + Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTauntEdging + ' + Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) + Me.NBTauntEdging.Name = "NBTauntEdging" + Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) + Me.NBTauntEdging.TabIndex = 188 + Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) + ' + 'LBLVtf + ' + Me.LBLVtf.BackColor = System.Drawing.Color.Transparent + Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLVtf.ForeColor = System.Drawing.Color.Black + Me.LBLVtf.Location = New System.Drawing.Point(128, 261) + Me.LBLVtf.Name = "LBLVtf" + Me.LBLVtf.Size = New System.Drawing.Size(87, 17) + Me.LBLVtf.TabIndex = 187 + Me.LBLVtf.Text = "Normal" + Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLStf + ' + Me.LBLStf.BackColor = System.Drawing.Color.Transparent + Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLStf.ForeColor = System.Drawing.Color.Black + Me.LBLStf.Location = New System.Drawing.Point(130, 220) + Me.LBLStf.Name = "LBLStf" + Me.LBLStf.Size = New System.Drawing.Size(87, 17) + Me.LBLStf.TabIndex = 165 + Me.LBLStf.Text = "Normal" + Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'SliderSTF + ' + Me.SliderSTF.AutoSize = False + Me.SliderSTF.LargeChange = 1 + Me.SliderSTF.Location = New System.Drawing.Point(130, 199) + Me.SliderSTF.Maximum = 5 + Me.SliderSTF.Minimum = 1 + Me.SliderSTF.Name = "SliderSTF" + Me.SliderSTF.Size = New System.Drawing.Size(87, 25) + Me.SliderSTF.TabIndex = 163 + Me.SliderSTF.Value = 3 + ' + 'TauntSlider + ' + Me.TauntSlider.AutoSize = False + Me.TauntSlider.LargeChange = 1 + Me.TauntSlider.Location = New System.Drawing.Point(130, 240) + Me.TauntSlider.Maximum = 9 + Me.TauntSlider.Minimum = 1 + Me.TauntSlider.Name = "TauntSlider" + Me.TauntSlider.Size = New System.Drawing.Size(87, 25) + Me.TauntSlider.TabIndex = 161 + Me.TauntSlider.Value = 4 + ' + 'Label106 + ' + Me.Label106.BackColor = System.Drawing.Color.Transparent + Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label106.ForeColor = System.Drawing.Color.Black + Me.Label106.Location = New System.Drawing.Point(6, 243) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(123, 17) + Me.Label106.TabIndex = 186 + Me.Label106.Text = "Video Taunt Frequency:" + Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBTauntCycleDD + ' + Me.CBTauntCycleDD.AutoSize = True + Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black + Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) + Me.CBTauntCycleDD.Name = "CBTauntCycleDD" + Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) + Me.CBTauntCycleDD.TabIndex = 185 + Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" + Me.CBTauntCycleDD.UseVisualStyleBackColor = True + ' + 'CBTeaseLengthDD + ' + Me.CBTeaseLengthDD.AutoSize = True + Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black + Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) + Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" + Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) + Me.CBTeaseLengthDD.TabIndex = 184 + Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" + Me.CBTeaseLengthDD.UseVisualStyleBackColor = True + ' + 'Label103 + ' + Me.Label103.BackColor = System.Drawing.Color.Transparent + Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label103.ForeColor = System.Drawing.Color.Black + Me.Label103.Location = New System.Drawing.Point(175, 117) + Me.Label103.Name = "Label103" + Me.Label103.Size = New System.Drawing.Size(50, 17) + Me.Label103.TabIndex = 183 + Me.Label103.Text = "minutes" + Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTauntCycleMax + ' + Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) + Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) + Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBTauntCycleMax.Name = "NBTauntCycleMax" + Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) + Me.NBTauntCycleMax.TabIndex = 182 + Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'Label105 + ' + Me.Label105.BackColor = System.Drawing.Color.Transparent + Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label105.ForeColor = System.Drawing.Color.Black + Me.Label105.Location = New System.Drawing.Point(6, 117) + Me.Label105.Name = "Label105" + Me.Label105.Size = New System.Drawing.Size(123, 17) + Me.Label105.TabIndex = 181 + Me.Label105.Text = "Taunt Cycle Maximum:" + Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label101 + ' + Me.Label101.BackColor = System.Drawing.Color.Transparent + Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label101.ForeColor = System.Drawing.Color.Black + Me.Label101.Location = New System.Drawing.Point(175, 93) + Me.Label101.Name = "Label101" + Me.Label101.Size = New System.Drawing.Size(50, 17) + Me.Label101.TabIndex = 180 + Me.Label101.Text = "minutes" + Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTauntCycleMin + ' + Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) + Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTauntCycleMin.Name = "NBTauntCycleMin" + Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) + Me.NBTauntCycleMin.TabIndex = 179 + Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'Label102 + ' + Me.Label102.BackColor = System.Drawing.Color.Transparent + Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label102.ForeColor = System.Drawing.Color.Black + Me.Label102.Location = New System.Drawing.Point(6, 93) + Me.Label102.Name = "Label102" + Me.Label102.Size = New System.Drawing.Size(123, 17) + Me.Label102.TabIndex = 178 + Me.Label102.Text = "Taunt Cycle Minimum:" + Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label97 + ' + Me.Label97.BackColor = System.Drawing.Color.Transparent + Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label97.ForeColor = System.Drawing.Color.Black + Me.Label97.Location = New System.Drawing.Point(175, 46) + Me.Label97.Name = "Label97" + Me.Label97.Size = New System.Drawing.Size(50, 17) + Me.Label97.TabIndex = 177 + Me.Label97.Text = "minutes" + Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTeaseLengthMax + ' + Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) + Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) + Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" + Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) + Me.NBTeaseLengthMax.TabIndex = 176 + Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label99 + ' + Me.Label99.BackColor = System.Drawing.Color.Transparent + Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label99.ForeColor = System.Drawing.Color.Black + Me.Label99.Location = New System.Drawing.Point(6, 46) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(123, 17) + Me.Label99.TabIndex = 175 + Me.Label99.Text = "Tease Length Maximum:" + Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label96 + ' + Me.Label96.BackColor = System.Drawing.Color.Transparent + Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label96.ForeColor = System.Drawing.Color.Black + Me.Label96.Location = New System.Drawing.Point(175, 20) + Me.Label96.Name = "Label96" + Me.Label96.Size = New System.Drawing.Size(50, 17) + Me.Label96.TabIndex = 174 + Me.Label96.Text = "minutes" + Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTeaseLengthMin + ' + Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) + Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) + Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" + Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) + Me.NBTeaseLengthMin.TabIndex = 169 + Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) + ' + 'Label95 + ' + Me.Label95.BackColor = System.Drawing.Color.Transparent + Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label95.ForeColor = System.Drawing.Color.Black + Me.Label95.Location = New System.Drawing.Point(6, 20) + Me.Label95.Name = "Label95" + Me.Label95.Size = New System.Drawing.Size(123, 17) + Me.Label95.TabIndex = 166 + Me.Label95.Text = "Tease Length Minimum:" + Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label49 + ' + Me.Label49.BackColor = System.Drawing.Color.Transparent + Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label49.ForeColor = System.Drawing.Color.Black + Me.Label49.Location = New System.Drawing.Point(6, 207) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(132, 17) + Me.Label49.TabIndex = 164 + Me.Label49.Text = "Stroke Taunt Frequency:" + Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label141 + ' + Me.Label141.BackColor = System.Drawing.Color.Transparent + Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label141.ForeColor = System.Drawing.Color.Black + Me.Label141.Location = New System.Drawing.Point(6, 163) + Me.Label141.Name = "Label141" + Me.Label141.Size = New System.Drawing.Size(141, 32) + Me.Label141.TabIndex = 189 + Me.Label141.Text = "Edging Ends Taunts:" + Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GBRangeRuinChance + ' + Me.GBRangeRuinChance.Controls.Add(Me.Label90) + Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) + Me.GBRangeRuinChance.Controls.Add(Me.Label91) + Me.GBRangeRuinChance.Controls.Add(Me.Label92) + Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) + Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) + Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) + Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) + Me.GBRangeRuinChance.Name = "GBRangeRuinChance" + Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) + Me.GBRangeRuinChance.TabIndex = 168 + Me.GBRangeRuinChance.TabStop = False + Me.GBRangeRuinChance.Text = "Ruin Chance" + ' + 'Label90 + ' + Me.Label90.BackColor = System.Drawing.Color.Transparent + Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label90.ForeColor = System.Drawing.Color.Black + Me.Label90.Location = New System.Drawing.Point(6, 94) + Me.Label90.Name = "Label90" + Me.Label90.Size = New System.Drawing.Size(83, 17) + Me.Label90.TabIndex = 173 + Me.Label90.Text = "Rarely Ruins:" + Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBRuinSometimes + ' + Me.NBRuinSometimes.Enabled = False + Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) + Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBRuinSometimes.Name = "NBRuinSometimes" + Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) + Me.NBRuinSometimes.TabIndex = 169 + Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) + ' + 'Label91 + ' + Me.Label91.BackColor = System.Drawing.Color.Transparent + Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label91.ForeColor = System.Drawing.Color.Black + Me.Label91.Location = New System.Drawing.Point(6, 68) + Me.Label91.Name = "Label91" + Me.Label91.Size = New System.Drawing.Size(102, 17) + Me.Label91.TabIndex = 172 + Me.Label91.Text = "Sometimes Ruins:" + Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label92 + ' + Me.Label92.BackColor = System.Drawing.Color.Transparent + Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label92.ForeColor = System.Drawing.Color.Black + Me.Label92.Location = New System.Drawing.Point(6, 42) + Me.Label92.Name = "Label92" + Me.Label92.Size = New System.Drawing.Size(72, 17) + Me.Label92.TabIndex = 171 + Me.Label92.Text = "Often Ruins:" + Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBRuinRarely + ' + Me.NBRuinRarely.Enabled = False + Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) + Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBRuinRarely.Name = "NBRuinRarely" + Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) + Me.NBRuinRarely.TabIndex = 170 + Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) + ' + 'NBRuinOften + ' + Me.NBRuinOften.Enabled = False + Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) + Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBRuinOften.Name = "NBRuinOften" + Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) + Me.NBRuinOften.TabIndex = 168 + Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) + ' + 'CBRangeRuin + ' + Me.CBRangeRuin.AutoSize = True + Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black + Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) + Me.CBRangeRuin.Name = "CBRangeRuin" + Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) + Me.CBRangeRuin.TabIndex = 159 + Me.CBRangeRuin.Text = "Domme Decide" + Me.CBRangeRuin.UseVisualStyleBackColor = True + ' + 'GroupBox17 + ' + Me.GroupBox17.Controls.Add(Me.GroupBox19) + Me.GroupBox17.Controls.Add(Me.GroupBox18) + Me.GroupBox17.Location = New System.Drawing.Point(408, 91) + Me.GroupBox17.Name = "GroupBox17" + Me.GroupBox17.Size = New System.Drawing.Size(291, 190) + Me.GroupBox17.TabIndex = 0 + Me.GroupBox17.TabStop = False + Me.GroupBox17.Text = "Video Teases" + ' + 'GroupBox19 + ' + Me.GroupBox19.Controls.Add(Me.Label110) + Me.GroupBox19.Controls.Add(Me.Label111) + Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) + Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) + Me.GroupBox19.Controls.Add(Me.NBRedLightMax) + Me.GroupBox19.Controls.Add(Me.Label26) + Me.GroupBox19.Controls.Add(Me.NBRedLightMin) + Me.GroupBox19.Controls.Add(Me.Label28) + Me.GroupBox19.Controls.Add(Me.Label27) + Me.GroupBox19.Controls.Add(Me.Label29) + Me.GroupBox19.Location = New System.Drawing.Point(6, 110) + Me.GroupBox19.Name = "GroupBox19" + Me.GroupBox19.Size = New System.Drawing.Size(279, 66) + Me.GroupBox19.TabIndex = 2 + Me.GroupBox19.TabStop = False + Me.GroupBox19.Text = "Red Light, Green Light" + ' + 'Label110 + ' + Me.Label110.BackColor = System.Drawing.Color.Transparent + Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label110.ForeColor = System.Drawing.Color.Black + Me.Label110.Location = New System.Drawing.Point(227, 39) + Me.Label110.Name = "Label110" + Me.Label110.Size = New System.Drawing.Size(50, 17) + Me.Label110.TabIndex = 181 + Me.Label110.Text = "seconds" + Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label111 + ' + Me.Label111.BackColor = System.Drawing.Color.Transparent + Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label111.ForeColor = System.Drawing.Color.Black + Me.Label111.Location = New System.Drawing.Point(227, 16) + Me.Label111.Name = "Label111" + Me.Label111.Size = New System.Drawing.Size(50, 17) + Me.Label111.TabIndex = 180 + Me.Label111.Text = "seconds" + Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBGreenLightMax + ' + Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) + Me.NBGreenLightMax.Name = "NBGreenLightMax" + Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) + Me.NBGreenLightMax.TabIndex = 156 + Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'NBGreenLightMin + ' + Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) + Me.NBGreenLightMin.Name = "NBGreenLightMin" + Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) + Me.NBGreenLightMin.TabIndex = 155 + Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) + ' + 'NBRedLightMax + ' + Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) + Me.NBRedLightMax.Name = "NBRedLightMax" + Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) + Me.NBRedLightMax.TabIndex = 152 + Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) + ' + 'Label26 + ' + Me.Label26.BackColor = System.Drawing.Color.Transparent + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.ForeColor = System.Drawing.Color.Black + Me.Label26.Location = New System.Drawing.Point(161, 38) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(10, 17) + Me.Label26.TabIndex = 154 + Me.Label26.Text = "-" + Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBRedLightMin + ' + Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) + Me.NBRedLightMin.Name = "NBRedLightMin" + Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) + Me.NBRedLightMin.TabIndex = 151 + Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'Label28 + ' + Me.Label28.BackColor = System.Drawing.Color.Transparent + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.ForeColor = System.Drawing.Color.Black + Me.Label28.Location = New System.Drawing.Point(161, 15) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(10, 17) + Me.Label28.TabIndex = 150 + Me.Label28.Text = "-" + Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label27 + ' + Me.Label27.BackColor = System.Drawing.Color.Transparent + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.ForeColor = System.Drawing.Color.Black + Me.Label27.Location = New System.Drawing.Point(6, 39) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(151, 17) + Me.Label27.TabIndex = 153 + Me.Label27.Text = "Green Light Time:" + Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label29 + ' + Me.Label29.BackColor = System.Drawing.Color.Transparent + Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label29.ForeColor = System.Drawing.Color.Black + Me.Label29.Location = New System.Drawing.Point(6, 16) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(151, 17) + Me.Label29.TabIndex = 149 + Me.Label29.Text = "Red Light Time:" + Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox18 + ' + Me.GroupBox18.Controls.Add(Me.Label108) + Me.GroupBox18.Controls.Add(Me.Label109) + Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) + Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) + Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) + Me.GroupBox18.Controls.Add(Me.CBCensorConstant) + Me.GroupBox18.Controls.Add(Me.Label25) + Me.GroupBox18.Controls.Add(Me.Label20) + Me.GroupBox18.Controls.Add(Me.Label19) + Me.GroupBox18.Controls.Add(Me.Label24) + Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) + Me.GroupBox18.Location = New System.Drawing.Point(6, 16) + Me.GroupBox18.Name = "GroupBox18" + Me.GroupBox18.Size = New System.Drawing.Size(279, 88) + Me.GroupBox18.TabIndex = 1 + Me.GroupBox18.TabStop = False + Me.GroupBox18.Text = "Censorship Sucks" + ' + 'Label108 + ' + Me.Label108.BackColor = System.Drawing.Color.Transparent + Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label108.ForeColor = System.Drawing.Color.Black + Me.Label108.Location = New System.Drawing.Point(227, 39) + Me.Label108.Name = "Label108" + Me.Label108.Size = New System.Drawing.Size(50, 17) + Me.Label108.TabIndex = 179 + Me.Label108.Text = "seconds" + Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label109 + ' + Me.Label109.BackColor = System.Drawing.Color.Transparent + Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label109.ForeColor = System.Drawing.Color.Black + Me.Label109.Location = New System.Drawing.Point(227, 16) + Me.Label109.Name = "Label109" + Me.Label109.Size = New System.Drawing.Size(50, 17) + Me.Label109.TabIndex = 178 + Me.Label109.Text = "seconds" + Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBCensorShowMin + ' + Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) + Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) + Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorShowMin.Name = "NBCensorShowMin" + Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) + Me.NBCensorShowMin.TabIndex = 151 + Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin + ' + 'NBCensorHideMax + ' + Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) + Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) + Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorHideMax.Name = "NBCensorHideMax" + Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) + Me.NBCensorHideMax.TabIndex = 156 + Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax + ' + 'NBCensorHideMin + ' + Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) + Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) + Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorHideMin.Name = "NBCensorHideMin" + Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) + Me.NBCensorHideMin.TabIndex = 155 + Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin + ' + 'CBCensorConstant + ' + Me.CBCensorConstant.AutoSize = True + Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant + Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black + Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) + Me.CBCensorConstant.Name = "CBCensorConstant" + Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) + Me.CBCensorConstant.TabIndex = 157 + Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" + Me.CBCensorConstant.UseVisualStyleBackColor = True + ' + 'Label25 + ' + Me.Label25.BackColor = System.Drawing.Color.Transparent + Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.ForeColor = System.Drawing.Color.Black + Me.Label25.Location = New System.Drawing.Point(161, 15) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(10, 17) + Me.Label25.TabIndex = 150 + Me.Label25.Text = "-" + Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label20 + ' + Me.Label20.BackColor = System.Drawing.Color.Transparent + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.ForeColor = System.Drawing.Color.Black + Me.Label20.Location = New System.Drawing.Point(6, 39) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(110, 17) + Me.Label20.TabIndex = 153 + Me.Label20.Text = "Censor Bar Hidden:" + Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Me.Label19.BackColor = System.Drawing.Color.Transparent + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.ForeColor = System.Drawing.Color.Black + Me.Label19.Location = New System.Drawing.Point(161, 38) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(10, 17) + Me.Label19.TabIndex = 154 + Me.Label19.Text = "-" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label24 + ' + Me.Label24.BackColor = System.Drawing.Color.Transparent + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.ForeColor = System.Drawing.Color.Black + Me.Label24.Location = New System.Drawing.Point(6, 16) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(110, 17) + Me.Label24.TabIndex = 149 + Me.Label24.Text = "Censor Bar Shown:" + Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBCensorShowMax + ' + Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) + Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) + Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorShowMax.Name = "NBCensorShowMax" + Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) + Me.NBCensorShowMax.TabIndex = 152 + Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax + ' + 'GBRangeOrgasmChance + ' + Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) + Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) + Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) + Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) + Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) + Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) + Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) + Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) + Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" + Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) + Me.GBRangeOrgasmChance.TabIndex = 167 + Me.GBRangeOrgasmChance.TabStop = False + Me.GBRangeOrgasmChance.Text = "Orgasm Chance" + ' + 'Label89 + ' + Me.Label89.BackColor = System.Drawing.Color.Transparent + Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label89.ForeColor = System.Drawing.Color.Black + Me.Label89.Location = New System.Drawing.Point(6, 94) + Me.Label89.Name = "Label89" + Me.Label89.Size = New System.Drawing.Size(83, 17) + Me.Label89.TabIndex = 173 + Me.Label89.Text = "Rarely Allows:" + Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBAllowSometimes + ' + Me.NBAllowSometimes.Enabled = False + Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) + Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBAllowSometimes.Name = "NBAllowSometimes" + Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) + Me.NBAllowSometimes.TabIndex = 169 + Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) + ' + 'Label86 + ' + Me.Label86.BackColor = System.Drawing.Color.Transparent + Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label86.ForeColor = System.Drawing.Color.Black + Me.Label86.Location = New System.Drawing.Point(6, 68) + Me.Label86.Name = "Label86" + Me.Label86.Size = New System.Drawing.Size(102, 17) + Me.Label86.TabIndex = 172 + Me.Label86.Text = "Sometimes Allows:" + Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label82 + ' + Me.Label82.BackColor = System.Drawing.Color.Transparent + Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label82.ForeColor = System.Drawing.Color.Black + Me.Label82.Location = New System.Drawing.Point(6, 42) + Me.Label82.Name = "Label82" + Me.Label82.Size = New System.Drawing.Size(83, 17) + Me.Label82.TabIndex = 171 + Me.Label82.Text = "Often Allows:" + Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBAllowRarely + ' + Me.NBAllowRarely.Enabled = False + Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) + Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBAllowRarely.Name = "NBAllowRarely" + Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) + Me.NBAllowRarely.TabIndex = 170 + Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) + ' + 'NBAllowOften + ' + Me.NBAllowOften.Enabled = False + Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) + Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBAllowOften.Name = "NBAllowOften" + Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) + Me.NBAllowOften.TabIndex = 168 + Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) + ' + 'CBRangeOrgasm + ' + Me.CBRangeOrgasm.AutoSize = True + Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black + Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) + Me.CBRangeOrgasm.Name = "CBRangeOrgasm" + Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) + Me.CBRangeOrgasm.TabIndex = 159 + Me.CBRangeOrgasm.Text = "Domme Decide" + Me.CBRangeOrgasm.UseVisualStyleBackColor = True + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.LightGray + Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox8.Location = New System.Drawing.Point(9, 6) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(160, 19) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox8.TabIndex = 166 + Me.PictureBox8.TabStop = False + ' + 'Label38 + ' + Me.Label38.BackColor = System.Drawing.Color.Transparent + Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label38.ForeColor = System.Drawing.Color.Black + Me.Label38.Location = New System.Drawing.Point(7, 6) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(692, 21) + Me.Label38.TabIndex = 48 + Me.Label38.Text = "Range Settings" + Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage13 + ' + Me.TabPage13.BackColor = System.Drawing.Color.Silver + Me.TabPage13.Controls.Add(Me.TabControl2) + Me.TabPage13.Location = New System.Drawing.Point(4, 22) + Me.TabPage13.Name = "TabPage13" + Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage13.Size = New System.Drawing.Size(720, 448) + Me.TabPage13.TabIndex = 13 + Me.TabPage13.Text = "Modding" + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage27) + Me.TabControl2.Controls.Add(Me.TabPage14) + Me.TabControl2.Controls.Add(Me.TabPage24) + Me.TabControl2.Controls.Add(Me.TabPage8) + Me.TabControl2.Controls.Add(Me.TabPage15) + Me.TabControl2.Location = New System.Drawing.Point(6, 6) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(708, 437) + Me.TabControl2.TabIndex = 0 + ' + 'TabPage27 + ' + Me.TabPage27.BackColor = System.Drawing.Color.LightGray + Me.TabPage27.Controls.Add(Me.TBPlaylistSave) + Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) + Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) + Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) + Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) + Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) + Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) + Me.TabPage27.Controls.Add(Me.Button7) + Me.TabPage27.Controls.Add(Me.WBPlaylist) + Me.TabPage27.Controls.Add(Me.Label80) + Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) + Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) + Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) + Me.TabPage27.Controls.Add(Me.LBPlaylist) + Me.TabPage27.Location = New System.Drawing.Point(4, 22) + Me.TabPage27.Name = "TabPage27" + Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage27.Size = New System.Drawing.Size(700, 411) + Me.TabPage27.TabIndex = 5 + Me.TabPage27.Text = "Playlists" + ' + 'TBPlaylistSave + ' + Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) + Me.TBPlaylistSave.Name = "TBPlaylistSave" + Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) + Me.TBPlaylistSave.TabIndex = 203 + ' + 'BTNPlaylistCtrlZ + ' + Me.BTNPlaylistCtrlZ.Enabled = False + Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) + Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" + Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) + Me.BTNPlaylistCtrlZ.TabIndex = 202 + Me.BTNPlaylistCtrlZ.Text = "Undo" + Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = True + ' + 'RadioPlaylistRegScripts + ' + Me.RadioPlaylistRegScripts.AutoSize = True + Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) + Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" + Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) + Me.RadioPlaylistRegScripts.TabIndex = 201 + Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" + Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = True + ' + 'RadioPlaylistScripts + ' + Me.RadioPlaylistScripts.AutoSize = True + Me.RadioPlaylistScripts.Checked = True + Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) + Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" + Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) + Me.RadioPlaylistScripts.TabIndex = 200 + Me.RadioPlaylistScripts.TabStop = True + Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" + Me.RadioPlaylistScripts.UseVisualStyleBackColor = True + ' + 'BTNPlaylistEnd + ' + Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray + Me.BTNPlaylistEnd.Enabled = False + Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black + Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) + Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" + Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) + Me.BTNPlaylistEnd.TabIndex = 199 + Me.BTNPlaylistEnd.Text = "End" + Me.BTNPlaylistEnd.UseVisualStyleBackColor = False + ' + 'BTNPlaylistClearAll + ' + Me.BTNPlaylistClearAll.Enabled = False + Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) + Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" + Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) + Me.BTNPlaylistClearAll.TabIndex = 198 + Me.BTNPlaylistClearAll.Text = "Clear All" + Me.BTNPlaylistClearAll.UseVisualStyleBackColor = True + ' + 'BTNPlaylistSave + ' + Me.BTNPlaylistSave.Enabled = False + Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) + Me.BTNPlaylistSave.Name = "BTNPlaylistSave" + Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) + Me.BTNPlaylistSave.TabIndex = 197 + Me.BTNPlaylistSave.Text = "Save" + Me.BTNPlaylistSave.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(213, 21) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(78, 23) + Me.Button7.TabIndex = 196 + Me.Button7.Text = "Add Random" + Me.Button7.UseVisualStyleBackColor = True + ' + 'WBPlaylist + ' + Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) + Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) + Me.WBPlaylist.Name = "WBPlaylist" + Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) + Me.WBPlaylist.TabIndex = 195 + ' + 'Label80 + ' + Me.Label80.AutoSize = True + Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label80.Location = New System.Drawing.Point(410, 27) + Me.Label80.Name = "Label80" + Me.Label80.Size = New System.Drawing.Size(47, 13) + Me.Label80.TabIndex = 194 + Me.Label80.Text = "Playlist" + ' + 'LBLPlaylIstLink + ' + Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLPlaylIstLink.Enabled = False + Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) + Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" + Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) + Me.LBLPlaylIstLink.TabIndex = 193 + Me.LBLPlaylIstLink.Text = "Link" + Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLPlaylistModule + ' + Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLPlaylistModule.Enabled = False + Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) + Me.LBLPlaylistModule.Name = "LBLPlaylistModule" + Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) + Me.LBLPlaylistModule.TabIndex = 192 + Me.LBLPlaylistModule.Text = "Module" + Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLPLaylistStart + ' + Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green + Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White + Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) + Me.LBLPLaylistStart.Name = "LBLPLaylistStart" + Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) + Me.LBLPLaylistStart.TabIndex = 190 + Me.LBLPLaylistStart.Text = "Start" + Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBPlaylist + ' + Me.LBPlaylist.AllowDrop = True + Me.LBPlaylist.FormattingEnabled = True + Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) + Me.LBPlaylist.Name = "LBPlaylist" + Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) + Me.LBPlaylist.TabIndex = 189 + ' + 'TabPage14 + ' + Me.TabPage14.BackColor = System.Drawing.Color.LightGray + Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) + Me.TabPage14.Controls.Add(Me.Label88) + Me.TabPage14.Controls.Add(Me.TBKeywordPreview) + Me.TabPage14.Controls.Add(Me.Button37) + Me.TabPage14.Controls.Add(Me.Button50) + Me.TabPage14.Controls.Add(Me.Button22) + Me.TabPage14.Controls.Add(Me.TBKeyWords) + Me.TabPage14.Controls.Add(Me.LBKeyWords) + Me.TabPage14.Controls.Add(Me.RTBKeyWords) + Me.TabPage14.Location = New System.Drawing.Point(4, 22) + Me.TabPage14.Name = "TabPage14" + Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage14.Size = New System.Drawing.Size(700, 411) + Me.TabPage14.TabIndex = 0 + Me.TabPage14.Text = "Keywords" + ' + 'LBLKeywordPreview + ' + Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) + Me.LBLKeywordPreview.Name = "LBLKeywordPreview" + Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) + Me.LBLKeywordPreview.TabIndex = 174 + Me.LBLKeywordPreview.Text = "Get Preview Here" + Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label88 + ' + Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Label88.Location = New System.Drawing.Point(3, 358) + Me.Label88.Name = "Label88" + Me.Label88.Size = New System.Drawing.Size(194, 53) + Me.Label88.TabIndex = 173 + Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence" & + " the domme return." + Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBKeywordPreview + ' + Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) + Me.TBKeywordPreview.Name = "TBKeywordPreview" + Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) + Me.TBKeywordPreview.TabIndex = 172 + Me.TBKeywordPreview.Text = "Enter Line Here" + Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Button37 + ' + Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button37.Location = New System.Drawing.Point(638, 358) + Me.Button37.Name = "Button37" + Me.Button37.Size = New System.Drawing.Size(47, 50) + Me.Button37.TabIndex = 171 + Me.Button37.Text = "#" + Me.Button37.UseVisualStyleBackColor = True + ' + 'Button50 + ' + Me.Button50.Location = New System.Drawing.Point(6, 10) + Me.Button50.Name = "Button50" + Me.Button50.Size = New System.Drawing.Size(194, 23) + Me.Button50.TabIndex = 169 + Me.Button50.Text = "Refresh and Clear Keyword List" + Me.Button50.UseVisualStyleBackColor = True + ' + 'Button22 + ' + Me.Button22.Location = New System.Drawing.Point(638, 10) + Me.Button22.Name = "Button22" + Me.Button22.Size = New System.Drawing.Size(47, 23) + Me.Button22.TabIndex = 167 + Me.Button22.Text = "Save" + Me.Button22.UseVisualStyleBackColor = True + ' + 'TBKeyWords + ' + Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) + Me.TBKeyWords.Name = "TBKeyWords" + Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) + Me.TBKeyWords.TabIndex = 166 + ' + 'LBKeyWords + ' + Me.LBKeyWords.FormattingEnabled = True + Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) + Me.LBKeyWords.Name = "LBKeyWords" + Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) + Me.LBKeyWords.Sorted = True + Me.LBKeyWords.TabIndex = 165 + ' + 'RTBKeyWords + ' + Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) + Me.RTBKeyWords.Name = "RTBKeyWords" + Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) + Me.RTBKeyWords.TabIndex = 164 + Me.RTBKeyWords.Text = "" + ' + 'TabPage24 + ' + Me.TabPage24.BackColor = System.Drawing.Color.LightGray + Me.TabPage24.Controls.Add(Me.Button9) + Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) + Me.TabPage24.Controls.Add(Me.Button4) + Me.TabPage24.Controls.Add(Me.Button5) + Me.TabPage24.Controls.Add(Me.TBResponses) + Me.TabPage24.Controls.Add(Me.LBResponses) + Me.TabPage24.Controls.Add(Me.RTBResponses) + Me.TabPage24.Location = New System.Drawing.Point(4, 22) + Me.TabPage24.Name = "TabPage24" + Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage24.Size = New System.Drawing.Size(700, 411) + Me.TabPage24.TabIndex = 3 + Me.TabPage24.Text = "Responses" + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(217, 10) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(215, 23) + Me.Button9.TabIndex = 176 + Me.Button9.Text = "Response Template" + Me.Button9.UseVisualStyleBackColor = True + ' + 'RTBResponsesKEY + ' + Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) + Me.RTBResponsesKEY.Name = "RTBResponsesKEY" + Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) + Me.RTBResponsesKEY.TabIndex = 175 + Me.RTBResponsesKEY.Text = "" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(6, 10) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(194, 23) + Me.Button4.TabIndex = 174 + Me.Button4.Text = "Refresh and Clear Response List" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(638, 10) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(47, 23) + Me.Button5.TabIndex = 173 + Me.Button5.Text = "Save" + Me.Button5.UseVisualStyleBackColor = True + ' + 'TBResponses + ' + Me.TBResponses.Location = New System.Drawing.Point(438, 10) + Me.TBResponses.Name = "TBResponses" + Me.TBResponses.Size = New System.Drawing.Size(194, 20) + Me.TBResponses.TabIndex = 172 + ' + 'LBResponses + ' + Me.LBResponses.FormattingEnabled = True + Me.LBResponses.Location = New System.Drawing.Point(6, 36) + Me.LBResponses.Name = "LBResponses" + Me.LBResponses.Size = New System.Drawing.Size(194, 355) + Me.LBResponses.Sorted = True + Me.LBResponses.TabIndex = 171 + ' + 'RTBResponses + ' + Me.RTBResponses.Location = New System.Drawing.Point(217, 82) + Me.RTBResponses.Name = "RTBResponses" + Me.RTBResponses.Size = New System.Drawing.Size(468, 309) + Me.RTBResponses.TabIndex = 170 + Me.RTBResponses.Text = "" + ' + 'TabPage8 + ' + Me.TabPage8.BackColor = System.Drawing.Color.LightGray + Me.TabPage8.Controls.Add(Me.RTBVideoMod) + Me.TabPage8.Controls.Add(Me.GroupBox29) + Me.TabPage8.Controls.Add(Me.BTNVideoModClear) + Me.TabPage8.Controls.Add(Me.GroupBox28) + Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) + Me.TabPage8.Controls.Add(Me.GroupBox30) + Me.TabPage8.Controls.Add(Me.BTNVideoModSave) + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(700, 411) + Me.TabPage8.TabIndex = 2 + Me.TabPage8.Text = "Video" + ' + 'RTBVideoMod + ' + Me.RTBVideoMod.Enabled = False + Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) + Me.RTBVideoMod.Name = "RTBVideoMod" + Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) + Me.RTBVideoMod.TabIndex = 150 + Me.RTBVideoMod.Text = "" + ' + 'GroupBox29 + ' + Me.GroupBox29.BackColor = System.Drawing.Color.LightGray + Me.GroupBox29.Controls.Add(Me.Label51) + Me.GroupBox29.ForeColor = System.Drawing.Color.Black + Me.GroupBox29.Location = New System.Drawing.Point(6, 309) + Me.GroupBox29.Name = "GroupBox29" + Me.GroupBox29.Size = New System.Drawing.Size(692, 92) + Me.GroupBox29.TabIndex = 66 + Me.GroupBox29.TabStop = False + Me.GroupBox29.Text = "Description" + ' + 'Label51 + ' + Me.Label51.BackColor = System.Drawing.Color.Transparent + Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label51.ForeColor = System.Drawing.Color.Black + Me.Label51.Location = New System.Drawing.Point(6, 16) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(680, 73) + Me.Label51.TabIndex = 62 + Me.Label51.Text = resources.GetString("Label51.Text") + Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoModClear + ' + Me.BTNVideoModClear.Enabled = False + Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) + Me.BTNVideoModClear.Name = "BTNVideoModClear" + Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) + Me.BTNVideoModClear.TabIndex = 153 + Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" + Me.BTNVideoModClear.UseVisualStyleBackColor = True + ' + 'GroupBox28 + ' + Me.GroupBox28.Controls.Add(Me.CBVTType) + Me.GroupBox28.Location = New System.Drawing.Point(6, 8) + Me.GroupBox28.Name = "GroupBox28" + Me.GroupBox28.Size = New System.Drawing.Size(155, 46) + Me.GroupBox28.TabIndex = 148 + Me.GroupBox28.TabStop = False + Me.GroupBox28.Text = "Video Tease Type" + ' + 'CBVTType + ' + Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.CBVTType.FormattingEnabled = True + Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) + Me.CBVTType.Location = New System.Drawing.Point(9, 15) + Me.CBVTType.Name = "CBVTType" + Me.CBVTType.Size = New System.Drawing.Size(137, 21) + Me.CBVTType.TabIndex = 171 + ' + 'BTNVideoModLoad + ' + Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) + Me.BTNVideoModLoad.Name = "BTNVideoModLoad" + Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) + Me.BTNVideoModLoad.TabIndex = 152 + Me.BTNVideoModLoad.Text = "Load Script" + Me.BTNVideoModLoad.UseVisualStyleBackColor = True + ' + 'GroupBox30 + ' + Me.GroupBox30.Controls.Add(Me.LBVidScript) + Me.GroupBox30.Location = New System.Drawing.Point(6, 60) + Me.GroupBox30.Name = "GroupBox30" + Me.GroupBox30.Size = New System.Drawing.Size(155, 100) + Me.GroupBox30.TabIndex = 149 + Me.GroupBox30.TabStop = False + Me.GroupBox30.Text = "Script" + ' + 'LBVidScript + ' + Me.LBVidScript.FormattingEnabled = True + Me.LBVidScript.Location = New System.Drawing.Point(9, 20) + Me.LBVidScript.Name = "LBVidScript" + Me.LBVidScript.Size = New System.Drawing.Size(137, 69) + Me.LBVidScript.TabIndex = 0 + ' + 'BTNVideoModSave + ' + Me.BTNVideoModSave.Enabled = False + Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) + Me.BTNVideoModSave.Name = "BTNVideoModSave" + Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) + Me.BTNVideoModSave.TabIndex = 151 + Me.BTNVideoModSave.Text = "Save Changes" + Me.BTNVideoModSave.UseVisualStyleBackColor = True + ' + 'TabPage15 + ' + Me.TabPage15.BackColor = System.Drawing.Color.LightGray + Me.TabPage15.Controls.Add(Me.Label62) + Me.TabPage15.Controls.Add(Me.Label61) + Me.TabPage15.Controls.Add(Me.Label57) + Me.TabPage15.Controls.Add(Me.Label58) + Me.TabPage15.Controls.Add(Me.Label60) + Me.TabPage15.Controls.Add(Me.TBGlitModFileName) + Me.TabPage15.Controls.Add(Me.GroupBox34) + Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) + Me.TabPage15.Controls.Add(Me.Button26) + Me.TabPage15.Controls.Add(Me.Label56) + Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) + Me.TabPage15.Controls.Add(Me.LBGlitModScripts) + Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) + Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) + Me.TabPage15.Controls.Add(Me.Button29) + Me.TabPage15.Controls.Add(Me.CBGlitModType) + Me.TabPage15.Controls.Add(Me.Label59) + Me.TabPage15.Controls.Add(Me.Label50) + Me.TabPage15.Location = New System.Drawing.Point(4, 22) + Me.TabPage15.Name = "TabPage15" + Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage15.Size = New System.Drawing.Size(700, 411) + Me.TabPage15.TabIndex = 1 + Me.TabPage15.Text = "Glitter" + ' + 'Label62 + ' + Me.Label62.Location = New System.Drawing.Point(255, 169) + Me.Label62.Name = "Label62" + Me.Label62.Size = New System.Drawing.Size(59, 51) + Me.Label62.TabIndex = 177 + Me.Label62.Text = "@Cruel @Angry @Custom2" + Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label61 + ' + Me.Label61.Location = New System.Drawing.Point(194, 169) + Me.Label61.Name = "Label61" + Me.Label61.Size = New System.Drawing.Size(59, 51) + Me.Label61.TabIndex = 176 + Me.Label61.Text = "@Bratty @Caring @Custom1" + Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label57 + ' + Me.Label57.Location = New System.Drawing.Point(194, 11) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(120, 23) + Me.Label57.TabIndex = 160 + Me.Label57.Text = "File Name" + Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label58 + ' + Me.Label58.Location = New System.Drawing.Point(350, 11) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(326, 23) + Me.Label58.TabIndex = 161 + Me.Label58.Text = "Domme's Post" + Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label60 + ' + Me.Label60.Location = New System.Drawing.Point(194, 139) + Me.Label60.Name = "Label60" + Me.Label60.Size = New System.Drawing.Size(120, 30) + Me.Label60.TabIndex = 175 + Me.Label60.Text = "Tease Responses Need 3 of Each:" + Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBGlitModFileName + ' + Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) + Me.TBGlitModFileName.Name = "TBGlitModFileName" + Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) + Me.TBGlitModFileName.TabIndex = 158 + ' + 'GroupBox34 + ' + Me.GroupBox34.BackColor = System.Drawing.Color.LightGray + Me.GroupBox34.Controls.Add(Me.Label52) + Me.GroupBox34.ForeColor = System.Drawing.Color.Black + Me.GroupBox34.Location = New System.Drawing.Point(8, 296) + Me.GroupBox34.Name = "GroupBox34" + Me.GroupBox34.Size = New System.Drawing.Size(683, 107) + Me.GroupBox34.TabIndex = 66 + Me.GroupBox34.TabStop = False + Me.GroupBox34.Text = "Description" + ' + 'Label52 + ' + Me.Label52.BackColor = System.Drawing.Color.Transparent + Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label52.ForeColor = System.Drawing.Color.Black + Me.Label52.Location = New System.Drawing.Point(6, 16) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(670, 88) + Me.Label52.TabIndex = 62 + Me.Label52.Text = resources.GetString("Label52.Text") + Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'RTBGlitModDommePost + ' + Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) + Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" + Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) + Me.RTBGlitModDommePost.TabIndex = 162 + Me.RTBGlitModDommePost.Text = "" + ' + 'Button26 + ' + Me.Button26.Location = New System.Drawing.Point(194, 239) + Me.Button26.Name = "Button26" + Me.Button26.Size = New System.Drawing.Size(120, 23) + Me.Button26.TabIndex = 174 + Me.Button26.Text = "Clear Fields" + Me.Button26.UseVisualStyleBackColor = True + ' + 'Label56 + ' + Me.Label56.Location = New System.Drawing.Point(350, 80) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(324, 23) + Me.Label56.TabIndex = 156 + Me.Label56.Text = "Responses (Minimum 3)" + Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'RTBGlitModResponses + ' + Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) + Me.RTBGlitModResponses.Name = "RTBGlitModResponses" + Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) + Me.RTBGlitModResponses.TabIndex = 150 + Me.RTBGlitModResponses.Text = "" + ' + 'LBGlitModScripts + ' + Me.LBGlitModScripts.FormattingEnabled = True + Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) + Me.LBGlitModScripts.Name = "LBGlitModScripts" + Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) + Me.LBGlitModScripts.TabIndex = 163 + ' + 'LBLGlitModScriptCount + ' + Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) + Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" + Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) + Me.LBLGlitModScriptCount.TabIndex = 173 + Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" + Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitModDomType + ' + Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) + Me.LBLGlitModDomType.Name = "LBLGlitModDomType" + Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) + Me.LBLGlitModDomType.TabIndex = 155 + Me.LBLGlitModDomType.Text = "Total Brat" + Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Button29 + ' + Me.Button29.Location = New System.Drawing.Point(194, 268) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(120, 23) + Me.Button29.TabIndex = 151 + Me.Button29.Text = "Save Glitter File" + Me.Button29.UseVisualStyleBackColor = True + ' + 'CBGlitModType + ' + Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.CBGlitModType.FormattingEnabled = True + Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) + Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) + Me.CBGlitModType.Name = "CBGlitModType" + Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) + Me.CBGlitModType.TabIndex = 171 + ' + 'Label59 + ' + Me.Label59.Location = New System.Drawing.Point(33, 11) + Me.Label59.Name = "Label59" + Me.Label59.Size = New System.Drawing.Size(130, 23) + Me.Label59.TabIndex = 172 + Me.Label59.Text = "Glitter Post Type" + Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label50 + ' + Me.Label50.Location = New System.Drawing.Point(191, 80) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(123, 23) + Me.Label50.TabIndex = 154 + Me.Label50.Text = "Current Domme Personality:" + Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage25 + ' + Me.TabPage25.BackColor = System.Drawing.Color.Silver + Me.TabPage25.Controls.Add(Me.Panel11) + Me.TabPage25.Location = New System.Drawing.Point(4, 22) + Me.TabPage25.Name = "TabPage25" + Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage25.Size = New System.Drawing.Size(720, 448) + Me.TabPage25.TabIndex = 18 + Me.TabPage25.Text = "Misc" + ' + 'Panel11 + ' + Me.Panel11.BackColor = System.Drawing.Color.LightGray + Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel11.Controls.Add(Me.GroupBox62) + Me.Panel11.Controls.Add(Me.GroupBox33) + Me.Panel11.Controls.Add(Me.GroupBox8) + Me.Panel11.Controls.Add(Me.GroupBox27) + Me.Panel11.Controls.Add(Me.GroupBox20) + Me.Panel11.Controls.Add(Me.GroupBox15) + Me.Panel11.Controls.Add(Me.PictureBox9) + Me.Panel11.Controls.Add(Me.Label148) + Me.Panel11.Location = New System.Drawing.Point(6, 6) + Me.Panel11.Name = "Panel11" + Me.Panel11.Size = New System.Drawing.Size(708, 437) + Me.Panel11.TabIndex = 92 + ' + 'GroupBox62 + ' + Me.GroupBox62.Controls.Add(Me.RBGerman) + Me.GroupBox62.Controls.Add(Me.RBEnglish) + Me.GroupBox62.Location = New System.Drawing.Point(420, 155) + Me.GroupBox62.Name = "GroupBox62" + Me.GroupBox62.Size = New System.Drawing.Size(277, 56) + Me.GroupBox62.TabIndex = 178 + Me.GroupBox62.TabStop = False + Me.GroupBox62.Text = "Language" + ' + 'RBGerman + ' + Me.RBGerman.AutoSize = True + Me.RBGerman.Location = New System.Drawing.Point(180, 20) + Me.RBGerman.Name = "RBGerman" + Me.RBGerman.Size = New System.Drawing.Size(65, 17) + Me.RBGerman.TabIndex = 1 + Me.RBGerman.Text = "Deutsch" + Me.RBGerman.UseVisualStyleBackColor = True + ' + 'RBEnglish + ' + Me.RBEnglish.AutoSize = True + Me.RBEnglish.Checked = True + Me.RBEnglish.Location = New System.Drawing.Point(36, 19) + Me.RBEnglish.Name = "RBEnglish" + Me.RBEnglish.Size = New System.Drawing.Size(59, 17) + Me.RBEnglish.TabIndex = 0 + Me.RBEnglish.TabStop = True + Me.RBEnglish.Text = "English" + Me.RBEnglish.UseVisualStyleBackColor = True + ' + 'GroupBox33 + ' + Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) + Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) + Me.GroupBox33.Controls.Add(Me.Label140) + Me.GroupBox33.Controls.Add(Me.Button11) + Me.GroupBox33.Controls.Add(Me.LBLChastityState) + Me.GroupBox33.Controls.Add(Me.Label120) + Me.GroupBox33.Location = New System.Drawing.Point(420, 321) + Me.GroupBox33.Name = "GroupBox33" + Me.GroupBox33.Size = New System.Drawing.Size(277, 106) + Me.GroupBox33.TabIndex = 177 + Me.GroupBox33.TabStop = False + Me.GroupBox33.Text = "System States" + ' + 'BTNOfflineMode + ' + Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) + Me.BTNOfflineMode.Name = "BTNOfflineMode" + Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) + Me.BTNOfflineMode.TabIndex = 180 + Me.BTNOfflineMode.Text = "Toggle" + Me.BTNOfflineMode.UseVisualStyleBackColor = True + ' + 'LBLOfflineMode + ' + Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray + Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red + Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) + Me.LBLOfflineMode.Name = "LBLOfflineMode" + Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) + Me.LBLOfflineMode.TabIndex = 179 + Me.LBLOfflineMode.Text = "OFF" + Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label140 + ' + Me.Label140.BackColor = System.Drawing.Color.LightGray + Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label140.Location = New System.Drawing.Point(17, 70) + Me.Label140.Name = "Label140" + Me.Label140.Size = New System.Drawing.Size(98, 23) + Me.Label140.TabIndex = 178 + Me.Label140.Text = "OFFLINE MODE" + Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(161, 33) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(99, 23) + Me.Button11.TabIndex = 177 + Me.Button11.Text = "Toggle" + Me.Button11.UseVisualStyleBackColor = True + ' + 'LBLChastityState + ' + Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray + Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLChastityState.ForeColor = System.Drawing.Color.Red + Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) + Me.LBLChastityState.Name = "LBLChastityState" + Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) + Me.LBLChastityState.TabIndex = 3 + Me.LBLChastityState.Text = "OFF" + Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label120 + ' + Me.Label120.BackColor = System.Drawing.Color.LightGray + Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label120.Location = New System.Drawing.Point(17, 33) + Me.Label120.Name = "Label120" + Me.Label120.Size = New System.Drawing.Size(98, 23) + Me.Label120.TabIndex = 2 + Me.Label120.Text = "CHASTITY" + Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.CBOutputErrors) + Me.GroupBox8.Location = New System.Drawing.Point(420, 246) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(279, 47) + Me.GroupBox8.TabIndex = 179 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "System Information" + ' + 'CBOutputErrors + ' + Me.CBOutputErrors.AutoSize = True + Me.CBOutputErrors.Checked = True + Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black + Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) + Me.CBOutputErrors.Name = "CBOutputErrors" + Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) + Me.CBOutputErrors.TabIndex = 29 + Me.CBOutputErrors.TabStop = False + Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" + Me.CBOutputErrors.UseVisualStyleBackColor = True + ' + 'GroupBox27 + ' + Me.GroupBox27.Controls.Add(Me.Button6) + Me.GroupBox27.Controls.Add(Me.LBLSesSpace) + Me.GroupBox27.Controls.Add(Me.Button3) + Me.GroupBox27.Controls.Add(Me.LBLSesFiles) + Me.GroupBox27.Controls.Add(Me.Label125) + Me.GroupBox27.Controls.Add(Me.Label124) + Me.GroupBox27.Location = New System.Drawing.Point(420, 32) + Me.GroupBox27.Name = "GroupBox27" + Me.GroupBox27.Size = New System.Drawing.Size(279, 117) + Me.GroupBox27.TabIndex = 176 + Me.GroupBox27.TabStop = False + Me.GroupBox27.Text = "Session Images" + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(143, 76) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(117, 23) + Me.Button6.TabIndex = 176 + Me.Button6.Text = "Delete All Files" + Me.Button6.UseVisualStyleBackColor = True + ' + 'LBLSesSpace + ' + Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) + Me.LBLSesSpace.Name = "LBLSesSpace" + Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) + Me.LBLSesSpace.TabIndex = 3 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(20, 76) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(117, 23) + Me.Button3.TabIndex = 175 + Me.Button3.Text = "Open Folder" + Me.Button3.UseVisualStyleBackColor = True + ' + 'LBLSesFiles + ' + Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) + Me.LBLSesFiles.Name = "LBLSesFiles" + Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) + Me.LBLSesFiles.TabIndex = 2 + ' + 'Label125 + ' + Me.Label125.AutoSize = True + Me.Label125.Location = New System.Drawing.Point(17, 53) + Me.Label125.Name = "Label125" + Me.Label125.Size = New System.Drawing.Size(120, 13) + Me.Label125.TabIndex = 1 + Me.Label125.Text = "Total Disk Space Used:" + ' + 'Label124 + ' + Me.Label124.AutoSize = True + Me.Label124.Location = New System.Drawing.Point(17, 24) + Me.Label124.Name = "Label124" + Me.Label124.Size = New System.Drawing.Size(126, 13) + Me.Label124.TabIndex = 0 + Me.Label124.Text = "Number of Files in Folder:" + ' + 'GroupBox20 + ' + Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) + Me.GroupBox20.Controls.Add(Me.Label87) + Me.GroupBox20.Controls.Add(Me.TBURLFileWith) + Me.GroupBox20.Controls.Add(Me.Label118) + Me.GroupBox20.Controls.Add(Me.Label85) + Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) + Me.GroupBox20.Controls.Add(Me.Label53) + Me.GroupBox20.Controls.Add(Me.Label8) + Me.GroupBox20.Controls.Add(Me.Button1) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) + Me.GroupBox20.Controls.Add(Me.Label117) + Me.GroupBox20.Controls.Add(Me.Label116) + Me.GroupBox20.Controls.Add(Me.PBCurrent) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) + Me.GroupBox20.Controls.Add(Me.PBMaintenance) + Me.GroupBox20.Controls.Add(Me.LBLMaintenance) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) + Me.GroupBox20.Location = New System.Drawing.Point(6, 32) + Me.GroupBox20.Name = "GroupBox20" + Me.GroupBox20.Size = New System.Drawing.Size(408, 230) + Me.GroupBox20.TabIndex = 174 + Me.GroupBox20.TabStop = False + Me.GroupBox20.Text = "Maintenance" + ' + 'BTNURLFileReplace + ' + Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) + Me.BTNURLFileReplace.Name = "BTNURLFileReplace" + Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) + Me.BTNURLFileReplace.TabIndex = 184 + Me.BTNURLFileReplace.Text = "Replace" + Me.BTNURLFileReplace.UseVisualStyleBackColor = True + ' + 'Label87 + ' + Me.Label87.AutoSize = True + Me.Label87.Location = New System.Drawing.Point(206, 254) + Me.Label87.Name = "Label87" + Me.Label87.Size = New System.Drawing.Size(38, 13) + Me.Label87.TabIndex = 183 + Me.Label87.Text = ".media" + ' + 'TBURLFileWith + ' + Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) + Me.TBURLFileWith.Name = "TBURLFileWith" + Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) + Me.TBURLFileWith.TabIndex = 182 + ' + 'Label118 + ' + Me.Label118.AutoSize = True + Me.Label118.Location = New System.Drawing.Point(142, 254) + Me.Label118.Name = "Label118" + Me.Label118.Size = New System.Drawing.Size(29, 13) + Me.Label118.TabIndex = 181 + Me.Label118.Text = "With" + ' + 'Label85 + ' + Me.Label85.AutoSize = True + Me.Label85.Location = New System.Drawing.Point(98, 254) + Me.Label85.Name = "Label85" + Me.Label85.Size = New System.Drawing.Size(38, 13) + Me.Label85.TabIndex = 180 + Me.Label85.Text = ".media" + ' + 'TBURLFileReplace + ' + Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) + Me.TBURLFileReplace.Name = "TBURLFileReplace" + Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) + Me.TBURLFileReplace.TabIndex = 179 + ' + 'Label53 + ' + Me.Label53.AutoSize = True + Me.Label53.Location = New System.Drawing.Point(16, 254) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(47, 13) + Me.Label53.TabIndex = 178 + Me.Label53.Text = "Replace" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(16, 232) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(130, 13) + Me.Label8.TabIndex = 177 + Me.Label8.Text = "Change URL File Servers " + ' + 'Button1 + ' + Me.Button1.Enabled = False + Me.Button1.Location = New System.Drawing.Point(270, 19) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(121, 23) + Me.Button1.TabIndex = 176 + Me.Button1.Text = "Reset Settings" + Me.Button1.UseVisualStyleBackColor = True + ' + 'BTNMaintenanceScripts + ' + Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) + Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" + Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceScripts.TabIndex = 175 + Me.BTNMaintenanceScripts.Text = "Audit Scripts" + Me.BTNMaintenanceScripts.UseVisualStyleBackColor = True + ' + 'BTNMaintenanceRefresh + ' + Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) + Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" + Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceRefresh.TabIndex = 7 + Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" + Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = True + ' + 'Label117 + ' + Me.Label117.AutoSize = True + Me.Label117.Location = New System.Drawing.Point(15, 182) + Me.Label117.Name = "Label117" + Me.Label117.Size = New System.Drawing.Size(84, 13) + Me.Label117.TabIndex = 6 + Me.Label117.Text = "Overall Progress" + ' + 'Label116 + ' + Me.Label116.AutoSize = True + Me.Label116.Location = New System.Drawing.Point(15, 140) + Me.Label116.Name = "Label116" + Me.Label116.Size = New System.Drawing.Size(85, 13) + Me.Label116.TabIndex = 5 + Me.Label116.Text = "Current Progress" + ' + 'PBCurrent + ' + Me.PBCurrent.Location = New System.Drawing.Point(15, 156) + Me.PBCurrent.Name = "PBCurrent" + Me.PBCurrent.Size = New System.Drawing.Size(376, 23) + Me.PBCurrent.TabIndex = 4 + ' + 'BTNMaintenanceCancel + ' + Me.BTNMaintenanceCancel.Enabled = False + Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) + Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" + Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceCancel.TabIndex = 3 + Me.BTNMaintenanceCancel.Text = "Cancel" + Me.BTNMaintenanceCancel.UseVisualStyleBackColor = True + ' + 'PBMaintenance + ' + Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) + Me.PBMaintenance.Name = "PBMaintenance" + Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) + Me.PBMaintenance.TabIndex = 2 + ' + 'LBLMaintenance + ' + Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) + Me.LBLMaintenance.Name = "LBLMaintenance" + Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) + Me.LBLMaintenance.TabIndex = 1 + Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNMaintenanceRebuild + ' + Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) + Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" + Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceRebuild.TabIndex = 0 + Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" + Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = True + ' + 'GroupBox15 + ' + Me.GroupBox15.Controls.Add(Me.Label115) + Me.GroupBox15.Controls.Add(Me.TBWebStop) + Me.GroupBox15.Controls.Add(Me.TBWebStart) + Me.GroupBox15.Controls.Add(Me.Label114) + Me.GroupBox15.Controls.Add(Me.WebToy) + Me.GroupBox15.Location = New System.Drawing.Point(6, 268) + Me.GroupBox15.Name = "GroupBox15" + Me.GroupBox15.Size = New System.Drawing.Size(408, 159) + Me.GroupBox15.TabIndex = 173 + Me.GroupBox15.TabStop = False + Me.GroupBox15.Text = "Web-Controlled Sex Toy" + ' + 'Label115 + ' + Me.Label115.AutoSize = True + Me.Label115.Location = New System.Drawing.Point(12, 58) + Me.Label115.Name = "Label115" + Me.Label115.Size = New System.Drawing.Size(54, 13) + Me.Label115.TabIndex = 171 + Me.Label115.Text = "Stop URL" + ' + 'TBWebStop + ' + Me.TBWebStop.Location = New System.Drawing.Point(10, 72) + Me.TBWebStop.Name = "TBWebStop" + Me.TBWebStop.Size = New System.Drawing.Size(381, 20) + Me.TBWebStop.TabIndex = 170 + ' + 'TBWebStart + ' + Me.TBWebStart.Location = New System.Drawing.Point(10, 33) + Me.TBWebStart.Name = "TBWebStart" + Me.TBWebStart.Size = New System.Drawing.Size(381, 20) + Me.TBWebStart.TabIndex = 167 + ' + 'Label114 + ' + Me.Label114.AutoSize = True + Me.Label114.Location = New System.Drawing.Point(12, 17) + Me.Label114.Name = "Label114" + Me.Label114.Size = New System.Drawing.Size(54, 13) + Me.Label114.TabIndex = 168 + Me.Label114.Text = "Start URL" + ' + 'WebToy + ' + Me.WebToy.Location = New System.Drawing.Point(346, 33) + Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) + Me.WebToy.Name = "WebToy" + Me.WebToy.Size = New System.Drawing.Size(45, 59) + Me.WebToy.TabIndex = 172 + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.LightGray + Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox9.Location = New System.Drawing.Point(9, 6) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(160, 19) + Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox9.TabIndex = 166 + Me.PictureBox9.TabStop = False + ' + 'Label148 + ' + Me.Label148.BackColor = System.Drawing.Color.Transparent + Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label148.ForeColor = System.Drawing.Color.Black + Me.Label148.Location = New System.Drawing.Point(7, 6) + Me.Label148.Name = "Label148" + Me.Label148.Size = New System.Drawing.Size(692, 21) + Me.Label148.TabIndex = 48 + Me.Label148.Text = "Miscellaneous Settings" + Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage28 + ' + Me.TabPage28.BackColor = System.Drawing.Color.Silver + Me.TabPage28.Controls.Add(Me.TabControl3) + Me.TabPage28.Location = New System.Drawing.Point(4, 22) + Me.TabPage28.Name = "TabPage28" + Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage28.Size = New System.Drawing.Size(720, 448) + Me.TabPage28.TabIndex = 20 + Me.TabPage28.Text = "Debug" + ' + 'TabControl3 + ' + Me.TabControl3.Controls.Add(Me.TabPage29) + Me.TabControl3.Controls.Add(Me.TabPage30) + Me.TabControl3.Location = New System.Drawing.Point(6, 6) + Me.TabControl3.Name = "TabControl3" + Me.TabControl3.SelectedIndex = 0 + Me.TabControl3.Size = New System.Drawing.Size(708, 437) + Me.TabControl3.TabIndex = 0 + ' + 'TabPage29 + ' + Me.TabPage29.BackColor = System.Drawing.Color.LightGray + Me.TabPage29.Controls.Add(Me.Label143) + Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) + Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) + Me.TabPage29.Controls.Add(Me.GroupBox26) + Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) + Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) + Me.TabPage29.Controls.Add(Me.Label145) + Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) + Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) + Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) + Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) + Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) + Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) + Me.TabPage29.Controls.Add(Me.Label142) + Me.TabPage29.Controls.Add(Me.Label150) + Me.TabPage29.Controls.Add(Me.Label152) + Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) + Me.TabPage29.Controls.Add(Me.Label147) + Me.TabPage29.Location = New System.Drawing.Point(4, 22) + Me.TabPage29.Name = "TabPage29" + Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage29.Size = New System.Drawing.Size(700, 411) + Me.TabPage29.TabIndex = 0 + Me.TabPage29.Text = "TabPage29" + ' + 'Label143 + ' + Me.Label143.Location = New System.Drawing.Point(402, 46) + Me.Label143.Name = "Label143" + Me.Label143.Size = New System.Drawing.Size(67, 23) + Me.Label143.TabIndex = 15 + Me.Label143.Text = "Script Timer" + Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugScriptTime + ' + Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) + Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" + Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugScriptTime.TabIndex = 16 + Me.LBLDebugScriptTime.Text = "0" + Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDebugHoldEdgeTimer + ' + Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) + Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" + Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugHoldEdgeTimer.TabIndex = 14 + Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" + Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = True + ' + 'GroupBox26 + ' + Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) + Me.GroupBox26.Controls.Add(Me.Button19) + Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) + Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) + Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) + Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) + Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) + Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) + Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) + Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) + Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) + Me.GroupBox26.Location = New System.Drawing.Point(6, 5) + Me.GroupBox26.Name = "GroupBox26" + Me.GroupBox26.Size = New System.Drawing.Size(346, 178) + Me.GroupBox26.TabIndex = 0 + Me.GroupBox26.TabStop = False + Me.GroupBox26.Text = "Taunt Cycle" + ' + 'LBLCycleDebugCountdown + ' + Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) + Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" + Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) + Me.LBLCycleDebugCountdown.TabIndex = 10 + Me.LBLCycleDebugCountdown.Text = "0" + Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Button19 + ' + Me.Button19.Location = New System.Drawing.Point(191, 142) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(146, 30) + Me.Button19.TabIndex = 9 + Me.Button19.Text = "Countdown to 5 Seconds" + Me.Button19.UseVisualStyleBackColor = True + ' + 'BTNDebugTauntsClear + ' + Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) + Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" + Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) + Me.BTNDebugTauntsClear.TabIndex = 8 + Me.BTNDebugTauntsClear.Text = "Clear" + Me.BTNDebugTauntsClear.UseVisualStyleBackColor = True + ' + 'TBDebugTaunts3 + ' + Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) + Me.TBDebugTaunts3.Name = "TBDebugTaunts3" + Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) + Me.TBDebugTaunts3.TabIndex = 7 + ' + 'TBDebugTaunts2 + ' + Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) + Me.TBDebugTaunts2.Name = "TBDebugTaunts2" + Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) + Me.TBDebugTaunts2.TabIndex = 6 + ' + 'TBDebugTaunts1 + ' + Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) + Me.TBDebugTaunts1.Name = "TBDebugTaunts1" + Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) + Me.TBDebugTaunts1.TabIndex = 5 + ' + 'RBDebugTaunts3 + ' + Me.RBDebugTaunts3.AutoSize = True + Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) + Me.RBDebugTaunts3.Name = "RBDebugTaunts3" + Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) + Me.RBDebugTaunts3.TabIndex = 4 + Me.RBDebugTaunts3.Text = "3 Lines" + Me.RBDebugTaunts3.UseVisualStyleBackColor = True + ' + 'RBDebugTaunts2 + ' + Me.RBDebugTaunts2.AutoSize = True + Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) + Me.RBDebugTaunts2.Name = "RBDebugTaunts2" + Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) + Me.RBDebugTaunts2.TabIndex = 3 + Me.RBDebugTaunts2.Text = "2 Lines" + Me.RBDebugTaunts2.UseVisualStyleBackColor = True + ' + 'RBDebugTaunts1 + ' + Me.RBDebugTaunts1.AutoSize = True + Me.RBDebugTaunts1.Checked = True + Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) + Me.RBDebugTaunts1.Name = "RBDebugTaunts1" + Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) + Me.RBDebugTaunts1.TabIndex = 2 + Me.RBDebugTaunts1.TabStop = True + Me.RBDebugTaunts1.Text = "1 Line" + Me.RBDebugTaunts1.UseVisualStyleBackColor = True + ' + 'CBDebugTauntsEndless + ' + Me.CBDebugTauntsEndless.AutoSize = True + Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) + Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" + Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) + Me.CBDebugTauntsEndless.TabIndex = 1 + Me.CBDebugTauntsEndless.Text = "Endless Cycle" + Me.CBDebugTauntsEndless.UseVisualStyleBackColor = True + ' + 'CBDebugTaunts + ' + Me.CBDebugTaunts.AutoSize = True + Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) + Me.CBDebugTaunts.Name = "CBDebugTaunts" + Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) + Me.CBDebugTaunts.TabIndex = 0 + Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" + Me.CBDebugTaunts.UseVisualStyleBackColor = True + ' + 'BTNDebugStrokeTauntTimer + ' + Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) + Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" + Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugStrokeTauntTimer.TabIndex = 8 + Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" + Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = True + ' + 'LBLDebugHoldEdgeTime + ' + Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) + Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" + Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugHoldEdgeTime.TabIndex = 13 + Me.LBLDebugHoldEdgeTime.Text = "0" + Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label145 + ' + Me.Label145.Location = New System.Drawing.Point(402, 11) + Me.Label145.Name = "Label145" + Me.Label145.Size = New System.Drawing.Size(67, 23) + Me.Label145.TabIndex = 3 + Me.Label145.Text = "Tease Timer" + Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDebugStrokeTime + ' + Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) + Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" + Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugStrokeTime.TabIndex = 2 + Me.BTNDebugStrokeTime.Text = "Set to 5" + Me.BTNDebugStrokeTime.UseVisualStyleBackColor = True + ' + 'BTNDebugEdgeTauntTimer + ' + Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) + Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" + Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugEdgeTauntTimer.TabIndex = 11 + Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" + Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = True + ' + 'LBLDebugTeaseTime + ' + Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) + Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" + Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugTeaseTime.TabIndex = 4 + Me.LBLDebugTeaseTime.Text = "0" + Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugStrokeTime + ' + Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) + Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" + Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugStrokeTime.TabIndex = 1 + Me.LBLDebugStrokeTime.Text = "0" + Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugEdgeTauntTime + ' + Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) + Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" + Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugEdgeTauntTime.TabIndex = 10 + Me.LBLDebugEdgeTauntTime.Text = "0" + Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDebugTeaseTimer + ' + Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) + Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" + Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugTeaseTimer.TabIndex = 5 + Me.BTNDebugTeaseTimer.Text = "Set to 5" + Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = True + ' + 'Label142 + ' + Me.Label142.Location = New System.Drawing.Point(402, 121) + Me.Label142.Name = "Label142" + Me.Label142.Size = New System.Drawing.Size(67, 23) + Me.Label142.TabIndex = 0 + Me.Label142.Text = "Stroke Timer" + Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label150 + ' + Me.Label150.Location = New System.Drawing.Point(402, 206) + Me.Label150.Name = "Label150" + Me.Label150.Size = New System.Drawing.Size(67, 27) + Me.Label150.TabIndex = 9 + Me.Label150.Text = "Edge Taunt Timer" + Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label152 + ' + Me.Label152.Location = New System.Drawing.Point(402, 238) + Me.Label152.Name = "Label152" + Me.Label152.Size = New System.Drawing.Size(67, 40) + Me.Label152.TabIndex = 12 + Me.Label152.Text = "Hold Edge Timer" + Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugStrokeTauntTime + ' + Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) + Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" + Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugStrokeTauntTime.TabIndex = 7 + Me.LBLDebugStrokeTauntTime.Text = "0" + Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label147 + ' + Me.Label147.Location = New System.Drawing.Point(402, 143) + Me.Label147.Name = "Label147" + Me.Label147.Size = New System.Drawing.Size(67, 29) + Me.Label147.TabIndex = 6 + Me.Label147.Text = "Stroke Taunt Timer" + Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage30 + ' + Me.TabPage30.BackColor = System.Drawing.Color.LightGray + Me.TabPage30.Controls.Add(Me.Button33) + Me.TabPage30.Controls.Add(Me.Button24) + Me.TabPage30.Location = New System.Drawing.Point(4, 22) + Me.TabPage30.Name = "TabPage30" + Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage30.Size = New System.Drawing.Size(700, 411) + Me.TabPage30.TabIndex = 1 + Me.TabPage30.Text = "TabPage30" + ' + 'Button33 + ' + Me.Button33.Location = New System.Drawing.Point(6, 35) + Me.Button33.Name = "Button33" + Me.Button33.Size = New System.Drawing.Size(75, 23) + Me.Button33.TabIndex = 1 + Me.Button33.Text = "LoadState" + Me.Button33.UseVisualStyleBackColor = True + ' + 'Button24 + ' + Me.Button24.Location = New System.Drawing.Point(6, 6) + Me.Button24.Name = "Button24" + Me.Button24.Size = New System.Drawing.Size(75, 23) + Me.Button24.TabIndex = 0 + Me.Button24.Text = "SaveState" + Me.Button24.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.BackColor = System.Drawing.Color.Silver + Me.TabPage5.Controls.Add(Me.Panel5) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(720, 448) + Me.TabPage5.TabIndex = 17 + Me.TabPage5.Text = "About" + ' + 'Panel5 + ' + Me.Panel5.BackColor = System.Drawing.Color.LightGray + Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel5.Controls.Add(Me.Label130) + Me.Panel5.Controls.Add(Me.Label123) + Me.Panel5.Controls.Add(Me.Label69) + Me.Panel5.Controls.Add(Me.Label113) + Me.Panel5.Controls.Add(Me.Label40) + Me.Panel5.Controls.Add(Me.Label35) + Me.Panel5.Controls.Add(Me.Label33) + Me.Panel5.Controls.Add(Me.Label17) + Me.Panel5.Controls.Add(Me.Label3) + Me.Panel5.Controls.Add(Me.PictureBox3) + Me.Panel5.Controls.Add(Me.Label41) + Me.Panel5.Location = New System.Drawing.Point(6, 6) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(708, 437) + Me.Panel5.TabIndex = 92 + ' + 'Label130 + ' + Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label130.Location = New System.Drawing.Point(361, 314) + Me.Label130.Name = "Label130" + Me.Label130.Size = New System.Drawing.Size(254, 54) + Me.Label130.TabIndex = 176 + Me.Label130.Text = "q55x8x" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Stefaf" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "OxiKlein" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label123 + ' + Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label123.Location = New System.Drawing.Point(81, 314) + Me.Label123.Name = "Label123" + Me.Label123.Size = New System.Drawing.Size(254, 54) + Me.Label123.TabIndex = 175 + Me.Label123.Text = "pepsifreak" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daragorn" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ambossli" + Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label69 + ' + Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label69.Location = New System.Drawing.Point(35, 295) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(638, 22) + Me.Label69.TabIndex = 174 + Me.Label69.Text = "Triple Alfa" + Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label113 + ' + Me.Label113.AutoSize = True + Me.Label113.Location = New System.Drawing.Point(4, 417) + Me.Label113.Name = "Label113" + Me.Label113.Size = New System.Drawing.Size(452, 13) + Me.Label113.TabIndex = 173 + Me.Label113.Text = "All content contained in or viewed through this program are property of their res" & + "pective owners." + ' + 'Label40 + ' + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(35, 273) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(638, 24) + Me.Label40.TabIndex = 171 + Me.Label40.Text = "Special Thanks" + Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label35 + ' + Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label35.Location = New System.Drawing.Point(32, 107) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(641, 77) + Me.Label35.TabIndex = 170 + Me.Label35.Text = "This program is freeware. It may be freely distributed." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Do not package or dist" & + "ribute this program with any scripts or additional content." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please distribute a" & + "dditional files separately." + Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label33 + ' + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(32, 191) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(641, 77) + Me.Label33.TabIndex = 169 + Me.Label33.Text = resources.GetString("Label33.Text") + Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(522, 78) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(93, 13) + Me.Label17.TabIndex = 168 + Me.Label17.Text = "Designed by 1885" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(489, 417) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(215, 13) + Me.Label3.TabIndex = 167 + Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.LightGray + Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big + Me.PictureBox3.Location = New System.Drawing.Point(84, 17) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(531, 58) + Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox3.TabIndex = 166 + Me.PictureBox3.TabStop = False + ' + 'Label41 + ' + Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.Location = New System.Drawing.Point(35, 372) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(638, 39) + Me.Label41.TabIndex = 172 + Me.Label41.Text = "Thank you to everyone who has provided help and feedback." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Thank you to the commu" & + "nity who's been supportive of my work over the years. Tease AI exists because of" & + " you." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'BtnRandomImageDirClear + ' + Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) + Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" + Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnRandomImageDirClear.TabIndex = 181 + Me.BtnRandomImageDirClear.Text = "Clear" + Me.BtnRandomImageDirClear.UseVisualStyleBackColor = False + ' + 'GroupBox47 + ' + Me.GroupBox47.BackColor = System.Drawing.Color.LightGray + Me.GroupBox47.Controls.Add(Me.GroupBox41) + Me.GroupBox47.Controls.Add(Me.GroupBox40) + Me.GroupBox47.ForeColor = System.Drawing.Color.Black + Me.GroupBox47.Location = New System.Drawing.Point(806, 255) + Me.GroupBox47.Name = "GroupBox47" + Me.GroupBox47.Size = New System.Drawing.Size(310, 190) + Me.GroupBox47.TabIndex = 63 + Me.GroupBox47.TabStop = False + Me.GroupBox47.Text = "Boobs and Butts Paths" + ' + 'GroupBox41 + ' + Me.GroupBox41.Controls.Add(Me.Button34) + Me.GroupBox41.Location = New System.Drawing.Point(6, 110) + Me.GroupBox41.Name = "GroupBox41" + Me.GroupBox41.Size = New System.Drawing.Size(298, 74) + Me.GroupBox41.TabIndex = 153 + Me.GroupBox41.TabStop = False + Me.GroupBox41.Text = "Butts" + ' + 'Button34 + ' + Me.Button34.BackColor = System.Drawing.Color.LightGray + Me.Button34.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.Button34.ForeColor = System.Drawing.Color.Black + Me.Button34.Location = New System.Drawing.Point(85, 25) + Me.Button34.Name = "Button34" + Me.Button34.Size = New System.Drawing.Size(34, 28) + Me.Button34.TabIndex = 131 + Me.Button34.Text = "1" + Me.Button34.UseVisualStyleBackColor = False + ' + 'GroupBox40 + ' + Me.GroupBox40.Location = New System.Drawing.Point(5, 35) + Me.GroupBox40.Name = "GroupBox40" + Me.GroupBox40.Size = New System.Drawing.Size(298, 74) + Me.GroupBox40.TabIndex = 152 + Me.GroupBox40.TabStop = False + Me.GroupBox40.Text = "Boobs" + ' + 'GroupBox44 + ' + Me.GroupBox44.BackColor = System.Drawing.Color.LightGray + Me.GroupBox44.Controls.Add(Me.Label100) + Me.GroupBox44.ForeColor = System.Drawing.Color.Black + Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) + Me.GroupBox44.Name = "GroupBox44" + Me.GroupBox44.Size = New System.Drawing.Size(310, 92) + Me.GroupBox44.TabIndex = 65 + Me.GroupBox44.TabStop = False + Me.GroupBox44.Text = "Description" + ' + 'Label100 + ' + Me.Label100.BackColor = System.Drawing.Color.Transparent + Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label100.ForeColor = System.Drawing.Color.Black + Me.Label100.Location = New System.Drawing.Point(11, 16) + Me.Label100.Name = "Label100" + Me.Label100.Size = New System.Drawing.Size(286, 73) + Me.Label100.TabIndex = 62 + Me.Label100.Text = resources.GetString("Label100.Text") + Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.Label4) + Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) + Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) + Me.GroupBox6.Controls.Add(Me.Label94) + Me.GroupBox6.Controls.Add(Me.LBLLastRuined) + Me.GroupBox6.Controls.Add(Me.Label65) + Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) + Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) + Me.GroupBox6.Controls.Add(Me.Label14) + Me.GroupBox6.Controls.Add(Me.Label13) + Me.GroupBox6.Controls.Add(Me.Label1) + Me.GroupBox6.Location = New System.Drawing.Point(27, 114) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(283, 102) + Me.GroupBox6.TabIndex = 156 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "Performance" + ' + 'Label4 + ' + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(26, 16) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(77, 17) + Me.Label4.TabIndex = 147 + Me.Label4.Text = "Stroking Time" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLAvgEdgeStroking + ' + Me.LBLAvgEdgeStroking.AutoSize = True + Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) + Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" + Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) + Me.LBLAvgEdgeStroking.TabIndex = 144 + Me.LBLAvgEdgeStroking.Text = "00:00" + Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLStrokeTimeTotal + ' + Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) + Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" + Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) + Me.LBLStrokeTimeTotal.TabIndex = 148 + Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" + Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label94 + ' + Me.Label94.BackColor = System.Drawing.Color.Transparent + Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label94.ForeColor = System.Drawing.Color.Black + Me.Label94.Location = New System.Drawing.Point(189, 16) + Me.Label94.Name = "Label94" + Me.Label94.Size = New System.Drawing.Size(65, 17) + Me.Label94.TabIndex = 150 + Me.Label94.Text = "Last Ruined" + Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLLastRuined + ' + Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) + Me.LBLLastRuined.Name = "LBLLastRuined" + Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) + Me.LBLLastRuined.TabIndex = 152 + Me.LBLLastRuined.Text = "04/28/2015" + Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label65 + ' + Me.Label65.BackColor = System.Drawing.Color.Transparent + Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label65.ForeColor = System.Drawing.Color.Black + Me.Label65.Location = New System.Drawing.Point(103, 16) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(85, 17) + Me.Label65.TabIndex = 149 + Me.Label65.Text = "Last Orgasm" + Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLAvgEdgeNoTouch + ' + Me.LBLAvgEdgeNoTouch.AutoSize = True + Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) + Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" + Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) + Me.LBLAvgEdgeNoTouch.TabIndex = 146 + Me.LBLAvgEdgeNoTouch.Text = "00:00" + Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLLastOrgasm + ' + Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) + Me.LBLLastOrgasm.Name = "LBLLastOrgasm" + Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) + Me.LBLLastOrgasm.TabIndex = 151 + Me.LBLLastOrgasm.Text = "04/28/2015" + Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label14 + ' + Me.Label14.BackColor = System.Drawing.Color.Transparent + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.ForeColor = System.Drawing.Color.Black + Me.Label14.Location = New System.Drawing.Point(25, 48) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(238, 17) + Me.Label14.TabIndex = 138 + Me.Label14.Text = "Average Time to Edge" + Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(177, 68) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(32, 13) + Me.Label13.TabIndex = 145 + Me.Label13.Text = "Rest:" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(28, 68) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(79, 13) + Me.Label1.TabIndex = 143 + Me.Label1.Text = "While Stroking:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox21 + ' + Me.GroupBox21.BackColor = System.Drawing.Color.LightGray + Me.GroupBox21.Controls.Add(Me.Label153) + Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) + Me.GroupBox21.Controls.Add(Me.GroupBox6) + Me.GroupBox21.Controls.Add(Me.Label156) + Me.GroupBox21.ForeColor = System.Drawing.Color.Black + Me.GroupBox21.Location = New System.Drawing.Point(797, 55) + Me.GroupBox21.Name = "GroupBox21" + Me.GroupBox21.Size = New System.Drawing.Size(316, 136) + Me.GroupBox21.TabIndex = 66 + Me.GroupBox21.TabStop = False + Me.GroupBox21.Text = "Description" + ' + 'Label153 + ' + Me.Label153.BackColor = System.Drawing.Color.Transparent + Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label153.ForeColor = System.Drawing.Color.Black + Me.Label153.Location = New System.Drawing.Point(78, 94) + Me.Label153.Name = "Label153" + Me.Label153.Size = New System.Drawing.Size(158, 17) + Me.Label153.TabIndex = 135 + Me.Label153.Text = "No path selected" + Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLRangeSettingsDescription + ' + Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent + Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black + Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) + Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" + Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) + Me.LBLRangeSettingsDescription.TabIndex = 62 + Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & + "n." + Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label156 + ' + Me.Label156.BackColor = System.Drawing.Color.Transparent + Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label156.ForeColor = System.Drawing.Color.Black + Me.Label156.Location = New System.Drawing.Point(133, 23) + Me.Label156.Name = "Label156" + Me.Label156.Size = New System.Drawing.Size(158, 17) + Me.Label156.TabIndex = 135 + Me.Label156.Text = "No path selected" + Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox12 + ' + Me.GroupBox12.BackColor = System.Drawing.Color.LightGray + Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) + Me.GroupBox12.ForeColor = System.Drawing.Color.Black + Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(171, 124) + Me.GroupBox12.TabIndex = 65 + Me.GroupBox12.TabStop = False + Me.GroupBox12.Text = "Description" + ' + 'LBLSubSettingsDescription + ' + Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent + Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black + Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) + Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" + Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) + Me.LBLSubSettingsDescription.TabIndex = 62 + Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & + "n." + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file" & + "s (*.*)|*.*" + Me.OpenFileDialog1.Title = "Select an image file" + ' + 'GetColor + ' + Me.GetColor.Color = System.Drawing.Color.SteelBlue + ' + 'WebImageFileDialog + ' + Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.WebImageFileDialog.Title = "Please select a URL File" + ' + 'OpenScriptDialog + ' + Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.OpenScriptDialog.Title = "Please select a script" + ' + 'OpenSettingsDialog + ' + Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.OpenSettingsDialog.Title = "Please select a settings file to open" + ' + 'SaveSettingsDialog + ' + Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" + ' + 'GroupBox65 + ' + Me.GroupBox65.BackColor = System.Drawing.Color.LightGray + Me.GroupBox65.Controls.Add(Me.Label136) + Me.GroupBox65.Controls.Add(Me.Label134) + Me.GroupBox65.Controls.Add(Me.Label132) + Me.GroupBox65.Controls.Add(Me.TrackBar1) + Me.GroupBox65.Controls.Add(Me.ComboBox1) + Me.GroupBox65.Controls.Add(Me.CheckBox1) + Me.GroupBox65.Controls.Add(Me.Label135) + Me.GroupBox65.Controls.Add(Me.TrackBar2) + Me.GroupBox65.ForeColor = System.Drawing.Color.Black + Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) + Me.GroupBox65.Name = "GroupBox65" + Me.GroupBox65.Size = New System.Drawing.Size(259, 117) + Me.GroupBox65.TabIndex = 157 + Me.GroupBox65.TabStop = False + Me.GroupBox65.Text = "Text to Speech" + ' + 'Label136 + ' + Me.Label136.AutoSize = True + Me.Label136.Location = New System.Drawing.Point(14, 52) + Me.Label136.Name = "Label136" + Me.Label136.Size = New System.Drawing.Size(45, 13) + Me.Label136.TabIndex = 32 + Me.Label136.Text = "Volume:" + ' + 'Label134 + ' + Me.Label134.AutoSize = True + Me.Label134.Location = New System.Drawing.Point(141, 52) + Me.Label134.Name = "Label134" + Me.Label134.Size = New System.Drawing.Size(33, 13) + Me.Label134.TabIndex = 157 + Me.Label134.Text = "Rate:" + ' + 'Label132 + ' + Me.Label132.Location = New System.Drawing.Point(202, 52) + Me.Label132.Name = "Label132" + Me.Label132.Size = New System.Drawing.Size(45, 13) + Me.Label132.TabIndex = 158 + Me.Label132.Text = "100" + Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'TrackBar1 + ' + Me.TrackBar1.Location = New System.Drawing.Point(133, 68) + Me.TrackBar1.Minimum = -10 + Me.TrackBar1.Name = "TrackBar1" + Me.TrackBar1.Size = New System.Drawing.Size(120, 45) + Me.TrackBar1.TabIndex = 31 + ' + 'ComboBox1 + ' + Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window + Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(71, 16) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(178, 21) + Me.ComboBox1.TabIndex = 29 + Me.ComboBox1.TabStop = False + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.ForeColor = System.Drawing.Color.Black + Me.CheckBox1.Location = New System.Drawing.Point(10, 18) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(59, 17) + Me.CheckBox1.TabIndex = 28 + Me.CheckBox1.TabStop = False + Me.CheckBox1.Text = "Enable" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'Label135 + ' + Me.Label135.Location = New System.Drawing.Point(75, 52) + Me.Label135.Name = "Label135" + Me.Label135.Size = New System.Drawing.Size(45, 13) + Me.Label135.TabIndex = 33 + Me.Label135.Text = "100" + Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'TrackBar2 + ' + Me.TrackBar2.Location = New System.Drawing.Point(6, 68) + Me.TrackBar2.Maximum = 100 + Me.TrackBar2.Name = "TrackBar2" + Me.TrackBar2.Size = New System.Drawing.Size(120, 45) + Me.TrackBar2.TabIndex = 30 + Me.TrackBar2.Value = 50 + ' + 'TxbImgUrlHardcore + ' + Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray + Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) + Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" + Me.TxbImgUrlHardcore.ReadOnly = True + Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) + Me.TxbImgUrlHardcore.TabIndex = 145 + ' + 'TextBox2 + ' + Me.TextBox2.BackColor = System.Drawing.Color.LightGray + Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBox2.Location = New System.Drawing.Point(116, 34) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.ReadOnly = True + Me.TextBox2.Size = New System.Drawing.Size(189, 20) + Me.TextBox2.TabIndex = 145 + ' + 'BWURLFiles + ' + Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" + Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" + Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" + Me.BWURLFiles.WorkerReportsProgress = True + Me.BWURLFiles.WorkerSupportsCancellation = True + ' + 'Label170 + ' + Me.Label170.Location = New System.Drawing.Point(7, 95) + Me.Label170.Name = "Label170" + Me.Label170.Size = New System.Drawing.Size(59, 18) + Me.Label170.TabIndex = 28 + Me.Label170.Text = "Honorific" + Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'FrmSettings + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(727, 465) + Me.Controls.Add(Me.GroupBox65) + Me.Controls.Add(Me.GroupBox44) + Me.Controls.Add(Me.GroupBox47) + Me.Controls.Add(Me.BtnRandomImageDirClear) + Me.Controls.Add(Me.SettingsPanel) + Me.Controls.Add(Me.GroupBox12) + Me.Controls.Add(Me.GroupBox21) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "FrmSettings" + Me.ShowIcon = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Tease AI Settings" + Me.SettingsPanel.ResumeLayout(False) + Me.SettingsTabs.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.PNLGeneralSettings.ResumeLayout(False) + Me.PNLGeneralSettings.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox64.ResumeLayout(False) + Me.GroupBox64.PerformLayout() + Me.GBDommeImages.ResumeLayout(False) + Me.GBDommeImages.PerformLayout() + CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGeneralTextToSpeech.ResumeLayout(False) + Me.GBGeneralTextToSpeech.PerformLayout() + CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBSafeword.ResumeLayout(False) + Me.GBSafeword.PerformLayout() + Me.GBGeneralSystem.ResumeLayout(False) + Me.GBGeneralSystem.PerformLayout() + Me.GBGeneralImages.ResumeLayout(False) + Me.GBGeneralImages.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGeneralSettings.ResumeLayout(False) + Me.GBGeneralSettings.PerformLayout() + Me.GBSubFont.ResumeLayout(False) + CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDommeFont.ResumeLayout(False) + CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage2.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.GBGiveUp.ResumeLayout(False) + Me.GBGiveUp.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomTypingStyle.ResumeLayout(False) + Me.GBDomTypingStyle.PerformLayout() + CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox63.ResumeLayout(False) + Me.GroupBox63.PerformLayout() + Me.GBDomRanges.ResumeLayout(False) + CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomStats.ResumeLayout(False) + Me.GBDomStats.PerformLayout() + CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomPersonality.ResumeLayout(False) + Me.GBDomPersonality.PerformLayout() + Me.GBDomOrgasms.ResumeLayout(False) + Me.GBDomOrgasms.PerformLayout() + CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomPetNames.ResumeLayout(False) + Me.GBDomPetNames.PerformLayout() + Me.TabPage10.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.GroupBox22.ResumeLayout(False) + CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox45.ResumeLayout(False) + CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox35.ResumeLayout(False) + Me.GroupBoxSorry.ResumeLayout(False) + Me.GroupBoxSorry.PerformLayout() + Me.GroupBox39.ResumeLayout(False) + Me.GroupBox39.PerformLayout() + Me.GroupBox38.ResumeLayout(False) + Me.GroupBox38.PerformLayout() + Me.GroupBox37.ResumeLayout(False) + Me.GroupBox37.PerformLayout() + Me.GroupBox36.ResumeLayout(False) + Me.GroupBox36.PerformLayout() + Me.GroupBox13.ResumeLayout(False) + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox32.ResumeLayout(False) + Me.GroupBox32.PerformLayout() + CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage16.ResumeLayout(False) + Me.Panel9.ResumeLayout(False) + Me.GroupBox31.ResumeLayout(False) + Me.TCScripts.ResumeLayout(False) + Me.TabPage21.ResumeLayout(False) + Me.TabPage17.ResumeLayout(False) + Me.TabPage18.ResumeLayout(False) + Me.TabPage19.ResumeLayout(False) + Me.GroupBox42.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox43.ResumeLayout(False) + Me.TabPage7.ResumeLayout(False) + Me.TabControl4.ResumeLayout(False) + Me.TpImagesUrlFiles.ResumeLayout(False) + Me.TpImagesUrlFiles.PerformLayout() + Me.GroupBox66.ResumeLayout(False) + CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.TpImagesGenre.ResumeLayout(False) + Me.GrbImageUrlFiles.ResumeLayout(False) + Me.TlpImageUrls.ResumeLayout(False) + Me.TlpImageUrls.PerformLayout() + Me.GbxImagesGenre.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + Me.TabPage33.ResumeLayout(False) + Me.TabControl5.ResumeLayout(False) + Me.TabPage34.ResumeLayout(False) + Me.TabPage34.PerformLayout() + CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage35.ResumeLayout(False) + Me.TabPage35.PerformLayout() + Me.GroupBox55.ResumeLayout(False) + Me.GroupBox55.PerformLayout() + Me.GroupBox53.ResumeLayout(False) + Me.GroupBox53.PerformLayout() + Me.GroupBox49.ResumeLayout(False) + Me.GroupBox49.PerformLayout() + Me.GroupBox46.ResumeLayout(False) + Me.GroupBox46.PerformLayout() + Me.GroupBox54.ResumeLayout(False) + Me.GroupBox54.PerformLayout() + Me.GroupBox51.ResumeLayout(False) + Me.GroupBox51.PerformLayout() + Me.GroupBox50.ResumeLayout(False) + Me.GroupBox50.PerformLayout() + Me.GroupBox48.ResumeLayout(False) + Me.GroupBox48.PerformLayout() + Me.TabPage11.ResumeLayout(False) + Me.Panel7.ResumeLayout(False) + Me.Panel7.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.TpVideoSettings.ResumeLayout(False) + Me.PnlVideoSettings.ResumeLayout(False) + CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxVideoGeneralD.ResumeLayout(False) + Me.GbxVideoGeneralD.PerformLayout() + Me.GbxVideoSpecialD.ResumeLayout(False) + Me.GbxVideoSpecialD.PerformLayout() + Me.GbxVideoGenreD.ResumeLayout(False) + Me.GbxVideoGenreD.PerformLayout() + Me.GbxVideoDescription.ResumeLayout(False) + Me.GbxVideoGeneral.ResumeLayout(False) + Me.GbxVideoGeneral.PerformLayout() + Me.GbxVideoSpecial.ResumeLayout(False) + Me.GbxVideoSpecial.PerformLayout() + Me.GbxVideoGenre.ResumeLayout(False) + Me.GbxVideoGenre.PerformLayout() + Me.TabPage20.ResumeLayout(False) + Me.TabControl1.ResumeLayout(False) + Me.TabPage22.ResumeLayout(False) + Me.PNLGlitter.ResumeLayout(False) + Me.PNLGlitter.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GBGlitterD.ResumeLayout(False) + Me.GBGlitterD.PerformLayout() + Me.GrbGlitterfeed.ResumeLayout(False) + Me.GrbGlitterfeed.PerformLayout() + CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGlitter1.ResumeLayout(False) + Me.GBGlitter1.PerformLayout() + CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGlitter3.ResumeLayout(False) + Me.GBGlitter3.PerformLayout() + CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGlitter2.ResumeLayout(False) + Me.GBGlitter2.PerformLayout() + CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).EndInit() + Me.TpGames.ResumeLayout(False) + Me.TpGames.PerformLayout() + Me.GbxCardsGold.ResumeLayout(False) + Me.GbxCardsGold.PerformLayout() + CType(Me.GP6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxCardsBackground.ResumeLayout(False) + CType(Me.CardBack, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxCardsBronze.ResumeLayout(False) + Me.GbxCardsBronze.PerformLayout() + CType(Me.BP3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxCardsSilver.ResumeLayout(False) + Me.GbxCardsSilver.PerformLayout() + CType(Me.SP6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP4, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + Me.Panel10.ResumeLayout(False) + Me.Panel10.PerformLayout() + CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).EndInit() + Me.PNLWishList.ResumeLayout(False) + CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage26.ResumeLayout(False) + Me.Panel12.ResumeLayout(False) + Me.GroupBox9.ResumeLayout(False) + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage4.ResumeLayout(False) + Me.Panel6.ResumeLayout(False) + Me.GroupBox69.ResumeLayout(False) + Me.GroupBox69.PerformLayout() + CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox68.ResumeLayout(False) + CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox67.ResumeLayout(False) + CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox10.ResumeLayout(False) + CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox57.ResumeLayout(False) + Me.GroupBox57.PerformLayout() + CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBRangeRuinChance.ResumeLayout(False) + Me.GBRangeRuinChance.PerformLayout() + CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox17.ResumeLayout(False) + Me.GroupBox19.ResumeLayout(False) + CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox18.ResumeLayout(False) + Me.GroupBox18.PerformLayout() + CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBRangeOrgasmChance.ResumeLayout(False) + Me.GBRangeOrgasmChance.PerformLayout() + CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage13.ResumeLayout(False) + Me.TabControl2.ResumeLayout(False) + Me.TabPage27.ResumeLayout(False) + Me.TabPage27.PerformLayout() + Me.TabPage14.ResumeLayout(False) + Me.TabPage14.PerformLayout() + Me.TabPage24.ResumeLayout(False) + Me.TabPage24.PerformLayout() + Me.TabPage8.ResumeLayout(False) + Me.GroupBox29.ResumeLayout(False) + Me.GroupBox28.ResumeLayout(False) + Me.GroupBox30.ResumeLayout(False) + Me.TabPage15.ResumeLayout(False) + Me.TabPage15.PerformLayout() + Me.GroupBox34.ResumeLayout(False) + Me.TabPage25.ResumeLayout(False) + Me.Panel11.ResumeLayout(False) + Me.GroupBox62.ResumeLayout(False) + Me.GroupBox62.PerformLayout() + Me.GroupBox33.ResumeLayout(False) + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox27.ResumeLayout(False) + Me.GroupBox27.PerformLayout() + Me.GroupBox20.ResumeLayout(False) + Me.GroupBox20.PerformLayout() + Me.GroupBox15.ResumeLayout(False) + Me.GroupBox15.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage28.ResumeLayout(False) + Me.TabControl3.ResumeLayout(False) + Me.TabPage29.ResumeLayout(False) + Me.GroupBox26.ResumeLayout(False) + Me.GroupBox26.PerformLayout() + Me.TabPage30.ResumeLayout(False) + Me.TabPage5.ResumeLayout(False) + Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox47.ResumeLayout(False) + Me.GroupBox41.ResumeLayout(False) + Me.GroupBox44.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox21.ResumeLayout(False) + Me.GroupBox12.ResumeLayout(False) + Me.GroupBox65.ResumeLayout(False) + Me.GroupBox65.PerformLayout() + CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) -End Sub + End Sub Friend WithEvents SettingsPanel As System.Windows.Forms.Panel Friend WithEvents SettingsTabs As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage @@ -15551,9 +15671,15 @@ End Sub Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents GroupBox35 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox39 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBoxSorry As System.Windows.Forms.GroupBox + Friend WithEvents TBSorry As System.Windows.Forms.TextBox Friend WithEvents CBHonorificInclude As System.Windows.Forms.CheckBox Friend WithEvents CBHonorificCapitalized As System.Windows.Forms.CheckBox Friend WithEvents TBHonorific As System.Windows.Forms.TextBox + Friend WithEvents G1Honorific As System.Windows.Forms.TextBox + Friend WithEvents G2Honorific As System.Windows.Forms.TextBox + Friend WithEvents G3Honorific As System.Windows.Forms.TextBox + Friend WithEvents RandomHonorific As System.Windows.Forms.TextBox Friend WithEvents GroupBox38 As System.Windows.Forms.GroupBox Friend WithEvents TBNo As System.Windows.Forms.TextBox Friend WithEvents GroupBox37 As System.Windows.Forms.GroupBox @@ -16137,7 +16263,7 @@ End Sub Friend WithEvents TbxContact3ImageDir As System.Windows.Forms.TextBox Friend WithEvents BtnContact2ImageDir As System.Windows.Forms.Button Friend WithEvents TbxContact2ImageDir As System.Windows.Forms.TextBox - Friend WithEvents BtnRandomImageDir As System.Windows.Forms.Button + Friend WithEvents BtnRandomImageDir As System.Windows.Forms.Button Friend WithEvents BtnRandomImageDirClear As System.Windows.Forms.Button Friend WithEvents CBGlitterFeedOff As System.Windows.Forms.RadioButton Friend WithEvents CBGlitterFeedScripts As System.Windows.Forms.RadioButton @@ -16542,27 +16668,31 @@ End Sub Friend WithEvents TableLayoutPanel1 As TableLayoutPanel Friend WithEvents GrbGlitterfeed As GroupBox Friend WithEvents GBGiveUp As GroupBox - Friend WithEvents giveupCheckBox As CheckBox - Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox - Friend WithEvents CBRandomDomme As System.Windows.Forms.CheckBox - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents BTNValidateSystemFiles As System.Windows.Forms.Button - Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox - Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox - Friend WithEvents BTNDomChangeContact1 As System.Windows.Forms.Button - Friend WithEvents BTNDomChangeRandom As System.Windows.Forms.Button - Friend WithEvents BTNDomChangeContact3 As System.Windows.Forms.Button - Friend WithEvents BTNDomChangeContact2 As System.Windows.Forms.Button - Friend WithEvents BTNDomChangeDomme As System.Windows.Forms.Button - Friend WithEvents LBLCurrentDomme As System.Windows.Forms.Label - Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox - Friend WithEvents CBOutputErrors As System.Windows.Forms.CheckBox - Friend WithEvents Label85 As System.Windows.Forms.Label - Friend WithEvents TBURLFileReplace As System.Windows.Forms.TextBox - Friend WithEvents Label53 As System.Windows.Forms.Label - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents BTNURLFileReplace As System.Windows.Forms.Button - Friend WithEvents Label87 As System.Windows.Forms.Label - Friend WithEvents TBURLFileWith As System.Windows.Forms.TextBox - Friend WithEvents Label118 As System.Windows.Forms.Label + Friend WithEvents giveupCheckBox As CheckBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents CBRandomDomme As System.Windows.Forms.CheckBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents BTNValidateSystemFiles As System.Windows.Forms.Button + Friend WithEvents TbxRandomImageDir As System.Windows.Forms.TextBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents BTNDomChangeContact1 As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeRandom As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeContact3 As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeContact2 As System.Windows.Forms.Button + Friend WithEvents BTNDomChangeDomme As System.Windows.Forms.Button + Friend WithEvents LBLCurrentDomme As System.Windows.Forms.Label + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents CBOutputErrors As System.Windows.Forms.CheckBox + Friend WithEvents Label85 As System.Windows.Forms.Label + Friend WithEvents TBURLFileReplace As System.Windows.Forms.TextBox + Friend WithEvents Label53 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents BTNURLFileReplace As System.Windows.Forms.Button + Friend WithEvents Label87 As System.Windows.Forms.Label + Friend WithEvents TBURLFileWith As System.Windows.Forms.TextBox + Friend WithEvents Label118 As System.Windows.Forms.Label + Friend WithEvents Label167 As Label + Friend WithEvents Label168 As Label + Friend WithEvents Label169 As Label + Friend WithEvents Label170 As Label End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index ce7d7e1..b77326f 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -6261,6 +6261,23 @@ checkFolder: Private Sub TBHonorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBHonorific.LostFocus If TBHonorific.Text = "" Or TBHonorific.Text Is Nothing Then TBHonorific.Text = "Mistress" My.Settings.SubHonorific = TBHonorific.Text + Ssh.tempHonorific = TBHonorific.Text + End Sub + + Private Sub G1Honorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles G1Honorific.LostFocus + My.Settings.G1Honorific = G1Honorific.Text + End Sub + + Private Sub G2Honorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles G2Honorific.LostFocus + My.Settings.G2Honorific = G2Honorific.Text + End Sub + + Private Sub G3Honorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles G3Honorific.LostFocus + My.Settings.G3Honorific = G3Honorific.Text + End Sub + + Private Sub RandomHonorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles RandomHonorific.LostFocus + My.Settings.RandomHonorific = RandomHonorific.Text End Sub Private Sub CBHonorificInclude_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBHonorificInclude.LostFocus @@ -8214,6 +8231,34 @@ checkFolder: 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." End Sub + Private Sub G1Honorific_MouseHover(sender As Object, e As System.EventArgs) Handles G1Honorific.MouseHover + + TTDir.SetToolTip(G1Honorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") + + 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." + End Sub + + Private Sub G2Honorific_MouseHover(sender As Object, e As System.EventArgs) Handles G2Honorific.MouseHover + + TTDir.SetToolTip(G2Honorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") + + 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." + End Sub + + Private Sub G3Honorific_MouseHover(sender As Object, e As System.EventArgs) Handles G3Honorific.MouseHover + + TTDir.SetToolTip(G3Honorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") + + 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." + End Sub + + Private Sub RandomHonorific_MouseHover(sender As Object, e As System.EventArgs) Handles RandomHonorific.MouseHover + + TTDir.SetToolTip(RandomHonorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") + + 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." + End Sub + Private Sub CBHonorificInclude_MouseHover(sender As Object, e As System.EventArgs) Handles CBHonorificInclude.MouseHover TTDir.SetToolTip(CBHonorificInclude, "When this box is checked, the domme's honorific must be included with" & Environment.NewLine & diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 31e47e0..556abc9 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -2021,8 +2021,56 @@ Namespace My Me("SubHonorific") = value End Set End Property - - + Public Property G1Honorific() As String + Get + Return CType(Me("G1Honorific"), String) + End Get + Set + Me("G1Honorific") = Value + End Set + End Property + + + Public Property G2Honorific() As String + Get + Return CType(Me("G2Honorific"), String) + End Get + Set + Me("G2Honorific") = Value + End Set + End Property + + + Public Property G3Honorific() As String + Get + Return CType(Me("G3Honorific"), String) + End Get + Set + Me("G3Honorific") = Value + End Set + End Property + + + Public Property RandomHonorific() As String + Get + Return CType(Me("RandomHonorific"), String) + End Get + Set + Me("RandomHonorific") = Value + End Set + End Property + + _ Public Property CBUseHonor() As Boolean From df0c5468230e22c96d1cc2c6d85ecf3c0bff49f3 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 9 Apr 2017 21:39:00 +0200 Subject: [PATCH 058/143] New command: @RandomContact: will randomly choose one of the currently present contacts as the line speaker --- Tease AI/Classes/State.vb | 4 ++ Tease AI/Form1.vb | 117 ++++++++++++++++++++++---------------- 2 files changed, 73 insertions(+), 48 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 4731779..34c8cb5 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -184,6 +184,7 @@ Public Class SessionState Public Property giveUpReturn As Boolean Public Property contactToUse As ContactData + Public Property currentlyPresentContacts As List(Of String) Public Property DivideText As Boolean Public Property HoldEdgeTick As Integer @@ -721,6 +722,8 @@ Public Class SessionState SlideshowContact2 = New ContactData(ContactType.Contact2) SlideshowContact3 = New ContactData(ContactType.Contact3) SlideshowContactRandom = New ContactData(ContactType.Random) + currentlyPresentContacts = New List(Of String) + currentlyPresentContacts.Add(SlideshowMain.TypeName) CaloriesConsumed = My.Settings.CaloriesConsumed @@ -1058,6 +1061,7 @@ Public Class SessionState If SlideshowContact1 Is Nothing Then SlideshowContact1 = New ContactData(ContactType.Contact1) If SlideshowContact2 Is Nothing Then SlideshowContact2 = New ContactData(ContactType.Contact2) If SlideshowContact3 Is Nothing Then SlideshowContact3 = New ContactData(ContactType.Contact3) + If currentlyPresentContacts.Count = 0 Then currentlyPresentContacts.Add(SlideshowMain.TypeName) '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Set Picturebox & WMP diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 1238910..0404f24 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -5051,7 +5051,7 @@ NullResponse: ssh.DomTask = ssh.DomTask.Replace(WriteFlag, PoundClean(WriteFlag)) End If - If ssh.DomTask.Contains("@Contact1") Or ssh.DomTask.Contains("@Contact2") Or ssh.DomTask.Contains("@Contact3") Then ssh.SubWroteLast = True + If ssh.DomTask.Contains("@Contact1") Or ssh.DomTask.Contains("@Contact2") Or ssh.DomTask.Contains("@Contact3") Or ssh.DomTask.Contains("@RandomContact") Then ssh.SubWroteLast = True '################### Gather Response Data ################# 'TODO-Next: Test Code @@ -5902,7 +5902,7 @@ TryNextWithTease: ssh.DomChat = ssh.DomChat.Replace(WriteFlag, PoundClean(WriteFlag)) End If - If ssh.DomChat.Contains("@Contact1") Or ssh.DomChat.Contains("@Contact2") Or ssh.DomChat.Contains("@Contact3") Then ssh.SubWroteLast = True + If ssh.DomChat.Contains("@Contact1") Or ssh.DomChat.Contains("@Contact2") Or ssh.DomChat.Contains("@Contact3") Or ssh.DomChat.Contains("@RandomContact") Then ssh.SubWroteLast = True '################### Gather Response Data ################# @@ -10257,7 +10257,6 @@ TaskCleanSet: If StringClean.Contains("@StartStroking") Then - If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) @@ -10271,9 +10270,27 @@ TaskCleanSet: Catch End Try End If - If StringClean.Contains("@Contact1") Then ssh.Contact1Stroke = True - If StringClean.Contains("@Contact2") Then ssh.Contact2Stroke = True - If StringClean.Contains("@Contact3") Then ssh.Contact3Stroke = True + + If StringClean.Contains("@Contact1") Then + ssh.Contact1Stroke = True + ElseIf StringClean.Contains("@Contact2") Then + ssh.Contact2Stroke = True + ElseIf StringClean.Contains("@Contact3") Then + ssh.Contact3Stroke = True + ElseIf StringClean.Contains("@RandomContact") Then + Dim casual As Integer = 0 + casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) + Select Case ssh.currentlyPresentContacts(casual) + Case ssh.SlideshowContact1.TypeName + ssh.Contact1Stroke = True + Case ssh.SlideshowContact2.TypeName + ssh.Contact2Stroke = True + Case ssh.SlideshowContact3.TypeName + ssh.Contact3Stroke = True + Case Else + End Select + End If + ssh.AskedToGiveUpSection = False ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False @@ -10314,9 +10331,6 @@ TaskCleanSet: ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 End If - - - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) 'StrokeThread = New Thread(AddressOf StrokeLoop) 'StrokeThread.IsBackground = True @@ -12208,6 +12222,7 @@ ExternalAudio: If StringClean.Contains("@AddContact1") Then If Not ssh.contact1Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) ssh.contact1Present = True ssh.AddContactTick = 2 Contact1Timer.Start() @@ -12218,6 +12233,7 @@ ExternalAudio: If StringClean.Contains("@RemoveContact1") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) ssh.contact1Present = False ssh.AddContactTick = 2 Contact1Timer.Start() @@ -12227,6 +12243,7 @@ ExternalAudio: If StringClean.Contains("@AddContact2") Then If Not ssh.contact2Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) ssh.contact2Present = True ssh.AddContactTick = 2 Contact2Timer.Start() @@ -12237,6 +12254,7 @@ ExternalAudio: If StringClean.Contains("@RemoveContact2") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) ssh.contact2Present = False ssh.AddContactTick = 2 Contact2Timer.Start() @@ -12246,6 +12264,7 @@ ExternalAudio: If StringClean.Contains("@AddContact3") Then If Not ssh.contact3Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) ssh.contact3Present = True ssh.AddContactTick = 2 Contact3Timer.Start() @@ -12256,6 +12275,7 @@ ExternalAudio: If StringClean.Contains("@RemoveContact3") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) ssh.contact3Present = False ssh.AddContactTick = 2 Contact3Timer.Start() @@ -12265,6 +12285,7 @@ ExternalAudio: If StringClean.Contains("@AddDomme") Then If Not ssh.dommePresent Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) ssh.dommePresent = True ssh.AddContactTick = 2 DommeTimer.Start() @@ -12276,6 +12297,7 @@ ExternalAudio: If StringClean.Contains("@RemoveDomme") Then 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) ssh.dommePresent = False ssh.AddContactTick = 2 DommeTimer.Start() @@ -13905,9 +13927,25 @@ VTSkip: Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) - If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True - If EdgeCheck.Contains("@Contact2") Then ssh.Contact2Edge = True - If EdgeCheck.Contains("@Contact3") Then ssh.Contact3Edge = True + If EdgeCheck.Contains("@Contact1") Then + ssh.Contact1Edge = True + ElseIf EdgeCheck.Contains("@Contact2") Then + ssh.Contact2Edge = True + ElseIf EdgeCheck.Contains("@Contact3") Then + ssh.Contact3Edge = True + ElseIf EdgeCheck.Contains("@RandomContact") Then + Dim casual As Integer = 0 + casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) + Select Case ssh.currentlyPresentContacts(casual) + Case ssh.SlideshowContact1.TypeName + ssh.Contact1Edge = True + Case ssh.SlideshowContact2.TypeName + ssh.Contact2Edge = True + Case ssh.SlideshowContact3.TypeName + ssh.Contact3Edge = True + Case Else + End Select + End If End Sub Public Sub DisableContactStroke() @@ -17366,24 +17404,6 @@ saveImage: #End Region ' PictureStrip - - - - - - - - - - - - - - - - - - Public Sub LoadDommeImageFolder() 'check which domme should be loaded If Not ssh.newSlideshow Then @@ -21066,26 +21086,27 @@ playLoop: ssh.tempDomName = My.Settings.Glitter3 ssh.tempHonorific = My.Settings.G3Honorific ssh.contactToUse = ssh.SlideshowContact3 - 'ElseIf stringToCheck.Contains("@RandomContact") Then - ' Dim casual As Integer = 0 - ' casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) - ' Select Case ssh.currentlyPresentContacts(casual) - 'Case ssh.SlideshowContact1.TypeName - ' ssh.tempDomName = My.Settings.Glitter1 - ' ssh.tempHonorific = My.Settings.G1Honorific - 'ssh.contactToUse = ssh.SlideshowContact1 - 'Case ssh.SlideshowContact2.TypeName - ' ssh.tempDomName = My.Settings.Glitter2 - 'ssh.tempHonorific = My.Settings.G2Honorific - 'ssh.contactToUse = ssh.SlideshowContact2 - 'Case ssh.SlideshowContact3.TypeName - 'ssh.tempDomName = My.Settings.Glitter3 - 'ssh.tempHonorific = My.Settings.G3Honorific - 'ssh.contactToUse = ssh.SlideshowContact3 - 'Case Else - 'End Select + ElseIf stringToCheck.Contains("@RandomContact") Then + Dim casual As Integer = 0 + casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) + Select Case ssh.currentlyPresentContacts(casual) + Case ssh.SlideshowContact1.TypeName + ssh.tempDomName = My.Settings.Glitter1 + ssh.tempHonorific = My.Settings.G1Honorific + ssh.contactToUse = ssh.SlideshowContact1 + Case ssh.SlideshowContact2.TypeName + ssh.tempDomName = My.Settings.Glitter2 + ssh.tempHonorific = My.Settings.G2Honorific + ssh.contactToUse = ssh.SlideshowContact2 + Case ssh.SlideshowContact3.TypeName + ssh.tempDomName = My.Settings.Glitter3 + ssh.tempHonorific = My.Settings.G3Honorific + ssh.contactToUse = ssh.SlideshowContact3 + Case Else + End Select End If Return stringToCheck End Function + End Class From 26bb2aaabfb90b832f7a37e2567c7511563151f6 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 9 Apr 2017 23:04:37 +0200 Subject: [PATCH 059/143] -Fixed a "bug" in the @ShowImage[ code when using *.*: the code was only filtering for images if the user used * as the selector for "select all images in that dir". If he used *.* the program would also get non-image files and could cause exceptions. Now both * and *.* will work -improved the @PlayVideo[] routine: now you can select a specific video also for playing avoidtheedge,censorshipsucks and redlightgreenlight. for example @PlayAvoidTheEdge will choose a random video while @PlayAvoidTheEdge[mypath/filename.extension] will use the specified video -changes to the punishment afetr failing too many times to use the honorific: now you will not get an automatic @CBT but you can decide what happens in the #SYS_HonorificPunish vocab. You can even use @CallReturn() to deal with it, for example -new needed vocab #SYS_ReturnAnswer: needed when the user get punished for honorific fails while answering a specific question from the domme. This vocab will be used after dealing the punishment to send back the user to the question (Since there is only a part of the code dealing with punishment right now, it might happen that the punishment could cause errors or issues with the session...this will be fixed once the full merge is complete). -starting the bases for the domhonorific checks improvement coming up (same as before, since the code is still partial, this might be source of errors or problems sometime) --- .../Classes/SessionState.ScriptPosition.vb | 20 +- .../Classes/SessionState.StackedCallReturn.vb | 16 +- Tease AI/Classes/State.vb | 2 + Tease AI/Form1.vb | 651 +++++++++--------- 4 files changed, 361 insertions(+), 328 deletions(-) diff --git a/Tease AI/Classes/SessionState.ScriptPosition.vb b/Tease AI/Classes/SessionState.ScriptPosition.vb index f7e9a18..4f880aa 100644 --- a/Tease AI/Classes/SessionState.ScriptPosition.vb +++ b/Tease AI/Classes/SessionState.ScriptPosition.vb @@ -31,23 +31,27 @@ Partial Class SessionState Public Property GotoStatus As Boolean = False - Public Property LineGoTo As String = "" + Public Property LineGoTo As String = "" + + Public Property ReturnState As String = "" ''' Creates a new instance with given parameters. - Sub New(ByVal session As SessionState, ByVal filepath As String, ByVal line As Integer, ByVal goToStatus As Boolean, ByVal lineGoTo As String) + Sub New(ByVal session As SessionState, ByVal filepath As String, ByVal line As Integer, ByVal goToStatus As Boolean, ByVal lineGoTo As String, returnState As String) + + Me.Session = session - Me.Session = session + Me.FilePath = filepath - Me.FilePath = filepath + Me.Line = line - Me.Line = line + Me.GotoStatus = goToStatus - Me.GotoStatus = goToStatus + Me.LineGoTo = lineGoTo - Me.LineGoTo = lineGoTo + Me.ReturnState = returnState - End Sub + End Sub End Class diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb index b2a3a98..9aabc0a 100644 --- a/Tease AI/Classes/SessionState.StackedCallReturn.vb +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -3,17 +3,19 @@ Friend Class StackedCallReturn Inherits ScriptPosition - Public Property ReturnState As String + Dim yesOrNostate As Boolean Sub New(session As SessionState) - MyBase.New(session, session.FileText, session.StrokeTauntVal, session.GotoFlag, session.CameGotoLine) - ReturnState = Me.Session.ReturnSubState - End Sub + MyBase.New(session, session.FileText, session.StrokeTauntVal, session.GotoFlag, session.CameGotoLine, session.ReturnSubState) + yesOrNostate = session.YesOrNo + End Sub Sub resumeState() Session.StrokeTauntVal = Line Session.FileText = FilePath - Session.ReturnSubState = ReturnState - Session.FileGoto = LineGoTo - End Sub + Session.ReturnSubState = ReturnState + Session.GotoFlag = GotoStatus + Session.FileGoto = LineGoTo + Session.YesOrNo = yesOrNostate + End Sub End Class End Class \ No newline at end of file diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 34c8cb5..eeae750 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -276,6 +276,7 @@ Public Class SessionState Public Property LastScript As Boolean Public Property SaidHello As Boolean = False + Public Property justStarted As Boolean = False Public Property AvgEdgeStroking As Integer @@ -287,6 +288,7 @@ Public Class SessionState Public Property EdgeTickCheck As Integer Public Property EdgeNOT As Boolean + Public Property isLink As Boolean Public Property AlreadyStrokingEdge As Boolean diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 0404f24..babe7a7 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1564,11 +1564,12 @@ retryStart: Debug.Print("CHeck") + 'If checkSubAnswer("hi") = 1 Then + Debug.Print("CHeck") + ssh.justStarted = True ssh.SaidHello = True ssh.BeforeTease = True - - If FrmSettings.CBTeaseLengthDD.Checked = True Then @@ -1662,8 +1663,8 @@ NoPlaylistStartFile: ssh.ScriptTick = 3 ScriptTimer.Start() - End If + 'End If Next @@ -2597,6 +2598,15 @@ EdgeSkip: Public Sub DomResponse() Debug.Print("DomResponse Called") + If ssh.justStarted Then + ssh.justStarted = False + Else + 'preparation for check answer + 'If checkSubAnswer() = 0 Then + 'checkForPunish() + 'Return + 'End If + End If If ssh.InputFlag = True Then ssh.InputFlag = False @@ -3079,6 +3089,11 @@ DebugAwarenessStep2: ssh.CustomTaskFirst = True ssh.ScriptTick = 3 ScriptTimer.Start() + If ssh.YesOrNo Then + ssh.DomChat = "#SYS_ReturnAnswer" + TypingDelay() + Return + End If End If End If @@ -4099,7 +4114,7 @@ ReturnCalled: If ssh.MiniScript = True Then - If lines(ssh.MiniTauntVal) = "@End" Then + If lines(ssh.MiniTauntVal) = "@End" Or ssh.MiniTauntVal >= lines.Count Then ssh.MiniScript = False If ssh.MiniTimerCheck = True Then ssh.ScriptTick = 3 @@ -4110,10 +4125,20 @@ ReturnCalled: Return End If Else - If Not ssh.StrokeTauntVal > lines.Count - 1 Then - If lines(ssh.StrokeTauntVal) = "@End" Then - If ssh.CallReturns.Count = 0 Then - If ssh.ShowModule = True Then ssh.ModuleEnd = True + 'end the scripts anyway if it reaches the last line, even if the user forgot to use the @End command + If lines(ssh.StrokeTauntVal) = "@End" Or ssh.StrokeTauntVal >= lines.Count Then + If ssh.CallReturns.Count = 0 Then + If ssh.ShowModule = True Then ssh.ModuleEnd = True + End If + 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt + 'it will automatically do it to avoid session errors + If (ssh.isLink Or ssh.BeforeTease) And ssh.SubStroking = False Then + ssh.isLink = False + If My.Settings.Chastity Then + ssh.DomChat = "@NullResponse @StartTaunts" + Else + ssh.DomChat = "@NullResponse @StartStroking" + TypingDelay() End If End If End If @@ -4162,21 +4187,8 @@ ReturnCalled: 'Return 'End If - ' ### Debug - If ssh.nameErrors >= 3 And ssh.foundAnswer = True And ssh.wrongAttempt = True Then - ssh.DomChat = "#SYS_HonorificPunish" - TypingDelay() - If FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBallsActive = True - ssh.CBTBallsFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If - ssh.YesOrNo = False - ssh.foundAnswer = False - ssh.wrongAttempt = False - ssh.StrokeTauntVal -= 1 - Return - End If + ' ### DebugPrivate Sub checkForPunish() + checkForPunish() ModuleEnd: @@ -4291,80 +4303,8 @@ NonModuleEnd: If ssh.CallReturns.Count() > 0 Then - - ssh.CallReturns.Pop().resumeState() - 'github patch begin - 'If ReturnSubState = "Stroking" Then - 'If SubStroking = False Then - 'DomTask = "Get back to stroking @StartStroking" - 'TypingDelayGeneric() - 'Else - ' StrokeTimer.Start() - ' StrokeTauntTimer.Start() - 'End If - 'End If - 'If ReturnSubState = "Edging" Then - - 'github patch end - If ssh.ReturnSubState = "Stroking" Then - If My.Settings.Chastity = True Then - 'DomTask = "Now as I was saying @StartTaunts" - ssh.DomTask = "#Return_Chastity" - TypingDelayGeneric() - Else - If ssh.SubStroking = False Then - 'DomTask = "Get back to stroking @StartStroking" - ssh.DomTask = "#Return_Stroking" - TypingDelayGeneric() - Else - StrokeTimer.Start() - StrokeTauntTimer.Start() - End If - End If - End If - If ssh.ReturnSubState = "Edging" Then - If ssh.SubEdging = False Then - 'DomTask = "Start getting yourself to the edge again @Edge" - ssh.DomTask = "#Return_Edging" - 'SubStroking = True - TypingDelayGeneric() - Else - EdgeTauntTimer.Start() - EdgeCountTimer.Start() - End If - End If - If ssh.ReturnSubState = "Holding The Edge" Then - If ssh.SubEdging = False Then - 'DomTask = "Start getting yourself to the edge again @EdgeHold" - ssh.DomTask = "#Return_Holding" - 'SubStroking = True - TypingDelayGeneric() - Else - HoldEdgeTimer.Start() - HoldEdgeTauntTimer.Start() - End If - End If - If ssh.ReturnSubState = "CBTBalls" Then - 'DomTask = "Now let's get back to busting those #Balls @CBTBalls" - ssh.DomTask = "#Return_CBTBalls" - ssh.CBTBallsFirst = False - TypingDelayGeneric() - End If - If ssh.ReturnSubState = "CBTCock" Then - 'DomTask = "Now let's get back to abusing that #Cock @CBTCock" - ssh.DomTask = "#Return_CBTCock" - ssh.CBTCockFirst = False - TypingDelayGeneric() - End If - If ssh.ReturnSubState = "Rest" Then - ssh.DomTypeCheck = True - ssh.ScriptTick = 5 - ScriptTimer.Start() - 'DomTask = "Now as I was saying" - ssh.DomTask = "#Return_Rest" - TypingDelayGeneric() - Return - End If + handleCallReturn() + If ssh.ShowModule Then Return End If ScriptTimer.Stop() Return @@ -4393,15 +4333,9 @@ NonModuleEnd: Debug.Print("CHeck") - - - ssh.DomTask = (lines(line).Trim) - - - ssh.StringLength = 1 @@ -5662,62 +5596,34 @@ DommeSlideshowFallback: ssh.ModuleEnd = False ssh.ShowModule = False - 'DelayFlag = True - 'DelayTick = randomizer.Next(3, 6) - - 'DelayTimer.Start() - - 'Do - ' Application.DoEvents() - 'Loop Until DelayFlag = False - - 'LastScriptCountdown -= 1 - 'Debug.Print("LastScriptCountdown = " & LastScriptCountdown) - - 'FrmSettings.LBLOrgasmCountdown.Text = LastScriptCountdown - - 'StrokeTauntVal = -1 - - 'If TeaseTick < 1 And Playlist = False Then - 'RunLastScript() - 'ElseIf WasStroking Then - 'RunModuleScript(False) - 'Else - 'RunLinkScript() - 'End If - - - If ssh.CallReturns.Count() > 0 Then - ssh.ShowModule = True - ssh.AskedToGiveUpSection = False - ScriptTimer.Start() - - - - - - - Else - If ssh.TeaseTick < 1 And ssh.Playlist = False Then - ssh.StrokeTauntVal = -1 - RunLastScript() - ElseIf WasStroking And Not WasEdging And Not WasHolding Then - ssh.StrokeTauntVal = -1 - RunModuleScript(False) - ElseIf ssh.giveUpReturn Then + 'if giveupreturn is on, we continue with the script after the give up + If ssh.giveUpReturn Then ssh.ShowModule = True ssh.AskedToGiveUpSection = False ScriptTimer.Start() + Return + 'else we reset all the callreturns and move to a link/end/module as expected from the give up Else - ssh.StrokeTauntVal = -1 - RunLinkScript() + ssh.CallReturns.Clear() End If End If - End If - - + If ssh.TeaseTick < 1 And ssh.Playlist = False Then + ssh.StrokeTauntVal = -1 + RunLastScript() + ElseIf WasStroking And Not WasEdging And Not WasHolding Then + ssh.StrokeTauntVal = -1 + RunModuleScript(False) + ElseIf ssh.giveUpReturn Then + ssh.ShowModule = True + ssh.AskedToGiveUpSection = False + ScriptTimer.Start() + Else + ssh.StrokeTauntVal = -1 + RunLinkScript() + End If + End If End If End If @@ -6264,20 +6170,21 @@ DommeSlideshowFallback: If ssh.CBTBothActive = True Then ssh.CBTBothActive = False - - If ssh.CBTCockFlag = True Or ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Or ssh.CustomTask = True Then - ssh.TasksCount -= 1 - If ssh.TasksCount < 1 Then - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.CBTBallsFirst = True - ssh.CBTCockFirst = True - ssh.CBTBothFirst = True - ssh.CustomTaskFirst = True - End If - End If + 'i think these shouldn't be dealt with here....they are already dealt during domresponse, doing it also here will just + 'halve the number of tasks actually because it will be diminisher here and then also in the domme repsonse + + 'If ssh.CBTCockFlag = True Or ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Or ssh.CustomTask = True Then + 'ssh.TasksCount -= 1 + 'If ssh.TasksCount < 1 Then + 'ssh.CBTCockFlag = False + ' ssh.CBTBallsFlag = False + 'ssh.CBTBothFlag = False + 'ssh.CustomTask = False + 'ssh.CBTBallsFirst = True + 'ssh.CBTCockFirst = True + ' ssh.CBTBothFirst = True + 'ssh.CustomTaskFirst = True + 'End If If ssh.CBTCockFlag = True Then CBTCock() @@ -6333,36 +6240,35 @@ DommeSlideshowFallback: 'FrmSettings.LBLOrgasmCountdown.Text = LastScriptCountdown If ssh.CallReturns.Count() > 0 Then - ssh.ShowModule = True - ssh.AskedToGiveUpSection = False - ScriptTimer.Start() - - - - - - - Else - If ssh.TeaseTick < 1 And ssh.Playlist = False Then - ssh.StrokeTauntVal = -1 - RunLastScript() - ElseIf WasStroking And Not WasEdging And Not WasHolding Then - ssh.StrokeTauntVal = -1 - RunModuleScript(False) - ElseIf ssh.giveUpReturn Then + 'if giveupreturn is on, we continue with the script after the give up + If ssh.giveUpReturn Then ssh.ShowModule = True ssh.AskedToGiveUpSection = False ScriptTimer.Start() + Return + 'else we reset all the callreturns and move to a link/end/module as expected from the give up Else - ssh.StrokeTauntVal = -1 - RunLinkScript() + ssh.CallReturns.Clear() End If End If + If ssh.TeaseTick < 1 And ssh.Playlist = False Then + ssh.StrokeTauntVal = -1 + RunLastScript() + ElseIf WasStroking And Not WasEdging And Not WasHolding Then + ssh.StrokeTauntVal = -1 + RunModuleScript(False) + ElseIf ssh.giveUpReturn Then + ssh.ShowModule = True + ssh.AskedToGiveUpSection = False + ScriptTimer.Start() + Else + ssh.StrokeTauntVal = -1 + RunLinkScript() + End If End If End If End If - End Sub @@ -8941,7 +8847,7 @@ RinseLatherRepeat: "Please make sure the directory exists and it is spelled correctly in the script.") End If - If tmpFilter = "*" Then + If tmpFilter = "*" Or tmpFilter = "*.*" Then ImageList = myDirectory.GetFilesImages(tmpDir) Else ImageList = Directory.GetFiles(tmpDir, tmpFilter, SearchOption.TopDirectoryOnly).ToList @@ -11519,7 +11425,14 @@ OrgasmDecided: If StringClean.Contains("@PlayCensorshipSucks") Then - RandomVideo() + If StringClean.Contains("@PlayCensorshipSucks[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") + Else + RandomVideo() + StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + End If If ssh.NoVideo = False Then ssh.ScriptVideoTease = "Censorship Sucks" @@ -11563,8 +11476,14 @@ OrgasmDecided: If StringClean.Contains("@PlayAvoidTheEdge") Then ' #### Reboot - - RandomVideo() + If StringClean.Contains("@PlayAvoidTheEdge[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") + Else + RandomVideo() + StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") + End If If ssh.NoVideo = False Then @@ -11605,8 +11524,14 @@ OrgasmDecided: If StringClean.Contains("@PlayRedLightGreenLight") Then ' #### Reboot - - RandomVideo() + If StringClean.Contains("@PlayRedLightGreenLight[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") + Else + RandomVideo() + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") + End If If ssh.NoVideo = False Then @@ -11634,126 +11559,15 @@ OrgasmDecided: End If If StringClean.Contains("@PlayVideo[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") + selectVideo(videoFlag) - Dim VideoFlag As String = GetParentheses(StringClean, "@PlayVideo[") - Dim VideoClean As String - - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If - - If VideoFlag.Contains(":\") Then - VideoClean = VideoFlag - - If File.Exists(VideoClean) Then - DomWMP.URL = VideoClean - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True - - If ssh.JumpVideo = True Then - - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - - End If - - ssh.JumpVideo = False - - Else - MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - - GoTo ExternalVideo - - Else - VideoClean = Application.StartupPath & "\Video\" & VideoFlag - VideoClean = VideoClean.Replace("\\", "\") - End If - - - - Debug.Print("VideoFlag = " & VideoFlag) - - If VideoClean.Contains("*") Then - - Dim VideoList As New List(Of String) - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(VideoClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(VideoClean)) - VideoList.Add(foundFile) - Next - - If VideoList.Count > 0 Then - DomWMP.URL = VideoList(ssh.randomizer.Next(0, VideoList.Count)) - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True - - If ssh.JumpVideo = True Then - - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - - End If - - ssh.JumpVideo = False - Else - MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - + If ssh.NoVideo = False Then + ssh.TeaseVideo = True Else - - If File.Exists(VideoClean) Then - DomWMP.URL = VideoClean - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True - - If ssh.JumpVideo = True Then - - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - - End If - - ssh.JumpVideo = False - - Else - MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If -ExternalVideo: - StringClean = StringClean.Replace("@PlayVideo[" & VideoFlag & "]", "") End If @@ -12571,7 +12385,7 @@ VTSkip: GetSubState() ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) - + ssh.YesOrNo = False GotoClear() StrokeTimer.Stop() @@ -15205,9 +15019,9 @@ VTSkip: End Sub - Public Sub RunModuleScript(ByVal IsEdging As Boolean) - - ssh.ShowModule = True + Public Sub RunModuleScript(ByVal IsEdging As Boolean) + ssh.isLink = False + ssh.ShowModule = True ssh.FirstRound = False ssh.TauntEdging = False @@ -15330,9 +15144,10 @@ NoPlaylistModuleFile: - Public Sub RunLinkScript() + Public Sub RunLinkScript() + ssh.isLink = True - Debug.Print("RunLinkScript() Called") + Debug.Print("RunLinkScript() Called") ssh.FirstRound = False ClearModes() @@ -21044,7 +20859,81 @@ playLoop: Private Sub GotoClear() ssh.GotoFlag = False ssh.FileGoto = "" + End Sub + Private Sub handleCallReturn() + ssh.CallReturns.Pop().resumeState() + If ssh.ReturnSubState = "Stroking" Then + If My.Settings.Chastity = True Then + 'DomTask = "Now as I was saying @StartTaunts" + If ssh.CallReturns.Count() = 0 Then + ssh.DomTask = "#Return_Chastity" + Else + ssh.DomTask = "@NullResponse" + End If + TypingDelayGeneric() + Else + If ssh.SubStroking = False Then + 'DomTask = "Get back to stroking @StartStroking" + If ssh.CallReturns.Count() = 0 Then + ssh.DomTask = "#Return_Stroking" + Else + ssh.DomTask = "@NullResponse" + End If + TypingDelayGeneric() + Else + If Not ssh.ShowModule Then + StrokeTimer.Start() + StrokeTauntTimer.Start() + End If + End If + End If + ElseIf ssh.ReturnSubState = "Edging" Then + If ssh.SubEdging = False Then + 'DomTask = "Start getting yourself to the edge again @Edge" + ssh.DomTask = "#Return_Edging" + 'SubStroking = True + TypingDelayGeneric() + Else + EdgeTauntTimer.Start() + EdgeCountTimer.Start() + End If + ElseIf ssh.ReturnSubState = "Holding The Edge" Then + If ssh.SubEdging = False Then + 'DomTask = "Start getting yourself to the edge again @EdgeHold" + ssh.DomTask = "#Return_Holding" + 'SubStroking = True + TypingDelayGeneric() + Else + HoldEdgeTimer.Start() + HoldEdgeTauntTimer.Start() + End If + ElseIf ssh.ReturnSubState = "CBTBalls" Then + 'DomTask = "Now let's get back to busting those #Balls @CBTBalls" + ssh.DomTask = "#Return_CBTBalls" + ssh.CBTBallsFirst = False + TypingDelayGeneric() + ElseIf ssh.ReturnSubState = "CBTCock" Then + 'DomTask = "Now let's get back to abusing that #Cock @CBTCock" + ssh.DomTask = "#Return_CBTCock" + ssh.CBTCockFirst = False + TypingDelayGeneric() + ElseIf ssh.ReturnSubState = "Rest" Then + ssh.DomTypeCheck = True + ssh.ScriptTick = 2 + ScriptTimer.Start() + 'DomTask = "Now as I was saying" + 'If StrComp(tempStatus, ssh.ReturnSubState) <> 0 Then + 'ssh.DomTask = "#Return_Rest" + 'Else + If ssh.YesOrNo Then + ssh.DomTask = "#SYS_ReturnAnswer" + Else + ssh.DomTask = "@NullResponse" + End If + 'End If + TypingDelayGeneric() + End If End Sub Public Sub setStartName() @@ -21108,5 +20997,141 @@ playLoop: Return stringToCheck End Function + Private Sub checkForPunish() + If ssh.nameErrors >= 3 And ssh.wrongAttempt = True Then + ssh.DomChat = "" + If ssh.contactToUse.Equals(ssh.SlideshowContact1) Then + ssh.DomChat = "@Contact1 " + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact2) Then + ssh.DomChat = "@Contact2 " + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact3) Then + ssh.DomChat = "@Contact3 " + End If + ssh.DomChat += "#SYS_HonorificPunish" + ssh.wrongAttempt = False + End If + TypingDelay() + End Sub + + + Private Sub selectVideo(StringClean As String) + + Dim VideoClean As String + + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If + + If StringClean.Contains(":\") Then + VideoClean = StringClean + + If File.Exists(VideoClean) Then + DomWMP.URL = VideoClean + DomWMP.Visible = True + mainPictureBox.Visible = False + ssh.TeaseVideo = True + + If ssh.JumpVideo = True Then + + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + + End If + + ssh.JumpVideo = False + + Else + MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + + GoTo ExternalVideo + + Else + VideoClean = Application.StartupPath & "\Video\" & StringClean + VideoClean = VideoClean.Replace("\\", "\") + End If + + + + Debug.Print("VideoFlag = " & StringClean) + + If VideoClean.Contains("*") Then + + Dim VideoList As New List(Of String) + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(VideoClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(VideoClean)) + VideoList.Add(foundFile) + Next + + If VideoList.Count > 0 Then + DomWMP.URL = VideoList(ssh.randomizer.Next(0, VideoList.Count)) + DomWMP.Visible = True + mainPictureBox.Visible = False + + If ssh.JumpVideo = True Then + + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + + End If + + ssh.JumpVideo = False + Else + MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + + Else + + If File.Exists(VideoClean) Then + DomWMP.URL = VideoClean + DomWMP.Visible = True + mainPictureBox.Visible = False + + If ssh.JumpVideo = True Then + + Do + Application.DoEvents() + Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) + + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + + End If + + ssh.JumpVideo = False + + Else + MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + + End If + +ExternalVideo: + End Sub + End Class From 1faf6f735ceb7f61de86865f33be684dead3aeda Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 9 Apr 2017 23:59:53 +0200 Subject: [PATCH 060/143] Inserted the domhonorific checks to check everytime you write and not only when asked for an answer. The honorific to be checked against will be the one of the contact currently speaking (so if it was @Contact2 the last one speaking, or the one asking you a question, you'll have to use her honorific to avoid getting a wrong honorific) --- Tease AI/Classes/State.vb | 21 +- Tease AI/Classes/subAnswers.vb | 49 +++ Tease AI/Form1.vb | 423 +++++++++++------------ Tease AI/Form2.vb | 8 + Tease AI/My Project/Settings.Designer.vb | 16 +- Tease AI/Tease AI.vbproj | 1 + 6 files changed, 289 insertions(+), 229 deletions(-) create mode 100644 Tease AI/Classes/subAnswers.vb diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index eeae750..a24dbfa 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -558,6 +558,8 @@ Public Class SessionState Public Property SecondSession As Boolean + Public Property checkAnswers As subAnswers + ''' ''' Set to true if the sub is on the edge and the domme had decided to not to stop stroking. ''' @@ -728,7 +730,7 @@ Public Class SessionState currentlyPresentContacts.Add(SlideshowMain.TypeName) CaloriesConsumed = My.Settings.CaloriesConsumed - + checkAnswers = New subAnswers(Me) End Sub #End Region ' Constructors @@ -1262,5 +1264,22 @@ Public Class SessionState End If End Function + Public Function obtainSplitParts(splitMe As String, isChat As Boolean) As String() + splitMe = "[" & splitMe & "] Null" + Dim Splits As String() = splitMe.Split(New Char() {"]"c}) + Splits(0) = Splits(0).Replace("[", "") + Do + Splits(0) = Splits(0).Replace(" ", " ") + Splits(0) = Splits(0).Replace(" ,", ",") + Splits(0) = Splits(0).Replace(", ", ",") + Splits(0) = Splits(0).Replace("'", "") + Loop Until Not Splits(0).Contains(" ") And Not Splits(0).Contains(", ") And Not Splits(0).Contains(" ,") And Not Splits(0).Contains("'") + If isChat Then + 'che(32) is the code for empty space + Return Splits(0).Split(New Char() {Chr(32), ","c}) + Else + Return Splits(0).Split(New Char() {","c}) + End If + End Function End Class diff --git a/Tease AI/Classes/subAnswers.vb b/Tease AI/Classes/subAnswers.vb new file mode 100644 index 0000000..4c82f35 --- /dev/null +++ b/Tease AI/Classes/subAnswers.vb @@ -0,0 +1,49 @@ + +Public Class subAnswers + + Private checkList As New List(Of String) + Private ssh As SessionState + + Sub New(session As SessionState) + ssh = session + checkList.Add(My.Settings.SubGreeting) + checkList.Add(My.Settings.SubYes) + checkList.Add(My.Settings.SubNo) + checkList.Add(My.Settings.SubSorry) + checkList.Add("please") + checkList.Add("thank,thanks,thank you") + End Sub + + Public Function returnWords(s As String) As String + Select Case s + Case "hi" + Return checkList.Item(0) + Case "yes" + Return checkList.Item(1) + Case "no" + Return checkList.Item(2) + Case "sorry" + Return checkList.Item(3) + Case "thanks" + Return checkList.Item(5) + Case "please" + Return checkList.Item(4) + Case Else + Return checkList.Item(0) + End Select + End Function + + Public Function returnAll() As List(Of String) + Return checkList + End Function + + Public Function containListedWords(wordList As String) As Boolean + Dim list As String() = ssh.obtainSplitParts(wordList, False) + For i As Integer = 0 To list.Length - 1 + For n As Integer = 0 To checkList.Count() - 1 + If UCase(checkList(n)).Contains(UCase(list(i))) Then Return True + Next + Next + Return False + End Function +End Class diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index babe7a7..a9c5620 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -735,6 +735,7 @@ retryStart: FrmSettings.TBGreeting.Text = My.Settings.SubGreeting FrmSettings.TBYes.Text = My.Settings.SubYes FrmSettings.TBNo.Text = My.Settings.SubNo + FrmSettings.TBSorry.Text = My.Settings.SubSorry FrmSettings.TBHonorific.Text = My.Settings.SubHonorific FrmSettings.G1Honorific.Text = My.Settings.G1Honorific FrmSettings.G2Honorific.Text = My.Settings.G2Honorific @@ -1564,107 +1565,107 @@ retryStart: Debug.Print("CHeck") - 'If checkSubAnswer("hi") = 1 Then - Debug.Print("CHeck") - ssh.justStarted = True - ssh.SaidHello = True - ssh.BeforeTease = True + If checkSubAnswer("hi") = 1 Then + Debug.Print("CHeck") + ssh.justStarted = True + ssh.SaidHello = True + ssh.BeforeTease = True - If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else + Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If + End If - TeaseTimer.Start() + TeaseTimer.Start() - ' Lock Orgasm Chances if setting is activated. - If My.Settings.LockOrgasmChances Then _ + ' Lock Orgasm Chances if setting is activated. + If My.Settings.LockOrgasmChances Then _ FrmSettings.LockOrgasmChances(True) - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistStartFile + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistStartFile - If ssh.Playlist = False Or ssh.PlaylistFile(0).Contains("Random Start") Then + If ssh.Playlist = False Or ssh.PlaylistFile(0).Contains("Random Start") Then NoPlaylistStartFile: - Dim StartList As New List(Of String) - StartList.Clear() + Dim StartList As New List(Of String) + StartList.Clear() - Dim ChastityStartCheck As String - If My.Settings.Chastity = True Then - ChastityStartCheck = "*_CHASTITY.txt" - Else - ChastityStartCheck = "*.txt" - End If + Dim ChastityStartCheck As String + If My.Settings.Chastity = True Then + ChastityStartCheck = "*_CHASTITY.txt" + Else + ChastityStartCheck = "*.txt" + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\", FileIO.SearchOption.SearchTopLevelOnly, ChastityStartCheck) - Dim TempStart As String = foundFile - TempStart = TempStart.Replace(".txt", "") - Do Until Not TempStart.Contains("\") - TempStart = TempStart.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBStartList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True Then - StartList.Add(foundFile) - End If - Else - If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True And Not TempStart.Contains("_CHASTITY") Then - StartList.Add(foundFile) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\", FileIO.SearchOption.SearchTopLevelOnly, ChastityStartCheck) + Dim TempStart As String = foundFile + TempStart = TempStart.Replace(".txt", "") + Do Until Not TempStart.Contains("\") + TempStart = TempStart.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBStartList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True Then + StartList.Add(foundFile) + End If + Else + If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True And Not TempStart.Contains("_CHASTITY") Then + StartList.Add(foundFile) + End If End If - End If + Next Next - Next - If StartList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start_CHASTITY.txt" + If StartList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start_CHASTITY.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start.txt" + End If Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start.txt" + ssh.FileText = StartList(ssh.randomizer.Next(0, StartList.Count)) End If - Else - ssh.FileText = StartList(ssh.randomizer.Next(0, StartList.Count)) - End If - Else - Debug.Print("Start situation found") - If ssh.PlaylistFile(0).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\" & ssh.PlaylistFile(0) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Start\" & ssh.PlaylistFile(0) & ".txt" + Debug.Print("Start situation found") + If ssh.PlaylistFile(0).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\" & ssh.PlaylistFile(0) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Start\" & ssh.PlaylistFile(0) & ".txt" + End If End If - End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - ssh.LastScriptCountdown = ssh.randomizer.Next(3, 5 * FrmSettings.domlevelNumBox.Value) + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + ssh.LastScriptCountdown = ssh.randomizer.Next(3, 5 * FrmSettings.domlevelNumBox.Value) - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - If FrmSettings.CBRandomDomme.Checked = True Then ssh.glitterDommeNumber = 4 - LoadDommeImageFolder() - End If + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + If FrmSettings.CBRandomDomme.Checked = True Then ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + End If End If - 'End If Next @@ -2601,11 +2602,10 @@ EdgeSkip: If ssh.justStarted Then ssh.justStarted = False Else - 'preparation for check answer - 'If checkSubAnswer() = 0 Then - 'checkForPunish() - 'Return - 'End If + If checkSubAnswer() = 0 Then + checkForPunish() + Return + End If End If If ssh.InputFlag = True Then @@ -3534,9 +3534,6 @@ NullSkip: End If - - Dim AcceptLine As Integer - ' Read all lines of File Dim lines As List(Of String) = Txt2List(dir) Dim line As Integer @@ -3547,12 +3544,10 @@ NullSkip: line = ssh.StrokeTauntVal End If - AcceptLine = 0 Dim TempLineVal As Integer Do line += 1 - AcceptLine += 1 Loop Until InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 @@ -3565,156 +3560,51 @@ NullSkip: End If Dim CheckLines As String - - - Do - line += 1 - - CheckLines = lines(line) - - - ssh.CheckYes = False - ssh.CheckNo = False - - If UCase(CheckLines).Contains(UCase("[yes]")) Then ssh.CheckYes = True - If UCase(CheckLines).Contains(UCase("[no]")) Then ssh.CheckNo = True - - - Dim Splits As String() = CheckLines.Split(New Char() {"]"c}) - Splits(0) = Splits(0).Replace("[", "") - - Dim ChatReplace As String = CheckLines.Replace("[" & Splits(0) & "]", "") - - If ssh.CheckYes = True Then Splits(0) = FrmSettings.TBYes.Text - If ssh.CheckNo = True Then Splits(0) = FrmSettings.TBNo.Text - - - - Do - Splits(0) = Splits(0).Replace(" ", " ") - Splits(0) = Splits(0).Replace(" ,", ",") - Splits(0) = Splits(0).Replace(", ", ",") - Splits(0) = Splits(0).Replace("'", "") - Loop Until Not Splits(0).Contains(" ") And Not Splits(0).Contains(", ") And Not Splits(0).Contains(" ,") And Not Splits(0).Contains("'") - - Dim SplitParts As String() = Splits(0).Split(New Char() {","c}) - - For i As Integer = 0 To SplitParts.Length - 1 - - If UCase(TempChatString) = (UCase(SplitParts(i))) Then - - If ssh.CheckYes = True Or ssh.CheckNo = True Then - If FrmSettings.CBHonorificInclude.Checked = True Then - If Not UCase(TempChatString).Contains(UCase(ssh.tempHonorific)) Then - ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" - If FrmSettings.LCaseCheckBox.Checked = False Then - Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) - ssh.DomChat = ssh.DomChat.Remove(0, 1) - ssh.DomChat = DomU & ssh.DomChat - ssh.nameErrors += 1 - ssh.wrongAttempt = True - End If - TypingDelay() - Return - End If - If FrmSettings.CBHonorificCapitalized.Checked = True Then - If Not ssh.ChatString.Contains(ssh.tempHonorific) Then - ssh.DomChat = "#DomHonorific" - ssh.nameErrors += 1 - ssh.wrongAttempt = True - TypingDelay() - Return - End If - End If - End If - End If - - 'Splits(0) = "" - 'DomChat = Join(Splits, "]") - ssh.DomChat = updateDommeName(ChatReplace) - - ' DomChat = Splits(1) - GoTo FoundAnswer - End If - Next - - Loop Until InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 - - If ssh.MiniScript = True Then - line = ssh.MiniTauntVal - Else - line = ssh.StrokeTauntVal - End If + Dim ChatReplace As String Do line += 1 - CheckLines = lines(line) - - ssh.CheckYes = False - ssh.CheckNo = False - - If UCase(CheckLines).Contains(UCase("[yes]")) Then ssh.CheckYes = True - If UCase(CheckLines).Contains(UCase("[no]")) Then ssh.CheckNo = True - - + Dim checkResult As Integer = -1 Dim Splits As String() = CheckLines.Split(New Char() {"]"c}) Splits(0) = Splits(0).Replace("[", "") + ChatReplace = CheckLines.Replace("[" & Splits(0) & "]", "") - Dim ChatReplace As String = CheckLines.Replace("[" & Splits(0) & "]", "") - - If ssh.CheckYes = True Then Splits(0) = FrmSettings.TBYes.Text - If ssh.CheckNo = True Then Splits(0) = FrmSettings.TBNo.Text - - Do - Splits(0) = Splits(0).Replace(" ", " ") - Splits(0) = Splits(0).Replace(" ,", ",") - Splits(0) = Splits(0).Replace(", ", ",") - Splits(0) = Splits(0).Replace("'", "") - Loop Until Not Splits(0).Contains(" ") And Not Splits(0).Contains(", ") And Not Splits(0).Contains(" ,") And Not Splits(0).Contains("'") - - Dim SplitParts As String() = Splits(0).Split(New Char() {","c}) - - For i As Integer = 0 To SplitParts.Length - 1 - If UCase(TempChatString).Contains(UCase(SplitParts(i))) Then - - If ssh.CheckYes = True Or ssh.CheckNo = True Then - If FrmSettings.CBHonorificInclude.Checked = True Then - If Not UCase(TempChatString).Contains(UCase(ssh.tempHonorific)) Then - ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" - If FrmSettings.LCaseCheckBox.Checked = False Then - Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) - ssh.DomChat = ssh.DomChat.Remove(0, 1) - ssh.DomChat = DomU & ssh.DomChat - ssh.nameErrors += 1 - ssh.wrongAttempt = True - End If - TypingDelay() - Return - End If - If FrmSettings.CBHonorificCapitalized.Checked = True Then - If Not ssh.ChatString.Contains(ssh.tempHonorific) Then - ssh.DomChat = "#SYS_CapitalizeHonorific" - ssh.nameErrors += 1 - ssh.wrongAttempt = True - TypingDelay() - Return - End If - End If - End If - End If - ssh.DomChat = updateDommeName(ChatReplace) - GoTo FoundAnswer - End If - Next + 'we check to see if what the user wrote contains one of the keywords for the different yes/no/etc responses + 'this is useful if the script contains something like [yes,maybe] as an answer option + 'if the user write maybe then it will not need to use the honorific but if he writes yes, instead, it will check the honorific + If Not ssh.checkAnswers.containListedWords(ssh.ChatString) Then + checkResult = checkSubAnswer(Splits(0)) + Else + If UCase(CheckLines).Contains(UCase("[yes")) Or UCase(CheckLines).Contains(UCase("yes]")) Then + checkResult = checkSubAnswer("yes") + ElseIf UCase(CheckLines).Contains(UCase("[no")) Or UCase(CheckLines).Contains(UCase("no]")) Then + checkResult = checkSubAnswer("no") + ElseIf UCase(CheckLines).Contains(UCase("[hi")) Or UCase(CheckLines).Contains(UCase("hi]")) Or UCase(CheckLines).Contains(UCase("[hello")) Or UCase(CheckLines).Contains(UCase("hello]")) Then + checkResult = checkSubAnswer("hi") + ElseIf UCase(CheckLines).Contains(UCase("[sorry")) Or UCase(CheckLines).Contains(UCase("sorry]")) Then + checkResult = checkSubAnswer("sorry") + ElseIf UCase(CheckLines).Contains(UCase("[thank")) Or UCase(CheckLines).Contains(UCase("thank ")) Then + checkResult = checkSubAnswer("thanks") + ElseIf UCase(CheckLines).Contains(UCase("[please")) Or UCase(CheckLines).Contains(UCase("please]")) Then + checkResult = checkSubAnswer("please") + End If + End If + + If checkResult = 1 Then + GoTo FoundAnswer + ElseIf checkResult = 0 Then + checkForPunish() + Return + End If Loop Until InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 GoTo NothingFound FoundAnswer: - + ssh.DomChat = updateDommeName(ChatReplace) If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True If ssh.DomChat.Contains("@LoopAnswer") Then GoTo LoopAnswer @@ -3736,13 +3626,11 @@ FoundAnswer: NothingFound: - + If checkSubAnswer() = 0 Then + checkForPunish() + Return + End If If InStr(UCase(lines(line)), UCase("DifferentAnswer")) <> 0 Then - If ssh.wrongAttempt Then - ssh.wrongAttempt = False - Else - If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 - End If DifferentAnswer: ssh.DomChat = lines(line) @@ -3757,11 +3645,7 @@ LoopAnswer: If InStr(UCase(lines(line)), UCase("AcceptAnswer")) <> 0 Then - If ssh.wrongAttempt Then - ssh.wrongAttempt = False - Else - If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 - End If + AcceptAnswer: ssh.DomChat = lines(TempLineVal) ' TimedAnswerTimer.Stop() @@ -4188,7 +4072,6 @@ ReturnCalled: 'End If ' ### DebugPrivate Sub checkForPunish() - checkForPunish() ModuleEnd: @@ -21133,5 +21016,93 @@ playLoop: ExternalVideo: End Sub + 'return -1 if word to check was not present, 0 if something in the honorific is wrong, 1 if all is ok + Private Function checkSubAnswer(Optional caseToCheck As String = "") As Integer + ssh.DomChat = "" + If Not IsNothing(ssh.contactToUse) Then + If ssh.contactToUse.Equals(ssh.SlideshowContact1) Then + ssh.DomChat = "@Contact1 " + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact2) Then + ssh.DomChat = "@Contact2 " + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact3) Then + ssh.DomChat = "@Contact3 " + End If + End If + Dim checkfor As New List(Of String) + Dim checkForHonorific As Boolean = True + Dim splitChat As String() + splitChat = ssh.obtainSplitParts(ssh.ChatString, True) + + 'checkanswers is a new class which stores all the saved settings for hi,yes,no,sorry words that the used has chosen + 'if we don't have a specific word to check for, we check for them all (this is used anytime the sub write anything) + If caseToCheck = "" Then + checkfor = ssh.checkAnswers.returnAll + 'the next two are used when there is a question from the domme + 'if there is the specific yes/no/hi/sorry answers, we check if the sub uses the honorific as expected + ElseIf caseToCheck = "yes" Or caseToCheck = "no" Or caseToCheck = "hi" Or caseToCheck = "sorry" Or caseToCheck = "please" Or caseToCheck = "thanks" Then + checkfor.Add(ssh.checkAnswers.returnWords(caseToCheck)) + Else + 'otherwise we check only to see if he wrote exactly what he was supposed to do + checkfor.Add(caseToCheck) + checkForHonorific = False + 'so we don't split the response but check the whole phrase (we "split" for an unused char so it is basically impossible the user will use it) + splitChat = ssh.ChatString.Split(New Char() {"§"}) + End If + + For i = 0 To checkfor.Count - 1 + Dim SplitParts As String() = ssh.obtainSplitParts(checkfor(i), False) + + For n As Integer = 0 To SplitParts.Length - 1 + For m As Integer = 0 To splitChat.Length - 1 + Dim condition As Boolean + If checkForHonorific Then + 'this will make so that the #Sys_MissingHonorific will respond using the word that triggered it (i.e. yes what? sure what? etc) + condition = UCase(splitChat(m)) = UCase(SplitParts(n)) + Else + 'but if we are not checking for honorific (i.e. an answer to a specific question) we just check it the needed words are present + 'in the sub answer + condition = UCase(splitChat(m)).Contains(UCase(SplitParts(n))) + End If + + If condition Then + If checkForHonorific Then + If FrmSettings.CBHonorificInclude.Checked = True Then + If WordExists(UCase(ssh.ChatString), UCase(ssh.tempHonorific)) = False Then + ssh.DomChat += SplitParts(n) & " #SYS_MissingHonorific" + If FrmSettings.LCaseCheckBox.Checked = False Then + Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) + ssh.DomChat = ssh.DomChat.Remove(0, 1) + ssh.DomChat = DomU & ssh.DomChat + ssh.nameErrors += 1 + ssh.wrongAttempt = True + End If + TypingDelay() + Return 0 + End If + + If FrmSettings.CBHonorificCapitalized.Checked = True Then + If WordExists(ssh.ChatString, Capitalize(ssh.tempHonorific)) = False Then + 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then + ssh.DomChat += "#SYS_CapitalizeHonorific" + ssh.nameErrors += 1 + ssh.wrongAttempt = True + TypingDelay() + Return 0 + End If + End If + End If + If ssh.wrongAttempt Then + ssh.wrongAttempt = False + Else + If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 + End If + End If + Return 1 + End If + Next + Next + Next + Return -1 + End Function End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index b77326f..29f033b 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -6248,14 +6248,22 @@ checkFolder: Private Sub TBGreeting_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBGreeting.LostFocus My.Settings.SubGreeting = TBGreeting.Text + Ssh.checkAnswers = New subAnswers(Ssh) End Sub Private Sub TBYes_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBYes.LostFocus My.Settings.SubYes = TBYes.Text + Ssh.checkAnswers = New subAnswers(Ssh) End Sub Private Sub TBNo_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBNo.LostFocus My.Settings.SubNo = TBNo.Text + Ssh.checkAnswers = New subAnswers(Ssh) + End Sub + + Private Sub TBSorry_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBSorry.LostFocus + My.Settings.SubSorry = TBSorry.Text + Ssh.checkAnswers = New subAnswers(Ssh) End Sub Private Sub TBHonorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBHonorific.LostFocus diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 556abc9..bc92bac 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -2009,8 +2009,20 @@ Namespace My Me("SubNo") = value End Set End Property - - + Public Property SubSorry() As String + Get + Return CType(Me("SubSorry"), String) + End Get + Set + Me("SubSorry") = Value + End Set + End Property + + _ Public Property SubHonorific() As String diff --git a/Tease AI/Tease AI.vbproj b/Tease AI/Tease AI.vbproj index 995d66d..e88d44b 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -119,6 +119,7 @@ + Component From 6ccd6f97ee2b26e3fc70c348b8f83b0212e5b33c Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 10 Apr 2017 21:35:20 +0200 Subject: [PATCH 061/143] improved GetLocalImage() function to be able to check for infinite number of tags and not just the first 3: @ImageTag(a,b,c,d,e) previously would return an image even if it just had a,b,c (and wouldn't check for d and e). Now it shows an image only it has all a,b,c,d,e --- Tease AI/Classes/ContactData.vb | 51 +++++++++++++++++++-------------- Tease AI/Form1.vb | 22 ++++++-------- 2 files changed, 37 insertions(+), 36 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index 0135f6a..4184611 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -495,29 +495,36 @@ tryNextImage: Dim CurrImgIndex As Integer = ImageList.IndexOf(CurrentImage) Dim rtnPath As String = "" Dim CurrDist As Integer = 999999 - - For Each str As String In ImagePaths.TagImageList - Dim IndexInList As Integer = ImageList.IndexOf(str) - ' Calculate the distance of ListIndex from the FoundFile to CurrentImage - Dim FileDist As Integer = IndexInList - CurrImgIndex - ' Convert negative values to positive by multipling (-) x (-) = (+) - If FileDist < 0 Then FileDist *= -1 - ' Check if the distance is bigger than the previous one - If FileDist <= CurrDist Then - ' Yes: We will set this file and save its distance + 'this function was constantly giving the same pic over and over to me + 'i just changed to give a random image with the required tag. + 'now it correctly changes the pic and avoid the repetition over and over + + 'For Each str As String In ImagePaths.TagImageList + 'Dim IndexInList As Integer = ImageList.IndexOf(str) + ' Calculate the distance of ListIndex from the FoundFile to CurrentImage + 'Dim FileDist As Integer = IndexInList - CurrImgIndex + ' Convert negative values to positive by multipling (-) x (-) = (+) + 'If FileDist < 0 Then FileDist *= -1 + ' Check if the distance is bigger than the previous one + 'If FileDist <= CurrDist Then + ' Yes: We will set this file and save its distance SetForwardImage: - rtnPath = str - CurrDist = FileDist - ElseIf ImagePaths.LastPicked = rtnPath AndAlso New Random().Next(0, 101) > 60 Then - ' The last Picked image is the same as last time. - GoTo SetForwardImage - Else - ' As the list is in the Same order as the Slideshow-List, - ' we can stop searching, when the value is getting bigger. - Exit For - End If - Next - + ' rtnPath = str + 'CurrDist = FileDist + 'ElseIf ImagePaths.LastPicked = rtnPath AndAlso New Random().Next(0, 101) > 60 Then + ' The last Picked image is the same as last time. + 'GoTo SetForwardImage + 'Else + ' As the list is in the Same order as the Slideshow-List, + ' we can stop searching, when the value is getting bigger. + 'Exit For + 'End If + 'Next + If ImagePaths.TagImageList.Count <> 0 Then + rtnPath = ImagePaths.TagImageList.ElementAt(New Random().Next(0, ImagePaths.TagImageList.Count)) + Else + rtnPath = ImagePaths.LastPicked + End If '=================================================================== ' Check result If String.IsNullOrWhiteSpace(rtnPath) Then diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index a9c5620..52096c1 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -13583,23 +13583,17 @@ VTSkip: Dim LocTagArray As String() = LocTag.Split(",") - Dim LocTag1 As String = " " - Dim LocTag2 As String = " " - Dim LocTag3 As String = " " - - For i As Integer = 0 To LocTagArray.Count - 1 - If i = 0 Then LocTag1 = "Tag" & LocTagArray(0) - If i = 1 Then LocTag2 = "Tag" & LocTagArray(1) - If i = 2 Then LocTag3 = "Tag" & LocTagArray(2) - Next - - Dim TaggedList As New List(Of String) For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(LocTag1) And TagList(i).Contains(LocTag2) And TagList(i).Contains(LocTag3) Then - TaggedList.Add(TagList(i)) - End If + Dim addImg As Boolean = True + For n As Integer = 0 To LocTagArray.Count - 1 + If Not TagList(i).Contains(LocTagArray(n)) Then + addImg = False + Exit For + End If + If addImg Then TaggedList.Add(TagList(i)) + Next Next If TaggedList.Count > 0 Then From be4f78b29df6f62f393cdc0da4eebdfb2b15d68a Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 10 Apr 2017 21:44:18 +0200 Subject: [PATCH 062/143] new command: @ImageTagOr(): will return an image having at least one of the tags to check against --- Tease AI/Form1.vb | 62 ++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 58 insertions(+), 4 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 52096c1..c876d7b 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4813,6 +4813,7 @@ SkipIsTyping: '################## Display a Slideimage? ################# 'TODO: Optimize Code. Since images loaded by the Backgroundworker are prioritized, this section can be shrinked down. If ssh.DomTask.Contains("@ImageTag") Then ssh.JustShowedBlogImage = True + If ssh.DomTask.Contains("@ImageTagOr") Then ssh.JustShowedBlogImage = True If ssh.DomTask.Contains("@ShowHardcoreImage") Then ssh.JustShowedBlogImage = True If ssh.DomTask.Contains("@ShowSoftcoreImage") Then ssh.JustShowedBlogImage = True @@ -8485,6 +8486,12 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") End If + If StringClean.Contains("@ImageTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") + ShowImage(GetLocalImageOr(TagFlag), False) + StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") + End If + If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then ShowImage(GetRandomImage(), False) StringClean = StringClean.Replace("@ShowImage", "") @@ -13616,6 +13623,48 @@ VTSkip: End If End Function + Public Function GetLocalImageOr(ByVal LocTag As String) As String + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + + + Dim TagList As New List(Of String) + TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + + LocTag = LocTag.Replace(" ,", ",") + LocTag = LocTag.Replace(", ", ",") + + Dim LocTagArray As String() = LocTag.Split(",") + + Dim TaggedList As New List(Of String) + + For i As Integer = 0 To TagList.Count - 1 + For n As Integer = 0 To LocTagArray.Count - 1 + If TagList(i).Contains(LocTagArray(n)) Then + TaggedList.Add(TagList(i)) + Exit For + End If + Next + Next + + If TaggedList.Count > 0 Then + + Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split + Dim PicDir As String = "" + + For p As Integer = 0 To PicArray.Count - 1 + PicDir = PicDir & PicArray(p) & " " + If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For + Next + + Return PicDir + + Else + Return String.Empty + + End If + + End If + End Function Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) If EdgeCheck.Contains("@Contact1") Then @@ -13798,9 +13847,13 @@ VTSkip: End If End If - If FilterString.Contains("@ImageTag(") Then - If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False - End If + If FilterString.Contains("@ImageTag(") Then + If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False + End If + + If FilterString.Contains("@ImageTagOr(") Then + If GetLocalImageOr(GetParentheses(FilterString, "@ImageTagOr(")) = String.Empty Then Return False + End If ' ################## @Show-Category-Image ##################### If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then @@ -14558,7 +14611,8 @@ VTSkip: 'QND-Implemented: ContactData.GetTaggedImage 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) - Case Else + Case "@ImageTagOr(".ToUpper : Condition = GetLocalImageOr(FilterString) + Case Else '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= ' Unknown Command => goto next Match '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= From 2b10ebb980b16835e3da6559759590309cc775a5 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 11 Apr 2017 22:05:02 +0200 Subject: [PATCH 063/143] -fixed an error with lazysub shortcuts not using the honorific when needed in the case of "please let me cum" (please is now checked for honorific too, so it needed to be added here) -fixed another error in lazysub shorcuts where clicking on the safeword shortcut, instead of returning the safeword, it would return the honorific -small optimization to the @RT() code -fixed a bug with @FollowUP(): if a @Command was inserted in a @FollowUp() (for example: test @FollowUp(due @PlayAudio[dario/fast.mp3])), the command would be executed while reading the first line, and not the followup. Even worst, if using a @FollowUpXX(), that command would be executed even if the followup line was read. The followup() checks were moved up to be the first checks in the commandclean() function to solve this issue. Now, the eventual @Commands() insife a @FollowUp() are read with that line as expected --- Tease AI/Form1.vb | 85 +++++++++++++++++++++++------------------------ 1 file changed, 42 insertions(+), 43 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index c876d7b..14caef0 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1369,9 +1369,9 @@ retryStart: If UCase(ssh.ChatString) = UCase(TBShortSlowDown.Text) Then ssh.ChatString = "Let me slow down" If UCase(ssh.ChatString) = UCase(TBShortStop.Text) Then ssh.ChatString = "Let me stop" If UCase(ssh.ChatString) = UCase(TBShortStroke.Text) Then ssh.ChatString = "May I start stroking?" - If UCase(ssh.ChatString) = UCase(TBShortCum.Text) Then ssh.ChatString = "Please let me cum!" + If UCase(ssh.ChatString) = UCase(TBShortCum.Text) Then ssh.ChatString = "Please let me cum" & ssh.tempHonorific If UCase(ssh.ChatString) = UCase(TBShortGreet.Text) Then ssh.ChatString = "Hello " & ssh.tempHonorific - If UCase(ssh.ChatString) = UCase(TBShortSafeword.Text) Then ssh.ChatString = ssh.tempHonorific + If UCase(ssh.ChatString) = UCase(TBShortSafeword.Text) Then ssh.ChatString = FrmSettings.TBSafeword.Text End If @@ -7706,8 +7706,8 @@ StatusUpdateEnd: If StringClean.Contains("@RT(") Then Dim replace As String() = {"@RT(", "@RandomText("} + Dim RandArray As String() = StringClean.Split("@") For a = 0 To replace.Length() - 1 - Dim RandArray As String() = StringClean.Split(replace(a)) For i As Integer = 0 To RandArray.Count - 1 RandArray(i) = "@" & RandArray(i) If RandArray(i).Contains(replace(a)) Then @@ -8389,6 +8389,38 @@ StatusUpdateEnd: RinseLatherRepeat: + If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Length - 1) + StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + End If + + + If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then + + Dim FollowTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer + + TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 + TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 + + FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + + Dim FollowVal As Integer + + FollowVal = Val(FollowTemp) + + ssh.TempVal = ssh.randomizer.Next(1, 101) + + Dim FollowLineTemp As String + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Length - 1) + + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + + End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' ImageCommands ' - Make sure you call all Display ImageFunctions before executing @LockImages. @@ -12589,46 +12621,13 @@ VTSkip: End If - 'If StringClean.Contains("@RandomText(") Then - 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") - 'TempText = FixCommas(TempText) - 'Dim TextArray As String() = TempText.Split(",") - 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) - 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) - 'End If - - - If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Length - 1) - StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") - End If - - - If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then - - Dim FollowTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer - - TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 - TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 - - FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - - Dim FollowVal As Integer - - FollowVal = Val(FollowTemp) - - ssh.TempVal = ssh.randomizer.Next(1, 101) - - Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Length - 1) - - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - - End If + 'If StringClean.Contains("@RandomText(") Then + 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") + 'TempText = FixCommas(TempText) + 'Dim TextArray As String() = TempText.Split(",") + 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) + 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) + 'End If If StringClean.Contains("@Worship(") Then Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") From 58479594d5355e7144f5411bae8dbb7e1a6ed59f Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 11 Apr 2017 22:06:35 +0200 Subject: [PATCH 064/143] forgot the please honorific lazysub fix :D --- Tease AI/Form1.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 14caef0..a8f76b4 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -19399,7 +19399,7 @@ restartInstantly: End Sub Private Sub BTNAskToCum_Click(sender As System.Object, e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click - chatBox.Text = "Please let me cum!" + chatBox.Text = "Please let me cum" & ssh.tempHonorific sendButton.PerformClick() End Sub From e0722a8ea1bfa59cac914c4e432b621ceaf79c6c Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 11 Apr 2017 22:08:22 +0200 Subject: [PATCH 065/143] damn...now it is fixed :D --- Tease AI/Form1.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index a8f76b4..2099e74 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1369,7 +1369,7 @@ retryStart: If UCase(ssh.ChatString) = UCase(TBShortSlowDown.Text) Then ssh.ChatString = "Let me slow down" If UCase(ssh.ChatString) = UCase(TBShortStop.Text) Then ssh.ChatString = "Let me stop" If UCase(ssh.ChatString) = UCase(TBShortStroke.Text) Then ssh.ChatString = "May I start stroking?" - If UCase(ssh.ChatString) = UCase(TBShortCum.Text) Then ssh.ChatString = "Please let me cum" & ssh.tempHonorific + If UCase(ssh.ChatString) = UCase(TBShortCum.Text) Then ssh.ChatString = "Please let me cum " & ssh.tempHonorific If UCase(ssh.ChatString) = UCase(TBShortGreet.Text) Then ssh.ChatString = "Hello " & ssh.tempHonorific If UCase(ssh.ChatString) = UCase(TBShortSafeword.Text) Then ssh.ChatString = FrmSettings.TBSafeword.Text @@ -19399,7 +19399,7 @@ restartInstantly: End Sub Private Sub BTNAskToCum_Click(sender As System.Object, e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click - chatBox.Text = "Please let me cum" & ssh.tempHonorific + chatBox.Text = "Please let me cum " & ssh.tempHonorific sendButton.PerformClick() End Sub From 074ce632e1d270b4f3d98c5dccfc2302a8bf6630 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Wed, 12 Apr 2017 23:06:22 +0200 Subject: [PATCH 066/143] -fixed @RT() routine to worl also when there is @RandomText() and not only for @RT() -fixed multilines taunt bug: it was not always resetting to false (check to reset it are now done when launchin a new script, in the runmodule/runlink/handlecallreturn subs) -fixed an exception bug when asking to cum (with lazy sub button for example) when the current speaker had "" as her honorific (empty honorific) STILL TO FIND: rare occurring bug that causes the chat not to scroll down between two sentences of the domme, thus causing both phrases to appear in the same sentence....whenever i find a manage to reproduce it and know what triggers it i can try to fix it :( --- Tease AI/Classes/ContactData.vb | 9 ++ Tease AI/Classes/State.vb | 1 + Tease AI/Form1.vb | 212 +++++++++++++++++--------------- 3 files changed, 121 insertions(+), 101 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index 4184611..6519099 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -57,6 +57,15 @@ Public Class ContactData End Get End Property + Public ReadOnly Property ShortName As String + Get + If Contact = ContactType.Domme Then + Return My.Settings.GlitterSN + Else + Return TypeName + End If + End Get + End Property Public ReadOnly Property TypeColorHtml As String Get If Contact = ContactType.Contact1 Then diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index a24dbfa..d00774f 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -429,6 +429,7 @@ Public Class SessionState Public Property tempDomName As String Public Property tempHonorific As String Public Property replaceHonorific As String + Public Property shortName As String #Region "@CallReturn(" diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 2099e74..936f32f 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -2627,7 +2627,7 @@ EdgeSkip: Dim CheckResponse As String = UCase(ssh.ChatString) CheckResponse = CheckResponse.Replace(UCase(ssh.tempDomName), "") - CheckResponse = CheckResponse.Replace(UCase(ssh.tempHonorific), "") + If ssh.tempHonorific <> "" Then CheckResponse = CheckResponse.Replace(UCase(ssh.tempHonorific), "") CheckResponse = CheckResponse.Replace("!", "") CheckResponse = CheckResponse.Replace("?", "") CheckResponse = CheckResponse.Replace(".", "") @@ -4844,15 +4844,13 @@ SkipIsTyping: And ssh.SlideshowLoaded = True And Not ssh.DomTask.Contains("@ShowButtImage") And Not ssh.DomTask.Contains("@ShowBoobsImage") And Not ssh.DomTask.Contains("@ShowButtsImage") _ And Not ssh.DomTask.Contains("@ShowBoobsImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ And UCase(ssh.DomTask) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False And ssh.MultiTauntPictureHold = False Then - If ssh.SubStroking = False Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ' Begin Next Button - ssh.MultiTauntPictureHold = False - ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ + ' Begin Next Button + ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TryNextWithTease: - End If + ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ShowPicture = True @@ -5260,9 +5258,9 @@ NoResponse: ' ######################## Risky Pick ######################### FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.contactToUse.NavigateNextTease) - ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImageSTR) Then + 'ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImageSTR) Then ' ######################## Domme Tags ######################### - ShowImage(ssh.DommeImageSTR, True) + ' ShowImage(ssh.DommeImageSTR, True) ElseIf ShowPicture = True AndAlso ssh.contactToUse IsNot Nothing Then ' ######################## Slideshow ########################## @@ -5932,9 +5930,9 @@ NullResponseLine2: ' ######################## Risky Pick ######################### FrmCardList.PBRiskyPic.Image = Image.FromFile(ssh.contactToUse.NavigateNextTease) - ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImageSTR) Then + 'ElseIf Not String.IsNullOrWhiteSpace(ssh.DommeImageSTR) Then ' ######################## Domme Tags ######################### - ShowImage(ssh.DommeImageSTR, True) + 'ShowImage(ssh.DommeImageSTR, True) ElseIf ShowPicture = True AndAlso ssh.contactToUse IsNot Nothing Then ' ################### Variable Slideshow ###################### @@ -7704,7 +7702,7 @@ StatusUpdateEnd: Public Function SysKeywordClean(ByVal StringClean As String) As String - If StringClean.Contains("@RT(") Then + If StringClean.Contains("@RT(") Or StringClean.Contains("@RandomText(") Then Dim replace As String() = {"@RT(", "@RandomText("} Dim RandArray As String() = StringClean.Split("@") For a = 0 To replace.Length() - 1 @@ -7815,7 +7813,7 @@ StatusUpdateEnd: ' StringClean = StringClean.Replace("#SubWritingTaskRAND", randomizer.Next(NBWritingTaskMin.Value / 10, (NBWritingTaskMax.Value / 10) + 1)) * 10 - StringClean = StringClean.Replace("#ShortName", My.Settings.GlitterSN) + StringClean = StringClean.Replace("#ShortName", ssh.shortName) StringClean = StringClean.Replace("#GlitterContact1", My.Settings.Glitter1) StringClean = StringClean.Replace("#Contact1", My.Settings.Glitter1) @@ -8387,10 +8385,9 @@ StatusUpdateEnd: GoTo TaskCleanSet End If -RinseLatherRepeat: If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Length - 1) + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") End If @@ -8413,7 +8410,7 @@ RinseLatherRepeat: ssh.TempVal = ssh.randomizer.Next(1, 101) Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Length - 1) + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp @@ -8421,6 +8418,7 @@ RinseLatherRepeat: End If +RinseLatherRepeat: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' ImageCommands ' - Make sure you call all Display ImageFunctions before executing @LockImages. @@ -14950,6 +14948,7 @@ VTSkip: Public Sub RunModuleScript(ByVal IsEdging As Boolean) + If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False ssh.isLink = False ssh.ShowModule = True ssh.FirstRound = False @@ -15075,129 +15074,130 @@ NoPlaylistModuleFile: Public Sub RunLinkScript() + If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False ssh.isLink = True Debug.Print("RunLinkScript() Called") ssh.FirstRound = False - ClearModes() + ClearModes() - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Link") Then NoPlaylistLinkFile: - Debug.Print("SetLink = " & ssh.SetLink) + Debug.Print("SetLink = " & ssh.SetLink) - If ssh.SetLink <> "" Then - Debug.Print("SetLink Called") - ssh.FileText = ssh.SetLink - Else + If ssh.SetLink <> "" Then + Debug.Print("SetLink Called") + ssh.FileText = ssh.SetLink + Else - Dim LinkList As New List(Of String) - LinkList.Clear() + Dim LinkList As New List(Of String) + LinkList.Clear() - Dim ChastityLinkCheck As String - If My.Settings.Chastity = True Then - ChastityLinkCheck = "*_CHASTITY.txt" - Else - ChastityLinkCheck = "*.txt" - End If + Dim ChastityLinkCheck As String + If My.Settings.Chastity = True Then + ChastityLinkCheck = "*_CHASTITY.txt" + Else + ChastityLinkCheck = "*.txt" + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) - Dim TempLink As String = foundFile - TempLink = TempLink.Replace(".txt", "") - Do Until Not TempLink.Contains("\") - TempLink = TempLink.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then - LinkList.Add(foundFile) - End If - Else - If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then - LinkList.Add(foundFile) - End If - End If + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\", FileIO.SearchOption.SearchTopLevelOnly, ChastityLinkCheck) + Dim TempLink As String = foundFile + TempLink = TempLink.Replace(".txt", "") + Do Until Not TempLink.Contains("\") + TempLink = TempLink.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBLinkList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True Then + LinkList.Add(foundFile) + End If + Else + If FrmSettings.CLBLinkList.Items(x) = TempLink And FrmSettings.CLBLinkList.GetItemChecked(x) = True And Not TempLink.Contains("_CHASTITY") Then + LinkList.Add(foundFile) + End If + End If - Next - Next + Next + Next - If LinkList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" - End If - Else - ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) - End If + If LinkList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link_CHASTITY.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Link.txt" + End If + Else + ssh.FileText = LinkList(ssh.randomizer.Next(0, LinkList.Count)) + End If - End If + End If - Else - Debug.Print("Playlist Link Called") - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If + Else + Debug.Print("Playlist Link Called") + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Link\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If - End If + End If - ssh.SetLink = "" - Debug.Print("SetLink = " & ssh.SetLink) + ssh.SetLink = "" + Debug.Print("SetLink = " & ssh.SetLink) - If ssh.WorshipMode = False Then - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - End If + If ssh.WorshipMode = False Then + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + End If - If ssh.SetLinkGoto <> "" Then - ssh.FileGoto = ssh.SetLinkGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetLinkGoto = "" - Else - ssh.StrokeTauntVal = -1 - End If + If ssh.SetLinkGoto <> "" Then + ssh.FileGoto = ssh.SetLinkGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetLinkGoto = "" + Else + ssh.StrokeTauntVal = -1 + End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - If ssh.Playlist = True Then ssh.BookmarkLink = False + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + If ssh.Playlist = True Then ssh.BookmarkLink = False - If ssh.BookmarkLink = True Then - ssh.BookmarkLink = False - ssh.FileText = ssh.BookmarkLinkFile - ssh.StrokeTauntVal = ssh.BookmarkLinkLine - End If + If ssh.BookmarkLink = True Then + ssh.BookmarkLink = False + ssh.FileText = ssh.BookmarkLinkFile + ssh.StrokeTauntVal = ssh.BookmarkLinkLine + End If - Debug.Print("Link FileText Called") + Debug.Print("Link FileText Called") - ssh.ScriptTick = 3 - ScriptTimer.Start() + ssh.ScriptTick = 3 + ScriptTimer.Start() - End Sub + End Sub - Public Sub RunLastScript() + Public Sub RunLastScript() ClearModes() ssh.FirstRound = False @@ -17177,6 +17177,7 @@ saveImage: End If ssh.SlideshowMain.LoadNew(ssh.newSlideshow) ssh.tempDomName = ssh.SlideshowMain.TypeName + ssh.shortName = ssh.SlideshowMain.ShortName Me.domName.Text = ssh.tempDomName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName ssh.newSlideshow = False @@ -17449,11 +17450,11 @@ restartInstantly: If Not ssh.Group.Contains("D") Then ssh.Group = ssh.Group & "D" If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(ssh.tempDomName & " has joined the Chat room") + ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has joined the Chat room") Else ssh.Group = ssh.Group.Replace("D", "") ssh.GlitterTease = True - ChatAddSystemMessage(ssh.tempDomName & " has left the Chat room") + ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has left the Chat room") End If End If @@ -20792,6 +20793,7 @@ playLoop: End Sub Private Sub handleCallReturn() + If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False ssh.CallReturns.Pop().resumeState() If ssh.ReturnSubState = "Stroking" Then If My.Settings.Chastity = True Then @@ -20873,6 +20875,7 @@ playLoop: domName.Text = ssh.tempDomName ssh.tempHonorific = My.Settings.SubHonorific ssh.replaceHonorific = ssh.tempHonorific + ssh.shortName = My.Settings.GlitterSN End If If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName @@ -20893,18 +20896,22 @@ playLoop: ssh.contactToUse = ssh.SlideshowMain ssh.tempDomName = ssh.SlideshowMain.TypeName ssh.tempHonorific = ssh.SlideshowMain.TypeHonorific + ssh.shortName = ssh.SlideshowMain.ShortName If stringToCheck.Contains("@Contact1") Then ssh.tempDomName = My.Settings.Glitter1 ssh.tempHonorific = My.Settings.G1Honorific ssh.contactToUse = ssh.SlideshowContact1 + ssh.shortName = ssh.SlideshowContact1.ShortName ElseIf stringToCheck.Contains("@Contact2") Then ssh.tempDomName = My.Settings.Glitter2 ssh.tempHonorific = My.Settings.G2Honorific ssh.contactToUse = ssh.SlideshowContact2 + ssh.shortName = ssh.SlideshowContact2.ShortName ElseIf stringToCheck.Contains("@Contact3") Then ssh.tempDomName = My.Settings.Glitter3 ssh.tempHonorific = My.Settings.G3Honorific ssh.contactToUse = ssh.SlideshowContact3 + ssh.shortName = ssh.SlideshowContact3.ShortName ElseIf stringToCheck.Contains("@RandomContact") Then Dim casual As Integer = 0 casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) @@ -20913,14 +20920,17 @@ playLoop: ssh.tempDomName = My.Settings.Glitter1 ssh.tempHonorific = My.Settings.G1Honorific ssh.contactToUse = ssh.SlideshowContact1 + ssh.shortName = ssh.SlideshowContact1.ShortName Case ssh.SlideshowContact2.TypeName ssh.tempDomName = My.Settings.Glitter2 ssh.tempHonorific = My.Settings.G2Honorific ssh.contactToUse = ssh.SlideshowContact2 + ssh.shortName = ssh.SlideshowContact2.ShortName Case ssh.SlideshowContact3.TypeName ssh.tempDomName = My.Settings.Glitter3 ssh.tempHonorific = My.Settings.G3Honorific ssh.contactToUse = ssh.SlideshowContact3 + ssh.shortName = ssh.SlideshowContact3.ShortName Case Else End Select End If From 2007144c5dacd92434e1790ab346122ed49fe412 Mon Sep 17 00:00:00 2001 From: 1885 Date: Wed, 12 Apr 2017 18:26:59 -0500 Subject: [PATCH 067/143] Filter out image Commands when video is playing Lines containing Commands that show Blog\Genre\Boobs\Butt\Liked\Disliked images will now be filtered out if the picture window is not visible (such as when a video is playing) --- README.md | 1 + Tease AI/Form1.vb | 62 ++++++++++++++++++++++------------------------- 2 files changed, 30 insertions(+), 33 deletions(-) diff --git a/README.md b/README.md index 336d753..911bd2b 100644 --- a/README.md +++ b/README.md @@ -36,6 +36,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * The picture will no longer change in the middle of StrokeTaunts that are more than one line * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) * The timer for edge taunts now resets after each edge during Multiple Edges + * Lines containing Commands that show Blog\Genre\Boobs\Butt\Liked\Disliked images will now be filtered out if the picture window is not visible (such as when a video is playing) * Commas are no longer affected when auditing scripts * Blank lines are now only removed from URL Files when auditing scripts * CBT\Custom Task were missing from StopEverything() sub-routine (dariobrun) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 63f8e85..e6cf910 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -11395,13 +11395,13 @@ OrgasmDecided: If StringClean.Contains("@EdgingHold") Then - ssh.DomTypeCheck = True + 'ssh.DomTypeCheck = True ssh.SubEdging = False ssh.SubStroking = False ssh.SubHoldingEdge = True EdgeTauntTimer.Stop() - 'DomChat = "#HoldTheEdge" - 'TypingDelay() + ssh.DomChat = "#HoldTheEdge" + TypingDelay() ssh.HoldEdgeTick = ssh.HoldEdgeChance @@ -11432,9 +11432,9 @@ OrgasmDecided: HoldEdgeTimer.Start() HoldEdgeTauntTimer.Start() - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + 'Do + 'Application.DoEvents() + 'Loop Until ssh.DomTypeCheck = False StringClean = StringClean.Replace("@EdgingHold", "") @@ -11446,12 +11446,8 @@ OrgasmDecided: ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() - 'DomChat = "#StopStrokingEdge" - 'TypingDelay() - - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + ssh.DomChat = "#StopStrokingEdge" + TypingDelay() StringClean = StringClean.Replace("@EdgingStop", "") End If @@ -11525,9 +11521,9 @@ OrgasmDecided: End If - Do - Application.DoEvents() - Loop Until ssh.DomTypeCheck = False + 'Do + 'Application.DoEvents() + 'Loop Until ssh.DomTypeCheck = False StringClean = StringClean.Replace("@DecideEdge", "") @@ -14108,49 +14104,49 @@ VTSkip: ' ################## @Show-Category-Image ##################### If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then - If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowBlowjobImage") Then - If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then - If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowCaptionsImage") Then - If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowDislikedImage") Then - If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowFemdomImage") Then - If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowGayImage") Then - If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowGeneralImage") Then - If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowHardcoreImage") Then - If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowHentaiImage") Then - If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowLesbianImage") Then - If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowLezdomImage") Then - If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowLikedImage") Then - If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowLocalImage") Then - If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False + If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False @@ -14165,14 +14161,14 @@ VTSkip: .Select(Function(s) s.Trim()) _ .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - If GetLocalImage(Tags, Nothing) = String.Empty Then Return False + If GetLocalImage(Tags, Nothing) = String.Empty Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowMaledomImage") Then - If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowSoftcoreImage") Then - If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Disqualifying @Commands - End From c6d00356c98fdf254075724faf17c7a20577e595 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Thu, 13 Apr 2017 23:02:25 +0200 Subject: [PATCH 068/143] -Fixed a bug with the new #ShortName controls: they were making it appear always as the domName. Now they will show the correct dom shortname if she is present in the chat, otherwise it will use the current maindomme Name (there is already in place code to eventually add shortnames also for the glitter contact...obviously that will not be possible for the random contacts, which will still use their name) -Fixed a long unseed bug with @Group() filter: if you had, for example @Group(D12) as the filter, that line would have been read if the domme and glitter1 and 2 were present (correctly) but also if only glitter1 or 2 was present (wrong), or any other combinations with the specified contacts -Changes to the @Group() filter command: It is now possible to specify multiple groups for the same line by indicating multiple options separated by comma:@Group(A,B,C) Example: @Group(1) will read it only if glitter1 is alone in the chat @Group(1,D1) will read it both if glitter1 is alone and if domme and glitter1 are present --- Tease AI/Form1.vb | 49 +++++++++++++++++++++++++---------------------- 1 file changed, 26 insertions(+), 23 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 936f32f..01fa9e8 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -5553,6 +5553,7 @@ DommeSlideshowFallback: ssh.RapidCode = False End If + 'updateDommeName(ssh.DomChat) 'If Not ssh.Group.Contains("D") And Not ssh.DomChat.Contains("@Contact1") And Not ssh.DomChat.Contains("@Contact2") And Not ssh.DomChat.Contains("@Contact3") Then 'Dim GroupList As New List(Of String) ' GroupList.Clear() @@ -13952,23 +13953,32 @@ VTSkip: If CheckVariable(FilterString) = False Then Return False End If - If FilterString.Contains("@Group(") Then - Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") - If GroupCheck.Contains("D") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False - End If - If GroupCheck.Contains("1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - End If - If GroupCheck.Contains("2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - End If - If GroupCheck.Contains("3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - End If - End If + If FilterString.Contains("@Group(") Then + Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") + Dim grouparray() As String = GroupCheck.Split(",") + Dim b As Boolean = False + For i As Integer = 0 To grouparray.Length - 1 + If grouparray(i) = ssh.Group Then + b = True + Exit For + End If + Next + If b = False Then Return False + ' If GroupCheck.Contains("D") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False + 'End If + ' If GroupCheck.Contains("1") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + 'End If + ' If GroupCheck.Contains("2") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + ' End If + ' If GroupCheck.Contains("3") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + 'End If + End If - If FilterString.Contains("@Flag(") Then + If FilterString.Contains("@Flag(") Then Dim writeFlag As String Dim splitFlag As String() writeFlag = GetParentheses(FilterString, "@Flag(") @@ -20896,22 +20906,18 @@ playLoop: ssh.contactToUse = ssh.SlideshowMain ssh.tempDomName = ssh.SlideshowMain.TypeName ssh.tempHonorific = ssh.SlideshowMain.TypeHonorific - ssh.shortName = ssh.SlideshowMain.ShortName If stringToCheck.Contains("@Contact1") Then ssh.tempDomName = My.Settings.Glitter1 ssh.tempHonorific = My.Settings.G1Honorific ssh.contactToUse = ssh.SlideshowContact1 - ssh.shortName = ssh.SlideshowContact1.ShortName ElseIf stringToCheck.Contains("@Contact2") Then ssh.tempDomName = My.Settings.Glitter2 ssh.tempHonorific = My.Settings.G2Honorific ssh.contactToUse = ssh.SlideshowContact2 - ssh.shortName = ssh.SlideshowContact2.ShortName ElseIf stringToCheck.Contains("@Contact3") Then ssh.tempDomName = My.Settings.Glitter3 ssh.tempHonorific = My.Settings.G3Honorific ssh.contactToUse = ssh.SlideshowContact3 - ssh.shortName = ssh.SlideshowContact3.ShortName ElseIf stringToCheck.Contains("@RandomContact") Then Dim casual As Integer = 0 casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) @@ -20920,17 +20926,14 @@ playLoop: ssh.tempDomName = My.Settings.Glitter1 ssh.tempHonorific = My.Settings.G1Honorific ssh.contactToUse = ssh.SlideshowContact1 - ssh.shortName = ssh.SlideshowContact1.ShortName Case ssh.SlideshowContact2.TypeName ssh.tempDomName = My.Settings.Glitter2 ssh.tempHonorific = My.Settings.G2Honorific ssh.contactToUse = ssh.SlideshowContact2 - ssh.shortName = ssh.SlideshowContact2.ShortName Case ssh.SlideshowContact3.TypeName ssh.tempDomName = My.Settings.Glitter3 ssh.tempHonorific = My.Settings.G3Honorific ssh.contactToUse = ssh.SlideshowContact3 - ssh.shortName = ssh.SlideshowContact3.ShortName Case Else End Select End If From b2f2ebca402c40ad7d792776d69174a1e9295c76 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Thu, 13 Apr 2017 23:04:02 +0200 Subject: [PATCH 069/143] Removed the @VoiceOn and @VoiceOff commands --- Tease AI/Form1.vb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 01fa9e8..be36ff9 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -11901,15 +11901,15 @@ ExternalAudio: StringClean = StringClean.Replace("@RTOff", "") End If - If StringClean.Contains("@VoiceOn") Then - FrmSettings.TTSCheckBox.Checked = True - StringClean = StringClean.Replace("@VoiceOn", "") - End If + ' If StringClean.Contains("@VoiceOn") Then + ' FrmSettings.TTSCheckBox.Checked = True + ' StringClean = StringClean.Replace("@VoiceOn", "") + 'End If - If StringClean.Contains("@VoiceOff") Then - FrmSettings.TTSCheckBox.Checked = False - StringClean = StringClean.Replace("@VoiceOff", "") - End If + 'If StringClean.Contains("@VoiceOff") Then + ' FrmSettings.TTSCheckBox.Checked = False + ' StringClean = StringClean.Replace("@VoiceOff", "") + ' End If If StringClean.Contains("@GlitterTease1") Then ssh.glitterDommeNumber = 1 From 897a3744da5fe0bbfa3e4f8196e5bee507521dfb Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sat, 15 Apr 2017 00:42:37 +0200 Subject: [PATCH 070/143] URL-File SpeedUp * Changed the way blog pages are scraped. Now all links are read before processing any of em, using a scraping size of 5000 instead of 50. Rebuilding and Refreshing is now a lot faster. * Renamed Variables, Members, Functions etc. according to MS Code recommendations. --- Tease AI/Classes/Log.vb | 1 + Tease AI/Classes/URL_Files_BGW.vb | 835 ++++++++++++++---------------- Tease AI/Form2.vb | 41 +- 3 files changed, 425 insertions(+), 452 deletions(-) diff --git a/Tease AI/Classes/Log.vb b/Tease AI/Classes/Log.vb index a621098..58c5fba 100644 --- a/Tease AI/Classes/Log.vb +++ b/Tease AI/Classes/Log.vb @@ -119,6 +119,7 @@ next_innerException: End Sub + Private Sub CheckFile() If Not Directory.Exists(Path.GetDirectoryName(LogPath)) Then _ Directory.CreateDirectory(Path.GetDirectoryName(LogPath)) diff --git a/Tease AI/Classes/URL_Files_BGW.vb b/Tease AI/Classes/URL_Files_BGW.vb index e9c8e1c..13ff7cc 100644 --- a/Tease AI/Classes/URL_Files_BGW.vb +++ b/Tease AI/Classes/URL_Files_BGW.vb @@ -3,9 +3,8 @@ ' URL-Files ' ' -' This File contains all Functions to Create und Maintain URL-Files. +' This file contains all functions to create und maintain URL files. ' -' Uses modified and unmodified Code from Tease-AI: https://github.com/Milo1885/Tease-AI.git '=========================================================================================== Imports System.ComponentModel Imports System.IO @@ -14,7 +13,6 @@ Imports System.Xml Namespace URL_Files - ''' ========================================================================================================= ''' ''' This Enumeration contains the steps during the working on a URL-File. ''' @@ -31,11 +29,10 @@ Namespace URL_Files Completed = 100 End Enum - ''' ========================================================================================================= ''' ''' This Enumeration Contains all predefined Functions. ''' - Public Enum URL_File_Tasks + Public Enum Tasks ''' ''' The BGW is free to use, for general usage. ''' @@ -57,17 +54,16 @@ Namespace URL_Files RebuildURLFiles End Enum - ''' ========================================================================================================= ''' ''' Enumeration for Image Approval. ''' - Public Enum ImageApprovalStatus + Public Enum ImageApprovalStates ''' ''' IF an Image is waiting for Approval, loop till the end of Time or another State. cancellation is Possible in loop. ''' Pending = 0 ''' - ''' The actual Image-URL, will be written to URL-File and saved if in Event set. + ''' The actual Image-URL, will be written to URL-File and saved if in Event set. ''' Approved = 1 ''' @@ -76,58 +72,21 @@ Namespace URL_Files Declined = 2 End Enum - ''' ========================================================================================================= ''' ''' Class that extends the Backgroundworker to create and maintain URL-Files. ''' Public Class URL_File_BGW Inherits BackgroundWorker -#Region "----------------------------------------- Inherited from BackgroundWorker -------------------------------------------" - Sub New() Me.WorkerSupportsCancellation = True Me.WorkerReportsProgress = True End Sub - ''' ========================================================================================================= - ''' - ''' Executes the Function needed. - ''' - ''' - ''' - Private Sub Me_DoWork(sender As Object, e As DoWorkEventArgs) Handles MyBase.DoWork - Try - Select Case _Work - Case URL_File_Tasks.CreateURLFile - e.Result = BlogToUrlFile() - Case URL_File_Tasks.RefreshURLFiles, URL_File_Tasks.RebuildURLFiles - e.Result = MaintainURLFiles() - End Select - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' Beware: While Debugging this Point VS will moan about an unhandled Exception. This is a known VS Bug. - e.Cancel = True - Throw - End Try - End Sub - - Private Sub TAI_Backgroundworker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles Me.RunWorkerCompleted - Try - If e.Error IsNot Nothing Then Throw e.Error - - _BGW_Result = e - Catch ex As Exception - Throw - End Try - End Sub -#End Region +#Region "Properties / Members" #Region "------------------------------------------------- Visible Properties -------------------------------------------------" - ''' ========================================================================================================= ''' ''' Stores the Target Directory of the URL-File to Create. ''' @@ -159,7 +118,6 @@ System.ComponentModel.Description("Determines the Target Directory of the URL-Fi End Set End Property - ''' ========================================================================================================= ''' ''' Stores the Filepath to Dislikelist. ''' @@ -190,7 +148,7 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Dislikelist. End If End Set End Property - ''' ========================================================================================================= + ''' ''' Stores the Filepath to Likelist. ''' @@ -226,130 +184,159 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> #Region "------------------------------------------------ Internal Variables --------------------------------------------------" - ''' ========================================================================================================= ''' ''' Stores the Result of a asynchronous Operation for marshalled use inside the Instance. ''' - Private _BGW_Result As RunWorkerCompletedEventArgs = Nothing - ''' ========================================================================================================= + Private BGW_Result As RunWorkerCompletedEventArgs = Nothing + ''' ''' Stores the Work to do, or actually is running for marshalled use inside the Instance. ''' - Private _Work As URL_File_Tasks = URL_File_Tasks.Idle + Private Work As Tasks = Tasks.Idle - Private _OverallProgress As Integer = 0 + Private OverallProgress As Integer = 0 - Private _OverallProgressTotal As Integer = 0 + Private OverallProgressTotal As Integer = 0 - Private _InfoText As String = String.Empty + Private InfoText As String = String.Empty - Private _ImageCountAdded As Integer = 0 + Private ImageCountAdded As Integer = 0 #End Region -#Region "--------------------------------------------- URL_File_ProgessChanged ------------------------------------------------" +#End Region ' Properties / Members + + ''' + ''' Executes the Function needed. + ''' + ''' + ''' + Private Sub Me_DoWork(sender As Object, e As DoWorkEventArgs) Handles MyBase.DoWork + Try + Select Case Work + Case Tasks.CreateURLFile + e.Result = BlogToUrlFile() + Case Tasks.RefreshURLFiles, Tasks.RebuildURLFiles + e.Result = MaintainURLFiles() + End Select + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' Beware: While Debugging this Point VS will moan about an unhandled Exception. This is a known VS Bug. + e.Cancel = True + Throw + End Try + End Sub + + Private Sub Me_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles Me.RunWorkerCompleted + Try + If e.Error IsNot Nothing Then Throw e.Error + + BGW_Result = e + Catch ex As Exception + Throw + End Try + End Sub + +#Region "--------------------------------------- ProgessChanged -----------------------------------------" - ''' ========================================================================================================= ''' ''' Returns the actual Backgroundworker-Progress when creating a URL-File. ''' ''' The Object which contains the Data. - ''' + ''' ''' This Event is triggered in the WorkerThread. Make sure to invoke the EventHandler Sub or Func. - Public Event URL_File_ProgressChanged(Sender As Object, ByRef e As URL_File_ProgressChangedEventArgs) - ''' ========================================================================================================= + Public Shadows Event ProgressChanged(sender As Object, ByRef e As ProgressChangedEventArgs) + ''' ''' Delegate to Invoke the URL_FileCreate_ProgressChanged-EventHandler. ''' ''' The calling Class-Instance. ''' The Object which contains the Data. - Public Delegate Sub URL_File_ProgressChanged_Delegate(ByVal Sender As Object, ByRef e As URL_File_ProgressChangedEventArgs) - ''' ========================================================================================================= + Public Delegate Sub ProgressChangedDelegate(ByVal Sender As Object, ByRef e As ProgressChangedEventArgs) + ''' - ''' Class to carry the Data of + ''' Class to carry the Data of ''' URL_FileCreate_ProgressChangedEventArgs/> from WorkerThread to MainTread. ''' - Public Class URL_File_ProgressChangedEventArgs + Public Class ProgressChangedEventArgs Inherits System.EventArgs - Public CurrentTask As URL_File_Tasks = URL_File_Tasks.Idle + Public CurrentTask As Tasks = Tasks.Idle + Public CurrentStage As WorkingStages = WorkingStages.Completed + Public InfoText As String = Nothing Public ImageCount As Integer = 0 - Public BlogPage As Integer = 0 - Public BlogPageTotal As Integer = 0 - Public ActStage As WorkingStages = WorkingStages.Completed + Public ImageCountTotal As Integer = 0 Public ImageToReview As Image = Nothing Public OverallProgress As Integer = 0 Public OverallProgressTotal As Integer = 0 - Public InfoText As String = Nothing End Class - ''' ========================================================================================================= - ''' - ''' This function raises the URL_FileCreate_ProgressChanged. - ''' - ''' - ''' - ''' - ''' - ''' - Private Sub URL_FileCreate_OnProgressChanged(ByVal ImageCount As Integer, - ByVal BlogPage As Integer, - ByVal BlogPageTotal As Integer, - ByVal ActStage As WorkingStages, - ByVal ImageToReview As Image) - If ActStage = WorkingStages.Writing_File Then _ImageCountAdded += ImageCount - Dim e As New URL_File_ProgressChangedEventArgs With - { - .CurrentTask = Me._Work, - .ImageCount = ImageCount, - .BlogPage = BlogPage, - .BlogPageTotal = BlogPageTotal, - .ActStage = ActStage, - .ImageToReview = ImageToReview, - .OverallProgress = Me._OverallProgress, - .OverallProgressTotal = Me._OverallProgressTotal, - .InfoText = Me._InfoText - } + + ''' + ''' This function raises the URL_FileCreate_ProgressChanged. + ''' + ''' + ''' + ''' + ''' + Private Shadows Sub OnProgressChanged(ByVal imageCount As Integer, + ByVal imageCountTotal As Integer, + ByVal currentStage As WorkingStages, + ByVal imageToReview As Image) + If currentStage = WorkingStages.Writing_File Then ImageCountAdded += imageCount + Dim e As New ProgressChangedEventArgs With + { + .CurrentTask = Me.Work, + .CurrentStage = currentStage, + .InfoText = Me.InfoText, + .ImageCount = imageCount, + .ImageCountTotal = imageCountTotal, + .OverallProgress = Me.OverallProgress, + .OverallProgressTotal = Me.OverallProgressTotal, + .ImageToReview = imageToReview + } ' If Cancel is requested and the actual Stage is Writing File, then say it that way. - If Me.CancellationPending And ActStage = WorkingStages.Writing_File Then _ + If Me.CancellationPending And currentStage = WorkingStages.Writing_File Then _ e.InfoText = "Cancel requested: " & vbCrLf & "Writing File " & e.InfoText - RaiseEvent URL_File_ProgressChanged(Me, e) + RaiseEvent ProgressChanged(Me, e) End Sub #End Region -#Region "----------------------------------------- URL_FileCreate_UserInteractions --------------------------------------------" +#Region "--------------------------------------- User Interactions --------------------------------------" - ''' ========================================================================================================= ''' ''' Event to receive Data from the mainprogram while creating a URL-File. ''' ''' The calling Class-Instance. ''' The Object which contains the Data. ''' This Event is triggered in the WorkerThread. Make sure to invoke the EventHandler Sub or Func. - Public Event URL_FileCreate_UserInteractions(ByVal Sender As URL_File_BGW, ByRef e As UserActions) - ''' ========================================================================================================= + Public Event UserInteractions(ByVal sender As Object, ByRef e As EventArgs) + ''' ''' Delegate to Invoke the URLCreate_UserInteractions-EventHandler. ''' ''' The calling Class-Instance. ''' The Object which contains the Data. - Public Delegate Sub URL_FileCreate_UserInteractions_Delegate(ByVal Sender As URL_File_BGW, ByRef e As URL_File_BGW.UserActions) + Public Delegate Sub UserInteractionsDelegate(ByVal sender As Object, ByRef e As EventArgs) Public Class UserActions + Inherits EventArgs Public ReviewImages As Boolean - Public ApproveImage As ImageApprovalStatus + Public ApproveImage As ImageApprovalStates Public SaveImages As Boolean Public ImgSaveDir As String End Class ''' - ''' Raises the URL_FileCreate_UserInteractions_Delegate-Event. + ''' Raises the URL_FileCreate_UserInteractions_Delegate-Event. ''' ''' - Private Function OnURL_FileCreate_UserInteractions() As UserActions + Private Function OnUserInteractions() As UserActions ' Raise this Event only, while Creating an URL-File Dim e As New UserActions - If Me._Work <> URL_File_Tasks.CreateURLFile Then + If Me.Work <> Tasks.CreateURLFile Then ' Imitate User ^^ e.ApproveImage = True e.SaveImages = False @@ -357,11 +344,11 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> e.ReviewImages = False Else ' Really ask him - RaiseEvent URL_FileCreate_UserInteractions(Me, e) + RaiseEvent UserInteractions(Me, e) End If Return e End Function - ''' ========================================================================================================= + ''' ''' If the User wants to review every image before adding. ''' @@ -369,21 +356,21 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> ''' For internal Use only. Private ReadOnly Property ReviewImages As Boolean Get - Return OnURL_FileCreate_UserInteractions.ReviewImages + Return OnUserInteractions.ReviewImages End Get End Property - ''' ========================================================================================================= + ''' ''' Returns the actual Image Aproval Status, from the Main Programm ''' ''' ''' For internal Use only. - Private ReadOnly Property ApproveImage As ImageApprovalStatus + Private ReadOnly Property ApproveImage As ImageApprovalStates Get - Return OnURL_FileCreate_UserInteractions.ApproveImage + Return OnUserInteractions.ApproveImage End Get End Property - ''' ========================================================================================================= + ''' ''' Returns whether the image on the plate should be stored. ''' @@ -391,24 +378,22 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> ''' For internal Use only. Private ReadOnly Property SaveImages As Boolean Get - Return OnURL_FileCreate_UserInteractions.SaveImages + Return OnUserInteractions.SaveImages End Get End Property - ''' ========================================================================================================= + ''' ''' Returns the directory to save the images to. ''' ''' - ''' ''' For internal Use only. + ''' For internal Use only. Private ReadOnly Property ImageSaveDir As String Get - Return OnURL_FileCreate_UserInteractions.ImgSaveDir + Return OnUserInteractions.ImgSaveDir End Get End Property #End Region -#Region "---------------------------------------------------- Create URL Files --------------------------------------------------" - Public Class CreateUrlFileResult Public Cancelled As Boolean = False Public ImagesAdded As Integer = 0 @@ -420,234 +405,238 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> End Sub End Class - ''' ========================================================================================================= + Public Class MaintainUrlFilesResult + ''' + ''' The number of removed/added Links + ''' + Public ModifiedLinkCount As Integer = 0 + ''' + ''' The Number of all Processed URLs. + ''' + Public LinkCountTotal As Integer = 0 + ''' + ''' The maintained URL-Filenames without extension. + ''' + Public MaintainedUrlFiles As New List(Of String) + ''' + ''' If an Error occurs, while processing an URL-File, the ErrorMessage will added here. + ''' + Public ErrorText As New List(Of String) + Public Cancelled As Boolean = False + + Sub New() + End Sub + End Class + ''' ''' This Method asks the User for a Blog-URL and Scrapes the Blog asynchronous. ''' Public Function CreateURLFileAsync() As CreateUrlFileResult Try - Return StartAllWorkAsync(URL_File_Tasks.CreateURLFile) + Return StartAllWorkAsync(Tasks.CreateURLFile) + Catch + Throw + End Try + End Function + + ''' + ''' Refreshes all URL-Files and automatically adds new URLs. If not Cancelled, it will remove Dead-URLs. + ''' + ''' Returns an Object of MaintainUrlResult/>. + Public Function RefreshURLFilesAsync() As MaintainUrlFilesResult + Try + Return StartAllWorkAsync(Tasks.RefreshURLFiles) + Catch + Throw + End Try + End Function + + ''' + ''' Checks all URls in the URL-File-Folder. No new URLs will be added, dead one removed + ''' + ''' Returns an Object of MaintainUrlResult/>. + Public Function RebuildURLFilesAsync() As MaintainUrlFilesResult + Try + Return StartAllWorkAsync(Tasks.RebuildURLFiles) Catch Throw End Try End Function - ''' ========================================================================================================= ''' - ''' This Method Asks the User for a Blog-URL and Scrapes the Blog. + ''' Starts the overgiven Work. ''' - ''' Optional. The URL for Imageblog to scrape from. If empty it will prompt for it. + ''' The task to Start. + ''' + Private Function StartAllWorkAsync(ByVal workToStart As Tasks) As Object + Try + Me.Work = workToStart + Me.RunWorkerAsync() + + Do Until Me.IsBusy = False + Application.DoEvents() + Loop + + If BGW_Result.Error IsNot Nothing Then Throw BGW_Result.Error + If BGW_Result.Cancelled = True Then Throw New DivideByZeroException("Action was cancelled.") + Return BGW_Result.Result + Catch + Throw + Finally + Me.Work = Tasks.Idle + End Try + End Function + + ''' + ''' Creates, refreshes or maintains an URL file for the given URL. + ''' + ''' Optional. The URL for Imageblog to scrape from. If empty it will prompt for it. ''' This Function is prepared to use with a Backgroundworker. ''' Returns an CreateUrlFileResult-Object/>. - ''' Improvements : - ''' - Fixed all CrossthreadCalls, wich caused the System not to work, with UserInteraction. - ''' - Removed all hard-coded Folder and File Strings. - ''' - Removed redundant Code. - ''' - If you review and downloaded images, the image was downloaded twice. - ''' - The Blog-XML was downloaded with XML-Doc. After you scrapted an URL, you sometimes couldn't scrape it again. - ''' - Deadlinks were imported again. - ''' - Adding an URL to DislikeList was only writing to File, so a disliked URL could get into File, - ''' if a Blog Contains it twice. ''' - Private Function BlogToUrlFile(ByVal Optional ___ImageBlogUrl As String = "") As CreateUrlFileResult + Private Function BlogToUrlFile(ByVal Optional imageBlogUrl As String = "") As CreateUrlFileResult '=============================================================================== - ' Declaration of Variables + ' Declaration of variables '=============================================================================== - Me.URL_FileCreate_OnProgressChanged(0, 0, 0, WorkingStages.Started, Nothing) + Me.OnProgressChanged(0, 0, WorkingStages.Started, Nothing) If Me.CancellationPending = True Then Return Nothing - Dim ___ExactPostsCount As Integer = -1 ' If its -1, then the First Pass has not been done - Dim ___RoundPostsCount As Integer = -1 - Dim ___ImageCountAdded As Integer = 0 - Dim ___ImageCountTotal As Integer = 0 - Dim ___BlogCycle As Integer = 0 - Dim ___BlogCycleSize As Integer = 50 - - Dim ___BlogListOld, ___BlogListNew, ___DislikeList As New List(Of String) - If ___ImageBlogUrl = "" Then ___ImageBlogUrl = InputBox("Enter an image blog", "URL File Generator", "http://(Blog Name).tumblr.com/") - If ___ImageBlogUrl = "" Then Me.CancelAsync() : Return New CreateUrlFileResult With {.Cancelled = True} + Dim ImageCountAdded As Integer = 0 + Dim UrlListOld, UrlListNew, DislikeList As New List(Of String) - Dim ___req As HttpWebRequest - Dim ___res As HttpWebResponse - - Dim ___TempImg As Bitmap = Nothing ' This Var is to Save any occuring Error, to return it to caller. - Dim ___ExCache As Exception = Nothing - '=============================================================================== - ' Connection Try - '=============================================================================== - ___req = WebRequest.Create(___ImageBlogUrl) - ___req.ReadWriteTimeout = 60000 - ___res = ___req.GetResponse() - ___req.Abort() - '=============================================================================== - ' Convert URL For Local Filesystem - '=============================================================================== - Dim ___ModifiedUrl As String - ___ModifiedUrl = ___ImageBlogUrl - ___ModifiedUrl = ___ModifiedUrl.Replace("http://", "") - ___ModifiedUrl = ___ModifiedUrl.Replace("/", "") + Dim ExCache As Exception = Nothing + + If imageBlogUrl = "" Then imageBlogUrl = InputBox("Enter an image blog", "URL File Generator", "http://(Blog Name).tumblr.com/") + If imageBlogUrl = "" Then Me.CancelAsync() : Return New CreateUrlFileResult With {.Cancelled = True} - Dim ___ImageURLPath As String = _ImageURLFileDir & ___ModifiedUrl & ".txt" - '=============================================================================== - ' Load the old File if possible, to avoid Duplicate Files - '=============================================================================== - If File.Exists(___ImageURLPath) Then - ' ReadFile - Using __UrlFileReader As New StreamReader(___ImageURLPath) - While __UrlFileReader.Peek <> -1 - ___BlogListOld.Add(__UrlFileReader.ReadLine) - End While - End Using - End If - '=============================================================================== - ' Load Dislike List. - '=============================================================================== - If File.Exists(_DislikeListPath) Then - Using __DislikeFileReader As New StreamReader(_DislikeListPath) - While __DislikeFileReader.Peek <> -1 - ___DislikeList.Add(__DislikeFileReader.ReadLine()) - End While - End Using - End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Start Page-Scraping - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ Try -Scrape: - ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - If Me.CancellationPending AndAlso ___ExactPostsCount = -1 Then Return New CreateUrlFileResult With {.Cancelled = True} - If Me.CancellationPending Then GoTo ExitScrape '=============================================================================== - ' Download Single-XML-Blog-Page + ' Connection Try '=============================================================================== - Dim ___doc As XmlDocument = New XmlDocument() + Dim Request As HttpWebRequest + Dim Response As HttpWebResponse - ___ImageBlogUrl = ___ImageBlogUrl.Replace("/", "") - ___ImageBlogUrl = ___ImageBlogUrl.Replace("http:", "http://") - Debug.Print("ImageBlogURL = " & ___ImageBlogUrl) + Request = WebRequest.Create(imageBlogUrl) + Request.ReadWriteTimeout = 60000 + Response = Request.GetResponse() + Request.Abort() - ___req = WebRequest.Create(___ImageBlogUrl & "/api/read?start=" & ___BlogCycle & "&num=50") - ___res = ___req.GetResponse() + Request = Nothing + Response = Nothing + '=============================================================================== + ' Convert URL for local filesystem. + '=============================================================================== + Dim TargetFileName As String + TargetFileName = imageBlogUrl + TargetFileName = TargetFileName.Replace("http://", "") + TargetFileName = TargetFileName.Replace("/", "") - Dim Reader As New XmlTextReader(___res.GetResponseStream) - ___doc.Load(Reader) - ___req.Abort() ' You need to do this, otherwise you cant't run it a seccond time on the same URL that session! - ___res.Close() + Dim TargetFilePath As String = _ImageURLFileDir & TargetFileName & ".txt" '=============================================================================== - ' Read Total Blog-Posts + ' Load liked and disliked image links. '=============================================================================== - If ___ExactPostsCount = -1 Then - Try - For Each node As XmlNode In ___doc.DocumentElement.SelectNodes("//posts") - ___ExactPostsCount = CInt(node.Attributes.ItemOf("total").InnerText) - ___RoundPostsCount = RoundUpToNearest(___ExactPostsCount, 50) + UrlListOld = ReadFileContent(TargetFilePath) + DislikeList = ReadFileContent(_DislikeListPath) + + + + Dim ImageURLs As List(Of String) = TumblrGetImageURLs(imageBlogUrl) + + ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + If Me.CancellationPending Then Return New CreateUrlFileResult With {.Cancelled = True} + + + For i = 0 To ImageURLs.Count - 1 + Dim TempImg As Bitmap = Nothing + Dim ImageUrl As String = ImageURLs(i) - Debug.Print("Round-PostsCount = " & ___RoundPostsCount) - Next - Catch - Throw New Exception("Unable to read site api!!") - End Try - End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Blog-Loop-Start - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - For Each ___PhotoNode As XmlNode In ___doc.DocumentElement.SelectNodes("//photo-url") Try - Application.DoEvents() ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< If Me.CancellationPending Then GoTo ExitScrape - If CInt(___PhotoNode.Attributes.ItemOf("max-width").InnerText) = 1280 Then - - Me.URL_FileCreate_OnProgressChanged(___ImageCountTotal, ___BlogCycle / ___BlogCycleSize, ___RoundPostsCount / ___BlogCycleSize, WorkingStages.Blog_Scraping, Nothing) - '=============================================================================== - ' Check what to do with URL - '=============================================================================== - If ___DislikeList.Contains(___PhotoNode.InnerXml) Or ___BlogListNew.Contains(___PhotoNode.InnerXml) Then - '############################ ALL - Disliked & Added ############################# - ' Always Skip Disliked Urls and already added URLs. - GoTo NextImage - ElseIf Me._Work = URL_File_Tasks.RebuildURLFiles AndAlso ___BlogListOld.Contains(___PhotoNode.InnerXml) Then - '########################### URL-Rebuild - Known URL ############################# - ' If rebuilding URL-File, only add files which were known before. - ___BlogListNew.Add(___PhotoNode.InnerXml) ' Add to new list - ___ImageCountTotal += 1 ' Increment Image Counter. - GoTo NextImage ' No Saving or Reviewing - ElseIf Me._Work = URL_File_Tasks.RebuildURLFiles - '########################## URL-Rebuild - Unknown URL ############################ - ' If Rebuilding URL-File skip Urls not previous known. - GoTo NextImage - ElseIf Me._Work = URL_File_Tasks.RefreshURLFiles AndAlso ___BlogListOld.Contains(___PhotoNode.InnerXml) - '############################# Refresh - Known URL ############################### - ' If refreshing a URL-File and there is a known URL then stop scraping. - GoTo ExitScrape - ElseIf ___BlogListOld.Contains(___PhotoNode.InnerXml) - '############################## Create - Known URL ############################### - ___BlogListNew.Add(___PhotoNode.InnerXml) ' Add to new list - ___ImageCountTotal += 1 ' Increment Image Counter. - GoTo NextImage ' No Saving or Reviewing - End If - '=============================================================================== - ' Review Image - '=============================================================================== - If ReviewImages = True Then - ' Downlaod Image - - ' download the image - ___TempImg = New Bitmap(New IO.MemoryStream(New WebClient().DownloadData(___PhotoNode.InnerXml))) - - ' Report to MainApplication, the BGW is waiting for the Image Approval. - Me.URL_FileCreate_OnProgressChanged(___ImageCountTotal, ___BlogCycle, ___RoundPostsCount, WorkingStages.ImageApproval, ___TempImg) - - ' Wait For User Approval - Do - Application.DoEvents() - ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - If Me.CancellationPending Then GoTo ExitScrape - Loop Until ApproveImage <> ImageApprovalStatus.Pending - - ' If Img declined and DislikeFile is set, write URL to DislikeFile - If ApproveImage = ImageApprovalStatus.Declined _ - And _DislikeListPath <> String.Empty Then - ' Add the URL to DislikeList - ___DislikeList.Add(___PhotoNode.InnerXml) - ' If DislikeFile exists: Append URL Else create new File - If File.Exists(_DislikeListPath) Then - My.Computer.FileSystem.WriteAllText(_DislikeListPath, Environment.NewLine & ___PhotoNode.InnerXml, True) - Else - My.Computer.FileSystem.WriteAllText(_DislikeListPath, ___PhotoNode.InnerXml, True) - End If + + Me.OnProgressChanged(i + 1, ImageURLs.Count, WorkingStages.Blog_Scraping, Nothing) + '=============================================================================== + ' Check what to do with URL + '=============================================================================== + If DislikeList.Contains(ImageUrl) Or UrlListNew.Contains(ImageUrl) Then + '############################ ALL - Disliked & Added ############################# + ' Always skip disliked and already added URLs. + GoTo NextImage + ElseIf Me.Work = Tasks.RebuildURLFiles AndAlso UrlListOld.Contains(ImageUrl) Then + '########################### URL-Rebuild - Known URL ############################# + ' If rebuilding URL-File add only previous known links. + UrlListNew.Add(ImageUrl) ' Add to new list + GoTo NextImage ' No Saving or Reviewing + ElseIf Me.Work = Tasks.RebuildURLFiles + '########################## URL-Rebuild - Unknown URL ############################ + ' If rebuilding URL-File skip previous unkwown URLs. + GoTo NextImage + ElseIf Me.Work = Tasks.RefreshURLFiles AndAlso UrlListOld.Contains(ImageUrl) + '############################# Refresh - Known URL ############################### + ' If refreshing URL-File stop scraping at first known URL. + GoTo ExitScrape + ElseIf UrlListOld.Contains(ImageUrl) + '############################## Create - Known URL ############################### + UrlListNew.Add(ImageUrl) ' Add to new list + GoTo NextImage ' No Saving or Reviewing + End If + '=============================================================================== + ' Review Image + '=============================================================================== + If ReviewImages = True Then + ' Downlaod Image + TempImg = New Bitmap(New IO.MemoryStream(New WebClient().DownloadData(ImageUrl))) + + ' Report to MainApplication, the BGW is waiting for the Image Approval. + Me.OnProgressChanged(i + 1, ImageURLs.Count, WorkingStages.ImageApproval, TempImg) + + ' Wait For User Approval + Do + Application.DoEvents() + ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + If Me.CancellationPending Then GoTo ExitScrape + Loop Until ApproveImage <> ImageApprovalStates.Pending + + ' If Img declined and DislikeFile is set, write URL to DislikeFile + If ApproveImage = ImageApprovalStates.Declined _ + And _DislikeListPath <> String.Empty Then + ' Add the URL to DislikeList + DislikeList.Add(ImageUrl) + ' If DislikeFile exists: Append URL Else create new File + If File.Exists(_DislikeListPath) Then + My.Computer.FileSystem.WriteAllText(_DislikeListPath, Environment.NewLine & ImageUrl, True) + Else + My.Computer.FileSystem.WriteAllText(_DislikeListPath, ImageUrl, True) End If End If + End If - '=============================================================================== - ' Image Approved - '=============================================================================== - If ApproveImage = ImageApprovalStatus.Approved Or ReviewImages = False Then - ' --------------------------SAVE IMAGE TO DISK -------------------------- - If SaveImages = True Then - Dim ___XMLImagePath As String = ___PhotoNode.InnerXml - - Dim ___DirSplit As String() = ___XMLImagePath.Split("/") - ___XMLImagePath = ___DirSplit(___DirSplit.Length - 1) - - Dim imgDir As String = ImageSaveDir - If Not File.Exists(imgDir & "\" & ___XMLImagePath.Replace("\\", "\")) Then - ' Downloaded Picture already for Review? - If ___TempImg IsNot Nothing Then - ' YES: Save it from Stream - ___TempImg.Save(imgDir & "\" & ___XMLImagePath.Replace("\\", "\")) - Else - ' NO: Go download it. - My.Computer.Network.DownloadFile(___PhotoNode.InnerXml, imgDir & "\" & ___XMLImagePath.Replace("\\", "\")) - End If + '=============================================================================== + ' Image Approved + '=============================================================================== + If ApproveImage = ImageApprovalStates.Approved Or ReviewImages = False Then + ' --------------------------SAVE IMAGE TO DISK -------------------------- + If SaveImages = True Then + Dim TmpImagePath As String = ImageUrl + Dim TmpDirSplit As String() = TmpImagePath.Split("/") + TmpImagePath = TmpDirSplit(TmpDirSplit.Length - 1) + + Dim imgDir As String = ImageSaveDir + If Not File.Exists(imgDir & "\" & TmpImagePath.Replace("\\", "\")) Then + ' Downloaded Picture already for Review? + If TempImg IsNot Nothing Then + ' YES: Save it from Stream + TempImg.Save(imgDir & "\" & TmpImagePath.Replace("\\", "\")) + Else + ' NO: Go download it. + My.Computer.Network.DownloadFile(ImageUrl, imgDir & "\" & TmpImagePath.Replace("\\", "\")) End If End If - ' -------------------------- ADD IMAGE TO LIST -------------------------- - ___BlogListNew.Add(___PhotoNode.InnerXml) - ___ImageCountTotal += 1 - ___ImageCountAdded += 1 End If + ' -------------------------- ADD IMAGE TO LIST -------------------------- + UrlListNew.Add(ImageUrl) + ImageCountAdded += 1 End If Catch ex As WebException '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ WebException ▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ @@ -658,45 +647,38 @@ Scrape: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' On any other Error, we want to write the data and Exit. - ___ExCache = ex + ExCache = ex GoTo ExitScrape End Try NextImage: - ___TempImg = Nothing ' Reset Image + TempImg = Nothing ' Reset Image Next - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Blog-Loop-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ___BlogCycle += ___BlogCycleSize - If ___BlogCycle < ___RoundPostsCount And Not Me.CancellationPending Then GoTo Scrape - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Blog-Page-Scraping-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Alternate ImageCounting on URL-FileRebuild. - If Me._Work = URL_File_Tasks.RebuildURLFiles Then ___ImageCountAdded = ___BlogListOld.Count - ___BlogListNew.Count + If Me.Work = Tasks.RebuildURLFiles Then ImageCountAdded = UrlListOld.Count - UrlListNew.Count ExitScrape: - Me.URL_FileCreate_OnProgressChanged(___ImageCountTotal, ___BlogCycle / ___BlogCycleSize, ___RoundPostsCount / ___BlogCycleSize, WorkingStages.Writing_File, Nothing) + Me.OnProgressChanged(100, 100, WorkingStages.Writing_File, Nothing) ' IF: Work is Cancelled? Or do we refresh the file? Or did an Error occur? ' Then: Write a combined copy of new and old List ' Else: Write only New List. This removes Dead links. - Dim ___BlogListCombine As New List(Of String) + Dim UrlListFinal As New List(Of String) If Me.CancellationPending = True _ - Or Me._Work = URL_File_Tasks.RefreshURLFiles _ - Or ___ExCache IsNot Nothing _ - Then ___BlogListCombine = ___BlogListOld.Union(___BlogListNew).ToList _ - Else ___BlogListCombine = ___BlogListNew + Or Me.Work = Tasks.RefreshURLFiles _ + Or ExCache IsNot Nothing _ + Then UrlListFinal = UrlListOld.Union(UrlListNew).ToList _ + Else UrlListFinal = UrlListNew '=============================================================================== ' Delete old URL-File: Retry delayed 10 times if the File is blocked by use. '=============================================================================== - Dim ___retryCounter As Integer = 0 + Dim RetryCounter As Integer = 0 RetryDeleteFile: Try - If File.Exists(___ImageURLPath) Then My.Computer.FileSystem.DeleteFile(___ImageURLPath) + If File.Exists(TargetFilePath) Then My.Computer.FileSystem.DeleteFile(TargetFilePath) Catch ex As IO.IOException '@@@@@@@@@@@@@@@@@@@@@@@@ IO.Exception @@@@@@@@@@@@@@@@@@@@@@@@ - ___retryCounter += 1 - If ___retryCounter > 10 Then + RetryCounter += 1 + If RetryCounter > 10 Then ' Wait and try again. Threading.Thread.Sleep(500) GoTo RetryDeleteFile @@ -708,29 +690,23 @@ RetryDeleteFile: '=============================================================================== ' Write the new URL-File -> Join Lines with Newline together. '=============================================================================== - File.WriteAllText(___ImageURLPath, String.Join(vbCrLf, ___BlogListCombine)) + File.WriteAllText(TargetFilePath, String.Join(vbCrLf, UrlListFinal)) - ___doc = Nothing - ___req = Nothing - ___res = Nothing - Me.URL_FileCreate_OnProgressChanged(0, 0, 0, WorkingStages.Completed, Nothing) + Me.OnProgressChanged(0, 0, WorkingStages.Completed, Nothing) Return New CreateUrlFileResult With {.Cancelled = Me.CancellationPending, - .Filename = ___ModifiedUrl, - .ImagesAdded = ___ImageCountAdded, - .ImagesTotal = ___ImageCountTotal, - ._Error = ___ExCache - } + .Filename = TargetFileName, + .ImagesAdded = ImageCountAdded, + .ImagesTotal = UrlListFinal.Count, + ._Error = ExCache + } Catch ex As WebException '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' Webexception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' This branch is only reachable, if there is an Error during loading the XML-Sitemap. - ' If this is happening on the First pass, rethrow the Exception, Otherwise Write data to disk and Exit. - If ___ExactPostsCount = -1 Then Throw ' Set Error, to inform user about it. - ___ExCache = ex + ExCache = ex ' Write data to Disk and Exit. GoTo ExitScrape Catch ex As Exception @@ -741,71 +717,99 @@ RetryDeleteFile: End Try End Function -#End Region + ''' + ''' Connects to a tumblr blog and reads all available image URLs. + ''' + ''' The URL of the blog to search. + ''' Returns a list of all image URLs in given blog or NOTHING/NULL + ''' when a cancelation is pending. + Private Function TumblrGetImageURLs(blogURL As String) As List(Of String) -#Region "-------------------------------------------------- Maintain URL Files --------------------------------------------------" + Dim rtnList As New List(Of String) + Dim doc As XmlDocument = New XmlDocument() + Dim req As HttpWebRequest + Dim res As HttpWebResponse - Public Class MaintainUrlResult - ''' - ''' The number of removed/added Links - ''' - Public ModifiedLinkCount As Integer = 0 - ''' - ''' The Number of all Processed URLs. - ''' - Public LinkCountTotal As Integer = 0 - ''' - ''' The maintained URL-Filenames without extension. - ''' - Public MaintainedUrlFiles As New List(Of String) - ''' - ''' If an Error occurs, while processing an URL-File, the ErrorMessage will added here. - ''' - Public ErrorText As New List(Of String) - Public Cancelled As Boolean = False + Try - Sub New() - End Sub - End Class + blogURL = blogURL.Replace("/", "") + blogURL = blogURL.Replace("http:", "http://") + Debug.Print("ImageBlogURL = " & blogURL) - ''' ========================================================================================================= - ''' - ''' Checks all URls in the URL-File-Folder. No new URLs will be added, dead one removed - ''' - ''' Returns an Object of MaintainUrlResult/>. - Public Function RebuildURLFilesAsync() As MaintainUrlResult - Try - Return StartAllWorkAsync(URL_File_Tasks.RebuildURLFiles) - Catch + Dim BlogCycle As Integer = 0 + Dim BlogCycleSize As Integer = 5000 + Dim TotalPostCount As Integer = -1 + + Do + ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + If Me.CancellationPending Then Return Nothing + + req = WebRequest.Create(blogURL & "/api/read?start=" & BlogCycle & "&num=" & BlogCycleSize) + res = req.GetResponse() + + Dim Reader As New XmlTextReader(res.GetResponseStream) + doc.Load(Reader) + req.Abort() ' Otherwise you cant't run it a seccond time on the same URL that session! + res.Close() + + ' Get total post count on first run. + If TotalPostCount = -1 Then + For Each node As XmlNode In doc.DocumentElement.SelectNodes("//posts") + TotalPostCount = CInt(node.Attributes.ItemOf("total").InnerText) + Next + End If + + ' Read all image urls in given range. + For Each photoNode As XmlNode In doc.DocumentElement.SelectNodes("//photo-url") + If CInt(photoNode.Attributes.ItemOf("max-width").InnerText) = 1280 Then + rtnList.Add(photoNode.InnerXml) + End If + Next + + BlogCycle += BlogCycleSize + Loop Until BlogCycle >= TotalPostCount + + Return rtnList + + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Throw End Try End Function - ''' ========================================================================================================= - ''' - ''' Refreshes all URL-Files and automatically adds new URLs. If not Cancelled, it will remove Dead-URLs. - ''' - ''' Returns an Object of MaintainUrlResult/>. - Public Function RefreshURLFilesAsync() As MaintainUrlResult + + Shared Function ReadFileContent(path As String) As List(Of String) Try - Return StartAllWorkAsync(URL_File_Tasks.RefreshURLFiles) - Catch + Dim rtnList As New List(Of String) + + ' Check directory and file existance. + If IO.Directory.Exists(IO.Path.GetDirectoryName(path)) AndAlso File.Exists(path) Then + + ' Read all lines of given file without any blank lines. + rtnList.AddRange(File.ReadAllLines(path).Where(Function(x) + Return String.IsNullOrWhiteSpace(x) = False + End Function)) + + End If + Return rtnList + Catch ex As Exception Throw End Try End Function - ''' ========================================================================================================= ''' ''' Function for Maintaining URL-Files. Basicly it loops through the Folder and gives UI-Feedback. ''' ''' - Private Function MaintainURLFiles() As MaintainUrlResult - Dim ___rtnResult As New MaintainUrlResult - With ___rtnResult + Private Function MaintainURLFiles() As MaintainUrlFilesResult + Dim RtnResult As New MaintainUrlFilesResult + With RtnResult Try - Me._OverallProgress = 0 - Me._OverallProgressTotal = 0 - Me._InfoText = String.Empty + Me.OverallProgress = 0 + Me.OverallProgressTotal = 0 + Me.InfoText = String.Empty ' Get all TxtFiles in specified Folder @@ -814,7 +818,7 @@ RetryDeleteFile: ' Extract Name and set Infotext, for UI and Debug Dim ___tmpFileName As String = Path.GetFileName(.MaintainedUrlFiles(i)).Replace(".txt", "") Try - Me._InfoText = If(Me._Work = URL_File_Tasks.RefreshURLFiles, "Refreshing: ", "Rebuilding: ") & ___tmpFileName + Me.InfoText = If(Me.Work = Tasks.RefreshURLFiles, "Refreshing: ", "Rebuilding: ") & ___tmpFileName Dim tmpresult As CreateUrlFileResult = BlogToUrlFile("http://" & ___tmpFileName) '>>>>>>>>>>>>>>>>>>>>>>>> Cancellation <<<<<<<<<<<<<<<<<<<<<<<<< @@ -823,8 +827,8 @@ RetryDeleteFile: .MaintainedUrlFiles(i) = tmpresult.Filename ' Set the Values for returning to UI - Me._OverallProgress = i - Me._OverallProgressTotal = .MaintainedUrlFiles.Count + Me.OverallProgress = i + 1 + Me.OverallProgressTotal = .MaintainedUrlFiles.Count + 1 ' Calculate Totals .ModifiedLinkCount += tmpresult.ImagesAdded @@ -832,12 +836,12 @@ RetryDeleteFile: Catch ex As Exception When Me.CancellationPending '>>>>>>>>>>>>>>>>>>>>>>>> Cancellation <<<<<<<<<<<<<<<<<<<<<<<<< ' On Cancellation an ArgumentOutOfBla Exc. Occurs. - If Me.CancellationPending Then Return ___rtnResult + If Me.CancellationPending Then Return RtnResult Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ All Errors ▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ .MaintainedUrlFiles(i) = ___tmpFileName - ___rtnResult.ErrorText.Add(String.Format("Error {0} URL-File '{1}': {2}", - If(Me._Work = URL_File_Tasks.RefreshURLFiles, "refreshing", "rebuilding"), + RtnResult.ErrorText.Add(String.Format("Error {0} URL-File '{1}': {2}", + If(Me.Work = Tasks.RefreshURLFiles, "refreshing", "rebuilding"), ___tmpFileName, ex.Message)) End Try @@ -845,7 +849,7 @@ RetryDeleteFile: If Me.CancellationPending Then Exit For Next - Return ___rtnResult + Return RtnResult Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors @@ -863,41 +867,6 @@ RetryDeleteFile: End Function -#End Region - -#Region "-------------------------------------------------- Misc. Functions ---------------------------------------------------" - - ''' ========================================================================================================= - ''' - ''' Starts the overgiven Work. - ''' - ''' The task to Start. - ''' - Private Function StartAllWorkAsync(ByVal WorkToStart As URL_File_Tasks) As Object - Try - Me._Work = WorkToStart - Me.RunWorkerAsync() - - Do Until Me.IsBusy = False - Application.DoEvents() - Loop - - If _BGW_Result.Error IsNot Nothing Then Throw _BGW_Result.Error - If _BGW_Result.Cancelled = True Then Throw New DivideByZeroException("Action was cancelled.") - Return _BGW_Result.Result - Catch - Throw - Finally - Me._Work = URL_File_Tasks.Idle - End Try - End Function - - Private Function RoundUpToNearest(Value As Integer, nearest As Integer) As Integer - Return CInt(Math.Ceiling(Value / nearest) * nearest) - End Function - -#End Region - End Class End Namespace \ No newline at end of file diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index ce7d7e1..f68a552 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -3797,7 +3797,7 @@ trypreviousimage: Try ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.MaintainUrlResult = BWURLFiles.RefreshURLFilesAsync() + Dim __tmpResult As URL_File_BGW.MaintainUrlFilesResult = BWURLFiles.RefreshURLFilesAsync() ' Activate the URL-Files __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) @@ -3833,7 +3833,7 @@ trypreviousimage: '************************************************************************************************************** Try ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.MaintainUrlResult = BWURLFiles.RebuildURLFilesAsync() + Dim __tmpResult As URL_File_BGW.MaintainUrlFilesResult = BWURLFiles.RebuildURLFilesAsync() ' Activate the URL-Files __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) @@ -3893,15 +3893,17 @@ trypreviousimage: ''' ''' ''' - Private Sub BWURLFiles_URLCreate_User_Interactions(ByVal sender As URL_File_BGW, ByRef e As URL_File_BGW.UserActions) Handles BWURLFiles.URL_FileCreate_UserInteractions + Private Sub BWURLFiles_UserInteractions(ByVal sender As Object, ByRef e As EventArgs) Handles BWURLFiles.UserInteractions If Me.InvokeRequired Then - Dim Callbak As New URL_File_BGW.URL_FileCreate_UserInteractions_Delegate(AddressOf BWURLFiles_URLCreate_User_Interactions) + Dim Callbak As New URL_File_BGW.UserInteractionsDelegate(AddressOf BWURLFiles_UserInteractions) Me.Invoke(Callbak, sender, e) Else - e.ReviewImages = CBWIReview.Checked - e.ApproveImage = ApproveImage - e.SaveImages = CBWISaveToDisk.Checked - e.ImgSaveDir = TBWIDirectory.Text + With DirectCast(e, URL_File_BGW.UserActions) + .ReviewImages = CBWIReview.Checked + .ApproveImage = ApproveImage + .SaveImages = CBWISaveToDisk.Checked + .ImgSaveDir = TBWIDirectory.Text + End With End If End Sub @@ -3911,20 +3913,20 @@ trypreviousimage: '''
''' ''' - Private Sub BWURLFiles_ProgressChanged(ByVal Sender As Object, ByRef e As URL_File_BGW.URL_File_ProgressChangedEventArgs) Handles BWURLFiles.URL_File_ProgressChanged + Private Sub BWURLFiles_ProgressChanged(ByVal Sender As Object, ByRef e As URL_File_BGW.ProgressChangedEventArgs) Handles BWURLFiles.ProgressChanged If Me.InvokeRequired Then ' Beware: Event is fired in Worker Thread, so you need to do a Function Callback. - Dim CallBack As New URL_File_BGW.URL_File_ProgressChanged_Delegate(AddressOf BWURLFiles_ProgressChanged) + Dim CallBack As New URL_File_BGW.ProgressChangedDelegate(AddressOf BWURLFiles_ProgressChanged) Me.Invoke(CallBack, Sender, e) Else ' Reset remanent Marker for Image Approval If ApproveImage <> 0 Then ApproveImage = 0 Select Case e.CurrentTask - Case URL_File_Tasks.CreateURLFile + Case Tasks.CreateURLFile '=============================================================================== ' Create URL-File '=============================================================================== - Select Case e.ActStage + Select Case e.CurrentStage ' ------------------------ Image Approval ------------------------------- Case WorkingStages.ImageApproval If e.ImageToReview IsNot Nothing Then @@ -3945,21 +3947,22 @@ trypreviousimage: Case Else ' ---------------------- Everthing else ------------------------------ ' Refresh Progressbars - WebImageProgressBar.Maximum = e.BlogPageTotal + 1 - WebImageProgressBar.Value = e.BlogPage - ' Disable Image Approval-UI - BTNWIContinue.Enabled = False + WebImageProgressBar.Maximum = e.ImageCountTotal + 1 + WebImageProgressBar.Value = e.ImageCount + ' Disable Image Approval-UI + BTNWIContinue.Enabled = False BTNWIAddandContinue.Enabled = False ' Inform User about BGW-State - LBLWebImageCount.Text = String.Format("{0}/{1} ({2})", e.BlogPage, e.BlogPageTotal, e.ImageCount) + LBLWebImageCount.Text = String.Format("{0}/{1}", e.ImageCount, e.ImageCountTotal) End Select Case Else '=============================================================================== ' Refresh URL-File '=============================================================================== LBLMaintenance.Text = e.InfoText - PBCurrent.Maximum = e.BlogPageTotal - PBCurrent.Value = e.BlogPage + PBCurrent.Maximum = e.ImageCountTotal + PBCurrent.Value = e.ImageCount + PBCurrent.Refresh() PBMaintenance.Maximum = e.OverallProgressTotal PBMaintenance.Value = e.OverallProgress End Select From 3030625fda5cdca6df0d0a0e3118ce46593571f8 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sat, 15 Apr 2017 21:04:23 +0200 Subject: [PATCH 071/143] Fixing cool new non working stuff... * Increasing blog scraping size, decreases the final file output size... Changed back to 50. * Added a file selection dialogue for rebuilding and refreshing url files. * Removed code redundancies regarding browsing through saved url files. * Added possibility to jump to a specific image, when browsing an url file. Simply double click on label in bottom left corner. A prompt will ask you for number to got to. * An Exception on loading an url file doesn't block the file any more. * After removing the last image of an url file it won't jump back to the first image. --- README.md | 2 + Tease AI/Classes/URL_Files_BGW.vb | 381 ++++++++++++----- Tease AI/Form2.vb | 688 ++++++++++++++---------------- 3 files changed, 591 insertions(+), 480 deletions(-) diff --git a/README.md b/README.md index 336d753..d45e8a9 100644 --- a/README.md +++ b/README.md @@ -39,6 +39,8 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Commas are no longer affected when auditing scripts * Blank lines are now only removed from URL Files when auditing scripts * CBT\Custom Task were missing from StopEverything() sub-routine (dariobrun) + * Added dialog to select certain url files, when refreshing or rebuilding url files + * Added possibilty to jump to a certain image, when browsing an url file. Simply double click the bottom left label and a prompt will appear. # Changelog - Patch 54.7.0 diff --git a/Tease AI/Classes/URL_Files_BGW.vb b/Tease AI/Classes/URL_Files_BGW.vb index 13ff7cc..0336db5 100644 --- a/Tease AI/Classes/URL_Files_BGW.vb +++ b/Tease AI/Classes/URL_Files_BGW.vb @@ -19,7 +19,7 @@ Namespace URL_Files Public Enum WorkingStages Started = 0 Dupe_Liste = 10 - Scraping = 50 + Processing = 50 Blog_Scraping = 60 ''' ''' The BGW is waiting for an Userinput, what to to with the Image. If you use a remanent Variable to feeed it don't forget to reset it. @@ -266,6 +266,8 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> Public CurrentTask As Tasks = Tasks.Idle Public CurrentStage As WorkingStages = WorkingStages.Completed Public InfoText As String = Nothing + Public BlogPage As Integer = 0 + Public BlogPageTotal Public ImageCount As Integer = 0 Public ImageCountTotal As Integer = 0 Public ImageToReview As Image = Nothing @@ -280,16 +282,20 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> ''' ''' ''' - Private Shadows Sub OnProgressChanged(ByVal imageCount As Integer, - ByVal imageCountTotal As Integer, - ByVal currentStage As WorkingStages, - ByVal imageToReview As Image) + Private Shadows Sub OnProgressChanged(ByVal blogPage As Integer, + ByVal blogPageTotal As Integer, + ByVal imageCount As Integer, + ByVal imageCountTotal As Integer, + ByVal currentStage As WorkingStages, + ByVal imageToReview As Image) If currentStage = WorkingStages.Writing_File Then ImageCountAdded += imageCount Dim e As New ProgressChangedEventArgs With { .CurrentTask = Me.Work, .CurrentStage = currentStage, .InfoText = Me.InfoText, + .BlogPage = blogPage, + .BlogPageTotal = blogPageTotal, .ImageCount = imageCount, .ImageCountTotal = imageCountTotal, .OverallProgress = Me.OverallProgress, @@ -498,7 +504,7 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> '=============================================================================== ' Declaration of variables '=============================================================================== - Me.OnProgressChanged(0, 0, WorkingStages.Started, Nothing) + Me.OnProgressChanged(0, 0, 0, 0, WorkingStages.Started, Nothing) If Me.CancellationPending = True Then Return Nothing Dim ImageCountAdded As Integer = 0 @@ -540,124 +546,177 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> DislikeList = ReadFileContent(_DislikeListPath) + Dim BlogCycle As Integer = 0 + Dim BlogCycleSize As Integer = 50 + Dim TotalPostCount As Integer = -1 - Dim ImageURLs As List(Of String) = TumblrGetImageURLs(imageBlogUrl) + Do + ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + If Me.CancellationPending AndAlso TotalPostCount = -1 Then Return New CreateUrlFileResult With {.Cancelled = True} + If Me.CancellationPending Then GoTo ExitScrape - ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - If Me.CancellationPending Then Return New CreateUrlFileResult With {.Cancelled = True} + '=============================================================================== + ' Fetch XML Sitemap + '=============================================================================== + Dim doc As XmlDocument = New XmlDocument() + Dim ImageURLs As New List(Of String) + Request = WebRequest.Create(imageBlogUrl & "/api/read?start=" & BlogCycle & "&num=" & BlogCycleSize) + Response = Request.GetResponse() - For i = 0 To ImageURLs.Count - 1 - Dim TempImg As Bitmap = Nothing - Dim ImageUrl As String = ImageURLs(i) + Dim Reader As New XmlTextReader(Response.GetResponseStream) + doc.Load(Reader) + Request.Abort() ' Otherwise you cant't run it a seccond time on the same URL that session! + Response.Close() - Try - ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - If Me.CancellationPending Then GoTo ExitScrape - - Me.OnProgressChanged(i + 1, ImageURLs.Count, WorkingStages.Blog_Scraping, Nothing) - '=============================================================================== - ' Check what to do with URL - '=============================================================================== - If DislikeList.Contains(ImageUrl) Or UrlListNew.Contains(ImageUrl) Then - '############################ ALL - Disliked & Added ############################# - ' Always skip disliked and already added URLs. - GoTo NextImage - ElseIf Me.Work = Tasks.RebuildURLFiles AndAlso UrlListOld.Contains(ImageUrl) Then - '########################### URL-Rebuild - Known URL ############################# - ' If rebuilding URL-File add only previous known links. - UrlListNew.Add(ImageUrl) ' Add to new list - GoTo NextImage ' No Saving or Reviewing - ElseIf Me.Work = Tasks.RebuildURLFiles - '########################## URL-Rebuild - Unknown URL ############################ - ' If rebuilding URL-File skip previous unkwown URLs. - GoTo NextImage - ElseIf Me.Work = Tasks.RefreshURLFiles AndAlso UrlListOld.Contains(ImageUrl) - '############################# Refresh - Known URL ############################### - ' If refreshing URL-File stop scraping at first known URL. - GoTo ExitScrape - ElseIf UrlListOld.Contains(ImageUrl) - '############################## Create - Known URL ############################### - UrlListNew.Add(ImageUrl) ' Add to new list - GoTo NextImage ' No Saving or Reviewing + ' Get total post count on first run. + If TotalPostCount = -1 Then + Me.OnProgressChanged(0, 0, 0, 0, WorkingStages.Blog_Scraping, Nothing) + + For Each node As XmlNode In doc.DocumentElement.SelectNodes("//posts") + TotalPostCount = CInt(node.Attributes.ItemOf("total").InnerText) + Next + Else + Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, + Math.Ceiling(TotalPostCount / BlogCycleSize), + 0, ImageURLs.Count, + WorkingStages.Blog_Scraping, Nothing) + End If + + ' Read all image urls in given range. + For Each photoNode As XmlNode In doc.DocumentElement.SelectNodes("//photo-url") + If CInt(photoNode.Attributes.ItemOf("max-width").InnerText) = 1280 Then + ImageURLs.Add(photoNode.InnerXml) End If - '=============================================================================== - ' Review Image - '=============================================================================== - If ReviewImages = True Then - ' Downlaod Image - TempImg = New Bitmap(New IO.MemoryStream(New WebClient().DownloadData(ImageUrl))) - - ' Report to MainApplication, the BGW is waiting for the Image Approval. - Me.OnProgressChanged(i + 1, ImageURLs.Count, WorkingStages.ImageApproval, TempImg) - - ' Wait For User Approval - Do - Application.DoEvents() - ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - If Me.CancellationPending Then GoTo ExitScrape - Loop Until ApproveImage <> ImageApprovalStates.Pending - - ' If Img declined and DislikeFile is set, write URL to DislikeFile - If ApproveImage = ImageApprovalStates.Declined _ + Next + + Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, + Math.Ceiling(TotalPostCount / BlogCycleSize), + 0, ImageURLs.Count, + WorkingStages.Blog_Scraping, Nothing) + + + For i = 0 To ImageURLs.Count - 1 + Dim TempImg As Bitmap = Nothing + Dim ImageUrl As String = ImageURLs(i) + + Try + ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + If Me.CancellationPending Then GoTo ExitScrape + + Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, + Math.Ceiling(TotalPostCount / BlogCycleSize), + i + 1, ImageURLs.Count, + WorkingStages.Processing, Nothing) + + '=============================================================================== + ' Check what to do with URL + '=============================================================================== + If DislikeList.Contains(ImageUrl) Or UrlListNew.Contains(ImageUrl) Then + '############################ ALL - Disliked & Added ############################# + ' Always skip disliked and already added URLs. + GoTo NextImage + ElseIf Me.Work = Tasks.RebuildURLFiles AndAlso UrlListOld.Contains(ImageUrl) Then + '########################### URL-Rebuild - Known URL ############################# + ' If rebuilding URL-File add only previous known links. + UrlListNew.Add(ImageUrl) ' Add to new list + GoTo NextImage ' No Saving or Reviewing + ElseIf Me.Work = Tasks.RebuildURLFiles + '########################## URL-Rebuild - Unknown URL ############################ + ' If rebuilding URL-File skip previous unkwown URLs. + GoTo NextImage + ElseIf Me.Work = Tasks.RefreshURLFiles AndAlso UrlListOld.Contains(ImageUrl) + '############################# Refresh - Known URL ############################### + ' If refreshing URL-File stop scraping at first known URL. + GoTo ExitScrape + ElseIf UrlListOld.Contains(ImageUrl) + '############################## Create - Known URL ############################### + UrlListNew.Add(ImageUrl) ' Add to new list + GoTo NextImage ' No Saving or Reviewing + End If + '=============================================================================== + ' Review Image + '=============================================================================== + If ReviewImages = True Then + ' Downlaod Image + TempImg = New Bitmap(New IO.MemoryStream(New WebClient().DownloadData(ImageUrl))) + + ' Report to MainApplication, the BGW is waiting for the Image Approval. + Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, + Math.Ceiling(TotalPostCount / BlogCycleSize), + i + 1, ImageURLs.Count, + WorkingStages.Processing, TempImg) + + ' Wait For User Approval + Do + Application.DoEvents() + ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + If Me.CancellationPending Then GoTo ExitScrape + Loop Until ApproveImage <> ImageApprovalStates.Pending + + ' If Img declined and DislikeFile is set, write URL to DislikeFile + If ApproveImage = ImageApprovalStates.Declined _ And _DislikeListPath <> String.Empty Then - ' Add the URL to DislikeList - DislikeList.Add(ImageUrl) - ' If DislikeFile exists: Append URL Else create new File - If File.Exists(_DislikeListPath) Then - My.Computer.FileSystem.WriteAllText(_DislikeListPath, Environment.NewLine & ImageUrl, True) - Else - My.Computer.FileSystem.WriteAllText(_DislikeListPath, ImageUrl, True) + ' Add the URL to DislikeList + DislikeList.Add(ImageUrl) + ' If DislikeFile exists: Append URL Else create new File + If File.Exists(_DislikeListPath) Then + My.Computer.FileSystem.WriteAllText(_DislikeListPath, Environment.NewLine & ImageUrl, True) + Else + My.Computer.FileSystem.WriteAllText(_DislikeListPath, ImageUrl, True) + End If End If End If - End If - '=============================================================================== - ' Image Approved - '=============================================================================== - If ApproveImage = ImageApprovalStates.Approved Or ReviewImages = False Then - ' --------------------------SAVE IMAGE TO DISK -------------------------- - If SaveImages = True Then - Dim TmpImagePath As String = ImageUrl - Dim TmpDirSplit As String() = TmpImagePath.Split("/") - TmpImagePath = TmpDirSplit(TmpDirSplit.Length - 1) - - Dim imgDir As String = ImageSaveDir - If Not File.Exists(imgDir & "\" & TmpImagePath.Replace("\\", "\")) Then - ' Downloaded Picture already for Review? - If TempImg IsNot Nothing Then - ' YES: Save it from Stream - TempImg.Save(imgDir & "\" & TmpImagePath.Replace("\\", "\")) - Else - ' NO: Go download it. - My.Computer.Network.DownloadFile(ImageUrl, imgDir & "\" & TmpImagePath.Replace("\\", "\")) + '=============================================================================== + ' Image Approved + '=============================================================================== + If ApproveImage = ImageApprovalStates.Approved Or ReviewImages = False Then + ' --------------------------SAVE IMAGE TO DISK -------------------------- + If SaveImages = True Then + Dim TmpImagePath As String = ImageUrl + Dim TmpDirSplit As String() = TmpImagePath.Split("/") + TmpImagePath = TmpDirSplit(TmpDirSplit.Length - 1) + + Dim imgDir As String = ImageSaveDir + If Not File.Exists(imgDir & "\" & TmpImagePath.Replace("\\", "\")) Then + ' Downloaded Picture already for Review? + If TempImg IsNot Nothing Then + ' YES: Save it from Stream + TempImg.Save(imgDir & "\" & TmpImagePath.Replace("\\", "\")) + Else + ' NO: Go download it. + My.Computer.Network.DownloadFile(ImageUrl, imgDir & "\" & TmpImagePath.Replace("\\", "\")) + End If End If End If + ' -------------------------- ADD IMAGE TO LIST -------------------------- + UrlListNew.Add(ImageUrl) + ImageCountAdded += 1 End If - ' -------------------------- ADD IMAGE TO LIST -------------------------- - UrlListNew.Add(ImageUrl) - ImageCountAdded += 1 - End If - Catch ex As WebException - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ WebException ▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' On a Webexception like a 404,410 and stuff like that, goto next image. - GoTo NextImage - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' On any other Error, we want to write the data and Exit. - ExCache = ex - GoTo ExitScrape - End Try + Catch ex As WebException + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ WebException ▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' On a Webexception like a 404,410 and stuff like that, goto next image. + GoTo NextImage + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' On any other Error, we want to write the data and Exit. + ExCache = ex + GoTo ExitScrape + End Try NextImage: - TempImg = Nothing ' Reset Image - Next + TempImg = Nothing ' Reset Image + Next + + BlogCycle += BlogCycleSize + Loop Until BlogCycle >= TotalPostCount ' Alternate ImageCounting on URL-FileRebuild. If Me.Work = Tasks.RebuildURLFiles Then ImageCountAdded = UrlListOld.Count - UrlListNew.Count ExitScrape: - Me.OnProgressChanged(100, 100, WorkingStages.Writing_File, Nothing) + Me.OnProgressChanged(100, 100, 0, 0, WorkingStages.Writing_File, Nothing) ' IF: Work is Cancelled? Or do we refresh the file? Or did an Error occur? ' Then: Write a combined copy of new and old List @@ -693,7 +752,7 @@ RetryDeleteFile: File.WriteAllText(TargetFilePath, String.Join(vbCrLf, UrlListFinal)) - Me.OnProgressChanged(0, 0, WorkingStages.Completed, Nothing) + Me.OnProgressChanged(0, 0, 0, 0, WorkingStages.Completed, Nothing) Return New CreateUrlFileResult With {.Cancelled = Me.CancellationPending, .Filename = TargetFileName, @@ -737,7 +796,7 @@ RetryDeleteFile: Debug.Print("ImageBlogURL = " & blogURL) Dim BlogCycle As Integer = 0 - Dim BlogCycleSize As Integer = 5000 + Dim BlogCycleSize As Integer = 50 Dim TotalPostCount As Integer = -1 Do @@ -762,6 +821,9 @@ RetryDeleteFile: ' Read all image urls in given range. For Each photoNode As XmlNode In doc.DocumentElement.SelectNodes("//photo-url") If CInt(photoNode.Attributes.ItemOf("max-width").InnerText) = 1280 Then + If rtnList.Contains(photoNode.InnerXml) Then + Dim t = 0 + End If rtnList.Add(photoNode.InnerXml) End If Next @@ -814,6 +876,27 @@ RetryDeleteFile: ' Get all TxtFiles in specified Folder .MaintainedUrlFiles.AddRange(My.Computer.FileSystem.GetFiles(Me._ImageURLFileDir, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")) + + ' Display selection dialog + Dim ff As New SelectURLFileDialog(.MaintainedUrlFiles) + + If Not ff.ShowDialog = DialogResult.OK Then + Me.CancelAsync() + Else + Dim NewList As New List(Of String) + + For Each tmpStr As String In .MaintainedUrlFiles + If ff.SelectedItems.Contains(Path.GetFileName(tmpStr)) Then + NewList.Add(tmpStr) + End If + Next + + .MaintainedUrlFiles.Clear() + .MaintainedUrlFiles.AddRange(NewList) + End If + + ff.Dispose() + For i = 0 To .MaintainedUrlFiles.Count - 1 ' Extract Name and set Infotext, for UI and Debug Dim ___tmpFileName As String = Path.GetFileName(.MaintainedUrlFiles(i)).Replace(".txt", "") @@ -869,4 +952,86 @@ RetryDeleteFile: End Class + Class SelectURLFileDialog + Inherits Form + + Dim lbSel As ListBox + Dim BtnOk As Button + Dim BtnCn As Button + + Dim StoredItems As List(Of String) + + Public Property SelectionMode As SelectionMode + Get + Return lbSel.SelectionMode + End Get + Set(value As SelectionMode) + lbSel.SelectionMode = value + End Set + End Property + + Public ReadOnly Property SelectedItems As ListBox.SelectedObjectCollection + Get + SelectedItems = New ListBox.SelectedObjectCollection(lbSel) + + For Each tmpStr As String In StoredItems + If lbSel.SelectedItems.Contains(Path.GetFileName(tmpStr)) Then + SelectedItems.Add(tmpStr) + End If + Next + + End Get + End Property + + Sub New(listItems As List(Of String)) + Dim Marg As Integer = 8 + + StartPosition = FormStartPosition.CenterParent + FormBorderStyle = FormBorderStyle.SizableToolWindow + Size = New Size(350, 400) + Text = "Select URL files." + TopMost = True + Padding = New Padding(8) + + lbSel = New ListBox With + { + .SelectionMode = SelectionMode.MultiExtended, + .Sorted = True, + .Dock = DockStyle.Top, .Anchor = AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top Or AnchorStyles.Bottom + } + + Dim AsBtn As AnchorStyles = AnchorStyles.Right Or AnchorStyles.Bottom + + BtnOk = New Button With {.Text = "OK", .DialogResult = DialogResult.OK, .Anchor = AsBtn} + BtnCn = New Button With {.Text = "Cancel", .DialogResult = DialogResult.Cancel, .Anchor = AsBtn} + + Controls.AddRange({lbSel, BtnOk, BtnCn}) + BtnOk.Location = New Point(ClientRectangle.Width - BtnOk.Width - BtnCn.Width - Marg * 2, + ClientRectangle.Height - BtnOk.Height - Marg) + + BtnCn.Location = New Point(ClientRectangle.Width - BtnCn.Width - Marg, + ClientRectangle.Height - BtnCn.Height - Marg) + lbSel.Size = New Size(ClientRectangle.Width - Marg * 2, + ClientRectangle.Height - BtnCn.Height - Marg * 2 - Marg / 2) + lbSel.Location = New Point(Marg, Marg) + + ' Store unedited items, because the listbox displays only the filename. + StoredItems = listItems + + ' Add items and select all. + For Each TmpStr In listItems + lbSel.Items.Add(Path.GetFileName(TmpStr)) + Next + + For i = 0 To lbSel.Items.Count - 1 + lbSel.SetSelected(i, True) + Next + + ' Set OK as standard button. + BtnOk.Select() + End Sub + + + End Class + End Namespace \ No newline at end of file diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index f68a552..1da8106 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -37,11 +37,9 @@ Public Class FrmSettings Dim LocalTagCount As Integer - Public WebImage As String - Public WebImageFile As StreamReader Public WebImageLines As New List(Of String) Public WebImageLine As Integer - Public WebImageLineTotal As Integer + ''' Current opened url filepath. Public WebImagePath As String Public ApproveImage As Integer = 0 @@ -412,11 +410,11 @@ Public Class FrmSettings CBAuditStartup.Checked = My.Settings.AuditStartup sadisticCheckBox.Checked = My.Settings.DomSadistic - degradingCheckBox.Checked = My.Settings.DomDegrading - CFNMCheckBox.Checked = My.Settings.DomCFNM - CBRandomDomme.Checked = My.Settings.CBRandomDomme - CBOutputErrors.Checked = My.Settings.CBOutputErrors - giveupCheckBox.Checked = My.Settings.GiveUpReturn + degradingCheckBox.Checked = My.Settings.DomDegrading + CFNMCheckBox.Checked = My.Settings.DomCFNM + CBRandomDomme.Checked = My.Settings.CBRandomDomme + CBOutputErrors.Checked = My.Settings.CBOutputErrors + giveupCheckBox.Checked = My.Settings.GiveUpReturn If CBAuditStartup.Checked = True Then AuditScripts() @@ -450,12 +448,12 @@ Public Class FrmSettings WBPlaylist.Navigate(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\Playlist\Start\") - For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir} - If tmptbx.DataBindings("Text") Is Nothing Then - Throw New Exception("There is no databinding set on """ & tmptbx.Name & - """'s text-property. Set the databinding and recompile!") - End If - Next + For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir} + If tmptbx.DataBindings("Text") Is Nothing Then + Throw New Exception("There is no databinding set on """ & tmptbx.Name & + """'s text-property. Set the databinding and recompile!") + End If + Next For Each tmptbx As CheckBox In New List(Of CheckBox) From {CBGlitter1, CBGlitter2, CBGlitter3} If tmptbx.DataBindings("Checked") Is Nothing Then @@ -464,7 +462,7 @@ Public Class FrmSettings End If Next - TbxRandomImageDir.Text = My.Settings.RandomImageDir + TbxRandomImageDir.Text = My.Settings.RandomImageDir If My.Settings.TeaseAILanguage = "English" Then EnglishMenu() If My.Settings.TeaseAILanguage = "German" Then GermanMenu() @@ -2970,10 +2968,10 @@ SkipDeserializing: If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.RandomImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowContactRandom = New ContactData(ContactType.Random) - TbxRandomImageDir.Text = My.Settings.RandomImageDir - End If - End Sub - + TbxRandomImageDir.Text = My.Settings.RandomImageDir + End If + End Sub + Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles BTNGlitterD.Click If GetColor.ShowDialog() = DialogResult.OK Then LBLGlitterNCDomme.ForeColor = GetColor.Color @@ -3077,25 +3075,25 @@ SkipDeserializing: TTDir.SetToolTip(sender, "This button allows you to change the color of this contact's name as it appears in the Glitter app.") End Sub - Private Sub LBLContact1ImageDir_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover, TbxRandomImageDir.MouseHover - TTDir.SetToolTip(sender, CType(sender, TextBox).Text) - End Sub + Private Sub LBLContact1ImageDir_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover, TbxRandomImageDir.MouseHover + TTDir.SetToolTip(sender, CType(sender, TextBox).Text) + End Sub - Private Sub Button2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover + Private Sub Button2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover - If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & + If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & "set folders of the same model you're using as your contact.") - If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") - End Sub + If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + End Sub - Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover + Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover - If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes. Each model " & Environment.NewLine & + If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes. Each model " & Environment.NewLine & "should have her own directory containing folders of different imagesets.") - If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") - End Sub + If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + End Sub Private Sub BtnContact1ImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDirClear.Click My.Settings.ResetField(TbxContact1ImageDir, "Text") @@ -3459,7 +3457,6 @@ SkipDeserializing: End If End If - End Sub Private Sub BTNWIAddandContinue_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIAddandContinue.Click @@ -3474,133 +3471,21 @@ SkipDeserializing: If BWURLFiles.IsBusy Then BWURLFiles.CancelAsync() End Sub - Private Sub BTNWIRemove_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIRemove.Click - - - WebImageLines.Remove(WebImageLines(WebImageLine)) - - - If WebImageLine = WebImageLines.Count Then WebImageLine = 0 - ' - 'Else - 'WebImageLine += 1 - 'End If - - Try - WebPictureBox.Image.Dispose() - Catch - End Try - - WebPictureBox.Image = Nothing - GC.Collect() - - WebPictureBox.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(WebImageLines(WebImageLine)))) - - Debug.Print(WebImageLines(WebImageLine)) - - My.Computer.FileSystem.DeleteFile(WebImagePath) - - If File.Exists(WebImagePath) Then - Debug.Print("File Exists") - Else - Debug.Print("Nope") - End If - - My.Computer.FileSystem.WriteAllText(WebImagePath, String.Join(Environment.NewLine, WebImageLines), False) - - End Sub - - Private Sub BTNWILiked_Click(sender As System.Object, e As System.EventArgs) Handles BTNWILiked.Click - - - If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & WebImageLines(WebImageLine), True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", WebImageLines(WebImageLine), True) - End If - - - End Sub - - Private Sub BTNWIDisliked_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIDisliked.Click - - If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & WebImageLines(WebImageLine), True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", WebImageLines(WebImageLine), True) - End If - - End Sub - - Private Sub WebPictureBox_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles WebPictureBox.MouseWheel - - Select Case e.Delta - Case -120 'Scrolling down - WebImageLine += 1 - - If WebImageLine > WebImageLineTotal - 1 Then - WebImageLine = WebImageLineTotal - MsgBox("No more images to display!", , "Warning!") - Return - End If - - Try - WebPictureBox.Image.Dispose() - Catch - End Try - WebPictureBox.Image = Nothing - GC.Collect() - - WebPictureBox.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(WebImageLines(WebImageLine)))) - LBLWebImageCount.Text = WebImageLine + 1 & "/" & WebImageLineTotal - Case 120 'Scrolling up - WebImageLine -= 1 - - If WebImageLine < 0 Then - WebImageLine = 0 - MsgBox("No more images to display!", , "Warning!") - Return - End If - - Try - WebPictureBox.Image.Dispose() - Catch - End Try - WebPictureBox.Image = Nothing - GC.Collect() - WebPictureBox.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(WebImageLines(WebImageLine)))) - LBLWebImageCount.Text = WebImageLine + 1 & "/" & WebImageLineTotal - End Select - - - End Sub - - Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebPictureBox.MouseEnter - WebPictureBox.Focus() - End Sub - - - Private Sub Button36_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIOpenURL.Click + Private Sub BtnWiOpenURL_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIOpenURL.Click WebImageFileDialog.InitialDirectory = Application.StartupPath & "\Images\System\URL Files" If (WebImageFileDialog.ShowDialog = Windows.Forms.DialogResult.OK) Then - WebImageFile = New IO.StreamReader(WebImageFileDialog.FileName) - WebImagePath = WebImageFileDialog.FileName - WebImageLines.Clear() - WebImageLine = 0 - WebImageLineTotal = 0 - While WebImageFile.Peek <> -1 - WebImageLineTotal += 1 - WebImageLines.Add(WebImageFile.ReadLine()) - End While + WebImageLines = File.ReadAllLines(WebImageFileDialog.FileName).ToList + + WebImagePath = WebImageFileDialog.FileName Try - WebPictureBox.Image.Dispose() + If WebPictureBox.Image IsNot Nothing Then WebPictureBox.Image.Dispose() Catch End Try WebPictureBox.Image = Nothing @@ -3612,10 +3497,7 @@ SkipDeserializing: MessageBox.Show(Me, "Failed to load URL File image!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try - WebImageFile.Close() - WebImageFile.Dispose() - - LBLWebImageCount.Text = WebImageLine + 1 & "/" & WebImageLineTotal + LBLWebImageCount.Text = WebImageLine + 1 & "/" & WebImageLines.Count BTNWINext.Enabled = True @@ -3625,74 +3507,137 @@ SkipDeserializing: BTNWIDisliked.Enabled = True BTNWISave.Enabled = True - End If - - - - End Sub - - Private Sub Button35_Click_2(sender As System.Object, e As System.EventArgs) Handles BTNWINext.Click + Private Sub BtnWiNavigate_Click(sender As System.Object, e As System.EventArgs) Handles BTNWINext.Click, BTNWIPrevious.Click TryNextImage: + Try + If WebPictureBox.Image IsNot Nothing Then WebPictureBox.Image.Dispose() + Catch + End Try - WebImageLine += 1 + If sender Is BTNWINext Then + ' ---> navigate forward + WebImageLine += 1 + + If WebImageLine > WebImageLines.Count - 1 Then + WebImageLine = WebImageLines.Count - 1 + MsgBox("No more images to display!", , "Warning!") + Return + End If + Else + ' <--- navigate backwards + WebImageLine -= 1 + + If WebImageLine < 0 Then + WebImageLine = 0 + MsgBox("No more images to display!", , "Warning!") + Return + End If - If WebImageLine > WebImageLineTotal - 1 Then - WebImageLine = WebImageLineTotal - MsgBox("No more images to display!", , "Warning!") - Return End If - Try - WebPictureBox.Image.Dispose() - Catch - End Try WebPictureBox.Image = Nothing GC.Collect() Try - WebPictureBox.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(WebImageLines(WebImageLine)))) - LBLWebImageCount.Text = WebImageLine + 1 & "/" & WebImageLineTotal + WebPictureBox.Image = New Bitmap(New MemoryStream(New System.Net.WebClient().DownloadData(WebImageLines(WebImageLine)))) + + LBLWebImageCount.Text = WebImageLine + 1 & "/" & WebImageLines.Count + Catch ex As Net.WebException + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' Webexceptions + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Clipboard.SetText(WebImageLines(WebImageLine)) + If MessageBox.Show("Exception occured while requesting:" & + vbCrLf & WebImageLines(WebImageLine) & + vbCrLf & + vbCrLf & ex.Message & + vbCrLf & + vbCrLf & "The requested url has been copied to clipboard. " & + vbCrLf & "Do you want to remove this url from list?", + "Webexception occured", + MessageBoxButtons.YesNo) = DialogResult.Yes Then + BTNWIRemove.PerformClick() + End If + + GoTo TryNextImage Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ GoTo TryNextImage End Try + End Sub + + Private Sub BtnWiRemove_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIRemove.Click + + Debug.Print(WebImageLines(WebImageLine)) + WebImageLines.Remove(WebImageLines(WebImageLine)) + File.Delete(WebImagePath) + File.WriteAllLines(WebImagePath, WebImageLines) + WebImageLine -= 1 + BTNWINext.PerformClick() End Sub - Private Sub Button18_Click_2(sender As System.Object, e As System.EventArgs) Handles BTNWIPrevious.Click + Private Sub BtnWiLiked_Click(sender As System.Object, e As System.EventArgs) Handles BTNWILiked.Click -trypreviousimage: + Dim FilePath As String = Application.StartupPath & "\Images\System\LikedImageURLs.txt" - WebImageLine -= 1 + If File.Exists(FilePath) Then + File.AppendAllText(FilePath, vbCrLf & WebImageLines(WebImageLine)) + Else + File.WriteAllText(FilePath, WebImageLines(WebImageLine)) + End If - If WebImageLine < 0 Then - WebImageLine = 0 - MsgBox("No more images to display!", , "Warning!") - Return + End Sub + + Private Sub BtnWiDisliked_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIDisliked.Click + + Dim FilePath As String = Application.StartupPath & "\Images\System\DislikedImageURLs.txt" + + If File.Exists(FilePath) Then + File.AppendAllText(FilePath, vbCrLf & WebImageLines(WebImageLine)) + Else + File.WriteAllText(FilePath, WebImageLines(WebImageLine)) End If - Try - WebPictureBox.Image.Dispose() - Catch - End Try + End Sub - WebPictureBox.Image = Nothing - GC.Collect() - Try - WebPictureBox.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(WebImageLines(WebImageLine)))) - LBLWebImageCount.Text = WebImageLine + 1 & "/" & WebImageLineTotal - Catch ex As Exception - GoTo trypreviousimage - End Try + Private Sub WebPictureBox_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles WebPictureBox.MouseWheel + + Select Case e.Delta + Case -120 'Scrolling down -> next image + BTNWINext.PerformClick() + Case 120 'Scrolling up -> prevoius image + BTNWIPrevious.PerformClick() + End Select + + End Sub + + Private Sub WebPictureBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebPictureBox.MouseEnter + WebPictureBox.Focus() + End Sub + + Private Sub LBLWebImageCount_DoubleClick(sender As Object, e As EventArgs) Handles LBLWebImageCount.DoubleClick + Dim TmpInt As Integer + + If Integer.TryParse(InputBox("Enter a number to navigate to:", "Jump to image"), TmpInt) Then + WebImageLine = TmpInt - 2 ' Zero based and navigating forward to display image. + If WebImageLine > WebImageLines.Count Then WebImageLine = WebImageLines.Count - 2 + If WebImageLine < -1 Then WebImageLine = -1 + + BTNWINext.PerformClick() + End If End Sub - Private Sub Button37_Click(sender As System.Object, e As System.EventArgs) Handles BTNWISave.Click + Private Sub BtnWiSave_Click(sender As System.Object, e As System.EventArgs) Handles BTNWISave.Click If WebPictureBox.Image Is Nothing Then MsgBox("Nothing to save!", , "Error!") @@ -3706,8 +3651,7 @@ trypreviousimage: Try - - WebImage = WebImageLines(WebImageLine) + Dim WebImage As String = WebImageLines(WebImageLine) Dim DirSplit As String() = WebImage.Split("/") WebImage = DirSplit(DirSplit.Length - 1) @@ -3803,16 +3747,16 @@ trypreviousimage: __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) If __tmpResult.Cancelled Then - MessageBox.Show(Me, "Refreshing URL-File has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & + MessageBox.Show(Me, "Refreshing URL files has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL files." & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) ElseIf __tmpResult.ErrorText.Capacity > 0 - MessageBox.Show(Me, "URL Files have been refreshed with errors!" & + MessageBox.Show(Me, "URL files have been refreshed with errors!" & vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added." & vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else - MessageBox.Show(Me, "All URL Files have been refreshed!" & + MessageBox.Show(Me, "URL files have been refreshed!" & vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) End If @@ -3839,17 +3783,17 @@ trypreviousimage: __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) If __tmpResult.Cancelled Then - MessageBox.Show(Me, "Rebuilding URL-File has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & + MessageBox.Show(Me, "Rebuilding URL-Files has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) ElseIf __tmpResult.ErrorText.Capacity > 0 - MessageBox.Show(Me, "URL Files have been rebuilded with errors!" & + MessageBox.Show(Me, "URL Files have been rebuild with errors!" & vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total." & vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else - MessageBox.Show(Me, "All URL Files have been rebuilded!" & + MessageBox.Show(Me, "URL files have been rebuild!" & vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) @@ -3947,8 +3891,8 @@ trypreviousimage: Case Else ' ---------------------- Everthing else ------------------------------ ' Refresh Progressbars - WebImageProgressBar.Maximum = e.ImageCountTotal + 1 - WebImageProgressBar.Value = e.ImageCount + WebImageProgressBar.Maximum = e.BlogPageTotal + WebImageProgressBar.Value = e.BlogPage ' Disable Image Approval-UI BTNWIContinue.Enabled = False BTNWIAddandContinue.Enabled = False @@ -3960,8 +3904,8 @@ trypreviousimage: ' Refresh URL-File '=============================================================================== LBLMaintenance.Text = e.InfoText - PBCurrent.Maximum = e.ImageCountTotal - PBCurrent.Value = e.ImageCount + PBCurrent.Maximum = e.BlogPageTotal + PBCurrent.Value = e.BlogPage PBCurrent.Refresh() PBMaintenance.Maximum = e.OverallProgressTotal PBMaintenance.Value = e.OverallProgress @@ -7642,8 +7586,8 @@ checkFolder: My.Settings.DomVulgar = vulgarCheckBox.Checked My.Settings.DomSupremacist = supremacistCheckBox.Checked My.Settings.DomSadistic = sadisticCheckBox.Checked - My.Settings.DomDegrading = degradingCheckBox.Checked - My.Settings.DomCFNM = CFNMCheckBox.Checked + My.Settings.DomDegrading = degradingCheckBox.Checked + My.Settings.DomCFNM = CFNMCheckBox.Checked My.Settings.GiveUpReturn = giveupCheckBox.Checked My.Settings.pnSetting1 = petnameBox1.Text My.Settings.pnSetting2 = petnameBox2.Text @@ -7700,8 +7644,8 @@ checkFolder: vulgarCheckBox.Checked = My.Settings.DomVulgar supremacistCheckBox.Checked = My.Settings.DomSupremacist sadisticCheckBox.Checked = My.Settings.DomSadistic - degradingCheckBox.Checked = My.Settings.DomDegrading - CFNMCheckBox.Checked = My.Settings.DomCFNM + degradingCheckBox.Checked = My.Settings.DomDegrading + CFNMCheckBox.Checked = My.Settings.DomCFNM giveupCheckBox.Checked = My.Settings.GiveUpReturn petnameBox1.Text = My.Settings.pnSetting1 petnameBox2.Text = My.Settings.pnSetting2 @@ -9921,13 +9865,13 @@ checkFolder: My.Settings.DomDegrading = degradingCheckBox.Checked End Sub - Private Sub CFNMCheckBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CFNMCheckBox.LostFocus - My.Settings.DomCFNM = CFNMCheckBox.Checked - End Sub + Private Sub CFNMCheckBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CFNMCheckBox.LostFocus + My.Settings.DomCFNM = CFNMCheckBox.Checked + End Sub - Private Sub CBRandomDomme_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRandomDomme.LostFocus - My.Settings.CBRandomDomme = CBRandomDomme.Checked - End Sub + Private Sub CBRandomDomme_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRandomDomme.LostFocus + My.Settings.CBRandomDomme = CBRandomDomme.Checked + End Sub Private Sub CBWebtease_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBWebtease.CheckedChanged If CBWebtease.Checked = True Then @@ -10301,174 +10245,174 @@ checkFolder: End Sub - - Private Sub BTNValidateSystemFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.Click - Dim ValidateCount As Integer + Private Sub BTNValidateSystemFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.Click - For Each Dir As String In myDirectory.GetDirectories(Application.StartupPath & "\Scripts\") - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\System\System Files\", FileIO.SearchOption.SearchAllSubDirectories, "*.*") - If Not File.Exists(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) Then - If Not System.IO.Directory.Exists(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) Then - System.IO.Directory.CreateDirectory(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) - End If - System.IO.File.Copy(foundFile, Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) - ValidateCount += 1 - End If - Next - Next + Dim ValidateCount As Integer - Dim output As String = "All Personalities have been validated!" & Environment.NewLine & Environment.NewLine & ValidateCount & " System Files were added." - output = output.Replace(Environment.NewLine & "1 System Files were added.", Environment.NewLine & "1 System File was added.") + For Each Dir As String In myDirectory.GetDirectories(Application.StartupPath & "\Scripts\") + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\System\System Files\", FileIO.SearchOption.SearchAllSubDirectories, "*.*") + If Not File.Exists(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) Then + If Not System.IO.Directory.Exists(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) Then + System.IO.Directory.CreateDirectory(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) + End If + System.IO.File.Copy(foundFile, Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) + ValidateCount += 1 + End If + Next + Next - MessageBox.Show(output, "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + Dim output As String = "All Personalities have been validated!" & Environment.NewLine & Environment.NewLine & ValidateCount & " System Files were added." + output = output.Replace(Environment.NewLine & "1 System Files were added.", Environment.NewLine & "1 System File was added.") - End Sub + MessageBox.Show(output, "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Sub - Private Sub BTNValidateSystemFiles_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.MouseHover - TTDir.SetToolTip(BTNValidateSystemFiles, "Searches each installed Personality and automatically" & Environment.NewLine & "creates any missing System Files in the correct folders.") + Private Sub BTNValidateSystemFiles_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.MouseHover - End Sub + TTDir.SetToolTip(BTNValidateSystemFiles, "Searches each installed Personality and automatically" & Environment.NewLine & "creates any missing System Files in the correct folders.") - Private Sub BTNDomChangeDomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeDomme.Click - Ssh.glitterDommeNumber = 0 - Form1.LoadDommeImageFolder() - End Sub + End Sub - Private Sub BTNDomChangeRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeRandom.Click - Ssh.glitterDommeNumber = 4 - Form1.LoadDommeImageFolder() - End Sub + Private Sub BTNDomChangeDomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeDomme.Click + Ssh.glitterDommeNumber = 0 + Form1.LoadDommeImageFolder() + End Sub - Private Sub BTNDomChangeContact1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact1.Click - Ssh.glitterDommeNumber = 1 - Form1.LoadDommeImageFolder() - End Sub - - Private Sub BTNDomChangeContact2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact2.Click - Ssh.glitterDommeNumber = 2 - Form1.LoadDommeImageFolder() - End Sub - - Private Sub BTNDomChangeContact3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact3.Click - Ssh.glitterDommeNumber = 3 - Form1.LoadDommeImageFolder() - End Sub - - Private Sub CBOutputErrors_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOutputErrors.LostFocus - My.Settings.CBOutputErrors = CBOutputErrors.Checked - End Sub - - Private Sub BTNURLFileReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFileReplace.Click - - If TBURLFileReplace.Text = "" Or TBURLFileWith.Text = "" Then - MessageBox.Show("Please enter the text to be replaced!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Exit Sub - End If - - Dim ReplaceCount As Integer = 0 - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\URL Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - - - Dim CheckFiles As String() = File.ReadAllLines(foundFile) - - Dim GoodLines As New List(Of String) - - For Each line As String In CheckFiles - If line.Contains(TBURLFileReplace.Text & ".media") Then - line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") - ReplaceCount += 1 - GoodLines.Add(line) - Else - GoodLines.Add(line) - End If - Next - - Dim fs As New FileStream(foundFile, FileMode.Create) - Dim sw As New StreamWriter(fs) - - - For i As Integer = 0 To GoodLines.Count - 1 - If i <> GoodLines.Count - 1 Then - sw.WriteLine(GoodLines(i)) - Else - sw.Write(GoodLines(i)) - End If - Next - - sw.Close() - sw.Dispose() - - fs.Close() - fs.Dispose() - - - Next - - - If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then - Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\LikedImageURLs.txt") - Dim GoodLines As New List(Of String) - For Each line As String In CheckFiles - If line.Contains(TBURLFileReplace.Text & ".media") Then - line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") - ReplaceCount += 1 - GoodLines.Add(line) - Else - GoodLines.Add(line) - End If - Next - Dim fs As New FileStream(Application.StartupPath & "\Images\System\LikedImageURLs.txt", FileMode.Create) - Dim sw As New StreamWriter(fs) - For i As Integer = 0 To GoodLines.Count - 1 - If i <> GoodLines.Count - 1 Then - sw.WriteLine(GoodLines(i)) - Else - sw.Write(GoodLines(i)) - End If - Next - sw.Close() - sw.Dispose() - fs.Close() - fs.Dispose() - End If - - If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then - Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") - Dim GoodLines As New List(Of String) - For Each line As String In CheckFiles - If line.Contains(TBURLFileReplace.Text & ".media") Then - line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") - ReplaceCount += 1 - GoodLines.Add(line) - Else - GoodLines.Add(line) - End If - Next - Dim fs As New FileStream(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", FileMode.Create) - Dim sw As New StreamWriter(fs) - For i As Integer = 0 To GoodLines.Count - 1 - If i <> GoodLines.Count - 1 Then - sw.WriteLine(GoodLines(i)) - Else - sw.Write(GoodLines(i)) - End If - Next - sw.Close() - sw.Dispose() - fs.Close() - fs.Dispose() - End If - - - - - MessageBox.Show("All URL File servers have been successfully replaced!" & Environment.NewLine & Environment.NewLine & ReplaceCount & " image locations have been changed.", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) - - - - End Sub + Private Sub BTNDomChangeRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeRandom.Click + Ssh.glitterDommeNumber = 4 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact1.Click + Ssh.glitterDommeNumber = 1 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact2.Click + Ssh.glitterDommeNumber = 2 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact3.Click + Ssh.glitterDommeNumber = 3 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub CBOutputErrors_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOutputErrors.LostFocus + My.Settings.CBOutputErrors = CBOutputErrors.Checked + End Sub + + Private Sub BTNURLFileReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFileReplace.Click + + If TBURLFileReplace.Text = "" Or TBURLFileWith.Text = "" Then + MessageBox.Show("Please enter the text to be replaced!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Exit Sub + End If + + Dim ReplaceCount As Integer = 0 + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\URL Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + + + Dim CheckFiles As String() = File.ReadAllLines(foundFile) + + Dim GoodLines As New List(Of String) + + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + + Dim fs As New FileStream(foundFile, FileMode.Create) + Dim sw As New StreamWriter(fs) + + + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + + sw.Close() + sw.Dispose() + + fs.Close() + fs.Dispose() + + + Next + + + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\LikedImageURLs.txt") + Dim GoodLines As New List(Of String) + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + Dim fs As New FileStream(Application.StartupPath & "\Images\System\LikedImageURLs.txt", FileMode.Create) + Dim sw As New StreamWriter(fs) + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + sw.Close() + sw.Dispose() + fs.Close() + fs.Dispose() + End If + + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") + Dim GoodLines As New List(Of String) + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + Dim fs As New FileStream(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", FileMode.Create) + Dim sw As New StreamWriter(fs) + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + sw.Close() + sw.Dispose() + fs.Close() + fs.Dispose() + End If + + + + + MessageBox.Show("All URL File servers have been successfully replaced!" & Environment.NewLine & Environment.NewLine & ReplaceCount & " image locations have been changed.", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) + + + + End Sub End Class \ No newline at end of file From b436db2d0d56b29a806c42f01cb3ef924ef7bd2e Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sat, 15 Apr 2017 22:33:43 +0200 Subject: [PATCH 072/143] -removed all the code dealing with miniscript since they are not used anymore -@custommode() can now work with #Vocabs to determine which words/phrases trigger them (they will use all lines in a #Vocab as correct choices) -when doing random or glittermode sessions, the avatar and the name of the domme in the main window will change to reflect it (it will look for an "avatar" image first, if it doesn't find it it will get a random image from the currently used folder for the domme) --- Tease AI/Classes/State.vb | 8 - Tease AI/Form1.vb | 901 +++++++++++++++++--------------------- 2 files changed, 392 insertions(+), 517 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index d00774f..6f8ab1c 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -519,14 +519,6 @@ Public Class SessionState Public LongTaunts As Boolean Public ExtremeTaunts As Boolean - - - Public Property MiniScript As Boolean = False - Public Property MiniScriptText As String - Public Property MiniTauntVal As Integer - Public Property MiniTimerCheck As Boolean - - Public Property EdgeGoto As Boolean = False Public Property EdgeMessage As Boolean = False Public Property EdgeVideo As Boolean = False diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index be36ff9..8d4f7fe 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -29,7 +29,7 @@ Public Class Form1 ' Github Patch Public FormLoading As Boolean Friend FormLoading As Boolean = True Dim FormFinishedLoading As Boolean = False - + Public customVocabLines As List(Of String) Dim sshSyncLock As New Object ''' ''' Shorthand Property to access My.Application.Session @@ -396,7 +396,7 @@ retryStart: FrmSplash.LBLSplash.Text = "Loading Domme and Sub avatar images..." FrmSplash.Refresh() - If File.Exists(My.Settings.DomAvatarSave) Then domAvatar.Image = Image.FromFile(My.Settings.DomAvatarSave) + 'If File.Exists(My.Settings.DomAvatarSave) Then domAvatar.Image = Image.FromFile(My.Settings.DomAvatarSave) 'If File.Exists(My.Settings.SubAvatarSave) Then subAvatar.Image = Image.FromFile(My.Settings.SubAvatarSave) @@ -3527,23 +3527,13 @@ NullSkip: Dim dir As String - If ssh.MiniScript = True Then - dir = ssh.MiniScriptText - Else - dir = ssh.FileText - End If - + dir = ssh.FileText ' Read all lines of File Dim lines As List(Of String) = Txt2List(dir) Dim line As Integer - If ssh.MiniScript = True Then - line = ssh.MiniTauntVal - Else - line = ssh.StrokeTauntVal - End If - + line = ssh.StrokeTauntVal Dim TempLineVal As Integer Do @@ -3552,12 +3542,7 @@ NullSkip: TempLineVal = line - - If ssh.MiniScript = True Then - line = ssh.MiniTauntVal - Else - line = ssh.StrokeTauntVal - End If + line = ssh.StrokeTauntVal Dim CheckLines As String Dim ChatReplace As String @@ -3613,12 +3598,7 @@ FoundAnswer: ssh.foundAnswer = True - - If ssh.MiniScript = True Then - If ssh.GotoFlag = False Then ssh.MiniTauntVal = TempLineVal - Else - If ssh.GotoFlag = False Then ssh.StrokeTauntVal = TempLineVal - End If + If ssh.GotoFlag = False Then ssh.StrokeTauntVal = TempLineVal TypingDelay() @@ -3656,16 +3636,7 @@ AcceptAnswer: YesOrNoLanguageCheck() - If ssh.GotoFlag = False Then - - - If ssh.MiniScript = True Then - ssh.MiniTauntVal = TempLineVal - Else - ssh.StrokeTauntVal = TempLineVal - End If - - End If + If ssh.GotoFlag = False Then ssh.StrokeTauntVal = TempLineVal TypingDelay() Return End If @@ -3708,11 +3679,7 @@ AcceptAnswer: Dim GotoText As String - If ssh.MiniScript = True Then - GotoText = ssh.MiniScriptText - Else - GotoText = ssh.FileText - End If + GotoText = ssh.FileText If File.Exists(GotoText) Then ' Read all lines of File @@ -3728,13 +3695,7 @@ AcceptAnswer: gotoline += 1 Loop Until gotolines(gotoline).StartsWith(ssh.FileGoto) - Catch ex As ArgumentOutOfRangeException When ssh.MiniScript = True - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' ArgumentOutOfRangeException - Miniscript - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Throw New ArgumentOutOfRangeException("The Miniscript-Goto-Destination """ & ssh.FileGoto & - """ in file """ & GotoText & """ was not found.", ex) - Catch ex As ArgumentOutOfRangeException When ssh.MiniScript = False + Catch ex As ArgumentOutOfRangeException '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' ArgumentOutOfRangeException - Regular Script '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ @@ -3742,12 +3703,7 @@ AcceptAnswer: """ in file """ & GotoText & """ was not found.", ex) End Try - - If ssh.MiniScript = True Then - ssh.MiniTauntVal = gotoline - Else - ssh.StrokeTauntVal = gotoline - End If + ssh.StrokeTauntVal = gotoline Else Throw New FileNotFoundException("The Goto-File """ & GotoText & """ was not found.") @@ -3946,8 +3902,6 @@ AcceptAnswer: If ssh.InputFlag = True Then Return - If ssh.MiniScript = True Then GoTo ReturnCalled - If ssh.CensorshipGame = True Or ssh.RLGLGame = True Or ssh.AvoidTheEdgeStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then Return If ssh.MultipleEdges = True Then Return @@ -3958,72 +3912,35 @@ ReturnCalled: Dim lines As New List(Of String) - If ssh.MiniScript = True Then - ssh.MiniTauntVal += 1 - lines = Txt2List(ssh.MiniScriptText) - Try - If ssh.MiniTauntVal < lines.Count Then - If lines(ssh.MiniTauntVal).Substring(0, 1) = "(" Then - Do - ssh.MiniTauntVal += 1 - Loop Until lines(ssh.MiniTauntVal).Substring(0, 1) <> "(" - End If - End If - Catch - End Try - - Else - ssh.StrokeTauntVal += 1 - lines = Txt2List(ssh.FileText) - Try - If ssh.StrokeTauntVal < lines.Count - 1 Then - If lines(ssh.StrokeTauntVal).Substring(0, 1) = "(" Then - Do - ssh.StrokeTauntVal += 1 - Loop Until lines(ssh.StrokeTauntVal).Substring(0, 1) <> "(" - End If + ssh.StrokeTauntVal += 1 + lines = Txt2List(ssh.FileText) + Try + If ssh.StrokeTauntVal < lines.Count - 1 Then + If lines(ssh.StrokeTauntVal).Substring(0, 1) = "(" Then + Do + ssh.StrokeTauntVal += 1 + Loop Until lines(ssh.StrokeTauntVal).Substring(0, 1) <> "(" End If - Catch - End Try - - End If - - - - + End If + Catch + End Try Try If ssh.RunningScript = False And ssh.AvoidTheEdgeGame = False And ssh.CallReturns.Count() = 0 Then Debug.Print("End Check StrokeTauntVal = " & ssh.StrokeTauntVal) - - If ssh.MiniScript = True Then - If lines(ssh.MiniTauntVal) = "@End" Or ssh.MiniTauntVal >= lines.Count Then - ssh.MiniScript = False - If ssh.MiniTimerCheck = True Then - ssh.ScriptTick = 3 - ScriptTimer.Start() + 'end the scripts anyway if it reaches the last line, even if the user forgot to use the @End command + If lines(ssh.StrokeTauntVal) = "@End" Or ssh.StrokeTauntVal >= lines.Count Then + If ssh.CallReturns.Count = 0 Then If ssh.ShowModule = False Then ssh.ModuleEnd = True + 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt + 'it will automatically do it to avoid session errors + If (ssh.isLink Or ssh.BeforeTease) And ssh.SubStroking = False Then + ssh.isLink = False + If My.Settings.Chastity Then + ssh.DomChat = "@NullResponse @StartTaunts" Else - ScriptTimer.Stop() - End If - Return - End If - Else - 'end the scripts anyway if it reaches the last line, even if the user forgot to use the @End command - If lines(ssh.StrokeTauntVal) = "@End" Or ssh.StrokeTauntVal >= lines.Count Then - If ssh.CallReturns.Count = 0 Then - If ssh.ShowModule = True Then ssh.ModuleEnd = True - End If - 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt - 'it will automatically do it to avoid session errors - If (ssh.isLink Or ssh.BeforeTease) And ssh.SubStroking = False Then - ssh.isLink = False - If My.Settings.Chastity Then - ssh.DomChat = "@NullResponse @StartTaunts" - Else - ssh.DomChat = "@NullResponse @StartStroking" - TypingDelay() - End If + ssh.DomChat = "@NullResponse @StartStroking" + TypingDelay() End If End If End If @@ -4031,20 +3948,6 @@ ReturnCalled: Catch End Try - - 'If ShowThought = True Or ShowEdgeThought = True Then - 'ThoughtTauntVal += 1 - 'ScriptLineVal = ThoughtTauntVal - 'Else - 'If ShowModule = True Then - ' ModuleTauntVal += 1 - 'ScriptLineVal = ModuleTauntVal - 'Else - 'StrokeTauntVal += 1 - 'ScriptLineVal = StrokeTauntVal - 'End If - 'End If - HandleScripts() End Sub @@ -4052,27 +3955,6 @@ ReturnCalled: Debug.Print("Handlescripts Called") - ' If ThoughtEnd = True Then - 'ScriptTimer.Stop() - 'ThoughtEnd = False - 'ShowThought = False - 'ShowEdgeThought = False - - 'DelayFlag = True - 'DelayTick = randomizer.Next(30, 180) - - 'DelayTimer.Start() - - 'Do - 'Application.DoEvents() - 'Loop Until DelayFlag = False - - 'StartStroking() - 'Return - 'End If - - ' ### DebugPrivate Sub checkForPunish() - ModuleEnd: If ssh.ModuleEnd = True And ssh.AvoidTheEdgeGame = False Then @@ -4110,7 +3992,7 @@ ModuleEnd: Return End If - If StrokeTimer.Enabled = True And ssh.MiniScript = False Then Return + If StrokeTimer.Enabled = True Then Return 'If ShowThought = False And ShowEdgeThought = False And ShowModule = False Then HandleScriptText = FileText 'If ShowThought = True Then HandleScriptText = (Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Thoughts\Thoughts.txt") @@ -4123,11 +4005,8 @@ ModuleEnd: Dim CheckText As String - If ssh.MiniScript = True Then - CheckText = ssh.MiniScriptText - Else - CheckText = ssh.FileText - End If + + CheckText = ssh.FileText 'If File.Exists(HandleScriptText) Then If File.Exists(CheckText) Then @@ -4136,13 +4015,8 @@ ModuleEnd: Dim lines As List(Of String) = Txt2List(CheckText) Dim line As Integer - 'line = ScriptLineVal - If ssh.MiniScript = True Then - line = ssh.MiniTauntVal - Else - line = ssh.StrokeTauntVal - End If + line = ssh.StrokeTauntVal If line = lines.Count Then If ssh.ShowModule = True Then @@ -4153,7 +4027,7 @@ ModuleEnd: End If End If - Debug.Print("CHeck") + Debug.Print("CHeck") If GetFilter(lines(line), True) = False Then RunFileText() @@ -4207,307 +4081,307 @@ NonModuleEnd: If line < lines.Count - 1 Then - If lines(line + 1).Substring(0, 1) = "[" Then - ssh.YesOrNo = True - ScriptTimer.Stop() + If lines(line + 1).Substring(0, 1) = "[" Then + ssh.YesOrNo = True + ScriptTimer.Stop() + End If End If - End If - Debug.Print("CHeck") + Debug.Print("CHeck") - ssh.DomTask = (lines(line).Trim) + ssh.DomTask = (lines(line).Trim) - ssh.StringLength = 1 + ssh.StringLength = 1 - ssh.DomTask = ssh.DomTask.Replace("#SubName", subName.Text) + ssh.DomTask = ssh.DomTask.Replace("#SubName", subName.Text) - ssh.DomTask = ssh.DomTask.Replace("#VTLength", ssh.VTLength / 60) + ssh.DomTask = ssh.DomTask.Replace("#VTLength", ssh.VTLength / 60) - If InStr(ssh.DomTask, "@CockSizeSmall") <> 0 Then ssh.DivideText = True + If InStr(ssh.DomTask, "@CockSizeSmall") <> 0 Then ssh.DivideText = True - 'QUESTION: What is this Code doing here? Shouldn't it be in CommandClean? - If ssh.DomTask.Contains("@SearchImageBlogAgain") Then + 'QUESTION: What is this Code doing here? Shouldn't it be in CommandClean? + If ssh.DomTask.Contains("@SearchImageBlogAgain") Then - ShowImage(GetRandomImage(ImageGenre.Blog), False) + ShowImage(GetRandomImage(ImageGenre.Blog), False) - End If + End If - If ssh.DomTask.Contains("@SearchImageBlog") And Not ssh.DomTask.Contains("@SearchImageBlogAgain") Then + If ssh.DomTask.Contains("@SearchImageBlog") And Not ssh.DomTask.Contains("@SearchImageBlogAgain") Then - ShowImage(GetRandomImage(ImageGenre.Blog), False) + ShowImage(GetRandomImage(ImageGenre.Blog), False) - End If + End If - 'If InStr(UCase(DomTask), UCase("@Goto")) <> 0 And InStr(UCase(DomTask), UCase("@GotoDommeLevel")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeOrgasm")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeRuin")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeApathy")) = 0 And InStr(UCase(DomTask), UCase("@GotoSlideshow")) = 0 Then - If ssh.DomTask.Contains("@Goto(") Then - GetGoto() - End If + 'If InStr(UCase(DomTask), UCase("@Goto")) <> 0 And InStr(UCase(DomTask), UCase("@GotoDommeLevel")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeOrgasm")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeRuin")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeApathy")) = 0 And InStr(UCase(DomTask), UCase("@GotoSlideshow")) = 0 Then + If ssh.DomTask.Contains("@Goto(") Then + GetGoto() + End If - 'If DomTask.Contains("@Chance") Then + 'If DomTask.Contains("@Chance") Then - 'Dim ChanceTemp As String - 'Dim TSStartIndex As Integer - 'Dim TSEndIndex As Integer + 'Dim ChanceTemp As String + 'Dim TSStartIndex As Integer + 'Dim TSEndIndex As Integer - 'TSStartIndex = DomTask.IndexOf("@Chance") + 7 - 'TSEndIndex = DomTask.IndexOf("@Chance") + 9 + 'TSStartIndex = DomTask.IndexOf("@Chance") + 7 + 'TSEndIndex = DomTask.IndexOf("@Chance") + 9 - 'ChanceTemp = DomTask.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + 'ChanceTemp = DomTask.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - ' Dim ChanceVal As Integer + ' Dim ChanceVal As Integer - ' ChanceVal = Val(ChanceTemp) + ' ChanceVal = Val(ChanceTemp) - ' 'Debug.Print("Check Substring " & ChanceTemp & " , " & ChanceVal) - ' 'Debug.Print("Check Substring " & DomTask.Substring("@Chance", 2)) + ' 'Debug.Print("Check Substring " & ChanceTemp & " , " & ChanceVal) + ' 'Debug.Print("Check Substring " & DomTask.Substring("@Chance", 2)) - ' TempVal = randomizer.Next(1, 101) + ' TempVal = randomizer.Next(1, 101) - Debug.Print("TempVal = " & ssh.TempVal) - 'Debug.Print("ChanceVal = " & ChanceVal) + Debug.Print("TempVal = " & ssh.TempVal) + 'Debug.Print("ChanceVal = " & ChanceVal) - 'If TempVal <= ChanceVal Then + 'If TempVal <= ChanceVal Then - ''Debug.Print("Goto should be called") + ''Debug.Print("Goto should be called") - 'GetGoto() + 'GetGoto() - 'End If + 'End If - ' 'Debug.Print("ChanceTemp DomTask = " & DomTask) + ' 'Debug.Print("ChanceTemp DomTask = " & DomTask) - 'DomTask = DomTask.Replace("@Chance" & ChanceTemp, "") + 'DomTask = DomTask.Replace("@Chance" & ChanceTemp, "") - 'End If + 'End If - ' If DomTask.Contains("@CheckFlag") Then + ' If DomTask.Contains("@CheckFlag") Then - ''Debug.Print("CheckFlagcalled") + ''Debug.Print("CheckFlagcalled") - 'Dim CheckFlag As String = DomTask + 'Dim CheckFlag As String = DomTask - 'CheckFlag = DomTask.Split("@CheckFlag(")(1) - 'CheckFlag = CheckFlag.Split(")")(0) - 'CheckFlag = CheckFlag.Replace("CheckFlag(", "") + 'CheckFlag = DomTask.Split("@CheckFlag(")(1) + 'CheckFlag = CheckFlag.Split(")")(0) + 'CheckFlag = CheckFlag.Replace("CheckFlag(", "") - 'If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Flags\" & CheckFlag & ".txt") Then - ''Debug.Print("CheckFlag = " & CheckFlag) - 'SkipGotoLine = True - 'FileGoto = CheckFlag - 'GetGoto() - 'End If + 'If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Flags\" & CheckFlag & ".txt") Then + ''Debug.Print("CheckFlag = " & CheckFlag) + 'SkipGotoLine = True + 'FileGoto = CheckFlag + 'GetGoto() + 'End If - ' DomTask = DomTask.Replace("@CheckFlag", "") + ' DomTask = DomTask.Replace("@CheckFlag", "") - 'End If + 'End If - 'If DomTask.Contains("@GotoDommeLevel") Then + 'If DomTask.Contains("@GotoDommeLevel") Then - 'GotoDommeLevel = True + 'GotoDommeLevel = True - 'Dim GotoDommeLevelString As String + 'Dim GotoDommeLevelString As String - 'GotoDommeLevelString = DomTask.Split("@GotoDommeLevel(")(1) - 'GotoDommeLevelString = GotoDommeLevelString.Split(")")(0) - 'GotoDommeLevelString = GotoDommeLevelString.Replace("GotoDommeLevel(", "") + 'GotoDommeLevelString = DomTask.Split("@GotoDommeLevel(")(1) + 'GotoDommeLevelString = GotoDommeLevelString.Split(")")(0) + 'GotoDommeLevelString = GotoDommeLevelString.Replace("GotoDommeLevel(", "") - 'FileGoto = "DommeLevel" & GotoDommeLevelString & FrmSettings.domlevelNumBox.Value + 'FileGoto = "DommeLevel" & GotoDommeLevelString & FrmSettings.domlevelNumBox.Value - 'Debug.Print("GotoDommeLebel FileGoto = " & FileGoto) + 'Debug.Print("GotoDommeLebel FileGoto = " & FileGoto) - 'DomTask = DomTask.Replace("GotoDommeLevel(" & GotoDommeLevelString & ")", "") + 'DomTask = DomTask.Replace("GotoDommeLevel(" & GotoDommeLevelString & ")", "") - 'GetGoto() + 'GetGoto() - 'End If + 'End If - ' If DomTask.Contains("@VTLength") Then + ' If DomTask.Contains("@VTLength") Then - 'SkipGotoLine = True + 'SkipGotoLine = True - 'If FrmSettings.ComboBoxVTLength.Text = "Never" Then FileGoto = "VTLengthNo" + 'If FrmSettings.ComboBoxVTLength.Text = "Never" Then FileGoto = "VTLengthNo" - 'If FrmSettings.ComboBoxVTLength.Text = "Always" Then FileGoto = "VTLengthYes" + 'If FrmSettings.ComboBoxVTLength.Text = "Always" Then FileGoto = "VTLengthYes" - 'If FrmSettings.ComboBoxVTLength.Text = "Sometimes" Then + 'If FrmSettings.ComboBoxVTLength.Text = "Sometimes" Then - 'TempVal = randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value + 'TempVal = randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value - ' 5, 20 10, 40 15, 60 20, 80 25, 100 - 'If TempVal < 10 * FrmSettings.domlevelNumBox.Value Then - 'FileGoto = "VTLengthYes" - 'Else - ' FileGoto = "VTLengthNo" - ' End If + ' 5, 20 10, 40 15, 60 20, 80 25, 100 + 'If TempVal < 10 * FrmSettings.domlevelNumBox.Value Then + 'FileGoto = "VTLengthYes" + 'Else + ' FileGoto = "VTLengthNo" + ' End If - 'End If + 'End If - 'Debug.Print("VTLength = " & FileGoto) + 'Debug.Print("VTLength = " & FileGoto) - 'DomTask = DomTask.Replace("@VTLength", "") + 'DomTask = DomTask.Replace("@VTLength", "") - 'GetGoto() + 'GetGoto() - 'End If + 'End If - ' If DomTask.Contains("@Module") Then - 'ShowModule = True - 'ScriptCount = 0 - 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ' ScriptCount += 1 - 'Next - 'TempVal = randomizer.Next(1, ScriptCount + 1) - 'ScriptCount = 0 - 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'ScriptCount += 1 - 'If TempVal = ScriptCount Then ModText = foundFile - 'Next - 'DomTask = DomTask.Replace("@Module", "") - 'ModuleTauntVal = -1 - 'End If + ' If DomTask.Contains("@Module") Then + 'ShowModule = True + 'ScriptCount = 0 + 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ' ScriptCount += 1 + 'Next + 'TempVal = randomizer.Next(1, ScriptCount + 1) + 'ScriptCount = 0 + 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'ScriptCount += 1 + 'If TempVal = ScriptCount Then ModText = foundFile + 'Next + 'DomTask = DomTask.Replace("@Module", "") + 'ModuleTauntVal = -1 + 'End If - 'Debug.Print("GotoFLag = " & GotoFlag) + 'Debug.Print("GotoFLag = " & GotoFlag) - 'If DomTask.Contains("@PlayVideoTeaseCensorshipSucks") Then - 'ScriptVideoTease = "Censorship Sucks" - 'ScriptVideoTeaseFlag = True - ' RandomVideo() - 'DomTask = DomTask.Replace("@PlayVideoTeaseCensorshipSucks", "") - ' End If + 'If DomTask.Contains("@PlayVideoTeaseCensorshipSucks") Then + 'ScriptVideoTease = "Censorship Sucks" + 'ScriptVideoTeaseFlag = True + ' RandomVideo() + 'DomTask = DomTask.Replace("@PlayVideoTeaseCensorshipSucks", "") + ' End If - 'If DomTask.Contains("@PauseAvoidTheEdge") Then - 'domVLC.playlist.pause() - 'AvoidTheEdgeTick = 120 / TauntSlider.Value - 'AvoidTheEdgeStroking = False - 'DomTask = DomTask.Replace("@PauseAvoidTheEdge", "") - 'End If + 'If DomTask.Contains("@PauseAvoidTheEdge") Then + 'domVLC.playlist.pause() + 'AvoidTheEdgeTick = 120 / TauntSlider.Value + 'AvoidTheEdgeStroking = False + 'DomTask = DomTask.Replace("@PauseAvoidTheEdge", "") + 'End If - ' If DomChat.Contains("@PauseAvoidTheEdge") Then - 'domVLC.playlist.pause() - 'AvoidTheEdgeTick = 120 / TauntSlider.Value - 'AvoidTheEdgeStroking = False - 'DomChat = DomChat.Replace("@PauseAvoidTheEdge", "") - 'End If + ' If DomChat.Contains("@PauseAvoidTheEdge") Then + 'domVLC.playlist.pause() + 'AvoidTheEdgeTick = 120 / TauntSlider.Value + 'AvoidTheEdgeStroking = False + 'DomChat = DomChat.Replace("@PauseAvoidTheEdge", "") + 'End If - ' If DomTask.Contains("@PauseAvoidTheEdgeNoTaunts") Then - 'AvoidTheEdge.Stop() - 'DomTask = DomTask.Replace("@PauseAvoidTheEdgeNoTaunts", "") - 'End If + ' If DomTask.Contains("@PauseAvoidTheEdgeNoTaunts") Then + 'AvoidTheEdge.Stop() + 'DomTask = DomTask.Replace("@PauseAvoidTheEdgeNoTaunts", "") + 'End If - 'If DomTask.Contains("@CountdownAvoidTheEdge") Then - 'ScriptTimer.Stop() - 'AtECountdown = randomizer.Next(FrmSettings.NBAvoidTheEdgeMin.Value, FrmSettings.NBAvoidTheEdgeMax.Value + 1) - 'DomTask = DomTask.Replace("@CountdownAvoidTheEdge", "") - 'AvoidTheEdgeResume.Start() - 'End If + 'If DomTask.Contains("@CountdownAvoidTheEdge") Then + 'ScriptTimer.Stop() + 'AtECountdown = randomizer.Next(FrmSettings.NBAvoidTheEdgeMin.Value, FrmSettings.NBAvoidTheEdgeMax.Value + 1) + 'DomTask = DomTask.Replace("@CountdownAvoidTheEdge", "") + 'AvoidTheEdgeResume.Start() + 'End If - ' If DomTask.Contains("@ResumeAvoidTheEdge") Then - 'DomTask = DomTask.Replace("@ResumeAvoidTheEdge", "") - 'FileGoto = "AvoidTheEdgeBegin" - 'SkipGotoLine = True - 'GetGoto() - 'domVLC.playlist.play() - 'End If + ' If DomTask.Contains("@ResumeAvoidTheEdge") Then + 'DomTask = DomTask.Replace("@ResumeAvoidTheEdge", "") + 'FileGoto = "AvoidTheEdgeBegin" + 'SkipGotoLine = True + 'GetGoto() + 'domVLC.playlist.play() + 'End If - 'If DomTask.Contains("@EmbedImage") Then + 'If DomTask.Contains("@EmbedImage") Then - 'Dim EmbedImageFile As New StreamReader(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\ImageURLs.txt") - 'Dim ImageLines As New List(Of String) - 'Dim ImageLine As Integer + 'Dim EmbedImageFile As New StreamReader(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\ImageURLs.txt") + 'Dim ImageLines As New List(Of String) + 'Dim ImageLine As Integer - 'ImageLine = -1 + 'ImageLine = -1 - 'While EmbedImageFile.Peek <> -1 - ' ImageLine += 1 - ' ImageLines.Add(EmbedImageFile.ReadLine()) - 'End While - ''Debug.Print("ImageLine = " & ImageLine) - 'TempVal = randomizer.Next(0, ImageLine + 1) - ''Debug.Print("TempVal = " & TempVal) + 'While EmbedImageFile.Peek <> -1 + ' ImageLine += 1 + ' ImageLines.Add(EmbedImageFile.ReadLine()) + 'End While + ''Debug.Print("ImageLine = " & ImageLine) + 'TempVal = randomizer.Next(0, ImageLine + 1) + ''Debug.Print("TempVal = " & TempVal) - 'subAvatar.Load(ImageLines(TempVal)) + 'subAvatar.Load(ImageLines(TempVal)) - 'Dim EmbedImageDoc As New XmlDocument() + 'Dim EmbedImageDoc As New XmlDocument() - 'EmbedImageDoc.Load("http://justblowjobgifs.tumblr.com/api/read") + 'EmbedImageDoc.Load("http://justblowjobgifs.tumblr.com/api/read") - 'EmbedImageDoc.Save("G:\Temp\EmbedImage.xml") + 'EmbedImageDoc.Save("G:\Temp\EmbedImage.xml") - ' For Each XmlAttribute As XElement In EmbedImageDoc + ' For Each XmlAttribute As XElement In EmbedImageDoc - 'If XmlAttribute.Attribute("type") = "photo" Then - 'MsgBox(XmlAttribute.Elements("photo-url").Value) - 'End If + 'If XmlAttribute.Attribute("type") = "photo" Then + 'MsgBox(XmlAttribute.Elements("photo-url").Value) + 'End If - ' Next + ' Next - 'RunFileText() - 'Return - 'End If + 'RunFileText() + 'Return + 'End If - If ssh.DomTask.Contains("@ShowTaggedImage") Then ssh.JustShowedBlogImage = True + If ssh.DomTask.Contains("@ShowTaggedImage") Then ssh.JustShowedBlogImage = True - If ssh.DomTask.Contains("@NullResponse") Then ssh.NullResponse = True + If ssh.DomTask.Contains("@NullResponse") Then ssh.NullResponse = True - If ssh.HypnoGen = True Then + If ssh.HypnoGen = True Then - If CBHypnoGenSlideshow.Checked = True Then + If CBHypnoGenSlideshow.Checked = True Then - If LBHypnoGenSlideshow.SelectedItem = "Boobs" Then ssh.DomTask = ssh.DomTask & " @ShowBoobsImage" - If LBHypnoGenSlideshow.SelectedItem = "Butts" Then ssh.DomTask = ssh.DomTask & " @ShowButtImage" - If LBHypnoGenSlideshow.SelectedItem = "Hardcore" Then ssh.DomTask = ssh.DomTask & " @ShowHardcoreImage" - If LBHypnoGenSlideshow.SelectedItem = "Softcore" Then ssh.DomTask = ssh.DomTask & " @ShowSoftcoreImage" - If LBHypnoGenSlideshow.SelectedItem = "Lesbian" Then ssh.DomTask = ssh.DomTask & " @ShowLesbianImage" - If LBHypnoGenSlideshow.SelectedItem = "Blowjob" Then ssh.DomTask = ssh.DomTask & " @ShowBlowjobImage" - If LBHypnoGenSlideshow.SelectedItem = "Femdom" Then ssh.DomTask = ssh.DomTask & " @ShowFemdomImage" - If LBHypnoGenSlideshow.SelectedItem = "Lezdom" Then ssh.DomTask = ssh.DomTask & " @ShowLezdomImage" - If LBHypnoGenSlideshow.SelectedItem = "Hentai" Then ssh.DomTask = ssh.DomTask & " @ShowHentaiImage" - If LBHypnoGenSlideshow.SelectedItem = "Gay" Then ssh.DomTask = ssh.DomTask & " @ShowGayImage" - If LBHypnoGenSlideshow.SelectedItem = "Maledom" Then ssh.DomTask = ssh.DomTask & " @ShowMaledomImage" - If LBHypnoGenSlideshow.SelectedItem = "Captions" Then ssh.DomTask = ssh.DomTask & " @ShowCaptionsImage" - If LBHypnoGenSlideshow.SelectedItem = "General" Then ssh.DomTask = ssh.DomTask & " @ShowGeneralImage" - If LBHypnoGenSlideshow.SelectedItem = "Tagged" Then ssh.DomTask = ssh.DomTask & " @ShowTaggedImage @Tag" & TBHypnoGenImageTag.Text + If LBHypnoGenSlideshow.SelectedItem = "Boobs" Then ssh.DomTask = ssh.DomTask & " @ShowBoobsImage" + If LBHypnoGenSlideshow.SelectedItem = "Butts" Then ssh.DomTask = ssh.DomTask & " @ShowButtImage" + If LBHypnoGenSlideshow.SelectedItem = "Hardcore" Then ssh.DomTask = ssh.DomTask & " @ShowHardcoreImage" + If LBHypnoGenSlideshow.SelectedItem = "Softcore" Then ssh.DomTask = ssh.DomTask & " @ShowSoftcoreImage" + If LBHypnoGenSlideshow.SelectedItem = "Lesbian" Then ssh.DomTask = ssh.DomTask & " @ShowLesbianImage" + If LBHypnoGenSlideshow.SelectedItem = "Blowjob" Then ssh.DomTask = ssh.DomTask & " @ShowBlowjobImage" + If LBHypnoGenSlideshow.SelectedItem = "Femdom" Then ssh.DomTask = ssh.DomTask & " @ShowFemdomImage" + If LBHypnoGenSlideshow.SelectedItem = "Lezdom" Then ssh.DomTask = ssh.DomTask & " @ShowLezdomImage" + If LBHypnoGenSlideshow.SelectedItem = "Hentai" Then ssh.DomTask = ssh.DomTask & " @ShowHentaiImage" + If LBHypnoGenSlideshow.SelectedItem = "Gay" Then ssh.DomTask = ssh.DomTask & " @ShowGayImage" + If LBHypnoGenSlideshow.SelectedItem = "Maledom" Then ssh.DomTask = ssh.DomTask & " @ShowMaledomImage" + If LBHypnoGenSlideshow.SelectedItem = "Captions" Then ssh.DomTask = ssh.DomTask & " @ShowCaptionsImage" + If LBHypnoGenSlideshow.SelectedItem = "General" Then ssh.DomTask = ssh.DomTask & " @ShowGeneralImage" + If LBHypnoGenSlideshow.SelectedItem = "Tagged" Then ssh.DomTask = ssh.DomTask & " @ShowTaggedImage @Tag" & TBHypnoGenImageTag.Text - End If + End If - End If + End If - If ssh.DomTask <> "" Then - TypingDelayGeneric() - Else - RunFileText() - End If + If ssh.DomTask <> "" Then + TypingDelayGeneric() + Else + RunFileText() + End If - End If + End If End Sub @@ -4545,11 +4419,7 @@ SkipGotoSearch: Dim GotoText As String - If ssh.MiniScript = True Then - GotoText = ssh.MiniScriptText - Else - GotoText = ssh.FileText - End If + GotoText = ssh.FileText Try 'TODO: Add Errorhandling. @@ -4573,11 +4443,7 @@ SkipGotoSearch: End If Loop Until gotolines(gotoline).StartsWith(ssh.FileGoto) - If ssh.MiniScript = True Then - ssh.MiniTauntVal = gotoline - Else - ssh.StrokeTauntVal = gotoline - End If + ssh.StrokeTauntVal = gotoline End If @@ -5399,14 +5265,18 @@ DommeSlideshowFallback: ssh.NullResponse = False If ssh.FollowUp <> "" Then - ssh.DomTask = ssh.FollowUp + If GetFilter(ssh.FollowUp) Then + ssh.DomTask = ssh.FollowUp + Else + ssh.DomTask = "@NullResponse" + End If Debug.Print("FollowUp DomTask = " & ssh.DomTask) ssh.FollowUp = "" TypingDelayGeneric() Exit Sub End If - ssh.DomTypeCheck = False + ssh.DomTypeCheck = False ssh.DomTyping = False 'StringLength = 20 ssh.StringLength = ssh.randomizer.Next(8, 16) @@ -6032,7 +5902,11 @@ DommeSlideshowFallback: ssh.NullResponse = False If ssh.FollowUp <> "" Then - ssh.DomChat = ssh.FollowUp + If GetFilter(ssh.FollowUp) Then + ssh.DomChat = ssh.FollowUp + Else + ssh.DomChat = "@NullResponse" + End If ssh.FollowUp = "" TypingDelay() Exit Sub @@ -6462,7 +6336,6 @@ Retry: If ssh.DomTypeCheck = True And ssh.StrokeTick < 5 Then Return If chatBox.Text <> "" And ssh.StrokeTick < 5 Then Return If ChatBox2.Text <> "" And ssh.StrokeTick < 5 Then Return - If ssh.MiniScript = True And ssh.StrokeTick < 5 Then Return If ssh.FollowUp <> "" And ssh.StrokeTick < 5 Then Return @@ -6508,7 +6381,6 @@ Retry: Private Sub StrokeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTauntTimer.Tick - If ssh.MiniScript = True Then Return If ssh.InputFlag = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -6625,17 +6497,24 @@ Retry: ssh.DomTask = ssh.TauntLines(ssh.TauntTextCount) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Taunt from file: " & - ssh.TauntText, ex, "StrokeTauntTimer.Tick") + ssh.TauntText, ex, "StrokeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from file: " & ssh.TauntText End Try + Else + Try + ssh.DomTask = ssh.TauntLines(ssh.TauntTextCount) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Taunt from any available file", ex, "StrokeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from any available file" + End Try + End If - If InStr(UCase(ssh.DomTask), UCase("@CBT")) <> 0 Then - CBTScript() - Else - TypingDelayGeneric() - End If + If InStr(UCase(ssh.DomTask), UCase("@CBT")) <> 0 Then + CBTScript() + Else + TypingDelayGeneric() End If @@ -6987,7 +6866,6 @@ GetAnotherRandomVideo: Public Sub CensorshipTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CensorshipTimer.Tick - If ssh.MiniScript = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.DomTyping = True Then Return @@ -7086,7 +6964,6 @@ CensorConstant: Public Sub RLGLTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTimer.Tick ' Check all Conditions before starting scripts. - If ssh.MiniScript = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.DomTyping = True Then Return @@ -8295,7 +8172,10 @@ StatusUpdateEnd: ' Find all remaining #Keywords. Dim re As New Regex(Pattern, RegexOptions.IgnoreCase) Dim mc As MatchCollection = re.Matches(StringClean) - + Dim controlCustom As String = "" + If StringClean.Contains("@CustomMode(") Then + controlCustom = GetParentheses(StringClean, "@CustomMode(") + End If ' Try to get content from file. For Each keyword As Match In mc #If TRACE Then @@ -8309,7 +8189,7 @@ StatusUpdateEnd: lines = FilterList(lines) - + If controlCustom.Contains(keyword.ToString) Then customVocabLines = lines If lines.Count > 0 Then Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) @@ -8740,72 +8620,7 @@ RinseLatherRepeat: '=============================================================================== If StringClean.Contains("@ShowImage[") Then Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") - Try - Dim tmpImgLoc As String = "" - - If isURL(ImageToShow) Then - '########################## ImageURL was given ######################### - tmpImgLoc = ImageToShow - GoTo ShowedBlogImage - End If - - ' Change evtl. wrong given Slashes - ImageToShow = ImageToShow.Replace("/", "\") - - ImageToShow = Application.StartupPath & "\Images\" & ImageToShow - ImageToShow = ImageToShow.Replace("\\", "\") - - If ImageToShow.Contains("*") Then - '######################### Directory was given ######################### - Dim tmpFilter As String = Path.GetFileName(ImageToShow) - Dim tmpDir As String = Path.GetDirectoryName(ImageToShow) - Dim ImageList As List(Of String) - - If Directory.Exists(tmpDir) = False Then - Throw New Exception( - "The given directory """ & tmpDir & """ does not exist." & - vbCrLf & vbCrLf & - "Please make sure the directory exists and it is spelled correctly in the script.") - End If - - If tmpFilter = "*" Or tmpFilter = "*.*" Then - ImageList = myDirectory.GetFilesImages(tmpDir) - Else - ImageList = Directory.GetFiles(tmpDir, tmpFilter, SearchOption.TopDirectoryOnly).ToList - End If - - If ImageList.Count = 0 Then - Throw New FileNotFoundException( - "No images matching the filter """ & tmpFilter & - """ were found in """ & tmpDir & """!" & - vbCrLf & vbCrLf & - "Please make sure that valid files exist and the wildcards are applied correctly in the script.") - End If - - tmpImgLoc = ImageList(New Random().Next(0, ImageList.Count)) - Else - '############################# Single Image ############################ - If File.Exists(ImageToShow) Then - tmpImgLoc = ImageToShow - Else - Throw New Exception( - """" & Path.GetFileName(ImageToShow) & """ was not found in """ & Path.GetDirectoryName(ImageToShow) & """!" & - vbCrLf & vbCrLf & - "Please make sure the file exists and it is spelled correctly in the script.") - End If - End If - '############### Display the Image ################## -ShowedBlogImage: - ShowImage(tmpImgLoc, False) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @ShowImage[] was unable to display the image.", - ex, "Error at @ShowImage[]") - 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error at @ShowImage[]", False) - End Try + ShowImage(checkForImage(ImageToShow), False) StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") End If '---------------------------------------- @@ -11011,7 +10826,6 @@ OrgasmDecided: StrokeTauntTimer.Stop() ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) ssh.LockImage = False - ssh.MiniScript = False If ssh.SlideshowLoaded = True Then nextButton.Enabled = True previousButton.Enabled = True @@ -11070,7 +10884,6 @@ OrgasmDecided: ssh.ScriptTick = 3 ScriptTimer.Start() ssh.ShowModule = True - ssh.MiniScript = False Else MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ @@ -11132,8 +10945,6 @@ OrgasmDecided: ScriptTimer.Start() ssh.ShowModule = True - ssh.MiniScript = False - Else MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) @@ -11901,15 +11712,15 @@ ExternalAudio: StringClean = StringClean.Replace("@RTOff", "") End If - ' If StringClean.Contains("@VoiceOn") Then - ' FrmSettings.TTSCheckBox.Checked = True - ' StringClean = StringClean.Replace("@VoiceOn", "") - 'End If + If StringClean.Contains("@VoiceOn") Then + FrmSettings.TTSCheckBox.Checked = True + StringClean = StringClean.Replace("@VoiceOn", "") + End If - 'If StringClean.Contains("@VoiceOff") Then - ' FrmSettings.TTSCheckBox.Checked = False - ' StringClean = StringClean.Replace("@VoiceOff", "") - ' End If + If StringClean.Contains("@VoiceOff") Then + FrmSettings.TTSCheckBox.Checked = False + StringClean = StringClean.Replace("@VoiceOff", "") + End If If StringClean.Contains("@GlitterTease1") Then ssh.glitterDommeNumber = 1 @@ -12285,20 +12096,7 @@ VTSkip: Else StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") End If - - ' With @CallReturn() now tentatively in complete working order, @MiniScript() is being converted to @CallReturn() here in code - 1885 - - 'If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt") Then ' And MiniScript = False Then - 'ssh.MiniScript = True - 'ssh.MiniScriptText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\MiniScripts\" & MiniTemp & ".txt" - 'ssh.MiniTauntVal = -1 - 'ssh.MiniTimerCheck = ScriptTimer.Enabled - 'ssh.ScriptTick = 2 - 'ScriptTimer.Start() - 'End If - 'StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") - - End If + End If @@ -12811,27 +12609,32 @@ VTSkip: CustomFlag = FixCommas(CustomFlag) Dim CustomArray As String() = CustomFlag.Split(",") - If CustomArray.Count = 3 Then - - If ssh.Modes.Keys.Contains(CustomArray(0)) Then ssh.Modes.Remove(CustomArray(0)) + If customVocabLines.Count = 0 Then + customVocabLines.Add(CustomArray(0)) + End If - Dim NewMode As New Mode - NewMode.Keyword = CustomArray(0) - NewMode.Type = CustomArray(1) - NewMode.GotoLine = CustomArray(2) - ssh.Modes.Add(CustomArray(0), NewMode) + If CustomArray.Count = 3 Then + For i As Integer = 0 To customVocabLines.Count - 1 + If ssh.Modes.Keys.Contains(customVocabLines(i)) Then ssh.Modes.Remove(customVocabLines(i)) + + Dim NewMode As New Mode + NewMode.Keyword = customVocabLines(i) + NewMode.Type = CustomArray(1) + NewMode.GotoLine = CustomArray(2) + ssh.Modes.Add(customVocabLines(i), NewMode) + Next End If If CustomArray.Count = 2 Then If CustomArray(1).ToUpper.Contains("NORMAL") Then - If ssh.Modes.Keys.Contains(CustomArray(0)) Then - ssh.Modes.Remove(CustomArray(0)) + If ssh.Modes.Keys.Contains(customVocabLines(0)) Then + ssh.Modes.Remove(customVocabLines(0)) End If End If End If StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - + customVocabLines.Clear() End If @@ -13783,7 +13586,7 @@ VTSkip: If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) Next - Dim FilteredList As New List(Of String) + 'Dim FilteredList As New List(Of String) 'For i As Integer = 0 To ListClean.Count - 1 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) @@ -13793,7 +13596,7 @@ VTSkip: Trace.Unindent() Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If - + 'If ListClean.Count = 0 Then ListClean.Add("test") Return ListClean End Function @@ -13926,15 +13729,15 @@ VTSkip: '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Possible space Filters - ' This Section Contains @CommandFilters which allow space chars (0x20). - ' - ' Example: "@Cup(A, B) Whatever Text to display" - ' Mostly all perametrized command filters allow space chars in parameters. - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Possible space Filters + ' This Section Contains @CommandFilters which allow space chars (0x20). + ' + ' Example: "@Cup(A, B) Whatever Text to display" + ' Mostly all perametrized command filters allow space chars in parameters. + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If FilterString.Contains("@AllowsOrgasm(") Then + If FilterString.Contains("@AllowsOrgasm(") Then If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False End If If FilterString.Contains("@ApathyLevel(") Then @@ -14966,9 +14769,9 @@ VTSkip: ssh.AskedToGiveUpSection = False Dim ModuleList As New List(Of String) - ModuleList.Clear() + ModuleList.Clear() - Dim ChastityModuleCheck As String = "*.txt" + Dim ChastityModuleCheck As String = "*.txt" If My.Settings.Chastity = True And Not IsEdging Then ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False @@ -15086,7 +14889,6 @@ NoPlaylistModuleFile: Public Sub RunLinkScript() If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False ssh.isLink = True - Debug.Print("RunLinkScript() Called") ssh.FirstRound = False ClearModes() @@ -15404,7 +15206,6 @@ NoPlaylistEndFile: ssh.LongTaunts = False ssh.ExtremeTaunts = False - ssh.MiniScript = False ssh.CBTBallsActive = False ssh.CBTBallsFlag = False @@ -15434,9 +15235,8 @@ NoPlaylistEndFile: Private Sub EdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeTauntTimer.Tick - If MultipleEdgesTimer.Enabled = True Then Return - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return + If MultipleEdgesTimer.Enabled = True Then Return + If ssh.InputFlag = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -15485,11 +15285,9 @@ NoPlaylistEndFile: Private Sub HoldEdgeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTimer.Tick - If ssh.MiniScript = True Then Return + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - - ssh.HoldEdgeTime += 1 + ssh.HoldEdgeTime += 1 ssh.HoldEdgeTimeTotal += 1 My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal @@ -15570,8 +15368,8 @@ NoPlaylistEndFile: TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15814,8 +15612,7 @@ NoRepeatOFiles: Private Sub HoldEdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick - If ssh.MiniScript = True Then Return - If ssh.InputFlag = True Then Return + If ssh.InputFlag = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -16683,9 +16480,8 @@ RestartFunction: 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.MiniScript = True Then Return - If ssh.DomTyping = True Then Return + If ssh.DomTyping = True Then Return If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return @@ -16758,7 +16554,6 @@ RestartFunction: Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.MiniScript = True Then Return If ssh.DomTyping = True Then Return If ssh.DomTypeCheck = True And ssh.RLGLTauntTick < 6 Then Return @@ -17187,6 +16982,11 @@ saveImage: End If ssh.SlideshowMain.LoadNew(ssh.newSlideshow) ssh.tempDomName = ssh.SlideshowMain.TypeName + If ssh.tempDomName <> My.Settings.DomName Then + Dim avatarImage As String = checkForImage("avatar.*", ssh.SlideshowMain.ImageFolder) + If avatarImage = "" Then avatarImage = ssh.SlideshowMain.ImageList(ssh.randomizer.Next(0, ssh.SlideshowMain.ImageList().Count - 1)) + domAvatar.Image = Image.FromFile(avatarImage) + End If ssh.shortName = ssh.SlideshowMain.ShortName Me.domName.Text = ssh.tempDomName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName @@ -20823,11 +20623,10 @@ playLoop: ssh.DomTask = "@NullResponse" End If TypingDelayGeneric() - Else - If Not ssh.ShowModule Then - StrokeTimer.Start() - StrokeTauntTimer.Start() - End If + End If + If Not ssh.ShowModule Then + StrokeTimer.Start() + StrokeTauntTimer.Start() End If End If ElseIf ssh.ReturnSubState = "Edging" Then @@ -20879,6 +20678,8 @@ playLoop: End Sub Public Sub setStartName() + If File.Exists(My.Settings.DomAvatarSave) Then domAvatar.Image = Image.FromFile(My.Settings.DomAvatarSave) + customVocabLines = New List(Of String) ssh.contactToUse = ssh.SlideshowMain If My.Settings.DomName <> "" Then ssh.tempDomName = My.Settings.DomName @@ -20893,6 +20694,13 @@ playLoop: Private Function updateDommeName(stringToCheck As String) As String + 'remove eventual @ContactX present in a @FollowUp() inside the line + If stringToCheck.Contains("@FollowUp") Then + Dim remove As String + remove = GetParentheses(stringToCheck, "@FollowUp(") + stringToCheck = stringToCheck.Replace("@FollowUp(" & remove & ")", "") + End If + 'deals with situation in which the domme is not present If Not ssh.Group.Contains("D") And Not stringToCheck.Contains("@Contact1") And Not stringToCheck.Contains("@Contact2") And Not stringToCheck.Contains("@Contact3") And Not stringToCheck.Contains("@RandomContact") Then Dim GroupList As New List(Of String) @@ -21164,5 +20972,80 @@ ExternalVideo: Next Return -1 End Function + + Private Function checkForImage(ImageToShow As String, Optional imageDir As String = "") As String + Dim tmpImgLoc As String = "" + Dim throwException As Boolean = False + If imageDir = "" Then + imageDir = Application.StartupPath & "\Images\" + throwException = True + End If + Try + + If isURL(ImageToShow) Then + '########################## ImageURL was given ######################### + tmpImgLoc = ImageToShow + GoTo ShowedBlogImage + End If + + ' Change evtl. wrong given Slashes + ImageToShow = ImageToShow.Replace("/", "\") + + ImageToShow = imageDir & ImageToShow + ImageToShow = ImageToShow.Replace("\\", "\") + + If ImageToShow.Contains("*") Then + '######################### Directory was given ######################### + Dim tmpFilter As String = Path.GetFileName(ImageToShow) + Dim tmpDir As String = Path.GetDirectoryName(ImageToShow) + Dim ImageList As List(Of String) + + If Directory.Exists(tmpDir) = False Then + If throwException Then Throw New Exception( + "The given directory """ & tmpDir & """ does not exist." & + vbCrLf & vbCrLf & + "Please make sure the directory exists and it is spelled correctly in the script.") + End If + + If tmpFilter = "*" Or tmpFilter = "*.*" Then + ImageList = myDirectory.GetFilesImages(tmpDir) + Else + ImageList = Directory.GetFiles(tmpDir, tmpFilter, SearchOption.TopDirectoryOnly).ToList + End If + + If ImageList.Count = 0 Then + If throwException Then Throw New FileNotFoundException( + "No images matching the filter """ & tmpFilter & + """ were found in """ & tmpDir & """!" & + vbCrLf & vbCrLf & + "Please make sure that valid files exist and the wildcards are applied correctly in the script.") + tmpImgLoc = "" + Else + tmpImgLoc = ImageList(New Random().Next(0, ImageList.Count)) + End If + Else + '############################# Single Image ############################ + If File.Exists(ImageToShow) Then + tmpImgLoc = ImageToShow + Else + If throwException Then Throw New Exception( + """" & Path.GetFileName(ImageToShow) & """ was not found in """ & Path.GetDirectoryName(ImageToShow) & """!" & + vbCrLf & vbCrLf & + "Please make sure the file exists and it is spelled correctly in the script.") + End If + End If + '############### Display the Image ################## +ShowedBlogImage: + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + If throwException Then Log.WriteError("Command @ShowImage[] was unable to display the image.", + ex, "Error at @ShowImage[]") + 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") + If throwException And My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error at @ShowImage[]", False) + End Try + Return tmpImgLoc + End Function End Class From aa58900277a17ba0e24c17aa62ab0fcd9fd49621 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 15 Apr 2017 22:20:17 -0500 Subject: [PATCH 073/143] Multi-StrokeTaunt Image Change fix Images would get locked if Tease AI left the Taunt cycle and the last Taunt contained multiple lines --- Tease AI/Form1.vb | 30 ++++++++++++++++++------------ 1 file changed, 18 insertions(+), 12 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index e6cf910..9efdf6f 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -11306,7 +11306,7 @@ OrgasmDecided: ssh.SubHoldingEdge = False StrokeTimer.Stop() StrokeTauntTimer.Stop() - + ssh.MultiTauntPictureHold = False CensorshipTimer.Stop() RLGLTimer.Stop() TnASlides.Stop() @@ -12603,6 +12603,8 @@ VTSkip: ssh.CBTBothFlag = False ssh.CustomTaskActive = False + ssh.MultiTauntPictureHold = False + If Not ssh.SubGaveUp Then ssh.SubEdging = False ssh.SubHoldingEdge = False @@ -12642,6 +12644,8 @@ VTSkip: Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") Dim CallReplace As String = CheckFlag + ssh.MultiTauntPictureHold = False + If CheckFlag.Contains(",") Then CheckFlag = FixCommas(CheckFlag) @@ -12673,20 +12677,21 @@ VTSkip: If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.MultiTauntPictureHold = False + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else GotoClear() ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) ssh.StrokeTauntVal = -1 - End If + End If End If StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") End If @@ -15200,7 +15205,8 @@ VTSkip: ssh.ShowModule = True ssh.FirstRound = False - ssh.TauntEdging = False + ssh.TauntEdging = False + ssh.MultiTauntPictureHold = False ssh.AskedToGiveUpSection = False Dim ModuleList As New List(Of String) From b901efaeb273d7933dad24b0721d50845c42242a Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 16 Apr 2017 16:47:18 +0200 Subject: [PATCH 074/143] test re-indented --- Tease AI/Classes/Mode.vb | 1 - Tease AI/Classes/State.vb | 10 +- Tease AI/Form1.vb | 4031 +++++++++++++++++++------------------ Tease AI/Form2.vb | 400 ++-- 4 files changed, 2222 insertions(+), 2220 deletions(-) diff --git a/Tease AI/Classes/Mode.vb b/Tease AI/Classes/Mode.vb index 1eb9526..462cc73 100644 --- a/Tease AI/Classes/Mode.vb +++ b/Tease AI/Classes/Mode.vb @@ -1,6 +1,5 @@  Public Class Mode - Public Keyword As String Public Type As String Public GotoLine As String diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 6f8ab1c..15fe150 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -564,9 +564,9 @@ Public Class SessionState Public Property TauntEdging As Boolean = False - Public Property Modes As New Dictionary(Of String, Mode)(System.StringComparer.OrdinalIgnoreCase) + Public Property Modes As New Dictionary(Of String, Mode)(System.StringComparer.OrdinalIgnoreCase) - Public Property CountDownList As New List(Of String) + Public Property CountDownList As New List(Of String) Public Property CountUpList As New List(Of String) Public Property MultiTauntPictureHold As Boolean @@ -760,7 +760,7 @@ Public Class SessionState Sub onDeserialized_FixFields(sc As StreamingContext) ' Suppress obsolete warnings. - '#Disable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 + '#Disable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 #If _MSC_VER > 1600 Then #Disable Warning BC40000 @@ -780,9 +780,9 @@ Public Class SessionState oldReturn.Line = CInt(Me.ReturnStrokeTauntVal) CallReturns.Push(oldReturn) End If - + ' Unsuppress obsolete warnings - '#Enable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 + '#Enable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 #If _MSC_VER > 1600 Then #Enable Warning BC40000 diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 8d4f7fe..6b94249 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4027,7 +4027,7 @@ ModuleEnd: End If End If - Debug.Print("CHeck") + Debug.Print("CHeck") If GetFilter(lines(line), True) = False Then RunFileText() @@ -4081,308 +4081,308 @@ NonModuleEnd: If line < lines.Count - 1 Then - If lines(line + 1).Substring(0, 1) = "[" Then - ssh.YesOrNo = True - ScriptTimer.Stop() - End If + If lines(line + 1).Substring(0, 1) = "[" Then + ssh.YesOrNo = True + ScriptTimer.Stop() End If + End If - Debug.Print("CHeck") - + Debug.Print("CHeck") - ssh.DomTask = (lines(line).Trim) + ssh.DomTask = (lines(line).Trim) - ssh.StringLength = 1 + ssh.StringLength = 1 - ssh.DomTask = ssh.DomTask.Replace("#SubName", subName.Text) - ssh.DomTask = ssh.DomTask.Replace("#VTLength", ssh.VTLength / 60) + ssh.DomTask = ssh.DomTask.Replace("#SubName", subName.Text) + ssh.DomTask = ssh.DomTask.Replace("#VTLength", ssh.VTLength / 60) - If InStr(ssh.DomTask, "@CockSizeSmall") <> 0 Then ssh.DivideText = True - 'QUESTION: What is this Code doing here? Shouldn't it be in CommandClean? - If ssh.DomTask.Contains("@SearchImageBlogAgain") Then + If InStr(ssh.DomTask, "@CockSizeSmall") <> 0 Then ssh.DivideText = True - ShowImage(GetRandomImage(ImageGenre.Blog), False) + 'QUESTION: What is this Code doing here? Shouldn't it be in CommandClean? + If ssh.DomTask.Contains("@SearchImageBlogAgain") Then - End If + ShowImage(GetRandomImage(ImageGenre.Blog), False) + End If - If ssh.DomTask.Contains("@SearchImageBlog") And Not ssh.DomTask.Contains("@SearchImageBlogAgain") Then - ShowImage(GetRandomImage(ImageGenre.Blog), False) + If ssh.DomTask.Contains("@SearchImageBlog") And Not ssh.DomTask.Contains("@SearchImageBlogAgain") Then - End If + ShowImage(GetRandomImage(ImageGenre.Blog), False) + End If - 'If InStr(UCase(DomTask), UCase("@Goto")) <> 0 And InStr(UCase(DomTask), UCase("@GotoDommeLevel")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeOrgasm")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeRuin")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeApathy")) = 0 And InStr(UCase(DomTask), UCase("@GotoSlideshow")) = 0 Then - If ssh.DomTask.Contains("@Goto(") Then - GetGoto() - End If - 'If DomTask.Contains("@Chance") Then + 'If InStr(UCase(DomTask), UCase("@Goto")) <> 0 And InStr(UCase(DomTask), UCase("@GotoDommeLevel")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeOrgasm")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeRuin")) = 0 And InStr(UCase(DomTask), UCase("@GotoDommeApathy")) = 0 And InStr(UCase(DomTask), UCase("@GotoSlideshow")) = 0 Then + If ssh.DomTask.Contains("@Goto(") Then + GetGoto() + End If - 'Dim ChanceTemp As String - 'Dim TSStartIndex As Integer - 'Dim TSEndIndex As Integer + 'If DomTask.Contains("@Chance") Then - 'TSStartIndex = DomTask.IndexOf("@Chance") + 7 - 'TSEndIndex = DomTask.IndexOf("@Chance") + 9 + 'Dim ChanceTemp As String + 'Dim TSStartIndex As Integer + 'Dim TSEndIndex As Integer - 'ChanceTemp = DomTask.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + 'TSStartIndex = DomTask.IndexOf("@Chance") + 7 + 'TSEndIndex = DomTask.IndexOf("@Chance") + 9 - ' Dim ChanceVal As Integer + 'ChanceTemp = DomTask.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - ' ChanceVal = Val(ChanceTemp) + ' Dim ChanceVal As Integer - ' 'Debug.Print("Check Substring " & ChanceTemp & " , " & ChanceVal) - ' 'Debug.Print("Check Substring " & DomTask.Substring("@Chance", 2)) + ' ChanceVal = Val(ChanceTemp) - ' TempVal = randomizer.Next(1, 101) + ' 'Debug.Print("Check Substring " & ChanceTemp & " , " & ChanceVal) + ' 'Debug.Print("Check Substring " & DomTask.Substring("@Chance", 2)) - Debug.Print("TempVal = " & ssh.TempVal) - 'Debug.Print("ChanceVal = " & ChanceVal) + ' TempVal = randomizer.Next(1, 101) - 'If TempVal <= ChanceVal Then + Debug.Print("TempVal = " & ssh.TempVal) + 'Debug.Print("ChanceVal = " & ChanceVal) - ''Debug.Print("Goto should be called") + 'If TempVal <= ChanceVal Then - 'GetGoto() + ''Debug.Print("Goto should be called") - 'End If + 'GetGoto() - ' 'Debug.Print("ChanceTemp DomTask = " & DomTask) + 'End If - 'DomTask = DomTask.Replace("@Chance" & ChanceTemp, "") + ' 'Debug.Print("ChanceTemp DomTask = " & DomTask) - 'End If + 'DomTask = DomTask.Replace("@Chance" & ChanceTemp, "") + 'End If - ' If DomTask.Contains("@CheckFlag") Then - ''Debug.Print("CheckFlagcalled") + ' If DomTask.Contains("@CheckFlag") Then - 'Dim CheckFlag As String = DomTask + ''Debug.Print("CheckFlagcalled") - 'CheckFlag = DomTask.Split("@CheckFlag(")(1) - 'CheckFlag = CheckFlag.Split(")")(0) - 'CheckFlag = CheckFlag.Replace("CheckFlag(", "") + 'Dim CheckFlag As String = DomTask - 'If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Flags\" & CheckFlag & ".txt") Then - ''Debug.Print("CheckFlag = " & CheckFlag) - 'SkipGotoLine = True - 'FileGoto = CheckFlag - 'GetGoto() - 'End If + 'CheckFlag = DomTask.Split("@CheckFlag(")(1) + 'CheckFlag = CheckFlag.Split(")")(0) + 'CheckFlag = CheckFlag.Replace("CheckFlag(", "") - ' DomTask = DomTask.Replace("@CheckFlag", "") + 'If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Flags\" & CheckFlag & ".txt") Then + ''Debug.Print("CheckFlag = " & CheckFlag) + 'SkipGotoLine = True + 'FileGoto = CheckFlag + 'GetGoto() + 'End If - 'End If + ' DomTask = DomTask.Replace("@CheckFlag", "") + 'End If - 'If DomTask.Contains("@GotoDommeLevel") Then - 'GotoDommeLevel = True + 'If DomTask.Contains("@GotoDommeLevel") Then - 'Dim GotoDommeLevelString As String + 'GotoDommeLevel = True - 'GotoDommeLevelString = DomTask.Split("@GotoDommeLevel(")(1) - 'GotoDommeLevelString = GotoDommeLevelString.Split(")")(0) - 'GotoDommeLevelString = GotoDommeLevelString.Replace("GotoDommeLevel(", "") + 'Dim GotoDommeLevelString As String - 'FileGoto = "DommeLevel" & GotoDommeLevelString & FrmSettings.domlevelNumBox.Value + 'GotoDommeLevelString = DomTask.Split("@GotoDommeLevel(")(1) + 'GotoDommeLevelString = GotoDommeLevelString.Split(")")(0) + 'GotoDommeLevelString = GotoDommeLevelString.Replace("GotoDommeLevel(", "") - 'Debug.Print("GotoDommeLebel FileGoto = " & FileGoto) + 'FileGoto = "DommeLevel" & GotoDommeLevelString & FrmSettings.domlevelNumBox.Value - 'DomTask = DomTask.Replace("GotoDommeLevel(" & GotoDommeLevelString & ")", "") + 'Debug.Print("GotoDommeLebel FileGoto = " & FileGoto) - 'GetGoto() + 'DomTask = DomTask.Replace("GotoDommeLevel(" & GotoDommeLevelString & ")", "") - 'End If + 'GetGoto() - ' If DomTask.Contains("@VTLength") Then + 'End If - 'SkipGotoLine = True + ' If DomTask.Contains("@VTLength") Then - 'If FrmSettings.ComboBoxVTLength.Text = "Never" Then FileGoto = "VTLengthNo" + 'SkipGotoLine = True - 'If FrmSettings.ComboBoxVTLength.Text = "Always" Then FileGoto = "VTLengthYes" + 'If FrmSettings.ComboBoxVTLength.Text = "Never" Then FileGoto = "VTLengthNo" - 'If FrmSettings.ComboBoxVTLength.Text = "Sometimes" Then + 'If FrmSettings.ComboBoxVTLength.Text = "Always" Then FileGoto = "VTLengthYes" - 'TempVal = randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value + 'If FrmSettings.ComboBoxVTLength.Text = "Sometimes" Then - ' 5, 20 10, 40 15, 60 20, 80 25, 100 - 'If TempVal < 10 * FrmSettings.domlevelNumBox.Value Then - 'FileGoto = "VTLengthYes" - 'Else - ' FileGoto = "VTLengthNo" - ' End If + 'TempVal = randomizer.Next(5, 21) * FrmSettings.domlevelNumBox.Value - 'End If + ' 5, 20 10, 40 15, 60 20, 80 25, 100 + 'If TempVal < 10 * FrmSettings.domlevelNumBox.Value Then + 'FileGoto = "VTLengthYes" + 'Else + ' FileGoto = "VTLengthNo" + ' End If + 'End If - 'Debug.Print("VTLength = " & FileGoto) - 'DomTask = DomTask.Replace("@VTLength", "") + 'Debug.Print("VTLength = " & FileGoto) - 'GetGoto() + 'DomTask = DomTask.Replace("@VTLength", "") - 'End If + 'GetGoto() + 'End If - ' If DomTask.Contains("@Module") Then - 'ShowModule = True - 'ScriptCount = 0 - 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ' ScriptCount += 1 - 'Next - 'TempVal = randomizer.Next(1, ScriptCount + 1) - 'ScriptCount = 0 - 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'ScriptCount += 1 - 'If TempVal = ScriptCount Then ModText = foundFile - 'Next - 'DomTask = DomTask.Replace("@Module", "") - 'ModuleTauntVal = -1 - 'End If - 'Debug.Print("GotoFLag = " & GotoFlag) + ' If DomTask.Contains("@Module") Then + 'ShowModule = True + 'ScriptCount = 0 + 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ' ScriptCount += 1 + 'Next + 'TempVal = randomizer.Next(1, ScriptCount + 1) + 'ScriptCount = 0 + 'For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'ScriptCount += 1 + 'If TempVal = ScriptCount Then ModText = foundFile + 'Next + 'DomTask = DomTask.Replace("@Module", "") + 'ModuleTauntVal = -1 + 'End If - 'If DomTask.Contains("@PlayVideoTeaseCensorshipSucks") Then - 'ScriptVideoTease = "Censorship Sucks" - 'ScriptVideoTeaseFlag = True - ' RandomVideo() - 'DomTask = DomTask.Replace("@PlayVideoTeaseCensorshipSucks", "") - ' End If + 'Debug.Print("GotoFLag = " & GotoFlag) + 'If DomTask.Contains("@PlayVideoTeaseCensorshipSucks") Then + 'ScriptVideoTease = "Censorship Sucks" + 'ScriptVideoTeaseFlag = True + ' RandomVideo() + 'DomTask = DomTask.Replace("@PlayVideoTeaseCensorshipSucks", "") + ' End If - 'If DomTask.Contains("@PauseAvoidTheEdge") Then - 'domVLC.playlist.pause() - 'AvoidTheEdgeTick = 120 / TauntSlider.Value - 'AvoidTheEdgeStroking = False - 'DomTask = DomTask.Replace("@PauseAvoidTheEdge", "") - 'End If - ' If DomChat.Contains("@PauseAvoidTheEdge") Then - 'domVLC.playlist.pause() - 'AvoidTheEdgeTick = 120 / TauntSlider.Value - 'AvoidTheEdgeStroking = False - 'DomChat = DomChat.Replace("@PauseAvoidTheEdge", "") - 'End If + 'If DomTask.Contains("@PauseAvoidTheEdge") Then + 'domVLC.playlist.pause() + 'AvoidTheEdgeTick = 120 / TauntSlider.Value + 'AvoidTheEdgeStroking = False + 'DomTask = DomTask.Replace("@PauseAvoidTheEdge", "") + 'End If - ' If DomTask.Contains("@PauseAvoidTheEdgeNoTaunts") Then - 'AvoidTheEdge.Stop() - 'DomTask = DomTask.Replace("@PauseAvoidTheEdgeNoTaunts", "") - 'End If + ' If DomChat.Contains("@PauseAvoidTheEdge") Then + 'domVLC.playlist.pause() + 'AvoidTheEdgeTick = 120 / TauntSlider.Value + 'AvoidTheEdgeStroking = False + 'DomChat = DomChat.Replace("@PauseAvoidTheEdge", "") + 'End If - 'If DomTask.Contains("@CountdownAvoidTheEdge") Then - 'ScriptTimer.Stop() - 'AtECountdown = randomizer.Next(FrmSettings.NBAvoidTheEdgeMin.Value, FrmSettings.NBAvoidTheEdgeMax.Value + 1) - 'DomTask = DomTask.Replace("@CountdownAvoidTheEdge", "") - 'AvoidTheEdgeResume.Start() - 'End If + ' If DomTask.Contains("@PauseAvoidTheEdgeNoTaunts") Then + 'AvoidTheEdge.Stop() + 'DomTask = DomTask.Replace("@PauseAvoidTheEdgeNoTaunts", "") + 'End If - ' If DomTask.Contains("@ResumeAvoidTheEdge") Then - 'DomTask = DomTask.Replace("@ResumeAvoidTheEdge", "") - 'FileGoto = "AvoidTheEdgeBegin" - 'SkipGotoLine = True - 'GetGoto() - 'domVLC.playlist.play() - 'End If + 'If DomTask.Contains("@CountdownAvoidTheEdge") Then + 'ScriptTimer.Stop() + 'AtECountdown = randomizer.Next(FrmSettings.NBAvoidTheEdgeMin.Value, FrmSettings.NBAvoidTheEdgeMax.Value + 1) + 'DomTask = DomTask.Replace("@CountdownAvoidTheEdge", "") + 'AvoidTheEdgeResume.Start() + 'End If - 'If DomTask.Contains("@EmbedImage") Then + ' If DomTask.Contains("@ResumeAvoidTheEdge") Then + 'DomTask = DomTask.Replace("@ResumeAvoidTheEdge", "") + 'FileGoto = "AvoidTheEdgeBegin" + 'SkipGotoLine = True + 'GetGoto() + 'domVLC.playlist.play() + 'End If - 'Dim EmbedImageFile As New StreamReader(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\ImageURLs.txt") - 'Dim ImageLines As New List(Of String) - 'Dim ImageLine As Integer + 'If DomTask.Contains("@EmbedImage") Then - 'ImageLine = -1 + 'Dim EmbedImageFile As New StreamReader(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\ImageURLs.txt") + 'Dim ImageLines As New List(Of String) + 'Dim ImageLine As Integer - 'While EmbedImageFile.Peek <> -1 - ' ImageLine += 1 - ' ImageLines.Add(EmbedImageFile.ReadLine()) - 'End While - ''Debug.Print("ImageLine = " & ImageLine) - 'TempVal = randomizer.Next(0, ImageLine + 1) - ''Debug.Print("TempVal = " & TempVal) + 'ImageLine = -1 - 'subAvatar.Load(ImageLines(TempVal)) + 'While EmbedImageFile.Peek <> -1 + ' ImageLine += 1 + ' ImageLines.Add(EmbedImageFile.ReadLine()) + 'End While + ''Debug.Print("ImageLine = " & ImageLine) + 'TempVal = randomizer.Next(0, ImageLine + 1) + ''Debug.Print("TempVal = " & TempVal) + 'subAvatar.Load(ImageLines(TempVal)) - 'Dim EmbedImageDoc As New XmlDocument() - 'EmbedImageDoc.Load("http://justblowjobgifs.tumblr.com/api/read") + 'Dim EmbedImageDoc As New XmlDocument() - 'EmbedImageDoc.Save("G:\Temp\EmbedImage.xml") + 'EmbedImageDoc.Load("http://justblowjobgifs.tumblr.com/api/read") - ' For Each XmlAttribute As XElement In EmbedImageDoc + 'EmbedImageDoc.Save("G:\Temp\EmbedImage.xml") - 'If XmlAttribute.Attribute("type") = "photo" Then - 'MsgBox(XmlAttribute.Elements("photo-url").Value) - 'End If + ' For Each XmlAttribute As XElement In EmbedImageDoc - ' Next + 'If XmlAttribute.Attribute("type") = "photo" Then + 'MsgBox(XmlAttribute.Elements("photo-url").Value) + 'End If + ' Next - 'RunFileText() - 'Return - 'End If - If ssh.DomTask.Contains("@ShowTaggedImage") Then ssh.JustShowedBlogImage = True + 'RunFileText() + 'Return + 'End If - If ssh.DomTask.Contains("@NullResponse") Then ssh.NullResponse = True + If ssh.DomTask.Contains("@ShowTaggedImage") Then ssh.JustShowedBlogImage = True - If ssh.HypnoGen = True Then + If ssh.DomTask.Contains("@NullResponse") Then ssh.NullResponse = True - If CBHypnoGenSlideshow.Checked = True Then + If ssh.HypnoGen = True Then - If LBHypnoGenSlideshow.SelectedItem = "Boobs" Then ssh.DomTask = ssh.DomTask & " @ShowBoobsImage" - If LBHypnoGenSlideshow.SelectedItem = "Butts" Then ssh.DomTask = ssh.DomTask & " @ShowButtImage" - If LBHypnoGenSlideshow.SelectedItem = "Hardcore" Then ssh.DomTask = ssh.DomTask & " @ShowHardcoreImage" - If LBHypnoGenSlideshow.SelectedItem = "Softcore" Then ssh.DomTask = ssh.DomTask & " @ShowSoftcoreImage" - If LBHypnoGenSlideshow.SelectedItem = "Lesbian" Then ssh.DomTask = ssh.DomTask & " @ShowLesbianImage" - If LBHypnoGenSlideshow.SelectedItem = "Blowjob" Then ssh.DomTask = ssh.DomTask & " @ShowBlowjobImage" - If LBHypnoGenSlideshow.SelectedItem = "Femdom" Then ssh.DomTask = ssh.DomTask & " @ShowFemdomImage" - If LBHypnoGenSlideshow.SelectedItem = "Lezdom" Then ssh.DomTask = ssh.DomTask & " @ShowLezdomImage" - If LBHypnoGenSlideshow.SelectedItem = "Hentai" Then ssh.DomTask = ssh.DomTask & " @ShowHentaiImage" - If LBHypnoGenSlideshow.SelectedItem = "Gay" Then ssh.DomTask = ssh.DomTask & " @ShowGayImage" - If LBHypnoGenSlideshow.SelectedItem = "Maledom" Then ssh.DomTask = ssh.DomTask & " @ShowMaledomImage" - If LBHypnoGenSlideshow.SelectedItem = "Captions" Then ssh.DomTask = ssh.DomTask & " @ShowCaptionsImage" - If LBHypnoGenSlideshow.SelectedItem = "General" Then ssh.DomTask = ssh.DomTask & " @ShowGeneralImage" - If LBHypnoGenSlideshow.SelectedItem = "Tagged" Then ssh.DomTask = ssh.DomTask & " @ShowTaggedImage @Tag" & TBHypnoGenImageTag.Text + If CBHypnoGenSlideshow.Checked = True Then + If LBHypnoGenSlideshow.SelectedItem = "Boobs" Then ssh.DomTask = ssh.DomTask & " @ShowBoobsImage" + If LBHypnoGenSlideshow.SelectedItem = "Butts" Then ssh.DomTask = ssh.DomTask & " @ShowButtImage" + If LBHypnoGenSlideshow.SelectedItem = "Hardcore" Then ssh.DomTask = ssh.DomTask & " @ShowHardcoreImage" + If LBHypnoGenSlideshow.SelectedItem = "Softcore" Then ssh.DomTask = ssh.DomTask & " @ShowSoftcoreImage" + If LBHypnoGenSlideshow.SelectedItem = "Lesbian" Then ssh.DomTask = ssh.DomTask & " @ShowLesbianImage" + If LBHypnoGenSlideshow.SelectedItem = "Blowjob" Then ssh.DomTask = ssh.DomTask & " @ShowBlowjobImage" + If LBHypnoGenSlideshow.SelectedItem = "Femdom" Then ssh.DomTask = ssh.DomTask & " @ShowFemdomImage" + If LBHypnoGenSlideshow.SelectedItem = "Lezdom" Then ssh.DomTask = ssh.DomTask & " @ShowLezdomImage" + If LBHypnoGenSlideshow.SelectedItem = "Hentai" Then ssh.DomTask = ssh.DomTask & " @ShowHentaiImage" + If LBHypnoGenSlideshow.SelectedItem = "Gay" Then ssh.DomTask = ssh.DomTask & " @ShowGayImage" + If LBHypnoGenSlideshow.SelectedItem = "Maledom" Then ssh.DomTask = ssh.DomTask & " @ShowMaledomImage" + If LBHypnoGenSlideshow.SelectedItem = "Captions" Then ssh.DomTask = ssh.DomTask & " @ShowCaptionsImage" + If LBHypnoGenSlideshow.SelectedItem = "General" Then ssh.DomTask = ssh.DomTask & " @ShowGeneralImage" + If LBHypnoGenSlideshow.SelectedItem = "Tagged" Then ssh.DomTask = ssh.DomTask & " @ShowTaggedImage @Tag" & TBHypnoGenImageTag.Text - End If End If - - If ssh.DomTask <> "" Then - TypingDelayGeneric() - Else - RunFileText() - End If + End If + If ssh.DomTask <> "" Then + TypingDelayGeneric() + Else + RunFileText() End If + + End If + End Sub Public Sub GetGoto() @@ -5276,7 +5276,7 @@ DommeSlideshowFallback: Exit Sub End If - ssh.DomTypeCheck = False + ssh.DomTypeCheck = False ssh.DomTyping = False 'StringLength = 20 ssh.StringLength = ssh.randomizer.Next(8, 16) @@ -11300,7 +11300,7 @@ OrgasmDecided: MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - StringClean = StringClean.Replace("@PlayVideo[" & VideoFlag & "]", "") + StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") End If If StringClean.Contains("@PlayAudio[") Then @@ -12604,37 +12604,8 @@ VTSkip: End If If StringClean.Contains("@CustomMode(") Then - - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") - CustomFlag = FixCommas(CustomFlag) - Dim CustomArray As String() = CustomFlag.Split(",") - - If customVocabLines.Count = 0 Then - customVocabLines.Add(CustomArray(0)) - End If - - If CustomArray.Count = 3 Then - For i As Integer = 0 To customVocabLines.Count - 1 - If ssh.Modes.Keys.Contains(customVocabLines(i)) Then ssh.Modes.Remove(customVocabLines(i)) - - Dim NewMode As New Mode - NewMode.Keyword = customVocabLines(i) - NewMode.Type = CustomArray(1) - NewMode.GotoLine = CustomArray(2) - ssh.Modes.Add(customVocabLines(i), NewMode) - Next - End If - - If CustomArray.Count = 2 Then - If CustomArray(1).ToUpper.Contains("NORMAL") Then - If ssh.Modes.Keys.Contains(customVocabLines(0)) Then - ssh.Modes.Remove(customVocabLines(0)) - End If - End If - End If - + updateMode(StringClean, ssh.Modes) StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - customVocabLines.Clear() End If @@ -13625,10 +13596,10 @@ VTSkip: ElseIf ssh.contactToUse IsNot Nothing Then FilterContact = ssh.contactToUse Else - FilterContact = ssh.SlideshowMain - End If + FilterContact = ssh.SlideshowMain + End If - If Linear = False Then + If Linear = False Then '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Commands to sort out ' This Section contains @Commands, which are able to disqualify vocabulary lines. @@ -13642,11 +13613,11 @@ VTSkip: If FilterString.Includes("@DommeTag(") Then 'QND-Implemented: ContactData.GetTaggedImage If ssh.LockImage = True Then - Return False - Else - If FilterContact.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False - End If - End If + Return False + Else + If FilterContact.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + End If + End If If FilterString.Contains("@ImageTag(") Then If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False @@ -13658,72 +13629,72 @@ VTSkip: ' ################## @Show-Category-Image ##################### If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then - If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowBlowjobImage") Then - If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then - If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowCaptionsImage") Then - If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowDislikedImage") Then - If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowFemdomImage") Then - If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowGayImage") Then - If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowGeneralImage") Then - If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowHardcoreImage") Then - If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowHentaiImage") Then - If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLesbianImage") Then - If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLezdomImage") Then - If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLikedImage") Then - If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowLocalImage") Then - If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False - End If - If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then - If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False - End If + If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowBlowjobImage") Then + If Not GetImageData(ImageGenre.Blowjob).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowBoobImage") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowButtsImage") Then + If Not GetImageData(ImageGenre.Butt).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowCaptionsImage") Then + If Not GetImageData(ImageGenre.Captions).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowDislikedImage") Then + If Not GetImageData(ImageGenre.Disliked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowFemdomImage") Then + If Not GetImageData(ImageGenre.Femdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowGayImage") Then + If Not GetImageData(ImageGenre.Gay).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowGeneralImage") Then + If Not GetImageData(ImageGenre.General).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowHardcoreImage") Then + If Not GetImageData(ImageGenre.Hardcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowHentaiImage") Then + If Not GetImageData(ImageGenre.Hentai).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLesbianImage") Then + If Not GetImageData(ImageGenre.Lesbian).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLezdomImage") Then + If Not GetImageData(ImageGenre.Lezdom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLikedImage") Then + If Not GetImageData(ImageGenre.Liked).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowLocalImage") Then + If FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True Then Return False + End If + If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then + If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False + End If 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False - - If FilterString.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = FilterString.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - - If GetLocalImage(Tags, Nothing) = String.Empty Then Return False - End If - - If FilterString.Contains("@ShowMaledomImage") Then - If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If - If FilterString.Contains("@ShowSoftcoreImage") Then - If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False - End If + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False + + If FilterString.Contains("@ShowTaggedImage") Then + Dim Tags As List(Of String) = FilterString.Split() _ + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + + If GetLocalImage(Tags, Nothing) = String.Empty Then Return False + End If + + If FilterString.Contains("@ShowMaledomImage") Then + If Not GetImageData(ImageGenre.Maledom).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If + If FilterString.Contains("@ShowSoftcoreImage") Then + If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False + End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Disqualifying @Commands - End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -13738,23 +13709,23 @@ VTSkip: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ If FilterString.Contains("@AllowsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@ApathyLevel(") Then - If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False - End If - If FilterString.Contains("@DommeLevel(") Then - If FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) = False Then Return False - End If - If FilterString.Contains("@Cup(") Then - If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False - End If - If FilterString.Contains("@RuinsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False - End If - If FilterString.Contains("@Variable[") Then - If CheckVariable(FilterString) = False Then Return False - End If + If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@ApathyLevel(") Then + If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False Then Return False + End If + If FilterString.Contains("@DommeLevel(") Then + If FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) = False Then Return False + End If + If FilterString.Contains("@Cup(") Then + If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False + End If + If FilterString.Contains("@RuinsOrgasm(") Then + If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False + End If + If FilterString.Contains("@Variable[") Then + If CheckVariable(FilterString) = False Then Return False + End If If FilterString.Contains("@Group(") Then Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") @@ -13782,65 +13753,65 @@ VTSkip: End If If FilterString.Contains("@Flag(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@Flag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - For Each s In splitFlag - If Not FlagExists(s) Then - Return False - End If - Next - End If + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@Flag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If Not FlagExists(s) Then + Return False + End If + Next + End If - If FilterString.Contains("@NotFlag(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - For Each s In splitFlag - If FlagExists(s) Then - Return False - End If - Next - End If + If FilterString.Contains("@NotFlag(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@NotFlag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If FlagExists(s) Then + Return False + End If + Next + End If - If FilterString.Contains("@FlagOr(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@FlagOr(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - Dim result As Boolean = False - For Each s In splitFlag - If FlagExists(s) Then - result = True - Exit For - End If - Next - If Not result Then Return False - End If + If FilterString.Contains("@FlagOr(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@FlagOr(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + Dim result As Boolean = False + For Each s In splitFlag + If FlagExists(s) Then + result = True + Exit For + End If + Next + If Not result Then Return False + End If - If FilterString.Contains("@CheckDate(") And Linear = False Then - If CheckDateList(FilterString) = False Then Return False - End If + If FilterString.Contains("@CheckDate(") And Linear = False Then + If CheckDateList(FilterString) = False Then Return False + End If - If FilterString.Contains("@Month(") Then - If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False - End If + If FilterString.Contains("@Month(") Then + If GetMatch(FilterString, "@Month(", DateAndTime.Now.Month) = False Then Return False + End If - If FilterString.Contains("@Day(") Then - If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False - End If + If FilterString.Contains("@Day(") Then + If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False + End If - If FilterString.Contains("@DayOfWeek(") Then - If GetMatch(FilterString, "@DayOfWeek(", WeekdayName(Weekday(DateAndTime.Now))) = False Then Return False - End If - If FilterString.Contains("@SetModule(") Then - If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False - End If + If FilterString.Contains("@DayOfWeek(") Then + If GetMatch(FilterString, "@DayOfWeek(", WeekdayName(Weekday(DateAndTime.Now))) = False Then Return False + End If + If FilterString.Contains("@SetModule(") Then + If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False + End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Possible space Filters - End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -13856,280 +13827,280 @@ VTSkip: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ Dim FilterList As String() - FilterList = FilterString.Split(" ") - FilterString = "" - - For f As Integer = 0 To FilterList.Count - 1 - If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then - Exit For - End If - FilterString = FilterString & FilterList(f) & " " - Next - - If FilterString = "" Then Return True - - If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@cfnm") And FrmSettings.CFNMCheckBox.Checked = False Then Return False - - If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False - If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False - If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False - If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False - If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False - - If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False - If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then - If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False - End If - If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False - If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False + FilterList = FilterString.Split(" ") + FilterString = "" - If FilterString.ToLower.Contains("@acup") Then - If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@bcup") Then - If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ccup") Then - If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@dcup") Then - If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddcup") Then - If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False - End If - If FilterString.ToLower.Contains("@ddd+cup") Then - If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False - End If + For f As Integer = 0 To FilterList.Count - 1 + If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then + Exit For + End If + FilterString = FilterString & FilterList(f) & " " + Next - If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False - If FilterString.ToLower.Contains("@cockaverage") Then - If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False - End If + If FilterString = "" Then Return True - If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@crazy") And FrmSettings.crazyCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@vulgar") And FrmSettings.vulgarCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@supremacist") And FrmSettings.supremacistCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@sadistic") And FrmSettings.sadisticCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@degrading") And FrmSettings.degradingCheckBox.Checked = False Then Return False + If FilterString.ToLower.Contains("@cfnm") And FrmSettings.CFNMCheckBox.Checked = False Then Return False - If FilterString.ToLower.Contains("@dombirthday") Then - If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If + If FilterString.ToLower.Contains("@dommelevel1") And FrmSettings.domlevelNumBox.Value <> 1 Then Return False + If FilterString.ToLower.Contains("@dommelevel2") And FrmSettings.domlevelNumBox.Value <> 2 Then Return False + If FilterString.ToLower.Contains("@dommelevel3") And FrmSettings.domlevelNumBox.Value <> 3 Then Return False + If FilterString.ToLower.Contains("@dommelevel4") And FrmSettings.domlevelNumBox.Value <> 4 Then Return False + If FilterString.ToLower.Contains("@dommelevel5") And FrmSettings.domlevelNumBox.Value <> 5 Then Return False - If FilterString.ToLower.Contains("@subbirthday") Then - If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False - End If + If FilterString.ToLower.Contains("@selfyoung") And FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@selfold") And FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1 Then Return False + If FilterString.ToLower.Contains("@selfyoung") Or FilterString.ToLower.Contains("@selfold") Then + If ssh.VideoTease = True Or ssh.TeaseVideo = True Then Return False + End If + If FilterString.ToLower.Contains("@subyoung") And FrmSettings.subAgeNumBox.Value > FrmSettings.NBSubAgeMin.Value - 1 Then Return False + If FilterString.ToLower.Contains("@subold") And FrmSettings.subAgeNumBox.Value < FrmSettings.NBSubAgeMax.Value + 1 Then Return False - If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@acup") Then + If FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@bcup") Then + If FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ccup") Then + If FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@dcup") Then + If FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddcup") Then + If FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True Then Return False + End If + If FilterString.ToLower.Contains("@ddd+cup") Then + If FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True Then Return False + End If - If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False - If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False + If FilterString.ToLower.Contains("@cocksmall") And FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value Then Return False + If FilterString.ToLower.Contains("@cockaverage") Then + If FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value Then Return False + End If - If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False - If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False - If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then - If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False - End If - If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then - If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False - End If + If FilterString.ToLower.Contains("@cocklarge") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False - If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False - If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False - If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False - If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False - - If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False - If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False - If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False - If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False - - If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False - If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False - If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False - If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False - - If FilterString.Contains("@LongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False - End If - If FilterString.Contains("@InterruptLongEdge") Then - If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False - End If + If FilterString.ToLower.Contains("@dombirthday") Then + If FrmSettings.NBDomBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBDomBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If - If FilterString.Contains("@1MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False - End If - If FilterString.Contains("@2MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False - End If - If FilterString.Contains("@3MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False - End If - If FilterString.Contains("@4MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False - End If - If FilterString.Contains("@5MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False - End If - If FilterString.Contains("@10MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False - End If - If FilterString.Contains("@15MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False - End If - If FilterString.Contains("@30MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False - End If - If FilterString.Contains("@45MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False - End If - If FilterString.Contains("@60MinuteHold") Then - If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False - End If + If FilterString.ToLower.Contains("@subbirthday") Then + If FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) Or FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now) Then Return False + End If - If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False - If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False - If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False - If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False - If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False - If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False - If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False - If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False - If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False - If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False - If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False - If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False - If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False - - If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False - If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False - If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False - If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False - If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False - If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False - If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False - If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False - If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False - If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False - If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False - If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False - If FilterString.Contains("@VitalSubAssignment") Then - If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False - End If + If FilterString.ToLower.Contains("@valentinesday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmaseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@christmasday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearseve") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False + If FilterString.ToLower.Contains("@newyearsday") And FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value Then Return False - If FilterString.Contains("@RuinTaunt") Then - If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False - End If + If FilterString.ToLower.Contains("@firstround") And ssh.FirstRound = False Then Return False + If FilterString.ToLower.Contains("@notfirstround") And ssh.FirstRound = True Then Return False - If FilterString.Contains("@VideoHardcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False - End If - If FilterString.Contains("@VideoSoftcore") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False - End If - If FilterString.Contains("@VideoLesbian") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False - End If - If FilterString.Contains("@VideoBlowjob") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False - End If - If FilterString.Contains("@VideoFemdom") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False - End If - If FilterString.Contains("@VideoFemsub") Then - If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False - End If - If FilterString.Contains("@VideoGeneral") Then - If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False - End If + If FilterString.ToLower.Contains("@strokespeedmax") And StrokePace < NBMaxPace.Value Then Return False + If FilterString.ToLower.Contains("@strokespeedmin") And StrokePace < NBMinPace.Value Then Return False + If FilterString.ToLower.Contains("@strokefaster") Or FilterString.ToLower.Contains("@strokefastest") Then + If StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True Then Return False + End If + If FilterString.ToLower.Contains("@strokeslower") Or FilterString.ToLower.Contains("@strokeslowest") Then + If StrokePace = NBMinPace.Value Or ssh.WorshipMode = True Then Return False + End If - If FilterString.Contains("@VideoHardcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False - End If - If FilterString.Contains("@VideoSoftcoreDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False - End If - If FilterString.Contains("@VideoLesbianDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False - End If - If FilterString.Contains("@VideoBlowjobDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False - End If - If FilterString.Contains("@VideoFemdomDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False - End If - If FilterString.Contains("@VideoFemsubDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False - End If - If FilterString.Contains("@VideoGeneralDomme") Then - If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False - End If + If FilterString.ToLower.Contains("@alwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Always Allows" Then Return False + If FilterString.ToLower.Contains("@oftenallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Often Allows" Then Return False + If FilterString.ToLower.Contains("@sometimesallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows" Then Return False + If FilterString.ToLower.Contains("@rarelyallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows" Then Return False + If FilterString.ToLower.Contains("@neverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text <> "Never Allows" Then Return False - If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False - If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False - If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False - If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False - If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False - If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False - If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False - If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False - If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False - If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False - If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False - If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False - - If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then - If ssh.SubStroking = False Then Return False - End If + If FilterString.ToLower.Contains("@alwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@oftenruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins" Then Return False + If FilterString.ToLower.Contains("@sometimesruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins" Then Return False + If FilterString.ToLower.Contains("@rarelyruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins" Then Return False + If FilterString.ToLower.Contains("@neverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins" Then Return False - If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then - If ssh.SubStroking = True Then Return False - End If + If FilterString.ToLower.Contains("@notalwaysallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then Return False + If FilterString.ToLower.Contains("@notneverallowsorgasm") And FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then Return False + If FilterString.ToLower.Contains("@notalwaysruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then Return False + If FilterString.ToLower.Contains("@notneverruinsorgasm") And FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then Return False - If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then - If ssh.SubEdging = False Then Return False - End If + If FilterString.Contains("@LongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False Then Return False + End If + If FilterString.Contains("@InterruptLongEdge") Then + If ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True Then Return False + End If - If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then - If ssh.SubEdging = True Then Return False - End If + If FilterString.Contains("@1MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119 Then Return False + End If + If FilterString.Contains("@2MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179 Then Return False + End If + If FilterString.Contains("@3MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239 Then Return False + End If + If FilterString.Contains("@4MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299 Then Return False + End If + If FilterString.Contains("@5MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599 Then Return False + End If + If FilterString.Contains("@10MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899 Then Return False + End If + If FilterString.Contains("@15MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799 Then Return False + End If + If FilterString.Contains("@30MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699 Then Return False + End If + If FilterString.Contains("@45MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599 Then Return False + End If + If FilterString.Contains("@60MinuteHold") Then + If ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600 Then Return False + End If - If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then - If ssh.SubHoldingEdge = False Then Return False - End If + If FilterString.Contains("@CBTLevel1") And FrmSettings.CBTSlider.Value <> 1 Then Return False + If FilterString.Contains("@CBTLevel2") And FrmSettings.CBTSlider.Value <> 2 Then Return False + If FilterString.Contains("@CBTLevel3") And FrmSettings.CBTSlider.Value <> 3 Then Return False + If FilterString.Contains("@CBTLevel4") And FrmSettings.CBTSlider.Value <> 4 Then Return False + If FilterString.Contains("@CBTLevel5") And FrmSettings.CBTSlider.Value <> 5 Then Return False + If FilterString.Contains("@SubCircumcised") And FrmSettings.CBSubCircumcised.Checked = False Then Return False + If FilterString.Contains("@SubNotCircumcised") And FrmSettings.CBSubCircumcised.Checked = True Then Return False + If FilterString.Contains("@SubPierced") And FrmSettings.CBSubPierced.Checked = False Then Return False + If FilterString.Contains("@SubNotPierced") And FrmSettings.CBSubPierced.Checked = True Then Return False + If FilterString.Contains("@BeforeTease") And ssh.BeforeTease = False Then Return False + If FilterString.Contains("@OrgasmDenied") And ssh.OrgasmDenied = False Then Return False + If FilterString.Contains("@OrgasmAllowed") And ssh.OrgasmAllowed = False Then Return False + If FilterString.Contains("@OrgasmRuined") And ssh.OrgasmRuined = False Then Return False - If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then - If ssh.SubHoldingEdge = True Then Return False - End If + If FilterString.Contains("@ApathyLevel1") And FrmSettings.NBEmpathy.Value <> 1 Then Return False + If FilterString.Contains("@ApathyLevel2") And FrmSettings.NBEmpathy.Value <> 2 Then Return False + If FilterString.Contains("@ApathyLevel3") And FrmSettings.NBEmpathy.Value <> 3 Then Return False + If FilterString.Contains("@ApathyLevel4") And FrmSettings.NBEmpathy.Value <> 4 Then Return False + If FilterString.Contains("@ApathyLevel5") And FrmSettings.NBEmpathy.Value <> 5 Then Return False + If FilterString.Contains("@InChastity") And My.Settings.Chastity = False Then Return False + If FilterString.Contains("@NotInChastity") And My.Settings.Chastity = True Then Return False + If FilterString.Contains("@HasChastity") And FrmSettings.CBOwnChastity.Checked = False Then Return False + If FilterString.Contains("@DoesNotHaveChastity") And FrmSettings.CBOwnChastity.Checked = True Then Return False + If FilterString.Contains("@ChastityPA") And FrmSettings.CBChastityPA.Checked = False Then Return False + If FilterString.Contains("@ChastitySpikes") And FrmSettings.CBChastitySpikes.Checked = False Then Return False + If FilterString.Contains("@VitalSub") And CBVitalSub.Checked = False Then Return False + If FilterString.Contains("@VitalSubAssignment") Then + If CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False Then Return False + End If - If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False - If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False - If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False - If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False - If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False - If FilterString.Contains("@NeutralMood") Then - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False - End If + If FilterString.Contains("@RuinTaunt") Then + If ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True Then Return False + End If - If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False - If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False - If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False - If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False - If FilterString.Contains("@LongHold") Then - If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False - End If + If FilterString.Contains("@VideoHardcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Hardcore" Then Return False + End If + If FilterString.Contains("@VideoSoftcore") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Softcore" Then Return False + End If + If FilterString.Contains("@VideoLesbian") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Lesbian" Then Return False + End If + If FilterString.Contains("@VideoBlowjob") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Blowjob" Then Return False + End If + If FilterString.Contains("@VideoFemdom") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femdom" Then Return False + End If + If FilterString.Contains("@VideoFemsub") Then + If ssh.VideoTease = False Or ssh.VideoType <> "Femsub" Then Return False + End If + If FilterString.Contains("@VideoGeneral") Then + If ssh.VideoTease = False Or ssh.VideoType <> "General" Then Return False + End If + + If FilterString.Contains("@VideoHardcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD" Then Return False + End If + If FilterString.Contains("@VideoSoftcoreDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD" Then Return False + End If + If FilterString.Contains("@VideoLesbianDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "LesbianD" Then Return False + End If + If FilterString.Contains("@VideoBlowjobDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD" Then Return False + End If + If FilterString.Contains("@VideoFemdomDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemdomD" Then Return False + End If + If FilterString.Contains("@VideoFemsubDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "FemsubD" Then Return False + End If + If FilterString.Contains("@VideoGeneralDomme") Then + If ssh.VideoTease = False Or ssh.VideoType <> "GeneralD" Then Return False + End If + + If FilterString.Contains("@CockTorture") And FrmSettings.CBCBTCock.Checked = False Then Return False + If FilterString.Contains("@BallTorture") And FrmSettings.CBCBTBalls.Checked = False Then Return False + If FilterString.Contains("@BallTorture0") And ssh.CBTBallsCount <> 0 Then Return False + If FilterString.Contains("@BallTorture1") And ssh.CBTBallsCount <> 1 Then Return False + If FilterString.Contains("@BallTorture2") And ssh.CBTBallsCount <> 2 Then Return False + If FilterString.Contains("@BallTorture3") And ssh.CBTBallsCount <> 3 Then Return False + If FilterString.Contains("@BallTorture4+") And ssh.CBTBallsCount < 4 Then Return False + If FilterString.Contains("@CockTorture0") And ssh.CBTCockCount <> 0 Then Return False + If FilterString.Contains("@CockTorture1") And ssh.CBTCockCount <> 1 Then Return False + If FilterString.Contains("@CockTorture2") And ssh.CBTCockCount <> 2 Then Return False + If FilterString.Contains("@CockTorture3") And ssh.CBTCockCount <> 3 Then Return False + If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False + + If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then + If ssh.SubStroking = False Then Return False + End If + + If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then + If ssh.SubStroking = True Then Return False + End If + + If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then + If ssh.SubEdging = False Then Return False + End If + + If FilterString.Contains("@NotEdging") Or FilterString.Contains("@SubNotEdging") Then + If ssh.SubEdging = True Then Return False + End If + + If FilterString.Contains("@HoldingTheEdge") Or FilterString.Contains("@SubHoldingTheEdge") Then + If ssh.SubHoldingEdge = False Then Return False + End If - If FilterString.Contains("@ExtremeHold") Then - If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False + If FilterString.Contains("@NotHoldingTheEdge") Or FilterString.Contains("@SubNotHoldingTheEdge") Then + If ssh.SubHoldingEdge = True Then Return False + End If + + If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False + If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False + If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False + If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False + If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False + If FilterString.Contains("@NeutralMood") Then + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + End If + + If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False + If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False + If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False + If FilterString.Contains("@SubNotWorshipping") And ssh.WorshipMode = True Then Return False + If FilterString.Contains("@LongHold") Then + If ssh.LongHold = False Or ssh.SubHoldingEdge = False Then Return False + End If + + If FilterString.Contains("@ExtremeHold") Then + If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False End If If FilterString.Contains("@HoldTaunt") Then @@ -14144,52 +14115,52 @@ VTSkip: If ssh.ExtremeTaunts = False Then Return False End If - If FilterString.Contains("@AssWorship") Then - If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False - End If + If FilterString.Contains("@AssWorship") Then + If ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False Then Return False + End If - If FilterString.Contains("@BoobWorship") Then - If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False - End If + If FilterString.Contains("@BoobWorship") Then + If ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False Then Return False + End If - If FilterString.Contains("@PussyWorship") Then - If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False - End If + If FilterString.Contains("@PussyWorship") Then + If ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False Then Return False + End If - If FilterString.Contains("@Contact1") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - End If + If FilterString.Contains("@Contact1") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + End If - If FilterString.Contains("@Contact2") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - End If + If FilterString.Contains("@Contact2") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + End If - If FilterString.Contains("@Contact3") Then - If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - End If + If FilterString.Contains("@Contact3") Then + If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + End If - If FilterString.Contains("@Info") Then Return False + If FilterString.Contains("@Info") Then Return False '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Single word filters - End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ Return True - Catch ex As Exception + Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) - Return False - End Try - End Function + ex, "GetFilter(String, Boolean)") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + Return False + End Try + End Function - Public Function GetFilter2(ByVal FilterString As String) As Boolean + Public Function GetFilter2(ByVal FilterString As String) As Boolean - Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) - Try + Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) + Try '=============================================================================== ' Dictionary Setup Description ' 1st Parameter: "Key" this is the Command as String preceded with @ @@ -14199,193 +14170,193 @@ VTSkip: ' '=============================================================================== With __ConditionDic - .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) - .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) - .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) - .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) - .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) - .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) - .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) - .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) - .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) - .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) - .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) - .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) - .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) - .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) - .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) - .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) - .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) - .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) - .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) - .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) - .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) - .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) - .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) - .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) - .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) - .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) - .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) - .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - - .Add("@FirstRound", ssh.FirstRound = False) - .Add("@NotFirstRound", ssh.FirstRound = True) - .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) - .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) - .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") - .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") - .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") - .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") - .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") - .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") - .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") - .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") - .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") - .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") - .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") - .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") - .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") - .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") - .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) - .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) - .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) + .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) + .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) + .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) + .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) + .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) + .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) + .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) + .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) + .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) + .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) + .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) + .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) + .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) + .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) + .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) + .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) + .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) + .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) + .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) + .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) + .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) + .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) + .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) + .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) + .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) + .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) + .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) + + .Add("@FirstRound", ssh.FirstRound = False) + .Add("@NotFirstRound", ssh.FirstRound = True) + .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) + .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) + .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) + .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") + .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") + .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") + .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") + .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") + .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") + .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") + .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") + .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") + .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") + .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") + .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") + .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") + .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") + .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) + .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) + .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) + .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) - .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) - .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) - .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) - .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) - .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) - .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) - .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) - .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) - .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) - .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) - .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) - .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) - .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) - .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) - .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) - .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) - .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) - .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) + .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) + .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) + .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) + .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) + .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) + .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) + .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) + .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) + .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) + .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) + .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) + .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) + .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) + .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) + .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) + .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) + .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) + .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. .Add("@BeforeTease", ssh.BeforeTease = False) - .Add("@OrgasmDenied", ssh.OrgasmDenied = False) - .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) - .Add("@OrgasmRuined", ssh.OrgasmRuined = False) - .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) - .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) - .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) - .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) - .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) - .Add("@InChastity", My.Settings.Chastity = False) - .Add("@NotInChastity", My.Settings.Chastity = True) - .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) - .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) - .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) - .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) - .Add("@VitalSub", CBVitalSub.Checked = False) - .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) - .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) - .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) - .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) - .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") - .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") - .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") - .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") - .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") - .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") - .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") - .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") - .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") - .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") - .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") - .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") - .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") - .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") - .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) - .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) - .Add("@BallTorture0", ssh.CBTBallsCount <> 0) - .Add("@BallTorture1", ssh.CBTBallsCount <> 1) - .Add("@BallTorture2", ssh.CBTBallsCount <> 2) - .Add("@BallTorture3", ssh.CBTBallsCount <> 3) - .Add("@BallTorture4+", ssh.CBTBallsCount < 4) - .Add("@CockTorture0", ssh.CBTCockCount <> 0) - .Add("@CockTorture1", ssh.CBTCockCount <> 1) - .Add("@CockTorture2", ssh.CBTCockCount <> 2) - .Add("@CockTorture3", ssh.CBTCockCount <> 3) - .Add("@CockTorture4+", ssh.CBTCockCount < 4) - .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) - .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) - .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) - .Add("@Stroking", ssh.SubStroking = False) - .Add("@SubStroking", ssh.SubStroking = False) - .Add("@NotStroking", ssh.SubStroking = True) - .Add("@SubNotStroking", ssh.SubStroking = True) - .Add("@Edging", ssh.SubEdging = False) - .Add("@SubEdging", ssh.SubEdging = False) - .Add("@NotEdging", ssh.SubEdging = True) - .Add("@SubNotEdging", ssh.SubEdging = True) - .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@Morning", ssh.GeneralTime <> "Morning") - .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") - .Add("@Night", ssh.GeneralTime <> "Night") - .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) - .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) - .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) - .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. + .Add("@OrgasmDenied", ssh.OrgasmDenied = False) + .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) + .Add("@OrgasmRuined", ssh.OrgasmRuined = False) + .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) + .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) + .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) + .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) + .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) + .Add("@InChastity", My.Settings.Chastity = False) + .Add("@NotInChastity", My.Settings.Chastity = True) + .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) + .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) + .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) + .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) + .Add("@VitalSub", CBVitalSub.Checked = False) + .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) + .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) + .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) + .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) + .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") + .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") + .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") + .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") + .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") + .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") + .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") + .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") + .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") + .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") + .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") + .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") + .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") + .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") + .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) + .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) + .Add("@BallTorture0", ssh.CBTBallsCount <> 0) + .Add("@BallTorture1", ssh.CBTBallsCount <> 1) + .Add("@BallTorture2", ssh.CBTBallsCount <> 2) + .Add("@BallTorture3", ssh.CBTBallsCount <> 3) + .Add("@BallTorture4+", ssh.CBTBallsCount < 4) + .Add("@CockTorture0", ssh.CBTCockCount <> 0) + .Add("@CockTorture1", ssh.CBTCockCount <> 1) + .Add("@CockTorture2", ssh.CBTCockCount <> 2) + .Add("@CockTorture3", ssh.CBTCockCount <> 3) + .Add("@CockTorture4+", ssh.CBTCockCount < 4) + .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) + .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) + .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) + .Add("@Stroking", ssh.SubStroking = False) + .Add("@SubStroking", ssh.SubStroking = False) + .Add("@NotStroking", ssh.SubStroking = True) + .Add("@SubNotStroking", ssh.SubStroking = True) + .Add("@Edging", ssh.SubEdging = False) + .Add("@SubEdging", ssh.SubEdging = False) + .Add("@NotEdging", ssh.SubEdging = True) + .Add("@SubNotEdging", ssh.SubEdging = True) + .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) + .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) + .Add("@Morning", ssh.GeneralTime <> "Morning") + .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") + .Add("@Night", ssh.GeneralTime <> "Night") + .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) + .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) + .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) + .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) - .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) - .Add("@SubWorshipping", ssh.WorshipMode = False) - .Add("@SubNotWorshipping", ssh.WorshipMode = True) - .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) - .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) - .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) - .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) - .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) - End With - Catch ex As ArgumentException + .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) + .Add("@SubWorshipping", ssh.WorshipMode = False) + .Add("@SubNotWorshipping", ssh.WorshipMode = True) + .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) + .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) + .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) + .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) + .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) + End With + Catch ex As ArgumentException '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' ArgumentException => Will occur everytime until you fix Source Code! '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) - MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & - "further executing the Code, the application will exit after closing this Message." & vbCrLf & - ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") - Application.Exit() - End Try + MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & + "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & + "further executing the Code, the application will exit after closing this Message." & vbCrLf & + ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") + Application.Exit() + End Try - Try + Try ' Declare a new regex Instance, for detecting the parameters in a line. ' Allowed chars for Commands are: A-Z a-z 0-9 @ ' Allowed Brackets are : ( [ @@ -14396,28 +14367,28 @@ VTSkip: ' Execute regex on current line, to find all containing Commands Dim mc As MatchCollection = __re.Matches(FilterString) - For Each m As Match In mc - If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then + For Each m As Match In mc + If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then '=============================================================================== ' Known Command - DELETE Condition = TRUE '=============================================================================== ' The Command is known and his delete condition is True -> delete line Return False - ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then + ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then '=============================================================================== ' Unknown Command / BracketCommand '=============================================================================== Dim Condition As Boolean = False - Select Case m.Value.ToUpper - Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) - Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) - Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) - Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) - Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) - Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) - Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) + Select Case m.Value.ToUpper + Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) + Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) + Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) + Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) + Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) + Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) + Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) 'QND-Implemented: ContactData.GetTaggedImage 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) @@ -14428,11 +14399,11 @@ VTSkip: '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= Dim f As String = "" ' Debug line to add the ability to set a breakpoint. Exit For - End Select + End Select ' The Command is known and his delete condition is True -> delete line If Condition Then Return False - End If - Next ' of Regex matches (Commands) + End If + Next ' of Regex matches (Commands) Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors @@ -14441,170 +14412,170 @@ VTSkip: 'Throw End Try - Return True + Return True - End Function + End Function #Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" - Private Sub ChatText_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted - ScrollChatDown() - End Sub + Private Sub ChatText_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted + ScrollChatDown() + End Sub - Private Sub ChatText2_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub + Private Sub ChatText2_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + End Sub - Private Sub chatBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop - chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub + Private Sub chatBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop + chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub - Private Sub chatBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop - chatBox.Text = "" - ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub + Private Sub chatBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop + chatBox.Text = "" + ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + sendButton.PerformClick() + End Sub - Private Sub chatBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy - End If - End Sub + Private Sub chatBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + End If + End Sub - Private Sub chatBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy - End If - End Sub + Private Sub chatBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + End If + End Sub - Private Sub chatbox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles chatBox.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True - End If - End Sub + Private Sub chatbox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles chatBox.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True + End If + End Sub - Private Sub chatbox2_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles ChatBox2.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True - End If - End Sub + Private Sub chatbox2_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles ChatBox2.KeyDown + If e.KeyCode = Keys.Return Then + sendButton.PerformClick() + e.SuppressKeyPress = True + End If + End Sub - Private Sub chatBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True + Private Sub chatBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True ' sendButton.PerformClick() e.KeyChar = Chr(0) - End If - End Sub + End If + End Sub - Private Sub chatBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True + Private Sub chatBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True ' sendButton.PerformClick() e.KeyChar = Chr(0) - End If - End Sub + End If + End Sub ''' Appends a system message to chat and prints it if desired. ''' Messagetext to append to chat. ''' If true the chatwindow is refreshed and reprinted. Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) - ChatAppend("" & messageText & "", printChat) + ChatAppend("" & messageText & "", printChat) 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" End Sub - Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) - ssh.Chat &= elementText & "
" & vbCrLf - If printChat Then Me.PrintChat() - End Sub + Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) + ssh.Chat &= elementText & "
" & vbCrLf + If printChat Then Me.PrintChat() + End Sub - Friend Sub PrintChat() - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - End Sub + Friend Sub PrintChat() + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() + End Sub - Public Sub ScrollChatDown() + Public Sub ScrollChatDown() - Try - ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try + Try + ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try - End Sub + End Sub - Public Sub ClearChat() + Public Sub ClearChat() - ssh.Chat = "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() + ssh.Chat = "" + ChatText.DocumentText = ssh.Chat + ChatText2.DocumentText = ssh.Chat + ChatReadyState() - End Sub + End Sub - Public Sub ChatReadyState() - While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete - Application.DoEvents() - End While - ScrollChatDown() - End Sub + Public Sub ChatReadyState() + While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete + Application.DoEvents() + End While + ScrollChatDown() + End Sub #End Region ' Chatbox #Region "------------------------------------ Avoid the Edge --------------------------------------------" - Private Sub AvoidTheEdge_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvoidTheEdge.Tick + Private Sub AvoidTheEdge_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvoidTheEdge.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return - If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AvoidTheEdgeTick < 6 Then Return + If chatBox.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.AvoidTheEdgeTick < 6 Then Return + If ssh.FollowUp <> "" And ssh.AvoidTheEdgeTick < 6 Then Return - ssh.AvoidTheEdgeTick -= 1 + ssh.AvoidTheEdgeTick -= 1 - If ssh.AvoidTheEdgeTick < 1 Then + If ssh.AvoidTheEdgeTick < 1 Then - Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" - If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" + Dim AvoidTheEdgeVideo As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdge.txt" + If ssh.DommeVideo = True Then AvoidTheEdgeVideo = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\AvoidTheEdgeD.txt" - Dim AvoidTheEdgeLineStart As Integer - Dim AvoidTheEdgeLineEnd As Integer + Dim AvoidTheEdgeLineStart As Integer + Dim AvoidTheEdgeLineEnd As Integer - If File.Exists(AvoidTheEdgeVideo) Then - Else - If ssh.DommeVideo = True Then - MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") - Else - MsgBox("AvoidTheEdge.txt is missing!", , "Error!") - End If - Return - End If + If File.Exists(AvoidTheEdgeVideo) Then + Else + If ssh.DommeVideo = True Then + MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") + Else + MsgBox("AvoidTheEdge.txt is missing!", , "Error!") + End If + Return + End If - If ssh.AvoidTheEdgeStroking = False Then + If ssh.AvoidTheEdgeStroking = False Then 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) @@ -14616,128 +14587,128 @@ VTSkip: 'End If Using ioFileA As New StreamReader(AvoidTheEdgeVideo) - Dim linesA As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer + Dim linesA As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer + + TempAvoidTheEdgeLine = -1 + While ioFileA.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesA.Add(ioFileA.ReadLine()) + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While - TempAvoidTheEdgeLine = -1 - While ioFileA.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesA.Add(ioFileA.ReadLine()) - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesA(TempAvoidTheEdgeLine) = "[StrokingEnd]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While + End Using - End Using + Else - Else + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + Using ioFileB As New StreamReader(AvoidTheEdgeVideo) + Dim linesB As New List(Of String) + Dim TempAvoidTheEdgeLine As Integer + + TempAvoidTheEdgeLine = -1 + While ioFileB.Peek <> -1 + TempAvoidTheEdgeLine += 1 + linesB.Add(ioFileB.ReadLine()) + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine + If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine + End While - Using ioFileB As New StreamReader(AvoidTheEdgeVideo) - Dim linesB As New List(Of String) - Dim TempAvoidTheEdgeLine As Integer - - TempAvoidTheEdgeLine = -1 - While ioFileB.Peek <> -1 - TempAvoidTheEdgeLine += 1 - linesB.Add(ioFileB.ReadLine()) - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Hardcore" And linesB(TempAvoidTheEdgeLine) = "[HardcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Softcore" And linesB(TempAvoidTheEdgeLine) = "[SoftcoreStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Lesbian" And linesB(TempAvoidTheEdgeLine) = "[LesbianStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Blowjob" And linesB(TempAvoidTheEdgeLine) = "[BlowjobStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femdom" And linesB(TempAvoidTheEdgeLine) = "[FemdomStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "Femsub" And linesB(TempAvoidTheEdgeLine) = "[FemsubStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "JOI" And linesB(TempAvoidTheEdgeLine) = "[JOIStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "CH" And linesB(TempAvoidTheEdgeLine) = "[CHStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOn]" Then AvoidTheEdgeLineStart = TempAvoidTheEdgeLine - If ssh.VideoType = "General" And linesB(TempAvoidTheEdgeLine) = "[GeneralStrokingOff]" Then AvoidTheEdgeLineEnd = TempAvoidTheEdgeLine - End While - - End Using + End Using - End If + End If - Dim ioFile As New StreamReader(AvoidTheEdgeVideo) - Dim lines As New List(Of String) - While ioFile.Peek <> -1 - lines.Add(ioFile.ReadLine()) - End While + Dim ioFile As New StreamReader(AvoidTheEdgeVideo) + Dim lines As New List(Of String) + While ioFile.Peek <> -1 + lines.Add(ioFile.ReadLine()) + End While - Dim AvoidTheEdgeLine As Integer + Dim AvoidTheEdgeLine As Integer 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) - ssh.DomTask = lines(AvoidTheEdgeLine) + ssh.DomTask = lines(AvoidTheEdgeLine) - TypingDelayGeneric() + TypingDelayGeneric() - End If + End If - End Sub + End Sub - Private Sub AvoidTheEdgeResume_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvoidTheEdgeResume.Tick + Private Sub AvoidTheEdgeResume_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvoidTheEdgeResume.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return - If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return - If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.AtECountdown < 6 Then Return + If chatBox.Text <> "" And ssh.AtECountdown < 6 Then Return + If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return - ssh.AtECountdown -= 1 + ssh.AtECountdown -= 1 'Debug.Print("AtECountdown = " & AtECountdown) If ssh.AtECountdown < 1 Then - AvoidTheEdgeResume.Stop() + AvoidTheEdgeResume.Stop() - ssh.FileGoto = "NoAvoidTheEdgeInstructions" - ssh.SkipGotoLine = True - GetGoto() + ssh.FileGoto = "NoAvoidTheEdgeInstructions" + ssh.SkipGotoLine = True + GetGoto() 'domVLC.playlist.play() DomWMP.Ctlcontrols.play() - HandleScripts() - ScriptTimer.Start() + HandleScripts() + ScriptTimer.Start() - End If + End If - End Sub + End Sub #End Region ' Avoid the Edge @@ -14746,18 +14717,18 @@ VTSkip: - Private Sub BtnToggleImageVideo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleImageVideo.Click + Private Sub BtnToggleImageVideo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleImageVideo.Click - If mainPictureBox.Visible = True Then - DomWMP.Visible = True - mainPictureBox.Visible = False - Else - mainPictureBox.Visible = True - DomWMP.Visible = False - End If + If mainPictureBox.Visible = True Then + DomWMP.Visible = True + mainPictureBox.Visible = False + Else + mainPictureBox.Visible = True + DomWMP.Visible = False + End If - End Sub + End Sub Public Sub RunModuleScript(ByVal IsEdging As Boolean) @@ -14765,124 +14736,124 @@ VTSkip: ssh.isLink = False ssh.ShowModule = True ssh.FirstRound = False - ssh.TauntEdging = False + ssh.TauntEdging = False - ssh.AskedToGiveUpSection = False - Dim ModuleList As New List(Of String) + ssh.AskedToGiveUpSection = False + Dim ModuleList As New List(Of String) ModuleList.Clear() Dim ChastityModuleCheck As String = "*.txt" - If My.Settings.Chastity = True And Not IsEdging Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - ChastityModuleCheck = "*_CHASTITY.txt" - End If + If My.Settings.Chastity = True And Not IsEdging Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + ChastityModuleCheck = "*_CHASTITY.txt" + End If - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistModuleFile - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random Module") Then NoPlaylistModuleFile: - If ssh.SetModule <> "" Then - - ssh.FileText = ssh.SetModule - Else - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) - Dim TempModule As String = foundFile - TempModule = Path.GetFileName(TempModule).Replace(".txt", "") - - If IsEdging Then - - Do Until Not TempModule.Contains("\") - TempModule = TempModule.Remove(0, 1) - Loop - End If - - For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If - ElseIf IsEdging Then - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then - ModuleList.Add(foundFile) - End If - Else - If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then - ModuleList.Add(foundFile) - End If - End If - Next - Next - - If ModuleList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" - ElseIf IsEdging Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" - End If - Else - ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) - End If - End If + If ssh.SetModule <> "" Then - Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If + ssh.FileText = ssh.SetModule + Else - End If + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\", FileIO.SearchOption.SearchTopLevelOnly, ChastityModuleCheck) + Dim TempModule As String = foundFile + TempModule = Path.GetFileName(TempModule).Replace(".txt", "") - ssh.SetModule = "" + If IsEdging Then - ssh.DomTask = ssh.DomTask.Replace("@Module", "") + Do Until Not TempModule.Contains("\") + TempModule = TempModule.Remove(0, 1) + Loop + End If + For x As Integer = 0 To FrmSettings.CLBModuleList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If + ElseIf IsEdging Then + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And foundFile.Contains("_EDGING") Then + ModuleList.Add(foundFile) + End If + Else + If FrmSettings.CLBModuleList.Items(x) = TempModule And FrmSettings.CLBModuleList.GetItemChecked(x) = True And Not foundFile.Contains("_EDGING") And Not foundFile.Contains("_CHASTITY") Then + ModuleList.Add(foundFile) + End If + End If + Next + Next - If ssh.SetModuleGoto <> "" Then - ssh.FileGoto = ssh.SetModuleGoto - ssh.SkipGotoLine = True - GetGoto() - ssh.SetModuleGoto = "" - Else - ssh.StrokeTauntVal = -1 - End If + If ModuleList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_CHASTITY.txt" + ElseIf IsEdging Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module_EDGING.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Module.txt" + End If + Else + ssh.FileText = ModuleList(ssh.randomizer.Next(0, ModuleList.Count)) + End If + End If + + Else + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Modules\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + End If - If Not IsEdging Then + ssh.SetModule = "" - If ssh.Playlist = True Then ssh.BookmarkModule = False + ssh.DomTask = ssh.DomTask.Replace("@Module", "") - If ssh.BookmarkModule = True Then - ssh.BookmarkModule = False - ssh.FileText = ssh.BookmarkModuleFile - ssh.StrokeTauntVal = ssh.BookmarkModuleLine - End If - ssh.ScriptTick = 3 + If ssh.SetModuleGoto <> "" Then + ssh.FileGoto = ssh.SetModuleGoto + ssh.SkipGotoLine = True + GetGoto() + ssh.SetModuleGoto = "" + Else + ssh.StrokeTauntVal = -1 + End If - Else - ssh.ScriptTick = 4 - End If + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - ScriptTimer.Start() - End Sub + If Not IsEdging Then + + If ssh.Playlist = True Then ssh.BookmarkModule = False + + If ssh.BookmarkModule = True Then + ssh.BookmarkModule = False + ssh.FileText = ssh.BookmarkModuleFile + ssh.StrokeTauntVal = ssh.BookmarkModuleLine + End If + + ssh.ScriptTick = 3 + + Else + ssh.ScriptTick = 4 + End If + + ScriptTimer.Start() + End Sub @@ -15011,7 +14982,7 @@ NoPlaylistLinkFile: Public Sub RunLastScript() - ClearModes() + ClearModes() ssh.FirstRound = False 'My.Settings.Sys_SubLeftEarly = 0 @@ -15019,7 +14990,7 @@ NoPlaylistLinkFile: SetVariable("SYS_SubLeftEarly", 0) - SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) + SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) @@ -15030,177 +15001,177 @@ NoPlaylistLinkFile: If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile - If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then + If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then NoPlaylistEndFile: - Dim EndList As New List(Of String) - EndList.Clear() + Dim EndList As New List(Of String) + EndList.Clear() - Dim ChastityEndCheck As String - If My.Settings.Chastity = True Then - ChastityEndCheck = "*_CHASTITY.txt" - Else - ChastityEndCheck = "*.txt" - End If + Dim ChastityEndCheck As String + If My.Settings.Chastity = True Then + ChastityEndCheck = "*_CHASTITY.txt" + Else + ChastityEndCheck = "*.txt" + End If - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) - Dim TempEnd As String = foundFile - TempEnd = TempEnd.Replace(".txt", "") - Do Until Not TempEnd.Contains("\") - TempEnd = TempEnd.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - Else - - If ssh.OrgasmRestricted = True Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ - And Not TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If - End If - End If - Next - Next - - - If EndList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" - Else - If ssh.OrgasmRestricted = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" - End If - End If - Else - ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) - End If + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, ChastityEndCheck) + Dim TempEnd As String = foundFile + TempEnd = TempEnd.Replace(".txt", "") + Do Until Not TempEnd.Contains("\") + TempEnd = TempEnd.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + Else - Else - If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" - End If - End If + If ssh.OrgasmRestricted = True Then + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + Else + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ + And Not TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If + End If + End If + Next + Next - If ssh.WorshipMode = False Then - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.LockImage = False - End If + If EndList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_CHASTITY.txt" + Else + If ssh.OrgasmRestricted = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End.txt" + End If + End If + Else + ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) + End If - ssh.StrokeTauntVal = -1 + Else + If ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\End\" & ssh.PlaylistFile(ssh.PlaylistCurrent) & ".txt" + End If + End If - ssh.LastScript = True + If ssh.WorshipMode = False Then + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.LockImage = False + End If - ssh.ScriptTick = 3 - ScriptTimer.Start() + ssh.StrokeTauntVal = -1 - End Sub + ssh.LastScript = True - Public Sub RunLastBegScript() - ClearModes() + ssh.ScriptTick = 3 + ScriptTimer.Start() + + End Sub + + Public Sub RunLastBegScript() + + ClearModes() 'Debug.Print("RunLastBegScript() Called") Dim EndList As New List(Of String) - EndList.Clear() + EndList.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - Dim TempEnd As String = foundFile - TempEnd = TempEnd.Replace(".txt", "") - Do Until Not TempEnd.Contains("\") - TempEnd = TempEnd.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + Dim TempEnd As String = foundFile + TempEnd = TempEnd.Replace(".txt", "") + Do Until Not TempEnd.Contains("\") + TempEnd = TempEnd.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBEndList.Items.Count - 1 - If ssh.OrgasmRestricted = False Then + If ssh.OrgasmRestricted = False Then - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then - EndList.Add(foundFile) - End If - Else - If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then - EndList.Add(foundFile) - End If + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_BEG") Then + EndList.Add(foundFile) + End If + Else + If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And TempEnd.Contains("_RESTRICTED") Then + EndList.Add(foundFile) + End If - End If + End If - Next - Next + Next + Next - If EndList.Count < 1 Then + If EndList.Count < 1 Then - If ssh.OrgasmRestricted = False Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" - End If - Else - ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) - End If + If ssh.OrgasmRestricted = False Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_BEG.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\End_RESTRICTED.txt" + End If + Else + ssh.FileText = EndList(ssh.randomizer.Next(0, EndList.Count)) + End If - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 4 - ScriptTimer.Start() - ssh.LastScript = True + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 4 + ScriptTimer.Start() + ssh.LastScript = True 'RunFileText() End Sub - Public Sub StopEverything() - - ScriptTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False + Public Sub StopEverything() + + ScriptTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False ssh.ExtremeHold = False ssh.HoldTaunts = False ssh.LongTaunts = False @@ -15218,94 +15189,94 @@ NoPlaylistEndFile: ' Unlock OrgasmChances FrmSettings.LockOrgasmChances(False) - ClearModes() + ClearModes() - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If - StrokePace = 0 + StrokePace = 0 - End Sub + End Sub - Private Sub EdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeTauntTimer.Tick + Private Sub EdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeTauntTimer.Tick If MultipleEdgesTimer.Enabled = True Then Return If ssh.InputFlag = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt + FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) ssh.EdgeTauntInt -= 1 - If ssh.EdgeTauntInt < 1 Then + If ssh.EdgeTauntInt < 1 Then - Dim File2Read As String = "" + Dim File2Read As String = "" - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" - End If + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\Edge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" + End If 'Read all lines of the given file. Dim ETLines As List(Of String) = Txt2List(File2Read) - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & - File2Read, ex, "EdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read - End Try + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & + File2Read, ex, "EdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) + ssh.EdgeTauntInt = ssh.randomizer.Next(30, 46) - End If + End If - End Sub + End Sub #Region "--------------------------------------- Hold the Edge ------------------------------------------" - Private Sub HoldEdgeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTimer.Tick + Private Sub HoldEdgeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTimer.Tick 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) ssh.HoldEdgeTime += 1 - ssh.HoldEdgeTimeTotal += 1 + ssh.HoldEdgeTimeTotal += 1 - My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal + My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal - If ssh.InputFlag = True Then Return + If ssh.InputFlag = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return 'If DomTyping = True Then Return If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return - If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return - If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return + If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return + If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return - ssh.HoldEdgeTick -= 1 + ssh.HoldEdgeTick -= 1 - FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick + FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) If ssh.HoldEdgeTick < 1 Then @@ -15316,31 +15287,31 @@ NoPlaylistEndFile: ssh.HoldTaunts = False ssh.LongTaunts = False ssh.ExtremeTaunts = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" + ssh.WorshipMode = False + ssh.WorshipTarget = "" 'If OrgasmAllowed = True Then GoTo AllowedOrgasm 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then - ssh.LastOrgasmType = "RUINED" - ssh.OrgasmRuined = False - GoTo RuinedOrgasm - End If + ssh.LastOrgasmType = "RUINED" + ssh.OrgasmRuined = False + GoTo RuinedOrgasm + End If - If ssh.OrgasmAllowed = True Then - ssh.LastOrgasmType = "ALLOWED" - ssh.OrgasmAllowed = False - GoTo AllowedOrgasm - End If + If ssh.OrgasmAllowed = True Then + ssh.LastOrgasmType = "ALLOWED" + ssh.OrgasmAllowed = False + GoTo AllowedOrgasm + End If - If ssh.OrgasmDenied = True Then + If ssh.OrgasmDenied = True Then - ssh.LastOrgasmType = "DENIED" + ssh.LastOrgasmType = "DENIED" - If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then + If FrmSettings.CBDomDenialEnds.Checked = False And ssh.TeaseTick < 1 Then - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then ssh.SecondSession = False @@ -15382,39 +15353,39 @@ NoPlaylistEndFile: End If - End If + End If NoRepeatFiles: - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False - ssh.DomTask = "#StopStroking" - If ssh.Contact1Edge = True Then - ssh.DomTask = "@Contact1 #StopStroking" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomTask = "@Contact2 #StopStroking" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomTask = "@Contact3 #StopStroking" - ssh.Contact3Edge = False - End If - TypingDelayGeneric() - Return + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False + ssh.DomTask = "#StopStroking" + If ssh.Contact1Edge = True Then + ssh.DomTask = "@Contact1 #StopStroking" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomTask = "@Contact2 #StopStroking" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomTask = "@Contact3 #StopStroking" + ssh.Contact3Edge = False + End If + TypingDelayGeneric() + Return RuinedOrgasm: - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.OrgasmRuined = True And ssh.TeaseTick < 1 Then - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then @@ -15466,73 +15437,73 @@ NoRepeatRFiles: - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.EdgeToRuin = False - ssh.EdgeToRuinSecret = True - ssh.OrgasmYesNo = False - ssh.DomChat = "#RuinYourOrgasm" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #RuinYourOrgasm" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #RuinYourOrgasm" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #RuinYourOrgasm" - ssh.Contact3Edge = False - End If - TypingDelay() - Return + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.EdgeToRuin = False + ssh.EdgeToRuinSecret = True + ssh.OrgasmYesNo = False + ssh.DomChat = "#RuinYourOrgasm" + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #RuinYourOrgasm" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #RuinYourOrgasm" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #RuinYourOrgasm" + ssh.Contact3Edge = False + End If + TypingDelay() + Return AllowedOrgasm: - If My.Settings.OrgasmsLocked = True Then + If My.Settings.OrgasmsLocked = True Then - If My.Settings.OrgasmsRemaining < 1 Then + If My.Settings.OrgasmsRemaining < 1 Then - Dim NoCumList As New List(Of String) + Dim NoCumList As New List(Of String) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - NoCumList.Add(foundFile) - Next + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Out of Orgasms\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + NoCumList.Add(foundFile) + Next - If NoCumList.Count < 1 Then GoTo NoNoCumFiles + If NoCumList.Count < 1 Then GoTo NoNoCumFiles - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False 'ShowModule = True ssh.StrokeTauntVal = -1 - ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) - ssh.ScriptTick = 2 - ScriptTimer.Start() - Return - End If + ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) + ssh.ScriptTick = 2 + ScriptTimer.Start() + Return + End If - My.Settings.OrgasmsRemaining -= 1 + My.Settings.OrgasmsRemaining -= 1 - End If + End If NoNoCumFiles: - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then + If FrmSettings.CBDomOrgasmEnds.Checked = False And ssh.TeaseTick < 1 Then - Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) + Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then @@ -15583,436 +15554,436 @@ NoNoCumFiles: NoRepeatOFiles: - ssh.DomTypeCheck = True - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - ssh.SubHoldingEdge = False - ssh.SubStroking = False - ssh.OrgasmYesNo = False + ssh.DomTypeCheck = True + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + ssh.SubHoldingEdge = False + ssh.SubStroking = False + ssh.OrgasmYesNo = False 'OrgasmAllowed = False ssh.DomChat = "#CumForMe" - If ssh.Contact1Edge = True Then - ssh.DomChat = "@Contact1 #CumForMe" - ssh.Contact1Edge = False - End If - If ssh.Contact2Edge = True Then - ssh.DomChat = "@Contact2 #CumForMe" - ssh.Contact2Edge = False - End If - If ssh.Contact3Edge = True Then - ssh.DomChat = "@Contact3 #CumForMe" - ssh.Contact3Edge = False - End If - TypingDelay() - Return + If ssh.Contact1Edge = True Then + ssh.DomChat = "@Contact1 #CumForMe" + ssh.Contact1Edge = False + End If + If ssh.Contact2Edge = True Then + ssh.DomChat = "@Contact2 #CumForMe" + ssh.Contact2Edge = False + End If + If ssh.Contact3Edge = True Then + ssh.DomChat = "@Contact3 #CumForMe" + ssh.Contact3Edge = False + End If + TypingDelay() + Return - End If + End If - End Sub + End Sub - Private Sub HoldEdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick + Private Sub HoldEdgeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTauntTimer.Tick If ssh.InputFlag = True Then Return - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return - If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ssh.DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.EdgeTauntInt < 6 Then Return + If chatBox.Text <> "" And ssh.EdgeTauntInt < 6 Then Return + If ChatBox2.Text <> "" And ssh.EdgeTauntInt < 6 Then Return - ssh.EdgeTauntInt -= 1 + ssh.EdgeTauntInt -= 1 - If ssh.EdgeTauntInt < 1 Then + If ssh.EdgeTauntInt < 1 Then - Dim File2Read As String = "" + Dim File2Read As String = "" - If ssh.GlitterTease = False Then - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" - Else - File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" - End If + If ssh.GlitterTease = False Then + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\HoldTheEdge.txt" + Else + File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" + End If ' Read all lines of given file. Dim ETLines As List(Of String) = Txt2List(File2Read) - Try - ETLines = FilterList(ETLines) - ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read - End Try + Try + ETLines = FilterList(ETLines) + ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & + File2Read, ex, "HoldEdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) + ssh.EdgeTauntInt = ssh.randomizer.Next(15, 31) - End If + End If - End Sub + End Sub #End Region ' Hold the Edge - Public Sub CreateTaskLetter() + Public Sub CreateTaskLetter() - Dim TaskEntry As String + Dim TaskEntry As String - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Greeting.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Intro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon - If ssh.GeneralTime = "Night" Then GoTo Night + If ssh.GeneralTime = "Afternoon" Then GoTo Afternoon + If ssh.GeneralTime = "Night" Then GoTo Night - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_1.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_1-2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Afternoon: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_2.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Link_2-3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine Night: - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Task_3.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Outro.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") - ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine + TaskEntry = CleanTaskLines(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Tasks\Signature.txt") + ssh.TaskText = ssh.TaskText & TaskEntry & " " & Environment.NewLine & Environment.NewLine - If FrmSettings.CBHonorificInclude.Checked = True Then + If FrmSettings.CBHonorificInclude.Checked = True Then ssh.TaskText = ssh.TaskText & ssh.tempHonorific & " " & ssh.tempDomName Else - ssh.TaskText = ssh.TaskText & ssh.tempDomName - End If + ssh.TaskText = ssh.TaskText & ssh.tempDomName + End If - ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") + ssh.TaskText = System.Text.RegularExpressions.Regex.Replace(ssh.TaskText, "[ ]{2,}", " ") - Dim TempDate As String - Dim TempDateNow As DateTime = DateTime.Now + Dim TempDate As String + Dim TempDateNow As DateTime = DateTime.Now - TempDate = TempDateNow.ToString("M dd") + TempDate = TempDateNow.ToString("M dd") - ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" - My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) + ssh.TaskTextDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Received Files\Tasks for " & TempDate & ".txt" + My.Computer.FileSystem.WriteAllText(ssh.TaskTextDir, ssh.TaskText, False) - ssh.TaskText = "" + ssh.TaskText = "" - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" - PNLFileTransfer.Visible = True - PNLFileTransfer.BringToFront() + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + PNLFileTransfer.Visible = True + PNLFileTransfer.BringToFront() - StupidTimer.Start() + StupidTimer.Start() - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - Debug.Print("Created " & ssh.GeneralTime & " Task Letter") - Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") + Debug.Print("Created " & ssh.GeneralTime & " Task Letter") + Debug.Print("<><><><><><><><><><><><><><><><><><><><><>") - End Sub + End Sub - Public Function CleanTaskLines(ByVal dir As String) As String - Try - Dim TaskLines As List(Of String) = Txt2List(dir) - Dim TaskEntry As String - Dim TaskArray As String() - Dim TaskList As New List(Of String) + Public Function CleanTaskLines(ByVal dir As String) As String + Try + Dim TaskLines As List(Of String) = Txt2List(dir) + Dim TaskEntry As String + Dim TaskArray As String() + Dim TaskList As New List(Of String) - TaskLines = FilterList(TaskLines) - If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") + TaskLines = FilterList(TaskLines) + If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") - TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) + TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) - Dim LoopBuffer As Integer + Dim LoopBuffer As Integer - TaskArray = TaskEntry.Split(" ") - For i As Integer = 0 To TaskArray.Count - 1 - TaskList.Add(TaskArray(i)) - Next - TaskEntry = "" - For i As Integer = 0 To TaskList.Count - 1 - Try - LoopBuffer = 0 + TaskArray = TaskEntry.Split(" ") + For i As Integer = 0 To TaskArray.Count - 1 + TaskList.Add(TaskArray(i)) + Next + TaskEntry = "" + For i As Integer = 0 To TaskList.Count - 1 + Try + LoopBuffer = 0 PoundLoop: - LoopBuffer += 1 + LoopBuffer += 1 - TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") - TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") - TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") + TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") + TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") + TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") - TaskList(i) = PoundClean(TaskList(i)) - If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop + TaskList(i) = PoundClean(TaskList(i)) + If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop - TaskEntry = TaskEntry & TaskList(i) & " " - Catch - End Try - Next + TaskEntry = TaskEntry & TaskList(i) & " " + Catch + End Try + Next - Dim int As Integer + Dim int As Integer - If TaskEntry.Contains("#TaskEdges") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskEdges", int) - Loop Until Not TaskEntry.Contains("#TaskEdges") - End If + If TaskEntry.Contains("#TaskEdges") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskEdges", int) + Loop Until Not TaskEntry.Contains("#TaskEdges") + End If - If TaskEntry.Contains("#TaskStrokes") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) - If int > 10 Then int = 10 * Math.Round(int / 10) - TaskEntry = TaskEntry.Replace("#TaskStrokes", int) - Loop Until Not TaskEntry.Contains("#TaskStrokes") - End If + If TaskEntry.Contains("#TaskStrokes") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) + If int > 10 Then int = 10 * Math.Round(int / 10) + TaskEntry = TaskEntry.Replace("#TaskStrokes", int) + Loop Until Not TaskEntry.Contains("#TaskStrokes") + End If - If TaskEntry.Contains("#TaskHours") Then - Do - int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskHours", int) - Loop Until Not TaskEntry.Contains("#TaskHours") - End If + If TaskEntry.Contains("#TaskHours") Then + Do + int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskHours", int) + Loop Until Not TaskEntry.Contains("#TaskHours") + End If - If TaskEntry.Contains("#TaskMinutes") Then - Do - int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value - TaskEntry = TaskEntry.Replace("#TaskMinutes", int) - Loop Until Not TaskEntry.Contains("#TaskMinutes") - End If + If TaskEntry.Contains("#TaskMinutes") Then + Do + int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value + TaskEntry = TaskEntry.Replace("#TaskMinutes", int) + Loop Until Not TaskEntry.Contains("#TaskMinutes") + End If - If TaskEntry.Contains("#TaskSeconds") Then - Do - int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) - TaskEntry = TaskEntry.Replace("#TaskSeconds", int) - Loop Until Not TaskEntry.Contains("#TaskSeconds") - End If + If TaskEntry.Contains("#TaskSeconds") Then + Do + int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + TaskEntry = TaskEntry.Replace("#TaskSeconds", int) + Loop Until Not TaskEntry.Contains("#TaskSeconds") + End If - If TaskEntry.Contains("#TaskAmountLarge") Then - Do - int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) - Loop Until Not TaskEntry.Contains("#TaskAmountLarge") - End If + If TaskEntry.Contains("#TaskAmountLarge") Then + Do + int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountLarge", int) + Loop Until Not TaskEntry.Contains("#TaskAmountLarge") + End If - If TaskEntry.Contains("#TaskAmountSmall") Then - Do - int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) - Loop Until Not TaskEntry.Contains("#TaskAmountSmall") - End If + If TaskEntry.Contains("#TaskAmountSmall") Then + Do + int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmountSmall", int) + Loop Until Not TaskEntry.Contains("#TaskAmountSmall") + End If - If TaskEntry.Contains("#TaskAmount") Then - Do - int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value - If int > 5 Then int = 5 * Math.Round(int / 5) - TaskEntry = TaskEntry.Replace("#TaskAmount", int) - Loop Until Not TaskEntry.Contains("#TaskAmount") - End If + If TaskEntry.Contains("#TaskAmount") Then + Do + int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value + If int > 5 Then int = 5 * Math.Round(int / 5) + TaskEntry = TaskEntry.Replace("#TaskAmount", int) + Loop Until Not TaskEntry.Contains("#TaskAmount") + End If - If TaskEntry.Contains("#TaskStrokingTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskStrokingTime") - End If + If TaskEntry.Contains("#TaskStrokingTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskStrokingTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskStrokingTime") + End If - If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") - End If + If TaskEntry.Contains("#TaskHoldTheEdgeTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskHoldTheEdgeTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskHoldTheEdgeTime") + End If - If TaskEntry.Contains("#TaskCBTTime") Then - Do - int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) - int *= 60 - Dim TConvert As String = ConvertSeconds(int) - TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) - Loop Until Not TaskEntry.Contains("#TaskCBTTime") - End If + If TaskEntry.Contains("#TaskCBTTime") Then + Do + int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) + Loop Until Not TaskEntry.Contains("#TaskCBTTime") + End If - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("", "") - TaskEntry = TaskEntry.Replace("#Null", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("", "") + TaskEntry = TaskEntry.Replace("#Null", "") - LoopBuffer = 0 + LoopBuffer = 0 - Do - LoopBuffer += 1 - If LoopBuffer > 4 Then Exit Do - TaskEntry = PoundClean(TaskEntry) - Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") + Do + LoopBuffer += 1 + If LoopBuffer > 4 Then Exit Do + TaskEntry = PoundClean(TaskEntry) + Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") - TaskEntry = CommandClean(TaskEntry, True) + TaskEntry = CommandClean(TaskEntry, True) - TaskEntry = StripCommands(TaskEntry) + TaskEntry = StripCommands(TaskEntry) - TaskEntry = Trim(TaskEntry) + TaskEntry = Trim(TaskEntry) - If TaskEntry.Contains("*") Then - TaskEntry = TaskEntry.Replace(". *", " *") - Dim EmoToggle As Boolean = True - For i As Integer = TaskEntry.Length - 1 To 0 Step -1 - If TaskEntry.Substring(i, 1) = "*" Then - If EmoToggle = False Then - EmoToggle = True - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) - Else - EmoToggle = False - TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) - End If - End If - Next - End If + If TaskEntry.Contains("*") Then + TaskEntry = TaskEntry.Replace(". *", " *") + Dim EmoToggle As Boolean = True + For i As Integer = TaskEntry.Length - 1 To 0 Step -1 + If TaskEntry.Substring(i, 1) = "*" Then + If EmoToggle = False Then + EmoToggle = True + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmote.Text) + Else + EmoToggle = False + TaskEntry = TaskEntry.Remove(i, 1).Insert(i, FrmSettings.TBEmoteEnd.Text) + End If + End If + Next + End If - Return TaskEntry - Catch ex As Exception + Return TaskEntry + Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") - Return "ERROR: Tease AI did not return a valid Task line" - End Try - End Function + Return "ERROR: Tease AI did not return a valid Task line" + End Try + End Function - Private Sub BTNFIleTransferDismiss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNFIleTransferDismiss.Click + Private Sub BTNFIleTransferDismiss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNFIleTransferDismiss.Click - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Public Function ShellExecute(ByVal File As String) As Boolean - Dim myProcess As New Process - myProcess.StartInfo.FileName = File - myProcess.StartInfo.UseShellExecute = True - myProcess.StartInfo.RedirectStandardOutput = False - myProcess.Start() - myProcess.Dispose() - End Function + Public Function ShellExecute(ByVal File As String) As Boolean + Dim myProcess As New Process + myProcess.StartInfo.FileName = File + myProcess.StartInfo.UseShellExecute = True + myProcess.StartInfo.RedirectStandardOutput = False + myProcess.Start() + myProcess.Dispose() + End Function - Public Sub BTNFileTransferOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNFileTransferOpen.Click + Public Sub BTNFileTransferOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNFileTransferOpen.Click - ShellExecute(ssh.TaskTextDir) + ShellExecute(ssh.TaskTextDir) - PNLFileTransfer.Visible = False - BTNFileTransferOpen.Visible = False - BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" - PBFileTransfer.Value = 0 + PNLFileTransfer.Visible = False + BTNFileTransferOpen.Visible = False + BTNFIleTransferDismiss.Visible = False + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + PBFileTransfer.Value = 0 - End Sub + End Sub - Private Sub SlideshowTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlideshowTimer.Tick + Private Sub SlideshowTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlideshowTimer.Tick 'TODO: Remove CrossForm data access If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return + If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return - ssh.SlideshowTimerTick -= 1 + ssh.SlideshowTimerTick -= 1 - If ssh.SlideshowTimerTick < 1 Then + If ssh.SlideshowTimerTick < 1 Then TryNext: - If My.Settings.CBSlideshowRandom Then - ssh.SlideshowMain.NavigateNextTease() - Else - ssh.SlideshowMain.NavigateForward() - End If + If My.Settings.CBSlideshowRandom Then + ssh.SlideshowMain.NavigateNextTease() + Else + ssh.SlideshowMain.NavigateForward() + End If - If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ - Or isURL(ssh.SlideshowMain.CurrentImage)) Then - ClearMainPictureBox() - Exit Sub - End If + If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ + Or isURL(ssh.SlideshowMain.CurrentImage)) Then + ClearMainPictureBox() + Exit Sub + End If - Try - ShowImage(ssh.SlideshowMain.CurrentImage, True) - ssh.JustShowedBlogImage = False - ssh.JustShowedSlideshowImage = True + Try + ShowImage(ssh.SlideshowMain.CurrentImage, True) + ssh.JustShowedBlogImage = False + ssh.JustShowedSlideshowImage = True - Catch - GoTo TryNext - End Try + Catch + GoTo TryNext + End Try - ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value - End If + ssh.SlideshowTimerTick = FrmSettings.slideshowNumBox.Value + End If - End Sub + End Sub - Public Sub GetEdgeTickCheck() + Public Sub GetEdgeTickCheck() - If ssh.AlreadyStrokingEdge = True Then + If ssh.AlreadyStrokingEdge = True Then - If ssh.AvgEdgeCount < 5 Then - ssh.EdgeTickCheck = 60 - Else - ssh.EdgeTickCheck = ssh.AvgEdgeStroking - End If + If ssh.AvgEdgeCount < 5 Then + ssh.EdgeTickCheck = 60 + Else + ssh.EdgeTickCheck = ssh.AvgEdgeStroking + End If - Else + Else - If ssh.AvgEdgeCountRest < 5 Then - ssh.EdgeTickCheck = 300 - Else - ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch - End If + If ssh.AvgEdgeCountRest < 5 Then + ssh.EdgeTickCheck = 300 + Else + ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch + End If - End If + End If - End Sub + End Sub - Private Sub EdgeCountTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeCountTimer.Tick + Private Sub EdgeCountTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeCountTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.EdgeCountTick += 1 + ssh.EdgeCountTick += 1 - If FrmSettings.CBEdgeUseAvg.Checked = True Then - If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True - Else - If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True - End If + If FrmSettings.CBEdgeUseAvg.Checked = True Then + If ssh.EdgeCountTick > ssh.EdgeTickCheck Then ssh.LongEdge = True + Else + If ssh.EdgeCountTick > FrmSettings.NBLongEdge.Value * 60 Then ssh.LongEdge = True + End If - Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes - Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds + Dim m As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Minutes + Dim s As Integer = TimeSpan.FromSeconds(ssh.EdgeCountTick).Seconds - Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) + Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) @@ -16021,84 +15992,84 @@ TryNext: 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) End Sub - Private Sub StrokeTimeTotalTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick + Private Sub StrokeTimeTotalTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.SubStroking = False Then Return + If ssh.SubStroking = False Then Return - ssh.StrokeTimeTotal += 1 + ssh.StrokeTimeTotal += 1 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal - Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) + Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - End Sub + End Sub - Private Sub TnAFastSlides_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TnASlides.Tick - Dim tmpSw As New Stopwatch + Private Sub TnAFastSlides_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TnASlides.Tick + Dim tmpSw As New Stopwatch RestartFunction: - tmpSw.Restart() - Try - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") - - Dim tmpImageToShow As String = "" - Dim tmpLateSet As Boolean - - If New Random().Next(0, 101) < 51 Then - tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) - tmpLateSet = True - Else - tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) - tmpLateSet = False - End If + tmpSw.Restart() + Try + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images loaded.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images loaded.") - Try - ShowImage(tmpImageToShow, True) + Dim tmpImageToShow As String = "" + Dim tmpLateSet As Boolean - If tmpLateSet Then - ssh.BoobImage = True - ssh.AssImage = False - Else - ssh.BoobImage = False - ssh.AssImage = True - End If + If New Random().Next(0, 101) < 51 Then + tmpImageToShow = ssh.BoobList(ssh.randomizer.Next(0, ssh.BoobList.Count)) + tmpLateSet = True + Else + tmpImageToShow = ssh.AssList(ssh.randomizer.Next(0, ssh.AssList.Count)) + tmpLateSet = False + End If + + Try + ShowImage(tmpImageToShow, True) + + If tmpLateSet Then + ssh.BoobImage = True + ssh.AssImage = False + Else + ssh.BoobImage = False + ssh.AssImage = True + End If ' If the elapsed time to load an image was longer as the Timer.Interval ' we restart the function instantly, to avoid an unnecessary delay. ' If it took way too long and the Timer was stopped during imagedownload, ' we dont want the timer to restart. If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then - GoTo RestartFunction - End If - Catch ex As Exception + GoTo RestartFunction + End If + Catch ex As Exception ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ ' Remove the ImagePath and retry. ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) - ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) - GoTo RestartFunction - End Try - Catch ex As Exception + ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + GoTo RestartFunction + End Try + Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ TnASlides.Stop() - Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in TnASlides.Tick occured", False) - End Try - End Sub + Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in TnASlides.Tick occured", False) + End Try + End Sub @@ -16110,74 +16081,74 @@ RestartFunction: #Region "---------------------------------------------------- Domme-WMP -------------------------------------------------------" - Private Sub DomWMP_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange + Private Sub DomWMP_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles DomWMP.PlayStateChange - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - If FrmSettings.CBMuteMedia.Checked = True Then - DomWMP.settings.mute = True - End If - End If + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + If FrmSettings.CBMuteMedia.Checked = True Then + DomWMP.settings.mute = True + End If + End If - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then 'Debug.Print("WMP Stopped Called") VideoTimer.Stop() - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False + ssh.EdgeVideo = False + ssh.YesVideo = False + ssh.NoVideo_Mode = False + ssh.CameVideo = False + ssh.RuinedVideo = False - DomWMP.currentPlaylist.clear() + DomWMP.currentPlaylist.clear() - If ssh.CensorshipGame = True Then - CensorshipTimer.Stop() - CensorshipBar.Visible = False - ssh.CensorshipGame = False - ssh.VideoTease = False + If ssh.CensorshipGame = True Then + CensorshipTimer.Stop() + CensorshipBar.Visible = False + ssh.CensorshipGame = False + ssh.VideoTease = False - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - RunFileText() - End If + RunFileText() + End If - If ssh.AvoidTheEdgeGame = True Then + If ssh.AvoidTheEdgeGame = True Then - ssh.TeaseVideo = False - ssh.AvoidTheEdgeGame = False - ssh.AvoidTheEdgeStroking = False - AvoidTheEdgeTaunts.Stop() - ssh.VideoTease = False - ssh.SubStroking = False + ssh.TeaseVideo = False + ssh.AvoidTheEdgeGame = False + ssh.AvoidTheEdgeStroking = False + AvoidTheEdgeTaunts.Stop() + ssh.VideoTease = False + ssh.SubStroking = False - Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) - Debug.Print("TempFileText = " & ssh.TempFileText) + Debug.Print("TempStrokeTauntVal = " & ssh.TempStrokeTauntVal) + Debug.Print("TempFileText = " & ssh.TempFileText) - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - ssh.StrokeTauntVal = ssh.TempStrokeTauntVal - ssh.FileText = ssh.TempFileText + ssh.StrokeTauntVal = ssh.TempStrokeTauntVal + ssh.FileText = ssh.TempFileText - ssh.ScriptTick = 2 - ScriptTimer.Start() + ssh.ScriptTick = 2 + ScriptTimer.Start() 'RunFileText() @@ -16196,159 +16167,159 @@ RestartFunction: 'RunFileText() End If - If ssh.RLGLGame = True Then - RLGLTimer.Stop() - RLGLTauntTimer.Stop() - ssh.RLGLGame = False - ssh.VideoTease = False - ssh.SubStroking = False + If ssh.RLGLGame = True Then + RLGLTimer.Stop() + RLGLTauntTimer.Stop() + ssh.RLGLGame = False + ssh.VideoTease = False + ssh.SubStroking = False - If ssh.RandomizerVideoTease = True Then - ScriptTimer.Stop() - ssh.SaidHello = False - ssh.RandomizerVideoTease = False - StopEverything() - Return - End If + If ssh.RandomizerVideoTease = True Then + ScriptTimer.Stop() + ssh.SaidHello = False + ssh.RandomizerVideoTease = False + StopEverything() + Return + End If - ssh.ScriptTick = 1 - ScriptTimer.Start() + ssh.ScriptTick = 1 + ScriptTimer.Start() - Return - End If + Return + End If - If ssh.TeaseVideo = True Then - ssh.TeaseVideo = False - DomWMP.Ctlcontrols.pause() - RunFileText() - End If + If ssh.TeaseVideo = True Then + ssh.TeaseVideo = False + DomWMP.Ctlcontrols.pause() + RunFileText() + End If - If ssh.LockVideo = False Then - mainPictureBox.Visible = True - DomWMP.Visible = False - End If + If ssh.LockVideo = False Then + mainPictureBox.Visible = True + DomWMP.Visible = False + End If - End If + End If - End Sub + End Sub - Private Sub WMPTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WMPTimer.Tick + Private Sub WMPTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WMPTimer.Tick - If DomWMP.currentPlaylist.count <> 0 Then - Try - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) + If DomWMP.currentPlaylist.count <> 0 Then + Try + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VideoRemaining As Integer = Math.Floor(DomWMP.currentMedia.duration - DomWMP.Ctlcontrols.currentPosition) - Debug.Print("Video Length = " & VideoLength) - Debug.Print("Video Remaining = " & VideoRemaining) - Catch - End Try - End If + Debug.Print("Video Length = " & VideoLength) + Debug.Print("Video Remaining = " & VideoRemaining) + Catch + End Try + End If - If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return + If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) - Dim VidSplit As String() = ssh.VidFile.Split(".") - ssh.VidFile = "" - For i As Integer = 0 To VidSplit.Count - 2 - ssh.VidFile = ssh.VidFile + VidSplit(i) - Next + Dim VidSplit As String() = ssh.VidFile.Split(".") + ssh.VidFile = "" + For i As Integer = 0 To VidSplit.Count - 2 + ssh.VidFile = ssh.VidFile + VidSplit(i) + Next 'Debug.Print(VidFile) If ssh.VidFile = "" Then Exit Sub - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then - Dim SubCheck As String() - Dim PlayPos As Integer - Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) - - Dim SubList As New List(Of String) - SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") - - If Not SubList Is Nothing Then - For i As Integer = 0 To SubList.Count - 1 - SubCheck = SubList(i).Split("]") - SubCheck(0) = SubCheck(0).Replace("[", "") - Dim SubCheck2 As String() = SubCheck(0).Split(":") - - PlayPos = SubCheck2(0) * 3600 - PlayPos += SubCheck2(1) * 60 - PlayPos += SubCheck2(2) - - If WMPPos = PlayPos Then - ssh.DomTask = SubCheck(1) - TypingDelayGeneric() - Debug.Print(SubList(i)) - End If - Next - End If - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then + Dim SubCheck As String() + Dim PlayPos As Integer + Dim WMPPos As Integer = Math.Ceiling(DomWMP.Ctlcontrols.currentPosition) + + Dim SubList As New List(Of String) + SubList = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") + + If Not SubList Is Nothing Then + For i As Integer = 0 To SubList.Count - 1 + SubCheck = SubList(i).Split("]") + SubCheck(0) = SubCheck(0).Replace("[", "") + Dim SubCheck2 As String() = SubCheck(0).Split(":") + + PlayPos = SubCheck2(0) * 3600 + PlayPos += SubCheck2(1) * 60 + PlayPos += SubCheck2(2) + + If WMPPos = PlayPos Then + ssh.DomTask = SubCheck(1) + TypingDelayGeneric() + Debug.Print(SubList(i)) + End If + Next + End If + End If - End Sub + End Sub #End Region 'Domme-WMP - Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter - If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() - End Sub + Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter + If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() + End Sub - Private Sub domAvatar_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel + Private Sub domAvatar_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles domAvatar.MouseWheel - If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then - domAvatar.SizeMode = PictureBoxSizeMode.Zoom - My.Settings.DomAVStretch = False - Else - domAvatar.SizeMode = PictureBoxSizeMode.StretchImage - My.Settings.DomAVStretch = True - End If + If domAvatar.SizeMode = PictureBoxSizeMode.StretchImage Then + domAvatar.SizeMode = PictureBoxSizeMode.Zoom + My.Settings.DomAVStretch = False + Else + domAvatar.SizeMode = PictureBoxSizeMode.StretchImage + My.Settings.DomAVStretch = True + End If - End Sub + End Sub - Private Sub WaitTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaitTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + Private Sub WaitTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaitTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return + If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return 'Debug.Print("WaitTick = " & WaitTick) ssh.WaitTick -= 1 - If ssh.WaitTick < 1 Then - WaitTimer.Stop() - ssh.ScriptTick = 1 - End If + If ssh.WaitTick < 1 Then + WaitTimer.Stop() + ssh.ScriptTick = 1 + End If - End Sub + End Sub - Private Sub StupidTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StupidTimer.Tick + Private Sub StupidTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StupidTimer.Tick - If PBFileTransfer.Value = PBFileTransfer.Maximum Then - StupidTimer.Enabled = False + If PBFileTransfer.Value = PBFileTransfer.Maximum Then + StupidTimer.Enabled = False - LBLFileTransfer.Text = "Download complete!" - BTNFileTransferOpen.Visible = True - BTNFIleTransferDismiss.Visible = True - Exit Sub - End If + LBLFileTransfer.Text = "Download complete!" + BTNFileTransferOpen.Visible = True + BTNFIleTransferDismiss.Visible = True + Exit Sub + End If - PBFileTransfer.Value += 1 + PBFileTransfer.Value += 1 - End Sub + End Sub @@ -16359,37 +16330,37 @@ RestartFunction: - Public Sub SaveExercise() + Public Sub SaveExercise() - If FormLoading = True Then Return + If FormLoading = True Then Return - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) - Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) - For i = 0 To CLBExercise.Items.Count - 1 - BinaryWriter.Write(CStr(CLBExercise.Items(i))) - BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) - Next - BinaryWriter.Close() - FileStream.Dispose() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Create) + Dim BinaryWriter As New System.IO.BinaryWriter(FileStream) + For i = 0 To CLBExercise.Items.Count - 1 + BinaryWriter.Write(CStr(CLBExercise.Items(i))) + BinaryWriter.Write(CBool(CLBExercise.GetItemChecked(i))) + Next + BinaryWriter.Close() + FileStream.Dispose() - End Sub + End Sub - Public Sub LoadExercise() + Public Sub LoadExercise() - CLBExercise.Items.Clear() - Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) - Dim BinaryReader As New System.IO.BinaryReader(FileStream) - CLBExercise.BeginUpdate() - Do While FileStream.Position < FileStream.Length - CLBExercise.Items.Add(BinaryReader.ReadString) - CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) - Loop - CLBExercise.EndUpdate() - BinaryReader.Close() - FileStream.Dispose() + CLBExercise.Items.Clear() + Dim FileStream As New System.IO.FileStream(Application.StartupPath & "\System\VitalSub\ExerciseList.cld", IO.FileMode.Open) + Dim BinaryReader As New System.IO.BinaryReader(FileStream) + CLBExercise.BeginUpdate() + Do While FileStream.Position < FileStream.Length + CLBExercise.Items.Add(BinaryReader.ReadString) + CLBExercise.SetItemChecked(CLBExercise.Items.Count - 1, BinaryReader.ReadBoolean) + Loop + CLBExercise.EndUpdate() + BinaryReader.Close() + FileStream.Dispose() - End Sub + End Sub @@ -16399,51 +16370,51 @@ RestartFunction: - Public Sub RefreshCards() + Public Sub RefreshCards() - FrmCardList.GoldN1.Text = FrmSettings.GN1.Text - FrmCardList.GoldN2.Text = FrmSettings.GN2.Text - FrmCardList.GoldN3.Text = FrmSettings.GN3.Text - FrmCardList.GoldN4.Text = FrmSettings.GN4.Text - FrmCardList.GoldN5.Text = FrmSettings.GN5.Text - FrmCardList.GoldN6.Text = FrmSettings.GN6.Text + FrmCardList.GoldN1.Text = FrmSettings.GN1.Text + FrmCardList.GoldN2.Text = FrmSettings.GN2.Text + FrmCardList.GoldN3.Text = FrmSettings.GN3.Text + FrmCardList.GoldN4.Text = FrmSettings.GN4.Text + FrmCardList.GoldN5.Text = FrmSettings.GN5.Text + FrmCardList.GoldN6.Text = FrmSettings.GN6.Text - FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) - FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) - FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) - FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) - FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) - FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) + FrmCardList.GoldP1.Image = Image.FromFile(My.Settings.GP1) + FrmCardList.GoldP2.Image = Image.FromFile(My.Settings.GP2) + FrmCardList.GoldP3.Image = Image.FromFile(My.Settings.GP3) + FrmCardList.GoldP4.Image = Image.FromFile(My.Settings.GP4) + FrmCardList.GoldP5.Image = Image.FromFile(My.Settings.GP5) + FrmCardList.GoldP6.Image = Image.FromFile(My.Settings.GP6) - FrmCardList.SilverN1.Text = FrmSettings.SN1.Text - FrmCardList.SilverN2.Text = FrmSettings.SN2.Text - FrmCardList.SilverN3.Text = FrmSettings.SN3.Text - FrmCardList.SilverN4.Text = FrmSettings.SN4.Text - FrmCardList.SilverN5.Text = FrmSettings.SN5.Text - FrmCardList.SilverN6.Text = FrmSettings.SN6.Text + FrmCardList.SilverN1.Text = FrmSettings.SN1.Text + FrmCardList.SilverN2.Text = FrmSettings.SN2.Text + FrmCardList.SilverN3.Text = FrmSettings.SN3.Text + FrmCardList.SilverN4.Text = FrmSettings.SN4.Text + FrmCardList.SilverN5.Text = FrmSettings.SN5.Text + FrmCardList.SilverN6.Text = FrmSettings.SN6.Text - FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) - FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) - FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) - FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) - FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) - FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) + FrmCardList.SilverP1.Image = Image.FromFile(My.Settings.SP1) + FrmCardList.SilverP2.Image = Image.FromFile(My.Settings.SP2) + FrmCardList.SilverP3.Image = Image.FromFile(My.Settings.SP3) + FrmCardList.SilverP4.Image = Image.FromFile(My.Settings.SP4) + FrmCardList.SilverP5.Image = Image.FromFile(My.Settings.SP5) + FrmCardList.SilverP6.Image = Image.FromFile(My.Settings.SP6) - FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text - FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text - FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text - FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text - FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text - FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text + FrmCardList.BronzeN1.Text = FrmSettings.BN1.Text + FrmCardList.BronzeN2.Text = FrmSettings.BN2.Text + FrmCardList.BronzeN3.Text = FrmSettings.BN3.Text + FrmCardList.BronzeN4.Text = FrmSettings.BN4.Text + FrmCardList.BronzeN5.Text = FrmSettings.BN5.Text + FrmCardList.BronzeN6.Text = FrmSettings.BN6.Text - FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) - FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) - FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) - FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) - FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) - FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) + FrmCardList.BronzeP1.Image = Image.FromFile(My.Settings.BP1) + FrmCardList.BronzeP2.Image = Image.FromFile(My.Settings.BP2) + FrmCardList.BronzeP3.Image = Image.FromFile(My.Settings.BP3) + FrmCardList.BronzeP4.Image = Image.FromFile(My.Settings.BP4) + FrmCardList.BronzeP5.Image = Image.FromFile(My.Settings.BP5) + FrmCardList.BronzeP6.Image = Image.FromFile(My.Settings.BP6) - End Sub + End Sub @@ -16452,13 +16423,13 @@ RestartFunction: - Public Sub SaveTokens() + Public Sub SaveTokens() - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - End Sub + End Sub @@ -16476,54 +16447,54 @@ RestartFunction: - Private Sub VideoTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoTauntTimer.Tick + Private Sub VideoTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoTauntTimer.Tick 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return - If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return - If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return + If chatBox.Text <> "" And ssh.VideoTauntTick < 6 Then Return + If ChatBox2.Text <> "" And ssh.VideoTauntTick < 6 Then Return - ssh.VideoTauntTick -= 1 + ssh.VideoTauntTick -= 1 - If ssh.VideoTauntTick < 1 Then + If ssh.VideoTauntTick < 1 Then - Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) - If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - Return - End If + Dim FrequencyTemp As Integer = ssh.randomizer.Next(1, 101) + If FrequencyTemp > FrmSettings.TauntSlider.Value * 5 Then + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + Return + End If - Dim VTDir As String + Dim VTDir As String - If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" + If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" 'TODO: Prevent File.Exits() with String.Empty If Not File.Exists(VTDir) Then Return ' Read all lines of the given file. Dim VTList As List(Of String) = Txt2List(VTDir) - Try - VTList = FilterList(VTList) - If VTList.Count < 1 Then Return - ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) - Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "VideoTaunTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir - End Try + Try + VTList = FilterList(VTList) + If VTList.Count < 1 Then Return + ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) + Catch ex As Exception + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + VTDir, ex, "VideoTaunTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir + End Try - TypingDelayGeneric() + TypingDelayGeneric() - ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) + ssh.VideoTauntTick = ssh.randomizer.Next(20, 31) - End If + End If @@ -16533,23 +16504,23 @@ RestartFunction: - End Sub + End Sub - Private Sub TeaseTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TeaseTimer.Tick + Private Sub TeaseTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TeaseTimer.Tick - FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick + FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick 'Debug.Print("TeaseTick = " & TeaseTick) If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.TeaseTick -= 1 + ssh.TeaseTick -= 1 - If ssh.TeaseTick < 1 Then TeaseTimer.Stop() + If ssh.TeaseTick < 1 Then TeaseTimer.Stop() - End Sub + End Sub Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick @@ -16587,7 +16558,7 @@ RestartFunction: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "RLGLTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16640,7 +16611,7 @@ RestartFunction: Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & VTDir, ex, "AvoidTheEdgeTaunts.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16845,7 +16816,7 @@ saveImage: ' Set the filepath to delete from or add to If tmpTsmi Is PicStripTSMIlikeImage Then tmpFilePath = pathLikeList - ElseIf tmpTsmi Is PicStripTSMIdislikeImage + ElseIf tmpTsmi Is PicStripTSMIdislikeImage Then tmpFilePath = pathDislikeList Else Throw New NotImplementedException("This Toolstripmenuitem is not implemented yet") @@ -16940,7 +16911,7 @@ saveImage: If ssh.SlideshowLoaded = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Then Return - Try + Try ssh.newSlideshow = True LoadDommeImageFolder() Catch @@ -18238,47 +18209,47 @@ restartInstantly: If DDiff > 4 And DDiff < 12 Then ssh.GeneralTime = "Afternoon" If DDiff > -21 And DDiff < -11 Then ssh.GeneralTime = "Afternoon" - End If + End If - If ssh.CountUpList.Count > 0 Then + If ssh.CountUpList.Count > 0 Then - For i As Integer = 0 To ssh.CountUpList.Count - 1 - Dim Val1 As Integer + For i As Integer = 0 To ssh.CountUpList.Count - 1 + Dim Val1 As Integer 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i)) Then - Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i))) - Else - Val1 = 0 - End If + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i))) + Else + Val1 = 0 + End If - Val1 += 1 + Val1 += 1 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i), Val1, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i), Val1, False) - Next + Next - End If + End If - If ssh.CountDownList.Count > 0 Then + If ssh.CountDownList.Count > 0 Then - For i As Integer = 0 To ssh.CountDownList.Count - 1 - Dim Val1 As Integer + For i As Integer = 0 To ssh.CountDownList.Count - 1 + Dim Val1 As Integer 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i)) Then - Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i))) - Else - Val1 = 0 - End If + Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i))) + Else + Val1 = 0 + End If - Val1 -= 1 + Val1 -= 1 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i), Val1, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i), Val1, False) - Next + Next - End If + End If ' #DEBUG @@ -20544,17 +20515,17 @@ playLoop: Public Function GetCharCount(ByVal StringClean As String, ByVal Character As String) As Integer Return Len(StringClean) - Len(Replace(StringClean, Character, "")) - End Function + End Function - Public Function GetSubstringCount(ByVal StringClean As String, ByVal Substring As String) As Integer + Public Function GetSubstringCount(ByVal StringClean As String, ByVal Substring As String) As Integer - Dim SubstringCount As Integer = 0 - For i As Integer = 0 To StringClean.Length - 1 - If StringClean.Substring(i).StartsWith(Substring) Then - SubstringCount += 1 - End If - Next - Return SubstringCount + Dim SubstringCount As Integer = 0 + For i As Integer = 0 To StringClean.Length - 1 + If StringClean.Substring(i).StartsWith(Substring) Then + SubstringCount += 1 + End If + Next + Return SubstringCount End Function @@ -21047,5 +21018,37 @@ ShowedBlogImage: End Try Return tmpImgLoc End Function + + Private Sub updateMode(StringClean As String, ByVal modeToUpdate As Dictionary(Of String, Mode)) + + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") + CustomFlag = FixCommas(CustomFlag) + Dim CustomArray As String() = CustomFlag.Split(",") + + If customVocabLines.Count = 0 Then + customVocabLines.Add(CustomArray(0)) + End If + + If CustomArray.Count = 3 Then + For i As Integer = 0 To customVocabLines.Count - 1 + If modeToUpdate.Keys.Contains(customVocabLines(i)) Then modeToUpdate.Remove(customVocabLines(i)) + + Dim NewMode As New Mode + NewMode.Keyword = customVocabLines(i) + NewMode.Type = CustomArray(1) + NewMode.GotoLine = CustomArray(2) + modeToUpdate.Add(customVocabLines(i), NewMode) + Next + End If + + If CustomArray.Count = 2 Then + If CustomArray(1).ToUpper.Contains("NORMAL") Then + If modeToUpdate.Keys.Contains(customVocabLines(0)) Then + modeToUpdate.Remove(customVocabLines(0)) + End If + End If + End If + customVocabLines.Clear() + End Sub End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 29f033b..79ff34e 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -412,11 +412,11 @@ Public Class FrmSettings CBAuditStartup.Checked = My.Settings.AuditStartup sadisticCheckBox.Checked = My.Settings.DomSadistic - degradingCheckBox.Checked = My.Settings.DomDegrading - CFNMCheckBox.Checked = My.Settings.DomCFNM - CBRandomDomme.Checked = My.Settings.CBRandomDomme - CBOutputErrors.Checked = My.Settings.CBOutputErrors - giveupCheckBox.Checked = My.Settings.GiveUpReturn + degradingCheckBox.Checked = My.Settings.DomDegrading + CFNMCheckBox.Checked = My.Settings.DomCFNM + CBRandomDomme.Checked = My.Settings.CBRandomDomme + CBOutputErrors.Checked = My.Settings.CBOutputErrors + giveupCheckBox.Checked = My.Settings.GiveUpReturn If CBAuditStartup.Checked = True Then AuditScripts() @@ -450,12 +450,12 @@ Public Class FrmSettings WBPlaylist.Navigate(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\Playlist\Start\") - For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir} - If tmptbx.DataBindings("Text") Is Nothing Then - Throw New Exception("There is no databinding set on """ & tmptbx.Name & - """'s text-property. Set the databinding and recompile!") - End If - Next + For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir} + If tmptbx.DataBindings("Text") Is Nothing Then + Throw New Exception("There is no databinding set on """ & tmptbx.Name & + """'s text-property. Set the databinding and recompile!") + End If + Next For Each tmptbx As CheckBox In New List(Of CheckBox) From {CBGlitter1, CBGlitter2, CBGlitter3} If tmptbx.DataBindings("Checked") Is Nothing Then @@ -464,7 +464,7 @@ Public Class FrmSettings End If Next - TbxRandomImageDir.Text = My.Settings.RandomImageDir + TbxRandomImageDir.Text = My.Settings.RandomImageDir If My.Settings.TeaseAILanguage = "English" Then EnglishMenu() If My.Settings.TeaseAILanguage = "German" Then GermanMenu() @@ -2970,10 +2970,10 @@ SkipDeserializing: If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.RandomImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowContactRandom = New ContactData(ContactType.Random) - TbxRandomImageDir.Text = My.Settings.RandomImageDir - End If - End Sub - + TbxRandomImageDir.Text = My.Settings.RandomImageDir + End If + End Sub + Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles BTNGlitterD.Click If GetColor.ShowDialog() = DialogResult.OK Then LBLGlitterNCDomme.ForeColor = GetColor.Color @@ -3077,25 +3077,25 @@ SkipDeserializing: TTDir.SetToolTip(sender, "This button allows you to change the color of this contact's name as it appears in the Glitter app.") End Sub - Private Sub LBLContact1ImageDir_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover, TbxRandomImageDir.MouseHover - TTDir.SetToolTip(sender, CType(sender, TextBox).Text) - End Sub + Private Sub LBLContact1ImageDir_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxContact1ImageDir.MouseHover, TbxContact2ImageDir.MouseHover, TbxContact3ImageDir.MouseHover, TbxDomImageDir.MouseHover, TbxRandomImageDir.MouseHover + TTDir.SetToolTip(sender, CType(sender, TextBox).Text) + End Sub - Private Sub Button2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover + Private Sub Button2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover - If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & + If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & "set folders of the same model you're using as your contact.") - If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") - End Sub + If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + End Sub - Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover + Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover - If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes. Each model " & Environment.NewLine & + If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes. Each model " & Environment.NewLine & "should have her own directory containing folders of different imagesets.") - If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") - End Sub + If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + End Sub Private Sub BtnContact1ImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDirClear.Click My.Settings.ResetField(TbxContact1ImageDir, "Text") @@ -3806,7 +3806,7 @@ trypreviousimage: MessageBox.Show(Me, "Refreshing URL-File has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - ElseIf __tmpResult.ErrorText.Capacity > 0 + ElseIf __tmpResult.ErrorText.Capacity > 0 Then MessageBox.Show(Me, "URL Files have been refreshed with errors!" & vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added." & vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), @@ -3842,7 +3842,7 @@ trypreviousimage: MessageBox.Show(Me, "Rebuilding URL-File has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - ElseIf __tmpResult.ErrorText.Capacity > 0 + ElseIf __tmpResult.ErrorText.Capacity > 0 Then MessageBox.Show(Me, "URL Files have been rebuilded with errors!" & vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total." & @@ -4034,7 +4034,7 @@ checkFolder: Else GoTo set_default End If - ElseIf count_top = 0 And count_all > count_top And subDirectories = False + ElseIf count_top = 0 And count_all > count_top And subDirectories = False Then ' ======================== none in top, but in sub ->enable sub? ====================== If MessageBox.Show(ActiveForm, "The directory """ & directoryPath & """ doesn't contain images, but it's " & @@ -7664,8 +7664,8 @@ checkFolder: My.Settings.DomVulgar = vulgarCheckBox.Checked My.Settings.DomSupremacist = supremacistCheckBox.Checked My.Settings.DomSadistic = sadisticCheckBox.Checked - My.Settings.DomDegrading = degradingCheckBox.Checked - My.Settings.DomCFNM = CFNMCheckBox.Checked + My.Settings.DomDegrading = degradingCheckBox.Checked + My.Settings.DomCFNM = CFNMCheckBox.Checked My.Settings.GiveUpReturn = giveupCheckBox.Checked My.Settings.pnSetting1 = petnameBox1.Text My.Settings.pnSetting2 = petnameBox2.Text @@ -7722,8 +7722,8 @@ checkFolder: vulgarCheckBox.Checked = My.Settings.DomVulgar supremacistCheckBox.Checked = My.Settings.DomSupremacist sadisticCheckBox.Checked = My.Settings.DomSadistic - degradingCheckBox.Checked = My.Settings.DomDegrading - CFNMCheckBox.Checked = My.Settings.DomCFNM + degradingCheckBox.Checked = My.Settings.DomDegrading + CFNMCheckBox.Checked = My.Settings.DomCFNM giveupCheckBox.Checked = My.Settings.GiveUpReturn petnameBox1.Text = My.Settings.pnSetting1 petnameBox2.Text = My.Settings.pnSetting2 @@ -9971,13 +9971,13 @@ checkFolder: My.Settings.DomDegrading = degradingCheckBox.Checked End Sub - Private Sub CFNMCheckBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CFNMCheckBox.LostFocus - My.Settings.DomCFNM = CFNMCheckBox.Checked - End Sub + Private Sub CFNMCheckBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CFNMCheckBox.LostFocus + My.Settings.DomCFNM = CFNMCheckBox.Checked + End Sub - Private Sub CBRandomDomme_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRandomDomme.LostFocus - My.Settings.CBRandomDomme = CBRandomDomme.Checked - End Sub + Private Sub CBRandomDomme_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRandomDomme.LostFocus + My.Settings.CBRandomDomme = CBRandomDomme.Checked + End Sub Private Sub CBWebtease_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBWebtease.CheckedChanged If CBWebtease.Checked = True Then @@ -10351,174 +10351,174 @@ checkFolder: End Sub - - Private Sub BTNValidateSystemFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.Click - Dim ValidateCount As Integer + Private Sub BTNValidateSystemFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.Click - For Each Dir As String In myDirectory.GetDirectories(Application.StartupPath & "\Scripts\") - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\System\System Files\", FileIO.SearchOption.SearchAllSubDirectories, "*.*") - If Not File.Exists(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) Then - If Not System.IO.Directory.Exists(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) Then - System.IO.Directory.CreateDirectory(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) - End If - System.IO.File.Copy(foundFile, Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) - ValidateCount += 1 - End If - Next - Next + Dim ValidateCount As Integer - Dim output As String = "All Personalities have been validated!" & Environment.NewLine & Environment.NewLine & ValidateCount & " System Files were added." - output = output.Replace(Environment.NewLine & "1 System Files were added.", Environment.NewLine & "1 System File was added.") + For Each Dir As String In myDirectory.GetDirectories(Application.StartupPath & "\Scripts\") + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\System\System Files\", FileIO.SearchOption.SearchAllSubDirectories, "*.*") + If Not File.Exists(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) Then + If Not System.IO.Directory.Exists(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) Then + System.IO.Directory.CreateDirectory(Path.GetDirectoryName(Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", ""))) + End If + System.IO.File.Copy(foundFile, Dir & "\" & foundFile.Replace(Application.StartupPath & "\System\System Files\", "")) + ValidateCount += 1 + End If + Next + Next + + Dim output As String = "All Personalities have been validated!" & Environment.NewLine & Environment.NewLine & ValidateCount & " System Files were added." + output = output.Replace(Environment.NewLine & "1 System Files were added.", Environment.NewLine & "1 System File was added.") + + MessageBox.Show(output, "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) - MessageBox.Show(output, "Finished!", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Sub - End Sub + Private Sub BTNValidateSystemFiles_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.MouseHover - Private Sub BTNValidateSystemFiles_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNValidateSystemFiles.MouseHover + TTDir.SetToolTip(BTNValidateSystemFiles, "Searches each installed Personality and automatically" & Environment.NewLine & "creates any missing System Files in the correct folders.") - TTDir.SetToolTip(BTNValidateSystemFiles, "Searches each installed Personality and automatically" & Environment.NewLine & "creates any missing System Files in the correct folders.") + End Sub - End Sub + Private Sub BTNDomChangeDomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeDomme.Click + Ssh.glitterDommeNumber = 0 + Form1.LoadDommeImageFolder() + End Sub - Private Sub BTNDomChangeDomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeDomme.Click - Ssh.glitterDommeNumber = 0 - Form1.LoadDommeImageFolder() - End Sub + Private Sub BTNDomChangeRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeRandom.Click + Ssh.glitterDommeNumber = 4 + Form1.LoadDommeImageFolder() + End Sub - Private Sub BTNDomChangeRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeRandom.Click - Ssh.glitterDommeNumber = 4 - Form1.LoadDommeImageFolder() - End Sub + Private Sub BTNDomChangeContact1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact1.Click + Ssh.glitterDommeNumber = 1 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact2.Click + Ssh.glitterDommeNumber = 2 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub BTNDomChangeContact3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact3.Click + Ssh.glitterDommeNumber = 3 + Form1.LoadDommeImageFolder() + End Sub + + Private Sub CBOutputErrors_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOutputErrors.LostFocus + My.Settings.CBOutputErrors = CBOutputErrors.Checked + End Sub - Private Sub BTNDomChangeContact1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact1.Click - Ssh.glitterDommeNumber = 1 - Form1.LoadDommeImageFolder() - End Sub - - Private Sub BTNDomChangeContact2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact2.Click - Ssh.glitterDommeNumber = 2 - Form1.LoadDommeImageFolder() - End Sub - - Private Sub BTNDomChangeContact3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomChangeContact3.Click - Ssh.glitterDommeNumber = 3 - Form1.LoadDommeImageFolder() - End Sub - - Private Sub CBOutputErrors_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOutputErrors.LostFocus - My.Settings.CBOutputErrors = CBOutputErrors.Checked - End Sub - - Private Sub BTNURLFileReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFileReplace.Click - - If TBURLFileReplace.Text = "" Or TBURLFileWith.Text = "" Then - MessageBox.Show("Please enter the text to be replaced!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Exit Sub - End If - - Dim ReplaceCount As Integer = 0 - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\URL Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - - - Dim CheckFiles As String() = File.ReadAllLines(foundFile) - - Dim GoodLines As New List(Of String) - - For Each line As String In CheckFiles - If line.Contains(TBURLFileReplace.Text & ".media") Then - line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") - ReplaceCount += 1 - GoodLines.Add(line) - Else - GoodLines.Add(line) - End If - Next - - Dim fs As New FileStream(foundFile, FileMode.Create) - Dim sw As New StreamWriter(fs) - - - For i As Integer = 0 To GoodLines.Count - 1 - If i <> GoodLines.Count - 1 Then - sw.WriteLine(GoodLines(i)) - Else - sw.Write(GoodLines(i)) - End If - Next - - sw.Close() - sw.Dispose() - - fs.Close() - fs.Dispose() - - - Next - - - If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then - Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\LikedImageURLs.txt") - Dim GoodLines As New List(Of String) - For Each line As String In CheckFiles - If line.Contains(TBURLFileReplace.Text & ".media") Then - line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") - ReplaceCount += 1 - GoodLines.Add(line) - Else - GoodLines.Add(line) - End If - Next - Dim fs As New FileStream(Application.StartupPath & "\Images\System\LikedImageURLs.txt", FileMode.Create) - Dim sw As New StreamWriter(fs) - For i As Integer = 0 To GoodLines.Count - 1 - If i <> GoodLines.Count - 1 Then - sw.WriteLine(GoodLines(i)) - Else - sw.Write(GoodLines(i)) - End If - Next - sw.Close() - sw.Dispose() - fs.Close() - fs.Dispose() - End If - - If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then - Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") - Dim GoodLines As New List(Of String) - For Each line As String In CheckFiles - If line.Contains(TBURLFileReplace.Text & ".media") Then - line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") - ReplaceCount += 1 - GoodLines.Add(line) - Else - GoodLines.Add(line) - End If - Next - Dim fs As New FileStream(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", FileMode.Create) - Dim sw As New StreamWriter(fs) - For i As Integer = 0 To GoodLines.Count - 1 - If i <> GoodLines.Count - 1 Then - sw.WriteLine(GoodLines(i)) - Else - sw.Write(GoodLines(i)) - End If - Next - sw.Close() - sw.Dispose() - fs.Close() - fs.Dispose() - End If - - - - - MessageBox.Show("All URL File servers have been successfully replaced!" & Environment.NewLine & Environment.NewLine & ReplaceCount & " image locations have been changed.", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) - - - - End Sub + Private Sub BTNURLFileReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFileReplace.Click + + If TBURLFileReplace.Text = "" Or TBURLFileWith.Text = "" Then + MessageBox.Show("Please enter the text to be replaced!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Exit Sub + End If + + Dim ReplaceCount As Integer = 0 + + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\URL Files\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + + + Dim CheckFiles As String() = File.ReadAllLines(foundFile) + + Dim GoodLines As New List(Of String) + + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + + Dim fs As New FileStream(foundFile, FileMode.Create) + Dim sw As New StreamWriter(fs) + + + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + + sw.Close() + sw.Dispose() + + fs.Close() + fs.Dispose() + + + Next + + + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\LikedImageURLs.txt") + Dim GoodLines As New List(Of String) + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + Dim fs As New FileStream(Application.StartupPath & "\Images\System\LikedImageURLs.txt", FileMode.Create) + Dim sw As New StreamWriter(fs) + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + sw.Close() + sw.Dispose() + fs.Close() + fs.Dispose() + End If + + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + Dim CheckFiles As String() = File.ReadAllLines(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") + Dim GoodLines As New List(Of String) + For Each line As String In CheckFiles + If line.Contains(TBURLFileReplace.Text & ".media") Then + line = line.Replace(TBURLFileReplace.Text & ".media", TBURLFileWith.Text & ".media") + ReplaceCount += 1 + GoodLines.Add(line) + Else + GoodLines.Add(line) + End If + Next + Dim fs As New FileStream(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", FileMode.Create) + Dim sw As New StreamWriter(fs) + For i As Integer = 0 To GoodLines.Count - 1 + If i <> GoodLines.Count - 1 Then + sw.WriteLine(GoodLines(i)) + Else + sw.Write(GoodLines(i)) + End If + Next + sw.Close() + sw.Dispose() + fs.Close() + fs.Dispose() + End If + + + + + MessageBox.Show("All URL File servers have been successfully replaced!" & Environment.NewLine & Environment.NewLine & ReplaceCount & " image locations have been changed.", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) + + + + End Sub End Class \ No newline at end of file From b29593ad932a532f3029a18736b3cf2498ed043c Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 16 Apr 2017 16:54:50 +0200 Subject: [PATCH 075/143] new test --- .../Classes/SessionState.ScriptPosition.vb | 8 +- Tease AI/Classes/State.vb | 28 +- Tease AI/Form1.vb | 1176 ++++++++--------- Tease AI/Form2.vb | 930 ++++++------- 4 files changed, 1071 insertions(+), 1071 deletions(-) diff --git a/Tease AI/Classes/SessionState.ScriptPosition.vb b/Tease AI/Classes/SessionState.ScriptPosition.vb index 4f880aa..983a809 100644 --- a/Tease AI/Classes/SessionState.ScriptPosition.vb +++ b/Tease AI/Classes/SessionState.ScriptPosition.vb @@ -27,17 +27,17 @@ Partial Class SessionState End Set End Property - Public Property Line As Integer = -1 + Public Property Line As Integer = -1 - Public Property GotoStatus As Boolean = False + Public Property GotoStatus As Boolean = False Public Property LineGoTo As String = "" Public Property ReturnState As String = "" - ''' Creates a new instance with given parameters. + ''' Creates a new instance with given parameters. - Sub New(ByVal session As SessionState, ByVal filepath As String, ByVal line As Integer, ByVal goToStatus As Boolean, ByVal lineGoTo As String, returnState As String) + Sub New(ByVal session As SessionState, ByVal filepath As String, ByVal line As Integer, ByVal goToStatus As Boolean, ByVal lineGoTo As String, returnState As String) Me.Session = session diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 15fe150..b17f4b1 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -763,7 +763,7 @@ Public Class SessionState '#Disable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 #If _MSC_VER > 1600 Then - #Disable Warning BC40000 +#Disable Warning BC40000 #End If ' Marked as have to be initialized on every deserialization. @@ -785,7 +785,7 @@ Public Class SessionState '#Enable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 #If _MSC_VER > 1600 Then - #Enable Warning BC40000 +#Enable Warning BC40000 #End If End Sub @@ -802,7 +802,7 @@ Public Class SessionState ''' This function is invoked on the given Form's UI-Thread. Sub FetchFormData(ByVal serializeForm As Form1) If serializeForm IsNot Nothing _ - AndAlso serializeForm.InvokeRequired Then + AndAlso serializeForm.InvokeRequired Then ' Calling from another Thread -> Invoke on controls UI-Thread Dim Act As Action(Of Form1) = Sub(s1) FetchFormData(s1) serializeForm.Invoke(Act) @@ -891,7 +891,7 @@ Public Class SessionState ' Get Flags '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ If serialized_Flags Is Nothing Then _ - serialized_Flags = New List(Of String) + serialized_Flags = New List(Of String) serialized_Flags.Clear() @@ -903,7 +903,7 @@ Public Class SessionState ' Get temporary Flags If serialized_FlagsTemp Is Nothing Then _ - serialized_FlagsTemp = New List(Of String) + serialized_FlagsTemp = New List(Of String) serialized_FlagsTemp.Clear() If Directory.Exists(Folders.TempFlags) Then @@ -916,7 +916,7 @@ Public Class SessionState ' Get Variables '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ If serialized_Variables Is Nothing Then _ - serialized_Variables = New Dictionary(Of String, String) + serialized_Variables = New Dictionary(Of String, String) serialized_Variables.Clear() @@ -940,7 +940,7 @@ Public Class SessionState Friend Sub Activate(ByVal activateForm As Form1) ' Check if InvokeIsRequired If activateForm IsNot Nothing _ - AndAlso activateForm.InvokeRequired Then + AndAlso activateForm.InvokeRequired Then ' Calling from another Thread -> Invoke on controls UI-Thread Dim Act As Action(Of Form1) = Sub(s1) Activate(s1) activateForm.Invoke(Act) @@ -1013,7 +1013,7 @@ Public Class SessionState For Each fn As String In serialized_Variables.Keys My.Computer.FileSystem.WriteAllText(Folders.Variables & fn, - serialized_Variables(fn), False) + serialized_Variables(fn), False) Next End If @@ -1031,7 +1031,7 @@ Public Class SessionState For Each fn As String In serialized_Flags Using fs As New FileStream(Folders.Flags & fn, - FileMode.Create) : End Using + FileMode.Create) : End Using Next End If '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -1048,7 +1048,7 @@ Public Class SessionState If serialized_FlagsTemp.Count > 0 Then For Each fn As String In serialized_FlagsTemp Using fs As New FileStream(Folders.TempFlags & fn, - FileMode.Create) : End Using + FileMode.Create) : End Using Next End If '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -1192,8 +1192,8 @@ Public Class SessionState Try ' Check if InvokeIsRequired If setActive = True _ - AndAlso ActivationForm IsNot Nothing _ - AndAlso ActivationForm.InvokeRequired Then + AndAlso ActivationForm IsNot Nothing _ + AndAlso ActivationForm.InvokeRequired Then ' Calling from another Thread -> Invoke on controls UI-Thread Dim Act As Action(Of String, Boolean) = Sub(s1, s2) Load(s1, s2) ActivationForm.Invoke(Act) @@ -1202,7 +1202,7 @@ Public Class SessionState ' Called from Controls UI-Thread -> Execute Code. If setActive AndAlso ActivationForm Is Nothing Then _ - Throw New InvalidOperationException("It is impossible to reactivate a not activated session.") + Throw New InvalidOperationException("It is impossible to reactivate a not activated session.") Dim tmpState As SessionState = DirectCast(BinaryDeserialize(filepath), SessionState) @@ -1240,7 +1240,7 @@ Public Class SessionState Public Function Reset() As Boolean ' Check if InvokeIsRequired If ActivationForm IsNot Nothing _ - AndAlso ActivationForm.InvokeRequired Then + AndAlso ActivationForm.InvokeRequired Then ' Calling from another Thread -> Invoke on controls UI-Thread Return CType(ActivationForm.UIThread(AddressOf Reset), Boolean) End If diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 6b94249..e5d82a4 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -101,7 +101,7 @@ Public Class Form1 Friend ReadOnly Property StrokePaceMetronome As Integer Get If Thread.CurrentThread IsNot MetroThread Then _ - Throw New AccessViolationException("Reading StrokePaceMetronome is restricted to MetronomeThread.") + Throw New AccessViolationException("Reading StrokePaceMetronome is restricted to MetronomeThread.") SyncLock _StrokePaceMetronomeSyncLock Dim tmpInt As Integer = _StrokePaceMetronomeUnsynced @@ -127,15 +127,15 @@ Public Class Form1 Private Const SET_FEATURE_ON_PROCESS As Integer = 2 Private Declare Function GetKeyState _ - Lib "user32" _ - (ByVal nVirtKey As Long) As Integer + Lib "user32" _ + (ByVal nVirtKey As Long) As Integer Private Const VK_LBUTTON = &H1 Public Shared Function CoInternetSetFeatureEnabled( - ByVal FeatureEntry As Integer, ByVal dwFlags As Integer, ByVal fEnable As Boolean) As Integer +ByVal FeatureEntry As Integer, ByVal dwFlags As Integer, ByVal fEnable As Boolean) As Integer End Function @@ -277,9 +277,9 @@ retryStart: Dim tv As Version = My.Application.Info.Version Me.Text = String.Format("Tease A.I. - PATCH {0}.{1}{2}", - tv.Minor, - tv.Build, - If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) + tv.Minor, + tv.Build, + If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) FormLoading = True @@ -451,8 +451,8 @@ retryStart: ' If it would be true, this branch Is unreachable My.Settings.CBGlitterFeedScripts = False ElseIf My.Settings.CBGlitterFeed = False _ - AndAlso My.Settings.CBGlitterFeedOff = False _ - AndAlso My.Settings.CBGlitterFeedScripts = False Then + AndAlso My.Settings.CBGlitterFeedOff = False _ + AndAlso My.Settings.CBGlitterFeedScripts = False Then My.Settings.CBGlitterFeedOff = True End If @@ -1134,12 +1134,12 @@ retryStart: Dim btn As MessageBoxButtons = If(Debugger.IsAttached, MessageBoxButtons.AbortRetryIgnore, MessageBoxButtons.RetryCancel) Dim b As MsgBoxResult = - MessageBox.Show("An exception occurred on startup. Tease-AI is unable to work correctly until this error is fixed." & - vbCrLf & vbCrLf & - ex.Message & - vbCrLf & vbCrLf & - "Further details were written to the error log.", "Startup failed", - btn, MessageBoxIcon.Hand) + MessageBox.Show("An exception occurred on startup. Tease-AI is unable to work correctly until this error is fixed." & + vbCrLf & vbCrLf & + ex.Message & + vbCrLf & vbCrLf & + "Further details were written to the error log.", "Startup failed", + btn, MessageBoxIcon.Hand) If b = MsgBoxResult.Abort Or b = MsgBoxResult.Cancel Then Process.GetCurrentProcess().Kill() @@ -1429,7 +1429,7 @@ retryStart: Else ssh.Chat = "" & ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" + My.Settings.SubColor & """>" & subName.Text & ": " & ssh.ChatString & "
" ssh.Chat = "" & ssh.Chat & "" ChatText.DocumentText = ssh.Chat ChatText2.DocumentText = ssh.Chat @@ -1592,7 +1592,7 @@ retryStart: ' Lock Orgasm Chances if setting is activated. If My.Settings.LockOrgasmChances Then _ - FrmSettings.LockOrgasmChances(True) + FrmSettings.LockOrgasmChances(True) If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistStartFile @@ -1723,7 +1723,7 @@ WritingTaskLine: ssh.Chat = "" & ssh.Chat & "" If CBWritingProgress.Checked = True Then ssh.Chat = "" & ssh.Chat & ssh.ChatString & "
 " _ - & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" + & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining", "Time Expired") ssh.Chat = ssh.Chat.Replace(" 1 lines", " 1 line") ssh.Chat = ssh.Chat.Replace(" 0 lines remaining", " Task Completed") @@ -1740,14 +1740,14 @@ WritingTaskLine: If CBWritingProgress.Checked = True Then ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" _ - & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" + My.Settings.SubColor & """>" & subName.Text & ": " & ssh.ChatString & "
" _ + & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining", "Time Expired") ssh.Chat = ssh.Chat.Replace(" 1 lines", " 1 line") ssh.Chat = ssh.Chat.Replace(" 0 lines remaining", " Task Completed") Else ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" + My.Settings.SubColor & """>" & subName.Text & ": " & ssh.ChatString & "
" End If ChatText.DocumentText = ssh.Chat @@ -1793,8 +1793,8 @@ WritingTaskLine: If CBWritingProgress.Checked = True Then ssh.Chat = "" & ssh.Chat & "" & ssh.ChatString & "
" & - "" & "Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & - " mistakes remaining
" + "" & "Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & + " mistakes remaining
" If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & " mistakes remaining", "Time Expired") ssh.Chat = ssh.Chat.Replace(" 1 mistakes", " 1 mistake") ssh.Chat = ssh.Chat.Replace(" 0 mistakes remaining", " Task Failed") @@ -1811,15 +1811,15 @@ WritingTaskLine: If CBWritingProgress.Checked = True Then ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" & - "" & "Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & - " mistakes remaining
" + My.Settings.SubColor & """>" & subName.Text & ": " & ssh.ChatString & "
" & + "" & "Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & + " mistakes remaining
" If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & " mistakes remaining", "Time Expired") ssh.Chat = ssh.Chat.Replace(" 1 mistakes", " 1 mistake") ssh.Chat = ssh.Chat.Replace(" 0 mistakes remaining", " Task Failed") Else ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" + My.Settings.SubColor & """>" & subName.Text & ": " & ssh.ChatString & "
" End If ssh.Chat = "" & ssh.Chat & "" @@ -2875,7 +2875,7 @@ EdgeSkip: If ssh.BeforeTease = False Then If UCase(CheckResponse).Contains(UCase("I cum")) Or UCase(CheckResponse).Contains(UCase("me cum")) Or UCase(CheckResponse).Contains(UCase("I have an orgasm")) _ - Or UCase(CheckResponse).Contains(UCase("me have an orgasm")) Then + Or UCase(CheckResponse).Contains(UCase("me have an orgasm")) Then If ssh.TeaseTick > 0 Then ssh.ResponseFile = (Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\BegToCum.txt") If My.Settings.Chastity = False And ssh.OrgasmRestricted = False Then ssh.TeaseTick = ssh.TeaseTick / 2 @@ -3479,7 +3479,7 @@ FoundState: CleanResponse = DRLines(ssh.ResponseLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Response line from file: " & - ssh.ResponseFile, ex, "ReponseClean(String)") + ssh.ResponseFile, ex, "ReponseClean(String)") CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile End Try @@ -3700,7 +3700,7 @@ AcceptAnswer: ' ArgumentOutOfRangeException - Regular Script '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Throw New ArgumentOutOfRangeException("The Goto-Destination """ & ssh.FileGoto & - """ in file """ & GotoText & """ was not found.", ex) + """ in file """ & GotoText & """ was not found.", ex) End Try ssh.StrokeTauntVal = gotoline @@ -3776,7 +3776,7 @@ AcceptAnswer: ssh.DomTask = BallList(ssh.randomizer.Next(0, BallList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTBalls line from file: " & - File2Read, ex, "CBTBalls()") + File2Read, ex, "CBTBalls()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read End Try @@ -3804,7 +3804,7 @@ AcceptAnswer: ssh.DomTask = CockList(ssh.randomizer.Next(0, CockList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTCock line from file: " & - File2Read, ex, "CBTCock()") + File2Read, ex, "CBTCock()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read End Try @@ -3845,7 +3845,7 @@ AcceptAnswer: ssh.DomTask = BothList(ssh.randomizer.Next(0, BothList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBT line from file: " & - File2Read, ex, "CBTBoth()") + File2Read, ex, "CBTBoth()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read End Try @@ -4707,9 +4707,9 @@ SkipIsTyping: If FrmSettings.teaseRadio.Checked = True And ssh.JustShowedBlogImage = False And ssh.TeaseVideo = False And Not ssh.DomTask.Contains("@NewBlogImage") And ssh.NullResponse = False _ - And ssh.SlideshowLoaded = True And Not ssh.DomTask.Contains("@ShowButtImage") And Not ssh.DomTask.Contains("@ShowBoobsImage") And Not ssh.DomTask.Contains("@ShowButtsImage") _ - And Not ssh.DomTask.Contains("@ShowBoobsImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ - And UCase(ssh.DomTask) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False And ssh.MultiTauntPictureHold = False Then + And ssh.SlideshowLoaded = True And Not ssh.DomTask.Contains("@ShowButtImage") And Not ssh.DomTask.Contains("@ShowBoobsImage") And Not ssh.DomTask.Contains("@ShowButtsImage") _ + And Not ssh.DomTask.Contains("@ShowBoobsImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ + And UCase(ssh.DomTask) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False And ssh.MultiTauntPictureHold = False Then ' Begin Next Button ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TryNextWithTease: @@ -4910,7 +4910,7 @@ NullResponse: Dim RestoreDomTask As String = ssh.DomTask If Not ssh.DomTask.Substring(0, 1) = FrmSettings.TBEmote.Text.Substring(0, 1) And Not ssh.DomTask.Contains("<") And ssh.YesOrNo = False And ssh.TypoSwitch <> 0 And ssh.TyposDisabled = False _ - And FrmSettings.TTSCheckBox.Checked = False Then + And FrmSettings.TTSCheckBox.Checked = False Then Dim TypoChance As Integer = ssh.randomizer.Next(0, 101) @@ -5053,7 +5053,7 @@ NullResponse: If ssh.EmoMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.DomTask & "
" ssh.EmoMes = False GoTo EndSysMes End If @@ -5070,16 +5070,16 @@ NullResponse: If FrmSettings.CBWebtease.Checked = True Then ssh.Chat = "" & "" & "
" & ssh.DomTask & "

" + TextColor & """>
" & ssh.DomTask & "

" Else ssh.Chat = "" & "" & ssh.Chat & ssh.DomTask & "
" + TextColor & """>" & ssh.Chat & ssh.DomTask & "
" End If If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" Else @@ -5087,10 +5087,10 @@ NullResponse: If FrmSettings.CBWebtease.Checked = True Then ssh.Chat = "" & "" & "
" & ssh.DomTask & "

" + TextColor & """>
" & ssh.DomTask & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" End If @@ -5100,7 +5100,7 @@ NullResponse: ssh.TypeToggle = 0 If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" End If @@ -5149,14 +5149,14 @@ DommeSlideshowFallback: '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ChatAddSystemMessage(ex.ToString, False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally @@ -5178,8 +5178,8 @@ DommeSlideshowFallback: ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ - And TTSVoice <> "No voices installed" _ - And ssh.DomTask <> "" Then + And TTSVoice <> "No voices installed" _ + And ssh.DomTask <> "" Then Debug.Print(ssh.DomTask) ssh.DomTask = StripFormat(ssh.DomTask) @@ -5409,8 +5409,8 @@ DommeSlideshowFallback: Public Shared Function GetShortPathName(ByVal lpszLongPath As String, - ByVal lpszShortPath As System.Text.StringBuilder, - ByVal cchBuffer As Int32) As Int32 + ByVal lpszShortPath As System.Text.StringBuilder, + ByVal cchBuffer As Int32) As Int32 End Function Private Sub SendTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SendTimer.Tick @@ -5536,9 +5536,9 @@ NullResponseLine: If ssh.GlitterTease = True And ssh.JustShowedBlogImage = False Then GoTo TryNextWithTease If FrmSettings.teaseRadio.Checked = True And ssh.JustShowedBlogImage = False And ssh.TeaseVideo = False And Not ssh.DomChat.Contains("@NewBlogImage") And ssh.NullResponse = False _ - And ssh.SlideshowLoaded = True And Not ssh.DomChat.Contains("@ShowButtImage") And Not ssh.DomChat.Contains("@ShowBoobsImage") And Not ssh.DomChat.Contains("@ShowButtsImage") _ - And Not ssh.DomChat.Contains("@ShowBoobImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ - And UCase(ssh.DomChat) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False Then + And ssh.SlideshowLoaded = True And Not ssh.DomChat.Contains("@ShowButtImage") And Not ssh.DomChat.Contains("@ShowBoobsImage") And Not ssh.DomChat.Contains("@ShowButtsImage") _ + And Not ssh.DomChat.Contains("@ShowBoobImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ + And UCase(ssh.DomChat) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False Then If ssh.SubStroking = False Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then ' Begin Next Button @@ -5739,7 +5739,7 @@ TryNextWithTease: If ssh.EmoMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.DomChat & "
" ssh.EmoMes = False GoTo EndSysMes End If @@ -5756,31 +5756,31 @@ TryNextWithTease: If FrmSettings.CBWebtease.Checked = True Then ssh.Chat = "" & "" & "
" & ssh.DomChat & "

" + TextColor & """>
" & ssh.DomChat & "

" Else ssh.Chat = "" & "" & ssh.Chat & ssh.DomChat & "
" + TextColor & """>" & ssh.Chat & ssh.DomChat & "
" End If If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" Else If FrmSettings.CBWebtease.Checked = True Then ssh.Chat = "" & "" & "
" & ssh.DomChat & "

" + TextColor & """>
" & ssh.DomChat & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If ssh.TypeToggle = 0 If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If @@ -5825,13 +5825,13 @@ DommeSlideshowFallback: '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally @@ -5853,8 +5853,8 @@ DommeSlideshowFallback: ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ - And TTSVoice <> "No voices installed" _ - And ssh.DomChat <> "" Then + And TTSVoice <> "No voices installed" _ + And ssh.DomChat <> "" Then ssh.DomChat = StripFormat(ssh.DomChat) synth.Volume = ssh.contactToUse.TTSvolume synth.Rate = ssh.contactToUse.TTSrate @@ -6166,7 +6166,7 @@ listLoaded: If ssh.SlideshowMain.ImageList.Count <= 0 Then MessageBox.Show(Me, "There are no images in the specified folder.", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub Else ssh.SlideshowLoaded = True @@ -6188,8 +6188,8 @@ listLoaded: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show("Unable to load custom slideshow : " & vbCrLf & vbCrLf & ex.Message, - "Open CustomSlideshow failed", - MessageBoxButtons.OK, MessageBoxIcon.Error) + "Open CustomSlideshow failed", + MessageBoxButtons.OK, MessageBoxIcon.Error) Finally browsefolderButton.Enabled = True nextButton.Enabled = True @@ -6224,7 +6224,7 @@ Retry: End If If Not (File.Exists(sh.CurrentImage) _ - Or isURL(sh.CurrentImage)) Then + Or isURL(sh.CurrentImage)) Then ClearMainPictureBox() Return End If @@ -6463,7 +6463,7 @@ Retry: Dim OneLineChance As Integer = ssh.randomizer.Next(0, 101) If OneLineChance < 45 _ - AndAlso TauntFiles.Find(Function(x) x.TauntSize = 1) IsNot Nothing Then + AndAlso TauntFiles.Find(Function(x) x.TauntSize = 1) IsNot Nothing Then ' 1 line taunts available, force to use it. Dim OneLiners As List(Of TauntProcessingObject) = TauntFiles.Where(Function(x) x.TauntSize = 1).ToList TauntToUse = OneLiners(ssh.randomizer.Next(0, OneLiners.Count)) @@ -6497,7 +6497,7 @@ Retry: ssh.DomTask = ssh.TauntLines(ssh.TauntTextCount) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Taunt from file: " & - ssh.TauntText, ex, "StrokeTauntTimer.Tick") + ssh.TauntText, ex, "StrokeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from file: " & ssh.TauntText End Try Else @@ -6584,22 +6584,22 @@ Retry: ' Genre Videos '====================================================================================== If My.Settings.CBHardcore = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) If My.Settings.CBSoftcore = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) If My.Settings.CBLesbian = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) If My.Settings.CBBlowjob = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) If My.Settings.CBFemdom = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) If My.Settings.CBFemsub = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecial @@ -6613,38 +6613,38 @@ Retry: ' Special - Videos '====================================================================================== If My.Settings.CBJOI = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) If My.Settings.CBCH = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) SkipSpecial: '====================================================================================== ' General Videos '====================================================================================== If My.Settings.CBGeneral = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) '====================================================================================== ' Domme - Videos '====================================================================================== If My.Settings.CBHardcoreD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) If My.Settings.CBSoftcoreD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) If My.Settings.CBLesbianD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) If My.Settings.CBBlowjobD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) If My.Settings.CBFemdomD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) If My.Settings.CBFemsubD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD If ssh.ScriptVideoTeaseFlag = True Then @@ -6657,17 +6657,17 @@ SkipSpecial: ' Domme - Special - Videos '====================================================================================== If My.Settings.CBJOID = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) If My.Settings.CBCHD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) SkipSpecialD: '====================================================================================== ' Domme - General Videos '====================================================================================== If My.Settings.CBGeneralD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) @@ -6683,7 +6683,7 @@ GetAnotherRandomVideo: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Debug Line @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ If Debugger.IsAttached AndAlso 1 = 2 Then _ - __TotalFiles.ForEach(Sub(x) Debug.Print("RndVideoCheck: " & x)) + __TotalFiles.ForEach(Sub(x) Debug.Print("RndVideoCheck: " & x)) If My.Settings.CBHardcore And InStr(__domVideo, My.Settings.VideoHardcore) <> 0 Then ssh.VideoType = "Hardcore" @@ -6786,12 +6786,12 @@ GetAnotherRandomVideo: If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If JOIVideos.Count < 1 Then @@ -6951,7 +6951,7 @@ CensorConstant: ssh.DomTask = lines(CensorLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & - CensorVideo, ex, "CensorshipTimer.Tick") + CensorVideo, ex, "CensorshipTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo End Try @@ -7004,7 +7004,7 @@ CensorConstant: ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid RLGL line from file: " & - file2read, ex, "RLGLTimer.Tick") + file2read, ex, "RLGLTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read End Try @@ -7542,7 +7542,7 @@ StatusUpdateEnd: My.Settings.CBGlitterFeed = False 'MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected." & Environment.NewLine _ - & Environment.NewLine & "Glitter feed has been automatically disabled.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + & Environment.NewLine & "Glitter feed has been automatically disabled.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If @@ -8239,8 +8239,8 @@ StatusUpdateEnd: End If #End If Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & - "Aborted Cleaning at: " & StringClean, - New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") + "Aborted Cleaning at: " & StringClean, + New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") Else #If TRACE Then If TS.TraceVerbose Then @@ -8322,7 +8322,7 @@ RinseLatherRepeat: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", - ex, "@DeleteLocalImage failed") + ex, "@DeleteLocalImage failed") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If @@ -8341,7 +8341,7 @@ RinseLatherRepeat: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Command @DeleteImage was unable to delete the image.", - ex, "@DeleteImage failed") + ex, "@DeleteImage failed") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If @@ -8598,8 +8598,8 @@ RinseLatherRepeat: '=============================================================================== If StringClean.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = StringClean.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList Dim FoundString As String = GetLocalImage(Tags, Nothing) @@ -8652,7 +8652,7 @@ RinseLatherRepeat: TnASlides.Start() Catch ex As Exception Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & - ex.Message, ex, "CommandClean()") + ex.Message, ex, "CommandClean()") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) End Try @@ -8918,7 +8918,7 @@ RinseLatherRepeat: Dim FlagArray() As String = CheckFlag.Split(",") If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then ssh.SkipGotoLine = True ssh.FileGoto = FlagArray(1) GetGoto() @@ -8927,7 +8927,7 @@ RinseLatherRepeat: Else If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then ssh.SkipGotoLine = True ssh.FileGoto = CheckFlag GetGoto() @@ -9173,8 +9173,8 @@ TaskCleanSet: If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ - And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ - And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ + And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) @@ -9630,8 +9630,8 @@ TaskCleanSet: If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ - And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ - And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ + And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) @@ -10431,7 +10431,7 @@ TaskCleanSet: Dim CustomArray As String() = CustomFlag.Split(",") If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then ssh.CustomTask = True ssh.CustomTaskActive = True ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" @@ -10838,7 +10838,7 @@ OrgasmDecided: Else MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If StringClean = StringClean.Replace("@InterruptLongEdge", "") ssh.JustShowedBlogImage = True @@ -10887,7 +10887,7 @@ OrgasmDecided: Else MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If StringClean = StringClean.Replace("@InterruptStartStroking", "") ssh.JustShowedBlogImage = True @@ -10947,7 +10947,7 @@ OrgasmDecided: Else MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") @@ -11316,7 +11316,7 @@ OrgasmDecided: DomWMP.URL = AudioClean Else MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If GoTo ExternalAudio @@ -11341,7 +11341,7 @@ OrgasmDecided: DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) Else MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If Else @@ -11351,7 +11351,7 @@ OrgasmDecided: DomWMP.URL = AudioClean Else MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If End If @@ -11854,8 +11854,8 @@ ExternalAudio: If StringClean.Contains("@NullResponse") Then ssh.NullResponse = True StringClean = StringClean.Replace("@NullResponse", "") - 'Debug.Print("NullResponse Called") - End If + 'Debug.Print("NullResponse Called") + End If VTSkip: @@ -11885,13 +11885,13 @@ VTSkip: If SpeedUpVal > SpeedUpCheck Then - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" Else - ' you can't speed up - ssh.AskedToSpeedUp = True + ' you can't speed up + ssh.AskedToSpeedUp = True ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" End If @@ -11933,13 +11933,13 @@ VTSkip: If SpeedUpVal > SpeedUpCheck Then - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" Else - ' you can't speed up - ssh.AskedToSpeedUp = True + ' you can't speed up + ssh.AskedToSpeedUp = True ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" End If @@ -11958,14 +11958,14 @@ VTSkip: If StringClean.Contains("@PlayRiskyPick") Then ssh.RiskyDeal = True - 'FrmCardList.RiskyRound += 1 - FrmCardList.TCGames.SelectTab(2) + 'FrmCardList.RiskyRound += 1 + FrmCardList.TCGames.SelectTab(2) FrmCardList.Show() FrmCardList.Focus() FrmCardList.InitializeRiskyDeal() StringClean = StringClean.Replace("@PlayRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + 'Debug.Print("NullResponse Called") + End If If StringClean.Contains("@ChooseRiskyPick") Then ssh.RiskyDelay = True @@ -12001,36 +12001,36 @@ VTSkip: FrmCardList.RiskyPickCount = 0 FrmCardList.RiskyChoices.Clear() FrmCardList.ClearCaseLabelsOffer() - 'FrmCardList.Show() - 'FrmCardList.TCGames.SelectTab(4) - 'FrmCardList.Focus() + 'FrmCardList.Show() + 'FrmCardList.TCGames.SelectTab(4) + 'FrmCardList.Focus() - StringClean = StringClean.Replace("@ChooseRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + StringClean = StringClean.Replace("@ChooseRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If If StringClean.Contains("@CheckRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.CheckRiskyPick() + 'FrmCardList.Focus() + FrmCardList.CheckRiskyPick() StringClean = StringClean.Replace("@CheckRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + 'Debug.Print("NullResponse Called") + End If If StringClean.Contains("@FinalRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.BTNRiskIt.Text = "LAST CASE" + 'FrmCardList.Focus() + FrmCardList.BTNRiskIt.Text = "LAST CASE" FrmCardList.BTNPickIt.Text = "MY CASE" StringClean = StringClean.Replace("@FinalRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If + 'Debug.Print("NullResponse Called") + End If If StringClean.Contains("@ClearRiskyLabels") Then - 'FrmCardList.Focus() - FrmCardList.ClearCaseLabelsOffer() + 'FrmCardList.Focus() + FrmCardList.ClearCaseLabelsOffer() StringClean = StringClean.Replace("@ClearRiskyLabels", "") - 'Debug.Print("NullResponse Called") - End If + 'Debug.Print("NullResponse Called") + End If If StringClean.Contains("@RiskyPayout") Then If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then @@ -12134,10 +12134,10 @@ VTSkip: ssh.SubHoldingEdge = False End If - 'StopEverything() + 'StopEverything() - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") Dim CallReplace As String = CheckFlag If CheckFlag.Contains(",") Then @@ -12198,7 +12198,7 @@ VTSkip: If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else Dim RandomFile As New List(Of String) RandomFile.Clear() @@ -12207,7 +12207,7 @@ VTSkip: Next If RandomFile.Count < 1 Then MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else GotoClear() ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) @@ -12217,12 +12217,12 @@ VTSkip: StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code - ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code + ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If StringClean.Contains("@RandomLink") Then + If StringClean.Contains("@RandomLink") Then RunLinkScript() StringClean = StringClean.Replace("@RandomLink", "") End If @@ -12447,22 +12447,22 @@ VTSkip: StringClean = StringClean.Replace("@WorshipOff", "") End If - ' If StringClean.Contains("@AssWorship") Then - 'WorshipTarget = "Ass" - 'StringClean = StringClean.Replace("@AssWorship", "") - 'End If + ' If StringClean.Contains("@AssWorship") Then + 'WorshipTarget = "Ass" + 'StringClean = StringClean.Replace("@AssWorship", "") + 'End If - 'If StringClean.Contains("@BoobWorship") Then - 'WorshipTarget = "Boobs" - 'StringClean = StringClean.Replace("@BoobWorship", "") - 'End If + 'If StringClean.Contains("@BoobWorship") Then + 'WorshipTarget = "Boobs" + 'StringClean = StringClean.Replace("@BoobWorship", "") + 'End If - 'If StringClean.Contains("@PussyWorship") Then - 'WorshipTarget = "Pussy" - 'StringClean = StringClean.Replace("@PussyWorship", "") - 'End If + 'If StringClean.Contains("@PussyWorship") Then + 'WorshipTarget = "Pussy" + 'StringClean = StringClean.Replace("@PussyWorship", "") + 'End If - If StringClean.Contains("@ClearWorship") Then + If StringClean.Contains("@ClearWorship") Then ssh.WorshipTarget = "" StringClean = StringClean.Replace("@ClearWorship", "") End If @@ -12645,7 +12645,7 @@ VTSkip: Dim PicAttributes As String() = GetArrayString(ImageDir) StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + " height=" & PicAttributes(2) & """/>") Else StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") @@ -12715,33 +12715,33 @@ VTSkip: If StringClean.Contains("@Debug") Then - 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) + 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) - MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) + MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) - 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) - StringClean = StringClean.Replace("@Debug", "") + 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) + StringClean = StringClean.Replace("@Debug", "") End If If StringClean.Contains("@GotoDommeOrgasm") Then - 'Debug.Print("GotoDommeOrgasmCalled") + 'Debug.Print("GotoDommeOrgasmCalled") - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True + ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@GotoDommeOrgasm", "") @@ -12759,9 +12759,9 @@ VTSkip: If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True + ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@GotoDommeRuin", "") @@ -12770,18 +12770,18 @@ VTSkip: If StringClean.Contains("@GotoDommeApathy") Then - 'Debug.Print("GotoDommeApathyCalled") + 'Debug.Print("GotoDommeApathyCalled") - If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" + If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True + ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@GotoDommeApathy", "") @@ -12796,9 +12796,9 @@ VTSkip: If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True + ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@GotoDommeLevel", "") @@ -12822,8 +12822,8 @@ VTSkip: If StringClean.Contains("@CheckStrokingState") Then - 'If SubStroking = True Then - If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then + 'If SubStroking = True Then + If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then ssh.FileGoto = "(Sub Stroking)" Else ssh.FileGoto = "(Sub Not Stroking)" @@ -12833,9 +12833,9 @@ VTSkip: StringClean = StringClean.Replace("@CheckStrokingState", "") End If - 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. + 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. - If StringClean.Contains("@SetGroup(") Then + If StringClean.Contains("@SetGroup(") Then Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) @@ -12911,24 +12911,24 @@ VTSkip: Using fs As New FileStream(FlagName, FileMode.Create) : End Using End Sub - ''' Deletes the given flag. Deletes permanent and temporary flags. - ''' The name of the flag to delete. - Friend Sub DeleteFlag(ByVal FlagName As String) + ''' Deletes the given flag. Deletes permanent and temporary flags. + ''' The name of the flag to delete. + Friend Sub DeleteFlag(ByVal FlagName As String) If File.Exists(ssh.Folders.Flags & FlagName) Then _ - File.Delete(ssh.Folders.Flags & FlagName) + File.Delete(ssh.Folders.Flags & FlagName) If File.Exists(ssh.Folders.TempFlags & FlagName) Then _ - File.Delete(ssh.Folders.TempFlags & FlagName) + File.Delete(ssh.Folders.TempFlags & FlagName) End Sub - ''' Checks if the given flag is set, permanent and temporary. - ''' The flag name to search for. - ''' Returns true if a permanent or temporary flag with the name is found. - Friend Function FlagExists(ByVal FlagName As String) As Boolean + ''' Checks if the given flag is set, permanent and temporary. + ''' The flag name to search for. + ''' Returns true if a permanent or temporary flag with the name is found. + Friend Function FlagExists(ByVal FlagName As String) As Boolean If File.Exists(ssh.Folders.Flags & FlagName) OrElse - File.Exists(ssh.Folders.TempFlags & FlagName) Then + File.Exists(ssh.Folders.TempFlags & FlagName) Then Return True Else Return False @@ -12949,7 +12949,7 @@ VTSkip: Public Function DeleteVariable(ByVal FlagDir As String) If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) Then _ - My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) + My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagDir) End Function @@ -12959,8 +12959,8 @@ VTSkip: Dim Val2 As Integer If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) Else Val1 = 0 @@ -12970,8 +12970,8 @@ VTSkip: End If If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) Else Val2 = 0 @@ -13000,13 +13000,13 @@ VTSkip: Public Function GetVariable(ByVal VarName As String) As String Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - '### DEBUG + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + '### DEBUG - ' VarGet = Val(VarReader.ReadLine()) + ' VarGet = Val(VarReader.ReadLine()) - VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) + VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Else VarGet = 0 End If @@ -13097,8 +13097,8 @@ VTSkip: Public Function GetDate(ByVal VarName As String) As Date Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else VarGet = FormatDateTime(Now, DateFormat.GeneralDate) @@ -13112,8 +13112,8 @@ VTSkip: Public Function GetTime(ByVal VarName As String) As Date Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else VarGet = FormatDateTime(Now, DateFormat.LongTime) @@ -13236,15 +13236,15 @@ VTSkip: Dim ParenFlag As String = ParenCheck Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length - 'githib patch Dim ParenType As String + 'githib patch Dim ParenType As String - Dim ParenType As String = Nothing + Dim ParenType As String = Nothing - ' #### CHECK ALL GETPAREN! - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" + ' #### CHECK ALL GETPAREN! + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" End If If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then @@ -13253,21 +13253,21 @@ VTSkip: - 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) + 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) - 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) - Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) + 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) + Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) Debug.Print("ParenEnd = " & ParenEnd) If ParenEnd = -1 Then ParenEnd = ParenFlag.Length ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) - 'ParenFlag = ParenFlag.Split(")")(0) - 'ParenFlag = ParenFlag.Split(ParenType)(0) - 'ParenFlag = ParenFlag.Replace(ParenType, "") - 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) - Debug.Print("ParenFlag = " & ParenFlag) + 'ParenFlag = ParenFlag.Split(")")(0) + 'ParenFlag = ParenFlag.Split(ParenType)(0) + 'ParenFlag = ParenFlag.Replace(ParenType, "") + 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) + Debug.Print("ParenFlag = " & ParenFlag) Return ParenFlag @@ -13276,8 +13276,8 @@ VTSkip: Public Function GetNthIndex(ByVal searchString As String, ByVal charToFind As Char, ByVal startIndex As Integer, ByVal n As Integer) As Integer Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ - .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ - .ElementAtOrDefault(n - 1) + .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ + .ElementAtOrDefault(n - 1) Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) End Function @@ -13302,43 +13302,43 @@ VTSkip: End Function Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, - Optional ByVal ExcludeTags As List(Of String) = Nothing) As String + Optional ByVal ExcludeTags As List(Of String) = Nothing) As String If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - ' Read all lines of given file. - ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + ' Read all lines of given file. + ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") ssh.LocalTagImageList.RemoveAll(Function(x) - ' Remove if given include tags are missing - If IncludeTags IsNot Nothing Then + ' Remove if given include tags are missing + If IncludeTags IsNot Nothing Then For Each tag As String In IncludeTags If Not x.Contains(tag.Replace("@", "")) Then Return True Next End If - ' Remove if given exclude tags are present - If ExcludeTags IsNot Nothing Then + ' Remove if given exclude tags are present + If ExcludeTags IsNot Nothing Then For Each tag As String In ExcludeTags If x.Contains(tag.Replace("@", "")) Then Return True Next End If - ' Remove all without valid extension - Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower + ' Remove all without valid extension + Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower If Not ValidExt.Contains(Ext) Then Return True - 'Everything fine keep file - Return False + 'Everything fine keep file + Return False End Function) Do While ssh.LocalTagImageList.Count > 0 Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) - ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. - Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) + ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. + Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) If Directory.Exists(Path.GetDirectoryName(Filepath)) _ - AndAlso File.Exists(Filepath) Then + AndAlso File.Exists(Filepath) Then Return Filepath Else ssh.LocalTagImageList.RemoveAt(rndNumber) @@ -13350,8 +13350,8 @@ VTSkip: End Function Public Function GetLocalImage(ByVal LocTag As String) As String - 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. + If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then Dim TagList As New List(Of String) @@ -13505,36 +13505,36 @@ VTSkip: Dim ListIncrement As Integer = 1 If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Check if Grouped-Lines-Files have the right amount of Lines - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' No need to go further on an empty file. - If ListClean.Count <= 0 Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Check if Grouped-Lines-Files have the right amount of Lines + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' No need to go further on an empty file. + If ListClean.Count <= 0 Then Trace.WriteLine("FilterList started with empty List. Skipping filter.") Return ListClean End If - ' To Avoid DivideByZeroException - If ListIncrement <= 0 Then + ' To Avoid DivideByZeroException + If ListIncrement <= 0 Then Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & "", False) Return ListClean End If - ' Divide List.Count by StrokeTauntSize and get the Remainder. - Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement + ' Divide List.Count by StrokeTauntSize and get the Remainder. + Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement - ' If there is a Remainder, the file has not the desired Line.Count. - If InvalidLineCount > 0 Then - ' So delete the Lines of the last and hopefully uncomplete Group. - ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) + ' If there is a Remainder, the file has not the desired Line.Count. + If InvalidLineCount > 0 Then + ' So delete the Lines of the last and hopefully uncomplete Group. + ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Grouped-Lines-Check-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Grouped-Lines-Check-END + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement FilterPass = True @@ -13576,15 +13576,15 @@ VTSkip: Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean Dim OrgFilterString As String = FilterString Try - '######################### Determine filtering Contact ########################### - Dim FilterContact As ContactData + '######################### Determine filtering Contact ########################### + Dim FilterContact As ContactData Dim ActiveContacts As New List(Of String) For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) - ' Pattern Description: - ' [d\d]: All Numbers and letter "D" - ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) - ActiveContacts.Add(match.Value) + ' Pattern Description: + ' [d\d]: All Numbers and letter "D" + ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) + ActiveContacts.Add(match.Value) Next If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then @@ -13600,19 +13600,19 @@ VTSkip: End If If Linear = False Then - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Commands to sort out - ' This Section contains @Commands, which are able to disqualify vocabulary lines. - ' - ' Example-line: "Whatever Text to display @DommeTag(Glaring)" - ' - ' This line has to be sorted out, if there are no corresponding images tagged - ' with "glaring". - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - 'ISSUE: @DomTag() is not filtered out - If FilterString.Includes("@DommeTag(") Then - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.LockImage = True Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Commands to sort out + ' This Section contains @Commands, which are able to disqualify vocabulary lines. + ' + ' Example-line: "Whatever Text to display @DommeTag(Glaring)" + ' + ' This line has to be sorted out, if there are no corresponding images tagged + ' with "glaring". + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + 'ISSUE: @DomTag() is not filtered out + If FilterString.Includes("@DommeTag(") Then + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.LockImage = True Then Return False Else If FilterContact.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False @@ -13627,8 +13627,8 @@ VTSkip: If GetLocalImageOr(GetParentheses(FilterString, "@ImageTagOr(")) = String.Empty Then Return False End If - ' ################## @Show-Category-Image ##################### - If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then + ' ################## @Show-Category-Image ##################### + If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If If FilterString.Contains("@ShowBlowjobImage") Then @@ -13676,15 +13676,15 @@ VTSkip: If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False End If - 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. - If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False + 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. + If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False If FilterString.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = FilterString.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList If GetLocalImage(Tags, Nothing) = String.Empty Then Return False End If @@ -13695,10 +13695,10 @@ VTSkip: If FilterString.Contains("@ShowSoftcoreImage") Then If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Then Return False End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Disqualifying @Commands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Disqualifying @Commands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + End If '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Possible space Filters @@ -13812,20 +13812,20 @@ VTSkip: If FilterString.Contains("@SetModule(") Then If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Possible space Filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Single word filters - ' This section contains single word command filters. - ' Since there are some legacy commands, which are filters and also instructions, - ' this section will ignore all @Statements after @NullResponse or the first - ' word not starting with "@" (0x40) - ' - ' Beware: destroys the original FilterString-Value! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - Dim FilterList As String() + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Possible space Filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Single word filters + ' This section contains single word command filters. + ' Since there are some legacy commands, which are filters and also instructions, + ' this section will ignore all @Statements after @NullResponse or the first + ' word not starting with "@" (0x40) + ' + ' Beware: destroys the original FilterString-Value! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + Dim FilterList As String() FilterList = FilterString.Split(" ") FilterString = "" @@ -14140,16 +14140,16 @@ VTSkip: End If If FilterString.Contains("@Info") Then Return False - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Single word filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - Return True + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Single word filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + Return True Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), + ex, "GetFilter(String, Boolean)") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) Return False End Try @@ -14161,15 +14161,15 @@ VTSkip: Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) Try - '=============================================================================== - ' Dictionary Setup Description - ' 1st Parameter: "Key" this is the Command as String preceded with @ - ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. - ' - ' If "Value" is "True", all lines containing "Key" will be excuded. - ' - '=============================================================================== - With __ConditionDic + '=============================================================================== + ' Dictionary Setup Description + ' 1st Parameter: "Key" this is the Command as String preceded with @ + ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. + ' + ' If "Value" is "True", all lines containing "Key" will be excuded. + ' + '=============================================================================== + With __ConditionDic .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) @@ -14237,15 +14237,15 @@ VTSkip: .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) - '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. - '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) + .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. + '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) @@ -14264,8 +14264,8 @@ VTSkip: .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) - '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. - .Add("@BeforeTease", ssh.BeforeTease = False) + '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. + .Add("@BeforeTease", ssh.BeforeTease = False) .Add("@OrgasmDenied", ssh.OrgasmDenied = False) .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) .Add("@OrgasmRuined", ssh.OrgasmRuined = False) @@ -14333,7 +14333,7 @@ VTSkip: .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. - .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) + .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) .Add("@SubWorshipping", ssh.WorshipMode = False) .Add("@SubNotWorshipping", ssh.WorshipMode = True) @@ -14344,42 +14344,42 @@ VTSkip: .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) End With Catch ex As ArgumentException - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' ArgumentException => Will occur everytime until you fix Source Code! - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' ArgumentException => Will occur everytime until you fix Source Code! + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & - "further executing the Code, the application will exit after closing this Message." & vbCrLf & - ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") + "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & + "further executing the Code, the application will exit after closing this Message." & vbCrLf & + ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") Application.Exit() End Try Try - ' Declare a new regex Instance, for detecting the parameters in a line. - ' Allowed chars for Commands are: A-Z a-z 0-9 @ - ' Allowed Brackets are : ( [ - ' Minimum length is 3 Chars, maximum Command length has no restriction. - Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) + ' Declare a new regex Instance, for detecting the parameters in a line. + ' Allowed chars for Commands are: A-Z a-z 0-9 @ + ' Allowed Brackets are : ( [ + ' Minimum length is 3 Chars, maximum Command length has no restriction. + Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) - ' Execute regex on current line, to find all containing Commands - Dim mc As MatchCollection = __re.Matches(FilterString) + ' Execute regex on current line, to find all containing Commands + Dim mc As MatchCollection = __re.Matches(FilterString) For Each m As Match In mc If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then - '=============================================================================== - ' Known Command - DELETE Condition = TRUE - '=============================================================================== - ' The Command is known and his delete condition is True -> delete line - Return False + '=============================================================================== + ' Known Command - DELETE Condition = TRUE + '=============================================================================== + ' The Command is known and his delete condition is True -> delete line + Return False ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then - '=============================================================================== - ' Unknown Command / BracketCommand - '=============================================================================== - Dim Condition As Boolean = False + '=============================================================================== + ' Unknown Command / BracketCommand + '=============================================================================== + Dim Condition As Boolean = False Select Case m.Value.ToUpper Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) @@ -14389,28 +14389,28 @@ VTSkip: Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) - 'QND-Implemented: ContactData.GetTaggedImage - 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True - Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) + 'QND-Implemented: ContactData.GetTaggedImage + 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True + Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) Case "@ImageTagOr(".ToUpper : Condition = GetLocalImageOr(FilterString) Case Else - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - ' Unknown Command => goto next Match - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - Dim f As String = "" ' Debug line to add the ability to set a breakpoint. - Exit For + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + ' Unknown Command => goto next Match + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + Dim f As String = "" ' Debug line to add the ability to set a breakpoint. + Exit For End Select - ' The Command is known and his delete condition is True -> delete line - If Condition Then Return False + ' The Command is known and his delete condition is True -> delete line + If Condition Then Return False End If Next ' of Regex matches (Commands) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: Once implemented rethrow all exceptions. - 'Throw - End Try + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: Once implemented rethrow all exceptions. + 'Throw + End Try Return True @@ -14474,26 +14474,26 @@ VTSkip: Private Sub chatBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress If e.KeyChar = Chr(13) Then e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) + ' sendButton.PerformClick() + e.KeyChar = Chr(0) End If End Sub Private Sub chatBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress If e.KeyChar = Chr(13) Then e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) + ' sendButton.PerformClick() + e.KeyChar = Chr(0) End If End Sub - ''' Appends a system message to chat and prints it if desired. - ''' Messagetext to append to chat. - ''' If true the chatwindow is refreshed and reprinted. - Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) + ''' Appends a system message to chat and prints it if desired. + ''' Messagetext to append to chat. + ''' If true the chatwindow is refreshed and reprinted. + Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) ChatAppend("" & messageText & "", printChat) - 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" - End Sub + 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" + End Sub Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) ssh.Chat &= elementText & "
" & vbCrLf @@ -14578,15 +14578,15 @@ VTSkip: If ssh.AvoidTheEdgeStroking = False Then - 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) + 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then - 'Return - 'End If + ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then + 'Return + 'End If - Using ioFileA As New StreamReader(AvoidTheEdgeVideo) + Using ioFileA As New StreamReader(AvoidTheEdgeVideo) Dim linesA As New List(Of String) Dim TempAvoidTheEdgeLine As Integer @@ -14665,10 +14665,10 @@ VTSkip: Dim AvoidTheEdgeLine As Integer - 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) - 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) + 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) + 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) - AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) + AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) ssh.DomTask = lines(AvoidTheEdgeLine) @@ -14691,16 +14691,16 @@ VTSkip: If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return ssh.AtECountdown -= 1 - 'Debug.Print("AtECountdown = " & AtECountdown) + 'Debug.Print("AtECountdown = " & AtECountdown) - If ssh.AtECountdown < 1 Then + If ssh.AtECountdown < 1 Then AvoidTheEdgeResume.Stop() ssh.FileGoto = "NoAvoidTheEdgeInstructions" ssh.SkipGotoLine = True GetGoto() - 'domVLC.playlist.play() - DomWMP.Ctlcontrols.play() + 'domVLC.playlist.play() + DomWMP.Ctlcontrols.play() HandleScripts() ScriptTimer.Start() @@ -14984,22 +14984,22 @@ NoPlaylistLinkFile: ClearModes() ssh.FirstRound = False - 'My.Settings.Sys_SubLeftEarly = 0 + 'My.Settings.Sys_SubLeftEarly = 0 - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) - SetVariable("SYS_SubLeftEarly", 0) + SetVariable("SYS_SubLeftEarly", 0) SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) - 'Debug.Print("RunLastScript() Called") + 'Debug.Print("RunLastScript() Called") - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then @@ -15034,7 +15034,7 @@ NoPlaylistEndFile: End If Else If FrmSettings.CLBEndList.Items(x) = TempEnd And FrmSettings.CLBEndList.GetItemChecked(x) = True And Not TempEnd.Contains("_BEG") And Not TempEnd.Contains("_CHASTITY") _ - And Not TempEnd.Contains("_RESTRICTED") Then + And Not TempEnd.Contains("_RESTRICTED") Then EndList.Add(foundFile) End If End If @@ -15091,8 +15091,8 @@ NoPlaylistEndFile: ClearModes() - 'Debug.Print("RunLastBegScript() Called") - Dim EndList As New List(Of String) + 'Debug.Print("RunLastBegScript() Called") + Dim EndList As New List(Of String) EndList.Clear() For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") @@ -15142,9 +15142,9 @@ NoPlaylistEndFile: ScriptTimer.Start() ssh.LastScript = True - 'RunFileText() + 'RunFileText() - End Sub + End Sub Public Sub StopEverything() @@ -15186,8 +15186,8 @@ NoPlaylistEndFile: ssh.CBTBothFlag = False ssh.CustomTaskActive = False - ' Unlock OrgasmChances - FrmSettings.LockOrgasmChances(False) + ' Unlock OrgasmChances + FrmSettings.LockOrgasmChances(False) ClearModes() @@ -15218,9 +15218,9 @@ NoPlaylistEndFile: FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt - 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) + 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) - ssh.EdgeTauntInt -= 1 + ssh.EdgeTauntInt -= 1 If ssh.EdgeTauntInt < 1 Then @@ -15232,15 +15232,15 @@ NoPlaylistEndFile: File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" End If - 'Read all lines of the given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + 'Read all lines of the given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) Try ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & - File2Read, ex, "EdgeTauntTimer.Tick") + File2Read, ex, "EdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read End Try @@ -15268,8 +15268,8 @@ NoPlaylistEndFile: If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - 'If DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return + 'If DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return @@ -15277,12 +15277,12 @@ NoPlaylistEndFile: ssh.HoldEdgeTick -= 1 FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - If ssh.HoldEdgeTick < 1 Then + If ssh.HoldEdgeTick < 1 Then - 'stop - ssh.LongHold = False + 'stop + ssh.LongHold = False ssh.ExtremeHold = False ssh.HoldTaunts = False ssh.LongTaunts = False @@ -15290,10 +15290,10 @@ NoPlaylistEndFile: ssh.WorshipMode = False ssh.WorshipTarget = "" - 'If OrgasmAllowed = True Then GoTo AllowedOrgasm - 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm + 'If OrgasmAllowed = True Then GoTo AllowedOrgasm + 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm - If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then + If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then ssh.LastOrgasmType = "RUINED" ssh.OrgasmRuined = False GoTo RuinedOrgasm @@ -15418,8 +15418,8 @@ RuinedOrgasm: End If TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15481,8 +15481,8 @@ AllowedOrgasm: ssh.SubHoldingEdge = False ssh.SubStroking = False ssh.OrgasmYesNo = False - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15536,8 +15536,8 @@ NoNoCumFiles: End If TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15560,8 +15560,8 @@ NoRepeatOFiles: ssh.SubHoldingEdge = False ssh.SubStroking = False ssh.OrgasmYesNo = False - 'OrgasmAllowed = False - ssh.DomChat = "#CumForMe" + 'OrgasmAllowed = False + ssh.DomChat = "#CumForMe" If ssh.Contact1Edge = True Then ssh.DomChat = "@Contact1 #CumForMe" ssh.Contact1Edge = False @@ -15604,15 +15604,15 @@ NoRepeatOFiles: File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" End If - ' Read all lines of given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + ' Read all lines of given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) Try ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") + File2Read, ex, "HoldEdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read End Try @@ -15861,10 +15861,10 @@ PoundLoop: Return TaskEntry Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") Return "ERROR: Tease AI did not return a valid Task line" End Try End Function @@ -15904,8 +15904,8 @@ PoundLoop: Private Sub SlideshowTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlideshowTimer.Tick - 'TODO: Remove CrossForm data access - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + 'TODO: Remove CrossForm data access + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return @@ -15922,7 +15922,7 @@ TryNext: If Not (File.Exists(ssh.SlideshowMain.CurrentImage) _ - Or isURL(ssh.SlideshowMain.CurrentImage)) Then + Or isURL(ssh.SlideshowMain.CurrentImage)) Then ClearMainPictureBox() Exit Sub End If @@ -15985,12 +15985,12 @@ TryNext: Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) - ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) + ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) - 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) - End Sub + 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) + End Sub Private Sub StrokeTimeTotalTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick @@ -15999,14 +15999,14 @@ TryNext: If ssh.SubStroking = False Then Return ssh.StrokeTimeTotal += 1 - 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) + 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) - My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal + My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) - 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) End Sub @@ -16047,25 +16047,25 @@ RestartFunction: ssh.AssImage = True End If - ' If the elapsed time to load an image was longer as the Timer.Interval - ' we restart the function instantly, to avoid an unnecessary delay. - ' If it took way too long and the Timer was stopped during imagedownload, - ' we dont want the timer to restart. - If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then + ' If the elapsed time to load an image was longer as the Timer.Interval + ' we restart the function instantly, to avoid an unnecessary delay. + ' If it took way too long and the Timer was stopped during imagedownload, + ' we dont want the timer to restart. + If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then GoTo RestartFunction End If Catch ex As Exception - ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ - ' Remove the ImagePath and retry. - ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ + ' Remove the ImagePath and retry. + ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) GoTo RestartFunction End Try Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - TnASlides.Stop() + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + TnASlides.Stop() Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in TnASlides.Tick occured", False) End Try @@ -16092,9 +16092,9 @@ RestartFunction: If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then - 'Debug.Print("WMP Stopped Called") + 'Debug.Print("WMP Stopped Called") - VideoTimer.Stop() + VideoTimer.Stop() ssh.EdgeVideo = False ssh.YesVideo = False @@ -16150,22 +16150,22 @@ RestartFunction: ssh.ScriptTick = 2 ScriptTimer.Start() - 'RunFileText() + 'RunFileText() - 'AvoidTheEdge.Stop() - 'AvoidTheEdgeGame = False - 'SkipGotoLine = True - 'If AvoidTheEdgeTimerTick < 1 Then - 'FileGoto = "(AvoidTheEdge Video Stop)" - 'Else - ' FileGoto = "(AvoidTheEdge Video Continue)" - 'End If - 'GetGoto() - 'RunFileText() - End If + 'AvoidTheEdge.Stop() + 'AvoidTheEdgeGame = False + 'SkipGotoLine = True + 'If AvoidTheEdgeTimerTick < 1 Then + 'FileGoto = "(AvoidTheEdge Video Stop)" + 'Else + ' FileGoto = "(AvoidTheEdge Video Continue)" + 'End If + 'GetGoto() + 'RunFileText() + End If If ssh.RLGLGame = True Then RLGLTimer.Stop() @@ -16227,17 +16227,17 @@ RestartFunction: If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return - 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) + 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) - ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) + ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) Dim VidSplit As String() = ssh.VidFile.Split(".") ssh.VidFile = "" For i As Integer = 0 To VidSplit.Count - 2 ssh.VidFile = ssh.VidFile + VidSplit(i) Next - 'Debug.Print(VidFile) - If ssh.VidFile = "" Then Exit Sub + 'Debug.Print(VidFile) + If ssh.VidFile = "" Then Exit Sub If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then Dim SubCheck As String() Dim PlayPos As Integer @@ -16294,9 +16294,9 @@ RestartFunction: If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return - 'Debug.Print("WaitTick = " & WaitTick) + 'Debug.Print("WaitTick = " & WaitTick) - ssh.WaitTick -= 1 + ssh.WaitTick -= 1 If ssh.WaitTick < 1 Then WaitTimer.Stop() @@ -16449,8 +16449,8 @@ RestartFunction: Private Sub VideoTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoTauntTimer.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.DomTyping = True Then Return If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return @@ -16471,11 +16471,11 @@ RestartFunction: Dim VTDir As String If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" - 'TODO: Prevent File.Exits() with String.Empty - If Not File.Exists(VTDir) Then Return + 'TODO: Prevent File.Exits() with String.Empty + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) Try VTList = FilterList(VTList) @@ -16483,7 +16483,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "VideoTaunTimer.Tick") + VTDir, ex, "VideoTaunTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try @@ -16510,9 +16510,9 @@ RestartFunction: FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick - 'Debug.Print("TeaseTick = " & TeaseTick) + 'Debug.Print("TeaseTick = " & TeaseTick) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return ssh.TeaseTick -= 1 @@ -16557,7 +16557,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "RLGLTauntTimer.Tick") + VTDir, ex, "RLGLTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16610,7 +16610,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "AvoidTheEdgeTaunts.Tick") + VTDir, ex, "AvoidTheEdgeTaunts.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16653,7 +16653,7 @@ RestartFunction: Dim sh As ContactData = ssh.SlideshowMain If ImageAnimator.CanAnimate(mainPictureBox.Image) _ - And ImageAnimator_OnFrameChangedAdded Then + And ImageAnimator_OnFrameChangedAdded Then PicStripTmsiDisableAnimation.Enabled = True If mreImageanimator.WaitOne(0) = True Then @@ -16728,9 +16728,9 @@ RestartFunction: Public Sub PicStripTSMI_SaveImage(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIsaveHardcore.Click, - PicStripTSMIsaveSoftcore.Click, PicStripTSMIsaveLesbian.Click, PicStripTSMIsaveBlowjob.Click, PicStripTSMIsaveFemdom.Click, - PicStripTSMIsaveLezdom.Click, PicStripTSMIsaveHentai.Click, PicStripTSMIsaveGay.Click, PicStripTSMIsaveMaledom.Click, - PicStripTSMIsaveCaptions.Click, PicStripTSMIsaveGeneral.Click, PicStripTSMIsaveBoobs.Click, PicStripTSMIsaveButts.Click, PicStripTSMIsaveImage.Click + PicStripTSMIsaveSoftcore.Click, PicStripTSMIsaveLesbian.Click, PicStripTSMIsaveBlowjob.Click, PicStripTSMIsaveFemdom.Click, + PicStripTSMIsaveLezdom.Click, PicStripTSMIsaveHentai.Click, PicStripTSMIsaveGay.Click, PicStripTSMIsaveMaledom.Click, + PicStripTSMIsaveCaptions.Click, PicStripTSMIsaveGeneral.Click, PicStripTSMIsaveBoobs.Click, PicStripTSMIsaveButts.Click, PicStripTSMIsaveImage.Click retry: Try Dim BlogPath As String = "" @@ -16767,9 +16767,9 @@ retry: If Directory.Exists(BlogPath) = False Then Throw New DirectoryNotFoundException( - "Unable to find the directroy """ & BlogPath & """" & - vbCrLf & vbCrLf & - "Please check your image settings.") + "Unable to find the directroy """ & BlogPath & """" & + vbCrLf & vbCrLf & + "Please check your image settings.") End If Dim fullPath As String = BlogPath & "\" & fileName @@ -16779,10 +16779,10 @@ retry: ' Confirm overwriting the file If MessageBox.Show(Me, fileName & " already exists in this directory!" & - Environment.NewLine & Environment.NewLine & - "Do you wish to overwrite?", "Caution!", - MessageBoxButtons.YesNo, - MessageBoxIcon.Exclamation) = DialogResult.No Then + Environment.NewLine & Environment.NewLine & + "Do you wish to overwrite?", "Caution!", + MessageBoxButtons.YesNo, + MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -16797,13 +16797,13 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Saving image failed.") If MessageBox.Show(ex.Message, "Saving image failed.", - MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, - MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry + MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, + MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry End Try End Sub Private Sub PicStripTSMIlikeImage_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, - PicStripTSMIdislikeImage.Click + PicStripTSMIdislikeImage.Click ' Exit if ImageLocation is unkown If ssh.ImageLocation = "" Then Exit Sub @@ -16845,7 +16845,7 @@ saveImage: lazytext = "Unable to " & lazytext Log.WriteError(lazytext, ex, "Error updating List") MessageBox.Show(Me, lazytext & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") + & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") End Try End Sub @@ -16862,7 +16862,7 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") + & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") End Try End Sub @@ -17068,9 +17068,9 @@ saveImage: End If For Each com As String In New List(Of String) From - {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", - "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", - "@DayOfWeek(", "@FlagOr("} + {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", + "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", + "@DayOfWeek(", "@FlagOr("} If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") Next @@ -17312,7 +17312,7 @@ restartInstantly: If ssh.SaidHello = False Then MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17321,13 +17321,13 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a destination to safe the sessin to.", - .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, - .AddExtension = True, - .CheckPathExists = True, - .OverwritePrompt = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a destination to safe the sessin to.", + .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, + .AddExtension = True, + .CheckPathExists = True, + .OverwritePrompt = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17335,10 +17335,10 @@ restartInstantly: ' Check if default-File exists '=============================================================================== ElseIf File.Exists(filename) _ - AndAlso MessageBox.Show(Me, "A previous saved state already exists!" & - vbCrLf & vbCrLf & - "Do you wish to overwrite it?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + AndAlso MessageBox.Show(Me, "A previous saved state already exists!" & + vbCrLf & vbCrLf & + "Do you wish to overwrite it?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17346,14 +17346,14 @@ restartInstantly: ssh.Save(filename) MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", - MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub @@ -17367,12 +17367,12 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a saved session to resume.", - .CheckPathExists = True, - .CheckFileExists = True, - .AddExtension = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a saved session to resume.", + .CheckPathExists = True, + .CheckFileExists = True, + .AddExtension = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17385,10 +17385,10 @@ restartInstantly: End If If ssh.SaidHello = True _ - AndAlso MessageBox.Show(Me, "Resuming a previous state will cause you to lose your progress in this session!" & - vbCrLf & vbCrLf & - "Do you wish to proceed?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + AndAlso MessageBox.Show(Me, "Resuming a previous state will cause you to lose your progress in this session!" & + vbCrLf & vbCrLf & + "Do you wish to proceed?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17396,15 +17396,15 @@ restartInstantly: Me.domName.Text = ssh.tempDomName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ - FrmSettings.LockOrgasmChances(True) + FrmSettings.LockOrgasmChances(True) Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub @@ -17426,7 +17426,7 @@ restartInstantly: End Sub Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click, - ExitToolStripMenuItem1.Click + ExitToolStripMenuItem1.Click Me.Close() Me.Dispose() End Sub @@ -17557,7 +17557,7 @@ restartInstantly: If My.Settings.ClearWishlist = True Then MessageBox.Show(Me, "You have already purchased " & ssh.tempDomName & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & - "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If @@ -17579,7 +17579,7 @@ restartInstantly: If WishList.Count < 1 Then MessageBox.Show(Me, "No Wishlist items found!" & Environment.NewLine & Environment.NewLine & - "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If @@ -17818,35 +17818,35 @@ restartInstantly: #Region "-------------------------------------------------------- Games -------------------------------------------------------" Private Sub SlotsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, - SlotsToolStripMenuItem.Click + SlotsToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(0) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub MatchGameToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, - MatchGameToolStripMenuItem.Click + MatchGameToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(1) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub RiskyPickToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, - RiskyPickToolStripMenuItem.Click + RiskyPickToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(2) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub ExchangeToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, - ExchangeToolStripMenuItem.Click + ExchangeToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(3) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub CollectionToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, - CollectionToolStripMenuItem.Click + CollectionToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(4) FrmCardList.Show() FrmCardList.Focus() @@ -17871,9 +17871,9 @@ restartInstantly: .Padding = New Padding(.Padding.Right, .Padding.Top, .Padding.Left, .Padding.Bottom) PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Left, + PnlLayoutForm.Padding.Bottom) End With End Sub @@ -17944,14 +17944,14 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(0, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - 0, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + 0, + PnlLayoutForm.Padding.Bottom) End If Else '########################### Hide ######################### @@ -17960,14 +17960,14 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Left, + PnlLayoutForm.Padding.Bottom) End If If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True @@ -18049,22 +18049,22 @@ restartInstantly: #Region "------------------------------------------------------ Milovana ------------------------------------------------------" Private Sub OpenBetaThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, - OpenBetaThreadToolStripMenuItem1.Click + OpenBetaThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") End Sub Private Sub BugReportThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, - BugReportThreadToolStripMenuItem1.Click + BugReportThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") End Sub Private Sub WebteasesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, - WebteasesToolStripMenuItem1.Click + WebteasesToolStripMenuItem1.Click Process.Start("https://milovana.com/webteases/") End Sub Private Sub AllAndEverythingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, - ForumToolStripMenuItem.Click + ForumToolStripMenuItem.Click Process.Start("https://milovana.com/forum/") End Sub @@ -18216,8 +18216,8 @@ restartInstantly: For i As Integer = 0 To ssh.CountUpList.Count - 1 Dim Val1 As Integer - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i)) Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i)) Then Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i))) Else Val1 = 0 @@ -18236,8 +18236,8 @@ restartInstantly: For i As Integer = 0 To ssh.CountDownList.Count - 1 Dim Val1 As Integer - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i)) Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i)) Then Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i))) Else Val1 = 0 @@ -19664,7 +19664,7 @@ restartInstantly: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ If sender IsNot Nothing Then MsgBox("Error on jumping to Random Position in Video!" & vbCrLf & ex.Message, - vbExclamation, "Jump to random Position") + vbExclamation, "Jump to random Position") Else Throw End If @@ -20773,7 +20773,7 @@ playLoop: Else MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If GoTo ExternalVideo @@ -20818,7 +20818,7 @@ playLoop: ssh.JumpVideo = False Else MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If Else @@ -20847,7 +20847,7 @@ playLoop: Else MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If End If @@ -20973,9 +20973,9 @@ ExternalVideo: If Directory.Exists(tmpDir) = False Then If throwException Then Throw New Exception( - "The given directory """ & tmpDir & """ does not exist." & - vbCrLf & vbCrLf & - "Please make sure the directory exists and it is spelled correctly in the script.") + "The given directory """ & tmpDir & """ does not exist." & + vbCrLf & vbCrLf & + "Please make sure the directory exists and it is spelled correctly in the script.") End If If tmpFilter = "*" Or tmpFilter = "*.*" Then @@ -20986,10 +20986,10 @@ ExternalVideo: If ImageList.Count = 0 Then If throwException Then Throw New FileNotFoundException( - "No images matching the filter """ & tmpFilter & - """ were found in """ & tmpDir & """!" & - vbCrLf & vbCrLf & - "Please make sure that valid files exist and the wildcards are applied correctly in the script.") + "No images matching the filter """ & tmpFilter & + """ were found in """ & tmpDir & """!" & + vbCrLf & vbCrLf & + "Please make sure that valid files exist and the wildcards are applied correctly in the script.") tmpImgLoc = "" Else tmpImgLoc = ImageList(New Random().Next(0, ImageList.Count)) @@ -21000,9 +21000,9 @@ ExternalVideo: tmpImgLoc = ImageToShow Else If throwException Then Throw New Exception( - """" & Path.GetFileName(ImageToShow) & """ was not found in """ & Path.GetDirectoryName(ImageToShow) & """!" & - vbCrLf & vbCrLf & - "Please make sure the file exists and it is spelled correctly in the script.") + """" & Path.GetFileName(ImageToShow) & """ was not found in """ & Path.GetDirectoryName(ImageToShow) & """!" & + vbCrLf & vbCrLf & + "Please make sure the file exists and it is spelled correctly in the script.") End If End If '############### Display the Image ################## @@ -21012,7 +21012,7 @@ ShowedBlogImage: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ If throwException Then Log.WriteError("Command @ShowImage[] was unable to display the image.", - ex, "Error at @ShowImage[]") + ex, "Error at @ShowImage[]") 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") If throwException And My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error at @ShowImage[]", False) End Try diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 79ff34e..221c41e 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -84,8 +84,8 @@ Public Class FrmSettings Dim oSpeech As New System.Speech.Synthesis.SpeechSynthesizer() Dim installedVoices As System.Collections.ObjectModel. - ReadOnlyCollection(Of System.Speech.Synthesis.InstalledVoice) _ - = oSpeech.GetInstalledVoices + ReadOnlyCollection(Of System.Speech.Synthesis.InstalledVoice) _ + = oSpeech.GetInstalledVoices Dim names(installedVoices.Count - 1) As String For i As Integer = 0 To installedVoices.Count - 1 @@ -453,14 +453,14 @@ Public Class FrmSettings For Each tmptbx As TextBox In New List(Of TextBox) From {TbxContact1ImageDir, TbxContact2ImageDir, TbxContact3ImageDir, TbxDomImageDir} If tmptbx.DataBindings("Text") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmptbx.Name & - """'s text-property. Set the databinding and recompile!") + """'s text-property. Set the databinding and recompile!") End If Next For Each tmptbx As CheckBox In New List(Of CheckBox) From {CBGlitter1, CBGlitter2, CBGlitter3} If tmptbx.DataBindings("Checked") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmptbx.Name & - """'s checked-property. Set the databinding and recompile!") + """'s checked-property. Set the databinding and recompile!") End If Next @@ -596,9 +596,9 @@ Public Class FrmSettings Private Sub timestampCheckBox_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles timestampCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(timestampCheckBox, "When this is selected, a timestamp will appear" & Environment.NewLine & - "with each message you and the domme send.") + "with each message you and the domme send.") If RBGerman.Checked = True Then TTDir.SetToolTip(timestampCheckBox, "Wenn dies aktiviert ist, wird mit jeder Nachricht die" & Environment.NewLine & - "du oder die Domina sendet ein Zeitstempel angezeigt") + "du oder die Domina sendet ein Zeitstempel angezeigt") @@ -610,13 +610,13 @@ Public Class FrmSettings Private Sub shownamesCheckBox_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles shownamesCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(shownamesCheckBox, "When this is selected, the names of you and the" & Environment.NewLine & - "domme will appear with every message you send." & Environment.NewLine & Environment.NewLine & - "If it is unselected, names will only appear" & Environment.NewLine & - "when you were not the last one to type.") + "domme will appear with every message you send." & Environment.NewLine & Environment.NewLine & + "If it is unselected, names will only appear" & Environment.NewLine & + "when you were not the last one to type.") If RBGerman.Checked = True Then TTDir.SetToolTip(shownamesCheckBox, "Wenn dies aktiviert ist, wird mit jeder Nachricht" & Environment.NewLine & - "die du oder die Domina sendet der Name angezeigt." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist, Namen werden nur erscheinen" & Environment.NewLine & - "wenn du nicht der letzte warst, der geschrieben hat.") + "die du oder die Domina sendet der Name angezeigt." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist, Namen werden nur erscheinen" & Environment.NewLine & + "wenn du nicht der letzte warst, der geschrieben hat.") @@ -633,11 +633,11 @@ Public Class FrmSettings If RBEnglish.Checked = True Then TTDir.SetToolTip(typeinstantlyCheckBox, "This program simulates a chat environment, so a brief delay appears before each post the domme makes." & Environment.NewLine & - "This delay is determined by the length of what she is saying and will be accompanied by the text ""[Dom Name] is typing...""" & Environment.NewLine & Environment.NewLine & - "When this is selected, the typing delay is removed and the domme's messages become instantaneous.") + "This delay is determined by the length of what she is saying and will be accompanied by the text ""[Dom Name] is typing...""" & Environment.NewLine & Environment.NewLine & + "When this is selected, the typing delay is removed and the domme's messages become instantaneous.") If RBGerman.Checked = True Then TTDir.SetToolTip(typeinstantlyCheckBox, "Dieses Programm simuliert eine Chat Umgebung, daher erscheint eine kurze Verzögerung vor jedem Beitrag den die Domina macht." & Environment.NewLine & - "Diese Verzögerung hängt von der Länge ab, was sie schreibt und wird begleitet mit dem text „[Dom Name] is typing…"" für einen besseren Effekt." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist, ist die „Tippen"" Verzögerung entfernt und die Domina Beiträge erschein sofort") + "Diese Verzögerung hängt von der Länge ab, was sie schreibt und wird begleitet mit dem text „[Dom Name] is typing…"" für einen besseren Effekt." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist, ist die „Tippen"" Verzögerung entfernt und die Domina Beiträge erschein sofort") @@ -652,7 +652,7 @@ Public Class FrmSettings Private Sub CBLockWindow_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBInputIcon.MouseHover TTDir.SetToolTip(CBInputIcon, "When this is selected, a small question mark icon will appear next to the" & Environment.NewLine & - "domme's question when your exact response will be saved to a variable.") + "domme's question when your exact response will be saved to a variable.") 'If RBGerman.Checked = True Then TTDir.SetToolTip(CBInputIcon, "Wenn dies aktiviert ist, wird mit jeder Nachricht die" & Environment.NewLine & _ ' "du oder die Domina sendet ein Zeitstempel angezeigt") @@ -665,9 +665,9 @@ Public Class FrmSettings Private Sub CBBlogImageWindow_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBBlogImageWindow.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBBlogImageWindow, "When this is selected, any blog images the domme shows you will" & Environment.NewLine & - "automatically be saved to ""[root folder]\Images\Session Images\"".") + "automatically be saved to ""[root folder]\Images\Session Images\"".") If RBGerman.Checked = True Then TTDir.SetToolTip(CBBlogImageWindow, "Wenn dies aktiviert ist, wird jedes Blog Bild, welches die Domina dir zeigt" & Environment.NewLine & - "automatisch gespeichert in „…\Tease AI Open Beta\Images\Session Images\""") + "automatisch gespeichert in „…\Tease AI Open Beta\Images\Session Images\""") 'LBLGeneralSettingsDescription.Text = "When this is selected, any blog images the domme shows you will automatically be saved to ""[root folder]\Images\Session Images\""." @@ -678,9 +678,9 @@ Public Class FrmSettings Private Sub landscapeCheckBox_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles landscapeCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(landscapeCheckBox, "When this is selected, images that appear in the main window will be" & Environment.NewLine & - "stretched to fit the screen if their width is greater than their height.") + "stretched to fit the screen if their width is greater than their height.") If RBGerman.Checked = True Then TTDir.SetToolTip(landscapeCheckBox, "Wenn dies aktiviert ist, werden die Bilder(welche Angezeigt" & Environment.NewLine & - "werden) gestreckt, wenn ihre Breite größer als ihre Höhe ist.") + "werden) gestreckt, wenn ihre Breite größer als ihre Höhe ist.") 'LBLGeneralSettingsDescription.Text = "When this is selected, images that appear in the main window will be stretched to fit the screen if their width is greater than their height." @@ -689,9 +689,9 @@ Public Class FrmSettings Private Sub CBImageInfo_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBImageInfo.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBImageInfo, "When this is selected, the local filepath or URL address of each image displayed" & Environment.NewLine & - "in the main window will appear in the upper left hand corner of the screen.") + "in the main window will appear in the upper left hand corner of the screen.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBImageInfo, "Wenn dies aktiviert ist, wird der Lokale Dateipfad oder die URL-Adresse" & Environment.NewLine & - "von jedem Bild in der oberen linken Ecke des Bildschirms angezeigt.") + "von jedem Bild in der oberen linken Ecke des Bildschirms angezeigt.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the local filepath or URL address of each image displayed in the main window will appear in the upper left hand corner of the screen." @@ -701,13 +701,13 @@ Public Class FrmSettings Private Sub BTNDomImageDir_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNDomImageDir.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(BTNDomImageDir, "Use this button to select a directory containing several image" & Environment.NewLine & - "set folders of the same model you're using as your domme." & Environment.NewLine & Environment.NewLine & - "Once a valid directory has been set, any time you say hello to the domme, one of" & Environment.NewLine & - "those folders will automatically be selected at random and used for the slideshow.") + "set folders of the same model you're using as your domme." & Environment.NewLine & Environment.NewLine & + "Once a valid directory has been set, any time you say hello to the domme, one of" & Environment.NewLine & + "those folders will automatically be selected at random and used for the slideshow.") If RBGerman.Checked = True Then TTDir.SetToolTip(BTNDomImageDir, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Domina benutzt." & Environment.NewLine & Environment.NewLine & - "Nachdem einmal ein gültiges Verzeichnis gesetzt wurde, wird nachdem du Hello" & Environment.NewLine & - "zu der Domina gesagt hast, automatisch zufällig eine Diashow ausgewählt.") + "Bildersets von dem selben Model enthält, die du als Domina benutzt." & Environment.NewLine & Environment.NewLine & + "Nachdem einmal ein gültiges Verzeichnis gesetzt wurde, wird nachdem du Hello" & Environment.NewLine & + "zu der Domina gesagt hast, automatisch zufällig eine Diashow ausgewählt.") 'LBLGeneralSettingsDescription.Text = "Use this button to select a directory containing several image set folders of the same model you're using as your domme. Once a valid directory has been set, any time" _ @@ -720,9 +720,9 @@ Public Class FrmSettings Private Sub offRadio_MouseHover(sender As System.Object, e As System.EventArgs) Handles offRadio.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(offRadio, "When this is set, any domme slideshow you have selected will not advance during the" & Environment.NewLine & - "tease. Use the Previous and Next buttons on the Media Bar to change the images.") + "tease. Use the Previous and Next buttons on the Media Bar to change the images.") If RBGerman.Checked = True Then TTDir.SetToolTip(offRadio, "Wenn dies aktiviert ist, wird jede Diashow nicht automatisch die Bilder wechseln." & Environment.NewLine & - "Nutze die Vor- und Zurückschaltflächen in der media bar um die Bilder zu wechseln.") + "Nutze die Vor- und Zurückschaltflächen in der media bar um die Bilder zu wechseln.") 'LBLGeneralSettingsDescription.Text = "When this is set, any slideshow you have selected will not advance during the tease. Use the Previous and Next buttons on the Media Bar to change the images." @@ -732,7 +732,7 @@ Public Class FrmSettings Private Sub timedRadio_MouseHover(sender As System.Object, e As System.EventArgs) Handles timedRadio.MouseHover TTDir.SetToolTip(timedRadio, "When this is set, any slideshow you have selected will advance the image" & Environment.NewLine & - "every number of seconds displayed in the box to the right of this option.") + "every number of seconds displayed in the box to the right of this option.") 'LBLGeneralSettingsDescription.Text = "When this is set, any slideshow you have selected will advance the image every number of seconds displayed in the box to the right of this option." @@ -742,7 +742,7 @@ Public Class FrmSettings Private Sub SlideshowNumBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles slideshowNumBox.MouseHover TTDir.SetToolTip(slideshowNumBox, "The number of seconds between image changes" & Environment.NewLine & - "when the ""Timed"" slideshow option is checked.") + "when the ""Timed"" slideshow option is checked.") 'LBLGeneralSettingsDescription.Text = "The number of seconds between image changes when the ""Timed"" slideshow option is checked." @@ -758,13 +758,13 @@ Public Class FrmSettings Private Sub teaseRadio_MouseHover(sender As System.Object, e As System.EventArgs) Handles teaseRadio.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(teaseRadio, "When this is set, any slideshow you have selected will advance automatically when the domme " & Environment.NewLine & - "types. The slideshow may move forward or backward, but will not loop either direction." & Environment.NewLine & Environment.NewLine & - "You can change the odds of which way the slideshow will move in" & Environment.NewLine & - "the Ranges tab. This is the default slideshow mode for Tease AI.") + "types. The slideshow may move forward or backward, but will not loop either direction." & Environment.NewLine & Environment.NewLine & + "You can change the odds of which way the slideshow will move in" & Environment.NewLine & + "the Ranges tab. This is the default slideshow mode for Tease AI.") If RBGerman.Checked = True Then TTDir.SetToolTip(teaseRadio, "Wenn dies aktiviert ist, wird die Diashow automatisch die Bilder wechseln wenn die Domina schreibt." & Environment.NewLine & - "Die Diashow kann vorwärts oder rückwärts laufen, aber wird keine Richtung wiederholen." & Environment.NewLine & Environment.NewLine & - "Du kannst die Wahrscheinlichkeit in welche Richtung die Diashow läuft im Wertebereichs" & Environment.NewLine & - "„Reiter"" ändern. Dies ist der Standart Diashow modus in Tease AI.") + "Die Diashow kann vorwärts oder rückwärts laufen, aber wird keine Richtung wiederholen." & Environment.NewLine & Environment.NewLine & + "Du kannst die Wahrscheinlichkeit in welche Richtung die Diashow läuft im Wertebereichs" & Environment.NewLine & + "„Reiter"" ändern. Dies ist der Standart Diashow modus in Tease AI.") 'LBLGeneralSettingsDescription.Text = "When this is set, any slideshow you have selected will advance automatically when the domme types. The slideshow may move forward or backward, but will not loop either" _ @@ -780,9 +780,9 @@ Public Class FrmSettings Private Sub CBSettingsPause_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBSettingsPause.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSettingsPause, "When this is selected, the program will pause any time" & Environment.NewLine & - "the settings menu is open and resume once it is closed.") + "the settings menu is open and resume once it is closed.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSettingsPause, "Wenn dies aktiviert ist, wird das Programm immer in Pause" & Environment.NewLine & - "springen solange das Einstellungsmenü geöffnet ist.") + "springen solange das Einstellungsmenü geöffnet ist.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the program will pause any time the settings menu is open and resume once it is closed." @@ -792,13 +792,13 @@ Public Class FrmSettings Private Sub BTNDomColor_MouseHover(sender As Object, e As System.EventArgs) Handles BTNDomColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(BTNDomColor, "This button allows you to change the color of the" & Environment.NewLine & - "domme's name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & - "A preview will appear in the text box next to this" & Environment.NewLine & - "button once a color has been selected.") + "domme's name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & + "A preview will appear in the text box next to this" & Environment.NewLine & + "button once a color has been selected.") If RBGerman.Checked = True Then TTDir.SetToolTip(BTNDomColor, "Diese Schaltfläche erlaubt dir die Farbe des Domina Namens" & Environment.NewLine & - "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & - "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & - "angezeigt, nachdem eine Farbe ausgewählt wurde.") + "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & + "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & + "angezeigt, nachdem eine Farbe ausgewählt wurde.") 'LBLGeneralSettingsDescription.Text = "This button allows you to change the color of the domme's name as it appears in the chat window. A preview will appear in the text box next to this button once a color has been selected." @@ -809,13 +809,13 @@ Public Class FrmSettings Private Sub BTNSubColor_MouseHover(sender As Object, e As System.EventArgs) Handles BTNSubColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(BTNSubColor, "This button allows you to change the color of" & Environment.NewLine & - "your name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & - "A preview will appear in the text box next to this" & Environment.NewLine & - "button once a color has been selected.") + "your name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & + "A preview will appear in the text box next to this" & Environment.NewLine & + "button once a color has been selected.") If RBGerman.Checked = True Then TTDir.SetToolTip(BTNSubColor, "Diese Schaltfläche erlaubt dir die Farbe des Sklaven Namens" & Environment.NewLine & - "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & - "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & - "angezeigt, nachdem eine Farbe ausgewählt wurde.") + "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & + "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & + "angezeigt, nachdem eine Farbe ausgewählt wurde.") 'LBLGeneralSettingsDescription.Text = "This button allows you to change the color of your name as it appears in the chat window. A preview will appear in the text box next to this button once a color has been selected." @@ -825,9 +825,9 @@ Public Class FrmSettings Private Sub LBLDomColor_Click(sender As System.Object, e As System.EventArgs) Handles LBLDomColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(LBLDomColor, "After clicking the ""Domme Name Color"" button to the" & Environment.NewLine & - "left, a preview of the selected color will appear here.") + "left, a preview of the selected color will appear here.") If RBGerman.Checked = True Then TTDir.SetToolTip(LBLDomColor, "Nachdem Klicken der Schaltfläche ""Domina Farbe für Namen"" zur" & Environment.NewLine & - "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") + "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") 'LBLGeneralSettingsDescription.Text = "After clicking the ""Domme Name Color"" button to the left, a preview of the selected color will appear here." @@ -837,9 +837,9 @@ Public Class FrmSettings Private Sub LBLSubColor_Click(sender As System.Object, e As System.EventArgs) Handles LBLSubColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(LBLSubColor, "After clicking the ""Sub Name Color"" button to the" & Environment.NewLine & - "left, a preview of the selected color will appear here.") + "left, a preview of the selected color will appear here.") If RBGerman.Checked = True Then TTDir.SetToolTip(LBLSubColor, "Nachdem Klicken der Schaltfläche ""Sklaven Farbe für Namen"" zur" & Environment.NewLine & - "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") + "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") 'LBLGeneralSettingsDescription.Text = "After clicking the ""Sub Name Color"" button to the left, a preview of the selected color will appear here." @@ -850,13 +850,13 @@ Public Class FrmSettings Private Sub CBDomDel_Click(sender As System.Object, e As System.EventArgs) Handles CBDomDel.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBDomDel, "When this box is checked, the domme will be able to permanently delete" & Environment.NewLine & - "media from your hard drive when such Commands are used in scripts." & Environment.NewLine & Environment.NewLine & - "When this box is NOT checked, media will not actually be deleted. Images will still" & Environment.NewLine & - "disappear from the window, but they will not be deleted from the hard drive.") + "media from your hard drive when such Commands are used in scripts." & Environment.NewLine & Environment.NewLine & + "When this box is NOT checked, media will not actually be deleted. Images will still" & Environment.NewLine & + "disappear from the window, but they will not be deleted from the hard drive.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBDomDel, "Wenn dies aktiviert ist, ist die Domina dazu in der Lage Medien permanent von" & Environment.NewLine & - "deiner Festplatte zu löschen, wenn solche Kommandos in dem Script genutzt werden." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist, werden Bilder vom Bildschirm" & Environment.NewLine & - "verschwinden, aber nicht von der Festplatte gelöscht.") + "deiner Festplatte zu löschen, wenn solche Kommandos in dem Script genutzt werden." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist, werden Bilder vom Bildschirm" & Environment.NewLine & + "verschwinden, aber nicht von der Festplatte gelöscht.") @@ -909,13 +909,13 @@ Public Class FrmSettings Private Sub CBSlideshowSubDir_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBSlideshowSubDir.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSlideshowSubDir, "When this is selected, the program will include all subdirectories" & Environment.NewLine & - "when you select a folder for domme slideshow images" & Environment.NewLine & Environment.NewLine & - "When it is unselected, only the images in the top" & Environment.NewLine & - "level of the folder will be used.") + "when you select a folder for domme slideshow images" & Environment.NewLine & Environment.NewLine & + "When it is unselected, only the images in the top" & Environment.NewLine & + "level of the folder will be used.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSlideshowSubDir, "Wenn dies aktiviert ist, wird das Programm alle Unterordner mit" & Environment.NewLine & - "einbeziehn wenn du ein Ordner für Diashow bilder gewählt hast." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist. Werden nur Bilder" & Environment.NewLine & - "des ausgewählten Ordners benutzt.") + "einbeziehn wenn du ein Ordner für Diashow bilder gewählt hast." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist. Werden nur Bilder" & Environment.NewLine & + "des ausgewählten Ordners benutzt.") @@ -937,9 +937,9 @@ Public Class FrmSettings Private Sub CBSlideshowRandom_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBSlideshowRandom.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSlideshowRandom, "When this is selected, the slideshow will display images randomly." & Environment.NewLine & - "When it is unselected, it will display images in order of their filename.") + "When it is unselected, it will display images in order of their filename.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSlideshowRandom, "Wenn dies aktiviert ist, werden Diashow Bilder zufällig angezeigt." & Environment.NewLine & - " Wenn dies deaktiviert ist, werden die Bilder in Reihenfolge ihrer Dateinamen gezeigt.") + " Wenn dies deaktiviert ist, werden die Bilder in Reihenfolge ihrer Dateinamen gezeigt.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the slideshow will display images randomly. When it is unselected, it will display images in order of their filename." @@ -950,13 +950,13 @@ Public Class FrmSettings Private Sub CBAutosaveChatlog_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBAutosaveChatlog.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBAutosaveChatlog, "When this is selected, the program will save a chatlog called" & Environment.NewLine & - """Autosave.html"" any time you or the domme post a message." & Environment.NewLine & Environment.NewLine & - "This log is overwritten each time, so it will only display a record of the current session." & Environment.NewLine & - "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") + """Autosave.html"" any time you or the domme post a message." & Environment.NewLine & Environment.NewLine & + "This log is overwritten each time, so it will only display a record of the current session." & Environment.NewLine & + "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBAutosaveChatlog, "Wenn dies aktiviert ist, speichert das Programm einen Chatlog" & Environment.NewLine & - "(„Autosave.html"") immer wenn du oder die Domina eine Nachricht senden." & Environment.NewLine & Environment.NewLine & - "Dieses Log wird jedes Mal überschrieben, so das es nur die Aktuelle Session aufnimmt/anzeigt." & Environment.NewLine & - "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") + "(„Autosave.html"") immer wenn du oder die Domina eine Nachricht senden." & Environment.NewLine & Environment.NewLine & + "Dieses Log wird jedes Mal überschrieben, so das es nur die Aktuelle Session aufnimmt/anzeigt." & Environment.NewLine & + "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the program will save a chatlog called ""Autosave.html"" any time you or the domme post a message. This log is overwritten each time, so it will only display " & _ @@ -970,11 +970,11 @@ Public Class FrmSettings Private Sub CBSaveChatlogExit_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBSaveChatlogExit.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSaveChatlogExit, "When this is selected, a unique chatlog that includes the" & Environment.NewLine & - "date and time will be created whenever you exit the program." & Environment.NewLine & Environment.NewLine & - "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") + "date and time will be created whenever you exit the program." & Environment.NewLine & Environment.NewLine & + "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSaveChatlogExit, "Wenn dies aktiviert ist, speichert das Programm einen einzigartigen Chatlog," & Environment.NewLine & - "der Datum und Zeit beinhaltet, immer dann wenn du das Programm beendest." & Environment.NewLine & Environment.NewLine & - "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") + "der Datum und Zeit beinhaltet, immer dann wenn du das Programm beendest." & Environment.NewLine & Environment.NewLine & + "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") ' LBLGeneralSettingsDescription.Text = "When this is selected, a unique chatlog that includes the date and time will be created whenever you exit the program. This log can be found in the ""Chatlogs"" directory in " & _ @@ -987,9 +987,9 @@ Public Class FrmSettings Private Sub CBJackInTheBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBAuditStartup.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBAuditStartup, "When this is checked, the program will automatically audit all" & Environment.NewLine & - "scripts in the current domme's directory and fix common errors.") + "scripts in the current domme's directory and fix common errors.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBAuditStartup, "Wenn dies aktiviert ist, wird das Programm automatisch alle" & Environment.NewLine & - "Scripts im domina Ordner prüfen und häufige Fehler beheben.") + "Scripts im domina Ordner prüfen und häufige Fehler beheben.") 'LBLGeneralSettingsDescription.Text = "When this is checked, the program will automatically audit all scripts in the current domme's directory and fix common errors." @@ -1000,10 +1000,10 @@ Public Class FrmSettings Private Sub TBSafeword_MouseHover(sender As System.Object, e As System.EventArgs) Handles TBSafeword.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(TBSafeword, "Use this to set the word you would like to use as your safeword." & Environment.NewLine & Environment.NewLine & - "When used by itself during interaction with the domme, it will stop all activity" & Environment.NewLine & - "and begin an Interrupt script where the domme makes sure you're okay to continue.") + "When used by itself during interaction with the domme, it will stop all activity" & Environment.NewLine & + "and begin an Interrupt script where the domme makes sure you're okay to continue.") If RBGerman.Checked = True Then TTDir.SetToolTip(TBSafeword, "Gebe hier dein Safeword ein, welches alle Aktivitäten der Domina stopt," & Environment.NewLine & - "bis sie sicher ist, das du weiter machen kannst.") + "bis sie sicher ist, das du weiter machen kannst.") 'LBLGeneralSettingsDescription.Text = "Use this to set the word you would like to use as your safeword. When used by itself during interaction with the domme, it will stop all activity and begin an Interrupt" _ ' & " script where the domme makes sure you're okay to continue." @@ -1015,13 +1015,13 @@ Public Class FrmSettings If RBEnglish.Checked = True Then TTDir.SetToolTip(TTSCheckBox, "When this is selected, the domme will ""speak"" her lines using whichever TTS voice you have selected." & Environment.NewLine & - "This setting must be manually checked to make the most out of the Hypnotic Guide app." & Environment.NewLine & Environment.NewLine & - "For privacy reasons, this setting will not be saved through multiple uses of the program." & Environment.NewLine & - "It must be selected each time you start Tease AI and wish to use it.") + "This setting must be manually checked to make the most out of the Hypnotic Guide app." & Environment.NewLine & Environment.NewLine & + "For privacy reasons, this setting will not be saved through multiple uses of the program." & Environment.NewLine & + "It must be selected each time you start Tease AI and wish to use it.") If RBGerman.Checked = True Then TTDir.SetToolTip(TTSCheckBox, "Wenn dies Aktiviert ist, wird die Domina ihre Zeilen ""sprechen"" mit welcher TTS stimme du gewählt hast." & Environment.NewLine & - "Diese Einstellung muss Manuel gewählt werden um das meiste aus der Hypnotic Guide app zu machen." & Environment.NewLine & Environment.NewLine & - "Wegen der Privatsphäre wird diese Einstellung nicht gespeichert," & Environment.NewLine & - "sondern muss bei jedem Start von Tease AI gesondert gewählt werden.") + "Diese Einstellung muss Manuel gewählt werden um das meiste aus der Hypnotic Guide app zu machen." & Environment.NewLine & Environment.NewLine & + "Wegen der Privatsphäre wird diese Einstellung nicht gespeichert," & Environment.NewLine & + "sondern muss bei jedem Start von Tease AI gesondert gewählt werden.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the domme will ""speak"" her lines using whichever TTS voice you have selected. This setting must be manually checked to make the most out of the" _ @@ -1357,7 +1357,7 @@ Public Class FrmSettings Private Sub domlevelNumBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles domlevelNumBox.MouseHover TTDir.SetToolTip(domlevelNumBox, "Sets the Domme's level (1-5)." & Environment.NewLine & Environment.NewLine & - "This setting affects the difficulty of the tasks the domme will subject you to.") + "This setting affects the difficulty of the tasks the domme will subject you to.") 'LblDommeSettingsDescription.Text = "Sets the Domme's level (1-5)." & Environment.NewLine & Environment.NewLine & "This setting affects the difficulty of the tasks the domme will subject you to. For example, a domme with a higher level may make you hold edges for " _ ' & "longer periods of time, while a domme with a lower level may not make you edge that often. The domme's level is a general guideline of how easy-going or sadistic she can be, not necessarily what she will " _ @@ -1367,7 +1367,7 @@ Public Class FrmSettings Private Sub NBEmpathy_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBEmpathy.MouseHover TTDir.SetToolTip(NBEmpathy, "Sets the Domme's Apathy level (1-5)." & Environment.NewLine & Environment.NewLine & - "This setting affects how merciless the domme is likely to be with you") + "This setting affects how merciless the domme is likely to be with you") 'LblDommeSettingsDescription.Text = "Sets the Domme's Apathy level (1-5)." & Environment.NewLine & Environment.NewLine & "This setting affects how lenient the domme is likely to be with you. For example, a domme with a higher level may rarely take mercy on you or let " _ ' & "you stop a task, while a domme with a lower level may never attempt to push your limits." @@ -1459,7 +1459,7 @@ Public Class FrmSettings Private Sub crazyCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles crazyCheckBox.MouseHover TTDir.SetToolTip(crazyCheckBox, "Gives the Domme the Crazy trait." & Environment.NewLine & Environment.NewLine & - "This will open up dialogue options that suggest the domme is a little unhinged.") + "This will open up dialogue options that suggest the domme is a little unhinged.") 'LblDommeSettingsDescription.Text = "Gives the Domme the Crazy trait." & Environment.NewLine & Environment.NewLine & "This will open up dialogue options that suggest the domme is a little unhinged. " & _ ' "Scripts may also contain keywords and variables that will limit certain paths to this trait." @@ -1509,7 +1509,7 @@ Public Class FrmSettings Private Sub vulgarCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles vulgarCheckBox.MouseHover TTDir.SetToolTip(vulgarCheckBox, "Gives the Domme the Vulgar trait." & Environment.NewLine & Environment.NewLine & - "This will open up vulgar dialogue options for the domme.") + "This will open up vulgar dialogue options for the domme.") 'LblDommeSettingsDescription.Text = "Gives the Domme the Vulgar trait." & Environment.NewLine & Environment.NewLine & "This will open up vulgar dialogue options for the domme. She will include words like ""titties"" and " & _ ' """gonads"" while a more reserved domme may limit herself to ""tits"" and ""balls"". Scripts may also contain keywords and variables that will limit certain paths to this trait." @@ -1526,8 +1526,8 @@ Public Class FrmSettings Private Sub supremacistCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles supremacistCheckBox.MouseHover TTDir.SetToolTip(supremacistCheckBox, "Gives the Domme the Supremacist trait." & Environment.NewLine & Environment.NewLine & - "This will open up dialogue options that suggest the" & Environment.NewLine & - "domme considers herself inherently superior to you.") + "This will open up dialogue options that suggest the" & Environment.NewLine & + "domme considers herself inherently superior to you.") ' LblDommeSettingsDescription.Text = "Gives the Domme the Supremacist trait." & Environment.NewLine & Environment.NewLine & "This will open up dialogue options that suggest the domme considers herself inherently superior " & _ ' "to you. Scripts may also contain keywords and variables that will limit certain paths to this trait." @@ -1544,7 +1544,7 @@ Public Class FrmSettings Private Sub alloworgasmComboBox_MouseHover(sender As Object, e As System.EventArgs) Handles alloworgasmComboBox.MouseHover TTDir.SetToolTip(alloworgasmComboBox, "Sets how often the domme allows the user to have an orgasm during End scripts." & Environment.NewLine & Environment.NewLine & - "To further define these parameters, use the options in the Ranges tab.") + "To further define these parameters, use the options in the Ranges tab.") 'LblDommeSettingsDescription.Text = "Sets how often the domme allows the user to have an orgasm during End scripts." & Environment.NewLine & Environment.NewLine & "To further define these parameters, use the options in the Ranges tab." @@ -1553,7 +1553,7 @@ Public Class FrmSettings Private Sub ruinorgasmComboBox_MouseHover(sender As Object, e As System.EventArgs) Handles ruinorgasmComboBox.MouseHover TTDir.SetToolTip(ruinorgasmComboBox, "Sets how often the domme will ruin the user's orgasm during End scripts." & Environment.NewLine & Environment.NewLine & - "To further define these parameters, use the options in the Ranges tab.") + "To further define these parameters, use the options in the Ranges tab.") 'LblDommeSettingsDescription.Text = "Sets how often the domme will ruin the user's orgasm during End scripts." & Environment.NewLine & Environment.NewLine & "To further define these parameters, use the options in the Ranges tab." End Sub @@ -1561,7 +1561,7 @@ Public Class FrmSettings Private Sub LCaseCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles LCaseCheckBox.MouseHover TTDir.SetToolTip(LCaseCheckBox, "When this is checked, the domme won't use capital letters when she types." & Environment.NewLine & Environment.NewLine & - "She will still capitalize Me/My/Mine if that box is checked.") + "She will still capitalize Me/My/Mine if that box is checked.") 'LblDommeSettingsDescription.Text = "When this is checked, the domme won't use capital letters when she types." & Environment.NewLine & Environment.NewLine & "She will still capitalize Me/My/Mine if that box is checked." @@ -1622,7 +1622,7 @@ Public Class FrmSettings Private Sub CBMeMyMine_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBMeMyMine.MouseHover TTDir.SetToolTip(CBMeMyMine, "When this is checked, the domme will always capitalize ""Me, My and Mine""." & Environment.NewLine & Environment.NewLine & - "If the lowercase typing option is checked, she will also capitalize ""I, I'm, I'd and I'll"".") + "If the lowercase typing option is checked, she will also capitalize ""I, I'm, I'd and I'll"".") End Sub Private Sub TBEmote_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBEmote.LostFocus @@ -1647,7 +1647,7 @@ Public Class FrmSettings Private Sub LockOrgasmChances_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBLockOrgasmChances.MouseHover TTDir.SetToolTip(CBLockOrgasmChances, "If checked the orgasm chances will be locked and unchangeable once you start the tease." & Environment.NewLine & Environment.NewLine & - "Orgasm chances will be changeable and unlocked when out of a tease.") + "Orgasm chances will be changeable and unlocked when out of a tease.") End Sub Private Sub CBDomDenialEnds_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBDomDenialEnds.LostFocus @@ -1660,8 +1660,8 @@ Public Class FrmSettings Private Sub CBDomDenialEnds_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBDomDenialEnds.MouseHover TTDir.SetToolTip(CBDomDenialEnds, "Determines whether the domme will keep teasing you after you have been denied." & Environment.NewLine & Environment.NewLine & - "If this box is checked, she will end the tease after she decides to deny your orgasm." & Environment.NewLine & - "If it is unchecked, she may choose to start teasing you all over again.") + "If this box is checked, she will end the tease after she decides to deny your orgasm." & Environment.NewLine & + "If it is unchecked, she may choose to start teasing you all over again.") End Sub Private Sub CBDomOrgasmEnds_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBDomOrgasmEnds.LostFocus @@ -1674,36 +1674,36 @@ Public Class FrmSettings Private Sub CBDomOrgasmEnds_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBDomOrgasmEnds.MouseHover TTDir.SetToolTip(CBDomOrgasmEnds, "Determines whether the domme will keep teasing you after you have an orgasm." & Environment.NewLine & Environment.NewLine & - "If this box is checked, she will end the tease after she allows you to cum." & Environment.NewLine & - "If it is unchecked, she may choose to start teasing you all over again.") + "If this box is checked, she will end the tease after she allows you to cum." & Environment.NewLine & + "If it is unchecked, she may choose to start teasing you all over again.") End Sub Private Sub LockOrgasm_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmsperlockButton.MouseHover TTDir.SetToolTip(orgasmsperlockButton, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub Private Sub limitcheckbox_MouseHover(sender As System.Object, e As System.EventArgs) Handles limitcheckbox.MouseHover TTDir.SetToolTip(limitcheckbox, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub Private Sub orgasmsPerNumBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmsPerNumBox.MouseHover TTDir.SetToolTip(orgasmsPerNumBox, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub Private Sub orgasmsperComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmsperComboBox.MouseHover TTDir.SetToolTip(orgasmsperComboBox, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub @@ -1711,8 +1711,8 @@ Public Class FrmSettings Private Sub LockRandomOrgasm_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmlockrandombutton.MouseHover TTDir.SetToolTip(orgasmsperComboBox, "When this arrangement is selected, the domme will randomly limit the" & Environment.NewLine & - "number of orgasms she allows you to have for a random period of time." & Environment.NewLine & Environment.NewLine & - "Once you confirm this choice, it cannot be undone until the period of time is up!") + "number of orgasms she allows you to have for a random period of time." & Environment.NewLine & Environment.NewLine & + "Once you confirm this choice, it cannot be undone until the period of time is up!") 'LblDommeSettingsDescription.Text = "When this button is clicked, the domme will randomly limit the number of orgasms she allows you to have for a random period of time." & Environment.NewLine & Environment.NewLine & _ ' "Her choice will be based on her level, so be careful. A higher level domme could limit the amount of orgasms you have for up to a year! Once you confirm this choice, it cannot be undone until the period of time is up!" @@ -1725,9 +1725,9 @@ Public Class FrmSettings Private Sub NBDomMoodMin_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMin.MouseHover TTDir.SetToolTip(NBDomMoodMin, "Determines the low range of the domme's mood index." & Environment.NewLine & - "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & - "The higher this number is, the easier it is to put her in a bad mood." & Environment.NewLine & - "Setting this value to ""1"" will prevent the domme from ever being in a bad mood.") + "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & + "The higher this number is, the easier it is to put her in a bad mood." & Environment.NewLine & + "Setting this value to ""1"" will prevent the domme from ever being in a bad mood.") @@ -1742,9 +1742,9 @@ Public Class FrmSettings Private Sub NBDomMoodMax_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMax.MouseHover TTDir.SetToolTip(NBDomMoodMax, "Determines the high range of the domme's mood index." & Environment.NewLine & - "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & - "The lower this number is, the easier it is to put her in a good mood." & Environment.NewLine & - "Setting this value to ""10"" will prevent the domme from ever being in an especially great mood.") + "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & + "The lower this number is, the easier it is to put her in a good mood." & Environment.NewLine & + "Setting this value to ""10"" will prevent the domme from ever being in an especially great mood.") @@ -1766,7 +1766,7 @@ Public Class FrmSettings Private Sub NBAvgCockMin_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMin.MouseHover TTDir.SetToolTip(NBAvgCockMin, "Determines the lowest range of what the domme considers an average cock size." & Environment.NewLine & Environment.NewLine & - "If your cock size is lower then this, the domme will consider it small.") + "If your cock size is lower then this, the domme will consider it small.") End Sub Private Sub NBAvgCockMax_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMax.LostFocus @@ -1775,7 +1775,7 @@ Public Class FrmSettings Private Sub NBAvgCockMax_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMax.MouseHover TTDir.SetToolTip(NBAvgCockMin, "Determines the highest range of what the domme considers an average cock size." & Environment.NewLine & Environment.NewLine & - "If your cock size is higher than this, the domme will consider it big.") + "If your cock size is higher than this, the domme will consider it big.") End Sub Private Sub NBAvgCockMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMin.ValueChanged @@ -1793,8 +1793,8 @@ Public Class FrmSettings Private Sub NBSelfAgeMin_Enter(sender As Object, e As System.EventArgs) Handles NBSelfAgeMin.MouseHover TTDir.SetToolTip(NBSelfAgeMin, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If the domme's age is below this number, she will use dialogue options that suggest" & Environment.NewLine & - "having the maturity and body of a girl in her early twenties.") + "If the domme's age is below this number, she will use dialogue options that suggest" & Environment.NewLine & + "having the maturity and body of a girl in her early twenties.") End Sub Private Sub NBSelfAgeMax_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBSelfAgeMax.LostFocus @@ -1804,8 +1804,8 @@ Public Class FrmSettings Private Sub NBSelfAgeMax_Enter(sender As Object, e As System.EventArgs) Handles NBSelfAgeMax.MouseHover TTDir.SetToolTip(NBSelfAgeMax, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If the domme's age is above this number, she will use dialogue options that suggest" & Environment.NewLine & - "an exceptional amount of maturity, or having an aging body.") + "If the domme's age is above this number, she will use dialogue options that suggest" & Environment.NewLine & + "an exceptional amount of maturity, or having an aging body.") End Sub Private Sub NBSelfAgeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBSelfAgeMin.ValueChanged @@ -1822,8 +1822,8 @@ Public Class FrmSettings Private Sub NBSubAgeMin_Enter(sender As Object, e As System.EventArgs) Handles NBSubAgeMin.MouseHover TTDir.SetToolTip(NBSubAgeMin, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If your age is below this number, the domme will use dialogue options that suggest" & Environment.NewLine & - "you have the virility and body of a male in his early twenties.") + "If your age is below this number, the domme will use dialogue options that suggest" & Environment.NewLine & + "you have the virility and body of a male in his early twenties.") End Sub Private Sub NBSubAgeMax_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBSubAgeMax.LostFocus @@ -1832,8 +1832,8 @@ Public Class FrmSettings Private Sub NBSubAgeMax_Enter(sender As Object, e As System.EventArgs) Handles NBSubAgeMax.MouseHover TTDir.SetToolTip(NBSubAgeMax, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If your age is above this number, the domme will use dialogue options that suggest" & Environment.NewLine & - "you're over the hill.") + "If your age is above this number, the domme will use dialogue options that suggest" & Environment.NewLine & + "you're over the hill.") End Sub Private Sub NBSubAgeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBSubAgeMin.ValueChanged @@ -1846,44 +1846,44 @@ Public Class FrmSettings Private Sub PetNameBox1_Enter(sender As Object, e As System.EventArgs) Handles petnameBox1.MouseHover TTDir.SetToolTip(petnameBox1, "Enter a pet name that the domme will call you when she's in a great mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub PetNameBox2_Enter(sender As Object, e As System.EventArgs) Handles petnameBox2.MouseHover TTDir.SetToolTip(petnameBox2, "Enter a pet name that the domme will call you when she's in a great mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub PetNameBox3_Enter(sender As Object, e As System.EventArgs) Handles petnameBox3.MouseHover TTDir.SetToolTip(petnameBox3, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub PetNameBox4_Enter(sender As Object, e As System.EventArgs) Handles petnameBox4.MouseHover TTDir.SetToolTip(petnameBox4, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub PetNameBox5_Enter(sender As Object, e As System.EventArgs) Handles petnameBox5.MouseHover TTDir.SetToolTip(petnameBox5, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub PetNameBox6_Enter(sender As Object, e As System.EventArgs) Handles petnameBox6.MouseHover TTDir.SetToolTip(petnameBox6, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub PetNameBox7_Enter(sender As Object, e As System.EventArgs) Handles petnameBox7.MouseHover TTDir.SetToolTip(petnameBox7, "Enter a pet name that the domme will call you when she's in a bad mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub PetNameBox8_Enter(sender As Object, e As System.EventArgs) Handles petnameBox8.MouseHover TTDir.SetToolTip(petnameBox8, "Enter a pet name that the domme will call you when she's in a bad mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub Private Sub BTNSaveDomSet_MouseHover(sender As Object, e As System.EventArgs) Handles BTNSaveDomSet.MouseHover @@ -1956,7 +1956,7 @@ Public Class FrmSettings Public Shared Sub saveCheckedListBox(target As CheckedListBox, filePath As String) Try If Not Directory.Exists(Path.GetDirectoryName(filePath)) Then _ - Directory.CreateDirectory(Path.GetDirectoryName(filePath)) + Directory.CreateDirectory(Path.GetDirectoryName(filePath)) Using fs As New FileStream(filePath, IO.FileMode.Create), BinWrite As New BinaryWriter(fs) For i = 0 To target.Items.Count - 1 @@ -2019,9 +2019,9 @@ Public Class FrmSettings End Sub Private Sub loadCheckedListBox(target As CheckedListBox, - ByVal loadPath As String, - ByVal scriptDir As String, - ByVal Optional preEnable As Boolean = True) + ByVal loadPath As String, + ByVal scriptDir As String, + ByVal Optional preEnable As Boolean = True) Try Dim Modified As Boolean = False @@ -2525,7 +2525,7 @@ SkipDeserializing: End If If Not File.Exists(Filepath) Then _ - Throw New FileNotFoundException("Unable to locate file """ & Filepath & """.") + Throw New FileNotFoundException("Unable to locate file """ & Filepath & """.") Form1.ShellExecute(Filepath) Catch ex As Exception @@ -3020,7 +3020,7 @@ SkipDeserializing: Private Sub BTNGlitterD_MouseHover(sender As Object, e As System.EventArgs) Handles BTNGlitterD.MouseHover TTDir.SetToolTip(BTNGlitterD, "This button allows you to change the color of the domme's name as it appears in the Glitter app." & Environment.NewLine & - "A preview will appear in the text box below this button once a color has been selected.") + "A preview will appear in the text box below this button once a color has been selected.") End Sub Private Sub GlitterAV_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterAV.MouseHover TTDir.SetToolTip(GlitterAV, "Click here to set the image the domme will use as her Glitter avatar.") @@ -3045,19 +3045,19 @@ SkipDeserializing: End Sub Private Sub CBCustom1_MouseHover(sender As Object, e As System.EventArgs) Handles CBCustom1.MouseHover TTDir.SetToolTip(CBCustom1, "When this box is checked, the domme will make posts taken from Custom 1" & Environment.NewLine & - "folder in the Glitter scripts directory for her personality style.") + "folder in the Glitter scripts directory for her personality style.") End Sub Private Sub CBCustom2_MouseHover(sender As Object, e As System.EventArgs) Handles CBCustom2.MouseHover TTDir.SetToolTip(CBCustom2, "When this box is checked, the domme will make posts taken from Custom 2" & Environment.NewLine & - "folder in the Glitter scripts directory for her personality style.") + "folder in the Glitter scripts directory for her personality style.") End Sub Private Sub GlitterSlider_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterSlider.MouseHover TTDir.SetToolTip(GlitterSlider, "This slider determines how often the domme makes Glitter posts on her own." & Environment.NewLine & - "The further to the right the slider is, the more often she posts.") + "The further to the right the slider is, the more often she posts.") End Sub Private Sub LBLGlitterSlider_MouseHover(sender As Object, e As System.EventArgs) Handles LBLGlitterSlider.MouseHover TTDir.SetToolTip(LBLGlitterSlider, "This slider determines how often the domme makes Glitter posts on her own." & Environment.NewLine & - "The further to the right the slider is, the more often she posts.") + "The further to the right the slider is, the more often she posts.") End Sub Private Sub TBGlitter1_MouseHover(sender As Object, e As System.EventArgs) Handles TBGlitter1.MouseHover, TBGlitter2.MouseHover, TBGlitter3.MouseHover @@ -3065,7 +3065,7 @@ SkipDeserializing: End Sub Private Sub GlitterSlider1_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterSlider1.MouseHover, GlitterSlider2.MouseHover, GlitterSlider3.MouseHover, LBLGlitterSlider1.MouseHover, LBLGlitterSlider2.MouseHover, LBLGlitterSlider3.MouseHover TTDir.SetToolTip(sender, "This slider determines how often this contact responds to the domme's Glitter posts." & Environment.NewLine & - "The further to the right the slider is, the more often she responds.") + "The further to the right the slider is, the more often she responds.") End Sub Private Sub GlitterAV1_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterAV1.MouseHover, GlitterAV2.MouseHover, GlitterAV3.MouseHover TTDir.SetToolTip(sender, "Click here to set the image that this contact will use as her Glitter avatar.") @@ -3086,7 +3086,7 @@ SkipDeserializing: If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & "set folders of the same model you're using as your contact.") If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") End Sub Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover @@ -3094,7 +3094,7 @@ SkipDeserializing: If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes. Each model " & Environment.NewLine & "should have her own directory containing folders of different imagesets.") If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") End Sub Private Sub BtnContact1ImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDirClear.Click @@ -3290,13 +3290,13 @@ SkipDeserializing: Dim rtnVal As Boolean = True For Each tmpPicBox As PictureBox In New List(Of PictureBox) From - {BP1, BP2, BP3, BP4, BP5, BP6, SP1, SP2, SP3, SP4, SP5, SP6, - GP1, GP2, GP3, GP4, GP5, GP6, CardBack} + {BP1, BP2, BP3, BP4, BP5, BP6, SP1, SP2, SP3, SP4, SP5, SP6, + GP1, GP2, GP3, GP4, GP5, GP6, CardBack} ' Check if the Databinding is properly set. If tmpPicBox.DataBindings.Item("ImageLocation") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmpPicBox.Name & - """'s image location. Set the databinding and recompile!") + """'s image location. Set the databinding and recompile!") End If tmpPicBox.AllowDrop = True @@ -3313,13 +3313,13 @@ SkipDeserializing: '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Card names <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< For Each tmpTbx As TextBox In New List(Of TextBox) From - {BN1, BN2, BN3, BN4, BN5, BN6, - SN1, SN2, SN3, SN4, SN5, SN6, - GN1, GN2, GN3, GN4, GN5, GN6} + {BN1, BN2, BN3, BN4, BN5, BN6, + SN1, SN2, SN3, SN4, SN5, SN6, + GN1, GN2, GN3, GN4, GN5, GN6} If tmpTbx.DataBindings.Item("Text") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmpTbx.Name & - """'s text property. Set the databinding and recompile!") + """'s text property. Set the databinding and recompile!") End If If tmpTbx.Text.Length < 1 Then My.Settings.ResetField(tmpTbx, "Text") @@ -3339,8 +3339,8 @@ SkipDeserializing: Try Dim target As PictureBox = CType(sender, PictureBox) Dim savePath As String = String.Format("{0}\Images\Cards\Card{1}.bmp", - Application.StartupPath, - target.Name) + Application.StartupPath, + target.Name) savePath = savePath.Replace("CardCard", "Card") @@ -3366,12 +3366,12 @@ SkipDeserializing: Loop If retrycounter <= 0 Then Throw New IO.IOException( - String.Format("The file """"{0}"" is already in use."), savePath) + String.Format("The file """"{0}"" is already in use."), savePath) ' Check if the Databinding is properly set. If target.DataBindings.Item("ImageLocation") Is Nothing Then Throw New Exception("There is no databinding set on """ & target.Name & - """'s image location. Set the databinding and recompile!") + """'s image location. Set the databinding and recompile!") End If ' Set the resized image as picturebox image and write it to disk @@ -3396,28 +3396,28 @@ SkipDeserializing: End Sub Private Sub CardPictureboxes_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles _ - BP1.DragEnter, BP2.DragEnter, BP3.DragEnter, BP4.DragEnter, BP5.DragEnter, BP6.DragEnter, - SP1.DragEnter, SP2.DragEnter, SP3.DragEnter, SP4.DragEnter, SP5.DragEnter, SP6.DragEnter, - GP1.DragEnter, GP2.DragEnter, GP3.DragEnter, GP4.DragEnter, GP5.DragEnter, GP6.DragEnter, - CardBack.DragEnter + BP1.DragEnter, BP2.DragEnter, BP3.DragEnter, BP4.DragEnter, BP5.DragEnter, BP6.DragEnter, + SP1.DragEnter, SP2.DragEnter, SP3.DragEnter, SP4.DragEnter, SP5.DragEnter, SP6.DragEnter, + GP1.DragEnter, GP2.DragEnter, GP3.DragEnter, GP4.DragEnter, GP5.DragEnter, GP6.DragEnter, + CardBack.DragEnter If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then e.Effect = DragDropEffects.Copy End If End Sub Private Sub CardPictureboxes_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles _ - BP1.DragDrop, BP2.DragDrop, BP3.DragDrop, BP4.DragDrop, BP5.DragDrop, BP6.DragDrop, - SP1.DragDrop, SP2.DragDrop, SP3.DragDrop, SP4.DragDrop, SP5.DragDrop, SP6.DragDrop, - GP1.DragDrop, GP2.DragDrop, GP3.DragDrop, GP4.DragDrop, GP5.DragDrop, GP6.DragDrop, - CardBack.DragDrop + BP1.DragDrop, BP2.DragDrop, BP3.DragDrop, BP4.DragDrop, BP5.DragDrop, BP6.DragDrop, + SP1.DragDrop, SP2.DragDrop, SP3.DragDrop, SP4.DragDrop, SP5.DragDrop, SP6.DragDrop, + GP1.DragDrop, GP2.DragDrop, GP3.DragDrop, GP4.DragDrop, GP5.DragDrop, GP6.DragDrop, + CardBack.DragDrop CardImageSet(CType(sender, PictureBox), CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0)) End Sub Private Sub CardPictureboxes_Click(sender As System.Object, e As System.EventArgs) Handles _ - BP1.Click, BP2.Click, BP3.Click, BP4.Click, BP5.Click, BP6.Click, - SP1.Click, SP2.Click, SP3.Click, SP4.Click, SP5.Click, SP6.Click, - GP1.Click, GP2.Click, GP3.Click, GP4.Click, GP5.Click, GP6.Click, - CardBack.Click + BP1.Click, BP2.Click, BP3.Click, BP4.Click, BP5.Click, BP6.Click, + SP1.Click, SP2.Click, SP3.Click, SP4.Click, SP5.Click, SP6.Click, + GP1.Click, GP2.Click, GP3.Click, GP4.Click, GP5.Click, GP6.Click, + CardBack.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then CardImageSet(CType(sender, PictureBox), OpenFileDialog1.FileName) End If @@ -3427,9 +3427,9 @@ SkipDeserializing: ''' Resets the databinding source of a TextBox to its initial value, if there is no Text entered. ''' Private Sub CardTextboxes_Validating(sender As Object, e As CancelEventArgs) Handles _ - BN1.Validating, BN2.Validating, BN3.Validating, BN4.Validating, BN5.Validating, BN6.Validating, - SN1.Validating, SN2.Validating, SN3.Validating, SN4.Validating, SN5.Validating, SN6.Validating, - GN1.Validating, GN2.Validating, GN3.Validating, GN4.Validating, GN5.Validating, GN6.Validating + BN1.Validating, BN2.Validating, BN3.Validating, BN4.Validating, BN5.Validating, BN6.Validating, + SN1.Validating, SN2.Validating, SN3.Validating, SN4.Validating, SN5.Validating, SN6.Validating, + GN1.Validating, GN2.Validating, GN3.Validating, GN4.Validating, GN5.Validating, GN6.Validating Dim tmpTbx As TextBox = CType(sender, TextBox) If tmpTbx.Text = "" AndAlso tmpTbx.DataBindings("Text") IsNot Nothing Then @@ -3738,149 +3738,149 @@ trypreviousimage: End Sub Private Sub Button38_Click(sender As System.Object, e As System.EventArgs) Handles BTNWICreateURL.Click, - BTNMaintenanceRefresh.Click, - BTNMaintenanceRebuild.Click - ' Group Buttons by inital-State. - Dim __PreEnabled As New List(Of Control) From - {BTNWIOpenURL, BTNWICreateURL, BTNMaintenanceRefresh, - BTNMaintenanceRebuild, BTNMaintenanceScripts} + BTNMaintenanceRefresh.Click, + BTNMaintenanceRebuild.Click + ' Group Buttons by inital-State. + Dim __PreEnabled As New List(Of Control) From + {BTNWIOpenURL, BTNWICreateURL, BTNMaintenanceRefresh, + BTNMaintenanceRebuild, BTNMaintenanceScripts} Dim __PreDisabled As New List(Of Control) From - {BTNWICancel, BTNMaintenanceCancel} + {BTNWICancel, BTNMaintenanceCancel} Try - ' Set their new State, so the User can't disturb. - __PreEnabled.ForEach(Sub(x) x.Enabled = False) + ' Set their new State, so the User can't disturb. + __PreEnabled.ForEach(Sub(x) x.Enabled = False) __PreDisabled.ForEach(Sub(x) x.Enabled = True) Select Case sender.name Case BTNWICreateURL.Name - '************************************************************************************************************** - ' Create URL-File - '************************************************************************************************************** - Dim __BtnLocalURL As New List(Of Control) From { - BTNWINext, BTNWIPrevious, BTNWIRemove, BTNWILiked, BTNWIDisliked, BTNWISave} + '************************************************************************************************************** + ' Create URL-File + '************************************************************************************************************** + Dim __BtnLocalURL As New List(Of Control) From { + BTNWINext, BTNWIPrevious, BTNWIRemove, BTNWILiked, BTNWIDisliked, BTNWISave} Try - ' Disable Buttons for Opening-URL-Files - __BtnLocalURL.ForEach(Sub(x) x.Enabled = False) + ' Disable Buttons for Opening-URL-Files + __BtnLocalURL.ForEach(Sub(x) x.Enabled = False) - ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.CreateUrlFileResult = BWURLFiles.CreateURLFileAsync() + ' Run Backgroundworker + Dim __tmpResult As URL_File_BGW.CreateUrlFileResult = BWURLFiles.CreateURLFileAsync() - ' Activate the created URL-File - URL_File_Set(__tmpResult.Filename) + ' Activate the created URL-File + URL_File_Set(__tmpResult.Filename) ' UserInfo If __tmpResult._Error Is Nothing Then MsgBox("URL File has been saved to:" & - vbCrLf & vbCrLf & Application.StartupPath & "\Images\System\URL Files\" & __tmpResult.Filename & ".txt" & - vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Success!") + vbCrLf & vbCrLf & Application.StartupPath & "\Images\System\URL Files\" & __tmpResult.Filename & ".txt" & + vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Success!") Else MsgBox("It is encountered an error during URL-File-Creation." & vbCrLf & - __tmpResult._Error.Message & vbCrLf & - "URL File has been saved to:" & - vbCrLf & vbCrLf & Application.StartupPath & "\Images\System\URL Files\" & __tmpResult.Filename & ".txt" & - vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Successful despite errors!") + __tmpResult._Error.Message & vbCrLf & + "URL File has been saved to:" & + vbCrLf & vbCrLf & Application.StartupPath & "\Images\System\URL Files\" & __tmpResult.Filename & ".txt" & + vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Successful despite errors!") End If Catch - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Throw + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Throw Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - __BtnLocalURL.ForEach(Sub(x) x.Enabled = True) + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + __BtnLocalURL.ForEach(Sub(x) x.Enabled = True) End Try Case BTNMaintenanceRefresh.Name - '************************************************************************************************************** - ' Refresh URL-Files - '************************************************************************************************************** - Try + '************************************************************************************************************** + ' Refresh URL-Files + '************************************************************************************************************** + Try - ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.MaintainUrlResult = BWURLFiles.RefreshURLFilesAsync() + ' Run Backgroundworker + Dim __tmpResult As URL_File_BGW.MaintainUrlResult = BWURLFiles.RefreshURLFilesAsync() - ' Activate the URL-Files - __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) + ' Activate the URL-Files + __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) If __tmpResult.Cancelled Then MessageBox.Show(Me, "Refreshing URL-File has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & - vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) ElseIf __tmpResult.ErrorText.Capacity > 0 Then MessageBox.Show(Me, "URL Files have been refreshed with errors!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added." & - vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added." & + vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show(Me, "All URL Files have been refreshed!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) End If Catch - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Throw + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Throw Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - LBLMaintenance.Text = String.Empty + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + LBLMaintenance.Text = String.Empty PBCurrent.Value = 0 PBMaintenance.Value = 0 End Try Case BTNMaintenanceRebuild.Name - '************************************************************************************************************** - ' Rebuild URL-Files - '************************************************************************************************************** - Try - ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.MaintainUrlResult = BWURLFiles.RebuildURLFilesAsync() + '************************************************************************************************************** + ' Rebuild URL-Files + '************************************************************************************************************** + Try + ' Run Backgroundworker + Dim __tmpResult As URL_File_BGW.MaintainUrlResult = BWURLFiles.RebuildURLFilesAsync() - ' Activate the URL-Files - __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) + ' Activate the URL-Files + __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) If __tmpResult.Cancelled Then MessageBox.Show(Me, "Rebuilding URL-File has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & - vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) ElseIf __tmpResult.ErrorText.Capacity > 0 Then MessageBox.Show(Me, "URL Files have been rebuilded with errors!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & - vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total." & - vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & + vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total." & + vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show(Me, "All URL Files have been rebuilded!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & - vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & + vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) End If Catch - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Throw + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Throw Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - LBLMaintenance.Text = String.Empty + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + LBLMaintenance.Text = String.Empty PBCurrent.Value = 0 PBMaintenance.Value = 0 End Try End Select Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - If ex.InnerException IsNot Nothing Then - ' If an Error ocurred in the other Thread, initial Exception is innner one. - MsgBox(ex.InnerException.Message, MsgBoxStyle.Critical, "Error Creating URL-File") + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + If ex.InnerException IsNot Nothing Then + ' If an Error ocurred in the other Thread, initial Exception is innner one. + MsgBox(ex.InnerException.Message, MsgBoxStyle.Critical, "Error Creating URL-File") Else - ' Otherwise show it normal. - MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Creating URL-File") + ' Otherwise show it normal. + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Creating URL-File") End If Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - ' Restore the initial State of the Buttons - __PreEnabled.ForEach(Sub(x) x.Enabled = True) + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + ' Restore the initial State of the Buttons + __PreEnabled.ForEach(Sub(x) x.Enabled = True) __PreDisabled.ForEach(Sub(x) x.Enabled = False) End Try End Sub @@ -3905,59 +3905,59 @@ trypreviousimage: End If End Sub - ''' ========================================================================================================= - ''' - ''' This Event will be triggered, when the Working Stage of the BGW changes - ''' - ''' - ''' - Private Sub BWURLFiles_ProgressChanged(ByVal Sender As Object, ByRef e As URL_File_BGW.URL_File_ProgressChangedEventArgs) Handles BWURLFiles.URL_File_ProgressChanged + ''' ========================================================================================================= + ''' + ''' This Event will be triggered, when the Working Stage of the BGW changes + ''' + ''' + ''' + Private Sub BWURLFiles_ProgressChanged(ByVal Sender As Object, ByRef e As URL_File_BGW.URL_File_ProgressChangedEventArgs) Handles BWURLFiles.URL_File_ProgressChanged If Me.InvokeRequired Then - ' Beware: Event is fired in Worker Thread, so you need to do a Function Callback. - Dim CallBack As New URL_File_BGW.URL_File_ProgressChanged_Delegate(AddressOf BWURLFiles_ProgressChanged) + ' Beware: Event is fired in Worker Thread, so you need to do a Function Callback. + Dim CallBack As New URL_File_BGW.URL_File_ProgressChanged_Delegate(AddressOf BWURLFiles_ProgressChanged) Me.Invoke(CallBack, Sender, e) Else - ' Reset remanent Marker for Image Approval - If ApproveImage <> 0 Then ApproveImage = 0 + ' Reset remanent Marker for Image Approval + If ApproveImage <> 0 Then ApproveImage = 0 Select Case e.CurrentTask Case URL_File_Tasks.CreateURLFile - '=============================================================================== - ' Create URL-File - '=============================================================================== - Select Case e.ActStage - ' ------------------------ Image Approval ------------------------------- - Case WorkingStages.ImageApproval + '=============================================================================== + ' Create URL-File + '=============================================================================== + Select Case e.ActStage + ' ------------------------ Image Approval ------------------------------- + Case WorkingStages.ImageApproval If e.ImageToReview IsNot Nothing Then - ' Dispose old Image & Set new Image - Try : WebPictureBox.Image.Dispose() : Catch : End Try + ' Dispose old Image & Set new Image + Try : WebPictureBox.Image.Dispose() : Catch : End Try WebPictureBox.Image = e.ImageToReview - ' Enabled UI Elements - BTNWIContinue.Enabled = True + ' Enabled UI Elements + BTNWIContinue.Enabled = True BTNWIAddandContinue.Enabled = True End If Case WorkingStages.Writing_File - ' ---------------------- Write to File ------------------------------- - 'State info to User - LBLWebImageCount.Text = "Writing" - ' At this state no cnancel possible - BTNWICancel.Enabled = False + ' ---------------------- Write to File ------------------------------- + 'State info to User + LBLWebImageCount.Text = "Writing" + ' At this state no cnancel possible + BTNWICancel.Enabled = False WebPictureBox.Image = Nothing Case Else - ' ---------------------- Everthing else ------------------------------ - ' Refresh Progressbars - WebImageProgressBar.Maximum = e.BlogPageTotal + 1 + ' ---------------------- Everthing else ------------------------------ + ' Refresh Progressbars + WebImageProgressBar.Maximum = e.BlogPageTotal + 1 WebImageProgressBar.Value = e.BlogPage - ' Disable Image Approval-UI - BTNWIContinue.Enabled = False + ' Disable Image Approval-UI + BTNWIContinue.Enabled = False BTNWIAddandContinue.Enabled = False - ' Inform User about BGW-State - LBLWebImageCount.Text = String.Format("{0}/{1} ({2})", e.BlogPage, e.BlogPageTotal, e.ImageCount) + ' Inform User about BGW-State + LBLWebImageCount.Text = String.Format("{0}/{1} ({2})", e.BlogPage, e.BlogPageTotal, e.ImageCount) End Select Case Else - '=============================================================================== - ' Refresh URL-File - '=============================================================================== - LBLMaintenance.Text = e.InfoText + '=============================================================================== + ' Refresh URL-File + '=============================================================================== + LBLMaintenance.Text = e.InfoText PBCurrent.Maximum = e.BlogPageTotal PBCurrent.Value = e.BlogPage PBMaintenance.Maximum = e.OverallProgressTotal @@ -3973,9 +3973,9 @@ trypreviousimage: #Region "--------------------------------------- Images -------------------------------------------------" Friend Shared Function Image_FolderCheck(ByVal directoryDescription As String, - ByVal directoryPath As String, - ByVal defaultPath As String, - ByRef subDirectories As Boolean) As String + ByVal directoryPath As String, + ByVal defaultPath As String, + ByRef subDirectories As Boolean) As String Dim rtnPath As String ' Exit if default value. @@ -3986,9 +3986,9 @@ trypreviousimage: ' Tell User, the dir. wasn't found. Ask to search manually for the folder. If MessageBox.Show(ActiveForm, - "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", - directoryDescription & " image directory not found.", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) <> DialogResult.Yes Then + "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", + directoryDescription & " image directory not found.", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) <> DialogResult.Yes Then set_default: Return defaultPath Else @@ -4005,7 +4005,7 @@ set_newFolder: ' Initialize new Dialog-Form Dim FolSel As New FolderBrowserDialog With {.SelectedPath = __tmp_dir, - .Description = "Select " & directoryDescription & " image folder."} + .Description = "Select " & directoryDescription & " image folder."} ' Display the Dialog -> Now the user has to set the new dir. If FolSel.ShowDialog(ActiveForm) = DialogResult.OK Then rtnPath = FolSel.SelectedPath @@ -4027,9 +4027,9 @@ checkFolder: If count_top = 0 And count_all = 0 Then ' ================================= No images in folder =============================== If MessageBox.Show(ActiveForm, - "The directory """ & directoryPath & """ doesn't contain images." & vbCrLf & "Do you want to set a new folder?", - directoryDescription & " image folder empty", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.Yes Then + "The directory """ & directoryPath & """ doesn't contain images." & vbCrLf & "Do you want to set a new folder?", + directoryDescription & " image folder empty", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.Yes Then GoTo set_newFolder Else GoTo set_default @@ -4037,11 +4037,11 @@ checkFolder: ElseIf count_top = 0 And count_all > count_top And subDirectories = False Then ' ======================== none in top, but in sub ->enable sub? ====================== If MessageBox.Show(ActiveForm, - "The directory """ & directoryPath & """ doesn't contain images, but it's " & - "subdirectories. Do you want to include subdirectories? If you click no the " & - "default value will be set.", - directoryDescription & " image folder empty", - MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then + "The directory """ & directoryPath & """ doesn't contain images, but it's " & + "subdirectories. Do you want to include subdirectories? If you click no the " & + "default value will be set.", + directoryDescription & " image folder empty", + MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then subDirectories = True Return rtnPath Else @@ -4069,10 +4069,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IHardcoreSD Dim def As String = - My.Settings.PropertyValues("IHardcore").Property.DefaultValue + My.Settings.PropertyValues("IHardcore").Property.DefaultValue My.Settings.IHardcore = - Image_FolderCheck("Hardcore", My.Settings.IHardcore, def, subdir) + Image_FolderCheck("Hardcore", My.Settings.IHardcore, def, subdir) If My.Settings.IHardcore = def Then My.Settings.CBIHardcore = False @@ -4100,10 +4100,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ISoftcoreSD Dim def As String = - My.Settings.PropertyValues("ISoftcore").Property.DefaultValue + My.Settings.PropertyValues("ISoftcore").Property.DefaultValue My.Settings.ISoftcore = - Image_FolderCheck("Softcore", My.Settings.ISoftcore, def, subdir) + Image_FolderCheck("Softcore", My.Settings.ISoftcore, def, subdir) If My.Settings.ISoftcore = def Then My.Settings.CBISoftcore = False @@ -4131,10 +4131,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ILesbianSD Dim def As String = - My.Settings.PropertyValues("ILesbian").Property.DefaultValue + My.Settings.PropertyValues("ILesbian").Property.DefaultValue My.Settings.ILesbian = - Image_FolderCheck("Lesbian", My.Settings.ILesbian, def, subdir) + Image_FolderCheck("Lesbian", My.Settings.ILesbian, def, subdir) If My.Settings.ILesbian = def Then My.Settings.CBILesbian = False @@ -4162,10 +4162,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IBlowjobSD Dim def As String = - My.Settings.PropertyValues("IBlowjob").Property.DefaultValue + My.Settings.PropertyValues("IBlowjob").Property.DefaultValue My.Settings.IBlowjob = - Image_FolderCheck("Blowjob", My.Settings.IBlowjob, def, subdir) + Image_FolderCheck("Blowjob", My.Settings.IBlowjob, def, subdir) If My.Settings.IBlowjob = def Then My.Settings.CBIBlowjob = False @@ -4193,10 +4193,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IFemdomSD Dim def As String = - My.Settings.PropertyValues("IFemdom").Property.DefaultValue + My.Settings.PropertyValues("IFemdom").Property.DefaultValue My.Settings.IFemdom = - Image_FolderCheck("Femdom", My.Settings.IFemdom, def, subdir) + Image_FolderCheck("Femdom", My.Settings.IFemdom, def, subdir) If My.Settings.IFemdom = def Then My.Settings.CBIFemdom = False @@ -4224,10 +4224,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ILezdomSD Dim def As String = - My.Settings.PropertyValues("ILezdom").Property.DefaultValue + My.Settings.PropertyValues("ILezdom").Property.DefaultValue My.Settings.ILezdom = - Image_FolderCheck("Lezdom", My.Settings.ILezdom, def, subdir) + Image_FolderCheck("Lezdom", My.Settings.ILezdom, def, subdir) If My.Settings.ILezdom = def Then My.Settings.CBILezdom = False @@ -4255,10 +4255,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IHentaiSD Dim def As String = - My.Settings.PropertyValues("IHentai").Property.DefaultValue + My.Settings.PropertyValues("IHentai").Property.DefaultValue My.Settings.IHentai = - Image_FolderCheck("Hentai", My.Settings.IHentai, def, subdir) + Image_FolderCheck("Hentai", My.Settings.IHentai, def, subdir) If My.Settings.IHentai = def Then My.Settings.CBIHentai = False @@ -4286,10 +4286,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IGaySD Dim def As String = - My.Settings.PropertyValues("IGay").Property.DefaultValue + My.Settings.PropertyValues("IGay").Property.DefaultValue My.Settings.IGay = - Image_FolderCheck("Gay", My.Settings.IGay, def, subdir) + Image_FolderCheck("Gay", My.Settings.IGay, def, subdir) If My.Settings.IGay = def Then My.Settings.CBIGay = False @@ -4317,10 +4317,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IMaledomSD Dim def As String = - My.Settings.PropertyValues("IMaledom").Property.DefaultValue + My.Settings.PropertyValues("IMaledom").Property.DefaultValue My.Settings.IMaledom = - Image_FolderCheck("Maledom", My.Settings.IMaledom, def, subdir) + Image_FolderCheck("Maledom", My.Settings.IMaledom, def, subdir) If My.Settings.IMaledom = def Then My.Settings.CBIMaledom = False @@ -4348,10 +4348,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IGeneralSD Dim def As String = - My.Settings.PropertyValues("IGeneral").Property.DefaultValue + My.Settings.PropertyValues("IGeneral").Property.DefaultValue My.Settings.IGeneral = - Image_FolderCheck("General", My.Settings.IGeneral, def, subdir) + Image_FolderCheck("General", My.Settings.IGeneral, def, subdir) If My.Settings.IGeneral = def Then My.Settings.CBIGeneral = False @@ -4379,10 +4379,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ICaptionsSD Dim def As String = - My.Settings.PropertyValues("ICaptions").Property.DefaultValue + My.Settings.PropertyValues("ICaptions").Property.DefaultValue My.Settings.ICaptions = - Image_FolderCheck("Captions", My.Settings.ICaptions, def, subdir) + Image_FolderCheck("Captions", My.Settings.ICaptions, def, subdir) If My.Settings.ICaptions = def Then My.Settings.CBICaptions = False @@ -4410,10 +4410,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.CBBoobSubDir Dim def As String = - My.Settings.PropertyValues("LBLBoobPath").Property.DefaultValue + My.Settings.PropertyValues("LBLBoobPath").Property.DefaultValue My.Settings.LBLBoobPath = - Image_FolderCheck("Boobs", My.Settings.LBLBoobPath, def, subdir) + Image_FolderCheck("Boobs", My.Settings.LBLBoobPath, def, subdir) If My.Settings.LBLBoobPath = def Then My.Settings.CBIBoobs = False @@ -4441,10 +4441,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.CBButtSubDir Dim def As String = - My.Settings.PropertyValues("LBLButtPath").Property.DefaultValue + My.Settings.PropertyValues("LBLButtPath").Property.DefaultValue My.Settings.LBLButtPath = - Image_FolderCheck("Butts", My.Settings.LBLButtPath, def, subdir) + Image_FolderCheck("Butts", My.Settings.LBLButtPath, def, subdir) If My.Settings.LBLButtPath = def Then My.Settings.CBIButts = False @@ -4549,44 +4549,44 @@ checkFolder: #Region "----------------------------------- GenreImages-Url-Files --------------------------------------" Private Sub BtnImageUrlSetFile_Click(sender As System.Object, e As System.EventArgs) Handles BtnImageUrlHardcore.Click, - BtnImageUrlSoftcore.Click, BtnImageUrlMaledom.Click, BtnImageUrlLezdom.Click, BtnImageUrlLesbian.Click, - BtnImageUrlHentai.Click, BtnImageUrlGeneral.Click, BtnImageUrlGay.Click, BtnImageUrlFemdom.Click, - BtnImageUrlCaptions.Click, BtnImageUrlButt.Click, BtnImageUrlBoobs.Click, BtnImageUrlBlowjob.Click + BtnImageUrlSoftcore.Click, BtnImageUrlMaledom.Click, BtnImageUrlLezdom.Click, BtnImageUrlLesbian.Click, + BtnImageUrlHentai.Click, BtnImageUrlGeneral.Click, BtnImageUrlGay.Click, BtnImageUrlFemdom.Click, + BtnImageUrlCaptions.Click, BtnImageUrlButt.Click, BtnImageUrlBoobs.Click, BtnImageUrlBlowjob.Click Try ' Read the Row of the current Button Dim tmpTlpRow As Integer = TlpImageUrls.GetRow(sender) ' Check if the Button is in the TableLayoutPanel. If tmpTlpRow = -1 Then Throw New Exception("Can't find control in TableLayoutPanel. " & - "This is a major Design issue has to be fixed in code.") + "This is a major Design issue has to be fixed in code.") ' Get the Checkbox for the current button Dim tmpCheckbox As CheckBox = TlpImageUrls.GetControlFromPosition(0, tmpTlpRow) ' Check if the Text-Property has an active Databinding. If tmpCheckbox.DataBindings.Item("Checked") Is Nothing Then _ - Throw New InvalidDataException("Databinding """" Checked """" was not found in Checkbox." & - "This is a major design issue and has to be fixed in code.") + Throw New InvalidDataException("Databinding """" Checked """" was not found in Checkbox." & + "This is a major design issue and has to be fixed in code.") ' Get the TExtBox for the Current Button Dim tmpTextbox As TextBox = TlpImageUrls.GetControlFromPosition(2, tmpTlpRow) ' Check if the Text-Property has an active Databinding. If tmpTextbox.DataBindings.Item("Text") Is Nothing Then _ - Throw New InvalidDataException("This function is only availabe with a Databound Textbox. " & - "This is a major design issue and has to be fixed in code.") + Throw New InvalidDataException("This function is only availabe with a Databound Textbox. " & + "This is a major design issue and has to be fixed in code.") 'Declare a new instance of An OpenFileDialog. Use the URL-FilePat as initial Dim tmpFS As New OpenFileDialog With { - .Filter = "Textfiles|*.txt", - .Multiselect = False, - .CheckFileExists = True, - .Title = "Select an " & tmpCheckbox.Text & " URL-File", - .InitialDirectory = Form1.pathUrlFileDir} + .Filter = "Textfiles|*.txt", + .Multiselect = False, + .CheckFileExists = True, + .Title = "Select an " & tmpCheckbox.Text & " URL-File", + .InitialDirectory = Form1.pathUrlFileDir} ' Check if the URL-FilePath exits -> Otherwise create it. If Not Directory.Exists(tmpFS.InitialDirectory) Then _ - Directory.CreateDirectory(tmpFS.InitialDirectory) + Directory.CreateDirectory(tmpFS.InitialDirectory) Dim tmpPath As String = tmpTextbox.Text If tmpPath.ToLower.EndsWith(".txt") Then @@ -4617,7 +4617,7 @@ checkFolder: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MsgBox(ex.Message & vbCrLf & "Please report this error at the Milovana Forum.", - MsgBoxStyle.Critical, "Cant Set URl-File") + MsgBoxStyle.Critical, "Cant Set URl-File") Log.WriteError(ex.Message, ex, "Error Set Url-File") End Try End Sub @@ -4636,9 +4636,9 @@ checkFolder: ' Tell User, the dir. wasn't found. Ask to search manually for the folder. If MessageBox.Show(ActiveForm, - "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", - directoryDescription & " directory not found.", - MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then + "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", + directoryDescription & " directory not found.", + MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then ' Find the first available parent-directory. ' This way the user hasn't to browse through his hole IO-System. @@ -4649,7 +4649,7 @@ checkFolder: ' Initialize new Dialog-Form Dim FolSel As New FolderBrowserDialog With {.SelectedPath = __tmp_dir, - .Description = "Select " & directoryDescription & " folder."} + .Description = "Select " & directoryDescription & " folder."} ' Display the Dialog -> Now the user has to set the new dir. If FolSel.ShowDialog(ActiveForm) = DialogResult.OK Then Return FolSel.SelectedPath @@ -4686,10 +4686,10 @@ checkFolder: End Function Private Sub TxbVideoFolder_MouseHover(sender As Object, e As System.EventArgs) Handles TxbVideoHardCore.MouseHover, - TxbVideoHardCoreD.MouseHover, TxbVideoSoftCore.MouseHover, TxbVideoSoftCoreD.MouseHover, TxbVideoLesbian.MouseHover, - TxbVideoLesbianD.MouseHover, TxbVideoBlowjob.MouseHover, TxbVideoBlowjobD.MouseHover, TxbVideoFemdom.MouseHover, - TxbVideoFemdomD.MouseHover, TxbVideoFemsub.MouseHover, TxbVideoFemsubD.MouseHover, TxbVideoJOI.MouseHover, - TxbVideoJOID.MouseHover, TxbVideoCH.MouseHover, TxbVideoCHD.MouseHover, TxbVideoGeneral.MouseHover, TxbVideoGeneralD.MouseHover + TxbVideoHardCoreD.MouseHover, TxbVideoSoftCore.MouseHover, TxbVideoSoftCoreD.MouseHover, TxbVideoLesbian.MouseHover, + TxbVideoLesbianD.MouseHover, TxbVideoBlowjob.MouseHover, TxbVideoBlowjobD.MouseHover, TxbVideoFemdom.MouseHover, + TxbVideoFemdomD.MouseHover, TxbVideoFemsub.MouseHover, TxbVideoFemsubD.MouseHover, TxbVideoJOI.MouseHover, + TxbVideoJOID.MouseHover, TxbVideoCH.MouseHover, TxbVideoCHD.MouseHover, TxbVideoGeneral.MouseHover, TxbVideoGeneralD.MouseHover TTDir.SetToolTip(sender, CType(sender, TextBox).Text) End Sub @@ -4712,10 +4712,10 @@ checkFolder: Friend Shared Function VideoHardcore_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoHardcore").Property.DefaultValue + My.Settings.PropertyValues("VideoHardcore").Property.DefaultValue My.Settings.VideoHardcore = - Video_FolderCheck("Hardcore Video", My.Settings.VideoHardcore, def) + Video_FolderCheck("Hardcore Video", My.Settings.VideoHardcore, def) If My.Settings.VideoHardcore = def Then My.Settings.CBHardcore = False @@ -4741,10 +4741,10 @@ checkFolder: Friend Shared Function VideoSoftcore_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoSoftcore").Property.DefaultValue + My.Settings.PropertyValues("VideoSoftcore").Property.DefaultValue My.Settings.VideoSoftcore = - Video_FolderCheck("Softcore Video", My.Settings.VideoSoftcore, def) + Video_FolderCheck("Softcore Video", My.Settings.VideoSoftcore, def) If My.Settings.VideoSoftcore = def Then My.Settings.CBSoftcore = False @@ -4770,10 +4770,10 @@ checkFolder: Friend Shared Function VideoLesbian_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoLesbian").Property.DefaultValue + My.Settings.PropertyValues("VideoLesbian").Property.DefaultValue My.Settings.VideoLesbian = - Video_FolderCheck("Lesbian Video", My.Settings.VideoLesbian, def) + Video_FolderCheck("Lesbian Video", My.Settings.VideoLesbian, def) If My.Settings.VideoLesbian = def Then My.Settings.CBLesbian = False @@ -4799,10 +4799,10 @@ checkFolder: Friend Shared Function VideoBlowjob_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoBlowjob").Property.DefaultValue + My.Settings.PropertyValues("VideoBlowjob").Property.DefaultValue My.Settings.VideoBlowjob = - Video_FolderCheck("Blowjob Video", My.Settings.VideoBlowjob, def) + Video_FolderCheck("Blowjob Video", My.Settings.VideoBlowjob, def) If My.Settings.VideoBlowjob = def Then My.Settings.CBBlowjob = False @@ -4828,10 +4828,10 @@ checkFolder: Friend Shared Function VideoFemdom_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemdom").Property.DefaultValue + My.Settings.PropertyValues("VideoFemdom").Property.DefaultValue My.Settings.VideoFemdom = - Video_FolderCheck("Femdom Video", My.Settings.VideoFemdom, def) + Video_FolderCheck("Femdom Video", My.Settings.VideoFemdom, def) If My.Settings.VideoFemdom = def Then My.Settings.CBFemdom = False @@ -4857,10 +4857,10 @@ checkFolder: Friend Shared Function VideoFemsub_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemsub").Property.DefaultValue + My.Settings.PropertyValues("VideoFemsub").Property.DefaultValue My.Settings.VideoFemsub = - Video_FolderCheck("Femsub Video", My.Settings.VideoFemsub, def) + Video_FolderCheck("Femsub Video", My.Settings.VideoFemsub, def) If My.Settings.VideoFemsub = def Then My.Settings.CBFemsub = False @@ -4886,10 +4886,10 @@ checkFolder: Friend Shared Function VideoJOI_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoJOI").Property.DefaultValue + My.Settings.PropertyValues("VideoJOI").Property.DefaultValue My.Settings.VideoJOI = - Video_FolderCheck("JOI Video", My.Settings.VideoJOI, def) + Video_FolderCheck("JOI Video", My.Settings.VideoJOI, def) If My.Settings.VideoJOI = def Then My.Settings.CBJOI = False @@ -4915,10 +4915,10 @@ checkFolder: Friend Shared Function VideoCH_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoCH").Property.DefaultValue + My.Settings.PropertyValues("VideoCH").Property.DefaultValue My.Settings.VideoCH = - Video_FolderCheck("CH Video", My.Settings.VideoCH, def) + Video_FolderCheck("CH Video", My.Settings.VideoCH, def) If My.Settings.VideoCH = def Then My.Settings.CBCH = False @@ -4944,10 +4944,10 @@ checkFolder: Friend Shared Function VideoGeneral_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoGeneral").Property.DefaultValue + My.Settings.PropertyValues("VideoGeneral").Property.DefaultValue My.Settings.VideoGeneral = - Video_FolderCheck("General Video", My.Settings.VideoGeneral, def) + Video_FolderCheck("General Video", My.Settings.VideoGeneral, def) If My.Settings.VideoGeneral = def Then My.Settings.CBGeneral = False @@ -4977,10 +4977,10 @@ checkFolder: Friend Shared Function VideoHardcoreD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoHardcoreD").Property.DefaultValue + My.Settings.PropertyValues("VideoHardcoreD").Property.DefaultValue My.Settings.VideoHardcoreD = - Video_FolderCheck("HardcoreD Video", My.Settings.VideoHardcoreD, def) + Video_FolderCheck("HardcoreD Video", My.Settings.VideoHardcoreD, def) If My.Settings.VideoHardcoreD = def Then My.Settings.CBHardcoreD = False @@ -5006,10 +5006,10 @@ checkFolder: Friend Shared Function VideoSoftcoreD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoSoftcoreD").Property.DefaultValue + My.Settings.PropertyValues("VideoSoftcoreD").Property.DefaultValue My.Settings.VideoSoftcoreD = - Video_FolderCheck("SoftcoreD Video", My.Settings.VideoSoftcoreD, def) + Video_FolderCheck("SoftcoreD Video", My.Settings.VideoSoftcoreD, def) If My.Settings.VideoSoftcoreD = def Then My.Settings.CBSoftcoreD = False @@ -5035,10 +5035,10 @@ checkFolder: Friend Shared Function VideoLesbianD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoLesbianD").Property.DefaultValue + My.Settings.PropertyValues("VideoLesbianD").Property.DefaultValue My.Settings.VideoLesbianD = - Video_FolderCheck("LesbianD Video", My.Settings.VideoLesbianD, def) + Video_FolderCheck("LesbianD Video", My.Settings.VideoLesbianD, def) If My.Settings.VideoLesbianD = def Then My.Settings.CBLesbianD = False @@ -5064,10 +5064,10 @@ checkFolder: Friend Shared Function VideoBlowjobD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoBlowjobD").Property.DefaultValue + My.Settings.PropertyValues("VideoBlowjobD").Property.DefaultValue My.Settings.VideoBlowjobD = - Video_FolderCheck("BlowjobD Video", My.Settings.VideoBlowjobD, def) + Video_FolderCheck("BlowjobD Video", My.Settings.VideoBlowjobD, def) If My.Settings.VideoBlowjobD = def Then My.Settings.CBBlowjobD = False @@ -5093,10 +5093,10 @@ checkFolder: Friend Shared Function VideoFemdomD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemdomD").Property.DefaultValue + My.Settings.PropertyValues("VideoFemdomD").Property.DefaultValue My.Settings.VideoFemdomD = - Video_FolderCheck("FemdomD Video", My.Settings.VideoFemdomD, def) + Video_FolderCheck("FemdomD Video", My.Settings.VideoFemdomD, def) If My.Settings.VideoFemdomD = def Then My.Settings.CBFemdomD = False @@ -5122,10 +5122,10 @@ checkFolder: Friend Shared Function VideoFemsubD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemsubD").Property.DefaultValue + My.Settings.PropertyValues("VideoFemsubD").Property.DefaultValue My.Settings.VideoFemsubD = - Video_FolderCheck("FemsubD Video", My.Settings.VideoFemsubD, def) + Video_FolderCheck("FemsubD Video", My.Settings.VideoFemsubD, def) If My.Settings.VideoFemsubD = def Then My.Settings.CBFemsubD = False @@ -5151,10 +5151,10 @@ checkFolder: Friend Shared Function VideoJOID_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoJOID").Property.DefaultValue + My.Settings.PropertyValues("VideoJOID").Property.DefaultValue My.Settings.VideoJOID = - Video_FolderCheck("JOID Video", My.Settings.VideoJOID, def) + Video_FolderCheck("JOID Video", My.Settings.VideoJOID, def) If My.Settings.VideoJOID = def Then My.Settings.CBJOID = False @@ -5180,10 +5180,10 @@ checkFolder: Friend Shared Function VideoCHD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoCHD").Property.DefaultValue + My.Settings.PropertyValues("VideoCHD").Property.DefaultValue My.Settings.VideoCHD = - Video_FolderCheck("CHD Video", My.Settings.VideoCHD, def) + Video_FolderCheck("CHD Video", My.Settings.VideoCHD, def) If My.Settings.VideoCHD = def Then My.Settings.CBCHD = False @@ -5209,10 +5209,10 @@ checkFolder: Friend Shared Function VideoGeneralD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoGeneralD").Property.DefaultValue + My.Settings.PropertyValues("VideoGeneralD").Property.DefaultValue My.Settings.VideoGeneralD = - Video_FolderCheck("GeneralD Video", My.Settings.VideoGeneralD, def) + Video_FolderCheck("GeneralD Video", My.Settings.VideoGeneralD, def) If My.Settings.VideoGeneralD = def Then My.Settings.CBGeneralD = False @@ -5684,22 +5684,22 @@ checkFolder: - ''' ========================================================================================================= - ''' - ''' Activates the specified is activaed in Listbox and saves the Listboxstate. - ''' - ''' - Private Sub URL_File_Set(ByVal URL_FileName As String) + ''' ========================================================================================================= + ''' + ''' Activates the specified is activaed in Listbox and saves the Listboxstate. + ''' + ''' + Private Sub URL_File_Set(ByVal URL_FileName As String) Try - ' Set the new URL-File - If Not URLFileList.Items.Contains(URL_FileName) Then + ' Set the new URL-File + If Not URLFileList.Items.Contains(URL_FileName) Then URLFileList.Items.Add(URL_FileName) For i As Integer = 0 To URLFileList.Items.Count - 1 If URLFileList.Items(i) = URL_FileName Then URLFileList.SetItemChecked(i, True) Next End If - ' Save ListState - Using FileStream As New System.IO.FileStream(Application.StartupPath & "\Images\System\URLFileCheckList.cld", IO.FileMode.Create) + ' Save ListState + Using FileStream As New System.IO.FileStream(Application.StartupPath & "\Images\System\URLFileCheckList.cld", IO.FileMode.Create) Using BinaryWriter As New System.IO.BinaryWriter(FileStream) For i = 0 To URLFileList.Items.Count - 1 BinaryWriter.Write(CStr(URLFileList.Items(i))) @@ -6210,7 +6210,7 @@ checkFolder: Try If TBKeyWords.Text = "" Or InStr(TBKeyWords.Text, "#") <> 1 Or Not TBKeyWords.Text.Substring(0, 1) = "#" Then MessageBox.Show(Me, "Please enter a correct file name for this Keyword script!" & Environment.NewLine & Environment.NewLine & "Keyword file names must contain one ""#"" sign, " & - "placed at the beginning of the word or phrase.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "placed at the beginning of the word or phrase.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If Catch @@ -6385,7 +6385,7 @@ checkFolder: Function InstrCount(StringToSearch As String, - StringToFind As String) As Long + StringToFind As String) As Long If Len(StringToFind) Then InstrCount = UBound(Split(StringToSearch, StringToFind)) @@ -8156,8 +8156,8 @@ checkFolder: Private Sub CBCBTCock_MouseHover(sender As Object, e As System.EventArgs) Handles CBCBTCock.MouseHover TTDir.SetToolTip(CBCBTCock, "Check this box to enable cock torture." & Environment.NewLine & Environment.NewLine & - "If this box is unchecked, the domme may still state that you're about to endure cock torture," & Environment.NewLine & - "but the program will simply move to the next line instead of making you perform it.") + "If this box is unchecked, the domme may still state that you're about to endure cock torture," & Environment.NewLine & + "but the program will simply move to the next line instead of making you perform it.") @@ -8168,8 +8168,8 @@ checkFolder: Private Sub CBCBTBall_MouseHover(sender As Object, e As System.EventArgs) Handles CBCBTBalls.MouseHover TTDir.SetToolTip(CBCBTBalls, "Check this box to enable ball torture." & Environment.NewLine & Environment.NewLine & - "If this box is unchecked, the domme may still state that you're about to endure ball torture," & Environment.NewLine & - "but the program will simply move to the next line instead of making you perform it.") + "If this box is unchecked, the domme may still state that you're about to endure ball torture," & Environment.NewLine & + "but the program will simply move to the next line instead of making you perform it.") 'LBLSubSettingsDescription.Text = "Check this box to enabled ball torture." & Environment.NewLine & Environment.NewLine & "If this box is unchecked, the domme may still state that you're about to endure" _ ' & " ball torture, but the program will simply move to the next line instead of making you perform it." @@ -8178,7 +8178,7 @@ checkFolder: Private Sub CBTSlider_MouseHover(sender As Object, e As System.EventArgs) Handles CBTSlider.MouseHover TTDir.SetToolTip(CBTSlider, "This affects the severity of the CBT tasks you will be asked to perform." & Environment.NewLine & Environment.NewLine & - "The higher this slider, the more severe the tasks will be.") + "The higher this slider, the more severe the tasks will be.") 'LBLSubSettingsDescription.Text = "This affects the severity of the CBT tasks you will be asked to perform. The higher this slider, the more severe the tasks will be." End Sub @@ -8190,7 +8190,7 @@ checkFolder: Private Sub CBOwnChastity_MouseHover(sender As Object, e As System.EventArgs) Handles CBOwnChastity.MouseHover TTDir.SetToolTip(CBOwnChastity, "Check this box if you own a chastity device and wish to run scripts" & Environment.NewLine & - "where the domme places you in chastity.") + "where the domme places you in chastity.") 'LBLSubSettingsDescription.Text = "Check this box if you own a chastity device. This allows the program to use that fact in various scripts." End Sub @@ -8209,8 +8209,8 @@ checkFolder: Private Sub TBGreeting_MouseHover(sender As Object, e As System.EventArgs) Handles TBGreeting.MouseHover TTDir.SetToolTip(TBGreeting, "Enter any number of words or phrases, separated by commas." & Environment.NewLine & Environment.NewLine & - "When you use any of these words/phrases by themselves after starting the" & Environment.NewLine & - "program, the domme will recognize it as a greeting and begin the tease.") + "When you use any of these words/phrases by themselves after starting the" & Environment.NewLine & + "program, the domme will recognize it as a greeting and begin the tease.") 'LBLSubSettingsDescription.Text = "Enter any number of words or phrases, separated by commas. When you use any of these words/phrases by themselves after starting the program, " _ ' & "the domme will recognize it as a greeting and begin the tease." @@ -8219,7 +8219,7 @@ checkFolder: Private Sub TBYes_MouseHover(sender As Object, e As System.EventArgs) Handles TBYes.MouseHover TTDir.SetToolTip(TBYes, "Enter any number of words or phrases, separated by commas." & Environment.NewLine & Environment.NewLine & - "The domme will recognize these as ""yes"" answers to Multiple Choice sections.") + "The domme will recognize these as ""yes"" answers to Multiple Choice sections.") ' LBLSubSettingsDescription.Text = "Enter any number of words or phrases, separated by commas. The domme will recognize these as ""yes"" answers to Multiple Choice sections." End Sub @@ -8227,7 +8227,7 @@ checkFolder: Private Sub TBNo_MouseHover(sender As Object, e As System.EventArgs) Handles TBNo.MouseHover TTDir.SetToolTip(TBNo, "Enter any number of words or phrases, separated by commas." & Environment.NewLine & Environment.NewLine & - "The domme will recognize these as ""no"" answers to Multiple Choice sections.") + "The domme will recognize these as ""no"" answers to Multiple Choice sections.") 'LBLSubSettingsDescription.Text = "Enter any number of words or phrases, separated by commas. The domme will recognize these as ""no"" answers to Multiple Choice sections." End Sub @@ -8270,7 +8270,7 @@ checkFolder: Private Sub CBHonorificInclude_MouseHover(sender As Object, e As System.EventArgs) Handles CBHonorificInclude.MouseHover TTDir.SetToolTip(CBHonorificInclude, "When this box is checked, the domme's honorific must be included with" & Environment.NewLine & - "greetings and yes or no responses used during multiple choice segments.") + "greetings and yes or no responses used during multiple choice segments.") 'LBLSubSettingsDescription.Text = "When this box is checked, the domme's honorific must be included with greetings and yes or no responses used during multiple choice segments." End Sub @@ -8297,7 +8297,7 @@ checkFolder: Private Sub CBLongEdgeTaunts_MouseHover(sender As Object, e As System.EventArgs) Handles CBLongEdgeTaunts.MouseEnter LBLSubSettingsDescription.Text = "When this box is checked, the domme will include edge taunts that are reserved for when the Long Edge threshold has been passed." & Environment.NewLine & Environment.NewLine & - "This will allow the domme to tease you about the fact that you have been trying to edge for longer than she expected." + "This will allow the domme to tease you about the fact that you have been trying to edge for longer than she expected." End Sub Private Sub CBLongEdgeInterrupts_LostFocus(sender As Object, e As System.EventArgs) Handles CBLongEdgeInterrupts.LostFocus @@ -8343,10 +8343,10 @@ checkFolder: If orgasmsPerNumBox.Value = 1 Then result = MessageBox.Show("This will limit you to 1 orgasm for the next " & LCase(orgasmsperComboBox.Text) & "." & Environment.NewLine & Environment.NewLine & - "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) Else result = MessageBox.Show("This will limit you to " & orgasmsPerNumBox.Value & " orgasms for the next " & LCase(orgasmsperComboBox.Text) & "." & Environment.NewLine & Environment.NewLine & - "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) End If @@ -8420,7 +8420,7 @@ checkFolder: Dim result As Integer result = MessageBox.Show("This will allow the domme to limit you to a random number of orgasms for a random amount of time. High level dommes could restrict you to a very low amount for up to a year!" & Environment.NewLine & Environment.NewLine & - "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If result = DialogResult.No Then Return @@ -8553,14 +8553,14 @@ checkFolder: Private Sub NBTeaseLengthMin_MouseHover(sender As Object, e As System.EventArgs) Handles NBTeaseLengthMin.MouseEnter LBLRangeSettingsDescription.Text = "Set the minimum amount of time the program will run before the domme decides if you can have an orgasm." & Environment.NewLine & Environment.NewLine & - "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & - "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." + "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & + "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." End Sub Private Sub NBTeaseLengthMax_MouseHover(sender As Object, e As System.EventArgs) Handles NBTeaseLengthMax.MouseEnter LBLRangeSettingsDescription.Text = "Set the maximum amount of time the program will run before the domme decides if you can have an orgasm." & Environment.NewLine & Environment.NewLine & - "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & - "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." + "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & + "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." End Sub @@ -8574,8 +8574,8 @@ checkFolder: Private Sub CBTeaseLengthDD_MouseHover(sender As Object, e As System.EventArgs) Handles CBTeaseLengthDD.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide the length of the tease based on her level." & Environment.NewLine & Environment.NewLine & - "A level 1 domme may tease you for 15-20 minutes, while a level 5 domme may tease you as long as an hour." & Environment.NewLine & Environment.NewLine & - "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." + "A level 1 domme may tease you for 15-20 minutes, while a level 5 domme may tease you as long as an hour." & Environment.NewLine & Environment.NewLine & + "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." End Sub Private Sub NBTauntCycleMin_MouseHover(sender As Object, e As System.EventArgs) Handles NBTauntCycleMin.MouseEnter @@ -8588,22 +8588,22 @@ checkFolder: Private Sub CBTauntCycleDD_MouseHover(sender As Object, e As System.EventArgs) Handles CBTauntCycleDD.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide how long she makes you stroke during Taunt cycles based on her level." & Environment.NewLine & Environment.NewLine & - "A level 1 domme may have you stroke for a couple minutes at a time, while a level 5 domme may have you stroke up to 10 minutes during each Taunt cycle." + "A level 1 domme may have you stroke for a couple minutes at a time, while a level 5 domme may have you stroke up to 10 minutes during each Taunt cycle." End Sub Private Sub SliderSTF_MouseHover(sender As Object, e As System.EventArgs) Handles SliderSTF.MouseEnter LBLRangeSettingsDescription.Text = "This allows you to set the frequency of the domme's Stroke Taunts." & Environment.NewLine & Environment.NewLine & - "A middle value tries to emulate an online experience as closely as possible. Use a higher value to increase the frequency of Taunts to something you would expect in a webtease. Use a lower value to simulate the domme being preoccupied or not that interested in engaging you." + "A middle value tries to emulate an online experience as closely as possible. Use a higher value to increase the frequency of Taunts to something you would expect in a webtease. Use a lower value to simulate the domme being preoccupied or not that interested in engaging you." End Sub Private Sub TauntSlider_MouseHover(sender As Object, e As System.EventArgs) Handles TauntSlider.MouseEnter LBLRangeSettingsDescription.Text = "This allows you to set the frequency of the domme's Taunts during Video Teases." & Environment.NewLine & Environment.NewLine & - "A middle value creates a fairly common use of Taunts. Use a higher value to make the domme extremely engaged. Use a lower value to focus on the Video Tease with minimal interaction from the domme." + "A middle value creates a fairly common use of Taunts. Use a higher value to make the domme extremely engaged. Use a lower value to focus on the Video Tease with minimal interaction from the domme." End Sub Private Sub CBRangeOrgasm_MouseHover(sender As Object, e As System.EventArgs) Handles CBRangeOrgasm.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide what chance she will allow an orgasm based on her settings." & Environment.NewLine & Environment.NewLine & - "Default settings are: Often Allows: 75% - Sometimes Allows: 50% - Rarely Allows: 20%" + "Default settings are: Often Allows: 75% - Sometimes Allows: 50% - Rarely Allows: 20%" End Sub Private Sub NBAllowOften_MouseHover(sender As Object, e As System.EventArgs) Handles NBAllowOften.MouseEnter @@ -8620,7 +8620,7 @@ checkFolder: Private Sub CBRangeRuin_MouseHover(sender As Object, e As System.EventArgs) Handles CBRangeRuin.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide what chance she will ruin an orgasm based on her settings." & Environment.NewLine & Environment.NewLine & - "Default settings are: Often Ruins: 75% - Sometimes Ruins: 50% - Rarely Ruins: 20%" + "Default settings are: Often Ruins: 75% - Sometimes Ruins: 50% - Rarely Ruins: 20%" End Sub Private Sub NBRuinOften_MouseHover(sender As Object, e As System.EventArgs) Handles NBRuinOften.MouseEnter @@ -8808,7 +8808,7 @@ checkFolder: Private Sub Button3_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNMaintenanceScripts.Click PBMaintenance.Maximum = My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + - My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count PBMaintenance.Value = 0 Dim BlankAudit As Integer = 0 Dim ErrorAudit As Integer = 0 @@ -8945,8 +8945,8 @@ checkFolder: ' Github Patch MessageBox.Show(If(Me.Visible, Me, FrmSplash), PBMaintenance.Maximum & " scripts have been audited." & Environment.NewLine & Environment.NewLine & - "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & - "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & + "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) PBMaintenance.Value = 0 @@ -8961,7 +8961,7 @@ checkFolder: Public Sub AuditScripts() PBMaintenance.Maximum = My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + - My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count PBMaintenance.Value = 0 Dim BlankAudit As Integer = 0 Dim ErrorAudit As Integer = 0 @@ -9072,8 +9072,8 @@ checkFolder: Debug.Print("done") MessageBox.Show(If(Me.Visible, Me, FrmSplash), PBMaintenance.Maximum & " scripts have been audited." & Environment.NewLine & Environment.NewLine & - "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & - "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & + "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) PBMaintenance.Value = 0 @@ -9130,7 +9130,7 @@ checkFolder: Private Sub Button6_Click_2(sender As System.Object, e As System.EventArgs) Handles Button6.Click Dim result As Integer = MessageBox.Show("This will permanently delete all files in the Session Images folder." & Environment.NewLine & Environment.NewLine & - "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If result = DialogResult.No Then ElseIf result = DialogResult.Yes Then @@ -9152,7 +9152,7 @@ checkFolder: Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim result As Integer = MessageBox.Show("This will permanently reset all saved Tease AI settings back to their default value!" & Environment.NewLine & Environment.NewLine & - "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If result = DialogResult.No Then ElseIf result = DialogResult.Yes Then @@ -9172,12 +9172,12 @@ checkFolder: Private Sub CBCockToClit_MouseHover(sender As Object, e As System.EventArgs) Handles CBCockToClit.MouseEnter LBLSubSettingsDescription.Text = "When this box is checked, the domme will replace #Cock with a Keyword for ""clit"" when it appears in a script" & Environment.NewLine & Environment.NewLine & - "She will also replace the word ""stroking"" with words like ""rubbing, fingering, teasing"" etc." + "She will also replace the word ""stroking"" with words like ""rubbing, fingering, teasing"" etc." End Sub Private Sub CBBallsToPussy_MouseHover(sender As Object, e As System.EventArgs) Handles CBBallsToPussy.MouseEnter LBLSubSettingsDescription.Text = "When this box is checked, the domme will replace #Balls with a Keyword for ""pussy"" when it appears in a script" & Environment.NewLine & Environment.NewLine & - "She will also replace ""those #Balls"" with ""that pussy"" to make the exchange more natural." + "She will also replace ""those #Balls"" with ""that pussy"" to make the exchange more natural." End Sub Private Sub LBPlaylist_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles LBPlaylist.DragDrop @@ -9546,7 +9546,7 @@ checkFolder: Private Sub Button11_Click_1(sender As System.Object, e As System.EventArgs) Handles Button11.Click If MsgBox("This will change the Chastity state of Tease AI. Depending on the Personality or Scripts used so far, this could cause unexpected behavior or break certain scripts." & Environment.NewLine _ - & Environment.NewLine & "It is recommended to only change this state if you are otherwise stuck. Are you sure you wish to change the Chastity state?", vbYesNo, "Warning!") = MsgBoxResult.Yes Then + & Environment.NewLine & "It is recommended to only change this state if you are otherwise stuck. Are you sure you wish to change the Chastity state?", vbYesNo, "Warning!") = MsgBoxResult.Yes Then If My.Settings.Chastity = True Then My.Settings.Chastity = False LBLChastityState.Text = "OFF" @@ -9873,28 +9873,28 @@ checkFolder: Private Sub BTNWICreateURL_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWICreateURL.MouseHover TTDir.SetToolTip(BTNWICreateURL, "Click here to create a new URL File." & Environment.NewLine & Environment.NewLine & - "URL Files create a txt file containing the URL address" & Environment.NewLine & - "of every image posted at the image blog you specify.") + "URL Files create a txt file containing the URL address" & Environment.NewLine & + "of every image posted at the image blog you specify.") End Sub Private Sub CBWIreview_MouseHover(sender As Object, e As System.EventArgs) Handles CBWIReview.MouseHover TTDir.SetToolTip(CBWIReview, "When this is checked, you'll need to review" & Environment.NewLine & - "each image before it's added to the URL File.") + "each image before it's added to the URL File.") End Sub Private Sub CBWISavetoDisk_MouseHover(sender As Object, e As System.EventArgs) Handles CBWISaveToDisk.MouseHover TTDir.SetToolTip(CBWISaveToDisk, "When this is checked, images will also be saved" & Environment.NewLine & - "to the specified HDD directory as they are added.") + "to the specified HDD directory as they are added.") End Sub Private Sub BTNWIAddandContinue_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIAddandContinue.MouseHover TTDir.SetToolTip(BTNWIAddandContinue, "When reviewing images, click this button to add the" & Environment.NewLine & - "current image to the URL File and continue to the next.") + "current image to the URL File and continue to the next.") End Sub Private Sub BTNWIContinue_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIContinue.MouseHover TTDir.SetToolTip(BTNWIContinue, "When reviewing images, click this button to skip the" & Environment.NewLine & - "current image without adding it to the URL File.") + "current image without adding it to the URL File.") End Sub Private Sub BTNWICancel_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWICancel.MouseHover @@ -10121,9 +10121,9 @@ checkFolder: Private Sub TimedWriting_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles TimedWriting.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(TimedWriting, "When selected, you will need to complete Writing Tasks in a certain amount of time, based on sentence length and Typing Speed value" & Environment.NewLine & - "When unselected, Writing Tasks failure will only be based on errors made") + "When unselected, Writing Tasks failure will only be based on errors made") If RBGerman.Checked = True Then TTDir.SetToolTip(TimedWriting, "Wenn diese Option aktiviert , müssen Sie Schreibaufgaben in einer bestimmten Zeit zu vervollständigen, basierend auf Satzlängeund Typing Speed ​​Wert" & Environment.NewLine & - "Wenn diese Option deaktiviert, Schreibaufgaben Fehler wird nur auf Fehler beruhen gemacht") + "Wenn diese Option deaktiviert, Schreibaufgaben Fehler wird nur auf Fehler beruhen gemacht") End Sub From 26b9259a2d7e0a06e53825b89243a917768a6b2e Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 16 Apr 2017 19:17:31 +0200 Subject: [PATCH 076/143] -changes to mode class: now it will be able to store also the various strings/boolean that were used by edgemode/camemode/etc etc -changes to modes: Now all modes are handled using the mode() class to have a clearer usage and to be easily storeable/clearable in callreturns. Now callreturns, infact will keep track also of all modes and restore their state when coming back from the callreturn -change to callreturn: there was a bug in the code causing the callreturn to store the wrong gotoline (it stored camegotoline instead of filegoto) --- Tease AI/Classes/Mode.vb | 19 +- .../Classes/SessionState.StackedCallReturn.vb | 19 +- Tease AI/Classes/State.vb | 85 ++++++- Tease AI/Form1.vb | 224 ++++++++---------- 4 files changed, 213 insertions(+), 134 deletions(-) diff --git a/Tease AI/Classes/Mode.vb b/Tease AI/Classes/Mode.vb index 462cc73..be9424f 100644 --- a/Tease AI/Classes/Mode.vb +++ b/Tease AI/Classes/Mode.vb @@ -1,7 +1,20 @@  Public Class Mode - Public Keyword As String - Public Type As String - Public GotoLine As String + Public Keyword As String = "" + Public Type As String = "" + Public GotoLine As String = "" + Public MessageText As String = "" + Public VideoMode As Boolean = False + Public GotoMode As Boolean = False + Public MessageMode As Boolean = False + Public Sub Clear() + Keyword = "" + Type = "" + GotoLine = "" + MessageText = "" + VideoMode = False + GotoMode = False + MessageMode = False + End Sub End Class diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb index 9aabc0a..0ebae65 100644 --- a/Tease AI/Classes/SessionState.StackedCallReturn.vb +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -3,11 +3,22 @@ Friend Class StackedCallReturn Inherits ScriptPosition + 'store if the user was in yesorno mode when callreturn was called Dim yesOrNostate As Boolean + 'store all the modes variables so we can reset them on coming back + Dim edgeMode, ruinMode, cameMode, yesMode, noMode As Mode + Dim customModes As New Dictionary(Of String, Mode) + Sub New(session As SessionState) - MyBase.New(session, session.FileText, session.StrokeTauntVal, session.GotoFlag, session.CameGotoLine, session.ReturnSubState) + MyBase.New(session, session.FileText, session.StrokeTauntVal, session.GotoFlag, session.FileGoto, session.ReturnSubState) yesOrNostate = session.YesOrNo + edgeMode = session.edgeMode + cameMode = session.cameMode + ruinMode = session.ruinMode + yesMode = session.yesMode + noMode = session.noMode + customModes = session.Modes End Sub Sub resumeState() Session.StrokeTauntVal = Line @@ -16,6 +27,12 @@ Session.GotoFlag = GotoStatus Session.FileGoto = LineGoTo Session.YesOrNo = yesOrNostate + Session.edgeMode = edgeMode + Session.cameMode = cameMode + Session.ruinMode = ruinMode + Session.yesMode = yesMode + Session.noMode = noMode + Session.Modes = customModes End Sub End Class End Class \ No newline at end of file diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index b17f4b1..3c4c8bf 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -519,40 +519,69 @@ Public Class SessionState Public LongTaunts As Boolean Public ExtremeTaunts As Boolean - Public Property EdgeGoto As Boolean = False - Public Property EdgeMessage As Boolean = False - Public Property EdgeVideo As Boolean = False - - Public Property EdgeMessageText As String - Public Property EdgeGotoLine As String - Public Property MultipleEdges As Boolean Public Property MultipleEdgesAmount As Integer Public Property MultipleEdgesInterval As Integer Public Property MultipleEdgesTick As Integer Public Property MultipleEdgesMetronome As String = "" +#Region "Modes" + Public Property Modes As New Dictionary(Of String, Mode)(System.StringComparer.OrdinalIgnoreCase) + Public Property edgeMode As New Mode() + Public Property cameMode As New Mode() + Public Property ruinMode As New Mode() + Public Property yesMode As New Mode() + Public Property noMode As New Mode() + + + Public Property EdgeGoto As Boolean = False + + Public Property EdgeMessage As Boolean = False + + Public Property EdgeVideo As Boolean = False + + Public Property EdgeMessageText As String + + Public Property EdgeGotoLine As String + Public Property YesGoto As Boolean = False + Public Property YesVideo As Boolean = False + Public Property NoGoto As Boolean = False + Public Property NoVideo_Mode As Boolean = False + Public Property CameGoto As Boolean = False + Public Property CameVideo As Boolean = False + Public Property CameMessage As Boolean = False + Public Property CameMessageText As String + Public Property RuinedGoto As Boolean = False + Public Property RuinedVideo As Boolean = False + Public Property RuinedMessage As Boolean = False + Public Property RuinedMessageText As String + Public Property YesGotoLine As String + Public Property NoGotoLine As String + Public Property CameGotoLine As String + Public Property RuinedGotoLine As String +#End Region Public Property SecondSession As Boolean Public Property checkAnswers As subAnswers + ''' ''' Set to true if the sub is on the edge and the domme had decided to not to stop stroking. ''' @@ -564,8 +593,6 @@ Public Class SessionState Public Property TauntEdging As Boolean = False - Public Property Modes As New Dictionary(Of String, Mode)(System.StringComparer.OrdinalIgnoreCase) - Public Property CountDownList As New List(Of String) Public Property CountUpList As New List(Of String) @@ -781,6 +808,46 @@ Public Class SessionState CallReturns.Push(oldReturn) End If + If edgeMode Is Nothing Then + edgeMode = New Mode() + edgeMode.GotoMode = EdgeGoto + edgeMode.GotoLine = EdgeGotoLine + edgeMode.VideoMode = EdgeVideo + edgeMode.MessageMode = EdgeMessage + edgeMode.MessageText = EdgeMessageText + End If + + If cameMode Is Nothing Then + cameMode = New Mode() + cameMode.GotoMode = CameGoto + cameMode.GotoLine = CameGotoLine + cameMode.VideoMode = CameVideo + cameMode.MessageMode = CameMessage + cameMode.MessageText = CameMessageText + End If + + If ruinMode Is Nothing Then + ruinMode = New Mode() + ruinMode.GotoMode = RuinedGoto + ruinMode.GotoLine = RuinedGotoLine + ruinMode.VideoMode = RuinedVideo + ruinMode.MessageMode = RuinedMessage + ruinMode.MessageText = RuinedMessageText + End If + + If yesMode Is Nothing Then + yesMode = New Mode() + yesMode.GotoMode = YesGoto + yesMode.GotoLine = YesGotoLine + yesMode.VideoMode = YesVideo + End If + + If noMode Is Nothing Then + noMode = New Mode() + noMode.GotoMode = NoGoto + noMode.GotoLine = NoGotoLine + noMode.VideoMode = NoVideo + End If ' Unsuppress obsolete warnings '#Enable Warning BC40000 - I can't compile this in VS2010. Changed to the three lines below as per Notay's advice - 1885 diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 8db12fb..2791a19 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1940,33 +1940,33 @@ WritingTaskLine: End If - If ssh.EdgeVideo = True Then + If ssh.edgeMode.VideoMode = True Then ssh.SessionEdges += 1 - ssh.EdgeVideo = False + ssh.edgeMode.VideoMode = False ssh.TeaseVideo = False VideoTimer.Stop() DomWMP.Visible = False DomWMP.Ctlcontrols.stop() mainPictureBox.Visible = True - ssh.FileGoto = ssh.EdgeGotoLine + ssh.FileGoto = ssh.edgeMode.GotoLine ssh.SkipGotoLine = True GetGoto() Return End If - If ssh.EdgeGoto = True Then + If ssh.edgeMode.GotoMode = True Then ssh.SessionEdges += 1 - ssh.EdgeGoto = False - ssh.FileGoto = ssh.EdgeGotoLine + ssh.edgeMode.GotoMode = False + ssh.FileGoto = ssh.edgeMode.GotoLine ssh.SkipGotoLine = True GetGoto() Return End If - If ssh.EdgeMessage = True Then + If ssh.edgeMode.MessageMode = True Then ssh.SessionEdges += 1 - ssh.EdgeMessage = False - ssh.ChatString = ssh.EdgeMessageText + ssh.edgeMode.MessageMode = False + ssh.ChatString = ssh.edgeMode.MessageText GoTo DebugAwareness End If @@ -2564,16 +2564,16 @@ DebugAwareness: If UCase(ssh.ChatString) = UCase("CAME") Or UCase(ssh.ChatString) = UCase("I CAME") Or UCase(ssh.ChatString) = UCase("JUST CAME") Or UCase(ssh.ChatString) = UCase("I JUST CAME") Then - If ssh.CameMessage = True Then - ssh.CameMessage = False - ssh.ChatString = ssh.CameMessageText + If ssh.cameMode.MessageMode = True Then + ssh.cameMode.MessageMode = False + ssh.ChatString = ssh.cameMode.MessageText End If End If If UCase(ssh.ChatString) = UCase("RUINED") Or UCase(ssh.ChatString) = UCase("I RUINED") Or UCase(ssh.ChatString) = UCase("RUINED IT") Or UCase(ssh.ChatString) = UCase("I RUINED IT") Then - If ssh.RuinedMessage = True Then - ssh.RuinedMessage = False - ssh.ChatString = ssh.RuinedMessageText + If ssh.ruinMode.MessageMode = True Then + ssh.ruinMode.MessageMode = False + ssh.ChatString = ssh.ruinMode.MessageText End If End If @@ -2660,27 +2660,27 @@ EdgeSkip: End Try If UCase(CheckResponse) = UCase("CAME") Or UCase(CheckResponse) = UCase("I CAME") Then - If ssh.CameGoto = True Then - ssh.CameGoto = False + If ssh.cameMode.GotoMode = True Then + ssh.cameMode.GotoMode = False WaitTimer.Stop() If TimeoutTimer.Enabled = True Then TimeoutTimer.Stop() ssh.YesOrNo = False ssh.InputFlag = False End If - ssh.FileGoto = ssh.CameGotoLine + ssh.FileGoto = ssh.cameMode.GotoLine ssh.SkipGotoLine = True GetGoto() Return End If - If ssh.CameVideo = True Then - ssh.CameVideo = False + If ssh.cameMode.VideoMode = True Then + ssh.cameMode.VideoMode = False ssh.TeaseVideo = False VideoTimer.Stop() DomWMP.Visible = False DomWMP.Ctlcontrols.stop() mainPictureBox.Visible = True - ssh.FileGoto = ssh.CameGotoLine + ssh.FileGoto = ssh.cameMode.GotoLine ssh.SkipGotoLine = True GetGoto() Return @@ -2689,27 +2689,27 @@ EdgeSkip: If UCase(CheckResponse) = UCase("RUINED") Or UCase(CheckResponse) = UCase("I RUINED") Or UCase(CheckResponse) = UCase("RUINED IT") Or UCase(CheckResponse) = UCase("I RUINED IT") Then - If ssh.RuinedGoto = True Then - ssh.RuinedGoto = False + If ssh.ruinMode.GotoMode = True Then + ssh.ruinMode.GotoMode = False WaitTimer.Stop() If TimeoutTimer.Enabled = True Then TimeoutTimer.Stop() ssh.YesOrNo = False ssh.InputFlag = False End If - ssh.FileGoto = ssh.RuinedGotoLine + ssh.FileGoto = ssh.ruinMode.GotoLine ssh.SkipGotoLine = True GetGoto() Return End If - If ssh.RuinedVideo = True Then - ssh.RuinedVideo = False + If ssh.ruinMode.VideoMode = True Then + ssh.ruinMode.VideoMode = False ssh.TeaseVideo = False VideoTimer.Stop() DomWMP.Visible = False DomWMP.Ctlcontrols.stop() mainPictureBox.Visible = True - ssh.FileGoto = ssh.RuinedGotoLine + ssh.FileGoto = ssh.ruinMode.GotoLine ssh.SkipGotoLine = True GetGoto() Return @@ -2758,41 +2758,41 @@ EdgeSkip: YesSplit = YesSplit.Replace("'", "") Loop Until Not YesSplit.Contains(" ") And Not YesSplit.Contains(", ") And Not YesSplit.Contains(" ,") And Not YesSplit.Contains("'") - If ssh.YesGoto = True Then + If ssh.yesMode.GotoMode = True Then Dim SplitParts As String() = YesSplit.Split(New Char() {","c}) For i As Integer = 0 To SplitParts.Count - 1 If UCase(CheckResponse) = UCase(SplitParts(i)) Then - ssh.YesGoto = False + ssh.yesMode.GotoMode = False WaitTimer.Stop() If TimeoutTimer.Enabled = True Then TimeoutTimer.Stop() ssh.YesOrNo = False ssh.InputFlag = False End If - ssh.FileGoto = ssh.YesGotoLine + ssh.FileGoto = ssh.yesMode.GotoLine ssh.SkipGotoLine = True GetGoto() End If Next - If ssh.YesGoto = False Then Return + If ssh.yesMode.GotoMode = False Then Return End If - If ssh.YesVideo = True Then + If ssh.yesMode.VideoMode = True Then Dim SplitParts As String() = YesSplit.Split(New Char() {","c}) For i As Integer = 0 To SplitParts.Count - 1 If UCase(CheckResponse) = UCase(SplitParts(i)) Then - ssh.YesVideo = False + ssh.yesMode.VideoMode = False ssh.TeaseVideo = False VideoTimer.Stop() DomWMP.Visible = False DomWMP.Ctlcontrols.stop() mainPictureBox.Visible = True - ssh.FileGoto = ssh.YesGotoLine + ssh.FileGoto = ssh.yesMode.GotoLine ssh.SkipGotoLine = True GetGoto() End If Next - If ssh.YesVideo = False Then Return + If ssh.yesMode.VideoMode = False Then Return End If If ssh.ResponseYes <> "" And File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\" & ssh.ResponseYes & ".txt") Then @@ -2826,41 +2826,41 @@ EdgeSkip: NoSplit = NoSplit.Replace("'", "") Loop Until Not NoSplit.Contains(" ") And Not NoSplit.Contains(", ") And Not NoSplit.Contains(" ,") And Not NoSplit.Contains("'") - If ssh.NoGoto = True Then + If ssh.noMode.GotoMode = True Then Dim SplitParts As String() = NoSplit.Split(New Char() {","c}) For i As Integer = 0 To SplitParts.Count - 1 If UCase(CheckResponse) = UCase(SplitParts(i)) Then - ssh.NoGoto = False + ssh.noMode.GotoMode = False WaitTimer.Stop() If TimeoutTimer.Enabled = True Then TimeoutTimer.Stop() ssh.YesOrNo = False ssh.InputFlag = False End If - ssh.FileGoto = ssh.NoGotoLine + ssh.FileGoto = ssh.noMode.GotoLine ssh.SkipGotoLine = True GetGoto() End If Next - If ssh.NoGoto = False Then Return + If ssh.noMode.GotoMode = False Then Return End If - If ssh.NoVideo_Mode = True Then + If ssh.noMode.VideoMode = True Then Dim SplitParts As String() = NoSplit.Split(New Char() {","c}) For i As Integer = 0 To SplitParts.Count - 1 If UCase(CheckResponse) = UCase(SplitParts(i)) Then - ssh.NoVideo_Mode = False + ssh.noMode.VideoMode = False ssh.TeaseVideo = False VideoTimer.Stop() DomWMP.Visible = False DomWMP.Ctlcontrols.stop() mainPictureBox.Visible = True - ssh.FileGoto = ssh.NoGotoLine + ssh.FileGoto = ssh.noMode.GotoLine ssh.SkipGotoLine = True GetGoto() End If Next - If ssh.NoVideo_Mode = False Then Return + If ssh.noMode.VideoMode = False Then Return End If If ssh.ResponseNo <> "" And File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\" & ssh.ResponseNo & ".txt") Then @@ -3934,16 +3934,18 @@ ReturnCalled: 'end the scripts anyway if it reaches the last line, even if the user forgot to use the @End command If lines(ssh.StrokeTauntVal) = "@End" Or ssh.StrokeTauntVal >= lines.Count Then - If ssh.CallReturns.Count = 0 Then If ssh.ShowModule = False Then ssh.ModuleEnd = True - 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt - 'it will automatically do it to avoid session errors - If (ssh.isLink Or ssh.BeforeTease) And ssh.SubStroking = False Then - ssh.isLink = False - If My.Settings.Chastity Then - ssh.DomChat = "@NullResponse @StartTaunts" - Else - ssh.DomChat = "@NullResponse @StartStroking" - TypingDelay() + If ssh.CallReturns.Count = 0 Then + If ssh.ShowModule = False Then ssh.ModuleEnd = True + 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt + 'it will automatically do it to avoid session errors + If (ssh.isLink Or ssh.BeforeTease) And ssh.SubStroking = False Then + ssh.isLink = False + If My.Settings.Chastity Then + ssh.DomChat = "@NullResponse @StartTaunts" + Else + ssh.DomChat = "@NullResponse @StartStroking" + TypingDelay() + End If End If End If End If @@ -10173,24 +10175,22 @@ TaskCleanSet: Dim EdgeArray As String() = EdgeFlag.Split(",") If UCase(EdgeArray(0)).Contains("GOTO") Then - ssh.EdgeGoto = True - ssh.EdgeGotoLine = EdgeArray(1) + ssh.edgeMode.GotoMode = True + ssh.edgeMode.GotoLine = EdgeArray(1) End If If UCase(EdgeArray(0)).Contains("MESSAGE") Then - ssh.EdgeMessage = True - ssh.EdgeMessageText = EdgeArray(1) + ssh.edgeMode.MessageMode = True + ssh.edgeMode.MessageText = EdgeArray(1) End If If UCase(EdgeArray(0)).Contains("VIDEO") Then - ssh.EdgeVideo = True - ssh.EdgeGotoLine = EdgeArray(1) + ssh.edgeMode.VideoMode = True + ssh.edgeMode.GotoLine = EdgeArray(1) End If If UCase(EdgeArray(0)).Contains("NORMAL") Then - ssh.EdgeGoto = False - ssh.EdgeMessage = False - ssh.EdgeVideo = False + ssh.edgeMode.Clear() End If StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") @@ -12506,18 +12506,17 @@ VTSkip: Dim YesArray As String() = YesFlag.Split(",") If UCase(YesArray(0)).Contains("GOTO") Then - ssh.YesGoto = True - ssh.YesGotoLine = YesArray(1) + ssh.yesMode.GotoMode = True + ssh.yesMode.GotoLine = YesArray(1) End If If UCase(YesArray(0)).Contains("VIDEO") Then - ssh.YesVideo = True - ssh.YesGotoLine = YesArray(1) + ssh.yesMode.VideoMode = True + ssh.yesMode.GotoLine = YesArray(1) End If If UCase(YesArray(0)).Contains("NORMAL") Then - ssh.YesGoto = False - ssh.YesVideo = False + ssh.yesMode.Clear() End If StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") @@ -12530,18 +12529,17 @@ VTSkip: Dim NoArray As String() = NoFlag.Split(",") If UCase(NoArray(0)).Contains("GOTO") Then - ssh.NoGoto = True - ssh.NoGotoLine = NoArray(1) + ssh.noMode.GotoMode = True + ssh.noMode.GotoLine = NoArray(1) End If If UCase(NoArray(0)).Contains("VIDEO") Then - ssh.NoVideo_Mode = True - ssh.NoGotoLine = NoArray(1) + ssh.noMode.VideoMode = True + ssh.noMode.GotoLine = NoArray(1) End If If UCase(NoArray(0)).Contains("NORMAL") Then - ssh.NoGoto = False - ssh.NoVideo_Mode = False + ssh.noMode.Clear() End If StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") @@ -12554,24 +12552,22 @@ VTSkip: Dim CameArray As String() = CameFlag.Split(",") If UCase(CameArray(0)).Contains("GOTO") Then - ssh.CameGoto = True - ssh.CameGotoLine = CameArray(1) + ssh.cameMode.GotoMode = True + ssh.cameMode.GotoLine = CameArray(1) End If If UCase(CameArray(0)).Contains("MESSAGE") Then - ssh.CameMessage = True - ssh.CameMessageText = CameArray(1) + ssh.cameMode.MessageMode = True + ssh.cameMode.MessageText = CameArray(1) End If If UCase(CameArray(0)).Contains("VIDEO") Then - ssh.CameVideo = True - ssh.CameGotoLine = CameArray(1) + ssh.cameMode.VideoMode = True + ssh.cameMode.GotoLine = CameArray(1) End If If UCase(CameArray(0)).Contains("NORMAL") Then - ssh.CameGoto = False - ssh.CameMessage = False - ssh.CameVideo = False + ssh.cameMode.Clear() End If StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") @@ -12584,24 +12580,22 @@ VTSkip: Dim RuinedArray As String() = RuinedFlag.Split(",") If UCase(RuinedArray(0)).Contains("GOTO") Then - ssh.RuinedGoto = True - ssh.RuinedGotoLine = RuinedArray(1) + ssh.ruinMode.GotoMode = True + ssh.ruinMode.GotoLine = RuinedArray(1) End If If UCase(RuinedArray(0)).Contains("MESSAGE") Then - ssh.RuinedMessage = True - ssh.RuinedMessageText = RuinedArray(1) + ssh.ruinMode.MessageMode = True + ssh.ruinMode.MessageText = RuinedArray(1) End If If UCase(RuinedArray(0)).Contains("VIDEO") Then - ssh.RuinedVideo = True - ssh.RuinedGotoLine = RuinedArray(1) + ssh.ruinMode.VideoMode = True + ssh.ruinMode.GotoLine = RuinedArray(1) End If If UCase(RuinedArray(0)).Contains("NORMAL") Then - ssh.RuinedGoto = False - ssh.RuinedMessage = False - ssh.RuinedVideo = False + ssh.ruinMode.Clear() End If StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") @@ -13498,11 +13492,11 @@ VTSkip: Public Function FilterList(ByVal ListClean As List(Of String)) As List(Of String) #If TRACE Then - Dim sw As New Stopwatch - sw.Start() + Dim sw As New Stopwatch + sw.Start() - Trace.WriteLine("FilterList Started") - Trace.Indent() + Trace.WriteLine("FilterList Started") + Trace.Indent() #End If Dim FilterPass As Boolean @@ -13568,8 +13562,8 @@ VTSkip: 'Next #If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If 'If ListClean.Count = 0 Then ListClean.Add("test") Return ListClean @@ -14741,7 +14735,6 @@ VTSkip: ssh.ShowModule = True ssh.FirstRound = False ssh.TauntEdging = False - ssh.MultiTauntPictureHold = False ssh.AskedToGiveUpSection = False Dim ModuleList As New List(Of String) @@ -16101,11 +16094,11 @@ RestartFunction: VideoTimer.Stop() - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False + ssh.edgeMode.VideoMode = False + ssh.yesMode.VideoMode = False + ssh.noMode.VideoMode = False + ssh.cameMode.VideoMode = False + ssh.ruinMode.VideoMode = False DomWMP.currentPlaylist.clear() @@ -17328,7 +17321,7 @@ restartInstantly: Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), .Title = "Select a destination to safe the sessin to.", - .filename = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, + .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, .AddExtension = True, .CheckPathExists = True, .OverwritePrompt = True, @@ -20349,23 +20342,12 @@ playLoop: End Function Public Sub ClearModes() - - ssh.EdgeGoto = False - ssh.YesGoto = False - ssh.NoGoto = False - ssh.CameGoto = False - ssh.RuinedGoto = False - ssh.EdgeVideo = False - ssh.YesVideo = False - ssh.NoVideo_Mode = False - ssh.CameVideo = False - ssh.RuinedVideo = False - ssh.EdgeMessage = False - ssh.CameMessage = False - ssh.RuinedMessage = False + ssh.edgeMode.Clear() + ssh.cameMode.Clear() + ssh.ruinMode.Clear() + ssh.yesMode.Clear() + ssh.noMode.Clear() ssh.Modes.Clear() - - End Sub From ef2697520fcb28d005435435e03c6cbbc9d695ab Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 16 Apr 2017 21:28:25 +0200 Subject: [PATCH 077/143] fixed a small bug in the callreturn class with the new mode() to save the various modes...the variables were never initialized --- Tease AI/Classes/SessionState.StackedCallReturn.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb index 0ebae65..fda35bc 100644 --- a/Tease AI/Classes/SessionState.StackedCallReturn.vb +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -7,7 +7,7 @@ Dim yesOrNostate As Boolean 'store all the modes variables so we can reset them on coming back - Dim edgeMode, ruinMode, cameMode, yesMode, noMode As Mode + Dim edgeMode, ruinMode, cameMode, yesMode, noMode As New Mode() Dim customModes As New Dictionary(Of String, Mode) Sub New(session As SessionState) From 7b21efdf293f05eba8377d63f115f12e44d2749a Mon Sep 17 00:00:00 2001 From: dariobrun Date: Wed, 19 Apr 2017 23:26:29 +0200 Subject: [PATCH 078/143] -fixed a few bugs with the giveupreturn checks not being executed in some situatins -fixed a bug with #sys_returnAnswer not being used if the user was undergoing a cbt and was granted a giveup (when giveupreturn is active) -fixed a bug where the domme was giving you another cbt/task command after granting a giveup --- Tease AI/Classes/State.vb | 304 +++++++++++++++++++------------------- Tease AI/Form1.vb | 132 ++++++++--------- 2 files changed, 213 insertions(+), 223 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 3c4c8bf..c80abfe 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -62,21 +62,21 @@ Public Class SessionState Public Property TempStrokeTauntVal As Integer Public Property TempFileText As String - ''' Gets or sets the current TauntFile path. - + ''' Gets or sets the current TauntFile path. + Public Property TauntText As String - ''' Gets or sets the length of a taunt group. - + ''' Gets or sets the length of a taunt group. + Public Property StrokeTauntCount As Integer - ''' Duplicate of .Count - + ''' Duplicate of .Count + Public Property TauntTextTotal As Integer - ''' Gets or sets the current taunt lines. - + ''' Gets or sets the current taunt lines. + Public Property TauntLines As New List(Of String) @@ -84,8 +84,8 @@ Public Class SessionState Public Property StrokeFilter As Boolean - ''' Gets or Sets the current taunt line index. - + ''' Gets or Sets the current taunt line index. + Public Property TauntTextCount As Integer @@ -147,8 +147,8 @@ Public Class SessionState Public Property TempHypno As String Public Property StrokeTick As Integer - ''' Gets or sets time until next taunt. - + ''' Gets or sets time until next taunt. + Public Property StrokeTauntTick As Integer @@ -167,8 +167,8 @@ Public Class SessionState Public Property YesOrNo As Boolean = False Public Property GotoFlag As Boolean - ''' Gets or Sets if a taunt demanded CBT. - + ''' Gets or Sets if a taunt demanded CBT. + Public Property CBT As Boolean Public Property RunningScript As Boolean @@ -260,8 +260,8 @@ Public Class SessionState Public Property LocalTagImageList As New List(Of String) Public Property PetName As String - ''' Stores the number of taunt files, to determine taunt size. - + ''' Stores the number of taunt files, to determine taunt size. + Public Property ScriptCount As Integer Public Property TempScriptCount As Integer @@ -491,11 +491,11 @@ Public Class SessionState Public Property TimeoutTick As Integer - ''' - ''' This Variable contains the Path of origin of the displayed Image. CheckDommeTag() uses - ''' this string to get the curremt ImageData for the DommeTagApp. - ''' - Public Property ImageLocation As String = "" + ''' + ''' This Variable contains the Path of origin of the displayed Image. CheckDommeTag() uses + ''' this string to get the curremt ImageData for the DommeTagApp. + ''' + Public Property ImageLocation As String = "" Public Property ResponseYes As String Public Property ResponseNo As String @@ -582,15 +582,15 @@ Public Class SessionState Public Property checkAnswers As subAnswers - ''' - ''' Set to true if the sub is on the edge and the domme had decided to not to stop stroking. - ''' - ''' - ''' Uses following vocabulary Files: - ''' #SYS_TauntEdging.txt when the taunting begins. - ''' #SYS_TauntEdgingAsked.txt if the sub continues to tell he's on the edge. - ''' - + ''' + ''' Set to true if the sub is on the edge and the domme had decided to not to stop stroking. + ''' + ''' + ''' Uses following vocabulary Files: + ''' #SYS_TauntEdging.txt when the taunting begins. + ''' #SYS_TauntEdgingAsked.txt if the sub continues to tell he's on the edge. + ''' + Public Property TauntEdging As Boolean = False Public Property CountDownList As New List(Of String) @@ -648,10 +648,10 @@ Public Class SessionState Public WaitTimer_enabled As Boolean = False Public WMPTimer_enabled As Boolean = True - '=============================================================================== - ' Timer intervals - '=============================================================================== - Public AudibleMetronome_Interval As Integer = 30 + '=============================================================================== + ' Timer intervals + '=============================================================================== + Public AudibleMetronome_Interval As Integer = 30 Public AvoidTheEdge_Interval As Integer = 1000 Public AvoidTheEdgeResume_Interval As Integer = 1000 Public AvoidTheEdgeTaunts_Interval As Integer = 1000 @@ -711,11 +711,11 @@ Public Class SessionState Sub New() InitializeComponent() End Sub - ''' - ''' Creates a new instance and activates it on the given Form. - ''' - ''' The Form on which to apply the session. - Sub New(ByVal ActivationForm As Form1) + ''' + ''' Creates a new instance and activates it on the given Form. + ''' + ''' The Form on which to apply the session. + Sub New(ByVal ActivationForm As Form1) InitializeComponent() Activate(ActivationForm) End Sub @@ -797,9 +797,9 @@ Public Class SessionState If Files Is Nothing Then Files = New FileClass(Me) If Folders Is Nothing Then Folders = New FoldersClass(Me) - ' ########## Load @CallReturn( from old structure. ############ - ' DataStructure has changed in c1626a2e5ea4f85a642ec95cdcc2eb7160c1f148 - If CallReturns Is Nothing Then CallReturns = New Stack() + ' ########## Load @CallReturn( from old structure. ############ + ' DataStructure has changed in c1626a2e5ea4f85a642ec95cdcc2eb7160c1f148 + If CallReturns Is Nothing Then CallReturns = New Stack() If ReturnFlag Then Dim oldReturn = New StackedCallReturn(Me) oldReturn.FilePath = Me.ReturnFileText @@ -870,21 +870,21 @@ Public Class SessionState Sub FetchFormData(ByVal serializeForm As Form1) If serializeForm IsNot Nothing _ AndAlso serializeForm.InvokeRequired Then - ' Calling from another Thread -> Invoke on controls UI-Thread - Dim Act As Action(Of Form1) = Sub(s1) FetchFormData(s1) + ' Calling from another Thread -> Invoke on controls UI-Thread + Dim Act As Action(Of Form1) = Sub(s1) FetchFormData(s1) serializeForm.Invoke(Act) Exit Sub End If - ' Called from Controls UI-Thread -> Execute Code. + ' Called from Controls UI-Thread -> Execute Code. - With serializeForm + With serializeForm DomPersonality = .dompersonalitycombobox.SelectedItem.ToString - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Get Timer EnableStates - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - AvoidTheEdge_enabled = .AvoidTheEdge.Enabled + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Get Timer EnableStates + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + AvoidTheEdge_enabled = .AvoidTheEdge.Enabled AvoidTheEdgeResume_enabled = .AvoidTheEdgeResume.Enabled AvoidTheEdgeTaunts_enabled = .AvoidTheEdgeTaunts.Enabled CensorshipTimer_enabled = .CensorshipTimer.Enabled @@ -913,10 +913,10 @@ Public Class SessionState VideoTauntTimer_enabled = .VideoTauntTimer.Enabled WaitTimer_enabled = .WaitTimer.Enabled WMPTimer_enabled = .WMPTimer.Enabled - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Get Timer Intervals - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - AvoidTheEdge_Interval = .AvoidTheEdge.Interval + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Get Timer Intervals + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + AvoidTheEdge_Interval = .AvoidTheEdge.Interval AvoidTheEdgeResume_Interval = .AvoidTheEdgeResume.Interval AvoidTheEdgeTaunts_Interval = .AvoidTheEdgeTaunts.Interval CensorshipTimer_Interval = .CensorshipTimer.Interval @@ -946,18 +946,18 @@ Public Class SessionState WaitTimer_Interval = .WaitTimer.Interval WMPTimer_Interval = .WMPTimer.Interval - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Get WMP-Data - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - serialized_WMP_Visible = .DomWMP.Visible + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Get WMP-Data + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + serialized_WMP_Visible = .DomWMP.Visible serialized_WMP_URL = .DomWMP.URL serialized_WMP_Playstate = .DomWMP.playState serialized_WMP_Position = .DomWMP.Ctlcontrols.currentPosition - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Get Flags - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If serialized_Flags Is Nothing Then _ + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Get Flags + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If serialized_Flags Is Nothing Then _ serialized_Flags = New List(Of String) serialized_Flags.Clear() @@ -968,8 +968,8 @@ Public Class SessionState Next End If - ' Get temporary Flags - If serialized_FlagsTemp Is Nothing Then _ + ' Get temporary Flags + If serialized_FlagsTemp Is Nothing Then _ serialized_FlagsTemp = New List(Of String) serialized_FlagsTemp.Clear() @@ -982,9 +982,13 @@ Public Class SessionState '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Get Variables '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + + If serialized_Variables Is Nothing Then _ serialized_Variables = New Dictionary(Of String, String) + serialized_Variables.Clear() If Directory.Exists(Folders.Variables) Then @@ -1000,27 +1004,27 @@ Public Class SessionState End Sub - ''' - ''' Activates the current SessionState. - ''' - ''' The Form to start the session on. - Friend Sub Activate(ByVal activateForm As Form1) - ' Check if InvokeIsRequired - If activateForm IsNot Nothing _ + ''' + ''' Activates the current SessionState. + ''' + ''' The Form to start the session on. + Friend Sub Activate(ByVal activateForm As Form1) + ' Check if InvokeIsRequired + If activateForm IsNot Nothing _ AndAlso activateForm.InvokeRequired Then - ' Calling from another Thread -> Invoke on controls UI-Thread - Dim Act As Action(Of Form1) = Sub(s1) Activate(s1) + ' Calling from another Thread -> Invoke on controls UI-Thread + Dim Act As Action(Of Form1) = Sub(s1) Activate(s1) activateForm.Invoke(Act) End If - ' Called from Controls UI-Thread -> Execute Code. + ' Called from Controls UI-Thread -> Execute Code. - ActivationForm = activateForm + ActivationForm = activateForm With activateForm - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Disable Timers to avoid Exceptions - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - .AvoidTheEdge.Enabled = False + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Disable Timers to avoid Exceptions + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + .AvoidTheEdge.Enabled = False .AvoidTheEdgeResume.Enabled = False .AvoidTheEdgeTaunts.Enabled = False .CensorshipTimer.Enabled = False @@ -1053,10 +1057,10 @@ Public Class SessionState If .ssh IsNot Nothing Then .ssh.Dispose() .ssh = Me - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Set Domme Personality - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If DomPersonality = String.Empty Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Set Domme Personality + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If DomPersonality = String.Empty Then DomPersonality = My.Settings.DomPersonality End If @@ -1066,10 +1070,10 @@ Public Class SessionState .dompersonalitycombobox.SelectedItem = DomPersonality End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Restore Variables - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If serialized_Variables.Count > 0 Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Restore Variables + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If serialized_Variables.Count > 0 Then If Directory.Exists(Folders.Variables) = False Then Directory.CreateDirectory(Folders.Variables) Else @@ -1084,10 +1088,10 @@ Public Class SessionState Next End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Restore flags - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If serialized_Flags.Count > 0 Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Restore flags + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If serialized_Flags.Count > 0 Then If Directory.Exists(Folders.Flags) = False Then Directory.CreateDirectory(Folders.Flags) Else @@ -1101,10 +1105,10 @@ Public Class SessionState FileMode.Create) : End Using Next End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Restore temporary flags - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If Directory.Exists(Folders.TempFlags) = False Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Restore temporary flags + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If Directory.Exists(Folders.TempFlags) = False Then Directory.CreateDirectory(Folders.TempFlags) Else For Each fn As String In Directory.GetFiles(Folders.TempFlags) @@ -1118,19 +1122,19 @@ Public Class SessionState FileMode.Create) : End Using Next End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Set Slideshows - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If SlideshowMain Is Nothing Then SlideshowMain = New ContactData(ContactType.Domme) + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Set Slideshows + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If SlideshowMain Is Nothing Then SlideshowMain = New ContactData(ContactType.Domme) If SlideshowContact1 Is Nothing Then SlideshowContact1 = New ContactData(ContactType.Contact1) If SlideshowContact2 Is Nothing Then SlideshowContact2 = New ContactData(ContactType.Contact2) If SlideshowContact3 Is Nothing Then SlideshowContact3 = New ContactData(ContactType.Contact3) If currentlyPresentContacts.Count = 0 Then currentlyPresentContacts.Add(SlideshowMain.TypeName) - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Set Picturebox & WMP - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If isURL(ImageLocation) Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Set Picturebox & WMP + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If isURL(ImageLocation) Then .ShowImage(ImageLocation, True) ElseIf File.Exists(ImageLocation) Then .ShowImage(ImageLocation, True) @@ -1160,25 +1164,25 @@ Public Class SessionState .DomWMP.Ctlcontrols.play() End If - ' Hide Cencorshipbar , if no game is running - If CensorshipGame = True Or CensorshipTimer_enabled = False Then .CensorshipBar.Visible = False + ' Hide Cencorshipbar , if no game is running + If CensorshipGame = True Or CensorshipTimer_enabled = False Then .CensorshipBar.Visible = False - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Set Chat and StrokePace - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Set Chat and StrokePace + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - .ChatText.DocumentText = Chat + .ChatText.DocumentText = Chat .ChatText2.DocumentText = Chat .ChatReadyState() - ' To update the threadsafe Metronome StrokePace - ' Only needs to be done on activation - .StrokePace = StrokePace + ' To update the threadsafe Metronome StrokePace + ' Only needs to be done on activation + .StrokePace = StrokePace - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Set Timer Intervals - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - .AvoidTheEdge.Interval = AvoidTheEdge_Interval + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Set Timer Intervals + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + .AvoidTheEdge.Interval = AvoidTheEdge_Interval .AvoidTheEdgeResume.Interval = AvoidTheEdgeResume_Interval .AvoidTheEdgeTaunts.Interval = AvoidTheEdgeTaunts_Interval .CensorshipTimer.Interval = CensorshipTimer_Interval @@ -1208,10 +1212,10 @@ Public Class SessionState .WaitTimer.Interval = WaitTimer_Interval .WMPTimer.Interval = WMPTimer_Interval - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Set Timer EnableStates - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - .AvoidTheEdge.Enabled = AvoidTheEdge_enabled + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Set Timer EnableStates + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + .AvoidTheEdge.Enabled = AvoidTheEdge_enabled .AvoidTheEdgeResume.Enabled = AvoidTheEdgeResume_enabled .AvoidTheEdgeTaunts.Enabled = AvoidTheEdgeTaunts_enabled .CensorshipTimer.Enabled = CensorshipTimer_enabled @@ -1257,18 +1261,18 @@ Public Class SessionState ''' This function is invoked on the 's UI-Thread. Friend Sub Load(ByVal filepath As String, ByVal setActive As Boolean) Try - ' Check if InvokeIsRequired - If setActive = True _ + ' Check if InvokeIsRequired + If setActive = True _ AndAlso ActivationForm IsNot Nothing _ AndAlso ActivationForm.InvokeRequired Then - ' Calling from another Thread -> Invoke on controls UI-Thread - Dim Act As Action(Of String, Boolean) = Sub(s1, s2) Load(s1, s2) + ' Calling from another Thread -> Invoke on controls UI-Thread + Dim Act As Action(Of String, Boolean) = Sub(s1, s2) Load(s1, s2) ActivationForm.Invoke(Act) Exit Sub End If - ' Called from Controls UI-Thread -> Execute Code. + ' Called from Controls UI-Thread -> Execute Code. - If setActive AndAlso ActivationForm Is Nothing Then _ + If setActive AndAlso ActivationForm Is Nothing Then _ Throw New InvalidOperationException("It is impossible to reactivate a not activated session.") @@ -1280,11 +1284,11 @@ Public Class SessionState End Try End Sub - ''' - ''' Stores the SessionState to disk. - ''' - ''' The filepath to store the object to. - Friend Sub Save(ByVal filePath As String) + ''' + ''' Stores the SessionState to disk. + ''' + ''' The filepath to store the object to. + Friend Sub Save(ByVal filePath As String) Try If ActivationForm IsNot Nothing Then FetchFormData(ActivationForm) @@ -1294,26 +1298,26 @@ Public Class SessionState End Try End Sub - ''' - ''' Resets the current session. Basically it disposes the current -instance - ''' and applies a new -instance to . - ''' - ''' After calling this method you have to update your object references. - ''' - ''' True if the sesstion state has been activated. - ''' - ''' If the current session is activated, the function is invoked on 's - ''' UI-Thread. - Public Function Reset() As Boolean - ' Check if InvokeIsRequired - If ActivationForm IsNot Nothing _ + ''' + ''' Resets the current session. Basically it disposes the current -instance + ''' and applies a new -instance to . + ''' + ''' After calling this method you have to update your object references. + ''' + ''' True if the sesstion state has been activated. + ''' + ''' If the current session is activated, the function is invoked on 's + ''' UI-Thread. + Public Function Reset() As Boolean + ' Check if InvokeIsRequired + If ActivationForm IsNot Nothing _ AndAlso ActivationForm.InvokeRequired Then - ' Calling from another Thread -> Invoke on controls UI-Thread - Return CType(ActivationForm.UIThread(AddressOf Reset), Boolean) + ' Calling from another Thread -> Invoke on controls UI-Thread + Return CType(ActivationForm.UIThread(AddressOf Reset), Boolean) End If - ' Called from Controls UI-Thread -> Execute Code. + ' Called from Controls UI-Thread -> Execute Code. - FrmSettings.TBHonorific.Text = My.Settings.SubHonorific + FrmSettings.TBHonorific.Text = My.Settings.SubHonorific Dispose() If ActivationForm IsNot Nothing Then @@ -1335,8 +1339,8 @@ Public Class SessionState Splits(0) = Splits(0).Replace("'", "") Loop Until Not Splits(0).Contains(" ") And Not Splits(0).Contains(", ") And Not Splits(0).Contains(" ,") And Not Splits(0).Contains("'") If isChat Then - 'che(32) is the code for empty space - Return Splits(0).Split(New Char() {Chr(32), ","c}) + 'che(32) is the code for empty space + Return Splits(0).Split(New Char() {Chr(32), ","c}) Else Return Splits(0).Split(New Char() {","c}) End If diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 2791a19..6144c0f 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -2582,7 +2582,7 @@ DebugAwareness: If ssh.YesOrNo = True And ssh.SubEdging = True Then GoTo EdgeSkip If ssh.YesOrNo = True And ssh.SubHoldingEdge = True Then GoTo EdgeSkip - If ssh.YesOrNo = True And ssh.OrgasmYesNo = False And ssh.DomTypeCheck = False Then + If ssh.YesOrNo = True And ssh.OrgasmYesNo = False And ssh.DomTypeCheck = False And ssh.TasksCount <= 0 Then YesOrNoQuestions() Return End If @@ -3934,19 +3934,17 @@ ReturnCalled: 'end the scripts anyway if it reaches the last line, even if the user forgot to use the @End command If lines(ssh.StrokeTauntVal) = "@End" Or ssh.StrokeTauntVal >= lines.Count Then - If ssh.CallReturns.Count = 0 Then - If ssh.ShowModule = False Then ssh.ModuleEnd = True - 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt - 'it will automatically do it to avoid session errors - If (ssh.isLink Or ssh.BeforeTease) And ssh.SubStroking = False Then - ssh.isLink = False - If My.Settings.Chastity Then - ssh.DomChat = "@NullResponse @StartTaunts" - Else - ssh.DomChat = "@NullResponse @StartStroking" - TypingDelay() - End If + If ssh.ShowModule = True Then ssh.ModuleEnd = True + 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt + 'it will automatically do it to avoid session errors + If (ssh.isLink Or ssh.BeforeTease) And ssh.SubStroking = False Then + ssh.isLink = False + If My.Settings.Chastity Then + ssh.DomChat = "@NullResponse @StartTaunts" + Else + ssh.DomChat = "@NullResponse @StartStroking" End If + TypingDelay() End If End If End If @@ -5340,6 +5338,11 @@ DommeSlideshowFallback: If ssh.SubGaveUp = True Then + If ssh.YesOrNo And ssh.giveUpReturn Then + ssh.DomChat = "#SYS_ReturnAnswer" + TypingDelay() + End If + ssh.SubGaveUp = False ssh.AskedToGiveUpSection = False @@ -5366,16 +5369,16 @@ DommeSlideshowFallback: End If End If - If ssh.TeaseTick < 1 And ssh.Playlist = False Then + If ssh.giveUpReturn Then + ssh.ShowModule = True + ssh.AskedToGiveUpSection = False + ScriptTimer.Start() + ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then ssh.StrokeTauntVal = -1 RunLastScript() ElseIf WasStroking And Not WasEdging And Not WasHolding Then ssh.StrokeTauntVal = -1 RunModuleScript(False) - ElseIf ssh.giveUpReturn Then - ssh.ShowModule = True - ssh.AskedToGiveUpSection = False - ScriptTimer.Start() Else ssh.StrokeTauntVal = -1 RunLinkScript() @@ -5934,34 +5937,22 @@ DommeSlideshowFallback: 'i think these shouldn't be dealt with here....they are already dealt during domresponse, doing it also here will just 'halve the number of tasks actually because it will be diminisher here and then also in the domme repsonse + If ssh.TasksCount > 0 Then + If ssh.CBTCockFlag = True Then + CBTCock() + End If - 'If ssh.CBTCockFlag = True Or ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Or ssh.CustomTask = True Then - 'ssh.TasksCount -= 1 - 'If ssh.TasksCount < 1 Then - 'ssh.CBTCockFlag = False - ' ssh.CBTBallsFlag = False - 'ssh.CBTBothFlag = False - 'ssh.CustomTask = False - 'ssh.CBTBallsFirst = True - 'ssh.CBTCockFirst = True - ' ssh.CBTBothFirst = True - 'ssh.CustomTaskFirst = True - 'End If - - If ssh.CBTCockFlag = True Then - CBTCock() - End If - - If ssh.CBTBallsFlag = True Then - CBTBalls() - End If + If ssh.CBTBallsFlag = True Then + CBTBalls() + End If - If ssh.CBTBothFlag = True Then - CBTBoth() - End If + If ssh.CBTBothFlag = True Then + CBTBoth() + End If - If ssh.CustomTask = True Then - RunCustomTask() + If ssh.CustomTask = True Then + RunCustomTask() + End If End If If ssh.YesOrNo = False And ssh.Responding = False Then @@ -5973,7 +5964,10 @@ DommeSlideshowFallback: ssh.Responding = False If ssh.SubGaveUp = True Then - + If ssh.YesOrNo And ssh.giveUpReturn Then + ssh.DomChat = "#SYS_ReturnAnswer" + TypingDelay() + End If ssh.SubGaveUp = False ssh.AskedToGiveUpSection = False @@ -6014,16 +6008,16 @@ DommeSlideshowFallback: End If End If - If ssh.TeaseTick < 1 And ssh.Playlist = False Then + If ssh.giveUpReturn Then + ssh.ShowModule = True + ssh.AskedToGiveUpSection = False + ScriptTimer.Start() + ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then ssh.StrokeTauntVal = -1 RunLastScript() ElseIf WasStroking And Not WasEdging And Not WasHolding Then ssh.StrokeTauntVal = -1 RunModuleScript(False) - ElseIf ssh.giveUpReturn Then - ssh.ShowModule = True - ssh.AskedToGiveUpSection = False - ScriptTimer.Start() Else ssh.StrokeTauntVal = -1 RunLinkScript() @@ -8202,17 +8196,18 @@ StatusUpdateEnd: StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) Else - - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - + If My.Settings.CBOutputErrors = True Then + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + Else + StringClean = StringClean.Replace(keyword.Value, "") + End If End If - 'Try 'lines = FilterList(lines) 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) 'Catch ex As Exception - 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, ' "Tease AI did not return a valid line while parsing vocabulary file.") 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value 'End Try @@ -15187,7 +15182,7 @@ NoPlaylistEndFile: ' Unlock OrgasmChances FrmSettings.LockOrgasmChances(False) - ClearModes() + If Not ssh.giveUpReturn Then ClearModes() If FrmSettings.TBWebStop.Text <> "" Then @@ -20564,24 +20559,19 @@ playLoop: If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False ssh.CallReturns.Pop().resumeState() If ssh.ReturnSubState = "Stroking" Then - If My.Settings.Chastity = True Then - 'DomTask = "Now as I was saying @StartTaunts" + If ssh.SubStroking = False Then If ssh.CallReturns.Count() = 0 Then - ssh.DomTask = "#Return_Chastity" + If My.Settings.Chastity = True Then + 'DomTask = "Now as I was saying @StartTaunts" + ssh.DomTask = "#Return_Chastity" + Else + 'DomTask = "Get back to stroking @StartStroking" + ssh.DomTask = "#Return_Stroking" + End If Else ssh.DomTask = "@NullResponse" End If TypingDelayGeneric() - Else - If ssh.SubStroking = False Then - 'DomTask = "Get back to stroking @StartStroking" - If ssh.CallReturns.Count() = 0 Then - ssh.DomTask = "#Return_Stroking" - Else - ssh.DomTask = "@NullResponse" - End If - TypingDelayGeneric() - End If If Not ssh.ShowModule Then StrokeTimer.Start() StrokeTauntTimer.Start() @@ -20621,16 +20611,12 @@ playLoop: ssh.DomTypeCheck = True ssh.ScriptTick = 2 ScriptTimer.Start() - 'DomTask = "Now as I was saying" - 'If StrComp(tempStatus, ssh.ReturnSubState) <> 0 Then - 'ssh.DomTask = "#Return_Rest" - 'Else + ssh.ShowModule = True If ssh.YesOrNo Then ssh.DomTask = "#SYS_ReturnAnswer" Else ssh.DomTask = "@NullResponse" End If - 'End If TypingDelayGeneric() End If End Sub From 06f2b478e5264fc1885fd8a751c959dbfff94ca0 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sat, 22 Apr 2017 16:00:22 +0200 Subject: [PATCH 079/143] -new command @WritingTaskRandom(): will pick a different line from a #Vocab used in a writing task every time you write a line -fixed a bug with writingtask sometimes triggering domresponses: now the domresponse will never be triggered until the writing task is completed -current domAvatar image is now restored on a resumesession --- Tease AI/Classes/State.vb | 5 ++- Tease AI/Classes/subAnswers.vb | 2 +- Tease AI/Form1.vb | 78 +++++++++++++++++++++++----------- 3 files changed, 59 insertions(+), 26 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index c80abfe..516723d 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -110,7 +110,6 @@ Public Class SessionState Public Property nameErrors As Integer = 0 Public Property wrongAttempt As Boolean - Public Property foundAnswer As Boolean Public Property ResponseFile As String Public Property ResponseLine As Integer @@ -430,6 +429,10 @@ Public Class SessionState Public Property tempHonorific As String Public Property replaceHonorific As String Public Property shortName As String + Public Property domAvatarImage As Image + Public Property currentWriteTask As String + Public Property randomWriteTask As Boolean + Public Property dontCheck As Boolean #Region "@CallReturn(" diff --git a/Tease AI/Classes/subAnswers.vb b/Tease AI/Classes/subAnswers.vb index 4c82f35..33cb3b3 100644 --- a/Tease AI/Classes/subAnswers.vb +++ b/Tease AI/Classes/subAnswers.vb @@ -11,7 +11,7 @@ Public Class subAnswers checkList.Add(My.Settings.SubNo) checkList.Add(My.Settings.SubSorry) checkList.Add("please") - checkList.Add("thank,thanks,thank you") + checkList.Add("thank,thanks") End Sub Public Function returnWords(s As String) As String diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 6144c0f..1794db3 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1713,7 +1713,6 @@ WritingTaskLine: If ssh.WritingTaskFlag = True Then - If ssh.ChatString = LBLWritingTaskText.Text Then ssh.WritingTaskLinesWritten += 1 @@ -1865,7 +1864,7 @@ WritingTaskLine: End If End If - + If ssh.randomWriteTask Then setWriteTask() End If If ssh.AFK = True Then Return @@ -2600,6 +2599,12 @@ EdgeSkip: End Sub Public Sub DomResponse() + If ssh.WritingTaskFlag Then Return + + If ssh.dontCheck Then + ssh.dontCheck = False + Return + End If Debug.Print("DomResponse Called") If ssh.justStarted Then @@ -3592,14 +3597,14 @@ NullSkip: GoTo NothingFound FoundAnswer: - ssh.DomChat = updateDommeName(ChatReplace) + updateDommeName(ChatReplace) + ssh.DomChat = ChatReplace If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True If ssh.DomChat.Contains("@LoopAnswer") Then GoTo LoopAnswer ssh.YesOrNo = False YesOrNoLanguageCheck() - ssh.foundAnswer = True If ssh.GotoFlag = False Then ssh.StrokeTauntVal = TempLineVal @@ -4615,7 +4620,7 @@ CancelGoto: If ssh.RiskyDeal = True Then FrmCardList.LblRiskType.Visible = True If ssh.NullResponse = False Then ssh.IsTyping = True - ssh.DomTask = updateDommeName(ssh.DomTask) + updateDommeName(ssh.DomTask) If ssh.DomTask.Contains("@EmoteMessage") Then ssh.EmoMes = True @@ -4732,8 +4737,13 @@ NullResponse: If ssh.DomTask.Contains("@WritingTask(") Then - Dim WriteFlag As String = GetParentheses(ssh.DomTask, "@WritingTask(") - ssh.DomTask = ssh.DomTask.Replace(WriteFlag, PoundClean(WriteFlag)) + ssh.currentWriteTask = GetParentheses(ssh.DomTask, "@WritingTask(") + ssh.DomTask = ssh.DomTask.Replace(ssh.currentWriteTask, PoundClean(ssh.currentWriteTask)) + End If + + If ssh.DomTask.Contains("@WritingTaskRandom(") Then + ssh.currentWriteTask = GetParentheses(ssh.DomTask, "@WritingTaskRandom(") + ssh.DomTask = ssh.DomTask.Replace(ssh.currentWriteTask, PoundClean(ssh.currentWriteTask)) End If If ssh.DomTask.Contains("@Contact1") Or ssh.DomTask.Contains("@Contact2") Or ssh.DomTask.Contains("@Contact3") Or ssh.DomTask.Contains("@RandomContact") Then ssh.SubWroteLast = True @@ -5565,8 +5575,13 @@ TryNextWithTease: If ssh.DomChat.Contains("@WritingTask(") Then - Dim WriteFlag As String = GetParentheses(ssh.DomChat, "@WritingTask(") - ssh.DomChat = ssh.DomChat.Replace(WriteFlag, PoundClean(WriteFlag)) + ssh.currentWriteTask = GetParentheses(ssh.DomChat, "@WritingTask(") + ssh.DomChat = ssh.DomChat.Replace(ssh.currentWriteTask, PoundClean(ssh.currentWriteTask)) + End If + + If ssh.DomChat.Contains("@WritingTaskRandom(") Then + ssh.currentWriteTask = GetParentheses(ssh.DomChat, "@WritingTaskRandom(") + ssh.DomChat = ssh.DomChat.Replace(ssh.currentWriteTask, PoundClean(ssh.currentWriteTask)) End If If ssh.DomChat.Contains("@Contact1") Or ssh.DomChat.Contains("@Contact2") Or ssh.DomChat.Contains("@Contact3") Or ssh.DomChat.Contains("@RandomContact") Then ssh.SubWroteLast = True @@ -8268,7 +8283,7 @@ StatusUpdateEnd: If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(") + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Length - 1) StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") End If @@ -8291,7 +8306,7 @@ StatusUpdateEnd: ssh.TempVal = ssh.randomizer.Next(1, 101) Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(") + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Length - 1) If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp @@ -10587,19 +10602,19 @@ OrgasmDecided: - If StringClean.Contains("@WritingTask(") Then + If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then + If StringClean.Contains("@WritingTask(") Then + ssh.randomWriteTask = False + StringClean = StringClean.Replace("@WritingTask", "") + Else + ssh.randomWriteTask = True + StringClean = StringClean.Replace("@WritingTaskRandom", "") + End If ssh.WritingTaskFlag = True - - Dim WTTempString As String() = Split(StringClean, "@WritingTask(", 2) - Dim WTTemp As String() = Split(WTTempString(1), ")") - LBLWritingTaskText.Text = WTTemp(0) - LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) - LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) - LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") + setWriteTask() Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) - 'Debug.Print("WritingTaskVal = " & WritingTaskVal) If WritingTaskVal = 0 Then ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) @@ -10626,7 +10641,6 @@ OrgasmDecided: LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed LBLMistakesMade.Text = "0" - StringClean = StringClean.Replace("@WritingTask", "") 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount ssh.WritingTaskLinesWritten = 0 @@ -16947,9 +16961,10 @@ saveImage: ssh.SlideshowMain.LoadNew(ssh.newSlideshow) ssh.tempDomName = ssh.SlideshowMain.TypeName If ssh.tempDomName <> My.Settings.DomName Then - Dim avatarImage As String = checkForImage("avatar.*", ssh.SlideshowMain.ImageFolder) + Dim avatarImage As String = checkForImage("/avatar.*", ssh.SlideshowMain.getCurrentBaseFolder(ssh.SlideshowMain.Contact)) If avatarImage = "" Then avatarImage = ssh.SlideshowMain.ImageList(ssh.randomizer.Next(0, ssh.SlideshowMain.ImageList().Count - 1)) domAvatar.Image = Image.FromFile(avatarImage) + ssh.domAvatarImage = domAvatar.Image End If ssh.shortName = ssh.SlideshowMain.ShortName Me.domName.Text = ssh.tempDomName @@ -17388,6 +17403,7 @@ restartInstantly: ssh.Load(filename, True) Me.domName.Text = ssh.tempDomName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName + domAvatar.Image = ssh.domAvatarImage If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ FrmSettings.LockOrgasmChances(True) @@ -20422,8 +20438,10 @@ playLoop: End Sub Public Sub ClearWriteTask() + ssh.dontCheck = True ssh.WritingTaskCurrentTime = 0 ssh.WritingTaskFlag = False + ssh.randomWriteTask = False chatBox.ShortcutsEnabled = True ChatBox2.ShortcutsEnabled = True CloseApp(Nothing) @@ -20576,6 +20594,11 @@ playLoop: StrokeTimer.Start() StrokeTauntTimer.Start() End If + Else + If Not ssh.ShowModule Then + StrokeTimer.Start() + StrokeTauntTimer.Start() + End If End If ElseIf ssh.ReturnSubState = "Edging" Then If ssh.SubEdging = False Then @@ -20637,7 +20660,7 @@ playLoop: End Sub - Private Function updateDommeName(stringToCheck As String) As String + Private Function updateDommeName(stringToCheck As String) 'remove eventual @ContactX present in a @FollowUp() inside the line If stringToCheck.Contains("@FollowUp") Then Dim remove As String @@ -20689,7 +20712,7 @@ playLoop: Case Else End Select End If - Return stringToCheck + 'Return stringToCheck End Function Private Sub checkForPunish() @@ -21023,5 +21046,12 @@ ShowedBlogImage: End If customVocabLines.Clear() End Sub + + Private Sub setWriteTask() + LBLWritingTaskText.Text = PoundClean(ssh.currentWriteTask) + LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") + End Sub End Class From 4c402c9771743840b724bf6b7733bb222c2d4bac Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 25 Apr 2017 13:20:28 +0200 Subject: [PATCH 080/143] New command: @DommeTagOr(): will choose a domme tagged image having at least one of the required tag. @DommeTag() will (now working properly) look for an image having ALL the required tags instead Changes: @DommeTag and @DommeTagOr now use the same functions used by ImageTag and ImageTagOr instead of the function getTaggedImage in the contactData class. That function was not working properly (for example @DommeTag(Boobs,Naked) would never return anything since it was looking just for a single tag...and it would have considered Boobs,Naked as the tag to look for) and i think it was useless to have 2 functions basically doing the same stuff but for different commands. P.s: the taggedImage function in contactdata is still there since i didn't want to cancel it in case you didn't agree with my changes...but as of now it is never used Fixes: Fixed a pair of errors in my "safenet" code for when the user forget @End or @StartStroking/Taunts in a script.....i forgot to reset the isLink boolean to false when calling an @Interrupt(). --- Tease AI/Classes/ContactData.vb | 1 + Tease AI/Classes/State.vb | 20 +-- Tease AI/Form1.vb | 272 +++++++++++++++++++------------- 3 files changed, 169 insertions(+), 124 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index 6519099..fddd611 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -611,6 +611,7 @@ redo: If rtnItem.TagImageList.Count = 0 Then ' ´############## List was empty ################ + Exit Function ElseIf Not rtnItem.TagImageList(0).StartsWith(TargetFolder) ' ################ Wrong folder ################# diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 516723d..8771899 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -183,7 +183,7 @@ Public Class SessionState Public Property giveUpReturn As Boolean Public Property contactToUse As ContactData - Public Property currentlyPresentContacts As List(Of String) + Public Property currentlyPresentContacts As List(Of String) = New List(Of String) Public Property DivideText As Boolean Public Property HoldEdgeTick As Integer @@ -425,9 +425,9 @@ Public Class SessionState Public Property Contact2Stroke As Boolean Public Property Contact3Stroke As Boolean - Public Property tempDomName As String + Public Property tempDomName As String = "" Public Property tempHonorific As String - Public Property replaceHonorific As String + Public Property tempDomHonorific As String Public Property shortName As String Public Property domAvatarImage As Image Public Property currentWriteTask As String @@ -744,13 +744,13 @@ Public Class SessionState giveUpReturn = My.Settings.GiveUpReturn DommeMood = randomizer.Next(My.Settings.DomMoodMin, My.Settings.DomMoodMax + 1) - SlideshowMain = New ContactData(ContactType.Domme) - SlideshowContact1 = New ContactData(ContactType.Contact1) - SlideshowContact2 = New ContactData(ContactType.Contact2) - SlideshowContact3 = New ContactData(ContactType.Contact3) - SlideshowContactRandom = New ContactData(ContactType.Random) - currentlyPresentContacts = New List(Of String) - currentlyPresentContacts.Add(SlideshowMain.TypeName) + 'SlideshowMain = New ContactData(ContactType.Domme) + 'SlideshowContact1 = New ContactData(ContactType.Contact1) + 'SlideshowContact2 = New ContactData(ContactType.Contact2) + 'SlideshowContact3 = New ContactData(ContactType.Contact3) + 'SlideshowContactRandom = New ContactData(ContactType.Random) + 'currentlyPresentContacts = New List(Of String) + 'currentlyPresentContacts.Add(SlideshowMain.TypeName) CaloriesConsumed = My.Settings.CaloriesConsumed checkAnswers = New subAnswers(Me) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 1794db3..0899b43 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -461,7 +461,6 @@ retryStart: FrmSplash.LBLSplash.Text = "Loading names..." FrmSplash.Refresh() - setStartName() FrmSettings.petnameBox1.Text = My.Settings.pnSetting1 FrmSettings.petnameBox2.Text = My.Settings.pnSetting2 @@ -931,16 +930,7 @@ retryStart: FrmSplash.LBLSplash.Text = "Loading Glitter Contact image slideshows..." FrmSplash.Refresh() - Try - ssh.SlideshowMain = New ContactData(ContactType.Domme) - ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) - ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) - ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) - ssh.SlideshowContactRandom = New ContactData(ContactType.Random) - Catch ex As Exception - - End Try - + setStartName() If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") Then Dim ContactList As New List(Of String) @@ -2610,7 +2600,7 @@ EdgeSkip: If ssh.justStarted Then ssh.justStarted = False Else - If checkSubAnswer() = 0 Then + If checkSubAnswer(, False) = 0 Then checkForPunish() Return End If @@ -5384,13 +5374,10 @@ DommeSlideshowFallback: ssh.AskedToGiveUpSection = False ScriptTimer.Start() ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then - ssh.StrokeTauntVal = -1 RunLastScript() ElseIf WasStroking And Not WasEdging And Not WasHolding Then - ssh.StrokeTauntVal = -1 RunModuleScript(False) Else - ssh.StrokeTauntVal = -1 RunLinkScript() End If End If @@ -5437,6 +5424,7 @@ DommeSlideshowFallback: If ssh.DomChat.Contains("@SlideshowOff") Then CustomSlideshowTimer.Stop() If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True + ssh.JustShowedBlogImage = True Else ssh.RapidCode = False End If @@ -5557,15 +5545,12 @@ NullResponseLine: And ssh.SlideshowLoaded = True And Not ssh.DomChat.Contains("@ShowButtImage") And Not ssh.DomChat.Contains("@ShowBoobsImage") And Not ssh.DomChat.Contains("@ShowButtsImage") _ And Not ssh.DomChat.Contains("@ShowBoobImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ And UCase(ssh.DomChat) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False Then - If ssh.SubStroking = False Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ' Begin Next Button + ' Begin Next Button - ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ + ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TryNextWithTease: - - End If ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ -6028,13 +6013,10 @@ DommeSlideshowFallback: ssh.AskedToGiveUpSection = False ScriptTimer.Start() ElseIf ssh.TeaseTick < 1 And ssh.Playlist = False Then - ssh.StrokeTauntVal = -1 RunLastScript() ElseIf WasStroking And Not WasEdging And Not WasHolding Then - ssh.StrokeTauntVal = -1 RunModuleScript(False) Else - ssh.StrokeTauntVal = -1 RunLinkScript() End If End If @@ -7631,6 +7613,8 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#DomName", ssh.tempDomName) + StringClean = StringClean.Replace("#MainDom", My.Settings.DomName) + If StringClean.Contains("#Contact1Honorific") Then StringClean = StringClean.Replace("#Contact1Honorific", My.Settings.G1Honorific) If StringClean.Contains("#Contact2Honorific") Then StringClean = StringClean.Replace("#Contact2Honorific", My.Settings.G2Honorific) @@ -7638,9 +7622,9 @@ StatusUpdateEnd: If StringClean.Contains("#Contact3Honorific") Then StringClean = StringClean.Replace("#Contact3Honorific", My.Settings.G3Honorific) If ssh.dommePresent = True Then - StringClean = StringClean.Replace("#DomHonorific", ssh.replaceHonorific) - Else StringClean = StringClean.Replace("#DomHonorific", ssh.tempHonorific) + Else + StringClean = StringClean.Replace("#DomHonorific", My.Settings.SubHonorific) End If StringClean = StringClean.Replace("#DomAge", FrmSettings.domageNumBox.Value) @@ -8378,7 +8362,7 @@ RinseLatherRepeat: Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = ssh.contactToUse.GetTaggedImage(TagFlag, True) + ssh.DommeImageSTR = GetLocalImage(TagFlag, True) Else ssh.DommeImageSTR = "" End If @@ -8398,7 +8382,7 @@ RinseLatherRepeat: ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = ssh.contactToUse.GetTaggedImage(TagFlag, True) + ssh.DommeImageSTR = GetLocalImage(TagFlag, True) Else ssh.DommeImageSTR = "" End If @@ -10817,7 +10801,7 @@ OrgasmDecided: End If If StringClean.Contains("@InterruptLongEdge") Then - + ssh.isLink = False Dim EdgeList As New List(Of String) For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") @@ -10857,7 +10841,7 @@ OrgasmDecided: End If If StringClean.Contains("@InterruptStartStroking") Then - + ssh.isLink = False If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then StringClean = "Ask me later" GoTo VTSkip @@ -10906,6 +10890,7 @@ OrgasmDecided: End If If StringClean.Contains("@Interrupt(") Then + ssh.isLink = False Dim InterruptClean As String = StringClean Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 For i As Integer = 1 To StartIndex @@ -13356,18 +13341,28 @@ VTSkip: Return String.Empty End Function - Public Function GetLocalImage(ByVal LocTag As String) As String + Public Function GetLocalImage(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String + Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" + If isDommeTag Then + fileToCheck = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" + End If + 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + If File.Exists(fileToCheck) Then Dim TagList As New List(Of String) - TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + TagList = Txt2List(fileToCheck) LocTag = LocTag.Replace(" ,", ",") LocTag = LocTag.Replace(", ", ",") Dim LocTagArray As String() = LocTag.Split(",") + If isDommeTag Then + For i As Integer = 0 To LocTagArray.Count - 1 + LocTagArray(i) = "Tag" & LocTagArray(i) + Next + End If Dim TaggedList As New List(Of String) @@ -13402,17 +13397,27 @@ VTSkip: End If End Function - Public Function GetLocalImageOr(ByVal LocTag As String) As String - If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then + Public Function GetLocalImageOr(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String + Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" + If isDommeTag Then + fileToCheck = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" + End If + + If File.Exists(fileToCheck) Then Dim TagList As New List(Of String) - TagList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + TagList = Txt2List(fileToCheck) LocTag = LocTag.Replace(" ,", ",") LocTag = LocTag.Replace(", ", ",") Dim LocTagArray As String() = LocTag.Split(",") + If isDommeTag Then + For i As Integer = 0 To LocTagArray.Count - 1 + LocTagArray(i) = "Tag" & LocTagArray(i) + Next + End If Dim TaggedList As New List(Of String) @@ -13622,16 +13627,33 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If FilterContact.GetTaggedImage(GetParentheses(FilterString, "@DommeTag(")) = "" Then Return False + If GetLocalImage(GetParentheses(FilterString, "@DommeTag("), True) = String.Empty Then Return False + End If + End If + + If FilterString.Includes("@DommeTagOr(") Then + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.LockImage = True Then + Return False + Else + If GetLocalImageOr(GetParentheses(FilterString, "@DommeTag("), True) = String.Empty Then Return False End If End If If FilterString.Contains("@ImageTag(") Then - If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False + If ssh.LockImage = True Then + Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@ImageTag(")) = String.Empty Then Return False + End If End If If FilterString.Contains("@ImageTagOr(") Then - If GetLocalImageOr(GetParentheses(FilterString, "@ImageTagOr(")) = String.Empty Then Return False + If ssh.LockImage = True Then + Return False + Else + If GetLocalImageOr(GetParentheses(FilterString, "@ImageTagOr(")) = String.Empty Then Return False + End If End If ' ################## @Show-Category-Image ##################### @@ -13711,7 +13733,7 @@ VTSkip: ' Possible space Filters ' This Section Contains @CommandFilters which allow space chars (0x20). ' - ' Example: "@Cup(A, B) Whatever Text to display" + ' Example: "@Cup(A, B) Whatever Text To display" ' Mostly all perametrized command filters allow space chars in parameters. '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -14155,9 +14177,9 @@ VTSkip: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), + Log.WriteError(String.Format("Exception occured While checking line ""{0}"".", OrgFilterString), ex, "GetFilter(String, Boolean)") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error " & ex.Message & "", False) Return False End Try End Function @@ -14356,7 +14378,7 @@ VTSkip: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error is major issue in Code and will occur everytime until you fix this Error. For there is no point in " & + "This error Is major issue in Code And will occur everytime until you fix this Error. For there Is no point in " & "further executing the Code, the application will exit after closing this Message." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") Application.Exit() @@ -14498,8 +14520,8 @@ VTSkip: ''' Messagetext to append to chat. ''' If true the chatwindow is refreshed and reprinted. Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) - ChatAppend("" & messageText & "", printChat) - 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" + ChatAppend("" & messageText & "", printChat) + 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" End Sub Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) @@ -14573,9 +14595,9 @@ VTSkip: If File.Exists(AvoidTheEdgeVideo) Then Else If ssh.DommeVideo = True Then - MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") + MsgBox("AvoidTheEdgeD.txt Is missing!", , "Error!") Else - MsgBox("AvoidTheEdge.txt is missing!", , "Error!") + MsgBox("AvoidTheEdge.txt Is missing!", , "Error!") End If Return End If @@ -14740,6 +14762,7 @@ VTSkip: Public Sub RunModuleScript(ByVal IsEdging As Boolean) If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False + ssh.StrokeTauntVal = -1 ssh.isLink = False ssh.ShowModule = True ssh.FirstRound = False @@ -14865,6 +14888,7 @@ NoPlaylistModuleFile: Public Sub RunLinkScript() + ssh.StrokeTauntVal = -1 If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False ssh.isLink = True Debug.Print("RunLinkScript() Called") @@ -14989,6 +15013,7 @@ NoPlaylistLinkFile: Public Sub RunLastScript() + ssh.StrokeTauntVal = -1 ClearModes() ssh.FirstRound = False 'My.Settings.Sys_SubLeftEarly = 0 @@ -15095,7 +15120,7 @@ NoPlaylistEndFile: End Sub Public Sub RunLastBegScript() - + ssh.StrokeTauntVal = -1 ClearModes() 'Debug.Print("RunLastBegScript() Called") @@ -15246,9 +15271,9 @@ NoPlaylistEndFile: ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Edge Taunt from file: " & + Log.WriteError("Tease AI did Not return a valid Edge Taunt from file " & File2Read, ex, "EdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read + ssh.DomTask = "ERROR Tease AI did Not return a valid Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15618,9 +15643,9 @@ NoRepeatOFiles: ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & + Log.WriteError("Tease AI did Not return a valid Hold the Edge Taunt from file " & File2Read, ex, "HoldEdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read + ssh.DomTask = "ERROR Tease AI did Not return a valid Hold the Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15690,7 +15715,7 @@ Night: ssh.TaskText = "" - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " Is sending you a file!" PNLFileTransfer.Visible = True PNLFileTransfer.BringToFront() @@ -15710,7 +15735,7 @@ Night: Dim TaskList As New List(Of String) TaskLines = FilterList(TaskLines) - If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") + If TaskLines.Count = 0 Then Throw New ArgumentException("The given file """ & dir & """ was returned empty.") TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) @@ -15871,8 +15896,8 @@ PoundLoop: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") - Return "ERROR: Tease AI did not return a valid Task line" + Log.WriteError("Error occurred during file processing """ & dir & """", ex, "CleanTaskLines(String)") + Return "ERROR Tease AI did Not return a valid Task line" End Try End Function @@ -15881,7 +15906,7 @@ PoundLoop: PNLFileTransfer.Visible = False BTNFileTransferOpen.Visible = False BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " Is sending you a file!" PBFileTransfer.Value = 0 End Sub @@ -15903,7 +15928,7 @@ PoundLoop: PNLFileTransfer.Visible = False BTNFileTransferOpen.Visible = False BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " Is sending you a file!" PBFileTransfer.Value = 0 End Sub @@ -15992,11 +16017,11 @@ TryNext: Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) - ''Debug.Print("{0:c} : {1:c}", TST.Minutes, TST.Seconds) + ''Debug.Print("{0: c} : {1:c}", TST.Minutes, TST.Seconds) - 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) + 'Debug.Print("EdgeCountTick = " & String.Format("{000}:{1:00}", TST.Minutes, TST.Seconds)) End Sub Private Sub StrokeTimeTotalTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick @@ -16012,8 +16037,8 @@ TryNext: Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) - 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + 'LBLStrokeTimeTotal.Text = String.Format("{0000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{00000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) End Sub @@ -16074,7 +16099,7 @@ RestartFunction: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ TnASlides.Stop() Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in TnASlides.Tick occured", False) + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR " & ex.Message & " : Exception in TnASlides.Tick occured", False) End Try End Sub @@ -16234,7 +16259,7 @@ RestartFunction: If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return - 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) + 'Debug.Print("New movie loaded " & DomWMP.URL.ToString) ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) @@ -16257,7 +16282,7 @@ RestartFunction: For i As Integer = 0 To SubList.Count - 1 SubCheck = SubList(i).Split("]") SubCheck(0) = SubCheck(0).Replace("[", "") - Dim SubCheck2 As String() = SubCheck(0).Split(":") + Dim SubCheck2 As String() = SubCheck(0).Split("") PlayPos = SubCheck2(0) * 3600 PlayPos += SubCheck2(1) * 60 @@ -16489,9 +16514,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Log.WriteError("Tease AI did Not return a valid Video Taunt from file " & VTDir, ex, "VideoTaunTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir + ssh.DomTask = "ERROR Tease AI did Not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16563,9 +16588,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Log.WriteError("Tease AI did Not return a valid Video Taunt from file " & VTDir, ex, "RLGLTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir + ssh.DomTask = "ERROR Tease AI did Not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16616,9 +16641,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + Log.WriteError("Tease AI did Not return a valid Video Taunt from file " & VTDir, ex, "AvoidTheEdgeTaunts.Tick") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir + ssh.DomTask = "ERROR Tease AI did Not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16769,7 +16794,7 @@ retry: Else Exit Sub End If - Else : Throw New NotImplementedException("Action for this button is not implemented.") + Else : Throw New NotImplementedException("Action for this button Is Not implemented.") End If If Directory.Exists(BlogPath) = False Then @@ -16826,21 +16851,21 @@ saveImage: ElseIf tmpTsmi Is PicStripTSMIdislikeImage Then tmpFilePath = pathDislikeList Else - Throw New NotImplementedException("This Toolstripmenuitem is not implemented yet") + Throw New NotImplementedException("This Toolstripmenuitem Is Not implemented yet") End If If tmpTsmi.Checked Then ' Remove from the given file - lazytext = "remove path from file :" & tmpFilePath + lazytext = "remove path from file " & tmpFilePath TxtRemoveLine(tmpFilePath, ssh.ImageLocation) tmpTsmi.Checked = False ElseIf File.Exists(tmpFilePath) Then - lazytext = "append path to file :" & tmpFilePath + lazytext = "append path to file " & tmpFilePath ' Append to existing file My.Computer.FileSystem.WriteAllText(tmpFilePath, Environment.NewLine & ssh.ImageLocation, True) Else - lazytext = "add path to new file :" & tmpFilePath + lazytext = "add path to New file " & tmpFilePath ' create a new file My.Computer.FileSystem.WriteAllText(tmpFilePath, ssh.ImageLocation, True) End If @@ -16878,7 +16903,7 @@ saveImage: Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + MsgBox("Please close the settings menu Or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") Return End If @@ -16895,7 +16920,7 @@ saveImage: Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + MsgBox("Please close the settings menu Or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") Return End If @@ -16912,7 +16937,7 @@ saveImage: Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + MsgBox("Please close the settings menu Or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") Return End If @@ -16938,28 +16963,29 @@ saveImage: If ssh.glitterDommeNumber = 0 Then If FrmSettings.CBRandomDomme.Checked = False Then ssh.SlideshowMain = New ContactData(ContactType.Domme) - ssh.replaceHonorific = My.Settings.SubHonorific + ssh.tempHonorific = My.Settings.SubHonorific Else ssh.SlideshowMain = New ContactData(ContactType.Random) - ssh.replaceHonorific = My.Settings.RandomHonorific + ssh.tempHonorific = PoundClean(My.Settings.RandomHonorific) End If ElseIf ssh.glitterDommeNumber = 1 Then ssh.SlideshowMain = New ContactData(ContactType.Contact1) - ssh.replaceHonorific = My.Settings.G1Honorific + ssh.tempHonorific = My.Settings.G1Honorific ElseIf ssh.glitterDommeNumber = 2 Then ssh.SlideshowMain = New ContactData(ContactType.Contact2) - ssh.replaceHonorific = My.Settings.G2Honorific + ssh.tempHonorific = My.Settings.G2Honorific ElseIf ssh.glitterDommeNumber = 3 Then ssh.SlideshowMain = New ContactData(ContactType.Contact3) - ssh.replaceHonorific = My.Settings.G3Honorific + ssh.tempHonorific = My.Settings.G3Honorific ElseIf ssh.glitterDommeNumber = 4 Then ssh.SlideshowMain = New ContactData(ContactType.Random) - ssh.replaceHonorific = My.Settings.RandomHonorific + ssh.tempHonorific = PoundClean(My.Settings.RandomHonorific) End If ssh.contactToUse = ssh.SlideshowMain End If ssh.SlideshowMain.LoadNew(ssh.newSlideshow) ssh.tempDomName = ssh.SlideshowMain.TypeName + ssh.tempDomHonorific = ssh.tempHonorific If ssh.tempDomName <> My.Settings.DomName Then Dim avatarImage As String = checkForImage("/avatar.*", ssh.SlideshowMain.getCurrentBaseFolder(ssh.SlideshowMain.Contact)) If avatarImage = "" Then avatarImage = ssh.SlideshowMain.ImageList(ssh.randomizer.Next(0, ssh.SlideshowMain.ImageList().Count - 1)) @@ -17023,7 +17049,7 @@ saveImage: Public Function CompareDates(ByVal CheckDate As Date) As Integer Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.ShortDate), FormatDateTime(Now, DateFormat.ShortDate)) - Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) + Debug.Print("Compare dates " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) Return result End Function @@ -17031,7 +17057,7 @@ saveImage: Public Function CompareDatesWithTime(ByVal CheckDate As Date) As Integer Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.GeneralDate), FormatDateTime(Now, DateFormat.GeneralDate)) - Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) + Debug.Print("Compare dates " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) Return result End Function @@ -17319,7 +17345,7 @@ restartInstantly: Dim filename As String = SavedSessionDefaultPath If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", + MessageBox.Show(Me, "Tease AI Is Not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17359,7 +17385,7 @@ restartInstantly: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & + MessageBox.Show(Me, "An error occurred And the state did Not save correctly!" & vbCrLf & vbCrLf & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try @@ -17388,7 +17414,7 @@ restartInstantly: ' Check if default-File exists '=============================================================================== ElseIf Not File.Exists(filename) Then - MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could Not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17403,7 +17429,7 @@ restartInstantly: ssh.Load(filename, True) Me.domName.Text = ssh.tempDomName FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName - domAvatar.Image = ssh.domAvatarImage + If Not IsNothing(ssh.domAvatarImage) Then domAvatar.Image = ssh.domAvatarImage If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ FrmSettings.LockOrgasmChances(True) @@ -17411,7 +17437,7 @@ restartInstantly: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & + MessageBox.Show(Me, "An error occurred And the state was Not loaded correctly!" & vbCrLf & vbCrLf & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try @@ -17420,7 +17446,7 @@ restartInstantly: Private Sub ResetSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "Tease AI Is Not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If @@ -17568,7 +17594,7 @@ restartInstantly: MessageBox.Show(Me, "You have already purchased " & ssh.tempDomName & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Return - End If + End If @@ -17576,7 +17602,7 @@ restartInstantly: - If CompareDates(My.Settings.WishlistDate) <> 0 Then + If CompareDates(My.Settings.WishlistDate) <> 0 Then Dim WishList As New List(Of String) @@ -20645,6 +20671,16 @@ playLoop: End Sub Public Sub setStartName() + Try + ssh.SlideshowMain = New ContactData(ContactType.Domme) + ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) + ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) + ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) + ssh.SlideshowContactRandom = New ContactData(ContactType.Random) + Catch ex As Exception + End Try + If ssh.currentlyPresentContacts.Count = 0 Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) + If File.Exists(My.Settings.DomAvatarSave) Then domAvatar.Image = Image.FromFile(My.Settings.DomAvatarSave) customVocabLines = New List(Of String) ssh.contactToUse = ssh.SlideshowMain @@ -20652,7 +20688,7 @@ playLoop: ssh.tempDomName = My.Settings.DomName domName.Text = ssh.tempDomName ssh.tempHonorific = My.Settings.SubHonorific - ssh.replaceHonorific = ssh.tempHonorific + ssh.tempDomHonorific = ssh.tempHonorific ssh.shortName = My.Settings.GlitterSN End If If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName @@ -20680,34 +20716,34 @@ playLoop: ssh.contactToUse = ssh.SlideshowMain ssh.tempDomName = ssh.SlideshowMain.TypeName - ssh.tempHonorific = ssh.SlideshowMain.TypeHonorific + ssh.tempHonorific = ssh.tempDomHonorific If stringToCheck.Contains("@Contact1") Then - ssh.tempDomName = My.Settings.Glitter1 - ssh.tempHonorific = My.Settings.G1Honorific + ssh.tempDomName = ssh.SlideshowContact1.TypeName + ssh.tempHonorific = ssh.SlideshowContact1.TypeHonorific ssh.contactToUse = ssh.SlideshowContact1 ElseIf stringToCheck.Contains("@Contact2") Then - ssh.tempDomName = My.Settings.Glitter2 - ssh.tempHonorific = My.Settings.G2Honorific + ssh.tempDomName = ssh.SlideshowContact2.TypeName + ssh.tempHonorific = ssh.SlideshowContact2.TypeHonorific ssh.contactToUse = ssh.SlideshowContact2 ElseIf stringToCheck.Contains("@Contact3") Then - ssh.tempDomName = My.Settings.Glitter3 - ssh.tempHonorific = My.Settings.G3Honorific + ssh.tempDomName = ssh.SlideshowContact3.TypeName + ssh.tempHonorific = ssh.SlideshowContact3.TypeHonorific ssh.contactToUse = ssh.SlideshowContact3 ElseIf stringToCheck.Contains("@RandomContact") Then Dim casual As Integer = 0 casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) Select Case ssh.currentlyPresentContacts(casual) Case ssh.SlideshowContact1.TypeName - ssh.tempDomName = My.Settings.Glitter1 - ssh.tempHonorific = My.Settings.G1Honorific + ssh.tempDomName = ssh.SlideshowContact1.TypeName + ssh.tempHonorific = ssh.SlideshowContact1.TypeHonorific ssh.contactToUse = ssh.SlideshowContact1 Case ssh.SlideshowContact2.TypeName - ssh.tempDomName = My.Settings.Glitter2 - ssh.tempHonorific = My.Settings.G2Honorific + ssh.tempDomName = ssh.SlideshowContact2.TypeName + ssh.tempHonorific = ssh.SlideshowContact2.TypeHonorific ssh.contactToUse = ssh.SlideshowContact2 Case ssh.SlideshowContact3.TypeName - ssh.tempDomName = My.Settings.Glitter3 - ssh.tempHonorific = My.Settings.G3Honorific + ssh.tempDomName = ssh.SlideshowContact3.TypeName + ssh.tempHonorific = ssh.SlideshowContact3.TypeHonorific ssh.contactToUse = ssh.SlideshowContact3 Case Else End Select @@ -20852,7 +20888,9 @@ ExternalVideo: End Sub 'return -1 if word to check was not present, 0 if something in the honorific is wrong, 1 if all is ok - Private Function checkSubAnswer(Optional caseToCheck As String = "") As Integer + 'we don't reduce errors number when doing the checks for what the sub writes in chat (so we reduce them only when asked a direct question) + 'otherwise it will be nearly impossible to be punished since each phrase not using it would reduce the count + Private Function checkSubAnswer(Optional caseToCheck As String = "", Optional reduceErrors As Boolean = True) As Integer ssh.DomChat = "" If Not IsNothing(ssh.contactToUse) Then If ssh.contactToUse.Equals(ssh.SlideshowContact1) Then @@ -20868,6 +20906,7 @@ ExternalVideo: Dim splitChat As String() splitChat = ssh.obtainSplitParts(ssh.ChatString, True) + 'checkanswers is a new class which stores all the saved settings for hi,yes,no,sorry words that the used has chosen 'if we don't have a specific word to check for, we check for them all (this is used anytime the sub write anything) If caseToCheck = "" Then @@ -20911,6 +20950,7 @@ ExternalVideo: ssh.nameErrors += 1 ssh.wrongAttempt = True End If + ssh.JustShowedBlogImage = True TypingDelay() Return 0 End If @@ -20921,16 +20961,20 @@ ExternalVideo: ssh.DomChat += "#SYS_CapitalizeHonorific" ssh.nameErrors += 1 ssh.wrongAttempt = True + ssh.JustShowedBlogImage = True TypingDelay() Return 0 End If + 'we only reduce the errors if we were responding a question, not everytime we write...the sub need to remember to use the honorific :D + If reduceErrors Then + If ssh.wrongAttempt Then + ssh.wrongAttempt = False + Else + If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 + End If + End If End If End If - If ssh.wrongAttempt Then - ssh.wrongAttempt = False - Else - If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 - End If End If Return 1 End If From 27d30fd43dbda195b0dab17fa852bc160fcbb9cf Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 25 Apr 2017 14:14:05 +0200 Subject: [PATCH 081/143] Commented out 3 lines in the domresponse() sub that were dealing with removing please, fucking or fuckin from the responses before doing the checks. These were limiting the possibilities to create different responses for similar situations. For example: [can i speak please] or [can i speak] can now be used as trigger words in 2 different response files. while previously, teaseAI would have taken the first file (it checks in alphabetical order i think) and always return the response from that one --- Tease AI/Form1.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 0899b43..6728659 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -2632,9 +2632,9 @@ EdgeSkip: CheckResponse = CheckResponse.Replace("*", "") CheckResponse = CheckResponse.Replace(" ", " ") - If Not CheckResponse = UCase("please") Then CheckResponse = CheckResponse.Replace(UCase("please"), "") - If Not CheckResponse = UCase("fucking") Then CheckResponse = CheckResponse.Replace(UCase("fucking"), "") - If Not CheckResponse = UCase("fuckin") Then CheckResponse = CheckResponse.Replace(UCase("fuckin"), "") + ' If Not CheckResponse = UCase("please") Then CheckResponse = CheckResponse.Replace(UCase("please"), "") + ' If Not CheckResponse = UCase("fucking") Then CheckResponse = CheckResponse.Replace(UCase("fucking"), "") + ' If Not CheckResponse = UCase("fuckin") Then CheckResponse = CheckResponse.Replace(UCase("fuckin"), "") Try From 7ffa80c955a83925d96de2eb74400d1162e36d78 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 25 Apr 2017 14:22:03 +0200 Subject: [PATCH 082/143] Forgot to complete the domTagOr() and domTag() functions also for domtag and not only for dommetag command :D --- Tease AI/Form1.vb | 50 +++++++++++++++++++++++++++++++++++++++++------ 1 file changed, 44 insertions(+), 6 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 6728659..d14e969 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8370,6 +8370,18 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") End If + If StringClean.Contains("@DommeTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") + End If + If StringClean.Contains("@NewDommeSlideshow") Then 'TODO: Add Support for contact slideshows. ssh.newSlideshow = True @@ -8390,6 +8402,19 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") End If + If StringClean.Contains("@DomTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If + + StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") + End If + If StringClean.Contains("@ImageTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") ShowImage(GetLocalImage(TagFlag), False) @@ -13621,10 +13646,8 @@ VTSkip: ' This line has to be sorted out, if there are no corresponding images tagged ' with "glaring". '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - 'ISSUE: @DomTag() is not filtered out If FilterString.Includes("@DommeTag(") Then - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.LockImage = True Then + If ssh.LockImage = True Then Return False Else If GetLocalImage(GetParentheses(FilterString, "@DommeTag("), True) = String.Empty Then Return False @@ -13632,11 +13655,26 @@ VTSkip: End If If FilterString.Includes("@DommeTagOr(") Then - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.LockImage = True Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImageOr(GetParentheses(FilterString, "@DommeTagOr("), True) = String.Empty Then Return False + End If + End If + + If FilterString.Includes("@DomTag(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@DomTag("), True) = String.Empty Then Return False + End If + End If + + If FilterString.Includes("@DomTagOr(") Then + If ssh.LockImage = True Then Return False Else - If GetLocalImageOr(GetParentheses(FilterString, "@DommeTag("), True) = String.Empty Then Return False + If GetLocalImageOr(GetParentheses(FilterString, "@DomTagOr("), True) = String.Empty Then Return False End If End If From 7a43883b04d09f428a4269201156a1d02389f38d Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 25 Apr 2017 16:22:05 +0200 Subject: [PATCH 083/143] for some unweird reason i removed a : in the chatappend function for the color of systemmessage chat...it is fixed back to normal now --- Tease AI/Form1.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index d14e969..f71ace1 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -14558,9 +14558,9 @@ VTSkip: ''' Messagetext to append to chat. ''' If true the chatwindow is refreshed and reprinted. Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) - ChatAppend("" & messageText & "", printChat) - 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" - End Sub + ChatAppend("" & messageText & "", printChat) + 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" + End Sub Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) ssh.Chat &= elementText & "
" & vbCrLf From 7655d0be96afb60fe3edfce3cdd9a85289f737e9 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 25 Apr 2017 19:30:42 +0200 Subject: [PATCH 084/143] Fixed a problem with the new @DomTag() function that was using the wrong path to show images. Added new functionality in @CallReturn(): you can now call a random file by just using @CallReturn(dir/*) or @CallReturn(dir/*.txt) --- Tease AI/Form1.vb | 58 +++++++++++++++++++++++++++++++---------------- 1 file changed, 39 insertions(+), 19 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index f71ace1..2e6dd3b 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -12119,7 +12119,6 @@ VTSkip: If StringClean.Contains("@CallReturn(") Then - GetSubState() ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) ssh.YesOrNo = False @@ -12154,27 +12153,48 @@ VTSkip: ssh.SubHoldingEdge = False End If - 'StopEverything() - - - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") Dim CallReplace As String = CheckFlag - If CheckFlag.Contains(",") Then + If CheckFlag.Contains("*") Then + Dim checkArray() As String = CheckFlag.Split("*") + CheckFlag = checkArray(0) + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.MultiTauntPictureHold = False + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + GotoClear() + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 + End If + End If + Else + If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + CheckFlag = FixCommas(CheckFlag) - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - Else + Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 + End If End If ssh.ScriptTick = 2 ScriptTimer.Start() @@ -13411,11 +13431,11 @@ VTSkip: PicDir = PicDir & PicArray(p) & " " If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For Next - + If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & PicDir Return PicDir - Else - Return String.Empty + Else + Return String.Empty End If @@ -13464,7 +13484,7 @@ VTSkip: PicDir = PicDir & PicArray(p) & " " If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For Next - + If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & PicDir Return PicDir Else From b96076c94d250dcf3bb48b415163972d70552fd6 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sat, 29 Apr 2017 16:25:45 +0200 Subject: [PATCH 085/143] Final fixes to @calreturn: now it stores also the islink variable to remind wheter it need to check for the "safenet" to apply @StartStroking/Taunts when a link ends even if the script had not the command to prevent session from blocking Fixes to playaudio[,playVideo[ and showImage[: now it is possible to call video/audio/images from an external dir if you write the full path name to them: example: @PlayAudio[C:\dir\subdir\name.extention] It is also possible now to use * to call a random video/audio/image from those external directory too (previously the functions were bugged and threw errors if you tried to do that): example: @PlayVideo[c:\dir\subdir\*] --- .../Classes/SessionState.StackedCallReturn.vb | 11 ++ Tease AI/Form1.vb | 130 +++++++++--------- Tease AI/Form2.Designer.vb | 51 +++++-- Tease AI/Form2.vb | 6 + Tease AI/My Project/Settings.Designer.vb | 38 +++-- 5 files changed, 150 insertions(+), 86 deletions(-) diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb index fda35bc..1087350 100644 --- a/Tease AI/Classes/SessionState.StackedCallReturn.vb +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -6,6 +6,13 @@ 'store if the user was in yesorno mode when callreturn was called Dim yesOrNostate As Boolean + 'store wheter we are currently running a module or we are in a stroking cycle + Dim showingModule As Boolean + + 'store the isLink status (useful for the "safenet" that will allow to start the stroke cycle even if the script doesn't contain a @StartStroking/Taunt + 'when it reaches the end of a link/beforeScript) + Dim isALink As Boolean + 'store all the modes variables so we can reset them on coming back Dim edgeMode, ruinMode, cameMode, yesMode, noMode As New Mode() Dim customModes As New Dictionary(Of String, Mode) @@ -19,6 +26,8 @@ yesMode = session.yesMode noMode = session.noMode customModes = session.Modes + showingModule = session.ShowModule + isALink = session.isLink End Sub Sub resumeState() Session.StrokeTauntVal = Line @@ -33,6 +42,8 @@ Session.yesMode = yesMode Session.noMode = noMode Session.Modes = customModes + Session.ShowModule = showingModule + Session.isLink = isALink End Sub End Class End Class \ No newline at end of file diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 2e6dd3b..833d1f4 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -3928,7 +3928,7 @@ ReturnCalled: Debug.Print("End Check StrokeTauntVal = " & ssh.StrokeTauntVal) 'end the scripts anyway if it reaches the last line, even if the user forgot to use the @End command - If lines(ssh.StrokeTauntVal) = "@End" Or ssh.StrokeTauntVal >= lines.Count Then + If ssh.StrokeTauntVal >= lines.Count Or lines(ssh.StrokeTauntVal) = "@End" Then If ssh.ShowModule = True Then ssh.ModuleEnd = True 'if we reached the end of the script and we are in a link or in the beforeTease, and we forget to use the @StartStroking/Taunt 'it will automatically do it to avoid session errors @@ -4032,7 +4032,7 @@ ModuleEnd: Return End If - If lines(line) = "@End" Then + If lines(line) = "@End" Or ssh.StrokeTauntVal > lines.Count Then NonModuleEnd: @@ -8389,6 +8389,21 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@NewDommeSlideshow", "") End If + If StringClean.Contains("@NewContact1Slideshow") Then + If ssh.contact1Present Then ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) + StringClean = StringClean.Replace("@NewContact1Slideshow", "") + End If + + If StringClean.Contains("@NewContact2Slideshow") Then + If ssh.contact2Present Then ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) + StringClean = StringClean.Replace("@NewContact2Slideshow", "") + End If + + If StringClean.Contains("@NewContact3Slideshow") Then + If ssh.contact3Present Then ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) + StringClean = StringClean.Replace("@NewContact3Slideshow", "") + End If + If StringClean.Contains("@DomTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") ' Try to get a Domme Image for the given Tags. @@ -10663,10 +10678,10 @@ OrgasmDecided: 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) - secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * LBLWritingTaskText.Text.Length + secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * (LBLWritingTaskText.Text.Length - 3) 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some 'more time for very short lines - ssh.WritingTaskCurrentTime = 5 + secs * ssh.WritingTaskLinesAmount + ssh.WritingTaskCurrentTime = 15 + secs * ssh.WritingTaskLinesAmount LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") @@ -10827,6 +10842,7 @@ OrgasmDecided: If StringClean.Contains("@InterruptLongEdge") Then ssh.isLink = False + ssh.BeforeTease = False Dim EdgeList As New List(Of String) For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") @@ -10867,6 +10883,7 @@ OrgasmDecided: If StringClean.Contains("@InterruptStartStroking") Then ssh.isLink = False + ssh.BeforeTease = False If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then StringClean = "Ask me later" GoTo VTSkip @@ -10916,6 +10933,7 @@ OrgasmDecided: If StringClean.Contains("@Interrupt(") Then ssh.isLink = False + ssh.BeforeTease = False Dim InterruptClean As String = StringClean Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 For i As Integer = 1 To StartIndex @@ -11327,20 +11345,9 @@ OrgasmDecided: ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag Dim AudioClean As String - If AudioFlag.Contains(":\") And Not AudioFlag.Contains("*") Then + If AudioFlag.Contains(":\") Then AudioClean = AudioFlag - - If File.Exists(AudioClean) Then - DomWMP.URL = AudioClean - Else - MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - - GoTo ExternalAudio - Else - AudioClean = Application.StartupPath & "\Audio\" & AudioFlag AudioClean = AudioClean.Replace("\\", "\") End If @@ -11791,6 +11798,7 @@ ExternalAudio: ssh.AddContactTick = 2 Contact1Timer.Start() End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) StringClean = StringClean.Replace("@AddContact1", "") End If @@ -11812,6 +11820,7 @@ ExternalAudio: ssh.AddContactTick = 2 Contact2Timer.Start() End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) StringClean = StringClean.Replace("@AddContact2", "") End If @@ -11833,6 +11842,7 @@ ExternalAudio: ssh.AddContactTick = 2 Contact3Timer.Start() End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) StringClean = StringClean.Replace("@AddContact3", "") End If @@ -12119,11 +12129,16 @@ VTSkip: If StringClean.Contains("@CallReturn(") Then + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CallReplace As String = CheckFlag + + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") + GetSubState() ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) ssh.YesOrNo = False GotoClear() - StrokeTimer.Stop() StrokeTauntTimer.Stop() CensorshipTimer.Stop() @@ -12153,9 +12168,6 @@ VTSkip: ssh.SubHoldingEdge = False End If - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag - If CheckFlag.Contains("*") Then Dim checkArray() As String = CheckFlag.Split("*") CheckFlag = checkArray(0) @@ -12198,7 +12210,8 @@ VTSkip: End If ssh.ScriptTick = 2 ScriptTimer.Start() - + ssh.ShowModule = True + ssh.isLink = False StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") End If @@ -12206,6 +12219,9 @@ VTSkip: If StringClean.Contains("@Call(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") + Dim CallReplace As String = CheckFlag ssh.MultiTauntPictureHold = False @@ -12227,15 +12243,20 @@ VTSkip: ssh.StrokeTauntVal = -1 End If - + ssh.ShowModule = True + ssh.isLink = False + ssh.ScriptTick = 2 + ScriptTimer.Start() StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") - End If If StringClean.Contains("@CallRandom(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") + Dim CallReplace As String = CheckFlag If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then @@ -12257,6 +12278,10 @@ VTSkip: ssh.StrokeTauntVal = -1 End If End If + ssh.ShowModule = True + ssh.isLink = False + ssh.ScriptTick = 2 + ScriptTimer.Start() StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") End If @@ -14949,6 +14974,7 @@ NoPlaylistModuleFile: ssh.StrokeTauntVal = -1 If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False ssh.isLink = True + ssh.ShowModule = True Debug.Print("RunLinkScript() Called") ssh.FirstRound = False ClearModes() @@ -17490,7 +17516,7 @@ restartInstantly: If Not IsNothing(ssh.domAvatarImage) Then domAvatar.Image = ssh.domAvatarImage If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ FrmSettings.LockOrgasmChances(True) - + ScriptTimer.Start() Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors @@ -20670,18 +20696,26 @@ playLoop: 'DomTask = "Get back to stroking @StartStroking" ssh.DomTask = "#Return_Stroking" End If + If Not ssh.ShowModule Then + StrokeTimer.Start() + StrokeTauntTimer.Start() + End If Else ssh.DomTask = "@NullResponse" + ScriptTimer.Start() + ssh.ScriptTick = 2 End If TypingDelayGeneric() - If Not ssh.ShowModule Then - StrokeTimer.Start() - StrokeTauntTimer.Start() - End If Else - If Not ssh.ShowModule Then - StrokeTimer.Start() - StrokeTauntTimer.Start() + If ssh.CallReturns.Count() = 0 Then + If Not ssh.ShowModule Then + StrokeTimer.Start() + StrokeTauntTimer.Start() + End If + Else + ssh.DomTask = "@NullResponse" + ssh.ScriptTick = 2 + ScriptTimer.Start() End If End If ElseIf ssh.ReturnSubState = "Edging" Then @@ -20718,7 +20752,6 @@ playLoop: ssh.DomTypeCheck = True ssh.ScriptTick = 2 ScriptTimer.Start() - ssh.ShowModule = True If ssh.YesOrNo Then ssh.DomTask = "#SYS_ReturnAnswer" Else @@ -20837,37 +20870,6 @@ playLoop: If StringClean.Contains(":\") Then VideoClean = StringClean - - If File.Exists(VideoClean) Then - DomWMP.URL = VideoClean - DomWMP.Visible = True - mainPictureBox.Visible = False - ssh.TeaseVideo = True - - If ssh.JumpVideo = True Then - - Do - Application.DoEvents() - Loop Until (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) - - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - - End If - - ssh.JumpVideo = False - - Else - MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - - GoTo ExternalVideo - Else VideoClean = Application.StartupPath & "\Video\" & StringClean VideoClean = VideoClean.Replace("\\", "\") @@ -21045,7 +21047,7 @@ ExternalVideo: Private Function checkForImage(ImageToShow As String, Optional imageDir As String = "") As String Dim tmpImgLoc As String = "" Dim throwException As Boolean = False - If imageDir = "" Then + If imageDir = "" And Not (ImageToShow.Contains(":\") Or ImageToShow.Contains(":/")) Then imageDir = Application.StartupPath & "\Images\" throwException = True End If diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 3ac455e..806f02e 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -31,6 +31,7 @@ Partial Class FrmSettings Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label170 = New System.Windows.Forms.Label() Me.RandomHonorific = New System.Windows.Forms.TextBox() Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() Me.CBRandomDomme = New System.Windows.Forms.CheckBox() @@ -1142,7 +1143,8 @@ Partial Class FrmSettings Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() - Me.Label170 = New System.Windows.Forms.Label() + Me.GroupBox14 = New System.Windows.Forms.GroupBox() + Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() Me.SettingsPanel.SuspendLayout() Me.SettingsTabs.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -1408,6 +1410,7 @@ Partial Class FrmSettings Me.GroupBox65.SuspendLayout() CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox14.SuspendLayout() Me.SuspendLayout() ' 'SettingsPanel @@ -1512,6 +1515,15 @@ Partial Class FrmSettings Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Random Domme" ' + 'Label170 + ' + Me.Label170.Location = New System.Drawing.Point(7, 95) + Me.Label170.Name = "Label170" + Me.Label170.Size = New System.Drawing.Size(59, 18) + Me.Label170.TabIndex = 28 + Me.Label170.Text = "Honorific" + Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' 'RandomHonorific ' Me.RandomHonorific.BackColor = System.Drawing.Color.White @@ -9727,6 +9739,7 @@ Partial Class FrmSettings 'PNLGlitter ' Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray + Me.PNLGlitter.Controls.Add(Me.GroupBox14) Me.PNLGlitter.Controls.Add(Me.GroupBox4) Me.PNLGlitter.Controls.Add(Me.Button15) Me.PNLGlitter.Controls.Add(Me.Button16) @@ -15205,14 +15218,30 @@ Partial Class FrmSettings Me.BWURLFiles.WorkerReportsProgress = True Me.BWURLFiles.WorkerSupportsCancellation = True ' - 'Label170 - ' - Me.Label170.Location = New System.Drawing.Point(7, 95) - Me.Label170.Name = "Label170" - Me.Label170.Size = New System.Drawing.Size(59, 18) - Me.Label170.TabIndex = 28 - Me.Label170.Text = "Honorific" - Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 'GroupBox14 + ' + Me.GroupBox14.BackColor = System.Drawing.Color.LightGray + Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) + Me.GroupBox14.Location = New System.Drawing.Point(364, 315) + Me.GroupBox14.Name = "GroupBox14" + Me.GroupBox14.Size = New System.Drawing.Size(297, 77) + Me.GroupBox14.TabIndex = 182 + Me.GroupBox14.TabStop = False + Me.GroupBox14.Text = "General Contact Settings" + ' + 'alwaysNewSlideshow + ' + Me.alwaysNewSlideshow.AutoSize = True + Me.alwaysNewSlideshow.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 + Me.alwaysNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked + Me.alwaysNewSlideshow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black + Me.alwaysNewSlideshow.Location = New System.Drawing.Point(6, 33) + Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" + Me.alwaysNewSlideshow.Size = New System.Drawing.Size(281, 17) + Me.alwaysNewSlideshow.TabIndex = 151 + Me.alwaysNewSlideshow.Text = "Always load new slideshow when using @AddContact" + Me.alwaysNewSlideshow.UseVisualStyleBackColor = True ' 'FrmSettings ' @@ -15573,6 +15602,8 @@ Partial Class FrmSettings Me.GroupBox65.PerformLayout() CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox14.ResumeLayout(False) + Me.GroupBox14.PerformLayout() Me.ResumeLayout(False) End Sub @@ -16695,4 +16726,6 @@ Partial Class FrmSettings Friend WithEvents Label168 As Label Friend WithEvents Label169 As Label Friend WithEvents Label170 As Label + Friend WithEvents GroupBox14 As GroupBox + Friend WithEvents alwaysNewSlideshow As CheckBox End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index c1f9f04..ff6a301 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -414,6 +414,7 @@ Public Class FrmSettings CFNMCheckBox.Checked = My.Settings.DomCFNM CBRandomDomme.Checked = My.Settings.CBRandomDomme CBOutputErrors.Checked = My.Settings.CBOutputErrors + alwaysNewSlideshow.Checked = My.Settings.AlwaysNewSlideshow giveupCheckBox.Checked = My.Settings.GiveUpReturn If CBAuditStartup.Checked = True Then AuditScripts() @@ -10358,6 +10359,10 @@ checkFolder: My.Settings.CBOutputErrors = CBOutputErrors.Checked End Sub + Private Sub alwaysNewSlideshow_CheckedChanged(sender As Object, e As EventArgs) Handles alwaysNewSlideshow.CheckedChanged + My.Settings.AlwaysNewSlideshow = alwaysNewSlideshow.Checked + End Sub + Private Sub BTNURLFileReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFileReplace.Click If TBURLFileReplace.Text = "" Or TBURLFileWith.Text = "" Then @@ -10468,4 +10473,5 @@ checkFolder: End Sub + End Class \ No newline at end of file diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index bc92bac..dba02e5 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -5855,19 +5855,31 @@ Namespace My Me("CBRandomDomme") = value End Set End Property - - _ - Public Property CBOutputErrors() As Boolean - Get - Return CType(Me("CBOutputErrors"),Boolean) - End Get - Set - Me("CBOutputErrors") = value - End Set - End Property - End Class + + + Public Property CBOutputErrors() As Boolean + Get + Return CType(Me("CBOutputErrors"), Boolean) + End Get + Set + Me("CBOutputErrors") = value + End Set + End Property + + + Public Property AlwaysNewSlideshow() As Boolean + Get + Return CType(Me("AlwaysNewSlideshow"), Boolean) + End Get + Set + Me("AlwaysNewSlideshow") = Value + End Set + End Property + End Class End Namespace Namespace My From 4375dd06ac765a11ae07eb8e7cb92fe45486e61f Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 30 Apr 2017 00:07:05 +0200 Subject: [PATCH 086/143] fixed a very small bug in followup that was causing, sometimes in very complex followUp to leave behind a ). This gets now deleted from the string to show the correct followUp fixed a very small bug dealing with converting #vocabs to words. If in a phrase there were two instances of the same #vocab it would mess up...now it works --- Tease AI/Form1.vb | 70 +++++++++++++++++++++++++---------------------- 1 file changed, 38 insertions(+), 32 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 833d1f4..94f5108 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8174,52 +8174,54 @@ StatusUpdateEnd: If StringClean.Contains("@CustomMode(") Then controlCustom = GetParentheses(StringClean, "@CustomMode(") End If - ' Try to get content from file. + ' Try to get content from file but avoid changing twice the same vocab if it is present in more than one istance in the regex + Dim lastKey As String = "emptyString" For Each keyword As Match In mc + If Not lastKey.Equals(keyword.ToString) Then #If TRACE Then - If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) + If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) #End If - Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" + Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" - If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then - Dim lines As List(Of String) = Txt2List(filepath) + If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then + Dim lines As List(Of String) = Txt2List(filepath) - lines = FilterList(lines) - If controlCustom.Contains(keyword.ToString) Then customVocabLines = lines - If lines.Count > 0 Then + lines = FilterList(lines) + If controlCustom.Contains(keyword.ToString) Then customVocabLines = lines + If lines.Count > 0 Then - Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) - StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - Else - If My.Settings.CBOutputErrors = True Then - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") Else - StringClean = StringClean.Replace(keyword.Value, "") + If My.Settings.CBOutputErrors = True Then + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + Else + StringClean = StringClean.Replace(keyword.Value, "") + End If End If - End If - 'Try - 'lines = FilterList(lines) - 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) - 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - 'Catch ex As Exception - 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, - ' "Tease AI did not return a valid line while parsing vocabulary file.") - 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value - 'End Try + 'Try + 'lines = FilterList(lines) + 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + 'Catch ex As Exception + 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + ' "Tease AI did not return a valid line while parsing vocabulary file.") + 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value + 'End Try - Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + Else + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + End If End If - - + lastKey = keyword.ToString Next #If TRACE Then @@ -8267,7 +8269,9 @@ StatusUpdateEnd: If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Length - 1) + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") End If @@ -8290,7 +8294,9 @@ StatusUpdateEnd: ssh.TempVal = ssh.randomizer.Next(1, 101) Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Length - 1) + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If FollowLineTemp.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.Length - 1, 1) If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp From 1828db9fdc97efd31346f23d2b06e073da4fc557 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 30 Apr 2017 15:35:10 +0200 Subject: [PATCH 087/143] contactData.new() now will load the contact imagefolder right away instead of waiting for the first imagecall (this prevent some out of argument exceptions when dealing with filters trying to filter out a slideshow that wasn't loaded yet) small fix to updateDommeName that was not actually updating the checkedstring (now the function uses a Byval parameter) --- Tease AI/Classes/ContactData.vb | 1 + Tease AI/Form1.vb | 201 ++++++++++++++------------------ 2 files changed, 88 insertions(+), 114 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index fddd611..5421f6f 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -119,6 +119,7 @@ Public Class ContactData Sub New(ByVal type As ContactType) Contact = type Check_ImageDir(type) + CheckInit() End Sub ''' diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 94f5108..b8bef7e 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -12901,35 +12901,6 @@ VTSkip: StringClean = StringClean.Replace("@CheckStrokingState", "") End If - 'The @SetGroup Command is a defunct Command that was created when implementing new Glitter features. It has no use in the current build of Tease AI. - - If StringClean.Contains("@SetGroup(") Then - - Dim WF As String = UCase(GetParentheses(StringClean, "@SetGroup(")) - - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D1" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D12" - If WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D13" - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D23" - If WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D123" - - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "1" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "12" - If Not WF.Contains("D") And WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "123" - - If WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "D2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And Not WF.Contains("3") Then ssh.Group = "2" - If Not WF.Contains("D") And Not WF.Contains("1") And WF.Contains("2") And WF.Contains("3") Then ssh.Group = "23" - - If WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "D3" - If Not WF.Contains("D") And Not WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "3" - If Not WF.Contains("D") And WF.Contains("1") And Not WF.Contains("2") And WF.Contains("3") Then ssh.Group = "13" - - StringClean = StringClean.Replace("@SetGroup(" & WF & ")", "") - - End If - Debug.Print("Command Clean Complete") Return StringClean @@ -13420,7 +13391,7 @@ VTSkip: Public Function GetLocalImage(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" If isDommeTag Then - fileToCheck = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" + fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" End If 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. @@ -13462,7 +13433,7 @@ VTSkip: PicDir = PicDir & PicArray(p) & " " If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For Next - If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & PicDir + If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir Return PicDir Else @@ -13476,7 +13447,7 @@ VTSkip: Public Function GetLocalImageOr(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" If isDommeTag Then - fileToCheck = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" + fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" End If If File.Exists(fileToCheck) Then @@ -13515,7 +13486,7 @@ VTSkip: PicDir = PicDir & PicArray(p) & " " If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For Next - If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.SlideshowMain.CurrentImage) & Path.DirectorySeparatorChar & PicDir + If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir Return PicDir Else @@ -13688,16 +13659,88 @@ VTSkip: End If If Linear = False Then - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Commands to sort out - ' This Section contains @Commands, which are able to disqualify vocabulary lines. - ' - ' Example-line: "Whatever Text to display @DommeTag(Glaring)" - ' - ' This line has to be sorted out, if there are no corresponding images tagged - ' with "glaring". - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If FilterString.Includes("@DommeTag(") Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Commands to sort out + ' This Section contains @Commands, which are able to disqualify vocabulary lines. + ' + ' Example-line: "Whatever Text to display @DommeTag(Glaring)" + ' + ' This line has to be sorted out, if there are no corresponding images tagged + ' with "glaring". + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + If FilterString.Contains("@Flag(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@Flag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If Not FlagExists(s) Then + Return False + End If + Next + End If + + If FilterString.Contains("@NotFlag(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@NotFlag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If FlagExists(s) Then + Return False + End If + Next + End If + + If FilterString.Contains("@FlagOr(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@FlagOr(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + Dim result As Boolean = False + For Each s In splitFlag + If FlagExists(s) Then + result = True + Exit For + End If + Next + If Not result Then Return False + End If + + If FilterString.Contains("@Variable[") Then + If CheckVariable(FilterString) = False Then Return False + End If + + If FilterString.Contains("@Group(") Then + Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") + Dim grouparray() As String = GroupCheck.Split(",") + Dim b As Boolean = False + For i As Integer = 0 To grouparray.Length - 1 + If grouparray(i) = ssh.Group Then + b = True + Exit For + End If + Next + If b = False Then Return False + ' If GroupCheck.Contains("D") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False + 'End If + ' If GroupCheck.Contains("1") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + 'End If + ' If GroupCheck.Contains("2") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + ' End If + ' If GroupCheck.Contains("3") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + 'End If + End If + + If FilterString.Includes("@DommeTag(") Then If ssh.LockImage = True Then Return False Else @@ -13841,76 +13884,6 @@ VTSkip: If FilterString.Contains("@RuinsOrgasm(") Then If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False Then Return False End If - If FilterString.Contains("@Variable[") Then - If CheckVariable(FilterString) = False Then Return False - End If - - If FilterString.Contains("@Group(") Then - Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") - Dim grouparray() As String = GroupCheck.Split(",") - Dim b As Boolean = False - For i As Integer = 0 To grouparray.Length - 1 - If grouparray(i) = ssh.Group Then - b = True - Exit For - End If - Next - If b = False Then Return False - ' If GroupCheck.Contains("D") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False - 'End If - ' If GroupCheck.Contains("1") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - 'End If - ' If GroupCheck.Contains("2") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - ' End If - ' If GroupCheck.Contains("3") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - 'End If - End If - - If FilterString.Contains("@Flag(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@Flag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - For Each s In splitFlag - If Not FlagExists(s) Then - Return False - End If - Next - End If - - If FilterString.Contains("@NotFlag(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - For Each s In splitFlag - If FlagExists(s) Then - Return False - End If - Next - End If - - If FilterString.Contains("@FlagOr(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@FlagOr(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - Dim result As Boolean = False - For Each s In splitFlag - If FlagExists(s) Then - result = True - Exit For - End If - Next - If Not result Then Return False - End If If FilterString.Contains("@CheckDate(") And Linear = False Then If CheckDateList(FilterString) = False Then Return False @@ -20793,7 +20766,7 @@ playLoop: End Sub - Private Function updateDommeName(stringToCheck As String) + Private Function updateDommeName(ByVal stringToCheck As String) 'remove eventual @ContactX present in a @FollowUp() inside the line If stringToCheck.Contains("@FollowUp") Then Dim remove As String From 95cbaed60bdcc9c819cefa9bb72e95d48f2af35b Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 30 Apr 2017 18:16:53 +0200 Subject: [PATCH 088/143] commented out from the contact/domme timers and from the addContact/domme and removeContact/domme all the parts related to ssh.AddContactTick...i could not see any use of that, honestly apart for slowing down everything and, in some cases, when rapidcode was turned on especially, causing issues with removal of a contact being executed before adding another contact (even if the command were used in correct order, first add then remove) --- Tease AI/Form1.vb | 58 +++++++++++++++++++++++------------------------ 1 file changed, 29 insertions(+), 29 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index b8bef7e..bc5d9d3 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8396,17 +8396,17 @@ RinseLatherRepeat: End If If StringClean.Contains("@NewContact1Slideshow") Then - If ssh.contact1Present Then ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) + If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@NewContact1Slideshow", "") End If If StringClean.Contains("@NewContact2Slideshow") Then - If ssh.contact2Present Then ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) + If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@NewContact2Slideshow", "") End If If StringClean.Contains("@NewContact3Slideshow") Then - If ssh.contact3Present Then ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) + If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@NewContact3Slideshow", "") End If @@ -11801,10 +11801,10 @@ ExternalAudio: If Not ssh.contact1Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) ssh.contact1Present = True - ssh.AddContactTick = 2 + 'ssh.AddContactTick = 2 Contact1Timer.Start() End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@AddContact1", "") End If @@ -11813,7 +11813,7 @@ ExternalAudio: If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) ssh.contact1Present = False - ssh.AddContactTick = 2 + 'ssh.AddContactTick = 2 Contact1Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact1", "") @@ -11823,10 +11823,10 @@ ExternalAudio: If Not ssh.contact2Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) ssh.contact2Present = True - ssh.AddContactTick = 2 + 'ssh.AddContactTick = 2 Contact2Timer.Start() End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@AddContact2", "") End If @@ -11845,10 +11845,10 @@ ExternalAudio: If Not ssh.contact3Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) ssh.contact3Present = True - ssh.AddContactTick = 2 + 'ssh.AddContactTick = 2 Contact3Timer.Start() End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@AddContact3", "") End If @@ -11857,7 +11857,7 @@ ExternalAudio: If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) ssh.contact3Present = False - ssh.AddContactTick = 2 + 'ssh.AddContactTick = 2 Contact3Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact3", "") @@ -11867,7 +11867,7 @@ ExternalAudio: If Not ssh.dommePresent Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) ssh.dommePresent = True - ssh.AddContactTick = 2 + 'ssh.AddContactTick = 2 DommeTimer.Start() End If StringClean = StringClean.Replace("@AddDomme", "") @@ -11879,7 +11879,7 @@ ExternalAudio: If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) ssh.dommePresent = False - ssh.AddContactTick = 2 + 'ssh.AddContactTick = 2 DommeTimer.Start() End If StringClean = StringClean.Replace("@RemoveDomme", "") @@ -17262,10 +17262,10 @@ restartInstantly: Private Sub Contact1Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact1Timer.Tick - ssh.AddContactTick -= 1 + ' ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact1Timer.Stop() + ' If ssh.AddContactTick < 1 Then + Contact1Timer.Stop() If Not ssh.Group.Contains("1") Then ssh.Group = ssh.Group & "1" ssh.GlitterTease = True @@ -17275,16 +17275,16 @@ restartInstantly: If ssh.Group = "D" Then ssh.GlitterTease = False ChatAddSystemMessage(My.Settings.Glitter1 & " has left the Chat room") End If - End If + ' End If End Sub Private Sub Contact2Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact2Timer.Tick - ssh.AddContactTick -= 1 + ' ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact2Timer.Stop() + ' If ssh.AddContactTick < 1 Then + Contact2Timer.Stop() If Not ssh.Group.Contains("2") Then ssh.Group = ssh.Group & "2" ssh.GlitterTease = True @@ -17294,16 +17294,16 @@ restartInstantly: If ssh.Group = "D" Then ssh.GlitterTease = False ChatAddSystemMessage(My.Settings.Glitter2 & " has left the Chat room") End If - End If + ' End If End Sub Private Sub Contact3Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact3Timer.Tick - ssh.AddContactTick -= 1 + ' ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - Contact3Timer.Stop() + ' If ssh.AddContactTick < 1 Then + Contact3Timer.Stop() If Not ssh.Group.Contains("3") Then ssh.Group = ssh.Group & "3" ssh.GlitterTease = True @@ -17313,7 +17313,7 @@ restartInstantly: If ssh.Group = "D" Then ssh.GlitterTease = False ChatAddSystemMessage(My.Settings.Glitter3 & " has left the Chat room") End If - End If + ' End If End Sub @@ -17321,10 +17321,10 @@ restartInstantly: Private Sub DommeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles DommeTimer.Tick - ssh.AddContactTick -= 1 + ' ssh.AddContactTick -= 1 - If ssh.AddContactTick < 1 Then - DommeTimer.Stop() + ' If ssh.AddContactTick < 1 Then + DommeTimer.Stop() If Not ssh.Group.Contains("D") Then ssh.Group = ssh.Group & "D" If ssh.Group = "D" Then ssh.GlitterTease = False @@ -17334,7 +17334,7 @@ restartInstantly: ssh.GlitterTease = True ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has left the Chat room") End If - End If + ' End If End Sub From 7a2a756cceb52aa786a3f82ec45be471f0266c29 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Sun, 30 Apr 2017 21:10:36 +0200 Subject: [PATCH 089/143] fixed a problem with not all filters being checked when present in a script (for example @Variable[]) by changing If GetFilter(lines(line),false) = False to If GetFilter(lines(line)) = False in the handlescript() sub. Moved @IF[] check upwards in poundclean to make it be checked first when present in the same line with a @ChangeVar[] command --- Tease AI/Form1.vb | 167 +++++++++++++++++++++++----------------------- 1 file changed, 83 insertions(+), 84 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index bc5d9d3..034a558 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4027,7 +4027,7 @@ ModuleEnd: Debug.Print("CHeck") - If GetFilter(lines(line), True) = False Then + If GetFilter(lines(line)) = False Then RunFileText() Return End If @@ -4809,6 +4809,7 @@ NullResponse: ssh.DomTask = ssh.DomTask.Replace("#Null", "") ssh.DomTask = PoundClean(ssh.DomTask) If ssh.DomTask.Contains("@EmoteMessage") Then ssh.EmoMes = True + If ssh.DomTask.Contains("@SystemMessage") Then ssh.SysMes = True ssh.DomTask = CommandClean(ssh.DomTask) ssh.DomTask = StripCommands(ssh.DomTask) ssh.DomTask = ssh.DomTask.Replace("#Null", "") @@ -8267,7 +8268,6 @@ StatusUpdateEnd: GoTo TaskCleanSet End If - If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it @@ -8303,6 +8303,87 @@ StatusUpdateEnd: StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") End If + ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) + ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. + ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> + ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. + + If StringClean.Contains("@If[") Then + + Do + + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" + + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") + End If + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) + Do + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") + Exit For + End If + Next + + If SCGotVar.Contains("]And[") Then + + Dim AndCheck As Boolean = True + + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next + + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If + + ElseIf SCGotVar.Contains("]Or[") Then + + Dim OrCheck As Boolean = False + + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next + + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If + + Else + + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If + + End If + + Loop Until Not StringClean.Contains("@If") + + End If RinseLatherRepeat: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -9772,88 +9853,6 @@ TaskCleanSet: End If - ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) - ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. - ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> - ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - - If StringClean.Contains("@If[") Then - - Do - - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" - - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") - End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) - Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For - End If - Next - - If SCGotVar.Contains("]And[") Then - - Dim AndCheck As Boolean = True - - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") - Next - - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If - - ElseIf SCGotVar.Contains("]Or[") Then - - Dim OrCheck As Boolean = False - - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next - - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If - - Else - - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If - - End If - - Loop Until Not StringClean.Contains("@If") - - End If - ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next From d6f257c4537c4dfb14e10f0d5a77959ad3a564d5 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 1 May 2017 02:18:34 +0200 Subject: [PATCH 090/143] @TimeOut() can now be used with #Vocabs (and filters too) to determine the time needed to trigger it fixed a bug that was causing @SystemMessage to be ignored if it was present in a #Vocab in some occasions --- Tease AI/Form1.vb | 6704 +++++++++++++++++++++++---------------------- 1 file changed, 3360 insertions(+), 3344 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 034a558..bf5cb1c 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8263,19 +8263,23 @@ StatusUpdateEnd: Debug.Print("Stringclean Intro = " & StringClean) + Dim commandsList() As String = StringClean.Split("@") + ' For num As Integer = 1 To commandsList.Count - 1 + ' GoTo goingTo(commandlist(num)) If TaskClean = True Then Debug.Print("Tasks CommandClean") GoTo TaskCleanSet End If - +followUp: If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + ' Continue For End If - +followUpXX: If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then Dim FollowTemp As String @@ -8301,7 +8305,7 @@ StatusUpdateEnd: If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - + 'Continue For End If ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. @@ -8310,2826 +8314,2749 @@ StatusUpdateEnd: If StringClean.Contains("@If[") Then - Do - - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" + Do - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" + + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") + End If + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") + Exit For End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) - Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For - End If - Next + Next - If SCGotVar.Contains("]And[") Then + If SCGotVar.Contains("]And[") Then - Dim AndCheck As Boolean = True + Dim AndCheck As Boolean = True - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False - Exit For + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next + + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") - Next - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + ElseIf SCGotVar.Contains("]Or[") Then + + Dim OrCheck As Boolean = False - ElseIf SCGotVar.Contains("]Or[") Then + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next + + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - Dim OrCheck As Boolean = False + Else - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() End If - Else + Loop Until Not StringClean.Contains("@If") - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + End If +RinseLatherRepeat: + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' ImageCommands + ' - Make sure you call all Display ImageFunctions before executing @LockImages. + ' If you don't, FilterList() will return a wrong list of lines => + ' => The Domme is talking about an image, but she never showed one. + ' => She is talking about an new image, but never showed one. + ' - Call @DeleteLocalImage before you start to display a new Image, because they + ' are loaded and displayed async. Otherwise it will delete the wrong image! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, + ' LiskedList, DislikedList and LocalImageTagList, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteLocalImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(True) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", + ex, "@DeleteLocalImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + End Try End If + StringClean = StringClean.Replace("@DeleteLocalImage", "") + End If - Loop Until Not StringClean.Contains("@If") + ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, + ' DislikedList, LocalImageTagList and URL-Files, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(False) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteImage was unable to delete the image.", + ex, "@DeleteImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + End Try + End If + StringClean = StringClean.Replace("@DeleteImage", "") + End If - End If + ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. + If StringClean.Contains("@UnlockImages") Then + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.LockImage = False + StringClean = StringClean.Replace("@UnlockImages", "") + End If -RinseLatherRepeat: - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' ImageCommands - ' - Make sure you call all Display ImageFunctions before executing @LockImages. - ' If you don't, FilterList() will return a wrong list of lines => - ' => The Domme is talking about an image, but she never showed one. - ' => She is talking about an new image, but never showed one. - ' - Call @DeleteLocalImage before you start to display a new Image, because they - ' are loaded and displayed async. Otherwise it will delete the wrong image! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If StringClean.Contains("@DommeTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImage(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") + End If - ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, - ' LiskedList, DislikedList and LocalImageTagList, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteLocalImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(True) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", - ex, "@DeleteLocalImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) - End Try + If StringClean.Contains("@DommeTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") End If - StringClean = StringClean.Replace("@DeleteLocalImage", "") - End If - ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, - ' DislikedList, LocalImageTagList and URL-Files, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(False) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteImage was unable to delete the image.", - ex, "@DeleteImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) - End Try + If StringClean.Contains("@NewDommeSlideshow") Then + 'TODO: Add Support for contact slideshows. + ssh.newSlideshow = True + LoadDommeImageFolder() + StringClean = StringClean.Replace("@NewDommeSlideshow", "") End If - StringClean = StringClean.Replace("@DeleteImage", "") - End If - ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. - If StringClean.Contains("@UnlockImages") Then - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + If StringClean.Contains("@NewContact1Slideshow") Then + If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) + StringClean = StringClean.Replace("@NewContact1Slideshow", "") End If - ssh.LockImage = False - StringClean = StringClean.Replace("@UnlockImages", "") - End If - If StringClean.Contains("@DommeTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImage(TagFlag, True) - Else - ssh.DommeImageSTR = "" + If StringClean.Contains("@NewContact2Slideshow") Then + If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) + StringClean = StringClean.Replace("@NewContact2Slideshow", "") End If - ' Clean the Text. - StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") - End If - If StringClean.Contains("@DommeTagOr(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) - Else - ssh.DommeImageSTR = "" + If StringClean.Contains("@NewContact3Slideshow") Then + If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) + StringClean = StringClean.Replace("@NewContact3Slideshow", "") End If - ' Clean the Text. - StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") - End If - If StringClean.Contains("@NewDommeSlideshow") Then - 'TODO: Add Support for contact slideshows. - ssh.newSlideshow = True - LoadDommeImageFolder() - StringClean = StringClean.Replace("@NewDommeSlideshow", "") - End If + If StringClean.Contains("@DomTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImage(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If - If StringClean.Contains("@NewContact1Slideshow") Then - If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) - StringClean = StringClean.Replace("@NewContact1Slideshow", "") - End If + StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") + End If - If StringClean.Contains("@NewContact2Slideshow") Then - If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) - StringClean = StringClean.Replace("@NewContact2Slideshow", "") - End If + If StringClean.Contains("@DomTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If - If StringClean.Contains("@NewContact3Slideshow") Then - If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) - StringClean = StringClean.Replace("@NewContact3Slideshow", "") - End If + StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") + End If - If StringClean.Contains("@DomTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") - ' Try to get a Domme Image for the given Tags. - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImage(TagFlag, True) - Else - ssh.DommeImageSTR = "" + If StringClean.Contains("@ImageTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") + ShowImage(GetLocalImage(TagFlag), False) + StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") End If - StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") - End If + If StringClean.Contains("@ImageTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") + ShowImage(GetLocalImageOr(TagFlag), False) + StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") + End If - If StringClean.Contains("@DomTagOr(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") - ' Try to get a Domme Image for the given Tags. - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) - Else - ssh.DommeImageSTR = "" + If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then + ShowImage(GetRandomImage(), False) + StringClean = StringClean.Replace("@ShowImage", "") End If - StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") - End If + If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then + ShowImage(GetImageData(ImageGenre.Butt).Random(), False) - If StringClean.Contains("@ImageTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") - ShowImage(GetLocalImage(TagFlag), False) - StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") - End If + StringClean = StringClean.Replace("@ShowButtImage", "") + StringClean = StringClean.Replace("@ShowButtsImage", "") + End If - If StringClean.Contains("@ImageTagOr(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") - ShowImage(GetLocalImageOr(TagFlag), False) - StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") - End If + If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then + ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) - If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then - ShowImage(GetRandomImage(), False) - StringClean = StringClean.Replace("@ShowImage", "") - End If + StringClean = StringClean.Replace("@ShowBoobsImage", "") + StringClean = StringClean.Replace("@ShowBoobImage", "") + End If - If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then - ShowImage(GetImageData(ImageGenre.Butt).Random(), False) + If StringClean.Contains("@ShowHardcoreImage") Then + ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) + StringClean = StringClean.Replace("@ShowHardcoreImage", "") + End If - StringClean = StringClean.Replace("@ShowButtImage", "") - StringClean = StringClean.Replace("@ShowButtsImage", "") - End If + If StringClean.Contains("@ShowSoftcoreImage") Then + ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) + StringClean = StringClean.Replace("@ShowSoftcoreImage", "") + End If - If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then - ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) + If StringClean.Contains("@ShowLesbianImage") Then + ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) + StringClean = StringClean.Replace("@ShowLesbianImage", "") + End If - StringClean = StringClean.Replace("@ShowBoobsImage", "") - StringClean = StringClean.Replace("@ShowBoobImage", "") - End If + If StringClean.Contains("@ShowBlowjobImage") Then + ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) + StringClean = StringClean.Replace("@ShowBlowjobImage", "") + End If - If StringClean.Contains("@ShowHardcoreImage") Then - ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) - StringClean = StringClean.Replace("@ShowHardcoreImage", "") - End If + If StringClean.Contains("@ShowFemdomImage") Then + ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) + StringClean = StringClean.Replace("@ShowFemdomImage", "") + End If - If StringClean.Contains("@ShowSoftcoreImage") Then - ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) - StringClean = StringClean.Replace("@ShowSoftcoreImage", "") - End If + If StringClean.Contains("@ShowLezdomImage") Then + ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) + StringClean = StringClean.Replace("@ShowLezdomImage", "") + End If - If StringClean.Contains("@ShowLesbianImage") Then - ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) - StringClean = StringClean.Replace("@ShowLesbianImage", "") - End If + If StringClean.Contains("@ShowHentaiImage") Then + ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) + StringClean = StringClean.Replace("@ShowHentaiImage", "") + End If - If StringClean.Contains("@ShowBlowjobImage") Then - ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) - StringClean = StringClean.Replace("@ShowBlowjobImage", "") - End If + If StringClean.Contains("@ShowGayImage") Then + ShowImage(GetImageData(ImageGenre.Gay).Random(), False) + StringClean = StringClean.Replace("@ShowGayImage", "") + End If - If StringClean.Contains("@ShowFemdomImage") Then - ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) - StringClean = StringClean.Replace("@ShowFemdomImage", "") - End If + If StringClean.Contains("@ShowMaledomImage") Then + ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) + StringClean = StringClean.Replace("@ShowMaledomImage", "") + End If - If StringClean.Contains("@ShowLezdomImage") Then - ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) - StringClean = StringClean.Replace("@ShowLezdomImage", "") - End If + If StringClean.Contains("@ShowCaptionsImage") Then + ShowImage(GetImageData(ImageGenre.Captions).Random(), False) + StringClean = StringClean.Replace("@ShowCaptionsImage", "") + End If - If StringClean.Contains("@ShowHentaiImage") Then - ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) - StringClean = StringClean.Replace("@ShowHentaiImage", "") - End If + If StringClean.Contains("@ShowGeneralImage") Then + ShowImage(GetImageData(ImageGenre.General).Random(), False) + StringClean = StringClean.Replace("@ShowGeneralImage", "") + End If - If StringClean.Contains("@ShowGayImage") Then - ShowImage(GetImageData(ImageGenre.Gay).Random(), False) - StringClean = StringClean.Replace("@ShowGayImage", "") - End If + If StringClean.Contains("@ShowLikedImage") Then + ShowImage(GetImageData(ImageGenre.Liked).Random(), False) + StringClean = StringClean.Replace("@ShowLikedImage", "") + End If - If StringClean.Contains("@ShowMaledomImage") Then - ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) - StringClean = StringClean.Replace("@ShowMaledomImage", "") - End If + If StringClean.Contains("@ShowDislikedImage") Then + ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) + StringClean = StringClean.Replace("@ShowDislikedImage", "") + End If - If StringClean.Contains("@ShowCaptionsImage") Then - ShowImage(GetImageData(ImageGenre.Captions).Random(), False) - StringClean = StringClean.Replace("@ShowCaptionsImage", "") - End If + If StringClean.Contains("@ShowBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@ShowBlogImage", "") + End If - If StringClean.Contains("@ShowGeneralImage") Then - ShowImage(GetImageData(ImageGenre.General).Random(), False) - StringClean = StringClean.Replace("@ShowGeneralImage", "") - End If + ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage + If StringClean.Contains("@NewBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@NewBlogImage", "") + End If - If StringClean.Contains("@ShowLikedImage") Then - ShowImage(GetImageData(ImageGenre.Liked).Random(), False) - StringClean = StringClean.Replace("@ShowLikedImage", "") - End If + If StringClean.Contains("@ShowLocalImage") And Not StringClean.Contains("@ShowLocalImage(") Then + ShowImage(GetRandomImage(ImageSourceType.Local), False) + StringClean = StringClean.Replace("@ShowLocalImage", "") + End If - If StringClean.Contains("@ShowDislikedImage") Then - ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) - StringClean = StringClean.Replace("@ShowDislikedImage", "") - End If + '=============================================================================== + ' @ShowLocalImage() + '=============================================================================== + If StringClean.Contains("@ShowLocalImage(") Then + Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") + LocalFlag = FixCommas(LocalFlag) + + Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList + + If LocalFlag.ToUpper.Contains("NOT") Then + ' =============== Invert the Content in Brackets =============== + ' Declare a String containing all available ImageGenres + Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" + + ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket + For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 + If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") + If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") + If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") + If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") + If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") + If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") + If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") + If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") + If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") + If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") + If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") + If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") + Next - If StringClean.Contains("@ShowBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@ShowBlogImage", "") - End If + ' Set the inverted Array. + tmpListGenre = CompareFlag.Split(", ").ToList + End If + + ' Pick a random entry from list + Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) + Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) + + ' generate a list of all available Local Images. This way it is most + ' likely, to get an image. + Dim tmpImageLocationList As New List(Of String) + + For Each tmpStr As String In tmpListGenre + If tmpStr.ToUpper.Contains("HARDCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("HENTAI") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GAY") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("CAPTION") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GENERAL") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) + End If + Next + ' Declare a string for the Image to show - initialize with error Image + Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" + ' If there are images, overwrite the error image. + If tmpImageLocationList.Count > 0 Then + tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) + Else + Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") + End If - ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage - If StringClean.Contains("@NewBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@NewBlogImage", "") - End If + ShowImage(tmpImgToShow, False) - If StringClean.Contains("@ShowLocalImage") And Not StringClean.Contains("@ShowLocalImage(") Then - ShowImage(GetRandomImage(ImageSourceType.Local), False) - StringClean = StringClean.Replace("@ShowLocalImage", "") - End If + StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") + End If + '---------------------------------------- + ' @ShowLocalImage()- End + '---------------------------------------- + '=============================================================================== + ' @ShowTaggedImage + '=============================================================================== + If StringClean.Contains("@ShowTaggedImage") Then + Dim Tags As List(Of String) = StringClean.Split() _ + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - '=============================================================================== - ' @ShowLocalImage() - '=============================================================================== - If StringClean.Contains("@ShowLocalImage(") Then - Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") - LocalFlag = FixCommas(LocalFlag) - - Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList - - If LocalFlag.ToUpper.Contains("NOT") Then - ' =============== Invert the Content in Brackets =============== - ' Declare a String containing all available ImageGenres - Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" - - ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket - For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 - If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") - If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") - If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") - If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") - If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") - If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") - If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") - If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") - If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") - If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") - If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") - If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") - Next + Dim FoundString As String = GetLocalImage(Tags, Nothing) - ' Set the inverted Array. - tmpListGenre = CompareFlag.Split(", ").ToList - End If - - ' Pick a random entry from list - Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) - Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) - - ' generate a list of all available Local Images. This way it is most - ' likely, to get an image. - Dim tmpImageLocationList As New List(Of String) - - For Each tmpStr As String In tmpListGenre - If tmpStr.ToUpper.Contains("HARDCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("HENTAI") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GAY") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("CAPTION") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GENERAL") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) - End If - Next - ' Declare a string for the Image to show - initialize with error Image - Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" - ' If there are images, overwrite the error image. - If tmpImageLocationList.Count > 0 Then - tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) - Else - Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") + 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. + If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages + + ssh.JustShowedBlogImage = True + ShowImage(FoundString, False) + + Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) + StringClean = StringClean.Replace("@ShowTaggedImage", "") + End If + '---------------------------------------- + ' @ShowTaggedImage - End + '---------------------------------------- + '=============================================================================== + ' @ShowImage[] + '=============================================================================== + If StringClean.Contains("@ShowImage[") Then + Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") + ShowImage(checkForImage(ImageToShow), False) + StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") End If + '---------------------------------------- + ' @ShowImage[]- End + '---------------------------------------- + '=============================================================================== + ' Legacy TnA-Slideshow + '=============================================================================== + ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. + ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. + ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. + ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. - ShowImage(tmpImgToShow, False) + If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then + If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 + If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 + If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 - StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") - End If - '---------------------------------------- - ' @ShowLocalImage()- End - '---------------------------------------- - '=============================================================================== - ' @ShowTaggedImage - '=============================================================================== - If StringClean.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = StringClean.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + Try + ssh.BoobList.Clear() + ssh.AssList.Clear() - Dim FoundString As String = GetLocalImage(Tags, Nothing) + If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList + If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList - 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. - If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") - ssh.JustShowedBlogImage = True - ShowImage(FoundString, False) + TnASlides.Start() + Catch ex As Exception + Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & + ex.Message, ex, "CommandClean()") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) + End Try - Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) - StringClean = StringClean.Replace("@ShowTaggedImage", "") - End If - '---------------------------------------- - ' @ShowTaggedImage - End - '---------------------------------------- - '=============================================================================== - ' @ShowImage[] - '=============================================================================== - If StringClean.Contains("@ShowImage[") Then - Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") - ShowImage(checkForImage(ImageToShow), False) - StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") - End If - '---------------------------------------- - ' @ShowImage[]- End - '---------------------------------------- - '=============================================================================== - ' Legacy TnA-Slideshow - '=============================================================================== - ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. - ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. - ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. - ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. + StringClean = StringClean.Replace("@TnAFastSlides", "") + StringClean = StringClean.Replace("@TnASlowSlides", "") + StringClean = StringClean.Replace("@TnASlides", "") + End If - If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then - If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 - If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 - If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 + If StringClean.Contains("@CheckTnA") Then + TnASlides.Stop() - Try + 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) + If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" + If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckTnA", "") + End If + + If StringClean.Contains("@StopTnA") Then + TnASlides.Stop() ssh.BoobList.Clear() + ssh.BoobImage = False ssh.AssList.Clear() + ssh.AssImage = False + StringClean = StringClean.Replace("@StopTnA", "") + End If + '---------------------------------------- + ' TnA-Slideshow - End + '---------------------------------------- + '=============================================================================== + ' Slideshow + '=============================================================================== + If StringClean.Contains("@Slideshow(") Then + Dim SlideFlag As String = StringClean - If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList - If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList + Dim SlideStart As Integer - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") + SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 + SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) + SlideFlag = SlideFlag.Split(")")(0) + SlideFlag = SlideFlag.Replace("@Slideshow(", "") - TnASlides.Start() - Catch ex As Exception - Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & - ex.Message, ex, "CommandClean()") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) - End Try + ssh.CustomSlideshow.Clear() - StringClean = StringClean.Replace("@TnAFastSlides", "") - StringClean = StringClean.Replace("@TnASlowSlides", "") - StringClean = StringClean.Replace("@TnASlides", "") - End If + If SlideFlag.ToLower.Contains("hardcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) + End If - If StringClean.Contains("@CheckTnA") Then - TnASlides.Stop() + If SlideFlag.ToLower.Contains("softcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) + End If - 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) - If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" - If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckTnA", "") - End If + If SlideFlag.ToLower.Contains("lesbian") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) + End If - If StringClean.Contains("@StopTnA") Then - TnASlides.Stop() - ssh.BoobList.Clear() - ssh.BoobImage = False - ssh.AssList.Clear() - ssh.AssImage = False - StringClean = StringClean.Replace("@StopTnA", "") - End If - '---------------------------------------- - ' TnA-Slideshow - End - '---------------------------------------- - '=============================================================================== - ' Slideshow - '=============================================================================== - If StringClean.Contains("@Slideshow(") Then - Dim SlideFlag As String = StringClean + If SlideFlag.ToLower.Contains("blowjob") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) + End If - Dim SlideStart As Integer + If SlideFlag.ToLower.Contains("femdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) + End If - SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 - SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) - SlideFlag = SlideFlag.Split(")")(0) - SlideFlag = SlideFlag.Replace("@Slideshow(", "") + If SlideFlag.ToLower.Contains("lezdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) + End If - ssh.CustomSlideshow.Clear() + If SlideFlag.ToLower.Contains("hentai") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) + End If - If SlideFlag.ToLower.Contains("hardcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) - End If + If SlideFlag.ToLower.Contains("gay") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) + End If - If SlideFlag.ToLower.Contains("softcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) - End If + If SlideFlag.ToLower.Contains("maledom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) + End If - If SlideFlag.ToLower.Contains("lesbian") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) - End If + If SlideFlag.ToLower.Contains("captions") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) + End If - If SlideFlag.ToLower.Contains("blowjob") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) - End If + If SlideFlag.ToLower.Contains("general") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) + End If - If SlideFlag.ToLower.Contains("femdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) - End If + If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) + End If - If SlideFlag.ToLower.Contains("lezdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) - End If + If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) + End If + + + CustomSlideshowTimer.Interval = 1000 + If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 + If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 - If SlideFlag.ToLower.Contains("hentai") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) - End If - If SlideFlag.ToLower.Contains("gay") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) + StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") End If - If SlideFlag.ToLower.Contains("maledom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) + If StringClean.Contains("@SlideshowOn") Then + If ssh.CustomSlideshow.Count > 0 Then + ssh.CustomSlideEnabled = True + CustomSlideshowTimer.Start() + End If + StringClean = StringClean.Replace("@SlideshowOn", "") End If - If SlideFlag.ToLower.Contains("captions") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) + If StringClean.Contains("@SlideshowOff") Then + ssh.CustomSlideEnabled = False + CustomSlideshowTimer.Stop() + StringClean = StringClean.Replace("@SlideshowOff", "") End If - If SlideFlag.ToLower.Contains("general") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) + If StringClean.Contains("@SlideshowFirst") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.FirstImage, False) + StringClean = StringClean.Replace("@SlideshowFirst", "") End If - If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) + If StringClean.Contains("@SlideshowLast") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.LastImage, False) + StringClean = StringClean.Replace("@SlideshowLast", "") End If - If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) + If StringClean.Contains("@SlideshowNext") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.NextImage, False) + StringClean = StringClean.Replace("@SlideshowNext", "") End If + If StringClean.Contains("@SlideshowPrevious") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.PreviousImage, False) + StringClean = StringClean.Replace("@SlideshowPrevious", "") + End If + + If StringClean.Contains("@GotoSlideshow") Then + Dim ImageString As String = ssh.CustomSlideshow.CurrentImage + + If ImageString IsNot Nothing OrElse ImageString = "" Then + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" + + Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) - CustomSlideshowTimer.Interval = 1000 - If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 - If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 + ssh.SkipGotoLine = True + GetGoto() + Else + Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." + Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) + End If + StringClean = StringClean.Replace("@GotoSlideshow", "") + End If + '---------------------------------------- + ' Slideshow - End + '---------------------------------------- + ' This Command will not work in the same line, because the Images are loaded async and not available yet. + If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) - StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") - End If + ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, + ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs + ' (including Long Edge and Start Stroking) or when the sub gives up. - If StringClean.Contains("@SlideshowOn") Then - If ssh.CustomSlideshow.Count > 0 Then - ssh.CustomSlideEnabled = True - CustomSlideshowTimer.Start() + If StringClean.Contains("@LockImages") Then + ssh.LockImage = True + nextButton.Enabled = False + previousButton.Enabled = False + PicStripTSMIdommeSlideshow.Enabled = False + StringClean = StringClean.Replace("@LockImages", "") End If - StringClean = StringClean.Replace("@SlideshowOn", "") - End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' ImageCommands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If StringClean.Contains("@SlideshowOff") Then - ssh.CustomSlideEnabled = False - CustomSlideshowTimer.Stop() - StringClean = StringClean.Replace("@SlideshowOff", "") - End If + ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command + ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - If StringClean.Contains("@SlideshowFirst") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.FirstImage, False) - StringClean = StringClean.Replace("@SlideshowFirst", "") - End If + If StringClean.Contains("@Chance") Then - If StringClean.Contains("@SlideshowLast") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.LastImage, False) - StringClean = StringClean.Replace("@SlideshowLast", "") - End If + Dim ChanceTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - If StringClean.Contains("@SlideshowNext") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.NextImage, False) - StringClean = StringClean.Replace("@SlideshowNext", "") - End If + TSStartIndex = StringClean.IndexOf("@Chance") + 7 + TSEndIndex = StringClean.IndexOf("@Chance") + 9 - If StringClean.Contains("@SlideshowPrevious") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.PreviousImage, False) - StringClean = StringClean.Replace("@SlideshowPrevious", "") - End If + ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - If StringClean.Contains("@GotoSlideshow") Then - Dim ImageString As String = ssh.CustomSlideshow.CurrentImage + Dim ChanceVal As Integer - If ImageString IsNot Nothing OrElse ImageString = "" Then - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" + ChanceVal = Val(ChanceTemp) - Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) + ssh.TempVal = ssh.randomizer.Next(1, 101) - ssh.SkipGotoLine = True - GetGoto() - Else - Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." - Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) - End If - - StringClean = StringClean.Replace("@GotoSlideshow", "") - End If - '---------------------------------------- - ' Slideshow - End - '---------------------------------------- - ' This Command will not work in the same line, because the Images are loaded async and not available yet. - If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) - - ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, - ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs - ' (including Long Edge and Start Stroking) or when the sub gives up. - - If StringClean.Contains("@LockImages") Then - ssh.LockImage = True - nextButton.Enabled = False - previousButton.Enabled = False - PicStripTSMIdommeSlideshow.Enabled = False - StringClean = StringClean.Replace("@LockImages", "") - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' ImageCommands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - - ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command - ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - - If StringClean.Contains("@Chance") Then + Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim - Dim ChanceTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer - - TSStartIndex = StringClean.IndexOf("@Chance") + 7 - TSEndIndex = StringClean.IndexOf("@Chance") + 9 - - ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - - Dim ChanceVal As Integer - - ChanceVal = Val(ChanceTemp) - - ssh.TempVal = ssh.randomizer.Next(1, 101) + Dim ChanceSplit As String() = Split(ChanceString, ")") - Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim - Dim ChanceSplit As String() = Split(ChanceString, ")") + Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") + StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") + If ssh.TempVal <= ChanceVal Then - Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") - StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") - - If ssh.TempVal <= ChanceVal Then + ssh.FileGoto = ChanceSplit(0) & ")" + ssh.SkipGotoLine = True - ssh.FileGoto = ChanceSplit(0) & ")" - ssh.SkipGotoLine = True + If ssh.YesOrNo = True Then + GetGotoChat() + Else + GetGoto() + End If - If ssh.YesOrNo = True Then - GetGotoChat() - Else - GetGoto() End If End If - End If + ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of + ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using + ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() + ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, + ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of - ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using - ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() - ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, - ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. + If StringClean.Contains("@CheckFlag") Then - If StringClean.Contains("@CheckFlag") Then + Dim CheckArray As String() = StringClean.Split(")") - Dim CheckArray As String() = StringClean.Split(")") + For i As Integer = 0 To CheckArray.Count - 1 - For i As Integer = 0 To CheckArray.Count - 1 + If CheckArray(i).Contains("@CheckFlag(") Then - If CheckArray(i).Contains("@CheckFlag(") Then + CheckArray(i) = CheckArray(i) & ")" - CheckArray(i) = CheckArray(i) & ")" + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") + Dim OriginalCheck As String = CheckFlag - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") - Dim OriginalCheck As String = CheckFlag + If CheckFlag.Contains(",") Then - If CheckFlag.Contains(",") Then + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + Dim FlagArray() As String = CheckFlag.Split(",") - Dim FlagArray() As String = CheckFlag.Split(",") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FlagArray(1) + GetGoto() + End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FlagArray(1) - GetGoto() - End If + Else - Else + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then + ssh.SkipGotoLine = True + ssh.FileGoto = CheckFlag + GetGoto() + End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then - ssh.SkipGotoLine = True - ssh.FileGoto = CheckFlag - GetGoto() End If + ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS + 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") + + StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") + End If - ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS - 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") + Next - StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") + ' StringClean = Join(CheckArray, Nothing) - End If + End If - Next - ' StringClean = Join(CheckArray, Nothing) +TaskCleanSet: - End If + ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). -TaskCleanSet: + If StringClean.Contains("@SetFlag(") Then + Dim SetArray As String() = StringClean.Split(")") - ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). + For i As Integer = 0 To SetArray.Count - 1 - If StringClean.Contains("@SetFlag(") Then + If SetArray(i).Contains("@SetFlag(") Then - Dim SetArray As String() = StringClean.Split(")") + SetArray(i) = SetArray(i) & ")" - For i As Integer = 0 To SetArray.Count - 1 + Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") + Dim OriginalSet As String = SetFlag - If SetArray(i).Contains("@SetFlag(") Then + If SetFlag.Contains(",") Then - SetArray(i) = SetArray(i) & ")" + SetFlag = SetFlag.Replace(", ", ",") + SetFlag = SetFlag.Replace(" ,", ",") - Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") - Dim OriginalSet As String = SetFlag + Dim FlagArray() As String = SetFlag.Split(",") - If SetFlag.Contains(",") Then + For x As Integer = 0 To FlagArray.Count - 1 - SetFlag = SetFlag.Replace(", ", ",") - SetFlag = SetFlag.Replace(" ,", ",") + CreateFlag(FlagArray(x)) - Dim FlagArray() As String = SetFlag.Split(",") + Next - For x As Integer = 0 To FlagArray.Count - 1 + Else - CreateFlag(FlagArray(x)) + CreateFlag(SetFlag) - Next + End If - Else + 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") - CreateFlag(SetFlag) + StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") End If - 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") + Next - StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") + 'StringClean = Join(SetArray, Nothing) - End If + End If - Next + ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. + ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). - 'StringClean = Join(SetArray, Nothing) + If StringClean.Contains("@TempFlag(") Then - End If + Dim TempArray As String() = StringClean.Split(")") - ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. - ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). + For i As Integer = 0 To TempArray.Count - 1 - If StringClean.Contains("@TempFlag(") Then + If TempArray(i).Contains("@TempFlag(") Then - Dim TempArray As String() = StringClean.Split(")") + TempArray(i) = TempArray(i) & ")" - For i As Integer = 0 To TempArray.Count - 1 + Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") + Dim OriginalTemp As String = TempFlag - If TempArray(i).Contains("@TempFlag(") Then + If TempFlag.Contains(",") Then - TempArray(i) = TempArray(i) & ")" + TempFlag = TempFlag.Replace(", ", ",") + TempFlag = TempFlag.Replace(" ,", ",") - Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") - Dim OriginalTemp As String = TempFlag + Dim FlagArray() As String = TempFlag.Split(",") - If TempFlag.Contains(",") Then + For x As Integer = 0 To FlagArray.Count - 1 - TempFlag = TempFlag.Replace(", ", ",") - TempFlag = TempFlag.Replace(" ,", ",") + CreateFlag(FlagArray(x), True) - Dim FlagArray() As String = TempFlag.Split(",") + Next - For x As Integer = 0 To FlagArray.Count - 1 + Else - CreateFlag(FlagArray(x), True) + CreateFlag(TempFlag, True) - Next + End If - Else + 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") - CreateFlag(TempFlag, True) + StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") End If - 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") + Next - StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") + 'StringClean = Join(TempArray, Nothing) - End If + End If - Next + ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. + ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). + ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). - 'StringClean = Join(TempArray, Nothing) - End If + If StringClean.Contains("@DeleteFlag(") Then - ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. - ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). - ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). + Dim DeleteArray As String() = StringClean.Split(")") + For i As Integer = 0 To DeleteArray.Count - 1 - If StringClean.Contains("@DeleteFlag(") Then + If DeleteArray(i).Contains("@DeleteFlag(") Then - Dim DeleteArray As String() = StringClean.Split(")") + DeleteArray(i) = DeleteArray(i) & ")" - For i As Integer = 0 To DeleteArray.Count - 1 + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") + Dim OriginalDelete As String = DFlag - If DeleteArray(i).Contains("@DeleteFlag(") Then + If DFlag.Contains(",") Then - DeleteArray(i) = DeleteArray(i) & ")" + DFlag = FixCommas(DFlag) - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") - Dim OriginalDelete As String = DFlag + Dim FlagArray() As String = DFlag.Split(",") - If DFlag.Contains(",") Then + For x As Integer = 0 To FlagArray.Count - 1 - DFlag = FixCommas(DFlag) + DeleteFlag(FlagArray(x)) - Dim FlagArray() As String = DFlag.Split(",") + Next - For x As Integer = 0 To FlagArray.Count - 1 + Else - DeleteFlag(FlagArray(x)) + DeleteFlag(DFlag) - Next + End If - Else + ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") - DeleteFlag(DFlag) + StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") End If - ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") - - StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") - - End If - - Next + Next - 'StringClean = Join(DeleteArray, Nothing) + 'StringClean = Join(DeleteArray, Nothing) - End If + End If - ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. - ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] - ' Multiple @SetVar[] Commands may be used per line if you wish. - ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | + ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. + ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] + ' Multiple @SetVar[] Commands may be used per line if you wish. + ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - If StringClean.Contains("@SetVar[") Then + If StringClean.Contains("@SetVar[") Then - Dim VarArray As String() = StringClean.Split + Dim VarArray As String() = StringClean.Split - For i As Integer = 0 To VarArray.Count - 1 + For i As Integer = 0 To VarArray.Count - 1 - Dim SCGotVar As String = "NULL" + Dim SCGotVar As String = "NULL" - If VarArray(i).Contains("@SetVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" + If VarArray(i).Contains("@SetVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" - SCGotVar = SCGotVar.Replace("@SetVar[", "") + SCGotVar = SCGotVar.Replace("@SetVar[", "") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Dim VarName As String = SCGotVarSplit(0) + Dim VarName As String = SCGotVarSplit(0) - SCGotVarSplit(0) = "" + SCGotVarSplit(0) = "" - SCGotVar = Join(SCGotVarSplit) + SCGotVar = Join(SCGotVarSplit) - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) - End If + End If - Next + Next - StringClean = Join(VarArray) + StringClean = Join(VarArray) - End If + End If - ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . - ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) - ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. - ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is - ' specified, "Days" will be used. + ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . + ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) + ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. + ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is + ' specified, "Days" will be used. - If StringClean.Contains("@SetDate(") Then + If StringClean.Contains("@SetDate(") Then - Dim CheckArray As String() = StringClean.Split(")") - Dim OriginalCheck As String + Dim CheckArray As String() = StringClean.Split(")") + Dim OriginalCheck As String - For i As Integer = 0 To CheckArray.Count - 1 + For i As Integer = 0 To CheckArray.Count - 1 - If CheckArray(i).Contains("@SetDate(") Then + If CheckArray(i).Contains("@SetDate(") Then - 'CheckArray(i) = CheckArray(i) & "]" + 'CheckArray(i) = CheckArray(i) & "]" - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") - OriginalCheck = CheckFlag + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") + OriginalCheck = CheckFlag - Debug.Print("Original Check = " & OriginalCheck) + Debug.Print("Original Check = " & OriginalCheck) - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - Dim FlagArray() As String = CheckFlag.Split(",") + Dim FlagArray() As String = CheckFlag.Split(",") - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) - If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ - And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ - And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ + And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ + And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) - Debug.Print("CheckArray(i) = " & CheckArray(i)) + Debug.Print("CheckArray(i) = " & CheckArray(i)) - ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") + ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") - StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") + StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") - End If + End If - Next + Next - 'StringClean = Join(CheckArray, Nothing) + 'StringClean = Join(CheckArray, Nothing) - End If + End If - ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] - ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. - ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line + ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] + ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. + ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line - If StringClean.Contains("@RoundVar[") Then + If StringClean.Contains("@RoundVar[") Then - Dim VarArray As String() = StringClean.Split + Dim VarArray As String() = StringClean.Split - For i As Integer = 0 To VarArray.Count - 1 + For i As Integer = 0 To VarArray.Count - 1 - Dim SCGotVar As String = "NULL" + Dim SCGotVar As String = "NULL" - If VarArray(i).Contains("@RoundVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" - End If + If VarArray(i).Contains("@RoundVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" + End If - SCGotVar = SCGotVar.Replace("@RoundVar[", "") + SCGotVar = SCGotVar.Replace("@RoundVar[", "") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Dim VarName As String = SCGotVarSplit(0) - Dim Val1 As Integer + Dim VarName As String = SCGotVarSplit(0) + Dim Val1 As Integer - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(VarCheck) Then - ' Read first line of the given file. - Val1 = CInt(TxtReadLine(VarCheck)) + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(VarCheck) Then + ' Read first line of the given file. + Val1 = CInt(TxtReadLine(VarCheck)) - SCGotVarSplit(0) = "" + SCGotVarSplit(0) = "" - SCGotVar = Join(SCGotVarSplit) + SCGotVar = Join(SCGotVarSplit) - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - Dim VarValue As Integer = Val(SCGotVar) + Dim VarValue As Integer = Val(SCGotVar) - Val1 = VarValue * Math.Round(Val1 / VarValue) + Val1 = VarValue * Math.Round(Val1 / VarValue) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) - End If + End If - ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") + ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") - Next + Next - StringClean = Join(VarArray) + StringClean = Join(VarArray) - End If + End If - ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] - ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created - ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / - 'More than one @ChangeVar[] Command can be used per line. + ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] + ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created + ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / + 'More than one @ChangeVar[] Command can be used per line. - If StringClean.Contains("@ChangeVar[") Then + If StringClean.Contains("@ChangeVar[") Then - Dim ChangeArray As String() = StringClean.Split + Dim ChangeArray As String() = StringClean.Split - For i As Integer = 0 To ChangeArray.Count - 1 + For i As Integer = 0 To ChangeArray.Count - 1 - Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) + Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) - If ChangeArray(i).Contains("@ChangeVar[") Then + If ChangeArray(i).Contains("@ChangeVar[") Then - Dim ChangeFlag As String = ChangeArray(i) - Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 + Dim ChangeFlag As String = ChangeArray(i) + Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 - Dim ChangeVar As String - Dim ChangeVal1 As String - Dim ChangeVal2 As String - Dim ChangeOperator As String + Dim ChangeVar As String + Dim ChangeVal1 As String + Dim ChangeVal2 As String + Dim ChangeOperator As String - Dim Val1 As Integer - Dim Val2 As Integer + Dim Val1 As Integer + Dim Val2 As Integer - ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) - ChangeVar = ChangeFlag.Split("]")(0) - ChangeVal1 = ChangeFlag.Split("]")(1) - ChangeVal2 = ChangeFlag.Split("]")(2) - ChangeOperator = ChangeFlag.Split("]")(2) + ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) + ChangeVar = ChangeFlag.Split("]")(0) + ChangeVal1 = ChangeFlag.Split("]")(1) + ChangeVal2 = ChangeFlag.Split("]")(2) + ChangeOperator = ChangeFlag.Split("]")(2) - ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") + ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") - ChangeVar = ChangeVar.Replace("@ChangeVar[", "") - ChangeVal1 = ChangeVal1.Replace("=[", "") - ChangeVal2 = ChangeVal2.Replace("+[", "") - ChangeVal2 = ChangeVal2.Replace("-[", "") - ChangeVal2 = ChangeVal2.Replace("*[", "") - ChangeVal2 = ChangeVal2.Replace("/[", "") + ChangeVar = ChangeVar.Replace("@ChangeVar[", "") + ChangeVal1 = ChangeVal1.Replace("=[", "") + ChangeVal2 = ChangeVal2.Replace("+[", "") + ChangeVal2 = ChangeVal2.Replace("-[", "") + ChangeVal2 = ChangeVal2.Replace("*[", "") + ChangeVal2 = ChangeVal2.Replace("/[", "") - '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] + '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] - If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) + If IsNumeric(ChangeVal1) = False Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) + Else + Val1 = 0 + End If Else - Val1 = 0 + Val1 = Val(ChangeVal1) End If - Else - Val1 = Val(ChangeVal1) - End If - If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) + If IsNumeric(ChangeVal2) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) + Else + Val2 = 0 + End If Else - Val2 = 0 + Val2 = Val(ChangeVal2) End If - Else - Val2 = Val(ChangeVal2) - End If - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - Dim ChangeVal As Integer = 0 + Dim ChangeVal As Integer = 0 - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - End If + End If - Next + Next - End If + End If - ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] - ' More than one @ShowVar[] Commands can be used per line + ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] + ' More than one @ShowVar[] Commands can be used per line - If StringClean.Contains("@ShowVar[") Then + If StringClean.Contains("@ShowVar[") Then - Dim VarSplit As String() = StringClean.Split("]") + Dim VarSplit As String() = StringClean.Split("]") - For i As Integer = 0 To VarSplit.Count - 1 + For i As Integer = 0 To VarSplit.Count - 1 - If VarSplit(i).Contains("@ShowVar[") Then + If VarSplit(i).Contains("@ShowVar[") Then - Dim VarString As String = VarSplit(i) & "]" + Dim VarString As String = VarSplit(i) & "]" - Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") - Debug.Print("VarFlag = " & VarFlag) - Dim VarFlag2 As String = GetVariable(VarFlag) - Debug.Print("VarFlag2 = " & VarFlag2) - ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") + Debug.Print("VarFlag = " & VarFlag) + Dim VarFlag2 As String = GetVariable(VarFlag) + Debug.Print("VarFlag2 = " & VarFlag2) + ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") - StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) + StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) - End If + End If - Next + Next - End If + End If - If StringClean.Contains("@ChastityOn") Then - My.Settings.Chastity = True - FrmSettings.LBLChastityState.Text = "ON" - FrmSettings.LBLChastityState.ForeColor = Color.Green - StringClean = StringClean.Replace("@ChastityOn", "") - End If + If StringClean.Contains("@ChastityOn") Then + My.Settings.Chastity = True + FrmSettings.LBLChastityState.Text = "ON" + FrmSettings.LBLChastityState.ForeColor = Color.Green + StringClean = StringClean.Replace("@ChastityOn", "") + End If - If StringClean.Contains("@ChastityOff") Then - My.Settings.Chastity = False - FrmSettings.LBLChastityState.Text = "OFF" - FrmSettings.LBLChastityState.ForeColor = Color.Red - StringClean = StringClean.Replace("@ChastityOff", "") - End If + If StringClean.Contains("@ChastityOff") Then + My.Settings.Chastity = False + FrmSettings.LBLChastityState.Text = "OFF" + FrmSettings.LBLChastityState.ForeColor = Color.Red + StringClean = StringClean.Replace("@ChastityOff", "") + End If - If StringClean.Contains("@AddTokens(") Then + If StringClean.Contains("@AddTokens(") Then - Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenAdd As Integer + Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenAdd As Integer - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenAdd = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd - Next - Else - TokenAdd = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd - End If + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenAdd = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd + Next + Else + TokenAdd = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd + End If - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") + StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") - End If + End If - If StringClean.Contains("@RemoveTokens(") Then + If StringClean.Contains("@RemoveTokens(") Then - Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenRemove As Integer + Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenRemove As Integer - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenRemove = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove - Next - Else - TokenRemove = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove - End If + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenRemove = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove + Next + Else + TokenRemove = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove + End If - If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 - If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 - If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 + If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 + If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 + If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") + StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") - End If + End If - If StringClean.Contains("@Add1Token") Then - ssh.BronzeTokens += 1 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add1Token", "") - End If + If StringClean.Contains("@Add1Token") Then + ssh.BronzeTokens += 1 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add1Token", "") + End If - If StringClean.Contains("@Add3Tokens") Then - ssh.BronzeTokens += 3 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add3Tokens", "") - End If + If StringClean.Contains("@Add3Tokens") Then + ssh.BronzeTokens += 3 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add3Tokens", "") + End If - If StringClean.Contains("@Add5Tokens") Then - ssh.BronzeTokens += 5 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - StringClean = StringClean.Replace("@Add5Tokens", "") - MessageBox.Show(Me, ssh.tempDomName & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - End If + If StringClean.Contains("@Add5Tokens") Then + ssh.BronzeTokens += 5 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + StringClean = StringClean.Replace("@Add5Tokens", "") + MessageBox.Show(Me, ssh.tempDomName & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If - If StringClean.Contains("@Add10Tokens") Then - ssh.BronzeTokens += 10 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add10Tokens", "") - End If + If StringClean.Contains("@Add10Tokens") Then + ssh.BronzeTokens += 10 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add10Tokens", "") + End If - If StringClean.Contains("@Add25Tokens") Then - ssh.BronzeTokens += 25 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add25Tokens", "") - End If + If StringClean.Contains("@Add25Tokens") Then + ssh.BronzeTokens += 25 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add25Tokens", "") + End If - If StringClean.Contains("@Add50Tokens") Then - ssh.BronzeTokens += 50 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") - End If + If StringClean.Contains("@Add50Tokens") Then + ssh.BronzeTokens += 50 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - If StringClean.Contains("@Add100Tokens") Then - ssh.BronzeTokens += 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") - End If + If StringClean.Contains("@Add100Tokens") Then + ssh.BronzeTokens += 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - If StringClean.Contains("@Remove100Tokens") Then - ssh.BronzeTokens -= 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@@Remove100Tokens", "") - End If + If StringClean.Contains("@Remove100Tokens") Then + ssh.BronzeTokens -= 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@@Remove100Tokens", "") + End If - If StringClean.Contains("@UpdateOrgasm") Then - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) + If StringClean.Contains("@UpdateOrgasm") Then + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - 'Github Patch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + 'Github Patch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - StringClean = StringClean.Replace("@UpdateOrgasm", "") - End If + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + StringClean = StringClean.Replace("@UpdateOrgasm", "") + End If - If StringClean.Contains("@UpdateRuined") Then - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) + If StringClean.Contains("@UpdateRuined") Then + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - ' GithubPatch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + ' GithubPatch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - StringClean = StringClean.Replace("@UpdateRuined", "") - End If + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined + StringClean = StringClean.Replace("@UpdateRuined", "") + End If - If StringClean.Contains("@DeleteVar[") Then + If StringClean.Contains("@DeleteVar[") Then - Dim DeleteArray As String() = StringClean.Split("]") + Dim DeleteArray As String() = StringClean.Split("]") - For i As Integer = 0 To DeleteArray.Count - 1 + For i As Integer = 0 To DeleteArray.Count - 1 - If DeleteArray(i).Contains("@DeleteVar[") Then + If DeleteArray(i).Contains("@DeleteVar[") Then - DeleteArray(i) = DeleteArray(i) & "]" + DeleteArray(i) = DeleteArray(i) & "]" - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") - Dim OriginalDelete As String = DFlag + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") + Dim OriginalDelete As String = DFlag - If DFlag.Contains(",") Then + If DFlag.Contains(",") Then - DFlag = FixCommas(DFlag) + DFlag = FixCommas(DFlag) - Dim FlagArray() As String = DFlag.Split(",") + Dim FlagArray() As String = DFlag.Split(",") - For x As Integer = 0 To FlagArray.Count - 1 + For x As Integer = 0 To FlagArray.Count - 1 - DeleteVariable(FlagArray(x)) + DeleteVariable(FlagArray(x)) - Next + Next - Else + Else - DeleteVariable(DFlag) + DeleteVariable(DFlag) - End If + End If - 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") + 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") - StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") + StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") - End If + End If - Next + Next - 'StringClean = Join(DeleteArray, Nothing) + 'StringClean = Join(DeleteArray, Nothing) - End If + End If - If StringClean.Contains("@PornAllowedOff") Then - CreateFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOff", "") - End If + If StringClean.Contains("@PornAllowedOff") Then + CreateFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOff", "") + End If - If StringClean.Contains("@PornAllowedOn") Then - DeleteFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOn", "") - End If + If StringClean.Contains("@PornAllowedOn") Then + DeleteFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOn", "") + End If - If StringClean.Contains("@RestrictOrgasm(") Then + If StringClean.Contains("@RestrictOrgasm(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") + Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") - If CheckFlag.Contains(",") Then + If CheckFlag.Contains(",") Then - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - Dim FlagArray() As String = CheckFlag.Split(",") + Dim FlagArray() As String = CheckFlag.Split(",") - Dim Seconds1 As Integer = Val(FlagArray(0)) - Dim Seconds2 As Integer = Val(FlagArray(1)) + Dim Seconds1 As Integer = Val(FlagArray(0)) + Dim Seconds2 As Integer = Val(FlagArray(1)) - If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 - If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 - If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 - If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 - If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 - If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 + If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 + If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 + If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 + If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 + If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 + If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 - Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) + Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) - Else + Else - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) - If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) + If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) - If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ - And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ - And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ + And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ + And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + End If + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") End If - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") - End If - If StringClean.Contains("@RestrictOrgasm") Then - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm", "") - End If + If StringClean.Contains("@RestrictOrgasm") Then + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm", "") + End If - If StringClean.Contains("@DecreaseOrgasmChance") Then + If StringClean.Contains("@DecreaseOrgasmChance") Then - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") - End If + StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") + End If - If StringClean.Contains("@IncreaseOrgasmChance") Then + If StringClean.Contains("@IncreaseOrgasmChance") Then - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") - End If + StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") + End If - If StringClean.Contains("@DecreaseRuinChance") Then + If StringClean.Contains("@DecreaseRuinChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - StringClean = StringClean.Replace("@DecreaseRuinChance", "") - End If + StringClean = StringClean.Replace("@DecreaseRuinChance", "") + End If - If StringClean.Contains("@IncreaseRuinChance") Then + If StringClean.Contains("@IncreaseRuinChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - StringClean = StringClean.Replace("@IncreaseRuinChance", "") - End If + StringClean = StringClean.Replace("@IncreaseRuinChance", "") + End If - '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END + '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END - If TaskClean = True Then Return StringClean + If TaskClean = True Then Return StringClean - ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. - ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set - ' for the Variable "NoPorn" by @SetDate() + ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. + ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set + ' for the Variable "NoPorn" by @SetDate() - If StringClean.Contains("@CheckDate(") Then + If StringClean.Contains("@CheckDate(") Then - Dim CheckArray As String() = StringClean.Split(")") + Dim CheckArray As String() = StringClean.Split(")") - For i As Integer = 0 To CheckArray.Count - 1 + For i As Integer = 0 To CheckArray.Count - 1 - If CheckArray(i).Contains("@CheckDate(") Then + If CheckArray(i).Contains("@CheckDate(") Then + + If CheckDateList(CheckArray(i), True) = True Then + Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") + DateFlag = FixCommas(DateFlag) + Dim DateArray As String() = DateFlag.Split(",") + ssh.SkipGotoLine = True + ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") + GetGoto() + End If + + StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") - If CheckDateList(CheckArray(i), True) = True Then - Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") - DateFlag = FixCommas(DateFlag) - Dim DateArray As String() = DateFlag.Split(",") - ssh.SkipGotoLine = True - ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") - GetGoto() End If - StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") + Next - End If + End If - Next + ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. + ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the + ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next + ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. - End If - - ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. - ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the - ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next - ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. + If StringClean.Contains("@InputVar[") Then - If StringClean.Contains("@InputVar[") Then + ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") + ssh.InputFlag = True + If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True - ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") - ssh.InputFlag = True - If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True + StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - - End If + End If - ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt + ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt - If StringClean.Contains("@DislikeBlogImage") Then + If StringClean.Contains("@DislikeBlogImage") Then - If ssh.ImageLocation <> "" Then + If ssh.ImageLocation <> "" Then - If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) + End If + StringClean = StringClean.Replace("@DislikeBlogImage", "") End If - StringClean = StringClean.Replace("@DislikeBlogImage", "") - End If - End If + End If - ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt + ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - If StringClean.Contains("@LikeBlogImage") Then + If StringClean.Contains("@LikeBlogImage") Then - If ssh.ImageLocation <> "" Then + If ssh.ImageLocation <> "" Then - If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) + End If + StringClean = StringClean.Replace("@LikeBlogImage", "") End If - StringClean = StringClean.Replace("@LikeBlogImage", "") - End If - - End If - - Debug.Print("SubStroking = " & ssh.SubStroking) - Debug.Print("SubEdging = " & ssh.SubEdging) - Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ + End If - If StringClean.Contains("@StrokeFaster") Then - ssh.StrokeFaster = True - StringClean = StringClean.Replace("@StrokeFaster", "") - End If + Debug.Print("SubStroking = " & ssh.SubStroking) + Debug.Print("SubEdging = " & ssh.SubEdging) + Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ - If StringClean.Contains("@StrokeSlower") Then - ssh.StrokeSlower = True - StringClean = StringClean.Replace("@StrokeSlower", "") - End If + If StringClean.Contains("@StrokeFaster") Then + ssh.StrokeFaster = True + StringClean = StringClean.Replace("@StrokeFaster", "") + End If - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ - If StringClean.Contains("@StrokeFastest") Then - ssh.StrokeFastest = True - StringClean = StringClean.Replace("@StrokeFastest", "") - End If + If StringClean.Contains("@StrokeSlower") Then + ssh.StrokeSlower = True + StringClean = StringClean.Replace("@StrokeSlower", "") + End If - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - If StringClean.Contains("@StrokeSlowest") Then - ssh.StrokeSlowest = True - StringClean = StringClean.Replace("@StrokeSlowest", "") - End If + If StringClean.Contains("@StrokeFastest") Then + ssh.StrokeFastest = True + StringClean = StringClean.Replace("@StrokeFastest", "") + End If + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ - If StringClean.Contains("@StartStroking") Then - If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) + If StringClean.Contains("@StrokeSlowest") Then + ssh.StrokeSlowest = True + StringClean = StringClean.Replace("@StrokeSlowest", "") End If - SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try - End If + If StringClean.Contains("@StartStroking") Then + If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) + End If - If StringClean.Contains("@Contact1") Then - ssh.Contact1Stroke = True - ElseIf StringClean.Contains("@Contact2") Then - ssh.Contact2Stroke = True - ElseIf StringClean.Contains("@Contact3") Then - ssh.Contact3Stroke = True - ElseIf StringClean.Contains("@RandomContact") Then - Dim casual As Integer = 0 - casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) - Select Case ssh.currentlyPresentContacts(casual) - Case ssh.SlideshowContact1.TypeName - ssh.Contact1Stroke = True - Case ssh.SlideshowContact2.TypeName - ssh.Contact2Stroke = True - Case ssh.SlideshowContact3.TypeName - ssh.Contact3Stroke = True - Case Else - End Select - End If - - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 - If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - - If ssh.WorshipMode = True Then - StrokePace = NBMinPace.Value - ssh.StrokeSlowest = True - End If + SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) - ClearModes() + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try + End If + + If StringClean.Contains("@Contact1") Then + ssh.Contact1Stroke = True + ElseIf StringClean.Contains("@Contact2") Then + ssh.Contact2Stroke = True + ElseIf StringClean.Contains("@Contact3") Then + ssh.Contact3Stroke = True + ElseIf StringClean.Contains("@RandomContact") Then + Dim casual As Integer = 0 + casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) + Select Case ssh.currentlyPresentContacts(casual) + Case ssh.SlideshowContact1.TypeName + ssh.Contact1Stroke = True + Case ssh.SlideshowContact2.TypeName + ssh.Contact2Stroke = True + Case ssh.SlideshowContact3.TypeName + ssh.Contact3Stroke = True + Case Else + End Select + End If - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 + If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) If ssh.WorshipMode = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 + StrokePace = NBMinPace.Value + ssh.StrokeSlowest = True End If - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 - End If - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - 'StrokeThread = New Thread(AddressOf StrokeLoop) - 'StrokeThread.IsBackground = True - 'StrokeThread.SetApartmentState(ApartmentState.STA) - 'StrokeThread.Start() - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartStroking", "") - End If + ClearModes() - If StringClean.Contains("@StartTaunts") Then - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - ssh.StartStrokingCount += 1 - ' github patch StrokePace = 0 - ' github patch StrokePaceTimer.Interval = StrokePace - - ClearModes() - - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - End If - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartTaunts", "") - End If + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + + If ssh.WorshipMode = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 + End If - If StringClean.Contains("@StopStroking") Then - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If - If ssh.Contact1Stroke = True Then - StringClean = StringClean & "@Contact1" - ssh.Contact1Stroke = False + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 + End If + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + 'StrokeThread = New Thread(AddressOf StrokeLoop) + 'StrokeThread.IsBackground = True + 'StrokeThread.SetApartmentState(ApartmentState.STA) + 'StrokeThread.Start() + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartStroking", "") + End If + + If StringClean.Contains("@StartTaunts") Then + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + ssh.StartStrokingCount += 1 + ' github patch StrokePace = 0 + ' github patch StrokePaceTimer.Interval = StrokePace + + ClearModes() + + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + End If + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartTaunts", "") End If - If ssh.Contact2Stroke = True Then - StringClean = StringClean & "@Contact2" - ssh.Contact2Stroke = False + + If StringClean.Contains("@StopStroking") Then + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If + If ssh.Contact1Stroke = True Then + StringClean = StringClean & "@Contact1" + ssh.Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + StringClean = StringClean & "@Contact2" + ssh.Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + StringClean = StringClean & "@Contact3" + ssh.Contact3Stroke = False + End If + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False + ssh.ExtremeHold = False + ssh.HoldTaunts = False + ssh.LongTaunts = False + ssh.ExtremeTaunts = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + StrokePace = 0 + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopStroking", "") End If - If ssh.Contact3Stroke = True Then - StringClean = StringClean & "@Contact3" - ssh.Contact3Stroke = False + + If StringClean.Contains("@StopTaunts") Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopTaunts", "") End If - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False - ssh.ExtremeHold = False - ssh.HoldTaunts = False - ssh.LongTaunts = False - ssh.ExtremeTaunts = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - StrokePace = 0 - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopStroking", "") - End If - If StringClean.Contains("@StopTaunts") Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopTaunts", "") - End If + If StringClean.Contains("@LongHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.LongHold = True - If StringClean.Contains("@LongHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.LongHold = True + StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") + End If - StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") - End If + If StringClean.Contains("@ExtremeHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True - If StringClean.Contains("@ExtremeHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True + StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") + End If - StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") - End If + If StringClean.Contains("@LongHold") Then + ssh.LongHold = True + StringClean = StringClean.Replace("@LongHold", "") + End If - If StringClean.Contains("@LongHold") Then - ssh.LongHold = True - StringClean = StringClean.Replace("@LongHold", "") - End If + If StringClean.Contains("@ExtremeHold") Then + ssh.ExtremeHold = True + StringClean = StringClean.Replace("@ExtremeHold", "") + End If - If StringClean.Contains("@ExtremeHold") Then - ssh.ExtremeHold = True - StringClean = StringClean.Replace("@ExtremeHold", "") - End If + If StringClean.Contains("@MultipleEdges(") Then - If StringClean.Contains("@MultipleEdges(") Then + If StringClean.Contains("@Edg") Then - If StringClean.Contains("@Edg") Then + Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") - Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") + If EdgeArray.Count = 3 Then + + If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then + ssh.MultipleEdges = True + ssh.MultipleEdgesAmount = Val(EdgeArray(0)) + ssh.MultipleEdgesInterval = Val(EdgeArray(1)) + End If - If EdgeArray.Count = 3 Then + Else - If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then ssh.MultipleEdges = True ssh.MultipleEdgesAmount = Val(EdgeArray(0)) ssh.MultipleEdgesInterval = Val(EdgeArray(1)) - End If - - Else - ssh.MultipleEdges = True - ssh.MultipleEdgesAmount = Val(EdgeArray(0)) - ssh.MultipleEdgesInterval = Val(EdgeArray(1)) + End If End If + StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") + End If - StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") - End If + If StringClean.Contains("@Edge(") Then + ContactEdgeCheck(StringClean) - If StringClean.Contains("@Edge(") Then + Edge() - ContactEdgeCheck(StringClean) + If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True + If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True + If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False - Edge() + If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True - If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True - If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True - If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False + If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True - If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True + If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True - If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True + If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False - If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True + If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then + If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False + End If - If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False + If GetMatch(StringClean, "@Edge(", "LongHold") = True Then + ssh.EdgeHold = True + ssh.LongHold = True + End If + If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then + ssh.EdgeHold = True + ssh.ExtremeHold = True + End If + If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True And ssh.EdgeHold = True Then + If ssh.LongHold = True Then ssh.LongTaunts = True + If ssh.ExtremeHold = True Then ssh.ExtremeTaunts = True + If ssh.LongTaunts = False And ssh.ExtremeTaunts = False Then ssh.HoldTaunts = True + End If - If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then - If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False End If - If GetMatch(StringClean, "@Edge(", "LongHold") = True Then - ssh.EdgeHold = True - ssh.LongHold = True - End If - If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then - ssh.EdgeHold = True - ssh.ExtremeHold = True - End If - If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True And ssh.EdgeHold = True Then - If ssh.LongHold = True Then ssh.LongTaunts = True - If ssh.ExtremeHold = True Then ssh.ExtremeTaunts = True - If ssh.LongTaunts = False And ssh.ExtremeTaunts = False Then ssh.HoldTaunts = True - End If - End If + If StringClean.Contains("@EdgeMode(") Then + Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") - If StringClean.Contains("@EdgeMode(") Then + If UCase(EdgeArray(0)).Contains("GOTO") Then + ssh.edgeMode.GotoMode = True + ssh.edgeMode.GotoLine = EdgeArray(1) + End If - Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") + If UCase(EdgeArray(0)).Contains("MESSAGE") Then + ssh.edgeMode.MessageMode = True + ssh.edgeMode.MessageText = EdgeArray(1) + End If - If UCase(EdgeArray(0)).Contains("GOTO") Then - ssh.edgeMode.GotoMode = True - ssh.edgeMode.GotoLine = EdgeArray(1) - End If + If UCase(EdgeArray(0)).Contains("VIDEO") Then + ssh.edgeMode.VideoMode = True + ssh.edgeMode.GotoLine = EdgeArray(1) + End If - If UCase(EdgeArray(0)).Contains("MESSAGE") Then - ssh.edgeMode.MessageMode = True - ssh.edgeMode.MessageText = EdgeArray(1) - End If + If UCase(EdgeArray(0)).Contains("NORMAL") Then + ssh.edgeMode.Clear() + End If - If UCase(EdgeArray(0)).Contains("VIDEO") Then - ssh.edgeMode.VideoMode = True - ssh.edgeMode.GotoLine = EdgeArray(1) + StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") End If - If UCase(EdgeArray(0)).Contains("NORMAL") Then - ssh.edgeMode.Clear() + If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") End If - StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") - End If + If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then - If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") - End If + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") - If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then + If EdgeHoldFlag.Contains(",") Then - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - If EdgeHoldFlag.Contains(",") Then + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + Else - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - Else + End If - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + ssh.EdgeHoldFlag = True + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") End If - ssh.EdgeHoldFlag = True - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") - End If + If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") + End If + + If StringClean.Contains("@EdgeToRuinNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuinSecret = False + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") + End If + If StringClean.Contains("@EdgeToRuinNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") + End If - If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") - End If + If StringClean.Contains("@EdgeToRuinHold(") Then - If StringClean.Contains("@EdgeToRuinNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuinSecret = False - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") - End If + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") - If StringClean.Contains("@EdgeToRuinNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") - End If + If EdgeHoldFlag.Contains(",") Then - If StringClean.Contains("@EdgeToRuinHold(") Then + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - If EdgeHoldFlag.Contains(",") Then + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + Else - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + End If - Else + ssh.EdgeHoldFlag = True - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") End If - ssh.EdgeHoldFlag = True + If StringClean.Contains("@EdgeToRuinHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinHold", "") + End If - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True + If StringClean.Contains("@EdgeToRuin") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuin", "") + End If - StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") - End If + If StringClean.Contains("@EdgeNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + StringClean = StringClean.Replace("@EdgeNoHold", "") + End If - If StringClean.Contains("@EdgeToRuinHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinHold", "") - End If - If StringClean.Contains("@EdgeToRuin") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuin", "") - End If + ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well + ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds + ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes + ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D + ' + 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. - If StringClean.Contains("@EdgeNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - StringClean = StringClean.Replace("@EdgeNoHold", "") - End If + If StringClean.Contains("@EdgeHold(") Then + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") - ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well - ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds - ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes - ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D - ' - 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. + If EdgeHoldFlag.Contains(",") Then - If StringClean.Contains("@EdgeHold(") Then + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - If EdgeHoldFlag.Contains(",") Then + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + Else - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + End If - Else + ssh.EdgeHoldFlag = True - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - End If + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") - ssh.EdgeHoldFlag = True + End If - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") + If StringClean.Contains("@EdgeHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold", "") + End If - End If + If StringClean.Contains("@Edge") Then + ContactEdgeCheck(StringClean) + Edge() + StringClean = StringClean.Replace("@Edge", "") + End If + If StringClean.Contains("@CBTBalls") Then + If FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBallsActive = True + ssh.CBTBallsFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If + StringClean = StringClean.Replace("@CBTBalls", "") + End If - If StringClean.Contains("@EdgeHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold", "") - End If + If StringClean.Contains("@CBTCock") Then + If FrmSettings.CBCBTCock.Checked = True Then + ssh.CBTCockActive = True + ssh.CBTCockFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If + StringClean = StringClean.Replace("@CBTCock", "") + End If - If StringClean.Contains("@Edge") Then - ContactEdgeCheck(StringClean) - Edge() - StringClean = StringClean.Replace("@Edge", "") - End If + If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then - If StringClean.Contains("@CBTBalls") Then - If FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBallsActive = True - ssh.CBTBallsFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If - StringClean = StringClean.Replace("@CBTBalls", "") - End If + If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBothActive = True + ssh.CBTBothFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If - If StringClean.Contains("@CBTCock") Then - If FrmSettings.CBCBTCock.Checked = True Then - ssh.CBTCockActive = True - ssh.CBTCockFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + StringClean = StringClean.Replace("@CBT", "") End If - StringClean = StringClean.Replace("@CBTCock", "") - End If - If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then - If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBothActive = True - ssh.CBTBothFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If + ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, + ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. - StringClean = StringClean.Replace("@CBT", "") - End If + If StringClean.Contains("@CustomTask(") Then + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") - ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, - ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. + CustomFlag = FixCommas(CustomFlag) - If StringClean.Contains("@CustomTask(") Then + Dim CustomArray As String() = CustomFlag.Split(",") - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then + ssh.CustomTask = True + ssh.CustomTaskActive = True + ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" + ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" + End If - CustomFlag = FixCommas(CustomFlag) + If CustomArray.Count > 1 Then + ssh.TasksCount = Val(CustomArray(1)) + Else + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If - Dim CustomArray As String() = CustomFlag.Split(",") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then - ssh.CustomTask = True - ssh.CustomTaskActive = True - ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" - ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" - End If + StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") - If CustomArray.Count > 1 Then - ssh.TasksCount = Val(CustomArray(1)) - Else - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If - StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") + If StringClean.Contains("@DecideOrgasm") Then - End If + ssh.OrgasmDenied = False + ssh.OrgasmAllowed = False + ssh.OrgasmRuined = False + Dim AllowGoto As String = "Orgasm Allow" + Dim RuinGoto As String = "Orgasm Ruin" + Dim DenyGoto As String = "Orgasm Deny" - If StringClean.Contains("@DecideOrgasm") Then + If StringClean.Contains("@DecideOrgasm(") Then - ssh.OrgasmDenied = False - ssh.OrgasmAllowed = False - ssh.OrgasmRuined = False + Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") + OrgasmFlag = FixCommas(OrgasmFlag) + Dim OrgasmArray As String() = OrgasmFlag.Split(",") - Dim AllowGoto As String = "Orgasm Allow" - Dim RuinGoto As String = "Orgasm Ruin" - Dim DenyGoto As String = "Orgasm Deny" + If OrgasmArray.Count = 3 Then + AllowGoto = OrgasmArray(0) + RuinGoto = OrgasmArray(1) + DenyGoto = OrgasmArray(2) + End If - If StringClean.Contains("@DecideOrgasm(") Then + End If - Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") - OrgasmFlag = FixCommas(OrgasmFlag) - Dim OrgasmArray As String() = OrgasmFlag.Split(",") - If OrgasmArray.Count = 3 Then - AllowGoto = OrgasmArray(0) - RuinGoto = OrgasmArray(1) - DenyGoto = OrgasmArray(2) + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then + ssh.FileGoto = RuinGoto + ssh.OrgasmRuined = True + GoTo OrgasmDecided End If - End If + Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim OrgasmThreshold As Integer + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True - GoTo OrgasmDecided - End If + If FrmSettings.CBRangeOrgasm.Checked = True Then + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 + Else + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value + End If - Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim OrgasmThreshold As Integer - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 + If OrgasmInt > OrgasmThreshold Then + ssh.FileGoto = DenyGoto + ssh.OrgasmDenied = True + GoTo OrgasmDecided + End If - If FrmSettings.CBRangeOrgasm.Checked = True Then - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 - Else - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value - End If + Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim RuinThreshold As Integer + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 - If OrgasmInt > OrgasmThreshold Then - ssh.FileGoto = DenyGoto - ssh.OrgasmDenied = True - GoTo OrgasmDecided - End If - Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim RuinThreshold As Integer + If FrmSettings.CBRangeRuin.Checked = True Then + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 + Else + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value + End If - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 + If RuinInt > RuinThreshold Then + ssh.FileGoto = AllowGoto + ssh.OrgasmAllowed = True + Else + ssh.FileGoto = RuinGoto + ssh.OrgasmRuined = True + End If - If FrmSettings.CBRangeRuin.Checked = True Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 - Else - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value - End If +OrgasmDecided: + ssh.SkipGotoLine = True + GetGoto() - If RuinInt > RuinThreshold Then - ssh.FileGoto = AllowGoto - ssh.OrgasmAllowed = True - Else - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True + StringClean = StringClean.Replace("@DecideOrgasm", "") End If -OrgasmDecided: - ssh.SkipGotoLine = True - GetGoto() - - StringClean = StringClean.Replace("@DecideOrgasm", "") - End If + If StringClean.Contains("@OrgasmRuin") Then + ssh.FileGoto = "Orgasm Ruin" + ssh.OrgasmRuined = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmRuin", "") + End If + If StringClean.Contains("@OrgasmDeny") Then + ssh.FileGoto = "Orgasm Deny" + ssh.OrgasmDenied = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmDeny", "") + End If - If StringClean.Contains("@OrgasmRuin") Then - ssh.FileGoto = "Orgasm Ruin" - ssh.OrgasmRuined = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmRuin", "") - End If + If StringClean.Contains("@OrgasmAllow") Then + ssh.FileGoto = "Orgasm Allow" + ssh.OrgasmAllowed = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmAllow", "") + End If - If StringClean.Contains("@OrgasmDeny") Then - ssh.FileGoto = "Orgasm Deny" - ssh.OrgasmDenied = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmDeny", "") - End If - If StringClean.Contains("@OrgasmAllow") Then - ssh.FileGoto = "Orgasm Allow" - ssh.OrgasmAllowed = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmAllow", "") - End If + ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) + ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. + If StringClean.Contains("@Glitter(") Then - ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) - ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. + ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") + Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") - If StringClean.Contains("@Glitter(") Then + If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then + ssh.UpdateList.Clear() + ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") + StatusUpdatePost() + End If + End If - ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") - Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") + StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then - ssh.UpdateList.Clear() - ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") - StatusUpdatePost() - End If End If - StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - - End If + If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then + If StringClean.Contains("@WritingTask(") Then + ssh.randomWriteTask = False + StringClean = StringClean.Replace("@WritingTask", "") + Else + ssh.randomWriteTask = True + StringClean = StringClean.Replace("@WritingTaskRandom", "") + End If - If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then - If StringClean.Contains("@WritingTask(") Then - ssh.randomWriteTask = False - StringClean = StringClean.Replace("@WritingTask", "") - Else - ssh.randomWriteTask = True - StringClean = StringClean.Replace("@WritingTaskRandom", "") - End If + ssh.WritingTaskFlag = True + setWriteTask() - ssh.WritingTaskFlag = True - setWriteTask() + Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) - Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) + If WritingTaskVal = 0 Then + ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) + ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) + Else + ssh.WritingTaskLinesAmount = WritingTaskVal + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") + End If - If WritingTaskVal = 0 Then - ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) - ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) - Else - ssh.WritingTaskLinesAmount = WritingTaskVal - LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") - End If + LBLLinesWritten.Text = "0" + LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount - LBLLinesWritten.Text = "0" - LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount + If PNLWritingTask.Visible = False Then + CloseApp(PNLWritingTask) + End If - If PNLWritingTask.Visible = False Then - CloseApp(PNLWritingTask) - End If + 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) - 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) + 'determine error numbers based on numbers of lines to write + ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) + 'clamps the value between 2 and 10 errors + ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) + ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) - 'determine error numbers based on numbers of lines to write - ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) - 'clamps the value between 2 and 10 errors - ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) - ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) + LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed + LBLMistakesMade.Text = "0" + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." + ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount + ssh.WritingTaskLinesWritten = 0 + ssh.WritingTaskMistakesMade = 0 + chatBox.ShortcutsEnabled = False + ChatBox2.ShortcutsEnabled = False - LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed - LBLMistakesMade.Text = "0" - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." - ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount - ssh.WritingTaskLinesWritten = 0 - ssh.WritingTaskMistakesMade = 0 - chatBox.ShortcutsEnabled = False - ChatBox2.ShortcutsEnabled = False + If My.Settings.TimedWriting = True Then - If My.Settings.TimedWriting = True Then + Dim secs As Single - Dim secs As Single + 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings + '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) + secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * (LBLWritingTaskText.Text.Length - 3) + 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some + 'more time for very short lines + ssh.WritingTaskCurrentTime = 15 + secs * ssh.WritingTaskLinesAmount - 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings - '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) - secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * (LBLWritingTaskText.Text.Length - 3) - 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some - 'more time for very short lines - ssh.WritingTaskCurrentTime = 15 + secs * ssh.WritingTaskLinesAmount + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") + Else + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") + End If - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") - Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") End If - End If - - If StringClean.Contains("@CheckJOIVideo") Then + If StringClean.Contains("@CheckJOIVideo") Then - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then + Else + ssh.SkipGotoLine = True + ssh.FileGoto = "No JOI Found" + GetGoto() + End If Else ssh.SkipGotoLine = True ssh.FileGoto = "No JOI Found" GetGoto() End If - Else - ssh.SkipGotoLine = True - ssh.FileGoto = "No JOI Found" - GetGoto() + + StringClean = StringClean.Replace("@CheckJOIVideo", "") + End If - StringClean = StringClean.Replace("@CheckJOIVideo", "") - End If + If StringClean.Contains("@PlayJOIVideo") Then + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - If StringClean.Contains("@PlayJOIVideo") Then + ssh.TeaseVideo = True + PlayRandomJOI() + End If - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + StringClean = StringClean.Replace("@PlayJOIVideo", "") - ssh.TeaseVideo = True - PlayRandomJOI() End If - StringClean = StringClean.Replace("@PlayJOIVideo", "") + If StringClean.Contains("@PlayCHVideo") Then - End If + If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then - If StringClean.Contains("@PlayCHVideo") Then + ssh.TeaseVideo = True + PlayRandomCH() + End If - If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then + StringClean = StringClean.Replace("@PlayCHVideo", "") - ssh.TeaseVideo = True - PlayRandomCH() End If - StringClean = StringClean.Replace("@PlayCHVideo", "") - - End If + If StringClean.Contains("@GiveUpCheck") Then - If StringClean.Contains("@GiveUpCheck") Then + If ssh.AskedToGiveUpSection = True Then - If ssh.AskedToGiveUpSection = True Then + If ssh.SubGaveUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" + Else + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" + End If + 'StringClean = ResponseClean(StringClean) - If ssh.SubGaveUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" Else - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" - End If - 'StringClean = ResponseClean(StringClean) - Else - - ssh.AskedToGiveUpSection = True - ssh.AskedToGiveUp = True + ssh.AskedToGiveUpSection = True + ssh.AskedToGiveUp = True - Dim GiveUpCheck As Integer + Dim GiveUpCheck As Integer - If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 - If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 - If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 - If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 - If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 + If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 + If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 + If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 + If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 + If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 - Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) - 'If GiveUpVal > GiveUpCheck Then - If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then - ' you can give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + 'If GiveUpVal > GiveUpCheck Then + If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then + ' you can give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.SubGaveUp = True + If ssh.TasksCount >= 1 Then ssh.TasksCount = 0 + 'ssh.FirstRound = False + Else + ' you can't give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" End If - ssh.SubGaveUp = True - If ssh.TasksCount >= 1 Then ssh.TasksCount = 0 - 'ssh.FirstRound = False - Else - ' you can't give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" - End If - - - End If - - StringClean = ResponseClean(StringClean) - - End If - If StringClean.Contains("@EndTease") Then - SetVariable("SYS_SubLeftEarly", 0) - 'My.Settings.Sys_SubLeftEarly = 0 - 'StopEverything() - 'ResetButton() - SaveChatLog(False) - ssh.Reset() - FrmSettings.LockOrgasmChances(False) - ssh.DomTask = "@SystemMessage Tease AI has been reset" - ssh.DomChat = "@SystemMessage Tease AI has been reset" - setStartName() - StringClean = StringClean.Replace("@EndTease", "") - End If + End If - If StringClean.Contains("@FinishTease") Then - ssh.TeaseTick = 0 - StringClean = StringClean.Replace("@FinishTease", "") - End If + StringClean = ResponseClean(StringClean) - If StringClean.Contains("@DommeLevelDown") Then - If FrmSettings.domlevelNumBox.Value > 1 Then - FrmSettings.domlevelNumBox.Value -= 1 End If - StringClean = StringClean.Replace("@DommeLevelDown", "") - End If - If StringClean.Contains("@ApathyLevelDown") Then - If FrmSettings.NBEmpathy.Value > 1 Then - FrmSettings.NBEmpathy.Value -= 1 - End If - StringClean = StringClean.Replace("@ApathyLevelDown", "") - End If - If StringClean.Contains("@DommeLevelUp") Then - If FrmSettings.domlevelNumBox.Value < 5 Then - FrmSettings.domlevelNumBox.Value += 1 + If StringClean.Contains("@EndTease") Then + SetVariable("SYS_SubLeftEarly", 0) + 'My.Settings.Sys_SubLeftEarly = 0 + 'StopEverything() + 'ResetButton() + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + ssh.DomTask = "@SystemMessage Tease AI has been reset" + ssh.DomChat = "@SystemMessage Tease AI has been reset" + setStartName() + StringClean = StringClean.Replace("@EndTease", "") End If - StringClean = StringClean.Replace("@DommeLevelUp", "") - End If - If StringClean.Contains("@ApathyLevelUp") Then - If FrmSettings.NBEmpathy.Value < 5 Then - FrmSettings.NBEmpathy.Value += 1 + If StringClean.Contains("@FinishTease") Then + ssh.TeaseTick = 0 + StringClean = StringClean.Replace("@FinishTease", "") End If - StringClean = StringClean.Replace("@ApathyLevelUp", "") - End If - - If StringClean.Contains("@InterruptLongEdge") Then - ssh.isLink = False - ssh.BeforeTease = False - Dim EdgeList As New List(Of String) - - For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - EdgeList.Add(EdgeFile) - Next - - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - - If EdgeList.Count > 0 Then - GotoClear() - - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + If StringClean.Contains("@DommeLevelDown") Then + If FrmSettings.domlevelNumBox.Value > 1 Then + FrmSettings.domlevelNumBox.Value -= 1 End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True - - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + StringClean = StringClean.Replace("@DommeLevelDown", "") End If - StringClean = StringClean.Replace("@InterruptLongEdge", "") - ssh.JustShowedBlogImage = True - End If - If StringClean.Contains("@InterruptStartStroking") Then - ssh.isLink = False - ssh.BeforeTease = False - If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then - StringClean = "Ask me later" - GoTo VTSkip + If StringClean.Contains("@ApathyLevelDown") Then + If FrmSettings.NBEmpathy.Value > 1 Then + FrmSettings.NBEmpathy.Value -= 1 + End If + StringClean = StringClean.Replace("@ApathyLevelDown", "") End If - Dim StrokeList As New List(Of String) - - For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - StrokeList.Add(StrokeFile) - Next - - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - - If StrokeList.Count > 0 Then - - GotoClear() - - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + If StringClean.Contains("@DommeLevelUp") Then + If FrmSettings.domlevelNumBox.Value < 5 Then + FrmSettings.domlevelNumBox.Value += 1 End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True + StringClean = StringClean.Replace("@DommeLevelUp", "") + End If - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + If StringClean.Contains("@ApathyLevelUp") Then + If FrmSettings.NBEmpathy.Value < 5 Then + FrmSettings.NBEmpathy.Value += 1 + End If + StringClean = StringClean.Replace("@ApathyLevelUp", "") End If - StringClean = StringClean.Replace("@InterruptStartStroking", "") - ssh.JustShowedBlogImage = True - End If - If StringClean.Contains("@Interrupt(") Then - ssh.isLink = False - ssh.BeforeTease = False - Dim InterruptClean As String = StringClean - Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 - For i As Integer = 1 To StartIndex - InterruptClean = InterruptClean.Remove(0, 1) - Next - Dim InterruptS As String() = InterruptClean.Split(")") - InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" + If StringClean.Contains("@InterruptLongEdge") Then + ssh.isLink = False + ssh.BeforeTease = False + Dim EdgeList As New List(Of String) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then + For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + EdgeList.Add(EdgeFile) + Next - GotoClear() + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - ssh.FirstRound = False - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.MultiTauntPictureHold = False - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() + If EdgeList.Count > 0 Then - 'if we use an interrupt we have to clear all the values stored in the @CallReturn array because @Interrupts stop everything - 'and then moves to a link (otherwise we'd have the program going back to these @CallReturn the next time a new @CallReturn is called) - ssh.CallReturns.Clear() + GotoClear() + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - ssh.FileText = InterruptClean - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True - - Else - MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + StringClean = StringClean.Replace("@InterruptLongEdge", "") + ssh.JustShowedBlogImage = True End If - StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") - 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") - ssh.JustShowedBlogImage = True - End If - - If StringClean.Contains("@BookmarkModule") Then - ssh.BookmarkModule = True - ssh.BookmarkModuleFile = ssh.FileText - ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkModule", "") - End If - If StringClean.Contains("@BookmarkLink") Then - ssh.BookmarkLink = True - ssh.BookmarkLinkFile = ssh.FileText - ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkLink", "") - End If - - If StringClean.Contains("@AFKOn") Then - ssh.AFK = True - StringClean = StringClean.Replace("@AFKOn", "") - End If - - If StringClean.Contains("@AFKOff") Then - ssh.AFK = False - StringClean = StringClean.Replace("@AFKOff", "") - End If + If StringClean.Contains("@InterruptStartStroking") Then + ssh.isLink = False + ssh.BeforeTease = False + If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then + StringClean = "Ask me later" + GoTo VTSkip + End If - If StringClean.Contains("@Wait(") Then + Dim StrokeList As New List(Of String) - Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") - Dim WaitSeconds As Integer = Val(WaitFlag) + For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + StrokeList.Add(StrokeFile) + Next - If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 - If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - ssh.WaitTick = WaitSeconds - WaitTimer.Start() + If StrokeList.Count > 0 Then - StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") + GotoClear() - End If + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + StringClean = StringClean.Replace("@InterruptStartStroking", "") + ssh.JustShowedBlogImage = True + End If + If StringClean.Contains("@Interrupt(") Then + ssh.isLink = False + ssh.BeforeTease = False + Dim InterruptClean As String = StringClean + Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 + For i As Integer = 1 To StartIndex + InterruptClean = InterruptClean.Remove(0, 1) + Next + Dim InterruptS As String() = InterruptClean.Split(")") + InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" - If StringClean.Contains("@SendDailyTasks") Then - CreateTaskLetter() - StringClean = StringClean.Replace("@SendDailyTasks", "") - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then - If StringClean.Contains("@EdgingHold") Then + GotoClear() - 'ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - ssh.SubHoldingEdge = True - EdgeTauntTimer.Stop() - ssh.DomChat = "#HoldTheEdge" - TypingDelay() + ssh.FirstRound = False + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.MultiTauntPictureHold = False + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() - ssh.HoldEdgeTick = ssh.HoldEdgeChance + 'if we use an interrupt we have to clear all the values stored in the @CallReturn array because @Interrupts stop everything + 'and then moves to a link (otherwise we'd have the program going back to these @CallReturn the next time a new @CallReturn is called) + ssh.CallReturns.Clear() - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + ssh.FileText = InterruptClean + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - If ssh.ExtremeHold = True Then - HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 + Else + MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") + 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") + ssh.JustShowedBlogImage = True End If - If ssh.LongHold = True Then - HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 + If StringClean.Contains("@BookmarkModule") Then + ssh.BookmarkModule = True + ssh.BookmarkModuleFile = ssh.FileText + ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkModule", "") End If + If StringClean.Contains("@BookmarkLink") Then + ssh.BookmarkLink = True + ssh.BookmarkLinkFile = ssh.FileText + ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkLink", "") + End If - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - - ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + If StringClean.Contains("@AFKOn") Then + ssh.AFK = True + StringClean = StringClean.Replace("@AFKOn", "") + End If - ssh.HoldEdgeTime = 0 + If StringClean.Contains("@AFKOff") Then + ssh.AFK = False + StringClean = StringClean.Replace("@AFKOff", "") + End If - HoldEdgeTimer.Start() - HoldEdgeTauntTimer.Start() + If StringClean.Contains("@Wait(") Then - 'Do - 'Application.DoEvents() - 'Loop Until ssh.DomTypeCheck = False + Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") + Dim WaitSeconds As Integer = Val(WaitFlag) + If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 + If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 - StringClean = StringClean.Replace("@EdgingHold", "") - End If + ssh.WaitTick = WaitSeconds + WaitTimer.Start() - If StringClean.Contains("@EdgingStop") Then + StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() - ssh.DomChat = "#StopStrokingEdge" - TypingDelay() + End If - StringClean = StringClean.Replace("@EdgingStop", "") - End If - 'Github Patch If StringClean.Contains("@EdgingDecide") Then - If StringClean.Contains("@DecideEdge") Then - ssh.TempVal = ssh.randomizer.Next(0, 101) + If StringClean.Contains("@SendDailyTasks") Then + CreateTaskLetter() + StringClean = StringClean.Replace("@SendDailyTasks", "") + End If - If ssh.TempVal < 51 Then + If StringClean.Contains("@EdgingHold") Then - ssh.DomTypeCheck = True + 'ssh.DomTypeCheck = True ssh.SubEdging = False ssh.SubStroking = False ssh.SubHoldingEdge = True EdgeTauntTimer.Stop() - StrokePace = 0 ssh.DomChat = "#HoldTheEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #HoldTheEdge" - ' Github Patch Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #HoldTheEdge" - ' Github Patch Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #HoldTheEdge" - ' Github Patch Contact3Stroke = False - End If TypingDelay() ssh.HoldEdgeTick = ssh.HoldEdgeChance @@ -11140,6 +11067,17 @@ OrgasmDecided: Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + If ssh.ExtremeHold = True Then + HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 + End If + + If ssh.LongHold = True Then + HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 + End If + + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) @@ -11150,532 +11088,565 @@ OrgasmDecided: HoldEdgeTimer.Start() HoldEdgeTauntTimer.Start() - Else + 'Do + 'Application.DoEvents() + 'Loop Until ssh.DomTypeCheck = False + + + StringClean = StringClean.Replace("@EdgingHold", "") + End If + + If StringClean.Contains("@EdgingStop") Then ssh.DomTypeCheck = True ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() ssh.DomChat = "#StopStrokingEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #StopStrokingEdge" - ssh.Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #StopStrokingEdge" - ssh.Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #StopStrokingEdge" - ssh.Contact3Stroke = False - End If TypingDelay() + StringClean = StringClean.Replace("@EdgingStop", "") End If - 'Do - 'Application.DoEvents() - 'Loop Until ssh.DomTypeCheck = False + 'Github Patch If StringClean.Contains("@EdgingDecide") Then + If StringClean.Contains("@DecideEdge") Then + ssh.TempVal = ssh.randomizer.Next(0, 101) - StringClean = StringClean.Replace("@DecideEdge", "") - End If + If ssh.TempVal < 51 Then - If StringClean.Contains("@CheckVideo") Then - ssh.VideoCheck = True - RandomVideo() - If ssh.NoVideo = True Then - ssh.FileGoto = "(No Videos Found)" - Else - ssh.FileGoto = "(Videos Found)" - End If - ssh.VideoCheck = False - ssh.NoVideo = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckVideo", "") - End If + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + ssh.SubHoldingEdge = True + EdgeTauntTimer.Stop() + StrokePace = 0 + ssh.DomChat = "#HoldTheEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #HoldTheEdge" + ' Github Patch Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #HoldTheEdge" + ' Github Patch Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #HoldTheEdge" + ' Github Patch Contact3Stroke = False + End If + TypingDelay() - If StringClean.Contains("@PlayCensorshipSucks") Then + ssh.HoldEdgeTick = ssh.HoldEdgeChance - If StringClean.Contains("@PlayCensorshipSucks[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") - selectVideo(videoFlag) - StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") - Else + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + + ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + + ssh.HoldEdgeTime = 0 + + HoldEdgeTimer.Start() + HoldEdgeTauntTimer.Start() + + Else + + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() + ssh.DomChat = "#StopStrokingEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #StopStrokingEdge" + ssh.Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #StopStrokingEdge" + ssh.Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #StopStrokingEdge" + ssh.Contact3Stroke = False + End If + TypingDelay() + + End If + + 'Do + 'Application.DoEvents() + 'Loop Until ssh.DomTypeCheck = False + + + StringClean = StringClean.Replace("@DecideEdge", "") + End If + + If StringClean.Contains("@CheckVideo") Then + ssh.VideoCheck = True RandomVideo() - StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + If ssh.NoVideo = True Then + ssh.FileGoto = "(No Videos Found)" + Else + ssh.FileGoto = "(Videos Found)" + End If + ssh.VideoCheck = False + ssh.NoVideo = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckVideo", "") End If - If ssh.NoVideo = False Then - ssh.ScriptVideoTease = "Censorship Sucks" - ssh.ScriptVideoTeaseFlag = True - ssh.ScriptVideoTeaseFlag = False - ssh.CensorshipGame = True - ssh.VideoTease = True - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - CensorshipTimer.Start() + If StringClean.Contains("@PlayCensorshipSucks") Then + + If StringClean.Contains("@PlayCensorshipSucks[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") + Else + RandomVideo() + StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + End If + + If ssh.NoVideo = False Then + ssh.ScriptVideoTease = "Censorship Sucks" + ssh.ScriptVideoTeaseFlag = True + ssh.ScriptVideoTeaseFlag = False + ssh.CensorshipGame = True + ssh.VideoTease = True + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + CensorshipTimer.Start() + End If + + StringClean = StringClean.Replace("@PlayCensorshipSucks", "") End If - StringClean = StringClean.Replace("@PlayCensorshipSucks", "") - End If + If StringClean.Contains("@VitalSubAssignment") Then + ' Read all lines of the given file. + Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") - If StringClean.Contains("@VitalSubAssignment") Then - ' Read all lines of the given file. - Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") + Dim TempAssign As String - Dim TempAssign As String + Try + AssignList = FilterList(AssignList) + TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) + Catch + TempAssign = "ERROR: VitalSub Assign" + End Try - Try - AssignList = FilterList(AssignList) - TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) - Catch - TempAssign = "ERROR: VitalSub Assign" - End Try + Dim TempArray As String() = Split(TempAssign) - Dim TempArray As String() = Split(TempAssign) + For i As Integer = TempArray.Count - 1 To 0 Step -1 + If TempArray(i).Contains("@") Then TempArray(i) = "" + Next - For i As Integer = TempArray.Count - 1 To 0 Step -1 - If TempArray(i).Contains("@") Then TempArray(i) = "" - Next + CLBExercise.Items.Add(TempAssign) + SaveExercise() + CBVitalSubDomTask.Checked = False + My.Settings.VitalSubAssignments = False + StringClean = StringClean.Replace("@VitalSubAssignment", "") + End If - CLBExercise.Items.Add(TempAssign) - SaveExercise() - CBVitalSubDomTask.Checked = False - My.Settings.VitalSubAssignments = False - StringClean = StringClean.Replace("@VitalSubAssignment", "") - End If + If StringClean.Contains("@PlayAvoidTheEdge") Then + ' #### Reboot + If StringClean.Contains("@PlayAvoidTheEdge[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") + Else + RandomVideo() + StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") + End If + + If ssh.NoVideo = False Then + + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "Avoid The Edge" + ssh.ScriptVideoTeaseFlag = True + ssh.AvoidTheEdgeStroking = True + ssh.AvoidTheEdgeGame = True + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + AvoidTheEdgeTaunts.Start() + + End If - If StringClean.Contains("@PlayAvoidTheEdge") Then - ' #### Reboot - If StringClean.Contains("@PlayAvoidTheEdge[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") - selectVideo(videoFlag) - StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") - Else - RandomVideo() StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") End If - If ssh.NoVideo = False Then - + If StringClean.Contains("@ResumeAvoidTheEdge") Then + DomWMP.Ctlcontrols.play() ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "Avoid The Edge" - ssh.ScriptVideoTeaseFlag = True ssh.AvoidTheEdgeStroking = True - ssh.AvoidTheEdgeGame = True - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True + ssh.SubStroking = True ssh.StartStrokingCount += 1 + ssh.VideoTease = True StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) StrokePace = 50 * Math.Round(StrokePace / 50) ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() - + StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") End If - StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") - End If - - If StringClean.Contains("@ResumeAvoidTheEdge") Then - DomWMP.Ctlcontrols.play() - ScriptTimer.Stop() - ssh.AvoidTheEdgeStroking = True - ssh.SubStroking = True - ssh.StartStrokingCount += 1 - ssh.VideoTease = True - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - AvoidTheEdgeTaunts.Start() - StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") - End If - - If StringClean.Contains("@PlayRedLightGreenLight") Then - ' #### Reboot - If StringClean.Contains("@PlayRedLightGreenLight[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") - selectVideo(videoFlag) - StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") - Else - RandomVideo() - StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") - End If + If StringClean.Contains("@PlayRedLightGreenLight") Then + ' #### Reboot + If StringClean.Contains("@PlayRedLightGreenLight[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") + Else + RandomVideo() + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") + End If - If ssh.NoVideo = False Then + If ssh.NoVideo = False Then - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "RLGL" - ssh.ScriptVideoTeaseFlag = True - 'AvoidTheEdgeStroking = True - ssh.RLGLGame = True - - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - RLGLTimer.Start() - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - 'VideoTauntTick = randomizer.Next(20, 31) - 'VideoTauntTimer.Start() + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "RLGL" + ssh.ScriptVideoTeaseFlag = True + 'AvoidTheEdgeStroking = True + ssh.RLGLGame = True + + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + RLGLTimer.Start() + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + 'VideoTauntTick = randomizer.Next(20, 31) + 'VideoTauntTimer.Start() + End If + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") End If - StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") - End If - If StringClean.Contains("@PlayVideo[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") - selectVideo(videoFlag) + If StringClean.Contains("@PlayVideo[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") + selectVideo(videoFlag) - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + + StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") End If - StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") - End If + If StringClean.Contains("@PlayAudio[") Then - If StringClean.Contains("@PlayAudio[") Then + Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") + ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag + Dim AudioClean As String - Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") - ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag - Dim AudioClean As String + If AudioFlag.Contains(":\") Then + AudioClean = AudioFlag + Else + AudioClean = Application.StartupPath & "\Audio\" & AudioFlag + AudioClean = AudioClean.Replace("\\", "\") + End If - If AudioFlag.Contains(":\") Then - AudioClean = AudioFlag - Else - AudioClean = Application.StartupPath & "\Audio\" & AudioFlag - AudioClean = AudioClean.Replace("\\", "\") - End If + If AudioClean.Contains("*") Then - If AudioClean.Contains("*") Then + Dim AudioList As New List(Of String) - Dim AudioList As New List(Of String) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) + AudioList.Add(foundFile) + Next - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) - AudioList.Add(foundFile) - Next + If AudioList.Count > 0 Then + DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) + Else + MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If - If AudioList.Count > 0 Then - DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) Else - MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If - Else + If File.Exists(AudioClean) Then + DomWMP.URL = AudioClean + Else + MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If - If File.Exists(AudioClean) Then - DomWMP.URL = AudioClean - Else - MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - End If - ExternalAudio: - StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") + StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") - End If + End If - If StringClean.Contains("@PlayVideo(") Then + If StringClean.Contains("@PlayVideo(") Then - Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") - Dim VidInt As Integer = Val(VidFlag) - If UCase(VidFlag).Contains("M") Then VidInt *= 60 + Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") + Dim VidInt As Integer = Val(VidFlag) + If UCase(VidFlag).Contains("M") Then VidInt *= 60 - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - ssh.RandomizerVideo = True - RandomVideo() + ssh.RandomizerVideo = True + RandomVideo() - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - ssh.VideoTick = VidInt - VideoTimer.Start() - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + ssh.VideoTick = VidInt + VideoTimer.Start() + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") End If - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") - End If + If StringClean.Contains("@PlayVideo") Then - If StringClean.Contains("@PlayVideo") Then + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + ssh.RandomizerVideo = True + RandomVideo() - ssh.RandomizerVideo = True - RandomVideo() + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") End If - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") - End If - - If StringClean.Contains("@JumpVideo") Then + If StringClean.Contains("@JumpVideo") Then - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - Debug.Print("VidLow = " & VidLow) - Debug.Print("VidHigh = " & VidHigh) - Debug.Print("VidPoint = " & VidPoint) + Debug.Print("VidLow = " & VidLow) + Debug.Print("VidHigh = " & VidHigh) + Debug.Print("VidPoint = " & VidPoint) - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + End If + StringClean = StringClean.Replace("@JumpVideo", "") End If - StringClean = StringClean.Replace("@JumpVideo", "") - End If - If StringClean.Contains("@AddStrokeTime(") Then + If StringClean.Contains("@AddStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + End If + ssh.StrokeTick += StrokeSeconds End If - ssh.StrokeTick += StrokeSeconds + StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@RemoveStrokeTime(") Then + If StringClean.Contains("@RemoveStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 + End If + ssh.StrokeTick -= StrokeSeconds + If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 End If - ssh.StrokeTick -= StrokeSeconds - If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 + StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@AddStrokeTime") Then - If StrokeTimer.Enabled = True Then - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + If StringClean.Contains("@AddStrokeTime") Then + If StrokeTimer.Enabled = True Then + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + End If End If + StringClean = StringClean.Replace("@AddStrokeTime", "") End If - StringClean = StringClean.Replace("@AddStrokeTime", "") - End If - - If StringClean.Contains("@RemoveStrokeTime") Then - If StrokeTimer.Enabled = True Then - ssh.StrokeTick -= ssh.StrokeTick / 2 - End If - StringClean = StringClean.Replace("@RemoveStrokeTime", "") - End If - - - If StringClean.Contains("@AddEdgeHoldTime(") Then - - Dim OriginalFlag As String = "" - If HoldEdgeTimer.Enabled = True Then - - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer - - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + If StringClean.Contains("@RemoveStrokeTime") Then + If StrokeTimer.Enabled = True Then + ssh.StrokeTick -= ssh.StrokeTick / 2 End If - ssh.HoldEdgeTick += HoldEdgeSeconds + StringClean = StringClean.Replace("@RemoveStrokeTime", "") End If - StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@RemoveEdgeHoldTime(") Then - Dim OriginalFlag As String = "" + If StringClean.Contains("@AddEdgeHoldTime(") Then - If HoldEdgeTimer.Enabled = True Then + Dim OriginalFlag As String = "" - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer + If HoldEdgeTimer.Enabled = True Then - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer + + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + End If + ssh.HoldEdgeTick += HoldEdgeSeconds End If - ssh.HoldEdgeTick -= HoldEdgeSeconds - If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 + StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") - End If - - If StringClean.Contains("@AddEdgeHoldTime") Then - - If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + If StringClean.Contains("@RemoveEdgeHoldTime(") Then - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + Dim OriginalFlag As String = "" - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + If HoldEdgeTimer.Enabled = True Then - ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - End If - StringClean = StringClean.Replace("@AddEdgeHoldTime", "") - End If + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer - If StringClean.Contains("@RemoveEdgeHoldTime") Then - If HoldEdgeTimer.Enabled = True Then - ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 + End If + ssh.HoldEdgeTick -= HoldEdgeSeconds + If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 + End If + StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") - End If - If StringClean.Contains("@AddTeaseTime(") Then - Dim OriginalFlag As String = "" - 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun - 'If TeaseTimer.Enabled = True Then + If StringClean.Contains("@AddEdgeHoldTime") Then - Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") - OriginalFlag = TeaseFlag - Dim TeaseSeconds As Integer + If HoldEdgeTimer.Enabled = True Then + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - If TeaseFlag.Contains(",") Then - TeaseFlag = FixCommas(TeaseFlag) - Dim TeaseFlagArray As String() = TeaseFlag.Split(",") - Dim Tease1 As Integer = Val(TeaseFlagArray(0)) - Dim Tease2 As Integer = Val(TeaseFlagArray(1)) - If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 - If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 - If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 - If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 - TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) - Else - TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + End If + StringClean = StringClean.Replace("@AddEdgeHoldTime", "") End If - ssh.TeaseTick += TeaseSeconds - If ssh.LastScript Then ssh.LastScript = False - If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True - StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@RemoveTeaseTime(") Then + If StringClean.Contains("@RemoveEdgeHoldTime") Then + If HoldEdgeTimer.Enabled = True Then + ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + End If + StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") + End If - Dim OriginalFlag As String = "" + If StringClean.Contains("@AddTeaseTime(") Then - If TeaseTimer.Enabled = True Then + Dim OriginalFlag As String = "" + 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun + 'If TeaseTimer.Enabled = True Then - Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") + Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") OriginalFlag = TeaseFlag Dim TeaseSeconds As Integer @@ -11691,511 +11662,579 @@ ExternalAudio: TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) Else TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + + End If - ssh.TeaseTick -= TeaseSeconds - If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 + ssh.TeaseTick += TeaseSeconds + If ssh.LastScript Then ssh.LastScript = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True + StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") End If - StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@AddTeaseTime") Then - 'same as before about the teasetimer - ' If TeaseTimer.Enabled = True Then - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + If StringClean.Contains("@RemoveTeaseTime(") Then + + Dim OriginalFlag As String = "" + + If TeaseTimer.Enabled = True Then + + Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") + OriginalFlag = TeaseFlag + Dim TeaseSeconds As Integer + If TeaseFlag.Contains(",") Then + TeaseFlag = FixCommas(TeaseFlag) + Dim TeaseFlagArray As String() = TeaseFlag.Split(",") + Dim Tease1 As Integer = Val(TeaseFlagArray(0)) + Dim Tease2 As Integer = Val(TeaseFlagArray(1)) + If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 + If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 + If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 + If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 + TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) + Else + TeaseSeconds = Val(TeaseFlag) + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + End If + ssh.TeaseTick -= TeaseSeconds + If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 + End If + StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") End If - If ssh.LastScript Then ssh.LastScript = False - If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True - StringClean = StringClean.Replace("@AddTeaseTime", "") - End If - If StringClean.Contains("@RemoveTeaseTime") Then - If TeaseTimer.Enabled = True Then - ssh.TeaseTick = ssh.TeaseTick / 2 + If StringClean.Contains("@AddTeaseTime") Then + 'same as before about the teasetimer + ' If TeaseTimer.Enabled = True Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + + End If + If ssh.LastScript Then ssh.LastScript = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True + StringClean = StringClean.Replace("@AddTeaseTime", "") End If - StringClean = StringClean.Replace("@RemoveTeaseTime", "") - End If - If StringClean.Contains("@PlaylistOff") Then - ssh.Playlist = False - StringClean = StringClean.Replace("@PlaylistOff", "") - End If + If StringClean.Contains("@RemoveTeaseTime") Then + If TeaseTimer.Enabled = True Then + ssh.TeaseTick = ssh.TeaseTick / 2 + End If + StringClean = StringClean.Replace("@RemoveTeaseTime", "") + End If - If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then - ssh.RapidFire = True - StringClean = StringClean.Replace("@RapidTextOn", "") - StringClean = StringClean.Replace("@RTOn", "") - End If + If StringClean.Contains("@PlaylistOff") Then + ssh.Playlist = False + StringClean = StringClean.Replace("@PlaylistOff", "") + End If - If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("@RTOff") Then - ssh.RapidFire = False - StringClean = StringClean.Replace("@RapidTextOff", "") - StringClean = StringClean.Replace("@RTOff", "") - End If + If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then + ssh.RapidFire = True + StringClean = StringClean.Replace("@RapidTextOn", "") + StringClean = StringClean.Replace("@RTOn", "") + End If - If StringClean.Contains("@VoiceOn") Then - FrmSettings.TTSCheckBox.Checked = True - StringClean = StringClean.Replace("@VoiceOn", "") - End If + If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("@RTOff") Then + ssh.RapidFire = False + StringClean = StringClean.Replace("@RapidTextOff", "") + StringClean = StringClean.Replace("@RTOff", "") + End If - If StringClean.Contains("@VoiceOff") Then - FrmSettings.TTSCheckBox.Checked = False - StringClean = StringClean.Replace("@VoiceOff", "") - End If + If StringClean.Contains("@VoiceOn") Then + FrmSettings.TTSCheckBox.Checked = True + StringClean = StringClean.Replace("@VoiceOn", "") + End If - If StringClean.Contains("@GlitterTease1") Then - ssh.glitterDommeNumber = 1 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@GlitterTease1", "") - End If + If StringClean.Contains("@VoiceOff") Then + FrmSettings.TTSCheckBox.Checked = False + StringClean = StringClean.Replace("@VoiceOff", "") + End If - If StringClean.Contains("@GlitterTease2") Then - ssh.glitterDommeNumber = 2 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@GlitterTease2", "") - End If + If StringClean.Contains("@GlitterTease1") Then + ssh.glitterDommeNumber = 1 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease1", "") + End If - If StringClean.Contains("@GlitterTease3") Then - ssh.glitterDommeNumber = 3 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@GlitterTease3", "") - End If + If StringClean.Contains("@GlitterTease2") Then + ssh.glitterDommeNumber = 2 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease2", "") + End If - If StringClean.Contains("@DommeTease") Then - ssh.glitterDommeNumber = 0 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@DommeTease", "") - End If + If StringClean.Contains("@GlitterTease3") Then + ssh.glitterDommeNumber = 3 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease3", "") + End If - If StringClean.Contains("@RandomTease") Then - ssh.glitterDommeNumber = 4 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@RandomTease", "") - End If + If StringClean.Contains("@DommeTease") Then + ssh.glitterDommeNumber = 0 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@DommeTease", "") + End If - If StringClean.Contains("@SetDomme(") Then + If StringClean.Contains("@RandomTease") Then + ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@RandomTease", "") + End If - Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") - ssh.glitterDommeNumber = 0 - If DommeFlag.Contains("1") Then ssh.glitterDommeNumber = 1 - If DommeFlag.Contains("2") Then ssh.glitterDommeNumber = 2 - If DommeFlag.Contains("3") Then ssh.glitterDommeNumber = 3 - If DommeFlag.Contains("0") Or DommeFlag.ToLower.Contains("domme") Then ssh.glitterDommeNumber = 0 - If DommeFlag.Contains("4") Or DommeFlag.ToLower.Contains("random") Then ssh.glitterDommeNumber = 4 - LoadDommeImageFolder() + If StringClean.Contains("@SetDomme(") Then - StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") - End If + Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") + ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("1") Then ssh.glitterDommeNumber = 1 + If DommeFlag.Contains("2") Then ssh.glitterDommeNumber = 2 + If DommeFlag.Contains("3") Then ssh.glitterDommeNumber = 3 + If DommeFlag.Contains("0") Or DommeFlag.ToLower.Contains("domme") Then ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("4") Or DommeFlag.ToLower.Contains("random") Then ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() - If StringClean.Contains("@AddContact1") Then - If Not ssh.contact1Present Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) - ssh.contact1Present = True - 'ssh.AddContactTick = 2 - Contact1Timer.Start() + StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) - StringClean = StringClean.Replace("@AddContact1", "") - End If - If StringClean.Contains("@RemoveContact1") Then - 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) - ssh.contact1Present = False - 'ssh.AddContactTick = 2 - Contact1Timer.Start() + If StringClean.Contains("@AddContact1") Then + If Not ssh.contact1Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) + ssh.contact1Present = True + 'ssh.AddContactTick = 2 + Contact1Timer.Start() + End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) + StringClean = StringClean.Replace("@AddContact1", "") End If - StringClean = StringClean.Replace("@RemoveContact1", "") - End If - If StringClean.Contains("@AddContact2") Then - If Not ssh.contact2Present Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) - ssh.contact2Present = True - 'ssh.AddContactTick = 2 - Contact2Timer.Start() + If StringClean.Contains("@RemoveContact1") Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) + ssh.contact1Present = False + 'ssh.AddContactTick = 2 + Contact1Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact1", "") End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) - StringClean = StringClean.Replace("@AddContact2", "") - End If - If StringClean.Contains("@RemoveContact2") Then - 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) - ssh.contact2Present = False - ssh.AddContactTick = 2 - Contact2Timer.Start() + If StringClean.Contains("@AddContact2") Then + If Not ssh.contact2Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) + ssh.contact2Present = True + 'ssh.AddContactTick = 2 + Contact2Timer.Start() + End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) + StringClean = StringClean.Replace("@AddContact2", "") End If - StringClean = StringClean.Replace("@RemoveContact2", "") - End If - If StringClean.Contains("@AddContact3") Then - If Not ssh.contact3Present Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) - ssh.contact3Present = True - 'ssh.AddContactTick = 2 - Contact3Timer.Start() + If StringClean.Contains("@RemoveContact2") Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) + ssh.contact2Present = False + ssh.AddContactTick = 2 + Contact2Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact2", "") End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) - StringClean = StringClean.Replace("@AddContact3", "") - End If - If StringClean.Contains("@RemoveContact3") Then - 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) - ssh.contact3Present = False - 'ssh.AddContactTick = 2 - Contact3Timer.Start() + If StringClean.Contains("@AddContact3") Then + If Not ssh.contact3Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) + ssh.contact3Present = True + 'ssh.AddContactTick = 2 + Contact3Timer.Start() + End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) + StringClean = StringClean.Replace("@AddContact3", "") End If - StringClean = StringClean.Replace("@RemoveContact3", "") - End If - If StringClean.Contains("@AddDomme") Then - If Not ssh.dommePresent Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) - ssh.dommePresent = True - 'ssh.AddContactTick = 2 - DommeTimer.Start() + If StringClean.Contains("@RemoveContact3") Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) + ssh.contact3Present = False + 'ssh.AddContactTick = 2 + Contact3Timer.Start() + End If + StringClean = StringClean.Replace("@RemoveContact3", "") End If - StringClean = StringClean.Replace("@AddDomme", "") - End If + If StringClean.Contains("@AddDomme") Then + If Not ssh.dommePresent Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) + ssh.dommePresent = True + 'ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@AddDomme", "") - If StringClean.Contains("@RemoveDomme") Then - 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present - If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) - ssh.dommePresent = False - 'ssh.AddContactTick = 2 - DommeTimer.Start() End If - StringClean = StringClean.Replace("@RemoveDomme", "") - End If - - If StringClean.Contains("@NullResponse") Then - ssh.NullResponse = True - StringClean = StringClean.Replace("@NullResponse", "") - 'Debug.Print("NullResponse Called") - End If -VTSkip: + If StringClean.Contains("@RemoveDomme") Then + 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present + If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) + ssh.dommePresent = False + 'ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@RemoveDomme", "") + End If - If StringClean.Contains("@SpeedUpCheck") Then + If StringClean.Contains("@NullResponse") Then + ssh.NullResponse = True + StringClean = StringClean.Replace("@NullResponse", "") + 'Debug.Print("NullResponse Called") + End If - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" - StringClean = ResponseClean(StringClean) +VTSkip: - Else + If StringClean.Contains("@SpeedUpCheck") Then - If StrokePace < 201 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" StringClean = ResponseClean(StringClean) Else - Dim SpeedUpCheck As Integer + If StrokePace < 201 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + StringClean = ResponseClean(StringClean) - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + Else - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpCheck As Integer - If SpeedUpVal > SpeedUpCheck Then + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - Else + If SpeedUpVal > SpeedUpCheck Then - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" - End If + Else - StringClean = ResponseClean(StringClean) + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" - End If + End If - End If + StringClean = ResponseClean(StringClean) - StringClean = StringClean.Replace("@SpeedUpCheck", "") - GoTo RinseLatherRepeat - End If + End If + End If - If StringClean.Contains("@SlowDownCheck") Then + StringClean = StringClean.Replace("@SpeedUpCheck", "") + GoTo RinseLatherRepeat + End If - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" - StringClean = ResponseClean(StringClean) - Else + If StringClean.Contains("@SlowDownCheck") Then - If StrokePace > 999 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" StringClean = ResponseClean(StringClean) Else - Dim SpeedUpCheck As Integer + If StrokePace > 999 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" + StringClean = ResponseClean(StringClean) - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + Else - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpCheck As Integer - If SpeedUpVal > SpeedUpCheck Then + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - Else + If SpeedUpVal > SpeedUpCheck Then - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" - End If + Else - StringClean = ResponseClean(StringClean) + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + + End If + + StringClean = ResponseClean(StringClean) + + End If End If + StringClean = StringClean.Replace("@SlowDownCheck", "") + GoTo RinseLatherRepeat + End If - StringClean = StringClean.Replace("@SlowDownCheck", "") - GoTo RinseLatherRepeat - - End If - - - If StringClean.Contains("@PlayRiskyPick") Then - ssh.RiskyDeal = True - 'FrmCardList.RiskyRound += 1 - FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - FrmCardList.InitializeRiskyDeal() - StringClean = StringClean.Replace("@PlayRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@ChooseRiskyPick") Then - ssh.RiskyDelay = True - If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True - If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True - If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True - If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True - If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True - If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True - If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True - If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True - If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True - If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True - - If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True - If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True - If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True - If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True - If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True - If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True - If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True - If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True - If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True - If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True - - If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True - If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True - If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True - If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True - - FrmCardList.RiskyChoiceCount = 0 - FrmCardList.RiskyRound += 1 - FrmCardList.RiskyPickCount = 0 - FrmCardList.RiskyChoices.Clear() - FrmCardList.ClearCaseLabelsOffer() - 'FrmCardList.Show() - 'FrmCardList.TCGames.SelectTab(4) - 'FrmCardList.Focus() - - StringClean = StringClean.Replace("@ChooseRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - - If StringClean.Contains("@CheckRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.CheckRiskyPick() - StringClean = StringClean.Replace("@CheckRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@FinalRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.BTNRiskIt.Text = "LAST CASE" - FrmCardList.BTNPickIt.Text = "MY CASE" - StringClean = StringClean.Replace("@FinalRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@ClearRiskyLabels") Then - 'FrmCardList.Focus() - FrmCardList.ClearCaseLabelsOffer() - StringClean = StringClean.Replace("@ClearRiskyLabels", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@RiskyPayout") Then - If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then - FrmCardList.GameWMP.settings.setMode("loop", False) - FrmCardList.GameWMP.settings.volume = 20 - FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" - End If - ssh.BronzeTokens += FrmCardList.TokensPaid - FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) - StringClean = StringClean.Replace("@RiskyPayout", "") - End If - - If StringClean.Contains("@CloseRiskyPick") Then - FrmCardList.CloseRiskyPick() - StringClean = StringClean.Replace("@CloseRiskyPick", "") - End If - - If StringClean.Contains("@RevealLastCase") Then - FrmCardList.RevealLastCase() - StringClean = StringClean.Replace("@RevealLastCase", "") - End If - - If StringClean.Contains("@RevealUserCase") Then - FrmCardList.RevealUserCase() - StringClean = StringClean.Replace("@RevealUserCase", "") - End If - - If StringClean.Contains("@RiskyState") Then - If FrmCardList.RiskyState = True Then - ssh.FileGoto = "(Risky Game)" - Else - ssh.FileGoto = "(Risky Tease)" + + If StringClean.Contains("@PlayRiskyPick") Then + ssh.RiskyDeal = True + 'FrmCardList.RiskyRound += 1 + FrmCardList.TCGames.SelectTab(2) + FrmCardList.Show() + FrmCardList.Focus() + FrmCardList.InitializeRiskyDeal() + StringClean = StringClean.Replace("@PlayRiskyPick", "") + 'Debug.Print("NullResponse Called") End If - FrmCardList.RiskyState = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@RiskyState", "") - End If - If StringClean.Contains("@SystemMessage ") Then - StringClean = StringClean.Replace("@SystemMessage ", "") - End If + If StringClean.Contains("@ChooseRiskyPick") Then + ssh.RiskyDelay = True + If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True + If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True + If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True + If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True + If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True + If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True + If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True + If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True + If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True + If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True - If StringClean.Contains("@EmoteMessage ") Then - StringClean = StringClean.Replace("@EmoteMessage ", "") - End If + If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True + If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True + If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True + If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True + If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True + If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True + If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True + If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True + If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True + If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True + If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True + If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True + If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True + If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True + FrmCardList.RiskyChoiceCount = 0 + FrmCardList.RiskyRound += 1 + FrmCardList.RiskyPickCount = 0 + FrmCardList.RiskyChoices.Clear() + FrmCardList.ClearCaseLabelsOffer() + 'FrmCardList.Show() + 'FrmCardList.TCGames.SelectTab(4) + 'FrmCardList.Focus() + StringClean = StringClean.Replace("@ChooseRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + If StringClean.Contains("@CheckRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.CheckRiskyPick() + StringClean = StringClean.Replace("@CheckRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + If StringClean.Contains("@FinalRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.BTNRiskIt.Text = "LAST CASE" + FrmCardList.BTNPickIt.Text = "MY CASE" + StringClean = StringClean.Replace("@FinalRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + If StringClean.Contains("@ClearRiskyLabels") Then + 'FrmCardList.Focus() + FrmCardList.ClearCaseLabelsOffer() + StringClean = StringClean.Replace("@ClearRiskyLabels", "") + 'Debug.Print("NullResponse Called") + End If - If StringClean.Contains("@MiniScript(") Then + If StringClean.Contains("@RiskyPayout") Then + If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then + FrmCardList.GameWMP.settings.setMode("loop", False) + FrmCardList.GameWMP.settings.volume = 20 + FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" + End If + ssh.BronzeTokens += FrmCardList.TokensPaid + FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) + StringClean = StringClean.Replace("@RiskyPayout", "") + End If - Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") - Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" + If StringClean.Contains("@CloseRiskyPick") Then + FrmCardList.CloseRiskyPick() + StringClean = StringClean.Replace("@CloseRiskyPick", "") + End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & Mini2CR) Then - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "@CallReturn(" & Mini2CR & ")") - Else - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + If StringClean.Contains("@RevealLastCase") Then + FrmCardList.RevealLastCase() + StringClean = StringClean.Replace("@RevealLastCase", "") End If - End If + If StringClean.Contains("@RevealUserCase") Then + FrmCardList.RevealUserCase() + StringClean = StringClean.Replace("@RevealUserCase", "") + End If + + If StringClean.Contains("@RiskyState") Then + If FrmCardList.RiskyState = True Then + ssh.FileGoto = "(Risky Game)" + Else + ssh.FileGoto = "(Risky Tease)" + End If + FrmCardList.RiskyState = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@RiskyState", "") + End If + If StringClean.Contains("@SystemMessage ") Then + StringClean = StringClean.Replace("@SystemMessage ", "") + End If - If StringClean.Contains("@CallReturn(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag + If StringClean.Contains("@EmoteMessage ") Then + StringClean = StringClean.Replace("@EmoteMessage ", "") + End If - If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) - CheckFlag = CheckFlag.Replace("/", "\") - GetSubState() - ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) - ssh.YesOrNo = False - GotoClear() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.CBTBallsActive = False - ssh.CBTBallsFlag = False - ssh.CBTCockActive = False - ssh.CBTCockFlag = False - ssh.CBTBothActive = False - ssh.CBTBothFlag = False - ssh.CustomTaskActive = False - - ssh.MultiTauntPictureHold = False - - If Not ssh.SubGaveUp Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False + + + + + + + If StringClean.Contains("@MiniScript(") Then + + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" + + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & Mini2CR) Then + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "@CallReturn(" & Mini2CR & ")") + Else + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + End If End If - If CheckFlag.Contains("*") Then - Dim checkArray() As String = CheckFlag.Split("*") - CheckFlag = checkArray(0) - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + + + If StringClean.Contains("@CallReturn(") Then + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CallReplace As String = CheckFlag + + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") + + GetSubState() + ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) + ssh.YesOrNo = False + GotoClear() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False + + ssh.MultiTauntPictureHold = False + + If Not ssh.SubGaveUp Then + ssh.SubEdging = False + ssh.SubHoldingEdge = False + End If + + If CheckFlag.Contains("*") Then + Dim checkArray() As String = CheckFlag.Split("*") + CheckFlag = checkArray(0) + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.MultiTauntPictureHold = False + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + GotoClear() + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 + End If + End If Else - ssh.MultiTauntPictureHold = False - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If CheckFlag.Contains(",") Then + + CheckFlag = FixCommas(CheckFlag) + + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() + Else - GotoClear() - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag ssh.StrokeTauntVal = -1 + End If End If - Else + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.ShowModule = True + ssh.isLink = False + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + + End If + + If StringClean.Contains("@Call(") Then + + Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") + + Dim CallReplace As String = CheckFlag + + ssh.MultiTauntPictureHold = False + If CheckFlag.Contains(",") Then CheckFlag = FixCommas(CheckFlag) @@ -12208,679 +12247,648 @@ VTSkip: Else + GotoClear() ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag ssh.StrokeTauntVal = -1 End If + ssh.ShowModule = True + ssh.isLink = False + ssh.ScriptTick = 2 + ScriptTimer.Start() + StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") End If - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.ShowModule = True - ssh.isLink = False - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - - End If - If StringClean.Contains("@Call(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") - If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) - CheckFlag = CheckFlag.Replace("/", "\") + If StringClean.Contains("@CallRandom(") Then - Dim CallReplace As String = CheckFlag + Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") - ssh.MultiTauntPictureHold = False + Dim CallReplace As String = CheckFlag - If CheckFlag.Contains(",") Then - - CheckFlag = FixCommas(CheckFlag) + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.MultiTauntPictureHold = False + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + GotoClear() + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 + End If + End If + ssh.ShowModule = True + ssh.isLink = False + ssh.ScriptTick = 2 + ScriptTimer.Start() + StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") + End If - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code + ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - Else + If StringClean.Contains("@RandomLink") Then + RunLinkScript() + StringClean = StringClean.Replace("@RandomLink", "") + End If - GotoClear() - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + If StringClean.Contains("@RandomModule") Then + If ssh.SubEdging Or ssh.SubHoldingEdge Then + RunModuleScript(True) + Else + RunModuleScript(False) + End If + StringClean = StringClean.Replace("@RandomModule", "") + End If + If StringClean.Contains("@RapidCodeOn") Then + ssh.RapidCode = True + StringClean = StringClean.Replace("@RapidCodeOn", "") End If - ssh.ShowModule = True - ssh.isLink = False - ssh.ScriptTick = 2 - ScriptTimer.Start() - StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") - End If + If StringClean.Contains("@RapidCodeOff") Then + ssh.RapidCode = False + StringClean = StringClean.Replace("@RapidCodeOff", "") + End If - If StringClean.Contains("@CallRandom(") Then + If StringClean.Contains("@InterruptsOff") Then + ssh.DoNotDisturb = True + StringClean = StringClean.Replace("@InterruptsOff", "") + End If - Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") - If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) - CheckFlag = CheckFlag.Replace("/", "\") + If StringClean.Contains("@InterruptsOn") Then + ssh.DoNotDisturb = False + StringClean = StringClean.Replace("@InterruptsOn", "") + End If - Dim CallReplace As String = CheckFlag - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - ssh.MultiTauntPictureHold = False - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - GotoClear() - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) - ssh.StrokeTauntVal = -1 - End If + If StringClean.Contains("@NoTypo") Then + ssh.TypoSwitch = 0 + StringClean = StringClean.Replace("@NoTypo", "") End If - ssh.ShowModule = True - ssh.isLink = False - ssh.ScriptTick = 2 - ScriptTimer.Start() - StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") - End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code - ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + If StringClean.Contains("@ForceTypo") Then + ssh.TypoSwitch = 2 + StringClean = StringClean.Replace("@ForceTypo", "") + End If - If StringClean.Contains("@RandomLink") Then - RunLinkScript() - StringClean = StringClean.Replace("@RandomLink", "") - End If + If StringClean.Contains("@TyposOff") Then + ssh.TyposDisabled = True + StringClean = StringClean.Replace("@TyposOff", "") + End If - If StringClean.Contains("@RandomModule") Then - If ssh.SubEdging Or ssh.SubHoldingEdge Then - RunModuleScript(True) - Else - RunModuleScript(False) + If StringClean.Contains("@TyposOn") Then + ssh.TyposDisabled = False + StringClean = StringClean.Replace("@TyposOn", "") End If - StringClean = StringClean.Replace("@RandomModule", "") - End If - If StringClean.Contains("@RapidCodeOn") Then - ssh.RapidCode = True - StringClean = StringClean.Replace("@RapidCodeOn", "") - End If + If StringClean.Contains("@GoodMood(") Then - If StringClean.Contains("@RapidCodeOff") Then - ssh.RapidCode = False - StringClean = StringClean.Replace("@RapidCodeOff", "") - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") - If StringClean.Contains("@InterruptsOff") Then - ssh.DoNotDisturb = True - StringClean = StringClean.Replace("@InterruptsOff", "") - End If + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - If StringClean.Contains("@InterruptsOn") Then - ssh.DoNotDisturb = False - StringClean = StringClean.Replace("@InterruptsOn", "") - End If + StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + End If + If StringClean.Contains("@BadMood(") Then - If StringClean.Contains("@NoTypo") Then - ssh.TypoSwitch = 0 - StringClean = StringClean.Replace("@NoTypo", "") - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") - If StringClean.Contains("@ForceTypo") Then - ssh.TypoSwitch = 2 - StringClean = StringClean.Replace("@ForceTypo", "") - End If + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - If StringClean.Contains("@TyposOff") Then - ssh.TyposDisabled = True - StringClean = StringClean.Replace("@TyposOff", "") - End If + StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@TyposOn") Then - ssh.TyposDisabled = False - StringClean = StringClean.Replace("@TyposOn", "") - End If + If StringClean.Contains("@NeutralMood(") Then - If StringClean.Contains("@GoodMood(") Then + Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") - Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() + End If - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() + StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") End If - StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") - End If + If StringClean.Contains("@MoodUp") Then + ssh.DommeMood += 1 + If ssh.DommeMood > 10 Then ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodUp", "") + End If - If StringClean.Contains("@BadMood(") Then + If StringClean.Contains("@MoodDown") Then + ssh.DommeMood -= 1 + If ssh.DommeMood < 1 Then ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodDown", "") + End If - Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") + If StringClean.Contains("@MoodBest") Then + ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodBest", "") + End If - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() + If StringClean.Contains("@MoodWorst") Then + ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodWorst", "") End If - StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") - End If + If StringClean.Contains("@Timeout(") Then - If StringClean.Contains("@NeutralMood(") Then + Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If TimeFlag.EndsWith(")") Then TimeFlag = TimeFlag.Remove(TimeFlag.Length - 1, 1) + Dim OriginalFlag As String = TimeFlag + TimeFlag = StripCommands(TimeFlag) - Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") - If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + TimeFlag = FixCommas(TimeFlag) - StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") - End If + Dim TimeArray As String() = TimeFlag.Split(",") - If StringClean.Contains("@MoodUp") Then - ssh.DommeMood += 1 - If ssh.DommeMood > 10 Then ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodUp", "") - End If + ssh.FileGoto = TimeArray(1) + ssh.TimeoutTick = Val(TimeArray(0)) + TimeoutTimer.Start() - If StringClean.Contains("@MoodDown") Then - ssh.DommeMood -= 1 - If ssh.DommeMood < 1 Then ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodDown", "") - End If + StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@MoodBest") Then - ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodBest", "") - End If + If StringClean.Contains("@BallTorture+1") Then + ssh.CBTBallsCount += 1 + StringClean = StringClean.Replace("@BallTorture+1", "") + End If - If StringClean.Contains("@MoodWorst") Then - ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodWorst", "") - End If + If StringClean.Contains("@CockTorture+1") Then + ssh.CBTCockCount += 1 + StringClean = StringClean.Replace("@CockTorture+1", "") + End If - If StringClean.Contains("@Timeout(") Then - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") - Dim OriginalFlag As String = TimeFlag + If StringClean.Contains("@EndTaunts") Then + ssh.StrokeTick = 0 + StringClean = StringClean.Replace("@EndTaunts", "") + End If - TimeFlag = FixCommas(TimeFlag) - Dim TimeArray As String() = TimeFlag.Split(",") + If StringClean.Contains("@ResponseYes(") Then + ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") + StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") + End If - ssh.FileGoto = TimeArray(1) - ssh.TimeoutTick = Val(TimeArray(0)) - TimeoutTimer.Start() + If StringClean.Contains("@ResponseNo(") Then + ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") + StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") + End If - StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") - End If - If StringClean.Contains("@BallTorture+1") Then - ssh.CBTBallsCount += 1 - StringClean = StringClean.Replace("@BallTorture+1", "") - End If + If StringClean.Contains("@SetModule(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") - If StringClean.Contains("@CockTorture+1") Then - ssh.CBTCockCount += 1 - StringClean = StringClean.Replace("@CockTorture+1", "") - End If + If TempMod.Contains(",") Then + TempMod = FixCommas(TempMod) + Dim TempArray As String() = TempMod.Split(",") + TempMod = TempArray(0) + ssh.SetModuleGoto = TempArray(1) + End If - If StringClean.Contains("@EndTaunts") Then - ssh.StrokeTick = 0 - StringClean = StringClean.Replace("@EndTaunts", "") - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" + End If - If StringClean.Contains("@ResponseYes(") Then - ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") - StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") - End If + If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - If StringClean.Contains("@ResponseNo(") Then - ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") - StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") - End If + StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + End If + If StringClean.Contains("@SetLink(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" + End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" + End If + StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + End If - If StringClean.Contains("@SetModule(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") - If TempMod.Contains(",") Then - TempMod = FixCommas(TempMod) - Dim TempArray As String() = TempMod.Split(",") - TempMod = TempArray(0) - ssh.SetModuleGoto = TempArray(1) + 'If StringClean.Contains("@RandomText(") Then + 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") + 'TempText = FixCommas(TempText) + 'Dim TextArray As String() = TempText.Split(",") + 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) + 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) + 'End If + If StringClean.Contains("@Worship(") Then + Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") + Debug.Print("Worship Paren = " & WorshipTemp) + If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" + If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" + If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" + ssh.WorshipMode = True + StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") End If - - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" + If StringClean.Contains("@WorshipOn") Then + ssh.WorshipMode = True + StringClean = StringClean.Replace("@WorshipOn", "") End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" + + If StringClean.Contains("@WorshipOff") Then + ssh.WorshipMode = False + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@WorshipOff", "") End If - If ssh.SetModule = "" Then ssh.SetModuleGoto = "" + ' If StringClean.Contains("@AssWorship") Then + 'WorshipTarget = "Ass" + 'StringClean = StringClean.Replace("@AssWorship", "") + 'End If + + 'If StringClean.Contains("@BoobWorship") Then + 'WorshipTarget = "Boobs" + 'StringClean = StringClean.Replace("@BoobWorship", "") + 'End If - StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") - End If + 'If StringClean.Contains("@PussyWorship") Then + 'WorshipTarget = "Pussy" + 'StringClean = StringClean.Replace("@PussyWorship", "") + 'End If - If StringClean.Contains("@SetLink(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" + If StringClean.Contains("@ClearWorship") Then + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@ClearWorship", "") End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" - End If - StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") - End If - 'If StringClean.Contains("@RandomText(") Then - 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") - 'TempText = FixCommas(TempText) - 'Dim TextArray As String() = TempText.Split(",") - 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) - 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) - 'End If - - If StringClean.Contains("@Worship(") Then - Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") - Debug.Print("Worship Paren = " & WorshipTemp) - If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" - If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" - If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" - ssh.WorshipMode = True - StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") - End If + If StringClean.Contains("@CheckFile(") Then - If StringClean.Contains("@WorshipOn") Then - ssh.WorshipMode = True - StringClean = StringClean.Replace("@WorshipOn", "") - End If + Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") + FileFlag = FixCommas(FileFlag) - If StringClean.Contains("@WorshipOff") Then - ssh.WorshipMode = False - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@WorshipOff", "") - End If + Dim FileArray As String() = FileFlag.Split(",") - ' If StringClean.Contains("@AssWorship") Then - 'WorshipTarget = "Ass" - 'StringClean = StringClean.Replace("@AssWorship", "") - 'End If + If FileArray.Count = 2 Or FileArray.Count = 3 Then - 'If StringClean.Contains("@BoobWorship") Then - 'WorshipTarget = "Boobs" - 'StringClean = StringClean.Replace("@BoobWorship", "") - 'End If + If File.Exists(FileArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(1) + GetGoto() + End If - 'If StringClean.Contains("@PussyWorship") Then - 'WorshipTarget = "Pussy" - 'StringClean = StringClean.Replace("@PussyWorship", "") - 'End If + If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(2) + GetGoto() + End If - If StringClean.Contains("@ClearWorship") Then - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@ClearWorship", "") - End If + End If + StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") + End If - If StringClean.Contains("@CheckFile(") Then - Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") - FileFlag = FixCommas(FileFlag) + If StringClean.Contains("@YesMode(") Then - Dim FileArray As String() = FileFlag.Split(",") + Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") + YesFlag = FixCommas(YesFlag) + Dim YesArray As String() = YesFlag.Split(",") - If FileArray.Count = 2 Or FileArray.Count = 3 Then + If UCase(YesArray(0)).Contains("GOTO") Then + ssh.yesMode.GotoMode = True + ssh.yesMode.GotoLine = YesArray(1) + End If - If File.Exists(FileArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(1) - GetGoto() + If UCase(YesArray(0)).Contains("VIDEO") Then + ssh.yesMode.VideoMode = True + ssh.yesMode.GotoLine = YesArray(1) End If - If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(2) - GetGoto() + If UCase(YesArray(0)).Contains("NORMAL") Then + ssh.yesMode.Clear() End If + StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") End If - StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") - End If + If StringClean.Contains("@NoMode(") Then + Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") + NoFlag = FixCommas(NoFlag) + Dim NoArray As String() = NoFlag.Split(",") - If StringClean.Contains("@YesMode(") Then + If UCase(NoArray(0)).Contains("GOTO") Then + ssh.noMode.GotoMode = True + ssh.noMode.GotoLine = NoArray(1) + End If - Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") - YesFlag = FixCommas(YesFlag) - Dim YesArray As String() = YesFlag.Split(",") + If UCase(NoArray(0)).Contains("VIDEO") Then + ssh.noMode.VideoMode = True + ssh.noMode.GotoLine = NoArray(1) + End If - If UCase(YesArray(0)).Contains("GOTO") Then - ssh.yesMode.GotoMode = True - ssh.yesMode.GotoLine = YesArray(1) - End If + If UCase(NoArray(0)).Contains("NORMAL") Then + ssh.noMode.Clear() + End If - If UCase(YesArray(0)).Contains("VIDEO") Then - ssh.yesMode.VideoMode = True - ssh.yesMode.GotoLine = YesArray(1) + StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") End If - If UCase(YesArray(0)).Contains("NORMAL") Then - ssh.yesMode.Clear() - End If + If StringClean.Contains("@CameMode(") Then - StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") - End If + Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") + CameFlag = FixCommas(CameFlag) + Dim CameArray As String() = CameFlag.Split(",") - If StringClean.Contains("@NoMode(") Then + If UCase(CameArray(0)).Contains("GOTO") Then + ssh.cameMode.GotoMode = True + ssh.cameMode.GotoLine = CameArray(1) + End If - Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") - NoFlag = FixCommas(NoFlag) - Dim NoArray As String() = NoFlag.Split(",") + If UCase(CameArray(0)).Contains("MESSAGE") Then + ssh.cameMode.MessageMode = True + ssh.cameMode.MessageText = CameArray(1) + End If - If UCase(NoArray(0)).Contains("GOTO") Then - ssh.noMode.GotoMode = True - ssh.noMode.GotoLine = NoArray(1) - End If + If UCase(CameArray(0)).Contains("VIDEO") Then + ssh.cameMode.VideoMode = True + ssh.cameMode.GotoLine = CameArray(1) + End If - If UCase(NoArray(0)).Contains("VIDEO") Then - ssh.noMode.VideoMode = True - ssh.noMode.GotoLine = NoArray(1) - End If + If UCase(CameArray(0)).Contains("NORMAL") Then + ssh.cameMode.Clear() + End If - If UCase(NoArray(0)).Contains("NORMAL") Then - ssh.noMode.Clear() + StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") End If - StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") - End If + If StringClean.Contains("@RuinedMode(") Then - If StringClean.Contains("@CameMode(") Then + Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") + RuinedFlag = FixCommas(RuinedFlag) + Dim RuinedArray As String() = RuinedFlag.Split(",") - Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") - CameFlag = FixCommas(CameFlag) - Dim CameArray As String() = CameFlag.Split(",") + If UCase(RuinedArray(0)).Contains("GOTO") Then + ssh.ruinMode.GotoMode = True + ssh.ruinMode.GotoLine = RuinedArray(1) + End If - If UCase(CameArray(0)).Contains("GOTO") Then - ssh.cameMode.GotoMode = True - ssh.cameMode.GotoLine = CameArray(1) - End If + If UCase(RuinedArray(0)).Contains("MESSAGE") Then + ssh.ruinMode.MessageMode = True + ssh.ruinMode.MessageText = RuinedArray(1) + End If - If UCase(CameArray(0)).Contains("MESSAGE") Then - ssh.cameMode.MessageMode = True - ssh.cameMode.MessageText = CameArray(1) - End If + If UCase(RuinedArray(0)).Contains("VIDEO") Then + ssh.ruinMode.VideoMode = True + ssh.ruinMode.GotoLine = RuinedArray(1) + End If - If UCase(CameArray(0)).Contains("VIDEO") Then - ssh.cameMode.VideoMode = True - ssh.cameMode.GotoLine = CameArray(1) - End If + If UCase(RuinedArray(0)).Contains("NORMAL") Then + ssh.ruinMode.Clear() + End If - If UCase(CameArray(0)).Contains("NORMAL") Then - ssh.cameMode.Clear() + StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") End If - StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") - End If - - If StringClean.Contains("@RuinedMode(") Then + If StringClean.Contains("@CustomMode(") Then + updateMode(StringClean, ssh.Modes) + StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + End If - Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") - RuinedFlag = FixCommas(RuinedFlag) - Dim RuinedArray As String() = RuinedFlag.Split(",") - If UCase(RuinedArray(0)).Contains("GOTO") Then - ssh.ruinMode.GotoMode = True - ssh.ruinMode.GotoLine = RuinedArray(1) + If StringClean.Contains("@ClearModes") Then + ClearModes() + StringClean = StringClean.Replace("@ClearModes", "") End If - If UCase(RuinedArray(0)).Contains("MESSAGE") Then - ssh.ruinMode.MessageMode = True - ssh.ruinMode.MessageText = RuinedArray(1) - End If - If UCase(RuinedArray(0)).Contains("VIDEO") Then - ssh.ruinMode.VideoMode = True - ssh.ruinMode.GotoLine = RuinedArray(1) + If StringClean.Contains("@LockVideo") Then + ssh.LockVideo = True + StringClean = StringClean.Replace("@LockVideo", "") End If - If UCase(RuinedArray(0)).Contains("NORMAL") Then - ssh.ruinMode.Clear() + If StringClean.Contains("@UnlockVideo") Then + ssh.LockVideo = False + mainPictureBox.Visible = True + DomWMP.Visible = False + StringClean = StringClean.Replace("@UnlockVideo", "") End If - StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") - End If - - If StringClean.Contains("@CustomMode(") Then - updateMode(StringClean, ssh.Modes) - StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - End If - - - If StringClean.Contains("@ClearModes") Then - ClearModes() - StringClean = StringClean.Replace("@ClearModes", "") - End If - - - If StringClean.Contains("@LockVideo") Then - ssh.LockVideo = True - StringClean = StringClean.Replace("@LockVideo", "") - End If - - If StringClean.Contains("@UnlockVideo") Then - ssh.LockVideo = False - mainPictureBox.Visible = True - DomWMP.Visible = False - StringClean = StringClean.Replace("@UnlockVideo", "") - End If + If StringClean.Contains("@ClearChat") Then + ClearChat() + StringClean = StringClean.Replace("@ClearChat", "") + End If - If StringClean.Contains("@ClearChat") Then - ClearChat() - StringClean = StringClean.Replace("@ClearChat", "") - End If + If StringClean.Contains("@ChatImage[") Then + Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") + ImageDir = ImageDir.Replace("/", "\") + ImageDir = ImageDir.Replace("\\", "\") - If StringClean.Contains("@ChatImage[") Then - Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") - ImageDir = ImageDir.Replace("/", "\") - ImageDir = ImageDir.Replace("\\", "\") + If File.Exists(ImageDir.Split(",")(0)) Then - If File.Exists(ImageDir.Split(",")(0)) Then + If GetCharCount(ImageDir, ",") = 2 Then - If GetCharCount(ImageDir, ",") = 2 Then + Dim PicAttributes As String() = GetArrayString(ImageDir) - Dim PicAttributes As String() = GetArrayString(ImageDir) + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + End If Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If - - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If - End If - - If StringClean.Contains("@CountVar[") Then - Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") + If StringClean.Contains("@CountVar[") Then - If CountFlag.Contains(",") Then + Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") - CountFlag = FixCommas(CountFlag) - Dim CountArray() As String = CountFlag.Split(",") - - If CountArray(1).ToLower.Contains("stop") Then - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) - Next - End If - If ssh.CountUpList.Count > 0 Then - For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 - If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) - Next - End If + If CountFlag.Contains(",") Then - Else + CountFlag = FixCommas(CountFlag) + Dim CountArray() As String = CountFlag.Split(",") - If CountArray(1).ToLower.Contains("down") Then - ssh.CountDownList.Add(CountArray(0)) + If CountArray(1).ToLower.Contains("stop") Then + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next + End If If ssh.CountUpList.Count > 0 Then For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) Next End If + Else - ssh.CountUpList.Add(CountArray(0)) - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) - Next + + If CountArray(1).ToLower.Contains("down") Then + ssh.CountDownList.Add(CountArray(0)) + If ssh.CountUpList.Count > 0 Then + For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 + If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) + Next + End If + Else + ssh.CountUpList.Add(CountArray(0)) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next + End If End If + End If - End If + Else - Else + ssh.CountUpList.Add(CountFlag) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountFlag) Then ssh.CountDownList.RemoveAt(i) + Next + End If - ssh.CountUpList.Add(CountFlag) - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountFlag) Then ssh.CountDownList.RemoveAt(i) - Next End If + StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") End If - StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") - End If - - If StringClean.Contains("@Debug") Then + If StringClean.Contains("@Debug") Then - 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) + 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) - MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) - MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) - MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) - MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) + MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) + MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) + MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) + MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) - 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) - StringClean = StringClean.Replace("@Debug", "") - End If + 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) + StringClean = StringClean.Replace("@Debug", "") + End If - If StringClean.Contains("@GotoDommeOrgasm") Then + If StringClean.Contains("@GotoDommeOrgasm") Then - 'Debug.Print("GotoDommeOrgasmCalled") + 'Debug.Print("GotoDommeOrgasmCalled") - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeOrgasm", "") + StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - End If + End If - If StringClean.Contains("@GotoDommeRuin") Then + If StringClean.Contains("@GotoDommeRuin") Then - Debug.Print("GotoDommeRuinedCalled") + Debug.Print("GotoDommeRuinedCalled") - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeRuin", "") + StringClean = StringClean.Replace("@GotoDommeRuin", "") - End If + End If - If StringClean.Contains("@GotoDommeApathy") Then + If StringClean.Contains("@GotoDommeApathy") Then - 'Debug.Print("GotoDommeApathyCalled") + 'Debug.Print("GotoDommeApathyCalled") - If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" - If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" - If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" - If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" - If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" + If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" + If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" + If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" + If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" + If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeApathy", "") + StringClean = StringClean.Replace("@GotoDommeApathy", "") - End If + End If - If StringClean.Contains("@GotoDommeLevel") Then + If StringClean.Contains("@GotoDommeLevel") Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" - 'Debug.Print(FileGoto) + 'Debug.Print(FileGoto) - ssh.SkipGotoLine = True - GetGoto() + ssh.SkipGotoLine = True + GetGoto() - StringClean = StringClean.Replace("@GotoDommeLevel", "") + StringClean = StringClean.Replace("@GotoDommeLevel", "") - End If + End If - If StringClean.Contains("@CheckBnB") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then - ssh.FileGoto = "(No BnB)" - ssh.SkipGotoLine = True - GetGoto() + If StringClean.Contains("@CheckBnB") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then + ssh.FileGoto = "(No BnB)" + ssh.SkipGotoLine = True + GetGoto() + End If + StringClean = StringClean.Replace("@CheckBnB", "") End If - StringClean = StringClean.Replace("@CheckBnB", "") - End If @@ -12888,20 +12896,20 @@ VTSkip: - If StringClean.Contains("@CheckStrokingState") Then - 'If SubStroking = True Then - If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ssh.FileGoto = "(Sub Stroking)" - Else - ssh.FileGoto = "(Sub Not Stroking)" + If StringClean.Contains("@CheckStrokingState") Then + 'If SubStroking = True Then + If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then + ssh.FileGoto = "(Sub Stroking)" + Else + ssh.FileGoto = "(Sub Not Stroking)" + End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckStrokingState", "") End If - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckStrokingState", "") - End If - - Debug.Print("Command Clean Complete") + Debug.Print("Command Clean Complete") + 'Next Return StringClean End Function @@ -20769,7 +20777,9 @@ playLoop: 'remove eventual @ContactX present in a @FollowUp() inside the line If stringToCheck.Contains("@FollowUp") Then Dim remove As String - remove = GetParentheses(stringToCheck, "@FollowUp(") + remove = GetParentheses(stringToCheck, "@FollowUp(", stringToCheck.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If remove.EndsWith(")") Then remove = remove.Remove(remove.Length - 1, 1) stringToCheck = stringToCheck.Replace("@FollowUp(" & remove & ")", "") End If @@ -21135,5 +21145,11 @@ ShowedBlogImage: LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") End Sub + + Private Function goingTo(commandToCheck As String) As String + If commandToCheck.Contains("followUp(") Then Return "followUp" + If commandToCheck.Contains("followUp") Then Return "followUpXX" + Return "" + End Function End Class From a44585a4d8e6b25d4b21ae19ce6490af8fa3a4ab Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 1 May 2017 12:40:26 +0200 Subject: [PATCH 091/143] added improvement to @IF{] abd @Variable[] functions to work also if the user uses AND/OR instead of And/Or --- Tease AI/Form1.vb | 116 +++++++++++++++++++++++----------------------- 1 file changed, 59 insertions(+), 57 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index bf5cb1c..ed8a960 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8313,81 +8313,82 @@ followUpXX: ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. If StringClean.Contains("@If[") Then + If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") + If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") + Do - Do + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" - - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") - End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") End If - Next + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) + Do + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") + Exit For + End If + Next - If SCGotVar.Contains("]And[") Then + If SCGotVar.Contains("]And[") Then - Dim AndCheck As Boolean = True + Dim AndCheck As Boolean = True - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") - Next - - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next - ElseIf SCGotVar.Contains("]Or[") Then + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - Dim OrCheck As Boolean = False + ElseIf SCGotVar.Contains("]Or[") Then - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next + Dim OrCheck As Boolean = False - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + OrCheck = True + Exit For End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next - Else + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + Else + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - Loop Until Not StringClean.Contains("@If") + End If - End If + Loop Until Not StringClean.Contains("@If") + + End If RinseLatherRepeat: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -13063,7 +13064,8 @@ VTSkip: End Function Public Function CheckVariable(ByVal StringCLean As String) As Boolean - + If StringCLean.Contains("]AND[") Then StringCLean = StringCLean.Replace("]AND[", "]And[") + If StringCLean.Contains("]OR[") Then StringCLean = StringCLean.Replace("]OR[", "]Or[") Do Dim SCIfVar As String() = Split(StringCLean) From eae6af678485773f1f5627677e3a34b9b3918546 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 1 May 2017 15:40:13 +0200 Subject: [PATCH 092/143] Big changes to the commandclean funtcion: now it checks for the command in the order they are used in a script, and not in the order they are present in the commandclean function. What it means is that, for example: @ChangeVar[a]=[a]+[1] @If[a]>=[2]Then(goto) will first add the value and then do the check @If[a]>=[2]Then(goto) @ChangeVar[a]=[a]+[1] This will first do the check and then change the value (if the check is failed) Previously, it would have first done the check and then changed the value in both cases since the @if was checked against first in the commandclean (moreover, the changevar would have been done even if the if check was true, which should not have been the case, at least in the 2nd case). Improvements to @ChangeVar[]: previously a wrong command such as @ChangeVar[a]=[15] would have resetted the var to 0...now, it just gets ignored since it is wrong syntax --- Tease AI/Form1.vb | 1330 ++++++++++++++++++++++++--------------------- 1 file changed, 719 insertions(+), 611 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ed8a960..1b567b8 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -4027,7 +4027,7 @@ ModuleEnd: Debug.Print("CHeck") - If GetFilter(lines(line)) = False Then + If GetFilter(lines(line), True) = False Then RunFileText() Return End If @@ -8264,131 +8264,132 @@ StatusUpdateEnd: Debug.Print("Stringclean Intro = " & StringClean) Dim commandsList() As String = StringClean.Split("@") - ' For num As Integer = 1 To commandsList.Count - 1 - ' GoTo goingTo(commandlist(num)) - If TaskClean = True Then - Debug.Print("Tasks CommandClean") - GoTo TaskCleanSet - End If + For num As Integer = 1 To commandsList.Count - 1 + + If TaskClean = True Then + Debug.Print("Tasks CommandClean") + GoTo TaskCleanSet + End If followUp: - If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) - 'if there is a leftover ) (might happen in very complex followUp) we remove it - If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) - StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") - ' Continue For - End If + If commandsList(num).Contains("FollowUp(") And ssh.FollowUp = "" Then + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) + StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + Continue For + End If followUpXX: - If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then - - Dim FollowTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + If commandsList(num).Contains("FollowUp") And ssh.FollowUp = "" Then - TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 - TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 + Dim FollowTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 + TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 - Dim FollowVal As Integer + FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - FollowVal = Val(FollowTemp) + Dim FollowVal As Integer - ssh.TempVal = ssh.randomizer.Next(1, 101) + FollowVal = Val(FollowTemp) - Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Count - 1) - 'if there is a leftover ) (might happen in very complex followUp) we remove it - If FollowLineTemp.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.Length - 1, 1) + ssh.TempVal = ssh.randomizer.Next(1, 101) - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + Dim FollowLineTemp As String + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If FollowLineTemp.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.Length - 1, 1) - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - 'Continue For - End If - ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) - ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. - ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> - ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - If StringClean.Contains("@If[") Then - If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") - If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") - Do + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + Continue For + End If + ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) + ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. + ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> + ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" + If commandsList(num).Contains("If[") Then + If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") + If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") + Do - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" + + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") + End If + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") + Exit For End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) - Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For - End If - Next + Next - If SCGotVar.Contains("]And[") Then + If SCGotVar.Contains("]And[") Then - Dim AndCheck As Boolean = True + Dim AndCheck As Boolean = True - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False - Exit For + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next + + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") - Next - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + ElseIf SCGotVar.Contains("]Or[") Then - ElseIf SCGotVar.Contains("]Or[") Then + Dim OrCheck As Boolean = False - Dim OrCheck As Boolean = False + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + Else - Else + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + Exit For + End If - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() End If - End If - - Loop Until Not StringClean.Contains("@If") - - End If + Loop Until Not StringClean.Contains("If") + Continue For + End If RinseLatherRepeat: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -8404,7 +8405,7 @@ RinseLatherRepeat: ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, ' LiskedList, DislikedList and LocalImageTagList, if the current Image is ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteLocalImage") Then + If commandsList(num).Contains("DeleteLocalImage") Then If My.Settings.DomDeleteMedia = True Then Try DeleteCurrentImage(True) @@ -8418,12 +8419,13 @@ RinseLatherRepeat: End Try End If StringClean = StringClean.Replace("@DeleteLocalImage", "") + Continue For End If ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, ' DislikedList, LocalImageTagList and URL-Files, if the current Image is ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteImage") Then + If commandsList(num).Contains("DeleteImage") Then If My.Settings.DomDeleteMedia = True Then Try DeleteCurrentImage(False) @@ -8437,10 +8439,11 @@ RinseLatherRepeat: End Try End If StringClean = StringClean.Replace("@DeleteImage", "") + Continue For End If ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. - If StringClean.Contains("@UnlockImages") Then + If commandsList(num).Contains("UnlockImages") Then If ssh.SlideshowLoaded = True Then nextButton.Enabled = True previousButton.Enabled = True @@ -8448,9 +8451,10 @@ RinseLatherRepeat: End If ssh.LockImage = False StringClean = StringClean.Replace("@UnlockImages", "") + Continue For End If - If StringClean.Contains("@DommeTag(") Then + If commandsList(num).Contains("DommeTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8460,9 +8464,10 @@ RinseLatherRepeat: End If ' Clean the Text. StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") + Continue For End If - If StringClean.Contains("@DommeTagOr(") Then + If commandsList(num).Contains("DommeTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8472,31 +8477,36 @@ RinseLatherRepeat: End If ' Clean the Text. StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") + Continue For End If - If StringClean.Contains("@NewDommeSlideshow") Then + If commandsList(num).Contains("NewDommeSlideshow") Then 'TODO: Add Support for contact slideshows. ssh.newSlideshow = True LoadDommeImageFolder() StringClean = StringClean.Replace("@NewDommeSlideshow", "") + Continue For End If - If StringClean.Contains("@NewContact1Slideshow") Then + If commandsList(num).Contains("NewContact1Slideshow") Then If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@NewContact1Slideshow", "") + Continue For End If - If StringClean.Contains("@NewContact2Slideshow") Then + If commandsList(num).Contains("NewContact2Slideshow") Then If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@NewContact2Slideshow", "") + Continue For End If - If StringClean.Contains("@NewContact3Slideshow") Then + If commandsList(num).Contains("NewContact3Slideshow") Then If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@NewContact3Slideshow", "") + Continue For End If - If StringClean.Contains("@DomTag(") Then + If commandsList(num).Contains("DomTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage @@ -8507,9 +8517,10 @@ RinseLatherRepeat: End If StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") + Continue For End If - If StringClean.Contains("@DomTagOr(") Then + If commandsList(num).Contains("DomTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage @@ -8520,124 +8531,146 @@ RinseLatherRepeat: End If StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") + Continue For End If - If StringClean.Contains("@ImageTag(") Then + If commandsList(num).Contains("ImageTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") ShowImage(GetLocalImage(TagFlag), False) StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") + Continue For End If - If StringClean.Contains("@ImageTagOr(") Then + If commandsList(num).Contains("ImageTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") ShowImage(GetLocalImageOr(TagFlag), False) StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") + Continue For End If - If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then + If commandsList(num).Contains("ShowImage") And Not commandsList(num).Contains("ShowImage[") Then ShowImage(GetRandomImage(), False) StringClean = StringClean.Replace("@ShowImage", "") + Continue For End If - If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then + If commandsList(num).Contains("ShowButtImage") Or commandsList(num).Contains("ShowButtsImage") Then ShowImage(GetImageData(ImageGenre.Butt).Random(), False) StringClean = StringClean.Replace("@ShowButtImage", "") StringClean = StringClean.Replace("@ShowButtsImage", "") + Continue For End If - If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then + If commandsList(num).Contains("ShowBoobsImage") Or commandsList(num).Contains("ShowBoobImage") Then ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) StringClean = StringClean.Replace("@ShowBoobsImage", "") StringClean = StringClean.Replace("@ShowBoobImage", "") + Continue For End If - If StringClean.Contains("@ShowHardcoreImage") Then + If commandsList(num).Contains("ShowHardcoreImage") Then ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) StringClean = StringClean.Replace("@ShowHardcoreImage", "") + Continue For End If - If StringClean.Contains("@ShowSoftcoreImage") Then + If commandsList(num).Contains("ShowSoftcoreImage") Then ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) StringClean = StringClean.Replace("@ShowSoftcoreImage", "") + Continue For End If - If StringClean.Contains("@ShowLesbianImage") Then + If commandsList(num).Contains("ShowLesbianImage") Then ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) StringClean = StringClean.Replace("@ShowLesbianImage", "") + Continue For End If - If StringClean.Contains("@ShowBlowjobImage") Then + If commandsList(num).Contains("ShowBlowjobImage") Then ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) StringClean = StringClean.Replace("@ShowBlowjobImage", "") + Continue For End If - If StringClean.Contains("@ShowFemdomImage") Then + If commandsList(num).Contains("ShowFemdomImage") Then ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) StringClean = StringClean.Replace("@ShowFemdomImage", "") + Continue For End If - If StringClean.Contains("@ShowLezdomImage") Then + If commandsList(num).Contains("ShowLezdomImage") Then ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) StringClean = StringClean.Replace("@ShowLezdomImage", "") + Continue For End If - If StringClean.Contains("@ShowHentaiImage") Then + If commandsList(num).Contains("ShowHentaiImage") Then ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) StringClean = StringClean.Replace("@ShowHentaiImage", "") + Continue For End If - If StringClean.Contains("@ShowGayImage") Then + If commandsList(num).Contains("ShowGayImage") Then ShowImage(GetImageData(ImageGenre.Gay).Random(), False) StringClean = StringClean.Replace("@ShowGayImage", "") + Continue For End If - If StringClean.Contains("@ShowMaledomImage") Then + If commandsList(num).Contains("ShowMaledomImage") Then ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) StringClean = StringClean.Replace("@ShowMaledomImage", "") + Continue For End If - If StringClean.Contains("@ShowCaptionsImage") Then + If commandsList(num).Contains("ShowCaptionsImage") Then ShowImage(GetImageData(ImageGenre.Captions).Random(), False) StringClean = StringClean.Replace("@ShowCaptionsImage", "") + Continue For End If - If StringClean.Contains("@ShowGeneralImage") Then + If commandsList(num).Contains("ShowGeneralImage") Then ShowImage(GetImageData(ImageGenre.General).Random(), False) StringClean = StringClean.Replace("@ShowGeneralImage", "") + Continue For End If - If StringClean.Contains("@ShowLikedImage") Then + If commandsList(num).Contains("ShowLikedImage") Then ShowImage(GetImageData(ImageGenre.Liked).Random(), False) StringClean = StringClean.Replace("@ShowLikedImage", "") + Continue For End If - If StringClean.Contains("@ShowDislikedImage") Then + If commandsList(num).Contains("ShowDislikedImage") Then ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) StringClean = StringClean.Replace("@ShowDislikedImage", "") + Continue For End If - If StringClean.Contains("@ShowBlogImage") Then + If commandsList(num).Contains("ShowBlogImage") Then ShowImage(GetImageData(ImageGenre.Blog).Random(), False) StringClean = StringClean.Replace("@ShowBlogImage", "") + Continue For End If ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage - If StringClean.Contains("@NewBlogImage") Then + If commandsList(num).Contains("NewBlogImage") Then ShowImage(GetImageData(ImageGenre.Blog).Random(), False) StringClean = StringClean.Replace("@NewBlogImage", "") + Continue For End If - If StringClean.Contains("@ShowLocalImage") And Not StringClean.Contains("@ShowLocalImage(") Then + If commandsList(num).Contains("ShowLocalImage") And Not commandsList(num).Contains("ShowLocalImage(") Then ShowImage(GetRandomImage(ImageSourceType.Local), False) StringClean = StringClean.Replace("@ShowLocalImage", "") + Continue For End If '=============================================================================== ' @ShowLocalImage() '=============================================================================== - If StringClean.Contains("@ShowLocalImage(") Then + If commandsList(num).Contains("ShowLocalImage(") Then Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") LocalFlag = FixCommas(LocalFlag) @@ -8720,6 +8753,7 @@ RinseLatherRepeat: ShowImage(tmpImgToShow, False) StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") + Continue For End If '---------------------------------------- ' @ShowLocalImage()- End @@ -8727,7 +8761,7 @@ RinseLatherRepeat: '=============================================================================== ' @ShowTaggedImage '=============================================================================== - If StringClean.Contains("@ShowTaggedImage") Then + If commandsList(num).Contains("ShowTaggedImage") Then Dim Tags As List(Of String) = StringClean.Split() _ .Select(Function(s) s.Trim()) _ .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList @@ -8742,6 +8776,7 @@ RinseLatherRepeat: Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) StringClean = StringClean.Replace("@ShowTaggedImage", "") + Continue For End If '---------------------------------------- ' @ShowTaggedImage - End @@ -8749,10 +8784,11 @@ RinseLatherRepeat: '=============================================================================== ' @ShowImage[] '=============================================================================== - If StringClean.Contains("@ShowImage[") Then + If commandsList(num).Contains("ShowImage[") Then Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") ShowImage(checkForImage(ImageToShow), False) StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") + Continue For End If '---------------------------------------- ' @ShowImage[]- End @@ -8765,10 +8801,10 @@ RinseLatherRepeat: ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. - If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then - If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 - If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 - If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 + If commandsList(num).Contains("TnAFastSlides") Or commandsList(num).Contains("TnASlowSlides") Or commandsList(num).Contains("TnASlides") Then + If commandsList(num).Contains("TnAFastSlides") Then TnASlides.Interval = 334 + If commandsList(num).Contains("TnASlides") Then TnASlides.Interval = 1000 + If commandsList(num).Contains("TnASlowSlides") Then TnASlides.Interval = 5000 Try ssh.BoobList.Clear() @@ -8790,9 +8826,10 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@TnAFastSlides", "") StringClean = StringClean.Replace("@TnASlowSlides", "") StringClean = StringClean.Replace("@TnASlides", "") + Continue For End If - If StringClean.Contains("@CheckTnA") Then + If commandsList(num).Contains("CheckTnA") Then TnASlides.Stop() 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) @@ -8801,15 +8838,17 @@ RinseLatherRepeat: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@CheckTnA", "") + Continue For End If - If StringClean.Contains("@StopTnA") Then + If commandsList(num).Contains("StopTnA") Then TnASlides.Stop() ssh.BoobList.Clear() ssh.BoobImage = False ssh.AssList.Clear() ssh.AssImage = False StringClean = StringClean.Replace("@StopTnA", "") + Continue For End If '---------------------------------------- ' TnA-Slideshow - End @@ -8817,7 +8856,7 @@ RinseLatherRepeat: '=============================================================================== ' Slideshow '=============================================================================== - If StringClean.Contains("@Slideshow(") Then + If commandsList(num).Contains("Slideshow(") Then Dim SlideFlag As String = StringClean Dim SlideStart As Integer @@ -8888,47 +8927,54 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") + Continue For End If - If StringClean.Contains("@SlideshowOn") Then + If commandsList(num).Contains("SlideshowOn") Then If ssh.CustomSlideshow.Count > 0 Then ssh.CustomSlideEnabled = True CustomSlideshowTimer.Start() End If StringClean = StringClean.Replace("@SlideshowOn", "") + Continue For End If - If StringClean.Contains("@SlideshowOff") Then + If commandsList(num).Contains("SlideshowOff") Then ssh.CustomSlideEnabled = False CustomSlideshowTimer.Stop() StringClean = StringClean.Replace("@SlideshowOff", "") + Continue For End If - If StringClean.Contains("@SlideshowFirst") Then + If commandsList(num).Contains("SlideshowFirst") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.FirstImage, False) StringClean = StringClean.Replace("@SlideshowFirst", "") + Continue For End If - If StringClean.Contains("@SlideshowLast") Then + If commandsList(num).Contains("SlideshowLast") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.LastImage, False) StringClean = StringClean.Replace("@SlideshowLast", "") + Continue For End If - If StringClean.Contains("@SlideshowNext") Then + If commandsList(num).Contains("SlideshowNext") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.NextImage, False) StringClean = StringClean.Replace("@SlideshowNext", "") + Continue For End If - If StringClean.Contains("@SlideshowPrevious") Then + If commandsList(num).Contains("SlideshowPrevious") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.PreviousImage, False) StringClean = StringClean.Replace("@SlideshowPrevious", "") + Continue For End If - If StringClean.Contains("@GotoSlideshow") Then + If commandsList(num).Contains("GotoSlideshow") Then Dim ImageString As String = ssh.CustomSlideshow.CurrentImage If ImageString IsNot Nothing OrElse ImageString = "" Then @@ -8957,23 +9003,28 @@ RinseLatherRepeat: End If StringClean = StringClean.Replace("@GotoSlideshow", "") + Continue For End If '---------------------------------------- ' Slideshow - End '---------------------------------------- ' This Command will not work in the same line, because the Images are loaded async and not available yet. - If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) + If commandsList(num).Contains("CurrentImage") Then + StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) + Continue For + End If ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs ' (including Long Edge and Start Stroking) or when the sub gives up. - If StringClean.Contains("@LockImages") Then + If commandsList(num).Contains("LockImages") Then ssh.LockImage = True nextButton.Enabled = False previousButton.Enabled = False PicStripTSMIdommeSlideshow.Enabled = False StringClean = StringClean.Replace("@LockImages", "") + Continue For End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' ImageCommands - End @@ -8982,8 +9033,7 @@ RinseLatherRepeat: ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - If StringClean.Contains("@Chance") Then - + If commandsList(num).Contains("Chance") Then Dim ChanceTemp As String Dim TSStartIndex As Integer Dim TSEndIndex As Integer @@ -9019,7 +9069,7 @@ RinseLatherRepeat: End If End If - + Continue For End If ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of @@ -9028,8 +9078,7 @@ RinseLatherRepeat: ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - If StringClean.Contains("@CheckFlag") Then - + If commandsList(num).Contains("CheckFlag") Then Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -9070,13 +9119,10 @@ RinseLatherRepeat: 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") - End If - Next - ' StringClean = Join(CheckArray, Nothing) - + Continue For End If @@ -9086,8 +9132,7 @@ TaskCleanSet: ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). - If StringClean.Contains("@SetFlag(") Then - + If commandsList(num).Contains("SetFlag(") Then Dim SetArray As String() = StringClean.Split(")") For i As Integer = 0 To SetArray.Count - 1 @@ -9121,21 +9166,17 @@ TaskCleanSet: 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") - End If - Next - 'StringClean = Join(SetArray, Nothing) - + Continue For End If ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). - If StringClean.Contains("@TempFlag(") Then - + If commandsList(num).Contains("TempFlag(") Then Dim TempArray As String() = StringClean.Split(")") For i As Integer = 0 To TempArray.Count - 1 @@ -9169,22 +9210,17 @@ TaskCleanSet: 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") - End If - Next - 'StringClean = Join(TempArray, Nothing) - + Continue For End If ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). - - If StringClean.Contains("@DeleteFlag(") Then - + If commandsList(num).Contains("DeleteFlag(") Then Dim DeleteArray As String() = StringClean.Split(")") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9217,13 +9253,10 @@ TaskCleanSet: ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") - End If - Next - 'StringClean = Join(DeleteArray, Nothing) - + Continue For End If ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. @@ -9231,8 +9264,7 @@ TaskCleanSet: ' Multiple @SetVar[] Commands may be used per line if you wish. ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - If StringClean.Contains("@SetVar[") Then - + If commandsList(num).Contains("SetVar[") Then Dim VarArray As String() = StringClean.Split For i As Integer = 0 To VarArray.Count - 1 @@ -9257,13 +9289,10 @@ TaskCleanSet: SCGotVar = SCGotVar.Replace(" ", "") My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) - End If - Next - StringClean = Join(VarArray) - + Continue For End If ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . @@ -9272,8 +9301,7 @@ TaskCleanSet: ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is ' specified, "Days" will be used. - If StringClean.Contains("@SetDate(") Then - + If commandsList(num).Contains("SetDate(") Then Dim CheckArray As String() = StringClean.Split(")") Dim OriginalCheck As String @@ -9314,13 +9342,10 @@ TaskCleanSet: ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") - End If - Next - 'StringClean = Join(CheckArray, Nothing) - + Continue For End If @@ -9328,9 +9353,7 @@ TaskCleanSet: ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line - - If StringClean.Contains("@RoundVar[") Then - + If commandsList(num).Contains("RoundVar[") Then Dim VarArray As String() = StringClean.Split For i As Integer = 0 To VarArray.Count - 1 @@ -9371,13 +9394,10 @@ TaskCleanSet: My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) End If - ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") - Next - StringClean = Join(VarArray) - + Continue For End If ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] @@ -9385,8 +9405,7 @@ TaskCleanSet: ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / 'More than one @ChangeVar[] Command can be used per line. - If StringClean.Contains("@ChangeVar[") Then - + If commandsList(num).Contains("ChangeVar[") Then Dim ChangeArray As String() = StringClean.Split For i As Integer = 0 To ChangeArray.Count - 1 @@ -9457,20 +9476,16 @@ TaskCleanSet: If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - + If Not ssh.ScriptOperator = "Null" Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) End If - Next - + Continue For End If ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] ' More than one @ShowVar[] Commands can be used per line - If StringClean.Contains("@ShowVar[") Then - + If commandsList(num).Contains("ShowVar[") Then Dim VarSplit As String() = StringClean.Split("]") For i As Integer = 0 To VarSplit.Count - 1 @@ -9488,30 +9503,29 @@ TaskCleanSet: Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) - End If - Next - + Continue For End If - If StringClean.Contains("@ChastityOn") Then + If commandsList(num).Contains("ChastityOn") Then My.Settings.Chastity = True FrmSettings.LBLChastityState.Text = "ON" FrmSettings.LBLChastityState.ForeColor = Color.Green StringClean = StringClean.Replace("@ChastityOn", "") + Continue For End If - If StringClean.Contains("@ChastityOff") Then + If commandsList(num).Contains("ChastityOff") Then My.Settings.Chastity = False FrmSettings.LBLChastityState.Text = "OFF" FrmSettings.LBLChastityState.ForeColor = Color.Red StringClean = StringClean.Replace("@ChastityOff", "") + Continue For End If - If StringClean.Contains("@AddTokens(") Then - + If commandsList(num).Contains("AddTokens(") Then Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenAdd As Integer @@ -9537,12 +9551,11 @@ TaskCleanSet: StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") - + Continue For End If - If StringClean.Contains("@RemoveTokens(") Then - + If commandsList(num).Contains("RemoveTokens(") Then Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenRemove As Integer @@ -9572,75 +9585,83 @@ TaskCleanSet: StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") - + Continue For End If - If StringClean.Contains("@Add1Token") Then + If commandsList(num).Contains("Add1Token") Then ssh.BronzeTokens += 1 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add1Token", "") + Continue For End If - If StringClean.Contains("@Add3Tokens") Then + If commandsList(num).Contains("Add3Tokens") Then ssh.BronzeTokens += 3 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add3Tokens", "") + Continue For End If - If StringClean.Contains("@Add5Tokens") Then + If commandsList(num).Contains("Add5Tokens") Then ssh.BronzeTokens += 5 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() - StringClean = StringClean.Replace("@Add5Tokens", "") MessageBox.Show(Me, ssh.tempDomName & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add5Tokens", "") + Continue For End If - If StringClean.Contains("@Add10Tokens") Then + If commandsList(num).Contains("Add10Tokens") Then ssh.BronzeTokens += 10 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add10Tokens", "") + Continue For End If - If StringClean.Contains("@Add25Tokens") Then + If commandsList(num).Contains("Add25Tokens") Then ssh.BronzeTokens += 25 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add25Tokens", "") + Continue For End If - If StringClean.Contains("@Add50Tokens") Then + If commandsList(num).Contains("Add50Tokens") Then ssh.BronzeTokens += 50 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add50Tokens", "") + Continue For End If - If StringClean.Contains("@Add100Tokens") Then + If commandsList(num).Contains("Add100Tokens") Then ssh.BronzeTokens += 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add50Tokens", "") + Continue For End If - If StringClean.Contains("@Remove100Tokens") Then + If commandsList(num).Contains("Remove100Tokens") Then ssh.BronzeTokens -= 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@@Remove100Tokens", "") + StringClean = StringClean.Replace("@Remove100Tokens", "") + Continue For End If - If StringClean.Contains("@UpdateOrgasm") Then + If commandsList(num).Contains("UpdateOrgasm") Then My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) 'Github Patch @@ -9648,9 +9669,10 @@ TaskCleanSet: FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm StringClean = StringClean.Replace("@UpdateOrgasm", "") + Continue For End If - If StringClean.Contains("@UpdateRuined") Then + If commandsList(num).Contains("UpdateRuined") Then My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) ' GithubPatch @@ -9658,10 +9680,10 @@ TaskCleanSet: FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined StringClean = StringClean.Replace("@UpdateRuined", "") + Continue For End If - If StringClean.Contains("@DeleteVar[") Then - + If commandsList(num).Contains("DeleteVar[") Then Dim DeleteArray As String() = StringClean.Split("]") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9694,27 +9716,25 @@ TaskCleanSet: 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") - End If - Next - 'StringClean = Join(DeleteArray, Nothing) - + Continue For End If - If StringClean.Contains("@PornAllowedOff") Then + If commandsList(num).Contains("PornAllowedOff") Then CreateFlag("SYS_NoPornAllowed") StringClean = StringClean.Replace("@PornAllowedOff", "") + Continue For End If - If StringClean.Contains("@PornAllowedOn") Then + If commandsList(num).Contains("PornAllowedOn") Then DeleteFlag("SYS_NoPornAllowed") StringClean = StringClean.Replace("@PornAllowedOn", "") + Continue For End If - If StringClean.Contains("@RestrictOrgasm(") Then - + If commandsList(num).Contains("RestrictOrgasm(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") If CheckFlag.Contains(",") Then @@ -9769,15 +9789,16 @@ TaskCleanSet: End If ssh.OrgasmRestricted = True StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") + Continue For End If - If StringClean.Contains("@RestrictOrgasm") Then + If commandsList(num).Contains("RestrictOrgasm") Then ssh.OrgasmRestricted = True StringClean = StringClean.Replace("@RestrictOrgasm", "") + Continue For End If - If StringClean.Contains("@DecreaseOrgasmChance") Then - + If commandsList(num).Contains("DecreaseOrgasmChance") Then If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" @@ -9786,10 +9807,10 @@ TaskCleanSet: My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") + Continue For End If - If StringClean.Contains("@IncreaseOrgasmChance") Then - + If commandsList(num).Contains("IncreaseOrgasmChance") Then If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" @@ -9798,10 +9819,10 @@ TaskCleanSet: My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") + Continue For End If - If StringClean.Contains("@DecreaseRuinChance") Then - + If commandsList(num).Contains("DecreaseRuinChance") Then If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" @@ -9810,10 +9831,10 @@ TaskCleanSet: My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text StringClean = StringClean.Replace("@DecreaseRuinChance", "") + Continue For End If - If StringClean.Contains("@IncreaseRuinChance") Then - + If commandsList(num).Contains("IncreaseRuinChance") Then If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" @@ -9822,6 +9843,7 @@ TaskCleanSet: My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text StringClean = StringClean.Replace("@IncreaseRuinChance", "") + Continue For End If '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END @@ -9833,8 +9855,7 @@ TaskCleanSet: ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set ' for the Variable "NoPorn" by @SetDate() - If StringClean.Contains("@CheckDate(") Then - + If commandsList(num).Contains("CheckDate(") Then Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -9855,7 +9876,7 @@ TaskCleanSet: End If Next - + Continue For End If ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. @@ -9863,21 +9884,20 @@ TaskCleanSet: ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. - If StringClean.Contains("@InputVar[") Then + If commandsList(num).Contains("InputVar[") Then ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") ssh.InputFlag = True If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - + Continue For End If ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt - If StringClean.Contains("@DislikeBlogImage") Then - + If commandsList(num).Contains("DislikeBlogImage") Then If ssh.ImageLocation <> "" Then If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then @@ -9887,13 +9907,12 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@DislikeBlogImage", "") End If - + Continue For End If ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - If StringClean.Contains("@LikeBlogImage") Then - + If commandsList(num).Contains("LikeBlogImage") Then If ssh.ImageLocation <> "" Then If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then @@ -9903,7 +9922,7 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@LikeBlogImage", "") End If - + Continue For End If Debug.Print("SubStroking = " & ssh.SubStroking) @@ -9914,40 +9933,44 @@ TaskCleanSet: ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ - If StringClean.Contains("@StrokeFaster") Then + If commandsList(num).Contains("StrokeFaster") Then ssh.StrokeFaster = True StringClean = StringClean.Replace("@StrokeFaster", "") + Continue For End If ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ - If StringClean.Contains("@StrokeSlower") Then + If commandsList(num).Contains("StrokeSlower") Then ssh.StrokeSlower = True StringClean = StringClean.Replace("@StrokeSlower", "") + Continue For End If ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - If StringClean.Contains("@StrokeFastest") Then + If commandsList(num).Contains("StrokeFastest") Then ssh.StrokeFastest = True StringClean = StringClean.Replace("@StrokeFastest", "") + Continue For End If ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ - If StringClean.Contains("@StrokeSlowest") Then + If commandsList(num).Contains("StrokeSlowest") Then ssh.StrokeSlowest = True StringClean = StringClean.Replace("@StrokeSlowest", "") + Continue For End If - If StringClean.Contains("@StartStroking") Then + If commandsList(num).Contains("StartStroking") Then If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) @@ -9962,13 +9985,13 @@ TaskCleanSet: End Try End If - If StringClean.Contains("@Contact1") Then + If commandsList(num).Contains("Contact1") Then ssh.Contact1Stroke = True - ElseIf StringClean.Contains("@Contact2") Then + ElseIf commandsList(num).Contains("Contact2") Then ssh.Contact2Stroke = True - ElseIf StringClean.Contains("@Contact3") Then + ElseIf commandsList(num).Contains("Contact3") Then ssh.Contact3Stroke = True - ElseIf StringClean.Contains("@RandomContact") Then + ElseIf commandsList(num).Contains("RandomContact") Then Dim casual As Integer = 0 casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) Select Case ssh.currentlyPresentContacts(casual) @@ -10030,9 +10053,10 @@ TaskCleanSet: StrokeTimer.Start() StrokeTauntTimer.Start() StringClean = StringClean.Replace("@StartStroking", "") + Continue For End If - If StringClean.Contains("@StartTaunts") Then + If commandsList(num).Contains("StartTaunts") Then ssh.AskedToGiveUpSection = False ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False @@ -10060,9 +10084,10 @@ TaskCleanSet: StrokeTimer.Start() StrokeTauntTimer.Start() StringClean = StringClean.Replace("@StartTaunts", "") + Continue For End If - If StringClean.Contains("@StopStroking") Then + If commandsList(num).Contains("StopStroking") Then If FrmSettings.TBWebStop.Text <> "" Then Try FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) @@ -10099,9 +10124,10 @@ TaskCleanSet: EdgeTauntTimer.Stop() HoldEdgeTauntTimer.Stop() StringClean = StringClean.Replace("@StopStroking", "") + Continue For End If - If StringClean.Contains("@StopTaunts") Then + If commandsList(num).Contains("StopTaunts") Then ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False ssh.SubStroking = False @@ -10112,38 +10138,42 @@ TaskCleanSet: EdgeTauntTimer.Stop() HoldEdgeTauntTimer.Stop() StringClean = StringClean.Replace("@StopTaunts", "") + Continue For End If - If StringClean.Contains("@LongHold(") Then + If commandsList(num).Contains("LongHold(") Then Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) ssh.TempVal = ssh.randomizer.Next(0, 101) If ssh.TempVal <= HoldInt Then ssh.LongHold = True StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") + Continue For End If - If StringClean.Contains("@ExtremeHold(") Then + If commandsList(num).Contains("ExtremeHold(") Then Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) ssh.TempVal = ssh.randomizer.Next(0, 101) If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") + Continue For End If - If StringClean.Contains("@LongHold") Then + If commandsList(num).Contains("LongHold") Then ssh.LongHold = True StringClean = StringClean.Replace("@LongHold", "") + Continue For End If - If StringClean.Contains("@ExtremeHold") Then + If commandsList(num).Contains("ExtremeHold") Then ssh.ExtremeHold = True StringClean = StringClean.Replace("@ExtremeHold", "") + Continue For End If - If StringClean.Contains("@MultipleEdges(") Then - - If StringClean.Contains("@Edg") Then + If commandsList(num).Contains("MultipleEdges(") Then + If commandsList(num).Contains("Edg") Then Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") EdgeFlag = FixCommas(EdgeFlag) @@ -10168,12 +10198,11 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") - + Continue For End If - If StringClean.Contains("@Edge(") Then - + If commandsList(num).Contains("Edge(") Then ContactEdgeCheck(StringClean) Edge() @@ -10207,13 +10236,12 @@ TaskCleanSet: If ssh.ExtremeHold = True Then ssh.ExtremeTaunts = True If ssh.LongTaunts = False And ssh.ExtremeTaunts = False Then ssh.HoldTaunts = True End If - + Continue For End If - If StringClean.Contains("@EdgeMode(") Then - + If commandsList(num).Contains("EdgeMode(") Then Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") EdgeFlag = FixCommas(EdgeFlag) Dim EdgeArray As String() = EdgeFlag.Split(",") @@ -10238,18 +10266,19 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") + Continue For End If - If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then + If commandsList(num).Contains("EdgeToRuinNoHoldNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuin = True ssh.EdgeToRuinSecret = False StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") + Continue For End If - If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then - + If commandsList(num).Contains("EdgeToRuinHoldNoSecret(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") If EdgeHoldFlag.Contains(",") Then @@ -10285,37 +10314,40 @@ TaskCleanSet: ssh.EdgeToRuin = True ssh.EdgeToRuinSecret = False StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") + Continue For End If - If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then + If commandsList(num).Contains("EdgeToRuinHoldNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True ssh.EdgeToRuin = True ssh.EdgeToRuinSecret = False StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") + Continue For End If - If StringClean.Contains("@EdgeToRuinNoSecret") Then + If commandsList(num).Contains("EdgeToRuinNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuinSecret = False ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") + Continue For End If - If StringClean.Contains("@EdgeToRuinNoHold") Then + If commandsList(num).Contains("EdgeToRuinNoHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeNoHold = True ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") + Continue For End If - If StringClean.Contains("@EdgeToRuinHold(") Then - + If commandsList(num).Contains("EdgeToRuinHold(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") If EdgeHoldFlag.Contains(",") Then @@ -10351,28 +10383,32 @@ TaskCleanSet: ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") + Continue For End If - If StringClean.Contains("@EdgeToRuinHold") Then + If commandsList(num).Contains("EdgeToRuinHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinHold", "") + Continue For End If - If StringClean.Contains("@EdgeToRuin") Then + If commandsList(num).Contains("EdgeToRuin") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuin", "") + Continue For End If - If StringClean.Contains("@EdgeNoHold") Then + If commandsList(num).Contains("EdgeNoHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeNoHold = True StringClean = StringClean.Replace("@EdgeNoHold", "") + Continue For End If @@ -10383,8 +10419,7 @@ TaskCleanSet: ' 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. - If StringClean.Contains("@EdgeHold(") Then - + If commandsList(num).Contains("EdgeHold(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") If EdgeHoldFlag.Contains(",") Then @@ -10419,43 +10454,46 @@ TaskCleanSet: Edge() ssh.EdgeHold = True StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") - + Continue For End If - If StringClean.Contains("@EdgeHold") Then + If commandsList(num).Contains("EdgeHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True StringClean = StringClean.Replace("@EdgeHold", "") + Continue For End If - If StringClean.Contains("@Edge") Then + If commandsList(num).Contains("Edge") Then ContactEdgeCheck(StringClean) Edge() StringClean = StringClean.Replace("@Edge", "") + Continue For End If - If StringClean.Contains("@CBTBalls") Then + If commandsList(num).Contains("CBTBalls") Then If FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBallsActive = True ssh.CBTBallsFlag = True ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If StringClean = StringClean.Replace("@CBTBalls", "") + Continue For End If - If StringClean.Contains("@CBTCock") Then + If commandsList(num).Contains("CBTCock") Then If FrmSettings.CBCBTCock.Checked = True Then ssh.CBTCockActive = True ssh.CBTCockFlag = True ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If StringClean = StringClean.Replace("@CBTCock", "") + Continue For End If - If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then - + If commandsList(num).Contains("CBT") And Not commandsList(num).Contains("CBTLevel") Then If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBothActive = True ssh.CBTBothFlag = True @@ -10463,14 +10501,14 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@CBT", "") + Continue For End If ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. - If StringClean.Contains("@CustomTask(") Then - + If commandsList(num).Contains("CustomTask(") Then Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") CustomFlag = FixCommas(CustomFlag) @@ -10493,11 +10531,11 @@ TaskCleanSet: StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") - + Continue For End If - If StringClean.Contains("@DecideOrgasm") Then + If commandsList(num).Contains("DecideOrgasm") Then ssh.OrgasmDenied = False ssh.OrgasmAllowed = False @@ -10507,8 +10545,7 @@ TaskCleanSet: Dim RuinGoto As String = "Orgasm Ruin" Dim DenyGoto As String = "Orgasm Deny" - If StringClean.Contains("@DecideOrgasm(") Then - + If commandsList(num).Contains("DecideOrgasm(") Then Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") OrgasmFlag = FixCommas(OrgasmFlag) Dim OrgasmArray As String() = OrgasmFlag.Split(",") @@ -10585,31 +10622,35 @@ OrgasmDecided: GetGoto() StringClean = StringClean.Replace("@DecideOrgasm", "") + Continue For End If - If StringClean.Contains("@OrgasmRuin") Then + If commandsList(num).Contains("OrgasmRuin") Then ssh.FileGoto = "Orgasm Ruin" ssh.OrgasmRuined = True ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@OrgasmRuin", "") + Continue For End If - If StringClean.Contains("@OrgasmDeny") Then + If commandsList(num).Contains("OrgasmDeny") Then ssh.FileGoto = "Orgasm Deny" ssh.OrgasmDenied = True ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@OrgasmDeny", "") + Continue For End If - If StringClean.Contains("@OrgasmAllow") Then + If commandsList(num).Contains("OrgasmAllow") Then ssh.FileGoto = "Orgasm Allow" ssh.OrgasmAllowed = True ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@OrgasmAllow", "") + Continue For End If @@ -10617,8 +10658,7 @@ OrgasmDecided: ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. - If StringClean.Contains("@Glitter(") Then - + If commandsList(num).Contains("Glitter(") Then ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") @@ -10631,13 +10671,11 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - + Continue For End If - - - If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then - If StringClean.Contains("@WritingTask(") Then + If commandsList(num).Contains("WritingTask(") Or commandsList(num).Contains("WritingTaskRandom(") Then + If commandsList(num).Contains("WritingTask(") Then ssh.randomWriteTask = False StringClean = StringClean.Replace("@WritingTask", "") Else @@ -10699,11 +10737,10 @@ OrgasmDecided: LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") End If - + Continue For End If - If StringClean.Contains("@CheckJOIVideo") Then - + If commandsList(num).Contains("CheckJOIVideo") Then If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then Else @@ -10718,12 +10755,10 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@CheckJOIVideo", "") - + Continue For End If - - If StringClean.Contains("@PlayJOIVideo") Then - + If commandsList(num).Contains("PlayJOIVideo") Then If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then ssh.TeaseVideo = True @@ -10731,11 +10766,10 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayJOIVideo", "") - + Continue For End If - If StringClean.Contains("@PlayCHVideo") Then - + If commandsList(num).Contains("PlayCHVideo") Then If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then ssh.TeaseVideo = True @@ -10743,15 +10777,10 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayCHVideo", "") - + Continue For End If - - - - If StringClean.Contains("@GiveUpCheck") Then - - + If commandsList(num).Contains("GiveUpCheck") Then If ssh.AskedToGiveUpSection = True Then If ssh.SubGaveUp = True Then @@ -10793,17 +10822,13 @@ OrgasmDecided: ' you can't give up ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" End If - - - End If - StringClean = ResponseClean(StringClean) - + Continue For End If - If StringClean.Contains("@EndTease") Then + If commandsList(num).Contains("EndTease") Then SetVariable("SYS_SubLeftEarly", 0) 'My.Settings.Sys_SubLeftEarly = 0 'StopEverything() @@ -10815,42 +10840,48 @@ OrgasmDecided: ssh.DomChat = "@SystemMessage Tease AI has been reset" setStartName() StringClean = StringClean.Replace("@EndTease", "") + Continue For End If - If StringClean.Contains("@FinishTease") Then + If commandsList(num).Contains("FinishTease") Then ssh.TeaseTick = 0 StringClean = StringClean.Replace("@FinishTease", "") + Continue For End If - If StringClean.Contains("@DommeLevelDown") Then + If commandsList(num).Contains("DommeLevelDown") Then If FrmSettings.domlevelNumBox.Value > 1 Then FrmSettings.domlevelNumBox.Value -= 1 End If StringClean = StringClean.Replace("@DommeLevelDown", "") + Continue For End If - If StringClean.Contains("@ApathyLevelDown") Then + If commandsList(num).Contains("ApathyLevelDown") Then If FrmSettings.NBEmpathy.Value > 1 Then FrmSettings.NBEmpathy.Value -= 1 End If StringClean = StringClean.Replace("@ApathyLevelDown", "") + Continue For End If - If StringClean.Contains("@DommeLevelUp") Then + If commandsList(num).Contains("DommeLevelUp") Then If FrmSettings.domlevelNumBox.Value < 5 Then FrmSettings.domlevelNumBox.Value += 1 End If StringClean = StringClean.Replace("@DommeLevelUp", "") + Continue For End If - If StringClean.Contains("@ApathyLevelUp") Then + If commandsList(num).Contains("ApathyLevelUp") Then If FrmSettings.NBEmpathy.Value < 5 Then FrmSettings.NBEmpathy.Value += 1 End If StringClean = StringClean.Replace("@ApathyLevelUp", "") + Continue For End If - If StringClean.Contains("@InterruptLongEdge") Then + If commandsList(num).Contains("InterruptLongEdge") Then ssh.isLink = False ssh.BeforeTease = False Dim EdgeList As New List(Of String) @@ -10889,9 +10920,10 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@InterruptLongEdge", "") ssh.JustShowedBlogImage = True + Continue For End If - If StringClean.Contains("@InterruptStartStroking") Then + If commandsList(num).Contains("InterruptStartStroking") Then ssh.isLink = False ssh.BeforeTease = False If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then @@ -10939,9 +10971,10 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@InterruptStartStroking", "") ssh.JustShowedBlogImage = True + Continue For End If - If StringClean.Contains("@Interrupt(") Then + If commandsList(num).Contains("Interrupt(") Then ssh.isLink = False ssh.BeforeTease = False Dim InterruptClean As String = StringClean @@ -10994,7 +11027,6 @@ OrgasmDecided: ssh.ScriptTick = 3 ScriptTimer.Start() ssh.ShowModule = True - Else MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) @@ -11002,33 +11034,38 @@ OrgasmDecided: StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") ssh.JustShowedBlogImage = True + Continue For End If - If StringClean.Contains("@BookmarkModule") Then + If commandsList(num).Contains("BookmarkModule") Then ssh.BookmarkModule = True ssh.BookmarkModuleFile = ssh.FileText ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 StringClean = StringClean.Replace("@BookmarkModule", "") + Continue For End If - If StringClean.Contains("@BookmarkLink") Then + If commandsList(num).Contains("BookmarkLink") Then ssh.BookmarkLink = True ssh.BookmarkLinkFile = ssh.FileText ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 StringClean = StringClean.Replace("@BookmarkLink", "") + Continue For End If - If StringClean.Contains("@AFKOn") Then + If commandsList(num).Contains("AFKOn") Then ssh.AFK = True StringClean = StringClean.Replace("@AFKOn", "") + Continue For End If - If StringClean.Contains("@AFKOff") Then + If commandsList(num).Contains("AFKOff") Then ssh.AFK = False StringClean = StringClean.Replace("@AFKOff", "") + Continue For End If - If StringClean.Contains("@Wait(") Then + If commandsList(num).Contains("Wait(") Then Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") Dim WaitSeconds As Integer = Val(WaitFlag) @@ -11040,17 +11077,18 @@ OrgasmDecided: WaitTimer.Start() StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") - + Continue For End If - If StringClean.Contains("@SendDailyTasks") Then + If commandsList(num).Contains("SendDailyTasks") Then CreateTaskLetter() StringClean = StringClean.Replace("@SendDailyTasks", "") + Continue For End If - If StringClean.Contains("@EdgingHold") Then + If commandsList(num).Contains("EdgingHold") Then 'ssh.DomTypeCheck = True ssh.SubEdging = False @@ -11095,9 +11133,10 @@ OrgasmDecided: StringClean = StringClean.Replace("@EdgingHold", "") + Continue For End If - If StringClean.Contains("@EdgingStop") Then + If commandsList(num).Contains("EdgingStop") Then ssh.DomTypeCheck = True ssh.SubEdging = False @@ -11107,10 +11146,11 @@ OrgasmDecided: TypingDelay() StringClean = StringClean.Replace("@EdgingStop", "") + Continue For End If - 'Github Patch If StringClean.Contains("@EdgingDecide") Then - If StringClean.Contains("@DecideEdge") Then + 'Github Patch If commandsList(num).Contains("EdgingDecide") Then + If commandsList(num).Contains("DecideEdge") Then ssh.TempVal = ssh.randomizer.Next(0, 101) @@ -11177,16 +11217,14 @@ OrgasmDecided: TypingDelay() End If - 'Do 'Application.DoEvents() 'Loop Until ssh.DomTypeCheck = False - - StringClean = StringClean.Replace("@DecideEdge", "") + Continue For End If - If StringClean.Contains("@CheckVideo") Then + If commandsList(num).Contains("CheckVideo") Then ssh.VideoCheck = True RandomVideo() If ssh.NoVideo = True Then @@ -11199,11 +11237,12 @@ OrgasmDecided: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@CheckVideo", "") + Continue For End If - If StringClean.Contains("@PlayCensorshipSucks") Then + If commandsList(num).Contains("PlayCensorshipSucks") Then - If StringClean.Contains("@PlayCensorshipSucks[") Then + If commandsList(num).Contains("PlayCensorshipSucks[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") @@ -11221,11 +11260,11 @@ OrgasmDecided: ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) CensorshipTimer.Start() End If - StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + Continue For End If - If StringClean.Contains("@VitalSubAssignment") Then + If commandsList(num).Contains("VitalSubAssignment") Then ' Read all lines of the given file. Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") @@ -11250,11 +11289,12 @@ OrgasmDecided: CBVitalSubDomTask.Checked = False My.Settings.VitalSubAssignments = False StringClean = StringClean.Replace("@VitalSubAssignment", "") + Continue For End If - If StringClean.Contains("@PlayAvoidTheEdge") Then + If commandsList(num).Contains("PlayAvoidTheEdge") Then ' #### Reboot - If StringClean.Contains("@PlayAvoidTheEdge[") Then + If commandsList(num).Contains("PlayAvoidTheEdge[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") @@ -11280,13 +11320,12 @@ OrgasmDecided: StrokePace = 50 * Math.Round(StrokePace / 50) ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() - End If - StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") + Continue For End If - If StringClean.Contains("@ResumeAvoidTheEdge") Then + If commandsList(num).Contains("ResumeAvoidTheEdge") Then DomWMP.Ctlcontrols.play() ScriptTimer.Stop() ssh.AvoidTheEdgeStroking = True @@ -11298,11 +11337,12 @@ OrgasmDecided: ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") + Continue For End If - If StringClean.Contains("@PlayRedLightGreenLight") Then + If commandsList(num).Contains("PlayRedLightGreenLight") Then ' #### Reboot - If StringClean.Contains("@PlayRedLightGreenLight[") Then + If commandsList(num).Contains("PlayRedLightGreenLight[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") @@ -11331,12 +11371,12 @@ OrgasmDecided: StrokePace = 50 * Math.Round(StrokePace / 50) 'VideoTauntTick = randomizer.Next(20, 31) 'VideoTauntTimer.Start() - End If StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") + Continue For End If - If StringClean.Contains("@PlayVideo[") Then + If commandsList(num).Contains("PlayVideo[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") selectVideo(videoFlag) @@ -11347,10 +11387,10 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") + Continue For End If - If StringClean.Contains("@PlayAudio[") Then - + If commandsList(num).Contains("PlayAudio[") Then Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag Dim AudioClean As String @@ -11362,8 +11402,6 @@ OrgasmDecided: AudioClean = AudioClean.Replace("\\", "\") End If - - If AudioClean.Contains("*") Then Dim AudioList As New List(Of String) @@ -11378,34 +11416,28 @@ OrgasmDecided: MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - Else - - If File.Exists(AudioClean) Then DomWMP.URL = AudioClean Else MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - End If - ExternalAudio: - StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") - + Continue For End If - If StringClean.Contains("@PlayVideo(") Then + If commandsList(num).Contains("PlayVideo(") Then Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") Dim VidInt As Integer = Val(VidFlag) If UCase(VidFlag).Contains("M") Then VidInt *= 60 - If StringClean.Contains("@JumpVideo") Then + If commandsList(num).Contains("JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") End If @@ -11423,15 +11455,16 @@ ExternalAudio: ssh.RandomizerVideo = False StringClean = StringClean.Replace("@PlayVideo", "") + Continue For End If - If StringClean.Contains("@PlayVideo") Then + If commandsList(num).Contains("PlayVideo") Then - If StringClean.Contains("@JumpVideo") Then + If commandsList(num).Contains("JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") End If @@ -11447,9 +11480,10 @@ ExternalAudio: ssh.RandomizerVideo = False StringClean = StringClean.Replace("@PlayVideo", "") + Continue For End If - If StringClean.Contains("@JumpVideo") Then + If commandsList(num).Contains("JumpVideo") Then If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then Dim VideoLength As Integer = DomWMP.currentMedia.duration @@ -11465,10 +11499,11 @@ ExternalAudio: End If StringClean = StringClean.Replace("@JumpVideo", "") + Continue For End If - If StringClean.Contains("@AddStrokeTime(") Then + If commandsList(num).Contains("AddStrokeTime(") Then Dim OriginalFlag As String = "" @@ -11496,9 +11531,10 @@ ExternalAudio: ssh.StrokeTick += StrokeSeconds End If StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") + Continue For End If - If StringClean.Contains("@RemoveStrokeTime(") Then + If commandsList(num).Contains("RemoveStrokeTime(") Then Dim OriginalFlag As String = "" @@ -11527,11 +11563,12 @@ ExternalAudio: If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 End If StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") + Continue For End If - If StringClean.Contains("@AddStrokeTime") Then + If commandsList(num).Contains("AddStrokeTime") Then If StrokeTimer.Enabled = True Then If FrmSettings.CBTauntCycleDD.Checked = True Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 @@ -11544,17 +11581,19 @@ ExternalAudio: End If End If StringClean = StringClean.Replace("@AddStrokeTime", "") + Continue For End If - If StringClean.Contains("@RemoveStrokeTime") Then + If commandsList(num).Contains("RemoveStrokeTime") Then If StrokeTimer.Enabled = True Then ssh.StrokeTick -= ssh.StrokeTick / 2 End If StringClean = StringClean.Replace("@RemoveStrokeTime", "") + Continue For End If - If StringClean.Contains("@AddEdgeHoldTime(") Then + If commandsList(num).Contains("AddEdgeHoldTime(") Then Dim OriginalFlag As String = "" @@ -11582,9 +11621,10 @@ ExternalAudio: ssh.HoldEdgeTick += HoldEdgeSeconds End If StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") + Continue For End If - If StringClean.Contains("@RemoveEdgeHoldTime(") Then + If commandsList(num).Contains("RemoveEdgeHoldTime(") Then Dim OriginalFlag As String = "" @@ -11613,10 +11653,11 @@ ExternalAudio: If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 End If StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") + Continue For End If - If StringClean.Contains("@AddEdgeHoldTime") Then + If commandsList(num).Contains("AddEdgeHoldTime") Then If HoldEdgeTimer.Enabled = True Then Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value @@ -11631,17 +11672,19 @@ ExternalAudio: If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 End If StringClean = StringClean.Replace("@AddEdgeHoldTime", "") + Continue For End If - If StringClean.Contains("@RemoveEdgeHoldTime") Then + If commandsList(num).Contains("RemoveEdgeHoldTime") Then If HoldEdgeTimer.Enabled = True Then ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 End If StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") + Continue For End If - If StringClean.Contains("@AddTeaseTime(") Then + If commandsList(num).Contains("AddTeaseTime(") Then Dim OriginalFlag As String = "" 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun @@ -11672,9 +11715,10 @@ ExternalAudio: If ssh.LastScript Then ssh.LastScript = False If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") + Continue For End If - If StringClean.Contains("@RemoveTeaseTime(") Then + If commandsList(num).Contains("RemoveTeaseTime(") Then Dim OriginalFlag As String = "" @@ -11703,9 +11747,10 @@ ExternalAudio: If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 End If StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") + Continue For End If - If StringClean.Contains("@AddTeaseTime") Then + If commandsList(num).Contains("AddTeaseTime") Then 'same as before about the teasetimer ' If TeaseTimer.Enabled = True Then If FrmSettings.CBTeaseLengthDD.Checked = True Then @@ -11721,73 +11766,85 @@ ExternalAudio: If ssh.LastScript Then ssh.LastScript = False If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True StringClean = StringClean.Replace("@AddTeaseTime", "") + Continue For End If - If StringClean.Contains("@RemoveTeaseTime") Then + If commandsList(num).Contains("RemoveTeaseTime") Then If TeaseTimer.Enabled = True Then ssh.TeaseTick = ssh.TeaseTick / 2 End If StringClean = StringClean.Replace("@RemoveTeaseTime", "") + Continue For End If - If StringClean.Contains("@PlaylistOff") Then + If commandsList(num).Contains("PlaylistOff") Then ssh.Playlist = False StringClean = StringClean.Replace("@PlaylistOff", "") + Continue For End If - If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then + If commandsList(num).Contains("RapidTextOn") Or commandsList(num).Contains("RTOn") Then ssh.RapidFire = True StringClean = StringClean.Replace("@RapidTextOn", "") StringClean = StringClean.Replace("@RTOn", "") + Continue For End If - If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("@RTOff") Then + If commandsList(num).Contains("RapidTextOff") Or commandsList(num).Contains("RTOff") Then ssh.RapidFire = False StringClean = StringClean.Replace("@RapidTextOff", "") StringClean = StringClean.Replace("@RTOff", "") + Continue For End If - If StringClean.Contains("@VoiceOn") Then + If commandsList(num).Contains("VoiceOn") Then FrmSettings.TTSCheckBox.Checked = True StringClean = StringClean.Replace("@VoiceOn", "") + Continue For End If - If StringClean.Contains("@VoiceOff") Then + If commandsList(num).Contains("VoiceOff") Then FrmSettings.TTSCheckBox.Checked = False StringClean = StringClean.Replace("@VoiceOff", "") + Continue For End If - If StringClean.Contains("@GlitterTease1") Then + If commandsList(num).Contains("GlitterTease1") Then ssh.glitterDommeNumber = 1 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease1", "") + Continue For End If - If StringClean.Contains("@GlitterTease2") Then + If commandsList(num).Contains("GlitterTease2") Then ssh.glitterDommeNumber = 2 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease2", "") + Continue For End If - If StringClean.Contains("@GlitterTease3") Then + If commandsList(num).Contains("GlitterTease3") Then ssh.glitterDommeNumber = 3 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease3", "") + Continue For End If - If StringClean.Contains("@DommeTease") Then + If commandsList(num).Contains("DommeTease") Then ssh.glitterDommeNumber = 0 LoadDommeImageFolder() StringClean = StringClean.Replace("@DommeTease", "") + Continue For End If - If StringClean.Contains("@RandomTease") Then + If commandsList(num).Contains("RandomTease") Then ssh.glitterDommeNumber = 4 LoadDommeImageFolder() StringClean = StringClean.Replace("@RandomTease", "") + Continue For End If - If StringClean.Contains("@SetDomme(") Then + If commandsList(num).Contains("SetDomme(") Then Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") ssh.glitterDommeNumber = 0 @@ -11799,9 +11856,10 @@ ExternalAudio: LoadDommeImageFolder() StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") + Continue For End If - If StringClean.Contains("@AddContact1") Then + If commandsList(num).Contains("AddContact1") Then If Not ssh.contact1Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) ssh.contact1Present = True @@ -11810,9 +11868,10 @@ ExternalAudio: End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@AddContact1", "") + Continue For End If - If StringClean.Contains("@RemoveContact1") Then + If commandsList(num).Contains("RemoveContact1") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) @@ -11821,9 +11880,10 @@ ExternalAudio: Contact1Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact1", "") + Continue For End If - If StringClean.Contains("@AddContact2") Then + If commandsList(num).Contains("AddContact2") Then If Not ssh.contact2Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) ssh.contact2Present = True @@ -11832,9 +11892,10 @@ ExternalAudio: End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@AddContact2", "") + Continue For End If - If StringClean.Contains("@RemoveContact2") Then + If commandsList(num).Contains("RemoveContact2") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) @@ -11843,9 +11904,10 @@ ExternalAudio: Contact2Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact2", "") + Continue For End If - If StringClean.Contains("@AddContact3") Then + If commandsList(num).Contains("AddContact3") Then If Not ssh.contact3Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) ssh.contact3Present = True @@ -11854,9 +11916,10 @@ ExternalAudio: End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@AddContact3", "") + Continue For End If - If StringClean.Contains("@RemoveContact3") Then + If commandsList(num).Contains("RemoveContact3") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) @@ -11865,9 +11928,10 @@ ExternalAudio: Contact3Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact3", "") + Continue For End If - If StringClean.Contains("@AddDomme") Then + If commandsList(num).Contains("AddDomme") Then If Not ssh.dommePresent Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) ssh.dommePresent = True @@ -11875,10 +11939,10 @@ ExternalAudio: DommeTimer.Start() End If StringClean = StringClean.Replace("@AddDomme", "") - + Continue For End If - If StringClean.Contains("@RemoveDomme") Then + If commandsList(num).Contains("RemoveDomme") Then 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) @@ -11887,17 +11951,19 @@ ExternalAudio: DommeTimer.Start() End If StringClean = StringClean.Replace("@RemoveDomme", "") + Continue For End If - If StringClean.Contains("@NullResponse") Then + If commandsList(num).Contains("NullResponse") Then ssh.NullResponse = True StringClean = StringClean.Replace("@NullResponse", "") 'Debug.Print("NullResponse Called") + Continue For End If VTSkip: - If StringClean.Contains("@SpeedUpCheck") Then + If commandsList(num).Contains("SpeedUpCheck") Then If ssh.AskedToSpeedUp = True Then ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" @@ -11941,12 +12007,12 @@ VTSkip: End If StringClean = StringClean.Replace("@SpeedUpCheck", "") - GoTo RinseLatherRepeat + 'GoTo RinseLatherRepeat + Continue For End If - If StringClean.Contains("@SlowDownCheck") Then - + If commandsList(num).Contains("SlowDownCheck") Then If ssh.AskedToSpeedUp = True Then ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" StringClean = ResponseClean(StringClean) @@ -11989,12 +12055,11 @@ VTSkip: End If StringClean = StringClean.Replace("@SlowDownCheck", "") - GoTo RinseLatherRepeat - + 'GoTo RinseLatherRepeat + Continue For End If - - If StringClean.Contains("@PlayRiskyPick") Then + If commandsList(num).Contains("PlayRiskyPick") Then ssh.RiskyDeal = True 'FrmCardList.RiskyRound += 1 FrmCardList.TCGames.SelectTab(2) @@ -12003,9 +12068,10 @@ VTSkip: FrmCardList.InitializeRiskyDeal() StringClean = StringClean.Replace("@PlayRiskyPick", "") 'Debug.Print("NullResponse Called") + Continue For End If - If StringClean.Contains("@ChooseRiskyPick") Then + If commandsList(num).Contains("ChooseRiskyPick") Then ssh.RiskyDelay = True If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True @@ -12045,32 +12111,36 @@ VTSkip: StringClean = StringClean.Replace("@ChooseRiskyPick", "") 'Debug.Print("NullResponse Called") + Continue For End If - If StringClean.Contains("@CheckRiskyPick") Then + If commandsList(num).Contains("CheckRiskyPick") Then 'FrmCardList.Focus() FrmCardList.CheckRiskyPick() StringClean = StringClean.Replace("@CheckRiskyPick", "") 'Debug.Print("NullResponse Called") + Continue For End If - If StringClean.Contains("@FinalRiskyPick") Then + If commandsList(num).Contains("FinalRiskyPick") Then 'FrmCardList.Focus() FrmCardList.BTNRiskIt.Text = "LAST CASE" FrmCardList.BTNPickIt.Text = "MY CASE" StringClean = StringClean.Replace("@FinalRiskyPick", "") 'Debug.Print("NullResponse Called") + Continue For End If - If StringClean.Contains("@ClearRiskyLabels") Then + If commandsList(num).Contains("ClearRiskyLabels") Then 'FrmCardList.Focus() FrmCardList.ClearCaseLabelsOffer() StringClean = StringClean.Replace("@ClearRiskyLabels", "") 'Debug.Print("NullResponse Called") + Continue For End If - If StringClean.Contains("@RiskyPayout") Then + If commandsList(num).Contains("RiskyPayout") Then If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then FrmCardList.GameWMP.settings.setMode("loop", False) FrmCardList.GameWMP.settings.volume = 20 @@ -12080,24 +12150,28 @@ VTSkip: FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) StringClean = StringClean.Replace("@RiskyPayout", "") + Continue For End If - If StringClean.Contains("@CloseRiskyPick") Then + If commandsList(num).Contains("CloseRiskyPick") Then FrmCardList.CloseRiskyPick() StringClean = StringClean.Replace("@CloseRiskyPick", "") + Continue For End If - If StringClean.Contains("@RevealLastCase") Then + If commandsList(num).Contains("RevealLastCase") Then FrmCardList.RevealLastCase() StringClean = StringClean.Replace("@RevealLastCase", "") + Continue For End If - If StringClean.Contains("@RevealUserCase") Then + If commandsList(num).Contains("RevealUserCase") Then FrmCardList.RevealUserCase() StringClean = StringClean.Replace("@RevealUserCase", "") + Continue For End If - If StringClean.Contains("@RiskyState") Then + If commandsList(num).Contains("RiskyState") Then If FrmCardList.RiskyState = True Then ssh.FileGoto = "(Risky Game)" Else @@ -12107,24 +12181,20 @@ VTSkip: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@RiskyState", "") + Continue For End If - If StringClean.Contains("@SystemMessage ") Then + If commandsList(num).Contains("SystemMessage ") Then StringClean = StringClean.Replace("@SystemMessage ", "") + Continue For End If - If StringClean.Contains("@EmoteMessage ") Then + If commandsList(num).Contains("EmoteMessage ") Then StringClean = StringClean.Replace("@EmoteMessage ", "") + Continue For End If - - - - - - - - If StringClean.Contains("@MiniScript(") Then + If commandsList(num).Contains("MiniScript(") Then Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" @@ -12134,11 +12204,10 @@ VTSkip: Else StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") End If + Continue For End If - - - If StringClean.Contains("@CallReturn(") Then + If commandsList(num).Contains("CallReturn(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") Dim CallReplace As String = CheckFlag @@ -12223,10 +12292,10 @@ VTSkip: ssh.ShowModule = True ssh.isLink = False StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - + Continue For End If - If StringClean.Contains("@Call(") Then + If commandsList(num).Contains("Call(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12258,10 +12327,11 @@ VTSkip: ssh.ScriptTick = 2 ScriptTimer.Start() StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") + Continue For End If - If StringClean.Contains("@CallRandom(") Then + If commandsList(num).Contains("CallRandom(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12293,6 +12363,7 @@ VTSkip: ssh.ScriptTick = 2 ScriptTimer.Start() StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") + Continue For End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -12300,62 +12371,72 @@ VTSkip: ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If StringClean.Contains("@RandomLink") Then + If commandsList(num).Contains("RandomLink") Then RunLinkScript() StringClean = StringClean.Replace("@RandomLink", "") + Continue For End If - If StringClean.Contains("@RandomModule") Then + If commandsList(num).Contains("RandomModule") Then If ssh.SubEdging Or ssh.SubHoldingEdge Then RunModuleScript(True) Else RunModuleScript(False) End If StringClean = StringClean.Replace("@RandomModule", "") + Continue For End If - If StringClean.Contains("@RapidCodeOn") Then + If commandsList(num).Contains("RapidCodeOn") Then ssh.RapidCode = True StringClean = StringClean.Replace("@RapidCodeOn", "") + Continue For End If - If StringClean.Contains("@RapidCodeOff") Then + If commandsList(num).Contains("RapidCodeOff") Then ssh.RapidCode = False StringClean = StringClean.Replace("@RapidCodeOff", "") + Continue For End If - If StringClean.Contains("@InterruptsOff") Then + If commandsList(num).Contains("InterruptsOff") Then ssh.DoNotDisturb = True StringClean = StringClean.Replace("@InterruptsOff", "") + Continue For End If - If StringClean.Contains("@InterruptsOn") Then + If commandsList(num).Contains("InterruptsOn") Then ssh.DoNotDisturb = False StringClean = StringClean.Replace("@InterruptsOn", "") + Continue For End If - If StringClean.Contains("@NoTypo") Then + If commandsList(num).Contains("NoTypo") Then ssh.TypoSwitch = 0 StringClean = StringClean.Replace("@NoTypo", "") + Continue For End If - If StringClean.Contains("@ForceTypo") Then + If commandsList(num).Contains("ForceTypo") Then ssh.TypoSwitch = 2 StringClean = StringClean.Replace("@ForceTypo", "") + Continue For End If - If StringClean.Contains("@TyposOff") Then + If commandsList(num).Contains("TyposOff") Then ssh.TyposDisabled = True StringClean = StringClean.Replace("@TyposOff", "") + Continue For End If - If StringClean.Contains("@TyposOn") Then + If commandsList(num).Contains("TyposOn") Then ssh.TyposDisabled = False StringClean = StringClean.Replace("@TyposOn", "") + Continue For End If - If StringClean.Contains("@GoodMood(") Then + If commandsList(num).Contains("GoodMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") @@ -12366,9 +12447,10 @@ VTSkip: End If StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + Continue For End If - If StringClean.Contains("@BadMood(") Then + If commandsList(num).Contains("BadMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") @@ -12379,9 +12461,10 @@ VTSkip: End If StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + Continue For End If - If StringClean.Contains("@NeutralMood(") Then + If commandsList(num).Contains("NeutralMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") @@ -12392,40 +12475,45 @@ VTSkip: End If StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") + Continue For End If - If StringClean.Contains("@MoodUp") Then + If commandsList(num).Contains("MoodUp") Then ssh.DommeMood += 1 If ssh.DommeMood > 10 Then ssh.DommeMood = 10 StringClean = StringClean.Replace("@MoodUp", "") + Continue For End If - If StringClean.Contains("@MoodDown") Then + If commandsList(num).Contains("MoodDown") Then ssh.DommeMood -= 1 If ssh.DommeMood < 1 Then ssh.DommeMood = 1 StringClean = StringClean.Replace("@MoodDown", "") + Continue For End If - If StringClean.Contains("@MoodBest") Then + If commandsList(num).Contains("MoodBest") Then ssh.DommeMood = 10 StringClean = StringClean.Replace("@MoodBest", "") + Continue For End If - If StringClean.Contains("@MoodWorst") Then + If commandsList(num).Contains("MoodWorst") Then ssh.DommeMood = 1 StringClean = StringClean.Replace("@MoodWorst", "") + Continue For End If - If StringClean.Contains("@Timeout(") Then + If commandsList(num).Contains("Timeout(") Then - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(", StringClean.Split(")").Count - 1) - 'if there is a leftover ) (might happen in very complex followUp) we remove it - If TimeFlag.EndsWith(")") Then TimeFlag = TimeFlag.Remove(TimeFlag.Length - 1, 1) - Dim OriginalFlag As String = TimeFlag - TimeFlag = StripCommands(TimeFlag) + Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If TimeFlag.EndsWith(")") Then TimeFlag = TimeFlag.Remove(TimeFlag.Length - 1, 1) + Dim OriginalFlag As String = TimeFlag + TimeFlag = StripCommands(TimeFlag) - TimeFlag = FixCommas(TimeFlag) + TimeFlag = FixCommas(TimeFlag) Dim TimeArray As String() = TimeFlag.Split(",") @@ -12434,37 +12522,43 @@ VTSkip: TimeoutTimer.Start() StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") + Continue For End If - If StringClean.Contains("@BallTorture+1") Then + If commandsList(num).Contains("BallTorture+1") Then ssh.CBTBallsCount += 1 StringClean = StringClean.Replace("@BallTorture+1", "") + Continue For End If - If StringClean.Contains("@CockTorture+1") Then + If commandsList(num).Contains("CockTorture+1") Then ssh.CBTCockCount += 1 StringClean = StringClean.Replace("@CockTorture+1", "") + Continue For End If - If StringClean.Contains("@EndTaunts") Then + If commandsList(num).Contains("EndTaunts") Then ssh.StrokeTick = 0 StringClean = StringClean.Replace("@EndTaunts", "") + Continue For End If - If StringClean.Contains("@ResponseYes(") Then + If commandsList(num).Contains("ResponseYes(") Then ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") + Continue For End If - If StringClean.Contains("@ResponseNo(") Then + If commandsList(num).Contains("ResponseNo(") Then ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") + Continue For End If - If StringClean.Contains("@SetModule(") Then + If commandsList(num).Contains("SetModule(") Then Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") If TempMod.Contains(",") Then @@ -12486,9 +12580,10 @@ VTSkip: If ssh.SetModule = "" Then ssh.SetModuleGoto = "" StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + Continue For End If - If StringClean.Contains("@SetLink(") Then + If commandsList(num).Contains("SetLink(") Then Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" @@ -12497,10 +12592,11 @@ VTSkip: ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" End If StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + Continue For End If - 'If StringClean.Contains("@RandomText(") Then + 'If commandsList(num).Contains("RandomText(") Then 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") 'TempText = FixCommas(TempText) 'Dim TextArray As String() = TempText.Split(",") @@ -12508,7 +12604,7 @@ VTSkip: 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) 'End If - If StringClean.Contains("@Worship(") Then + If commandsList(num).Contains("Worship(") Then Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") Debug.Print("Worship Paren = " & WorshipTemp) If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" @@ -12516,41 +12612,45 @@ VTSkip: If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" ssh.WorshipMode = True StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") + Continue For End If - If StringClean.Contains("@WorshipOn") Then + If commandsList(num).Contains("WorshipOn") Then ssh.WorshipMode = True StringClean = StringClean.Replace("@WorshipOn", "") + Continue For End If - If StringClean.Contains("@WorshipOff") Then + If commandsList(num).Contains("WorshipOff") Then ssh.WorshipMode = False ssh.WorshipTarget = "" StringClean = StringClean.Replace("@WorshipOff", "") + Continue For End If - ' If StringClean.Contains("@AssWorship") Then + ' If commandsList(num).Contains("AssWorship") Then 'WorshipTarget = "Ass" 'StringClean = StringClean.Replace("@AssWorship", "") 'End If - 'If StringClean.Contains("@BoobWorship") Then + 'If commandsList(num).Contains("BoobWorship") Then 'WorshipTarget = "Boobs" 'StringClean = StringClean.Replace("@BoobWorship", "") 'End If - 'If StringClean.Contains("@PussyWorship") Then + 'If commandsList(num).Contains("PussyWorship") Then 'WorshipTarget = "Pussy" 'StringClean = StringClean.Replace("@PussyWorship", "") 'End If - If StringClean.Contains("@ClearWorship") Then + If commandsList(num).Contains("ClearWorship") Then ssh.WorshipTarget = "" StringClean = StringClean.Replace("@ClearWorship", "") + Continue For End If - If StringClean.Contains("@CheckFile(") Then + If commandsList(num).Contains("CheckFile(") Then Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") FileFlag = FixCommas(FileFlag) @@ -12574,10 +12674,11 @@ VTSkip: End If StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") + Continue For End If - If StringClean.Contains("@YesMode(") Then + If commandsList(num).Contains("YesMode(") Then Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") YesFlag = FixCommas(YesFlag) @@ -12598,9 +12699,10 @@ VTSkip: End If StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") + Continue For End If - If StringClean.Contains("@NoMode(") Then + If commandsList(num).Contains("NoMode(") Then Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") NoFlag = FixCommas(NoFlag) @@ -12621,9 +12723,10 @@ VTSkip: End If StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") + Continue For End If - If StringClean.Contains("@CameMode(") Then + If commandsList(num).Contains("CameMode(") Then Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") CameFlag = FixCommas(CameFlag) @@ -12649,9 +12752,10 @@ VTSkip: End If StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") + Continue For End If - If StringClean.Contains("@RuinedMode(") Then + If commandsList(num).Contains("RuinedMode(") Then Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") RuinedFlag = FixCommas(RuinedFlag) @@ -12677,38 +12781,44 @@ VTSkip: End If StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") + Continue For End If - If StringClean.Contains("@CustomMode(") Then + If commandsList(num).Contains("CustomMode(") Then updateMode(StringClean, ssh.Modes) StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + Continue For End If - If StringClean.Contains("@ClearModes") Then + If commandsList(num).Contains("ClearModes") Then ClearModes() StringClean = StringClean.Replace("@ClearModes", "") + Continue For End If - If StringClean.Contains("@LockVideo") Then + If commandsList(num).Contains("LockVideo") Then ssh.LockVideo = True StringClean = StringClean.Replace("@LockVideo", "") + Continue For End If - If StringClean.Contains("@UnlockVideo") Then + If commandsList(num).Contains("UnlockVideo") Then ssh.LockVideo = False mainPictureBox.Visible = True DomWMP.Visible = False StringClean = StringClean.Replace("@UnlockVideo", "") + Continue For End If - If StringClean.Contains("@ClearChat") Then + If commandsList(num).Contains("ClearChat") Then ClearChat() StringClean = StringClean.Replace("@ClearChat", "") + Continue For End If - If StringClean.Contains("@ChatImage[") Then + If commandsList(num).Contains("ChatImage[") Then Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") ImageDir = ImageDir.Replace("/", "\") ImageDir = ImageDir.Replace("\\", "\") @@ -12730,9 +12840,10 @@ VTSkip: Else StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If + Continue For End If - If StringClean.Contains("@CountVar[") Then + If commandsList(num).Contains("CountVar[") Then Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") @@ -12785,11 +12896,12 @@ VTSkip: End If StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") + Continue For End If - If StringClean.Contains("@Debug") Then + If commandsList(num).Contains("Debug") Then 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) @@ -12801,10 +12913,11 @@ VTSkip: 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) StringClean = StringClean.Replace("@Debug", "") + Continue For End If - If StringClean.Contains("@GotoDommeOrgasm") Then + If commandsList(num).Contains("GotoDommeOrgasm") Then 'Debug.Print("GotoDommeOrgasmCalled") @@ -12821,10 +12934,10 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - + Continue For End If - If StringClean.Contains("@GotoDommeRuin") Then + If commandsList(num).Contains("GotoDommeRuin") Then Debug.Print("GotoDommeRuinedCalled") @@ -12841,10 +12954,10 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeRuin", "") - + Continue For End If - If StringClean.Contains("@GotoDommeApathy") Then + If commandsList(num).Contains("GotoDommeApathy") Then 'Debug.Print("GotoDommeApathyCalled") @@ -12861,10 +12974,10 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeApathy", "") - + Continue For End If - If StringClean.Contains("@GotoDommeLevel") Then + If commandsList(num).Contains("GotoDommeLevel") Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" @@ -12878,26 +12991,20 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeLevel", "") - + Continue For End If - - If StringClean.Contains("@CheckBnB") Then + If commandsList(num).Contains("CheckBnB") Then If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then ssh.FileGoto = "(No BnB)" ssh.SkipGotoLine = True GetGoto() End If StringClean = StringClean.Replace("@CheckBnB", "") + Continue For End If - - - - - - - If StringClean.Contains("@CheckStrokingState") Then + If commandsList(num).Contains("CheckStrokingState") Then 'If SubStroking = True Then If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then ssh.FileGoto = "(Sub Stroking)" @@ -12907,12 +13014,12 @@ VTSkip: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@CheckStrokingState", "") + Continue For End If Debug.Print("Command Clean Complete") - 'Next + Next Return StringClean - End Function #Region "-------------------------------------------- Webtoy --------------------------------------------" @@ -13668,87 +13775,6 @@ VTSkip: End If If Linear = False Then - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Commands to sort out - ' This Section contains @Commands, which are able to disqualify vocabulary lines. - ' - ' Example-line: "Whatever Text to display @DommeTag(Glaring)" - ' - ' This line has to be sorted out, if there are no corresponding images tagged - ' with "glaring". - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - - If FilterString.Contains("@Flag(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@Flag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - For Each s In splitFlag - If Not FlagExists(s) Then - Return False - End If - Next - End If - - If FilterString.Contains("@NotFlag(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - For Each s In splitFlag - If FlagExists(s) Then - Return False - End If - Next - End If - - If FilterString.Contains("@FlagOr(") Then - Dim writeFlag As String - Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@FlagOr(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) - Dim result As Boolean = False - For Each s In splitFlag - If FlagExists(s) Then - result = True - Exit For - End If - Next - If Not result Then Return False - End If - - If FilterString.Contains("@Variable[") Then - If CheckVariable(FilterString) = False Then Return False - End If - - If FilterString.Contains("@Group(") Then - Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") - Dim grouparray() As String = GroupCheck.Split(",") - Dim b As Boolean = False - For i As Integer = 0 To grouparray.Length - 1 - If grouparray(i) = ssh.Group Then - b = True - Exit For - End If - Next - If b = False Then Return False - ' If GroupCheck.Contains("D") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False - 'End If - ' If GroupCheck.Contains("1") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False - 'End If - ' If GroupCheck.Contains("2") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False - ' End If - ' If GroupCheck.Contains("3") Then - ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False - 'End If - End If - If FilterString.Includes("@DommeTag(") Then If ssh.LockImage = True Then Return False @@ -13870,6 +13896,87 @@ VTSkip: '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Commands to sort out + ' This Section contains @Commands, which are able to disqualify vocabulary lines. + ' + ' Example-line: "Whatever Text to display @DommeTag(Glaring)" + ' + ' This line has to be sorted out, if there are no corresponding images tagged + ' with "glaring". + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + If FilterString.Contains("@Flag(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@Flag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If Not FlagExists(s) Then + Return False + End If + Next + End If + + If FilterString.Contains("@NotFlag(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@NotFlag(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + For Each s In splitFlag + If FlagExists(s) Then + Return False + End If + Next + End If + + If FilterString.Contains("@FlagOr(") Then + Dim writeFlag As String + Dim splitFlag As String() + writeFlag = GetParentheses(FilterString, "@FlagOr(") + writeFlag = FixCommas(writeFlag) + splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + Dim result As Boolean = False + For Each s In splitFlag + If FlagExists(s) Then + result = True + Exit For + End If + Next + If Not result Then Return False + End If + + If FilterString.Contains("@Variable[") Then + If CheckVariable(FilterString) = False Then Return False + End If + + If FilterString.Contains("@Group(") Then + Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") + Dim grouparray() As String = GroupCheck.Split(",") + Dim b As Boolean = False + For i As Integer = 0 To grouparray.Length - 1 + If grouparray(i) = ssh.Group Then + b = True + Exit For + End If + Next + If b = False Then Return False + ' If GroupCheck.Contains("D") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("D") Then Return False + 'End If + ' If GroupCheck.Contains("1") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("1") Then Return False + 'End If + ' If GroupCheck.Contains("2") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("2") Then Return False + ' End If + ' If GroupCheck.Contains("3") Then + ' If ssh.GlitterTease = False Or Not ssh.Group.Contains("3") Then Return False + 'End If + End If + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Possible space Filters ' This Section Contains @CommandFilters which allow space chars (0x20). @@ -21153,5 +21260,6 @@ ShowedBlogImage: If commandToCheck.Contains("followUp") Then Return "followUpXX" Return "" End Function + End Class From 0fe71eda5f77ca4c76baa6b17f776be96f208ed5 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 1 May 2017 16:23:37 +0200 Subject: [PATCH 093/143] fixed a small bug in the app settings with the new Always show new slideshow control: it was also changing the state of contact3. Now they are not linked anymore --- Tease AI/Form2.Designer.vb | 62 ++++++++++++------------ Tease AI/Form2.vb | 2 + Tease AI/My Project/Settings.Designer.vb | 4 +- 3 files changed, 35 insertions(+), 33 deletions(-) diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 806f02e..638a28b 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -664,6 +664,8 @@ Partial Class FrmSettings Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage22 = New System.Windows.Forms.TabPage() Me.PNLGlitter = New System.Windows.Forms.Panel() + Me.GroupBox14 = New System.Windows.Forms.GroupBox() + Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.LBLCurrentDomme = New System.Windows.Forms.Label() Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() @@ -1143,8 +1145,6 @@ Partial Class FrmSettings Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() - Me.GroupBox14 = New System.Windows.Forms.GroupBox() - Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() Me.SettingsPanel.SuspendLayout() Me.SettingsTabs.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -1272,6 +1272,7 @@ Partial Class FrmSettings Me.TabControl1.SuspendLayout() Me.TabPage22.SuspendLayout() Me.PNLGlitter.SuspendLayout() + Me.GroupBox14.SuspendLayout() Me.GroupBox4.SuspendLayout() Me.GBGlitterD.SuspendLayout() Me.GrbGlitterfeed.SuspendLayout() @@ -1410,7 +1411,6 @@ Partial Class FrmSettings Me.GroupBox65.SuspendLayout() CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox14.SuspendLayout() Me.SuspendLayout() ' 'SettingsPanel @@ -9754,6 +9754,31 @@ Partial Class FrmSettings Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) Me.PNLGlitter.TabIndex = 91 ' + 'GroupBox14 + ' + Me.GroupBox14.BackColor = System.Drawing.Color.LightGray + Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) + Me.GroupBox14.Location = New System.Drawing.Point(364, 315) + Me.GroupBox14.Name = "GroupBox14" + Me.GroupBox14.Size = New System.Drawing.Size(297, 77) + Me.GroupBox14.TabIndex = 182 + Me.GroupBox14.TabStop = False + Me.GroupBox14.Text = "General Contact Settings" + ' + 'alwaysNewSlideshow + ' + Me.alwaysNewSlideshow.AutoSize = True + ' Me.alwaysNewSlideshow.Checked = Global.Tease_AI.My.MySettings.Default.AlwaysNewSlideshow + 'Me.alwaysNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked + 'Me.alwaysNewSlideshow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "alwaysNewSlideshow", False, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black + Me.alwaysNewSlideshow.Location = New System.Drawing.Point(6, 33) + Me.alwaysNewSlideshow.Name = "AlwaysNewSlideshow" + Me.alwaysNewSlideshow.Size = New System.Drawing.Size(281, 17) + Me.alwaysNewSlideshow.TabIndex = 151 + Me.alwaysNewSlideshow.Text = "Always load new slideshow when using @AddContact" + Me.alwaysNewSlideshow.UseVisualStyleBackColor = True + ' 'GroupBox4 ' Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) @@ -15218,31 +15243,6 @@ Partial Class FrmSettings Me.BWURLFiles.WorkerReportsProgress = True Me.BWURLFiles.WorkerSupportsCancellation = True ' - 'GroupBox14 - ' - Me.GroupBox14.BackColor = System.Drawing.Color.LightGray - Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) - Me.GroupBox14.Location = New System.Drawing.Point(364, 315) - Me.GroupBox14.Name = "GroupBox14" - Me.GroupBox14.Size = New System.Drawing.Size(297, 77) - Me.GroupBox14.TabIndex = 182 - Me.GroupBox14.TabStop = False - Me.GroupBox14.Text = "General Contact Settings" - ' - 'alwaysNewSlideshow - ' - Me.alwaysNewSlideshow.AutoSize = True - Me.alwaysNewSlideshow.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 - Me.alwaysNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked - Me.alwaysNewSlideshow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black - Me.alwaysNewSlideshow.Location = New System.Drawing.Point(6, 33) - Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" - Me.alwaysNewSlideshow.Size = New System.Drawing.Size(281, 17) - Me.alwaysNewSlideshow.TabIndex = 151 - Me.alwaysNewSlideshow.Text = "Always load new slideshow when using @AddContact" - Me.alwaysNewSlideshow.UseVisualStyleBackColor = True - ' 'FrmSettings ' Me.AllowDrop = True @@ -15435,6 +15435,8 @@ Partial Class FrmSettings Me.TabPage22.ResumeLayout(False) Me.PNLGlitter.ResumeLayout(False) Me.PNLGlitter.PerformLayout() + Me.GroupBox14.ResumeLayout(False) + Me.GroupBox14.PerformLayout() Me.GroupBox4.ResumeLayout(False) Me.GBGlitterD.ResumeLayout(False) Me.GBGlitterD.PerformLayout() @@ -15602,8 +15604,6 @@ Partial Class FrmSettings Me.GroupBox65.PerformLayout() CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox14.ResumeLayout(False) - Me.GroupBox14.PerformLayout() Me.ResumeLayout(False) End Sub @@ -16727,5 +16727,5 @@ Partial Class FrmSettings Friend WithEvents Label169 As Label Friend WithEvents Label170 As Label Friend WithEvents GroupBox14 As GroupBox - Friend WithEvents alwaysNewSlideshow As CheckBox + Friend WithEvents alwaysNewSlideshow As System.Windows.Forms.CheckBox End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index ff6a301..f78bbb1 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -3167,6 +3167,7 @@ SkipDeserializing: SettingsList.Add("Contact 3 AV: " & My.Settings.GlitterAV3) SettingsList.Add("Random Friend Image Directory: " & My.Settings.RandomImageDir) + SettingsList.Add("Always New Contact Slideshow: " & My.Settings.AlwaysNewSlideshow) Dim SettingsString As String = "" @@ -3268,6 +3269,7 @@ SkipDeserializing: Catch End Try My.Settings.RandomImageDir = SettingsList(29).Replace("Random Friend Image Directory: ", "") + My.Settings.AlwaysNewSlideshow = SettingsList(30).Replace("Always New Contact Slideshow: ", "") Catch MessageBox.Show(Me, "This Glitter settings file is invalid or has been edited incorrectly!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index dba02e5..676aa4e 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -5869,8 +5869,8 @@ Namespace My End Property + Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), + Global.System.Configuration.DefaultSettingValueAttribute("False")> Public Property AlwaysNewSlideshow() As Boolean Get Return CType(Me("AlwaysNewSlideshow"), Boolean) From 64525ab483b3a3e294db805002d8cf44588556b4 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 1 May 2017 18:05:42 +0200 Subject: [PATCH 094/143] Final improvements to ImageTag/DommeTag: fixed some small bugs in the function ImageTagOr/DommeTagOr: now this will check for the tags in order, meaning that for example @DommeTagOr(Fully Dressed,Naked) will first check for fullydressed images...if it finds them, then it will show them, if it doesn't find any, then will proceed to check for tagNaked and, eventually show them. So for example: @DommeTagOr(Naked,FullyDressed) --> will show fullydressed images only if it doesn't find naked images @DommeTagOr(Fully Dressed,Naked)--> will show naked images only if it doesn't find fullydressed images --- Tease AI/Form1.vb | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 1b567b8..7f6770a 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -13529,15 +13529,18 @@ VTSkip: Dim TaggedList As New List(Of String) + Dim addImg As Boolean For i As Integer = 0 To TagList.Count - 1 - Dim addImg As Boolean = True For n As Integer = 0 To LocTagArray.Count - 1 If Not TagList(i).Contains(LocTagArray(n)) Then addImg = False Exit For + Else + addImg = True + Continue For End If - If addImg Then TaggedList.Add(TagList(i)) Next + If addImg Then TaggedList.Add(TagList(i)) Next If TaggedList.Count > 0 Then @@ -13584,16 +13587,17 @@ VTSkip: Dim TaggedList As New List(Of String) - For i As Integer = 0 To TagList.Count - 1 - For n As Integer = 0 To LocTagArray.Count - 1 - If TagList(i).Contains(LocTagArray(n)) Then - TaggedList.Add(TagList(i)) - Exit For - End If - Next + For n As Integer = 0 To LocTagArray.Count - 1 + If TaggedList.Count = 0 Then + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(LocTagArray(n)) Then + TaggedList.Add(TagList(i)) + End If + Next + End If Next - If TaggedList.Count > 0 Then + If TaggedList.Count > 0 Then Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split Dim PicDir As String = "" From 772069e4c81f749b7e5324b8cc8069152cb1a8dc Mon Sep 17 00:00:00 2001 From: dariobrun Date: Mon, 1 May 2017 20:23:04 +0200 Subject: [PATCH 095/143] new commands @ImageTagAny and @DommeTagAny: they will do what tagOR were doing previously, so they will return an image having at least one of the indicated tags (it will check for them all) So to recap(both for imagetag and dommetag): @DommeTag(a,b)-->return images having both a and b @DommeTagOr(a,b)-->return images having a, if it doesn't find any, return images having b @DommeTagAny(a,b,)-->return images having either a or b --- Tease AI/Form1.vb | 97 ++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 95 insertions(+), 2 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 7f6770a..334c346 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8480,6 +8480,19 @@ RinseLatherRepeat: Continue For End If + If commandsList(num).Contains("DommeTagAny(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagAny(") + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageAny(TagFlag, True) + Else + ssh.DommeImageSTR = "" + End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTagAny(" & TagFlag & ")", "") + Continue For + End If + If commandsList(num).Contains("NewDommeSlideshow") Then 'TODO: Add Support for contact slideshows. ssh.newSlideshow = True @@ -8548,6 +8561,13 @@ RinseLatherRepeat: Continue For End If + If commandsList(num).Contains("ImageTagAny(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagAny(") + ShowImage(GetLocalImageAny(TagFlag), False) + StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") + Continue For + End If + If commandsList(num).Contains("ShowImage") And Not commandsList(num).Contains("ShowImage[") Then ShowImage(GetRandomImage(), False) StringClean = StringClean.Replace("@ShowImage", "") @@ -13616,6 +13636,55 @@ VTSkip: End If End Function + Public Function GetLocalImageAny(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String + Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" + If isDommeTag Then + fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" + End If + + If File.Exists(fileToCheck) Then + + + Dim TagList As New List(Of String) + TagList = Txt2List(fileToCheck) + + LocTag = LocTag.Replace(" ,", ",") + LocTag = LocTag.Replace(", ", ",") + + Dim LocTagArray As String() = LocTag.Split(",") + If isDommeTag Then + For i As Integer = 0 To LocTagArray.Count - 1 + LocTagArray(i) = "Tag" & LocTagArray(i) + Next + End If + + Dim TaggedList As New List(Of String) + + For i As Integer = 0 To TagList.Count - 1 + For n As Integer = 0 To LocTagArray.Count - 1 + If TagList(i).Contains(LocTagArray(n)) Then TaggedList.Add(TagList(i)) + Next + Next + + If TaggedList.Count > 0 Then + + Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split + Dim PicDir As String = "" + + For p As Integer = 0 To PicArray.Count - 1 + PicDir = PicDir & PicArray(p) & " " + If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For + Next + If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir + Return PicDir + + Else + Return String.Empty + + End If + + End If + End Function Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) If EdgeCheck.Contains("@Contact1") Then @@ -13795,6 +13864,14 @@ VTSkip: End If End If + If FilterString.Includes("@DommeTagAny(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImageAny(GetParentheses(FilterString, "@DommeTagAny("), True) = String.Empty Then Return False + End If + End If + If FilterString.Includes("@DomTag(") Then If ssh.LockImage = True Then Return False @@ -13811,6 +13888,14 @@ VTSkip: End If End If + If FilterString.Includes("@DomTagAny(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImageAny(GetParentheses(FilterString, "@DomTagAny("), True) = String.Empty Then Return False + End If + End If + If FilterString.Contains("@ImageTag(") Then If ssh.LockImage = True Then Return False @@ -13827,8 +13912,16 @@ VTSkip: End If End If - ' ################## @Show-Category-Image ##################### - If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then + If FilterString.Contains("@ImageTagAny(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImageAny(GetParentheses(FilterString, "@ImageTagAny(")) = String.Empty Then Return False + End If + End If + + ' ################## @Show-Category-Image ##################### + If FilterString.Contains("@ShowBlogImage") Or FilterString.Contains("@NewBlogImage") Then If Not GetImageData(ImageGenre.Blog).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If If FilterString.Contains("@ShowBlowjobImage") Then From dc0413eef520fbf24fcab619ce4097c51cc238d1 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 2 May 2017 01:10:15 +0200 Subject: [PATCH 096/143] Fixed a bug in the new commandclean() function --- Tease AI/Form1.vb | 561 +++++++++++++++++++++++----------------------- 1 file changed, 283 insertions(+), 278 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 334c346..345f76a 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8264,6 +8264,11 @@ StatusUpdateEnd: Debug.Print("Stringclean Intro = " & StringClean) Dim commandsList() As String = StringClean.Split("@") + 'reapply the @ to the commands + For n As Integer = 0 To commandsList.Count - 1 + commandsList(n) = "@" & commandsList(n) + Next + For num As Integer = 1 To commandsList.Count - 1 If TaskClean = True Then @@ -8271,7 +8276,7 @@ StatusUpdateEnd: GoTo TaskCleanSet End If followUp: - If commandsList(num).Contains("FollowUp(") And ssh.FollowUp = "" Then + If commandsList(num).Contains("@FollowUp(") And ssh.FollowUp = "" Then ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) @@ -8280,7 +8285,7 @@ followUp: End If followUpXX: - If commandsList(num).Contains("FollowUp") And ssh.FollowUp = "" Then + If commandsList(num).Contains("@FollowUp") And ssh.FollowUp = "" Then Dim FollowTemp As String Dim TSStartIndex As Integer @@ -8312,7 +8317,7 @@ followUpXX: ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - If commandsList(num).Contains("If[") Then + If commandsList(num).Contains("@If[") Then If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") Do @@ -8405,7 +8410,7 @@ RinseLatherRepeat: ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, ' LiskedList, DislikedList and LocalImageTagList, if the current Image is ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If commandsList(num).Contains("DeleteLocalImage") Then + If commandsList(num).Contains("@DeleteLocalImage") Then If My.Settings.DomDeleteMedia = True Then Try DeleteCurrentImage(True) @@ -8425,7 +8430,7 @@ RinseLatherRepeat: ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, ' DislikedList, LocalImageTagList and URL-Files, if the current Image is ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If commandsList(num).Contains("DeleteImage") Then + If commandsList(num).Contains("@DeleteImage") Then If My.Settings.DomDeleteMedia = True Then Try DeleteCurrentImage(False) @@ -8443,7 +8448,7 @@ RinseLatherRepeat: End If ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. - If commandsList(num).Contains("UnlockImages") Then + If commandsList(num).Contains("@UnlockImages") Then If ssh.SlideshowLoaded = True Then nextButton.Enabled = True previousButton.Enabled = True @@ -8454,7 +8459,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("DommeTag(") Then + If commandsList(num).Contains("@DommeTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8467,7 +8472,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("DommeTagOr(") Then + If commandsList(num).Contains("@DommeTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8480,7 +8485,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("DommeTagAny(") Then + If commandsList(num).Contains("@DommeTagAny(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagAny(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8493,7 +8498,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("NewDommeSlideshow") Then + If commandsList(num).Contains("@NewDommeSlideshow") Then 'TODO: Add Support for contact slideshows. ssh.newSlideshow = True LoadDommeImageFolder() @@ -8501,25 +8506,25 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("NewContact1Slideshow") Then + If commandsList(num).Contains("@NewContact1Slideshow") Then If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@NewContact1Slideshow", "") Continue For End If - If commandsList(num).Contains("NewContact2Slideshow") Then + If commandsList(num).Contains("@NewContact2Slideshow") Then If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@NewContact2Slideshow", "") Continue For End If - If commandsList(num).Contains("NewContact3Slideshow") Then + If commandsList(num).Contains("@NewContact3Slideshow") Then If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@NewContact3Slideshow", "") Continue For End If - If commandsList(num).Contains("DomTag(") Then + If commandsList(num).Contains("@DomTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage @@ -8533,7 +8538,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("DomTagOr(") Then + If commandsList(num).Contains("@DomTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage @@ -8547,34 +8552,34 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("ImageTag(") Then + If commandsList(num).Contains("@ImageTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") ShowImage(GetLocalImage(TagFlag), False) StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") Continue For End If - If commandsList(num).Contains("ImageTagOr(") Then + If commandsList(num).Contains("@ImageTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") ShowImage(GetLocalImageOr(TagFlag), False) StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") Continue For End If - If commandsList(num).Contains("ImageTagAny(") Then + If commandsList(num).Contains("@ImageTagAny(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagAny(") ShowImage(GetLocalImageAny(TagFlag), False) StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") Continue For End If - If commandsList(num).Contains("ShowImage") And Not commandsList(num).Contains("ShowImage[") Then + If commandsList(num).Contains("@ShowImage") And Not commandsList(num).Contains("ShowImage[") Then ShowImage(GetRandomImage(), False) StringClean = StringClean.Replace("@ShowImage", "") Continue For End If - If commandsList(num).Contains("ShowButtImage") Or commandsList(num).Contains("ShowButtsImage") Then + If commandsList(num).Contains("@ShowButtImage") Or commandsList(num).Contains("ShowButtsImage") Then ShowImage(GetImageData(ImageGenre.Butt).Random(), False) StringClean = StringClean.Replace("@ShowButtImage", "") @@ -8582,7 +8587,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("ShowBoobsImage") Or commandsList(num).Contains("ShowBoobImage") Then + If commandsList(num).Contains("@ShowBoobsImage") Or commandsList(num).Contains("ShowBoobImage") Then ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) StringClean = StringClean.Replace("@ShowBoobsImage", "") @@ -8590,98 +8595,98 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("ShowHardcoreImage") Then + If commandsList(num).Contains("@ShowHardcoreImage") Then ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) StringClean = StringClean.Replace("@ShowHardcoreImage", "") Continue For End If - If commandsList(num).Contains("ShowSoftcoreImage") Then + If commandsList(num).Contains("@ShowSoftcoreImage") Then ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) StringClean = StringClean.Replace("@ShowSoftcoreImage", "") Continue For End If - If commandsList(num).Contains("ShowLesbianImage") Then + If commandsList(num).Contains("@ShowLesbianImage") Then ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) StringClean = StringClean.Replace("@ShowLesbianImage", "") Continue For End If - If commandsList(num).Contains("ShowBlowjobImage") Then + If commandsList(num).Contains("@ShowBlowjobImage") Then ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) StringClean = StringClean.Replace("@ShowBlowjobImage", "") Continue For End If - If commandsList(num).Contains("ShowFemdomImage") Then + If commandsList(num).Contains("@ShowFemdomImage") Then ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) StringClean = StringClean.Replace("@ShowFemdomImage", "") Continue For End If - If commandsList(num).Contains("ShowLezdomImage") Then + If commandsList(num).Contains("@ShowLezdomImage") Then ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) StringClean = StringClean.Replace("@ShowLezdomImage", "") Continue For End If - If commandsList(num).Contains("ShowHentaiImage") Then + If commandsList(num).Contains("@ShowHentaiImage") Then ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) StringClean = StringClean.Replace("@ShowHentaiImage", "") Continue For End If - If commandsList(num).Contains("ShowGayImage") Then + If commandsList(num).Contains("@ShowGayImage") Then ShowImage(GetImageData(ImageGenre.Gay).Random(), False) StringClean = StringClean.Replace("@ShowGayImage", "") Continue For End If - If commandsList(num).Contains("ShowMaledomImage") Then + If commandsList(num).Contains("@ShowMaledomImage") Then ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) StringClean = StringClean.Replace("@ShowMaledomImage", "") Continue For End If - If commandsList(num).Contains("ShowCaptionsImage") Then + If commandsList(num).Contains("@ShowCaptionsImage") Then ShowImage(GetImageData(ImageGenre.Captions).Random(), False) StringClean = StringClean.Replace("@ShowCaptionsImage", "") Continue For End If - If commandsList(num).Contains("ShowGeneralImage") Then + If commandsList(num).Contains("@ShowGeneralImage") Then ShowImage(GetImageData(ImageGenre.General).Random(), False) StringClean = StringClean.Replace("@ShowGeneralImage", "") Continue For End If - If commandsList(num).Contains("ShowLikedImage") Then + If commandsList(num).Contains("@ShowLikedImage") Then ShowImage(GetImageData(ImageGenre.Liked).Random(), False) StringClean = StringClean.Replace("@ShowLikedImage", "") Continue For End If - If commandsList(num).Contains("ShowDislikedImage") Then + If commandsList(num).Contains("@ShowDislikedImage") Then ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) StringClean = StringClean.Replace("@ShowDislikedImage", "") Continue For End If - If commandsList(num).Contains("ShowBlogImage") Then + If commandsList(num).Contains("@ShowBlogImage") Then ShowImage(GetImageData(ImageGenre.Blog).Random(), False) StringClean = StringClean.Replace("@ShowBlogImage", "") Continue For End If ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage - If commandsList(num).Contains("NewBlogImage") Then + If commandsList(num).Contains("@NewBlogImage") Then ShowImage(GetImageData(ImageGenre.Blog).Random(), False) StringClean = StringClean.Replace("@NewBlogImage", "") Continue For End If - If commandsList(num).Contains("ShowLocalImage") And Not commandsList(num).Contains("ShowLocalImage(") Then + If commandsList(num).Contains("@ShowLocalImage") And Not commandsList(num).Contains("ShowLocalImage(") Then ShowImage(GetRandomImage(ImageSourceType.Local), False) StringClean = StringClean.Replace("@ShowLocalImage", "") Continue For @@ -8690,7 +8695,7 @@ RinseLatherRepeat: '=============================================================================== ' @ShowLocalImage() '=============================================================================== - If commandsList(num).Contains("ShowLocalImage(") Then + If commandsList(num).Contains("@ShowLocalImage(") Then Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") LocalFlag = FixCommas(LocalFlag) @@ -8781,7 +8786,7 @@ RinseLatherRepeat: '=============================================================================== ' @ShowTaggedImage '=============================================================================== - If commandsList(num).Contains("ShowTaggedImage") Then + If commandsList(num).Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = StringClean.Split() _ .Select(Function(s) s.Trim()) _ .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList @@ -8804,7 +8809,7 @@ RinseLatherRepeat: '=============================================================================== ' @ShowImage[] '=============================================================================== - If commandsList(num).Contains("ShowImage[") Then + If commandsList(num).Contains("@ShowImage[") Then Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") ShowImage(checkForImage(ImageToShow), False) StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") @@ -8821,10 +8826,10 @@ RinseLatherRepeat: ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. - If commandsList(num).Contains("TnAFastSlides") Or commandsList(num).Contains("TnASlowSlides") Or commandsList(num).Contains("TnASlides") Then - If commandsList(num).Contains("TnAFastSlides") Then TnASlides.Interval = 334 - If commandsList(num).Contains("TnASlides") Then TnASlides.Interval = 1000 - If commandsList(num).Contains("TnASlowSlides") Then TnASlides.Interval = 5000 + If commandsList(num).Contains("@TnAFastSlides") Or commandsList(num).Contains("TnASlowSlides") Or commandsList(num).Contains("TnASlides") Then + If commandsList(num).Contains("@TnAFastSlides") Then TnASlides.Interval = 334 + If commandsList(num).Contains("@TnASlides") Then TnASlides.Interval = 1000 + If commandsList(num).Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 Try ssh.BoobList.Clear() @@ -8849,7 +8854,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("CheckTnA") Then + If commandsList(num).Contains("@CheckTnA") Then TnASlides.Stop() 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) @@ -8861,7 +8866,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("StopTnA") Then + If commandsList(num).Contains("@StopTnA") Then TnASlides.Stop() ssh.BoobList.Clear() ssh.BoobImage = False @@ -8876,7 +8881,7 @@ RinseLatherRepeat: '=============================================================================== ' Slideshow '=============================================================================== - If commandsList(num).Contains("Slideshow(") Then + If commandsList(num).Contains("@Slideshow(") Then Dim SlideFlag As String = StringClean Dim SlideStart As Integer @@ -8950,7 +8955,7 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("SlideshowOn") Then + If commandsList(num).Contains("@SlideshowOn") Then If ssh.CustomSlideshow.Count > 0 Then ssh.CustomSlideEnabled = True CustomSlideshowTimer.Start() @@ -8959,42 +8964,42 @@ RinseLatherRepeat: Continue For End If - If commandsList(num).Contains("SlideshowOff") Then + If commandsList(num).Contains("@SlideshowOff") Then ssh.CustomSlideEnabled = False CustomSlideshowTimer.Stop() StringClean = StringClean.Replace("@SlideshowOff", "") Continue For End If - If commandsList(num).Contains("SlideshowFirst") Then + If commandsList(num).Contains("@SlideshowFirst") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.FirstImage, False) StringClean = StringClean.Replace("@SlideshowFirst", "") Continue For End If - If commandsList(num).Contains("SlideshowLast") Then + If commandsList(num).Contains("@SlideshowLast") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.LastImage, False) StringClean = StringClean.Replace("@SlideshowLast", "") Continue For End If - If commandsList(num).Contains("SlideshowNext") Then + If commandsList(num).Contains("@SlideshowNext") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.NextImage, False) StringClean = StringClean.Replace("@SlideshowNext", "") Continue For End If - If commandsList(num).Contains("SlideshowPrevious") Then + If commandsList(num).Contains("@SlideshowPrevious") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.PreviousImage, False) StringClean = StringClean.Replace("@SlideshowPrevious", "") Continue For End If - If commandsList(num).Contains("GotoSlideshow") Then + If commandsList(num).Contains("@GotoSlideshow") Then Dim ImageString As String = ssh.CustomSlideshow.CurrentImage If ImageString IsNot Nothing OrElse ImageString = "" Then @@ -9029,7 +9034,7 @@ RinseLatherRepeat: ' Slideshow - End '---------------------------------------- ' This Command will not work in the same line, because the Images are loaded async and not available yet. - If commandsList(num).Contains("CurrentImage") Then + If commandsList(num).Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) Continue For End If @@ -9038,7 +9043,7 @@ RinseLatherRepeat: ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs ' (including Long Edge and Start Stroking) or when the sub gives up. - If commandsList(num).Contains("LockImages") Then + If commandsList(num).Contains("@LockImages") Then ssh.LockImage = True nextButton.Enabled = False previousButton.Enabled = False @@ -9053,7 +9058,7 @@ RinseLatherRepeat: ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - If commandsList(num).Contains("Chance") Then + If commandsList(num).Contains("@Chance") Then Dim ChanceTemp As String Dim TSStartIndex As Integer Dim TSEndIndex As Integer @@ -9098,7 +9103,7 @@ RinseLatherRepeat: ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - If commandsList(num).Contains("CheckFlag") Then + If commandsList(num).Contains("@CheckFlag") Then Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -9152,7 +9157,7 @@ TaskCleanSet: ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). - If commandsList(num).Contains("SetFlag(") Then + If commandsList(num).Contains("@SetFlag(") Then Dim SetArray As String() = StringClean.Split(")") For i As Integer = 0 To SetArray.Count - 1 @@ -9196,7 +9201,7 @@ TaskCleanSet: ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). - If commandsList(num).Contains("TempFlag(") Then + If commandsList(num).Contains("@TempFlag(") Then Dim TempArray As String() = StringClean.Split(")") For i As Integer = 0 To TempArray.Count - 1 @@ -9240,7 +9245,7 @@ TaskCleanSet: ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). - If commandsList(num).Contains("DeleteFlag(") Then + If commandsList(num).Contains("@DeleteFlag(") Then Dim DeleteArray As String() = StringClean.Split(")") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9284,7 +9289,7 @@ TaskCleanSet: ' Multiple @SetVar[] Commands may be used per line if you wish. ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - If commandsList(num).Contains("SetVar[") Then + If commandsList(num).Contains("@SetVar[") Then Dim VarArray As String() = StringClean.Split For i As Integer = 0 To VarArray.Count - 1 @@ -9321,7 +9326,7 @@ TaskCleanSet: ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is ' specified, "Days" will be used. - If commandsList(num).Contains("SetDate(") Then + If commandsList(num).Contains("@SetDate(") Then Dim CheckArray As String() = StringClean.Split(")") Dim OriginalCheck As String @@ -9373,7 +9378,7 @@ TaskCleanSet: ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line - If commandsList(num).Contains("RoundVar[") Then + If commandsList(num).Contains("@RoundVar[") Then Dim VarArray As String() = StringClean.Split For i As Integer = 0 To VarArray.Count - 1 @@ -9425,7 +9430,7 @@ TaskCleanSet: ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / 'More than one @ChangeVar[] Command can be used per line. - If commandsList(num).Contains("ChangeVar[") Then + If commandsList(num).Contains("@ChangeVar[") Then Dim ChangeArray As String() = StringClean.Split For i As Integer = 0 To ChangeArray.Count - 1 @@ -9505,7 +9510,7 @@ TaskCleanSet: ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] ' More than one @ShowVar[] Commands can be used per line - If commandsList(num).Contains("ShowVar[") Then + If commandsList(num).Contains("@ShowVar[") Then Dim VarSplit As String() = StringClean.Split("]") For i As Integer = 0 To VarSplit.Count - 1 @@ -9529,7 +9534,7 @@ TaskCleanSet: End If - If commandsList(num).Contains("ChastityOn") Then + If commandsList(num).Contains("@ChastityOn") Then My.Settings.Chastity = True FrmSettings.LBLChastityState.Text = "ON" FrmSettings.LBLChastityState.ForeColor = Color.Green @@ -9537,7 +9542,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("ChastityOff") Then + If commandsList(num).Contains("@ChastityOff") Then My.Settings.Chastity = False FrmSettings.LBLChastityState.Text = "OFF" FrmSettings.LBLChastityState.ForeColor = Color.Red @@ -9545,7 +9550,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("AddTokens(") Then + If commandsList(num).Contains("@AddTokens(") Then Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenAdd As Integer @@ -9575,7 +9580,7 @@ TaskCleanSet: End If - If commandsList(num).Contains("RemoveTokens(") Then + If commandsList(num).Contains("@RemoveTokens(") Then Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenRemove As Integer @@ -9608,7 +9613,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Add1Token") Then + If commandsList(num).Contains("@Add1Token") Then ssh.BronzeTokens += 1 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9617,7 +9622,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Add3Tokens") Then + If commandsList(num).Contains("@Add3Tokens") Then ssh.BronzeTokens += 3 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9626,7 +9631,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Add5Tokens") Then + If commandsList(num).Contains("@Add5Tokens") Then ssh.BronzeTokens += 5 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9635,7 +9640,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Add10Tokens") Then + If commandsList(num).Contains("@Add10Tokens") Then ssh.BronzeTokens += 10 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9644,7 +9649,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Add25Tokens") Then + If commandsList(num).Contains("@Add25Tokens") Then ssh.BronzeTokens += 25 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9653,7 +9658,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Add50Tokens") Then + If commandsList(num).Contains("@Add50Tokens") Then ssh.BronzeTokens += 50 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9662,7 +9667,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Add100Tokens") Then + If commandsList(num).Contains("@Add100Tokens") Then ssh.BronzeTokens += 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9671,7 +9676,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Remove100Tokens") Then + If commandsList(num).Contains("@Remove100Tokens") Then ssh.BronzeTokens -= 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() @@ -9681,7 +9686,7 @@ TaskCleanSet: End If - If commandsList(num).Contains("UpdateOrgasm") Then + If commandsList(num).Contains("@UpdateOrgasm") Then My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) 'Github Patch @@ -9692,7 +9697,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("UpdateRuined") Then + If commandsList(num).Contains("@UpdateRuined") Then My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) ' GithubPatch @@ -9703,7 +9708,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("DeleteVar[") Then + If commandsList(num).Contains("@DeleteVar[") Then Dim DeleteArray As String() = StringClean.Split("]") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9742,19 +9747,19 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("PornAllowedOff") Then + If commandsList(num).Contains("@PornAllowedOff") Then CreateFlag("SYS_NoPornAllowed") StringClean = StringClean.Replace("@PornAllowedOff", "") Continue For End If - If commandsList(num).Contains("PornAllowedOn") Then + If commandsList(num).Contains("@PornAllowedOn") Then DeleteFlag("SYS_NoPornAllowed") StringClean = StringClean.Replace("@PornAllowedOn", "") Continue For End If - If commandsList(num).Contains("RestrictOrgasm(") Then + If commandsList(num).Contains("@RestrictOrgasm(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") If CheckFlag.Contains(",") Then @@ -9812,13 +9817,13 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("RestrictOrgasm") Then + If commandsList(num).Contains("@RestrictOrgasm") Then ssh.OrgasmRestricted = True StringClean = StringClean.Replace("@RestrictOrgasm", "") Continue For End If - If commandsList(num).Contains("DecreaseOrgasmChance") Then + If commandsList(num).Contains("@DecreaseOrgasmChance") Then If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" @@ -9830,7 +9835,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("IncreaseOrgasmChance") Then + If commandsList(num).Contains("@IncreaseOrgasmChance") Then If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" @@ -9842,7 +9847,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("DecreaseRuinChance") Then + If commandsList(num).Contains("@DecreaseRuinChance") Then If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" @@ -9854,7 +9859,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("IncreaseRuinChance") Then + If commandsList(num).Contains("@IncreaseRuinChance") Then If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" @@ -9875,7 +9880,7 @@ TaskCleanSet: ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set ' for the Variable "NoPorn" by @SetDate() - If commandsList(num).Contains("CheckDate(") Then + If commandsList(num).Contains("@CheckDate(") Then Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -9904,7 +9909,7 @@ TaskCleanSet: ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. - If commandsList(num).Contains("InputVar[") Then + If commandsList(num).Contains("@InputVar[") Then ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") ssh.InputFlag = True @@ -9917,7 +9922,7 @@ TaskCleanSet: ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt - If commandsList(num).Contains("DislikeBlogImage") Then + If commandsList(num).Contains("@DislikeBlogImage") Then If ssh.ImageLocation <> "" Then If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then @@ -9932,7 +9937,7 @@ TaskCleanSet: ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - If commandsList(num).Contains("LikeBlogImage") Then + If commandsList(num).Contains("@LikeBlogImage") Then If ssh.ImageLocation <> "" Then If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then @@ -9953,7 +9958,7 @@ TaskCleanSet: ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ - If commandsList(num).Contains("StrokeFaster") Then + If commandsList(num).Contains("@StrokeFaster") Then ssh.StrokeFaster = True StringClean = StringClean.Replace("@StrokeFaster", "") Continue For @@ -9963,7 +9968,7 @@ TaskCleanSet: ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ - If commandsList(num).Contains("StrokeSlower") Then + If commandsList(num).Contains("@StrokeSlower") Then ssh.StrokeSlower = True StringClean = StringClean.Replace("@StrokeSlower", "") Continue For @@ -9973,7 +9978,7 @@ TaskCleanSet: ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - If commandsList(num).Contains("StrokeFastest") Then + If commandsList(num).Contains("@StrokeFastest") Then ssh.StrokeFastest = True StringClean = StringClean.Replace("@StrokeFastest", "") Continue For @@ -9983,14 +9988,14 @@ TaskCleanSet: ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ - If commandsList(num).Contains("StrokeSlowest") Then + If commandsList(num).Contains("@StrokeSlowest") Then ssh.StrokeSlowest = True StringClean = StringClean.Replace("@StrokeSlowest", "") Continue For End If - If commandsList(num).Contains("StartStroking") Then + If commandsList(num).Contains("@StartStroking") Then If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) @@ -10005,13 +10010,13 @@ TaskCleanSet: End Try End If - If commandsList(num).Contains("Contact1") Then + If commandsList(num).Contains("@Contact1") Then ssh.Contact1Stroke = True - ElseIf commandsList(num).Contains("Contact2") Then + ElseIf commandsList(num).Contains("@Contact2") Then ssh.Contact2Stroke = True - ElseIf commandsList(num).Contains("Contact3") Then + ElseIf commandsList(num).Contains("@Contact3") Then ssh.Contact3Stroke = True - ElseIf commandsList(num).Contains("RandomContact") Then + ElseIf commandsList(num).Contains("@RandomContact") Then Dim casual As Integer = 0 casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) Select Case ssh.currentlyPresentContacts(casual) @@ -10076,7 +10081,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("StartTaunts") Then + If commandsList(num).Contains("@StartTaunts") Then ssh.AskedToGiveUpSection = False ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False @@ -10107,7 +10112,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("StopStroking") Then + If commandsList(num).Contains("@StopStroking") Then If FrmSettings.TBWebStop.Text <> "" Then Try FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) @@ -10147,7 +10152,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("StopTaunts") Then + If commandsList(num).Contains("@StopTaunts") Then ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False ssh.SubStroking = False @@ -10162,7 +10167,7 @@ TaskCleanSet: End If - If commandsList(num).Contains("LongHold(") Then + If commandsList(num).Contains("@LongHold(") Then Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) ssh.TempVal = ssh.randomizer.Next(0, 101) If ssh.TempVal <= HoldInt Then ssh.LongHold = True @@ -10171,7 +10176,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("ExtremeHold(") Then + If commandsList(num).Contains("@ExtremeHold(") Then Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) ssh.TempVal = ssh.randomizer.Next(0, 101) If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True @@ -10180,20 +10185,20 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("LongHold") Then + If commandsList(num).Contains("@LongHold") Then ssh.LongHold = True StringClean = StringClean.Replace("@LongHold", "") Continue For End If - If commandsList(num).Contains("ExtremeHold") Then + If commandsList(num).Contains("@ExtremeHold") Then ssh.ExtremeHold = True StringClean = StringClean.Replace("@ExtremeHold", "") Continue For End If - If commandsList(num).Contains("MultipleEdges(") Then - If commandsList(num).Contains("Edg") Then + If commandsList(num).Contains("@MultipleEdges(") Then + If commandsList(num).Contains("@Edg") Then Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") EdgeFlag = FixCommas(EdgeFlag) @@ -10222,7 +10227,7 @@ TaskCleanSet: End If - If commandsList(num).Contains("Edge(") Then + If commandsList(num).Contains("@Edge(") Then ContactEdgeCheck(StringClean) Edge() @@ -10261,7 +10266,7 @@ TaskCleanSet: - If commandsList(num).Contains("EdgeMode(") Then + If commandsList(num).Contains("@EdgeMode(") Then Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") EdgeFlag = FixCommas(EdgeFlag) Dim EdgeArray As String() = EdgeFlag.Split(",") @@ -10289,7 +10294,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeToRuinNoHoldNoSecret") Then + If commandsList(num).Contains("@EdgeToRuinNoHoldNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuin = True @@ -10298,7 +10303,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeToRuinHoldNoSecret(") Then + If commandsList(num).Contains("@EdgeToRuinHoldNoSecret(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") If EdgeHoldFlag.Contains(",") Then @@ -10339,7 +10344,7 @@ TaskCleanSet: - If commandsList(num).Contains("EdgeToRuinHoldNoSecret") Then + If commandsList(num).Contains("@EdgeToRuinHoldNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True @@ -10349,7 +10354,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeToRuinNoSecret") Then + If commandsList(num).Contains("@EdgeToRuinNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuinSecret = False @@ -10358,7 +10363,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeToRuinNoHold") Then + If commandsList(num).Contains("@EdgeToRuinNoHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeNoHold = True @@ -10367,7 +10372,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeToRuinHold(") Then + If commandsList(num).Contains("@EdgeToRuinHold(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") If EdgeHoldFlag.Contains(",") Then @@ -10406,7 +10411,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeToRuinHold") Then + If commandsList(num).Contains("@EdgeToRuinHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True @@ -10415,7 +10420,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeToRuin") Then + If commandsList(num).Contains("@EdgeToRuin") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuin = True @@ -10423,7 +10428,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("EdgeNoHold") Then + If commandsList(num).Contains("@EdgeNoHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeNoHold = True @@ -10439,7 +10444,7 @@ TaskCleanSet: ' 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. - If commandsList(num).Contains("EdgeHold(") Then + If commandsList(num).Contains("@EdgeHold(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") If EdgeHoldFlag.Contains(",") Then @@ -10478,7 +10483,7 @@ TaskCleanSet: End If - If commandsList(num).Contains("EdgeHold") Then + If commandsList(num).Contains("@EdgeHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True @@ -10486,14 +10491,14 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("Edge") Then + If commandsList(num).Contains("@Edge") Then ContactEdgeCheck(StringClean) Edge() StringClean = StringClean.Replace("@Edge", "") Continue For End If - If commandsList(num).Contains("CBTBalls") Then + If commandsList(num).Contains("@CBTBalls") Then If FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBallsActive = True ssh.CBTBallsFlag = True @@ -10503,7 +10508,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("CBTCock") Then + If commandsList(num).Contains("@CBTCock") Then If FrmSettings.CBCBTCock.Checked = True Then ssh.CBTCockActive = True ssh.CBTCockFlag = True @@ -10513,7 +10518,7 @@ TaskCleanSet: Continue For End If - If commandsList(num).Contains("CBT") And Not commandsList(num).Contains("CBTLevel") Then + If commandsList(num).Contains("@CBT") And Not commandsList(num).Contains("CBTLevel") Then If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBothActive = True ssh.CBTBothFlag = True @@ -10528,7 +10533,7 @@ TaskCleanSet: ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. - If commandsList(num).Contains("CustomTask(") Then + If commandsList(num).Contains("@CustomTask(") Then Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") CustomFlag = FixCommas(CustomFlag) @@ -10555,7 +10560,7 @@ TaskCleanSet: End If - If commandsList(num).Contains("DecideOrgasm") Then + If commandsList(num).Contains("@DecideOrgasm") Then ssh.OrgasmDenied = False ssh.OrgasmAllowed = False @@ -10565,7 +10570,7 @@ TaskCleanSet: Dim RuinGoto As String = "Orgasm Ruin" Dim DenyGoto As String = "Orgasm Deny" - If commandsList(num).Contains("DecideOrgasm(") Then + If commandsList(num).Contains("@DecideOrgasm(") Then Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") OrgasmFlag = FixCommas(OrgasmFlag) Dim OrgasmArray As String() = OrgasmFlag.Split(",") @@ -10646,7 +10651,7 @@ OrgasmDecided: End If - If commandsList(num).Contains("OrgasmRuin") Then + If commandsList(num).Contains("@OrgasmRuin") Then ssh.FileGoto = "Orgasm Ruin" ssh.OrgasmRuined = True ssh.SkipGotoLine = True @@ -10655,7 +10660,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("OrgasmDeny") Then + If commandsList(num).Contains("@OrgasmDeny") Then ssh.FileGoto = "Orgasm Deny" ssh.OrgasmDenied = True ssh.SkipGotoLine = True @@ -10664,7 +10669,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("OrgasmAllow") Then + If commandsList(num).Contains("@OrgasmAllow") Then ssh.FileGoto = "Orgasm Allow" ssh.OrgasmAllowed = True ssh.SkipGotoLine = True @@ -10678,7 +10683,7 @@ OrgasmDecided: ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. - If commandsList(num).Contains("Glitter(") Then + If commandsList(num).Contains("@Glitter(") Then ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") @@ -10694,8 +10699,8 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("WritingTask(") Or commandsList(num).Contains("WritingTaskRandom(") Then - If commandsList(num).Contains("WritingTask(") Then + If commandsList(num).Contains("@WritingTask(") Or commandsList(num).Contains("WritingTaskRandom(") Then + If commandsList(num).Contains("@WritingTask(") Then ssh.randomWriteTask = False StringClean = StringClean.Replace("@WritingTask", "") Else @@ -10760,7 +10765,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("CheckJOIVideo") Then + If commandsList(num).Contains("@CheckJOIVideo") Then If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then Else @@ -10778,7 +10783,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("PlayJOIVideo") Then + If commandsList(num).Contains("@PlayJOIVideo") Then If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then ssh.TeaseVideo = True @@ -10789,7 +10794,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("PlayCHVideo") Then + If commandsList(num).Contains("@PlayCHVideo") Then If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then ssh.TeaseVideo = True @@ -10800,7 +10805,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("GiveUpCheck") Then + If commandsList(num).Contains("@GiveUpCheck") Then If ssh.AskedToGiveUpSection = True Then If ssh.SubGaveUp = True Then @@ -10848,7 +10853,7 @@ OrgasmDecided: End If - If commandsList(num).Contains("EndTease") Then + If commandsList(num).Contains("@EndTease") Then SetVariable("SYS_SubLeftEarly", 0) 'My.Settings.Sys_SubLeftEarly = 0 'StopEverything() @@ -10863,13 +10868,13 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("FinishTease") Then + If commandsList(num).Contains("@FinishTease") Then ssh.TeaseTick = 0 StringClean = StringClean.Replace("@FinishTease", "") Continue For End If - If commandsList(num).Contains("DommeLevelDown") Then + If commandsList(num).Contains("@DommeLevelDown") Then If FrmSettings.domlevelNumBox.Value > 1 Then FrmSettings.domlevelNumBox.Value -= 1 End If @@ -10877,7 +10882,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("ApathyLevelDown") Then + If commandsList(num).Contains("@ApathyLevelDown") Then If FrmSettings.NBEmpathy.Value > 1 Then FrmSettings.NBEmpathy.Value -= 1 End If @@ -10885,7 +10890,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("DommeLevelUp") Then + If commandsList(num).Contains("@DommeLevelUp") Then If FrmSettings.domlevelNumBox.Value < 5 Then FrmSettings.domlevelNumBox.Value += 1 End If @@ -10893,7 +10898,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("ApathyLevelUp") Then + If commandsList(num).Contains("@ApathyLevelUp") Then If FrmSettings.NBEmpathy.Value < 5 Then FrmSettings.NBEmpathy.Value += 1 End If @@ -10901,7 +10906,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("InterruptLongEdge") Then + If commandsList(num).Contains("@InterruptLongEdge") Then ssh.isLink = False ssh.BeforeTease = False Dim EdgeList As New List(Of String) @@ -10943,7 +10948,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("InterruptStartStroking") Then + If commandsList(num).Contains("@InterruptStartStroking") Then ssh.isLink = False ssh.BeforeTease = False If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then @@ -10994,7 +10999,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("Interrupt(") Then + If commandsList(num).Contains("@Interrupt(") Then ssh.isLink = False ssh.BeforeTease = False Dim InterruptClean As String = StringClean @@ -11057,7 +11062,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("BookmarkModule") Then + If commandsList(num).Contains("@BookmarkModule") Then ssh.BookmarkModule = True ssh.BookmarkModuleFile = ssh.FileText ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 @@ -11065,7 +11070,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("BookmarkLink") Then + If commandsList(num).Contains("@BookmarkLink") Then ssh.BookmarkLink = True ssh.BookmarkLinkFile = ssh.FileText ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 @@ -11073,19 +11078,19 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("AFKOn") Then + If commandsList(num).Contains("@AFKOn") Then ssh.AFK = True StringClean = StringClean.Replace("@AFKOn", "") Continue For End If - If commandsList(num).Contains("AFKOff") Then + If commandsList(num).Contains("@AFKOff") Then ssh.AFK = False StringClean = StringClean.Replace("@AFKOff", "") Continue For End If - If commandsList(num).Contains("Wait(") Then + If commandsList(num).Contains("@Wait(") Then Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") Dim WaitSeconds As Integer = Val(WaitFlag) @@ -11102,13 +11107,13 @@ OrgasmDecided: - If commandsList(num).Contains("SendDailyTasks") Then + If commandsList(num).Contains("@SendDailyTasks") Then CreateTaskLetter() StringClean = StringClean.Replace("@SendDailyTasks", "") Continue For End If - If commandsList(num).Contains("EdgingHold") Then + If commandsList(num).Contains("@EdgingHold") Then 'ssh.DomTypeCheck = True ssh.SubEdging = False @@ -11156,7 +11161,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("EdgingStop") Then + If commandsList(num).Contains("@EdgingStop") Then ssh.DomTypeCheck = True ssh.SubEdging = False @@ -11169,8 +11174,8 @@ OrgasmDecided: Continue For End If - 'Github Patch If commandsList(num).Contains("EdgingDecide") Then - If commandsList(num).Contains("DecideEdge") Then + 'Github Patch If commandsList(num).Contains("@EdgingDecide") Then + If commandsList(num).Contains("@DecideEdge") Then ssh.TempVal = ssh.randomizer.Next(0, 101) @@ -11244,7 +11249,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("CheckVideo") Then + If commandsList(num).Contains("@CheckVideo") Then ssh.VideoCheck = True RandomVideo() If ssh.NoVideo = True Then @@ -11260,9 +11265,9 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("PlayCensorshipSucks") Then + If commandsList(num).Contains("@PlayCensorshipSucks") Then - If commandsList(num).Contains("PlayCensorshipSucks[") Then + If commandsList(num).Contains("@PlayCensorshipSucks[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") @@ -11284,7 +11289,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("VitalSubAssignment") Then + If commandsList(num).Contains("@VitalSubAssignment") Then ' Read all lines of the given file. Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") @@ -11312,9 +11317,9 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("PlayAvoidTheEdge") Then + If commandsList(num).Contains("@PlayAvoidTheEdge") Then ' #### Reboot - If commandsList(num).Contains("PlayAvoidTheEdge[") Then + If commandsList(num).Contains("@PlayAvoidTheEdge[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") @@ -11345,7 +11350,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("ResumeAvoidTheEdge") Then + If commandsList(num).Contains("@ResumeAvoidTheEdge") Then DomWMP.Ctlcontrols.play() ScriptTimer.Stop() ssh.AvoidTheEdgeStroking = True @@ -11360,9 +11365,9 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("PlayRedLightGreenLight") Then + If commandsList(num).Contains("@PlayRedLightGreenLight") Then ' #### Reboot - If commandsList(num).Contains("PlayRedLightGreenLight[") Then + If commandsList(num).Contains("@PlayRedLightGreenLight[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") @@ -11396,7 +11401,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("PlayVideo[") Then + If commandsList(num).Contains("@PlayVideo[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") selectVideo(videoFlag) @@ -11410,7 +11415,7 @@ OrgasmDecided: Continue For End If - If commandsList(num).Contains("PlayAudio[") Then + If commandsList(num).Contains("@PlayAudio[") Then Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag Dim AudioClean As String @@ -11450,14 +11455,14 @@ ExternalAudio: End If - If commandsList(num).Contains("PlayVideo(") Then + If commandsList(num).Contains("@PlayVideo(") Then Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") Dim VidInt As Integer = Val(VidFlag) If UCase(VidFlag).Contains("M") Then VidInt *= 60 - If commandsList(num).Contains("JumpVideo") Then + If commandsList(num).Contains("@JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") End If @@ -11482,9 +11487,9 @@ ExternalAudio: - If commandsList(num).Contains("PlayVideo") Then + If commandsList(num).Contains("@PlayVideo") Then - If commandsList(num).Contains("JumpVideo") Then + If commandsList(num).Contains("@JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") End If @@ -11503,7 +11508,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("JumpVideo") Then + If commandsList(num).Contains("@JumpVideo") Then If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then Dim VideoLength As Integer = DomWMP.currentMedia.duration @@ -11523,7 +11528,7 @@ ExternalAudio: End If - If commandsList(num).Contains("AddStrokeTime(") Then + If commandsList(num).Contains("@AddStrokeTime(") Then Dim OriginalFlag As String = "" @@ -11554,7 +11559,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveStrokeTime(") Then + If commandsList(num).Contains("@RemoveStrokeTime(") Then Dim OriginalFlag As String = "" @@ -11588,7 +11593,7 @@ ExternalAudio: - If commandsList(num).Contains("AddStrokeTime") Then + If commandsList(num).Contains("@AddStrokeTime") Then If StrokeTimer.Enabled = True Then If FrmSettings.CBTauntCycleDD.Checked = True Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 @@ -11604,7 +11609,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveStrokeTime") Then + If commandsList(num).Contains("@RemoveStrokeTime") Then If StrokeTimer.Enabled = True Then ssh.StrokeTick -= ssh.StrokeTick / 2 End If @@ -11613,7 +11618,7 @@ ExternalAudio: End If - If commandsList(num).Contains("AddEdgeHoldTime(") Then + If commandsList(num).Contains("@AddEdgeHoldTime(") Then Dim OriginalFlag As String = "" @@ -11644,7 +11649,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveEdgeHoldTime(") Then + If commandsList(num).Contains("@RemoveEdgeHoldTime(") Then Dim OriginalFlag As String = "" @@ -11677,7 +11682,7 @@ ExternalAudio: End If - If commandsList(num).Contains("AddEdgeHoldTime") Then + If commandsList(num).Contains("@AddEdgeHoldTime") Then If HoldEdgeTimer.Enabled = True Then Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value @@ -11695,7 +11700,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveEdgeHoldTime") Then + If commandsList(num).Contains("@RemoveEdgeHoldTime") Then If HoldEdgeTimer.Enabled = True Then ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 @@ -11704,7 +11709,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("AddTeaseTime(") Then + If commandsList(num).Contains("@AddTeaseTime(") Then Dim OriginalFlag As String = "" 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun @@ -11738,7 +11743,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveTeaseTime(") Then + If commandsList(num).Contains("@RemoveTeaseTime(") Then Dim OriginalFlag As String = "" @@ -11770,7 +11775,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("AddTeaseTime") Then + If commandsList(num).Contains("@AddTeaseTime") Then 'same as before about the teasetimer ' If TeaseTimer.Enabled = True Then If FrmSettings.CBTeaseLengthDD.Checked = True Then @@ -11789,7 +11794,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveTeaseTime") Then + If commandsList(num).Contains("@RemoveTeaseTime") Then If TeaseTimer.Enabled = True Then ssh.TeaseTick = ssh.TeaseTick / 2 End If @@ -11797,74 +11802,74 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("PlaylistOff") Then + If commandsList(num).Contains("@PlaylistOff") Then ssh.Playlist = False StringClean = StringClean.Replace("@PlaylistOff", "") Continue For End If - If commandsList(num).Contains("RapidTextOn") Or commandsList(num).Contains("RTOn") Then + If commandsList(num).Contains("@RapidTextOn") Or commandsList(num).Contains("RTOn") Then ssh.RapidFire = True StringClean = StringClean.Replace("@RapidTextOn", "") StringClean = StringClean.Replace("@RTOn", "") Continue For End If - If commandsList(num).Contains("RapidTextOff") Or commandsList(num).Contains("RTOff") Then + If commandsList(num).Contains("@RapidTextOff") Or commandsList(num).Contains("RTOff") Then ssh.RapidFire = False StringClean = StringClean.Replace("@RapidTextOff", "") StringClean = StringClean.Replace("@RTOff", "") Continue For End If - If commandsList(num).Contains("VoiceOn") Then + If commandsList(num).Contains("@VoiceOn") Then FrmSettings.TTSCheckBox.Checked = True StringClean = StringClean.Replace("@VoiceOn", "") Continue For End If - If commandsList(num).Contains("VoiceOff") Then + If commandsList(num).Contains("@VoiceOff") Then FrmSettings.TTSCheckBox.Checked = False StringClean = StringClean.Replace("@VoiceOff", "") Continue For End If - If commandsList(num).Contains("GlitterTease1") Then + If commandsList(num).Contains("@GlitterTease1") Then ssh.glitterDommeNumber = 1 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease1", "") Continue For End If - If commandsList(num).Contains("GlitterTease2") Then + If commandsList(num).Contains("@GlitterTease2") Then ssh.glitterDommeNumber = 2 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease2", "") Continue For End If - If commandsList(num).Contains("GlitterTease3") Then + If commandsList(num).Contains("@GlitterTease3") Then ssh.glitterDommeNumber = 3 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease3", "") Continue For End If - If commandsList(num).Contains("DommeTease") Then + If commandsList(num).Contains("@DommeTease") Then ssh.glitterDommeNumber = 0 LoadDommeImageFolder() StringClean = StringClean.Replace("@DommeTease", "") Continue For End If - If commandsList(num).Contains("RandomTease") Then + If commandsList(num).Contains("@RandomTease") Then ssh.glitterDommeNumber = 4 LoadDommeImageFolder() StringClean = StringClean.Replace("@RandomTease", "") Continue For End If - If commandsList(num).Contains("SetDomme(") Then + If commandsList(num).Contains("@SetDomme(") Then Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") ssh.glitterDommeNumber = 0 @@ -11879,7 +11884,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("AddContact1") Then + If commandsList(num).Contains("@AddContact1") Then If Not ssh.contact1Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) ssh.contact1Present = True @@ -11891,7 +11896,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveContact1") Then + If commandsList(num).Contains("@RemoveContact1") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) @@ -11903,7 +11908,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("AddContact2") Then + If commandsList(num).Contains("@AddContact2") Then If Not ssh.contact2Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) ssh.contact2Present = True @@ -11915,7 +11920,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveContact2") Then + If commandsList(num).Contains("@RemoveContact2") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) @@ -11927,7 +11932,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("AddContact3") Then + If commandsList(num).Contains("@AddContact3") Then If Not ssh.contact3Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) ssh.contact3Present = True @@ -11939,7 +11944,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveContact3") Then + If commandsList(num).Contains("@RemoveContact3") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) @@ -11951,7 +11956,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("AddDomme") Then + If commandsList(num).Contains("@AddDomme") Then If Not ssh.dommePresent Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) ssh.dommePresent = True @@ -11962,7 +11967,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("RemoveDomme") Then + If commandsList(num).Contains("@RemoveDomme") Then 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) @@ -11974,7 +11979,7 @@ ExternalAudio: Continue For End If - If commandsList(num).Contains("NullResponse") Then + If commandsList(num).Contains("@NullResponse") Then ssh.NullResponse = True StringClean = StringClean.Replace("@NullResponse", "") 'Debug.Print("NullResponse Called") @@ -11983,7 +11988,7 @@ ExternalAudio: VTSkip: - If commandsList(num).Contains("SpeedUpCheck") Then + If commandsList(num).Contains("@SpeedUpCheck") Then If ssh.AskedToSpeedUp = True Then ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" @@ -12032,7 +12037,7 @@ VTSkip: End If - If commandsList(num).Contains("SlowDownCheck") Then + If commandsList(num).Contains("@SlowDownCheck") Then If ssh.AskedToSpeedUp = True Then ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" StringClean = ResponseClean(StringClean) @@ -12079,7 +12084,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("PlayRiskyPick") Then + If commandsList(num).Contains("@PlayRiskyPick") Then ssh.RiskyDeal = True 'FrmCardList.RiskyRound += 1 FrmCardList.TCGames.SelectTab(2) @@ -12091,7 +12096,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("ChooseRiskyPick") Then + If commandsList(num).Contains("@ChooseRiskyPick") Then ssh.RiskyDelay = True If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True @@ -12135,7 +12140,7 @@ VTSkip: End If - If commandsList(num).Contains("CheckRiskyPick") Then + If commandsList(num).Contains("@CheckRiskyPick") Then 'FrmCardList.Focus() FrmCardList.CheckRiskyPick() StringClean = StringClean.Replace("@CheckRiskyPick", "") @@ -12143,7 +12148,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("FinalRiskyPick") Then + If commandsList(num).Contains("@FinalRiskyPick") Then 'FrmCardList.Focus() FrmCardList.BTNRiskIt.Text = "LAST CASE" FrmCardList.BTNPickIt.Text = "MY CASE" @@ -12152,7 +12157,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("ClearRiskyLabels") Then + If commandsList(num).Contains("@ClearRiskyLabels") Then 'FrmCardList.Focus() FrmCardList.ClearCaseLabelsOffer() StringClean = StringClean.Replace("@ClearRiskyLabels", "") @@ -12160,7 +12165,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("RiskyPayout") Then + If commandsList(num).Contains("@RiskyPayout") Then If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then FrmCardList.GameWMP.settings.setMode("loop", False) FrmCardList.GameWMP.settings.volume = 20 @@ -12173,25 +12178,25 @@ VTSkip: Continue For End If - If commandsList(num).Contains("CloseRiskyPick") Then + If commandsList(num).Contains("@CloseRiskyPick") Then FrmCardList.CloseRiskyPick() StringClean = StringClean.Replace("@CloseRiskyPick", "") Continue For End If - If commandsList(num).Contains("RevealLastCase") Then + If commandsList(num).Contains("@RevealLastCase") Then FrmCardList.RevealLastCase() StringClean = StringClean.Replace("@RevealLastCase", "") Continue For End If - If commandsList(num).Contains("RevealUserCase") Then + If commandsList(num).Contains("@RevealUserCase") Then FrmCardList.RevealUserCase() StringClean = StringClean.Replace("@RevealUserCase", "") Continue For End If - If commandsList(num).Contains("RiskyState") Then + If commandsList(num).Contains("@RiskyState") Then If FrmCardList.RiskyState = True Then ssh.FileGoto = "(Risky Game)" Else @@ -12204,17 +12209,17 @@ VTSkip: Continue For End If - If commandsList(num).Contains("SystemMessage ") Then + If commandsList(num).Contains("@SystemMessage ") Then StringClean = StringClean.Replace("@SystemMessage ", "") Continue For End If - If commandsList(num).Contains("EmoteMessage ") Then + If commandsList(num).Contains("@EmoteMessage ") Then StringClean = StringClean.Replace("@EmoteMessage ", "") Continue For End If - If commandsList(num).Contains("MiniScript(") Then + If commandsList(num).Contains("@MiniScript(") Then Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" @@ -12227,7 +12232,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("CallReturn(") Then + If commandsList(num).Contains("@CallReturn(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") Dim CallReplace As String = CheckFlag @@ -12315,7 +12320,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("Call(") Then + If commandsList(num).Contains("@Call(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12351,7 +12356,7 @@ VTSkip: End If - If commandsList(num).Contains("CallRandom(") Then + If commandsList(num).Contains("@CallRandom(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12391,13 +12396,13 @@ VTSkip: ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If commandsList(num).Contains("RandomLink") Then + If commandsList(num).Contains("@RandomLink") Then RunLinkScript() StringClean = StringClean.Replace("@RandomLink", "") Continue For End If - If commandsList(num).Contains("RandomModule") Then + If commandsList(num).Contains("@RandomModule") Then If ssh.SubEdging Or ssh.SubHoldingEdge Then RunModuleScript(True) Else @@ -12407,56 +12412,56 @@ VTSkip: Continue For End If - If commandsList(num).Contains("RapidCodeOn") Then + If commandsList(num).Contains("@RapidCodeOn") Then ssh.RapidCode = True StringClean = StringClean.Replace("@RapidCodeOn", "") Continue For End If - If commandsList(num).Contains("RapidCodeOff") Then + If commandsList(num).Contains("@RapidCodeOff") Then ssh.RapidCode = False StringClean = StringClean.Replace("@RapidCodeOff", "") Continue For End If - If commandsList(num).Contains("InterruptsOff") Then + If commandsList(num).Contains("@InterruptsOff") Then ssh.DoNotDisturb = True StringClean = StringClean.Replace("@InterruptsOff", "") Continue For End If - If commandsList(num).Contains("InterruptsOn") Then + If commandsList(num).Contains("@InterruptsOn") Then ssh.DoNotDisturb = False StringClean = StringClean.Replace("@InterruptsOn", "") Continue For End If - If commandsList(num).Contains("NoTypo") Then + If commandsList(num).Contains("@NoTypo") Then ssh.TypoSwitch = 0 StringClean = StringClean.Replace("@NoTypo", "") Continue For End If - If commandsList(num).Contains("ForceTypo") Then + If commandsList(num).Contains("@ForceTypo") Then ssh.TypoSwitch = 2 StringClean = StringClean.Replace("@ForceTypo", "") Continue For End If - If commandsList(num).Contains("TyposOff") Then + If commandsList(num).Contains("@TyposOff") Then ssh.TyposDisabled = True StringClean = StringClean.Replace("@TyposOff", "") Continue For End If - If commandsList(num).Contains("TyposOn") Then + If commandsList(num).Contains("@TyposOn") Then ssh.TyposDisabled = False StringClean = StringClean.Replace("@TyposOn", "") Continue For End If - If commandsList(num).Contains("GoodMood(") Then + If commandsList(num).Contains("@GoodMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") @@ -12470,7 +12475,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("BadMood(") Then + If commandsList(num).Contains("@BadMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") @@ -12484,7 +12489,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("NeutralMood(") Then + If commandsList(num).Contains("@NeutralMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") @@ -12498,33 +12503,33 @@ VTSkip: Continue For End If - If commandsList(num).Contains("MoodUp") Then + If commandsList(num).Contains("@MoodUp") Then ssh.DommeMood += 1 If ssh.DommeMood > 10 Then ssh.DommeMood = 10 StringClean = StringClean.Replace("@MoodUp", "") Continue For End If - If commandsList(num).Contains("MoodDown") Then + If commandsList(num).Contains("@MoodDown") Then ssh.DommeMood -= 1 If ssh.DommeMood < 1 Then ssh.DommeMood = 1 StringClean = StringClean.Replace("@MoodDown", "") Continue For End If - If commandsList(num).Contains("MoodBest") Then + If commandsList(num).Contains("@MoodBest") Then ssh.DommeMood = 10 StringClean = StringClean.Replace("@MoodBest", "") Continue For End If - If commandsList(num).Contains("MoodWorst") Then + If commandsList(num).Contains("@MoodWorst") Then ssh.DommeMood = 1 StringClean = StringClean.Replace("@MoodWorst", "") Continue For End If - If commandsList(num).Contains("Timeout(") Then + If commandsList(num).Contains("@Timeout(") Then Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it @@ -12545,40 +12550,40 @@ VTSkip: Continue For End If - If commandsList(num).Contains("BallTorture+1") Then + If commandsList(num).Contains("@BallTorture+1") Then ssh.CBTBallsCount += 1 StringClean = StringClean.Replace("@BallTorture+1", "") Continue For End If - If commandsList(num).Contains("CockTorture+1") Then + If commandsList(num).Contains("@CockTorture+1") Then ssh.CBTCockCount += 1 StringClean = StringClean.Replace("@CockTorture+1", "") Continue For End If - If commandsList(num).Contains("EndTaunts") Then + If commandsList(num).Contains("@EndTaunts") Then ssh.StrokeTick = 0 StringClean = StringClean.Replace("@EndTaunts", "") Continue For End If - If commandsList(num).Contains("ResponseYes(") Then + If commandsList(num).Contains("@ResponseYes(") Then ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") Continue For End If - If commandsList(num).Contains("ResponseNo(") Then + If commandsList(num).Contains("@ResponseNo(") Then ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") Continue For End If - If commandsList(num).Contains("SetModule(") Then + If commandsList(num).Contains("@SetModule(") Then Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") If TempMod.Contains(",") Then @@ -12603,7 +12608,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("SetLink(") Then + If commandsList(num).Contains("@SetLink(") Then Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" @@ -12616,7 +12621,7 @@ VTSkip: End If - 'If commandsList(num).Contains("RandomText(") Then + 'If commandsList(num).Contains("@RandomText(") Then 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") 'TempText = FixCommas(TempText) 'Dim TextArray As String() = TempText.Split(",") @@ -12624,7 +12629,7 @@ VTSkip: 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) 'End If - If commandsList(num).Contains("Worship(") Then + If commandsList(num).Contains("@Worship(") Then Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") Debug.Print("Worship Paren = " & WorshipTemp) If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" @@ -12635,42 +12640,42 @@ VTSkip: Continue For End If - If commandsList(num).Contains("WorshipOn") Then + If commandsList(num).Contains("@WorshipOn") Then ssh.WorshipMode = True StringClean = StringClean.Replace("@WorshipOn", "") Continue For End If - If commandsList(num).Contains("WorshipOff") Then + If commandsList(num).Contains("@WorshipOff") Then ssh.WorshipMode = False ssh.WorshipTarget = "" StringClean = StringClean.Replace("@WorshipOff", "") Continue For End If - ' If commandsList(num).Contains("AssWorship") Then + ' If commandsList(num).Contains("@AssWorship") Then 'WorshipTarget = "Ass" 'StringClean = StringClean.Replace("@AssWorship", "") 'End If - 'If commandsList(num).Contains("BoobWorship") Then + 'If commandsList(num).Contains("@BoobWorship") Then 'WorshipTarget = "Boobs" 'StringClean = StringClean.Replace("@BoobWorship", "") 'End If - 'If commandsList(num).Contains("PussyWorship") Then + 'If commandsList(num).Contains("@PussyWorship") Then 'WorshipTarget = "Pussy" 'StringClean = StringClean.Replace("@PussyWorship", "") 'End If - If commandsList(num).Contains("ClearWorship") Then + If commandsList(num).Contains("@ClearWorship") Then ssh.WorshipTarget = "" StringClean = StringClean.Replace("@ClearWorship", "") Continue For End If - If commandsList(num).Contains("CheckFile(") Then + If commandsList(num).Contains("@CheckFile(") Then Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") FileFlag = FixCommas(FileFlag) @@ -12698,7 +12703,7 @@ VTSkip: End If - If commandsList(num).Contains("YesMode(") Then + If commandsList(num).Contains("@YesMode(") Then Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") YesFlag = FixCommas(YesFlag) @@ -12722,7 +12727,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("NoMode(") Then + If commandsList(num).Contains("@NoMode(") Then Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") NoFlag = FixCommas(NoFlag) @@ -12746,7 +12751,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("CameMode(") Then + If commandsList(num).Contains("@CameMode(") Then Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") CameFlag = FixCommas(CameFlag) @@ -12775,7 +12780,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("RuinedMode(") Then + If commandsList(num).Contains("@RuinedMode(") Then Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") RuinedFlag = FixCommas(RuinedFlag) @@ -12804,27 +12809,27 @@ VTSkip: Continue For End If - If commandsList(num).Contains("CustomMode(") Then + If commandsList(num).Contains("@CustomMode(") Then updateMode(StringClean, ssh.Modes) StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") Continue For End If - If commandsList(num).Contains("ClearModes") Then + If commandsList(num).Contains("@ClearModes") Then ClearModes() StringClean = StringClean.Replace("@ClearModes", "") Continue For End If - If commandsList(num).Contains("LockVideo") Then + If commandsList(num).Contains("@LockVideo") Then ssh.LockVideo = True StringClean = StringClean.Replace("@LockVideo", "") Continue For End If - If commandsList(num).Contains("UnlockVideo") Then + If commandsList(num).Contains("@UnlockVideo") Then ssh.LockVideo = False mainPictureBox.Visible = True DomWMP.Visible = False @@ -12832,13 +12837,13 @@ VTSkip: Continue For End If - If commandsList(num).Contains("ClearChat") Then + If commandsList(num).Contains("@ClearChat") Then ClearChat() StringClean = StringClean.Replace("@ClearChat", "") Continue For End If - If commandsList(num).Contains("ChatImage[") Then + If commandsList(num).Contains("@ChatImage[") Then Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") ImageDir = ImageDir.Replace("/", "\") ImageDir = ImageDir.Replace("\\", "\") @@ -12863,7 +12868,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("CountVar[") Then + If commandsList(num).Contains("@CountVar[") Then Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") @@ -12921,7 +12926,7 @@ VTSkip: - If commandsList(num).Contains("Debug") Then + If commandsList(num).Contains("@Debug") Then 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) @@ -12937,7 +12942,7 @@ VTSkip: End If - If commandsList(num).Contains("GotoDommeOrgasm") Then + If commandsList(num).Contains("@GotoDommeOrgasm") Then 'Debug.Print("GotoDommeOrgasmCalled") @@ -12957,7 +12962,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("GotoDommeRuin") Then + If commandsList(num).Contains("@GotoDommeRuin") Then Debug.Print("GotoDommeRuinedCalled") @@ -12977,7 +12982,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("GotoDommeApathy") Then + If commandsList(num).Contains("@GotoDommeApathy") Then 'Debug.Print("GotoDommeApathyCalled") @@ -12997,7 +13002,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("GotoDommeLevel") Then + If commandsList(num).Contains("@GotoDommeLevel") Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" @@ -13014,7 +13019,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("CheckBnB") Then + If commandsList(num).Contains("@CheckBnB") Then If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then ssh.FileGoto = "(No BnB)" ssh.SkipGotoLine = True @@ -13024,7 +13029,7 @@ VTSkip: Continue For End If - If commandsList(num).Contains("CheckStrokingState") Then + If commandsList(num).Contains("@CheckStrokingState") Then 'If SubStroking = True Then If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then ssh.FileGoto = "(Sub Stroking)" From a4c968ee4f7198d798d1683bd60c10d1ffdf7850 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 2 May 2017 22:08:55 +0200 Subject: [PATCH 097/143] changes to dommetag/imagetag: now, in linear scripts (not in responses/vocabs) if @DommeTag(a,b) finds no picture to show, it will perform a @DommeTagOr(a,b) to try to find a pic having at least one of the tags present (in the order a-->b) --- Tease AI/Form1.vb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 345f76a..c12520c 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8464,6 +8464,7 @@ RinseLatherRepeat: 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) Else ssh.DommeImageSTR = "" End If @@ -8530,6 +8531,7 @@ RinseLatherRepeat: 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) Else ssh.DommeImageSTR = "" End If From c36e4619cb354e280df4b415cb76b763664013a6 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Tue, 2 May 2017 22:55:42 +0200 Subject: [PATCH 098/143] fixed an error when launching teaseAI on a fresh startup due to it not finding the path for the contacts' images to load --- Tease AI/Classes/ContactData.vb | 1 - Tease AI/Form1.vb | 7 ++++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index 5421f6f..fddd611 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -119,7 +119,6 @@ Public Class ContactData Sub New(ByVal type As ContactType) Contact = type Check_ImageDir(type) - CheckInit() End Sub ''' diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index c12520c..ffdace2 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -10867,7 +10867,7 @@ OrgasmDecided: ssh.DomChat = "@SystemMessage Tease AI has been reset" setStartName() StringClean = StringClean.Replace("@EndTease", "") - Continue For + Exit For End If If commandsList(num).Contains("@FinishTease") Then @@ -20963,10 +20963,15 @@ playLoop: Public Sub setStartName() Try ssh.SlideshowMain = New ContactData(ContactType.Domme) + ssh.SlideshowMain.LoadNew(False) ssh.SlideshowContact1 = New ContactData(ContactType.Contact1) + ssh.SlideshowContact1.LoadNew(False) ssh.SlideshowContact2 = New ContactData(ContactType.Contact2) + ssh.SlideshowContact2.LoadNew(False) ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) + ssh.SlideshowContact3.LoadNew(False) ssh.SlideshowContactRandom = New ContactData(ContactType.Random) + ssh.SlideshowContactRandom.LoadNew(True) Catch ex As Exception End Try If ssh.currentlyPresentContacts.Count = 0 Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) From 6a45fb721f43d5e401cd411219281817449bd003 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Wed, 3 May 2017 00:36:40 +0200 Subject: [PATCH 099/143] fixed the problem when launching as a fresh start --- Tease AI/Form1.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ffdace2..1a6f9c5 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -930,7 +930,6 @@ retryStart: FrmSplash.LBLSplash.Text = "Loading Glitter Contact image slideshows..." FrmSplash.Refresh() - setStartName() If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") Then Dim ContactList As New List(Of String) @@ -1114,6 +1113,7 @@ retryStart: 'TabControl1.ColorScheme.TabBackground2 = Color.Transparent 'TabControl1.BackColor = Color.Transparent My.Settings.Save() + setStartName() Trace.WriteLine("Startup has been completed") Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ @@ -20971,7 +20971,7 @@ playLoop: ssh.SlideshowContact3 = New ContactData(ContactType.Contact3) ssh.SlideshowContact3.LoadNew(False) ssh.SlideshowContactRandom = New ContactData(ContactType.Random) - ssh.SlideshowContactRandom.LoadNew(True) + ssh.SlideshowContactRandom.LoadNew(False) Catch ex As Exception End Try If ssh.currentlyPresentContacts.Count = 0 Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) From 6333e4faf67bbef3d37a430d8b6755fada1b8f3a Mon Sep 17 00:00:00 2001 From: dariobrun Date: Wed, 3 May 2017 21:25:51 +0200 Subject: [PATCH 100/143] reverted the commandclean function to the old function, but added a do/while loop in it to allow for every command to be possibly present in multiple copies on the same line and be executed in all its istances (previously it was doing it only for some commands that have an internal for/loop to deal with that) --- Tease AI/Form1.vb | 847 ++++++++++++++++------------------------------ 1 file changed, 291 insertions(+), 556 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 1a6f9c5..92cc510 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8260,32 +8260,24 @@ StatusUpdateEnd: End Function Public Function CommandClean(ByVal StringClean As String, Optional ByVal TaskClean As Boolean = False) As String + Do + Debug.Print("Stringclean Intro = " & StringClean) - Debug.Print("Stringclean Intro = " & StringClean) - - Dim commandsList() As String = StringClean.Split("@") - 'reapply the @ to the commands - For n As Integer = 0 To commandsList.Count - 1 - commandsList(n) = "@" & commandsList(n) - Next - - For num As Integer = 1 To commandsList.Count - 1 If TaskClean = True Then Debug.Print("Tasks CommandClean") GoTo TaskCleanSet End If -followUp: - If commandsList(num).Contains("@FollowUp(") And ssh.FollowUp = "" Then + + If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") - Continue For End If -followUpXX: - If commandsList(num).Contains("@FollowUp") And ssh.FollowUp = "" Then + + If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then Dim FollowTemp As String Dim TSStartIndex As Integer @@ -8310,14 +8302,13 @@ followUpXX: If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - Continue For End If ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - If commandsList(num).Contains("@If[") Then + If StringClean.Contains("@If[") Then If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") Do @@ -8387,13 +8378,11 @@ followUpXX: ssh.FileGoto = GetParentheses(SCGotVar, "Then(") ssh.SkipGotoLine = True GetGoto() - Exit For End If End If Loop Until Not StringClean.Contains("If") - Continue For End If RinseLatherRepeat: @@ -8410,7 +8399,7 @@ RinseLatherRepeat: ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, ' LiskedList, DislikedList and LocalImageTagList, if the current Image is ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If commandsList(num).Contains("@DeleteLocalImage") Then + If StringClean.Contains("@DeleteLocalImage") Then If My.Settings.DomDeleteMedia = True Then Try DeleteCurrentImage(True) @@ -8424,13 +8413,12 @@ RinseLatherRepeat: End Try End If StringClean = StringClean.Replace("@DeleteLocalImage", "") - Continue For End If ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, ' DislikedList, LocalImageTagList and URL-Files, if the current Image is ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If commandsList(num).Contains("@DeleteImage") Then + If StringClean.Contains("@DeleteImage") Then If My.Settings.DomDeleteMedia = True Then Try DeleteCurrentImage(False) @@ -8444,11 +8432,10 @@ RinseLatherRepeat: End Try End If StringClean = StringClean.Replace("@DeleteImage", "") - Continue For End If ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. - If commandsList(num).Contains("@UnlockImages") Then + If StringClean.Contains("@UnlockImages") Then If ssh.SlideshowLoaded = True Then nextButton.Enabled = True previousButton.Enabled = True @@ -8456,10 +8443,9 @@ RinseLatherRepeat: End If ssh.LockImage = False StringClean = StringClean.Replace("@UnlockImages", "") - Continue For End If - If commandsList(num).Contains("@DommeTag(") Then + If StringClean.Contains("@DommeTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8470,10 +8456,9 @@ RinseLatherRepeat: End If ' Clean the Text. StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@DommeTagOr(") Then + If StringClean.Contains("@DommeTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8483,10 +8468,9 @@ RinseLatherRepeat: End If ' Clean the Text. StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@DommeTagAny(") Then + If StringClean.Contains("@DommeTagAny(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagAny(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then @@ -8496,36 +8480,31 @@ RinseLatherRepeat: End If ' Clean the Text. StringClean = StringClean.Replace("@DommeTagAny(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@NewDommeSlideshow") Then + If StringClean.Contains("@NewDommeSlideshow") Then 'TODO: Add Support for contact slideshows. ssh.newSlideshow = True LoadDommeImageFolder() StringClean = StringClean.Replace("@NewDommeSlideshow", "") - Continue For End If - If commandsList(num).Contains("@NewContact1Slideshow") Then + If StringClean.Contains("@NewContact1Slideshow") Then If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@NewContact1Slideshow", "") - Continue For End If - If commandsList(num).Contains("@NewContact2Slideshow") Then + If StringClean.Contains("@NewContact2Slideshow") Then If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@NewContact2Slideshow", "") - Continue For End If - If commandsList(num).Contains("@NewContact3Slideshow") Then + If StringClean.Contains("@NewContact3Slideshow") Then If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@NewContact3Slideshow", "") - Continue For End If - If commandsList(num).Contains("@DomTag(") Then + If StringClean.Contains("@DomTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage @@ -8537,10 +8516,9 @@ RinseLatherRepeat: End If StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@DomTagOr(") Then + If StringClean.Contains("@DomTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage @@ -8551,153 +8529,130 @@ RinseLatherRepeat: End If StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@ImageTag(") Then + If StringClean.Contains("@ImageTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") ShowImage(GetLocalImage(TagFlag), False) StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@ImageTagOr(") Then + If StringClean.Contains("@ImageTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") ShowImage(GetLocalImageOr(TagFlag), False) StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@ImageTagAny(") Then + If StringClean.Contains("@ImageTagAny(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagAny(") ShowImage(GetLocalImageAny(TagFlag), False) StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@ShowImage") And Not commandsList(num).Contains("ShowImage[") Then + If StringClean.Contains("@ShowImage") Then ShowImage(GetRandomImage(), False) StringClean = StringClean.Replace("@ShowImage", "") - Continue For End If - If commandsList(num).Contains("@ShowButtImage") Or commandsList(num).Contains("ShowButtsImage") Then + If StringClean.Contains("@ShowButtImage") Then ShowImage(GetImageData(ImageGenre.Butt).Random(), False) StringClean = StringClean.Replace("@ShowButtImage", "") StringClean = StringClean.Replace("@ShowButtsImage", "") - Continue For End If - If commandsList(num).Contains("@ShowBoobsImage") Or commandsList(num).Contains("ShowBoobImage") Then + If StringClean.Contains("@ShowBoobsImage") Then ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) StringClean = StringClean.Replace("@ShowBoobsImage", "") StringClean = StringClean.Replace("@ShowBoobImage", "") - Continue For End If - If commandsList(num).Contains("@ShowHardcoreImage") Then + If StringClean.Contains("@ShowHardcoreImage") Then ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) StringClean = StringClean.Replace("@ShowHardcoreImage", "") - Continue For End If - If commandsList(num).Contains("@ShowSoftcoreImage") Then + If StringClean.Contains("@ShowSoftcoreImage") Then ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) StringClean = StringClean.Replace("@ShowSoftcoreImage", "") - Continue For End If - If commandsList(num).Contains("@ShowLesbianImage") Then + If StringClean.Contains("@ShowLesbianImage") Then ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) StringClean = StringClean.Replace("@ShowLesbianImage", "") - Continue For End If - If commandsList(num).Contains("@ShowBlowjobImage") Then + If StringClean.Contains("@ShowBlowjobImage") Then ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) StringClean = StringClean.Replace("@ShowBlowjobImage", "") - Continue For End If - If commandsList(num).Contains("@ShowFemdomImage") Then + If StringClean.Contains("@ShowFemdomImage") Then ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) StringClean = StringClean.Replace("@ShowFemdomImage", "") - Continue For End If - If commandsList(num).Contains("@ShowLezdomImage") Then + If StringClean.Contains("@ShowLezdomImage") Then ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) StringClean = StringClean.Replace("@ShowLezdomImage", "") - Continue For End If - If commandsList(num).Contains("@ShowHentaiImage") Then + If StringClean.Contains("@ShowHentaiImage") Then ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) StringClean = StringClean.Replace("@ShowHentaiImage", "") - Continue For End If - If commandsList(num).Contains("@ShowGayImage") Then + If StringClean.Contains("@ShowGayImage") Then ShowImage(GetImageData(ImageGenre.Gay).Random(), False) StringClean = StringClean.Replace("@ShowGayImage", "") - Continue For End If - If commandsList(num).Contains("@ShowMaledomImage") Then + If StringClean.Contains("@ShowMaledomImage") Then ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) StringClean = StringClean.Replace("@ShowMaledomImage", "") - Continue For End If - If commandsList(num).Contains("@ShowCaptionsImage") Then + If StringClean.Contains("@ShowCaptionsImage") Then ShowImage(GetImageData(ImageGenre.Captions).Random(), False) StringClean = StringClean.Replace("@ShowCaptionsImage", "") - Continue For End If - If commandsList(num).Contains("@ShowGeneralImage") Then + If StringClean.Contains("@ShowGeneralImage") Then ShowImage(GetImageData(ImageGenre.General).Random(), False) StringClean = StringClean.Replace("@ShowGeneralImage", "") - Continue For End If - If commandsList(num).Contains("@ShowLikedImage") Then + If StringClean.Contains("@ShowLikedImage") Then ShowImage(GetImageData(ImageGenre.Liked).Random(), False) StringClean = StringClean.Replace("@ShowLikedImage", "") - Continue For End If - If commandsList(num).Contains("@ShowDislikedImage") Then + If StringClean.Contains("@ShowDislikedImage") Then ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) StringClean = StringClean.Replace("@ShowDislikedImage", "") - Continue For End If - If commandsList(num).Contains("@ShowBlogImage") Then + If StringClean.Contains("@ShowBlogImage") Then ShowImage(GetImageData(ImageGenre.Blog).Random(), False) StringClean = StringClean.Replace("@ShowBlogImage", "") - Continue For End If ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage - If commandsList(num).Contains("@NewBlogImage") Then + If StringClean.Contains("@NewBlogImage") Then ShowImage(GetImageData(ImageGenre.Blog).Random(), False) StringClean = StringClean.Replace("@NewBlogImage", "") - Continue For End If - If commandsList(num).Contains("@ShowLocalImage") And Not commandsList(num).Contains("ShowLocalImage(") Then + If StringClean.Contains("@ShowLocalImage") Then ShowImage(GetRandomImage(ImageSourceType.Local), False) StringClean = StringClean.Replace("@ShowLocalImage", "") - Continue For End If '=============================================================================== ' @ShowLocalImage() '=============================================================================== - If commandsList(num).Contains("@ShowLocalImage(") Then + If StringClean.Contains("@ShowLocalImage(") Then Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") LocalFlag = FixCommas(LocalFlag) @@ -8780,7 +8735,6 @@ RinseLatherRepeat: ShowImage(tmpImgToShow, False) StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") - Continue For End If '---------------------------------------- ' @ShowLocalImage()- End @@ -8788,7 +8742,7 @@ RinseLatherRepeat: '=============================================================================== ' @ShowTaggedImage '=============================================================================== - If commandsList(num).Contains("@ShowTaggedImage") Then + If StringClean.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = StringClean.Split() _ .Select(Function(s) s.Trim()) _ .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList @@ -8803,7 +8757,6 @@ RinseLatherRepeat: Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) StringClean = StringClean.Replace("@ShowTaggedImage", "") - Continue For End If '---------------------------------------- ' @ShowTaggedImage - End @@ -8811,11 +8764,10 @@ RinseLatherRepeat: '=============================================================================== ' @ShowImage[] '=============================================================================== - If commandsList(num).Contains("@ShowImage[") Then + If StringClean.Contains("@ShowImage[") Then Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") ShowImage(checkForImage(ImageToShow), False) StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") - Continue For End If '---------------------------------------- ' @ShowImage[]- End @@ -8828,10 +8780,10 @@ RinseLatherRepeat: ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. - If commandsList(num).Contains("@TnAFastSlides") Or commandsList(num).Contains("TnASlowSlides") Or commandsList(num).Contains("TnASlides") Then - If commandsList(num).Contains("@TnAFastSlides") Then TnASlides.Interval = 334 - If commandsList(num).Contains("@TnASlides") Then TnASlides.Interval = 1000 - If commandsList(num).Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 + If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then + If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 + If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 + If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 Try ssh.BoobList.Clear() @@ -8853,10 +8805,9 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@TnAFastSlides", "") StringClean = StringClean.Replace("@TnASlowSlides", "") StringClean = StringClean.Replace("@TnASlides", "") - Continue For End If - If commandsList(num).Contains("@CheckTnA") Then + If StringClean.Contains("@CheckTnA") Then TnASlides.Stop() 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) @@ -8865,17 +8816,15 @@ RinseLatherRepeat: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@CheckTnA", "") - Continue For End If - If commandsList(num).Contains("@StopTnA") Then + If StringClean.Contains("@StopTnA") Then TnASlides.Stop() ssh.BoobList.Clear() ssh.BoobImage = False ssh.AssList.Clear() ssh.AssImage = False StringClean = StringClean.Replace("@StopTnA", "") - Continue For End If '---------------------------------------- ' TnA-Slideshow - End @@ -8883,7 +8832,7 @@ RinseLatherRepeat: '=============================================================================== ' Slideshow '=============================================================================== - If commandsList(num).Contains("@Slideshow(") Then + If StringClean.Contains("@Slideshow(") Then Dim SlideFlag As String = StringClean Dim SlideStart As Integer @@ -8954,54 +8903,47 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@SlideshowOn") Then + If StringClean.Contains("@SlideshowOn") Then If ssh.CustomSlideshow.Count > 0 Then ssh.CustomSlideEnabled = True CustomSlideshowTimer.Start() End If StringClean = StringClean.Replace("@SlideshowOn", "") - Continue For End If - If commandsList(num).Contains("@SlideshowOff") Then + If StringClean.Contains("@SlideshowOff") Then ssh.CustomSlideEnabled = False CustomSlideshowTimer.Stop() StringClean = StringClean.Replace("@SlideshowOff", "") - Continue For End If - If commandsList(num).Contains("@SlideshowFirst") Then + If StringClean.Contains("@SlideshowFirst") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.FirstImage, False) StringClean = StringClean.Replace("@SlideshowFirst", "") - Continue For End If - If commandsList(num).Contains("@SlideshowLast") Then + If StringClean.Contains("@SlideshowLast") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.LastImage, False) StringClean = StringClean.Replace("@SlideshowLast", "") - Continue For End If - If commandsList(num).Contains("@SlideshowNext") Then + If StringClean.Contains("@SlideshowNext") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.NextImage, False) StringClean = StringClean.Replace("@SlideshowNext", "") - Continue For End If - If commandsList(num).Contains("@SlideshowPrevious") Then + If StringClean.Contains("@SlideshowPrevious") Then ssh.CustomSlideEnabled = True ShowImage(ssh.CustomSlideshow.PreviousImage, False) StringClean = StringClean.Replace("@SlideshowPrevious", "") - Continue For End If - If commandsList(num).Contains("@GotoSlideshow") Then + If StringClean.Contains("@GotoSlideshow") Then Dim ImageString As String = ssh.CustomSlideshow.CurrentImage If ImageString IsNot Nothing OrElse ImageString = "" Then @@ -9030,28 +8972,25 @@ RinseLatherRepeat: End If StringClean = StringClean.Replace("@GotoSlideshow", "") - Continue For End If '---------------------------------------- ' Slideshow - End '---------------------------------------- ' This Command will not work in the same line, because the Images are loaded async and not available yet. - If commandsList(num).Contains("@CurrentImage") Then + If StringClean.Contains("@CurrentImage") Then StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) - Continue For End If ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs ' (including Long Edge and Start Stroking) or when the sub gives up. - If commandsList(num).Contains("@LockImages") Then + If StringClean.Contains("@LockImages") Then ssh.LockImage = True nextButton.Enabled = False previousButton.Enabled = False PicStripTSMIdommeSlideshow.Enabled = False StringClean = StringClean.Replace("@LockImages", "") - Continue For End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' ImageCommands - End @@ -9060,7 +8999,7 @@ RinseLatherRepeat: ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - If commandsList(num).Contains("@Chance") Then + If StringClean.Contains("@Chance") Then Dim ChanceTemp As String Dim TSStartIndex As Integer Dim TSEndIndex As Integer @@ -9096,7 +9035,6 @@ RinseLatherRepeat: End If End If - Continue For End If ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of @@ -9105,7 +9043,7 @@ RinseLatherRepeat: ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - If commandsList(num).Contains("@CheckFlag") Then + If StringClean.Contains("@CheckFlag") Then Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -9149,7 +9087,6 @@ RinseLatherRepeat: End If Next ' StringClean = Join(CheckArray, Nothing) - Continue For End If @@ -9159,7 +9096,7 @@ TaskCleanSet: ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). - If commandsList(num).Contains("@SetFlag(") Then + If StringClean.Contains("@SetFlag(") Then Dim SetArray As String() = StringClean.Split(")") For i As Integer = 0 To SetArray.Count - 1 @@ -9196,14 +9133,13 @@ TaskCleanSet: End If Next 'StringClean = Join(SetArray, Nothing) - Continue For End If ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). - If commandsList(num).Contains("@TempFlag(") Then + If StringClean.Contains("@TempFlag(") Then Dim TempArray As String() = StringClean.Split(")") For i As Integer = 0 To TempArray.Count - 1 @@ -9240,14 +9176,13 @@ TaskCleanSet: End If Next 'StringClean = Join(TempArray, Nothing) - Continue For End If ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). - If commandsList(num).Contains("@DeleteFlag(") Then + If StringClean.Contains("@DeleteFlag(") Then Dim DeleteArray As String() = StringClean.Split(")") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9283,7 +9218,6 @@ TaskCleanSet: End If Next 'StringClean = Join(DeleteArray, Nothing) - Continue For End If ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. @@ -9291,7 +9225,7 @@ TaskCleanSet: ' Multiple @SetVar[] Commands may be used per line if you wish. ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - If commandsList(num).Contains("@SetVar[") Then + If StringClean.Contains("@SetVar[") Then Dim VarArray As String() = StringClean.Split For i As Integer = 0 To VarArray.Count - 1 @@ -9319,7 +9253,6 @@ TaskCleanSet: End If Next StringClean = Join(VarArray) - Continue For End If ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . @@ -9328,7 +9261,7 @@ TaskCleanSet: ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is ' specified, "Days" will be used. - If commandsList(num).Contains("@SetDate(") Then + If StringClean.Contains("@SetDate(") Then Dim CheckArray As String() = StringClean.Split(")") Dim OriginalCheck As String @@ -9372,7 +9305,6 @@ TaskCleanSet: End If Next 'StringClean = Join(CheckArray, Nothing) - Continue For End If @@ -9380,7 +9312,7 @@ TaskCleanSet: ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line - If commandsList(num).Contains("@RoundVar[") Then + If StringClean.Contains("@RoundVar[") Then Dim VarArray As String() = StringClean.Split For i As Integer = 0 To VarArray.Count - 1 @@ -9424,7 +9356,6 @@ TaskCleanSet: ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") Next StringClean = Join(VarArray) - Continue For End If ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] @@ -9432,7 +9363,7 @@ TaskCleanSet: ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / 'More than one @ChangeVar[] Command can be used per line. - If commandsList(num).Contains("@ChangeVar[") Then + If StringClean.Contains("@ChangeVar[") Then Dim ChangeArray As String() = StringClean.Split For i As Integer = 0 To ChangeArray.Count - 1 @@ -9506,13 +9437,12 @@ TaskCleanSet: If Not ssh.ScriptOperator = "Null" Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) End If Next - Continue For End If ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] ' More than one @ShowVar[] Commands can be used per line - If commandsList(num).Contains("@ShowVar[") Then + If StringClean.Contains("@ShowVar[") Then Dim VarSplit As String() = StringClean.Split("]") For i As Integer = 0 To VarSplit.Count - 1 @@ -9532,27 +9462,24 @@ TaskCleanSet: StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) End If Next - Continue For End If - If commandsList(num).Contains("@ChastityOn") Then + If StringClean.Contains("@ChastityOn") Then My.Settings.Chastity = True FrmSettings.LBLChastityState.Text = "ON" FrmSettings.LBLChastityState.ForeColor = Color.Green StringClean = StringClean.Replace("@ChastityOn", "") - Continue For End If - If commandsList(num).Contains("@ChastityOff") Then + If StringClean.Contains("@ChastityOff") Then My.Settings.Chastity = False FrmSettings.LBLChastityState.Text = "OFF" FrmSettings.LBLChastityState.ForeColor = Color.Red StringClean = StringClean.Replace("@ChastityOff", "") - Continue For End If - If commandsList(num).Contains("@AddTokens(") Then + If StringClean.Contains("@AddTokens(") Then Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenAdd As Integer @@ -9578,11 +9505,10 @@ TaskCleanSet: StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@RemoveTokens(") Then + If StringClean.Contains("@RemoveTokens(") Then Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenRemove As Integer @@ -9612,83 +9538,74 @@ TaskCleanSet: StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@Add1Token") Then + If StringClean.Contains("@Add1Token") Then ssh.BronzeTokens += 1 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add1Token", "") - Continue For End If - If commandsList(num).Contains("@Add3Tokens") Then + If StringClean.Contains("@Add3Tokens") Then ssh.BronzeTokens += 3 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add3Tokens", "") - Continue For End If - If commandsList(num).Contains("@Add5Tokens") Then + If StringClean.Contains("@Add5Tokens") Then ssh.BronzeTokens += 5 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add5Tokens", "") - Continue For End If - If commandsList(num).Contains("@Add10Tokens") Then + If StringClean.Contains("@Add10Tokens") Then ssh.BronzeTokens += 10 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add10Tokens", "") - Continue For End If - If commandsList(num).Contains("@Add25Tokens") Then + If StringClean.Contains("@Add25Tokens") Then ssh.BronzeTokens += 25 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add25Tokens", "") - Continue For End If - If commandsList(num).Contains("@Add50Tokens") Then + If StringClean.Contains("@Add50Tokens") Then ssh.BronzeTokens += 50 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add50Tokens", "") - Continue For End If - If commandsList(num).Contains("@Add100Tokens") Then + If StringClean.Contains("@Add100Tokens") Then ssh.BronzeTokens += 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add50Tokens", "") - Continue For End If - If commandsList(num).Contains("@Remove100Tokens") Then + If StringClean.Contains("@Remove100Tokens") Then ssh.BronzeTokens -= 100 My.Settings.BronzeTokens = ssh.BronzeTokens FrmCardList.UpdateBronzeTokens() MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Remove100Tokens", "") - Continue For End If - If commandsList(num).Contains("@UpdateOrgasm") Then + If StringClean.Contains("@UpdateOrgasm") Then My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) 'Github Patch @@ -9696,10 +9613,9 @@ TaskCleanSet: FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm StringClean = StringClean.Replace("@UpdateOrgasm", "") - Continue For End If - If commandsList(num).Contains("@UpdateRuined") Then + If StringClean.Contains("@UpdateRuined") Then My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) ' GithubPatch @@ -9707,10 +9623,9 @@ TaskCleanSet: FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined StringClean = StringClean.Replace("@UpdateRuined", "") - Continue For End If - If commandsList(num).Contains("@DeleteVar[") Then + If StringClean.Contains("@DeleteVar[") Then Dim DeleteArray As String() = StringClean.Split("]") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9746,22 +9661,19 @@ TaskCleanSet: End If Next 'StringClean = Join(DeleteArray, Nothing) - Continue For End If - If commandsList(num).Contains("@PornAllowedOff") Then + If StringClean.Contains("@PornAllowedOff") Then CreateFlag("SYS_NoPornAllowed") StringClean = StringClean.Replace("@PornAllowedOff", "") - Continue For End If - If commandsList(num).Contains("@PornAllowedOn") Then + If StringClean.Contains("@PornAllowedOn") Then DeleteFlag("SYS_NoPornAllowed") StringClean = StringClean.Replace("@PornAllowedOn", "") - Continue For End If - If commandsList(num).Contains("@RestrictOrgasm(") Then + If StringClean.Contains("@RestrictOrgasm(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") If CheckFlag.Contains(",") Then @@ -9816,16 +9728,14 @@ TaskCleanSet: End If ssh.OrgasmRestricted = True StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") - Continue For End If - If commandsList(num).Contains("@RestrictOrgasm") Then + If StringClean.Contains("@RestrictOrgasm") Then ssh.OrgasmRestricted = True StringClean = StringClean.Replace("@RestrictOrgasm", "") - Continue For End If - If commandsList(num).Contains("@DecreaseOrgasmChance") Then + If StringClean.Contains("@DecreaseOrgasmChance") Then If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" @@ -9834,10 +9744,9 @@ TaskCleanSet: My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") - Continue For End If - If commandsList(num).Contains("@IncreaseOrgasmChance") Then + If StringClean.Contains("@IncreaseOrgasmChance") Then If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" @@ -9846,10 +9755,9 @@ TaskCleanSet: My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") - Continue For End If - If commandsList(num).Contains("@DecreaseRuinChance") Then + If StringClean.Contains("@DecreaseRuinChance") Then If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" @@ -9858,10 +9766,9 @@ TaskCleanSet: My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text StringClean = StringClean.Replace("@DecreaseRuinChance", "") - Continue For End If - If commandsList(num).Contains("@IncreaseRuinChance") Then + If StringClean.Contains("@IncreaseRuinChance") Then If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" @@ -9870,7 +9777,6 @@ TaskCleanSet: My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text StringClean = StringClean.Replace("@IncreaseRuinChance", "") - Continue For End If '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END @@ -9882,7 +9788,7 @@ TaskCleanSet: ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set ' for the Variable "NoPorn" by @SetDate() - If commandsList(num).Contains("@CheckDate(") Then + If StringClean.Contains("@CheckDate(") Then Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -9903,7 +9809,6 @@ TaskCleanSet: End If Next - Continue For End If ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. @@ -9911,20 +9816,19 @@ TaskCleanSet: ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. - If commandsList(num).Contains("@InputVar[") Then + If StringClean.Contains("@InputVar[") Then ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") ssh.InputFlag = True If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - Continue For End If ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt - If commandsList(num).Contains("@DislikeBlogImage") Then + If StringClean.Contains("@DislikeBlogImage") Then If ssh.ImageLocation <> "" Then If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then @@ -9934,12 +9838,11 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@DislikeBlogImage", "") End If - Continue For End If ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - If commandsList(num).Contains("@LikeBlogImage") Then + If StringClean.Contains("@LikeBlogImage") Then If ssh.ImageLocation <> "" Then If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then @@ -9949,7 +9852,6 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@LikeBlogImage", "") End If - Continue For End If Debug.Print("SubStroking = " & ssh.SubStroking) @@ -9960,44 +9862,40 @@ TaskCleanSet: ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ - If commandsList(num).Contains("@StrokeFaster") Then + If StringClean.Contains("@StrokeFaster") Then ssh.StrokeFaster = True StringClean = StringClean.Replace("@StrokeFaster", "") - Continue For End If ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ - If commandsList(num).Contains("@StrokeSlower") Then + If StringClean.Contains("@StrokeSlower") Then ssh.StrokeSlower = True StringClean = StringClean.Replace("@StrokeSlower", "") - Continue For End If ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - If commandsList(num).Contains("@StrokeFastest") Then + If StringClean.Contains("@StrokeFastest") Then ssh.StrokeFastest = True StringClean = StringClean.Replace("@StrokeFastest", "") - Continue For End If ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ - If commandsList(num).Contains("@StrokeSlowest") Then + If StringClean.Contains("@StrokeSlowest") Then ssh.StrokeSlowest = True StringClean = StringClean.Replace("@StrokeSlowest", "") - Continue For End If - If commandsList(num).Contains("@StartStroking") Then + If StringClean.Contains("@StartStroking") Then If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) @@ -10012,13 +9910,13 @@ TaskCleanSet: End Try End If - If commandsList(num).Contains("@Contact1") Then + If StringClean.Contains("@Contact1") Then ssh.Contact1Stroke = True - ElseIf commandsList(num).Contains("@Contact2") Then + ElseIf StringClean.Contains("@Contact2") Then ssh.Contact2Stroke = True - ElseIf commandsList(num).Contains("@Contact3") Then + ElseIf StringClean.Contains("@Contact3") Then ssh.Contact3Stroke = True - ElseIf commandsList(num).Contains("@RandomContact") Then + ElseIf StringClean.Contains("@RandomContact") Then Dim casual As Integer = 0 casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) Select Case ssh.currentlyPresentContacts(casual) @@ -10080,10 +9978,9 @@ TaskCleanSet: StrokeTimer.Start() StrokeTauntTimer.Start() StringClean = StringClean.Replace("@StartStroking", "") - Continue For End If - If commandsList(num).Contains("@StartTaunts") Then + If StringClean.Contains("@StartTaunts") Then ssh.AskedToGiveUpSection = False ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False @@ -10111,10 +10008,9 @@ TaskCleanSet: StrokeTimer.Start() StrokeTauntTimer.Start() StringClean = StringClean.Replace("@StartTaunts", "") - Continue For End If - If commandsList(num).Contains("@StopStroking") Then + If StringClean.Contains("@StopStroking") Then If FrmSettings.TBWebStop.Text <> "" Then Try FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) @@ -10151,10 +10047,9 @@ TaskCleanSet: EdgeTauntTimer.Stop() HoldEdgeTauntTimer.Stop() StringClean = StringClean.Replace("@StopStroking", "") - Continue For End If - If commandsList(num).Contains("@StopTaunts") Then + If StringClean.Contains("@StopTaunts") Then ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False ssh.SubStroking = False @@ -10165,42 +10060,37 @@ TaskCleanSet: EdgeTauntTimer.Stop() HoldEdgeTauntTimer.Stop() StringClean = StringClean.Replace("@StopTaunts", "") - Continue For End If - If commandsList(num).Contains("@LongHold(") Then + If StringClean.Contains("@LongHold(") Then Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) ssh.TempVal = ssh.randomizer.Next(0, 101) If ssh.TempVal <= HoldInt Then ssh.LongHold = True StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") - Continue For End If - If commandsList(num).Contains("@ExtremeHold(") Then + If StringClean.Contains("@ExtremeHold(") Then Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) ssh.TempVal = ssh.randomizer.Next(0, 101) If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") - Continue For End If - If commandsList(num).Contains("@LongHold") Then + If StringClean.Contains("@LongHold") Then ssh.LongHold = True StringClean = StringClean.Replace("@LongHold", "") - Continue For End If - If commandsList(num).Contains("@ExtremeHold") Then + If StringClean.Contains("@ExtremeHold") Then ssh.ExtremeHold = True StringClean = StringClean.Replace("@ExtremeHold", "") - Continue For End If - If commandsList(num).Contains("@MultipleEdges(") Then - If commandsList(num).Contains("@Edg") Then + If StringClean.Contains("@MultipleEdges(") Then + If StringClean.Contains("@Edg") Then Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") EdgeFlag = FixCommas(EdgeFlag) @@ -10225,11 +10115,10 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") - Continue For End If - If commandsList(num).Contains("@Edge(") Then + If StringClean.Contains("@Edge(") Then ContactEdgeCheck(StringClean) Edge() @@ -10263,12 +10152,11 @@ TaskCleanSet: If ssh.ExtremeHold = True Then ssh.ExtremeTaunts = True If ssh.LongTaunts = False And ssh.ExtremeTaunts = False Then ssh.HoldTaunts = True End If - Continue For End If - If commandsList(num).Contains("@EdgeMode(") Then + If StringClean.Contains("@EdgeMode(") Then Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") EdgeFlag = FixCommas(EdgeFlag) Dim EdgeArray As String() = EdgeFlag.Split(",") @@ -10293,19 +10181,17 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuinNoHoldNoSecret") Then + If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuin = True ssh.EdgeToRuinSecret = False StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuinHoldNoSecret(") Then + If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") If EdgeHoldFlag.Contains(",") Then @@ -10341,40 +10227,36 @@ TaskCleanSet: ssh.EdgeToRuin = True ssh.EdgeToRuinSecret = False StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuinHoldNoSecret") Then + If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True ssh.EdgeToRuin = True ssh.EdgeToRuinSecret = False StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuinNoSecret") Then + If StringClean.Contains("@EdgeToRuinNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuinSecret = False ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuinNoHold") Then + If StringClean.Contains("@EdgeToRuinNoHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeNoHold = True ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuinHold(") Then + If StringClean.Contains("@EdgeToRuinHold(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") If EdgeHoldFlag.Contains(",") Then @@ -10410,32 +10292,28 @@ TaskCleanSet: ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuinHold") Then + If StringClean.Contains("@EdgeToRuinHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuinHold", "") - Continue For End If - If commandsList(num).Contains("@EdgeToRuin") Then + If StringClean.Contains("@EdgeToRuin") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeToRuin = True StringClean = StringClean.Replace("@EdgeToRuin", "") - Continue For End If - If commandsList(num).Contains("@EdgeNoHold") Then + If StringClean.Contains("@EdgeNoHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeNoHold = True StringClean = StringClean.Replace("@EdgeNoHold", "") - Continue For End If @@ -10446,7 +10324,7 @@ TaskCleanSet: ' 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. - If commandsList(num).Contains("@EdgeHold(") Then + If StringClean.Contains("@EdgeHold(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") If EdgeHoldFlag.Contains(",") Then @@ -10481,46 +10359,41 @@ TaskCleanSet: Edge() ssh.EdgeHold = True StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") - Continue For End If - If commandsList(num).Contains("@EdgeHold") Then + If StringClean.Contains("@EdgeHold") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True StringClean = StringClean.Replace("@EdgeHold", "") - Continue For End If - If commandsList(num).Contains("@Edge") Then + If StringClean.Contains("@Edge") Then ContactEdgeCheck(StringClean) Edge() StringClean = StringClean.Replace("@Edge", "") - Continue For End If - If commandsList(num).Contains("@CBTBalls") Then + If StringClean.Contains("@CBTBalls") Then If FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBallsActive = True ssh.CBTBallsFlag = True ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If StringClean = StringClean.Replace("@CBTBalls", "") - Continue For End If - If commandsList(num).Contains("@CBTCock") Then + If StringClean.Contains("@CBTCock") Then If FrmSettings.CBCBTCock.Checked = True Then ssh.CBTCockActive = True ssh.CBTCockFlag = True ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If StringClean = StringClean.Replace("@CBTCock", "") - Continue For End If - If commandsList(num).Contains("@CBT") And Not commandsList(num).Contains("CBTLevel") Then + If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then ssh.CBTBothActive = True ssh.CBTBothFlag = True @@ -10528,14 +10401,13 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@CBT", "") - Continue For End If ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. - If commandsList(num).Contains("@CustomTask(") Then + If StringClean.Contains("@CustomTask(") Then Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") CustomFlag = FixCommas(CustomFlag) @@ -10558,11 +10430,10 @@ TaskCleanSet: StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") - Continue For End If - If commandsList(num).Contains("@DecideOrgasm") Then + If StringClean.Contains("@DecideOrgasm") Then ssh.OrgasmDenied = False ssh.OrgasmAllowed = False @@ -10572,7 +10443,7 @@ TaskCleanSet: Dim RuinGoto As String = "Orgasm Ruin" Dim DenyGoto As String = "Orgasm Deny" - If commandsList(num).Contains("@DecideOrgasm(") Then + If StringClean.Contains("@DecideOrgasm(") Then Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") OrgasmFlag = FixCommas(OrgasmFlag) Dim OrgasmArray As String() = OrgasmFlag.Split(",") @@ -10649,35 +10520,31 @@ OrgasmDecided: GetGoto() StringClean = StringClean.Replace("@DecideOrgasm", "") - Continue For End If - If commandsList(num).Contains("@OrgasmRuin") Then + If StringClean.Contains("@OrgasmRuin") Then ssh.FileGoto = "Orgasm Ruin" ssh.OrgasmRuined = True ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@OrgasmRuin", "") - Continue For End If - If commandsList(num).Contains("@OrgasmDeny") Then + If StringClean.Contains("@OrgasmDeny") Then ssh.FileGoto = "Orgasm Deny" ssh.OrgasmDenied = True ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@OrgasmDeny", "") - Continue For End If - If commandsList(num).Contains("@OrgasmAllow") Then + If StringClean.Contains("@OrgasmAllow") Then ssh.FileGoto = "Orgasm Allow" ssh.OrgasmAllowed = True ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@OrgasmAllow", "") - Continue For End If @@ -10685,7 +10552,7 @@ OrgasmDecided: ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. - If commandsList(num).Contains("@Glitter(") Then + If StringClean.Contains("@Glitter(") Then ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") @@ -10698,11 +10565,10 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@WritingTask(") Or commandsList(num).Contains("WritingTaskRandom(") Then - If commandsList(num).Contains("@WritingTask(") Then + If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then + If StringClean.Contains("@WritingTask(") Then ssh.randomWriteTask = False StringClean = StringClean.Replace("@WritingTask", "") Else @@ -10764,10 +10630,9 @@ OrgasmDecided: LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") End If - Continue For End If - If commandsList(num).Contains("@CheckJOIVideo") Then + If StringClean.Contains("@CheckJOIVideo") Then If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then Else @@ -10782,10 +10647,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@CheckJOIVideo", "") - Continue For End If - If commandsList(num).Contains("@PlayJOIVideo") Then + If StringClean.Contains("@PlayJOIVideo") Then If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then ssh.TeaseVideo = True @@ -10793,10 +10657,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayJOIVideo", "") - Continue For End If - If commandsList(num).Contains("@PlayCHVideo") Then + If StringClean.Contains("@PlayCHVideo") Then If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then ssh.TeaseVideo = True @@ -10804,10 +10667,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayCHVideo", "") - Continue For End If - If commandsList(num).Contains("@GiveUpCheck") Then + If StringClean.Contains("@GiveUpCheck") Then If ssh.AskedToGiveUpSection = True Then If ssh.SubGaveUp = True Then @@ -10851,11 +10713,10 @@ OrgasmDecided: End If End If StringClean = ResponseClean(StringClean) - Continue For End If - If commandsList(num).Contains("@EndTease") Then + If StringClean.Contains("@EndTease") Then SetVariable("SYS_SubLeftEarly", 0) 'My.Settings.Sys_SubLeftEarly = 0 'StopEverything() @@ -10865,50 +10726,44 @@ OrgasmDecided: FrmSettings.LockOrgasmChances(False) ssh.DomTask = "@SystemMessage Tease AI has been reset" ssh.DomChat = "@SystemMessage Tease AI has been reset" - setStartName() + 'setStartName() StringClean = StringClean.Replace("@EndTease", "") - Exit For End If - If commandsList(num).Contains("@FinishTease") Then + If StringClean.Contains("@FinishTease") Then ssh.TeaseTick = 0 StringClean = StringClean.Replace("@FinishTease", "") - Continue For End If - If commandsList(num).Contains("@DommeLevelDown") Then + If StringClean.Contains("@DommeLevelDown") Then If FrmSettings.domlevelNumBox.Value > 1 Then FrmSettings.domlevelNumBox.Value -= 1 End If StringClean = StringClean.Replace("@DommeLevelDown", "") - Continue For End If - If commandsList(num).Contains("@ApathyLevelDown") Then + If StringClean.Contains("@ApathyLevelDown") Then If FrmSettings.NBEmpathy.Value > 1 Then FrmSettings.NBEmpathy.Value -= 1 End If StringClean = StringClean.Replace("@ApathyLevelDown", "") - Continue For End If - If commandsList(num).Contains("@DommeLevelUp") Then + If StringClean.Contains("@DommeLevelUp") Then If FrmSettings.domlevelNumBox.Value < 5 Then FrmSettings.domlevelNumBox.Value += 1 End If StringClean = StringClean.Replace("@DommeLevelUp", "") - Continue For End If - If commandsList(num).Contains("@ApathyLevelUp") Then + If StringClean.Contains("@ApathyLevelUp") Then If FrmSettings.NBEmpathy.Value < 5 Then FrmSettings.NBEmpathy.Value += 1 End If StringClean = StringClean.Replace("@ApathyLevelUp", "") - Continue For End If - If commandsList(num).Contains("@InterruptLongEdge") Then + If StringClean.Contains("@InterruptLongEdge") Then ssh.isLink = False ssh.BeforeTease = False Dim EdgeList As New List(Of String) @@ -10947,10 +10802,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@InterruptLongEdge", "") ssh.JustShowedBlogImage = True - Continue For End If - If commandsList(num).Contains("@InterruptStartStroking") Then + If StringClean.Contains("@InterruptStartStroking") Then ssh.isLink = False ssh.BeforeTease = False If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then @@ -10998,10 +10852,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@InterruptStartStroking", "") ssh.JustShowedBlogImage = True - Continue For End If - If commandsList(num).Contains("@Interrupt(") Then + If StringClean.Contains("@Interrupt(") Then ssh.isLink = False ssh.BeforeTease = False Dim InterruptClean As String = StringClean @@ -11061,38 +10914,33 @@ OrgasmDecided: StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") ssh.JustShowedBlogImage = True - Continue For End If - If commandsList(num).Contains("@BookmarkModule") Then + If StringClean.Contains("@BookmarkModule") Then ssh.BookmarkModule = True ssh.BookmarkModuleFile = ssh.FileText ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 StringClean = StringClean.Replace("@BookmarkModule", "") - Continue For End If - If commandsList(num).Contains("@BookmarkLink") Then + If StringClean.Contains("@BookmarkLink") Then ssh.BookmarkLink = True ssh.BookmarkLinkFile = ssh.FileText ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 StringClean = StringClean.Replace("@BookmarkLink", "") - Continue For End If - If commandsList(num).Contains("@AFKOn") Then + If StringClean.Contains("@AFKOn") Then ssh.AFK = True StringClean = StringClean.Replace("@AFKOn", "") - Continue For End If - If commandsList(num).Contains("@AFKOff") Then + If StringClean.Contains("@AFKOff") Then ssh.AFK = False StringClean = StringClean.Replace("@AFKOff", "") - Continue For End If - If commandsList(num).Contains("@Wait(") Then + If StringClean.Contains("@Wait(") Then Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") Dim WaitSeconds As Integer = Val(WaitFlag) @@ -11104,18 +10952,16 @@ OrgasmDecided: WaitTimer.Start() StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@SendDailyTasks") Then + If StringClean.Contains("@SendDailyTasks") Then CreateTaskLetter() StringClean = StringClean.Replace("@SendDailyTasks", "") - Continue For End If - If commandsList(num).Contains("@EdgingHold") Then + If StringClean.Contains("@EdgingHold") Then 'ssh.DomTypeCheck = True ssh.SubEdging = False @@ -11160,10 +11006,9 @@ OrgasmDecided: StringClean = StringClean.Replace("@EdgingHold", "") - Continue For End If - If commandsList(num).Contains("@EdgingStop") Then + If StringClean.Contains("@EdgingStop") Then ssh.DomTypeCheck = True ssh.SubEdging = False @@ -11173,11 +11018,10 @@ OrgasmDecided: TypingDelay() StringClean = StringClean.Replace("@EdgingStop", "") - Continue For End If - 'Github Patch If commandsList(num).Contains("@EdgingDecide") Then - If commandsList(num).Contains("@DecideEdge") Then + 'Github Patch If StringClean.Contains("@EdgingDecide") Then + If StringClean.Contains("@DecideEdge") Then ssh.TempVal = ssh.randomizer.Next(0, 101) @@ -11248,10 +11092,9 @@ OrgasmDecided: 'Application.DoEvents() 'Loop Until ssh.DomTypeCheck = False StringClean = StringClean.Replace("@DecideEdge", "") - Continue For End If - If commandsList(num).Contains("@CheckVideo") Then + If StringClean.Contains("@CheckVideo") Then ssh.VideoCheck = True RandomVideo() If ssh.NoVideo = True Then @@ -11264,12 +11107,11 @@ OrgasmDecided: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@CheckVideo", "") - Continue For End If - If commandsList(num).Contains("@PlayCensorshipSucks") Then + If StringClean.Contains("@PlayCensorshipSucks") Then - If commandsList(num).Contains("@PlayCensorshipSucks[") Then + If StringClean.Contains("@PlayCensorshipSucks[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") @@ -11288,10 +11130,9 @@ OrgasmDecided: CensorshipTimer.Start() End If StringClean = StringClean.Replace("@PlayCensorshipSucks", "") - Continue For End If - If commandsList(num).Contains("@VitalSubAssignment") Then + If StringClean.Contains("@VitalSubAssignment") Then ' Read all lines of the given file. Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") @@ -11316,12 +11157,11 @@ OrgasmDecided: CBVitalSubDomTask.Checked = False My.Settings.VitalSubAssignments = False StringClean = StringClean.Replace("@VitalSubAssignment", "") - Continue For End If - If commandsList(num).Contains("@PlayAvoidTheEdge") Then + If StringClean.Contains("@PlayAvoidTheEdge") Then ' #### Reboot - If commandsList(num).Contains("@PlayAvoidTheEdge[") Then + If StringClean.Contains("@PlayAvoidTheEdge[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") @@ -11349,10 +11189,9 @@ OrgasmDecided: AvoidTheEdgeTaunts.Start() End If StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") - Continue For End If - If commandsList(num).Contains("@ResumeAvoidTheEdge") Then + If StringClean.Contains("@ResumeAvoidTheEdge") Then DomWMP.Ctlcontrols.play() ScriptTimer.Stop() ssh.AvoidTheEdgeStroking = True @@ -11364,12 +11203,11 @@ OrgasmDecided: ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") - Continue For End If - If commandsList(num).Contains("@PlayRedLightGreenLight") Then + If StringClean.Contains("@PlayRedLightGreenLight") Then ' #### Reboot - If commandsList(num).Contains("@PlayRedLightGreenLight[") Then + If StringClean.Contains("@PlayRedLightGreenLight[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") @@ -11400,10 +11238,9 @@ OrgasmDecided: 'VideoTauntTimer.Start() End If StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") - Continue For End If - If commandsList(num).Contains("@PlayVideo[") Then + If StringClean.Contains("@PlayVideo[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") selectVideo(videoFlag) @@ -11414,10 +11251,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") - Continue For End If - If commandsList(num).Contains("@PlayAudio[") Then + If StringClean.Contains("@PlayAudio[") Then Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag Dim AudioClean As String @@ -11453,18 +11289,17 @@ OrgasmDecided: End If ExternalAudio: StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") - Continue For End If - If commandsList(num).Contains("@PlayVideo(") Then + If StringClean.Contains("@PlayVideo(") Then Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") Dim VidInt As Integer = Val(VidFlag) If UCase(VidFlag).Contains("M") Then VidInt *= 60 - If commandsList(num).Contains("@JumpVideo") Then + If StringClean.Contains("@JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") End If @@ -11482,16 +11317,15 @@ ExternalAudio: ssh.RandomizerVideo = False StringClean = StringClean.Replace("@PlayVideo", "") - Continue For End If - If commandsList(num).Contains("@PlayVideo") Then + If StringClean.Contains("@PlayVideo") Then - If commandsList(num).Contains("@JumpVideo") Then + If StringClean.Contains("@JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") End If @@ -11507,10 +11341,9 @@ ExternalAudio: ssh.RandomizerVideo = False StringClean = StringClean.Replace("@PlayVideo", "") - Continue For End If - If commandsList(num).Contains("@JumpVideo") Then + If StringClean.Contains("@JumpVideo") Then If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then Dim VideoLength As Integer = DomWMP.currentMedia.duration @@ -11526,11 +11359,10 @@ ExternalAudio: End If StringClean = StringClean.Replace("@JumpVideo", "") - Continue For End If - If commandsList(num).Contains("@AddStrokeTime(") Then + If StringClean.Contains("@AddStrokeTime(") Then Dim OriginalFlag As String = "" @@ -11558,10 +11390,9 @@ ExternalAudio: ssh.StrokeTick += StrokeSeconds End If StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@RemoveStrokeTime(") Then + If StringClean.Contains("@RemoveStrokeTime(") Then Dim OriginalFlag As String = "" @@ -11590,12 +11421,11 @@ ExternalAudio: If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 End If StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@AddStrokeTime") Then + If StringClean.Contains("@AddStrokeTime") Then If StrokeTimer.Enabled = True Then If FrmSettings.CBTauntCycleDD.Checked = True Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 @@ -11608,19 +11438,17 @@ ExternalAudio: End If End If StringClean = StringClean.Replace("@AddStrokeTime", "") - Continue For End If - If commandsList(num).Contains("@RemoveStrokeTime") Then + If StringClean.Contains("@RemoveStrokeTime") Then If StrokeTimer.Enabled = True Then ssh.StrokeTick -= ssh.StrokeTick / 2 End If StringClean = StringClean.Replace("@RemoveStrokeTime", "") - Continue For End If - If commandsList(num).Contains("@AddEdgeHoldTime(") Then + If StringClean.Contains("@AddEdgeHoldTime(") Then Dim OriginalFlag As String = "" @@ -11648,10 +11476,9 @@ ExternalAudio: ssh.HoldEdgeTick += HoldEdgeSeconds End If StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@RemoveEdgeHoldTime(") Then + If StringClean.Contains("@RemoveEdgeHoldTime(") Then Dim OriginalFlag As String = "" @@ -11680,11 +11507,10 @@ ExternalAudio: If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 End If StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@AddEdgeHoldTime") Then + If StringClean.Contains("@AddEdgeHoldTime") Then If HoldEdgeTimer.Enabled = True Then Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value @@ -11699,19 +11525,17 @@ ExternalAudio: If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 End If StringClean = StringClean.Replace("@AddEdgeHoldTime", "") - Continue For End If - If commandsList(num).Contains("@RemoveEdgeHoldTime") Then + If StringClean.Contains("@RemoveEdgeHoldTime") Then If HoldEdgeTimer.Enabled = True Then ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 End If StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") - Continue For End If - If commandsList(num).Contains("@AddTeaseTime(") Then + If StringClean.Contains("@AddTeaseTime(") Then Dim OriginalFlag As String = "" 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun @@ -11742,10 +11566,9 @@ ExternalAudio: If ssh.LastScript Then ssh.LastScript = False If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@RemoveTeaseTime(") Then + If StringClean.Contains("@RemoveTeaseTime(") Then Dim OriginalFlag As String = "" @@ -11774,10 +11597,9 @@ ExternalAudio: If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 End If StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@AddTeaseTime") Then + If StringClean.Contains("@AddTeaseTime") Then 'same as before about the teasetimer ' If TeaseTimer.Enabled = True Then If FrmSettings.CBTeaseLengthDD.Checked = True Then @@ -11793,85 +11615,73 @@ ExternalAudio: If ssh.LastScript Then ssh.LastScript = False If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True StringClean = StringClean.Replace("@AddTeaseTime", "") - Continue For End If - If commandsList(num).Contains("@RemoveTeaseTime") Then + If StringClean.Contains("@RemoveTeaseTime") Then If TeaseTimer.Enabled = True Then ssh.TeaseTick = ssh.TeaseTick / 2 End If StringClean = StringClean.Replace("@RemoveTeaseTime", "") - Continue For End If - If commandsList(num).Contains("@PlaylistOff") Then + If StringClean.Contains("@PlaylistOff") Then ssh.Playlist = False StringClean = StringClean.Replace("@PlaylistOff", "") - Continue For End If - If commandsList(num).Contains("@RapidTextOn") Or commandsList(num).Contains("RTOn") Then + If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("RTOn") Then ssh.RapidFire = True StringClean = StringClean.Replace("@RapidTextOn", "") StringClean = StringClean.Replace("@RTOn", "") - Continue For End If - If commandsList(num).Contains("@RapidTextOff") Or commandsList(num).Contains("RTOff") Then + If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("RTOff") Then ssh.RapidFire = False StringClean = StringClean.Replace("@RapidTextOff", "") StringClean = StringClean.Replace("@RTOff", "") - Continue For End If - If commandsList(num).Contains("@VoiceOn") Then - FrmSettings.TTSCheckBox.Checked = True - StringClean = StringClean.Replace("@VoiceOn", "") - Continue For - End If + ' If StringClean.Contains("@VoiceOn") Then + ' FrmSettings.TTSCheckBox.Checked = True + ' StringClean = StringClean.Replace("@VoiceOn", "") + ' End If - If commandsList(num).Contains("@VoiceOff") Then - FrmSettings.TTSCheckBox.Checked = False - StringClean = StringClean.Replace("@VoiceOff", "") - Continue For - End If + ' If StringClean.Contains("@VoiceOff") Then + ' FrmSettings.TTSCheckBox.Checked = False + ' StringClean = StringClean.Replace("@VoiceOff", "") + ' End If - If commandsList(num).Contains("@GlitterTease1") Then + If StringClean.Contains("@GlitterTease1") Then ssh.glitterDommeNumber = 1 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease1", "") - Continue For End If - If commandsList(num).Contains("@GlitterTease2") Then + If StringClean.Contains("@GlitterTease2") Then ssh.glitterDommeNumber = 2 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease2", "") - Continue For End If - If commandsList(num).Contains("@GlitterTease3") Then + If StringClean.Contains("@GlitterTease3") Then ssh.glitterDommeNumber = 3 LoadDommeImageFolder() StringClean = StringClean.Replace("@GlitterTease3", "") - Continue For End If - If commandsList(num).Contains("@DommeTease") Then + If StringClean.Contains("@DommeTease") Then ssh.glitterDommeNumber = 0 LoadDommeImageFolder() StringClean = StringClean.Replace("@DommeTease", "") - Continue For End If - If commandsList(num).Contains("@RandomTease") Then + If StringClean.Contains("@RandomTease") Then ssh.glitterDommeNumber = 4 LoadDommeImageFolder() StringClean = StringClean.Replace("@RandomTease", "") - Continue For End If - If commandsList(num).Contains("@SetDomme(") Then + If StringClean.Contains("@SetDomme(") Then Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") ssh.glitterDommeNumber = 0 @@ -11883,10 +11693,9 @@ ExternalAudio: LoadDommeImageFolder() StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") - Continue For End If - If commandsList(num).Contains("@AddContact1") Then + If StringClean.Contains("@AddContact1") Then If Not ssh.contact1Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) ssh.contact1Present = True @@ -11895,10 +11704,9 @@ ExternalAudio: End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@AddContact1", "") - Continue For End If - If commandsList(num).Contains("@RemoveContact1") Then + If StringClean.Contains("@RemoveContact1") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) @@ -11907,10 +11715,9 @@ ExternalAudio: Contact1Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact1", "") - Continue For End If - If commandsList(num).Contains("@AddContact2") Then + If StringClean.Contains("@AddContact2") Then If Not ssh.contact2Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) ssh.contact2Present = True @@ -11919,10 +11726,9 @@ ExternalAudio: End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@AddContact2", "") - Continue For End If - If commandsList(num).Contains("@RemoveContact2") Then + If StringClean.Contains("@RemoveContact2") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) @@ -11931,10 +11737,9 @@ ExternalAudio: Contact2Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact2", "") - Continue For End If - If commandsList(num).Contains("@AddContact3") Then + If StringClean.Contains("@AddContact3") Then If Not ssh.contact3Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) ssh.contact3Present = True @@ -11943,10 +11748,9 @@ ExternalAudio: End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@AddContact3", "") - Continue For End If - If commandsList(num).Contains("@RemoveContact3") Then + If StringClean.Contains("@RemoveContact3") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) @@ -11955,10 +11759,9 @@ ExternalAudio: Contact3Timer.Start() End If StringClean = StringClean.Replace("@RemoveContact3", "") - Continue For End If - If commandsList(num).Contains("@AddDomme") Then + If StringClean.Contains("@AddDomme") Then If Not ssh.dommePresent Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) ssh.dommePresent = True @@ -11966,10 +11769,9 @@ ExternalAudio: DommeTimer.Start() End If StringClean = StringClean.Replace("@AddDomme", "") - Continue For End If - If commandsList(num).Contains("@RemoveDomme") Then + If StringClean.Contains("@RemoveDomme") Then 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) @@ -11978,19 +11780,17 @@ ExternalAudio: DommeTimer.Start() End If StringClean = StringClean.Replace("@RemoveDomme", "") - Continue For End If - If commandsList(num).Contains("@NullResponse") Then + If StringClean.Contains("@NullResponse") Then ssh.NullResponse = True StringClean = StringClean.Replace("@NullResponse", "") 'Debug.Print("NullResponse Called") - Continue For End If VTSkip: - If commandsList(num).Contains("@SpeedUpCheck") Then + If StringClean.Contains("@SpeedUpCheck") Then If ssh.AskedToSpeedUp = True Then ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" @@ -12035,11 +11835,10 @@ VTSkip: StringClean = StringClean.Replace("@SpeedUpCheck", "") 'GoTo RinseLatherRepeat - Continue For End If - If commandsList(num).Contains("@SlowDownCheck") Then + If StringClean.Contains("@SlowDownCheck") Then If ssh.AskedToSpeedUp = True Then ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" StringClean = ResponseClean(StringClean) @@ -12083,10 +11882,9 @@ VTSkip: StringClean = StringClean.Replace("@SlowDownCheck", "") 'GoTo RinseLatherRepeat - Continue For End If - If commandsList(num).Contains("@PlayRiskyPick") Then + If StringClean.Contains("@PlayRiskyPick") Then ssh.RiskyDeal = True 'FrmCardList.RiskyRound += 1 FrmCardList.TCGames.SelectTab(2) @@ -12095,10 +11893,9 @@ VTSkip: FrmCardList.InitializeRiskyDeal() StringClean = StringClean.Replace("@PlayRiskyPick", "") 'Debug.Print("NullResponse Called") - Continue For End If - If commandsList(num).Contains("@ChooseRiskyPick") Then + If StringClean.Contains("@ChooseRiskyPick") Then ssh.RiskyDelay = True If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True @@ -12138,36 +11935,32 @@ VTSkip: StringClean = StringClean.Replace("@ChooseRiskyPick", "") 'Debug.Print("NullResponse Called") - Continue For End If - If commandsList(num).Contains("@CheckRiskyPick") Then + If StringClean.Contains("@CheckRiskyPick") Then 'FrmCardList.Focus() FrmCardList.CheckRiskyPick() StringClean = StringClean.Replace("@CheckRiskyPick", "") 'Debug.Print("NullResponse Called") - Continue For End If - If commandsList(num).Contains("@FinalRiskyPick") Then + If StringClean.Contains("@FinalRiskyPick") Then 'FrmCardList.Focus() FrmCardList.BTNRiskIt.Text = "LAST CASE" FrmCardList.BTNPickIt.Text = "MY CASE" StringClean = StringClean.Replace("@FinalRiskyPick", "") 'Debug.Print("NullResponse Called") - Continue For End If - If commandsList(num).Contains("@ClearRiskyLabels") Then + If StringClean.Contains("@ClearRiskyLabels") Then 'FrmCardList.Focus() FrmCardList.ClearCaseLabelsOffer() StringClean = StringClean.Replace("@ClearRiskyLabels", "") 'Debug.Print("NullResponse Called") - Continue For End If - If commandsList(num).Contains("@RiskyPayout") Then + If StringClean.Contains("@RiskyPayout") Then If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then FrmCardList.GameWMP.settings.setMode("loop", False) FrmCardList.GameWMP.settings.volume = 20 @@ -12177,28 +11970,24 @@ VTSkip: FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) StringClean = StringClean.Replace("@RiskyPayout", "") - Continue For End If - If commandsList(num).Contains("@CloseRiskyPick") Then + If StringClean.Contains("@CloseRiskyPick") Then FrmCardList.CloseRiskyPick() StringClean = StringClean.Replace("@CloseRiskyPick", "") - Continue For End If - If commandsList(num).Contains("@RevealLastCase") Then + If StringClean.Contains("@RevealLastCase") Then FrmCardList.RevealLastCase() StringClean = StringClean.Replace("@RevealLastCase", "") - Continue For End If - If commandsList(num).Contains("@RevealUserCase") Then + If StringClean.Contains("@RevealUserCase") Then FrmCardList.RevealUserCase() StringClean = StringClean.Replace("@RevealUserCase", "") - Continue For End If - If commandsList(num).Contains("@RiskyState") Then + If StringClean.Contains("@RiskyState") Then If FrmCardList.RiskyState = True Then ssh.FileGoto = "(Risky Game)" Else @@ -12208,20 +11997,17 @@ VTSkip: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@RiskyState", "") - Continue For End If - If commandsList(num).Contains("@SystemMessage ") Then + If StringClean.Contains("@SystemMessage ") Then StringClean = StringClean.Replace("@SystemMessage ", "") - Continue For End If - If commandsList(num).Contains("@EmoteMessage ") Then + If StringClean.Contains("@EmoteMessage ") Then StringClean = StringClean.Replace("@EmoteMessage ", "") - Continue For End If - If commandsList(num).Contains("@MiniScript(") Then + If StringClean.Contains("@MiniScript(") Then Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" @@ -12231,10 +12017,9 @@ VTSkip: Else StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") End If - Continue For End If - If commandsList(num).Contains("@CallReturn(") Then + If StringClean.Contains("@CallReturn(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") Dim CallReplace As String = CheckFlag @@ -12319,10 +12104,9 @@ VTSkip: ssh.ShowModule = True ssh.isLink = False StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - Continue For End If - If commandsList(num).Contains("@Call(") Then + If StringClean.Contains("@Call(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12354,11 +12138,10 @@ VTSkip: ssh.ScriptTick = 2 ScriptTimer.Start() StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") - Continue For End If - If commandsList(num).Contains("@CallRandom(") Then + If StringClean.Contains("@CallRandom(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12390,7 +12173,6 @@ VTSkip: ssh.ScriptTick = 2 ScriptTimer.Start() StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") - Continue For End If '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -12398,72 +12180,62 @@ VTSkip: ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If commandsList(num).Contains("@RandomLink") Then + If StringClean.Contains("@RandomLink") Then RunLinkScript() StringClean = StringClean.Replace("@RandomLink", "") - Continue For End If - If commandsList(num).Contains("@RandomModule") Then + If StringClean.Contains("@RandomModule") Then If ssh.SubEdging Or ssh.SubHoldingEdge Then RunModuleScript(True) Else RunModuleScript(False) End If StringClean = StringClean.Replace("@RandomModule", "") - Continue For End If - If commandsList(num).Contains("@RapidCodeOn") Then + If StringClean.Contains("@RapidCodeOn") Then ssh.RapidCode = True StringClean = StringClean.Replace("@RapidCodeOn", "") - Continue For End If - If commandsList(num).Contains("@RapidCodeOff") Then + If StringClean.Contains("@RapidCodeOff") Then ssh.RapidCode = False StringClean = StringClean.Replace("@RapidCodeOff", "") - Continue For End If - If commandsList(num).Contains("@InterruptsOff") Then + If StringClean.Contains("@InterruptsOff") Then ssh.DoNotDisturb = True StringClean = StringClean.Replace("@InterruptsOff", "") - Continue For End If - If commandsList(num).Contains("@InterruptsOn") Then + If StringClean.Contains("@InterruptsOn") Then ssh.DoNotDisturb = False StringClean = StringClean.Replace("@InterruptsOn", "") - Continue For End If - If commandsList(num).Contains("@NoTypo") Then + If StringClean.Contains("@NoTypo") Then ssh.TypoSwitch = 0 StringClean = StringClean.Replace("@NoTypo", "") - Continue For End If - If commandsList(num).Contains("@ForceTypo") Then + If StringClean.Contains("@ForceTypo") Then ssh.TypoSwitch = 2 StringClean = StringClean.Replace("@ForceTypo", "") - Continue For End If - If commandsList(num).Contains("@TyposOff") Then + If StringClean.Contains("@TyposOff") Then ssh.TyposDisabled = True StringClean = StringClean.Replace("@TyposOff", "") - Continue For End If - If commandsList(num).Contains("@TyposOn") Then + If StringClean.Contains("@TyposOn") Then ssh.TyposDisabled = False StringClean = StringClean.Replace("@TyposOn", "") - Continue For End If - If commandsList(num).Contains("@GoodMood(") Then + If StringClean.Contains("@GoodMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") @@ -12474,10 +12246,9 @@ VTSkip: End If StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@BadMood(") Then + If StringClean.Contains("@BadMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") @@ -12488,10 +12259,9 @@ VTSkip: End If StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@NeutralMood(") Then + If StringClean.Contains("@NeutralMood(") Then Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") @@ -12502,36 +12272,31 @@ VTSkip: End If StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@MoodUp") Then + If StringClean.Contains("@MoodUp") Then ssh.DommeMood += 1 If ssh.DommeMood > 10 Then ssh.DommeMood = 10 StringClean = StringClean.Replace("@MoodUp", "") - Continue For End If - If commandsList(num).Contains("@MoodDown") Then + If StringClean.Contains("@MoodDown") Then ssh.DommeMood -= 1 If ssh.DommeMood < 1 Then ssh.DommeMood = 1 StringClean = StringClean.Replace("@MoodDown", "") - Continue For End If - If commandsList(num).Contains("@MoodBest") Then + If StringClean.Contains("@MoodBest") Then ssh.DommeMood = 10 StringClean = StringClean.Replace("@MoodBest", "") - Continue For End If - If commandsList(num).Contains("@MoodWorst") Then + If StringClean.Contains("@MoodWorst") Then ssh.DommeMood = 1 StringClean = StringClean.Replace("@MoodWorst", "") - Continue For End If - If commandsList(num).Contains("@Timeout(") Then + If StringClean.Contains("@Timeout(") Then Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it @@ -12549,43 +12314,37 @@ VTSkip: TimeoutTimer.Start() StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") - Continue For End If - If commandsList(num).Contains("@BallTorture+1") Then + If StringClean.Contains("@BallTorture+1") Then ssh.CBTBallsCount += 1 StringClean = StringClean.Replace("@BallTorture+1", "") - Continue For End If - If commandsList(num).Contains("@CockTorture+1") Then + If StringClean.Contains("@CockTorture+1") Then ssh.CBTCockCount += 1 StringClean = StringClean.Replace("@CockTorture+1", "") - Continue For End If - If commandsList(num).Contains("@EndTaunts") Then + If StringClean.Contains("@EndTaunts") Then ssh.StrokeTick = 0 StringClean = StringClean.Replace("@EndTaunts", "") - Continue For End If - If commandsList(num).Contains("@ResponseYes(") Then + If StringClean.Contains("@ResponseYes(") Then ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") - Continue For End If - If commandsList(num).Contains("@ResponseNo(") Then + If StringClean.Contains("@ResponseNo(") Then ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") - Continue For End If - If commandsList(num).Contains("@SetModule(") Then + If StringClean.Contains("@SetModule(") Then Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") If TempMod.Contains(",") Then @@ -12607,10 +12366,9 @@ VTSkip: If ssh.SetModule = "" Then ssh.SetModuleGoto = "" StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") - Continue For End If - If commandsList(num).Contains("@SetLink(") Then + If StringClean.Contains("@SetLink(") Then Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" @@ -12619,11 +12377,10 @@ VTSkip: ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" End If StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") - Continue For End If - 'If commandsList(num).Contains("@RandomText(") Then + 'If StringClean.Contains("@RandomText(") Then 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") 'TempText = FixCommas(TempText) 'Dim TextArray As String() = TempText.Split(",") @@ -12631,7 +12388,7 @@ VTSkip: 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) 'End If - If commandsList(num).Contains("@Worship(") Then + If StringClean.Contains("@Worship(") Then Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") Debug.Print("Worship Paren = " & WorshipTemp) If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" @@ -12639,45 +12396,41 @@ VTSkip: If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" ssh.WorshipMode = True StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") - Continue For End If - If commandsList(num).Contains("@WorshipOn") Then + If StringClean.Contains("@WorshipOn") Then ssh.WorshipMode = True StringClean = StringClean.Replace("@WorshipOn", "") - Continue For End If - If commandsList(num).Contains("@WorshipOff") Then + If StringClean.Contains("@WorshipOff") Then ssh.WorshipMode = False ssh.WorshipTarget = "" StringClean = StringClean.Replace("@WorshipOff", "") - Continue For End If - ' If commandsList(num).Contains("@AssWorship") Then + ' If StringClean.Contains("@AssWorship") Then 'WorshipTarget = "Ass" 'StringClean = StringClean.Replace("@AssWorship", "") 'End If - 'If commandsList(num).Contains("@BoobWorship") Then + 'If StringClean.Contains("@BoobWorship") Then 'WorshipTarget = "Boobs" 'StringClean = StringClean.Replace("@BoobWorship", "") 'End If - 'If commandsList(num).Contains("@PussyWorship") Then + 'If StringClean.Contains("@PussyWorship") Then 'WorshipTarget = "Pussy" 'StringClean = StringClean.Replace("@PussyWorship", "") 'End If - If commandsList(num).Contains("@ClearWorship") Then + If StringClean.Contains("@ClearWorship") Then ssh.WorshipTarget = "" StringClean = StringClean.Replace("@ClearWorship", "") - Continue For End If - If commandsList(num).Contains("@CheckFile(") Then + If StringClean.Contains("@CheckFile(") Then Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") FileFlag = FixCommas(FileFlag) @@ -12701,11 +12454,10 @@ VTSkip: End If StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") - Continue For End If - If commandsList(num).Contains("@YesMode(") Then + If StringClean.Contains("@YesMode(") Then Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") YesFlag = FixCommas(YesFlag) @@ -12726,10 +12478,9 @@ VTSkip: End If StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") - Continue For End If - If commandsList(num).Contains("@NoMode(") Then + If StringClean.Contains("@NoMode(") Then Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") NoFlag = FixCommas(NoFlag) @@ -12750,10 +12501,9 @@ VTSkip: End If StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") - Continue For End If - If commandsList(num).Contains("@CameMode(") Then + If StringClean.Contains("@CameMode(") Then Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") CameFlag = FixCommas(CameFlag) @@ -12779,10 +12529,9 @@ VTSkip: End If StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") - Continue For End If - If commandsList(num).Contains("@RuinedMode(") Then + If StringClean.Contains("@RuinedMode(") Then Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") RuinedFlag = FixCommas(RuinedFlag) @@ -12808,44 +12557,38 @@ VTSkip: End If StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") - Continue For End If - If commandsList(num).Contains("@CustomMode(") Then + If StringClean.Contains("@CustomMode(") Then updateMode(StringClean, ssh.Modes) StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - Continue For End If - If commandsList(num).Contains("@ClearModes") Then + If StringClean.Contains("@ClearModes") Then ClearModes() StringClean = StringClean.Replace("@ClearModes", "") - Continue For End If - If commandsList(num).Contains("@LockVideo") Then + If StringClean.Contains("@LockVideo") Then ssh.LockVideo = True StringClean = StringClean.Replace("@LockVideo", "") - Continue For End If - If commandsList(num).Contains("@UnlockVideo") Then + If StringClean.Contains("@UnlockVideo") Then ssh.LockVideo = False mainPictureBox.Visible = True DomWMP.Visible = False StringClean = StringClean.Replace("@UnlockVideo", "") - Continue For End If - If commandsList(num).Contains("@ClearChat") Then + If StringClean.Contains("@ClearChat") Then ClearChat() StringClean = StringClean.Replace("@ClearChat", "") - Continue For End If - If commandsList(num).Contains("@ChatImage[") Then + If StringClean.Contains("@ChatImage[") Then Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") ImageDir = ImageDir.Replace("/", "\") ImageDir = ImageDir.Replace("\\", "\") @@ -12867,10 +12610,9 @@ VTSkip: Else StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If - Continue For End If - If commandsList(num).Contains("@CountVar[") Then + If StringClean.Contains("@CountVar[") Then Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") @@ -12923,12 +12665,11 @@ VTSkip: End If StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") - Continue For End If - If commandsList(num).Contains("@Debug") Then + If StringClean.Contains("@Debug") Then 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) @@ -12940,11 +12681,10 @@ VTSkip: 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) StringClean = StringClean.Replace("@Debug", "") - Continue For End If - If commandsList(num).Contains("@GotoDommeOrgasm") Then + If StringClean.Contains("@GotoDommeOrgasm") Then 'Debug.Print("GotoDommeOrgasmCalled") @@ -12961,10 +12701,9 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - Continue For End If - If commandsList(num).Contains("@GotoDommeRuin") Then + If StringClean.Contains("@GotoDommeRuin") Then Debug.Print("GotoDommeRuinedCalled") @@ -12981,10 +12720,9 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeRuin", "") - Continue For End If - If commandsList(num).Contains("@GotoDommeApathy") Then + If StringClean.Contains("@GotoDommeApathy") Then 'Debug.Print("GotoDommeApathyCalled") @@ -13001,10 +12739,9 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeApathy", "") - Continue For End If - If commandsList(num).Contains("@GotoDommeLevel") Then + If StringClean.Contains("@GotoDommeLevel") Then If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" @@ -13018,20 +12755,18 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeLevel", "") - Continue For End If - If commandsList(num).Contains("@CheckBnB") Then + If StringClean.Contains("@CheckBnB") Then If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then ssh.FileGoto = "(No BnB)" ssh.SkipGotoLine = True GetGoto() End If StringClean = StringClean.Replace("@CheckBnB", "") - Continue For End If - If commandsList(num).Contains("@CheckStrokingState") Then + If StringClean.Contains("@CheckStrokingState") Then 'If SubStroking = True Then If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then ssh.FileGoto = "(Sub Stroking)" @@ -13041,11 +12776,11 @@ VTSkip: ssh.SkipGotoLine = True GetGoto() StringClean = StringClean.Replace("@CheckStrokingState", "") - Continue For End If Debug.Print("Command Clean Complete") - Next + Loop Until Not StringClean.Contains("@") + Return StringClean End Function From ed54a7ed619916470350588824d520c3639e4936 Mon Sep 17 00:00:00 2001 From: dariobrun Date: Fri, 5 May 2017 00:18:56 +0200 Subject: [PATCH 101/143] fixed small bug with @ShowImage[ command....i needed to move @ShowImage command below @ShowImage[ or this one would never be executed --- Tease AI/Form1.vb | 330 +++++++++++++++++++++++----------------------- 1 file changed, 164 insertions(+), 166 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 92cc510..5f16b9f 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8260,8 +8260,8 @@ StatusUpdateEnd: End Function Public Function CommandClean(ByVal StringClean As String, Optional ByVal TaskClean As Boolean = False) As String - Do - Debug.Print("Stringclean Intro = " & StringClean) + + Debug.Print("Stringclean Intro = " & StringClean) If TaskClean = True Then @@ -8549,12 +8549,7 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") End If - If StringClean.Contains("@ShowImage") Then - ShowImage(GetRandomImage(), False) - StringClean = StringClean.Replace("@ShowImage", "") - End If - - If StringClean.Contains("@ShowButtImage") Then + If StringClean.Contains("@ShowButtImage") Then ShowImage(GetImageData(ImageGenre.Butt).Random(), False) StringClean = StringClean.Replace("@ShowButtImage", "") @@ -8644,105 +8639,106 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@NewBlogImage", "") End If - If StringClean.Contains("@ShowLocalImage") Then - ShowImage(GetRandomImage(ImageSourceType.Local), False) - StringClean = StringClean.Replace("@ShowLocalImage", "") + '=============================================================================== + ' @ShowLocalImage() + '=============================================================================== + If StringClean.Contains("@ShowLocalImage(") Then + Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") + LocalFlag = FixCommas(LocalFlag) + + Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList + + If LocalFlag.ToUpper.Contains("NOT") Then + ' =============== Invert the Content in Brackets =============== + ' Declare a String containing all available ImageGenres + Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" + + ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket + For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 + If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") + If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") + If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") + If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") + If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") + If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") + If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") + If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") + If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") + If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") + If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") + If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") + If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") + Next + + ' Set the inverted Array. + tmpListGenre = CompareFlag.Split(", ").ToList + End If + + ' Pick a random entry from list + Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) + Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) + + ' generate a list of all available Local Images. This way it is most + ' likely, to get an image. + Dim tmpImageLocationList As New List(Of String) + + For Each tmpStr As String In tmpListGenre + If tmpStr.ToUpper.Contains("HARDCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("HENTAI") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GAY") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("CAPTION") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("GENERAL") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) + ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then + tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) + End If + Next + ' Declare a string for the Image to show - initialize with error Image + Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" + ' If there are images, overwrite the error image. + If tmpImageLocationList.Count > 0 Then + tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) + Else + Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") End If - '=============================================================================== - ' @ShowLocalImage() - '=============================================================================== - If StringClean.Contains("@ShowLocalImage(") Then - Dim LocalFlag As String = GetParentheses(StringClean, "@ShowLocalImage(") - LocalFlag = FixCommas(LocalFlag) - - Dim tmpListGenre As List(Of String) = LocalFlag.Split(",").ToList - - If LocalFlag.ToUpper.Contains("NOT") Then - ' =============== Invert the Content in Brackets =============== - ' Declare a String containing all available ImageGenres - Dim CompareFlag As String = "Hardcore, Softcore, Lesbian, Blowjob, Femdom, Lezdom, Hentai, Gay, Maledom, Captions, General, Butts, Boobs" - - ' Remove Imagegenre, when there are no local Images available or it is in the inverting bracket - For i As Integer = tmpListGenre.Count - 1 To 0 Step -1 - If tmpListGenre(i).ToUpper.Contains("HARDCORE") Or Not GetImageData(ImageGenre.Hardcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hardcore, ", "") - If tmpListGenre(i).ToUpper.Contains("SOFTCORE") Or Not GetImageData(ImageGenre.Softcore).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Softcore, ", "") - If tmpListGenre(i).ToUpper.Contains("LESBIAN") Or Not GetImageData(ImageGenre.Lesbian).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lesbian, ", "") - If tmpListGenre(i).ToUpper.Contains("BLOWJOB") Or Not GetImageData(ImageGenre.Blowjob).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Blowjob, ", "") - If tmpListGenre(i).ToUpper.Contains("FEMDOM") Or Not GetImageData(ImageGenre.Femdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Femdom, ", "") - If tmpListGenre(i).ToUpper.Contains("LEZDOM") Or Not GetImageData(ImageGenre.Lezdom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Lezdom, ", "") - If tmpListGenre(i).ToUpper.Contains("HENTAI") Or Not GetImageData(ImageGenre.Hentai).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Hentai, ", "") - If tmpListGenre(i).ToUpper.Contains("GAY") Or Not GetImageData(ImageGenre.Gay).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Gay, ", "") - If tmpListGenre(i).ToUpper.Contains("MALEDOM") Or Not GetImageData(ImageGenre.Maledom).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Maledom, ", "") - If tmpListGenre(i).ToUpper.Contains("CAPTIONS") Or Not GetImageData(ImageGenre.Captions).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Captions, ", "") - If tmpListGenre(i).ToUpper.Contains("GENERAL") Or Not GetImageData(ImageGenre.General).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("General, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTT") Or Not GetImageData(ImageGenre.Butt).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BUTTS") Then CompareFlag = CompareFlag.Replace("Butts, ", "") - If tmpListGenre(i).ToUpper.Contains("BOOB") Or Not GetImageData(ImageGenre.Boobs).IsAvailable(ImageSourceType.Local) Then CompareFlag = CompareFlag.Replace("Boobs", "") - If tmpListGenre(i).ToUpper.Contains("BOOBS") Then CompareFlag = CompareFlag.Replace("Boobs", "") - Next + ShowImage(tmpImgToShow, False) - ' Set the inverted Array. - tmpListGenre = CompareFlag.Split(", ").ToList - End If - - ' Pick a random entry from list - Debug.Print("@ShowLocalImage() LocalFLag original = " & LocalFlag) - Debug.Print("@ShowLocalImage() LocalFLag modified = " & String.Join(", ", tmpListGenre)) - - ' generate a list of all available Local Images. This way it is most - ' likely, to get an image. - Dim tmpImageLocationList As New List(Of String) - - For Each tmpStr As String In tmpListGenre - If tmpStr.ToUpper.Contains("HARDCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hardcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("SOFTCORE") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Softcore).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LESBIAN") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lesbian).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BLOWJOB") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Blowjob).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("FEMDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Femdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("LEZDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Lezdom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("HENTAI") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Hentai).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GAY") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Gay).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("MALEDOM") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Maledom).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("CAPTION") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Captions).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("GENERAL") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.General).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BUTT") Or tmpStr.ToUpper.Contains("BUTTS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Butt).ToList(ImageSourceType.Local)) - ElseIf tmpStr.ToUpper.Contains("BOOB") Or tmpStr.ToUpper.Contains("BOOBS") Then - tmpImageLocationList.AddRange(GetImageData(ImageGenre.Boobs).ToList(ImageSourceType.Local)) - End If - Next - ' Declare a string for the Image to show - initialize with error Image - Dim tmpImgToShow As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" - ' If there are images, overwrite the error image. - If tmpImageLocationList.Count > 0 Then - tmpImgToShow = tmpImageLocationList(New Random().Next(0, tmpImageLocationList.Count)) - Else - Trace.WriteLine("failed to execute Command: @ShowLocalImage(" & LocalFlag & ") No images found.") - End If + StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") + End If + '---------------------------------------- + ' @ShowLocalImage()- End + '---------------------------------------- - ShowImage(tmpImgToShow, False) + If StringClean.Contains("@ShowLocalImage") Then + ShowImage(GetRandomImage(ImageSourceType.Local), False) + StringClean = StringClean.Replace("@ShowLocalImage", "") + End If - StringClean = StringClean.Replace("@ShowLocalImage(" & GetParentheses(StringClean, "@ShowLocalImage(") & ")", "") - End If - '---------------------------------------- - ' @ShowLocalImage()- End - '---------------------------------------- - '=============================================================================== - ' @ShowTaggedImage - '=============================================================================== - If StringClean.Contains("@ShowTaggedImage") Then + '=============================================================================== + ' @ShowTaggedImage + '=============================================================================== + If StringClean.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = StringClean.Split() _ .Select(Function(s) s.Trim()) _ .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList @@ -8758,29 +8754,34 @@ RinseLatherRepeat: Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) StringClean = StringClean.Replace("@ShowTaggedImage", "") End If - '---------------------------------------- - ' @ShowTaggedImage - End - '---------------------------------------- - '=============================================================================== - ' @ShowImage[] - '=============================================================================== - If StringClean.Contains("@ShowImage[") Then - Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") - ShowImage(checkForImage(ImageToShow), False) - StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") - End If - '---------------------------------------- - ' @ShowImage[]- End - '---------------------------------------- - '=============================================================================== - ' Legacy TnA-Slideshow - '=============================================================================== - ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. - ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. - ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. - ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. + '---------------------------------------- + ' @ShowTaggedImage - End + '---------------------------------------- + '=============================================================================== + ' @ShowImage[] + '=============================================================================== + If StringClean.Contains("@ShowImage[") Then + Dim ImageToShow As String = GetParentheses(StringClean, "@ShowImage[") + ShowImage(checkForImage(ImageToShow), False) + StringClean = StringClean.Replace("@ShowImage[" & GetParentheses(StringClean, "@ShowImage[") & "]", "") + End If - If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then + If StringClean.Contains("@ShowImage") Then + ShowImage(GetRandomImage(), False) + StringClean = StringClean.Replace("@ShowImage", "") + End If + '---------------------------------------- + ' @ShowImage[]- End + '---------------------------------------- + '=============================================================================== + ' Legacy TnA-Slideshow + '=============================================================================== + ' TODO: Rework TnA-Game to use CustomSlideshow instead of its own code. + ' @TnAFastSlides starts a fast slideshow with Boobs and Butts. Use with local images, to avoid the download delay. otherwise the images will stutter. + ' @TnASlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per second. + ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. + + If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 @@ -10183,55 +10184,53 @@ TaskCleanSet: StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") End If - If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") - End If - - If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") + If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") - If EdgeHoldFlag.Contains(",") Then + If EdgeHoldFlag.Contains(",") Then - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - Else - - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - - End If + Else - ssh.EdgeHoldFlag = True + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") End If + ssh.EdgeHoldFlag = True + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret(" & GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") & ")", "") + End If + + If StringClean.Contains("@EdgeToRuinNoHoldNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinNoHoldNoSecret", "") + End If - If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then + If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True @@ -11834,8 +11833,8 @@ VTSkip: End If StringClean = StringClean.Replace("@SpeedUpCheck", "") - 'GoTo RinseLatherRepeat - End If + GoTo RinseLatherRepeat + End If If StringClean.Contains("@SlowDownCheck") Then @@ -11881,10 +11880,10 @@ VTSkip: End If StringClean = StringClean.Replace("@SlowDownCheck", "") - 'GoTo RinseLatherRepeat - End If + GoTo RinseLatherRepeat + End If - If StringClean.Contains("@PlayRiskyPick") Then + If StringClean.Contains("@PlayRiskyPick") Then ssh.RiskyDeal = True 'FrmCardList.RiskyRound += 1 FrmCardList.TCGames.SelectTab(2) @@ -12778,8 +12777,7 @@ VTSkip: StringClean = StringClean.Replace("@CheckStrokingState", "") End If - Debug.Print("Command Clean Complete") - Loop Until Not StringClean.Contains("@") + Debug.Print("Command Clean Complete") Return StringClean End Function From 35f77c028564d3da9bfafd8d95ebead97f318e3f Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 4 May 2017 18:44:49 -0500 Subject: [PATCH 102/143] Replaced missing colons --- Tease AI/Form1.vb | 56 +++++++++++++++++++++++------------------------ 1 file changed, 28 insertions(+), 28 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 5f16b9f..34cf04d 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -14194,7 +14194,7 @@ VTSkip: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(String.Format("Exception occured While checking line ""{0}"".", OrgFilterString), ex, "GetFilter(String, Boolean)") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error " & ex.Message & "", False) + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error: " & ex.Message & "", False) Return False End Try End Function @@ -14536,7 +14536,7 @@ VTSkip: ''' If true the chatwindow is refreshed and reprinted. Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) ChatAppend("" & messageText & "", printChat) - 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" + 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" End Sub Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) @@ -15289,7 +15289,7 @@ NoPlaylistEndFile: Catch ex As Exception Log.WriteError("Tease AI did Not return a valid Edge Taunt from file " & File2Read, ex, "EdgeTauntTimer.Tick") - ssh.DomTask = "ERROR Tease AI did Not return a valid Edge Taunt from file: " & File2Read + ssh.DomTask = "ERROR: Tease AI did Not return a valid Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15659,9 +15659,9 @@ NoRepeatOFiles: ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Hold the Edge Taunt from file " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") - ssh.DomTask = "ERROR Tease AI did Not return a valid Hold the Edge Taunt from file: " & File2Read + Log.WriteError("Tease AI did Not return a valid Hold the Edge Taunt from file: " & + File2Read, ex, "HoldEdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did Not return a valid Hold the Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15751,7 +15751,7 @@ Night: Dim TaskList As New List(Of String) TaskLines = FilterList(TaskLines) - If TaskLines.Count = 0 Then Throw New ArgumentException("The given file """ & dir & """ was returned empty.") + If TaskLines.Count = 0 Then Throw New ArgumentException("The given file: """ & dir & """ was returned empty.") TaskEntry = TaskLines(ssh.randomizer.Next(0, TaskLines.Count)) @@ -15913,7 +15913,7 @@ PoundLoop: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Error occurred during file processing """ & dir & """", ex, "CleanTaskLines(String)") - Return "ERROR Tease AI did Not return a valid Task line" + Return "ERROR: Tease AI did Not return a valid Task line" End Try End Function @@ -16037,7 +16037,7 @@ TryNext: - 'Debug.Print("EdgeCountTick = " & String.Format("{000}:{1:00}", TST.Minutes, TST.Seconds)) + 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) End Sub Private Sub StrokeTimeTotalTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick @@ -16053,8 +16053,8 @@ TryNext: Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) - 'LBLStrokeTimeTotal.Text = String.Format("{0000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) - FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{00000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + 'LBLStrokeTimeTotal.Text = String.Format("{0:000} D {1:00} H {2:00} M {3:00} S", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) End Sub @@ -16115,7 +16115,7 @@ RestartFunction: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ TnASlides.Stop() Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR " & ex.Message & " : Exception in TnASlides.Tick occured", False) + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " : Exception in TnASlides.Tick occured", False) End Try End Sub @@ -16275,7 +16275,7 @@ RestartFunction: If ssh.DomTypeCheck = True Or DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped Or DomWMP.playState = WMPLib.WMPPlayState.wmppsPaused Then Return - 'Debug.Print("New movie loaded " & DomWMP.URL.ToString) + 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) @@ -16298,7 +16298,7 @@ RestartFunction: For i As Integer = 0 To SubList.Count - 1 SubCheck = SubList(i).Split("]") SubCheck(0) = SubCheck(0).Replace("[", "") - Dim SubCheck2 As String() = SubCheck(0).Split("") + Dim SubCheck2 As String() = SubCheck(0).Split(":") PlayPos = SubCheck2(0) * 3600 PlayPos += SubCheck2(1) * 60 @@ -16530,9 +16530,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Video Taunt from file " & - VTDir, ex, "VideoTaunTimer.Tick") - ssh.DomTask = "ERROR Tease AI did Not return a valid Video Taunt from file: " & VTDir + Log.WriteError("Tease AI did Not return a valid Video Taunt from file: " & + VTDir, ex, "VideoTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did Not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16604,9 +16604,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Video Taunt from file " & - VTDir, ex, "RLGLTauntTimer.Tick") - ssh.DomTask = "ERROR Tease AI did Not return a valid Video Taunt from file: " & VTDir + Log.WriteError("Tease AI did Not return a valid Video Taunt from file: " & + VTDir, ex, "RLGLTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did Not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16657,9 +16657,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Video Taunt from file " & - VTDir, ex, "AvoidTheEdgeTaunts.Tick") - ssh.DomTask = "ERROR Tease AI did Not return a valid Video Taunt from file: " & VTDir + Log.WriteError("Tease AI did Not return a valid Video Taunt from file: " & + VTDir, ex, "AvoidTheEdgeTaunts.Tick") + ssh.DomTask = "ERROR: Tease AI did Not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16873,15 +16873,15 @@ saveImage: If tmpTsmi.Checked Then ' Remove from the given file - lazytext = "remove path from file " & tmpFilePath + lazytext = "remove path from file: " & tmpFilePath TxtRemoveLine(tmpFilePath, ssh.ImageLocation) tmpTsmi.Checked = False ElseIf File.Exists(tmpFilePath) Then - lazytext = "append path to file " & tmpFilePath + lazytext = "append path to file: " & tmpFilePath ' Append to existing file My.Computer.FileSystem.WriteAllText(tmpFilePath, Environment.NewLine & ssh.ImageLocation, True) Else - lazytext = "add path to New file " & tmpFilePath + lazytext = "add path to New file: " & tmpFilePath ' create a new file My.Computer.FileSystem.WriteAllText(tmpFilePath, ssh.ImageLocation, True) End If @@ -17065,7 +17065,7 @@ saveImage: Public Function CompareDates(ByVal CheckDate As Date) As Integer Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.ShortDate), FormatDateTime(Now, DateFormat.ShortDate)) - Debug.Print("Compare dates " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) + Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.ShortDate) & " <-> " & FormatDateTime(Now, DateFormat.ShortDate) & " = " & result) Return result End Function @@ -17073,7 +17073,7 @@ saveImage: Public Function CompareDatesWithTime(ByVal CheckDate As Date) As Integer Dim result As Integer = DateTime.Compare(FormatDateTime(CheckDate, DateFormat.GeneralDate), FormatDateTime(Now, DateFormat.GeneralDate)) - Debug.Print("Compare dates " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) + Debug.Print("Compare dates: " & FormatDateTime(CheckDate, DateFormat.GeneralDate) & " <-> " & FormatDateTime(Now, DateFormat.GeneralDate) & " = " & result) Return result End Function From 8a56d15629746747e64f30708469a2958ac86fd9 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 4 May 2017 19:11:35 -0500 Subject: [PATCH 103/143] Reverted And\Or\Is\Not\While back to lower case in system messages --- Tease AI/Form1.vb | 110 +++++++++++++++++++++------------------------- 1 file changed, 50 insertions(+), 60 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 34cf04d..b7cb42c 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -448,7 +448,7 @@ retryStart: My.Settings.CBGlitterFeedScripts = False ElseIf My.Settings.CBGlitterFeed Then ' No need to unset My.Settings.CBGlitterFeedOff. - ' If it would be true, this branch Is unreachable + ' If it would be true, this branch is unreachable My.Settings.CBGlitterFeedScripts = False ElseIf My.Settings.CBGlitterFeed = False _ AndAlso My.Settings.CBGlitterFeedOff = False _ @@ -8549,19 +8549,19 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") End If - If StringClean.Contains("@ShowButtImage") Then - ShowImage(GetImageData(ImageGenre.Butt).Random(), False) + If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then + ShowImage(GetImageData(ImageGenre.Butt).Random(), False) - StringClean = StringClean.Replace("@ShowButtImage", "") - StringClean = StringClean.Replace("@ShowButtsImage", "") - End If + StringClean = StringClean.Replace("@ShowButtImage", "") + StringClean = StringClean.Replace("@ShowButtsImage", "") + End If - If StringClean.Contains("@ShowBoobsImage") Then - ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) + If StringClean.Contains("@ShowBoobsImage") Or StringClean.Contains("@ShowBoobImage") Then + ShowImage(GetImageData(ImageGenre.Boobs).Random(), False) - StringClean = StringClean.Replace("@ShowBoobsImage", "") - StringClean = StringClean.Replace("@ShowBoobImage", "") - End If + StringClean = StringClean.Replace("@ShowBoobsImage", "") + StringClean = StringClean.Replace("@ShowBoobImage", "") + End If If StringClean.Contains("@ShowHardcoreImage") Then ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) @@ -11640,16 +11640,6 @@ ExternalAudio: StringClean = StringClean.Replace("@RTOff", "") End If - ' If StringClean.Contains("@VoiceOn") Then - ' FrmSettings.TTSCheckBox.Checked = True - ' StringClean = StringClean.Replace("@VoiceOn", "") - ' End If - - ' If StringClean.Contains("@VoiceOff") Then - ' FrmSettings.TTSCheckBox.Checked = False - ' StringClean = StringClean.Replace("@VoiceOff", "") - ' End If - If StringClean.Contains("@GlitterTease1") Then ssh.glitterDommeNumber = 1 LoadDommeImageFolder() @@ -14192,8 +14182,8 @@ VTSkip: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exception occured While checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") + Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), + ex, "GetFilter(String, Boolean)") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error: " & ex.Message & "", False) Return False End Try @@ -14393,7 +14383,7 @@ VTSkip: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error Is major issue in Code And will occur everytime until you fix this Error. For there Is no point in " & + "This error is major issue in Code And will occur everytime until you fix this Error. For there is no point in " & "further executing the Code, the application will exit after closing this Message." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") Application.Exit() @@ -14610,9 +14600,9 @@ VTSkip: If File.Exists(AvoidTheEdgeVideo) Then Else If ssh.DommeVideo = True Then - MsgBox("AvoidTheEdgeD.txt Is missing!", , "Error!") + MsgBox("AvoidTheEdgeD.txt is missing!", , "Error!") Else - MsgBox("AvoidTheEdge.txt Is missing!", , "Error!") + MsgBox("AvoidTheEdge.txt is missing!", , "Error!") End If Return End If @@ -15287,9 +15277,9 @@ NoPlaylistEndFile: ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Edge Taunt from file " & - File2Read, ex, "EdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did Not return a valid Edge Taunt from file: " & File2Read + Log.WriteError("Tease AI did not return a valid Edge Taunt from file " & + File2Read, ex, "EdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15659,9 +15649,9 @@ NoRepeatOFiles: ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did Not return a valid Hold the Edge Taunt from file: " & File2Read + Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & + File2Read, ex, "HoldEdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15731,7 +15721,7 @@ Night: ssh.TaskText = "" - LBLFileTransfer.Text = ssh.tempDomName & " Is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" PNLFileTransfer.Visible = True PNLFileTransfer.BringToFront() @@ -15913,7 +15903,7 @@ PoundLoop: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Error occurred during file processing """ & dir & """", ex, "CleanTaskLines(String)") - Return "ERROR: Tease AI did Not return a valid Task line" + Return "ERROR: Tease AI did not return a valid Task line" End Try End Function @@ -15922,7 +15912,7 @@ PoundLoop: PNLFileTransfer.Visible = False BTNFileTransferOpen.Visible = False BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " Is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" PBFileTransfer.Value = 0 End Sub @@ -15944,7 +15934,7 @@ PoundLoop: PNLFileTransfer.Visible = False BTNFileTransferOpen.Visible = False BTNFIleTransferDismiss.Visible = False - LBLFileTransfer.Text = ssh.tempDomName & " Is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" PBFileTransfer.Value = 0 End Sub @@ -16530,9 +16520,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Video Taunt from file: " & - VTDir, ex, "VideoTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did Not return a valid Video Taunt from file: " & VTDir + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + VTDir, ex, "VideoTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16604,9 +16594,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Video Taunt from file: " & - VTDir, ex, "RLGLTauntTimer.Tick") - ssh.DomTask = "ERROR: Tease AI did Not return a valid Video Taunt from file: " & VTDir + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + VTDir, ex, "RLGLTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16657,9 +16647,9 @@ RestartFunction: If VTList.Count < 1 Then Return ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception - Log.WriteError("Tease AI did Not return a valid Video Taunt from file: " & - VTDir, ex, "AvoidTheEdgeTaunts.Tick") - ssh.DomTask = "ERROR: Tease AI did Not return a valid Video Taunt from file: " & VTDir + Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & + VTDir, ex, "AvoidTheEdgeTaunts.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16810,7 +16800,7 @@ retry: Else Exit Sub End If - Else : Throw New NotImplementedException("Action for this button Is Not implemented.") + Else : Throw New NotImplementedException("Action for this button is not implemented.") End If If Directory.Exists(BlogPath) = False Then @@ -16867,7 +16857,7 @@ saveImage: ElseIf tmpTsmi Is PicStripTSMIdislikeImage Then tmpFilePath = pathDislikeList Else - Throw New NotImplementedException("This Toolstripmenuitem Is Not implemented yet") + Throw New NotImplementedException("This Toolstripmenuitem is not implemented yet") End If @@ -16919,7 +16909,7 @@ saveImage: Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu Or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") Return End If @@ -16936,7 +16926,7 @@ saveImage: Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu Or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") Return End If @@ -16953,7 +16943,7 @@ saveImage: Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then - MsgBox("Please close the settings menu Or disable ""Pause Program When Settings Menu Is Visible"" option first!", , "Warning!") + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") Return End If @@ -17361,8 +17351,8 @@ restartInstantly: Dim filename As String = SavedSessionDefaultPath If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI Is Not currently running a session!", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17401,9 +17391,9 @@ restartInstantly: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred And the state did Not save correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub @@ -17430,7 +17420,7 @@ restartInstantly: ' Check if default-File exists '=============================================================================== ElseIf Not File.Exists(filename) Then - MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could Not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, Path.GetFileName(SavedSessionDefaultPath) & " could not be found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17453,16 +17443,16 @@ restartInstantly: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - MessageBox.Show(Me, "An error occurred And the state was Not loaded correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub Private Sub ResetSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click If ssh.SaidHello = False Then - MessageBox.Show(Me, "Tease AI Is Not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If From de5dcc76f5b5f0f812bb737b9b62e9c3b6fa7303 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 4 May 2017 20:48:34 -0500 Subject: [PATCH 104/143] Settings UI changes --- Tease AI/Form1.vb | 7886 ++++----- Tease AI/Form2.Designer.vb | 31174 ++++++++++++++++++----------------- Tease AI/Form2.vb | 2120 +-- 3 files changed, 20592 insertions(+), 20588 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index b7cb42c..26dcbdf 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -24,7 +24,7 @@ Public Class Form1 Friend Shared ReadOnly pathImageErrorNoLocalImages As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" Friend Shared ReadOnly SavedSessionDefaultPath As String = Application.StartupPath & "\System\SavedState.save" -#End Region ' File Constants. +#End Region ' File Constants. ' Github Patch Public FormLoading As Boolean Friend FormLoading As Boolean = True @@ -41,7 +41,7 @@ Public Class Form1 Return My.Application.Session End SyncLock End Get - Set(value As SessionState) + Set(ByVal value As SessionState) SyncLock sshSyncLock My.Application.Session = value End SyncLock @@ -69,7 +69,7 @@ Public Class Form1 Get Return ssh.StrokePace End Get - Set(value As Integer) + Set(ByVal value As Integer) If value <> ssh.StrokePace Then SyncLock _StrokePaceSyncLock ssh.StrokePace = value @@ -101,7 +101,7 @@ Public Class Form1 Friend ReadOnly Property StrokePaceMetronome As Integer Get If Thread.CurrentThread IsNot MetroThread Then _ - Throw New AccessViolationException("Reading StrokePaceMetronome is restricted to MetronomeThread.") + Throw New AccessViolationException("Reading StrokePaceMetronome is restricted to MetronomeThread.") SyncLock _StrokePaceMetronomeSyncLock Dim tmpInt As Integer = _StrokePaceMetronomeUnsynced @@ -109,7 +109,7 @@ Public Class Form1 End SyncLock End Get End Property -#End Region ' StrokePace +#End Region ' StrokePace Public synth As New SpeechSynthesizer Public synth2 As New SpeechSynthesizer @@ -127,24 +127,24 @@ Public Class Form1 Private Const SET_FEATURE_ON_PROCESS As Integer = 2 Private Declare Function GetKeyState _ - Lib "user32" _ - (ByVal nVirtKey As Long) As Integer + Lib "user32" _ + (ByVal nVirtKey As Long) As Integer Private Const VK_LBUTTON = &H1 Public Shared Function CoInternetSetFeatureEnabled( - ByVal FeatureEntry As Integer, ByVal dwFlags As Integer, ByVal fEnable As Boolean) As Integer + ByVal FeatureEntry As Integer, ByVal dwFlags As Integer, ByVal fEnable As Boolean) As Integer End Function Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, -ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer + ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer - Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Try @@ -234,7 +234,7 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal End Try End Sub - Private Sub SaveChatLog(IsAutosave As Boolean) + Private Sub SaveChatLog(ByVal IsAutosave As Boolean) If ChatText.DocumentText.Length > 300 Then If (Not System.IO.Directory.Exists(Application.StartupPath & "\Chatlogs\")) Then @@ -265,7 +265,7 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal - Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try retryStart: ssh.dommePresent = True @@ -277,16 +277,16 @@ retryStart: Dim tv As Version = My.Application.Info.Version Me.Text = String.Format("Tease A.I. - PATCH {0}.{1}{2}", - tv.Minor, - tv.Build, - If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) + tv.Minor, + tv.Build, + If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) FormLoading = True FrmSplash.Show() FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking orgasm limit..." ' 1 + FrmSplash.LBLSplash.Text = "Checking orgasm limit..." ' 1 FrmSplash.Refresh() If My.Settings.OrgasmLockDate = Nothing Then My.Settings.OrgasmLockDate = FormatDateTime(Now, DateFormat.ShortDate) @@ -451,8 +451,8 @@ retryStart: ' If it would be true, this branch is unreachable My.Settings.CBGlitterFeedScripts = False ElseIf My.Settings.CBGlitterFeed = False _ - AndAlso My.Settings.CBGlitterFeedOff = False _ - AndAlso My.Settings.CBGlitterFeedScripts = False Then + AndAlso My.Settings.CBGlitterFeedOff = False _ + AndAlso My.Settings.CBGlitterFeedScripts = False Then My.Settings.CBGlitterFeedOff = True End If @@ -1124,12 +1124,12 @@ retryStart: Dim btn As MessageBoxButtons = If(Debugger.IsAttached, MessageBoxButtons.AbortRetryIgnore, MessageBoxButtons.RetryCancel) Dim b As MsgBoxResult = - MessageBox.Show("An exception occurred on startup. Tease-AI is unable to work correctly until this error is fixed." & - vbCrLf & vbCrLf & - ex.Message & - vbCrLf & vbCrLf & - "Further details were written to the error log.", "Startup failed", - btn, MessageBoxIcon.Hand) + MessageBox.Show("An exception occurred on startup. Tease-AI is unable to work correctly until this error is fixed." & + vbCrLf & vbCrLf & + ex.Message & + vbCrLf & vbCrLf & + "Further details were written to the error log.", "Startup failed", + btn, MessageBoxIcon.Hand) If b = MsgBoxResult.Abort Or b = MsgBoxResult.Cancel Then Process.GetCurrentProcess().Kill() @@ -1140,7 +1140,7 @@ retryStart: End Try End Sub - Private Sub Form1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + Private Sub Form1_PreviewKeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = (Keys.F Or Keys.Control) Then FullscreenToolStripMenuItem_Click(Nothing, Nothing) ElseIf e.Alt AndAlso MainMenuStrip.Visible = False Then @@ -1151,7 +1151,7 @@ retryStart: End If End Sub - Private Sub Form1_ResizeEnd(sender As Object, e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize + Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd, Me.Resize If Me.IsHandleCreated = False Then Exit Sub If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then Exit Sub @@ -1584,7 +1584,7 @@ retryStart: ' Lock Orgasm Chances if setting is activated. If My.Settings.LockOrgasmChances Then _ - FrmSettings.LockOrgasmChances(True) + FrmSettings.LockOrgasmChances(True) If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistStartFile @@ -1715,7 +1715,7 @@ WritingTaskLine: ssh.Chat = "" & ssh.Chat & "" If CBWritingProgress.Checked = True Then ssh.Chat = "" & ssh.Chat & ssh.ChatString & "
 " _ - & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" + & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining", "Time Expired") ssh.Chat = ssh.Chat.Replace(" 1 lines", " 1 line") ssh.Chat = ssh.Chat.Replace(" 0 lines remaining", " Task Completed") @@ -3477,7 +3477,7 @@ FoundState: CleanResponse = DRLines(ssh.ResponseLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Response line from file: " & - ssh.ResponseFile, ex, "ReponseClean(String)") + ssh.ResponseFile, ex, "ReponseClean(String)") CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile End Try @@ -3698,7 +3698,7 @@ AcceptAnswer: ' ArgumentOutOfRangeException - Regular Script '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Throw New ArgumentOutOfRangeException("The Goto-Destination """ & ssh.FileGoto & - """ in file """ & GotoText & """ was not found.", ex) + """ in file """ & GotoText & """ was not found.", ex) End Try ssh.StrokeTauntVal = gotoline @@ -3712,7 +3712,7 @@ AcceptAnswer: End Sub - Public Sub ScriptTimer_Tick(sender As System.Object, e As System.EventArgs) Handles ScriptTimer.Tick + Public Sub ScriptTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScriptTimer.Tick FrmSettings.LBLDebugScriptTime.Text = ssh.ScriptTick 'Debug.Print("ScriptTick = " & ScriptTick) @@ -3774,7 +3774,7 @@ AcceptAnswer: ssh.DomTask = BallList(ssh.randomizer.Next(0, BallList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTBalls line from file: " & - File2Read, ex, "CBTBalls()") + File2Read, ex, "CBTBalls()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read End Try @@ -3802,7 +3802,7 @@ AcceptAnswer: ssh.DomTask = CockList(ssh.randomizer.Next(0, CockList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTCock line from file: " & - File2Read, ex, "CBTCock()") + File2Read, ex, "CBTCock()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read End Try @@ -3843,7 +3843,7 @@ AcceptAnswer: ssh.DomTask = BothList(ssh.randomizer.Next(0, BothList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBT line from file: " & - File2Read, ex, "CBTBoth()") + File2Read, ex, "CBTBoth()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read End Try @@ -4563,7 +4563,7 @@ CancelGoto: End Sub - Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick + Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -4914,7 +4914,7 @@ NullResponse: Dim RestoreDomTask As String = ssh.DomTask If Not ssh.DomTask.Substring(0, 1) = FrmSettings.TBEmote.Text.Substring(0, 1) And Not ssh.DomTask.Contains("<") And ssh.YesOrNo = False And ssh.TypoSwitch <> 0 And ssh.TyposDisabled = False _ - And FrmSettings.TTSCheckBox.Checked = False Then + And FrmSettings.TTSCheckBox.Checked = False Then Dim TypoChance As Integer = ssh.randomizer.Next(0, 101) @@ -5074,10 +5074,10 @@ NullResponse: If FrmSettings.CBWebtease.Checked = True Then ssh.Chat = "" & "" & "
" & ssh.DomTask & "

" + TextColor & """>
" & ssh.DomTask & "

" Else ssh.Chat = "" & "" & ssh.Chat & ssh.DomTask & "
" + TextColor & """>" & ssh.Chat & ssh.DomTask & "
" End If @@ -5094,7 +5094,7 @@ NullResponse: TextColor & """>
" & ssh.DomTask & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" End If @@ -5153,14 +5153,14 @@ DommeSlideshowFallback: '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ChatAddSystemMessage(ex.ToString, False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally @@ -5415,11 +5415,11 @@ DommeSlideshowFallback: Public Shared Function GetShortPathName(ByVal lpszLongPath As String, - ByVal lpszShortPath As System.Text.StringBuilder, - ByVal cchBuffer As Int32) As Int32 + ByVal lpszShortPath As System.Text.StringBuilder, + ByVal cchBuffer As Int32) As Int32 End Function - Private Sub SendTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SendTimer.Tick + Private Sub SendTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendTimer.Tick If ssh.DomChat.Contains("@SlideshowOff") Then CustomSlideshowTimer.Stop() @@ -5543,9 +5543,9 @@ NullResponseLine: If ssh.GlitterTease = True And ssh.JustShowedBlogImage = False Then GoTo TryNextWithTease If FrmSettings.teaseRadio.Checked = True And ssh.JustShowedBlogImage = False And ssh.TeaseVideo = False And Not ssh.DomChat.Contains("@NewBlogImage") And ssh.NullResponse = False _ - And ssh.SlideshowLoaded = True And Not ssh.DomChat.Contains("@ShowButtImage") And Not ssh.DomChat.Contains("@ShowBoobsImage") And Not ssh.DomChat.Contains("@ShowButtsImage") _ - And Not ssh.DomChat.Contains("@ShowBoobImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ - And UCase(ssh.DomChat) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False Then + And ssh.SlideshowLoaded = True And Not ssh.DomChat.Contains("@ShowButtImage") And Not ssh.DomChat.Contains("@ShowBoobsImage") And Not ssh.DomChat.Contains("@ShowButtsImage") _ + And Not ssh.DomChat.Contains("@ShowBoobImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ + And UCase(ssh.DomChat) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False Then ' Begin Next Button ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ -5748,7 +5748,7 @@ TryNextWithTease: If ssh.EmoMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.DomChat & "
" ssh.EmoMes = False GoTo EndSysMes End If @@ -5774,7 +5774,7 @@ TryNextWithTease: If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" Else @@ -5783,13 +5783,13 @@ TryNextWithTease: TextColor & """>
" & ssh.DomChat & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If ssh.TypeToggle = 0 If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If @@ -5834,13 +5834,13 @@ DommeSlideshowFallback: '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") + ex, "Display Image") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally @@ -6030,7 +6030,7 @@ DommeSlideshowFallback: #Region "------------------------------------------ Images ----------------------------------------------" - Private Sub LoadCustomizedSlideshow(sender As System.Object, e As System.EventArgs) Handles browsefolderButton.Click, ImageFolderComboBox.KeyDown, ImageFolderComboBox.SelectedIndexChanged + Private Sub LoadCustomizedSlideshow(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browsefolderButton.Click, ImageFolderComboBox.KeyDown, ImageFolderComboBox.SelectedIndexChanged 'TODO-Next-Stefaf: Implement enhanced RecentSlideshows.Item handling If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") @@ -6163,7 +6163,7 @@ listLoaded: If ssh.SlideshowMain.ImageList.Count <= 0 Then MessageBox.Show(Me, "There are no images in the specified folder.", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub Else ssh.SlideshowLoaded = True @@ -6185,8 +6185,8 @@ listLoaded: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show("Unable to load custom slideshow : " & vbCrLf & vbCrLf & ex.Message, - "Open CustomSlideshow failed", - MessageBoxButtons.OK, MessageBoxIcon.Error) + "Open CustomSlideshow failed", + MessageBoxButtons.OK, MessageBoxIcon.Error) Finally browsefolderButton.Enabled = True nextButton.Enabled = True @@ -6196,7 +6196,7 @@ listLoaded: End Try End Sub - Private Sub imagesNextButton_Click(sender As System.Object, e As System.EventArgs) Handles nextButton.Click, previousButton.Click + Private Sub imagesNextButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextButton.Click, previousButton.Click Try If My.Settings.CBSettingsPause And FrmSettings.SettingsPanel.Visible = True Then MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") @@ -6221,7 +6221,7 @@ Retry: End If If Not (File.Exists(sh.CurrentImage) _ - Or isURL(sh.CurrentImage)) Then + Or isURL(sh.CurrentImage)) Then ClearMainPictureBox() Return End If @@ -6258,16 +6258,16 @@ Retry: End Try End Sub - Private Sub ImageFolderComboBox_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ImageFolderComboBox.MouseWheel + Private Sub ImageFolderComboBox_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ImageFolderComboBox.MouseWheel Dim mwe As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs) mwe.Handled = True End Sub -#End Region ' Images +#End Region ' Images #Region " VLC " - Private Sub BTNLoadVideo_Click(sender As System.Object, e As System.EventArgs) Handles BTNLoadVideo.Click + Private Sub BTNLoadVideo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLoadVideo.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") @@ -6306,7 +6306,7 @@ Retry: - Private Sub BTNVideoControls_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoControls.Click + Private Sub BTNVideoControls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoControls.Click If DomWMP.Height = SplitContainer1.Panel1.Height Then DomWMP.Height = SplitContainer1.Panel1.Height + 60 @@ -6325,7 +6325,7 @@ Retry: #End Region - Private Sub StrokeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTimer.Tick + Private Sub StrokeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimer.Tick If ssh.InputFlag = True Then Return @@ -6376,7 +6376,7 @@ Retry: End Sub - Private Sub StrokeTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles StrokeTauntTimer.Tick + Private Sub StrokeTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTauntTimer.Tick If ssh.InputFlag = True Then Return @@ -6494,7 +6494,7 @@ Retry: ssh.DomTask = ssh.TauntLines(ssh.TauntTextCount) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Taunt from file: " & - ssh.TauntText, ex, "StrokeTauntTimer.Tick") + ssh.TauntText, ex, "StrokeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from file: " & ssh.TauntText End Try Else @@ -6581,22 +6581,22 @@ Retry: ' Genre Videos '====================================================================================== If My.Settings.CBHardcore = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) If My.Settings.CBSoftcore = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) If My.Settings.CBLesbian = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) If My.Settings.CBBlowjob = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) If My.Settings.CBFemdom = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) If My.Settings.CBFemsub = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecial @@ -6610,38 +6610,38 @@ Retry: ' Special - Videos '====================================================================================== If My.Settings.CBJOI = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) If My.Settings.CBCH = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) SkipSpecial: '====================================================================================== ' General Videos '====================================================================================== If My.Settings.CBGeneral = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) '====================================================================================== ' Domme - Videos '====================================================================================== If My.Settings.CBHardcoreD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) If My.Settings.CBSoftcoreD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) If My.Settings.CBLesbianD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) If My.Settings.CBBlowjobD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) If My.Settings.CBFemdomD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) If My.Settings.CBFemsubD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD If ssh.ScriptVideoTeaseFlag = True Then @@ -6654,17 +6654,17 @@ SkipSpecial: ' Domme - Special - Videos '====================================================================================== If My.Settings.CBJOID = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) If My.Settings.CBCHD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) SkipSpecialD: '====================================================================================== ' Domme - General Videos '====================================================================================== If My.Settings.CBGeneralD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) @@ -6680,7 +6680,7 @@ GetAnotherRandomVideo: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Debug Line @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ If Debugger.IsAttached AndAlso 1 = 2 Then _ - __TotalFiles.ForEach(Sub(x) Debug.Print("RndVideoCheck: " & x)) + __TotalFiles.ForEach(Sub(x) Debug.Print("RndVideoCheck: " & x)) If My.Settings.CBHardcore And InStr(__domVideo, My.Settings.VideoHardcore) <> 0 Then ssh.VideoType = "Hardcore" @@ -6783,12 +6783,12 @@ GetAnotherRandomVideo: If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If JOIVideos.Count < 1 Then @@ -6848,7 +6848,7 @@ GetAnotherRandomVideo: #End Region - Private Sub SettingsButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleSettings.Click + Private Sub SettingsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleSettings.Click If FrmSettings.Visible = True Then FrmSettings.Visible = False BtnToggleSettings.Text = "Open Settings Menu" @@ -6860,7 +6860,7 @@ GetAnotherRandomVideo: - Public Sub CensorshipTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CensorshipTimer.Tick + Public Sub CensorshipTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CensorshipTimer.Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -6948,7 +6948,7 @@ CensorConstant: ssh.DomTask = lines(CensorLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & - CensorVideo, ex, "CensorshipTimer.Tick") + CensorVideo, ex, "CensorshipTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo End Try @@ -6959,7 +6959,7 @@ CensorConstant: End Sub - Public Sub RLGLTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTimer.Tick + Public Sub RLGLTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RLGLTimer.Tick ' Check all Conditions before starting scripts. If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -7001,7 +7001,7 @@ CensorConstant: ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid RLGL line from file: " & - file2read, ex, "RLGLTimer.Tick") + file2read, ex, "RLGLTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read End Try @@ -7013,10 +7013,10 @@ CensorConstant: - Private Sub domName_Leave(sender As System.Object, e As System.EventArgs) Handles domName.Leave + Private Sub domName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domName.Leave My.Settings.DomName = domName.Text End Sub - Private Sub subName_Leave(sender As System.Object, e As System.EventArgs) Handles subName.Leave + Private Sub subName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subName.Leave My.Settings.SubName = subName.Text End Sub @@ -7467,7 +7467,7 @@ StatusUpdateEnd: Loop End Sub - Private Sub domAvatar_Click(sender As System.Object, e As System.EventArgs) Handles domAvatar.Click + Private Sub domAvatar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domAvatar.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then Try @@ -7483,7 +7483,7 @@ StatusUpdateEnd: End If End Sub - Private Sub UpdatesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdatesTimer.Tick + Private Sub UpdatesTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdatesTimer.Tick 'Debug.Print("updates tick = " & UpdatesTick) @@ -7558,7 +7558,7 @@ StatusUpdateEnd: 'TODO-Next: Move to proper Region - Private Sub MediaButton_Click(sender As System.Object, e As System.EventArgs) Handles BtnToggleMediaPanel.Click + Private Sub MediaButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleMediaPanel.Click If SplitContainer1.Panel2.Height < 68 Then Return @@ -8241,8 +8241,8 @@ StatusUpdateEnd: End If #End If Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & - "Aborted Cleaning at: " & StringClean, - New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") + "Aborted Cleaning at: " & StringClean, + New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") Else #If TRACE Then If TS.TraceVerbose Then @@ -8264,290 +8264,290 @@ StatusUpdateEnd: Debug.Print("Stringclean Intro = " & StringClean) - If TaskClean = True Then - Debug.Print("Tasks CommandClean") - GoTo TaskCleanSet - End If + If TaskClean = True Then + Debug.Print("Tasks CommandClean") + GoTo TaskCleanSet + End If + + If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then + ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) + StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") + End If - If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then - ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) - 'if there is a leftover ) (might happen in very complex followUp) we remove it - If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) - StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") - End If + If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then - If StringClean.Contains("@FollowUp") And ssh.FollowUp = "" Then + Dim FollowTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - Dim FollowTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 + TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 - TSStartIndex = StringClean.IndexOf("@FollowUp") + 9 - TSEndIndex = StringClean.IndexOf("@FollowUp") + 11 + FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - FollowTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + Dim FollowVal As Integer - Dim FollowVal As Integer + FollowVal = Val(FollowTemp) - FollowVal = Val(FollowTemp) + ssh.TempVal = ssh.randomizer.Next(1, 101) - ssh.TempVal = ssh.randomizer.Next(1, 101) + Dim FollowLineTemp As String + FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If FollowLineTemp.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.Length - 1, 1) - Dim FollowLineTemp As String - FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Count - 1) - 'if there is a leftover ) (might happen in very complex followUp) we remove it - If FollowLineTemp.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.Length - 1, 1) + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + End If + ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) + ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. + ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> + ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - End If - ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) - ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. - ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> - ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. + If StringClean.Contains("@If[") Then + If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") + If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") + Do - If StringClean.Contains("@If[") Then - If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") - If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") - Do + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" - - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") - End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") End If - Next - - If SCGotVar.Contains("]And[") Then + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) + Do + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") + Exit For + End If + Next - Dim AndCheck As Boolean = True + If SCGotVar.Contains("]And[") Then - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") - Next + Dim AndCheck As Boolean = True - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next - ElseIf SCGotVar.Contains("]Or[") Then - - Dim OrCheck As Boolean = False - - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If + ElseIf SCGotVar.Contains("]Or[") Then - Else + Dim OrCheck As Boolean = False + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() + OrCheck = True + Exit For End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() End If - Loop Until Not StringClean.Contains("If") - End If + Else -RinseLatherRepeat: - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' ImageCommands - ' - Make sure you call all Display ImageFunctions before executing @LockImages. - ' If you don't, FilterList() will return a wrong list of lines => - ' => The Domme is talking about an image, but she never showed one. - ' => She is talking about an new image, but never showed one. - ' - Call @DeleteLocalImage before you start to display a new Image, because they - ' are loaded and displayed async. Otherwise it will delete the wrong image! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If - ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, - ' LiskedList, DislikedList and LocalImageTagList, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteLocalImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(True) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", - ex, "@DeleteLocalImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) - End Try End If - StringClean = StringClean.Replace("@DeleteLocalImage", "") - End If - ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, - ' DislikedList, LocalImageTagList and URL-Files, if the current Image is - ' not an image in the Domme- or Contacts-Image directory or their subdirectories. - If StringClean.Contains("@DeleteImage") Then - If My.Settings.DomDeleteMedia = True Then - Try - DeleteCurrentImage(False) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Command @DeleteImage was unable to delete the image.", - ex, "@DeleteImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) - End Try - End If - StringClean = StringClean.Replace("@DeleteImage", "") - End If + Loop Until Not StringClean.Contains("If") + End If - ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. - If StringClean.Contains("@UnlockImages") Then - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.LockImage = False - StringClean = StringClean.Replace("@UnlockImages", "") - End If +RinseLatherRepeat: + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' ImageCommands + ' - Make sure you call all Display ImageFunctions before executing @LockImages. + ' If you don't, FilterList() will return a wrong list of lines => + ' => The Domme is talking about an image, but she never showed one. + ' => She is talking about an new image, but never showed one. + ' - Call @DeleteLocalImage before you start to display a new Image, because they + ' are loaded and displayed async. Otherwise it will delete the wrong image! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If StringClean.Contains("@DommeTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImage(TagFlag, True) - If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) - Else - ssh.DommeImageSTR = "" - End If - ' Clean the Text. - StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") + ' @DeleteLocalImage: Deletes the current displayed local image from filesystem, + ' LiskedList, DislikedList and LocalImageTagList, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteLocalImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(True) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", + ex, "@DeleteLocalImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + End Try End If + StringClean = StringClean.Replace("@DeleteLocalImage", "") + End If - If StringClean.Contains("@DommeTagOr(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) - Else - ssh.DommeImageSTR = "" - End If - ' Clean the Text. - StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") + ' @DeleteImage: Deletes the current displayed image from filesystem, LiskedList, + ' DislikedList, LocalImageTagList and URL-Files, if the current Image is + ' not an image in the Domme- or Contacts-Image directory or their subdirectories. + If StringClean.Contains("@DeleteImage") Then + If My.Settings.DomDeleteMedia = True Then + Try + DeleteCurrentImage(False) + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Command @DeleteImage was unable to delete the image.", + ex, "@DeleteImage failed") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) + End Try End If + StringClean = StringClean.Replace("@DeleteImage", "") + End If - If StringClean.Contains("@DommeTagAny(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagAny(") - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageAny(TagFlag, True) - Else - ssh.DommeImageSTR = "" - End If - ' Clean the Text. - StringClean = StringClean.Replace("@DommeTagAny(" & TagFlag & ")", "") + ' The @UnlockImages Command allows the Domme Slideshow to resume functioning as normal. + If StringClean.Contains("@UnlockImages") Then + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If + ssh.LockImage = False + StringClean = StringClean.Replace("@UnlockImages", "") + End If - If StringClean.Contains("@NewDommeSlideshow") Then - 'TODO: Add Support for contact slideshows. - ssh.newSlideshow = True - LoadDommeImageFolder() - StringClean = StringClean.Replace("@NewDommeSlideshow", "") + If StringClean.Contains("@DommeTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTag(") + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImage(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTag(" & TagFlag & ")", "") + End If - If StringClean.Contains("@NewContact1Slideshow") Then - If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) - StringClean = StringClean.Replace("@NewContact1Slideshow", "") + If StringClean.Contains("@DommeTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") + End If - If StringClean.Contains("@NewContact2Slideshow") Then - If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) - StringClean = StringClean.Replace("@NewContact2Slideshow", "") + If StringClean.Contains("@DommeTagAny(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagAny(") + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageAny(TagFlag, True) + Else + ssh.DommeImageSTR = "" End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTagAny(" & TagFlag & ")", "") + End If - If StringClean.Contains("@NewContact3Slideshow") Then - If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) - StringClean = StringClean.Replace("@NewContact3Slideshow", "") - End If + If StringClean.Contains("@NewDommeSlideshow") Then + 'TODO: Add Support for contact slideshows. + ssh.newSlideshow = True + LoadDommeImageFolder() + StringClean = StringClean.Replace("@NewDommeSlideshow", "") + End If - If StringClean.Contains("@DomTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") - ' Try to get a Domme Image for the given Tags. - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImage(TagFlag, True) - If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) - Else - ssh.DommeImageSTR = "" - End If + If StringClean.Contains("@NewContact1Slideshow") Then + If ssh.contact1Present Then ssh.SlideshowContact1.LoadNew(False) + StringClean = StringClean.Replace("@NewContact1Slideshow", "") + End If - StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") - End If + If StringClean.Contains("@NewContact2Slideshow") Then + If ssh.contact2Present Then ssh.SlideshowContact2.LoadNew(False) + StringClean = StringClean.Replace("@NewContact2Slideshow", "") + End If - If StringClean.Contains("@DomTagOr(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") - ' Try to get a Domme Image for the given Tags. - 'QND-Implemented: ContactData.GetTaggedImage - If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) - Else - ssh.DommeImageSTR = "" - End If + If StringClean.Contains("@NewContact3Slideshow") Then + If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) + StringClean = StringClean.Replace("@NewContact3Slideshow", "") + End If - StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") + If StringClean.Contains("@DomTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTag(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImage(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" End If - If StringClean.Contains("@ImageTag(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") - ShowImage(GetLocalImage(TagFlag), False) - StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") - End If + StringClean = StringClean.Replace("@DomTag(" & TagFlag & ")", "") + End If - If StringClean.Contains("@ImageTagOr(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") - ShowImage(GetLocalImageOr(TagFlag), False) - StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") + If StringClean.Contains("@DomTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTagOr(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + Else + ssh.DommeImageSTR = "" End If - If StringClean.Contains("@ImageTagAny(") Then - Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagAny(") - ShowImage(GetLocalImageAny(TagFlag), False) - StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") - End If + StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") + End If + + If StringClean.Contains("@ImageTag(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") + ShowImage(GetLocalImage(TagFlag), False) + StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") + End If + + If StringClean.Contains("@ImageTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") + ShowImage(GetLocalImageOr(TagFlag), False) + StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") + End If + + If StringClean.Contains("@ImageTagAny(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagAny(") + ShowImage(GetLocalImageAny(TagFlag), False) + StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") + End If If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then ShowImage(GetImageData(ImageGenre.Butt).Random(), False) @@ -8563,81 +8563,81 @@ RinseLatherRepeat: StringClean = StringClean.Replace("@ShowBoobImage", "") End If - If StringClean.Contains("@ShowHardcoreImage") Then - ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) - StringClean = StringClean.Replace("@ShowHardcoreImage", "") - End If + If StringClean.Contains("@ShowHardcoreImage") Then + ShowImage(GetImageData(ImageGenre.Hardcore).Random(), False) + StringClean = StringClean.Replace("@ShowHardcoreImage", "") + End If - If StringClean.Contains("@ShowSoftcoreImage") Then - ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) - StringClean = StringClean.Replace("@ShowSoftcoreImage", "") - End If + If StringClean.Contains("@ShowSoftcoreImage") Then + ShowImage(GetImageData(ImageGenre.Softcore).Random(), False) + StringClean = StringClean.Replace("@ShowSoftcoreImage", "") + End If - If StringClean.Contains("@ShowLesbianImage") Then - ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) - StringClean = StringClean.Replace("@ShowLesbianImage", "") - End If + If StringClean.Contains("@ShowLesbianImage") Then + ShowImage(GetImageData(ImageGenre.Lesbian).Random(), False) + StringClean = StringClean.Replace("@ShowLesbianImage", "") + End If - If StringClean.Contains("@ShowBlowjobImage") Then - ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) - StringClean = StringClean.Replace("@ShowBlowjobImage", "") - End If + If StringClean.Contains("@ShowBlowjobImage") Then + ShowImage(GetImageData(ImageGenre.Blowjob).Random(), False) + StringClean = StringClean.Replace("@ShowBlowjobImage", "") + End If - If StringClean.Contains("@ShowFemdomImage") Then - ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) - StringClean = StringClean.Replace("@ShowFemdomImage", "") - End If + If StringClean.Contains("@ShowFemdomImage") Then + ShowImage(GetImageData(ImageGenre.Femdom).Random(), False) + StringClean = StringClean.Replace("@ShowFemdomImage", "") + End If - If StringClean.Contains("@ShowLezdomImage") Then - ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) - StringClean = StringClean.Replace("@ShowLezdomImage", "") - End If + If StringClean.Contains("@ShowLezdomImage") Then + ShowImage(GetImageData(ImageGenre.Lezdom).Random(), False) + StringClean = StringClean.Replace("@ShowLezdomImage", "") + End If - If StringClean.Contains("@ShowHentaiImage") Then - ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) - StringClean = StringClean.Replace("@ShowHentaiImage", "") - End If + If StringClean.Contains("@ShowHentaiImage") Then + ShowImage(GetImageData(ImageGenre.Hentai).Random(), False) + StringClean = StringClean.Replace("@ShowHentaiImage", "") + End If - If StringClean.Contains("@ShowGayImage") Then - ShowImage(GetImageData(ImageGenre.Gay).Random(), False) - StringClean = StringClean.Replace("@ShowGayImage", "") - End If + If StringClean.Contains("@ShowGayImage") Then + ShowImage(GetImageData(ImageGenre.Gay).Random(), False) + StringClean = StringClean.Replace("@ShowGayImage", "") + End If - If StringClean.Contains("@ShowMaledomImage") Then - ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) - StringClean = StringClean.Replace("@ShowMaledomImage", "") - End If + If StringClean.Contains("@ShowMaledomImage") Then + ShowImage(GetImageData(ImageGenre.Maledom).Random(), False) + StringClean = StringClean.Replace("@ShowMaledomImage", "") + End If - If StringClean.Contains("@ShowCaptionsImage") Then - ShowImage(GetImageData(ImageGenre.Captions).Random(), False) - StringClean = StringClean.Replace("@ShowCaptionsImage", "") - End If + If StringClean.Contains("@ShowCaptionsImage") Then + ShowImage(GetImageData(ImageGenre.Captions).Random(), False) + StringClean = StringClean.Replace("@ShowCaptionsImage", "") + End If - If StringClean.Contains("@ShowGeneralImage") Then - ShowImage(GetImageData(ImageGenre.General).Random(), False) - StringClean = StringClean.Replace("@ShowGeneralImage", "") - End If + If StringClean.Contains("@ShowGeneralImage") Then + ShowImage(GetImageData(ImageGenre.General).Random(), False) + StringClean = StringClean.Replace("@ShowGeneralImage", "") + End If - If StringClean.Contains("@ShowLikedImage") Then - ShowImage(GetImageData(ImageGenre.Liked).Random(), False) - StringClean = StringClean.Replace("@ShowLikedImage", "") - End If + If StringClean.Contains("@ShowLikedImage") Then + ShowImage(GetImageData(ImageGenre.Liked).Random(), False) + StringClean = StringClean.Replace("@ShowLikedImage", "") + End If - If StringClean.Contains("@ShowDislikedImage") Then - ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) - StringClean = StringClean.Replace("@ShowDislikedImage", "") - End If + If StringClean.Contains("@ShowDislikedImage") Then + ShowImage(GetImageData(ImageGenre.Disliked).Random(), False) + StringClean = StringClean.Replace("@ShowDislikedImage", "") + End If - If StringClean.Contains("@ShowBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@ShowBlogImage", "") - End If + If StringClean.Contains("@ShowBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@ShowBlogImage", "") + End If - ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage - If StringClean.Contains("@NewBlogImage") Then - ShowImage(GetImageData(ImageGenre.Blog).Random(), False) - StringClean = StringClean.Replace("@NewBlogImage", "") - End If + ' The @NewBlogImage Command is a defunct Command that has been replaced by @ShowBlogImage + If StringClean.Contains("@NewBlogImage") Then + ShowImage(GetImageData(ImageGenre.Blog).Random(), False) + StringClean = StringClean.Replace("@NewBlogImage", "") + End If '=============================================================================== ' @ShowLocalImage() @@ -8739,21 +8739,21 @@ RinseLatherRepeat: ' @ShowTaggedImage '=============================================================================== If StringClean.Contains("@ShowTaggedImage") Then - Dim Tags As List(Of String) = StringClean.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + Dim Tags As List(Of String) = StringClean.Split() _ + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList - Dim FoundString As String = GetLocalImage(Tags, Nothing) + Dim FoundString As String = GetLocalImage(Tags, Nothing) - 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. - If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages + 'TODO: @ShowTaggedImage - Add a dedicated ErrorImage when there are no tagged images. + If FoundString = String.Empty Then FoundString = pathImageErrorNoLocalImages - ssh.JustShowedBlogImage = True - ShowImage(FoundString, False) + ssh.JustShowedBlogImage = True + ShowImage(FoundString, False) - Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) - StringClean = StringClean.Replace("@ShowTaggedImage", "") - End If + Tags.ForEach(Sub(x) StringClean = StringClean.Replace(x, "")) + StringClean = StringClean.Replace("@ShowTaggedImage", "") + End If '---------------------------------------- ' @ShowTaggedImage - End '---------------------------------------- @@ -8782,1408 +8782,1408 @@ RinseLatherRepeat: ' @TnASlowSlides starts a slideshow with boobs and butts. the Speed is fixed at 1 image per 5 seconds. If StringClean.Contains("@TnAFastSlides") Or StringClean.Contains("@TnASlowSlides") Or StringClean.Contains("@TnASlides") Then - If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 - If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 - If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 - - Try - ssh.BoobList.Clear() - ssh.AssList.Clear() - - If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList - If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList - - If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") - If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") - - TnASlides.Start() - Catch ex As Exception - Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & - ex.Message, ex, "CommandClean()") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) - End Try - - StringClean = StringClean.Replace("@TnAFastSlides", "") - StringClean = StringClean.Replace("@TnASlowSlides", "") - StringClean = StringClean.Replace("@TnASlides", "") - End If - - If StringClean.Contains("@CheckTnA") Then - TnASlides.Stop() - - 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) - If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" - If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckTnA", "") - End If + If StringClean.Contains("@TnAFastSlides") Then TnASlides.Interval = 334 + If StringClean.Contains("@TnASlides") Then TnASlides.Interval = 1000 + If StringClean.Contains("@TnASlowSlides") Then TnASlides.Interval = 5000 - If StringClean.Contains("@StopTnA") Then - TnASlides.Stop() + Try ssh.BoobList.Clear() - ssh.BoobImage = False ssh.AssList.Clear() - ssh.AssImage = False - StringClean = StringClean.Replace("@StopTnA", "") - End If - '---------------------------------------- - ' TnA-Slideshow - End - '---------------------------------------- - '=============================================================================== - ' Slideshow - '=============================================================================== - If StringClean.Contains("@Slideshow(") Then - Dim SlideFlag As String = StringClean - - Dim SlideStart As Integer - - SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 - SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) - SlideFlag = SlideFlag.Split(")")(0) - SlideFlag = SlideFlag.Replace("@Slideshow(", "") - - ssh.CustomSlideshow.Clear() - - If SlideFlag.ToLower.Contains("hardcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) - End If - - If SlideFlag.ToLower.Contains("softcore") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) - End If - - If SlideFlag.ToLower.Contains("lesbian") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) - End If - If SlideFlag.ToLower.Contains("blowjob") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) - End If - - If SlideFlag.ToLower.Contains("femdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) - End If - - If SlideFlag.ToLower.Contains("lezdom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) - End If - - If SlideFlag.ToLower.Contains("hentai") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) - End If + If ssh.BoobList.Count < 1 Then ssh.BoobList = GetImageData(ImageGenre.Boobs).ToList + If ssh.AssList.Count < 1 Then ssh.AssList = GetImageData(ImageGenre.Butt).ToList - If SlideFlag.ToLower.Contains("gay") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) - End If + If ssh.BoobList.Count < 1 Then Throw New Exception("No Boobs-images found.") + If ssh.AssList.Count < 1 Then Throw New Exception("No Butt-images found.") - If SlideFlag.ToLower.Contains("maledom") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) - End If + TnASlides.Start() + Catch ex As Exception + Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & + ex.Message, ex, "CommandClean()") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) + End Try - If SlideFlag.ToLower.Contains("captions") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) - End If + StringClean = StringClean.Replace("@TnAFastSlides", "") + StringClean = StringClean.Replace("@TnASlowSlides", "") + StringClean = StringClean.Replace("@TnASlides", "") + End If - If SlideFlag.ToLower.Contains("general") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) - End If + If StringClean.Contains("@CheckTnA") Then + TnASlides.Stop() - If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) - End If + 'Debug.Print("@CheckTnA called ::: AssImage = " & AssImage & " ::: BoobImage = " & BoobImage) + If ssh.AssImage = True Then ssh.FileGoto = "(Butt)" + If ssh.BoobImage = True Then ssh.FileGoto = "(Boobs)" + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckTnA", "") + End If - If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then - ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) - End If + If StringClean.Contains("@StopTnA") Then + TnASlides.Stop() + ssh.BoobList.Clear() + ssh.BoobImage = False + ssh.AssList.Clear() + ssh.AssImage = False + StringClean = StringClean.Replace("@StopTnA", "") + End If + '---------------------------------------- + ' TnA-Slideshow - End + '---------------------------------------- + '=============================================================================== + ' Slideshow + '=============================================================================== + If StringClean.Contains("@Slideshow(") Then + Dim SlideFlag As String = StringClean + Dim SlideStart As Integer - CustomSlideshowTimer.Interval = 1000 - If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 - If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 + SlideStart = SlideFlag.IndexOf("@Slideshow(") + 11 + SlideFlag = SlideFlag.Substring(SlideStart, SlideFlag.Length - SlideStart) + SlideFlag = SlideFlag.Split(")")(0) + SlideFlag = SlideFlag.Replace("@Slideshow(", "") + ssh.CustomSlideshow.Clear() - StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") + If SlideFlag.ToLower.Contains("hardcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hardcore).ToList(), ImageGenre.Hardcore) End If - If StringClean.Contains("@SlideshowOn") Then - If ssh.CustomSlideshow.Count > 0 Then - ssh.CustomSlideEnabled = True - CustomSlideshowTimer.Start() - End If - StringClean = StringClean.Replace("@SlideshowOn", "") + If SlideFlag.ToLower.Contains("softcore") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Softcore).ToList(), ImageGenre.Softcore) End If - If StringClean.Contains("@SlideshowOff") Then - ssh.CustomSlideEnabled = False - CustomSlideshowTimer.Stop() - StringClean = StringClean.Replace("@SlideshowOff", "") + If SlideFlag.ToLower.Contains("lesbian") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lesbian).ToList(), ImageGenre.Lesbian) End If - If StringClean.Contains("@SlideshowFirst") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.FirstImage, False) - StringClean = StringClean.Replace("@SlideshowFirst", "") + If SlideFlag.ToLower.Contains("blowjob") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Blowjob).ToList(), ImageGenre.Blowjob) End If - If StringClean.Contains("@SlideshowLast") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.LastImage, False) - StringClean = StringClean.Replace("@SlideshowLast", "") + If SlideFlag.ToLower.Contains("femdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Femdom).ToList(), ImageGenre.Femdom) End If - If StringClean.Contains("@SlideshowNext") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.NextImage, False) - StringClean = StringClean.Replace("@SlideshowNext", "") + If SlideFlag.ToLower.Contains("lezdom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Lezdom).ToList(), ImageGenre.Lezdom) End If - If StringClean.Contains("@SlideshowPrevious") Then - ssh.CustomSlideEnabled = True - ShowImage(ssh.CustomSlideshow.PreviousImage, False) - StringClean = StringClean.Replace("@SlideshowPrevious", "") - End If - - If StringClean.Contains("@GotoSlideshow") Then - Dim ImageString As String = ssh.CustomSlideshow.CurrentImage - - If ImageString IsNot Nothing OrElse ImageString = "" Then - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" - If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" - - Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) + If SlideFlag.ToLower.Contains("hentai") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Hentai).ToList(), ImageGenre.Hentai) + End If - ssh.SkipGotoLine = True - GetGoto() - Else - Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." - Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) - End If + If SlideFlag.ToLower.Contains("gay") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Gay).ToList(), ImageGenre.Gay) + End If - StringClean = StringClean.Replace("@GotoSlideshow", "") + If SlideFlag.ToLower.Contains("maledom") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Maledom).ToList(), ImageGenre.Maledom) End If - '---------------------------------------- - ' Slideshow - End - '---------------------------------------- - ' This Command will not work in the same line, because the Images are loaded async and not available yet. - If StringClean.Contains("@CurrentImage") Then - StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) + + If SlideFlag.ToLower.Contains("captions") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Captions).ToList(), ImageGenre.Captions) End If - ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, - ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs - ' (including Long Edge and Start Stroking) or when the sub gives up. + If SlideFlag.ToLower.Contains("general") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.General).ToList(), ImageGenre.General) + End If - If StringClean.Contains("@LockImages") Then - ssh.LockImage = True - nextButton.Enabled = False - previousButton.Enabled = False - PicStripTSMIdommeSlideshow.Enabled = False - StringClean = StringClean.Replace("@LockImages", "") + If SlideFlag.ToLower.Contains("boob") Or LCase(SlideFlag).Contains("boobs") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Boobs).ToList(), ImageGenre.Boobs) End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' ImageCommands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command - ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). + If SlideFlag.ToLower.Contains("butt") Or LCase(SlideFlag).Contains("butts") Then + ssh.CustomSlideshow.AddRange(GetImageData(ImageGenre.Butt).ToList(), ImageGenre.Butt) + End If - If StringClean.Contains("@Chance") Then - Dim ChanceTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer - TSStartIndex = StringClean.IndexOf("@Chance") + 7 - TSEndIndex = StringClean.IndexOf("@Chance") + 9 + CustomSlideshowTimer.Interval = 1000 + If LCase(SlideFlag).Contains("slow") Then CustomSlideshowTimer.Interval = 5000 + If LCase(SlideFlag).Contains("fast") Then CustomSlideshowTimer.Interval = 500 - ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - Dim ChanceVal As Integer + StringClean = StringClean.Replace("@Slideshow(" & SlideFlag & ")", "") + End If - ChanceVal = Val(ChanceTemp) + If StringClean.Contains("@SlideshowOn") Then + If ssh.CustomSlideshow.Count > 0 Then + ssh.CustomSlideEnabled = True + CustomSlideshowTimer.Start() + End If + StringClean = StringClean.Replace("@SlideshowOn", "") + End If - ssh.TempVal = ssh.randomizer.Next(1, 101) + If StringClean.Contains("@SlideshowOff") Then + ssh.CustomSlideEnabled = False + CustomSlideshowTimer.Stop() + StringClean = StringClean.Replace("@SlideshowOff", "") + End If - Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim + If StringClean.Contains("@SlideshowFirst") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.FirstImage, False) + StringClean = StringClean.Replace("@SlideshowFirst", "") + End If - Dim ChanceSplit As String() = Split(ChanceString, ")") + If StringClean.Contains("@SlideshowLast") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.LastImage, False) + StringClean = StringClean.Replace("@SlideshowLast", "") + End If + If StringClean.Contains("@SlideshowNext") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.NextImage, False) + StringClean = StringClean.Replace("@SlideshowNext", "") + End If - Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") - StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") + If StringClean.Contains("@SlideshowPrevious") Then + ssh.CustomSlideEnabled = True + ShowImage(ssh.CustomSlideshow.PreviousImage, False) + StringClean = StringClean.Replace("@SlideshowPrevious", "") + End If - If ssh.TempVal <= ChanceVal Then + If StringClean.Contains("@GotoSlideshow") Then + Dim ImageString As String = ssh.CustomSlideshow.CurrentImage - ssh.FileGoto = ChanceSplit(0) & ")" - ssh.SkipGotoLine = True + If ImageString IsNot Nothing OrElse ImageString = "" Then + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hardcore Then ssh.FileGoto = "(Hardcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Softcore Then ssh.FileGoto = "(Softcore)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lesbian Then ssh.FileGoto = "(Lesbian)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Blowjob Then ssh.FileGoto = "(Blowjob)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Femdom Then ssh.FileGoto = "(Femdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Lezdom Then ssh.FileGoto = "(Lezdom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Hentai Then ssh.FileGoto = "(Hentai)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Gay Then ssh.FileGoto = "(Gay)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Maledom Then ssh.FileGoto = "(Maledom)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Captions Then ssh.FileGoto = "(Captions)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.General Then ssh.FileGoto = "(General)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Boobs Then ssh.FileGoto = "(Boobs)" + If ssh.CustomSlideshow(ImageString) = ImageGenre.Butt Then ssh.FileGoto = "(Butts)" - If ssh.YesOrNo = True Then - GetGotoChat() - Else - GetGoto() - End If + Debug.Print("GotoSlideshow called, FileGoto = " & ssh.FileGoto) - End If + ssh.SkipGotoLine = True + GetGoto() + Else + Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." + Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) End If - ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of - ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using - ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() - ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, - ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - - If StringClean.Contains("@CheckFlag") Then - Dim CheckArray As String() = StringClean.Split(")") + StringClean = StringClean.Replace("@GotoSlideshow", "") + End If + '---------------------------------------- + ' Slideshow - End + '---------------------------------------- + ' This Command will not work in the same line, because the Images are loaded async and not available yet. + If StringClean.Contains("@CurrentImage") Then + StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) + End If - For i As Integer = 0 To CheckArray.Count - 1 + ' The @LockImages Commnd prevents the Domme Slideshow from moving forward or back when set to "Tease" or "Timed". Manual operation of Domme Slideshow images is still allowed, + ' and pictures displayed through other means will still work. Images are automatically unlocked whenever Tease AI moves into a Link script, an End script, any Interrupt occurs + ' (including Long Edge and Start Stroking) or when the sub gives up. - If CheckArray(i).Contains("@CheckFlag(") Then + If StringClean.Contains("@LockImages") Then + ssh.LockImage = True + nextButton.Enabled = False + previousButton.Enabled = False + PicStripTSMIdommeSlideshow.Enabled = False + StringClean = StringClean.Replace("@LockImages", "") + End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' ImageCommands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - CheckArray(i) = CheckArray(i) & ")" + ' The @Chance Command gives a chance to either jump to the line specified, or move to the next line as normal. The odds of jumping to the specified line are indicated in the Command + ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") - Dim OriginalCheck As String = CheckFlag + If StringClean.Contains("@Chance") Then + Dim ChanceTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - If CheckFlag.Contains(",") Then + TSStartIndex = StringClean.IndexOf("@Chance") + 7 + TSEndIndex = StringClean.IndexOf("@Chance") + 9 - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - Dim FlagArray() As String = CheckFlag.Split(",") + Dim ChanceVal As Integer - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FlagArray(1) - GetGoto() - End If + ChanceVal = Val(ChanceTemp) - Else + ssh.TempVal = ssh.randomizer.Next(1, 101) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then - ssh.SkipGotoLine = True - ssh.FileGoto = CheckFlag - GetGoto() - End If + Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim - End If + Dim ChanceSplit As String() = Split(ChanceString, ")") - ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS - 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") - StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") - End If - Next - ' StringClean = Join(CheckArray, Nothing) - End If + Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") + StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") + If ssh.TempVal <= ChanceVal Then -TaskCleanSet: + ssh.FileGoto = ChanceSplit(0) & ")" + ssh.SkipGotoLine = True + If ssh.YesOrNo = True Then + GetGotoChat() + Else + GetGoto() + End If - ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). + End If + End If - If StringClean.Contains("@SetFlag(") Then - Dim SetArray As String() = StringClean.Split(")") + ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of + ' the flag itself, such as @CheckFlag(FlagName) , then Tease AI will move to the line (FlagName) if that Flag exists. However, you can also specify a line to go to if that Flag is found by using + ' a comma, such as @CheckFlag(FlagName, Domme Instructions) . In this case, Tease AI would move to the line (Domme Instructions) if the Flag "FlagName" exists. You can use as many @CheckFlag() + ' Commands per line that you wish. When specifiying a line to go to in a @CheckFlag Command, never put it in its own parentheses (For example, @CheckFlag(FlagName, Domme Instructions) is correct, + ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. - For i As Integer = 0 To SetArray.Count - 1 + If StringClean.Contains("@CheckFlag") Then + Dim CheckArray As String() = StringClean.Split(")") - If SetArray(i).Contains("@SetFlag(") Then + For i As Integer = 0 To CheckArray.Count - 1 - SetArray(i) = SetArray(i) & ")" + If CheckArray(i).Contains("@CheckFlag(") Then - Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") - Dim OriginalSet As String = SetFlag + CheckArray(i) = CheckArray(i) & ")" - If SetFlag.Contains(",") Then + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@CheckFlag(") + Dim OriginalCheck As String = CheckFlag - SetFlag = SetFlag.Replace(", ", ",") - SetFlag = SetFlag.Replace(" ,", ",") + If CheckFlag.Contains(",") Then - Dim FlagArray() As String = SetFlag.Split(",") + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - For x As Integer = 0 To FlagArray.Count - 1 + Dim FlagArray() As String = CheckFlag.Split(",") - CreateFlag(FlagArray(x)) + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & FlagArray(0)) Or + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & FlagArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FlagArray(1) + GetGoto() + End If - Next + Else - Else + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\" & CheckFlag) Or + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\" & CheckFlag) Then + ssh.SkipGotoLine = True + ssh.FileGoto = CheckFlag + GetGoto() + End If - CreateFlag(SetFlag) + End If - End If + ' CHECK FOR OTHER POSSIBLE CHECKARRAY BUGS + 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") - 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") + StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") + End If + Next + ' StringClean = Join(CheckArray, Nothing) + End If - StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") - End If - Next - 'StringClean = Join(SetArray, Nothing) - End If - ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. - ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). - ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). +TaskCleanSet: - If StringClean.Contains("@TempFlag(") Then - Dim TempArray As String() = StringClean.Split(")") - For i As Integer = 0 To TempArray.Count - 1 + ' The @SetFlag() Command creates a Flag in System\Flags. You can use multiple @SetFlag() Commands in the same line to set multiple flags at once (For example, @SetFlag(Flag1) @SetFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @SetFlag() Commands with a comma (For example, @SetFlag(Flag1, Flag2, Flag3)). - If TempArray(i).Contains("@TempFlag(") Then + If StringClean.Contains("@SetFlag(") Then + Dim SetArray As String() = StringClean.Split(")") - TempArray(i) = TempArray(i) & ")" + For i As Integer = 0 To SetArray.Count - 1 - Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") - Dim OriginalTemp As String = TempFlag + If SetArray(i).Contains("@SetFlag(") Then - If TempFlag.Contains(",") Then + SetArray(i) = SetArray(i) & ")" - TempFlag = TempFlag.Replace(", ", ",") - TempFlag = TempFlag.Replace(" ,", ",") + Dim SetFlag As String = GetParentheses(SetArray(i), "@SetFlag(") + Dim OriginalSet As String = SetFlag - Dim FlagArray() As String = TempFlag.Split(",") + If SetFlag.Contains(",") Then - For x As Integer = 0 To FlagArray.Count - 1 + SetFlag = SetFlag.Replace(", ", ",") + SetFlag = SetFlag.Replace(" ,", ",") - CreateFlag(FlagArray(x), True) + Dim FlagArray() As String = SetFlag.Split(",") - Next + For x As Integer = 0 To FlagArray.Count - 1 - Else + CreateFlag(FlagArray(x)) - CreateFlag(TempFlag, True) + Next - End If + Else - 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") + CreateFlag(SetFlag) - StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") End If - Next - 'StringClean = Join(TempArray, Nothing) - End If - ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. - ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). - ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). + 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") - If StringClean.Contains("@DeleteFlag(") Then - Dim DeleteArray As String() = StringClean.Split(")") + StringClean = StringClean.Replace("@SetFlag(" & OriginalSet & ")", "") + End If + Next + 'StringClean = Join(SetArray, Nothing) + End If - For i As Integer = 0 To DeleteArray.Count - 1 + ' The @TempFlag() Command creates a Flag in System\Flags\Temp. These work like @SetFlag() Commands, the only difference is that Flags set this way are deleted the next time Tease AI is run. + ' You can use multiple @TempFlag() Commands in the same line to set multiple flags at once (For example, @TempFlag(Flag1) @TempFlag(Flag2)). + ' You can also set multiple flags at once by separating them in single @TempFlag() Commands with a comma (For example, @TempFlag(Flag1, Flag2, Flag3)). - If DeleteArray(i).Contains("@DeleteFlag(") Then + If StringClean.Contains("@TempFlag(") Then + Dim TempArray As String() = StringClean.Split(")") - DeleteArray(i) = DeleteArray(i) & ")" + For i As Integer = 0 To TempArray.Count - 1 - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") - Dim OriginalDelete As String = DFlag + If TempArray(i).Contains("@TempFlag(") Then - If DFlag.Contains(",") Then + TempArray(i) = TempArray(i) & ")" - DFlag = FixCommas(DFlag) + Dim TempFlag As String = GetParentheses(TempArray(i), "@TempFlag(") + Dim OriginalTemp As String = TempFlag - Dim FlagArray() As String = DFlag.Split(",") + If TempFlag.Contains(",") Then - For x As Integer = 0 To FlagArray.Count - 1 + TempFlag = TempFlag.Replace(", ", ",") + TempFlag = TempFlag.Replace(" ,", ",") - DeleteFlag(FlagArray(x)) + Dim FlagArray() As String = TempFlag.Split(",") - Next + For x As Integer = 0 To FlagArray.Count - 1 - Else + CreateFlag(FlagArray(x), True) - DeleteFlag(DFlag) + Next - End If + Else - ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") + CreateFlag(TempFlag, True) - StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") End If - Next - 'StringClean = Join(DeleteArray, Nothing) - End If - ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. - ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] - ' Multiple @SetVar[] Commands may be used per line if you wish. - ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | + 'TempArray(i) = TempArray(i).Replace("@TempFlag(" & OriginalTemp & ")", "") + + StringClean = StringClean.Replace("@TempFlag(" & OriginalTemp & ")", "") + End If + Next + 'StringClean = Join(TempArray, Nothing) + End If + + ' The @DeleteFlag() Command deletes specified Flags in System\Flags and System\Flags\Temp. + ' You can use multiple @DeleteFlag() Commands in the same line to delete multiple flags at once (For example, @DeleteFlag(Flag1) @DeleteFlag(Flag2)). + ' You can also delete multiple flags at once by separating them in single @DeleteFlag() Commands with a comma (For example, @DeleteFlag(Flag1, Flag2, Flag3)). - If StringClean.Contains("@SetVar[") Then - Dim VarArray As String() = StringClean.Split + If StringClean.Contains("@DeleteFlag(") Then + Dim DeleteArray As String() = StringClean.Split(")") - For i As Integer = 0 To VarArray.Count - 1 + For i As Integer = 0 To DeleteArray.Count - 1 - Dim SCGotVar As String = "NULL" + If DeleteArray(i).Contains("@DeleteFlag(") Then - If VarArray(i).Contains("@SetVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" + DeleteArray(i) = DeleteArray(i) & ")" - SCGotVar = SCGotVar.Replace("@SetVar[", "") + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteFlag(") + Dim OriginalDelete As String = DFlag - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + If DFlag.Contains(",") Then - Dim VarName As String = SCGotVarSplit(0) + DFlag = FixCommas(DFlag) - SCGotVarSplit(0) = "" + Dim FlagArray() As String = DFlag.Split(",") + + For x As Integer = 0 To FlagArray.Count - 1 + + DeleteFlag(FlagArray(x)) + + Next - SCGotVar = Join(SCGotVarSplit) + Else - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") + DeleteFlag(DFlag) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) End If - Next - StringClean = Join(VarArray) - End If - ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . - ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) - ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. - ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is - ' specified, "Days" will be used. + ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") - If StringClean.Contains("@SetDate(") Then - Dim CheckArray As String() = StringClean.Split(")") - Dim OriginalCheck As String + StringClean = StringClean.Replace("@DeleteFlag(" & OriginalDelete & ")", "") + End If + Next + 'StringClean = Join(DeleteArray, Nothing) + End If - For i As Integer = 0 To CheckArray.Count - 1 + ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. + ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] + ' Multiple @SetVar[] Commands may be used per line if you wish. + ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - If CheckArray(i).Contains("@SetDate(") Then + If StringClean.Contains("@SetVar[") Then + Dim VarArray As String() = StringClean.Split - 'CheckArray(i) = CheckArray(i) & "]" + For i As Integer = 0 To VarArray.Count - 1 - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") - OriginalCheck = CheckFlag + Dim SCGotVar As String = "NULL" - Debug.Print("Original Check = " & OriginalCheck) + If VarArray(i).Contains("@SetVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + SCGotVar = SCGotVar.Replace("@SetVar[", "") - Dim FlagArray() As String = CheckFlag.Split(",") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + Dim VarName As String = SCGotVarSplit(0) - If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) + SCGotVarSplit(0) = "" - If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ - And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ - And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + SCGotVar = Join(SCGotVarSplit) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - Debug.Print("CheckArray(i) = " & CheckArray(i)) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) + End If + Next + StringClean = Join(VarArray) + End If - ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") + ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . + ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) + ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. + ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is + ' specified, "Days" will be used. - StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") - End If - Next - 'StringClean = Join(CheckArray, Nothing) - End If + If StringClean.Contains("@SetDate(") Then + Dim CheckArray As String() = StringClean.Split(")") + Dim OriginalCheck As String + For i As Integer = 0 To CheckArray.Count - 1 - ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] - ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. - ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line + If CheckArray(i).Contains("@SetDate(") Then - If StringClean.Contains("@RoundVar[") Then - Dim VarArray As String() = StringClean.Split + 'CheckArray(i) = CheckArray(i) & "]" - For i As Integer = 0 To VarArray.Count - 1 + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") + OriginalCheck = CheckFlag - Dim SCGotVar As String = "NULL" + Debug.Print("Original Check = " & OriginalCheck) - If VarArray(i).Contains("@RoundVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" - End If + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - SCGotVar = SCGotVar.Replace("@RoundVar[", "") + Dim FlagArray() As String = CheckFlag.Split(",") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - Dim VarName As String = SCGotVarSplit(0) - Dim Val1 As Integer + If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName + If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ + And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ + And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(VarCheck) Then - ' Read first line of the given file. - Val1 = CInt(TxtReadLine(VarCheck)) + Debug.Print("CheckArray(i) = " & CheckArray(i)) - SCGotVarSplit(0) = "" + ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") - SCGotVar = Join(SCGotVarSplit) + StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") + End If + Next + 'StringClean = Join(CheckArray, Nothing) + End If - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") - Dim VarValue As Integer = Val(SCGotVar) + ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] + ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. + ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line - Val1 = VarValue * Math.Round(Val1 / VarValue) + If StringClean.Contains("@RoundVar[") Then + Dim VarArray As String() = StringClean.Split - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) + For i As Integer = 0 To VarArray.Count - 1 - End If - ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") - Next - StringClean = Join(VarArray) - End If + Dim SCGotVar As String = "NULL" - ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] - ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created - ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / - 'More than one @ChangeVar[] Command can be used per line. + If VarArray(i).Contains("@RoundVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" + End If - If StringClean.Contains("@ChangeVar[") Then - Dim ChangeArray As String() = StringClean.Split + SCGotVar = SCGotVar.Replace("@RoundVar[", "") - For i As Integer = 0 To ChangeArray.Count - 1 + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) + Dim VarName As String = SCGotVarSplit(0) + Dim Val1 As Integer - If ChangeArray(i).Contains("@ChangeVar[") Then + Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName - Dim ChangeFlag As String = ChangeArray(i) - Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 - Dim ChangeVar As String - Dim ChangeVal1 As String - Dim ChangeVal2 As String - Dim ChangeOperator As String + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(VarCheck) Then + ' Read first line of the given file. + Val1 = CInt(TxtReadLine(VarCheck)) - Dim Val1 As Integer - Dim Val2 As Integer + SCGotVarSplit(0) = "" - ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) - ChangeVar = ChangeFlag.Split("]")(0) - ChangeVal1 = ChangeFlag.Split("]")(1) - ChangeVal2 = ChangeFlag.Split("]")(2) - ChangeOperator = ChangeFlag.Split("]")(2) + SCGotVar = Join(SCGotVarSplit) - ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") - ChangeVar = ChangeVar.Replace("@ChangeVar[", "") - ChangeVal1 = ChangeVal1.Replace("=[", "") - ChangeVal2 = ChangeVal2.Replace("+[", "") - ChangeVal2 = ChangeVal2.Replace("-[", "") - ChangeVal2 = ChangeVal2.Replace("*[", "") - ChangeVal2 = ChangeVal2.Replace("/[", "") + Dim VarValue As Integer = Val(SCGotVar) - '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] + Val1 = VarValue * Math.Round(Val1 / VarValue) - If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then - Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) - Else - Val1 = 0 - End If - Else - Val1 = Val(ChangeVal1) - End If + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, Val1, False) - If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then - Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) - Else - Val2 = 0 - End If - Else - Val2 = Val(ChangeVal2) - End If + End If + ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") + Next + StringClean = Join(VarArray) + End If - ssh.ScriptOperator = "Null" - If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" - If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" - If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" - If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" + ' The @ChangeVar[] Command is used to Value of a new or existing Variable and round it by the amount specified. The correct format is @ChangeVar[VarName]=[Value1]+[Value2] + ' For example, @ChangeVar[StrokeTotal]=[StrokeTotal]+[100] would add 100 to the current value of "StrokeTotal" and save it. If "StrokeTotal" did not previously exist, then it would be created + ' with a value of 100 in this case, since nothing + 100 equals 100. You can use @ChangeVar[] to add, subtract, multiply or divide with the operators +, -, * and / + 'More than one @ChangeVar[] Command can be used per line. - Dim ChangeVal As Integer = 0 + If StringClean.Contains("@ChangeVar[") Then + Dim ChangeArray As String() = StringClean.Split - If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 - If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 - If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 - If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 - If Not ssh.ScriptOperator = "Null" Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) - End If - Next - End If + For i As Integer = 0 To ChangeArray.Count - 1 - ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] - ' More than one @ShowVar[] Commands can be used per line + Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) - If StringClean.Contains("@ShowVar[") Then - Dim VarSplit As String() = StringClean.Split("]") + If ChangeArray(i).Contains("@ChangeVar[") Then - For i As Integer = 0 To VarSplit.Count - 1 + Dim ChangeFlag As String = ChangeArray(i) + Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 - If VarSplit(i).Contains("@ShowVar[") Then + Dim ChangeVar As String + Dim ChangeVal1 As String + Dim ChangeVal2 As String + Dim ChangeOperator As String - Dim VarString As String = VarSplit(i) & "]" + Dim Val1 As Integer + Dim Val2 As Integer - Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") - Debug.Print("VarFlag = " & VarFlag) - Dim VarFlag2 As String = GetVariable(VarFlag) - Debug.Print("VarFlag2 = " & VarFlag2) - ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) + ChangeVar = ChangeFlag.Split("]")(0) + ChangeVal1 = ChangeFlag.Split("]")(1) + ChangeVal2 = ChangeFlag.Split("]")(2) + ChangeOperator = ChangeFlag.Split("]")(2) - Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") - StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) - End If - Next - End If + ChangeVar = ChangeVar.Replace("@ChangeVar[", "") + ChangeVal1 = ChangeVal1.Replace("=[", "") + ChangeVal2 = ChangeVal2.Replace("+[", "") + ChangeVal2 = ChangeVal2.Replace("-[", "") + ChangeVal2 = ChangeVal2.Replace("*[", "") + ChangeVal2 = ChangeVal2.Replace("/[", "") + '@ChangeVar[TB_EdgeHoldingOwed ] =[TB_EdgeHoldingOwed ] -[1 ] - If StringClean.Contains("@ChastityOn") Then - My.Settings.Chastity = True - FrmSettings.LBLChastityState.Text = "ON" - FrmSettings.LBLChastityState.ForeColor = Color.Green - StringClean = StringClean.Replace("@ChastityOn", "") - End If + If IsNumeric(ChangeVal1) = False Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + Val1 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) + Else + Val1 = 0 + End If + Else + Val1 = Val(ChangeVal1) + End If - If StringClean.Contains("@ChastityOff") Then - My.Settings.Chastity = False - FrmSettings.LBLChastityState.Text = "OFF" - FrmSettings.LBLChastityState.ForeColor = Color.Red - StringClean = StringClean.Replace("@ChastityOff", "") - End If + If IsNumeric(ChangeVal2) = False Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + Val2 = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) + Else + Val2 = 0 + End If + Else + Val2 = Val(ChangeVal2) + End If - If StringClean.Contains("@AddTokens(") Then - Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenAdd As Integer + ssh.ScriptOperator = "Null" + If ChangeOperator.Contains("+") Then ssh.ScriptOperator = "Add" + If ChangeOperator.Contains("-") Then ssh.ScriptOperator = "Subtract" + If ChangeOperator.Contains("*") Then ssh.ScriptOperator = "Multiply" + If ChangeOperator.Contains("/") Then ssh.ScriptOperator = "Divide" - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenAdd = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd - Next - Else - TokenAdd = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd + Dim ChangeVal As Integer = 0 + + If ssh.ScriptOperator = "Add" Then ChangeVal = Val1 + Val2 + If ssh.ScriptOperator = "Subtract" Then ChangeVal = Val1 - Val2 + If ssh.ScriptOperator = "Multiply" Then ChangeVal = Val1 * Val2 + If ssh.ScriptOperator = "Divide" Then ChangeVal = Val1 / Val2 + If Not ssh.ScriptOperator = "Null" Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) End If + Next + End If - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + ' The @ShowVar[] Command is used to show the value of an existing Variable. The correct format is @ShowVar[VarName] + ' More than one @ShowVar[] Commands can be used per line + If StringClean.Contains("@ShowVar[") Then + Dim VarSplit As String() = StringClean.Split("]") - StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") - End If + For i As Integer = 0 To VarSplit.Count - 1 + If VarSplit(i).Contains("@ShowVar[") Then - If StringClean.Contains("@RemoveTokens(") Then - Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") - TokenFlag = FixCommas(TokenFlag) - Dim TokenRemove As Integer + Dim VarString As String = VarSplit(i) & "]" - If TokenFlag.Contains(",") Then - Dim TokenArray As String() = TokenFlag.Split(",") - For i As Integer = 0 To TokenArray.Count - 1 - TokenRemove = Val(TokenArray(i)) - If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove - Next - Else - TokenRemove = Val(TokenFlag) - If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove - If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove - If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove + Dim VarFlag As String = GetParentheses(VarString, "@ShowVar[") + Debug.Print("VarFlag = " & VarFlag) + Dim VarFlag2 As String = GetVariable(VarFlag) + Debug.Print("VarFlag2 = " & VarFlag2) + ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) + + Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + + StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) End If + Next + End If - If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 - If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 - If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 - My.Settings.BronzeTokens = ssh.BronzeTokens - My.Settings.SilverTokens = ssh.SilverTokens - My.Settings.GoldTokens = ssh.GoldTokens + If StringClean.Contains("@ChastityOn") Then + My.Settings.Chastity = True + FrmSettings.LBLChastityState.Text = "ON" + FrmSettings.LBLChastityState.ForeColor = Color.Green + StringClean = StringClean.Replace("@ChastityOn", "") + End If + If StringClean.Contains("@ChastityOff") Then + My.Settings.Chastity = False + FrmSettings.LBLChastityState.Text = "OFF" + FrmSettings.LBLChastityState.ForeColor = Color.Red + StringClean = StringClean.Replace("@ChastityOff", "") + End If - StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") - End If + If StringClean.Contains("@AddTokens(") Then + Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenAdd As Integer - If StringClean.Contains("@Add1Token") Then - ssh.BronzeTokens += 1 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add1Token", "") + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenAdd = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens += TokenAdd + Next + Else + TokenAdd = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens += TokenAdd + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens += TokenAdd + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens += TokenAdd End If - If StringClean.Contains("@Add3Tokens") Then - ssh.BronzeTokens += 3 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add3Tokens", "") - End If + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - If StringClean.Contains("@Add5Tokens") Then - ssh.BronzeTokens += 5 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add5Tokens", "") - End If - If StringClean.Contains("@Add10Tokens") Then - ssh.BronzeTokens += 10 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add10Tokens", "") - End If + StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") + End If - If StringClean.Contains("@Add25Tokens") Then - ssh.BronzeTokens += 25 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add25Tokens", "") - End If - If StringClean.Contains("@Add50Tokens") Then - ssh.BronzeTokens += 50 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") - End If + If StringClean.Contains("@RemoveTokens(") Then + Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") + TokenFlag = FixCommas(TokenFlag) + Dim TokenRemove As Integer - If StringClean.Contains("@Add100Tokens") Then - ssh.BronzeTokens += 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Add50Tokens", "") + If TokenFlag.Contains(",") Then + Dim TokenArray As String() = TokenFlag.Split(",") + For i As Integer = 0 To TokenArray.Count - 1 + TokenRemove = Val(TokenArray(i)) + If UCase(TokenArray(i)).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenArray(i)).Contains("G") Then ssh.GoldTokens -= TokenRemove + Next + Else + TokenRemove = Val(TokenFlag) + If UCase(TokenFlag).Contains("B") Then ssh.BronzeTokens -= TokenRemove + If UCase(TokenFlag).Contains("S") Then ssh.SilverTokens -= TokenRemove + If UCase(TokenFlag).Contains("G") Then ssh.GoldTokens -= TokenRemove End If - If StringClean.Contains("@Remove100Tokens") Then - ssh.BronzeTokens -= 100 - My.Settings.BronzeTokens = ssh.BronzeTokens - FrmCardList.UpdateBronzeTokens() - MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) - StringClean = StringClean.Replace("@Remove100Tokens", "") - End If + If ssh.BronzeTokens < 0 Then ssh.BronzeTokens = 0 + If ssh.SilverTokens < 0 Then ssh.SilverTokens = 0 + If ssh.GoldTokens < 0 Then ssh.GoldTokens = 0 + My.Settings.BronzeTokens = ssh.BronzeTokens + My.Settings.SilverTokens = ssh.SilverTokens + My.Settings.GoldTokens = ssh.GoldTokens - If StringClean.Contains("@UpdateOrgasm") Then - My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - 'Github Patch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") + End If - FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm - StringClean = StringClean.Replace("@UpdateOrgasm", "") - End If + If StringClean.Contains("@Add1Token") Then + ssh.BronzeTokens += 1 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add1Token", "") + End If - If StringClean.Contains("@UpdateRuined") Then - My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) + If StringClean.Contains("@Add3Tokens") Then + ssh.BronzeTokens += 3 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 3 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add3Tokens", "") + End If - ' GithubPatch - If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 + If StringClean.Contains("@Add5Tokens") Then + ssh.BronzeTokens += 5 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 5 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add5Tokens", "") + End If - FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined - StringClean = StringClean.Replace("@UpdateRuined", "") - End If + If StringClean.Contains("@Add10Tokens") Then + ssh.BronzeTokens += 10 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 10 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add10Tokens", "") + End If + + If StringClean.Contains("@Add25Tokens") Then + ssh.BronzeTokens += 25 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 25 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add25Tokens", "") + End If - If StringClean.Contains("@DeleteVar[") Then - Dim DeleteArray As String() = StringClean.Split("]") + If StringClean.Contains("@Add50Tokens") Then + ssh.BronzeTokens += 50 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 50 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - For i As Integer = 0 To DeleteArray.Count - 1 + If StringClean.Contains("@Add100Tokens") Then + ssh.BronzeTokens += 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has given you 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Add50Tokens", "") + End If - If DeleteArray(i).Contains("@DeleteVar[") Then + If StringClean.Contains("@Remove100Tokens") Then + ssh.BronzeTokens -= 100 + My.Settings.BronzeTokens = ssh.BronzeTokens + FrmCardList.UpdateBronzeTokens() + MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Remove100Tokens", "") + End If - DeleteArray(i) = DeleteArray(i) & "]" - Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") - Dim OriginalDelete As String = DFlag + If StringClean.Contains("@UpdateOrgasm") Then + My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) - If DFlag.Contains(",") Then + 'Github Patch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - DFlag = FixCommas(DFlag) + FrmSettings.LBLLastOrgasm.Text = My.Settings.LastOrgasm + StringClean = StringClean.Replace("@UpdateOrgasm", "") + End If - Dim FlagArray() As String = DFlag.Split(",") + If StringClean.Contains("@UpdateRuined") Then + My.Settings.LastRuined = FormatDateTime(Now, DateFormat.ShortDate) - For x As Integer = 0 To FlagArray.Count - 1 + ' GithubPatch + If My.Settings.OrgasmsLocked = True Then My.Settings.OrgasmsRemaining -= 1 - DeleteVariable(FlagArray(x)) + FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined + StringClean = StringClean.Replace("@UpdateRuined", "") + End If - Next + If StringClean.Contains("@DeleteVar[") Then + Dim DeleteArray As String() = StringClean.Split("]") - Else + For i As Integer = 0 To DeleteArray.Count - 1 - DeleteVariable(DFlag) + If DeleteArray(i).Contains("@DeleteVar[") Then - End If + DeleteArray(i) = DeleteArray(i) & "]" - 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") + Dim DFlag As String = GetParentheses(DeleteArray(i), "@DeleteVar[") + Dim OriginalDelete As String = DFlag - StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") - End If - Next - 'StringClean = Join(DeleteArray, Nothing) - End If + If DFlag.Contains(",") Then - If StringClean.Contains("@PornAllowedOff") Then - CreateFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOff", "") - End If + DFlag = FixCommas(DFlag) - If StringClean.Contains("@PornAllowedOn") Then - DeleteFlag("SYS_NoPornAllowed") - StringClean = StringClean.Replace("@PornAllowedOn", "") - End If + Dim FlagArray() As String = DFlag.Split(",") - If StringClean.Contains("@RestrictOrgasm(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") + For x As Integer = 0 To FlagArray.Count - 1 - If CheckFlag.Contains(",") Then + DeleteVariable(FlagArray(x)) - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + Next - Dim FlagArray() As String = CheckFlag.Split(",") + Else - Dim Seconds1 As Integer = Val(FlagArray(0)) - Dim Seconds2 As Integer = Val(FlagArray(1)) + DeleteVariable(DFlag) - If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 - If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 - If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 - If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 - If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 - If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 + End If - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 + 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") - Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) + StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") + End If + Next + 'StringClean = Join(DeleteArray, Nothing) + End If - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + If StringClean.Contains("@PornAllowedOff") Then + CreateFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOff", "") + End If - SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + If StringClean.Contains("@PornAllowedOn") Then + DeleteFlag("SYS_NoPornAllowed") + StringClean = StringClean.Replace("@PornAllowedOn", "") + End If - Else + If StringClean.Contains("@RestrictOrgasm(") Then + Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + If CheckFlag.Contains(",") Then - If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) - If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) - If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ - And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ - And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + Dim FlagArray() As String = CheckFlag.Split(",") - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) + Dim Seconds1 As Integer = Val(FlagArray(0)) + Dim Seconds2 As Integer = Val(FlagArray(1)) - End If - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") - End If + If UCase(FlagArray(0)).Contains(UCase("MINUTE")) Then Seconds1 *= 60 + If UCase(FlagArray(0)).Contains(UCase("HOUR")) Then Seconds1 *= 3600 + If UCase(FlagArray(0)).Contains(UCase("DAY")) Then Seconds1 *= 86400 + If UCase(FlagArray(0)).Contains(UCase("WEEK")) Then Seconds1 *= 604800 + If UCase(FlagArray(0)).Contains(UCase("MONTH")) Then Seconds1 *= 2419200 + If UCase(FlagArray(0)).Contains(UCase("YEAR")) Then Seconds1 *= 29030400 - If StringClean.Contains("@RestrictOrgasm") Then - ssh.OrgasmRestricted = True - StringClean = StringClean.Replace("@RestrictOrgasm", "") - End If + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then Seconds2 *= 60 + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then Seconds2 *= 3600 + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then Seconds2 *= 86400 + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then Seconds2 *= 604800 + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then Seconds2 *= 2419200 + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then Seconds2 *= 29030400 - If StringClean.Contains("@DecreaseOrgasmChance") Then - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + Dim TotalSeconds As Integer = ssh.randomizer.Next(Seconds1, Seconds2 + 1) - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") - End If + SetDate = DateAdd(DateInterval.Second, TotalSeconds, SetDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) - If StringClean.Contains("@IncreaseOrgasmChance") Then - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + Else - My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") - End If + If UCase(CheckFlag).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag) * 7, SetDate) + If UCase(CheckFlag).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(CheckFlag), SetDate) + If UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(CheckFlag), SetDate) - If StringClean.Contains("@DecreaseRuinChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If Not UCase(CheckFlag).Contains(UCase("SECOND")) And Not UCase(CheckFlag).Contains(UCase("MINUTE")) And Not UCase(CheckFlag).Contains(UCase("HOUR")) _ + And Not UCase(CheckFlag).Contains(UCase("DAY")) And Not UCase(CheckFlag).Contains(UCase("WEEK")) And Not UCase(CheckFlag).Contains(UCase("MONTH")) _ + And Not UCase(CheckFlag).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(CheckFlag), SetDate) - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate), False) - StringClean = StringClean.Replace("@DecreaseRuinChance", "") End If + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm(" & GetParentheses(StringClean, "@RestrictOrgasm(") & ")", "") + End If - If StringClean.Contains("@IncreaseRuinChance") Then - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - - My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text + If StringClean.Contains("@RestrictOrgasm") Then + ssh.OrgasmRestricted = True + StringClean = StringClean.Replace("@RestrictOrgasm", "") + End If - StringClean = StringClean.Replace("@IncreaseRuinChance", "") - End If + If StringClean.Contains("@DecreaseOrgasmChance") Then + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Never Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" - '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - If TaskClean = True Then Return StringClean + StringClean = StringClean.Replace("@DecreaseOrgasmChance", "") + End If + If StringClean.Contains("@IncreaseOrgasmChance") Then + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then FrmSettings.alloworgasmComboBox.Text = "Always Allows" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then FrmSettings.alloworgasmComboBox.Text = "Often Allows" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" - ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. - ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set - ' for the Variable "NoPorn" by @SetDate() + My.Settings.OrgasmAllow = FrmSettings.alloworgasmComboBox.Text - If StringClean.Contains("@CheckDate(") Then - Dim CheckArray As String() = StringClean.Split(")") + StringClean = StringClean.Replace("@IncreaseOrgasmChance", "") + End If - For i As Integer = 0 To CheckArray.Count - 1 + If StringClean.Contains("@DecreaseRuinChance") Then + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" - If CheckArray(i).Contains("@CheckDate(") Then + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - If CheckDateList(CheckArray(i), True) = True Then - Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") - DateFlag = FixCommas(DateFlag) - Dim DateArray As String() = DateFlag.Split(",") - ssh.SkipGotoLine = True - ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") - GetGoto() - End If + StringClean = StringClean.Replace("@DecreaseRuinChance", "") + End If - StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") + If StringClean.Contains("@IncreaseRuinChance") Then + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" - End If + My.Settings.OrgasmRuin = FrmSettings.ruinorgasmComboBox.Text - Next - End If + StringClean = StringClean.Replace("@IncreaseRuinChance", "") + End If - ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. - ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the - ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next - ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. + '@@@@@@@@@@@@@@@@@@@@@@ TASKCLEAN END - If StringClean.Contains("@InputVar[") Then + If TaskClean = True Then Return StringClean - ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") - ssh.InputFlag = True - If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True - StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - End If + ' The @CheckDate() Command checks a previously saved Variable created with the @SetDate() Command and goes to the specified line if the current time and date is on or after the date in the Variable. + ' Correct format is @CheckDate(VarName, Goto Line) . For example, @CheckDate(NoPorn, Look At Porn Again) will go to the line (Look At Porn Again) if the current time and date has passed the value set + ' for the Variable "NoPorn" by @SetDate() + If StringClean.Contains("@CheckDate(") Then + Dim CheckArray As String() = StringClean.Split(")") - ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt + For i As Integer = 0 To CheckArray.Count - 1 - If StringClean.Contains("@DislikeBlogImage") Then - If ssh.ImageLocation <> "" Then + If CheckArray(i).Contains("@CheckDate(") Then - If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) + If CheckDateList(CheckArray(i), True) = True Then + Dim DateFlag As String = GetParentheses(CheckArray(i), "@CheckDate(") + DateFlag = FixCommas(DateFlag) + Dim DateArray As String() = DateFlag.Split(",") + ssh.SkipGotoLine = True + ssh.FileGoto = DateArray(DateArray.Count - 1).Replace(")", "") + GetGoto() End If - StringClean = StringClean.Replace("@DislikeBlogImage", "") - End If - End If - - ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - If StringClean.Contains("@LikeBlogImage") Then - If ssh.ImageLocation <> "" Then + StringClean = StringClean.Replace("@CheckDate(" & GetParentheses(CheckArray(i), "@CheckDate(") & ")", "") - If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) - Else - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) - End If - StringClean = StringClean.Replace("@LikeBlogImage", "") End If - End If - Debug.Print("SubStroking = " & ssh.SubStroking) - Debug.Print("SubEdging = " & ssh.SubEdging) - Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) + Next + End If - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ + ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. + ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the + ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next + ' response will be saved verbatim. @InputVar[] will pause Linear Scripts, as well as countdowns and taunts for Stroking, Edging and Holding The Edge. - If StringClean.Contains("@StrokeFaster") Then - ssh.StrokeFaster = True - StringClean = StringClean.Replace("@StrokeFaster", "") - End If + If StringClean.Contains("@InputVar[") Then - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ + ssh.InputString = GetParentheses(StringClean, "@InputVar[").Replace("]", "") + ssh.InputFlag = True + If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True - If StringClean.Contains("@StrokeSlower") Then - ssh.StrokeSlower = True - StringClean = StringClean.Replace("@StrokeSlower", "") - End If + StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") + End If - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - If StringClean.Contains("@StrokeFastest") Then - ssh.StrokeFastest = True - StringClean = StringClean.Replace("@StrokeFastest", "") - End If + ' The @DislikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Disliked" list located in [Tease AI Root Directory]\Images\System\DislikedImageURLS.txt - ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ - ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ - ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ + If StringClean.Contains("@DislikeBlogImage") Then + If ssh.ImageLocation <> "" Then - If StringClean.Contains("@StrokeSlowest") Then - ssh.StrokeSlowest = True - StringClean = StringClean.Replace("@StrokeSlowest", "") + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\DislikedImageURLs.txt", ssh.ImageLocation, True) + End If + StringClean = StringClean.Replace("@DislikeBlogImage", "") End If + End If + ' The @LikeBlogImage Command takes the URL of the most recently viewed blog image and adds it to the "Liked" list located in [Tease AI Root Directory]\Images\System\LikedImageURLS.txt - If StringClean.Contains("@StartStroking") Then - If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) + If StringClean.Contains("@LikeBlogImage") Then + If ssh.ImageLocation <> "" Then + + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", Environment.NewLine & ssh.ImageLocation, True) + Else + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Images\System\LikedImageURLs.txt", ssh.ImageLocation, True) End If + StringClean = StringClean.Replace("@LikeBlogImage", "") + End If + End If - SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) + Debug.Print("SubStroking = " & ssh.SubStroking) + Debug.Print("SubEdging = " & ssh.SubEdging) + Debug.Print("SubHoldingEdge = " & ssh.SubHoldingEdge) - If FrmSettings.TBWebStart.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) - Catch - End Try - End If + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘┴└─ - If StringClean.Contains("@Contact1") Then - ssh.Contact1Stroke = True - ElseIf StringClean.Contains("@Contact2") Then - ssh.Contact2Stroke = True - ElseIf StringClean.Contains("@Contact3") Then - ssh.Contact3Stroke = True - ElseIf StringClean.Contains("@RandomContact") Then - Dim casual As Integer = 0 - casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) - Select Case ssh.currentlyPresentContacts(casual) - Case ssh.SlideshowContact1.TypeName - ssh.Contact1Stroke = True - Case ssh.SlideshowContact2.TypeName - ssh.Contact2Stroke = True - Case ssh.SlideshowContact3.TypeName - ssh.Contact3Stroke = True - Case Else - End Select - End If + If StringClean.Contains("@StrokeFaster") Then + ssh.StrokeFaster = True + StringClean = StringClean.Replace("@StrokeFaster", "") + End If - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 - If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┬─┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ ├┬┘ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘┴└─ - If ssh.WorshipMode = True Then - StrokePace = NBMinPace.Value - ssh.StrokeSlowest = True - End If + If StringClean.Contains("@StrokeSlower") Then + ssh.StrokeSlower = True + StringClean = StringClean.Replace("@StrokeSlower", "") + End If - ClearModes() + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┌─┐┌─┐┌┬┐┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╠╣ ├─┤└─┐ │ ├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚ ┴ ┴└─┘ ┴ └─┘└─┘ ┴ - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - - If ssh.WorshipMode = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 - End If + If StringClean.Contains("@StrokeFastest") Then + ssh.StrokeFastest = True + StringClean = StringClean.Replace("@StrokeFastest", "") + End If - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 - End If - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - 'StrokeThread = New Thread(AddressOf StrokeLoop) - 'StrokeThread.IsBackground = True - 'StrokeThread.SetApartmentState(ApartmentState.STA) - 'StrokeThread.Start() - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartStroking", "") - End If - - If StringClean.Contains("@StartTaunts") Then - ssh.AskedToGiveUpSection = False - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.BeforeTease = False - ssh.SubStroking = True - ssh.ShowModule = False - 'StrokeCycle = -1 - If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True - ssh.StartStrokingCount += 1 - ' github patch StrokePace = 0 - ' github patch StrokePaceTimer.Interval = StrokePace + ' ╔═╗┌┬┐┬─┐┌─┐┬┌─┌─┐╔═╗┬ ┌─┐┬ ┬┌─┐┌─┐┌┬┐ + ' ╚═╗ │ ├┬┘│ │├┴┐├┤ ╚═╗│ │ ││││├┤ └─┐ │ + ' ╚═╝ ┴ ┴└─└─┘┴ ┴└─┘╚═╝┴─┘└─┘└┴┘└─┘└─┘ ┴ - ClearModes() + If StringClean.Contains("@StrokeSlowest") Then + ssh.StrokeSlowest = True + StringClean = StringClean.Replace("@StrokeSlowest", "") + End If - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - End If - ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) - StrokeTimer.Start() - StrokeTauntTimer.Start() - StringClean = StringClean.Replace("@StartTaunts", "") - End If - If StringClean.Contains("@StopStroking") Then - If FrmSettings.TBWebStop.Text <> "" Then - Try - FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) - Catch - End Try - End If - If ssh.Contact1Stroke = True Then - StringClean = StringClean & "@Contact1" - ssh.Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - StringClean = StringClean & "@Contact2" - ssh.Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - StringClean = StringClean & "@Contact3" - ssh.Contact3Stroke = False - End If - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - ssh.WorshipMode = False - ssh.WorshipTarget = "" - ssh.LongHold = False - ssh.ExtremeHold = False - ssh.HoldTaunts = False - ssh.LongTaunts = False - ssh.ExtremeTaunts = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - StrokePace = 0 - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopStroking", "") + If StringClean.Contains("@StartStroking") Then + If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun", SetDate, False) End If - If StringClean.Contains("@StopTaunts") Then - ssh.AskedToSpeedUp = False - ssh.AskedToSlowDown = False - ssh.SubStroking = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTauntTimer.Stop() - StringClean = StringClean.Replace("@StopTaunts", "") + SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) + + If FrmSettings.TBWebStart.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStart.Text) + Catch + End Try End If + If StringClean.Contains("@Contact1") Then + ssh.Contact1Stroke = True + ElseIf StringClean.Contains("@Contact2") Then + ssh.Contact2Stroke = True + ElseIf StringClean.Contains("@Contact3") Then + ssh.Contact3Stroke = True + ElseIf StringClean.Contains("@RandomContact") Then + Dim casual As Integer = 0 + casual = ssh.randomizer.Next(0, ssh.currentlyPresentContacts.Count) + Select Case ssh.currentlyPresentContacts(casual) + Case ssh.SlideshowContact1.TypeName + ssh.Contact1Stroke = True + Case ssh.SlideshowContact2.TypeName + ssh.Contact2Stroke = True + Case ssh.SlideshowContact3.TypeName + ssh.Contact3Stroke = True + Case Else + End Select + End If + + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + 'If FirstRound = True Then My.Settings.Sys_SubLeftEarly += 1 + If ssh.FirstRound = True Then SetVariable("SYS_SubLeftEarly", Val(GetVariable("SYS_SubLeftEarly")) + 1) + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + + If ssh.WorshipMode = True Then + StrokePace = NBMinPace.Value + ssh.StrokeSlowest = True + End If - If StringClean.Contains("@LongHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.LongHold = True + ClearModes() - StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") - End If + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 - If StringClean.Contains("@ExtremeHold(") Then - Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) - ssh.TempVal = ssh.randomizer.Next(0, 101) - If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True + If ssh.WorshipMode = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = 180 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = 240 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = 360 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = 480 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = 600 + End If - StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) + If ssh.WorshipMode = True Then ssh.StrokeTick = FrmSettings.NBTauntCycleMax.Value * 60 End If + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + 'StrokeThread = New Thread(AddressOf StrokeLoop) + 'StrokeThread.IsBackground = True + 'StrokeThread.SetApartmentState(ApartmentState.STA) + 'StrokeThread.Start() + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartStroking", "") + End If - If StringClean.Contains("@LongHold") Then - ssh.LongHold = True - StringClean = StringClean.Replace("@LongHold", "") + If StringClean.Contains("@StartTaunts") Then + ssh.AskedToGiveUpSection = False + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.BeforeTease = False + ssh.SubStroking = True + ssh.ShowModule = False + 'StrokeCycle = -1 + If ssh.StartStrokingCount = 0 Then ssh.FirstRound = True + ssh.StartStrokingCount += 1 + ' github patch StrokePace = 0 + ' github patch StrokePaceTimer.Interval = StrokePace + + ClearModes() + + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick = ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick = ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick = ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick = ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick = ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick = ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) End If + ssh.StrokeTauntTick = ssh.randomizer.Next(11, 21) + StrokeTimer.Start() + StrokeTauntTimer.Start() + StringClean = StringClean.Replace("@StartTaunts", "") + End If - If StringClean.Contains("@ExtremeHold") Then - ssh.ExtremeHold = True - StringClean = StringClean.Replace("@ExtremeHold", "") + If StringClean.Contains("@StopStroking") Then + If FrmSettings.TBWebStop.Text <> "" Then + Try + FrmSettings.WebToy.Navigate(FrmSettings.TBWebStop.Text) + Catch + End Try + End If + If ssh.Contact1Stroke = True Then + StringClean = StringClean & "@Contact1" + ssh.Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + StringClean = StringClean & "@Contact2" + ssh.Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + StringClean = StringClean & "@Contact3" + ssh.Contact3Stroke = False End If + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + ssh.WorshipMode = False + ssh.WorshipTarget = "" + ssh.LongHold = False + ssh.ExtremeHold = False + ssh.HoldTaunts = False + ssh.LongTaunts = False + ssh.ExtremeTaunts = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + StrokePace = 0 + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopStroking", "") + End If + + If StringClean.Contains("@StopTaunts") Then + ssh.AskedToSpeedUp = False + ssh.AskedToSlowDown = False + ssh.SubStroking = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTauntTimer.Stop() + StringClean = StringClean.Replace("@StopTaunts", "") + End If - If StringClean.Contains("@MultipleEdges(") Then - If StringClean.Contains("@Edg") Then - Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") + If StringClean.Contains("@LongHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@LongHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.LongHold = True - If EdgeArray.Count = 3 Then + StringClean = StringClean.Replace("@LongHold(" & GetParentheses(StringClean, "@LongHold(") & ")", "") + End If - If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then - ssh.MultipleEdges = True - ssh.MultipleEdgesAmount = Val(EdgeArray(0)) - ssh.MultipleEdgesInterval = Val(EdgeArray(1)) - End If + If StringClean.Contains("@ExtremeHold(") Then + Dim HoldInt As Integer = Val(GetParentheses(StringClean, "@ExtremeHold(")) + ssh.TempVal = ssh.randomizer.Next(0, 101) + If ssh.TempVal <= HoldInt Then ssh.ExtremeHold = True - Else + StringClean = StringClean.Replace("@ExtremeHold(" & GetParentheses(StringClean, "@ExtremeHold(") & ")", "") + End If + If StringClean.Contains("@LongHold") Then + ssh.LongHold = True + StringClean = StringClean.Replace("@LongHold", "") + End If + + If StringClean.Contains("@ExtremeHold") Then + ssh.ExtremeHold = True + StringClean = StringClean.Replace("@ExtremeHold", "") + End If + + If StringClean.Contains("@MultipleEdges(") Then + If StringClean.Contains("@Edg") Then + + Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") + + If EdgeArray.Count = 3 Then + + If ssh.randomizer.Next(1, 101) < Val(EdgeArray(2)) Then ssh.MultipleEdges = True ssh.MultipleEdgesAmount = Val(EdgeArray(0)) ssh.MultipleEdgesInterval = Val(EdgeArray(1)) - End If + Else + + ssh.MultipleEdges = True + ssh.MultipleEdgesAmount = Val(EdgeArray(0)) + ssh.MultipleEdgesInterval = Val(EdgeArray(1)) + End If - StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") End If + StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") + End If - If StringClean.Contains("@Edge(") Then - ContactEdgeCheck(StringClean) - Edge() + If StringClean.Contains("@Edge(") Then + ContactEdgeCheck(StringClean) - If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True - If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True - If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False + Edge() - If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True + If GetMatch(StringClean, "@Edge(", "Hold") = True Then ssh.EdgeHold = True + If GetMatch(StringClean, "@Edge(", "NoHold") = True Then ssh.EdgeNoHold = True + If ssh.EdgeHold = True And ssh.EdgeNoHold = True Then ssh.EdgeHold = False - If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True + If GetMatch(StringClean, "@Edge(", "Deny") = True Then ssh.OrgasmDenied = True - If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True + If GetMatch(StringClean, "@Edge(", "Orgasm") = True Then ssh.OrgasmAllowed = True - If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False + If GetMatch(StringClean, "@Edge(", "Ruin") = True Then ssh.OrgasmRuined = True - If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then - If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False - End If + If ssh.OrgasmAllowed = True And ssh.OrgasmRuined = True Then ssh.OrgasmRuined = False - If GetMatch(StringClean, "@Edge(", "LongHold") = True Then - ssh.EdgeHold = True - ssh.LongHold = True - End If - If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then - ssh.EdgeHold = True - ssh.ExtremeHold = True - End If - If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True And ssh.EdgeHold = True Then - If ssh.LongHold = True Then ssh.LongTaunts = True - If ssh.ExtremeHold = True Then ssh.ExtremeTaunts = True - If ssh.LongTaunts = False And ssh.ExtremeTaunts = False Then ssh.HoldTaunts = True - End If + If GetMatch(StringClean, "@Edge(", "RuinTaunts") = True Then + If ssh.EdgeToRuin = True Then ssh.EdgeToRuinSecret = False End If + If GetMatch(StringClean, "@Edge(", "LongHold") = True Then + ssh.EdgeHold = True + ssh.LongHold = True + End If + If GetMatch(StringClean, "@Edge(", "ExtremeHold") = True Then + ssh.EdgeHold = True + ssh.ExtremeHold = True + End If + If GetMatch(StringClean, "@Edge(", "HoldTaunts") = True And ssh.EdgeHold = True Then + If ssh.LongHold = True Then ssh.LongTaunts = True + If ssh.ExtremeHold = True Then ssh.ExtremeTaunts = True + If ssh.LongTaunts = False And ssh.ExtremeTaunts = False Then ssh.HoldTaunts = True + End If + End If - If StringClean.Contains("@EdgeMode(") Then - Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") - EdgeFlag = FixCommas(EdgeFlag) - Dim EdgeArray As String() = EdgeFlag.Split(",") - If UCase(EdgeArray(0)).Contains("GOTO") Then - ssh.edgeMode.GotoMode = True - ssh.edgeMode.GotoLine = EdgeArray(1) - End If + If StringClean.Contains("@EdgeMode(") Then + Dim EdgeFlag As String = GetParentheses(StringClean, "@EdgeMode(") + EdgeFlag = FixCommas(EdgeFlag) + Dim EdgeArray As String() = EdgeFlag.Split(",") - If UCase(EdgeArray(0)).Contains("MESSAGE") Then - ssh.edgeMode.MessageMode = True - ssh.edgeMode.MessageText = EdgeArray(1) - End If + If UCase(EdgeArray(0)).Contains("GOTO") Then + ssh.edgeMode.GotoMode = True + ssh.edgeMode.GotoLine = EdgeArray(1) + End If - If UCase(EdgeArray(0)).Contains("VIDEO") Then - ssh.edgeMode.VideoMode = True - ssh.edgeMode.GotoLine = EdgeArray(1) - End If + If UCase(EdgeArray(0)).Contains("MESSAGE") Then + ssh.edgeMode.MessageMode = True + ssh.edgeMode.MessageText = EdgeArray(1) + End If - If UCase(EdgeArray(0)).Contains("NORMAL") Then - ssh.edgeMode.Clear() - End If + If UCase(EdgeArray(0)).Contains("VIDEO") Then + ssh.edgeMode.VideoMode = True + ssh.edgeMode.GotoLine = EdgeArray(1) + End If - StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") + If UCase(EdgeArray(0)).Contains("NORMAL") Then + ssh.edgeMode.Clear() End If + StringClean = StringClean.Replace("@EdgeMode(" & GetParentheses(StringClean, "@EdgeMode(") & ")", "") + End If + If StringClean.Contains("@EdgeToRuinHoldNoSecret(") Then Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHoldNoSecret(") @@ -10231,1316 +10231,1349 @@ TaskCleanSet: End If If StringClean.Contains("@EdgeToRuinHoldNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - ssh.EdgeToRuinSecret = False - StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") - End If - - If StringClean.Contains("@EdgeToRuinNoSecret") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuinSecret = False - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") - End If - - If StringClean.Contains("@EdgeToRuinNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") - End If - - If StringClean.Contains("@EdgeToRuinHold(") Then - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + ssh.EdgeToRuinSecret = False + StringClean = StringClean.Replace("@EdgeToRuinHoldNoSecret", "") + End If - If EdgeHoldFlag.Contains(",") Then + If StringClean.Contains("@EdgeToRuinNoSecret") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuinSecret = False + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoSecret", "") + End If - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + If StringClean.Contains("@EdgeToRuinNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinNoHold", "") + End If - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If StringClean.Contains("@EdgeToRuinHold(") Then + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + If EdgeHoldFlag.Contains(",") Then - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - Else + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - End If + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - ssh.EdgeHoldFlag = True + Else - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeToRuinHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") End If - If StringClean.Contains("@EdgeToRuinHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuinHold", "") - End If + ssh.EdgeHoldFlag = True - If StringClean.Contains("@EdgeToRuin") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeToRuin = True - StringClean = StringClean.Replace("@EdgeToRuin", "") - End If + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True - If StringClean.Contains("@EdgeNoHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeNoHold = True - StringClean = StringClean.Replace("@EdgeNoHold", "") - End If + StringClean = StringClean.Replace("@EdgeToRuinHold(" & GetParentheses(StringClean, "@EdgeToRuinHold(") & ")", "") + End If + If StringClean.Contains("@EdgeToRuinHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuinHold", "") + End If - ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well - ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds - ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes - ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D - ' - 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. + If StringClean.Contains("@EdgeToRuin") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeToRuin = True + StringClean = StringClean.Replace("@EdgeToRuin", "") + End If - If StringClean.Contains("@EdgeHold(") Then - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") + If StringClean.Contains("@EdgeNoHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeNoHold = True + StringClean = StringClean.Replace("@EdgeNoHold", "") + End If - If EdgeHoldFlag.Contains(",") Then - EdgeHoldFlag = FixCommas(EdgeHoldFlag) + ' The Commands @EdgeHold(), @EdgeToRuinHold() and @EdgeToRuinHoldNoSecret() allow you to specify the amount of time the edge is held. The defualt is in seconds, but you can use Minutes and Hours as well + ' For example: @EdgeHold(60) would have the domme make you hold the edge for 60 seconds + ' @EdgeHold(3 Minutes) or @EdgeHold(3 M) - Domme will make you hold the edge for three minutes + ' @EdgeHold(2 Hours) - Domme will make you hold the edge for 2 hours. Good luck :D + ' + 'You can also set a time range using a comma. For example, @EdgeHold(2 Minutes, 5 Minutes) - the domme would make you hold it a random amount of time bwteen 2 and 5 minutes. - Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") + If StringClean.Contains("@EdgeHold(") Then + Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") - Dim Edge1 As Integer = Val(EdgeFlagArray(0)) - Dim Edge2 As Integer = Val(EdgeFlagArray(1)) + If EdgeHoldFlag.Contains(",") Then - If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 - If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 + EdgeHoldFlag = FixCommas(EdgeHoldFlag) - If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 - If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 + Dim EdgeFlagArray As String() = EdgeHoldFlag.Split(",") - ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) + Dim Edge1 As Integer = Val(EdgeFlagArray(0)) + Dim Edge2 As Integer = Val(EdgeFlagArray(1)) - Else + If UCase(EdgeFlagArray(0)).Contains("M") Then Edge1 *= 60 + If UCase(EdgeFlagArray(1)).Contains("M") Then Edge2 *= 60 - ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 - If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 + If UCase(EdgeFlagArray(0)).Contains("H") Then Edge1 *= 3600 + If UCase(EdgeFlagArray(1)).Contains("H") Then Edge2 *= 3600 - End If + ssh.EdgeHoldSeconds = ssh.randomizer.Next(Edge1, Edge2 + 1) - ssh.EdgeHoldFlag = True + Else + ssh.EdgeHoldSeconds = Val(EdgeHoldFlag) + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("M") Then ssh.EdgeHoldSeconds *= 60 + If UCase(GetParentheses(StringClean, "@EdgeHold(")).Contains("H") Then ssh.EdgeHoldSeconds *= 3600 - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") End If + ssh.EdgeHoldFlag = True - If StringClean.Contains("@EdgeHold") Then - ContactEdgeCheck(StringClean) - Edge() - ssh.EdgeHold = True - StringClean = StringClean.Replace("@EdgeHold", "") - End If - - If StringClean.Contains("@Edge") Then - ContactEdgeCheck(StringClean) - Edge() - StringClean = StringClean.Replace("@Edge", "") - End If - If StringClean.Contains("@CBTBalls") Then - If FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBallsActive = True - ssh.CBTBallsFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If - StringClean = StringClean.Replace("@CBTBalls", "") - End If + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") + End If - If StringClean.Contains("@CBTCock") Then - If FrmSettings.CBCBTCock.Checked = True Then - ssh.CBTCockActive = True - ssh.CBTCockFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If - StringClean = StringClean.Replace("@CBTCock", "") - End If - If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then - If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then - ssh.CBTBothActive = True - ssh.CBTBothFlag = True - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If + If StringClean.Contains("@EdgeHold") Then + ContactEdgeCheck(StringClean) + Edge() + ssh.EdgeHold = True + StringClean = StringClean.Replace("@EdgeHold", "") + End If - StringClean = StringClean.Replace("@CBT", "") + If StringClean.Contains("@Edge") Then + ContactEdgeCheck(StringClean) + Edge() + StringClean = StringClean.Replace("@Edge", "") + End If + + If StringClean.Contains("@CBTBalls") Then + If FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBallsActive = True + ssh.CBTBallsFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) End If + StringClean = StringClean.Replace("@CBTBalls", "") + End If + If StringClean.Contains("@CBTCock") Then + If FrmSettings.CBCBTCock.Checked = True Then + ssh.CBTCockActive = True + ssh.CBTCockFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If + StringClean = StringClean.Replace("@CBTCock", "") + End If - ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, - ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. + If StringClean.Contains("@CBT") And Not StringClean.Contains("@CBTLevel") Then + If FrmSettings.CBCBTCock.Checked = True And FrmSettings.CBCBTBalls.Checked = True Then + ssh.CBTBothActive = True + ssh.CBTBothFlag = True + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If - If StringClean.Contains("@CustomTask(") Then - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") + StringClean = StringClean.Replace("@CBT", "") + End If - CustomFlag = FixCommas(CustomFlag) - Dim CustomArray As String() = CustomFlag.Split(",") + ' The @CustomTask() Command works similarly to @CBTBalls and @CBTCock. It allows the user to have the domme run custom instructions from scripts located in Custom\Tasks. For example, + ' @CustomTask(Spanking) would pull its first instruction from Custom\Tasks\Spanking_First.txt, and all subsequent instructions would be pulled from Custom\Tasks\Spanking.txt. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And - File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then - ssh.CustomTask = True - ssh.CustomTaskActive = True - ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" - ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" - End If + If StringClean.Contains("@CustomTask(") Then + Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") - If CustomArray.Count > 1 Then - ssh.TasksCount = Val(CustomArray(1)) - Else - ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) - End If + CustomFlag = FixCommas(CustomFlag) + Dim CustomArray As String() = CustomFlag.Split(",") - StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt") And + File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt") Then + ssh.CustomTask = True + ssh.CustomTaskActive = True + ssh.CustomTaskText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & ".txt" + ssh.CustomTaskTextFirst = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Tasks\" & CustomArray(0) & "_First.txt" End If + If CustomArray.Count > 1 Then + ssh.TasksCount = Val(CustomArray(1)) + Else + ssh.TasksCount = ssh.randomizer.Next(FrmSettings.NBTasksMin.Value, FrmSettings.NBTasksMax.Value + 1) + End If - If StringClean.Contains("@DecideOrgasm") Then - ssh.OrgasmDenied = False - ssh.OrgasmAllowed = False - ssh.OrgasmRuined = False + StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") + End If - Dim AllowGoto As String = "Orgasm Allow" - Dim RuinGoto As String = "Orgasm Ruin" - Dim DenyGoto As String = "Orgasm Deny" - If StringClean.Contains("@DecideOrgasm(") Then - Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") - OrgasmFlag = FixCommas(OrgasmFlag) - Dim OrgasmArray As String() = OrgasmFlag.Split(",") + If StringClean.Contains("@DecideOrgasm") Then - If OrgasmArray.Count = 3 Then - AllowGoto = OrgasmArray(0) - RuinGoto = OrgasmArray(1) - DenyGoto = OrgasmArray(2) - End If + ssh.OrgasmDenied = False + ssh.OrgasmAllowed = False + ssh.OrgasmRuined = False - End If + Dim AllowGoto As String = "Orgasm Allow" + Dim RuinGoto As String = "Orgasm Ruin" + Dim DenyGoto As String = "Orgasm Deny" + If StringClean.Contains("@DecideOrgasm(") Then + Dim OrgasmFlag As String = GetParentheses(StringClean, "@DecideOrgasm(") + OrgasmFlag = FixCommas(OrgasmFlag) + Dim OrgasmArray As String() = OrgasmFlag.Split(",") - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True - GoTo OrgasmDecided + If OrgasmArray.Count = 3 Then + AllowGoto = OrgasmArray(0) + RuinGoto = OrgasmArray(1) + DenyGoto = OrgasmArray(2) End If - Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim OrgasmThreshold As Integer - - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 - - If FrmSettings.CBRangeOrgasm.Checked = True Then - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 - Else - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value - End If + End If - If OrgasmInt > OrgasmThreshold Then - ssh.FileGoto = DenyGoto - ssh.OrgasmDenied = True - GoTo OrgasmDecided - End If + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" And FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then + ssh.FileGoto = RuinGoto + ssh.OrgasmRuined = True + GoTo OrgasmDecided + End If - Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) - 'Debug.Print("OrgasmInt =" & OrgasmInt) - Dim RuinThreshold As Integer + Dim OrgasmInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim OrgasmThreshold As Integer - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then OrgasmThreshold = 0 + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then OrgasmThreshold = 1000 + If FrmSettings.CBRangeOrgasm.Checked = True Then + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = 20 + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = 50 + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = 75 + Else + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then OrgasmThreshold = FrmSettings.NBAllowRarely.Value + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then OrgasmThreshold = FrmSettings.NBAllowSometimes.Value + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then OrgasmThreshold = FrmSettings.NBAllowOften.Value + End If - If FrmSettings.CBRangeRuin.Checked = True Then - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 - Else - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value - End If + If OrgasmInt > OrgasmThreshold Then + ssh.FileGoto = DenyGoto + ssh.OrgasmDenied = True + GoTo OrgasmDecided + End If - If RuinInt > RuinThreshold Then - ssh.FileGoto = AllowGoto - ssh.OrgasmAllowed = True - Else - ssh.FileGoto = RuinGoto - ssh.OrgasmRuined = True - End If + Dim RuinInt As Integer = ssh.randomizer.Next(1, 101) + 'Debug.Print("OrgasmInt =" & OrgasmInt) + Dim RuinThreshold As Integer -OrgasmDecided: + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then RuinThreshold = 0 + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then RuinThreshold = 1000 - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@DecideOrgasm", "") + If FrmSettings.CBRangeRuin.Checked = True Then + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = 20 + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = 50 + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = 75 + Else + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then RuinThreshold = FrmSettings.NBRuinRarely.Value + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then RuinThreshold = FrmSettings.NBRuinSometimes.Value + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then RuinThreshold = FrmSettings.NBRuinOften.Value End If - If StringClean.Contains("@OrgasmRuin") Then - ssh.FileGoto = "Orgasm Ruin" + If RuinInt > RuinThreshold Then + ssh.FileGoto = AllowGoto + ssh.OrgasmAllowed = True + Else + ssh.FileGoto = RuinGoto ssh.OrgasmRuined = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmRuin", "") End If - If StringClean.Contains("@OrgasmDeny") Then - ssh.FileGoto = "Orgasm Deny" - ssh.OrgasmDenied = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmDeny", "") - End If +OrgasmDecided: - If StringClean.Contains("@OrgasmAllow") Then - ssh.FileGoto = "Orgasm Allow" - ssh.OrgasmAllowed = True - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@OrgasmAllow", "") - End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@DecideOrgasm", "") + End If - ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) - ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. + If StringClean.Contains("@OrgasmRuin") Then + ssh.FileGoto = "Orgasm Ruin" + ssh.OrgasmRuined = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmRuin", "") + End If - If StringClean.Contains("@Glitter(") Then - ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") - Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") + If StringClean.Contains("@OrgasmDeny") Then + ssh.FileGoto = "Orgasm Deny" + ssh.OrgasmDenied = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmDeny", "") + End If - If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then - ssh.UpdateList.Clear() - ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") - StatusUpdatePost() - End If - End If + If StringClean.Contains("@OrgasmAllow") Then + ssh.FileGoto = "Orgasm Allow" + ssh.OrgasmAllowed = True + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@OrgasmAllow", "") + End If - StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - End If - If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then - If StringClean.Contains("@WritingTask(") Then - ssh.randomWriteTask = False - StringClean = StringClean.Replace("@WritingTask", "") - Else - ssh.randomWriteTask = True - StringClean = StringClean.Replace("@WritingTaskRandom", "") - End If - ssh.WritingTaskFlag = True - setWriteTask() + ' The @Glitter Command allows to specify a specfic script from the domme's Apps\Glitter\Script directory, which will then immediately play out in the Glitter app. For example, @Glitter(About to Ruin) + ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. - Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) + If StringClean.Contains("@Glitter(") Then + ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") + Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") - If WritingTaskVal = 0 Then - ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) - ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) - Else - ssh.WritingTaskLinesAmount = WritingTaskVal - LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") + If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then + ssh.UpdateList.Clear() + ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") + StatusUpdatePost() End If + End If - LBLLinesWritten.Text = "0" - LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount + StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") + End If - If PNLWritingTask.Visible = False Then - CloseApp(PNLWritingTask) - End If + If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then + If StringClean.Contains("@WritingTask(") Then + ssh.randomWriteTask = False + StringClean = StringClean.Replace("@WritingTask", "") + Else + ssh.randomWriteTask = True + StringClean = StringClean.Replace("@WritingTaskRandom", "") + End If - 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) + ssh.WritingTaskFlag = True + setWriteTask() - 'determine error numbers based on numbers of lines to write - ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) - 'clamps the value between 2 and 10 errors - ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) - ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) + Dim WritingTaskVal As Integer = Val(LBLWritingTaskText.Text) - LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed - LBLMistakesMade.Text = "0" - 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." - ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount - ssh.WritingTaskLinesWritten = 0 - ssh.WritingTaskMistakesMade = 0 - chatBox.ShortcutsEnabled = False - ChatBox2.ShortcutsEnabled = False + If WritingTaskVal = 0 Then + ssh.WritingTaskLinesAmount = ssh.randomizer.Next(FrmSettings.NBWritingTaskMin.Value, FrmSettings.NBWritingTaskMax.Value) + ssh.WritingTaskLinesAmount = 5 * Math.Round(ssh.WritingTaskLinesAmount / 5) + Else + ssh.WritingTaskLinesAmount = WritingTaskVal + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(WritingTaskVal, "") + End If - If My.Settings.TimedWriting = True Then + LBLLinesWritten.Text = "0" + LBLLinesRemaining.Text = ssh.WritingTaskLinesAmount - Dim secs As Single + If PNLWritingTask.Visible = False Then + CloseApp(PNLWritingTask) + End If - 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings - '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) - secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * (LBLWritingTaskText.Text.Length - 3) - 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some - 'more time for very short lines - ssh.WritingTaskCurrentTime = 15 + secs * ssh.WritingTaskLinesAmount + 'WritingTaskMistakesAllowed = randomizer.Next(3, 9) - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") - Else - LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" - LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") - End If + 'determine error numbers based on numbers of lines to write + ssh.WritingTaskMistakesAllowed = ssh.randomizer.Next(ssh.WritingTaskLinesAmount / 10, ssh.WritingTaskLinesAmount / 3) + 'clamps the value between 2 and 10 errors + ssh.WritingTaskMistakesAllowed = Math.Max(2, ssh.WritingTaskMistakesAllowed) + ssh.WritingTaskMistakesAllowed = Math.Min(ssh.WritingTaskMistakesAllowed, 10) + + LBLMistakesAllowed.Text = ssh.WritingTaskMistakesAllowed + LBLMistakesMade.Text = "0" + 'LBLWritingTask.Text = "Write the following line " & WritingTaskLinesAmount & " times." + ssh.WritingTaskLinesRemaining = ssh.WritingTaskLinesAmount + ssh.WritingTaskLinesWritten = 0 + ssh.WritingTaskMistakesMade = 0 + chatBox.ShortcutsEnabled = False + ChatBox2.ShortcutsEnabled = False + + If My.Settings.TimedWriting = True Then + + Dim secs As Single + + 'determines how many secs are given for writing each line, depending on line length and typespeed value selected by the user in the settings + '(between 0,54 and 0,75 secs per character in the sentence at slowest typingspeed and between 0.18 and 0.25 at fastest typing speed) + secs = (ssh.randomizer.Next(15, 25) / My.Settings.TypeSpeed) * (LBLWritingTaskText.Text.Length - 3) + 'determines how much time is given (in seconds) to complete the @WritingTask() depending on how many lines you have to write and a small bonus to give some + 'more time for very short lines + ssh.WritingTaskCurrentTime = 15 + secs * ssh.WritingTaskLinesAmount + + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "In " & ConvertSeconds(ssh.WritingTaskCurrentTime) + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") + Else + LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" + LBLWritingTask.Text = LBLWritingTask.Text.Replace("line 1 times", "line 1 time") End If + End If - If StringClean.Contains("@CheckJOIVideo") Then - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then - Else - ssh.SkipGotoLine = True - ssh.FileGoto = "No JOI Found" - GetGoto() - End If + If StringClean.Contains("@CheckJOIVideo") Then + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + If FrmSettings.LblVideoJOITotal.Text <> "0" Or FrmSettings.LblVideoJOITotalD.Text <> "0" Then Else ssh.SkipGotoLine = True ssh.FileGoto = "No JOI Found" GetGoto() End If - - StringClean = StringClean.Replace("@CheckJOIVideo", "") + Else + ssh.SkipGotoLine = True + ssh.FileGoto = "No JOI Found" + GetGoto() End If - If StringClean.Contains("@PlayJOIVideo") Then - If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then + StringClean = StringClean.Replace("@CheckJOIVideo", "") + End If - ssh.TeaseVideo = True - PlayRandomJOI() - End If + If StringClean.Contains("@PlayJOIVideo") Then + If Directory.Exists(My.Settings.VideoJOI) Or Directory.Exists(My.Settings.VideoJOID) Then - StringClean = StringClean.Replace("@PlayJOIVideo", "") + ssh.TeaseVideo = True + PlayRandomJOI() End If - If StringClean.Contains("@PlayCHVideo") Then - If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then + StringClean = StringClean.Replace("@PlayJOIVideo", "") + End If - ssh.TeaseVideo = True - PlayRandomCH() - End If + If StringClean.Contains("@PlayCHVideo") Then + If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then - StringClean = StringClean.Replace("@PlayCHVideo", "") + ssh.TeaseVideo = True + PlayRandomCH() End If - If StringClean.Contains("@GiveUpCheck") Then - If ssh.AskedToGiveUpSection = True Then + StringClean = StringClean.Replace("@PlayCHVideo", "") + End If - If ssh.SubGaveUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" - Else - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" - End If - 'StringClean = ResponseClean(StringClean) + If StringClean.Contains("@GiveUpCheck") Then + If ssh.AskedToGiveUpSection = True Then + If ssh.SubGaveUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREHASH.txt" Else + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpREPEAT.txt" + End If + 'StringClean = ResponseClean(StringClean) - ssh.AskedToGiveUpSection = True - ssh.AskedToGiveUp = True + Else - Dim GiveUpCheck As Integer + ssh.AskedToGiveUpSection = True + ssh.AskedToGiveUp = True - If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 - If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 - If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 - If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 - If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 + Dim GiveUpCheck As Integer - Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) + If FrmSettings.NBEmpathy.Value = 1 Then GiveUpCheck = 0 + If FrmSettings.NBEmpathy.Value = 2 Then GiveUpCheck = 25 + If FrmSettings.NBEmpathy.Value = 3 Then GiveUpCheck = 50 + If FrmSettings.NBEmpathy.Value = 4 Then GiveUpCheck = 75 + If FrmSettings.NBEmpathy.Value = 5 Then GiveUpCheck = 1000 - 'If GiveUpVal > GiveUpCheck Then - If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then - ' you can give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.SubGaveUp = True - If ssh.TasksCount >= 1 Then ssh.TasksCount = 0 - 'ssh.FirstRound = False - Else - ' you can't give up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" + Dim GiveUpVal As Integer = ssh.randomizer.Next(1, 101) + + 'If GiveUpVal > GiveUpCheck Then + If GiveUpVal > GiveUpCheck And Not ssh.LastScript Then + ' you can give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpALLOWED.txt" + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If + ssh.SubGaveUp = True + If ssh.TasksCount >= 1 Then ssh.TasksCount = 0 + 'ssh.FirstRound = False + Else + ' you can't give up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\GiveUpDENIED.txt" End If - StringClean = ResponseClean(StringClean) End If + StringClean = ResponseClean(StringClean) + End If - If StringClean.Contains("@EndTease") Then - SetVariable("SYS_SubLeftEarly", 0) - 'My.Settings.Sys_SubLeftEarly = 0 - 'StopEverything() - 'ResetButton() - SaveChatLog(False) - ssh.Reset() - FrmSettings.LockOrgasmChances(False) - ssh.DomTask = "@SystemMessage Tease AI has been reset" - ssh.DomChat = "@SystemMessage Tease AI has been reset" - 'setStartName() - StringClean = StringClean.Replace("@EndTease", "") - End If + If StringClean.Contains("@EndTease") Then + SetVariable("SYS_SubLeftEarly", 0) + 'My.Settings.Sys_SubLeftEarly = 0 + 'StopEverything() + 'ResetButton() + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + ssh.DomTask = "@SystemMessage Tease AI has been reset" + ssh.DomChat = "@SystemMessage Tease AI has been reset" + 'setStartName() + StringClean = StringClean.Replace("@EndTease", "") + End If - If StringClean.Contains("@FinishTease") Then - ssh.TeaseTick = 0 - StringClean = StringClean.Replace("@FinishTease", "") - End If + If StringClean.Contains("@FinishTease") Then + ssh.TeaseTick = 0 + StringClean = StringClean.Replace("@FinishTease", "") + End If - If StringClean.Contains("@DommeLevelDown") Then - If FrmSettings.domlevelNumBox.Value > 1 Then - FrmSettings.domlevelNumBox.Value -= 1 - End If - StringClean = StringClean.Replace("@DommeLevelDown", "") + If StringClean.Contains("@DommeLevelDown") Then + If FrmSettings.domlevelNumBox.Value > 1 Then + FrmSettings.domlevelNumBox.Value -= 1 End If + StringClean = StringClean.Replace("@DommeLevelDown", "") + End If - If StringClean.Contains("@ApathyLevelDown") Then - If FrmSettings.NBEmpathy.Value > 1 Then - FrmSettings.NBEmpathy.Value -= 1 - End If - StringClean = StringClean.Replace("@ApathyLevelDown", "") + If StringClean.Contains("@ApathyLevelDown") Then + If FrmSettings.NBEmpathy.Value > 1 Then + FrmSettings.NBEmpathy.Value -= 1 End If + StringClean = StringClean.Replace("@ApathyLevelDown", "") + End If - If StringClean.Contains("@DommeLevelUp") Then - If FrmSettings.domlevelNumBox.Value < 5 Then - FrmSettings.domlevelNumBox.Value += 1 - End If - StringClean = StringClean.Replace("@DommeLevelUp", "") + If StringClean.Contains("@DommeLevelUp") Then + If FrmSettings.domlevelNumBox.Value < 5 Then + FrmSettings.domlevelNumBox.Value += 1 End If + StringClean = StringClean.Replace("@DommeLevelUp", "") + End If - If StringClean.Contains("@ApathyLevelUp") Then - If FrmSettings.NBEmpathy.Value < 5 Then - FrmSettings.NBEmpathy.Value += 1 - End If - StringClean = StringClean.Replace("@ApathyLevelUp", "") + If StringClean.Contains("@ApathyLevelUp") Then + If FrmSettings.NBEmpathy.Value < 5 Then + FrmSettings.NBEmpathy.Value += 1 End If + StringClean = StringClean.Replace("@ApathyLevelUp", "") + End If - If StringClean.Contains("@InterruptLongEdge") Then - ssh.isLink = False - ssh.BeforeTease = False - Dim EdgeList As New List(Of String) - - For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - EdgeList.Add(EdgeFile) - Next + If StringClean.Contains("@InterruptLongEdge") Then + ssh.isLink = False + ssh.BeforeTease = False + Dim EdgeList As New List(Of String) - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) + For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + EdgeList.Add(EdgeFile) + Next - If EdgeList.Count > 0 Then + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - GotoClear() + If EdgeList.Count > 0 Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True + GotoClear() - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If - StringClean = StringClean.Replace("@InterruptLongEdge", "") - ssh.JustShowedBlogImage = True - End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - If StringClean.Contains("@InterruptStartStroking") Then - ssh.isLink = False - ssh.BeforeTease = False - If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then - StringClean = "Ask me later" - GoTo VTSkip - End If + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + StringClean = StringClean.Replace("@InterruptLongEdge", "") + ssh.JustShowedBlogImage = True + End If - Dim StrokeList As New List(Of String) + If StringClean.Contains("@InterruptStartStroking") Then + ssh.isLink = False + ssh.BeforeTease = False + If ssh.CensorshipGame = True Or ssh.AvoidTheEdgeGame = True Or ssh.RLGLGame = True Then + StringClean = "Ask me later" + GoTo VTSkip + End If - For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - StrokeList.Add(StrokeFile) - Next + Dim StrokeList As New List(Of String) - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) + For Each StrokeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + StrokeList.Add(StrokeFile) + Next - If StrokeList.Count > 0 Then + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - GotoClear() + If StrokeList.Count > 0 Then - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True + GotoClear() - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = StrokeList(ssh.randomizer.Next(0, StrokeList.Count)) + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If - StringClean = StringClean.Replace("@InterruptStartStroking", "") - ssh.JustShowedBlogImage = True + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True + + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Stroking!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure at lease one StartStroking_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + StringClean = StringClean.Replace("@InterruptStartStroking", "") + ssh.JustShowedBlogImage = True + End If - If StringClean.Contains("@Interrupt(") Then - ssh.isLink = False - ssh.BeforeTease = False - Dim InterruptClean As String = StringClean - Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 - For i As Integer = 1 To StartIndex - InterruptClean = InterruptClean.Remove(0, 1) - Next - Dim InterruptS As String() = InterruptClean.Split(")") - InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" + If StringClean.Contains("@Interrupt(") Then + ssh.isLink = False + ssh.BeforeTease = False + Dim InterruptClean As String = StringClean + Dim StartIndex As Integer = InterruptClean.IndexOf("@Interrupt(") + 11 + For i As Integer = 1 To StartIndex + InterruptClean = InterruptClean.Remove(0, 1) + Next + Dim InterruptS As String() = InterruptClean.Split(")") + InterruptClean = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt" - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\" & InterruptS(0) & ".txt") Then - GotoClear() + GotoClear() - ssh.FirstRound = False - ssh.CBTCockFlag = False - ssh.CBTBallsFlag = False - ssh.CBTBothFlag = False - ssh.CustomTask = False - ssh.SubEdging = False - ssh.SubHoldingEdge = False - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.MultiTauntPictureHold = False - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() + ssh.FirstRound = False + ssh.CBTCockFlag = False + ssh.CBTBallsFlag = False + ssh.CBTBothFlag = False + ssh.CustomTask = False + ssh.SubEdging = False + ssh.SubHoldingEdge = False + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.MultiTauntPictureHold = False + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() - 'if we use an interrupt we have to clear all the values stored in the @CallReturn array because @Interrupts stop everything - 'and then moves to a link (otherwise we'd have the program going back to these @CallReturn the next time a new @CallReturn is called) - ssh.CallReturns.Clear() + 'if we use an interrupt we have to clear all the values stored in the @CallReturn array because @Interrupts stop everything + 'and then moves to a link (otherwise we'd have the program going back to these @CallReturn the next time a new @CallReturn is called) + ssh.CallReturns.Clear() - ssh.FileText = InterruptClean - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True - Else - MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ - & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + ssh.FileText = InterruptClean + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True End If - StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") - 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") - ssh.JustShowedBlogImage = True - End If - - If StringClean.Contains("@BookmarkModule") Then - ssh.BookmarkModule = True - ssh.BookmarkModuleFile = ssh.FileText - ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkModule", "") - End If - - If StringClean.Contains("@BookmarkLink") Then - ssh.BookmarkLink = True - ssh.BookmarkLinkFile = ssh.FileText - ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 - StringClean = StringClean.Replace("@BookmarkLink", "") - End If - - If StringClean.Contains("@AFKOn") Then - ssh.AFK = True - StringClean = StringClean.Replace("@AFKOn", "") - End If - - If StringClean.Contains("@AFKOff") Then - ssh.AFK = False - StringClean = StringClean.Replace("@AFKOff", "") + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True + Else + MessageBox.Show(Me, InterruptS(0) & ".txt was not found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt!" & Environment.NewLine _ + & Environment.NewLine & "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + StringClean = StringClean.Replace("@Interrupt(" & InterruptS(0) & ")", "") + 'Debug.Print("StringClean INterrupt Remove = " & "@Interrupt(" & InterruptS(0) & ")") + ssh.JustShowedBlogImage = True + End If - If StringClean.Contains("@Wait(") Then - - Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") - Dim WaitSeconds As Integer = Val(WaitFlag) + If StringClean.Contains("@BookmarkModule") Then + ssh.BookmarkModule = True + ssh.BookmarkModuleFile = ssh.FileText + ssh.BookmarkModuleLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkModule", "") + End If - If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 - If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 + If StringClean.Contains("@BookmarkLink") Then + ssh.BookmarkLink = True + ssh.BookmarkLinkFile = ssh.FileText + ssh.BookmarkLinkLine = ssh.StrokeTauntVal + 1 + StringClean = StringClean.Replace("@BookmarkLink", "") + End If - ssh.WaitTick = WaitSeconds - WaitTimer.Start() + If StringClean.Contains("@AFKOn") Then + ssh.AFK = True + StringClean = StringClean.Replace("@AFKOn", "") + End If - StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") - End If + If StringClean.Contains("@AFKOff") Then + ssh.AFK = False + StringClean = StringClean.Replace("@AFKOff", "") + End If + If StringClean.Contains("@Wait(") Then + Dim WaitFlag As String = GetParentheses(StringClean, "Wait(") + Dim WaitSeconds As Integer = Val(WaitFlag) - If StringClean.Contains("@SendDailyTasks") Then - CreateTaskLetter() - StringClean = StringClean.Replace("@SendDailyTasks", "") - End If + If UCase(WaitFlag).Contains("M") Then WaitSeconds *= 60 + If UCase(WaitFlag).Contains("H") Then WaitSeconds *= 3600 - If StringClean.Contains("@EdgingHold") Then + ssh.WaitTick = WaitSeconds + WaitTimer.Start() - 'ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - ssh.SubHoldingEdge = True - EdgeTauntTimer.Stop() - ssh.DomChat = "#HoldTheEdge" - TypingDelay() + StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") + End If - ssh.HoldEdgeTick = ssh.HoldEdgeChance - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + If StringClean.Contains("@SendDailyTasks") Then + CreateTaskLetter() + StringClean = StringClean.Replace("@SendDailyTasks", "") + End If - If ssh.ExtremeHold = True Then - HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 - End If + If StringClean.Contains("@EdgingHold") Then - If ssh.LongHold = True Then - HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 - HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 - End If + 'ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + ssh.SubHoldingEdge = True + EdgeTauntTimer.Stop() + ssh.DomChat = "#HoldTheEdge" + TypingDelay() + ssh.HoldEdgeTick = ssh.HoldEdgeChance - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 - ssh.HoldEdgeTime = 0 + If ssh.ExtremeHold = True Then + HoldEdgeMin = FrmSettings.NBExtremeHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBExtremeHoldMax.Value * 60 + End If - HoldEdgeTimer.Start() - HoldEdgeTauntTimer.Start() + If ssh.LongHold = True Then + HoldEdgeMin = FrmSettings.NBLongHoldMin.Value * 60 + HoldEdgeMax = FrmSettings.NBLongHoldMax.Value * 60 + End If - 'Do - 'Application.DoEvents() - 'Loop Until ssh.DomTypeCheck = False + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - StringClean = StringClean.Replace("@EdgingHold", "") - End If + ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - If StringClean.Contains("@EdgingStop") Then + ssh.HoldEdgeTime = 0 - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() - ssh.DomChat = "#StopStrokingEdge" - TypingDelay() + HoldEdgeTimer.Start() + HoldEdgeTauntTimer.Start() - StringClean = StringClean.Replace("@EdgingStop", "") - End If + 'Do + 'Application.DoEvents() + 'Loop Until ssh.DomTypeCheck = False - 'Github Patch If StringClean.Contains("@EdgingDecide") Then - If StringClean.Contains("@DecideEdge") Then - ssh.TempVal = ssh.randomizer.Next(0, 101) + StringClean = StringClean.Replace("@EdgingHold", "") + End If - If ssh.TempVal < 51 Then + If StringClean.Contains("@EdgingStop") Then - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - ssh.SubHoldingEdge = True - EdgeTauntTimer.Stop() - StrokePace = 0 - ssh.DomChat = "#HoldTheEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #HoldTheEdge" - ' Github Patch Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #HoldTheEdge" - ' Github Patch Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #HoldTheEdge" - ' Github Patch Contact3Stroke = False - End If - TypingDelay() + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() + ssh.DomChat = "#StopStrokingEdge" + TypingDelay() - ssh.HoldEdgeTick = ssh.HoldEdgeChance + StringClean = StringClean.Replace("@EdgingStop", "") + End If - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + 'Github Patch If StringClean.Contains("@EdgingDecide") Then + If StringClean.Contains("@DecideEdge") Then - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + ssh.TempVal = ssh.randomizer.Next(0, 101) - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + If ssh.TempVal < 51 Then - ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + ssh.SubHoldingEdge = True + EdgeTauntTimer.Stop() + StrokePace = 0 + ssh.DomChat = "#HoldTheEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #HoldTheEdge" + ' Github Patch Contact1Stroke = False + End If + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #HoldTheEdge" + ' Github Patch Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #HoldTheEdge" + ' Github Patch Contact3Stroke = False + End If + TypingDelay() - ssh.HoldEdgeTime = 0 + ssh.HoldEdgeTick = ssh.HoldEdgeChance - HoldEdgeTimer.Start() - HoldEdgeTauntTimer.Start() + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - Else + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 - ssh.DomTypeCheck = True - ssh.SubEdging = False - ssh.SubStroking = False - EdgeTauntTimer.Stop() - ssh.DomChat = "#StopStrokingEdge" - If ssh.Contact1Stroke = True Then - ssh.DomChat = "@Contact1 #StopStrokingEdge" - ssh.Contact1Stroke = False - End If - If ssh.Contact2Stroke = True Then - ssh.DomChat = "@Contact2 #StopStrokingEdge" - ssh.Contact2Stroke = False - End If - If ssh.Contact3Stroke = True Then - ssh.DomChat = "@Contact3 #StopStrokingEdge" - ssh.Contact3Stroke = False - End If - TypingDelay() + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - End If - 'Do - 'Application.DoEvents() - 'Loop Until ssh.DomTypeCheck = False - StringClean = StringClean.Replace("@DecideEdge", "") - End If + ssh.HoldEdgeTick = ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - If StringClean.Contains("@CheckVideo") Then - ssh.VideoCheck = True - RandomVideo() - If ssh.NoVideo = True Then - ssh.FileGoto = "(No Videos Found)" - Else - ssh.FileGoto = "(Videos Found)" + ssh.HoldEdgeTime = 0 + + HoldEdgeTimer.Start() + HoldEdgeTauntTimer.Start() + + Else + + ssh.DomTypeCheck = True + ssh.SubEdging = False + ssh.SubStroking = False + EdgeTauntTimer.Stop() + ssh.DomChat = "#StopStrokingEdge" + If ssh.Contact1Stroke = True Then + ssh.DomChat = "@Contact1 #StopStrokingEdge" + ssh.Contact1Stroke = False End If - ssh.VideoCheck = False - ssh.NoVideo = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@CheckVideo", "") + If ssh.Contact2Stroke = True Then + ssh.DomChat = "@Contact2 #StopStrokingEdge" + ssh.Contact2Stroke = False + End If + If ssh.Contact3Stroke = True Then + ssh.DomChat = "@Contact3 #StopStrokingEdge" + ssh.Contact3Stroke = False + End If + TypingDelay() + End If + 'Do + 'Application.DoEvents() + 'Loop Until ssh.DomTypeCheck = False + StringClean = StringClean.Replace("@DecideEdge", "") + End If - If StringClean.Contains("@PlayCensorshipSucks") Then + If StringClean.Contains("@CheckVideo") Then + ssh.VideoCheck = True + RandomVideo() + If ssh.NoVideo = True Then + ssh.FileGoto = "(No Videos Found)" + Else + ssh.FileGoto = "(Videos Found)" + End If + ssh.VideoCheck = False + ssh.NoVideo = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckVideo", "") + End If - If StringClean.Contains("@PlayCensorshipSucks[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") - selectVideo(videoFlag) - StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") - Else - RandomVideo() - StringClean = StringClean.Replace("@PlayCensorshipSucks", "") - End If + If StringClean.Contains("@PlayCensorshipSucks") Then - If ssh.NoVideo = False Then - ssh.ScriptVideoTease = "Censorship Sucks" - ssh.ScriptVideoTeaseFlag = True - ssh.ScriptVideoTeaseFlag = False - ssh.CensorshipGame = True - ssh.VideoTease = True - ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) - CensorshipTimer.Start() - End If + If StringClean.Contains("@PlayCensorshipSucks[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayCensorshipSucks[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") + Else + RandomVideo() StringClean = StringClean.Replace("@PlayCensorshipSucks", "") End If - If StringClean.Contains("@VitalSubAssignment") Then - ' Read all lines of the given file. - Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") - - Dim TempAssign As String + If ssh.NoVideo = False Then + ssh.ScriptVideoTease = "Censorship Sucks" + ssh.ScriptVideoTeaseFlag = True + ssh.ScriptVideoTeaseFlag = False + ssh.CensorshipGame = True + ssh.VideoTease = True + ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) + CensorshipTimer.Start() + End If + StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + End If - Try - AssignList = FilterList(AssignList) - TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) - Catch - TempAssign = "ERROR: VitalSub Assign" - End Try + If StringClean.Contains("@VitalSubAssignment") Then + ' Read all lines of the given file. + Dim AssignList As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\VitalSub\Assignments.txt") - Dim TempArray As String() = Split(TempAssign) + Dim TempAssign As String - For i As Integer = TempArray.Count - 1 To 0 Step -1 - If TempArray(i).Contains("@") Then TempArray(i) = "" - Next + Try + AssignList = FilterList(AssignList) + TempAssign = AssignList(ssh.randomizer.Next(0, AssignList.Count)) + Catch + TempAssign = "ERROR: VitalSub Assign" + End Try + Dim TempArray As String() = Split(TempAssign) - CLBExercise.Items.Add(TempAssign) - SaveExercise() - CBVitalSubDomTask.Checked = False - My.Settings.VitalSubAssignments = False - StringClean = StringClean.Replace("@VitalSubAssignment", "") - End If + For i As Integer = TempArray.Count - 1 To 0 Step -1 + If TempArray(i).Contains("@") Then TempArray(i) = "" + Next - If StringClean.Contains("@PlayAvoidTheEdge") Then - ' #### Reboot - If StringClean.Contains("@PlayAvoidTheEdge[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") - selectVideo(videoFlag) - StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") - Else - RandomVideo() - StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") - End If - If ssh.NoVideo = False Then + CLBExercise.Items.Add(TempAssign) + SaveExercise() + CBVitalSubDomTask.Checked = False + My.Settings.VitalSubAssignments = False + StringClean = StringClean.Replace("@VitalSubAssignment", "") + End If - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "Avoid The Edge" - ssh.ScriptVideoTeaseFlag = True - ssh.AvoidTheEdgeStroking = True - ssh.AvoidTheEdgeGame = True - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - AvoidTheEdgeTaunts.Start() - End If + If StringClean.Contains("@PlayAvoidTheEdge") Then + ' #### Reboot + If StringClean.Contains("@PlayAvoidTheEdge[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayAvoidTheEdge[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") + Else + RandomVideo() StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") End If - If StringClean.Contains("@ResumeAvoidTheEdge") Then - DomWMP.Ctlcontrols.play() + If ssh.NoVideo = False Then + ScriptTimer.Stop() - ssh.AvoidTheEdgeStroking = True ssh.SubStroking = True - ssh.StartStrokingCount += 1 + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "Avoid The Edge" + ssh.ScriptVideoTeaseFlag = True + ssh.AvoidTheEdgeStroking = True + ssh.AvoidTheEdgeGame = True + ssh.ScriptVideoTeaseFlag = False ssh.VideoTease = True + ssh.StartStrokingCount += 1 StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) StrokePace = 50 * Math.Round(StrokePace / 50) ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() - StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") End If + StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") + End If - If StringClean.Contains("@PlayRedLightGreenLight") Then - ' #### Reboot - If StringClean.Contains("@PlayRedLightGreenLight[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") - selectVideo(videoFlag) - StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") - Else - RandomVideo() - StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") - End If - - If ssh.NoVideo = False Then - - ScriptTimer.Stop() - ssh.SubStroking = True - ssh.TempStrokeTauntVal = ssh.StrokeTauntVal - ssh.TempFileText = ssh.FileText - ssh.ScriptVideoTease = "RLGL" - ssh.ScriptVideoTeaseFlag = True - 'AvoidTheEdgeStroking = True - ssh.RLGLGame = True - - ssh.ScriptVideoTeaseFlag = False - ssh.VideoTease = True - ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) - RLGLTimer.Start() - ssh.StartStrokingCount += 1 - StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) - StrokePace = 50 * Math.Round(StrokePace / 50) - 'VideoTauntTick = randomizer.Next(20, 31) - 'VideoTauntTimer.Start() - End If + If StringClean.Contains("@ResumeAvoidTheEdge") Then + DomWMP.Ctlcontrols.play() + ScriptTimer.Stop() + ssh.AvoidTheEdgeStroking = True + ssh.SubStroking = True + ssh.StartStrokingCount += 1 + ssh.VideoTease = True + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + AvoidTheEdgeTaunts.Start() + StringClean = StringClean.Replace("@ResumeAvoidTheEdge", "") + End If + + If StringClean.Contains("@PlayRedLightGreenLight") Then + ' #### Reboot + If StringClean.Contains("@PlayRedLightGreenLight[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayRedLightGreenLight[") + selectVideo(videoFlag) + StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") + Else + RandomVideo() StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") End If - If StringClean.Contains("@PlayVideo[") Then - Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") - selectVideo(videoFlag) + If ssh.NoVideo = False Then - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + ScriptTimer.Stop() + ssh.SubStroking = True + ssh.TempStrokeTauntVal = ssh.StrokeTauntVal + ssh.TempFileText = ssh.FileText + ssh.ScriptVideoTease = "RLGL" + ssh.ScriptVideoTeaseFlag = True + 'AvoidTheEdgeStroking = True + ssh.RLGLGame = True + + ssh.ScriptVideoTeaseFlag = False + ssh.VideoTease = True + ssh.RLGLTick = ssh.randomizer.Next(FrmSettings.NBGreenLightMin.Value, FrmSettings.NBGreenLightMax.Value + 1) + RLGLTimer.Start() + ssh.StartStrokingCount += 1 + StrokePace = ssh.randomizer.Next(NBMaxPace.Value, NBMinPace.Value + 1) + StrokePace = 50 * Math.Round(StrokePace / 50) + 'VideoTauntTick = randomizer.Next(20, 31) + 'VideoTauntTimer.Start() + End If + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") + End If + + If StringClean.Contains("@PlayVideo[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") + selectVideo(videoFlag) - StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - If StringClean.Contains("@PlayAudio[") Then - Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") - ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag - Dim AudioClean As String + StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") + End If - If AudioFlag.Contains(":\") Then - AudioClean = AudioFlag - Else - AudioClean = Application.StartupPath & "\Audio\" & AudioFlag - AudioClean = AudioClean.Replace("\\", "\") - End If + If StringClean.Contains("@PlayAudio[") Then + Dim AudioFlag As String = GetParentheses(StringClean, "@PlayAudio[") + ' Github Patch Dim AudioClean As String = Application.StartupPath & "\Video\" & AudioFlag + Dim AudioClean As String - If AudioClean.Contains("*") Then + If AudioFlag.Contains(":\") Then + AudioClean = AudioFlag + Else + AudioClean = Application.StartupPath & "\Audio\" & AudioFlag + AudioClean = AudioClean.Replace("\\", "\") + End If - Dim AudioList As New List(Of String) + If AudioClean.Contains("*") Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) - AudioList.Add(foundFile) - Next + Dim AudioList As New List(Of String) - If AudioList.Count > 0 Then - DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) - Else - MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Path.GetDirectoryName(AudioClean), FileIO.SearchOption.SearchTopLevelOnly, Path.GetFileName(AudioClean)) + AudioList.Add(foundFile) + Next + + If AudioList.Count > 0 Then + DomWMP.URL = AudioList(ssh.randomizer.Next(0, AudioList.Count)) Else - If File.Exists(AudioClean) Then - DomWMP.URL = AudioClean - Else - MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + MessageBox.Show(Me, "No audio files matching " & Path.GetFileName(AudioClean) & " were found in " & Path.GetDirectoryName(AudioClean) & "!" & Environment.NewLine & Environment.NewLine & + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + Else + If File.Exists(AudioClean) Then + DomWMP.URL = AudioClean + Else + MessageBox.Show(Me, Path.GetFileName(AudioClean) & " was not found in " & Application.StartupPath & "\Audio!" & Environment.NewLine & Environment.NewLine & + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If -ExternalAudio: - StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") End If +ExternalAudio: + StringClean = StringClean.Replace("@PlayAudio[" & AudioFlag & "]", "") + End If - If StringClean.Contains("@PlayVideo(") Then - + If StringClean.Contains("@PlayVideo(") Then - Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") - Dim VidInt As Integer = Val(VidFlag) - If UCase(VidFlag).Contains("M") Then VidInt *= 60 - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") + Dim VidInt As Integer = Val(VidFlag) + If UCase(VidFlag).Contains("M") Then VidInt *= 60 - ssh.RandomizerVideo = True - RandomVideo() + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - ssh.VideoTick = VidInt - VideoTimer.Start() - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + ssh.RandomizerVideo = True + RandomVideo() - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + ssh.VideoTick = VidInt + VideoTimer.Start() + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") + End If - If StringClean.Contains("@PlayVideo") Then - If StringClean.Contains("@JumpVideo") Then - ssh.JumpVideo = True - StringClean = StringClean.Replace("@JumpVideo", "") - End If + If StringClean.Contains("@PlayVideo") Then - ssh.RandomizerVideo = True - RandomVideo() + If StringClean.Contains("@JumpVideo") Then + ssh.JumpVideo = True + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If ssh.NoVideo = False Then - ssh.TeaseVideo = True - Else - MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - End If + ssh.RandomizerVideo = True + RandomVideo() - ssh.RandomizerVideo = False - StringClean = StringClean.Replace("@PlayVideo", "") + If ssh.NoVideo = False Then + ssh.TeaseVideo = True + Else + MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If - If StringClean.Contains("@JumpVideo") Then + ssh.RandomizerVideo = False + StringClean = StringClean.Replace("@PlayVideo", "") + End If - If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then - Dim VideoLength As Integer = DomWMP.currentMedia.duration - Dim VidLow As Integer = VideoLength * 0.4 - Dim VidHigh As Integer = VideoLength * 0.9 - Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) + If StringClean.Contains("@JumpVideo") Then - Debug.Print("VidLow = " & VidLow) - Debug.Print("VidHigh = " & VidHigh) - Debug.Print("VidPoint = " & VidPoint) + If (DomWMP.playState = WMPLib.WMPPlayState.wmppsPlaying) Then + Dim VideoLength As Integer = DomWMP.currentMedia.duration + Dim VidLow As Integer = VideoLength * 0.4 + Dim VidHigh As Integer = VideoLength * 0.9 + Dim VidPoint As Integer = ssh.randomizer.Next(VidLow, VidHigh) - DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint + Debug.Print("VidLow = " & VidLow) + Debug.Print("VidHigh = " & VidHigh) + Debug.Print("VidPoint = " & VidPoint) + + DomWMP.Ctlcontrols.currentPosition = VideoLength - VidPoint - End If - StringClean = StringClean.Replace("@JumpVideo", "") End If + StringClean = StringClean.Replace("@JumpVideo", "") + End If - If StringClean.Contains("@AddStrokeTime(") Then + If StringClean.Contains("@AddStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@AddStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 - End If - ssh.StrokeTick += StrokeSeconds + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 End If - StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") + ssh.StrokeTick += StrokeSeconds End If + StringClean = StringClean.Replace("@AddStrokeTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@RemoveStrokeTime(") Then + If StringClean.Contains("@RemoveStrokeTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If StrokeTimer.Enabled = True Then + If StrokeTimer.Enabled = True Then - Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") - OriginalFlag = StrokeFlag - Dim StrokeSeconds As Integer + Dim StrokeFlag As String = GetParentheses(StringClean, "@RemoveStrokeTime(") + OriginalFlag = StrokeFlag + Dim StrokeSeconds As Integer - If StrokeFlag.Contains(",") Then - StrokeFlag = FixCommas(StrokeFlag) - Dim StrokeFlagArray As String() = StrokeFlag.Split(",") - Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) - Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) - If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 - If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 - If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 - If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 - StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) - Else - StrokeSeconds = Val(StrokeFlag) - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 - End If - ssh.StrokeTick -= StrokeSeconds - If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 + If StrokeFlag.Contains(",") Then + StrokeFlag = FixCommas(StrokeFlag) + Dim StrokeFlagArray As String() = StrokeFlag.Split(",") + Dim Stroke1 As Integer = Val(StrokeFlagArray(0)) + Dim Stroke2 As Integer = Val(StrokeFlagArray(1)) + If UCase(StrokeFlagArray(0)).Contains("M") Then Stroke1 *= 60 + If UCase(StrokeFlagArray(1)).Contains("M") Then Stroke2 *= 60 + If UCase(StrokeFlagArray(0)).Contains("H") Then Stroke1 *= 3600 + If UCase(StrokeFlagArray(1)).Contains("H") Then Stroke2 *= 3600 + StrokeSeconds = ssh.randomizer.Next(Stroke1, Stroke2 + 1) + Else + StrokeSeconds = Val(StrokeFlag) + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("M") Then StrokeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveStrokeTime(")).Contains("H") Then StrokeSeconds *= 3600 End If - StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") + ssh.StrokeTick -= StrokeSeconds + If ssh.StrokeTick < 0 Then ssh.StrokeTick = 5 End If + StringClean = StringClean.Replace("@RemoveStrokeTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@AddStrokeTime") Then - If StrokeTimer.Enabled = True Then - If FrmSettings.CBTauntCycleDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 - Else - ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) - End If + If StringClean.Contains("@AddStrokeTime") Then + If StrokeTimer.Enabled = True Then + If FrmSettings.CBTauntCycleDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.StrokeTick += ssh.randomizer.Next(1, 3) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.StrokeTick += ssh.randomizer.Next(1, 4) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.StrokeTick += ssh.randomizer.Next(3, 6) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.StrokeTick += ssh.randomizer.Next(4, 8) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.StrokeTick += ssh.randomizer.Next(5, 11) * 60 + Else + ssh.StrokeTick += ssh.randomizer.Next(FrmSettings.NBTauntCycleMin.Value * 60, FrmSettings.NBTauntCycleMax.Value * 60) End If - StringClean = StringClean.Replace("@AddStrokeTime", "") End If + StringClean = StringClean.Replace("@AddStrokeTime", "") + End If - If StringClean.Contains("@RemoveStrokeTime") Then - If StrokeTimer.Enabled = True Then - ssh.StrokeTick -= ssh.StrokeTick / 2 - End If - StringClean = StringClean.Replace("@RemoveStrokeTime", "") + If StringClean.Contains("@RemoveStrokeTime") Then + If StrokeTimer.Enabled = True Then + ssh.StrokeTick -= ssh.StrokeTick / 2 End If + StringClean = StringClean.Replace("@RemoveStrokeTime", "") + End If - If StringClean.Contains("@AddEdgeHoldTime(") Then + If StringClean.Contains("@AddEdgeHoldTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If HoldEdgeTimer.Enabled = True Then + If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@AddEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 - End If - ssh.HoldEdgeTick += HoldEdgeSeconds + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 End If - StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") + ssh.HoldEdgeTick += HoldEdgeSeconds End If + StringClean = StringClean.Replace("@AddEdgeHoldTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@RemoveEdgeHoldTime(") Then + If StringClean.Contains("@RemoveEdgeHoldTime(") Then - Dim OriginalFlag As String = "" + Dim OriginalFlag As String = "" - If HoldEdgeTimer.Enabled = True Then + If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") - OriginalFlag = HoldEdgeFlag - Dim HoldEdgeSeconds As Integer + Dim HoldEdgeFlag As String = GetParentheses(StringClean, "@RemoveEdgeHoldTime(") + OriginalFlag = HoldEdgeFlag + Dim HoldEdgeSeconds As Integer - If HoldEdgeFlag.Contains(",") Then - HoldEdgeFlag = FixCommas(HoldEdgeFlag) - Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") - Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) - Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) - If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 - If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 - If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 - If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 - HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) - Else - HoldEdgeSeconds = Val(HoldEdgeFlag) - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 - End If - ssh.HoldEdgeTick -= HoldEdgeSeconds - If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 + If HoldEdgeFlag.Contains(",") Then + HoldEdgeFlag = FixCommas(HoldEdgeFlag) + Dim HoldEdgeFlagArray As String() = HoldEdgeFlag.Split(",") + Dim HoldEdge1 As Integer = Val(HoldEdgeFlagArray(0)) + Dim HoldEdge2 As Integer = Val(HoldEdgeFlagArray(1)) + If UCase(HoldEdgeFlagArray(0)).Contains("M") Then HoldEdge1 *= 60 + If UCase(HoldEdgeFlagArray(1)).Contains("M") Then HoldEdge2 *= 60 + If UCase(HoldEdgeFlagArray(0)).Contains("H") Then HoldEdge1 *= 3600 + If UCase(HoldEdgeFlagArray(1)).Contains("H") Then HoldEdge2 *= 3600 + HoldEdgeSeconds = ssh.randomizer.Next(HoldEdge1, HoldEdge2 + 1) + Else + HoldEdgeSeconds = Val(HoldEdgeFlag) + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("M") Then HoldEdgeSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveEdgeHoldTime(")).Contains("H") Then HoldEdgeSeconds *= 3600 End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") + ssh.HoldEdgeTick -= HoldEdgeSeconds + If ssh.HoldEdgeTick < 5 Then ssh.HoldEdgeTick = 5 End If + StringClean = StringClean.Replace("@RemoveEdgeHoldTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@AddEdgeHoldTime") Then + If StringClean.Contains("@AddEdgeHoldTime") Then + + If HoldEdgeTimer.Enabled = True Then + Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value + If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 - If HoldEdgeTimer.Enabled = True Then - Dim HoldEdgeMin As Integer = FrmSettings.NBHoldTheEdgeMin.Value - If FrmSettings.LBLMinHold.Text = "minutes" Then HoldEdgeMin *= 60 + Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value + If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 - Dim HoldEdgeMax As Integer = FrmSettings.NBHoldTheEdgeMax.Value - If FrmSettings.LBLMaxHold.Text = "minutes" Then HoldEdgeMax *= 60 + If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 - If HoldEdgeMax < HoldEdgeMin Then HoldEdgeMax = HoldEdgeMin + 1 + ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 + End If + StringClean = StringClean.Replace("@AddEdgeHoldTime", "") + End If - ssh.HoldEdgeTick += ssh.randomizer.Next(HoldEdgeMin, HoldEdgeMax + 1) - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - End If - StringClean = StringClean.Replace("@AddEdgeHoldTime", "") + If StringClean.Contains("@RemoveEdgeHoldTime") Then + If HoldEdgeTimer.Enabled = True Then + ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 + If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 End If + StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") + End If + + If StringClean.Contains("@AddTeaseTime(") Then + + Dim OriginalFlag As String = "" + 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun + 'If TeaseTimer.Enabled = True Then + + Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") + OriginalFlag = TeaseFlag + Dim TeaseSeconds As Integer + + If TeaseFlag.Contains(",") Then + TeaseFlag = FixCommas(TeaseFlag) + Dim TeaseFlagArray As String() = TeaseFlag.Split(",") + Dim Tease1 As Integer = Val(TeaseFlagArray(0)) + Dim Tease2 As Integer = Val(TeaseFlagArray(1)) + If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 + If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 + If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 + If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 + TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) + Else + TeaseSeconds = Val(TeaseFlag) + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 + - If StringClean.Contains("@RemoveEdgeHoldTime") Then - If HoldEdgeTimer.Enabled = True Then - ssh.HoldEdgeTick = ssh.HoldEdgeTick / 2 - If ssh.HoldEdgeTick < 10 Then ssh.HoldEdgeTick = 10 - End If - StringClean = StringClean.Replace("@RemoveEdgeHoldTime", "") End If + ssh.TeaseTick += TeaseSeconds + If ssh.LastScript Then ssh.LastScript = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True + StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@AddTeaseTime(") Then + If StringClean.Contains("@RemoveTeaseTime(") Then - Dim OriginalFlag As String = "" - 'I dont think this should work only when teaseTimer is enabled...what if i want to addteasetime somehow during an end script? (removing this, will allow for this too) - dariobrun - 'If TeaseTimer.Enabled = True Then + Dim OriginalFlag As String = "" - Dim TeaseFlag As String = GetParentheses(StringClean, "@AddTeaseTime(") + If TeaseTimer.Enabled = True Then + + Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") OriginalFlag = TeaseFlag Dim TeaseSeconds As Integer @@ -11556,555 +11589,488 @@ ExternalAudio: TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) Else TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@AddTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 - - - End If - ssh.TeaseTick += TeaseSeconds - If ssh.LastScript Then ssh.LastScript = False - If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True - StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") - End If - - If StringClean.Contains("@RemoveTeaseTime(") Then - - Dim OriginalFlag As String = "" - - If TeaseTimer.Enabled = True Then - - Dim TeaseFlag As String = GetParentheses(StringClean, "@RemoveTeaseTime(") - OriginalFlag = TeaseFlag - Dim TeaseSeconds As Integer - - If TeaseFlag.Contains(",") Then - TeaseFlag = FixCommas(TeaseFlag) - Dim TeaseFlagArray As String() = TeaseFlag.Split(",") - Dim Tease1 As Integer = Val(TeaseFlagArray(0)) - Dim Tease2 As Integer = Val(TeaseFlagArray(1)) - If UCase(TeaseFlagArray(0)).Contains("M") Then Tease1 *= 60 - If UCase(TeaseFlagArray(1)).Contains("M") Then Tease2 *= 60 - If UCase(TeaseFlagArray(0)).Contains("H") Then Tease1 *= 3600 - If UCase(TeaseFlagArray(1)).Contains("H") Then Tease2 *= 3600 - TeaseSeconds = ssh.randomizer.Next(Tease1, Tease2 + 1) - Else - TeaseSeconds = Val(TeaseFlag) - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 - If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 - End If - ssh.TeaseTick -= TeaseSeconds - If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 - End If - StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") - End If - - If StringClean.Contains("@AddTeaseTime") Then - 'same as before about the teasetimer - ' If TeaseTimer.Enabled = True Then - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("M") Then TeaseSeconds *= 60 + If UCase(GetParentheses(StringClean, "@RemoveTeaseTime(")).Contains("H") Then TeaseSeconds *= 3600 End If - If ssh.LastScript Then ssh.LastScript = False - If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True - StringClean = StringClean.Replace("@AddTeaseTime", "") + ssh.TeaseTick -= TeaseSeconds + If ssh.TeaseTick < 5 Then ssh.TeaseTick = 5 End If + StringClean = StringClean.Replace("@RemoveTeaseTime(" & OriginalFlag & ")", "") + End If - If StringClean.Contains("@RemoveTeaseTime") Then - If TeaseTimer.Enabled = True Then - ssh.TeaseTick = ssh.TeaseTick / 2 - End If - StringClean = StringClean.Replace("@RemoveTeaseTime", "") - End If + If StringClean.Contains("@AddTeaseTime") Then + 'same as before about the teasetimer + ' If TeaseTimer.Enabled = True Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick += ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick += ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick += ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick += ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick += ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick += ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - If StringClean.Contains("@PlaylistOff") Then - ssh.Playlist = False - StringClean = StringClean.Replace("@PlaylistOff", "") End If + If ssh.LastScript Then ssh.LastScript = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True + StringClean = StringClean.Replace("@AddTeaseTime", "") + End If - If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("RTOn") Then - ssh.RapidFire = True - StringClean = StringClean.Replace("@RapidTextOn", "") - StringClean = StringClean.Replace("@RTOn", "") + If StringClean.Contains("@RemoveTeaseTime") Then + If TeaseTimer.Enabled = True Then + ssh.TeaseTick = ssh.TeaseTick / 2 End If + StringClean = StringClean.Replace("@RemoveTeaseTime", "") + End If - If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("RTOff") Then - ssh.RapidFire = False - StringClean = StringClean.Replace("@RapidTextOff", "") - StringClean = StringClean.Replace("@RTOff", "") - End If + If StringClean.Contains("@PlaylistOff") Then + ssh.Playlist = False + StringClean = StringClean.Replace("@PlaylistOff", "") + End If - If StringClean.Contains("@GlitterTease1") Then - ssh.glitterDommeNumber = 1 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@GlitterTease1", "") - End If + If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("RTOn") Then + ssh.RapidFire = True + StringClean = StringClean.Replace("@RapidTextOn", "") + StringClean = StringClean.Replace("@RTOn", "") + End If - If StringClean.Contains("@GlitterTease2") Then - ssh.glitterDommeNumber = 2 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@GlitterTease2", "") - End If + If StringClean.Contains("@RapidTextOff") Or StringClean.Contains("RTOff") Then + ssh.RapidFire = False + StringClean = StringClean.Replace("@RapidTextOff", "") + StringClean = StringClean.Replace("@RTOff", "") + End If - If StringClean.Contains("@GlitterTease3") Then - ssh.glitterDommeNumber = 3 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@GlitterTease3", "") - End If + If StringClean.Contains("@GlitterTease1") Then + ssh.glitterDommeNumber = 1 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease1", "") + End If - If StringClean.Contains("@DommeTease") Then - ssh.glitterDommeNumber = 0 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@DommeTease", "") - End If + If StringClean.Contains("@GlitterTease2") Then + ssh.glitterDommeNumber = 2 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease2", "") + End If - If StringClean.Contains("@RandomTease") Then - ssh.glitterDommeNumber = 4 - LoadDommeImageFolder() - StringClean = StringClean.Replace("@RandomTease", "") - End If + If StringClean.Contains("@GlitterTease3") Then + ssh.glitterDommeNumber = 3 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@GlitterTease3", "") + End If - If StringClean.Contains("@SetDomme(") Then + If StringClean.Contains("@DommeTease") Then + ssh.glitterDommeNumber = 0 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@DommeTease", "") + End If - Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") - ssh.glitterDommeNumber = 0 - If DommeFlag.Contains("1") Then ssh.glitterDommeNumber = 1 - If DommeFlag.Contains("2") Then ssh.glitterDommeNumber = 2 - If DommeFlag.Contains("3") Then ssh.glitterDommeNumber = 3 - If DommeFlag.Contains("0") Or DommeFlag.ToLower.Contains("domme") Then ssh.glitterDommeNumber = 0 - If DommeFlag.Contains("4") Or DommeFlag.ToLower.Contains("random") Then ssh.glitterDommeNumber = 4 - LoadDommeImageFolder() + If StringClean.Contains("@RandomTease") Then + ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() + StringClean = StringClean.Replace("@RandomTease", "") + End If - StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") - End If + If StringClean.Contains("@SetDomme(") Then - If StringClean.Contains("@AddContact1") Then - If Not ssh.contact1Present Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) - ssh.contact1Present = True - 'ssh.AddContactTick = 2 - Contact1Timer.Start() - End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) - StringClean = StringClean.Replace("@AddContact1", "") - End If + Dim DommeFlag As String = GetParentheses(StringClean, "@SetDomme(") + ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("1") Then ssh.glitterDommeNumber = 1 + If DommeFlag.Contains("2") Then ssh.glitterDommeNumber = 2 + If DommeFlag.Contains("3") Then ssh.glitterDommeNumber = 3 + If DommeFlag.Contains("0") Or DommeFlag.ToLower.Contains("domme") Then ssh.glitterDommeNumber = 0 + If DommeFlag.Contains("4") Or DommeFlag.ToLower.Contains("random") Then ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() - If StringClean.Contains("@RemoveContact1") Then - 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) - ssh.contact1Present = False - 'ssh.AddContactTick = 2 - Contact1Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact1", "") - End If + StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") + End If - If StringClean.Contains("@AddContact2") Then - If Not ssh.contact2Present Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) - ssh.contact2Present = True - 'ssh.AddContactTick = 2 - Contact2Timer.Start() - End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) - StringClean = StringClean.Replace("@AddContact2", "") + If StringClean.Contains("@AddContact1") Then + If Not ssh.contact1Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) + ssh.contact1Present = True + 'ssh.AddContactTick = 2 + Contact1Timer.Start() End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) + StringClean = StringClean.Replace("@AddContact1", "") + End If - If StringClean.Contains("@RemoveContact2") Then - 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) - ssh.contact2Present = False - ssh.AddContactTick = 2 - Contact2Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact2", "") + If StringClean.Contains("@RemoveContact1") Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) + ssh.contact1Present = False + 'ssh.AddContactTick = 2 + Contact1Timer.Start() End If + StringClean = StringClean.Replace("@RemoveContact1", "") + End If - If StringClean.Contains("@AddContact3") Then - If Not ssh.contact3Present Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) - ssh.contact3Present = True - 'ssh.AddContactTick = 2 - Contact3Timer.Start() - End If - If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) - StringClean = StringClean.Replace("@AddContact3", "") + If StringClean.Contains("@AddContact2") Then + If Not ssh.contact2Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) + ssh.contact2Present = True + 'ssh.AddContactTick = 2 + Contact2Timer.Start() End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) + StringClean = StringClean.Replace("@AddContact2", "") + End If - If StringClean.Contains("@RemoveContact3") Then - 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) - ssh.contact3Present = False - 'ssh.AddContactTick = 2 - Contact3Timer.Start() - End If - StringClean = StringClean.Replace("@RemoveContact3", "") + If StringClean.Contains("@RemoveContact2") Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) + ssh.contact2Present = False + ssh.AddContactTick = 2 + Contact2Timer.Start() End If + StringClean = StringClean.Replace("@RemoveContact2", "") + End If - If StringClean.Contains("@AddDomme") Then - If Not ssh.dommePresent Then - ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) - ssh.dommePresent = True - 'ssh.AddContactTick = 2 - DommeTimer.Start() - End If - StringClean = StringClean.Replace("@AddDomme", "") + If StringClean.Contains("@AddContact3") Then + If Not ssh.contact3Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) + ssh.contact3Present = True + 'ssh.AddContactTick = 2 + Contact3Timer.Start() End If + If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) + StringClean = StringClean.Replace("@AddContact3", "") + End If - If StringClean.Contains("@RemoveDomme") Then - 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present - If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then - ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) - ssh.dommePresent = False - 'ssh.AddContactTick = 2 - DommeTimer.Start() - End If - StringClean = StringClean.Replace("@RemoveDomme", "") + If StringClean.Contains("@RemoveContact3") Then + 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present + If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) + ssh.contact3Present = False + 'ssh.AddContactTick = 2 + Contact3Timer.Start() End If + StringClean = StringClean.Replace("@RemoveContact3", "") + End If - If StringClean.Contains("@NullResponse") Then - ssh.NullResponse = True - StringClean = StringClean.Replace("@NullResponse", "") - 'Debug.Print("NullResponse Called") + If StringClean.Contains("@AddDomme") Then + If Not ssh.dommePresent Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) + ssh.dommePresent = True + 'ssh.AddContactTick = 2 + DommeTimer.Start() End If + StringClean = StringClean.Replace("@AddDomme", "") + End If -VTSkip: + If StringClean.Contains("@RemoveDomme") Then + 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present + If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) + ssh.dommePresent = False + 'ssh.AddContactTick = 2 + DommeTimer.Start() + End If + StringClean = StringClean.Replace("@RemoveDomme", "") + End If - If StringClean.Contains("@SpeedUpCheck") Then + If StringClean.Contains("@NullResponse") Then + ssh.NullResponse = True + StringClean = StringClean.Replace("@NullResponse", "") + 'Debug.Print("NullResponse Called") + End If - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" - StringClean = ResponseClean(StringClean) +VTSkip: - Else + If StringClean.Contains("@SpeedUpCheck") Then - If StrokePace < 201 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" - StringClean = ResponseClean(StringClean) + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpREPEAT.txt" + StringClean = ResponseClean(StringClean) - Else + Else - Dim SpeedUpCheck As Integer + If StrokePace < 201 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpMAX.txt" + StringClean = ResponseClean(StringClean) - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + Else - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpCheck As Integer - If SpeedUpVal > SpeedUpCheck Then + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - Else + If SpeedUpVal > SpeedUpCheck Then - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpALLOWED.txt" - End If + Else - StringClean = ResponseClean(StringClean) + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SpeedUpDENIED.txt" End If + StringClean = ResponseClean(StringClean) + End If - StringClean = StringClean.Replace("@SpeedUpCheck", "") + End If + + StringClean = StringClean.Replace("@SpeedUpCheck", "") GoTo RinseLatherRepeat End If - If StringClean.Contains("@SlowDownCheck") Then - If ssh.AskedToSpeedUp = True Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" - StringClean = ResponseClean(StringClean) - - Else - - If StrokePace > 999 Then - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" - StringClean = ResponseClean(StringClean) + If StringClean.Contains("@SlowDownCheck") Then + If ssh.AskedToSpeedUp = True Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownREPEAT.txt" + StringClean = ResponseClean(StringClean) - Else + Else - Dim SpeedUpCheck As Integer + If StrokePace > 999 Then + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownMIN.txt" + StringClean = ResponseClean(StringClean) - If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 - If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 - If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 - If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 - If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 + Else - Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) + Dim SpeedUpCheck As Integer - If SpeedUpVal > SpeedUpCheck Then + If FrmSettings.domlevelNumBox.Value = 1 Then SpeedUpCheck = 70 + If FrmSettings.domlevelNumBox.Value = 2 Then SpeedUpCheck = 40 + If FrmSettings.domlevelNumBox.Value = 3 Then SpeedUpCheck = 60 + If FrmSettings.domlevelNumBox.Value = 4 Then SpeedUpCheck = 50 + If FrmSettings.domlevelNumBox.Value = 5 Then SpeedUpCheck = 65 - ' you can speed up - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" + Dim SpeedUpVal As Integer = ssh.randomizer.Next(1, 101) - Else + If SpeedUpVal > SpeedUpCheck Then - ' you can't speed up - ssh.AskedToSpeedUp = True - ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" + ' you can speed up + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownALLOWED.txt" - End If + Else - StringClean = ResponseClean(StringClean) + ' you can't speed up + ssh.AskedToSpeedUp = True + ssh.ResponseFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\SlowDownDENIED.txt" End If + StringClean = ResponseClean(StringClean) + End If - StringClean = StringClean.Replace("@SlowDownCheck", "") + End If + + StringClean = StringClean.Replace("@SlowDownCheck", "") GoTo RinseLatherRepeat End If If StringClean.Contains("@PlayRiskyPick") Then - ssh.RiskyDeal = True - 'FrmCardList.RiskyRound += 1 - FrmCardList.TCGames.SelectTab(2) - FrmCardList.Show() - FrmCardList.Focus() - FrmCardList.InitializeRiskyDeal() - StringClean = StringClean.Replace("@PlayRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@ChooseRiskyPick") Then - ssh.RiskyDelay = True - If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True - If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True - If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True - If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True - If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True - If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True - If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True - If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True - If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True - If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True - - If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True - If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True - If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True - If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True - If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True - If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True - If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True - If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True - If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True - If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True - - If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True - If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True - If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True - If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True - - FrmCardList.RiskyChoiceCount = 0 - FrmCardList.RiskyRound += 1 - FrmCardList.RiskyPickCount = 0 - FrmCardList.RiskyChoices.Clear() - FrmCardList.ClearCaseLabelsOffer() - 'FrmCardList.Show() - 'FrmCardList.TCGames.SelectTab(4) - 'FrmCardList.Focus() - - StringClean = StringClean.Replace("@ChooseRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - - If StringClean.Contains("@CheckRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.CheckRiskyPick() - StringClean = StringClean.Replace("@CheckRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@FinalRiskyPick") Then - 'FrmCardList.Focus() - FrmCardList.BTNRiskIt.Text = "LAST CASE" - FrmCardList.BTNPickIt.Text = "MY CASE" - StringClean = StringClean.Replace("@FinalRiskyPick", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@ClearRiskyLabels") Then - 'FrmCardList.Focus() - FrmCardList.ClearCaseLabelsOffer() - StringClean = StringClean.Replace("@ClearRiskyLabels", "") - 'Debug.Print("NullResponse Called") - End If - - If StringClean.Contains("@RiskyPayout") Then - If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then - FrmCardList.GameWMP.settings.setMode("loop", False) - FrmCardList.GameWMP.settings.volume = 20 - FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" - End If - ssh.BronzeTokens += FrmCardList.TokensPaid - FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) - StringClean = StringClean.Replace("@RiskyPayout", "") - End If - - If StringClean.Contains("@CloseRiskyPick") Then - FrmCardList.CloseRiskyPick() - StringClean = StringClean.Replace("@CloseRiskyPick", "") - End If - - If StringClean.Contains("@RevealLastCase") Then - FrmCardList.RevealLastCase() - StringClean = StringClean.Replace("@RevealLastCase", "") - End If - - If StringClean.Contains("@RevealUserCase") Then - FrmCardList.RevealUserCase() - StringClean = StringClean.Replace("@RevealUserCase", "") - End If - - If StringClean.Contains("@RiskyState") Then - If FrmCardList.RiskyState = True Then - ssh.FileGoto = "(Risky Game)" - Else - ssh.FileGoto = "(Risky Tease)" - End If - FrmCardList.RiskyState = False - ssh.SkipGotoLine = True - GetGoto() - StringClean = StringClean.Replace("@RiskyState", "") + ssh.RiskyDeal = True + 'FrmCardList.RiskyRound += 1 + FrmCardList.TCGames.SelectTab(2) + FrmCardList.Show() + FrmCardList.Focus() + FrmCardList.InitializeRiskyDeal() + StringClean = StringClean.Replace("@PlayRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + + If StringClean.Contains("@ChooseRiskyPick") Then + ssh.RiskyDelay = True + If FrmCardList.BTNRisk1.Text <> "" Then FrmCardList.BTNRisk1.Enabled = True + If FrmCardList.BTNRisk2.Text <> "" Then FrmCardList.BTNRisk2.Enabled = True + If FrmCardList.BTNRisk3.Text <> "" Then FrmCardList.BTNRisk3.Enabled = True + If FrmCardList.BTNRisk4.Text <> "" Then FrmCardList.BTNRisk4.Enabled = True + If FrmCardList.BTNRisk5.Text <> "" Then FrmCardList.BTNRisk5.Enabled = True + If FrmCardList.BTNRisk6.Text <> "" Then FrmCardList.BTNRisk6.Enabled = True + If FrmCardList.BTNRisk7.Text <> "" Then FrmCardList.BTNRisk7.Enabled = True + If FrmCardList.BTNRisk8.Text <> "" Then FrmCardList.BTNRisk8.Enabled = True + If FrmCardList.BTNRisk9.Text <> "" Then FrmCardList.BTNRisk9.Enabled = True + If FrmCardList.BTNRisk10.Text <> "" Then FrmCardList.BTNRisk10.Enabled = True + + If FrmCardList.BTNRisk11.Text <> "" Then FrmCardList.BTNRisk11.Enabled = True + If FrmCardList.BTNRisk12.Text <> "" Then FrmCardList.BTNRisk12.Enabled = True + If FrmCardList.BTNRisk13.Text <> "" Then FrmCardList.BTNRisk13.Enabled = True + If FrmCardList.BTNRisk14.Text <> "" Then FrmCardList.BTNRisk14.Enabled = True + If FrmCardList.BTNRisk15.Text <> "" Then FrmCardList.BTNRisk15.Enabled = True + If FrmCardList.BTNRisk16.Text <> "" Then FrmCardList.BTNRisk16.Enabled = True + If FrmCardList.BTNRisk17.Text <> "" Then FrmCardList.BTNRisk17.Enabled = True + If FrmCardList.BTNRisk18.Text <> "" Then FrmCardList.BTNRisk18.Enabled = True + If FrmCardList.BTNRisk19.Text <> "" Then FrmCardList.BTNRisk19.Enabled = True + If FrmCardList.BTNRisk20.Text <> "" Then FrmCardList.BTNRisk20.Enabled = True + + If FrmCardList.BTNRisk21.Text <> "" Then FrmCardList.BTNRisk21.Enabled = True + If FrmCardList.BTNRisk22.Text <> "" Then FrmCardList.BTNRisk22.Enabled = True + If FrmCardList.BTNRisk23.Text <> "" Then FrmCardList.BTNRisk23.Enabled = True + If FrmCardList.BTNRisk24.Text <> "" Then FrmCardList.BTNRisk24.Enabled = True + + FrmCardList.RiskyChoiceCount = 0 + FrmCardList.RiskyRound += 1 + FrmCardList.RiskyPickCount = 0 + FrmCardList.RiskyChoices.Clear() + FrmCardList.ClearCaseLabelsOffer() + 'FrmCardList.Show() + 'FrmCardList.TCGames.SelectTab(4) + 'FrmCardList.Focus() + + StringClean = StringClean.Replace("@ChooseRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + + + If StringClean.Contains("@CheckRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.CheckRiskyPick() + StringClean = StringClean.Replace("@CheckRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + + If StringClean.Contains("@FinalRiskyPick") Then + 'FrmCardList.Focus() + FrmCardList.BTNRiskIt.Text = "LAST CASE" + FrmCardList.BTNPickIt.Text = "MY CASE" + StringClean = StringClean.Replace("@FinalRiskyPick", "") + 'Debug.Print("NullResponse Called") + End If + + If StringClean.Contains("@ClearRiskyLabels") Then + 'FrmCardList.Focus() + FrmCardList.ClearCaseLabelsOffer() + StringClean = StringClean.Replace("@ClearRiskyLabels", "") + 'Debug.Print("NullResponse Called") + End If + + If StringClean.Contains("@RiskyPayout") Then + If FrmSettings.CBGameSounds.Checked = True And File.Exists(Application.StartupPath & "\Audio\System\PayoutSmall.wav") Then + FrmCardList.GameWMP.settings.setMode("loop", False) + FrmCardList.GameWMP.settings.volume = 20 + FrmCardList.GameWMP.URL = Application.StartupPath & "\Audio\System\PayoutSmall.wav" + End If + ssh.BronzeTokens += FrmCardList.TokensPaid + FrmCardList.LBLRiskTokens.Text = ssh.BronzeTokens + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\RP_Edges", FrmCardList.EdgesOwed, False) + StringClean = StringClean.Replace("@RiskyPayout", "") + End If + + If StringClean.Contains("@CloseRiskyPick") Then + FrmCardList.CloseRiskyPick() + StringClean = StringClean.Replace("@CloseRiskyPick", "") + End If + + If StringClean.Contains("@RevealLastCase") Then + FrmCardList.RevealLastCase() + StringClean = StringClean.Replace("@RevealLastCase", "") + End If + + If StringClean.Contains("@RevealUserCase") Then + FrmCardList.RevealUserCase() + StringClean = StringClean.Replace("@RevealUserCase", "") + End If + + If StringClean.Contains("@RiskyState") Then + If FrmCardList.RiskyState = True Then + ssh.FileGoto = "(Risky Game)" + Else + ssh.FileGoto = "(Risky Tease)" End If + FrmCardList.RiskyState = False + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@RiskyState", "") + End If - If StringClean.Contains("@SystemMessage ") Then - StringClean = StringClean.Replace("@SystemMessage ", "") - End If + If StringClean.Contains("@SystemMessage ") Then + StringClean = StringClean.Replace("@SystemMessage ", "") + End If - If StringClean.Contains("@EmoteMessage ") Then - StringClean = StringClean.Replace("@EmoteMessage ", "") - End If + If StringClean.Contains("@EmoteMessage ") Then + StringClean = StringClean.Replace("@EmoteMessage ", "") + End If - If StringClean.Contains("@MiniScript(") Then + If StringClean.Contains("@MiniScript(") Then - Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") - Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & Mini2CR) Then - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "@CallReturn(" & Mini2CR & ")") - Else - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") - End If + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & Mini2CR) Then + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "@CallReturn(" & Mini2CR & ")") + Else + StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") End If + End If - If StringClean.Contains("@CallReturn(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") - Dim CallReplace As String = CheckFlag - - If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) - CheckFlag = CheckFlag.Replace("/", "\") - - GetSubState() - ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) - ssh.YesOrNo = False - GotoClear() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.CBTBallsActive = False - ssh.CBTBallsFlag = False - ssh.CBTCockActive = False - ssh.CBTCockFlag = False - ssh.CBTBothActive = False - ssh.CBTBothFlag = False - ssh.CustomTaskActive = False + If StringClean.Contains("@CallReturn(") Then + Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") + Dim CallReplace As String = CheckFlag - ssh.MultiTauntPictureHold = False + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") - If Not ssh.SubGaveUp Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - End If + GetSubState() + ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) + ssh.YesOrNo = False + GotoClear() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() + + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False + + ssh.MultiTauntPictureHold = False + + If Not ssh.SubGaveUp Then + ssh.SubEdging = False + ssh.SubHoldingEdge = False + End If - If CheckFlag.Contains("*") Then - Dim checkArray() As String = CheckFlag.Split("*") - CheckFlag = checkArray(0) - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - ssh.MultiTauntPictureHold = False - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - GotoClear() - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) - ssh.StrokeTauntVal = -1 - End If - End If + If CheckFlag.Contains("*") Then + Dim checkArray() As String = CheckFlag.Split("*") + CheckFlag = checkArray(0) + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else - If CheckFlag.Contains(",") Then - - CheckFlag = FixCommas(CheckFlag) - - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() - + ssh.MultiTauntPictureHold = False + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else - - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + GotoClear() + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) ssh.StrokeTauntVal = -1 - End If End If - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.ShowModule = True - ssh.isLink = False - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") - End If - - If StringClean.Contains("@Call(") Then - - Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") - If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) - CheckFlag = CheckFlag.Replace("/", "\") - - Dim CallReplace As String = CheckFlag - - ssh.MultiTauntPictureHold = False - + Else If CheckFlag.Contains(",") Then CheckFlag = FixCommas(CheckFlag) @@ -12117,655 +12083,689 @@ VTSkip: Else - GotoClear() ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag ssh.StrokeTauntVal = -1 End If - ssh.ShowModule = True - ssh.isLink = False - ssh.ScriptTick = 2 - ScriptTimer.Start() - StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") End If + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.ShowModule = True + ssh.isLink = False + StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + End If + If StringClean.Contains("@Call(") Then - If StringClean.Contains("@CallRandom(") Then + Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") - Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") - If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) - CheckFlag = CheckFlag.Replace("/", "\") + Dim CallReplace As String = CheckFlag - Dim CallReplace As String = CheckFlag + ssh.MultiTauntPictureHold = False - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - ssh.MultiTauntPictureHold = False - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - GotoClear() - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) - ssh.StrokeTauntVal = -1 - End If - End If - ssh.ShowModule = True - ssh.isLink = False - ssh.ScriptTick = 2 - ScriptTimer.Start() - StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") - End If + If CheckFlag.Contains(",") Then - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code - ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + CheckFlag = FixCommas(CheckFlag) + + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() + + Else + + GotoClear() + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 - If StringClean.Contains("@RandomLink") Then - RunLinkScript() - StringClean = StringClean.Replace("@RandomLink", "") End If + ssh.ShowModule = True + ssh.isLink = False + ssh.ScriptTick = 2 + ScriptTimer.Start() + StringClean = StringClean.Replace("@Call(" & CallReplace & ")", "") + End If - If StringClean.Contains("@RandomModule") Then - If ssh.SubEdging Or ssh.SubHoldingEdge Then - RunModuleScript(True) + + If StringClean.Contains("@CallRandom(") Then + + Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") + + Dim CallReplace As String = CheckFlag + + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.MultiTauntPictureHold = False + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else - RunModuleScript(False) + GotoClear() + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 End If - StringClean = StringClean.Replace("@RandomModule", "") End If + ssh.ShowModule = True + ssh.isLink = False + ssh.ScriptTick = 2 + ScriptTimer.Start() + StringClean = StringClean.Replace("@CallRandom(" & CallReplace & ")", "") + End If - If StringClean.Contains("@RapidCodeOn") Then - ssh.RapidCode = True - StringClean = StringClean.Replace("@RapidCodeOn", "") - End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' @RandomLink and @RandomModule provided by dariobrun. I want to run different usage scenarios to better understand how to describe them to the users. They'll be in the code + ' as of 54.7.0, but probably won't be included in the Milovana patch notes until at least 54.8 - 1885 + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - If StringClean.Contains("@RapidCodeOff") Then - ssh.RapidCode = False - StringClean = StringClean.Replace("@RapidCodeOff", "") - End If + If StringClean.Contains("@RandomLink") Then + RunLinkScript() + StringClean = StringClean.Replace("@RandomLink", "") + End If - If StringClean.Contains("@InterruptsOff") Then - ssh.DoNotDisturb = True - StringClean = StringClean.Replace("@InterruptsOff", "") + If StringClean.Contains("@RandomModule") Then + If ssh.SubEdging Or ssh.SubHoldingEdge Then + RunModuleScript(True) + Else + RunModuleScript(False) End If + StringClean = StringClean.Replace("@RandomModule", "") + End If - If StringClean.Contains("@InterruptsOn") Then - ssh.DoNotDisturb = False - StringClean = StringClean.Replace("@InterruptsOn", "") - End If + If StringClean.Contains("@RapidCodeOn") Then + ssh.RapidCode = True + StringClean = StringClean.Replace("@RapidCodeOn", "") + End If + If StringClean.Contains("@RapidCodeOff") Then + ssh.RapidCode = False + StringClean = StringClean.Replace("@RapidCodeOff", "") + End If - If StringClean.Contains("@NoTypo") Then - ssh.TypoSwitch = 0 - StringClean = StringClean.Replace("@NoTypo", "") - End If + If StringClean.Contains("@InterruptsOff") Then + ssh.DoNotDisturb = True + StringClean = StringClean.Replace("@InterruptsOff", "") + End If - If StringClean.Contains("@ForceTypo") Then - ssh.TypoSwitch = 2 - StringClean = StringClean.Replace("@ForceTypo", "") - End If + If StringClean.Contains("@InterruptsOn") Then + ssh.DoNotDisturb = False + StringClean = StringClean.Replace("@InterruptsOn", "") + End If - If StringClean.Contains("@TyposOff") Then - ssh.TyposDisabled = True - StringClean = StringClean.Replace("@TyposOff", "") - End If - If StringClean.Contains("@TyposOn") Then - ssh.TyposDisabled = False - StringClean = StringClean.Replace("@TyposOn", "") - End If + If StringClean.Contains("@NoTypo") Then + ssh.TypoSwitch = 0 + StringClean = StringClean.Replace("@NoTypo", "") + End If - If StringClean.Contains("@GoodMood(") Then + If StringClean.Contains("@ForceTypo") Then + ssh.TypoSwitch = 2 + StringClean = StringClean.Replace("@ForceTypo", "") + End If - Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") + If StringClean.Contains("@TyposOff") Then + ssh.TyposDisabled = True + StringClean = StringClean.Replace("@TyposOff", "") + End If - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If StringClean.Contains("@TyposOn") Then + ssh.TyposDisabled = False + StringClean = StringClean.Replace("@TyposOn", "") + End If - StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + If StringClean.Contains("@GoodMood(") Then + + Dim MoodFlag As String = GetParentheses(StringClean, "@GoodMood(") + + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() End If - If StringClean.Contains("@BadMood(") Then + StringClean = StringClean.Replace("@GoodMood(" & MoodFlag & ")", "") + End If - Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") + If StringClean.Contains("@BadMood(") Then - If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@BadMood(") - StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + If ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() End If - If StringClean.Contains("@NeutralMood(") Then - - Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") + StringClean = StringClean.Replace("@BadMood(" & MoodFlag & ")", "") + End If - If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then - ssh.FileGoto = MoodFlag - ssh.SkipGotoLine = True - GetGoto() - End If + If StringClean.Contains("@NeutralMood(") Then - StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") - End If + Dim MoodFlag As String = GetParentheses(StringClean, "@NeutralMood(") - If StringClean.Contains("@MoodUp") Then - ssh.DommeMood += 1 - If ssh.DommeMood > 10 Then ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodUp", "") + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then + ssh.FileGoto = MoodFlag + ssh.SkipGotoLine = True + GetGoto() End If - If StringClean.Contains("@MoodDown") Then - ssh.DommeMood -= 1 - If ssh.DommeMood < 1 Then ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodDown", "") - End If + StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") + End If - If StringClean.Contains("@MoodBest") Then - ssh.DommeMood = 10 - StringClean = StringClean.Replace("@MoodBest", "") - End If + If StringClean.Contains("@MoodUp") Then + ssh.DommeMood += 1 + If ssh.DommeMood > 10 Then ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodUp", "") + End If - If StringClean.Contains("@MoodWorst") Then - ssh.DommeMood = 1 - StringClean = StringClean.Replace("@MoodWorst", "") - End If + If StringClean.Contains("@MoodDown") Then + ssh.DommeMood -= 1 + If ssh.DommeMood < 1 Then ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodDown", "") + End If - If StringClean.Contains("@Timeout(") Then + If StringClean.Contains("@MoodBest") Then + ssh.DommeMood = 10 + StringClean = StringClean.Replace("@MoodBest", "") + End If - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(", StringClean.Split(")").Count - 1) - 'if there is a leftover ) (might happen in very complex followUp) we remove it - If TimeFlag.EndsWith(")") Then TimeFlag = TimeFlag.Remove(TimeFlag.Length - 1, 1) - Dim OriginalFlag As String = TimeFlag - TimeFlag = StripCommands(TimeFlag) + If StringClean.Contains("@MoodWorst") Then + ssh.DommeMood = 1 + StringClean = StringClean.Replace("@MoodWorst", "") + End If + If StringClean.Contains("@Timeout(") Then - TimeFlag = FixCommas(TimeFlag) + Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(", StringClean.Split(")").Count - 1) + 'if there is a leftover ) (might happen in very complex followUp) we remove it + If TimeFlag.EndsWith(")") Then TimeFlag = TimeFlag.Remove(TimeFlag.Length - 1, 1) + Dim OriginalFlag As String = TimeFlag + TimeFlag = StripCommands(TimeFlag) - Dim TimeArray As String() = TimeFlag.Split(",") - ssh.FileGoto = TimeArray(1) - ssh.TimeoutTick = Val(TimeArray(0)) - TimeoutTimer.Start() + TimeFlag = FixCommas(TimeFlag) - StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") - End If + Dim TimeArray As String() = TimeFlag.Split(",") - If StringClean.Contains("@BallTorture+1") Then - ssh.CBTBallsCount += 1 - StringClean = StringClean.Replace("@BallTorture+1", "") - End If + ssh.FileGoto = TimeArray(1) + ssh.TimeoutTick = Val(TimeArray(0)) + TimeoutTimer.Start() - If StringClean.Contains("@CockTorture+1") Then - ssh.CBTCockCount += 1 - StringClean = StringClean.Replace("@CockTorture+1", "") - End If + StringClean = StringClean.Replace("@Timeout(" & OriginalFlag & ")", "") + End If + If StringClean.Contains("@BallTorture+1") Then + ssh.CBTBallsCount += 1 + StringClean = StringClean.Replace("@BallTorture+1", "") + End If - If StringClean.Contains("@EndTaunts") Then - ssh.StrokeTick = 0 - StringClean = StringClean.Replace("@EndTaunts", "") - End If + If StringClean.Contains("@CockTorture+1") Then + ssh.CBTCockCount += 1 + StringClean = StringClean.Replace("@CockTorture+1", "") + End If - If StringClean.Contains("@ResponseYes(") Then - ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") - StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") - End If + If StringClean.Contains("@EndTaunts") Then + ssh.StrokeTick = 0 + StringClean = StringClean.Replace("@EndTaunts", "") + End If - If StringClean.Contains("@ResponseNo(") Then - ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") - StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") - End If + If StringClean.Contains("@ResponseYes(") Then + ssh.ResponseYes = GetParentheses(StringClean, "@ResponseYes(") + StringClean = StringClean.Replace("@ResponseYes(" & GetParentheses(StringClean, "@ResponseYes(") & ")", "") + End If - If StringClean.Contains("@SetModule(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + If StringClean.Contains("@ResponseNo(") Then + ssh.ResponseNo = GetParentheses(StringClean, "@ResponseNo(") + StringClean = StringClean.Replace("@ResponseNo(" & GetParentheses(StringClean, "@ResponseNo(") & ")", "") + End If - If TempMod.Contains(",") Then - TempMod = FixCommas(TempMod) - Dim TempArray As String() = TempMod.Split(",") - TempMod = TempArray(0) - ssh.SetModuleGoto = TempArray(1) - End If + If StringClean.Contains("@SetModule(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetModule(") + If TempMod.Contains(",") Then + TempMod = FixCommas(TempMod) + Dim TempArray As String() = TempMod.Split(",") + TempMod = TempArray(0) + ssh.SetModuleGoto = TempArray(1) - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then - ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" - End If + End If - If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Modules\" & TempMod & ".txt" End If - - If StringClean.Contains("@SetLink(") Then - Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" - End If - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then - ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" - End If - StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt") Then + ssh.SetModule = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Modules\" & TempMod & ".txt" End If + If ssh.SetModule = "" Then ssh.SetModuleGoto = "" - 'If StringClean.Contains("@RandomText(") Then - 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") - 'TempText = FixCommas(TempText) - 'Dim TextArray As String() = TempText.Split(",") - 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) - 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) - 'End If + StringClean = StringClean.Replace("@SetModule(" & GetParentheses(StringClean, "@SetModule(") & ")", "") + End If - If StringClean.Contains("@Worship(") Then - Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") - Debug.Print("Worship Paren = " & WorshipTemp) - If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" - If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" - If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" - ssh.WorshipMode = True - StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") + If StringClean.Contains("@SetLink(") Then + Dim TempMod As String = GetParentheses(StringClean, "@SetLink(") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Custom\Link\" & TempMod & ".txt" End If - - If StringClean.Contains("@WorshipOn") Then - ssh.WorshipMode = True - StringClean = StringClean.Replace("@WorshipOn", "") + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt") Then + ssh.SetLink = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Link\" & TempMod & ".txt" End If + StringClean = StringClean.Replace("@SetLink(" & GetParentheses(StringClean, "@SetLink(") & ")", "") + End If - If StringClean.Contains("@WorshipOff") Then - ssh.WorshipMode = False - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@WorshipOff", "") - End If - ' If StringClean.Contains("@AssWorship") Then - 'WorshipTarget = "Ass" - 'StringClean = StringClean.Replace("@AssWorship", "") - 'End If + 'If StringClean.Contains("@RandomText(") Then + 'Dim TempText As String = GetParentheses(StringClean, "@RandomText(") + 'TempText = FixCommas(TempText) + 'Dim TextArray As String() = TempText.Split(",") + 'TempText = TextArray(randomizer.Next(0, TextArray.Count)) + 'StringClean = StringClean.Replace("@RandomText(" & GetParentheses(StringClean, "@RandomText(") & ")", TempText) + 'End If - 'If StringClean.Contains("@BoobWorship") Then - 'WorshipTarget = "Boobs" - 'StringClean = StringClean.Replace("@BoobWorship", "") - 'End If + If StringClean.Contains("@Worship(") Then + Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") + Debug.Print("Worship Paren = " & WorshipTemp) + If UCase(WorshipTemp) = "ASS" Then ssh.WorshipTarget = "Ass" + If UCase(WorshipTemp) = "BOOBS" Then ssh.WorshipTarget = "Boobs" + If UCase(WorshipTemp) = "PUSSY" Then ssh.WorshipTarget = "Pussy" + ssh.WorshipMode = True + StringClean = StringClean.Replace("@Worship(" & GetParentheses(StringClean, "@Worship(") & ")", "") + End If - 'If StringClean.Contains("@PussyWorship") Then - 'WorshipTarget = "Pussy" - 'StringClean = StringClean.Replace("@PussyWorship", "") - 'End If + If StringClean.Contains("@WorshipOn") Then + ssh.WorshipMode = True + StringClean = StringClean.Replace("@WorshipOn", "") + End If - If StringClean.Contains("@ClearWorship") Then - ssh.WorshipTarget = "" - StringClean = StringClean.Replace("@ClearWorship", "") - End If + If StringClean.Contains("@WorshipOff") Then + ssh.WorshipMode = False + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@WorshipOff", "") + End If + ' If StringClean.Contains("@AssWorship") Then + 'WorshipTarget = "Ass" + 'StringClean = StringClean.Replace("@AssWorship", "") + 'End If - If StringClean.Contains("@CheckFile(") Then + 'If StringClean.Contains("@BoobWorship") Then + 'WorshipTarget = "Boobs" + 'StringClean = StringClean.Replace("@BoobWorship", "") + 'End If - Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") - FileFlag = FixCommas(FileFlag) + 'If StringClean.Contains("@PussyWorship") Then + 'WorshipTarget = "Pussy" + 'StringClean = StringClean.Replace("@PussyWorship", "") + 'End If - Dim FileArray As String() = FileFlag.Split(",") + If StringClean.Contains("@ClearWorship") Then + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@ClearWorship", "") + End If - If FileArray.Count = 2 Or FileArray.Count = 3 Then - If File.Exists(FileArray(0)) Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(1) - GetGoto() - End If + If StringClean.Contains("@CheckFile(") Then - If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then - ssh.SkipGotoLine = True - ssh.FileGoto = FileArray(2) - GetGoto() - End If + Dim FileFlag As String = GetParentheses(StringClean, "@CheckFile(") + FileFlag = FixCommas(FileFlag) + + Dim FileArray As String() = FileFlag.Split(",") + + If FileArray.Count = 2 Or FileArray.Count = 3 Then + If File.Exists(FileArray(0)) Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(1) + GetGoto() End If - StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") - End If + If Not File.Exists(FileArray(0)) And FileArray.Count = 3 Then + ssh.SkipGotoLine = True + ssh.FileGoto = FileArray(2) + GetGoto() + End If + End If - If StringClean.Contains("@YesMode(") Then + StringClean = StringClean.Replace("@CheckFile(" & GetParentheses(StringClean, "@CheckFile(") & ")", "") + End If - Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") - YesFlag = FixCommas(YesFlag) - Dim YesArray As String() = YesFlag.Split(",") - If UCase(YesArray(0)).Contains("GOTO") Then - ssh.yesMode.GotoMode = True - ssh.yesMode.GotoLine = YesArray(1) - End If + If StringClean.Contains("@YesMode(") Then - If UCase(YesArray(0)).Contains("VIDEO") Then - ssh.yesMode.VideoMode = True - ssh.yesMode.GotoLine = YesArray(1) - End If + Dim YesFlag As String = GetParentheses(StringClean, "@YesMode(") + YesFlag = FixCommas(YesFlag) + Dim YesArray As String() = YesFlag.Split(",") - If UCase(YesArray(0)).Contains("NORMAL") Then - ssh.yesMode.Clear() - End If + If UCase(YesArray(0)).Contains("GOTO") Then + ssh.yesMode.GotoMode = True + ssh.yesMode.GotoLine = YesArray(1) + End If - StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") + If UCase(YesArray(0)).Contains("VIDEO") Then + ssh.yesMode.VideoMode = True + ssh.yesMode.GotoLine = YesArray(1) End If - If StringClean.Contains("@NoMode(") Then + If UCase(YesArray(0)).Contains("NORMAL") Then + ssh.yesMode.Clear() + End If - Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") - NoFlag = FixCommas(NoFlag) - Dim NoArray As String() = NoFlag.Split(",") + StringClean = StringClean.Replace("@YesMode(" & GetParentheses(StringClean, "@YesMode(") & ")", "") + End If - If UCase(NoArray(0)).Contains("GOTO") Then - ssh.noMode.GotoMode = True - ssh.noMode.GotoLine = NoArray(1) - End If + If StringClean.Contains("@NoMode(") Then - If UCase(NoArray(0)).Contains("VIDEO") Then - ssh.noMode.VideoMode = True - ssh.noMode.GotoLine = NoArray(1) - End If + Dim NoFlag As String = GetParentheses(StringClean, "@NoMode(") + NoFlag = FixCommas(NoFlag) + Dim NoArray As String() = NoFlag.Split(",") - If UCase(NoArray(0)).Contains("NORMAL") Then - ssh.noMode.Clear() - End If + If UCase(NoArray(0)).Contains("GOTO") Then + ssh.noMode.GotoMode = True + ssh.noMode.GotoLine = NoArray(1) + End If - StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") + If UCase(NoArray(0)).Contains("VIDEO") Then + ssh.noMode.VideoMode = True + ssh.noMode.GotoLine = NoArray(1) End If - If StringClean.Contains("@CameMode(") Then + If UCase(NoArray(0)).Contains("NORMAL") Then + ssh.noMode.Clear() + End If - Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") - CameFlag = FixCommas(CameFlag) - Dim CameArray As String() = CameFlag.Split(",") + StringClean = StringClean.Replace("@NoMode(" & GetParentheses(StringClean, "@NoMode(") & ")", "") + End If - If UCase(CameArray(0)).Contains("GOTO") Then - ssh.cameMode.GotoMode = True - ssh.cameMode.GotoLine = CameArray(1) - End If + If StringClean.Contains("@CameMode(") Then - If UCase(CameArray(0)).Contains("MESSAGE") Then - ssh.cameMode.MessageMode = True - ssh.cameMode.MessageText = CameArray(1) - End If + Dim CameFlag As String = GetParentheses(StringClean, "@CameMode(") + CameFlag = FixCommas(CameFlag) + Dim CameArray As String() = CameFlag.Split(",") - If UCase(CameArray(0)).Contains("VIDEO") Then - ssh.cameMode.VideoMode = True - ssh.cameMode.GotoLine = CameArray(1) - End If + If UCase(CameArray(0)).Contains("GOTO") Then + ssh.cameMode.GotoMode = True + ssh.cameMode.GotoLine = CameArray(1) + End If - If UCase(CameArray(0)).Contains("NORMAL") Then - ssh.cameMode.Clear() - End If + If UCase(CameArray(0)).Contains("MESSAGE") Then + ssh.cameMode.MessageMode = True + ssh.cameMode.MessageText = CameArray(1) + End If - StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") + If UCase(CameArray(0)).Contains("VIDEO") Then + ssh.cameMode.VideoMode = True + ssh.cameMode.GotoLine = CameArray(1) End If - If StringClean.Contains("@RuinedMode(") Then + If UCase(CameArray(0)).Contains("NORMAL") Then + ssh.cameMode.Clear() + End If - Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") - RuinedFlag = FixCommas(RuinedFlag) - Dim RuinedArray As String() = RuinedFlag.Split(",") + StringClean = StringClean.Replace("@CameMode(" & GetParentheses(StringClean, "@CameMode(") & ")", "") + End If - If UCase(RuinedArray(0)).Contains("GOTO") Then - ssh.ruinMode.GotoMode = True - ssh.ruinMode.GotoLine = RuinedArray(1) - End If + If StringClean.Contains("@RuinedMode(") Then - If UCase(RuinedArray(0)).Contains("MESSAGE") Then - ssh.ruinMode.MessageMode = True - ssh.ruinMode.MessageText = RuinedArray(1) - End If + Dim RuinedFlag As String = GetParentheses(StringClean, "@RuinedMode(") + RuinedFlag = FixCommas(RuinedFlag) + Dim RuinedArray As String() = RuinedFlag.Split(",") - If UCase(RuinedArray(0)).Contains("VIDEO") Then - ssh.ruinMode.VideoMode = True - ssh.ruinMode.GotoLine = RuinedArray(1) - End If + If UCase(RuinedArray(0)).Contains("GOTO") Then + ssh.ruinMode.GotoMode = True + ssh.ruinMode.GotoLine = RuinedArray(1) + End If - If UCase(RuinedArray(0)).Contains("NORMAL") Then - ssh.ruinMode.Clear() - End If + If UCase(RuinedArray(0)).Contains("MESSAGE") Then + ssh.ruinMode.MessageMode = True + ssh.ruinMode.MessageText = RuinedArray(1) + End If - StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") + If UCase(RuinedArray(0)).Contains("VIDEO") Then + ssh.ruinMode.VideoMode = True + ssh.ruinMode.GotoLine = RuinedArray(1) End If - If StringClean.Contains("@CustomMode(") Then - updateMode(StringClean, ssh.Modes) - StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + If UCase(RuinedArray(0)).Contains("NORMAL") Then + ssh.ruinMode.Clear() End If + StringClean = StringClean.Replace("@RuinedMode(" & GetParentheses(StringClean, "@RuinedMode(") & ")", "") + End If - If StringClean.Contains("@ClearModes") Then - ClearModes() - StringClean = StringClean.Replace("@ClearModes", "") - End If + If StringClean.Contains("@CustomMode(") Then + updateMode(StringClean, ssh.Modes) + StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") + End If - If StringClean.Contains("@LockVideo") Then - ssh.LockVideo = True - StringClean = StringClean.Replace("@LockVideo", "") - End If + If StringClean.Contains("@ClearModes") Then + ClearModes() + StringClean = StringClean.Replace("@ClearModes", "") + End If - If StringClean.Contains("@UnlockVideo") Then - ssh.LockVideo = False - mainPictureBox.Visible = True - DomWMP.Visible = False - StringClean = StringClean.Replace("@UnlockVideo", "") - End If - If StringClean.Contains("@ClearChat") Then - ClearChat() - StringClean = StringClean.Replace("@ClearChat", "") - End If + If StringClean.Contains("@LockVideo") Then + ssh.LockVideo = True + StringClean = StringClean.Replace("@LockVideo", "") + End If + + If StringClean.Contains("@UnlockVideo") Then + ssh.LockVideo = False + mainPictureBox.Visible = True + DomWMP.Visible = False + StringClean = StringClean.Replace("@UnlockVideo", "") + End If - If StringClean.Contains("@ChatImage[") Then - Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") - ImageDir = ImageDir.Replace("/", "\") - ImageDir = ImageDir.Replace("\\", "\") + If StringClean.Contains("@ClearChat") Then + ClearChat() + StringClean = StringClean.Replace("@ClearChat", "") + End If + If StringClean.Contains("@ChatImage[") Then + Dim ImageDir As String = Application.StartupPath & "\Images\" & GetParentheses(StringClean, "@ChatImage[") + ImageDir = ImageDir.Replace("/", "\") + ImageDir = ImageDir.Replace("\\", "\") - If File.Exists(ImageDir.Split(",")(0)) Then - If GetCharCount(ImageDir, ",") = 2 Then + If File.Exists(ImageDir.Split(",")(0)) Then - Dim PicAttributes As String() = GetArrayString(ImageDir) + If GetCharCount(ImageDir, ",") = 2 Then - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + Dim PicAttributes As String() = GetArrayString(ImageDir) - Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") - End If + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") Else - StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If + + Else + StringClean = StringClean.Replace("@ChatImage[" & GetParentheses(StringClean, "@ChatImage[") & "]", "") End If + End If - If StringClean.Contains("@CountVar[") Then + If StringClean.Contains("@CountVar[") Then - Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") + Dim CountFlag As String = GetParentheses(StringClean, "@CountVar[") - If CountFlag.Contains(",") Then + If CountFlag.Contains(",") Then - CountFlag = FixCommas(CountFlag) - Dim CountArray() As String = CountFlag.Split(",") + CountFlag = FixCommas(CountFlag) + Dim CountArray() As String = CountFlag.Split(",") - If CountArray(1).ToLower.Contains("stop") Then - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) - Next - End If + If CountArray(1).ToLower.Contains("stop") Then + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next + End If + If ssh.CountUpList.Count > 0 Then + For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 + If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) + Next + End If + + Else + + If CountArray(1).ToLower.Contains("down") Then + ssh.CountDownList.Add(CountArray(0)) If ssh.CountUpList.Count > 0 Then For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) Next End If - Else - - If CountArray(1).ToLower.Contains("down") Then - ssh.CountDownList.Add(CountArray(0)) - If ssh.CountUpList.Count > 0 Then - For i As Integer = ssh.CountUpList.Count - 1 To 0 Step -1 - If ssh.CountUpList(i).Contains(CountArray(0)) Then ssh.CountUpList.RemoveAt(i) - Next - End If - Else - ssh.CountUpList.Add(CountArray(0)) - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) - Next - End If + ssh.CountUpList.Add(CountArray(0)) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountArray(0)) Then ssh.CountDownList.RemoveAt(i) + Next End If - End If - Else + End If - ssh.CountUpList.Add(CountFlag) - If ssh.CountDownList.Count > 0 Then - For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 - If ssh.CountDownList(i).Contains(CountFlag) Then ssh.CountDownList.RemoveAt(i) - Next - End If + Else + ssh.CountUpList.Add(CountFlag) + If ssh.CountDownList.Count > 0 Then + For i As Integer = ssh.CountDownList.Count - 1 To 0 Step -1 + If ssh.CountDownList(i).Contains(CountFlag) Then ssh.CountDownList.RemoveAt(i) + Next End If - StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") End If + StringClean = StringClean.Replace("@CountVar[" & GetParentheses(StringClean, "@CountVar[") & "]", "") + End If - If StringClean.Contains("@Debug") Then - 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) + If StringClean.Contains("@Debug") Then - MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) - MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) - MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) - MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) + 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) + MsgBox(GetParentheses("Testing If - @If[42]>[7]Then(Go here) okay", "@If[")) + MsgBox(GetParentheses("Testing If2 - @If[42]>[7]Then(Go here) okay", "@If[", 2)) + MsgBox(GetParentheses("Testing If2 - @If(candle) okay", "@If(")) + MsgBox(GetParentheses("Testing If2 - @If(candle)and(wax) okay", "@If(", 2)) - 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) - StringClean = StringClean.Replace("@Debug", "") - End If + 'MsgBox(GetVariable("Sys_EndTotal") & " less than 30? " & CheckVariable("@Variable[Sys_EndTotal]<[30] blah blah blah")) + StringClean = StringClean.Replace("@Debug", "") + End If - If StringClean.Contains("@GotoDommeOrgasm") Then - 'Debug.Print("GotoDommeOrgasmCalled") + If StringClean.Contains("@GotoDommeOrgasm") Then + 'Debug.Print("GotoDommeOrgasmCalled") - If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" - If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" - 'Debug.Print(FileGoto) + If FrmSettings.alloworgasmComboBox.Text = "Never Allows" Then ssh.FileGoto = "(Never Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Rarely Allows" Then ssh.FileGoto = "(Rarely Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Sometimes Allows" Then ssh.FileGoto = "(Sometimes Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Often Allows" Then ssh.FileGoto = "(Often Allows)" + If FrmSettings.alloworgasmComboBox.Text = "Always Allows" Then ssh.FileGoto = "(Always Allows)" - ssh.SkipGotoLine = True - GetGoto() + 'Debug.Print(FileGoto) - StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - End If + ssh.SkipGotoLine = True + GetGoto() - If StringClean.Contains("@GotoDommeRuin") Then + StringClean = StringClean.Replace("@GotoDommeOrgasm", "") + End If - Debug.Print("GotoDommeRuinedCalled") + If StringClean.Contains("@GotoDommeRuin") Then + Debug.Print("GotoDommeRuinedCalled") - If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" - If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" - 'Debug.Print(FileGoto) + If FrmSettings.ruinorgasmComboBox.Text = "Never Ruins" Then ssh.FileGoto = "(Never Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Rarely Ruins" Then ssh.FileGoto = "(Rarely Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Sometimes Ruins" Then ssh.FileGoto = "(Sometimes Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Often Ruins" Then ssh.FileGoto = "(Often Ruins)" + If FrmSettings.ruinorgasmComboBox.Text = "Always Ruins" Then ssh.FileGoto = "(Always Ruins)" - ssh.SkipGotoLine = True - GetGoto() + 'Debug.Print(FileGoto) - StringClean = StringClean.Replace("@GotoDommeRuin", "") - End If + ssh.SkipGotoLine = True + GetGoto() - If StringClean.Contains("@GotoDommeApathy") Then + StringClean = StringClean.Replace("@GotoDommeRuin", "") + End If - 'Debug.Print("GotoDommeApathyCalled") + If StringClean.Contains("@GotoDommeApathy") Then + 'Debug.Print("GotoDommeApathyCalled") - If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" - If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" - If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" - If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" - If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" - 'Debug.Print(FileGoto) + If FrmSettings.NBEmpathy.Value = 1 Then ssh.FileGoto = "(ApathyLevel1)" + If FrmSettings.NBEmpathy.Value = 2 Then ssh.FileGoto = "(ApathyLevel2)" + If FrmSettings.NBEmpathy.Value = 3 Then ssh.FileGoto = "(ApathyLevel3)" + If FrmSettings.NBEmpathy.Value = 4 Then ssh.FileGoto = "(ApathyLevel4)" + If FrmSettings.NBEmpathy.Value = 5 Then ssh.FileGoto = "(ApathyLevel5)" - ssh.SkipGotoLine = True - GetGoto() + 'Debug.Print(FileGoto) - StringClean = StringClean.Replace("@GotoDommeApathy", "") - End If + ssh.SkipGotoLine = True + GetGoto() - If StringClean.Contains("@GotoDommeLevel") Then + StringClean = StringClean.Replace("@GotoDommeApathy", "") + End If - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" + If StringClean.Contains("@GotoDommeLevel") Then - 'Debug.Print(FileGoto) + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.FileGoto = "(DommeLevel1)" + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.FileGoto = "(DommeLevel2)" + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.FileGoto = "(DommeLevel3)" + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.FileGoto = "(DommeLevel4)" + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.FileGoto = "(DommeLevel5)" - ssh.SkipGotoLine = True - GetGoto() + 'Debug.Print(FileGoto) - StringClean = StringClean.Replace("@GotoDommeLevel", "") - End If + ssh.SkipGotoLine = True + GetGoto() - If StringClean.Contains("@CheckBnB") Then - If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then - ssh.FileGoto = "(No BnB)" - ssh.SkipGotoLine = True - GetGoto() - End If - StringClean = StringClean.Replace("@CheckBnB", "") - End If + StringClean = StringClean.Replace("@GotoDommeLevel", "") + End If - If StringClean.Contains("@CheckStrokingState") Then - 'If SubStroking = True Then - If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ssh.FileGoto = "(Sub Stroking)" - Else - ssh.FileGoto = "(Sub Not Stroking)" - End If + If StringClean.Contains("@CheckBnB") Then + If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then + ssh.FileGoto = "(No BnB)" ssh.SkipGotoLine = True GetGoto() - StringClean = StringClean.Replace("@CheckStrokingState", "") End If + StringClean = StringClean.Replace("@CheckBnB", "") + End If + + If StringClean.Contains("@CheckStrokingState") Then + 'If SubStroking = True Then + If ssh.SubStroking = True Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then + ssh.FileGoto = "(Sub Stroking)" + Else + ssh.FileGoto = "(Sub Not Stroking)" + End If + ssh.SkipGotoLine = True + GetGoto() + StringClean = StringClean.Replace("@CheckStrokingState", "") + End If Debug.Print("Command Clean Complete") @@ -12796,7 +12796,7 @@ VTSkip: End Sub -#End Region ' WebToy +#End Region ' WebToy #Region "-------------------------------- Script: Flags/Dates/Variables ---------------------------------" @@ -12815,9 +12815,9 @@ VTSkip: Using fs As New FileStream(FlagName, FileMode.Create) : End Using End Sub - ''' Deletes the given flag. Deletes permanent and temporary flags. - ''' The name of the flag to delete. - Friend Sub DeleteFlag(ByVal FlagName As String) + ''' Deletes the given flag. Deletes permanent and temporary flags. + ''' The name of the flag to delete. + Friend Sub DeleteFlag(ByVal FlagName As String) If File.Exists(ssh.Folders.Flags & FlagName) Then _ File.Delete(ssh.Folders.Flags & FlagName) @@ -12826,10 +12826,10 @@ VTSkip: File.Delete(ssh.Folders.TempFlags & FlagName) End Sub - ''' Checks if the given flag is set, permanent and temporary. - ''' The flag name to search for. - ''' Returns true if a permanent or temporary flag with the name is found. - Friend Function FlagExists(ByVal FlagName As String) As Boolean + ''' Checks if the given flag is set, permanent and temporary. + ''' The flag name to search for. + ''' Returns true if a permanent or temporary flag with the name is found. + Friend Function FlagExists(ByVal FlagName As String) As Boolean If File.Exists(ssh.Folders.Flags & FlagName) OrElse File.Exists(ssh.Folders.TempFlags & FlagName) Then @@ -12840,7 +12840,7 @@ VTSkip: End Function -#End Region ' Script-Flags +#End Region ' Script-Flags #Region "------------------------------------- Script-Variables -----------------------------------------" @@ -12863,8 +12863,8 @@ VTSkip: Dim Val2 As Integer If IsNumeric(ChangeVal1) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1) Then Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal1)) Else Val1 = 0 @@ -12874,8 +12874,8 @@ VTSkip: End If If IsNumeric(ChangeVal2) = False Then - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2) Then Val2 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVal2)) Else Val2 = 0 @@ -12904,13 +12904,13 @@ VTSkip: Public Function GetVariable(ByVal VarName As String) As String Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - '### DEBUG + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + '### DEBUG - ' VarGet = Val(VarReader.ReadLine()) + ' VarGet = Val(VarReader.ReadLine()) - VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) + VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Else VarGet = 0 End If @@ -12995,15 +12995,15 @@ VTSkip: End Function -#End Region ' Script-Variables +#End Region ' Script-Variables #Region "---------------------------------------- Script-Dates ------------------------------------------" Public Function GetDate(ByVal VarName As String) As Date Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else VarGet = FormatDateTime(Now, DateFormat.GeneralDate) @@ -13017,8 +13017,8 @@ VTSkip: Public Function GetTime(ByVal VarName As String) As Date Dim VarGet As String - 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then + 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else VarGet = FormatDateTime(Now, DateFormat.LongTime) @@ -13129,9 +13129,9 @@ VTSkip: End Function -#End Region ' Script-Dates +#End Region ' Script-Dates -#End Region ' Flags/Dates/Variables +#End Region ' Flags/Dates/Variables @@ -13141,15 +13141,15 @@ VTSkip: Dim ParenFlag As String = ParenCheck Dim ParenStart As Integer = ParenFlag.IndexOf(CommandCheck) + CommandCheck.Length - 'githib patch Dim ParenType As String + 'githib patch Dim ParenType As String - Dim ParenType As String = Nothing + Dim ParenType As String = Nothing - ' #### CHECK ALL GETPAREN! - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" - 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" + ' #### CHECK ALL GETPAREN! + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" + 'If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then ParenType = "]" - If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then + If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "(" Then ParenType = ")" End If If CommandCheck.Substring(CommandCheck.Length - 1, 1) = "[" Then @@ -13158,21 +13158,21 @@ VTSkip: - 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) + 'ParenFlag = ParenFlag.Substring(ParenStart, ParenFlag.Length - ParenStart) - 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) - Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) + 'Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart) + Dim ParenEnd As Integer = GetNthIndex(ParenFlag, ParenType, ParenStart, Iterations) Debug.Print("ParenEnd = " & ParenEnd) If ParenEnd = -1 Then ParenEnd = ParenFlag.Length ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart) - 'ParenFlag = ParenFlag.Split(")")(0) - 'ParenFlag = ParenFlag.Split(ParenType)(0) - 'ParenFlag = ParenFlag.Replace(ParenType, "") - 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) - Debug.Print("ParenFlag = " & ParenFlag) + 'ParenFlag = ParenFlag.Split(")")(0) + 'ParenFlag = ParenFlag.Split(ParenType)(0) + 'ParenFlag = ParenFlag.Replace(ParenType, "") + 'ParenFlag = ParenFlag.Substring(0, ParenFlag.Length - 1) + Debug.Print("ParenFlag = " & ParenFlag) Return ParenFlag @@ -13181,8 +13181,8 @@ VTSkip: Public Function GetNthIndex(ByVal searchString As String, ByVal charToFind As Char, ByVal startIndex As Integer, ByVal n As Integer) As Integer Dim charIndexPair = searchString.Select(Function(c, i) New With {.Character = c, .Index = i}) _ - .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ - .ElementAtOrDefault(n - 1) + .Where(Function(x) x.Character = charToFind And x.Index > startIndex) _ + .ElementAtOrDefault(n - 1) Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1) End Function @@ -13207,40 +13207,40 @@ VTSkip: End Function Public Function GetLocalImage(Optional ByVal IncludeTags As List(Of String) = Nothing, - Optional ByVal ExcludeTags As List(Of String) = Nothing) As String + Optional ByVal ExcludeTags As List(Of String) = Nothing) As String If File.Exists(Application.StartupPath & "\Images\System\LocalImageTags.txt") Then - ' Read all lines of given file. - ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") + ' Read all lines of given file. + ssh.LocalTagImageList = Txt2List(Application.StartupPath & "\Images\System\LocalImageTags.txt") Dim ValidExt As String() = Split(".jpg|.jpeg|.bmp|.png|.gif", "|") ssh.LocalTagImageList.RemoveAll(Function(x) - ' Remove if given include tags are missing - If IncludeTags IsNot Nothing Then + ' Remove if given include tags are missing + If IncludeTags IsNot Nothing Then For Each tag As String In IncludeTags If Not x.Contains(tag.Replace("@", "")) Then Return True Next End If - ' Remove if given exclude tags are present - If ExcludeTags IsNot Nothing Then + ' Remove if given exclude tags are present + If ExcludeTags IsNot Nothing Then For Each tag As String In ExcludeTags If x.Contains(tag.Replace("@", "")) Then Return True Next End If - ' Remove all without valid extension - Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower + ' Remove all without valid extension + Dim Ext As String = Path.GetExtension(Split(x)(0)).ToLower If Not ValidExt.Contains(Ext) Then Return True - 'Everything fine keep file - Return False + 'Everything fine keep file + Return False End Function) Do While ssh.LocalTagImageList.Count > 0 Dim rndNumber As Integer = ssh.randomizer.Next(0, ssh.LocalTagImageList.Count) - ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. - Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) + ' TODO: GetLocalImage: Add space char (0x20) support for filepaths. + Dim Filepath As String = Split(ssh.LocalTagImageList(rndNumber))(0) If Directory.Exists(Path.GetDirectoryName(Filepath)) _ AndAlso File.Exists(Filepath) Then @@ -13254,14 +13254,14 @@ VTSkip: Return String.Empty End Function - Public Function GetLocalImage(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String + Public Function GetLocalImage(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False) As String Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" If isDommeTag Then fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" End If - 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. - If File.Exists(fileToCheck) Then + 'TODO-Next: @ImageTag() Implement optimized @ShowTaggedImage code. + If File.Exists(fileToCheck) Then Dim TagList As New List(Of String) @@ -13305,15 +13305,15 @@ VTSkip: If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir Return PicDir - Else - Return String.Empty + Else + Return String.Empty End If End If End Function - Public Function GetLocalImageOr(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String + Public Function GetLocalImageOr(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False) As String Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" If isDommeTag Then fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" @@ -13347,7 +13347,7 @@ VTSkip: End If Next - If TaggedList.Count > 0 Then + If TaggedList.Count > 0 Then Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split Dim PicDir As String = "" @@ -13366,7 +13366,7 @@ VTSkip: End If End Function - Public Function GetLocalImageAny(ByVal LocTag As String, Optional isDommeTag As Boolean = False) As String + Public Function GetLocalImageAny(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False) As String Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" If isDommeTag Then fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" @@ -13483,36 +13483,36 @@ VTSkip: Dim ListIncrement As Integer = 1 If ssh.StrokeFilter = True Then ListIncrement = ssh.StrokeTauntCount - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Check if Grouped-Lines-Files have the right amount of Lines - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' No need to go further on an empty file. - If ListClean.Count <= 0 Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Check if Grouped-Lines-Files have the right amount of Lines + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' No need to go further on an empty file. + If ListClean.Count <= 0 Then Trace.WriteLine("FilterList started with empty List. Skipping filter.") Return ListClean End If - ' To Avoid DivideByZeroException - If ListIncrement <= 0 Then + ' To Avoid DivideByZeroException + If ListIncrement <= 0 Then Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & "", False) Return ListClean End If - ' Divide List.Count by StrokeTauntSize and get the Remainder. - Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement + ' Divide List.Count by StrokeTauntSize and get the Remainder. + Dim InvalidLineCount As Integer = ListClean.Count Mod ListIncrement - ' If there is a Remainder, the file has not the desired Line.Count. - If InvalidLineCount > 0 Then - ' So delete the Lines of the last and hopefully uncomplete Group. - ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) + ' If there is a Remainder, the file has not the desired Line.Count. + If InvalidLineCount > 0 Then + ' So delete the Lines of the last and hopefully uncomplete Group. + ListClean.RemoveRange(ListClean.Count - InvalidLineCount, InvalidLineCount) End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Grouped-Lines-Check-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Grouped-Lines-Check-END + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement FilterPass = True @@ -13554,15 +13554,15 @@ VTSkip: Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean Dim OrgFilterString As String = FilterString Try - '######################### Determine filtering Contact ########################### - Dim FilterContact As ContactData + '######################### Determine filtering Contact ########################### + Dim FilterContact As ContactData Dim ActiveContacts As New List(Of String) For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) - ' Pattern Description: - ' [d\d]: All Numbers and letter "D" - ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) - ActiveContacts.Add(match.Value) + ' Pattern Description: + ' [d\d]: All Numbers and letter "D" + ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) + ActiveContacts.Add(match.Value) Next If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then @@ -13699,15 +13699,15 @@ VTSkip: If FilterString.Contains("@ShowLocalImage") Or FilterString.Contains("@ShowButtImage") Or FilterString.Contains("@ShowBoobsImage") Or FilterString.Contains("@ShowButtsImage") Or FilterString.Contains("@ShowBoobsImage") Then If ssh.CustomSlideEnabled = True Or ssh.LockImage = True Then Return False End If - 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. - If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False + 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. + If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False If FilterString.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = FilterString.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList If GetLocalImage(Tags, Nothing) = String.Empty Or mainPictureBox.Visible = False Then Return False End If @@ -13718,10 +13718,10 @@ VTSkip: If FilterString.Contains("@ShowSoftcoreImage") Then If Not GetImageData(ImageGenre.Softcore).IsAvailable Or ssh.LockImage = True Or ssh.CustomSlideEnabled = True Or mainPictureBox.Visible = False Then Return False End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Disqualifying @Commands - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Disqualifying @Commands - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + End If '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Commands to sort out @@ -13804,15 +13804,15 @@ VTSkip: 'End If End If - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Possible space Filters - ' This Section Contains @CommandFilters which allow space chars (0x20). - ' - ' Example: "@Cup(A, B) Whatever Text To display" - ' Mostly all perametrized command filters allow space chars in parameters. - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Possible space Filters + ' This Section Contains @CommandFilters which allow space chars (0x20). + ' + ' Example: "@Cup(A, B) Whatever Text To display" + ' Mostly all perametrized command filters allow space chars in parameters. + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If FilterString.Contains("@AllowsOrgasm(") Then + If FilterString.Contains("@AllowsOrgasm(") Then If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False End If If FilterString.Contains("@ApathyLevel(") Then @@ -13846,20 +13846,20 @@ VTSkip: If FilterString.Contains("@SetModule(") Then If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False End If - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Possible space Filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Single word filters - ' This section contains single word command filters. - ' Since there are some legacy commands, which are filters and also instructions, - ' this section will ignore all @Statements after @NullResponse or the first - ' word not starting with "@" (0x40) - ' - ' Beware: destroys the original FilterString-Value! - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - Dim FilterList As String() + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Possible space Filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Single word filters + ' This section contains single word command filters. + ' Since there are some legacy commands, which are filters and also instructions, + ' this section will ignore all @Statements after @NullResponse or the first + ' word not starting with "@" (0x40) + ' + ' Beware: destroys the original FilterString-Value! + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + Dim FilterList As String() FilterList = FilterString.Split(" ") FilterString = "" @@ -14174,16 +14174,16 @@ VTSkip: End If If FilterString.Contains("@Info") Then Return False - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Single word filters - End - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - Return True + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Single word filters - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + Return True Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") + ex, "GetFilter(String, Boolean)") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error: " & ex.Message & "", False) Return False End Try @@ -14195,15 +14195,15 @@ VTSkip: Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) Try - '=============================================================================== - ' Dictionary Setup Description - ' 1st Parameter: "Key" this is the Command as String preceded with @ - ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. - ' - ' If "Value" is "True", all lines containing "Key" will be excuded. - ' - '=============================================================================== - With __ConditionDic + '=============================================================================== + ' Dictionary Setup Description + ' 1st Parameter: "Key" this is the Command as String preceded with @ + ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. + ' + ' If "Value" is "True", all lines containing "Key" will be excuded. + ' + '=============================================================================== + With __ConditionDic .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) @@ -14270,16 +14270,16 @@ VTSkip: .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) - '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. - '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) + .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. + '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) + '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) @@ -14298,8 +14298,8 @@ VTSkip: .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) - '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. - .Add("@BeforeTease", ssh.BeforeTease = False) + '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. + .Add("@BeforeTease", ssh.BeforeTease = False) .Add("@OrgasmDenied", ssh.OrgasmDenied = False) .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) .Add("@OrgasmRuined", ssh.OrgasmRuined = False) @@ -14367,7 +14367,7 @@ VTSkip: .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. - .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) + .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) .Add("@SubWorshipping", ssh.WorshipMode = False) .Add("@SubNotWorshipping", ssh.WorshipMode = True) @@ -14378,10 +14378,10 @@ VTSkip: .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) End With Catch ex As ArgumentException - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' ArgumentException => Will occur everytime until you fix Source Code! - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' ArgumentException => Will occur everytime until you fix Source Code! + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & "This error is major issue in Code And will occur everytime until you fix this Error. For there is no point in " & "further executing the Code, the application will exit after closing this Message." & vbCrLf & @@ -14391,29 +14391,29 @@ VTSkip: Try - ' Declare a new regex Instance, for detecting the parameters in a line. - ' Allowed chars for Commands are: A-Z a-z 0-9 @ - ' Allowed Brackets are : ( [ - ' Minimum length is 3 Chars, maximum Command length has no restriction. - Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) + ' Declare a new regex Instance, for detecting the parameters in a line. + ' Allowed chars for Commands are: A-Z a-z 0-9 @ + ' Allowed Brackets are : ( [ + ' Minimum length is 3 Chars, maximum Command length has no restriction. + Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) - ' Execute regex on current line, to find all containing Commands - Dim mc As MatchCollection = __re.Matches(FilterString) + ' Execute regex on current line, to find all containing Commands + Dim mc As MatchCollection = __re.Matches(FilterString) For Each m As Match In mc If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then - '=============================================================================== - ' Known Command - DELETE Condition = TRUE - '=============================================================================== - ' The Command is known and his delete condition is True -> delete line - Return False + '=============================================================================== + ' Known Command - DELETE Condition = TRUE + '=============================================================================== + ' The Command is known and his delete condition is True -> delete line + Return False ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then - '=============================================================================== - ' Unknown Command / BracketCommand - '=============================================================================== - Dim Condition As Boolean = False + '=============================================================================== + ' Unknown Command / BracketCommand + '=============================================================================== + Dim Condition As Boolean = False Select Case m.Value.ToUpper Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) @@ -14423,28 +14423,28 @@ VTSkip: Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) - 'QND-Implemented: ContactData.GetTaggedImage - 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True - Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) + 'QND-Implemented: ContactData.GetTaggedImage + 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True + Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) Case "@ImageTagOr(".ToUpper : Condition = GetLocalImageOr(FilterString) Case Else - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - ' Unknown Command => goto next Match - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - Dim f As String = "" ' Debug line to add the ability to set a breakpoint. - Exit For + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + ' Unknown Command => goto next Match + '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= + Dim f As String = "" ' Debug line to add the ability to set a breakpoint. + Exit For End Select - ' The Command is known and his delete condition is True -> delete line - If Condition Then Return False + ' The Command is known and his delete condition is True -> delete line + If Condition Then Return False End If Next ' of Regex matches (Commands) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: Once implemented rethrow all exceptions. - 'Throw - End Try + Catch ex As Exception + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + 'TODO: Once implemented rethrow all exceptions. + 'Throw + End Try Return True @@ -14508,23 +14508,23 @@ VTSkip: Private Sub chatBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress If e.KeyChar = Chr(13) Then e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) + ' sendButton.PerformClick() + e.KeyChar = Chr(0) End If End Sub Private Sub chatBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress If e.KeyChar = Chr(13) Then e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) + ' sendButton.PerformClick() + e.KeyChar = Chr(0) End If End Sub - ''' Appends a system message to chat and prints it if desired. - ''' Messagetext to append to chat. - ''' If true the chatwindow is refreshed and reprinted. - Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) + ''' Appends a system message to chat and prints it if desired. + ''' Messagetext to append to chat. + ''' If true the chatwindow is refreshed and reprinted. + Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) ChatAppend("" & messageText & "", printChat) 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" End Sub @@ -14570,7 +14570,7 @@ VTSkip: ScrollChatDown() End Sub -#End Region ' Chatbox +#End Region ' Chatbox #Region "------------------------------------ Avoid the Edge --------------------------------------------" @@ -14612,15 +14612,15 @@ VTSkip: If ssh.AvoidTheEdgeStroking = False Then - 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) + 'CensorshipTick = randomizer.Next(NBCensorHideMin.Value, NBCensorHideMax.Value + 1) - ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value + ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value - ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then - 'Return - 'End If + ' If AvoidTheEdgeLineTemp > TauntSlider.Value * 5 Then + 'Return + 'End If - Using ioFileA As New StreamReader(AvoidTheEdgeVideo) + Using ioFileA As New StreamReader(AvoidTheEdgeVideo) Dim linesA As New List(Of String) Dim TempAvoidTheEdgeLine As Integer @@ -14699,10 +14699,10 @@ VTSkip: Dim AvoidTheEdgeLine As Integer - 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) - 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) + 'Debug.Print("AvoidTheEdgeLineStart = " & AvoidTheEdgeLineStart) + 'Debug.Print("AvoidTheEdgeLineEnd = " & AvoidTheEdgeLineEnd) - AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) + AvoidTheEdgeLine = ssh.randomizer.Next(AvoidTheEdgeLineStart + 1, AvoidTheEdgeLineEnd) ssh.DomTask = lines(AvoidTheEdgeLine) @@ -14725,16 +14725,16 @@ VTSkip: If ChatBox2.Text <> "" And ssh.AtECountdown < 6 Then Return ssh.AtECountdown -= 1 - 'Debug.Print("AtECountdown = " & AtECountdown) + 'Debug.Print("AtECountdown = " & AtECountdown) - If ssh.AtECountdown < 1 Then + If ssh.AtECountdown < 1 Then AvoidTheEdgeResume.Stop() ssh.FileGoto = "NoAvoidTheEdgeInstructions" ssh.SkipGotoLine = True GetGoto() - 'domVLC.playlist.play() - DomWMP.Ctlcontrols.play() + 'domVLC.playlist.play() + DomWMP.Ctlcontrols.play() HandleScripts() ScriptTimer.Start() @@ -14744,7 +14744,7 @@ VTSkip: End Sub -#End Region ' Avoid the Edge +#End Region ' Avoid the Edge @@ -15022,22 +15022,22 @@ NoPlaylistLinkFile: ssh.StrokeTauntVal = -1 ClearModes() ssh.FirstRound = False - 'My.Settings.Sys_SubLeftEarly = 0 + 'My.Settings.Sys_SubLeftEarly = 0 - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_SubLeftEarly", "0", False) - SetVariable("SYS_SubLeftEarly", 0) + SetVariable("SYS_SubLeftEarly", 0) SetVariable("SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1) - 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalityComboBox.Text & "\System\Variables\SYS_EndTotal", Val(GetVariable("SYS_EndTotal")) + 1, False) - 'Debug.Print("RunLastScript() Called") + 'Debug.Print("RunLastScript() Called") - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistEndFile If ssh.Playlist = False Or ssh.PlaylistFile(ssh.PlaylistCurrent).Contains("Random End") Then @@ -15129,8 +15129,8 @@ NoPlaylistEndFile: ssh.StrokeTauntVal = -1 ClearModes() - 'Debug.Print("RunLastBegScript() Called") - Dim EndList As New List(Of String) + 'Debug.Print("RunLastBegScript() Called") + Dim EndList As New List(Of String) EndList.Clear() For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\End\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") @@ -15180,9 +15180,9 @@ NoPlaylistEndFile: ScriptTimer.Start() ssh.LastScript = True - 'RunFileText() + 'RunFileText() - End Sub + End Sub Public Sub StopEverything() @@ -15224,8 +15224,8 @@ NoPlaylistEndFile: ssh.CBTBothFlag = False ssh.CustomTaskActive = False - ' Unlock OrgasmChances - FrmSettings.LockOrgasmChances(False) + ' Unlock OrgasmChances + FrmSettings.LockOrgasmChances(False) If Not ssh.giveUpReturn Then ClearModes() @@ -15256,9 +15256,9 @@ NoPlaylistEndFile: FrmSettings.LBLDebugEdgeTauntTime.Text = ssh.EdgeTauntInt - 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) + 'Debug.Print("EdgeTauntIn = " & EdgeTauntInt) - ssh.EdgeTauntInt -= 1 + ssh.EdgeTauntInt -= 1 If ssh.EdgeTauntInt < 1 Then @@ -15270,15 +15270,15 @@ NoPlaylistEndFile: File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Edge\GroupEdge.txt" End If - 'Read all lines of the given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + 'Read all lines of the given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) Try ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Edge Taunt from file " & - File2Read, ex, "EdgeTauntTimer.Tick") + File2Read, ex, "EdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Edge Taunt from file: " & File2Read End Try @@ -15294,9 +15294,9 @@ NoPlaylistEndFile: Private Sub HoldEdgeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoldEdgeTimer.Tick - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - ssh.HoldEdgeTime += 1 + ssh.HoldEdgeTime += 1 ssh.HoldEdgeTimeTotal += 1 My.Settings.HoldEdgeTimeTotal = ssh.HoldEdgeTimeTotal @@ -15306,8 +15306,8 @@ NoPlaylistEndFile: If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - 'If DomTyping = True Then Return - If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return + 'If DomTyping = True Then Return + If ssh.DomTypeCheck = True And ssh.HoldEdgeTick < 4 Then Return If chatBox.Text <> "" And ssh.HoldEdgeTick < 4 Then Return If ChatBox2.Text <> "" And ssh.HoldEdgeTick < 4 Then Return If ssh.FollowUp <> "" And ssh.HoldEdgeTick < 4 Then Return @@ -15315,12 +15315,12 @@ NoPlaylistEndFile: ssh.HoldEdgeTick -= 1 FrmSettings.LBLDebugHoldEdgeTime.Text = ssh.HoldEdgeTick - 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) + 'Debug.Print("HoldEdgeTick = " & HoldEdgeTick) - If ssh.HoldEdgeTick < 1 Then + If ssh.HoldEdgeTick < 1 Then - 'stop - ssh.LongHold = False + 'stop + ssh.LongHold = False ssh.ExtremeHold = False ssh.HoldTaunts = False ssh.LongTaunts = False @@ -15328,10 +15328,10 @@ NoPlaylistEndFile: ssh.WorshipMode = False ssh.WorshipTarget = "" - 'If OrgasmAllowed = True Then GoTo AllowedOrgasm - 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm + 'If OrgasmAllowed = True Then GoTo AllowedOrgasm + 'If EdgeToRuin = True Or OrgasmRuined = True Then GoTo RuinedOrgasm - If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then + If ssh.EdgeToRuin = True Or ssh.OrgasmRuined = True Then ssh.LastOrgasmType = "RUINED" ssh.OrgasmRuined = False GoTo RuinedOrgasm @@ -15377,8 +15377,8 @@ NoPlaylistEndFile: TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15456,8 +15456,8 @@ RuinedOrgasm: End If TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15519,8 +15519,8 @@ AllowedOrgasm: ssh.SubHoldingEdge = False ssh.SubStroking = False ssh.OrgasmYesNo = False - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = NoCumList(ssh.randomizer.Next(0, NoCumList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15574,8 +15574,8 @@ NoNoCumFiles: End If TeaseTimer.Start() - 'ShowModule = True - ssh.StrokeTauntVal = -1 + 'ShowModule = True + ssh.StrokeTauntVal = -1 ssh.FileText = RepeatList(ssh.randomizer.Next(0, RepeatList.Count)) ssh.ScriptTick = 2 ScriptTimer.Start() @@ -15598,8 +15598,8 @@ NoRepeatOFiles: ssh.SubHoldingEdge = False ssh.SubStroking = False ssh.OrgasmYesNo = False - 'OrgasmAllowed = False - ssh.DomChat = "#CumForMe" + 'OrgasmAllowed = False + ssh.DomChat = "#CumForMe" If ssh.Contact1Edge = True Then ssh.DomChat = "@Contact1 #CumForMe" ssh.Contact1Edge = False @@ -15642,15 +15642,15 @@ NoRepeatOFiles: File2Read = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\HoldTheEdge\GroupHoldTheEdge.txt" End If - ' Read all lines of given file. - Dim ETLines As List(Of String) = Txt2List(File2Read) + ' Read all lines of given file. + Dim ETLines As List(Of String) = Txt2List(File2Read) Try ETLines = FilterList(ETLines) ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") + File2Read, ex, "HoldEdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read End Try @@ -15663,7 +15663,7 @@ NoRepeatOFiles: End Sub -#End Region ' Hold the Edge +#End Region ' Hold the Edge Public Sub CreateTaskLetter() @@ -15899,10 +15899,10 @@ PoundLoop: Return TaskEntry Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Error occurred during file processing """ & dir & """", ex, "CleanTaskLines(String)") + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Log.WriteError("Error occurred during file processing """ & dir & """", ex, "CleanTaskLines(String)") Return "ERROR: Tease AI did not return a valid Task line" End Try End Function @@ -15942,8 +15942,8 @@ PoundLoop: Private Sub SlideshowTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlideshowTimer.Tick - 'TODO: Remove CrossForm data access - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + 'TODO: Remove CrossForm data access + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.SlideshowLoaded = False Or FrmSettings.timedRadio.Checked = False Or ssh.TeaseVideo = True Or ssh.LockImage = True Or ssh.JustShowedBlogImage = True Or ssh.CustomSlideEnabled = True Then Return @@ -16023,12 +16023,12 @@ TryNext: Dim TST As TimeSpan = TimeSpan.FromSeconds(ssh.EdgeCountTick) - ''Debug.Print("{0: c} : {1:c}", TST.Minutes, TST.Seconds) + ''Debug.Print("{0: c} : {1:c}", TST.Minutes, TST.Seconds) 'Debug.Print("EdgeCountTick = " & String.Format("{0:00}:{1:00}", TST.Minutes, TST.Seconds)) - End Sub + End Sub Private Sub StrokeTimeTotalTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrokeTimeTotalTimer.Tick @@ -16037,9 +16037,9 @@ TryNext: If ssh.SubStroking = False Then Return ssh.StrokeTimeTotal += 1 - 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) + 'Debug.Print("StrokeTimeTotal = " & StrokeTimeTotal) - My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal + My.Settings.StrokeTimeTotal = ssh.StrokeTimeTotal Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) @@ -16085,25 +16085,25 @@ RestartFunction: ssh.AssImage = True End If - ' If the elapsed time to load an image was longer as the Timer.Interval - ' we restart the function instantly, to avoid an unnecessary delay. - ' If it took way too long and the Timer was stopped during imagedownload, - ' we dont want the timer to restart. - If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then + ' If the elapsed time to load an image was longer as the Timer.Interval + ' we restart the function instantly, to avoid an unnecessary delay. + ' If it took way too long and the Timer was stopped during imagedownload, + ' we dont want the timer to restart. + If tmpSw.ElapsedMilliseconds > TnASlides.Interval And TnASlides.Enabled Then GoTo RestartFunction End If Catch ex As Exception - ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ - ' Remove the ImagePath and retry. - ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) + ' @@@@@@@@@@@@@@@@ Exception while loading image @@@@@@@@@@@@@@@@@ + ' Remove the ImagePath and retry. + ssh.BoobList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) ssh.AssList.RemoveAll(Function(x) x.Contains(tmpImageToShow)) GoTo RestartFunction End Try Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - TnASlides.Stop() + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + TnASlides.Stop() Log.WriteError(ex.Message & vbCrLf & "TnA Slideshow will stop.", ex, "Exception in TnASlides.Tick occured") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " : Exception in TnASlides.Tick occured", False) End Try @@ -16130,9 +16130,9 @@ RestartFunction: If (DomWMP.playState = WMPLib.WMPPlayState.wmppsStopped) Then - 'Debug.Print("WMP Stopped Called") + 'Debug.Print("WMP Stopped Called") - VideoTimer.Stop() + VideoTimer.Stop() ssh.edgeMode.VideoMode = False ssh.yesMode.VideoMode = False @@ -16188,22 +16188,22 @@ RestartFunction: ssh.ScriptTick = 2 ScriptTimer.Start() - 'RunFileText() + 'RunFileText() - 'AvoidTheEdge.Stop() - 'AvoidTheEdgeGame = False - 'SkipGotoLine = True - 'If AvoidTheEdgeTimerTick < 1 Then - 'FileGoto = "(AvoidTheEdge Video Stop)" - 'Else - ' FileGoto = "(AvoidTheEdge Video Continue)" - 'End If - 'GetGoto() - 'RunFileText() - End If + 'AvoidTheEdge.Stop() + 'AvoidTheEdgeGame = False + 'SkipGotoLine = True + 'If AvoidTheEdgeTimerTick < 1 Then + 'FileGoto = "(AvoidTheEdge Video Stop)" + 'Else + ' FileGoto = "(AvoidTheEdge Video Continue)" + 'End If + 'GetGoto() + 'RunFileText() + End If If ssh.RLGLGame = True Then RLGLTimer.Stop() @@ -16267,15 +16267,15 @@ RestartFunction: 'Debug.Print("New movie loaded: " & DomWMP.URL.ToString) - ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) + ssh.VidFile = Path.GetFileName(DomWMP.URL.ToString) Dim VidSplit As String() = ssh.VidFile.Split(".") ssh.VidFile = "" For i As Integer = 0 To VidSplit.Count - 2 ssh.VidFile = ssh.VidFile + VidSplit(i) Next - 'Debug.Print(VidFile) - If ssh.VidFile = "" Then Exit Sub + 'Debug.Print(VidFile) + If ssh.VidFile = "" Then Exit Sub If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Scripts\" & ssh.VidFile & ".txt") Then Dim SubCheck As String() Dim PlayPos As Integer @@ -16306,7 +16306,7 @@ RestartFunction: End Sub -#End Region 'Domme-WMP +#End Region 'Domme-WMP Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() @@ -16332,9 +16332,9 @@ RestartFunction: If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return - 'Debug.Print("WaitTick = " & WaitTick) + 'Debug.Print("WaitTick = " & WaitTick) - ssh.WaitTick -= 1 + ssh.WaitTick -= 1 If ssh.WaitTick < 1 Then WaitTimer.Stop() @@ -16487,8 +16487,8 @@ RestartFunction: Private Sub VideoTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoTauntTimer.Tick - 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.DomTyping = True Then Return If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return @@ -16509,11 +16509,11 @@ RestartFunction: Dim VTDir As String If ssh.RLGLGame = True Then VTDir = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Video\Red Light Green Light\Taunts.txt" - 'TODO: Prevent File.Exits() with String.Empty - If Not File.Exists(VTDir) Then Return + 'TODO: Prevent File.Exits() with String.Empty + If Not File.Exists(VTDir) Then Return - ' Read all lines of the given file. - Dim VTList As List(Of String) = Txt2List(VTDir) + ' Read all lines of the given file. + Dim VTList As List(Of String) = Txt2List(VTDir) Try VTList = FilterList(VTList) @@ -16521,7 +16521,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "VideoTauntTimer.Tick") + VTDir, ex, "VideoTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try @@ -16548,9 +16548,9 @@ RestartFunction: FrmSettings.LBLDebugTeaseTime.Text = ssh.TeaseTick - 'Debug.Print("TeaseTick = " & TeaseTick) + 'Debug.Print("TeaseTick = " & TeaseTick) - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return ssh.TeaseTick -= 1 @@ -16560,7 +16560,7 @@ RestartFunction: End Sub - Public Sub RLGLTauntTimer_Tick(sender As System.Object, e As System.EventArgs) Handles RLGLTauntTimer.Tick + Public Sub RLGLTauntTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RLGLTauntTimer.Tick 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -16595,7 +16595,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "RLGLTauntTimer.Tick") + VTDir, ex, "RLGLTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16611,7 +16611,7 @@ RestartFunction: End Sub - Private Sub AvoidTheEdgeTaunts_Tick(sender As System.Object, e As System.EventArgs) Handles AvoidTheEdgeTaunts.Tick + Private Sub AvoidTheEdgeTaunts_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvoidTheEdgeTaunts.Tick 'TODO: Merge redundant code: VideoTauntTimer_Tick, RLGLTauntTimer_Tick, AvoidTheEdgeTaunts_Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -16648,7 +16648,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "AvoidTheEdgeTaunts.Tick") + VTDir, ex, "AvoidTheEdgeTaunts.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16665,7 +16665,7 @@ RestartFunction: #Region "-------------------------------------------------- MainPictureBox ----------------------------------------------------" - Private Sub mainPictureBox_LoadCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles mainPictureBox.LoadCompleted + Private Sub mainPictureBox_LoadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles mainPictureBox.LoadCompleted ssh.ImageLocation = mainPictureBox.ImageLocation CheckDommeTags() Debug.Print("ImageLoadCOmpleted") @@ -16679,13 +16679,13 @@ RestartFunction: -#End Region ' MainPictureBox +#End Region ' MainPictureBox #Region "-------------------------------------------------- PictureStrip ------------------------------------------------------" - Private Sub PictureStrip_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles PictureStrip.Opening + Private Sub PictureStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles PictureStrip.Opening If mainPictureBox.Image IsNot Nothing Then Dim sh As ContactData = ssh.SlideshowMain @@ -16748,7 +16748,7 @@ RestartFunction: End Sub - Private Sub PictureStripTmsiDisableAnimation_Click(sender As Object, e As EventArgs) Handles PicStripTmsiDisableAnimation.Click + Private Sub PictureStripTmsiDisableAnimation_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PicStripTmsiDisableAnimation.Click If mreImageanimator.WaitOne(0) = True Then ' Signals the ImageAnimatorThread to pause. mreImageanimator.Reset() @@ -16758,17 +16758,17 @@ RestartFunction: End If End Sub - Private Sub PicStripTSMIcopyImageLocation_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIcopyImageLocation.Click + Private Sub PicStripTSMIcopyImageLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIcopyImageLocation.Click My.Computer.Clipboard.SetText(ssh.ImageLocation) End Sub - Public Sub PicStripTSMI_SaveImage(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIsaveHardcore.Click, - PicStripTSMIsaveSoftcore.Click, PicStripTSMIsaveLesbian.Click, PicStripTSMIsaveBlowjob.Click, PicStripTSMIsaveFemdom.Click, - PicStripTSMIsaveLezdom.Click, PicStripTSMIsaveHentai.Click, PicStripTSMIsaveGay.Click, PicStripTSMIsaveMaledom.Click, - PicStripTSMIsaveCaptions.Click, PicStripTSMIsaveGeneral.Click, PicStripTSMIsaveBoobs.Click, PicStripTSMIsaveButts.Click, PicStripTSMIsaveImage.Click + Public Sub PicStripTSMI_SaveImage(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIsaveHardcore.Click, + PicStripTSMIsaveSoftcore.Click, PicStripTSMIsaveLesbian.Click, PicStripTSMIsaveBlowjob.Click, PicStripTSMIsaveFemdom.Click, + PicStripTSMIsaveLezdom.Click, PicStripTSMIsaveHentai.Click, PicStripTSMIsaveGay.Click, PicStripTSMIsaveMaledom.Click, + PicStripTSMIsaveCaptions.Click, PicStripTSMIsaveGeneral.Click, PicStripTSMIsaveBoobs.Click, PicStripTSMIsaveButts.Click, PicStripTSMIsaveImage.Click retry: Try Dim BlogPath As String = "" @@ -16805,9 +16805,9 @@ retry: If Directory.Exists(BlogPath) = False Then Throw New DirectoryNotFoundException( - "Unable to find the directroy """ & BlogPath & """" & - vbCrLf & vbCrLf & - "Please check your image settings.") + "Unable to find the directroy """ & BlogPath & """" & + vbCrLf & vbCrLf & + "Please check your image settings.") End If Dim fullPath As String = BlogPath & "\" & fileName @@ -16817,10 +16817,10 @@ retry: ' Confirm overwriting the file If MessageBox.Show(Me, fileName & " already exists in this directory!" & - Environment.NewLine & Environment.NewLine & - "Do you wish to overwrite?", "Caution!", - MessageBoxButtons.YesNo, - MessageBoxIcon.Exclamation) = DialogResult.No Then + Environment.NewLine & Environment.NewLine & + "Do you wish to overwrite?", "Caution!", + MessageBoxButtons.YesNo, + MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -16835,13 +16835,13 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Saving image failed.") If MessageBox.Show(ex.Message, "Saving image failed.", - MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, - MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry + MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, + MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry End Try End Sub - Private Sub PicStripTSMIlikeImage_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, - PicStripTSMIdislikeImage.Click + Private Sub PicStripTSMIlikeImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, + PicStripTSMIdislikeImage.Click ' Exit if ImageLocation is unkown If ssh.ImageLocation = "" Then Exit Sub @@ -16883,11 +16883,11 @@ saveImage: lazytext = "Unable to " & lazytext Log.WriteError(lazytext, ex, "Error updating List") MessageBox.Show(Me, lazytext & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") + & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") End Try End Sub - Private Sub PicStripTSMIremoveFromURL_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIremoveFromURL.Click + Private Sub PicStripTSMIremoveFromURL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIremoveFromURL.Click Try ' Lock Control PicStripTSMIremoveFromURL.Enabled = False @@ -16900,13 +16900,13 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") + & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") End Try End Sub #Region "-------------------------------------------------- DommeSlideshow ----------------------------------------------------" - Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click + Private Sub PicStripTSMIdommeSlideshowGoToLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIdommeSlideshowGoToLast.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") @@ -16923,7 +16923,7 @@ saveImage: End Try End Sub - Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click + Private Sub PicStripTSMIdommeSlideshow_GoToFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIdommeSlideshow_GoToFirst.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") @@ -16940,7 +16940,7 @@ saveImage: End Try End Sub - Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(sender As System.Object, e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click + Private Sub PicStripTSMIdommeSlideshowLoadNewSlideshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIdommeSlideshowLoadNewSlideshow.Click If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") @@ -16959,9 +16959,9 @@ saveImage: End Sub -#End Region ' DommeSlideshow +#End Region ' DommeSlideshow -#End Region ' PictureStrip +#End Region ' PictureStrip Public Sub LoadDommeImageFolder() 'check which domme should be loaded @@ -17023,7 +17023,7 @@ saveImage: - Private Sub StatusUpdates_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted + Private Sub StatusUpdates_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted Try StatusUpdates.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) Catch @@ -17146,7 +17146,7 @@ saveImage: - Private Sub CustomSlideshowTimer_Tick(sender As System.Object, e As System.EventArgs) Handles CustomSlideshowTimer.Tick + Private Sub CustomSlideshowTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomSlideshowTimer.Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return Try Dim sw As New Stopwatch @@ -17203,85 +17203,85 @@ restartInstantly: - Private Sub Contact1Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact1Timer.Tick + Private Sub Contact1Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contact1Timer.Tick ' ssh.AddContactTick -= 1 ' If ssh.AddContactTick < 1 Then Contact1Timer.Stop() - If Not ssh.Group.Contains("1") Then - ssh.Group = ssh.Group & "1" - ssh.GlitterTease = True - ChatAddSystemMessage(My.Settings.Glitter1 & " has joined the Chat room") - Else - ssh.Group = ssh.Group.Replace("1", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(My.Settings.Glitter1 & " has left the Chat room") - End If + If Not ssh.Group.Contains("1") Then + ssh.Group = ssh.Group & "1" + ssh.GlitterTease = True + ChatAddSystemMessage(My.Settings.Glitter1 & " has joined the Chat room") + Else + ssh.Group = ssh.Group.Replace("1", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ChatAddSystemMessage(My.Settings.Glitter1 & " has left the Chat room") + End If ' End If End Sub - Private Sub Contact2Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact2Timer.Tick + Private Sub Contact2Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contact2Timer.Tick ' ssh.AddContactTick -= 1 ' If ssh.AddContactTick < 1 Then Contact2Timer.Stop() - If Not ssh.Group.Contains("2") Then - ssh.Group = ssh.Group & "2" - ssh.GlitterTease = True - ChatAddSystemMessage(My.Settings.Glitter2 & " has joined the Chat room") - Else - ssh.Group = ssh.Group.Replace("2", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(My.Settings.Glitter2 & " has left the Chat room") - End If + If Not ssh.Group.Contains("2") Then + ssh.Group = ssh.Group & "2" + ssh.GlitterTease = True + ChatAddSystemMessage(My.Settings.Glitter2 & " has joined the Chat room") + Else + ssh.Group = ssh.Group.Replace("2", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ChatAddSystemMessage(My.Settings.Glitter2 & " has left the Chat room") + End If ' End If End Sub - Private Sub Contact3Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Contact3Timer.Tick + Private Sub Contact3Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contact3Timer.Tick ' ssh.AddContactTick -= 1 ' If ssh.AddContactTick < 1 Then Contact3Timer.Stop() - If Not ssh.Group.Contains("3") Then - ssh.Group = ssh.Group & "3" - ssh.GlitterTease = True - ChatAddSystemMessage(My.Settings.Glitter3 & " has joined the Chat room") - Else - ssh.Group = ssh.Group.Replace("3", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(My.Settings.Glitter3 & " has left the Chat room") - End If + If Not ssh.Group.Contains("3") Then + ssh.Group = ssh.Group & "3" + ssh.GlitterTease = True + ChatAddSystemMessage(My.Settings.Glitter3 & " has joined the Chat room") + Else + ssh.Group = ssh.Group.Replace("3", "") + If ssh.Group = "D" Then ssh.GlitterTease = False + ChatAddSystemMessage(My.Settings.Glitter3 & " has left the Chat room") + End If ' End If End Sub #End Region - Private Sub DommeTimer_Tick(sender As System.Object, e As System.EventArgs) Handles DommeTimer.Tick + Private Sub DommeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DommeTimer.Tick ' ssh.AddContactTick -= 1 ' If ssh.AddContactTick < 1 Then DommeTimer.Stop() - If Not ssh.Group.Contains("D") Then - ssh.Group = ssh.Group & "D" - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has joined the Chat room") - Else - ssh.Group = ssh.Group.Replace("D", "") - ssh.GlitterTease = True - ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has left the Chat room") - End If + If Not ssh.Group.Contains("D") Then + ssh.Group = ssh.Group & "D" + If ssh.Group = "D" Then ssh.GlitterTease = False + ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has joined the Chat room") + Else + ssh.Group = ssh.Group.Replace("D", "") + ssh.GlitterTease = True + ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has left the Chat room") + End If ' End If End Sub - Private Sub UpdateStageTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdateStageTimer.Tick + Private Sub UpdateStageTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateStageTimer.Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return ssh.UpdateStageTick -= 1 If ssh.UpdateStageTick < 1 Then @@ -17294,7 +17294,7 @@ restartInstantly: #Region "------------------------------------------------------ MenuStuff -----------------------------------------------------" - Private Sub MenuStrip2_Leave(sender As System.Object, e As System.EventArgs) Handles MenuStrip2.Leave + Private Sub MenuStrip2_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuStrip2.Leave If FormBorderStyle = Windows.Forms.FormBorderStyle.None Then MainMenuStrip.Visible = False End If @@ -17302,11 +17302,11 @@ restartInstantly: #Region "-------------------------------------------------------- File --------------------------------------------------------" - Private Sub dompersonalitycombobox_LostFocus(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.LostFocus + Private Sub dompersonalitycombobox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles dompersonalitycombobox.LostFocus My.Settings.DomPersonality = dompersonalitycombobox.Text End Sub - Private Sub dompersonalitycombobox_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles dompersonalitycombobox.SelectedIndexChanged + Private Sub dompersonalitycombobox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dompersonalitycombobox.SelectedIndexChanged If FormLoading = True Then Exit Sub Try @@ -17346,13 +17346,13 @@ restartInstantly: End Try End Sub - Private Sub SuspendSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SuspendSessionToolStripMenuItem.Click + Private Sub SuspendSessionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuspendSessionToolStripMenuItem.Click Try Dim filename As String = SavedSessionDefaultPath If ssh.SaidHello = False Then MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17361,13 +17361,13 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a destination to safe the sessin to.", - .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, - .AddExtension = True, - .CheckPathExists = True, - .OverwritePrompt = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a destination to safe the sessin to.", + .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, + .AddExtension = True, + .CheckPathExists = True, + .OverwritePrompt = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17376,9 +17376,9 @@ restartInstantly: '=============================================================================== ElseIf File.Exists(filename) _ AndAlso MessageBox.Show(Me, "A previous saved state already exists!" & - vbCrLf & vbCrLf & - "Do you wish to overwrite it?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + vbCrLf & vbCrLf & + "Do you wish to overwrite it?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17386,18 +17386,18 @@ restartInstantly: ssh.Save(filename) MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", - MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub - Private Sub ResumeSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResumeSessionToolStripMenuItem.Click + Private Sub ResumeSessionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResumeSessionToolStripMenuItem.Click Try Dim filename As String = SavedSessionDefaultPath @@ -17407,12 +17407,12 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a saved session to resume.", - .CheckPathExists = True, - .CheckFileExists = True, - .AddExtension = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a saved session to resume.", + .CheckPathExists = True, + .CheckFileExists = True, + .AddExtension = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17426,9 +17426,9 @@ restartInstantly: If ssh.SaidHello = True _ AndAlso MessageBox.Show(Me, "Resuming a previous state will cause you to lose your progress in this session!" & - vbCrLf & vbCrLf & - "Do you wish to proceed?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + vbCrLf & vbCrLf & + "Do you wish to proceed?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17437,19 +17437,19 @@ restartInstantly: FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName If Not IsNothing(ssh.domAvatarImage) Then domAvatar.Image = ssh.domAvatarImage If ssh.SaidHello And My.Settings.LockOrgasmChances Then _ - FrmSettings.LockOrgasmChances(True) + FrmSettings.LockOrgasmChances(True) ScriptTimer.Start() Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub - Private Sub ResetSessionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click + Private Sub ResetSessionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetSessionToolStripMenuItem.Click If ssh.SaidHello = False Then MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) @@ -17466,117 +17466,117 @@ restartInstantly: setStartName() End Sub - Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click, - ExitToolStripMenuItem1.Click + Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click, + ExitToolStripMenuItem1.Click Me.Close() Me.Dispose() End Sub -#End Region ' File +#End Region ' File #Region "------------------------------------------------------ Settings ------------------------------------------------------" - Private Sub GeneralSettingsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GeneralSettingsToolStripMenuItem.Click + Private Sub GeneralSettingsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeneralSettingsToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(0) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub DommeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DommeToolStripMenuItem.Click + Private Sub DommeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DommeToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(1) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub SubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SubToolStripMenuItem.Click + Private Sub SubToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(2) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub ScriptsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ScriptsToolStripMenuItem.Click + Private Sub ScriptsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScriptsToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(3) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub ImagesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ImagesToolStripMenuItem.Click + Private Sub ImagesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImagesToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(4) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub TaggingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TaggingToolStripMenuItem.Click + Private Sub TaggingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TaggingToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(5) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub URLFilesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles URLFilesToolStripMenuItem.Click + Private Sub URLFilesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles URLFilesToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(6) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub VideoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VideoToolStripMenuItem.Click + Private Sub VideoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(7) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub AppsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles AppsToolStripMenuItem1.Click + Private Sub AppsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AppsToolStripMenuItem1.Click FrmSettings.SettingsTabs.SelectTab(8) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub RangesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RangesToolStripMenuItem.Click + Private Sub RangesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RangesToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(10) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub ModdingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ModdingToolStripMenuItem.Click + Private Sub ModdingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModdingToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(11) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub MiscToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MiscToolStripMenuItem.Click + Private Sub MiscToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiscToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(12) FrmSettings.Show() FrmSettings.Focus() End Sub -#End Region ' Settings +#End Region ' Settings #Region "-------------------------------------------------------- APPs --------------------------------------------------------" - Private Sub CloseAppPanelToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CloseAppPanelToolStripMenuItem.Click + Private Sub CloseAppPanelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseAppPanelToolStripMenuItem.Click CloseApp(Nothing) End Sub - Private Sub MetronomeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MetronomeToolStripMenuItem.Click + Private Sub MetronomeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetronomeToolStripMenuItem.Click CloseApp(PNLMetronome) End Sub - Private Sub GlitterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GlitterToolStripMenuItem.Click + Private Sub GlitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GlitterToolStripMenuItem.Click CloseApp(PnlGlitter) End Sub - Private Sub DommeTagsToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagsToolStripMenuItem2.Click + Private Sub DommeTagsToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DommeTagsToolStripMenuItem2.Click CloseApp(PNLDomTagBTN) End Sub - Private Sub LazySubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LazySubToolStripMenuItem.Click + Private Sub LazySubToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LazySubToolStripMenuItem.Click CloseApp(PNLLazySub) End Sub - Private Sub RandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RandomizerToolStripMenuItem.Click + Private Sub RandomizerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RandomizerToolStripMenuItem.Click CloseApp(PNLAppRandomizer) End Sub - Private Sub PlaylistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PlaylistToolStripMenuItem.Click + Private Sub PlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlaylistToolStripMenuItem.Click If PNLPlaylist.Visible = False Then CloseApp(PNLPlaylist) LBPlaylist.Items.Clear() @@ -17586,11 +17586,11 @@ restartInstantly: End If End Sub - Private Sub WritingTasksToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WritingTasksToolStripMenuItem.Click + Private Sub WritingTasksToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WritingTasksToolStripMenuItem.Click CloseApp(PNLWritingTask) End Sub - Private Sub WishlistToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WishlistToolStripMenuItem.Click + Private Sub WishlistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WishlistToolStripMenuItem.Click If PNLWishList.Visible = False Then @@ -17598,9 +17598,9 @@ restartInstantly: If My.Settings.ClearWishlist = True Then MessageBox.Show(Me, "You have already purchased " & ssh.tempDomName & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & - "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Return - End If + End If @@ -17608,7 +17608,7 @@ restartInstantly: - If CompareDates(My.Settings.WishlistDate) <> 0 Then + If CompareDates(My.Settings.WishlistDate) <> 0 Then Dim WishList As New List(Of String) @@ -17620,7 +17620,7 @@ restartInstantly: If WishList.Count < 1 Then MessageBox.Show(Me, "No Wishlist items found!" & Environment.NewLine & Environment.NewLine & - "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure you have item scripts located in Apps\Wishlist\Items.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If @@ -17787,7 +17787,7 @@ restartInstantly: End If End Sub - Private Sub HypnoticGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HypnoticGuideToolStripMenuItem.Click + Private Sub HypnoticGuideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HypnoticGuideToolStripMenuItem.Click CloseApp(PNLHypnoGen) If PNLHypnoGen.Visible = False Then @@ -17836,7 +17836,7 @@ restartInstantly: End Sub - Private Sub VitalSubToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VitalSubToolStripMenuItem.Click + Private Sub VitalSubToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VitalSubToolStripMenuItem.Click CloseApp(AppPanelVitalSub) If AppPanelVitalSub.Visible = False Then @@ -17854,50 +17854,50 @@ restartInstantly: End Sub -#End Region ' APPs +#End Region ' APPs #Region "-------------------------------------------------------- Games -------------------------------------------------------" - Private Sub SlotsToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, - SlotsToolStripMenuItem.Click + Private Sub SlotsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, + SlotsToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(0) FrmCardList.Show() FrmCardList.Focus() End Sub - Private Sub MatchGameToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, - MatchGameToolStripMenuItem.Click + Private Sub MatchGameToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, + MatchGameToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(1) FrmCardList.Show() FrmCardList.Focus() End Sub - Private Sub RiskyPickToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, - RiskyPickToolStripMenuItem.Click + Private Sub RiskyPickToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, + RiskyPickToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(2) FrmCardList.Show() FrmCardList.Focus() End Sub - Private Sub ExchangeToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, - ExchangeToolStripMenuItem.Click + Private Sub ExchangeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, + ExchangeToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(3) FrmCardList.Show() FrmCardList.Focus() End Sub - Private Sub CollectionToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, - CollectionToolStripMenuItem.Click + Private Sub CollectionToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, + CollectionToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(4) FrmCardList.Show() FrmCardList.Focus() End Sub -#End Region ' Games +#End Region ' Games #Region "----------------------------------------------------- Interface ------------------------------------------------------" - Private Sub SwitchSidesToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SwitchSidesToolStripMenuItem.CheckedChanged + Private Sub SwitchSidesToolStripMenuItem_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SwitchSidesToolStripMenuItem.CheckedChanged ' Prevent further execution during Form's InitializeComponent()-Method. If IsHandleCreated = False Then Exit Sub @@ -17912,13 +17912,13 @@ restartInstantly: .Padding = New Padding(.Padding.Right, .Padding.Top, .Padding.Left, .Padding.Bottom) PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Left, + PnlLayoutForm.Padding.Bottom) End With End Sub - Private Sub SideChatToolStripMenuItem1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles SideChatToolStripMenuItem1.CheckedChanged + Private Sub SideChatToolStripMenuItem1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SideChatToolStripMenuItem1.CheckedChanged ' Prevent further execution during Form's InitializeComponent()-Method. If IsHandleCreated = False Then Exit Sub @@ -17931,7 +17931,7 @@ restartInstantly: End If End Sub - Private Sub LazySubAVToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles LazySubAVToolStripMenuItem.CheckedChanged + Private Sub LazySubAVToolStripMenuItem_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LazySubAVToolStripMenuItem.CheckedChanged ' Prevent further execution during Form's InitializeComponent()-Method. If IsHandleCreated = False Then Exit Sub @@ -17948,13 +17948,13 @@ restartInstantly: End If End Sub - Private Sub ThemesToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ThemesToolStripMenuItem1.Click + Private Sub ThemesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThemesToolStripMenuItem1.Click FrmSettings.SettingsTabs.SelectTab(9) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub MaximizeImageToolStripMenuItem_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles MaximizeImageToolStripMenuItem.CheckedChanged + Private Sub MaximizeImageToolStripMenuItem_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaximizeImageToolStripMenuItem.CheckedChanged ' Prevent further execution during Form's InitializeComponent()-Method. If IsHandleCreated = False Then Exit Sub @@ -17974,7 +17974,7 @@ restartInstantly: 'SplitContainer1.SplitterDistance = SplitContainer1.Height End Sub - Private Sub SidepanelToolStripMenuItem_CheckedChanged(sender As Object, e As EventArgs) Handles SidepanelToolStripMenuItem.CheckedChanged + Private Sub SidepanelToolStripMenuItem_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles SidepanelToolStripMenuItem.CheckedChanged ' Prevent further execution during Form's InitializeComponent()-Method. If IsHandleCreated = False Then Exit Sub @@ -17985,14 +17985,14 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(0, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - 0, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + 0, + PnlLayoutForm.Padding.Bottom) End If Else '########################### Hide ######################### @@ -18001,21 +18001,21 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Left, + PnlLayoutForm.Padding.Bottom) End If If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True End If End Sub - Private Sub WebteaseModeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteaseModeToolStripMenuItem.Click + Private Sub WebteaseModeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebteaseModeToolStripMenuItem.Click If FrmSettings.CBWebtease.Checked = True Then WebteaseModeToolStripMenuItem.Checked = False FrmSettings.CBWebtease.Checked = False @@ -18028,11 +18028,11 @@ restartInstantly: End Sub - Private Sub DefaultImageSizeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DefaultImageSizeToolStripMenuItem.Click + Private Sub DefaultImageSizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultImageSizeToolStripMenuItem.Click If SplitContainer1.Height > 430 Then SplitContainer1.SplitterDistance = SplitContainer1.Height - 252 End Sub - Private Sub FullscreenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FullscreenToolStripMenuItem.Click + Private Sub FullscreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FullscreenToolStripMenuItem.Click If Me.FormBorderStyle <> Windows.Forms.FormBorderStyle.None Then Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None @@ -18067,55 +18067,55 @@ restartInstantly: Me.Top = WA.Location.Y + (WA.Height - Me.Height) / 2 End Sub -#End Region ' Interface +#End Region ' Interface #Region "------------------------------------------------------- Tools --------------------------------------------------------" - Private Sub CommandGuideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CommandGuideToolStripMenuItem.Click + Private Sub CommandGuideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CommandGuideToolStripMenuItem.Click If Form10.Visible = False Then Form10.Show() Form10.Focus() End Sub - Private Sub AIBoxesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AIBoxesToolStripMenuItem.Click + Private Sub AIBoxesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AIBoxesToolStripMenuItem.Click If Form9.Visible = False Then Form9.Show() Form9.Focus() End Sub - Private Sub OldDommeTagsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OldDommeTagsToolStripMenuItem.Click + Private Sub OldDommeTagsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OldDommeTagsToolStripMenuItem.Click Form8.Show() End Sub -#End Region ' Tools +#End Region ' Tools #Region "------------------------------------------------------ Milovana ------------------------------------------------------" - Private Sub OpenBetaThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, - OpenBetaThreadToolStripMenuItem1.Click + Private Sub OpenBetaThreadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, + OpenBetaThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") End Sub - Private Sub BugReportThreadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, - BugReportThreadToolStripMenuItem1.Click + Private Sub BugReportThreadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, + BugReportThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") End Sub - Private Sub WebteasesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, - WebteasesToolStripMenuItem1.Click + Private Sub WebteasesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, + WebteasesToolStripMenuItem1.Click Process.Start("https://milovana.com/webteases/") End Sub - Private Sub AllAndEverythingToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, - ForumToolStripMenuItem.Click + Private Sub AllAndEverythingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, + ForumToolStripMenuItem.Click Process.Start("https://milovana.com/forum/") End Sub -#End Region ' Milovana +#End Region ' Milovana - Private Sub StartTimer1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StartTimer1ToolStripMenuItem.Click + Private Sub StartTimer1ToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StartTimer1ToolStripMenuItem.Click Timer1.Start() End Sub - Private Sub RunScriptToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RunScriptToolStripMenuItem.Click + Private Sub RunScriptToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunScriptToolStripMenuItem.Click If OpenScriptDialog.ShowDialog() = DialogResult.OK Then @@ -18136,25 +18136,25 @@ restartInstantly: End Sub - Private Sub DebugSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugSessionWindowToolStripMenuItem.Click + Private Sub DebugSessionToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles DebugSessionWindowToolStripMenuItem.Click dbgSessionForm.Show() End Sub - Private Sub DebugMenuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DebugMenuToolStripMenuItem.Click + Private Sub DebugMenuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DebugMenuToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(13) FrmSettings.Show() FrmSettings.Focus() End Sub - Private Sub DebugToolStripMenuItem_DropDownOpening(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.DropDownOpening + Private Sub DebugToolStripMenuItem_DropDownOpening(ByVal sender As Object, ByVal e As EventArgs) Handles DebugToolStripMenuItem.DropDownOpening StartTimer1ToolStripMenuItem.Enabled = Not Timer1.Enabled End Sub - Private Sub RefreshRandomizerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RefreshRandomizerToolStripMenuItem.Click + Private Sub RefreshRandomizerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshRandomizerToolStripMenuItem.Click ssh.randomizer = New Random(System.DateTime.Now.Ticks Mod System.Int32.MaxValue) End Sub - Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click + Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click FrmSettings.SettingsTabs.SelectTab(14) FrmSettings.Show() FrmSettings.Focus() @@ -18162,13 +18162,13 @@ restartInstantly: -#End Region ' Menu +#End Region ' Menu - Private Sub TeaseAIClock_Tick(sender As System.Object, e As System.EventArgs) Handles TeaseAIClock.Tick + Private Sub TeaseAIClock_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TeaseAIClock.Tick ' Reset the WatchdogTimer Clock. WatchDogImageAnimator.Reset(TeaseAIClock.Interval * 3) @@ -18257,8 +18257,8 @@ restartInstantly: For i As Integer = 0 To ssh.CountUpList.Count - 1 Dim Val1 As Integer - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i)) Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i)) Then Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountUpList(i))) Else Val1 = 0 @@ -18277,8 +18277,8 @@ restartInstantly: For i As Integer = 0 To ssh.CountDownList.Count - 1 Dim Val1 As Integer - 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i)) Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i)) Then Val1 = Val(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ssh.CountDownList(i))) Else Val1 = 0 @@ -18390,7 +18390,7 @@ restartInstantly: #Region "------------------------------------------------- Regular Buttons-----------------------------------------------------" - Private Sub Face_Click(sender As System.Object, e As System.EventArgs) Handles Face.Click + Private Sub Face_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Face.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Face.BackColor = Color.White Then @@ -18404,7 +18404,7 @@ restartInstantly: End If End Sub - Private Sub Boobs_Click(sender As System.Object, e As System.EventArgs) Handles Boobs.Click + Private Sub Boobs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boobs.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Boobs.BackColor = Color.White Then @@ -18418,7 +18418,7 @@ restartInstantly: End If End Sub - Private Sub Pussy_Click(sender As System.Object, e As System.EventArgs) Handles Pussy.Click + Private Sub Pussy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pussy.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Pussy.BackColor = Color.White Then @@ -18432,7 +18432,7 @@ restartInstantly: End If End Sub - Private Sub Ass_Click(sender As System.Object, e As System.EventArgs) Handles Ass.Click + Private Sub Ass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ass.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Ass.BackColor = Color.White Then @@ -18446,7 +18446,7 @@ restartInstantly: End If End Sub - Private Sub Legs_Click(sender As System.Object, e As System.EventArgs) Handles Legs.Click + Private Sub Legs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Legs.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Legs.BackColor = Color.White Then @@ -18460,7 +18460,7 @@ restartInstantly: End If End Sub - Private Sub Feet_Click(sender As System.Object, e As System.EventArgs) Handles Feet.Click + Private Sub Feet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Feet.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Feet.BackColor = Color.White Then @@ -18474,7 +18474,7 @@ restartInstantly: End If End Sub - Private Sub FullyDressed_Click(sender As System.Object, e As System.EventArgs) Handles FullyDressed.Click + Private Sub FullyDressed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FullyDressed.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If FullyDressed.BackColor = Color.White Then @@ -18488,7 +18488,7 @@ restartInstantly: End If End Sub - Private Sub HalfDressed_Click(sender As System.Object, e As System.EventArgs) Handles HalfDressed.Click + Private Sub HalfDressed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HalfDressed.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If HalfDressed.BackColor = Color.White Then @@ -18502,7 +18502,7 @@ restartInstantly: End If End Sub - Private Sub GarmentCovering_Click(sender As System.Object, e As System.EventArgs) Handles GarmentCovering.Click + Private Sub GarmentCovering_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GarmentCovering.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If GarmentCovering.BackColor = Color.White Then @@ -18516,7 +18516,7 @@ restartInstantly: End If End Sub - Private Sub HandsCovering_Click(sender As System.Object, e As System.EventArgs) Handles HandsCovering.Click + Private Sub HandsCovering_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HandsCovering.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If HandsCovering.BackColor = Color.White Then @@ -18530,7 +18530,7 @@ restartInstantly: End If End Sub - Private Sub Naked_Click(sender As System.Object, e As System.EventArgs) Handles Naked.Click + Private Sub Naked_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Naked.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Naked.BackColor = Color.White Then @@ -18544,7 +18544,7 @@ restartInstantly: End If End Sub - Private Sub Masturbating_Click(sender As System.Object, e As System.EventArgs) Handles Masturbating.Click + Private Sub Masturbating_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masturbating.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Masturbating.BackColor = Color.White Then @@ -18558,7 +18558,7 @@ restartInstantly: End If End Sub - Private Sub Sucking_Click(sender As System.Object, e As System.EventArgs) Handles Sucking.Click + Private Sub Sucking_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sucking.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Sucking.BackColor = Color.White Then @@ -18572,7 +18572,7 @@ restartInstantly: End If End Sub - Private Sub Smiling_Click(sender As System.Object, e As System.EventArgs) Handles Smiling.Click + Private Sub Smiling_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Smiling.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Smiling.BackColor = Color.White Then @@ -18586,7 +18586,7 @@ restartInstantly: End If End Sub - Private Sub Glaring_Click(sender As System.Object, e As System.EventArgs) Handles Glaring.Click + Private Sub Glaring_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Glaring.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Glaring.BackColor = Color.White Then @@ -18600,7 +18600,7 @@ restartInstantly: End If End Sub - Private Sub SideView_Click(sender As System.Object, e As System.EventArgs) Handles SideView.Click + Private Sub SideView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SideView.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If SideView.BackColor = Color.White Then @@ -18614,7 +18614,7 @@ restartInstantly: End If End Sub - Private Sub CloseUp_Click(sender As System.Object, e As System.EventArgs) Handles CloseUp.Click + Private Sub CloseUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseUp.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If CloseUp.BackColor = Color.White Then @@ -18628,7 +18628,7 @@ restartInstantly: End If End Sub - Private Sub SeeThrough_Click(sender As System.Object, e As System.EventArgs) Handles SeeThrough.Click + Private Sub SeeThrough_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeeThrough.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If SeeThrough.BackColor = Color.White Then @@ -18642,7 +18642,7 @@ restartInstantly: End If End Sub - Private Sub AllFours_Click(sender As System.Object, e As System.EventArgs) Handles AllFours.Click + Private Sub AllFours_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllFours.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If AllFours.BackColor = Color.White Then @@ -18657,7 +18657,7 @@ restartInstantly: End Sub - Private Sub Piercing_Click(sender As System.Object, e As System.EventArgs) Handles Piercing.Click + Private Sub Piercing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Piercing.Click Debug.Print(mainPictureBox.ImageLocation) If ssh.SlideshowLoaded = False Then Return If Piercing.BackColor = Color.White Then @@ -18671,7 +18671,7 @@ restartInstantly: End If End Sub - Private Sub TBGarment_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBGarment.TextChanged + Private Sub TBGarment_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBGarment.TextChanged If ssh.SlideshowLoaded = False Or TBGarment.Focused = False Then Return If TBGarment.Text = "" Then Garment.BackColor = Color.White @@ -18684,7 +18684,7 @@ restartInstantly: End If End Sub - Private Sub TBUnderwear_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBUnderwear.TextChanged + Private Sub TBUnderwear_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBUnderwear.TextChanged If ssh.SlideshowLoaded = False Or TBUnderwear.Focused = False Then Return If TBUnderwear.Text = "" Then Underwear.BackColor = Color.White @@ -18697,7 +18697,7 @@ restartInstantly: End If End Sub - Private Sub TBTattoo_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBTattoo.TextChanged + Private Sub TBTattoo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBTattoo.TextChanged If ssh.SlideshowLoaded = False Or TBTattoo.Focused = False Then Return If TBTattoo.Text = "" Then Tattoo.BackColor = Color.White @@ -18710,7 +18710,7 @@ restartInstantly: End If End Sub - Private Sub TBSexToy_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBSexToy.TextChanged + Private Sub TBSexToy_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBSexToy.TextChanged If ssh.SlideshowLoaded = False Or TBSexToy.Focused = False Then Return If TBSexToy.Text = "" Then SexToy.BackColor = Color.White @@ -18724,7 +18724,7 @@ restartInstantly: End Sub - Private Sub TBFurniture_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBFurniture.TextChanged + Private Sub TBFurniture_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBFurniture.TextChanged If ssh.SlideshowLoaded = False Or TBFurniture.Focused = False Then Return If TBFurniture.Text = "" Then Furniture.BackColor = Color.White @@ -18737,7 +18737,7 @@ restartInstantly: End If End Sub -#End Region ' Regular Buttons +#End Region ' Regular Buttons Public Function AddDommeTag(ByVal AddDomTag As String, ByVal AddCustomDomTag As String) @@ -18884,11 +18884,11 @@ restartInstantly: End Function - Private Sub BtnDommeTagNextImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnNextImage.Click + Private Sub BtnDommeTagNextImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DommeTagBtnNextImage.Click nextButton.PerformClick() End Sub - Private Sub BtnDommeTagLastImage_Click(sender As System.Object, e As System.EventArgs) Handles DommeTagBtnLastImage.Click + Private Sub BtnDommeTagLastImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DommeTagBtnLastImage.Click previousButton.PerformClick() End Sub @@ -19172,16 +19172,16 @@ restartInstantly: End Sub -#End Region ' DommeTag APP +#End Region ' DommeTag APP #Region "------------------------------------------------------ Lazy-Sub ------------------------------------------------------" - Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles BTNStop.Click, Button7.Click + Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNStop.Click, Button7.Click chatBox.Text = "Let me stop" sendButton.PerformClick() End Sub - Private Sub BTNYes_Click(sender As System.Object, e As System.EventArgs) Handles BTNYes.Click, Button2.Click + Private Sub BTNYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNYes.Click, Button2.Click Try chatBox.Text = "Yes " & ssh.tempHonorific Catch @@ -19191,7 +19191,7 @@ restartInstantly: sendButton.PerformClick() End Sub - Private Sub BTNNo_Click(sender As System.Object, e As System.EventArgs) Handles BTNNo.Click, Button3.Click + Private Sub BTNNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNNo.Click, Button3.Click Try chatBox.Text = "No " & ssh.tempHonorific Catch @@ -19201,32 +19201,32 @@ restartInstantly: sendButton.PerformClick() End Sub - Private Sub BTNEdge_Click(sender As System.Object, e As System.EventArgs) Handles BTNEdge.Click, Button4.Click + Private Sub BTNEdge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNEdge.Click, Button4.Click chatBox.Text = "On the edge" sendButton.PerformClick() End Sub - Private Sub BTNSpeedUp_Click(sender As System.Object, e As System.EventArgs) Handles BTNSpeedUp.Click, Button8.Click + Private Sub BTNSpeedUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSpeedUp.Click, Button8.Click chatBox.Text = "Let me speed up" sendButton.PerformClick() End Sub - Private Sub BTNSlowDown_Click(sender As System.Object, e As System.EventArgs) Handles BTNSlowDown.Click, Button5.Click + Private Sub BTNSlowDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSlowDown.Click, Button5.Click chatBox.Text = "Let me slow down" sendButton.PerformClick() End Sub - Private Sub BTNStroke_Click(sender As System.Object, e As System.EventArgs) Handles BTNStroke.Click, Button6.Click + Private Sub BTNStroke_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNStroke.Click, Button6.Click chatBox.Text = "May I start stroking?" sendButton.PerformClick() End Sub - Private Sub BTNAskToCum_Click(sender As System.Object, e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click + Private Sub BTNAskToCum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNAskToCum.Click, Button9.Click chatBox.Text = "Please let me cum " & ssh.tempHonorific sendButton.PerformClick() End Sub - Private Sub BTNGreeting_Click(sender As System.Object, e As System.EventArgs) Handles BTNGreeting.Click, Button10.Click + Private Sub BTNGreeting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGreeting.Click, Button10.Click If ssh.SaidHello = True Then ssh.LockImage = False @@ -19248,7 +19248,7 @@ restartInstantly: sendButton.PerformClick() End Sub - Private Sub BTNSafeword_Click(sender As System.Object, e As System.EventArgs) Handles BTNSafeword.Click, Button11.Click + Private Sub BTNSafeword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSafeword.Click, Button11.Click Try chatBox.Text = FrmSettings.TBSafeword.Text Catch @@ -19258,7 +19258,7 @@ restartInstantly: sendButton.PerformClick() End Sub - Private Sub CBHideShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHideShortcuts.CheckedChanged + Private Sub CBHideShortcuts_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBHideShortcuts.CheckedChanged If FormLoading = False Then GetShortcutChecked() My.Settings.ShowShortcuts = CBHideShortcuts.Checked @@ -19321,49 +19321,49 @@ restartInstantly: End Sub - Private Sub CBShortcuts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBShortcuts.CheckedChanged + Private Sub CBShortcuts_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBShortcuts.CheckedChanged If FormLoading = False Then My.Settings.Shortcuts = CBShortcuts.Checked End If End Sub - Private Sub TBShortYes_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortYes.LostFocus + Private Sub TBShortYes_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortYes.LostFocus My.Settings.ShortYes = TBShortYes.Text End Sub - Private Sub TBShortNo_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortNo.LostFocus + Private Sub TBShortNo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortNo.LostFocus My.Settings.ShortNo = TBShortNo.Text End Sub - Private Sub TBShortEdge_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortEdge.LostFocus + Private Sub TBShortEdge_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortEdge.LostFocus My.Settings.ShortEdge = TBShortEdge.Text End Sub - Private Sub TBShortSpeedUp_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSpeedUp.LostFocus + Private Sub TBShortSpeedUp_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortSpeedUp.LostFocus My.Settings.ShortSpeedUp = TBShortSpeedUp.Text End Sub - Private Sub TBShortSlowDown_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSlowDown.LostFocus + Private Sub TBShortSlowDown_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortSlowDown.LostFocus My.Settings.ShortSlowDown = TBShortSlowDown.Text End Sub - Private Sub TBShortStop_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStop.LostFocus + Private Sub TBShortStop_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortStop.LostFocus My.Settings.ShortStop = TBShortStop.Text End Sub - Private Sub TBShortStroke_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortStroke.LostFocus + Private Sub TBShortStroke_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortStroke.LostFocus My.Settings.ShortStroke = TBShortStroke.Text End Sub - Private Sub TBShortCum_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortCum.LostFocus + Private Sub TBShortCum_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortCum.LostFocus My.Settings.ShortCum = TBShortCum.Text End Sub - Private Sub TBShortGreet_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortGreet.LostFocus + Private Sub TBShortGreet_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortGreet.LostFocus My.Settings.ShortGreet = TBShortGreet.Text End Sub - Private Sub TBShortSafeword_LostFocus(sender As Object, e As System.EventArgs) Handles TBShortSafeword.LostFocus + Private Sub TBShortSafeword_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBShortSafeword.LostFocus My.Settings.ShortSafeword = TBShortSafeword.Text End Sub @@ -19375,7 +19375,7 @@ restartInstantly: End Sub - Private Sub BTNLS1_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1.Click + Private Sub BTNLS1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS1.Click If BTNLS1.Text <> "" Then @@ -19386,7 +19386,7 @@ restartInstantly: End Sub - Private Sub BTNLS1Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS1Edit.Click + Private Sub BTNLS1Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS1Edit.Click LazyEdit2 = False @@ -19416,7 +19416,7 @@ restartInstantly: End Sub - Private Sub BTNLS2_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2.Click + Private Sub BTNLS2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS2.Click If BTNLS2.Text <> "" Then @@ -19427,7 +19427,7 @@ restartInstantly: End Sub - Private Sub BTNLS2Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS2Edit.Click + Private Sub BTNLS2Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS2Edit.Click LazyEdit1 = False @@ -19456,7 +19456,7 @@ restartInstantly: End Sub - Private Sub BTNLS3_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3.Click + Private Sub BTNLS3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS3.Click If BTNLS3.Text <> "" Then @@ -19467,7 +19467,7 @@ restartInstantly: End Sub - Private Sub BTNLS3Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS3Edit.Click + Private Sub BTNLS3Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS3Edit.Click LazyEdit2 = False @@ -19497,7 +19497,7 @@ restartInstantly: End Sub - Private Sub BTNLS4_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4.Click + Private Sub BTNLS4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS4.Click If BTNLS4.Text <> "" Then @@ -19508,7 +19508,7 @@ restartInstantly: End Sub - Private Sub BTNLS4Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS4Edit.Click + Private Sub BTNLS4Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS4Edit.Click LazyEdit2 = False @@ -19538,7 +19538,7 @@ restartInstantly: End Sub - Private Sub BTNLS5_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5.Click + Private Sub BTNLS5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS5.Click If BTNLS5.Text <> "" Then @@ -19549,7 +19549,7 @@ restartInstantly: End Sub - Private Sub BTNLS5Edit_Click(sender As System.Object, e As System.EventArgs) Handles BTNLS5Edit.Click + Private Sub BTNLS5Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS5Edit.Click LazyEdit2 = False @@ -19578,11 +19578,11 @@ restartInstantly: End Sub -#End Region ' Lazy-Sub +#End Region ' Lazy-Sub #Region "-------------------------------------------------- Randomizer-App ----------------------------------------------------" - Private Sub BTNRandomBlog_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomBlog.Click + Private Sub BTNRandomBlog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomBlog.Click BTNRandomBlog.Enabled = False ShowImage(GetRandomImage(ImageGenre.Blog), True) @@ -19591,7 +19591,7 @@ restartInstantly: BTNRandomBlog.Enabled = True End Sub - Private Sub BTNRandomLocal_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomLocal.Click + Private Sub BTNRandomLocal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomLocal.Click BTNRandomLocal.Enabled = False ShowImage(GetRandomImage(ImageSourceType.Local), True) @@ -19600,17 +19600,17 @@ restartInstantly: BTNRandomLocal.Enabled = True End Sub - Private Sub BTNRandomVideo_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomVideo.Click + Private Sub BTNRandomVideo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomVideo.Click ssh.RandomizerVideo = True RandomVideo() ssh.RandomizerVideo = False End Sub - Private Sub BTNRandomJOI_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomJOI.Click + Private Sub BTNRandomJOI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomJOI.Click PlayRandomJOI() End Sub - Private Sub BTNRandomCS_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomCS.Click + Private Sub BTNRandomCS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomCS.Click ssh.SaidHello = True ssh.RandomizerVideoTease = True @@ -19624,7 +19624,7 @@ restartInstantly: CensorshipTimer.Start() End Sub - Private Sub BTNRandomAtE_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomAtE.Click + Private Sub BTNRandomAtE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomAtE.Click ssh.SaidHello = True ssh.RandomizerVideoTease = True @@ -19648,7 +19648,7 @@ restartInstantly: End Sub - Private Sub BTNRandomRLGL_Click(sender As System.Object, e As System.EventArgs) Handles BTNRandomRLGL.Click + Private Sub BTNRandomRLGL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomRLGL.Click ssh.SaidHello = True ssh.RandomizerVideoTease = True @@ -19672,7 +19672,7 @@ restartInstantly: End Sub - Private Sub BTNRandomCH_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNRandomCH.Click + Private Sub BTNRandomCH_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomCH.Click PlayRandomCH() End Sub @@ -19685,7 +19685,7 @@ restartInstantly: ''' There is no need for parameter Sender and e. ''' Only for Designer Compatiblity with Butten Clicks. ''' Rethrows all exceptions to catcher, as long sender is nothing. - Private Sub VideoJump2Random(sender As System.Object, e As System.EventArgs) Handles Button12.Click + Private Sub VideoJump2Random(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Try If DomWMP.currentPlaylist.count = 0 Then Throw New Exception("No Video playing - can't jump.") @@ -19716,7 +19716,7 @@ restartInstantly: #Region "--------------------------------------------------- Wishlist APP -----------------------------------------------------" - Private Sub BTNPlaylist_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylist.Click + Private Sub BTNPlaylist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPlaylist.Click If LBPlaylist.SelectedItems.Count = 0 Then MessageBox.Show(Me, "Please select a Playlist first!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Return @@ -19744,7 +19744,7 @@ restartInstantly: BTNPlaylist.Enabled = False End Sub - Private Sub BTNWishlist_Click(sender As System.Object, e As System.EventArgs) Handles BTNWishlist.Click + Private Sub BTNWishlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWishlist.Click If ssh.SaidHello = True Then MessageBox.Show(Me, "Please wait until you are not engaged with your domme to use this feature!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) @@ -19847,7 +19847,7 @@ restartInstantly: #Region "------------------------------------------------- Hypno-Guide App ----------------------------------------------------" - Private Sub BTNHypnoGenStart_Click(sender As System.Object, e As System.EventArgs) Handles BTNHypnoGenStart.Click + Private Sub BTNHypnoGenStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHypnoGenStart.Click @@ -19910,7 +19910,7 @@ restartInstantly: End Sub - Private Sub CBHypnoGenSlideshow_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenSlideshow.CheckedChanged + Private Sub CBHypnoGenSlideshow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBHypnoGenSlideshow.CheckedChanged If FormLoading = False Then If CBHypnoGenSlideshow.Checked = True Then LBHypnoGenSlideshow.Enabled = True @@ -19920,7 +19920,7 @@ restartInstantly: End If End Sub - Private Sub CBHypnoGenInduction_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenInduction.CheckedChanged + Private Sub CBHypnoGenInduction_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBHypnoGenInduction.CheckedChanged If FormLoading = False Then If CBHypnoGenInduction.Checked = True Then LBHypnoGenInduction.Enabled = True @@ -19930,7 +19930,7 @@ restartInstantly: End If End Sub - Private Sub CBHypnoGenNoText_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBHypnoGenNoText.CheckedChanged + Private Sub CBHypnoGenNoText_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBHypnoGenNoText.CheckedChanged End Sub @@ -19938,7 +19938,7 @@ restartInstantly: #Region "--------------------------------------------------- VitalSub APP -----------------------------------------------------" - Private Sub BTNExercise_Click(sender As System.Object, e As System.EventArgs) Handles BTNExercise.Click + Private Sub BTNExercise_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNExercise.Click If TBExercise.Text <> "" Then CLBExercise.Items.Add(TBExercise.Text) TBExercise.Text = "" @@ -19946,7 +19946,7 @@ restartInstantly: End If End Sub - Private Sub BTNCalorie_Click(sender As System.Object, e As System.EventArgs) Handles BTNCalorie.Click + Private Sub BTNCalorie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCalorie.Click If TBCalorieItem.Text <> "" And TBCalorieAmount.Text <> "" Then Dim CalorieString As String CalorieString = TBCalorieItem.Text & " " & TBCalorieAmount.Text & " Calories" @@ -19982,11 +19982,11 @@ restartInstantly: End If End Sub - Private Sub ComboBoxCalorie_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectedIndexChanged + Private Sub ComboBoxCalorie_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxCalorie.SelectedIndexChanged End Sub - Private Sub ComboBoxCalorie_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBoxCalorie.SelectionChangeCommitted + Private Sub ComboBoxCalorie_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBoxCalorie.SelectionChangeCommitted If Not ComboBoxCalorie.SelectedItem Is Nothing Then Dim CalorieString As String = ComboBoxCalorie.SelectedItem LBCalorie.Items.Add(CalorieString) @@ -20007,11 +20007,11 @@ restartInstantly: End If End Sub - Private Sub CLBExercise_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CLBExercise.SelectedIndexChanged, CLBExercise.LostFocus + Private Sub CLBExercise_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLBExercise.SelectedIndexChanged, CLBExercise.LostFocus SaveExercise() End Sub - Private Sub CBVitalSub_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSub.CheckedChanged + Private Sub CBVitalSub_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBVitalSub.CheckedChanged If CBVitalSub.Checked = True Then CBVitalSub.ForeColor = Color.LightGreen CBVitalSub.Text = "VitalSub Active" @@ -20021,7 +20021,7 @@ restartInstantly: End If End Sub - Private Sub CBVitalSub_LostFocus(sender As Object, e As System.EventArgs) Handles CBVitalSub.LostFocus + Private Sub CBVitalSub_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBVitalSub.LostFocus If CBVitalSub.Checked = True Then My.Settings.VitalSub = True Else @@ -20029,7 +20029,7 @@ restartInstantly: End If End Sub - Private Sub LBCalorie_DoubleClick(sender As Object, e As System.EventArgs) Handles LBCalorie.DoubleClick + Private Sub LBCalorie_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBCalorie.DoubleClick Dim CalorieString As String = LBCalorie.SelectedItem @@ -20052,7 +20052,7 @@ restartInstantly: End If End Sub - Private Sub BTNVitalSub_Click(sender As System.Object, e As System.EventArgs) Handles BTNVitalSub.Click + Private Sub BTNVitalSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVitalSub.Click If ssh.SaidHello = True Then MessageBox.Show(Me, "Please wait until you are not engaged with the domme to make VitalSub reports!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Return @@ -20125,18 +20125,18 @@ restartInstantly: End If End Sub - Private Sub CLBExercise_DragLeave(sender As Object, e As System.EventArgs) Handles CLBExercise.DragLeave + Private Sub CLBExercise_DragLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLBExercise.DragLeave CLBExercise.Items.Remove(CLBExercise.SelectedItem) End Sub - Private Sub CBVitalSubDomTask_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBVitalSubDomTask.CheckedChanged + Private Sub CBVitalSubDomTask_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBVitalSubDomTask.CheckedChanged If FormLoading = False Then My.Settings.VitalSubAssignments = CBVitalSubDomTask.Checked End If End Sub -#End Region ' Vital Sub +#End Region ' Vital Sub Public Sub MetronomeTick() '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× @@ -20189,23 +20189,23 @@ playLoop: #Region "-------------------------------------------------- Metronome-App -----------------------------------------------------" - Private Sub BTNMetroPreview1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview1.Click + Private Sub BTNMetroPreview1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMetroPreview1.Click If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value End Sub - Private Sub BTNMetroPreview2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroPreview2.Click + Private Sub BTNMetroPreview2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMetroPreview2.Click If ssh.SubStroking = False Then StrokePace = NBMinPace.Value End Sub - Private Sub BTNMetroStop1_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop1.Click + Private Sub BTNMetroStop1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMetroStop1.Click If ssh.SubStroking = False Then StrokePace = 0 End Sub - Private Sub BTNMetroStop2_Click(sender As System.Object, e As System.EventArgs) Handles BTNMetroStop2.Click + Private Sub BTNMetroStop2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMetroStop2.Click If ssh.SubStroking = False Then StrokePace = 0 End Sub - Private Sub NBMaxPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMaxPace.ValueChanged + Private Sub NBMaxPace_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBMaxPace.ValueChanged If FormLoading = False Then If NBMaxPace.Value > NBMinPace.Value - 50 Then NBMaxPace.Value = NBMinPace.Value - 50 If ssh.SubStroking = False Then StrokePace = NBMaxPace.Value @@ -20213,7 +20213,7 @@ playLoop: End If End Sub - Private Sub NBMinPace_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBMinPace.ValueChanged + Private Sub NBMinPace_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBMinPace.ValueChanged If FormLoading = False Then If NBMinPace.Value < NBMaxPace.Value + 50 Then NBMinPace.Value = NBMaxPace.Value + 50 If ssh.SubStroking = False Then StrokePace = NBMinPace.Value @@ -20221,7 +20221,7 @@ playLoop: End If End Sub - Private Sub TimeoutTimer_Tick(sender As System.Object, e As System.EventArgs) Handles TimeoutTimer.Tick + Private Sub TimeoutTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeoutTimer.Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -20247,15 +20247,15 @@ playLoop: End Sub - Private Sub CBMetronome_LostFocus(sender As Object, e As System.EventArgs) Handles CBMetronome.LostFocus + Private Sub CBMetronome_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBMetronome.LostFocus My.Settings.MetroOn = CBMetronome.Checked End Sub -#End Region ' Metronome App +#End Region ' Metronome App -#End Region ' Apps +#End Region ' Apps - Private Sub VideoTimer_Tick(sender As System.Object, e As System.EventArgs) Handles VideoTimer.Tick + Private Sub VideoTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoTimer.Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -20269,7 +20269,7 @@ playLoop: End Sub - Private Sub MultipleEdgesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles MultipleEdgesTimer.Tick + Private Sub MultipleEdgesTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MultipleEdgesTimer.Tick If ssh.DomTypeCheck = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -20394,7 +20394,7 @@ playLoop: End Sub - Public Function GetMatch(ByVal Line As String, ByVal Command As String, Match As String) As Boolean + Public Function GetMatch(ByVal Line As String, ByVal Command As String, ByVal Match As String) As Boolean Debug.Print("Line = " & Line) Debug.Print("Command = " & Command) @@ -20464,7 +20464,7 @@ playLoop: End Sub - Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click My.Settings.SideChat = True CloseApp(PNLChatBox2) End Sub @@ -20788,7 +20788,7 @@ playLoop: End Sub - Private Sub selectVideo(StringClean As String) + Private Sub selectVideo(ByVal StringClean As String) Dim VideoClean As String @@ -20839,7 +20839,7 @@ playLoop: ssh.JumpVideo = False Else MessageBox.Show(Me, "No videos matching " & Path.GetFileName(VideoClean) & " were found in " & Path.GetDirectoryName(VideoClean) & "!" & Environment.NewLine & Environment.NewLine & - "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure that valid files exist and that the wildcards are applied correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If Else @@ -20868,7 +20868,7 @@ playLoop: Else MessageBox.Show(Me, Path.GetFileName(VideoClean) & " was not found in " & Application.StartupPath & "\Video!" & Environment.NewLine & Environment.NewLine & - "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "Please make sure the file exists and that it is spelled correctly in the script.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If End If @@ -20879,7 +20879,7 @@ ExternalVideo: 'return -1 if word to check was not present, 0 if something in the honorific is wrong, 1 if all is ok 'we don't reduce errors number when doing the checks for what the sub writes in chat (so we reduce them only when asked a direct question) 'otherwise it will be nearly impossible to be punished since each phrase not using it would reduce the count - Private Function checkSubAnswer(Optional caseToCheck As String = "", Optional reduceErrors As Boolean = True) As Integer + Private Function checkSubAnswer(Optional ByVal caseToCheck As String = "", Optional ByVal reduceErrors As Boolean = True) As Integer ssh.DomChat = "" If Not IsNothing(ssh.contactToUse) Then If ssh.contactToUse.Equals(ssh.SlideshowContact1) Then @@ -20973,7 +20973,7 @@ ExternalVideo: Return -1 End Function - Private Function checkForImage(ImageToShow As String, Optional imageDir As String = "") As String + Private Function checkForImage(ByVal ImageToShow As String, Optional ByVal imageDir As String = "") As String Dim tmpImgLoc As String = "" Dim throwException As Boolean = False If imageDir = "" And Not (ImageToShow.Contains(":\") Or ImageToShow.Contains(":/")) Then @@ -21048,7 +21048,7 @@ ShowedBlogImage: Return tmpImgLoc End Function - Private Sub updateMode(StringClean As String, ByVal modeToUpdate As Dictionary(Of String, Mode)) + Private Sub updateMode(ByVal StringClean As String, ByVal modeToUpdate As Dictionary(Of String, Mode)) Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") CustomFlag = FixCommas(CustomFlag) @@ -21087,7 +21087,7 @@ ShowedBlogImage: LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") End Sub - Private Function goingTo(commandToCheck As String) As String + Private Function goingTo(ByVal commandToCheck As String) As String If commandToCheck.Contains("followUp(") Then Return "followUp" If commandToCheck.Contains("followUp") Then Return "followUpXX" Return "" diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 638a28b..e52a313 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -22,15591 +22,15595 @@ Partial Class FrmSettings 'Do not modify it using the code editor. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) - Me.SettingsPanel = New System.Windows.Forms.Panel() - Me.SettingsTabs = New System.Windows.Forms.TabControl() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.PNLGeneralSettings = New System.Windows.Forms.Panel() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() - Me.GroupBox2 = New System.Windows.Forms.GroupBox() - Me.Label170 = New System.Windows.Forms.Label() - Me.RandomHonorific = New System.Windows.Forms.TextBox() - Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() - Me.CBRandomDomme = New System.Windows.Forms.CheckBox() - Me.BtnRandomImageDir = New System.Windows.Forms.Button() - Me.BtnImportSettings = New System.Windows.Forms.Button() - Me.LblImportSettings = New System.Windows.Forms.Label() - Me.GroupBox64 = New System.Windows.Forms.GroupBox() - Me.CBMuteMedia = New System.Windows.Forms.CheckBox() - Me.GBDommeImages = New System.Windows.Forms.GroupBox() - Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() - Me.teaseRadio = New System.Windows.Forms.RadioButton() - Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() - Me.offRadio = New System.Windows.Forms.RadioButton() - Me.BTNDomImageDir = New System.Windows.Forms.Button() - Me.timedRadio = New System.Windows.Forms.RadioButton() - Me.TbxDomImageDir = New System.Windows.Forms.TextBox() - Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() - Me.LBLVRate = New System.Windows.Forms.Label() - Me.Label93 = New System.Windows.Forms.Label() - Me.LBLVVolume = New System.Windows.Forms.Label() - Me.Label68 = New System.Windows.Forms.Label() - Me.SliderVRate = New System.Windows.Forms.TrackBar() - Me.SliderVVolume = New System.Windows.Forms.TrackBar() - Me.TTSCheckBox = New System.Windows.Forms.CheckBox() - Me.TTSComboBox = New System.Windows.Forms.ComboBox() - Me.GBSafeword = New System.Windows.Forms.GroupBox() - Me.LBLSafeword = New System.Windows.Forms.Label() - Me.TBSafeword = New System.Windows.Forms.TextBox() - Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() - Me.CBAuditStartup = New System.Windows.Forms.CheckBox() - Me.CBDomDel = New System.Windows.Forms.CheckBox() - Me.CBSettingsPause = New System.Windows.Forms.CheckBox() - Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() - Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() - Me.GBGeneralImages = New System.Windows.Forms.GroupBox() - Me.CBImageInfo = New System.Windows.Forms.CheckBox() - Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() - Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() - Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() - Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() - Me.CBWebtease = New System.Windows.Forms.CheckBox() - Me.GBSubFont = New System.Windows.Forms.GroupBox() - Me.BTNSubColor = New System.Windows.Forms.Button() - Me.LBLSubColor = New System.Windows.Forms.Label() - Me.NBFontSize = New System.Windows.Forms.NumericUpDown() - Me.Label2 = New System.Windows.Forms.Label() - Me.FontComboBox = New System.Windows.Forms.ComboBox() - Me.GBDommeFont = New System.Windows.Forms.GroupBox() - Me.BTNDomColor = New System.Windows.Forms.Button() - Me.LBLDomColor = New System.Windows.Forms.Label() - Me.FontComboBoxD = New System.Windows.Forms.ComboBox() - Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() - Me.Label7 = New System.Windows.Forms.Label() - Me.CBInputIcon = New System.Windows.Forms.CheckBox() - Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() - Me.timestampCheckBox = New System.Windows.Forms.CheckBox() - Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() - Me.LBLGeneralSettings = New System.Windows.Forms.Label() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.Panel3 = New System.Windows.Forms.Panel() - Me.GBGiveUp = New System.Windows.Forms.GroupBox() - Me.giveupCheckBox = New System.Windows.Forms.CheckBox() - Me.BTNLoadDomSet = New System.Windows.Forms.Button() - Me.BTNSaveDomSet = New System.Windows.Forms.Button() - Me.Label127 = New System.Windows.Forms.Label() - Me.Label126 = New System.Windows.Forms.Label() - Me.PictureBox4 = New System.Windows.Forms.PictureBox() - Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() - Me.TBEmoteEnd = New System.Windows.Forms.TextBox() - Me.Label67 = New System.Windows.Forms.Label() - Me.TBEmote = New System.Windows.Forms.TextBox() - Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() - Me.Label66 = New System.Windows.Forms.Label() - Me.CBMeMyMine = New System.Windows.Forms.CheckBox() - Me.GroupBox63 = New System.Windows.Forms.GroupBox() - Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() - Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() - Me.periodCheckBox = New System.Windows.Forms.CheckBox() - Me.commaCheckBox = New System.Windows.Forms.CheckBox() - Me.Label64 = New System.Windows.Forms.Label() - Me.GBDomRanges = New System.Windows.Forms.GroupBox() - Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() - Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() - Me.Label37 = New System.Windows.Forms.Label() - Me.Label39 = New System.Windows.Forms.Label() - Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() - Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() - Me.Label31 = New System.Windows.Forms.Label() - Me.Label36 = New System.Windows.Forms.Label() - Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() - Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() - Me.Label21 = New System.Windows.Forms.Label() - Me.Label22 = New System.Windows.Forms.Label() - Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() - Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() - Me.Label23 = New System.Windows.Forms.Label() - Me.Label30 = New System.Windows.Forms.Label() - Me.GBDomStats = New System.Windows.Forms.GroupBox() - Me.Label128 = New System.Windows.Forms.Label() - Me.LBLEmpathy = New System.Windows.Forms.Label() - Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() - Me.Label83 = New System.Windows.Forms.Label() - Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() - Me.TBDomEyeColor = New System.Windows.Forms.TextBox() - Me.TBDomHairColor = New System.Windows.Forms.TextBox() - Me.domageNumBox = New System.Windows.Forms.NumericUpDown() - Me.Label47 = New System.Windows.Forms.Label() - Me.Label76 = New System.Windows.Forms.Label() - Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() - Me.Label84 = New System.Windows.Forms.Label() - Me.CBDomTattoos = New System.Windows.Forms.CheckBox() - Me.CBDomFreckles = New System.Windows.Forms.CheckBox() - Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.boobComboBox = New System.Windows.Forms.ComboBox() - Me.DomLevelDescLabel = New System.Windows.Forms.Label() - Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() - Me.Label43 = New System.Windows.Forms.Label() - Me.Label44 = New System.Windows.Forms.Label() - Me.Label45 = New System.Windows.Forms.Label() - Me.Label46 = New System.Windows.Forms.Label() - Me.GBDomPersonality = New System.Windows.Forms.GroupBox() - Me.degradingCheckBox = New System.Windows.Forms.CheckBox() - Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() - Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() - Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() - Me.crazyCheckBox = New System.Windows.Forms.CheckBox() - Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() - Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() - Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() - Me.orgasmlockrandombutton = New System.Windows.Forms.Button() - Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.orgasmsperlockButton = New System.Windows.Forms.Button() - Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() - Me.orgasmsperLabel = New System.Windows.Forms.Label() - Me.limitcheckbox = New System.Windows.Forms.CheckBox() - Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() - Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() - Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() - Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() - Me.GBDomPetNames = New System.Windows.Forms.GroupBox() - Me.Label74 = New System.Windows.Forms.Label() - Me.petnameBox7 = New System.Windows.Forms.TextBox() - Me.petnameBox8 = New System.Windows.Forms.TextBox() - Me.petnameBox1 = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() - Me.petnameBox4 = New System.Windows.Forms.TextBox() - Me.petnameBox6 = New System.Windows.Forms.TextBox() - Me.petnameBox2 = New System.Windows.Forms.TextBox() - Me.Label11 = New System.Windows.Forms.Label() - Me.petnameBox5 = New System.Windows.Forms.TextBox() - Me.petnameBox3 = New System.Windows.Forms.TextBox() - Me.Label54 = New System.Windows.Forms.Label() - Me.TabPage10 = New System.Windows.Forms.TabPage() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.GroupBox22 = New System.Windows.Forms.GroupBox() - Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() - Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() - Me.Label75 = New System.Windows.Forms.Label() - Me.Label77 = New System.Windows.Forms.Label() - Me.GroupBox45 = New System.Windows.Forms.GroupBox() - Me.LBLCBTSlider = New System.Windows.Forms.Label() - Me.CBCBTBalls = New System.Windows.Forms.CheckBox() - Me.CBCBTCock = New System.Windows.Forms.CheckBox() - Me.CBTSlider = New System.Windows.Forms.TrackBar() - Me.GroupBox35 = New System.Windows.Forms.GroupBox() - Me.GroupBoxSorry = New System.Windows.Forms.GroupBox() - Me.TBSorry = New System.Windows.Forms.TextBox() - Me.GroupBox39 = New System.Windows.Forms.GroupBox() - Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() - Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() - Me.TBHonorific = New System.Windows.Forms.TextBox() - Me.GroupBox38 = New System.Windows.Forms.GroupBox() - Me.TBNo = New System.Windows.Forms.TextBox() - Me.GroupBox37 = New System.Windows.Forms.GroupBox() - Me.TBYes = New System.Windows.Forms.TextBox() - Me.GroupBox36 = New System.Windows.Forms.GroupBox() - Me.TBGreeting = New System.Windows.Forms.TextBox() - Me.GroupBox13 = New System.Windows.Forms.GroupBox() - Me.Label34 = New System.Windows.Forms.Label() - Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() - Me.GroupBox7 = New System.Windows.Forms.GroupBox() - Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() - Me.LBLMinExtremeHold = New System.Windows.Forms.Label() - Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() - Me.Label133 = New System.Windows.Forms.Label() - Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() - Me.LBLMaxLongHold = New System.Windows.Forms.Label() - Me.Label78 = New System.Windows.Forms.Label() - Me.LBLMinLongHold = New System.Windows.Forms.Label() - Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() - Me.Label129 = New System.Windows.Forms.Label() - Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() - Me.LBLMaxHold = New System.Windows.Forms.Label() - Me.Label79 = New System.Windows.Forms.Label() - Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() - Me.LBLMinHold = New System.Windows.Forms.Label() - Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() - Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() - Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() - Me.Label55 = New System.Windows.Forms.Label() - Me.Label81 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() - Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() - Me.Label131 = New System.Windows.Forms.Label() - Me.PictureBox12 = New System.Windows.Forms.PictureBox() - Me.GroupBox32 = New System.Windows.Forms.GroupBox() - Me.LBLSubBdayFormat = New System.Windows.Forms.Label() - Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() - Me.CBOwnChastity = New System.Windows.Forms.CheckBox() - Me.CBChastityPA = New System.Windows.Forms.CheckBox() - Me.CBHimHer = New System.Windows.Forms.CheckBox() - Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() - Me.CBCockToClit = New System.Windows.Forms.CheckBox() - Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() - Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() - Me.CBSubPierced = New System.Windows.Forms.CheckBox() - Me.TBSubEyeColor = New System.Windows.Forms.TextBox() - Me.TBSubHairColor = New System.Windows.Forms.TextBox() - Me.Label63 = New System.Windows.Forms.Label() - Me.LBLSubInches = New System.Windows.Forms.Label() - Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() - Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() - Me.LBLSubCockSize = New System.Windows.Forms.Label() - Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() - Me.LBLSubEye = New System.Windows.Forms.Label() - Me.LBLSubHair = New System.Windows.Forms.Label() - Me.LBLSubBirthday = New System.Windows.Forms.Label() - Me.LBLSubAge = New System.Windows.Forms.Label() - Me.Label70 = New System.Windows.Forms.Label() - Me.TabPage16 = New System.Windows.Forms.TabPage() - Me.Panel9 = New System.Windows.Forms.Panel() - Me.BTNScriptAvailable = New System.Windows.Forms.Button() - Me.BTNScriptNone = New System.Windows.Forms.Button() - Me.BTNScriptAll = New System.Windows.Forms.Button() - Me.BTNScriptOpen = New System.Windows.Forms.Button() - Me.LBLScriptReq = New System.Windows.Forms.Label() - Me.GroupBox31 = New System.Windows.Forms.GroupBox() - Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() - Me.TCScripts = New System.Windows.Forms.TabControl() - Me.TabPage21 = New System.Windows.Forms.TabPage() - Me.CLBStartList = New System.Windows.Forms.CheckedListBox() - Me.TabPage17 = New System.Windows.Forms.TabPage() - Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() - Me.TabPage18 = New System.Windows.Forms.TabPage() - Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() - Me.TabPage19 = New System.Windows.Forms.TabPage() - Me.CLBEndList = New System.Windows.Forms.CheckedListBox() - Me.GroupBox42 = New System.Windows.Forms.GroupBox() - Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.GroupBox43 = New System.Windows.Forms.GroupBox() - Me.Label98 = New System.Windows.Forms.Label() - Me.Label104 = New System.Windows.Forms.Label() - Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.TabControl4 = New System.Windows.Forms.TabControl() - Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() - Me.CBURLPreview = New System.Windows.Forms.CheckBox() - Me.GroupBox66 = New System.Windows.Forms.GroupBox() - Me.PBURLPreview = New System.Windows.Forms.PictureBox() - Me.BTNURLFilesAll = New System.Windows.Forms.Button() - Me.BTNURLFilesNone = New System.Windows.Forms.Button() - Me.URLFileList = New System.Windows.Forms.CheckedListBox() - Me.TpImagesGenre = New System.Windows.Forms.TabPage() - Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() - Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() - Me.BtnImageUrlButt = New System.Windows.Forms.Button() - Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() - Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() - Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() - Me.BtnImageUrlHentai = New System.Windows.Forms.Button() - Me.BtnImageUrlGay = New System.Windows.Forms.Button() - Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() - Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() - Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() - Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() - Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() - Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() - Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() - Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() - Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() - Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() - Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() - Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() - Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() - Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() - Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() - Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() - Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() - Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() - Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() - Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() - Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() - Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() - Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() - Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() - Me.BTNIHardcore = New System.Windows.Forms.Button() - Me.TbxIHardcore = New System.Windows.Forms.TextBox() - Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() - Me.CBIHardcore = New System.Windows.Forms.CheckBox() - Me.CBISoftcore = New System.Windows.Forms.CheckBox() - Me.TbxISoftcore = New System.Windows.Forms.TextBox() - Me.CBButtSubDir = New System.Windows.Forms.CheckBox() - Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() - Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() - Me.CBILezdomSD = New System.Windows.Forms.CheckBox() - Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() - Me.CBILesbianSD = New System.Windows.Forms.CheckBox() - Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() - Me.CBILesbian = New System.Windows.Forms.CheckBox() - Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() - Me.CBIBlowjob = New System.Windows.Forms.CheckBox() - Me.CBIGaySD = New System.Windows.Forms.CheckBox() - Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() - Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() - Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() - Me.TbxIButts = New System.Windows.Forms.TextBox() - Me.CBIFemdom = New System.Windows.Forms.CheckBox() - Me.TbxILesbian = New System.Windows.Forms.TextBox() - Me.BTNISoftcore = New System.Windows.Forms.Button() - Me.CBILezdom = New System.Windows.Forms.CheckBox() - Me.TbxIBoobs = New System.Windows.Forms.TextBox() - Me.CBIHentai = New System.Windows.Forms.CheckBox() - Me.TbxIBlowjob = New System.Windows.Forms.TextBox() - Me.CBIGay = New System.Windows.Forms.CheckBox() - Me.TbxIGeneral = New System.Windows.Forms.TextBox() - Me.CBIMaledom = New System.Windows.Forms.CheckBox() - Me.TbxIFemdom = New System.Windows.Forms.TextBox() - Me.BTNILesbian = New System.Windows.Forms.Button() - Me.TbxICaptions = New System.Windows.Forms.TextBox() - Me.CBICaptions = New System.Windows.Forms.CheckBox() - Me.TbxILezdom = New System.Windows.Forms.TextBox() - Me.TbxIMaledom = New System.Windows.Forms.TextBox() - Me.BTNButtPath = New System.Windows.Forms.Button() - Me.TbxIHentai = New System.Windows.Forms.TextBox() - Me.CBIGeneral = New System.Windows.Forms.CheckBox() - Me.TbxIGay = New System.Windows.Forms.TextBox() - Me.CBIBoobs = New System.Windows.Forms.CheckBox() - Me.CBIButts = New System.Windows.Forms.CheckBox() - Me.BTNIBlowjob = New System.Windows.Forms.Button() - Me.BTNIFemdom = New System.Windows.Forms.Button() - Me.BTNBoobPath = New System.Windows.Forms.Button() - Me.BTNILezdom = New System.Windows.Forms.Button() - Me.BTNIHentai = New System.Windows.Forms.Button() - Me.BTNIGay = New System.Windows.Forms.Button() - Me.BTNIMaledom = New System.Windows.Forms.Button() - Me.BTNICaptions = New System.Windows.Forms.Button() - Me.BTNIGeneral = New System.Windows.Forms.Button() - Me.TabPage33 = New System.Windows.Forms.TabPage() - Me.TabControl5 = New System.Windows.Forms.TabControl() - Me.TabPage34 = New System.Windows.Forms.TabPage() - Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() - Me.CBTagAllFours = New System.Windows.Forms.CheckBox() - Me.CBTagGlaring = New System.Windows.Forms.CheckBox() - Me.CBTagSmiling = New System.Windows.Forms.CheckBox() - Me.TBTagDir = New System.Windows.Forms.TextBox() - Me.CBTagPiercing = New System.Windows.Forms.CheckBox() - Me.CBTagLegs = New System.Windows.Forms.CheckBox() - Me.TBTagFurniture = New System.Windows.Forms.TextBox() - Me.CBTagFurniture = New System.Windows.Forms.CheckBox() - Me.TBTagSexToy = New System.Windows.Forms.TextBox() - Me.CBTagSexToy = New System.Windows.Forms.CheckBox() - Me.TBTagTattoo = New System.Windows.Forms.TextBox() - Me.CBTagTattoo = New System.Windows.Forms.CheckBox() - Me.TBTagUnderwear = New System.Windows.Forms.TextBox() - Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() - Me.TBTagGarment = New System.Windows.Forms.TextBox() - Me.CBTagGarment = New System.Windows.Forms.CheckBox() - Me.Label72 = New System.Windows.Forms.Label() - Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() - Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() - Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() - Me.CBTagNaked = New System.Windows.Forms.RadioButton() - Me.CBTagSideView = New System.Windows.Forms.CheckBox() - Me.BTNTagPrevious = New System.Windows.Forms.Button() - Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() - Me.BTNTagNext = New System.Windows.Forms.Button() - Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() - Me.LBLTagCount = New System.Windows.Forms.Label() - Me.CBTagSucking = New System.Windows.Forms.CheckBox() - Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() - Me.CBTagFeet = New System.Windows.Forms.CheckBox() - Me.CBTagBoobs = New System.Windows.Forms.CheckBox() - Me.CBTagAss = New System.Windows.Forms.CheckBox() - Me.CBTagPussy = New System.Windows.Forms.CheckBox() - Me.BTNTagSave = New System.Windows.Forms.Button() - Me.BTNTagDir = New System.Windows.Forms.Button() - Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() - Me.CBTagFace = New System.Windows.Forms.CheckBox() - Me.TabPage35 = New System.Windows.Forms.TabPage() - Me.GroupBox55 = New System.Windows.Forms.GroupBox() - Me.CBTagNurse = New System.Windows.Forms.CheckBox() - Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() - Me.CBTagMaid = New System.Windows.Forms.CheckBox() - Me.CBTagTeacher = New System.Windows.Forms.CheckBox() - Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() - Me.GroupBox53 = New System.Windows.Forms.GroupBox() - Me.CBTagTrap = New System.Windows.Forms.CheckBox() - Me.CBTagTentacles = New System.Windows.Forms.CheckBox() - Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() - Me.CBTagBukkake = New System.Windows.Forms.CheckBox() - Me.CBTagGanguro = New System.Windows.Forms.CheckBox() - Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() - Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() - Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() - Me.CBTagAhegao = New System.Windows.Forms.CheckBox() - Me.CBTagShibari = New System.Windows.Forms.CheckBox() - Me.GroupBox49 = New System.Windows.Forms.GroupBox() - Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() - Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() - Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() - Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() - Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() - Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() - Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() - Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() - Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() - Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() - Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() - Me.GroupBox46 = New System.Windows.Forms.GroupBox() - Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() - Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() - Me.CBTagFemdom = New System.Windows.Forms.CheckBox() - Me.CBTag2M = New System.Windows.Forms.CheckBox() - Me.CBTagFutadom = New System.Windows.Forms.CheckBox() - Me.CBTagFemsub = New System.Windows.Forms.CheckBox() - Me.CBTag2Futa = New System.Windows.Forms.CheckBox() - Me.CBTagMaledom = New System.Windows.Forms.CheckBox() - Me.CBTag3M = New System.Windows.Forms.CheckBox() - Me.CBTagFutasub = New System.Windows.Forms.CheckBox() - Me.CBTag3Futa = New System.Windows.Forms.CheckBox() - Me.CBTagMalesub = New System.Windows.Forms.CheckBox() - Me.CBTag2F = New System.Windows.Forms.CheckBox() - Me.CBTag1Futa = New System.Windows.Forms.CheckBox() - Me.CBTag1M = New System.Windows.Forms.CheckBox() - Me.CBTag1F = New System.Windows.Forms.CheckBox() - Me.CBTag3F = New System.Windows.Forms.CheckBox() - Me.GroupBox54 = New System.Windows.Forms.GroupBox() - Me.CBTagTattoos = New System.Windows.Forms.CheckBox() - Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() - Me.CBTagDomme = New System.Windows.Forms.CheckBox() - Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() - Me.CBTagWatersports = New System.Windows.Forms.CheckBox() - Me.CBTagStockings = New System.Windows.Forms.CheckBox() - Me.CBTagCumshot = New System.Windows.Forms.CheckBox() - Me.CBTagCumEating = New System.Windows.Forms.CheckBox() - Me.CBTagVibrator = New System.Windows.Forms.CheckBox() - Me.CBTagDildo = New System.Windows.Forms.CheckBox() - Me.CBTagKissing = New System.Windows.Forms.CheckBox() - Me.GroupBox51 = New System.Windows.Forms.GroupBox() - Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() - Me.CBTagGag = New System.Windows.Forms.CheckBox() - Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() - Me.CBTagWhipping = New System.Windows.Forms.CheckBox() - Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() - Me.CBTagElectro = New System.Windows.Forms.CheckBox() - Me.CBTagHotWax = New System.Windows.Forms.CheckBox() - Me.CBTagClamps = New System.Windows.Forms.CheckBox() - Me.CBTagStrapon = New System.Windows.Forms.CheckBox() - Me.CBTagSpanking = New System.Windows.Forms.CheckBox() - Me.CBTagNeedles = New System.Windows.Forms.CheckBox() - Me.GroupBox50 = New System.Windows.Forms.GroupBox() - Me.CBTagRimming = New System.Windows.Forms.CheckBox() - Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() - Me.CBTagMissionary = New System.Windows.Forms.CheckBox() - Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() - Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() - Me.CBTagFingering = New System.Windows.Forms.CheckBox() - Me.CBTagGangbang = New System.Windows.Forms.CheckBox() - Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() - Me.CBTagDP = New System.Windows.Forms.CheckBox() - Me.CBTagHandjob = New System.Windows.Forms.CheckBox() - Me.CBTagStanding = New System.Windows.Forms.CheckBox() - Me.CBTagFootjob = New System.Windows.Forms.CheckBox() - Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() - Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() - Me.CBTagTitjob = New System.Windows.Forms.CheckBox() - Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() - Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() - Me.GroupBox48 = New System.Windows.Forms.GroupBox() - Me.CBTagArtwork = New System.Windows.Forms.CheckBox() - Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() - Me.CBTagPOV = New System.Windows.Forms.CheckBox() - Me.CBTagHardcore = New System.Windows.Forms.CheckBox() - Me.CBTagTD = New System.Windows.Forms.CheckBox() - Me.CBTagGay = New System.Windows.Forms.CheckBox() - Me.CBTagBath = New System.Windows.Forms.CheckBox() - Me.CBTagBisexual = New System.Windows.Forms.CheckBox() - Me.CBTagCFNM = New System.Windows.Forms.CheckBox() - Me.CBTagLesbian = New System.Windows.Forms.CheckBox() - Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() - Me.CBTagSM = New System.Windows.Forms.CheckBox() - Me.CBTagBondage = New System.Windows.Forms.CheckBox() - Me.CBTagSoloM = New System.Windows.Forms.CheckBox() - Me.CBTagSoloF = New System.Windows.Forms.CheckBox() - Me.CBTagChastity = New System.Windows.Forms.CheckBox() - Me.CBTagShower = New System.Windows.Forms.CheckBox() - Me.TBLocalTagDir = New System.Windows.Forms.TextBox() - Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() - Me.BTNLocalTagNext = New System.Windows.Forms.Button() - Me.LBLLocalTagCount = New System.Windows.Forms.Label() - Me.BTNLocalTagSave = New System.Windows.Forms.Button() - Me.BTNLocalTagDir = New System.Windows.Forms.Button() - Me.TabPage11 = New System.Windows.Forms.TabPage() - Me.Panel7 = New System.Windows.Forms.Panel() - Me.BTNWIContinue = New System.Windows.Forms.Button() - Me.BTNWIAddandContinue = New System.Windows.Forms.Button() - Me.BTNWICancel = New System.Windows.Forms.Button() - Me.CBWIReview = New System.Windows.Forms.CheckBox() - Me.BTNWIBrowse = New System.Windows.Forms.Button() - Me.TBWIDirectory = New System.Windows.Forms.TextBox() - Me.BTNWIDisliked = New System.Windows.Forms.Button() - Me.BTNWILiked = New System.Windows.Forms.Button() - Me.BTNWIRemove = New System.Windows.Forms.Button() - Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() - Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() - Me.BTNWICreateURL = New System.Windows.Forms.Button() - Me.LBLWebImageCount = New System.Windows.Forms.Label() - Me.BTNWISave = New System.Windows.Forms.Button() - Me.BTNWIOpenURL = New System.Windows.Forms.Button() - Me.BTNWIPrevious = New System.Windows.Forms.Button() - Me.BTNWINext = New System.Windows.Forms.Button() - Me.WebPictureBox = New System.Windows.Forms.PictureBox() - Me.Label71 = New System.Windows.Forms.Label() - Me.TpVideoSettings = New System.Windows.Forms.TabPage() - Me.PnlVideoSettings = New System.Windows.Forms.Panel() - Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() - Me.BTNRefreshVideos = New System.Windows.Forms.Button() - Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() - Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() - Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() - Me.BTNVideoGeneralD = New System.Windows.Forms.Button() - Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() - Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() - Me.LblVideoCHTotalD = New System.Windows.Forms.Label() - Me.LblVideoJOITotalD = New System.Windows.Forms.Label() - Me.TxbVideoCHD = New System.Windows.Forms.TextBox() - Me.TxbVideoJOID = New System.Windows.Forms.TextBox() - Me.BTNVideoCHD = New System.Windows.Forms.Button() - Me.BTNVideoJOID = New System.Windows.Forms.Button() - Me.CBVideoJOID = New System.Windows.Forms.CheckBox() - Me.CBVideoCHD = New System.Windows.Forms.CheckBox() - Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() - Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() - Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() - Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() - Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() - Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() - Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() - Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() - Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() - Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() - Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() - Me.BTNVideoFemSubD = New System.Windows.Forms.Button() - Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() - Me.BTNVideoFemDomD = New System.Windows.Forms.Button() - Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() - Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() - Me.BTNVideoLesbianD = New System.Windows.Forms.Button() - Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() - Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() - Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() - Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() - Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() - Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() - Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() - Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() - Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() - Me.VideoDescriptionLabel = New System.Windows.Forms.Label() - Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() - Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() - Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() - Me.BTNVideoGeneral = New System.Windows.Forms.Button() - Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() - Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() - Me.LblVideoCHTotal = New System.Windows.Forms.Label() - Me.LblVideoJOITotal = New System.Windows.Forms.Label() - Me.TxbVideoCH = New System.Windows.Forms.TextBox() - Me.TxbVideoJOI = New System.Windows.Forms.TextBox() - Me.BTNVideoCH = New System.Windows.Forms.Button() - Me.BTNVideoJOI = New System.Windows.Forms.Button() - Me.CBVideoJOI = New System.Windows.Forms.CheckBox() - Me.CBVideoCH = New System.Windows.Forms.CheckBox() - Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() - Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() - Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() - Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() - Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() - Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() - Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() - Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() - Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() - Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() - Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() - Me.BTNVideoFemSub = New System.Windows.Forms.Button() - Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() - Me.BTNVideoFemDom = New System.Windows.Forms.Button() - Me.BTNVideoBlowjob = New System.Windows.Forms.Button() - Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() - Me.BTNVideoLesbian = New System.Windows.Forms.Button() - Me.BTNVideoSoftCore = New System.Windows.Forms.Button() - Me.BTNVideoHardCore = New System.Windows.Forms.Button() - Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() - Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() - Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() - Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() - Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() - Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() - Me.LblVideoHeader = New System.Windows.Forms.Label() - Me.TabPage20 = New System.Windows.Forms.TabPage() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.TabPage22 = New System.Windows.Forms.TabPage() - Me.PNLGlitter = New System.Windows.Forms.Panel() - Me.GroupBox14 = New System.Windows.Forms.GroupBox() - Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() - Me.GroupBox4 = New System.Windows.Forms.GroupBox() - Me.LBLCurrentDomme = New System.Windows.Forms.Label() - Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() - Me.BTNDomChangeRandom = New System.Windows.Forms.Button() - Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() - Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() - Me.BTNDomChangeDomme = New System.Windows.Forms.Button() - Me.Button15 = New System.Windows.Forms.Button() - Me.Button16 = New System.Windows.Forms.Button() - Me.Label121 = New System.Windows.Forms.Label() - Me.Label122 = New System.Windows.Forms.Label() - Me.GBGlitterD = New System.Windows.Forms.GroupBox() - Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() - Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() - Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() - Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() - Me.BTNGlitterD = New System.Windows.Forms.Button() - Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() - Me.LBLGlitterSlider = New System.Windows.Forms.Label() - Me.CBCustom2 = New System.Windows.Forms.CheckBox() - Me.GlitterSlider = New System.Windows.Forms.TrackBar() - Me.CBCustom1 = New System.Windows.Forms.CheckBox() - Me.CBDaily = New System.Windows.Forms.CheckBox() - Me.CBTrivia = New System.Windows.Forms.CheckBox() - Me.TBGlitterShortName = New System.Windows.Forms.TextBox() - Me.CBEgotist = New System.Windows.Forms.CheckBox() - Me.CBTease = New System.Windows.Forms.CheckBox() - Me.GlitterAV = New System.Windows.Forms.PictureBox() - Me.GBGlitter1 = New System.Windows.Forms.GroupBox() - Me.Label167 = New System.Windows.Forms.Label() - Me.G1Honorific = New System.Windows.Forms.TextBox() - Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() - Me.BtnContact1ImageDir = New System.Windows.Forms.Button() - Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() - Me.BTNGlitter1 = New System.Windows.Forms.Button() - Me.LBLGlitterNC1 = New System.Windows.Forms.Label() - Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() - Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() - Me.CBGlitter1 = New System.Windows.Forms.CheckBox() - Me.TBGlitter1 = New System.Windows.Forms.TextBox() - Me.GlitterAV1 = New System.Windows.Forms.PictureBox() - Me.GBGlitter3 = New System.Windows.Forms.GroupBox() - Me.Label168 = New System.Windows.Forms.Label() - Me.G3Honorific = New System.Windows.Forms.TextBox() - Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() - Me.BtnContact3ImageDir = New System.Windows.Forms.Button() - Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() - Me.BTNGlitter3 = New System.Windows.Forms.Button() - Me.LBLGlitterNC3 = New System.Windows.Forms.Label() - Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() - Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() - Me.CBGlitter3 = New System.Windows.Forms.CheckBox() - Me.TBGlitter3 = New System.Windows.Forms.TextBox() - Me.GlitterAV3 = New System.Windows.Forms.PictureBox() - Me.GBGlitter2 = New System.Windows.Forms.GroupBox() - Me.Label169 = New System.Windows.Forms.Label() - Me.G2Honorific = New System.Windows.Forms.TextBox() - Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() - Me.BtnContact2ImageDir = New System.Windows.Forms.Button() - Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() - Me.BTNGlitter2 = New System.Windows.Forms.Button() - Me.LBLGlitterNC2 = New System.Windows.Forms.Label() - Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() - Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() - Me.CBGlitter2 = New System.Windows.Forms.CheckBox() - Me.TBGlitter2 = New System.Windows.Forms.TextBox() - Me.GlitterAV2 = New System.Windows.Forms.PictureBox() - Me.TpGames = New System.Windows.Forms.TabPage() - Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() - Me.LblCardsSetupNote = New System.Windows.Forms.Label() - Me.CBGameSounds = New System.Windows.Forms.CheckBox() - Me.GbxCardsGold = New System.Windows.Forms.GroupBox() - Me.GN6 = New System.Windows.Forms.TextBox() - Me.GP6 = New System.Windows.Forms.PictureBox() - Me.GN2 = New System.Windows.Forms.TextBox() - Me.GP2 = New System.Windows.Forms.PictureBox() - Me.GP5 = New System.Windows.Forms.PictureBox() - Me.GN1 = New System.Windows.Forms.TextBox() - Me.GP1 = New System.Windows.Forms.PictureBox() - Me.GN5 = New System.Windows.Forms.TextBox() - Me.GN3 = New System.Windows.Forms.TextBox() - Me.GP3 = New System.Windows.Forms.PictureBox() - Me.GP4 = New System.Windows.Forms.PictureBox() - Me.GN4 = New System.Windows.Forms.TextBox() - Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() - Me.CardBack = New System.Windows.Forms.PictureBox() - Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() - Me.BN6 = New System.Windows.Forms.TextBox() - Me.BN3 = New System.Windows.Forms.TextBox() - Me.BP3 = New System.Windows.Forms.PictureBox() - Me.BP6 = New System.Windows.Forms.PictureBox() - Me.BN2 = New System.Windows.Forms.TextBox() - Me.BN5 = New System.Windows.Forms.TextBox() - Me.BP5 = New System.Windows.Forms.PictureBox() - Me.BP2 = New System.Windows.Forms.PictureBox() - Me.BN1 = New System.Windows.Forms.TextBox() - Me.BN4 = New System.Windows.Forms.TextBox() - Me.BP4 = New System.Windows.Forms.PictureBox() - Me.BP1 = New System.Windows.Forms.PictureBox() - Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() - Me.SN6 = New System.Windows.Forms.TextBox() - Me.SP6 = New System.Windows.Forms.PictureBox() - Me.SN2 = New System.Windows.Forms.TextBox() - Me.SP2 = New System.Windows.Forms.PictureBox() - Me.SN1 = New System.Windows.Forms.TextBox() - Me.SP5 = New System.Windows.Forms.PictureBox() - Me.SP1 = New System.Windows.Forms.PictureBox() - Me.SN5 = New System.Windows.Forms.TextBox() - Me.SN3 = New System.Windows.Forms.TextBox() - Me.SN4 = New System.Windows.Forms.TextBox() - Me.SP3 = New System.Windows.Forms.PictureBox() - Me.SP4 = New System.Windows.Forms.PictureBox() - Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.Panel10 = New System.Windows.Forms.Panel() - Me.TBWishlistComment = New System.Windows.Forms.TextBox() - Me.Label32 = New System.Windows.Forms.Label() - Me.TBWishlistItem = New System.Windows.Forms.TextBox() - Me.radioGold = New System.Windows.Forms.RadioButton() - Me.Label42 = New System.Windows.Forms.Label() - Me.radioSilver = New System.Windows.Forms.RadioButton() - Me.TBWishlistURL = New System.Windows.Forms.TextBox() - Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() - Me.Label48 = New System.Windows.Forms.Label() - Me.Label73 = New System.Windows.Forms.Label() - Me.Label107 = New System.Windows.Forms.Label() - Me.BTNWishlistCreate = New System.Windows.Forms.Button() - Me.Label18 = New System.Windows.Forms.Label() - Me.PNLWishList = New System.Windows.Forms.Panel() - Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() - Me.LBLWishListText = New System.Windows.Forms.Label() - Me.LBLWishlistCost = New System.Windows.Forms.Label() - Me.WishlistCostGold = New System.Windows.Forms.PictureBox() - Me.LBLWishListName = New System.Windows.Forms.Label() - Me.WishlistPreview = New System.Windows.Forms.PictureBox() - Me.TabPage26 = New System.Windows.Forms.TabPage() - Me.Panel12 = New System.Windows.Forms.Panel() - Me.GroupBox9 = New System.Windows.Forms.GroupBox() - Me.Button32 = New System.Windows.Forms.Button() - Me.Button31 = New System.Windows.Forms.Button() - Me.PictureBox10 = New System.Windows.Forms.PictureBox() - Me.GroupBox5 = New System.Windows.Forms.GroupBox() - Me.CBTransparentTime = New System.Windows.Forms.CheckBox() - Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() - Me.Label137 = New System.Windows.Forms.Label() - Me.Label138 = New System.Windows.Forms.Label() - Me.LBLDateBackColor2 = New System.Windows.Forms.Label() - Me.LBLTextColor = New System.Windows.Forms.Label() - Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() - Me.LBLTextColor2 = New System.Windows.Forms.Label() - Me.LBLChatTextColor = New System.Windows.Forms.Label() - Me.LBLBackColor2 = New System.Windows.Forms.Label() - Me.LBLButtonColor = New System.Windows.Forms.Label() - Me.LBLChatWindowColor = New System.Windows.Forms.Label() - Me.LBLBackColor = New System.Windows.Forms.Label() - Me.LBLChatTextColor2 = New System.Windows.Forms.Label() - Me.LBLButtonColor2 = New System.Windows.Forms.Label() - Me.GroupBox11 = New System.Windows.Forms.GroupBox() - Me.Label144 = New System.Windows.Forms.Label() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.CBFlipBack = New System.Windows.Forms.CheckBox() - Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() - Me.Button17 = New System.Windows.Forms.Button() - Me.CBStretchBack = New System.Windows.Forms.CheckBox() - Me.Button18 = New System.Windows.Forms.Button() - Me.Label164 = New System.Windows.Forms.Label() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.Panel6 = New System.Windows.Forms.Panel() - Me.GroupBox69 = New System.Windows.Forms.GroupBox() - Me.TypesSpeedVal = New System.Windows.Forms.Label() - Me.TypeSpeedLabel = New System.Windows.Forms.Label() - Me.TimedWriting = New System.Windows.Forms.CheckBox() - Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() - Me.GroupBox68 = New System.Windows.Forms.GroupBox() - Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() - Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() - Me.Label165 = New System.Windows.Forms.Label() - Me.Label166 = New System.Windows.Forms.Label() - Me.GroupBox67 = New System.Windows.Forms.GroupBox() - Me.Label161 = New System.Windows.Forms.Label() - Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() - Me.Label162 = New System.Windows.Forms.Label() - Me.Label163 = New System.Windows.Forms.Label() - Me.Label158 = New System.Windows.Forms.Label() - Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() - Me.Label159 = New System.Windows.Forms.Label() - Me.Label160 = New System.Windows.Forms.Label() - Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() - Me.Label119 = New System.Windows.Forms.Label() - Me.Label157 = New System.Windows.Forms.Label() - Me.Label151 = New System.Windows.Forms.Label() - Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() - Me.Label154 = New System.Windows.Forms.Label() - Me.Label155 = New System.Windows.Forms.Label() - Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() - Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() - Me.Label146 = New System.Windows.Forms.Label() - Me.Label149 = New System.Windows.Forms.Label() - Me.GroupBox10 = New System.Windows.Forms.GroupBox() - Me.Label112 = New System.Windows.Forms.Label() - Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() - Me.Label6 = New System.Windows.Forms.Label() - Me.GroupBox57 = New System.Windows.Forms.GroupBox() - Me.Label139 = New System.Windows.Forms.Label() - Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() - Me.LBLVtf = New System.Windows.Forms.Label() - Me.LBLStf = New System.Windows.Forms.Label() - Me.SliderSTF = New System.Windows.Forms.TrackBar() - Me.TauntSlider = New System.Windows.Forms.TrackBar() - Me.Label106 = New System.Windows.Forms.Label() - Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() - Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() - Me.Label103 = New System.Windows.Forms.Label() - Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() - Me.Label105 = New System.Windows.Forms.Label() - Me.Label101 = New System.Windows.Forms.Label() - Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() - Me.Label102 = New System.Windows.Forms.Label() - Me.Label97 = New System.Windows.Forms.Label() - Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() - Me.Label99 = New System.Windows.Forms.Label() - Me.Label96 = New System.Windows.Forms.Label() - Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() - Me.Label95 = New System.Windows.Forms.Label() - Me.Label49 = New System.Windows.Forms.Label() - Me.Label141 = New System.Windows.Forms.Label() - Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() - Me.Label90 = New System.Windows.Forms.Label() - Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() - Me.Label91 = New System.Windows.Forms.Label() - Me.Label92 = New System.Windows.Forms.Label() - Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() - Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() - Me.CBRangeRuin = New System.Windows.Forms.CheckBox() - Me.GroupBox17 = New System.Windows.Forms.GroupBox() - Me.GroupBox19 = New System.Windows.Forms.GroupBox() - Me.Label110 = New System.Windows.Forms.Label() - Me.Label111 = New System.Windows.Forms.Label() - Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() - Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() - Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() - Me.Label26 = New System.Windows.Forms.Label() - Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() - Me.Label28 = New System.Windows.Forms.Label() - Me.Label27 = New System.Windows.Forms.Label() - Me.Label29 = New System.Windows.Forms.Label() - Me.GroupBox18 = New System.Windows.Forms.GroupBox() - Me.Label108 = New System.Windows.Forms.Label() - Me.Label109 = New System.Windows.Forms.Label() - Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() - Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() - Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() - Me.CBCensorConstant = New System.Windows.Forms.CheckBox() - Me.Label25 = New System.Windows.Forms.Label() - Me.Label20 = New System.Windows.Forms.Label() - Me.Label19 = New System.Windows.Forms.Label() - Me.Label24 = New System.Windows.Forms.Label() - Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() - Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() - Me.Label89 = New System.Windows.Forms.Label() - Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() - Me.Label86 = New System.Windows.Forms.Label() - Me.Label82 = New System.Windows.Forms.Label() - Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() - Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() - Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() - Me.PictureBox8 = New System.Windows.Forms.PictureBox() - Me.Label38 = New System.Windows.Forms.Label() - Me.TabPage13 = New System.Windows.Forms.TabPage() - Me.TabControl2 = New System.Windows.Forms.TabControl() - Me.TabPage27 = New System.Windows.Forms.TabPage() - Me.TBPlaylistSave = New System.Windows.Forms.TextBox() - Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() - Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() - Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() - Me.BTNPlaylistEnd = New System.Windows.Forms.Button() - Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() - Me.BTNPlaylistSave = New System.Windows.Forms.Button() - Me.Button7 = New System.Windows.Forms.Button() - Me.WBPlaylist = New System.Windows.Forms.WebBrowser() - Me.Label80 = New System.Windows.Forms.Label() - Me.LBLPlaylIstLink = New System.Windows.Forms.Label() - Me.LBLPlaylistModule = New System.Windows.Forms.Label() - Me.LBLPLaylistStart = New System.Windows.Forms.Label() - Me.LBPlaylist = New System.Windows.Forms.ListBox() - Me.TabPage14 = New System.Windows.Forms.TabPage() - Me.LBLKeywordPreview = New System.Windows.Forms.Label() - Me.Label88 = New System.Windows.Forms.Label() - Me.TBKeywordPreview = New System.Windows.Forms.TextBox() - Me.Button37 = New System.Windows.Forms.Button() - Me.Button50 = New System.Windows.Forms.Button() - Me.Button22 = New System.Windows.Forms.Button() - Me.TBKeyWords = New System.Windows.Forms.TextBox() - Me.LBKeyWords = New System.Windows.Forms.ListBox() - Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() - Me.TabPage24 = New System.Windows.Forms.TabPage() - Me.Button9 = New System.Windows.Forms.Button() - Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() - Me.Button4 = New System.Windows.Forms.Button() - Me.Button5 = New System.Windows.Forms.Button() - Me.TBResponses = New System.Windows.Forms.TextBox() - Me.LBResponses = New System.Windows.Forms.ListBox() - Me.RTBResponses = New System.Windows.Forms.RichTextBox() - Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() - Me.GroupBox29 = New System.Windows.Forms.GroupBox() - Me.Label51 = New System.Windows.Forms.Label() - Me.BTNVideoModClear = New System.Windows.Forms.Button() - Me.GroupBox28 = New System.Windows.Forms.GroupBox() - Me.CBVTType = New System.Windows.Forms.ComboBox() - Me.BTNVideoModLoad = New System.Windows.Forms.Button() - Me.GroupBox30 = New System.Windows.Forms.GroupBox() - Me.LBVidScript = New System.Windows.Forms.ListBox() - Me.BTNVideoModSave = New System.Windows.Forms.Button() - Me.TabPage15 = New System.Windows.Forms.TabPage() - Me.Label62 = New System.Windows.Forms.Label() - Me.Label61 = New System.Windows.Forms.Label() - Me.Label57 = New System.Windows.Forms.Label() - Me.Label58 = New System.Windows.Forms.Label() - Me.Label60 = New System.Windows.Forms.Label() - Me.TBGlitModFileName = New System.Windows.Forms.TextBox() - Me.GroupBox34 = New System.Windows.Forms.GroupBox() - Me.Label52 = New System.Windows.Forms.Label() - Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() - Me.Button26 = New System.Windows.Forms.Button() - Me.Label56 = New System.Windows.Forms.Label() - Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() - Me.LBGlitModScripts = New System.Windows.Forms.ListBox() - Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() - Me.LBLGlitModDomType = New System.Windows.Forms.Label() - Me.Button29 = New System.Windows.Forms.Button() - Me.CBGlitModType = New System.Windows.Forms.ComboBox() - Me.Label59 = New System.Windows.Forms.Label() - Me.Label50 = New System.Windows.Forms.Label() - Me.TabPage25 = New System.Windows.Forms.TabPage() - Me.Panel11 = New System.Windows.Forms.Panel() - Me.GroupBox62 = New System.Windows.Forms.GroupBox() - Me.RBGerman = New System.Windows.Forms.RadioButton() - Me.RBEnglish = New System.Windows.Forms.RadioButton() - Me.GroupBox33 = New System.Windows.Forms.GroupBox() - Me.BTNOfflineMode = New System.Windows.Forms.Button() - Me.LBLOfflineMode = New System.Windows.Forms.Label() - Me.Label140 = New System.Windows.Forms.Label() - Me.Button11 = New System.Windows.Forms.Button() - Me.LBLChastityState = New System.Windows.Forms.Label() - Me.Label120 = New System.Windows.Forms.Label() - Me.GroupBox8 = New System.Windows.Forms.GroupBox() - Me.CBOutputErrors = New System.Windows.Forms.CheckBox() - Me.GroupBox27 = New System.Windows.Forms.GroupBox() - Me.Button6 = New System.Windows.Forms.Button() - Me.LBLSesSpace = New System.Windows.Forms.Label() - Me.Button3 = New System.Windows.Forms.Button() - Me.LBLSesFiles = New System.Windows.Forms.Label() - Me.Label125 = New System.Windows.Forms.Label() - Me.Label124 = New System.Windows.Forms.Label() - Me.GroupBox20 = New System.Windows.Forms.GroupBox() - Me.BTNURLFileReplace = New System.Windows.Forms.Button() - Me.Label87 = New System.Windows.Forms.Label() - Me.TBURLFileWith = New System.Windows.Forms.TextBox() - Me.Label118 = New System.Windows.Forms.Label() - Me.Label85 = New System.Windows.Forms.Label() - Me.TBURLFileReplace = New System.Windows.Forms.TextBox() - Me.Label53 = New System.Windows.Forms.Label() - Me.Label8 = New System.Windows.Forms.Label() - Me.Button1 = New System.Windows.Forms.Button() - Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() - Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() - Me.Label117 = New System.Windows.Forms.Label() - Me.Label116 = New System.Windows.Forms.Label() - Me.PBCurrent = New System.Windows.Forms.ProgressBar() - Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() - Me.PBMaintenance = New System.Windows.Forms.ProgressBar() - Me.LBLMaintenance = New System.Windows.Forms.Label() - Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() - Me.GroupBox15 = New System.Windows.Forms.GroupBox() - Me.Label115 = New System.Windows.Forms.Label() - Me.TBWebStop = New System.Windows.Forms.TextBox() - Me.TBWebStart = New System.Windows.Forms.TextBox() - Me.Label114 = New System.Windows.Forms.Label() - Me.WebToy = New System.Windows.Forms.WebBrowser() - Me.PictureBox9 = New System.Windows.Forms.PictureBox() - Me.Label148 = New System.Windows.Forms.Label() - Me.TabPage28 = New System.Windows.Forms.TabPage() - Me.TabControl3 = New System.Windows.Forms.TabControl() - Me.TabPage29 = New System.Windows.Forms.TabPage() - Me.Label143 = New System.Windows.Forms.Label() - Me.LBLDebugScriptTime = New System.Windows.Forms.Label() - Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() - Me.GroupBox26 = New System.Windows.Forms.GroupBox() - Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() - Me.Button19 = New System.Windows.Forms.Button() - Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() - Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() - Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() - Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() - Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() - Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() - Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() - Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() - Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() - Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() - Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() - Me.Label145 = New System.Windows.Forms.Label() - Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() - Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() - Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() - Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() - Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() - Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() - Me.Label142 = New System.Windows.Forms.Label() - Me.Label150 = New System.Windows.Forms.Label() - Me.Label152 = New System.Windows.Forms.Label() - Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() - Me.Label147 = New System.Windows.Forms.Label() - Me.TabPage30 = New System.Windows.Forms.TabPage() - Me.Button33 = New System.Windows.Forms.Button() - Me.Button24 = New System.Windows.Forms.Button() - Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.Panel5 = New System.Windows.Forms.Panel() - Me.Label130 = New System.Windows.Forms.Label() - Me.Label123 = New System.Windows.Forms.Label() - Me.Label69 = New System.Windows.Forms.Label() - Me.Label113 = New System.Windows.Forms.Label() - Me.Label40 = New System.Windows.Forms.Label() - Me.Label35 = New System.Windows.Forms.Label() - Me.Label33 = New System.Windows.Forms.Label() - Me.Label17 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.PictureBox3 = New System.Windows.Forms.PictureBox() - Me.Label41 = New System.Windows.Forms.Label() - Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() - Me.GroupBox47 = New System.Windows.Forms.GroupBox() - Me.GroupBox41 = New System.Windows.Forms.GroupBox() - Me.Button34 = New System.Windows.Forms.Button() - Me.GroupBox40 = New System.Windows.Forms.GroupBox() - Me.GroupBox44 = New System.Windows.Forms.GroupBox() - Me.Label100 = New System.Windows.Forms.Label() - Me.GroupBox6 = New System.Windows.Forms.GroupBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() - Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() - Me.Label94 = New System.Windows.Forms.Label() - Me.LBLLastRuined = New System.Windows.Forms.Label() - Me.Label65 = New System.Windows.Forms.Label() - Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() - Me.LBLLastOrgasm = New System.Windows.Forms.Label() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.GroupBox21 = New System.Windows.Forms.GroupBox() - Me.Label153 = New System.Windows.Forms.Label() - Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() - Me.Label156 = New System.Windows.Forms.Label() - Me.GroupBox12 = New System.Windows.Forms.GroupBox() - Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() - Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() - Me.GetColor = New System.Windows.Forms.ColorDialog() - Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() - Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() - Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() - Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() - Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() - Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() - Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) - Me.GroupBox65 = New System.Windows.Forms.GroupBox() - Me.Label136 = New System.Windows.Forms.Label() - Me.Label134 = New System.Windows.Forms.Label() - Me.Label132 = New System.Windows.Forms.Label() - Me.TrackBar1 = New System.Windows.Forms.TrackBar() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.Label135 = New System.Windows.Forms.Label() - Me.TrackBar2 = New System.Windows.Forms.TrackBar() - Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() - Me.SettingsPanel.SuspendLayout() - Me.SettingsTabs.SuspendLayout() - Me.TabPage1.SuspendLayout() - Me.PNLGeneralSettings.SuspendLayout() - Me.GroupBox3.SuspendLayout() - Me.GroupBox2.SuspendLayout() - Me.GroupBox64.SuspendLayout() - Me.GBDommeImages.SuspendLayout() - CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGeneralTextToSpeech.SuspendLayout() - CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBSafeword.SuspendLayout() - Me.GBGeneralSystem.SuspendLayout() - Me.GBGeneralImages.SuspendLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGeneralSettings.SuspendLayout() - Me.GBSubFont.SuspendLayout() - CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDommeFont.SuspendLayout() - CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage2.SuspendLayout() - Me.Panel3.SuspendLayout() - Me.GBGiveUp.SuspendLayout() - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomTypingStyle.SuspendLayout() - CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox63.SuspendLayout() - Me.GBDomRanges.SuspendLayout() - CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomStats.SuspendLayout() - CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomPersonality.SuspendLayout() - Me.GBDomOrgasms.SuspendLayout() - CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBDomPetNames.SuspendLayout() - Me.TabPage10.SuspendLayout() - Me.Panel2.SuspendLayout() - Me.GroupBox22.SuspendLayout() - CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox45.SuspendLayout() - CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox35.SuspendLayout() - Me.GroupBoxSorry.SuspendLayout() - Me.GroupBox39.SuspendLayout() - Me.GroupBox38.SuspendLayout() - Me.GroupBox37.SuspendLayout() - Me.GroupBox36.SuspendLayout() - Me.GroupBox13.SuspendLayout() - Me.GroupBox7.SuspendLayout() - CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox32.SuspendLayout() - CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage16.SuspendLayout() - Me.Panel9.SuspendLayout() - Me.GroupBox31.SuspendLayout() - Me.TCScripts.SuspendLayout() - Me.TabPage21.SuspendLayout() - Me.TabPage17.SuspendLayout() - Me.TabPage18.SuspendLayout() - Me.TabPage19.SuspendLayout() - Me.GroupBox42.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox43.SuspendLayout() - Me.TabPage7.SuspendLayout() - Me.TabControl4.SuspendLayout() - Me.TpImagesUrlFiles.SuspendLayout() - Me.GroupBox66.SuspendLayout() - CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TpImagesGenre.SuspendLayout() - Me.GrbImageUrlFiles.SuspendLayout() - Me.TlpImageUrls.SuspendLayout() - Me.GbxImagesGenre.SuspendLayout() - Me.TableLayoutPanel1.SuspendLayout() - Me.TabPage33.SuspendLayout() - Me.TabControl5.SuspendLayout() - Me.TabPage34.SuspendLayout() - CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage35.SuspendLayout() - Me.GroupBox55.SuspendLayout() - Me.GroupBox53.SuspendLayout() - Me.GroupBox49.SuspendLayout() - Me.GroupBox46.SuspendLayout() - Me.GroupBox54.SuspendLayout() - Me.GroupBox51.SuspendLayout() - Me.GroupBox50.SuspendLayout() - Me.GroupBox48.SuspendLayout() - Me.TabPage11.SuspendLayout() - Me.Panel7.SuspendLayout() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TpVideoSettings.SuspendLayout() - Me.PnlVideoSettings.SuspendLayout() - CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxVideoGeneralD.SuspendLayout() - Me.GbxVideoSpecialD.SuspendLayout() - Me.GbxVideoGenreD.SuspendLayout() - Me.GbxVideoDescription.SuspendLayout() - Me.GbxVideoGeneral.SuspendLayout() - Me.GbxVideoSpecial.SuspendLayout() - Me.GbxVideoGenre.SuspendLayout() - Me.TabPage20.SuspendLayout() - Me.TabControl1.SuspendLayout() - Me.TabPage22.SuspendLayout() - Me.PNLGlitter.SuspendLayout() - Me.GroupBox14.SuspendLayout() - Me.GroupBox4.SuspendLayout() - Me.GBGlitterD.SuspendLayout() - Me.GrbGlitterfeed.SuspendLayout() - CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGlitter1.SuspendLayout() - CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGlitter3.SuspendLayout() - CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBGlitter2.SuspendLayout() - CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TpGames.SuspendLayout() - Me.GbxCardsGold.SuspendLayout() - CType(Me.GP6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GP4, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxCardsBackground.SuspendLayout() - CType(Me.CardBack, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxCardsBronze.SuspendLayout() - CType(Me.BP3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BP1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GbxCardsSilver.SuspendLayout() - CType(Me.SP6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SP4, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage6.SuspendLayout() - Me.Panel10.SuspendLayout() - CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).BeginInit() - Me.PNLWishList.SuspendLayout() - CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage26.SuspendLayout() - Me.Panel12.SuspendLayout() - Me.GroupBox9.SuspendLayout() - CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox5.SuspendLayout() - Me.GroupBox11.SuspendLayout() - Me.GroupBox1.SuspendLayout() - CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage4.SuspendLayout() - Me.Panel6.SuspendLayout() - Me.GroupBox69.SuspendLayout() - CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox68.SuspendLayout() - CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox67.SuspendLayout() - CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox10.SuspendLayout() - CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox57.SuspendLayout() - CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBRangeRuinChance.SuspendLayout() - CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox17.SuspendLayout() - Me.GroupBox19.SuspendLayout() - CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox18.SuspendLayout() - CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GBRangeOrgasmChance.SuspendLayout() - CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage13.SuspendLayout() - Me.TabControl2.SuspendLayout() - Me.TabPage27.SuspendLayout() - Me.TabPage14.SuspendLayout() - Me.TabPage24.SuspendLayout() - Me.TabPage8.SuspendLayout() - Me.GroupBox29.SuspendLayout() - Me.GroupBox28.SuspendLayout() - Me.GroupBox30.SuspendLayout() - Me.TabPage15.SuspendLayout() - Me.GroupBox34.SuspendLayout() - Me.TabPage25.SuspendLayout() - Me.Panel11.SuspendLayout() - Me.GroupBox62.SuspendLayout() - Me.GroupBox33.SuspendLayout() - Me.GroupBox8.SuspendLayout() - Me.GroupBox27.SuspendLayout() - Me.GroupBox20.SuspendLayout() - Me.GroupBox15.SuspendLayout() - CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage28.SuspendLayout() - Me.TabControl3.SuspendLayout() - Me.TabPage29.SuspendLayout() - Me.GroupBox26.SuspendLayout() - Me.TabPage30.SuspendLayout() - Me.TabPage5.SuspendLayout() - Me.Panel5.SuspendLayout() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox47.SuspendLayout() - Me.GroupBox41.SuspendLayout() - Me.GroupBox44.SuspendLayout() - Me.GroupBox6.SuspendLayout() - Me.GroupBox21.SuspendLayout() - Me.GroupBox12.SuspendLayout() - Me.GroupBox65.SuspendLayout() - CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'SettingsPanel - ' - Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray - Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SettingsPanel.Controls.Add(Me.SettingsTabs) - Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) - Me.SettingsPanel.Name = "SettingsPanel" - Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) - Me.SettingsPanel.TabIndex = 94 - ' - 'SettingsTabs - ' - Me.SettingsTabs.Controls.Add(Me.TabPage1) - Me.SettingsTabs.Controls.Add(Me.TabPage2) - Me.SettingsTabs.Controls.Add(Me.TabPage10) - Me.SettingsTabs.Controls.Add(Me.TabPage16) - Me.SettingsTabs.Controls.Add(Me.TabPage7) - Me.SettingsTabs.Controls.Add(Me.TabPage33) - Me.SettingsTabs.Controls.Add(Me.TabPage11) - Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) - Me.SettingsTabs.Controls.Add(Me.TabPage20) - Me.SettingsTabs.Controls.Add(Me.TabPage26) - Me.SettingsTabs.Controls.Add(Me.TabPage4) - Me.SettingsTabs.Controls.Add(Me.TabPage13) - Me.SettingsTabs.Controls.Add(Me.TabPage25) - Me.SettingsTabs.Controls.Add(Me.TabPage28) - Me.SettingsTabs.Controls.Add(Me.TabPage5) - Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) - Me.SettingsTabs.Name = "SettingsTabs" - Me.SettingsTabs.SelectedIndex = 0 - Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) - Me.SettingsTabs.TabIndex = 0 - ' - 'TabPage1 - ' - Me.TabPage1.BackColor = System.Drawing.Color.Silver - Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) - 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(720, 448) - Me.TabPage1.TabIndex = 0 - Me.TabPage1.Text = "General" - ' - 'PNLGeneralSettings - ' - Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray - Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PNLGeneralSettings.Controls.Add(Me.GroupBox3) - Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) - Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) - Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) - Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) - Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) - Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) - Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) - Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) - Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) - Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) - Me.PNLGeneralSettings.Name = "PNLGeneralSettings" - Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) - Me.PNLGeneralSettings.TabIndex = 0 - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) - Me.GroupBox3.Location = New System.Drawing.Point(7, 365) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(211, 65) - Me.GroupBox3.TabIndex = 184 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "System Files" - ' - 'BTNValidateSystemFiles - ' - Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray - Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black - Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) - Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" - Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) - Me.BTNValidateSystemFiles.TabIndex = 183 - Me.BTNValidateSystemFiles.Text = "Validate All System Files" - Me.BTNValidateSystemFiles.UseVisualStyleBackColor = False - ' - 'GroupBox2 - ' - Me.GroupBox2.Controls.Add(Me.Label170) - Me.GroupBox2.Controls.Add(Me.RandomHonorific) - Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) - Me.GroupBox2.Controls.Add(Me.CBRandomDomme) - Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) - Me.GroupBox2.Location = New System.Drawing.Point(224, 313) - Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(210, 117) - Me.GroupBox2.TabIndex = 183 - Me.GroupBox2.TabStop = False - Me.GroupBox2.Text = "Random Domme" - ' - 'Label170 - ' - Me.Label170.Location = New System.Drawing.Point(7, 95) - Me.Label170.Name = "Label170" - Me.Label170.Size = New System.Drawing.Size(59, 18) - Me.Label170.TabIndex = 28 - Me.Label170.Text = "Honorific" - Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'RandomHonorific - ' - Me.RandomHonorific.BackColor = System.Drawing.Color.White - Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.RandomHonorific.Location = New System.Drawing.Point(72, 95) - Me.RandomHonorific.Name = "RandomHonorific" - Me.RandomHonorific.Size = New System.Drawing.Size(128, 20) - Me.RandomHonorific.TabIndex = 187 - Me.RandomHonorific.Text = "Random Domme Honorific" - ' - 'TbxRandomImageDir - ' - Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "RandomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 44) - Me.TbxRandomImageDir.Name = "TbxRandomImageDir" - Me.TbxRandomImageDir.ReadOnly = True - Me.TbxRandomImageDir.Size = New System.Drawing.Size(190, 20) - Me.TbxRandomImageDir.TabIndex = 185 - Me.TbxRandomImageDir.Text = "No Path Selected" - ' - 'CBRandomDomme - ' - Me.CBRandomDomme.AutoSize = True - Me.CBRandomDomme.Location = New System.Drawing.Point(10, 71) - Me.CBRandomDomme.Name = "CBRandomDomme" - Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) - Me.CBRandomDomme.TabIndex = 184 - Me.CBRandomDomme.Text = "Always Start With Random Domme" - Me.CBRandomDomme.UseVisualStyleBackColor = True - ' - 'BtnRandomImageDir - ' - Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnRandomImageDir.Location = New System.Drawing.Point(10, 15) - Me.BtnRandomImageDir.Name = "BtnRandomImageDir" - Me.BtnRandomImageDir.Size = New System.Drawing.Size(190, 22) - Me.BtnRandomImageDir.TabIndex = 182 - Me.BtnRandomImageDir.Text = "Set Random Domme Directory" - Me.BtnRandomImageDir.UseVisualStyleBackColor = False - ' - 'BtnImportSettings - ' - Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent - Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export - Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.BtnImportSettings.FlatAppearance.BorderSize = 0 - Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black - Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) - Me.BtnImportSettings.Name = "BtnImportSettings" - Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) - Me.BtnImportSettings.TabIndex = 158 - Me.BtnImportSettings.UseVisualStyleBackColor = False - ' - 'LblImportSettings - ' - Me.LblImportSettings.AutoSize = True - Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblImportSettings.ForeColor = System.Drawing.Color.Black - Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) - Me.LblImportSettings.Name = "LblImportSettings" - Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) - Me.LblImportSettings.TabIndex = 159 - Me.LblImportSettings.Text = "import" - Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox64 - ' - Me.GroupBox64.BackColor = System.Drawing.Color.LightGray - Me.GroupBox64.Controls.Add(Me.CBMuteMedia) - Me.GroupBox64.ForeColor = System.Drawing.Color.Black - Me.GroupBox64.Location = New System.Drawing.Point(440, 258) - Me.GroupBox64.Name = "GroupBox64" - Me.GroupBox64.Size = New System.Drawing.Size(259, 49) - Me.GroupBox64.TabIndex = 157 - Me.GroupBox64.TabStop = False - Me.GroupBox64.Text = "Media Options" - ' - 'CBMuteMedia - ' - Me.CBMuteMedia.AutoSize = True - Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia - Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black - Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) - Me.CBMuteMedia.Name = "CBMuteMedia" - Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) - Me.CBMuteMedia.TabIndex = 6 - Me.CBMuteMedia.TabStop = False - Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" - Me.CBMuteMedia.UseVisualStyleBackColor = True - ' - 'GBDommeImages - ' - Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray - Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) - Me.GBDommeImages.Controls.Add(Me.teaseRadio) - Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) - Me.GBDommeImages.Controls.Add(Me.offRadio) - Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) - Me.GBDommeImages.Controls.Add(Me.timedRadio) - Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) - Me.GBDommeImages.ForeColor = System.Drawing.Color.Black - Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) - Me.GBDommeImages.Name = "GBDommeImages" - Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) - Me.GBDommeImages.TabIndex = 156 - Me.GBDommeImages.TabStop = False - Me.GBDommeImages.Text = "Slideshow Options" - ' - 'slideshowNumBox - ' - Me.slideshowNumBox.BackColor = System.Drawing.Color.White - Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black - Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) - Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) - Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.slideshowNumBox.Name = "slideshowNumBox" - Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) - Me.slideshowNumBox.TabIndex = 20 - Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) - ' - 'teaseRadio - ' - Me.teaseRadio.AutoSize = True - Me.teaseRadio.Checked = True - Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.teaseRadio.ForeColor = System.Drawing.Color.Black - Me.teaseRadio.Location = New System.Drawing.Point(149, 21) - Me.teaseRadio.Name = "teaseRadio" - Me.teaseRadio.Size = New System.Drawing.Size(55, 17) - Me.teaseRadio.TabIndex = 21 - Me.teaseRadio.TabStop = True - Me.teaseRadio.Text = "Tease" - Me.teaseRadio.UseVisualStyleBackColor = True - ' - 'CBNewSlideshow - ' - Me.CBNewSlideshow.AutoSize = True - Me.CBNewSlideshow.Checked = True - Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black - Me.CBNewSlideshow.Location = New System.Drawing.Point(4, 100) - Me.CBNewSlideshow.Name = "CBNewSlideshow" - Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) - Me.CBNewSlideshow.TabIndex = 18 - Me.CBNewSlideshow.TabStop = False - Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" - Me.CBNewSlideshow.UseVisualStyleBackColor = True - ' - 'offRadio - ' - Me.offRadio.AutoSize = True - Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.offRadio.ForeColor = System.Drawing.Color.Black - Me.offRadio.Location = New System.Drawing.Point(6, 21) - Me.offRadio.Name = "offRadio" - Me.offRadio.Size = New System.Drawing.Size(60, 17) - Me.offRadio.TabIndex = 18 - Me.offRadio.Text = "Manual" - Me.offRadio.UseVisualStyleBackColor = True - ' - 'BTNDomImageDir - ' - Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray - Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black - Me.BTNDomImageDir.Location = New System.Drawing.Point(10, 45) - Me.BTNDomImageDir.Name = "BTNDomImageDir" - Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) - Me.BTNDomImageDir.TabIndex = 17 - Me.BTNDomImageDir.Text = "Set Domme Images Directory" - Me.BTNDomImageDir.UseVisualStyleBackColor = False - ' - 'timedRadio - ' - Me.timedRadio.AutoSize = True - Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.timedRadio.ForeColor = System.Drawing.Color.Black - Me.timedRadio.Location = New System.Drawing.Point(72, 23) - Me.timedRadio.Name = "timedRadio" - Me.timedRadio.Size = New System.Drawing.Size(14, 13) - Me.timedRadio.TabIndex = 19 - Me.timedRadio.UseVisualStyleBackColor = True - ' - 'TbxDomImageDir - ' - Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) - Me.TbxDomImageDir.Name = "TbxDomImageDir" - Me.TbxDomImageDir.ReadOnly = True - Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) - Me.TbxDomImageDir.TabIndex = 0 - Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir - ' - 'GBGeneralTextToSpeech - ' - Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray - Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) - Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) - Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) - Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) - Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) - Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) - Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) - Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) - Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black - Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) - Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" - Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) - Me.GBGeneralTextToSpeech.TabIndex = 0 - Me.GBGeneralTextToSpeech.TabStop = False - Me.GBGeneralTextToSpeech.Text = "Text to Speech" - ' - 'LBLVRate - ' - Me.LBLVRate.Location = New System.Drawing.Point(202, 52) - Me.LBLVRate.Name = "LBLVRate" - Me.LBLVRate.Size = New System.Drawing.Size(45, 13) - Me.LBLVRate.TabIndex = 158 - Me.LBLVRate.Text = "100" - Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label93 - ' - Me.Label93.AutoSize = True - Me.Label93.Location = New System.Drawing.Point(141, 52) - Me.Label93.Name = "Label93" - Me.Label93.Size = New System.Drawing.Size(33, 13) - Me.Label93.TabIndex = 157 - Me.Label93.Text = "Rate:" - ' - 'LBLVVolume - ' - Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) - Me.LBLVVolume.Name = "LBLVVolume" - Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) - Me.LBLVVolume.TabIndex = 33 - Me.LBLVVolume.Text = "100" - Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label68 - ' - Me.Label68.AutoSize = True - Me.Label68.Location = New System.Drawing.Point(14, 52) - Me.Label68.Name = "Label68" - Me.Label68.Size = New System.Drawing.Size(45, 13) - Me.Label68.TabIndex = 32 - Me.Label68.Text = "Volume:" - ' - 'SliderVRate - ' - Me.SliderVRate.Location = New System.Drawing.Point(133, 68) - Me.SliderVRate.Minimum = -10 - Me.SliderVRate.Name = "SliderVRate" - Me.SliderVRate.Size = New System.Drawing.Size(120, 45) - Me.SliderVRate.TabIndex = 31 - ' - 'SliderVVolume - ' - Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) - Me.SliderVVolume.Maximum = 100 - Me.SliderVVolume.Name = "SliderVVolume" - Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) - Me.SliderVVolume.TabIndex = 30 - Me.SliderVVolume.Value = 50 - ' - 'TTSCheckBox - ' - Me.TTSCheckBox.AutoSize = True - Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black - Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) - Me.TTSCheckBox.Name = "TTSCheckBox" - Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) - Me.TTSCheckBox.TabIndex = 28 - Me.TTSCheckBox.TabStop = False - Me.TTSCheckBox.Text = "Enable" - Me.TTSCheckBox.UseVisualStyleBackColor = True - ' - 'TTSComboBox - ' - Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window - Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText - Me.TTSComboBox.FormattingEnabled = True - Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) - Me.TTSComboBox.Name = "TTSComboBox" - Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) - Me.TTSComboBox.TabIndex = 29 - Me.TTSComboBox.TabStop = False - ' - 'GBSafeword - ' - Me.GBSafeword.BackColor = System.Drawing.Color.LightGray - Me.GBSafeword.Controls.Add(Me.LBLSafeword) - Me.GBSafeword.Controls.Add(Me.TBSafeword) - Me.GBSafeword.ForeColor = System.Drawing.Color.Black - Me.GBSafeword.Location = New System.Drawing.Point(440, 179) - Me.GBSafeword.Name = "GBSafeword" - Me.GBSafeword.Size = New System.Drawing.Size(259, 74) - Me.GBSafeword.TabIndex = 0 - Me.GBSafeword.TabStop = False - Me.GBSafeword.Text = "Safeword" - ' - 'LBLSafeword - ' - Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) - Me.LBLSafeword.Name = "LBLSafeword" - Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) - Me.LBLSafeword.TabIndex = 0 - Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able " & - "to continue." - Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBSafeword - ' - Me.TBSafeword.Location = New System.Drawing.Point(17, 19) - Me.TBSafeword.Name = "TBSafeword" - Me.TBSafeword.Size = New System.Drawing.Size(225, 20) - Me.TBSafeword.TabIndex = 27 - Me.TBSafeword.Text = "red" - Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GBGeneralSystem - ' - Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) - Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) - Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) - Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) - Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) - Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) - Me.GBGeneralSystem.Name = "GBGeneralSystem" - Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) - Me.GBGeneralSystem.TabIndex = 0 - Me.GBGeneralSystem.TabStop = False - Me.GBGeneralSystem.Text = "System" - ' - 'CBAuditStartup - ' - Me.CBAuditStartup.AutoSize = True - Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black - Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) - Me.CBAuditStartup.Name = "CBAuditStartup" - Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) - Me.CBAuditStartup.TabIndex = 26 - Me.CBAuditStartup.TabStop = False - Me.CBAuditStartup.Text = "Audit Scripts on Startup" - Me.CBAuditStartup.UseVisualStyleBackColor = True - ' - 'CBDomDel - ' - Me.CBDomDel.AutoSize = True - Me.CBDomDel.ForeColor = System.Drawing.Color.Black - Me.CBDomDel.Location = New System.Drawing.Point(7, 110) - Me.CBDomDel.Name = "CBDomDel" - Me.CBDomDel.Size = New System.Drawing.Size(197, 17) - Me.CBDomDel.TabIndex = 27 - Me.CBDomDel.TabStop = False - Me.CBDomDel.Text = "Allow Domme to Delete Local Media" - Me.CBDomDel.UseVisualStyleBackColor = True - ' - 'CBSettingsPause - ' - Me.CBSettingsPause.AutoSize = True - Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black - Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) - Me.CBSettingsPause.Name = "CBSettingsPause" - Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) - Me.CBSettingsPause.TabIndex = 22 - Me.CBSettingsPause.TabStop = False - Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" - Me.CBSettingsPause.UseVisualStyleBackColor = True - ' - 'CBSaveChatlogExit - ' - Me.CBSaveChatlogExit.AutoSize = True - Me.CBSaveChatlogExit.Checked = True - Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black - Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) - Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" - Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) - Me.CBSaveChatlogExit.TabIndex = 25 - Me.CBSaveChatlogExit.TabStop = False - Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" - Me.CBSaveChatlogExit.UseVisualStyleBackColor = True - ' - 'CBAutosaveChatlog - ' - Me.CBAutosaveChatlog.AutoSize = True - Me.CBAutosaveChatlog.Checked = True - Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black - Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) - Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" - Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) - Me.CBAutosaveChatlog.TabIndex = 24 - Me.CBAutosaveChatlog.TabStop = False - Me.CBAutosaveChatlog.Text = "Autosave Chatlog" - Me.CBAutosaveChatlog.UseVisualStyleBackColor = True - ' - 'GBGeneralImages - ' - Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) - Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) - Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) - Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) - Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) - Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) - Me.GBGeneralImages.Name = "GBGeneralImages" - Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) - Me.GBGeneralImages.TabIndex = 0 - Me.GBGeneralImages.TabStop = False - Me.GBGeneralImages.Text = "Images" - ' - 'CBImageInfo - ' - Me.CBImageInfo.AutoSize = True - Me.CBImageInfo.ForeColor = System.Drawing.Color.Black - Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) - Me.CBImageInfo.Name = "CBImageInfo" - Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) - Me.CBImageInfo.TabIndex = 16 - Me.CBImageInfo.TabStop = False - Me.CBImageInfo.Text = "Display Image Information" - Me.CBImageInfo.UseVisualStyleBackColor = True - ' - 'CBSlideshowRandom - ' - Me.CBSlideshowRandom.AutoSize = True - Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black - Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) - Me.CBSlideshowRandom.Name = "CBSlideshowRandom" - Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) - Me.CBSlideshowRandom.TabIndex = 14 - Me.CBSlideshowRandom.TabStop = False - Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" - Me.CBSlideshowRandom.UseVisualStyleBackColor = True - ' - 'landscapeCheckBox - ' - Me.landscapeCheckBox.AutoSize = True - Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black - Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) - Me.landscapeCheckBox.Name = "landscapeCheckBox" - Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) - Me.landscapeCheckBox.TabIndex = 15 - Me.landscapeCheckBox.TabStop = False - Me.landscapeCheckBox.Text = "Stretch Landscape Images" - Me.landscapeCheckBox.UseVisualStyleBackColor = True - ' - 'CBBlogImageWindow - ' - Me.CBBlogImageWindow.AutoSize = True - Me.CBBlogImageWindow.Checked = True - Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black - Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) - Me.CBBlogImageWindow.Name = "CBBlogImageWindow" - Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) - Me.CBBlogImageWindow.TabIndex = 12 - Me.CBBlogImageWindow.TabStop = False - Me.CBBlogImageWindow.Text = "Save Blog Images From Session" - Me.CBBlogImageWindow.UseVisualStyleBackColor = True - ' - 'CBSlideshowSubDir - ' - Me.CBSlideshowSubDir.AutoSize = True - Me.CBSlideshowSubDir.Checked = True - Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black - Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) - Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" - Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) - Me.CBSlideshowSubDir.TabIndex = 13 - Me.CBSlideshowSubDir.TabStop = False - Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" - Me.CBSlideshowSubDir.UseVisualStyleBackColor = True - ' - 'PictureBox2 - ' - Me.PictureBox2.BackColor = System.Drawing.Color.LightGray - Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox2.Location = New System.Drawing.Point(9, 6) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(160, 19) - Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox2.TabIndex = 148 - Me.PictureBox2.TabStop = False - ' - 'GBGeneralSettings - ' - Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray - Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) - Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) - Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) - Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) - Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) - Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) - Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) - Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black - Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) - Me.GBGeneralSettings.Name = "GBGeneralSettings" - Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) - Me.GBGeneralSettings.TabIndex = 0 - Me.GBGeneralSettings.TabStop = False - Me.GBGeneralSettings.Text = "Chat Window" - ' - 'CBWebtease - ' - Me.CBWebtease.AutoSize = True - Me.CBWebtease.ForeColor = System.Drawing.Color.Black - Me.CBWebtease.Location = New System.Drawing.Point(6, 110) - Me.CBWebtease.Name = "CBWebtease" - Me.CBWebtease.Size = New System.Drawing.Size(105, 17) - Me.CBWebtease.TabIndex = 5 - Me.CBWebtease.TabStop = False - Me.CBWebtease.Text = "Webtease Mode" - Me.CBWebtease.UseVisualStyleBackColor = True - ' - 'GBSubFont - ' - Me.GBSubFont.Controls.Add(Me.BTNSubColor) - Me.GBSubFont.Controls.Add(Me.LBLSubColor) - Me.GBSubFont.Controls.Add(Me.NBFontSize) - Me.GBSubFont.Controls.Add(Me.Label2) - Me.GBSubFont.Controls.Add(Me.FontComboBox) - Me.GBSubFont.Location = New System.Drawing.Point(6, 219) - Me.GBSubFont.Name = "GBSubFont" - Me.GBSubFont.Size = New System.Drawing.Size(200, 77) - Me.GBSubFont.TabIndex = 0 - Me.GBSubFont.TabStop = False - Me.GBSubFont.Text = "Sub Font Settings" - ' - 'BTNSubColor - ' - Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray - Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNSubColor.ForeColor = System.Drawing.Color.Black - Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) - Me.BTNSubColor.Name = "BTNSubColor" - Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) - Me.BTNSubColor.TabIndex = 8 - Me.BTNSubColor.Text = "Sub Name Color" - Me.BTNSubColor.UseVisualStyleBackColor = False - ' - 'LBLSubColor - ' - Me.LBLSubColor.BackColor = System.Drawing.Color.White - Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor - Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) - Me.LBLSubColor.Name = "LBLSubColor" - Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) - Me.LBLSubColor.TabIndex = 0 - Me.LBLSubColor.Text = "Preview" - Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBFontSize - ' - Me.NBFontSize.BackColor = System.Drawing.Color.White - Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBFontSize.ForeColor = System.Drawing.Color.Black - Me.NBFontSize.Location = New System.Drawing.Point(147, 47) - Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBFontSize.Name = "NBFontSize" - Me.NBFontSize.Size = New System.Drawing.Size(45, 20) - Me.NBFontSize.TabIndex = 11 - Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label2 - ' - Me.Label2.BackColor = System.Drawing.Color.Transparent - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.ForeColor = System.Drawing.Color.Black - Me.Label2.Location = New System.Drawing.Point(117, 45) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(30, 20) - Me.Label2.TabIndex = 63 - Me.Label2.Text = "Size:" - Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'FontComboBox - ' - Me.FontComboBox.FormattingEnabled = True - Me.FontComboBox.Location = New System.Drawing.Point(6, 46) - Me.FontComboBox.Name = "FontComboBox" - Me.FontComboBox.Size = New System.Drawing.Size(110, 21) - Me.FontComboBox.TabIndex = 9 - ' - 'GBDommeFont - ' - Me.GBDommeFont.Controls.Add(Me.BTNDomColor) - Me.GBDommeFont.Controls.Add(Me.LBLDomColor) - Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) - Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) - Me.GBDommeFont.Controls.Add(Me.Label7) - Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) - Me.GBDommeFont.Name = "GBDommeFont" - Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) - Me.GBDommeFont.TabIndex = 0 - Me.GBDommeFont.TabStop = False - Me.GBDommeFont.Text = "Domme Font Settings" - ' - 'BTNDomColor - ' - Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray - Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomColor.ForeColor = System.Drawing.Color.Black - Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) - Me.BTNDomColor.Name = "BTNDomColor" - Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) - Me.BTNDomColor.TabIndex = 5 - Me.BTNDomColor.Text = "Domme Name Color" - Me.BTNDomColor.UseVisualStyleBackColor = False - ' - 'LBLDomColor - ' - Me.LBLDomColor.BackColor = System.Drawing.Color.White - Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor - Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) - Me.LBLDomColor.Name = "LBLDomColor" - Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) - Me.LBLDomColor.TabIndex = 0 - Me.LBLDomColor.Text = "Preview" - Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'FontComboBoxD - ' - Me.FontComboBoxD.FormattingEnabled = True - Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) - Me.FontComboBoxD.Name = "FontComboBoxD" - Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) - Me.FontComboBoxD.TabIndex = 6 - ' - 'NBFontSizeD - ' - Me.NBFontSizeD.BackColor = System.Drawing.Color.White - Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black - Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) - Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBFontSizeD.Name = "NBFontSizeD" - Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) - Me.NBFontSizeD.TabIndex = 7 - Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label7 - ' - Me.Label7.BackColor = System.Drawing.Color.Transparent - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.ForeColor = System.Drawing.Color.Black - Me.Label7.Location = New System.Drawing.Point(117, 45) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(30, 20) - Me.Label7.TabIndex = 172 - Me.Label7.Text = "Size:" - Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBInputIcon - ' - Me.CBInputIcon.AutoSize = True - Me.CBInputIcon.Checked = True - Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBInputIcon.ForeColor = System.Drawing.Color.Black - Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) - Me.CBInputIcon.Name = "CBInputIcon" - Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) - Me.CBInputIcon.TabIndex = 4 - Me.CBInputIcon.TabStop = False - Me.CBInputIcon.Text = "Show Icon During Input Questions" - Me.CBInputIcon.UseVisualStyleBackColor = True - ' - 'typeinstantlyCheckBox - ' - Me.typeinstantlyCheckBox.AutoSize = True - Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black - Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) - Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" - Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) - Me.typeinstantlyCheckBox.TabIndex = 3 - Me.typeinstantlyCheckBox.TabStop = False - Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" - Me.typeinstantlyCheckBox.UseVisualStyleBackColor = True - ' - 'timestampCheckBox - ' - Me.timestampCheckBox.AutoSize = True - Me.timestampCheckBox.Checked = True - Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked - Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black - Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) - Me.timestampCheckBox.Name = "timestampCheckBox" - Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) - Me.timestampCheckBox.TabIndex = 1 - Me.timestampCheckBox.TabStop = False - Me.timestampCheckBox.Text = "Show Timestamps" - Me.timestampCheckBox.UseVisualStyleBackColor = True - ' - 'shownamesCheckBox - ' - Me.shownamesCheckBox.AutoSize = True - Me.shownamesCheckBox.Checked = True - Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked - Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black - Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) - Me.shownamesCheckBox.Name = "shownamesCheckBox" - Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) - Me.shownamesCheckBox.TabIndex = 2 - Me.shownamesCheckBox.TabStop = False - Me.shownamesCheckBox.Text = "Always Show Names" - Me.shownamesCheckBox.UseVisualStyleBackColor = True - ' - 'LBLGeneralSettings - ' - Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent - Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black - Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) - Me.LBLGeneralSettings.Name = "LBLGeneralSettings" - Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) - Me.LBLGeneralSettings.TabIndex = 0 - Me.LBLGeneralSettings.Text = "General Settings" - Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage2 - ' - Me.TabPage2.BackColor = System.Drawing.Color.Silver - Me.TabPage2.Controls.Add(Me.Panel3) - 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(720, 448) - Me.TabPage2.TabIndex = 1 - Me.TabPage2.Text = "Domme" - ' - 'Panel3 - ' - Me.Panel3.BackColor = System.Drawing.Color.LightGray - Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel3.Controls.Add(Me.GBGiveUp) - Me.Panel3.Controls.Add(Me.BTNLoadDomSet) - Me.Panel3.Controls.Add(Me.BTNSaveDomSet) - Me.Panel3.Controls.Add(Me.Label127) - Me.Panel3.Controls.Add(Me.Label126) - Me.Panel3.Controls.Add(Me.PictureBox4) - Me.Panel3.Controls.Add(Me.GBDomTypingStyle) - Me.Panel3.Controls.Add(Me.GBDomRanges) - Me.Panel3.Controls.Add(Me.GBDomStats) - Me.Panel3.Controls.Add(Me.GBDomPersonality) - Me.Panel3.Controls.Add(Me.GBDomOrgasms) - Me.Panel3.Controls.Add(Me.GBDomPetNames) - Me.Panel3.Controls.Add(Me.Label54) - Me.Panel3.Location = New System.Drawing.Point(6, 6) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(708, 437) - Me.Panel3.TabIndex = 93 - ' - 'GBGiveUp - ' - Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) - Me.GBGiveUp.Location = New System.Drawing.Point(440, 230) - Me.GBGiveUp.Name = "GBGiveUp" - Me.GBGiveUp.Size = New System.Drawing.Size(259, 63) - Me.GBGiveUp.TabIndex = 42 - Me.GBGiveUp.TabStop = False - Me.GBGiveUp.Text = "Script Behavior" - ' - 'giveupCheckBox - ' - Me.giveupCheckBox.AutoSize = True - Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black - Me.giveupCheckBox.Location = New System.Drawing.Point(15, 26) - Me.giveupCheckBox.Name = "giveupCheckBox" - Me.giveupCheckBox.Size = New System.Drawing.Size(210, 17) - Me.giveupCheckBox.TabIndex = 38 - Me.giveupCheckBox.Text = "Continue Current Script After Giving Up" - Me.giveupCheckBox.UseVisualStyleBackColor = True - ' - 'BTNLoadDomSet - ' - Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray - Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export - Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 - Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black - Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) - Me.BTNLoadDomSet.Name = "BTNLoadDomSet" - Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) - Me.BTNLoadDomSet.TabIndex = 150 - Me.BTNLoadDomSet.UseVisualStyleBackColor = False - ' - 'BTNSaveDomSet - ' - Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray - Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save - Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 - Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black - Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) - Me.BTNSaveDomSet.Name = "BTNSaveDomSet" - Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) - Me.BTNSaveDomSet.TabIndex = 151 - Me.BTNSaveDomSet.UseVisualStyleBackColor = False - ' - 'Label127 - ' - Me.Label127.AutoSize = True - Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label127.ForeColor = System.Drawing.Color.Black - Me.Label127.Location = New System.Drawing.Point(670, -3) - Me.Label127.Name = "Label127" - Me.Label127.Size = New System.Drawing.Size(27, 13) - Me.Label127.TabIndex = 153 - Me.Label127.Text = "load" - Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label126 - ' - Me.Label126.AutoSize = True - Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label126.ForeColor = System.Drawing.Color.Black - Me.Label126.Location = New System.Drawing.Point(636, -3) - Me.Label126.Name = "Label126" - Me.Label126.Size = New System.Drawing.Size(30, 13) - Me.Label126.TabIndex = 152 - Me.Label126.Text = "save" - Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'PictureBox4 - ' - Me.PictureBox4.BackColor = System.Drawing.Color.LightGray - Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox4.Location = New System.Drawing.Point(9, 6) - Me.PictureBox4.Name = "PictureBox4" - Me.PictureBox4.Size = New System.Drawing.Size(160, 19) - Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox4.TabIndex = 149 - Me.PictureBox4.TabStop = False - ' - 'GBDomTypingStyle - ' - Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) - Me.GBDomTypingStyle.Controls.Add(Me.Label67) - Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) - Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) - Me.GBDomTypingStyle.Controls.Add(Me.Label66) - Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) - Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) - Me.GBDomTypingStyle.Controls.Add(Me.Label64) - Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black - Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) - Me.GBDomTypingStyle.Name = "GBDomTypingStyle" - Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) - Me.GBDomTypingStyle.TabIndex = 138 - Me.GBDomTypingStyle.TabStop = False - Me.GBDomTypingStyle.Text = "Typing Style" - ' - 'TBEmoteEnd - ' - Me.TBEmoteEnd.BackColor = System.Drawing.Color.White - Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black - Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) - Me.TBEmoteEnd.Name = "TBEmoteEnd" - Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) - Me.TBEmoteEnd.TabIndex = 155 - Me.TBEmoteEnd.Text = "*" - Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label67 - ' - Me.Label67.AutoSize = True - Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label67.ForeColor = System.Drawing.Color.Black - Me.Label67.Location = New System.Drawing.Point(237, 77) - Me.Label67.Name = "Label67" - Me.Label67.Size = New System.Drawing.Size(42, 13) - Me.Label67.TabIndex = 169 - Me.Label67.Text = "Typo %" - Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBEmote - ' - Me.TBEmote.BackColor = System.Drawing.Color.White - Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBEmote.ForeColor = System.Drawing.Color.Black - Me.TBEmote.Location = New System.Drawing.Point(9, 91) - Me.TBEmote.Name = "TBEmote" - Me.TBEmote.Size = New System.Drawing.Size(85, 23) - Me.TBEmote.TabIndex = 154 - Me.TBEmote.Text = "*" - Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'NBTypoChance - ' - Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) - Me.NBTypoChance.Name = "NBTypoChance" - Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) - Me.NBTypoChance.TabIndex = 168 - Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) - ' - 'Label66 - ' - Me.Label66.AutoSize = True - Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label66.ForeColor = System.Drawing.Color.Black - Me.Label66.Location = New System.Drawing.Point(322, 77) - Me.Label66.Name = "Label66" - Me.Label66.Size = New System.Drawing.Size(52, 13) - Me.Label66.TabIndex = 44 - Me.Label66.Text = "Pronouns" - Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBMeMyMine - ' - Me.CBMeMyMine.AutoSize = True - Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black - Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) - Me.CBMeMyMine.Name = "CBMeMyMine" - Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) - Me.CBMeMyMine.TabIndex = 40 - Me.CBMeMyMine.Text = "Me/My/Mine" - Me.CBMeMyMine.UseVisualStyleBackColor = True - ' - 'GroupBox63 - ' - Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) - Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) - Me.GroupBox63.Controls.Add(Me.periodCheckBox) - Me.GroupBox63.Controls.Add(Me.commaCheckBox) - Me.GroupBox63.Location = New System.Drawing.Point(9, 15) - Me.GroupBox63.Name = "GroupBox63" - Me.GroupBox63.Size = New System.Drawing.Size(407, 48) - Me.GroupBox63.TabIndex = 41 - Me.GroupBox63.TabStop = False - Me.GroupBox63.Text = "Remove" - ' - 'LCaseCheckBox - ' - Me.LCaseCheckBox.AutoSize = True - Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black - Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) - Me.LCaseCheckBox.Name = "LCaseCheckBox" - Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) - Me.LCaseCheckBox.TabIndex = 38 - Me.LCaseCheckBox.Text = "Capitalization" - Me.LCaseCheckBox.UseVisualStyleBackColor = True - ' - 'apostropheCheckBox - ' - Me.apostropheCheckBox.AutoSize = True - Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black - Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) - Me.apostropheCheckBox.Name = "apostropheCheckBox" - Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) - Me.apostropheCheckBox.TabIndex = 39 - Me.apostropheCheckBox.Text = "Apostrophes" - Me.apostropheCheckBox.UseVisualStyleBackColor = True - ' - 'periodCheckBox - ' - Me.periodCheckBox.AutoSize = True - Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.periodCheckBox.ForeColor = System.Drawing.Color.Black - Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) - Me.periodCheckBox.Name = "periodCheckBox" - Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) - Me.periodCheckBox.TabIndex = 37 - Me.periodCheckBox.Text = "Periods" - Me.periodCheckBox.UseVisualStyleBackColor = True - ' - 'commaCheckBox - ' - Me.commaCheckBox.AutoSize = True - Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.commaCheckBox.ForeColor = System.Drawing.Color.Black - Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) - Me.commaCheckBox.Name = "commaCheckBox" - Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) - Me.commaCheckBox.TabIndex = 36 - Me.commaCheckBox.Text = "Commas" - Me.commaCheckBox.UseVisualStyleBackColor = True - ' - 'Label64 - ' - Me.Label64.AutoSize = True - Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label64.ForeColor = System.Drawing.Color.Black - Me.Label64.Location = New System.Drawing.Point(8, 77) - Me.Label64.Name = "Label64" - Me.Label64.Size = New System.Drawing.Size(79, 13) - Me.Label64.TabIndex = 43 - Me.Label64.Text = "Emote Symbols" - Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GBDomRanges - ' - Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) - Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) - Me.GBDomRanges.Controls.Add(Me.Label37) - Me.GBDomRanges.Controls.Add(Me.Label39) - Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) - Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) - Me.GBDomRanges.Controls.Add(Me.Label31) - Me.GBDomRanges.Controls.Add(Me.Label36) - Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) - Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) - Me.GBDomRanges.Controls.Add(Me.Label21) - Me.GBDomRanges.Controls.Add(Me.Label22) - Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) - Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) - Me.GBDomRanges.Controls.Add(Me.Label23) - Me.GBDomRanges.Controls.Add(Me.Label30) - Me.GBDomRanges.Location = New System.Drawing.Point(440, 299) - Me.GBDomRanges.Name = "GBDomRanges" - Me.GBDomRanges.Size = New System.Drawing.Size(259, 124) - Me.GBDomRanges.TabIndex = 148 - Me.GBDomRanges.TabStop = False - Me.GBDomRanges.Text = "Ranges" - ' - 'NBDomMoodMax - ' - Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 19) - Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBDomMoodMax.Name = "NBDomMoodMax" - Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) - Me.NBDomMoodMax.TabIndex = 168 - Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) - ' - 'NBDomMoodMin - ' - Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 19) - Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) - Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBDomMoodMin.Name = "NBDomMoodMin" - Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) - Me.NBDomMoodMin.TabIndex = 167 - Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) - ' - 'Label37 - ' - Me.Label37.BackColor = System.Drawing.Color.Transparent - Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label37.ForeColor = System.Drawing.Color.Black - Me.Label37.Location = New System.Drawing.Point(184, 19) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(10, 17) - Me.Label37.TabIndex = 166 - Me.Label37.Text = "-" - Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label39 - ' - Me.Label39.BackColor = System.Drawing.Color.Transparent - Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label39.ForeColor = System.Drawing.Color.Black - Me.Label39.Location = New System.Drawing.Point(12, 19) - Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(116, 17) - Me.Label39.TabIndex = 165 - Me.Label39.Text = "Domme Mood Index:" - Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBSubAgeMax - ' - Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 94) - Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) - Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) - Me.NBSubAgeMax.Name = "NBSubAgeMax" - Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) - Me.NBSubAgeMax.TabIndex = 164 - Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) - ' - 'NBSubAgeMin - ' - Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 94) - Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) - Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) - Me.NBSubAgeMin.Name = "NBSubAgeMin" - Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) - Me.NBSubAgeMin.TabIndex = 163 - Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) - ' - 'Label31 - ' - Me.Label31.BackColor = System.Drawing.Color.Transparent - Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label31.ForeColor = System.Drawing.Color.Black - Me.Label31.Location = New System.Drawing.Point(184, 94) - Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(10, 17) - Me.Label31.TabIndex = 162 - Me.Label31.Text = "-" - Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label36 - ' - Me.Label36.BackColor = System.Drawing.Color.Transparent - Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label36.ForeColor = System.Drawing.Color.Black - Me.Label36.Location = New System.Drawing.Point(12, 94) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(113, 17) - Me.Label36.TabIndex = 161 - Me.Label36.Text = "Sub Age Perception:" - Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBSelfAgeMax - ' - Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 69) - Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) - Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) - Me.NBSelfAgeMax.Name = "NBSelfAgeMax" - Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) - Me.NBSelfAgeMax.TabIndex = 156 - Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) - ' - 'NBSelfAgeMin - ' - Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 69) - Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) - Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) - Me.NBSelfAgeMin.Name = "NBSelfAgeMin" - Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) - Me.NBSelfAgeMin.TabIndex = 155 - Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) - ' - 'Label21 - ' - Me.Label21.BackColor = System.Drawing.Color.Transparent - Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label21.ForeColor = System.Drawing.Color.Black - Me.Label21.Location = New System.Drawing.Point(184, 69) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(10, 17) - Me.Label21.TabIndex = 154 - Me.Label21.Text = "-" - Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label22 - ' - Me.Label22.BackColor = System.Drawing.Color.Transparent - Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label22.ForeColor = System.Drawing.Color.Black - Me.Label22.Location = New System.Drawing.Point(12, 69) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(116, 17) - Me.Label22.TabIndex = 153 - Me.Label22.Text = "Self Age Perception:" - Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBAvgCockMax - ' - Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 44) - Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) - Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) - Me.NBAvgCockMax.Name = "NBAvgCockMax" - Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) - Me.NBAvgCockMax.TabIndex = 152 - Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) - ' - 'NBAvgCockMin - ' - Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 44) - Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) - Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBAvgCockMin.Name = "NBAvgCockMin" - Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) - Me.NBAvgCockMin.TabIndex = 151 - Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) - ' - 'Label23 - ' - Me.Label23.BackColor = System.Drawing.Color.Transparent - Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.ForeColor = System.Drawing.Color.Black - Me.Label23.Location = New System.Drawing.Point(184, 44) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(10, 17) - Me.Label23.TabIndex = 150 - Me.Label23.Text = "-" - Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label30 - ' - Me.Label30.BackColor = System.Drawing.Color.Transparent - Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.ForeColor = System.Drawing.Color.Black - Me.Label30.Location = New System.Drawing.Point(12, 44) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(116, 17) - Me.Label30.TabIndex = 149 - Me.Label30.Text = "Average Dick Size:" - Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GBDomStats - ' - Me.GBDomStats.BackColor = System.Drawing.Color.LightGray - Me.GBDomStats.Controls.Add(Me.Label128) - Me.GBDomStats.Controls.Add(Me.LBLEmpathy) - Me.GBDomStats.Controls.Add(Me.NBEmpathy) - Me.GBDomStats.Controls.Add(Me.Label83) - Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) - Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) - Me.GBDomStats.Controls.Add(Me.TBDomHairColor) - Me.GBDomStats.Controls.Add(Me.domageNumBox) - Me.GBDomStats.Controls.Add(Me.Label47) - Me.GBDomStats.Controls.Add(Me.Label76) - Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) - Me.GBDomStats.Controls.Add(Me.Label84) - Me.GBDomStats.Controls.Add(Me.CBDomTattoos) - Me.GBDomStats.Controls.Add(Me.CBDomFreckles) - Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) - Me.GBDomStats.Controls.Add(Me.Label10) - Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) - Me.GBDomStats.Controls.Add(Me.Label9) - Me.GBDomStats.Controls.Add(Me.boobComboBox) - Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) - Me.GBDomStats.Controls.Add(Me.domlevelNumBox) - Me.GBDomStats.Controls.Add(Me.Label43) - Me.GBDomStats.Controls.Add(Me.Label44) - Me.GBDomStats.Controls.Add(Me.Label45) - Me.GBDomStats.Controls.Add(Me.Label46) - Me.GBDomStats.ForeColor = System.Drawing.Color.Black - Me.GBDomStats.Location = New System.Drawing.Point(18, 33) - Me.GBDomStats.Name = "GBDomStats" - Me.GBDomStats.Size = New System.Drawing.Size(171, 263) - Me.GBDomStats.TabIndex = 62 - Me.GBDomStats.TabStop = False - Me.GBDomStats.Text = "Stats/Appearance" - ' - 'Label128 - ' - Me.Label128.AutoSize = True - Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label128.Location = New System.Drawing.Point(125, 68) - Me.Label128.Name = "Label128" - Me.Label128.Size = New System.Drawing.Size(38, 13) - Me.Label128.TabIndex = 156 - Me.Label128.Text = "mm/dd" - Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLEmpathy - ' - Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) - Me.LBLEmpathy.Name = "LBLEmpathy" - Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) - Me.LBLEmpathy.TabIndex = 157 - Me.LBLEmpathy.Text = "Moderate" - Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBEmpathy - ' - Me.NBEmpathy.BackColor = System.Drawing.Color.White - Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBEmpathy.ForeColor = System.Drawing.Color.Black - Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) - Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBEmpathy.Name = "NBEmpathy" - Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) - Me.NBEmpathy.TabIndex = 156 - Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label83 - ' - Me.Label83.BackColor = System.Drawing.Color.Transparent - Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label83.ForeColor = System.Drawing.Color.Black - Me.Label83.Location = New System.Drawing.Point(6, 37) - Me.Label83.Name = "Label83" - Me.Label83.Size = New System.Drawing.Size(60, 17) - Me.Label83.TabIndex = 158 - Me.Label83.Text = "Apathy:" - Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBDomBirthdayDay - ' - Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White - Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black - Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) - Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) - Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" - Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) - Me.NBDomBirthdayDay.TabIndex = 152 - Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'TBDomEyeColor - ' - Me.TBDomEyeColor.BackColor = System.Drawing.Color.White - Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black - Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) - Me.TBDomEyeColor.Name = "TBDomEyeColor" - Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) - Me.TBDomEyeColor.TabIndex = 154 - Me.TBDomEyeColor.Text = "green" - ' - 'TBDomHairColor - ' - Me.TBDomHairColor.BackColor = System.Drawing.Color.White - Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black - Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) - Me.TBDomHairColor.Name = "TBDomHairColor" - Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) - Me.TBDomHairColor.TabIndex = 153 - Me.TBDomHairColor.Text = "brown" - ' - 'domageNumBox - ' - Me.domageNumBox.BackColor = System.Drawing.Color.White - Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.domageNumBox.ForeColor = System.Drawing.Color.Black - Me.domageNumBox.Location = New System.Drawing.Point(73, 61) - Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) - Me.domageNumBox.Name = "domageNumBox" - Me.domageNumBox.Size = New System.Drawing.Size(38, 20) - Me.domageNumBox.TabIndex = 27 - Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) - ' - 'Label47 - ' - Me.Label47.BackColor = System.Drawing.Color.Transparent - Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label47.ForeColor = System.Drawing.Color.Black - Me.Label47.Location = New System.Drawing.Point(6, 60) - Me.Label47.Name = "Label47" - Me.Label47.Size = New System.Drawing.Size(63, 17) - Me.Label47.TabIndex = 138 - Me.Label47.Text = "Age:" - Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label76 - ' - Me.Label76.AutoSize = True - Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label76.ForeColor = System.Drawing.Color.Black - Me.Label76.Location = New System.Drawing.Point(113, 87) - Me.Label76.Name = "Label76" - Me.Label76.Size = New System.Drawing.Size(12, 13) - Me.Label76.TabIndex = 151 - Me.Label76.Text = "/" - Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBDomBirthdayMonth - ' - Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White - Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black - Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) - Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) - Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" - Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) - Me.NBDomBirthdayMonth.TabIndex = 149 - Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label84 - ' - Me.Label84.BackColor = System.Drawing.Color.Transparent - Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label84.ForeColor = System.Drawing.Color.Black - Me.Label84.Location = New System.Drawing.Point(6, 84) - Me.Label84.Name = "Label84" - Me.Label84.Size = New System.Drawing.Size(60, 17) - Me.Label84.TabIndex = 150 - Me.Label84.Text = "Birthday:" - Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBDomTattoos - ' - Me.CBDomTattoos.AutoSize = True - Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black - Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) - Me.CBDomTattoos.Name = "CBDomTattoos" - Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) - Me.CBDomTattoos.TabIndex = 148 - Me.CBDomTattoos.Text = "Tattoos" - Me.CBDomTattoos.UseVisualStyleBackColor = True - ' - 'CBDomFreckles - ' - Me.CBDomFreckles.AutoSize = True - Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black - Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) - Me.CBDomFreckles.Name = "CBDomFreckles" - Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) - Me.CBDomFreckles.TabIndex = 147 - Me.CBDomFreckles.Text = "Freckles" - Me.CBDomFreckles.UseVisualStyleBackColor = True - ' - 'domhairlengthComboBox - ' - Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White - Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black - Me.domhairlengthComboBox.FormattingEnabled = True - Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) - Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) - Me.domhairlengthComboBox.Name = "domhairlengthComboBox" - Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) - Me.domhairlengthComboBox.TabIndex = 145 - ' - 'Label10 - ' - Me.Label10.BackColor = System.Drawing.Color.Transparent - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.ForeColor = System.Drawing.Color.Black - Me.Label10.Location = New System.Drawing.Point(6, 133) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(78, 17) - Me.Label10.TabIndex = 146 - Me.Label10.Text = "Hair Length:" - Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'dompubichairComboBox - ' - Me.dompubichairComboBox.BackColor = System.Drawing.Color.White - Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black - Me.dompubichairComboBox.FormattingEnabled = True - Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) - Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) - Me.dompubichairComboBox.Name = "dompubichairComboBox" - Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) - Me.dompubichairComboBox.TabIndex = 143 - ' - 'Label9 - ' - Me.Label9.BackColor = System.Drawing.Color.Transparent - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.ForeColor = System.Drawing.Color.Black - Me.Label9.Location = New System.Drawing.Point(6, 209) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(63, 17) - Me.Label9.TabIndex = 144 - Me.Label9.Text = "Pubic Hair:" - Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'boobComboBox - ' - Me.boobComboBox.BackColor = System.Drawing.Color.White - Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.boobComboBox.ForeColor = System.Drawing.Color.Black - Me.boobComboBox.FormattingEnabled = True - Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) - Me.boobComboBox.Location = New System.Drawing.Point(73, 182) - Me.boobComboBox.Name = "boobComboBox" - Me.boobComboBox.Size = New System.Drawing.Size(89, 21) - Me.boobComboBox.TabIndex = 2 - ' - 'DomLevelDescLabel - ' - Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) - Me.DomLevelDescLabel.Name = "DomLevelDescLabel" - Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) - Me.DomLevelDescLabel.TabIndex = 42 - Me.DomLevelDescLabel.Text = "Tease" - Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'domlevelNumBox - ' - Me.domlevelNumBox.BackColor = System.Drawing.Color.White - Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black - Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) - Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.domlevelNumBox.Name = "domlevelNumBox" - Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) - Me.domlevelNumBox.TabIndex = 41 - Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label43 - ' - Me.Label43.BackColor = System.Drawing.Color.Transparent - Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label43.ForeColor = System.Drawing.Color.Black - Me.Label43.Location = New System.Drawing.Point(6, 183) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(63, 17) - Me.Label43.TabIndex = 142 - Me.Label43.Text = "Cup Size:" - Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label44 - ' - Me.Label44.BackColor = System.Drawing.Color.Transparent - Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label44.ForeColor = System.Drawing.Color.Black - Me.Label44.Location = New System.Drawing.Point(6, 158) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(63, 17) - Me.Label44.TabIndex = 141 - Me.Label44.Text = "Eye Color:" - Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label45 - ' - Me.Label45.BackColor = System.Drawing.Color.Transparent - Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label45.ForeColor = System.Drawing.Color.Black - Me.Label45.Location = New System.Drawing.Point(6, 108) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(78, 17) - Me.Label45.TabIndex = 140 - Me.Label45.Text = "Hair Color:" - Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label46 - ' - Me.Label46.BackColor = System.Drawing.Color.Transparent - Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label46.ForeColor = System.Drawing.Color.Black - Me.Label46.Location = New System.Drawing.Point(6, 15) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(46, 17) - Me.Label46.TabIndex = 139 - Me.Label46.Text = "Level:" - Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GBDomPersonality - ' - Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) - Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) - Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) - Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) - Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) - Me.GBDomPersonality.Controls.Add(Me.CFNMCheckBox) - Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black - Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) - Me.GBDomPersonality.Name = "GBDomPersonality" - Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) - Me.GBDomPersonality.TabIndex = 131 - Me.GBDomPersonality.TabStop = False - Me.GBDomPersonality.Text = "Personality" - ' - 'degradingCheckBox - ' - Me.degradingCheckBox.AutoSize = True - Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black - Me.degradingCheckBox.Location = New System.Drawing.Point(79, 43) - Me.degradingCheckBox.Name = "degradingCheckBox" - Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) - Me.degradingCheckBox.TabIndex = 40 - Me.degradingCheckBox.Text = "Degrading" - Me.degradingCheckBox.UseVisualStyleBackColor = True - ' - 'sadisticCheckBox - ' - Me.sadisticCheckBox.AutoSize = True - Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black - Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) - Me.sadisticCheckBox.Name = "sadisticCheckBox" - Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) - Me.sadisticCheckBox.TabIndex = 39 - Me.sadisticCheckBox.Text = "Sadistic" - Me.sadisticCheckBox.UseVisualStyleBackColor = True - ' - 'supremacistCheckBox - ' - Me.supremacistCheckBox.AutoSize = True - Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black - Me.supremacistCheckBox.Location = New System.Drawing.Point(155, 20) - Me.supremacistCheckBox.Name = "supremacistCheckBox" - Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) - Me.supremacistCheckBox.TabIndex = 38 - Me.supremacistCheckBox.Text = "Supremacist" - Me.supremacistCheckBox.UseVisualStyleBackColor = True - ' - 'vulgarCheckBox - ' - Me.vulgarCheckBox.AutoSize = True - Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black - Me.vulgarCheckBox.Location = New System.Drawing.Point(79, 20) - Me.vulgarCheckBox.Name = "vulgarCheckBox" - Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) - Me.vulgarCheckBox.TabIndex = 37 - Me.vulgarCheckBox.Text = "Vulgar" - Me.vulgarCheckBox.UseVisualStyleBackColor = True - ' - 'crazyCheckBox - ' - Me.crazyCheckBox.AutoSize = True - Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black - Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) - Me.crazyCheckBox.Name = "crazyCheckBox" - Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) - Me.crazyCheckBox.TabIndex = 36 - Me.crazyCheckBox.Text = "Crazy" - Me.crazyCheckBox.UseVisualStyleBackColor = True - ' - 'CFNMCheckBox - ' - Me.CFNMCheckBox.AutoSize = True - Me.CFNMCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CFNMCheckBox.ForeColor = System.Drawing.Color.Black - Me.CFNMCheckBox.Location = New System.Drawing.Point(155, 43) - Me.CFNMCheckBox.Name = "CFNMCheckBox" - Me.CFNMCheckBox.Size = New System.Drawing.Size(56, 17) - Me.CFNMCheckBox.TabIndex = 41 - Me.CFNMCheckBox.Text = "CFNM" - Me.CFNMCheckBox.UseVisualStyleBackColor = True - ' - 'GBDomOrgasms - ' - Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) - Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) - Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) - Me.GBDomOrgasms.Controls.Add(Me.Label16) - Me.GBDomOrgasms.Controls.Add(Me.Label12) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) - Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) - Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) - Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) - Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) - Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) - Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black - Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) - Me.GBDomOrgasms.Name = "GBDomOrgasms" - Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) - Me.GBDomOrgasms.TabIndex = 132 - Me.GBDomOrgasms.TabStop = False - Me.GBDomOrgasms.Text = "Orgasms" - ' - 'CBLockOrgasmChances - ' - Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances - Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black - Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) - Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" - Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) - Me.CBLockOrgasmChances.TabIndex = 146 - Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" - Me.CBLockOrgasmChances.UseVisualStyleBackColor = True - ' - 'orgasmlockrandombutton - ' - Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray - Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black - Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) - Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" - Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) - Me.orgasmlockrandombutton.TabIndex = 145 - Me.orgasmlockrandombutton.Text = "Lock Random" - Me.orgasmlockrandombutton.UseVisualStyleBackColor = False - ' - 'CBDomOrgasmEnds - ' - Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black - Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) - Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" - Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) - Me.CBDomOrgasmEnds.TabIndex = 144 - Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" - Me.CBDomOrgasmEnds.UseVisualStyleBackColor = True - ' - 'Label16 - ' - Me.Label16.BackColor = System.Drawing.Color.Transparent - Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label16.ForeColor = System.Drawing.Color.Black - Me.Label16.Location = New System.Drawing.Point(12, 47) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(87, 17) - Me.Label16.TabIndex = 142 - Me.Label16.Text = "Ruins Orgasms:" - Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label12 - ' - Me.Label12.BackColor = System.Drawing.Color.Transparent - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.ForeColor = System.Drawing.Color.Black - Me.Label12.Location = New System.Drawing.Point(12, 19) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(87, 17) - Me.Label12.TabIndex = 141 - Me.Label12.Text = "Allows Orgasms:" - Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'orgasmsperlockButton - ' - Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray - Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black - Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) - Me.orgasmsperlockButton.Name = "orgasmsperlockButton" - Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) - Me.orgasmsperlockButton.TabIndex = 97 - Me.orgasmsperlockButton.Text = "Lock Selected" - Me.orgasmsperlockButton.UseVisualStyleBackColor = False - ' - 'orgasmsperComboBox - ' - Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White - Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black - Me.orgasmsperComboBox.FormattingEnabled = True - Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) - Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) - Me.orgasmsperComboBox.Name = "orgasmsperComboBox" - Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) - Me.orgasmsperComboBox.TabIndex = 43 - ' - 'orgasmsperLabel - ' - Me.orgasmsperLabel.AutoSize = True - Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black - Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) - Me.orgasmsperLabel.Name = "orgasmsperLabel" - Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) - Me.orgasmsperLabel.TabIndex = 42 - Me.orgasmsperLabel.Text = "per" - Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'limitcheckbox - ' - Me.limitcheckbox.AutoSize = True - Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.limitcheckbox.ForeColor = System.Drawing.Color.Black - Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) - Me.limitcheckbox.Name = "limitcheckbox" - Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) - Me.limitcheckbox.TabIndex = 39 - Me.limitcheckbox.Text = "Limit" - Me.limitcheckbox.UseVisualStyleBackColor = True - ' - 'orgasmsPerNumBox - ' - Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White - Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black - Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) - Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" - Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) - Me.orgasmsPerNumBox.TabIndex = 41 - Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'CBDomDenialEnds - ' - Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black - Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) - Me.CBDomDenialEnds.Name = "CBDomDenialEnds" - Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) - Me.CBDomDenialEnds.TabIndex = 38 - Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" - Me.CBDomDenialEnds.UseVisualStyleBackColor = True - ' - 'alloworgasmComboBox - ' - Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White - Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black - Me.alloworgasmComboBox.FormattingEnabled = True - Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) - Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) - Me.alloworgasmComboBox.Name = "alloworgasmComboBox" - Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) - Me.alloworgasmComboBox.TabIndex = 1 - ' - 'ruinorgasmComboBox - ' - Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White - Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black - Me.ruinorgasmComboBox.FormattingEnabled = True - Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) - Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) - Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" - Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) - Me.ruinorgasmComboBox.TabIndex = 2 - ' - 'GBDomPetNames - ' - Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray - Me.GBDomPetNames.Controls.Add(Me.Label74) - Me.GBDomPetNames.Controls.Add(Me.petnameBox7) - Me.GBDomPetNames.Controls.Add(Me.petnameBox8) - Me.GBDomPetNames.Controls.Add(Me.petnameBox1) - Me.GBDomPetNames.Controls.Add(Me.Label15) - Me.GBDomPetNames.Controls.Add(Me.petnameBox4) - Me.GBDomPetNames.Controls.Add(Me.petnameBox6) - Me.GBDomPetNames.Controls.Add(Me.petnameBox2) - Me.GBDomPetNames.Controls.Add(Me.Label11) - Me.GBDomPetNames.Controls.Add(Me.petnameBox5) - Me.GBDomPetNames.Controls.Add(Me.petnameBox3) - Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black - Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) - Me.GBDomPetNames.Name = "GBDomPetNames" - Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) - Me.GBDomPetNames.TabIndex = 134 - Me.GBDomPetNames.TabStop = False - Me.GBDomPetNames.Text = "Pet Names" - ' - 'Label74 - ' - Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label74.ForeColor = System.Drawing.Color.Black - Me.Label74.Location = New System.Drawing.Point(8, 14) - Me.Label74.Name = "Label74" - Me.Label74.Size = New System.Drawing.Size(233, 13) - Me.Label74.TabIndex = 45 - Me.Label74.Text = "Great Mood" - Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'petnameBox7 - ' - Me.petnameBox7.BackColor = System.Drawing.Color.White - Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox7.ForeColor = System.Drawing.Color.Black - Me.petnameBox7.Location = New System.Drawing.Point(8, 154) - Me.petnameBox7.Name = "petnameBox7" - Me.petnameBox7.Size = New System.Drawing.Size(114, 23) - Me.petnameBox7.TabIndex = 13 - Me.petnameBox7.Text = "bitch boy" - Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox8 - ' - Me.petnameBox8.BackColor = System.Drawing.Color.White - Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox8.ForeColor = System.Drawing.Color.Black - Me.petnameBox8.Location = New System.Drawing.Point(128, 154) - Me.petnameBox8.Name = "petnameBox8" - Me.petnameBox8.Size = New System.Drawing.Size(113, 22) - Me.petnameBox8.TabIndex = 14 - Me.petnameBox8.Text = "slut" - Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox1 - ' - Me.petnameBox1.BackColor = System.Drawing.Color.White - Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox1.ForeColor = System.Drawing.Color.Black - Me.petnameBox1.Location = New System.Drawing.Point(8, 32) - Me.petnameBox1.Name = "petnameBox1" - Me.petnameBox1.Size = New System.Drawing.Size(114, 23) - Me.petnameBox1.TabIndex = 7 - Me.petnameBox1.Text = "stroker" - Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label15 - ' - Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.ForeColor = System.Drawing.Color.Black - Me.Label15.Location = New System.Drawing.Point(8, 136) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(233, 13) - Me.Label15.TabIndex = 44 - Me.Label15.Text = "Bad Mood" - Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'petnameBox4 - ' - Me.petnameBox4.BackColor = System.Drawing.Color.White - Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox4.ForeColor = System.Drawing.Color.Black - Me.petnameBox4.Location = New System.Drawing.Point(128, 81) - Me.petnameBox4.Name = "petnameBox4" - Me.petnameBox4.Size = New System.Drawing.Size(113, 23) - Me.petnameBox4.TabIndex = 10 - Me.petnameBox4.Text = "loser" - Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox6 - ' - Me.petnameBox6.BackColor = System.Drawing.Color.White - Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox6.ForeColor = System.Drawing.Color.Black - Me.petnameBox6.Location = New System.Drawing.Point(128, 107) - Me.petnameBox6.Name = "petnameBox6" - Me.petnameBox6.Size = New System.Drawing.Size(113, 23) - Me.petnameBox6.TabIndex = 12 - Me.petnameBox6.Text = "pet" - Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox2 - ' - Me.petnameBox2.BackColor = System.Drawing.Color.White - Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox2.ForeColor = System.Drawing.Color.Black - Me.petnameBox2.Location = New System.Drawing.Point(128, 32) - Me.petnameBox2.Name = "petnameBox2" - Me.petnameBox2.Size = New System.Drawing.Size(114, 23) - Me.petnameBox2.TabIndex = 8 - Me.petnameBox2.Text = "wanker" - Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label11 - ' - Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label11.ForeColor = System.Drawing.Color.Black - Me.Label11.Location = New System.Drawing.Point(5, 63) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(239, 13) - Me.Label11.TabIndex = 43 - Me.Label11.Text = "Neutral Mood" - Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'petnameBox5 - ' - Me.petnameBox5.BackColor = System.Drawing.Color.White - Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox5.ForeColor = System.Drawing.Color.Black - Me.petnameBox5.Location = New System.Drawing.Point(8, 107) - Me.petnameBox5.Name = "petnameBox5" - Me.petnameBox5.Size = New System.Drawing.Size(114, 23) - Me.petnameBox5.TabIndex = 11 - Me.petnameBox5.Text = "baby" - Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'petnameBox3 - ' - Me.petnameBox3.BackColor = System.Drawing.Color.White - Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.petnameBox3.ForeColor = System.Drawing.Color.Black - Me.petnameBox3.Location = New System.Drawing.Point(8, 81) - Me.petnameBox3.Name = "petnameBox3" - Me.petnameBox3.Size = New System.Drawing.Size(114, 23) - Me.petnameBox3.TabIndex = 9 - Me.petnameBox3.Text = "slave" - Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Label54 - ' - Me.Label54.BackColor = System.Drawing.Color.Transparent - Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label54.ForeColor = System.Drawing.Color.Black - Me.Label54.Location = New System.Drawing.Point(7, 6) - Me.Label54.Name = "Label54" - Me.Label54.Size = New System.Drawing.Size(692, 21) - Me.Label54.TabIndex = 49 - Me.Label54.Text = "Domme Settings" - Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage10 - ' - Me.TabPage10.BackColor = System.Drawing.Color.Silver - Me.TabPage10.Controls.Add(Me.Panel2) - Me.TabPage10.Location = New System.Drawing.Point(4, 22) - Me.TabPage10.Name = "TabPage10" - Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage10.Size = New System.Drawing.Size(720, 448) - Me.TabPage10.TabIndex = 9 - Me.TabPage10.Text = "Sub" - ' - 'Panel2 - ' - Me.Panel2.BackColor = System.Drawing.Color.LightGray - Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel2.Controls.Add(Me.GroupBox22) - Me.Panel2.Controls.Add(Me.GroupBox45) - Me.Panel2.Controls.Add(Me.GroupBox35) - Me.Panel2.Controls.Add(Me.GroupBox13) - Me.Panel2.Controls.Add(Me.GroupBox7) - Me.Panel2.Controls.Add(Me.PictureBox12) - Me.Panel2.Controls.Add(Me.GroupBox32) - Me.Panel2.Controls.Add(Me.Label70) - Me.Panel2.Location = New System.Drawing.Point(6, 6) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(708, 437) - Me.Panel2.TabIndex = 94 - ' - 'GroupBox22 - ' - Me.GroupBox22.BackColor = System.Drawing.Color.LightGray - Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) - Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) - Me.GroupBox22.Controls.Add(Me.Label75) - Me.GroupBox22.Controls.Add(Me.Label77) - Me.GroupBox22.ForeColor = System.Drawing.Color.Black - Me.GroupBox22.Location = New System.Drawing.Point(440, 388) - Me.GroupBox22.Name = "GroupBox22" - Me.GroupBox22.Size = New System.Drawing.Size(259, 39) - Me.GroupBox22.TabIndex = 158 - Me.GroupBox22.TabStop = False - Me.GroupBox22.Text = "Writing Tasks" - ' - 'NBWritingTaskMax - ' - Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) - Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) - Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMax.Name = "NBWritingTaskMax" - Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) - Me.NBWritingTaskMax.TabIndex = 168 - Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) - ' - 'NBWritingTaskMin - ' - Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) - Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) - Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBWritingTaskMin.Name = "NBWritingTaskMin" - Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) - Me.NBWritingTaskMin.TabIndex = 167 - Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) - ' - 'Label75 - ' - Me.Label75.BackColor = System.Drawing.Color.Transparent - Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label75.ForeColor = System.Drawing.Color.Black - Me.Label75.Location = New System.Drawing.Point(184, 13) - Me.Label75.Name = "Label75" - Me.Label75.Size = New System.Drawing.Size(10, 17) - Me.Label75.TabIndex = 166 - Me.Label75.Text = "-" - Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label77 - ' - Me.Label77.BackColor = System.Drawing.Color.Transparent - Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label77.ForeColor = System.Drawing.Color.Black - Me.Label77.Location = New System.Drawing.Point(12, 15) - Me.Label77.Name = "Label77" - Me.Label77.Size = New System.Drawing.Size(126, 17) - Me.Label77.TabIndex = 165 - Me.Label77.Tag = "" - Me.Label77.Text = "Line Amount Range:" - Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox45 - ' - Me.GroupBox45.BackColor = System.Drawing.Color.LightGray - Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) - Me.GroupBox45.Controls.Add(Me.CBCBTBalls) - Me.GroupBox45.Controls.Add(Me.CBCBTCock) - Me.GroupBox45.Controls.Add(Me.CBTSlider) - Me.GroupBox45.ForeColor = System.Drawing.Color.Black - Me.GroupBox45.Location = New System.Drawing.Point(440, 294) - Me.GroupBox45.Name = "GroupBox45" - Me.GroupBox45.Size = New System.Drawing.Size(259, 50) - Me.GroupBox45.TabIndex = 155 - Me.GroupBox45.TabStop = False - Me.GroupBox45.Text = "CBT" - ' - 'LBLCBTSlider - ' - Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent - Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black - Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) - Me.LBLCBTSlider.Name = "LBLCBTSlider" - Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) - Me.LBLCBTSlider.TabIndex = 168 - Me.LBLCBTSlider.Text = "CBT Level: 3" - Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBCBTBalls - ' - Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) - Me.CBCBTBalls.Name = "CBCBTBalls" - Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) - Me.CBCBTBalls.TabIndex = 1 - Me.CBCBTBalls.Text = "Ball Torture" - Me.CBCBTBalls.UseVisualStyleBackColor = True - ' - 'CBCBTCock - ' - Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) - Me.CBCBTCock.Name = "CBCBTCock" - Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) - Me.CBCBTCock.TabIndex = 0 - Me.CBCBTCock.Text = "Cock Torture" - Me.CBCBTCock.UseVisualStyleBackColor = True - ' - 'CBTSlider - ' - Me.CBTSlider.AutoSize = False - Me.CBTSlider.LargeChange = 1 - Me.CBTSlider.Location = New System.Drawing.Point(134, 13) - Me.CBTSlider.Maximum = 5 - Me.CBTSlider.Minimum = 1 - Me.CBTSlider.Name = "CBTSlider" - Me.CBTSlider.Size = New System.Drawing.Size(110, 25) - Me.CBTSlider.TabIndex = 166 - Me.CBTSlider.Value = 3 - ' - 'GroupBox35 - ' - Me.GroupBox35.BackColor = System.Drawing.Color.LightGray - Me.GroupBox35.Controls.Add(Me.GroupBoxSorry) - Me.GroupBox35.Controls.Add(Me.GroupBox39) - Me.GroupBox35.Controls.Add(Me.GroupBox38) - Me.GroupBox35.Controls.Add(Me.GroupBox37) - Me.GroupBox35.Controls.Add(Me.GroupBox36) - Me.GroupBox35.ForeColor = System.Drawing.Color.Black - Me.GroupBox35.Location = New System.Drawing.Point(440, 6) - Me.GroupBox35.Name = "GroupBox35" - Me.GroupBox35.Size = New System.Drawing.Size(259, 287) - Me.GroupBox35.TabIndex = 154 - Me.GroupBox35.TabStop = False - Me.GroupBox35.Text = "Key Phrases" - ' - 'GroupBoxSorry - ' - Me.GroupBoxSorry.Controls.Add(Me.TBSorry) - Me.GroupBoxSorry.Location = New System.Drawing.Point(6, 145) - Me.GroupBoxSorry.Name = "GroupBoxSorry" - Me.GroupBoxSorry.Size = New System.Drawing.Size(247, 46) - Me.GroupBoxSorry.TabIndex = 3 - Me.GroupBoxSorry.TabStop = False - Me.GroupBoxSorry.Tag = "" - Me.GroupBoxSorry.Text = "Sorry" - ' - 'TBSorry - ' - Me.TBSorry.Location = New System.Drawing.Point(9, 16) - Me.TBSorry.Name = "TBSorry" - Me.TBSorry.Size = New System.Drawing.Size(229, 20) - Me.TBSorry.TabIndex = 0 - Me.TBSorry.Text = "sorry, apologize, excuse" - ' - 'GroupBox39 - ' - Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) - Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) - Me.GroupBox39.Controls.Add(Me.TBHonorific) - Me.GroupBox39.Location = New System.Drawing.Point(6, 191) - Me.GroupBox39.Name = "GroupBox39" - Me.GroupBox39.Size = New System.Drawing.Size(247, 89) - Me.GroupBox39.TabIndex = 3 - Me.GroupBox39.TabStop = False - Me.GroupBox39.Tag = "" - Me.GroupBox39.Text = "Honorific" - ' - 'CBHonorificInclude - ' - Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black - Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 44) - Me.CBHonorificInclude.Name = "CBHonorificInclude" - Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) - Me.CBHonorificInclude.TabIndex = 40 - Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" - Me.CBHonorificInclude.UseVisualStyleBackColor = True - ' - 'CBHonorificCapitalized - ' - Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black - Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 66) - Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" - Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) - Me.CBHonorificCapitalized.TabIndex = 39 - Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" - Me.CBHonorificCapitalized.UseVisualStyleBackColor = True - ' - 'TBHonorific - ' - Me.TBHonorific.Location = New System.Drawing.Point(9, 16) - Me.TBHonorific.Name = "TBHonorific" - Me.TBHonorific.Size = New System.Drawing.Size(229, 20) - Me.TBHonorific.TabIndex = 0 - Me.TBHonorific.Text = "Mistress" - ' - 'GroupBox38 - ' - Me.GroupBox38.Controls.Add(Me.TBNo) - Me.GroupBox38.Location = New System.Drawing.Point(6, 100) - Me.GroupBox38.Name = "GroupBox38" - Me.GroupBox38.Size = New System.Drawing.Size(247, 46) - Me.GroupBox38.TabIndex = 2 - Me.GroupBox38.TabStop = False - Me.GroupBox38.Tag = "" - Me.GroupBox38.Text = "No" - ' - 'TBNo - ' - Me.TBNo.Location = New System.Drawing.Point(9, 16) - Me.TBNo.Name = "TBNo" - Me.TBNo.Size = New System.Drawing.Size(229, 20) - Me.TBNo.TabIndex = 0 - Me.TBNo.Text = "no, nah, nope" - ' - 'GroupBox37 - ' - Me.GroupBox37.Controls.Add(Me.TBYes) - Me.GroupBox37.Location = New System.Drawing.Point(6, 57) - Me.GroupBox37.Name = "GroupBox37" - Me.GroupBox37.Size = New System.Drawing.Size(247, 46) - Me.GroupBox37.TabIndex = 1 - Me.GroupBox37.TabStop = False - Me.GroupBox37.Tag = "" - Me.GroupBox37.Text = "Yes" - ' - 'TBYes - ' - Me.TBYes.Location = New System.Drawing.Point(9, 16) - Me.TBYes.Name = "TBYes" - Me.TBYes.Size = New System.Drawing.Size(229, 20) - Me.TBYes.TabIndex = 0 - Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" - ' - 'GroupBox36 - ' - Me.GroupBox36.Controls.Add(Me.TBGreeting) - Me.GroupBox36.Location = New System.Drawing.Point(6, 17) - Me.GroupBox36.Name = "GroupBox36" - Me.GroupBox36.Size = New System.Drawing.Size(247, 46) - Me.GroupBox36.TabIndex = 0 - Me.GroupBox36.TabStop = False - Me.GroupBox36.Tag = "" - Me.GroupBox36.Text = "Greeting" - ' - 'TBGreeting - ' - Me.TBGreeting.Location = New System.Drawing.Point(9, 16) - Me.TBGreeting.Name = "TBGreeting" - Me.TBGreeting.Size = New System.Drawing.Size(229, 20) - Me.TBGreeting.TabIndex = 0 - Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" - ' - 'GroupBox13 - ' - Me.GroupBox13.BackColor = System.Drawing.Color.LightGray - Me.GroupBox13.Controls.Add(Me.Label34) - Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) - Me.GroupBox13.ForeColor = System.Drawing.Color.Black - Me.GroupBox13.Location = New System.Drawing.Point(440, 346) - Me.GroupBox13.Name = "GroupBox13" - Me.GroupBox13.Size = New System.Drawing.Size(259, 39) - Me.GroupBox13.TabIndex = 157 - Me.GroupBox13.TabStop = False - Me.GroupBox13.Text = "Routine" - ' - 'Label34 - ' - Me.Label34.BackColor = System.Drawing.Color.Transparent - Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label34.ForeColor = System.Drawing.Color.Black - Me.Label34.Location = New System.Drawing.Point(12, 15) - Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(116, 17) - Me.Label34.TabIndex = 140 - Me.Label34.Text = "Daily Wake Up Time:" - Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TimeBoxWakeUp - ' - Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time - Me.TimeBoxWakeUp.Location = New System.Drawing.Point(134, 12) - Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" - Me.TimeBoxWakeUp.ShowUpDown = True - Me.TimeBoxWakeUp.Size = New System.Drawing.Size(110, 20) - Me.TimeBoxWakeUp.TabIndex = 0 - ' - 'GroupBox7 - ' - Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) - Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) - Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) - Me.GroupBox7.Controls.Add(Me.Label133) - Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) - Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) - Me.GroupBox7.Controls.Add(Me.Label78) - Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) - Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) - Me.GroupBox7.Controls.Add(Me.Label129) - Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) - Me.GroupBox7.Controls.Add(Me.LBLMaxHold) - Me.GroupBox7.Controls.Add(Me.Label79) - Me.GroupBox7.Controls.Add(Me.NBLongEdge) - Me.GroupBox7.Controls.Add(Me.LBLMinHold) - Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) - Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) - Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) - Me.GroupBox7.Controls.Add(Me.Label55) - Me.GroupBox7.Controls.Add(Me.Label81) - Me.GroupBox7.Controls.Add(Me.Label5) - Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) - Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) - Me.GroupBox7.Controls.Add(Me.Label131) - Me.GroupBox7.Location = New System.Drawing.Point(7, 201) - Me.GroupBox7.Name = "GroupBox7" - Me.GroupBox7.Size = New System.Drawing.Size(226, 226) - Me.GroupBox7.TabIndex = 152 - Me.GroupBox7.TabStop = False - Me.GroupBox7.Text = "Edging" - ' - 'LBLMaxExtremeHold - ' - Me.LBLMaxExtremeHold.AutoSize = True - Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) - Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" - Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMaxExtremeHold.TabIndex = 192 - Me.LBLMaxExtremeHold.Text = "minutes" - Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLMinExtremeHold - ' - Me.LBLMinExtremeHold.AutoSize = True - Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) - Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" - Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMinExtremeHold.TabIndex = 190 - Me.LBLMinExtremeHold.Text = "minutes" - Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBExtremeHoldMin - ' - Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) - Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" - Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) - Me.NBExtremeHoldMin.TabIndex = 189 - Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label133 - ' - Me.Label133.BackColor = System.Drawing.Color.Transparent - Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label133.ForeColor = System.Drawing.Color.Black - Me.Label133.Location = New System.Drawing.Point(6, 105) - Me.Label133.Name = "Label133" - Me.Label133.Size = New System.Drawing.Size(119, 17) - Me.Label133.TabIndex = 187 - Me.Label133.Text = "Min Extreme Hold Time:" - Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBExtremeHoldMax - ' - Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) - Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" - Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) - Me.NBExtremeHoldMax.TabIndex = 188 - Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'LBLMaxLongHold - ' - Me.LBLMaxLongHold.AutoSize = True - Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) - Me.LBLMaxLongHold.Name = "LBLMaxLongHold" - Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMaxLongHold.TabIndex = 186 - Me.LBLMaxLongHold.Text = "minutes" - Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label78 - ' - Me.Label78.BackColor = System.Drawing.Color.Transparent - Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label78.ForeColor = System.Drawing.Color.Black - Me.Label78.Location = New System.Drawing.Point(6, 83) - Me.Label78.Name = "Label78" - Me.Label78.Size = New System.Drawing.Size(113, 17) - Me.Label78.TabIndex = 185 - Me.Label78.Text = "Max Long Hold Time:" - Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLMinLongHold - ' - Me.LBLMinLongHold.AutoSize = True - Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) - Me.LBLMinLongHold.Name = "LBLMinLongHold" - Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMinLongHold.TabIndex = 184 - Me.LBLMinLongHold.Text = "minutes" - Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBLongHoldMin - ' - Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) - Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBLongHoldMin.Name = "NBLongHoldMin" - Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) - Me.NBLongHoldMin.TabIndex = 183 - Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label129 - ' - Me.Label129.BackColor = System.Drawing.Color.Transparent - Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label129.ForeColor = System.Drawing.Color.Black - Me.Label129.Location = New System.Drawing.Point(6, 61) - Me.Label129.Name = "Label129" - Me.Label129.Size = New System.Drawing.Size(113, 17) - Me.Label129.TabIndex = 181 - Me.Label129.Text = "Min Long Hold Time:" - Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBLongHoldMax - ' - Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) - Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBLongHoldMax.Name = "NBLongHoldMax" - Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) - Me.NBLongHoldMax.TabIndex = 182 - Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'LBLMaxHold - ' - Me.LBLMaxHold.AutoSize = True - Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) - Me.LBLMaxHold.Name = "LBLMaxHold" - Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) - Me.LBLMaxHold.TabIndex = 180 - Me.LBLMaxHold.Text = "minutes" - Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label79 - ' - Me.Label79.BackColor = System.Drawing.Color.Transparent - Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label79.ForeColor = System.Drawing.Color.Black - Me.Label79.Location = New System.Drawing.Point(6, 39) - Me.Label79.Name = "Label79" - Me.Label79.Size = New System.Drawing.Size(113, 17) - Me.Label79.TabIndex = 178 - Me.Label79.Text = "Max Hold Edge Time:" - Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBLongEdge - ' - Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) - Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) - Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBLongEdge.Name = "NBLongEdge" - Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) - Me.NBLongEdge.TabIndex = 152 - Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) - ' - 'LBLMinHold - ' - Me.LBLMinHold.AutoSize = True - Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) - Me.LBLMinHold.Name = "LBLMinHold" - Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) - Me.LBLMinHold.TabIndex = 177 - Me.LBLMinHold.Text = "seconds" - Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBEdgeUseAvg - ' - Me.CBEdgeUseAvg.AutoSize = True - Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) - Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" - Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) - Me.CBEdgeUseAvg.TabIndex = 174 - Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" - Me.CBEdgeUseAvg.UseVisualStyleBackColor = True - ' - 'CBLongEdgeInterrupts - ' - Me.CBLongEdgeInterrupts.Checked = True - Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black - Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) - Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" - Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) - Me.CBLongEdgeInterrupts.TabIndex = 169 - Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" - Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = True - ' - 'NBHoldTheEdgeMin - ' - Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) - Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" - Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) - Me.NBHoldTheEdgeMin.TabIndex = 176 - Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label55 - ' - Me.Label55.BackColor = System.Drawing.Color.Transparent - Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label55.ForeColor = System.Drawing.Color.Black - Me.Label55.Location = New System.Drawing.Point(7, 149) - Me.Label55.Name = "Label55" - Me.Label55.Size = New System.Drawing.Size(116, 17) - Me.Label55.TabIndex = 170 - Me.Label55.Text = "Long Edge Threshold:" - Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label81 - ' - Me.Label81.BackColor = System.Drawing.Color.Transparent - Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label81.ForeColor = System.Drawing.Color.Black - Me.Label81.Location = New System.Drawing.Point(6, 17) - Me.Label81.Name = "Label81" - Me.Label81.Size = New System.Drawing.Size(113, 17) - Me.Label81.TabIndex = 153 - Me.Label81.Text = "Min Hold Edge Time:" - Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(174, 151) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(43, 13) - Me.Label5.TabIndex = 175 - Me.Label5.Text = "minutes" - Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'NBHoldTheEdgeMax - ' - Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) - Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) - Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" - Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) - Me.NBHoldTheEdgeMax.TabIndex = 155 - Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'CBLongEdgeTaunts - ' - Me.CBLongEdgeTaunts.Checked = True - Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black - Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) - Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" - Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) - Me.CBLongEdgeTaunts.TabIndex = 172 - Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" - Me.CBLongEdgeTaunts.UseVisualStyleBackColor = True - ' - 'Label131 - ' - Me.Label131.BackColor = System.Drawing.Color.Transparent - Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label131.ForeColor = System.Drawing.Color.Black - Me.Label131.Location = New System.Drawing.Point(6, 127) - Me.Label131.Name = "Label131" - Me.Label131.Size = New System.Drawing.Size(128, 17) - Me.Label131.TabIndex = 191 - Me.Label131.Text = "Max Extreme Hold Time:" - Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'PictureBox12 - ' - Me.PictureBox12.BackColor = System.Drawing.Color.LightGray - Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox12.Location = New System.Drawing.Point(9, 6) - Me.PictureBox12.Name = "PictureBox12" - Me.PictureBox12.Size = New System.Drawing.Size(160, 19) - Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox12.TabIndex = 149 - Me.PictureBox12.TabStop = False - ' - 'GroupBox32 - ' - Me.GroupBox32.BackColor = System.Drawing.Color.LightGray - Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) - Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) - Me.GroupBox32.Controls.Add(Me.CBOwnChastity) - Me.GroupBox32.Controls.Add(Me.CBChastityPA) - Me.GroupBox32.Controls.Add(Me.CBHimHer) - Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) - Me.GroupBox32.Controls.Add(Me.CBCockToClit) - Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) - Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) - Me.GroupBox32.Controls.Add(Me.CBSubPierced) - Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) - Me.GroupBox32.Controls.Add(Me.TBSubHairColor) - Me.GroupBox32.Controls.Add(Me.Label63) - Me.GroupBox32.Controls.Add(Me.LBLSubInches) - Me.GroupBox32.Controls.Add(Me.subAgeNumBox) - Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) - Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) - Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) - Me.GroupBox32.Controls.Add(Me.LBLSubEye) - Me.GroupBox32.Controls.Add(Me.LBLSubHair) - Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) - Me.GroupBox32.Controls.Add(Me.LBLSubAge) - Me.GroupBox32.ForeColor = System.Drawing.Color.Black - Me.GroupBox32.Location = New System.Drawing.Point(7, 30) - Me.GroupBox32.Name = "GroupBox32" - Me.GroupBox32.Size = New System.Drawing.Size(427, 165) - Me.GroupBox32.TabIndex = 62 - Me.GroupBox32.TabStop = False - Me.GroupBox32.Text = "Stats && Information" - ' - 'LBLSubBdayFormat - ' - Me.LBLSubBdayFormat.AutoSize = True - Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) - Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" - Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) - Me.LBLSubBdayFormat.TabIndex = 161 - Me.LBLSubBdayFormat.Text = "mm/dd" - Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBChastitySpikes - ' - Me.CBChastitySpikes.AutoSize = True - Me.CBChastitySpikes.Enabled = False - Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) - Me.CBChastitySpikes.Name = "CBChastitySpikes" - Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) - Me.CBChastitySpikes.TabIndex = 4 - Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" - Me.CBChastitySpikes.UseVisualStyleBackColor = True - ' - 'CBOwnChastity - ' - Me.CBOwnChastity.AutoSize = True - Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) - Me.CBOwnChastity.Name = "CBOwnChastity" - Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) - Me.CBOwnChastity.TabIndex = 5 - Me.CBOwnChastity.Text = "Own Device a Chastity Device" - Me.CBOwnChastity.UseVisualStyleBackColor = True - ' - 'CBChastityPA - ' - Me.CBChastityPA.AutoSize = True - Me.CBChastityPA.Enabled = False - Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) - Me.CBChastityPA.Name = "CBChastityPA" - Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) - Me.CBChastityPA.TabIndex = 3 - Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" - Me.CBChastityPA.UseVisualStyleBackColor = True - ' - 'CBHimHer - ' - Me.CBHimHer.AutoSize = True - Me.CBHimHer.Location = New System.Drawing.Point(191, 65) - Me.CBHimHer.Name = "CBHimHer" - Me.CBHimHer.Size = New System.Drawing.Size(219, 17) - Me.CBHimHer.TabIndex = 3 - Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" - Me.CBHimHer.UseVisualStyleBackColor = True - ' - 'CBBallsToPussy - ' - Me.CBBallsToPussy.AutoSize = True - Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) - Me.CBBallsToPussy.Name = "CBBallsToPussy" - Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) - Me.CBBallsToPussy.TabIndex = 160 - Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" - Me.CBBallsToPussy.UseVisualStyleBackColor = True - ' - 'CBCockToClit - ' - Me.CBCockToClit.AutoSize = True - Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) - Me.CBCockToClit.Name = "CBCockToClit" - Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) - Me.CBCockToClit.TabIndex = 159 - Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" - Me.CBCockToClit.UseVisualStyleBackColor = True - ' - 'NBBirthdayDay - ' - Me.NBBirthdayDay.BackColor = System.Drawing.Color.White - Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black - Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) - Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) - Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBBirthdayDay.Name = "NBBirthdayDay" - Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) - Me.NBBirthdayDay.TabIndex = 144 - Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'CBSubCircumcised - ' - Me.CBSubCircumcised.AutoSize = True - Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black - Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) - Me.CBSubCircumcised.Name = "CBSubCircumcised" - Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) - Me.CBSubCircumcised.TabIndex = 157 - Me.CBSubCircumcised.Text = "Circumcised" - Me.CBSubCircumcised.UseVisualStyleBackColor = True - ' - 'CBSubPierced - ' - Me.CBSubPierced.AutoSize = True - Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBSubPierced.ForeColor = System.Drawing.Color.Black - Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) - Me.CBSubPierced.Name = "CBSubPierced" - Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) - Me.CBSubPierced.TabIndex = 156 - Me.CBSubPierced.Text = "Pierced" - Me.CBSubPierced.UseVisualStyleBackColor = True - ' - 'TBSubEyeColor - ' - Me.TBSubEyeColor.BackColor = System.Drawing.Color.White - Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black - Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) - Me.TBSubEyeColor.Name = "TBSubEyeColor" - Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) - Me.TBSubEyeColor.TabIndex = 155 - Me.TBSubEyeColor.Text = "brown" - ' - 'TBSubHairColor - ' - Me.TBSubHairColor.BackColor = System.Drawing.Color.White - Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black - Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) - Me.TBSubHairColor.Name = "TBSubHairColor" - Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) - Me.TBSubHairColor.TabIndex = 154 - Me.TBSubHairColor.Text = "brown" - ' - 'Label63 - ' - Me.Label63.AutoSize = True - Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label63.ForeColor = System.Drawing.Color.Black - Me.Label63.Location = New System.Drawing.Point(113, 41) - Me.Label63.Name = "Label63" - Me.Label63.Size = New System.Drawing.Size(12, 13) - Me.Label63.TabIndex = 143 - Me.Label63.Text = "/" - Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLSubInches - ' - Me.LBLSubInches.AutoSize = True - Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) - Me.LBLSubInches.Name = "LBLSubInches" - Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) - Me.LBLSubInches.TabIndex = 124 - Me.LBLSubInches.Text = "inches" - Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'subAgeNumBox - ' - Me.subAgeNumBox.BackColor = System.Drawing.Color.White - Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black - Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) - Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) - Me.subAgeNumBox.Name = "subAgeNumBox" - Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) - Me.subAgeNumBox.TabIndex = 27 - Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) - ' - 'NBBirthdayMonth - ' - Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White - Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black - Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) - Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) - Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBBirthdayMonth.Name = "NBBirthdayMonth" - Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) - Me.NBBirthdayMonth.TabIndex = 41 - Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'LBLSubCockSize - ' - Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent - Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black - Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) - Me.LBLSubCockSize.Name = "LBLSubCockSize" - Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) - Me.LBLSubCockSize.TabIndex = 142 - Me.LBLSubCockSize.Text = "Cock Size:" - Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CockSizeNumBox - ' - Me.CockSizeNumBox.BackColor = System.Drawing.Color.White - Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black - Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) - Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) - Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.CockSizeNumBox.Name = "CockSizeNumBox" - Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) - Me.CockSizeNumBox.TabIndex = 123 - Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) - ' - 'LBLSubEye - ' - Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent - Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubEye.ForeColor = System.Drawing.Color.Black - Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) - Me.LBLSubEye.Name = "LBLSubEye" - Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) - Me.LBLSubEye.TabIndex = 141 - Me.LBLSubEye.Text = "Eye Color" - Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLSubHair - ' - Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent - Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubHair.ForeColor = System.Drawing.Color.Black - Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) - Me.LBLSubHair.Name = "LBLSubHair" - Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) - Me.LBLSubHair.TabIndex = 140 - Me.LBLSubHair.Text = "Hair Color" - Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLSubBirthday - ' - Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent - Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black - Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) - Me.LBLSubBirthday.Name = "LBLSubBirthday" - Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) - Me.LBLSubBirthday.TabIndex = 139 - Me.LBLSubBirthday.Text = "Birthday:" - Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLSubAge - ' - Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent - Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubAge.ForeColor = System.Drawing.Color.Black - Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) - Me.LBLSubAge.Name = "LBLSubAge" - Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) - Me.LBLSubAge.TabIndex = 138 - Me.LBLSubAge.Text = "Age:" - Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label70 - ' - Me.Label70.BackColor = System.Drawing.Color.Transparent - Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label70.ForeColor = System.Drawing.Color.Black - Me.Label70.Location = New System.Drawing.Point(7, 6) - Me.Label70.Name = "Label70" - Me.Label70.Size = New System.Drawing.Size(692, 21) - Me.Label70.TabIndex = 49 - Me.Label70.Text = "Sub Settings" - Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage16 - ' - Me.TabPage16.BackColor = System.Drawing.Color.Silver - Me.TabPage16.Controls.Add(Me.Panel9) - Me.TabPage16.Location = New System.Drawing.Point(4, 22) - Me.TabPage16.Name = "TabPage16" - Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage16.Size = New System.Drawing.Size(720, 448) - Me.TabPage16.TabIndex = 14 - Me.TabPage16.Text = "Scripts" - ' - 'Panel9 - ' - Me.Panel9.BackColor = System.Drawing.Color.LightGray - Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel9.Controls.Add(Me.BTNScriptAvailable) - Me.Panel9.Controls.Add(Me.BTNScriptNone) - Me.Panel9.Controls.Add(Me.BTNScriptAll) - Me.Panel9.Controls.Add(Me.BTNScriptOpen) - Me.Panel9.Controls.Add(Me.LBLScriptReq) - Me.Panel9.Controls.Add(Me.GroupBox31) - Me.Panel9.Controls.Add(Me.TCScripts) - Me.Panel9.Controls.Add(Me.GroupBox42) - Me.Panel9.Controls.Add(Me.PictureBox1) - Me.Panel9.Controls.Add(Me.GroupBox43) - Me.Panel9.Controls.Add(Me.Label104) - Me.Panel9.Location = New System.Drawing.Point(6, 6) - Me.Panel9.Name = "Panel9" - Me.Panel9.Size = New System.Drawing.Size(708, 437) - Me.Panel9.TabIndex = 94 - ' - 'BTNScriptAvailable - ' - Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) - Me.BTNScriptAvailable.Name = "BTNScriptAvailable" - Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) - Me.BTNScriptAvailable.TabIndex = 160 - Me.BTNScriptAvailable.Text = "Select Available" - Me.BTNScriptAvailable.UseVisualStyleBackColor = True - ' - 'BTNScriptNone - ' - Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) - Me.BTNScriptNone.Name = "BTNScriptNone" - Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) - Me.BTNScriptNone.TabIndex = 159 - Me.BTNScriptNone.Text = "Select None" - Me.BTNScriptNone.UseVisualStyleBackColor = True - ' - 'BTNScriptAll - ' - Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) - Me.BTNScriptAll.Name = "BTNScriptAll" - Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) - Me.BTNScriptAll.TabIndex = 158 - Me.BTNScriptAll.Text = "Select All" - Me.BTNScriptAll.UseVisualStyleBackColor = True - ' - 'BTNScriptOpen - ' - Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) - Me.BTNScriptOpen.Name = "BTNScriptOpen" - Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) - Me.BTNScriptOpen.TabIndex = 157 - Me.BTNScriptOpen.Text = "Open Script" - Me.BTNScriptOpen.UseVisualStyleBackColor = True - ' - 'LBLScriptReq - ' - Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray - Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green - Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) - Me.LBLScriptReq.Name = "LBLScriptReq" - Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) - Me.LBLScriptReq.TabIndex = 156 - Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox31 - ' - Me.GroupBox31.Controls.Add(Me.RTBScriptReq) - Me.GroupBox31.Location = New System.Drawing.Point(314, 169) - Me.GroupBox31.Name = "GroupBox31" - Me.GroupBox31.Size = New System.Drawing.Size(385, 110) - Me.GroupBox31.TabIndex = 155 - Me.GroupBox31.TabStop = False - Me.GroupBox31.Text = "Requirements" - ' - 'RTBScriptReq - ' - Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) - Me.RTBScriptReq.Name = "RTBScriptReq" - Me.RTBScriptReq.ReadOnly = True - Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) - Me.RTBScriptReq.TabIndex = 0 - Me.RTBScriptReq.Text = "" - ' - 'TCScripts - ' - Me.TCScripts.Controls.Add(Me.TabPage21) - Me.TCScripts.Controls.Add(Me.TabPage17) - Me.TCScripts.Controls.Add(Me.TabPage18) - Me.TCScripts.Controls.Add(Me.TabPage19) - Me.TCScripts.Location = New System.Drawing.Point(9, 31) - Me.TCScripts.Name = "TCScripts" - Me.TCScripts.SelectedIndex = 0 - Me.TCScripts.Size = New System.Drawing.Size(299, 248) - Me.TCScripts.TabIndex = 154 - ' - 'TabPage21 - ' - Me.TabPage21.BackColor = System.Drawing.Color.Silver - Me.TabPage21.Controls.Add(Me.CLBStartList) - Me.TabPage21.Location = New System.Drawing.Point(4, 22) - Me.TabPage21.Name = "TabPage21" - Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage21.Size = New System.Drawing.Size(291, 222) - Me.TabPage21.TabIndex = 4 - Me.TabPage21.Text = "Start" - ' - 'CLBStartList - ' - Me.CLBStartList.FormattingEnabled = True - Me.CLBStartList.Location = New System.Drawing.Point(4, 4) - Me.CLBStartList.Name = "CLBStartList" - Me.CLBStartList.Size = New System.Drawing.Size(283, 214) - Me.CLBStartList.Sorted = True - Me.CLBStartList.TabIndex = 155 - ' - 'TabPage17 - ' - Me.TabPage17.BackColor = System.Drawing.Color.Silver - Me.TabPage17.Controls.Add(Me.CLBModuleList) - Me.TabPage17.Location = New System.Drawing.Point(4, 22) - Me.TabPage17.Name = "TabPage17" - Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage17.Size = New System.Drawing.Size(291, 222) - Me.TabPage17.TabIndex = 5 - Me.TabPage17.Text = "Modules" - ' - 'CLBModuleList - ' - Me.CLBModuleList.FormattingEnabled = True - Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) - Me.CLBModuleList.Name = "CLBModuleList" - Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) - Me.CLBModuleList.Sorted = True - Me.CLBModuleList.TabIndex = 156 - ' - 'TabPage18 - ' - Me.TabPage18.BackColor = System.Drawing.Color.Silver - Me.TabPage18.Controls.Add(Me.CLBLinkList) - Me.TabPage18.Location = New System.Drawing.Point(4, 22) - Me.TabPage18.Name = "TabPage18" - Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage18.Size = New System.Drawing.Size(291, 222) - Me.TabPage18.TabIndex = 6 - Me.TabPage18.Text = "Link" - ' - 'CLBLinkList - ' - Me.CLBLinkList.FormattingEnabled = True - Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) - Me.CLBLinkList.Name = "CLBLinkList" - Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) - Me.CLBLinkList.Sorted = True - Me.CLBLinkList.TabIndex = 156 - ' - 'TabPage19 - ' - Me.TabPage19.BackColor = System.Drawing.Color.Silver - Me.TabPage19.Controls.Add(Me.CLBEndList) - Me.TabPage19.Location = New System.Drawing.Point(4, 22) - Me.TabPage19.Name = "TabPage19" - Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage19.Size = New System.Drawing.Size(291, 222) - Me.TabPage19.TabIndex = 7 - Me.TabPage19.Text = "End" - ' - 'CLBEndList - ' - Me.CLBEndList.FormattingEnabled = True - Me.CLBEndList.Location = New System.Drawing.Point(4, 4) - Me.CLBEndList.Name = "CLBEndList" - Me.CLBEndList.Size = New System.Drawing.Size(283, 214) - Me.CLBEndList.Sorted = True - Me.CLBEndList.TabIndex = 156 - ' - 'GroupBox42 - ' - Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) - Me.GroupBox42.Location = New System.Drawing.Point(314, 53) - Me.GroupBox42.Name = "GroupBox42" - Me.GroupBox42.Size = New System.Drawing.Size(385, 110) - Me.GroupBox42.TabIndex = 153 - Me.GroupBox42.TabStop = False - Me.GroupBox42.Text = "Description" - ' - 'RTBScriptDesc - ' - Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) - Me.RTBScriptDesc.Name = "RTBScriptDesc" - Me.RTBScriptDesc.ReadOnly = True - Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) - Me.RTBScriptDesc.TabIndex = 0 - Me.RTBScriptDesc.Text = "" - ' - 'PictureBox1 - ' - Me.PictureBox1.BackColor = System.Drawing.Color.LightGray - Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox1.Location = New System.Drawing.Point(9, 6) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(160, 19) - Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox1.TabIndex = 151 - Me.PictureBox1.TabStop = False - ' - 'GroupBox43 - ' - Me.GroupBox43.BackColor = System.Drawing.Color.LightGray - Me.GroupBox43.Controls.Add(Me.Label98) - Me.GroupBox43.ForeColor = System.Drawing.Color.Black - Me.GroupBox43.Location = New System.Drawing.Point(7, 331) - Me.GroupBox43.Name = "GroupBox43" - Me.GroupBox43.Size = New System.Drawing.Size(692, 92) - Me.GroupBox43.TabIndex = 65 - Me.GroupBox43.TabStop = False - Me.GroupBox43.Text = "Description" - ' - 'Label98 - ' - Me.Label98.BackColor = System.Drawing.Color.Transparent - Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label98.ForeColor = System.Drawing.Color.Black - Me.Label98.Location = New System.Drawing.Point(6, 16) - Me.Label98.Name = "Label98" - Me.Label98.Size = New System.Drawing.Size(680, 73) - Me.Label98.TabIndex = 62 - Me.Label98.Text = resources.GetString("Label98.Text") - Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label104 - ' - Me.Label104.BackColor = System.Drawing.Color.Transparent - Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label104.ForeColor = System.Drawing.Color.Black - Me.Label104.Location = New System.Drawing.Point(7, 6) - Me.Label104.Name = "Label104" - Me.Label104.Size = New System.Drawing.Size(692, 21) - Me.Label104.TabIndex = 49 - Me.Label104.Text = "Script Selection" - Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage7 - ' - Me.TabPage7.BackColor = System.Drawing.Color.Silver - Me.TabPage7.Controls.Add(Me.TabControl4) - Me.TabPage7.Location = New System.Drawing.Point(4, 22) - Me.TabPage7.Name = "TabPage7" - Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage7.Size = New System.Drawing.Size(720, 448) - Me.TabPage7.TabIndex = 11 - Me.TabPage7.Text = "Images" - ' - 'TabControl4 - ' - Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) - Me.TabControl4.Controls.Add(Me.TpImagesGenre) - Me.TabControl4.Location = New System.Drawing.Point(6, 6) - Me.TabControl4.Name = "TabControl4" - Me.TabControl4.SelectedIndex = 0 - Me.TabControl4.Size = New System.Drawing.Size(708, 437) - Me.TabControl4.TabIndex = 154 - ' - 'TpImagesUrlFiles - ' - Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray - Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) - Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) - Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) - Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) - Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) - Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) - Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" - Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) - Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) - Me.TpImagesUrlFiles.TabIndex = 0 - Me.TpImagesUrlFiles.Text = "URL Files" - ' - 'CBURLPreview - ' - Me.CBURLPreview.AutoSize = True - Me.CBURLPreview.Checked = True - Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) - Me.CBURLPreview.Name = "CBURLPreview" - Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) - Me.CBURLPreview.TabIndex = 163 - Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" - Me.CBURLPreview.UseVisualStyleBackColor = True - ' - 'GroupBox66 - ' - Me.GroupBox66.Controls.Add(Me.PBURLPreview) - Me.GroupBox66.Location = New System.Drawing.Point(344, 3) - Me.GroupBox66.Name = "GroupBox66" - Me.GroupBox66.Size = New System.Drawing.Size(350, 309) - Me.GroupBox66.TabIndex = 162 - Me.GroupBox66.TabStop = False - Me.GroupBox66.Text = "Example Preview" - ' - 'PBURLPreview - ' - Me.PBURLPreview.BackColor = System.Drawing.Color.Black - Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) - Me.PBURLPreview.Name = "PBURLPreview" - Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) - Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PBURLPreview.TabIndex = 0 - Me.PBURLPreview.TabStop = False - ' - 'BTNURLFilesAll - ' - Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) - Me.BTNURLFilesAll.Name = "BTNURLFilesAll" - Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) - Me.BTNURLFilesAll.TabIndex = 160 - Me.BTNURLFilesAll.Text = "Select All" - Me.BTNURLFilesAll.UseVisualStyleBackColor = True - ' - 'BTNURLFilesNone - ' - Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) - Me.BTNURLFilesNone.Name = "BTNURLFilesNone" - Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) - Me.BTNURLFilesNone.TabIndex = 161 - Me.BTNURLFilesNone.Text = "Select None" - Me.BTNURLFilesNone.UseVisualStyleBackColor = True - ' - 'URLFileList - ' - Me.URLFileList.CheckOnClick = True - Me.URLFileList.FormattingEnabled = True - Me.URLFileList.Location = New System.Drawing.Point(6, 9) - Me.URLFileList.Name = "URLFileList" - Me.URLFileList.Size = New System.Drawing.Size(332, 394) - Me.URLFileList.Sorted = True - Me.URLFileList.TabIndex = 154 - ' - 'TpImagesGenre - ' - Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray - Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) - Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) - Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) - Me.TpImagesGenre.Name = "TpImagesGenre" - Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) - Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) - Me.TpImagesGenre.TabIndex = 1 - Me.TpImagesGenre.Text = "Genre Images" - ' - 'GrbImageUrlFiles - ' - Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) - Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) - Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" - Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) - Me.GrbImageUrlFiles.TabIndex = 1 - Me.GrbImageUrlFiles.TabStop = False - Me.GrbImageUrlFiles.Text = "URL Files" - ' - 'TlpImageUrls - ' - Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray - Me.TlpImageUrls.ColumnCount = 3 - Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) - Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) - Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) - Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) - Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill - Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize - Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) - Me.TlpImageUrls.Name = "TlpImageUrls" - Me.TlpImageUrls.RowCount = 14 - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) - Me.TlpImageUrls.TabIndex = 0 - ' - 'BtnImageUrlButt - ' - Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) - Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) - Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlButt.Name = "BtnImageUrlButt" - Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlButt.TabIndex = 38 - Me.BtnImageUrlButt.Text = "1" - Me.BtnImageUrlButt.UseVisualStyleBackColor = False - ' - 'BtnImageUrlBoobs - ' - Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) - Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) - Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" - Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlBoobs.TabIndex = 35 - Me.BtnImageUrlBoobs.Text = "1" - Me.BtnImageUrlBoobs.UseVisualStyleBackColor = False - ' - 'BtnImageUrlBlowjob - ' - Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) - Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" - Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlBlowjob.TabIndex = 11 - Me.BtnImageUrlBlowjob.Text = "1" - Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = False - ' - 'BtnImageUrlCaptions - ' - Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) - Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" - Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlCaptions.TabIndex = 29 - Me.BtnImageUrlCaptions.Text = "1" - Me.BtnImageUrlCaptions.UseVisualStyleBackColor = False - ' - 'BtnImageUrlHentai - ' - Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) - Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" - Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlHentai.TabIndex = 20 - Me.BtnImageUrlHentai.Text = "1" - Me.BtnImageUrlHentai.UseVisualStyleBackColor = False - ' - 'BtnImageUrlGay - ' - Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) - Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlGay.Name = "BtnImageUrlGay" - Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlGay.TabIndex = 23 - Me.BtnImageUrlGay.Text = "1" - Me.BtnImageUrlGay.UseVisualStyleBackColor = False - ' - 'BtnImageUrlGeneral - ' - Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) - Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" - Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlGeneral.TabIndex = 32 - Me.BtnImageUrlGeneral.Text = "1" - Me.BtnImageUrlGeneral.UseVisualStyleBackColor = False - ' - 'BtnImageUrlHardcore - ' - Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) - Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" - Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlHardcore.TabIndex = 1 - Me.BtnImageUrlHardcore.Text = "1" - Me.BtnImageUrlHardcore.UseVisualStyleBackColor = False - ' - 'BtnImageUrlLesbian - ' - Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) - Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" - Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlLesbian.TabIndex = 8 - Me.BtnImageUrlLesbian.Text = "1" - Me.BtnImageUrlLesbian.UseVisualStyleBackColor = False - ' - 'BtnImageUrlLezdom - ' - Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) - Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" - Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlLezdom.TabIndex = 17 - Me.BtnImageUrlLezdom.Text = "1" - Me.BtnImageUrlLezdom.UseVisualStyleBackColor = False - ' - 'BtnImageUrlMaledom - ' - Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) - Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" - Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlMaledom.TabIndex = 26 - Me.BtnImageUrlMaledom.Text = "1" - Me.BtnImageUrlMaledom.UseVisualStyleBackColor = False - ' - 'BtnImageUrlFemdom - ' - Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) - Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" - Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlFemdom.TabIndex = 14 - Me.BtnImageUrlFemdom.Text = "1" - Me.BtnImageUrlFemdom.UseVisualStyleBackColor = False - ' - 'BtnImageUrlSoftcore - ' - Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray - Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black - Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) - Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" - Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) - Me.BtnImageUrlSoftcore.TabIndex = 5 - Me.BtnImageUrlSoftcore.Text = "1" - Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = False - ' - 'ChbImageUrlHardcore - ' - Me.ChbImageUrlHardcore.AutoSize = True - Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled - Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) - Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" - Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlHardcore.TabIndex = 0 - Me.ChbImageUrlHardcore.Text = "Hardcore" - Me.ChbImageUrlHardcore.UseVisualStyleBackColor = True - ' - 'ChbImageUrlButts - ' - Me.ChbImageUrlButts.AutoSize = True - Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled - Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) - Me.ChbImageUrlButts.Name = "ChbImageUrlButts" - Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) - Me.ChbImageUrlButts.TabIndex = 37 - Me.ChbImageUrlButts.Text = "Butts" - Me.ChbImageUrlButts.UseVisualStyleBackColor = True - ' - 'ChbImageUrlMaledom - ' - Me.ChbImageUrlMaledom.AutoSize = True - Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled - Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) - Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" - Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlMaledom.TabIndex = 25 - Me.ChbImageUrlMaledom.Text = "Maledom" - Me.ChbImageUrlMaledom.UseVisualStyleBackColor = True - ' - 'ChbImageUrlGay - ' - Me.ChbImageUrlGay.AutoSize = True - Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled - Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) - Me.ChbImageUrlGay.Name = "ChbImageUrlGay" - Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlGay.TabIndex = 22 - Me.ChbImageUrlGay.Text = "Gay" - Me.ChbImageUrlGay.UseVisualStyleBackColor = True - ' - 'ChbImageUrlSoftcore - ' - Me.ChbImageUrlSoftcore.AutoSize = True - Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled - Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) - Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" - Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlSoftcore.TabIndex = 4 - Me.ChbImageUrlSoftcore.Text = "Softcore" - Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = True - ' - 'ChbImageUrlBoobs - ' - Me.ChbImageUrlBoobs.AutoSize = True - Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled - Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) - Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" - Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlBoobs.TabIndex = 34 - Me.ChbImageUrlBoobs.Text = "Boobs" - Me.ChbImageUrlBoobs.UseVisualStyleBackColor = True - ' - 'ChbImageUrlLesbian - ' - Me.ChbImageUrlLesbian.AutoSize = True - Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled - Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) - Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" - Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlLesbian.TabIndex = 7 - Me.ChbImageUrlLesbian.Text = "Lesbian" - Me.ChbImageUrlLesbian.UseVisualStyleBackColor = True - ' - 'ChbImageUrlBlowjob - ' - Me.ChbImageUrlBlowjob.AutoSize = True - Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled - Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) - Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" - Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlBlowjob.TabIndex = 10 - Me.ChbImageUrlBlowjob.Text = "Blowjob" - Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = True - ' - 'ChbImageUrlCaptions - ' - Me.ChbImageUrlCaptions.AutoSize = True - Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled - Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) - Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" - Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlCaptions.TabIndex = 28 - Me.ChbImageUrlCaptions.Text = "Captions" - Me.ChbImageUrlCaptions.UseVisualStyleBackColor = True - ' - 'ChbImageUrlGeneral - ' - Me.ChbImageUrlGeneral.AutoSize = True - Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled - Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) - Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" - Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlGeneral.TabIndex = 31 - Me.ChbImageUrlGeneral.Text = "General" - Me.ChbImageUrlGeneral.UseVisualStyleBackColor = True - ' - 'ChbImageUrlFemdom - ' - Me.ChbImageUrlFemdom.AutoSize = True - Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled - Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) - Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" - Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlFemdom.TabIndex = 13 - Me.ChbImageUrlFemdom.Text = "Femdom" - Me.ChbImageUrlFemdom.UseVisualStyleBackColor = True - ' - 'ChbImageUrlHentai - ' - Me.ChbImageUrlHentai.AutoSize = True - Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled - Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) - Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" - Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlHentai.TabIndex = 19 - Me.ChbImageUrlHentai.Text = "Hentai" - Me.ChbImageUrlHentai.UseVisualStyleBackColor = True - ' - 'ChbImageUrlLezdom - ' - Me.ChbImageUrlLezdom.AutoSize = True - Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled - Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black - Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) - Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" - Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) - Me.ChbImageUrlLezdom.TabIndex = 16 - Me.ChbImageUrlLezdom.Text = "Lezdom" - Me.ChbImageUrlLezdom.UseVisualStyleBackColor = True - ' - 'TxbImageUrlBlowjob - ' - Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) - Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" - Me.TxbImageUrlBlowjob.ReadOnly = True - Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBlowjob.TabIndex = 12 - Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob - ' - 'TxbImageUrlSoftcore - ' - Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) - Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" - Me.TxbImageUrlSoftcore.ReadOnly = True - Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlSoftcore.TabIndex = 6 - Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore - ' - 'TxbImageUrlLezdom - ' - Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) - Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" - Me.TxbImageUrlLezdom.ReadOnly = True - Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLezdom.TabIndex = 18 - Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom - ' - 'TxbImageUrlFemdom - ' - Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) - Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" - Me.TxbImageUrlFemdom.ReadOnly = True - Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlFemdom.TabIndex = 15 - Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom - ' - 'TxbImageUrlHardcore - ' - Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) - Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" - Me.TxbImageUrlHardcore.ReadOnly = True - Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHardcore.TabIndex = 3 - Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore - ' - 'TxbImageUrlHentai - ' - Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) - Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" - Me.TxbImageUrlHentai.ReadOnly = True - Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlHentai.TabIndex = 21 - Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai - ' - 'TxbImageUrlGay - ' - Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) - Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGay.Name = "TxbImageUrlGay" - Me.TxbImageUrlGay.ReadOnly = True - Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGay.TabIndex = 24 - Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay - ' - 'TxbImageUrlLesbian - ' - Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) - Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" - Me.TxbImageUrlLesbian.ReadOnly = True - Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlLesbian.TabIndex = 9 - Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian - ' - 'TxbImageUrlMaledom - ' - Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) - Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" - Me.TxbImageUrlMaledom.ReadOnly = True - Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlMaledom.TabIndex = 27 - Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom - ' - 'TxbImageUrlCaptions - ' - Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) - Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" - Me.TxbImageUrlCaptions.ReadOnly = True - Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlCaptions.TabIndex = 30 - Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions - ' - 'TxbImageUrlGeneral - ' - Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) - Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" - Me.TxbImageUrlGeneral.ReadOnly = True - Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlGeneral.TabIndex = 33 - Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral - ' - 'TxbImageUrlBoobs - ' - Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) - Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" - Me.TxbImageUrlBoobs.ReadOnly = True - Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlBoobs.TabIndex = 36 - Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs - ' - 'TxbImageUrlButts - ' - Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray - Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) - Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) - Me.TxbImageUrlButts.Name = "TxbImageUrlButts" - Me.TxbImageUrlButts.ReadOnly = True - Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) - Me.TxbImageUrlButts.TabIndex = 39 - Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt - ' - 'GbxImagesGenre - ' - Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) - Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) - Me.GbxImagesGenre.Name = "GbxImagesGenre" - Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) - Me.GbxImagesGenre.TabIndex = 0 - Me.GbxImagesGenre.TabStop = False - Me.GbxImagesGenre.Text = "Local Images" - ' - 'TableLayoutPanel1 - ' - Me.TableLayoutPanel1.ColumnCount = 4 - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) - Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) - Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) - Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) - Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) - Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) - Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) - Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) - Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) - Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) - Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) - Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) - Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) - Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) - Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) - Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) - Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) - Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) - Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) - Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) - Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) - Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) - Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) - Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) - Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) - Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) - Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) - Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) - Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) - Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) - Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) - Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) - Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) - Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize - Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) - Me.TableLayoutPanel1.Name = "TableLayoutPanel1" - Me.TableLayoutPanel1.RowCount = 13 - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) - Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) - Me.TableLayoutPanel1.TabIndex = 0 - ' - 'BTNIHardcore - ' - Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray - Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black - Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) - Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIHardcore.Name = "BTNIHardcore" - Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) - Me.BTNIHardcore.TabIndex = 1 - Me.BTNIHardcore.Text = "1" - Me.BTNIHardcore.UseVisualStyleBackColor = False - ' - 'TbxIHardcore - ' - Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray - Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black - Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) - Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIHardcore.Name = "TbxIHardcore" - Me.TbxIHardcore.ReadOnly = True - Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) - Me.TbxIHardcore.TabIndex = 2 - Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore - ' - 'CBIHardcoreSD - ' - Me.CBIHardcoreSD.AutoSize = True - Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD - Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black - Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) - Me.CBIHardcoreSD.Name = "CBIHardcoreSD" - Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) - Me.CBIHardcoreSD.TabIndex = 3 - Me.CBIHardcoreSD.UseVisualStyleBackColor = True - ' - 'CBIHardcore - ' - Me.CBIHardcore.AutoSize = True - Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore - Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHardcore.ForeColor = System.Drawing.Color.Black - Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) - Me.CBIHardcore.Name = "CBIHardcore" - Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) - Me.CBIHardcore.TabIndex = 0 - Me.CBIHardcore.Text = "Hardcore" - Me.CBIHardcore.UseVisualStyleBackColor = True - ' - 'CBISoftcore - ' - Me.CBISoftcore.AutoSize = True - Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore - Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBISoftcore.ForeColor = System.Drawing.Color.Black - Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) - Me.CBISoftcore.Name = "CBISoftcore" - Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) - Me.CBISoftcore.TabIndex = 4 - Me.CBISoftcore.Text = "Softcore" - Me.CBISoftcore.UseVisualStyleBackColor = True - ' - 'TbxISoftcore - ' - Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray - Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black - Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) - Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxISoftcore.Name = "TbxISoftcore" - Me.TbxISoftcore.ReadOnly = True - Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) - Me.TbxISoftcore.TabIndex = 6 - Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore - ' - 'CBButtSubDir - ' - Me.CBButtSubDir.AutoSize = True - Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir - Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black - Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) - Me.CBButtSubDir.Name = "CBButtSubDir" - Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) - Me.CBButtSubDir.TabIndex = 51 - Me.CBButtSubDir.UseVisualStyleBackColor = True - ' - 'CBISoftcoreSD - ' - Me.CBISoftcoreSD.AutoSize = True - Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD - Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black - Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) - Me.CBISoftcoreSD.Name = "CBISoftcoreSD" - Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) - Me.CBISoftcoreSD.TabIndex = 7 - Me.CBISoftcoreSD.UseVisualStyleBackColor = True - ' - 'CBBoobSubDir - ' - Me.CBBoobSubDir.AutoSize = True - Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir - Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black - Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) - Me.CBBoobSubDir.Name = "CBBoobSubDir" - Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) - Me.CBBoobSubDir.TabIndex = 47 - Me.CBBoobSubDir.UseVisualStyleBackColor = True - ' - 'CBILezdomSD - ' - Me.CBILezdomSD.AutoSize = True - Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD - Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black - Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) - Me.CBILezdomSD.Name = "CBILezdomSD" - Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) - Me.CBILezdomSD.TabIndex = 23 - Me.CBILezdomSD.UseVisualStyleBackColor = True - ' - 'CBIGeneralSD - ' - Me.CBIGeneralSD.AutoSize = True - Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD - Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black - Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) - Me.CBIGeneralSD.Name = "CBIGeneralSD" - Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) - Me.CBIGeneralSD.TabIndex = 43 - Me.CBIGeneralSD.UseVisualStyleBackColor = True - ' - 'CBILesbianSD - ' - Me.CBILesbianSD.AutoSize = True - Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD - Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black - Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) - Me.CBILesbianSD.Name = "CBILesbianSD" - Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) - Me.CBILesbianSD.TabIndex = 11 - Me.CBILesbianSD.UseVisualStyleBackColor = True - ' - 'CBICaptionsSD - ' - Me.CBICaptionsSD.AutoSize = True - Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD - Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black - Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) - Me.CBICaptionsSD.Name = "CBICaptionsSD" - Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) - Me.CBICaptionsSD.TabIndex = 39 - Me.CBICaptionsSD.UseVisualStyleBackColor = True - ' - 'CBILesbian - ' - Me.CBILesbian.AutoSize = True - Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian - Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILesbian.ForeColor = System.Drawing.Color.Black - Me.CBILesbian.Location = New System.Drawing.Point(3, 61) - Me.CBILesbian.Name = "CBILesbian" - Me.CBILesbian.Size = New System.Drawing.Size(70, 23) - Me.CBILesbian.TabIndex = 8 - Me.CBILesbian.Text = "Lesbian" - Me.CBILesbian.UseVisualStyleBackColor = True - ' - 'CBIMaledomSD - ' - Me.CBIMaledomSD.AutoSize = True - Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD - Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black - Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) - Me.CBIMaledomSD.Name = "CBIMaledomSD" - Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) - Me.CBIMaledomSD.TabIndex = 35 - Me.CBIMaledomSD.UseVisualStyleBackColor = True - ' - 'CBIBlowjob - ' - Me.CBIBlowjob.AutoSize = True - Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob - Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black - Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) - Me.CBIBlowjob.Name = "CBIBlowjob" - Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) - Me.CBIBlowjob.TabIndex = 12 - Me.CBIBlowjob.Text = "Blowjob" - Me.CBIBlowjob.UseVisualStyleBackColor = True - ' - 'CBIGaySD - ' - Me.CBIGaySD.AutoSize = True - Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD - Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGaySD.ForeColor = System.Drawing.Color.Black - Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) - Me.CBIGaySD.Name = "CBIGaySD" - Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) - Me.CBIGaySD.TabIndex = 31 - Me.CBIGaySD.UseVisualStyleBackColor = True - ' - 'CBIHentaiSD - ' - Me.CBIHentaiSD.AutoSize = True - Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD - Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black - Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) - Me.CBIHentaiSD.Name = "CBIHentaiSD" - Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) - Me.CBIHentaiSD.TabIndex = 27 - Me.CBIHentaiSD.UseVisualStyleBackColor = True - ' - 'CBIBlowjobSD - ' - Me.CBIBlowjobSD.AutoSize = True - Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD - Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black - Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) - Me.CBIBlowjobSD.Name = "CBIBlowjobSD" - Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) - Me.CBIBlowjobSD.TabIndex = 15 - Me.CBIBlowjobSD.UseVisualStyleBackColor = True - ' - 'CBIFemdomSD - ' - Me.CBIFemdomSD.AutoSize = True - Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD - Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black - Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) - Me.CBIFemdomSD.Name = "CBIFemdomSD" - Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) - Me.CBIFemdomSD.TabIndex = 19 - Me.CBIFemdomSD.UseVisualStyleBackColor = True - ' - 'TbxIButts - ' - Me.TbxIButts.BackColor = System.Drawing.Color.LightGray - Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIButts.ForeColor = System.Drawing.Color.Black - Me.TbxIButts.Location = New System.Drawing.Point(115, 353) - Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIButts.Name = "TbxIButts" - Me.TbxIButts.ReadOnly = True - Me.TbxIButts.Size = New System.Drawing.Size(217, 17) - Me.TbxIButts.TabIndex = 50 - Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath - ' - 'CBIFemdom - ' - Me.CBIFemdom.AutoSize = True - Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom - Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIFemdom.ForeColor = System.Drawing.Color.Black - Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) - Me.CBIFemdom.Name = "CBIFemdom" - Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) - Me.CBIFemdom.TabIndex = 16 - Me.CBIFemdom.Text = "Femdom" - Me.CBIFemdom.UseVisualStyleBackColor = True - ' - 'TbxILesbian - ' - Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray - Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxILesbian.ForeColor = System.Drawing.Color.Black - Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) - Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxILesbian.Name = "TbxILesbian" - Me.TbxILesbian.ReadOnly = True - Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) - Me.TbxILesbian.TabIndex = 10 - Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian - ' - 'BTNISoftcore - ' - Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray - Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black - Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) - Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNISoftcore.Name = "BTNISoftcore" - Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) - Me.BTNISoftcore.TabIndex = 5 - Me.BTNISoftcore.Text = "1" - Me.BTNISoftcore.UseVisualStyleBackColor = False - ' - 'CBILezdom - ' - Me.CBILezdom.AutoSize = True - Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom - Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBILezdom.ForeColor = System.Drawing.Color.Black - Me.CBILezdom.Location = New System.Drawing.Point(3, 148) - Me.CBILezdom.Name = "CBILezdom" - Me.CBILezdom.Size = New System.Drawing.Size(70, 23) - Me.CBILezdom.TabIndex = 20 - Me.CBILezdom.Text = "Lezdom" - Me.CBILezdom.UseVisualStyleBackColor = True - ' - 'TbxIBoobs - ' - Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray - Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black - Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) - Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIBoobs.Name = "TbxIBoobs" - Me.TbxIBoobs.ReadOnly = True - Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) - Me.TbxIBoobs.TabIndex = 46 - Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath - ' - 'CBIHentai - ' - Me.CBIHentai.AutoSize = True - Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai - Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIHentai.ForeColor = System.Drawing.Color.Black - Me.CBIHentai.Location = New System.Drawing.Point(3, 177) - Me.CBIHentai.Name = "CBIHentai" - Me.CBIHentai.Size = New System.Drawing.Size(70, 23) - Me.CBIHentai.TabIndex = 24 - Me.CBIHentai.Text = "Hentai" - Me.CBIHentai.UseVisualStyleBackColor = True - ' - 'TbxIBlowjob - ' - Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray - Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black - Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) - Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIBlowjob.Name = "TbxIBlowjob" - Me.TbxIBlowjob.ReadOnly = True - Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) - Me.TbxIBlowjob.TabIndex = 14 - Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob - ' - 'CBIGay - ' - Me.CBIGay.AutoSize = True - Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay - Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGay.ForeColor = System.Drawing.Color.Black - Me.CBIGay.Location = New System.Drawing.Point(3, 206) - Me.CBIGay.Name = "CBIGay" - Me.CBIGay.Size = New System.Drawing.Size(70, 23) - Me.CBIGay.TabIndex = 28 - Me.CBIGay.Text = "Gay" - Me.CBIGay.UseVisualStyleBackColor = True - ' - 'TbxIGeneral - ' - Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray - Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black - Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) - Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIGeneral.Name = "TbxIGeneral" - Me.TbxIGeneral.ReadOnly = True - Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) - Me.TbxIGeneral.TabIndex = 42 - Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral - ' - 'CBIMaledom - ' - Me.CBIMaledom.AutoSize = True - Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom - Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIMaledom.ForeColor = System.Drawing.Color.Black - Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) - Me.CBIMaledom.Name = "CBIMaledom" - Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) - Me.CBIMaledom.TabIndex = 32 - Me.CBIMaledom.Text = "Maledom" - Me.CBIMaledom.UseVisualStyleBackColor = True - ' - 'TbxIFemdom - ' - Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray - Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black - Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) - Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIFemdom.Name = "TbxIFemdom" - Me.TbxIFemdom.ReadOnly = True - Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) - Me.TbxIFemdom.TabIndex = 18 - Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom - ' - 'BTNILesbian - ' - Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray - Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNILesbian.ForeColor = System.Drawing.Color.Black - Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) - Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNILesbian.Name = "BTNILesbian" - Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) - Me.BTNILesbian.TabIndex = 9 - Me.BTNILesbian.Text = "1" - Me.BTNILesbian.UseVisualStyleBackColor = False - ' - 'TbxICaptions - ' - Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray - Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxICaptions.ForeColor = System.Drawing.Color.Black - Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) - Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxICaptions.Name = "TbxICaptions" - Me.TbxICaptions.ReadOnly = True - Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) - Me.TbxICaptions.TabIndex = 38 - Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions - ' - 'CBICaptions - ' - Me.CBICaptions.AutoSize = True - Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions - Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBICaptions.ForeColor = System.Drawing.Color.Black - Me.CBICaptions.Location = New System.Drawing.Point(3, 264) - Me.CBICaptions.Name = "CBICaptions" - Me.CBICaptions.Size = New System.Drawing.Size(70, 23) - Me.CBICaptions.TabIndex = 36 - Me.CBICaptions.Text = "Captions" - Me.CBICaptions.UseVisualStyleBackColor = True - ' - 'TbxILezdom - ' - Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray - Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxILezdom.ForeColor = System.Drawing.Color.Black - Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) - Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxILezdom.Name = "TbxILezdom" - Me.TbxILezdom.ReadOnly = True - Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) - Me.TbxILezdom.TabIndex = 22 - Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom - ' - 'TbxIMaledom - ' - Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray - Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black - Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) - Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIMaledom.Name = "TbxIMaledom" - Me.TbxIMaledom.ReadOnly = True - Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) - Me.TbxIMaledom.TabIndex = 34 - Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom - ' - 'BTNButtPath - ' - Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray - Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNButtPath.ForeColor = System.Drawing.Color.Black - Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) - Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNButtPath.Name = "BTNButtPath" - Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) - Me.BTNButtPath.TabIndex = 49 - Me.BTNButtPath.Text = "1" - Me.BTNButtPath.UseVisualStyleBackColor = False - ' - 'TbxIHentai - ' - Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray - Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIHentai.ForeColor = System.Drawing.Color.Black - Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) - Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIHentai.Name = "TbxIHentai" - Me.TbxIHentai.ReadOnly = True - Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) - Me.TbxIHentai.TabIndex = 26 - Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai - ' - 'CBIGeneral - ' - Me.CBIGeneral.AutoSize = True - Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral - Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIGeneral.ForeColor = System.Drawing.Color.Black - Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) - Me.CBIGeneral.Name = "CBIGeneral" - Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) - Me.CBIGeneral.TabIndex = 40 - Me.CBIGeneral.Text = "General" - Me.CBIGeneral.UseVisualStyleBackColor = True - ' - 'TbxIGay - ' - Me.TbxIGay.BackColor = System.Drawing.Color.LightGray - Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxIGay.ForeColor = System.Drawing.Color.Black - Me.TbxIGay.Location = New System.Drawing.Point(115, 208) - Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) - Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) - Me.TbxIGay.Name = "TbxIGay" - Me.TbxIGay.ReadOnly = True - Me.TbxIGay.Size = New System.Drawing.Size(217, 17) - Me.TbxIGay.TabIndex = 30 - Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay - ' - 'CBIBoobs - ' - Me.CBIBoobs.AutoSize = True - Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs - Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIBoobs.ForeColor = System.Drawing.Color.Black - Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) - Me.CBIBoobs.Name = "CBIBoobs" - Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) - Me.CBIBoobs.TabIndex = 44 - Me.CBIBoobs.Text = "Boobs" - Me.CBIBoobs.UseVisualStyleBackColor = True - ' - 'CBIButts - ' - Me.CBIButts.AutoSize = True - Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts - Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill - Me.CBIButts.ForeColor = System.Drawing.Color.Black - Me.CBIButts.Location = New System.Drawing.Point(3, 351) - Me.CBIButts.Name = "CBIButts" - Me.CBIButts.Size = New System.Drawing.Size(70, 27) - Me.CBIButts.TabIndex = 48 - Me.CBIButts.Text = "Butts" - Me.CBIButts.UseVisualStyleBackColor = True - ' - 'BTNIBlowjob - ' - Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray - Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black - Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) - Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIBlowjob.Name = "BTNIBlowjob" - Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) - Me.BTNIBlowjob.TabIndex = 13 - Me.BTNIBlowjob.Text = "1" - Me.BTNIBlowjob.UseVisualStyleBackColor = False - ' - 'BTNIFemdom - ' - Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray - Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black - Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) - Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIFemdom.Name = "BTNIFemdom" - Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) - Me.BTNIFemdom.TabIndex = 17 - Me.BTNIFemdom.Text = "1" - Me.BTNIFemdom.UseVisualStyleBackColor = False - ' - 'BTNBoobPath - ' - Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray - Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black - Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) - Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNBoobPath.Name = "BTNBoobPath" - Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) - Me.BTNBoobPath.TabIndex = 45 - Me.BTNBoobPath.Text = "1" - Me.BTNBoobPath.UseVisualStyleBackColor = False - ' - 'BTNILezdom - ' - Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray - Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNILezdom.ForeColor = System.Drawing.Color.Black - Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) - Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNILezdom.Name = "BTNILezdom" - Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) - Me.BTNILezdom.TabIndex = 21 - Me.BTNILezdom.Text = "1" - Me.BTNILezdom.UseVisualStyleBackColor = False - ' - 'BTNIHentai - ' - Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray - Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIHentai.ForeColor = System.Drawing.Color.Black - Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) - Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIHentai.Name = "BTNIHentai" - Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) - Me.BTNIHentai.TabIndex = 25 - Me.BTNIHentai.Text = "1" - Me.BTNIHentai.UseVisualStyleBackColor = False - ' - 'BTNIGay - ' - Me.BTNIGay.BackColor = System.Drawing.Color.LightGray - Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIGay.ForeColor = System.Drawing.Color.Black - Me.BTNIGay.Location = New System.Drawing.Point(76, 203) - Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIGay.Name = "BTNIGay" - Me.BTNIGay.Size = New System.Drawing.Size(34, 28) - Me.BTNIGay.TabIndex = 29 - Me.BTNIGay.Text = "1" - Me.BTNIGay.UseVisualStyleBackColor = False - ' - 'BTNIMaledom - ' - Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray - Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black - Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) - Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIMaledom.Name = "BTNIMaledom" - Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) - Me.BTNIMaledom.TabIndex = 33 - Me.BTNIMaledom.Text = "1" - Me.BTNIMaledom.UseVisualStyleBackColor = False - ' - 'BTNICaptions - ' - Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray - Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNICaptions.ForeColor = System.Drawing.Color.Black - Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) - Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNICaptions.Name = "BTNICaptions" - Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) - Me.BTNICaptions.TabIndex = 37 - Me.BTNICaptions.Text = "1" - Me.BTNICaptions.UseVisualStyleBackColor = False - ' - 'BTNIGeneral - ' - Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray - Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black - Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) - Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) - Me.BTNIGeneral.Name = "BTNIGeneral" - Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) - Me.BTNIGeneral.TabIndex = 41 - Me.BTNIGeneral.Text = "1" - Me.BTNIGeneral.UseVisualStyleBackColor = False - ' - 'TabPage33 - ' - Me.TabPage33.BackColor = System.Drawing.Color.Silver - Me.TabPage33.Controls.Add(Me.TabControl5) - Me.TabPage33.Location = New System.Drawing.Point(4, 22) - Me.TabPage33.Name = "TabPage33" - Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage33.Size = New System.Drawing.Size(720, 448) - Me.TabPage33.TabIndex = 21 - Me.TabPage33.Text = "Tagging" - ' - 'TabControl5 - ' - Me.TabControl5.Controls.Add(Me.TabPage34) - Me.TabControl5.Controls.Add(Me.TabPage35) - Me.TabControl5.Location = New System.Drawing.Point(6, 6) - Me.TabControl5.Name = "TabControl5" - Me.TabControl5.SelectedIndex = 0 - Me.TabControl5.Size = New System.Drawing.Size(708, 437) - Me.TabControl5.TabIndex = 0 - ' - 'TabPage34 - ' - Me.TabPage34.BackColor = System.Drawing.Color.LightGray - Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) - Me.TabPage34.Controls.Add(Me.CBTagAllFours) - Me.TabPage34.Controls.Add(Me.CBTagGlaring) - Me.TabPage34.Controls.Add(Me.CBTagSmiling) - Me.TabPage34.Controls.Add(Me.TBTagDir) - Me.TabPage34.Controls.Add(Me.CBTagPiercing) - Me.TabPage34.Controls.Add(Me.CBTagLegs) - Me.TabPage34.Controls.Add(Me.TBTagFurniture) - Me.TabPage34.Controls.Add(Me.CBTagFurniture) - Me.TabPage34.Controls.Add(Me.TBTagSexToy) - Me.TabPage34.Controls.Add(Me.CBTagSexToy) - Me.TabPage34.Controls.Add(Me.TBTagTattoo) - Me.TabPage34.Controls.Add(Me.CBTagTattoo) - Me.TabPage34.Controls.Add(Me.TBTagUnderwear) - Me.TabPage34.Controls.Add(Me.CBTagUnderwear) - Me.TabPage34.Controls.Add(Me.TBTagGarment) - Me.TabPage34.Controls.Add(Me.CBTagGarment) - Me.TabPage34.Controls.Add(Me.Label72) - Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) - Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) - Me.TabPage34.Controls.Add(Me.CBTagCloseUp) - Me.TabPage34.Controls.Add(Me.CBTagNaked) - Me.TabPage34.Controls.Add(Me.CBTagSideView) - Me.TabPage34.Controls.Add(Me.BTNTagPrevious) - Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) - Me.TabPage34.Controls.Add(Me.BTNTagNext) - Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) - Me.TabPage34.Controls.Add(Me.LBLTagCount) - Me.TabPage34.Controls.Add(Me.CBTagSucking) - Me.TabPage34.Controls.Add(Me.CBTagMasturbating) - Me.TabPage34.Controls.Add(Me.CBTagFeet) - Me.TabPage34.Controls.Add(Me.CBTagBoobs) - Me.TabPage34.Controls.Add(Me.CBTagAss) - Me.TabPage34.Controls.Add(Me.CBTagPussy) - Me.TabPage34.Controls.Add(Me.BTNTagSave) - Me.TabPage34.Controls.Add(Me.BTNTagDir) - Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) - Me.TabPage34.Controls.Add(Me.CBTagFace) - Me.TabPage34.Location = New System.Drawing.Point(4, 22) - Me.TabPage34.Name = "TabPage34" - Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage34.Size = New System.Drawing.Size(700, 411) - Me.TabPage34.TabIndex = 0 - Me.TabPage34.Text = "Domme Tags" - ' - 'CBTagSeeThrough - ' - Me.CBTagSeeThrough.AutoSize = True - Me.CBTagSeeThrough.Enabled = False - Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) - Me.CBTagSeeThrough.Name = "CBTagSeeThrough" - Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) - Me.CBTagSeeThrough.TabIndex = 226 - Me.CBTagSeeThrough.Text = "See Through" - Me.CBTagSeeThrough.UseVisualStyleBackColor = True - ' - 'CBTagAllFours - ' - Me.CBTagAllFours.AutoSize = True - Me.CBTagAllFours.Enabled = False - Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black - Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) - Me.CBTagAllFours.Name = "CBTagAllFours" - Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) - Me.CBTagAllFours.TabIndex = 225 - Me.CBTagAllFours.Text = "All Fours" - Me.CBTagAllFours.UseVisualStyleBackColor = True - ' - 'CBTagGlaring - ' - Me.CBTagGlaring.AutoSize = True - Me.CBTagGlaring.Enabled = False - Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black - Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) - Me.CBTagGlaring.Name = "CBTagGlaring" - Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) - Me.CBTagGlaring.TabIndex = 224 - Me.CBTagGlaring.Text = "Glaring" - Me.CBTagGlaring.UseVisualStyleBackColor = True - ' - 'CBTagSmiling - ' - Me.CBTagSmiling.AutoSize = True - Me.CBTagSmiling.Enabled = False - Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black - Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) - Me.CBTagSmiling.Name = "CBTagSmiling" - Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) - Me.CBTagSmiling.TabIndex = 223 - Me.CBTagSmiling.Text = "Smiling" - Me.CBTagSmiling.UseVisualStyleBackColor = True - ' - 'TBTagDir - ' - Me.TBTagDir.Location = New System.Drawing.Point(55, 9) - Me.TBTagDir.Name = "TBTagDir" - Me.TBTagDir.Size = New System.Drawing.Size(330, 20) - Me.TBTagDir.TabIndex = 222 - Me.TBTagDir.Text = "Enter Image Directory" - ' - 'CBTagPiercing - ' - Me.CBTagPiercing.AutoSize = True - Me.CBTagPiercing.Enabled = False - Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black - Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) - Me.CBTagPiercing.Name = "CBTagPiercing" - Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) - Me.CBTagPiercing.TabIndex = 221 - Me.CBTagPiercing.Text = "Piercing" - Me.CBTagPiercing.UseVisualStyleBackColor = True - ' - 'CBTagLegs - ' - Me.CBTagLegs.AutoSize = True - Me.CBTagLegs.Enabled = False - Me.CBTagLegs.ForeColor = System.Drawing.Color.Black - Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) - Me.CBTagLegs.Name = "CBTagLegs" - Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) - Me.CBTagLegs.TabIndex = 220 - Me.CBTagLegs.Text = "Legs" - Me.CBTagLegs.UseVisualStyleBackColor = True - ' - 'TBTagFurniture - ' - Me.TBTagFurniture.Enabled = False - Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) - Me.TBTagFurniture.Name = "TBTagFurniture" - Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) - Me.TBTagFurniture.TabIndex = 219 - ' - 'CBTagFurniture - ' - Me.CBTagFurniture.AutoSize = True - Me.CBTagFurniture.Enabled = False - Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black - Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) - Me.CBTagFurniture.Name = "CBTagFurniture" - Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) - Me.CBTagFurniture.TabIndex = 218 - Me.CBTagFurniture.Text = "Furniture" - Me.CBTagFurniture.UseVisualStyleBackColor = True - ' - 'TBTagSexToy - ' - Me.TBTagSexToy.Enabled = False - Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) - Me.TBTagSexToy.Name = "TBTagSexToy" - Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) - Me.TBTagSexToy.TabIndex = 217 - ' - 'CBTagSexToy - ' - Me.CBTagSexToy.AutoSize = True - Me.CBTagSexToy.Enabled = False - Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black - Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) - Me.CBTagSexToy.Name = "CBTagSexToy" - Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) - Me.CBTagSexToy.TabIndex = 216 - Me.CBTagSexToy.Text = "Sex Toy" - Me.CBTagSexToy.UseVisualStyleBackColor = True - ' - 'TBTagTattoo - ' - Me.TBTagTattoo.Enabled = False - Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) - Me.TBTagTattoo.Name = "TBTagTattoo" - Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) - Me.TBTagTattoo.TabIndex = 215 - ' - 'CBTagTattoo - ' - Me.CBTagTattoo.AutoSize = True - Me.CBTagTattoo.Enabled = False - Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black - Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) - Me.CBTagTattoo.Name = "CBTagTattoo" - Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) - Me.CBTagTattoo.TabIndex = 214 - Me.CBTagTattoo.Text = "Tattoo" - Me.CBTagTattoo.UseVisualStyleBackColor = True - ' - 'TBTagUnderwear - ' - Me.TBTagUnderwear.Enabled = False - Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) - Me.TBTagUnderwear.Name = "TBTagUnderwear" - Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) - Me.TBTagUnderwear.TabIndex = 213 - ' - 'CBTagUnderwear - ' - Me.CBTagUnderwear.AutoSize = True - Me.CBTagUnderwear.Enabled = False - Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black - Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) - Me.CBTagUnderwear.Name = "CBTagUnderwear" - Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) - Me.CBTagUnderwear.TabIndex = 212 - Me.CBTagUnderwear.Text = "Underwear" - Me.CBTagUnderwear.UseVisualStyleBackColor = True - ' - 'TBTagGarment - ' - Me.TBTagGarment.Enabled = False - Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) - Me.TBTagGarment.Name = "TBTagGarment" - Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) - Me.TBTagGarment.TabIndex = 211 - ' - 'CBTagGarment - ' - Me.CBTagGarment.AutoSize = True - Me.CBTagGarment.Enabled = False - Me.CBTagGarment.ForeColor = System.Drawing.Color.Black - Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) - Me.CBTagGarment.Name = "CBTagGarment" - Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) - Me.CBTagGarment.TabIndex = 210 - Me.CBTagGarment.Text = "Garment" - Me.CBTagGarment.UseVisualStyleBackColor = True - ' - 'Label72 - ' - Me.Label72.BackColor = System.Drawing.Color.Transparent - Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label72.ForeColor = System.Drawing.Color.Black - Me.Label72.Location = New System.Drawing.Point(5, 368) - Me.Label72.Name = "Label72" - Me.Label72.Size = New System.Drawing.Size(451, 35) - Me.Label72.TabIndex = 189 - Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ" & - "ayed, and enter one-word tag descriptions in the text fields when appropriate. (" & - "e.g. Garment: dress)" - Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBTagHandsCovering - ' - Me.CBTagHandsCovering.AutoSize = True - Me.CBTagHandsCovering.Enabled = False - Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) - Me.CBTagHandsCovering.Name = "CBTagHandsCovering" - Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) - Me.CBTagHandsCovering.TabIndex = 209 - Me.CBTagHandsCovering.Text = "Hands Covering" - Me.CBTagHandsCovering.UseVisualStyleBackColor = True - ' - 'CBTagGarmentCovering - ' - Me.CBTagGarmentCovering.AutoSize = True - Me.CBTagGarmentCovering.Enabled = False - Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) - Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" - Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) - Me.CBTagGarmentCovering.TabIndex = 208 - Me.CBTagGarmentCovering.Text = "Garment Covering" - Me.CBTagGarmentCovering.UseVisualStyleBackColor = True - ' - 'CBTagCloseUp - ' - Me.CBTagCloseUp.AutoSize = True - Me.CBTagCloseUp.Enabled = False - Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black - Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) - Me.CBTagCloseUp.Name = "CBTagCloseUp" - Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) - Me.CBTagCloseUp.TabIndex = 205 - Me.CBTagCloseUp.Text = "Close Up" - Me.CBTagCloseUp.UseVisualStyleBackColor = True - ' - 'CBTagNaked - ' - Me.CBTagNaked.AutoSize = True - Me.CBTagNaked.Enabled = False - Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) - Me.CBTagNaked.Name = "CBTagNaked" - Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) - Me.CBTagNaked.TabIndex = 199 - Me.CBTagNaked.Text = "Naked" - Me.CBTagNaked.UseVisualStyleBackColor = True - ' - 'CBTagSideView - ' - Me.CBTagSideView.AutoSize = True - Me.CBTagSideView.Enabled = False - Me.CBTagSideView.ForeColor = System.Drawing.Color.Black - Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) - Me.CBTagSideView.Name = "CBTagSideView" - Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) - Me.CBTagSideView.TabIndex = 204 - Me.CBTagSideView.Text = "Side View" - Me.CBTagSideView.UseVisualStyleBackColor = True - ' - 'BTNTagPrevious - ' - Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray - Me.BTNTagPrevious.Enabled = False - Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black - Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) - Me.BTNTagPrevious.Name = "BTNTagPrevious" - Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) - Me.BTNTagPrevious.TabIndex = 207 - Me.BTNTagPrevious.Text = "<<" - Me.BTNTagPrevious.UseVisualStyleBackColor = False - ' - 'CBTagHalfDressed - ' - Me.CBTagHalfDressed.AutoSize = True - Me.CBTagHalfDressed.Enabled = False - Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) - Me.CBTagHalfDressed.Name = "CBTagHalfDressed" - Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) - Me.CBTagHalfDressed.TabIndex = 198 - Me.CBTagHalfDressed.Text = "Half Dressed" - Me.CBTagHalfDressed.UseVisualStyleBackColor = True - ' - 'BTNTagNext - ' - Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray - Me.BTNTagNext.Enabled = False - Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNTagNext.ForeColor = System.Drawing.Color.Black - Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) - Me.BTNTagNext.Name = "BTNTagNext" - Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) - Me.BTNTagNext.TabIndex = 206 - Me.BTNTagNext.Text = ">>" - Me.BTNTagNext.UseVisualStyleBackColor = False - ' - 'CBTagFullyDressed - ' - Me.CBTagFullyDressed.AutoSize = True - Me.CBTagFullyDressed.Enabled = False - Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) - Me.CBTagFullyDressed.Name = "CBTagFullyDressed" - Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) - Me.CBTagFullyDressed.TabIndex = 197 - Me.CBTagFullyDressed.Text = "Fully Dressed" - Me.CBTagFullyDressed.UseVisualStyleBackColor = True - ' - 'LBLTagCount - ' - Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent - Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLTagCount.Enabled = False - Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLTagCount.ForeColor = System.Drawing.Color.Black - Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) - Me.LBLTagCount.Name = "LBLTagCount" - Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) - Me.LBLTagCount.TabIndex = 203 - Me.LBLTagCount.Text = "0/0" - Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBTagSucking - ' - Me.CBTagSucking.AutoSize = True - Me.CBTagSucking.Enabled = False - Me.CBTagSucking.ForeColor = System.Drawing.Color.Black - Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) - Me.CBTagSucking.Name = "CBTagSucking" - Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) - Me.CBTagSucking.TabIndex = 202 - Me.CBTagSucking.Text = "Sucking" - Me.CBTagSucking.UseVisualStyleBackColor = True - ' - 'CBTagMasturbating - ' - Me.CBTagMasturbating.AutoSize = True - Me.CBTagMasturbating.Enabled = False - Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black - Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) - Me.CBTagMasturbating.Name = "CBTagMasturbating" - Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) - Me.CBTagMasturbating.TabIndex = 201 - Me.CBTagMasturbating.Text = "Masturbating" - Me.CBTagMasturbating.UseVisualStyleBackColor = True - ' - 'CBTagFeet - ' - Me.CBTagFeet.AutoSize = True - Me.CBTagFeet.Enabled = False - Me.CBTagFeet.ForeColor = System.Drawing.Color.Black - Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) - Me.CBTagFeet.Name = "CBTagFeet" - Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) - Me.CBTagFeet.TabIndex = 200 - Me.CBTagFeet.Text = "Feet" - Me.CBTagFeet.UseVisualStyleBackColor = True - ' - 'CBTagBoobs - ' - Me.CBTagBoobs.AutoSize = True - Me.CBTagBoobs.Enabled = False - Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black - Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) - Me.CBTagBoobs.Name = "CBTagBoobs" - Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) - Me.CBTagBoobs.TabIndex = 196 - Me.CBTagBoobs.Text = "Boobs" - Me.CBTagBoobs.UseVisualStyleBackColor = True - ' - 'CBTagAss - ' - Me.CBTagAss.AutoSize = True - Me.CBTagAss.Enabled = False - Me.CBTagAss.ForeColor = System.Drawing.Color.Black - Me.CBTagAss.Location = New System.Drawing.Point(484, 97) - Me.CBTagAss.Name = "CBTagAss" - Me.CBTagAss.Size = New System.Drawing.Size(43, 17) - Me.CBTagAss.TabIndex = 195 - Me.CBTagAss.Text = "Ass" - Me.CBTagAss.UseVisualStyleBackColor = True - ' - 'CBTagPussy - ' - Me.CBTagPussy.AutoSize = True - Me.CBTagPussy.Enabled = False - Me.CBTagPussy.ForeColor = System.Drawing.Color.Black - Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) - Me.CBTagPussy.Name = "CBTagPussy" - Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) - Me.CBTagPussy.TabIndex = 194 - Me.CBTagPussy.Text = "Pussy" - Me.CBTagPussy.UseVisualStyleBackColor = True - ' - 'BTNTagSave - ' - Me.BTNTagSave.Enabled = False - Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) - Me.BTNTagSave.Name = "BTNTagSave" - Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) - Me.BTNTagSave.TabIndex = 193 - Me.BTNTagSave.Text = "Finished" - Me.BTNTagSave.UseVisualStyleBackColor = True - ' - 'BTNTagDir - ' - Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) - Me.BTNTagDir.Name = "BTNTagDir" - Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) - Me.BTNTagDir.TabIndex = 192 - Me.BTNTagDir.Text = "1" - Me.BTNTagDir.UseVisualStyleBackColor = True - ' - 'ImageTagPictureBox - ' - Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black - Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) - Me.ImageTagPictureBox.Name = "ImageTagPictureBox" - Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) - Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.ImageTagPictureBox.TabIndex = 191 - Me.ImageTagPictureBox.TabStop = False - ' - 'CBTagFace - ' - Me.CBTagFace.AutoSize = True - Me.CBTagFace.Enabled = False - Me.CBTagFace.ForeColor = System.Drawing.Color.Black - Me.CBTagFace.Location = New System.Drawing.Point(484, 37) - Me.CBTagFace.Name = "CBTagFace" - Me.CBTagFace.Size = New System.Drawing.Size(50, 17) - Me.CBTagFace.TabIndex = 190 - Me.CBTagFace.Text = "Face" - Me.CBTagFace.UseVisualStyleBackColor = True - ' - 'TabPage35 - ' - Me.TabPage35.BackColor = System.Drawing.Color.LightGray - Me.TabPage35.Controls.Add(Me.GroupBox55) - Me.TabPage35.Controls.Add(Me.GroupBox53) - Me.TabPage35.Controls.Add(Me.GroupBox49) - Me.TabPage35.Controls.Add(Me.GroupBox46) - Me.TabPage35.Controls.Add(Me.GroupBox54) - Me.TabPage35.Controls.Add(Me.GroupBox51) - Me.TabPage35.Controls.Add(Me.GroupBox50) - Me.TabPage35.Controls.Add(Me.GroupBox48) - Me.TabPage35.Controls.Add(Me.TBLocalTagDir) - Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) - Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) - Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) - Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) - Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) - Me.TabPage35.Location = New System.Drawing.Point(4, 22) - Me.TabPage35.Name = "TabPage35" - Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage35.Size = New System.Drawing.Size(700, 411) - Me.TabPage35.TabIndex = 1 - Me.TabPage35.Text = "Local Tags" - ' - 'GroupBox55 - ' - Me.GroupBox55.Controls.Add(Me.CBTagNurse) - Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) - Me.GroupBox55.Controls.Add(Me.CBTagMaid) - Me.GroupBox55.Controls.Add(Me.CBTagTeacher) - Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) - Me.GroupBox55.Location = New System.Drawing.Point(341, 277) - Me.GroupBox55.Name = "GroupBox55" - Me.GroupBox55.Size = New System.Drawing.Size(103, 118) - Me.GroupBox55.TabIndex = 241 - Me.GroupBox55.TabStop = False - Me.GroupBox55.Text = "Outfit" - ' - 'CBTagNurse - ' - Me.CBTagNurse.AutoSize = True - Me.CBTagNurse.Enabled = False - Me.CBTagNurse.ForeColor = System.Drawing.Color.Black - Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) - Me.CBTagNurse.Name = "CBTagNurse" - Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) - Me.CBTagNurse.TabIndex = 203 - Me.CBTagNurse.Text = "Nurse" - Me.CBTagNurse.UseVisualStyleBackColor = True - ' - 'CBTagSchoolgirl - ' - Me.CBTagSchoolgirl.AutoSize = True - Me.CBTagSchoolgirl.Enabled = False - Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black - Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) - Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" - Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) - Me.CBTagSchoolgirl.TabIndex = 204 - Me.CBTagSchoolgirl.Text = "Schoolgirl" - Me.CBTagSchoolgirl.UseVisualStyleBackColor = True - ' - 'CBTagMaid - ' - Me.CBTagMaid.AutoSize = True - Me.CBTagMaid.Enabled = False - Me.CBTagMaid.ForeColor = System.Drawing.Color.Black - Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) - Me.CBTagMaid.Name = "CBTagMaid" - Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) - Me.CBTagMaid.TabIndex = 205 - Me.CBTagMaid.Text = "Maid" - Me.CBTagMaid.UseVisualStyleBackColor = True - ' - 'CBTagTeacher - ' - Me.CBTagTeacher.AutoSize = True - Me.CBTagTeacher.Enabled = False - Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black - Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) - Me.CBTagTeacher.Name = "CBTagTeacher" - Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) - Me.CBTagTeacher.TabIndex = 206 - Me.CBTagTeacher.Text = "Teacher" - Me.CBTagTeacher.UseVisualStyleBackColor = True - ' - 'CBTagSuperhero - ' - Me.CBTagSuperhero.AutoSize = True - Me.CBTagSuperhero.Enabled = False - Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black - Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) - Me.CBTagSuperhero.Name = "CBTagSuperhero" - Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) - Me.CBTagSuperhero.TabIndex = 213 - Me.CBTagSuperhero.Text = "Superhero" - Me.CBTagSuperhero.UseVisualStyleBackColor = True - ' - 'GroupBox53 - ' - Me.GroupBox53.Controls.Add(Me.CBTagTrap) - Me.GroupBox53.Controls.Add(Me.CBTagTentacles) - Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) - Me.GroupBox53.Controls.Add(Me.CBTagBukkake) - Me.GroupBox53.Controls.Add(Me.CBTagGanguro) - Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) - Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) - Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) - Me.GroupBox53.Controls.Add(Me.CBTagAhegao) - Me.GroupBox53.Controls.Add(Me.CBTagShibari) - Me.GroupBox53.Location = New System.Drawing.Point(450, 277) - Me.GroupBox53.Name = "GroupBox53" - Me.GroupBox53.Size = New System.Drawing.Size(246, 118) - Me.GroupBox53.TabIndex = 240 - Me.GroupBox53.TabStop = False - Me.GroupBox53.Text = "Hentai/JAV Themes" - ' - 'CBTagTrap - ' - Me.CBTagTrap.AutoSize = True - Me.CBTagTrap.Enabled = False - Me.CBTagTrap.ForeColor = System.Drawing.Color.Black - Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) - Me.CBTagTrap.Name = "CBTagTrap" - Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) - Me.CBTagTrap.TabIndex = 226 - Me.CBTagTrap.Text = "Trap" - Me.CBTagTrap.UseVisualStyleBackColor = True - ' - 'CBTagTentacles - ' - Me.CBTagTentacles.AutoSize = True - Me.CBTagTentacles.Enabled = False - Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black - Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) - Me.CBTagTentacles.Name = "CBTagTentacles" - Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) - Me.CBTagTentacles.TabIndex = 204 - Me.CBTagTentacles.Text = "Tentacles" - Me.CBTagTentacles.UseVisualStyleBackColor = True - ' - 'CBTagMonsterGirl - ' - Me.CBTagMonsterGirl.AutoSize = True - Me.CBTagMonsterGirl.Enabled = False - Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black - Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) - Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" - Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) - Me.CBTagMonsterGirl.TabIndex = 214 - Me.CBTagMonsterGirl.Text = "Monster Girl" - Me.CBTagMonsterGirl.UseVisualStyleBackColor = True - ' - 'CBTagBukkake - ' - Me.CBTagBukkake.AutoSize = True - Me.CBTagBukkake.Enabled = False - Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black - Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) - Me.CBTagBukkake.Name = "CBTagBukkake" - Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) - Me.CBTagBukkake.TabIndex = 210 - Me.CBTagBukkake.Text = "Bukkake" - Me.CBTagBukkake.UseVisualStyleBackColor = True - ' - 'CBTagGanguro - ' - Me.CBTagGanguro.AutoSize = True - Me.CBTagGanguro.Enabled = False - Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black - Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) - Me.CBTagGanguro.Name = "CBTagGanguro" - Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) - Me.CBTagGanguro.TabIndex = 205 - Me.CBTagGanguro.Text = "Ganguro" - Me.CBTagGanguro.UseVisualStyleBackColor = True - ' - 'CBTagBodyWriting - ' - Me.CBTagBodyWriting.AutoSize = True - Me.CBTagBodyWriting.Enabled = False - Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) - Me.CBTagBodyWriting.Name = "CBTagBodyWriting" - Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) - Me.CBTagBodyWriting.TabIndex = 208 - Me.CBTagBodyWriting.Text = "Body Writing" - Me.CBTagBodyWriting.UseVisualStyleBackColor = True - ' - 'CBTagMahouShoujo - ' - Me.CBTagMahouShoujo.AutoSize = True - Me.CBTagMahouShoujo.Enabled = False - Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black - Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) - Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" - Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) - Me.CBTagMahouShoujo.TabIndex = 209 - Me.CBTagMahouShoujo.Text = "Mahou Shoujo" - Me.CBTagMahouShoujo.UseVisualStyleBackColor = True - ' - 'CBTagBakunyuu - ' - Me.CBTagBakunyuu.AutoSize = True - Me.CBTagBakunyuu.Enabled = False - Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black - Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) - Me.CBTagBakunyuu.Name = "CBTagBakunyuu" - Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) - Me.CBTagBakunyuu.TabIndex = 213 - Me.CBTagBakunyuu.Text = "Bakunyuu" - Me.CBTagBakunyuu.UseVisualStyleBackColor = True - ' - 'CBTagAhegao - ' - Me.CBTagAhegao.AutoSize = True - Me.CBTagAhegao.Enabled = False - Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black - Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) - Me.CBTagAhegao.Name = "CBTagAhegao" - Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) - Me.CBTagAhegao.TabIndex = 207 - Me.CBTagAhegao.Text = "Ahegao" - Me.CBTagAhegao.UseVisualStyleBackColor = True - ' - 'CBTagShibari - ' - Me.CBTagShibari.AutoSize = True - Me.CBTagShibari.Enabled = False - Me.CBTagShibari.ForeColor = System.Drawing.Color.Black - Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) - Me.CBTagShibari.Name = "CBTagShibari" - Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) - Me.CBTagShibari.TabIndex = 203 - Me.CBTagShibari.Text = "Shibari" - Me.CBTagShibari.UseVisualStyleBackColor = True - ' - 'GroupBox49 - ' - Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) - Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) - Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) - Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) - Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) - Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) - Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) - Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) - Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) - Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) - Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) - Me.GroupBox49.Location = New System.Drawing.Point(341, 37) - Me.GroupBox49.Name = "GroupBox49" - Me.GroupBox49.Size = New System.Drawing.Size(103, 238) - Me.GroupBox49.TabIndex = 236 - Me.GroupBox49.TabStop = False - Me.GroupBox49.Text = "Body Part" - ' - 'CBTagBodyMouth - ' - Me.CBTagBodyMouth.AutoSize = True - Me.CBTagBodyMouth.Enabled = False - Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) - Me.CBTagBodyMouth.Name = "CBTagBodyMouth" - Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) - Me.CBTagBodyMouth.TabIndex = 220 - Me.CBTagBodyMouth.Text = "Mouth" - Me.CBTagBodyMouth.UseVisualStyleBackColor = True - ' - 'CBTagBodyAss - ' - Me.CBTagBodyAss.AutoSize = True - Me.CBTagBodyAss.Enabled = False - Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) - Me.CBTagBodyAss.Name = "CBTagBodyAss" - Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) - Me.CBTagBodyAss.TabIndex = 219 - Me.CBTagBodyAss.Text = "Ass" - Me.CBTagBodyAss.UseVisualStyleBackColor = True - ' - 'CBTagBodyFace - ' - Me.CBTagBodyFace.AutoSize = True - Me.CBTagBodyFace.Enabled = False - Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) - Me.CBTagBodyFace.Name = "CBTagBodyFace" - Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) - Me.CBTagBodyFace.TabIndex = 203 - Me.CBTagBodyFace.Text = "Face" - Me.CBTagBodyFace.UseVisualStyleBackColor = True - ' - 'CBTagBodyLegs - ' - Me.CBTagBodyLegs.AutoSize = True - Me.CBTagBodyLegs.Enabled = False - Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) - Me.CBTagBodyLegs.Name = "CBTagBodyLegs" - Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) - Me.CBTagBodyLegs.TabIndex = 218 - Me.CBTagBodyLegs.Text = "Legs" - Me.CBTagBodyLegs.UseVisualStyleBackColor = True - ' - 'CBTagBodyBalls - ' - Me.CBTagBodyBalls.AutoSize = True - Me.CBTagBodyBalls.Enabled = False - Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) - Me.CBTagBodyBalls.Name = "CBTagBodyBalls" - Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) - Me.CBTagBodyBalls.TabIndex = 217 - Me.CBTagBodyBalls.Text = "Balls" - Me.CBTagBodyBalls.UseVisualStyleBackColor = True - ' - 'CBTagBodyCock - ' - Me.CBTagBodyCock.AutoSize = True - Me.CBTagBodyCock.Enabled = False - Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) - Me.CBTagBodyCock.Name = "CBTagBodyCock" - Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) - Me.CBTagBodyCock.TabIndex = 216 - Me.CBTagBodyCock.Text = "Cock" - Me.CBTagBodyCock.UseVisualStyleBackColor = True - ' - 'CBTagBodyFeet - ' - Me.CBTagBodyFeet.AutoSize = True - Me.CBTagBodyFeet.Enabled = False - Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) - Me.CBTagBodyFeet.Name = "CBTagBodyFeet" - Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) - Me.CBTagBodyFeet.TabIndex = 215 - Me.CBTagBodyFeet.Text = "Feet" - Me.CBTagBodyFeet.UseVisualStyleBackColor = True - ' - 'CBTagBodyNipples - ' - Me.CBTagBodyNipples.AutoSize = True - Me.CBTagBodyNipples.Enabled = False - Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) - Me.CBTagBodyNipples.Name = "CBTagBodyNipples" - Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) - Me.CBTagBodyNipples.TabIndex = 207 - Me.CBTagBodyNipples.Text = "Nipples" - Me.CBTagBodyNipples.UseVisualStyleBackColor = True - ' - 'CBTagBodyPussy - ' - Me.CBTagBodyPussy.AutoSize = True - Me.CBTagBodyPussy.Enabled = False - Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) - Me.CBTagBodyPussy.Name = "CBTagBodyPussy" - Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) - Me.CBTagBodyPussy.TabIndex = 209 - Me.CBTagBodyPussy.Text = "Pussy" - Me.CBTagBodyPussy.UseVisualStyleBackColor = True - ' - 'CBTagBodyTits - ' - Me.CBTagBodyTits.AutoSize = True - Me.CBTagBodyTits.Enabled = False - Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) - Me.CBTagBodyTits.Name = "CBTagBodyTits" - Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) - Me.CBTagBodyTits.TabIndex = 213 - Me.CBTagBodyTits.Text = "Tits" - Me.CBTagBodyTits.UseVisualStyleBackColor = True - ' - 'CBTagBodyFingers - ' - Me.CBTagBodyFingers.AutoSize = True - Me.CBTagBodyFingers.Enabled = False - Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black - Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) - Me.CBTagBodyFingers.Name = "CBTagBodyFingers" - Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) - Me.CBTagBodyFingers.TabIndex = 210 - Me.CBTagBodyFingers.Text = "Fingers" - Me.CBTagBodyFingers.UseVisualStyleBackColor = True - ' - 'GroupBox46 - ' - Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) - Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) - Me.GroupBox46.Controls.Add(Me.CBTagFemdom) - Me.GroupBox46.Controls.Add(Me.CBTag2M) - Me.GroupBox46.Controls.Add(Me.CBTagFutadom) - Me.GroupBox46.Controls.Add(Me.CBTagFemsub) - Me.GroupBox46.Controls.Add(Me.CBTag2Futa) - Me.GroupBox46.Controls.Add(Me.CBTagMaledom) - Me.GroupBox46.Controls.Add(Me.CBTag3M) - Me.GroupBox46.Controls.Add(Me.CBTagFutasub) - Me.GroupBox46.Controls.Add(Me.CBTag3Futa) - Me.GroupBox46.Controls.Add(Me.CBTagMalesub) - Me.GroupBox46.Controls.Add(Me.CBTag2F) - Me.GroupBox46.Controls.Add(Me.CBTag1Futa) - Me.GroupBox46.Controls.Add(Me.CBTag1M) - Me.GroupBox46.Controls.Add(Me.CBTag1F) - Me.GroupBox46.Controls.Add(Me.CBTag3F) - Me.GroupBox46.Location = New System.Drawing.Point(230, 37) - Me.GroupBox46.Name = "GroupBox46" - Me.GroupBox46.Size = New System.Drawing.Size(105, 358) - Me.GroupBox46.TabIndex = 234 - Me.GroupBox46.TabStop = False - Me.GroupBox46.Text = "Genders && Roles" - ' - 'CBTagMultiSub - ' - Me.CBTagMultiSub.AutoSize = True - Me.CBTagMultiSub.Enabled = False - Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black - Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) - Me.CBTagMultiSub.Name = "CBTagMultiSub" - Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) - Me.CBTagMultiSub.TabIndex = 207 - Me.CBTagMultiSub.Text = "Multi-Sub" - Me.CBTagMultiSub.UseVisualStyleBackColor = True - ' - 'CBTagMultiDom - ' - Me.CBTagMultiDom.AutoSize = True - Me.CBTagMultiDom.Enabled = False - Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black - Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) - Me.CBTagMultiDom.Name = "CBTagMultiDom" - Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) - Me.CBTagMultiDom.TabIndex = 230 - Me.CBTagMultiDom.Text = "Multi-Dom" - Me.CBTagMultiDom.UseVisualStyleBackColor = True - ' - 'CBTagFemdom - ' - Me.CBTagFemdom.AutoSize = True - Me.CBTagFemdom.Enabled = False - Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black - Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) - Me.CBTagFemdom.Name = "CBTagFemdom" - Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) - Me.CBTagFemdom.TabIndex = 229 - Me.CBTagFemdom.Text = "Femdom" - Me.CBTagFemdom.UseVisualStyleBackColor = True - ' - 'CBTag2M - ' - Me.CBTag2M.AutoSize = True - Me.CBTag2M.Enabled = False - Me.CBTag2M.ForeColor = System.Drawing.Color.Black - Me.CBTag2M.Location = New System.Drawing.Point(15, 97) - Me.CBTag2M.Name = "CBTag2M" - Me.CBTag2M.Size = New System.Drawing.Size(56, 17) - Me.CBTag2M.TabIndex = 206 - Me.CBTag2M.Text = "2 Men" - Me.CBTag2M.UseVisualStyleBackColor = True - ' - 'CBTagFutadom - ' - Me.CBTagFutadom.AutoSize = True - Me.CBTagFutadom.Enabled = False - Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black - Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) - Me.CBTagFutadom.Name = "CBTagFutadom" - Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) - Me.CBTagFutadom.TabIndex = 204 - Me.CBTagFutadom.Text = "Futadom" - Me.CBTagFutadom.UseVisualStyleBackColor = True - ' - 'CBTagFemsub - ' - Me.CBTagFemsub.AutoSize = True - Me.CBTagFemsub.Enabled = False - Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black - Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) - Me.CBTagFemsub.Name = "CBTagFemsub" - Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) - Me.CBTagFemsub.TabIndex = 205 - Me.CBTagFemsub.Text = "Femsub" - Me.CBTagFemsub.UseVisualStyleBackColor = True - ' - 'CBTag2Futa - ' - Me.CBTag2Futa.AutoSize = True - Me.CBTag2Futa.Enabled = False - Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black - Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) - Me.CBTag2Futa.Name = "CBTag2Futa" - Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) - Me.CBTag2Futa.TabIndex = 186 - Me.CBTag2Futa.Text = "2 Futa" - Me.CBTag2Futa.UseVisualStyleBackColor = True - ' - 'CBTagMaledom - ' - Me.CBTagMaledom.AutoSize = True - Me.CBTagMaledom.Enabled = False - Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black - Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) - Me.CBTagMaledom.Name = "CBTagMaledom" - Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) - Me.CBTagMaledom.TabIndex = 206 - Me.CBTagMaledom.Text = "Maledom" - Me.CBTagMaledom.UseVisualStyleBackColor = True - ' - 'CBTag3M - ' - Me.CBTag3M.AutoSize = True - Me.CBTag3M.Enabled = False - Me.CBTag3M.ForeColor = System.Drawing.Color.Black - Me.CBTag3M.Location = New System.Drawing.Point(15, 117) - Me.CBTag3M.Name = "CBTag3M" - Me.CBTag3M.Size = New System.Drawing.Size(56, 17) - Me.CBTag3M.TabIndex = 190 - Me.CBTag3M.Text = "3 Men" - Me.CBTag3M.UseVisualStyleBackColor = True - ' - 'CBTagFutasub - ' - Me.CBTagFutasub.AutoSize = True - Me.CBTagFutasub.Enabled = False - Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black - Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) - Me.CBTagFutasub.Name = "CBTagFutasub" - Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) - Me.CBTagFutasub.TabIndex = 213 - Me.CBTagFutasub.Text = "Futasub" - Me.CBTagFutasub.UseVisualStyleBackColor = True - ' - 'CBTag3Futa - ' - Me.CBTag3Futa.AutoSize = True - Me.CBTag3Futa.Enabled = False - Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black - Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) - Me.CBTag3Futa.Name = "CBTag3Futa" - Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) - Me.CBTag3Futa.TabIndex = 197 - Me.CBTag3Futa.Text = "3 Futa" - Me.CBTag3Futa.UseVisualStyleBackColor = True - ' - 'CBTagMalesub - ' - Me.CBTagMalesub.AutoSize = True - Me.CBTagMalesub.Enabled = False - Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black - Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) - Me.CBTagMalesub.Name = "CBTagMalesub" - Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) - Me.CBTagMalesub.TabIndex = 210 - Me.CBTagMalesub.Text = "Malesub" - Me.CBTagMalesub.UseVisualStyleBackColor = True - ' - 'CBTag2F - ' - Me.CBTag2F.AutoSize = True - Me.CBTag2F.Enabled = False - Me.CBTag2F.ForeColor = System.Drawing.Color.Black - Me.CBTag2F.Location = New System.Drawing.Point(15, 37) - Me.CBTag2F.Name = "CBTag2F" - Me.CBTag2F.Size = New System.Drawing.Size(72, 17) - Me.CBTag2F.TabIndex = 188 - Me.CBTag2F.Text = "2 Women" - Me.CBTag2F.UseVisualStyleBackColor = True - ' - 'CBTag1Futa - ' - Me.CBTag1Futa.AutoSize = True - Me.CBTag1Futa.Enabled = False - Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black - Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) - Me.CBTag1Futa.Name = "CBTag1Futa" - Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) - Me.CBTag1Futa.TabIndex = 191 - Me.CBTag1Futa.Text = "1 Futa" - Me.CBTag1Futa.UseVisualStyleBackColor = True - ' - 'CBTag1M - ' - Me.CBTag1M.AutoSize = True - Me.CBTag1M.Enabled = False - Me.CBTag1M.ForeColor = System.Drawing.Color.Black - Me.CBTag1M.Location = New System.Drawing.Point(15, 77) - Me.CBTag1M.Name = "CBTag1M" - Me.CBTag1M.Size = New System.Drawing.Size(56, 17) - Me.CBTag1M.TabIndex = 189 - Me.CBTag1M.Text = "1 Man" - Me.CBTag1M.UseVisualStyleBackColor = True - ' - 'CBTag1F - ' - Me.CBTag1F.AutoSize = True - Me.CBTag1F.Enabled = False - Me.CBTag1F.ForeColor = System.Drawing.Color.Black - Me.CBTag1F.Location = New System.Drawing.Point(15, 17) - Me.CBTag1F.Name = "CBTag1F" - Me.CBTag1F.Size = New System.Drawing.Size(72, 17) - Me.CBTag1F.TabIndex = 185 - Me.CBTag1F.Text = "1 Woman" - Me.CBTag1F.UseVisualStyleBackColor = True - ' - 'CBTag3F - ' - Me.CBTag3F.AutoSize = True - Me.CBTag3F.Enabled = False - Me.CBTag3F.ForeColor = System.Drawing.Color.Black - Me.CBTag3F.Location = New System.Drawing.Point(15, 57) - Me.CBTag3F.Name = "CBTag3F" - Me.CBTag3F.Size = New System.Drawing.Size(72, 17) - Me.CBTag3F.TabIndex = 192 - Me.CBTag3F.Text = "3 Women" - Me.CBTag3F.UseVisualStyleBackColor = True - ' - 'GroupBox54 - ' - Me.GroupBox54.Controls.Add(Me.CBTagTattoos) - Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) - Me.GroupBox54.Controls.Add(Me.CBTagDomme) - Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) - Me.GroupBox54.Controls.Add(Me.CBTagWatersports) - Me.GroupBox54.Controls.Add(Me.CBTagStockings) - Me.GroupBox54.Controls.Add(Me.CBTagCumshot) - Me.GroupBox54.Controls.Add(Me.CBTagCumEating) - Me.GroupBox54.Controls.Add(Me.CBTagVibrator) - Me.GroupBox54.Controls.Add(Me.CBTagDildo) - Me.GroupBox54.Controls.Add(Me.CBTagKissing) - Me.GroupBox54.Location = New System.Drawing.Point(561, 37) - Me.GroupBox54.Name = "GroupBox54" - Me.GroupBox54.Size = New System.Drawing.Size(135, 238) - Me.GroupBox54.TabIndex = 239 - Me.GroupBox54.TabStop = False - Me.GroupBox54.Text = "Misc" - ' - 'CBTagTattoos - ' - Me.CBTagTattoos.AutoSize = True - Me.CBTagTattoos.Enabled = False - Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black - Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) - Me.CBTagTattoos.Name = "CBTagTattoos" - Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) - Me.CBTagTattoos.TabIndex = 214 - Me.CBTagTattoos.Text = "Tattoos" - Me.CBTagTattoos.UseVisualStyleBackColor = True - ' - 'CBTagAnalToy - ' - Me.CBTagAnalToy.AutoSize = True - Me.CBTagAnalToy.Enabled = False - Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black - Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) - Me.CBTagAnalToy.Name = "CBTagAnalToy" - Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) - Me.CBTagAnalToy.TabIndex = 215 - Me.CBTagAnalToy.Text = "Anal Toy" - Me.CBTagAnalToy.UseVisualStyleBackColor = True - ' - 'CBTagDomme - ' - Me.CBTagDomme.AutoSize = True - Me.CBTagDomme.Enabled = False - Me.CBTagDomme.ForeColor = System.Drawing.Color.Black - Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) - Me.CBTagDomme.Name = "CBTagDomme" - Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) - Me.CBTagDomme.TabIndex = 219 - Me.CBTagDomme.Text = "Tease A.I. Domme" - Me.CBTagDomme.UseVisualStyleBackColor = True - ' - 'CBTagPocketPussy - ' - Me.CBTagPocketPussy.AutoSize = True - Me.CBTagPocketPussy.Enabled = False - Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black - Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) - Me.CBTagPocketPussy.Name = "CBTagPocketPussy" - Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) - Me.CBTagPocketPussy.TabIndex = 205 - Me.CBTagPocketPussy.Text = "Pocket Pussy" - Me.CBTagPocketPussy.UseVisualStyleBackColor = True - ' - 'CBTagWatersports - ' - Me.CBTagWatersports.AutoSize = True - Me.CBTagWatersports.Enabled = False - Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black - Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) - Me.CBTagWatersports.Name = "CBTagWatersports" - Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) - Me.CBTagWatersports.TabIndex = 218 - Me.CBTagWatersports.Text = "Watersports" - Me.CBTagWatersports.UseVisualStyleBackColor = True - ' - 'CBTagStockings - ' - Me.CBTagStockings.AutoSize = True - Me.CBTagStockings.Enabled = False - Me.CBTagStockings.ForeColor = System.Drawing.Color.Black - Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) - Me.CBTagStockings.Name = "CBTagStockings" - Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) - Me.CBTagStockings.TabIndex = 217 - Me.CBTagStockings.Text = "Stockings" - Me.CBTagStockings.UseVisualStyleBackColor = True - ' - 'CBTagCumshot - ' - Me.CBTagCumshot.AutoSize = True - Me.CBTagCumshot.Enabled = False - Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black - Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) - Me.CBTagCumshot.Name = "CBTagCumshot" - Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) - Me.CBTagCumshot.TabIndex = 206 - Me.CBTagCumshot.Text = "Cumshot" - Me.CBTagCumshot.UseVisualStyleBackColor = True - ' - 'CBTagCumEating - ' - Me.CBTagCumEating.AutoSize = True - Me.CBTagCumEating.Enabled = False - Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black - Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) - Me.CBTagCumEating.Name = "CBTagCumEating" - Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) - Me.CBTagCumEating.TabIndex = 204 - Me.CBTagCumEating.Text = "Cum Eating" - Me.CBTagCumEating.UseVisualStyleBackColor = True - ' - 'CBTagVibrator - ' - Me.CBTagVibrator.AutoSize = True - Me.CBTagVibrator.Enabled = False - Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black - Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) - Me.CBTagVibrator.Name = "CBTagVibrator" - Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) - Me.CBTagVibrator.TabIndex = 210 - Me.CBTagVibrator.Text = "Vibrator" - Me.CBTagVibrator.UseVisualStyleBackColor = True - ' - 'CBTagDildo - ' - Me.CBTagDildo.AutoSize = True - Me.CBTagDildo.Enabled = False - Me.CBTagDildo.ForeColor = System.Drawing.Color.Black - Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) - Me.CBTagDildo.Name = "CBTagDildo" - Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) - Me.CBTagDildo.TabIndex = 213 - Me.CBTagDildo.Text = "Dildo" - Me.CBTagDildo.UseVisualStyleBackColor = True - ' - 'CBTagKissing - ' - Me.CBTagKissing.AutoSize = True - Me.CBTagKissing.Enabled = False - Me.CBTagKissing.ForeColor = System.Drawing.Color.Black - Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) - Me.CBTagKissing.Name = "CBTagKissing" - Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) - Me.CBTagKissing.TabIndex = 203 - Me.CBTagKissing.Text = "Kissing" - Me.CBTagKissing.UseVisualStyleBackColor = True - ' - 'GroupBox51 - ' - Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) - Me.GroupBox51.Controls.Add(Me.CBTagGag) - Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) - Me.GroupBox51.Controls.Add(Me.CBTagWhipping) - Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) - Me.GroupBox51.Controls.Add(Me.CBTagElectro) - Me.GroupBox51.Controls.Add(Me.CBTagHotWax) - Me.GroupBox51.Controls.Add(Me.CBTagClamps) - Me.GroupBox51.Controls.Add(Me.CBTagStrapon) - Me.GroupBox51.Controls.Add(Me.CBTagSpanking) - Me.GroupBox51.Controls.Add(Me.CBTagNeedles) - Me.GroupBox51.Location = New System.Drawing.Point(450, 37) - Me.GroupBox51.Name = "GroupBox51" - Me.GroupBox51.Size = New System.Drawing.Size(105, 238) - Me.GroupBox51.TabIndex = 238 - Me.GroupBox51.TabStop = False - Me.GroupBox51.Text = "BDSM" - ' - 'CBTagBallTorture - ' - Me.CBTagBallTorture.AutoSize = True - Me.CBTagBallTorture.Enabled = False - Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black - Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) - Me.CBTagBallTorture.Name = "CBTagBallTorture" - Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) - Me.CBTagBallTorture.TabIndex = 220 - Me.CBTagBallTorture.Text = "Ball Torture" - Me.CBTagBallTorture.UseVisualStyleBackColor = True - ' - 'CBTagGag - ' - Me.CBTagGag.AutoSize = True - Me.CBTagGag.Enabled = False - Me.CBTagGag.ForeColor = System.Drawing.Color.Black - Me.CBTagGag.Location = New System.Drawing.Point(15, 137) - Me.CBTagGag.Name = "CBTagGag" - Me.CBTagGag.Size = New System.Drawing.Size(46, 17) - Me.CBTagGag.TabIndex = 214 - Me.CBTagGag.Text = "Gag" - Me.CBTagGag.UseVisualStyleBackColor = True - ' - 'CBTagBlindfold - ' - Me.CBTagBlindfold.AutoSize = True - Me.CBTagBlindfold.Enabled = False - Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black - Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) - Me.CBTagBlindfold.Name = "CBTagBlindfold" - Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) - Me.CBTagBlindfold.TabIndex = 208 - Me.CBTagBlindfold.Text = "Blindfold" - Me.CBTagBlindfold.UseVisualStyleBackColor = True - ' - 'CBTagWhipping - ' - Me.CBTagWhipping.AutoSize = True - Me.CBTagWhipping.Enabled = False - Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black - Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) - Me.CBTagWhipping.Name = "CBTagWhipping" - Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) - Me.CBTagWhipping.TabIndex = 203 - Me.CBTagWhipping.Text = "Whipping" - Me.CBTagWhipping.UseVisualStyleBackColor = True - ' - 'CBTagCockTorture - ' - Me.CBTagCockTorture.AutoSize = True - Me.CBTagCockTorture.Enabled = False - Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black - Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) - Me.CBTagCockTorture.Name = "CBTagCockTorture" - Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) - Me.CBTagCockTorture.TabIndex = 204 - Me.CBTagCockTorture.Text = "Cock Torture" - Me.CBTagCockTorture.UseVisualStyleBackColor = True - ' - 'CBTagElectro - ' - Me.CBTagElectro.AutoSize = True - Me.CBTagElectro.Enabled = False - Me.CBTagElectro.ForeColor = System.Drawing.Color.Black - Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) - Me.CBTagElectro.Name = "CBTagElectro" - Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) - Me.CBTagElectro.TabIndex = 207 - Me.CBTagElectro.Text = "Electro" - Me.CBTagElectro.UseVisualStyleBackColor = True - ' - 'CBTagHotWax - ' - Me.CBTagHotWax.AutoSize = True - Me.CBTagHotWax.Enabled = False - Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black - Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) - Me.CBTagHotWax.Name = "CBTagHotWax" - Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) - Me.CBTagHotWax.TabIndex = 213 - Me.CBTagHotWax.Text = "Hot Wax" - Me.CBTagHotWax.UseVisualStyleBackColor = True - ' - 'CBTagClamps - ' - Me.CBTagClamps.AutoSize = True - Me.CBTagClamps.Enabled = False - Me.CBTagClamps.ForeColor = System.Drawing.Color.Black - Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) - Me.CBTagClamps.Name = "CBTagClamps" - Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) - Me.CBTagClamps.TabIndex = 210 - Me.CBTagClamps.Text = "Clamps" - Me.CBTagClamps.UseVisualStyleBackColor = True - ' - 'CBTagStrapon - ' - Me.CBTagStrapon.AutoSize = True - Me.CBTagStrapon.Enabled = False - Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black - Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) - Me.CBTagStrapon.Name = "CBTagStrapon" - Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) - Me.CBTagStrapon.TabIndex = 205 - Me.CBTagStrapon.Text = "Strap-on" - Me.CBTagStrapon.UseVisualStyleBackColor = True - ' - 'CBTagSpanking - ' - Me.CBTagSpanking.AutoSize = True - Me.CBTagSpanking.Enabled = False - Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black - Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) - Me.CBTagSpanking.Name = "CBTagSpanking" - Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) - Me.CBTagSpanking.TabIndex = 206 - Me.CBTagSpanking.Text = "Spanking" - Me.CBTagSpanking.UseVisualStyleBackColor = True - ' - 'CBTagNeedles - ' - Me.CBTagNeedles.AutoSize = True - Me.CBTagNeedles.Enabled = False - Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black - Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) - Me.CBTagNeedles.Name = "CBTagNeedles" - Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) - Me.CBTagNeedles.TabIndex = 209 - Me.CBTagNeedles.Text = "Needles" - Me.CBTagNeedles.UseVisualStyleBackColor = True - ' - 'GroupBox50 - ' - Me.GroupBox50.Controls.Add(Me.CBTagRimming) - Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) - Me.GroupBox50.Controls.Add(Me.CBTagMissionary) - Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) - Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) - Me.GroupBox50.Controls.Add(Me.CBTagFingering) - Me.GroupBox50.Controls.Add(Me.CBTagGangbang) - Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) - Me.GroupBox50.Controls.Add(Me.CBTagDP) - Me.GroupBox50.Controls.Add(Me.CBTagHandjob) - Me.GroupBox50.Controls.Add(Me.CBTagStanding) - Me.GroupBox50.Controls.Add(Me.CBTagFootjob) - Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) - Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) - Me.GroupBox50.Controls.Add(Me.CBTagTitjob) - Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) - Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) - Me.GroupBox50.Location = New System.Drawing.Point(119, 37) - Me.GroupBox50.Name = "GroupBox50" - Me.GroupBox50.Size = New System.Drawing.Size(105, 358) - Me.GroupBox50.TabIndex = 237 - Me.GroupBox50.TabStop = False - Me.GroupBox50.Text = "Sex" - ' - 'CBTagRimming - ' - Me.CBTagRimming.AutoSize = True - Me.CBTagRimming.Enabled = False - Me.CBTagRimming.ForeColor = System.Drawing.Color.Black - Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) - Me.CBTagRimming.Name = "CBTagRimming" - Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) - Me.CBTagRimming.TabIndex = 219 - Me.CBTagRimming.Text = "Rimming" - Me.CBTagRimming.UseVisualStyleBackColor = True - ' - 'CBTagFacesitting - ' - Me.CBTagFacesitting.AutoSize = True - Me.CBTagFacesitting.Enabled = False - Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black - Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) - Me.CBTagFacesitting.Name = "CBTagFacesitting" - Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) - Me.CBTagFacesitting.TabIndex = 226 - Me.CBTagFacesitting.Text = "Facesitting" - Me.CBTagFacesitting.UseVisualStyleBackColor = True - ' - 'CBTagMissionary - ' - Me.CBTagMissionary.AutoSize = True - Me.CBTagMissionary.Enabled = False - Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black - Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) - Me.CBTagMissionary.Name = "CBTagMissionary" - Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) - Me.CBTagMissionary.TabIndex = 208 - Me.CBTagMissionary.Text = "Missionary" - Me.CBTagMissionary.UseVisualStyleBackColor = True - ' - 'CBTagMasturbation - ' - Me.CBTagMasturbation.AutoSize = True - Me.CBTagMasturbation.Enabled = False - Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black - Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) - Me.CBTagMasturbation.Name = "CBTagMasturbation" - Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) - Me.CBTagMasturbation.TabIndex = 203 - Me.CBTagMasturbation.Text = "Masturbation" - Me.CBTagMasturbation.UseVisualStyleBackColor = True - ' - 'CBTagRCowgirl - ' - Me.CBTagRCowgirl.AutoSize = True - Me.CBTagRCowgirl.Enabled = False - Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black - Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) - Me.CBTagRCowgirl.Name = "CBTagRCowgirl" - Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) - Me.CBTagRCowgirl.TabIndex = 218 - Me.CBTagRCowgirl.Text = "R. Cowgirl" - Me.CBTagRCowgirl.UseVisualStyleBackColor = True - ' - 'CBTagFingering - ' - Me.CBTagFingering.AutoSize = True - Me.CBTagFingering.Enabled = False - Me.CBTagFingering.ForeColor = System.Drawing.Color.Black - Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) - Me.CBTagFingering.Name = "CBTagFingering" - Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) - Me.CBTagFingering.TabIndex = 204 - Me.CBTagFingering.Text = "Fingering" - Me.CBTagFingering.UseVisualStyleBackColor = True - ' - 'CBTagGangbang - ' - Me.CBTagGangbang.AutoSize = True - Me.CBTagGangbang.Enabled = False - Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black - Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) - Me.CBTagGangbang.Name = "CBTagGangbang" - Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) - Me.CBTagGangbang.TabIndex = 217 - Me.CBTagGangbang.Text = "Gangbang" - Me.CBTagGangbang.UseVisualStyleBackColor = True - ' - 'CBTagBlowjob - ' - Me.CBTagBlowjob.AutoSize = True - Me.CBTagBlowjob.Enabled = False - Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black - Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) - Me.CBTagBlowjob.Name = "CBTagBlowjob" - Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) - Me.CBTagBlowjob.TabIndex = 205 - Me.CBTagBlowjob.Text = "Blowjob" - Me.CBTagBlowjob.UseVisualStyleBackColor = True - ' - 'CBTagDP - ' - Me.CBTagDP.AutoSize = True - Me.CBTagDP.Enabled = False - Me.CBTagDP.ForeColor = System.Drawing.Color.Black - Me.CBTagDP.Location = New System.Drawing.Point(15, 317) - Me.CBTagDP.Name = "CBTagDP" - Me.CBTagDP.Size = New System.Drawing.Size(41, 17) - Me.CBTagDP.TabIndex = 216 - Me.CBTagDP.Text = "DP" - Me.CBTagDP.UseVisualStyleBackColor = True - ' - 'CBTagHandjob - ' - Me.CBTagHandjob.AutoSize = True - Me.CBTagHandjob.Enabled = False - Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black - Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) - Me.CBTagHandjob.Name = "CBTagHandjob" - Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) - Me.CBTagHandjob.TabIndex = 206 - Me.CBTagHandjob.Text = "Handjob" - Me.CBTagHandjob.UseVisualStyleBackColor = True - ' - 'CBTagStanding - ' - Me.CBTagStanding.AutoSize = True - Me.CBTagStanding.Enabled = False - Me.CBTagStanding.ForeColor = System.Drawing.Color.Black - Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) - Me.CBTagStanding.Name = "CBTagStanding" - Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) - Me.CBTagStanding.TabIndex = 215 - Me.CBTagStanding.Text = "Standing" - Me.CBTagStanding.UseVisualStyleBackColor = True - ' - 'CBTagFootjob - ' - Me.CBTagFootjob.AutoSize = True - Me.CBTagFootjob.Enabled = False - Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black - Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) - Me.CBTagFootjob.Name = "CBTagFootjob" - Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) - Me.CBTagFootjob.TabIndex = 207 - Me.CBTagFootjob.Text = "Footjob" - Me.CBTagFootjob.UseVisualStyleBackColor = True - ' - 'CBTagCowgirl - ' - Me.CBTagCowgirl.AutoSize = True - Me.CBTagCowgirl.Enabled = False - Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black - Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) - Me.CBTagCowgirl.Name = "CBTagCowgirl" - Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) - Me.CBTagCowgirl.TabIndex = 214 - Me.CBTagCowgirl.Text = "Cowgirl" - Me.CBTagCowgirl.UseVisualStyleBackColor = True - ' - 'CBTagDoggyStyle - ' - Me.CBTagDoggyStyle.AutoSize = True - Me.CBTagDoggyStyle.Enabled = False - Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black - Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) - Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" - Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) - Me.CBTagDoggyStyle.TabIndex = 209 - Me.CBTagDoggyStyle.Text = "Doggy Style" - Me.CBTagDoggyStyle.UseVisualStyleBackColor = True - ' - 'CBTagTitjob - ' - Me.CBTagTitjob.AutoSize = True - Me.CBTagTitjob.Enabled = False - Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black - Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) - Me.CBTagTitjob.Name = "CBTagTitjob" - Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) - Me.CBTagTitjob.TabIndex = 213 - Me.CBTagTitjob.Text = "Titjob" - Me.CBTagTitjob.UseVisualStyleBackColor = True - ' - 'CBTagCunnilingus - ' - Me.CBTagCunnilingus.AutoSize = True - Me.CBTagCunnilingus.Enabled = False - Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black - Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) - Me.CBTagCunnilingus.Name = "CBTagCunnilingus" - Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) - Me.CBTagCunnilingus.TabIndex = 210 - Me.CBTagCunnilingus.Text = "Cunnilingus" - Me.CBTagCunnilingus.UseVisualStyleBackColor = True - ' - 'CBTagAnalSex - ' - Me.CBTagAnalSex.AutoSize = True - Me.CBTagAnalSex.Enabled = False - Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black - Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) - Me.CBTagAnalSex.Name = "CBTagAnalSex" - Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) - Me.CBTagAnalSex.TabIndex = 212 - Me.CBTagAnalSex.Text = "Anal Sex" - Me.CBTagAnalSex.UseVisualStyleBackColor = True - ' - 'GroupBox48 - ' - Me.GroupBox48.Controls.Add(Me.CBTagArtwork) - Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) - Me.GroupBox48.Controls.Add(Me.CBTagPOV) - Me.GroupBox48.Controls.Add(Me.CBTagHardcore) - Me.GroupBox48.Controls.Add(Me.CBTagTD) - Me.GroupBox48.Controls.Add(Me.CBTagGay) - Me.GroupBox48.Controls.Add(Me.CBTagBath) - Me.GroupBox48.Controls.Add(Me.CBTagBisexual) - Me.GroupBox48.Controls.Add(Me.CBTagCFNM) - Me.GroupBox48.Controls.Add(Me.CBTagLesbian) - Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) - Me.GroupBox48.Controls.Add(Me.CBTagSM) - Me.GroupBox48.Controls.Add(Me.CBTagBondage) - Me.GroupBox48.Controls.Add(Me.CBTagSoloM) - Me.GroupBox48.Controls.Add(Me.CBTagSoloF) - Me.GroupBox48.Controls.Add(Me.CBTagChastity) - Me.GroupBox48.Controls.Add(Me.CBTagShower) - Me.GroupBox48.Location = New System.Drawing.Point(8, 37) - Me.GroupBox48.Name = "GroupBox48" - Me.GroupBox48.Size = New System.Drawing.Size(105, 358) - Me.GroupBox48.TabIndex = 235 - Me.GroupBox48.TabStop = False - Me.GroupBox48.Text = "Category" - ' - 'CBTagArtwork - ' - Me.CBTagArtwork.AutoSize = True - Me.CBTagArtwork.Enabled = False - Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black - Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) - Me.CBTagArtwork.Name = "CBTagArtwork" - Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) - Me.CBTagArtwork.TabIndex = 225 - Me.CBTagArtwork.Text = "Artwork" - Me.CBTagArtwork.UseVisualStyleBackColor = True - ' - 'CBTagOutdoors - ' - Me.CBTagOutdoors.AutoSize = True - Me.CBTagOutdoors.Enabled = False - Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black - Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) - Me.CBTagOutdoors.Name = "CBTagOutdoors" - Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) - Me.CBTagOutdoors.TabIndex = 219 - Me.CBTagOutdoors.Text = "Outdoors" - Me.CBTagOutdoors.UseVisualStyleBackColor = True - ' - 'CBTagPOV - ' - Me.CBTagPOV.AutoSize = True - Me.CBTagPOV.Enabled = False - Me.CBTagPOV.ForeColor = System.Drawing.Color.Black - Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) - Me.CBTagPOV.Name = "CBTagPOV" - Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) - Me.CBTagPOV.TabIndex = 208 - Me.CBTagPOV.Text = "POV" - Me.CBTagPOV.UseVisualStyleBackColor = True - ' - 'CBTagHardcore - ' - Me.CBTagHardcore.AutoSize = True - Me.CBTagHardcore.Enabled = False - Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black - Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) - Me.CBTagHardcore.Name = "CBTagHardcore" - Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) - Me.CBTagHardcore.TabIndex = 203 - Me.CBTagHardcore.Text = "Hardcore" - Me.CBTagHardcore.UseVisualStyleBackColor = True - ' - 'CBTagTD - ' - Me.CBTagTD.AutoSize = True - Me.CBTagTD.Enabled = False - Me.CBTagTD.ForeColor = System.Drawing.Color.Black - Me.CBTagTD.Location = New System.Drawing.Point(15, 217) - Me.CBTagTD.Name = "CBTagTD" - Me.CBTagTD.Size = New System.Drawing.Size(47, 17) - Me.CBTagTD.TabIndex = 218 - Me.CBTagTD.Text = "T&&D" - Me.CBTagTD.UseVisualStyleBackColor = True - ' - 'CBTagGay - ' - Me.CBTagGay.AutoSize = True - Me.CBTagGay.Enabled = False - Me.CBTagGay.ForeColor = System.Drawing.Color.Black - Me.CBTagGay.Location = New System.Drawing.Point(15, 57) - Me.CBTagGay.Name = "CBTagGay" - Me.CBTagGay.Size = New System.Drawing.Size(45, 17) - Me.CBTagGay.TabIndex = 204 - Me.CBTagGay.Text = "Gay" - Me.CBTagGay.UseVisualStyleBackColor = True - ' - 'CBTagBath - ' - Me.CBTagBath.AutoSize = True - Me.CBTagBath.Enabled = False - Me.CBTagBath.ForeColor = System.Drawing.Color.Black - Me.CBTagBath.Location = New System.Drawing.Point(15, 277) - Me.CBTagBath.Name = "CBTagBath" - Me.CBTagBath.Size = New System.Drawing.Size(48, 17) - Me.CBTagBath.TabIndex = 217 - Me.CBTagBath.Text = "Bath" - Me.CBTagBath.UseVisualStyleBackColor = True - ' - 'CBTagBisexual - ' - Me.CBTagBisexual.AutoSize = True - Me.CBTagBisexual.Enabled = False - Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black - Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) - Me.CBTagBisexual.Name = "CBTagBisexual" - Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) - Me.CBTagBisexual.TabIndex = 205 - Me.CBTagBisexual.Text = "Bisexual" - Me.CBTagBisexual.UseVisualStyleBackColor = True - ' - 'CBTagCFNM - ' - Me.CBTagCFNM.AutoSize = True - Me.CBTagCFNM.Enabled = False - Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black - Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) - Me.CBTagCFNM.Name = "CBTagCFNM" - Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) - Me.CBTagCFNM.TabIndex = 216 - Me.CBTagCFNM.Text = "CFNM" - Me.CBTagCFNM.UseVisualStyleBackColor = True - ' - 'CBTagLesbian - ' - Me.CBTagLesbian.AutoSize = True - Me.CBTagLesbian.Enabled = False - Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black - Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) - Me.CBTagLesbian.Name = "CBTagLesbian" - Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) - Me.CBTagLesbian.TabIndex = 206 - Me.CBTagLesbian.Text = "Lesbian" - Me.CBTagLesbian.UseVisualStyleBackColor = True - ' - 'CBTagSoloFuta - ' - Me.CBTagSoloFuta.AutoSize = True - Me.CBTagSoloFuta.Enabled = False - Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black - Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) - Me.CBTagSoloFuta.Name = "CBTagSoloFuta" - Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) - Me.CBTagSoloFuta.TabIndex = 207 - Me.CBTagSoloFuta.Text = "Solo Futa" - Me.CBTagSoloFuta.UseVisualStyleBackColor = True - ' - 'CBTagSM - ' - Me.CBTagSM.AutoSize = True - Me.CBTagSM.Enabled = False - Me.CBTagSM.ForeColor = System.Drawing.Color.Black - Me.CBTagSM.Location = New System.Drawing.Point(15, 197) - Me.CBTagSM.Name = "CBTagSM" - Me.CBTagSM.Size = New System.Drawing.Size(48, 17) - Me.CBTagSM.TabIndex = 214 - Me.CBTagSM.Text = "S&&M" - Me.CBTagSM.UseVisualStyleBackColor = True - ' - 'CBTagBondage - ' - Me.CBTagBondage.AutoSize = True - Me.CBTagBondage.Enabled = False - Me.CBTagBondage.ForeColor = System.Drawing.Color.Black - Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) - Me.CBTagBondage.Name = "CBTagBondage" - Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) - Me.CBTagBondage.TabIndex = 209 - Me.CBTagBondage.Text = "Bondage" - Me.CBTagBondage.UseVisualStyleBackColor = True - ' - 'CBTagSoloM - ' - Me.CBTagSoloM.AutoSize = True - Me.CBTagSoloM.Enabled = False - Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black - Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) - Me.CBTagSoloM.Name = "CBTagSoloM" - Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) - Me.CBTagSoloM.TabIndex = 213 - Me.CBTagSoloM.Text = "Solo M" - Me.CBTagSoloM.UseVisualStyleBackColor = True - ' - 'CBTagSoloF - ' - Me.CBTagSoloF.AutoSize = True - Me.CBTagSoloF.Enabled = False - Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black - Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) - Me.CBTagSoloF.Name = "CBTagSoloF" - Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) - Me.CBTagSoloF.TabIndex = 210 - Me.CBTagSoloF.Text = "Solo F" - Me.CBTagSoloF.UseVisualStyleBackColor = True - ' - 'CBTagChastity - ' - Me.CBTagChastity.AutoSize = True - Me.CBTagChastity.Enabled = False - Me.CBTagChastity.ForeColor = System.Drawing.Color.Black - Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) - Me.CBTagChastity.Name = "CBTagChastity" - Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) - Me.CBTagChastity.TabIndex = 212 - Me.CBTagChastity.Text = "Chastity" - Me.CBTagChastity.UseVisualStyleBackColor = True - ' - 'CBTagShower - ' - Me.CBTagShower.AutoSize = True - Me.CBTagShower.Enabled = False - Me.CBTagShower.ForeColor = System.Drawing.Color.Black - Me.CBTagShower.Location = New System.Drawing.Point(15, 297) - Me.CBTagShower.Name = "CBTagShower" - Me.CBTagShower.Size = New System.Drawing.Size(62, 17) - Me.CBTagShower.TabIndex = 211 - Me.CBTagShower.Text = "Shower" - Me.CBTagShower.UseVisualStyleBackColor = True - ' - 'TBLocalTagDir - ' - Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) - Me.TBLocalTagDir.Name = "TBLocalTagDir" - Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) - Me.TBLocalTagDir.TabIndex = 233 - Me.TBLocalTagDir.Text = "Enter Image Directory" - ' - 'BTNLocalTagPrevious - ' - Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray - Me.BTNLocalTagPrevious.Enabled = False - Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black - Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) - Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" - Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) - Me.BTNLocalTagPrevious.TabIndex = 232 - Me.BTNLocalTagPrevious.Text = "<<" - Me.BTNLocalTagPrevious.UseVisualStyleBackColor = False - ' - 'BTNLocalTagNext - ' - Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray - Me.BTNLocalTagNext.Enabled = False - Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black - Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) - Me.BTNLocalTagNext.Name = "BTNLocalTagNext" - Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) - Me.BTNLocalTagNext.TabIndex = 231 - Me.BTNLocalTagNext.Text = ">>" - Me.BTNLocalTagNext.UseVisualStyleBackColor = False - ' - 'LBLLocalTagCount - ' - Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent - Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLLocalTagCount.Enabled = False - Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black - Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) - Me.LBLLocalTagCount.Name = "LBLLocalTagCount" - Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) - Me.LBLLocalTagCount.TabIndex = 230 - Me.LBLLocalTagCount.Text = "0/0" - Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNLocalTagSave - ' - Me.BTNLocalTagSave.Enabled = False - Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) - Me.BTNLocalTagSave.Name = "BTNLocalTagSave" - Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) - Me.BTNLocalTagSave.TabIndex = 229 - Me.BTNLocalTagSave.Text = "Finished" - Me.BTNLocalTagSave.UseVisualStyleBackColor = True - ' - 'BTNLocalTagDir - ' - Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) - Me.BTNLocalTagDir.Name = "BTNLocalTagDir" - Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) - Me.BTNLocalTagDir.TabIndex = 228 - Me.BTNLocalTagDir.Text = "1" - Me.BTNLocalTagDir.UseVisualStyleBackColor = True - ' - 'TabPage11 - ' - Me.TabPage11.BackColor = System.Drawing.Color.Silver - Me.TabPage11.Controls.Add(Me.Panel7) - Me.TabPage11.Location = New System.Drawing.Point(4, 22) - Me.TabPage11.Name = "TabPage11" - Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage11.Size = New System.Drawing.Size(720, 448) - Me.TabPage11.TabIndex = 10 - Me.TabPage11.Text = "URL Files" - ' - 'Panel7 - ' - Me.Panel7.BackColor = System.Drawing.Color.LightGray - Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel7.Controls.Add(Me.BTNWIContinue) - Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) - Me.Panel7.Controls.Add(Me.BTNWICancel) - Me.Panel7.Controls.Add(Me.CBWIReview) - Me.Panel7.Controls.Add(Me.BTNWIBrowse) - Me.Panel7.Controls.Add(Me.TBWIDirectory) - Me.Panel7.Controls.Add(Me.BTNWIDisliked) - Me.Panel7.Controls.Add(Me.BTNWILiked) - Me.Panel7.Controls.Add(Me.BTNWIRemove) - Me.Panel7.Controls.Add(Me.CBWISaveToDisk) - Me.Panel7.Controls.Add(Me.PictureBox5) - Me.Panel7.Controls.Add(Me.WebImageProgressBar) - Me.Panel7.Controls.Add(Me.BTNWICreateURL) - Me.Panel7.Controls.Add(Me.LBLWebImageCount) - Me.Panel7.Controls.Add(Me.BTNWISave) - Me.Panel7.Controls.Add(Me.BTNWIOpenURL) - Me.Panel7.Controls.Add(Me.BTNWIPrevious) - Me.Panel7.Controls.Add(Me.BTNWINext) - Me.Panel7.Controls.Add(Me.WebPictureBox) - Me.Panel7.Controls.Add(Me.Label71) - Me.Panel7.Location = New System.Drawing.Point(6, 6) - Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(708, 437) - Me.Panel7.TabIndex = 91 - ' - 'BTNWIContinue - ' - Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray - Me.BTNWIContinue.Enabled = False - Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black - Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) - Me.BTNWIContinue.Name = "BTNWIContinue" - Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) - Me.BTNWIContinue.TabIndex = 168 - Me.BTNWIContinue.Text = "Continue" - Me.BTNWIContinue.UseVisualStyleBackColor = False - ' - 'BTNWIAddandContinue - ' - Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray - Me.BTNWIAddandContinue.Enabled = False - Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black - Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) - Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" - Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) - Me.BTNWIAddandContinue.TabIndex = 167 - Me.BTNWIAddandContinue.Text = "Add and Continue" - Me.BTNWIAddandContinue.UseVisualStyleBackColor = False - ' - 'BTNWICancel - ' - Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray - Me.BTNWICancel.Enabled = False - Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWICancel.ForeColor = System.Drawing.Color.Black - Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) - Me.BTNWICancel.Name = "BTNWICancel" - Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) - Me.BTNWICancel.TabIndex = 166 - Me.BTNWICancel.Text = "Cancel" - Me.BTNWICancel.UseVisualStyleBackColor = False - ' - 'CBWIReview - ' - Me.CBWIReview.Location = New System.Drawing.Point(567, 69) - Me.CBWIReview.Name = "CBWIReview" - Me.CBWIReview.Size = New System.Drawing.Size(124, 30) - Me.CBWIReview.TabIndex = 165 - Me.CBWIReview.Text = "Review Each Image" - Me.CBWIReview.UseVisualStyleBackColor = True - ' - 'BTNWIBrowse - ' - Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray - Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black - Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) - Me.BTNWIBrowse.Name = "BTNWIBrowse" - Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) - Me.BTNWIBrowse.TabIndex = 163 - Me.BTNWIBrowse.Text = "Browse" - Me.BTNWIBrowse.UseVisualStyleBackColor = False - ' - 'TBWIDirectory - ' - Me.TBWIDirectory.BackColor = System.Drawing.Color.White - Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black - Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) - Me.TBWIDirectory.Name = "TBWIDirectory" - Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) - Me.TBWIDirectory.TabIndex = 164 - Me.TBWIDirectory.Text = "Saved Image Directory" - ' - 'BTNWIDisliked - ' - Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray - Me.BTNWIDisliked.Enabled = False - Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black - Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) - Me.BTNWIDisliked.Name = "BTNWIDisliked" - Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) - Me.BTNWIDisliked.TabIndex = 162 - Me.BTNWIDisliked.Text = "Add to Disliked Images" - Me.BTNWIDisliked.UseVisualStyleBackColor = False - ' - 'BTNWILiked - ' - Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray - Me.BTNWILiked.Enabled = False - Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWILiked.ForeColor = System.Drawing.Color.Black - Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) - Me.BTNWILiked.Name = "BTNWILiked" - Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) - Me.BTNWILiked.TabIndex = 161 - Me.BTNWILiked.Text = "Add to Liked Images" - Me.BTNWILiked.UseVisualStyleBackColor = False - ' - 'BTNWIRemove - ' - Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray - Me.BTNWIRemove.Enabled = False - Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black - Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) - Me.BTNWIRemove.Name = "BTNWIRemove" - Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) - Me.BTNWIRemove.TabIndex = 160 - Me.BTNWIRemove.Text = "Remove From URL File" - Me.BTNWIRemove.UseVisualStyleBackColor = False - ' - 'CBWISaveToDisk - ' - Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) - Me.CBWISaveToDisk.Name = "CBWISaveToDisk" - Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) - Me.CBWISaveToDisk.TabIndex = 157 - Me.CBWISaveToDisk.Text = "Save Images to Disk" - Me.CBWISaveToDisk.UseVisualStyleBackColor = True - ' - 'PictureBox5 - ' - Me.PictureBox5.BackColor = System.Drawing.Color.LightGray - Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox5.Location = New System.Drawing.Point(9, 6) - Me.PictureBox5.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(160, 19) - Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox5.TabIndex = 156 - Me.PictureBox5.TabStop = False - ' - 'WebImageProgressBar - ' - Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) - Me.WebImageProgressBar.Maximum = 2500 - Me.WebImageProgressBar.Name = "WebImageProgressBar" - Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) - Me.WebImageProgressBar.TabIndex = 155 - ' - 'BTNWICreateURL - ' - Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray - Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black - Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) - Me.BTNWICreateURL.Name = "BTNWICreateURL" - Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) - Me.BTNWICreateURL.TabIndex = 154 - Me.BTNWICreateURL.Text = "Create URL File" - Me.BTNWICreateURL.UseVisualStyleBackColor = False - ' - 'LBLWebImageCount - ' - Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent - Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black - Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) - Me.LBLWebImageCount.Name = "LBLWebImageCount" - Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) - Me.LBLWebImageCount.TabIndex = 153 - Me.LBLWebImageCount.Text = "0/0" - Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNWISave - ' - Me.BTNWISave.BackColor = System.Drawing.Color.LightGray - Me.BTNWISave.Enabled = False - Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWISave.ForeColor = System.Drawing.Color.Black - Me.BTNWISave.Location = New System.Drawing.Point(567, 401) - Me.BTNWISave.Name = "BTNWISave" - Me.BTNWISave.Size = New System.Drawing.Size(131, 24) - Me.BTNWISave.TabIndex = 152 - Me.BTNWISave.Text = "Save Image to Disk" - Me.BTNWISave.UseVisualStyleBackColor = False - ' - 'BTNWIOpenURL - ' - Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray - Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black - Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) - Me.BTNWIOpenURL.Name = "BTNWIOpenURL" - Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) - Me.BTNWIOpenURL.TabIndex = 151 - Me.BTNWIOpenURL.Text = "Open URL File" - Me.BTNWIOpenURL.UseVisualStyleBackColor = False - ' - 'BTNWIPrevious - ' - Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray - Me.BTNWIPrevious.Enabled = False - Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black - Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) - Me.BTNWIPrevious.Name = "BTNWIPrevious" - Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) - Me.BTNWIPrevious.TabIndex = 149 - Me.BTNWIPrevious.Text = "<<" - Me.BTNWIPrevious.UseVisualStyleBackColor = False - ' - 'BTNWINext - ' - Me.BTNWINext.BackColor = System.Drawing.Color.LightGray - Me.BTNWINext.Enabled = False - Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNWINext.ForeColor = System.Drawing.Color.Black - Me.BTNWINext.Location = New System.Drawing.Point(651, 282) - Me.BTNWINext.Name = "BTNWINext" - Me.BTNWINext.Size = New System.Drawing.Size(47, 24) - Me.BTNWINext.TabIndex = 150 - Me.BTNWINext.Text = ">>" - Me.BTNWINext.UseVisualStyleBackColor = False - ' - 'WebPictureBox - ' - Me.WebPictureBox.BackColor = System.Drawing.Color.Black - Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) - Me.WebPictureBox.Name = "WebPictureBox" - Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) - Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.WebPictureBox.TabIndex = 148 - Me.WebPictureBox.TabStop = False - ' - 'Label71 - ' - Me.Label71.BackColor = System.Drawing.Color.Transparent - Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label71.ForeColor = System.Drawing.Color.Black - Me.Label71.Location = New System.Drawing.Point(7, 6) - Me.Label71.Name = "Label71" - Me.Label71.Size = New System.Drawing.Size(692, 21) - Me.Label71.TabIndex = 48 - Me.Label71.Text = "URL Files" - Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TpVideoSettings - ' - Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver - Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) - Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) - Me.TpVideoSettings.Name = "TpVideoSettings" - Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) - Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) - Me.TpVideoSettings.TabIndex = 2 - Me.TpVideoSettings.Text = "Video" - ' - 'PnlVideoSettings - ' - Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray - Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) - Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) - Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) - Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) - Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill - Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) - Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) - Me.PnlVideoSettings.Name = "PnlVideoSettings" - Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) - Me.PnlVideoSettings.TabIndex = 92 - ' - 'PbBannerVideoSettings - ' - Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray - Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) - Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" - Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) - Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PbBannerVideoSettings.TabIndex = 151 - Me.PbBannerVideoSettings.TabStop = False - ' - 'BTNRefreshVideos - ' - Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray - Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh - Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 - Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black - Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) - Me.BTNRefreshVideos.Name = "BTNRefreshVideos" - Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) - Me.BTNRefreshVideos.TabIndex = 149 - Me.BTNRefreshVideos.UseVisualStyleBackColor = False - ' - 'GbxVideoGeneralD - ' - Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) - Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) - Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) - Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) - Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) - Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" - Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) - Me.GbxVideoGeneralD.TabIndex = 5 - Me.GbxVideoGeneralD.TabStop = False - Me.GbxVideoGeneralD.Text = "Domme General" - ' - 'LblVideoGeneralTotalD - ' - Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) - Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" - Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoGeneralTotalD.TabIndex = 3 - Me.LblVideoGeneralTotalD.Text = "0" - Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoGeneralD - ' - Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" - Me.TxbVideoGeneralD.ReadOnly = True - Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneralD.TabIndex = 2 - Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD - ' - 'BTNVideoGeneralD - ' - Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" - Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoGeneralD.TabIndex = 1 - Me.BTNVideoGeneralD.Text = "1" - Me.BTNVideoGeneralD.UseVisualStyleBackColor = False - ' - 'CBVideoGeneralD - ' - Me.CBVideoGeneralD.AutoSize = True - Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD - Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black - Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) - Me.CBVideoGeneralD.Name = "CBVideoGeneralD" - Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoGeneralD.TabIndex = 0 - Me.CBVideoGeneralD.Text = "General" - Me.CBVideoGeneralD.UseVisualStyleBackColor = True - ' - 'GbxVideoSpecialD - ' - Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) - Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) - Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) - Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) - Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) - Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) - Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) - Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) - Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black - Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) - Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" - Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) - Me.GbxVideoSpecialD.TabIndex = 4 - Me.GbxVideoSpecialD.TabStop = False - Me.GbxVideoSpecialD.Text = "Domme Special" - ' - 'LblVideoCHTotalD - ' - Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) - Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" - Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoCHTotalD.TabIndex = 7 - Me.LblVideoCHTotalD.Text = "0" - Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LblVideoJOITotalD - ' - Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) - Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" - Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoJOITotalD.TabIndex = 3 - Me.LblVideoJOITotalD.Text = "0" - Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoCHD - ' - Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) - Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoCHD.Name = "TxbVideoCHD" - Me.TxbVideoCHD.ReadOnly = True - Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoCHD.TabIndex = 6 - Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD - ' - 'TxbVideoJOID - ' - Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black - Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoJOID.Name = "TxbVideoJOID" - Me.TxbVideoJOID.ReadOnly = True - Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoJOID.TabIndex = 2 - Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID - ' - 'BTNVideoCHD - ' - Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoCHD.Name = "BTNVideoCHD" - Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoCHD.TabIndex = 5 - Me.BTNVideoCHD.Text = "1" - Me.BTNVideoCHD.UseVisualStyleBackColor = False - ' - 'BTNVideoJOID - ' - Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black - Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoJOID.Name = "BTNVideoJOID" - Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoJOID.TabIndex = 1 - Me.BTNVideoJOID.Text = "1" - Me.BTNVideoJOID.UseVisualStyleBackColor = False - ' - 'CBVideoJOID - ' - Me.CBVideoJOID.AutoSize = True - Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID - Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black - Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) - Me.CBVideoJOID.Name = "CBVideoJOID" - Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) - Me.CBVideoJOID.TabIndex = 0 - Me.CBVideoJOID.Text = "JOI" - Me.CBVideoJOID.UseVisualStyleBackColor = True - ' - 'CBVideoCHD - ' - Me.CBVideoCHD.AutoSize = True - Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD - Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black - Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) - Me.CBVideoCHD.Name = "CBVideoCHD" - Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) - Me.CBVideoCHD.TabIndex = 4 - Me.CBVideoCHD.Text = "CH" - Me.CBVideoCHD.UseVisualStyleBackColor = True - ' - 'GbxVideoGenreD - ' - Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) - Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) - Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) - Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) - Me.GbxVideoGenreD.Name = "GbxVideoGenreD" - Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) - Me.GbxVideoGenreD.TabIndex = 3 - Me.GbxVideoGenreD.TabStop = False - Me.GbxVideoGenreD.Text = "Domme Genre" - ' - 'LblVideoFemsubTotalD - ' - Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) - Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" - Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemsubTotalD.TabIndex = 23 - Me.LblVideoFemsubTotalD.Text = "0" - Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemsubD - ' - Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) - Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" - Me.TxbVideoFemsubD.ReadOnly = True - Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsubD.TabIndex = 22 - Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD - ' - 'LblVideoFemdomTotalD - ' - Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) - Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" - Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemdomTotalD.TabIndex = 19 - Me.LblVideoFemdomTotalD.Text = "0" - Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemdomD - ' - Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) - Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" - Me.TxbVideoFemdomD.ReadOnly = True - Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdomD.TabIndex = 18 - Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD - ' - 'TxbVideoBlowjobD - ' - Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) - Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" - Me.TxbVideoBlowjobD.ReadOnly = True - Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjobD.TabIndex = 14 - Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD - ' - 'LblVideoBlowjobTotalD - ' - Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) - Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" - Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoBlowjobTotalD.TabIndex = 15 - Me.LblVideoBlowjobTotalD.Text = "0" - Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoLesbianD - ' - Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) - Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" - Me.TxbVideoLesbianD.ReadOnly = True - Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbianD.TabIndex = 10 - Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD - ' - 'TxbVideoSoftCoreD - ' - Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) - Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" - Me.TxbVideoSoftCoreD.ReadOnly = True - Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCoreD.TabIndex = 6 - Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD - ' - 'LblVideoLesbianTotalD - ' - Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) - Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" - Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoLesbianTotalD.TabIndex = 11 - Me.LblVideoLesbianTotalD.Text = "0" - Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoHardCoreD - ' - Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black - Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) - Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" - Me.TxbVideoHardCoreD.ReadOnly = True - Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCoreD.TabIndex = 2 - Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD - ' - 'BTNVideoFemSubD - ' - Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) - Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" - Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemSubD.TabIndex = 21 - Me.BTNVideoFemSubD.Text = "1" - Me.BTNVideoFemSubD.UseVisualStyleBackColor = False - ' - 'LblVideoSoftCoreTotalD - ' - Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) - Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" - Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoSoftCoreTotalD.TabIndex = 7 - Me.LblVideoSoftCoreTotalD.Text = "0" - Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoFemDomD - ' - Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) - Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" - Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemDomD.TabIndex = 17 - Me.BTNVideoFemDomD.Text = "1" - Me.BTNVideoFemDomD.UseVisualStyleBackColor = False - ' - 'BTNVideoBlowjobD - ' - Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) - Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" - Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoBlowjobD.TabIndex = 13 - Me.BTNVideoBlowjobD.Text = "1" - Me.BTNVideoBlowjobD.UseVisualStyleBackColor = False - ' - 'LblVideoHardCoreTotalD - ' - Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent - Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black - Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) - Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" - Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) - Me.LblVideoHardCoreTotalD.TabIndex = 3 - Me.LblVideoHardCoreTotalD.Text = "0" - Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoLesbianD - ' - Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) - Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" - Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoLesbianD.TabIndex = 9 - Me.BTNVideoLesbianD.Text = "1" - Me.BTNVideoLesbianD.UseVisualStyleBackColor = False - ' - 'BTNVideoSoftCoreD - ' - Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" - Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoSoftCoreD.TabIndex = 5 - Me.BTNVideoSoftCoreD.Text = "1" - Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = False - ' - 'BTNVideoHardCoreD - ' - Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black - Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) - Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" - Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoHardCoreD.TabIndex = 1 - Me.BTNVideoHardCoreD.Text = "1" - Me.BTNVideoHardCoreD.UseVisualStyleBackColor = False - ' - 'CBVideoHardcoreD - ' - Me.CBVideoHardcoreD.AutoSize = True - Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD - Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black - Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) - Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" - Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) - Me.CBVideoHardcoreD.TabIndex = 0 - Me.CBVideoHardcoreD.Text = "Hardcore" - Me.CBVideoHardcoreD.UseVisualStyleBackColor = True - ' - 'CBVideoSoftCoreD - ' - Me.CBVideoSoftCoreD.AutoSize = True - Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD - Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black - Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) - Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" - Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) - Me.CBVideoSoftCoreD.TabIndex = 4 - Me.CBVideoSoftCoreD.Text = "Softcore" - Me.CBVideoSoftCoreD.UseVisualStyleBackColor = True - ' - 'CBVideoLesbianD - ' - Me.CBVideoLesbianD.AutoSize = True - Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD - Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black - Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) - Me.CBVideoLesbianD.Name = "CBVideoLesbianD" - Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoLesbianD.TabIndex = 8 - Me.CBVideoLesbianD.Text = "Lesbian" - Me.CBVideoLesbianD.UseVisualStyleBackColor = True - ' - 'CBVideoBlowjobD - ' - Me.CBVideoBlowjobD.AutoSize = True - Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD - Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black - Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) - Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" - Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoBlowjobD.TabIndex = 12 - Me.CBVideoBlowjobD.Text = "Blowjob" - Me.CBVideoBlowjobD.UseVisualStyleBackColor = True - ' - 'CBVideoFemsubD - ' - Me.CBVideoFemsubD.AutoSize = True - Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD - Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) - Me.CBVideoFemsubD.Name = "CBVideoFemsubD" - Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) - Me.CBVideoFemsubD.TabIndex = 20 - Me.CBVideoFemsubD.Text = "Femsub" - Me.CBVideoFemsubD.UseVisualStyleBackColor = True - ' - 'CBVideoFemdomD - ' - Me.CBVideoFemdomD.AutoSize = True - Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD - Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) - Me.CBVideoFemdomD.Name = "CBVideoFemdomD" - Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) - Me.CBVideoFemdomD.TabIndex = 16 - Me.CBVideoFemdomD.Text = "Femdom" - Me.CBVideoFemdomD.UseVisualStyleBackColor = True - ' - 'GbxVideoDescription - ' - Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) - Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black - Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) - Me.GbxVideoDescription.Name = "GbxVideoDescription" - Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) - Me.GbxVideoDescription.TabIndex = 6 - Me.GbxVideoDescription.TabStop = False - Me.GbxVideoDescription.Text = "Description" - ' - 'VideoDescriptionLabel - ' - Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent - Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black - Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) - Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" - Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) - Me.VideoDescriptionLabel.TabIndex = 62 - Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei" & - "r paths." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The Domme Genre paths are for videos that feature the model you are " & - "using as your domme." - Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GbxVideoGeneral - ' - Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) - Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) - Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) - Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) - Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) - Me.GbxVideoGeneral.Name = "GbxVideoGeneral" - Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) - Me.GbxVideoGeneral.TabIndex = 2 - Me.GbxVideoGeneral.TabStop = False - Me.GbxVideoGeneral.Text = "General" - ' - 'LblVideoGeneralTotal - ' - Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) - Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" - Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoGeneralTotal.TabIndex = 3 - Me.LblVideoGeneralTotal.Text = "0" - Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoGeneral - ' - Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneral.Name = "TxbVideoGeneral" - Me.TxbVideoGeneral.ReadOnly = True - Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoGeneral.TabIndex = 2 - Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral - ' - 'BTNVideoGeneral - ' - Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoGeneral.Name = "BTNVideoGeneral" - Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoGeneral.TabIndex = 1 - Me.BTNVideoGeneral.Text = "1" - Me.BTNVideoGeneral.UseVisualStyleBackColor = False - ' - 'CBVideoGeneral - ' - Me.CBVideoGeneral.AutoSize = True - Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral - Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black - Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) - Me.CBVideoGeneral.Name = "CBVideoGeneral" - Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) - Me.CBVideoGeneral.TabIndex = 0 - Me.CBVideoGeneral.Text = "General" - Me.CBVideoGeneral.UseVisualStyleBackColor = True - ' - 'GbxVideoSpecial - ' - Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) - Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) - Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) - Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) - Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) - Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) - Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) - Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) - Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black - Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) - Me.GbxVideoSpecial.Name = "GbxVideoSpecial" - Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) - Me.GbxVideoSpecial.TabIndex = 1 - Me.GbxVideoSpecial.TabStop = False - Me.GbxVideoSpecial.Text = "Special" - ' - 'LblVideoCHTotal - ' - Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) - Me.LblVideoCHTotal.Name = "LblVideoCHTotal" - Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoCHTotal.TabIndex = 7 - Me.LblVideoCHTotal.Text = "0" - Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LblVideoJOITotal - ' - Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) - Me.LblVideoJOITotal.Name = "LblVideoJOITotal" - Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoJOITotal.TabIndex = 3 - Me.LblVideoJOITotal.Text = "0" - Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoCH - ' - Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black - Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) - Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoCH.Name = "TxbVideoCH" - Me.TxbVideoCH.ReadOnly = True - Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoCH.TabIndex = 6 - Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH - ' - 'TxbVideoJOI - ' - Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black - Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) - Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoJOI.Name = "TxbVideoJOI" - Me.TxbVideoJOI.ReadOnly = True - Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoJOI.TabIndex = 2 - Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI - ' - 'BTNVideoCH - ' - Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black - Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoCH.Name = "BTNVideoCH" - Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoCH.TabIndex = 5 - Me.BTNVideoCH.Text = "1" - Me.BTNVideoCH.UseVisualStyleBackColor = False - ' - 'BTNVideoJOI - ' - Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black - Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) - Me.BTNVideoJOI.Name = "BTNVideoJOI" - Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoJOI.TabIndex = 1 - Me.BTNVideoJOI.Text = "1" - Me.BTNVideoJOI.UseVisualStyleBackColor = False - ' - 'CBVideoJOI - ' - Me.CBVideoJOI.AutoSize = True - Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI - Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black - Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) - Me.CBVideoJOI.Name = "CBVideoJOI" - Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) - Me.CBVideoJOI.TabIndex = 0 - Me.CBVideoJOI.Text = "JOI" - Me.CBVideoJOI.UseVisualStyleBackColor = True - ' - 'CBVideoCH - ' - Me.CBVideoCH.AutoSize = True - Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH - Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoCH.ForeColor = System.Drawing.Color.Black - Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) - Me.CBVideoCH.Name = "CBVideoCH" - Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) - Me.CBVideoCH.TabIndex = 4 - Me.CBVideoCH.Text = "CH" - Me.CBVideoCH.UseVisualStyleBackColor = True - ' - 'GbxVideoGenre - ' - Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray - Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) - Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) - Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) - Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) - Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) - Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black - Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) - Me.GbxVideoGenre.Name = "GbxVideoGenre" - Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) - Me.GbxVideoGenre.TabIndex = 0 - Me.GbxVideoGenre.TabStop = False - Me.GbxVideoGenre.Text = "Genre" - ' - 'LblVideoFemsubTotal - ' - Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) - Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" - Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemsubTotal.TabIndex = 23 - Me.LblVideoFemsubTotal.Text = "0" - Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemsub - ' - Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) - Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsub.Name = "TxbVideoFemsub" - Me.TxbVideoFemsub.ReadOnly = True - Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemsub.TabIndex = 22 - Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub - ' - 'LblVideoFemdomTotal - ' - Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) - Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" - Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoFemdomTotal.TabIndex = 19 - Me.LblVideoFemdomTotal.Text = "0" - Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoFemdom - ' - Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black - Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) - Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdom.Name = "TxbVideoFemdom" - Me.TxbVideoFemdom.ReadOnly = True - Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoFemdom.TabIndex = 18 - Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom - ' - 'TxbVideoBlowjob - ' - Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black - Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) - Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" - Me.TxbVideoBlowjob.ReadOnly = True - Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoBlowjob.TabIndex = 14 - Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob - ' - 'LblVideoBlowjobTotal - ' - Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) - Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" - Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoBlowjobTotal.TabIndex = 15 - Me.LblVideoBlowjobTotal.Text = "0" - Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoLesbian - ' - Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black - Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) - Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbian.Name = "TxbVideoLesbian" - Me.TxbVideoLesbian.ReadOnly = True - Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoLesbian.TabIndex = 10 - Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian - ' - 'TxbVideoSoftCore - ' - Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black - Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) - Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" - Me.TxbVideoSoftCore.ReadOnly = True - Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoSoftCore.TabIndex = 6 - Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore - ' - 'LblVideoLesbianTotal - ' - Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) - Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" - Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoLesbianTotal.TabIndex = 11 - Me.LblVideoLesbianTotal.Text = "0" - Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TxbVideoHardCore - ' - Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray - Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black - Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) - Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) - Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCore.Name = "TxbVideoHardCore" - Me.TxbVideoHardCore.ReadOnly = True - Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) - Me.TxbVideoHardCore.TabIndex = 2 - Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore - ' - 'BTNVideoFemSub - ' - Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) - Me.BTNVideoFemSub.Name = "BTNVideoFemSub" - Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemSub.TabIndex = 21 - Me.BTNVideoFemSub.Text = "1" - Me.BTNVideoFemSub.UseVisualStyleBackColor = False - ' - 'LblVideoSoftCoreTotal - ' - Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) - Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" - Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoSoftCoreTotal.TabIndex = 7 - Me.LblVideoSoftCoreTotal.Text = "0" - Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoFemDom - ' - Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black - Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) - Me.BTNVideoFemDom.Name = "BTNVideoFemDom" - Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoFemDom.TabIndex = 17 - Me.BTNVideoFemDom.Text = "1" - Me.BTNVideoFemDom.UseVisualStyleBackColor = False - ' - 'BTNVideoBlowjob - ' - Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black - Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) - Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" - Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoBlowjob.TabIndex = 13 - Me.BTNVideoBlowjob.Text = "1" - Me.BTNVideoBlowjob.UseVisualStyleBackColor = False - ' - 'LblVideoHardCoreTotal - ' - Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent - Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black - Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) - Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" - Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) - Me.LblVideoHardCoreTotal.TabIndex = 3 - Me.LblVideoHardCoreTotal.Text = "0" - Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoLesbian - ' - Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black - Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) - Me.BTNVideoLesbian.Name = "BTNVideoLesbian" - Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoLesbian.TabIndex = 9 - Me.BTNVideoLesbian.Text = "1" - Me.BTNVideoLesbian.UseVisualStyleBackColor = False - ' - 'BTNVideoSoftCore - ' - Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black - Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) - Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" - Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoSoftCore.TabIndex = 5 - Me.BTNVideoSoftCore.Text = "1" - Me.BTNVideoSoftCore.UseVisualStyleBackColor = False - ' - 'BTNVideoHardCore - ' - Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray - Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black - Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) - Me.BTNVideoHardCore.Name = "BTNVideoHardCore" - Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) - Me.BTNVideoHardCore.TabIndex = 1 - Me.BTNVideoHardCore.Text = "1" - Me.BTNVideoHardCore.UseVisualStyleBackColor = False - ' - 'CBVideoHardcore - ' - Me.CBVideoHardcore.AutoSize = True - Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore - Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black - Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) - Me.CBVideoHardcore.Name = "CBVideoHardcore" - Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) - Me.CBVideoHardcore.TabIndex = 0 - Me.CBVideoHardcore.Text = "Hardcore" - Me.CBVideoHardcore.UseVisualStyleBackColor = True - ' - 'CBVideoSoftCore - ' - Me.CBVideoSoftCore.AutoSize = True - Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore - Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black - Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) - Me.CBVideoSoftCore.Name = "CBVideoSoftCore" - Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) - Me.CBVideoSoftCore.TabIndex = 4 - Me.CBVideoSoftCore.Text = "Softcore" - Me.CBVideoSoftCore.UseVisualStyleBackColor = True - ' - 'CBVideoLesbian - ' - Me.CBVideoLesbian.AutoSize = True - Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian - Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black - Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) - Me.CBVideoLesbian.Name = "CBVideoLesbian" - Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) - Me.CBVideoLesbian.TabIndex = 8 - Me.CBVideoLesbian.Text = "Lesbian" - Me.CBVideoLesbian.UseVisualStyleBackColor = True - ' - 'CBVideoBlowjob - ' - Me.CBVideoBlowjob.AutoSize = True - Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob - Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black - Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) - Me.CBVideoBlowjob.Name = "CBVideoBlowjob" - Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) - Me.CBVideoBlowjob.TabIndex = 12 - Me.CBVideoBlowjob.Text = "Blowjob" - Me.CBVideoBlowjob.UseVisualStyleBackColor = True - ' - 'CBVideoFemsub - ' - Me.CBVideoFemsub.AutoSize = True - Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub - Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) - Me.CBVideoFemsub.Name = "CBVideoFemsub" - Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) - Me.CBVideoFemsub.TabIndex = 20 - Me.CBVideoFemsub.Text = "Femsub" - Me.CBVideoFemsub.UseVisualStyleBackColor = True - ' - 'CBVideoFemdom - ' - Me.CBVideoFemdom.AutoSize = True - Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom - Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black - Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) - Me.CBVideoFemdom.Name = "CBVideoFemdom" - Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) - Me.CBVideoFemdom.TabIndex = 16 - Me.CBVideoFemdom.Text = "Femdom" - Me.CBVideoFemdom.UseVisualStyleBackColor = True - ' - 'LblVideoHeader - ' - Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent - Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black - Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) - Me.LblVideoHeader.Name = "LblVideoHeader" - Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) - Me.LblVideoHeader.TabIndex = 49 - Me.LblVideoHeader.Text = "Video Settings" - Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage20 - ' - Me.TabPage20.BackColor = System.Drawing.Color.Silver - Me.TabPage20.Controls.Add(Me.TabControl1) - Me.TabPage20.Location = New System.Drawing.Point(4, 22) - Me.TabPage20.Name = "TabPage20" - Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage20.Size = New System.Drawing.Size(720, 448) - Me.TabPage20.TabIndex = 16 - Me.TabPage20.Text = "Apps" - ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.TabPage22) - Me.TabControl1.Controls.Add(Me.TpGames) - Me.TabControl1.Controls.Add(Me.TabPage6) - Me.TabControl1.Location = New System.Drawing.Point(6, 6) - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(708, 437) - Me.TabControl1.TabIndex = 0 - ' - 'TabPage22 - ' - Me.TabPage22.BackColor = System.Drawing.Color.LightGray - Me.TabPage22.Controls.Add(Me.PNLGlitter) - Me.TabPage22.Location = New System.Drawing.Point(4, 22) - Me.TabPage22.Name = "TabPage22" - Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage22.Size = New System.Drawing.Size(700, 411) - Me.TabPage22.TabIndex = 0 - Me.TabPage22.Text = "Glitter" - ' - 'PNLGlitter - ' - Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray - Me.PNLGlitter.Controls.Add(Me.GroupBox14) - Me.PNLGlitter.Controls.Add(Me.GroupBox4) - Me.PNLGlitter.Controls.Add(Me.Button15) - Me.PNLGlitter.Controls.Add(Me.Button16) - Me.PNLGlitter.Controls.Add(Me.Label121) - Me.PNLGlitter.Controls.Add(Me.Label122) - Me.PNLGlitter.Controls.Add(Me.GBGlitterD) - Me.PNLGlitter.Controls.Add(Me.GBGlitter1) - Me.PNLGlitter.Controls.Add(Me.GBGlitter3) - Me.PNLGlitter.Controls.Add(Me.GBGlitter2) - Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) - Me.PNLGlitter.Name = "PNLGlitter" - Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) - Me.PNLGlitter.TabIndex = 91 - ' - 'GroupBox14 - ' - Me.GroupBox14.BackColor = System.Drawing.Color.LightGray - Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) - Me.GroupBox14.Location = New System.Drawing.Point(364, 315) - Me.GroupBox14.Name = "GroupBox14" - Me.GroupBox14.Size = New System.Drawing.Size(297, 77) - Me.GroupBox14.TabIndex = 182 - Me.GroupBox14.TabStop = False - Me.GroupBox14.Text = "General Contact Settings" - ' - 'alwaysNewSlideshow - ' - Me.alwaysNewSlideshow.AutoSize = True - ' Me.alwaysNewSlideshow.Checked = Global.Tease_AI.My.MySettings.Default.AlwaysNewSlideshow - 'Me.alwaysNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked - 'Me.alwaysNewSlideshow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "alwaysNewSlideshow", False, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black - Me.alwaysNewSlideshow.Location = New System.Drawing.Point(6, 33) - Me.alwaysNewSlideshow.Name = "AlwaysNewSlideshow" - Me.alwaysNewSlideshow.Size = New System.Drawing.Size(281, 17) - Me.alwaysNewSlideshow.TabIndex = 151 - Me.alwaysNewSlideshow.Text = "Always load new slideshow when using @AddContact" - Me.alwaysNewSlideshow.UseVisualStyleBackColor = True - ' - 'GroupBox4 - ' - Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) - Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) - Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) - Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) - Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) - Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) - Me.GroupBox4.Location = New System.Drawing.Point(7, 307) - Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(344, 85) - Me.GroupBox4.TabIndex = 167 - Me.GroupBox4.TabStop = False - Me.GroupBox4.Text = "Change Current Domme" - ' - 'LBLCurrentDomme - ' - Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) - Me.LBLCurrentDomme.Name = "LBLCurrentDomme" - Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) - Me.LBLCurrentDomme.TabIndex = 168 - Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNDomChangeContact1 - ' - Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray - Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black - Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) - Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" - Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) - Me.BTNDomChangeContact1.TabIndex = 173 - Me.BTNDomChangeContact1.Text = "Contact 1" - Me.BTNDomChangeContact1.UseVisualStyleBackColor = False - ' - 'BTNDomChangeRandom - ' - Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray - Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black - Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) - Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" - Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) - Me.BTNDomChangeRandom.TabIndex = 172 - Me.BTNDomChangeRandom.Text = "Random" - Me.BTNDomChangeRandom.UseVisualStyleBackColor = False - ' - 'BTNDomChangeContact3 - ' - Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray - Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black - Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) - Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" - Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) - Me.BTNDomChangeContact3.TabIndex = 171 - Me.BTNDomChangeContact3.Text = "Contact 3" - Me.BTNDomChangeContact3.UseVisualStyleBackColor = False - ' - 'BTNDomChangeContact2 - ' - Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray - Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black - Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) - Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" - Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) - Me.BTNDomChangeContact2.TabIndex = 170 - Me.BTNDomChangeContact2.Text = "Contact 2" - Me.BTNDomChangeContact2.UseVisualStyleBackColor = False - ' - 'BTNDomChangeDomme - ' - Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray - Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black - Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) - Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" - Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) - Me.BTNDomChangeDomme.TabIndex = 168 - Me.BTNDomChangeDomme.Text = "Domme" - Me.BTNDomChangeDomme.UseVisualStyleBackColor = False - ' - 'Button15 - ' - Me.Button15.BackColor = System.Drawing.Color.LightGray - Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export - Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button15.FlatAppearance.BorderSize = 0 - Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button15.ForeColor = System.Drawing.Color.Black - Me.Button15.Location = New System.Drawing.Point(670, 366) - Me.Button15.Name = "Button15" - Me.Button15.Size = New System.Drawing.Size(30, 26) - Me.Button15.TabIndex = 163 - Me.Button15.UseVisualStyleBackColor = False - ' - 'Button16 - ' - Me.Button16.BackColor = System.Drawing.Color.LightGray - Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save - Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button16.FlatAppearance.BorderSize = 0 - Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray - Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver - Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button16.ForeColor = System.Drawing.Color.Black - Me.Button16.Location = New System.Drawing.Point(667, 324) - Me.Button16.Name = "Button16" - Me.Button16.Size = New System.Drawing.Size(30, 26) - Me.Button16.TabIndex = 164 - Me.Button16.UseVisualStyleBackColor = False - ' - 'Label121 - ' - Me.Label121.AutoSize = True - Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label121.ForeColor = System.Drawing.Color.Black - Me.Label121.Location = New System.Drawing.Point(669, 352) - Me.Label121.Name = "Label121" - Me.Label121.Size = New System.Drawing.Size(27, 13) - Me.Label121.TabIndex = 166 - Me.Label121.Text = "load" - Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label122 - ' - Me.Label122.AutoSize = True - Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label122.ForeColor = System.Drawing.Color.Black - Me.Label122.Location = New System.Drawing.Point(667, 313) - Me.Label122.Name = "Label122" - Me.Label122.Size = New System.Drawing.Size(30, 13) - Me.Label122.TabIndex = 165 - Me.Label122.Text = "save" - Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GBGlitterD - ' - Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray - Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) - Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) - Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) - Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) - Me.GBGlitterD.Controls.Add(Me.CBCustom2) - Me.GBGlitterD.Controls.Add(Me.GlitterSlider) - Me.GBGlitterD.Controls.Add(Me.CBCustom1) - Me.GBGlitterD.Controls.Add(Me.CBDaily) - Me.GBGlitterD.Controls.Add(Me.CBTrivia) - Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) - Me.GBGlitterD.Controls.Add(Me.CBEgotist) - Me.GBGlitterD.Controls.Add(Me.CBTease) - Me.GBGlitterD.Controls.Add(Me.GlitterAV) - Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) - Me.GBGlitterD.Name = "GBGlitterD" - Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) - Me.GBGlitterD.TabIndex = 162 - Me.GBGlitterD.TabStop = False - Me.GBGlitterD.Text = "Domme" - ' - 'GrbGlitterfeed - ' - Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) - Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) - Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) - Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) - Me.GrbGlitterfeed.Name = "GrbGlitterfeed" - Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) - Me.GrbGlitterfeed.TabIndex = 168 - Me.GrbGlitterfeed.TabStop = False - Me.GrbGlitterfeed.Text = "Glitterfeeds" - ' - 'CBGlitterFeedScripts - ' - Me.CBGlitterFeedScripts.AutoSize = True - Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent - Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts - Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", True)) - Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) - Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) - Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" - Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) - Me.CBGlitterFeedScripts.TabIndex = 146 - Me.CBGlitterFeedScripts.Text = "Scripts" - Me.CBGlitterFeedScripts.UseVisualStyleBackColor = False - ' - 'CBGlitterFeed - ' - Me.CBGlitterFeed.AutoSize = True - Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed - Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", True)) - Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) - Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) - Me.CBGlitterFeed.Name = "CBGlitterFeed" - Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) - Me.CBGlitterFeed.TabIndex = 145 - Me.CBGlitterFeed.Text = "On" - Me.CBGlitterFeed.UseVisualStyleBackColor = True - ' - 'CBGlitterFeedOff - ' - Me.CBGlitterFeedOff.AutoSize = True - Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff - Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", True)) - Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) - Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) - Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" - Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) - Me.CBGlitterFeedOff.TabIndex = 147 - Me.CBGlitterFeedOff.TabStop = True - Me.CBGlitterFeedOff.Text = "Off" - Me.CBGlitterFeedOff.UseVisualStyleBackColor = True - ' - 'BTNGlitterD - ' - Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black - Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) - Me.BTNGlitterD.Name = "BTNGlitterD" - Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitterD.TabIndex = 166 - Me.BTNGlitterD.Text = "Choose Name Color" - Me.BTNGlitterD.UseVisualStyleBackColor = False - ' - 'LBLGlitterNCDomme - ' - Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White - Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor - Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) - Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" - Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNCDomme.TabIndex = 163 - Me.LBLGlitterNCDomme.Text = "Preview" - Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider - ' - Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider.Name = "LBLGlitterSlider" - Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider.TabIndex = 162 - Me.LBLGlitterSlider.Text = "Post Frequency" - Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBCustom2 - ' - Me.CBCustom2.AutoSize = True - Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 - Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBCustom2.ForeColor = System.Drawing.Color.Black - Me.CBCustom2.Location = New System.Drawing.Point(149, 121) - Me.CBCustom2.Name = "CBCustom2" - Me.CBCustom2.Size = New System.Drawing.Size(70, 17) - Me.CBCustom2.TabIndex = 161 - Me.CBCustom2.Text = "Custom 2" - Me.CBCustom2.UseVisualStyleBackColor = True - ' - 'GlitterSlider - ' - Me.GlitterSlider.AutoSize = False - Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider.LargeChange = 1 - Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider.Maximum = 9 - Me.GlitterSlider.Minimum = 1 - Me.GlitterSlider.Name = "GlitterSlider" - Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider.TabIndex = 160 - Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider - ' - 'CBCustom1 - ' - Me.CBCustom1.AutoSize = True - Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 - Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBCustom1.ForeColor = System.Drawing.Color.Black - Me.CBCustom1.Location = New System.Drawing.Point(149, 98) - Me.CBCustom1.Name = "CBCustom1" - Me.CBCustom1.Size = New System.Drawing.Size(70, 17) - Me.CBCustom1.TabIndex = 157 - Me.CBCustom1.Text = "Custom 1" - Me.CBCustom1.UseVisualStyleBackColor = True - ' - 'CBDaily - ' - Me.CBDaily.AutoSize = True - Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily - Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBDaily.ForeColor = System.Drawing.Color.Black - Me.CBDaily.Location = New System.Drawing.Point(79, 121) - Me.CBDaily.Name = "CBDaily" - Me.CBDaily.Size = New System.Drawing.Size(49, 17) - Me.CBDaily.TabIndex = 156 - Me.CBDaily.Text = "Daily" - Me.CBDaily.UseVisualStyleBackColor = True - ' - 'CBTrivia - ' - Me.CBTrivia.AutoSize = True - Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia - Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBTrivia.ForeColor = System.Drawing.Color.Black - Me.CBTrivia.Location = New System.Drawing.Point(79, 98) - Me.CBTrivia.Name = "CBTrivia" - Me.CBTrivia.Size = New System.Drawing.Size(52, 17) - Me.CBTrivia.TabIndex = 155 - Me.CBTrivia.Text = "Trivia" - Me.CBTrivia.UseVisualStyleBackColor = True - ' - 'TBGlitterShortName - ' - Me.TBGlitterShortName.BackColor = System.Drawing.Color.White - Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black - Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) - Me.TBGlitterShortName.Name = "TBGlitterShortName" - Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) - Me.TBGlitterShortName.TabIndex = 49 - Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN - Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'CBEgotist - ' - Me.CBEgotist.AutoSize = True - Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist - Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBEgotist.ForeColor = System.Drawing.Color.Black - Me.CBEgotist.Location = New System.Drawing.Point(9, 121) - Me.CBEgotist.Name = "CBEgotist" - Me.CBEgotist.Size = New System.Drawing.Size(58, 17) - Me.CBEgotist.TabIndex = 153 - Me.CBEgotist.Text = "Egotist" - Me.CBEgotist.UseVisualStyleBackColor = True - ' - 'CBTease - ' - Me.CBTease.AutoSize = True - Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease - Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBTease.ForeColor = System.Drawing.Color.Black - Me.CBTease.Location = New System.Drawing.Point(9, 98) - Me.CBTease.Name = "CBTease" - Me.CBTease.Size = New System.Drawing.Size(56, 17) - Me.CBTease.TabIndex = 152 - Me.CBTease.Text = "Tease" - Me.CBTease.UseVisualStyleBackColor = True - ' - 'GlitterAV - ' - Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV.Name = "GlitterAV" - Me.GlitterAV.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV.TabIndex = 149 - Me.GlitterAV.TabStop = False - ' - 'GBGlitter1 - ' - Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray - Me.GBGlitter1.Controls.Add(Me.Label167) - Me.GBGlitter1.Controls.Add(Me.G1Honorific) - Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) - Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) - Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) - Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) - Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) - Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) - Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) - Me.GBGlitter1.Controls.Add(Me.CBGlitter1) - Me.GBGlitter1.Controls.Add(Me.TBGlitter1) - Me.GBGlitter1.Controls.Add(Me.GlitterAV1) - Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) - Me.GBGlitter1.Name = "GBGlitter1" - Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) - Me.GBGlitter1.TabIndex = 161 - Me.GBGlitter1.TabStop = False - Me.GBGlitter1.Text = "Contact 1" - ' - 'Label167 - ' - Me.Label167.BackColor = System.Drawing.Color.Transparent - Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label167.ForeColor = System.Drawing.Color.Black - Me.Label167.Location = New System.Drawing.Point(98, 71) - Me.Label167.Name = "Label167" - Me.Label167.Size = New System.Drawing.Size(115, 19) - Me.Label167.TabIndex = 182 - Me.Label167.Text = "Contact Honorific" - Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'G1Honorific - ' - Me.G1Honorific.Location = New System.Drawing.Point(219, 70) - Me.G1Honorific.Name = "G1Honorific" - Me.G1Honorific.Size = New System.Drawing.Size(116, 20) - Me.G1Honorific.TabIndex = 0 - Me.G1Honorific.Text = "Mistress" - ' - 'BtnContact1ImageDirClear - ' - Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) - Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" - Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnContact1ImageDirClear.TabIndex = 181 - Me.BtnContact1ImageDirClear.Text = "Clear" - Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = False - ' - 'BtnContact1ImageDir - ' - Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) - Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" - Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) - Me.BtnContact1ImageDir.TabIndex = 177 - Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" - Me.BtnContact1ImageDir.UseVisualStyleBackColor = False - ' - 'TbxContact1ImageDir - ' - Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) - Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) - Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" - Me.TbxContact1ImageDir.ReadOnly = True - Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) - Me.TbxContact1ImageDir.TabIndex = 176 - Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir - ' - 'BTNGlitter1 - ' - Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black - Me.BTNGlitter1.Location = New System.Drawing.Point(220, 17) - Me.BTNGlitter1.Name = "BTNGlitter1" - Me.BTNGlitter1.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitter1.TabIndex = 175 - Me.BTNGlitter1.Text = "Choose Name Color" - Me.BTNGlitter1.UseVisualStyleBackColor = False - ' - 'LBLGlitterNC1 - ' - Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White - Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color - Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 43) - Me.LBLGlitterNC1.Name = "LBLGlitterNC1" - Me.LBLGlitterNC1.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNC1.TabIndex = 166 - Me.LBLGlitterNC1.Text = "Preview" - Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider1 - ' - Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" - Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider1.TabIndex = 163 - Me.LBLGlitterSlider1.Text = "Response Frequency" - Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GlitterSlider1 - ' - Me.GlitterSlider1.AutoSize = False - Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider1.LargeChange = 1 - Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider1.Maximum = 9 - Me.GlitterSlider1.Minimum = 1 - Me.GlitterSlider1.Name = "GlitterSlider1" - Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider1.TabIndex = 161 - Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider - ' - 'CBGlitter1 - ' - Me.CBGlitter1.AutoSize = True - Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 - Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBGlitter1.ForeColor = System.Drawing.Color.Black - Me.CBGlitter1.Location = New System.Drawing.Point(79, 20) - Me.CBGlitter1.Name = "CBGlitter1" - Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) - Me.CBGlitter1.TabIndex = 151 - Me.CBGlitter1.Text = "Enable This Contact" - Me.CBGlitter1.UseVisualStyleBackColor = True - ' - 'TBGlitter1 - ' - Me.TBGlitter1.BackColor = System.Drawing.Color.White - Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitter1.ForeColor = System.Drawing.Color.Black - Me.TBGlitter1.Location = New System.Drawing.Point(79, 43) - Me.TBGlitter1.Name = "TBGlitter1" - Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) - Me.TBGlitter1.TabIndex = 49 - Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 - Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GlitterAV1 - ' - Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV1.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV1.Name = "GlitterAV1" - Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV1.TabIndex = 149 - Me.GlitterAV1.TabStop = False - ' - 'GBGlitter3 - ' - Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray - Me.GBGlitter3.Controls.Add(Me.Label168) - Me.GBGlitter3.Controls.Add(Me.G3Honorific) - Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) - Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) - Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) - Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) - Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) - Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) - Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) - Me.GBGlitter3.Controls.Add(Me.CBGlitter3) - Me.GBGlitter3.Controls.Add(Me.TBGlitter3) - Me.GBGlitter3.Controls.Add(Me.GlitterAV3) - Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) - Me.GBGlitter3.Name = "GBGlitter3" - Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) - Me.GBGlitter3.TabIndex = 160 - Me.GBGlitter3.TabStop = False - Me.GBGlitter3.Text = "Contact 3" - ' - 'Label168 - ' - Me.Label168.BackColor = System.Drawing.Color.Transparent - Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label168.ForeColor = System.Drawing.Color.Black - Me.Label168.Location = New System.Drawing.Point(99, 71) - Me.Label168.Name = "Label168" - Me.Label168.Size = New System.Drawing.Size(115, 19) - Me.Label168.TabIndex = 181 - Me.Label168.Text = "Contact Honorific" - Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'G3Honorific - ' - Me.G3Honorific.Location = New System.Drawing.Point(220, 70) - Me.G3Honorific.Name = "G3Honorific" - Me.G3Honorific.Size = New System.Drawing.Size(115, 20) - Me.G3Honorific.TabIndex = 0 - Me.G3Honorific.Text = "Mistress" - ' - 'BtnContact3ImageDirClear - ' - Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) - Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" - Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnContact3ImageDirClear.TabIndex = 180 - Me.BtnContact3ImageDirClear.Text = "Clear" - Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = False - ' - 'BtnContact3ImageDir - ' - Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) - Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" - Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) - Me.BtnContact3ImageDir.TabIndex = 179 - Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" - Me.BtnContact3ImageDir.UseVisualStyleBackColor = False - ' - 'TbxContact3ImageDir - ' - Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) - Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) - Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" - Me.TbxContact3ImageDir.ReadOnly = True - Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) - Me.TbxContact3ImageDir.TabIndex = 178 - Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir - ' - 'BTNGlitter3 - ' - Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black - Me.BTNGlitter3.Location = New System.Drawing.Point(220, 15) - Me.BTNGlitter3.Name = "BTNGlitter3" - Me.BTNGlitter3.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitter3.TabIndex = 175 - Me.BTNGlitter3.Text = "Choose Name Color" - Me.BTNGlitter3.UseVisualStyleBackColor = False - ' - 'LBLGlitterNC3 - ' - Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White - Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color - Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 42) - Me.LBLGlitterNC3.Name = "LBLGlitterNC3" - Me.LBLGlitterNC3.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNC3.TabIndex = 166 - Me.LBLGlitterNC3.Text = "Preview" - Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider3 - ' - Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" - Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider3.TabIndex = 163 - Me.LBLGlitterSlider3.Text = "Response Frequency" - Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GlitterSlider3 - ' - Me.GlitterSlider3.AutoSize = False - Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider3.LargeChange = 1 - Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider3.Maximum = 9 - Me.GlitterSlider3.Minimum = 1 - Me.GlitterSlider3.Name = "GlitterSlider3" - Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider3.TabIndex = 161 - Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider - ' - 'CBGlitter3 - ' - Me.CBGlitter3.AutoSize = True - Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 - Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBGlitter3.ForeColor = System.Drawing.Color.Black - Me.CBGlitter3.Location = New System.Drawing.Point(79, 18) - Me.CBGlitter3.Name = "CBGlitter3" - Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) - Me.CBGlitter3.TabIndex = 151 - Me.CBGlitter3.Text = "Enable This Contact" - Me.CBGlitter3.UseVisualStyleBackColor = True - ' - 'TBGlitter3 - ' - Me.TBGlitter3.BackColor = System.Drawing.Color.White - Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitter3.ForeColor = System.Drawing.Color.Black - Me.TBGlitter3.Location = New System.Drawing.Point(79, 42) - Me.TBGlitter3.Name = "TBGlitter3" - Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) - Me.TBGlitter3.TabIndex = 49 - Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 - Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GlitterAV3 - ' - Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV3.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV3.Name = "GlitterAV3" - Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV3.TabIndex = 149 - Me.GlitterAV3.TabStop = False - ' - 'GBGlitter2 - ' - Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray - Me.GBGlitter2.Controls.Add(Me.Label169) - Me.GBGlitter2.Controls.Add(Me.G2Honorific) - Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) - Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) - Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) - Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) - Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) - Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) - Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) - Me.GBGlitter2.Controls.Add(Me.CBGlitter2) - Me.GBGlitter2.Controls.Add(Me.TBGlitter2) - Me.GBGlitter2.Controls.Add(Me.GlitterAV2) - Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) - Me.GBGlitter2.Name = "GBGlitter2" - Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) - Me.GBGlitter2.TabIndex = 151 - Me.GBGlitter2.TabStop = False - Me.GBGlitter2.Text = "Contact 2" - ' - 'Label169 - ' - Me.Label169.BackColor = System.Drawing.Color.Transparent - Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label169.ForeColor = System.Drawing.Color.Black - Me.Label169.Location = New System.Drawing.Point(98, 74) - Me.Label169.Name = "Label169" - Me.Label169.Size = New System.Drawing.Size(115, 19) - Me.Label169.TabIndex = 182 - Me.Label169.Text = "Contact Honorific" - Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'G2Honorific - ' - Me.G2Honorific.Location = New System.Drawing.Point(220, 73) - Me.G2Honorific.Name = "G2Honorific" - Me.G2Honorific.Size = New System.Drawing.Size(115, 20) - Me.G2Honorific.TabIndex = 0 - Me.G2Honorific.Text = "Mistress" - ' - 'BtnContact2ImageDirClear - ' - Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) - Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" - Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnContact2ImageDirClear.TabIndex = 181 - Me.BtnContact2ImageDirClear.Text = "Clear" - Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = False - ' - 'BtnContact2ImageDir - ' - Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray - Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black - Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) - Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" - Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) - Me.BtnContact2ImageDir.TabIndex = 179 - Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" - Me.BtnContact2ImageDir.UseVisualStyleBackColor = False - ' - 'TbxContact2ImageDir - ' - Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray - Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black - Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) - Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) - Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) - Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" - Me.TbxContact2ImageDir.ReadOnly = True - Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) - Me.TbxContact2ImageDir.TabIndex = 178 - Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir - ' - 'BTNGlitter2 - ' - Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray - Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black - Me.BTNGlitter2.Location = New System.Drawing.Point(220, 17) - Me.BTNGlitter2.Name = "BTNGlitter2" - Me.BTNGlitter2.Size = New System.Drawing.Size(115, 24) - Me.BTNGlitter2.TabIndex = 167 - Me.BTNGlitter2.Text = "Choose Name Color" - Me.BTNGlitter2.UseVisualStyleBackColor = False - ' - 'LBLGlitterNC2 - ' - Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White - Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color - Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 45) - Me.LBLGlitterNC2.Name = "LBLGlitterNC2" - Me.LBLGlitterNC2.Size = New System.Drawing.Size(115, 23) - Me.LBLGlitterNC2.TabIndex = 166 - Me.LBLGlitterNC2.Text = "Preview" - Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitterSlider2 - ' - Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent - Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black - Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) - Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" - Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) - Me.LBLGlitterSlider2.TabIndex = 163 - Me.LBLGlitterSlider2.Text = "Response Frequency" - Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GlitterSlider2 - ' - Me.GlitterSlider2.AutoSize = False - Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GlitterSlider2.LargeChange = 1 - Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) - Me.GlitterSlider2.Maximum = 9 - Me.GlitterSlider2.Minimum = 1 - Me.GlitterSlider2.Name = "GlitterSlider2" - Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) - Me.GlitterSlider2.TabIndex = 161 - Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider - ' - 'CBGlitter2 - ' - Me.CBGlitter2.AutoSize = True - Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 - Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBGlitter2.ForeColor = System.Drawing.Color.Black - Me.CBGlitter2.Location = New System.Drawing.Point(79, 20) - Me.CBGlitter2.Name = "CBGlitter2" - Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) - Me.CBGlitter2.TabIndex = 151 - Me.CBGlitter2.Text = "Enable This Contact" - Me.CBGlitter2.UseVisualStyleBackColor = True - ' - 'TBGlitter2 - ' - Me.TBGlitter2.BackColor = System.Drawing.Color.White - Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TBGlitter2.ForeColor = System.Drawing.Color.Black - Me.TBGlitter2.Location = New System.Drawing.Point(79, 45) - Me.TBGlitter2.Name = "TBGlitter2" - Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) - Me.TBGlitter2.TabIndex = 49 - Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 - Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GlitterAV2 - ' - Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GlitterAV2.Location = New System.Drawing.Point(9, 16) - Me.GlitterAV2.Name = "GlitterAV2" - Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) - Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GlitterAV2.TabIndex = 149 - Me.GlitterAV2.TabStop = False - ' - 'TpGames - ' - Me.TpGames.BackColor = System.Drawing.Color.LightGray - Me.TpGames.Controls.Add(Me.CBIncludeGifs) - Me.TpGames.Controls.Add(Me.LblCardsSetupNote) - Me.TpGames.Controls.Add(Me.CBGameSounds) - Me.TpGames.Controls.Add(Me.GbxCardsGold) - Me.TpGames.Controls.Add(Me.GbxCardsBackground) - Me.TpGames.Controls.Add(Me.GbxCardsBronze) - Me.TpGames.Controls.Add(Me.GbxCardsSilver) - Me.TpGames.Location = New System.Drawing.Point(4, 22) - Me.TpGames.Name = "TpGames" - Me.TpGames.Padding = New System.Windows.Forms.Padding(3) - Me.TpGames.Size = New System.Drawing.Size(700, 411) - Me.TpGames.TabIndex = 1 - Me.TpGames.Text = "Games" - ' - 'CBIncludeGifs - ' - Me.CBIncludeGifs.AutoSize = True - Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs - Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) - Me.CBIncludeGifs.Name = "CBIncludeGifs" - Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) - Me.CBIncludeGifs.TabIndex = 5 - Me.CBIncludeGifs.Text = "Match Game Includes Gifs " - Me.CBIncludeGifs.UseVisualStyleBackColor = True - ' - 'LblCardsSetupNote - ' - Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) - Me.LblCardsSetupNote.Name = "LblCardsSetupNote" - Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) - Me.LblCardsSetupNote.TabIndex = 4 - Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected" & - "!" - Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'CBGameSounds - ' - Me.CBGameSounds.AutoSize = True - Me.CBGameSounds.Checked = True - Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBGameSounds.ForeColor = System.Drawing.Color.Black - Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) - Me.CBGameSounds.Name = "CBGameSounds" - Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) - Me.CBGameSounds.TabIndex = 6 - Me.CBGameSounds.Text = "Play Game Sounds" - Me.CBGameSounds.UseVisualStyleBackColor = True - ' - 'GbxCardsGold - ' - Me.GbxCardsGold.Controls.Add(Me.GN6) - Me.GbxCardsGold.Controls.Add(Me.GP6) - Me.GbxCardsGold.Controls.Add(Me.GN2) - Me.GbxCardsGold.Controls.Add(Me.GP2) - Me.GbxCardsGold.Controls.Add(Me.GP5) - Me.GbxCardsGold.Controls.Add(Me.GN1) - Me.GbxCardsGold.Controls.Add(Me.GP1) - Me.GbxCardsGold.Controls.Add(Me.GN5) - Me.GbxCardsGold.Controls.Add(Me.GN3) - Me.GbxCardsGold.Controls.Add(Me.GP3) - Me.GbxCardsGold.Controls.Add(Me.GP4) - Me.GbxCardsGold.Controls.Add(Me.GN4) - Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) - Me.GbxCardsGold.Name = "GbxCardsGold" - Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) - Me.GbxCardsGold.TabIndex = 2 - Me.GbxCardsGold.TabStop = False - Me.GbxCardsGold.Text = "Gold Cards" - ' - 'GN6 - ' - Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN6.Location = New System.Drawing.Point(86, 367) - Me.GN6.Name = "GN6" - Me.GN6.Size = New System.Drawing.Size(71, 20) - Me.GN6.TabIndex = 5 - Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 - Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP6 - ' - Me.GP6.BackColor = System.Drawing.Color.Silver - Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 - Me.GP6.InitialImage = Nothing - Me.GP6.Location = New System.Drawing.Point(86, 268) - Me.GP6.Name = "GP6" - Me.GP6.Size = New System.Drawing.Size(71, 93) - Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP6.TabIndex = 17 - Me.GP6.TabStop = False - ' - 'GN2 - ' - Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN2.Location = New System.Drawing.Point(86, 117) - Me.GN2.Name = "GN2" - Me.GN2.Size = New System.Drawing.Size(71, 20) - Me.GN2.TabIndex = 1 - Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 - Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP2 - ' - Me.GP2.BackColor = System.Drawing.Color.Silver - Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 - Me.GP2.InitialImage = Nothing - Me.GP2.Location = New System.Drawing.Point(86, 17) - Me.GP2.Name = "GP2" - Me.GP2.Size = New System.Drawing.Size(71, 94) - Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP2.TabIndex = 9 - Me.GP2.TabStop = False - ' - 'GP5 - ' - Me.GP5.BackColor = System.Drawing.Color.Silver - Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 - Me.GP5.InitialImage = Nothing - Me.GP5.Location = New System.Drawing.Point(9, 268) - Me.GP5.Name = "GP5" - Me.GP5.Size = New System.Drawing.Size(71, 93) - Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP5.TabIndex = 15 - Me.GP5.TabStop = False - ' - 'GN1 - ' - Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN1.Location = New System.Drawing.Point(9, 117) - Me.GN1.Name = "GN1" - Me.GN1.Size = New System.Drawing.Size(71, 20) - Me.GN1.TabIndex = 0 - Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 - Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP1 - ' - Me.GP1.BackColor = System.Drawing.Color.Silver - Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 - Me.GP1.InitialImage = Nothing - Me.GP1.Location = New System.Drawing.Point(9, 17) - Me.GP1.Name = "GP1" - Me.GP1.Size = New System.Drawing.Size(71, 94) - Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP1.TabIndex = 0 - Me.GP1.TabStop = False - ' - 'GN5 - ' - Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN5.Location = New System.Drawing.Point(9, 367) - Me.GN5.Name = "GN5" - Me.GN5.Size = New System.Drawing.Size(71, 20) - Me.GN5.TabIndex = 4 - Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 - Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GN3 - ' - Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN3.Location = New System.Drawing.Point(9, 242) - Me.GN3.Name = "GN3" - Me.GN3.Size = New System.Drawing.Size(71, 20) - Me.GN3.TabIndex = 2 - Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 - Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GP3 - ' - Me.GP3.BackColor = System.Drawing.Color.Silver - Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 - Me.GP3.InitialImage = Nothing - Me.GP3.Location = New System.Drawing.Point(9, 143) - Me.GP3.Name = "GP3" - Me.GP3.Size = New System.Drawing.Size(71, 93) - Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP3.TabIndex = 11 - Me.GP3.TabStop = False - ' - 'GP4 - ' - Me.GP4.BackColor = System.Drawing.Color.Silver - Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 - Me.GP4.InitialImage = Nothing - Me.GP4.Location = New System.Drawing.Point(86, 143) - Me.GP4.Name = "GP4" - Me.GP4.Size = New System.Drawing.Size(71, 93) - Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.GP4.TabIndex = 13 - Me.GP4.TabStop = False - ' - 'GN4 - ' - Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.GN4.Location = New System.Drawing.Point(86, 242) - Me.GN4.Name = "GN4" - Me.GN4.Size = New System.Drawing.Size(71, 20) - Me.GN4.TabIndex = 3 - Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 - Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'GbxCardsBackground - ' - Me.GbxCardsBackground.Controls.Add(Me.CardBack) - Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) - Me.GbxCardsBackground.Name = "GbxCardsBackground" - Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) - Me.GbxCardsBackground.TabIndex = 3 - Me.GbxCardsBackground.TabStop = False - Me.GbxCardsBackground.Text = "Card Background" - ' - 'CardBack - ' - Me.CardBack.BackColor = System.Drawing.Color.Silver - Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack - Me.CardBack.InitialImage = Nothing - Me.CardBack.Location = New System.Drawing.Point(17, 28) - Me.CardBack.Name = "CardBack" - Me.CardBack.Size = New System.Drawing.Size(138, 179) - Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.CardBack.TabIndex = 18 - Me.CardBack.TabStop = False - ' - 'GbxCardsBronze - ' - Me.GbxCardsBronze.Controls.Add(Me.BN6) - Me.GbxCardsBronze.Controls.Add(Me.BN3) - Me.GbxCardsBronze.Controls.Add(Me.BP3) - Me.GbxCardsBronze.Controls.Add(Me.BP6) - Me.GbxCardsBronze.Controls.Add(Me.BN2) - Me.GbxCardsBronze.Controls.Add(Me.BN5) - Me.GbxCardsBronze.Controls.Add(Me.BP5) - Me.GbxCardsBronze.Controls.Add(Me.BP2) - Me.GbxCardsBronze.Controls.Add(Me.BN1) - Me.GbxCardsBronze.Controls.Add(Me.BN4) - Me.GbxCardsBronze.Controls.Add(Me.BP4) - Me.GbxCardsBronze.Controls.Add(Me.BP1) - Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) - Me.GbxCardsBronze.Name = "GbxCardsBronze" - Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) - Me.GbxCardsBronze.TabIndex = 0 - Me.GbxCardsBronze.TabStop = False - Me.GbxCardsBronze.Text = "Bronze Cards" - ' - 'BN6 - ' - Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN6.Location = New System.Drawing.Point(86, 368) - Me.BN6.Name = "BN6" - Me.BN6.Size = New System.Drawing.Size(71, 20) - Me.BN6.TabIndex = 5 - Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 - Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BN3 - ' - Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN3.Location = New System.Drawing.Point(9, 243) - Me.BN3.Name = "BN3" - Me.BN3.Size = New System.Drawing.Size(71, 20) - Me.BN3.TabIndex = 2 - Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 - Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BP3 - ' - Me.BP3.BackColor = System.Drawing.Color.Silver - Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 - Me.BP3.InitialImage = Nothing - Me.BP3.Location = New System.Drawing.Point(9, 144) - Me.BP3.Name = "BP3" - Me.BP3.Size = New System.Drawing.Size(71, 93) - Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP3.TabIndex = 11 - Me.BP3.TabStop = False - ' - 'BP6 - ' - Me.BP6.BackColor = System.Drawing.Color.Silver - Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 - Me.BP6.InitialImage = Nothing - Me.BP6.Location = New System.Drawing.Point(86, 269) - Me.BP6.Name = "BP6" - Me.BP6.Size = New System.Drawing.Size(71, 93) - Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP6.TabIndex = 17 - Me.BP6.TabStop = False - ' - 'BN2 - ' - Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN2.Location = New System.Drawing.Point(86, 118) - Me.BN2.Name = "BN2" - Me.BN2.Size = New System.Drawing.Size(71, 20) - Me.BN2.TabIndex = 1 - Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 - Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BN5 - ' - Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN5.Location = New System.Drawing.Point(9, 368) - Me.BN5.Name = "BN5" - Me.BN5.Size = New System.Drawing.Size(71, 20) - Me.BN5.TabIndex = 4 - Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 - Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BP5 - ' - Me.BP5.BackColor = System.Drawing.Color.Silver - Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 - Me.BP5.InitialImage = Nothing - Me.BP5.Location = New System.Drawing.Point(9, 269) - Me.BP5.Name = "BP5" - Me.BP5.Size = New System.Drawing.Size(71, 93) - Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP5.TabIndex = 15 - Me.BP5.TabStop = False - ' - 'BP2 - ' - Me.BP2.BackColor = System.Drawing.Color.Silver - Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 - Me.BP2.InitialImage = Nothing - Me.BP2.Location = New System.Drawing.Point(86, 19) - Me.BP2.Name = "BP2" - Me.BP2.Size = New System.Drawing.Size(71, 93) - Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP2.TabIndex = 9 - Me.BP2.TabStop = False - ' - 'BN1 - ' - Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN1.Location = New System.Drawing.Point(9, 118) - Me.BN1.Name = "BN1" - Me.BN1.Size = New System.Drawing.Size(71, 20) - Me.BN1.TabIndex = 0 - Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 - Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BN4 - ' - Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BN4.Location = New System.Drawing.Point(86, 243) - Me.BN4.Name = "BN4" - Me.BN4.Size = New System.Drawing.Size(71, 20) - Me.BN4.TabIndex = 3 - Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 - Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'BP4 - ' - Me.BP4.BackColor = System.Drawing.Color.Silver - Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 - Me.BP4.InitialImage = Nothing - Me.BP4.Location = New System.Drawing.Point(86, 144) - Me.BP4.Name = "BP4" - Me.BP4.Size = New System.Drawing.Size(71, 93) - Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP4.TabIndex = 13 - Me.BP4.TabStop = False - ' - 'BP1 - ' - Me.BP1.BackColor = System.Drawing.Color.Silver - Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", True)) - Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 - Me.BP1.InitialImage = Nothing - Me.BP1.Location = New System.Drawing.Point(9, 19) - Me.BP1.Name = "BP1" - Me.BP1.Size = New System.Drawing.Size(71, 93) - Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.BP1.TabIndex = 0 - Me.BP1.TabStop = False - Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 - ' - 'GbxCardsSilver - ' - Me.GbxCardsSilver.Controls.Add(Me.SN6) - Me.GbxCardsSilver.Controls.Add(Me.SP6) - Me.GbxCardsSilver.Controls.Add(Me.SN2) - Me.GbxCardsSilver.Controls.Add(Me.SP2) - Me.GbxCardsSilver.Controls.Add(Me.SN1) - Me.GbxCardsSilver.Controls.Add(Me.SP5) - Me.GbxCardsSilver.Controls.Add(Me.SP1) - Me.GbxCardsSilver.Controls.Add(Me.SN5) - Me.GbxCardsSilver.Controls.Add(Me.SN3) - Me.GbxCardsSilver.Controls.Add(Me.SN4) - Me.GbxCardsSilver.Controls.Add(Me.SP3) - Me.GbxCardsSilver.Controls.Add(Me.SP4) - Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) - Me.GbxCardsSilver.Name = "GbxCardsSilver" - Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) - Me.GbxCardsSilver.TabIndex = 1 - Me.GbxCardsSilver.TabStop = False - Me.GbxCardsSilver.Text = "Silver Cards" - ' - 'SN6 - ' - Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN6.Location = New System.Drawing.Point(86, 368) - Me.SN6.Name = "SN6" - Me.SN6.Size = New System.Drawing.Size(71, 20) - Me.SN6.TabIndex = 5 - Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 - Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP6 - ' - Me.SP6.BackColor = System.Drawing.Color.Silver - Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 - Me.SP6.InitialImage = Nothing - Me.SP6.Location = New System.Drawing.Point(86, 269) - Me.SP6.Name = "SP6" - Me.SP6.Size = New System.Drawing.Size(71, 93) - Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP6.TabIndex = 17 - Me.SP6.TabStop = False - ' - 'SN2 - ' - Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN2.Location = New System.Drawing.Point(86, 118) - Me.SN2.Name = "SN2" - Me.SN2.Size = New System.Drawing.Size(71, 20) - Me.SN2.TabIndex = 1 - Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 - Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP2 - ' - Me.SP2.BackColor = System.Drawing.Color.Silver - Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 - Me.SP2.InitialImage = Nothing - Me.SP2.Location = New System.Drawing.Point(86, 19) - Me.SP2.Name = "SP2" - Me.SP2.Size = New System.Drawing.Size(71, 93) - Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP2.TabIndex = 9 - Me.SP2.TabStop = False - ' - 'SN1 - ' - Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN1.Location = New System.Drawing.Point(9, 118) - Me.SN1.Name = "SN1" - Me.SN1.Size = New System.Drawing.Size(71, 20) - Me.SN1.TabIndex = 0 - Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 - Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP5 - ' - Me.SP5.BackColor = System.Drawing.Color.Silver - Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 - Me.SP5.InitialImage = Nothing - Me.SP5.Location = New System.Drawing.Point(9, 269) - Me.SP5.Name = "SP5" - Me.SP5.Size = New System.Drawing.Size(71, 93) - Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP5.TabIndex = 15 - Me.SP5.TabStop = False - ' - 'SP1 - ' - Me.SP1.BackColor = System.Drawing.Color.Silver - Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 - Me.SP1.InitialImage = Nothing - Me.SP1.Location = New System.Drawing.Point(9, 19) - Me.SP1.Name = "SP1" - Me.SP1.Size = New System.Drawing.Size(71, 93) - Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP1.TabIndex = 0 - Me.SP1.TabStop = False - ' - 'SN5 - ' - Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN5.Location = New System.Drawing.Point(9, 368) - Me.SN5.Name = "SN5" - Me.SN5.Size = New System.Drawing.Size(71, 20) - Me.SN5.TabIndex = 4 - Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 - Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SN3 - ' - Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN3.Location = New System.Drawing.Point(9, 243) - Me.SN3.Name = "SN3" - Me.SN3.Size = New System.Drawing.Size(71, 20) - Me.SN3.TabIndex = 2 - Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 - Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SN4 - ' - Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SN4.Location = New System.Drawing.Point(86, 243) - Me.SN4.Name = "SN4" - Me.SN4.Size = New System.Drawing.Size(71, 20) - Me.SN4.TabIndex = 3 - Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 - Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'SP3 - ' - Me.SP3.BackColor = System.Drawing.Color.Silver - Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 - Me.SP3.InitialImage = Nothing - Me.SP3.Location = New System.Drawing.Point(9, 144) - Me.SP3.Name = "SP3" - Me.SP3.Size = New System.Drawing.Size(71, 93) - Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP3.TabIndex = 11 - Me.SP3.TabStop = False - ' - 'SP4 - ' - Me.SP4.BackColor = System.Drawing.Color.Silver - Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 - Me.SP4.InitialImage = Nothing - Me.SP4.Location = New System.Drawing.Point(86, 144) - Me.SP4.Name = "SP4" - Me.SP4.Size = New System.Drawing.Size(71, 93) - Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.SP4.TabIndex = 13 - Me.SP4.TabStop = False - ' - 'TabPage6 - ' - Me.TabPage6.BackColor = System.Drawing.Color.LightGray - Me.TabPage6.Controls.Add(Me.Panel10) - Me.TabPage6.Controls.Add(Me.Label107) - Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) - Me.TabPage6.Controls.Add(Me.Label18) - Me.TabPage6.Controls.Add(Me.PNLWishList) - Me.TabPage6.Location = New System.Drawing.Point(4, 22) - Me.TabPage6.Name = "TabPage6" - Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage6.Size = New System.Drawing.Size(700, 411) - Me.TabPage6.TabIndex = 2 - Me.TabPage6.Text = "Wishlist" - ' - 'Panel10 - ' - Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel10.Controls.Add(Me.TBWishlistComment) - Me.Panel10.Controls.Add(Me.Label32) - Me.Panel10.Controls.Add(Me.TBWishlistItem) - Me.Panel10.Controls.Add(Me.radioGold) - Me.Panel10.Controls.Add(Me.Label42) - Me.Panel10.Controls.Add(Me.radioSilver) - Me.Panel10.Controls.Add(Me.TBWishlistURL) - Me.Panel10.Controls.Add(Me.NBWishlistCost) - Me.Panel10.Controls.Add(Me.Label48) - Me.Panel10.Controls.Add(Me.Label73) - Me.Panel10.Location = New System.Drawing.Point(38, 47) - Me.Panel10.Name = "Panel10" - Me.Panel10.Size = New System.Drawing.Size(252, 308) - Me.Panel10.TabIndex = 179 - ' - 'TBWishlistComment - ' - Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) - Me.TBWishlistComment.Multiline = True - Me.TBWishlistComment.Name = "TBWishlistComment" - Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) - Me.TBWishlistComment.TabIndex = 172 - ' - 'Label32 - ' - Me.Label32.AutoSize = True - Me.Label32.Location = New System.Drawing.Point(13, 4) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(58, 13) - Me.Label32.TabIndex = 167 - Me.Label32.Text = "Item Name" - ' - 'TBWishlistItem - ' - Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) - Me.TBWishlistItem.Name = "TBWishlistItem" - Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) - Me.TBWishlistItem.TabIndex = 168 - ' - 'radioGold - ' - Me.radioGold.AutoSize = True - Me.radioGold.Location = New System.Drawing.Point(167, 125) - Me.radioGold.Name = "radioGold" - Me.radioGold.Size = New System.Drawing.Size(47, 17) - Me.radioGold.TabIndex = 176 - Me.radioGold.Text = "Gold" - Me.radioGold.UseVisualStyleBackColor = True - ' - 'Label42 - ' - Me.Label42.AutoSize = True - Me.Label42.Location = New System.Drawing.Point(13, 56) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(75, 13) - Me.Label42.TabIndex = 169 - Me.Label42.Text = "Item Image Url" - ' - 'radioSilver - ' - Me.radioSilver.AutoSize = True - Me.radioSilver.Checked = True - Me.radioSilver.Location = New System.Drawing.Point(100, 125) - Me.radioSilver.Name = "radioSilver" - Me.radioSilver.Size = New System.Drawing.Size(51, 17) - Me.radioSilver.TabIndex = 175 - Me.radioSilver.TabStop = True - Me.radioSilver.Text = "Silver" - Me.radioSilver.UseVisualStyleBackColor = True - ' - 'TBWishlistURL - ' - Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) - Me.TBWishlistURL.Name = "TBWishlistURL" - Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) - Me.TBWishlistURL.TabIndex = 170 - ' - 'NBWishlistCost - ' - Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) - Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBWishlistCost.Name = "NBWishlistCost" - Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) - Me.NBWishlistCost.TabIndex = 174 - Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) - ' - 'Label48 - ' - Me.Label48.AutoSize = True - Me.Label48.Location = New System.Drawing.Point(13, 157) - Me.Label48.Name = "Label48" - Me.Label48.Size = New System.Drawing.Size(74, 13) - Me.Label48.TabIndex = 171 - Me.Label48.Text = "Item Comment" - ' - 'Label73 - ' - Me.Label73.AutoSize = True - Me.Label73.Location = New System.Drawing.Point(13, 108) - Me.Label73.Name = "Label73" - Me.Label73.Size = New System.Drawing.Size(51, 13) - Me.Label73.TabIndex = 173 - Me.Label73.Text = "Item Cost" - ' - 'Label107 - ' - Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label107.Location = New System.Drawing.Point(38, 5) - Me.Label107.Name = "Label107" - Me.Label107.Size = New System.Drawing.Size(252, 47) - Me.Label107.TabIndex = 178 - Me.Label107.Text = "Use this page to create Wishlist files." - Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNWishlistCreate - ' - Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) - Me.BTNWishlistCreate.Name = "BTNWishlistCreate" - Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) - Me.BTNWishlistCreate.TabIndex = 177 - Me.BTNWishlistCreate.Text = "Create Wishlist File" - Me.BTNWishlistCreate.UseVisualStyleBackColor = True - ' - 'Label18 - ' - Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label18.Location = New System.Drawing.Point(409, 5) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(250, 23) - Me.Label18.TabIndex = 166 - Me.Label18.Text = "Preview" - Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'PNLWishList - ' - Me.PNLWishList.BackColor = System.Drawing.Color.White - Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) - Me.PNLWishList.Controls.Add(Me.LBLWishListText) - Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) - Me.PNLWishList.Controls.Add(Me.WishlistCostGold) - Me.PNLWishList.Controls.Add(Me.LBLWishListName) - Me.PNLWishList.Controls.Add(Me.WishlistPreview) - Me.PNLWishList.Location = New System.Drawing.Point(407, 31) - Me.PNLWishList.Name = "PNLWishList" - Me.PNLWishList.Size = New System.Drawing.Size(250, 367) - Me.PNLWishList.TabIndex = 165 - ' - 'WishlistCostSilver - ' - Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent - Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"), System.Drawing.Image) - Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) - Me.WishlistCostSilver.Name = "WishlistCostSilver" - Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) - Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.WishlistCostSilver.TabIndex = 111 - Me.WishlistCostSilver.TabStop = False - ' - 'LBLWishListText - ' - Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) - Me.LBLWishListText.Name = "LBLWishListText" - Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) - Me.LBLWishListText.TabIndex = 108 - ' - 'LBLWishlistCost - ' - Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black - Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) - Me.LBLWishlistCost.Name = "LBLWishlistCost" - Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) - Me.LBLWishlistCost.TabIndex = 107 - Me.LBLWishlistCost.Text = "3" - Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'WishlistCostGold - ' - Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent - Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"), System.Drawing.Image) - Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) - Me.WishlistCostGold.Name = "WishlistCostGold" - Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) - Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.WishlistCostGold.TabIndex = 106 - Me.WishlistCostGold.TabStop = False - Me.WishlistCostGold.Visible = False - ' - 'LBLWishListName - ' - Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue - Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) - Me.LBLWishListName.Name = "LBLWishListName" - Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) - Me.LBLWishListName.TabIndex = 104 - Me.LBLWishListName.Text = "Item Name Goes Here" - Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'WishlistPreview - ' - Me.WishlistPreview.ImageLocation = "" - Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) - Me.WishlistPreview.Name = "WishlistPreview" - Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) - Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.WishlistPreview.TabIndex = 101 - Me.WishlistPreview.TabStop = False - ' - 'TabPage26 - ' - Me.TabPage26.BackColor = System.Drawing.Color.Silver - Me.TabPage26.Controls.Add(Me.Panel12) - Me.TabPage26.Location = New System.Drawing.Point(4, 22) - Me.TabPage26.Name = "TabPage26" - Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage26.Size = New System.Drawing.Size(720, 448) - Me.TabPage26.TabIndex = 19 - Me.TabPage26.Text = "Themes" - ' - 'Panel12 - ' - Me.Panel12.BackColor = System.Drawing.Color.LightGray - Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel12.Controls.Add(Me.GroupBox9) - Me.Panel12.Controls.Add(Me.PictureBox10) - Me.Panel12.Controls.Add(Me.GroupBox5) - Me.Panel12.Controls.Add(Me.GroupBox11) - Me.Panel12.Controls.Add(Me.GroupBox1) - Me.Panel12.Controls.Add(Me.Label164) - Me.Panel12.Location = New System.Drawing.Point(6, 6) - Me.Panel12.Name = "Panel12" - Me.Panel12.Size = New System.Drawing.Size(708, 437) - Me.Panel12.TabIndex = 93 - ' - 'GroupBox9 - ' - Me.GroupBox9.Controls.Add(Me.Button32) - Me.GroupBox9.Controls.Add(Me.Button31) - Me.GroupBox9.Location = New System.Drawing.Point(351, 231) - Me.GroupBox9.Name = "GroupBox9" - Me.GroupBox9.Size = New System.Drawing.Size(348, 94) - Me.GroupBox9.TabIndex = 152 - Me.GroupBox9.TabStop = False - Me.GroupBox9.Text = "System" - ' - 'Button32 - ' - Me.Button32.BackColor = System.Drawing.Color.Transparent - Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big - Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button32.Location = New System.Drawing.Point(196, 24) - Me.Button32.Name = "Button32" - Me.Button32.Size = New System.Drawing.Size(135, 55) - Me.Button32.TabIndex = 55 - Me.Button32.Text = " Save Theme" - Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText - Me.Button32.UseVisualStyleBackColor = False - ' - 'Button31 - ' - Me.Button31.BackColor = System.Drawing.Color.Transparent - Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big - Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button31.Location = New System.Drawing.Point(17, 24) - Me.Button31.Name = "Button31" - Me.Button31.Size = New System.Drawing.Size(135, 55) - Me.Button31.TabIndex = 54 - Me.Button31.Text = " Open Theme" - Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText - Me.Button31.UseVisualStyleBackColor = False - ' - 'PictureBox10 - ' - Me.PictureBox10.BackColor = System.Drawing.Color.LightGray - Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox10.Location = New System.Drawing.Point(9, 6) - Me.PictureBox10.Name = "PictureBox10" - Me.PictureBox10.Size = New System.Drawing.Size(160, 19) - Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox10.TabIndex = 151 - Me.PictureBox10.TabStop = False - ' - 'GroupBox5 - ' - Me.GroupBox5.Controls.Add(Me.CBTransparentTime) - Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) - Me.GroupBox5.Controls.Add(Me.Label137) - Me.GroupBox5.Controls.Add(Me.Label138) - Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) - Me.GroupBox5.Controls.Add(Me.LBLTextColor) - Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) - Me.GroupBox5.Controls.Add(Me.LBLTextColor2) - Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) - Me.GroupBox5.Controls.Add(Me.LBLBackColor2) - Me.GroupBox5.Controls.Add(Me.LBLButtonColor) - Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) - Me.GroupBox5.Controls.Add(Me.LBLBackColor) - Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) - Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) - Me.GroupBox5.Location = New System.Drawing.Point(9, 31) - Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(336, 294) - Me.GroupBox5.TabIndex = 58 - Me.GroupBox5.TabStop = False - Me.GroupBox5.Text = "UI Colors" - ' - 'CBTransparentTime - ' - Me.CBTransparentTime.AutoSize = True - Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) - Me.CBTransparentTime.Name = "CBTransparentTime" - Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) - Me.CBTransparentTime.TabIndex = 23 - Me.CBTransparentTime.Text = "Transparent Date/Time Window" - Me.CBTransparentTime.UseVisualStyleBackColor = True - ' - 'LBLDateTimeColor2 - ' - Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor - Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) - Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" - Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLDateTimeColor2.TabIndex = 19 - ' - 'Label137 - ' - Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label137.Location = New System.Drawing.Point(6, 227) - Me.Label137.Name = "Label137" - Me.Label137.Size = New System.Drawing.Size(175, 20) - Me.Label137.TabIndex = 20 - Me.Label137.Text = "Date/Time Window Color" - Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label138 - ' - Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label138.Location = New System.Drawing.Point(6, 193) - Me.Label138.Name = "Label138" - Me.Label138.Size = New System.Drawing.Size(175, 20) - Me.Label138.TabIndex = 17 - Me.Label138.Text = "Date/Time Text Color" - Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLDateBackColor2 - ' - Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor - Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) - Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLDateBackColor2.Name = "LBLDateBackColor2" - Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLDateBackColor2.TabIndex = 22 - ' - 'LBLTextColor - ' - Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) - Me.LBLTextColor.Name = "LBLTextColor" - Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) - Me.LBLTextColor.TabIndex = 7 - Me.LBLTextColor.Text = "Text Color" - Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLChatWindowColor2 - ' - Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor - Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) - Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" - Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLChatWindowColor2.TabIndex = 12 - ' - 'LBLTextColor2 - ' - Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor - Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) - Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLTextColor2.Name = "LBLTextColor2" - Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLTextColor2.TabIndex = 9 - ' - 'LBLChatTextColor - ' - Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) - Me.LBLChatTextColor.Name = "LBLChatTextColor" - Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) - Me.LBLChatTextColor.TabIndex = 14 - Me.LBLChatTextColor.Text = "Chat Text Color" - Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLBackColor2 - ' - Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor - Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) - Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLBackColor2.Name = "LBLBackColor2" - Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLBackColor2.TabIndex = 3 - ' - 'LBLButtonColor - ' - Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) - Me.LBLButtonColor.Name = "LBLButtonColor" - Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) - Me.LBLButtonColor.TabIndex = 4 - Me.LBLButtonColor.Text = "Button Color" - Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLChatWindowColor - ' - Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) - Me.LBLChatWindowColor.Name = "LBLChatWindowColor" - Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) - Me.LBLChatWindowColor.TabIndex = 10 - Me.LBLChatWindowColor.Text = "Chat Window Color" - Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLBackColor - ' - Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) - Me.LBLBackColor.Name = "LBLBackColor" - Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) - Me.LBLBackColor.TabIndex = 0 - Me.LBLBackColor.Text = "Background Color" - Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLChatTextColor2 - ' - Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor - Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) - Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLChatTextColor2.Name = "LBLChatTextColor2" - Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLChatTextColor2.TabIndex = 16 - ' - 'LBLButtonColor2 - ' - Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor - Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) - Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) - Me.LBLButtonColor2.Name = "LBLButtonColor2" - Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) - Me.LBLButtonColor2.TabIndex = 6 - ' - 'GroupBox11 - ' - Me.GroupBox11.BackColor = System.Drawing.Color.LightGray - Me.GroupBox11.Controls.Add(Me.Label144) - Me.GroupBox11.ForeColor = System.Drawing.Color.Black - Me.GroupBox11.Location = New System.Drawing.Point(7, 331) - Me.GroupBox11.Name = "GroupBox11" - Me.GroupBox11.Size = New System.Drawing.Size(692, 92) - Me.GroupBox11.TabIndex = 65 - Me.GroupBox11.TabStop = False - Me.GroupBox11.Text = "Description" - ' - 'Label144 - ' - Me.Label144.BackColor = System.Drawing.Color.Transparent - Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label144.ForeColor = System.Drawing.Color.Black - Me.Label144.Location = New System.Drawing.Point(6, 16) - Me.Label144.Name = "Label144" - Me.Label144.Size = New System.Drawing.Size(680, 73) - Me.Label144.TabIndex = 62 - Me.Label144.Text = "Use this page to create custom themes for Tease AI." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Themes can then be saved a" & - "nd opened from txt files." - Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.CBFlipBack) - Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) - Me.GroupBox1.Controls.Add(Me.Button17) - Me.GroupBox1.Controls.Add(Me.CBStretchBack) - Me.GroupBox1.Controls.Add(Me.Button18) - Me.GroupBox1.Location = New System.Drawing.Point(351, 30) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(348, 195) - Me.GroupBox1.TabIndex = 57 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Background" - ' - 'CBFlipBack - ' - Me.CBFlipBack.Enabled = False - Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) - Me.CBFlipBack.Name = "CBFlipBack" - Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) - Me.CBFlipBack.TabIndex = 4 - Me.CBFlipBack.Text = "Flip Background" - Me.CBFlipBack.UseVisualStyleBackColor = True - ' - 'PBBackgroundPreview - ' - Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) - Me.PBBackgroundPreview.Name = "PBBackgroundPreview" - Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) - Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PBBackgroundPreview.TabIndex = 0 - Me.PBBackgroundPreview.TabStop = False - ' - 'Button17 - ' - Me.Button17.BackColor = System.Drawing.Color.Transparent - Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load - Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button17.Location = New System.Drawing.Point(228, 36) - Me.Button17.Name = "Button17" - Me.Button17.Size = New System.Drawing.Size(103, 93) - Me.Button17.TabIndex = 1 - Me.Button17.UseVisualStyleBackColor = False - ' - 'CBStretchBack - ' - Me.CBStretchBack.Checked = True - Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) - Me.CBStretchBack.Name = "CBStretchBack" - Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) - Me.CBStretchBack.TabIndex = 2 - Me.CBStretchBack.Text = "Stretch Background" - Me.CBStretchBack.UseVisualStyleBackColor = True - ' - 'Button18 - ' - Me.Button18.Location = New System.Drawing.Point(228, 155) - Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(103, 31) - Me.Button18.TabIndex = 3 - Me.Button18.Text = "Clear" - Me.Button18.UseVisualStyleBackColor = True - ' - 'Label164 - ' - Me.Label164.BackColor = System.Drawing.Color.Transparent - Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label164.ForeColor = System.Drawing.Color.Black - Me.Label164.Location = New System.Drawing.Point(7, 6) - Me.Label164.Name = "Label164" - Me.Label164.Size = New System.Drawing.Size(692, 21) - Me.Label164.TabIndex = 49 - Me.Label164.Text = "Theme Settings" - Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage4 - ' - Me.TabPage4.BackColor = System.Drawing.Color.Silver - Me.TabPage4.Controls.Add(Me.Panel6) - Me.TabPage4.Location = New System.Drawing.Point(4, 22) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage4.Size = New System.Drawing.Size(720, 448) - Me.TabPage4.TabIndex = 3 - Me.TabPage4.Text = "Ranges" - ' - 'Panel6 - ' - Me.Panel6.BackColor = System.Drawing.Color.LightGray - Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel6.Controls.Add(Me.GroupBox69) - Me.Panel6.Controls.Add(Me.GroupBox68) - Me.Panel6.Controls.Add(Me.GroupBox67) - Me.Panel6.Controls.Add(Me.GroupBox10) - Me.Panel6.Controls.Add(Me.GroupBox57) - Me.Panel6.Controls.Add(Me.GBRangeRuinChance) - Me.Panel6.Controls.Add(Me.GroupBox17) - Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) - Me.Panel6.Controls.Add(Me.PictureBox8) - Me.Panel6.Controls.Add(Me.Label38) - Me.Panel6.Location = New System.Drawing.Point(6, 6) - Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(708, 437) - Me.Panel6.TabIndex = 91 - ' - 'GroupBox69 - ' - Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) - Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) - Me.GroupBox69.Controls.Add(Me.TimedWriting) - Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) - Me.GroupBox69.Location = New System.Drawing.Point(236, 344) - Me.GroupBox69.Name = "GroupBox69" - Me.GroupBox69.Size = New System.Drawing.Size(166, 83) - Me.GroupBox69.TabIndex = 173 - Me.GroupBox69.TabStop = False - Me.GroupBox69.Text = "Writing Tasks" - ' - 'TypesSpeedVal - ' - Me.TypesSpeedVal.AutoSize = True - Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) - Me.TypesSpeedVal.Name = "TypesSpeedVal" - Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) - Me.TypesSpeedVal.TabIndex = 0 - Me.TypesSpeedVal.Text = "10" - Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'TypeSpeedLabel - ' - Me.TypeSpeedLabel.AutoSize = True - Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) - Me.TypeSpeedLabel.Name = "TypeSpeedLabel" - Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) - Me.TypeSpeedLabel.TabIndex = 2 - Me.TypeSpeedLabel.Text = "Typing Speed:" - ' - 'TimedWriting - ' - Me.TimedWriting.AutoSize = True - Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting - Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TimedWriting.Location = New System.Drawing.Point(9, 19) - Me.TimedWriting.Name = "TimedWriting" - Me.TimedWriting.Size = New System.Drawing.Size(123, 17) - Me.TimedWriting.TabIndex = 1 - Me.TimedWriting.Text = "Timed Writing Tasks" - Me.TimedWriting.UseVisualStyleBackColor = True - ' - 'TypeSpeedSlider - ' - Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) - Me.TypeSpeedSlider.Maximum = 100 - Me.TypeSpeedSlider.Minimum = 33 - Me.TypeSpeedSlider.Name = "TypeSpeedSlider" - Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) - Me.TypeSpeedSlider.TabIndex = 3 - Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed - ' - 'GroupBox68 - ' - Me.GroupBox68.Controls.Add(Me.NBTasksMax) - Me.GroupBox68.Controls.Add(Me.NBTasksMin) - Me.GroupBox68.Controls.Add(Me.Label165) - Me.GroupBox68.Controls.Add(Me.Label166) - Me.GroupBox68.Location = New System.Drawing.Point(236, 287) - Me.GroupBox68.Name = "GroupBox68" - Me.GroupBox68.Size = New System.Drawing.Size(166, 51) - Me.GroupBox68.TabIndex = 172 - Me.GroupBox68.TabStop = False - Me.GroupBox68.Text = "Session Tasks" - ' - 'NBTasksMax - ' - Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) - Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) - Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBTasksMax.Name = "NBTasksMax" - Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) - Me.NBTasksMax.TabIndex = 187 - Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) - ' - 'NBTasksMin - ' - Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) - Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) - Me.NBTasksMin.Name = "NBTasksMin" - Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) - Me.NBTasksMin.TabIndex = 186 - Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) - ' - 'Label165 - ' - Me.Label165.BackColor = System.Drawing.Color.Transparent - Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label165.ForeColor = System.Drawing.Color.Black - Me.Label165.Location = New System.Drawing.Point(100, 20) - Me.Label165.Name = "Label165" - Me.Label165.Size = New System.Drawing.Size(10, 17) - Me.Label165.TabIndex = 185 - Me.Label165.Text = "-" - Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label166 - ' - Me.Label166.BackColor = System.Drawing.Color.Transparent - Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label166.ForeColor = System.Drawing.Color.Black - Me.Label166.Location = New System.Drawing.Point(6, 21) - Me.Label166.Name = "Label166" - Me.Label166.Size = New System.Drawing.Size(49, 17) - Me.Label166.TabIndex = 188 - Me.Label166.Text = "Amount:" - Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox67 - ' - Me.GroupBox67.Controls.Add(Me.Label161) - Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) - Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) - Me.GroupBox67.Controls.Add(Me.Label162) - Me.GroupBox67.Controls.Add(Me.Label163) - Me.GroupBox67.Controls.Add(Me.Label158) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) - Me.GroupBox67.Controls.Add(Me.Label159) - Me.GroupBox67.Controls.Add(Me.Label160) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) - Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) - Me.GroupBox67.Controls.Add(Me.Label119) - Me.GroupBox67.Controls.Add(Me.Label157) - Me.GroupBox67.Controls.Add(Me.Label151) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) - Me.GroupBox67.Controls.Add(Me.Label154) - Me.GroupBox67.Controls.Add(Me.Label155) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) - Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) - Me.GroupBox67.Controls.Add(Me.Label146) - Me.GroupBox67.Controls.Add(Me.Label149) - Me.GroupBox67.Location = New System.Drawing.Point(408, 288) - Me.GroupBox67.Name = "GroupBox67" - Me.GroupBox67.Size = New System.Drawing.Size(291, 139) - Me.GroupBox67.TabIndex = 171 - Me.GroupBox67.TabStop = False - Me.GroupBox67.Text = "Letter Tasks" - ' - 'Label161 - ' - Me.Label161.BackColor = System.Drawing.Color.Transparent - Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label161.ForeColor = System.Drawing.Color.Black - Me.Label161.Location = New System.Drawing.Point(233, 110) - Me.Label161.Name = "Label161" - Me.Label161.Size = New System.Drawing.Size(50, 17) - Me.Label161.TabIndex = 204 - Me.Label161.Text = "minutes" - Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskCBTTimeMax - ' - Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) - Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) - Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" - Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskCBTTimeMax.TabIndex = 203 - Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax - ' - 'NBTaskCBTTimeMin - ' - Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) - Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" - Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskCBTTimeMin.TabIndex = 202 - Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin - ' - 'Label162 - ' - Me.Label162.BackColor = System.Drawing.Color.Transparent - Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label162.ForeColor = System.Drawing.Color.Black - Me.Label162.Location = New System.Drawing.Point(167, 110) - Me.Label162.Name = "Label162" - Me.Label162.Size = New System.Drawing.Size(10, 17) - Me.Label162.TabIndex = 201 - Me.Label162.Text = "-" - Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label163 - ' - Me.Label163.BackColor = System.Drawing.Color.Transparent - Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label163.ForeColor = System.Drawing.Color.Black - Me.Label163.Location = New System.Drawing.Point(12, 111) - Me.Label163.Name = "Label163" - Me.Label163.Size = New System.Drawing.Size(151, 17) - Me.Label163.TabIndex = 200 - Me.Label163.Text = "CBT Time:" - Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label158 - ' - Me.Label158.BackColor = System.Drawing.Color.Transparent - Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label158.ForeColor = System.Drawing.Color.Black - Me.Label158.Location = New System.Drawing.Point(233, 87) - Me.Label158.Name = "Label158" - Me.Label158.Size = New System.Drawing.Size(50, 17) - Me.Label158.TabIndex = 199 - Me.Label158.Text = "minutes" - Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskEdgeHoldTimeMax - ' - Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) - Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" - Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 - Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax - ' - 'NBTaskEdgeHoldTimeMin - ' - Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) - Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" - Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 - Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin - ' - 'Label159 - ' - Me.Label159.BackColor = System.Drawing.Color.Transparent - Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label159.ForeColor = System.Drawing.Color.Black - Me.Label159.Location = New System.Drawing.Point(167, 87) - Me.Label159.Name = "Label159" - Me.Label159.Size = New System.Drawing.Size(10, 17) - Me.Label159.TabIndex = 196 - Me.Label159.Text = "-" - Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label160 - ' - Me.Label160.BackColor = System.Drawing.Color.Transparent - Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label160.ForeColor = System.Drawing.Color.Black - Me.Label160.Location = New System.Drawing.Point(12, 88) - Me.Label160.Name = "Label160" - Me.Label160.Size = New System.Drawing.Size(151, 17) - Me.Label160.TabIndex = 195 - Me.Label160.Text = "Edge Hold Time:" - Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskEdgesMax - ' - Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) - Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) - Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" - Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgesMax.TabIndex = 194 - Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax - ' - 'NBTaskEdgesMin - ' - Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) - Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" - Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskEdgesMin.TabIndex = 193 - Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin - ' - 'Label119 - ' - Me.Label119.BackColor = System.Drawing.Color.Transparent - Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label119.ForeColor = System.Drawing.Color.Black - Me.Label119.Location = New System.Drawing.Point(167, 64) - Me.Label119.Name = "Label119" - Me.Label119.Size = New System.Drawing.Size(10, 17) - Me.Label119.TabIndex = 192 - Me.Label119.Text = "-" - Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label157 - ' - Me.Label157.BackColor = System.Drawing.Color.Transparent - Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label157.ForeColor = System.Drawing.Color.Black - Me.Label157.Location = New System.Drawing.Point(12, 65) - Me.Label157.Name = "Label157" - Me.Label157.Size = New System.Drawing.Size(151, 17) - Me.Label157.TabIndex = 191 - Me.Label157.Text = "Edges:" - Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label151 - ' - Me.Label151.BackColor = System.Drawing.Color.Transparent - Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label151.ForeColor = System.Drawing.Color.Black - Me.Label151.Location = New System.Drawing.Point(233, 41) - Me.Label151.Name = "Label151" - Me.Label151.Size = New System.Drawing.Size(50, 17) - Me.Label151.TabIndex = 190 - Me.Label151.Text = "minutes" - Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskStrokingTimeMax - ' - Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) - Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" - Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokingTimeMax.TabIndex = 189 - Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax - ' - 'NBTaskStrokingTimeMin - ' - Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) - Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" - Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokingTimeMin.TabIndex = 188 - Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin - ' - 'Label154 - ' - Me.Label154.BackColor = System.Drawing.Color.Transparent - Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label154.ForeColor = System.Drawing.Color.Black - Me.Label154.Location = New System.Drawing.Point(167, 41) - Me.Label154.Name = "Label154" - Me.Label154.Size = New System.Drawing.Size(10, 17) - Me.Label154.TabIndex = 187 - Me.Label154.Text = "-" - Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label155 - ' - Me.Label155.BackColor = System.Drawing.Color.Transparent - Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label155.ForeColor = System.Drawing.Color.Black - Me.Label155.Location = New System.Drawing.Point(12, 42) - Me.Label155.Name = "Label155" - Me.Label155.Size = New System.Drawing.Size(151, 17) - Me.Label155.TabIndex = 186 - Me.Label155.Text = "Stroking Time:" - Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTaskStrokesMax - ' - Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) - Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" - Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokesMax.TabIndex = 184 - Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax - ' - 'NBTaskStrokesMin - ' - Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) - Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) - Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" - Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) - Me.NBTaskStrokesMin.TabIndex = 183 - Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin - ' - 'Label146 - ' - Me.Label146.BackColor = System.Drawing.Color.Transparent - Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label146.ForeColor = System.Drawing.Color.Black - Me.Label146.Location = New System.Drawing.Point(167, 18) - Me.Label146.Name = "Label146" - Me.Label146.Size = New System.Drawing.Size(10, 17) - Me.Label146.TabIndex = 182 - Me.Label146.Text = "-" - Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label149 - ' - Me.Label149.BackColor = System.Drawing.Color.Transparent - Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label149.ForeColor = System.Drawing.Color.Black - Me.Label149.Location = New System.Drawing.Point(12, 19) - Me.Label149.Name = "Label149" - Me.Label149.Size = New System.Drawing.Size(151, 17) - Me.Label149.TabIndex = 181 - Me.Label149.Text = "Strokes:" - Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox10 - ' - Me.GroupBox10.Controls.Add(Me.Label112) - Me.GroupBox10.Controls.Add(Me.NBNextImageChance) - Me.GroupBox10.Controls.Add(Me.Label6) - Me.GroupBox10.Location = New System.Drawing.Point(408, 31) - Me.GroupBox10.Name = "GroupBox10" - Me.GroupBox10.Size = New System.Drawing.Size(291, 54) - Me.GroupBox10.TabIndex = 170 - Me.GroupBox10.TabStop = False - Me.GroupBox10.Text = "Tease Slideshow" - ' - 'Label112 - ' - Me.Label112.BackColor = System.Drawing.Color.Transparent - Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label112.ForeColor = System.Drawing.Color.Black - Me.Label112.Location = New System.Drawing.Point(233, 21) - Me.Label112.Name = "Label112" - Me.Label112.Size = New System.Drawing.Size(50, 17) - Me.Label112.TabIndex = 180 - Me.Label112.Text = "percent" - Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBNextImageChance - ' - Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) - Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBNextImageChance.Name = "NBNextImageChance" - Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) - Me.NBNextImageChance.TabIndex = 179 - Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label6 - ' - Me.Label6.BackColor = System.Drawing.Color.Transparent - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.ForeColor = System.Drawing.Color.Black - Me.Label6.Location = New System.Drawing.Point(9, 21) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(151, 17) - Me.Label6.TabIndex = 154 - Me.Label6.Text = "Image Next/Previous Chance:" - Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox57 - ' - Me.GroupBox57.Controls.Add(Me.Label139) - Me.GroupBox57.Controls.Add(Me.NBTauntEdging) - Me.GroupBox57.Controls.Add(Me.LBLVtf) - Me.GroupBox57.Controls.Add(Me.LBLStf) - Me.GroupBox57.Controls.Add(Me.SliderSTF) - Me.GroupBox57.Controls.Add(Me.TauntSlider) - Me.GroupBox57.Controls.Add(Me.Label106) - Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) - Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) - Me.GroupBox57.Controls.Add(Me.Label103) - Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) - Me.GroupBox57.Controls.Add(Me.Label105) - Me.GroupBox57.Controls.Add(Me.Label101) - Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) - Me.GroupBox57.Controls.Add(Me.Label102) - Me.GroupBox57.Controls.Add(Me.Label97) - Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) - Me.GroupBox57.Controls.Add(Me.Label99) - Me.GroupBox57.Controls.Add(Me.Label96) - Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) - Me.GroupBox57.Controls.Add(Me.Label95) - Me.GroupBox57.Controls.Add(Me.Label49) - Me.GroupBox57.Controls.Add(Me.Label141) - Me.GroupBox57.Location = New System.Drawing.Point(7, 30) - Me.GroupBox57.Name = "GroupBox57" - Me.GroupBox57.Size = New System.Drawing.Size(223, 308) - Me.GroupBox57.TabIndex = 169 - Me.GroupBox57.TabStop = False - Me.GroupBox57.Text = "Tease" - ' - 'Label139 - ' - Me.Label139.BackColor = System.Drawing.Color.Transparent - Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label139.ForeColor = System.Drawing.Color.Black - Me.Label139.Location = New System.Drawing.Point(175, 171) - Me.Label139.Name = "Label139" - Me.Label139.Size = New System.Drawing.Size(50, 17) - Me.Label139.TabIndex = 184 - Me.Label139.Text = "percent" - Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTauntEdging - ' - Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) - Me.NBTauntEdging.Name = "NBTauntEdging" - Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) - Me.NBTauntEdging.TabIndex = 188 - Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) - ' - 'LBLVtf - ' - Me.LBLVtf.BackColor = System.Drawing.Color.Transparent - Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLVtf.ForeColor = System.Drawing.Color.Black - Me.LBLVtf.Location = New System.Drawing.Point(128, 261) - Me.LBLVtf.Name = "LBLVtf" - Me.LBLVtf.Size = New System.Drawing.Size(87, 17) - Me.LBLVtf.TabIndex = 187 - Me.LBLVtf.Text = "Normal" - Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLStf - ' - Me.LBLStf.BackColor = System.Drawing.Color.Transparent - Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLStf.ForeColor = System.Drawing.Color.Black - Me.LBLStf.Location = New System.Drawing.Point(130, 220) - Me.LBLStf.Name = "LBLStf" - Me.LBLStf.Size = New System.Drawing.Size(87, 17) - Me.LBLStf.TabIndex = 165 - Me.LBLStf.Text = "Normal" - Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'SliderSTF - ' - Me.SliderSTF.AutoSize = False - Me.SliderSTF.LargeChange = 1 - Me.SliderSTF.Location = New System.Drawing.Point(130, 199) - Me.SliderSTF.Maximum = 5 - Me.SliderSTF.Minimum = 1 - Me.SliderSTF.Name = "SliderSTF" - Me.SliderSTF.Size = New System.Drawing.Size(87, 25) - Me.SliderSTF.TabIndex = 163 - Me.SliderSTF.Value = 3 - ' - 'TauntSlider - ' - Me.TauntSlider.AutoSize = False - Me.TauntSlider.LargeChange = 1 - Me.TauntSlider.Location = New System.Drawing.Point(130, 240) - Me.TauntSlider.Maximum = 9 - Me.TauntSlider.Minimum = 1 - Me.TauntSlider.Name = "TauntSlider" - Me.TauntSlider.Size = New System.Drawing.Size(87, 25) - Me.TauntSlider.TabIndex = 161 - Me.TauntSlider.Value = 4 - ' - 'Label106 - ' - Me.Label106.BackColor = System.Drawing.Color.Transparent - Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label106.ForeColor = System.Drawing.Color.Black - Me.Label106.Location = New System.Drawing.Point(6, 243) - Me.Label106.Name = "Label106" - Me.Label106.Size = New System.Drawing.Size(123, 17) - Me.Label106.TabIndex = 186 - Me.Label106.Text = "Video Taunt Frequency:" - Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CBTauntCycleDD - ' - Me.CBTauntCycleDD.AutoSize = True - Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black - Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) - Me.CBTauntCycleDD.Name = "CBTauntCycleDD" - Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) - Me.CBTauntCycleDD.TabIndex = 185 - Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" - Me.CBTauntCycleDD.UseVisualStyleBackColor = True - ' - 'CBTeaseLengthDD - ' - Me.CBTeaseLengthDD.AutoSize = True - Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black - Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) - Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" - Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) - Me.CBTeaseLengthDD.TabIndex = 184 - Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" - Me.CBTeaseLengthDD.UseVisualStyleBackColor = True - ' - 'Label103 - ' - Me.Label103.BackColor = System.Drawing.Color.Transparent - Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label103.ForeColor = System.Drawing.Color.Black - Me.Label103.Location = New System.Drawing.Point(175, 117) - Me.Label103.Name = "Label103" - Me.Label103.Size = New System.Drawing.Size(50, 17) - Me.Label103.TabIndex = 183 - Me.Label103.Text = "minutes" - Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTauntCycleMax - ' - Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) - Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) - Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) - Me.NBTauntCycleMax.Name = "NBTauntCycleMax" - Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) - Me.NBTauntCycleMax.TabIndex = 182 - Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) - ' - 'Label105 - ' - Me.Label105.BackColor = System.Drawing.Color.Transparent - Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label105.ForeColor = System.Drawing.Color.Black - Me.Label105.Location = New System.Drawing.Point(6, 117) - Me.Label105.Name = "Label105" - Me.Label105.Size = New System.Drawing.Size(123, 17) - Me.Label105.TabIndex = 181 - Me.Label105.Text = "Taunt Cycle Maximum:" - Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label101 - ' - Me.Label101.BackColor = System.Drawing.Color.Transparent - Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label101.ForeColor = System.Drawing.Color.Black - Me.Label101.Location = New System.Drawing.Point(175, 93) - Me.Label101.Name = "Label101" - Me.Label101.Size = New System.Drawing.Size(50, 17) - Me.Label101.TabIndex = 180 - Me.Label101.Text = "minutes" - Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTauntCycleMin - ' - Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) - Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBTauntCycleMin.Name = "NBTauntCycleMin" - Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) - Me.NBTauntCycleMin.TabIndex = 179 - Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) - ' - 'Label102 - ' - Me.Label102.BackColor = System.Drawing.Color.Transparent - Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label102.ForeColor = System.Drawing.Color.Black - Me.Label102.Location = New System.Drawing.Point(6, 93) - Me.Label102.Name = "Label102" - Me.Label102.Size = New System.Drawing.Size(123, 17) - Me.Label102.TabIndex = 178 - Me.Label102.Text = "Taunt Cycle Minimum:" - Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label97 - ' - Me.Label97.BackColor = System.Drawing.Color.Transparent - Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label97.ForeColor = System.Drawing.Color.Black - Me.Label97.Location = New System.Drawing.Point(175, 46) - Me.Label97.Name = "Label97" - Me.Label97.Size = New System.Drawing.Size(50, 17) - Me.Label97.TabIndex = 177 - Me.Label97.Text = "minutes" - Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTeaseLengthMax - ' - Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) - Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) - Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) - Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" - Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) - Me.NBTeaseLengthMax.TabIndex = 176 - Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'Label99 - ' - Me.Label99.BackColor = System.Drawing.Color.Transparent - Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label99.ForeColor = System.Drawing.Color.Black - Me.Label99.Location = New System.Drawing.Point(6, 46) - Me.Label99.Name = "Label99" - Me.Label99.Size = New System.Drawing.Size(123, 17) - Me.Label99.TabIndex = 175 - Me.Label99.Text = "Tease Length Maximum:" - Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label96 - ' - Me.Label96.BackColor = System.Drawing.Color.Transparent - Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label96.ForeColor = System.Drawing.Color.Black - Me.Label96.Location = New System.Drawing.Point(175, 20) - Me.Label96.Name = "Label96" - Me.Label96.Size = New System.Drawing.Size(50, 17) - Me.Label96.TabIndex = 174 - Me.Label96.Text = "minutes" - Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBTeaseLengthMin - ' - Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) - Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) - Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" - Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) - Me.NBTeaseLengthMin.TabIndex = 169 - Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) - ' - 'Label95 - ' - Me.Label95.BackColor = System.Drawing.Color.Transparent - Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label95.ForeColor = System.Drawing.Color.Black - Me.Label95.Location = New System.Drawing.Point(6, 20) - Me.Label95.Name = "Label95" - Me.Label95.Size = New System.Drawing.Size(123, 17) - Me.Label95.TabIndex = 166 - Me.Label95.Text = "Tease Length Minimum:" - Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label49 - ' - Me.Label49.BackColor = System.Drawing.Color.Transparent - Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label49.ForeColor = System.Drawing.Color.Black - Me.Label49.Location = New System.Drawing.Point(6, 207) - Me.Label49.Name = "Label49" - Me.Label49.Size = New System.Drawing.Size(132, 17) - Me.Label49.TabIndex = 164 - Me.Label49.Text = "Stroke Taunt Frequency:" - Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label141 - ' - Me.Label141.BackColor = System.Drawing.Color.Transparent - Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label141.ForeColor = System.Drawing.Color.Black - Me.Label141.Location = New System.Drawing.Point(6, 163) - Me.Label141.Name = "Label141" - Me.Label141.Size = New System.Drawing.Size(141, 32) - Me.Label141.TabIndex = 189 - Me.Label141.Text = "Edging Ends Taunts:" - Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GBRangeRuinChance - ' - Me.GBRangeRuinChance.Controls.Add(Me.Label90) - Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) - Me.GBRangeRuinChance.Controls.Add(Me.Label91) - Me.GBRangeRuinChance.Controls.Add(Me.Label92) - Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) - Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) - Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) - Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) - Me.GBRangeRuinChance.Name = "GBRangeRuinChance" - Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) - Me.GBRangeRuinChance.TabIndex = 168 - Me.GBRangeRuinChance.TabStop = False - Me.GBRangeRuinChance.Text = "Ruin Chance" - ' - 'Label90 - ' - Me.Label90.BackColor = System.Drawing.Color.Transparent - Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label90.ForeColor = System.Drawing.Color.Black - Me.Label90.Location = New System.Drawing.Point(6, 94) - Me.Label90.Name = "Label90" - Me.Label90.Size = New System.Drawing.Size(83, 17) - Me.Label90.TabIndex = 173 - Me.Label90.Text = "Rarely Ruins:" - Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBRuinSometimes - ' - Me.NBRuinSometimes.Enabled = False - Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) - Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBRuinSometimes.Name = "NBRuinSometimes" - Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) - Me.NBRuinSometimes.TabIndex = 169 - Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) - ' - 'Label91 - ' - Me.Label91.BackColor = System.Drawing.Color.Transparent - Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label91.ForeColor = System.Drawing.Color.Black - Me.Label91.Location = New System.Drawing.Point(6, 68) - Me.Label91.Name = "Label91" - Me.Label91.Size = New System.Drawing.Size(102, 17) - Me.Label91.TabIndex = 172 - Me.Label91.Text = "Sometimes Ruins:" - Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label92 - ' - Me.Label92.BackColor = System.Drawing.Color.Transparent - Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label92.ForeColor = System.Drawing.Color.Black - Me.Label92.Location = New System.Drawing.Point(6, 42) - Me.Label92.Name = "Label92" - Me.Label92.Size = New System.Drawing.Size(72, 17) - Me.Label92.TabIndex = 171 - Me.Label92.Text = "Often Ruins:" - Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBRuinRarely - ' - Me.NBRuinRarely.Enabled = False - Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) - Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBRuinRarely.Name = "NBRuinRarely" - Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) - Me.NBRuinRarely.TabIndex = 170 - Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) - ' - 'NBRuinOften - ' - Me.NBRuinOften.Enabled = False - Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) - Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBRuinOften.Name = "NBRuinOften" - Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) - Me.NBRuinOften.TabIndex = 168 - Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) - ' - 'CBRangeRuin - ' - Me.CBRangeRuin.AutoSize = True - Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black - Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) - Me.CBRangeRuin.Name = "CBRangeRuin" - Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) - Me.CBRangeRuin.TabIndex = 159 - Me.CBRangeRuin.Text = "Domme Decide" - Me.CBRangeRuin.UseVisualStyleBackColor = True - ' - 'GroupBox17 - ' - Me.GroupBox17.Controls.Add(Me.GroupBox19) - Me.GroupBox17.Controls.Add(Me.GroupBox18) - Me.GroupBox17.Location = New System.Drawing.Point(408, 91) - Me.GroupBox17.Name = "GroupBox17" - Me.GroupBox17.Size = New System.Drawing.Size(291, 190) - Me.GroupBox17.TabIndex = 0 - Me.GroupBox17.TabStop = False - Me.GroupBox17.Text = "Video Teases" - ' - 'GroupBox19 - ' - Me.GroupBox19.Controls.Add(Me.Label110) - Me.GroupBox19.Controls.Add(Me.Label111) - Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) - Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) - Me.GroupBox19.Controls.Add(Me.NBRedLightMax) - Me.GroupBox19.Controls.Add(Me.Label26) - Me.GroupBox19.Controls.Add(Me.NBRedLightMin) - Me.GroupBox19.Controls.Add(Me.Label28) - Me.GroupBox19.Controls.Add(Me.Label27) - Me.GroupBox19.Controls.Add(Me.Label29) - Me.GroupBox19.Location = New System.Drawing.Point(6, 110) - Me.GroupBox19.Name = "GroupBox19" - Me.GroupBox19.Size = New System.Drawing.Size(279, 66) - Me.GroupBox19.TabIndex = 2 - Me.GroupBox19.TabStop = False - Me.GroupBox19.Text = "Red Light, Green Light" - ' - 'Label110 - ' - Me.Label110.BackColor = System.Drawing.Color.Transparent - Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label110.ForeColor = System.Drawing.Color.Black - Me.Label110.Location = New System.Drawing.Point(227, 39) - Me.Label110.Name = "Label110" - Me.Label110.Size = New System.Drawing.Size(50, 17) - Me.Label110.TabIndex = 181 - Me.Label110.Text = "seconds" - Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label111 - ' - Me.Label111.BackColor = System.Drawing.Color.Transparent - Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label111.ForeColor = System.Drawing.Color.Black - Me.Label111.Location = New System.Drawing.Point(227, 16) - Me.Label111.Name = "Label111" - Me.Label111.Size = New System.Drawing.Size(50, 17) - Me.Label111.TabIndex = 180 - Me.Label111.Text = "seconds" - Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBGreenLightMax - ' - Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) - Me.NBGreenLightMax.Name = "NBGreenLightMax" - Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) - Me.NBGreenLightMax.TabIndex = 156 - Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) - ' - 'NBGreenLightMin - ' - Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) - Me.NBGreenLightMin.Name = "NBGreenLightMin" - Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) - Me.NBGreenLightMin.TabIndex = 155 - Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) - ' - 'NBRedLightMax - ' - Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) - Me.NBRedLightMax.Name = "NBRedLightMax" - Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) - Me.NBRedLightMax.TabIndex = 152 - Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) - ' - 'Label26 - ' - Me.Label26.BackColor = System.Drawing.Color.Transparent - Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label26.ForeColor = System.Drawing.Color.Black - Me.Label26.Location = New System.Drawing.Point(161, 38) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(10, 17) - Me.Label26.TabIndex = 154 - Me.Label26.Text = "-" - Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBRedLightMin - ' - Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) - Me.NBRedLightMin.Name = "NBRedLightMin" - Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) - Me.NBRedLightMin.TabIndex = 151 - Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) - ' - 'Label28 - ' - Me.Label28.BackColor = System.Drawing.Color.Transparent - Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.ForeColor = System.Drawing.Color.Black - Me.Label28.Location = New System.Drawing.Point(161, 15) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(10, 17) - Me.Label28.TabIndex = 150 - Me.Label28.Text = "-" - Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label27 - ' - Me.Label27.BackColor = System.Drawing.Color.Transparent - Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label27.ForeColor = System.Drawing.Color.Black - Me.Label27.Location = New System.Drawing.Point(6, 39) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(151, 17) - Me.Label27.TabIndex = 153 - Me.Label27.Text = "Green Light Time:" - Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label29 - ' - Me.Label29.BackColor = System.Drawing.Color.Transparent - Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.ForeColor = System.Drawing.Color.Black - Me.Label29.Location = New System.Drawing.Point(6, 16) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(151, 17) - Me.Label29.TabIndex = 149 - Me.Label29.Text = "Red Light Time:" - Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox18 - ' - Me.GroupBox18.Controls.Add(Me.Label108) - Me.GroupBox18.Controls.Add(Me.Label109) - Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) - Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) - Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) - Me.GroupBox18.Controls.Add(Me.CBCensorConstant) - Me.GroupBox18.Controls.Add(Me.Label25) - Me.GroupBox18.Controls.Add(Me.Label20) - Me.GroupBox18.Controls.Add(Me.Label19) - Me.GroupBox18.Controls.Add(Me.Label24) - Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) - Me.GroupBox18.Location = New System.Drawing.Point(6, 16) - Me.GroupBox18.Name = "GroupBox18" - Me.GroupBox18.Size = New System.Drawing.Size(279, 88) - Me.GroupBox18.TabIndex = 1 - Me.GroupBox18.TabStop = False - Me.GroupBox18.Text = "Censorship Sucks" - ' - 'Label108 - ' - Me.Label108.BackColor = System.Drawing.Color.Transparent - Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label108.ForeColor = System.Drawing.Color.Black - Me.Label108.Location = New System.Drawing.Point(227, 39) - Me.Label108.Name = "Label108" - Me.Label108.Size = New System.Drawing.Size(50, 17) - Me.Label108.TabIndex = 179 - Me.Label108.Text = "seconds" - Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label109 - ' - Me.Label109.BackColor = System.Drawing.Color.Transparent - Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label109.ForeColor = System.Drawing.Color.Black - Me.Label109.Location = New System.Drawing.Point(227, 16) - Me.Label109.Name = "Label109" - Me.Label109.Size = New System.Drawing.Size(50, 17) - Me.Label109.TabIndex = 178 - Me.Label109.Text = "seconds" - Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBCensorShowMin - ' - Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) - Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) - Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorShowMin.Name = "NBCensorShowMin" - Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) - Me.NBCensorShowMin.TabIndex = 151 - Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin - ' - 'NBCensorHideMax - ' - Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) - Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) - Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorHideMax.Name = "NBCensorHideMax" - Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) - Me.NBCensorHideMax.TabIndex = 156 - Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax - ' - 'NBCensorHideMin - ' - Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) - Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) - Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorHideMin.Name = "NBCensorHideMin" - Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) - Me.NBCensorHideMin.TabIndex = 155 - Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin - ' - 'CBCensorConstant - ' - Me.CBCensorConstant.AutoSize = True - Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant - Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black - Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) - Me.CBCensorConstant.Name = "CBCensorConstant" - Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) - Me.CBCensorConstant.TabIndex = 157 - Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" - Me.CBCensorConstant.UseVisualStyleBackColor = True - ' - 'Label25 - ' - Me.Label25.BackColor = System.Drawing.Color.Transparent - Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label25.ForeColor = System.Drawing.Color.Black - Me.Label25.Location = New System.Drawing.Point(161, 15) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(10, 17) - Me.Label25.TabIndex = 150 - Me.Label25.Text = "-" - Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label20 - ' - Me.Label20.BackColor = System.Drawing.Color.Transparent - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label20.ForeColor = System.Drawing.Color.Black - Me.Label20.Location = New System.Drawing.Point(6, 39) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(110, 17) - Me.Label20.TabIndex = 153 - Me.Label20.Text = "Censor Bar Hidden:" - Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label19 - ' - Me.Label19.BackColor = System.Drawing.Color.Transparent - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.ForeColor = System.Drawing.Color.Black - Me.Label19.Location = New System.Drawing.Point(161, 38) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(10, 17) - Me.Label19.TabIndex = 154 - Me.Label19.Text = "-" - Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label24 - ' - Me.Label24.BackColor = System.Drawing.Color.Transparent - Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label24.ForeColor = System.Drawing.Color.Black - Me.Label24.Location = New System.Drawing.Point(6, 16) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(110, 17) - Me.Label24.TabIndex = 149 - Me.Label24.Text = "Censor Bar Shown:" - Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBCensorShowMax - ' - Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) - Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) - Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) - Me.NBCensorShowMax.Name = "NBCensorShowMax" - Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) - Me.NBCensorShowMax.TabIndex = 152 - Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax - ' - 'GBRangeOrgasmChance - ' - Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) - Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) - Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) - Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) - Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) - Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) - Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) - Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) - Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" - Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) - Me.GBRangeOrgasmChance.TabIndex = 167 - Me.GBRangeOrgasmChance.TabStop = False - Me.GBRangeOrgasmChance.Text = "Orgasm Chance" - ' - 'Label89 - ' - Me.Label89.BackColor = System.Drawing.Color.Transparent - Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label89.ForeColor = System.Drawing.Color.Black - Me.Label89.Location = New System.Drawing.Point(6, 94) - Me.Label89.Name = "Label89" - Me.Label89.Size = New System.Drawing.Size(83, 17) - Me.Label89.TabIndex = 173 - Me.Label89.Text = "Rarely Allows:" - Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBAllowSometimes - ' - Me.NBAllowSometimes.Enabled = False - Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) - Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBAllowSometimes.Name = "NBAllowSometimes" - Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) - Me.NBAllowSometimes.TabIndex = 169 - Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) - ' - 'Label86 - ' - Me.Label86.BackColor = System.Drawing.Color.Transparent - Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label86.ForeColor = System.Drawing.Color.Black - Me.Label86.Location = New System.Drawing.Point(6, 68) - Me.Label86.Name = "Label86" - Me.Label86.Size = New System.Drawing.Size(102, 17) - Me.Label86.TabIndex = 172 - Me.Label86.Text = "Sometimes Allows:" - Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label82 - ' - Me.Label82.BackColor = System.Drawing.Color.Transparent - Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label82.ForeColor = System.Drawing.Color.Black - Me.Label82.Location = New System.Drawing.Point(6, 42) - Me.Label82.Name = "Label82" - Me.Label82.Size = New System.Drawing.Size(83, 17) - Me.Label82.TabIndex = 171 - Me.Label82.Text = "Often Allows:" - Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'NBAllowRarely - ' - Me.NBAllowRarely.Enabled = False - Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) - Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBAllowRarely.Name = "NBAllowRarely" - Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) - Me.NBAllowRarely.TabIndex = 170 - Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) - ' - 'NBAllowOften - ' - Me.NBAllowOften.Enabled = False - Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) - Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) - Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.NBAllowOften.Name = "NBAllowOften" - Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) - Me.NBAllowOften.TabIndex = 168 - Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) - ' - 'CBRangeOrgasm - ' - Me.CBRangeOrgasm.AutoSize = True - Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black - Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) - Me.CBRangeOrgasm.Name = "CBRangeOrgasm" - Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) - Me.CBRangeOrgasm.TabIndex = 159 - Me.CBRangeOrgasm.Text = "Domme Decide" - Me.CBRangeOrgasm.UseVisualStyleBackColor = True - ' - 'PictureBox8 - ' - Me.PictureBox8.BackColor = System.Drawing.Color.LightGray - Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox8.Location = New System.Drawing.Point(9, 6) - Me.PictureBox8.Name = "PictureBox8" - Me.PictureBox8.Size = New System.Drawing.Size(160, 19) - Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox8.TabIndex = 166 - Me.PictureBox8.TabStop = False - ' - 'Label38 - ' - Me.Label38.BackColor = System.Drawing.Color.Transparent - Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label38.ForeColor = System.Drawing.Color.Black - Me.Label38.Location = New System.Drawing.Point(7, 6) - Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(692, 21) - Me.Label38.TabIndex = 48 - Me.Label38.Text = "Range Settings" - Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage13 - ' - Me.TabPage13.BackColor = System.Drawing.Color.Silver - Me.TabPage13.Controls.Add(Me.TabControl2) - Me.TabPage13.Location = New System.Drawing.Point(4, 22) - Me.TabPage13.Name = "TabPage13" - Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage13.Size = New System.Drawing.Size(720, 448) - Me.TabPage13.TabIndex = 13 - Me.TabPage13.Text = "Modding" - ' - 'TabControl2 - ' - Me.TabControl2.Controls.Add(Me.TabPage27) - Me.TabControl2.Controls.Add(Me.TabPage14) - Me.TabControl2.Controls.Add(Me.TabPage24) - Me.TabControl2.Controls.Add(Me.TabPage8) - Me.TabControl2.Controls.Add(Me.TabPage15) - Me.TabControl2.Location = New System.Drawing.Point(6, 6) - Me.TabControl2.Name = "TabControl2" - Me.TabControl2.SelectedIndex = 0 - Me.TabControl2.Size = New System.Drawing.Size(708, 437) - Me.TabControl2.TabIndex = 0 - ' - 'TabPage27 - ' - Me.TabPage27.BackColor = System.Drawing.Color.LightGray - Me.TabPage27.Controls.Add(Me.TBPlaylistSave) - Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) - Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) - Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) - Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) - Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) - Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) - Me.TabPage27.Controls.Add(Me.Button7) - Me.TabPage27.Controls.Add(Me.WBPlaylist) - Me.TabPage27.Controls.Add(Me.Label80) - Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) - Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) - Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) - Me.TabPage27.Controls.Add(Me.LBPlaylist) - Me.TabPage27.Location = New System.Drawing.Point(4, 22) - Me.TabPage27.Name = "TabPage27" - Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage27.Size = New System.Drawing.Size(700, 411) - Me.TabPage27.TabIndex = 5 - Me.TabPage27.Text = "Playlists" - ' - 'TBPlaylistSave - ' - Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) - Me.TBPlaylistSave.Name = "TBPlaylistSave" - Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) - Me.TBPlaylistSave.TabIndex = 203 - ' - 'BTNPlaylistCtrlZ - ' - Me.BTNPlaylistCtrlZ.Enabled = False - Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) - Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" - Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) - Me.BTNPlaylistCtrlZ.TabIndex = 202 - Me.BTNPlaylistCtrlZ.Text = "Undo" - Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = True - ' - 'RadioPlaylistRegScripts - ' - Me.RadioPlaylistRegScripts.AutoSize = True - Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) - Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" - Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) - Me.RadioPlaylistRegScripts.TabIndex = 201 - Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" - Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = True - ' - 'RadioPlaylistScripts - ' - Me.RadioPlaylistScripts.AutoSize = True - Me.RadioPlaylistScripts.Checked = True - Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) - Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" - Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) - Me.RadioPlaylistScripts.TabIndex = 200 - Me.RadioPlaylistScripts.TabStop = True - Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" - Me.RadioPlaylistScripts.UseVisualStyleBackColor = True - ' - 'BTNPlaylistEnd - ' - Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray - Me.BTNPlaylistEnd.Enabled = False - Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black - Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) - Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" - Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) - Me.BTNPlaylistEnd.TabIndex = 199 - Me.BTNPlaylistEnd.Text = "End" - Me.BTNPlaylistEnd.UseVisualStyleBackColor = False - ' - 'BTNPlaylistClearAll - ' - Me.BTNPlaylistClearAll.Enabled = False - Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) - Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" - Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) - Me.BTNPlaylistClearAll.TabIndex = 198 - Me.BTNPlaylistClearAll.Text = "Clear All" - Me.BTNPlaylistClearAll.UseVisualStyleBackColor = True - ' - 'BTNPlaylistSave - ' - Me.BTNPlaylistSave.Enabled = False - Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) - Me.BTNPlaylistSave.Name = "BTNPlaylistSave" - Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) - Me.BTNPlaylistSave.TabIndex = 197 - Me.BTNPlaylistSave.Text = "Save" - Me.BTNPlaylistSave.UseVisualStyleBackColor = True - ' - 'Button7 - ' - Me.Button7.Location = New System.Drawing.Point(213, 21) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(78, 23) - Me.Button7.TabIndex = 196 - Me.Button7.Text = "Add Random" - Me.Button7.UseVisualStyleBackColor = True - ' - 'WBPlaylist - ' - Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) - Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) - Me.WBPlaylist.Name = "WBPlaylist" - Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) - Me.WBPlaylist.TabIndex = 195 - ' - 'Label80 - ' - Me.Label80.AutoSize = True - Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label80.Location = New System.Drawing.Point(410, 27) - Me.Label80.Name = "Label80" - Me.Label80.Size = New System.Drawing.Size(47, 13) - Me.Label80.TabIndex = 194 - Me.Label80.Text = "Playlist" - ' - 'LBLPlaylIstLink - ' - Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLPlaylIstLink.Enabled = False - Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) - Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" - Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) - Me.LBLPlaylIstLink.TabIndex = 193 - Me.LBLPlaylIstLink.Text = "Link" - Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLPlaylistModule - ' - Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLPlaylistModule.Enabled = False - Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) - Me.LBLPlaylistModule.Name = "LBLPlaylistModule" - Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) - Me.LBLPlaylistModule.TabIndex = 192 - Me.LBLPlaylistModule.Text = "Module" - Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLPLaylistStart - ' - Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green - Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White - Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) - Me.LBLPLaylistStart.Name = "LBLPLaylistStart" - Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) - Me.LBLPLaylistStart.TabIndex = 190 - Me.LBLPLaylistStart.Text = "Start" - Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBPlaylist - ' - Me.LBPlaylist.AllowDrop = True - Me.LBPlaylist.FormattingEnabled = True - Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) - Me.LBPlaylist.Name = "LBPlaylist" - Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) - Me.LBPlaylist.TabIndex = 189 - ' - 'TabPage14 - ' - Me.TabPage14.BackColor = System.Drawing.Color.LightGray - Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) - Me.TabPage14.Controls.Add(Me.Label88) - Me.TabPage14.Controls.Add(Me.TBKeywordPreview) - Me.TabPage14.Controls.Add(Me.Button37) - Me.TabPage14.Controls.Add(Me.Button50) - Me.TabPage14.Controls.Add(Me.Button22) - Me.TabPage14.Controls.Add(Me.TBKeyWords) - Me.TabPage14.Controls.Add(Me.LBKeyWords) - Me.TabPage14.Controls.Add(Me.RTBKeyWords) - Me.TabPage14.Location = New System.Drawing.Point(4, 22) - Me.TabPage14.Name = "TabPage14" - Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage14.Size = New System.Drawing.Size(700, 411) - Me.TabPage14.TabIndex = 0 - Me.TabPage14.Text = "Keywords" - ' - 'LBLKeywordPreview - ' - Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) - Me.LBLKeywordPreview.Name = "LBLKeywordPreview" - Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) - Me.LBLKeywordPreview.TabIndex = 174 - Me.LBLKeywordPreview.Text = "Get Preview Here" - Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label88 - ' - Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.Label88.Location = New System.Drawing.Point(3, 358) - Me.Label88.Name = "Label88" - Me.Label88.Size = New System.Drawing.Size(194, 53) - Me.Label88.TabIndex = 173 - Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence" & - " the domme return." - Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBKeywordPreview - ' - Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) - Me.TBKeywordPreview.Name = "TBKeywordPreview" - Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) - Me.TBKeywordPreview.TabIndex = 172 - Me.TBKeywordPreview.Text = "Enter Line Here" - Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'Button37 - ' - Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button37.Location = New System.Drawing.Point(638, 358) - Me.Button37.Name = "Button37" - Me.Button37.Size = New System.Drawing.Size(47, 50) - Me.Button37.TabIndex = 171 - Me.Button37.Text = "#" - Me.Button37.UseVisualStyleBackColor = True - ' - 'Button50 - ' - Me.Button50.Location = New System.Drawing.Point(6, 10) - Me.Button50.Name = "Button50" - Me.Button50.Size = New System.Drawing.Size(194, 23) - Me.Button50.TabIndex = 169 - Me.Button50.Text = "Refresh and Clear Keyword List" - Me.Button50.UseVisualStyleBackColor = True - ' - 'Button22 - ' - Me.Button22.Location = New System.Drawing.Point(638, 10) - Me.Button22.Name = "Button22" - Me.Button22.Size = New System.Drawing.Size(47, 23) - Me.Button22.TabIndex = 167 - Me.Button22.Text = "Save" - Me.Button22.UseVisualStyleBackColor = True - ' - 'TBKeyWords - ' - Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) - Me.TBKeyWords.Name = "TBKeyWords" - Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) - Me.TBKeyWords.TabIndex = 166 - ' - 'LBKeyWords - ' - Me.LBKeyWords.FormattingEnabled = True - Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) - Me.LBKeyWords.Name = "LBKeyWords" - Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) - Me.LBKeyWords.Sorted = True - Me.LBKeyWords.TabIndex = 165 - ' - 'RTBKeyWords - ' - Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) - Me.RTBKeyWords.Name = "RTBKeyWords" - Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) - Me.RTBKeyWords.TabIndex = 164 - Me.RTBKeyWords.Text = "" - ' - 'TabPage24 - ' - Me.TabPage24.BackColor = System.Drawing.Color.LightGray - Me.TabPage24.Controls.Add(Me.Button9) - Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) - Me.TabPage24.Controls.Add(Me.Button4) - Me.TabPage24.Controls.Add(Me.Button5) - Me.TabPage24.Controls.Add(Me.TBResponses) - Me.TabPage24.Controls.Add(Me.LBResponses) - Me.TabPage24.Controls.Add(Me.RTBResponses) - Me.TabPage24.Location = New System.Drawing.Point(4, 22) - Me.TabPage24.Name = "TabPage24" - Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage24.Size = New System.Drawing.Size(700, 411) - Me.TabPage24.TabIndex = 3 - Me.TabPage24.Text = "Responses" - ' - 'Button9 - ' - Me.Button9.Location = New System.Drawing.Point(217, 10) - Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(215, 23) - Me.Button9.TabIndex = 176 - Me.Button9.Text = "Response Template" - Me.Button9.UseVisualStyleBackColor = True - ' - 'RTBResponsesKEY - ' - Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) - Me.RTBResponsesKEY.Name = "RTBResponsesKEY" - Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) - Me.RTBResponsesKEY.TabIndex = 175 - Me.RTBResponsesKEY.Text = "" - ' - 'Button4 - ' - Me.Button4.Location = New System.Drawing.Point(6, 10) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(194, 23) - Me.Button4.TabIndex = 174 - Me.Button4.Text = "Refresh and Clear Response List" - Me.Button4.UseVisualStyleBackColor = True - ' - 'Button5 - ' - Me.Button5.Location = New System.Drawing.Point(638, 10) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(47, 23) - Me.Button5.TabIndex = 173 - Me.Button5.Text = "Save" - Me.Button5.UseVisualStyleBackColor = True - ' - 'TBResponses - ' - Me.TBResponses.Location = New System.Drawing.Point(438, 10) - Me.TBResponses.Name = "TBResponses" - Me.TBResponses.Size = New System.Drawing.Size(194, 20) - Me.TBResponses.TabIndex = 172 - ' - 'LBResponses - ' - Me.LBResponses.FormattingEnabled = True - Me.LBResponses.Location = New System.Drawing.Point(6, 36) - Me.LBResponses.Name = "LBResponses" - Me.LBResponses.Size = New System.Drawing.Size(194, 355) - Me.LBResponses.Sorted = True - Me.LBResponses.TabIndex = 171 - ' - 'RTBResponses - ' - Me.RTBResponses.Location = New System.Drawing.Point(217, 82) - Me.RTBResponses.Name = "RTBResponses" - Me.RTBResponses.Size = New System.Drawing.Size(468, 309) - Me.RTBResponses.TabIndex = 170 - Me.RTBResponses.Text = "" - ' - 'TabPage8 - ' - Me.TabPage8.BackColor = System.Drawing.Color.LightGray - Me.TabPage8.Controls.Add(Me.RTBVideoMod) - Me.TabPage8.Controls.Add(Me.GroupBox29) - Me.TabPage8.Controls.Add(Me.BTNVideoModClear) - Me.TabPage8.Controls.Add(Me.GroupBox28) - Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) - Me.TabPage8.Controls.Add(Me.GroupBox30) - Me.TabPage8.Controls.Add(Me.BTNVideoModSave) - Me.TabPage8.Location = New System.Drawing.Point(4, 22) - Me.TabPage8.Name = "TabPage8" - Me.TabPage8.Size = New System.Drawing.Size(700, 411) - Me.TabPage8.TabIndex = 2 - Me.TabPage8.Text = "Video" - ' - 'RTBVideoMod - ' - Me.RTBVideoMod.Enabled = False - Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) - Me.RTBVideoMod.Name = "RTBVideoMod" - Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) - Me.RTBVideoMod.TabIndex = 150 - Me.RTBVideoMod.Text = "" - ' - 'GroupBox29 - ' - Me.GroupBox29.BackColor = System.Drawing.Color.LightGray - Me.GroupBox29.Controls.Add(Me.Label51) - Me.GroupBox29.ForeColor = System.Drawing.Color.Black - Me.GroupBox29.Location = New System.Drawing.Point(6, 309) - Me.GroupBox29.Name = "GroupBox29" - Me.GroupBox29.Size = New System.Drawing.Size(692, 92) - Me.GroupBox29.TabIndex = 66 - Me.GroupBox29.TabStop = False - Me.GroupBox29.Text = "Description" - ' - 'Label51 - ' - Me.Label51.BackColor = System.Drawing.Color.Transparent - Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label51.ForeColor = System.Drawing.Color.Black - Me.Label51.Location = New System.Drawing.Point(6, 16) - Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(680, 73) - Me.Label51.TabIndex = 62 - Me.Label51.Text = resources.GetString("Label51.Text") - Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNVideoModClear - ' - Me.BTNVideoModClear.Enabled = False - Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) - Me.BTNVideoModClear.Name = "BTNVideoModClear" - Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) - Me.BTNVideoModClear.TabIndex = 153 - Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" - Me.BTNVideoModClear.UseVisualStyleBackColor = True - ' - 'GroupBox28 - ' - Me.GroupBox28.Controls.Add(Me.CBVTType) - Me.GroupBox28.Location = New System.Drawing.Point(6, 8) - Me.GroupBox28.Name = "GroupBox28" - Me.GroupBox28.Size = New System.Drawing.Size(155, 46) - Me.GroupBox28.TabIndex = 148 - Me.GroupBox28.TabStop = False - Me.GroupBox28.Text = "Video Tease Type" - ' - 'CBVTType - ' - Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.CBVTType.FormattingEnabled = True - Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) - Me.CBVTType.Location = New System.Drawing.Point(9, 15) - Me.CBVTType.Name = "CBVTType" - Me.CBVTType.Size = New System.Drawing.Size(137, 21) - Me.CBVTType.TabIndex = 171 - ' - 'BTNVideoModLoad - ' - Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) - Me.BTNVideoModLoad.Name = "BTNVideoModLoad" - Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) - Me.BTNVideoModLoad.TabIndex = 152 - Me.BTNVideoModLoad.Text = "Load Script" - Me.BTNVideoModLoad.UseVisualStyleBackColor = True - ' - 'GroupBox30 - ' - Me.GroupBox30.Controls.Add(Me.LBVidScript) - Me.GroupBox30.Location = New System.Drawing.Point(6, 60) - Me.GroupBox30.Name = "GroupBox30" - Me.GroupBox30.Size = New System.Drawing.Size(155, 100) - Me.GroupBox30.TabIndex = 149 - Me.GroupBox30.TabStop = False - Me.GroupBox30.Text = "Script" - ' - 'LBVidScript - ' - Me.LBVidScript.FormattingEnabled = True - Me.LBVidScript.Location = New System.Drawing.Point(9, 20) - Me.LBVidScript.Name = "LBVidScript" - Me.LBVidScript.Size = New System.Drawing.Size(137, 69) - Me.LBVidScript.TabIndex = 0 - ' - 'BTNVideoModSave - ' - Me.BTNVideoModSave.Enabled = False - Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) - Me.BTNVideoModSave.Name = "BTNVideoModSave" - Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) - Me.BTNVideoModSave.TabIndex = 151 - Me.BTNVideoModSave.Text = "Save Changes" - Me.BTNVideoModSave.UseVisualStyleBackColor = True - ' - 'TabPage15 - ' - Me.TabPage15.BackColor = System.Drawing.Color.LightGray - Me.TabPage15.Controls.Add(Me.Label62) - Me.TabPage15.Controls.Add(Me.Label61) - Me.TabPage15.Controls.Add(Me.Label57) - Me.TabPage15.Controls.Add(Me.Label58) - Me.TabPage15.Controls.Add(Me.Label60) - Me.TabPage15.Controls.Add(Me.TBGlitModFileName) - Me.TabPage15.Controls.Add(Me.GroupBox34) - Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) - Me.TabPage15.Controls.Add(Me.Button26) - Me.TabPage15.Controls.Add(Me.Label56) - Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) - Me.TabPage15.Controls.Add(Me.LBGlitModScripts) - Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) - Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) - Me.TabPage15.Controls.Add(Me.Button29) - Me.TabPage15.Controls.Add(Me.CBGlitModType) - Me.TabPage15.Controls.Add(Me.Label59) - Me.TabPage15.Controls.Add(Me.Label50) - Me.TabPage15.Location = New System.Drawing.Point(4, 22) - Me.TabPage15.Name = "TabPage15" - Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage15.Size = New System.Drawing.Size(700, 411) - Me.TabPage15.TabIndex = 1 - Me.TabPage15.Text = "Glitter" - ' - 'Label62 - ' - Me.Label62.Location = New System.Drawing.Point(255, 169) - Me.Label62.Name = "Label62" - Me.Label62.Size = New System.Drawing.Size(59, 51) - Me.Label62.TabIndex = 177 - Me.Label62.Text = "@Cruel @Angry @Custom2" - Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label61 - ' - Me.Label61.Location = New System.Drawing.Point(194, 169) - Me.Label61.Name = "Label61" - Me.Label61.Size = New System.Drawing.Size(59, 51) - Me.Label61.TabIndex = 176 - Me.Label61.Text = "@Bratty @Caring @Custom1" - Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label57 - ' - Me.Label57.Location = New System.Drawing.Point(194, 11) - Me.Label57.Name = "Label57" - Me.Label57.Size = New System.Drawing.Size(120, 23) - Me.Label57.TabIndex = 160 - Me.Label57.Text = "File Name" - Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label58 - ' - Me.Label58.Location = New System.Drawing.Point(350, 11) - Me.Label58.Name = "Label58" - Me.Label58.Size = New System.Drawing.Size(326, 23) - Me.Label58.TabIndex = 161 - Me.Label58.Text = "Domme's Post" - Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label60 - ' - Me.Label60.Location = New System.Drawing.Point(194, 139) - Me.Label60.Name = "Label60" - Me.Label60.Size = New System.Drawing.Size(120, 30) - Me.Label60.TabIndex = 175 - Me.Label60.Text = "Tease Responses Need 3 of Each:" - Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TBGlitModFileName - ' - Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) - Me.TBGlitModFileName.Name = "TBGlitModFileName" - Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) - Me.TBGlitModFileName.TabIndex = 158 - ' - 'GroupBox34 - ' - Me.GroupBox34.BackColor = System.Drawing.Color.LightGray - Me.GroupBox34.Controls.Add(Me.Label52) - Me.GroupBox34.ForeColor = System.Drawing.Color.Black - Me.GroupBox34.Location = New System.Drawing.Point(8, 296) - Me.GroupBox34.Name = "GroupBox34" - Me.GroupBox34.Size = New System.Drawing.Size(683, 107) - Me.GroupBox34.TabIndex = 66 - Me.GroupBox34.TabStop = False - Me.GroupBox34.Text = "Description" - ' - 'Label52 - ' - Me.Label52.BackColor = System.Drawing.Color.Transparent - Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label52.ForeColor = System.Drawing.Color.Black - Me.Label52.Location = New System.Drawing.Point(6, 16) - Me.Label52.Name = "Label52" - Me.Label52.Size = New System.Drawing.Size(670, 88) - Me.Label52.TabIndex = 62 - Me.Label52.Text = resources.GetString("Label52.Text") - Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'RTBGlitModDommePost - ' - Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) - Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" - Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) - Me.RTBGlitModDommePost.TabIndex = 162 - Me.RTBGlitModDommePost.Text = "" - ' - 'Button26 - ' - Me.Button26.Location = New System.Drawing.Point(194, 239) - Me.Button26.Name = "Button26" - Me.Button26.Size = New System.Drawing.Size(120, 23) - Me.Button26.TabIndex = 174 - Me.Button26.Text = "Clear Fields" - Me.Button26.UseVisualStyleBackColor = True - ' - 'Label56 - ' - Me.Label56.Location = New System.Drawing.Point(350, 80) - Me.Label56.Name = "Label56" - Me.Label56.Size = New System.Drawing.Size(324, 23) - Me.Label56.TabIndex = 156 - Me.Label56.Text = "Responses (Minimum 3)" - Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'RTBGlitModResponses - ' - Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) - Me.RTBGlitModResponses.Name = "RTBGlitModResponses" - Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) - Me.RTBGlitModResponses.TabIndex = 150 - Me.RTBGlitModResponses.Text = "" - ' - 'LBGlitModScripts - ' - Me.LBGlitModScripts.FormattingEnabled = True - Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) - Me.LBGlitModScripts.Name = "LBGlitModScripts" - Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) - Me.LBGlitModScripts.TabIndex = 163 - ' - 'LBLGlitModScriptCount - ' - Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) - Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" - Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) - Me.LBLGlitModScriptCount.TabIndex = 173 - Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" - Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLGlitModDomType - ' - Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) - Me.LBLGlitModDomType.Name = "LBLGlitModDomType" - Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) - Me.LBLGlitModDomType.TabIndex = 155 - Me.LBLGlitModDomType.Text = "Total Brat" - Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Button29 - ' - Me.Button29.Location = New System.Drawing.Point(194, 268) - Me.Button29.Name = "Button29" - Me.Button29.Size = New System.Drawing.Size(120, 23) - Me.Button29.TabIndex = 151 - Me.Button29.Text = "Save Glitter File" - Me.Button29.UseVisualStyleBackColor = True - ' - 'CBGlitModType - ' - Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.CBGlitModType.FormattingEnabled = True - Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) - Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) - Me.CBGlitModType.Name = "CBGlitModType" - Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) - Me.CBGlitModType.TabIndex = 171 - ' - 'Label59 - ' - Me.Label59.Location = New System.Drawing.Point(33, 11) - Me.Label59.Name = "Label59" - Me.Label59.Size = New System.Drawing.Size(130, 23) - Me.Label59.TabIndex = 172 - Me.Label59.Text = "Glitter Post Type" - Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label50 - ' - Me.Label50.Location = New System.Drawing.Point(191, 80) - Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(123, 23) - Me.Label50.TabIndex = 154 - Me.Label50.Text = "Current Domme Personality:" - Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage25 - ' - Me.TabPage25.BackColor = System.Drawing.Color.Silver - Me.TabPage25.Controls.Add(Me.Panel11) - Me.TabPage25.Location = New System.Drawing.Point(4, 22) - Me.TabPage25.Name = "TabPage25" - Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage25.Size = New System.Drawing.Size(720, 448) - Me.TabPage25.TabIndex = 18 - Me.TabPage25.Text = "Misc" - ' - 'Panel11 - ' - Me.Panel11.BackColor = System.Drawing.Color.LightGray - Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel11.Controls.Add(Me.GroupBox62) - Me.Panel11.Controls.Add(Me.GroupBox33) - Me.Panel11.Controls.Add(Me.GroupBox8) - Me.Panel11.Controls.Add(Me.GroupBox27) - Me.Panel11.Controls.Add(Me.GroupBox20) - Me.Panel11.Controls.Add(Me.GroupBox15) - Me.Panel11.Controls.Add(Me.PictureBox9) - Me.Panel11.Controls.Add(Me.Label148) - Me.Panel11.Location = New System.Drawing.Point(6, 6) - Me.Panel11.Name = "Panel11" - Me.Panel11.Size = New System.Drawing.Size(708, 437) - Me.Panel11.TabIndex = 92 - ' - 'GroupBox62 - ' - Me.GroupBox62.Controls.Add(Me.RBGerman) - Me.GroupBox62.Controls.Add(Me.RBEnglish) - Me.GroupBox62.Location = New System.Drawing.Point(420, 155) - Me.GroupBox62.Name = "GroupBox62" - Me.GroupBox62.Size = New System.Drawing.Size(277, 56) - Me.GroupBox62.TabIndex = 178 - Me.GroupBox62.TabStop = False - Me.GroupBox62.Text = "Language" - ' - 'RBGerman - ' - Me.RBGerman.AutoSize = True - Me.RBGerman.Location = New System.Drawing.Point(180, 20) - Me.RBGerman.Name = "RBGerman" - Me.RBGerman.Size = New System.Drawing.Size(65, 17) - Me.RBGerman.TabIndex = 1 - Me.RBGerman.Text = "Deutsch" - Me.RBGerman.UseVisualStyleBackColor = True - ' - 'RBEnglish - ' - Me.RBEnglish.AutoSize = True - Me.RBEnglish.Checked = True - Me.RBEnglish.Location = New System.Drawing.Point(36, 19) - Me.RBEnglish.Name = "RBEnglish" - Me.RBEnglish.Size = New System.Drawing.Size(59, 17) - Me.RBEnglish.TabIndex = 0 - Me.RBEnglish.TabStop = True - Me.RBEnglish.Text = "English" - Me.RBEnglish.UseVisualStyleBackColor = True - ' - 'GroupBox33 - ' - Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) - Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) - Me.GroupBox33.Controls.Add(Me.Label140) - Me.GroupBox33.Controls.Add(Me.Button11) - Me.GroupBox33.Controls.Add(Me.LBLChastityState) - Me.GroupBox33.Controls.Add(Me.Label120) - Me.GroupBox33.Location = New System.Drawing.Point(420, 321) - Me.GroupBox33.Name = "GroupBox33" - Me.GroupBox33.Size = New System.Drawing.Size(277, 106) - Me.GroupBox33.TabIndex = 177 - Me.GroupBox33.TabStop = False - Me.GroupBox33.Text = "System States" - ' - 'BTNOfflineMode - ' - Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) - Me.BTNOfflineMode.Name = "BTNOfflineMode" - Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) - Me.BTNOfflineMode.TabIndex = 180 - Me.BTNOfflineMode.Text = "Toggle" - Me.BTNOfflineMode.UseVisualStyleBackColor = True - ' - 'LBLOfflineMode - ' - Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray - Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red - Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) - Me.LBLOfflineMode.Name = "LBLOfflineMode" - Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) - Me.LBLOfflineMode.TabIndex = 179 - Me.LBLOfflineMode.Text = "OFF" - Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label140 - ' - Me.Label140.BackColor = System.Drawing.Color.LightGray - Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label140.Location = New System.Drawing.Point(17, 70) - Me.Label140.Name = "Label140" - Me.Label140.Size = New System.Drawing.Size(98, 23) - Me.Label140.TabIndex = 178 - Me.Label140.Text = "OFFLINE MODE" - Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Button11 - ' - Me.Button11.Location = New System.Drawing.Point(161, 33) - Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(99, 23) - Me.Button11.TabIndex = 177 - Me.Button11.Text = "Toggle" - Me.Button11.UseVisualStyleBackColor = True - ' - 'LBLChastityState - ' - Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray - Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLChastityState.ForeColor = System.Drawing.Color.Red - Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) - Me.LBLChastityState.Name = "LBLChastityState" - Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) - Me.LBLChastityState.TabIndex = 3 - Me.LBLChastityState.Text = "OFF" - Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label120 - ' - Me.Label120.BackColor = System.Drawing.Color.LightGray - Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label120.Location = New System.Drawing.Point(17, 33) - Me.Label120.Name = "Label120" - Me.Label120.Size = New System.Drawing.Size(98, 23) - Me.Label120.TabIndex = 2 - Me.Label120.Text = "CHASTITY" - Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox8 - ' - Me.GroupBox8.Controls.Add(Me.CBOutputErrors) - Me.GroupBox8.Location = New System.Drawing.Point(420, 246) - Me.GroupBox8.Name = "GroupBox8" - Me.GroupBox8.Size = New System.Drawing.Size(279, 47) - Me.GroupBox8.TabIndex = 179 - Me.GroupBox8.TabStop = False - Me.GroupBox8.Text = "System Information" - ' - 'CBOutputErrors - ' - Me.CBOutputErrors.AutoSize = True - Me.CBOutputErrors.Checked = True - Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked - Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black - Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) - Me.CBOutputErrors.Name = "CBOutputErrors" - Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) - Me.CBOutputErrors.TabIndex = 29 - Me.CBOutputErrors.TabStop = False - Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" - Me.CBOutputErrors.UseVisualStyleBackColor = True - ' - 'GroupBox27 - ' - Me.GroupBox27.Controls.Add(Me.Button6) - Me.GroupBox27.Controls.Add(Me.LBLSesSpace) - Me.GroupBox27.Controls.Add(Me.Button3) - Me.GroupBox27.Controls.Add(Me.LBLSesFiles) - Me.GroupBox27.Controls.Add(Me.Label125) - Me.GroupBox27.Controls.Add(Me.Label124) - Me.GroupBox27.Location = New System.Drawing.Point(420, 32) - Me.GroupBox27.Name = "GroupBox27" - Me.GroupBox27.Size = New System.Drawing.Size(279, 117) - Me.GroupBox27.TabIndex = 176 - Me.GroupBox27.TabStop = False - Me.GroupBox27.Text = "Session Images" - ' - 'Button6 - ' - Me.Button6.Location = New System.Drawing.Point(143, 76) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(117, 23) - Me.Button6.TabIndex = 176 - Me.Button6.Text = "Delete All Files" - Me.Button6.UseVisualStyleBackColor = True - ' - 'LBLSesSpace - ' - Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) - Me.LBLSesSpace.Name = "LBLSesSpace" - Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) - Me.LBLSesSpace.TabIndex = 3 - ' - 'Button3 - ' - Me.Button3.Location = New System.Drawing.Point(20, 76) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(117, 23) - Me.Button3.TabIndex = 175 - Me.Button3.Text = "Open Folder" - Me.Button3.UseVisualStyleBackColor = True - ' - 'LBLSesFiles - ' - Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) - Me.LBLSesFiles.Name = "LBLSesFiles" - Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) - Me.LBLSesFiles.TabIndex = 2 - ' - 'Label125 - ' - Me.Label125.AutoSize = True - Me.Label125.Location = New System.Drawing.Point(17, 53) - Me.Label125.Name = "Label125" - Me.Label125.Size = New System.Drawing.Size(120, 13) - Me.Label125.TabIndex = 1 - Me.Label125.Text = "Total Disk Space Used:" - ' - 'Label124 - ' - Me.Label124.AutoSize = True - Me.Label124.Location = New System.Drawing.Point(17, 24) - Me.Label124.Name = "Label124" - Me.Label124.Size = New System.Drawing.Size(126, 13) - Me.Label124.TabIndex = 0 - Me.Label124.Text = "Number of Files in Folder:" - ' - 'GroupBox20 - ' - Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) - Me.GroupBox20.Controls.Add(Me.Label87) - Me.GroupBox20.Controls.Add(Me.TBURLFileWith) - Me.GroupBox20.Controls.Add(Me.Label118) - Me.GroupBox20.Controls.Add(Me.Label85) - Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) - Me.GroupBox20.Controls.Add(Me.Label53) - Me.GroupBox20.Controls.Add(Me.Label8) - Me.GroupBox20.Controls.Add(Me.Button1) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) - Me.GroupBox20.Controls.Add(Me.Label117) - Me.GroupBox20.Controls.Add(Me.Label116) - Me.GroupBox20.Controls.Add(Me.PBCurrent) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) - Me.GroupBox20.Controls.Add(Me.PBMaintenance) - Me.GroupBox20.Controls.Add(Me.LBLMaintenance) - Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) - Me.GroupBox20.Location = New System.Drawing.Point(6, 32) - Me.GroupBox20.Name = "GroupBox20" - Me.GroupBox20.Size = New System.Drawing.Size(408, 230) - Me.GroupBox20.TabIndex = 174 - Me.GroupBox20.TabStop = False - Me.GroupBox20.Text = "Maintenance" - ' - 'BTNURLFileReplace - ' - Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) - Me.BTNURLFileReplace.Name = "BTNURLFileReplace" - Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) - Me.BTNURLFileReplace.TabIndex = 184 - Me.BTNURLFileReplace.Text = "Replace" - Me.BTNURLFileReplace.UseVisualStyleBackColor = True - ' - 'Label87 - ' - Me.Label87.AutoSize = True - Me.Label87.Location = New System.Drawing.Point(206, 254) - Me.Label87.Name = "Label87" - Me.Label87.Size = New System.Drawing.Size(38, 13) - Me.Label87.TabIndex = 183 - Me.Label87.Text = ".media" - ' - 'TBURLFileWith - ' - Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) - Me.TBURLFileWith.Name = "TBURLFileWith" - Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) - Me.TBURLFileWith.TabIndex = 182 - ' - 'Label118 - ' - Me.Label118.AutoSize = True - Me.Label118.Location = New System.Drawing.Point(142, 254) - Me.Label118.Name = "Label118" - Me.Label118.Size = New System.Drawing.Size(29, 13) - Me.Label118.TabIndex = 181 - Me.Label118.Text = "With" - ' - 'Label85 - ' - Me.Label85.AutoSize = True - Me.Label85.Location = New System.Drawing.Point(98, 254) - Me.Label85.Name = "Label85" - Me.Label85.Size = New System.Drawing.Size(38, 13) - Me.Label85.TabIndex = 180 - Me.Label85.Text = ".media" - ' - 'TBURLFileReplace - ' - Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) - Me.TBURLFileReplace.Name = "TBURLFileReplace" - Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) - Me.TBURLFileReplace.TabIndex = 179 - ' - 'Label53 - ' - Me.Label53.AutoSize = True - Me.Label53.Location = New System.Drawing.Point(16, 254) - Me.Label53.Name = "Label53" - Me.Label53.Size = New System.Drawing.Size(47, 13) - Me.Label53.TabIndex = 178 - Me.Label53.Text = "Replace" - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(16, 232) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(130, 13) - Me.Label8.TabIndex = 177 - Me.Label8.Text = "Change URL File Servers " - ' - 'Button1 - ' - Me.Button1.Enabled = False - Me.Button1.Location = New System.Drawing.Point(270, 19) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(121, 23) - Me.Button1.TabIndex = 176 - Me.Button1.Text = "Reset Settings" - Me.Button1.UseVisualStyleBackColor = True - ' - 'BTNMaintenanceScripts - ' - Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) - Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" - Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceScripts.TabIndex = 175 - Me.BTNMaintenanceScripts.Text = "Audit Scripts" - Me.BTNMaintenanceScripts.UseVisualStyleBackColor = True - ' - 'BTNMaintenanceRefresh - ' - Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) - Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" - Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceRefresh.TabIndex = 7 - Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" - Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = True - ' - 'Label117 - ' - Me.Label117.AutoSize = True - Me.Label117.Location = New System.Drawing.Point(15, 182) - Me.Label117.Name = "Label117" - Me.Label117.Size = New System.Drawing.Size(84, 13) - Me.Label117.TabIndex = 6 - Me.Label117.Text = "Overall Progress" - ' - 'Label116 - ' - Me.Label116.AutoSize = True - Me.Label116.Location = New System.Drawing.Point(15, 140) - Me.Label116.Name = "Label116" - Me.Label116.Size = New System.Drawing.Size(85, 13) - Me.Label116.TabIndex = 5 - Me.Label116.Text = "Current Progress" - ' - 'PBCurrent - ' - Me.PBCurrent.Location = New System.Drawing.Point(15, 156) - Me.PBCurrent.Name = "PBCurrent" - Me.PBCurrent.Size = New System.Drawing.Size(376, 23) - Me.PBCurrent.TabIndex = 4 - ' - 'BTNMaintenanceCancel - ' - Me.BTNMaintenanceCancel.Enabled = False - Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) - Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" - Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceCancel.TabIndex = 3 - Me.BTNMaintenanceCancel.Text = "Cancel" - Me.BTNMaintenanceCancel.UseVisualStyleBackColor = True - ' - 'PBMaintenance - ' - Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) - Me.PBMaintenance.Name = "PBMaintenance" - Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) - Me.PBMaintenance.TabIndex = 2 - ' - 'LBLMaintenance - ' - Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) - Me.LBLMaintenance.Name = "LBLMaintenance" - Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) - Me.LBLMaintenance.TabIndex = 1 - Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNMaintenanceRebuild - ' - Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) - Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" - Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) - Me.BTNMaintenanceRebuild.TabIndex = 0 - Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" - Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = True - ' - 'GroupBox15 - ' - Me.GroupBox15.Controls.Add(Me.Label115) - Me.GroupBox15.Controls.Add(Me.TBWebStop) - Me.GroupBox15.Controls.Add(Me.TBWebStart) - Me.GroupBox15.Controls.Add(Me.Label114) - Me.GroupBox15.Controls.Add(Me.WebToy) - Me.GroupBox15.Location = New System.Drawing.Point(6, 268) - Me.GroupBox15.Name = "GroupBox15" - Me.GroupBox15.Size = New System.Drawing.Size(408, 159) - Me.GroupBox15.TabIndex = 173 - Me.GroupBox15.TabStop = False - Me.GroupBox15.Text = "Web-Controlled Sex Toy" - ' - 'Label115 - ' - Me.Label115.AutoSize = True - Me.Label115.Location = New System.Drawing.Point(12, 58) - Me.Label115.Name = "Label115" - Me.Label115.Size = New System.Drawing.Size(54, 13) - Me.Label115.TabIndex = 171 - Me.Label115.Text = "Stop URL" - ' - 'TBWebStop - ' - Me.TBWebStop.Location = New System.Drawing.Point(10, 72) - Me.TBWebStop.Name = "TBWebStop" - Me.TBWebStop.Size = New System.Drawing.Size(381, 20) - Me.TBWebStop.TabIndex = 170 - ' - 'TBWebStart - ' - Me.TBWebStart.Location = New System.Drawing.Point(10, 33) - Me.TBWebStart.Name = "TBWebStart" - Me.TBWebStart.Size = New System.Drawing.Size(381, 20) - Me.TBWebStart.TabIndex = 167 - ' - 'Label114 - ' - Me.Label114.AutoSize = True - Me.Label114.Location = New System.Drawing.Point(12, 17) - Me.Label114.Name = "Label114" - Me.Label114.Size = New System.Drawing.Size(54, 13) - Me.Label114.TabIndex = 168 - Me.Label114.Text = "Start URL" - ' - 'WebToy - ' - Me.WebToy.Location = New System.Drawing.Point(346, 33) - Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) - Me.WebToy.Name = "WebToy" - Me.WebToy.Size = New System.Drawing.Size(45, 59) - Me.WebToy.TabIndex = 172 - ' - 'PictureBox9 - ' - Me.PictureBox9.BackColor = System.Drawing.Color.LightGray - Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small - Me.PictureBox9.Location = New System.Drawing.Point(9, 6) - Me.PictureBox9.Name = "PictureBox9" - Me.PictureBox9.Size = New System.Drawing.Size(160, 19) - Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage - Me.PictureBox9.TabIndex = 166 - Me.PictureBox9.TabStop = False - ' - 'Label148 - ' - Me.Label148.BackColor = System.Drawing.Color.Transparent - Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label148.ForeColor = System.Drawing.Color.Black - Me.Label148.Location = New System.Drawing.Point(7, 6) - Me.Label148.Name = "Label148" - Me.Label148.Size = New System.Drawing.Size(692, 21) - Me.Label148.TabIndex = 48 - Me.Label148.Text = "Miscellaneous Settings" - Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage28 - ' - Me.TabPage28.BackColor = System.Drawing.Color.Silver - Me.TabPage28.Controls.Add(Me.TabControl3) - Me.TabPage28.Location = New System.Drawing.Point(4, 22) - Me.TabPage28.Name = "TabPage28" - Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage28.Size = New System.Drawing.Size(720, 448) - Me.TabPage28.TabIndex = 20 - Me.TabPage28.Text = "Debug" - ' - 'TabControl3 - ' - Me.TabControl3.Controls.Add(Me.TabPage29) - Me.TabControl3.Controls.Add(Me.TabPage30) - Me.TabControl3.Location = New System.Drawing.Point(6, 6) - Me.TabControl3.Name = "TabControl3" - Me.TabControl3.SelectedIndex = 0 - Me.TabControl3.Size = New System.Drawing.Size(708, 437) - Me.TabControl3.TabIndex = 0 - ' - 'TabPage29 - ' - Me.TabPage29.BackColor = System.Drawing.Color.LightGray - Me.TabPage29.Controls.Add(Me.Label143) - Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) - Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) - Me.TabPage29.Controls.Add(Me.GroupBox26) - Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) - Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) - Me.TabPage29.Controls.Add(Me.Label145) - Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) - Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) - Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) - Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) - Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) - Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) - Me.TabPage29.Controls.Add(Me.Label142) - Me.TabPage29.Controls.Add(Me.Label150) - Me.TabPage29.Controls.Add(Me.Label152) - Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) - Me.TabPage29.Controls.Add(Me.Label147) - Me.TabPage29.Location = New System.Drawing.Point(4, 22) - Me.TabPage29.Name = "TabPage29" - Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage29.Size = New System.Drawing.Size(700, 411) - Me.TabPage29.TabIndex = 0 - Me.TabPage29.Text = "TabPage29" - ' - 'Label143 - ' - Me.Label143.Location = New System.Drawing.Point(402, 46) - Me.Label143.Name = "Label143" - Me.Label143.Size = New System.Drawing.Size(67, 23) - Me.Label143.TabIndex = 15 - Me.Label143.Text = "Script Timer" - Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugScriptTime - ' - Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) - Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" - Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugScriptTime.TabIndex = 16 - Me.LBLDebugScriptTime.Text = "0" - Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNDebugHoldEdgeTimer - ' - Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) - Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" - Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugHoldEdgeTimer.TabIndex = 14 - Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" - Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = True - ' - 'GroupBox26 - ' - Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) - Me.GroupBox26.Controls.Add(Me.Button19) - Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) - Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) - Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) - Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) - Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) - Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) - Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) - Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) - Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) - Me.GroupBox26.Location = New System.Drawing.Point(6, 5) - Me.GroupBox26.Name = "GroupBox26" - Me.GroupBox26.Size = New System.Drawing.Size(346, 178) - Me.GroupBox26.TabIndex = 0 - Me.GroupBox26.TabStop = False - Me.GroupBox26.Text = "Taunt Cycle" - ' - 'LBLCycleDebugCountdown - ' - Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) - Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" - Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) - Me.LBLCycleDebugCountdown.TabIndex = 10 - Me.LBLCycleDebugCountdown.Text = "0" - Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Button19 - ' - Me.Button19.Location = New System.Drawing.Point(191, 142) - Me.Button19.Name = "Button19" - Me.Button19.Size = New System.Drawing.Size(146, 30) - Me.Button19.TabIndex = 9 - Me.Button19.Text = "Countdown to 5 Seconds" - Me.Button19.UseVisualStyleBackColor = True - ' - 'BTNDebugTauntsClear - ' - Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) - Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" - Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) - Me.BTNDebugTauntsClear.TabIndex = 8 - Me.BTNDebugTauntsClear.Text = "Clear" - Me.BTNDebugTauntsClear.UseVisualStyleBackColor = True - ' - 'TBDebugTaunts3 - ' - Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) - Me.TBDebugTaunts3.Name = "TBDebugTaunts3" - Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) - Me.TBDebugTaunts3.TabIndex = 7 - ' - 'TBDebugTaunts2 - ' - Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) - Me.TBDebugTaunts2.Name = "TBDebugTaunts2" - Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) - Me.TBDebugTaunts2.TabIndex = 6 - ' - 'TBDebugTaunts1 - ' - Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) - Me.TBDebugTaunts1.Name = "TBDebugTaunts1" - Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) - Me.TBDebugTaunts1.TabIndex = 5 - ' - 'RBDebugTaunts3 - ' - Me.RBDebugTaunts3.AutoSize = True - Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) - Me.RBDebugTaunts3.Name = "RBDebugTaunts3" - Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) - Me.RBDebugTaunts3.TabIndex = 4 - Me.RBDebugTaunts3.Text = "3 Lines" - Me.RBDebugTaunts3.UseVisualStyleBackColor = True - ' - 'RBDebugTaunts2 - ' - Me.RBDebugTaunts2.AutoSize = True - Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) - Me.RBDebugTaunts2.Name = "RBDebugTaunts2" - Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) - Me.RBDebugTaunts2.TabIndex = 3 - Me.RBDebugTaunts2.Text = "2 Lines" - Me.RBDebugTaunts2.UseVisualStyleBackColor = True - ' - 'RBDebugTaunts1 - ' - Me.RBDebugTaunts1.AutoSize = True - Me.RBDebugTaunts1.Checked = True - Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) - Me.RBDebugTaunts1.Name = "RBDebugTaunts1" - Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) - Me.RBDebugTaunts1.TabIndex = 2 - Me.RBDebugTaunts1.TabStop = True - Me.RBDebugTaunts1.Text = "1 Line" - Me.RBDebugTaunts1.UseVisualStyleBackColor = True - ' - 'CBDebugTauntsEndless - ' - Me.CBDebugTauntsEndless.AutoSize = True - Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) - Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" - Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) - Me.CBDebugTauntsEndless.TabIndex = 1 - Me.CBDebugTauntsEndless.Text = "Endless Cycle" - Me.CBDebugTauntsEndless.UseVisualStyleBackColor = True - ' - 'CBDebugTaunts - ' - Me.CBDebugTaunts.AutoSize = True - Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) - Me.CBDebugTaunts.Name = "CBDebugTaunts" - Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) - Me.CBDebugTaunts.TabIndex = 0 - Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" - Me.CBDebugTaunts.UseVisualStyleBackColor = True - ' - 'BTNDebugStrokeTauntTimer - ' - Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) - Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" - Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugStrokeTauntTimer.TabIndex = 8 - Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" - Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = True - ' - 'LBLDebugHoldEdgeTime - ' - Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) - Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" - Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugHoldEdgeTime.TabIndex = 13 - Me.LBLDebugHoldEdgeTime.Text = "0" - Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label145 - ' - Me.Label145.Location = New System.Drawing.Point(402, 11) - Me.Label145.Name = "Label145" - Me.Label145.Size = New System.Drawing.Size(67, 23) - Me.Label145.TabIndex = 3 - Me.Label145.Text = "Tease Timer" - Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNDebugStrokeTime - ' - Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) - Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" - Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugStrokeTime.TabIndex = 2 - Me.BTNDebugStrokeTime.Text = "Set to 5" - Me.BTNDebugStrokeTime.UseVisualStyleBackColor = True - ' - 'BTNDebugEdgeTauntTimer - ' - Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) - Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" - Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugEdgeTauntTimer.TabIndex = 11 - Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" - Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = True - ' - 'LBLDebugTeaseTime - ' - Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) - Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" - Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugTeaseTime.TabIndex = 4 - Me.LBLDebugTeaseTime.Text = "0" - Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugStrokeTime - ' - Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) - Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" - Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugStrokeTime.TabIndex = 1 - Me.LBLDebugStrokeTime.Text = "0" - Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugEdgeTauntTime - ' - Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) - Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" - Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugEdgeTauntTime.TabIndex = 10 - Me.LBLDebugEdgeTauntTime.Text = "0" - Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'BTNDebugTeaseTimer - ' - Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) - Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" - Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) - Me.BTNDebugTeaseTimer.TabIndex = 5 - Me.BTNDebugTeaseTimer.Text = "Set to 5" - Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = True - ' - 'Label142 - ' - Me.Label142.Location = New System.Drawing.Point(402, 121) - Me.Label142.Name = "Label142" - Me.Label142.Size = New System.Drawing.Size(67, 23) - Me.Label142.TabIndex = 0 - Me.Label142.Text = "Stroke Timer" - Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label150 - ' - Me.Label150.Location = New System.Drawing.Point(402, 206) - Me.Label150.Name = "Label150" - Me.Label150.Size = New System.Drawing.Size(67, 27) - Me.Label150.TabIndex = 9 - Me.Label150.Text = "Edge Taunt Timer" - Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label152 - ' - Me.Label152.Location = New System.Drawing.Point(402, 238) - Me.Label152.Name = "Label152" - Me.Label152.Size = New System.Drawing.Size(67, 40) - Me.Label152.TabIndex = 12 - Me.Label152.Text = "Hold Edge Timer" - Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLDebugStrokeTauntTime - ' - Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro - Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) - Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" - Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) - Me.LBLDebugStrokeTauntTime.TabIndex = 7 - Me.LBLDebugStrokeTauntTime.Text = "0" - Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label147 - ' - Me.Label147.Location = New System.Drawing.Point(402, 143) - Me.Label147.Name = "Label147" - Me.Label147.Size = New System.Drawing.Size(67, 29) - Me.Label147.TabIndex = 6 - Me.Label147.Text = "Stroke Taunt Timer" - Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'TabPage30 - ' - Me.TabPage30.BackColor = System.Drawing.Color.LightGray - Me.TabPage30.Controls.Add(Me.Button33) - Me.TabPage30.Controls.Add(Me.Button24) - Me.TabPage30.Location = New System.Drawing.Point(4, 22) - Me.TabPage30.Name = "TabPage30" - Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage30.Size = New System.Drawing.Size(700, 411) - Me.TabPage30.TabIndex = 1 - Me.TabPage30.Text = "TabPage30" - ' - 'Button33 - ' - Me.Button33.Location = New System.Drawing.Point(6, 35) - Me.Button33.Name = "Button33" - Me.Button33.Size = New System.Drawing.Size(75, 23) - Me.Button33.TabIndex = 1 - Me.Button33.Text = "LoadState" - Me.Button33.UseVisualStyleBackColor = True - ' - 'Button24 - ' - Me.Button24.Location = New System.Drawing.Point(6, 6) - Me.Button24.Name = "Button24" - Me.Button24.Size = New System.Drawing.Size(75, 23) - Me.Button24.TabIndex = 0 - Me.Button24.Text = "SaveState" - Me.Button24.UseVisualStyleBackColor = True - ' - 'TabPage5 - ' - Me.TabPage5.BackColor = System.Drawing.Color.Silver - Me.TabPage5.Controls.Add(Me.Panel5) - Me.TabPage5.Location = New System.Drawing.Point(4, 22) - Me.TabPage5.Name = "TabPage5" - Me.TabPage5.Size = New System.Drawing.Size(720, 448) - Me.TabPage5.TabIndex = 17 - Me.TabPage5.Text = "About" - ' - 'Panel5 - ' - Me.Panel5.BackColor = System.Drawing.Color.LightGray - Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel5.Controls.Add(Me.Label130) - Me.Panel5.Controls.Add(Me.Label123) - Me.Panel5.Controls.Add(Me.Label69) - Me.Panel5.Controls.Add(Me.Label113) - Me.Panel5.Controls.Add(Me.Label40) - Me.Panel5.Controls.Add(Me.Label35) - Me.Panel5.Controls.Add(Me.Label33) - Me.Panel5.Controls.Add(Me.Label17) - Me.Panel5.Controls.Add(Me.Label3) - Me.Panel5.Controls.Add(Me.PictureBox3) - Me.Panel5.Controls.Add(Me.Label41) - Me.Panel5.Location = New System.Drawing.Point(6, 6) - Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(708, 437) - Me.Panel5.TabIndex = 92 - ' - 'Label130 - ' - Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label130.Location = New System.Drawing.Point(361, 314) - Me.Label130.Name = "Label130" - Me.Label130.Size = New System.Drawing.Size(254, 54) - Me.Label130.TabIndex = 176 - Me.Label130.Text = "q55x8x" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Stefaf" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "OxiKlein" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) - Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label123 - ' - Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label123.Location = New System.Drawing.Point(81, 314) - Me.Label123.Name = "Label123" - Me.Label123.Size = New System.Drawing.Size(254, 54) - Me.Label123.TabIndex = 175 - Me.Label123.Text = "pepsifreak" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daragorn" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ambossli" - Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label69 - ' - Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label69.Location = New System.Drawing.Point(35, 295) - Me.Label69.Name = "Label69" - Me.Label69.Size = New System.Drawing.Size(638, 22) - Me.Label69.TabIndex = 174 - Me.Label69.Text = "Triple Alfa" - Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label113 - ' - Me.Label113.AutoSize = True - Me.Label113.Location = New System.Drawing.Point(4, 417) - Me.Label113.Name = "Label113" - Me.Label113.Size = New System.Drawing.Size(452, 13) - Me.Label113.TabIndex = 173 - Me.Label113.Text = "All content contained in or viewed through this program are property of their res" & - "pective owners." - ' - 'Label40 - ' - Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label40.Location = New System.Drawing.Point(35, 273) - Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(638, 24) - Me.Label40.TabIndex = 171 - Me.Label40.Text = "Special Thanks" - Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label35 - ' - Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label35.Location = New System.Drawing.Point(32, 107) - Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(641, 77) - Me.Label35.TabIndex = 170 - Me.Label35.Text = "This program is freeware. It may be freely distributed." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Do not package or dist" & - "ribute this program with any scripts or additional content." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please distribute a" & - "dditional files separately." - Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label33 - ' - Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label33.Location = New System.Drawing.Point(32, 191) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(641, 77) - Me.Label33.TabIndex = 169 - Me.Label33.Text = resources.GetString("Label33.Text") - Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(522, 78) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(93, 13) - Me.Label17.TabIndex = 168 - Me.Label17.Text = "Designed by 1885" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(489, 417) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(215, 13) - Me.Label3.TabIndex = 167 - Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" - ' - 'PictureBox3 - ' - Me.PictureBox3.BackColor = System.Drawing.Color.LightGray - Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big - Me.PictureBox3.Location = New System.Drawing.Point(84, 17) - Me.PictureBox3.Name = "PictureBox3" - Me.PictureBox3.Size = New System.Drawing.Size(531, 58) - Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PictureBox3.TabIndex = 166 - Me.PictureBox3.TabStop = False - ' - 'Label41 - ' - Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label41.Location = New System.Drawing.Point(35, 372) - Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(638, 39) - Me.Label41.TabIndex = 172 - Me.Label41.Text = "Thank you to everyone who has provided help and feedback." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Thank you to the commu" & - "nity who's been supportive of my work over the years. Tease AI exists because of" & - " you." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) - Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'BtnRandomImageDirClear - ' - Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray - Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black - Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) - Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" - Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) - Me.BtnRandomImageDirClear.TabIndex = 181 - Me.BtnRandomImageDirClear.Text = "Clear" - Me.BtnRandomImageDirClear.UseVisualStyleBackColor = False - ' - 'GroupBox47 - ' - Me.GroupBox47.BackColor = System.Drawing.Color.LightGray - Me.GroupBox47.Controls.Add(Me.GroupBox41) - Me.GroupBox47.Controls.Add(Me.GroupBox40) - Me.GroupBox47.ForeColor = System.Drawing.Color.Black - Me.GroupBox47.Location = New System.Drawing.Point(806, 255) - Me.GroupBox47.Name = "GroupBox47" - Me.GroupBox47.Size = New System.Drawing.Size(310, 190) - Me.GroupBox47.TabIndex = 63 - Me.GroupBox47.TabStop = False - Me.GroupBox47.Text = "Boobs and Butts Paths" - ' - 'GroupBox41 - ' - Me.GroupBox41.Controls.Add(Me.Button34) - Me.GroupBox41.Location = New System.Drawing.Point(6, 110) - Me.GroupBox41.Name = "GroupBox41" - Me.GroupBox41.Size = New System.Drawing.Size(298, 74) - Me.GroupBox41.TabIndex = 153 - Me.GroupBox41.TabStop = False - Me.GroupBox41.Text = "Butts" - ' - 'Button34 - ' - Me.Button34.BackColor = System.Drawing.Color.LightGray - Me.Button34.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) - Me.Button34.ForeColor = System.Drawing.Color.Black - Me.Button34.Location = New System.Drawing.Point(85, 25) - Me.Button34.Name = "Button34" - Me.Button34.Size = New System.Drawing.Size(34, 28) - Me.Button34.TabIndex = 131 - Me.Button34.Text = "1" - Me.Button34.UseVisualStyleBackColor = False - ' - 'GroupBox40 - ' - Me.GroupBox40.Location = New System.Drawing.Point(5, 35) - Me.GroupBox40.Name = "GroupBox40" - Me.GroupBox40.Size = New System.Drawing.Size(298, 74) - Me.GroupBox40.TabIndex = 152 - Me.GroupBox40.TabStop = False - Me.GroupBox40.Text = "Boobs" - ' - 'GroupBox44 - ' - Me.GroupBox44.BackColor = System.Drawing.Color.LightGray - Me.GroupBox44.Controls.Add(Me.Label100) - Me.GroupBox44.ForeColor = System.Drawing.Color.Black - Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) - Me.GroupBox44.Name = "GroupBox44" - Me.GroupBox44.Size = New System.Drawing.Size(310, 92) - Me.GroupBox44.TabIndex = 65 - Me.GroupBox44.TabStop = False - Me.GroupBox44.Text = "Description" - ' - 'Label100 - ' - Me.Label100.BackColor = System.Drawing.Color.Transparent - Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label100.ForeColor = System.Drawing.Color.Black - Me.Label100.Location = New System.Drawing.Point(11, 16) - Me.Label100.Name = "Label100" - Me.Label100.Size = New System.Drawing.Size(286, 73) - Me.Label100.TabIndex = 62 - Me.Label100.Text = resources.GetString("Label100.Text") - Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox6 - ' - Me.GroupBox6.Controls.Add(Me.Label4) - Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) - Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) - Me.GroupBox6.Controls.Add(Me.Label94) - Me.GroupBox6.Controls.Add(Me.LBLLastRuined) - Me.GroupBox6.Controls.Add(Me.Label65) - Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) - Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) - Me.GroupBox6.Controls.Add(Me.Label14) - Me.GroupBox6.Controls.Add(Me.Label13) - Me.GroupBox6.Controls.Add(Me.Label1) - Me.GroupBox6.Location = New System.Drawing.Point(27, 114) - Me.GroupBox6.Name = "GroupBox6" - Me.GroupBox6.Size = New System.Drawing.Size(283, 102) - Me.GroupBox6.TabIndex = 156 - Me.GroupBox6.TabStop = False - Me.GroupBox6.Text = "Performance" - ' - 'Label4 - ' - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(26, 16) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(77, 17) - Me.Label4.TabIndex = 147 - Me.Label4.Text = "Stroking Time" - Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLAvgEdgeStroking - ' - Me.LBLAvgEdgeStroking.AutoSize = True - Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) - Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" - Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) - Me.LBLAvgEdgeStroking.TabIndex = 144 - Me.LBLAvgEdgeStroking.Text = "00:00" - Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLStrokeTimeTotal - ' - Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) - Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" - Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) - Me.LBLStrokeTimeTotal.TabIndex = 148 - Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" - Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label94 - ' - Me.Label94.BackColor = System.Drawing.Color.Transparent - Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label94.ForeColor = System.Drawing.Color.Black - Me.Label94.Location = New System.Drawing.Point(189, 16) - Me.Label94.Name = "Label94" - Me.Label94.Size = New System.Drawing.Size(65, 17) - Me.Label94.TabIndex = 150 - Me.Label94.Text = "Last Ruined" - Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLLastRuined - ' - Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) - Me.LBLLastRuined.Name = "LBLLastRuined" - Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) - Me.LBLLastRuined.TabIndex = 152 - Me.LBLLastRuined.Text = "04/28/2015" - Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label65 - ' - Me.Label65.BackColor = System.Drawing.Color.Transparent - Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label65.ForeColor = System.Drawing.Color.Black - Me.Label65.Location = New System.Drawing.Point(103, 16) - Me.Label65.Name = "Label65" - Me.Label65.Size = New System.Drawing.Size(85, 17) - Me.Label65.TabIndex = 149 - Me.Label65.Text = "Last Orgasm" - Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLAvgEdgeNoTouch - ' - Me.LBLAvgEdgeNoTouch.AutoSize = True - Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) - Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" - Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) - Me.LBLAvgEdgeNoTouch.TabIndex = 146 - Me.LBLAvgEdgeNoTouch.Text = "00:00" - Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'LBLLastOrgasm - ' - Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) - Me.LBLLastOrgasm.Name = "LBLLastOrgasm" - Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) - Me.LBLLastOrgasm.TabIndex = 151 - Me.LBLLastOrgasm.Text = "04/28/2015" - Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label14 - ' - Me.Label14.BackColor = System.Drawing.Color.Transparent - Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label14.ForeColor = System.Drawing.Color.Black - Me.Label14.Location = New System.Drawing.Point(25, 48) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(238, 17) - Me.Label14.TabIndex = 138 - Me.Label14.Text = "Average Time to Edge" - Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(177, 68) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(32, 13) - Me.Label13.TabIndex = 145 - Me.Label13.Text = "Rest:" - Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(28, 68) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(79, 13) - Me.Label1.TabIndex = 143 - Me.Label1.Text = "While Stroking:" - Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'GroupBox21 - ' - Me.GroupBox21.BackColor = System.Drawing.Color.LightGray - Me.GroupBox21.Controls.Add(Me.Label153) - Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) - Me.GroupBox21.Controls.Add(Me.GroupBox6) - Me.GroupBox21.Controls.Add(Me.Label156) - Me.GroupBox21.ForeColor = System.Drawing.Color.Black - Me.GroupBox21.Location = New System.Drawing.Point(797, 55) - Me.GroupBox21.Name = "GroupBox21" - Me.GroupBox21.Size = New System.Drawing.Size(316, 136) - Me.GroupBox21.TabIndex = 66 - Me.GroupBox21.TabStop = False - Me.GroupBox21.Text = "Description" - ' - 'Label153 - ' - Me.Label153.BackColor = System.Drawing.Color.Transparent - Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label153.ForeColor = System.Drawing.Color.Black - Me.Label153.Location = New System.Drawing.Point(78, 94) - Me.Label153.Name = "Label153" - Me.Label153.Size = New System.Drawing.Size(158, 17) - Me.Label153.TabIndex = 135 - Me.Label153.Text = "No path selected" - Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'LBLRangeSettingsDescription - ' - Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent - Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black - Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) - Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" - Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) - Me.LBLRangeSettingsDescription.TabIndex = 62 - Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & - "n." - Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label156 - ' - Me.Label156.BackColor = System.Drawing.Color.Transparent - Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label156.ForeColor = System.Drawing.Color.Black - Me.Label156.Location = New System.Drawing.Point(133, 23) - Me.Label156.Name = "Label156" - Me.Label156.Size = New System.Drawing.Size(158, 17) - Me.Label156.TabIndex = 135 - Me.Label156.Text = "No path selected" - Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'GroupBox12 - ' - Me.GroupBox12.BackColor = System.Drawing.Color.LightGray - Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) - Me.GroupBox12.ForeColor = System.Drawing.Color.Black - Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) - Me.GroupBox12.Name = "GroupBox12" - Me.GroupBox12.Size = New System.Drawing.Size(171, 124) - Me.GroupBox12.TabIndex = 65 - Me.GroupBox12.TabStop = False - Me.GroupBox12.Text = "Description" - ' - 'LBLSubSettingsDescription - ' - Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent - Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black - Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) - Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" - Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) - Me.LBLSubSettingsDescription.TabIndex = 62 - Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & - "n." - ' - 'OpenFileDialog1 - ' - Me.OpenFileDialog1.FileName = "OpenFileDialog1" - Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file" & - "s (*.*)|*.*" - Me.OpenFileDialog1.Title = "Select an image file" - ' - 'GetColor - ' - Me.GetColor.Color = System.Drawing.Color.SteelBlue - ' - 'WebImageFileDialog - ' - Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.WebImageFileDialog.Title = "Please select a URL File" - ' - 'OpenScriptDialog - ' - Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.OpenScriptDialog.Title = "Please select a script" - ' - 'OpenSettingsDialog - ' - Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.OpenSettingsDialog.Title = "Please select a settings file to open" - ' - 'SaveSettingsDialog - ' - Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" - Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" - ' - 'GroupBox65 - ' - Me.GroupBox65.BackColor = System.Drawing.Color.LightGray - Me.GroupBox65.Controls.Add(Me.Label136) - Me.GroupBox65.Controls.Add(Me.Label134) - Me.GroupBox65.Controls.Add(Me.Label132) - Me.GroupBox65.Controls.Add(Me.TrackBar1) - Me.GroupBox65.Controls.Add(Me.ComboBox1) - Me.GroupBox65.Controls.Add(Me.CheckBox1) - Me.GroupBox65.Controls.Add(Me.Label135) - Me.GroupBox65.Controls.Add(Me.TrackBar2) - Me.GroupBox65.ForeColor = System.Drawing.Color.Black - Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) - Me.GroupBox65.Name = "GroupBox65" - Me.GroupBox65.Size = New System.Drawing.Size(259, 117) - Me.GroupBox65.TabIndex = 157 - Me.GroupBox65.TabStop = False - Me.GroupBox65.Text = "Text to Speech" - ' - 'Label136 - ' - Me.Label136.AutoSize = True - Me.Label136.Location = New System.Drawing.Point(14, 52) - Me.Label136.Name = "Label136" - Me.Label136.Size = New System.Drawing.Size(45, 13) - Me.Label136.TabIndex = 32 - Me.Label136.Text = "Volume:" - ' - 'Label134 - ' - Me.Label134.AutoSize = True - Me.Label134.Location = New System.Drawing.Point(141, 52) - Me.Label134.Name = "Label134" - Me.Label134.Size = New System.Drawing.Size(33, 13) - Me.Label134.TabIndex = 157 - Me.Label134.Text = "Rate:" - ' - 'Label132 - ' - Me.Label132.Location = New System.Drawing.Point(202, 52) - Me.Label132.Name = "Label132" - Me.Label132.Size = New System.Drawing.Size(45, 13) - Me.Label132.TabIndex = 158 - Me.Label132.Text = "100" - Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'TrackBar1 - ' - Me.TrackBar1.Location = New System.Drawing.Point(133, 68) - Me.TrackBar1.Minimum = -10 - Me.TrackBar1.Name = "TrackBar1" - Me.TrackBar1.Size = New System.Drawing.Size(120, 45) - Me.TrackBar1.TabIndex = 31 - ' - 'ComboBox1 - ' - Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window - Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(71, 16) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(178, 21) - Me.ComboBox1.TabIndex = 29 - Me.ComboBox1.TabStop = False - ' - 'CheckBox1 - ' - Me.CheckBox1.AutoSize = True - Me.CheckBox1.ForeColor = System.Drawing.Color.Black - Me.CheckBox1.Location = New System.Drawing.Point(10, 18) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(59, 17) - Me.CheckBox1.TabIndex = 28 - Me.CheckBox1.TabStop = False - Me.CheckBox1.Text = "Enable" - Me.CheckBox1.UseVisualStyleBackColor = True - ' - 'Label135 - ' - Me.Label135.Location = New System.Drawing.Point(75, 52) - Me.Label135.Name = "Label135" - Me.Label135.Size = New System.Drawing.Size(45, 13) - Me.Label135.TabIndex = 33 - Me.Label135.Text = "100" - Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'TrackBar2 - ' - Me.TrackBar2.Location = New System.Drawing.Point(6, 68) - Me.TrackBar2.Maximum = 100 - Me.TrackBar2.Name = "TrackBar2" - Me.TrackBar2.Size = New System.Drawing.Size(120, 45) - Me.TrackBar2.TabIndex = 30 - Me.TrackBar2.Value = 50 - ' - 'TxbImgUrlHardcore - ' - Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray - Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill - Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) - Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" - Me.TxbImgUrlHardcore.ReadOnly = True - Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) - Me.TxbImgUrlHardcore.TabIndex = 145 - ' - 'TextBox2 - ' - Me.TextBox2.BackColor = System.Drawing.Color.LightGray - Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill - Me.TextBox2.Location = New System.Drawing.Point(116, 34) - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.ReadOnly = True - Me.TextBox2.Size = New System.Drawing.Size(189, 20) - Me.TextBox2.TabIndex = 145 - ' - 'BWURLFiles - ' - Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" - Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" - Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" - Me.BWURLFiles.WorkerReportsProgress = True - Me.BWURLFiles.WorkerSupportsCancellation = True - ' - 'FrmSettings - ' - Me.AllowDrop = True - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(727, 465) - Me.Controls.Add(Me.GroupBox65) - Me.Controls.Add(Me.GroupBox44) - Me.Controls.Add(Me.GroupBox47) - Me.Controls.Add(Me.BtnRandomImageDirClear) - Me.Controls.Add(Me.SettingsPanel) - Me.Controls.Add(Me.GroupBox12) - Me.Controls.Add(Me.GroupBox21) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D - Me.MaximizeBox = False - Me.MinimizeBox = False - Me.Name = "FrmSettings" - Me.ShowIcon = False - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Tease AI Settings" - Me.SettingsPanel.ResumeLayout(False) - Me.SettingsTabs.ResumeLayout(False) - Me.TabPage1.ResumeLayout(False) - Me.PNLGeneralSettings.ResumeLayout(False) - Me.PNLGeneralSettings.PerformLayout() - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox2.ResumeLayout(False) - Me.GroupBox2.PerformLayout() - Me.GroupBox64.ResumeLayout(False) - Me.GroupBox64.PerformLayout() - Me.GBDommeImages.ResumeLayout(False) - Me.GBDommeImages.PerformLayout() - CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGeneralTextToSpeech.ResumeLayout(False) - Me.GBGeneralTextToSpeech.PerformLayout() - CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBSafeword.ResumeLayout(False) - Me.GBSafeword.PerformLayout() - Me.GBGeneralSystem.ResumeLayout(False) - Me.GBGeneralSystem.PerformLayout() - Me.GBGeneralImages.ResumeLayout(False) - Me.GBGeneralImages.PerformLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGeneralSettings.ResumeLayout(False) - Me.GBGeneralSettings.PerformLayout() - Me.GBSubFont.ResumeLayout(False) - CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDommeFont.ResumeLayout(False) - CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage2.ResumeLayout(False) - Me.Panel3.ResumeLayout(False) - Me.Panel3.PerformLayout() - Me.GBGiveUp.ResumeLayout(False) - Me.GBGiveUp.PerformLayout() - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomTypingStyle.ResumeLayout(False) - Me.GBDomTypingStyle.PerformLayout() - CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox63.ResumeLayout(False) - Me.GroupBox63.PerformLayout() - Me.GBDomRanges.ResumeLayout(False) - CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomStats.ResumeLayout(False) - Me.GBDomStats.PerformLayout() - CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomPersonality.ResumeLayout(False) - Me.GBDomPersonality.PerformLayout() - Me.GBDomOrgasms.ResumeLayout(False) - Me.GBDomOrgasms.PerformLayout() - CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBDomPetNames.ResumeLayout(False) - Me.GBDomPetNames.PerformLayout() - Me.TabPage10.ResumeLayout(False) - Me.Panel2.ResumeLayout(False) - Me.GroupBox22.ResumeLayout(False) - CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox45.ResumeLayout(False) - CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox35.ResumeLayout(False) - Me.GroupBoxSorry.ResumeLayout(False) - Me.GroupBoxSorry.PerformLayout() - Me.GroupBox39.ResumeLayout(False) - Me.GroupBox39.PerformLayout() - Me.GroupBox38.ResumeLayout(False) - Me.GroupBox38.PerformLayout() - Me.GroupBox37.ResumeLayout(False) - Me.GroupBox37.PerformLayout() - Me.GroupBox36.ResumeLayout(False) - Me.GroupBox36.PerformLayout() - Me.GroupBox13.ResumeLayout(False) - Me.GroupBox7.ResumeLayout(False) - Me.GroupBox7.PerformLayout() - CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox32.ResumeLayout(False) - Me.GroupBox32.PerformLayout() - CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage16.ResumeLayout(False) - Me.Panel9.ResumeLayout(False) - Me.GroupBox31.ResumeLayout(False) - Me.TCScripts.ResumeLayout(False) - Me.TabPage21.ResumeLayout(False) - Me.TabPage17.ResumeLayout(False) - Me.TabPage18.ResumeLayout(False) - Me.TabPage19.ResumeLayout(False) - Me.GroupBox42.ResumeLayout(False) - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox43.ResumeLayout(False) - Me.TabPage7.ResumeLayout(False) - Me.TabControl4.ResumeLayout(False) - Me.TpImagesUrlFiles.ResumeLayout(False) - Me.TpImagesUrlFiles.PerformLayout() - Me.GroupBox66.ResumeLayout(False) - CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).EndInit() - Me.TpImagesGenre.ResumeLayout(False) - Me.GrbImageUrlFiles.ResumeLayout(False) - Me.TlpImageUrls.ResumeLayout(False) - Me.TlpImageUrls.PerformLayout() - Me.GbxImagesGenre.ResumeLayout(False) - Me.TableLayoutPanel1.ResumeLayout(False) - Me.TableLayoutPanel1.PerformLayout() - Me.TabPage33.ResumeLayout(False) - Me.TabControl5.ResumeLayout(False) - Me.TabPage34.ResumeLayout(False) - Me.TabPage34.PerformLayout() - CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage35.ResumeLayout(False) - Me.TabPage35.PerformLayout() - Me.GroupBox55.ResumeLayout(False) - Me.GroupBox55.PerformLayout() - Me.GroupBox53.ResumeLayout(False) - Me.GroupBox53.PerformLayout() - Me.GroupBox49.ResumeLayout(False) - Me.GroupBox49.PerformLayout() - Me.GroupBox46.ResumeLayout(False) - Me.GroupBox46.PerformLayout() - Me.GroupBox54.ResumeLayout(False) - Me.GroupBox54.PerformLayout() - Me.GroupBox51.ResumeLayout(False) - Me.GroupBox51.PerformLayout() - Me.GroupBox50.ResumeLayout(False) - Me.GroupBox50.PerformLayout() - Me.GroupBox48.ResumeLayout(False) - Me.GroupBox48.PerformLayout() - Me.TabPage11.ResumeLayout(False) - Me.Panel7.ResumeLayout(False) - Me.Panel7.PerformLayout() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).EndInit() - Me.TpVideoSettings.ResumeLayout(False) - Me.PnlVideoSettings.ResumeLayout(False) - CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxVideoGeneralD.ResumeLayout(False) - Me.GbxVideoGeneralD.PerformLayout() - Me.GbxVideoSpecialD.ResumeLayout(False) - Me.GbxVideoSpecialD.PerformLayout() - Me.GbxVideoGenreD.ResumeLayout(False) - Me.GbxVideoGenreD.PerformLayout() - Me.GbxVideoDescription.ResumeLayout(False) - Me.GbxVideoGeneral.ResumeLayout(False) - Me.GbxVideoGeneral.PerformLayout() - Me.GbxVideoSpecial.ResumeLayout(False) - Me.GbxVideoSpecial.PerformLayout() - Me.GbxVideoGenre.ResumeLayout(False) - Me.GbxVideoGenre.PerformLayout() - Me.TabPage20.ResumeLayout(False) - Me.TabControl1.ResumeLayout(False) - Me.TabPage22.ResumeLayout(False) - Me.PNLGlitter.ResumeLayout(False) - Me.PNLGlitter.PerformLayout() - Me.GroupBox14.ResumeLayout(False) - Me.GroupBox14.PerformLayout() - Me.GroupBox4.ResumeLayout(False) - Me.GBGlitterD.ResumeLayout(False) - Me.GBGlitterD.PerformLayout() - Me.GrbGlitterfeed.ResumeLayout(False) - Me.GrbGlitterfeed.PerformLayout() - CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGlitter1.ResumeLayout(False) - Me.GBGlitter1.PerformLayout() - CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGlitter3.ResumeLayout(False) - Me.GBGlitter3.PerformLayout() - CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBGlitter2.ResumeLayout(False) - Me.GBGlitter2.PerformLayout() - CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).EndInit() - Me.TpGames.ResumeLayout(False) - Me.TpGames.PerformLayout() - Me.GbxCardsGold.ResumeLayout(False) - Me.GbxCardsGold.PerformLayout() - CType(Me.GP6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GP4, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxCardsBackground.ResumeLayout(False) - CType(Me.CardBack, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxCardsBronze.ResumeLayout(False) - Me.GbxCardsBronze.PerformLayout() - CType(Me.BP3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BP1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GbxCardsSilver.ResumeLayout(False) - Me.GbxCardsSilver.PerformLayout() - CType(Me.SP6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SP4, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage6.ResumeLayout(False) - Me.Panel10.ResumeLayout(False) - Me.Panel10.PerformLayout() - CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).EndInit() - Me.PNLWishList.ResumeLayout(False) - CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage26.ResumeLayout(False) - Me.Panel12.ResumeLayout(False) - Me.GroupBox9.ResumeLayout(False) - CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox5.ResumeLayout(False) - Me.GroupBox5.PerformLayout() - Me.GroupBox11.ResumeLayout(False) - Me.GroupBox1.ResumeLayout(False) - CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage4.ResumeLayout(False) - Me.Panel6.ResumeLayout(False) - Me.GroupBox69.ResumeLayout(False) - Me.GroupBox69.PerformLayout() - CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox68.ResumeLayout(False) - CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox67.ResumeLayout(False) - CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox10.ResumeLayout(False) - CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox57.ResumeLayout(False) - Me.GroupBox57.PerformLayout() - CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBRangeRuinChance.ResumeLayout(False) - Me.GBRangeRuinChance.PerformLayout() - CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox17.ResumeLayout(False) - Me.GroupBox19.ResumeLayout(False) - CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox18.ResumeLayout(False) - Me.GroupBox18.PerformLayout() - CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).EndInit() - Me.GBRangeOrgasmChance.ResumeLayout(False) - Me.GBRangeOrgasmChance.PerformLayout() - CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage13.ResumeLayout(False) - Me.TabControl2.ResumeLayout(False) - Me.TabPage27.ResumeLayout(False) - Me.TabPage27.PerformLayout() - Me.TabPage14.ResumeLayout(False) - Me.TabPage14.PerformLayout() - Me.TabPage24.ResumeLayout(False) - Me.TabPage24.PerformLayout() - Me.TabPage8.ResumeLayout(False) - Me.GroupBox29.ResumeLayout(False) - Me.GroupBox28.ResumeLayout(False) - Me.GroupBox30.ResumeLayout(False) - Me.TabPage15.ResumeLayout(False) - Me.TabPage15.PerformLayout() - Me.GroupBox34.ResumeLayout(False) - Me.TabPage25.ResumeLayout(False) - Me.Panel11.ResumeLayout(False) - Me.GroupBox62.ResumeLayout(False) - Me.GroupBox62.PerformLayout() - Me.GroupBox33.ResumeLayout(False) - Me.GroupBox8.ResumeLayout(False) - Me.GroupBox8.PerformLayout() - Me.GroupBox27.ResumeLayout(False) - Me.GroupBox27.PerformLayout() - Me.GroupBox20.ResumeLayout(False) - Me.GroupBox20.PerformLayout() - Me.GroupBox15.ResumeLayout(False) - Me.GroupBox15.PerformLayout() - CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage28.ResumeLayout(False) - Me.TabControl3.ResumeLayout(False) - Me.TabPage29.ResumeLayout(False) - Me.GroupBox26.ResumeLayout(False) - Me.GroupBox26.PerformLayout() - Me.TabPage30.ResumeLayout(False) - Me.TabPage5.ResumeLayout(False) - Me.Panel5.ResumeLayout(False) - Me.Panel5.PerformLayout() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox47.ResumeLayout(False) - Me.GroupBox41.ResumeLayout(False) - Me.GroupBox44.ResumeLayout(False) - Me.GroupBox6.ResumeLayout(False) - Me.GroupBox6.PerformLayout() - Me.GroupBox21.ResumeLayout(False) - Me.GroupBox12.ResumeLayout(False) - Me.GroupBox65.ResumeLayout(False) - Me.GroupBox65.PerformLayout() - CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) +Me.components = New System.ComponentModel.Container() +Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) +Me.SettingsPanel = New System.Windows.Forms.Panel() +Me.SettingsTabs = New System.Windows.Forms.TabControl() +Me.TabPage1 = New System.Windows.Forms.TabPage() +Me.PNLGeneralSettings = New System.Windows.Forms.Panel() +Me.GroupBox3 = New System.Windows.Forms.GroupBox() +Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() +Me.GroupBox2 = New System.Windows.Forms.GroupBox() +Me.Label170 = New System.Windows.Forms.Label() +Me.RandomHonorific = New System.Windows.Forms.TextBox() +Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() +Me.CBRandomDomme = New System.Windows.Forms.CheckBox() +Me.BtnRandomImageDir = New System.Windows.Forms.Button() +Me.BtnImportSettings = New System.Windows.Forms.Button() +Me.LblImportSettings = New System.Windows.Forms.Label() +Me.GroupBox64 = New System.Windows.Forms.GroupBox() +Me.CBMuteMedia = New System.Windows.Forms.CheckBox() +Me.GBDommeImages = New System.Windows.Forms.GroupBox() +Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() +Me.teaseRadio = New System.Windows.Forms.RadioButton() +Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() +Me.offRadio = New System.Windows.Forms.RadioButton() +Me.BTNDomImageDir = New System.Windows.Forms.Button() +Me.timedRadio = New System.Windows.Forms.RadioButton() +Me.TbxDomImageDir = New System.Windows.Forms.TextBox() +Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() +Me.LBLVRate = New System.Windows.Forms.Label() +Me.Label93 = New System.Windows.Forms.Label() +Me.LBLVVolume = New System.Windows.Forms.Label() +Me.Label68 = New System.Windows.Forms.Label() +Me.SliderVRate = New System.Windows.Forms.TrackBar() +Me.SliderVVolume = New System.Windows.Forms.TrackBar() +Me.TTSCheckBox = New System.Windows.Forms.CheckBox() +Me.TTSComboBox = New System.Windows.Forms.ComboBox() +Me.GBSafeword = New System.Windows.Forms.GroupBox() +Me.LBLSafeword = New System.Windows.Forms.Label() +Me.TBSafeword = New System.Windows.Forms.TextBox() +Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() +Me.CBAuditStartup = New System.Windows.Forms.CheckBox() +Me.CBDomDel = New System.Windows.Forms.CheckBox() +Me.CBSettingsPause = New System.Windows.Forms.CheckBox() +Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() +Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() +Me.GBGeneralImages = New System.Windows.Forms.GroupBox() +Me.CBImageInfo = New System.Windows.Forms.CheckBox() +Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() +Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() +Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() +Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() +Me.PictureBox2 = New System.Windows.Forms.PictureBox() +Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() +Me.CBWebtease = New System.Windows.Forms.CheckBox() +Me.GBSubFont = New System.Windows.Forms.GroupBox() +Me.BTNSubColor = New System.Windows.Forms.Button() +Me.LBLSubColor = New System.Windows.Forms.Label() +Me.NBFontSize = New System.Windows.Forms.NumericUpDown() +Me.Label2 = New System.Windows.Forms.Label() +Me.FontComboBox = New System.Windows.Forms.ComboBox() +Me.GBDommeFont = New System.Windows.Forms.GroupBox() +Me.BTNDomColor = New System.Windows.Forms.Button() +Me.LBLDomColor = New System.Windows.Forms.Label() +Me.FontComboBoxD = New System.Windows.Forms.ComboBox() +Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() +Me.Label7 = New System.Windows.Forms.Label() +Me.CBInputIcon = New System.Windows.Forms.CheckBox() +Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() +Me.timestampCheckBox = New System.Windows.Forms.CheckBox() +Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() +Me.LBLGeneralSettings = New System.Windows.Forms.Label() +Me.TabPage2 = New System.Windows.Forms.TabPage() +Me.Panel3 = New System.Windows.Forms.Panel() +Me.GBGiveUp = New System.Windows.Forms.GroupBox() +Me.giveupCheckBox = New System.Windows.Forms.CheckBox() +Me.BTNLoadDomSet = New System.Windows.Forms.Button() +Me.BTNSaveDomSet = New System.Windows.Forms.Button() +Me.Label127 = New System.Windows.Forms.Label() +Me.Label126 = New System.Windows.Forms.Label() +Me.PictureBox4 = New System.Windows.Forms.PictureBox() +Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() +Me.TBEmoteEnd = New System.Windows.Forms.TextBox() +Me.Label67 = New System.Windows.Forms.Label() +Me.TBEmote = New System.Windows.Forms.TextBox() +Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() +Me.Label66 = New System.Windows.Forms.Label() +Me.CBMeMyMine = New System.Windows.Forms.CheckBox() +Me.GroupBox63 = New System.Windows.Forms.GroupBox() +Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() +Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() +Me.periodCheckBox = New System.Windows.Forms.CheckBox() +Me.commaCheckBox = New System.Windows.Forms.CheckBox() +Me.Label64 = New System.Windows.Forms.Label() +Me.GBDomRanges = New System.Windows.Forms.GroupBox() +Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() +Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() +Me.Label37 = New System.Windows.Forms.Label() +Me.Label39 = New System.Windows.Forms.Label() +Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() +Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() +Me.Label31 = New System.Windows.Forms.Label() +Me.Label36 = New System.Windows.Forms.Label() +Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() +Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() +Me.Label21 = New System.Windows.Forms.Label() +Me.Label22 = New System.Windows.Forms.Label() +Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() +Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() +Me.Label23 = New System.Windows.Forms.Label() +Me.Label30 = New System.Windows.Forms.Label() +Me.GBDomStats = New System.Windows.Forms.GroupBox() +Me.Label128 = New System.Windows.Forms.Label() +Me.LBLEmpathy = New System.Windows.Forms.Label() +Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() +Me.Label83 = New System.Windows.Forms.Label() +Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() +Me.TBDomEyeColor = New System.Windows.Forms.TextBox() +Me.TBDomHairColor = New System.Windows.Forms.TextBox() +Me.domageNumBox = New System.Windows.Forms.NumericUpDown() +Me.Label47 = New System.Windows.Forms.Label() +Me.Label76 = New System.Windows.Forms.Label() +Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() +Me.Label84 = New System.Windows.Forms.Label() +Me.CBDomTattoos = New System.Windows.Forms.CheckBox() +Me.CBDomFreckles = New System.Windows.Forms.CheckBox() +Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() +Me.Label10 = New System.Windows.Forms.Label() +Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() +Me.Label9 = New System.Windows.Forms.Label() +Me.boobComboBox = New System.Windows.Forms.ComboBox() +Me.DomLevelDescLabel = New System.Windows.Forms.Label() +Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() +Me.Label43 = New System.Windows.Forms.Label() +Me.Label44 = New System.Windows.Forms.Label() +Me.Label45 = New System.Windows.Forms.Label() +Me.Label46 = New System.Windows.Forms.Label() +Me.GBDomPersonality = New System.Windows.Forms.GroupBox() +Me.degradingCheckBox = New System.Windows.Forms.CheckBox() +Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() +Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() +Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() +Me.crazyCheckBox = New System.Windows.Forms.CheckBox() +Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() +Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() +Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() +Me.orgasmlockrandombutton = New System.Windows.Forms.Button() +Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() +Me.Label16 = New System.Windows.Forms.Label() +Me.Label12 = New System.Windows.Forms.Label() +Me.orgasmsperlockButton = New System.Windows.Forms.Button() +Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() +Me.orgasmsperLabel = New System.Windows.Forms.Label() +Me.limitcheckbox = New System.Windows.Forms.CheckBox() +Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() +Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() +Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() +Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() +Me.GBDomPetNames = New System.Windows.Forms.GroupBox() +Me.Label74 = New System.Windows.Forms.Label() +Me.petnameBox7 = New System.Windows.Forms.TextBox() +Me.petnameBox8 = New System.Windows.Forms.TextBox() +Me.petnameBox1 = New System.Windows.Forms.TextBox() +Me.Label15 = New System.Windows.Forms.Label() +Me.petnameBox4 = New System.Windows.Forms.TextBox() +Me.petnameBox6 = New System.Windows.Forms.TextBox() +Me.petnameBox2 = New System.Windows.Forms.TextBox() +Me.Label11 = New System.Windows.Forms.Label() +Me.petnameBox5 = New System.Windows.Forms.TextBox() +Me.petnameBox3 = New System.Windows.Forms.TextBox() +Me.Label54 = New System.Windows.Forms.Label() +Me.TabPage10 = New System.Windows.Forms.TabPage() +Me.Panel2 = New System.Windows.Forms.Panel() +Me.GroupBox22 = New System.Windows.Forms.GroupBox() +Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() +Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() +Me.Label75 = New System.Windows.Forms.Label() +Me.Label77 = New System.Windows.Forms.Label() +Me.GroupBox45 = New System.Windows.Forms.GroupBox() +Me.LBLCBTSlider = New System.Windows.Forms.Label() +Me.CBCBTBalls = New System.Windows.Forms.CheckBox() +Me.CBCBTCock = New System.Windows.Forms.CheckBox() +Me.CBTSlider = New System.Windows.Forms.TrackBar() +Me.GroupBox35 = New System.Windows.Forms.GroupBox() +Me.GroupBoxSorry = New System.Windows.Forms.GroupBox() +Me.TBSorry = New System.Windows.Forms.TextBox() +Me.GroupBox39 = New System.Windows.Forms.GroupBox() +Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() +Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() +Me.TBHonorific = New System.Windows.Forms.TextBox() +Me.GroupBox38 = New System.Windows.Forms.GroupBox() +Me.TBNo = New System.Windows.Forms.TextBox() +Me.GroupBox37 = New System.Windows.Forms.GroupBox() +Me.TBYes = New System.Windows.Forms.TextBox() +Me.GroupBox36 = New System.Windows.Forms.GroupBox() +Me.TBGreeting = New System.Windows.Forms.TextBox() +Me.GroupBox13 = New System.Windows.Forms.GroupBox() +Me.Label34 = New System.Windows.Forms.Label() +Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() +Me.GroupBox7 = New System.Windows.Forms.GroupBox() +Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() +Me.LBLMinExtremeHold = New System.Windows.Forms.Label() +Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() +Me.Label133 = New System.Windows.Forms.Label() +Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() +Me.LBLMaxLongHold = New System.Windows.Forms.Label() +Me.Label78 = New System.Windows.Forms.Label() +Me.LBLMinLongHold = New System.Windows.Forms.Label() +Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() +Me.Label129 = New System.Windows.Forms.Label() +Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() +Me.LBLMaxHold = New System.Windows.Forms.Label() +Me.Label79 = New System.Windows.Forms.Label() +Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() +Me.LBLMinHold = New System.Windows.Forms.Label() +Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() +Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() +Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() +Me.Label55 = New System.Windows.Forms.Label() +Me.Label81 = New System.Windows.Forms.Label() +Me.Label5 = New System.Windows.Forms.Label() +Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() +Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() +Me.Label131 = New System.Windows.Forms.Label() +Me.PictureBox12 = New System.Windows.Forms.PictureBox() +Me.GroupBox32 = New System.Windows.Forms.GroupBox() +Me.LBLSubBdayFormat = New System.Windows.Forms.Label() +Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() +Me.CBOwnChastity = New System.Windows.Forms.CheckBox() +Me.CBChastityPA = New System.Windows.Forms.CheckBox() +Me.CBHimHer = New System.Windows.Forms.CheckBox() +Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() +Me.CBCockToClit = New System.Windows.Forms.CheckBox() +Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() +Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() +Me.CBSubPierced = New System.Windows.Forms.CheckBox() +Me.TBSubEyeColor = New System.Windows.Forms.TextBox() +Me.TBSubHairColor = New System.Windows.Forms.TextBox() +Me.Label63 = New System.Windows.Forms.Label() +Me.LBLSubInches = New System.Windows.Forms.Label() +Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() +Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() +Me.LBLSubCockSize = New System.Windows.Forms.Label() +Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() +Me.LBLSubEye = New System.Windows.Forms.Label() +Me.LBLSubHair = New System.Windows.Forms.Label() +Me.LBLSubBirthday = New System.Windows.Forms.Label() +Me.LBLSubAge = New System.Windows.Forms.Label() +Me.Label70 = New System.Windows.Forms.Label() +Me.TabPage16 = New System.Windows.Forms.TabPage() +Me.Panel9 = New System.Windows.Forms.Panel() +Me.BTNScriptAvailable = New System.Windows.Forms.Button() +Me.BTNScriptNone = New System.Windows.Forms.Button() +Me.BTNScriptAll = New System.Windows.Forms.Button() +Me.BTNScriptOpen = New System.Windows.Forms.Button() +Me.LBLScriptReq = New System.Windows.Forms.Label() +Me.GroupBox31 = New System.Windows.Forms.GroupBox() +Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() +Me.TCScripts = New System.Windows.Forms.TabControl() +Me.TabPage21 = New System.Windows.Forms.TabPage() +Me.CLBStartList = New System.Windows.Forms.CheckedListBox() +Me.TabPage17 = New System.Windows.Forms.TabPage() +Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() +Me.TabPage18 = New System.Windows.Forms.TabPage() +Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() +Me.TabPage19 = New System.Windows.Forms.TabPage() +Me.CLBEndList = New System.Windows.Forms.CheckedListBox() +Me.GroupBox42 = New System.Windows.Forms.GroupBox() +Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() +Me.PictureBox1 = New System.Windows.Forms.PictureBox() +Me.GroupBox43 = New System.Windows.Forms.GroupBox() +Me.Label98 = New System.Windows.Forms.Label() +Me.Label104 = New System.Windows.Forms.Label() +Me.TabPage7 = New System.Windows.Forms.TabPage() +Me.TabControl4 = New System.Windows.Forms.TabControl() +Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() +Me.CBURLPreview = New System.Windows.Forms.CheckBox() +Me.GroupBox66 = New System.Windows.Forms.GroupBox() +Me.PBURLPreview = New System.Windows.Forms.PictureBox() +Me.BTNURLFilesAll = New System.Windows.Forms.Button() +Me.BTNURLFilesNone = New System.Windows.Forms.Button() +Me.URLFileList = New System.Windows.Forms.CheckedListBox() +Me.TpImagesGenre = New System.Windows.Forms.TabPage() +Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() +Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() +Me.BtnImageUrlButt = New System.Windows.Forms.Button() +Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() +Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() +Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() +Me.BtnImageUrlHentai = New System.Windows.Forms.Button() +Me.BtnImageUrlGay = New System.Windows.Forms.Button() +Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() +Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() +Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() +Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() +Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() +Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() +Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() +Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() +Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() +Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() +Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() +Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() +Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() +Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() +Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() +Me.BTNIHardcore = New System.Windows.Forms.Button() +Me.TbxIHardcore = New System.Windows.Forms.TextBox() +Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() +Me.CBIHardcore = New System.Windows.Forms.CheckBox() +Me.CBISoftcore = New System.Windows.Forms.CheckBox() +Me.TbxISoftcore = New System.Windows.Forms.TextBox() +Me.CBButtSubDir = New System.Windows.Forms.CheckBox() +Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() +Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() +Me.CBILezdomSD = New System.Windows.Forms.CheckBox() +Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() +Me.CBILesbianSD = New System.Windows.Forms.CheckBox() +Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() +Me.CBILesbian = New System.Windows.Forms.CheckBox() +Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjob = New System.Windows.Forms.CheckBox() +Me.CBIGaySD = New System.Windows.Forms.CheckBox() +Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() +Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() +Me.TbxIButts = New System.Windows.Forms.TextBox() +Me.CBIFemdom = New System.Windows.Forms.CheckBox() +Me.TbxILesbian = New System.Windows.Forms.TextBox() +Me.BTNISoftcore = New System.Windows.Forms.Button() +Me.CBILezdom = New System.Windows.Forms.CheckBox() +Me.TbxIBoobs = New System.Windows.Forms.TextBox() +Me.CBIHentai = New System.Windows.Forms.CheckBox() +Me.TbxIBlowjob = New System.Windows.Forms.TextBox() +Me.CBIGay = New System.Windows.Forms.CheckBox() +Me.TbxIGeneral = New System.Windows.Forms.TextBox() +Me.CBIMaledom = New System.Windows.Forms.CheckBox() +Me.TbxIFemdom = New System.Windows.Forms.TextBox() +Me.BTNILesbian = New System.Windows.Forms.Button() +Me.TbxICaptions = New System.Windows.Forms.TextBox() +Me.CBICaptions = New System.Windows.Forms.CheckBox() +Me.TbxILezdom = New System.Windows.Forms.TextBox() +Me.TbxIMaledom = New System.Windows.Forms.TextBox() +Me.BTNButtPath = New System.Windows.Forms.Button() +Me.TbxIHentai = New System.Windows.Forms.TextBox() +Me.CBIGeneral = New System.Windows.Forms.CheckBox() +Me.TbxIGay = New System.Windows.Forms.TextBox() +Me.CBIBoobs = New System.Windows.Forms.CheckBox() +Me.CBIButts = New System.Windows.Forms.CheckBox() +Me.BTNIBlowjob = New System.Windows.Forms.Button() +Me.BTNIFemdom = New System.Windows.Forms.Button() +Me.BTNBoobPath = New System.Windows.Forms.Button() +Me.BTNILezdom = New System.Windows.Forms.Button() +Me.BTNIHentai = New System.Windows.Forms.Button() +Me.BTNIGay = New System.Windows.Forms.Button() +Me.BTNIMaledom = New System.Windows.Forms.Button() +Me.BTNICaptions = New System.Windows.Forms.Button() +Me.BTNIGeneral = New System.Windows.Forms.Button() +Me.TabPage33 = New System.Windows.Forms.TabPage() +Me.TabControl5 = New System.Windows.Forms.TabControl() +Me.TabPage34 = New System.Windows.Forms.TabPage() +Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() +Me.CBTagAllFours = New System.Windows.Forms.CheckBox() +Me.CBTagGlaring = New System.Windows.Forms.CheckBox() +Me.CBTagSmiling = New System.Windows.Forms.CheckBox() +Me.TBTagDir = New System.Windows.Forms.TextBox() +Me.CBTagPiercing = New System.Windows.Forms.CheckBox() +Me.CBTagLegs = New System.Windows.Forms.CheckBox() +Me.TBTagFurniture = New System.Windows.Forms.TextBox() +Me.CBTagFurniture = New System.Windows.Forms.CheckBox() +Me.TBTagSexToy = New System.Windows.Forms.TextBox() +Me.CBTagSexToy = New System.Windows.Forms.CheckBox() +Me.TBTagTattoo = New System.Windows.Forms.TextBox() +Me.CBTagTattoo = New System.Windows.Forms.CheckBox() +Me.TBTagUnderwear = New System.Windows.Forms.TextBox() +Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() +Me.TBTagGarment = New System.Windows.Forms.TextBox() +Me.CBTagGarment = New System.Windows.Forms.CheckBox() +Me.Label72 = New System.Windows.Forms.Label() +Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() +Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() +Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() +Me.CBTagNaked = New System.Windows.Forms.RadioButton() +Me.CBTagSideView = New System.Windows.Forms.CheckBox() +Me.BTNTagPrevious = New System.Windows.Forms.Button() +Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() +Me.BTNTagNext = New System.Windows.Forms.Button() +Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() +Me.LBLTagCount = New System.Windows.Forms.Label() +Me.CBTagSucking = New System.Windows.Forms.CheckBox() +Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() +Me.CBTagFeet = New System.Windows.Forms.CheckBox() +Me.CBTagBoobs = New System.Windows.Forms.CheckBox() +Me.CBTagAss = New System.Windows.Forms.CheckBox() +Me.CBTagPussy = New System.Windows.Forms.CheckBox() +Me.BTNTagSave = New System.Windows.Forms.Button() +Me.BTNTagDir = New System.Windows.Forms.Button() +Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() +Me.CBTagFace = New System.Windows.Forms.CheckBox() +Me.TabPage35 = New System.Windows.Forms.TabPage() +Me.GroupBox55 = New System.Windows.Forms.GroupBox() +Me.CBTagNurse = New System.Windows.Forms.CheckBox() +Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() +Me.CBTagMaid = New System.Windows.Forms.CheckBox() +Me.CBTagTeacher = New System.Windows.Forms.CheckBox() +Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() +Me.GroupBox53 = New System.Windows.Forms.GroupBox() +Me.CBTagTrap = New System.Windows.Forms.CheckBox() +Me.CBTagTentacles = New System.Windows.Forms.CheckBox() +Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() +Me.CBTagBukkake = New System.Windows.Forms.CheckBox() +Me.CBTagGanguro = New System.Windows.Forms.CheckBox() +Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() +Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() +Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() +Me.CBTagAhegao = New System.Windows.Forms.CheckBox() +Me.CBTagShibari = New System.Windows.Forms.CheckBox() +Me.GroupBox49 = New System.Windows.Forms.GroupBox() +Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() +Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() +Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() +Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() +Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() +Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() +Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() +Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() +Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() +Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() +Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() +Me.GroupBox46 = New System.Windows.Forms.GroupBox() +Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() +Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() +Me.CBTagFemdom = New System.Windows.Forms.CheckBox() +Me.CBTag2M = New System.Windows.Forms.CheckBox() +Me.CBTagFutadom = New System.Windows.Forms.CheckBox() +Me.CBTagFemsub = New System.Windows.Forms.CheckBox() +Me.CBTag2Futa = New System.Windows.Forms.CheckBox() +Me.CBTagMaledom = New System.Windows.Forms.CheckBox() +Me.CBTag3M = New System.Windows.Forms.CheckBox() +Me.CBTagFutasub = New System.Windows.Forms.CheckBox() +Me.CBTag3Futa = New System.Windows.Forms.CheckBox() +Me.CBTagMalesub = New System.Windows.Forms.CheckBox() +Me.CBTag2F = New System.Windows.Forms.CheckBox() +Me.CBTag1Futa = New System.Windows.Forms.CheckBox() +Me.CBTag1M = New System.Windows.Forms.CheckBox() +Me.CBTag1F = New System.Windows.Forms.CheckBox() +Me.CBTag3F = New System.Windows.Forms.CheckBox() +Me.GroupBox54 = New System.Windows.Forms.GroupBox() +Me.CBTagTattoos = New System.Windows.Forms.CheckBox() +Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() +Me.CBTagDomme = New System.Windows.Forms.CheckBox() +Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() +Me.CBTagWatersports = New System.Windows.Forms.CheckBox() +Me.CBTagStockings = New System.Windows.Forms.CheckBox() +Me.CBTagCumshot = New System.Windows.Forms.CheckBox() +Me.CBTagCumEating = New System.Windows.Forms.CheckBox() +Me.CBTagVibrator = New System.Windows.Forms.CheckBox() +Me.CBTagDildo = New System.Windows.Forms.CheckBox() +Me.CBTagKissing = New System.Windows.Forms.CheckBox() +Me.GroupBox51 = New System.Windows.Forms.GroupBox() +Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() +Me.CBTagGag = New System.Windows.Forms.CheckBox() +Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() +Me.CBTagWhipping = New System.Windows.Forms.CheckBox() +Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() +Me.CBTagElectro = New System.Windows.Forms.CheckBox() +Me.CBTagHotWax = New System.Windows.Forms.CheckBox() +Me.CBTagClamps = New System.Windows.Forms.CheckBox() +Me.CBTagStrapon = New System.Windows.Forms.CheckBox() +Me.CBTagSpanking = New System.Windows.Forms.CheckBox() +Me.CBTagNeedles = New System.Windows.Forms.CheckBox() +Me.GroupBox50 = New System.Windows.Forms.GroupBox() +Me.CBTagRimming = New System.Windows.Forms.CheckBox() +Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() +Me.CBTagMissionary = New System.Windows.Forms.CheckBox() +Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() +Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() +Me.CBTagFingering = New System.Windows.Forms.CheckBox() +Me.CBTagGangbang = New System.Windows.Forms.CheckBox() +Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() +Me.CBTagDP = New System.Windows.Forms.CheckBox() +Me.CBTagHandjob = New System.Windows.Forms.CheckBox() +Me.CBTagStanding = New System.Windows.Forms.CheckBox() +Me.CBTagFootjob = New System.Windows.Forms.CheckBox() +Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() +Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() +Me.CBTagTitjob = New System.Windows.Forms.CheckBox() +Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() +Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() +Me.GroupBox48 = New System.Windows.Forms.GroupBox() +Me.CBTagArtwork = New System.Windows.Forms.CheckBox() +Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() +Me.CBTagPOV = New System.Windows.Forms.CheckBox() +Me.CBTagHardcore = New System.Windows.Forms.CheckBox() +Me.CBTagTD = New System.Windows.Forms.CheckBox() +Me.CBTagGay = New System.Windows.Forms.CheckBox() +Me.CBTagBath = New System.Windows.Forms.CheckBox() +Me.CBTagBisexual = New System.Windows.Forms.CheckBox() +Me.CBTagCFNM = New System.Windows.Forms.CheckBox() +Me.CBTagLesbian = New System.Windows.Forms.CheckBox() +Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() +Me.CBTagSM = New System.Windows.Forms.CheckBox() +Me.CBTagBondage = New System.Windows.Forms.CheckBox() +Me.CBTagSoloM = New System.Windows.Forms.CheckBox() +Me.CBTagSoloF = New System.Windows.Forms.CheckBox() +Me.CBTagChastity = New System.Windows.Forms.CheckBox() +Me.CBTagShower = New System.Windows.Forms.CheckBox() +Me.TBLocalTagDir = New System.Windows.Forms.TextBox() +Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() +Me.BTNLocalTagNext = New System.Windows.Forms.Button() +Me.LBLLocalTagCount = New System.Windows.Forms.Label() +Me.BTNLocalTagSave = New System.Windows.Forms.Button() +Me.BTNLocalTagDir = New System.Windows.Forms.Button() +Me.TabPage11 = New System.Windows.Forms.TabPage() +Me.Panel7 = New System.Windows.Forms.Panel() +Me.BTNWIContinue = New System.Windows.Forms.Button() +Me.BTNWIAddandContinue = New System.Windows.Forms.Button() +Me.BTNWICancel = New System.Windows.Forms.Button() +Me.CBWIReview = New System.Windows.Forms.CheckBox() +Me.BTNWIBrowse = New System.Windows.Forms.Button() +Me.TBWIDirectory = New System.Windows.Forms.TextBox() +Me.BTNWIDisliked = New System.Windows.Forms.Button() +Me.BTNWILiked = New System.Windows.Forms.Button() +Me.BTNWIRemove = New System.Windows.Forms.Button() +Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() +Me.PictureBox5 = New System.Windows.Forms.PictureBox() +Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() +Me.BTNWICreateURL = New System.Windows.Forms.Button() +Me.LBLWebImageCount = New System.Windows.Forms.Label() +Me.BTNWISave = New System.Windows.Forms.Button() +Me.BTNWIOpenURL = New System.Windows.Forms.Button() +Me.BTNWIPrevious = New System.Windows.Forms.Button() +Me.BTNWINext = New System.Windows.Forms.Button() +Me.WebPictureBox = New System.Windows.Forms.PictureBox() +Me.Label71 = New System.Windows.Forms.Label() +Me.TpVideoSettings = New System.Windows.Forms.TabPage() +Me.PnlVideoSettings = New System.Windows.Forms.Panel() +Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() +Me.BTNRefreshVideos = New System.Windows.Forms.Button() +Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() +Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() +Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() +Me.BTNVideoGeneralD = New System.Windows.Forms.Button() +Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() +Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() +Me.LblVideoCHTotalD = New System.Windows.Forms.Label() +Me.LblVideoJOITotalD = New System.Windows.Forms.Label() +Me.TxbVideoCHD = New System.Windows.Forms.TextBox() +Me.TxbVideoJOID = New System.Windows.Forms.TextBox() +Me.BTNVideoCHD = New System.Windows.Forms.Button() +Me.BTNVideoJOID = New System.Windows.Forms.Button() +Me.CBVideoJOID = New System.Windows.Forms.CheckBox() +Me.CBVideoCHD = New System.Windows.Forms.CheckBox() +Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() +Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() +Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() +Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() +Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() +Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() +Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() +Me.BTNVideoFemSubD = New System.Windows.Forms.Button() +Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() +Me.BTNVideoFemDomD = New System.Windows.Forms.Button() +Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() +Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() +Me.BTNVideoLesbianD = New System.Windows.Forms.Button() +Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() +Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() +Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() +Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() +Me.VideoDescriptionLabel = New System.Windows.Forms.Label() +Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() +Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() +Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() +Me.BTNVideoGeneral = New System.Windows.Forms.Button() +Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() +Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() +Me.LblVideoCHTotal = New System.Windows.Forms.Label() +Me.LblVideoJOITotal = New System.Windows.Forms.Label() +Me.TxbVideoCH = New System.Windows.Forms.TextBox() +Me.TxbVideoJOI = New System.Windows.Forms.TextBox() +Me.BTNVideoCH = New System.Windows.Forms.Button() +Me.BTNVideoJOI = New System.Windows.Forms.Button() +Me.CBVideoJOI = New System.Windows.Forms.CheckBox() +Me.CBVideoCH = New System.Windows.Forms.CheckBox() +Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() +Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() +Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() +Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() +Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() +Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() +Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() +Me.BTNVideoFemSub = New System.Windows.Forms.Button() +Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() +Me.BTNVideoFemDom = New System.Windows.Forms.Button() +Me.BTNVideoBlowjob = New System.Windows.Forms.Button() +Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() +Me.BTNVideoLesbian = New System.Windows.Forms.Button() +Me.BTNVideoSoftCore = New System.Windows.Forms.Button() +Me.BTNVideoHardCore = New System.Windows.Forms.Button() +Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() +Me.LblVideoHeader = New System.Windows.Forms.Label() +Me.TabPage20 = New System.Windows.Forms.TabPage() +Me.TabControl1 = New System.Windows.Forms.TabControl() +Me.TabPage22 = New System.Windows.Forms.TabPage() +Me.PNLGlitter = New System.Windows.Forms.Panel() +Me.GroupBox14 = New System.Windows.Forms.GroupBox() +Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() +Me.GroupBox4 = New System.Windows.Forms.GroupBox() +Me.LBLCurrentDomme = New System.Windows.Forms.Label() +Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() +Me.BTNDomChangeRandom = New System.Windows.Forms.Button() +Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() +Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() +Me.BTNDomChangeDomme = New System.Windows.Forms.Button() +Me.Button15 = New System.Windows.Forms.Button() +Me.Button16 = New System.Windows.Forms.Button() +Me.Label121 = New System.Windows.Forms.Label() +Me.Label122 = New System.Windows.Forms.Label() +Me.GBGlitterD = New System.Windows.Forms.GroupBox() +Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() +Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() +Me.BTNGlitterD = New System.Windows.Forms.Button() +Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() +Me.LBLGlitterSlider = New System.Windows.Forms.Label() +Me.CBCustom2 = New System.Windows.Forms.CheckBox() +Me.GlitterSlider = New System.Windows.Forms.TrackBar() +Me.CBCustom1 = New System.Windows.Forms.CheckBox() +Me.CBDaily = New System.Windows.Forms.CheckBox() +Me.CBTrivia = New System.Windows.Forms.CheckBox() +Me.TBGlitterShortName = New System.Windows.Forms.TextBox() +Me.CBEgotist = New System.Windows.Forms.CheckBox() +Me.CBTease = New System.Windows.Forms.CheckBox() +Me.GlitterAV = New System.Windows.Forms.PictureBox() +Me.GBGlitter1 = New System.Windows.Forms.GroupBox() +Me.Label167 = New System.Windows.Forms.Label() +Me.G1Honorific = New System.Windows.Forms.TextBox() +Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() +Me.BtnContact1ImageDir = New System.Windows.Forms.Button() +Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() +Me.BTNGlitter1 = New System.Windows.Forms.Button() +Me.LBLGlitterNC1 = New System.Windows.Forms.Label() +Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() +Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() +Me.CBGlitter1 = New System.Windows.Forms.CheckBox() +Me.TBGlitter1 = New System.Windows.Forms.TextBox() +Me.GlitterAV1 = New System.Windows.Forms.PictureBox() +Me.GBGlitter3 = New System.Windows.Forms.GroupBox() +Me.Label168 = New System.Windows.Forms.Label() +Me.G3Honorific = New System.Windows.Forms.TextBox() +Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() +Me.BtnContact3ImageDir = New System.Windows.Forms.Button() +Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() +Me.BTNGlitter3 = New System.Windows.Forms.Button() +Me.LBLGlitterNC3 = New System.Windows.Forms.Label() +Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() +Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() +Me.CBGlitter3 = New System.Windows.Forms.CheckBox() +Me.TBGlitter3 = New System.Windows.Forms.TextBox() +Me.GlitterAV3 = New System.Windows.Forms.PictureBox() +Me.GBGlitter2 = New System.Windows.Forms.GroupBox() +Me.G2Honorific = New System.Windows.Forms.TextBox() +Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() +Me.BtnContact2ImageDir = New System.Windows.Forms.Button() +Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() +Me.BTNGlitter2 = New System.Windows.Forms.Button() +Me.LBLGlitterNC2 = New System.Windows.Forms.Label() +Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() +Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() +Me.CBGlitter2 = New System.Windows.Forms.CheckBox() +Me.TBGlitter2 = New System.Windows.Forms.TextBox() +Me.GlitterAV2 = New System.Windows.Forms.PictureBox() +Me.TpGames = New System.Windows.Forms.TabPage() +Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() +Me.LblCardsSetupNote = New System.Windows.Forms.Label() +Me.CBGameSounds = New System.Windows.Forms.CheckBox() +Me.GbxCardsGold = New System.Windows.Forms.GroupBox() +Me.GN6 = New System.Windows.Forms.TextBox() +Me.GP6 = New System.Windows.Forms.PictureBox() +Me.GN2 = New System.Windows.Forms.TextBox() +Me.GP2 = New System.Windows.Forms.PictureBox() +Me.GP5 = New System.Windows.Forms.PictureBox() +Me.GN1 = New System.Windows.Forms.TextBox() +Me.GP1 = New System.Windows.Forms.PictureBox() +Me.GN5 = New System.Windows.Forms.TextBox() +Me.GN3 = New System.Windows.Forms.TextBox() +Me.GP3 = New System.Windows.Forms.PictureBox() +Me.GP4 = New System.Windows.Forms.PictureBox() +Me.GN4 = New System.Windows.Forms.TextBox() +Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() +Me.CardBack = New System.Windows.Forms.PictureBox() +Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() +Me.BN6 = New System.Windows.Forms.TextBox() +Me.BN3 = New System.Windows.Forms.TextBox() +Me.BP3 = New System.Windows.Forms.PictureBox() +Me.BP6 = New System.Windows.Forms.PictureBox() +Me.BN2 = New System.Windows.Forms.TextBox() +Me.BN5 = New System.Windows.Forms.TextBox() +Me.BP5 = New System.Windows.Forms.PictureBox() +Me.BP2 = New System.Windows.Forms.PictureBox() +Me.BN1 = New System.Windows.Forms.TextBox() +Me.BN4 = New System.Windows.Forms.TextBox() +Me.BP4 = New System.Windows.Forms.PictureBox() +Me.BP1 = New System.Windows.Forms.PictureBox() +Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() +Me.SN6 = New System.Windows.Forms.TextBox() +Me.SP6 = New System.Windows.Forms.PictureBox() +Me.SN2 = New System.Windows.Forms.TextBox() +Me.SP2 = New System.Windows.Forms.PictureBox() +Me.SN1 = New System.Windows.Forms.TextBox() +Me.SP5 = New System.Windows.Forms.PictureBox() +Me.SP1 = New System.Windows.Forms.PictureBox() +Me.SN5 = New System.Windows.Forms.TextBox() +Me.SN3 = New System.Windows.Forms.TextBox() +Me.SN4 = New System.Windows.Forms.TextBox() +Me.SP3 = New System.Windows.Forms.PictureBox() +Me.SP4 = New System.Windows.Forms.PictureBox() +Me.TabPage6 = New System.Windows.Forms.TabPage() +Me.Panel10 = New System.Windows.Forms.Panel() +Me.TBWishlistComment = New System.Windows.Forms.TextBox() +Me.Label32 = New System.Windows.Forms.Label() +Me.TBWishlistItem = New System.Windows.Forms.TextBox() +Me.radioGold = New System.Windows.Forms.RadioButton() +Me.Label42 = New System.Windows.Forms.Label() +Me.radioSilver = New System.Windows.Forms.RadioButton() +Me.TBWishlistURL = New System.Windows.Forms.TextBox() +Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() +Me.Label48 = New System.Windows.Forms.Label() +Me.Label73 = New System.Windows.Forms.Label() +Me.Label107 = New System.Windows.Forms.Label() +Me.BTNWishlistCreate = New System.Windows.Forms.Button() +Me.Label18 = New System.Windows.Forms.Label() +Me.PNLWishList = New System.Windows.Forms.Panel() +Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() +Me.LBLWishListText = New System.Windows.Forms.Label() +Me.LBLWishlistCost = New System.Windows.Forms.Label() +Me.WishlistCostGold = New System.Windows.Forms.PictureBox() +Me.LBLWishListName = New System.Windows.Forms.Label() +Me.WishlistPreview = New System.Windows.Forms.PictureBox() +Me.TabPage26 = New System.Windows.Forms.TabPage() +Me.Panel12 = New System.Windows.Forms.Panel() +Me.GroupBox9 = New System.Windows.Forms.GroupBox() +Me.Button32 = New System.Windows.Forms.Button() +Me.Button31 = New System.Windows.Forms.Button() +Me.PictureBox10 = New System.Windows.Forms.PictureBox() +Me.GroupBox5 = New System.Windows.Forms.GroupBox() +Me.CBTransparentTime = New System.Windows.Forms.CheckBox() +Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() +Me.Label137 = New System.Windows.Forms.Label() +Me.Label138 = New System.Windows.Forms.Label() +Me.LBLDateBackColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor = New System.Windows.Forms.Label() +Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor2 = New System.Windows.Forms.Label() +Me.LBLChatTextColor = New System.Windows.Forms.Label() +Me.LBLBackColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor = New System.Windows.Forms.Label() +Me.LBLChatWindowColor = New System.Windows.Forms.Label() +Me.LBLBackColor = New System.Windows.Forms.Label() +Me.LBLChatTextColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor2 = New System.Windows.Forms.Label() +Me.GroupBox11 = New System.Windows.Forms.GroupBox() +Me.Label144 = New System.Windows.Forms.Label() +Me.GroupBox1 = New System.Windows.Forms.GroupBox() +Me.CBFlipBack = New System.Windows.Forms.CheckBox() +Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() +Me.Button17 = New System.Windows.Forms.Button() +Me.CBStretchBack = New System.Windows.Forms.CheckBox() +Me.Button18 = New System.Windows.Forms.Button() +Me.Label164 = New System.Windows.Forms.Label() +Me.TabPage4 = New System.Windows.Forms.TabPage() +Me.Panel6 = New System.Windows.Forms.Panel() +Me.GroupBox69 = New System.Windows.Forms.GroupBox() +Me.TypesSpeedVal = New System.Windows.Forms.Label() +Me.TypeSpeedLabel = New System.Windows.Forms.Label() +Me.TimedWriting = New System.Windows.Forms.CheckBox() +Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() +Me.GroupBox68 = New System.Windows.Forms.GroupBox() +Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() +Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() +Me.Label165 = New System.Windows.Forms.Label() +Me.Label166 = New System.Windows.Forms.Label() +Me.GroupBox67 = New System.Windows.Forms.GroupBox() +Me.Label161 = New System.Windows.Forms.Label() +Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() +Me.Label162 = New System.Windows.Forms.Label() +Me.Label163 = New System.Windows.Forms.Label() +Me.Label158 = New System.Windows.Forms.Label() +Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() +Me.Label159 = New System.Windows.Forms.Label() +Me.Label160 = New System.Windows.Forms.Label() +Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() +Me.Label119 = New System.Windows.Forms.Label() +Me.Label157 = New System.Windows.Forms.Label() +Me.Label151 = New System.Windows.Forms.Label() +Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() +Me.Label154 = New System.Windows.Forms.Label() +Me.Label155 = New System.Windows.Forms.Label() +Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() +Me.Label146 = New System.Windows.Forms.Label() +Me.Label149 = New System.Windows.Forms.Label() +Me.GroupBox10 = New System.Windows.Forms.GroupBox() +Me.Label112 = New System.Windows.Forms.Label() +Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() +Me.Label6 = New System.Windows.Forms.Label() +Me.GroupBox57 = New System.Windows.Forms.GroupBox() +Me.Label139 = New System.Windows.Forms.Label() +Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() +Me.LBLVtf = New System.Windows.Forms.Label() +Me.LBLStf = New System.Windows.Forms.Label() +Me.SliderSTF = New System.Windows.Forms.TrackBar() +Me.TauntSlider = New System.Windows.Forms.TrackBar() +Me.Label106 = New System.Windows.Forms.Label() +Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() +Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() +Me.Label103 = New System.Windows.Forms.Label() +Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() +Me.Label105 = New System.Windows.Forms.Label() +Me.Label101 = New System.Windows.Forms.Label() +Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() +Me.Label102 = New System.Windows.Forms.Label() +Me.Label97 = New System.Windows.Forms.Label() +Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() +Me.Label99 = New System.Windows.Forms.Label() +Me.Label96 = New System.Windows.Forms.Label() +Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() +Me.Label95 = New System.Windows.Forms.Label() +Me.Label49 = New System.Windows.Forms.Label() +Me.Label141 = New System.Windows.Forms.Label() +Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() +Me.Label90 = New System.Windows.Forms.Label() +Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() +Me.Label91 = New System.Windows.Forms.Label() +Me.Label92 = New System.Windows.Forms.Label() +Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() +Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() +Me.CBRangeRuin = New System.Windows.Forms.CheckBox() +Me.GroupBox17 = New System.Windows.Forms.GroupBox() +Me.GroupBox19 = New System.Windows.Forms.GroupBox() +Me.Label110 = New System.Windows.Forms.Label() +Me.Label111 = New System.Windows.Forms.Label() +Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() +Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() +Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() +Me.Label26 = New System.Windows.Forms.Label() +Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() +Me.Label28 = New System.Windows.Forms.Label() +Me.Label27 = New System.Windows.Forms.Label() +Me.Label29 = New System.Windows.Forms.Label() +Me.GroupBox18 = New System.Windows.Forms.GroupBox() +Me.Label108 = New System.Windows.Forms.Label() +Me.Label109 = New System.Windows.Forms.Label() +Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() +Me.CBCensorConstant = New System.Windows.Forms.CheckBox() +Me.Label25 = New System.Windows.Forms.Label() +Me.Label20 = New System.Windows.Forms.Label() +Me.Label19 = New System.Windows.Forms.Label() +Me.Label24 = New System.Windows.Forms.Label() +Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() +Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() +Me.Label89 = New System.Windows.Forms.Label() +Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() +Me.Label86 = New System.Windows.Forms.Label() +Me.Label82 = New System.Windows.Forms.Label() +Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() +Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() +Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() +Me.PictureBox8 = New System.Windows.Forms.PictureBox() +Me.Label38 = New System.Windows.Forms.Label() +Me.TabPage13 = New System.Windows.Forms.TabPage() +Me.TabControl2 = New System.Windows.Forms.TabControl() +Me.TabPage27 = New System.Windows.Forms.TabPage() +Me.TBPlaylistSave = New System.Windows.Forms.TextBox() +Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() +Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() +Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() +Me.BTNPlaylistEnd = New System.Windows.Forms.Button() +Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() +Me.BTNPlaylistSave = New System.Windows.Forms.Button() +Me.Button7 = New System.Windows.Forms.Button() +Me.WBPlaylist = New System.Windows.Forms.WebBrowser() +Me.Label80 = New System.Windows.Forms.Label() +Me.LBLPlaylIstLink = New System.Windows.Forms.Label() +Me.LBLPlaylistModule = New System.Windows.Forms.Label() +Me.LBLPLaylistStart = New System.Windows.Forms.Label() +Me.LBPlaylist = New System.Windows.Forms.ListBox() +Me.TabPage14 = New System.Windows.Forms.TabPage() +Me.LBLKeywordPreview = New System.Windows.Forms.Label() +Me.Label88 = New System.Windows.Forms.Label() +Me.TBKeywordPreview = New System.Windows.Forms.TextBox() +Me.Button37 = New System.Windows.Forms.Button() +Me.Button50 = New System.Windows.Forms.Button() +Me.Button22 = New System.Windows.Forms.Button() +Me.TBKeyWords = New System.Windows.Forms.TextBox() +Me.LBKeyWords = New System.Windows.Forms.ListBox() +Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() +Me.TabPage24 = New System.Windows.Forms.TabPage() +Me.Button9 = New System.Windows.Forms.Button() +Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() +Me.Button4 = New System.Windows.Forms.Button() +Me.Button5 = New System.Windows.Forms.Button() +Me.TBResponses = New System.Windows.Forms.TextBox() +Me.LBResponses = New System.Windows.Forms.ListBox() +Me.RTBResponses = New System.Windows.Forms.RichTextBox() +Me.TabPage8 = New System.Windows.Forms.TabPage() +Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() +Me.GroupBox29 = New System.Windows.Forms.GroupBox() +Me.Label51 = New System.Windows.Forms.Label() +Me.BTNVideoModClear = New System.Windows.Forms.Button() +Me.GroupBox28 = New System.Windows.Forms.GroupBox() +Me.CBVTType = New System.Windows.Forms.ComboBox() +Me.BTNVideoModLoad = New System.Windows.Forms.Button() +Me.GroupBox30 = New System.Windows.Forms.GroupBox() +Me.LBVidScript = New System.Windows.Forms.ListBox() +Me.BTNVideoModSave = New System.Windows.Forms.Button() +Me.TabPage15 = New System.Windows.Forms.TabPage() +Me.Label62 = New System.Windows.Forms.Label() +Me.Label61 = New System.Windows.Forms.Label() +Me.Label57 = New System.Windows.Forms.Label() +Me.Label58 = New System.Windows.Forms.Label() +Me.Label60 = New System.Windows.Forms.Label() +Me.TBGlitModFileName = New System.Windows.Forms.TextBox() +Me.GroupBox34 = New System.Windows.Forms.GroupBox() +Me.Label52 = New System.Windows.Forms.Label() +Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() +Me.Button26 = New System.Windows.Forms.Button() +Me.Label56 = New System.Windows.Forms.Label() +Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() +Me.LBGlitModScripts = New System.Windows.Forms.ListBox() +Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() +Me.LBLGlitModDomType = New System.Windows.Forms.Label() +Me.Button29 = New System.Windows.Forms.Button() +Me.CBGlitModType = New System.Windows.Forms.ComboBox() +Me.Label59 = New System.Windows.Forms.Label() +Me.Label50 = New System.Windows.Forms.Label() +Me.TabPage25 = New System.Windows.Forms.TabPage() +Me.Panel11 = New System.Windows.Forms.Panel() +Me.GroupBox62 = New System.Windows.Forms.GroupBox() +Me.RBGerman = New System.Windows.Forms.RadioButton() +Me.RBEnglish = New System.Windows.Forms.RadioButton() +Me.GroupBox33 = New System.Windows.Forms.GroupBox() +Me.BTNOfflineMode = New System.Windows.Forms.Button() +Me.LBLOfflineMode = New System.Windows.Forms.Label() +Me.Label140 = New System.Windows.Forms.Label() +Me.Button11 = New System.Windows.Forms.Button() +Me.LBLChastityState = New System.Windows.Forms.Label() +Me.Label120 = New System.Windows.Forms.Label() +Me.GroupBox8 = New System.Windows.Forms.GroupBox() +Me.CBOutputErrors = New System.Windows.Forms.CheckBox() +Me.GroupBox27 = New System.Windows.Forms.GroupBox() +Me.Button6 = New System.Windows.Forms.Button() +Me.LBLSesSpace = New System.Windows.Forms.Label() +Me.Button3 = New System.Windows.Forms.Button() +Me.LBLSesFiles = New System.Windows.Forms.Label() +Me.Label125 = New System.Windows.Forms.Label() +Me.Label124 = New System.Windows.Forms.Label() +Me.GroupBox20 = New System.Windows.Forms.GroupBox() +Me.BTNURLFileReplace = New System.Windows.Forms.Button() +Me.Label87 = New System.Windows.Forms.Label() +Me.TBURLFileWith = New System.Windows.Forms.TextBox() +Me.Label118 = New System.Windows.Forms.Label() +Me.Label85 = New System.Windows.Forms.Label() +Me.TBURLFileReplace = New System.Windows.Forms.TextBox() +Me.Label53 = New System.Windows.Forms.Label() +Me.Label8 = New System.Windows.Forms.Label() +Me.Button1 = New System.Windows.Forms.Button() +Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() +Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() +Me.Label117 = New System.Windows.Forms.Label() +Me.Label116 = New System.Windows.Forms.Label() +Me.PBCurrent = New System.Windows.Forms.ProgressBar() +Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() +Me.PBMaintenance = New System.Windows.Forms.ProgressBar() +Me.LBLMaintenance = New System.Windows.Forms.Label() +Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() +Me.GroupBox15 = New System.Windows.Forms.GroupBox() +Me.Label115 = New System.Windows.Forms.Label() +Me.TBWebStop = New System.Windows.Forms.TextBox() +Me.TBWebStart = New System.Windows.Forms.TextBox() +Me.Label114 = New System.Windows.Forms.Label() +Me.WebToy = New System.Windows.Forms.WebBrowser() +Me.PictureBox9 = New System.Windows.Forms.PictureBox() +Me.Label148 = New System.Windows.Forms.Label() +Me.TabPage28 = New System.Windows.Forms.TabPage() +Me.TabControl3 = New System.Windows.Forms.TabControl() +Me.TabPage29 = New System.Windows.Forms.TabPage() +Me.Label143 = New System.Windows.Forms.Label() +Me.LBLDebugScriptTime = New System.Windows.Forms.Label() +Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() +Me.GroupBox26 = New System.Windows.Forms.GroupBox() +Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() +Me.Button19 = New System.Windows.Forms.Button() +Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() +Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() +Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() +Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() +Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() +Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() +Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() +Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() +Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() +Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() +Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() +Me.Label145 = New System.Windows.Forms.Label() +Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() +Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() +Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() +Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() +Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() +Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() +Me.Label142 = New System.Windows.Forms.Label() +Me.Label150 = New System.Windows.Forms.Label() +Me.Label152 = New System.Windows.Forms.Label() +Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() +Me.Label147 = New System.Windows.Forms.Label() +Me.TabPage30 = New System.Windows.Forms.TabPage() +Me.Button33 = New System.Windows.Forms.Button() +Me.Button24 = New System.Windows.Forms.Button() +Me.TabPage5 = New System.Windows.Forms.TabPage() +Me.Panel5 = New System.Windows.Forms.Panel() +Me.Label130 = New System.Windows.Forms.Label() +Me.Label123 = New System.Windows.Forms.Label() +Me.Label69 = New System.Windows.Forms.Label() +Me.Label113 = New System.Windows.Forms.Label() +Me.Label40 = New System.Windows.Forms.Label() +Me.Label35 = New System.Windows.Forms.Label() +Me.Label33 = New System.Windows.Forms.Label() +Me.Label17 = New System.Windows.Forms.Label() +Me.Label3 = New System.Windows.Forms.Label() +Me.PictureBox3 = New System.Windows.Forms.PictureBox() +Me.Label41 = New System.Windows.Forms.Label() +Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() +Me.GroupBox47 = New System.Windows.Forms.GroupBox() +Me.GroupBox41 = New System.Windows.Forms.GroupBox() +Me.Button34 = New System.Windows.Forms.Button() +Me.GroupBox40 = New System.Windows.Forms.GroupBox() +Me.GroupBox44 = New System.Windows.Forms.GroupBox() +Me.Label100 = New System.Windows.Forms.Label() +Me.GroupBox6 = New System.Windows.Forms.GroupBox() +Me.Label4 = New System.Windows.Forms.Label() +Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() +Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() +Me.Label94 = New System.Windows.Forms.Label() +Me.LBLLastRuined = New System.Windows.Forms.Label() +Me.Label65 = New System.Windows.Forms.Label() +Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() +Me.LBLLastOrgasm = New System.Windows.Forms.Label() +Me.Label14 = New System.Windows.Forms.Label() +Me.Label13 = New System.Windows.Forms.Label() +Me.Label1 = New System.Windows.Forms.Label() +Me.GroupBox21 = New System.Windows.Forms.GroupBox() +Me.Label153 = New System.Windows.Forms.Label() +Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() +Me.Label156 = New System.Windows.Forms.Label() +Me.GroupBox12 = New System.Windows.Forms.GroupBox() +Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() +Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() +Me.GetColor = New System.Windows.Forms.ColorDialog() +Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() +Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() +Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() +Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() +Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() +Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() +Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) +Me.GroupBox65 = New System.Windows.Forms.GroupBox() +Me.Label136 = New System.Windows.Forms.Label() +Me.Label134 = New System.Windows.Forms.Label() +Me.Label132 = New System.Windows.Forms.Label() +Me.TrackBar1 = New System.Windows.Forms.TrackBar() +Me.ComboBox1 = New System.Windows.Forms.ComboBox() +Me.CheckBox1 = New System.Windows.Forms.CheckBox() +Me.Label135 = New System.Windows.Forms.Label() +Me.TrackBar2 = New System.Windows.Forms.TrackBar() +Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() +Me.TextBox2 = New System.Windows.Forms.TextBox() +Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() +Me.Label169 = New System.Windows.Forms.Label() +Me.SettingsPanel.SuspendLayout +Me.SettingsTabs.SuspendLayout +Me.TabPage1.SuspendLayout +Me.PNLGeneralSettings.SuspendLayout +Me.GroupBox3.SuspendLayout +Me.GroupBox2.SuspendLayout +Me.GroupBox64.SuspendLayout +Me.GBDommeImages.SuspendLayout +CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralTextToSpeech.SuspendLayout +CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBSafeword.SuspendLayout +Me.GBGeneralSystem.SuspendLayout +Me.GBGeneralImages.SuspendLayout +CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralSettings.SuspendLayout +Me.GBSubFont.SuspendLayout +CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDommeFont.SuspendLayout +CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage2.SuspendLayout +Me.Panel3.SuspendLayout +Me.GBGiveUp.SuspendLayout +CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomTypingStyle.SuspendLayout +CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox63.SuspendLayout +Me.GBDomRanges.SuspendLayout +CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomStats.SuspendLayout +CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomPersonality.SuspendLayout +Me.GBDomOrgasms.SuspendLayout +CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomPetNames.SuspendLayout +Me.TabPage10.SuspendLayout +Me.Panel2.SuspendLayout +Me.GroupBox22.SuspendLayout +CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox45.SuspendLayout +CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox35.SuspendLayout +Me.GroupBoxSorry.SuspendLayout +Me.GroupBox39.SuspendLayout +Me.GroupBox38.SuspendLayout +Me.GroupBox37.SuspendLayout +Me.GroupBox36.SuspendLayout +Me.GroupBox13.SuspendLayout +Me.GroupBox7.SuspendLayout +CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox32.SuspendLayout +CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage16.SuspendLayout +Me.Panel9.SuspendLayout +Me.GroupBox31.SuspendLayout +Me.TCScripts.SuspendLayout +Me.TabPage21.SuspendLayout +Me.TabPage17.SuspendLayout +Me.TabPage18.SuspendLayout +Me.TabPage19.SuspendLayout +Me.GroupBox42.SuspendLayout +CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox43.SuspendLayout +Me.TabPage7.SuspendLayout +Me.TabControl4.SuspendLayout +Me.TpImagesUrlFiles.SuspendLayout +Me.GroupBox66.SuspendLayout +CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).BeginInit +Me.TpImagesGenre.SuspendLayout +Me.GrbImageUrlFiles.SuspendLayout +Me.TlpImageUrls.SuspendLayout +Me.GbxImagesGenre.SuspendLayout +Me.TableLayoutPanel1.SuspendLayout +Me.TabPage33.SuspendLayout +Me.TabControl5.SuspendLayout +Me.TabPage34.SuspendLayout +CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage35.SuspendLayout +Me.GroupBox55.SuspendLayout +Me.GroupBox53.SuspendLayout +Me.GroupBox49.SuspendLayout +Me.GroupBox46.SuspendLayout +Me.GroupBox54.SuspendLayout +Me.GroupBox51.SuspendLayout +Me.GroupBox50.SuspendLayout +Me.GroupBox48.SuspendLayout +Me.TabPage11.SuspendLayout +Me.Panel7.SuspendLayout +CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.TpVideoSettings.SuspendLayout +Me.PnlVideoSettings.SuspendLayout +CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxVideoGeneralD.SuspendLayout +Me.GbxVideoSpecialD.SuspendLayout +Me.GbxVideoGenreD.SuspendLayout +Me.GbxVideoDescription.SuspendLayout +Me.GbxVideoGeneral.SuspendLayout +Me.GbxVideoSpecial.SuspendLayout +Me.GbxVideoGenre.SuspendLayout +Me.TabPage20.SuspendLayout +Me.TabControl1.SuspendLayout +Me.TabPage22.SuspendLayout +Me.PNLGlitter.SuspendLayout +Me.GroupBox14.SuspendLayout +Me.GroupBox4.SuspendLayout +Me.GBGlitterD.SuspendLayout +Me.GrbGlitterfeed.SuspendLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGlitter1.SuspendLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGlitter3.SuspendLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGlitter2.SuspendLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit +Me.TpGames.SuspendLayout +Me.GbxCardsGold.SuspendLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxCardsBackground.SuspendLayout +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxCardsBronze.SuspendLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit +Me.GbxCardsSilver.SuspendLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage6.SuspendLayout +Me.Panel10.SuspendLayout +CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit +Me.PNLWishList.SuspendLayout +CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage26.SuspendLayout +Me.Panel12.SuspendLayout +Me.GroupBox9.SuspendLayout +CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox5.SuspendLayout +Me.GroupBox11.SuspendLayout +Me.GroupBox1.SuspendLayout +CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage4.SuspendLayout +Me.Panel6.SuspendLayout +Me.GroupBox69.SuspendLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox68.SuspendLayout +CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox67.SuspendLayout +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox10.SuspendLayout +CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox57.SuspendLayout +CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBRangeRuinChance.SuspendLayout +CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox17.SuspendLayout +Me.GroupBox19.SuspendLayout +CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox18.SuspendLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBRangeOrgasmChance.SuspendLayout +CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage13.SuspendLayout +Me.TabControl2.SuspendLayout +Me.TabPage27.SuspendLayout +Me.TabPage14.SuspendLayout +Me.TabPage24.SuspendLayout +Me.TabPage8.SuspendLayout +Me.GroupBox29.SuspendLayout +Me.GroupBox28.SuspendLayout +Me.GroupBox30.SuspendLayout +Me.TabPage15.SuspendLayout +Me.GroupBox34.SuspendLayout +Me.TabPage25.SuspendLayout +Me.Panel11.SuspendLayout +Me.GroupBox62.SuspendLayout +Me.GroupBox33.SuspendLayout +Me.GroupBox8.SuspendLayout +Me.GroupBox27.SuspendLayout +Me.GroupBox20.SuspendLayout +Me.GroupBox15.SuspendLayout +CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage28.SuspendLayout +Me.TabControl3.SuspendLayout +Me.TabPage29.SuspendLayout +Me.GroupBox26.SuspendLayout +Me.TabPage30.SuspendLayout +Me.TabPage5.SuspendLayout +Me.Panel5.SuspendLayout +CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox47.SuspendLayout +Me.GroupBox41.SuspendLayout +Me.GroupBox44.SuspendLayout +Me.GroupBox6.SuspendLayout +Me.GroupBox21.SuspendLayout +Me.GroupBox12.SuspendLayout +Me.GroupBox65.SuspendLayout +CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit +Me.SuspendLayout +' +'SettingsPanel +' +Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray +Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SettingsPanel.Controls.Add(Me.SettingsTabs) +Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) +Me.SettingsPanel.Name = "SettingsPanel" +Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) +Me.SettingsPanel.TabIndex = 94 +' +'SettingsTabs +' +Me.SettingsTabs.Controls.Add(Me.TabPage1) +Me.SettingsTabs.Controls.Add(Me.TabPage2) +Me.SettingsTabs.Controls.Add(Me.TabPage10) +Me.SettingsTabs.Controls.Add(Me.TabPage16) +Me.SettingsTabs.Controls.Add(Me.TabPage7) +Me.SettingsTabs.Controls.Add(Me.TabPage33) +Me.SettingsTabs.Controls.Add(Me.TabPage11) +Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) +Me.SettingsTabs.Controls.Add(Me.TabPage20) +Me.SettingsTabs.Controls.Add(Me.TabPage26) +Me.SettingsTabs.Controls.Add(Me.TabPage4) +Me.SettingsTabs.Controls.Add(Me.TabPage13) +Me.SettingsTabs.Controls.Add(Me.TabPage25) +Me.SettingsTabs.Controls.Add(Me.TabPage28) +Me.SettingsTabs.Controls.Add(Me.TabPage5) +Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) +Me.SettingsTabs.Name = "SettingsTabs" +Me.SettingsTabs.SelectedIndex = 0 +Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) +Me.SettingsTabs.TabIndex = 0 +' +'TabPage1 +' +Me.TabPage1.BackColor = System.Drawing.Color.Silver +Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) +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(720, 448) +Me.TabPage1.TabIndex = 0 +Me.TabPage1.Text = "General" +' +'PNLGeneralSettings +' +Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray +Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PNLGeneralSettings.Controls.Add(Me.GroupBox3) +Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) +Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) +Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) +Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) +Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) +Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) +Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) +Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) +Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) +Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) +Me.PNLGeneralSettings.Name = "PNLGeneralSettings" +Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) +Me.PNLGeneralSettings.TabIndex = 0 +' +'GroupBox3 +' +Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) +Me.GroupBox3.Location = New System.Drawing.Point(7, 365) +Me.GroupBox3.Name = "GroupBox3" +Me.GroupBox3.Size = New System.Drawing.Size(211, 65) +Me.GroupBox3.TabIndex = 184 +Me.GroupBox3.TabStop = false +Me.GroupBox3.Text = "System Files" +' +'BTNValidateSystemFiles +' +Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray +Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black +Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) +Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" +Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) +Me.BTNValidateSystemFiles.TabIndex = 183 +Me.BTNValidateSystemFiles.Text = "Validate All System Files" +Me.BTNValidateSystemFiles.UseVisualStyleBackColor = false +' +'GroupBox2 +' +Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) +Me.GroupBox2.Controls.Add(Me.CBRandomDomme) +Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) +Me.GroupBox2.Location = New System.Drawing.Point(224, 313) +Me.GroupBox2.Name = "GroupBox2" +Me.GroupBox2.Size = New System.Drawing.Size(210, 117) +Me.GroupBox2.TabIndex = 183 +Me.GroupBox2.TabStop = false +Me.GroupBox2.Text = "Random Domme" +' +'Label170 +' +Me.Label170.Location = New System.Drawing.Point(4, 52) +Me.Label170.Name = "Label170" +Me.Label170.Size = New System.Drawing.Size(142, 18) +Me.Label170.TabIndex = 28 +Me.Label170.Text = "Random Domme Honorific:" +Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'RandomHonorific +' +Me.RandomHonorific.BackColor = System.Drawing.Color.White +Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.RandomHonorific.Location = New System.Drawing.Point(149, 51) +Me.RandomHonorific.Name = "RandomHonorific" +Me.RandomHonorific.Size = New System.Drawing.Size(143, 20) +Me.RandomHonorific.TabIndex = 187 +Me.RandomHonorific.Text = "Mistress" +Me.RandomHonorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'TbxRandomImageDir +' +Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "RandomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 50) +Me.TbxRandomImageDir.Name = "TbxRandomImageDir" +Me.TbxRandomImageDir.ReadOnly = true +Me.TbxRandomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxRandomImageDir.TabIndex = 185 +Me.TbxRandomImageDir.Text = "No Path Selected" +' +'CBRandomDomme +' +Me.CBRandomDomme.AutoSize = true +Me.CBRandomDomme.Location = New System.Drawing.Point(10, 83) +Me.CBRandomDomme.Name = "CBRandomDomme" +Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) +Me.CBRandomDomme.TabIndex = 184 +Me.CBRandomDomme.Text = "Always Start With Random Domme" +Me.CBRandomDomme.UseVisualStyleBackColor = true +' +'BtnRandomImageDir +' +Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDir.Location = New System.Drawing.Point(10, 21) +Me.BtnRandomImageDir.Name = "BtnRandomImageDir" +Me.BtnRandomImageDir.Size = New System.Drawing.Size(190, 22) +Me.BtnRandomImageDir.TabIndex = 182 +Me.BtnRandomImageDir.Text = "Set Random Domme Directory" +Me.BtnRandomImageDir.UseVisualStyleBackColor = false +' +'BtnImportSettings +' +Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent +Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.BtnImportSettings.FlatAppearance.BorderSize = 0 +Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black +Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) +Me.BtnImportSettings.Name = "BtnImportSettings" +Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) +Me.BtnImportSettings.TabIndex = 158 +Me.BtnImportSettings.UseVisualStyleBackColor = false +' +'LblImportSettings +' +Me.LblImportSettings.AutoSize = true +Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblImportSettings.ForeColor = System.Drawing.Color.Black +Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) +Me.LblImportSettings.Name = "LblImportSettings" +Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) +Me.LblImportSettings.TabIndex = 159 +Me.LblImportSettings.Text = "import" +Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox64 +' +Me.GroupBox64.BackColor = System.Drawing.Color.LightGray +Me.GroupBox64.Controls.Add(Me.CBMuteMedia) +Me.GroupBox64.ForeColor = System.Drawing.Color.Black +Me.GroupBox64.Location = New System.Drawing.Point(440, 258) +Me.GroupBox64.Name = "GroupBox64" +Me.GroupBox64.Size = New System.Drawing.Size(259, 49) +Me.GroupBox64.TabIndex = 157 +Me.GroupBox64.TabStop = false +Me.GroupBox64.Text = "Media Options" +' +'CBMuteMedia +' +Me.CBMuteMedia.AutoSize = true +Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia +Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black +Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) +Me.CBMuteMedia.Name = "CBMuteMedia" +Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) +Me.CBMuteMedia.TabIndex = 6 +Me.CBMuteMedia.TabStop = false +Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" +Me.CBMuteMedia.UseVisualStyleBackColor = true +' +'GBDommeImages +' +Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray +Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) +Me.GBDommeImages.Controls.Add(Me.teaseRadio) +Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) +Me.GBDommeImages.Controls.Add(Me.offRadio) +Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) +Me.GBDommeImages.Controls.Add(Me.timedRadio) +Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) +Me.GBDommeImages.ForeColor = System.Drawing.Color.Black +Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) +Me.GBDommeImages.Name = "GBDommeImages" +Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) +Me.GBDommeImages.TabIndex = 156 +Me.GBDommeImages.TabStop = false +Me.GBDommeImages.Text = "Slideshow Options" +' +'slideshowNumBox +' +Me.slideshowNumBox.BackColor = System.Drawing.Color.White +Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black +Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) +Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) +Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.slideshowNumBox.Name = "slideshowNumBox" +Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) +Me.slideshowNumBox.TabIndex = 20 +Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) +' +'teaseRadio +' +Me.teaseRadio.AutoSize = true +Me.teaseRadio.Checked = true +Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.teaseRadio.ForeColor = System.Drawing.Color.Black +Me.teaseRadio.Location = New System.Drawing.Point(149, 21) +Me.teaseRadio.Name = "teaseRadio" +Me.teaseRadio.Size = New System.Drawing.Size(55, 17) +Me.teaseRadio.TabIndex = 21 +Me.teaseRadio.TabStop = true +Me.teaseRadio.Text = "Tease" +Me.teaseRadio.UseVisualStyleBackColor = true +' +'CBNewSlideshow +' +Me.CBNewSlideshow.AutoSize = true +Me.CBNewSlideshow.Checked = true +Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black +Me.CBNewSlideshow.Location = New System.Drawing.Point(4, 100) +Me.CBNewSlideshow.Name = "CBNewSlideshow" +Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) +Me.CBNewSlideshow.TabIndex = 18 +Me.CBNewSlideshow.TabStop = false +Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" +Me.CBNewSlideshow.UseVisualStyleBackColor = true +' +'offRadio +' +Me.offRadio.AutoSize = true +Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.offRadio.ForeColor = System.Drawing.Color.Black +Me.offRadio.Location = New System.Drawing.Point(6, 21) +Me.offRadio.Name = "offRadio" +Me.offRadio.Size = New System.Drawing.Size(60, 17) +Me.offRadio.TabIndex = 18 +Me.offRadio.Text = "Manual" +Me.offRadio.UseVisualStyleBackColor = true +' +'BTNDomImageDir +' +Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black +Me.BTNDomImageDir.Location = New System.Drawing.Point(10, 45) +Me.BTNDomImageDir.Name = "BTNDomImageDir" +Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) +Me.BTNDomImageDir.TabIndex = 17 +Me.BTNDomImageDir.Text = "Set Domme Images Directory" +Me.BTNDomImageDir.UseVisualStyleBackColor = false +' +'timedRadio +' +Me.timedRadio.AutoSize = true +Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.timedRadio.ForeColor = System.Drawing.Color.Black +Me.timedRadio.Location = New System.Drawing.Point(72, 23) +Me.timedRadio.Name = "timedRadio" +Me.timedRadio.Size = New System.Drawing.Size(14, 13) +Me.timedRadio.TabIndex = 19 +Me.timedRadio.UseVisualStyleBackColor = true +' +'TbxDomImageDir +' +Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) +Me.TbxDomImageDir.Name = "TbxDomImageDir" +Me.TbxDomImageDir.ReadOnly = true +Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxDomImageDir.TabIndex = 0 +Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir +' +'GBGeneralTextToSpeech +' +Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray +Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) +Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) +Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) +Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) +Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) +Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) +Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) +Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) +Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black +Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) +Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" +Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) +Me.GBGeneralTextToSpeech.TabIndex = 0 +Me.GBGeneralTextToSpeech.TabStop = false +Me.GBGeneralTextToSpeech.Text = "Text to Speech" +' +'LBLVRate +' +Me.LBLVRate.Location = New System.Drawing.Point(202, 52) +Me.LBLVRate.Name = "LBLVRate" +Me.LBLVRate.Size = New System.Drawing.Size(45, 13) +Me.LBLVRate.TabIndex = 158 +Me.LBLVRate.Text = "100" +Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'Label93 +' +Me.Label93.AutoSize = true +Me.Label93.Location = New System.Drawing.Point(141, 52) +Me.Label93.Name = "Label93" +Me.Label93.Size = New System.Drawing.Size(33, 13) +Me.Label93.TabIndex = 157 +Me.Label93.Text = "Rate:" +' +'LBLVVolume +' +Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) +Me.LBLVVolume.Name = "LBLVVolume" +Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) +Me.LBLVVolume.TabIndex = 33 +Me.LBLVVolume.Text = "100" +Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'Label68 +' +Me.Label68.AutoSize = true +Me.Label68.Location = New System.Drawing.Point(14, 52) +Me.Label68.Name = "Label68" +Me.Label68.Size = New System.Drawing.Size(45, 13) +Me.Label68.TabIndex = 32 +Me.Label68.Text = "Volume:" +' +'SliderVRate +' +Me.SliderVRate.Location = New System.Drawing.Point(133, 68) +Me.SliderVRate.Minimum = -10 +Me.SliderVRate.Name = "SliderVRate" +Me.SliderVRate.Size = New System.Drawing.Size(120, 45) +Me.SliderVRate.TabIndex = 31 +' +'SliderVVolume +' +Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) +Me.SliderVVolume.Maximum = 100 +Me.SliderVVolume.Name = "SliderVVolume" +Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) +Me.SliderVVolume.TabIndex = 30 +Me.SliderVVolume.Value = 50 +' +'TTSCheckBox +' +Me.TTSCheckBox.AutoSize = true +Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black +Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) +Me.TTSCheckBox.Name = "TTSCheckBox" +Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) +Me.TTSCheckBox.TabIndex = 28 +Me.TTSCheckBox.TabStop = false +Me.TTSCheckBox.Text = "Enable" +Me.TTSCheckBox.UseVisualStyleBackColor = true +' +'TTSComboBox +' +Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window +Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText +Me.TTSComboBox.FormattingEnabled = true +Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) +Me.TTSComboBox.Name = "TTSComboBox" +Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) +Me.TTSComboBox.TabIndex = 29 +Me.TTSComboBox.TabStop = false +' +'GBSafeword +' +Me.GBSafeword.BackColor = System.Drawing.Color.LightGray +Me.GBSafeword.Controls.Add(Me.LBLSafeword) +Me.GBSafeword.Controls.Add(Me.TBSafeword) +Me.GBSafeword.ForeColor = System.Drawing.Color.Black +Me.GBSafeword.Location = New System.Drawing.Point(440, 179) +Me.GBSafeword.Name = "GBSafeword" +Me.GBSafeword.Size = New System.Drawing.Size(259, 74) +Me.GBSafeword.TabIndex = 0 +Me.GBSafeword.TabStop = false +Me.GBSafeword.Text = "Safeword" +' +'LBLSafeword +' +Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) +Me.LBLSafeword.Name = "LBLSafeword" +Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) +Me.LBLSafeword.TabIndex = 0 +Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able "& _ + "to continue." +Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBSafeword +' +Me.TBSafeword.Location = New System.Drawing.Point(17, 19) +Me.TBSafeword.Name = "TBSafeword" +Me.TBSafeword.Size = New System.Drawing.Size(225, 20) +Me.TBSafeword.TabIndex = 27 +Me.TBSafeword.Text = "red" +Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GBGeneralSystem +' +Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) +Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) +Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) +Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) +Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) +Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) +Me.GBGeneralSystem.Name = "GBGeneralSystem" +Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) +Me.GBGeneralSystem.TabIndex = 0 +Me.GBGeneralSystem.TabStop = false +Me.GBGeneralSystem.Text = "System" +' +'CBAuditStartup +' +Me.CBAuditStartup.AutoSize = true +Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black +Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) +Me.CBAuditStartup.Name = "CBAuditStartup" +Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) +Me.CBAuditStartup.TabIndex = 26 +Me.CBAuditStartup.TabStop = false +Me.CBAuditStartup.Text = "Audit Scripts on Startup" +Me.CBAuditStartup.UseVisualStyleBackColor = true +' +'CBDomDel +' +Me.CBDomDel.AutoSize = true +Me.CBDomDel.ForeColor = System.Drawing.Color.Black +Me.CBDomDel.Location = New System.Drawing.Point(7, 110) +Me.CBDomDel.Name = "CBDomDel" +Me.CBDomDel.Size = New System.Drawing.Size(197, 17) +Me.CBDomDel.TabIndex = 27 +Me.CBDomDel.TabStop = false +Me.CBDomDel.Text = "Allow Domme to Delete Local Media" +Me.CBDomDel.UseVisualStyleBackColor = true +' +'CBSettingsPause +' +Me.CBSettingsPause.AutoSize = true +Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black +Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) +Me.CBSettingsPause.Name = "CBSettingsPause" +Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) +Me.CBSettingsPause.TabIndex = 22 +Me.CBSettingsPause.TabStop = false +Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" +Me.CBSettingsPause.UseVisualStyleBackColor = true +' +'CBSaveChatlogExit +' +Me.CBSaveChatlogExit.AutoSize = true +Me.CBSaveChatlogExit.Checked = true +Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black +Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) +Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" +Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) +Me.CBSaveChatlogExit.TabIndex = 25 +Me.CBSaveChatlogExit.TabStop = false +Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" +Me.CBSaveChatlogExit.UseVisualStyleBackColor = true +' +'CBAutosaveChatlog +' +Me.CBAutosaveChatlog.AutoSize = true +Me.CBAutosaveChatlog.Checked = true +Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black +Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) +Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" +Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) +Me.CBAutosaveChatlog.TabIndex = 24 +Me.CBAutosaveChatlog.TabStop = false +Me.CBAutosaveChatlog.Text = "Autosave Chatlog" +Me.CBAutosaveChatlog.UseVisualStyleBackColor = true +' +'GBGeneralImages +' +Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) +Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) +Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) +Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) +Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) +Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) +Me.GBGeneralImages.Name = "GBGeneralImages" +Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) +Me.GBGeneralImages.TabIndex = 0 +Me.GBGeneralImages.TabStop = false +Me.GBGeneralImages.Text = "Images" +' +'CBImageInfo +' +Me.CBImageInfo.AutoSize = true +Me.CBImageInfo.ForeColor = System.Drawing.Color.Black +Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) +Me.CBImageInfo.Name = "CBImageInfo" +Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) +Me.CBImageInfo.TabIndex = 16 +Me.CBImageInfo.TabStop = false +Me.CBImageInfo.Text = "Display Image Information" +Me.CBImageInfo.UseVisualStyleBackColor = true +' +'CBSlideshowRandom +' +Me.CBSlideshowRandom.AutoSize = true +Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black +Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) +Me.CBSlideshowRandom.Name = "CBSlideshowRandom" +Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) +Me.CBSlideshowRandom.TabIndex = 14 +Me.CBSlideshowRandom.TabStop = false +Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" +Me.CBSlideshowRandom.UseVisualStyleBackColor = true +' +'landscapeCheckBox +' +Me.landscapeCheckBox.AutoSize = true +Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black +Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) +Me.landscapeCheckBox.Name = "landscapeCheckBox" +Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) +Me.landscapeCheckBox.TabIndex = 15 +Me.landscapeCheckBox.TabStop = false +Me.landscapeCheckBox.Text = "Stretch Landscape Images" +Me.landscapeCheckBox.UseVisualStyleBackColor = true +' +'CBBlogImageWindow +' +Me.CBBlogImageWindow.AutoSize = true +Me.CBBlogImageWindow.Checked = true +Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black +Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) +Me.CBBlogImageWindow.Name = "CBBlogImageWindow" +Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) +Me.CBBlogImageWindow.TabIndex = 12 +Me.CBBlogImageWindow.TabStop = false +Me.CBBlogImageWindow.Text = "Save Blog Images From Session" +Me.CBBlogImageWindow.UseVisualStyleBackColor = true +' +'CBSlideshowSubDir +' +Me.CBSlideshowSubDir.AutoSize = true +Me.CBSlideshowSubDir.Checked = true +Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black +Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) +Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" +Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) +Me.CBSlideshowSubDir.TabIndex = 13 +Me.CBSlideshowSubDir.TabStop = false +Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" +Me.CBSlideshowSubDir.UseVisualStyleBackColor = true +' +'PictureBox2 +' +Me.PictureBox2.BackColor = System.Drawing.Color.LightGray +Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox2.Location = New System.Drawing.Point(9, 6) +Me.PictureBox2.Name = "PictureBox2" +Me.PictureBox2.Size = New System.Drawing.Size(160, 19) +Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox2.TabIndex = 148 +Me.PictureBox2.TabStop = false +' +'GBGeneralSettings +' +Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray +Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) +Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) +Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) +Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) +Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) +Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) +Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) +Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black +Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) +Me.GBGeneralSettings.Name = "GBGeneralSettings" +Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) +Me.GBGeneralSettings.TabIndex = 0 +Me.GBGeneralSettings.TabStop = false +Me.GBGeneralSettings.Text = "Chat Window" +' +'CBWebtease +' +Me.CBWebtease.AutoSize = true +Me.CBWebtease.ForeColor = System.Drawing.Color.Black +Me.CBWebtease.Location = New System.Drawing.Point(6, 110) +Me.CBWebtease.Name = "CBWebtease" +Me.CBWebtease.Size = New System.Drawing.Size(105, 17) +Me.CBWebtease.TabIndex = 5 +Me.CBWebtease.TabStop = false +Me.CBWebtease.Text = "Webtease Mode" +Me.CBWebtease.UseVisualStyleBackColor = true +' +'GBSubFont +' +Me.GBSubFont.Controls.Add(Me.BTNSubColor) +Me.GBSubFont.Controls.Add(Me.LBLSubColor) +Me.GBSubFont.Controls.Add(Me.NBFontSize) +Me.GBSubFont.Controls.Add(Me.Label2) +Me.GBSubFont.Controls.Add(Me.FontComboBox) +Me.GBSubFont.Location = New System.Drawing.Point(6, 219) +Me.GBSubFont.Name = "GBSubFont" +Me.GBSubFont.Size = New System.Drawing.Size(200, 77) +Me.GBSubFont.TabIndex = 0 +Me.GBSubFont.TabStop = false +Me.GBSubFont.Text = "Sub Font Settings" +' +'BTNSubColor +' +Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray +Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNSubColor.ForeColor = System.Drawing.Color.Black +Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) +Me.BTNSubColor.Name = "BTNSubColor" +Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) +Me.BTNSubColor.TabIndex = 8 +Me.BTNSubColor.Text = "Sub Name Color" +Me.BTNSubColor.UseVisualStyleBackColor = false +' +'LBLSubColor +' +Me.LBLSubColor.BackColor = System.Drawing.Color.White +Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor +Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) +Me.LBLSubColor.Name = "LBLSubColor" +Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) +Me.LBLSubColor.TabIndex = 0 +Me.LBLSubColor.Text = "Preview" +Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBFontSize +' +Me.NBFontSize.BackColor = System.Drawing.Color.White +Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBFontSize.ForeColor = System.Drawing.Color.Black +Me.NBFontSize.Location = New System.Drawing.Point(147, 47) +Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBFontSize.Name = "NBFontSize" +Me.NBFontSize.Size = New System.Drawing.Size(45, 20) +Me.NBFontSize.TabIndex = 11 +Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label2 +' +Me.Label2.BackColor = System.Drawing.Color.Transparent +Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label2.ForeColor = System.Drawing.Color.Black +Me.Label2.Location = New System.Drawing.Point(117, 45) +Me.Label2.Name = "Label2" +Me.Label2.Size = New System.Drawing.Size(30, 20) +Me.Label2.TabIndex = 63 +Me.Label2.Text = "Size:" +Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'FontComboBox +' +Me.FontComboBox.FormattingEnabled = true +Me.FontComboBox.Location = New System.Drawing.Point(6, 46) +Me.FontComboBox.Name = "FontComboBox" +Me.FontComboBox.Size = New System.Drawing.Size(110, 21) +Me.FontComboBox.TabIndex = 9 +' +'GBDommeFont +' +Me.GBDommeFont.Controls.Add(Me.BTNDomColor) +Me.GBDommeFont.Controls.Add(Me.LBLDomColor) +Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) +Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) +Me.GBDommeFont.Controls.Add(Me.Label7) +Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) +Me.GBDommeFont.Name = "GBDommeFont" +Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) +Me.GBDommeFont.TabIndex = 0 +Me.GBDommeFont.TabStop = false +Me.GBDommeFont.Text = "Domme Font Settings" +' +'BTNDomColor +' +Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray +Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomColor.ForeColor = System.Drawing.Color.Black +Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) +Me.BTNDomColor.Name = "BTNDomColor" +Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) +Me.BTNDomColor.TabIndex = 5 +Me.BTNDomColor.Text = "Domme Name Color" +Me.BTNDomColor.UseVisualStyleBackColor = false +' +'LBLDomColor +' +Me.LBLDomColor.BackColor = System.Drawing.Color.White +Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor +Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) +Me.LBLDomColor.Name = "LBLDomColor" +Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) +Me.LBLDomColor.TabIndex = 0 +Me.LBLDomColor.Text = "Preview" +Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'FontComboBoxD +' +Me.FontComboBoxD.FormattingEnabled = true +Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) +Me.FontComboBoxD.Name = "FontComboBoxD" +Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) +Me.FontComboBoxD.TabIndex = 6 +' +'NBFontSizeD +' +Me.NBFontSizeD.BackColor = System.Drawing.Color.White +Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black +Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) +Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBFontSizeD.Name = "NBFontSizeD" +Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) +Me.NBFontSizeD.TabIndex = 7 +Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label7 +' +Me.Label7.BackColor = System.Drawing.Color.Transparent +Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label7.ForeColor = System.Drawing.Color.Black +Me.Label7.Location = New System.Drawing.Point(117, 45) +Me.Label7.Name = "Label7" +Me.Label7.Size = New System.Drawing.Size(30, 20) +Me.Label7.TabIndex = 172 +Me.Label7.Text = "Size:" +Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBInputIcon +' +Me.CBInputIcon.AutoSize = true +Me.CBInputIcon.Checked = true +Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBInputIcon.ForeColor = System.Drawing.Color.Black +Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) +Me.CBInputIcon.Name = "CBInputIcon" +Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) +Me.CBInputIcon.TabIndex = 4 +Me.CBInputIcon.TabStop = false +Me.CBInputIcon.Text = "Show Icon During Input Questions" +Me.CBInputIcon.UseVisualStyleBackColor = true +' +'typeinstantlyCheckBox +' +Me.typeinstantlyCheckBox.AutoSize = true +Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black +Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) +Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" +Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) +Me.typeinstantlyCheckBox.TabIndex = 3 +Me.typeinstantlyCheckBox.TabStop = false +Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" +Me.typeinstantlyCheckBox.UseVisualStyleBackColor = true +' +'timestampCheckBox +' +Me.timestampCheckBox.AutoSize = true +Me.timestampCheckBox.Checked = true +Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked +Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black +Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) +Me.timestampCheckBox.Name = "timestampCheckBox" +Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) +Me.timestampCheckBox.TabIndex = 1 +Me.timestampCheckBox.TabStop = false +Me.timestampCheckBox.Text = "Show Timestamps" +Me.timestampCheckBox.UseVisualStyleBackColor = true +' +'shownamesCheckBox +' +Me.shownamesCheckBox.AutoSize = true +Me.shownamesCheckBox.Checked = true +Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked +Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black +Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) +Me.shownamesCheckBox.Name = "shownamesCheckBox" +Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) +Me.shownamesCheckBox.TabIndex = 2 +Me.shownamesCheckBox.TabStop = false +Me.shownamesCheckBox.Text = "Always Show Names" +Me.shownamesCheckBox.UseVisualStyleBackColor = true +' +'LBLGeneralSettings +' +Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent +Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black +Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) +Me.LBLGeneralSettings.Name = "LBLGeneralSettings" +Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) +Me.LBLGeneralSettings.TabIndex = 0 +Me.LBLGeneralSettings.Text = "General Settings" +Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage2 +' +Me.TabPage2.BackColor = System.Drawing.Color.Silver +Me.TabPage2.Controls.Add(Me.Panel3) +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(720, 448) +Me.TabPage2.TabIndex = 1 +Me.TabPage2.Text = "Domme" +' +'Panel3 +' +Me.Panel3.BackColor = System.Drawing.Color.LightGray +Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel3.Controls.Add(Me.GBGiveUp) +Me.Panel3.Controls.Add(Me.BTNLoadDomSet) +Me.Panel3.Controls.Add(Me.BTNSaveDomSet) +Me.Panel3.Controls.Add(Me.Label127) +Me.Panel3.Controls.Add(Me.Label126) +Me.Panel3.Controls.Add(Me.PictureBox4) +Me.Panel3.Controls.Add(Me.GBDomTypingStyle) +Me.Panel3.Controls.Add(Me.GBDomRanges) +Me.Panel3.Controls.Add(Me.GBDomStats) +Me.Panel3.Controls.Add(Me.GBDomPersonality) +Me.Panel3.Controls.Add(Me.GBDomOrgasms) +Me.Panel3.Controls.Add(Me.GBDomPetNames) +Me.Panel3.Controls.Add(Me.Label54) +Me.Panel3.Location = New System.Drawing.Point(6, 6) +Me.Panel3.Name = "Panel3" +Me.Panel3.Size = New System.Drawing.Size(708, 437) +Me.Panel3.TabIndex = 93 +' +'GBGiveUp +' +Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) +Me.GBGiveUp.Location = New System.Drawing.Point(440, 230) +Me.GBGiveUp.Name = "GBGiveUp" +Me.GBGiveUp.Size = New System.Drawing.Size(259, 63) +Me.GBGiveUp.TabIndex = 42 +Me.GBGiveUp.TabStop = false +Me.GBGiveUp.Text = "Script Behavior" +' +'giveupCheckBox +' +Me.giveupCheckBox.AutoSize = true +Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black +Me.giveupCheckBox.Location = New System.Drawing.Point(15, 26) +Me.giveupCheckBox.Name = "giveupCheckBox" +Me.giveupCheckBox.Size = New System.Drawing.Size(210, 17) +Me.giveupCheckBox.TabIndex = 38 +Me.giveupCheckBox.Text = "Continue Current Script After Giving Up" +Me.giveupCheckBox.UseVisualStyleBackColor = true +' +'BTNLoadDomSet +' +Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray +Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 +Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black +Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) +Me.BTNLoadDomSet.Name = "BTNLoadDomSet" +Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) +Me.BTNLoadDomSet.TabIndex = 150 +Me.BTNLoadDomSet.UseVisualStyleBackColor = false +' +'BTNSaveDomSet +' +Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray +Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 +Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black +Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) +Me.BTNSaveDomSet.Name = "BTNSaveDomSet" +Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) +Me.BTNSaveDomSet.TabIndex = 151 +Me.BTNSaveDomSet.UseVisualStyleBackColor = false +' +'Label127 +' +Me.Label127.AutoSize = true +Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label127.ForeColor = System.Drawing.Color.Black +Me.Label127.Location = New System.Drawing.Point(670, -3) +Me.Label127.Name = "Label127" +Me.Label127.Size = New System.Drawing.Size(27, 13) +Me.Label127.TabIndex = 153 +Me.Label127.Text = "load" +Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label126 +' +Me.Label126.AutoSize = true +Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label126.ForeColor = System.Drawing.Color.Black +Me.Label126.Location = New System.Drawing.Point(636, -3) +Me.Label126.Name = "Label126" +Me.Label126.Size = New System.Drawing.Size(30, 13) +Me.Label126.TabIndex = 152 +Me.Label126.Text = "save" +Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'PictureBox4 +' +Me.PictureBox4.BackColor = System.Drawing.Color.LightGray +Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox4.Location = New System.Drawing.Point(9, 6) +Me.PictureBox4.Name = "PictureBox4" +Me.PictureBox4.Size = New System.Drawing.Size(160, 19) +Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox4.TabIndex = 149 +Me.PictureBox4.TabStop = false +' +'GBDomTypingStyle +' +Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) +Me.GBDomTypingStyle.Controls.Add(Me.Label67) +Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) +Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) +Me.GBDomTypingStyle.Controls.Add(Me.Label66) +Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) +Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) +Me.GBDomTypingStyle.Controls.Add(Me.Label64) +Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black +Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) +Me.GBDomTypingStyle.Name = "GBDomTypingStyle" +Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) +Me.GBDomTypingStyle.TabIndex = 138 +Me.GBDomTypingStyle.TabStop = false +Me.GBDomTypingStyle.Text = "Typing Style" +' +'TBEmoteEnd +' +Me.TBEmoteEnd.BackColor = System.Drawing.Color.White +Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black +Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) +Me.TBEmoteEnd.Name = "TBEmoteEnd" +Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) +Me.TBEmoteEnd.TabIndex = 155 +Me.TBEmoteEnd.Text = "*" +Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label67 +' +Me.Label67.AutoSize = true +Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label67.ForeColor = System.Drawing.Color.Black +Me.Label67.Location = New System.Drawing.Point(237, 77) +Me.Label67.Name = "Label67" +Me.Label67.Size = New System.Drawing.Size(42, 13) +Me.Label67.TabIndex = 169 +Me.Label67.Text = "Typo %" +Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBEmote +' +Me.TBEmote.BackColor = System.Drawing.Color.White +Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBEmote.ForeColor = System.Drawing.Color.Black +Me.TBEmote.Location = New System.Drawing.Point(9, 91) +Me.TBEmote.Name = "TBEmote" +Me.TBEmote.Size = New System.Drawing.Size(85, 23) +Me.TBEmote.TabIndex = 154 +Me.TBEmote.Text = "*" +Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'NBTypoChance +' +Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) +Me.NBTypoChance.Name = "NBTypoChance" +Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) +Me.NBTypoChance.TabIndex = 168 +Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) +' +'Label66 +' +Me.Label66.AutoSize = true +Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label66.ForeColor = System.Drawing.Color.Black +Me.Label66.Location = New System.Drawing.Point(322, 77) +Me.Label66.Name = "Label66" +Me.Label66.Size = New System.Drawing.Size(52, 13) +Me.Label66.TabIndex = 44 +Me.Label66.Text = "Pronouns" +Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBMeMyMine +' +Me.CBMeMyMine.AutoSize = true +Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black +Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) +Me.CBMeMyMine.Name = "CBMeMyMine" +Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) +Me.CBMeMyMine.TabIndex = 40 +Me.CBMeMyMine.Text = "Me/My/Mine" +Me.CBMeMyMine.UseVisualStyleBackColor = true +' +'GroupBox63 +' +Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) +Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) +Me.GroupBox63.Controls.Add(Me.periodCheckBox) +Me.GroupBox63.Controls.Add(Me.commaCheckBox) +Me.GroupBox63.Location = New System.Drawing.Point(9, 15) +Me.GroupBox63.Name = "GroupBox63" +Me.GroupBox63.Size = New System.Drawing.Size(407, 48) +Me.GroupBox63.TabIndex = 41 +Me.GroupBox63.TabStop = false +Me.GroupBox63.Text = "Remove" +' +'LCaseCheckBox +' +Me.LCaseCheckBox.AutoSize = true +Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black +Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) +Me.LCaseCheckBox.Name = "LCaseCheckBox" +Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) +Me.LCaseCheckBox.TabIndex = 38 +Me.LCaseCheckBox.Text = "Capitalization" +Me.LCaseCheckBox.UseVisualStyleBackColor = true +' +'apostropheCheckBox +' +Me.apostropheCheckBox.AutoSize = true +Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black +Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) +Me.apostropheCheckBox.Name = "apostropheCheckBox" +Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) +Me.apostropheCheckBox.TabIndex = 39 +Me.apostropheCheckBox.Text = "Apostrophes" +Me.apostropheCheckBox.UseVisualStyleBackColor = true +' +'periodCheckBox +' +Me.periodCheckBox.AutoSize = true +Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.periodCheckBox.ForeColor = System.Drawing.Color.Black +Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) +Me.periodCheckBox.Name = "periodCheckBox" +Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) +Me.periodCheckBox.TabIndex = 37 +Me.periodCheckBox.Text = "Periods" +Me.periodCheckBox.UseVisualStyleBackColor = true +' +'commaCheckBox +' +Me.commaCheckBox.AutoSize = true +Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.commaCheckBox.ForeColor = System.Drawing.Color.Black +Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) +Me.commaCheckBox.Name = "commaCheckBox" +Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) +Me.commaCheckBox.TabIndex = 36 +Me.commaCheckBox.Text = "Commas" +Me.commaCheckBox.UseVisualStyleBackColor = true +' +'Label64 +' +Me.Label64.AutoSize = true +Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label64.ForeColor = System.Drawing.Color.Black +Me.Label64.Location = New System.Drawing.Point(8, 77) +Me.Label64.Name = "Label64" +Me.Label64.Size = New System.Drawing.Size(79, 13) +Me.Label64.TabIndex = 43 +Me.Label64.Text = "Emote Symbols" +Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GBDomRanges +' +Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) +Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) +Me.GBDomRanges.Controls.Add(Me.Label37) +Me.GBDomRanges.Controls.Add(Me.Label39) +Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) +Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) +Me.GBDomRanges.Controls.Add(Me.Label31) +Me.GBDomRanges.Controls.Add(Me.Label36) +Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) +Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) +Me.GBDomRanges.Controls.Add(Me.Label21) +Me.GBDomRanges.Controls.Add(Me.Label22) +Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) +Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) +Me.GBDomRanges.Controls.Add(Me.Label23) +Me.GBDomRanges.Controls.Add(Me.Label30) +Me.GBDomRanges.Location = New System.Drawing.Point(440, 299) +Me.GBDomRanges.Name = "GBDomRanges" +Me.GBDomRanges.Size = New System.Drawing.Size(259, 124) +Me.GBDomRanges.TabIndex = 148 +Me.GBDomRanges.TabStop = false +Me.GBDomRanges.Text = "Ranges" +' +'NBDomMoodMax +' +Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 19) +Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBDomMoodMax.Name = "NBDomMoodMax" +Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) +Me.NBDomMoodMax.TabIndex = 168 +Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) +' +'NBDomMoodMin +' +Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 19) +Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) +Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBDomMoodMin.Name = "NBDomMoodMin" +Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) +Me.NBDomMoodMin.TabIndex = 167 +Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) +' +'Label37 +' +Me.Label37.BackColor = System.Drawing.Color.Transparent +Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label37.ForeColor = System.Drawing.Color.Black +Me.Label37.Location = New System.Drawing.Point(184, 19) +Me.Label37.Name = "Label37" +Me.Label37.Size = New System.Drawing.Size(10, 17) +Me.Label37.TabIndex = 166 +Me.Label37.Text = "-" +Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label39 +' +Me.Label39.BackColor = System.Drawing.Color.Transparent +Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label39.ForeColor = System.Drawing.Color.Black +Me.Label39.Location = New System.Drawing.Point(12, 19) +Me.Label39.Name = "Label39" +Me.Label39.Size = New System.Drawing.Size(116, 17) +Me.Label39.TabIndex = 165 +Me.Label39.Text = "Domme Mood Index:" +Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBSubAgeMax +' +Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 94) +Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) +Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) +Me.NBSubAgeMax.Name = "NBSubAgeMax" +Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) +Me.NBSubAgeMax.TabIndex = 164 +Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) +' +'NBSubAgeMin +' +Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 94) +Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) +Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) +Me.NBSubAgeMin.Name = "NBSubAgeMin" +Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) +Me.NBSubAgeMin.TabIndex = 163 +Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) +' +'Label31 +' +Me.Label31.BackColor = System.Drawing.Color.Transparent +Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label31.ForeColor = System.Drawing.Color.Black +Me.Label31.Location = New System.Drawing.Point(184, 94) +Me.Label31.Name = "Label31" +Me.Label31.Size = New System.Drawing.Size(10, 17) +Me.Label31.TabIndex = 162 +Me.Label31.Text = "-" +Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label36 +' +Me.Label36.BackColor = System.Drawing.Color.Transparent +Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label36.ForeColor = System.Drawing.Color.Black +Me.Label36.Location = New System.Drawing.Point(12, 94) +Me.Label36.Name = "Label36" +Me.Label36.Size = New System.Drawing.Size(113, 17) +Me.Label36.TabIndex = 161 +Me.Label36.Text = "Sub Age Perception:" +Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBSelfAgeMax +' +Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 69) +Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) +Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) +Me.NBSelfAgeMax.Name = "NBSelfAgeMax" +Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) +Me.NBSelfAgeMax.TabIndex = 156 +Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) +' +'NBSelfAgeMin +' +Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 69) +Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) +Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) +Me.NBSelfAgeMin.Name = "NBSelfAgeMin" +Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) +Me.NBSelfAgeMin.TabIndex = 155 +Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) +' +'Label21 +' +Me.Label21.BackColor = System.Drawing.Color.Transparent +Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label21.ForeColor = System.Drawing.Color.Black +Me.Label21.Location = New System.Drawing.Point(184, 69) +Me.Label21.Name = "Label21" +Me.Label21.Size = New System.Drawing.Size(10, 17) +Me.Label21.TabIndex = 154 +Me.Label21.Text = "-" +Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label22 +' +Me.Label22.BackColor = System.Drawing.Color.Transparent +Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label22.ForeColor = System.Drawing.Color.Black +Me.Label22.Location = New System.Drawing.Point(12, 69) +Me.Label22.Name = "Label22" +Me.Label22.Size = New System.Drawing.Size(116, 17) +Me.Label22.TabIndex = 153 +Me.Label22.Text = "Self Age Perception:" +Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBAvgCockMax +' +Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 44) +Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) +Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBAvgCockMax.Name = "NBAvgCockMax" +Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) +Me.NBAvgCockMax.TabIndex = 152 +Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) +' +'NBAvgCockMin +' +Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 44) +Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) +Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBAvgCockMin.Name = "NBAvgCockMin" +Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) +Me.NBAvgCockMin.TabIndex = 151 +Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) +' +'Label23 +' +Me.Label23.BackColor = System.Drawing.Color.Transparent +Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label23.ForeColor = System.Drawing.Color.Black +Me.Label23.Location = New System.Drawing.Point(184, 44) +Me.Label23.Name = "Label23" +Me.Label23.Size = New System.Drawing.Size(10, 17) +Me.Label23.TabIndex = 150 +Me.Label23.Text = "-" +Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label30 +' +Me.Label30.BackColor = System.Drawing.Color.Transparent +Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label30.ForeColor = System.Drawing.Color.Black +Me.Label30.Location = New System.Drawing.Point(12, 44) +Me.Label30.Name = "Label30" +Me.Label30.Size = New System.Drawing.Size(116, 17) +Me.Label30.TabIndex = 149 +Me.Label30.Text = "Average Dick Size:" +Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GBDomStats +' +Me.GBDomStats.BackColor = System.Drawing.Color.LightGray +Me.GBDomStats.Controls.Add(Me.Label128) +Me.GBDomStats.Controls.Add(Me.LBLEmpathy) +Me.GBDomStats.Controls.Add(Me.NBEmpathy) +Me.GBDomStats.Controls.Add(Me.Label83) +Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) +Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) +Me.GBDomStats.Controls.Add(Me.TBDomHairColor) +Me.GBDomStats.Controls.Add(Me.domageNumBox) +Me.GBDomStats.Controls.Add(Me.Label47) +Me.GBDomStats.Controls.Add(Me.Label76) +Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) +Me.GBDomStats.Controls.Add(Me.Label84) +Me.GBDomStats.Controls.Add(Me.CBDomTattoos) +Me.GBDomStats.Controls.Add(Me.CBDomFreckles) +Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) +Me.GBDomStats.Controls.Add(Me.Label10) +Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) +Me.GBDomStats.Controls.Add(Me.Label9) +Me.GBDomStats.Controls.Add(Me.boobComboBox) +Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) +Me.GBDomStats.Controls.Add(Me.domlevelNumBox) +Me.GBDomStats.Controls.Add(Me.Label43) +Me.GBDomStats.Controls.Add(Me.Label44) +Me.GBDomStats.Controls.Add(Me.Label45) +Me.GBDomStats.Controls.Add(Me.Label46) +Me.GBDomStats.ForeColor = System.Drawing.Color.Black +Me.GBDomStats.Location = New System.Drawing.Point(18, 33) +Me.GBDomStats.Name = "GBDomStats" +Me.GBDomStats.Size = New System.Drawing.Size(171, 263) +Me.GBDomStats.TabIndex = 62 +Me.GBDomStats.TabStop = false +Me.GBDomStats.Text = "Stats/Appearance" +' +'Label128 +' +Me.Label128.AutoSize = true +Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label128.Location = New System.Drawing.Point(125, 68) +Me.Label128.Name = "Label128" +Me.Label128.Size = New System.Drawing.Size(38, 13) +Me.Label128.TabIndex = 156 +Me.Label128.Text = "mm/dd" +Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLEmpathy +' +Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) +Me.LBLEmpathy.Name = "LBLEmpathy" +Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) +Me.LBLEmpathy.TabIndex = 157 +Me.LBLEmpathy.Text = "Moderate" +Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBEmpathy +' +Me.NBEmpathy.BackColor = System.Drawing.Color.White +Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBEmpathy.ForeColor = System.Drawing.Color.Black +Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) +Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBEmpathy.Name = "NBEmpathy" +Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) +Me.NBEmpathy.TabIndex = 156 +Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label83 +' +Me.Label83.BackColor = System.Drawing.Color.Transparent +Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label83.ForeColor = System.Drawing.Color.Black +Me.Label83.Location = New System.Drawing.Point(6, 37) +Me.Label83.Name = "Label83" +Me.Label83.Size = New System.Drawing.Size(60, 17) +Me.Label83.TabIndex = 158 +Me.Label83.Text = "Apathy:" +Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBDomBirthdayDay +' +Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White +Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black +Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) +Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) +Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" +Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) +Me.NBDomBirthdayDay.TabIndex = 152 +Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'TBDomEyeColor +' +Me.TBDomEyeColor.BackColor = System.Drawing.Color.White +Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black +Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) +Me.TBDomEyeColor.Name = "TBDomEyeColor" +Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) +Me.TBDomEyeColor.TabIndex = 154 +Me.TBDomEyeColor.Text = "green" +' +'TBDomHairColor +' +Me.TBDomHairColor.BackColor = System.Drawing.Color.White +Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black +Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) +Me.TBDomHairColor.Name = "TBDomHairColor" +Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) +Me.TBDomHairColor.TabIndex = 153 +Me.TBDomHairColor.Text = "brown" +' +'domageNumBox +' +Me.domageNumBox.BackColor = System.Drawing.Color.White +Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.domageNumBox.ForeColor = System.Drawing.Color.Black +Me.domageNumBox.Location = New System.Drawing.Point(73, 61) +Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) +Me.domageNumBox.Name = "domageNumBox" +Me.domageNumBox.Size = New System.Drawing.Size(38, 20) +Me.domageNumBox.TabIndex = 27 +Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) +' +'Label47 +' +Me.Label47.BackColor = System.Drawing.Color.Transparent +Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label47.ForeColor = System.Drawing.Color.Black +Me.Label47.Location = New System.Drawing.Point(6, 60) +Me.Label47.Name = "Label47" +Me.Label47.Size = New System.Drawing.Size(63, 17) +Me.Label47.TabIndex = 138 +Me.Label47.Text = "Age:" +Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label76 +' +Me.Label76.AutoSize = true +Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label76.ForeColor = System.Drawing.Color.Black +Me.Label76.Location = New System.Drawing.Point(113, 87) +Me.Label76.Name = "Label76" +Me.Label76.Size = New System.Drawing.Size(12, 13) +Me.Label76.TabIndex = 151 +Me.Label76.Text = "/" +Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBDomBirthdayMonth +' +Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White +Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black +Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) +Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) +Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" +Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) +Me.NBDomBirthdayMonth.TabIndex = 149 +Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label84 +' +Me.Label84.BackColor = System.Drawing.Color.Transparent +Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label84.ForeColor = System.Drawing.Color.Black +Me.Label84.Location = New System.Drawing.Point(6, 84) +Me.Label84.Name = "Label84" +Me.Label84.Size = New System.Drawing.Size(60, 17) +Me.Label84.TabIndex = 150 +Me.Label84.Text = "Birthday:" +Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBDomTattoos +' +Me.CBDomTattoos.AutoSize = true +Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black +Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) +Me.CBDomTattoos.Name = "CBDomTattoos" +Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBDomTattoos.TabIndex = 148 +Me.CBDomTattoos.Text = "Tattoos" +Me.CBDomTattoos.UseVisualStyleBackColor = true +' +'CBDomFreckles +' +Me.CBDomFreckles.AutoSize = true +Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black +Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) +Me.CBDomFreckles.Name = "CBDomFreckles" +Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) +Me.CBDomFreckles.TabIndex = 147 +Me.CBDomFreckles.Text = "Freckles" +Me.CBDomFreckles.UseVisualStyleBackColor = true +' +'domhairlengthComboBox +' +Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White +Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black +Me.domhairlengthComboBox.FormattingEnabled = true +Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) +Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) +Me.domhairlengthComboBox.Name = "domhairlengthComboBox" +Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) +Me.domhairlengthComboBox.TabIndex = 145 +' +'Label10 +' +Me.Label10.BackColor = System.Drawing.Color.Transparent +Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label10.ForeColor = System.Drawing.Color.Black +Me.Label10.Location = New System.Drawing.Point(6, 133) +Me.Label10.Name = "Label10" +Me.Label10.Size = New System.Drawing.Size(78, 17) +Me.Label10.TabIndex = 146 +Me.Label10.Text = "Hair Length:" +Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'dompubichairComboBox +' +Me.dompubichairComboBox.BackColor = System.Drawing.Color.White +Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black +Me.dompubichairComboBox.FormattingEnabled = true +Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) +Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) +Me.dompubichairComboBox.Name = "dompubichairComboBox" +Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) +Me.dompubichairComboBox.TabIndex = 143 +' +'Label9 +' +Me.Label9.BackColor = System.Drawing.Color.Transparent +Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label9.ForeColor = System.Drawing.Color.Black +Me.Label9.Location = New System.Drawing.Point(6, 209) +Me.Label9.Name = "Label9" +Me.Label9.Size = New System.Drawing.Size(63, 17) +Me.Label9.TabIndex = 144 +Me.Label9.Text = "Pubic Hair:" +Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'boobComboBox +' +Me.boobComboBox.BackColor = System.Drawing.Color.White +Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.boobComboBox.ForeColor = System.Drawing.Color.Black +Me.boobComboBox.FormattingEnabled = true +Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) +Me.boobComboBox.Location = New System.Drawing.Point(73, 182) +Me.boobComboBox.Name = "boobComboBox" +Me.boobComboBox.Size = New System.Drawing.Size(89, 21) +Me.boobComboBox.TabIndex = 2 +' +'DomLevelDescLabel +' +Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) +Me.DomLevelDescLabel.Name = "DomLevelDescLabel" +Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) +Me.DomLevelDescLabel.TabIndex = 42 +Me.DomLevelDescLabel.Text = "Tease" +Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'domlevelNumBox +' +Me.domlevelNumBox.BackColor = System.Drawing.Color.White +Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black +Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) +Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.domlevelNumBox.Name = "domlevelNumBox" +Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) +Me.domlevelNumBox.TabIndex = 41 +Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label43 +' +Me.Label43.BackColor = System.Drawing.Color.Transparent +Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label43.ForeColor = System.Drawing.Color.Black +Me.Label43.Location = New System.Drawing.Point(6, 183) +Me.Label43.Name = "Label43" +Me.Label43.Size = New System.Drawing.Size(63, 17) +Me.Label43.TabIndex = 142 +Me.Label43.Text = "Cup Size:" +Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label44 +' +Me.Label44.BackColor = System.Drawing.Color.Transparent +Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label44.ForeColor = System.Drawing.Color.Black +Me.Label44.Location = New System.Drawing.Point(6, 158) +Me.Label44.Name = "Label44" +Me.Label44.Size = New System.Drawing.Size(63, 17) +Me.Label44.TabIndex = 141 +Me.Label44.Text = "Eye Color:" +Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label45 +' +Me.Label45.BackColor = System.Drawing.Color.Transparent +Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label45.ForeColor = System.Drawing.Color.Black +Me.Label45.Location = New System.Drawing.Point(6, 108) +Me.Label45.Name = "Label45" +Me.Label45.Size = New System.Drawing.Size(78, 17) +Me.Label45.TabIndex = 140 +Me.Label45.Text = "Hair Color:" +Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label46 +' +Me.Label46.BackColor = System.Drawing.Color.Transparent +Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label46.ForeColor = System.Drawing.Color.Black +Me.Label46.Location = New System.Drawing.Point(6, 15) +Me.Label46.Name = "Label46" +Me.Label46.Size = New System.Drawing.Size(46, 17) +Me.Label46.TabIndex = 139 +Me.Label46.Text = "Level:" +Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GBDomPersonality +' +Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) +Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) +Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) +Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) +Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) +Me.GBDomPersonality.Controls.Add(Me.CFNMCheckBox) +Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black +Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) +Me.GBDomPersonality.Name = "GBDomPersonality" +Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) +Me.GBDomPersonality.TabIndex = 131 +Me.GBDomPersonality.TabStop = false +Me.GBDomPersonality.Text = "Personality" +' +'degradingCheckBox +' +Me.degradingCheckBox.AutoSize = true +Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black +Me.degradingCheckBox.Location = New System.Drawing.Point(79, 43) +Me.degradingCheckBox.Name = "degradingCheckBox" +Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) +Me.degradingCheckBox.TabIndex = 40 +Me.degradingCheckBox.Text = "Degrading" +Me.degradingCheckBox.UseVisualStyleBackColor = true +' +'sadisticCheckBox +' +Me.sadisticCheckBox.AutoSize = true +Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black +Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) +Me.sadisticCheckBox.Name = "sadisticCheckBox" +Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) +Me.sadisticCheckBox.TabIndex = 39 +Me.sadisticCheckBox.Text = "Sadistic" +Me.sadisticCheckBox.UseVisualStyleBackColor = true +' +'supremacistCheckBox +' +Me.supremacistCheckBox.AutoSize = true +Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black +Me.supremacistCheckBox.Location = New System.Drawing.Point(155, 20) +Me.supremacistCheckBox.Name = "supremacistCheckBox" +Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) +Me.supremacistCheckBox.TabIndex = 38 +Me.supremacistCheckBox.Text = "Supremacist" +Me.supremacistCheckBox.UseVisualStyleBackColor = true +' +'vulgarCheckBox +' +Me.vulgarCheckBox.AutoSize = true +Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black +Me.vulgarCheckBox.Location = New System.Drawing.Point(79, 20) +Me.vulgarCheckBox.Name = "vulgarCheckBox" +Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) +Me.vulgarCheckBox.TabIndex = 37 +Me.vulgarCheckBox.Text = "Vulgar" +Me.vulgarCheckBox.UseVisualStyleBackColor = true +' +'crazyCheckBox +' +Me.crazyCheckBox.AutoSize = true +Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black +Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) +Me.crazyCheckBox.Name = "crazyCheckBox" +Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) +Me.crazyCheckBox.TabIndex = 36 +Me.crazyCheckBox.Text = "Crazy" +Me.crazyCheckBox.UseVisualStyleBackColor = true +' +'CFNMCheckBox +' +Me.CFNMCheckBox.AutoSize = true +Me.CFNMCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CFNMCheckBox.ForeColor = System.Drawing.Color.Black +Me.CFNMCheckBox.Location = New System.Drawing.Point(155, 43) +Me.CFNMCheckBox.Name = "CFNMCheckBox" +Me.CFNMCheckBox.Size = New System.Drawing.Size(56, 17) +Me.CFNMCheckBox.TabIndex = 41 +Me.CFNMCheckBox.Text = "CFNM" +Me.CFNMCheckBox.UseVisualStyleBackColor = true +' +'GBDomOrgasms +' +Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) +Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) +Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) +Me.GBDomOrgasms.Controls.Add(Me.Label16) +Me.GBDomOrgasms.Controls.Add(Me.Label12) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) +Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) +Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) +Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) +Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) +Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) +Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black +Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) +Me.GBDomOrgasms.Name = "GBDomOrgasms" +Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) +Me.GBDomOrgasms.TabIndex = 132 +Me.GBDomOrgasms.TabStop = false +Me.GBDomOrgasms.Text = "Orgasms" +' +'CBLockOrgasmChances +' +Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances +Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black +Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) +Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" +Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) +Me.CBLockOrgasmChances.TabIndex = 146 +Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" +Me.CBLockOrgasmChances.UseVisualStyleBackColor = true +' +'orgasmlockrandombutton +' +Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray +Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black +Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) +Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" +Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) +Me.orgasmlockrandombutton.TabIndex = 145 +Me.orgasmlockrandombutton.Text = "Lock Random" +Me.orgasmlockrandombutton.UseVisualStyleBackColor = false +' +'CBDomOrgasmEnds +' +Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black +Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) +Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" +Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) +Me.CBDomOrgasmEnds.TabIndex = 144 +Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" +Me.CBDomOrgasmEnds.UseVisualStyleBackColor = true +' +'Label16 +' +Me.Label16.BackColor = System.Drawing.Color.Transparent +Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label16.ForeColor = System.Drawing.Color.Black +Me.Label16.Location = New System.Drawing.Point(12, 47) +Me.Label16.Name = "Label16" +Me.Label16.Size = New System.Drawing.Size(87, 17) +Me.Label16.TabIndex = 142 +Me.Label16.Text = "Ruins Orgasms:" +Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label12 +' +Me.Label12.BackColor = System.Drawing.Color.Transparent +Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label12.ForeColor = System.Drawing.Color.Black +Me.Label12.Location = New System.Drawing.Point(12, 19) +Me.Label12.Name = "Label12" +Me.Label12.Size = New System.Drawing.Size(87, 17) +Me.Label12.TabIndex = 141 +Me.Label12.Text = "Allows Orgasms:" +Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'orgasmsperlockButton +' +Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray +Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black +Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) +Me.orgasmsperlockButton.Name = "orgasmsperlockButton" +Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) +Me.orgasmsperlockButton.TabIndex = 97 +Me.orgasmsperlockButton.Text = "Lock Selected" +Me.orgasmsperlockButton.UseVisualStyleBackColor = false +' +'orgasmsperComboBox +' +Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White +Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black +Me.orgasmsperComboBox.FormattingEnabled = true +Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) +Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) +Me.orgasmsperComboBox.Name = "orgasmsperComboBox" +Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) +Me.orgasmsperComboBox.TabIndex = 43 +' +'orgasmsperLabel +' +Me.orgasmsperLabel.AutoSize = true +Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black +Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) +Me.orgasmsperLabel.Name = "orgasmsperLabel" +Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) +Me.orgasmsperLabel.TabIndex = 42 +Me.orgasmsperLabel.Text = "per" +Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'limitcheckbox +' +Me.limitcheckbox.AutoSize = true +Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.limitcheckbox.ForeColor = System.Drawing.Color.Black +Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) +Me.limitcheckbox.Name = "limitcheckbox" +Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) +Me.limitcheckbox.TabIndex = 39 +Me.limitcheckbox.Text = "Limit" +Me.limitcheckbox.UseVisualStyleBackColor = true +' +'orgasmsPerNumBox +' +Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White +Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black +Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) +Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" +Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) +Me.orgasmsPerNumBox.TabIndex = 41 +Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'CBDomDenialEnds +' +Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black +Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) +Me.CBDomDenialEnds.Name = "CBDomDenialEnds" +Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) +Me.CBDomDenialEnds.TabIndex = 38 +Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" +Me.CBDomDenialEnds.UseVisualStyleBackColor = true +' +'alloworgasmComboBox +' +Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White +Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black +Me.alloworgasmComboBox.FormattingEnabled = true +Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) +Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) +Me.alloworgasmComboBox.Name = "alloworgasmComboBox" +Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) +Me.alloworgasmComboBox.TabIndex = 1 +' +'ruinorgasmComboBox +' +Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White +Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black +Me.ruinorgasmComboBox.FormattingEnabled = true +Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) +Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) +Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" +Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) +Me.ruinorgasmComboBox.TabIndex = 2 +' +'GBDomPetNames +' +Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray +Me.GBDomPetNames.Controls.Add(Me.Label74) +Me.GBDomPetNames.Controls.Add(Me.petnameBox7) +Me.GBDomPetNames.Controls.Add(Me.petnameBox8) +Me.GBDomPetNames.Controls.Add(Me.petnameBox1) +Me.GBDomPetNames.Controls.Add(Me.Label15) +Me.GBDomPetNames.Controls.Add(Me.petnameBox4) +Me.GBDomPetNames.Controls.Add(Me.petnameBox6) +Me.GBDomPetNames.Controls.Add(Me.petnameBox2) +Me.GBDomPetNames.Controls.Add(Me.Label11) +Me.GBDomPetNames.Controls.Add(Me.petnameBox5) +Me.GBDomPetNames.Controls.Add(Me.petnameBox3) +Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black +Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) +Me.GBDomPetNames.Name = "GBDomPetNames" +Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) +Me.GBDomPetNames.TabIndex = 134 +Me.GBDomPetNames.TabStop = false +Me.GBDomPetNames.Text = "Pet Names" +' +'Label74 +' +Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label74.ForeColor = System.Drawing.Color.Black +Me.Label74.Location = New System.Drawing.Point(8, 14) +Me.Label74.Name = "Label74" +Me.Label74.Size = New System.Drawing.Size(233, 13) +Me.Label74.TabIndex = 45 +Me.Label74.Text = "Great Mood" +Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'petnameBox7 +' +Me.petnameBox7.BackColor = System.Drawing.Color.White +Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox7.ForeColor = System.Drawing.Color.Black +Me.petnameBox7.Location = New System.Drawing.Point(8, 154) +Me.petnameBox7.Name = "petnameBox7" +Me.petnameBox7.Size = New System.Drawing.Size(114, 23) +Me.petnameBox7.TabIndex = 13 +Me.petnameBox7.Text = "bitch boy" +Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox8 +' +Me.petnameBox8.BackColor = System.Drawing.Color.White +Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox8.ForeColor = System.Drawing.Color.Black +Me.petnameBox8.Location = New System.Drawing.Point(128, 154) +Me.petnameBox8.Name = "petnameBox8" +Me.petnameBox8.Size = New System.Drawing.Size(113, 22) +Me.petnameBox8.TabIndex = 14 +Me.petnameBox8.Text = "slut" +Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox1 +' +Me.petnameBox1.BackColor = System.Drawing.Color.White +Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox1.ForeColor = System.Drawing.Color.Black +Me.petnameBox1.Location = New System.Drawing.Point(8, 32) +Me.petnameBox1.Name = "petnameBox1" +Me.petnameBox1.Size = New System.Drawing.Size(114, 23) +Me.petnameBox1.TabIndex = 7 +Me.petnameBox1.Text = "stroker" +Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label15 +' +Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label15.ForeColor = System.Drawing.Color.Black +Me.Label15.Location = New System.Drawing.Point(8, 136) +Me.Label15.Name = "Label15" +Me.Label15.Size = New System.Drawing.Size(233, 13) +Me.Label15.TabIndex = 44 +Me.Label15.Text = "Bad Mood" +Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'petnameBox4 +' +Me.petnameBox4.BackColor = System.Drawing.Color.White +Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox4.ForeColor = System.Drawing.Color.Black +Me.petnameBox4.Location = New System.Drawing.Point(128, 81) +Me.petnameBox4.Name = "petnameBox4" +Me.petnameBox4.Size = New System.Drawing.Size(113, 23) +Me.petnameBox4.TabIndex = 10 +Me.petnameBox4.Text = "loser" +Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox6 +' +Me.petnameBox6.BackColor = System.Drawing.Color.White +Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox6.ForeColor = System.Drawing.Color.Black +Me.petnameBox6.Location = New System.Drawing.Point(128, 107) +Me.petnameBox6.Name = "petnameBox6" +Me.petnameBox6.Size = New System.Drawing.Size(113, 23) +Me.petnameBox6.TabIndex = 12 +Me.petnameBox6.Text = "pet" +Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox2 +' +Me.petnameBox2.BackColor = System.Drawing.Color.White +Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox2.ForeColor = System.Drawing.Color.Black +Me.petnameBox2.Location = New System.Drawing.Point(128, 32) +Me.petnameBox2.Name = "petnameBox2" +Me.petnameBox2.Size = New System.Drawing.Size(114, 23) +Me.petnameBox2.TabIndex = 8 +Me.petnameBox2.Text = "wanker" +Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label11 +' +Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label11.ForeColor = System.Drawing.Color.Black +Me.Label11.Location = New System.Drawing.Point(5, 63) +Me.Label11.Name = "Label11" +Me.Label11.Size = New System.Drawing.Size(239, 13) +Me.Label11.TabIndex = 43 +Me.Label11.Text = "Neutral Mood" +Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'petnameBox5 +' +Me.petnameBox5.BackColor = System.Drawing.Color.White +Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox5.ForeColor = System.Drawing.Color.Black +Me.petnameBox5.Location = New System.Drawing.Point(8, 107) +Me.petnameBox5.Name = "petnameBox5" +Me.petnameBox5.Size = New System.Drawing.Size(114, 23) +Me.petnameBox5.TabIndex = 11 +Me.petnameBox5.Text = "baby" +Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'petnameBox3 +' +Me.petnameBox3.BackColor = System.Drawing.Color.White +Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.petnameBox3.ForeColor = System.Drawing.Color.Black +Me.petnameBox3.Location = New System.Drawing.Point(8, 81) +Me.petnameBox3.Name = "petnameBox3" +Me.petnameBox3.Size = New System.Drawing.Size(114, 23) +Me.petnameBox3.TabIndex = 9 +Me.petnameBox3.Text = "slave" +Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Label54 +' +Me.Label54.BackColor = System.Drawing.Color.Transparent +Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label54.ForeColor = System.Drawing.Color.Black +Me.Label54.Location = New System.Drawing.Point(7, 6) +Me.Label54.Name = "Label54" +Me.Label54.Size = New System.Drawing.Size(692, 21) +Me.Label54.TabIndex = 49 +Me.Label54.Text = "Domme Settings" +Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage10 +' +Me.TabPage10.BackColor = System.Drawing.Color.Silver +Me.TabPage10.Controls.Add(Me.Panel2) +Me.TabPage10.Location = New System.Drawing.Point(4, 22) +Me.TabPage10.Name = "TabPage10" +Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage10.Size = New System.Drawing.Size(720, 448) +Me.TabPage10.TabIndex = 9 +Me.TabPage10.Text = "Sub" +' +'Panel2 +' +Me.Panel2.BackColor = System.Drawing.Color.LightGray +Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel2.Controls.Add(Me.GroupBox22) +Me.Panel2.Controls.Add(Me.GroupBox45) +Me.Panel2.Controls.Add(Me.GroupBox35) +Me.Panel2.Controls.Add(Me.GroupBox13) +Me.Panel2.Controls.Add(Me.GroupBox7) +Me.Panel2.Controls.Add(Me.PictureBox12) +Me.Panel2.Controls.Add(Me.GroupBox32) +Me.Panel2.Controls.Add(Me.Label70) +Me.Panel2.Location = New System.Drawing.Point(6, 6) +Me.Panel2.Name = "Panel2" +Me.Panel2.Size = New System.Drawing.Size(708, 437) +Me.Panel2.TabIndex = 94 +' +'GroupBox22 +' +Me.GroupBox22.BackColor = System.Drawing.Color.LightGray +Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) +Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) +Me.GroupBox22.Controls.Add(Me.Label75) +Me.GroupBox22.Controls.Add(Me.Label77) +Me.GroupBox22.ForeColor = System.Drawing.Color.Black +Me.GroupBox22.Location = New System.Drawing.Point(440, 388) +Me.GroupBox22.Name = "GroupBox22" +Me.GroupBox22.Size = New System.Drawing.Size(259, 39) +Me.GroupBox22.TabIndex = 158 +Me.GroupBox22.TabStop = false +Me.GroupBox22.Text = "Writing Tasks" +' +'NBWritingTaskMax +' +Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) +Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMax.Name = "NBWritingTaskMax" +Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) +Me.NBWritingTaskMax.TabIndex = 168 +Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) +' +'NBWritingTaskMin +' +Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) +Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBWritingTaskMin.Name = "NBWritingTaskMin" +Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) +Me.NBWritingTaskMin.TabIndex = 167 +Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +' +'Label75 +' +Me.Label75.BackColor = System.Drawing.Color.Transparent +Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label75.ForeColor = System.Drawing.Color.Black +Me.Label75.Location = New System.Drawing.Point(184, 13) +Me.Label75.Name = "Label75" +Me.Label75.Size = New System.Drawing.Size(10, 17) +Me.Label75.TabIndex = 166 +Me.Label75.Text = "-" +Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label77 +' +Me.Label77.BackColor = System.Drawing.Color.Transparent +Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label77.ForeColor = System.Drawing.Color.Black +Me.Label77.Location = New System.Drawing.Point(12, 15) +Me.Label77.Name = "Label77" +Me.Label77.Size = New System.Drawing.Size(126, 17) +Me.Label77.TabIndex = 165 +Me.Label77.Tag = "" +Me.Label77.Text = "Line Amount Range:" +Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox45 +' +Me.GroupBox45.BackColor = System.Drawing.Color.LightGray +Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) +Me.GroupBox45.Controls.Add(Me.CBCBTBalls) +Me.GroupBox45.Controls.Add(Me.CBCBTCock) +Me.GroupBox45.Controls.Add(Me.CBTSlider) +Me.GroupBox45.ForeColor = System.Drawing.Color.Black +Me.GroupBox45.Location = New System.Drawing.Point(440, 294) +Me.GroupBox45.Name = "GroupBox45" +Me.GroupBox45.Size = New System.Drawing.Size(259, 50) +Me.GroupBox45.TabIndex = 155 +Me.GroupBox45.TabStop = false +Me.GroupBox45.Text = "CBT" +' +'LBLCBTSlider +' +Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black +Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) +Me.LBLCBTSlider.Name = "LBLCBTSlider" +Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) +Me.LBLCBTSlider.TabIndex = 168 +Me.LBLCBTSlider.Text = "CBT Level: 3" +Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBCBTBalls +' +Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) +Me.CBCBTBalls.Name = "CBCBTBalls" +Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) +Me.CBCBTBalls.TabIndex = 1 +Me.CBCBTBalls.Text = "Ball Torture" +Me.CBCBTBalls.UseVisualStyleBackColor = true +' +'CBCBTCock +' +Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) +Me.CBCBTCock.Name = "CBCBTCock" +Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) +Me.CBCBTCock.TabIndex = 0 +Me.CBCBTCock.Text = "Cock Torture" +Me.CBCBTCock.UseVisualStyleBackColor = true +' +'CBTSlider +' +Me.CBTSlider.AutoSize = false +Me.CBTSlider.LargeChange = 1 +Me.CBTSlider.Location = New System.Drawing.Point(134, 13) +Me.CBTSlider.Maximum = 5 +Me.CBTSlider.Minimum = 1 +Me.CBTSlider.Name = "CBTSlider" +Me.CBTSlider.Size = New System.Drawing.Size(110, 25) +Me.CBTSlider.TabIndex = 166 +Me.CBTSlider.Value = 3 +' +'GroupBox35 +' +Me.GroupBox35.BackColor = System.Drawing.Color.LightGray +Me.GroupBox35.Controls.Add(Me.GroupBoxSorry) +Me.GroupBox35.Controls.Add(Me.GroupBox39) +Me.GroupBox35.Controls.Add(Me.GroupBox38) +Me.GroupBox35.Controls.Add(Me.GroupBox37) +Me.GroupBox35.Controls.Add(Me.GroupBox36) +Me.GroupBox35.ForeColor = System.Drawing.Color.Black +Me.GroupBox35.Location = New System.Drawing.Point(440, 6) +Me.GroupBox35.Name = "GroupBox35" +Me.GroupBox35.Size = New System.Drawing.Size(259, 287) +Me.GroupBox35.TabIndex = 154 +Me.GroupBox35.TabStop = false +Me.GroupBox35.Text = "Key Phrases" +' +'GroupBoxSorry +' +Me.GroupBoxSorry.Controls.Add(Me.TBSorry) +Me.GroupBoxSorry.Location = New System.Drawing.Point(6, 145) +Me.GroupBoxSorry.Name = "GroupBoxSorry" +Me.GroupBoxSorry.Size = New System.Drawing.Size(247, 46) +Me.GroupBoxSorry.TabIndex = 3 +Me.GroupBoxSorry.TabStop = false +Me.GroupBoxSorry.Tag = "" +Me.GroupBoxSorry.Text = "Sorry" +' +'TBSorry +' +Me.TBSorry.Location = New System.Drawing.Point(9, 16) +Me.TBSorry.Name = "TBSorry" +Me.TBSorry.Size = New System.Drawing.Size(229, 20) +Me.TBSorry.TabIndex = 0 +Me.TBSorry.Text = "sorry, apologize, excuse" +' +'GroupBox39 +' +Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) +Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) +Me.GroupBox39.Controls.Add(Me.TBHonorific) +Me.GroupBox39.Location = New System.Drawing.Point(6, 191) +Me.GroupBox39.Name = "GroupBox39" +Me.GroupBox39.Size = New System.Drawing.Size(247, 89) +Me.GroupBox39.TabIndex = 3 +Me.GroupBox39.TabStop = false +Me.GroupBox39.Tag = "" +Me.GroupBox39.Text = "Honorific" +' +'CBHonorificInclude +' +Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black +Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 44) +Me.CBHonorificInclude.Name = "CBHonorificInclude" +Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) +Me.CBHonorificInclude.TabIndex = 40 +Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" +Me.CBHonorificInclude.UseVisualStyleBackColor = true +' +'CBHonorificCapitalized +' +Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black +Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 66) +Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" +Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) +Me.CBHonorificCapitalized.TabIndex = 39 +Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" +Me.CBHonorificCapitalized.UseVisualStyleBackColor = true +' +'TBHonorific +' +Me.TBHonorific.Location = New System.Drawing.Point(9, 16) +Me.TBHonorific.Name = "TBHonorific" +Me.TBHonorific.Size = New System.Drawing.Size(229, 20) +Me.TBHonorific.TabIndex = 0 +Me.TBHonorific.Text = "Mistress" +' +'GroupBox38 +' +Me.GroupBox38.Controls.Add(Me.TBNo) +Me.GroupBox38.Location = New System.Drawing.Point(6, 100) +Me.GroupBox38.Name = "GroupBox38" +Me.GroupBox38.Size = New System.Drawing.Size(247, 46) +Me.GroupBox38.TabIndex = 2 +Me.GroupBox38.TabStop = false +Me.GroupBox38.Tag = "" +Me.GroupBox38.Text = "No" +' +'TBNo +' +Me.TBNo.Location = New System.Drawing.Point(9, 16) +Me.TBNo.Name = "TBNo" +Me.TBNo.Size = New System.Drawing.Size(229, 20) +Me.TBNo.TabIndex = 0 +Me.TBNo.Text = "no, nah, nope" +' +'GroupBox37 +' +Me.GroupBox37.Controls.Add(Me.TBYes) +Me.GroupBox37.Location = New System.Drawing.Point(6, 57) +Me.GroupBox37.Name = "GroupBox37" +Me.GroupBox37.Size = New System.Drawing.Size(247, 46) +Me.GroupBox37.TabIndex = 1 +Me.GroupBox37.TabStop = false +Me.GroupBox37.Tag = "" +Me.GroupBox37.Text = "Yes" +' +'TBYes +' +Me.TBYes.Location = New System.Drawing.Point(9, 16) +Me.TBYes.Name = "TBYes" +Me.TBYes.Size = New System.Drawing.Size(229, 20) +Me.TBYes.TabIndex = 0 +Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" +' +'GroupBox36 +' +Me.GroupBox36.Controls.Add(Me.TBGreeting) +Me.GroupBox36.Location = New System.Drawing.Point(6, 17) +Me.GroupBox36.Name = "GroupBox36" +Me.GroupBox36.Size = New System.Drawing.Size(247, 46) +Me.GroupBox36.TabIndex = 0 +Me.GroupBox36.TabStop = false +Me.GroupBox36.Tag = "" +Me.GroupBox36.Text = "Greeting" +' +'TBGreeting +' +Me.TBGreeting.Location = New System.Drawing.Point(9, 16) +Me.TBGreeting.Name = "TBGreeting" +Me.TBGreeting.Size = New System.Drawing.Size(229, 20) +Me.TBGreeting.TabIndex = 0 +Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" +' +'GroupBox13 +' +Me.GroupBox13.BackColor = System.Drawing.Color.LightGray +Me.GroupBox13.Controls.Add(Me.Label34) +Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) +Me.GroupBox13.ForeColor = System.Drawing.Color.Black +Me.GroupBox13.Location = New System.Drawing.Point(440, 346) +Me.GroupBox13.Name = "GroupBox13" +Me.GroupBox13.Size = New System.Drawing.Size(259, 39) +Me.GroupBox13.TabIndex = 157 +Me.GroupBox13.TabStop = false +Me.GroupBox13.Text = "Routine" +' +'Label34 +' +Me.Label34.BackColor = System.Drawing.Color.Transparent +Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label34.ForeColor = System.Drawing.Color.Black +Me.Label34.Location = New System.Drawing.Point(12, 15) +Me.Label34.Name = "Label34" +Me.Label34.Size = New System.Drawing.Size(116, 17) +Me.Label34.TabIndex = 140 +Me.Label34.Text = "Daily Wake Up Time:" +Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'TimeBoxWakeUp +' +Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time +Me.TimeBoxWakeUp.Location = New System.Drawing.Point(134, 12) +Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" +Me.TimeBoxWakeUp.ShowUpDown = true +Me.TimeBoxWakeUp.Size = New System.Drawing.Size(110, 20) +Me.TimeBoxWakeUp.TabIndex = 0 +' +'GroupBox7 +' +Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) +Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) +Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) +Me.GroupBox7.Controls.Add(Me.Label133) +Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) +Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) +Me.GroupBox7.Controls.Add(Me.Label78) +Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) +Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) +Me.GroupBox7.Controls.Add(Me.Label129) +Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) +Me.GroupBox7.Controls.Add(Me.LBLMaxHold) +Me.GroupBox7.Controls.Add(Me.Label79) +Me.GroupBox7.Controls.Add(Me.NBLongEdge) +Me.GroupBox7.Controls.Add(Me.LBLMinHold) +Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) +Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) +Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) +Me.GroupBox7.Controls.Add(Me.Label55) +Me.GroupBox7.Controls.Add(Me.Label81) +Me.GroupBox7.Controls.Add(Me.Label5) +Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) +Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) +Me.GroupBox7.Controls.Add(Me.Label131) +Me.GroupBox7.Location = New System.Drawing.Point(7, 201) +Me.GroupBox7.Name = "GroupBox7" +Me.GroupBox7.Size = New System.Drawing.Size(226, 226) +Me.GroupBox7.TabIndex = 152 +Me.GroupBox7.TabStop = false +Me.GroupBox7.Text = "Edging" +' +'LBLMaxExtremeHold +' +Me.LBLMaxExtremeHold.AutoSize = true +Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) +Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" +Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMaxExtremeHold.TabIndex = 192 +Me.LBLMaxExtremeHold.Text = "minutes" +Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLMinExtremeHold +' +Me.LBLMinExtremeHold.AutoSize = true +Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) +Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" +Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMinExtremeHold.TabIndex = 190 +Me.LBLMinExtremeHold.Text = "minutes" +Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBExtremeHoldMin +' +Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) +Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" +Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) +Me.NBExtremeHoldMin.TabIndex = 189 +Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label133 +' +Me.Label133.BackColor = System.Drawing.Color.Transparent +Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label133.ForeColor = System.Drawing.Color.Black +Me.Label133.Location = New System.Drawing.Point(6, 105) +Me.Label133.Name = "Label133" +Me.Label133.Size = New System.Drawing.Size(119, 17) +Me.Label133.TabIndex = 187 +Me.Label133.Text = "Min Extreme Hold Time:" +Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBExtremeHoldMax +' +Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) +Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" +Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) +Me.NBExtremeHoldMax.TabIndex = 188 +Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'LBLMaxLongHold +' +Me.LBLMaxLongHold.AutoSize = true +Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) +Me.LBLMaxLongHold.Name = "LBLMaxLongHold" +Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMaxLongHold.TabIndex = 186 +Me.LBLMaxLongHold.Text = "minutes" +Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label78 +' +Me.Label78.BackColor = System.Drawing.Color.Transparent +Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label78.ForeColor = System.Drawing.Color.Black +Me.Label78.Location = New System.Drawing.Point(6, 83) +Me.Label78.Name = "Label78" +Me.Label78.Size = New System.Drawing.Size(113, 17) +Me.Label78.TabIndex = 185 +Me.Label78.Text = "Max Long Hold Time:" +Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLMinLongHold +' +Me.LBLMinLongHold.AutoSize = true +Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) +Me.LBLMinLongHold.Name = "LBLMinLongHold" +Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMinLongHold.TabIndex = 184 +Me.LBLMinLongHold.Text = "minutes" +Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBLongHoldMin +' +Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) +Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBLongHoldMin.Name = "NBLongHoldMin" +Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) +Me.NBLongHoldMin.TabIndex = 183 +Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label129 +' +Me.Label129.BackColor = System.Drawing.Color.Transparent +Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label129.ForeColor = System.Drawing.Color.Black +Me.Label129.Location = New System.Drawing.Point(6, 61) +Me.Label129.Name = "Label129" +Me.Label129.Size = New System.Drawing.Size(113, 17) +Me.Label129.TabIndex = 181 +Me.Label129.Text = "Min Long Hold Time:" +Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBLongHoldMax +' +Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) +Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBLongHoldMax.Name = "NBLongHoldMax" +Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) +Me.NBLongHoldMax.TabIndex = 182 +Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'LBLMaxHold +' +Me.LBLMaxHold.AutoSize = true +Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) +Me.LBLMaxHold.Name = "LBLMaxHold" +Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) +Me.LBLMaxHold.TabIndex = 180 +Me.LBLMaxHold.Text = "minutes" +Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label79 +' +Me.Label79.BackColor = System.Drawing.Color.Transparent +Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label79.ForeColor = System.Drawing.Color.Black +Me.Label79.Location = New System.Drawing.Point(6, 39) +Me.Label79.Name = "Label79" +Me.Label79.Size = New System.Drawing.Size(113, 17) +Me.Label79.TabIndex = 178 +Me.Label79.Text = "Max Hold Edge Time:" +Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBLongEdge +' +Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) +Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBLongEdge.Name = "NBLongEdge" +Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) +Me.NBLongEdge.TabIndex = 152 +Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) +' +'LBLMinHold +' +Me.LBLMinHold.AutoSize = true +Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) +Me.LBLMinHold.Name = "LBLMinHold" +Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) +Me.LBLMinHold.TabIndex = 177 +Me.LBLMinHold.Text = "seconds" +Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBEdgeUseAvg +' +Me.CBEdgeUseAvg.AutoSize = true +Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) +Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" +Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) +Me.CBEdgeUseAvg.TabIndex = 174 +Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" +Me.CBEdgeUseAvg.UseVisualStyleBackColor = true +' +'CBLongEdgeInterrupts +' +Me.CBLongEdgeInterrupts.Checked = true +Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black +Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) +Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" +Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) +Me.CBLongEdgeInterrupts.TabIndex = 169 +Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" +Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = true +' +'NBHoldTheEdgeMin +' +Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) +Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" +Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) +Me.NBHoldTheEdgeMin.TabIndex = 176 +Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label55 +' +Me.Label55.BackColor = System.Drawing.Color.Transparent +Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label55.ForeColor = System.Drawing.Color.Black +Me.Label55.Location = New System.Drawing.Point(7, 149) +Me.Label55.Name = "Label55" +Me.Label55.Size = New System.Drawing.Size(116, 17) +Me.Label55.TabIndex = 170 +Me.Label55.Text = "Long Edge Threshold:" +Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label81 +' +Me.Label81.BackColor = System.Drawing.Color.Transparent +Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label81.ForeColor = System.Drawing.Color.Black +Me.Label81.Location = New System.Drawing.Point(6, 17) +Me.Label81.Name = "Label81" +Me.Label81.Size = New System.Drawing.Size(113, 17) +Me.Label81.TabIndex = 153 +Me.Label81.Text = "Min Hold Edge Time:" +Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label5 +' +Me.Label5.AutoSize = true +Me.Label5.Location = New System.Drawing.Point(174, 151) +Me.Label5.Name = "Label5" +Me.Label5.Size = New System.Drawing.Size(43, 13) +Me.Label5.TabIndex = 175 +Me.Label5.Text = "minutes" +Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'NBHoldTheEdgeMax +' +Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) +Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) +Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" +Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) +Me.NBHoldTheEdgeMax.TabIndex = 155 +Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'CBLongEdgeTaunts +' +Me.CBLongEdgeTaunts.Checked = true +Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black +Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) +Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" +Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) +Me.CBLongEdgeTaunts.TabIndex = 172 +Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" +Me.CBLongEdgeTaunts.UseVisualStyleBackColor = true +' +'Label131 +' +Me.Label131.BackColor = System.Drawing.Color.Transparent +Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label131.ForeColor = System.Drawing.Color.Black +Me.Label131.Location = New System.Drawing.Point(6, 127) +Me.Label131.Name = "Label131" +Me.Label131.Size = New System.Drawing.Size(128, 17) +Me.Label131.TabIndex = 191 +Me.Label131.Text = "Max Extreme Hold Time:" +Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'PictureBox12 +' +Me.PictureBox12.BackColor = System.Drawing.Color.LightGray +Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox12.Location = New System.Drawing.Point(9, 6) +Me.PictureBox12.Name = "PictureBox12" +Me.PictureBox12.Size = New System.Drawing.Size(160, 19) +Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox12.TabIndex = 149 +Me.PictureBox12.TabStop = false +' +'GroupBox32 +' +Me.GroupBox32.BackColor = System.Drawing.Color.LightGray +Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) +Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) +Me.GroupBox32.Controls.Add(Me.CBOwnChastity) +Me.GroupBox32.Controls.Add(Me.CBChastityPA) +Me.GroupBox32.Controls.Add(Me.CBHimHer) +Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) +Me.GroupBox32.Controls.Add(Me.CBCockToClit) +Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) +Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) +Me.GroupBox32.Controls.Add(Me.CBSubPierced) +Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) +Me.GroupBox32.Controls.Add(Me.TBSubHairColor) +Me.GroupBox32.Controls.Add(Me.Label63) +Me.GroupBox32.Controls.Add(Me.LBLSubInches) +Me.GroupBox32.Controls.Add(Me.subAgeNumBox) +Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) +Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) +Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) +Me.GroupBox32.Controls.Add(Me.LBLSubEye) +Me.GroupBox32.Controls.Add(Me.LBLSubHair) +Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) +Me.GroupBox32.Controls.Add(Me.LBLSubAge) +Me.GroupBox32.ForeColor = System.Drawing.Color.Black +Me.GroupBox32.Location = New System.Drawing.Point(7, 30) +Me.GroupBox32.Name = "GroupBox32" +Me.GroupBox32.Size = New System.Drawing.Size(427, 165) +Me.GroupBox32.TabIndex = 62 +Me.GroupBox32.TabStop = false +Me.GroupBox32.Text = "Stats && Information" +' +'LBLSubBdayFormat +' +Me.LBLSubBdayFormat.AutoSize = true +Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) +Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" +Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) +Me.LBLSubBdayFormat.TabIndex = 161 +Me.LBLSubBdayFormat.Text = "mm/dd" +Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBChastitySpikes +' +Me.CBChastitySpikes.AutoSize = true +Me.CBChastitySpikes.Enabled = false +Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) +Me.CBChastitySpikes.Name = "CBChastitySpikes" +Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) +Me.CBChastitySpikes.TabIndex = 4 +Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" +Me.CBChastitySpikes.UseVisualStyleBackColor = true +' +'CBOwnChastity +' +Me.CBOwnChastity.AutoSize = true +Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) +Me.CBOwnChastity.Name = "CBOwnChastity" +Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) +Me.CBOwnChastity.TabIndex = 5 +Me.CBOwnChastity.Text = "Own Device a Chastity Device" +Me.CBOwnChastity.UseVisualStyleBackColor = true +' +'CBChastityPA +' +Me.CBChastityPA.AutoSize = true +Me.CBChastityPA.Enabled = false +Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) +Me.CBChastityPA.Name = "CBChastityPA" +Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) +Me.CBChastityPA.TabIndex = 3 +Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" +Me.CBChastityPA.UseVisualStyleBackColor = true +' +'CBHimHer +' +Me.CBHimHer.AutoSize = true +Me.CBHimHer.Location = New System.Drawing.Point(191, 65) +Me.CBHimHer.Name = "CBHimHer" +Me.CBHimHer.Size = New System.Drawing.Size(219, 17) +Me.CBHimHer.TabIndex = 3 +Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" +Me.CBHimHer.UseVisualStyleBackColor = true +' +'CBBallsToPussy +' +Me.CBBallsToPussy.AutoSize = true +Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) +Me.CBBallsToPussy.Name = "CBBallsToPussy" +Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) +Me.CBBallsToPussy.TabIndex = 160 +Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" +Me.CBBallsToPussy.UseVisualStyleBackColor = true +' +'CBCockToClit +' +Me.CBCockToClit.AutoSize = true +Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) +Me.CBCockToClit.Name = "CBCockToClit" +Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) +Me.CBCockToClit.TabIndex = 159 +Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" +Me.CBCockToClit.UseVisualStyleBackColor = true +' +'NBBirthdayDay +' +Me.NBBirthdayDay.BackColor = System.Drawing.Color.White +Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black +Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) +Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) +Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBBirthdayDay.Name = "NBBirthdayDay" +Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) +Me.NBBirthdayDay.TabIndex = 144 +Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'CBSubCircumcised +' +Me.CBSubCircumcised.AutoSize = true +Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black +Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) +Me.CBSubCircumcised.Name = "CBSubCircumcised" +Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) +Me.CBSubCircumcised.TabIndex = 157 +Me.CBSubCircumcised.Text = "Circumcised" +Me.CBSubCircumcised.UseVisualStyleBackColor = true +' +'CBSubPierced +' +Me.CBSubPierced.AutoSize = true +Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBSubPierced.ForeColor = System.Drawing.Color.Black +Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) +Me.CBSubPierced.Name = "CBSubPierced" +Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) +Me.CBSubPierced.TabIndex = 156 +Me.CBSubPierced.Text = "Pierced" +Me.CBSubPierced.UseVisualStyleBackColor = true +' +'TBSubEyeColor +' +Me.TBSubEyeColor.BackColor = System.Drawing.Color.White +Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black +Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) +Me.TBSubEyeColor.Name = "TBSubEyeColor" +Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) +Me.TBSubEyeColor.TabIndex = 155 +Me.TBSubEyeColor.Text = "brown" +' +'TBSubHairColor +' +Me.TBSubHairColor.BackColor = System.Drawing.Color.White +Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black +Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) +Me.TBSubHairColor.Name = "TBSubHairColor" +Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) +Me.TBSubHairColor.TabIndex = 154 +Me.TBSubHairColor.Text = "brown" +' +'Label63 +' +Me.Label63.AutoSize = true +Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label63.ForeColor = System.Drawing.Color.Black +Me.Label63.Location = New System.Drawing.Point(113, 41) +Me.Label63.Name = "Label63" +Me.Label63.Size = New System.Drawing.Size(12, 13) +Me.Label63.TabIndex = 143 +Me.Label63.Text = "/" +Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLSubInches +' +Me.LBLSubInches.AutoSize = true +Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) +Me.LBLSubInches.Name = "LBLSubInches" +Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) +Me.LBLSubInches.TabIndex = 124 +Me.LBLSubInches.Text = "inches" +Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'subAgeNumBox +' +Me.subAgeNumBox.BackColor = System.Drawing.Color.White +Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black +Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) +Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) +Me.subAgeNumBox.Name = "subAgeNumBox" +Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) +Me.subAgeNumBox.TabIndex = 27 +Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) +' +'NBBirthdayMonth +' +Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White +Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black +Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) +Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) +Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBBirthdayMonth.Name = "NBBirthdayMonth" +Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) +Me.NBBirthdayMonth.TabIndex = 41 +Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'LBLSubCockSize +' +Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent +Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black +Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) +Me.LBLSubCockSize.Name = "LBLSubCockSize" +Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) +Me.LBLSubCockSize.TabIndex = 142 +Me.LBLSubCockSize.Text = "Cock Size:" +Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CockSizeNumBox +' +Me.CockSizeNumBox.BackColor = System.Drawing.Color.White +Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black +Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) +Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) +Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.CockSizeNumBox.Name = "CockSizeNumBox" +Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) +Me.CockSizeNumBox.TabIndex = 123 +Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) +' +'LBLSubEye +' +Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent +Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubEye.ForeColor = System.Drawing.Color.Black +Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) +Me.LBLSubEye.Name = "LBLSubEye" +Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) +Me.LBLSubEye.TabIndex = 141 +Me.LBLSubEye.Text = "Eye Color" +Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLSubHair +' +Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent +Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubHair.ForeColor = System.Drawing.Color.Black +Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) +Me.LBLSubHair.Name = "LBLSubHair" +Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) +Me.LBLSubHair.TabIndex = 140 +Me.LBLSubHair.Text = "Hair Color" +Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLSubBirthday +' +Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent +Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black +Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) +Me.LBLSubBirthday.Name = "LBLSubBirthday" +Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) +Me.LBLSubBirthday.TabIndex = 139 +Me.LBLSubBirthday.Text = "Birthday:" +Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLSubAge +' +Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent +Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubAge.ForeColor = System.Drawing.Color.Black +Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) +Me.LBLSubAge.Name = "LBLSubAge" +Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) +Me.LBLSubAge.TabIndex = 138 +Me.LBLSubAge.Text = "Age:" +Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label70 +' +Me.Label70.BackColor = System.Drawing.Color.Transparent +Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label70.ForeColor = System.Drawing.Color.Black +Me.Label70.Location = New System.Drawing.Point(7, 6) +Me.Label70.Name = "Label70" +Me.Label70.Size = New System.Drawing.Size(692, 21) +Me.Label70.TabIndex = 49 +Me.Label70.Text = "Sub Settings" +Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage16 +' +Me.TabPage16.BackColor = System.Drawing.Color.Silver +Me.TabPage16.Controls.Add(Me.Panel9) +Me.TabPage16.Location = New System.Drawing.Point(4, 22) +Me.TabPage16.Name = "TabPage16" +Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage16.Size = New System.Drawing.Size(720, 448) +Me.TabPage16.TabIndex = 14 +Me.TabPage16.Text = "Scripts" +' +'Panel9 +' +Me.Panel9.BackColor = System.Drawing.Color.LightGray +Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel9.Controls.Add(Me.BTNScriptAvailable) +Me.Panel9.Controls.Add(Me.BTNScriptNone) +Me.Panel9.Controls.Add(Me.BTNScriptAll) +Me.Panel9.Controls.Add(Me.BTNScriptOpen) +Me.Panel9.Controls.Add(Me.LBLScriptReq) +Me.Panel9.Controls.Add(Me.GroupBox31) +Me.Panel9.Controls.Add(Me.TCScripts) +Me.Panel9.Controls.Add(Me.GroupBox42) +Me.Panel9.Controls.Add(Me.PictureBox1) +Me.Panel9.Controls.Add(Me.GroupBox43) +Me.Panel9.Controls.Add(Me.Label104) +Me.Panel9.Location = New System.Drawing.Point(6, 6) +Me.Panel9.Name = "Panel9" +Me.Panel9.Size = New System.Drawing.Size(708, 437) +Me.Panel9.TabIndex = 94 +' +'BTNScriptAvailable +' +Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) +Me.BTNScriptAvailable.Name = "BTNScriptAvailable" +Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) +Me.BTNScriptAvailable.TabIndex = 160 +Me.BTNScriptAvailable.Text = "Select Available" +Me.BTNScriptAvailable.UseVisualStyleBackColor = true +' +'BTNScriptNone +' +Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) +Me.BTNScriptNone.Name = "BTNScriptNone" +Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) +Me.BTNScriptNone.TabIndex = 159 +Me.BTNScriptNone.Text = "Select None" +Me.BTNScriptNone.UseVisualStyleBackColor = true +' +'BTNScriptAll +' +Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) +Me.BTNScriptAll.Name = "BTNScriptAll" +Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) +Me.BTNScriptAll.TabIndex = 158 +Me.BTNScriptAll.Text = "Select All" +Me.BTNScriptAll.UseVisualStyleBackColor = true +' +'BTNScriptOpen +' +Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) +Me.BTNScriptOpen.Name = "BTNScriptOpen" +Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) +Me.BTNScriptOpen.TabIndex = 157 +Me.BTNScriptOpen.Text = "Open Script" +Me.BTNScriptOpen.UseVisualStyleBackColor = true +' +'LBLScriptReq +' +Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray +Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green +Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) +Me.LBLScriptReq.Name = "LBLScriptReq" +Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) +Me.LBLScriptReq.TabIndex = 156 +Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox31 +' +Me.GroupBox31.Controls.Add(Me.RTBScriptReq) +Me.GroupBox31.Location = New System.Drawing.Point(314, 169) +Me.GroupBox31.Name = "GroupBox31" +Me.GroupBox31.Size = New System.Drawing.Size(385, 110) +Me.GroupBox31.TabIndex = 155 +Me.GroupBox31.TabStop = false +Me.GroupBox31.Text = "Requirements" +' +'RTBScriptReq +' +Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) +Me.RTBScriptReq.Name = "RTBScriptReq" +Me.RTBScriptReq.ReadOnly = true +Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) +Me.RTBScriptReq.TabIndex = 0 +Me.RTBScriptReq.Text = "" +' +'TCScripts +' +Me.TCScripts.Controls.Add(Me.TabPage21) +Me.TCScripts.Controls.Add(Me.TabPage17) +Me.TCScripts.Controls.Add(Me.TabPage18) +Me.TCScripts.Controls.Add(Me.TabPage19) +Me.TCScripts.Location = New System.Drawing.Point(9, 31) +Me.TCScripts.Name = "TCScripts" +Me.TCScripts.SelectedIndex = 0 +Me.TCScripts.Size = New System.Drawing.Size(299, 248) +Me.TCScripts.TabIndex = 154 +' +'TabPage21 +' +Me.TabPage21.BackColor = System.Drawing.Color.Silver +Me.TabPage21.Controls.Add(Me.CLBStartList) +Me.TabPage21.Location = New System.Drawing.Point(4, 22) +Me.TabPage21.Name = "TabPage21" +Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage21.Size = New System.Drawing.Size(291, 222) +Me.TabPage21.TabIndex = 4 +Me.TabPage21.Text = "Start" +' +'CLBStartList +' +Me.CLBStartList.FormattingEnabled = true +Me.CLBStartList.Location = New System.Drawing.Point(4, 4) +Me.CLBStartList.Name = "CLBStartList" +Me.CLBStartList.Size = New System.Drawing.Size(283, 214) +Me.CLBStartList.Sorted = true +Me.CLBStartList.TabIndex = 155 +' +'TabPage17 +' +Me.TabPage17.BackColor = System.Drawing.Color.Silver +Me.TabPage17.Controls.Add(Me.CLBModuleList) +Me.TabPage17.Location = New System.Drawing.Point(4, 22) +Me.TabPage17.Name = "TabPage17" +Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage17.Size = New System.Drawing.Size(291, 222) +Me.TabPage17.TabIndex = 5 +Me.TabPage17.Text = "Modules" +' +'CLBModuleList +' +Me.CLBModuleList.FormattingEnabled = true +Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) +Me.CLBModuleList.Name = "CLBModuleList" +Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) +Me.CLBModuleList.Sorted = true +Me.CLBModuleList.TabIndex = 156 +' +'TabPage18 +' +Me.TabPage18.BackColor = System.Drawing.Color.Silver +Me.TabPage18.Controls.Add(Me.CLBLinkList) +Me.TabPage18.Location = New System.Drawing.Point(4, 22) +Me.TabPage18.Name = "TabPage18" +Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage18.Size = New System.Drawing.Size(291, 222) +Me.TabPage18.TabIndex = 6 +Me.TabPage18.Text = "Link" +' +'CLBLinkList +' +Me.CLBLinkList.FormattingEnabled = true +Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) +Me.CLBLinkList.Name = "CLBLinkList" +Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) +Me.CLBLinkList.Sorted = true +Me.CLBLinkList.TabIndex = 156 +' +'TabPage19 +' +Me.TabPage19.BackColor = System.Drawing.Color.Silver +Me.TabPage19.Controls.Add(Me.CLBEndList) +Me.TabPage19.Location = New System.Drawing.Point(4, 22) +Me.TabPage19.Name = "TabPage19" +Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage19.Size = New System.Drawing.Size(291, 222) +Me.TabPage19.TabIndex = 7 +Me.TabPage19.Text = "End" +' +'CLBEndList +' +Me.CLBEndList.FormattingEnabled = true +Me.CLBEndList.Location = New System.Drawing.Point(4, 4) +Me.CLBEndList.Name = "CLBEndList" +Me.CLBEndList.Size = New System.Drawing.Size(283, 214) +Me.CLBEndList.Sorted = true +Me.CLBEndList.TabIndex = 156 +' +'GroupBox42 +' +Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) +Me.GroupBox42.Location = New System.Drawing.Point(314, 53) +Me.GroupBox42.Name = "GroupBox42" +Me.GroupBox42.Size = New System.Drawing.Size(385, 110) +Me.GroupBox42.TabIndex = 153 +Me.GroupBox42.TabStop = false +Me.GroupBox42.Text = "Description" +' +'RTBScriptDesc +' +Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) +Me.RTBScriptDesc.Name = "RTBScriptDesc" +Me.RTBScriptDesc.ReadOnly = true +Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) +Me.RTBScriptDesc.TabIndex = 0 +Me.RTBScriptDesc.Text = "" +' +'PictureBox1 +' +Me.PictureBox1.BackColor = System.Drawing.Color.LightGray +Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox1.Location = New System.Drawing.Point(9, 6) +Me.PictureBox1.Name = "PictureBox1" +Me.PictureBox1.Size = New System.Drawing.Size(160, 19) +Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox1.TabIndex = 151 +Me.PictureBox1.TabStop = false +' +'GroupBox43 +' +Me.GroupBox43.BackColor = System.Drawing.Color.LightGray +Me.GroupBox43.Controls.Add(Me.Label98) +Me.GroupBox43.ForeColor = System.Drawing.Color.Black +Me.GroupBox43.Location = New System.Drawing.Point(7, 331) +Me.GroupBox43.Name = "GroupBox43" +Me.GroupBox43.Size = New System.Drawing.Size(692, 92) +Me.GroupBox43.TabIndex = 65 +Me.GroupBox43.TabStop = false +Me.GroupBox43.Text = "Description" +' +'Label98 +' +Me.Label98.BackColor = System.Drawing.Color.Transparent +Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label98.ForeColor = System.Drawing.Color.Black +Me.Label98.Location = New System.Drawing.Point(6, 16) +Me.Label98.Name = "Label98" +Me.Label98.Size = New System.Drawing.Size(680, 73) +Me.Label98.TabIndex = 62 +Me.Label98.Text = resources.GetString("Label98.Text") +Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label104 +' +Me.Label104.BackColor = System.Drawing.Color.Transparent +Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label104.ForeColor = System.Drawing.Color.Black +Me.Label104.Location = New System.Drawing.Point(7, 6) +Me.Label104.Name = "Label104" +Me.Label104.Size = New System.Drawing.Size(692, 21) +Me.Label104.TabIndex = 49 +Me.Label104.Text = "Script Selection" +Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage7 +' +Me.TabPage7.BackColor = System.Drawing.Color.Silver +Me.TabPage7.Controls.Add(Me.TabControl4) +Me.TabPage7.Location = New System.Drawing.Point(4, 22) +Me.TabPage7.Name = "TabPage7" +Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage7.Size = New System.Drawing.Size(720, 448) +Me.TabPage7.TabIndex = 11 +Me.TabPage7.Text = "Images" +' +'TabControl4 +' +Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) +Me.TabControl4.Controls.Add(Me.TpImagesGenre) +Me.TabControl4.Location = New System.Drawing.Point(6, 6) +Me.TabControl4.Name = "TabControl4" +Me.TabControl4.SelectedIndex = 0 +Me.TabControl4.Size = New System.Drawing.Size(708, 437) +Me.TabControl4.TabIndex = 154 +' +'TpImagesUrlFiles +' +Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray +Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) +Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) +Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) +Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) +Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) +Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) +Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" +Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) +Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) +Me.TpImagesUrlFiles.TabIndex = 0 +Me.TpImagesUrlFiles.Text = "URL Files" +' +'CBURLPreview +' +Me.CBURLPreview.AutoSize = true +Me.CBURLPreview.Checked = true +Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) +Me.CBURLPreview.Name = "CBURLPreview" +Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) +Me.CBURLPreview.TabIndex = 163 +Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" +Me.CBURLPreview.UseVisualStyleBackColor = true +' +'GroupBox66 +' +Me.GroupBox66.Controls.Add(Me.PBURLPreview) +Me.GroupBox66.Location = New System.Drawing.Point(344, 3) +Me.GroupBox66.Name = "GroupBox66" +Me.GroupBox66.Size = New System.Drawing.Size(350, 309) +Me.GroupBox66.TabIndex = 162 +Me.GroupBox66.TabStop = false +Me.GroupBox66.Text = "Example Preview" +' +'PBURLPreview +' +Me.PBURLPreview.BackColor = System.Drawing.Color.Black +Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) +Me.PBURLPreview.Name = "PBURLPreview" +Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) +Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.PBURLPreview.TabIndex = 0 +Me.PBURLPreview.TabStop = false +' +'BTNURLFilesAll +' +Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) +Me.BTNURLFilesAll.Name = "BTNURLFilesAll" +Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) +Me.BTNURLFilesAll.TabIndex = 160 +Me.BTNURLFilesAll.Text = "Select All" +Me.BTNURLFilesAll.UseVisualStyleBackColor = true +' +'BTNURLFilesNone +' +Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) +Me.BTNURLFilesNone.Name = "BTNURLFilesNone" +Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) +Me.BTNURLFilesNone.TabIndex = 161 +Me.BTNURLFilesNone.Text = "Select None" +Me.BTNURLFilesNone.UseVisualStyleBackColor = true +' +'URLFileList +' +Me.URLFileList.CheckOnClick = true +Me.URLFileList.FormattingEnabled = true +Me.URLFileList.Location = New System.Drawing.Point(6, 9) +Me.URLFileList.Name = "URLFileList" +Me.URLFileList.Size = New System.Drawing.Size(332, 394) +Me.URLFileList.Sorted = true +Me.URLFileList.TabIndex = 154 +' +'TpImagesGenre +' +Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray +Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) +Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) +Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) +Me.TpImagesGenre.Name = "TpImagesGenre" +Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) +Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) +Me.TpImagesGenre.TabIndex = 1 +Me.TpImagesGenre.Text = "Genre Images" +' +'GrbImageUrlFiles +' +Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) +Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) +Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" +Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) +Me.GrbImageUrlFiles.TabIndex = 1 +Me.GrbImageUrlFiles.TabStop = false +Me.GrbImageUrlFiles.Text = "URL Files" +' +'TlpImageUrls +' +Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray +Me.TlpImageUrls.ColumnCount = 3 +Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) +Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) +Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) +Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) +Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill +Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize +Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) +Me.TlpImageUrls.Name = "TlpImageUrls" +Me.TlpImageUrls.RowCount = 14 +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) +Me.TlpImageUrls.TabIndex = 0 +' +'BtnImageUrlButt +' +Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) +Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) +Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlButt.Name = "BtnImageUrlButt" +Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlButt.TabIndex = 38 +Me.BtnImageUrlButt.Text = "1" +Me.BtnImageUrlButt.UseVisualStyleBackColor = false +' +'BtnImageUrlBoobs +' +Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) +Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) +Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" +Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlBoobs.TabIndex = 35 +Me.BtnImageUrlBoobs.Text = "1" +Me.BtnImageUrlBoobs.UseVisualStyleBackColor = false +' +'BtnImageUrlBlowjob +' +Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" +Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlBlowjob.TabIndex = 11 +Me.BtnImageUrlBlowjob.Text = "1" +Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = false +' +'BtnImageUrlCaptions +' +Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) +Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" +Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlCaptions.TabIndex = 29 +Me.BtnImageUrlCaptions.Text = "1" +Me.BtnImageUrlCaptions.UseVisualStyleBackColor = false +' +'BtnImageUrlHentai +' +Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) +Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" +Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlHentai.TabIndex = 20 +Me.BtnImageUrlHentai.Text = "1" +Me.BtnImageUrlHentai.UseVisualStyleBackColor = false +' +'BtnImageUrlGay +' +Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) +Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlGay.Name = "BtnImageUrlGay" +Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlGay.TabIndex = 23 +Me.BtnImageUrlGay.Text = "1" +Me.BtnImageUrlGay.UseVisualStyleBackColor = false +' +'BtnImageUrlGeneral +' +Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) +Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" +Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlGeneral.TabIndex = 32 +Me.BtnImageUrlGeneral.Text = "1" +Me.BtnImageUrlGeneral.UseVisualStyleBackColor = false +' +'BtnImageUrlHardcore +' +Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) +Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" +Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlHardcore.TabIndex = 1 +Me.BtnImageUrlHardcore.Text = "1" +Me.BtnImageUrlHardcore.UseVisualStyleBackColor = false +' +'BtnImageUrlLesbian +' +Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) +Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" +Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlLesbian.TabIndex = 8 +Me.BtnImageUrlLesbian.Text = "1" +Me.BtnImageUrlLesbian.UseVisualStyleBackColor = false +' +'BtnImageUrlLezdom +' +Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) +Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" +Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlLezdom.TabIndex = 17 +Me.BtnImageUrlLezdom.Text = "1" +Me.BtnImageUrlLezdom.UseVisualStyleBackColor = false +' +'BtnImageUrlMaledom +' +Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) +Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" +Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlMaledom.TabIndex = 26 +Me.BtnImageUrlMaledom.Text = "1" +Me.BtnImageUrlMaledom.UseVisualStyleBackColor = false +' +'BtnImageUrlFemdom +' +Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) +Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" +Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlFemdom.TabIndex = 14 +Me.BtnImageUrlFemdom.Text = "1" +Me.BtnImageUrlFemdom.UseVisualStyleBackColor = false +' +'BtnImageUrlSoftcore +' +Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) +Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" +Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) +Me.BtnImageUrlSoftcore.TabIndex = 5 +Me.BtnImageUrlSoftcore.Text = "1" +Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false +' +'ChbImageUrlHardcore +' +Me.ChbImageUrlHardcore.AutoSize = true +Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled +Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) +Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" +Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHardcore.TabIndex = 0 +Me.ChbImageUrlHardcore.Text = "Hardcore" +Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true +' +'ChbImageUrlButts +' +Me.ChbImageUrlButts.AutoSize = true +Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled +Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) +Me.ChbImageUrlButts.Name = "ChbImageUrlButts" +Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) +Me.ChbImageUrlButts.TabIndex = 37 +Me.ChbImageUrlButts.Text = "Butts" +Me.ChbImageUrlButts.UseVisualStyleBackColor = true +' +'ChbImageUrlMaledom +' +Me.ChbImageUrlMaledom.AutoSize = true +Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled +Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) +Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" +Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlMaledom.TabIndex = 25 +Me.ChbImageUrlMaledom.Text = "Maledom" +Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true +' +'ChbImageUrlGay +' +Me.ChbImageUrlGay.AutoSize = true +Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled +Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) +Me.ChbImageUrlGay.Name = "ChbImageUrlGay" +Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGay.TabIndex = 22 +Me.ChbImageUrlGay.Text = "Gay" +Me.ChbImageUrlGay.UseVisualStyleBackColor = true +' +'ChbImageUrlSoftcore +' +Me.ChbImageUrlSoftcore.AutoSize = true +Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled +Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) +Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" +Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlSoftcore.TabIndex = 4 +Me.ChbImageUrlSoftcore.Text = "Softcore" +Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true +' +'ChbImageUrlBoobs +' +Me.ChbImageUrlBoobs.AutoSize = true +Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled +Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) +Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" +Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBoobs.TabIndex = 34 +Me.ChbImageUrlBoobs.Text = "Boobs" +Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true +' +'ChbImageUrlLesbian +' +Me.ChbImageUrlLesbian.AutoSize = true +Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled +Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) +Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" +Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLesbian.TabIndex = 7 +Me.ChbImageUrlLesbian.Text = "Lesbian" +Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true +' +'ChbImageUrlBlowjob +' +Me.ChbImageUrlBlowjob.AutoSize = true +Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled +Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) +Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" +Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBlowjob.TabIndex = 10 +Me.ChbImageUrlBlowjob.Text = "Blowjob" +Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true +' +'ChbImageUrlCaptions +' +Me.ChbImageUrlCaptions.AutoSize = true +Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled +Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) +Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" +Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlCaptions.TabIndex = 28 +Me.ChbImageUrlCaptions.Text = "Captions" +Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true +' +'ChbImageUrlGeneral +' +Me.ChbImageUrlGeneral.AutoSize = true +Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled +Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) +Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" +Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGeneral.TabIndex = 31 +Me.ChbImageUrlGeneral.Text = "General" +Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true +' +'ChbImageUrlFemdom +' +Me.ChbImageUrlFemdom.AutoSize = true +Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled +Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) +Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" +Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlFemdom.TabIndex = 13 +Me.ChbImageUrlFemdom.Text = "Femdom" +Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true +' +'ChbImageUrlHentai +' +Me.ChbImageUrlHentai.AutoSize = true +Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled +Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) +Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" +Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHentai.TabIndex = 19 +Me.ChbImageUrlHentai.Text = "Hentai" +Me.ChbImageUrlHentai.UseVisualStyleBackColor = true +' +'ChbImageUrlLezdom +' +Me.ChbImageUrlLezdom.AutoSize = true +Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled +Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) +Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" +Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLezdom.TabIndex = 16 +Me.ChbImageUrlLezdom.Text = "Lezdom" +Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true +' +'TxbImageUrlBlowjob +' +Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" +Me.TxbImageUrlBlowjob.ReadOnly = true +Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.TabIndex = 12 +Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob +' +'TxbImageUrlSoftcore +' +Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) +Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" +Me.TxbImageUrlSoftcore.ReadOnly = true +Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.TabIndex = 6 +Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore +' +'TxbImageUrlLezdom +' +Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) +Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" +Me.TxbImageUrlLezdom.ReadOnly = true +Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.TabIndex = 18 +Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom +' +'TxbImageUrlFemdom +' +Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) +Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" +Me.TxbImageUrlFemdom.ReadOnly = true +Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.TabIndex = 15 +Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom +' +'TxbImageUrlHardcore +' +Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) +Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" +Me.TxbImageUrlHardcore.ReadOnly = true +Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.TabIndex = 3 +Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore +' +'TxbImageUrlHentai +' +Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) +Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" +Me.TxbImageUrlHentai.ReadOnly = true +Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.TabIndex = 21 +Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai +' +'TxbImageUrlGay +' +Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) +Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.Name = "TxbImageUrlGay" +Me.TxbImageUrlGay.ReadOnly = true +Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.TabIndex = 24 +Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay +' +'TxbImageUrlLesbian +' +Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) +Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" +Me.TxbImageUrlLesbian.ReadOnly = true +Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.TabIndex = 9 +Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian +' +'TxbImageUrlMaledom +' +Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) +Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" +Me.TxbImageUrlMaledom.ReadOnly = true +Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.TabIndex = 27 +Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom +' +'TxbImageUrlCaptions +' +Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) +Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" +Me.TxbImageUrlCaptions.ReadOnly = true +Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.TabIndex = 30 +Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions +' +'TxbImageUrlGeneral +' +Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) +Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" +Me.TxbImageUrlGeneral.ReadOnly = true +Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.TabIndex = 33 +Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral +' +'TxbImageUrlBoobs +' +Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) +Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" +Me.TxbImageUrlBoobs.ReadOnly = true +Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.TabIndex = 36 +Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs +' +'TxbImageUrlButts +' +Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) +Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.Name = "TxbImageUrlButts" +Me.TxbImageUrlButts.ReadOnly = true +Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.TabIndex = 39 +Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt +' +'GbxImagesGenre +' +Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) +Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) +Me.GbxImagesGenre.Name = "GbxImagesGenre" +Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) +Me.GbxImagesGenre.TabIndex = 0 +Me.GbxImagesGenre.TabStop = false +Me.GbxImagesGenre.Text = "Local Images" +' +'TableLayoutPanel1 +' +Me.TableLayoutPanel1.ColumnCount = 4 +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) +Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) +Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) +Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) +Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill +Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize +Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) +Me.TableLayoutPanel1.Name = "TableLayoutPanel1" +Me.TableLayoutPanel1.RowCount = 13 +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) +Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) +Me.TableLayoutPanel1.TabIndex = 0 +' +'BTNIHardcore +' +Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray +Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black +Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) +Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHardcore.Name = "BTNIHardcore" +Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) +Me.BTNIHardcore.TabIndex = 1 +Me.BTNIHardcore.Text = "1" +Me.BTNIHardcore.UseVisualStyleBackColor = false +' +'TbxIHardcore +' +Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray +Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black +Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) +Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.Name = "TbxIHardcore" +Me.TbxIHardcore.ReadOnly = true +Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.TabIndex = 2 +Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore +' +'CBIHardcoreSD +' +Me.CBIHardcoreSD.AutoSize = true +Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD +Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) +Me.CBIHardcoreSD.Name = "CBIHardcoreSD" +Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHardcoreSD.TabIndex = 3 +Me.CBIHardcoreSD.UseVisualStyleBackColor = true +' +'CBIHardcore +' +Me.CBIHardcore.AutoSize = true +Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore +Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcore.ForeColor = System.Drawing.Color.Black +Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) +Me.CBIHardcore.Name = "CBIHardcore" +Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) +Me.CBIHardcore.TabIndex = 0 +Me.CBIHardcore.Text = "Hardcore" +Me.CBIHardcore.UseVisualStyleBackColor = true +' +'CBISoftcore +' +Me.CBISoftcore.AutoSize = true +Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore +Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcore.ForeColor = System.Drawing.Color.Black +Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) +Me.CBISoftcore.Name = "CBISoftcore" +Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) +Me.CBISoftcore.TabIndex = 4 +Me.CBISoftcore.Text = "Softcore" +Me.CBISoftcore.UseVisualStyleBackColor = true +' +'TbxISoftcore +' +Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray +Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black +Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) +Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.Name = "TbxISoftcore" +Me.TbxISoftcore.ReadOnly = true +Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.TabIndex = 6 +Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore +' +'CBButtSubDir +' +Me.CBButtSubDir.AutoSize = true +Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir +Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black +Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) +Me.CBButtSubDir.Name = "CBButtSubDir" +Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) +Me.CBButtSubDir.TabIndex = 51 +Me.CBButtSubDir.UseVisualStyleBackColor = true +' +'CBISoftcoreSD +' +Me.CBISoftcoreSD.AutoSize = true +Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD +Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) +Me.CBISoftcoreSD.Name = "CBISoftcoreSD" +Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBISoftcoreSD.TabIndex = 7 +Me.CBISoftcoreSD.UseVisualStyleBackColor = true +' +'CBBoobSubDir +' +Me.CBBoobSubDir.AutoSize = true +Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir +Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black +Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) +Me.CBBoobSubDir.Name = "CBBoobSubDir" +Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) +Me.CBBoobSubDir.TabIndex = 47 +Me.CBBoobSubDir.UseVisualStyleBackColor = true +' +'CBILezdomSD +' +Me.CBILezdomSD.AutoSize = true +Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD +Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black +Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) +Me.CBILezdomSD.Name = "CBILezdomSD" +Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBILezdomSD.TabIndex = 23 +Me.CBILezdomSD.UseVisualStyleBackColor = true +' +'CBIGeneralSD +' +Me.CBIGeneralSD.AutoSize = true +Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD +Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black +Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) +Me.CBIGeneralSD.Name = "CBIGeneralSD" +Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) +Me.CBIGeneralSD.TabIndex = 43 +Me.CBIGeneralSD.UseVisualStyleBackColor = true +' +'CBILesbianSD +' +Me.CBILesbianSD.AutoSize = true +Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD +Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black +Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) +Me.CBILesbianSD.Name = "CBILesbianSD" +Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) +Me.CBILesbianSD.TabIndex = 11 +Me.CBILesbianSD.UseVisualStyleBackColor = true +' +'CBICaptionsSD +' +Me.CBICaptionsSD.AutoSize = true +Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD +Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black +Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) +Me.CBICaptionsSD.Name = "CBICaptionsSD" +Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) +Me.CBICaptionsSD.TabIndex = 39 +Me.CBICaptionsSD.UseVisualStyleBackColor = true +' +'CBILesbian +' +Me.CBILesbian.AutoSize = true +Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian +Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbian.ForeColor = System.Drawing.Color.Black +Me.CBILesbian.Location = New System.Drawing.Point(3, 61) +Me.CBILesbian.Name = "CBILesbian" +Me.CBILesbian.Size = New System.Drawing.Size(70, 23) +Me.CBILesbian.TabIndex = 8 +Me.CBILesbian.Text = "Lesbian" +Me.CBILesbian.UseVisualStyleBackColor = true +' +'CBIMaledomSD +' +Me.CBIMaledomSD.AutoSize = true +Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD +Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black +Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) +Me.CBIMaledomSD.Name = "CBIMaledomSD" +Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIMaledomSD.TabIndex = 35 +Me.CBIMaledomSD.UseVisualStyleBackColor = true +' +'CBIBlowjob +' +Me.CBIBlowjob.AutoSize = true +Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob +Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) +Me.CBIBlowjob.Name = "CBIBlowjob" +Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) +Me.CBIBlowjob.TabIndex = 12 +Me.CBIBlowjob.Text = "Blowjob" +Me.CBIBlowjob.UseVisualStyleBackColor = true +' +'CBIGaySD +' +Me.CBIGaySD.AutoSize = true +Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD +Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGaySD.ForeColor = System.Drawing.Color.Black +Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) +Me.CBIGaySD.Name = "CBIGaySD" +Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) +Me.CBIGaySD.TabIndex = 31 +Me.CBIGaySD.UseVisualStyleBackColor = true +' +'CBIHentaiSD +' +Me.CBIHentaiSD.AutoSize = true +Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD +Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black +Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) +Me.CBIHentaiSD.Name = "CBIHentaiSD" +Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHentaiSD.TabIndex = 27 +Me.CBIHentaiSD.UseVisualStyleBackColor = true +' +'CBIBlowjobSD +' +Me.CBIBlowjobSD.AutoSize = true +Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD +Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) +Me.CBIBlowjobSD.Name = "CBIBlowjobSD" +Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) +Me.CBIBlowjobSD.TabIndex = 15 +Me.CBIBlowjobSD.UseVisualStyleBackColor = true +' +'CBIFemdomSD +' +Me.CBIFemdomSD.AutoSize = true +Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD +Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black +Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) +Me.CBIFemdomSD.Name = "CBIFemdomSD" +Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIFemdomSD.TabIndex = 19 +Me.CBIFemdomSD.UseVisualStyleBackColor = true +' +'TbxIButts +' +Me.TbxIButts.BackColor = System.Drawing.Color.LightGray +Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIButts.ForeColor = System.Drawing.Color.Black +Me.TbxIButts.Location = New System.Drawing.Point(115, 353) +Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIButts.Name = "TbxIButts" +Me.TbxIButts.ReadOnly = true +Me.TbxIButts.Size = New System.Drawing.Size(217, 17) +Me.TbxIButts.TabIndex = 50 +Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath +' +'CBIFemdom +' +Me.CBIFemdom.AutoSize = true +Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom +Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdom.ForeColor = System.Drawing.Color.Black +Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) +Me.CBIFemdom.Name = "CBIFemdom" +Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) +Me.CBIFemdom.TabIndex = 16 +Me.CBIFemdom.Text = "Femdom" +Me.CBIFemdom.UseVisualStyleBackColor = true +' +'TbxILesbian +' +Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray +Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILesbian.ForeColor = System.Drawing.Color.Black +Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) +Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILesbian.Name = "TbxILesbian" +Me.TbxILesbian.ReadOnly = true +Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) +Me.TbxILesbian.TabIndex = 10 +Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian +' +'BTNISoftcore +' +Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray +Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black +Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) +Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNISoftcore.Name = "BTNISoftcore" +Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) +Me.BTNISoftcore.TabIndex = 5 +Me.BTNISoftcore.Text = "1" +Me.BTNISoftcore.UseVisualStyleBackColor = false +' +'CBILezdom +' +Me.CBILezdom.AutoSize = true +Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom +Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdom.ForeColor = System.Drawing.Color.Black +Me.CBILezdom.Location = New System.Drawing.Point(3, 148) +Me.CBILezdom.Name = "CBILezdom" +Me.CBILezdom.Size = New System.Drawing.Size(70, 23) +Me.CBILezdom.TabIndex = 20 +Me.CBILezdom.Text = "Lezdom" +Me.CBILezdom.UseVisualStyleBackColor = true +' +'TbxIBoobs +' +Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray +Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black +Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) +Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.Name = "TbxIBoobs" +Me.TbxIBoobs.ReadOnly = true +Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.TabIndex = 46 +Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath +' +'CBIHentai +' +Me.CBIHentai.AutoSize = true +Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai +Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentai.ForeColor = System.Drawing.Color.Black +Me.CBIHentai.Location = New System.Drawing.Point(3, 177) +Me.CBIHentai.Name = "CBIHentai" +Me.CBIHentai.Size = New System.Drawing.Size(70, 23) +Me.CBIHentai.TabIndex = 24 +Me.CBIHentai.Text = "Hentai" +Me.CBIHentai.UseVisualStyleBackColor = true +' +'TbxIBlowjob +' +Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black +Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.Name = "TbxIBlowjob" +Me.TbxIBlowjob.ReadOnly = true +Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.TabIndex = 14 +Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob +' +'CBIGay +' +Me.CBIGay.AutoSize = true +Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay +Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGay.ForeColor = System.Drawing.Color.Black +Me.CBIGay.Location = New System.Drawing.Point(3, 206) +Me.CBIGay.Name = "CBIGay" +Me.CBIGay.Size = New System.Drawing.Size(70, 23) +Me.CBIGay.TabIndex = 28 +Me.CBIGay.Text = "Gay" +Me.CBIGay.UseVisualStyleBackColor = true +' +'TbxIGeneral +' +Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray +Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black +Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) +Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.Name = "TbxIGeneral" +Me.TbxIGeneral.ReadOnly = true +Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.TabIndex = 42 +Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral +' +'CBIMaledom +' +Me.CBIMaledom.AutoSize = true +Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom +Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledom.ForeColor = System.Drawing.Color.Black +Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) +Me.CBIMaledom.Name = "CBIMaledom" +Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) +Me.CBIMaledom.TabIndex = 32 +Me.CBIMaledom.Text = "Maledom" +Me.CBIMaledom.UseVisualStyleBackColor = true +' +'TbxIFemdom +' +Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray +Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black +Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) +Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.Name = "TbxIFemdom" +Me.TbxIFemdom.ReadOnly = true +Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.TabIndex = 18 +Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom +' +'BTNILesbian +' +Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILesbian.ForeColor = System.Drawing.Color.Black +Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) +Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILesbian.Name = "BTNILesbian" +Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNILesbian.TabIndex = 9 +Me.BTNILesbian.Text = "1" +Me.BTNILesbian.UseVisualStyleBackColor = false +' +'TbxICaptions +' +Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray +Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxICaptions.ForeColor = System.Drawing.Color.Black +Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) +Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxICaptions.Name = "TbxICaptions" +Me.TbxICaptions.ReadOnly = true +Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) +Me.TbxICaptions.TabIndex = 38 +Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions +' +'CBICaptions +' +Me.CBICaptions.AutoSize = true +Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions +Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptions.ForeColor = System.Drawing.Color.Black +Me.CBICaptions.Location = New System.Drawing.Point(3, 264) +Me.CBICaptions.Name = "CBICaptions" +Me.CBICaptions.Size = New System.Drawing.Size(70, 23) +Me.CBICaptions.TabIndex = 36 +Me.CBICaptions.Text = "Captions" +Me.CBICaptions.UseVisualStyleBackColor = true +' +'TbxILezdom +' +Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray +Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILezdom.ForeColor = System.Drawing.Color.Black +Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) +Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILezdom.Name = "TbxILezdom" +Me.TbxILezdom.ReadOnly = true +Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) +Me.TbxILezdom.TabIndex = 22 +Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom +' +'TbxIMaledom +' +Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray +Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black +Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) +Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.Name = "TbxIMaledom" +Me.TbxIMaledom.ReadOnly = true +Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.TabIndex = 34 +Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +' +'BTNButtPath +' +Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray +Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNButtPath.ForeColor = System.Drawing.Color.Black +Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) +Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNButtPath.Name = "BTNButtPath" +Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) +Me.BTNButtPath.TabIndex = 49 +Me.BTNButtPath.Text = "1" +Me.BTNButtPath.UseVisualStyleBackColor = false +' +'TbxIHentai +' +Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray +Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHentai.ForeColor = System.Drawing.Color.Black +Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) +Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHentai.Name = "TbxIHentai" +Me.TbxIHentai.ReadOnly = true +Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) +Me.TbxIHentai.TabIndex = 26 +Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai +' +'CBIGeneral +' +Me.CBIGeneral.AutoSize = true +Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral +Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneral.ForeColor = System.Drawing.Color.Black +Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) +Me.CBIGeneral.Name = "CBIGeneral" +Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) +Me.CBIGeneral.TabIndex = 40 +Me.CBIGeneral.Text = "General" +Me.CBIGeneral.UseVisualStyleBackColor = true +' +'TbxIGay +' +Me.TbxIGay.BackColor = System.Drawing.Color.LightGray +Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGay.ForeColor = System.Drawing.Color.Black +Me.TbxIGay.Location = New System.Drawing.Point(115, 208) +Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGay.Name = "TbxIGay" +Me.TbxIGay.ReadOnly = true +Me.TbxIGay.Size = New System.Drawing.Size(217, 17) +Me.TbxIGay.TabIndex = 30 +Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay +' +'CBIBoobs +' +Me.CBIBoobs.AutoSize = true +Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs +Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBoobs.ForeColor = System.Drawing.Color.Black +Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) +Me.CBIBoobs.Name = "CBIBoobs" +Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) +Me.CBIBoobs.TabIndex = 44 +Me.CBIBoobs.Text = "Boobs" +Me.CBIBoobs.UseVisualStyleBackColor = true +' +'CBIButts +' +Me.CBIButts.AutoSize = true +Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts +Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIButts.ForeColor = System.Drawing.Color.Black +Me.CBIButts.Location = New System.Drawing.Point(3, 351) +Me.CBIButts.Name = "CBIButts" +Me.CBIButts.Size = New System.Drawing.Size(70, 27) +Me.CBIButts.TabIndex = 48 +Me.CBIButts.Text = "Butts" +Me.CBIButts.UseVisualStyleBackColor = true +' +'BTNIBlowjob +' +Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIBlowjob.Name = "BTNIBlowjob" +Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNIBlowjob.TabIndex = 13 +Me.BTNIBlowjob.Text = "1" +Me.BTNIBlowjob.UseVisualStyleBackColor = false +' +'BTNIFemdom +' +Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray +Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black +Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) +Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIFemdom.Name = "BTNIFemdom" +Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) +Me.BTNIFemdom.TabIndex = 17 +Me.BTNIFemdom.Text = "1" +Me.BTNIFemdom.UseVisualStyleBackColor = false +' +'BTNBoobPath +' +Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray +Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black +Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) +Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNBoobPath.Name = "BTNBoobPath" +Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) +Me.BTNBoobPath.TabIndex = 45 +Me.BTNBoobPath.Text = "1" +Me.BTNBoobPath.UseVisualStyleBackColor = false +' +'BTNILezdom +' +Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray +Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILezdom.ForeColor = System.Drawing.Color.Black +Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) +Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILezdom.Name = "BTNILezdom" +Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) +Me.BTNILezdom.TabIndex = 21 +Me.BTNILezdom.Text = "1" +Me.BTNILezdom.UseVisualStyleBackColor = false +' +'BTNIHentai +' +Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray +Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHentai.ForeColor = System.Drawing.Color.Black +Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) +Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHentai.Name = "BTNIHentai" +Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) +Me.BTNIHentai.TabIndex = 25 +Me.BTNIHentai.Text = "1" +Me.BTNIHentai.UseVisualStyleBackColor = false +' +'BTNIGay +' +Me.BTNIGay.BackColor = System.Drawing.Color.LightGray +Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGay.ForeColor = System.Drawing.Color.Black +Me.BTNIGay.Location = New System.Drawing.Point(76, 203) +Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGay.Name = "BTNIGay" +Me.BTNIGay.Size = New System.Drawing.Size(34, 28) +Me.BTNIGay.TabIndex = 29 +Me.BTNIGay.Text = "1" +Me.BTNIGay.UseVisualStyleBackColor = false +' +'BTNIMaledom +' +Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray +Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black +Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) +Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIMaledom.Name = "BTNIMaledom" +Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) +Me.BTNIMaledom.TabIndex = 33 +Me.BTNIMaledom.Text = "1" +Me.BTNIMaledom.UseVisualStyleBackColor = false +' +'BTNICaptions +' +Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray +Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNICaptions.ForeColor = System.Drawing.Color.Black +Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) +Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNICaptions.Name = "BTNICaptions" +Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) +Me.BTNICaptions.TabIndex = 37 +Me.BTNICaptions.Text = "1" +Me.BTNICaptions.UseVisualStyleBackColor = false +' +'BTNIGeneral +' +Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) +Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGeneral.Name = "BTNIGeneral" +Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNIGeneral.TabIndex = 41 +Me.BTNIGeneral.Text = "1" +Me.BTNIGeneral.UseVisualStyleBackColor = false +' +'TabPage33 +' +Me.TabPage33.BackColor = System.Drawing.Color.Silver +Me.TabPage33.Controls.Add(Me.TabControl5) +Me.TabPage33.Location = New System.Drawing.Point(4, 22) +Me.TabPage33.Name = "TabPage33" +Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage33.Size = New System.Drawing.Size(720, 448) +Me.TabPage33.TabIndex = 21 +Me.TabPage33.Text = "Tagging" +' +'TabControl5 +' +Me.TabControl5.Controls.Add(Me.TabPage34) +Me.TabControl5.Controls.Add(Me.TabPage35) +Me.TabControl5.Location = New System.Drawing.Point(6, 6) +Me.TabControl5.Name = "TabControl5" +Me.TabControl5.SelectedIndex = 0 +Me.TabControl5.Size = New System.Drawing.Size(708, 437) +Me.TabControl5.TabIndex = 0 +' +'TabPage34 +' +Me.TabPage34.BackColor = System.Drawing.Color.LightGray +Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) +Me.TabPage34.Controls.Add(Me.CBTagAllFours) +Me.TabPage34.Controls.Add(Me.CBTagGlaring) +Me.TabPage34.Controls.Add(Me.CBTagSmiling) +Me.TabPage34.Controls.Add(Me.TBTagDir) +Me.TabPage34.Controls.Add(Me.CBTagPiercing) +Me.TabPage34.Controls.Add(Me.CBTagLegs) +Me.TabPage34.Controls.Add(Me.TBTagFurniture) +Me.TabPage34.Controls.Add(Me.CBTagFurniture) +Me.TabPage34.Controls.Add(Me.TBTagSexToy) +Me.TabPage34.Controls.Add(Me.CBTagSexToy) +Me.TabPage34.Controls.Add(Me.TBTagTattoo) +Me.TabPage34.Controls.Add(Me.CBTagTattoo) +Me.TabPage34.Controls.Add(Me.TBTagUnderwear) +Me.TabPage34.Controls.Add(Me.CBTagUnderwear) +Me.TabPage34.Controls.Add(Me.TBTagGarment) +Me.TabPage34.Controls.Add(Me.CBTagGarment) +Me.TabPage34.Controls.Add(Me.Label72) +Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) +Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) +Me.TabPage34.Controls.Add(Me.CBTagCloseUp) +Me.TabPage34.Controls.Add(Me.CBTagNaked) +Me.TabPage34.Controls.Add(Me.CBTagSideView) +Me.TabPage34.Controls.Add(Me.BTNTagPrevious) +Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) +Me.TabPage34.Controls.Add(Me.BTNTagNext) +Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) +Me.TabPage34.Controls.Add(Me.LBLTagCount) +Me.TabPage34.Controls.Add(Me.CBTagSucking) +Me.TabPage34.Controls.Add(Me.CBTagMasturbating) +Me.TabPage34.Controls.Add(Me.CBTagFeet) +Me.TabPage34.Controls.Add(Me.CBTagBoobs) +Me.TabPage34.Controls.Add(Me.CBTagAss) +Me.TabPage34.Controls.Add(Me.CBTagPussy) +Me.TabPage34.Controls.Add(Me.BTNTagSave) +Me.TabPage34.Controls.Add(Me.BTNTagDir) +Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) +Me.TabPage34.Controls.Add(Me.CBTagFace) +Me.TabPage34.Location = New System.Drawing.Point(4, 22) +Me.TabPage34.Name = "TabPage34" +Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage34.Size = New System.Drawing.Size(700, 411) +Me.TabPage34.TabIndex = 0 +Me.TabPage34.Text = "Domme Tags" +' +'CBTagSeeThrough +' +Me.CBTagSeeThrough.AutoSize = true +Me.CBTagSeeThrough.Enabled = false +Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) +Me.CBTagSeeThrough.Name = "CBTagSeeThrough" +Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) +Me.CBTagSeeThrough.TabIndex = 226 +Me.CBTagSeeThrough.Text = "See Through" +Me.CBTagSeeThrough.UseVisualStyleBackColor = true +' +'CBTagAllFours +' +Me.CBTagAllFours.AutoSize = true +Me.CBTagAllFours.Enabled = false +Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black +Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) +Me.CBTagAllFours.Name = "CBTagAllFours" +Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) +Me.CBTagAllFours.TabIndex = 225 +Me.CBTagAllFours.Text = "All Fours" +Me.CBTagAllFours.UseVisualStyleBackColor = true +' +'CBTagGlaring +' +Me.CBTagGlaring.AutoSize = true +Me.CBTagGlaring.Enabled = false +Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black +Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) +Me.CBTagGlaring.Name = "CBTagGlaring" +Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) +Me.CBTagGlaring.TabIndex = 224 +Me.CBTagGlaring.Text = "Glaring" +Me.CBTagGlaring.UseVisualStyleBackColor = true +' +'CBTagSmiling +' +Me.CBTagSmiling.AutoSize = true +Me.CBTagSmiling.Enabled = false +Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black +Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) +Me.CBTagSmiling.Name = "CBTagSmiling" +Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) +Me.CBTagSmiling.TabIndex = 223 +Me.CBTagSmiling.Text = "Smiling" +Me.CBTagSmiling.UseVisualStyleBackColor = true +' +'TBTagDir +' +Me.TBTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBTagDir.Name = "TBTagDir" +Me.TBTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBTagDir.TabIndex = 222 +Me.TBTagDir.Text = "Enter Image Directory" +' +'CBTagPiercing +' +Me.CBTagPiercing.AutoSize = true +Me.CBTagPiercing.Enabled = false +Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black +Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) +Me.CBTagPiercing.Name = "CBTagPiercing" +Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) +Me.CBTagPiercing.TabIndex = 221 +Me.CBTagPiercing.Text = "Piercing" +Me.CBTagPiercing.UseVisualStyleBackColor = true +' +'CBTagLegs +' +Me.CBTagLegs.AutoSize = true +Me.CBTagLegs.Enabled = false +Me.CBTagLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) +Me.CBTagLegs.Name = "CBTagLegs" +Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagLegs.TabIndex = 220 +Me.CBTagLegs.Text = "Legs" +Me.CBTagLegs.UseVisualStyleBackColor = true +' +'TBTagFurniture +' +Me.TBTagFurniture.Enabled = false +Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) +Me.TBTagFurniture.Name = "TBTagFurniture" +Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) +Me.TBTagFurniture.TabIndex = 219 +' +'CBTagFurniture +' +Me.CBTagFurniture.AutoSize = true +Me.CBTagFurniture.Enabled = false +Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black +Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) +Me.CBTagFurniture.Name = "CBTagFurniture" +Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) +Me.CBTagFurniture.TabIndex = 218 +Me.CBTagFurniture.Text = "Furniture" +Me.CBTagFurniture.UseVisualStyleBackColor = true +' +'TBTagSexToy +' +Me.TBTagSexToy.Enabled = false +Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) +Me.TBTagSexToy.Name = "TBTagSexToy" +Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) +Me.TBTagSexToy.TabIndex = 217 +' +'CBTagSexToy +' +Me.CBTagSexToy.AutoSize = true +Me.CBTagSexToy.Enabled = false +Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black +Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) +Me.CBTagSexToy.Name = "CBTagSexToy" +Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) +Me.CBTagSexToy.TabIndex = 216 +Me.CBTagSexToy.Text = "Sex Toy" +Me.CBTagSexToy.UseVisualStyleBackColor = true +' +'TBTagTattoo +' +Me.TBTagTattoo.Enabled = false +Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) +Me.TBTagTattoo.Name = "TBTagTattoo" +Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) +Me.TBTagTattoo.TabIndex = 215 +' +'CBTagTattoo +' +Me.CBTagTattoo.AutoSize = true +Me.CBTagTattoo.Enabled = false +Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) +Me.CBTagTattoo.Name = "CBTagTattoo" +Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) +Me.CBTagTattoo.TabIndex = 214 +Me.CBTagTattoo.Text = "Tattoo" +Me.CBTagTattoo.UseVisualStyleBackColor = true +' +'TBTagUnderwear +' +Me.TBTagUnderwear.Enabled = false +Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) +Me.TBTagUnderwear.Name = "TBTagUnderwear" +Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) +Me.TBTagUnderwear.TabIndex = 213 +' +'CBTagUnderwear +' +Me.CBTagUnderwear.AutoSize = true +Me.CBTagUnderwear.Enabled = false +Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black +Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) +Me.CBTagUnderwear.Name = "CBTagUnderwear" +Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) +Me.CBTagUnderwear.TabIndex = 212 +Me.CBTagUnderwear.Text = "Underwear" +Me.CBTagUnderwear.UseVisualStyleBackColor = true +' +'TBTagGarment +' +Me.TBTagGarment.Enabled = false +Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) +Me.TBTagGarment.Name = "TBTagGarment" +Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) +Me.TBTagGarment.TabIndex = 211 +' +'CBTagGarment +' +Me.CBTagGarment.AutoSize = true +Me.CBTagGarment.Enabled = false +Me.CBTagGarment.ForeColor = System.Drawing.Color.Black +Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) +Me.CBTagGarment.Name = "CBTagGarment" +Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) +Me.CBTagGarment.TabIndex = 210 +Me.CBTagGarment.Text = "Garment" +Me.CBTagGarment.UseVisualStyleBackColor = true +' +'Label72 +' +Me.Label72.BackColor = System.Drawing.Color.Transparent +Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label72.ForeColor = System.Drawing.Color.Black +Me.Label72.Location = New System.Drawing.Point(5, 368) +Me.Label72.Name = "Label72" +Me.Label72.Size = New System.Drawing.Size(451, 35) +Me.Label72.TabIndex = 189 +Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ + "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ + "e.g. Garment: dress)" +Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBTagHandsCovering +' +Me.CBTagHandsCovering.AutoSize = true +Me.CBTagHandsCovering.Enabled = false +Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) +Me.CBTagHandsCovering.Name = "CBTagHandsCovering" +Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) +Me.CBTagHandsCovering.TabIndex = 209 +Me.CBTagHandsCovering.Text = "Hands Covering" +Me.CBTagHandsCovering.UseVisualStyleBackColor = true +' +'CBTagGarmentCovering +' +Me.CBTagGarmentCovering.AutoSize = true +Me.CBTagGarmentCovering.Enabled = false +Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) +Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" +Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) +Me.CBTagGarmentCovering.TabIndex = 208 +Me.CBTagGarmentCovering.Text = "Garment Covering" +Me.CBTagGarmentCovering.UseVisualStyleBackColor = true +' +'CBTagCloseUp +' +Me.CBTagCloseUp.AutoSize = true +Me.CBTagCloseUp.Enabled = false +Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black +Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) +Me.CBTagCloseUp.Name = "CBTagCloseUp" +Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) +Me.CBTagCloseUp.TabIndex = 205 +Me.CBTagCloseUp.Text = "Close Up" +Me.CBTagCloseUp.UseVisualStyleBackColor = true +' +'CBTagNaked +' +Me.CBTagNaked.AutoSize = true +Me.CBTagNaked.Enabled = false +Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) +Me.CBTagNaked.Name = "CBTagNaked" +Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) +Me.CBTagNaked.TabIndex = 199 +Me.CBTagNaked.Text = "Naked" +Me.CBTagNaked.UseVisualStyleBackColor = true +' +'CBTagSideView +' +Me.CBTagSideView.AutoSize = true +Me.CBTagSideView.Enabled = false +Me.CBTagSideView.ForeColor = System.Drawing.Color.Black +Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) +Me.CBTagSideView.Name = "CBTagSideView" +Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) +Me.CBTagSideView.TabIndex = 204 +Me.CBTagSideView.Text = "Side View" +Me.CBTagSideView.UseVisualStyleBackColor = true +' +'BTNTagPrevious +' +Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNTagPrevious.Enabled = false +Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNTagPrevious.Name = "BTNTagPrevious" +Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNTagPrevious.TabIndex = 207 +Me.BTNTagPrevious.Text = "<<" +Me.BTNTagPrevious.UseVisualStyleBackColor = false +' +'CBTagHalfDressed +' +Me.CBTagHalfDressed.AutoSize = true +Me.CBTagHalfDressed.Enabled = false +Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) +Me.CBTagHalfDressed.Name = "CBTagHalfDressed" +Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) +Me.CBTagHalfDressed.TabIndex = 198 +Me.CBTagHalfDressed.Text = "Half Dressed" +Me.CBTagHalfDressed.UseVisualStyleBackColor = true +' +'BTNTagNext +' +Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNTagNext.Enabled = false +Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNTagNext.Name = "BTNTagNext" +Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNTagNext.TabIndex = 206 +Me.BTNTagNext.Text = ">>" +Me.BTNTagNext.UseVisualStyleBackColor = false +' +'CBTagFullyDressed +' +Me.CBTagFullyDressed.AutoSize = true +Me.CBTagFullyDressed.Enabled = false +Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) +Me.CBTagFullyDressed.Name = "CBTagFullyDressed" +Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) +Me.CBTagFullyDressed.TabIndex = 197 +Me.CBTagFullyDressed.Text = "Fully Dressed" +Me.CBTagFullyDressed.UseVisualStyleBackColor = true +' +'LBLTagCount +' +Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTagCount.Enabled = false +Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLTagCount.Name = "LBLTagCount" +Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLTagCount.TabIndex = 203 +Me.LBLTagCount.Text = "0/0" +Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBTagSucking +' +Me.CBTagSucking.AutoSize = true +Me.CBTagSucking.Enabled = false +Me.CBTagSucking.ForeColor = System.Drawing.Color.Black +Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) +Me.CBTagSucking.Name = "CBTagSucking" +Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) +Me.CBTagSucking.TabIndex = 202 +Me.CBTagSucking.Text = "Sucking" +Me.CBTagSucking.UseVisualStyleBackColor = true +' +'CBTagMasturbating +' +Me.CBTagMasturbating.AutoSize = true +Me.CBTagMasturbating.Enabled = false +Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) +Me.CBTagMasturbating.Name = "CBTagMasturbating" +Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbating.TabIndex = 201 +Me.CBTagMasturbating.Text = "Masturbating" +Me.CBTagMasturbating.UseVisualStyleBackColor = true +' +'CBTagFeet +' +Me.CBTagFeet.AutoSize = true +Me.CBTagFeet.Enabled = false +Me.CBTagFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) +Me.CBTagFeet.Name = "CBTagFeet" +Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagFeet.TabIndex = 200 +Me.CBTagFeet.Text = "Feet" +Me.CBTagFeet.UseVisualStyleBackColor = true +' +'CBTagBoobs +' +Me.CBTagBoobs.AutoSize = true +Me.CBTagBoobs.Enabled = false +Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black +Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) +Me.CBTagBoobs.Name = "CBTagBoobs" +Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) +Me.CBTagBoobs.TabIndex = 196 +Me.CBTagBoobs.Text = "Boobs" +Me.CBTagBoobs.UseVisualStyleBackColor = true +' +'CBTagAss +' +Me.CBTagAss.AutoSize = true +Me.CBTagAss.Enabled = false +Me.CBTagAss.ForeColor = System.Drawing.Color.Black +Me.CBTagAss.Location = New System.Drawing.Point(484, 97) +Me.CBTagAss.Name = "CBTagAss" +Me.CBTagAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagAss.TabIndex = 195 +Me.CBTagAss.Text = "Ass" +Me.CBTagAss.UseVisualStyleBackColor = true +' +'CBTagPussy +' +Me.CBTagPussy.AutoSize = true +Me.CBTagPussy.Enabled = false +Me.CBTagPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) +Me.CBTagPussy.Name = "CBTagPussy" +Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagPussy.TabIndex = 194 +Me.CBTagPussy.Text = "Pussy" +Me.CBTagPussy.UseVisualStyleBackColor = true +' +'BTNTagSave +' +Me.BTNTagSave.Enabled = false +Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNTagSave.Name = "BTNTagSave" +Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNTagSave.TabIndex = 193 +Me.BTNTagSave.Text = "Finished" +Me.BTNTagSave.UseVisualStyleBackColor = true +' +'BTNTagDir +' +Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNTagDir.Name = "BTNTagDir" +Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNTagDir.TabIndex = 192 +Me.BTNTagDir.Text = "1" +Me.BTNTagDir.UseVisualStyleBackColor = true +' +'ImageTagPictureBox +' +Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black +Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) +Me.ImageTagPictureBox.Name = "ImageTagPictureBox" +Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) +Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.ImageTagPictureBox.TabIndex = 191 +Me.ImageTagPictureBox.TabStop = false +' +'CBTagFace +' +Me.CBTagFace.AutoSize = true +Me.CBTagFace.Enabled = false +Me.CBTagFace.ForeColor = System.Drawing.Color.Black +Me.CBTagFace.Location = New System.Drawing.Point(484, 37) +Me.CBTagFace.Name = "CBTagFace" +Me.CBTagFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagFace.TabIndex = 190 +Me.CBTagFace.Text = "Face" +Me.CBTagFace.UseVisualStyleBackColor = true +' +'TabPage35 +' +Me.TabPage35.BackColor = System.Drawing.Color.LightGray +Me.TabPage35.Controls.Add(Me.GroupBox55) +Me.TabPage35.Controls.Add(Me.GroupBox53) +Me.TabPage35.Controls.Add(Me.GroupBox49) +Me.TabPage35.Controls.Add(Me.GroupBox46) +Me.TabPage35.Controls.Add(Me.GroupBox54) +Me.TabPage35.Controls.Add(Me.GroupBox51) +Me.TabPage35.Controls.Add(Me.GroupBox50) +Me.TabPage35.Controls.Add(Me.GroupBox48) +Me.TabPage35.Controls.Add(Me.TBLocalTagDir) +Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) +Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) +Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) +Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) +Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) +Me.TabPage35.Location = New System.Drawing.Point(4, 22) +Me.TabPage35.Name = "TabPage35" +Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage35.Size = New System.Drawing.Size(700, 411) +Me.TabPage35.TabIndex = 1 +Me.TabPage35.Text = "Local Tags" +' +'GroupBox55 +' +Me.GroupBox55.Controls.Add(Me.CBTagNurse) +Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) +Me.GroupBox55.Controls.Add(Me.CBTagMaid) +Me.GroupBox55.Controls.Add(Me.CBTagTeacher) +Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) +Me.GroupBox55.Location = New System.Drawing.Point(341, 277) +Me.GroupBox55.Name = "GroupBox55" +Me.GroupBox55.Size = New System.Drawing.Size(103, 118) +Me.GroupBox55.TabIndex = 241 +Me.GroupBox55.TabStop = false +Me.GroupBox55.Text = "Outfit" +' +'CBTagNurse +' +Me.CBTagNurse.AutoSize = true +Me.CBTagNurse.Enabled = false +Me.CBTagNurse.ForeColor = System.Drawing.Color.Black +Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) +Me.CBTagNurse.Name = "CBTagNurse" +Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) +Me.CBTagNurse.TabIndex = 203 +Me.CBTagNurse.Text = "Nurse" +Me.CBTagNurse.UseVisualStyleBackColor = true +' +'CBTagSchoolgirl +' +Me.CBTagSchoolgirl.AutoSize = true +Me.CBTagSchoolgirl.Enabled = false +Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) +Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" +Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) +Me.CBTagSchoolgirl.TabIndex = 204 +Me.CBTagSchoolgirl.Text = "Schoolgirl" +Me.CBTagSchoolgirl.UseVisualStyleBackColor = true +' +'CBTagMaid +' +Me.CBTagMaid.AutoSize = true +Me.CBTagMaid.Enabled = false +Me.CBTagMaid.ForeColor = System.Drawing.Color.Black +Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) +Me.CBTagMaid.Name = "CBTagMaid" +Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) +Me.CBTagMaid.TabIndex = 205 +Me.CBTagMaid.Text = "Maid" +Me.CBTagMaid.UseVisualStyleBackColor = true +' +'CBTagTeacher +' +Me.CBTagTeacher.AutoSize = true +Me.CBTagTeacher.Enabled = false +Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black +Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) +Me.CBTagTeacher.Name = "CBTagTeacher" +Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) +Me.CBTagTeacher.TabIndex = 206 +Me.CBTagTeacher.Text = "Teacher" +Me.CBTagTeacher.UseVisualStyleBackColor = true +' +'CBTagSuperhero +' +Me.CBTagSuperhero.AutoSize = true +Me.CBTagSuperhero.Enabled = false +Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black +Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) +Me.CBTagSuperhero.Name = "CBTagSuperhero" +Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) +Me.CBTagSuperhero.TabIndex = 213 +Me.CBTagSuperhero.Text = "Superhero" +Me.CBTagSuperhero.UseVisualStyleBackColor = true +' +'GroupBox53 +' +Me.GroupBox53.Controls.Add(Me.CBTagTrap) +Me.GroupBox53.Controls.Add(Me.CBTagTentacles) +Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) +Me.GroupBox53.Controls.Add(Me.CBTagBukkake) +Me.GroupBox53.Controls.Add(Me.CBTagGanguro) +Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) +Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) +Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) +Me.GroupBox53.Controls.Add(Me.CBTagAhegao) +Me.GroupBox53.Controls.Add(Me.CBTagShibari) +Me.GroupBox53.Location = New System.Drawing.Point(450, 277) +Me.GroupBox53.Name = "GroupBox53" +Me.GroupBox53.Size = New System.Drawing.Size(246, 118) +Me.GroupBox53.TabIndex = 240 +Me.GroupBox53.TabStop = false +Me.GroupBox53.Text = "Hentai/JAV Themes" +' +'CBTagTrap +' +Me.CBTagTrap.AutoSize = true +Me.CBTagTrap.Enabled = false +Me.CBTagTrap.ForeColor = System.Drawing.Color.Black +Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) +Me.CBTagTrap.Name = "CBTagTrap" +Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) +Me.CBTagTrap.TabIndex = 226 +Me.CBTagTrap.Text = "Trap" +Me.CBTagTrap.UseVisualStyleBackColor = true +' +'CBTagTentacles +' +Me.CBTagTentacles.AutoSize = true +Me.CBTagTentacles.Enabled = false +Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black +Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) +Me.CBTagTentacles.Name = "CBTagTentacles" +Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) +Me.CBTagTentacles.TabIndex = 204 +Me.CBTagTentacles.Text = "Tentacles" +Me.CBTagTentacles.UseVisualStyleBackColor = true +' +'CBTagMonsterGirl +' +Me.CBTagMonsterGirl.AutoSize = true +Me.CBTagMonsterGirl.Enabled = false +Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black +Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) +Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" +Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) +Me.CBTagMonsterGirl.TabIndex = 214 +Me.CBTagMonsterGirl.Text = "Monster Girl" +Me.CBTagMonsterGirl.UseVisualStyleBackColor = true +' +'CBTagBukkake +' +Me.CBTagBukkake.AutoSize = true +Me.CBTagBukkake.Enabled = false +Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black +Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) +Me.CBTagBukkake.Name = "CBTagBukkake" +Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) +Me.CBTagBukkake.TabIndex = 210 +Me.CBTagBukkake.Text = "Bukkake" +Me.CBTagBukkake.UseVisualStyleBackColor = true +' +'CBTagGanguro +' +Me.CBTagGanguro.AutoSize = true +Me.CBTagGanguro.Enabled = false +Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black +Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) +Me.CBTagGanguro.Name = "CBTagGanguro" +Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) +Me.CBTagGanguro.TabIndex = 205 +Me.CBTagGanguro.Text = "Ganguro" +Me.CBTagGanguro.UseVisualStyleBackColor = true +' +'CBTagBodyWriting +' +Me.CBTagBodyWriting.AutoSize = true +Me.CBTagBodyWriting.Enabled = false +Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) +Me.CBTagBodyWriting.Name = "CBTagBodyWriting" +Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) +Me.CBTagBodyWriting.TabIndex = 208 +Me.CBTagBodyWriting.Text = "Body Writing" +Me.CBTagBodyWriting.UseVisualStyleBackColor = true +' +'CBTagMahouShoujo +' +Me.CBTagMahouShoujo.AutoSize = true +Me.CBTagMahouShoujo.Enabled = false +Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black +Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) +Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" +Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) +Me.CBTagMahouShoujo.TabIndex = 209 +Me.CBTagMahouShoujo.Text = "Mahou Shoujo" +Me.CBTagMahouShoujo.UseVisualStyleBackColor = true +' +'CBTagBakunyuu +' +Me.CBTagBakunyuu.AutoSize = true +Me.CBTagBakunyuu.Enabled = false +Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black +Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) +Me.CBTagBakunyuu.Name = "CBTagBakunyuu" +Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) +Me.CBTagBakunyuu.TabIndex = 213 +Me.CBTagBakunyuu.Text = "Bakunyuu" +Me.CBTagBakunyuu.UseVisualStyleBackColor = true +' +'CBTagAhegao +' +Me.CBTagAhegao.AutoSize = true +Me.CBTagAhegao.Enabled = false +Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black +Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) +Me.CBTagAhegao.Name = "CBTagAhegao" +Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) +Me.CBTagAhegao.TabIndex = 207 +Me.CBTagAhegao.Text = "Ahegao" +Me.CBTagAhegao.UseVisualStyleBackColor = true +' +'CBTagShibari +' +Me.CBTagShibari.AutoSize = true +Me.CBTagShibari.Enabled = false +Me.CBTagShibari.ForeColor = System.Drawing.Color.Black +Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) +Me.CBTagShibari.Name = "CBTagShibari" +Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) +Me.CBTagShibari.TabIndex = 203 +Me.CBTagShibari.Text = "Shibari" +Me.CBTagShibari.UseVisualStyleBackColor = true +' +'GroupBox49 +' +Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) +Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) +Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) +Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) +Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) +Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) +Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) +Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) +Me.GroupBox49.Location = New System.Drawing.Point(341, 37) +Me.GroupBox49.Name = "GroupBox49" +Me.GroupBox49.Size = New System.Drawing.Size(103, 238) +Me.GroupBox49.TabIndex = 236 +Me.GroupBox49.TabStop = false +Me.GroupBox49.Text = "Body Part" +' +'CBTagBodyMouth +' +Me.CBTagBodyMouth.AutoSize = true +Me.CBTagBodyMouth.Enabled = false +Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) +Me.CBTagBodyMouth.Name = "CBTagBodyMouth" +Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) +Me.CBTagBodyMouth.TabIndex = 220 +Me.CBTagBodyMouth.Text = "Mouth" +Me.CBTagBodyMouth.UseVisualStyleBackColor = true +' +'CBTagBodyAss +' +Me.CBTagBodyAss.AutoSize = true +Me.CBTagBodyAss.Enabled = false +Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) +Me.CBTagBodyAss.Name = "CBTagBodyAss" +Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyAss.TabIndex = 219 +Me.CBTagBodyAss.Text = "Ass" +Me.CBTagBodyAss.UseVisualStyleBackColor = true +' +'CBTagBodyFace +' +Me.CBTagBodyFace.AutoSize = true +Me.CBTagBodyFace.Enabled = false +Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) +Me.CBTagBodyFace.Name = "CBTagBodyFace" +Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagBodyFace.TabIndex = 203 +Me.CBTagBodyFace.Text = "Face" +Me.CBTagBodyFace.UseVisualStyleBackColor = true +' +'CBTagBodyLegs +' +Me.CBTagBodyLegs.AutoSize = true +Me.CBTagBodyLegs.Enabled = false +Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) +Me.CBTagBodyLegs.Name = "CBTagBodyLegs" +Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagBodyLegs.TabIndex = 218 +Me.CBTagBodyLegs.Text = "Legs" +Me.CBTagBodyLegs.UseVisualStyleBackColor = true +' +'CBTagBodyBalls +' +Me.CBTagBodyBalls.AutoSize = true +Me.CBTagBodyBalls.Enabled = false +Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) +Me.CBTagBodyBalls.Name = "CBTagBodyBalls" +Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) +Me.CBTagBodyBalls.TabIndex = 217 +Me.CBTagBodyBalls.Text = "Balls" +Me.CBTagBodyBalls.UseVisualStyleBackColor = true +' +'CBTagBodyCock +' +Me.CBTagBodyCock.AutoSize = true +Me.CBTagBodyCock.Enabled = false +Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) +Me.CBTagBodyCock.Name = "CBTagBodyCock" +Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) +Me.CBTagBodyCock.TabIndex = 216 +Me.CBTagBodyCock.Text = "Cock" +Me.CBTagBodyCock.UseVisualStyleBackColor = true +' +'CBTagBodyFeet +' +Me.CBTagBodyFeet.AutoSize = true +Me.CBTagBodyFeet.Enabled = false +Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) +Me.CBTagBodyFeet.Name = "CBTagBodyFeet" +Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagBodyFeet.TabIndex = 215 +Me.CBTagBodyFeet.Text = "Feet" +Me.CBTagBodyFeet.UseVisualStyleBackColor = true +' +'CBTagBodyNipples +' +Me.CBTagBodyNipples.AutoSize = true +Me.CBTagBodyNipples.Enabled = false +Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) +Me.CBTagBodyNipples.Name = "CBTagBodyNipples" +Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) +Me.CBTagBodyNipples.TabIndex = 207 +Me.CBTagBodyNipples.Text = "Nipples" +Me.CBTagBodyNipples.UseVisualStyleBackColor = true +' +'CBTagBodyPussy +' +Me.CBTagBodyPussy.AutoSize = true +Me.CBTagBodyPussy.Enabled = false +Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) +Me.CBTagBodyPussy.Name = "CBTagBodyPussy" +Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagBodyPussy.TabIndex = 209 +Me.CBTagBodyPussy.Text = "Pussy" +Me.CBTagBodyPussy.UseVisualStyleBackColor = true +' +'CBTagBodyTits +' +Me.CBTagBodyTits.AutoSize = true +Me.CBTagBodyTits.Enabled = false +Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) +Me.CBTagBodyTits.Name = "CBTagBodyTits" +Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyTits.TabIndex = 213 +Me.CBTagBodyTits.Text = "Tits" +Me.CBTagBodyTits.UseVisualStyleBackColor = true +' +'CBTagBodyFingers +' +Me.CBTagBodyFingers.AutoSize = true +Me.CBTagBodyFingers.Enabled = false +Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) +Me.CBTagBodyFingers.Name = "CBTagBodyFingers" +Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) +Me.CBTagBodyFingers.TabIndex = 210 +Me.CBTagBodyFingers.Text = "Fingers" +Me.CBTagBodyFingers.UseVisualStyleBackColor = true +' +'GroupBox46 +' +Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) +Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) +Me.GroupBox46.Controls.Add(Me.CBTagFemdom) +Me.GroupBox46.Controls.Add(Me.CBTag2M) +Me.GroupBox46.Controls.Add(Me.CBTagFutadom) +Me.GroupBox46.Controls.Add(Me.CBTagFemsub) +Me.GroupBox46.Controls.Add(Me.CBTag2Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMaledom) +Me.GroupBox46.Controls.Add(Me.CBTag3M) +Me.GroupBox46.Controls.Add(Me.CBTagFutasub) +Me.GroupBox46.Controls.Add(Me.CBTag3Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMalesub) +Me.GroupBox46.Controls.Add(Me.CBTag2F) +Me.GroupBox46.Controls.Add(Me.CBTag1Futa) +Me.GroupBox46.Controls.Add(Me.CBTag1M) +Me.GroupBox46.Controls.Add(Me.CBTag1F) +Me.GroupBox46.Controls.Add(Me.CBTag3F) +Me.GroupBox46.Location = New System.Drawing.Point(230, 37) +Me.GroupBox46.Name = "GroupBox46" +Me.GroupBox46.Size = New System.Drawing.Size(105, 358) +Me.GroupBox46.TabIndex = 234 +Me.GroupBox46.TabStop = false +Me.GroupBox46.Text = "Genders && Roles" +' +'CBTagMultiSub +' +Me.CBTagMultiSub.AutoSize = true +Me.CBTagMultiSub.Enabled = false +Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) +Me.CBTagMultiSub.Name = "CBTagMultiSub" +Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) +Me.CBTagMultiSub.TabIndex = 207 +Me.CBTagMultiSub.Text = "Multi-Sub" +Me.CBTagMultiSub.UseVisualStyleBackColor = true +' +'CBTagMultiDom +' +Me.CBTagMultiDom.AutoSize = true +Me.CBTagMultiDom.Enabled = false +Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) +Me.CBTagMultiDom.Name = "CBTagMultiDom" +Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) +Me.CBTagMultiDom.TabIndex = 230 +Me.CBTagMultiDom.Text = "Multi-Dom" +Me.CBTagMultiDom.UseVisualStyleBackColor = true +' +'CBTagFemdom +' +Me.CBTagFemdom.AutoSize = true +Me.CBTagFemdom.Enabled = false +Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black +Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) +Me.CBTagFemdom.Name = "CBTagFemdom" +Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBTagFemdom.TabIndex = 229 +Me.CBTagFemdom.Text = "Femdom" +Me.CBTagFemdom.UseVisualStyleBackColor = true +' +'CBTag2M +' +Me.CBTag2M.AutoSize = true +Me.CBTag2M.Enabled = false +Me.CBTag2M.ForeColor = System.Drawing.Color.Black +Me.CBTag2M.Location = New System.Drawing.Point(15, 97) +Me.CBTag2M.Name = "CBTag2M" +Me.CBTag2M.Size = New System.Drawing.Size(56, 17) +Me.CBTag2M.TabIndex = 206 +Me.CBTag2M.Text = "2 Men" +Me.CBTag2M.UseVisualStyleBackColor = true +' +'CBTagFutadom +' +Me.CBTagFutadom.AutoSize = true +Me.CBTagFutadom.Enabled = false +Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black +Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) +Me.CBTagFutadom.Name = "CBTagFutadom" +Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) +Me.CBTagFutadom.TabIndex = 204 +Me.CBTagFutadom.Text = "Futadom" +Me.CBTagFutadom.UseVisualStyleBackColor = true +' +'CBTagFemsub +' +Me.CBTagFemsub.AutoSize = true +Me.CBTagFemsub.Enabled = false +Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black +Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) +Me.CBTagFemsub.Name = "CBTagFemsub" +Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBTagFemsub.TabIndex = 205 +Me.CBTagFemsub.Text = "Femsub" +Me.CBTagFemsub.UseVisualStyleBackColor = true +' +'CBTag2Futa +' +Me.CBTag2Futa.AutoSize = true +Me.CBTag2Futa.Enabled = false +Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) +Me.CBTag2Futa.Name = "CBTag2Futa" +Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag2Futa.TabIndex = 186 +Me.CBTag2Futa.Text = "2 Futa" +Me.CBTag2Futa.UseVisualStyleBackColor = true +' +'CBTagMaledom +' +Me.CBTagMaledom.AutoSize = true +Me.CBTagMaledom.Enabled = false +Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black +Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) +Me.CBTagMaledom.Name = "CBTagMaledom" +Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) +Me.CBTagMaledom.TabIndex = 206 +Me.CBTagMaledom.Text = "Maledom" +Me.CBTagMaledom.UseVisualStyleBackColor = true +' +'CBTag3M +' +Me.CBTag3M.AutoSize = true +Me.CBTag3M.Enabled = false +Me.CBTag3M.ForeColor = System.Drawing.Color.Black +Me.CBTag3M.Location = New System.Drawing.Point(15, 117) +Me.CBTag3M.Name = "CBTag3M" +Me.CBTag3M.Size = New System.Drawing.Size(56, 17) +Me.CBTag3M.TabIndex = 190 +Me.CBTag3M.Text = "3 Men" +Me.CBTag3M.UseVisualStyleBackColor = true +' +'CBTagFutasub +' +Me.CBTagFutasub.AutoSize = true +Me.CBTagFutasub.Enabled = false +Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black +Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) +Me.CBTagFutasub.Name = "CBTagFutasub" +Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) +Me.CBTagFutasub.TabIndex = 213 +Me.CBTagFutasub.Text = "Futasub" +Me.CBTagFutasub.UseVisualStyleBackColor = true +' +'CBTag3Futa +' +Me.CBTag3Futa.AutoSize = true +Me.CBTag3Futa.Enabled = false +Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) +Me.CBTag3Futa.Name = "CBTag3Futa" +Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag3Futa.TabIndex = 197 +Me.CBTag3Futa.Text = "3 Futa" +Me.CBTag3Futa.UseVisualStyleBackColor = true +' +'CBTagMalesub +' +Me.CBTagMalesub.AutoSize = true +Me.CBTagMalesub.Enabled = false +Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black +Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) +Me.CBTagMalesub.Name = "CBTagMalesub" +Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) +Me.CBTagMalesub.TabIndex = 210 +Me.CBTagMalesub.Text = "Malesub" +Me.CBTagMalesub.UseVisualStyleBackColor = true +' +'CBTag2F +' +Me.CBTag2F.AutoSize = true +Me.CBTag2F.Enabled = false +Me.CBTag2F.ForeColor = System.Drawing.Color.Black +Me.CBTag2F.Location = New System.Drawing.Point(15, 37) +Me.CBTag2F.Name = "CBTag2F" +Me.CBTag2F.Size = New System.Drawing.Size(72, 17) +Me.CBTag2F.TabIndex = 188 +Me.CBTag2F.Text = "2 Women" +Me.CBTag2F.UseVisualStyleBackColor = true +' +'CBTag1Futa +' +Me.CBTag1Futa.AutoSize = true +Me.CBTag1Futa.Enabled = false +Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) +Me.CBTag1Futa.Name = "CBTag1Futa" +Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag1Futa.TabIndex = 191 +Me.CBTag1Futa.Text = "1 Futa" +Me.CBTag1Futa.UseVisualStyleBackColor = true +' +'CBTag1M +' +Me.CBTag1M.AutoSize = true +Me.CBTag1M.Enabled = false +Me.CBTag1M.ForeColor = System.Drawing.Color.Black +Me.CBTag1M.Location = New System.Drawing.Point(15, 77) +Me.CBTag1M.Name = "CBTag1M" +Me.CBTag1M.Size = New System.Drawing.Size(56, 17) +Me.CBTag1M.TabIndex = 189 +Me.CBTag1M.Text = "1 Man" +Me.CBTag1M.UseVisualStyleBackColor = true +' +'CBTag1F +' +Me.CBTag1F.AutoSize = true +Me.CBTag1F.Enabled = false +Me.CBTag1F.ForeColor = System.Drawing.Color.Black +Me.CBTag1F.Location = New System.Drawing.Point(15, 17) +Me.CBTag1F.Name = "CBTag1F" +Me.CBTag1F.Size = New System.Drawing.Size(72, 17) +Me.CBTag1F.TabIndex = 185 +Me.CBTag1F.Text = "1 Woman" +Me.CBTag1F.UseVisualStyleBackColor = true +' +'CBTag3F +' +Me.CBTag3F.AutoSize = true +Me.CBTag3F.Enabled = false +Me.CBTag3F.ForeColor = System.Drawing.Color.Black +Me.CBTag3F.Location = New System.Drawing.Point(15, 57) +Me.CBTag3F.Name = "CBTag3F" +Me.CBTag3F.Size = New System.Drawing.Size(72, 17) +Me.CBTag3F.TabIndex = 192 +Me.CBTag3F.Text = "3 Women" +Me.CBTag3F.UseVisualStyleBackColor = true +' +'GroupBox54 +' +Me.GroupBox54.Controls.Add(Me.CBTagTattoos) +Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) +Me.GroupBox54.Controls.Add(Me.CBTagDomme) +Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) +Me.GroupBox54.Controls.Add(Me.CBTagWatersports) +Me.GroupBox54.Controls.Add(Me.CBTagStockings) +Me.GroupBox54.Controls.Add(Me.CBTagCumshot) +Me.GroupBox54.Controls.Add(Me.CBTagCumEating) +Me.GroupBox54.Controls.Add(Me.CBTagVibrator) +Me.GroupBox54.Controls.Add(Me.CBTagDildo) +Me.GroupBox54.Controls.Add(Me.CBTagKissing) +Me.GroupBox54.Location = New System.Drawing.Point(561, 37) +Me.GroupBox54.Name = "GroupBox54" +Me.GroupBox54.Size = New System.Drawing.Size(135, 238) +Me.GroupBox54.TabIndex = 239 +Me.GroupBox54.TabStop = false +Me.GroupBox54.Text = "Misc" +' +'CBTagTattoos +' +Me.CBTagTattoos.AutoSize = true +Me.CBTagTattoos.Enabled = false +Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) +Me.CBTagTattoos.Name = "CBTagTattoos" +Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBTagTattoos.TabIndex = 214 +Me.CBTagTattoos.Text = "Tattoos" +Me.CBTagTattoos.UseVisualStyleBackColor = true +' +'CBTagAnalToy +' +Me.CBTagAnalToy.AutoSize = true +Me.CBTagAnalToy.Enabled = false +Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) +Me.CBTagAnalToy.Name = "CBTagAnalToy" +Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalToy.TabIndex = 215 +Me.CBTagAnalToy.Text = "Anal Toy" +Me.CBTagAnalToy.UseVisualStyleBackColor = true +' +'CBTagDomme +' +Me.CBTagDomme.AutoSize = true +Me.CBTagDomme.Enabled = false +Me.CBTagDomme.ForeColor = System.Drawing.Color.Black +Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) +Me.CBTagDomme.Name = "CBTagDomme" +Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) +Me.CBTagDomme.TabIndex = 219 +Me.CBTagDomme.Text = "Tease A.I. Domme" +Me.CBTagDomme.UseVisualStyleBackColor = true +' +'CBTagPocketPussy +' +Me.CBTagPocketPussy.AutoSize = true +Me.CBTagPocketPussy.Enabled = false +Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) +Me.CBTagPocketPussy.Name = "CBTagPocketPussy" +Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) +Me.CBTagPocketPussy.TabIndex = 205 +Me.CBTagPocketPussy.Text = "Pocket Pussy" +Me.CBTagPocketPussy.UseVisualStyleBackColor = true +' +'CBTagWatersports +' +Me.CBTagWatersports.AutoSize = true +Me.CBTagWatersports.Enabled = false +Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black +Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) +Me.CBTagWatersports.Name = "CBTagWatersports" +Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) +Me.CBTagWatersports.TabIndex = 218 +Me.CBTagWatersports.Text = "Watersports" +Me.CBTagWatersports.UseVisualStyleBackColor = true +' +'CBTagStockings +' +Me.CBTagStockings.AutoSize = true +Me.CBTagStockings.Enabled = false +Me.CBTagStockings.ForeColor = System.Drawing.Color.Black +Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) +Me.CBTagStockings.Name = "CBTagStockings" +Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) +Me.CBTagStockings.TabIndex = 217 +Me.CBTagStockings.Text = "Stockings" +Me.CBTagStockings.UseVisualStyleBackColor = true +' +'CBTagCumshot +' +Me.CBTagCumshot.AutoSize = true +Me.CBTagCumshot.Enabled = false +Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black +Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) +Me.CBTagCumshot.Name = "CBTagCumshot" +Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) +Me.CBTagCumshot.TabIndex = 206 +Me.CBTagCumshot.Text = "Cumshot" +Me.CBTagCumshot.UseVisualStyleBackColor = true +' +'CBTagCumEating +' +Me.CBTagCumEating.AutoSize = true +Me.CBTagCumEating.Enabled = false +Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black +Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) +Me.CBTagCumEating.Name = "CBTagCumEating" +Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) +Me.CBTagCumEating.TabIndex = 204 +Me.CBTagCumEating.Text = "Cum Eating" +Me.CBTagCumEating.UseVisualStyleBackColor = true +' +'CBTagVibrator +' +Me.CBTagVibrator.AutoSize = true +Me.CBTagVibrator.Enabled = false +Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black +Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) +Me.CBTagVibrator.Name = "CBTagVibrator" +Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) +Me.CBTagVibrator.TabIndex = 210 +Me.CBTagVibrator.Text = "Vibrator" +Me.CBTagVibrator.UseVisualStyleBackColor = true +' +'CBTagDildo +' +Me.CBTagDildo.AutoSize = true +Me.CBTagDildo.Enabled = false +Me.CBTagDildo.ForeColor = System.Drawing.Color.Black +Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) +Me.CBTagDildo.Name = "CBTagDildo" +Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) +Me.CBTagDildo.TabIndex = 213 +Me.CBTagDildo.Text = "Dildo" +Me.CBTagDildo.UseVisualStyleBackColor = true +' +'CBTagKissing +' +Me.CBTagKissing.AutoSize = true +Me.CBTagKissing.Enabled = false +Me.CBTagKissing.ForeColor = System.Drawing.Color.Black +Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) +Me.CBTagKissing.Name = "CBTagKissing" +Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) +Me.CBTagKissing.TabIndex = 203 +Me.CBTagKissing.Text = "Kissing" +Me.CBTagKissing.UseVisualStyleBackColor = true +' +'GroupBox51 +' +Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) +Me.GroupBox51.Controls.Add(Me.CBTagGag) +Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) +Me.GroupBox51.Controls.Add(Me.CBTagWhipping) +Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) +Me.GroupBox51.Controls.Add(Me.CBTagElectro) +Me.GroupBox51.Controls.Add(Me.CBTagHotWax) +Me.GroupBox51.Controls.Add(Me.CBTagClamps) +Me.GroupBox51.Controls.Add(Me.CBTagStrapon) +Me.GroupBox51.Controls.Add(Me.CBTagSpanking) +Me.GroupBox51.Controls.Add(Me.CBTagNeedles) +Me.GroupBox51.Location = New System.Drawing.Point(450, 37) +Me.GroupBox51.Name = "GroupBox51" +Me.GroupBox51.Size = New System.Drawing.Size(105, 238) +Me.GroupBox51.TabIndex = 238 +Me.GroupBox51.TabStop = false +Me.GroupBox51.Text = "BDSM" +' +'CBTagBallTorture +' +Me.CBTagBallTorture.AutoSize = true +Me.CBTagBallTorture.Enabled = false +Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) +Me.CBTagBallTorture.Name = "CBTagBallTorture" +Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) +Me.CBTagBallTorture.TabIndex = 220 +Me.CBTagBallTorture.Text = "Ball Torture" +Me.CBTagBallTorture.UseVisualStyleBackColor = true +' +'CBTagGag +' +Me.CBTagGag.AutoSize = true +Me.CBTagGag.Enabled = false +Me.CBTagGag.ForeColor = System.Drawing.Color.Black +Me.CBTagGag.Location = New System.Drawing.Point(15, 137) +Me.CBTagGag.Name = "CBTagGag" +Me.CBTagGag.Size = New System.Drawing.Size(46, 17) +Me.CBTagGag.TabIndex = 214 +Me.CBTagGag.Text = "Gag" +Me.CBTagGag.UseVisualStyleBackColor = true +' +'CBTagBlindfold +' +Me.CBTagBlindfold.AutoSize = true +Me.CBTagBlindfold.Enabled = false +Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black +Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) +Me.CBTagBlindfold.Name = "CBTagBlindfold" +Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) +Me.CBTagBlindfold.TabIndex = 208 +Me.CBTagBlindfold.Text = "Blindfold" +Me.CBTagBlindfold.UseVisualStyleBackColor = true +' +'CBTagWhipping +' +Me.CBTagWhipping.AutoSize = true +Me.CBTagWhipping.Enabled = false +Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black +Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) +Me.CBTagWhipping.Name = "CBTagWhipping" +Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) +Me.CBTagWhipping.TabIndex = 203 +Me.CBTagWhipping.Text = "Whipping" +Me.CBTagWhipping.UseVisualStyleBackColor = true +' +'CBTagCockTorture +' +Me.CBTagCockTorture.AutoSize = true +Me.CBTagCockTorture.Enabled = false +Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) +Me.CBTagCockTorture.Name = "CBTagCockTorture" +Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) +Me.CBTagCockTorture.TabIndex = 204 +Me.CBTagCockTorture.Text = "Cock Torture" +Me.CBTagCockTorture.UseVisualStyleBackColor = true +' +'CBTagElectro +' +Me.CBTagElectro.AutoSize = true +Me.CBTagElectro.Enabled = false +Me.CBTagElectro.ForeColor = System.Drawing.Color.Black +Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) +Me.CBTagElectro.Name = "CBTagElectro" +Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) +Me.CBTagElectro.TabIndex = 207 +Me.CBTagElectro.Text = "Electro" +Me.CBTagElectro.UseVisualStyleBackColor = true +' +'CBTagHotWax +' +Me.CBTagHotWax.AutoSize = true +Me.CBTagHotWax.Enabled = false +Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black +Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) +Me.CBTagHotWax.Name = "CBTagHotWax" +Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) +Me.CBTagHotWax.TabIndex = 213 +Me.CBTagHotWax.Text = "Hot Wax" +Me.CBTagHotWax.UseVisualStyleBackColor = true +' +'CBTagClamps +' +Me.CBTagClamps.AutoSize = true +Me.CBTagClamps.Enabled = false +Me.CBTagClamps.ForeColor = System.Drawing.Color.Black +Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) +Me.CBTagClamps.Name = "CBTagClamps" +Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) +Me.CBTagClamps.TabIndex = 210 +Me.CBTagClamps.Text = "Clamps" +Me.CBTagClamps.UseVisualStyleBackColor = true +' +'CBTagStrapon +' +Me.CBTagStrapon.AutoSize = true +Me.CBTagStrapon.Enabled = false +Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black +Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) +Me.CBTagStrapon.Name = "CBTagStrapon" +Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) +Me.CBTagStrapon.TabIndex = 205 +Me.CBTagStrapon.Text = "Strap-on" +Me.CBTagStrapon.UseVisualStyleBackColor = true +' +'CBTagSpanking +' +Me.CBTagSpanking.AutoSize = true +Me.CBTagSpanking.Enabled = false +Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black +Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) +Me.CBTagSpanking.Name = "CBTagSpanking" +Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) +Me.CBTagSpanking.TabIndex = 206 +Me.CBTagSpanking.Text = "Spanking" +Me.CBTagSpanking.UseVisualStyleBackColor = true +' +'CBTagNeedles +' +Me.CBTagNeedles.AutoSize = true +Me.CBTagNeedles.Enabled = false +Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black +Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) +Me.CBTagNeedles.Name = "CBTagNeedles" +Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) +Me.CBTagNeedles.TabIndex = 209 +Me.CBTagNeedles.Text = "Needles" +Me.CBTagNeedles.UseVisualStyleBackColor = true +' +'GroupBox50 +' +Me.GroupBox50.Controls.Add(Me.CBTagRimming) +Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) +Me.GroupBox50.Controls.Add(Me.CBTagMissionary) +Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) +Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagFingering) +Me.GroupBox50.Controls.Add(Me.CBTagGangbang) +Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) +Me.GroupBox50.Controls.Add(Me.CBTagDP) +Me.GroupBox50.Controls.Add(Me.CBTagHandjob) +Me.GroupBox50.Controls.Add(Me.CBTagStanding) +Me.GroupBox50.Controls.Add(Me.CBTagFootjob) +Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) +Me.GroupBox50.Controls.Add(Me.CBTagTitjob) +Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) +Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) +Me.GroupBox50.Location = New System.Drawing.Point(119, 37) +Me.GroupBox50.Name = "GroupBox50" +Me.GroupBox50.Size = New System.Drawing.Size(105, 358) +Me.GroupBox50.TabIndex = 237 +Me.GroupBox50.TabStop = false +Me.GroupBox50.Text = "Sex" +' +'CBTagRimming +' +Me.CBTagRimming.AutoSize = true +Me.CBTagRimming.Enabled = false +Me.CBTagRimming.ForeColor = System.Drawing.Color.Black +Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) +Me.CBTagRimming.Name = "CBTagRimming" +Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) +Me.CBTagRimming.TabIndex = 219 +Me.CBTagRimming.Text = "Rimming" +Me.CBTagRimming.UseVisualStyleBackColor = true +' +'CBTagFacesitting +' +Me.CBTagFacesitting.AutoSize = true +Me.CBTagFacesitting.Enabled = false +Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black +Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) +Me.CBTagFacesitting.Name = "CBTagFacesitting" +Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) +Me.CBTagFacesitting.TabIndex = 226 +Me.CBTagFacesitting.Text = "Facesitting" +Me.CBTagFacesitting.UseVisualStyleBackColor = true +' +'CBTagMissionary +' +Me.CBTagMissionary.AutoSize = true +Me.CBTagMissionary.Enabled = false +Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black +Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) +Me.CBTagMissionary.Name = "CBTagMissionary" +Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) +Me.CBTagMissionary.TabIndex = 208 +Me.CBTagMissionary.Text = "Missionary" +Me.CBTagMissionary.UseVisualStyleBackColor = true +' +'CBTagMasturbation +' +Me.CBTagMasturbation.AutoSize = true +Me.CBTagMasturbation.Enabled = false +Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) +Me.CBTagMasturbation.Name = "CBTagMasturbation" +Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbation.TabIndex = 203 +Me.CBTagMasturbation.Text = "Masturbation" +Me.CBTagMasturbation.UseVisualStyleBackColor = true +' +'CBTagRCowgirl +' +Me.CBTagRCowgirl.AutoSize = true +Me.CBTagRCowgirl.Enabled = false +Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) +Me.CBTagRCowgirl.Name = "CBTagRCowgirl" +Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) +Me.CBTagRCowgirl.TabIndex = 218 +Me.CBTagRCowgirl.Text = "R. Cowgirl" +Me.CBTagRCowgirl.UseVisualStyleBackColor = true +' +'CBTagFingering +' +Me.CBTagFingering.AutoSize = true +Me.CBTagFingering.Enabled = false +Me.CBTagFingering.ForeColor = System.Drawing.Color.Black +Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) +Me.CBTagFingering.Name = "CBTagFingering" +Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) +Me.CBTagFingering.TabIndex = 204 +Me.CBTagFingering.Text = "Fingering" +Me.CBTagFingering.UseVisualStyleBackColor = true +' +'CBTagGangbang +' +Me.CBTagGangbang.AutoSize = true +Me.CBTagGangbang.Enabled = false +Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black +Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) +Me.CBTagGangbang.Name = "CBTagGangbang" +Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) +Me.CBTagGangbang.TabIndex = 217 +Me.CBTagGangbang.Text = "Gangbang" +Me.CBTagGangbang.UseVisualStyleBackColor = true +' +'CBTagBlowjob +' +Me.CBTagBlowjob.AutoSize = true +Me.CBTagBlowjob.Enabled = false +Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) +Me.CBTagBlowjob.Name = "CBTagBlowjob" +Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBTagBlowjob.TabIndex = 205 +Me.CBTagBlowjob.Text = "Blowjob" +Me.CBTagBlowjob.UseVisualStyleBackColor = true +' +'CBTagDP +' +Me.CBTagDP.AutoSize = true +Me.CBTagDP.Enabled = false +Me.CBTagDP.ForeColor = System.Drawing.Color.Black +Me.CBTagDP.Location = New System.Drawing.Point(15, 317) +Me.CBTagDP.Name = "CBTagDP" +Me.CBTagDP.Size = New System.Drawing.Size(41, 17) +Me.CBTagDP.TabIndex = 216 +Me.CBTagDP.Text = "DP" +Me.CBTagDP.UseVisualStyleBackColor = true +' +'CBTagHandjob +' +Me.CBTagHandjob.AutoSize = true +Me.CBTagHandjob.Enabled = false +Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black +Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) +Me.CBTagHandjob.Name = "CBTagHandjob" +Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) +Me.CBTagHandjob.TabIndex = 206 +Me.CBTagHandjob.Text = "Handjob" +Me.CBTagHandjob.UseVisualStyleBackColor = true +' +'CBTagStanding +' +Me.CBTagStanding.AutoSize = true +Me.CBTagStanding.Enabled = false +Me.CBTagStanding.ForeColor = System.Drawing.Color.Black +Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) +Me.CBTagStanding.Name = "CBTagStanding" +Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) +Me.CBTagStanding.TabIndex = 215 +Me.CBTagStanding.Text = "Standing" +Me.CBTagStanding.UseVisualStyleBackColor = true +' +'CBTagFootjob +' +Me.CBTagFootjob.AutoSize = true +Me.CBTagFootjob.Enabled = false +Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black +Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) +Me.CBTagFootjob.Name = "CBTagFootjob" +Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) +Me.CBTagFootjob.TabIndex = 207 +Me.CBTagFootjob.Text = "Footjob" +Me.CBTagFootjob.UseVisualStyleBackColor = true +' +'CBTagCowgirl +' +Me.CBTagCowgirl.AutoSize = true +Me.CBTagCowgirl.Enabled = false +Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) +Me.CBTagCowgirl.Name = "CBTagCowgirl" +Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) +Me.CBTagCowgirl.TabIndex = 214 +Me.CBTagCowgirl.Text = "Cowgirl" +Me.CBTagCowgirl.UseVisualStyleBackColor = true +' +'CBTagDoggyStyle +' +Me.CBTagDoggyStyle.AutoSize = true +Me.CBTagDoggyStyle.Enabled = false +Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black +Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) +Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" +Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) +Me.CBTagDoggyStyle.TabIndex = 209 +Me.CBTagDoggyStyle.Text = "Doggy Style" +Me.CBTagDoggyStyle.UseVisualStyleBackColor = true +' +'CBTagTitjob +' +Me.CBTagTitjob.AutoSize = true +Me.CBTagTitjob.Enabled = false +Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black +Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) +Me.CBTagTitjob.Name = "CBTagTitjob" +Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) +Me.CBTagTitjob.TabIndex = 213 +Me.CBTagTitjob.Text = "Titjob" +Me.CBTagTitjob.UseVisualStyleBackColor = true +' +'CBTagCunnilingus +' +Me.CBTagCunnilingus.AutoSize = true +Me.CBTagCunnilingus.Enabled = false +Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black +Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) +Me.CBTagCunnilingus.Name = "CBTagCunnilingus" +Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) +Me.CBTagCunnilingus.TabIndex = 210 +Me.CBTagCunnilingus.Text = "Cunnilingus" +Me.CBTagCunnilingus.UseVisualStyleBackColor = true +' +'CBTagAnalSex +' +Me.CBTagAnalSex.AutoSize = true +Me.CBTagAnalSex.Enabled = false +Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) +Me.CBTagAnalSex.Name = "CBTagAnalSex" +Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalSex.TabIndex = 212 +Me.CBTagAnalSex.Text = "Anal Sex" +Me.CBTagAnalSex.UseVisualStyleBackColor = true +' +'GroupBox48 +' +Me.GroupBox48.Controls.Add(Me.CBTagArtwork) +Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) +Me.GroupBox48.Controls.Add(Me.CBTagPOV) +Me.GroupBox48.Controls.Add(Me.CBTagHardcore) +Me.GroupBox48.Controls.Add(Me.CBTagTD) +Me.GroupBox48.Controls.Add(Me.CBTagGay) +Me.GroupBox48.Controls.Add(Me.CBTagBath) +Me.GroupBox48.Controls.Add(Me.CBTagBisexual) +Me.GroupBox48.Controls.Add(Me.CBTagCFNM) +Me.GroupBox48.Controls.Add(Me.CBTagLesbian) +Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) +Me.GroupBox48.Controls.Add(Me.CBTagSM) +Me.GroupBox48.Controls.Add(Me.CBTagBondage) +Me.GroupBox48.Controls.Add(Me.CBTagSoloM) +Me.GroupBox48.Controls.Add(Me.CBTagSoloF) +Me.GroupBox48.Controls.Add(Me.CBTagChastity) +Me.GroupBox48.Controls.Add(Me.CBTagShower) +Me.GroupBox48.Location = New System.Drawing.Point(8, 37) +Me.GroupBox48.Name = "GroupBox48" +Me.GroupBox48.Size = New System.Drawing.Size(105, 358) +Me.GroupBox48.TabIndex = 235 +Me.GroupBox48.TabStop = false +Me.GroupBox48.Text = "Category" +' +'CBTagArtwork +' +Me.CBTagArtwork.AutoSize = true +Me.CBTagArtwork.Enabled = false +Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black +Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) +Me.CBTagArtwork.Name = "CBTagArtwork" +Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) +Me.CBTagArtwork.TabIndex = 225 +Me.CBTagArtwork.Text = "Artwork" +Me.CBTagArtwork.UseVisualStyleBackColor = true +' +'CBTagOutdoors +' +Me.CBTagOutdoors.AutoSize = true +Me.CBTagOutdoors.Enabled = false +Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black +Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) +Me.CBTagOutdoors.Name = "CBTagOutdoors" +Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) +Me.CBTagOutdoors.TabIndex = 219 +Me.CBTagOutdoors.Text = "Outdoors" +Me.CBTagOutdoors.UseVisualStyleBackColor = true +' +'CBTagPOV +' +Me.CBTagPOV.AutoSize = true +Me.CBTagPOV.Enabled = false +Me.CBTagPOV.ForeColor = System.Drawing.Color.Black +Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) +Me.CBTagPOV.Name = "CBTagPOV" +Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) +Me.CBTagPOV.TabIndex = 208 +Me.CBTagPOV.Text = "POV" +Me.CBTagPOV.UseVisualStyleBackColor = true +' +'CBTagHardcore +' +Me.CBTagHardcore.AutoSize = true +Me.CBTagHardcore.Enabled = false +Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black +Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) +Me.CBTagHardcore.Name = "CBTagHardcore" +Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBTagHardcore.TabIndex = 203 +Me.CBTagHardcore.Text = "Hardcore" +Me.CBTagHardcore.UseVisualStyleBackColor = true +' +'CBTagTD +' +Me.CBTagTD.AutoSize = true +Me.CBTagTD.Enabled = false +Me.CBTagTD.ForeColor = System.Drawing.Color.Black +Me.CBTagTD.Location = New System.Drawing.Point(15, 217) +Me.CBTagTD.Name = "CBTagTD" +Me.CBTagTD.Size = New System.Drawing.Size(47, 17) +Me.CBTagTD.TabIndex = 218 +Me.CBTagTD.Text = "T&&D" +Me.CBTagTD.UseVisualStyleBackColor = true +' +'CBTagGay +' +Me.CBTagGay.AutoSize = true +Me.CBTagGay.Enabled = false +Me.CBTagGay.ForeColor = System.Drawing.Color.Black +Me.CBTagGay.Location = New System.Drawing.Point(15, 57) +Me.CBTagGay.Name = "CBTagGay" +Me.CBTagGay.Size = New System.Drawing.Size(45, 17) +Me.CBTagGay.TabIndex = 204 +Me.CBTagGay.Text = "Gay" +Me.CBTagGay.UseVisualStyleBackColor = true +' +'CBTagBath +' +Me.CBTagBath.AutoSize = true +Me.CBTagBath.Enabled = false +Me.CBTagBath.ForeColor = System.Drawing.Color.Black +Me.CBTagBath.Location = New System.Drawing.Point(15, 277) +Me.CBTagBath.Name = "CBTagBath" +Me.CBTagBath.Size = New System.Drawing.Size(48, 17) +Me.CBTagBath.TabIndex = 217 +Me.CBTagBath.Text = "Bath" +Me.CBTagBath.UseVisualStyleBackColor = true +' +'CBTagBisexual +' +Me.CBTagBisexual.AutoSize = true +Me.CBTagBisexual.Enabled = false +Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black +Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) +Me.CBTagBisexual.Name = "CBTagBisexual" +Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) +Me.CBTagBisexual.TabIndex = 205 +Me.CBTagBisexual.Text = "Bisexual" +Me.CBTagBisexual.UseVisualStyleBackColor = true +' +'CBTagCFNM +' +Me.CBTagCFNM.AutoSize = true +Me.CBTagCFNM.Enabled = false +Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black +Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) +Me.CBTagCFNM.Name = "CBTagCFNM" +Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) +Me.CBTagCFNM.TabIndex = 216 +Me.CBTagCFNM.Text = "CFNM" +Me.CBTagCFNM.UseVisualStyleBackColor = true +' +'CBTagLesbian +' +Me.CBTagLesbian.AutoSize = true +Me.CBTagLesbian.Enabled = false +Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black +Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) +Me.CBTagLesbian.Name = "CBTagLesbian" +Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBTagLesbian.TabIndex = 206 +Me.CBTagLesbian.Text = "Lesbian" +Me.CBTagLesbian.UseVisualStyleBackColor = true +' +'CBTagSoloFuta +' +Me.CBTagSoloFuta.AutoSize = true +Me.CBTagSoloFuta.Enabled = false +Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) +Me.CBTagSoloFuta.Name = "CBTagSoloFuta" +Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) +Me.CBTagSoloFuta.TabIndex = 207 +Me.CBTagSoloFuta.Text = "Solo Futa" +Me.CBTagSoloFuta.UseVisualStyleBackColor = true +' +'CBTagSM +' +Me.CBTagSM.AutoSize = true +Me.CBTagSM.Enabled = false +Me.CBTagSM.ForeColor = System.Drawing.Color.Black +Me.CBTagSM.Location = New System.Drawing.Point(15, 197) +Me.CBTagSM.Name = "CBTagSM" +Me.CBTagSM.Size = New System.Drawing.Size(48, 17) +Me.CBTagSM.TabIndex = 214 +Me.CBTagSM.Text = "S&&M" +Me.CBTagSM.UseVisualStyleBackColor = true +' +'CBTagBondage +' +Me.CBTagBondage.AutoSize = true +Me.CBTagBondage.Enabled = false +Me.CBTagBondage.ForeColor = System.Drawing.Color.Black +Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) +Me.CBTagBondage.Name = "CBTagBondage" +Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) +Me.CBTagBondage.TabIndex = 209 +Me.CBTagBondage.Text = "Bondage" +Me.CBTagBondage.UseVisualStyleBackColor = true +' +'CBTagSoloM +' +Me.CBTagSoloM.AutoSize = true +Me.CBTagSoloM.Enabled = false +Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) +Me.CBTagSoloM.Name = "CBTagSoloM" +Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) +Me.CBTagSoloM.TabIndex = 213 +Me.CBTagSoloM.Text = "Solo M" +Me.CBTagSoloM.UseVisualStyleBackColor = true +' +'CBTagSoloF +' +Me.CBTagSoloF.AutoSize = true +Me.CBTagSoloF.Enabled = false +Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) +Me.CBTagSoloF.Name = "CBTagSoloF" +Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) +Me.CBTagSoloF.TabIndex = 210 +Me.CBTagSoloF.Text = "Solo F" +Me.CBTagSoloF.UseVisualStyleBackColor = true +' +'CBTagChastity +' +Me.CBTagChastity.AutoSize = true +Me.CBTagChastity.Enabled = false +Me.CBTagChastity.ForeColor = System.Drawing.Color.Black +Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) +Me.CBTagChastity.Name = "CBTagChastity" +Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) +Me.CBTagChastity.TabIndex = 212 +Me.CBTagChastity.Text = "Chastity" +Me.CBTagChastity.UseVisualStyleBackColor = true +' +'CBTagShower +' +Me.CBTagShower.AutoSize = true +Me.CBTagShower.Enabled = false +Me.CBTagShower.ForeColor = System.Drawing.Color.Black +Me.CBTagShower.Location = New System.Drawing.Point(15, 297) +Me.CBTagShower.Name = "CBTagShower" +Me.CBTagShower.Size = New System.Drawing.Size(62, 17) +Me.CBTagShower.TabIndex = 211 +Me.CBTagShower.Text = "Shower" +Me.CBTagShower.UseVisualStyleBackColor = true +' +'TBLocalTagDir +' +Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBLocalTagDir.Name = "TBLocalTagDir" +Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBLocalTagDir.TabIndex = 233 +Me.TBLocalTagDir.Text = "Enter Image Directory" +' +'BTNLocalTagPrevious +' +Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagPrevious.Enabled = false +Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" +Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagPrevious.TabIndex = 232 +Me.BTNLocalTagPrevious.Text = "<<" +Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false +' +'BTNLocalTagNext +' +Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagNext.Enabled = false +Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNLocalTagNext.Name = "BTNLocalTagNext" +Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagNext.TabIndex = 231 +Me.BTNLocalTagNext.Text = ">>" +Me.BTNLocalTagNext.UseVisualStyleBackColor = false +' +'LBLLocalTagCount +' +Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLLocalTagCount.Enabled = false +Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLLocalTagCount.Name = "LBLLocalTagCount" +Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLLocalTagCount.TabIndex = 230 +Me.LBLLocalTagCount.Text = "0/0" +Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNLocalTagSave +' +Me.BTNLocalTagSave.Enabled = false +Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNLocalTagSave.Name = "BTNLocalTagSave" +Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNLocalTagSave.TabIndex = 229 +Me.BTNLocalTagSave.Text = "Finished" +Me.BTNLocalTagSave.UseVisualStyleBackColor = true +' +'BTNLocalTagDir +' +Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNLocalTagDir.Name = "BTNLocalTagDir" +Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNLocalTagDir.TabIndex = 228 +Me.BTNLocalTagDir.Text = "1" +Me.BTNLocalTagDir.UseVisualStyleBackColor = true +' +'TabPage11 +' +Me.TabPage11.BackColor = System.Drawing.Color.Silver +Me.TabPage11.Controls.Add(Me.Panel7) +Me.TabPage11.Location = New System.Drawing.Point(4, 22) +Me.TabPage11.Name = "TabPage11" +Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage11.Size = New System.Drawing.Size(720, 448) +Me.TabPage11.TabIndex = 10 +Me.TabPage11.Text = "URL Files" +' +'Panel7 +' +Me.Panel7.BackColor = System.Drawing.Color.LightGray +Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel7.Controls.Add(Me.BTNWIContinue) +Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) +Me.Panel7.Controls.Add(Me.BTNWICancel) +Me.Panel7.Controls.Add(Me.CBWIReview) +Me.Panel7.Controls.Add(Me.BTNWIBrowse) +Me.Panel7.Controls.Add(Me.TBWIDirectory) +Me.Panel7.Controls.Add(Me.BTNWIDisliked) +Me.Panel7.Controls.Add(Me.BTNWILiked) +Me.Panel7.Controls.Add(Me.BTNWIRemove) +Me.Panel7.Controls.Add(Me.CBWISaveToDisk) +Me.Panel7.Controls.Add(Me.PictureBox5) +Me.Panel7.Controls.Add(Me.WebImageProgressBar) +Me.Panel7.Controls.Add(Me.BTNWICreateURL) +Me.Panel7.Controls.Add(Me.LBLWebImageCount) +Me.Panel7.Controls.Add(Me.BTNWISave) +Me.Panel7.Controls.Add(Me.BTNWIOpenURL) +Me.Panel7.Controls.Add(Me.BTNWIPrevious) +Me.Panel7.Controls.Add(Me.BTNWINext) +Me.Panel7.Controls.Add(Me.WebPictureBox) +Me.Panel7.Controls.Add(Me.Label71) +Me.Panel7.Location = New System.Drawing.Point(6, 6) +Me.Panel7.Name = "Panel7" +Me.Panel7.Size = New System.Drawing.Size(708, 437) +Me.Panel7.TabIndex = 91 +' +'BTNWIContinue +' +Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIContinue.Enabled = false +Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) +Me.BTNWIContinue.Name = "BTNWIContinue" +Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIContinue.TabIndex = 168 +Me.BTNWIContinue.Text = "Continue" +Me.BTNWIContinue.UseVisualStyleBackColor = false +' +'BTNWIAddandContinue +' +Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIAddandContinue.Enabled = false +Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) +Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" +Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIAddandContinue.TabIndex = 167 +Me.BTNWIAddandContinue.Text = "Add and Continue" +Me.BTNWIAddandContinue.UseVisualStyleBackColor = false +' +'BTNWICancel +' +Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray +Me.BTNWICancel.Enabled = false +Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICancel.ForeColor = System.Drawing.Color.Black +Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) +Me.BTNWICancel.Name = "BTNWICancel" +Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) +Me.BTNWICancel.TabIndex = 166 +Me.BTNWICancel.Text = "Cancel" +Me.BTNWICancel.UseVisualStyleBackColor = false +' +'CBWIReview +' +Me.CBWIReview.Location = New System.Drawing.Point(567, 69) +Me.CBWIReview.Name = "CBWIReview" +Me.CBWIReview.Size = New System.Drawing.Size(124, 30) +Me.CBWIReview.TabIndex = 165 +Me.CBWIReview.Text = "Review Each Image" +Me.CBWIReview.UseVisualStyleBackColor = true +' +'BTNWIBrowse +' +Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray +Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black +Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) +Me.BTNWIBrowse.Name = "BTNWIBrowse" +Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) +Me.BTNWIBrowse.TabIndex = 163 +Me.BTNWIBrowse.Text = "Browse" +Me.BTNWIBrowse.UseVisualStyleBackColor = false +' +'TBWIDirectory +' +Me.TBWIDirectory.BackColor = System.Drawing.Color.White +Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black +Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) +Me.TBWIDirectory.Name = "TBWIDirectory" +Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) +Me.TBWIDirectory.TabIndex = 164 +Me.TBWIDirectory.Text = "Saved Image Directory" +' +'BTNWIDisliked +' +Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray +Me.BTNWIDisliked.Enabled = false +Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black +Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) +Me.BTNWIDisliked.Name = "BTNWIDisliked" +Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) +Me.BTNWIDisliked.TabIndex = 162 +Me.BTNWIDisliked.Text = "Add to Disliked Images" +Me.BTNWIDisliked.UseVisualStyleBackColor = false +' +'BTNWILiked +' +Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray +Me.BTNWILiked.Enabled = false +Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWILiked.ForeColor = System.Drawing.Color.Black +Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) +Me.BTNWILiked.Name = "BTNWILiked" +Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) +Me.BTNWILiked.TabIndex = 161 +Me.BTNWILiked.Text = "Add to Liked Images" +Me.BTNWILiked.UseVisualStyleBackColor = false +' +'BTNWIRemove +' +Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray +Me.BTNWIRemove.Enabled = false +Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black +Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) +Me.BTNWIRemove.Name = "BTNWIRemove" +Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) +Me.BTNWIRemove.TabIndex = 160 +Me.BTNWIRemove.Text = "Remove From URL File" +Me.BTNWIRemove.UseVisualStyleBackColor = false +' +'CBWISaveToDisk +' +Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) +Me.CBWISaveToDisk.Name = "CBWISaveToDisk" +Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) +Me.CBWISaveToDisk.TabIndex = 157 +Me.CBWISaveToDisk.Text = "Save Images to Disk" +Me.CBWISaveToDisk.UseVisualStyleBackColor = true +' +'PictureBox5 +' +Me.PictureBox5.BackColor = System.Drawing.Color.LightGray +Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox5.Location = New System.Drawing.Point(9, 6) +Me.PictureBox5.Name = "PictureBox5" +Me.PictureBox5.Size = New System.Drawing.Size(160, 19) +Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox5.TabIndex = 156 +Me.PictureBox5.TabStop = false +' +'WebImageProgressBar +' +Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) +Me.WebImageProgressBar.Maximum = 2500 +Me.WebImageProgressBar.Name = "WebImageProgressBar" +Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) +Me.WebImageProgressBar.TabIndex = 155 +' +'BTNWICreateURL +' +Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black +Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) +Me.BTNWICreateURL.Name = "BTNWICreateURL" +Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWICreateURL.TabIndex = 154 +Me.BTNWICreateURL.Text = "Create URL File" +Me.BTNWICreateURL.UseVisualStyleBackColor = false +' +'LBLWebImageCount +' +Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent +Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black +Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) +Me.LBLWebImageCount.Name = "LBLWebImageCount" +Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) +Me.LBLWebImageCount.TabIndex = 153 +Me.LBLWebImageCount.Text = "0/0" +Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNWISave +' +Me.BTNWISave.BackColor = System.Drawing.Color.LightGray +Me.BTNWISave.Enabled = false +Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWISave.ForeColor = System.Drawing.Color.Black +Me.BTNWISave.Location = New System.Drawing.Point(567, 401) +Me.BTNWISave.Name = "BTNWISave" +Me.BTNWISave.Size = New System.Drawing.Size(131, 24) +Me.BTNWISave.TabIndex = 152 +Me.BTNWISave.Text = "Save Image to Disk" +Me.BTNWISave.UseVisualStyleBackColor = false +' +'BTNWIOpenURL +' +Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black +Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) +Me.BTNWIOpenURL.Name = "BTNWIOpenURL" +Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWIOpenURL.TabIndex = 151 +Me.BTNWIOpenURL.Text = "Open URL File" +Me.BTNWIOpenURL.UseVisualStyleBackColor = false +' +'BTNWIPrevious +' +Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNWIPrevious.Enabled = false +Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) +Me.BTNWIPrevious.Name = "BTNWIPrevious" +Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNWIPrevious.TabIndex = 149 +Me.BTNWIPrevious.Text = "<<" +Me.BTNWIPrevious.UseVisualStyleBackColor = false +' +'BTNWINext +' +Me.BTNWINext.BackColor = System.Drawing.Color.LightGray +Me.BTNWINext.Enabled = false +Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWINext.ForeColor = System.Drawing.Color.Black +Me.BTNWINext.Location = New System.Drawing.Point(651, 282) +Me.BTNWINext.Name = "BTNWINext" +Me.BTNWINext.Size = New System.Drawing.Size(47, 24) +Me.BTNWINext.TabIndex = 150 +Me.BTNWINext.Text = ">>" +Me.BTNWINext.UseVisualStyleBackColor = false +' +'WebPictureBox +' +Me.WebPictureBox.BackColor = System.Drawing.Color.Black +Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) +Me.WebPictureBox.Name = "WebPictureBox" +Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) +Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WebPictureBox.TabIndex = 148 +Me.WebPictureBox.TabStop = false +' +'Label71 +' +Me.Label71.BackColor = System.Drawing.Color.Transparent +Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label71.ForeColor = System.Drawing.Color.Black +Me.Label71.Location = New System.Drawing.Point(7, 6) +Me.Label71.Name = "Label71" +Me.Label71.Size = New System.Drawing.Size(692, 21) +Me.Label71.TabIndex = 48 +Me.Label71.Text = "URL Files" +Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TpVideoSettings +' +Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver +Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) +Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) +Me.TpVideoSettings.Name = "TpVideoSettings" +Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) +Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) +Me.TpVideoSettings.TabIndex = 2 +Me.TpVideoSettings.Text = "Video" +' +'PnlVideoSettings +' +Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) +Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) +Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) +Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill +Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) +Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) +Me.PnlVideoSettings.Name = "PnlVideoSettings" +Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) +Me.PnlVideoSettings.TabIndex = 92 +' +'PbBannerVideoSettings +' +Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) +Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" +Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) +Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PbBannerVideoSettings.TabIndex = 151 +Me.PbBannerVideoSettings.TabStop = false +' +'BTNRefreshVideos +' +Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray +Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh +Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom +Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 +Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black +Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) +Me.BTNRefreshVideos.Name = "BTNRefreshVideos" +Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) +Me.BTNRefreshVideos.TabIndex = 149 +Me.BTNRefreshVideos.UseVisualStyleBackColor = false +' +'GbxVideoGeneralD +' +Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) +Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) +Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) +Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" +Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneralD.TabIndex = 5 +Me.GbxVideoGeneralD.TabStop = false +Me.GbxVideoGeneralD.Text = "Domme General" +' +'LblVideoGeneralTotalD +' +Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" +Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotalD.TabIndex = 3 +Me.LblVideoGeneralTotalD.Text = "0" +Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoGeneralD +' +Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" +Me.TxbVideoGeneralD.ReadOnly = true +Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.TabIndex = 2 +Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD +' +'BTNVideoGeneralD +' +Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" +Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneralD.TabIndex = 1 +Me.BTNVideoGeneralD.Text = "1" +Me.BTNVideoGeneralD.UseVisualStyleBackColor = false +' +'CBVideoGeneralD +' +Me.CBVideoGeneralD.AutoSize = true +Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD +Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneralD.Name = "CBVideoGeneralD" +Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneralD.TabIndex = 0 +Me.CBVideoGeneralD.Text = "General" +Me.CBVideoGeneralD.UseVisualStyleBackColor = true +' +'GbxVideoSpecialD +' +Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) +Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) +Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" +Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecialD.TabIndex = 4 +Me.GbxVideoSpecialD.TabStop = false +Me.GbxVideoSpecialD.Text = "Domme Special" +' +'LblVideoCHTotalD +' +Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) +Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" +Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotalD.TabIndex = 7 +Me.LblVideoCHTotalD.Text = "0" +Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LblVideoJOITotalD +' +Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" +Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotalD.TabIndex = 3 +Me.LblVideoJOITotalD.Text = "0" +Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoCHD +' +Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.Name = "TxbVideoCHD" +Me.TxbVideoCHD.ReadOnly = true +Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.TabIndex = 6 +Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD +' +'TxbVideoJOID +' +Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.Name = "TxbVideoJOID" +Me.TxbVideoJOID.ReadOnly = true +Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.TabIndex = 2 +Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID +' +'BTNVideoCHD +' +Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCHD.Name = "BTNVideoCHD" +Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCHD.TabIndex = 5 +Me.BTNVideoCHD.Text = "1" +Me.BTNVideoCHD.UseVisualStyleBackColor = false +' +'BTNVideoJOID +' +Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOID.Name = "BTNVideoJOID" +Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOID.TabIndex = 1 +Me.BTNVideoJOID.Text = "1" +Me.BTNVideoJOID.UseVisualStyleBackColor = false +' +'CBVideoJOID +' +Me.CBVideoJOID.AutoSize = true +Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID +Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOID.Name = "CBVideoJOID" +Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOID.TabIndex = 0 +Me.CBVideoJOID.Text = "JOI" +Me.CBVideoJOID.UseVisualStyleBackColor = true +' +'CBVideoCHD +' +Me.CBVideoCHD.AutoSize = true +Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD +Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black +Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCHD.Name = "CBVideoCHD" +Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCHD.TabIndex = 4 +Me.CBVideoCHD.Text = "CH" +Me.CBVideoCHD.UseVisualStyleBackColor = true +' +'GbxVideoGenreD +' +Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) +Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) +Me.GbxVideoGenreD.Name = "GbxVideoGenreD" +Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenreD.TabIndex = 3 +Me.GbxVideoGenreD.TabStop = false +Me.GbxVideoGenreD.Text = "Domme Genre" +' +'LblVideoFemsubTotalD +' +Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" +Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotalD.TabIndex = 23 +Me.LblVideoFemsubTotalD.Text = "0" +Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemsubD +' +Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" +Me.TxbVideoFemsubD.ReadOnly = true +Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.TabIndex = 22 +Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD +' +'LblVideoFemdomTotalD +' +Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" +Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotalD.TabIndex = 19 +Me.LblVideoFemdomTotalD.Text = "0" +Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemdomD +' +Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" +Me.TxbVideoFemdomD.ReadOnly = true +Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.TabIndex = 18 +Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD +' +'TxbVideoBlowjobD +' +Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" +Me.TxbVideoBlowjobD.ReadOnly = true +Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.TabIndex = 14 +Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD +' +'LblVideoBlowjobTotalD +' +Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" +Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotalD.TabIndex = 15 +Me.LblVideoBlowjobTotalD.Text = "0" +Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoLesbianD +' +Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" +Me.TxbVideoLesbianD.ReadOnly = true +Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.TabIndex = 10 +Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD +' +'TxbVideoSoftCoreD +' +Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" +Me.TxbVideoSoftCoreD.ReadOnly = true +Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.TabIndex = 6 +Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD +' +'LblVideoLesbianTotalD +' +Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" +Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotalD.TabIndex = 11 +Me.LblVideoLesbianTotalD.Text = "0" +Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoHardCoreD +' +Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" +Me.TxbVideoHardCoreD.ReadOnly = true +Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.TabIndex = 2 +Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD +' +'BTNVideoFemSubD +' +Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" +Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSubD.TabIndex = 21 +Me.BTNVideoFemSubD.Text = "1" +Me.BTNVideoFemSubD.UseVisualStyleBackColor = false +' +'LblVideoSoftCoreTotalD +' +Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" +Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotalD.TabIndex = 7 +Me.LblVideoSoftCoreTotalD.Text = "0" +Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoFemDomD +' +Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" +Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDomD.TabIndex = 17 +Me.BTNVideoFemDomD.Text = "1" +Me.BTNVideoFemDomD.UseVisualStyleBackColor = false +' +'BTNVideoBlowjobD +' +Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" +Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjobD.TabIndex = 13 +Me.BTNVideoBlowjobD.Text = "1" +Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false +' +'LblVideoHardCoreTotalD +' +Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" +Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotalD.TabIndex = 3 +Me.LblVideoHardCoreTotalD.Text = "0" +Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoLesbianD +' +Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" +Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbianD.TabIndex = 9 +Me.BTNVideoLesbianD.Text = "1" +Me.BTNVideoLesbianD.UseVisualStyleBackColor = false +' +'BTNVideoSoftCoreD +' +Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" +Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCoreD.TabIndex = 5 +Me.BTNVideoSoftCoreD.Text = "1" +Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false +' +'BTNVideoHardCoreD +' +Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" +Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCoreD.TabIndex = 1 +Me.BTNVideoHardCoreD.Text = "1" +Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false +' +'CBVideoHardcoreD +' +Me.CBVideoHardcoreD.AutoSize = true +Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD +Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" +Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcoreD.TabIndex = 0 +Me.CBVideoHardcoreD.Text = "Hardcore" +Me.CBVideoHardcoreD.UseVisualStyleBackColor = true +' +'CBVideoSoftCoreD +' +Me.CBVideoSoftCoreD.AutoSize = true +Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD +Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" +Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCoreD.TabIndex = 4 +Me.CBVideoSoftCoreD.Text = "Softcore" +Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true +' +'CBVideoLesbianD +' +Me.CBVideoLesbianD.AutoSize = true +Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD +Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbianD.Name = "CBVideoLesbianD" +Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbianD.TabIndex = 8 +Me.CBVideoLesbianD.Text = "Lesbian" +Me.CBVideoLesbianD.UseVisualStyleBackColor = true +' +'CBVideoBlowjobD +' +Me.CBVideoBlowjobD.AutoSize = true +Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD +Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" +Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjobD.TabIndex = 12 +Me.CBVideoBlowjobD.Text = "Blowjob" +Me.CBVideoBlowjobD.UseVisualStyleBackColor = true +' +'CBVideoFemsubD +' +Me.CBVideoFemsubD.AutoSize = true +Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD +Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsubD.Name = "CBVideoFemsubD" +Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsubD.TabIndex = 20 +Me.CBVideoFemsubD.Text = "Femsub" +Me.CBVideoFemsubD.UseVisualStyleBackColor = true +' +'CBVideoFemdomD +' +Me.CBVideoFemdomD.AutoSize = true +Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD +Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdomD.Name = "CBVideoFemdomD" +Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdomD.TabIndex = 16 +Me.CBVideoFemdomD.Text = "Femdom" +Me.CBVideoFemdomD.UseVisualStyleBackColor = true +' +'GbxVideoDescription +' +Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) +Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black +Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) +Me.GbxVideoDescription.Name = "GbxVideoDescription" +Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) +Me.GbxVideoDescription.TabIndex = 6 +Me.GbxVideoDescription.TabStop = false +Me.GbxVideoDescription.Text = "Description" +' +'VideoDescriptionLabel +' +Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent +Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black +Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) +Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" +Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) +Me.VideoDescriptionLabel.TabIndex = 62 +Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ + "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ + "using as your domme." +Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GbxVideoGeneral +' +Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) +Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) +Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) +Me.GbxVideoGeneral.Name = "GbxVideoGeneral" +Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneral.TabIndex = 2 +Me.GbxVideoGeneral.TabStop = false +Me.GbxVideoGeneral.Text = "General" +' +'LblVideoGeneralTotal +' +Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" +Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotal.TabIndex = 3 +Me.LblVideoGeneralTotal.Text = "0" +Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoGeneral +' +Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.Name = "TxbVideoGeneral" +Me.TxbVideoGeneral.ReadOnly = true +Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.TabIndex = 2 +Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral +' +'BTNVideoGeneral +' +Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneral.Name = "BTNVideoGeneral" +Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneral.TabIndex = 1 +Me.BTNVideoGeneral.Text = "1" +Me.BTNVideoGeneral.UseVisualStyleBackColor = false +' +'CBVideoGeneral +' +Me.CBVideoGeneral.AutoSize = true +Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral +Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneral.Name = "CBVideoGeneral" +Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneral.TabIndex = 0 +Me.CBVideoGeneral.Text = "General" +Me.CBVideoGeneral.UseVisualStyleBackColor = true +' +'GbxVideoSpecial +' +Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) +Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) +Me.GbxVideoSpecial.Name = "GbxVideoSpecial" +Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecial.TabIndex = 1 +Me.GbxVideoSpecial.TabStop = false +Me.GbxVideoSpecial.Text = "Special" +' +'LblVideoCHTotal +' +Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) +Me.LblVideoCHTotal.Name = "LblVideoCHTotal" +Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotal.TabIndex = 7 +Me.LblVideoCHTotal.Text = "0" +Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LblVideoJOITotal +' +Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) +Me.LblVideoJOITotal.Name = "LblVideoJOITotal" +Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotal.TabIndex = 3 +Me.LblVideoJOITotal.Text = "0" +Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoCH +' +Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.Name = "TxbVideoCH" +Me.TxbVideoCH.ReadOnly = true +Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.TabIndex = 6 +Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH +' +'TxbVideoJOI +' +Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.Name = "TxbVideoJOI" +Me.TxbVideoJOI.ReadOnly = true +Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.TabIndex = 2 +Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI +' +'BTNVideoCH +' +Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCH.Name = "BTNVideoCH" +Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCH.TabIndex = 5 +Me.BTNVideoCH.Text = "1" +Me.BTNVideoCH.UseVisualStyleBackColor = false +' +'BTNVideoJOI +' +Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOI.Name = "BTNVideoJOI" +Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOI.TabIndex = 1 +Me.BTNVideoJOI.Text = "1" +Me.BTNVideoJOI.UseVisualStyleBackColor = false +' +'CBVideoJOI +' +Me.CBVideoJOI.AutoSize = true +Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI +Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOI.Name = "CBVideoJOI" +Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOI.TabIndex = 0 +Me.CBVideoJOI.Text = "JOI" +Me.CBVideoJOI.UseVisualStyleBackColor = true +' +'CBVideoCH +' +Me.CBVideoCH.AutoSize = true +Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH +Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCH.ForeColor = System.Drawing.Color.Black +Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCH.Name = "CBVideoCH" +Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCH.TabIndex = 4 +Me.CBVideoCH.Text = "CH" +Me.CBVideoCH.UseVisualStyleBackColor = true +' +'GbxVideoGenre +' +Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) +Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) +Me.GbxVideoGenre.Name = "GbxVideoGenre" +Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenre.TabIndex = 0 +Me.GbxVideoGenre.TabStop = false +Me.GbxVideoGenre.Text = "Genre" +' +'LblVideoFemsubTotal +' +Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" +Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotal.TabIndex = 23 +Me.LblVideoFemsubTotal.Text = "0" +Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemsub +' +Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.Name = "TxbVideoFemsub" +Me.TxbVideoFemsub.ReadOnly = true +Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.TabIndex = 22 +Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub +' +'LblVideoFemdomTotal +' +Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" +Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotal.TabIndex = 19 +Me.LblVideoFemdomTotal.Text = "0" +Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoFemdom +' +Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.Name = "TxbVideoFemdom" +Me.TxbVideoFemdom.ReadOnly = true +Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.TabIndex = 18 +Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom +' +'TxbVideoBlowjob +' +Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" +Me.TxbVideoBlowjob.ReadOnly = true +Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.TabIndex = 14 +Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob +' +'LblVideoBlowjobTotal +' +Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" +Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotal.TabIndex = 15 +Me.LblVideoBlowjobTotal.Text = "0" +Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoLesbian +' +Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.Name = "TxbVideoLesbian" +Me.TxbVideoLesbian.ReadOnly = true +Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.TabIndex = 10 +Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian +' +'TxbVideoSoftCore +' +Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" +Me.TxbVideoSoftCore.ReadOnly = true +Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.TabIndex = 6 +Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore +' +'LblVideoLesbianTotal +' +Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" +Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotal.TabIndex = 11 +Me.LblVideoLesbianTotal.Text = "0" +Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TxbVideoHardCore +' +Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.Name = "TxbVideoHardCore" +Me.TxbVideoHardCore.ReadOnly = true +Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.TabIndex = 2 +Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore +' +'BTNVideoFemSub +' +Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSub.Name = "BTNVideoFemSub" +Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSub.TabIndex = 21 +Me.BTNVideoFemSub.Text = "1" +Me.BTNVideoFemSub.UseVisualStyleBackColor = false +' +'LblVideoSoftCoreTotal +' +Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" +Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotal.TabIndex = 7 +Me.LblVideoSoftCoreTotal.Text = "0" +Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoFemDom +' +Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDom.Name = "BTNVideoFemDom" +Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDom.TabIndex = 17 +Me.BTNVideoFemDom.Text = "1" +Me.BTNVideoFemDom.UseVisualStyleBackColor = false +' +'BTNVideoBlowjob +' +Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" +Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjob.TabIndex = 13 +Me.BTNVideoBlowjob.Text = "1" +Me.BTNVideoBlowjob.UseVisualStyleBackColor = false +' +'LblVideoHardCoreTotal +' +Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" +Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotal.TabIndex = 3 +Me.LblVideoHardCoreTotal.Text = "0" +Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoLesbian +' +Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbian.Name = "BTNVideoLesbian" +Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbian.TabIndex = 9 +Me.BTNVideoLesbian.Text = "1" +Me.BTNVideoLesbian.UseVisualStyleBackColor = false +' +'BTNVideoSoftCore +' +Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" +Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCore.TabIndex = 5 +Me.BTNVideoSoftCore.Text = "1" +Me.BTNVideoSoftCore.UseVisualStyleBackColor = false +' +'BTNVideoHardCore +' +Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCore.Name = "BTNVideoHardCore" +Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCore.TabIndex = 1 +Me.BTNVideoHardCore.Text = "1" +Me.BTNVideoHardCore.UseVisualStyleBackColor = false +' +'CBVideoHardcore +' +Me.CBVideoHardcore.AutoSize = true +Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore +Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcore.Name = "CBVideoHardcore" +Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcore.TabIndex = 0 +Me.CBVideoHardcore.Text = "Hardcore" +Me.CBVideoHardcore.UseVisualStyleBackColor = true +' +'CBVideoSoftCore +' +Me.CBVideoSoftCore.AutoSize = true +Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore +Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCore.Name = "CBVideoSoftCore" +Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCore.TabIndex = 4 +Me.CBVideoSoftCore.Text = "Softcore" +Me.CBVideoSoftCore.UseVisualStyleBackColor = true +' +'CBVideoLesbian +' +Me.CBVideoLesbian.AutoSize = true +Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian +Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbian.Name = "CBVideoLesbian" +Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbian.TabIndex = 8 +Me.CBVideoLesbian.Text = "Lesbian" +Me.CBVideoLesbian.UseVisualStyleBackColor = true +' +'CBVideoBlowjob +' +Me.CBVideoBlowjob.AutoSize = true +Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob +Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjob.Name = "CBVideoBlowjob" +Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjob.TabIndex = 12 +Me.CBVideoBlowjob.Text = "Blowjob" +Me.CBVideoBlowjob.UseVisualStyleBackColor = true +' +'CBVideoFemsub +' +Me.CBVideoFemsub.AutoSize = true +Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub +Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsub.Name = "CBVideoFemsub" +Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsub.TabIndex = 20 +Me.CBVideoFemsub.Text = "Femsub" +Me.CBVideoFemsub.UseVisualStyleBackColor = true +' +'CBVideoFemdom +' +Me.CBVideoFemdom.AutoSize = true +Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom +Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdom.Name = "CBVideoFemdom" +Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdom.TabIndex = 16 +Me.CBVideoFemdom.Text = "Femdom" +Me.CBVideoFemdom.UseVisualStyleBackColor = true +' +'LblVideoHeader +' +Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black +Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) +Me.LblVideoHeader.Name = "LblVideoHeader" +Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) +Me.LblVideoHeader.TabIndex = 49 +Me.LblVideoHeader.Text = "Video Settings" +Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage20 +' +Me.TabPage20.BackColor = System.Drawing.Color.Silver +Me.TabPage20.Controls.Add(Me.TabControl1) +Me.TabPage20.Location = New System.Drawing.Point(4, 22) +Me.TabPage20.Name = "TabPage20" +Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage20.Size = New System.Drawing.Size(720, 448) +Me.TabPage20.TabIndex = 16 +Me.TabPage20.Text = "Apps" +' +'TabControl1 +' +Me.TabControl1.Controls.Add(Me.TabPage22) +Me.TabControl1.Controls.Add(Me.TpGames) +Me.TabControl1.Controls.Add(Me.TabPage6) +Me.TabControl1.Location = New System.Drawing.Point(6, 6) +Me.TabControl1.Name = "TabControl1" +Me.TabControl1.SelectedIndex = 0 +Me.TabControl1.Size = New System.Drawing.Size(708, 437) +Me.TabControl1.TabIndex = 0 +' +'TabPage22 +' +Me.TabPage22.BackColor = System.Drawing.Color.LightGray +Me.TabPage22.Controls.Add(Me.PNLGlitter) +Me.TabPage22.Location = New System.Drawing.Point(4, 22) +Me.TabPage22.Name = "TabPage22" +Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage22.Size = New System.Drawing.Size(700, 411) +Me.TabPage22.TabIndex = 0 +Me.TabPage22.Text = "Glitter" +' +'PNLGlitter +' +Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray +Me.PNLGlitter.Controls.Add(Me.GroupBox14) +Me.PNLGlitter.Controls.Add(Me.GroupBox4) +Me.PNLGlitter.Controls.Add(Me.Button15) +Me.PNLGlitter.Controls.Add(Me.Button16) +Me.PNLGlitter.Controls.Add(Me.Label121) +Me.PNLGlitter.Controls.Add(Me.Label122) +Me.PNLGlitter.Controls.Add(Me.GBGlitterD) +Me.PNLGlitter.Controls.Add(Me.GBGlitter1) +Me.PNLGlitter.Controls.Add(Me.GBGlitter3) +Me.PNLGlitter.Controls.Add(Me.GBGlitter2) +Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) +Me.PNLGlitter.Name = "PNLGlitter" +Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) +Me.PNLGlitter.TabIndex = 91 +' +'GroupBox14 +' +Me.GroupBox14.BackColor = System.Drawing.Color.LightGray +Me.GroupBox14.Controls.Add(Me.Label170) +Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) +Me.GroupBox14.Controls.Add(Me.RandomHonorific) +Me.GroupBox14.Location = New System.Drawing.Point(355, 307) +Me.GroupBox14.Name = "GroupBox14" +Me.GroupBox14.Size = New System.Drawing.Size(306, 85) +Me.GroupBox14.TabIndex = 182 +Me.GroupBox14.TabStop = false +Me.GroupBox14.Text = "General Contact Settings" +' +'alwaysNewSlideshow +' +Me.alwaysNewSlideshow.AutoSize = true +Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black +Me.alwaysNewSlideshow.Location = New System.Drawing.Point(10, 24) +Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" +Me.alwaysNewSlideshow.Size = New System.Drawing.Size(294, 17) +Me.alwaysNewSlideshow.TabIndex = 151 +Me.alwaysNewSlideshow.Text = "Always Load New Slideshow When Using @AddContact" +Me.alwaysNewSlideshow.UseVisualStyleBackColor = true +' +'GroupBox4 +' +Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) +Me.GroupBox4.Location = New System.Drawing.Point(7, 307) +Me.GroupBox4.Name = "GroupBox4" +Me.GroupBox4.Size = New System.Drawing.Size(344, 85) +Me.GroupBox4.TabIndex = 167 +Me.GroupBox4.TabStop = false +Me.GroupBox4.Text = "Change Current Domme" +' +'LBLCurrentDomme +' +Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) +Me.LBLCurrentDomme.Name = "LBLCurrentDomme" +Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) +Me.LBLCurrentDomme.TabIndex = 168 +Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDomChangeContact1 +' +Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) +Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" +Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact1.TabIndex = 173 +Me.BTNDomChangeContact1.Text = "Contact 1" +Me.BTNDomChangeContact1.UseVisualStyleBackColor = false +' +'BTNDomChangeRandom +' +Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) +Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" +Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeRandom.TabIndex = 172 +Me.BTNDomChangeRandom.Text = "Random" +Me.BTNDomChangeRandom.UseVisualStyleBackColor = false +' +'BTNDomChangeContact3 +' +Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) +Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" +Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact3.TabIndex = 171 +Me.BTNDomChangeContact3.Text = "Contact 3" +Me.BTNDomChangeContact3.UseVisualStyleBackColor = false +' +'BTNDomChangeContact2 +' +Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) +Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" +Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact2.TabIndex = 170 +Me.BTNDomChangeContact2.Text = "Contact 2" +Me.BTNDomChangeContact2.UseVisualStyleBackColor = false +' +'BTNDomChangeDomme +' +Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) +Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" +Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeDomme.TabIndex = 168 +Me.BTNDomChangeDomme.Text = "Domme" +Me.BTNDomChangeDomme.UseVisualStyleBackColor = false +' +'Button15 +' +Me.Button15.BackColor = System.Drawing.Color.LightGray +Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button15.FlatAppearance.BorderSize = 0 +Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button15.ForeColor = System.Drawing.Color.Black +Me.Button15.Location = New System.Drawing.Point(670, 366) +Me.Button15.Name = "Button15" +Me.Button15.Size = New System.Drawing.Size(30, 26) +Me.Button15.TabIndex = 163 +Me.Button15.UseVisualStyleBackColor = false +' +'Button16 +' +Me.Button16.BackColor = System.Drawing.Color.LightGray +Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button16.FlatAppearance.BorderSize = 0 +Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button16.ForeColor = System.Drawing.Color.Black +Me.Button16.Location = New System.Drawing.Point(667, 324) +Me.Button16.Name = "Button16" +Me.Button16.Size = New System.Drawing.Size(30, 26) +Me.Button16.TabIndex = 164 +Me.Button16.UseVisualStyleBackColor = false +' +'Label121 +' +Me.Label121.AutoSize = true +Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label121.ForeColor = System.Drawing.Color.Black +Me.Label121.Location = New System.Drawing.Point(669, 352) +Me.Label121.Name = "Label121" +Me.Label121.Size = New System.Drawing.Size(27, 13) +Me.Label121.TabIndex = 166 +Me.Label121.Text = "load" +Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label122 +' +Me.Label122.AutoSize = true +Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label122.ForeColor = System.Drawing.Color.Black +Me.Label122.Location = New System.Drawing.Point(667, 313) +Me.Label122.Name = "Label122" +Me.Label122.Size = New System.Drawing.Size(30, 13) +Me.Label122.TabIndex = 165 +Me.Label122.Text = "save" +Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GBGlitterD +' +Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray +Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) +Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom2) +Me.GBGlitterD.Controls.Add(Me.GlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom1) +Me.GBGlitterD.Controls.Add(Me.CBDaily) +Me.GBGlitterD.Controls.Add(Me.CBTrivia) +Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) +Me.GBGlitterD.Controls.Add(Me.CBEgotist) +Me.GBGlitterD.Controls.Add(Me.CBTease) +Me.GBGlitterD.Controls.Add(Me.GlitterAV) +Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) +Me.GBGlitterD.Name = "GBGlitterD" +Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) +Me.GBGlitterD.TabIndex = 162 +Me.GBGlitterD.TabStop = false +Me.GBGlitterD.Text = "Domme" +' +'GrbGlitterfeed +' +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) +Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) +Me.GrbGlitterfeed.Name = "GrbGlitterfeed" +Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) +Me.GrbGlitterfeed.TabIndex = 168 +Me.GrbGlitterfeed.TabStop = false +Me.GrbGlitterfeed.Text = "Glitterfeeds" +' +'CBGlitterFeedScripts +' +Me.CBGlitterFeedScripts.AutoSize = true +Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent +Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts +Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) +Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) +Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" +Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) +Me.CBGlitterFeedScripts.TabIndex = 146 +Me.CBGlitterFeedScripts.Text = "Scripts" +Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false +' +'CBGlitterFeed +' +Me.CBGlitterFeed.AutoSize = true +Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed +Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) +Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) +Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) +Me.CBGlitterFeed.Name = "CBGlitterFeed" +Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeed.TabIndex = 145 +Me.CBGlitterFeed.Text = "On" +Me.CBGlitterFeed.UseVisualStyleBackColor = true +' +'CBGlitterFeedOff +' +Me.CBGlitterFeedOff.AutoSize = true +Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff +Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) +Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) +Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" +Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeedOff.TabIndex = 147 +Me.CBGlitterFeedOff.TabStop = true +Me.CBGlitterFeedOff.Text = "Off" +Me.CBGlitterFeedOff.UseVisualStyleBackColor = true +' +'BTNGlitterD +' +Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black +Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitterD.Name = "BTNGlitterD" +Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitterD.TabIndex = 166 +Me.BTNGlitterD.Text = "Choose Name Color" +Me.BTNGlitterD.UseVisualStyleBackColor = false +' +'LBLGlitterNCDomme +' +Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White +Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor +Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" +Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNCDomme.TabIndex = 163 +Me.LBLGlitterNCDomme.Text = "Preview" +Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider +' +Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider.Name = "LBLGlitterSlider" +Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider.TabIndex = 162 +Me.LBLGlitterSlider.Text = "Post Frequency" +Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBCustom2 +' +Me.CBCustom2.AutoSize = true +Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 +Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom2.ForeColor = System.Drawing.Color.Black +Me.CBCustom2.Location = New System.Drawing.Point(149, 121) +Me.CBCustom2.Name = "CBCustom2" +Me.CBCustom2.Size = New System.Drawing.Size(70, 17) +Me.CBCustom2.TabIndex = 161 +Me.CBCustom2.Text = "Custom 2" +Me.CBCustom2.UseVisualStyleBackColor = true +' +'GlitterSlider +' +Me.GlitterSlider.AutoSize = false +Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider.LargeChange = 1 +Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider.Maximum = 9 +Me.GlitterSlider.Minimum = 1 +Me.GlitterSlider.Name = "GlitterSlider" +Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider.TabIndex = 160 +Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider +' +'CBCustom1 +' +Me.CBCustom1.AutoSize = true +Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 +Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom1.ForeColor = System.Drawing.Color.Black +Me.CBCustom1.Location = New System.Drawing.Point(149, 98) +Me.CBCustom1.Name = "CBCustom1" +Me.CBCustom1.Size = New System.Drawing.Size(70, 17) +Me.CBCustom1.TabIndex = 157 +Me.CBCustom1.Text = "Custom 1" +Me.CBCustom1.UseVisualStyleBackColor = true +' +'CBDaily +' +Me.CBDaily.AutoSize = true +Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily +Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBDaily.ForeColor = System.Drawing.Color.Black +Me.CBDaily.Location = New System.Drawing.Point(79, 121) +Me.CBDaily.Name = "CBDaily" +Me.CBDaily.Size = New System.Drawing.Size(49, 17) +Me.CBDaily.TabIndex = 156 +Me.CBDaily.Text = "Daily" +Me.CBDaily.UseVisualStyleBackColor = true +' +'CBTrivia +' +Me.CBTrivia.AutoSize = true +Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia +Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTrivia.ForeColor = System.Drawing.Color.Black +Me.CBTrivia.Location = New System.Drawing.Point(79, 98) +Me.CBTrivia.Name = "CBTrivia" +Me.CBTrivia.Size = New System.Drawing.Size(52, 17) +Me.CBTrivia.TabIndex = 155 +Me.CBTrivia.Text = "Trivia" +Me.CBTrivia.UseVisualStyleBackColor = true +' +'TBGlitterShortName +' +Me.TBGlitterShortName.BackColor = System.Drawing.Color.White +Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black +Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) +Me.TBGlitterShortName.Name = "TBGlitterShortName" +Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) +Me.TBGlitterShortName.TabIndex = 49 +Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN +Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'CBEgotist +' +Me.CBEgotist.AutoSize = true +Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist +Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBEgotist.ForeColor = System.Drawing.Color.Black +Me.CBEgotist.Location = New System.Drawing.Point(9, 121) +Me.CBEgotist.Name = "CBEgotist" +Me.CBEgotist.Size = New System.Drawing.Size(58, 17) +Me.CBEgotist.TabIndex = 153 +Me.CBEgotist.Text = "Egotist" +Me.CBEgotist.UseVisualStyleBackColor = true +' +'CBTease +' +Me.CBTease.AutoSize = true +Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease +Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTease.ForeColor = System.Drawing.Color.Black +Me.CBTease.Location = New System.Drawing.Point(9, 98) +Me.CBTease.Name = "CBTease" +Me.CBTease.Size = New System.Drawing.Size(56, 17) +Me.CBTease.TabIndex = 152 +Me.CBTease.Text = "Tease" +Me.CBTease.UseVisualStyleBackColor = true +' +'GlitterAV +' +Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV.Name = "GlitterAV" +Me.GlitterAV.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV.TabIndex = 149 +Me.GlitterAV.TabStop = false +' +'GBGlitter1 +' +Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter1.Controls.Add(Me.Label167) +Me.GBGlitter1.Controls.Add(Me.G1Honorific) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.CBGlitter1) +Me.GBGlitter1.Controls.Add(Me.TBGlitter1) +Me.GBGlitter1.Controls.Add(Me.GlitterAV1) +Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) +Me.GBGlitter1.Name = "GBGlitter1" +Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter1.TabIndex = 161 +Me.GBGlitter1.TabStop = false +Me.GBGlitter1.Text = "Contact 1" +' +'Label167 +' +Me.Label167.BackColor = System.Drawing.Color.Transparent +Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label167.ForeColor = System.Drawing.Color.Black +Me.Label167.Location = New System.Drawing.Point(220, 15) +Me.Label167.Name = "Label167" +Me.Label167.Size = New System.Drawing.Size(114, 19) +Me.Label167.TabIndex = 182 +Me.Label167.Text = "Contact Honorific" +Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'G1Honorific +' +Me.G1Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G1Honorific.Location = New System.Drawing.Point(220, 34) +Me.G1Honorific.Name = "G1Honorific" +Me.G1Honorific.Size = New System.Drawing.Size(116, 23) +Me.G1Honorific.TabIndex = 0 +Me.G1Honorific.Text = "Mistress" +Me.G1Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BtnContact1ImageDirClear +' +Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" +Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact1ImageDirClear.TabIndex = 181 +Me.BtnContact1ImageDirClear.Text = "Clear" +Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false +' +'BtnContact1ImageDir +' +Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" +Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact1ImageDir.TabIndex = 177 +Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" +Me.BtnContact1ImageDir.UseVisualStyleBackColor = false +' +'TbxContact1ImageDir +' +Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" +Me.TbxContact1ImageDir.ReadOnly = true +Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.TabIndex = 176 +Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir +' +'BTNGlitter1 +' +Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter1.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter1.Name = "BTNGlitter1" +Me.BTNGlitter1.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter1.TabIndex = 175 +Me.BTNGlitter1.Text = "Choose Name Color" +Me.BTNGlitter1.UseVisualStyleBackColor = false +' +'LBLGlitterNC1 +' +Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color +Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC1.Name = "LBLGlitterNC1" +Me.LBLGlitterNC1.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC1.TabIndex = 166 +Me.LBLGlitterNC1.Text = "Preview" +Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider1 +' +Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" +Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider1.TabIndex = 163 +Me.LBLGlitterSlider1.Text = "Response Frequency" +Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GlitterSlider1 +' +Me.GlitterSlider1.AutoSize = false +Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider1.LargeChange = 1 +Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider1.Maximum = 9 +Me.GlitterSlider1.Minimum = 1 +Me.GlitterSlider1.Name = "GlitterSlider1" +Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider1.TabIndex = 161 +Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider +' +'CBGlitter1 +' +Me.CBGlitter1.AutoSize = true +Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 +Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter1.ForeColor = System.Drawing.Color.Black +Me.CBGlitter1.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter1.Name = "CBGlitter1" +Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter1.TabIndex = 151 +Me.CBGlitter1.Text = "Enable This Contact" +Me.CBGlitter1.UseVisualStyleBackColor = true +' +'TBGlitter1 +' +Me.TBGlitter1.BackColor = System.Drawing.Color.White +Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter1.ForeColor = System.Drawing.Color.Black +Me.TBGlitter1.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter1.Name = "TBGlitter1" +Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter1.TabIndex = 49 +Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 +Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GlitterAV1 +' +Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV1.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV1.Name = "GlitterAV1" +Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV1.TabIndex = 149 +Me.GlitterAV1.TabStop = false +' +'GBGlitter3 +' +Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter3.Controls.Add(Me.Label168) +Me.GBGlitter3.Controls.Add(Me.G3Honorific) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.CBGlitter3) +Me.GBGlitter3.Controls.Add(Me.TBGlitter3) +Me.GBGlitter3.Controls.Add(Me.GlitterAV3) +Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) +Me.GBGlitter3.Name = "GBGlitter3" +Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter3.TabIndex = 160 +Me.GBGlitter3.TabStop = false +Me.GBGlitter3.Text = "Contact 3" +' +'Label168 +' +Me.Label168.BackColor = System.Drawing.Color.Transparent +Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label168.ForeColor = System.Drawing.Color.Black +Me.Label168.Location = New System.Drawing.Point(220, 15) +Me.Label168.Name = "Label168" +Me.Label168.Size = New System.Drawing.Size(114, 19) +Me.Label168.TabIndex = 181 +Me.Label168.Text = "Contact Honorific" +Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'G3Honorific +' +Me.G3Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G3Honorific.Location = New System.Drawing.Point(220, 34) +Me.G3Honorific.Name = "G3Honorific" +Me.G3Honorific.Size = New System.Drawing.Size(115, 23) +Me.G3Honorific.TabIndex = 0 +Me.G3Honorific.Text = "Mistress" +Me.G3Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BtnContact3ImageDirClear +' +Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" +Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact3ImageDirClear.TabIndex = 180 +Me.BtnContact3ImageDirClear.Text = "Clear" +Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false +' +'BtnContact3ImageDir +' +Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" +Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact3ImageDir.TabIndex = 179 +Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" +Me.BtnContact3ImageDir.UseVisualStyleBackColor = false +' +'TbxContact3ImageDir +' +Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" +Me.TbxContact3ImageDir.ReadOnly = true +Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.TabIndex = 178 +Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir +' +'BTNGlitter3 +' +Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter3.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter3.Name = "BTNGlitter3" +Me.BTNGlitter3.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter3.TabIndex = 175 +Me.BTNGlitter3.Text = "Choose Name Color" +Me.BTNGlitter3.UseVisualStyleBackColor = false +' +'LBLGlitterNC3 +' +Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color +Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC3.Name = "LBLGlitterNC3" +Me.LBLGlitterNC3.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC3.TabIndex = 166 +Me.LBLGlitterNC3.Text = "Preview" +Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider3 +' +Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" +Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider3.TabIndex = 163 +Me.LBLGlitterSlider3.Text = "Response Frequency" +Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GlitterSlider3 +' +Me.GlitterSlider3.AutoSize = false +Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider3.LargeChange = 1 +Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider3.Maximum = 9 +Me.GlitterSlider3.Minimum = 1 +Me.GlitterSlider3.Name = "GlitterSlider3" +Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider3.TabIndex = 161 +Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider +' +'CBGlitter3 +' +Me.CBGlitter3.AutoSize = true +Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 +Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter3.ForeColor = System.Drawing.Color.Black +Me.CBGlitter3.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter3.Name = "CBGlitter3" +Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter3.TabIndex = 151 +Me.CBGlitter3.Text = "Enable This Contact" +Me.CBGlitter3.UseVisualStyleBackColor = true +' +'TBGlitter3 +' +Me.TBGlitter3.BackColor = System.Drawing.Color.White +Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter3.ForeColor = System.Drawing.Color.Black +Me.TBGlitter3.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter3.Name = "TBGlitter3" +Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter3.TabIndex = 49 +Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 +Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GlitterAV3 +' +Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV3.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV3.Name = "GlitterAV3" +Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV3.TabIndex = 149 +Me.GlitterAV3.TabStop = false +' +'GBGlitter2 +' +Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter2.Controls.Add(Me.Label169) +Me.GBGlitter2.Controls.Add(Me.G2Honorific) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.CBGlitter2) +Me.GBGlitter2.Controls.Add(Me.TBGlitter2) +Me.GBGlitter2.Controls.Add(Me.GlitterAV2) +Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) +Me.GBGlitter2.Name = "GBGlitter2" +Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter2.TabIndex = 151 +Me.GBGlitter2.TabStop = false +Me.GBGlitter2.Text = "Contact 2" +' +'G2Honorific +' +Me.G2Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G2Honorific.Location = New System.Drawing.Point(220, 34) +Me.G2Honorific.Name = "G2Honorific" +Me.G2Honorific.Size = New System.Drawing.Size(115, 23) +Me.G2Honorific.TabIndex = 0 +Me.G2Honorific.Text = "Mistress" +Me.G2Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BtnContact2ImageDirClear +' +Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" +Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact2ImageDirClear.TabIndex = 181 +Me.BtnContact2ImageDirClear.Text = "Clear" +Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false +' +'BtnContact2ImageDir +' +Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" +Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact2ImageDir.TabIndex = 179 +Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" +Me.BtnContact2ImageDir.UseVisualStyleBackColor = false +' +'TbxContact2ImageDir +' +Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" +Me.TbxContact2ImageDir.ReadOnly = true +Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.TabIndex = 178 +Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir +' +'BTNGlitter2 +' +Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter2.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter2.Name = "BTNGlitter2" +Me.BTNGlitter2.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter2.TabIndex = 167 +Me.BTNGlitter2.Text = "Choose Name Color" +Me.BTNGlitter2.UseVisualStyleBackColor = false +' +'LBLGlitterNC2 +' +Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color +Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC2.Name = "LBLGlitterNC2" +Me.LBLGlitterNC2.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC2.TabIndex = 166 +Me.LBLGlitterNC2.Text = "Preview" +Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider2 +' +Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" +Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider2.TabIndex = 163 +Me.LBLGlitterSlider2.Text = "Response Frequency" +Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GlitterSlider2 +' +Me.GlitterSlider2.AutoSize = false +Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider2.LargeChange = 1 +Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider2.Maximum = 9 +Me.GlitterSlider2.Minimum = 1 +Me.GlitterSlider2.Name = "GlitterSlider2" +Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider2.TabIndex = 161 +Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider +' +'CBGlitter2 +' +Me.CBGlitter2.AutoSize = true +Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 +Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter2.ForeColor = System.Drawing.Color.Black +Me.CBGlitter2.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter2.Name = "CBGlitter2" +Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter2.TabIndex = 151 +Me.CBGlitter2.Text = "Enable This Contact" +Me.CBGlitter2.UseVisualStyleBackColor = true +' +'TBGlitter2 +' +Me.TBGlitter2.BackColor = System.Drawing.Color.White +Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter2.ForeColor = System.Drawing.Color.Black +Me.TBGlitter2.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter2.Name = "TBGlitter2" +Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter2.TabIndex = 49 +Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 +Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GlitterAV2 +' +Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV2.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV2.Name = "GlitterAV2" +Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV2.TabIndex = 149 +Me.GlitterAV2.TabStop = false +' +'TpGames +' +Me.TpGames.BackColor = System.Drawing.Color.LightGray +Me.TpGames.Controls.Add(Me.CBIncludeGifs) +Me.TpGames.Controls.Add(Me.LblCardsSetupNote) +Me.TpGames.Controls.Add(Me.CBGameSounds) +Me.TpGames.Controls.Add(Me.GbxCardsGold) +Me.TpGames.Controls.Add(Me.GbxCardsBackground) +Me.TpGames.Controls.Add(Me.GbxCardsBronze) +Me.TpGames.Controls.Add(Me.GbxCardsSilver) +Me.TpGames.Location = New System.Drawing.Point(4, 22) +Me.TpGames.Name = "TpGames" +Me.TpGames.Padding = New System.Windows.Forms.Padding(3) +Me.TpGames.Size = New System.Drawing.Size(700, 411) +Me.TpGames.TabIndex = 1 +Me.TpGames.Text = "Games" +' +'CBIncludeGifs +' +Me.CBIncludeGifs.AutoSize = true +Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs +Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) +Me.CBIncludeGifs.Name = "CBIncludeGifs" +Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) +Me.CBIncludeGifs.TabIndex = 5 +Me.CBIncludeGifs.Text = "Match Game Includes Gifs " +Me.CBIncludeGifs.UseVisualStyleBackColor = true +' +'LblCardsSetupNote +' +Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) +Me.LblCardsSetupNote.Name = "LblCardsSetupNote" +Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) +Me.LblCardsSetupNote.TabIndex = 4 +Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ + "!" +Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'CBGameSounds +' +Me.CBGameSounds.AutoSize = true +Me.CBGameSounds.Checked = true +Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBGameSounds.ForeColor = System.Drawing.Color.Black +Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) +Me.CBGameSounds.Name = "CBGameSounds" +Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) +Me.CBGameSounds.TabIndex = 6 +Me.CBGameSounds.Text = "Play Game Sounds" +Me.CBGameSounds.UseVisualStyleBackColor = true +' +'GbxCardsGold +' +Me.GbxCardsGold.Controls.Add(Me.GN6) +Me.GbxCardsGold.Controls.Add(Me.GP6) +Me.GbxCardsGold.Controls.Add(Me.GN2) +Me.GbxCardsGold.Controls.Add(Me.GP2) +Me.GbxCardsGold.Controls.Add(Me.GP5) +Me.GbxCardsGold.Controls.Add(Me.GN1) +Me.GbxCardsGold.Controls.Add(Me.GP1) +Me.GbxCardsGold.Controls.Add(Me.GN5) +Me.GbxCardsGold.Controls.Add(Me.GN3) +Me.GbxCardsGold.Controls.Add(Me.GP3) +Me.GbxCardsGold.Controls.Add(Me.GP4) +Me.GbxCardsGold.Controls.Add(Me.GN4) +Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) +Me.GbxCardsGold.Name = "GbxCardsGold" +Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) +Me.GbxCardsGold.TabIndex = 2 +Me.GbxCardsGold.TabStop = false +Me.GbxCardsGold.Text = "Gold Cards" +' +'GN6 +' +Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN6.Location = New System.Drawing.Point(86, 367) +Me.GN6.Name = "GN6" +Me.GN6.Size = New System.Drawing.Size(71, 20) +Me.GN6.TabIndex = 5 +Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 +Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP6 +' +Me.GP6.BackColor = System.Drawing.Color.Silver +Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 +Me.GP6.InitialImage = Nothing +Me.GP6.Location = New System.Drawing.Point(86, 268) +Me.GP6.Name = "GP6" +Me.GP6.Size = New System.Drawing.Size(71, 93) +Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP6.TabIndex = 17 +Me.GP6.TabStop = false +' +'GN2 +' +Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN2.Location = New System.Drawing.Point(86, 117) +Me.GN2.Name = "GN2" +Me.GN2.Size = New System.Drawing.Size(71, 20) +Me.GN2.TabIndex = 1 +Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 +Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP2 +' +Me.GP2.BackColor = System.Drawing.Color.Silver +Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 +Me.GP2.InitialImage = Nothing +Me.GP2.Location = New System.Drawing.Point(86, 17) +Me.GP2.Name = "GP2" +Me.GP2.Size = New System.Drawing.Size(71, 94) +Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP2.TabIndex = 9 +Me.GP2.TabStop = false +' +'GP5 +' +Me.GP5.BackColor = System.Drawing.Color.Silver +Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 +Me.GP5.InitialImage = Nothing +Me.GP5.Location = New System.Drawing.Point(9, 268) +Me.GP5.Name = "GP5" +Me.GP5.Size = New System.Drawing.Size(71, 93) +Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP5.TabIndex = 15 +Me.GP5.TabStop = false +' +'GN1 +' +Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN1.Location = New System.Drawing.Point(9, 117) +Me.GN1.Name = "GN1" +Me.GN1.Size = New System.Drawing.Size(71, 20) +Me.GN1.TabIndex = 0 +Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 +Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP1 +' +Me.GP1.BackColor = System.Drawing.Color.Silver +Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 +Me.GP1.InitialImage = Nothing +Me.GP1.Location = New System.Drawing.Point(9, 17) +Me.GP1.Name = "GP1" +Me.GP1.Size = New System.Drawing.Size(71, 94) +Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP1.TabIndex = 0 +Me.GP1.TabStop = false +' +'GN5 +' +Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN5.Location = New System.Drawing.Point(9, 367) +Me.GN5.Name = "GN5" +Me.GN5.Size = New System.Drawing.Size(71, 20) +Me.GN5.TabIndex = 4 +Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 +Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GN3 +' +Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN3.Location = New System.Drawing.Point(9, 242) +Me.GN3.Name = "GN3" +Me.GN3.Size = New System.Drawing.Size(71, 20) +Me.GN3.TabIndex = 2 +Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 +Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP3 +' +Me.GP3.BackColor = System.Drawing.Color.Silver +Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 +Me.GP3.InitialImage = Nothing +Me.GP3.Location = New System.Drawing.Point(9, 143) +Me.GP3.Name = "GP3" +Me.GP3.Size = New System.Drawing.Size(71, 93) +Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP3.TabIndex = 11 +Me.GP3.TabStop = false +' +'GP4 +' +Me.GP4.BackColor = System.Drawing.Color.Silver +Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 +Me.GP4.InitialImage = Nothing +Me.GP4.Location = New System.Drawing.Point(86, 143) +Me.GP4.Name = "GP4" +Me.GP4.Size = New System.Drawing.Size(71, 93) +Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP4.TabIndex = 13 +Me.GP4.TabStop = false +' +'GN4 +' +Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN4.Location = New System.Drawing.Point(86, 242) +Me.GN4.Name = "GN4" +Me.GN4.Size = New System.Drawing.Size(71, 20) +Me.GN4.TabIndex = 3 +Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 +Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GbxCardsBackground +' +Me.GbxCardsBackground.Controls.Add(Me.CardBack) +Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) +Me.GbxCardsBackground.Name = "GbxCardsBackground" +Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) +Me.GbxCardsBackground.TabIndex = 3 +Me.GbxCardsBackground.TabStop = false +Me.GbxCardsBackground.Text = "Card Background" +' +'CardBack +' +Me.CardBack.BackColor = System.Drawing.Color.Silver +Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack +Me.CardBack.InitialImage = Nothing +Me.CardBack.Location = New System.Drawing.Point(17, 28) +Me.CardBack.Name = "CardBack" +Me.CardBack.Size = New System.Drawing.Size(138, 179) +Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.CardBack.TabIndex = 18 +Me.CardBack.TabStop = false +' +'GbxCardsBronze +' +Me.GbxCardsBronze.Controls.Add(Me.BN6) +Me.GbxCardsBronze.Controls.Add(Me.BN3) +Me.GbxCardsBronze.Controls.Add(Me.BP3) +Me.GbxCardsBronze.Controls.Add(Me.BP6) +Me.GbxCardsBronze.Controls.Add(Me.BN2) +Me.GbxCardsBronze.Controls.Add(Me.BN5) +Me.GbxCardsBronze.Controls.Add(Me.BP5) +Me.GbxCardsBronze.Controls.Add(Me.BP2) +Me.GbxCardsBronze.Controls.Add(Me.BN1) +Me.GbxCardsBronze.Controls.Add(Me.BN4) +Me.GbxCardsBronze.Controls.Add(Me.BP4) +Me.GbxCardsBronze.Controls.Add(Me.BP1) +Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) +Me.GbxCardsBronze.Name = "GbxCardsBronze" +Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsBronze.TabIndex = 0 +Me.GbxCardsBronze.TabStop = false +Me.GbxCardsBronze.Text = "Bronze Cards" +' +'BN6 +' +Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN6.Location = New System.Drawing.Point(86, 368) +Me.BN6.Name = "BN6" +Me.BN6.Size = New System.Drawing.Size(71, 20) +Me.BN6.TabIndex = 5 +Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 +Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BN3 +' +Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN3.Location = New System.Drawing.Point(9, 243) +Me.BN3.Name = "BN3" +Me.BN3.Size = New System.Drawing.Size(71, 20) +Me.BN3.TabIndex = 2 +Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 +Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BP3 +' +Me.BP3.BackColor = System.Drawing.Color.Silver +Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 +Me.BP3.InitialImage = Nothing +Me.BP3.Location = New System.Drawing.Point(9, 144) +Me.BP3.Name = "BP3" +Me.BP3.Size = New System.Drawing.Size(71, 93) +Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP3.TabIndex = 11 +Me.BP3.TabStop = false +' +'BP6 +' +Me.BP6.BackColor = System.Drawing.Color.Silver +Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 +Me.BP6.InitialImage = Nothing +Me.BP6.Location = New System.Drawing.Point(86, 269) +Me.BP6.Name = "BP6" +Me.BP6.Size = New System.Drawing.Size(71, 93) +Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP6.TabIndex = 17 +Me.BP6.TabStop = false +' +'BN2 +' +Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN2.Location = New System.Drawing.Point(86, 118) +Me.BN2.Name = "BN2" +Me.BN2.Size = New System.Drawing.Size(71, 20) +Me.BN2.TabIndex = 1 +Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 +Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BN5 +' +Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN5.Location = New System.Drawing.Point(9, 368) +Me.BN5.Name = "BN5" +Me.BN5.Size = New System.Drawing.Size(71, 20) +Me.BN5.TabIndex = 4 +Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 +Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BP5 +' +Me.BP5.BackColor = System.Drawing.Color.Silver +Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 +Me.BP5.InitialImage = Nothing +Me.BP5.Location = New System.Drawing.Point(9, 269) +Me.BP5.Name = "BP5" +Me.BP5.Size = New System.Drawing.Size(71, 93) +Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP5.TabIndex = 15 +Me.BP5.TabStop = false +' +'BP2 +' +Me.BP2.BackColor = System.Drawing.Color.Silver +Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 +Me.BP2.InitialImage = Nothing +Me.BP2.Location = New System.Drawing.Point(86, 19) +Me.BP2.Name = "BP2" +Me.BP2.Size = New System.Drawing.Size(71, 93) +Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP2.TabIndex = 9 +Me.BP2.TabStop = false +' +'BN1 +' +Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN1.Location = New System.Drawing.Point(9, 118) +Me.BN1.Name = "BN1" +Me.BN1.Size = New System.Drawing.Size(71, 20) +Me.BN1.TabIndex = 0 +Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 +Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BN4 +' +Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN4.Location = New System.Drawing.Point(86, 243) +Me.BN4.Name = "BN4" +Me.BN4.Size = New System.Drawing.Size(71, 20) +Me.BN4.TabIndex = 3 +Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 +Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'BP4 +' +Me.BP4.BackColor = System.Drawing.Color.Silver +Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 +Me.BP4.InitialImage = Nothing +Me.BP4.Location = New System.Drawing.Point(86, 144) +Me.BP4.Name = "BP4" +Me.BP4.Size = New System.Drawing.Size(71, 93) +Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP4.TabIndex = 13 +Me.BP4.TabStop = false +' +'BP1 +' +Me.BP1.BackColor = System.Drawing.Color.Silver +Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 +Me.BP1.InitialImage = Nothing +Me.BP1.Location = New System.Drawing.Point(9, 19) +Me.BP1.Name = "BP1" +Me.BP1.Size = New System.Drawing.Size(71, 93) +Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP1.TabIndex = 0 +Me.BP1.TabStop = false +Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 +' +'GbxCardsSilver +' +Me.GbxCardsSilver.Controls.Add(Me.SN6) +Me.GbxCardsSilver.Controls.Add(Me.SP6) +Me.GbxCardsSilver.Controls.Add(Me.SN2) +Me.GbxCardsSilver.Controls.Add(Me.SP2) +Me.GbxCardsSilver.Controls.Add(Me.SN1) +Me.GbxCardsSilver.Controls.Add(Me.SP5) +Me.GbxCardsSilver.Controls.Add(Me.SP1) +Me.GbxCardsSilver.Controls.Add(Me.SN5) +Me.GbxCardsSilver.Controls.Add(Me.SN3) +Me.GbxCardsSilver.Controls.Add(Me.SN4) +Me.GbxCardsSilver.Controls.Add(Me.SP3) +Me.GbxCardsSilver.Controls.Add(Me.SP4) +Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) +Me.GbxCardsSilver.Name = "GbxCardsSilver" +Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsSilver.TabIndex = 1 +Me.GbxCardsSilver.TabStop = false +Me.GbxCardsSilver.Text = "Silver Cards" +' +'SN6 +' +Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN6.Location = New System.Drawing.Point(86, 368) +Me.SN6.Name = "SN6" +Me.SN6.Size = New System.Drawing.Size(71, 20) +Me.SN6.TabIndex = 5 +Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 +Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP6 +' +Me.SP6.BackColor = System.Drawing.Color.Silver +Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 +Me.SP6.InitialImage = Nothing +Me.SP6.Location = New System.Drawing.Point(86, 269) +Me.SP6.Name = "SP6" +Me.SP6.Size = New System.Drawing.Size(71, 93) +Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP6.TabIndex = 17 +Me.SP6.TabStop = false +' +'SN2 +' +Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN2.Location = New System.Drawing.Point(86, 118) +Me.SN2.Name = "SN2" +Me.SN2.Size = New System.Drawing.Size(71, 20) +Me.SN2.TabIndex = 1 +Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 +Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP2 +' +Me.SP2.BackColor = System.Drawing.Color.Silver +Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 +Me.SP2.InitialImage = Nothing +Me.SP2.Location = New System.Drawing.Point(86, 19) +Me.SP2.Name = "SP2" +Me.SP2.Size = New System.Drawing.Size(71, 93) +Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP2.TabIndex = 9 +Me.SP2.TabStop = false +' +'SN1 +' +Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN1.Location = New System.Drawing.Point(9, 118) +Me.SN1.Name = "SN1" +Me.SN1.Size = New System.Drawing.Size(71, 20) +Me.SN1.TabIndex = 0 +Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 +Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP5 +' +Me.SP5.BackColor = System.Drawing.Color.Silver +Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 +Me.SP5.InitialImage = Nothing +Me.SP5.Location = New System.Drawing.Point(9, 269) +Me.SP5.Name = "SP5" +Me.SP5.Size = New System.Drawing.Size(71, 93) +Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP5.TabIndex = 15 +Me.SP5.TabStop = false +' +'SP1 +' +Me.SP1.BackColor = System.Drawing.Color.Silver +Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 +Me.SP1.InitialImage = Nothing +Me.SP1.Location = New System.Drawing.Point(9, 19) +Me.SP1.Name = "SP1" +Me.SP1.Size = New System.Drawing.Size(71, 93) +Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP1.TabIndex = 0 +Me.SP1.TabStop = false +' +'SN5 +' +Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN5.Location = New System.Drawing.Point(9, 368) +Me.SN5.Name = "SN5" +Me.SN5.Size = New System.Drawing.Size(71, 20) +Me.SN5.TabIndex = 4 +Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 +Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SN3 +' +Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN3.Location = New System.Drawing.Point(9, 243) +Me.SN3.Name = "SN3" +Me.SN3.Size = New System.Drawing.Size(71, 20) +Me.SN3.TabIndex = 2 +Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 +Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SN4 +' +Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN4.Location = New System.Drawing.Point(86, 243) +Me.SN4.Name = "SN4" +Me.SN4.Size = New System.Drawing.Size(71, 20) +Me.SN4.TabIndex = 3 +Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 +Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'SP3 +' +Me.SP3.BackColor = System.Drawing.Color.Silver +Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 +Me.SP3.InitialImage = Nothing +Me.SP3.Location = New System.Drawing.Point(9, 144) +Me.SP3.Name = "SP3" +Me.SP3.Size = New System.Drawing.Size(71, 93) +Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP3.TabIndex = 11 +Me.SP3.TabStop = false +' +'SP4 +' +Me.SP4.BackColor = System.Drawing.Color.Silver +Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 +Me.SP4.InitialImage = Nothing +Me.SP4.Location = New System.Drawing.Point(86, 144) +Me.SP4.Name = "SP4" +Me.SP4.Size = New System.Drawing.Size(71, 93) +Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP4.TabIndex = 13 +Me.SP4.TabStop = false +' +'TabPage6 +' +Me.TabPage6.BackColor = System.Drawing.Color.LightGray +Me.TabPage6.Controls.Add(Me.Panel10) +Me.TabPage6.Controls.Add(Me.Label107) +Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) +Me.TabPage6.Controls.Add(Me.Label18) +Me.TabPage6.Controls.Add(Me.PNLWishList) +Me.TabPage6.Location = New System.Drawing.Point(4, 22) +Me.TabPage6.Name = "TabPage6" +Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage6.Size = New System.Drawing.Size(700, 411) +Me.TabPage6.TabIndex = 2 +Me.TabPage6.Text = "Wishlist" +' +'Panel10 +' +Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel10.Controls.Add(Me.TBWishlistComment) +Me.Panel10.Controls.Add(Me.Label32) +Me.Panel10.Controls.Add(Me.TBWishlistItem) +Me.Panel10.Controls.Add(Me.radioGold) +Me.Panel10.Controls.Add(Me.Label42) +Me.Panel10.Controls.Add(Me.radioSilver) +Me.Panel10.Controls.Add(Me.TBWishlistURL) +Me.Panel10.Controls.Add(Me.NBWishlistCost) +Me.Panel10.Controls.Add(Me.Label48) +Me.Panel10.Controls.Add(Me.Label73) +Me.Panel10.Location = New System.Drawing.Point(38, 47) +Me.Panel10.Name = "Panel10" +Me.Panel10.Size = New System.Drawing.Size(252, 308) +Me.Panel10.TabIndex = 179 +' +'TBWishlistComment +' +Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) +Me.TBWishlistComment.Multiline = true +Me.TBWishlistComment.Name = "TBWishlistComment" +Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) +Me.TBWishlistComment.TabIndex = 172 +' +'Label32 +' +Me.Label32.AutoSize = true +Me.Label32.Location = New System.Drawing.Point(13, 4) +Me.Label32.Name = "Label32" +Me.Label32.Size = New System.Drawing.Size(58, 13) +Me.Label32.TabIndex = 167 +Me.Label32.Text = "Item Name" +' +'TBWishlistItem +' +Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) +Me.TBWishlistItem.Name = "TBWishlistItem" +Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistItem.TabIndex = 168 +' +'radioGold +' +Me.radioGold.AutoSize = true +Me.radioGold.Location = New System.Drawing.Point(167, 125) +Me.radioGold.Name = "radioGold" +Me.radioGold.Size = New System.Drawing.Size(47, 17) +Me.radioGold.TabIndex = 176 +Me.radioGold.Text = "Gold" +Me.radioGold.UseVisualStyleBackColor = true +' +'Label42 +' +Me.Label42.AutoSize = true +Me.Label42.Location = New System.Drawing.Point(13, 56) +Me.Label42.Name = "Label42" +Me.Label42.Size = New System.Drawing.Size(75, 13) +Me.Label42.TabIndex = 169 +Me.Label42.Text = "Item Image Url" +' +'radioSilver +' +Me.radioSilver.AutoSize = true +Me.radioSilver.Checked = true +Me.radioSilver.Location = New System.Drawing.Point(100, 125) +Me.radioSilver.Name = "radioSilver" +Me.radioSilver.Size = New System.Drawing.Size(51, 17) +Me.radioSilver.TabIndex = 175 +Me.radioSilver.TabStop = true +Me.radioSilver.Text = "Silver" +Me.radioSilver.UseVisualStyleBackColor = true +' +'TBWishlistURL +' +Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) +Me.TBWishlistURL.Name = "TBWishlistURL" +Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistURL.TabIndex = 170 +' +'NBWishlistCost +' +Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) +Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBWishlistCost.Name = "NBWishlistCost" +Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) +Me.NBWishlistCost.TabIndex = 174 +Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) +' +'Label48 +' +Me.Label48.AutoSize = true +Me.Label48.Location = New System.Drawing.Point(13, 157) +Me.Label48.Name = "Label48" +Me.Label48.Size = New System.Drawing.Size(74, 13) +Me.Label48.TabIndex = 171 +Me.Label48.Text = "Item Comment" +' +'Label73 +' +Me.Label73.AutoSize = true +Me.Label73.Location = New System.Drawing.Point(13, 108) +Me.Label73.Name = "Label73" +Me.Label73.Size = New System.Drawing.Size(51, 13) +Me.Label73.TabIndex = 173 +Me.Label73.Text = "Item Cost" +' +'Label107 +' +Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label107.Location = New System.Drawing.Point(38, 5) +Me.Label107.Name = "Label107" +Me.Label107.Size = New System.Drawing.Size(252, 47) +Me.Label107.TabIndex = 178 +Me.Label107.Text = "Use this page to create Wishlist files." +Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNWishlistCreate +' +Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) +Me.BTNWishlistCreate.Name = "BTNWishlistCreate" +Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) +Me.BTNWishlistCreate.TabIndex = 177 +Me.BTNWishlistCreate.Text = "Create Wishlist File" +Me.BTNWishlistCreate.UseVisualStyleBackColor = true +' +'Label18 +' +Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label18.Location = New System.Drawing.Point(409, 5) +Me.Label18.Name = "Label18" +Me.Label18.Size = New System.Drawing.Size(250, 23) +Me.Label18.TabIndex = 166 +Me.Label18.Text = "Preview" +Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'PNLWishList +' +Me.PNLWishList.BackColor = System.Drawing.Color.White +Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) +Me.PNLWishList.Controls.Add(Me.LBLWishListText) +Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) +Me.PNLWishList.Controls.Add(Me.WishlistCostGold) +Me.PNLWishList.Controls.Add(Me.LBLWishListName) +Me.PNLWishList.Controls.Add(Me.WishlistPreview) +Me.PNLWishList.Location = New System.Drawing.Point(407, 31) +Me.PNLWishList.Name = "PNLWishList" +Me.PNLWishList.Size = New System.Drawing.Size(250, 367) +Me.PNLWishList.TabIndex = 165 +' +'WishlistCostSilver +' +Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) +Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostSilver.Name = "WishlistCostSilver" +Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostSilver.TabIndex = 111 +Me.WishlistCostSilver.TabStop = false +' +'LBLWishListText +' +Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) +Me.LBLWishListText.Name = "LBLWishListText" +Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) +Me.LBLWishListText.TabIndex = 108 +' +'LBLWishlistCost +' +Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black +Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) +Me.LBLWishlistCost.Name = "LBLWishlistCost" +Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) +Me.LBLWishlistCost.TabIndex = 107 +Me.LBLWishlistCost.Text = "3" +Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'WishlistCostGold +' +Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) +Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostGold.Name = "WishlistCostGold" +Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostGold.TabIndex = 106 +Me.WishlistCostGold.TabStop = false +Me.WishlistCostGold.Visible = false +' +'LBLWishListName +' +Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue +Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) +Me.LBLWishListName.Name = "LBLWishListName" +Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) +Me.LBLWishListName.TabIndex = 104 +Me.LBLWishListName.Text = "Item Name Goes Here" +Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'WishlistPreview +' +Me.WishlistPreview.ImageLocation = "" +Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) +Me.WishlistPreview.Name = "WishlistPreview" +Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) +Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WishlistPreview.TabIndex = 101 +Me.WishlistPreview.TabStop = false +' +'TabPage26 +' +Me.TabPage26.BackColor = System.Drawing.Color.Silver +Me.TabPage26.Controls.Add(Me.Panel12) +Me.TabPage26.Location = New System.Drawing.Point(4, 22) +Me.TabPage26.Name = "TabPage26" +Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage26.Size = New System.Drawing.Size(720, 448) +Me.TabPage26.TabIndex = 19 +Me.TabPage26.Text = "Themes" +' +'Panel12 +' +Me.Panel12.BackColor = System.Drawing.Color.LightGray +Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel12.Controls.Add(Me.GroupBox9) +Me.Panel12.Controls.Add(Me.PictureBox10) +Me.Panel12.Controls.Add(Me.GroupBox5) +Me.Panel12.Controls.Add(Me.GroupBox11) +Me.Panel12.Controls.Add(Me.GroupBox1) +Me.Panel12.Controls.Add(Me.Label164) +Me.Panel12.Location = New System.Drawing.Point(6, 6) +Me.Panel12.Name = "Panel12" +Me.Panel12.Size = New System.Drawing.Size(708, 437) +Me.Panel12.TabIndex = 93 +' +'GroupBox9 +' +Me.GroupBox9.Controls.Add(Me.Button32) +Me.GroupBox9.Controls.Add(Me.Button31) +Me.GroupBox9.Location = New System.Drawing.Point(351, 231) +Me.GroupBox9.Name = "GroupBox9" +Me.GroupBox9.Size = New System.Drawing.Size(348, 94) +Me.GroupBox9.TabIndex = 152 +Me.GroupBox9.TabStop = false +Me.GroupBox9.Text = "System" +' +'Button32 +' +Me.Button32.BackColor = System.Drawing.Color.Transparent +Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big +Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button32.Location = New System.Drawing.Point(196, 24) +Me.Button32.Name = "Button32" +Me.Button32.Size = New System.Drawing.Size(135, 55) +Me.Button32.TabIndex = 55 +Me.Button32.Text = " Save Theme" +Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button32.UseVisualStyleBackColor = false +' +'Button31 +' +Me.Button31.BackColor = System.Drawing.Color.Transparent +Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big +Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button31.Location = New System.Drawing.Point(17, 24) +Me.Button31.Name = "Button31" +Me.Button31.Size = New System.Drawing.Size(135, 55) +Me.Button31.TabIndex = 54 +Me.Button31.Text = " Open Theme" +Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button31.UseVisualStyleBackColor = false +' +'PictureBox10 +' +Me.PictureBox10.BackColor = System.Drawing.Color.LightGray +Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox10.Location = New System.Drawing.Point(9, 6) +Me.PictureBox10.Name = "PictureBox10" +Me.PictureBox10.Size = New System.Drawing.Size(160, 19) +Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox10.TabIndex = 151 +Me.PictureBox10.TabStop = false +' +'GroupBox5 +' +Me.GroupBox5.Controls.Add(Me.CBTransparentTime) +Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) +Me.GroupBox5.Controls.Add(Me.Label137) +Me.GroupBox5.Controls.Add(Me.Label138) +Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) +Me.GroupBox5.Location = New System.Drawing.Point(9, 31) +Me.GroupBox5.Name = "GroupBox5" +Me.GroupBox5.Size = New System.Drawing.Size(336, 294) +Me.GroupBox5.TabIndex = 58 +Me.GroupBox5.TabStop = false +Me.GroupBox5.Text = "UI Colors" +' +'CBTransparentTime +' +Me.CBTransparentTime.AutoSize = true +Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) +Me.CBTransparentTime.Name = "CBTransparentTime" +Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) +Me.CBTransparentTime.TabIndex = 23 +Me.CBTransparentTime.Text = "Transparent Date/Time Window" +Me.CBTransparentTime.UseVisualStyleBackColor = true +' +'LBLDateTimeColor2 +' +Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor +Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) +Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" +Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateTimeColor2.TabIndex = 19 +' +'Label137 +' +Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label137.Location = New System.Drawing.Point(6, 227) +Me.Label137.Name = "Label137" +Me.Label137.Size = New System.Drawing.Size(175, 20) +Me.Label137.TabIndex = 20 +Me.Label137.Text = "Date/Time Window Color" +Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label138 +' +Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label138.Location = New System.Drawing.Point(6, 193) +Me.Label138.Name = "Label138" +Me.Label138.Size = New System.Drawing.Size(175, 20) +Me.Label138.TabIndex = 17 +Me.Label138.Text = "Date/Time Text Color" +Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLDateBackColor2 +' +Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor +Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) +Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateBackColor2.Name = "LBLDateBackColor2" +Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateBackColor2.TabIndex = 22 +' +'LBLTextColor +' +Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) +Me.LBLTextColor.Name = "LBLTextColor" +Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLTextColor.TabIndex = 7 +Me.LBLTextColor.Text = "Text Color" +Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLChatWindowColor2 +' +Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor +Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) +Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" +Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatWindowColor2.TabIndex = 12 +' +'LBLTextColor2 +' +Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor +Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) +Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLTextColor2.Name = "LBLTextColor2" +Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLTextColor2.TabIndex = 9 +' +'LBLChatTextColor +' +Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) +Me.LBLChatTextColor.Name = "LBLChatTextColor" +Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatTextColor.TabIndex = 14 +Me.LBLChatTextColor.Text = "Chat Text Color" +Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLBackColor2 +' +Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor +Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) +Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLBackColor2.Name = "LBLBackColor2" +Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLBackColor2.TabIndex = 3 +' +'LBLButtonColor +' +Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) +Me.LBLButtonColor.Name = "LBLButtonColor" +Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) +Me.LBLButtonColor.TabIndex = 4 +Me.LBLButtonColor.Text = "Button Color" +Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLChatWindowColor +' +Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) +Me.LBLChatWindowColor.Name = "LBLChatWindowColor" +Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatWindowColor.TabIndex = 10 +Me.LBLChatWindowColor.Text = "Chat Window Color" +Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLBackColor +' +Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) +Me.LBLBackColor.Name = "LBLBackColor" +Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) +Me.LBLBackColor.TabIndex = 0 +Me.LBLBackColor.Text = "Background Color" +Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLChatTextColor2 +' +Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor +Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) +Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatTextColor2.Name = "LBLChatTextColor2" +Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatTextColor2.TabIndex = 16 +' +'LBLButtonColor2 +' +Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor +Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) +Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLButtonColor2.Name = "LBLButtonColor2" +Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLButtonColor2.TabIndex = 6 +' +'GroupBox11 +' +Me.GroupBox11.BackColor = System.Drawing.Color.LightGray +Me.GroupBox11.Controls.Add(Me.Label144) +Me.GroupBox11.ForeColor = System.Drawing.Color.Black +Me.GroupBox11.Location = New System.Drawing.Point(7, 331) +Me.GroupBox11.Name = "GroupBox11" +Me.GroupBox11.Size = New System.Drawing.Size(692, 92) +Me.GroupBox11.TabIndex = 65 +Me.GroupBox11.TabStop = false +Me.GroupBox11.Text = "Description" +' +'Label144 +' +Me.Label144.BackColor = System.Drawing.Color.Transparent +Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label144.ForeColor = System.Drawing.Color.Black +Me.Label144.Location = New System.Drawing.Point(6, 16) +Me.Label144.Name = "Label144" +Me.Label144.Size = New System.Drawing.Size(680, 73) +Me.Label144.TabIndex = 62 +Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ + "nd opened from txt files." +Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox1 +' +Me.GroupBox1.Controls.Add(Me.CBFlipBack) +Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) +Me.GroupBox1.Controls.Add(Me.Button17) +Me.GroupBox1.Controls.Add(Me.CBStretchBack) +Me.GroupBox1.Controls.Add(Me.Button18) +Me.GroupBox1.Location = New System.Drawing.Point(351, 30) +Me.GroupBox1.Name = "GroupBox1" +Me.GroupBox1.Size = New System.Drawing.Size(348, 195) +Me.GroupBox1.TabIndex = 57 +Me.GroupBox1.TabStop = false +Me.GroupBox1.Text = "Background" +' +'CBFlipBack +' +Me.CBFlipBack.Enabled = false +Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) +Me.CBFlipBack.Name = "CBFlipBack" +Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) +Me.CBFlipBack.TabIndex = 4 +Me.CBFlipBack.Text = "Flip Background" +Me.CBFlipBack.UseVisualStyleBackColor = true +' +'PBBackgroundPreview +' +Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) +Me.PBBackgroundPreview.Name = "PBBackgroundPreview" +Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) +Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PBBackgroundPreview.TabIndex = 0 +Me.PBBackgroundPreview.TabStop = false +' +'Button17 +' +Me.Button17.BackColor = System.Drawing.Color.Transparent +Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load +Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button17.Location = New System.Drawing.Point(228, 36) +Me.Button17.Name = "Button17" +Me.Button17.Size = New System.Drawing.Size(103, 93) +Me.Button17.TabIndex = 1 +Me.Button17.UseVisualStyleBackColor = false +' +'CBStretchBack +' +Me.CBStretchBack.Checked = true +Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) +Me.CBStretchBack.Name = "CBStretchBack" +Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) +Me.CBStretchBack.TabIndex = 2 +Me.CBStretchBack.Text = "Stretch Background" +Me.CBStretchBack.UseVisualStyleBackColor = true +' +'Button18 +' +Me.Button18.Location = New System.Drawing.Point(228, 155) +Me.Button18.Name = "Button18" +Me.Button18.Size = New System.Drawing.Size(103, 31) +Me.Button18.TabIndex = 3 +Me.Button18.Text = "Clear" +Me.Button18.UseVisualStyleBackColor = true +' +'Label164 +' +Me.Label164.BackColor = System.Drawing.Color.Transparent +Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label164.ForeColor = System.Drawing.Color.Black +Me.Label164.Location = New System.Drawing.Point(7, 6) +Me.Label164.Name = "Label164" +Me.Label164.Size = New System.Drawing.Size(692, 21) +Me.Label164.TabIndex = 49 +Me.Label164.Text = "Theme Settings" +Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage4 +' +Me.TabPage4.BackColor = System.Drawing.Color.Silver +Me.TabPage4.Controls.Add(Me.Panel6) +Me.TabPage4.Location = New System.Drawing.Point(4, 22) +Me.TabPage4.Name = "TabPage4" +Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage4.Size = New System.Drawing.Size(720, 448) +Me.TabPage4.TabIndex = 3 +Me.TabPage4.Text = "Ranges" +' +'Panel6 +' +Me.Panel6.BackColor = System.Drawing.Color.LightGray +Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel6.Controls.Add(Me.GroupBox69) +Me.Panel6.Controls.Add(Me.GroupBox68) +Me.Panel6.Controls.Add(Me.GroupBox67) +Me.Panel6.Controls.Add(Me.GroupBox10) +Me.Panel6.Controls.Add(Me.GroupBox57) +Me.Panel6.Controls.Add(Me.GBRangeRuinChance) +Me.Panel6.Controls.Add(Me.GroupBox17) +Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) +Me.Panel6.Controls.Add(Me.PictureBox8) +Me.Panel6.Controls.Add(Me.Label38) +Me.Panel6.Location = New System.Drawing.Point(6, 6) +Me.Panel6.Name = "Panel6" +Me.Panel6.Size = New System.Drawing.Size(708, 437) +Me.Panel6.TabIndex = 91 +' +'GroupBox69 +' +Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) +Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) +Me.GroupBox69.Controls.Add(Me.TimedWriting) +Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) +Me.GroupBox69.Location = New System.Drawing.Point(236, 344) +Me.GroupBox69.Name = "GroupBox69" +Me.GroupBox69.Size = New System.Drawing.Size(166, 83) +Me.GroupBox69.TabIndex = 173 +Me.GroupBox69.TabStop = false +Me.GroupBox69.Text = "Writing Tasks" +' +'TypesSpeedVal +' +Me.TypesSpeedVal.AutoSize = true +Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) +Me.TypesSpeedVal.Name = "TypesSpeedVal" +Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) +Me.TypesSpeedVal.TabIndex = 0 +Me.TypesSpeedVal.Text = "10" +Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'TypeSpeedLabel +' +Me.TypeSpeedLabel.AutoSize = true +Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) +Me.TypeSpeedLabel.Name = "TypeSpeedLabel" +Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) +Me.TypeSpeedLabel.TabIndex = 2 +Me.TypeSpeedLabel.Text = "Typing Speed:" +' +'TimedWriting +' +Me.TimedWriting.AutoSize = true +Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting +Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TimedWriting.Location = New System.Drawing.Point(9, 19) +Me.TimedWriting.Name = "TimedWriting" +Me.TimedWriting.Size = New System.Drawing.Size(123, 17) +Me.TimedWriting.TabIndex = 1 +Me.TimedWriting.Text = "Timed Writing Tasks" +Me.TimedWriting.UseVisualStyleBackColor = true +' +'TypeSpeedSlider +' +Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) +Me.TypeSpeedSlider.Maximum = 100 +Me.TypeSpeedSlider.Minimum = 33 +Me.TypeSpeedSlider.Name = "TypeSpeedSlider" +Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) +Me.TypeSpeedSlider.TabIndex = 3 +Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed +' +'GroupBox68 +' +Me.GroupBox68.Controls.Add(Me.NBTasksMax) +Me.GroupBox68.Controls.Add(Me.NBTasksMin) +Me.GroupBox68.Controls.Add(Me.Label165) +Me.GroupBox68.Controls.Add(Me.Label166) +Me.GroupBox68.Location = New System.Drawing.Point(236, 287) +Me.GroupBox68.Name = "GroupBox68" +Me.GroupBox68.Size = New System.Drawing.Size(166, 51) +Me.GroupBox68.TabIndex = 172 +Me.GroupBox68.TabStop = false +Me.GroupBox68.Text = "Session Tasks" +' +'NBTasksMax +' +Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) +Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) +Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTasksMax.Name = "NBTasksMax" +Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMax.TabIndex = 187 +Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) +' +'NBTasksMin +' +Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) +Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBTasksMin.Name = "NBTasksMin" +Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMin.TabIndex = 186 +Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) +' +'Label165 +' +Me.Label165.BackColor = System.Drawing.Color.Transparent +Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label165.ForeColor = System.Drawing.Color.Black +Me.Label165.Location = New System.Drawing.Point(100, 20) +Me.Label165.Name = "Label165" +Me.Label165.Size = New System.Drawing.Size(10, 17) +Me.Label165.TabIndex = 185 +Me.Label165.Text = "-" +Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label166 +' +Me.Label166.BackColor = System.Drawing.Color.Transparent +Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label166.ForeColor = System.Drawing.Color.Black +Me.Label166.Location = New System.Drawing.Point(6, 21) +Me.Label166.Name = "Label166" +Me.Label166.Size = New System.Drawing.Size(49, 17) +Me.Label166.TabIndex = 188 +Me.Label166.Text = "Amount:" +Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox67 +' +Me.GroupBox67.Controls.Add(Me.Label161) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) +Me.GroupBox67.Controls.Add(Me.Label162) +Me.GroupBox67.Controls.Add(Me.Label163) +Me.GroupBox67.Controls.Add(Me.Label158) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) +Me.GroupBox67.Controls.Add(Me.Label159) +Me.GroupBox67.Controls.Add(Me.Label160) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) +Me.GroupBox67.Controls.Add(Me.Label119) +Me.GroupBox67.Controls.Add(Me.Label157) +Me.GroupBox67.Controls.Add(Me.Label151) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) +Me.GroupBox67.Controls.Add(Me.Label154) +Me.GroupBox67.Controls.Add(Me.Label155) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) +Me.GroupBox67.Controls.Add(Me.Label146) +Me.GroupBox67.Controls.Add(Me.Label149) +Me.GroupBox67.Location = New System.Drawing.Point(408, 288) +Me.GroupBox67.Name = "GroupBox67" +Me.GroupBox67.Size = New System.Drawing.Size(291, 139) +Me.GroupBox67.TabIndex = 171 +Me.GroupBox67.TabStop = false +Me.GroupBox67.Text = "Letter Tasks" +' +'Label161 +' +Me.Label161.BackColor = System.Drawing.Color.Transparent +Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label161.ForeColor = System.Drawing.Color.Black +Me.Label161.Location = New System.Drawing.Point(233, 110) +Me.Label161.Name = "Label161" +Me.Label161.Size = New System.Drawing.Size(50, 17) +Me.Label161.TabIndex = 204 +Me.Label161.Text = "minutes" +Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskCBTTimeMax +' +Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) +Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" +Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMax.TabIndex = 203 +Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax +' +'NBTaskCBTTimeMin +' +Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) +Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" +Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMin.TabIndex = 202 +Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin +' +'Label162 +' +Me.Label162.BackColor = System.Drawing.Color.Transparent +Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label162.ForeColor = System.Drawing.Color.Black +Me.Label162.Location = New System.Drawing.Point(167, 110) +Me.Label162.Name = "Label162" +Me.Label162.Size = New System.Drawing.Size(10, 17) +Me.Label162.TabIndex = 201 +Me.Label162.Text = "-" +Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label163 +' +Me.Label163.BackColor = System.Drawing.Color.Transparent +Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label163.ForeColor = System.Drawing.Color.Black +Me.Label163.Location = New System.Drawing.Point(12, 111) +Me.Label163.Name = "Label163" +Me.Label163.Size = New System.Drawing.Size(151, 17) +Me.Label163.TabIndex = 200 +Me.Label163.Text = "CBT Time:" +Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label158 +' +Me.Label158.BackColor = System.Drawing.Color.Transparent +Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label158.ForeColor = System.Drawing.Color.Black +Me.Label158.Location = New System.Drawing.Point(233, 87) +Me.Label158.Name = "Label158" +Me.Label158.Size = New System.Drawing.Size(50, 17) +Me.Label158.TabIndex = 199 +Me.Label158.Text = "minutes" +Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskEdgeHoldTimeMax +' +Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) +Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" +Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 +Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax +' +'NBTaskEdgeHoldTimeMin +' +Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) +Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" +Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 +Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin +' +'Label159 +' +Me.Label159.BackColor = System.Drawing.Color.Transparent +Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label159.ForeColor = System.Drawing.Color.Black +Me.Label159.Location = New System.Drawing.Point(167, 87) +Me.Label159.Name = "Label159" +Me.Label159.Size = New System.Drawing.Size(10, 17) +Me.Label159.TabIndex = 196 +Me.Label159.Text = "-" +Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label160 +' +Me.Label160.BackColor = System.Drawing.Color.Transparent +Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label160.ForeColor = System.Drawing.Color.Black +Me.Label160.Location = New System.Drawing.Point(12, 88) +Me.Label160.Name = "Label160" +Me.Label160.Size = New System.Drawing.Size(151, 17) +Me.Label160.TabIndex = 195 +Me.Label160.Text = "Edge Hold Time:" +Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskEdgesMax +' +Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) +Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" +Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMax.TabIndex = 194 +Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax +' +'NBTaskEdgesMin +' +Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) +Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" +Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMin.TabIndex = 193 +Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin +' +'Label119 +' +Me.Label119.BackColor = System.Drawing.Color.Transparent +Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label119.ForeColor = System.Drawing.Color.Black +Me.Label119.Location = New System.Drawing.Point(167, 64) +Me.Label119.Name = "Label119" +Me.Label119.Size = New System.Drawing.Size(10, 17) +Me.Label119.TabIndex = 192 +Me.Label119.Text = "-" +Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label157 +' +Me.Label157.BackColor = System.Drawing.Color.Transparent +Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label157.ForeColor = System.Drawing.Color.Black +Me.Label157.Location = New System.Drawing.Point(12, 65) +Me.Label157.Name = "Label157" +Me.Label157.Size = New System.Drawing.Size(151, 17) +Me.Label157.TabIndex = 191 +Me.Label157.Text = "Edges:" +Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label151 +' +Me.Label151.BackColor = System.Drawing.Color.Transparent +Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label151.ForeColor = System.Drawing.Color.Black +Me.Label151.Location = New System.Drawing.Point(233, 41) +Me.Label151.Name = "Label151" +Me.Label151.Size = New System.Drawing.Size(50, 17) +Me.Label151.TabIndex = 190 +Me.Label151.Text = "minutes" +Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskStrokingTimeMax +' +Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) +Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" +Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMax.TabIndex = 189 +Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax +' +'NBTaskStrokingTimeMin +' +Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) +Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" +Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMin.TabIndex = 188 +Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin +' +'Label154 +' +Me.Label154.BackColor = System.Drawing.Color.Transparent +Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label154.ForeColor = System.Drawing.Color.Black +Me.Label154.Location = New System.Drawing.Point(167, 41) +Me.Label154.Name = "Label154" +Me.Label154.Size = New System.Drawing.Size(10, 17) +Me.Label154.TabIndex = 187 +Me.Label154.Text = "-" +Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label155 +' +Me.Label155.BackColor = System.Drawing.Color.Transparent +Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label155.ForeColor = System.Drawing.Color.Black +Me.Label155.Location = New System.Drawing.Point(12, 42) +Me.Label155.Name = "Label155" +Me.Label155.Size = New System.Drawing.Size(151, 17) +Me.Label155.TabIndex = 186 +Me.Label155.Text = "Stroking Time:" +Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTaskStrokesMax +' +Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) +Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" +Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMax.TabIndex = 184 +Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax +' +'NBTaskStrokesMin +' +Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) +Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" +Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMin.TabIndex = 183 +Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin +' +'Label146 +' +Me.Label146.BackColor = System.Drawing.Color.Transparent +Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label146.ForeColor = System.Drawing.Color.Black +Me.Label146.Location = New System.Drawing.Point(167, 18) +Me.Label146.Name = "Label146" +Me.Label146.Size = New System.Drawing.Size(10, 17) +Me.Label146.TabIndex = 182 +Me.Label146.Text = "-" +Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label149 +' +Me.Label149.BackColor = System.Drawing.Color.Transparent +Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label149.ForeColor = System.Drawing.Color.Black +Me.Label149.Location = New System.Drawing.Point(12, 19) +Me.Label149.Name = "Label149" +Me.Label149.Size = New System.Drawing.Size(151, 17) +Me.Label149.TabIndex = 181 +Me.Label149.Text = "Strokes:" +Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox10 +' +Me.GroupBox10.Controls.Add(Me.Label112) +Me.GroupBox10.Controls.Add(Me.NBNextImageChance) +Me.GroupBox10.Controls.Add(Me.Label6) +Me.GroupBox10.Location = New System.Drawing.Point(408, 31) +Me.GroupBox10.Name = "GroupBox10" +Me.GroupBox10.Size = New System.Drawing.Size(291, 54) +Me.GroupBox10.TabIndex = 170 +Me.GroupBox10.TabStop = false +Me.GroupBox10.Text = "Tease Slideshow" +' +'Label112 +' +Me.Label112.BackColor = System.Drawing.Color.Transparent +Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label112.ForeColor = System.Drawing.Color.Black +Me.Label112.Location = New System.Drawing.Point(233, 21) +Me.Label112.Name = "Label112" +Me.Label112.Size = New System.Drawing.Size(50, 17) +Me.Label112.TabIndex = 180 +Me.Label112.Text = "percent" +Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBNextImageChance +' +Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) +Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBNextImageChance.Name = "NBNextImageChance" +Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) +Me.NBNextImageChance.TabIndex = 179 +Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label6 +' +Me.Label6.BackColor = System.Drawing.Color.Transparent +Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label6.ForeColor = System.Drawing.Color.Black +Me.Label6.Location = New System.Drawing.Point(9, 21) +Me.Label6.Name = "Label6" +Me.Label6.Size = New System.Drawing.Size(151, 17) +Me.Label6.TabIndex = 154 +Me.Label6.Text = "Image Next/Previous Chance:" +Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox57 +' +Me.GroupBox57.Controls.Add(Me.Label139) +Me.GroupBox57.Controls.Add(Me.NBTauntEdging) +Me.GroupBox57.Controls.Add(Me.LBLVtf) +Me.GroupBox57.Controls.Add(Me.LBLStf) +Me.GroupBox57.Controls.Add(Me.SliderSTF) +Me.GroupBox57.Controls.Add(Me.TauntSlider) +Me.GroupBox57.Controls.Add(Me.Label106) +Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) +Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) +Me.GroupBox57.Controls.Add(Me.Label103) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) +Me.GroupBox57.Controls.Add(Me.Label105) +Me.GroupBox57.Controls.Add(Me.Label101) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) +Me.GroupBox57.Controls.Add(Me.Label102) +Me.GroupBox57.Controls.Add(Me.Label97) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) +Me.GroupBox57.Controls.Add(Me.Label99) +Me.GroupBox57.Controls.Add(Me.Label96) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) +Me.GroupBox57.Controls.Add(Me.Label95) +Me.GroupBox57.Controls.Add(Me.Label49) +Me.GroupBox57.Controls.Add(Me.Label141) +Me.GroupBox57.Location = New System.Drawing.Point(7, 30) +Me.GroupBox57.Name = "GroupBox57" +Me.GroupBox57.Size = New System.Drawing.Size(223, 308) +Me.GroupBox57.TabIndex = 169 +Me.GroupBox57.TabStop = false +Me.GroupBox57.Text = "Tease" +' +'Label139 +' +Me.Label139.BackColor = System.Drawing.Color.Transparent +Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label139.ForeColor = System.Drawing.Color.Black +Me.Label139.Location = New System.Drawing.Point(175, 171) +Me.Label139.Name = "Label139" +Me.Label139.Size = New System.Drawing.Size(50, 17) +Me.Label139.TabIndex = 184 +Me.Label139.Text = "percent" +Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTauntEdging +' +Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) +Me.NBTauntEdging.Name = "NBTauntEdging" +Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) +Me.NBTauntEdging.TabIndex = 188 +Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) +' +'LBLVtf +' +Me.LBLVtf.BackColor = System.Drawing.Color.Transparent +Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLVtf.ForeColor = System.Drawing.Color.Black +Me.LBLVtf.Location = New System.Drawing.Point(128, 261) +Me.LBLVtf.Name = "LBLVtf" +Me.LBLVtf.Size = New System.Drawing.Size(87, 17) +Me.LBLVtf.TabIndex = 187 +Me.LBLVtf.Text = "Normal" +Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLStf +' +Me.LBLStf.BackColor = System.Drawing.Color.Transparent +Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLStf.ForeColor = System.Drawing.Color.Black +Me.LBLStf.Location = New System.Drawing.Point(130, 220) +Me.LBLStf.Name = "LBLStf" +Me.LBLStf.Size = New System.Drawing.Size(87, 17) +Me.LBLStf.TabIndex = 165 +Me.LBLStf.Text = "Normal" +Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'SliderSTF +' +Me.SliderSTF.AutoSize = false +Me.SliderSTF.LargeChange = 1 +Me.SliderSTF.Location = New System.Drawing.Point(130, 199) +Me.SliderSTF.Maximum = 5 +Me.SliderSTF.Minimum = 1 +Me.SliderSTF.Name = "SliderSTF" +Me.SliderSTF.Size = New System.Drawing.Size(87, 25) +Me.SliderSTF.TabIndex = 163 +Me.SliderSTF.Value = 3 +' +'TauntSlider +' +Me.TauntSlider.AutoSize = false +Me.TauntSlider.LargeChange = 1 +Me.TauntSlider.Location = New System.Drawing.Point(130, 240) +Me.TauntSlider.Maximum = 9 +Me.TauntSlider.Minimum = 1 +Me.TauntSlider.Name = "TauntSlider" +Me.TauntSlider.Size = New System.Drawing.Size(87, 25) +Me.TauntSlider.TabIndex = 161 +Me.TauntSlider.Value = 4 +' +'Label106 +' +Me.Label106.BackColor = System.Drawing.Color.Transparent +Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label106.ForeColor = System.Drawing.Color.Black +Me.Label106.Location = New System.Drawing.Point(6, 243) +Me.Label106.Name = "Label106" +Me.Label106.Size = New System.Drawing.Size(123, 17) +Me.Label106.TabIndex = 186 +Me.Label106.Text = "Video Taunt Frequency:" +Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBTauntCycleDD +' +Me.CBTauntCycleDD.AutoSize = true +Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black +Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) +Me.CBTauntCycleDD.Name = "CBTauntCycleDD" +Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) +Me.CBTauntCycleDD.TabIndex = 185 +Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" +Me.CBTauntCycleDD.UseVisualStyleBackColor = true +' +'CBTeaseLengthDD +' +Me.CBTeaseLengthDD.AutoSize = true +Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black +Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) +Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" +Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) +Me.CBTeaseLengthDD.TabIndex = 184 +Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" +Me.CBTeaseLengthDD.UseVisualStyleBackColor = true +' +'Label103 +' +Me.Label103.BackColor = System.Drawing.Color.Transparent +Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label103.ForeColor = System.Drawing.Color.Black +Me.Label103.Location = New System.Drawing.Point(175, 117) +Me.Label103.Name = "Label103" +Me.Label103.Size = New System.Drawing.Size(50, 17) +Me.Label103.TabIndex = 183 +Me.Label103.Text = "minutes" +Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTauntCycleMax +' +Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) +Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) +Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBTauntCycleMax.Name = "NBTauntCycleMax" +Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMax.TabIndex = 182 +Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) +' +'Label105 +' +Me.Label105.BackColor = System.Drawing.Color.Transparent +Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label105.ForeColor = System.Drawing.Color.Black +Me.Label105.Location = New System.Drawing.Point(6, 117) +Me.Label105.Name = "Label105" +Me.Label105.Size = New System.Drawing.Size(123, 17) +Me.Label105.TabIndex = 181 +Me.Label105.Text = "Taunt Cycle Maximum:" +Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label101 +' +Me.Label101.BackColor = System.Drawing.Color.Transparent +Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label101.ForeColor = System.Drawing.Color.Black +Me.Label101.Location = New System.Drawing.Point(175, 93) +Me.Label101.Name = "Label101" +Me.Label101.Size = New System.Drawing.Size(50, 17) +Me.Label101.TabIndex = 180 +Me.Label101.Text = "minutes" +Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTauntCycleMin +' +Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) +Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTauntCycleMin.Name = "NBTauntCycleMin" +Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMin.TabIndex = 179 +Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) +' +'Label102 +' +Me.Label102.BackColor = System.Drawing.Color.Transparent +Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label102.ForeColor = System.Drawing.Color.Black +Me.Label102.Location = New System.Drawing.Point(6, 93) +Me.Label102.Name = "Label102" +Me.Label102.Size = New System.Drawing.Size(123, 17) +Me.Label102.TabIndex = 178 +Me.Label102.Text = "Taunt Cycle Minimum:" +Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label97 +' +Me.Label97.BackColor = System.Drawing.Color.Transparent +Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label97.ForeColor = System.Drawing.Color.Black +Me.Label97.Location = New System.Drawing.Point(175, 46) +Me.Label97.Name = "Label97" +Me.Label97.Size = New System.Drawing.Size(50, 17) +Me.Label97.TabIndex = 177 +Me.Label97.Text = "minutes" +Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTeaseLengthMax +' +Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) +Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) +Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" +Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMax.TabIndex = 176 +Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'Label99 +' +Me.Label99.BackColor = System.Drawing.Color.Transparent +Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label99.ForeColor = System.Drawing.Color.Black +Me.Label99.Location = New System.Drawing.Point(6, 46) +Me.Label99.Name = "Label99" +Me.Label99.Size = New System.Drawing.Size(123, 17) +Me.Label99.TabIndex = 175 +Me.Label99.Text = "Tease Length Maximum:" +Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label96 +' +Me.Label96.BackColor = System.Drawing.Color.Transparent +Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label96.ForeColor = System.Drawing.Color.Black +Me.Label96.Location = New System.Drawing.Point(175, 20) +Me.Label96.Name = "Label96" +Me.Label96.Size = New System.Drawing.Size(50, 17) +Me.Label96.TabIndex = 174 +Me.Label96.Text = "minutes" +Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBTeaseLengthMin +' +Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) +Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) +Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" +Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMin.TabIndex = 169 +Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) +' +'Label95 +' +Me.Label95.BackColor = System.Drawing.Color.Transparent +Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label95.ForeColor = System.Drawing.Color.Black +Me.Label95.Location = New System.Drawing.Point(6, 20) +Me.Label95.Name = "Label95" +Me.Label95.Size = New System.Drawing.Size(123, 17) +Me.Label95.TabIndex = 166 +Me.Label95.Text = "Tease Length Minimum:" +Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label49 +' +Me.Label49.BackColor = System.Drawing.Color.Transparent +Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label49.ForeColor = System.Drawing.Color.Black +Me.Label49.Location = New System.Drawing.Point(6, 207) +Me.Label49.Name = "Label49" +Me.Label49.Size = New System.Drawing.Size(132, 17) +Me.Label49.TabIndex = 164 +Me.Label49.Text = "Stroke Taunt Frequency:" +Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label141 +' +Me.Label141.BackColor = System.Drawing.Color.Transparent +Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label141.ForeColor = System.Drawing.Color.Black +Me.Label141.Location = New System.Drawing.Point(6, 163) +Me.Label141.Name = "Label141" +Me.Label141.Size = New System.Drawing.Size(141, 32) +Me.Label141.TabIndex = 189 +Me.Label141.Text = "Edging Ends Taunts:" +Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GBRangeRuinChance +' +Me.GBRangeRuinChance.Controls.Add(Me.Label90) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) +Me.GBRangeRuinChance.Controls.Add(Me.Label91) +Me.GBRangeRuinChance.Controls.Add(Me.Label92) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) +Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) +Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) +Me.GBRangeRuinChance.Name = "GBRangeRuinChance" +Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeRuinChance.TabIndex = 168 +Me.GBRangeRuinChance.TabStop = false +Me.GBRangeRuinChance.Text = "Ruin Chance" +' +'Label90 +' +Me.Label90.BackColor = System.Drawing.Color.Transparent +Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label90.ForeColor = System.Drawing.Color.Black +Me.Label90.Location = New System.Drawing.Point(6, 94) +Me.Label90.Name = "Label90" +Me.Label90.Size = New System.Drawing.Size(83, 17) +Me.Label90.TabIndex = 173 +Me.Label90.Text = "Rarely Ruins:" +Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBRuinSometimes +' +Me.NBRuinSometimes.Enabled = false +Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinSometimes.Name = "NBRuinSometimes" +Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBRuinSometimes.TabIndex = 169 +Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +' +'Label91 +' +Me.Label91.BackColor = System.Drawing.Color.Transparent +Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label91.ForeColor = System.Drawing.Color.Black +Me.Label91.Location = New System.Drawing.Point(6, 68) +Me.Label91.Name = "Label91" +Me.Label91.Size = New System.Drawing.Size(102, 17) +Me.Label91.TabIndex = 172 +Me.Label91.Text = "Sometimes Ruins:" +Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label92 +' +Me.Label92.BackColor = System.Drawing.Color.Transparent +Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label92.ForeColor = System.Drawing.Color.Black +Me.Label92.Location = New System.Drawing.Point(6, 42) +Me.Label92.Name = "Label92" +Me.Label92.Size = New System.Drawing.Size(72, 17) +Me.Label92.TabIndex = 171 +Me.Label92.Text = "Often Ruins:" +Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBRuinRarely +' +Me.NBRuinRarely.Enabled = false +Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) +Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinRarely.Name = "NBRuinRarely" +Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) +Me.NBRuinRarely.TabIndex = 170 +Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +' +'NBRuinOften +' +Me.NBRuinOften.Enabled = false +Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) +Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinOften.Name = "NBRuinOften" +Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) +Me.NBRuinOften.TabIndex = 168 +Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +' +'CBRangeRuin +' +Me.CBRangeRuin.AutoSize = true +Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black +Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) +Me.CBRangeRuin.Name = "CBRangeRuin" +Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) +Me.CBRangeRuin.TabIndex = 159 +Me.CBRangeRuin.Text = "Domme Decide" +Me.CBRangeRuin.UseVisualStyleBackColor = true +' +'GroupBox17 +' +Me.GroupBox17.Controls.Add(Me.GroupBox19) +Me.GroupBox17.Controls.Add(Me.GroupBox18) +Me.GroupBox17.Location = New System.Drawing.Point(408, 91) +Me.GroupBox17.Name = "GroupBox17" +Me.GroupBox17.Size = New System.Drawing.Size(291, 190) +Me.GroupBox17.TabIndex = 0 +Me.GroupBox17.TabStop = false +Me.GroupBox17.Text = "Video Teases" +' +'GroupBox19 +' +Me.GroupBox19.Controls.Add(Me.Label110) +Me.GroupBox19.Controls.Add(Me.Label111) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) +Me.GroupBox19.Controls.Add(Me.NBRedLightMax) +Me.GroupBox19.Controls.Add(Me.Label26) +Me.GroupBox19.Controls.Add(Me.NBRedLightMin) +Me.GroupBox19.Controls.Add(Me.Label28) +Me.GroupBox19.Controls.Add(Me.Label27) +Me.GroupBox19.Controls.Add(Me.Label29) +Me.GroupBox19.Location = New System.Drawing.Point(6, 110) +Me.GroupBox19.Name = "GroupBox19" +Me.GroupBox19.Size = New System.Drawing.Size(279, 66) +Me.GroupBox19.TabIndex = 2 +Me.GroupBox19.TabStop = false +Me.GroupBox19.Text = "Red Light, Green Light" +' +'Label110 +' +Me.Label110.BackColor = System.Drawing.Color.Transparent +Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label110.ForeColor = System.Drawing.Color.Black +Me.Label110.Location = New System.Drawing.Point(227, 39) +Me.Label110.Name = "Label110" +Me.Label110.Size = New System.Drawing.Size(50, 17) +Me.Label110.TabIndex = 181 +Me.Label110.Text = "seconds" +Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label111 +' +Me.Label111.BackColor = System.Drawing.Color.Transparent +Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label111.ForeColor = System.Drawing.Color.Black +Me.Label111.Location = New System.Drawing.Point(227, 16) +Me.Label111.Name = "Label111" +Me.Label111.Size = New System.Drawing.Size(50, 17) +Me.Label111.TabIndex = 180 +Me.Label111.Text = "seconds" +Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBGreenLightMax +' +Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) +Me.NBGreenLightMax.Name = "NBGreenLightMax" +Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMax.TabIndex = 156 +Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +' +'NBGreenLightMin +' +Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) +Me.NBGreenLightMin.Name = "NBGreenLightMin" +Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMin.TabIndex = 155 +Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +' +'NBRedLightMax +' +Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) +Me.NBRedLightMax.Name = "NBRedLightMax" +Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMax.TabIndex = 152 +Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) +' +'Label26 +' +Me.Label26.BackColor = System.Drawing.Color.Transparent +Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label26.ForeColor = System.Drawing.Color.Black +Me.Label26.Location = New System.Drawing.Point(161, 38) +Me.Label26.Name = "Label26" +Me.Label26.Size = New System.Drawing.Size(10, 17) +Me.Label26.TabIndex = 154 +Me.Label26.Text = "-" +Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBRedLightMin +' +Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) +Me.NBRedLightMin.Name = "NBRedLightMin" +Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMin.TabIndex = 151 +Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) +' +'Label28 +' +Me.Label28.BackColor = System.Drawing.Color.Transparent +Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label28.ForeColor = System.Drawing.Color.Black +Me.Label28.Location = New System.Drawing.Point(161, 15) +Me.Label28.Name = "Label28" +Me.Label28.Size = New System.Drawing.Size(10, 17) +Me.Label28.TabIndex = 150 +Me.Label28.Text = "-" +Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label27 +' +Me.Label27.BackColor = System.Drawing.Color.Transparent +Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label27.ForeColor = System.Drawing.Color.Black +Me.Label27.Location = New System.Drawing.Point(6, 39) +Me.Label27.Name = "Label27" +Me.Label27.Size = New System.Drawing.Size(151, 17) +Me.Label27.TabIndex = 153 +Me.Label27.Text = "Green Light Time:" +Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label29 +' +Me.Label29.BackColor = System.Drawing.Color.Transparent +Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label29.ForeColor = System.Drawing.Color.Black +Me.Label29.Location = New System.Drawing.Point(6, 16) +Me.Label29.Name = "Label29" +Me.Label29.Size = New System.Drawing.Size(151, 17) +Me.Label29.TabIndex = 149 +Me.Label29.Text = "Red Light Time:" +Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox18 +' +Me.GroupBox18.Controls.Add(Me.Label108) +Me.GroupBox18.Controls.Add(Me.Label109) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) +Me.GroupBox18.Controls.Add(Me.CBCensorConstant) +Me.GroupBox18.Controls.Add(Me.Label25) +Me.GroupBox18.Controls.Add(Me.Label20) +Me.GroupBox18.Controls.Add(Me.Label19) +Me.GroupBox18.Controls.Add(Me.Label24) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) +Me.GroupBox18.Location = New System.Drawing.Point(6, 16) +Me.GroupBox18.Name = "GroupBox18" +Me.GroupBox18.Size = New System.Drawing.Size(279, 88) +Me.GroupBox18.TabIndex = 1 +Me.GroupBox18.TabStop = false +Me.GroupBox18.Text = "Censorship Sucks" +' +'Label108 +' +Me.Label108.BackColor = System.Drawing.Color.Transparent +Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label108.ForeColor = System.Drawing.Color.Black +Me.Label108.Location = New System.Drawing.Point(227, 39) +Me.Label108.Name = "Label108" +Me.Label108.Size = New System.Drawing.Size(50, 17) +Me.Label108.TabIndex = 179 +Me.Label108.Text = "seconds" +Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label109 +' +Me.Label109.BackColor = System.Drawing.Color.Transparent +Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label109.ForeColor = System.Drawing.Color.Black +Me.Label109.Location = New System.Drawing.Point(227, 16) +Me.Label109.Name = "Label109" +Me.Label109.Size = New System.Drawing.Size(50, 17) +Me.Label109.TabIndex = 178 +Me.Label109.Text = "seconds" +Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBCensorShowMin +' +Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) +Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMin.Name = "NBCensorShowMin" +Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMin.TabIndex = 151 +Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin +' +'NBCensorHideMax +' +Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) +Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMax.Name = "NBCensorHideMax" +Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMax.TabIndex = 156 +Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax +' +'NBCensorHideMin +' +Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) +Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMin.Name = "NBCensorHideMin" +Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMin.TabIndex = 155 +Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin +' +'CBCensorConstant +' +Me.CBCensorConstant.AutoSize = true +Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant +Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black +Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) +Me.CBCensorConstant.Name = "CBCensorConstant" +Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) +Me.CBCensorConstant.TabIndex = 157 +Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" +Me.CBCensorConstant.UseVisualStyleBackColor = true +' +'Label25 +' +Me.Label25.BackColor = System.Drawing.Color.Transparent +Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label25.ForeColor = System.Drawing.Color.Black +Me.Label25.Location = New System.Drawing.Point(161, 15) +Me.Label25.Name = "Label25" +Me.Label25.Size = New System.Drawing.Size(10, 17) +Me.Label25.TabIndex = 150 +Me.Label25.Text = "-" +Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label20 +' +Me.Label20.BackColor = System.Drawing.Color.Transparent +Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label20.ForeColor = System.Drawing.Color.Black +Me.Label20.Location = New System.Drawing.Point(6, 39) +Me.Label20.Name = "Label20" +Me.Label20.Size = New System.Drawing.Size(110, 17) +Me.Label20.TabIndex = 153 +Me.Label20.Text = "Censor Bar Hidden:" +Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label19 +' +Me.Label19.BackColor = System.Drawing.Color.Transparent +Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label19.ForeColor = System.Drawing.Color.Black +Me.Label19.Location = New System.Drawing.Point(161, 38) +Me.Label19.Name = "Label19" +Me.Label19.Size = New System.Drawing.Size(10, 17) +Me.Label19.TabIndex = 154 +Me.Label19.Text = "-" +Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label24 +' +Me.Label24.BackColor = System.Drawing.Color.Transparent +Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label24.ForeColor = System.Drawing.Color.Black +Me.Label24.Location = New System.Drawing.Point(6, 16) +Me.Label24.Name = "Label24" +Me.Label24.Size = New System.Drawing.Size(110, 17) +Me.Label24.TabIndex = 149 +Me.Label24.Text = "Censor Bar Shown:" +Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBCensorShowMax +' +Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) +Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMax.Name = "NBCensorShowMax" +Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMax.TabIndex = 152 +Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax +' +'GBRangeOrgasmChance +' +Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) +Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) +Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) +Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" +Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeOrgasmChance.TabIndex = 167 +Me.GBRangeOrgasmChance.TabStop = false +Me.GBRangeOrgasmChance.Text = "Orgasm Chance" +' +'Label89 +' +Me.Label89.BackColor = System.Drawing.Color.Transparent +Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label89.ForeColor = System.Drawing.Color.Black +Me.Label89.Location = New System.Drawing.Point(6, 94) +Me.Label89.Name = "Label89" +Me.Label89.Size = New System.Drawing.Size(83, 17) +Me.Label89.TabIndex = 173 +Me.Label89.Text = "Rarely Allows:" +Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBAllowSometimes +' +Me.NBAllowSometimes.Enabled = false +Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowSometimes.Name = "NBAllowSometimes" +Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBAllowSometimes.TabIndex = 169 +Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +' +'Label86 +' +Me.Label86.BackColor = System.Drawing.Color.Transparent +Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label86.ForeColor = System.Drawing.Color.Black +Me.Label86.Location = New System.Drawing.Point(6, 68) +Me.Label86.Name = "Label86" +Me.Label86.Size = New System.Drawing.Size(102, 17) +Me.Label86.TabIndex = 172 +Me.Label86.Text = "Sometimes Allows:" +Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label82 +' +Me.Label82.BackColor = System.Drawing.Color.Transparent +Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label82.ForeColor = System.Drawing.Color.Black +Me.Label82.Location = New System.Drawing.Point(6, 42) +Me.Label82.Name = "Label82" +Me.Label82.Size = New System.Drawing.Size(83, 17) +Me.Label82.TabIndex = 171 +Me.Label82.Text = "Often Allows:" +Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'NBAllowRarely +' +Me.NBAllowRarely.Enabled = false +Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) +Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowRarely.Name = "NBAllowRarely" +Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) +Me.NBAllowRarely.TabIndex = 170 +Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +' +'NBAllowOften +' +Me.NBAllowOften.Enabled = false +Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) +Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowOften.Name = "NBAllowOften" +Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) +Me.NBAllowOften.TabIndex = 168 +Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +' +'CBRangeOrgasm +' +Me.CBRangeOrgasm.AutoSize = true +Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black +Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) +Me.CBRangeOrgasm.Name = "CBRangeOrgasm" +Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) +Me.CBRangeOrgasm.TabIndex = 159 +Me.CBRangeOrgasm.Text = "Domme Decide" +Me.CBRangeOrgasm.UseVisualStyleBackColor = true +' +'PictureBox8 +' +Me.PictureBox8.BackColor = System.Drawing.Color.LightGray +Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox8.Location = New System.Drawing.Point(9, 6) +Me.PictureBox8.Name = "PictureBox8" +Me.PictureBox8.Size = New System.Drawing.Size(160, 19) +Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox8.TabIndex = 166 +Me.PictureBox8.TabStop = false +' +'Label38 +' +Me.Label38.BackColor = System.Drawing.Color.Transparent +Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label38.ForeColor = System.Drawing.Color.Black +Me.Label38.Location = New System.Drawing.Point(7, 6) +Me.Label38.Name = "Label38" +Me.Label38.Size = New System.Drawing.Size(692, 21) +Me.Label38.TabIndex = 48 +Me.Label38.Text = "Range Settings" +Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage13 +' +Me.TabPage13.BackColor = System.Drawing.Color.Silver +Me.TabPage13.Controls.Add(Me.TabControl2) +Me.TabPage13.Location = New System.Drawing.Point(4, 22) +Me.TabPage13.Name = "TabPage13" +Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage13.Size = New System.Drawing.Size(720, 448) +Me.TabPage13.TabIndex = 13 +Me.TabPage13.Text = "Modding" +' +'TabControl2 +' +Me.TabControl2.Controls.Add(Me.TabPage27) +Me.TabControl2.Controls.Add(Me.TabPage14) +Me.TabControl2.Controls.Add(Me.TabPage24) +Me.TabControl2.Controls.Add(Me.TabPage8) +Me.TabControl2.Controls.Add(Me.TabPage15) +Me.TabControl2.Location = New System.Drawing.Point(6, 6) +Me.TabControl2.Name = "TabControl2" +Me.TabControl2.SelectedIndex = 0 +Me.TabControl2.Size = New System.Drawing.Size(708, 437) +Me.TabControl2.TabIndex = 0 +' +'TabPage27 +' +Me.TabPage27.BackColor = System.Drawing.Color.LightGray +Me.TabPage27.Controls.Add(Me.TBPlaylistSave) +Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) +Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) +Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) +Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) +Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) +Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) +Me.TabPage27.Controls.Add(Me.Button7) +Me.TabPage27.Controls.Add(Me.WBPlaylist) +Me.TabPage27.Controls.Add(Me.Label80) +Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) +Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) +Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) +Me.TabPage27.Controls.Add(Me.LBPlaylist) +Me.TabPage27.Location = New System.Drawing.Point(4, 22) +Me.TabPage27.Name = "TabPage27" +Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage27.Size = New System.Drawing.Size(700, 411) +Me.TabPage27.TabIndex = 5 +Me.TabPage27.Text = "Playlists" +' +'TBPlaylistSave +' +Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) +Me.TBPlaylistSave.Name = "TBPlaylistSave" +Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) +Me.TBPlaylistSave.TabIndex = 203 +' +'BTNPlaylistCtrlZ +' +Me.BTNPlaylistCtrlZ.Enabled = false +Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) +Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" +Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistCtrlZ.TabIndex = 202 +Me.BTNPlaylistCtrlZ.Text = "Undo" +Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true +' +'RadioPlaylistRegScripts +' +Me.RadioPlaylistRegScripts.AutoSize = true +Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) +Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" +Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) +Me.RadioPlaylistRegScripts.TabIndex = 201 +Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" +Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true +' +'RadioPlaylistScripts +' +Me.RadioPlaylistScripts.AutoSize = true +Me.RadioPlaylistScripts.Checked = true +Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) +Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" +Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) +Me.RadioPlaylistScripts.TabIndex = 200 +Me.RadioPlaylistScripts.TabStop = true +Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" +Me.RadioPlaylistScripts.UseVisualStyleBackColor = true +' +'BTNPlaylistEnd +' +Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray +Me.BTNPlaylistEnd.Enabled = false +Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black +Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) +Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" +Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistEnd.TabIndex = 199 +Me.BTNPlaylistEnd.Text = "End" +Me.BTNPlaylistEnd.UseVisualStyleBackColor = false +' +'BTNPlaylistClearAll +' +Me.BTNPlaylistClearAll.Enabled = false +Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) +Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" +Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) +Me.BTNPlaylistClearAll.TabIndex = 198 +Me.BTNPlaylistClearAll.Text = "Clear All" +Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true +' +'BTNPlaylistSave +' +Me.BTNPlaylistSave.Enabled = false +Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) +Me.BTNPlaylistSave.Name = "BTNPlaylistSave" +Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistSave.TabIndex = 197 +Me.BTNPlaylistSave.Text = "Save" +Me.BTNPlaylistSave.UseVisualStyleBackColor = true +' +'Button7 +' +Me.Button7.Location = New System.Drawing.Point(213, 21) +Me.Button7.Name = "Button7" +Me.Button7.Size = New System.Drawing.Size(78, 23) +Me.Button7.TabIndex = 196 +Me.Button7.Text = "Add Random" +Me.Button7.UseVisualStyleBackColor = true +' +'WBPlaylist +' +Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) +Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) +Me.WBPlaylist.Name = "WBPlaylist" +Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) +Me.WBPlaylist.TabIndex = 195 +' +'Label80 +' +Me.Label80.AutoSize = true +Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label80.Location = New System.Drawing.Point(410, 27) +Me.Label80.Name = "Label80" +Me.Label80.Size = New System.Drawing.Size(47, 13) +Me.Label80.TabIndex = 194 +Me.Label80.Text = "Playlist" +' +'LBLPlaylIstLink +' +Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylIstLink.Enabled = false +Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) +Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" +Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) +Me.LBLPlaylIstLink.TabIndex = 193 +Me.LBLPlaylIstLink.Text = "Link" +Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLPlaylistModule +' +Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylistModule.Enabled = false +Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) +Me.LBLPlaylistModule.Name = "LBLPlaylistModule" +Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) +Me.LBLPlaylistModule.TabIndex = 192 +Me.LBLPlaylistModule.Text = "Module" +Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLPLaylistStart +' +Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green +Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White +Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) +Me.LBLPLaylistStart.Name = "LBLPLaylistStart" +Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) +Me.LBLPLaylistStart.TabIndex = 190 +Me.LBLPLaylistStart.Text = "Start" +Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBPlaylist +' +Me.LBPlaylist.AllowDrop = true +Me.LBPlaylist.FormattingEnabled = true +Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) +Me.LBPlaylist.Name = "LBPlaylist" +Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) +Me.LBPlaylist.TabIndex = 189 +' +'TabPage14 +' +Me.TabPage14.BackColor = System.Drawing.Color.LightGray +Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) +Me.TabPage14.Controls.Add(Me.Label88) +Me.TabPage14.Controls.Add(Me.TBKeywordPreview) +Me.TabPage14.Controls.Add(Me.Button37) +Me.TabPage14.Controls.Add(Me.Button50) +Me.TabPage14.Controls.Add(Me.Button22) +Me.TabPage14.Controls.Add(Me.TBKeyWords) +Me.TabPage14.Controls.Add(Me.LBKeyWords) +Me.TabPage14.Controls.Add(Me.RTBKeyWords) +Me.TabPage14.Location = New System.Drawing.Point(4, 22) +Me.TabPage14.Name = "TabPage14" +Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage14.Size = New System.Drawing.Size(700, 411) +Me.TabPage14.TabIndex = 0 +Me.TabPage14.Text = "Keywords" +' +'LBLKeywordPreview +' +Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) +Me.LBLKeywordPreview.Name = "LBLKeywordPreview" +Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) +Me.LBLKeywordPreview.TabIndex = 174 +Me.LBLKeywordPreview.Text = "Get Preview Here" +Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label88 +' +Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label88.Location = New System.Drawing.Point(3, 358) +Me.Label88.Name = "Label88" +Me.Label88.Size = New System.Drawing.Size(194, 53) +Me.Label88.TabIndex = 173 +Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ + " the domme return." +Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBKeywordPreview +' +Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) +Me.TBKeywordPreview.Name = "TBKeywordPreview" +Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) +Me.TBKeywordPreview.TabIndex = 172 +Me.TBKeywordPreview.Text = "Enter Line Here" +Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'Button37 +' +Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button37.Location = New System.Drawing.Point(638, 358) +Me.Button37.Name = "Button37" +Me.Button37.Size = New System.Drawing.Size(47, 50) +Me.Button37.TabIndex = 171 +Me.Button37.Text = "#" +Me.Button37.UseVisualStyleBackColor = true +' +'Button50 +' +Me.Button50.Location = New System.Drawing.Point(6, 10) +Me.Button50.Name = "Button50" +Me.Button50.Size = New System.Drawing.Size(194, 23) +Me.Button50.TabIndex = 169 +Me.Button50.Text = "Refresh and Clear Keyword List" +Me.Button50.UseVisualStyleBackColor = true +' +'Button22 +' +Me.Button22.Location = New System.Drawing.Point(638, 10) +Me.Button22.Name = "Button22" +Me.Button22.Size = New System.Drawing.Size(47, 23) +Me.Button22.TabIndex = 167 +Me.Button22.Text = "Save" +Me.Button22.UseVisualStyleBackColor = true +' +'TBKeyWords +' +Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) +Me.TBKeyWords.Name = "TBKeyWords" +Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) +Me.TBKeyWords.TabIndex = 166 +' +'LBKeyWords +' +Me.LBKeyWords.FormattingEnabled = true +Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) +Me.LBKeyWords.Name = "LBKeyWords" +Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) +Me.LBKeyWords.Sorted = true +Me.LBKeyWords.TabIndex = 165 +' +'RTBKeyWords +' +Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) +Me.RTBKeyWords.Name = "RTBKeyWords" +Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) +Me.RTBKeyWords.TabIndex = 164 +Me.RTBKeyWords.Text = "" +' +'TabPage24 +' +Me.TabPage24.BackColor = System.Drawing.Color.LightGray +Me.TabPage24.Controls.Add(Me.Button9) +Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) +Me.TabPage24.Controls.Add(Me.Button4) +Me.TabPage24.Controls.Add(Me.Button5) +Me.TabPage24.Controls.Add(Me.TBResponses) +Me.TabPage24.Controls.Add(Me.LBResponses) +Me.TabPage24.Controls.Add(Me.RTBResponses) +Me.TabPage24.Location = New System.Drawing.Point(4, 22) +Me.TabPage24.Name = "TabPage24" +Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage24.Size = New System.Drawing.Size(700, 411) +Me.TabPage24.TabIndex = 3 +Me.TabPage24.Text = "Responses" +' +'Button9 +' +Me.Button9.Location = New System.Drawing.Point(217, 10) +Me.Button9.Name = "Button9" +Me.Button9.Size = New System.Drawing.Size(215, 23) +Me.Button9.TabIndex = 176 +Me.Button9.Text = "Response Template" +Me.Button9.UseVisualStyleBackColor = true +' +'RTBResponsesKEY +' +Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) +Me.RTBResponsesKEY.Name = "RTBResponsesKEY" +Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) +Me.RTBResponsesKEY.TabIndex = 175 +Me.RTBResponsesKEY.Text = "" +' +'Button4 +' +Me.Button4.Location = New System.Drawing.Point(6, 10) +Me.Button4.Name = "Button4" +Me.Button4.Size = New System.Drawing.Size(194, 23) +Me.Button4.TabIndex = 174 +Me.Button4.Text = "Refresh and Clear Response List" +Me.Button4.UseVisualStyleBackColor = true +' +'Button5 +' +Me.Button5.Location = New System.Drawing.Point(638, 10) +Me.Button5.Name = "Button5" +Me.Button5.Size = New System.Drawing.Size(47, 23) +Me.Button5.TabIndex = 173 +Me.Button5.Text = "Save" +Me.Button5.UseVisualStyleBackColor = true +' +'TBResponses +' +Me.TBResponses.Location = New System.Drawing.Point(438, 10) +Me.TBResponses.Name = "TBResponses" +Me.TBResponses.Size = New System.Drawing.Size(194, 20) +Me.TBResponses.TabIndex = 172 +' +'LBResponses +' +Me.LBResponses.FormattingEnabled = true +Me.LBResponses.Location = New System.Drawing.Point(6, 36) +Me.LBResponses.Name = "LBResponses" +Me.LBResponses.Size = New System.Drawing.Size(194, 355) +Me.LBResponses.Sorted = true +Me.LBResponses.TabIndex = 171 +' +'RTBResponses +' +Me.RTBResponses.Location = New System.Drawing.Point(217, 82) +Me.RTBResponses.Name = "RTBResponses" +Me.RTBResponses.Size = New System.Drawing.Size(468, 309) +Me.RTBResponses.TabIndex = 170 +Me.RTBResponses.Text = "" +' +'TabPage8 +' +Me.TabPage8.BackColor = System.Drawing.Color.LightGray +Me.TabPage8.Controls.Add(Me.RTBVideoMod) +Me.TabPage8.Controls.Add(Me.GroupBox29) +Me.TabPage8.Controls.Add(Me.BTNVideoModClear) +Me.TabPage8.Controls.Add(Me.GroupBox28) +Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) +Me.TabPage8.Controls.Add(Me.GroupBox30) +Me.TabPage8.Controls.Add(Me.BTNVideoModSave) +Me.TabPage8.Location = New System.Drawing.Point(4, 22) +Me.TabPage8.Name = "TabPage8" +Me.TabPage8.Size = New System.Drawing.Size(700, 411) +Me.TabPage8.TabIndex = 2 +Me.TabPage8.Text = "Video" +' +'RTBVideoMod +' +Me.RTBVideoMod.Enabled = false +Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) +Me.RTBVideoMod.Name = "RTBVideoMod" +Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) +Me.RTBVideoMod.TabIndex = 150 +Me.RTBVideoMod.Text = "" +' +'GroupBox29 +' +Me.GroupBox29.BackColor = System.Drawing.Color.LightGray +Me.GroupBox29.Controls.Add(Me.Label51) +Me.GroupBox29.ForeColor = System.Drawing.Color.Black +Me.GroupBox29.Location = New System.Drawing.Point(6, 309) +Me.GroupBox29.Name = "GroupBox29" +Me.GroupBox29.Size = New System.Drawing.Size(692, 92) +Me.GroupBox29.TabIndex = 66 +Me.GroupBox29.TabStop = false +Me.GroupBox29.Text = "Description" +' +'Label51 +' +Me.Label51.BackColor = System.Drawing.Color.Transparent +Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label51.ForeColor = System.Drawing.Color.Black +Me.Label51.Location = New System.Drawing.Point(6, 16) +Me.Label51.Name = "Label51" +Me.Label51.Size = New System.Drawing.Size(680, 73) +Me.Label51.TabIndex = 62 +Me.Label51.Text = resources.GetString("Label51.Text") +Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNVideoModClear +' +Me.BTNVideoModClear.Enabled = false +Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) +Me.BTNVideoModClear.Name = "BTNVideoModClear" +Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModClear.TabIndex = 153 +Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" +Me.BTNVideoModClear.UseVisualStyleBackColor = true +' +'GroupBox28 +' +Me.GroupBox28.Controls.Add(Me.CBVTType) +Me.GroupBox28.Location = New System.Drawing.Point(6, 8) +Me.GroupBox28.Name = "GroupBox28" +Me.GroupBox28.Size = New System.Drawing.Size(155, 46) +Me.GroupBox28.TabIndex = 148 +Me.GroupBox28.TabStop = false +Me.GroupBox28.Text = "Video Tease Type" +' +'CBVTType +' +Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBVTType.FormattingEnabled = true +Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) +Me.CBVTType.Location = New System.Drawing.Point(9, 15) +Me.CBVTType.Name = "CBVTType" +Me.CBVTType.Size = New System.Drawing.Size(137, 21) +Me.CBVTType.TabIndex = 171 +' +'BTNVideoModLoad +' +Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) +Me.BTNVideoModLoad.Name = "BTNVideoModLoad" +Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModLoad.TabIndex = 152 +Me.BTNVideoModLoad.Text = "Load Script" +Me.BTNVideoModLoad.UseVisualStyleBackColor = true +' +'GroupBox30 +' +Me.GroupBox30.Controls.Add(Me.LBVidScript) +Me.GroupBox30.Location = New System.Drawing.Point(6, 60) +Me.GroupBox30.Name = "GroupBox30" +Me.GroupBox30.Size = New System.Drawing.Size(155, 100) +Me.GroupBox30.TabIndex = 149 +Me.GroupBox30.TabStop = false +Me.GroupBox30.Text = "Script" +' +'LBVidScript +' +Me.LBVidScript.FormattingEnabled = true +Me.LBVidScript.Location = New System.Drawing.Point(9, 20) +Me.LBVidScript.Name = "LBVidScript" +Me.LBVidScript.Size = New System.Drawing.Size(137, 69) +Me.LBVidScript.TabIndex = 0 +' +'BTNVideoModSave +' +Me.BTNVideoModSave.Enabled = false +Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) +Me.BTNVideoModSave.Name = "BTNVideoModSave" +Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModSave.TabIndex = 151 +Me.BTNVideoModSave.Text = "Save Changes" +Me.BTNVideoModSave.UseVisualStyleBackColor = true +' +'TabPage15 +' +Me.TabPage15.BackColor = System.Drawing.Color.LightGray +Me.TabPage15.Controls.Add(Me.Label62) +Me.TabPage15.Controls.Add(Me.Label61) +Me.TabPage15.Controls.Add(Me.Label57) +Me.TabPage15.Controls.Add(Me.Label58) +Me.TabPage15.Controls.Add(Me.Label60) +Me.TabPage15.Controls.Add(Me.TBGlitModFileName) +Me.TabPage15.Controls.Add(Me.GroupBox34) +Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) +Me.TabPage15.Controls.Add(Me.Button26) +Me.TabPage15.Controls.Add(Me.Label56) +Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) +Me.TabPage15.Controls.Add(Me.LBGlitModScripts) +Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) +Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) +Me.TabPage15.Controls.Add(Me.Button29) +Me.TabPage15.Controls.Add(Me.CBGlitModType) +Me.TabPage15.Controls.Add(Me.Label59) +Me.TabPage15.Controls.Add(Me.Label50) +Me.TabPage15.Location = New System.Drawing.Point(4, 22) +Me.TabPage15.Name = "TabPage15" +Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage15.Size = New System.Drawing.Size(700, 411) +Me.TabPage15.TabIndex = 1 +Me.TabPage15.Text = "Glitter" +' +'Label62 +' +Me.Label62.Location = New System.Drawing.Point(255, 169) +Me.Label62.Name = "Label62" +Me.Label62.Size = New System.Drawing.Size(59, 51) +Me.Label62.TabIndex = 177 +Me.Label62.Text = "@Cruel @Angry @Custom2" +Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label61 +' +Me.Label61.Location = New System.Drawing.Point(194, 169) +Me.Label61.Name = "Label61" +Me.Label61.Size = New System.Drawing.Size(59, 51) +Me.Label61.TabIndex = 176 +Me.Label61.Text = "@Bratty @Caring @Custom1" +Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label57 +' +Me.Label57.Location = New System.Drawing.Point(194, 11) +Me.Label57.Name = "Label57" +Me.Label57.Size = New System.Drawing.Size(120, 23) +Me.Label57.TabIndex = 160 +Me.Label57.Text = "File Name" +Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label58 +' +Me.Label58.Location = New System.Drawing.Point(350, 11) +Me.Label58.Name = "Label58" +Me.Label58.Size = New System.Drawing.Size(326, 23) +Me.Label58.TabIndex = 161 +Me.Label58.Text = "Domme's Post" +Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label60 +' +Me.Label60.Location = New System.Drawing.Point(194, 139) +Me.Label60.Name = "Label60" +Me.Label60.Size = New System.Drawing.Size(120, 30) +Me.Label60.TabIndex = 175 +Me.Label60.Text = "Tease Responses Need 3 of Each:" +Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TBGlitModFileName +' +Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) +Me.TBGlitModFileName.Name = "TBGlitModFileName" +Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) +Me.TBGlitModFileName.TabIndex = 158 +' +'GroupBox34 +' +Me.GroupBox34.BackColor = System.Drawing.Color.LightGray +Me.GroupBox34.Controls.Add(Me.Label52) +Me.GroupBox34.ForeColor = System.Drawing.Color.Black +Me.GroupBox34.Location = New System.Drawing.Point(8, 296) +Me.GroupBox34.Name = "GroupBox34" +Me.GroupBox34.Size = New System.Drawing.Size(683, 107) +Me.GroupBox34.TabIndex = 66 +Me.GroupBox34.TabStop = false +Me.GroupBox34.Text = "Description" +' +'Label52 +' +Me.Label52.BackColor = System.Drawing.Color.Transparent +Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label52.ForeColor = System.Drawing.Color.Black +Me.Label52.Location = New System.Drawing.Point(6, 16) +Me.Label52.Name = "Label52" +Me.Label52.Size = New System.Drawing.Size(670, 88) +Me.Label52.TabIndex = 62 +Me.Label52.Text = resources.GetString("Label52.Text") +Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'RTBGlitModDommePost +' +Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) +Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" +Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) +Me.RTBGlitModDommePost.TabIndex = 162 +Me.RTBGlitModDommePost.Text = "" +' +'Button26 +' +Me.Button26.Location = New System.Drawing.Point(194, 239) +Me.Button26.Name = "Button26" +Me.Button26.Size = New System.Drawing.Size(120, 23) +Me.Button26.TabIndex = 174 +Me.Button26.Text = "Clear Fields" +Me.Button26.UseVisualStyleBackColor = true +' +'Label56 +' +Me.Label56.Location = New System.Drawing.Point(350, 80) +Me.Label56.Name = "Label56" +Me.Label56.Size = New System.Drawing.Size(324, 23) +Me.Label56.TabIndex = 156 +Me.Label56.Text = "Responses (Minimum 3)" +Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'RTBGlitModResponses +' +Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) +Me.RTBGlitModResponses.Name = "RTBGlitModResponses" +Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) +Me.RTBGlitModResponses.TabIndex = 150 +Me.RTBGlitModResponses.Text = "" +' +'LBGlitModScripts +' +Me.LBGlitModScripts.FormattingEnabled = true +Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) +Me.LBGlitModScripts.Name = "LBGlitModScripts" +Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) +Me.LBGlitModScripts.TabIndex = 163 +' +'LBLGlitModScriptCount +' +Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) +Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" +Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) +Me.LBLGlitModScriptCount.TabIndex = 173 +Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" +Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitModDomType +' +Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) +Me.LBLGlitModDomType.Name = "LBLGlitModDomType" +Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) +Me.LBLGlitModDomType.TabIndex = 155 +Me.LBLGlitModDomType.Text = "Total Brat" +Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Button29 +' +Me.Button29.Location = New System.Drawing.Point(194, 268) +Me.Button29.Name = "Button29" +Me.Button29.Size = New System.Drawing.Size(120, 23) +Me.Button29.TabIndex = 151 +Me.Button29.Text = "Save Glitter File" +Me.Button29.UseVisualStyleBackColor = true +' +'CBGlitModType +' +Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBGlitModType.FormattingEnabled = true +Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) +Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) +Me.CBGlitModType.Name = "CBGlitModType" +Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) +Me.CBGlitModType.TabIndex = 171 +' +'Label59 +' +Me.Label59.Location = New System.Drawing.Point(33, 11) +Me.Label59.Name = "Label59" +Me.Label59.Size = New System.Drawing.Size(130, 23) +Me.Label59.TabIndex = 172 +Me.Label59.Text = "Glitter Post Type" +Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label50 +' +Me.Label50.Location = New System.Drawing.Point(191, 80) +Me.Label50.Name = "Label50" +Me.Label50.Size = New System.Drawing.Size(123, 23) +Me.Label50.TabIndex = 154 +Me.Label50.Text = "Current Domme Personality:" +Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage25 +' +Me.TabPage25.BackColor = System.Drawing.Color.Silver +Me.TabPage25.Controls.Add(Me.Panel11) +Me.TabPage25.Location = New System.Drawing.Point(4, 22) +Me.TabPage25.Name = "TabPage25" +Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage25.Size = New System.Drawing.Size(720, 448) +Me.TabPage25.TabIndex = 18 +Me.TabPage25.Text = "Misc" +' +'Panel11 +' +Me.Panel11.BackColor = System.Drawing.Color.LightGray +Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel11.Controls.Add(Me.GroupBox62) +Me.Panel11.Controls.Add(Me.GroupBox33) +Me.Panel11.Controls.Add(Me.GroupBox8) +Me.Panel11.Controls.Add(Me.GroupBox27) +Me.Panel11.Controls.Add(Me.GroupBox20) +Me.Panel11.Controls.Add(Me.GroupBox15) +Me.Panel11.Controls.Add(Me.PictureBox9) +Me.Panel11.Controls.Add(Me.Label148) +Me.Panel11.Location = New System.Drawing.Point(6, 6) +Me.Panel11.Name = "Panel11" +Me.Panel11.Size = New System.Drawing.Size(708, 437) +Me.Panel11.TabIndex = 92 +' +'GroupBox62 +' +Me.GroupBox62.Controls.Add(Me.RBGerman) +Me.GroupBox62.Controls.Add(Me.RBEnglish) +Me.GroupBox62.Location = New System.Drawing.Point(420, 155) +Me.GroupBox62.Name = "GroupBox62" +Me.GroupBox62.Size = New System.Drawing.Size(277, 56) +Me.GroupBox62.TabIndex = 178 +Me.GroupBox62.TabStop = false +Me.GroupBox62.Text = "Language" +' +'RBGerman +' +Me.RBGerman.AutoSize = true +Me.RBGerman.Location = New System.Drawing.Point(180, 20) +Me.RBGerman.Name = "RBGerman" +Me.RBGerman.Size = New System.Drawing.Size(65, 17) +Me.RBGerman.TabIndex = 1 +Me.RBGerman.Text = "Deutsch" +Me.RBGerman.UseVisualStyleBackColor = true +' +'RBEnglish +' +Me.RBEnglish.AutoSize = true +Me.RBEnglish.Checked = true +Me.RBEnglish.Location = New System.Drawing.Point(36, 19) +Me.RBEnglish.Name = "RBEnglish" +Me.RBEnglish.Size = New System.Drawing.Size(59, 17) +Me.RBEnglish.TabIndex = 0 +Me.RBEnglish.TabStop = true +Me.RBEnglish.Text = "English" +Me.RBEnglish.UseVisualStyleBackColor = true +' +'GroupBox33 +' +Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) +Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) +Me.GroupBox33.Controls.Add(Me.Label140) +Me.GroupBox33.Controls.Add(Me.Button11) +Me.GroupBox33.Controls.Add(Me.LBLChastityState) +Me.GroupBox33.Controls.Add(Me.Label120) +Me.GroupBox33.Location = New System.Drawing.Point(420, 321) +Me.GroupBox33.Name = "GroupBox33" +Me.GroupBox33.Size = New System.Drawing.Size(277, 106) +Me.GroupBox33.TabIndex = 177 +Me.GroupBox33.TabStop = false +Me.GroupBox33.Text = "System States" +' +'BTNOfflineMode +' +Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) +Me.BTNOfflineMode.Name = "BTNOfflineMode" +Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) +Me.BTNOfflineMode.TabIndex = 180 +Me.BTNOfflineMode.Text = "Toggle" +Me.BTNOfflineMode.UseVisualStyleBackColor = true +' +'LBLOfflineMode +' +Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray +Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red +Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) +Me.LBLOfflineMode.Name = "LBLOfflineMode" +Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) +Me.LBLOfflineMode.TabIndex = 179 +Me.LBLOfflineMode.Text = "OFF" +Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label140 +' +Me.Label140.BackColor = System.Drawing.Color.LightGray +Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label140.Location = New System.Drawing.Point(17, 70) +Me.Label140.Name = "Label140" +Me.Label140.Size = New System.Drawing.Size(98, 23) +Me.Label140.TabIndex = 178 +Me.Label140.Text = "OFFLINE MODE" +Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Button11 +' +Me.Button11.Location = New System.Drawing.Point(161, 33) +Me.Button11.Name = "Button11" +Me.Button11.Size = New System.Drawing.Size(99, 23) +Me.Button11.TabIndex = 177 +Me.Button11.Text = "Toggle" +Me.Button11.UseVisualStyleBackColor = true +' +'LBLChastityState +' +Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray +Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLChastityState.ForeColor = System.Drawing.Color.Red +Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) +Me.LBLChastityState.Name = "LBLChastityState" +Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) +Me.LBLChastityState.TabIndex = 3 +Me.LBLChastityState.Text = "OFF" +Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label120 +' +Me.Label120.BackColor = System.Drawing.Color.LightGray +Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label120.Location = New System.Drawing.Point(17, 33) +Me.Label120.Name = "Label120" +Me.Label120.Size = New System.Drawing.Size(98, 23) +Me.Label120.TabIndex = 2 +Me.Label120.Text = "CHASTITY" +Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox8 +' +Me.GroupBox8.Controls.Add(Me.CBOutputErrors) +Me.GroupBox8.Location = New System.Drawing.Point(420, 246) +Me.GroupBox8.Name = "GroupBox8" +Me.GroupBox8.Size = New System.Drawing.Size(279, 47) +Me.GroupBox8.TabIndex = 179 +Me.GroupBox8.TabStop = false +Me.GroupBox8.Text = "System Information" +' +'CBOutputErrors +' +Me.CBOutputErrors.AutoSize = true +Me.CBOutputErrors.Checked = true +Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black +Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) +Me.CBOutputErrors.Name = "CBOutputErrors" +Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) +Me.CBOutputErrors.TabIndex = 29 +Me.CBOutputErrors.TabStop = false +Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" +Me.CBOutputErrors.UseVisualStyleBackColor = true +' +'GroupBox27 +' +Me.GroupBox27.Controls.Add(Me.Button6) +Me.GroupBox27.Controls.Add(Me.LBLSesSpace) +Me.GroupBox27.Controls.Add(Me.Button3) +Me.GroupBox27.Controls.Add(Me.LBLSesFiles) +Me.GroupBox27.Controls.Add(Me.Label125) +Me.GroupBox27.Controls.Add(Me.Label124) +Me.GroupBox27.Location = New System.Drawing.Point(420, 32) +Me.GroupBox27.Name = "GroupBox27" +Me.GroupBox27.Size = New System.Drawing.Size(279, 117) +Me.GroupBox27.TabIndex = 176 +Me.GroupBox27.TabStop = false +Me.GroupBox27.Text = "Session Images" +' +'Button6 +' +Me.Button6.Location = New System.Drawing.Point(143, 76) +Me.Button6.Name = "Button6" +Me.Button6.Size = New System.Drawing.Size(117, 23) +Me.Button6.TabIndex = 176 +Me.Button6.Text = "Delete All Files" +Me.Button6.UseVisualStyleBackColor = true +' +'LBLSesSpace +' +Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) +Me.LBLSesSpace.Name = "LBLSesSpace" +Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) +Me.LBLSesSpace.TabIndex = 3 +' +'Button3 +' +Me.Button3.Location = New System.Drawing.Point(20, 76) +Me.Button3.Name = "Button3" +Me.Button3.Size = New System.Drawing.Size(117, 23) +Me.Button3.TabIndex = 175 +Me.Button3.Text = "Open Folder" +Me.Button3.UseVisualStyleBackColor = true +' +'LBLSesFiles +' +Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) +Me.LBLSesFiles.Name = "LBLSesFiles" +Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) +Me.LBLSesFiles.TabIndex = 2 +' +'Label125 +' +Me.Label125.AutoSize = true +Me.Label125.Location = New System.Drawing.Point(17, 53) +Me.Label125.Name = "Label125" +Me.Label125.Size = New System.Drawing.Size(120, 13) +Me.Label125.TabIndex = 1 +Me.Label125.Text = "Total Disk Space Used:" +' +'Label124 +' +Me.Label124.AutoSize = true +Me.Label124.Location = New System.Drawing.Point(17, 24) +Me.Label124.Name = "Label124" +Me.Label124.Size = New System.Drawing.Size(126, 13) +Me.Label124.TabIndex = 0 +Me.Label124.Text = "Number of Files in Folder:" +' +'GroupBox20 +' +Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label87) +Me.GroupBox20.Controls.Add(Me.TBURLFileWith) +Me.GroupBox20.Controls.Add(Me.Label118) +Me.GroupBox20.Controls.Add(Me.Label85) +Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label53) +Me.GroupBox20.Controls.Add(Me.Label8) +Me.GroupBox20.Controls.Add(Me.Button1) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) +Me.GroupBox20.Controls.Add(Me.Label117) +Me.GroupBox20.Controls.Add(Me.Label116) +Me.GroupBox20.Controls.Add(Me.PBCurrent) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) +Me.GroupBox20.Controls.Add(Me.PBMaintenance) +Me.GroupBox20.Controls.Add(Me.LBLMaintenance) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) +Me.GroupBox20.Location = New System.Drawing.Point(6, 32) +Me.GroupBox20.Name = "GroupBox20" +Me.GroupBox20.Size = New System.Drawing.Size(408, 230) +Me.GroupBox20.TabIndex = 174 +Me.GroupBox20.TabStop = false +Me.GroupBox20.Text = "Maintenance" +' +'BTNURLFileReplace +' +Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) +Me.BTNURLFileReplace.Name = "BTNURLFileReplace" +Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) +Me.BTNURLFileReplace.TabIndex = 184 +Me.BTNURLFileReplace.Text = "Replace" +Me.BTNURLFileReplace.UseVisualStyleBackColor = true +' +'Label87 +' +Me.Label87.AutoSize = true +Me.Label87.Location = New System.Drawing.Point(206, 254) +Me.Label87.Name = "Label87" +Me.Label87.Size = New System.Drawing.Size(38, 13) +Me.Label87.TabIndex = 183 +Me.Label87.Text = ".media" +' +'TBURLFileWith +' +Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) +Me.TBURLFileWith.Name = "TBURLFileWith" +Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileWith.TabIndex = 182 +' +'Label118 +' +Me.Label118.AutoSize = true +Me.Label118.Location = New System.Drawing.Point(142, 254) +Me.Label118.Name = "Label118" +Me.Label118.Size = New System.Drawing.Size(29, 13) +Me.Label118.TabIndex = 181 +Me.Label118.Text = "With" +' +'Label85 +' +Me.Label85.AutoSize = true +Me.Label85.Location = New System.Drawing.Point(98, 254) +Me.Label85.Name = "Label85" +Me.Label85.Size = New System.Drawing.Size(38, 13) +Me.Label85.TabIndex = 180 +Me.Label85.Text = ".media" +' +'TBURLFileReplace +' +Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) +Me.TBURLFileReplace.Name = "TBURLFileReplace" +Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileReplace.TabIndex = 179 +' +'Label53 +' +Me.Label53.AutoSize = true +Me.Label53.Location = New System.Drawing.Point(16, 254) +Me.Label53.Name = "Label53" +Me.Label53.Size = New System.Drawing.Size(47, 13) +Me.Label53.TabIndex = 178 +Me.Label53.Text = "Replace" +' +'Label8 +' +Me.Label8.AutoSize = true +Me.Label8.Location = New System.Drawing.Point(16, 232) +Me.Label8.Name = "Label8" +Me.Label8.Size = New System.Drawing.Size(130, 13) +Me.Label8.TabIndex = 177 +Me.Label8.Text = "Change URL File Servers " +' +'Button1 +' +Me.Button1.Enabled = false +Me.Button1.Location = New System.Drawing.Point(270, 19) +Me.Button1.Name = "Button1" +Me.Button1.Size = New System.Drawing.Size(121, 23) +Me.Button1.TabIndex = 176 +Me.Button1.Text = "Reset Settings" +Me.Button1.UseVisualStyleBackColor = true +' +'BTNMaintenanceScripts +' +Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) +Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" +Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceScripts.TabIndex = 175 +Me.BTNMaintenanceScripts.Text = "Audit Scripts" +Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true +' +'BTNMaintenanceRefresh +' +Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) +Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" +Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRefresh.TabIndex = 7 +Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" +Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true +' +'Label117 +' +Me.Label117.AutoSize = true +Me.Label117.Location = New System.Drawing.Point(15, 182) +Me.Label117.Name = "Label117" +Me.Label117.Size = New System.Drawing.Size(84, 13) +Me.Label117.TabIndex = 6 +Me.Label117.Text = "Overall Progress" +' +'Label116 +' +Me.Label116.AutoSize = true +Me.Label116.Location = New System.Drawing.Point(15, 140) +Me.Label116.Name = "Label116" +Me.Label116.Size = New System.Drawing.Size(85, 13) +Me.Label116.TabIndex = 5 +Me.Label116.Text = "Current Progress" +' +'PBCurrent +' +Me.PBCurrent.Location = New System.Drawing.Point(15, 156) +Me.PBCurrent.Name = "PBCurrent" +Me.PBCurrent.Size = New System.Drawing.Size(376, 23) +Me.PBCurrent.TabIndex = 4 +' +'BTNMaintenanceCancel +' +Me.BTNMaintenanceCancel.Enabled = false +Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) +Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" +Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceCancel.TabIndex = 3 +Me.BTNMaintenanceCancel.Text = "Cancel" +Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true +' +'PBMaintenance +' +Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) +Me.PBMaintenance.Name = "PBMaintenance" +Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) +Me.PBMaintenance.TabIndex = 2 +' +'LBLMaintenance +' +Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) +Me.LBLMaintenance.Name = "LBLMaintenance" +Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) +Me.LBLMaintenance.TabIndex = 1 +Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNMaintenanceRebuild +' +Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) +Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" +Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRebuild.TabIndex = 0 +Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" +Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true +' +'GroupBox15 +' +Me.GroupBox15.Controls.Add(Me.Label115) +Me.GroupBox15.Controls.Add(Me.TBWebStop) +Me.GroupBox15.Controls.Add(Me.TBWebStart) +Me.GroupBox15.Controls.Add(Me.Label114) +Me.GroupBox15.Controls.Add(Me.WebToy) +Me.GroupBox15.Location = New System.Drawing.Point(6, 268) +Me.GroupBox15.Name = "GroupBox15" +Me.GroupBox15.Size = New System.Drawing.Size(408, 159) +Me.GroupBox15.TabIndex = 173 +Me.GroupBox15.TabStop = false +Me.GroupBox15.Text = "Web-Controlled Sex Toy" +' +'Label115 +' +Me.Label115.AutoSize = true +Me.Label115.Location = New System.Drawing.Point(12, 58) +Me.Label115.Name = "Label115" +Me.Label115.Size = New System.Drawing.Size(54, 13) +Me.Label115.TabIndex = 171 +Me.Label115.Text = "Stop URL" +' +'TBWebStop +' +Me.TBWebStop.Location = New System.Drawing.Point(10, 72) +Me.TBWebStop.Name = "TBWebStop" +Me.TBWebStop.Size = New System.Drawing.Size(381, 20) +Me.TBWebStop.TabIndex = 170 +' +'TBWebStart +' +Me.TBWebStart.Location = New System.Drawing.Point(10, 33) +Me.TBWebStart.Name = "TBWebStart" +Me.TBWebStart.Size = New System.Drawing.Size(381, 20) +Me.TBWebStart.TabIndex = 167 +' +'Label114 +' +Me.Label114.AutoSize = true +Me.Label114.Location = New System.Drawing.Point(12, 17) +Me.Label114.Name = "Label114" +Me.Label114.Size = New System.Drawing.Size(54, 13) +Me.Label114.TabIndex = 168 +Me.Label114.Text = "Start URL" +' +'WebToy +' +Me.WebToy.Location = New System.Drawing.Point(346, 33) +Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) +Me.WebToy.Name = "WebToy" +Me.WebToy.Size = New System.Drawing.Size(45, 59) +Me.WebToy.TabIndex = 172 +' +'PictureBox9 +' +Me.PictureBox9.BackColor = System.Drawing.Color.LightGray +Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox9.Location = New System.Drawing.Point(9, 6) +Me.PictureBox9.Name = "PictureBox9" +Me.PictureBox9.Size = New System.Drawing.Size(160, 19) +Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox9.TabIndex = 166 +Me.PictureBox9.TabStop = false +' +'Label148 +' +Me.Label148.BackColor = System.Drawing.Color.Transparent +Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label148.ForeColor = System.Drawing.Color.Black +Me.Label148.Location = New System.Drawing.Point(7, 6) +Me.Label148.Name = "Label148" +Me.Label148.Size = New System.Drawing.Size(692, 21) +Me.Label148.TabIndex = 48 +Me.Label148.Text = "Miscellaneous Settings" +Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage28 +' +Me.TabPage28.BackColor = System.Drawing.Color.Silver +Me.TabPage28.Controls.Add(Me.TabControl3) +Me.TabPage28.Location = New System.Drawing.Point(4, 22) +Me.TabPage28.Name = "TabPage28" +Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage28.Size = New System.Drawing.Size(720, 448) +Me.TabPage28.TabIndex = 20 +Me.TabPage28.Text = "Debug" +' +'TabControl3 +' +Me.TabControl3.Controls.Add(Me.TabPage29) +Me.TabControl3.Controls.Add(Me.TabPage30) +Me.TabControl3.Location = New System.Drawing.Point(6, 6) +Me.TabControl3.Name = "TabControl3" +Me.TabControl3.SelectedIndex = 0 +Me.TabControl3.Size = New System.Drawing.Size(708, 437) +Me.TabControl3.TabIndex = 0 +' +'TabPage29 +' +Me.TabPage29.BackColor = System.Drawing.Color.LightGray +Me.TabPage29.Controls.Add(Me.Label143) +Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) +Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) +Me.TabPage29.Controls.Add(Me.GroupBox26) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) +Me.TabPage29.Controls.Add(Me.Label145) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) +Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) +Me.TabPage29.Controls.Add(Me.Label142) +Me.TabPage29.Controls.Add(Me.Label150) +Me.TabPage29.Controls.Add(Me.Label152) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) +Me.TabPage29.Controls.Add(Me.Label147) +Me.TabPage29.Location = New System.Drawing.Point(4, 22) +Me.TabPage29.Name = "TabPage29" +Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage29.Size = New System.Drawing.Size(700, 411) +Me.TabPage29.TabIndex = 0 +Me.TabPage29.Text = "TabPage29" +' +'Label143 +' +Me.Label143.Location = New System.Drawing.Point(402, 46) +Me.Label143.Name = "Label143" +Me.Label143.Size = New System.Drawing.Size(67, 23) +Me.Label143.TabIndex = 15 +Me.Label143.Text = "Script Timer" +Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugScriptTime +' +Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) +Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" +Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugScriptTime.TabIndex = 16 +Me.LBLDebugScriptTime.Text = "0" +Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDebugHoldEdgeTimer +' +Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) +Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" +Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugHoldEdgeTimer.TabIndex = 14 +Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" +Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true +' +'GroupBox26 +' +Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) +Me.GroupBox26.Controls.Add(Me.Button19) +Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) +Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) +Me.GroupBox26.Location = New System.Drawing.Point(6, 5) +Me.GroupBox26.Name = "GroupBox26" +Me.GroupBox26.Size = New System.Drawing.Size(346, 178) +Me.GroupBox26.TabIndex = 0 +Me.GroupBox26.TabStop = false +Me.GroupBox26.Text = "Taunt Cycle" +' +'LBLCycleDebugCountdown +' +Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) +Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" +Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) +Me.LBLCycleDebugCountdown.TabIndex = 10 +Me.LBLCycleDebugCountdown.Text = "0" +Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Button19 +' +Me.Button19.Location = New System.Drawing.Point(191, 142) +Me.Button19.Name = "Button19" +Me.Button19.Size = New System.Drawing.Size(146, 30) +Me.Button19.TabIndex = 9 +Me.Button19.Text = "Countdown to 5 Seconds" +Me.Button19.UseVisualStyleBackColor = true +' +'BTNDebugTauntsClear +' +Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) +Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" +Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) +Me.BTNDebugTauntsClear.TabIndex = 8 +Me.BTNDebugTauntsClear.Text = "Clear" +Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true +' +'TBDebugTaunts3 +' +Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) +Me.TBDebugTaunts3.Name = "TBDebugTaunts3" +Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts3.TabIndex = 7 +' +'TBDebugTaunts2 +' +Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) +Me.TBDebugTaunts2.Name = "TBDebugTaunts2" +Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts2.TabIndex = 6 +' +'TBDebugTaunts1 +' +Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) +Me.TBDebugTaunts1.Name = "TBDebugTaunts1" +Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts1.TabIndex = 5 +' +'RBDebugTaunts3 +' +Me.RBDebugTaunts3.AutoSize = true +Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) +Me.RBDebugTaunts3.Name = "RBDebugTaunts3" +Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts3.TabIndex = 4 +Me.RBDebugTaunts3.Text = "3 Lines" +Me.RBDebugTaunts3.UseVisualStyleBackColor = true +' +'RBDebugTaunts2 +' +Me.RBDebugTaunts2.AutoSize = true +Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) +Me.RBDebugTaunts2.Name = "RBDebugTaunts2" +Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts2.TabIndex = 3 +Me.RBDebugTaunts2.Text = "2 Lines" +Me.RBDebugTaunts2.UseVisualStyleBackColor = true +' +'RBDebugTaunts1 +' +Me.RBDebugTaunts1.AutoSize = true +Me.RBDebugTaunts1.Checked = true +Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) +Me.RBDebugTaunts1.Name = "RBDebugTaunts1" +Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) +Me.RBDebugTaunts1.TabIndex = 2 +Me.RBDebugTaunts1.TabStop = true +Me.RBDebugTaunts1.Text = "1 Line" +Me.RBDebugTaunts1.UseVisualStyleBackColor = true +' +'CBDebugTauntsEndless +' +Me.CBDebugTauntsEndless.AutoSize = true +Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) +Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" +Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) +Me.CBDebugTauntsEndless.TabIndex = 1 +Me.CBDebugTauntsEndless.Text = "Endless Cycle" +Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true +' +'CBDebugTaunts +' +Me.CBDebugTaunts.AutoSize = true +Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) +Me.CBDebugTaunts.Name = "CBDebugTaunts" +Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) +Me.CBDebugTaunts.TabIndex = 0 +Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" +Me.CBDebugTaunts.UseVisualStyleBackColor = true +' +'BTNDebugStrokeTauntTimer +' +Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) +Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" +Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTauntTimer.TabIndex = 8 +Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" +Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true +' +'LBLDebugHoldEdgeTime +' +Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) +Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" +Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugHoldEdgeTime.TabIndex = 13 +Me.LBLDebugHoldEdgeTime.Text = "0" +Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label145 +' +Me.Label145.Location = New System.Drawing.Point(402, 11) +Me.Label145.Name = "Label145" +Me.Label145.Size = New System.Drawing.Size(67, 23) +Me.Label145.TabIndex = 3 +Me.Label145.Text = "Tease Timer" +Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDebugStrokeTime +' +Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) +Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" +Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTime.TabIndex = 2 +Me.BTNDebugStrokeTime.Text = "Set to 5" +Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true +' +'BTNDebugEdgeTauntTimer +' +Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) +Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" +Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugEdgeTauntTimer.TabIndex = 11 +Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" +Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true +' +'LBLDebugTeaseTime +' +Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) +Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" +Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugTeaseTime.TabIndex = 4 +Me.LBLDebugTeaseTime.Text = "0" +Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugStrokeTime +' +Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) +Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" +Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTime.TabIndex = 1 +Me.LBLDebugStrokeTime.Text = "0" +Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugEdgeTauntTime +' +Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) +Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" +Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugEdgeTauntTime.TabIndex = 10 +Me.LBLDebugEdgeTauntTime.Text = "0" +Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'BTNDebugTeaseTimer +' +Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) +Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" +Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugTeaseTimer.TabIndex = 5 +Me.BTNDebugTeaseTimer.Text = "Set to 5" +Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true +' +'Label142 +' +Me.Label142.Location = New System.Drawing.Point(402, 121) +Me.Label142.Name = "Label142" +Me.Label142.Size = New System.Drawing.Size(67, 23) +Me.Label142.TabIndex = 0 +Me.Label142.Text = "Stroke Timer" +Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label150 +' +Me.Label150.Location = New System.Drawing.Point(402, 206) +Me.Label150.Name = "Label150" +Me.Label150.Size = New System.Drawing.Size(67, 27) +Me.Label150.TabIndex = 9 +Me.Label150.Text = "Edge Taunt Timer" +Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label152 +' +Me.Label152.Location = New System.Drawing.Point(402, 238) +Me.Label152.Name = "Label152" +Me.Label152.Size = New System.Drawing.Size(67, 40) +Me.Label152.TabIndex = 12 +Me.Label152.Text = "Hold Edge Timer" +Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLDebugStrokeTauntTime +' +Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) +Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" +Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTauntTime.TabIndex = 7 +Me.LBLDebugStrokeTauntTime.Text = "0" +Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label147 +' +Me.Label147.Location = New System.Drawing.Point(402, 143) +Me.Label147.Name = "Label147" +Me.Label147.Size = New System.Drawing.Size(67, 29) +Me.Label147.TabIndex = 6 +Me.Label147.Text = "Stroke Taunt Timer" +Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TabPage30 +' +Me.TabPage30.BackColor = System.Drawing.Color.LightGray +Me.TabPage30.Controls.Add(Me.Button33) +Me.TabPage30.Controls.Add(Me.Button24) +Me.TabPage30.Location = New System.Drawing.Point(4, 22) +Me.TabPage30.Name = "TabPage30" +Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage30.Size = New System.Drawing.Size(700, 411) +Me.TabPage30.TabIndex = 1 +Me.TabPage30.Text = "TabPage30" +' +'Button33 +' +Me.Button33.Location = New System.Drawing.Point(6, 35) +Me.Button33.Name = "Button33" +Me.Button33.Size = New System.Drawing.Size(75, 23) +Me.Button33.TabIndex = 1 +Me.Button33.Text = "LoadState" +Me.Button33.UseVisualStyleBackColor = true +' +'Button24 +' +Me.Button24.Location = New System.Drawing.Point(6, 6) +Me.Button24.Name = "Button24" +Me.Button24.Size = New System.Drawing.Size(75, 23) +Me.Button24.TabIndex = 0 +Me.Button24.Text = "SaveState" +Me.Button24.UseVisualStyleBackColor = true +' +'TabPage5 +' +Me.TabPage5.BackColor = System.Drawing.Color.Silver +Me.TabPage5.Controls.Add(Me.Panel5) +Me.TabPage5.Location = New System.Drawing.Point(4, 22) +Me.TabPage5.Name = "TabPage5" +Me.TabPage5.Size = New System.Drawing.Size(720, 448) +Me.TabPage5.TabIndex = 17 +Me.TabPage5.Text = "About" +' +'Panel5 +' +Me.Panel5.BackColor = System.Drawing.Color.LightGray +Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel5.Controls.Add(Me.Label130) +Me.Panel5.Controls.Add(Me.Label123) +Me.Panel5.Controls.Add(Me.Label69) +Me.Panel5.Controls.Add(Me.Label113) +Me.Panel5.Controls.Add(Me.Label40) +Me.Panel5.Controls.Add(Me.Label35) +Me.Panel5.Controls.Add(Me.Label33) +Me.Panel5.Controls.Add(Me.Label17) +Me.Panel5.Controls.Add(Me.Label3) +Me.Panel5.Controls.Add(Me.PictureBox3) +Me.Panel5.Controls.Add(Me.Label41) +Me.Panel5.Location = New System.Drawing.Point(6, 6) +Me.Panel5.Name = "Panel5" +Me.Panel5.Size = New System.Drawing.Size(708, 437) +Me.Panel5.TabIndex = 92 +' +'Label130 +' +Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label130.Location = New System.Drawing.Point(361, 314) +Me.Label130.Name = "Label130" +Me.Label130.Size = New System.Drawing.Size(254, 54) +Me.Label130.TabIndex = 176 +Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label123 +' +Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label123.Location = New System.Drawing.Point(81, 314) +Me.Label123.Name = "Label123" +Me.Label123.Size = New System.Drawing.Size(254, 54) +Me.Label123.TabIndex = 175 +Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" +Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label69 +' +Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label69.Location = New System.Drawing.Point(35, 295) +Me.Label69.Name = "Label69" +Me.Label69.Size = New System.Drawing.Size(638, 22) +Me.Label69.TabIndex = 174 +Me.Label69.Text = "Triple Alfa" +Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label113 +' +Me.Label113.AutoSize = true +Me.Label113.Location = New System.Drawing.Point(4, 417) +Me.Label113.Name = "Label113" +Me.Label113.Size = New System.Drawing.Size(452, 13) +Me.Label113.TabIndex = 173 +Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ + "pective owners." +' +'Label40 +' +Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label40.Location = New System.Drawing.Point(35, 273) +Me.Label40.Name = "Label40" +Me.Label40.Size = New System.Drawing.Size(638, 24) +Me.Label40.TabIndex = 171 +Me.Label40.Text = "Special Thanks" +Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label35 +' +Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label35.Location = New System.Drawing.Point(32, 107) +Me.Label35.Name = "Label35" +Me.Label35.Size = New System.Drawing.Size(641, 77) +Me.Label35.TabIndex = 170 +Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ + "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ + "dditional files separately." +Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label33 +' +Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label33.Location = New System.Drawing.Point(32, 191) +Me.Label33.Name = "Label33" +Me.Label33.Size = New System.Drawing.Size(641, 77) +Me.Label33.TabIndex = 169 +Me.Label33.Text = resources.GetString("Label33.Text") +Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'Label17 +' +Me.Label17.AutoSize = true +Me.Label17.Location = New System.Drawing.Point(522, 78) +Me.Label17.Name = "Label17" +Me.Label17.Size = New System.Drawing.Size(93, 13) +Me.Label17.TabIndex = 168 +Me.Label17.Text = "Designed by 1885" +' +'Label3 +' +Me.Label3.AutoSize = true +Me.Label3.Location = New System.Drawing.Point(489, 417) +Me.Label3.Name = "Label3" +Me.Label3.Size = New System.Drawing.Size(215, 13) +Me.Label3.TabIndex = 167 +Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" +' +'PictureBox3 +' +Me.PictureBox3.BackColor = System.Drawing.Color.LightGray +Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big +Me.PictureBox3.Location = New System.Drawing.Point(84, 17) +Me.PictureBox3.Name = "PictureBox3" +Me.PictureBox3.Size = New System.Drawing.Size(531, 58) +Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PictureBox3.TabIndex = 166 +Me.PictureBox3.TabStop = false +' +'Label41 +' +Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label41.Location = New System.Drawing.Point(35, 372) +Me.Label41.Name = "Label41" +Me.Label41.Size = New System.Drawing.Size(638, 39) +Me.Label41.TabIndex = 172 +Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ + "nity who's been supportive of my work over the years. Tease AI exists because of"& _ + " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter +' +'BtnRandomImageDirClear +' +Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) +Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" +Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnRandomImageDirClear.TabIndex = 181 +Me.BtnRandomImageDirClear.Text = "Clear" +Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false +' +'GroupBox47 +' +Me.GroupBox47.BackColor = System.Drawing.Color.LightGray +Me.GroupBox47.Controls.Add(Me.GroupBox41) +Me.GroupBox47.Controls.Add(Me.GroupBox40) +Me.GroupBox47.ForeColor = System.Drawing.Color.Black +Me.GroupBox47.Location = New System.Drawing.Point(806, 255) +Me.GroupBox47.Name = "GroupBox47" +Me.GroupBox47.Size = New System.Drawing.Size(310, 190) +Me.GroupBox47.TabIndex = 63 +Me.GroupBox47.TabStop = false +Me.GroupBox47.Text = "Boobs and Butts Paths" +' +'GroupBox41 +' +Me.GroupBox41.Controls.Add(Me.Button34) +Me.GroupBox41.Location = New System.Drawing.Point(6, 110) +Me.GroupBox41.Name = "GroupBox41" +Me.GroupBox41.Size = New System.Drawing.Size(298, 74) +Me.GroupBox41.TabIndex = 153 +Me.GroupBox41.TabStop = false +Me.GroupBox41.Text = "Butts" +' +'Button34 +' +Me.Button34.BackColor = System.Drawing.Color.LightGray +Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.Button34.ForeColor = System.Drawing.Color.Black +Me.Button34.Location = New System.Drawing.Point(85, 25) +Me.Button34.Name = "Button34" +Me.Button34.Size = New System.Drawing.Size(34, 28) +Me.Button34.TabIndex = 131 +Me.Button34.Text = "1" +Me.Button34.UseVisualStyleBackColor = false +' +'GroupBox40 +' +Me.GroupBox40.Location = New System.Drawing.Point(5, 35) +Me.GroupBox40.Name = "GroupBox40" +Me.GroupBox40.Size = New System.Drawing.Size(298, 74) +Me.GroupBox40.TabIndex = 152 +Me.GroupBox40.TabStop = false +Me.GroupBox40.Text = "Boobs" +' +'GroupBox44 +' +Me.GroupBox44.BackColor = System.Drawing.Color.LightGray +Me.GroupBox44.Controls.Add(Me.Label100) +Me.GroupBox44.ForeColor = System.Drawing.Color.Black +Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) +Me.GroupBox44.Name = "GroupBox44" +Me.GroupBox44.Size = New System.Drawing.Size(310, 92) +Me.GroupBox44.TabIndex = 65 +Me.GroupBox44.TabStop = false +Me.GroupBox44.Text = "Description" +' +'Label100 +' +Me.Label100.BackColor = System.Drawing.Color.Transparent +Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label100.ForeColor = System.Drawing.Color.Black +Me.Label100.Location = New System.Drawing.Point(11, 16) +Me.Label100.Name = "Label100" +Me.Label100.Size = New System.Drawing.Size(286, 73) +Me.Label100.TabIndex = 62 +Me.Label100.Text = resources.GetString("Label100.Text") +Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox6 +' +Me.GroupBox6.Controls.Add(Me.Label4) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) +Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) +Me.GroupBox6.Controls.Add(Me.Label94) +Me.GroupBox6.Controls.Add(Me.LBLLastRuined) +Me.GroupBox6.Controls.Add(Me.Label65) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) +Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) +Me.GroupBox6.Controls.Add(Me.Label14) +Me.GroupBox6.Controls.Add(Me.Label13) +Me.GroupBox6.Controls.Add(Me.Label1) +Me.GroupBox6.Location = New System.Drawing.Point(27, 114) +Me.GroupBox6.Name = "GroupBox6" +Me.GroupBox6.Size = New System.Drawing.Size(283, 102) +Me.GroupBox6.TabIndex = 156 +Me.GroupBox6.TabStop = false +Me.GroupBox6.Text = "Performance" +' +'Label4 +' +Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label4.Location = New System.Drawing.Point(26, 16) +Me.Label4.Name = "Label4" +Me.Label4.Size = New System.Drawing.Size(77, 17) +Me.Label4.TabIndex = 147 +Me.Label4.Text = "Stroking Time" +Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLAvgEdgeStroking +' +Me.LBLAvgEdgeStroking.AutoSize = true +Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) +Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" +Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeStroking.TabIndex = 144 +Me.LBLAvgEdgeStroking.Text = "00:00" +Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLStrokeTimeTotal +' +Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) +Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" +Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) +Me.LBLStrokeTimeTotal.TabIndex = 148 +Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" +Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label94 +' +Me.Label94.BackColor = System.Drawing.Color.Transparent +Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label94.ForeColor = System.Drawing.Color.Black +Me.Label94.Location = New System.Drawing.Point(189, 16) +Me.Label94.Name = "Label94" +Me.Label94.Size = New System.Drawing.Size(65, 17) +Me.Label94.TabIndex = 150 +Me.Label94.Text = "Last Ruined" +Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLLastRuined +' +Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) +Me.LBLLastRuined.Name = "LBLLastRuined" +Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) +Me.LBLLastRuined.TabIndex = 152 +Me.LBLLastRuined.Text = "04/28/2015" +Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label65 +' +Me.Label65.BackColor = System.Drawing.Color.Transparent +Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label65.ForeColor = System.Drawing.Color.Black +Me.Label65.Location = New System.Drawing.Point(103, 16) +Me.Label65.Name = "Label65" +Me.Label65.Size = New System.Drawing.Size(85, 17) +Me.Label65.TabIndex = 149 +Me.Label65.Text = "Last Orgasm" +Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLAvgEdgeNoTouch +' +Me.LBLAvgEdgeNoTouch.AutoSize = true +Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) +Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" +Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeNoTouch.TabIndex = 146 +Me.LBLAvgEdgeNoTouch.Text = "00:00" +Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLLastOrgasm +' +Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) +Me.LBLLastOrgasm.Name = "LBLLastOrgasm" +Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) +Me.LBLLastOrgasm.TabIndex = 151 +Me.LBLLastOrgasm.Text = "04/28/2015" +Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label14 +' +Me.Label14.BackColor = System.Drawing.Color.Transparent +Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label14.ForeColor = System.Drawing.Color.Black +Me.Label14.Location = New System.Drawing.Point(25, 48) +Me.Label14.Name = "Label14" +Me.Label14.Size = New System.Drawing.Size(238, 17) +Me.Label14.TabIndex = 138 +Me.Label14.Text = "Average Time to Edge" +Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label13 +' +Me.Label13.AutoSize = true +Me.Label13.Location = New System.Drawing.Point(177, 68) +Me.Label13.Name = "Label13" +Me.Label13.Size = New System.Drawing.Size(32, 13) +Me.Label13.TabIndex = 145 +Me.Label13.Text = "Rest:" +Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label1 +' +Me.Label1.AutoSize = true +Me.Label1.Location = New System.Drawing.Point(28, 68) +Me.Label1.Name = "Label1" +Me.Label1.Size = New System.Drawing.Size(79, 13) +Me.Label1.TabIndex = 143 +Me.Label1.Text = "While Stroking:" +Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GroupBox21 +' +Me.GroupBox21.BackColor = System.Drawing.Color.LightGray +Me.GroupBox21.Controls.Add(Me.Label153) +Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) +Me.GroupBox21.Controls.Add(Me.GroupBox6) +Me.GroupBox21.Controls.Add(Me.Label156) +Me.GroupBox21.ForeColor = System.Drawing.Color.Black +Me.GroupBox21.Location = New System.Drawing.Point(797, 55) +Me.GroupBox21.Name = "GroupBox21" +Me.GroupBox21.Size = New System.Drawing.Size(316, 136) +Me.GroupBox21.TabIndex = 66 +Me.GroupBox21.TabStop = false +Me.GroupBox21.Text = "Description" +' +'Label153 +' +Me.Label153.BackColor = System.Drawing.Color.Transparent +Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label153.ForeColor = System.Drawing.Color.Black +Me.Label153.Location = New System.Drawing.Point(78, 94) +Me.Label153.Name = "Label153" +Me.Label153.Size = New System.Drawing.Size(158, 17) +Me.Label153.TabIndex = 135 +Me.Label153.Text = "No path selected" +Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLRangeSettingsDescription +' +Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) +Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" +Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) +Me.LBLRangeSettingsDescription.TabIndex = 62 +Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label156 +' +Me.Label156.BackColor = System.Drawing.Color.Transparent +Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label156.ForeColor = System.Drawing.Color.Black +Me.Label156.Location = New System.Drawing.Point(133, 23) +Me.Label156.Name = "Label156" +Me.Label156.Size = New System.Drawing.Size(158, 17) +Me.Label156.TabIndex = 135 +Me.Label156.Text = "No path selected" +Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'GroupBox12 +' +Me.GroupBox12.BackColor = System.Drawing.Color.LightGray +Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) +Me.GroupBox12.ForeColor = System.Drawing.Color.Black +Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) +Me.GroupBox12.Name = "GroupBox12" +Me.GroupBox12.Size = New System.Drawing.Size(171, 124) +Me.GroupBox12.TabIndex = 65 +Me.GroupBox12.TabStop = false +Me.GroupBox12.Text = "Description" +' +'LBLSubSettingsDescription +' +Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) +Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" +Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) +Me.LBLSubSettingsDescription.TabIndex = 62 +Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +' +'OpenFileDialog1 +' +Me.OpenFileDialog1.FileName = "OpenFileDialog1" +Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ + "s (*.*)|*.*" +Me.OpenFileDialog1.Title = "Select an image file" +' +'GetColor +' +Me.GetColor.Color = System.Drawing.Color.SteelBlue +' +'WebImageFileDialog +' +Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.WebImageFileDialog.Title = "Please select a URL File" +' +'OpenScriptDialog +' +Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenScriptDialog.Title = "Please select a script" +' +'OpenSettingsDialog +' +Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenSettingsDialog.Title = "Please select a settings file to open" +' +'SaveSettingsDialog +' +Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" +' +'GroupBox65 +' +Me.GroupBox65.BackColor = System.Drawing.Color.LightGray +Me.GroupBox65.Controls.Add(Me.Label136) +Me.GroupBox65.Controls.Add(Me.Label134) +Me.GroupBox65.Controls.Add(Me.Label132) +Me.GroupBox65.Controls.Add(Me.TrackBar1) +Me.GroupBox65.Controls.Add(Me.ComboBox1) +Me.GroupBox65.Controls.Add(Me.CheckBox1) +Me.GroupBox65.Controls.Add(Me.Label135) +Me.GroupBox65.Controls.Add(Me.TrackBar2) +Me.GroupBox65.ForeColor = System.Drawing.Color.Black +Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) +Me.GroupBox65.Name = "GroupBox65" +Me.GroupBox65.Size = New System.Drawing.Size(259, 117) +Me.GroupBox65.TabIndex = 157 +Me.GroupBox65.TabStop = false +Me.GroupBox65.Text = "Text to Speech" +' +'Label136 +' +Me.Label136.AutoSize = true +Me.Label136.Location = New System.Drawing.Point(14, 52) +Me.Label136.Name = "Label136" +Me.Label136.Size = New System.Drawing.Size(45, 13) +Me.Label136.TabIndex = 32 +Me.Label136.Text = "Volume:" +' +'Label134 +' +Me.Label134.AutoSize = true +Me.Label134.Location = New System.Drawing.Point(141, 52) +Me.Label134.Name = "Label134" +Me.Label134.Size = New System.Drawing.Size(33, 13) +Me.Label134.TabIndex = 157 +Me.Label134.Text = "Rate:" +' +'Label132 +' +Me.Label132.Location = New System.Drawing.Point(202, 52) +Me.Label132.Name = "Label132" +Me.Label132.Size = New System.Drawing.Size(45, 13) +Me.Label132.TabIndex = 158 +Me.Label132.Text = "100" +Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'TrackBar1 +' +Me.TrackBar1.Location = New System.Drawing.Point(133, 68) +Me.TrackBar1.Minimum = -10 +Me.TrackBar1.Name = "TrackBar1" +Me.TrackBar1.Size = New System.Drawing.Size(120, 45) +Me.TrackBar1.TabIndex = 31 +' +'ComboBox1 +' +Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window +Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText +Me.ComboBox1.FormattingEnabled = true +Me.ComboBox1.Location = New System.Drawing.Point(71, 16) +Me.ComboBox1.Name = "ComboBox1" +Me.ComboBox1.Size = New System.Drawing.Size(178, 21) +Me.ComboBox1.TabIndex = 29 +Me.ComboBox1.TabStop = false +' +'CheckBox1 +' +Me.CheckBox1.AutoSize = true +Me.CheckBox1.ForeColor = System.Drawing.Color.Black +Me.CheckBox1.Location = New System.Drawing.Point(10, 18) +Me.CheckBox1.Name = "CheckBox1" +Me.CheckBox1.Size = New System.Drawing.Size(59, 17) +Me.CheckBox1.TabIndex = 28 +Me.CheckBox1.TabStop = false +Me.CheckBox1.Text = "Enable" +Me.CheckBox1.UseVisualStyleBackColor = true +' +'Label135 +' +Me.Label135.Location = New System.Drawing.Point(75, 52) +Me.Label135.Name = "Label135" +Me.Label135.Size = New System.Drawing.Size(45, 13) +Me.Label135.TabIndex = 33 +Me.Label135.Text = "100" +Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight +' +'TrackBar2 +' +Me.TrackBar2.Location = New System.Drawing.Point(6, 68) +Me.TrackBar2.Maximum = 100 +Me.TrackBar2.Name = "TrackBar2" +Me.TrackBar2.Size = New System.Drawing.Size(120, 45) +Me.TrackBar2.TabIndex = 30 +Me.TrackBar2.Value = 50 +' +'TxbImgUrlHardcore +' +Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) +Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" +Me.TxbImgUrlHardcore.ReadOnly = true +Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) +Me.TxbImgUrlHardcore.TabIndex = 145 +' +'TextBox2 +' +Me.TextBox2.BackColor = System.Drawing.Color.LightGray +Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill +Me.TextBox2.Location = New System.Drawing.Point(116, 34) +Me.TextBox2.Name = "TextBox2" +Me.TextBox2.ReadOnly = true +Me.TextBox2.Size = New System.Drawing.Size(189, 20) +Me.TextBox2.TabIndex = 145 +' +'BWURLFiles +' +Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" +Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" +Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" +Me.BWURLFiles.WorkerReportsProgress = true +Me.BWURLFiles.WorkerSupportsCancellation = true +' +'Label169 +' +Me.Label169.BackColor = System.Drawing.Color.Transparent +Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label169.ForeColor = System.Drawing.Color.Black +Me.Label169.Location = New System.Drawing.Point(220, 15) +Me.Label169.Name = "Label169" +Me.Label169.Size = New System.Drawing.Size(114, 19) +Me.Label169.TabIndex = 182 +Me.Label169.Text = "Contact Honorific" +Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'FrmSettings +' +Me.AllowDrop = true +Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) +Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font +Me.ClientSize = New System.Drawing.Size(727, 465) +Me.Controls.Add(Me.GroupBox65) +Me.Controls.Add(Me.GroupBox44) +Me.Controls.Add(Me.GroupBox47) +Me.Controls.Add(Me.BtnRandomImageDirClear) +Me.Controls.Add(Me.SettingsPanel) +Me.Controls.Add(Me.GroupBox12) +Me.Controls.Add(Me.GroupBox21) +Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D +Me.MaximizeBox = false +Me.MinimizeBox = false +Me.Name = "FrmSettings" +Me.ShowIcon = false +Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen +Me.Text = "Tease AI Settings" +Me.SettingsPanel.ResumeLayout(false) +Me.SettingsTabs.ResumeLayout(false) +Me.TabPage1.ResumeLayout(false) +Me.PNLGeneralSettings.ResumeLayout(false) +Me.PNLGeneralSettings.PerformLayout +Me.GroupBox3.ResumeLayout(false) +Me.GroupBox2.ResumeLayout(false) +Me.GroupBox2.PerformLayout +Me.GroupBox64.ResumeLayout(false) +Me.GroupBox64.PerformLayout +Me.GBDommeImages.ResumeLayout(false) +Me.GBDommeImages.PerformLayout +CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGeneralTextToSpeech.ResumeLayout(false) +Me.GBGeneralTextToSpeech.PerformLayout +CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).EndInit +Me.GBSafeword.ResumeLayout(false) +Me.GBSafeword.PerformLayout +Me.GBGeneralSystem.ResumeLayout(false) +Me.GBGeneralSystem.PerformLayout +Me.GBGeneralImages.ResumeLayout(false) +Me.GBGeneralImages.PerformLayout +CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGeneralSettings.ResumeLayout(false) +Me.GBGeneralSettings.PerformLayout +Me.GBSubFont.ResumeLayout(false) +CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDommeFont.ResumeLayout(false) +CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage2.ResumeLayout(false) +Me.Panel3.ResumeLayout(false) +Me.Panel3.PerformLayout +Me.GBGiveUp.ResumeLayout(false) +Me.GBGiveUp.PerformLayout +CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomTypingStyle.ResumeLayout(false) +Me.GBDomTypingStyle.PerformLayout +CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox63.ResumeLayout(false) +Me.GroupBox63.PerformLayout +Me.GBDomRanges.ResumeLayout(false) +CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomStats.ResumeLayout(false) +Me.GBDomStats.PerformLayout +CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomPersonality.ResumeLayout(false) +Me.GBDomPersonality.PerformLayout +Me.GBDomOrgasms.ResumeLayout(false) +Me.GBDomOrgasms.PerformLayout +CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.GBDomPetNames.ResumeLayout(false) +Me.GBDomPetNames.PerformLayout +Me.TabPage10.ResumeLayout(false) +Me.Panel2.ResumeLayout(false) +Me.GroupBox22.ResumeLayout(false) +CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox45.ResumeLayout(false) +CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox35.ResumeLayout(false) +Me.GroupBoxSorry.ResumeLayout(false) +Me.GroupBoxSorry.PerformLayout +Me.GroupBox39.ResumeLayout(false) +Me.GroupBox39.PerformLayout +Me.GroupBox38.ResumeLayout(false) +Me.GroupBox38.PerformLayout +Me.GroupBox37.ResumeLayout(false) +Me.GroupBox37.PerformLayout +Me.GroupBox36.ResumeLayout(false) +Me.GroupBox36.PerformLayout +Me.GroupBox13.ResumeLayout(false) +Me.GroupBox7.ResumeLayout(false) +Me.GroupBox7.PerformLayout +CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox32.ResumeLayout(false) +Me.GroupBox32.PerformLayout +CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage16.ResumeLayout(false) +Me.Panel9.ResumeLayout(false) +Me.GroupBox31.ResumeLayout(false) +Me.TCScripts.ResumeLayout(false) +Me.TabPage21.ResumeLayout(false) +Me.TabPage17.ResumeLayout(false) +Me.TabPage18.ResumeLayout(false) +Me.TabPage19.ResumeLayout(false) +Me.GroupBox42.ResumeLayout(false) +CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox43.ResumeLayout(false) +Me.TabPage7.ResumeLayout(false) +Me.TabControl4.ResumeLayout(false) +Me.TpImagesUrlFiles.ResumeLayout(false) +Me.TpImagesUrlFiles.PerformLayout +Me.GroupBox66.ResumeLayout(false) +CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).EndInit +Me.TpImagesGenre.ResumeLayout(false) +Me.GrbImageUrlFiles.ResumeLayout(false) +Me.TlpImageUrls.ResumeLayout(false) +Me.TlpImageUrls.PerformLayout +Me.GbxImagesGenre.ResumeLayout(false) +Me.TableLayoutPanel1.ResumeLayout(false) +Me.TableLayoutPanel1.PerformLayout +Me.TabPage33.ResumeLayout(false) +Me.TabControl5.ResumeLayout(false) +Me.TabPage34.ResumeLayout(false) +Me.TabPage34.PerformLayout +CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage35.ResumeLayout(false) +Me.TabPage35.PerformLayout +Me.GroupBox55.ResumeLayout(false) +Me.GroupBox55.PerformLayout +Me.GroupBox53.ResumeLayout(false) +Me.GroupBox53.PerformLayout +Me.GroupBox49.ResumeLayout(false) +Me.GroupBox49.PerformLayout +Me.GroupBox46.ResumeLayout(false) +Me.GroupBox46.PerformLayout +Me.GroupBox54.ResumeLayout(false) +Me.GroupBox54.PerformLayout +Me.GroupBox51.ResumeLayout(false) +Me.GroupBox51.PerformLayout +Me.GroupBox50.ResumeLayout(false) +Me.GroupBox50.PerformLayout +Me.GroupBox48.ResumeLayout(false) +Me.GroupBox48.PerformLayout +Me.TabPage11.ResumeLayout(false) +Me.Panel7.ResumeLayout(false) +Me.Panel7.PerformLayout +CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).EndInit +Me.TpVideoSettings.ResumeLayout(false) +Me.PnlVideoSettings.ResumeLayout(false) +CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxVideoGeneralD.ResumeLayout(false) +Me.GbxVideoGeneralD.PerformLayout +Me.GbxVideoSpecialD.ResumeLayout(false) +Me.GbxVideoSpecialD.PerformLayout +Me.GbxVideoGenreD.ResumeLayout(false) +Me.GbxVideoGenreD.PerformLayout +Me.GbxVideoDescription.ResumeLayout(false) +Me.GbxVideoGeneral.ResumeLayout(false) +Me.GbxVideoGeneral.PerformLayout +Me.GbxVideoSpecial.ResumeLayout(false) +Me.GbxVideoSpecial.PerformLayout +Me.GbxVideoGenre.ResumeLayout(false) +Me.GbxVideoGenre.PerformLayout +Me.TabPage20.ResumeLayout(false) +Me.TabControl1.ResumeLayout(false) +Me.TabPage22.ResumeLayout(false) +Me.PNLGlitter.ResumeLayout(false) +Me.PNLGlitter.PerformLayout +Me.GroupBox14.ResumeLayout(false) +Me.GroupBox14.PerformLayout +Me.GroupBox4.ResumeLayout(false) +Me.GBGlitterD.ResumeLayout(false) +Me.GBGlitterD.PerformLayout +Me.GrbGlitterfeed.ResumeLayout(false) +Me.GrbGlitterfeed.PerformLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGlitter1.ResumeLayout(false) +Me.GBGlitter1.PerformLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGlitter3.ResumeLayout(false) +Me.GBGlitter3.PerformLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit +Me.GBGlitter2.ResumeLayout(false) +Me.GBGlitter2.PerformLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit +Me.TpGames.ResumeLayout(false) +Me.TpGames.PerformLayout +Me.GbxCardsGold.ResumeLayout(false) +Me.GbxCardsGold.PerformLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxCardsBackground.ResumeLayout(false) +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxCardsBronze.ResumeLayout(false) +Me.GbxCardsBronze.PerformLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit +Me.GbxCardsSilver.ResumeLayout(false) +Me.GbxCardsSilver.PerformLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage6.ResumeLayout(false) +Me.Panel10.ResumeLayout(false) +Me.Panel10.PerformLayout +CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).EndInit +Me.PNLWishList.ResumeLayout(false) +CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage26.ResumeLayout(false) +Me.Panel12.ResumeLayout(false) +Me.GroupBox9.ResumeLayout(false) +CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox5.ResumeLayout(false) +Me.GroupBox5.PerformLayout +Me.GroupBox11.ResumeLayout(false) +Me.GroupBox1.ResumeLayout(false) +CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage4.ResumeLayout(false) +Me.Panel6.ResumeLayout(false) +Me.GroupBox69.ResumeLayout(false) +Me.GroupBox69.PerformLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox68.ResumeLayout(false) +CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox67.ResumeLayout(false) +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox10.ResumeLayout(false) +CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox57.ResumeLayout(false) +Me.GroupBox57.PerformLayout +CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GBRangeRuinChance.ResumeLayout(false) +Me.GBRangeRuinChance.PerformLayout +CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox17.ResumeLayout(false) +Me.GroupBox19.ResumeLayout(false) +CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox18.ResumeLayout(false) +Me.GroupBox18.PerformLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit +Me.GBRangeOrgasmChance.ResumeLayout(false) +Me.GBRangeOrgasmChance.PerformLayout +CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage13.ResumeLayout(false) +Me.TabControl2.ResumeLayout(false) +Me.TabPage27.ResumeLayout(false) +Me.TabPage27.PerformLayout +Me.TabPage14.ResumeLayout(false) +Me.TabPage14.PerformLayout +Me.TabPage24.ResumeLayout(false) +Me.TabPage24.PerformLayout +Me.TabPage8.ResumeLayout(false) +Me.GroupBox29.ResumeLayout(false) +Me.GroupBox28.ResumeLayout(false) +Me.GroupBox30.ResumeLayout(false) +Me.TabPage15.ResumeLayout(false) +Me.TabPage15.PerformLayout +Me.GroupBox34.ResumeLayout(false) +Me.TabPage25.ResumeLayout(false) +Me.Panel11.ResumeLayout(false) +Me.GroupBox62.ResumeLayout(false) +Me.GroupBox62.PerformLayout +Me.GroupBox33.ResumeLayout(false) +Me.GroupBox8.ResumeLayout(false) +Me.GroupBox8.PerformLayout +Me.GroupBox27.ResumeLayout(false) +Me.GroupBox27.PerformLayout +Me.GroupBox20.ResumeLayout(false) +Me.GroupBox20.PerformLayout +Me.GroupBox15.ResumeLayout(false) +Me.GroupBox15.PerformLayout +CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).EndInit +Me.TabPage28.ResumeLayout(false) +Me.TabControl3.ResumeLayout(false) +Me.TabPage29.ResumeLayout(false) +Me.GroupBox26.ResumeLayout(false) +Me.GroupBox26.PerformLayout +Me.TabPage30.ResumeLayout(false) +Me.TabPage5.ResumeLayout(false) +Me.Panel5.ResumeLayout(false) +Me.Panel5.PerformLayout +CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).EndInit +Me.GroupBox47.ResumeLayout(false) +Me.GroupBox41.ResumeLayout(false) +Me.GroupBox44.ResumeLayout(false) +Me.GroupBox6.ResumeLayout(false) +Me.GroupBox6.PerformLayout +Me.GroupBox21.ResumeLayout(false) +Me.GroupBox12.ResumeLayout(false) +Me.GroupBox65.ResumeLayout(false) +Me.GroupBox65.PerformLayout +CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit +Me.ResumeLayout(false) - End Sub +End Sub Friend WithEvents SettingsPanel As System.Windows.Forms.Panel Friend WithEvents SettingsTabs As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage @@ -16724,8 +16728,8 @@ Partial Class FrmSettings Friend WithEvents Label118 As System.Windows.Forms.Label Friend WithEvents Label167 As Label Friend WithEvents Label168 As Label - Friend WithEvents Label169 As Label Friend WithEvents Label170 As Label Friend WithEvents GroupBox14 As GroupBox Friend WithEvents alwaysNewSlideshow As System.Windows.Forms.CheckBox + Friend WithEvents Label169 As System.Windows.Forms.Label End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index f78bbb1..4b58761 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -12,7 +12,7 @@ Public Class FrmSettings Get Return My.Application.Session End Get - Set(value As SessionState) + Set(ByVal value As SessionState) My.Application.Session = value End Set End Property @@ -66,7 +66,7 @@ Public Class FrmSettings End Sub - Private Sub FrmSettings_LostFocus(sender As Object, e As EventArgs) Handles Me.Deactivate + Private Sub FrmSettings_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Deactivate My.Settings.Save() End Sub @@ -82,8 +82,8 @@ Public Class FrmSettings Dim oSpeech As New System.Speech.Synthesis.SpeechSynthesizer() Dim installedVoices As System.Collections.ObjectModel. - ReadOnlyCollection(Of System.Speech.Synthesis.InstalledVoice) _ - = oSpeech.GetInstalledVoices + ReadOnlyCollection(Of System.Speech.Synthesis.InstalledVoice) _ + = oSpeech.GetInstalledVoices Dim names(installedVoices.Count - 1) As String For i As Integer = 0 To installedVoices.Count - 1 @@ -459,7 +459,7 @@ Public Class FrmSettings For Each tmptbx As CheckBox In New List(Of CheckBox) From {CBGlitter1, CBGlitter2, CBGlitter3} If tmptbx.DataBindings("Checked") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmptbx.Name & - """'s checked-property. Set the databinding and recompile!") + """'s checked-property. Set the databinding and recompile!") End If Next @@ -509,7 +509,7 @@ Public Class FrmSettings End Sub - Private Sub SettingsTabs_TabIndexChanged(sender As Object, e As System.EventArgs) Handles SettingsTabs.SelectedIndexChanged + Private Sub SettingsTabs_TabIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SettingsTabs.SelectedIndexChanged ' If current Tab is Scripts force focus onto CheckedListBoxes. If SettingsTabs.SelectedTab Is TabPage16 Then TCScripts_TabIndexChanged(TCScripts, Nothing) @@ -518,12 +518,12 @@ Public Class FrmSettings #Region "------------------------------------- GeneralTab -----------------------------------------------" - Private Sub BtnImportSettings_Click(sender As Object, e As EventArgs) Handles BtnImportSettings.Click + Private Sub BtnImportSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnImportSettings.Click My.MySettings.importOnRestart() End Sub - Private Sub timestampCheckBox_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles timestampCheckBox.MouseClick + Private Sub timestampCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timestampCheckBox.MouseClick If timestampCheckBox.Checked = True Then My.Settings.CBTimeStamps = True @@ -536,7 +536,7 @@ Public Class FrmSettings End Sub - Private Sub shownamesCheckBox_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles shownamesCheckBox.MouseClick + Private Sub shownamesCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shownamesCheckBox.MouseClick If shownamesCheckBox.Checked = True Then My.Settings.CBShowNames = True @@ -546,7 +546,7 @@ Public Class FrmSettings End Sub - Private Sub typeinstantlyCheckBox_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles typeinstantlyCheckBox.MouseClick + Private Sub typeinstantlyCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles typeinstantlyCheckBox.MouseClick If typeinstantlyCheckBox.Checked = True Then My.Settings.CBInstantType = True @@ -557,7 +557,7 @@ Public Class FrmSettings End Sub - Private Sub CBWebtease_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBWebtease.MouseClick + Private Sub CBWebtease_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBWebtease.MouseClick If CBWebtease.Checked = True Then My.Settings.CBWebtease = True @@ -568,7 +568,7 @@ Public Class FrmSettings End Sub - Private Sub CBBlogImageWindow_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBBlogImageWindow.MouseClick + Private Sub CBBlogImageWindow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBBlogImageWindow.MouseClick If CBBlogImageWindow.Checked = True Then My.Settings.CBBlogImageMain = True Else @@ -576,7 +576,7 @@ Public Class FrmSettings End If End Sub - Private Sub landscapeCheckBox_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles landscapeCheckBox.MouseClick + Private Sub landscapeCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles landscapeCheckBox.MouseClick If landscapeCheckBox.Checked = True Then My.Settings.CBStretchLandscape = True Else @@ -584,7 +584,7 @@ Public Class FrmSettings End If End Sub - Private Sub CBSettingsPause_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBSettingsPause.MouseClick + Private Sub CBSettingsPause_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSettingsPause.MouseClick If CBSettingsPause.Checked = True Then My.Settings.CBSettingsPause = True Else @@ -592,12 +592,12 @@ Public Class FrmSettings End If End Sub - Private Sub timestampCheckBox_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles timestampCheckBox.MouseHover + Private Sub timestampCheckBox_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timestampCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(timestampCheckBox, "When this is selected, a timestamp will appear" & Environment.NewLine & - "with each message you and the domme send.") + "with each message you and the domme send.") If RBGerman.Checked = True Then TTDir.SetToolTip(timestampCheckBox, "Wenn dies aktiviert ist, wird mit jeder Nachricht die" & Environment.NewLine & - "du oder die Domina sendet ein Zeitstempel angezeigt") + "du oder die Domina sendet ein Zeitstempel angezeigt") @@ -606,16 +606,16 @@ Public Class FrmSettings End Sub - Private Sub shownamesCheckBox_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles shownamesCheckBox.MouseHover + Private Sub shownamesCheckBox_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shownamesCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(shownamesCheckBox, "When this is selected, the names of you and the" & Environment.NewLine & - "domme will appear with every message you send." & Environment.NewLine & Environment.NewLine & - "If it is unselected, names will only appear" & Environment.NewLine & - "when you were not the last one to type.") + "domme will appear with every message you send." & Environment.NewLine & Environment.NewLine & + "If it is unselected, names will only appear" & Environment.NewLine & + "when you were not the last one to type.") If RBGerman.Checked = True Then TTDir.SetToolTip(shownamesCheckBox, "Wenn dies aktiviert ist, wird mit jeder Nachricht" & Environment.NewLine & - "die du oder die Domina sendet der Name angezeigt." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist, Namen werden nur erscheinen" & Environment.NewLine & - "wenn du nicht der letzte warst, der geschrieben hat.") + "die du oder die Domina sendet der Name angezeigt." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist, Namen werden nur erscheinen" & Environment.NewLine & + "wenn du nicht der letzte warst, der geschrieben hat.") @@ -628,15 +628,15 @@ Public Class FrmSettings End Sub - Private Sub typeinstantlyCheckBox_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles typeinstantlyCheckBox.MouseHover + Private Sub typeinstantlyCheckBox_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles typeinstantlyCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(typeinstantlyCheckBox, "This program simulates a chat environment, so a brief delay appears before each post the domme makes." & Environment.NewLine & - "This delay is determined by the length of what she is saying and will be accompanied by the text ""[Dom Name] is typing...""" & Environment.NewLine & Environment.NewLine & - "When this is selected, the typing delay is removed and the domme's messages become instantaneous.") + "This delay is determined by the length of what she is saying and will be accompanied by the text ""[Dom Name] is typing...""" & Environment.NewLine & Environment.NewLine & + "When this is selected, the typing delay is removed and the domme's messages become instantaneous.") If RBGerman.Checked = True Then TTDir.SetToolTip(typeinstantlyCheckBox, "Dieses Programm simuliert eine Chat Umgebung, daher erscheint eine kurze Verzögerung vor jedem Beitrag den die Domina macht." & Environment.NewLine & - "Diese Verzögerung hängt von der Länge ab, was sie schreibt und wird begleitet mit dem text „[Dom Name] is typing…"" für einen besseren Effekt." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist, ist die „Tippen"" Verzögerung entfernt und die Domina Beiträge erschein sofort") + "Diese Verzögerung hängt von der Länge ab, was sie schreibt und wird begleitet mit dem text „[Dom Name] is typing…"" für einen besseren Effekt." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist, ist die „Tippen"" Verzögerung entfernt und die Domina Beiträge erschein sofort") @@ -648,10 +648,10 @@ Public Class FrmSettings End Sub - Private Sub CBLockWindow_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBInputIcon.MouseHover + Private Sub CBLockWindow_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBInputIcon.MouseHover TTDir.SetToolTip(CBInputIcon, "When this is selected, a small question mark icon will appear next to the" & Environment.NewLine & - "domme's question when your exact response will be saved to a variable.") + "domme's question when your exact response will be saved to a variable.") 'If RBGerman.Checked = True Then TTDir.SetToolTip(CBInputIcon, "Wenn dies aktiviert ist, wird mit jeder Nachricht die" & Environment.NewLine & _ ' "du oder die Domina sendet ein Zeitstempel angezeigt") @@ -661,12 +661,12 @@ Public Class FrmSettings End Sub - Private Sub CBBlogImageWindow_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBBlogImageWindow.MouseHover + Private Sub CBBlogImageWindow_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBBlogImageWindow.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBBlogImageWindow, "When this is selected, any blog images the domme shows you will" & Environment.NewLine & - "automatically be saved to ""[root folder]\Images\Session Images\"".") + "automatically be saved to ""[root folder]\Images\Session Images\"".") If RBGerman.Checked = True Then TTDir.SetToolTip(CBBlogImageWindow, "Wenn dies aktiviert ist, wird jedes Blog Bild, welches die Domina dir zeigt" & Environment.NewLine & - "automatisch gespeichert in „…\Tease AI Open Beta\Images\Session Images\""") + "automatisch gespeichert in „…\Tease AI Open Beta\Images\Session Images\""") 'LBLGeneralSettingsDescription.Text = "When this is selected, any blog images the domme shows you will automatically be saved to ""[root folder]\Images\Session Images\""." @@ -674,39 +674,39 @@ Public Class FrmSettings 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Wenn dies aktiviert ist, wird jedes Blog Bild, welches die Domina dir zeigt automatisch gespeichert in „…\Tease AI Open Beta\Images\Session Images\""" End Sub - Private Sub landscapeCheckBox_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles landscapeCheckBox.MouseHover + Private Sub landscapeCheckBox_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles landscapeCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(landscapeCheckBox, "When this is selected, images that appear in the main window will be" & Environment.NewLine & - "stretched to fit the screen if their width is greater than their height.") + "stretched to fit the screen if their width is greater than their height.") If RBGerman.Checked = True Then TTDir.SetToolTip(landscapeCheckBox, "Wenn dies aktiviert ist, werden die Bilder(welche Angezeigt" & Environment.NewLine & - "werden) gestreckt, wenn ihre Breite größer als ihre Höhe ist.") + "werden) gestreckt, wenn ihre Breite größer als ihre Höhe ist.") 'LBLGeneralSettingsDescription.Text = "When this is selected, images that appear in the main window will be stretched to fit the screen if their width is greater than their height." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Wenn dies aktiviert ist, werden die Bilder(welche Angezeigt werden) gestreckt, wenn ihre Breite größer als ihre Höhe ist" End Sub - Private Sub CBImageInfo_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBImageInfo.MouseHover + Private Sub CBImageInfo_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBImageInfo.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBImageInfo, "When this is selected, the local filepath or URL address of each image displayed" & Environment.NewLine & - "in the main window will appear in the upper left hand corner of the screen.") + "in the main window will appear in the upper left hand corner of the screen.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBImageInfo, "Wenn dies aktiviert ist, wird der Lokale Dateipfad oder die URL-Adresse" & Environment.NewLine & - "von jedem Bild in der oberen linken Ecke des Bildschirms angezeigt.") + "von jedem Bild in der oberen linken Ecke des Bildschirms angezeigt.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the local filepath or URL address of each image displayed in the main window will appear in the upper left hand corner of the screen." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Wenn dies aktiviert ist, wird der Lokale Dateipfad oder die URL-Adresse von jedem Bild in der oberen linken Ecke des Bildschirms angezeigt." End Sub - Private Sub BTNDomImageDir_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNDomImageDir.MouseHover + Private Sub BTNDomImageDir_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomImageDir.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(BTNDomImageDir, "Use this button to select a directory containing several image" & Environment.NewLine & - "set folders of the same model you're using as your domme." & Environment.NewLine & Environment.NewLine & - "Once a valid directory has been set, any time you say hello to the domme, one of" & Environment.NewLine & - "those folders will automatically be selected at random and used for the slideshow.") + "set folders of the same model you're using as your domme." & Environment.NewLine & Environment.NewLine & + "Once a valid directory has been set, any time you say hello to the domme, one of" & Environment.NewLine & + "those folders will automatically be selected at random and used for the slideshow.") If RBGerman.Checked = True Then TTDir.SetToolTip(BTNDomImageDir, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Domina benutzt." & Environment.NewLine & Environment.NewLine & - "Nachdem einmal ein gültiges Verzeichnis gesetzt wurde, wird nachdem du Hello" & Environment.NewLine & - "zu der Domina gesagt hast, automatisch zufällig eine Diashow ausgewählt.") + "Bildersets von dem selben Model enthält, die du als Domina benutzt." & Environment.NewLine & Environment.NewLine & + "Nachdem einmal ein gültiges Verzeichnis gesetzt wurde, wird nachdem du Hello" & Environment.NewLine & + "zu der Domina gesagt hast, automatisch zufällig eine Diashow ausgewählt.") 'LBLGeneralSettingsDescription.Text = "Use this button to select a directory containing several image set folders of the same model you're using as your domme. Once a valid directory has been set, any time" _ @@ -716,54 +716,54 @@ Public Class FrmSettings ' die du als Domina benutzt. Nachdem einmal ein gültiges Verzeichnis gesetzt wurde, wird nachdem du Hello zu der Domina gesagt hast, automatisch zufällig eine Diashow ausgewählt." End Sub - Private Sub offRadio_MouseHover(sender As System.Object, e As System.EventArgs) Handles offRadio.MouseHover + Private Sub offRadio_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles offRadio.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(offRadio, "When this is set, any domme slideshow you have selected will not advance during the" & Environment.NewLine & - "tease. Use the Previous and Next buttons on the Media Bar to change the images.") + "tease. Use the Previous and Next buttons on the Media Bar to change the images.") If RBGerman.Checked = True Then TTDir.SetToolTip(offRadio, "Wenn dies aktiviert ist, wird jede Diashow nicht automatisch die Bilder wechseln." & Environment.NewLine & - "Nutze die Vor- und Zurückschaltflächen in der media bar um die Bilder zu wechseln.") + "Nutze die Vor- und Zurückschaltflächen in der media bar um die Bilder zu wechseln.") 'LBLGeneralSettingsDescription.Text = "When this is set, any slideshow you have selected will not advance during the tease. Use the Previous and Next buttons on the Media Bar to change the images." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Wenn dies aktiviert ist, wird jede Diashow nicht automatisch die Bilder wechseln. Nutze die Vor- und Zurückschaltflächen in der media bar um die Bilder zu wechseln" End Sub - Private Sub timedRadio_MouseHover(sender As System.Object, e As System.EventArgs) Handles timedRadio.MouseHover + Private Sub timedRadio_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timedRadio.MouseHover TTDir.SetToolTip(timedRadio, "When this is set, any slideshow you have selected will advance the image" & Environment.NewLine & - "every number of seconds displayed in the box to the right of this option.") + "every number of seconds displayed in the box to the right of this option.") 'LBLGeneralSettingsDescription.Text = "When this is set, any slideshow you have selected will advance the image every number of seconds displayed in the box to the right of this option." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "" End Sub - Private Sub SlideshowNumBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles slideshowNumBox.MouseHover + Private Sub SlideshowNumBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles slideshowNumBox.MouseHover TTDir.SetToolTip(slideshowNumBox, "The number of seconds between image changes" & Environment.NewLine & - "when the ""Timed"" slideshow option is checked.") + "when the ""Timed"" slideshow option is checked.") 'LBLGeneralSettingsDescription.Text = "The number of seconds between image changes when the ""Timed"" slideshow option is checked." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "" End Sub - Private Sub Radio_LostFocus(sender As Object, e As System.EventArgs) Handles teaseRadio.LostFocus, offRadio.LostFocus, timedRadio.LostFocus + Private Sub Radio_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles teaseRadio.LostFocus, offRadio.LostFocus, timedRadio.LostFocus If teaseRadio.Checked = True Then My.Settings.SlideshowMode = "Tease" If timedRadio.Checked = True Then My.Settings.SlideshowMode = "Timed" If offRadio.Checked = True Then My.Settings.SlideshowMode = "Manual" End Sub - Private Sub teaseRadio_MouseHover(sender As System.Object, e As System.EventArgs) Handles teaseRadio.MouseHover + Private Sub teaseRadio_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teaseRadio.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(teaseRadio, "When this is set, any slideshow you have selected will advance automatically when the domme " & Environment.NewLine & - "types. The slideshow may move forward or backward, but will not loop either direction." & Environment.NewLine & Environment.NewLine & - "You can change the odds of which way the slideshow will move in" & Environment.NewLine & - "the Ranges tab. This is the default slideshow mode for Tease AI.") + "types. The slideshow may move forward or backward, but will not loop either direction." & Environment.NewLine & Environment.NewLine & + "You can change the odds of which way the slideshow will move in" & Environment.NewLine & + "the Ranges tab. This is the default slideshow mode for Tease AI.") If RBGerman.Checked = True Then TTDir.SetToolTip(teaseRadio, "Wenn dies aktiviert ist, wird die Diashow automatisch die Bilder wechseln wenn die Domina schreibt." & Environment.NewLine & - "Die Diashow kann vorwärts oder rückwärts laufen, aber wird keine Richtung wiederholen." & Environment.NewLine & Environment.NewLine & - "Du kannst die Wahrscheinlichkeit in welche Richtung die Diashow läuft im Wertebereichs" & Environment.NewLine & - "„Reiter"" ändern. Dies ist der Standart Diashow modus in Tease AI.") + "Die Diashow kann vorwärts oder rückwärts laufen, aber wird keine Richtung wiederholen." & Environment.NewLine & Environment.NewLine & + "Du kannst die Wahrscheinlichkeit in welche Richtung die Diashow läuft im Wertebereichs" & Environment.NewLine & + "„Reiter"" ändern. Dies ist der Standart Diashow modus in Tease AI.") 'LBLGeneralSettingsDescription.Text = "When this is set, any slideshow you have selected will advance automatically when the domme types. The slideshow may move forward or backward, but will not loop either" _ @@ -776,28 +776,28 @@ Public Class FrmSettings - Private Sub CBSettingsPause_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBSettingsPause.MouseHover + Private Sub CBSettingsPause_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSettingsPause.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSettingsPause, "When this is selected, the program will pause any time" & Environment.NewLine & - "the settings menu is open and resume once it is closed.") + "the settings menu is open and resume once it is closed.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSettingsPause, "Wenn dies aktiviert ist, wird das Programm immer in Pause" & Environment.NewLine & - "springen solange das Einstellungsmenü geöffnet ist.") + "springen solange das Einstellungsmenü geöffnet ist.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the program will pause any time the settings menu is open and resume once it is closed." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Wenn dies aktiviert ist, wird das Programm immer in Pause springen solange das Einstellungsmenü geöffnet ist." End Sub - Private Sub BTNDomColor_MouseHover(sender As Object, e As System.EventArgs) Handles BTNDomColor.MouseHover + Private Sub BTNDomColor_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNDomColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(BTNDomColor, "This button allows you to change the color of the" & Environment.NewLine & - "domme's name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & - "A preview will appear in the text box next to this" & Environment.NewLine & - "button once a color has been selected.") + "domme's name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & + "A preview will appear in the text box next to this" & Environment.NewLine & + "button once a color has been selected.") If RBGerman.Checked = True Then TTDir.SetToolTip(BTNDomColor, "Diese Schaltfläche erlaubt dir die Farbe des Domina Namens" & Environment.NewLine & - "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & - "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & - "angezeigt, nachdem eine Farbe ausgewählt wurde.") + "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & + "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & + "angezeigt, nachdem eine Farbe ausgewählt wurde.") 'LBLGeneralSettingsDescription.Text = "This button allows you to change the color of the domme's name as it appears in the chat window. A preview will appear in the text box next to this button once a color has been selected." @@ -805,40 +805,40 @@ Public Class FrmSettings 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Diese Schaltfläche erlaubt dir die Farbe des Domina Namens zu ändern in der er im Chat Fenster angezeigt wird. Eine Vorschau wird in der Textbox neben dieser Schaltfläche angezeigt, nachdem eine Farbe ausgewählt wurde." End Sub - Private Sub BTNSubColor_MouseHover(sender As Object, e As System.EventArgs) Handles BTNSubColor.MouseHover + Private Sub BTNSubColor_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNSubColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(BTNSubColor, "This button allows you to change the color of" & Environment.NewLine & - "your name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & - "A preview will appear in the text box next to this" & Environment.NewLine & - "button once a color has been selected.") + "your name as it appears in the chat window." & Environment.NewLine & Environment.NewLine & + "A preview will appear in the text box next to this" & Environment.NewLine & + "button once a color has been selected.") If RBGerman.Checked = True Then TTDir.SetToolTip(BTNSubColor, "Diese Schaltfläche erlaubt dir die Farbe des Sklaven Namens" & Environment.NewLine & - "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & - "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & - "angezeigt, nachdem eine Farbe ausgewählt wurde.") + "zu ändern in der er im Chat Fenster angezeigt wird." & Environment.NewLine & Environment.NewLine & + "Eine Vorschau wird in der Textbox neben dieser Schaltfläche" & Environment.NewLine & + "angezeigt, nachdem eine Farbe ausgewählt wurde.") 'LBLGeneralSettingsDescription.Text = "This button allows you to change the color of your name as it appears in the chat window. A preview will appear in the text box next to this button once a color has been selected." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Diese Schaltfläche erlaubt dir die Farbe des Sklaven Namens zu ändern in der er im Chat Fenster angezeigt wird. Eine Vorschau wird in der Textbox neben dieser Schaltfläche angezeigt, nachdem eine Farbe ausgewählt wurde." End Sub - Private Sub LBLDomColor_Click(sender As System.Object, e As System.EventArgs) Handles LBLDomColor.MouseHover + Private Sub LBLDomColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLDomColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(LBLDomColor, "After clicking the ""Domme Name Color"" button to the" & Environment.NewLine & - "left, a preview of the selected color will appear here.") + "left, a preview of the selected color will appear here.") If RBGerman.Checked = True Then TTDir.SetToolTip(LBLDomColor, "Nachdem Klicken der Schaltfläche ""Domina Farbe für Namen"" zur" & Environment.NewLine & - "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") + "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") 'LBLGeneralSettingsDescription.Text = "After clicking the ""Domme Name Color"" button to the left, a preview of the selected color will appear here." 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Nachdem Klicken der Schaltfläche ""Domina Farbe für Namen"" zur linken, eine Vorschau der ausgewählten Farbe erscheint hier" End Sub - Private Sub LBLSubColor_Click(sender As System.Object, e As System.EventArgs) Handles LBLSubColor.MouseHover + Private Sub LBLSubColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLSubColor.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(LBLSubColor, "After clicking the ""Sub Name Color"" button to the" & Environment.NewLine & - "left, a preview of the selected color will appear here.") + "left, a preview of the selected color will appear here.") If RBGerman.Checked = True Then TTDir.SetToolTip(LBLSubColor, "Nachdem Klicken der Schaltfläche ""Sklaven Farbe für Namen"" zur" & Environment.NewLine & - "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") + "linken, eine Vorschau der ausgewählten Farbe erscheint hier.") 'LBLGeneralSettingsDescription.Text = "After clicking the ""Sub Name Color"" button to the left, a preview of the selected color will appear here." @@ -846,16 +846,16 @@ Public Class FrmSettings 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Nachdem Klicken der Schaltfläche ""Sklaven Farbe für Namen"" zur linken, eine Vorschau der ausgewählten Farbe erscheint hier" End Sub - Private Sub CBDomDel_Click(sender As System.Object, e As System.EventArgs) Handles CBDomDel.MouseHover + Private Sub CBDomDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomDel.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBDomDel, "When this box is checked, the domme will be able to permanently delete" & Environment.NewLine & - "media from your hard drive when such Commands are used in scripts." & Environment.NewLine & Environment.NewLine & - "When this box is NOT checked, media will not actually be deleted. Images will still" & Environment.NewLine & - "disappear from the window, but they will not be deleted from the hard drive.") + "media from your hard drive when such Commands are used in scripts." & Environment.NewLine & Environment.NewLine & + "When this box is NOT checked, media will not actually be deleted. Images will still" & Environment.NewLine & + "disappear from the window, but they will not be deleted from the hard drive.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBDomDel, "Wenn dies aktiviert ist, ist die Domina dazu in der Lage Medien permanent von" & Environment.NewLine & - "deiner Festplatte zu löschen, wenn solche Kommandos in dem Script genutzt werden." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist, werden Bilder vom Bildschirm" & Environment.NewLine & - "verschwinden, aber nicht von der Festplatte gelöscht.") + "deiner Festplatte zu löschen, wenn solche Kommandos in dem Script genutzt werden." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist, werden Bilder vom Bildschirm" & Environment.NewLine & + "verschwinden, aber nicht von der Festplatte gelöscht.") @@ -873,7 +873,7 @@ Public Class FrmSettings 'End Sub - Private Sub CBAutosaveChatlog_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBAutosaveChatlog.MouseClick + Private Sub CBAutosaveChatlog_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBAutosaveChatlog.MouseClick If CBAutosaveChatlog.Checked = True Then My.Settings.CBAutosaveChatlog = True Else @@ -881,7 +881,7 @@ Public Class FrmSettings End If End Sub - Private Sub CBSaveChatlogExit_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBSaveChatlogExit.MouseClick + Private Sub CBSaveChatlogExit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSaveChatlogExit.MouseClick If CBSaveChatlogExit.Checked = True Then My.Settings.CBExitSaveChatlog = True Else @@ -889,7 +889,7 @@ Public Class FrmSettings End If End Sub - Private Sub CBJackInTheBox_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBAuditStartup.MouseClick + Private Sub CBJackInTheBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBAuditStartup.MouseClick If CBAuditStartup.Checked = True Then My.Settings.AuditStartup = True Else @@ -897,7 +897,7 @@ Public Class FrmSettings End If End Sub - Private Sub CBSlideshowSubDir_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBSlideshowSubDir.LostFocus + Private Sub CBSlideshowSubDir_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSlideshowSubDir.LostFocus If CBSlideshowSubDir.Checked = True Then My.Settings.CBSlideshowSubDir = True Else @@ -905,16 +905,16 @@ Public Class FrmSettings End If End Sub - Private Sub CBSlideshowSubDir_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBSlideshowSubDir.MouseHover + Private Sub CBSlideshowSubDir_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSlideshowSubDir.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSlideshowSubDir, "When this is selected, the program will include all subdirectories" & Environment.NewLine & - "when you select a folder for domme slideshow images" & Environment.NewLine & Environment.NewLine & - "When it is unselected, only the images in the top" & Environment.NewLine & - "level of the folder will be used.") + "when you select a folder for domme slideshow images" & Environment.NewLine & Environment.NewLine & + "When it is unselected, only the images in the top" & Environment.NewLine & + "level of the folder will be used.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSlideshowSubDir, "Wenn dies aktiviert ist, wird das Programm alle Unterordner mit" & Environment.NewLine & - "einbeziehn wenn du ein Ordner für Diashow bilder gewählt hast." & Environment.NewLine & Environment.NewLine & - "Wenn dies deaktiviert ist. Werden nur Bilder" & Environment.NewLine & - "des ausgewählten Ordners benutzt.") + "einbeziehn wenn du ein Ordner für Diashow bilder gewählt hast." & Environment.NewLine & Environment.NewLine & + "Wenn dies deaktiviert ist. Werden nur Bilder" & Environment.NewLine & + "des ausgewählten Ordners benutzt.") @@ -925,7 +925,7 @@ Public Class FrmSettings 'Wenn dies deaktiviert ist. Werden nur Bilder des ausgewählten Ordners benutzt" End Sub - Private Sub CBSlideshowRandom_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBSlideshowRandom.LostFocus + Private Sub CBSlideshowRandom_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSlideshowRandom.LostFocus If CBSlideshowRandom.Checked = True Then My.Settings.CBSlideshowRandom = True Else @@ -933,12 +933,12 @@ Public Class FrmSettings End If End Sub - Private Sub CBSlideshowRandom_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBSlideshowRandom.MouseHover + Private Sub CBSlideshowRandom_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSlideshowRandom.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSlideshowRandom, "When this is selected, the slideshow will display images randomly." & Environment.NewLine & - "When it is unselected, it will display images in order of their filename.") + "When it is unselected, it will display images in order of their filename.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSlideshowRandom, "Wenn dies aktiviert ist, werden Diashow Bilder zufällig angezeigt." & Environment.NewLine & - " Wenn dies deaktiviert ist, werden die Bilder in Reihenfolge ihrer Dateinamen gezeigt.") + " Wenn dies deaktiviert ist, werden die Bilder in Reihenfolge ihrer Dateinamen gezeigt.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the slideshow will display images randomly. When it is unselected, it will display images in order of their filename." @@ -946,16 +946,16 @@ Public Class FrmSettings End Sub - Private Sub CBAutosaveChatlog_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBAutosaveChatlog.MouseHover + Private Sub CBAutosaveChatlog_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBAutosaveChatlog.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBAutosaveChatlog, "When this is selected, the program will save a chatlog called" & Environment.NewLine & - """Autosave.html"" any time you or the domme post a message." & Environment.NewLine & Environment.NewLine & - "This log is overwritten each time, so it will only display a record of the current session." & Environment.NewLine & - "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") + """Autosave.html"" any time you or the domme post a message." & Environment.NewLine & Environment.NewLine & + "This log is overwritten each time, so it will only display a record of the current session." & Environment.NewLine & + "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBAutosaveChatlog, "Wenn dies aktiviert ist, speichert das Programm einen Chatlog" & Environment.NewLine & - "(„Autosave.html"") immer wenn du oder die Domina eine Nachricht senden." & Environment.NewLine & Environment.NewLine & - "Dieses Log wird jedes Mal überschrieben, so das es nur die Aktuelle Session aufnimmt/anzeigt." & Environment.NewLine & - "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") + "(„Autosave.html"") immer wenn du oder die Domina eine Nachricht senden." & Environment.NewLine & Environment.NewLine & + "Dieses Log wird jedes Mal überschrieben, so das es nur die Aktuelle Session aufnimmt/anzeigt." & Environment.NewLine & + "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the program will save a chatlog called ""Autosave.html"" any time you or the domme post a message. This log is overwritten each time, so it will only display " & _ @@ -966,14 +966,14 @@ Public Class FrmSettings End Sub - Private Sub CBSaveChatlogExit_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBSaveChatlogExit.MouseHover + Private Sub CBSaveChatlogExit_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSaveChatlogExit.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBSaveChatlogExit, "When this is selected, a unique chatlog that includes the" & Environment.NewLine & - "date and time will be created whenever you exit the program." & Environment.NewLine & Environment.NewLine & - "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") + "date and time will be created whenever you exit the program." & Environment.NewLine & Environment.NewLine & + "This log can be found in the ""Chatlogs"" directory in the root folder of the program.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBSaveChatlogExit, "Wenn dies aktiviert ist, speichert das Programm einen einzigartigen Chatlog," & Environment.NewLine & - "der Datum und Zeit beinhaltet, immer dann wenn du das Programm beendest." & Environment.NewLine & Environment.NewLine & - "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") + "der Datum und Zeit beinhaltet, immer dann wenn du das Programm beendest." & Environment.NewLine & Environment.NewLine & + "Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner.") ' LBLGeneralSettingsDescription.Text = "When this is selected, a unique chatlog that includes the date and time will be created whenever you exit the program. This log can be found in the ""Chatlogs"" directory in " & _ @@ -983,12 +983,12 @@ Public Class FrmSettings 'Programm beendest. Dieses Log befindet sich im Ordner „Chatlogs"" in dem Tease AI Ordner." End Sub - Private Sub CBJackInTheBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBAuditStartup.MouseHover + Private Sub CBJackInTheBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBAuditStartup.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(CBAuditStartup, "When this is checked, the program will automatically audit all" & Environment.NewLine & - "scripts in the current domme's directory and fix common errors.") + "scripts in the current domme's directory and fix common errors.") If RBGerman.Checked = True Then TTDir.SetToolTip(CBAuditStartup, "Wenn dies aktiviert ist, wird das Programm automatisch alle" & Environment.NewLine & - "Scripts im domina Ordner prüfen und häufige Fehler beheben.") + "Scripts im domina Ordner prüfen und häufige Fehler beheben.") 'LBLGeneralSettingsDescription.Text = "When this is checked, the program will automatically audit all scripts in the current domme's directory and fix common errors." @@ -996,13 +996,13 @@ Public Class FrmSettings 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Wenn dies aktiviert ist, wird das Programm automatisch alle Scripts im domina Ordner prüfen und häufige Fehler beheben" End Sub - Private Sub TBSafeword_MouseHover(sender As System.Object, e As System.EventArgs) Handles TBSafeword.MouseHover + Private Sub TBSafeword_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBSafeword.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(TBSafeword, "Use this to set the word you would like to use as your safeword." & Environment.NewLine & Environment.NewLine & - "When used by itself during interaction with the domme, it will stop all activity" & Environment.NewLine & - "and begin an Interrupt script where the domme makes sure you're okay to continue.") + "When used by itself during interaction with the domme, it will stop all activity" & Environment.NewLine & + "and begin an Interrupt script where the domme makes sure you're okay to continue.") If RBGerman.Checked = True Then TTDir.SetToolTip(TBSafeword, "Gebe hier dein Safeword ein, welches alle Aktivitäten der Domina stopt," & Environment.NewLine & - "bis sie sicher ist, das du weiter machen kannst.") + "bis sie sicher ist, das du weiter machen kannst.") 'LBLGeneralSettingsDescription.Text = "Use this to set the word you would like to use as your safeword. When used by itself during interaction with the domme, it will stop all activity and begin an Interrupt" _ ' & " script where the domme makes sure you're okay to continue." @@ -1010,17 +1010,17 @@ Public Class FrmSettings 'If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Gebe hier dein Safeword ein, welches alle Aktivitäten der Domina stopt, bis sie sicher ist, das du weiter machen kannst." End Sub - Private Sub TTSCheckbox_MouseHover(sender As System.Object, e As System.EventArgs) Handles TTSCheckBox.MouseHover + Private Sub TTSCheckbox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TTSCheckBox.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(TTSCheckBox, "When this is selected, the domme will ""speak"" her lines using whichever TTS voice you have selected." & Environment.NewLine & - "This setting must be manually checked to make the most out of the Hypnotic Guide app." & Environment.NewLine & Environment.NewLine & - "For privacy reasons, this setting will not be saved through multiple uses of the program." & Environment.NewLine & - "It must be selected each time you start Tease AI and wish to use it.") + "This setting must be manually checked to make the most out of the Hypnotic Guide app." & Environment.NewLine & Environment.NewLine & + "For privacy reasons, this setting will not be saved through multiple uses of the program." & Environment.NewLine & + "It must be selected each time you start Tease AI and wish to use it.") If RBGerman.Checked = True Then TTDir.SetToolTip(TTSCheckBox, "Wenn dies Aktiviert ist, wird die Domina ihre Zeilen ""sprechen"" mit welcher TTS stimme du gewählt hast." & Environment.NewLine & - "Diese Einstellung muss Manuel gewählt werden um das meiste aus der Hypnotic Guide app zu machen." & Environment.NewLine & Environment.NewLine & - "Wegen der Privatsphäre wird diese Einstellung nicht gespeichert," & Environment.NewLine & - "sondern muss bei jedem Start von Tease AI gesondert gewählt werden.") + "Diese Einstellung muss Manuel gewählt werden um das meiste aus der Hypnotic Guide app zu machen." & Environment.NewLine & Environment.NewLine & + "Wegen der Privatsphäre wird diese Einstellung nicht gespeichert," & Environment.NewLine & + "sondern muss bei jedem Start von Tease AI gesondert gewählt werden.") 'LBLGeneralSettingsDescription.Text = "When this is selected, the domme will ""speak"" her lines using whichever TTS voice you have selected. This setting must be manually checked to make the most out of the" _ @@ -1031,7 +1031,7 @@ Public Class FrmSettings ' sondern muss bei jedem Start von Tease AI gesondert gewählt werden." End Sub - Private Sub TTSComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles TTSComboBox.MouseHover + Private Sub TTSComboBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TTSComboBox.MouseHover TTDir.SetToolTip(TTSComboBox, "Make a selection from the Text-to-Speech voices installed on your computer.") @@ -1046,7 +1046,7 @@ Public Class FrmSettings ' If RBGerman.Checked = True Then LBLGeneralSettingsDescription.Text = "Ziehe die Maus über irgendeine Einstellung um eine genaure Beschreibung der Einstellung zu bekommen." 'End Sub - Private Sub CBLockWindow_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBInputIcon.LostFocus + Private Sub CBLockWindow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBInputIcon.LostFocus If CBInputIcon.Checked = True Then My.Settings.CBInputIcon = True Else @@ -1054,7 +1054,7 @@ Public Class FrmSettings End If End Sub - Private Sub BTNDomColor_Click(sender As System.Object, e As System.EventArgs) Handles BTNDomColor.Click + Private Sub BTNDomColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomColor.Click If GetColor.ShowDialog() = DialogResult.OK Then My.Settings.DomColorColor = GetColor.Color @@ -1065,7 +1065,7 @@ Public Class FrmSettings End Sub - Private Sub BTNSubColor_Click(sender As System.Object, e As System.EventArgs) Handles BTNSubColor.Click + Private Sub BTNSubColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSubColor.Click If GetColor.ShowDialog() = DialogResult.OK Then My.Settings.SubColorColor = GetColor.Color @@ -1077,45 +1077,45 @@ Public Class FrmSettings - Private Sub timedRadio_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles timedRadio.CheckedChanged + Private Sub timedRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timedRadio.CheckedChanged If Form1.ssh.SlideshowLoaded = True And timedRadio.Checked = True Then Form1.ssh.SlideshowTimerTick = slideshowNumBox.Value Form1.SlideshowTimer.Start() End If End Sub - Private Sub teaseRadio_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles teaseRadio.CheckedChanged + Private Sub teaseRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teaseRadio.CheckedChanged If timedRadio.Checked = False And Form1.FormLoading = False Then Form1.SlideshowTimer.Stop() End If End Sub - Private Sub offRadio_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles offRadio.CheckedChanged + Private Sub offRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles offRadio.CheckedChanged If timedRadio.Checked = False Then Form1.SlideshowTimer.Stop() End If End Sub - Private Sub FontComboBoxD_LostFocus(sender As System.Object, e As System.EventArgs) Handles FontComboBoxD.LostFocus + Private Sub FontComboBoxD_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontComboBoxD.LostFocus My.Settings.DomFont = FontComboBoxD.Text End Sub - Private Sub FontComboBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles FontComboBox.LostFocus + Private Sub FontComboBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontComboBox.LostFocus My.Settings.SubFont = FontComboBox.Text End Sub - Private Sub NBFontSizeD_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBFontSizeD.LostFocus + Private Sub NBFontSizeD_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBFontSizeD.LostFocus My.Settings.DomFontSize = NBFontSizeD.Value End Sub - Private Sub NBFontSize_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBFontSize.LostFocus + Private Sub NBFontSize_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBFontSize.LostFocus My.Settings.SubFontSize = NBFontSize.Value End Sub - Private Sub CBImageInfo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBImageInfo.CheckedChanged + Private Sub CBImageInfo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBImageInfo.CheckedChanged If CBImageInfo.Checked = True Then Form1.LBLImageInfo.Visible = True 'Form1.ShowImageInfo() @@ -1127,13 +1127,13 @@ Public Class FrmSettings End If End Sub -#End Region ' General +#End Region ' General #Region "-------------------------------------- Domme Tab -----------------------------------------------" #Region "Save PetNames" - Private Sub petnameBox1_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox1.LostFocus + Private Sub petnameBox1_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox1.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1153,7 +1153,7 @@ Public Class FrmSettings End Sub - Private Sub petnameBox2_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox3.LostFocus + Private Sub petnameBox2_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox3.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1172,7 +1172,7 @@ Public Class FrmSettings End Sub - Private Sub petnameBox3_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox4.LostFocus + Private Sub petnameBox3_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox4.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1191,7 +1191,7 @@ Public Class FrmSettings End Sub - Private Sub petnameBox4_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox7.LostFocus + Private Sub petnameBox4_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox7.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1210,7 +1210,7 @@ Public Class FrmSettings End Sub - Private Sub petnameBox5_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox2.LostFocus + Private Sub petnameBox5_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox2.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1229,7 +1229,7 @@ Public Class FrmSettings End Sub - Private Sub petnameBox6_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox5.LostFocus + Private Sub petnameBox6_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox5.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1248,7 +1248,7 @@ Public Class FrmSettings End Sub - Private Sub petnameBox7_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox6.LostFocus + Private Sub petnameBox7_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox6.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1267,7 +1267,7 @@ Public Class FrmSettings End Sub - Private Sub petnameBox8_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox8.LostFocus + Private Sub petnameBox8_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles petnameBox8.LostFocus Dim BlankName As String BlankName = "stroker" @@ -1319,18 +1319,18 @@ Public Class FrmSettings End Sub - Private Sub domlevelNumBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles domlevelNumBox.LostFocus + Private Sub domlevelNumBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domlevelNumBox.LostFocus My.Settings.DomLevel = domlevelNumBox.Value End Sub - Private Sub alloworgasmComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles alloworgasmComboBox.LostFocus + Private Sub alloworgasmComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alloworgasmComboBox.LostFocus My.Settings.OrgasmAllow = alloworgasmComboBox.Text End Sub - Private Sub ruinorgasmComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ruinorgasmComboBox.LostFocus + Private Sub ruinorgasmComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ruinorgasmComboBox.LostFocus @@ -1340,11 +1340,11 @@ Public Class FrmSettings End Sub - Private Sub domageNumBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles domageNumBox.LostFocus + Private Sub domageNumBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domageNumBox.LostFocus My.Settings.DomAge = domageNumBox.Value End Sub - Private Sub domageNumBox_MouseHover(sender As Object, e As System.EventArgs) Handles domageNumBox.MouseHover + Private Sub domageNumBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles domageNumBox.MouseHover TTDir.SetToolTip(domageNumBox, "Sets the Domme's age (18-99 years old).") @@ -1353,44 +1353,44 @@ Public Class FrmSettings End Sub - Private Sub domlevelNumBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles domlevelNumBox.MouseHover + Private Sub domlevelNumBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domlevelNumBox.MouseHover TTDir.SetToolTip(domlevelNumBox, "Sets the Domme's level (1-5)." & Environment.NewLine & Environment.NewLine & - "This setting affects the difficulty of the tasks the domme will subject you to.") + "This setting affects the difficulty of the tasks the domme will subject you to.") 'LblDommeSettingsDescription.Text = "Sets the Domme's level (1-5)." & Environment.NewLine & Environment.NewLine & "This setting affects the difficulty of the tasks the domme will subject you to. For example, a domme with a higher level may make you hold edges for " _ ' & "longer periods of time, while a domme with a lower level may not make you edge that often. The domme's level is a general guideline of how easy-going or sadistic she can be, not necessarily what she will " _ ' & "choose for you every time." End Sub - Private Sub NBEmpathy_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBEmpathy.MouseHover + Private Sub NBEmpathy_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBEmpathy.MouseHover TTDir.SetToolTip(NBEmpathy, "Sets the Domme's Apathy level (1-5)." & Environment.NewLine & Environment.NewLine & - "This setting affects how merciless the domme is likely to be with you") + "This setting affects how merciless the domme is likely to be with you") 'LblDommeSettingsDescription.Text = "Sets the Domme's Apathy level (1-5)." & Environment.NewLine & Environment.NewLine & "This setting affects how lenient the domme is likely to be with you. For example, a domme with a higher level may rarely take mercy on you or let " _ ' & "you stop a task, while a domme with a lower level may never attempt to push your limits." End Sub - Private Sub NBDomBirthdayMonth_MouseHover(sender As Object, e As System.EventArgs) Handles NBDomBirthdayMonth.MouseHover + Private Sub NBDomBirthdayMonth_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBDomBirthdayMonth.MouseHover TTDir.SetToolTip(NBDomBirthdayMonth, "Sets the month the domme was born.") 'LblDommeSettingsDescription.Text = "Sets the month the domme was born." End Sub - Private Sub NBDomBirthdayDay_MouseHover(sender As Object, e As System.EventArgs) Handles NBDomBirthdayDay.MouseHover + Private Sub NBDomBirthdayDay_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBDomBirthdayDay.MouseHover TTDir.SetToolTip(NBDomBirthdayDay, "Sets the day the domme was born.") 'LblDommeSettingsDescription.Text = "Sets the day the domme was born." End Sub - Private Sub TBDomHairColor_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBDomHairColor.LostFocus + Private Sub TBDomHairColor_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBDomHairColor.LostFocus My.Settings.DomHair = TBDomHairColor.Text End Sub - Private Sub domhairComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles TBDomHairColor.MouseHover + Private Sub domhairComboBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBDomHairColor.MouseHover TTDir.SetToolTip(TBDomHairColor, "Sets the domme's hair color.") @@ -1398,11 +1398,11 @@ Public Class FrmSettings ' "of the slideshow model's hair to enhance immersion." End Sub - Private Sub domhairlengthComboBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles domhairlengthComboBox.LostFocus + Private Sub domhairlengthComboBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domhairlengthComboBox.LostFocus My.Settings.DomHairLength = domhairlengthComboBox.Text End Sub - Private Sub domhairlengthComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles domhairlengthComboBox.MouseHover + Private Sub domhairlengthComboBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domhairlengthComboBox.MouseHover TTDir.SetToolTip(domhairlengthComboBox, "Sets the domme's hair length.") @@ -1410,11 +1410,11 @@ Public Class FrmSettings ' "of the slideshow model's hair to enhance immersion." End Sub - Private Sub TBDomEyeColor_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBDomEyeColor.LostFocus + Private Sub TBDomEyeColor_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBDomEyeColor.LostFocus My.Settings.DomEyes = TBDomEyeColor.Text End Sub - Private Sub domeyesComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles TBDomEyeColor.MouseHover + Private Sub domeyesComboBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBDomEyeColor.MouseHover TTDir.SetToolTip(TBDomEyeColor, "Sets the domme's eye color.") @@ -1422,11 +1422,11 @@ Public Class FrmSettings ' "of the slideshow model's eyes to enhance immersion." End Sub - Private Sub boobComboBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles boobComboBox.LostFocus + Private Sub boobComboBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles boobComboBox.LostFocus My.Settings.DomCup = boobComboBox.Text End Sub - Private Sub boobComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles boobComboBox.MouseHover + Private Sub boobComboBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles boobComboBox.MouseHover TTDir.SetToolTip(boobComboBox, "Sets the Domme's cup size.") @@ -1434,11 +1434,11 @@ Public Class FrmSettings ' "slideshow model's cup size to enhance immersion." End Sub - Private Sub dompubichairComboBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles dompubichairComboBox.LostFocus + Private Sub dompubichairComboBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dompubichairComboBox.LostFocus My.Settings.DomPubicHair = dompubichairComboBox.Text End Sub - Private Sub dompubichairComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles dompubichairComboBox.MouseHover + Private Sub dompubichairComboBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dompubichairComboBox.MouseHover TTDir.SetToolTip(dompubichairComboBox, "Sets description of the Domme's pubic hair.") @@ -1447,7 +1447,7 @@ Public Class FrmSettings End Sub - Private Sub crazyCheckBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles crazyCheckBox.LostFocus + Private Sub crazyCheckBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crazyCheckBox.LostFocus If crazyCheckBox.Checked = True Then My.Settings.DomCrazy = True Else @@ -1455,16 +1455,16 @@ Public Class FrmSettings End If End Sub - Private Sub crazyCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles crazyCheckBox.MouseHover + Private Sub crazyCheckBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crazyCheckBox.MouseHover TTDir.SetToolTip(crazyCheckBox, "Gives the Domme the Crazy trait." & Environment.NewLine & Environment.NewLine & - "This will open up dialogue options that suggest the domme is a little unhinged.") + "This will open up dialogue options that suggest the domme is a little unhinged.") 'LblDommeSettingsDescription.Text = "Gives the Domme the Crazy trait." & Environment.NewLine & Environment.NewLine & "This will open up dialogue options that suggest the domme is a little unhinged. " & _ ' "Scripts may also contain keywords and variables that will limit certain paths to this trait." End Sub - Private Sub CBDomTattoos_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBDomTattoos.LostFocus + Private Sub CBDomTattoos_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomTattoos.LostFocus If CBDomTattoos.Checked = True Then My.Settings.DomTattoos = True Else @@ -1472,7 +1472,7 @@ Public Class FrmSettings End If End Sub - Private Sub CBDomTattoos_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBDomTattoos.MouseHover + Private Sub CBDomTattoos_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomTattoos.MouseHover TTDir.SetToolTip(CBDomTattoos, "Sets whether the domme has tattoos.") @@ -1481,7 +1481,7 @@ Public Class FrmSettings End Sub - Private Sub CBDomFreckles_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBDomFreckles.LostFocus + Private Sub CBDomFreckles_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomFreckles.LostFocus If CBDomFreckles.Checked = True Then My.Settings.DomFreckles = True Else @@ -1489,7 +1489,7 @@ Public Class FrmSettings End If End Sub - Private Sub CBDomFreckles_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBDomFreckles.MouseHover + Private Sub CBDomFreckles_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomFreckles.MouseHover TTDir.SetToolTip(CBDomTattoos, "Sets whether the domme has freckles.") @@ -1497,7 +1497,7 @@ Public Class FrmSettings ' "Scripts may also contain keywords and variables that will limit certain paths to this trait." End Sub - Private Sub vulgarCheckBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles vulgarCheckBox.LostFocus + Private Sub vulgarCheckBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vulgarCheckBox.LostFocus If vulgarCheckBox.Checked = True Then My.Settings.DomVulgar = True Else @@ -1505,16 +1505,16 @@ Public Class FrmSettings End If End Sub - Private Sub vulgarCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles vulgarCheckBox.MouseHover + Private Sub vulgarCheckBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vulgarCheckBox.MouseHover TTDir.SetToolTip(vulgarCheckBox, "Gives the Domme the Vulgar trait." & Environment.NewLine & Environment.NewLine & - "This will open up vulgar dialogue options for the domme.") + "This will open up vulgar dialogue options for the domme.") 'LblDommeSettingsDescription.Text = "Gives the Domme the Vulgar trait." & Environment.NewLine & Environment.NewLine & "This will open up vulgar dialogue options for the domme. She will include words like ""titties"" and " & _ ' """gonads"" while a more reserved domme may limit herself to ""tits"" and ""balls"". Scripts may also contain keywords and variables that will limit certain paths to this trait." End Sub - Private Sub supremacistCheckBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles supremacistCheckBox.LostFocus + Private Sub supremacistCheckBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles supremacistCheckBox.LostFocus If supremacistCheckBox.Checked = True Then My.Settings.DomSupremacist = True Else @@ -1522,17 +1522,17 @@ Public Class FrmSettings End If End Sub - Private Sub supremacistCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles supremacistCheckBox.MouseHover + Private Sub supremacistCheckBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles supremacistCheckBox.MouseHover TTDir.SetToolTip(supremacistCheckBox, "Gives the Domme the Supremacist trait." & Environment.NewLine & Environment.NewLine & - "This will open up dialogue options that suggest the" & Environment.NewLine & - "domme considers herself inherently superior to you.") + "This will open up dialogue options that suggest the" & Environment.NewLine & + "domme considers herself inherently superior to you.") ' LblDommeSettingsDescription.Text = "Gives the Domme the Supremacist trait." & Environment.NewLine & Environment.NewLine & "This will open up dialogue options that suggest the domme considers herself inherently superior " & _ ' "to you. Scripts may also contain keywords and variables that will limit certain paths to this trait." End Sub - Private Sub LCaseCheckBoxCheckBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles LCaseCheckBox.LostFocus + Private Sub LCaseCheckBoxCheckBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LCaseCheckBox.LostFocus If LCaseCheckBox.Checked = True Then My.Settings.DomLowercase = True Else @@ -1540,33 +1540,33 @@ Public Class FrmSettings End If End Sub - Private Sub alloworgasmComboBox_MouseHover(sender As Object, e As System.EventArgs) Handles alloworgasmComboBox.MouseHover + Private Sub alloworgasmComboBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles alloworgasmComboBox.MouseHover TTDir.SetToolTip(alloworgasmComboBox, "Sets how often the domme allows the user to have an orgasm during End scripts." & Environment.NewLine & Environment.NewLine & - "To further define these parameters, use the options in the Ranges tab.") + "To further define these parameters, use the options in the Ranges tab.") 'LblDommeSettingsDescription.Text = "Sets how often the domme allows the user to have an orgasm during End scripts." & Environment.NewLine & Environment.NewLine & "To further define these parameters, use the options in the Ranges tab." End Sub - Private Sub ruinorgasmComboBox_MouseHover(sender As Object, e As System.EventArgs) Handles ruinorgasmComboBox.MouseHover + Private Sub ruinorgasmComboBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ruinorgasmComboBox.MouseHover TTDir.SetToolTip(ruinorgasmComboBox, "Sets how often the domme will ruin the user's orgasm during End scripts." & Environment.NewLine & Environment.NewLine & - "To further define these parameters, use the options in the Ranges tab.") + "To further define these parameters, use the options in the Ranges tab.") 'LblDommeSettingsDescription.Text = "Sets how often the domme will ruin the user's orgasm during End scripts." & Environment.NewLine & Environment.NewLine & "To further define these parameters, use the options in the Ranges tab." End Sub - Private Sub LCaseCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles LCaseCheckBox.MouseHover + Private Sub LCaseCheckBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LCaseCheckBox.MouseHover TTDir.SetToolTip(LCaseCheckBox, "When this is checked, the domme won't use capital letters when she types." & Environment.NewLine & Environment.NewLine & - "She will still capitalize Me/My/Mine if that box is checked.") + "She will still capitalize Me/My/Mine if that box is checked.") 'LblDommeSettingsDescription.Text = "When this is checked, the domme won't use capital letters when she types." & Environment.NewLine & Environment.NewLine & "She will still capitalize Me/My/Mine if that box is checked." End Sub - Private Sub apostropheCheckBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles apostropheCheckBox.LostFocus + Private Sub apostropheCheckBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles apostropheCheckBox.LostFocus If apostropheCheckBox.Checked = True Then My.Settings.DomNoApostrophes = True Else @@ -1574,14 +1574,14 @@ Public Class FrmSettings End If End Sub - Private Sub apostropheCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles apostropheCheckBox.MouseHover + Private Sub apostropheCheckBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles apostropheCheckBox.MouseHover TTDir.SetToolTip(apostropheCheckBox, "When this is checked, the domme won't use apostrophes when she types.") 'LblDommeSettingsDescription.Text = "When this is checked, the domme won't use apostrophes when she types." End Sub - Private Sub commaCheckBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles commaCheckBox.LostFocus + Private Sub commaCheckBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles commaCheckBox.LostFocus If commaCheckBox.Checked = True Then My.Settings.DomNoCommas = True Else @@ -1589,14 +1589,14 @@ Public Class FrmSettings End If End Sub - Private Sub commaCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles commaCheckBox.MouseHover + Private Sub commaCheckBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles commaCheckBox.MouseHover TTDir.SetToolTip(commaCheckBox, "When this is checked, the domme won't use commas when she types.") 'LblDommeSettingsDescription.Text = "When this is checked, the domme won't use commas when she types." End Sub - Private Sub periodCheckBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles periodCheckBox.LostFocus + Private Sub periodCheckBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles periodCheckBox.LostFocus If periodCheckBox.Checked = True Then My.Settings.DomNoPeriods = True Else @@ -1604,14 +1604,14 @@ Public Class FrmSettings End If End Sub - Private Sub periodCheckBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles periodCheckBox.MouseHover + Private Sub periodCheckBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles periodCheckBox.MouseHover TTDir.SetToolTip(periodCheckBox, "When this is checked, the domme won't use periods when she types.") 'LblDommeSettingsDescription.Text = "When this is checked, the domme won't use periods when she types." End Sub - Private Sub CBMeMyMine_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBMeMyMine.LostFocus + Private Sub CBMeMyMine_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBMeMyMine.LostFocus If CBMeMyMine.Checked = True Then My.Settings.DomMeMyMine = True Else @@ -1619,37 +1619,37 @@ Public Class FrmSettings End If End Sub - Private Sub CBMeMyMine_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBMeMyMine.MouseHover + Private Sub CBMeMyMine_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBMeMyMine.MouseHover TTDir.SetToolTip(CBMeMyMine, "When this is checked, the domme will always capitalize ""Me, My and Mine""." & Environment.NewLine & Environment.NewLine & "If the lowercase typing option is checked, she will also capitalize ""I, I'm, I'd and I'll"".") End Sub - Private Sub TBEmote_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBEmote.LostFocus + Private Sub TBEmote_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBEmote.LostFocus My.Settings.TBEmote = TBEmote.Text End Sub - Private Sub TBEmoteEnd_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBEmoteEnd.LostFocus + Private Sub TBEmoteEnd_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBEmoteEnd.LostFocus My.Settings.TBEmoteEnd = TBEmoteEnd.Text End Sub - Private Sub TBEmote_MouseHover(sender As System.Object, e As System.EventArgs) Handles TBEmote.MouseHover + Private Sub TBEmote_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBEmote.MouseHover TTDir.SetToolTip(TBEmote, "This determines what symbol(s) the domme uses to begin an emote.") End Sub - Private Sub TBEmoteEnd_MouseHover(sender As System.Object, e As System.EventArgs) Handles TBEmoteEnd.MouseHover + Private Sub TBEmoteEnd_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBEmoteEnd.MouseHover TTDir.SetToolTip(TBEmoteEnd, "This determines what symbol(s) the domme uses to end an emote.") End Sub - Private Sub LockOrgasmChances_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBLockOrgasmChances.MouseHover + Private Sub LockOrgasmChances_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBLockOrgasmChances.MouseHover TTDir.SetToolTip(CBLockOrgasmChances, "If checked the orgasm chances will be locked and unchangeable once you start the tease." & Environment.NewLine & Environment.NewLine & - "Orgasm chances will be changeable and unlocked when out of a tease.") + "Orgasm chances will be changeable and unlocked when out of a tease.") End Sub - Private Sub CBDomDenialEnds_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBDomDenialEnds.LostFocus + Private Sub CBDomDenialEnds_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomDenialEnds.LostFocus If CBDomDenialEnds.Checked = True Then My.Settings.DomDenialEnd = True Else @@ -1657,13 +1657,13 @@ Public Class FrmSettings End If End Sub - Private Sub CBDomDenialEnds_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBDomDenialEnds.MouseHover + Private Sub CBDomDenialEnds_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomDenialEnds.MouseHover TTDir.SetToolTip(CBDomDenialEnds, "Determines whether the domme will keep teasing you after you have been denied." & Environment.NewLine & Environment.NewLine & - "If this box is checked, she will end the tease after she decides to deny your orgasm." & Environment.NewLine & - "If it is unchecked, she may choose to start teasing you all over again.") + "If this box is checked, she will end the tease after she decides to deny your orgasm." & Environment.NewLine & + "If it is unchecked, she may choose to start teasing you all over again.") End Sub - Private Sub CBDomOrgasmEnds_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBDomOrgasmEnds.LostFocus + Private Sub CBDomOrgasmEnds_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomOrgasmEnds.LostFocus If CBDomOrgasmEnds.Checked = True Then My.Settings.DomOrgasmEnd = True Else @@ -1671,62 +1671,62 @@ Public Class FrmSettings End If End Sub - Private Sub CBDomOrgasmEnds_MouseHover(sender As System.Object, e As System.EventArgs) Handles CBDomOrgasmEnds.MouseHover + Private Sub CBDomOrgasmEnds_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBDomOrgasmEnds.MouseHover TTDir.SetToolTip(CBDomOrgasmEnds, "Determines whether the domme will keep teasing you after you have an orgasm." & Environment.NewLine & Environment.NewLine & - "If this box is checked, she will end the tease after she allows you to cum." & Environment.NewLine & - "If it is unchecked, she may choose to start teasing you all over again.") + "If this box is checked, she will end the tease after she allows you to cum." & Environment.NewLine & + "If it is unchecked, she may choose to start teasing you all over again.") End Sub - Private Sub LockOrgasm_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmsperlockButton.MouseHover + Private Sub LockOrgasm_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles orgasmsperlockButton.MouseHover TTDir.SetToolTip(orgasmsperlockButton, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub - Private Sub limitcheckbox_MouseHover(sender As System.Object, e As System.EventArgs) Handles limitcheckbox.MouseHover + Private Sub limitcheckbox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles limitcheckbox.MouseHover TTDir.SetToolTip(limitcheckbox, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub - Private Sub orgasmsPerNumBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmsPerNumBox.MouseHover + Private Sub orgasmsPerNumBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles orgasmsPerNumBox.MouseHover TTDir.SetToolTip(orgasmsPerNumBox, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub - Private Sub orgasmsperComboBox_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmsperComboBox.MouseHover + Private Sub orgasmsperComboBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles orgasmsperComboBox.MouseHover TTDir.SetToolTip(orgasmsperComboBox, "When this arrangement is selected, the domme will limit the number of" & Environment.NewLine & - "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & - "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & - "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") + "orgasms she allows you to have according to the parameters you set." & Environment.NewLine & Environment.NewLine & + "This will not be finalized until the Limit box is checked and you click ""Lock Selected""." & Environment.NewLine & + "Once an orgasm limit has been finalized, it cannot be undone until the period of time is up!") End Sub - Private Sub LockRandomOrgasm_MouseHover(sender As System.Object, e As System.EventArgs) Handles orgasmlockrandombutton.MouseHover + Private Sub LockRandomOrgasm_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles orgasmlockrandombutton.MouseHover TTDir.SetToolTip(orgasmsperComboBox, "When this arrangement is selected, the domme will randomly limit the" & Environment.NewLine & - "number of orgasms she allows you to have for a random period of time." & Environment.NewLine & Environment.NewLine & - "Once you confirm this choice, it cannot be undone until the period of time is up!") + "number of orgasms she allows you to have for a random period of time." & Environment.NewLine & Environment.NewLine & + "Once you confirm this choice, it cannot be undone until the period of time is up!") 'LblDommeSettingsDescription.Text = "When this button is clicked, the domme will randomly limit the number of orgasms she allows you to have for a random period of time." & Environment.NewLine & Environment.NewLine & _ ' "Her choice will be based on her level, so be careful. A higher level domme could limit the amount of orgasms you have for up to a year! Once you confirm this choice, it cannot be undone until the period of time is up!" End Sub - Private Sub NBDomMoodMin_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMin.LostFocus + Private Sub NBDomMoodMin_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomMoodMin.LostFocus My.Settings.DomMoodMin = NBDomMoodMin.Value End Sub - Private Sub NBDomMoodMin_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMin.MouseHover + Private Sub NBDomMoodMin_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomMoodMin.MouseHover TTDir.SetToolTip(NBDomMoodMin, "Determines the low range of the domme's mood index." & Environment.NewLine & - "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & - "The higher this number is, the easier it is to put her in a bad mood." & Environment.NewLine & - "Setting this value to ""1"" will prevent the domme from ever being in a bad mood.") + "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & + "The higher this number is, the easier it is to put her in a bad mood." & Environment.NewLine & + "Setting this value to ""1"" will prevent the domme from ever being in a bad mood.") @@ -1734,16 +1734,16 @@ Public Class FrmSettings ' "The higher this number is, the easier it is to put her in a bad mood. Setting this value to ""1"" will prevent the domme from ever being in a bad mood." End Sub - Private Sub NBDomMoodMax_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMax.LostFocus + Private Sub NBDomMoodMax_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomMoodMax.LostFocus My.Settings.DomMoodMax = NBDomMoodMax.Value End Sub - Private Sub NBDomMoodMax_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMax.MouseHover + Private Sub NBDomMoodMax_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomMoodMax.MouseHover TTDir.SetToolTip(NBDomMoodMax, "Determines the high range of the domme's mood index." & Environment.NewLine & - "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & - "The lower this number is, the easier it is to put her in a good mood." & Environment.NewLine & - "Setting this value to ""10"" will prevent the domme from ever being in an especially great mood.") + "The domme's mood may affect certain dialogue choices or outcomes." & Environment.NewLine & Environment.NewLine & + "The lower this number is, the easier it is to put her in a good mood." & Environment.NewLine & + "Setting this value to ""10"" will prevent the domme from ever being in an especially great mood.") @@ -1751,150 +1751,150 @@ Public Class FrmSettings ' "The lower this number is, the easier it is to put her in an especially great mood. Setting this value to ""10"" will prevent the domme from ever being in an especially great mood." End Sub - Private Sub NBDomMoodMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMin.ValueChanged + Private Sub NBDomMoodMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomMoodMin.ValueChanged If NBDomMoodMin.Value > NBDomMoodMax.Value Then NBDomMoodMin.Value = NBDomMoodMax.Value End Sub - Private Sub NBDomMoodMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBDomMoodMax.ValueChanged + Private Sub NBDomMoodMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomMoodMax.ValueChanged If NBDomMoodMax.Value < NBDomMoodMin.Value Then NBDomMoodMax.Value = NBDomMoodMin.Value End Sub - Private Sub NBAvgCockMin_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMin.LostFocus + Private Sub NBAvgCockMin_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAvgCockMin.LostFocus My.Settings.AvgCockMin = NBAvgCockMin.Value End Sub - Private Sub NBAvgCockMin_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMin.MouseHover + Private Sub NBAvgCockMin_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAvgCockMin.MouseHover TTDir.SetToolTip(NBAvgCockMin, "Determines the lowest range of what the domme considers an average cock size." & Environment.NewLine & Environment.NewLine & - "If your cock size is lower then this, the domme will consider it small.") + "If your cock size is lower then this, the domme will consider it small.") End Sub - Private Sub NBAvgCockMax_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMax.LostFocus + Private Sub NBAvgCockMax_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAvgCockMax.LostFocus My.Settings.AvgCockMax = NBAvgCockMax.Value End Sub - Private Sub NBAvgCockMax_MouseHover(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMax.MouseHover + Private Sub NBAvgCockMax_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAvgCockMax.MouseHover TTDir.SetToolTip(NBAvgCockMin, "Determines the highest range of what the domme considers an average cock size." & Environment.NewLine & Environment.NewLine & "If your cock size is higher than this, the domme will consider it big.") End Sub - Private Sub NBAvgCockMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMin.ValueChanged + Private Sub NBAvgCockMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAvgCockMin.ValueChanged If NBAvgCockMin.Value > NBAvgCockMax.Value Then NBAvgCockMin.Value = NBAvgCockMax.Value End Sub - Private Sub NBAvgCockMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBAvgCockMax.ValueChanged + Private Sub NBAvgCockMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAvgCockMax.ValueChanged If NBAvgCockMax.Value < NBAvgCockMin.Value Then NBAvgCockMax.Value = NBAvgCockMin.Value End Sub - Private Sub NBSelfAgeMin_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBSelfAgeMin.LostFocus + Private Sub NBSelfAgeMin_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSelfAgeMin.LostFocus My.Settings.SelfAgeMin = NBSelfAgeMin.Value End Sub - Private Sub NBSelfAgeMin_Enter(sender As Object, e As System.EventArgs) Handles NBSelfAgeMin.MouseHover + Private Sub NBSelfAgeMin_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBSelfAgeMin.MouseHover TTDir.SetToolTip(NBSelfAgeMin, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If the domme's age is below this number, she will use dialogue options that suggest" & Environment.NewLine & - "having the maturity and body of a girl in her early twenties.") + "If the domme's age is below this number, she will use dialogue options that suggest" & Environment.NewLine & + "having the maturity and body of a girl in her early twenties.") End Sub - Private Sub NBSelfAgeMax_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBSelfAgeMax.LostFocus + Private Sub NBSelfAgeMax_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSelfAgeMax.LostFocus My.Settings.SelfAgeMax = NBSelfAgeMax.Value End Sub - Private Sub NBSelfAgeMax_Enter(sender As Object, e As System.EventArgs) Handles NBSelfAgeMax.MouseHover + Private Sub NBSelfAgeMax_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBSelfAgeMax.MouseHover TTDir.SetToolTip(NBSelfAgeMax, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If the domme's age is above this number, she will use dialogue options that suggest" & Environment.NewLine & - "an exceptional amount of maturity, or having an aging body.") + "If the domme's age is above this number, she will use dialogue options that suggest" & Environment.NewLine & + "an exceptional amount of maturity, or having an aging body.") End Sub - Private Sub NBSelfAgeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBSelfAgeMin.ValueChanged + Private Sub NBSelfAgeMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSelfAgeMin.ValueChanged If NBSelfAgeMin.Value > NBSelfAgeMax.Value Then NBSelfAgeMin.Value = NBSelfAgeMax.Value End Sub - Private Sub NBSelfAgeMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBSelfAgeMax.ValueChanged + Private Sub NBSelfAgeMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSelfAgeMax.ValueChanged If NBSelfAgeMax.Value < NBSelfAgeMin.Value Then NBSelfAgeMax.Value = NBSelfAgeMin.Value End Sub - Private Sub NBSubAgeMin_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBSubAgeMin.LostFocus + Private Sub NBSubAgeMin_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSubAgeMin.LostFocus My.Settings.SubAgeMin = NBSubAgeMin.Value End Sub - Private Sub NBSubAgeMin_Enter(sender As Object, e As System.EventArgs) Handles NBSubAgeMin.MouseHover + Private Sub NBSubAgeMin_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBSubAgeMin.MouseHover TTDir.SetToolTip(NBSubAgeMin, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If your age is below this number, the domme will use dialogue options that suggest" & Environment.NewLine & - "you have the virility and body of a male in his early twenties.") + "If your age is below this number, the domme will use dialogue options that suggest" & Environment.NewLine & + "you have the virility and body of a male in his early twenties.") End Sub - Private Sub NBSubAgeMax_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBSubAgeMax.LostFocus + Private Sub NBSubAgeMax_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSubAgeMax.LostFocus My.Settings.SubAgeMax = NBSubAgeMax.Value End Sub - Private Sub NBSubAgeMax_Enter(sender As Object, e As System.EventArgs) Handles NBSubAgeMax.MouseHover + Private Sub NBSubAgeMax_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBSubAgeMax.MouseHover TTDir.SetToolTip(NBSubAgeMax, "This is the age range that the domme considers ""not that young, but not that old""." & Environment.NewLine & Environment.NewLine & - "If your age is above this number, the domme will use dialogue options that suggest" & Environment.NewLine & - "you're over the hill.") + "If your age is above this number, the domme will use dialogue options that suggest" & Environment.NewLine & + "you're over the hill.") End Sub - Private Sub NBSubAgeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBSubAgeMin.ValueChanged + Private Sub NBSubAgeMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSubAgeMin.ValueChanged If NBSubAgeMin.Value > NBSubAgeMax.Value Then NBSubAgeMin.Value = NBSubAgeMax.Value End Sub - Private Sub NBSubAgeMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBSubAgeMax.ValueChanged + Private Sub NBSubAgeMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBSubAgeMax.ValueChanged If NBSubAgeMax.Value < NBSubAgeMin.Value Then NBSubAgeMax.Value = NBSubAgeMin.Value End Sub - Private Sub PetNameBox1_Enter(sender As Object, e As System.EventArgs) Handles petnameBox1.MouseHover + Private Sub PetNameBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox1.MouseHover TTDir.SetToolTip(petnameBox1, "Enter a pet name that the domme will call you when she's in a great mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub PetNameBox2_Enter(sender As Object, e As System.EventArgs) Handles petnameBox2.MouseHover + Private Sub PetNameBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox2.MouseHover TTDir.SetToolTip(petnameBox2, "Enter a pet name that the domme will call you when she's in a great mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub PetNameBox3_Enter(sender As Object, e As System.EventArgs) Handles petnameBox3.MouseHover + Private Sub PetNameBox3_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox3.MouseHover TTDir.SetToolTip(petnameBox3, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub PetNameBox4_Enter(sender As Object, e As System.EventArgs) Handles petnameBox4.MouseHover + Private Sub PetNameBox4_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox4.MouseHover TTDir.SetToolTip(petnameBox4, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub PetNameBox5_Enter(sender As Object, e As System.EventArgs) Handles petnameBox5.MouseHover + Private Sub PetNameBox5_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox5.MouseHover TTDir.SetToolTip(petnameBox5, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub PetNameBox6_Enter(sender As Object, e As System.EventArgs) Handles petnameBox6.MouseHover + Private Sub PetNameBox6_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox6.MouseHover TTDir.SetToolTip(petnameBox6, "Enter a pet name that the domme will call you when she's in a neutral mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub PetNameBox7_Enter(sender As Object, e As System.EventArgs) Handles petnameBox7.MouseHover + Private Sub PetNameBox7_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox7.MouseHover TTDir.SetToolTip(petnameBox7, "Enter a pet name that the domme will call you when she's in a bad mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub PetNameBox8_Enter(sender As Object, e As System.EventArgs) Handles petnameBox8.MouseHover + Private Sub PetNameBox8_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles petnameBox8.MouseHover TTDir.SetToolTip(petnameBox8, "Enter a pet name that the domme will call you when she's in a bad mood." & Environment.NewLine & Environment.NewLine & - "All pet name boxes must be filled in.") + "All pet name boxes must be filled in.") End Sub - Private Sub BTNSaveDomSet_MouseHover(sender As Object, e As System.EventArgs) Handles BTNSaveDomSet.MouseHover + Private Sub BTNSaveDomSet_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNSaveDomSet.MouseHover TTDir.SetToolTip(BTNSaveDomSet, "Click to save this configuration of Domme Settings to a file that you can load at any time.") End Sub - Private Sub BTNLoadDomSet_MouseHover(sender As Object, e As System.EventArgs) Handles BTNLoadDomSet.MouseHover + Private Sub BTNLoadDomSet_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNLoadDomSet.MouseHover TTDir.SetToolTip(BTNLoadDomSet, "Click to load a custom Domme Settings file you have previously created.") End Sub - Private Sub NBEmpathy_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBEmpathy.LostFocus + Private Sub NBEmpathy_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBEmpathy.LostFocus If NBEmpathy.Value = 1 Then My.Settings.DomEmpathy = 1 If NBEmpathy.Value = 2 Then My.Settings.DomEmpathy = 2 @@ -1910,7 +1910,7 @@ Public Class FrmSettings End Sub - Private Sub domlevelNumBox_ValueChanged(sender As System.Object, e As System.EventArgs) Handles domlevelNumBox.ValueChanged + Private Sub domlevelNumBox_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles domlevelNumBox.ValueChanged If FrmSettingsLoading = False Then If domlevelNumBox.Value = 1 Then DomLevelDescLabel.Text = "Gentle" If domlevelNumBox.Value = 2 Then DomLevelDescLabel.Text = "Lenient" @@ -1920,7 +1920,7 @@ Public Class FrmSettings End If End Sub - Private Sub NBEmpathy_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBEmpathy.ValueChanged + Private Sub NBEmpathy_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBEmpathy.ValueChanged If FrmSettingsLoading = False Then If NBEmpathy.Value = 1 Then LBLEmpathy.Text = "Cautious" If NBEmpathy.Value = 2 Then LBLEmpathy.Text = "Caring" @@ -1930,7 +1930,7 @@ Public Class FrmSettings End If End Sub -#End Region ' Domme +#End Region ' Domme #Region "-------------------------------------- Scripts -------------------------------------------------" @@ -1939,7 +1939,7 @@ Public Class FrmSettings ''' ''' ''' - Private Sub TCScripts_TabIndexChanged(sender As Object, e As System.EventArgs) Handles TCScripts.SelectedIndexChanged + Private Sub TCScripts_TabIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TCScripts.SelectedIndexChanged If TCScripts.SelectedTab Is TabPage21 Then CLBStartList.Focus() @@ -1952,10 +1952,10 @@ Public Class FrmSettings End If End Sub - Public Shared Sub saveCheckedListBox(target As CheckedListBox, filePath As String) + Public Shared Sub saveCheckedListBox(ByVal target As CheckedListBox, ByVal filePath As String) Try If Not Directory.Exists(Path.GetDirectoryName(filePath)) Then _ - Directory.CreateDirectory(Path.GetDirectoryName(filePath)) + Directory.CreateDirectory(Path.GetDirectoryName(filePath)) Using fs As New FileStream(filePath, IO.FileMode.Create), BinWrite As New BinaryWriter(fs) For i = 0 To target.Items.Count - 1 @@ -2017,10 +2017,10 @@ Public Class FrmSettings End Try End Sub - Private Sub loadCheckedListBox(target As CheckedListBox, - ByVal loadPath As String, - ByVal scriptDir As String, - ByVal Optional preEnable As Boolean = True) + Private Sub loadCheckedListBox(ByVal target As CheckedListBox, + ByVal loadPath As String, + ByVal scriptDir As String, + Optional ByVal preEnable As Boolean = True) Try Dim Modified As Boolean = False @@ -2135,7 +2135,7 @@ SkipDeserializing: End Try End Sub - Private Sub CLBStartList_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CLBStartList.SelectedIndexChanged, CLBModuleList.SelectedIndexChanged, CLBLinkList.SelectedIndexChanged, CLBEndList.SelectedIndexChanged + Private Sub CLBStartList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLBStartList.SelectedIndexChanged, CLBModuleList.SelectedIndexChanged, CLBLinkList.SelectedIndexChanged, CLBEndList.SelectedIndexChanged Try Dim target As CheckedListBox = DirectCast(sender, CheckedListBox) Dim Scriptfolder As String = "" @@ -2508,7 +2508,7 @@ SkipDeserializing: - Private Sub BtnScriptsOpen_Click(sender As System.Object, e As System.EventArgs) Handles BTNScriptOpen.Click + Private Sub BtnScriptsOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNScriptOpen.Click Dim Filepath As String = "" Try If CLBStartList.Visible = True Then @@ -2524,7 +2524,7 @@ SkipDeserializing: End If If Not File.Exists(Filepath) Then _ - Throw New FileNotFoundException("Unable to locate file """ & Filepath & """.") + Throw New FileNotFoundException("Unable to locate file """ & Filepath & """.") Form1.ShellExecute(Filepath) Catch ex As Exception @@ -2536,7 +2536,7 @@ SkipDeserializing: End Sub - Private Sub BtnScriptsSelectAutomated_Click(sender As System.Object, e As System.EventArgs) Handles BTNScriptAvailable.Click, BTNScriptNone.Click, BTNScriptAll.Click + Private Sub BtnScriptsSelectAutomated_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNScriptAvailable.Click, BTNScriptNone.Click, BTNScriptAll.Click ' Lock Buttons to prevent double trigger BTNScriptAvailable.Enabled = False BTNScriptNone.Enabled = False @@ -2881,13 +2881,13 @@ SkipDeserializing: End Try End Sub -#End Region ' Scripts +#End Region ' Scripts #Region "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Apps ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" #Region "----------------------------------------- Glitter ----------------------------------------------" - Private Sub GlitterAV_Click_1(sender As System.Object, e As System.EventArgs) Handles GlitterAV.Click + Private Sub GlitterAV_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GlitterAV.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then Try GlitterAV.Image.Dispose() @@ -2899,7 +2899,7 @@ SkipDeserializing: My.Settings.GlitterAV = OpenFileDialog1.FileName End If End Sub - Private Sub GlitterAV1_Click(sender As System.Object, e As System.EventArgs) Handles GlitterAV1.Click + Private Sub GlitterAV1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GlitterAV1.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then Try GlitterAV1.Image.Dispose() @@ -2911,7 +2911,7 @@ SkipDeserializing: My.Settings.GlitterAV1 = OpenFileDialog1.FileName End If End Sub - Private Sub GlitterAV2_Click(sender As System.Object, e As System.EventArgs) Handles GlitterAV2.Click + Private Sub GlitterAV2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GlitterAV2.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then Try GlitterAV2.Image.Dispose() @@ -2923,7 +2923,7 @@ SkipDeserializing: My.Settings.GlitterAV2 = OpenFileDialog1.FileName End If End Sub - Private Sub GlitterAV3_Click(sender As System.Object, e As System.EventArgs) Handles GlitterAV3.Click + Private Sub GlitterAV3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GlitterAV3.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then Try GlitterAV3.Image.Dispose() @@ -2937,35 +2937,35 @@ SkipDeserializing: End Sub - Private Sub BTNDomImageDir_Click(sender As System.Object, e As System.EventArgs) Handles BTNDomImageDir.Click + Private Sub BTNDomImageDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDomImageDir.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.DomImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowMain = New ContactData(ContactType.Domme) End If End Sub - Private Sub BtnContact1ImageDir_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDir.Click + Private Sub BtnContact1ImageDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDir.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.Contact1ImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowContact1 = New ContactData(ContactType.Contact1) End If End Sub - Private Sub BtnContact2ImageDir_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact2ImageDir.Click + Private Sub BtnContact2ImageDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact2ImageDir.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.Contact2ImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowContact2 = New ContactData(ContactType.Contact2) End If End Sub - Private Sub BtnContact3ImageDir_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact3ImageDir.Click + Private Sub BtnContact3ImageDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact3ImageDir.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.Contact3ImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowContact3 = New ContactData(ContactType.Contact3) End If End Sub - Private Sub BtnRandomImageDir_Click(sender As System.Object, e As System.EventArgs) Handles BtnRandomImageDir.Click + Private Sub BtnRandomImageDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.RandomImageDir = FolderBrowserDialog1.SelectedPath My.Application.Session.SlideshowContactRandom = New ContactData(ContactType.Random) @@ -2973,28 +2973,28 @@ SkipDeserializing: End If End Sub - Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles BTNGlitterD.Click + Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGlitterD.Click If GetColor.ShowDialog() = DialogResult.OK Then LBLGlitterNCDomme.ForeColor = GetColor.Color End If End Sub - Private Sub Button27_Click(sender As System.Object, e As System.EventArgs) Handles BTNGlitter1.Click + Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGlitter1.Click If GetColor.ShowDialog() = DialogResult.OK Then LBLGlitterNC1.ForeColor = GetColor.Color End If End Sub - Private Sub Button4_Click_3(sender As System.Object, e As System.EventArgs) Handles BTNGlitter2.Click + Private Sub Button4_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGlitter2.Click If GetColor.ShowDialog() = DialogResult.OK Then LBLGlitterNC2.ForeColor = GetColor.Color End If End Sub - Private Sub Button26_Click(sender As System.Object, e As System.EventArgs) Handles BTNGlitter3.Click + Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGlitter3.Click If GetColor.ShowDialog() = DialogResult.OK Then LBLGlitterNC3.ForeColor = GetColor.Color End If End Sub - Private Sub CBGlitterFeed_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBGlitterFeed.Click, CBGlitterFeedScripts.Click, CBGlitterFeedOff.Click + Private Sub CBGlitterFeed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBGlitterFeed.Click, CBGlitterFeedScripts.Click, CBGlitterFeedOff.Click If Form1.FormLoading = False Then ' In order to prevent wrong values, we have to change the DataSourceUpdateMode. ' Since the Designer will reset this value, we have to undo this changes. @@ -3017,62 +3017,62 @@ SkipDeserializing: End If End Sub - Private Sub BTNGlitterD_MouseHover(sender As Object, e As System.EventArgs) Handles BTNGlitterD.MouseHover + Private Sub BTNGlitterD_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNGlitterD.MouseHover TTDir.SetToolTip(BTNGlitterD, "This button allows you to change the color of the domme's name as it appears in the Glitter app." & Environment.NewLine & - "A preview will appear in the text box below this button once a color has been selected.") + "A preview will appear in the text box below this button once a color has been selected.") End Sub - Private Sub GlitterAV_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterAV.MouseHover + Private Sub GlitterAV_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles GlitterAV.MouseHover TTDir.SetToolTip(GlitterAV, "Click here to set the image the domme will use as her Glitter avatar.") End Sub - Private Sub LBLGlitterNCDomme_Click(sender As System.Object, e As System.EventArgs) Handles LBLGlitterNCDomme.MouseHover, LBLGlitterNC1.MouseHover, LBLGlitterNC2.MouseHover, LBLGlitterNC3.MouseHover + Private Sub LBLGlitterNCDomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLGlitterNCDomme.MouseHover, LBLGlitterNC1.MouseHover, LBLGlitterNC2.MouseHover, LBLGlitterNC3.MouseHover TTDir.SetToolTip(sender, "After clicking the ""Choose Name Color"" button above, a preview of the selected color will appear here.") End Sub - Private Sub TBGlitterShortName_MouseHover(sender As System.Object, e As System.EventArgs) Handles TBGlitterShortName.MouseHover + Private Sub TBGlitterShortName_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBGlitterShortName.MouseHover TTDir.SetToolTip(TBGlitterShortName, "This is the name that the domme's contacts will refer to her as in the Glitter feed.") End Sub - Private Sub CBTease_MouseHover(sender As Object, e As System.EventArgs) Handles CBTease.MouseHover + Private Sub CBTease_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBTease.MouseHover TTDir.SetToolTip(CBTease, "When this box is checked, the domme will make posts referencing your ongoing teasing and denial.") End Sub - Private Sub CBEgotist_MouseHover(sender As Object, e As System.EventArgs) Handles CBEgotist.MouseHover + Private Sub CBEgotist_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBEgotist.MouseHover TTDir.SetToolTip(CBEgotist, "When this box is checked, the domme will make self-centered posts stating how amazing she is.") End Sub - Private Sub CBTrivia_MouseHover(sender As Object, e As System.EventArgs) Handles CBTrivia.MouseHover + Private Sub CBTrivia_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBTrivia.MouseHover TTDir.SetToolTip(CBTrivia, "When this box is checked, the domme will make posts containing quotes or general trivia.") End Sub - Private Sub CBDaily_MouseHover(sender As Object, e As System.EventArgs) Handles CBDaily.MouseHover + Private Sub CBDaily_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBDaily.MouseHover TTDir.SetToolTip(CBDaily, "When this box is checked, the domme will make mundane posts about her day.") End Sub - Private Sub CBCustom1_MouseHover(sender As Object, e As System.EventArgs) Handles CBCustom1.MouseHover + Private Sub CBCustom1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBCustom1.MouseHover TTDir.SetToolTip(CBCustom1, "When this box is checked, the domme will make posts taken from Custom 1" & Environment.NewLine & - "folder in the Glitter scripts directory for her personality style.") + "folder in the Glitter scripts directory for her personality style.") End Sub - Private Sub CBCustom2_MouseHover(sender As Object, e As System.EventArgs) Handles CBCustom2.MouseHover + Private Sub CBCustom2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBCustom2.MouseHover TTDir.SetToolTip(CBCustom2, "When this box is checked, the domme will make posts taken from Custom 2" & Environment.NewLine & - "folder in the Glitter scripts directory for her personality style.") + "folder in the Glitter scripts directory for her personality style.") End Sub - Private Sub GlitterSlider_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterSlider.MouseHover + Private Sub GlitterSlider_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles GlitterSlider.MouseHover TTDir.SetToolTip(GlitterSlider, "This slider determines how often the domme makes Glitter posts on her own." & Environment.NewLine & - "The further to the right the slider is, the more often she posts.") + "The further to the right the slider is, the more often she posts.") End Sub - Private Sub LBLGlitterSlider_MouseHover(sender As Object, e As System.EventArgs) Handles LBLGlitterSlider.MouseHover + Private Sub LBLGlitterSlider_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBLGlitterSlider.MouseHover TTDir.SetToolTip(LBLGlitterSlider, "This slider determines how often the domme makes Glitter posts on her own." & Environment.NewLine & - "The further to the right the slider is, the more often she posts.") + "The further to the right the slider is, the more often she posts.") End Sub - Private Sub TBGlitter1_MouseHover(sender As Object, e As System.EventArgs) Handles TBGlitter1.MouseHover, TBGlitter2.MouseHover, TBGlitter3.MouseHover + Private Sub TBGlitter1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBGlitter1.MouseHover, TBGlitter2.MouseHover, TBGlitter3.MouseHover TTDir.SetToolTip(sender, "This will be the name of this contact as it appears in the Glitter feed.") End Sub - Private Sub GlitterSlider1_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterSlider1.MouseHover, GlitterSlider2.MouseHover, GlitterSlider3.MouseHover, LBLGlitterSlider1.MouseHover, LBLGlitterSlider2.MouseHover, LBLGlitterSlider3.MouseHover + Private Sub GlitterSlider1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles GlitterSlider1.MouseHover, GlitterSlider2.MouseHover, GlitterSlider3.MouseHover, LBLGlitterSlider1.MouseHover, LBLGlitterSlider2.MouseHover, LBLGlitterSlider3.MouseHover TTDir.SetToolTip(sender, "This slider determines how often this contact responds to the domme's Glitter posts." & Environment.NewLine & - "The further to the right the slider is, the more often she responds.") + "The further to the right the slider is, the more often she responds.") End Sub - Private Sub GlitterAV1_MouseHover(sender As Object, e As System.EventArgs) Handles GlitterAV1.MouseHover, GlitterAV2.MouseHover, GlitterAV3.MouseHover + Private Sub GlitterAV1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles GlitterAV1.MouseHover, GlitterAV2.MouseHover, GlitterAV3.MouseHover TTDir.SetToolTip(sender, "Click here to set the image that this contact will use as her Glitter avatar.") End Sub - Private Sub CBGlitter1_MouseHover(sender As Object, e As System.EventArgs) Handles CBGlitter1.MouseHover, CBGlitter2.MouseHover, CBGlitter3.MouseHover + Private Sub CBGlitter1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBGlitter1.MouseHover, CBGlitter2.MouseHover, CBGlitter3.MouseHover TTDir.SetToolTip(sender, "This check box enables this contact's participation in the Glitter feed.") End Sub - Private Sub BTNGlitter1_MouseHover(sender As Object, e As System.EventArgs) Handles BTNGlitter1.MouseHover, BTNGlitter2.MouseHover, BTNGlitter3.MouseHover + Private Sub BTNGlitter1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNGlitter1.MouseHover, BTNGlitter2.MouseHover, BTNGlitter3.MouseHover TTDir.SetToolTip(sender, "This button allows you to change the color of this contact's name as it appears in the Glitter app.") End Sub @@ -3083,39 +3083,39 @@ SkipDeserializing: Private Sub Button2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDir.MouseHover, BtnContact2ImageDir.MouseHover, BtnContact3ImageDir.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory containing several image" & Environment.NewLine & -"set folders of the same model you're using as your contact.") + "set folders of the same model you're using as your contact.") If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") End Sub Private Sub btnRandomImage_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDir.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(sender, "Use this button to select a directory for random dommes. Each model " & Environment.NewLine & -"should have her own directory containing folders of different imagesets.") + "should have her own directory containing folders of different imagesets.") If RBGerman.Checked = True Then TTDir.SetToolTip(sender, "Benutze diese Schaltfläche um einen Ordner zu wählen, welcher mehre" & Environment.NewLine & - "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") + "Bildersets von dem selben Model enthält, die du als Kontakt benutzt.") End Sub - Private Sub BtnContact1ImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact1ImageDirClear.Click + Private Sub BtnContact1ImageDirClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact1ImageDirClear.Click My.Settings.ResetField(TbxContact1ImageDir, "Text") My.Application.Session.SlideshowContact1 = New ContactData() End Sub - Private Sub BtnContact2ImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact2ImageDirClear.Click + Private Sub BtnContact2ImageDirClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact2ImageDirClear.Click My.Settings.ResetField(TbxContact2ImageDir, "Text") My.Application.Session.SlideshowContact2 = New ContactData() End Sub - Private Sub BtnContact3ImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnContact3ImageDirClear.Click + Private Sub BtnContact3ImageDirClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContact3ImageDirClear.Click My.Settings.ResetField(TbxContact3ImageDir, "Text") My.Application.Session.SlideshowContact3 = New ContactData() End Sub - Private Sub BtnRandomImageDirClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnRandomImageDirClear.Click + Private Sub BtnRandomImageDirClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRandomImageDirClear.Click My.Settings.ResetField(TbxRandomImageDir, "Text") My.Application.Session.SlideshowContactRandom = New ContactData() End Sub - Private Sub Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click + Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click SaveSettingsDialog.Title = "Select a location to save current Glitter settings" SaveSettingsDialog.InitialDirectory = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\System\" @@ -3182,7 +3182,7 @@ SkipDeserializing: End Sub - Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click 'ISSUE: Loading a corrupted textfile results in half loaded Glitter settings. OpenSettingsDialog.Title = "Select a Glitter settings file" OpenSettingsDialog.InitialDirectory = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\System\" @@ -3278,7 +3278,7 @@ SkipDeserializing: End If End Sub -#End Region ' Glitter +#End Region ' Glitter #Region "----------------------------------------- Games ------------------------------------------------" @@ -3297,7 +3297,7 @@ SkipDeserializing: ' Check if the Databinding is properly set. If tmpPicBox.DataBindings.Item("ImageLocation") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmpPicBox.Name & - """'s image location. Set the databinding and recompile!") + """'s image location. Set the databinding and recompile!") End If tmpPicBox.AllowDrop = True @@ -3314,13 +3314,13 @@ SkipDeserializing: '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Card names <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< For Each tmpTbx As TextBox In New List(Of TextBox) From - {BN1, BN2, BN3, BN4, BN5, BN6, - SN1, SN2, SN3, SN4, SN5, SN6, - GN1, GN2, GN3, GN4, GN5, GN6} + {BN1, BN2, BN3, BN4, BN5, BN6, + SN1, SN2, SN3, SN4, SN5, SN6, + GN1, GN2, GN3, GN4, GN5, GN6} If tmpTbx.DataBindings.Item("Text") Is Nothing Then Throw New Exception("There is no databinding set on """ & tmpTbx.Name & - """'s text property. Set the databinding and recompile!") + """'s text property. Set the databinding and recompile!") End If If tmpTbx.Text.Length < 1 Then My.Settings.ResetField(tmpTbx, "Text") @@ -3336,12 +3336,12 @@ SkipDeserializing: ''' The image filepath to set. ''' The PictureBox must have a databinding between the ''' ImageLoaction-Property and My.Settings. - Private Sub CardImageSet(sender As PictureBox, filepath As String) + Private Sub CardImageSet(ByVal sender As PictureBox, ByVal filepath As String) Try Dim target As PictureBox = CType(sender, PictureBox) Dim savePath As String = String.Format("{0}\Images\Cards\Card{1}.bmp", - Application.StartupPath, - target.Name) + Application.StartupPath, + target.Name) savePath = savePath.Replace("CardCard", "Card") @@ -3367,12 +3367,12 @@ SkipDeserializing: Loop If retrycounter <= 0 Then Throw New IO.IOException( - String.Format("The file """"{0}"" is already in use."), savePath) + String.Format("The file """"{0}"" is already in use."), savePath) ' Check if the Databinding is properly set. If target.DataBindings.Item("ImageLocation") Is Nothing Then Throw New Exception("There is no databinding set on """ & target.Name & - """'s image location. Set the databinding and recompile!") + """'s image location. Set the databinding and recompile!") End If ' Set the resized image as picturebox image and write it to disk @@ -3397,28 +3397,28 @@ SkipDeserializing: End Sub Private Sub CardPictureboxes_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles _ - BP1.DragEnter, BP2.DragEnter, BP3.DragEnter, BP4.DragEnter, BP5.DragEnter, BP6.DragEnter, - SP1.DragEnter, SP2.DragEnter, SP3.DragEnter, SP4.DragEnter, SP5.DragEnter, SP6.DragEnter, - GP1.DragEnter, GP2.DragEnter, GP3.DragEnter, GP4.DragEnter, GP5.DragEnter, GP6.DragEnter, - CardBack.DragEnter + BP1.DragEnter, BP2.DragEnter, BP3.DragEnter, BP4.DragEnter, BP5.DragEnter, BP6.DragEnter, + SP1.DragEnter, SP2.DragEnter, SP3.DragEnter, SP4.DragEnter, SP5.DragEnter, SP6.DragEnter, + GP1.DragEnter, GP2.DragEnter, GP3.DragEnter, GP4.DragEnter, GP5.DragEnter, GP6.DragEnter, + CardBack.DragEnter If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then e.Effect = DragDropEffects.Copy End If End Sub - Private Sub CardPictureboxes_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles _ - BP1.DragDrop, BP2.DragDrop, BP3.DragDrop, BP4.DragDrop, BP5.DragDrop, BP6.DragDrop, - SP1.DragDrop, SP2.DragDrop, SP3.DragDrop, SP4.DragDrop, SP5.DragDrop, SP6.DragDrop, - GP1.DragDrop, GP2.DragDrop, GP3.DragDrop, GP4.DragDrop, GP5.DragDrop, GP6.DragDrop, - CardBack.DragDrop + Private Sub CardPictureboxes_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles _ + BP1.DragDrop, BP2.DragDrop, BP3.DragDrop, BP4.DragDrop, BP5.DragDrop, BP6.DragDrop, + SP1.DragDrop, SP2.DragDrop, SP3.DragDrop, SP4.DragDrop, SP5.DragDrop, SP6.DragDrop, + GP1.DragDrop, GP2.DragDrop, GP3.DragDrop, GP4.DragDrop, GP5.DragDrop, GP6.DragDrop, + CardBack.DragDrop CardImageSet(CType(sender, PictureBox), CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0)) End Sub - Private Sub CardPictureboxes_Click(sender As System.Object, e As System.EventArgs) Handles _ - BP1.Click, BP2.Click, BP3.Click, BP4.Click, BP5.Click, BP6.Click, - SP1.Click, SP2.Click, SP3.Click, SP4.Click, SP5.Click, SP6.Click, - GP1.Click, GP2.Click, GP3.Click, GP4.Click, GP5.Click, GP6.Click, - CardBack.Click + Private Sub CardPictureboxes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _ + BP1.Click, BP2.Click, BP3.Click, BP4.Click, BP5.Click, BP6.Click, + SP1.Click, SP2.Click, SP3.Click, SP4.Click, SP5.Click, SP6.Click, + GP1.Click, GP2.Click, GP3.Click, GP4.Click, GP5.Click, GP6.Click, + CardBack.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then CardImageSet(CType(sender, PictureBox), OpenFileDialog1.FileName) End If @@ -3427,10 +3427,10 @@ SkipDeserializing: ''' ''' Resets the databinding source of a TextBox to its initial value, if there is no Text entered. ''' - Private Sub CardTextboxes_Validating(sender As Object, e As CancelEventArgs) Handles _ - BN1.Validating, BN2.Validating, BN3.Validating, BN4.Validating, BN5.Validating, BN6.Validating, - SN1.Validating, SN2.Validating, SN3.Validating, SN4.Validating, SN5.Validating, SN6.Validating, - GN1.Validating, GN2.Validating, GN3.Validating, GN4.Validating, GN5.Validating, GN6.Validating + Private Sub CardTextboxes_Validating(ByVal sender As Object, ByVal e As CancelEventArgs) Handles _ + BN1.Validating, BN2.Validating, BN3.Validating, BN4.Validating, BN5.Validating, BN6.Validating, + SN1.Validating, SN2.Validating, SN3.Validating, SN4.Validating, SN5.Validating, SN6.Validating, + GN1.Validating, GN2.Validating, GN3.Validating, GN4.Validating, GN5.Validating, GN6.Validating Dim tmpTbx As TextBox = CType(sender, TextBox) If tmpTbx.Text = "" AndAlso tmpTbx.DataBindings("Text") IsNot Nothing Then @@ -3439,19 +3439,19 @@ SkipDeserializing: End If End Sub -#End Region ' Games +#End Region ' Games -#End Region ' Apps +#End Region ' Apps #Region "-------------------------------------- URL Files -----------------------------------------------" - Private Sub Button57_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIBrowse.Click + Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWIBrowse.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then TBWIDirectory.Text = FolderBrowserDialog1.SelectedPath End If End Sub - Private Sub CBWISaveToDisk_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBWISaveToDisk.CheckedChanged + Private Sub CBWISaveToDisk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBWISaveToDisk.CheckedChanged If CBWISaveToDisk.Checked = True Then If Not Directory.Exists(TBWIDirectory.Text) Then @@ -3462,19 +3462,19 @@ SkipDeserializing: End Sub - Private Sub BTNWIAddandContinue_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIAddandContinue.Click + Private Sub BTNWIAddandContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWIAddandContinue.Click ApproveImage = 1 End Sub - Private Sub BTNWIContinue_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIContinue.Click + Private Sub BTNWIContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWIContinue.Click ApproveImage = 2 End Sub - Private Sub BTNCancel_Click(sender As System.Object, e As System.EventArgs) Handles BTNWICancel.Click + Private Sub BTNCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWICancel.Click If BWURLFiles.IsBusy Then BWURLFiles.CancelAsync() End Sub - Private Sub BtnWiOpenURL_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIOpenURL.Click + Private Sub BtnWiOpenURL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWIOpenURL.Click WebImageFileDialog.InitialDirectory = Application.StartupPath & "\Images\System\URL Files" @@ -3513,7 +3513,7 @@ SkipDeserializing: End If End Sub - Private Sub BtnWiNavigate_Click(sender As System.Object, e As System.EventArgs) Handles BTNWINext.Click, BTNWIPrevious.Click + Private Sub BtnWiNavigate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWINext.Click, BTNWIPrevious.Click TryNextImage: Try @@ -3555,14 +3555,14 @@ TryNextImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Clipboard.SetText(WebImageLines(WebImageLine)) If MessageBox.Show("Exception occured while requesting:" & - vbCrLf & WebImageLines(WebImageLine) & - vbCrLf & - vbCrLf & ex.Message & - vbCrLf & - vbCrLf & "The requested url has been copied to clipboard. " & - vbCrLf & "Do you want to remove this url from list?", - "Webexception occured", - MessageBoxButtons.YesNo) = DialogResult.Yes Then + vbCrLf & WebImageLines(WebImageLine) & + vbCrLf & + vbCrLf & ex.Message & + vbCrLf & + vbCrLf & "The requested url has been copied to clipboard. " & + vbCrLf & "Do you want to remove this url from list?", + "Webexception occured", + MessageBoxButtons.YesNo) = DialogResult.Yes Then BTNWIRemove.PerformClick() End If @@ -3575,7 +3575,7 @@ TryNextImage: End Try End Sub - Private Sub BtnWiRemove_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIRemove.Click + Private Sub BtnWiRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWIRemove.Click Debug.Print(WebImageLines(WebImageLine)) @@ -3588,7 +3588,7 @@ TryNextImage: BTNWINext.PerformClick() End Sub - Private Sub BtnWiLiked_Click(sender As System.Object, e As System.EventArgs) Handles BTNWILiked.Click + Private Sub BtnWiLiked_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWILiked.Click Dim FilePath As String = Application.StartupPath & "\Images\System\LikedImageURLs.txt" @@ -3600,7 +3600,7 @@ TryNextImage: End Sub - Private Sub BtnWiDisliked_Click(sender As System.Object, e As System.EventArgs) Handles BTNWIDisliked.Click + Private Sub BtnWiDisliked_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWIDisliked.Click Dim FilePath As String = Application.StartupPath & "\Images\System\DislikedImageURLs.txt" @@ -3612,7 +3612,7 @@ TryNextImage: End Sub - Private Sub WebPictureBox_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles WebPictureBox.MouseWheel + Private Sub WebPictureBox_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles WebPictureBox.MouseWheel Select Case e.Delta Case -120 'Scrolling down -> next image @@ -3627,7 +3627,7 @@ TryNextImage: WebPictureBox.Focus() End Sub - Private Sub LBLWebImageCount_DoubleClick(sender As Object, e As EventArgs) Handles LBLWebImageCount.DoubleClick + Private Sub LBLWebImageCount_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles LBLWebImageCount.DoubleClick Dim TmpInt As Integer If Integer.TryParse(InputBox("Enter a number to navigate to:", "Jump to image"), TmpInt) Then @@ -3640,7 +3640,7 @@ TryNextImage: End If End Sub - Private Sub BtnWiSave_Click(sender As System.Object, e As System.EventArgs) Handles BTNWISave.Click + Private Sub BtnWiSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWISave.Click If WebPictureBox.Image Is Nothing Then MsgBox("Nothing to save!", , "Error!") @@ -3684,150 +3684,150 @@ TryNextImage: End Sub - Private Sub Button38_Click(sender As System.Object, e As System.EventArgs) Handles BTNWICreateURL.Click, - BTNMaintenanceRefresh.Click, - BTNMaintenanceRebuild.Click - ' Group Buttons by inital-State. - Dim __PreEnabled As New List(Of Control) From - {BTNWIOpenURL, BTNWICreateURL, BTNMaintenanceRefresh, - BTNMaintenanceRebuild, BTNMaintenanceScripts} + Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWICreateURL.Click, + BTNMaintenanceRefresh.Click, + BTNMaintenanceRebuild.Click + ' Group Buttons by inital-State. + Dim __PreEnabled As New List(Of Control) From + {BTNWIOpenURL, BTNWICreateURL, BTNMaintenanceRefresh, + BTNMaintenanceRebuild, BTNMaintenanceScripts} Dim __PreDisabled As New List(Of Control) From - {BTNWICancel, BTNMaintenanceCancel} + {BTNWICancel, BTNMaintenanceCancel} Try - ' Set their new State, so the User can't disturb. - __PreEnabled.ForEach(Sub(x) x.Enabled = False) + ' Set their new State, so the User can't disturb. + __PreEnabled.ForEach(Sub(x) x.Enabled = False) __PreDisabled.ForEach(Sub(x) x.Enabled = True) Select Case sender.name Case BTNWICreateURL.Name - '************************************************************************************************************** - ' Create URL-File - '************************************************************************************************************** - Dim __BtnLocalURL As New List(Of Control) From { - BTNWINext, BTNWIPrevious, BTNWIRemove, BTNWILiked, BTNWIDisliked, BTNWISave} + '************************************************************************************************************** + ' Create URL-File + '************************************************************************************************************** + Dim __BtnLocalURL As New List(Of Control) From { + BTNWINext, BTNWIPrevious, BTNWIRemove, BTNWILiked, BTNWIDisliked, BTNWISave} Try - ' Disable Buttons for Opening-URL-Files - __BtnLocalURL.ForEach(Sub(x) x.Enabled = False) + ' Disable Buttons for Opening-URL-Files + __BtnLocalURL.ForEach(Sub(x) x.Enabled = False) - ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.CreateUrlFileResult = BWURLFiles.CreateURLFileAsync() + ' Run Backgroundworker + Dim __tmpResult As URL_File_BGW.CreateUrlFileResult = BWURLFiles.CreateURLFileAsync() - ' Activate the created URL-File - URL_File_Set(__tmpResult.Filename) + ' Activate the created URL-File + URL_File_Set(__tmpResult.Filename) ' UserInfo If __tmpResult._Error Is Nothing Then MsgBox("URL File has been saved to:" & vbCrLf & vbCrLf & Application.StartupPath & "\Images\System\URL Files\" & __tmpResult.Filename & ".txt" & - vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Success!") + vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Success!") Else MsgBox("It is encountered an error during URL-File-Creation." & vbCrLf & - __tmpResult._Error.Message & vbCrLf & - "URL File has been saved to:" & - vbCrLf & vbCrLf & Application.StartupPath & "\Images\System\URL Files\" & __tmpResult.Filename & ".txt" & - vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Successful despite errors!") + __tmpResult._Error.Message & vbCrLf & + "URL File has been saved to:" & + vbCrLf & vbCrLf & Application.StartupPath & "\Images\System\URL Files\" & __tmpResult.Filename & ".txt" & + vbCrLf & vbCrLf & "Use the ""Open URL File"" button to load and view your collections.", , "Successful despite errors!") End If Catch - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Throw + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Throw Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - __BtnLocalURL.ForEach(Sub(x) x.Enabled = True) + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + __BtnLocalURL.ForEach(Sub(x) x.Enabled = True) End Try Case BTNMaintenanceRefresh.Name - '************************************************************************************************************** - ' Refresh URL-Files - '************************************************************************************************************** - Try + '************************************************************************************************************** + ' Refresh URL-Files + '************************************************************************************************************** + Try - ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.MaintainUrlFilesResult = BWURLFiles.RefreshURLFilesAsync() + ' Run Backgroundworker + Dim __tmpResult As URL_File_BGW.MaintainUrlFilesResult = BWURLFiles.RefreshURLFilesAsync() - ' Activate the URL-Files - __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) + ' Activate the URL-Files + __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) If __tmpResult.Cancelled Then MessageBox.Show(Me, "Refreshing URL files has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL files." & - vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) ElseIf __tmpResult.ErrorText.Capacity > 0 Then MessageBox.Show(Me, "URL Files have been refreshed with errors!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added." & - vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added." & + vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show(Me, "URL files have been refreshed!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " new URLs have been added.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) End If Catch - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Throw + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Throw Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - LBLMaintenance.Text = String.Empty + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + LBLMaintenance.Text = String.Empty PBCurrent.Value = 0 PBMaintenance.Value = 0 End Try Case BTNMaintenanceRebuild.Name - '************************************************************************************************************** - ' Rebuild URL-Files - '************************************************************************************************************** - Try - ' Run Backgroundworker - Dim __tmpResult As URL_File_BGW.MaintainUrlFilesResult = BWURLFiles.RebuildURLFilesAsync() + '************************************************************************************************************** + ' Rebuild URL-Files + '************************************************************************************************************** + Try + ' Run Backgroundworker + Dim __tmpResult As URL_File_BGW.MaintainUrlFilesResult = BWURLFiles.RebuildURLFilesAsync() - ' Activate the URL-Files - __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) + ' Activate the URL-Files + __tmpResult.MaintainedUrlFiles.ForEach(AddressOf URL_File_Set) If __tmpResult.Cancelled Then MessageBox.Show(Me, "Rebuilding URL-Files has been aborted after " & __tmpResult.MaintainedUrlFiles.Count & " URL-Files." & - vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) ElseIf __tmpResult.ErrorText.Capacity > 0 Then MessageBox.Show(Me, "URL Files have been rebuilded with errors!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & - vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total." & - vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & + vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total." & + vbCrLf & vbCrLf & String.Join(vbCrLf, __tmpResult.ErrorText), + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show(Me, "URL files have been rebuild!" & - vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & - vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total.", - "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + vbCrLf & vbCrLf & __tmpResult.ModifiedLinkCount & " dead URLs have been removed." & + vbCrLf & vbCrLf & __tmpResult.LinkCountTotal & " URLs in total.", + "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) End If Catch - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Throw + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + Throw Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - LBLMaintenance.Text = String.Empty + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + LBLMaintenance.Text = String.Empty PBCurrent.Value = 0 PBMaintenance.Value = 0 End Try End Select Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - If ex.InnerException IsNot Nothing Then - ' If an Error ocurred in the other Thread, initial Exception is innner one. - MsgBox(ex.InnerException.Message, MsgBoxStyle.Critical, "Error Creating URL-File") + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' All Errors + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + If ex.InnerException IsNot Nothing Then + ' If an Error ocurred in the other Thread, initial Exception is innner one. + MsgBox(ex.InnerException.Message, MsgBoxStyle.Critical, "Error Creating URL-File") Else - ' Otherwise show it normal. - MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Creating URL-File") + ' Otherwise show it normal. + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Creating URL-File") End If Finally - '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ - ' Restore the initial State of the Buttons - __PreEnabled.ForEach(Sub(x) x.Enabled = True) + '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ + ' Restore the initial State of the Buttons + __PreEnabled.ForEach(Sub(x) x.Enabled = True) __PreDisabled.ForEach(Sub(x) x.Enabled = False) End Try End Sub @@ -3854,59 +3854,59 @@ TryNextImage: End If End Sub - ''' ========================================================================================================= - ''' - ''' This Event will be triggered, when the Working Stage of the BGW changes - ''' - ''' - ''' - Private Sub BWURLFiles_ProgressChanged(ByVal Sender As Object, ByRef e As URL_File_BGW.ProgressChangedEventArgs) Handles BWURLFiles.ProgressChanged + ''' ========================================================================================================= + ''' + ''' This Event will be triggered, when the Working Stage of the BGW changes + ''' + ''' + ''' + Private Sub BWURLFiles_ProgressChanged(ByVal Sender As Object, ByRef e As URL_File_BGW.ProgressChangedEventArgs) Handles BWURLFiles.ProgressChanged If Me.InvokeRequired Then - ' Beware: Event is fired in Worker Thread, so you need to do a Function Callback. - Dim CallBack As New URL_File_BGW.ProgressChangedDelegate(AddressOf BWURLFiles_ProgressChanged) + ' Beware: Event is fired in Worker Thread, so you need to do a Function Callback. + Dim CallBack As New URL_File_BGW.ProgressChangedDelegate(AddressOf BWURLFiles_ProgressChanged) Me.Invoke(CallBack, Sender, e) Else - ' Reset remanent Marker for Image Approval - If ApproveImage <> 0 Then ApproveImage = 0 + ' Reset remanent Marker for Image Approval + If ApproveImage <> 0 Then ApproveImage = 0 Select Case e.CurrentTask Case Tasks.CreateURLFile - '=============================================================================== - ' Create URL-File - '=============================================================================== - Select Case e.CurrentStage - ' ------------------------ Image Approval ------------------------------- - Case WorkingStages.ImageApproval + '=============================================================================== + ' Create URL-File + '=============================================================================== + Select Case e.CurrentStage + ' ------------------------ Image Approval ------------------------------- + Case WorkingStages.ImageApproval If e.ImageToReview IsNot Nothing Then - ' Dispose old Image & Set new Image - Try : WebPictureBox.Image.Dispose() : Catch : End Try + ' Dispose old Image & Set new Image + Try : WebPictureBox.Image.Dispose() : Catch : End Try WebPictureBox.Image = e.ImageToReview - ' Enabled UI Elements - BTNWIContinue.Enabled = True + ' Enabled UI Elements + BTNWIContinue.Enabled = True BTNWIAddandContinue.Enabled = True End If Case WorkingStages.Writing_File - ' ---------------------- Write to File ------------------------------- - 'State info to User - LBLWebImageCount.Text = "Writing" - ' At this state no cnancel possible - BTNWICancel.Enabled = False + ' ---------------------- Write to File ------------------------------- + 'State info to User + LBLWebImageCount.Text = "Writing" + ' At this state no cnancel possible + BTNWICancel.Enabled = False WebPictureBox.Image = Nothing Case Else - ' ---------------------- Everthing else ------------------------------ - ' Refresh Progressbars - WebImageProgressBar.Maximum = e.BlogPageTotal + ' ---------------------- Everthing else ------------------------------ + ' Refresh Progressbars + WebImageProgressBar.Maximum = e.BlogPageTotal WebImageProgressBar.Value = e.BlogPage - ' Disable Image Approval-UI - BTNWIContinue.Enabled = False + ' Disable Image Approval-UI + BTNWIContinue.Enabled = False BTNWIAddandContinue.Enabled = False - ' Inform User about BGW-State - LBLWebImageCount.Text = String.Format("{0}/{1}", e.ImageCount, e.ImageCountTotal) + ' Inform User about BGW-State + LBLWebImageCount.Text = String.Format("{0}/{1}", e.ImageCount, e.ImageCountTotal) End Select Case Else - '=============================================================================== - ' Refresh URL-File - '=============================================================================== - LBLMaintenance.Text = e.InfoText + '=============================================================================== + ' Refresh URL-File + '=============================================================================== + LBLMaintenance.Text = e.InfoText PBCurrent.Maximum = e.BlogPageTotal PBCurrent.Value = e.BlogPage PBCurrent.Refresh() @@ -3918,14 +3918,14 @@ TryNextImage: #End Region -#End Region ' Url Files +#End Region ' Url Files #Region "--------------------------------------- Images -------------------------------------------------" Friend Shared Function Image_FolderCheck(ByVal directoryDescription As String, - ByVal directoryPath As String, - ByVal defaultPath As String, - ByRef subDirectories As Boolean) As String + ByVal directoryPath As String, + ByVal defaultPath As String, + ByRef subDirectories As Boolean) As String Dim rtnPath As String ' Exit if default value. @@ -3936,9 +3936,9 @@ TryNextImage: ' Tell User, the dir. wasn't found. Ask to search manually for the folder. If MessageBox.Show(ActiveForm, - "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", - directoryDescription & " image directory not found.", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) <> DialogResult.Yes Then + "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", + directoryDescription & " image directory not found.", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) <> DialogResult.Yes Then set_default: Return defaultPath Else @@ -3955,7 +3955,7 @@ set_newFolder: ' Initialize new Dialog-Form Dim FolSel As New FolderBrowserDialog With {.SelectedPath = __tmp_dir, - .Description = "Select " & directoryDescription & " image folder."} + .Description = "Select " & directoryDescription & " image folder."} ' Display the Dialog -> Now the user has to set the new dir. If FolSel.ShowDialog(ActiveForm) = DialogResult.OK Then rtnPath = FolSel.SelectedPath @@ -4008,7 +4008,7 @@ checkFolder: #Region "------------------------------------- Hardcore Images -------------------------------------------" - Private Sub BTNIHardcore_Click(sender As System.Object, e As System.EventArgs) Handles BTNIHardcore.Click + Private Sub BTNIHardcore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIHardcore.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.IHardcore = FolderBrowserDialog1.SelectedPath ImagesHardcore_CheckFolder() @@ -4019,10 +4019,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IHardcoreSD Dim def As String = - My.Settings.PropertyValues("IHardcore").Property.DefaultValue + My.Settings.PropertyValues("IHardcore").Property.DefaultValue My.Settings.IHardcore = - Image_FolderCheck("Hardcore", My.Settings.IHardcore, def, subdir) + Image_FolderCheck("Hardcore", My.Settings.IHardcore, def, subdir) If My.Settings.IHardcore = def Then My.Settings.CBIHardcore = False @@ -4035,11 +4035,11 @@ checkFolder: Return My.Settings.CBIHardcore End Function -#End Region ' Hardcore +#End Region ' Hardcore #Region "------------------------------------- Softcore Images -------------------------------------------" - Private Sub BTNISoftcore_Click(sender As System.Object, e As System.EventArgs) Handles BTNISoftcore.Click + Private Sub BTNISoftcore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNISoftcore.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.ISoftcore = FolderBrowserDialog1.SelectedPath ImagesSoftcore_CheckFolder() @@ -4050,10 +4050,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ISoftcoreSD Dim def As String = - My.Settings.PropertyValues("ISoftcore").Property.DefaultValue + My.Settings.PropertyValues("ISoftcore").Property.DefaultValue My.Settings.ISoftcore = - Image_FolderCheck("Softcore", My.Settings.ISoftcore, def, subdir) + Image_FolderCheck("Softcore", My.Settings.ISoftcore, def, subdir) If My.Settings.ISoftcore = def Then My.Settings.CBISoftcore = False @@ -4066,11 +4066,11 @@ checkFolder: Return My.Settings.CBISoftcore End Function -#End Region ' Softcore +#End Region ' Softcore #Region "------------------------------------- Lesbian Images --------------------------------------------" - Private Sub BTNILesbian_Click(sender As System.Object, e As System.EventArgs) Handles BTNILesbian.Click + Private Sub BTNILesbian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNILesbian.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.ILesbian = FolderBrowserDialog1.SelectedPath ImagesLesbian_CheckFolder() @@ -4081,10 +4081,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ILesbianSD Dim def As String = - My.Settings.PropertyValues("ILesbian").Property.DefaultValue + My.Settings.PropertyValues("ILesbian").Property.DefaultValue My.Settings.ILesbian = - Image_FolderCheck("Lesbian", My.Settings.ILesbian, def, subdir) + Image_FolderCheck("Lesbian", My.Settings.ILesbian, def, subdir) If My.Settings.ILesbian = def Then My.Settings.CBILesbian = False @@ -4097,11 +4097,11 @@ checkFolder: Return My.Settings.CBILesbian End Function -#End Region ' Lesbian +#End Region ' Lesbian #Region "------------------------------------- Blowjob Images --------------------------------------------" - Private Sub BTNIBlowjob_Click(sender As System.Object, e As System.EventArgs) Handles BTNIBlowjob.Click + Private Sub BTNIBlowjob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIBlowjob.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.IBlowjob = FolderBrowserDialog1.SelectedPath ImagesBlowjob_CheckFolder() @@ -4112,10 +4112,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IBlowjobSD Dim def As String = - My.Settings.PropertyValues("IBlowjob").Property.DefaultValue + My.Settings.PropertyValues("IBlowjob").Property.DefaultValue My.Settings.IBlowjob = - Image_FolderCheck("Blowjob", My.Settings.IBlowjob, def, subdir) + Image_FolderCheck("Blowjob", My.Settings.IBlowjob, def, subdir) If My.Settings.IBlowjob = def Then My.Settings.CBIBlowjob = False @@ -4128,11 +4128,11 @@ checkFolder: Return My.Settings.CBIBlowjob End Function -#End Region ' Blowjob +#End Region ' Blowjob #Region "------------------------------------- Femdom Images ---------------------------------------------" - Private Sub BTNIFemdom_Click(sender As System.Object, e As System.EventArgs) Handles BTNIFemdom.Click + Private Sub BTNIFemdom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIFemdom.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.IFemdom = FolderBrowserDialog1.SelectedPath ImagesFemdom_CheckFolder() @@ -4143,10 +4143,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IFemdomSD Dim def As String = - My.Settings.PropertyValues("IFemdom").Property.DefaultValue + My.Settings.PropertyValues("IFemdom").Property.DefaultValue My.Settings.IFemdom = - Image_FolderCheck("Femdom", My.Settings.IFemdom, def, subdir) + Image_FolderCheck("Femdom", My.Settings.IFemdom, def, subdir) If My.Settings.IFemdom = def Then My.Settings.CBIFemdom = False @@ -4159,11 +4159,11 @@ checkFolder: Return My.Settings.CBIFemdom End Function -#End Region ' Femdom +#End Region ' Femdom #Region "------------------------------------- Lezdom Images ---------------------------------------------" - Private Sub BTNILezdom_Click(sender As System.Object, e As System.EventArgs) Handles BTNILezdom.Click + Private Sub BTNILezdom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNILezdom.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.ILezdom = FolderBrowserDialog1.SelectedPath ImagesLezdom_CheckFolder() @@ -4174,10 +4174,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ILezdomSD Dim def As String = - My.Settings.PropertyValues("ILezdom").Property.DefaultValue + My.Settings.PropertyValues("ILezdom").Property.DefaultValue My.Settings.ILezdom = - Image_FolderCheck("Lezdom", My.Settings.ILezdom, def, subdir) + Image_FolderCheck("Lezdom", My.Settings.ILezdom, def, subdir) If My.Settings.ILezdom = def Then My.Settings.CBILezdom = False @@ -4190,11 +4190,11 @@ checkFolder: Return My.Settings.CBILezdom End Function -#End Region ' Lezdon +#End Region ' Lezdon #Region "------------------------------------- Hentai Images ---------------------------------------------" - Private Sub BTNIHentai_Click(sender As System.Object, e As System.EventArgs) Handles BTNIHentai.Click + Private Sub BTNIHentai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIHentai.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.IHentai = FolderBrowserDialog1.SelectedPath ImagesHentai_CheckFolder() @@ -4205,10 +4205,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IHentaiSD Dim def As String = - My.Settings.PropertyValues("IHentai").Property.DefaultValue + My.Settings.PropertyValues("IHentai").Property.DefaultValue My.Settings.IHentai = - Image_FolderCheck("Hentai", My.Settings.IHentai, def, subdir) + Image_FolderCheck("Hentai", My.Settings.IHentai, def, subdir) If My.Settings.IHentai = def Then My.Settings.CBIHentai = False @@ -4221,11 +4221,11 @@ checkFolder: Return My.Settings.CBIHentai End Function -#End Region ' Hentai +#End Region ' Hentai #Region "------------------------------------- Gay Images ------------------------------------------------" - Private Sub BTNIGay_Click(sender As System.Object, e As System.EventArgs) Handles BTNIGay.Click + Private Sub BTNIGay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIGay.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.IGay = FolderBrowserDialog1.SelectedPath ImagesGay_CheckFolder() @@ -4236,10 +4236,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IGaySD Dim def As String = - My.Settings.PropertyValues("IGay").Property.DefaultValue + My.Settings.PropertyValues("IGay").Property.DefaultValue My.Settings.IGay = - Image_FolderCheck("Gay", My.Settings.IGay, def, subdir) + Image_FolderCheck("Gay", My.Settings.IGay, def, subdir) If My.Settings.IGay = def Then My.Settings.CBIGay = False @@ -4252,11 +4252,11 @@ checkFolder: Return My.Settings.CBIGay End Function -#End Region ' Gay +#End Region ' Gay #Region "------------------------------------- Maledom Images ---------------------------------------------" - Private Sub BTNIMaledom_Click(sender As System.Object, e As System.EventArgs) Handles BTNIMaledom.Click + Private Sub BTNIMaledom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMaledom.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.IMaledom = FolderBrowserDialog1.SelectedPath ImagesMaledom_CheckFolder() @@ -4267,10 +4267,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IMaledomSD Dim def As String = - My.Settings.PropertyValues("IMaledom").Property.DefaultValue + My.Settings.PropertyValues("IMaledom").Property.DefaultValue My.Settings.IMaledom = - Image_FolderCheck("Maledom", My.Settings.IMaledom, def, subdir) + Image_FolderCheck("Maledom", My.Settings.IMaledom, def, subdir) If My.Settings.IMaledom = def Then My.Settings.CBIMaledom = False @@ -4283,11 +4283,11 @@ checkFolder: Return My.Settings.CBIMaledom End Function -#End Region ' Maledom +#End Region ' Maledom #Region "------------------------------------- General Images ---------------------------------------------" - Private Sub BTNIGeneral_Click(sender As System.Object, e As System.EventArgs) Handles BTNIGeneral.Click + Private Sub BTNIGeneral_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIGeneral.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.IGeneral = FolderBrowserDialog1.SelectedPath ImagesGeneral_CheckFolder() @@ -4298,10 +4298,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.IGeneralSD Dim def As String = - My.Settings.PropertyValues("IGeneral").Property.DefaultValue + My.Settings.PropertyValues("IGeneral").Property.DefaultValue My.Settings.IGeneral = - Image_FolderCheck("General", My.Settings.IGeneral, def, subdir) + Image_FolderCheck("General", My.Settings.IGeneral, def, subdir) If My.Settings.IGeneral = def Then My.Settings.CBIGeneral = False @@ -4314,11 +4314,11 @@ checkFolder: Return My.Settings.CBIGeneral End Function -#End Region ' General +#End Region ' General #Region "------------------------------------- Captions Images ---------------------------------------------" - Private Sub BTNICaptions_Click(sender As System.Object, e As System.EventArgs) Handles BTNICaptions.Click + Private Sub BTNICaptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNICaptions.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.ICaptions = FolderBrowserDialog1.SelectedPath ImagesCaptions_CheckFolder() @@ -4329,10 +4329,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.ICaptionsSD Dim def As String = - My.Settings.PropertyValues("ICaptions").Property.DefaultValue + My.Settings.PropertyValues("ICaptions").Property.DefaultValue My.Settings.ICaptions = - Image_FolderCheck("Captions", My.Settings.ICaptions, def, subdir) + Image_FolderCheck("Captions", My.Settings.ICaptions, def, subdir) If My.Settings.ICaptions = def Then My.Settings.CBICaptions = False @@ -4345,11 +4345,11 @@ checkFolder: Return My.Settings.CBICaptions End Function -#End Region ' Captions +#End Region ' Captions #Region "------------------------------------- Boobs Images ----------------------------------------------" - Private Sub BTNBoobPath_Click(sender As System.Object, e As System.EventArgs) Handles BTNBoobPath.Click + Private Sub BTNBoobPath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBoobPath.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.LBLBoobPath = FolderBrowserDialog1.SelectedPath ImagesBoobs_CheckFolder() @@ -4360,10 +4360,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.CBBoobSubDir Dim def As String = - My.Settings.PropertyValues("LBLBoobPath").Property.DefaultValue + My.Settings.PropertyValues("LBLBoobPath").Property.DefaultValue My.Settings.LBLBoobPath = - Image_FolderCheck("Boobs", My.Settings.LBLBoobPath, def, subdir) + Image_FolderCheck("Boobs", My.Settings.LBLBoobPath, def, subdir) If My.Settings.LBLBoobPath = def Then My.Settings.CBIBoobs = False @@ -4376,11 +4376,11 @@ checkFolder: Return My.Settings.CBIBoobs End Function -#End Region ' Boobs +#End Region ' Boobs #Region "------------------------------------- Butts Images ----------------------------------------------" - Private Sub BTNButtPath_Click(sender As System.Object, e As System.EventArgs) Handles BTNButtPath.Click + Private Sub BTNButtPath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNButtPath.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.LBLButtPath = FolderBrowserDialog1.SelectedPath ImagesButts_CheckFolder() @@ -4391,10 +4391,10 @@ checkFolder: Dim subdir As Boolean = My.Settings.CBButtSubDir Dim def As String = - My.Settings.PropertyValues("LBLButtPath").Property.DefaultValue + My.Settings.PropertyValues("LBLButtPath").Property.DefaultValue My.Settings.LBLButtPath = - Image_FolderCheck("Butts", My.Settings.LBLButtPath, def, subdir) + Image_FolderCheck("Butts", My.Settings.LBLButtPath, def, subdir) If My.Settings.LBLButtPath = def Then My.Settings.CBIButts = False @@ -4407,132 +4407,132 @@ checkFolder: Return My.Settings.CBIButts End Function -#End Region ' Butt +#End Region ' Butt - Private Sub LBLIHardcore_Click(sender As System.Object, e As System.EventArgs) Handles TbxIHardcore.DoubleClick + Private Sub LBLIHardcore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxIHardcore.DoubleClick TbxIHardcore.Text = "No path selected" End Sub - Private Sub LBLISoftcore_Click(sender As System.Object, e As System.EventArgs) Handles TbxISoftcore.DoubleClick + Private Sub LBLISoftcore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxISoftcore.DoubleClick TbxISoftcore.Text = "No path selected" End Sub - Private Sub LBLILesbian_Click(sender As System.Object, e As System.EventArgs) Handles TbxILesbian.DoubleClick + Private Sub LBLILesbian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxILesbian.DoubleClick TbxILesbian.Text = "No path selected" End Sub - Private Sub LBLIBlowjob_Click(sender As System.Object, e As System.EventArgs) Handles TbxIBlowjob.DoubleClick + Private Sub LBLIBlowjob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxIBlowjob.DoubleClick TbxIBlowjob.Text = "No path selected" End Sub - Private Sub LBLIFemdom_Click(sender As System.Object, e As System.EventArgs) Handles TbxIFemdom.DoubleClick + Private Sub LBLIFemdom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxIFemdom.DoubleClick TbxIFemdom.Text = "No path selected" End Sub - Private Sub LBLILezdom_Click(sender As System.Object, e As System.EventArgs) Handles TbxILezdom.DoubleClick + Private Sub LBLILezdom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxILezdom.DoubleClick TbxILezdom.Text = "No path selected" End Sub - Private Sub LBLIHentai_Click(sender As System.Object, e As System.EventArgs) Handles TbxIHentai.DoubleClick + Private Sub LBLIHentai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxIHentai.DoubleClick TbxIHentai.Text = "No path selected" End Sub - Private Sub LBLIGay_Click(sender As System.Object, e As System.EventArgs) Handles TbxIGay.DoubleClick + Private Sub LBLIGay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxIGay.DoubleClick TbxIGay.Text = "No path selected" End Sub - Private Sub LBLIMaledom_Click(sender As System.Object, e As System.EventArgs) Handles TbxIMaledom.DoubleClick + Private Sub LBLIMaledom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxIMaledom.DoubleClick TbxIMaledom.Text = "No path selected" End Sub - Private Sub LBLICaptions_Click(sender As System.Object, e As System.EventArgs) Handles TbxICaptions.DoubleClick + Private Sub LBLICaptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxICaptions.DoubleClick TbxICaptions.Text = "No path selected" End Sub - Private Sub LBLIGeneral_Click(sender As System.Object, e As System.EventArgs) Handles TbxIGeneral.DoubleClick + Private Sub LBLIGeneral_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxIGeneral.DoubleClick TbxIGeneral.Text = "No path selected" End Sub - Private Sub LBLIHardcore_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIHardcore.MouseHover + Private Sub LBLIHardcore_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIHardcore.MouseHover TTDir.SetToolTip(TbxIHardcore, TbxIHardcore.Text) End Sub - Private Sub LBLISoftcore_MouseHover(sender As Object, e As System.EventArgs) Handles TbxISoftcore.MouseHover + Private Sub LBLISoftcore_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxISoftcore.MouseHover TTDir.SetToolTip(TbxISoftcore, TbxISoftcore.Text) End Sub - Private Sub LBLILesbian_MouseHover(sender As Object, e As System.EventArgs) Handles TbxILesbian.MouseHover + Private Sub LBLILesbian_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxILesbian.MouseHover TTDir.SetToolTip(TbxILesbian, TbxILesbian.Text) End Sub - Private Sub LBLIBlowjob_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIBlowjob.MouseHover + Private Sub LBLIBlowjob_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIBlowjob.MouseHover TTDir.SetToolTip(TbxIBlowjob, TbxIBlowjob.Text) End Sub - Private Sub LBLIFemdom_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIFemdom.MouseHover + Private Sub LBLIFemdom_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIFemdom.MouseHover TTDir.SetToolTip(TbxIFemdom, TbxIFemdom.Text) End Sub - Private Sub LBLILezdom_MouseHover(sender As Object, e As System.EventArgs) Handles TbxILezdom.MouseHover + Private Sub LBLILezdom_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxILezdom.MouseHover TTDir.SetToolTip(TbxILezdom, TbxILezdom.Text) End Sub - Private Sub LBLIHentai_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIHentai.MouseHover + Private Sub LBLIHentai_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIHentai.MouseHover TTDir.SetToolTip(TbxIHentai, TbxIHentai.Text) End Sub - Private Sub LBLIGay_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIGay.MouseHover + Private Sub LBLIGay_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIGay.MouseHover TTDir.SetToolTip(TbxIGay, TbxIGay.Text) End Sub - Private Sub LBLIMaledom_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIMaledom.MouseHover + Private Sub LBLIMaledom_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIMaledom.MouseHover TTDir.SetToolTip(TbxIMaledom, TbxIMaledom.Text) End Sub - Private Sub LBLICaptions_MouseHover(sender As Object, e As System.EventArgs) Handles TbxICaptions.MouseHover + Private Sub LBLICaptions_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxICaptions.MouseHover TTDir.SetToolTip(TbxICaptions, TbxICaptions.Text) End Sub - Private Sub LBLIGeneral_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIGeneral.MouseHover + Private Sub LBLIGeneral_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIGeneral.MouseHover TTDir.SetToolTip(TbxIGeneral, TbxIGeneral.Text) End Sub - Private Sub LBLBoobPath_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIBoobs.MouseHover + Private Sub LBLBoobPath_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIBoobs.MouseHover TTDir.SetToolTip(TbxIBoobs, TbxIBoobs.Text) End Sub - Private Sub LBLButtPath_MouseHover(sender As Object, e As System.EventArgs) Handles TbxIButts.MouseHover + Private Sub LBLButtPath_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TbxIButts.MouseHover TTDir.SetToolTip(TbxIButts, TbxIButts.Text) End Sub #Region "----------------------------------- GenreImages-Url-Files --------------------------------------" - Private Sub BtnImageUrlSetFile_Click(sender As System.Object, e As System.EventArgs) Handles BtnImageUrlHardcore.Click, - BtnImageUrlSoftcore.Click, BtnImageUrlMaledom.Click, BtnImageUrlLezdom.Click, BtnImageUrlLesbian.Click, - BtnImageUrlHentai.Click, BtnImageUrlGeneral.Click, BtnImageUrlGay.Click, BtnImageUrlFemdom.Click, - BtnImageUrlCaptions.Click, BtnImageUrlButt.Click, BtnImageUrlBoobs.Click, BtnImageUrlBlowjob.Click + Private Sub BtnImageUrlSetFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnImageUrlHardcore.Click, + BtnImageUrlSoftcore.Click, BtnImageUrlMaledom.Click, BtnImageUrlLezdom.Click, BtnImageUrlLesbian.Click, + BtnImageUrlHentai.Click, BtnImageUrlGeneral.Click, BtnImageUrlGay.Click, BtnImageUrlFemdom.Click, + BtnImageUrlCaptions.Click, BtnImageUrlButt.Click, BtnImageUrlBoobs.Click, BtnImageUrlBlowjob.Click Try ' Read the Row of the current Button Dim tmpTlpRow As Integer = TlpImageUrls.GetRow(sender) ' Check if the Button is in the TableLayoutPanel. If tmpTlpRow = -1 Then Throw New Exception("Can't find control in TableLayoutPanel. " & - "This is a major Design issue has to be fixed in code.") + "This is a major Design issue has to be fixed in code.") ' Get the Checkbox for the current button Dim tmpCheckbox As CheckBox = TlpImageUrls.GetControlFromPosition(0, tmpTlpRow) ' Check if the Text-Property has an active Databinding. If tmpCheckbox.DataBindings.Item("Checked") Is Nothing Then _ - Throw New InvalidDataException("Databinding """" Checked """" was not found in Checkbox." & - "This is a major design issue and has to be fixed in code.") + Throw New InvalidDataException("Databinding """" Checked """" was not found in Checkbox." & + "This is a major design issue and has to be fixed in code.") ' Get the TExtBox for the Current Button Dim tmpTextbox As TextBox = TlpImageUrls.GetControlFromPosition(2, tmpTlpRow) ' Check if the Text-Property has an active Databinding. If tmpTextbox.DataBindings.Item("Text") Is Nothing Then _ - Throw New InvalidDataException("This function is only availabe with a Databound Textbox. " & - "This is a major design issue and has to be fixed in code.") + Throw New InvalidDataException("This function is only availabe with a Databound Textbox. " & + "This is a major design issue and has to be fixed in code.") 'Declare a new instance of An OpenFileDialog. Use the URL-FilePat as initial Dim tmpFS As New OpenFileDialog With { - .Filter = "Textfiles|*.txt", - .Multiselect = False, - .CheckFileExists = True, - .Title = "Select an " & tmpCheckbox.Text & " URL-File", - .InitialDirectory = Form1.pathUrlFileDir} + .Filter = "Textfiles|*.txt", + .Multiselect = False, + .CheckFileExists = True, + .Title = "Select an " & tmpCheckbox.Text & " URL-File", + .InitialDirectory = Form1.pathUrlFileDir} ' Check if the URL-FilePath exits -> Otherwise create it. If Not Directory.Exists(tmpFS.InitialDirectory) Then _ @@ -4567,14 +4567,14 @@ checkFolder: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MsgBox(ex.Message & vbCrLf & "Please report this error at the Milovana Forum.", - MsgBoxStyle.Critical, "Cant Set URl-File") + MsgBoxStyle.Critical, "Cant Set URl-File") Log.WriteError(ex.Message, ex, "Error Set Url-File") End Try End Sub -#End Region 'GenreImages-Url-Files +#End Region 'GenreImages-Url-Files -#End Region ' Images +#End Region ' Images #Region "--------------------------------------- Videos -------------------------------------------------" @@ -4586,9 +4586,9 @@ checkFolder: ' Tell User, the dir. wasn't found. Ask to search manually for the folder. If MessageBox.Show(ActiveForm, - "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", - directoryDescription & " directory not found.", - MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then + "The directory """ & directoryPath & """ was not found." & vbCrLf & "Do you want to search for it?", + directoryDescription & " directory not found.", + MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then ' Find the first available parent-directory. ' This way the user hasn't to browse through his hole IO-System. @@ -4599,7 +4599,7 @@ checkFolder: ' Initialize new Dialog-Form Dim FolSel As New FolderBrowserDialog With {.SelectedPath = __tmp_dir, - .Description = "Select " & directoryDescription & " folder."} + .Description = "Select " & directoryDescription & " folder."} ' Display the Dialog -> Now the user has to set the new dir. If FolSel.ShowDialog(ActiveForm) = DialogResult.OK Then Return FolSel.SelectedPath @@ -4635,16 +4635,16 @@ checkFolder: Return t End Function - Private Sub TxbVideoFolder_MouseHover(sender As Object, e As System.EventArgs) Handles TxbVideoHardCore.MouseHover, - TxbVideoHardCoreD.MouseHover, TxbVideoSoftCore.MouseHover, TxbVideoSoftCoreD.MouseHover, TxbVideoLesbian.MouseHover, - TxbVideoLesbianD.MouseHover, TxbVideoBlowjob.MouseHover, TxbVideoBlowjobD.MouseHover, TxbVideoFemdom.MouseHover, - TxbVideoFemdomD.MouseHover, TxbVideoFemsub.MouseHover, TxbVideoFemsubD.MouseHover, TxbVideoJOI.MouseHover, - TxbVideoJOID.MouseHover, TxbVideoCH.MouseHover, TxbVideoCHD.MouseHover, TxbVideoGeneral.MouseHover, TxbVideoGeneralD.MouseHover + Private Sub TxbVideoFolder_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxbVideoHardCore.MouseHover, + TxbVideoHardCoreD.MouseHover, TxbVideoSoftCore.MouseHover, TxbVideoSoftCoreD.MouseHover, TxbVideoLesbian.MouseHover, + TxbVideoLesbianD.MouseHover, TxbVideoBlowjob.MouseHover, TxbVideoBlowjobD.MouseHover, TxbVideoFemdom.MouseHover, + TxbVideoFemdomD.MouseHover, TxbVideoFemsub.MouseHover, TxbVideoFemsubD.MouseHover, TxbVideoJOI.MouseHover, + TxbVideoJOID.MouseHover, TxbVideoCH.MouseHover, TxbVideoCHD.MouseHover, TxbVideoGeneral.MouseHover, TxbVideoGeneralD.MouseHover TTDir.SetToolTip(sender, CType(sender, TextBox).Text) End Sub - Private Sub BTNRefreshVideos_MouseHover(sender As Object, e As System.EventArgs) Handles BTNRefreshVideos.MouseHover + Private Sub BTNRefreshVideos_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNRefreshVideos.MouseHover TTDir.SetToolTip(BTNRefreshVideos, "Use this button to refresh video paths.") End Sub @@ -4652,7 +4652,7 @@ checkFolder: #Region "------------------------------------- Hardcore Videos -------------------------------------------" - Private Sub BTNVideoHardCore_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoHardCore.Click + Private Sub BTNVideoHardCore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoHardCore.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoHardcore = FolderBrowserDialog1.SelectedPath My.Settings.CBHardcore = True @@ -4662,10 +4662,10 @@ checkFolder: Friend Shared Function VideoHardcore_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoHardcore").Property.DefaultValue + My.Settings.PropertyValues("VideoHardcore").Property.DefaultValue My.Settings.VideoHardcore = - Video_FolderCheck("Hardcore Video", My.Settings.VideoHardcore, def) + Video_FolderCheck("Hardcore Video", My.Settings.VideoHardcore, def) If My.Settings.VideoHardcore = def Then My.Settings.CBHardcore = False @@ -4677,11 +4677,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoHardcore).Count End Function -#End Region ' Hardcore +#End Region ' Hardcore #Region "------------------------------------- Softcore Videos -------------------------------------------" - Private Sub BTNVideoSoftCore_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoSoftCore.Click + Private Sub BTNVideoSoftCore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoSoftCore.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoSoftcore = FolderBrowserDialog1.SelectedPath My.Settings.CBSoftcore = True @@ -4691,10 +4691,10 @@ checkFolder: Friend Shared Function VideoSoftcore_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoSoftcore").Property.DefaultValue + My.Settings.PropertyValues("VideoSoftcore").Property.DefaultValue My.Settings.VideoSoftcore = - Video_FolderCheck("Softcore Video", My.Settings.VideoSoftcore, def) + Video_FolderCheck("Softcore Video", My.Settings.VideoSoftcore, def) If My.Settings.VideoSoftcore = def Then My.Settings.CBSoftcore = False @@ -4706,11 +4706,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoSoftcore).Count End Function -#End Region ' Softcore +#End Region ' Softcore #Region "------------------------------------- Lesbian Videos --------------------------------------------" - Private Sub BTNVideoLesbian_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoLesbian.Click + Private Sub BTNVideoLesbian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoLesbian.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoLesbian = FolderBrowserDialog1.SelectedPath My.Settings.CBLesbian = True @@ -4720,10 +4720,10 @@ checkFolder: Friend Shared Function VideoLesbian_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoLesbian").Property.DefaultValue + My.Settings.PropertyValues("VideoLesbian").Property.DefaultValue My.Settings.VideoLesbian = - Video_FolderCheck("Lesbian Video", My.Settings.VideoLesbian, def) + Video_FolderCheck("Lesbian Video", My.Settings.VideoLesbian, def) If My.Settings.VideoLesbian = def Then My.Settings.CBLesbian = False @@ -4735,11 +4735,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoLesbian).Count End Function -#End Region ' Lesbian +#End Region ' Lesbian #Region "------------------------------------- Blowjob Videos --------------------------------------------" - Private Sub BTNVideoBlowjob_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoBlowjob.Click + Private Sub BTNVideoBlowjob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoBlowjob.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoBlowjob = FolderBrowserDialog1.SelectedPath My.Settings.CBBlowjob = True @@ -4749,10 +4749,10 @@ checkFolder: Friend Shared Function VideoBlowjob_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoBlowjob").Property.DefaultValue + My.Settings.PropertyValues("VideoBlowjob").Property.DefaultValue My.Settings.VideoBlowjob = - Video_FolderCheck("Blowjob Video", My.Settings.VideoBlowjob, def) + Video_FolderCheck("Blowjob Video", My.Settings.VideoBlowjob, def) If My.Settings.VideoBlowjob = def Then My.Settings.CBBlowjob = False @@ -4764,11 +4764,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoBlowjob).Count End Function -#End Region ' Blowjob +#End Region ' Blowjob #Region "---------------------------------------- Femdom -------------------------------------------------" - Private Sub BTNVideoFemDom_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoFemDom.Click + Private Sub BTNVideoFemDom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoFemDom.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoFemdom = FolderBrowserDialog1.SelectedPath My.Settings.CBFemdom = True @@ -4778,10 +4778,10 @@ checkFolder: Friend Shared Function VideoFemdom_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemdom").Property.DefaultValue + My.Settings.PropertyValues("VideoFemdom").Property.DefaultValue My.Settings.VideoFemdom = - Video_FolderCheck("Femdom Video", My.Settings.VideoFemdom, def) + Video_FolderCheck("Femdom Video", My.Settings.VideoFemdom, def) If My.Settings.VideoFemdom = def Then My.Settings.CBFemdom = False @@ -4793,11 +4793,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoFemdom).Count End Function -#End Region ' Femdom +#End Region ' Femdom #Region "------------------------------------- Femsub Videos ---------------------------------------------" - Private Sub BTNVideoFemSub_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoFemSub.Click + Private Sub BTNVideoFemSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoFemSub.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoFemsub = FolderBrowserDialog1.SelectedPath My.Settings.CBFemsub = True @@ -4807,10 +4807,10 @@ checkFolder: Friend Shared Function VideoFemsub_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemsub").Property.DefaultValue + My.Settings.PropertyValues("VideoFemsub").Property.DefaultValue My.Settings.VideoFemsub = - Video_FolderCheck("Femsub Video", My.Settings.VideoFemsub, def) + Video_FolderCheck("Femsub Video", My.Settings.VideoFemsub, def) If My.Settings.VideoFemsub = def Then My.Settings.CBFemsub = False @@ -4822,11 +4822,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoFemsub).Count End Function -#End Region ' Femsub +#End Region ' Femsub #Region "------------------------------------- JOI Videos ------------------------------------------------" - Private Sub BTNVideoJOI_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoJOI.Click + Private Sub BTNVideoJOI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoJOI.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoJOI = FolderBrowserDialog1.SelectedPath My.Settings.CBJOI = True @@ -4836,10 +4836,10 @@ checkFolder: Friend Shared Function VideoJOI_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoJOI").Property.DefaultValue + My.Settings.PropertyValues("VideoJOI").Property.DefaultValue My.Settings.VideoJOI = - Video_FolderCheck("JOI Video", My.Settings.VideoJOI, def) + Video_FolderCheck("JOI Video", My.Settings.VideoJOI, def) If My.Settings.VideoJOI = def Then My.Settings.CBJOI = False @@ -4851,11 +4851,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoJOI).Count End Function -#End Region ' JOI +#End Region ' JOI #Region "------------------------------------- CH Videos -------------------------------------------------" - Private Sub BTNVideoCH_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoCH.Click + Private Sub BTNVideoCH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoCH.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoCH = FolderBrowserDialog1.SelectedPath My.Settings.CBCH = True @@ -4865,10 +4865,10 @@ checkFolder: Friend Shared Function VideoCH_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoCH").Property.DefaultValue + My.Settings.PropertyValues("VideoCH").Property.DefaultValue My.Settings.VideoCH = - Video_FolderCheck("CH Video", My.Settings.VideoCH, def) + Video_FolderCheck("CH Video", My.Settings.VideoCH, def) If My.Settings.VideoCH = def Then My.Settings.CBCH = False @@ -4880,11 +4880,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoCH).Count End Function -#End Region ' CH +#End Region ' CH #Region "------------------------------------- General Videos --------------------------------------------" - Private Sub BTNVideoGeneral_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoGeneral.Click + Private Sub BTNVideoGeneral_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoGeneral.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoGeneral = FolderBrowserDialog1.SelectedPath My.Settings.CBGeneral = True @@ -4894,10 +4894,10 @@ checkFolder: Friend Shared Function VideoGeneral_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoGeneral").Property.DefaultValue + My.Settings.PropertyValues("VideoGeneral").Property.DefaultValue My.Settings.VideoGeneral = - Video_FolderCheck("General Video", My.Settings.VideoGeneral, def) + Video_FolderCheck("General Video", My.Settings.VideoGeneral, def) If My.Settings.VideoGeneral = def Then My.Settings.CBGeneral = False @@ -4909,15 +4909,15 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoGeneral).Count End Function -#End Region ' General +#End Region ' General -#End Region ' Regular +#End Region ' Regular #Region "------------------------------------------ Domme ------------------------------------------------" #Region "---------------------------------------- HardcoreD ----------------------------------------------" - Private Sub BTNVideoHardcoreD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoHardCoreD.Click + Private Sub BTNVideoHardcoreD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoHardCoreD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoHardcoreD = FolderBrowserDialog1.SelectedPath My.Settings.CBHardcoreD = True @@ -4927,10 +4927,10 @@ checkFolder: Friend Shared Function VideoHardcoreD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoHardcoreD").Property.DefaultValue + My.Settings.PropertyValues("VideoHardcoreD").Property.DefaultValue My.Settings.VideoHardcoreD = - Video_FolderCheck("HardcoreD Video", My.Settings.VideoHardcoreD, def) + Video_FolderCheck("HardcoreD Video", My.Settings.VideoHardcoreD, def) If My.Settings.VideoHardcoreD = def Then My.Settings.CBHardcoreD = False @@ -4942,11 +4942,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD).Count End Function -#End Region ' HardcoreD +#End Region ' HardcoreD #Region "---------------------------------------- SoftcoreD ----------------------------------------------" - Private Sub BTNVideoSoftcoreD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoSoftCoreD.Click + Private Sub BTNVideoSoftcoreD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoSoftCoreD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoSoftcoreD = FolderBrowserDialog1.SelectedPath My.Settings.CBSoftcoreD = True @@ -4956,10 +4956,10 @@ checkFolder: Friend Shared Function VideoSoftcoreD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoSoftcoreD").Property.DefaultValue + My.Settings.PropertyValues("VideoSoftcoreD").Property.DefaultValue My.Settings.VideoSoftcoreD = - Video_FolderCheck("SoftcoreD Video", My.Settings.VideoSoftcoreD, def) + Video_FolderCheck("SoftcoreD Video", My.Settings.VideoSoftcoreD, def) If My.Settings.VideoSoftcoreD = def Then My.Settings.CBSoftcoreD = False @@ -4971,11 +4971,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD).Count End Function -#End Region ' SoftcoreD +#End Region ' SoftcoreD #Region "---------------------------------------- LesbianD -----------------------------------------------" - Private Sub BTNVideoLesbianD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoLesbianD.Click + Private Sub BTNVideoLesbianD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoLesbianD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoLesbianD = FolderBrowserDialog1.SelectedPath My.Settings.CBLesbianD = True @@ -4985,10 +4985,10 @@ checkFolder: Friend Shared Function VideoLesbianD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoLesbianD").Property.DefaultValue + My.Settings.PropertyValues("VideoLesbianD").Property.DefaultValue My.Settings.VideoLesbianD = - Video_FolderCheck("LesbianD Video", My.Settings.VideoLesbianD, def) + Video_FolderCheck("LesbianD Video", My.Settings.VideoLesbianD, def) If My.Settings.VideoLesbianD = def Then My.Settings.CBLesbianD = False @@ -5000,11 +5000,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoLesbianD).Count End Function -#End Region ' LesbianD +#End Region ' LesbianD #Region "---------------------------------------- BlowjobD -----------------------------------------------" - Private Sub BTNVideoBlowjobD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoBlowjobD.Click + Private Sub BTNVideoBlowjobD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoBlowjobD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoBlowjobD = FolderBrowserDialog1.SelectedPath My.Settings.CBBlowjobD = True @@ -5014,10 +5014,10 @@ checkFolder: Friend Shared Function VideoBlowjobD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoBlowjobD").Property.DefaultValue + My.Settings.PropertyValues("VideoBlowjobD").Property.DefaultValue My.Settings.VideoBlowjobD = - Video_FolderCheck("BlowjobD Video", My.Settings.VideoBlowjobD, def) + Video_FolderCheck("BlowjobD Video", My.Settings.VideoBlowjobD, def) If My.Settings.VideoBlowjobD = def Then My.Settings.CBBlowjobD = False @@ -5029,11 +5029,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD).Count End Function -#End Region ' BlowjobD +#End Region ' BlowjobD #Region "---------------------------------------- FemdomD ------------------------------------------------" - Private Sub BTNVideoFemdomD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoFemDomD.Click + Private Sub BTNVideoFemdomD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoFemDomD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoFemdomD = FolderBrowserDialog1.SelectedPath My.Settings.CBFemdomD = True @@ -5043,10 +5043,10 @@ checkFolder: Friend Shared Function VideoFemdomD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemdomD").Property.DefaultValue + My.Settings.PropertyValues("VideoFemdomD").Property.DefaultValue My.Settings.VideoFemdomD = - Video_FolderCheck("FemdomD Video", My.Settings.VideoFemdomD, def) + Video_FolderCheck("FemdomD Video", My.Settings.VideoFemdomD, def) If My.Settings.VideoFemdomD = def Then My.Settings.CBFemdomD = False @@ -5058,11 +5058,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoFemdomD).Count End Function -#End Region ' FemdomD +#End Region ' FemdomD #Region "---------------------------------------- FemsubD ------------------------------------------------" - Private Sub BTNVideoFemsubD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoFemSubD.Click + Private Sub BTNVideoFemsubD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoFemSubD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoFemsubD = FolderBrowserDialog1.SelectedPath My.Settings.CBFemsubD = True @@ -5072,10 +5072,10 @@ checkFolder: Friend Shared Function VideoFemsubD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoFemsubD").Property.DefaultValue + My.Settings.PropertyValues("VideoFemsubD").Property.DefaultValue My.Settings.VideoFemsubD = - Video_FolderCheck("FemsubD Video", My.Settings.VideoFemsubD, def) + Video_FolderCheck("FemsubD Video", My.Settings.VideoFemsubD, def) If My.Settings.VideoFemsubD = def Then My.Settings.CBFemsubD = False @@ -5087,11 +5087,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoFemsubD).Count End Function -#End Region ' FemsubD +#End Region ' FemsubD #Region "---------------------------------------- JOI-D --------------------------------------------------" - Private Sub BTNVideoJOID_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoJOID.Click + Private Sub BTNVideoJOID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoJOID.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoJOID = FolderBrowserDialog1.SelectedPath My.Settings.CBJOID = True @@ -5101,10 +5101,10 @@ checkFolder: Friend Shared Function VideoJOID_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoJOID").Property.DefaultValue + My.Settings.PropertyValues("VideoJOID").Property.DefaultValue My.Settings.VideoJOID = - Video_FolderCheck("JOID Video", My.Settings.VideoJOID, def) + Video_FolderCheck("JOID Video", My.Settings.VideoJOID, def) If My.Settings.VideoJOID = def Then My.Settings.CBJOID = False @@ -5116,11 +5116,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoJOID).Count End Function -#End Region ' JOI-D +#End Region ' JOI-D #Region "---------------------------------------- CH-D ---------------------------------------------------" - Private Sub BTNVideoCHD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoCHD.Click + Private Sub BTNVideoCHD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoCHD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoCHD = FolderBrowserDialog1.SelectedPath My.Settings.CBCHD = True @@ -5130,10 +5130,10 @@ checkFolder: Friend Shared Function VideoCHD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoCHD").Property.DefaultValue + My.Settings.PropertyValues("VideoCHD").Property.DefaultValue My.Settings.VideoCHD = - Video_FolderCheck("CHD Video", My.Settings.VideoCHD, def) + Video_FolderCheck("CHD Video", My.Settings.VideoCHD, def) If My.Settings.VideoCHD = def Then My.Settings.CBCHD = False @@ -5145,11 +5145,11 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoCHD).Count End Function -#End Region ' CH-D +#End Region ' CH-D #Region "---------------------------------------- GeneralD -----------------------------------------------" - Private Sub BTNVideoGeneralD_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoGeneralD.Click + Private Sub BTNVideoGeneralD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoGeneralD.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then My.Settings.VideoGeneralD = FolderBrowserDialog1.SelectedPath My.Settings.CBGeneralD = True @@ -5159,10 +5159,10 @@ checkFolder: Friend Shared Function VideoGeneralD_CheckFolder() As Boolean Dim def As String = - My.Settings.PropertyValues("VideoGeneralD").Property.DefaultValue + My.Settings.PropertyValues("VideoGeneralD").Property.DefaultValue My.Settings.VideoGeneralD = - Video_FolderCheck("GeneralD Video", My.Settings.VideoGeneralD, def) + Video_FolderCheck("GeneralD Video", My.Settings.VideoGeneralD, def) If My.Settings.VideoGeneralD = def Then My.Settings.CBGeneralD = False @@ -5174,16 +5174,16 @@ checkFolder: Return myDirectory.GetFilesVideo(My.Settings.VideoGeneralD).Count End Function -#End Region ' GeneralD +#End Region ' GeneralD -#End Region ' Domme +#End Region ' Domme - Private Sub BTNRefreshVideos_Click(sender As System.Object, e As System.EventArgs) Handles BTNRefreshVideos.Click + Private Sub BTNRefreshVideos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRefreshVideos.Click VideoDescriptionLabel.Text = "Refresh complete: " & Video_CheckAllFolders() & " videos found!" VideoDescriptionLabel.Text = VideoDescriptionLabel.Text.Replace(": 1 videos", ": 1 video") End Sub -#End Region ' Videos +#End Region ' Videos Private Sub BindCombo() @@ -5278,29 +5278,29 @@ checkFolder: - Private Sub CockSizeNumBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles CockSizeNumBox.LostFocus + Private Sub CockSizeNumBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CockSizeNumBox.LostFocus My.Settings.SubCockSize = CockSizeNumBox.Value End Sub - Private Sub NBCensorShowMin_Leave(sender As System.Object, e As System.EventArgs) Handles NBCensorShowMin.Leave + Private Sub NBCensorShowMin_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorShowMin.Leave My.Settings.NBCensorShowMin = NBCensorShowMin.Value Debug.Print(My.Settings.NBCensorShowMin & " " & NBCensorShowMin.Value) End Sub - Private Sub NBCensorShowMax_Leave(sender As System.Object, e As System.EventArgs) Handles NBCensorShowMax.Leave + Private Sub NBCensorShowMax_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorShowMax.Leave My.Settings.NBCensorShowMax = NBCensorShowMax.Value End Sub - Private Sub NBCensorHideMin_Leave(sender As System.Object, e As System.EventArgs) Handles NBCensorHideMin.Leave + Private Sub NBCensorHideMin_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorHideMin.Leave My.Settings.NBCensorHideMin = NBCensorHideMin.Value End Sub - Private Sub NBCensorHideMax_Leave(sender As System.Object, e As System.EventArgs) Handles NBCensorHideMax.Leave + Private Sub NBCensorHideMax_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorHideMax.Leave My.Settings.NBCensorHideMax = NBCensorHideMax.Value End Sub - Private Sub CBCensorConstant_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBCensorConstant.CheckedChanged + Private Sub CBCensorConstant_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBCensorConstant.CheckedChanged If CBCensorConstant.Checked = True Then My.Settings.CBCensorConstant = True Else @@ -5315,65 +5315,65 @@ checkFolder: - Private Sub NBCensorShowMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBCensorShowMin.ValueChanged + Private Sub NBCensorShowMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorShowMin.ValueChanged If NBCensorShowMin.Value > NBCensorShowMax.Value Then NBCensorShowMin.Value = NBCensorShowMax.Value End Sub - Private Sub NBCensorShowMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBCensorShowMax.ValueChanged + Private Sub NBCensorShowMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorShowMax.ValueChanged If NBCensorShowMax.Value < NBCensorShowMin.Value Then NBCensorShowMax.Value = NBCensorShowMin.Value End Sub - Private Sub NBTeaseLengthMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBTeaseLengthMin.LostFocus + Private Sub NBTeaseLengthMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTeaseLengthMin.LostFocus My.Settings.TeaseLengthMin = NBTeaseLengthMin.Value End Sub - Private Sub NBTeaseLengthMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBTeaseLengthMax.LostFocus + Private Sub NBTeaseLengthMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTeaseLengthMax.LostFocus My.Settings.TeaseLengthMax = NBTeaseLengthMax.Value End Sub - Private Sub NBTauntCycleMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBTauntCycleMin.LostFocus + Private Sub NBTauntCycleMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTauntCycleMin.LostFocus My.Settings.TauntCycleMin = NBTauntCycleMin.Value End Sub - Private Sub NBTauntCycleMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBTauntCycleMax.LostFocus + Private Sub NBTauntCycleMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTauntCycleMax.LostFocus My.Settings.TauntCycleMax = NBTauntCycleMax.Value End Sub - Private Sub NBRedLightMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBRedLightMin.LostFocus + Private Sub NBRedLightMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBRedLightMin.LostFocus My.Settings.RedLightMin = NBRedLightMin.Value End Sub - Private Sub NBRedLightMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBRedLightMax.LostFocus + Private Sub NBRedLightMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBRedLightMax.LostFocus My.Settings.RedLightMax = NBRedLightMax.Value End Sub - Private Sub NBGreenLightMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBGreenLightMin.LostFocus + Private Sub NBGreenLightMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBGreenLightMin.LostFocus My.Settings.GreenLightMin = NBGreenLightMin.Value End Sub - Private Sub NBGreenLightMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBGreenLightMax.LostFocus + Private Sub NBGreenLightMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBGreenLightMax.LostFocus My.Settings.GreenLightMax = NBGreenLightMax.Value End Sub - Private Sub NBTeaseLengthMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTeaseLengthMin.ValueChanged + Private Sub NBTeaseLengthMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTeaseLengthMin.ValueChanged If NBTeaseLengthMin.Value > NBTeaseLengthMax.Value Then NBTeaseLengthMin.Value = NBTeaseLengthMax.Value End Sub - Private Sub NBTeaseLengthMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTeaseLengthMax.ValueChanged + Private Sub NBTeaseLengthMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTeaseLengthMax.ValueChanged If NBTeaseLengthMax.Value < NBTeaseLengthMin.Value Then NBTeaseLengthMax.Value = NBTeaseLengthMin.Value End Sub - Private Sub NBTauntCycleMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTauntCycleMin.ValueChanged + Private Sub NBTauntCycleMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTauntCycleMin.ValueChanged If NBTauntCycleMin.Value > NBTauntCycleMax.Value Then NBTauntCycleMin.Value = NBTauntCycleMax.Value End Sub - Private Sub NBTauntCycleMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTauntCycleMax.ValueChanged + Private Sub NBTauntCycleMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTauntCycleMax.ValueChanged If NBTauntCycleMax.Value < NBTauntCycleMin.Value Then NBTauntCycleMax.Value = NBTauntCycleMin.Value End Sub - Private Sub NBCensorHideMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBCensorHideMin.ValueChanged + Private Sub NBCensorHideMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorHideMin.ValueChanged If NBCensorHideMin.Value > NBCensorHideMax.Value Then NBCensorHideMin.Value = NBCensorHideMax.Value End Sub - Private Sub NBCensorHideMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBCensorHideMax.ValueChanged + Private Sub NBCensorHideMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBCensorHideMax.ValueChanged If NBCensorHideMax.Value < NBCensorHideMin.Value Then NBCensorHideMax.Value = NBCensorHideMin.Value End Sub @@ -5388,7 +5388,7 @@ checkFolder: - Private Sub Button26_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNVideoModLoad.Click + Private Sub Button26_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoModLoad.Click Dim CensorText As String = "NULL" @@ -5445,11 +5445,11 @@ checkFolder: End Sub - Private Sub RTBVideoMod_TextChanged(sender As System.Object, e As System.EventArgs) Handles RTBVideoMod.TextChanged + Private Sub RTBVideoMod_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RTBVideoMod.TextChanged BTNVideoModSave.Enabled = True End Sub - Private Sub BTNVideoModClear_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoModClear.Click + Private Sub BTNVideoModClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoModClear.Click BTNVideoModClear.Enabled = False BTNVideoModLoad.Enabled = True CBVTType.Enabled = True @@ -5459,7 +5459,7 @@ checkFolder: LBVidScript.Enabled = True End Sub - Private Sub BTNVideoModSave_Click(sender As System.Object, e As System.EventArgs) Handles BTNVideoModSave.Click + Private Sub BTNVideoModSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoModSave.Click @@ -5503,7 +5503,7 @@ checkFolder: - Private Sub Button26_Click_2(sender As System.Object, e As System.EventArgs) Handles Button26.Click + Private Sub Button26_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click TBGlitModFileName.Text = "" RTBGlitModDommePost.Text = "" RTBGlitModResponses.Text = "" @@ -5511,7 +5511,7 @@ checkFolder: End Sub - Private Sub CBGlitModType_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CBGlitModType.SelectedIndexChanged + Private Sub CBGlitModType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBGlitModType.SelectedIndexChanged If Form1.FormLoading = False Then @@ -5532,7 +5532,7 @@ checkFolder: End If End Sub - Private Sub LBGlitModScripts_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles LBGlitModScripts.SelectedIndexChanged + Private Sub LBGlitModScripts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBGlitModScripts.SelectedIndexChanged Dim GlitPath As String = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\Apps\Glitter\" & CBGlitModType.Text & "\" & LBGlitModScripts.SelectedItem & ".txt" @@ -5583,7 +5583,7 @@ checkFolder: End Sub - Private Sub Button29_Click(sender As System.Object, e As System.EventArgs) Handles Button29.Click + Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click If TBGlitModFileName.Text = "" Or RTBGlitModDommePost.Text = "" Or RTBGlitModResponses.Text = "" Then MsgBox("Please make sure all fields have been filled out!", , "Error!") @@ -5634,22 +5634,22 @@ checkFolder: - ''' ========================================================================================================= - ''' - ''' Activates the specified is activaed in Listbox and saves the Listboxstate. - ''' - ''' - Private Sub URL_File_Set(ByVal URL_FileName As String) + ''' ========================================================================================================= + ''' + ''' Activates the specified is activaed in Listbox and saves the Listboxstate. + ''' + ''' + Private Sub URL_File_Set(ByVal URL_FileName As String) Try - ' Set the new URL-File - If Not URLFileList.Items.Contains(URL_FileName) Then + ' Set the new URL-File + If Not URLFileList.Items.Contains(URL_FileName) Then URLFileList.Items.Add(URL_FileName) For i As Integer = 0 To URLFileList.Items.Count - 1 If URLFileList.Items(i) = URL_FileName Then URLFileList.SetItemChecked(i, True) Next End If - ' Save ListState - Using FileStream As New System.IO.FileStream(Application.StartupPath & "\Images\System\URLFileCheckList.cld", IO.FileMode.Create) + ' Save ListState + Using FileStream As New System.IO.FileStream(Application.StartupPath & "\Images\System\URLFileCheckList.cld", IO.FileMode.Create) Using BinaryWriter As New System.IO.BinaryWriter(FileStream) For i = 0 To URLFileList.Items.Count - 1 BinaryWriter.Write(CStr(URLFileList.Items(i))) @@ -5666,7 +5666,7 @@ checkFolder: - Private Sub SliderSTF_Scroll(sender As System.Object, e As System.EventArgs) Handles SliderSTF.Scroll + Private Sub SliderSTF_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderSTF.Scroll If SliderSTF.Value = 1 Then LBLStf.Text = "Preoccupied" If SliderSTF.Value = 2 Then LBLStf.Text = "Distracted" If SliderSTF.Value = 3 Then LBLStf.Text = "Normal" @@ -5675,7 +5675,7 @@ checkFolder: End Sub - Private Sub TauntSlider_Scroll(sender As System.Object, e As System.EventArgs) Handles TauntSlider.Scroll + Private Sub TauntSlider_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TauntSlider.Scroll If TauntSlider.Value = 1 Then LBLVtf.Text = "Preoccupied" If TauntSlider.Value = 2 Or TauntSlider.Value = 3 Then LBLVtf.Text = "Distracted" If TauntSlider.Value = 4 Or TauntSlider.Value = 5 Then LBLVtf.Text = "Normal" @@ -5686,38 +5686,38 @@ checkFolder: - Private Sub TauntSlider_LostFocus(sender As System.Object, e As System.EventArgs) Handles TauntSlider.LostFocus + Private Sub TauntSlider_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TauntSlider.LostFocus My.Settings.TimerVTF = TauntSlider.Value End Sub - Private Sub SliderSTF_LostFocus(sender As System.Object, e As System.EventArgs) Handles SliderSTF.LostFocus + Private Sub SliderSTF_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderSTF.LostFocus My.Settings.TimerSTF = SliderSTF.Value End Sub - Private Sub giveupCheckBox_CheckedChanged(sender As Object, e As System.EventArgs) Handles giveupCheckBox.MouseClick + Private Sub giveupCheckBox_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles giveupCheckBox.MouseClick My.Settings.GiveUpReturn = giveupCheckBox.Checked My.Settings.Save() End Sub - Private Sub NBWritingTaskMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBWritingTaskMin.LostFocus + Private Sub NBWritingTaskMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBWritingTaskMin.LostFocus My.Settings.NBWritingTaskMin = NBWritingTaskMin.Value End Sub - Private Sub NBWritingTaskMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBWritingTaskMin.ValueChanged + Private Sub NBWritingTaskMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBWritingTaskMin.ValueChanged If NBWritingTaskMin.Value > NBWritingTaskMax.Value Then NBWritingTaskMin.Value = NBWritingTaskMax.Value End Sub - Private Sub NBWritingTaskMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBWritingTaskMax.LostFocus + Private Sub NBWritingTaskMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBWritingTaskMax.LostFocus My.Settings.NBWritingTaskMax = NBWritingTaskMax.Value End Sub - Private Sub NBWritingTaskMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBWritingTaskMax.ValueChanged + Private Sub NBWritingTaskMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBWritingTaskMax.ValueChanged If NBWritingTaskMax.Value < NBWritingTaskMin.Value Then NBWritingTaskMax.Value = NBWritingTaskMin.Value End Sub - Private Sub BTNTagDir_Click(sender As System.Object, e As System.EventArgs) Handles BTNTagDir.Click + Private Sub BTNTagDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTagDir.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then @@ -5814,7 +5814,7 @@ checkFolder: End Sub - Private Sub TBTagDir_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TBTagDir.KeyPress + Private Sub TBTagDir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TBTagDir.KeyPress If e.KeyChar = Convert.ToChar(13) Then @@ -5924,7 +5924,7 @@ checkFolder: End Sub - Private Sub BTNTagSave_Click(sender As System.Object, e As System.EventArgs) Handles BTNTagSave.Click + Private Sub BTNTagSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTagSave.Click SaveDommeTags() @@ -6021,7 +6021,7 @@ checkFolder: End Sub - Private Sub BTNTagNext_Click(sender As System.Object, e As System.EventArgs) Handles BTNTagNext.Click + Private Sub BTNTagNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTagNext.Click TagCount += 1 LBLTagCount.Text = TagCount & "/" & ImageTagDir.Count @@ -6055,7 +6055,7 @@ checkFolder: End Sub - Private Sub BTNTagPrevious_Click(sender As System.Object, e As System.EventArgs) Handles BTNTagPrevious.Click + Private Sub BTNTagPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTagPrevious.Click TagCount -= 1 LBLTagCount.Text = TagCount & "/" & ImageTagDir.Count @@ -6093,7 +6093,7 @@ checkFolder: - Private Sub Button50_Click(sender As System.Object, e As System.EventArgs) Handles Button50.Click + Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click TBKeyWords.Text = "" RTBKeyWords.Text = "" @@ -6108,7 +6108,7 @@ checkFolder: End Sub - Private Sub LBKeyWords_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles LBKeyWords.SelectedIndexChanged + Private Sub LBKeyWords_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBKeyWords.SelectedIndexChanged Dim KeyWordPath As String = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\Vocabulary\" & LBKeyWords.SelectedItem & ".txt" @@ -6155,12 +6155,12 @@ checkFolder: End Sub - Private Sub Button22_Click(sender As System.Object, e As System.EventArgs) Handles Button22.Click + Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click Try If TBKeyWords.Text = "" Or InStr(TBKeyWords.Text, "#") <> 1 Or Not TBKeyWords.Text.Substring(0, 1) = "#" Then MessageBox.Show(Me, "Please enter a correct file name for this Keyword script!" & Environment.NewLine & Environment.NewLine & "Keyword file names must contain one ""#"" sign, " & - "placed at the beginning of the word or phrase.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + "placed at the beginning of the word or phrase.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) Return End If Catch @@ -6196,49 +6196,49 @@ checkFolder: End Sub - Private Sub TBGreeting_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBGreeting.LostFocus + Private Sub TBGreeting_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBGreeting.LostFocus My.Settings.SubGreeting = TBGreeting.Text Ssh.checkAnswers = New subAnswers(Ssh) End Sub - Private Sub TBYes_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBYes.LostFocus + Private Sub TBYes_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBYes.LostFocus My.Settings.SubYes = TBYes.Text Ssh.checkAnswers = New subAnswers(Ssh) End Sub - Private Sub TBNo_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBNo.LostFocus + Private Sub TBNo_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBNo.LostFocus My.Settings.SubNo = TBNo.Text Ssh.checkAnswers = New subAnswers(Ssh) End Sub - Private Sub TBSorry_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBSorry.LostFocus + Private Sub TBSorry_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBSorry.LostFocus My.Settings.SubSorry = TBSorry.Text Ssh.checkAnswers = New subAnswers(Ssh) End Sub - Private Sub TBHonorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBHonorific.LostFocus + Private Sub TBHonorific_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBHonorific.LostFocus If TBHonorific.Text = "" Or TBHonorific.Text Is Nothing Then TBHonorific.Text = "Mistress" My.Settings.SubHonorific = TBHonorific.Text Ssh.tempHonorific = TBHonorific.Text End Sub - Private Sub G1Honorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles G1Honorific.LostFocus + Private Sub G1Honorific_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G1Honorific.LostFocus My.Settings.G1Honorific = G1Honorific.Text End Sub - Private Sub G2Honorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles G2Honorific.LostFocus + Private Sub G2Honorific_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G2Honorific.LostFocus My.Settings.G2Honorific = G2Honorific.Text End Sub - Private Sub G3Honorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles G3Honorific.LostFocus + Private Sub G3Honorific_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G3Honorific.LostFocus My.Settings.G3Honorific = G3Honorific.Text End Sub - Private Sub RandomHonorific_LostFocus(sender As System.Object, e As System.EventArgs) Handles RandomHonorific.LostFocus + Private Sub RandomHonorific_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RandomHonorific.LostFocus My.Settings.RandomHonorific = RandomHonorific.Text End Sub - Private Sub CBHonorificInclude_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBHonorificInclude.LostFocus + Private Sub CBHonorificInclude_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBHonorificInclude.LostFocus If CBHonorificInclude.Checked = True Then My.Settings.CBUseHonor = True Else @@ -6246,7 +6246,7 @@ checkFolder: End If End Sub - Private Sub CBHonorificCapitalized_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBHonorificCapitalized.LostFocus + Private Sub CBHonorificCapitalized_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBHonorificCapitalized.LostFocus If CBHonorificCapitalized.Checked = True Then My.Settings.CBCapHonor = True Else @@ -6254,42 +6254,42 @@ checkFolder: End If End Sub - Private Sub subAgeNumBox_LostFocus(sender As System.Object, e As System.EventArgs) Handles subAgeNumBox.LostFocus + Private Sub subAgeNumBox_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subAgeNumBox.LostFocus My.Settings.SubAge = subAgeNumBox.Value End Sub - Private Sub NBDomBirthdayMonth_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBDomBirthdayMonth.LostFocus + Private Sub NBDomBirthdayMonth_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomBirthdayMonth.LostFocus My.Settings.DomBirthMonth = NBDomBirthdayMonth.Value End Sub - Private Sub NBDomBirthdayDay_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBDomBirthdayDay.LostFocus + Private Sub NBDomBirthdayDay_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomBirthdayDay.LostFocus My.Settings.DomBirthDay = NBDomBirthdayDay.Value End Sub - Private Sub NBBirthdayMonth_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBBirthdayMonth.LostFocus + Private Sub NBBirthdayMonth_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBBirthdayMonth.LostFocus My.Settings.SubBirthMonth = NBBirthdayMonth.Value End Sub - Private Sub NBBirthdayDay_LostFocus(sender As System.Object, e As System.EventArgs) Handles NBBirthdayDay.LostFocus + Private Sub NBBirthdayDay_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBBirthdayDay.LostFocus My.Settings.SubBirthDay = NBBirthdayDay.Value End Sub - Private Sub TBSubHairColor_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBSubHairColor.LostFocus + Private Sub TBSubHairColor_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBSubHairColor.LostFocus My.Settings.SubHair = TBSubHairColor.Text End Sub - Private Sub TBSubEyeColor_LostFocus(sender As System.Object, e As System.EventArgs) Handles TBSubEyeColor.LostFocus + Private Sub TBSubEyeColor_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBSubEyeColor.LostFocus My.Settings.SubEyes = TBSubEyeColor.Text End Sub - Private Sub Button37_Click_1(sender As System.Object, e As System.EventArgs) Handles Button37.Click + Private Sub Button37_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click If TBKeywordPreview.Text = "" Then Return LBLKeywordPreview.Text = Form1.PoundClean(TBKeywordPreview.Text) End Sub - Private Sub NBBirthdayMonth_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBBirthdayMonth.MouseLeave + Private Sub NBBirthdayMonth_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBBirthdayMonth.MouseLeave If NBBirthdayMonth.Value = 2 And NBBirthdayDay.Value > 28 Then NBBirthdayDay.Value = 28 @@ -6310,7 +6310,7 @@ checkFolder: End Sub - Private Sub NBDomBirthdayMonth_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBDomBirthdayMonth.MouseLeave + Private Sub NBDomBirthdayMonth_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBDomBirthdayMonth.MouseLeave If NBDomBirthdayMonth.Value = 2 And NBDomBirthdayDay.Value > 28 Then NBDomBirthdayDay.Value = 28 @@ -6334,8 +6334,8 @@ checkFolder: - Function InstrCount(StringToSearch As String, - StringToFind As String) As Long + Function InstrCount(ByVal StringToSearch As String, + ByVal StringToFind As String) As Long If Len(StringToFind) Then InstrCount = UBound(Split(StringToSearch, StringToFind)) @@ -6347,12 +6347,12 @@ checkFolder: - Private Sub TBTagDir_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TBTagDir.MouseClick + Private Sub TBTagDir_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBTagDir.MouseClick TBTagDir.SelectionStart = 0 TBTagDir.SelectionLength = Len(TBTagDir.Text) End Sub - Private Sub TBWIDirectory_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TBWIDirectory.MouseClick + Private Sub TBWIDirectory_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBWIDirectory.MouseClick TBWIDirectory.SelectionStart = 0 TBWIDirectory.SelectionLength = Len(TBWIDirectory.Text) End Sub @@ -6439,12 +6439,12 @@ checkFolder: End Sub - Private Sub URLFileList_LostFocus(sender As Object, e As System.EventArgs) Handles URLFileList.LostFocus + Private Sub URLFileList_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles URLFileList.LostFocus SaveURLFileSelection() End Sub - Private Sub URLFileList_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles URLFileList.SelectedIndexChanged + Private Sub URLFileList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles URLFileList.SelectedIndexChanged If CBURLPreview.Checked = True Then Dim PreviewList As New List(Of String) @@ -6456,21 +6456,21 @@ checkFolder: End Sub - Private Sub BTNURLFilesAll_Click(sender As System.Object, e As System.EventArgs) Handles BTNURLFilesAll.Click + Private Sub BTNURLFilesAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFilesAll.Click For i As Integer = 0 To URLFileList.Items.Count - 1 URLFileList.SetItemChecked(i, True) Next SaveURLFileSelection() End Sub - Private Sub BTNURLFilesNone_Click(sender As System.Object, e As System.EventArgs) Handles BTNURLFilesNone.Click + Private Sub BTNURLFilesNone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNURLFilesNone.Click For i As Integer = 0 To URLFileList.Items.Count - 1 URLFileList.SetItemChecked(i, False) Next SaveURLFileSelection() End Sub - Private Sub CBCBTCock_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBCBTCock.LostFocus + Private Sub CBCBTCock_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBCBTCock.LostFocus If CBCBTCock.Checked = True Then My.Settings.CBTCock = True Else @@ -6478,7 +6478,7 @@ checkFolder: End If End Sub - Private Sub CBCBTBalls_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBCBTBalls.LostFocus + Private Sub CBCBTBalls_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBCBTBalls.LostFocus If CBCBTBalls.Checked = True Then My.Settings.CBTBalls = True Else @@ -6486,7 +6486,7 @@ checkFolder: End If End Sub - Private Sub Button9_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNLocalTagDir.Click + Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLocalTagDir.Click If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then @@ -6546,7 +6546,7 @@ checkFolder: End Sub - Private Sub BTNLocalTagNext_Click(sender As System.Object, e As System.EventArgs) Handles BTNLocalTagNext.Click + Private Sub BTNLocalTagNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLocalTagNext.Click LocalTagCount += 1 LBLLocalTagCount.Text = LocalTagCount & "/" & LocalImageTagDir.Count @@ -7287,22 +7287,22 @@ checkFolder: End Sub - Private Sub NBLongEdge_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBLongEdge.LostFocus + Private Sub NBLongEdge_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBLongEdge.LostFocus My.Settings.LongEdge = NBLongEdge.Value End Sub - Private Sub NBHoldTheEdgeMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBHoldTheEdgeMax.LostFocus + Private Sub NBHoldTheEdgeMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBHoldTheEdgeMax.LostFocus My.Settings.HoldTheEdgeMax = NBHoldTheEdgeMax.Value My.Settings.HoldTheEdgeMaxAmount = LBLMaxHold.Text End Sub - Private Sub NBHoldTheEdgeMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBHoldTheEdgeMin.LostFocus + Private Sub NBHoldTheEdgeMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBHoldTheEdgeMin.LostFocus My.Settings.HoldTheEdgeMin = NBHoldTheEdgeMin.Value My.Settings.HoldTheEdgeMinAmount = LBLMinHold.Text End Sub - Private Sub NBHoldTheEdgeMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBHoldTheEdgeMax.ValueChanged + Private Sub NBHoldTheEdgeMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBHoldTheEdgeMax.ValueChanged If FrmSettingsLoading = False Then If NBHoldTheEdgeMax.Value = 0 And LBLMaxHold.Text = "minutes" Then @@ -7319,7 +7319,7 @@ checkFolder: End If End Sub - Private Sub NBHoldTheEdgeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBHoldTheEdgeMin.ValueChanged + Private Sub NBHoldTheEdgeMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBHoldTheEdgeMin.ValueChanged If FrmSettingsLoading = False Then If NBHoldTheEdgeMin.Value = 0 And LBLMinHold.Text = "minutes" Then @@ -7336,15 +7336,15 @@ checkFolder: End If End Sub - Private Sub NBLongHoldMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBLongHoldMax.LostFocus + Private Sub NBLongHoldMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBLongHoldMax.LostFocus My.Settings.LongHoldMax = NBLongHoldMax.Value End Sub - Private Sub NBLongHoldMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBLongHoldMin.LostFocus + Private Sub NBLongHoldMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBLongHoldMin.LostFocus My.Settings.LongHoldMin = NBLongHoldMin.Value End Sub - Private Sub NBLongHoldMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBLongHoldMax.ValueChanged + Private Sub NBLongHoldMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBLongHoldMax.ValueChanged If FrmSettingsLoading = False Then If NBLongHoldMax.Value = 1 Then LBLMaxLongHold.Text = "minute" @@ -7354,7 +7354,7 @@ checkFolder: End If End Sub - Private Sub NBLongHoldMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBLongHoldMin.ValueChanged + Private Sub NBLongHoldMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBLongHoldMin.ValueChanged If FrmSettingsLoading = False Then If NBLongHoldMin.Value = 1 Then LBLMinLongHold.Text = "minute" @@ -7365,15 +7365,15 @@ checkFolder: End Sub - Private Sub NBExtremeHoldMax_LostFocus(sender As Object, e As System.EventArgs) Handles NBExtremeHoldMax.LostFocus + Private Sub NBExtremeHoldMax_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBExtremeHoldMax.LostFocus My.Settings.ExtremeHoldMax = NBExtremeHoldMax.Value End Sub - Private Sub NBExtremeHoldMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBExtremeHoldMin.LostFocus + Private Sub NBExtremeHoldMin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBExtremeHoldMin.LostFocus My.Settings.ExtremeHoldMin = NBExtremeHoldMin.Value End Sub - Private Sub NBExtremeHoldMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBExtremeHoldMax.ValueChanged + Private Sub NBExtremeHoldMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBExtremeHoldMax.ValueChanged If FrmSettingsLoading = False Then If NBExtremeHoldMax.Value = 1 Then LBLMaxExtremeHold.Text = "minute" @@ -7383,7 +7383,7 @@ checkFolder: End If End Sub - Private Sub NBExtremeHoldMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBExtremeHoldMin.ValueChanged + Private Sub NBExtremeHoldMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBExtremeHoldMin.ValueChanged If FrmSettingsLoading = False Then If NBExtremeHoldMin.Value = 1 Then LBLMinExtremeHold.Text = "minute" @@ -7394,7 +7394,7 @@ checkFolder: End Sub - Private Sub CBTSlider_Scroll(sender As System.Object, e As System.EventArgs) Handles CBTSlider.Scroll + Private Sub CBTSlider_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBTSlider.Scroll If FrmSettingsLoading = False Then My.Settings.CBTSlider = CBTSlider.Value If CBTSlider.Value = 1 Then LBLCBTSlider.Text = "CBT Level: 1" @@ -7405,7 +7405,7 @@ checkFolder: End If End Sub - Private Sub CBSubCircumcised_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBSubCircumcised.CheckedChanged + Private Sub CBSubCircumcised_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSubCircumcised.CheckedChanged If FrmSettingsLoading = False Then If CBSubCircumcised.Checked = True Then My.Settings.SubCircumcised = True @@ -7415,7 +7415,7 @@ checkFolder: End If End Sub - Private Sub CBSubPierced_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBSubPierced.CheckedChanged + Private Sub CBSubPierced_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBSubPierced.CheckedChanged If FrmSettingsLoading = False Then If CBSubPierced.Checked = True Then My.Settings.SubPierced = True @@ -7425,7 +7425,7 @@ checkFolder: End If End Sub - Private Sub Button14_Click(sender As System.Object, e As System.EventArgs) Handles BTNSaveDomSet.Click + Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSaveDomSet.Click SaveSettingsDialog.Title = "Select a location to save current Domme settings" SaveSettingsDialog.InitialDirectory = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\System\" @@ -7503,7 +7503,7 @@ checkFolder: End Sub - Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles BTNLoadDomSet.Click + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLoadDomSet.Click OpenSettingsDialog.Title = "Select a Domme settings file" OpenSettingsDialog.InitialDirectory = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\System\" @@ -7708,7 +7708,7 @@ checkFolder: End Sub - Private Sub BTNLocalTagPrevious_Click(sender As System.Object, e As System.EventArgs) Handles BTNLocalTagPrevious.Click + Private Sub BTNLocalTagPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLocalTagPrevious.Click LocalTagCount -= 1 LBLLocalTagCount.Text = LocalTagCount & "/" & LocalImageTagDir.Count @@ -7726,7 +7726,7 @@ checkFolder: End Sub - Private Sub BTNLocalTagSave_Click(sender As System.Object, e As System.EventArgs) Handles BTNLocalTagSave.Click + Private Sub BTNLocalTagSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLocalTagSave.Click SetLocalImageTags() @@ -7746,7 +7746,7 @@ checkFolder: End Sub - Private Sub TBLocalTagDir_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TBLocalTagDir.KeyPress + Private Sub TBLocalTagDir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TBLocalTagDir.KeyPress If e.KeyChar = Convert.ToChar(13) Then @@ -7816,7 +7816,7 @@ checkFolder: End Sub - Private Sub CBRangeOrgasm_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBRangeOrgasm.CheckedChanged + Private Sub CBRangeOrgasm_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBRangeOrgasm.CheckedChanged If CBRangeOrgasm.Checked = False Then NBAllowOften.Enabled = True NBAllowSometimes.Enabled = True @@ -7828,7 +7828,7 @@ checkFolder: End If End Sub - Private Sub CBRangeRuin_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBRangeRuin.CheckedChanged + Private Sub CBRangeRuin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBRangeRuin.CheckedChanged If CBRangeRuin.Checked = False Then NBRuinOften.Enabled = True NBRuinSometimes.Enabled = True @@ -7840,44 +7840,44 @@ checkFolder: End If End Sub - Private Sub CBRangeOrgasm_LostFocus(sender As Object, e As System.EventArgs) Handles CBRangeOrgasm.LostFocus + Private Sub CBRangeOrgasm_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRangeOrgasm.LostFocus My.Settings.RangeOrgasm = CBRangeOrgasm.Checked End Sub - Private Sub CBRangeRuin_LostFocus(sender As Object, e As System.EventArgs) Handles CBRangeRuin.LostFocus + Private Sub CBRangeRuin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRangeRuin.LostFocus My.Settings.RangeRuin = CBRangeRuin.Checked End Sub - Private Sub NBAllowOften_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBAllowOften.LostFocus + Private Sub NBAllowOften_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAllowOften.LostFocus My.Settings.AllowOften = NBAllowOften.Value End Sub - Private Sub NBAllowSometimes_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBAllowSometimes.LostFocus + Private Sub NBAllowSometimes_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAllowSometimes.LostFocus My.Settings.AllowSometimes = NBAllowSometimes.Value End Sub - Private Sub NBAllowRarely_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBAllowRarely.LostFocus + Private Sub NBAllowRarely_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBAllowRarely.LostFocus My.Settings.AllowRarely = NBAllowRarely.Value End Sub - Private Sub NBRuinOften_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBRuinOften.LostFocus + Private Sub NBRuinOften_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBRuinOften.LostFocus My.Settings.RuinOften = NBRuinOften.Value End Sub - Private Sub NBRuinSometimes_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBRuinSometimes.LostFocus + Private Sub NBRuinSometimes_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBRuinSometimes.LostFocus My.Settings.RuinSometimes = NBRuinSometimes.Value End Sub - Private Sub NBRuinRarely_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBRuinRarely.LostFocus + Private Sub NBRuinRarely_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBRuinRarely.LostFocus My.Settings.RuinRarely = NBRuinRarely.Value End Sub - Private Sub TBSafeword_LostFocus(sender As Object, e As System.EventArgs) Handles TBSafeword.LostFocus + Private Sub TBSafeword_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBSafeword.LostFocus My.Settings.Safeword = TBSafeword.Text End Sub - Private Sub Button4_Click_5(sender As System.Object, e As System.EventArgs) Handles Button4.Click + Private Sub Button4_Click_5(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TBResponses.Text = "" RTBResponses.Text = "" @@ -7896,7 +7896,7 @@ checkFolder: End Sub - Private Sub LBResponses_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles LBResponses.SelectedIndexChanged + Private Sub LBResponses_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBResponses.SelectedIndexChanged Dim ResponsePath As String = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\Vocabulary\Responses\" & LBResponses.SelectedItem & ".txt" @@ -7968,7 +7968,7 @@ checkFolder: End Sub - Private Sub Button5_Click_2(sender As System.Object, e As System.EventArgs) Handles Button5.Click + Private Sub Button5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click @@ -8016,7 +8016,7 @@ checkFolder: End Sub - Private Sub Button9_Click_2(sender As System.Object, e As System.EventArgs) Handles Button9.Click + Private Sub Button9_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If RTBResponses.Text <> "" Then MessageBox.Show(Me, "Template cannot be generated while there is text in the main Response window!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) @@ -8058,56 +8058,56 @@ checkFolder: End Sub - Private Sub subAgeNumBox_MouseHover(sender As Object, e As System.EventArgs) Handles subAgeNumBox.MouseEnter + Private Sub subAgeNumBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles subAgeNumBox.MouseEnter TTDir.SetToolTip(subAgeNumBox, "Set your age.") 'LBLSubSettingsDescription.Text = "Set your age." End Sub - Private Sub NBBirthdayMonth_MouseHover(sender As Object, e As System.EventArgs) Handles NBBirthdayMonth.MouseEnter + Private Sub NBBirthdayMonth_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBBirthdayMonth.MouseEnter TTDir.SetToolTip(NBBirthdayMonth, "Set the month you were born.") 'LBLSubSettingsDescription.Text = "Set the month you were born." End Sub - Private Sub Birthday_MouseHover(sender As Object, e As System.EventArgs) Handles LBLSubBirthday.MouseHover + Private Sub Birthday_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBLSubBirthday.MouseHover TTDir.SetToolTip(LBLSubBirthday, "Set your birthday with the format mm/dd.") 'LBLSubSettingsDescription.Text = "Set the day you were born." End Sub - Private Sub NBBirthdayDay_MouseHover(sender As Object, e As System.EventArgs) Handles NBBirthdayDay.MouseEnter + Private Sub NBBirthdayDay_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBBirthdayDay.MouseEnter TTDir.SetToolTip(NBBirthdayDay, "Set the day you were born.") 'LBLSubSettingsDescription.Text = "Set the day you were born." End Sub - Private Sub TBSubHairColor_MouseHover(sender As Object, e As System.EventArgs) Handles TBSubHairColor.MouseHover + Private Sub TBSubHairColor_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBSubHairColor.MouseHover TTDir.SetToolTip(TBSubHairColor, "Enter your hair color using all lower case letters.") 'LBLSubSettingsDescription.Text = "Enter your hair color using all lower case letters." End Sub - Private Sub TBSubEyeColor_MouseHover(sender As Object, e As System.EventArgs) Handles TBSubEyeColor.MouseHover + Private Sub TBSubEyeColor_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBSubEyeColor.MouseHover TTDir.SetToolTip(TBSubEyeColor, "Enter your eye color using all lower case letters.") 'LBLSubSettingsDescription.Text = "Enter your eye color using all lower case letters." End Sub - Private Sub CockSizeNumBox_MouseHover(sender As Object, e As System.EventArgs) Handles CockSizeNumBox.MouseEnter + Private Sub CockSizeNumBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CockSizeNumBox.MouseEnter TTDir.SetToolTip(CockSizeNumBox, "Set your cock size in inches.") 'LBLSubSettingsDescription.Text = "Set your cock size in inches." End Sub - Private Sub CBSubCircumcised_MouseHover(sender As Object, e As System.EventArgs) Handles CBSubCircumcised.MouseHover + Private Sub CBSubCircumcised_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBSubCircumcised.MouseHover TTDir.SetToolTip(CBSubCircumcised, "Check this box if your cock is circumcised.") 'LBLSubSettingsDescription.Text = "Check this box if your cock is circumcised." End Sub - Private Sub CBSubPierced_MouseHover(sender As Object, e As System.EventArgs) Handles CBSubPierced.MouseHover + Private Sub CBSubPierced_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBSubPierced.MouseHover TTDir.SetToolTip(CBSubPierced, "Check this box if your cock is pierced.") 'LBLSubSettingsDescription.Text = "Check this box if your cock is pierced." End Sub - Private Sub CBCBTCock_MouseHover(sender As Object, e As System.EventArgs) Handles CBCBTCock.MouseHover + Private Sub CBCBTCock_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBCBTCock.MouseHover TTDir.SetToolTip(CBCBTCock, "Check this box to enable cock torture." & Environment.NewLine & Environment.NewLine & - "If this box is unchecked, the domme may still state that you're about to endure cock torture," & Environment.NewLine & - "but the program will simply move to the next line instead of making you perform it.") + "If this box is unchecked, the domme may still state that you're about to endure cock torture," & Environment.NewLine & + "but the program will simply move to the next line instead of making you perform it.") @@ -8115,173 +8115,173 @@ checkFolder: ' & " cock torture, but the program will simply move to the next line instead of making you perform it." End Sub - Private Sub CBCBTBall_MouseHover(sender As Object, e As System.EventArgs) Handles CBCBTBalls.MouseHover + Private Sub CBCBTBall_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBCBTBalls.MouseHover TTDir.SetToolTip(CBCBTBalls, "Check this box to enable ball torture." & Environment.NewLine & Environment.NewLine & - "If this box is unchecked, the domme may still state that you're about to endure ball torture," & Environment.NewLine & - "but the program will simply move to the next line instead of making you perform it.") + "If this box is unchecked, the domme may still state that you're about to endure ball torture," & Environment.NewLine & + "but the program will simply move to the next line instead of making you perform it.") 'LBLSubSettingsDescription.Text = "Check this box to enabled ball torture." & Environment.NewLine & Environment.NewLine & "If this box is unchecked, the domme may still state that you're about to endure" _ ' & " ball torture, but the program will simply move to the next line instead of making you perform it." End Sub - Private Sub CBTSlider_MouseHover(sender As Object, e As System.EventArgs) Handles CBTSlider.MouseHover + Private Sub CBTSlider_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBTSlider.MouseHover TTDir.SetToolTip(CBTSlider, "This affects the severity of the CBT tasks you will be asked to perform." & Environment.NewLine & Environment.NewLine & - "The higher this slider, the more severe the tasks will be.") + "The higher this slider, the more severe the tasks will be.") 'LBLSubSettingsDescription.Text = "This affects the severity of the CBT tasks you will be asked to perform. The higher this slider, the more severe the tasks will be." End Sub - Private Sub GBPerformance_MouseHover(sender As Object, e As System.EventArgs) + Private Sub GBPerformance_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) LBLSubSettingsDescription.Text = "This area keeps track of several statistics related to your time with the program." End Sub - Private Sub CBOwnChastity_MouseHover(sender As Object, e As System.EventArgs) Handles CBOwnChastity.MouseHover + Private Sub CBOwnChastity_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOwnChastity.MouseHover TTDir.SetToolTip(CBOwnChastity, "Check this box if you own a chastity device and wish to run scripts" & Environment.NewLine & - "where the domme places you in chastity.") + "where the domme places you in chastity.") 'LBLSubSettingsDescription.Text = "Check this box if you own a chastity device. This allows the program to use that fact in various scripts." End Sub - Private Sub CBChastityPA_MouseHover(sender As Object, e As System.EventArgs) Handles CBChastityPA.MouseHover + Private Sub CBChastityPA_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBChastityPA.MouseHover TTDir.SetToolTip(CBChastityPA, "Check this box if your chastity device requires a piercing.") 'LBLSubSettingsDescription.Text = "Check this box if your chastity device requires a piercing." End Sub - Private Sub CBChastitySpikes_MouseHover(sender As Object, e As System.EventArgs) Handles CBChastitySpikes.MouseHover + Private Sub CBChastitySpikes_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBChastitySpikes.MouseHover TTDir.SetToolTip(CBChastitySpikes, "Check this box if your chastity device contains spikes.") 'LBLSubSettingsDescription.Text = "Check this box if your chastity device contains spikes." End Sub - Private Sub TBGreeting_MouseHover(sender As Object, e As System.EventArgs) Handles TBGreeting.MouseHover + Private Sub TBGreeting_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBGreeting.MouseHover TTDir.SetToolTip(TBGreeting, "Enter any number of words or phrases, separated by commas." & Environment.NewLine & Environment.NewLine & - "When you use any of these words/phrases by themselves after starting the" & Environment.NewLine & - "program, the domme will recognize it as a greeting and begin the tease.") + "When you use any of these words/phrases by themselves after starting the" & Environment.NewLine & + "program, the domme will recognize it as a greeting and begin the tease.") 'LBLSubSettingsDescription.Text = "Enter any number of words or phrases, separated by commas. When you use any of these words/phrases by themselves after starting the program, " _ ' & "the domme will recognize it as a greeting and begin the tease." End Sub - Private Sub TBYes_MouseHover(sender As Object, e As System.EventArgs) Handles TBYes.MouseHover + Private Sub TBYes_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBYes.MouseHover TTDir.SetToolTip(TBYes, "Enter any number of words or phrases, separated by commas." & Environment.NewLine & Environment.NewLine & - "The domme will recognize these as ""yes"" answers to Multiple Choice sections.") + "The domme will recognize these as ""yes"" answers to Multiple Choice sections.") ' LBLSubSettingsDescription.Text = "Enter any number of words or phrases, separated by commas. The domme will recognize these as ""yes"" answers to Multiple Choice sections." End Sub - Private Sub TBNo_MouseHover(sender As Object, e As System.EventArgs) Handles TBNo.MouseHover + Private Sub TBNo_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBNo.MouseHover TTDir.SetToolTip(TBNo, "Enter any number of words or phrases, separated by commas." & Environment.NewLine & Environment.NewLine & - "The domme will recognize these as ""no"" answers to Multiple Choice sections.") + "The domme will recognize these as ""no"" answers to Multiple Choice sections.") 'LBLSubSettingsDescription.Text = "Enter any number of words or phrases, separated by commas. The domme will recognize these as ""no"" answers to Multiple Choice sections." End Sub - Private Sub TBHonorific_MouseHover(sender As Object, e As System.EventArgs) Handles TBHonorific.MouseHover + Private Sub TBHonorific_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBHonorific.MouseHover TTDir.SetToolTip(TBHonorific, "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc.") 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." End Sub - Private Sub G1Honorific_MouseHover(sender As Object, e As System.EventArgs) Handles G1Honorific.MouseHover + Private Sub G1Honorific_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles G1Honorific.MouseHover TTDir.SetToolTip(G1Honorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." End Sub - Private Sub G2Honorific_MouseHover(sender As Object, e As System.EventArgs) Handles G2Honorific.MouseHover + Private Sub G2Honorific_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles G2Honorific.MouseHover TTDir.SetToolTip(G2Honorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." End Sub - Private Sub G3Honorific_MouseHover(sender As Object, e As System.EventArgs) Handles G3Honorific.MouseHover + Private Sub G3Honorific_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles G3Honorific.MouseHover TTDir.SetToolTip(G3Honorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." End Sub - Private Sub RandomHonorific_MouseHover(sender As Object, e As System.EventArgs) Handles RandomHonorific.MouseHover + Private Sub RandomHonorific_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles RandomHonorific.MouseHover TTDir.SetToolTip(RandomHonorific, "Enter an honorific to use for the contact, such as Mistress, Goddess, Princess, etc.") 'LBLSubSettingsDescription.Text = "Enter an honorific to use for the domme, such as Mistress, Goddess, Princess, etc." End Sub - Private Sub CBHonorificInclude_MouseHover(sender As Object, e As System.EventArgs) Handles CBHonorificInclude.MouseHover + Private Sub CBHonorificInclude_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBHonorificInclude.MouseHover TTDir.SetToolTip(CBHonorificInclude, "When this box is checked, the domme's honorific must be included with" & Environment.NewLine & - "greetings and yes or no responses used during multiple choice segments.") + "greetings and yes or no responses used during multiple choice segments.") 'LBLSubSettingsDescription.Text = "When this box is checked, the domme's honorific must be included with greetings and yes or no responses used during multiple choice segments." End Sub - Private Sub CBHonorificCapitalized_MouseHover(sender As Object, e As System.EventArgs) Handles CBHonorificCapitalized.MouseHover + Private Sub CBHonorificCapitalized_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBHonorificCapitalized.MouseHover TTDir.SetToolTip(CBHonorificCapitalized, "When this box is checked, the domme's honorific must be capitalized where it is required.") 'LBLSubSettingsDescription.Text = "When this box is checked, the domme's honorific must be capitalized where it is required." End Sub - Private Sub NBLongEdge_MouseHover(sender As Object, e As System.EventArgs) Handles NBLongEdge.MouseEnter + Private Sub NBLongEdge_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBLongEdge.MouseEnter LBLSubSettingsDescription.Text = "Sets how long (in seconds) it will take after being told to edge for the domme to believe you have been trying to reach the edge for too long." End Sub - Private Sub CBEdgeUseAvg_LostFocus(sender As Object, e As System.EventArgs) Handles CBEdgeUseAvg.LostFocus + Private Sub CBEdgeUseAvg_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBEdgeUseAvg.LostFocus My.Settings.CBEdgeUseAvg = CBEdgeUseAvg.Checked End Sub - Private Sub CBEdgeUseAvg_MouseHover(sender As Object, e As System.EventArgs) Handles CBEdgeUseAvg.MouseEnter + Private Sub CBEdgeUseAvg_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBEdgeUseAvg.MouseEnter LBLSubSettingsDescription.Text = "When this is checked, the domme will use the average amount of time it has historically taken you to reach the edge to decide when you have been trying to edge for too long." End Sub - Private Sub CBLongEdgeTaunts_LostFocus(sender As Object, e As System.EventArgs) Handles CBLongEdgeTaunts.LostFocus + Private Sub CBLongEdgeTaunts_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBLongEdgeTaunts.LostFocus My.Settings.CBLongEdgeTaunts = CBLongEdgeTaunts.Checked End Sub - Private Sub CBLongEdgeTaunts_MouseHover(sender As Object, e As System.EventArgs) Handles CBLongEdgeTaunts.MouseEnter + Private Sub CBLongEdgeTaunts_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBLongEdgeTaunts.MouseEnter LBLSubSettingsDescription.Text = "When this box is checked, the domme will include edge taunts that are reserved for when the Long Edge threshold has been passed." & Environment.NewLine & Environment.NewLine & - "This will allow the domme to tease you about the fact that you have been trying to edge for longer than she expected." + "This will allow the domme to tease you about the fact that you have been trying to edge for longer than she expected." End Sub - Private Sub CBLongEdgeInterrupts_LostFocus(sender As Object, e As System.EventArgs) Handles CBLongEdgeInterrupts.LostFocus + Private Sub CBLongEdgeInterrupts_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBLongEdgeInterrupts.LostFocus My.Settings.CBLongEdgeInterrupts = CBLongEdgeInterrupts.Checked End Sub - Private Sub CBLongEdgeInterrupts_MouseHover(sender As Object, e As System.EventArgs) Handles CBLongEdgeInterrupts.MouseEnter + Private Sub CBLongEdgeInterrupts_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBLongEdgeInterrupts.MouseEnter LBLSubSettingsDescription.Text = "When this box is checked, the domme will include edge taunts that call special Interrupt scripts when the Long Edge threshold has been passed." End Sub - Private Sub NBHOldTheEdgeMax_MouseHover(sender As Object, e As System.EventArgs) Handles NBHoldTheEdgeMax.MouseEnter + Private Sub NBHOldTheEdgeMax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBHoldTheEdgeMax.MouseEnter LBLSubSettingsDescription.Text = "Sets the maximum time (in seconds) that the domme will make you hold the edge. If you enter 0 as an amount, then the domme will decide based on her level." End Sub - Private Sub NBWritinGTaskMin_MouseHover(sender As Object, e As System.EventArgs) Handles NBWritingTaskMin.MouseEnter + Private Sub NBWritinGTaskMin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBWritingTaskMin.MouseEnter LBLSubSettingsDescription.Text = "Sets the minimum amount of lines the domme will assign you for writing tasks." End Sub - Private Sub NBWritinGTaskMax_MouseHover(sender As Object, e As System.EventArgs) Handles NBWritingTaskMax.MouseEnter + Private Sub NBWritinGTaskMax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBWritingTaskMax.MouseEnter LBLSubSettingsDescription.Text = "Sets the maximum amount of lines the domme will assign you for writing tasks." End Sub 'Private Sub SubDescText_MouseHover(sender As Object, e As System.EventArgs) Handles Panel2.MouseEnter, GroupBox32.MouseEnter, GroupBox45.MouseEnter, GroupBox35.MouseEnter, GroupBox7.MouseEnter, GroupBox12.MouseEnter ' LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its function." 'End Sub - Private Sub CBHimHer_MouseHover(sender As Object, e As System.EventArgs) Handles CBHimHer.MouseEnter + Private Sub CBHimHer_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBHimHer.MouseEnter LBLSubSettingsDescription.Text = "When this is checked, Glitter will automatically replace any instance of He/Him/His with She/Her/Her." End Sub - Private Sub NBNextImageChance_LostFocus(sender As Object, e As System.EventArgs) Handles NBNextImageChance.LostFocus + Private Sub NBNextImageChance_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBNextImageChance.LostFocus My.Settings.NextImageChance = NBNextImageChance.Value End Sub - Private Sub orgasmsperlockButton_Click(sender As System.Object, e As System.EventArgs) Handles orgasmsperlockButton.Click + Private Sub orgasmsperlockButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles orgasmsperlockButton.Click If limitcheckbox.Checked = False Then MessageBox.Show(Me, "The Limit box must be checked before clicking this button!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) @@ -8293,10 +8293,10 @@ checkFolder: If orgasmsPerNumBox.Value = 1 Then result = MessageBox.Show("This will limit you to 1 orgasm for the next " & LCase(orgasmsperComboBox.Text) & "." & Environment.NewLine & Environment.NewLine & - "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) Else result = MessageBox.Show("This will limit you to " & orgasmsPerNumBox.Value & " orgasms for the next " & LCase(orgasmsperComboBox.Text) & "." & Environment.NewLine & Environment.NewLine & - "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) End If @@ -8360,7 +8360,7 @@ checkFolder: End Sub - Private Sub orgasmlockrandombutton_Click(sender As System.Object, e As System.EventArgs) Handles orgasmlockrandombutton.Click + Private Sub orgasmlockrandombutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles orgasmlockrandombutton.Click If limitcheckbox.Checked = False Then MessageBox.Show(Me, "The Limit box must be checked before clicking this button!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) @@ -8370,7 +8370,7 @@ checkFolder: Dim result As Integer result = MessageBox.Show("This will allow the domme to limit you to a random number of orgasms for a random amount of time. High level dommes could restrict you to a very low amount for up to a year!" & Environment.NewLine & Environment.NewLine & - "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you absolutely sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If result = DialogResult.No Then Return @@ -8474,7 +8474,7 @@ checkFolder: End Sub - Private Sub CBVTType_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CBVTType.SelectedIndexChanged + Private Sub CBVTType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBVTType.SelectedIndexChanged If CBVTType.Text = "Censorship Sucks" Then @@ -8501,138 +8501,138 @@ checkFolder: - Private Sub NBTeaseLengthMin_MouseHover(sender As Object, e As System.EventArgs) Handles NBTeaseLengthMin.MouseEnter + Private Sub NBTeaseLengthMin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTeaseLengthMin.MouseEnter LBLRangeSettingsDescription.Text = "Set the minimum amount of time the program will run before the domme decides if you can have an orgasm." & Environment.NewLine & Environment.NewLine & - "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & - "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." + "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & + "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." End Sub - Private Sub NBTeaseLengthMax_MouseHover(sender As Object, e As System.EventArgs) Handles NBTeaseLengthMax.MouseEnter + Private Sub NBTeaseLengthMax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTeaseLengthMax.MouseEnter LBLRangeSettingsDescription.Text = "Set the maximum amount of time the program will run before the domme decides if you can have an orgasm." & Environment.NewLine & Environment.NewLine & - "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & - "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." + "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." & Environment.NewLine & Environment.NewLine & + "If the domme decides to tease you again, the tease time will be reset to a new amount based Tease Length settings." End Sub - Private Sub CBTeaseLengthDD_LostFocus(sender As Object, e As System.EventArgs) Handles CBTeaseLengthDD.LostFocus + Private Sub CBTeaseLengthDD_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBTeaseLengthDD.LostFocus My.Settings.CBTeaseLengthDD = CBTeaseLengthDD.Checked End Sub - Private Sub CBTauntCycleDD_LostFocus(sender As Object, e As System.EventArgs) Handles CBTauntCycleDD.LostFocus + Private Sub CBTauntCycleDD_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBTauntCycleDD.LostFocus My.Settings.CBTauntCycleDD = CBTauntCycleDD.Checked End Sub - Private Sub CBTeaseLengthDD_MouseHover(sender As Object, e As System.EventArgs) Handles CBTeaseLengthDD.MouseEnter + Private Sub CBTeaseLengthDD_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBTeaseLengthDD.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide the length of the tease based on her level." & Environment.NewLine & Environment.NewLine & - "A level 1 domme may tease you for 15-20 minutes, while a level 5 domme may tease you as long as an hour." & Environment.NewLine & Environment.NewLine & - "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." + "A level 1 domme may tease you for 15-20 minutes, while a level 5 domme may tease you as long as an hour." & Environment.NewLine & Environment.NewLine & + "The domme will not move to an End script until the first @End point of a Module that occurs after tease time expires." End Sub - Private Sub NBTauntCycleMin_MouseHover(sender As Object, e As System.EventArgs) Handles NBTauntCycleMin.MouseEnter + Private Sub NBTauntCycleMin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTauntCycleMin.MouseEnter LBLRangeSettingsDescription.Text = "Set the minimum amount of time the domme will make you stroke during Taunt cycles." End Sub - Private Sub NBTauntCycleMax_MouseHover(sender As Object, e As System.EventArgs) Handles NBTauntCycleMax.MouseEnter + Private Sub NBTauntCycleMax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTauntCycleMax.MouseEnter LBLRangeSettingsDescription.Text = "Set the maximum amount of time the domme will make you stroke during Taunt cycles" End Sub - Private Sub CBTauntCycleDD_MouseHover(sender As Object, e As System.EventArgs) Handles CBTauntCycleDD.MouseEnter + Private Sub CBTauntCycleDD_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBTauntCycleDD.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide how long she makes you stroke during Taunt cycles based on her level." & Environment.NewLine & Environment.NewLine & - "A level 1 domme may have you stroke for a couple minutes at a time, while a level 5 domme may have you stroke up to 10 minutes during each Taunt cycle." + "A level 1 domme may have you stroke for a couple minutes at a time, while a level 5 domme may have you stroke up to 10 minutes during each Taunt cycle." End Sub - Private Sub SliderSTF_MouseHover(sender As Object, e As System.EventArgs) Handles SliderSTF.MouseEnter + Private Sub SliderSTF_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles SliderSTF.MouseEnter LBLRangeSettingsDescription.Text = "This allows you to set the frequency of the domme's Stroke Taunts." & Environment.NewLine & Environment.NewLine & - "A middle value tries to emulate an online experience as closely as possible. Use a higher value to increase the frequency of Taunts to something you would expect in a webtease. Use a lower value to simulate the domme being preoccupied or not that interested in engaging you." + "A middle value tries to emulate an online experience as closely as possible. Use a higher value to increase the frequency of Taunts to something you would expect in a webtease. Use a lower value to simulate the domme being preoccupied or not that interested in engaging you." End Sub - Private Sub TauntSlider_MouseHover(sender As Object, e As System.EventArgs) Handles TauntSlider.MouseEnter + Private Sub TauntSlider_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TauntSlider.MouseEnter LBLRangeSettingsDescription.Text = "This allows you to set the frequency of the domme's Taunts during Video Teases." & Environment.NewLine & Environment.NewLine & - "A middle value creates a fairly common use of Taunts. Use a higher value to make the domme extremely engaged. Use a lower value to focus on the Video Tease with minimal interaction from the domme." + "A middle value creates a fairly common use of Taunts. Use a higher value to make the domme extremely engaged. Use a lower value to focus on the Video Tease with minimal interaction from the domme." End Sub - Private Sub CBRangeOrgasm_MouseHover(sender As Object, e As System.EventArgs) Handles CBRangeOrgasm.MouseEnter + Private Sub CBRangeOrgasm_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRangeOrgasm.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide what chance she will allow an orgasm based on her settings." & Environment.NewLine & Environment.NewLine & - "Default settings are: Often Allows: 75% - Sometimes Allows: 50% - Rarely Allows: 20%" + "Default settings are: Often Allows: 75% - Sometimes Allows: 50% - Rarely Allows: 20%" End Sub - Private Sub NBAllowOften_MouseHover(sender As Object, e As System.EventArgs) Handles NBAllowOften.MouseEnter + Private Sub NBAllowOften_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBAllowOften.MouseEnter LBLRangeSettingsDescription.Text = "When ""Domme Decide"" is not checked, this allows you to set what chance the domme will allow orgasm when she is set to ""Often Allows""." End Sub - Private Sub NBAllowSometimes_MouseHover(sender As Object, e As System.EventArgs) Handles NBAllowSometimes.MouseEnter + Private Sub NBAllowSometimes_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBAllowSometimes.MouseEnter LBLRangeSettingsDescription.Text = "When ""Domme Decide"" is not checked, this allows you to set what chance the domme will allow orgasm when she is set to ""Sometimes Allows""." End Sub - Private Sub NBAllowRarely_MouseHover(sender As Object, e As System.EventArgs) Handles NBAllowRarely.MouseEnter + Private Sub NBAllowRarely_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBAllowRarely.MouseEnter LBLRangeSettingsDescription.Text = "When ""Domme Decide"" is not checked, this allows you to set what chance the domme will allow orgasm when she is set to ""Rarely Allows""." End Sub - Private Sub CBRangeRuin_MouseHover(sender As Object, e As System.EventArgs) Handles CBRangeRuin.MouseEnter + Private Sub CBRangeRuin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBRangeRuin.MouseEnter LBLRangeSettingsDescription.Text = "This allows the domme to decide what chance she will ruin an orgasm based on her settings." & Environment.NewLine & Environment.NewLine & - "Default settings are: Often Ruins: 75% - Sometimes Ruins: 50% - Rarely Ruins: 20%" + "Default settings are: Often Ruins: 75% - Sometimes Ruins: 50% - Rarely Ruins: 20%" End Sub - Private Sub NBRuinOften_MouseHover(sender As Object, e As System.EventArgs) Handles NBRuinOften.MouseEnter + Private Sub NBRuinOften_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBRuinOften.MouseEnter LBLRangeSettingsDescription.Text = "When ""Domme Decide"" is not checked, this allows you to set what chance the domme will ruin an orgasm when she is set to ""Often Ruins""." End Sub - Private Sub NBRuinSometimes_MouseHover(sender As Object, e As System.EventArgs) Handles NBRuinSometimes.MouseEnter + Private Sub NBRuinSometimes_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBRuinSometimes.MouseEnter LBLRangeSettingsDescription.Text = "When ""Domme Decide"" is not checked, this allows you to set what chance the domme will ruin an orgasm when she is set to ""Sometimes Ruins""." End Sub - Private Sub NBRuinRarely_MouseHover(sender As Object, e As System.EventArgs) Handles NBRuinRarely.MouseEnter + Private Sub NBRuinRarely_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBRuinRarely.MouseEnter LBLRangeSettingsDescription.Text = "When ""Domme Decide"" is not checked, this allows you to set what chance the domme will ruin an orgasm when she is set to ""Rarely Ruins""." End Sub - Private Sub NBNextImageChance_MouseHover(sender As Object, e As System.EventArgs) Handles NBNextImageChance.MouseEnter + Private Sub NBNextImageChance_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBNextImageChance.MouseEnter LBLRangeSettingsDescription.Text = "When running a slideshow with the ""Tease"" option selected, this value determines what chance the slideshow will move forward instead of backward." End Sub - Private Sub nbcensorshowmin_MouseHover(sender As Object, e As System.EventArgs) Handles NBCensorShowMin.MouseEnter + Private Sub nbcensorshowmin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBCensorShowMin.MouseEnter LBLRangeSettingsDescription.Text = "This determines the minimum amount of time the censor bar will be on the screen at a time while playing Censorship Sucks." End Sub - Private Sub nbcensorshowmax_MouseHover(sender As Object, e As System.EventArgs) Handles NBCensorShowMax.MouseEnter + Private Sub nbcensorshowmax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBCensorShowMax.MouseEnter LBLRangeSettingsDescription.Text = "This determines the maximum amount of time the censor bar will be on the screen at a time while playing Censorship Sucks." End Sub - Private Sub nbcensorhidemin_MouseHover(sender As Object, e As System.EventArgs) Handles NBCensorHideMin.MouseEnter + Private Sub nbcensorhidemin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBCensorHideMin.MouseEnter LBLRangeSettingsDescription.Text = "This determines the minimum amount of time the censor bar will be invisible while playing Censorship Sucks." End Sub - Private Sub nbcensorhidemax_MouseHover(sender As Object, e As System.EventArgs) Handles NBCensorHideMax.MouseEnter + Private Sub nbcensorhidemax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBCensorHideMax.MouseEnter LBLRangeSettingsDescription.Text = "This determines the maximum amount of time the censor bar will be invisible while playing Censorship Sucks." End Sub - Private Sub cbcensorconstant_MouseHover(sender As Object, e As System.EventArgs) Handles CBCensorConstant.MouseEnter + Private Sub cbcensorconstant_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBCensorConstant.MouseEnter LBLRangeSettingsDescription.Text = "When this is checked, the censor bar will always be visible while playing Censorship Sucks. Its position on the screen will still change in time with Show Censor Bar settings." End Sub - Private Sub nbredlightmin_MouseHover(sender As Object, e As System.EventArgs) Handles NBRedLightMin.MouseEnter + Private Sub nbredlightmin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBRedLightMin.MouseEnter LBLRangeSettingsDescription.Text = "This determines the minimum amount of time the domme will keep the video paused while playing Red Light Green Light." End Sub - Private Sub nbredlightmax_MouseHover(sender As Object, e As System.EventArgs) Handles NBRedLightMax.MouseEnter + Private Sub nbredlightmax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBRedLightMax.MouseEnter LBLRangeSettingsDescription.Text = "This determines the maximum amount of time the domme will keep the video paused while playing Red Light Green Light." End Sub - Private Sub nbgreenlightmin_MouseHover(sender As Object, e As System.EventArgs) Handles NBGreenLightMin.MouseEnter + Private Sub nbgreenlightmin_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBGreenLightMin.MouseEnter LBLRangeSettingsDescription.Text = "This determines the minimum amount of time the domme will keep the video playing while playing Red Light Green Light." End Sub - Private Sub nbgreenlightmax_MouseHover(sender As Object, e As System.EventArgs) Handles NBGreenLightMax.MouseEnter + Private Sub nbgreenlightmax_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBGreenLightMax.MouseEnter LBLRangeSettingsDescription.Text = "This determines the maximum amount of time the domme will keep the video playing while playing Red Light Green Light." End Sub - Private Sub RangeSet_MouseHover(sender As Object, e As System.EventArgs) Handles Panel6.MouseEnter, GroupBox21.MouseEnter, GroupBox18.MouseEnter, GroupBox19.MouseEnter, GroupBox10.MouseEnter, GBRangeRuinChance.MouseEnter, GBRangeOrgasmChance.MouseEnter, GroupBox57.MouseEnter + Private Sub RangeSet_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel6.MouseEnter, GroupBox21.MouseEnter, GroupBox18.MouseEnter, GroupBox19.MouseEnter, GroupBox10.MouseEnter, GBRangeRuinChance.MouseEnter, GBRangeOrgasmChance.MouseEnter, GroupBox57.MouseEnter LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its function." End Sub - Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBWishlistURL.TextChanged + Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBWishlistURL.TextChanged Try WishlistPreview.Image.Dispose() Catch @@ -8646,29 +8646,29 @@ checkFolder: End Try End Sub - Private Sub radioGold_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles radioGold.CheckedChanged + Private Sub radioGold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioGold.CheckedChanged WishlistCostGold.Visible = True WishlistCostSilver.Visible = False End Sub - Private Sub radioSilver_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles radioSilver.CheckedChanged + Private Sub radioSilver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioSilver.CheckedChanged WishlistCostGold.Visible = False WishlistCostSilver.Visible = True End Sub - Private Sub TBWishlistItem_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBWishlistItem.TextChanged + Private Sub TBWishlistItem_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBWishlistItem.TextChanged LBLWishListName.Text = TBWishlistItem.Text End Sub - Private Sub NBWishlistCost_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBWishlistCost.ValueChanged + Private Sub NBWishlistCost_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBWishlistCost.ValueChanged LBLWishlistCost.Text = NBWishlistCost.Value End Sub - Private Sub TBWishlistComment_TextChanged(sender As System.Object, e As System.EventArgs) Handles TBWishlistComment.TextChanged + Private Sub TBWishlistComment_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBWishlistComment.TextChanged LBLWishListText.Text = TBWishlistComment.Text End Sub - Private Sub BTNWishlistCreate_Click(sender As System.Object, e As System.EventArgs) Handles BTNWishlistCreate.Click + Private Sub BTNWishlistCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNWishlistCreate.Click If TBWishlistItem.Text = "" Then MessageBox.Show(Me, "Please enter a name for this item!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) @@ -8723,42 +8723,42 @@ checkFolder: End Sub - Private Sub CBOwnChastity_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBOwnChastity.CheckedChanged + Private Sub CBOwnChastity_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBOwnChastity.CheckedChanged CBChastityPA.Enabled = CBOwnChastity.Checked CBChastitySpikes.Enabled = CBOwnChastity.Checked End Sub - Private Sub CBOwnChastity_LostFocus(sender As Object, e As System.EventArgs) Handles CBOwnChastity.LostFocus + Private Sub CBOwnChastity_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOwnChastity.LostFocus My.Settings.CBOwnChastity = CBOwnChastity.Checked End Sub - Private Sub CBChastityPA_LostFocus(sender As Object, e As System.EventArgs) Handles CBChastityPA.LostFocus + Private Sub CBChastityPA_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBChastityPA.LostFocus My.Settings.ChastityPA = CBChastityPA.Checked End Sub - Private Sub CBChastitySpikes_LostFocus(sender As Object, e As System.EventArgs) Handles CBChastitySpikes.LostFocus + Private Sub CBChastitySpikes_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBChastitySpikes.LostFocus My.Settings.ChastitySpikes = CBChastitySpikes.Checked End Sub - Private Sub CBHimHer_LostFocus(sender As Object, e As System.EventArgs) Handles CBHimHer.LostFocus + Private Sub CBHimHer_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBHimHer.LostFocus My.Settings.CBHimHer = CBHimHer.Checked End Sub - Private Sub CBDomDel_LostFocus(sender As Object, e As System.EventArgs) Handles CBDomDel.LostFocus + Private Sub CBDomDel_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBDomDel.LostFocus My.Settings.DomDeleteMedia = CBDomDel.Checked End Sub - Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNMaintenanceCancel.Click + Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMaintenanceCancel.Click If BWURLFiles.IsBusy Then BWURLFiles.CancelAsync() End Sub - Private Sub Button3_Click_1(sender As System.Object, e As System.EventArgs) Handles BTNMaintenanceScripts.Click + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMaintenanceScripts.Click PBMaintenance.Maximum = My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + - My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count PBMaintenance.Value = 0 Dim BlankAudit As Integer = 0 Dim ErrorAudit As Integer = 0 @@ -8895,8 +8895,8 @@ checkFolder: ' Github Patch MessageBox.Show(If(Me.Visible, Me, FrmSplash), PBMaintenance.Maximum & " scripts have been audited." & Environment.NewLine & Environment.NewLine & - "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & - "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & + "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) PBMaintenance.Value = 0 @@ -8911,7 +8911,7 @@ checkFolder: Public Sub AuditScripts() PBMaintenance.Maximum = My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + - My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count + My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Images\System\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt").Count PBMaintenance.Value = 0 Dim BlankAudit As Integer = 0 Dim ErrorAudit As Integer = 0 @@ -9022,8 +9022,8 @@ checkFolder: Debug.Print("done") MessageBox.Show(If(Me.Visible, Me, FrmSplash), PBMaintenance.Maximum & " scripts have been audited." & Environment.NewLine & Environment.NewLine & - "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & - "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Blank lines cleared: " & BlankAudit & Environment.NewLine & Environment.NewLine & + "Script errors corrected: " & ErrorAudit, "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information) PBMaintenance.Value = 0 @@ -9034,15 +9034,15 @@ checkFolder: End Sub - Private Sub TBWebStart_LostFocus(sender As Object, e As System.EventArgs) Handles TBWebStart.LostFocus + Private Sub TBWebStart_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBWebStart.LostFocus My.Settings.WebToyStart = TBWebStart.Text End Sub - Private Sub TBWebStop_LostFocus(sender As Object, e As System.EventArgs) Handles TBWebStop.LostFocus + Private Sub TBWebStop_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBWebStop.LostFocus My.Settings.WebToyStop = TBWebStop.Text End Sub - Private Sub Button3_Click_2(sender As System.Object, e As System.EventArgs) Handles Button3.Click + Private Sub Button3_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Process.Start(Application.StartupPath & "\Images\Session Images\") End Sub @@ -9077,10 +9077,10 @@ checkFolder: End Try End Function - Private Sub Button6_Click_2(sender As System.Object, e As System.EventArgs) Handles Button6.Click + Private Sub Button6_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim result As Integer = MessageBox.Show("This will permanently delete all files in the Session Images folder." & Environment.NewLine & Environment.NewLine & - "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If result = DialogResult.No Then ElseIf result = DialogResult.Yes Then @@ -9099,10 +9099,10 @@ checkFolder: - Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim result As Integer = MessageBox.Show("This will permanently reset all saved Tease AI settings back to their default value!" & Environment.NewLine & Environment.NewLine & - "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + "Are you sure you wish to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If result = DialogResult.No Then ElseIf result = DialogResult.Yes Then @@ -9112,25 +9112,25 @@ checkFolder: End Sub - Private Sub CBCockToClit_LostFocus(sender As Object, e As System.EventArgs) Handles CBCockToClit.LostFocus + Private Sub CBCockToClit_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBCockToClit.LostFocus My.Settings.CockToClit = CBCockToClit.Checked End Sub - Private Sub CBBallsToPussy_LostFocus(sender As Object, e As System.EventArgs) Handles CBBallsToPussy.LostFocus + Private Sub CBBallsToPussy_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBBallsToPussy.LostFocus My.Settings.BallsToPussy = CBBallsToPussy.Checked End Sub - Private Sub CBCockToClit_MouseHover(sender As Object, e As System.EventArgs) Handles CBCockToClit.MouseEnter + Private Sub CBCockToClit_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBCockToClit.MouseEnter LBLSubSettingsDescription.Text = "When this box is checked, the domme will replace #Cock with a Keyword for ""clit"" when it appears in a script" & Environment.NewLine & Environment.NewLine & - "She will also replace the word ""stroking"" with words like ""rubbing, fingering, teasing"" etc." + "She will also replace the word ""stroking"" with words like ""rubbing, fingering, teasing"" etc." End Sub - Private Sub CBBallsToPussy_MouseHover(sender As Object, e As System.EventArgs) Handles CBBallsToPussy.MouseEnter + Private Sub CBBallsToPussy_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBBallsToPussy.MouseEnter LBLSubSettingsDescription.Text = "When this box is checked, the domme will replace #Balls with a Keyword for ""pussy"" when it appears in a script" & Environment.NewLine & Environment.NewLine & - "She will also replace ""those #Balls"" with ""that pussy"" to make the exchange more natural." + "She will also replace ""those #Balls"" with ""that pussy"" to make the exchange more natural." End Sub - Private Sub LBPlaylist_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles LBPlaylist.DragDrop + Private Sub LBPlaylist_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles LBPlaylist.DragDrop Debug.Print("Playlist DragDrop called? called?") If FrmSettingsLoading = True Then Return @@ -9148,7 +9148,7 @@ checkFolder: End Sub - Private Sub LBPlaylist_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles LBPlaylist.DragEnter + Private Sub LBPlaylist_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles LBPlaylist.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy End If @@ -9178,7 +9178,7 @@ checkFolder: - Private Sub BTNPlaylistEnd_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylistEnd.Click + Private Sub BTNPlaylistEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPlaylistEnd.Click Debug.Print("BTNPLaylistENd called?") If FrmSettingsLoading = True Or BTNPlaylistEnd.BackColor = Color.Blue Then Return @@ -9196,7 +9196,7 @@ checkFolder: Return End Sub - Private Sub RadioPlaylistScripts_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioPlaylistScripts.CheckedChanged, RadioPlaylistRegScripts.CheckedChanged + Private Sub RadioPlaylistScripts_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioPlaylistScripts.CheckedChanged, RadioPlaylistRegScripts.CheckedChanged Debug.Print("Radio CHanged called?") If FrmSettingsLoading = True Or Form1.FormLoading = True Then Return Debug.Print("Radio CHanged accepted??") @@ -9239,7 +9239,7 @@ checkFolder: End Sub - Private Sub BTNPlaylistSave_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylistSave.Click + Private Sub BTNPlaylistSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPlaylistSave.Click If TBPlaylistSave.Text = "" Or TBPlaylistSave.Text Is Nothing Then MessageBox.Show(Me, "Please enter a name for this Playlist!", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) @@ -9280,7 +9280,7 @@ checkFolder: End Try End Sub - Private Sub BTNPlaylistClearAll_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylistClearAll.Click + Private Sub BTNPlaylistClearAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPlaylistClearAll.Click LBPlaylist.Items.Clear() BTNPlaylistSave.Enabled = False @@ -9309,7 +9309,7 @@ checkFolder: End Sub - Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If BTNPlaylistSave.Enabled = True Then Return @@ -9407,7 +9407,7 @@ checkFolder: End Sub - Private Sub BTNPlaylistCtrlZ_Click(sender As System.Object, e As System.EventArgs) Handles BTNPlaylistCtrlZ.Click + Private Sub BTNPlaylistCtrlZ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPlaylistCtrlZ.Click If BTNPlaylistEnd.BackColor = Color.Blue Then If BTNPlaylistSave.Enabled = True Then @@ -9493,10 +9493,10 @@ checkFolder: End Sub - Private Sub Button11_Click_1(sender As System.Object, e As System.EventArgs) Handles Button11.Click + Private Sub Button11_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click If MsgBox("This will change the Chastity state of Tease AI. Depending on the Personality or Scripts used so far, this could cause unexpected behavior or break certain scripts." & Environment.NewLine _ - & Environment.NewLine & "It is recommended to only change this state if you are otherwise stuck. Are you sure you wish to change the Chastity state?", vbYesNo, "Warning!") = MsgBoxResult.Yes Then + & Environment.NewLine & "It is recommended to only change this state if you are otherwise stuck. Are you sure you wish to change the Chastity state?", vbYesNo, "Warning!") = MsgBoxResult.Yes Then If My.Settings.Chastity = True Then My.Settings.Chastity = False LBLChastityState.Text = "OFF" @@ -9622,7 +9622,7 @@ checkFolder: - Private Sub RBGerman_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RBGerman.CheckedChanged, RBEnglish.CheckedChanged + Private Sub RBGerman_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBGerman.CheckedChanged, RBEnglish.CheckedChanged If FrmSettingsLoading = False Then If RBGerman.Checked = True Then @@ -9637,7 +9637,7 @@ checkFolder: End If End Sub - Private Sub ThemeLbl_Click(sender As System.Object, e As System.EventArgs) Handles LBLBackColor2.Click, LBLButtonColor2.Click, LBLTextColor2.Click, LBLDateTimeColor2.Click, LBLDateBackColor2.Click, LBLChatWindowColor2.Click, LBLChatTextColor2.Click + Private Sub ThemeLbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLBackColor2.Click, LBLButtonColor2.Click, LBLTextColor2.Click, LBLDateTimeColor2.Click, LBLDateBackColor2.Click, LBLChatWindowColor2.Click, LBLChatTextColor2.Click If GetColor.ShowDialog() = DialogResult.OK Then Form1.SuspendLayout() CType(sender, Label).BackColor = GetColor.Color @@ -9645,7 +9645,7 @@ checkFolder: End If End Sub - Private Sub Button17_Click(sender As System.Object, e As System.EventArgs) Handles Button17.Click + Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then Try Form1.PnlLayoutForm.BackgroundImage.Dispose() @@ -9658,7 +9658,7 @@ checkFolder: End If End Sub - Private Sub Button18_Click(sender As System.Object, e As System.EventArgs) Handles Button18.Click + Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Try Form1.PnlLayoutForm.BackgroundImage.Dispose() PBBackgroundPreview.Image.Dispose() @@ -9672,7 +9672,7 @@ checkFolder: - Private Sub Button31_Click(sender As System.Object, e As System.EventArgs) Handles Button31.Click + Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click OpenScriptDialog.Title = "Select a Theme settings file" OpenScriptDialog.InitialDirectory = Application.StartupPath & "\System\" @@ -9724,14 +9724,14 @@ checkFolder: End Sub - Private Sub CBStretchBack_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBStretchBack.CheckedChanged + Private Sub CBStretchBack_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBStretchBack.CheckedChanged My.Settings.BackgroundStretch = CBStretchBack.Checked End Sub - Private Sub CBTransparentTime_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBTransparentTime.CheckedChanged + Private Sub CBTransparentTime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBTransparentTime.CheckedChanged My.Settings.CBDateTransparent = CBTransparentTime.Checked End Sub @@ -9743,7 +9743,7 @@ checkFolder: - Private Sub CheckBox1_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBFlipBack.CheckedChanged + Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBFlipBack.CheckedChanged Try If Form1.FormLoading = False And Form1.ApplyingTheme = False Then @@ -9754,7 +9754,7 @@ checkFolder: End Sub - Private Sub Button32_Click(sender As System.Object, e As System.EventArgs) Handles Button32.Click + Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click SaveFileDialog1.Title = "Select a location to save current Theme" SaveFileDialog1.InitialDirectory = Application.StartupPath & "\System\" @@ -9792,7 +9792,7 @@ checkFolder: End Sub - Private Sub TimeBoxWakeUp_ValueChanged(sender As System.Object, e As System.EventArgs) Handles TimeBoxWakeUp.ValueChanged + Private Sub TimeBoxWakeUp_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeBoxWakeUp.ValueChanged If Form1.FormLoading = False Then @@ -9817,107 +9817,107 @@ checkFolder: End If End Sub - Private Sub NBTypoChance_LostFocus(sender As Object, e As System.EventArgs) Handles NBTypoChance.LostFocus + Private Sub NBTypoChance_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTypoChance.LostFocus My.Settings.TypoChance = NBTypoChance.Value End Sub - Private Sub BTNWICreateURL_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWICreateURL.MouseHover + Private Sub BTNWICreateURL_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWICreateURL.MouseHover TTDir.SetToolTip(BTNWICreateURL, "Click here to create a new URL File." & Environment.NewLine & Environment.NewLine & - "URL Files create a txt file containing the URL address" & Environment.NewLine & - "of every image posted at the image blog you specify.") + "URL Files create a txt file containing the URL address" & Environment.NewLine & + "of every image posted at the image blog you specify.") End Sub - Private Sub CBWIreview_MouseHover(sender As Object, e As System.EventArgs) Handles CBWIReview.MouseHover + Private Sub CBWIreview_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBWIReview.MouseHover TTDir.SetToolTip(CBWIReview, "When this is checked, you'll need to review" & Environment.NewLine & - "each image before it's added to the URL File.") + "each image before it's added to the URL File.") End Sub - Private Sub CBWISavetoDisk_MouseHover(sender As Object, e As System.EventArgs) Handles CBWISaveToDisk.MouseHover + Private Sub CBWISavetoDisk_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBWISaveToDisk.MouseHover TTDir.SetToolTip(CBWISaveToDisk, "When this is checked, images will also be saved" & Environment.NewLine & - "to the specified HDD directory as they are added.") + "to the specified HDD directory as they are added.") End Sub - Private Sub BTNWIAddandContinue_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIAddandContinue.MouseHover + Private Sub BTNWIAddandContinue_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWIAddandContinue.MouseHover TTDir.SetToolTip(BTNWIAddandContinue, "When reviewing images, click this button to add the" & Environment.NewLine & - "current image to the URL File and continue to the next.") + "current image to the URL File and continue to the next.") End Sub - Private Sub BTNWIContinue_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIContinue.MouseHover + Private Sub BTNWIContinue_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWIContinue.MouseHover TTDir.SetToolTip(BTNWIContinue, "When reviewing images, click this button to skip the" & Environment.NewLine & - "current image without adding it to the URL File.") + "current image without adding it to the URL File.") End Sub - Private Sub BTNWICancel_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWICancel.MouseHover + Private Sub BTNWICancel_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWICancel.MouseHover TTDir.SetToolTip(BTNWICancel, "Use this button to cancel URL File creation.") End Sub - Private Sub BTNWIOpenURL_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIOpenURL.MouseHover + Private Sub BTNWIOpenURL_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWIOpenURL.MouseHover TTDir.SetToolTip(BTNWIOpenURL, "Use this button to view a URL File you have previously created.") End Sub - Private Sub BTNWIPrevious_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIPrevious.MouseHover + Private Sub BTNWIPrevious_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWIPrevious.MouseHover TTDir.SetToolTip(BTNWIPrevious, "Use this button to view the previous image of a URL File.") End Sub - Private Sub BTNWINext_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWINext.MouseHover + Private Sub BTNWINext_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWINext.MouseHover TTDir.SetToolTip(BTNWINext, "Use this button to view the next image of a URL File.") End Sub - Private Sub BTNWIRemove_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIRemove.MouseHover + Private Sub BTNWIRemove_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWIRemove.MouseHover TTDir.SetToolTip(BTNWIRemove, "Use this button to remove an image from a URL File.") End Sub - Private Sub BTNWILiked_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWILiked.MouseHover + Private Sub BTNWILiked_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWILiked.MouseHover TTDir.SetToolTip(BTNWILiked, "Use this button to add the current image to your Liked URL Files list.") End Sub - Private Sub BTNWIDisliked_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIDisliked.MouseHover + Private Sub BTNWIDisliked_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWIDisliked.MouseHover TTDir.SetToolTip(BTNWIDisliked, "Use this button to add the current image to your Disliked URL Files list.") End Sub - Private Sub BTNWISave_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWISave.MouseHover + Private Sub BTNWISave_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWISave.MouseHover TTDir.SetToolTip(BTNWISave, "Use this button to save the current image to your hard drive.") End Sub - Private Sub TBWIDirectory_MouseHover(sender As Object, e As System.EventArgs) Handles TBWIDirectory.MouseHover + Private Sub TBWIDirectory_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBWIDirectory.MouseHover TTDir.SetToolTip(TBWIDirectory, "This is where images will be saved if ""Save Images to Disk"" is checked.") End Sub - Private Sub BTNWIBrowse_MouseHover(sender As Object, e As System.EventArgs) Handles BTNWIBrowse.MouseHover + Private Sub BTNWIBrowse_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNWIBrowse.MouseHover TTDir.SetToolTip(BTNWIBrowse, "Select the directory where images will be saved to disk.") End Sub - Private Sub SliderVVolume_LostFocus(sender As Object, e As System.EventArgs) Handles SliderVVolume.LostFocus + Private Sub SliderVVolume_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SliderVVolume.LostFocus My.Settings.VVolume = SliderVVolume.Value End Sub - Private Sub SliderVRate_LostFocus(sender As Object, e As System.EventArgs) Handles SliderVRate.LostFocus + Private Sub SliderVRate_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SliderVRate.LostFocus My.Settings.VRate = SliderVRate.Value End Sub - Private Sub SliderVVolume_MouseHover(sender As Object, e As System.EventArgs) Handles SliderVVolume.MouseHover + Private Sub SliderVVolume_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles SliderVVolume.MouseHover TTDir.SetToolTip(SliderVVolume, "Adusts the volume of the domme's TTS voice.") End Sub - Private Sub SliderVRate_MouseHover(sender As Object, e As System.EventArgs) Handles SliderVRate.MouseHover + Private Sub SliderVRate_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles SliderVRate.MouseHover TTDir.SetToolTip(SliderVRate, "Adusts the speed of the domme's TTS voice.") End Sub - Private Sub SliderVVolume_Scroll(sender As System.Object, e As System.EventArgs) Handles SliderVVolume.Scroll + Private Sub SliderVVolume_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderVVolume.Scroll Form1.synth.Volume = SliderVVolume.Value Form1.synth2.Volume = SliderVVolume.Value LBLVVolume.Text = SliderVVolume.Value End Sub - Private Sub SliderVRate_Scroll(sender As System.Object, e As System.EventArgs) Handles SliderVRate.Scroll + Private Sub SliderVRate_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderVRate.Scroll Form1.synth.Rate = SliderVRate.Value Form1.synth2.Rate = SliderVRate.Value LBLVRate.Text = SliderVRate.Value End Sub - Private Sub sadisticCheckBox_LostFocus(sender As Object, e As System.EventArgs) Handles sadisticCheckBox.LostFocus + Private Sub sadisticCheckBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles sadisticCheckBox.LostFocus My.Settings.DomSadistic = sadisticCheckBox.Checked End Sub - Private Sub degradingCheckBox_LostFocus(sender As Object, e As System.EventArgs) Handles degradingCheckBox.LostFocus + Private Sub degradingCheckBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles degradingCheckBox.LostFocus My.Settings.DomDegrading = degradingCheckBox.Checked End Sub @@ -9929,7 +9929,7 @@ checkFolder: My.Settings.CBRandomDomme = CBRandomDomme.Checked End Sub - Private Sub CBWebtease_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBWebtease.CheckedChanged + Private Sub CBWebtease_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBWebtease.CheckedChanged If CBWebtease.Checked = True Then Form1.WebteaseModeToolStripMenuItem.Checked = True Form1.ChatText.ScrollBarsEnabled = False @@ -9944,28 +9944,28 @@ checkFolder: - Private Sub BTNDebugTauntsClear_Click(sender As System.Object, e As System.EventArgs) Handles BTNDebugTauntsClear.Click + Private Sub BTNDebugTauntsClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDebugTauntsClear.Click TBDebugTaunts1.Text = "" TBDebugTaunts2.Text = "" TBDebugTaunts3.Text = "" End Sub - Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click + Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click Form1.ssh.StrokeTick = 5 End Sub - Private Sub CBMuteMedia_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBMuteMedia.CheckedChanged + Private Sub CBMuteMedia_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBMuteMedia.CheckedChanged Form1.DomWMP.settings.mute = CBMuteMedia.Checked End Sub - Private Sub CBMuteMedia_LostFocus(sender As Object, e As System.EventArgs) Handles CBMuteMedia.LostFocus + Private Sub CBMuteMedia_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBMuteMedia.LostFocus My.Settings.MuteMedia = CBMuteMedia.Checked End Sub - Private Sub BTNOfflineMode_Click(sender As System.Object, e As System.EventArgs) Handles BTNOfflineMode.Click + Private Sub BTNOfflineMode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOfflineMode.Click If My.Settings.OfflineMode = True Then My.Settings.OfflineMode = False LBLOfflineMode.Text = "OFF" @@ -9977,7 +9977,7 @@ checkFolder: End If End Sub - Private Sub CBNewSlideshow_LostFocus(sender As Object, e As System.EventArgs) Handles CBNewSlideshow.LostFocus + Private Sub CBNewSlideshow_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBNewSlideshow.LostFocus If CBNewSlideshow.Checked = True Then My.Settings.CBNewSlideshow = True Else @@ -9985,27 +9985,27 @@ checkFolder: End If End Sub - Private Sub NBTauntEdging_LostFocus(sender As Object, e As System.EventArgs) Handles NBTauntEdging.LostFocus + Private Sub NBTauntEdging_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles NBTauntEdging.LostFocus My.Settings.TauntEdging = NBTauntEdging.Value End Sub - Private Sub BTNDebugTeaseTimer_Click(sender As System.Object, e As System.EventArgs) Handles BTNDebugTeaseTimer.Click + Private Sub BTNDebugTeaseTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDebugTeaseTimer.Click Form1.ssh.TeaseTick = 5 End Sub - Private Sub BTNDebugStrokeTime_Click(sender As System.Object, e As System.EventArgs) Handles BTNDebugStrokeTime.Click + Private Sub BTNDebugStrokeTime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDebugStrokeTime.Click Form1.ssh.StrokeTick = 5 End Sub - Private Sub BTNDebugStrokeTauntTimer_Click(sender As System.Object, e As System.EventArgs) Handles BTNDebugStrokeTauntTimer.Click + Private Sub BTNDebugStrokeTauntTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDebugStrokeTauntTimer.Click Form1.ssh.StrokeTauntTick = 5 End Sub - Private Sub BTNDebugEdgeTauntTimer_Click(sender As System.Object, e As System.EventArgs) Handles BTNDebugEdgeTauntTimer.Click + Private Sub BTNDebugEdgeTauntTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDebugEdgeTauntTimer.Click Form1.ssh.EdgeTauntInt = 5 End Sub - Private Sub BTNDebugHoldEdgeTimer_Click(sender As System.Object, e As System.EventArgs) Handles BTNDebugHoldEdgeTimer.Click + Private Sub BTNDebugHoldEdgeTimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDebugHoldEdgeTimer.Click Form1.ssh.HoldEdgeTick = 5 End Sub @@ -10013,74 +10013,74 @@ checkFolder: - Private Sub CBURLPreview_LostFocus(sender As Object, e As System.EventArgs) Handles CBURLPreview.LostFocus + Private Sub CBURLPreview_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBURLPreview.LostFocus My.Settings.CBURLPreview = CBURLPreview.Checked End Sub - Private Sub NBTaskStrokesMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskStrokesMin.ValueChanged + Private Sub NBTaskStrokesMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskStrokesMin.ValueChanged If NBTaskStrokesMin.Value > NBTaskStrokesMax.Value Then NBTaskStrokesMin.Value = NBTaskStrokesMax.Value End Sub - Private Sub NBTaskStrokesMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskStrokesMax.ValueChanged + Private Sub NBTaskStrokesMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskStrokesMax.ValueChanged If NBTaskStrokesMax.Value < NBTaskStrokesMin.Value Then NBTaskStrokesMax.Value = NBTaskStrokesMin.Value End Sub - Private Sub NBTaskStrokingTimeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskStrokingTimeMin.ValueChanged + Private Sub NBTaskStrokingTimeMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskStrokingTimeMin.ValueChanged If NBTaskStrokingTimeMin.Value > NBTaskStrokingTimeMax.Value Then NBTaskStrokingTimeMin.Value = NBTaskStrokingTimeMax.Value End Sub - Private Sub NBTaskStrokingTimeMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskStrokingTimeMax.ValueChanged + Private Sub NBTaskStrokingTimeMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskStrokingTimeMax.ValueChanged If NBTaskStrokingTimeMax.Value < NBTaskStrokingTimeMin.Value Then NBTaskStrokingTimeMax.Value = NBTaskStrokingTimeMin.Value End Sub - Private Sub NBTaskEdgesMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskEdgesMin.ValueChanged + Private Sub NBTaskEdgesMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskEdgesMin.ValueChanged If NBTaskEdgesMin.Value > NBTaskEdgesMax.Value Then NBTaskEdgesMin.Value = NBTaskEdgesMax.Value End Sub - Private Sub NBTaskEdgesMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskEdgesMax.ValueChanged + Private Sub NBTaskEdgesMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskEdgesMax.ValueChanged If NBTaskEdgesMax.Value < NBTaskEdgesMin.Value Then NBTaskEdgesMax.Value = NBTaskEdgesMin.Value End Sub - Private Sub NBTaskEdgeHoldTimeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskEdgeHoldTimeMin.ValueChanged + Private Sub NBTaskEdgeHoldTimeMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskEdgeHoldTimeMin.ValueChanged If NBTaskEdgeHoldTimeMin.Value > NBTaskEdgeHoldTimeMax.Value Then NBTaskEdgeHoldTimeMin.Value = NBTaskEdgeHoldTimeMax.Value End Sub - Private Sub NBTaskEdgeHoldTimeMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskEdgeHoldTimeMax.ValueChanged + Private Sub NBTaskEdgeHoldTimeMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskEdgeHoldTimeMax.ValueChanged If NBTaskEdgeHoldTimeMax.Value < NBTaskEdgeHoldTimeMin.Value Then NBTaskEdgeHoldTimeMax.Value = NBTaskEdgeHoldTimeMin.Value End Sub - Private Sub NBTaskCBTTimeMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskCBTTimeMin.ValueChanged + Private Sub NBTaskCBTTimeMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskCBTTimeMin.ValueChanged If NBTaskCBTTimeMin.Value > NBTaskCBTTimeMax.Value Then NBTaskCBTTimeMin.Value = NBTaskCBTTimeMax.Value End Sub - Private Sub NBTaskCBTTimeMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTaskCBTTimeMax.ValueChanged + Private Sub NBTaskCBTTimeMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTaskCBTTimeMax.ValueChanged If NBTaskCBTTimeMax.Value < NBTaskCBTTimeMin.Value Then NBTaskCBTTimeMax.Value = NBTaskCBTTimeMin.Value End Sub - Private Sub NBTasksMin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTasksMin.ValueChanged + Private Sub NBTasksMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTasksMin.ValueChanged If NBTasksMin.Value > NBTasksMax.Value Then NBTasksMin.Value = NBTasksMax.Value End Sub - Private Sub NBTasksMax_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NBTasksMax.ValueChanged + Private Sub NBTasksMax_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBTasksMax.ValueChanged If NBTasksMax.Value < NBTasksMin.Value Then NBTasksMax.Value = NBTasksMin.Value End Sub - Private Sub TypeSpeedSlider_MouseHover(sender As Object, e As System.EventArgs) Handles TypeSpeedSlider.MouseHover + Private Sub TypeSpeedSlider_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TypeSpeedSlider.MouseHover TTDir.SetToolTip(TypeSpeedSlider, "Adjust your typing speed. It determines how much time you will have during Writing Tasks to accomplish them." & vbCrLf & "(There is a 3-fold difference in time granted between slowest and fastest typing speed") End Sub - Private Sub TypeSpeedSlider_Scroll(sender As System.Object, e As System.EventArgs) Handles TypeSpeedSlider.Scroll + Private Sub TypeSpeedSlider_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TypeSpeedSlider.Scroll TypesSpeedVal.Text = TypeSpeedSlider.Value End Sub - Private Sub TimedWriting_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles TimedWriting.MouseHover + Private Sub TimedWriting_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimedWriting.MouseHover If RBEnglish.Checked = True Then TTDir.SetToolTip(TimedWriting, "When selected, you will need to complete Writing Tasks in a certain amount of time, based on sentence length and Typing Speed value" & Environment.NewLine & - "When unselected, Writing Tasks failure will only be based on errors made") + "When unselected, Writing Tasks failure will only be based on errors made") If RBGerman.Checked = True Then TTDir.SetToolTip(TimedWriting, "Wenn diese Option aktiviert , müssen Sie Schreibaufgaben in einer bestimmten Zeit zu vervollständigen, basierend auf Satzlängeund Typing Speed ​​Wert" & Environment.NewLine & "Wenn diese Option deaktiviert, Schreibaufgaben Fehler wird nur auf Fehler beruhen gemacht") End Sub - Private Sub Button24_Click_1(sender As System.Object, e As System.EventArgs) Handles Button24.Click + Private Sub Button24_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click End Sub - Private Sub Button33_Click(sender As System.Object, e As System.EventArgs) Handles Button33.Click + Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click End Sub Public Sub SaveDommeTags() @@ -10361,7 +10361,7 @@ checkFolder: My.Settings.CBOutputErrors = CBOutputErrors.Checked End Sub - Private Sub alwaysNewSlideshow_CheckedChanged(sender As Object, e As EventArgs) Handles alwaysNewSlideshow.CheckedChanged + Private Sub alwaysNewSlideshow_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles alwaysNewSlideshow.CheckedChanged My.Settings.AlwaysNewSlideshow = alwaysNewSlideshow.Checked End Sub From 184378922502fb0478d4204fcce1cf5e9ad9beca Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 4 May 2017 23:02:35 -0500 Subject: [PATCH 105/143] Increased Tease Length Ranges, @ContinueSession Command --- Tease AI/Form1.vb | 8 ++++++++ Tease AI/Form2.Designer.vb | 22 +++++++++++----------- 2 files changed, 19 insertions(+), 11 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 26dcbdf..6ec6b69 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -11771,6 +11771,14 @@ ExternalAudio: StringClean = StringClean.Replace("@RemoveDomme", "") End If + If StringClean.Contains("@ContinueSession") Or StringClean.Contains("@SecondSession") Then + If FrmSettings.CBDomDenialEnds.Checked = False And FrmSettings.CBDomOrgasmEnds.Checked = False Then + ssh.SecondSession = True + End If + StringClean = StringClean.Replace("@ContinueSession", "") + StringClean = StringClean.Replace("@SecondSession", "") + End If + If StringClean.Contains("@NullResponse") Then ssh.NullResponse = True StringClean = StringClean.Replace("@NullResponse", "") diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index e52a313..f05667b 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -1143,8 +1143,8 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() Me.Label169 = New System.Windows.Forms.Label() +Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() Me.SettingsPanel.SuspendLayout Me.SettingsTabs.SuspendLayout Me.TabPage1.SuspendLayout @@ -12519,7 +12519,7 @@ Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 'NBTeaseLengthMax ' Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) -Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {720, 0, 0, 0}) +Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {1440, 0, 0, 0}) Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) @@ -12553,7 +12553,7 @@ Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 'NBTeaseLengthMin ' Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) -Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) +Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) @@ -15227,14 +15227,6 @@ Me.TextBox2.ReadOnly = true Me.TextBox2.Size = New System.Drawing.Size(189, 20) Me.TextBox2.TabIndex = 145 ' -'BWURLFiles -' -Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" -Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" -Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" -Me.BWURLFiles.WorkerReportsProgress = true -Me.BWURLFiles.WorkerSupportsCancellation = true -' 'Label169 ' Me.Label169.BackColor = System.Drawing.Color.Transparent @@ -15247,6 +15239,14 @@ Me.Label169.TabIndex = 182 Me.Label169.Text = "Contact Honorific" Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' +'BWURLFiles +' +Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" +Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" +Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" +Me.BWURLFiles.WorkerReportsProgress = true +Me.BWURLFiles.WorkerSupportsCancellation = true +' 'FrmSettings ' Me.AllowDrop = true From 7cd5bafa231d3213967016c257440a53b672fb15 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 4 May 2017 23:33:23 -0500 Subject: [PATCH 106/143] ContinueSession checks Added checks to make sure Denial Always Ends Orgasm isn't checked when ssh.SecondSession is True --- Tease AI/Form1.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 6ec6b69..12d51dd 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -2181,7 +2181,7 @@ WritingTaskLine: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Or (ssh.SecondSession And FrmSettings.CBDomDenialEnds.Checked = False) Then ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False @@ -2262,7 +2262,7 @@ RuinedOrgasm: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Or (ssh.SecondSession And FrmSettings.CBDomDenialEnds.Checked = False) Then ssh.SecondSession = False ssh.SubEdging = False @@ -2383,7 +2383,7 @@ NoNoCumFiles: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Or (ssh.SecondSession And FrmSettings.CBDomDenialEnds.Checked = False) Then ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False @@ -15359,7 +15359,7 @@ NoPlaylistEndFile: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + If RepeatChance < 10 * FrmSettings.domlevelNumBox.Value Or (ssh.SecondSession And FrmSettings.CBDomDenialEnds.Checked = False) Then ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False @@ -15433,7 +15433,7 @@ RuinedOrgasm: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + If RepeatChance < 8 * FrmSettings.domlevelNumBox.Value Or (ssh.SecondSession And FrmSettings.CBDomDenialEnds.Checked = False) Then EdgeTauntTimer.Stop() HoldEdgeTimer.Stop() @@ -15551,7 +15551,7 @@ NoNoCumFiles: Dim RepeatChance As Integer = ssh.randomizer.Next(0, 101) - If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Or ssh.SecondSession Then + If RepeatChance < 4 * FrmSettings.domlevelNumBox.Value Or (ssh.SecondSession And FrmSettings.CBDomDenialEnds.Checked = False) Then HoldEdgeTimer.Stop() HoldEdgeTauntTimer.Stop() From 198e23771f30ac3a13e6618614e4978f2d8248fb Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 5 May 2017 01:08:08 -0500 Subject: [PATCH 107/143] Change AuditScripts default to False --- Tease AI/My Project/Settings.Designer.vb | 180 +++++++++++------------ Tease AI/My Project/Settings.settings | 20 ++- Tease AI/app.config | 20 ++- 3 files changed, 128 insertions(+), 92 deletions(-) diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 676aa4e..e4ca7c5 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -2009,20 +2009,8 @@ Namespace My Me("SubNo") = value End Set End Property - - - Public Property SubSorry() As String - Get - Return CType(Me("SubSorry"), String) - End Get - Set - Me("SubSorry") = Value - End Set - End Property - - _ Public Property SubHonorific() As String @@ -2033,56 +2021,8 @@ Namespace My Me("SubHonorific") = value End Set End Property - - - Public Property G1Honorific() As String - Get - Return CType(Me("G1Honorific"), String) - End Get - Set - Me("G1Honorific") = Value - End Set - End Property - - - Public Property G2Honorific() As String - Get - Return CType(Me("G2Honorific"), String) - End Get - Set - Me("G2Honorific") = Value - End Set - End Property - - - Public Property G3Honorific() As String - Get - Return CType(Me("G3Honorific"), String) - End Get - Set - Me("G3Honorific") = Value - End Set - End Property - - - Public Property RandomHonorific() As String - Get - Return CType(Me("RandomHonorific"), String) - End Get - Set - Me("RandomHonorific") = Value - End Set - End Property - - _ Public Property CBUseHonor() As Boolean @@ -4219,7 +4159,7 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("False")> _ Public Property AuditStartup() As Boolean Get Return CType(Me("AuditStartup"),Boolean) @@ -5855,31 +5795,91 @@ Namespace My Me("CBRandomDomme") = value End Set End Property - - - Public Property CBOutputErrors() As Boolean - Get - Return CType(Me("CBOutputErrors"), Boolean) - End Get - Set - Me("CBOutputErrors") = value - End Set - End Property - - - Public Property AlwaysNewSlideshow() As Boolean - Get - Return CType(Me("AlwaysNewSlideshow"), Boolean) - End Get - Set - Me("AlwaysNewSlideshow") = Value - End Set - End Property - End Class + + _ + Public Property CBOutputErrors() As Boolean + Get + Return CType(Me("CBOutputErrors"),Boolean) + End Get + Set + Me("CBOutputErrors") = value + End Set + End Property + + _ + Public Property G1Honorific() As String + Get + Return CType(Me("G1Honorific"),String) + End Get + Set + Me("G1Honorific") = value + End Set + End Property + + _ + Public Property G2Honorific() As String + Get + Return CType(Me("G2Honorific"),String) + End Get + Set + Me("G2Honorific") = value + End Set + End Property + + _ + Public Property G3Honorific() As String + Get + Return CType(Me("G3Honorific"),String) + End Get + Set + Me("G3Honorific") = value + End Set + End Property + + _ + Public Property RandomHonorific() As String + Get + Return CType(Me("RandomHonorific"),String) + End Get + Set + Me("RandomHonorific") = value + End Set + End Property + + _ + Public Property SubSorry() As String + Get + Return CType(Me("SubSorry"),String) + End Get + Set + Me("SubSorry") = value + End Set + End Property + + _ + Public Property AlwaysNewSlideshow() As Boolean + Get + Return CType(Me("AlwaysNewSlideshow"),Boolean) + End Get + Set + Me("AlwaysNewSlideshow") = value + End Set + End Property + End Class End Namespace Namespace My diff --git a/Tease AI/My Project/Settings.settings b/Tease AI/My Project/Settings.settings index eeb361d..6c05ace 100644 --- a/Tease AI/My Project/Settings.settings +++ b/Tease AI/My Project/Settings.settings @@ -1029,7 +1029,7 @@ - True + False @@ -1443,5 +1443,23 @@ True + + + + + + + + + + + + + + sorry, apologize, excuse + + + False + \ No newline at end of file diff --git a/Tease AI/app.config b/Tease AI/app.config index 164ef42..e9d26a4 100644 --- a/Tease AI/app.config +++ b/Tease AI/app.config @@ -1078,7 +1078,7 @@ - True + False @@ -1494,6 +1494,24 @@ True + + + + + + + + + + + + + + sorry, apologize, excuse + + + False + From 533e0fdc02c06908fc97bac261c237e5da392683 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 5 May 2017 03:26:26 -0500 Subject: [PATCH 108/143] Enhanced end of tease and @EndTease Command End of tease and @EndTease no longer delete the chat (since that's not how chat messengers work when someone logs off). The image will now be erased. @EndTease no longer eats the line on which it was used. Removed message stating that Tease AI has been reset. Scripters can now make their own outros (and if they were doing that already by putting @EndTease on its own line, that wil still work) Fixed bug that prevented After Tease Response Files from being called --- Tease AI/Classes/State.vb | 5 +++- Tease AI/Form1.vb | 56 ++++++++++++++++++++++++++++++--------- 2 files changed, 48 insertions(+), 13 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 8771899..a5c406d 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -601,6 +601,8 @@ Public Class SessionState Public Property MultiTauntPictureHold As Boolean + Public Property EndSession As Boolean + #Region "----------------------------------- Only for Serialization -------------------------------------" @@ -1320,7 +1322,8 @@ Public Class SessionState End If ' Called from Controls UI-Thread -> Execute Code. - FrmSettings.TBHonorific.Text = My.Settings.SubHonorific + FrmSettings.TBHonorific.Text = My.Settings.SubHonorific + Dispose() If ActivationForm IsNot Nothing Then diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 12d51dd..ff97440 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -2221,6 +2221,8 @@ WritingTaskLine: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -2305,6 +2307,8 @@ RuinedOrgasm: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -2335,6 +2339,7 @@ NoRepeatRFiles: ssh.Contact3Edge = False End If TypingDelay() + If ssh.LastScript = True Then ssh.EndTease = True Return AllowedOrgasm: @@ -2423,6 +2428,8 @@ NoNoCumFiles: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -2458,6 +2465,7 @@ NoRepeatOFiles: ssh.Contact3Edge = False End If TypingDelay() + If ssh.LastScript = True Then ssh.EndTease = True Return @@ -4039,7 +4047,14 @@ NonModuleEnd: If ssh.RiskyEdges = True Then ssh.RiskyEdges = False If ssh.LastScript = True Then ssh.LastScript = False - ssh.EndTease = True + Dim SaveChat As String = ssh.Chat + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + mainPictureBox.Image = Nothing + ChatText.DocumentText = SaveChat + ChatText2.DocumentText = SaveChat + Exit Sub End If If ssh.HypnoGen = True Then If ssh.Induction = True Then @@ -5041,7 +5056,6 @@ NullResponse: 'SUGGESTION: (Stefaf) All Writing to the Chatbox and Wating for fetched Images shoud be in a separat Function. - Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) If ssh.NullResponse = False And ssh.DomTask <> "" Then @@ -5337,6 +5351,16 @@ DommeSlideshowFallback: ssh.GotoFlag = False + If ssh.EndSession = True Then + ssh.EndSession = False + Dim SaveChat As String = ssh.Chat + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + mainPictureBox.Image = Nothing + ChatText.DocumentText = SaveChat + ChatText2.DocumentText = SaveChat + End If If ssh.SubGaveUp = True Then If ssh.YesOrNo And ssh.giveUpReturn Then @@ -5964,6 +5988,17 @@ DommeSlideshowFallback: ssh.Responding = False + If ssh.EndSession = True Then + ssh.EndSession = False + Dim SaveChat As String = ssh.Chat + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + mainPictureBox.Image = Nothing + ChatText.DocumentText = SaveChat + ChatText2.DocumentText = SaveChat + End If + If ssh.SubGaveUp = True Then If ssh.YesOrNo And ssh.giveUpReturn Then ssh.DomChat = "#SYS_ReturnAnswer" @@ -10716,16 +10751,7 @@ OrgasmDecided: If StringClean.Contains("@EndTease") Then - SetVariable("SYS_SubLeftEarly", 0) - 'My.Settings.Sys_SubLeftEarly = 0 - 'StopEverything() - 'ResetButton() - SaveChatLog(False) - ssh.Reset() - FrmSettings.LockOrgasmChances(False) - ssh.DomTask = "@SystemMessage Tease AI has been reset" - ssh.DomChat = "@SystemMessage Tease AI has been reset" - 'setStartName() + ssh.EndSession = True StringClean = StringClean.Replace("@EndTease", "") End If @@ -15394,6 +15420,8 @@ NoPlaylistEndFile: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -15473,6 +15501,8 @@ RuinedOrgasm: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -15591,6 +15621,8 @@ NoNoCumFiles: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If From 8addcbfd3ae5851112c54fe3a95987e87f729042 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 5 May 2017 04:05:58 -0500 Subject: [PATCH 109/143] Contacts\Video Scripts fix Lines from VIdeo\Scripts will now be ignored if they are from a Contact that is not present in the room. --- Tease AI/Form1.vb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ff97440..24eadc1 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -16335,9 +16335,14 @@ RestartFunction: PlayPos += SubCheck2(2) If WMPPos = PlayPos Then - ssh.DomTask = SubCheck(1) - TypingDelayGeneric() - Debug.Print(SubList(i)) + If (SubCheck(1).Contains("@Contact1") And ssh.contact1Present = False) Or (SubCheck(1).Contains("@Contact2") And ssh.contact2Present = False) _ + Or (SubCheck(1).Contains("@Contact3") And ssh.contact3Present = False) Then + 'I'm positive I'm doing this the hard way -.- + Else + ssh.DomTask = SubCheck(1) + TypingDelayGeneric() + Debug.Print(SubList(i)) + End If End If Next End If From a3918ff6368c24735cc811105bb29193f4b25700 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 5 May 2017 04:46:59 -0500 Subject: [PATCH 110/143] Changed AssemblyVersion to 0.54.8.0 --- Tease AI/My Project/AssemblyInfo.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index 4e7b7dc..d4564c7 100644 --- a/Tease AI/My Project/AssemblyInfo.vb +++ b/Tease AI/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - + From ceb4d9366e04329864a08bb84a1d1252fb3880d5 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 5 May 2017 20:16:46 -0500 Subject: [PATCH 111/143] Updated ReadMe --- README.md | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 75 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 63a2561..978927d 100644 --- a/README.md +++ b/README.md @@ -9,36 +9,108 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 54.8.0 * Added Features: + * Added "Change URL File Servers" function to Maintenance options in thhe Miscellaneous Settings tab. This will replace the specified "Replace" string with the specified "With" string in an URL Files, as well as Liked and Disliked Image URLs. You should only use numbers in these text fields, as Tease AI will automatically add ".media" to avoid changing file names instead of just the server. So if you enter 41 in the Replace box, and 40 in the With box, all URLS in all URL Files that start with "41.media.tumblr.com" will be replaced with "40.media.tumblr.com". After a little testing, I was able to get rid of every "Error Loading Image" error I was getting by changing 41 to 40, 67 to 68, 65 to 66 and 36 to 37. * @Goto() Improvements: Previously, Tease AI would crash if it tried to find a Goto Label that did not exist in the current script. The two most common occurrences seemed to be when INterrupts were called while a Goto line was active, and typos in the @Goto() Command or Goto Label. Goto searches are now cleared when Interrupts, CallReturns or Miniscripts are used. Additionally, if Tease AI cannot find an exact match after parsing the entire script, it will begin checking labels for similar text found in the @Goto() Command, looking for any Labels that are 1 character off, then 2, then 3 and so on up to 5. This should help scripts flow correctly even when typos are present. If Tease AI still fails to find an exact or similar match, then the program will move on to a random Link script and begin the next cycle. This should prevent the widespread problem of crashes occurring when @Goto() can't find what it's looking for. * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. + + * Honorifics are now checked every time you write, not just when answering yes or no questions. (dariobrun) + + * Changes to the punishment after failing too many times to use the honorific: now you will not get an automatic @CBT but you can decide what happens in the #SYS_HonorificPunish vocab. You can even use @CallReturn() to deal with it, for example. (dariobrun) - * Added @SecondSession command to force the Orgasm/Ruin/Denial Continue interrupt scripts if the user has the option "X always ends tease" unchecked when the current session ends, thus starting a second session. + * Contacts can now use their own honorifics (dariobrun) + + * CustomMode() can now use Vocabulary files. For example, @CustomMode(#Finished, Goto, Finished Task) would goto the line (Finished Task) if the user said any of the lines inside #Finished (dariobrun) + + * When setting a Glitter Contact or Random Domme as the domme, the domme's name and picture will now change in the avatar window to reflect that. Tease AI will look for an image named "avatar.*" (avatar.jpg, avatar.png, etc) in the root of that Contact\Random Domme's directory and use that for the avatar picture if it is found. If it is not, it will use a random image from her picture set instead (dariobrun) + +* Commands: + + * @DommeTagOr(): Will check against tags in the order that they're listed (dariobrun) + @ImageTagOr(): Will check against tags in the order that they're listed (dariobrun) + + So for example: + @DommeTagOr(Naked,FullyDressed) --> will show fullydressed images only if it doesn't find naked images + @DommeTagOr(Fully Dressed,Naked)--> will show naked images only if it doesn't find fullydressed images + + * @DommeTagAny(): Will choose an image having at least one of the specified tags (dariobrun) + * @ImageTagAny(): Will choose an image having at least one of the specified tags (dariobrun) + + So to recap for both @DommeTag() and @ImageTag(): + @DommeTag(a,b)-->return images having both a and b (If an image with both a and b cannot be found, it will look for a, then b and try to return the closest match found) + @DommeTagOr(a,b)-->return images having a, if it doesn't find any, return images having b + @DommeTagAny(a,b,)-->return images having either a or b + +now, in linear scripts (not in responses/vocabs) if @DommeTag(a,b) finds no picture to show, it will perform a @DommeTagOr(a,b) to try to find a pic having at least one of the tags present + +(in the order a-->b) + + * @RandomContact - Randomly assigns the line to one of the available Contacts in the room (dariobrun) + + * @ContinueSession - Used during an End script to gaurantee that the session will continue. @ContinueSession will not activate if the user has "Denial Always Ends Tease" or "Orgasm Always Ends Tease" checked. (oxiklein) + + * PlayAvoidTheEdge[] - Begins a game of Avoid The Edge with the specified video. For example, @PlayAvoidTheEdge[dir\video.mp4] (dariobrun) + + * PlayCensorshipSucks[] - Begins a game of Censorship Sucks with the specified video. For example, @PlayCensorshipSucks[dir\video.mp4] (dariobrun) + + * PlayRedLightGreenLight[] - Begins a game of Red Light, Green Light with the specified video. For example, @PlayRedLightGreenLight[dir\video.mp4] (dariobrun) * Command Filters: + * @HoldTaunt - Will only display the line if the user is edging, will hold the edge once he reaches it and has been called by using "HoldTaunts" in the @Edge() Command. For example, @Edge(Hold, HoldTaunts). This is to allow the domme to taunt the user about the edge he's about to hold. * @LongTaunt - Will only display the line if the user is edging, will hold a long edge once he reaches it and has been called by using "HoldTaunts" in the @Edge() Command. For example, @Edge(LongHold, HoldTaunts) * @ExtremeTaunt - Will only display the line if the user is edging, will hold an extreme edge once he reaches it and has been called by using "HoldTaunts" in the @Edge() Command. For example, @Edge(ExtremeHold, HoldTaunts) +* System Keywords: + + * #Contact1Honorific - Will be replaced with the honorific set for Contact 1 (dariobrun) + * #Contact2Honorific - Will be replaced with the honorific set for Contact 2 (dariobrun) + * #Contact3Honorific - Will be replaced with the honorific set for Contact 3 (dariobrun) * Bugfixes: - * When Tease AI parses a Vocabulary file with no valid lines, it will now highlight the Vocabularly filename in orange instead of causing a crash. This works similarly to how the program will currently highlight the Keyword in red if it does not exist at all (dariobrun) + + * When Tease AI parses a Vocabulary file with no valid lines, it will now highlight the Vocabularly filename in orange instead of causing a crash. This works similarly to how the program will currently highlight the Keyword in red if it does not exist at all (dariobrun & 1885) * @EdgeHold() and similar Commands did not make the user hold the edge for the specified amount of time + * @ShowImage[dir\*] and @ShowImage[dir\*.*] will now only return a random image file as opposed to any file type (dariobrun) + * @FollowUp() would activate Commands inside follow up lines before the lines were displayed (dariobrun) + * Contacts will only be removed from the room if someone else is present, preventing crashes arising from a session with 0 particpants left (dariobrun) + * @Group() Command Filter would not react correctly to certain combinations (dariobrun) + * Tag Commands can now search for an indefinite number of tags instead of just 3 (dariobrun) + * @ImageTag(a,b,c,d,e) previously would return an image even if it just had a,b,c (and wouldn't check for d and e). Now it shows an image only it has all a,b,c,d,e (dariobrun) * Prevent endless loop in statuses (pepsifreak) * Refined the "Always Start With Random Domme" option + * Random Domme option wasn't able to find the last folder in the selected directory (dariobrun) * Response Files were still being parsed when @InputVar[] was active + * Fixed bug that prevented [After Tease] Response File sections from being called + * @ChangeVar[] improvement: Previously, using @ChangeVar[] wrong (such as @ChangeVar[VarName]=[15]) would have reset the variable to 0. Now it just gets ignored since it's the wrong syntax (dariobrun) + * Contact\Random dommes are now remembered when resuming or resetting a session (dariobrun) * The System Keyword #RandomSlideshowCategory should now work as intended * Giving up during the first round did not display [First Round] Responses + * @ContactX lines will no longer display in Video scripts if that Contact is not present in the room + * Fixed a bug where the domme was giving you another cbt/task command after granting a GiveUp (dariobrun) + * Domme Responses were sometimes triggered during Writing Tasks (dariobrun) + * Fixed bug that would occur when identical #Keywords were used in the same phrase (dariobrun) + * ")" sometimes got left behind after using @FollowUp() Commands (dariobrun) * Miscellaneous: + * The picture will no longer change in the middle of StrokeTaunts that are more than one line * The background timer for the length of the tease session will now pause when the Settings window is open and the "Pause Program When Settings Menu is Visible" option is checked (pepsifreak) * The timer for edge taunts now resets after each edge during Multiple Edges * Lines containing Commands that show Blog\Genre\Boobs\Butt\Liked\Disliked images will now be filtered out if the picture window is not visible (such as when a video is playing) - * Commas are no longer affected when auditing scripts + * End of tease and @EndTease no longer clear the chat window or display that Tease AI has been reset + * Increased Tease Length Minimum and Maximum upper ranges to accommodate longer runtimes when using Spicy + * @CallReturn() can now call a random file using wildcards. For example, @CallReturn(dir\*) or @CallReturn(dir\*.txt) + * @PlayAudio[], @PlayVideo[] and @ShowImage[] can now use files outside the relative Tease AI directory by using the full path name. For example, @PlayAudio[C:\dir\subdir\name.extension]. This is not recommended for scripts that you wish to share. You can also use wildcards with these Commands to show random media files. For example, @PlayVideo[c:\dir\subdir\*] (dariobrun) + * Audit Scripts on Startup is now off by default + * Commas are no longer affected when auditing scripts * Blank lines are now only removed from URL Files when auditing scripts + * #DomHonorific will be replaced with the appropriate Contact\Random honorific if a different domme has been set for the session (dariobrun) + * @TimeOut() can now be used with Vocabulary files to determine the time needed to trigger it (dariobrun) + * Streamlined the TTS commands and the fonttype/fontcolor/fontsze to use so that they are now tied to the contact currently speaking (dariobrun) + * ")" can now be used as a character inside @RT()\@RandomText() and @FollowUp() (dariobrun) * CBT\Custom Task were missing from StopEverything() sub-routine (dariobrun) * Added dialog to select certain url files, when refreshing or rebuilding url files * Added possibilty to jump to a certain image, when browsing an url file. Simply double click the bottom left label and a prompt will appear. From e19e73791964905792fad62845ab61685afebbd6 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 5 May 2017 20:18:40 -0500 Subject: [PATCH 112/143] Updated ReadMe --- README.md | 4 ---- 1 file changed, 4 deletions(-) diff --git a/README.md b/README.md index 978927d..1d11ed1 100644 --- a/README.md +++ b/README.md @@ -43,10 +43,6 @@ Stefaf: Integration of Class myDirectory: Status ongoing. @DommeTagOr(a,b)-->return images having a, if it doesn't find any, return images having b @DommeTagAny(a,b,)-->return images having either a or b -now, in linear scripts (not in responses/vocabs) if @DommeTag(a,b) finds no picture to show, it will perform a @DommeTagOr(a,b) to try to find a pic having at least one of the tags present - -(in the order a-->b) - * @RandomContact - Randomly assigns the line to one of the available Contacts in the room (dariobrun) * @ContinueSession - Used during an End script to gaurantee that the session will continue. @ContinueSession will not activate if the user has "Denial Always Ends Tease" or "Orgasm Always Ends Tease" checked. (oxiklein) From 181645a54d58f98684497db9baec112b29a0f6ed Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 6 May 2017 02:29:36 -0500 Subject: [PATCH 113/143] Bugfix: WritingTask\WritingTaskRandom and Vocab files #Keywords were leaving undetectable spaces when their line contained a Command Filter. @WritingTask() and @WritingTaskRandom() should now be cleaned correctly during CommandClean --- Tease AI/Form1.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 24eadc1..44bfb5a 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -10604,10 +10604,10 @@ OrgasmDecided: If StringClean.Contains("@WritingTask(") Or StringClean.Contains("@WritingTaskRandom(") Then If StringClean.Contains("@WritingTask(") Then ssh.randomWriteTask = False - StringClean = StringClean.Replace("@WritingTask", "") + StringClean = StringClean.Replace("@WritingTask(" & GetParentheses(StringClean, "@WritingTask(") & ")", "") Else ssh.randomWriteTask = True - StringClean = StringClean.Replace("@WritingTaskRandom", "") + StringClean = StringClean.Replace("@WritingTaskRandom(" & GetParentheses(StringClean, "@WritingTaskRandom(") & ")", "") End If ssh.WritingTaskFlag = True @@ -21130,6 +21130,7 @@ ShowedBlogImage: LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Trim End Sub Private Function goingTo(ByVal commandToCheck As String) As String From 4a22c5d3265a396a63097f50cd8d2e37417ef8fb Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 6 May 2017 15:23:01 -0500 Subject: [PATCH 114/143] Last-minute updates --- README.md | 12 +- Tease AI/Form1.vb | 211 +- Tease AI/Form2.Designer.vb | 17872 +++++++++++++++++------------------ 3 files changed, 9054 insertions(+), 9041 deletions(-) diff --git a/README.md b/README.md index 1d11ed1..bee4c2d 100644 --- a/README.md +++ b/README.md @@ -16,11 +16,11 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Added "Output Error Message to Chat Window" option to Misc Settings. Whereever possible, Error messages that are sent to the Errorlogs will be displayed in the chat window as well. Certain error messages that were already displayed to the chat window now have adsditional details. - * Honorifics are now checked every time you write, not just when answering yes or no questions. (dariobrun) + * Honorifics are now checked for please, thanks and sorry, not only yes\no\hi. Words\Phrases for "sorry" can now be set in Sub Settings. (dariobrun) * Changes to the punishment after failing too many times to use the honorific: now you will not get an automatic @CBT but you can decide what happens in the #SYS_HonorificPunish vocab. You can even use @CallReturn() to deal with it, for example. (dariobrun) - * Contacts can now use their own honorifics (dariobrun) + * Contacts can now use their own honorifics. These can be set in Settings->Apps->Glitter. The starting values will be blank, so Contacts will not check for honorifics unless you add them (add Honorific Must be Included with Key Phrases" is checked) (dariobrun) * CustomMode() can now use Vocabulary files. For example, @CustomMode(#Finished, Goto, Finished Task) would goto the line (Finished Task) if the user said any of the lines inside #Finished (dariobrun) @@ -64,6 +64,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * #Contact1Honorific - Will be replaced with the honorific set for Contact 1 (dariobrun) * #Contact2Honorific - Will be replaced with the honorific set for Contact 2 (dariobrun) * #Contact3Honorific - Will be replaced with the honorific set for Contact 3 (dariobrun) + * #MainDom - #DomName will refer to the current main domme in the session. So, for example if you are doing a randomcontact/glittercontact session, during that session it will refer to her. #MainDom, instead, will always refer to the main domme name no matter what kind of session you are doing (dariobrun) * Bugfixes: @@ -72,7 +73,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * @ShowImage[dir\*] and @ShowImage[dir\*.*] will now only return a random image file as opposed to any file type (dariobrun) * @FollowUp() would activate Commands inside follow up lines before the lines were displayed (dariobrun) * Contacts will only be removed from the room if someone else is present, preventing crashes arising from a session with 0 particpants left (dariobrun) - * @Group() Command Filter would not react correctly to certain combinations (dariobrun) + * @Group() Command Filter showed lines incorrectly. For instance, @Group(1) was being read in any situation in which 1 was present (so also D1,D123,12 etc etc). @Group() can now use multiple groups. For example, @Group(1,D1,123) will read this line both in case of group1, group D1 and group123 (dariobrun) * Tag Commands can now search for an indefinite number of tags instead of just 3 (dariobrun) * @ImageTag(a,b,c,d,e) previously would return an image even if it just had a,b,c (and wouldn't check for d and e). Now it shows an image only it has all a,b,c,d,e (dariobrun) * Prevent endless loop in statuses (pepsifreak) @@ -98,12 +99,15 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Lines containing Commands that show Blog\Genre\Boobs\Butt\Liked\Disliked images will now be filtered out if the picture window is not visible (such as when a video is playing) * End of tease and @EndTease no longer clear the chat window or display that Tease AI has been reset * Increased Tease Length Minimum and Maximum upper ranges to accommodate longer runtimes when using Spicy + * Program will automatically start a stroke/tauntcycle if it reaches the end of a link script or the beforetease script even if the user forgot to use @End and @StartStroking/Taunts, to prevent session from blocking (dariobrun) * @CallReturn() can now call a random file using wildcards. For example, @CallReturn(dir\*) or @CallReturn(dir\*.txt) - * @PlayAudio[], @PlayVideo[] and @ShowImage[] can now use files outside the relative Tease AI directory by using the full path name. For example, @PlayAudio[C:\dir\subdir\name.extension]. This is not recommended for scripts that you wish to share. You can also use wildcards with these Commands to show random media files. For example, @PlayVideo[c:\dir\subdir\*] (dariobrun) + * @PlayAudio[], @PlayVideo[] and @ShowImage[] can now use files outside the relative Tease AI directory by using the full path name. For example, @PlayAudio[C:\dir\subdir\name.extension]. This is not recommended for scripts that you wish to share. You can also use wildcards with these Commands to show random media files. For example, @PlayVideo[c:\dir\subdir\*]. This also works with @PlayAvoidTheEdge[], @PlayCensorshipSucks[] and @PlayRedLightGreenLight[] (dariobrun) * Audit Scripts on Startup is now off by default * Commas are no longer affected when auditing scripts * Blank lines are now only removed from URL Files when auditing scripts * #DomHonorific will be replaced with the appropriate Contact\Random honorific if a different domme has been set for the session (dariobrun) + * Honorifics for Random Dommes can be set in Settings->Apps->Glitter. #Vocabulary files can be used for either further randomization (dariobrun) + * All modes are now stored when using a callreturn and resumed when going back (dariobrun) * @TimeOut() can now be used with Vocabulary files to determine the time needed to trigger it (dariobrun) * Streamlined the TTS commands and the fonttype/fontcolor/fontsze to use so that they are now tied to the contact currently speaking (dariobrun) * ")" can now be used as a character inside @RT()\@RandomText() and @FollowUp() (dariobrun) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 44bfb5a..90292b1 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -7647,7 +7647,11 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#SubName", subName.Text) - StringClean = StringClean.Replace("#DomName", ssh.tempDomName) + If Not ssh.SlideshowMain Is Nothing Then + StringClean = StringClean.Replace("#DomName", ssh.SlideshowMain.TypeName) + Else + StringClean = StringClean.Replace("#DomName", ssh.tempDomName) + End If StringClean = StringClean.Replace("#MainDom", My.Settings.DomName) @@ -8233,29 +8237,32 @@ StatusUpdateEnd: StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) Else - If My.Settings.CBOutputErrors = True Then - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - Else - StringClean = StringClean.Replace(keyword.Value, "") - End If + + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + + 'If My.Settings.CBOutputErrors = True Then + 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + 'Else + 'StringClean = StringClean.Replace(keyword.Value, "") + 'End If End If - 'Try - 'lines = FilterList(lines) - 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) - 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - 'Catch ex As Exception - 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, - ' "Tease AI did not return a valid line while parsing vocabulary file.") - 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value - 'End Try + 'Try + 'lines = FilterList(lines) + 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + 'Catch ex As Exception + 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + ' "Tease AI did not return a valid line while parsing vocabulary file.") + 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value + 'End Try - Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + Else + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") - End If + End If End If lastKey = keyword.ToString Next @@ -8338,87 +8345,7 @@ StatusUpdateEnd: StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") End If - ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) - ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. - ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> - ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. - - If StringClean.Contains("@If[") Then - If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") - If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") - Do - - Dim SCIfVar As String() = Split(StringClean) - Dim SCGotVar As String = "Null" - - For i As Integer = 0 To SCIfVar.Length - 1 - If SCIfVar(i).Contains("@If[") Then - Dim IFJoin As Integer = 0 - If Not SCIfVar(i).Contains(")") Then - Do - IFJoin += 1 - SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) - SCIfVar(i + IFJoin) = "" - Loop Until SCIfVar(i).Contains(")") - End If - SCGotVar = SCIfVar(i) - SCIfVar(i) = "" - StringClean = Join(SCIfVar) - Do - StringClean = StringClean.Replace(" ", " ") - Loop Until Not StringClean.Contains(" ") - Exit For - End If - Next - - If SCGotVar.Contains("]And[") Then - - Dim AndCheck As Boolean = True - - For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then - AndCheck = False - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") - Next - - If AndCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If - - ElseIf SCGotVar.Contains("]Or[") Then - - Dim OrCheck As Boolean = False - - For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") - Next - - If OrCheck = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If - - Else - - If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then - ssh.FileGoto = GetParentheses(SCGotVar, "Then(") - ssh.SkipGotoLine = True - GetGoto() - End If - - End If - - Loop Until Not StringClean.Contains("If") - End If + RinseLatherRepeat: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -9847,6 +9774,88 @@ TaskCleanSet: Next End If + ' The @If[] Command allows you to compare Variables and go to a specific line if the statement is true. The correct format is @If[VarName]>[varName2]Then(Goto Line) + ' For example, If[StrokeTotal]>[1000]Then(Thousand Strokes) would check if the Variable "StrokeTotal" is greater than 1000, and go to (Thousand Strokes) if so. + ' The @If[] Command can compare any combination of Variables and numeric values with = (or ==), <>, >, <, >= and <= . String Variables can be compared with = (or ==) and <> + ' More than one @If[] Command can be used per line. Tease AI will move to the line specified by whichever true statement happened last in the line. + + If StringClean.Contains("@If[") Then + If StringClean.Contains("]AND[") Then StringClean = StringClean.Replace("]AND[", "]And[") + If StringClean.Contains("]OR[") Then StringClean = StringClean.Replace("]OR[", "]Or[") + Do + + Dim SCIfVar As String() = Split(StringClean) + Dim SCGotVar As String = "Null" + + For i As Integer = 0 To SCIfVar.Length - 1 + If SCIfVar(i).Contains("@If[") Then + Dim IFJoin As Integer = 0 + If Not SCIfVar(i).Contains(")") Then + Do + IFJoin += 1 + SCIfVar(i) = SCIfVar(i) & " " & SCIfVar(i + IFJoin) + SCIfVar(i + IFJoin) = "" + Loop Until SCIfVar(i).Contains(")") + End If + SCGotVar = SCIfVar(i) + SCIfVar(i) = "" + StringClean = Join(SCIfVar) + Do + StringClean = StringClean.Replace(" ", " ") + Loop Until Not StringClean.Contains(" ") + Exit For + End If + Next + + If SCGotVar.Contains("]And[") Then + + Dim AndCheck As Boolean = True + + For x As Integer = 0 To SCGotVar.Replace("]And[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = False Then + AndCheck = False + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]And", "") + Next + + If AndCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If + + ElseIf SCGotVar.Contains("]Or[") Then + + Dim OrCheck As Boolean = False + + For x As Integer = 0 To SCGotVar.Replace("]Or[", "").Count - 1 + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@If[", 2) & "]Or", "") + Next + + If OrCheck = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If + + Else + + If GetIf("[" & GetParentheses(SCGotVar, "@If[", 2) & "]") = True Then + ssh.FileGoto = GetParentheses(SCGotVar, "Then(") + ssh.SkipGotoLine = True + GetGoto() + End If + + End If + + Loop Until Not StringClean.Contains("If") + End If + ' The @InputVar[] stops script progression and waits for the user to input his next message. Whatever the user types next will be saved as a Variable named whatever you specify in the brackets. ' For example, if the script's line was "What's your favorite food? @InputVar[FavoriteFood]", and the user typed "lo mein", then "lo mein" would be saved as the Variable "FavoriteFood". If the ' user has checked "Show Icon During Input Questions" in the General Settings tab, then the domme's question will be accompanied by a small question mark icon to let the user know that their next diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index f05667b..cf7ea9e 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -31,15 +31,12 @@ Me.PNLGeneralSettings = New System.Windows.Forms.Panel() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() Me.GroupBox2 = New System.Windows.Forms.GroupBox() -Me.Label170 = New System.Windows.Forms.Label() -Me.RandomHonorific = New System.Windows.Forms.TextBox() Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() Me.CBRandomDomme = New System.Windows.Forms.CheckBox() Me.BtnRandomImageDir = New System.Windows.Forms.Button() Me.BtnImportSettings = New System.Windows.Forms.Button() Me.LblImportSettings = New System.Windows.Forms.Label() Me.GroupBox64 = New System.Windows.Forms.GroupBox() -Me.CBMuteMedia = New System.Windows.Forms.CheckBox() Me.GBDommeImages = New System.Windows.Forms.GroupBox() Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() Me.teaseRadio = New System.Windows.Forms.RadioButton() @@ -47,7 +44,6 @@ Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() Me.offRadio = New System.Windows.Forms.RadioButton() Me.BTNDomImageDir = New System.Windows.Forms.Button() Me.timedRadio = New System.Windows.Forms.RadioButton() -Me.TbxDomImageDir = New System.Windows.Forms.TextBox() Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() Me.LBLVRate = New System.Windows.Forms.Label() Me.Label93 = New System.Windows.Forms.Label() @@ -77,13 +73,11 @@ Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() Me.CBWebtease = New System.Windows.Forms.CheckBox() Me.GBSubFont = New System.Windows.Forms.GroupBox() Me.BTNSubColor = New System.Windows.Forms.Button() -Me.LBLSubColor = New System.Windows.Forms.Label() Me.NBFontSize = New System.Windows.Forms.NumericUpDown() Me.Label2 = New System.Windows.Forms.Label() Me.FontComboBox = New System.Windows.Forms.ComboBox() Me.GBDommeFont = New System.Windows.Forms.GroupBox() Me.BTNDomColor = New System.Windows.Forms.Button() -Me.LBLDomColor = New System.Windows.Forms.Label() Me.FontComboBoxD = New System.Windows.Forms.ComboBox() Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() Me.Label7 = New System.Windows.Forms.Label() @@ -165,7 +159,6 @@ Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() Me.crazyCheckBox = New System.Windows.Forms.CheckBox() Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() -Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() Me.orgasmlockrandombutton = New System.Windows.Forms.Button() Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() @@ -318,77 +311,12 @@ Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() -Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() -Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() -Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() -Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() -Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() -Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.BTNIHardcore = New System.Windows.Forms.Button() -Me.TbxIHardcore = New System.Windows.Forms.TextBox() -Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() -Me.CBIHardcore = New System.Windows.Forms.CheckBox() -Me.CBISoftcore = New System.Windows.Forms.CheckBox() -Me.TbxISoftcore = New System.Windows.Forms.TextBox() -Me.CBButtSubDir = New System.Windows.Forms.CheckBox() -Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() -Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() -Me.CBILezdomSD = New System.Windows.Forms.CheckBox() -Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() -Me.CBILesbianSD = New System.Windows.Forms.CheckBox() -Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() -Me.CBILesbian = New System.Windows.Forms.CheckBox() -Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjob = New System.Windows.Forms.CheckBox() -Me.CBIGaySD = New System.Windows.Forms.CheckBox() -Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() -Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() -Me.TbxIButts = New System.Windows.Forms.TextBox() -Me.CBIFemdom = New System.Windows.Forms.CheckBox() -Me.TbxILesbian = New System.Windows.Forms.TextBox() Me.BTNISoftcore = New System.Windows.Forms.Button() -Me.CBILezdom = New System.Windows.Forms.CheckBox() -Me.TbxIBoobs = New System.Windows.Forms.TextBox() -Me.CBIHentai = New System.Windows.Forms.CheckBox() -Me.TbxIBlowjob = New System.Windows.Forms.TextBox() -Me.CBIGay = New System.Windows.Forms.CheckBox() -Me.TbxIGeneral = New System.Windows.Forms.TextBox() -Me.CBIMaledom = New System.Windows.Forms.CheckBox() -Me.TbxIFemdom = New System.Windows.Forms.TextBox() Me.BTNILesbian = New System.Windows.Forms.Button() -Me.TbxICaptions = New System.Windows.Forms.TextBox() -Me.CBICaptions = New System.Windows.Forms.CheckBox() -Me.TbxILezdom = New System.Windows.Forms.TextBox() -Me.TbxIMaledom = New System.Windows.Forms.TextBox() Me.BTNButtPath = New System.Windows.Forms.Button() -Me.TbxIHentai = New System.Windows.Forms.TextBox() -Me.CBIGeneral = New System.Windows.Forms.CheckBox() -Me.TbxIGay = New System.Windows.Forms.TextBox() -Me.CBIBoobs = New System.Windows.Forms.CheckBox() -Me.CBIButts = New System.Windows.Forms.CheckBox() Me.BTNIBlowjob = New System.Windows.Forms.Button() Me.BTNIFemdom = New System.Windows.Forms.Button() Me.BTNBoobPath = New System.Windows.Forms.Button() @@ -581,29 +509,17 @@ Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() Me.BTNRefreshVideos = New System.Windows.Forms.Button() Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() -Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() Me.BTNVideoGeneralD = New System.Windows.Forms.Button() -Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotalD = New System.Windows.Forms.Label() Me.LblVideoJOITotalD = New System.Windows.Forms.Label() -Me.TxbVideoCHD = New System.Windows.Forms.TextBox() -Me.TxbVideoJOID = New System.Windows.Forms.TextBox() Me.BTNVideoCHD = New System.Windows.Forms.Button() Me.BTNVideoJOID = New System.Windows.Forms.Button() -Me.CBVideoJOID = New System.Windows.Forms.CheckBox() -Me.CBVideoCHD = New System.Windows.Forms.CheckBox() Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() -Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() -Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() Me.BTNVideoFemSubD = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoFemDomD = New System.Windows.Forms.Button() @@ -612,39 +528,21 @@ Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoLesbianD = New System.Windows.Forms.Button() Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() -Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() Me.VideoDescriptionLabel = New System.Windows.Forms.Label() Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() -Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() Me.BTNVideoGeneral = New System.Windows.Forms.Button() -Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotal = New System.Windows.Forms.Label() Me.LblVideoJOITotal = New System.Windows.Forms.Label() -Me.TxbVideoCH = New System.Windows.Forms.TextBox() -Me.TxbVideoJOI = New System.Windows.Forms.TextBox() Me.BTNVideoCH = New System.Windows.Forms.Button() Me.BTNVideoJOI = New System.Windows.Forms.Button() -Me.CBVideoJOI = New System.Windows.Forms.CheckBox() -Me.CBVideoCH = New System.Windows.Forms.CheckBox() Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() -Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() -Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() Me.BTNVideoFemSub = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoFemDom = New System.Windows.Forms.Button() @@ -653,19 +551,15 @@ Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoLesbian = New System.Windows.Forms.Button() Me.BTNVideoSoftCore = New System.Windows.Forms.Button() Me.BTNVideoHardCore = New System.Windows.Forms.Button() -Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() Me.LblVideoHeader = New System.Windows.Forms.Label() Me.TabPage20 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage22 = New System.Windows.Forms.TabPage() Me.PNLGlitter = New System.Windows.Forms.Panel() Me.GroupBox14 = New System.Windows.Forms.GroupBox() +Me.Label170 = New System.Windows.Forms.Label() Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() +Me.RandomHonorific = New System.Windows.Forms.TextBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.LBLCurrentDomme = New System.Windows.Forms.Label() Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() @@ -679,104 +573,40 @@ Me.Label121 = New System.Windows.Forms.Label() Me.Label122 = New System.Windows.Forms.Label() Me.GBGlitterD = New System.Windows.Forms.GroupBox() Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() -Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() Me.BTNGlitterD = New System.Windows.Forms.Button() -Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() Me.LBLGlitterSlider = New System.Windows.Forms.Label() -Me.CBCustom2 = New System.Windows.Forms.CheckBox() -Me.GlitterSlider = New System.Windows.Forms.TrackBar() -Me.CBCustom1 = New System.Windows.Forms.CheckBox() -Me.CBDaily = New System.Windows.Forms.CheckBox() -Me.CBTrivia = New System.Windows.Forms.CheckBox() -Me.TBGlitterShortName = New System.Windows.Forms.TextBox() -Me.CBEgotist = New System.Windows.Forms.CheckBox() -Me.CBTease = New System.Windows.Forms.CheckBox() Me.GlitterAV = New System.Windows.Forms.PictureBox() Me.GBGlitter1 = New System.Windows.Forms.GroupBox() Me.Label167 = New System.Windows.Forms.Label() Me.G1Honorific = New System.Windows.Forms.TextBox() Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact1ImageDir = New System.Windows.Forms.Button() -Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter1 = New System.Windows.Forms.Button() -Me.LBLGlitterNC1 = New System.Windows.Forms.Label() Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() -Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() -Me.CBGlitter1 = New System.Windows.Forms.CheckBox() -Me.TBGlitter1 = New System.Windows.Forms.TextBox() Me.GlitterAV1 = New System.Windows.Forms.PictureBox() Me.GBGlitter3 = New System.Windows.Forms.GroupBox() Me.Label168 = New System.Windows.Forms.Label() Me.G3Honorific = New System.Windows.Forms.TextBox() Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact3ImageDir = New System.Windows.Forms.Button() -Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter3 = New System.Windows.Forms.Button() -Me.LBLGlitterNC3 = New System.Windows.Forms.Label() Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() -Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() -Me.CBGlitter3 = New System.Windows.Forms.CheckBox() -Me.TBGlitter3 = New System.Windows.Forms.TextBox() Me.GlitterAV3 = New System.Windows.Forms.PictureBox() Me.GBGlitter2 = New System.Windows.Forms.GroupBox() +Me.Label169 = New System.Windows.Forms.Label() Me.G2Honorific = New System.Windows.Forms.TextBox() Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact2ImageDir = New System.Windows.Forms.Button() -Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter2 = New System.Windows.Forms.Button() -Me.LBLGlitterNC2 = New System.Windows.Forms.Label() Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() -Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() -Me.CBGlitter2 = New System.Windows.Forms.CheckBox() -Me.TBGlitter2 = New System.Windows.Forms.TextBox() Me.GlitterAV2 = New System.Windows.Forms.PictureBox() Me.TpGames = New System.Windows.Forms.TabPage() -Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() Me.LblCardsSetupNote = New System.Windows.Forms.Label() Me.CBGameSounds = New System.Windows.Forms.CheckBox() Me.GbxCardsGold = New System.Windows.Forms.GroupBox() -Me.GN6 = New System.Windows.Forms.TextBox() -Me.GP6 = New System.Windows.Forms.PictureBox() -Me.GN2 = New System.Windows.Forms.TextBox() -Me.GP2 = New System.Windows.Forms.PictureBox() -Me.GP5 = New System.Windows.Forms.PictureBox() -Me.GN1 = New System.Windows.Forms.TextBox() -Me.GP1 = New System.Windows.Forms.PictureBox() -Me.GN5 = New System.Windows.Forms.TextBox() -Me.GN3 = New System.Windows.Forms.TextBox() -Me.GP3 = New System.Windows.Forms.PictureBox() -Me.GP4 = New System.Windows.Forms.PictureBox() -Me.GN4 = New System.Windows.Forms.TextBox() Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() -Me.CardBack = New System.Windows.Forms.PictureBox() Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() -Me.BN6 = New System.Windows.Forms.TextBox() -Me.BN3 = New System.Windows.Forms.TextBox() -Me.BP3 = New System.Windows.Forms.PictureBox() -Me.BP6 = New System.Windows.Forms.PictureBox() -Me.BN2 = New System.Windows.Forms.TextBox() -Me.BN5 = New System.Windows.Forms.TextBox() -Me.BP5 = New System.Windows.Forms.PictureBox() -Me.BP2 = New System.Windows.Forms.PictureBox() -Me.BN1 = New System.Windows.Forms.TextBox() -Me.BN4 = New System.Windows.Forms.TextBox() -Me.BP4 = New System.Windows.Forms.PictureBox() -Me.BP1 = New System.Windows.Forms.PictureBox() Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() -Me.SN6 = New System.Windows.Forms.TextBox() -Me.SP6 = New System.Windows.Forms.PictureBox() -Me.SN2 = New System.Windows.Forms.TextBox() -Me.SP2 = New System.Windows.Forms.PictureBox() -Me.SN1 = New System.Windows.Forms.TextBox() -Me.SP5 = New System.Windows.Forms.PictureBox() -Me.SP1 = New System.Windows.Forms.PictureBox() -Me.SN5 = New System.Windows.Forms.TextBox() -Me.SN3 = New System.Windows.Forms.TextBox() -Me.SN4 = New System.Windows.Forms.TextBox() -Me.SP3 = New System.Windows.Forms.PictureBox() -Me.SP4 = New System.Windows.Forms.PictureBox() Me.TabPage6 = New System.Windows.Forms.TabPage() Me.Panel10 = New System.Windows.Forms.Panel() Me.TBWishlistComment = New System.Windows.Forms.TextBox() @@ -807,20 +637,13 @@ Me.Button31 = New System.Windows.Forms.Button() Me.PictureBox10 = New System.Windows.Forms.PictureBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.CBTransparentTime = New System.Windows.Forms.CheckBox() -Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() Me.Label137 = New System.Windows.Forms.Label() Me.Label138 = New System.Windows.Forms.Label() -Me.LBLDateBackColor2 = New System.Windows.Forms.Label() Me.LBLTextColor = New System.Windows.Forms.Label() -Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor2 = New System.Windows.Forms.Label() Me.LBLChatTextColor = New System.Windows.Forms.Label() -Me.LBLBackColor2 = New System.Windows.Forms.Label() Me.LBLButtonColor = New System.Windows.Forms.Label() Me.LBLChatWindowColor = New System.Windows.Forms.Label() Me.LBLBackColor = New System.Windows.Forms.Label() -Me.LBLChatTextColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor2 = New System.Windows.Forms.Label() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label144 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() @@ -835,8 +658,6 @@ Me.Panel6 = New System.Windows.Forms.Panel() Me.GroupBox69 = New System.Windows.Forms.GroupBox() Me.TypesSpeedVal = New System.Windows.Forms.Label() Me.TypeSpeedLabel = New System.Windows.Forms.Label() -Me.TimedWriting = New System.Windows.Forms.CheckBox() -Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() Me.GroupBox68 = New System.Windows.Forms.GroupBox() Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() @@ -844,26 +665,16 @@ Me.Label165 = New System.Windows.Forms.Label() Me.Label166 = New System.Windows.Forms.Label() Me.GroupBox67 = New System.Windows.Forms.GroupBox() Me.Label161 = New System.Windows.Forms.Label() -Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label162 = New System.Windows.Forms.Label() Me.Label163 = New System.Windows.Forms.Label() Me.Label158 = New System.Windows.Forms.Label() -Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label159 = New System.Windows.Forms.Label() Me.Label160 = New System.Windows.Forms.Label() -Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() Me.Label119 = New System.Windows.Forms.Label() Me.Label157 = New System.Windows.Forms.Label() Me.Label151 = New System.Windows.Forms.Label() -Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label154 = New System.Windows.Forms.Label() Me.Label155 = New System.Windows.Forms.Label() -Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() Me.Label146 = New System.Windows.Forms.Label() Me.Label149 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() @@ -917,15 +728,10 @@ Me.Label29 = New System.Windows.Forms.Label() Me.GroupBox18 = New System.Windows.Forms.GroupBox() Me.Label108 = New System.Windows.Forms.Label() Me.Label109 = New System.Windows.Forms.Label() -Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() -Me.CBCensorConstant = New System.Windows.Forms.CheckBox() Me.Label25 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() -Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() Me.Label89 = New System.Windows.Forms.Label() Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() @@ -1143,62 +949,256 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.Label169 = New System.Windows.Forms.Label() -Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() -Me.SettingsPanel.SuspendLayout -Me.SettingsTabs.SuspendLayout -Me.TabPage1.SuspendLayout -Me.PNLGeneralSettings.SuspendLayout -Me.GroupBox3.SuspendLayout -Me.GroupBox2.SuspendLayout -Me.GroupBox64.SuspendLayout -Me.GBDommeImages.SuspendLayout -CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralTextToSpeech.SuspendLayout -CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBSafeword.SuspendLayout -Me.GBGeneralSystem.SuspendLayout -Me.GBGeneralImages.SuspendLayout -CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralSettings.SuspendLayout -Me.GBSubFont.SuspendLayout -CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDommeFont.SuspendLayout -CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage2.SuspendLayout -Me.Panel3.SuspendLayout -Me.GBGiveUp.SuspendLayout -CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomTypingStyle.SuspendLayout -CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox63.SuspendLayout -Me.GBDomRanges.SuspendLayout -CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomStats.SuspendLayout -CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomPersonality.SuspendLayout -Me.GBDomOrgasms.SuspendLayout -CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomPetNames.SuspendLayout -Me.TabPage10.SuspendLayout -Me.Panel2.SuspendLayout -Me.GroupBox22.SuspendLayout -CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox45.SuspendLayout -CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).BeginInit +Me.CBMuteMedia = New System.Windows.Forms.CheckBox() +Me.TbxDomImageDir = New System.Windows.Forms.TextBox() +Me.LBLSubColor = New System.Windows.Forms.Label() +Me.LBLDomColor = New System.Windows.Forms.Label() +Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() +Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() +Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() +Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() +Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() +Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() +Me.TbxIHardcore = New System.Windows.Forms.TextBox() +Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() +Me.CBIHardcore = New System.Windows.Forms.CheckBox() +Me.CBISoftcore = New System.Windows.Forms.CheckBox() +Me.TbxISoftcore = New System.Windows.Forms.TextBox() +Me.CBButtSubDir = New System.Windows.Forms.CheckBox() +Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() +Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() +Me.CBILezdomSD = New System.Windows.Forms.CheckBox() +Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() +Me.CBILesbianSD = New System.Windows.Forms.CheckBox() +Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() +Me.CBILesbian = New System.Windows.Forms.CheckBox() +Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjob = New System.Windows.Forms.CheckBox() +Me.CBIGaySD = New System.Windows.Forms.CheckBox() +Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() +Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() +Me.TbxIButts = New System.Windows.Forms.TextBox() +Me.CBIFemdom = New System.Windows.Forms.CheckBox() +Me.TbxILesbian = New System.Windows.Forms.TextBox() +Me.CBILezdom = New System.Windows.Forms.CheckBox() +Me.TbxIBoobs = New System.Windows.Forms.TextBox() +Me.CBIHentai = New System.Windows.Forms.CheckBox() +Me.TbxIBlowjob = New System.Windows.Forms.TextBox() +Me.CBIGay = New System.Windows.Forms.CheckBox() +Me.TbxIGeneral = New System.Windows.Forms.TextBox() +Me.CBIMaledom = New System.Windows.Forms.CheckBox() +Me.TbxIFemdom = New System.Windows.Forms.TextBox() +Me.TbxICaptions = New System.Windows.Forms.TextBox() +Me.CBICaptions = New System.Windows.Forms.CheckBox() +Me.TbxILezdom = New System.Windows.Forms.TextBox() +Me.TbxIMaledom = New System.Windows.Forms.TextBox() +Me.TbxIHentai = New System.Windows.Forms.TextBox() +Me.CBIGeneral = New System.Windows.Forms.CheckBox() +Me.TbxIGay = New System.Windows.Forms.TextBox() +Me.CBIBoobs = New System.Windows.Forms.CheckBox() +Me.CBIButts = New System.Windows.Forms.CheckBox() +Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() +Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() +Me.TxbVideoCHD = New System.Windows.Forms.TextBox() +Me.TxbVideoJOID = New System.Windows.Forms.TextBox() +Me.CBVideoJOID = New System.Windows.Forms.CheckBox() +Me.CBVideoCHD = New System.Windows.Forms.CheckBox() +Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() +Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() +Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() +Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() +Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() +Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() +Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() +Me.TxbVideoCH = New System.Windows.Forms.TextBox() +Me.TxbVideoJOI = New System.Windows.Forms.TextBox() +Me.CBVideoJOI = New System.Windows.Forms.CheckBox() +Me.CBVideoCH = New System.Windows.Forms.CheckBox() +Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() +Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() +Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() +Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() +Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() +Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() +Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() +Me.CBCustom2 = New System.Windows.Forms.CheckBox() +Me.GlitterSlider = New System.Windows.Forms.TrackBar() +Me.CBCustom1 = New System.Windows.Forms.CheckBox() +Me.CBDaily = New System.Windows.Forms.CheckBox() +Me.CBTrivia = New System.Windows.Forms.CheckBox() +Me.TBGlitterShortName = New System.Windows.Forms.TextBox() +Me.CBEgotist = New System.Windows.Forms.CheckBox() +Me.CBTease = New System.Windows.Forms.CheckBox() +Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() +Me.LBLGlitterNC1 = New System.Windows.Forms.Label() +Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() +Me.CBGlitter1 = New System.Windows.Forms.CheckBox() +Me.TBGlitter1 = New System.Windows.Forms.TextBox() +Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() +Me.LBLGlitterNC3 = New System.Windows.Forms.Label() +Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() +Me.CBGlitter3 = New System.Windows.Forms.CheckBox() +Me.TBGlitter3 = New System.Windows.Forms.TextBox() +Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() +Me.LBLGlitterNC2 = New System.Windows.Forms.Label() +Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() +Me.CBGlitter2 = New System.Windows.Forms.CheckBox() +Me.TBGlitter2 = New System.Windows.Forms.TextBox() +Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() +Me.GN6 = New System.Windows.Forms.TextBox() +Me.GP6 = New System.Windows.Forms.PictureBox() +Me.GN2 = New System.Windows.Forms.TextBox() +Me.GP2 = New System.Windows.Forms.PictureBox() +Me.GP5 = New System.Windows.Forms.PictureBox() +Me.GN1 = New System.Windows.Forms.TextBox() +Me.GP1 = New System.Windows.Forms.PictureBox() +Me.GN5 = New System.Windows.Forms.TextBox() +Me.GN3 = New System.Windows.Forms.TextBox() +Me.GP3 = New System.Windows.Forms.PictureBox() +Me.GP4 = New System.Windows.Forms.PictureBox() +Me.GN4 = New System.Windows.Forms.TextBox() +Me.CardBack = New System.Windows.Forms.PictureBox() +Me.BN6 = New System.Windows.Forms.TextBox() +Me.BN3 = New System.Windows.Forms.TextBox() +Me.BP3 = New System.Windows.Forms.PictureBox() +Me.BP6 = New System.Windows.Forms.PictureBox() +Me.BN2 = New System.Windows.Forms.TextBox() +Me.BN5 = New System.Windows.Forms.TextBox() +Me.BP5 = New System.Windows.Forms.PictureBox() +Me.BP2 = New System.Windows.Forms.PictureBox() +Me.BN1 = New System.Windows.Forms.TextBox() +Me.BN4 = New System.Windows.Forms.TextBox() +Me.BP4 = New System.Windows.Forms.PictureBox() +Me.BP1 = New System.Windows.Forms.PictureBox() +Me.SN6 = New System.Windows.Forms.TextBox() +Me.SP6 = New System.Windows.Forms.PictureBox() +Me.SN2 = New System.Windows.Forms.TextBox() +Me.SP2 = New System.Windows.Forms.PictureBox() +Me.SN1 = New System.Windows.Forms.TextBox() +Me.SP5 = New System.Windows.Forms.PictureBox() +Me.SP1 = New System.Windows.Forms.PictureBox() +Me.SN5 = New System.Windows.Forms.TextBox() +Me.SN3 = New System.Windows.Forms.TextBox() +Me.SN4 = New System.Windows.Forms.TextBox() +Me.SP3 = New System.Windows.Forms.PictureBox() +Me.SP4 = New System.Windows.Forms.PictureBox() +Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() +Me.LBLDateBackColor2 = New System.Windows.Forms.Label() +Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor2 = New System.Windows.Forms.Label() +Me.LBLBackColor2 = New System.Windows.Forms.Label() +Me.LBLChatTextColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor2 = New System.Windows.Forms.Label() +Me.TimedWriting = New System.Windows.Forms.CheckBox() +Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() +Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() +Me.CBCensorConstant = New System.Windows.Forms.CheckBox() +Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() +Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() +Me.SettingsPanel.SuspendLayout +Me.SettingsTabs.SuspendLayout +Me.TabPage1.SuspendLayout +Me.PNLGeneralSettings.SuspendLayout +Me.GroupBox3.SuspendLayout +Me.GroupBox2.SuspendLayout +Me.GroupBox64.SuspendLayout +Me.GBDommeImages.SuspendLayout +CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralTextToSpeech.SuspendLayout +CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBSafeword.SuspendLayout +Me.GBGeneralSystem.SuspendLayout +Me.GBGeneralImages.SuspendLayout +CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBGeneralSettings.SuspendLayout +Me.GBSubFont.SuspendLayout +CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDommeFont.SuspendLayout +CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit +Me.TabPage2.SuspendLayout +Me.Panel3.SuspendLayout +Me.GBGiveUp.SuspendLayout +CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomTypingStyle.SuspendLayout +CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox63.SuspendLayout +Me.GBDomRanges.SuspendLayout +CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomStats.SuspendLayout +CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomPersonality.SuspendLayout +Me.GBDomOrgasms.SuspendLayout +CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).BeginInit +Me.GBDomPetNames.SuspendLayout +Me.TabPage10.SuspendLayout +Me.Panel2.SuspendLayout +Me.GroupBox22.SuspendLayout +CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).BeginInit +Me.GroupBox45.SuspendLayout +CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox35.SuspendLayout Me.GroupBoxSorry.SuspendLayout Me.GroupBox39.SuspendLayout @@ -1276,41 +1276,18 @@ Me.GroupBox14.SuspendLayout Me.GroupBox4.SuspendLayout Me.GBGlitterD.SuspendLayout Me.GrbGlitterfeed.SuspendLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter1.SuspendLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter3.SuspendLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter2.SuspendLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit Me.TpGames.SuspendLayout Me.GbxCardsGold.SuspendLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBackground.SuspendLayout -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBronze.SuspendLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsSilver.SuspendLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage6.SuspendLayout Me.Panel10.SuspendLayout CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit @@ -1329,21 +1306,10 @@ CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage4.SuspendLayout Me.Panel6.SuspendLayout Me.GroupBox69.SuspendLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox68.SuspendLayout CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox67.SuspendLayout -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox10.SuspendLayout CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox57.SuspendLayout @@ -1365,10 +1331,6 @@ CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox18.SuspendLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.GBRangeOrgasmChance.SuspendLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit @@ -1411,6 +1373,44 @@ Me.GroupBox12.SuspendLayout Me.GroupBox65.SuspendLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' 'SettingsPanel @@ -1513,26 +1513,6 @@ Me.GroupBox2.TabIndex = 183 Me.GroupBox2.TabStop = false Me.GroupBox2.Text = "Random Domme" ' -'Label170 -' -Me.Label170.Location = New System.Drawing.Point(4, 52) -Me.Label170.Name = "Label170" -Me.Label170.Size = New System.Drawing.Size(142, 18) -Me.Label170.TabIndex = 28 -Me.Label170.Text = "Random Domme Honorific:" -Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'RandomHonorific -' -Me.RandomHonorific.BackColor = System.Drawing.Color.White -Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.RandomHonorific.Location = New System.Drawing.Point(149, 51) -Me.RandomHonorific.Name = "RandomHonorific" -Me.RandomHonorific.Size = New System.Drawing.Size(143, 20) -Me.RandomHonorific.TabIndex = 187 -Me.RandomHonorific.Text = "Mistress" -Me.RandomHonorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' 'TbxRandomImageDir ' Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray @@ -1608,20 +1588,6 @@ Me.GroupBox64.TabIndex = 157 Me.GroupBox64.TabStop = false Me.GroupBox64.Text = "Media Options" ' -'CBMuteMedia -' -Me.CBMuteMedia.AutoSize = true -Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia -Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black -Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) -Me.CBMuteMedia.Name = "CBMuteMedia" -Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) -Me.CBMuteMedia.TabIndex = 6 -Me.CBMuteMedia.TabStop = false -Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" -Me.CBMuteMedia.UseVisualStyleBackColor = true -' 'GBDommeImages ' Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray @@ -1716,20 +1682,6 @@ Me.timedRadio.Size = New System.Drawing.Size(14, 13) Me.timedRadio.TabIndex = 19 Me.timedRadio.UseVisualStyleBackColor = true ' -'TbxDomImageDir -' -Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) -Me.TbxDomImageDir.Name = "TbxDomImageDir" -Me.TbxDomImageDir.ReadOnly = true -Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxDomImageDir.TabIndex = 0 -Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir -' 'GBGeneralTextToSpeech ' Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray @@ -2081,20 +2033,6 @@ Me.BTNSubColor.TabIndex = 8 Me.BTNSubColor.Text = "Sub Name Color" Me.BTNSubColor.UseVisualStyleBackColor = false ' -'LBLSubColor -' -Me.LBLSubColor.BackColor = System.Drawing.Color.White -Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor -Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) -Me.LBLSubColor.Name = "LBLSubColor" -Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) -Me.LBLSubColor.TabIndex = 0 -Me.LBLSubColor.Text = "Preview" -Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' 'NBFontSize ' Me.NBFontSize.BackColor = System.Drawing.Color.White @@ -2154,20 +2092,6 @@ Me.BTNDomColor.TabIndex = 5 Me.BTNDomColor.Text = "Domme Name Color" Me.BTNDomColor.UseVisualStyleBackColor = false ' -'LBLDomColor -' -Me.LBLDomColor.BackColor = System.Drawing.Color.White -Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor -Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) -Me.LBLDomColor.Name = "LBLDomColor" -Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) -Me.LBLDomColor.TabIndex = 0 -Me.LBLDomColor.Text = "Preview" -Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' 'FontComboBoxD ' Me.FontComboBoxD.FormattingEnabled = true @@ -3201,19 +3125,6 @@ Me.GBDomOrgasms.TabIndex = 132 Me.GBDomOrgasms.TabStop = false Me.GBDomOrgasms.Text = "Orgasms" ' -'CBLockOrgasmChances -' -Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances -Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black -Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) -Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" -Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) -Me.CBLockOrgasmChances.TabIndex = 146 -Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" -Me.CBLockOrgasmChances.UseVisualStyleBackColor = true -' 'orgasmlockrandombutton ' Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray @@ -3625,7 +3536,7 @@ Me.GroupBox45.Controls.Add(Me.CBCBTBalls) Me.GroupBox45.Controls.Add(Me.CBCBTCock) Me.GroupBox45.Controls.Add(Me.CBTSlider) Me.GroupBox45.ForeColor = System.Drawing.Color.Black -Me.GroupBox45.Location = New System.Drawing.Point(440, 294) +Me.GroupBox45.Location = New System.Drawing.Point(440, 332) Me.GroupBox45.Name = "GroupBox45" Me.GroupBox45.Size = New System.Drawing.Size(259, 50) Me.GroupBox45.TabIndex = 155 @@ -3683,9 +3594,9 @@ Me.GroupBox35.Controls.Add(Me.GroupBox38) Me.GroupBox35.Controls.Add(Me.GroupBox37) Me.GroupBox35.Controls.Add(Me.GroupBox36) Me.GroupBox35.ForeColor = System.Drawing.Color.Black -Me.GroupBox35.Location = New System.Drawing.Point(440, 6) +Me.GroupBox35.Location = New System.Drawing.Point(440, 30) Me.GroupBox35.Name = "GroupBox35" -Me.GroupBox35.Size = New System.Drawing.Size(259, 287) +Me.GroupBox35.Size = New System.Drawing.Size(259, 296) Me.GroupBox35.TabIndex = 154 Me.GroupBox35.TabStop = false Me.GroupBox35.Text = "Key Phrases" @@ -3693,7 +3604,7 @@ Me.GroupBox35.Text = "Key Phrases" 'GroupBoxSorry ' Me.GroupBoxSorry.Controls.Add(Me.TBSorry) -Me.GroupBoxSorry.Location = New System.Drawing.Point(6, 145) +Me.GroupBoxSorry.Location = New System.Drawing.Point(6, 158) Me.GroupBoxSorry.Name = "GroupBoxSorry" Me.GroupBoxSorry.Size = New System.Drawing.Size(247, 46) Me.GroupBoxSorry.TabIndex = 3 @@ -3714,9 +3625,9 @@ Me.TBSorry.Text = "sorry, apologize, excuse" Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) Me.GroupBox39.Controls.Add(Me.TBHonorific) -Me.GroupBox39.Location = New System.Drawing.Point(6, 191) +Me.GroupBox39.Location = New System.Drawing.Point(6, 206) Me.GroupBox39.Name = "GroupBox39" -Me.GroupBox39.Size = New System.Drawing.Size(247, 89) +Me.GroupBox39.Size = New System.Drawing.Size(247, 82) Me.GroupBox39.TabIndex = 3 Me.GroupBox39.TabStop = false Me.GroupBox39.Tag = "" @@ -3726,7 +3637,7 @@ Me.GroupBox39.Text = "Honorific" ' Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black -Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 44) +Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 39) Me.CBHonorificInclude.Name = "CBHonorificInclude" Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) Me.CBHonorificInclude.TabIndex = 40 @@ -3737,7 +3648,7 @@ Me.CBHonorificInclude.UseVisualStyleBackColor = true ' Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black -Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 66) +Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 60) Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) Me.CBHonorificCapitalized.TabIndex = 39 @@ -3755,7 +3666,7 @@ Me.TBHonorific.Text = "Mistress" 'GroupBox38 ' Me.GroupBox38.Controls.Add(Me.TBNo) -Me.GroupBox38.Location = New System.Drawing.Point(6, 100) +Me.GroupBox38.Location = New System.Drawing.Point(6, 110) Me.GroupBox38.Name = "GroupBox38" Me.GroupBox38.Size = New System.Drawing.Size(247, 46) Me.GroupBox38.TabIndex = 2 @@ -3774,7 +3685,7 @@ Me.TBNo.Text = "no, nah, nope" 'GroupBox37 ' Me.GroupBox37.Controls.Add(Me.TBYes) -Me.GroupBox37.Location = New System.Drawing.Point(6, 57) +Me.GroupBox37.Location = New System.Drawing.Point(6, 62) Me.GroupBox37.Name = "GroupBox37" Me.GroupBox37.Size = New System.Drawing.Size(247, 46) Me.GroupBox37.TabIndex = 1 @@ -3793,7 +3704,7 @@ Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" 'GroupBox36 ' Me.GroupBox36.Controls.Add(Me.TBGreeting) -Me.GroupBox36.Location = New System.Drawing.Point(6, 17) +Me.GroupBox36.Location = New System.Drawing.Point(6, 14) Me.GroupBox36.Name = "GroupBox36" Me.GroupBox36.Size = New System.Drawing.Size(247, 46) Me.GroupBox36.TabIndex = 0 @@ -3815,9 +3726,9 @@ Me.GroupBox13.BackColor = System.Drawing.Color.LightGray Me.GroupBox13.Controls.Add(Me.Label34) Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) Me.GroupBox13.ForeColor = System.Drawing.Color.Black -Me.GroupBox13.Location = New System.Drawing.Point(440, 346) +Me.GroupBox13.Location = New System.Drawing.Point(239, 388) Me.GroupBox13.Name = "GroupBox13" -Me.GroupBox13.Size = New System.Drawing.Size(259, 39) +Me.GroupBox13.Size = New System.Drawing.Size(195, 39) Me.GroupBox13.TabIndex = 157 Me.GroupBox13.TabStop = false Me.GroupBox13.Text = "Routine" @@ -3829,18 +3740,18 @@ Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Dra Me.Label34.ForeColor = System.Drawing.Color.Black Me.Label34.Location = New System.Drawing.Point(12, 15) Me.Label34.Name = "Label34" -Me.Label34.Size = New System.Drawing.Size(116, 17) +Me.Label34.Size = New System.Drawing.Size(83, 17) Me.Label34.TabIndex = 140 -Me.Label34.Text = "Daily Wake Up Time:" +Me.Label34.Text = "Wake Up Time:" Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'TimeBoxWakeUp ' Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time -Me.TimeBoxWakeUp.Location = New System.Drawing.Point(134, 12) +Me.TimeBoxWakeUp.Location = New System.Drawing.Point(92, 13) Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" Me.TimeBoxWakeUp.ShowUpDown = true -Me.TimeBoxWakeUp.Size = New System.Drawing.Size(110, 20) +Me.TimeBoxWakeUp.Size = New System.Drawing.Size(97, 20) Me.TimeBoxWakeUp.TabIndex = 0 ' 'GroupBox7 @@ -5055,407 +4966,17 @@ Me.BtnImageUrlSoftcore.TabIndex = 5 Me.BtnImageUrlSoftcore.Text = "1" Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false ' -'ChbImageUrlHardcore -' -Me.ChbImageUrlHardcore.AutoSize = true -Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled -Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) -Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" -Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHardcore.TabIndex = 0 -Me.ChbImageUrlHardcore.Text = "Hardcore" -Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true -' -'ChbImageUrlButts -' -Me.ChbImageUrlButts.AutoSize = true -Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled -Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) -Me.ChbImageUrlButts.Name = "ChbImageUrlButts" -Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) -Me.ChbImageUrlButts.TabIndex = 37 -Me.ChbImageUrlButts.Text = "Butts" -Me.ChbImageUrlButts.UseVisualStyleBackColor = true -' -'ChbImageUrlMaledom -' -Me.ChbImageUrlMaledom.AutoSize = true -Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled -Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) -Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" -Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlMaledom.TabIndex = 25 -Me.ChbImageUrlMaledom.Text = "Maledom" -Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true -' -'ChbImageUrlGay -' -Me.ChbImageUrlGay.AutoSize = true -Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled -Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) -Me.ChbImageUrlGay.Name = "ChbImageUrlGay" -Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGay.TabIndex = 22 -Me.ChbImageUrlGay.Text = "Gay" -Me.ChbImageUrlGay.UseVisualStyleBackColor = true -' -'ChbImageUrlSoftcore -' -Me.ChbImageUrlSoftcore.AutoSize = true -Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled -Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) -Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" -Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlSoftcore.TabIndex = 4 -Me.ChbImageUrlSoftcore.Text = "Softcore" -Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true -' -'ChbImageUrlBoobs +'GbxImagesGenre ' -Me.ChbImageUrlBoobs.AutoSize = true -Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled -Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) -Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" -Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBoobs.TabIndex = 34 -Me.ChbImageUrlBoobs.Text = "Boobs" -Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true +Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) +Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) +Me.GbxImagesGenre.Name = "GbxImagesGenre" +Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) +Me.GbxImagesGenre.TabIndex = 0 +Me.GbxImagesGenre.TabStop = false +Me.GbxImagesGenre.Text = "Local Images" ' -'ChbImageUrlLesbian -' -Me.ChbImageUrlLesbian.AutoSize = true -Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled -Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) -Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" -Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLesbian.TabIndex = 7 -Me.ChbImageUrlLesbian.Text = "Lesbian" -Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true -' -'ChbImageUrlBlowjob -' -Me.ChbImageUrlBlowjob.AutoSize = true -Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled -Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) -Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" -Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBlowjob.TabIndex = 10 -Me.ChbImageUrlBlowjob.Text = "Blowjob" -Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true -' -'ChbImageUrlCaptions -' -Me.ChbImageUrlCaptions.AutoSize = true -Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled -Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) -Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" -Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlCaptions.TabIndex = 28 -Me.ChbImageUrlCaptions.Text = "Captions" -Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true -' -'ChbImageUrlGeneral -' -Me.ChbImageUrlGeneral.AutoSize = true -Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled -Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) -Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" -Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGeneral.TabIndex = 31 -Me.ChbImageUrlGeneral.Text = "General" -Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true -' -'ChbImageUrlFemdom -' -Me.ChbImageUrlFemdom.AutoSize = true -Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled -Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) -Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" -Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlFemdom.TabIndex = 13 -Me.ChbImageUrlFemdom.Text = "Femdom" -Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true -' -'ChbImageUrlHentai -' -Me.ChbImageUrlHentai.AutoSize = true -Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled -Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) -Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" -Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHentai.TabIndex = 19 -Me.ChbImageUrlHentai.Text = "Hentai" -Me.ChbImageUrlHentai.UseVisualStyleBackColor = true -' -'ChbImageUrlLezdom -' -Me.ChbImageUrlLezdom.AutoSize = true -Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled -Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) -Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" -Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLezdom.TabIndex = 16 -Me.ChbImageUrlLezdom.Text = "Lezdom" -Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true -' -'TxbImageUrlBlowjob -' -Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" -Me.TxbImageUrlBlowjob.ReadOnly = true -Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.TabIndex = 12 -Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob -' -'TxbImageUrlSoftcore -' -Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) -Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" -Me.TxbImageUrlSoftcore.ReadOnly = true -Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.TabIndex = 6 -Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore -' -'TxbImageUrlLezdom -' -Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) -Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" -Me.TxbImageUrlLezdom.ReadOnly = true -Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.TabIndex = 18 -Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom -' -'TxbImageUrlFemdom -' -Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) -Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" -Me.TxbImageUrlFemdom.ReadOnly = true -Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.TabIndex = 15 -Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom -' -'TxbImageUrlHardcore -' -Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) -Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" -Me.TxbImageUrlHardcore.ReadOnly = true -Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.TabIndex = 3 -Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore -' -'TxbImageUrlHentai -' -Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) -Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" -Me.TxbImageUrlHentai.ReadOnly = true -Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.TabIndex = 21 -Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai -' -'TxbImageUrlGay -' -Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) -Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.Name = "TxbImageUrlGay" -Me.TxbImageUrlGay.ReadOnly = true -Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.TabIndex = 24 -Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay -' -'TxbImageUrlLesbian -' -Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) -Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" -Me.TxbImageUrlLesbian.ReadOnly = true -Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.TabIndex = 9 -Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian -' -'TxbImageUrlMaledom -' -Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) -Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" -Me.TxbImageUrlMaledom.ReadOnly = true -Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.TabIndex = 27 -Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom -' -'TxbImageUrlCaptions -' -Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) -Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" -Me.TxbImageUrlCaptions.ReadOnly = true -Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.TabIndex = 30 -Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions -' -'TxbImageUrlGeneral -' -Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) -Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" -Me.TxbImageUrlGeneral.ReadOnly = true -Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.TabIndex = 33 -Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral -' -'TxbImageUrlBoobs -' -Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) -Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" -Me.TxbImageUrlBoobs.ReadOnly = true -Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.TabIndex = 36 -Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs -' -'TxbImageUrlButts -' -Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) -Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.Name = "TxbImageUrlButts" -Me.TxbImageUrlButts.ReadOnly = true -Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.TabIndex = 39 -Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt -' -'GbxImagesGenre -' -Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) -Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) -Me.GbxImagesGenre.Name = "GbxImagesGenre" -Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) -Me.GbxImagesGenre.TabIndex = 0 -Me.GbxImagesGenre.TabStop = false -Me.GbxImagesGenre.Text = "Local Images" -' -'TableLayoutPanel1 +'TableLayoutPanel1 ' Me.TableLayoutPanel1.ColumnCount = 4 Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) @@ -5549,9695 +5070,10174 @@ Me.BTNIHardcore.TabIndex = 1 Me.BTNIHardcore.Text = "1" Me.BTNIHardcore.UseVisualStyleBackColor = false ' -'TbxIHardcore +'BTNISoftcore +' +Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray +Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black +Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) +Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNISoftcore.Name = "BTNISoftcore" +Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) +Me.BTNISoftcore.TabIndex = 5 +Me.BTNISoftcore.Text = "1" +Me.BTNISoftcore.UseVisualStyleBackColor = false +' +'BTNILesbian +' +Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILesbian.ForeColor = System.Drawing.Color.Black +Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) +Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILesbian.Name = "BTNILesbian" +Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNILesbian.TabIndex = 9 +Me.BTNILesbian.Text = "1" +Me.BTNILesbian.UseVisualStyleBackColor = false +' +'BTNButtPath +' +Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray +Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNButtPath.ForeColor = System.Drawing.Color.Black +Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) +Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNButtPath.Name = "BTNButtPath" +Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) +Me.BTNButtPath.TabIndex = 49 +Me.BTNButtPath.Text = "1" +Me.BTNButtPath.UseVisualStyleBackColor = false +' +'BTNIBlowjob +' +Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIBlowjob.Name = "BTNIBlowjob" +Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNIBlowjob.TabIndex = 13 +Me.BTNIBlowjob.Text = "1" +Me.BTNIBlowjob.UseVisualStyleBackColor = false +' +'BTNIFemdom +' +Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray +Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black +Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) +Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIFemdom.Name = "BTNIFemdom" +Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) +Me.BTNIFemdom.TabIndex = 17 +Me.BTNIFemdom.Text = "1" +Me.BTNIFemdom.UseVisualStyleBackColor = false +' +'BTNBoobPath +' +Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray +Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black +Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) +Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNBoobPath.Name = "BTNBoobPath" +Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) +Me.BTNBoobPath.TabIndex = 45 +Me.BTNBoobPath.Text = "1" +Me.BTNBoobPath.UseVisualStyleBackColor = false +' +'BTNILezdom +' +Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray +Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILezdom.ForeColor = System.Drawing.Color.Black +Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) +Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILezdom.Name = "BTNILezdom" +Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) +Me.BTNILezdom.TabIndex = 21 +Me.BTNILezdom.Text = "1" +Me.BTNILezdom.UseVisualStyleBackColor = false +' +'BTNIHentai +' +Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray +Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHentai.ForeColor = System.Drawing.Color.Black +Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) +Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHentai.Name = "BTNIHentai" +Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) +Me.BTNIHentai.TabIndex = 25 +Me.BTNIHentai.Text = "1" +Me.BTNIHentai.UseVisualStyleBackColor = false +' +'BTNIGay +' +Me.BTNIGay.BackColor = System.Drawing.Color.LightGray +Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGay.ForeColor = System.Drawing.Color.Black +Me.BTNIGay.Location = New System.Drawing.Point(76, 203) +Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGay.Name = "BTNIGay" +Me.BTNIGay.Size = New System.Drawing.Size(34, 28) +Me.BTNIGay.TabIndex = 29 +Me.BTNIGay.Text = "1" +Me.BTNIGay.UseVisualStyleBackColor = false +' +'BTNIMaledom ' -Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray -Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black -Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) -Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.Name = "TbxIHardcore" -Me.TbxIHardcore.ReadOnly = true -Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.TabIndex = 2 -Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore +Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray +Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black +Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) +Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIMaledom.Name = "BTNIMaledom" +Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) +Me.BTNIMaledom.TabIndex = 33 +Me.BTNIMaledom.Text = "1" +Me.BTNIMaledom.UseVisualStyleBackColor = false ' -'CBIHardcoreSD +'BTNICaptions ' -Me.CBIHardcoreSD.AutoSize = true -Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD -Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) -Me.CBIHardcoreSD.Name = "CBIHardcoreSD" -Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHardcoreSD.TabIndex = 3 -Me.CBIHardcoreSD.UseVisualStyleBackColor = true +Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray +Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNICaptions.ForeColor = System.Drawing.Color.Black +Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) +Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNICaptions.Name = "BTNICaptions" +Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) +Me.BTNICaptions.TabIndex = 37 +Me.BTNICaptions.Text = "1" +Me.BTNICaptions.UseVisualStyleBackColor = false ' -'CBIHardcore +'BTNIGeneral ' -Me.CBIHardcore.AutoSize = true -Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore -Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcore.ForeColor = System.Drawing.Color.Black -Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) -Me.CBIHardcore.Name = "CBIHardcore" -Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) -Me.CBIHardcore.TabIndex = 0 -Me.CBIHardcore.Text = "Hardcore" -Me.CBIHardcore.UseVisualStyleBackColor = true +Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) +Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGeneral.Name = "BTNIGeneral" +Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNIGeneral.TabIndex = 41 +Me.BTNIGeneral.Text = "1" +Me.BTNIGeneral.UseVisualStyleBackColor = false ' -'CBISoftcore +'TabPage33 ' -Me.CBISoftcore.AutoSize = true -Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore -Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcore.ForeColor = System.Drawing.Color.Black -Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) -Me.CBISoftcore.Name = "CBISoftcore" -Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) -Me.CBISoftcore.TabIndex = 4 -Me.CBISoftcore.Text = "Softcore" -Me.CBISoftcore.UseVisualStyleBackColor = true +Me.TabPage33.BackColor = System.Drawing.Color.Silver +Me.TabPage33.Controls.Add(Me.TabControl5) +Me.TabPage33.Location = New System.Drawing.Point(4, 22) +Me.TabPage33.Name = "TabPage33" +Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage33.Size = New System.Drawing.Size(720, 448) +Me.TabPage33.TabIndex = 21 +Me.TabPage33.Text = "Tagging" ' -'TbxISoftcore +'TabControl5 ' -Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray -Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black -Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) -Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.Name = "TbxISoftcore" -Me.TbxISoftcore.ReadOnly = true -Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.TabIndex = 6 -Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore +Me.TabControl5.Controls.Add(Me.TabPage34) +Me.TabControl5.Controls.Add(Me.TabPage35) +Me.TabControl5.Location = New System.Drawing.Point(6, 6) +Me.TabControl5.Name = "TabControl5" +Me.TabControl5.SelectedIndex = 0 +Me.TabControl5.Size = New System.Drawing.Size(708, 437) +Me.TabControl5.TabIndex = 0 ' -'CBButtSubDir +'TabPage34 ' -Me.CBButtSubDir.AutoSize = true -Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir -Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black -Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) -Me.CBButtSubDir.Name = "CBButtSubDir" -Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) -Me.CBButtSubDir.TabIndex = 51 -Me.CBButtSubDir.UseVisualStyleBackColor = true +Me.TabPage34.BackColor = System.Drawing.Color.LightGray +Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) +Me.TabPage34.Controls.Add(Me.CBTagAllFours) +Me.TabPage34.Controls.Add(Me.CBTagGlaring) +Me.TabPage34.Controls.Add(Me.CBTagSmiling) +Me.TabPage34.Controls.Add(Me.TBTagDir) +Me.TabPage34.Controls.Add(Me.CBTagPiercing) +Me.TabPage34.Controls.Add(Me.CBTagLegs) +Me.TabPage34.Controls.Add(Me.TBTagFurniture) +Me.TabPage34.Controls.Add(Me.CBTagFurniture) +Me.TabPage34.Controls.Add(Me.TBTagSexToy) +Me.TabPage34.Controls.Add(Me.CBTagSexToy) +Me.TabPage34.Controls.Add(Me.TBTagTattoo) +Me.TabPage34.Controls.Add(Me.CBTagTattoo) +Me.TabPage34.Controls.Add(Me.TBTagUnderwear) +Me.TabPage34.Controls.Add(Me.CBTagUnderwear) +Me.TabPage34.Controls.Add(Me.TBTagGarment) +Me.TabPage34.Controls.Add(Me.CBTagGarment) +Me.TabPage34.Controls.Add(Me.Label72) +Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) +Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) +Me.TabPage34.Controls.Add(Me.CBTagCloseUp) +Me.TabPage34.Controls.Add(Me.CBTagNaked) +Me.TabPage34.Controls.Add(Me.CBTagSideView) +Me.TabPage34.Controls.Add(Me.BTNTagPrevious) +Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) +Me.TabPage34.Controls.Add(Me.BTNTagNext) +Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) +Me.TabPage34.Controls.Add(Me.LBLTagCount) +Me.TabPage34.Controls.Add(Me.CBTagSucking) +Me.TabPage34.Controls.Add(Me.CBTagMasturbating) +Me.TabPage34.Controls.Add(Me.CBTagFeet) +Me.TabPage34.Controls.Add(Me.CBTagBoobs) +Me.TabPage34.Controls.Add(Me.CBTagAss) +Me.TabPage34.Controls.Add(Me.CBTagPussy) +Me.TabPage34.Controls.Add(Me.BTNTagSave) +Me.TabPage34.Controls.Add(Me.BTNTagDir) +Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) +Me.TabPage34.Controls.Add(Me.CBTagFace) +Me.TabPage34.Location = New System.Drawing.Point(4, 22) +Me.TabPage34.Name = "TabPage34" +Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage34.Size = New System.Drawing.Size(700, 411) +Me.TabPage34.TabIndex = 0 +Me.TabPage34.Text = "Domme Tags" ' -'CBISoftcoreSD +'CBTagSeeThrough ' -Me.CBISoftcoreSD.AutoSize = true -Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD -Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) -Me.CBISoftcoreSD.Name = "CBISoftcoreSD" -Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBISoftcoreSD.TabIndex = 7 -Me.CBISoftcoreSD.UseVisualStyleBackColor = true +Me.CBTagSeeThrough.AutoSize = true +Me.CBTagSeeThrough.Enabled = false +Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) +Me.CBTagSeeThrough.Name = "CBTagSeeThrough" +Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) +Me.CBTagSeeThrough.TabIndex = 226 +Me.CBTagSeeThrough.Text = "See Through" +Me.CBTagSeeThrough.UseVisualStyleBackColor = true ' -'CBBoobSubDir +'CBTagAllFours ' -Me.CBBoobSubDir.AutoSize = true -Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir -Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black -Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) -Me.CBBoobSubDir.Name = "CBBoobSubDir" -Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) -Me.CBBoobSubDir.TabIndex = 47 -Me.CBBoobSubDir.UseVisualStyleBackColor = true +Me.CBTagAllFours.AutoSize = true +Me.CBTagAllFours.Enabled = false +Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black +Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) +Me.CBTagAllFours.Name = "CBTagAllFours" +Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) +Me.CBTagAllFours.TabIndex = 225 +Me.CBTagAllFours.Text = "All Fours" +Me.CBTagAllFours.UseVisualStyleBackColor = true ' -'CBILezdomSD +'CBTagGlaring ' -Me.CBILezdomSD.AutoSize = true -Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD -Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black -Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) -Me.CBILezdomSD.Name = "CBILezdomSD" -Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBILezdomSD.TabIndex = 23 -Me.CBILezdomSD.UseVisualStyleBackColor = true +Me.CBTagGlaring.AutoSize = true +Me.CBTagGlaring.Enabled = false +Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black +Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) +Me.CBTagGlaring.Name = "CBTagGlaring" +Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) +Me.CBTagGlaring.TabIndex = 224 +Me.CBTagGlaring.Text = "Glaring" +Me.CBTagGlaring.UseVisualStyleBackColor = true ' -'CBIGeneralSD +'CBTagSmiling ' -Me.CBIGeneralSD.AutoSize = true -Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD -Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black -Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) -Me.CBIGeneralSD.Name = "CBIGeneralSD" -Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) -Me.CBIGeneralSD.TabIndex = 43 -Me.CBIGeneralSD.UseVisualStyleBackColor = true +Me.CBTagSmiling.AutoSize = true +Me.CBTagSmiling.Enabled = false +Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black +Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) +Me.CBTagSmiling.Name = "CBTagSmiling" +Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) +Me.CBTagSmiling.TabIndex = 223 +Me.CBTagSmiling.Text = "Smiling" +Me.CBTagSmiling.UseVisualStyleBackColor = true ' -'CBILesbianSD +'TBTagDir ' -Me.CBILesbianSD.AutoSize = true -Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD -Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black -Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) -Me.CBILesbianSD.Name = "CBILesbianSD" -Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) -Me.CBILesbianSD.TabIndex = 11 -Me.CBILesbianSD.UseVisualStyleBackColor = true +Me.TBTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBTagDir.Name = "TBTagDir" +Me.TBTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBTagDir.TabIndex = 222 +Me.TBTagDir.Text = "Enter Image Directory" ' -'CBICaptionsSD +'CBTagPiercing ' -Me.CBICaptionsSD.AutoSize = true -Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD -Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black -Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) -Me.CBICaptionsSD.Name = "CBICaptionsSD" -Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) -Me.CBICaptionsSD.TabIndex = 39 -Me.CBICaptionsSD.UseVisualStyleBackColor = true +Me.CBTagPiercing.AutoSize = true +Me.CBTagPiercing.Enabled = false +Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black +Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) +Me.CBTagPiercing.Name = "CBTagPiercing" +Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) +Me.CBTagPiercing.TabIndex = 221 +Me.CBTagPiercing.Text = "Piercing" +Me.CBTagPiercing.UseVisualStyleBackColor = true ' -'CBILesbian +'CBTagLegs ' -Me.CBILesbian.AutoSize = true -Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian -Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbian.ForeColor = System.Drawing.Color.Black -Me.CBILesbian.Location = New System.Drawing.Point(3, 61) -Me.CBILesbian.Name = "CBILesbian" -Me.CBILesbian.Size = New System.Drawing.Size(70, 23) -Me.CBILesbian.TabIndex = 8 -Me.CBILesbian.Text = "Lesbian" -Me.CBILesbian.UseVisualStyleBackColor = true +Me.CBTagLegs.AutoSize = true +Me.CBTagLegs.Enabled = false +Me.CBTagLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) +Me.CBTagLegs.Name = "CBTagLegs" +Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagLegs.TabIndex = 220 +Me.CBTagLegs.Text = "Legs" +Me.CBTagLegs.UseVisualStyleBackColor = true ' -'CBIMaledomSD +'TBTagFurniture ' -Me.CBIMaledomSD.AutoSize = true -Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD -Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black -Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) -Me.CBIMaledomSD.Name = "CBIMaledomSD" -Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIMaledomSD.TabIndex = 35 -Me.CBIMaledomSD.UseVisualStyleBackColor = true +Me.TBTagFurniture.Enabled = false +Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) +Me.TBTagFurniture.Name = "TBTagFurniture" +Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) +Me.TBTagFurniture.TabIndex = 219 ' -'CBIBlowjob +'CBTagFurniture ' -Me.CBIBlowjob.AutoSize = true -Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob -Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) -Me.CBIBlowjob.Name = "CBIBlowjob" -Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) -Me.CBIBlowjob.TabIndex = 12 -Me.CBIBlowjob.Text = "Blowjob" -Me.CBIBlowjob.UseVisualStyleBackColor = true +Me.CBTagFurniture.AutoSize = true +Me.CBTagFurniture.Enabled = false +Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black +Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) +Me.CBTagFurniture.Name = "CBTagFurniture" +Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) +Me.CBTagFurniture.TabIndex = 218 +Me.CBTagFurniture.Text = "Furniture" +Me.CBTagFurniture.UseVisualStyleBackColor = true ' -'CBIGaySD +'TBTagSexToy ' -Me.CBIGaySD.AutoSize = true -Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD -Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGaySD.ForeColor = System.Drawing.Color.Black -Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) -Me.CBIGaySD.Name = "CBIGaySD" -Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) -Me.CBIGaySD.TabIndex = 31 -Me.CBIGaySD.UseVisualStyleBackColor = true +Me.TBTagSexToy.Enabled = false +Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) +Me.TBTagSexToy.Name = "TBTagSexToy" +Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) +Me.TBTagSexToy.TabIndex = 217 ' -'CBIHentaiSD +'CBTagSexToy ' -Me.CBIHentaiSD.AutoSize = true -Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD -Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black -Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) -Me.CBIHentaiSD.Name = "CBIHentaiSD" -Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHentaiSD.TabIndex = 27 -Me.CBIHentaiSD.UseVisualStyleBackColor = true +Me.CBTagSexToy.AutoSize = true +Me.CBTagSexToy.Enabled = false +Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black +Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) +Me.CBTagSexToy.Name = "CBTagSexToy" +Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) +Me.CBTagSexToy.TabIndex = 216 +Me.CBTagSexToy.Text = "Sex Toy" +Me.CBTagSexToy.UseVisualStyleBackColor = true ' -'CBIBlowjobSD +'TBTagTattoo ' -Me.CBIBlowjobSD.AutoSize = true -Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD -Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) -Me.CBIBlowjobSD.Name = "CBIBlowjobSD" -Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) -Me.CBIBlowjobSD.TabIndex = 15 -Me.CBIBlowjobSD.UseVisualStyleBackColor = true +Me.TBTagTattoo.Enabled = false +Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) +Me.TBTagTattoo.Name = "TBTagTattoo" +Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) +Me.TBTagTattoo.TabIndex = 215 ' -'CBIFemdomSD +'CBTagTattoo ' -Me.CBIFemdomSD.AutoSize = true -Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD -Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black -Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) -Me.CBIFemdomSD.Name = "CBIFemdomSD" -Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIFemdomSD.TabIndex = 19 -Me.CBIFemdomSD.UseVisualStyleBackColor = true +Me.CBTagTattoo.AutoSize = true +Me.CBTagTattoo.Enabled = false +Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) +Me.CBTagTattoo.Name = "CBTagTattoo" +Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) +Me.CBTagTattoo.TabIndex = 214 +Me.CBTagTattoo.Text = "Tattoo" +Me.CBTagTattoo.UseVisualStyleBackColor = true ' -'TbxIButts +'TBTagUnderwear ' -Me.TbxIButts.BackColor = System.Drawing.Color.LightGray -Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIButts.ForeColor = System.Drawing.Color.Black -Me.TbxIButts.Location = New System.Drawing.Point(115, 353) -Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIButts.Name = "TbxIButts" -Me.TbxIButts.ReadOnly = true -Me.TbxIButts.Size = New System.Drawing.Size(217, 17) -Me.TbxIButts.TabIndex = 50 -Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath +Me.TBTagUnderwear.Enabled = false +Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) +Me.TBTagUnderwear.Name = "TBTagUnderwear" +Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) +Me.TBTagUnderwear.TabIndex = 213 ' -'CBIFemdom +'CBTagUnderwear ' -Me.CBIFemdom.AutoSize = true -Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom -Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdom.ForeColor = System.Drawing.Color.Black -Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) -Me.CBIFemdom.Name = "CBIFemdom" -Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) -Me.CBIFemdom.TabIndex = 16 -Me.CBIFemdom.Text = "Femdom" -Me.CBIFemdom.UseVisualStyleBackColor = true +Me.CBTagUnderwear.AutoSize = true +Me.CBTagUnderwear.Enabled = false +Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black +Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) +Me.CBTagUnderwear.Name = "CBTagUnderwear" +Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) +Me.CBTagUnderwear.TabIndex = 212 +Me.CBTagUnderwear.Text = "Underwear" +Me.CBTagUnderwear.UseVisualStyleBackColor = true ' -'TbxILesbian +'TBTagGarment ' -Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray -Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILesbian.ForeColor = System.Drawing.Color.Black -Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) -Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILesbian.Name = "TbxILesbian" -Me.TbxILesbian.ReadOnly = true -Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) -Me.TbxILesbian.TabIndex = 10 -Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian +Me.TBTagGarment.Enabled = false +Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) +Me.TBTagGarment.Name = "TBTagGarment" +Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) +Me.TBTagGarment.TabIndex = 211 +' +'CBTagGarment +' +Me.CBTagGarment.AutoSize = true +Me.CBTagGarment.Enabled = false +Me.CBTagGarment.ForeColor = System.Drawing.Color.Black +Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) +Me.CBTagGarment.Name = "CBTagGarment" +Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) +Me.CBTagGarment.TabIndex = 210 +Me.CBTagGarment.Text = "Garment" +Me.CBTagGarment.UseVisualStyleBackColor = true ' -'BTNISoftcore +'Label72 ' -Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray -Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black -Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) -Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNISoftcore.Name = "BTNISoftcore" -Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) -Me.BTNISoftcore.TabIndex = 5 -Me.BTNISoftcore.Text = "1" -Me.BTNISoftcore.UseVisualStyleBackColor = false +Me.Label72.BackColor = System.Drawing.Color.Transparent +Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label72.ForeColor = System.Drawing.Color.Black +Me.Label72.Location = New System.Drawing.Point(5, 368) +Me.Label72.Name = "Label72" +Me.Label72.Size = New System.Drawing.Size(451, 35) +Me.Label72.TabIndex = 189 +Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ + "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ + "e.g. Garment: dress)" +Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBILezdom +'CBTagHandsCovering ' -Me.CBILezdom.AutoSize = true -Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom -Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdom.ForeColor = System.Drawing.Color.Black -Me.CBILezdom.Location = New System.Drawing.Point(3, 148) -Me.CBILezdom.Name = "CBILezdom" -Me.CBILezdom.Size = New System.Drawing.Size(70, 23) -Me.CBILezdom.TabIndex = 20 -Me.CBILezdom.Text = "Lezdom" -Me.CBILezdom.UseVisualStyleBackColor = true +Me.CBTagHandsCovering.AutoSize = true +Me.CBTagHandsCovering.Enabled = false +Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) +Me.CBTagHandsCovering.Name = "CBTagHandsCovering" +Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) +Me.CBTagHandsCovering.TabIndex = 209 +Me.CBTagHandsCovering.Text = "Hands Covering" +Me.CBTagHandsCovering.UseVisualStyleBackColor = true ' -'TbxIBoobs +'CBTagGarmentCovering ' -Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray -Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black -Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) -Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.Name = "TbxIBoobs" -Me.TbxIBoobs.ReadOnly = true -Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.TabIndex = 46 -Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath +Me.CBTagGarmentCovering.AutoSize = true +Me.CBTagGarmentCovering.Enabled = false +Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) +Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" +Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) +Me.CBTagGarmentCovering.TabIndex = 208 +Me.CBTagGarmentCovering.Text = "Garment Covering" +Me.CBTagGarmentCovering.UseVisualStyleBackColor = true ' -'CBIHentai +'CBTagCloseUp ' -Me.CBIHentai.AutoSize = true -Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai -Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentai.ForeColor = System.Drawing.Color.Black -Me.CBIHentai.Location = New System.Drawing.Point(3, 177) -Me.CBIHentai.Name = "CBIHentai" -Me.CBIHentai.Size = New System.Drawing.Size(70, 23) -Me.CBIHentai.TabIndex = 24 -Me.CBIHentai.Text = "Hentai" -Me.CBIHentai.UseVisualStyleBackColor = true +Me.CBTagCloseUp.AutoSize = true +Me.CBTagCloseUp.Enabled = false +Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black +Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) +Me.CBTagCloseUp.Name = "CBTagCloseUp" +Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) +Me.CBTagCloseUp.TabIndex = 205 +Me.CBTagCloseUp.Text = "Close Up" +Me.CBTagCloseUp.UseVisualStyleBackColor = true ' -'TbxIBlowjob +'CBTagNaked ' -Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black -Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.Name = "TbxIBlowjob" -Me.TbxIBlowjob.ReadOnly = true -Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.TabIndex = 14 -Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob +Me.CBTagNaked.AutoSize = true +Me.CBTagNaked.Enabled = false +Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) +Me.CBTagNaked.Name = "CBTagNaked" +Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) +Me.CBTagNaked.TabIndex = 199 +Me.CBTagNaked.Text = "Naked" +Me.CBTagNaked.UseVisualStyleBackColor = true ' -'CBIGay +'CBTagSideView ' -Me.CBIGay.AutoSize = true -Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay -Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGay.ForeColor = System.Drawing.Color.Black -Me.CBIGay.Location = New System.Drawing.Point(3, 206) -Me.CBIGay.Name = "CBIGay" -Me.CBIGay.Size = New System.Drawing.Size(70, 23) -Me.CBIGay.TabIndex = 28 -Me.CBIGay.Text = "Gay" -Me.CBIGay.UseVisualStyleBackColor = true +Me.CBTagSideView.AutoSize = true +Me.CBTagSideView.Enabled = false +Me.CBTagSideView.ForeColor = System.Drawing.Color.Black +Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) +Me.CBTagSideView.Name = "CBTagSideView" +Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) +Me.CBTagSideView.TabIndex = 204 +Me.CBTagSideView.Text = "Side View" +Me.CBTagSideView.UseVisualStyleBackColor = true ' -'TbxIGeneral +'BTNTagPrevious ' -Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray -Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black -Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) -Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.Name = "TbxIGeneral" -Me.TbxIGeneral.ReadOnly = true -Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.TabIndex = 42 -Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral +Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNTagPrevious.Enabled = false +Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNTagPrevious.Name = "BTNTagPrevious" +Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNTagPrevious.TabIndex = 207 +Me.BTNTagPrevious.Text = "<<" +Me.BTNTagPrevious.UseVisualStyleBackColor = false ' -'CBIMaledom +'CBTagHalfDressed ' -Me.CBIMaledom.AutoSize = true -Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom -Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledom.ForeColor = System.Drawing.Color.Black -Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) -Me.CBIMaledom.Name = "CBIMaledom" -Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) -Me.CBIMaledom.TabIndex = 32 -Me.CBIMaledom.Text = "Maledom" -Me.CBIMaledom.UseVisualStyleBackColor = true +Me.CBTagHalfDressed.AutoSize = true +Me.CBTagHalfDressed.Enabled = false +Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) +Me.CBTagHalfDressed.Name = "CBTagHalfDressed" +Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) +Me.CBTagHalfDressed.TabIndex = 198 +Me.CBTagHalfDressed.Text = "Half Dressed" +Me.CBTagHalfDressed.UseVisualStyleBackColor = true ' -'TbxIFemdom +'BTNTagNext ' -Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray -Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black -Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) -Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.Name = "TbxIFemdom" -Me.TbxIFemdom.ReadOnly = true -Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.TabIndex = 18 -Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom +Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNTagNext.Enabled = false +Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNTagNext.Name = "BTNTagNext" +Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNTagNext.TabIndex = 206 +Me.BTNTagNext.Text = ">>" +Me.BTNTagNext.UseVisualStyleBackColor = false ' -'BTNILesbian +'CBTagFullyDressed ' -Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILesbian.ForeColor = System.Drawing.Color.Black -Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) -Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILesbian.Name = "BTNILesbian" -Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNILesbian.TabIndex = 9 -Me.BTNILesbian.Text = "1" -Me.BTNILesbian.UseVisualStyleBackColor = false +Me.CBTagFullyDressed.AutoSize = true +Me.CBTagFullyDressed.Enabled = false +Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) +Me.CBTagFullyDressed.Name = "CBTagFullyDressed" +Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) +Me.CBTagFullyDressed.TabIndex = 197 +Me.CBTagFullyDressed.Text = "Fully Dressed" +Me.CBTagFullyDressed.UseVisualStyleBackColor = true ' -'TbxICaptions +'LBLTagCount ' -Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray -Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxICaptions.ForeColor = System.Drawing.Color.Black -Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) -Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxICaptions.Name = "TbxICaptions" -Me.TbxICaptions.ReadOnly = true -Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) -Me.TbxICaptions.TabIndex = 38 -Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions +Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTagCount.Enabled = false +Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLTagCount.Name = "LBLTagCount" +Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLTagCount.TabIndex = 203 +Me.LBLTagCount.Text = "0/0" +Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBICaptions +'CBTagSucking ' -Me.CBICaptions.AutoSize = true -Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions -Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptions.ForeColor = System.Drawing.Color.Black -Me.CBICaptions.Location = New System.Drawing.Point(3, 264) -Me.CBICaptions.Name = "CBICaptions" -Me.CBICaptions.Size = New System.Drawing.Size(70, 23) -Me.CBICaptions.TabIndex = 36 -Me.CBICaptions.Text = "Captions" -Me.CBICaptions.UseVisualStyleBackColor = true +Me.CBTagSucking.AutoSize = true +Me.CBTagSucking.Enabled = false +Me.CBTagSucking.ForeColor = System.Drawing.Color.Black +Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) +Me.CBTagSucking.Name = "CBTagSucking" +Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) +Me.CBTagSucking.TabIndex = 202 +Me.CBTagSucking.Text = "Sucking" +Me.CBTagSucking.UseVisualStyleBackColor = true ' -'TbxILezdom +'CBTagMasturbating ' -Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray -Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILezdom.ForeColor = System.Drawing.Color.Black -Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) -Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILezdom.Name = "TbxILezdom" -Me.TbxILezdom.ReadOnly = true -Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) -Me.TbxILezdom.TabIndex = 22 -Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom +Me.CBTagMasturbating.AutoSize = true +Me.CBTagMasturbating.Enabled = false +Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) +Me.CBTagMasturbating.Name = "CBTagMasturbating" +Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbating.TabIndex = 201 +Me.CBTagMasturbating.Text = "Masturbating" +Me.CBTagMasturbating.UseVisualStyleBackColor = true ' -'TbxIMaledom +'CBTagFeet ' -Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray -Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black -Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) -Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.Name = "TbxIMaledom" -Me.TbxIMaledom.ReadOnly = true -Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.TabIndex = 34 -Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +Me.CBTagFeet.AutoSize = true +Me.CBTagFeet.Enabled = false +Me.CBTagFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) +Me.CBTagFeet.Name = "CBTagFeet" +Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagFeet.TabIndex = 200 +Me.CBTagFeet.Text = "Feet" +Me.CBTagFeet.UseVisualStyleBackColor = true ' -'BTNButtPath +'CBTagBoobs ' -Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray -Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNButtPath.ForeColor = System.Drawing.Color.Black -Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) -Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNButtPath.Name = "BTNButtPath" -Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) -Me.BTNButtPath.TabIndex = 49 -Me.BTNButtPath.Text = "1" -Me.BTNButtPath.UseVisualStyleBackColor = false +Me.CBTagBoobs.AutoSize = true +Me.CBTagBoobs.Enabled = false +Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black +Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) +Me.CBTagBoobs.Name = "CBTagBoobs" +Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) +Me.CBTagBoobs.TabIndex = 196 +Me.CBTagBoobs.Text = "Boobs" +Me.CBTagBoobs.UseVisualStyleBackColor = true ' -'TbxIHentai +'CBTagAss ' -Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray -Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHentai.ForeColor = System.Drawing.Color.Black -Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) -Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHentai.Name = "TbxIHentai" -Me.TbxIHentai.ReadOnly = true -Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) -Me.TbxIHentai.TabIndex = 26 -Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai +Me.CBTagAss.AutoSize = true +Me.CBTagAss.Enabled = false +Me.CBTagAss.ForeColor = System.Drawing.Color.Black +Me.CBTagAss.Location = New System.Drawing.Point(484, 97) +Me.CBTagAss.Name = "CBTagAss" +Me.CBTagAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagAss.TabIndex = 195 +Me.CBTagAss.Text = "Ass" +Me.CBTagAss.UseVisualStyleBackColor = true ' -'CBIGeneral +'CBTagPussy ' -Me.CBIGeneral.AutoSize = true -Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral -Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneral.ForeColor = System.Drawing.Color.Black -Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) -Me.CBIGeneral.Name = "CBIGeneral" -Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) -Me.CBIGeneral.TabIndex = 40 -Me.CBIGeneral.Text = "General" -Me.CBIGeneral.UseVisualStyleBackColor = true +Me.CBTagPussy.AutoSize = true +Me.CBTagPussy.Enabled = false +Me.CBTagPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) +Me.CBTagPussy.Name = "CBTagPussy" +Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagPussy.TabIndex = 194 +Me.CBTagPussy.Text = "Pussy" +Me.CBTagPussy.UseVisualStyleBackColor = true ' -'TbxIGay +'BTNTagSave ' -Me.TbxIGay.BackColor = System.Drawing.Color.LightGray -Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGay.ForeColor = System.Drawing.Color.Black -Me.TbxIGay.Location = New System.Drawing.Point(115, 208) -Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGay.Name = "TbxIGay" -Me.TbxIGay.ReadOnly = true -Me.TbxIGay.Size = New System.Drawing.Size(217, 17) -Me.TbxIGay.TabIndex = 30 -Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay +Me.BTNTagSave.Enabled = false +Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNTagSave.Name = "BTNTagSave" +Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNTagSave.TabIndex = 193 +Me.BTNTagSave.Text = "Finished" +Me.BTNTagSave.UseVisualStyleBackColor = true ' -'CBIBoobs +'BTNTagDir ' -Me.CBIBoobs.AutoSize = true -Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs -Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBoobs.ForeColor = System.Drawing.Color.Black -Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) -Me.CBIBoobs.Name = "CBIBoobs" -Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) -Me.CBIBoobs.TabIndex = 44 -Me.CBIBoobs.Text = "Boobs" -Me.CBIBoobs.UseVisualStyleBackColor = true +Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNTagDir.Name = "BTNTagDir" +Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNTagDir.TabIndex = 192 +Me.BTNTagDir.Text = "1" +Me.BTNTagDir.UseVisualStyleBackColor = true ' -'CBIButts +'ImageTagPictureBox ' -Me.CBIButts.AutoSize = true -Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts -Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIButts.ForeColor = System.Drawing.Color.Black -Me.CBIButts.Location = New System.Drawing.Point(3, 351) -Me.CBIButts.Name = "CBIButts" -Me.CBIButts.Size = New System.Drawing.Size(70, 27) -Me.CBIButts.TabIndex = 48 -Me.CBIButts.Text = "Butts" -Me.CBIButts.UseVisualStyleBackColor = true +Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black +Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) +Me.ImageTagPictureBox.Name = "ImageTagPictureBox" +Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) +Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.ImageTagPictureBox.TabIndex = 191 +Me.ImageTagPictureBox.TabStop = false ' -'BTNIBlowjob +'CBTagFace ' -Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIBlowjob.Name = "BTNIBlowjob" -Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNIBlowjob.TabIndex = 13 -Me.BTNIBlowjob.Text = "1" -Me.BTNIBlowjob.UseVisualStyleBackColor = false +Me.CBTagFace.AutoSize = true +Me.CBTagFace.Enabled = false +Me.CBTagFace.ForeColor = System.Drawing.Color.Black +Me.CBTagFace.Location = New System.Drawing.Point(484, 37) +Me.CBTagFace.Name = "CBTagFace" +Me.CBTagFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagFace.TabIndex = 190 +Me.CBTagFace.Text = "Face" +Me.CBTagFace.UseVisualStyleBackColor = true ' -'BTNIFemdom +'TabPage35 ' -Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray -Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black -Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) -Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIFemdom.Name = "BTNIFemdom" -Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) -Me.BTNIFemdom.TabIndex = 17 -Me.BTNIFemdom.Text = "1" -Me.BTNIFemdom.UseVisualStyleBackColor = false +Me.TabPage35.BackColor = System.Drawing.Color.LightGray +Me.TabPage35.Controls.Add(Me.GroupBox55) +Me.TabPage35.Controls.Add(Me.GroupBox53) +Me.TabPage35.Controls.Add(Me.GroupBox49) +Me.TabPage35.Controls.Add(Me.GroupBox46) +Me.TabPage35.Controls.Add(Me.GroupBox54) +Me.TabPage35.Controls.Add(Me.GroupBox51) +Me.TabPage35.Controls.Add(Me.GroupBox50) +Me.TabPage35.Controls.Add(Me.GroupBox48) +Me.TabPage35.Controls.Add(Me.TBLocalTagDir) +Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) +Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) +Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) +Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) +Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) +Me.TabPage35.Location = New System.Drawing.Point(4, 22) +Me.TabPage35.Name = "TabPage35" +Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage35.Size = New System.Drawing.Size(700, 411) +Me.TabPage35.TabIndex = 1 +Me.TabPage35.Text = "Local Tags" ' -'BTNBoobPath +'GroupBox55 ' -Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray -Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black -Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) -Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNBoobPath.Name = "BTNBoobPath" -Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) -Me.BTNBoobPath.TabIndex = 45 -Me.BTNBoobPath.Text = "1" -Me.BTNBoobPath.UseVisualStyleBackColor = false +Me.GroupBox55.Controls.Add(Me.CBTagNurse) +Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) +Me.GroupBox55.Controls.Add(Me.CBTagMaid) +Me.GroupBox55.Controls.Add(Me.CBTagTeacher) +Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) +Me.GroupBox55.Location = New System.Drawing.Point(341, 277) +Me.GroupBox55.Name = "GroupBox55" +Me.GroupBox55.Size = New System.Drawing.Size(103, 118) +Me.GroupBox55.TabIndex = 241 +Me.GroupBox55.TabStop = false +Me.GroupBox55.Text = "Outfit" ' -'BTNILezdom +'CBTagNurse ' -Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray -Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILezdom.ForeColor = System.Drawing.Color.Black -Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) -Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILezdom.Name = "BTNILezdom" -Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) -Me.BTNILezdom.TabIndex = 21 -Me.BTNILezdom.Text = "1" -Me.BTNILezdom.UseVisualStyleBackColor = false +Me.CBTagNurse.AutoSize = true +Me.CBTagNurse.Enabled = false +Me.CBTagNurse.ForeColor = System.Drawing.Color.Black +Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) +Me.CBTagNurse.Name = "CBTagNurse" +Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) +Me.CBTagNurse.TabIndex = 203 +Me.CBTagNurse.Text = "Nurse" +Me.CBTagNurse.UseVisualStyleBackColor = true ' -'BTNIHentai +'CBTagSchoolgirl ' -Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray -Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHentai.ForeColor = System.Drawing.Color.Black -Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) -Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHentai.Name = "BTNIHentai" -Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) -Me.BTNIHentai.TabIndex = 25 -Me.BTNIHentai.Text = "1" -Me.BTNIHentai.UseVisualStyleBackColor = false +Me.CBTagSchoolgirl.AutoSize = true +Me.CBTagSchoolgirl.Enabled = false +Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) +Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" +Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) +Me.CBTagSchoolgirl.TabIndex = 204 +Me.CBTagSchoolgirl.Text = "Schoolgirl" +Me.CBTagSchoolgirl.UseVisualStyleBackColor = true ' -'BTNIGay +'CBTagMaid ' -Me.BTNIGay.BackColor = System.Drawing.Color.LightGray -Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGay.ForeColor = System.Drawing.Color.Black -Me.BTNIGay.Location = New System.Drawing.Point(76, 203) -Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGay.Name = "BTNIGay" -Me.BTNIGay.Size = New System.Drawing.Size(34, 28) -Me.BTNIGay.TabIndex = 29 -Me.BTNIGay.Text = "1" -Me.BTNIGay.UseVisualStyleBackColor = false +Me.CBTagMaid.AutoSize = true +Me.CBTagMaid.Enabled = false +Me.CBTagMaid.ForeColor = System.Drawing.Color.Black +Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) +Me.CBTagMaid.Name = "CBTagMaid" +Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) +Me.CBTagMaid.TabIndex = 205 +Me.CBTagMaid.Text = "Maid" +Me.CBTagMaid.UseVisualStyleBackColor = true ' -'BTNIMaledom +'CBTagTeacher ' -Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray -Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black -Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) -Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIMaledom.Name = "BTNIMaledom" -Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) -Me.BTNIMaledom.TabIndex = 33 -Me.BTNIMaledom.Text = "1" -Me.BTNIMaledom.UseVisualStyleBackColor = false +Me.CBTagTeacher.AutoSize = true +Me.CBTagTeacher.Enabled = false +Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black +Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) +Me.CBTagTeacher.Name = "CBTagTeacher" +Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) +Me.CBTagTeacher.TabIndex = 206 +Me.CBTagTeacher.Text = "Teacher" +Me.CBTagTeacher.UseVisualStyleBackColor = true ' -'BTNICaptions +'CBTagSuperhero ' -Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray -Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNICaptions.ForeColor = System.Drawing.Color.Black -Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) -Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNICaptions.Name = "BTNICaptions" -Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) -Me.BTNICaptions.TabIndex = 37 -Me.BTNICaptions.Text = "1" -Me.BTNICaptions.UseVisualStyleBackColor = false +Me.CBTagSuperhero.AutoSize = true +Me.CBTagSuperhero.Enabled = false +Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black +Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) +Me.CBTagSuperhero.Name = "CBTagSuperhero" +Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) +Me.CBTagSuperhero.TabIndex = 213 +Me.CBTagSuperhero.Text = "Superhero" +Me.CBTagSuperhero.UseVisualStyleBackColor = true ' -'BTNIGeneral +'GroupBox53 ' -Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) -Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGeneral.Name = "BTNIGeneral" -Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNIGeneral.TabIndex = 41 -Me.BTNIGeneral.Text = "1" -Me.BTNIGeneral.UseVisualStyleBackColor = false +Me.GroupBox53.Controls.Add(Me.CBTagTrap) +Me.GroupBox53.Controls.Add(Me.CBTagTentacles) +Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) +Me.GroupBox53.Controls.Add(Me.CBTagBukkake) +Me.GroupBox53.Controls.Add(Me.CBTagGanguro) +Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) +Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) +Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) +Me.GroupBox53.Controls.Add(Me.CBTagAhegao) +Me.GroupBox53.Controls.Add(Me.CBTagShibari) +Me.GroupBox53.Location = New System.Drawing.Point(450, 277) +Me.GroupBox53.Name = "GroupBox53" +Me.GroupBox53.Size = New System.Drawing.Size(246, 118) +Me.GroupBox53.TabIndex = 240 +Me.GroupBox53.TabStop = false +Me.GroupBox53.Text = "Hentai/JAV Themes" ' -'TabPage33 +'CBTagTrap ' -Me.TabPage33.BackColor = System.Drawing.Color.Silver -Me.TabPage33.Controls.Add(Me.TabControl5) -Me.TabPage33.Location = New System.Drawing.Point(4, 22) -Me.TabPage33.Name = "TabPage33" -Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage33.Size = New System.Drawing.Size(720, 448) -Me.TabPage33.TabIndex = 21 -Me.TabPage33.Text = "Tagging" +Me.CBTagTrap.AutoSize = true +Me.CBTagTrap.Enabled = false +Me.CBTagTrap.ForeColor = System.Drawing.Color.Black +Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) +Me.CBTagTrap.Name = "CBTagTrap" +Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) +Me.CBTagTrap.TabIndex = 226 +Me.CBTagTrap.Text = "Trap" +Me.CBTagTrap.UseVisualStyleBackColor = true ' -'TabControl5 +'CBTagTentacles ' -Me.TabControl5.Controls.Add(Me.TabPage34) -Me.TabControl5.Controls.Add(Me.TabPage35) -Me.TabControl5.Location = New System.Drawing.Point(6, 6) -Me.TabControl5.Name = "TabControl5" -Me.TabControl5.SelectedIndex = 0 -Me.TabControl5.Size = New System.Drawing.Size(708, 437) -Me.TabControl5.TabIndex = 0 +Me.CBTagTentacles.AutoSize = true +Me.CBTagTentacles.Enabled = false +Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black +Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) +Me.CBTagTentacles.Name = "CBTagTentacles" +Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) +Me.CBTagTentacles.TabIndex = 204 +Me.CBTagTentacles.Text = "Tentacles" +Me.CBTagTentacles.UseVisualStyleBackColor = true ' -'TabPage34 +'CBTagMonsterGirl ' -Me.TabPage34.BackColor = System.Drawing.Color.LightGray -Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) -Me.TabPage34.Controls.Add(Me.CBTagAllFours) -Me.TabPage34.Controls.Add(Me.CBTagGlaring) -Me.TabPage34.Controls.Add(Me.CBTagSmiling) -Me.TabPage34.Controls.Add(Me.TBTagDir) -Me.TabPage34.Controls.Add(Me.CBTagPiercing) -Me.TabPage34.Controls.Add(Me.CBTagLegs) -Me.TabPage34.Controls.Add(Me.TBTagFurniture) -Me.TabPage34.Controls.Add(Me.CBTagFurniture) -Me.TabPage34.Controls.Add(Me.TBTagSexToy) -Me.TabPage34.Controls.Add(Me.CBTagSexToy) -Me.TabPage34.Controls.Add(Me.TBTagTattoo) -Me.TabPage34.Controls.Add(Me.CBTagTattoo) -Me.TabPage34.Controls.Add(Me.TBTagUnderwear) -Me.TabPage34.Controls.Add(Me.CBTagUnderwear) -Me.TabPage34.Controls.Add(Me.TBTagGarment) -Me.TabPage34.Controls.Add(Me.CBTagGarment) -Me.TabPage34.Controls.Add(Me.Label72) -Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) -Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) -Me.TabPage34.Controls.Add(Me.CBTagCloseUp) -Me.TabPage34.Controls.Add(Me.CBTagNaked) -Me.TabPage34.Controls.Add(Me.CBTagSideView) -Me.TabPage34.Controls.Add(Me.BTNTagPrevious) -Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) -Me.TabPage34.Controls.Add(Me.BTNTagNext) -Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) -Me.TabPage34.Controls.Add(Me.LBLTagCount) -Me.TabPage34.Controls.Add(Me.CBTagSucking) -Me.TabPage34.Controls.Add(Me.CBTagMasturbating) -Me.TabPage34.Controls.Add(Me.CBTagFeet) -Me.TabPage34.Controls.Add(Me.CBTagBoobs) -Me.TabPage34.Controls.Add(Me.CBTagAss) -Me.TabPage34.Controls.Add(Me.CBTagPussy) -Me.TabPage34.Controls.Add(Me.BTNTagSave) -Me.TabPage34.Controls.Add(Me.BTNTagDir) -Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) -Me.TabPage34.Controls.Add(Me.CBTagFace) -Me.TabPage34.Location = New System.Drawing.Point(4, 22) -Me.TabPage34.Name = "TabPage34" -Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage34.Size = New System.Drawing.Size(700, 411) -Me.TabPage34.TabIndex = 0 -Me.TabPage34.Text = "Domme Tags" +Me.CBTagMonsterGirl.AutoSize = true +Me.CBTagMonsterGirl.Enabled = false +Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black +Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) +Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" +Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) +Me.CBTagMonsterGirl.TabIndex = 214 +Me.CBTagMonsterGirl.Text = "Monster Girl" +Me.CBTagMonsterGirl.UseVisualStyleBackColor = true +' +'CBTagBukkake ' -'CBTagSeeThrough +Me.CBTagBukkake.AutoSize = true +Me.CBTagBukkake.Enabled = false +Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black +Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) +Me.CBTagBukkake.Name = "CBTagBukkake" +Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) +Me.CBTagBukkake.TabIndex = 210 +Me.CBTagBukkake.Text = "Bukkake" +Me.CBTagBukkake.UseVisualStyleBackColor = true ' -Me.CBTagSeeThrough.AutoSize = true -Me.CBTagSeeThrough.Enabled = false -Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) -Me.CBTagSeeThrough.Name = "CBTagSeeThrough" -Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) -Me.CBTagSeeThrough.TabIndex = 226 -Me.CBTagSeeThrough.Text = "See Through" -Me.CBTagSeeThrough.UseVisualStyleBackColor = true +'CBTagGanguro ' -'CBTagAllFours +Me.CBTagGanguro.AutoSize = true +Me.CBTagGanguro.Enabled = false +Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black +Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) +Me.CBTagGanguro.Name = "CBTagGanguro" +Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) +Me.CBTagGanguro.TabIndex = 205 +Me.CBTagGanguro.Text = "Ganguro" +Me.CBTagGanguro.UseVisualStyleBackColor = true ' -Me.CBTagAllFours.AutoSize = true -Me.CBTagAllFours.Enabled = false -Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black -Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) -Me.CBTagAllFours.Name = "CBTagAllFours" -Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) -Me.CBTagAllFours.TabIndex = 225 -Me.CBTagAllFours.Text = "All Fours" -Me.CBTagAllFours.UseVisualStyleBackColor = true +'CBTagBodyWriting ' -'CBTagGlaring +Me.CBTagBodyWriting.AutoSize = true +Me.CBTagBodyWriting.Enabled = false +Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) +Me.CBTagBodyWriting.Name = "CBTagBodyWriting" +Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) +Me.CBTagBodyWriting.TabIndex = 208 +Me.CBTagBodyWriting.Text = "Body Writing" +Me.CBTagBodyWriting.UseVisualStyleBackColor = true ' -Me.CBTagGlaring.AutoSize = true -Me.CBTagGlaring.Enabled = false -Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black -Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) -Me.CBTagGlaring.Name = "CBTagGlaring" -Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) -Me.CBTagGlaring.TabIndex = 224 -Me.CBTagGlaring.Text = "Glaring" -Me.CBTagGlaring.UseVisualStyleBackColor = true +'CBTagMahouShoujo ' -'CBTagSmiling +Me.CBTagMahouShoujo.AutoSize = true +Me.CBTagMahouShoujo.Enabled = false +Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black +Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) +Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" +Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) +Me.CBTagMahouShoujo.TabIndex = 209 +Me.CBTagMahouShoujo.Text = "Mahou Shoujo" +Me.CBTagMahouShoujo.UseVisualStyleBackColor = true ' -Me.CBTagSmiling.AutoSize = true -Me.CBTagSmiling.Enabled = false -Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black -Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) -Me.CBTagSmiling.Name = "CBTagSmiling" -Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) -Me.CBTagSmiling.TabIndex = 223 -Me.CBTagSmiling.Text = "Smiling" -Me.CBTagSmiling.UseVisualStyleBackColor = true +'CBTagBakunyuu ' -'TBTagDir +Me.CBTagBakunyuu.AutoSize = true +Me.CBTagBakunyuu.Enabled = false +Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black +Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) +Me.CBTagBakunyuu.Name = "CBTagBakunyuu" +Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) +Me.CBTagBakunyuu.TabIndex = 213 +Me.CBTagBakunyuu.Text = "Bakunyuu" +Me.CBTagBakunyuu.UseVisualStyleBackColor = true ' -Me.TBTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBTagDir.Name = "TBTagDir" -Me.TBTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBTagDir.TabIndex = 222 -Me.TBTagDir.Text = "Enter Image Directory" +'CBTagAhegao ' -'CBTagPiercing +Me.CBTagAhegao.AutoSize = true +Me.CBTagAhegao.Enabled = false +Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black +Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) +Me.CBTagAhegao.Name = "CBTagAhegao" +Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) +Me.CBTagAhegao.TabIndex = 207 +Me.CBTagAhegao.Text = "Ahegao" +Me.CBTagAhegao.UseVisualStyleBackColor = true ' -Me.CBTagPiercing.AutoSize = true -Me.CBTagPiercing.Enabled = false -Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black -Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) -Me.CBTagPiercing.Name = "CBTagPiercing" -Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) -Me.CBTagPiercing.TabIndex = 221 -Me.CBTagPiercing.Text = "Piercing" -Me.CBTagPiercing.UseVisualStyleBackColor = true +'CBTagShibari ' -'CBTagLegs +Me.CBTagShibari.AutoSize = true +Me.CBTagShibari.Enabled = false +Me.CBTagShibari.ForeColor = System.Drawing.Color.Black +Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) +Me.CBTagShibari.Name = "CBTagShibari" +Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) +Me.CBTagShibari.TabIndex = 203 +Me.CBTagShibari.Text = "Shibari" +Me.CBTagShibari.UseVisualStyleBackColor = true ' -Me.CBTagLegs.AutoSize = true -Me.CBTagLegs.Enabled = false -Me.CBTagLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) -Me.CBTagLegs.Name = "CBTagLegs" -Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagLegs.TabIndex = 220 -Me.CBTagLegs.Text = "Legs" -Me.CBTagLegs.UseVisualStyleBackColor = true +'GroupBox49 ' -'TBTagFurniture +Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) +Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) +Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) +Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) +Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) +Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) +Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) +Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) +Me.GroupBox49.Location = New System.Drawing.Point(341, 37) +Me.GroupBox49.Name = "GroupBox49" +Me.GroupBox49.Size = New System.Drawing.Size(103, 238) +Me.GroupBox49.TabIndex = 236 +Me.GroupBox49.TabStop = false +Me.GroupBox49.Text = "Body Part" ' -Me.TBTagFurniture.Enabled = false -Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) -Me.TBTagFurniture.Name = "TBTagFurniture" -Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) -Me.TBTagFurniture.TabIndex = 219 +'CBTagBodyMouth ' -'CBTagFurniture +Me.CBTagBodyMouth.AutoSize = true +Me.CBTagBodyMouth.Enabled = false +Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) +Me.CBTagBodyMouth.Name = "CBTagBodyMouth" +Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) +Me.CBTagBodyMouth.TabIndex = 220 +Me.CBTagBodyMouth.Text = "Mouth" +Me.CBTagBodyMouth.UseVisualStyleBackColor = true ' -Me.CBTagFurniture.AutoSize = true -Me.CBTagFurniture.Enabled = false -Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black -Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) -Me.CBTagFurniture.Name = "CBTagFurniture" -Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) -Me.CBTagFurniture.TabIndex = 218 -Me.CBTagFurniture.Text = "Furniture" -Me.CBTagFurniture.UseVisualStyleBackColor = true +'CBTagBodyAss ' -'TBTagSexToy +Me.CBTagBodyAss.AutoSize = true +Me.CBTagBodyAss.Enabled = false +Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) +Me.CBTagBodyAss.Name = "CBTagBodyAss" +Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyAss.TabIndex = 219 +Me.CBTagBodyAss.Text = "Ass" +Me.CBTagBodyAss.UseVisualStyleBackColor = true ' -Me.TBTagSexToy.Enabled = false -Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) -Me.TBTagSexToy.Name = "TBTagSexToy" -Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) -Me.TBTagSexToy.TabIndex = 217 +'CBTagBodyFace ' -'CBTagSexToy +Me.CBTagBodyFace.AutoSize = true +Me.CBTagBodyFace.Enabled = false +Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) +Me.CBTagBodyFace.Name = "CBTagBodyFace" +Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagBodyFace.TabIndex = 203 +Me.CBTagBodyFace.Text = "Face" +Me.CBTagBodyFace.UseVisualStyleBackColor = true ' -Me.CBTagSexToy.AutoSize = true -Me.CBTagSexToy.Enabled = false -Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black -Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) -Me.CBTagSexToy.Name = "CBTagSexToy" -Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) -Me.CBTagSexToy.TabIndex = 216 -Me.CBTagSexToy.Text = "Sex Toy" -Me.CBTagSexToy.UseVisualStyleBackColor = true +'CBTagBodyLegs ' -'TBTagTattoo +Me.CBTagBodyLegs.AutoSize = true +Me.CBTagBodyLegs.Enabled = false +Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) +Me.CBTagBodyLegs.Name = "CBTagBodyLegs" +Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagBodyLegs.TabIndex = 218 +Me.CBTagBodyLegs.Text = "Legs" +Me.CBTagBodyLegs.UseVisualStyleBackColor = true ' -Me.TBTagTattoo.Enabled = false -Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) -Me.TBTagTattoo.Name = "TBTagTattoo" -Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) -Me.TBTagTattoo.TabIndex = 215 +'CBTagBodyBalls +' +Me.CBTagBodyBalls.AutoSize = true +Me.CBTagBodyBalls.Enabled = false +Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) +Me.CBTagBodyBalls.Name = "CBTagBodyBalls" +Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) +Me.CBTagBodyBalls.TabIndex = 217 +Me.CBTagBodyBalls.Text = "Balls" +Me.CBTagBodyBalls.UseVisualStyleBackColor = true +' +'CBTagBodyCock +' +Me.CBTagBodyCock.AutoSize = true +Me.CBTagBodyCock.Enabled = false +Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) +Me.CBTagBodyCock.Name = "CBTagBodyCock" +Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) +Me.CBTagBodyCock.TabIndex = 216 +Me.CBTagBodyCock.Text = "Cock" +Me.CBTagBodyCock.UseVisualStyleBackColor = true +' +'CBTagBodyFeet ' -'CBTagTattoo +Me.CBTagBodyFeet.AutoSize = true +Me.CBTagBodyFeet.Enabled = false +Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) +Me.CBTagBodyFeet.Name = "CBTagBodyFeet" +Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagBodyFeet.TabIndex = 215 +Me.CBTagBodyFeet.Text = "Feet" +Me.CBTagBodyFeet.UseVisualStyleBackColor = true ' -Me.CBTagTattoo.AutoSize = true -Me.CBTagTattoo.Enabled = false -Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) -Me.CBTagTattoo.Name = "CBTagTattoo" -Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) -Me.CBTagTattoo.TabIndex = 214 -Me.CBTagTattoo.Text = "Tattoo" -Me.CBTagTattoo.UseVisualStyleBackColor = true +'CBTagBodyNipples ' -'TBTagUnderwear +Me.CBTagBodyNipples.AutoSize = true +Me.CBTagBodyNipples.Enabled = false +Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) +Me.CBTagBodyNipples.Name = "CBTagBodyNipples" +Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) +Me.CBTagBodyNipples.TabIndex = 207 +Me.CBTagBodyNipples.Text = "Nipples" +Me.CBTagBodyNipples.UseVisualStyleBackColor = true ' -Me.TBTagUnderwear.Enabled = false -Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) -Me.TBTagUnderwear.Name = "TBTagUnderwear" -Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) -Me.TBTagUnderwear.TabIndex = 213 +'CBTagBodyPussy ' -'CBTagUnderwear +Me.CBTagBodyPussy.AutoSize = true +Me.CBTagBodyPussy.Enabled = false +Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) +Me.CBTagBodyPussy.Name = "CBTagBodyPussy" +Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagBodyPussy.TabIndex = 209 +Me.CBTagBodyPussy.Text = "Pussy" +Me.CBTagBodyPussy.UseVisualStyleBackColor = true ' -Me.CBTagUnderwear.AutoSize = true -Me.CBTagUnderwear.Enabled = false -Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black -Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) -Me.CBTagUnderwear.Name = "CBTagUnderwear" -Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) -Me.CBTagUnderwear.TabIndex = 212 -Me.CBTagUnderwear.Text = "Underwear" -Me.CBTagUnderwear.UseVisualStyleBackColor = true +'CBTagBodyTits ' -'TBTagGarment +Me.CBTagBodyTits.AutoSize = true +Me.CBTagBodyTits.Enabled = false +Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) +Me.CBTagBodyTits.Name = "CBTagBodyTits" +Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyTits.TabIndex = 213 +Me.CBTagBodyTits.Text = "Tits" +Me.CBTagBodyTits.UseVisualStyleBackColor = true ' -Me.TBTagGarment.Enabled = false -Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) -Me.TBTagGarment.Name = "TBTagGarment" -Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) -Me.TBTagGarment.TabIndex = 211 +'CBTagBodyFingers ' -'CBTagGarment +Me.CBTagBodyFingers.AutoSize = true +Me.CBTagBodyFingers.Enabled = false +Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) +Me.CBTagBodyFingers.Name = "CBTagBodyFingers" +Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) +Me.CBTagBodyFingers.TabIndex = 210 +Me.CBTagBodyFingers.Text = "Fingers" +Me.CBTagBodyFingers.UseVisualStyleBackColor = true ' -Me.CBTagGarment.AutoSize = true -Me.CBTagGarment.Enabled = false -Me.CBTagGarment.ForeColor = System.Drawing.Color.Black -Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) -Me.CBTagGarment.Name = "CBTagGarment" -Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) -Me.CBTagGarment.TabIndex = 210 -Me.CBTagGarment.Text = "Garment" -Me.CBTagGarment.UseVisualStyleBackColor = true +'GroupBox46 ' -'Label72 +Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) +Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) +Me.GroupBox46.Controls.Add(Me.CBTagFemdom) +Me.GroupBox46.Controls.Add(Me.CBTag2M) +Me.GroupBox46.Controls.Add(Me.CBTagFutadom) +Me.GroupBox46.Controls.Add(Me.CBTagFemsub) +Me.GroupBox46.Controls.Add(Me.CBTag2Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMaledom) +Me.GroupBox46.Controls.Add(Me.CBTag3M) +Me.GroupBox46.Controls.Add(Me.CBTagFutasub) +Me.GroupBox46.Controls.Add(Me.CBTag3Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMalesub) +Me.GroupBox46.Controls.Add(Me.CBTag2F) +Me.GroupBox46.Controls.Add(Me.CBTag1Futa) +Me.GroupBox46.Controls.Add(Me.CBTag1M) +Me.GroupBox46.Controls.Add(Me.CBTag1F) +Me.GroupBox46.Controls.Add(Me.CBTag3F) +Me.GroupBox46.Location = New System.Drawing.Point(230, 37) +Me.GroupBox46.Name = "GroupBox46" +Me.GroupBox46.Size = New System.Drawing.Size(105, 358) +Me.GroupBox46.TabIndex = 234 +Me.GroupBox46.TabStop = false +Me.GroupBox46.Text = "Genders && Roles" ' -Me.Label72.BackColor = System.Drawing.Color.Transparent -Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label72.ForeColor = System.Drawing.Color.Black -Me.Label72.Location = New System.Drawing.Point(5, 368) -Me.Label72.Name = "Label72" -Me.Label72.Size = New System.Drawing.Size(451, 35) -Me.Label72.TabIndex = 189 -Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ - "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ - "e.g. Garment: dress)" -Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBTagMultiSub ' -'CBTagHandsCovering +Me.CBTagMultiSub.AutoSize = true +Me.CBTagMultiSub.Enabled = false +Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) +Me.CBTagMultiSub.Name = "CBTagMultiSub" +Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) +Me.CBTagMultiSub.TabIndex = 207 +Me.CBTagMultiSub.Text = "Multi-Sub" +Me.CBTagMultiSub.UseVisualStyleBackColor = true ' -Me.CBTagHandsCovering.AutoSize = true -Me.CBTagHandsCovering.Enabled = false -Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) -Me.CBTagHandsCovering.Name = "CBTagHandsCovering" -Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) -Me.CBTagHandsCovering.TabIndex = 209 -Me.CBTagHandsCovering.Text = "Hands Covering" -Me.CBTagHandsCovering.UseVisualStyleBackColor = true +'CBTagMultiDom ' -'CBTagGarmentCovering +Me.CBTagMultiDom.AutoSize = true +Me.CBTagMultiDom.Enabled = false +Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) +Me.CBTagMultiDom.Name = "CBTagMultiDom" +Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) +Me.CBTagMultiDom.TabIndex = 230 +Me.CBTagMultiDom.Text = "Multi-Dom" +Me.CBTagMultiDom.UseVisualStyleBackColor = true ' -Me.CBTagGarmentCovering.AutoSize = true -Me.CBTagGarmentCovering.Enabled = false -Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) -Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" -Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) -Me.CBTagGarmentCovering.TabIndex = 208 -Me.CBTagGarmentCovering.Text = "Garment Covering" -Me.CBTagGarmentCovering.UseVisualStyleBackColor = true +'CBTagFemdom ' -'CBTagCloseUp +Me.CBTagFemdom.AutoSize = true +Me.CBTagFemdom.Enabled = false +Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black +Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) +Me.CBTagFemdom.Name = "CBTagFemdom" +Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBTagFemdom.TabIndex = 229 +Me.CBTagFemdom.Text = "Femdom" +Me.CBTagFemdom.UseVisualStyleBackColor = true ' -Me.CBTagCloseUp.AutoSize = true -Me.CBTagCloseUp.Enabled = false -Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black -Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) -Me.CBTagCloseUp.Name = "CBTagCloseUp" -Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) -Me.CBTagCloseUp.TabIndex = 205 -Me.CBTagCloseUp.Text = "Close Up" -Me.CBTagCloseUp.UseVisualStyleBackColor = true +'CBTag2M ' -'CBTagNaked +Me.CBTag2M.AutoSize = true +Me.CBTag2M.Enabled = false +Me.CBTag2M.ForeColor = System.Drawing.Color.Black +Me.CBTag2M.Location = New System.Drawing.Point(15, 97) +Me.CBTag2M.Name = "CBTag2M" +Me.CBTag2M.Size = New System.Drawing.Size(56, 17) +Me.CBTag2M.TabIndex = 206 +Me.CBTag2M.Text = "2 Men" +Me.CBTag2M.UseVisualStyleBackColor = true ' -Me.CBTagNaked.AutoSize = true -Me.CBTagNaked.Enabled = false -Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) -Me.CBTagNaked.Name = "CBTagNaked" -Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) -Me.CBTagNaked.TabIndex = 199 -Me.CBTagNaked.Text = "Naked" -Me.CBTagNaked.UseVisualStyleBackColor = true +'CBTagFutadom ' -'CBTagSideView +Me.CBTagFutadom.AutoSize = true +Me.CBTagFutadom.Enabled = false +Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black +Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) +Me.CBTagFutadom.Name = "CBTagFutadom" +Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) +Me.CBTagFutadom.TabIndex = 204 +Me.CBTagFutadom.Text = "Futadom" +Me.CBTagFutadom.UseVisualStyleBackColor = true ' -Me.CBTagSideView.AutoSize = true -Me.CBTagSideView.Enabled = false -Me.CBTagSideView.ForeColor = System.Drawing.Color.Black -Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) -Me.CBTagSideView.Name = "CBTagSideView" -Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) -Me.CBTagSideView.TabIndex = 204 -Me.CBTagSideView.Text = "Side View" -Me.CBTagSideView.UseVisualStyleBackColor = true +'CBTagFemsub ' -'BTNTagPrevious +Me.CBTagFemsub.AutoSize = true +Me.CBTagFemsub.Enabled = false +Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black +Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) +Me.CBTagFemsub.Name = "CBTagFemsub" +Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBTagFemsub.TabIndex = 205 +Me.CBTagFemsub.Text = "Femsub" +Me.CBTagFemsub.UseVisualStyleBackColor = true ' -Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNTagPrevious.Enabled = false -Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNTagPrevious.Name = "BTNTagPrevious" -Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNTagPrevious.TabIndex = 207 -Me.BTNTagPrevious.Text = "<<" -Me.BTNTagPrevious.UseVisualStyleBackColor = false +'CBTag2Futa +' +Me.CBTag2Futa.AutoSize = true +Me.CBTag2Futa.Enabled = false +Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) +Me.CBTag2Futa.Name = "CBTag2Futa" +Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag2Futa.TabIndex = 186 +Me.CBTag2Futa.Text = "2 Futa" +Me.CBTag2Futa.UseVisualStyleBackColor = true ' -'CBTagHalfDressed +'CBTagMaledom ' -Me.CBTagHalfDressed.AutoSize = true -Me.CBTagHalfDressed.Enabled = false -Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) -Me.CBTagHalfDressed.Name = "CBTagHalfDressed" -Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) -Me.CBTagHalfDressed.TabIndex = 198 -Me.CBTagHalfDressed.Text = "Half Dressed" -Me.CBTagHalfDressed.UseVisualStyleBackColor = true +Me.CBTagMaledom.AutoSize = true +Me.CBTagMaledom.Enabled = false +Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black +Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) +Me.CBTagMaledom.Name = "CBTagMaledom" +Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) +Me.CBTagMaledom.TabIndex = 206 +Me.CBTagMaledom.Text = "Maledom" +Me.CBTagMaledom.UseVisualStyleBackColor = true ' -'BTNTagNext +'CBTag3M ' -Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNTagNext.Enabled = false -Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNTagNext.Name = "BTNTagNext" -Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNTagNext.TabIndex = 206 -Me.BTNTagNext.Text = ">>" -Me.BTNTagNext.UseVisualStyleBackColor = false +Me.CBTag3M.AutoSize = true +Me.CBTag3M.Enabled = false +Me.CBTag3M.ForeColor = System.Drawing.Color.Black +Me.CBTag3M.Location = New System.Drawing.Point(15, 117) +Me.CBTag3M.Name = "CBTag3M" +Me.CBTag3M.Size = New System.Drawing.Size(56, 17) +Me.CBTag3M.TabIndex = 190 +Me.CBTag3M.Text = "3 Men" +Me.CBTag3M.UseVisualStyleBackColor = true ' -'CBTagFullyDressed +'CBTagFutasub ' -Me.CBTagFullyDressed.AutoSize = true -Me.CBTagFullyDressed.Enabled = false -Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) -Me.CBTagFullyDressed.Name = "CBTagFullyDressed" -Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) -Me.CBTagFullyDressed.TabIndex = 197 -Me.CBTagFullyDressed.Text = "Fully Dressed" -Me.CBTagFullyDressed.UseVisualStyleBackColor = true +Me.CBTagFutasub.AutoSize = true +Me.CBTagFutasub.Enabled = false +Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black +Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) +Me.CBTagFutasub.Name = "CBTagFutasub" +Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) +Me.CBTagFutasub.TabIndex = 213 +Me.CBTagFutasub.Text = "Futasub" +Me.CBTagFutasub.UseVisualStyleBackColor = true ' -'LBLTagCount +'CBTag3Futa ' -Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTagCount.Enabled = false -Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLTagCount.Name = "LBLTagCount" -Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLTagCount.TabIndex = 203 -Me.LBLTagCount.Text = "0/0" -Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTag3Futa.AutoSize = true +Me.CBTag3Futa.Enabled = false +Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) +Me.CBTag3Futa.Name = "CBTag3Futa" +Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag3Futa.TabIndex = 197 +Me.CBTag3Futa.Text = "3 Futa" +Me.CBTag3Futa.UseVisualStyleBackColor = true ' -'CBTagSucking +'CBTagMalesub ' -Me.CBTagSucking.AutoSize = true -Me.CBTagSucking.Enabled = false -Me.CBTagSucking.ForeColor = System.Drawing.Color.Black -Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) -Me.CBTagSucking.Name = "CBTagSucking" -Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) -Me.CBTagSucking.TabIndex = 202 -Me.CBTagSucking.Text = "Sucking" -Me.CBTagSucking.UseVisualStyleBackColor = true +Me.CBTagMalesub.AutoSize = true +Me.CBTagMalesub.Enabled = false +Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black +Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) +Me.CBTagMalesub.Name = "CBTagMalesub" +Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) +Me.CBTagMalesub.TabIndex = 210 +Me.CBTagMalesub.Text = "Malesub" +Me.CBTagMalesub.UseVisualStyleBackColor = true ' -'CBTagMasturbating +'CBTag2F ' -Me.CBTagMasturbating.AutoSize = true -Me.CBTagMasturbating.Enabled = false -Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) -Me.CBTagMasturbating.Name = "CBTagMasturbating" -Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbating.TabIndex = 201 -Me.CBTagMasturbating.Text = "Masturbating" -Me.CBTagMasturbating.UseVisualStyleBackColor = true +Me.CBTag2F.AutoSize = true +Me.CBTag2F.Enabled = false +Me.CBTag2F.ForeColor = System.Drawing.Color.Black +Me.CBTag2F.Location = New System.Drawing.Point(15, 37) +Me.CBTag2F.Name = "CBTag2F" +Me.CBTag2F.Size = New System.Drawing.Size(72, 17) +Me.CBTag2F.TabIndex = 188 +Me.CBTag2F.Text = "2 Women" +Me.CBTag2F.UseVisualStyleBackColor = true ' -'CBTagFeet +'CBTag1Futa ' -Me.CBTagFeet.AutoSize = true -Me.CBTagFeet.Enabled = false -Me.CBTagFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) -Me.CBTagFeet.Name = "CBTagFeet" -Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagFeet.TabIndex = 200 -Me.CBTagFeet.Text = "Feet" -Me.CBTagFeet.UseVisualStyleBackColor = true +Me.CBTag1Futa.AutoSize = true +Me.CBTag1Futa.Enabled = false +Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) +Me.CBTag1Futa.Name = "CBTag1Futa" +Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag1Futa.TabIndex = 191 +Me.CBTag1Futa.Text = "1 Futa" +Me.CBTag1Futa.UseVisualStyleBackColor = true ' -'CBTagBoobs +'CBTag1M ' -Me.CBTagBoobs.AutoSize = true -Me.CBTagBoobs.Enabled = false -Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black -Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) -Me.CBTagBoobs.Name = "CBTagBoobs" -Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) -Me.CBTagBoobs.TabIndex = 196 -Me.CBTagBoobs.Text = "Boobs" -Me.CBTagBoobs.UseVisualStyleBackColor = true +Me.CBTag1M.AutoSize = true +Me.CBTag1M.Enabled = false +Me.CBTag1M.ForeColor = System.Drawing.Color.Black +Me.CBTag1M.Location = New System.Drawing.Point(15, 77) +Me.CBTag1M.Name = "CBTag1M" +Me.CBTag1M.Size = New System.Drawing.Size(56, 17) +Me.CBTag1M.TabIndex = 189 +Me.CBTag1M.Text = "1 Man" +Me.CBTag1M.UseVisualStyleBackColor = true ' -'CBTagAss +'CBTag1F ' -Me.CBTagAss.AutoSize = true -Me.CBTagAss.Enabled = false -Me.CBTagAss.ForeColor = System.Drawing.Color.Black -Me.CBTagAss.Location = New System.Drawing.Point(484, 97) -Me.CBTagAss.Name = "CBTagAss" -Me.CBTagAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagAss.TabIndex = 195 -Me.CBTagAss.Text = "Ass" -Me.CBTagAss.UseVisualStyleBackColor = true +Me.CBTag1F.AutoSize = true +Me.CBTag1F.Enabled = false +Me.CBTag1F.ForeColor = System.Drawing.Color.Black +Me.CBTag1F.Location = New System.Drawing.Point(15, 17) +Me.CBTag1F.Name = "CBTag1F" +Me.CBTag1F.Size = New System.Drawing.Size(72, 17) +Me.CBTag1F.TabIndex = 185 +Me.CBTag1F.Text = "1 Woman" +Me.CBTag1F.UseVisualStyleBackColor = true ' -'CBTagPussy +'CBTag3F ' -Me.CBTagPussy.AutoSize = true -Me.CBTagPussy.Enabled = false -Me.CBTagPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) -Me.CBTagPussy.Name = "CBTagPussy" -Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagPussy.TabIndex = 194 -Me.CBTagPussy.Text = "Pussy" -Me.CBTagPussy.UseVisualStyleBackColor = true +Me.CBTag3F.AutoSize = true +Me.CBTag3F.Enabled = false +Me.CBTag3F.ForeColor = System.Drawing.Color.Black +Me.CBTag3F.Location = New System.Drawing.Point(15, 57) +Me.CBTag3F.Name = "CBTag3F" +Me.CBTag3F.Size = New System.Drawing.Size(72, 17) +Me.CBTag3F.TabIndex = 192 +Me.CBTag3F.Text = "3 Women" +Me.CBTag3F.UseVisualStyleBackColor = true ' -'BTNTagSave +'GroupBox54 ' -Me.BTNTagSave.Enabled = false -Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNTagSave.Name = "BTNTagSave" -Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNTagSave.TabIndex = 193 -Me.BTNTagSave.Text = "Finished" -Me.BTNTagSave.UseVisualStyleBackColor = true +Me.GroupBox54.Controls.Add(Me.CBTagTattoos) +Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) +Me.GroupBox54.Controls.Add(Me.CBTagDomme) +Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) +Me.GroupBox54.Controls.Add(Me.CBTagWatersports) +Me.GroupBox54.Controls.Add(Me.CBTagStockings) +Me.GroupBox54.Controls.Add(Me.CBTagCumshot) +Me.GroupBox54.Controls.Add(Me.CBTagCumEating) +Me.GroupBox54.Controls.Add(Me.CBTagVibrator) +Me.GroupBox54.Controls.Add(Me.CBTagDildo) +Me.GroupBox54.Controls.Add(Me.CBTagKissing) +Me.GroupBox54.Location = New System.Drawing.Point(561, 37) +Me.GroupBox54.Name = "GroupBox54" +Me.GroupBox54.Size = New System.Drawing.Size(135, 238) +Me.GroupBox54.TabIndex = 239 +Me.GroupBox54.TabStop = false +Me.GroupBox54.Text = "Misc" ' -'BTNTagDir +'CBTagTattoos ' -Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNTagDir.Name = "BTNTagDir" -Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNTagDir.TabIndex = 192 -Me.BTNTagDir.Text = "1" -Me.BTNTagDir.UseVisualStyleBackColor = true +Me.CBTagTattoos.AutoSize = true +Me.CBTagTattoos.Enabled = false +Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) +Me.CBTagTattoos.Name = "CBTagTattoos" +Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBTagTattoos.TabIndex = 214 +Me.CBTagTattoos.Text = "Tattoos" +Me.CBTagTattoos.UseVisualStyleBackColor = true +' +'CBTagAnalToy +' +Me.CBTagAnalToy.AutoSize = true +Me.CBTagAnalToy.Enabled = false +Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) +Me.CBTagAnalToy.Name = "CBTagAnalToy" +Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalToy.TabIndex = 215 +Me.CBTagAnalToy.Text = "Anal Toy" +Me.CBTagAnalToy.UseVisualStyleBackColor = true ' -'ImageTagPictureBox +'CBTagDomme ' -Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black -Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) -Me.ImageTagPictureBox.Name = "ImageTagPictureBox" -Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) -Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.ImageTagPictureBox.TabIndex = 191 -Me.ImageTagPictureBox.TabStop = false +Me.CBTagDomme.AutoSize = true +Me.CBTagDomme.Enabled = false +Me.CBTagDomme.ForeColor = System.Drawing.Color.Black +Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) +Me.CBTagDomme.Name = "CBTagDomme" +Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) +Me.CBTagDomme.TabIndex = 219 +Me.CBTagDomme.Text = "Tease A.I. Domme" +Me.CBTagDomme.UseVisualStyleBackColor = true ' -'CBTagFace +'CBTagPocketPussy ' -Me.CBTagFace.AutoSize = true -Me.CBTagFace.Enabled = false -Me.CBTagFace.ForeColor = System.Drawing.Color.Black -Me.CBTagFace.Location = New System.Drawing.Point(484, 37) -Me.CBTagFace.Name = "CBTagFace" -Me.CBTagFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagFace.TabIndex = 190 -Me.CBTagFace.Text = "Face" -Me.CBTagFace.UseVisualStyleBackColor = true +Me.CBTagPocketPussy.AutoSize = true +Me.CBTagPocketPussy.Enabled = false +Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) +Me.CBTagPocketPussy.Name = "CBTagPocketPussy" +Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) +Me.CBTagPocketPussy.TabIndex = 205 +Me.CBTagPocketPussy.Text = "Pocket Pussy" +Me.CBTagPocketPussy.UseVisualStyleBackColor = true ' -'TabPage35 +'CBTagWatersports ' -Me.TabPage35.BackColor = System.Drawing.Color.LightGray -Me.TabPage35.Controls.Add(Me.GroupBox55) -Me.TabPage35.Controls.Add(Me.GroupBox53) -Me.TabPage35.Controls.Add(Me.GroupBox49) -Me.TabPage35.Controls.Add(Me.GroupBox46) -Me.TabPage35.Controls.Add(Me.GroupBox54) -Me.TabPage35.Controls.Add(Me.GroupBox51) -Me.TabPage35.Controls.Add(Me.GroupBox50) -Me.TabPage35.Controls.Add(Me.GroupBox48) -Me.TabPage35.Controls.Add(Me.TBLocalTagDir) -Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) -Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) -Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) -Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) -Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) -Me.TabPage35.Location = New System.Drawing.Point(4, 22) -Me.TabPage35.Name = "TabPage35" -Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage35.Size = New System.Drawing.Size(700, 411) -Me.TabPage35.TabIndex = 1 -Me.TabPage35.Text = "Local Tags" +Me.CBTagWatersports.AutoSize = true +Me.CBTagWatersports.Enabled = false +Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black +Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) +Me.CBTagWatersports.Name = "CBTagWatersports" +Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) +Me.CBTagWatersports.TabIndex = 218 +Me.CBTagWatersports.Text = "Watersports" +Me.CBTagWatersports.UseVisualStyleBackColor = true ' -'GroupBox55 +'CBTagStockings ' -Me.GroupBox55.Controls.Add(Me.CBTagNurse) -Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) -Me.GroupBox55.Controls.Add(Me.CBTagMaid) -Me.GroupBox55.Controls.Add(Me.CBTagTeacher) -Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) -Me.GroupBox55.Location = New System.Drawing.Point(341, 277) -Me.GroupBox55.Name = "GroupBox55" -Me.GroupBox55.Size = New System.Drawing.Size(103, 118) -Me.GroupBox55.TabIndex = 241 -Me.GroupBox55.TabStop = false -Me.GroupBox55.Text = "Outfit" +Me.CBTagStockings.AutoSize = true +Me.CBTagStockings.Enabled = false +Me.CBTagStockings.ForeColor = System.Drawing.Color.Black +Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) +Me.CBTagStockings.Name = "CBTagStockings" +Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) +Me.CBTagStockings.TabIndex = 217 +Me.CBTagStockings.Text = "Stockings" +Me.CBTagStockings.UseVisualStyleBackColor = true ' -'CBTagNurse +'CBTagCumshot ' -Me.CBTagNurse.AutoSize = true -Me.CBTagNurse.Enabled = false -Me.CBTagNurse.ForeColor = System.Drawing.Color.Black -Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) -Me.CBTagNurse.Name = "CBTagNurse" -Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) -Me.CBTagNurse.TabIndex = 203 -Me.CBTagNurse.Text = "Nurse" -Me.CBTagNurse.UseVisualStyleBackColor = true +Me.CBTagCumshot.AutoSize = true +Me.CBTagCumshot.Enabled = false +Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black +Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) +Me.CBTagCumshot.Name = "CBTagCumshot" +Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) +Me.CBTagCumshot.TabIndex = 206 +Me.CBTagCumshot.Text = "Cumshot" +Me.CBTagCumshot.UseVisualStyleBackColor = true ' -'CBTagSchoolgirl +'CBTagCumEating ' -Me.CBTagSchoolgirl.AutoSize = true -Me.CBTagSchoolgirl.Enabled = false -Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) -Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" -Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) -Me.CBTagSchoolgirl.TabIndex = 204 -Me.CBTagSchoolgirl.Text = "Schoolgirl" -Me.CBTagSchoolgirl.UseVisualStyleBackColor = true +Me.CBTagCumEating.AutoSize = true +Me.CBTagCumEating.Enabled = false +Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black +Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) +Me.CBTagCumEating.Name = "CBTagCumEating" +Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) +Me.CBTagCumEating.TabIndex = 204 +Me.CBTagCumEating.Text = "Cum Eating" +Me.CBTagCumEating.UseVisualStyleBackColor = true ' -'CBTagMaid +'CBTagVibrator ' -Me.CBTagMaid.AutoSize = true -Me.CBTagMaid.Enabled = false -Me.CBTagMaid.ForeColor = System.Drawing.Color.Black -Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) -Me.CBTagMaid.Name = "CBTagMaid" -Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) -Me.CBTagMaid.TabIndex = 205 -Me.CBTagMaid.Text = "Maid" -Me.CBTagMaid.UseVisualStyleBackColor = true +Me.CBTagVibrator.AutoSize = true +Me.CBTagVibrator.Enabled = false +Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black +Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) +Me.CBTagVibrator.Name = "CBTagVibrator" +Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) +Me.CBTagVibrator.TabIndex = 210 +Me.CBTagVibrator.Text = "Vibrator" +Me.CBTagVibrator.UseVisualStyleBackColor = true ' -'CBTagTeacher +'CBTagDildo ' -Me.CBTagTeacher.AutoSize = true -Me.CBTagTeacher.Enabled = false -Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black -Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) -Me.CBTagTeacher.Name = "CBTagTeacher" -Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) -Me.CBTagTeacher.TabIndex = 206 -Me.CBTagTeacher.Text = "Teacher" -Me.CBTagTeacher.UseVisualStyleBackColor = true +Me.CBTagDildo.AutoSize = true +Me.CBTagDildo.Enabled = false +Me.CBTagDildo.ForeColor = System.Drawing.Color.Black +Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) +Me.CBTagDildo.Name = "CBTagDildo" +Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) +Me.CBTagDildo.TabIndex = 213 +Me.CBTagDildo.Text = "Dildo" +Me.CBTagDildo.UseVisualStyleBackColor = true ' -'CBTagSuperhero +'CBTagKissing ' -Me.CBTagSuperhero.AutoSize = true -Me.CBTagSuperhero.Enabled = false -Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black -Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) -Me.CBTagSuperhero.Name = "CBTagSuperhero" -Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) -Me.CBTagSuperhero.TabIndex = 213 -Me.CBTagSuperhero.Text = "Superhero" -Me.CBTagSuperhero.UseVisualStyleBackColor = true +Me.CBTagKissing.AutoSize = true +Me.CBTagKissing.Enabled = false +Me.CBTagKissing.ForeColor = System.Drawing.Color.Black +Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) +Me.CBTagKissing.Name = "CBTagKissing" +Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) +Me.CBTagKissing.TabIndex = 203 +Me.CBTagKissing.Text = "Kissing" +Me.CBTagKissing.UseVisualStyleBackColor = true ' -'GroupBox53 +'GroupBox51 ' -Me.GroupBox53.Controls.Add(Me.CBTagTrap) -Me.GroupBox53.Controls.Add(Me.CBTagTentacles) -Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) -Me.GroupBox53.Controls.Add(Me.CBTagBukkake) -Me.GroupBox53.Controls.Add(Me.CBTagGanguro) -Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) -Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) -Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) -Me.GroupBox53.Controls.Add(Me.CBTagAhegao) -Me.GroupBox53.Controls.Add(Me.CBTagShibari) -Me.GroupBox53.Location = New System.Drawing.Point(450, 277) -Me.GroupBox53.Name = "GroupBox53" -Me.GroupBox53.Size = New System.Drawing.Size(246, 118) -Me.GroupBox53.TabIndex = 240 -Me.GroupBox53.TabStop = false -Me.GroupBox53.Text = "Hentai/JAV Themes" +Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) +Me.GroupBox51.Controls.Add(Me.CBTagGag) +Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) +Me.GroupBox51.Controls.Add(Me.CBTagWhipping) +Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) +Me.GroupBox51.Controls.Add(Me.CBTagElectro) +Me.GroupBox51.Controls.Add(Me.CBTagHotWax) +Me.GroupBox51.Controls.Add(Me.CBTagClamps) +Me.GroupBox51.Controls.Add(Me.CBTagStrapon) +Me.GroupBox51.Controls.Add(Me.CBTagSpanking) +Me.GroupBox51.Controls.Add(Me.CBTagNeedles) +Me.GroupBox51.Location = New System.Drawing.Point(450, 37) +Me.GroupBox51.Name = "GroupBox51" +Me.GroupBox51.Size = New System.Drawing.Size(105, 238) +Me.GroupBox51.TabIndex = 238 +Me.GroupBox51.TabStop = false +Me.GroupBox51.Text = "BDSM" ' -'CBTagTrap +'CBTagBallTorture ' -Me.CBTagTrap.AutoSize = true -Me.CBTagTrap.Enabled = false -Me.CBTagTrap.ForeColor = System.Drawing.Color.Black -Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) -Me.CBTagTrap.Name = "CBTagTrap" -Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) -Me.CBTagTrap.TabIndex = 226 -Me.CBTagTrap.Text = "Trap" -Me.CBTagTrap.UseVisualStyleBackColor = true +Me.CBTagBallTorture.AutoSize = true +Me.CBTagBallTorture.Enabled = false +Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) +Me.CBTagBallTorture.Name = "CBTagBallTorture" +Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) +Me.CBTagBallTorture.TabIndex = 220 +Me.CBTagBallTorture.Text = "Ball Torture" +Me.CBTagBallTorture.UseVisualStyleBackColor = true +' +'CBTagGag +' +Me.CBTagGag.AutoSize = true +Me.CBTagGag.Enabled = false +Me.CBTagGag.ForeColor = System.Drawing.Color.Black +Me.CBTagGag.Location = New System.Drawing.Point(15, 137) +Me.CBTagGag.Name = "CBTagGag" +Me.CBTagGag.Size = New System.Drawing.Size(46, 17) +Me.CBTagGag.TabIndex = 214 +Me.CBTagGag.Text = "Gag" +Me.CBTagGag.UseVisualStyleBackColor = true ' -'CBTagTentacles +'CBTagBlindfold ' -Me.CBTagTentacles.AutoSize = true -Me.CBTagTentacles.Enabled = false -Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black -Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) -Me.CBTagTentacles.Name = "CBTagTentacles" -Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) -Me.CBTagTentacles.TabIndex = 204 -Me.CBTagTentacles.Text = "Tentacles" -Me.CBTagTentacles.UseVisualStyleBackColor = true +Me.CBTagBlindfold.AutoSize = true +Me.CBTagBlindfold.Enabled = false +Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black +Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) +Me.CBTagBlindfold.Name = "CBTagBlindfold" +Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) +Me.CBTagBlindfold.TabIndex = 208 +Me.CBTagBlindfold.Text = "Blindfold" +Me.CBTagBlindfold.UseVisualStyleBackColor = true ' -'CBTagMonsterGirl +'CBTagWhipping ' -Me.CBTagMonsterGirl.AutoSize = true -Me.CBTagMonsterGirl.Enabled = false -Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black -Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) -Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" -Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) -Me.CBTagMonsterGirl.TabIndex = 214 -Me.CBTagMonsterGirl.Text = "Monster Girl" -Me.CBTagMonsterGirl.UseVisualStyleBackColor = true +Me.CBTagWhipping.AutoSize = true +Me.CBTagWhipping.Enabled = false +Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black +Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) +Me.CBTagWhipping.Name = "CBTagWhipping" +Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) +Me.CBTagWhipping.TabIndex = 203 +Me.CBTagWhipping.Text = "Whipping" +Me.CBTagWhipping.UseVisualStyleBackColor = true ' -'CBTagBukkake +'CBTagCockTorture ' -Me.CBTagBukkake.AutoSize = true -Me.CBTagBukkake.Enabled = false -Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black -Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) -Me.CBTagBukkake.Name = "CBTagBukkake" -Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) -Me.CBTagBukkake.TabIndex = 210 -Me.CBTagBukkake.Text = "Bukkake" -Me.CBTagBukkake.UseVisualStyleBackColor = true +Me.CBTagCockTorture.AutoSize = true +Me.CBTagCockTorture.Enabled = false +Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) +Me.CBTagCockTorture.Name = "CBTagCockTorture" +Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) +Me.CBTagCockTorture.TabIndex = 204 +Me.CBTagCockTorture.Text = "Cock Torture" +Me.CBTagCockTorture.UseVisualStyleBackColor = true ' -'CBTagGanguro +'CBTagElectro ' -Me.CBTagGanguro.AutoSize = true -Me.CBTagGanguro.Enabled = false -Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black -Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) -Me.CBTagGanguro.Name = "CBTagGanguro" -Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) -Me.CBTagGanguro.TabIndex = 205 -Me.CBTagGanguro.Text = "Ganguro" -Me.CBTagGanguro.UseVisualStyleBackColor = true +Me.CBTagElectro.AutoSize = true +Me.CBTagElectro.Enabled = false +Me.CBTagElectro.ForeColor = System.Drawing.Color.Black +Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) +Me.CBTagElectro.Name = "CBTagElectro" +Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) +Me.CBTagElectro.TabIndex = 207 +Me.CBTagElectro.Text = "Electro" +Me.CBTagElectro.UseVisualStyleBackColor = true ' -'CBTagBodyWriting +'CBTagHotWax ' -Me.CBTagBodyWriting.AutoSize = true -Me.CBTagBodyWriting.Enabled = false -Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) -Me.CBTagBodyWriting.Name = "CBTagBodyWriting" -Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) -Me.CBTagBodyWriting.TabIndex = 208 -Me.CBTagBodyWriting.Text = "Body Writing" -Me.CBTagBodyWriting.UseVisualStyleBackColor = true +Me.CBTagHotWax.AutoSize = true +Me.CBTagHotWax.Enabled = false +Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black +Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) +Me.CBTagHotWax.Name = "CBTagHotWax" +Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) +Me.CBTagHotWax.TabIndex = 213 +Me.CBTagHotWax.Text = "Hot Wax" +Me.CBTagHotWax.UseVisualStyleBackColor = true ' -'CBTagMahouShoujo +'CBTagClamps ' -Me.CBTagMahouShoujo.AutoSize = true -Me.CBTagMahouShoujo.Enabled = false -Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black -Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) -Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" -Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) -Me.CBTagMahouShoujo.TabIndex = 209 -Me.CBTagMahouShoujo.Text = "Mahou Shoujo" -Me.CBTagMahouShoujo.UseVisualStyleBackColor = true +Me.CBTagClamps.AutoSize = true +Me.CBTagClamps.Enabled = false +Me.CBTagClamps.ForeColor = System.Drawing.Color.Black +Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) +Me.CBTagClamps.Name = "CBTagClamps" +Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) +Me.CBTagClamps.TabIndex = 210 +Me.CBTagClamps.Text = "Clamps" +Me.CBTagClamps.UseVisualStyleBackColor = true ' -'CBTagBakunyuu +'CBTagStrapon ' -Me.CBTagBakunyuu.AutoSize = true -Me.CBTagBakunyuu.Enabled = false -Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black -Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) -Me.CBTagBakunyuu.Name = "CBTagBakunyuu" -Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) -Me.CBTagBakunyuu.TabIndex = 213 -Me.CBTagBakunyuu.Text = "Bakunyuu" -Me.CBTagBakunyuu.UseVisualStyleBackColor = true +Me.CBTagStrapon.AutoSize = true +Me.CBTagStrapon.Enabled = false +Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black +Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) +Me.CBTagStrapon.Name = "CBTagStrapon" +Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) +Me.CBTagStrapon.TabIndex = 205 +Me.CBTagStrapon.Text = "Strap-on" +Me.CBTagStrapon.UseVisualStyleBackColor = true ' -'CBTagAhegao +'CBTagSpanking ' -Me.CBTagAhegao.AutoSize = true -Me.CBTagAhegao.Enabled = false -Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black -Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) -Me.CBTagAhegao.Name = "CBTagAhegao" -Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) -Me.CBTagAhegao.TabIndex = 207 -Me.CBTagAhegao.Text = "Ahegao" -Me.CBTagAhegao.UseVisualStyleBackColor = true +Me.CBTagSpanking.AutoSize = true +Me.CBTagSpanking.Enabled = false +Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black +Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) +Me.CBTagSpanking.Name = "CBTagSpanking" +Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) +Me.CBTagSpanking.TabIndex = 206 +Me.CBTagSpanking.Text = "Spanking" +Me.CBTagSpanking.UseVisualStyleBackColor = true ' -'CBTagShibari +'CBTagNeedles ' -Me.CBTagShibari.AutoSize = true -Me.CBTagShibari.Enabled = false -Me.CBTagShibari.ForeColor = System.Drawing.Color.Black -Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) -Me.CBTagShibari.Name = "CBTagShibari" -Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) -Me.CBTagShibari.TabIndex = 203 -Me.CBTagShibari.Text = "Shibari" -Me.CBTagShibari.UseVisualStyleBackColor = true +Me.CBTagNeedles.AutoSize = true +Me.CBTagNeedles.Enabled = false +Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black +Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) +Me.CBTagNeedles.Name = "CBTagNeedles" +Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) +Me.CBTagNeedles.TabIndex = 209 +Me.CBTagNeedles.Text = "Needles" +Me.CBTagNeedles.UseVisualStyleBackColor = true ' -'GroupBox49 +'GroupBox50 ' -Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) -Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) -Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) -Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) -Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) -Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) -Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) -Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) -Me.GroupBox49.Location = New System.Drawing.Point(341, 37) -Me.GroupBox49.Name = "GroupBox49" -Me.GroupBox49.Size = New System.Drawing.Size(103, 238) -Me.GroupBox49.TabIndex = 236 -Me.GroupBox49.TabStop = false -Me.GroupBox49.Text = "Body Part" +Me.GroupBox50.Controls.Add(Me.CBTagRimming) +Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) +Me.GroupBox50.Controls.Add(Me.CBTagMissionary) +Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) +Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagFingering) +Me.GroupBox50.Controls.Add(Me.CBTagGangbang) +Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) +Me.GroupBox50.Controls.Add(Me.CBTagDP) +Me.GroupBox50.Controls.Add(Me.CBTagHandjob) +Me.GroupBox50.Controls.Add(Me.CBTagStanding) +Me.GroupBox50.Controls.Add(Me.CBTagFootjob) +Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) +Me.GroupBox50.Controls.Add(Me.CBTagTitjob) +Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) +Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) +Me.GroupBox50.Location = New System.Drawing.Point(119, 37) +Me.GroupBox50.Name = "GroupBox50" +Me.GroupBox50.Size = New System.Drawing.Size(105, 358) +Me.GroupBox50.TabIndex = 237 +Me.GroupBox50.TabStop = false +Me.GroupBox50.Text = "Sex" ' -'CBTagBodyMouth +'CBTagRimming ' -Me.CBTagBodyMouth.AutoSize = true -Me.CBTagBodyMouth.Enabled = false -Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) -Me.CBTagBodyMouth.Name = "CBTagBodyMouth" -Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) -Me.CBTagBodyMouth.TabIndex = 220 -Me.CBTagBodyMouth.Text = "Mouth" -Me.CBTagBodyMouth.UseVisualStyleBackColor = true +Me.CBTagRimming.AutoSize = true +Me.CBTagRimming.Enabled = false +Me.CBTagRimming.ForeColor = System.Drawing.Color.Black +Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) +Me.CBTagRimming.Name = "CBTagRimming" +Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) +Me.CBTagRimming.TabIndex = 219 +Me.CBTagRimming.Text = "Rimming" +Me.CBTagRimming.UseVisualStyleBackColor = true +' +'CBTagFacesitting +' +Me.CBTagFacesitting.AutoSize = true +Me.CBTagFacesitting.Enabled = false +Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black +Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) +Me.CBTagFacesitting.Name = "CBTagFacesitting" +Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) +Me.CBTagFacesitting.TabIndex = 226 +Me.CBTagFacesitting.Text = "Facesitting" +Me.CBTagFacesitting.UseVisualStyleBackColor = true ' -'CBTagBodyAss +'CBTagMissionary ' -Me.CBTagBodyAss.AutoSize = true -Me.CBTagBodyAss.Enabled = false -Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) -Me.CBTagBodyAss.Name = "CBTagBodyAss" -Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyAss.TabIndex = 219 -Me.CBTagBodyAss.Text = "Ass" -Me.CBTagBodyAss.UseVisualStyleBackColor = true +Me.CBTagMissionary.AutoSize = true +Me.CBTagMissionary.Enabled = false +Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black +Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) +Me.CBTagMissionary.Name = "CBTagMissionary" +Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) +Me.CBTagMissionary.TabIndex = 208 +Me.CBTagMissionary.Text = "Missionary" +Me.CBTagMissionary.UseVisualStyleBackColor = true ' -'CBTagBodyFace +'CBTagMasturbation ' -Me.CBTagBodyFace.AutoSize = true -Me.CBTagBodyFace.Enabled = false -Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) -Me.CBTagBodyFace.Name = "CBTagBodyFace" -Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagBodyFace.TabIndex = 203 -Me.CBTagBodyFace.Text = "Face" -Me.CBTagBodyFace.UseVisualStyleBackColor = true +Me.CBTagMasturbation.AutoSize = true +Me.CBTagMasturbation.Enabled = false +Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) +Me.CBTagMasturbation.Name = "CBTagMasturbation" +Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbation.TabIndex = 203 +Me.CBTagMasturbation.Text = "Masturbation" +Me.CBTagMasturbation.UseVisualStyleBackColor = true ' -'CBTagBodyLegs +'CBTagRCowgirl ' -Me.CBTagBodyLegs.AutoSize = true -Me.CBTagBodyLegs.Enabled = false -Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) -Me.CBTagBodyLegs.Name = "CBTagBodyLegs" -Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagBodyLegs.TabIndex = 218 -Me.CBTagBodyLegs.Text = "Legs" -Me.CBTagBodyLegs.UseVisualStyleBackColor = true +Me.CBTagRCowgirl.AutoSize = true +Me.CBTagRCowgirl.Enabled = false +Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) +Me.CBTagRCowgirl.Name = "CBTagRCowgirl" +Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) +Me.CBTagRCowgirl.TabIndex = 218 +Me.CBTagRCowgirl.Text = "R. Cowgirl" +Me.CBTagRCowgirl.UseVisualStyleBackColor = true ' -'CBTagBodyBalls +'CBTagFingering ' -Me.CBTagBodyBalls.AutoSize = true -Me.CBTagBodyBalls.Enabled = false -Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) -Me.CBTagBodyBalls.Name = "CBTagBodyBalls" -Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) -Me.CBTagBodyBalls.TabIndex = 217 -Me.CBTagBodyBalls.Text = "Balls" -Me.CBTagBodyBalls.UseVisualStyleBackColor = true +Me.CBTagFingering.AutoSize = true +Me.CBTagFingering.Enabled = false +Me.CBTagFingering.ForeColor = System.Drawing.Color.Black +Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) +Me.CBTagFingering.Name = "CBTagFingering" +Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) +Me.CBTagFingering.TabIndex = 204 +Me.CBTagFingering.Text = "Fingering" +Me.CBTagFingering.UseVisualStyleBackColor = true ' -'CBTagBodyCock +'CBTagGangbang ' -Me.CBTagBodyCock.AutoSize = true -Me.CBTagBodyCock.Enabled = false -Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) -Me.CBTagBodyCock.Name = "CBTagBodyCock" -Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) -Me.CBTagBodyCock.TabIndex = 216 -Me.CBTagBodyCock.Text = "Cock" -Me.CBTagBodyCock.UseVisualStyleBackColor = true +Me.CBTagGangbang.AutoSize = true +Me.CBTagGangbang.Enabled = false +Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black +Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) +Me.CBTagGangbang.Name = "CBTagGangbang" +Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) +Me.CBTagGangbang.TabIndex = 217 +Me.CBTagGangbang.Text = "Gangbang" +Me.CBTagGangbang.UseVisualStyleBackColor = true ' -'CBTagBodyFeet +'CBTagBlowjob ' -Me.CBTagBodyFeet.AutoSize = true -Me.CBTagBodyFeet.Enabled = false -Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) -Me.CBTagBodyFeet.Name = "CBTagBodyFeet" -Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagBodyFeet.TabIndex = 215 -Me.CBTagBodyFeet.Text = "Feet" -Me.CBTagBodyFeet.UseVisualStyleBackColor = true +Me.CBTagBlowjob.AutoSize = true +Me.CBTagBlowjob.Enabled = false +Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) +Me.CBTagBlowjob.Name = "CBTagBlowjob" +Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBTagBlowjob.TabIndex = 205 +Me.CBTagBlowjob.Text = "Blowjob" +Me.CBTagBlowjob.UseVisualStyleBackColor = true ' -'CBTagBodyNipples +'CBTagDP ' -Me.CBTagBodyNipples.AutoSize = true -Me.CBTagBodyNipples.Enabled = false -Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) -Me.CBTagBodyNipples.Name = "CBTagBodyNipples" -Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) -Me.CBTagBodyNipples.TabIndex = 207 -Me.CBTagBodyNipples.Text = "Nipples" -Me.CBTagBodyNipples.UseVisualStyleBackColor = true +Me.CBTagDP.AutoSize = true +Me.CBTagDP.Enabled = false +Me.CBTagDP.ForeColor = System.Drawing.Color.Black +Me.CBTagDP.Location = New System.Drawing.Point(15, 317) +Me.CBTagDP.Name = "CBTagDP" +Me.CBTagDP.Size = New System.Drawing.Size(41, 17) +Me.CBTagDP.TabIndex = 216 +Me.CBTagDP.Text = "DP" +Me.CBTagDP.UseVisualStyleBackColor = true ' -'CBTagBodyPussy +'CBTagHandjob ' -Me.CBTagBodyPussy.AutoSize = true -Me.CBTagBodyPussy.Enabled = false -Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) -Me.CBTagBodyPussy.Name = "CBTagBodyPussy" -Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagBodyPussy.TabIndex = 209 -Me.CBTagBodyPussy.Text = "Pussy" -Me.CBTagBodyPussy.UseVisualStyleBackColor = true +Me.CBTagHandjob.AutoSize = true +Me.CBTagHandjob.Enabled = false +Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black +Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) +Me.CBTagHandjob.Name = "CBTagHandjob" +Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) +Me.CBTagHandjob.TabIndex = 206 +Me.CBTagHandjob.Text = "Handjob" +Me.CBTagHandjob.UseVisualStyleBackColor = true ' -'CBTagBodyTits +'CBTagStanding ' -Me.CBTagBodyTits.AutoSize = true -Me.CBTagBodyTits.Enabled = false -Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) -Me.CBTagBodyTits.Name = "CBTagBodyTits" -Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyTits.TabIndex = 213 -Me.CBTagBodyTits.Text = "Tits" -Me.CBTagBodyTits.UseVisualStyleBackColor = true +Me.CBTagStanding.AutoSize = true +Me.CBTagStanding.Enabled = false +Me.CBTagStanding.ForeColor = System.Drawing.Color.Black +Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) +Me.CBTagStanding.Name = "CBTagStanding" +Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) +Me.CBTagStanding.TabIndex = 215 +Me.CBTagStanding.Text = "Standing" +Me.CBTagStanding.UseVisualStyleBackColor = true ' -'CBTagBodyFingers +'CBTagFootjob ' -Me.CBTagBodyFingers.AutoSize = true -Me.CBTagBodyFingers.Enabled = false -Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) -Me.CBTagBodyFingers.Name = "CBTagBodyFingers" -Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) -Me.CBTagBodyFingers.TabIndex = 210 -Me.CBTagBodyFingers.Text = "Fingers" -Me.CBTagBodyFingers.UseVisualStyleBackColor = true +Me.CBTagFootjob.AutoSize = true +Me.CBTagFootjob.Enabled = false +Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black +Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) +Me.CBTagFootjob.Name = "CBTagFootjob" +Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) +Me.CBTagFootjob.TabIndex = 207 +Me.CBTagFootjob.Text = "Footjob" +Me.CBTagFootjob.UseVisualStyleBackColor = true ' -'GroupBox46 +'CBTagCowgirl ' -Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) -Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) -Me.GroupBox46.Controls.Add(Me.CBTagFemdom) -Me.GroupBox46.Controls.Add(Me.CBTag2M) -Me.GroupBox46.Controls.Add(Me.CBTagFutadom) -Me.GroupBox46.Controls.Add(Me.CBTagFemsub) -Me.GroupBox46.Controls.Add(Me.CBTag2Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMaledom) -Me.GroupBox46.Controls.Add(Me.CBTag3M) -Me.GroupBox46.Controls.Add(Me.CBTagFutasub) -Me.GroupBox46.Controls.Add(Me.CBTag3Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMalesub) -Me.GroupBox46.Controls.Add(Me.CBTag2F) -Me.GroupBox46.Controls.Add(Me.CBTag1Futa) -Me.GroupBox46.Controls.Add(Me.CBTag1M) -Me.GroupBox46.Controls.Add(Me.CBTag1F) -Me.GroupBox46.Controls.Add(Me.CBTag3F) -Me.GroupBox46.Location = New System.Drawing.Point(230, 37) -Me.GroupBox46.Name = "GroupBox46" -Me.GroupBox46.Size = New System.Drawing.Size(105, 358) -Me.GroupBox46.TabIndex = 234 -Me.GroupBox46.TabStop = false -Me.GroupBox46.Text = "Genders && Roles" +Me.CBTagCowgirl.AutoSize = true +Me.CBTagCowgirl.Enabled = false +Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) +Me.CBTagCowgirl.Name = "CBTagCowgirl" +Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) +Me.CBTagCowgirl.TabIndex = 214 +Me.CBTagCowgirl.Text = "Cowgirl" +Me.CBTagCowgirl.UseVisualStyleBackColor = true ' -'CBTagMultiSub +'CBTagDoggyStyle ' -Me.CBTagMultiSub.AutoSize = true -Me.CBTagMultiSub.Enabled = false -Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) -Me.CBTagMultiSub.Name = "CBTagMultiSub" -Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) -Me.CBTagMultiSub.TabIndex = 207 -Me.CBTagMultiSub.Text = "Multi-Sub" -Me.CBTagMultiSub.UseVisualStyleBackColor = true +Me.CBTagDoggyStyle.AutoSize = true +Me.CBTagDoggyStyle.Enabled = false +Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black +Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) +Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" +Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) +Me.CBTagDoggyStyle.TabIndex = 209 +Me.CBTagDoggyStyle.Text = "Doggy Style" +Me.CBTagDoggyStyle.UseVisualStyleBackColor = true ' -'CBTagMultiDom +'CBTagTitjob ' -Me.CBTagMultiDom.AutoSize = true -Me.CBTagMultiDom.Enabled = false -Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) -Me.CBTagMultiDom.Name = "CBTagMultiDom" -Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) -Me.CBTagMultiDom.TabIndex = 230 -Me.CBTagMultiDom.Text = "Multi-Dom" -Me.CBTagMultiDom.UseVisualStyleBackColor = true +Me.CBTagTitjob.AutoSize = true +Me.CBTagTitjob.Enabled = false +Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black +Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) +Me.CBTagTitjob.Name = "CBTagTitjob" +Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) +Me.CBTagTitjob.TabIndex = 213 +Me.CBTagTitjob.Text = "Titjob" +Me.CBTagTitjob.UseVisualStyleBackColor = true ' -'CBTagFemdom +'CBTagCunnilingus ' -Me.CBTagFemdom.AutoSize = true -Me.CBTagFemdom.Enabled = false -Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black -Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) -Me.CBTagFemdom.Name = "CBTagFemdom" -Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBTagFemdom.TabIndex = 229 -Me.CBTagFemdom.Text = "Femdom" -Me.CBTagFemdom.UseVisualStyleBackColor = true +Me.CBTagCunnilingus.AutoSize = true +Me.CBTagCunnilingus.Enabled = false +Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black +Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) +Me.CBTagCunnilingus.Name = "CBTagCunnilingus" +Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) +Me.CBTagCunnilingus.TabIndex = 210 +Me.CBTagCunnilingus.Text = "Cunnilingus" +Me.CBTagCunnilingus.UseVisualStyleBackColor = true ' -'CBTag2M +'CBTagAnalSex ' -Me.CBTag2M.AutoSize = true -Me.CBTag2M.Enabled = false -Me.CBTag2M.ForeColor = System.Drawing.Color.Black -Me.CBTag2M.Location = New System.Drawing.Point(15, 97) -Me.CBTag2M.Name = "CBTag2M" -Me.CBTag2M.Size = New System.Drawing.Size(56, 17) -Me.CBTag2M.TabIndex = 206 -Me.CBTag2M.Text = "2 Men" -Me.CBTag2M.UseVisualStyleBackColor = true +Me.CBTagAnalSex.AutoSize = true +Me.CBTagAnalSex.Enabled = false +Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) +Me.CBTagAnalSex.Name = "CBTagAnalSex" +Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalSex.TabIndex = 212 +Me.CBTagAnalSex.Text = "Anal Sex" +Me.CBTagAnalSex.UseVisualStyleBackColor = true ' -'CBTagFutadom +'GroupBox48 ' -Me.CBTagFutadom.AutoSize = true -Me.CBTagFutadom.Enabled = false -Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black -Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) -Me.CBTagFutadom.Name = "CBTagFutadom" -Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) -Me.CBTagFutadom.TabIndex = 204 -Me.CBTagFutadom.Text = "Futadom" -Me.CBTagFutadom.UseVisualStyleBackColor = true +Me.GroupBox48.Controls.Add(Me.CBTagArtwork) +Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) +Me.GroupBox48.Controls.Add(Me.CBTagPOV) +Me.GroupBox48.Controls.Add(Me.CBTagHardcore) +Me.GroupBox48.Controls.Add(Me.CBTagTD) +Me.GroupBox48.Controls.Add(Me.CBTagGay) +Me.GroupBox48.Controls.Add(Me.CBTagBath) +Me.GroupBox48.Controls.Add(Me.CBTagBisexual) +Me.GroupBox48.Controls.Add(Me.CBTagCFNM) +Me.GroupBox48.Controls.Add(Me.CBTagLesbian) +Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) +Me.GroupBox48.Controls.Add(Me.CBTagSM) +Me.GroupBox48.Controls.Add(Me.CBTagBondage) +Me.GroupBox48.Controls.Add(Me.CBTagSoloM) +Me.GroupBox48.Controls.Add(Me.CBTagSoloF) +Me.GroupBox48.Controls.Add(Me.CBTagChastity) +Me.GroupBox48.Controls.Add(Me.CBTagShower) +Me.GroupBox48.Location = New System.Drawing.Point(8, 37) +Me.GroupBox48.Name = "GroupBox48" +Me.GroupBox48.Size = New System.Drawing.Size(105, 358) +Me.GroupBox48.TabIndex = 235 +Me.GroupBox48.TabStop = false +Me.GroupBox48.Text = "Category" ' -'CBTagFemsub +'CBTagArtwork ' -Me.CBTagFemsub.AutoSize = true -Me.CBTagFemsub.Enabled = false -Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black -Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) -Me.CBTagFemsub.Name = "CBTagFemsub" -Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBTagFemsub.TabIndex = 205 -Me.CBTagFemsub.Text = "Femsub" -Me.CBTagFemsub.UseVisualStyleBackColor = true +Me.CBTagArtwork.AutoSize = true +Me.CBTagArtwork.Enabled = false +Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black +Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) +Me.CBTagArtwork.Name = "CBTagArtwork" +Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) +Me.CBTagArtwork.TabIndex = 225 +Me.CBTagArtwork.Text = "Artwork" +Me.CBTagArtwork.UseVisualStyleBackColor = true ' -'CBTag2Futa +'CBTagOutdoors ' -Me.CBTag2Futa.AutoSize = true -Me.CBTag2Futa.Enabled = false -Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) -Me.CBTag2Futa.Name = "CBTag2Futa" -Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag2Futa.TabIndex = 186 -Me.CBTag2Futa.Text = "2 Futa" -Me.CBTag2Futa.UseVisualStyleBackColor = true +Me.CBTagOutdoors.AutoSize = true +Me.CBTagOutdoors.Enabled = false +Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black +Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) +Me.CBTagOutdoors.Name = "CBTagOutdoors" +Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) +Me.CBTagOutdoors.TabIndex = 219 +Me.CBTagOutdoors.Text = "Outdoors" +Me.CBTagOutdoors.UseVisualStyleBackColor = true ' -'CBTagMaledom +'CBTagPOV ' -Me.CBTagMaledom.AutoSize = true -Me.CBTagMaledom.Enabled = false -Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black -Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) -Me.CBTagMaledom.Name = "CBTagMaledom" -Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) -Me.CBTagMaledom.TabIndex = 206 -Me.CBTagMaledom.Text = "Maledom" -Me.CBTagMaledom.UseVisualStyleBackColor = true +Me.CBTagPOV.AutoSize = true +Me.CBTagPOV.Enabled = false +Me.CBTagPOV.ForeColor = System.Drawing.Color.Black +Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) +Me.CBTagPOV.Name = "CBTagPOV" +Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) +Me.CBTagPOV.TabIndex = 208 +Me.CBTagPOV.Text = "POV" +Me.CBTagPOV.UseVisualStyleBackColor = true ' -'CBTag3M +'CBTagHardcore ' -Me.CBTag3M.AutoSize = true -Me.CBTag3M.Enabled = false -Me.CBTag3M.ForeColor = System.Drawing.Color.Black -Me.CBTag3M.Location = New System.Drawing.Point(15, 117) -Me.CBTag3M.Name = "CBTag3M" -Me.CBTag3M.Size = New System.Drawing.Size(56, 17) -Me.CBTag3M.TabIndex = 190 -Me.CBTag3M.Text = "3 Men" -Me.CBTag3M.UseVisualStyleBackColor = true +Me.CBTagHardcore.AutoSize = true +Me.CBTagHardcore.Enabled = false +Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black +Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) +Me.CBTagHardcore.Name = "CBTagHardcore" +Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBTagHardcore.TabIndex = 203 +Me.CBTagHardcore.Text = "Hardcore" +Me.CBTagHardcore.UseVisualStyleBackColor = true ' -'CBTagFutasub +'CBTagTD ' -Me.CBTagFutasub.AutoSize = true -Me.CBTagFutasub.Enabled = false -Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black -Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) -Me.CBTagFutasub.Name = "CBTagFutasub" -Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) -Me.CBTagFutasub.TabIndex = 213 -Me.CBTagFutasub.Text = "Futasub" -Me.CBTagFutasub.UseVisualStyleBackColor = true +Me.CBTagTD.AutoSize = true +Me.CBTagTD.Enabled = false +Me.CBTagTD.ForeColor = System.Drawing.Color.Black +Me.CBTagTD.Location = New System.Drawing.Point(15, 217) +Me.CBTagTD.Name = "CBTagTD" +Me.CBTagTD.Size = New System.Drawing.Size(47, 17) +Me.CBTagTD.TabIndex = 218 +Me.CBTagTD.Text = "T&&D" +Me.CBTagTD.UseVisualStyleBackColor = true ' -'CBTag3Futa +'CBTagGay ' -Me.CBTag3Futa.AutoSize = true -Me.CBTag3Futa.Enabled = false -Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) -Me.CBTag3Futa.Name = "CBTag3Futa" -Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag3Futa.TabIndex = 197 -Me.CBTag3Futa.Text = "3 Futa" -Me.CBTag3Futa.UseVisualStyleBackColor = true +Me.CBTagGay.AutoSize = true +Me.CBTagGay.Enabled = false +Me.CBTagGay.ForeColor = System.Drawing.Color.Black +Me.CBTagGay.Location = New System.Drawing.Point(15, 57) +Me.CBTagGay.Name = "CBTagGay" +Me.CBTagGay.Size = New System.Drawing.Size(45, 17) +Me.CBTagGay.TabIndex = 204 +Me.CBTagGay.Text = "Gay" +Me.CBTagGay.UseVisualStyleBackColor = true ' -'CBTagMalesub +'CBTagBath ' -Me.CBTagMalesub.AutoSize = true -Me.CBTagMalesub.Enabled = false -Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black -Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) -Me.CBTagMalesub.Name = "CBTagMalesub" -Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) -Me.CBTagMalesub.TabIndex = 210 -Me.CBTagMalesub.Text = "Malesub" -Me.CBTagMalesub.UseVisualStyleBackColor = true +Me.CBTagBath.AutoSize = true +Me.CBTagBath.Enabled = false +Me.CBTagBath.ForeColor = System.Drawing.Color.Black +Me.CBTagBath.Location = New System.Drawing.Point(15, 277) +Me.CBTagBath.Name = "CBTagBath" +Me.CBTagBath.Size = New System.Drawing.Size(48, 17) +Me.CBTagBath.TabIndex = 217 +Me.CBTagBath.Text = "Bath" +Me.CBTagBath.UseVisualStyleBackColor = true ' -'CBTag2F +'CBTagBisexual ' -Me.CBTag2F.AutoSize = true -Me.CBTag2F.Enabled = false -Me.CBTag2F.ForeColor = System.Drawing.Color.Black -Me.CBTag2F.Location = New System.Drawing.Point(15, 37) -Me.CBTag2F.Name = "CBTag2F" -Me.CBTag2F.Size = New System.Drawing.Size(72, 17) -Me.CBTag2F.TabIndex = 188 -Me.CBTag2F.Text = "2 Women" -Me.CBTag2F.UseVisualStyleBackColor = true +Me.CBTagBisexual.AutoSize = true +Me.CBTagBisexual.Enabled = false +Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black +Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) +Me.CBTagBisexual.Name = "CBTagBisexual" +Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) +Me.CBTagBisexual.TabIndex = 205 +Me.CBTagBisexual.Text = "Bisexual" +Me.CBTagBisexual.UseVisualStyleBackColor = true +' +'CBTagCFNM ' -'CBTag1Futa +Me.CBTagCFNM.AutoSize = true +Me.CBTagCFNM.Enabled = false +Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black +Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) +Me.CBTagCFNM.Name = "CBTagCFNM" +Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) +Me.CBTagCFNM.TabIndex = 216 +Me.CBTagCFNM.Text = "CFNM" +Me.CBTagCFNM.UseVisualStyleBackColor = true ' -Me.CBTag1Futa.AutoSize = true -Me.CBTag1Futa.Enabled = false -Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) -Me.CBTag1Futa.Name = "CBTag1Futa" -Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag1Futa.TabIndex = 191 -Me.CBTag1Futa.Text = "1 Futa" -Me.CBTag1Futa.UseVisualStyleBackColor = true +'CBTagLesbian ' -'CBTag1M +Me.CBTagLesbian.AutoSize = true +Me.CBTagLesbian.Enabled = false +Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black +Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) +Me.CBTagLesbian.Name = "CBTagLesbian" +Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBTagLesbian.TabIndex = 206 +Me.CBTagLesbian.Text = "Lesbian" +Me.CBTagLesbian.UseVisualStyleBackColor = true ' -Me.CBTag1M.AutoSize = true -Me.CBTag1M.Enabled = false -Me.CBTag1M.ForeColor = System.Drawing.Color.Black -Me.CBTag1M.Location = New System.Drawing.Point(15, 77) -Me.CBTag1M.Name = "CBTag1M" -Me.CBTag1M.Size = New System.Drawing.Size(56, 17) -Me.CBTag1M.TabIndex = 189 -Me.CBTag1M.Text = "1 Man" -Me.CBTag1M.UseVisualStyleBackColor = true +'CBTagSoloFuta ' -'CBTag1F +Me.CBTagSoloFuta.AutoSize = true +Me.CBTagSoloFuta.Enabled = false +Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) +Me.CBTagSoloFuta.Name = "CBTagSoloFuta" +Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) +Me.CBTagSoloFuta.TabIndex = 207 +Me.CBTagSoloFuta.Text = "Solo Futa" +Me.CBTagSoloFuta.UseVisualStyleBackColor = true ' -Me.CBTag1F.AutoSize = true -Me.CBTag1F.Enabled = false -Me.CBTag1F.ForeColor = System.Drawing.Color.Black -Me.CBTag1F.Location = New System.Drawing.Point(15, 17) -Me.CBTag1F.Name = "CBTag1F" -Me.CBTag1F.Size = New System.Drawing.Size(72, 17) -Me.CBTag1F.TabIndex = 185 -Me.CBTag1F.Text = "1 Woman" -Me.CBTag1F.UseVisualStyleBackColor = true +'CBTagSM ' -'CBTag3F +Me.CBTagSM.AutoSize = true +Me.CBTagSM.Enabled = false +Me.CBTagSM.ForeColor = System.Drawing.Color.Black +Me.CBTagSM.Location = New System.Drawing.Point(15, 197) +Me.CBTagSM.Name = "CBTagSM" +Me.CBTagSM.Size = New System.Drawing.Size(48, 17) +Me.CBTagSM.TabIndex = 214 +Me.CBTagSM.Text = "S&&M" +Me.CBTagSM.UseVisualStyleBackColor = true ' -Me.CBTag3F.AutoSize = true -Me.CBTag3F.Enabled = false -Me.CBTag3F.ForeColor = System.Drawing.Color.Black -Me.CBTag3F.Location = New System.Drawing.Point(15, 57) -Me.CBTag3F.Name = "CBTag3F" -Me.CBTag3F.Size = New System.Drawing.Size(72, 17) -Me.CBTag3F.TabIndex = 192 -Me.CBTag3F.Text = "3 Women" -Me.CBTag3F.UseVisualStyleBackColor = true +'CBTagBondage ' -'GroupBox54 +Me.CBTagBondage.AutoSize = true +Me.CBTagBondage.Enabled = false +Me.CBTagBondage.ForeColor = System.Drawing.Color.Black +Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) +Me.CBTagBondage.Name = "CBTagBondage" +Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) +Me.CBTagBondage.TabIndex = 209 +Me.CBTagBondage.Text = "Bondage" +Me.CBTagBondage.UseVisualStyleBackColor = true ' -Me.GroupBox54.Controls.Add(Me.CBTagTattoos) -Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) -Me.GroupBox54.Controls.Add(Me.CBTagDomme) -Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) -Me.GroupBox54.Controls.Add(Me.CBTagWatersports) -Me.GroupBox54.Controls.Add(Me.CBTagStockings) -Me.GroupBox54.Controls.Add(Me.CBTagCumshot) -Me.GroupBox54.Controls.Add(Me.CBTagCumEating) -Me.GroupBox54.Controls.Add(Me.CBTagVibrator) -Me.GroupBox54.Controls.Add(Me.CBTagDildo) -Me.GroupBox54.Controls.Add(Me.CBTagKissing) -Me.GroupBox54.Location = New System.Drawing.Point(561, 37) -Me.GroupBox54.Name = "GroupBox54" -Me.GroupBox54.Size = New System.Drawing.Size(135, 238) -Me.GroupBox54.TabIndex = 239 -Me.GroupBox54.TabStop = false -Me.GroupBox54.Text = "Misc" +'CBTagSoloM ' -'CBTagTattoos +Me.CBTagSoloM.AutoSize = true +Me.CBTagSoloM.Enabled = false +Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) +Me.CBTagSoloM.Name = "CBTagSoloM" +Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) +Me.CBTagSoloM.TabIndex = 213 +Me.CBTagSoloM.Text = "Solo M" +Me.CBTagSoloM.UseVisualStyleBackColor = true ' -Me.CBTagTattoos.AutoSize = true -Me.CBTagTattoos.Enabled = false -Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) -Me.CBTagTattoos.Name = "CBTagTattoos" -Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBTagTattoos.TabIndex = 214 -Me.CBTagTattoos.Text = "Tattoos" -Me.CBTagTattoos.UseVisualStyleBackColor = true +'CBTagSoloF ' -'CBTagAnalToy +Me.CBTagSoloF.AutoSize = true +Me.CBTagSoloF.Enabled = false +Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) +Me.CBTagSoloF.Name = "CBTagSoloF" +Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) +Me.CBTagSoloF.TabIndex = 210 +Me.CBTagSoloF.Text = "Solo F" +Me.CBTagSoloF.UseVisualStyleBackColor = true ' -Me.CBTagAnalToy.AutoSize = true -Me.CBTagAnalToy.Enabled = false -Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) -Me.CBTagAnalToy.Name = "CBTagAnalToy" -Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalToy.TabIndex = 215 -Me.CBTagAnalToy.Text = "Anal Toy" -Me.CBTagAnalToy.UseVisualStyleBackColor = true +'CBTagChastity ' -'CBTagDomme +Me.CBTagChastity.AutoSize = true +Me.CBTagChastity.Enabled = false +Me.CBTagChastity.ForeColor = System.Drawing.Color.Black +Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) +Me.CBTagChastity.Name = "CBTagChastity" +Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) +Me.CBTagChastity.TabIndex = 212 +Me.CBTagChastity.Text = "Chastity" +Me.CBTagChastity.UseVisualStyleBackColor = true ' -Me.CBTagDomme.AutoSize = true -Me.CBTagDomme.Enabled = false -Me.CBTagDomme.ForeColor = System.Drawing.Color.Black -Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) -Me.CBTagDomme.Name = "CBTagDomme" -Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) -Me.CBTagDomme.TabIndex = 219 -Me.CBTagDomme.Text = "Tease A.I. Domme" -Me.CBTagDomme.UseVisualStyleBackColor = true +'CBTagShower ' -'CBTagPocketPussy +Me.CBTagShower.AutoSize = true +Me.CBTagShower.Enabled = false +Me.CBTagShower.ForeColor = System.Drawing.Color.Black +Me.CBTagShower.Location = New System.Drawing.Point(15, 297) +Me.CBTagShower.Name = "CBTagShower" +Me.CBTagShower.Size = New System.Drawing.Size(62, 17) +Me.CBTagShower.TabIndex = 211 +Me.CBTagShower.Text = "Shower" +Me.CBTagShower.UseVisualStyleBackColor = true ' -Me.CBTagPocketPussy.AutoSize = true -Me.CBTagPocketPussy.Enabled = false -Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) -Me.CBTagPocketPussy.Name = "CBTagPocketPussy" -Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) -Me.CBTagPocketPussy.TabIndex = 205 -Me.CBTagPocketPussy.Text = "Pocket Pussy" -Me.CBTagPocketPussy.UseVisualStyleBackColor = true +'TBLocalTagDir ' -'CBTagWatersports +Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBLocalTagDir.Name = "TBLocalTagDir" +Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBLocalTagDir.TabIndex = 233 +Me.TBLocalTagDir.Text = "Enter Image Directory" ' -Me.CBTagWatersports.AutoSize = true -Me.CBTagWatersports.Enabled = false -Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black -Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) -Me.CBTagWatersports.Name = "CBTagWatersports" -Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) -Me.CBTagWatersports.TabIndex = 218 -Me.CBTagWatersports.Text = "Watersports" -Me.CBTagWatersports.UseVisualStyleBackColor = true +'BTNLocalTagPrevious ' -'CBTagStockings +Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagPrevious.Enabled = false +Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" +Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagPrevious.TabIndex = 232 +Me.BTNLocalTagPrevious.Text = "<<" +Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false ' -Me.CBTagStockings.AutoSize = true -Me.CBTagStockings.Enabled = false -Me.CBTagStockings.ForeColor = System.Drawing.Color.Black -Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) -Me.CBTagStockings.Name = "CBTagStockings" -Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) -Me.CBTagStockings.TabIndex = 217 -Me.CBTagStockings.Text = "Stockings" -Me.CBTagStockings.UseVisualStyleBackColor = true +'BTNLocalTagNext ' -'CBTagCumshot +Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagNext.Enabled = false +Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNLocalTagNext.Name = "BTNLocalTagNext" +Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagNext.TabIndex = 231 +Me.BTNLocalTagNext.Text = ">>" +Me.BTNLocalTagNext.UseVisualStyleBackColor = false ' -Me.CBTagCumshot.AutoSize = true -Me.CBTagCumshot.Enabled = false -Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black -Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) -Me.CBTagCumshot.Name = "CBTagCumshot" -Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) -Me.CBTagCumshot.TabIndex = 206 -Me.CBTagCumshot.Text = "Cumshot" -Me.CBTagCumshot.UseVisualStyleBackColor = true +'LBLLocalTagCount +' +Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLLocalTagCount.Enabled = false +Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLLocalTagCount.Name = "LBLLocalTagCount" +Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLLocalTagCount.TabIndex = 230 +Me.LBLLocalTagCount.Text = "0/0" +Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagCumEating +'BTNLocalTagSave ' -Me.CBTagCumEating.AutoSize = true -Me.CBTagCumEating.Enabled = false -Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black -Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) -Me.CBTagCumEating.Name = "CBTagCumEating" -Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) -Me.CBTagCumEating.TabIndex = 204 -Me.CBTagCumEating.Text = "Cum Eating" -Me.CBTagCumEating.UseVisualStyleBackColor = true +Me.BTNLocalTagSave.Enabled = false +Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNLocalTagSave.Name = "BTNLocalTagSave" +Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNLocalTagSave.TabIndex = 229 +Me.BTNLocalTagSave.Text = "Finished" +Me.BTNLocalTagSave.UseVisualStyleBackColor = true ' -'CBTagVibrator +'BTNLocalTagDir ' -Me.CBTagVibrator.AutoSize = true -Me.CBTagVibrator.Enabled = false -Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black -Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) -Me.CBTagVibrator.Name = "CBTagVibrator" -Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) -Me.CBTagVibrator.TabIndex = 210 -Me.CBTagVibrator.Text = "Vibrator" -Me.CBTagVibrator.UseVisualStyleBackColor = true +Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNLocalTagDir.Name = "BTNLocalTagDir" +Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNLocalTagDir.TabIndex = 228 +Me.BTNLocalTagDir.Text = "1" +Me.BTNLocalTagDir.UseVisualStyleBackColor = true ' -'CBTagDildo +'TabPage11 ' -Me.CBTagDildo.AutoSize = true -Me.CBTagDildo.Enabled = false -Me.CBTagDildo.ForeColor = System.Drawing.Color.Black -Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) -Me.CBTagDildo.Name = "CBTagDildo" -Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) -Me.CBTagDildo.TabIndex = 213 -Me.CBTagDildo.Text = "Dildo" -Me.CBTagDildo.UseVisualStyleBackColor = true +Me.TabPage11.BackColor = System.Drawing.Color.Silver +Me.TabPage11.Controls.Add(Me.Panel7) +Me.TabPage11.Location = New System.Drawing.Point(4, 22) +Me.TabPage11.Name = "TabPage11" +Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage11.Size = New System.Drawing.Size(720, 448) +Me.TabPage11.TabIndex = 10 +Me.TabPage11.Text = "URL Files" ' -'CBTagKissing +'Panel7 ' -Me.CBTagKissing.AutoSize = true -Me.CBTagKissing.Enabled = false -Me.CBTagKissing.ForeColor = System.Drawing.Color.Black -Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) -Me.CBTagKissing.Name = "CBTagKissing" -Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) -Me.CBTagKissing.TabIndex = 203 -Me.CBTagKissing.Text = "Kissing" -Me.CBTagKissing.UseVisualStyleBackColor = true +Me.Panel7.BackColor = System.Drawing.Color.LightGray +Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel7.Controls.Add(Me.BTNWIContinue) +Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) +Me.Panel7.Controls.Add(Me.BTNWICancel) +Me.Panel7.Controls.Add(Me.CBWIReview) +Me.Panel7.Controls.Add(Me.BTNWIBrowse) +Me.Panel7.Controls.Add(Me.TBWIDirectory) +Me.Panel7.Controls.Add(Me.BTNWIDisliked) +Me.Panel7.Controls.Add(Me.BTNWILiked) +Me.Panel7.Controls.Add(Me.BTNWIRemove) +Me.Panel7.Controls.Add(Me.CBWISaveToDisk) +Me.Panel7.Controls.Add(Me.PictureBox5) +Me.Panel7.Controls.Add(Me.WebImageProgressBar) +Me.Panel7.Controls.Add(Me.BTNWICreateURL) +Me.Panel7.Controls.Add(Me.LBLWebImageCount) +Me.Panel7.Controls.Add(Me.BTNWISave) +Me.Panel7.Controls.Add(Me.BTNWIOpenURL) +Me.Panel7.Controls.Add(Me.BTNWIPrevious) +Me.Panel7.Controls.Add(Me.BTNWINext) +Me.Panel7.Controls.Add(Me.WebPictureBox) +Me.Panel7.Controls.Add(Me.Label71) +Me.Panel7.Location = New System.Drawing.Point(6, 6) +Me.Panel7.Name = "Panel7" +Me.Panel7.Size = New System.Drawing.Size(708, 437) +Me.Panel7.TabIndex = 91 ' -'GroupBox51 +'BTNWIContinue ' -Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) -Me.GroupBox51.Controls.Add(Me.CBTagGag) -Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) -Me.GroupBox51.Controls.Add(Me.CBTagWhipping) -Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) -Me.GroupBox51.Controls.Add(Me.CBTagElectro) -Me.GroupBox51.Controls.Add(Me.CBTagHotWax) -Me.GroupBox51.Controls.Add(Me.CBTagClamps) -Me.GroupBox51.Controls.Add(Me.CBTagStrapon) -Me.GroupBox51.Controls.Add(Me.CBTagSpanking) -Me.GroupBox51.Controls.Add(Me.CBTagNeedles) -Me.GroupBox51.Location = New System.Drawing.Point(450, 37) -Me.GroupBox51.Name = "GroupBox51" -Me.GroupBox51.Size = New System.Drawing.Size(105, 238) -Me.GroupBox51.TabIndex = 238 -Me.GroupBox51.TabStop = false -Me.GroupBox51.Text = "BDSM" +Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIContinue.Enabled = false +Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) +Me.BTNWIContinue.Name = "BTNWIContinue" +Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIContinue.TabIndex = 168 +Me.BTNWIContinue.Text = "Continue" +Me.BTNWIContinue.UseVisualStyleBackColor = false ' -'CBTagBallTorture +'BTNWIAddandContinue ' -Me.CBTagBallTorture.AutoSize = true -Me.CBTagBallTorture.Enabled = false -Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) -Me.CBTagBallTorture.Name = "CBTagBallTorture" -Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) -Me.CBTagBallTorture.TabIndex = 220 -Me.CBTagBallTorture.Text = "Ball Torture" -Me.CBTagBallTorture.UseVisualStyleBackColor = true +Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIAddandContinue.Enabled = false +Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) +Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" +Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIAddandContinue.TabIndex = 167 +Me.BTNWIAddandContinue.Text = "Add and Continue" +Me.BTNWIAddandContinue.UseVisualStyleBackColor = false ' -'CBTagGag +'BTNWICancel ' -Me.CBTagGag.AutoSize = true -Me.CBTagGag.Enabled = false -Me.CBTagGag.ForeColor = System.Drawing.Color.Black -Me.CBTagGag.Location = New System.Drawing.Point(15, 137) -Me.CBTagGag.Name = "CBTagGag" -Me.CBTagGag.Size = New System.Drawing.Size(46, 17) -Me.CBTagGag.TabIndex = 214 -Me.CBTagGag.Text = "Gag" -Me.CBTagGag.UseVisualStyleBackColor = true +Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray +Me.BTNWICancel.Enabled = false +Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICancel.ForeColor = System.Drawing.Color.Black +Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) +Me.BTNWICancel.Name = "BTNWICancel" +Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) +Me.BTNWICancel.TabIndex = 166 +Me.BTNWICancel.Text = "Cancel" +Me.BTNWICancel.UseVisualStyleBackColor = false ' -'CBTagBlindfold +'CBWIReview ' -Me.CBTagBlindfold.AutoSize = true -Me.CBTagBlindfold.Enabled = false -Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black -Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) -Me.CBTagBlindfold.Name = "CBTagBlindfold" -Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) -Me.CBTagBlindfold.TabIndex = 208 -Me.CBTagBlindfold.Text = "Blindfold" -Me.CBTagBlindfold.UseVisualStyleBackColor = true +Me.CBWIReview.Location = New System.Drawing.Point(567, 69) +Me.CBWIReview.Name = "CBWIReview" +Me.CBWIReview.Size = New System.Drawing.Size(124, 30) +Me.CBWIReview.TabIndex = 165 +Me.CBWIReview.Text = "Review Each Image" +Me.CBWIReview.UseVisualStyleBackColor = true ' -'CBTagWhipping +'BTNWIBrowse ' -Me.CBTagWhipping.AutoSize = true -Me.CBTagWhipping.Enabled = false -Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black -Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) -Me.CBTagWhipping.Name = "CBTagWhipping" -Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) -Me.CBTagWhipping.TabIndex = 203 -Me.CBTagWhipping.Text = "Whipping" -Me.CBTagWhipping.UseVisualStyleBackColor = true +Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray +Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black +Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) +Me.BTNWIBrowse.Name = "BTNWIBrowse" +Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) +Me.BTNWIBrowse.TabIndex = 163 +Me.BTNWIBrowse.Text = "Browse" +Me.BTNWIBrowse.UseVisualStyleBackColor = false ' -'CBTagCockTorture +'TBWIDirectory ' -Me.CBTagCockTorture.AutoSize = true -Me.CBTagCockTorture.Enabled = false -Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) -Me.CBTagCockTorture.Name = "CBTagCockTorture" -Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) -Me.CBTagCockTorture.TabIndex = 204 -Me.CBTagCockTorture.Text = "Cock Torture" -Me.CBTagCockTorture.UseVisualStyleBackColor = true +Me.TBWIDirectory.BackColor = System.Drawing.Color.White +Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black +Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) +Me.TBWIDirectory.Name = "TBWIDirectory" +Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) +Me.TBWIDirectory.TabIndex = 164 +Me.TBWIDirectory.Text = "Saved Image Directory" ' -'CBTagElectro +'BTNWIDisliked ' -Me.CBTagElectro.AutoSize = true -Me.CBTagElectro.Enabled = false -Me.CBTagElectro.ForeColor = System.Drawing.Color.Black -Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) -Me.CBTagElectro.Name = "CBTagElectro" -Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) -Me.CBTagElectro.TabIndex = 207 -Me.CBTagElectro.Text = "Electro" -Me.CBTagElectro.UseVisualStyleBackColor = true +Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray +Me.BTNWIDisliked.Enabled = false +Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black +Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) +Me.BTNWIDisliked.Name = "BTNWIDisliked" +Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) +Me.BTNWIDisliked.TabIndex = 162 +Me.BTNWIDisliked.Text = "Add to Disliked Images" +Me.BTNWIDisliked.UseVisualStyleBackColor = false ' -'CBTagHotWax +'BTNWILiked ' -Me.CBTagHotWax.AutoSize = true -Me.CBTagHotWax.Enabled = false -Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black -Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) -Me.CBTagHotWax.Name = "CBTagHotWax" -Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) -Me.CBTagHotWax.TabIndex = 213 -Me.CBTagHotWax.Text = "Hot Wax" -Me.CBTagHotWax.UseVisualStyleBackColor = true +Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray +Me.BTNWILiked.Enabled = false +Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWILiked.ForeColor = System.Drawing.Color.Black +Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) +Me.BTNWILiked.Name = "BTNWILiked" +Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) +Me.BTNWILiked.TabIndex = 161 +Me.BTNWILiked.Text = "Add to Liked Images" +Me.BTNWILiked.UseVisualStyleBackColor = false ' -'CBTagClamps +'BTNWIRemove ' -Me.CBTagClamps.AutoSize = true -Me.CBTagClamps.Enabled = false -Me.CBTagClamps.ForeColor = System.Drawing.Color.Black -Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) -Me.CBTagClamps.Name = "CBTagClamps" -Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) -Me.CBTagClamps.TabIndex = 210 -Me.CBTagClamps.Text = "Clamps" -Me.CBTagClamps.UseVisualStyleBackColor = true +Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray +Me.BTNWIRemove.Enabled = false +Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black +Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) +Me.BTNWIRemove.Name = "BTNWIRemove" +Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) +Me.BTNWIRemove.TabIndex = 160 +Me.BTNWIRemove.Text = "Remove From URL File" +Me.BTNWIRemove.UseVisualStyleBackColor = false ' -'CBTagStrapon +'CBWISaveToDisk ' -Me.CBTagStrapon.AutoSize = true -Me.CBTagStrapon.Enabled = false -Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black -Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) -Me.CBTagStrapon.Name = "CBTagStrapon" -Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) -Me.CBTagStrapon.TabIndex = 205 -Me.CBTagStrapon.Text = "Strap-on" -Me.CBTagStrapon.UseVisualStyleBackColor = true +Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) +Me.CBWISaveToDisk.Name = "CBWISaveToDisk" +Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) +Me.CBWISaveToDisk.TabIndex = 157 +Me.CBWISaveToDisk.Text = "Save Images to Disk" +Me.CBWISaveToDisk.UseVisualStyleBackColor = true ' -'CBTagSpanking +'PictureBox5 ' -Me.CBTagSpanking.AutoSize = true -Me.CBTagSpanking.Enabled = false -Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black -Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) -Me.CBTagSpanking.Name = "CBTagSpanking" -Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) -Me.CBTagSpanking.TabIndex = 206 -Me.CBTagSpanking.Text = "Spanking" -Me.CBTagSpanking.UseVisualStyleBackColor = true +Me.PictureBox5.BackColor = System.Drawing.Color.LightGray +Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox5.Location = New System.Drawing.Point(9, 6) +Me.PictureBox5.Name = "PictureBox5" +Me.PictureBox5.Size = New System.Drawing.Size(160, 19) +Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox5.TabIndex = 156 +Me.PictureBox5.TabStop = false ' -'CBTagNeedles +'WebImageProgressBar ' -Me.CBTagNeedles.AutoSize = true -Me.CBTagNeedles.Enabled = false -Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black -Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) -Me.CBTagNeedles.Name = "CBTagNeedles" -Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) -Me.CBTagNeedles.TabIndex = 209 -Me.CBTagNeedles.Text = "Needles" -Me.CBTagNeedles.UseVisualStyleBackColor = true +Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) +Me.WebImageProgressBar.Maximum = 2500 +Me.WebImageProgressBar.Name = "WebImageProgressBar" +Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) +Me.WebImageProgressBar.TabIndex = 155 ' -'GroupBox50 +'BTNWICreateURL ' -Me.GroupBox50.Controls.Add(Me.CBTagRimming) -Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) -Me.GroupBox50.Controls.Add(Me.CBTagMissionary) -Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) -Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagFingering) -Me.GroupBox50.Controls.Add(Me.CBTagGangbang) -Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) -Me.GroupBox50.Controls.Add(Me.CBTagDP) -Me.GroupBox50.Controls.Add(Me.CBTagHandjob) -Me.GroupBox50.Controls.Add(Me.CBTagStanding) -Me.GroupBox50.Controls.Add(Me.CBTagFootjob) -Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) -Me.GroupBox50.Controls.Add(Me.CBTagTitjob) -Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) -Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) -Me.GroupBox50.Location = New System.Drawing.Point(119, 37) -Me.GroupBox50.Name = "GroupBox50" -Me.GroupBox50.Size = New System.Drawing.Size(105, 358) -Me.GroupBox50.TabIndex = 237 -Me.GroupBox50.TabStop = false -Me.GroupBox50.Text = "Sex" +Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black +Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) +Me.BTNWICreateURL.Name = "BTNWICreateURL" +Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWICreateURL.TabIndex = 154 +Me.BTNWICreateURL.Text = "Create URL File" +Me.BTNWICreateURL.UseVisualStyleBackColor = false ' -'CBTagRimming +'LBLWebImageCount ' -Me.CBTagRimming.AutoSize = true -Me.CBTagRimming.Enabled = false -Me.CBTagRimming.ForeColor = System.Drawing.Color.Black -Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) -Me.CBTagRimming.Name = "CBTagRimming" -Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) -Me.CBTagRimming.TabIndex = 219 -Me.CBTagRimming.Text = "Rimming" -Me.CBTagRimming.UseVisualStyleBackColor = true +Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent +Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black +Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) +Me.LBLWebImageCount.Name = "LBLWebImageCount" +Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) +Me.LBLWebImageCount.TabIndex = 153 +Me.LBLWebImageCount.Text = "0/0" +Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagFacesitting +'BTNWISave ' -Me.CBTagFacesitting.AutoSize = true -Me.CBTagFacesitting.Enabled = false -Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black -Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) -Me.CBTagFacesitting.Name = "CBTagFacesitting" -Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) -Me.CBTagFacesitting.TabIndex = 226 -Me.CBTagFacesitting.Text = "Facesitting" -Me.CBTagFacesitting.UseVisualStyleBackColor = true +Me.BTNWISave.BackColor = System.Drawing.Color.LightGray +Me.BTNWISave.Enabled = false +Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWISave.ForeColor = System.Drawing.Color.Black +Me.BTNWISave.Location = New System.Drawing.Point(567, 401) +Me.BTNWISave.Name = "BTNWISave" +Me.BTNWISave.Size = New System.Drawing.Size(131, 24) +Me.BTNWISave.TabIndex = 152 +Me.BTNWISave.Text = "Save Image to Disk" +Me.BTNWISave.UseVisualStyleBackColor = false ' -'CBTagMissionary +'BTNWIOpenURL ' -Me.CBTagMissionary.AutoSize = true -Me.CBTagMissionary.Enabled = false -Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black -Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) -Me.CBTagMissionary.Name = "CBTagMissionary" -Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) -Me.CBTagMissionary.TabIndex = 208 -Me.CBTagMissionary.Text = "Missionary" -Me.CBTagMissionary.UseVisualStyleBackColor = true +Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black +Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) +Me.BTNWIOpenURL.Name = "BTNWIOpenURL" +Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWIOpenURL.TabIndex = 151 +Me.BTNWIOpenURL.Text = "Open URL File" +Me.BTNWIOpenURL.UseVisualStyleBackColor = false ' -'CBTagMasturbation +'BTNWIPrevious ' -Me.CBTagMasturbation.AutoSize = true -Me.CBTagMasturbation.Enabled = false -Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) -Me.CBTagMasturbation.Name = "CBTagMasturbation" -Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbation.TabIndex = 203 -Me.CBTagMasturbation.Text = "Masturbation" -Me.CBTagMasturbation.UseVisualStyleBackColor = true +Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNWIPrevious.Enabled = false +Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) +Me.BTNWIPrevious.Name = "BTNWIPrevious" +Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNWIPrevious.TabIndex = 149 +Me.BTNWIPrevious.Text = "<<" +Me.BTNWIPrevious.UseVisualStyleBackColor = false ' -'CBTagRCowgirl +'BTNWINext ' -Me.CBTagRCowgirl.AutoSize = true -Me.CBTagRCowgirl.Enabled = false -Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) -Me.CBTagRCowgirl.Name = "CBTagRCowgirl" -Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) -Me.CBTagRCowgirl.TabIndex = 218 -Me.CBTagRCowgirl.Text = "R. Cowgirl" -Me.CBTagRCowgirl.UseVisualStyleBackColor = true +Me.BTNWINext.BackColor = System.Drawing.Color.LightGray +Me.BTNWINext.Enabled = false +Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWINext.ForeColor = System.Drawing.Color.Black +Me.BTNWINext.Location = New System.Drawing.Point(651, 282) +Me.BTNWINext.Name = "BTNWINext" +Me.BTNWINext.Size = New System.Drawing.Size(47, 24) +Me.BTNWINext.TabIndex = 150 +Me.BTNWINext.Text = ">>" +Me.BTNWINext.UseVisualStyleBackColor = false ' -'CBTagFingering +'WebPictureBox ' -Me.CBTagFingering.AutoSize = true -Me.CBTagFingering.Enabled = false -Me.CBTagFingering.ForeColor = System.Drawing.Color.Black -Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) -Me.CBTagFingering.Name = "CBTagFingering" -Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) -Me.CBTagFingering.TabIndex = 204 -Me.CBTagFingering.Text = "Fingering" -Me.CBTagFingering.UseVisualStyleBackColor = true +Me.WebPictureBox.BackColor = System.Drawing.Color.Black +Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) +Me.WebPictureBox.Name = "WebPictureBox" +Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) +Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WebPictureBox.TabIndex = 148 +Me.WebPictureBox.TabStop = false ' -'CBTagGangbang +'Label71 ' -Me.CBTagGangbang.AutoSize = true -Me.CBTagGangbang.Enabled = false -Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black -Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) -Me.CBTagGangbang.Name = "CBTagGangbang" -Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) -Me.CBTagGangbang.TabIndex = 217 -Me.CBTagGangbang.Text = "Gangbang" -Me.CBTagGangbang.UseVisualStyleBackColor = true +Me.Label71.BackColor = System.Drawing.Color.Transparent +Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label71.ForeColor = System.Drawing.Color.Black +Me.Label71.Location = New System.Drawing.Point(7, 6) +Me.Label71.Name = "Label71" +Me.Label71.Size = New System.Drawing.Size(692, 21) +Me.Label71.TabIndex = 48 +Me.Label71.Text = "URL Files" +Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagBlowjob +'TpVideoSettings ' -Me.CBTagBlowjob.AutoSize = true -Me.CBTagBlowjob.Enabled = false -Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) -Me.CBTagBlowjob.Name = "CBTagBlowjob" -Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBTagBlowjob.TabIndex = 205 -Me.CBTagBlowjob.Text = "Blowjob" -Me.CBTagBlowjob.UseVisualStyleBackColor = true +Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver +Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) +Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) +Me.TpVideoSettings.Name = "TpVideoSettings" +Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) +Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) +Me.TpVideoSettings.TabIndex = 2 +Me.TpVideoSettings.Text = "Video" ' -'CBTagDP +'PnlVideoSettings ' -Me.CBTagDP.AutoSize = true -Me.CBTagDP.Enabled = false -Me.CBTagDP.ForeColor = System.Drawing.Color.Black -Me.CBTagDP.Location = New System.Drawing.Point(15, 317) -Me.CBTagDP.Name = "CBTagDP" -Me.CBTagDP.Size = New System.Drawing.Size(41, 17) -Me.CBTagDP.TabIndex = 216 -Me.CBTagDP.Text = "DP" -Me.CBTagDP.UseVisualStyleBackColor = true +Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) +Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) +Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) +Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill +Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) +Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) +Me.PnlVideoSettings.Name = "PnlVideoSettings" +Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) +Me.PnlVideoSettings.TabIndex = 92 ' -'CBTagHandjob +'PbBannerVideoSettings ' -Me.CBTagHandjob.AutoSize = true -Me.CBTagHandjob.Enabled = false -Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black -Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) -Me.CBTagHandjob.Name = "CBTagHandjob" -Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) -Me.CBTagHandjob.TabIndex = 206 -Me.CBTagHandjob.Text = "Handjob" -Me.CBTagHandjob.UseVisualStyleBackColor = true +Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) +Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" +Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) +Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PbBannerVideoSettings.TabIndex = 151 +Me.PbBannerVideoSettings.TabStop = false ' -'CBTagStanding +'BTNRefreshVideos ' -Me.CBTagStanding.AutoSize = true -Me.CBTagStanding.Enabled = false -Me.CBTagStanding.ForeColor = System.Drawing.Color.Black -Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) -Me.CBTagStanding.Name = "CBTagStanding" -Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) -Me.CBTagStanding.TabIndex = 215 -Me.CBTagStanding.Text = "Standing" -Me.CBTagStanding.UseVisualStyleBackColor = true +Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray +Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh +Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom +Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 +Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black +Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) +Me.BTNRefreshVideos.Name = "BTNRefreshVideos" +Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) +Me.BTNRefreshVideos.TabIndex = 149 +Me.BTNRefreshVideos.UseVisualStyleBackColor = false ' -'CBTagFootjob +'GbxVideoGeneralD ' -Me.CBTagFootjob.AutoSize = true -Me.CBTagFootjob.Enabled = false -Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black -Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) -Me.CBTagFootjob.Name = "CBTagFootjob" -Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) -Me.CBTagFootjob.TabIndex = 207 -Me.CBTagFootjob.Text = "Footjob" -Me.CBTagFootjob.UseVisualStyleBackColor = true +Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) +Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) +Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) +Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" +Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneralD.TabIndex = 5 +Me.GbxVideoGeneralD.TabStop = false +Me.GbxVideoGeneralD.Text = "Domme General" ' -'CBTagCowgirl +'LblVideoGeneralTotalD ' -Me.CBTagCowgirl.AutoSize = true -Me.CBTagCowgirl.Enabled = false -Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) -Me.CBTagCowgirl.Name = "CBTagCowgirl" -Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) -Me.CBTagCowgirl.TabIndex = 214 -Me.CBTagCowgirl.Text = "Cowgirl" -Me.CBTagCowgirl.UseVisualStyleBackColor = true +Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" +Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotalD.TabIndex = 3 +Me.LblVideoGeneralTotalD.Text = "0" +Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagDoggyStyle +'BTNVideoGeneralD ' -Me.CBTagDoggyStyle.AutoSize = true -Me.CBTagDoggyStyle.Enabled = false -Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black -Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) -Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" -Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) -Me.CBTagDoggyStyle.TabIndex = 209 -Me.CBTagDoggyStyle.Text = "Doggy Style" -Me.CBTagDoggyStyle.UseVisualStyleBackColor = true +Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" +Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneralD.TabIndex = 1 +Me.BTNVideoGeneralD.Text = "1" +Me.BTNVideoGeneralD.UseVisualStyleBackColor = false ' -'CBTagTitjob +'GbxVideoSpecialD ' -Me.CBTagTitjob.AutoSize = true -Me.CBTagTitjob.Enabled = false -Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black -Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) -Me.CBTagTitjob.Name = "CBTagTitjob" -Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) -Me.CBTagTitjob.TabIndex = 213 -Me.CBTagTitjob.Text = "Titjob" -Me.CBTagTitjob.UseVisualStyleBackColor = true +Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) +Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) +Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" +Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecialD.TabIndex = 4 +Me.GbxVideoSpecialD.TabStop = false +Me.GbxVideoSpecialD.Text = "Domme Special" ' -'CBTagCunnilingus +'LblVideoCHTotalD ' -Me.CBTagCunnilingus.AutoSize = true -Me.CBTagCunnilingus.Enabled = false -Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black -Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) -Me.CBTagCunnilingus.Name = "CBTagCunnilingus" -Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) -Me.CBTagCunnilingus.TabIndex = 210 -Me.CBTagCunnilingus.Text = "Cunnilingus" -Me.CBTagCunnilingus.UseVisualStyleBackColor = true +Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) +Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" +Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotalD.TabIndex = 7 +Me.LblVideoCHTotalD.Text = "0" +Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagAnalSex +'LblVideoJOITotalD ' -Me.CBTagAnalSex.AutoSize = true -Me.CBTagAnalSex.Enabled = false -Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) -Me.CBTagAnalSex.Name = "CBTagAnalSex" -Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalSex.TabIndex = 212 -Me.CBTagAnalSex.Text = "Anal Sex" -Me.CBTagAnalSex.UseVisualStyleBackColor = true +Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" +Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotalD.TabIndex = 3 +Me.LblVideoJOITotalD.Text = "0" +Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox48 +'BTNVideoCHD ' -Me.GroupBox48.Controls.Add(Me.CBTagArtwork) -Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) -Me.GroupBox48.Controls.Add(Me.CBTagPOV) -Me.GroupBox48.Controls.Add(Me.CBTagHardcore) -Me.GroupBox48.Controls.Add(Me.CBTagTD) -Me.GroupBox48.Controls.Add(Me.CBTagGay) -Me.GroupBox48.Controls.Add(Me.CBTagBath) -Me.GroupBox48.Controls.Add(Me.CBTagBisexual) -Me.GroupBox48.Controls.Add(Me.CBTagCFNM) -Me.GroupBox48.Controls.Add(Me.CBTagLesbian) -Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) -Me.GroupBox48.Controls.Add(Me.CBTagSM) -Me.GroupBox48.Controls.Add(Me.CBTagBondage) -Me.GroupBox48.Controls.Add(Me.CBTagSoloM) -Me.GroupBox48.Controls.Add(Me.CBTagSoloF) -Me.GroupBox48.Controls.Add(Me.CBTagChastity) -Me.GroupBox48.Controls.Add(Me.CBTagShower) -Me.GroupBox48.Location = New System.Drawing.Point(8, 37) -Me.GroupBox48.Name = "GroupBox48" -Me.GroupBox48.Size = New System.Drawing.Size(105, 358) -Me.GroupBox48.TabIndex = 235 -Me.GroupBox48.TabStop = false -Me.GroupBox48.Text = "Category" +Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCHD.Name = "BTNVideoCHD" +Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCHD.TabIndex = 5 +Me.BTNVideoCHD.Text = "1" +Me.BTNVideoCHD.UseVisualStyleBackColor = false ' -'CBTagArtwork +'BTNVideoJOID ' -Me.CBTagArtwork.AutoSize = true -Me.CBTagArtwork.Enabled = false -Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black -Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) -Me.CBTagArtwork.Name = "CBTagArtwork" -Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) -Me.CBTagArtwork.TabIndex = 225 -Me.CBTagArtwork.Text = "Artwork" -Me.CBTagArtwork.UseVisualStyleBackColor = true +Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOID.Name = "BTNVideoJOID" +Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOID.TabIndex = 1 +Me.BTNVideoJOID.Text = "1" +Me.BTNVideoJOID.UseVisualStyleBackColor = false ' -'CBTagOutdoors +'GbxVideoGenreD ' -Me.CBTagOutdoors.AutoSize = true -Me.CBTagOutdoors.Enabled = false -Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black -Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) -Me.CBTagOutdoors.Name = "CBTagOutdoors" -Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) -Me.CBTagOutdoors.TabIndex = 219 -Me.CBTagOutdoors.Text = "Outdoors" -Me.CBTagOutdoors.UseVisualStyleBackColor = true +Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) +Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) +Me.GbxVideoGenreD.Name = "GbxVideoGenreD" +Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenreD.TabIndex = 3 +Me.GbxVideoGenreD.TabStop = false +Me.GbxVideoGenreD.Text = "Domme Genre" ' -'CBTagPOV +'LblVideoFemsubTotalD ' -Me.CBTagPOV.AutoSize = true -Me.CBTagPOV.Enabled = false -Me.CBTagPOV.ForeColor = System.Drawing.Color.Black -Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) -Me.CBTagPOV.Name = "CBTagPOV" -Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) -Me.CBTagPOV.TabIndex = 208 -Me.CBTagPOV.Text = "POV" -Me.CBTagPOV.UseVisualStyleBackColor = true +Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" +Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotalD.TabIndex = 23 +Me.LblVideoFemsubTotalD.Text = "0" +Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagHardcore +'LblVideoFemdomTotalD ' -Me.CBTagHardcore.AutoSize = true -Me.CBTagHardcore.Enabled = false -Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black -Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) -Me.CBTagHardcore.Name = "CBTagHardcore" -Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBTagHardcore.TabIndex = 203 -Me.CBTagHardcore.Text = "Hardcore" -Me.CBTagHardcore.UseVisualStyleBackColor = true +Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" +Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotalD.TabIndex = 19 +Me.LblVideoFemdomTotalD.Text = "0" +Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagTD +'LblVideoBlowjobTotalD ' -Me.CBTagTD.AutoSize = true -Me.CBTagTD.Enabled = false -Me.CBTagTD.ForeColor = System.Drawing.Color.Black -Me.CBTagTD.Location = New System.Drawing.Point(15, 217) -Me.CBTagTD.Name = "CBTagTD" -Me.CBTagTD.Size = New System.Drawing.Size(47, 17) -Me.CBTagTD.TabIndex = 218 -Me.CBTagTD.Text = "T&&D" -Me.CBTagTD.UseVisualStyleBackColor = true +Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" +Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotalD.TabIndex = 15 +Me.LblVideoBlowjobTotalD.Text = "0" +Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagGay +'LblVideoLesbianTotalD ' -Me.CBTagGay.AutoSize = true -Me.CBTagGay.Enabled = false -Me.CBTagGay.ForeColor = System.Drawing.Color.Black -Me.CBTagGay.Location = New System.Drawing.Point(15, 57) -Me.CBTagGay.Name = "CBTagGay" -Me.CBTagGay.Size = New System.Drawing.Size(45, 17) -Me.CBTagGay.TabIndex = 204 -Me.CBTagGay.Text = "Gay" -Me.CBTagGay.UseVisualStyleBackColor = true +Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" +Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotalD.TabIndex = 11 +Me.LblVideoLesbianTotalD.Text = "0" +Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagBath +'BTNVideoFemSubD ' -Me.CBTagBath.AutoSize = true -Me.CBTagBath.Enabled = false -Me.CBTagBath.ForeColor = System.Drawing.Color.Black -Me.CBTagBath.Location = New System.Drawing.Point(15, 277) -Me.CBTagBath.Name = "CBTagBath" -Me.CBTagBath.Size = New System.Drawing.Size(48, 17) -Me.CBTagBath.TabIndex = 217 -Me.CBTagBath.Text = "Bath" -Me.CBTagBath.UseVisualStyleBackColor = true +Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" +Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSubD.TabIndex = 21 +Me.BTNVideoFemSubD.Text = "1" +Me.BTNVideoFemSubD.UseVisualStyleBackColor = false ' -'CBTagBisexual +'LblVideoSoftCoreTotalD ' -Me.CBTagBisexual.AutoSize = true -Me.CBTagBisexual.Enabled = false -Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black -Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) -Me.CBTagBisexual.Name = "CBTagBisexual" -Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) -Me.CBTagBisexual.TabIndex = 205 -Me.CBTagBisexual.Text = "Bisexual" -Me.CBTagBisexual.UseVisualStyleBackColor = true +Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" +Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotalD.TabIndex = 7 +Me.LblVideoSoftCoreTotalD.Text = "0" +Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagCFNM +'BTNVideoFemDomD ' -Me.CBTagCFNM.AutoSize = true -Me.CBTagCFNM.Enabled = false -Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black -Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) -Me.CBTagCFNM.Name = "CBTagCFNM" -Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) -Me.CBTagCFNM.TabIndex = 216 -Me.CBTagCFNM.Text = "CFNM" -Me.CBTagCFNM.UseVisualStyleBackColor = true +Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" +Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDomD.TabIndex = 17 +Me.BTNVideoFemDomD.Text = "1" +Me.BTNVideoFemDomD.UseVisualStyleBackColor = false ' -'CBTagLesbian +'BTNVideoBlowjobD ' -Me.CBTagLesbian.AutoSize = true -Me.CBTagLesbian.Enabled = false -Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black -Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) -Me.CBTagLesbian.Name = "CBTagLesbian" -Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBTagLesbian.TabIndex = 206 -Me.CBTagLesbian.Text = "Lesbian" -Me.CBTagLesbian.UseVisualStyleBackColor = true +Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" +Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjobD.TabIndex = 13 +Me.BTNVideoBlowjobD.Text = "1" +Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false ' -'CBTagSoloFuta +'LblVideoHardCoreTotalD ' -Me.CBTagSoloFuta.AutoSize = true -Me.CBTagSoloFuta.Enabled = false -Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) -Me.CBTagSoloFuta.Name = "CBTagSoloFuta" -Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) -Me.CBTagSoloFuta.TabIndex = 207 -Me.CBTagSoloFuta.Text = "Solo Futa" -Me.CBTagSoloFuta.UseVisualStyleBackColor = true +Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" +Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotalD.TabIndex = 3 +Me.LblVideoHardCoreTotalD.Text = "0" +Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagSM +'BTNVideoLesbianD ' -Me.CBTagSM.AutoSize = true -Me.CBTagSM.Enabled = false -Me.CBTagSM.ForeColor = System.Drawing.Color.Black -Me.CBTagSM.Location = New System.Drawing.Point(15, 197) -Me.CBTagSM.Name = "CBTagSM" -Me.CBTagSM.Size = New System.Drawing.Size(48, 17) -Me.CBTagSM.TabIndex = 214 -Me.CBTagSM.Text = "S&&M" -Me.CBTagSM.UseVisualStyleBackColor = true +Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" +Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbianD.TabIndex = 9 +Me.BTNVideoLesbianD.Text = "1" +Me.BTNVideoLesbianD.UseVisualStyleBackColor = false ' -'CBTagBondage +'BTNVideoSoftCoreD ' -Me.CBTagBondage.AutoSize = true -Me.CBTagBondage.Enabled = false -Me.CBTagBondage.ForeColor = System.Drawing.Color.Black -Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) -Me.CBTagBondage.Name = "CBTagBondage" -Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) -Me.CBTagBondage.TabIndex = 209 -Me.CBTagBondage.Text = "Bondage" -Me.CBTagBondage.UseVisualStyleBackColor = true +Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" +Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCoreD.TabIndex = 5 +Me.BTNVideoSoftCoreD.Text = "1" +Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false ' -'CBTagSoloM +'BTNVideoHardCoreD ' -Me.CBTagSoloM.AutoSize = true -Me.CBTagSoloM.Enabled = false -Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) -Me.CBTagSoloM.Name = "CBTagSoloM" -Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) -Me.CBTagSoloM.TabIndex = 213 -Me.CBTagSoloM.Text = "Solo M" -Me.CBTagSoloM.UseVisualStyleBackColor = true +Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" +Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCoreD.TabIndex = 1 +Me.BTNVideoHardCoreD.Text = "1" +Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false ' -'CBTagSoloF +'GbxVideoDescription ' -Me.CBTagSoloF.AutoSize = true -Me.CBTagSoloF.Enabled = false -Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) -Me.CBTagSoloF.Name = "CBTagSoloF" -Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) -Me.CBTagSoloF.TabIndex = 210 -Me.CBTagSoloF.Text = "Solo F" -Me.CBTagSoloF.UseVisualStyleBackColor = true +Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) +Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black +Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) +Me.GbxVideoDescription.Name = "GbxVideoDescription" +Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) +Me.GbxVideoDescription.TabIndex = 6 +Me.GbxVideoDescription.TabStop = false +Me.GbxVideoDescription.Text = "Description" ' -'CBTagChastity +'VideoDescriptionLabel ' -Me.CBTagChastity.AutoSize = true -Me.CBTagChastity.Enabled = false -Me.CBTagChastity.ForeColor = System.Drawing.Color.Black -Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) -Me.CBTagChastity.Name = "CBTagChastity" -Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) -Me.CBTagChastity.TabIndex = 212 -Me.CBTagChastity.Text = "Chastity" -Me.CBTagChastity.UseVisualStyleBackColor = true +Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent +Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black +Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) +Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" +Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) +Me.VideoDescriptionLabel.TabIndex = 62 +Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ + "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ + "using as your domme." +Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagShower +'GbxVideoGeneral ' -Me.CBTagShower.AutoSize = true -Me.CBTagShower.Enabled = false -Me.CBTagShower.ForeColor = System.Drawing.Color.Black -Me.CBTagShower.Location = New System.Drawing.Point(15, 297) -Me.CBTagShower.Name = "CBTagShower" -Me.CBTagShower.Size = New System.Drawing.Size(62, 17) -Me.CBTagShower.TabIndex = 211 -Me.CBTagShower.Text = "Shower" -Me.CBTagShower.UseVisualStyleBackColor = true +Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) +Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) +Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) +Me.GbxVideoGeneral.Name = "GbxVideoGeneral" +Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneral.TabIndex = 2 +Me.GbxVideoGeneral.TabStop = false +Me.GbxVideoGeneral.Text = "General" ' -'TBLocalTagDir +'LblVideoGeneralTotal ' -Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBLocalTagDir.Name = "TBLocalTagDir" -Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBLocalTagDir.TabIndex = 233 -Me.TBLocalTagDir.Text = "Enter Image Directory" +Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" +Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotal.TabIndex = 3 +Me.LblVideoGeneralTotal.Text = "0" +Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNLocalTagPrevious +'BTNVideoGeneral ' -Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagPrevious.Enabled = false -Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" -Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagPrevious.TabIndex = 232 -Me.BTNLocalTagPrevious.Text = "<<" -Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false +Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneral.Name = "BTNVideoGeneral" +Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneral.TabIndex = 1 +Me.BTNVideoGeneral.Text = "1" +Me.BTNVideoGeneral.UseVisualStyleBackColor = false ' -'BTNLocalTagNext +'GbxVideoSpecial ' -Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagNext.Enabled = false -Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNLocalTagNext.Name = "BTNLocalTagNext" -Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagNext.TabIndex = 231 -Me.BTNLocalTagNext.Text = ">>" -Me.BTNLocalTagNext.UseVisualStyleBackColor = false +Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) +Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) +Me.GbxVideoSpecial.Name = "GbxVideoSpecial" +Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecial.TabIndex = 1 +Me.GbxVideoSpecial.TabStop = false +Me.GbxVideoSpecial.Text = "Special" ' -'LBLLocalTagCount +'LblVideoCHTotal ' -Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLLocalTagCount.Enabled = false -Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLLocalTagCount.Name = "LBLLocalTagCount" -Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLLocalTagCount.TabIndex = 230 -Me.LBLLocalTagCount.Text = "0/0" -Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) +Me.LblVideoCHTotal.Name = "LblVideoCHTotal" +Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotal.TabIndex = 7 +Me.LblVideoCHTotal.Text = "0" +Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNLocalTagSave +'LblVideoJOITotal ' -Me.BTNLocalTagSave.Enabled = false -Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNLocalTagSave.Name = "BTNLocalTagSave" -Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNLocalTagSave.TabIndex = 229 -Me.BTNLocalTagSave.Text = "Finished" -Me.BTNLocalTagSave.UseVisualStyleBackColor = true +Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) +Me.LblVideoJOITotal.Name = "LblVideoJOITotal" +Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotal.TabIndex = 3 +Me.LblVideoJOITotal.Text = "0" +Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNLocalTagDir +'BTNVideoCH ' -Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNLocalTagDir.Name = "BTNLocalTagDir" -Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNLocalTagDir.TabIndex = 228 -Me.BTNLocalTagDir.Text = "1" -Me.BTNLocalTagDir.UseVisualStyleBackColor = true +Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCH.Name = "BTNVideoCH" +Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCH.TabIndex = 5 +Me.BTNVideoCH.Text = "1" +Me.BTNVideoCH.UseVisualStyleBackColor = false ' -'TabPage11 +'BTNVideoJOI ' -Me.TabPage11.BackColor = System.Drawing.Color.Silver -Me.TabPage11.Controls.Add(Me.Panel7) -Me.TabPage11.Location = New System.Drawing.Point(4, 22) -Me.TabPage11.Name = "TabPage11" -Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage11.Size = New System.Drawing.Size(720, 448) -Me.TabPage11.TabIndex = 10 -Me.TabPage11.Text = "URL Files" +Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOI.Name = "BTNVideoJOI" +Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOI.TabIndex = 1 +Me.BTNVideoJOI.Text = "1" +Me.BTNVideoJOI.UseVisualStyleBackColor = false ' -'Panel7 +'GbxVideoGenre ' -Me.Panel7.BackColor = System.Drawing.Color.LightGray -Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel7.Controls.Add(Me.BTNWIContinue) -Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) -Me.Panel7.Controls.Add(Me.BTNWICancel) -Me.Panel7.Controls.Add(Me.CBWIReview) -Me.Panel7.Controls.Add(Me.BTNWIBrowse) -Me.Panel7.Controls.Add(Me.TBWIDirectory) -Me.Panel7.Controls.Add(Me.BTNWIDisliked) -Me.Panel7.Controls.Add(Me.BTNWILiked) -Me.Panel7.Controls.Add(Me.BTNWIRemove) -Me.Panel7.Controls.Add(Me.CBWISaveToDisk) -Me.Panel7.Controls.Add(Me.PictureBox5) -Me.Panel7.Controls.Add(Me.WebImageProgressBar) -Me.Panel7.Controls.Add(Me.BTNWICreateURL) -Me.Panel7.Controls.Add(Me.LBLWebImageCount) -Me.Panel7.Controls.Add(Me.BTNWISave) -Me.Panel7.Controls.Add(Me.BTNWIOpenURL) -Me.Panel7.Controls.Add(Me.BTNWIPrevious) -Me.Panel7.Controls.Add(Me.BTNWINext) -Me.Panel7.Controls.Add(Me.WebPictureBox) -Me.Panel7.Controls.Add(Me.Label71) -Me.Panel7.Location = New System.Drawing.Point(6, 6) -Me.Panel7.Name = "Panel7" -Me.Panel7.Size = New System.Drawing.Size(708, 437) -Me.Panel7.TabIndex = 91 +Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) +Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) +Me.GbxVideoGenre.Name = "GbxVideoGenre" +Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenre.TabIndex = 0 +Me.GbxVideoGenre.TabStop = false +Me.GbxVideoGenre.Text = "Genre" ' -'BTNWIContinue +'LblVideoFemsubTotal ' -Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIContinue.Enabled = false -Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) -Me.BTNWIContinue.Name = "BTNWIContinue" -Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIContinue.TabIndex = 168 -Me.BTNWIContinue.Text = "Continue" -Me.BTNWIContinue.UseVisualStyleBackColor = false +Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" +Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotal.TabIndex = 23 +Me.LblVideoFemsubTotal.Text = "0" +Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNWIAddandContinue +'LblVideoFemdomTotal ' -Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIAddandContinue.Enabled = false -Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) -Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" -Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIAddandContinue.TabIndex = 167 -Me.BTNWIAddandContinue.Text = "Add and Continue" -Me.BTNWIAddandContinue.UseVisualStyleBackColor = false +Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" +Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotal.TabIndex = 19 +Me.LblVideoFemdomTotal.Text = "0" +Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNWICancel +'LblVideoBlowjobTotal ' -Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray -Me.BTNWICancel.Enabled = false -Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICancel.ForeColor = System.Drawing.Color.Black -Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) -Me.BTNWICancel.Name = "BTNWICancel" -Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) -Me.BTNWICancel.TabIndex = 166 -Me.BTNWICancel.Text = "Cancel" -Me.BTNWICancel.UseVisualStyleBackColor = false +Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" +Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotal.TabIndex = 15 +Me.LblVideoBlowjobTotal.Text = "0" +Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBWIReview +'LblVideoLesbianTotal ' -Me.CBWIReview.Location = New System.Drawing.Point(567, 69) -Me.CBWIReview.Name = "CBWIReview" -Me.CBWIReview.Size = New System.Drawing.Size(124, 30) -Me.CBWIReview.TabIndex = 165 -Me.CBWIReview.Text = "Review Each Image" -Me.CBWIReview.UseVisualStyleBackColor = true +Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" +Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotal.TabIndex = 11 +Me.LblVideoLesbianTotal.Text = "0" +Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNWIBrowse +'BTNVideoFemSub ' -Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray -Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black -Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) -Me.BTNWIBrowse.Name = "BTNWIBrowse" -Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) -Me.BTNWIBrowse.TabIndex = 163 -Me.BTNWIBrowse.Text = "Browse" -Me.BTNWIBrowse.UseVisualStyleBackColor = false +Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSub.Name = "BTNVideoFemSub" +Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSub.TabIndex = 21 +Me.BTNVideoFemSub.Text = "1" +Me.BTNVideoFemSub.UseVisualStyleBackColor = false ' -'TBWIDirectory +'LblVideoSoftCoreTotal ' -Me.TBWIDirectory.BackColor = System.Drawing.Color.White -Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black -Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) -Me.TBWIDirectory.Name = "TBWIDirectory" -Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) -Me.TBWIDirectory.TabIndex = 164 -Me.TBWIDirectory.Text = "Saved Image Directory" +Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" +Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotal.TabIndex = 7 +Me.LblVideoSoftCoreTotal.Text = "0" +Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNWIDisliked +'BTNVideoFemDom ' -Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray -Me.BTNWIDisliked.Enabled = false -Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black -Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) -Me.BTNWIDisliked.Name = "BTNWIDisliked" -Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) -Me.BTNWIDisliked.TabIndex = 162 -Me.BTNWIDisliked.Text = "Add to Disliked Images" -Me.BTNWIDisliked.UseVisualStyleBackColor = false +Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDom.Name = "BTNVideoFemDom" +Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDom.TabIndex = 17 +Me.BTNVideoFemDom.Text = "1" +Me.BTNVideoFemDom.UseVisualStyleBackColor = false ' -'BTNWILiked +'BTNVideoBlowjob ' -Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray -Me.BTNWILiked.Enabled = false -Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWILiked.ForeColor = System.Drawing.Color.Black -Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) -Me.BTNWILiked.Name = "BTNWILiked" -Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) -Me.BTNWILiked.TabIndex = 161 -Me.BTNWILiked.Text = "Add to Liked Images" -Me.BTNWILiked.UseVisualStyleBackColor = false +Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" +Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjob.TabIndex = 13 +Me.BTNVideoBlowjob.Text = "1" +Me.BTNVideoBlowjob.UseVisualStyleBackColor = false ' -'BTNWIRemove +'LblVideoHardCoreTotal ' -Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray -Me.BTNWIRemove.Enabled = false -Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black -Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) -Me.BTNWIRemove.Name = "BTNWIRemove" -Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) -Me.BTNWIRemove.TabIndex = 160 -Me.BTNWIRemove.Text = "Remove From URL File" -Me.BTNWIRemove.UseVisualStyleBackColor = false +Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" +Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotal.TabIndex = 3 +Me.LblVideoHardCoreTotal.Text = "0" +Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBWISaveToDisk +'BTNVideoLesbian ' -Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) -Me.CBWISaveToDisk.Name = "CBWISaveToDisk" -Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) -Me.CBWISaveToDisk.TabIndex = 157 -Me.CBWISaveToDisk.Text = "Save Images to Disk" -Me.CBWISaveToDisk.UseVisualStyleBackColor = true +Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbian.Name = "BTNVideoLesbian" +Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbian.TabIndex = 9 +Me.BTNVideoLesbian.Text = "1" +Me.BTNVideoLesbian.UseVisualStyleBackColor = false ' -'PictureBox5 +'BTNVideoSoftCore ' -Me.PictureBox5.BackColor = System.Drawing.Color.LightGray -Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox5.Location = New System.Drawing.Point(9, 6) -Me.PictureBox5.Name = "PictureBox5" -Me.PictureBox5.Size = New System.Drawing.Size(160, 19) -Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox5.TabIndex = 156 -Me.PictureBox5.TabStop = false +Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" +Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCore.TabIndex = 5 +Me.BTNVideoSoftCore.Text = "1" +Me.BTNVideoSoftCore.UseVisualStyleBackColor = false ' -'WebImageProgressBar +'BTNVideoHardCore ' -Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) -Me.WebImageProgressBar.Maximum = 2500 -Me.WebImageProgressBar.Name = "WebImageProgressBar" -Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) -Me.WebImageProgressBar.TabIndex = 155 +Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCore.Name = "BTNVideoHardCore" +Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCore.TabIndex = 1 +Me.BTNVideoHardCore.Text = "1" +Me.BTNVideoHardCore.UseVisualStyleBackColor = false ' -'BTNWICreateURL +'LblVideoHeader ' -Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black -Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) -Me.BTNWICreateURL.Name = "BTNWICreateURL" -Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWICreateURL.TabIndex = 154 -Me.BTNWICreateURL.Text = "Create URL File" -Me.BTNWICreateURL.UseVisualStyleBackColor = false +Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black +Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) +Me.LblVideoHeader.Name = "LblVideoHeader" +Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) +Me.LblVideoHeader.TabIndex = 49 +Me.LblVideoHeader.Text = "Video Settings" +Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLWebImageCount +'TabPage20 ' -Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent -Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black -Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) -Me.LBLWebImageCount.Name = "LBLWebImageCount" -Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) -Me.LBLWebImageCount.TabIndex = 153 -Me.LBLWebImageCount.Text = "0/0" -Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TabPage20.BackColor = System.Drawing.Color.Silver +Me.TabPage20.Controls.Add(Me.TabControl1) +Me.TabPage20.Location = New System.Drawing.Point(4, 22) +Me.TabPage20.Name = "TabPage20" +Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage20.Size = New System.Drawing.Size(720, 448) +Me.TabPage20.TabIndex = 16 +Me.TabPage20.Text = "Apps" ' -'BTNWISave +'TabControl1 ' -Me.BTNWISave.BackColor = System.Drawing.Color.LightGray -Me.BTNWISave.Enabled = false -Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWISave.ForeColor = System.Drawing.Color.Black -Me.BTNWISave.Location = New System.Drawing.Point(567, 401) -Me.BTNWISave.Name = "BTNWISave" -Me.BTNWISave.Size = New System.Drawing.Size(131, 24) -Me.BTNWISave.TabIndex = 152 -Me.BTNWISave.Text = "Save Image to Disk" -Me.BTNWISave.UseVisualStyleBackColor = false +Me.TabControl1.Controls.Add(Me.TabPage22) +Me.TabControl1.Controls.Add(Me.TpGames) +Me.TabControl1.Controls.Add(Me.TabPage6) +Me.TabControl1.Location = New System.Drawing.Point(6, 6) +Me.TabControl1.Name = "TabControl1" +Me.TabControl1.SelectedIndex = 0 +Me.TabControl1.Size = New System.Drawing.Size(708, 437) +Me.TabControl1.TabIndex = 0 ' -'BTNWIOpenURL +'TabPage22 ' -Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black -Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) -Me.BTNWIOpenURL.Name = "BTNWIOpenURL" -Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWIOpenURL.TabIndex = 151 -Me.BTNWIOpenURL.Text = "Open URL File" -Me.BTNWIOpenURL.UseVisualStyleBackColor = false +Me.TabPage22.BackColor = System.Drawing.Color.LightGray +Me.TabPage22.Controls.Add(Me.PNLGlitter) +Me.TabPage22.Location = New System.Drawing.Point(4, 22) +Me.TabPage22.Name = "TabPage22" +Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage22.Size = New System.Drawing.Size(700, 411) +Me.TabPage22.TabIndex = 0 +Me.TabPage22.Text = "Glitter" ' -'BTNWIPrevious +'PNLGlitter ' -Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNWIPrevious.Enabled = false -Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) -Me.BTNWIPrevious.Name = "BTNWIPrevious" -Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNWIPrevious.TabIndex = 149 -Me.BTNWIPrevious.Text = "<<" -Me.BTNWIPrevious.UseVisualStyleBackColor = false +Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray +Me.PNLGlitter.Controls.Add(Me.GroupBox14) +Me.PNLGlitter.Controls.Add(Me.GroupBox4) +Me.PNLGlitter.Controls.Add(Me.Button15) +Me.PNLGlitter.Controls.Add(Me.Button16) +Me.PNLGlitter.Controls.Add(Me.Label121) +Me.PNLGlitter.Controls.Add(Me.Label122) +Me.PNLGlitter.Controls.Add(Me.GBGlitterD) +Me.PNLGlitter.Controls.Add(Me.GBGlitter1) +Me.PNLGlitter.Controls.Add(Me.GBGlitter3) +Me.PNLGlitter.Controls.Add(Me.GBGlitter2) +Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) +Me.PNLGlitter.Name = "PNLGlitter" +Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) +Me.PNLGlitter.TabIndex = 91 ' -'BTNWINext +'GroupBox14 ' -Me.BTNWINext.BackColor = System.Drawing.Color.LightGray -Me.BTNWINext.Enabled = false -Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWINext.ForeColor = System.Drawing.Color.Black -Me.BTNWINext.Location = New System.Drawing.Point(651, 282) -Me.BTNWINext.Name = "BTNWINext" -Me.BTNWINext.Size = New System.Drawing.Size(47, 24) -Me.BTNWINext.TabIndex = 150 -Me.BTNWINext.Text = ">>" -Me.BTNWINext.UseVisualStyleBackColor = false +Me.GroupBox14.BackColor = System.Drawing.Color.LightGray +Me.GroupBox14.Controls.Add(Me.Label170) +Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) +Me.GroupBox14.Controls.Add(Me.RandomHonorific) +Me.GroupBox14.Location = New System.Drawing.Point(355, 307) +Me.GroupBox14.Name = "GroupBox14" +Me.GroupBox14.Size = New System.Drawing.Size(306, 85) +Me.GroupBox14.TabIndex = 182 +Me.GroupBox14.TabStop = false +Me.GroupBox14.Text = "General Contact Settings" ' -'WebPictureBox +'Label170 ' -Me.WebPictureBox.BackColor = System.Drawing.Color.Black -Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) -Me.WebPictureBox.Name = "WebPictureBox" -Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) -Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WebPictureBox.TabIndex = 148 -Me.WebPictureBox.TabStop = false +Me.Label170.Location = New System.Drawing.Point(4, 52) +Me.Label170.Name = "Label170" +Me.Label170.Size = New System.Drawing.Size(142, 18) +Me.Label170.TabIndex = 28 +Me.Label170.Text = "Random Domme Honorific:" +Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label71 +'alwaysNewSlideshow ' -Me.Label71.BackColor = System.Drawing.Color.Transparent -Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label71.ForeColor = System.Drawing.Color.Black -Me.Label71.Location = New System.Drawing.Point(7, 6) -Me.Label71.Name = "Label71" -Me.Label71.Size = New System.Drawing.Size(692, 21) -Me.Label71.TabIndex = 48 -Me.Label71.Text = "URL Files" -Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.alwaysNewSlideshow.AutoSize = true +Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black +Me.alwaysNewSlideshow.Location = New System.Drawing.Point(10, 24) +Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" +Me.alwaysNewSlideshow.Size = New System.Drawing.Size(294, 17) +Me.alwaysNewSlideshow.TabIndex = 151 +Me.alwaysNewSlideshow.Text = "Always Load New Slideshow When Using @AddContact" +Me.alwaysNewSlideshow.UseVisualStyleBackColor = true ' -'TpVideoSettings +'RandomHonorific ' -Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver -Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) -Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) -Me.TpVideoSettings.Name = "TpVideoSettings" -Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) -Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) -Me.TpVideoSettings.TabIndex = 2 -Me.TpVideoSettings.Text = "Video" +Me.RandomHonorific.BackColor = System.Drawing.Color.White +Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.RandomHonorific.Location = New System.Drawing.Point(149, 51) +Me.RandomHonorific.Name = "RandomHonorific" +Me.RandomHonorific.Size = New System.Drawing.Size(143, 20) +Me.RandomHonorific.TabIndex = 187 +Me.RandomHonorific.Text = "Mistress" +Me.RandomHonorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'PnlVideoSettings +'GroupBox4 ' -Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) -Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) -Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) -Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill -Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) -Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) -Me.PnlVideoSettings.Name = "PnlVideoSettings" -Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) -Me.PnlVideoSettings.TabIndex = 92 +Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) +Me.GroupBox4.Location = New System.Drawing.Point(7, 307) +Me.GroupBox4.Name = "GroupBox4" +Me.GroupBox4.Size = New System.Drawing.Size(344, 85) +Me.GroupBox4.TabIndex = 167 +Me.GroupBox4.TabStop = false +Me.GroupBox4.Text = "Change Current Domme" +' +'LBLCurrentDomme +' +Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) +Me.LBLCurrentDomme.Name = "LBLCurrentDomme" +Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) +Me.LBLCurrentDomme.TabIndex = 168 +Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'PbBannerVideoSettings +'BTNDomChangeContact1 ' -Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) -Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" -Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) -Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PbBannerVideoSettings.TabIndex = 151 -Me.PbBannerVideoSettings.TabStop = false +Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) +Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" +Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact1.TabIndex = 173 +Me.BTNDomChangeContact1.Text = "Contact 1" +Me.BTNDomChangeContact1.UseVisualStyleBackColor = false ' -'BTNRefreshVideos +'BTNDomChangeRandom ' -Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray -Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh -Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom -Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 -Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black -Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) -Me.BTNRefreshVideos.Name = "BTNRefreshVideos" -Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) -Me.BTNRefreshVideos.TabIndex = 149 -Me.BTNRefreshVideos.UseVisualStyleBackColor = false +Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) +Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" +Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeRandom.TabIndex = 172 +Me.BTNDomChangeRandom.Text = "Random" +Me.BTNDomChangeRandom.UseVisualStyleBackColor = false ' -'GbxVideoGeneralD +'BTNDomChangeContact3 ' -Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) -Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) -Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) -Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" -Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneralD.TabIndex = 5 -Me.GbxVideoGeneralD.TabStop = false -Me.GbxVideoGeneralD.Text = "Domme General" +Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) +Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" +Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact3.TabIndex = 171 +Me.BTNDomChangeContact3.Text = "Contact 3" +Me.BTNDomChangeContact3.UseVisualStyleBackColor = false ' -'LblVideoGeneralTotalD +'BTNDomChangeContact2 ' -Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" -Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotalD.TabIndex = 3 -Me.LblVideoGeneralTotalD.Text = "0" -Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) +Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" +Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact2.TabIndex = 170 +Me.BTNDomChangeContact2.Text = "Contact 2" +Me.BTNDomChangeContact2.UseVisualStyleBackColor = false ' -'TxbVideoGeneralD +'BTNDomChangeDomme ' -Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" -Me.TxbVideoGeneralD.ReadOnly = true -Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.TabIndex = 2 -Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD +Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) +Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" +Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeDomme.TabIndex = 168 +Me.BTNDomChangeDomme.Text = "Domme" +Me.BTNDomChangeDomme.UseVisualStyleBackColor = false ' -'BTNVideoGeneralD +'Button15 ' -Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" -Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneralD.TabIndex = 1 -Me.BTNVideoGeneralD.Text = "1" -Me.BTNVideoGeneralD.UseVisualStyleBackColor = false +Me.Button15.BackColor = System.Drawing.Color.LightGray +Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button15.FlatAppearance.BorderSize = 0 +Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button15.ForeColor = System.Drawing.Color.Black +Me.Button15.Location = New System.Drawing.Point(670, 366) +Me.Button15.Name = "Button15" +Me.Button15.Size = New System.Drawing.Size(30, 26) +Me.Button15.TabIndex = 163 +Me.Button15.UseVisualStyleBackColor = false ' -'CBVideoGeneralD +'Button16 ' -Me.CBVideoGeneralD.AutoSize = true -Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD -Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneralD.Name = "CBVideoGeneralD" -Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneralD.TabIndex = 0 -Me.CBVideoGeneralD.Text = "General" -Me.CBVideoGeneralD.UseVisualStyleBackColor = true +Me.Button16.BackColor = System.Drawing.Color.LightGray +Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button16.FlatAppearance.BorderSize = 0 +Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button16.ForeColor = System.Drawing.Color.Black +Me.Button16.Location = New System.Drawing.Point(667, 324) +Me.Button16.Name = "Button16" +Me.Button16.Size = New System.Drawing.Size(30, 26) +Me.Button16.TabIndex = 164 +Me.Button16.UseVisualStyleBackColor = false ' -'GbxVideoSpecialD +'Label121 ' -Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) -Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) -Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" -Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecialD.TabIndex = 4 -Me.GbxVideoSpecialD.TabStop = false -Me.GbxVideoSpecialD.Text = "Domme Special" +Me.Label121.AutoSize = true +Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label121.ForeColor = System.Drawing.Color.Black +Me.Label121.Location = New System.Drawing.Point(669, 352) +Me.Label121.Name = "Label121" +Me.Label121.Size = New System.Drawing.Size(27, 13) +Me.Label121.TabIndex = 166 +Me.Label121.Text = "load" +Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoCHTotalD +'Label122 ' -Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) -Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" -Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotalD.TabIndex = 7 -Me.LblVideoCHTotalD.Text = "0" -Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label122.AutoSize = true +Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label122.ForeColor = System.Drawing.Color.Black +Me.Label122.Location = New System.Drawing.Point(667, 313) +Me.Label122.Name = "Label122" +Me.Label122.Size = New System.Drawing.Size(30, 13) +Me.Label122.TabIndex = 165 +Me.Label122.Text = "save" +Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoJOITotalD +'GBGlitterD ' -Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" -Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotalD.TabIndex = 3 -Me.LblVideoJOITotalD.Text = "0" -Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray +Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) +Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom2) +Me.GBGlitterD.Controls.Add(Me.GlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom1) +Me.GBGlitterD.Controls.Add(Me.CBDaily) +Me.GBGlitterD.Controls.Add(Me.CBTrivia) +Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) +Me.GBGlitterD.Controls.Add(Me.CBEgotist) +Me.GBGlitterD.Controls.Add(Me.CBTease) +Me.GBGlitterD.Controls.Add(Me.GlitterAV) +Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) +Me.GBGlitterD.Name = "GBGlitterD" +Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) +Me.GBGlitterD.TabIndex = 162 +Me.GBGlitterD.TabStop = false +Me.GBGlitterD.Text = "Domme" ' -'TxbVideoCHD +'GrbGlitterfeed ' -Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.Name = "TxbVideoCHD" -Me.TxbVideoCHD.ReadOnly = true -Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.TabIndex = 6 -Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) +Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) +Me.GrbGlitterfeed.Name = "GrbGlitterfeed" +Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) +Me.GrbGlitterfeed.TabIndex = 168 +Me.GrbGlitterfeed.TabStop = false +Me.GrbGlitterfeed.Text = "Glitterfeeds" ' -'TxbVideoJOID +'BTNGlitterD ' -Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.Name = "TxbVideoJOID" -Me.TxbVideoJOID.ReadOnly = true -Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.TabIndex = 2 -Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID +Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black +Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitterD.Name = "BTNGlitterD" +Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitterD.TabIndex = 166 +Me.BTNGlitterD.Text = "Choose Name Color" +Me.BTNGlitterD.UseVisualStyleBackColor = false ' -'BTNVideoCHD +'LBLGlitterSlider ' -Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCHD.Name = "BTNVideoCHD" -Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCHD.TabIndex = 5 -Me.BTNVideoCHD.Text = "1" -Me.BTNVideoCHD.UseVisualStyleBackColor = false +Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider.Name = "LBLGlitterSlider" +Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider.TabIndex = 162 +Me.LBLGlitterSlider.Text = "Post Frequency" +Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNVideoJOID +'GlitterAV ' -Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOID.Name = "BTNVideoJOID" -Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOID.TabIndex = 1 -Me.BTNVideoJOID.Text = "1" -Me.BTNVideoJOID.UseVisualStyleBackColor = false +Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV.Name = "GlitterAV" +Me.GlitterAV.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV.TabIndex = 149 +Me.GlitterAV.TabStop = false ' -'CBVideoJOID +'GBGlitter1 ' -Me.CBVideoJOID.AutoSize = true -Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID -Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOID.Name = "CBVideoJOID" -Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOID.TabIndex = 0 -Me.CBVideoJOID.Text = "JOI" -Me.CBVideoJOID.UseVisualStyleBackColor = true +Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter1.Controls.Add(Me.Label167) +Me.GBGlitter1.Controls.Add(Me.G1Honorific) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.CBGlitter1) +Me.GBGlitter1.Controls.Add(Me.TBGlitter1) +Me.GBGlitter1.Controls.Add(Me.GlitterAV1) +Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) +Me.GBGlitter1.Name = "GBGlitter1" +Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter1.TabIndex = 161 +Me.GBGlitter1.TabStop = false +Me.GBGlitter1.Text = "Contact 1" ' -'CBVideoCHD +'Label167 ' -Me.CBVideoCHD.AutoSize = true -Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD -Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black -Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCHD.Name = "CBVideoCHD" -Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCHD.TabIndex = 4 -Me.CBVideoCHD.Text = "CH" -Me.CBVideoCHD.UseVisualStyleBackColor = true +Me.Label167.BackColor = System.Drawing.Color.Transparent +Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label167.ForeColor = System.Drawing.Color.Black +Me.Label167.Location = New System.Drawing.Point(220, 15) +Me.Label167.Name = "Label167" +Me.Label167.Size = New System.Drawing.Size(114, 19) +Me.Label167.TabIndex = 182 +Me.Label167.Text = "Contact Honorific" +Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GbxVideoGenreD +'G1Honorific ' -Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) -Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) -Me.GbxVideoGenreD.Name = "GbxVideoGenreD" -Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenreD.TabIndex = 3 -Me.GbxVideoGenreD.TabStop = false -Me.GbxVideoGenreD.Text = "Domme Genre" +Me.G1Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G1Honorific.Location = New System.Drawing.Point(220, 34) +Me.G1Honorific.Name = "G1Honorific" +Me.G1Honorific.Size = New System.Drawing.Size(116, 23) +Me.G1Honorific.TabIndex = 0 +Me.G1Honorific.Text = "Mistress" +Me.G1Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LblVideoFemsubTotalD +'BtnContact1ImageDirClear ' -Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" -Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotalD.TabIndex = 23 -Me.LblVideoFemsubTotalD.Text = "0" -Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" +Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact1ImageDirClear.TabIndex = 181 +Me.BtnContact1ImageDirClear.Text = "Clear" +Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false ' -'TxbVideoFemsubD +'BtnContact1ImageDir ' -Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" -Me.TxbVideoFemsubD.ReadOnly = true -Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.TabIndex = 22 -Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD +Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" +Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact1ImageDir.TabIndex = 177 +Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" +Me.BtnContact1ImageDir.UseVisualStyleBackColor = false ' -'LblVideoFemdomTotalD +'BTNGlitter1 ' -Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" -Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotalD.TabIndex = 19 -Me.LblVideoFemdomTotalD.Text = "0" -Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter1.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter1.Name = "BTNGlitter1" +Me.BTNGlitter1.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter1.TabIndex = 175 +Me.BTNGlitter1.Text = "Choose Name Color" +Me.BTNGlitter1.UseVisualStyleBackColor = false ' -'TxbVideoFemdomD +'LBLGlitterSlider1 ' -Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" -Me.TxbVideoFemdomD.ReadOnly = true -Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.TabIndex = 18 -Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD +Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" +Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider1.TabIndex = 163 +Me.LBLGlitterSlider1.Text = "Response Frequency" +Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'GlitterAV1 +' +Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV1.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV1.Name = "GlitterAV1" +Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV1.TabIndex = 149 +Me.GlitterAV1.TabStop = false ' -'TxbVideoBlowjobD +'GBGlitter3 ' -Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" -Me.TxbVideoBlowjobD.ReadOnly = true -Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.TabIndex = 14 -Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD +Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter3.Controls.Add(Me.Label168) +Me.GBGlitter3.Controls.Add(Me.G3Honorific) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.CBGlitter3) +Me.GBGlitter3.Controls.Add(Me.TBGlitter3) +Me.GBGlitter3.Controls.Add(Me.GlitterAV3) +Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) +Me.GBGlitter3.Name = "GBGlitter3" +Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter3.TabIndex = 160 +Me.GBGlitter3.TabStop = false +Me.GBGlitter3.Text = "Contact 3" ' -'LblVideoBlowjobTotalD +'Label168 ' -Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" -Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotalD.TabIndex = 15 -Me.LblVideoBlowjobTotalD.Text = "0" -Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label168.BackColor = System.Drawing.Color.Transparent +Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label168.ForeColor = System.Drawing.Color.Black +Me.Label168.Location = New System.Drawing.Point(220, 15) +Me.Label168.Name = "Label168" +Me.Label168.Size = New System.Drawing.Size(114, 19) +Me.Label168.TabIndex = 181 +Me.Label168.Text = "Contact Honorific" +Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TxbVideoLesbianD +'G3Honorific ' -Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" -Me.TxbVideoLesbianD.ReadOnly = true -Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.TabIndex = 10 -Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD +Me.G3Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G3Honorific.Location = New System.Drawing.Point(220, 34) +Me.G3Honorific.Name = "G3Honorific" +Me.G3Honorific.Size = New System.Drawing.Size(115, 23) +Me.G3Honorific.TabIndex = 0 +Me.G3Honorific.Text = "Mistress" +Me.G3Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'TxbVideoSoftCoreD +'BtnContact3ImageDirClear ' -Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" -Me.TxbVideoSoftCoreD.ReadOnly = true -Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.TabIndex = 6 -Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD +Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" +Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact3ImageDirClear.TabIndex = 180 +Me.BtnContact3ImageDirClear.Text = "Clear" +Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false ' -'LblVideoLesbianTotalD +'BtnContact3ImageDir ' -Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" -Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotalD.TabIndex = 11 -Me.LblVideoLesbianTotalD.Text = "0" -Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" +Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact3ImageDir.TabIndex = 179 +Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" +Me.BtnContact3ImageDir.UseVisualStyleBackColor = false ' -'TxbVideoHardCoreD +'BTNGlitter3 ' -Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" -Me.TxbVideoHardCoreD.ReadOnly = true -Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.TabIndex = 2 -Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD +Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter3.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter3.Name = "BTNGlitter3" +Me.BTNGlitter3.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter3.TabIndex = 175 +Me.BTNGlitter3.Text = "Choose Name Color" +Me.BTNGlitter3.UseVisualStyleBackColor = false ' -'BTNVideoFemSubD +'LBLGlitterSlider3 ' -Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" -Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSubD.TabIndex = 21 -Me.BTNVideoFemSubD.Text = "1" -Me.BTNVideoFemSubD.UseVisualStyleBackColor = false +Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" +Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider3.TabIndex = 163 +Me.LBLGlitterSlider3.Text = "Response Frequency" +Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoSoftCoreTotalD +'GlitterAV3 ' -Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" -Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotalD.TabIndex = 7 -Me.LblVideoSoftCoreTotalD.Text = "0" -Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV3.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV3.Name = "GlitterAV3" +Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV3.TabIndex = 149 +Me.GlitterAV3.TabStop = false ' -'BTNVideoFemDomD +'GBGlitter2 ' -Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" -Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDomD.TabIndex = 17 -Me.BTNVideoFemDomD.Text = "1" -Me.BTNVideoFemDomD.UseVisualStyleBackColor = false +Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter2.Controls.Add(Me.Label169) +Me.GBGlitter2.Controls.Add(Me.G2Honorific) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.CBGlitter2) +Me.GBGlitter2.Controls.Add(Me.TBGlitter2) +Me.GBGlitter2.Controls.Add(Me.GlitterAV2) +Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) +Me.GBGlitter2.Name = "GBGlitter2" +Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter2.TabIndex = 151 +Me.GBGlitter2.TabStop = false +Me.GBGlitter2.Text = "Contact 2" ' -'BTNVideoBlowjobD +'Label169 ' -Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" -Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjobD.TabIndex = 13 -Me.BTNVideoBlowjobD.Text = "1" -Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false +Me.Label169.BackColor = System.Drawing.Color.Transparent +Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label169.ForeColor = System.Drawing.Color.Black +Me.Label169.Location = New System.Drawing.Point(220, 15) +Me.Label169.Name = "Label169" +Me.Label169.Size = New System.Drawing.Size(114, 19) +Me.Label169.TabIndex = 182 +Me.Label169.Text = "Contact Honorific" +Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoHardCoreTotalD +'G2Honorific ' -Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" -Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotalD.TabIndex = 3 -Me.LblVideoHardCoreTotalD.Text = "0" -Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.G2Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G2Honorific.Location = New System.Drawing.Point(220, 34) +Me.G2Honorific.Name = "G2Honorific" +Me.G2Honorific.Size = New System.Drawing.Size(115, 23) +Me.G2Honorific.TabIndex = 0 +Me.G2Honorific.Text = "Mistress" +Me.G2Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BTNVideoLesbianD +'BtnContact2ImageDirClear ' -Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" -Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbianD.TabIndex = 9 -Me.BTNVideoLesbianD.Text = "1" -Me.BTNVideoLesbianD.UseVisualStyleBackColor = false +Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" +Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact2ImageDirClear.TabIndex = 181 +Me.BtnContact2ImageDirClear.Text = "Clear" +Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false ' -'BTNVideoSoftCoreD +'BtnContact2ImageDir ' -Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" -Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCoreD.TabIndex = 5 -Me.BTNVideoSoftCoreD.Text = "1" -Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false +Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" +Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact2ImageDir.TabIndex = 179 +Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" +Me.BtnContact2ImageDir.UseVisualStyleBackColor = false ' -'BTNVideoHardCoreD +'BTNGlitter2 ' -Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" -Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCoreD.TabIndex = 1 -Me.BTNVideoHardCoreD.Text = "1" -Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false +Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter2.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter2.Name = "BTNGlitter2" +Me.BTNGlitter2.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter2.TabIndex = 167 +Me.BTNGlitter2.Text = "Choose Name Color" +Me.BTNGlitter2.UseVisualStyleBackColor = false ' -'CBVideoHardcoreD +'LBLGlitterSlider2 ' -Me.CBVideoHardcoreD.AutoSize = true -Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD -Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" -Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcoreD.TabIndex = 0 -Me.CBVideoHardcoreD.Text = "Hardcore" -Me.CBVideoHardcoreD.UseVisualStyleBackColor = true +Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" +Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider2.TabIndex = 163 +Me.LBLGlitterSlider2.Text = "Response Frequency" +Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBVideoSoftCoreD +'GlitterAV2 ' -Me.CBVideoSoftCoreD.AutoSize = true -Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD -Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" -Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCoreD.TabIndex = 4 -Me.CBVideoSoftCoreD.Text = "Softcore" -Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true +Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV2.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV2.Name = "GlitterAV2" +Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV2.TabIndex = 149 +Me.GlitterAV2.TabStop = false ' -'CBVideoLesbianD +'TpGames ' -Me.CBVideoLesbianD.AutoSize = true -Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD -Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbianD.Name = "CBVideoLesbianD" -Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbianD.TabIndex = 8 -Me.CBVideoLesbianD.Text = "Lesbian" -Me.CBVideoLesbianD.UseVisualStyleBackColor = true +Me.TpGames.BackColor = System.Drawing.Color.LightGray +Me.TpGames.Controls.Add(Me.CBIncludeGifs) +Me.TpGames.Controls.Add(Me.LblCardsSetupNote) +Me.TpGames.Controls.Add(Me.CBGameSounds) +Me.TpGames.Controls.Add(Me.GbxCardsGold) +Me.TpGames.Controls.Add(Me.GbxCardsBackground) +Me.TpGames.Controls.Add(Me.GbxCardsBronze) +Me.TpGames.Controls.Add(Me.GbxCardsSilver) +Me.TpGames.Location = New System.Drawing.Point(4, 22) +Me.TpGames.Name = "TpGames" +Me.TpGames.Padding = New System.Windows.Forms.Padding(3) +Me.TpGames.Size = New System.Drawing.Size(700, 411) +Me.TpGames.TabIndex = 1 +Me.TpGames.Text = "Games" ' -'CBVideoBlowjobD +'LblCardsSetupNote ' -Me.CBVideoBlowjobD.AutoSize = true -Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD -Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" -Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjobD.TabIndex = 12 -Me.CBVideoBlowjobD.Text = "Blowjob" -Me.CBVideoBlowjobD.UseVisualStyleBackColor = true +Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) +Me.LblCardsSetupNote.Name = "LblCardsSetupNote" +Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) +Me.LblCardsSetupNote.TabIndex = 4 +Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ + "!" +Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBVideoFemsubD +'CBGameSounds ' -Me.CBVideoFemsubD.AutoSize = true -Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD -Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsubD.Name = "CBVideoFemsubD" -Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsubD.TabIndex = 20 -Me.CBVideoFemsubD.Text = "Femsub" -Me.CBVideoFemsubD.UseVisualStyleBackColor = true +Me.CBGameSounds.AutoSize = true +Me.CBGameSounds.Checked = true +Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBGameSounds.ForeColor = System.Drawing.Color.Black +Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) +Me.CBGameSounds.Name = "CBGameSounds" +Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) +Me.CBGameSounds.TabIndex = 6 +Me.CBGameSounds.Text = "Play Game Sounds" +Me.CBGameSounds.UseVisualStyleBackColor = true ' -'CBVideoFemdomD +'GbxCardsGold ' -Me.CBVideoFemdomD.AutoSize = true -Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD -Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdomD.Name = "CBVideoFemdomD" -Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdomD.TabIndex = 16 -Me.CBVideoFemdomD.Text = "Femdom" -Me.CBVideoFemdomD.UseVisualStyleBackColor = true +Me.GbxCardsGold.Controls.Add(Me.GN6) +Me.GbxCardsGold.Controls.Add(Me.GP6) +Me.GbxCardsGold.Controls.Add(Me.GN2) +Me.GbxCardsGold.Controls.Add(Me.GP2) +Me.GbxCardsGold.Controls.Add(Me.GP5) +Me.GbxCardsGold.Controls.Add(Me.GN1) +Me.GbxCardsGold.Controls.Add(Me.GP1) +Me.GbxCardsGold.Controls.Add(Me.GN5) +Me.GbxCardsGold.Controls.Add(Me.GN3) +Me.GbxCardsGold.Controls.Add(Me.GP3) +Me.GbxCardsGold.Controls.Add(Me.GP4) +Me.GbxCardsGold.Controls.Add(Me.GN4) +Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) +Me.GbxCardsGold.Name = "GbxCardsGold" +Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) +Me.GbxCardsGold.TabIndex = 2 +Me.GbxCardsGold.TabStop = false +Me.GbxCardsGold.Text = "Gold Cards" ' -'GbxVideoDescription +'GbxCardsBackground ' -Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) -Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black -Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) -Me.GbxVideoDescription.Name = "GbxVideoDescription" -Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) -Me.GbxVideoDescription.TabIndex = 6 -Me.GbxVideoDescription.TabStop = false -Me.GbxVideoDescription.Text = "Description" +Me.GbxCardsBackground.Controls.Add(Me.CardBack) +Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) +Me.GbxCardsBackground.Name = "GbxCardsBackground" +Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) +Me.GbxCardsBackground.TabIndex = 3 +Me.GbxCardsBackground.TabStop = false +Me.GbxCardsBackground.Text = "Card Background" ' -'VideoDescriptionLabel +'GbxCardsBronze ' -Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent -Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black -Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) -Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" -Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) -Me.VideoDescriptionLabel.TabIndex = 62 -Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ - "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ - "using as your domme." -Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GbxCardsBronze.Controls.Add(Me.BN6) +Me.GbxCardsBronze.Controls.Add(Me.BN3) +Me.GbxCardsBronze.Controls.Add(Me.BP3) +Me.GbxCardsBronze.Controls.Add(Me.BP6) +Me.GbxCardsBronze.Controls.Add(Me.BN2) +Me.GbxCardsBronze.Controls.Add(Me.BN5) +Me.GbxCardsBronze.Controls.Add(Me.BP5) +Me.GbxCardsBronze.Controls.Add(Me.BP2) +Me.GbxCardsBronze.Controls.Add(Me.BN1) +Me.GbxCardsBronze.Controls.Add(Me.BN4) +Me.GbxCardsBronze.Controls.Add(Me.BP4) +Me.GbxCardsBronze.Controls.Add(Me.BP1) +Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) +Me.GbxCardsBronze.Name = "GbxCardsBronze" +Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsBronze.TabIndex = 0 +Me.GbxCardsBronze.TabStop = false +Me.GbxCardsBronze.Text = "Bronze Cards" +' +'GbxCardsSilver +' +Me.GbxCardsSilver.Controls.Add(Me.SN6) +Me.GbxCardsSilver.Controls.Add(Me.SP6) +Me.GbxCardsSilver.Controls.Add(Me.SN2) +Me.GbxCardsSilver.Controls.Add(Me.SP2) +Me.GbxCardsSilver.Controls.Add(Me.SN1) +Me.GbxCardsSilver.Controls.Add(Me.SP5) +Me.GbxCardsSilver.Controls.Add(Me.SP1) +Me.GbxCardsSilver.Controls.Add(Me.SN5) +Me.GbxCardsSilver.Controls.Add(Me.SN3) +Me.GbxCardsSilver.Controls.Add(Me.SN4) +Me.GbxCardsSilver.Controls.Add(Me.SP3) +Me.GbxCardsSilver.Controls.Add(Me.SP4) +Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) +Me.GbxCardsSilver.Name = "GbxCardsSilver" +Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsSilver.TabIndex = 1 +Me.GbxCardsSilver.TabStop = false +Me.GbxCardsSilver.Text = "Silver Cards" ' -'GbxVideoGeneral +'TabPage6 ' -Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) -Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) -Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) -Me.GbxVideoGeneral.Name = "GbxVideoGeneral" -Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneral.TabIndex = 2 -Me.GbxVideoGeneral.TabStop = false -Me.GbxVideoGeneral.Text = "General" +Me.TabPage6.BackColor = System.Drawing.Color.LightGray +Me.TabPage6.Controls.Add(Me.Panel10) +Me.TabPage6.Controls.Add(Me.Label107) +Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) +Me.TabPage6.Controls.Add(Me.Label18) +Me.TabPage6.Controls.Add(Me.PNLWishList) +Me.TabPage6.Location = New System.Drawing.Point(4, 22) +Me.TabPage6.Name = "TabPage6" +Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage6.Size = New System.Drawing.Size(700, 411) +Me.TabPage6.TabIndex = 2 +Me.TabPage6.Text = "Wishlist" ' -'LblVideoGeneralTotal +'Panel10 ' -Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" -Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotal.TabIndex = 3 -Me.LblVideoGeneralTotal.Text = "0" -Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel10.Controls.Add(Me.TBWishlistComment) +Me.Panel10.Controls.Add(Me.Label32) +Me.Panel10.Controls.Add(Me.TBWishlistItem) +Me.Panel10.Controls.Add(Me.radioGold) +Me.Panel10.Controls.Add(Me.Label42) +Me.Panel10.Controls.Add(Me.radioSilver) +Me.Panel10.Controls.Add(Me.TBWishlistURL) +Me.Panel10.Controls.Add(Me.NBWishlistCost) +Me.Panel10.Controls.Add(Me.Label48) +Me.Panel10.Controls.Add(Me.Label73) +Me.Panel10.Location = New System.Drawing.Point(38, 47) +Me.Panel10.Name = "Panel10" +Me.Panel10.Size = New System.Drawing.Size(252, 308) +Me.Panel10.TabIndex = 179 ' -'TxbVideoGeneral +'TBWishlistComment ' -Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.Name = "TxbVideoGeneral" -Me.TxbVideoGeneral.ReadOnly = true -Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.TabIndex = 2 -Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral +Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) +Me.TBWishlistComment.Multiline = true +Me.TBWishlistComment.Name = "TBWishlistComment" +Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) +Me.TBWishlistComment.TabIndex = 172 ' -'BTNVideoGeneral +'Label32 ' -Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneral.Name = "BTNVideoGeneral" -Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneral.TabIndex = 1 -Me.BTNVideoGeneral.Text = "1" -Me.BTNVideoGeneral.UseVisualStyleBackColor = false +Me.Label32.AutoSize = true +Me.Label32.Location = New System.Drawing.Point(13, 4) +Me.Label32.Name = "Label32" +Me.Label32.Size = New System.Drawing.Size(58, 13) +Me.Label32.TabIndex = 167 +Me.Label32.Text = "Item Name" ' -'CBVideoGeneral +'TBWishlistItem ' -Me.CBVideoGeneral.AutoSize = true -Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral -Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneral.Name = "CBVideoGeneral" -Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneral.TabIndex = 0 -Me.CBVideoGeneral.Text = "General" -Me.CBVideoGeneral.UseVisualStyleBackColor = true +Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) +Me.TBWishlistItem.Name = "TBWishlistItem" +Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistItem.TabIndex = 168 ' -'GbxVideoSpecial +'radioGold ' -Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) -Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) -Me.GbxVideoSpecial.Name = "GbxVideoSpecial" -Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecial.TabIndex = 1 -Me.GbxVideoSpecial.TabStop = false -Me.GbxVideoSpecial.Text = "Special" +Me.radioGold.AutoSize = true +Me.radioGold.Location = New System.Drawing.Point(167, 125) +Me.radioGold.Name = "radioGold" +Me.radioGold.Size = New System.Drawing.Size(47, 17) +Me.radioGold.TabIndex = 176 +Me.radioGold.Text = "Gold" +Me.radioGold.UseVisualStyleBackColor = true ' -'LblVideoCHTotal +'Label42 ' -Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) -Me.LblVideoCHTotal.Name = "LblVideoCHTotal" -Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotal.TabIndex = 7 -Me.LblVideoCHTotal.Text = "0" -Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label42.AutoSize = true +Me.Label42.Location = New System.Drawing.Point(13, 56) +Me.Label42.Name = "Label42" +Me.Label42.Size = New System.Drawing.Size(75, 13) +Me.Label42.TabIndex = 169 +Me.Label42.Text = "Item Image Url" ' -'LblVideoJOITotal +'radioSilver ' -Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) -Me.LblVideoJOITotal.Name = "LblVideoJOITotal" -Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotal.TabIndex = 3 -Me.LblVideoJOITotal.Text = "0" -Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.radioSilver.AutoSize = true +Me.radioSilver.Checked = true +Me.radioSilver.Location = New System.Drawing.Point(100, 125) +Me.radioSilver.Name = "radioSilver" +Me.radioSilver.Size = New System.Drawing.Size(51, 17) +Me.radioSilver.TabIndex = 175 +Me.radioSilver.TabStop = true +Me.radioSilver.Text = "Silver" +Me.radioSilver.UseVisualStyleBackColor = true ' -'TxbVideoCH +'TBWishlistURL ' -Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.Name = "TxbVideoCH" -Me.TxbVideoCH.ReadOnly = true -Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.TabIndex = 6 -Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH +Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) +Me.TBWishlistURL.Name = "TBWishlistURL" +Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistURL.TabIndex = 170 ' -'TxbVideoJOI +'NBWishlistCost ' -Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.Name = "TxbVideoJOI" -Me.TxbVideoJOI.ReadOnly = true -Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.TabIndex = 2 -Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI +Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) +Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBWishlistCost.Name = "NBWishlistCost" +Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) +Me.NBWishlistCost.TabIndex = 174 +Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -'BTNVideoCH +'Label48 ' -Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCH.Name = "BTNVideoCH" -Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCH.TabIndex = 5 -Me.BTNVideoCH.Text = "1" -Me.BTNVideoCH.UseVisualStyleBackColor = false +Me.Label48.AutoSize = true +Me.Label48.Location = New System.Drawing.Point(13, 157) +Me.Label48.Name = "Label48" +Me.Label48.Size = New System.Drawing.Size(74, 13) +Me.Label48.TabIndex = 171 +Me.Label48.Text = "Item Comment" ' -'BTNVideoJOI +'Label73 ' -Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOI.Name = "BTNVideoJOI" -Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOI.TabIndex = 1 -Me.BTNVideoJOI.Text = "1" -Me.BTNVideoJOI.UseVisualStyleBackColor = false +Me.Label73.AutoSize = true +Me.Label73.Location = New System.Drawing.Point(13, 108) +Me.Label73.Name = "Label73" +Me.Label73.Size = New System.Drawing.Size(51, 13) +Me.Label73.TabIndex = 173 +Me.Label73.Text = "Item Cost" ' -'CBVideoJOI +'Label107 ' -Me.CBVideoJOI.AutoSize = true -Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI -Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOI.Name = "CBVideoJOI" -Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOI.TabIndex = 0 -Me.CBVideoJOI.Text = "JOI" -Me.CBVideoJOI.UseVisualStyleBackColor = true +Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label107.Location = New System.Drawing.Point(38, 5) +Me.Label107.Name = "Label107" +Me.Label107.Size = New System.Drawing.Size(252, 47) +Me.Label107.TabIndex = 178 +Me.Label107.Text = "Use this page to create Wishlist files." +Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBVideoCH +'BTNWishlistCreate ' -Me.CBVideoCH.AutoSize = true -Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH -Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCH.ForeColor = System.Drawing.Color.Black -Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCH.Name = "CBVideoCH" -Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCH.TabIndex = 4 -Me.CBVideoCH.Text = "CH" -Me.CBVideoCH.UseVisualStyleBackColor = true +Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) +Me.BTNWishlistCreate.Name = "BTNWishlistCreate" +Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) +Me.BTNWishlistCreate.TabIndex = 177 +Me.BTNWishlistCreate.Text = "Create Wishlist File" +Me.BTNWishlistCreate.UseVisualStyleBackColor = true ' -'GbxVideoGenre +'Label18 ' -Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) -Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) -Me.GbxVideoGenre.Name = "GbxVideoGenre" -Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenre.TabIndex = 0 -Me.GbxVideoGenre.TabStop = false -Me.GbxVideoGenre.Text = "Genre" +Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label18.Location = New System.Drawing.Point(409, 5) +Me.Label18.Name = "Label18" +Me.Label18.Size = New System.Drawing.Size(250, 23) +Me.Label18.TabIndex = 166 +Me.Label18.Text = "Preview" +Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LblVideoFemsubTotal +'PNLWishList ' -Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" -Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotal.TabIndex = 23 -Me.LblVideoFemsubTotal.Text = "0" -Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.PNLWishList.BackColor = System.Drawing.Color.White +Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) +Me.PNLWishList.Controls.Add(Me.LBLWishListText) +Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) +Me.PNLWishList.Controls.Add(Me.WishlistCostGold) +Me.PNLWishList.Controls.Add(Me.LBLWishListName) +Me.PNLWishList.Controls.Add(Me.WishlistPreview) +Me.PNLWishList.Location = New System.Drawing.Point(407, 31) +Me.PNLWishList.Name = "PNLWishList" +Me.PNLWishList.Size = New System.Drawing.Size(250, 367) +Me.PNLWishList.TabIndex = 165 ' -'TxbVideoFemsub +'WishlistCostSilver ' -Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.Name = "TxbVideoFemsub" -Me.TxbVideoFemsub.ReadOnly = true -Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.TabIndex = 22 -Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub +Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) +Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostSilver.Name = "WishlistCostSilver" +Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostSilver.TabIndex = 111 +Me.WishlistCostSilver.TabStop = false ' -'LblVideoFemdomTotal +'LBLWishListText ' -Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" -Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotal.TabIndex = 19 -Me.LblVideoFemdomTotal.Text = "0" -Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) +Me.LBLWishListText.Name = "LBLWishListText" +Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) +Me.LBLWishListText.TabIndex = 108 ' -'TxbVideoFemdom +'LBLWishlistCost ' -Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.Name = "TxbVideoFemdom" -Me.TxbVideoFemdom.ReadOnly = true -Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.TabIndex = 18 -Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom +Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black +Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) +Me.LBLWishlistCost.Name = "LBLWishlistCost" +Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) +Me.LBLWishlistCost.TabIndex = 107 +Me.LBLWishlistCost.Text = "3" +Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TxbVideoBlowjob +'WishlistCostGold ' -Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" -Me.TxbVideoBlowjob.ReadOnly = true -Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.TabIndex = 14 -Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob +Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) +Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostGold.Name = "WishlistCostGold" +Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostGold.TabIndex = 106 +Me.WishlistCostGold.TabStop = false +Me.WishlistCostGold.Visible = false ' -'LblVideoBlowjobTotal +'LBLWishListName ' -Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" -Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotal.TabIndex = 15 -Me.LblVideoBlowjobTotal.Text = "0" -Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue +Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) +Me.LBLWishListName.Name = "LBLWishListName" +Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) +Me.LBLWishListName.TabIndex = 104 +Me.LBLWishListName.Text = "Item Name Goes Here" +Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TxbVideoLesbian +'WishlistPreview ' -Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.Name = "TxbVideoLesbian" -Me.TxbVideoLesbian.ReadOnly = true -Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.TabIndex = 10 -Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian +Me.WishlistPreview.ImageLocation = "" +Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) +Me.WishlistPreview.Name = "WishlistPreview" +Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) +Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WishlistPreview.TabIndex = 101 +Me.WishlistPreview.TabStop = false ' -'TxbVideoSoftCore +'TabPage26 ' -Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" -Me.TxbVideoSoftCore.ReadOnly = true -Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.TabIndex = 6 -Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore +Me.TabPage26.BackColor = System.Drawing.Color.Silver +Me.TabPage26.Controls.Add(Me.Panel12) +Me.TabPage26.Location = New System.Drawing.Point(4, 22) +Me.TabPage26.Name = "TabPage26" +Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage26.Size = New System.Drawing.Size(720, 448) +Me.TabPage26.TabIndex = 19 +Me.TabPage26.Text = "Themes" +' +'Panel12 +' +Me.Panel12.BackColor = System.Drawing.Color.LightGray +Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel12.Controls.Add(Me.GroupBox9) +Me.Panel12.Controls.Add(Me.PictureBox10) +Me.Panel12.Controls.Add(Me.GroupBox5) +Me.Panel12.Controls.Add(Me.GroupBox11) +Me.Panel12.Controls.Add(Me.GroupBox1) +Me.Panel12.Controls.Add(Me.Label164) +Me.Panel12.Location = New System.Drawing.Point(6, 6) +Me.Panel12.Name = "Panel12" +Me.Panel12.Size = New System.Drawing.Size(708, 437) +Me.Panel12.TabIndex = 93 ' -'LblVideoLesbianTotal +'GroupBox9 ' -Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" -Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotal.TabIndex = 11 -Me.LblVideoLesbianTotal.Text = "0" -Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox9.Controls.Add(Me.Button32) +Me.GroupBox9.Controls.Add(Me.Button31) +Me.GroupBox9.Location = New System.Drawing.Point(351, 231) +Me.GroupBox9.Name = "GroupBox9" +Me.GroupBox9.Size = New System.Drawing.Size(348, 94) +Me.GroupBox9.TabIndex = 152 +Me.GroupBox9.TabStop = false +Me.GroupBox9.Text = "System" ' -'TxbVideoHardCore +'Button32 ' -Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.Name = "TxbVideoHardCore" -Me.TxbVideoHardCore.ReadOnly = true -Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.TabIndex = 2 -Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore +Me.Button32.BackColor = System.Drawing.Color.Transparent +Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big +Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button32.Location = New System.Drawing.Point(196, 24) +Me.Button32.Name = "Button32" +Me.Button32.Size = New System.Drawing.Size(135, 55) +Me.Button32.TabIndex = 55 +Me.Button32.Text = " Save Theme" +Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button32.UseVisualStyleBackColor = false ' -'BTNVideoFemSub +'Button31 ' -Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSub.Name = "BTNVideoFemSub" -Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSub.TabIndex = 21 -Me.BTNVideoFemSub.Text = "1" -Me.BTNVideoFemSub.UseVisualStyleBackColor = false +Me.Button31.BackColor = System.Drawing.Color.Transparent +Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big +Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button31.Location = New System.Drawing.Point(17, 24) +Me.Button31.Name = "Button31" +Me.Button31.Size = New System.Drawing.Size(135, 55) +Me.Button31.TabIndex = 54 +Me.Button31.Text = " Open Theme" +Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button31.UseVisualStyleBackColor = false ' -'LblVideoSoftCoreTotal +'PictureBox10 ' -Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" -Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotal.TabIndex = 7 -Me.LblVideoSoftCoreTotal.Text = "0" -Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.PictureBox10.BackColor = System.Drawing.Color.LightGray +Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox10.Location = New System.Drawing.Point(9, 6) +Me.PictureBox10.Name = "PictureBox10" +Me.PictureBox10.Size = New System.Drawing.Size(160, 19) +Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox10.TabIndex = 151 +Me.PictureBox10.TabStop = false ' -'BTNVideoFemDom +'GroupBox5 ' -Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDom.Name = "BTNVideoFemDom" -Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDom.TabIndex = 17 -Me.BTNVideoFemDom.Text = "1" -Me.BTNVideoFemDom.UseVisualStyleBackColor = false +Me.GroupBox5.Controls.Add(Me.CBTransparentTime) +Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) +Me.GroupBox5.Controls.Add(Me.Label137) +Me.GroupBox5.Controls.Add(Me.Label138) +Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) +Me.GroupBox5.Location = New System.Drawing.Point(9, 31) +Me.GroupBox5.Name = "GroupBox5" +Me.GroupBox5.Size = New System.Drawing.Size(336, 294) +Me.GroupBox5.TabIndex = 58 +Me.GroupBox5.TabStop = false +Me.GroupBox5.Text = "UI Colors" ' -'BTNVideoBlowjob +'CBTransparentTime ' -Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" -Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjob.TabIndex = 13 -Me.BTNVideoBlowjob.Text = "1" -Me.BTNVideoBlowjob.UseVisualStyleBackColor = false +Me.CBTransparentTime.AutoSize = true +Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) +Me.CBTransparentTime.Name = "CBTransparentTime" +Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) +Me.CBTransparentTime.TabIndex = 23 +Me.CBTransparentTime.Text = "Transparent Date/Time Window" +Me.CBTransparentTime.UseVisualStyleBackColor = true ' -'LblVideoHardCoreTotal +'Label137 ' -Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" -Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotal.TabIndex = 3 -Me.LblVideoHardCoreTotal.Text = "0" -Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label137.Location = New System.Drawing.Point(6, 227) +Me.Label137.Name = "Label137" +Me.Label137.Size = New System.Drawing.Size(175, 20) +Me.Label137.TabIndex = 20 +Me.Label137.Text = "Date/Time Window Color" +Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoLesbian +'Label138 ' -Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbian.Name = "BTNVideoLesbian" -Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbian.TabIndex = 9 -Me.BTNVideoLesbian.Text = "1" -Me.BTNVideoLesbian.UseVisualStyleBackColor = false +Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label138.Location = New System.Drawing.Point(6, 193) +Me.Label138.Name = "Label138" +Me.Label138.Size = New System.Drawing.Size(175, 20) +Me.Label138.TabIndex = 17 +Me.Label138.Text = "Date/Time Text Color" +Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoSoftCore +'LBLTextColor ' -Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" -Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCore.TabIndex = 5 -Me.BTNVideoSoftCore.Text = "1" -Me.BTNVideoSoftCore.UseVisualStyleBackColor = false +Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) +Me.LBLTextColor.Name = "LBLTextColor" +Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLTextColor.TabIndex = 7 +Me.LBLTextColor.Text = "Text Color" +Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNVideoHardCore +'LBLChatTextColor ' -Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCore.Name = "BTNVideoHardCore" -Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCore.TabIndex = 1 -Me.BTNVideoHardCore.Text = "1" -Me.BTNVideoHardCore.UseVisualStyleBackColor = false +Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) +Me.LBLChatTextColor.Name = "LBLChatTextColor" +Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatTextColor.TabIndex = 14 +Me.LBLChatTextColor.Text = "Chat Text Color" +Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBVideoHardcore +'LBLButtonColor ' -Me.CBVideoHardcore.AutoSize = true -Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore -Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcore.Name = "CBVideoHardcore" -Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcore.TabIndex = 0 -Me.CBVideoHardcore.Text = "Hardcore" -Me.CBVideoHardcore.UseVisualStyleBackColor = true +Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) +Me.LBLButtonColor.Name = "LBLButtonColor" +Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) +Me.LBLButtonColor.TabIndex = 4 +Me.LBLButtonColor.Text = "Button Color" +Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBVideoSoftCore +'LBLChatWindowColor ' -Me.CBVideoSoftCore.AutoSize = true -Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore -Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCore.Name = "CBVideoSoftCore" -Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCore.TabIndex = 4 -Me.CBVideoSoftCore.Text = "Softcore" -Me.CBVideoSoftCore.UseVisualStyleBackColor = true +Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) +Me.LBLChatWindowColor.Name = "LBLChatWindowColor" +Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatWindowColor.TabIndex = 10 +Me.LBLChatWindowColor.Text = "Chat Window Color" +Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'LBLBackColor ' -'CBVideoLesbian +Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) +Me.LBLBackColor.Name = "LBLBackColor" +Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) +Me.LBLBackColor.TabIndex = 0 +Me.LBLBackColor.Text = "Background Color" +Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBVideoLesbian.AutoSize = true -Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian -Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbian.Name = "CBVideoLesbian" -Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbian.TabIndex = 8 -Me.CBVideoLesbian.Text = "Lesbian" -Me.CBVideoLesbian.UseVisualStyleBackColor = true +'GroupBox11 ' -'CBVideoBlowjob +Me.GroupBox11.BackColor = System.Drawing.Color.LightGray +Me.GroupBox11.Controls.Add(Me.Label144) +Me.GroupBox11.ForeColor = System.Drawing.Color.Black +Me.GroupBox11.Location = New System.Drawing.Point(7, 331) +Me.GroupBox11.Name = "GroupBox11" +Me.GroupBox11.Size = New System.Drawing.Size(692, 92) +Me.GroupBox11.TabIndex = 65 +Me.GroupBox11.TabStop = false +Me.GroupBox11.Text = "Description" ' -Me.CBVideoBlowjob.AutoSize = true -Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob -Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjob.Name = "CBVideoBlowjob" -Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjob.TabIndex = 12 -Me.CBVideoBlowjob.Text = "Blowjob" -Me.CBVideoBlowjob.UseVisualStyleBackColor = true +'Label144 ' -'CBVideoFemsub +Me.Label144.BackColor = System.Drawing.Color.Transparent +Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label144.ForeColor = System.Drawing.Color.Black +Me.Label144.Location = New System.Drawing.Point(6, 16) +Me.Label144.Name = "Label144" +Me.Label144.Size = New System.Drawing.Size(680, 73) +Me.Label144.TabIndex = 62 +Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ + "nd opened from txt files." +Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBVideoFemsub.AutoSize = true -Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub -Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsub.Name = "CBVideoFemsub" -Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsub.TabIndex = 20 -Me.CBVideoFemsub.Text = "Femsub" -Me.CBVideoFemsub.UseVisualStyleBackColor = true +'GroupBox1 ' -'CBVideoFemdom +Me.GroupBox1.Controls.Add(Me.CBFlipBack) +Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) +Me.GroupBox1.Controls.Add(Me.Button17) +Me.GroupBox1.Controls.Add(Me.CBStretchBack) +Me.GroupBox1.Controls.Add(Me.Button18) +Me.GroupBox1.Location = New System.Drawing.Point(351, 30) +Me.GroupBox1.Name = "GroupBox1" +Me.GroupBox1.Size = New System.Drawing.Size(348, 195) +Me.GroupBox1.TabIndex = 57 +Me.GroupBox1.TabStop = false +Me.GroupBox1.Text = "Background" ' -Me.CBVideoFemdom.AutoSize = true -Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom -Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdom.Name = "CBVideoFemdom" -Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdom.TabIndex = 16 -Me.CBVideoFemdom.Text = "Femdom" -Me.CBVideoFemdom.UseVisualStyleBackColor = true +'CBFlipBack ' -'LblVideoHeader +Me.CBFlipBack.Enabled = false +Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) +Me.CBFlipBack.Name = "CBFlipBack" +Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) +Me.CBFlipBack.TabIndex = 4 +Me.CBFlipBack.Text = "Flip Background" +Me.CBFlipBack.UseVisualStyleBackColor = true ' -Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black -Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) -Me.LblVideoHeader.Name = "LblVideoHeader" -Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) -Me.LblVideoHeader.TabIndex = 49 -Me.LblVideoHeader.Text = "Video Settings" -Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'PBBackgroundPreview ' -'TabPage20 +Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) +Me.PBBackgroundPreview.Name = "PBBackgroundPreview" +Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) +Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PBBackgroundPreview.TabIndex = 0 +Me.PBBackgroundPreview.TabStop = false ' -Me.TabPage20.BackColor = System.Drawing.Color.Silver -Me.TabPage20.Controls.Add(Me.TabControl1) -Me.TabPage20.Location = New System.Drawing.Point(4, 22) -Me.TabPage20.Name = "TabPage20" -Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage20.Size = New System.Drawing.Size(720, 448) -Me.TabPage20.TabIndex = 16 -Me.TabPage20.Text = "Apps" +'Button17 ' -'TabControl1 +Me.Button17.BackColor = System.Drawing.Color.Transparent +Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load +Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button17.Location = New System.Drawing.Point(228, 36) +Me.Button17.Name = "Button17" +Me.Button17.Size = New System.Drawing.Size(103, 93) +Me.Button17.TabIndex = 1 +Me.Button17.UseVisualStyleBackColor = false ' -Me.TabControl1.Controls.Add(Me.TabPage22) -Me.TabControl1.Controls.Add(Me.TpGames) -Me.TabControl1.Controls.Add(Me.TabPage6) -Me.TabControl1.Location = New System.Drawing.Point(6, 6) -Me.TabControl1.Name = "TabControl1" -Me.TabControl1.SelectedIndex = 0 -Me.TabControl1.Size = New System.Drawing.Size(708, 437) -Me.TabControl1.TabIndex = 0 +'CBStretchBack ' -'TabPage22 +Me.CBStretchBack.Checked = true +Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) +Me.CBStretchBack.Name = "CBStretchBack" +Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) +Me.CBStretchBack.TabIndex = 2 +Me.CBStretchBack.Text = "Stretch Background" +Me.CBStretchBack.UseVisualStyleBackColor = true ' -Me.TabPage22.BackColor = System.Drawing.Color.LightGray -Me.TabPage22.Controls.Add(Me.PNLGlitter) -Me.TabPage22.Location = New System.Drawing.Point(4, 22) -Me.TabPage22.Name = "TabPage22" -Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage22.Size = New System.Drawing.Size(700, 411) -Me.TabPage22.TabIndex = 0 -Me.TabPage22.Text = "Glitter" +'Button18 ' -'PNLGlitter +Me.Button18.Location = New System.Drawing.Point(228, 155) +Me.Button18.Name = "Button18" +Me.Button18.Size = New System.Drawing.Size(103, 31) +Me.Button18.TabIndex = 3 +Me.Button18.Text = "Clear" +Me.Button18.UseVisualStyleBackColor = true ' -Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray -Me.PNLGlitter.Controls.Add(Me.GroupBox14) -Me.PNLGlitter.Controls.Add(Me.GroupBox4) -Me.PNLGlitter.Controls.Add(Me.Button15) -Me.PNLGlitter.Controls.Add(Me.Button16) -Me.PNLGlitter.Controls.Add(Me.Label121) -Me.PNLGlitter.Controls.Add(Me.Label122) -Me.PNLGlitter.Controls.Add(Me.GBGlitterD) -Me.PNLGlitter.Controls.Add(Me.GBGlitter1) -Me.PNLGlitter.Controls.Add(Me.GBGlitter3) -Me.PNLGlitter.Controls.Add(Me.GBGlitter2) -Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) -Me.PNLGlitter.Name = "PNLGlitter" -Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) -Me.PNLGlitter.TabIndex = 91 +'Label164 ' -'GroupBox14 +Me.Label164.BackColor = System.Drawing.Color.Transparent +Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label164.ForeColor = System.Drawing.Color.Black +Me.Label164.Location = New System.Drawing.Point(7, 6) +Me.Label164.Name = "Label164" +Me.Label164.Size = New System.Drawing.Size(692, 21) +Me.Label164.TabIndex = 49 +Me.Label164.Text = "Theme Settings" +Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.GroupBox14.BackColor = System.Drawing.Color.LightGray -Me.GroupBox14.Controls.Add(Me.Label170) -Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) -Me.GroupBox14.Controls.Add(Me.RandomHonorific) -Me.GroupBox14.Location = New System.Drawing.Point(355, 307) -Me.GroupBox14.Name = "GroupBox14" -Me.GroupBox14.Size = New System.Drawing.Size(306, 85) -Me.GroupBox14.TabIndex = 182 -Me.GroupBox14.TabStop = false -Me.GroupBox14.Text = "General Contact Settings" +'TabPage4 ' -'alwaysNewSlideshow +Me.TabPage4.BackColor = System.Drawing.Color.Silver +Me.TabPage4.Controls.Add(Me.Panel6) +Me.TabPage4.Location = New System.Drawing.Point(4, 22) +Me.TabPage4.Name = "TabPage4" +Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage4.Size = New System.Drawing.Size(720, 448) +Me.TabPage4.TabIndex = 3 +Me.TabPage4.Text = "Ranges" ' -Me.alwaysNewSlideshow.AutoSize = true -Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black -Me.alwaysNewSlideshow.Location = New System.Drawing.Point(10, 24) -Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" -Me.alwaysNewSlideshow.Size = New System.Drawing.Size(294, 17) -Me.alwaysNewSlideshow.TabIndex = 151 -Me.alwaysNewSlideshow.Text = "Always Load New Slideshow When Using @AddContact" -Me.alwaysNewSlideshow.UseVisualStyleBackColor = true +'Panel6 ' -'GroupBox4 +Me.Panel6.BackColor = System.Drawing.Color.LightGray +Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel6.Controls.Add(Me.GroupBox69) +Me.Panel6.Controls.Add(Me.GroupBox68) +Me.Panel6.Controls.Add(Me.GroupBox67) +Me.Panel6.Controls.Add(Me.GroupBox10) +Me.Panel6.Controls.Add(Me.GroupBox57) +Me.Panel6.Controls.Add(Me.GBRangeRuinChance) +Me.Panel6.Controls.Add(Me.GroupBox17) +Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) +Me.Panel6.Controls.Add(Me.PictureBox8) +Me.Panel6.Controls.Add(Me.Label38) +Me.Panel6.Location = New System.Drawing.Point(6, 6) +Me.Panel6.Name = "Panel6" +Me.Panel6.Size = New System.Drawing.Size(708, 437) +Me.Panel6.TabIndex = 91 ' -Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) -Me.GroupBox4.Location = New System.Drawing.Point(7, 307) -Me.GroupBox4.Name = "GroupBox4" -Me.GroupBox4.Size = New System.Drawing.Size(344, 85) -Me.GroupBox4.TabIndex = 167 -Me.GroupBox4.TabStop = false -Me.GroupBox4.Text = "Change Current Domme" +'GroupBox69 +' +Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) +Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) +Me.GroupBox69.Controls.Add(Me.TimedWriting) +Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) +Me.GroupBox69.Location = New System.Drawing.Point(236, 344) +Me.GroupBox69.Name = "GroupBox69" +Me.GroupBox69.Size = New System.Drawing.Size(166, 83) +Me.GroupBox69.TabIndex = 173 +Me.GroupBox69.TabStop = false +Me.GroupBox69.Text = "Writing Tasks" ' -'LBLCurrentDomme +'TypesSpeedVal ' -Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) -Me.LBLCurrentDomme.Name = "LBLCurrentDomme" -Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) -Me.LBLCurrentDomme.TabIndex = 168 -Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TypesSpeedVal.AutoSize = true +Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) +Me.TypesSpeedVal.Name = "TypesSpeedVal" +Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) +Me.TypesSpeedVal.TabIndex = 0 +Me.TypesSpeedVal.Text = "10" +Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'BTNDomChangeContact1 +'TypeSpeedLabel ' -Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) -Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" -Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact1.TabIndex = 173 -Me.BTNDomChangeContact1.Text = "Contact 1" -Me.BTNDomChangeContact1.UseVisualStyleBackColor = false +Me.TypeSpeedLabel.AutoSize = true +Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) +Me.TypeSpeedLabel.Name = "TypeSpeedLabel" +Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) +Me.TypeSpeedLabel.TabIndex = 2 +Me.TypeSpeedLabel.Text = "Typing Speed:" ' -'BTNDomChangeRandom +'GroupBox68 ' -Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) -Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" -Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeRandom.TabIndex = 172 -Me.BTNDomChangeRandom.Text = "Random" -Me.BTNDomChangeRandom.UseVisualStyleBackColor = false +Me.GroupBox68.Controls.Add(Me.NBTasksMax) +Me.GroupBox68.Controls.Add(Me.NBTasksMin) +Me.GroupBox68.Controls.Add(Me.Label165) +Me.GroupBox68.Controls.Add(Me.Label166) +Me.GroupBox68.Location = New System.Drawing.Point(236, 287) +Me.GroupBox68.Name = "GroupBox68" +Me.GroupBox68.Size = New System.Drawing.Size(166, 51) +Me.GroupBox68.TabIndex = 172 +Me.GroupBox68.TabStop = false +Me.GroupBox68.Text = "Session Tasks" ' -'BTNDomChangeContact3 +'NBTasksMax ' -Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) -Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" -Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact3.TabIndex = 171 -Me.BTNDomChangeContact3.Text = "Contact 3" -Me.BTNDomChangeContact3.UseVisualStyleBackColor = false +Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) +Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) +Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTasksMax.Name = "NBTasksMax" +Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMax.TabIndex = 187 +Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) ' -'BTNDomChangeContact2 +'NBTasksMin ' -Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) -Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" -Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact2.TabIndex = 170 -Me.BTNDomChangeContact2.Text = "Contact 2" -Me.BTNDomChangeContact2.UseVisualStyleBackColor = false +Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) +Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBTasksMin.Name = "NBTasksMin" +Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMin.TabIndex = 186 +Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) ' -'BTNDomChangeDomme +'Label165 ' -Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) -Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" -Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeDomme.TabIndex = 168 -Me.BTNDomChangeDomme.Text = "Domme" -Me.BTNDomChangeDomme.UseVisualStyleBackColor = false +Me.Label165.BackColor = System.Drawing.Color.Transparent +Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label165.ForeColor = System.Drawing.Color.Black +Me.Label165.Location = New System.Drawing.Point(100, 20) +Me.Label165.Name = "Label165" +Me.Label165.Size = New System.Drawing.Size(10, 17) +Me.Label165.TabIndex = 185 +Me.Label165.Text = "-" +Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button15 +'Label166 ' -Me.Button15.BackColor = System.Drawing.Color.LightGray -Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button15.FlatAppearance.BorderSize = 0 -Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button15.ForeColor = System.Drawing.Color.Black -Me.Button15.Location = New System.Drawing.Point(670, 366) -Me.Button15.Name = "Button15" -Me.Button15.Size = New System.Drawing.Size(30, 26) -Me.Button15.TabIndex = 163 -Me.Button15.UseVisualStyleBackColor = false +Me.Label166.BackColor = System.Drawing.Color.Transparent +Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label166.ForeColor = System.Drawing.Color.Black +Me.Label166.Location = New System.Drawing.Point(6, 21) +Me.Label166.Name = "Label166" +Me.Label166.Size = New System.Drawing.Size(49, 17) +Me.Label166.TabIndex = 188 +Me.Label166.Text = "Amount:" +Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button16 +'GroupBox67 ' -Me.Button16.BackColor = System.Drawing.Color.LightGray -Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button16.FlatAppearance.BorderSize = 0 -Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button16.ForeColor = System.Drawing.Color.Black -Me.Button16.Location = New System.Drawing.Point(667, 324) -Me.Button16.Name = "Button16" -Me.Button16.Size = New System.Drawing.Size(30, 26) -Me.Button16.TabIndex = 164 -Me.Button16.UseVisualStyleBackColor = false +Me.GroupBox67.Controls.Add(Me.Label161) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) +Me.GroupBox67.Controls.Add(Me.Label162) +Me.GroupBox67.Controls.Add(Me.Label163) +Me.GroupBox67.Controls.Add(Me.Label158) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) +Me.GroupBox67.Controls.Add(Me.Label159) +Me.GroupBox67.Controls.Add(Me.Label160) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) +Me.GroupBox67.Controls.Add(Me.Label119) +Me.GroupBox67.Controls.Add(Me.Label157) +Me.GroupBox67.Controls.Add(Me.Label151) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) +Me.GroupBox67.Controls.Add(Me.Label154) +Me.GroupBox67.Controls.Add(Me.Label155) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) +Me.GroupBox67.Controls.Add(Me.Label146) +Me.GroupBox67.Controls.Add(Me.Label149) +Me.GroupBox67.Location = New System.Drawing.Point(408, 288) +Me.GroupBox67.Name = "GroupBox67" +Me.GroupBox67.Size = New System.Drawing.Size(291, 139) +Me.GroupBox67.TabIndex = 171 +Me.GroupBox67.TabStop = false +Me.GroupBox67.Text = "Letter Tasks" ' -'Label121 +'Label161 ' -Me.Label121.AutoSize = true -Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label121.ForeColor = System.Drawing.Color.Black -Me.Label121.Location = New System.Drawing.Point(669, 352) -Me.Label121.Name = "Label121" -Me.Label121.Size = New System.Drawing.Size(27, 13) -Me.Label121.TabIndex = 166 -Me.Label121.Text = "load" -Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label161.BackColor = System.Drawing.Color.Transparent +Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label161.ForeColor = System.Drawing.Color.Black +Me.Label161.Location = New System.Drawing.Point(233, 110) +Me.Label161.Name = "Label161" +Me.Label161.Size = New System.Drawing.Size(50, 17) +Me.Label161.TabIndex = 204 +Me.Label161.Text = "minutes" +Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label122 +'Label162 ' -Me.Label122.AutoSize = true -Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label122.ForeColor = System.Drawing.Color.Black -Me.Label122.Location = New System.Drawing.Point(667, 313) -Me.Label122.Name = "Label122" -Me.Label122.Size = New System.Drawing.Size(30, 13) -Me.Label122.TabIndex = 165 -Me.Label122.Text = "save" -Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label162.BackColor = System.Drawing.Color.Transparent +Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label162.ForeColor = System.Drawing.Color.Black +Me.Label162.Location = New System.Drawing.Point(167, 110) +Me.Label162.Name = "Label162" +Me.Label162.Size = New System.Drawing.Size(10, 17) +Me.Label162.TabIndex = 201 +Me.Label162.Text = "-" +Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GBGlitterD +'Label163 ' -Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray -Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) -Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom2) -Me.GBGlitterD.Controls.Add(Me.GlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom1) -Me.GBGlitterD.Controls.Add(Me.CBDaily) -Me.GBGlitterD.Controls.Add(Me.CBTrivia) -Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) -Me.GBGlitterD.Controls.Add(Me.CBEgotist) -Me.GBGlitterD.Controls.Add(Me.CBTease) -Me.GBGlitterD.Controls.Add(Me.GlitterAV) -Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) -Me.GBGlitterD.Name = "GBGlitterD" -Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) -Me.GBGlitterD.TabIndex = 162 -Me.GBGlitterD.TabStop = false -Me.GBGlitterD.Text = "Domme" +Me.Label163.BackColor = System.Drawing.Color.Transparent +Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label163.ForeColor = System.Drawing.Color.Black +Me.Label163.Location = New System.Drawing.Point(12, 111) +Me.Label163.Name = "Label163" +Me.Label163.Size = New System.Drawing.Size(151, 17) +Me.Label163.TabIndex = 200 +Me.Label163.Text = "CBT Time:" +Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'Label158 ' -'GrbGlitterfeed +Me.Label158.BackColor = System.Drawing.Color.Transparent +Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label158.ForeColor = System.Drawing.Color.Black +Me.Label158.Location = New System.Drawing.Point(233, 87) +Me.Label158.Name = "Label158" +Me.Label158.Size = New System.Drawing.Size(50, 17) +Me.Label158.TabIndex = 199 +Me.Label158.Text = "minutes" +Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) -Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) -Me.GrbGlitterfeed.Name = "GrbGlitterfeed" -Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) -Me.GrbGlitterfeed.TabIndex = 168 -Me.GrbGlitterfeed.TabStop = false -Me.GrbGlitterfeed.Text = "Glitterfeeds" +'Label159 ' -'CBGlitterFeedScripts +Me.Label159.BackColor = System.Drawing.Color.Transparent +Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label159.ForeColor = System.Drawing.Color.Black +Me.Label159.Location = New System.Drawing.Point(167, 87) +Me.Label159.Name = "Label159" +Me.Label159.Size = New System.Drawing.Size(10, 17) +Me.Label159.TabIndex = 196 +Me.Label159.Text = "-" +Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBGlitterFeedScripts.AutoSize = true -Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent -Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts -Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) -Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) -Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" -Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) -Me.CBGlitterFeedScripts.TabIndex = 146 -Me.CBGlitterFeedScripts.Text = "Scripts" -Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false +'Label160 ' -'CBGlitterFeed +Me.Label160.BackColor = System.Drawing.Color.Transparent +Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label160.ForeColor = System.Drawing.Color.Black +Me.Label160.Location = New System.Drawing.Point(12, 88) +Me.Label160.Name = "Label160" +Me.Label160.Size = New System.Drawing.Size(151, 17) +Me.Label160.TabIndex = 195 +Me.Label160.Text = "Edge Hold Time:" +Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBGlitterFeed.AutoSize = true -Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed -Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) -Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) -Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) -Me.CBGlitterFeed.Name = "CBGlitterFeed" -Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeed.TabIndex = 145 -Me.CBGlitterFeed.Text = "On" -Me.CBGlitterFeed.UseVisualStyleBackColor = true +'Label119 ' -'CBGlitterFeedOff +Me.Label119.BackColor = System.Drawing.Color.Transparent +Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label119.ForeColor = System.Drawing.Color.Black +Me.Label119.Location = New System.Drawing.Point(167, 64) +Me.Label119.Name = "Label119" +Me.Label119.Size = New System.Drawing.Size(10, 17) +Me.Label119.TabIndex = 192 +Me.Label119.Text = "-" +Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBGlitterFeedOff.AutoSize = true -Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff -Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) -Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) -Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" -Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeedOff.TabIndex = 147 -Me.CBGlitterFeedOff.TabStop = true -Me.CBGlitterFeedOff.Text = "Off" -Me.CBGlitterFeedOff.UseVisualStyleBackColor = true +'Label157 ' -'BTNGlitterD +Me.Label157.BackColor = System.Drawing.Color.Transparent +Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label157.ForeColor = System.Drawing.Color.Black +Me.Label157.Location = New System.Drawing.Point(12, 65) +Me.Label157.Name = "Label157" +Me.Label157.Size = New System.Drawing.Size(151, 17) +Me.Label157.TabIndex = 191 +Me.Label157.Text = "Edges:" +Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black -Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitterD.Name = "BTNGlitterD" -Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitterD.TabIndex = 166 -Me.BTNGlitterD.Text = "Choose Name Color" -Me.BTNGlitterD.UseVisualStyleBackColor = false +'Label151 ' -'LBLGlitterNCDomme +Me.Label151.BackColor = System.Drawing.Color.Transparent +Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label151.ForeColor = System.Drawing.Color.Black +Me.Label151.Location = New System.Drawing.Point(233, 41) +Me.Label151.Name = "Label151" +Me.Label151.Size = New System.Drawing.Size(50, 17) +Me.Label151.TabIndex = 190 +Me.Label151.Text = "minutes" +Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White -Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor -Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" -Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNCDomme.TabIndex = 163 -Me.LBLGlitterNCDomme.Text = "Preview" -Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Label154 ' -'LBLGlitterSlider +Me.Label154.BackColor = System.Drawing.Color.Transparent +Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label154.ForeColor = System.Drawing.Color.Black +Me.Label154.Location = New System.Drawing.Point(167, 41) +Me.Label154.Name = "Label154" +Me.Label154.Size = New System.Drawing.Size(10, 17) +Me.Label154.TabIndex = 187 +Me.Label154.Text = "-" +Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider.Name = "LBLGlitterSlider" -Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider.TabIndex = 162 -Me.LBLGlitterSlider.Text = "Post Frequency" -Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'Label155 ' -'CBCustom2 +Me.Label155.BackColor = System.Drawing.Color.Transparent +Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label155.ForeColor = System.Drawing.Color.Black +Me.Label155.Location = New System.Drawing.Point(12, 42) +Me.Label155.Name = "Label155" +Me.Label155.Size = New System.Drawing.Size(151, 17) +Me.Label155.TabIndex = 186 +Me.Label155.Text = "Stroking Time:" +Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBCustom2.AutoSize = true -Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 -Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom2.ForeColor = System.Drawing.Color.Black -Me.CBCustom2.Location = New System.Drawing.Point(149, 121) -Me.CBCustom2.Name = "CBCustom2" -Me.CBCustom2.Size = New System.Drawing.Size(70, 17) -Me.CBCustom2.TabIndex = 161 -Me.CBCustom2.Text = "Custom 2" -Me.CBCustom2.UseVisualStyleBackColor = true +'Label146 ' -'GlitterSlider +Me.Label146.BackColor = System.Drawing.Color.Transparent +Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label146.ForeColor = System.Drawing.Color.Black +Me.Label146.Location = New System.Drawing.Point(167, 18) +Me.Label146.Name = "Label146" +Me.Label146.Size = New System.Drawing.Size(10, 17) +Me.Label146.TabIndex = 182 +Me.Label146.Text = "-" +Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.GlitterSlider.AutoSize = false -Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider.LargeChange = 1 -Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider.Maximum = 9 -Me.GlitterSlider.Minimum = 1 -Me.GlitterSlider.Name = "GlitterSlider" -Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider.TabIndex = 160 -Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider +'Label149 ' -'CBCustom1 +Me.Label149.BackColor = System.Drawing.Color.Transparent +Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label149.ForeColor = System.Drawing.Color.Black +Me.Label149.Location = New System.Drawing.Point(12, 19) +Me.Label149.Name = "Label149" +Me.Label149.Size = New System.Drawing.Size(151, 17) +Me.Label149.TabIndex = 181 +Me.Label149.Text = "Strokes:" +Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBCustom1.AutoSize = true -Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 -Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom1.ForeColor = System.Drawing.Color.Black -Me.CBCustom1.Location = New System.Drawing.Point(149, 98) -Me.CBCustom1.Name = "CBCustom1" -Me.CBCustom1.Size = New System.Drawing.Size(70, 17) -Me.CBCustom1.TabIndex = 157 -Me.CBCustom1.Text = "Custom 1" -Me.CBCustom1.UseVisualStyleBackColor = true +'GroupBox10 ' -'CBDaily +Me.GroupBox10.Controls.Add(Me.Label112) +Me.GroupBox10.Controls.Add(Me.NBNextImageChance) +Me.GroupBox10.Controls.Add(Me.Label6) +Me.GroupBox10.Location = New System.Drawing.Point(408, 31) +Me.GroupBox10.Name = "GroupBox10" +Me.GroupBox10.Size = New System.Drawing.Size(291, 54) +Me.GroupBox10.TabIndex = 170 +Me.GroupBox10.TabStop = false +Me.GroupBox10.Text = "Tease Slideshow" ' -Me.CBDaily.AutoSize = true -Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily -Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBDaily.ForeColor = System.Drawing.Color.Black -Me.CBDaily.Location = New System.Drawing.Point(79, 121) -Me.CBDaily.Name = "CBDaily" -Me.CBDaily.Size = New System.Drawing.Size(49, 17) -Me.CBDaily.TabIndex = 156 -Me.CBDaily.Text = "Daily" -Me.CBDaily.UseVisualStyleBackColor = true +'Label112 ' -'CBTrivia +Me.Label112.BackColor = System.Drawing.Color.Transparent +Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label112.ForeColor = System.Drawing.Color.Black +Me.Label112.Location = New System.Drawing.Point(233, 21) +Me.Label112.Name = "Label112" +Me.Label112.Size = New System.Drawing.Size(50, 17) +Me.Label112.TabIndex = 180 +Me.Label112.Text = "percent" +Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.CBTrivia.AutoSize = true -Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia -Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTrivia.ForeColor = System.Drawing.Color.Black -Me.CBTrivia.Location = New System.Drawing.Point(79, 98) -Me.CBTrivia.Name = "CBTrivia" -Me.CBTrivia.Size = New System.Drawing.Size(52, 17) -Me.CBTrivia.TabIndex = 155 -Me.CBTrivia.Text = "Trivia" -Me.CBTrivia.UseVisualStyleBackColor = true +'NBNextImageChance +' +Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) +Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBNextImageChance.Name = "NBNextImageChance" +Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) +Me.NBNextImageChance.TabIndex = 179 +Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'TBGlitterShortName +'Label6 ' -Me.TBGlitterShortName.BackColor = System.Drawing.Color.White -Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black -Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) -Me.TBGlitterShortName.Name = "TBGlitterShortName" -Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) -Me.TBGlitterShortName.TabIndex = 49 -Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN -Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label6.BackColor = System.Drawing.Color.Transparent +Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label6.ForeColor = System.Drawing.Color.Black +Me.Label6.Location = New System.Drawing.Point(9, 21) +Me.Label6.Name = "Label6" +Me.Label6.Size = New System.Drawing.Size(151, 17) +Me.Label6.TabIndex = 154 +Me.Label6.Text = "Image Next/Previous Chance:" +Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBEgotist +'GroupBox57 ' -Me.CBEgotist.AutoSize = true -Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist -Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBEgotist.ForeColor = System.Drawing.Color.Black -Me.CBEgotist.Location = New System.Drawing.Point(9, 121) -Me.CBEgotist.Name = "CBEgotist" -Me.CBEgotist.Size = New System.Drawing.Size(58, 17) -Me.CBEgotist.TabIndex = 153 -Me.CBEgotist.Text = "Egotist" -Me.CBEgotist.UseVisualStyleBackColor = true +Me.GroupBox57.Controls.Add(Me.Label139) +Me.GroupBox57.Controls.Add(Me.NBTauntEdging) +Me.GroupBox57.Controls.Add(Me.LBLVtf) +Me.GroupBox57.Controls.Add(Me.LBLStf) +Me.GroupBox57.Controls.Add(Me.SliderSTF) +Me.GroupBox57.Controls.Add(Me.TauntSlider) +Me.GroupBox57.Controls.Add(Me.Label106) +Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) +Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) +Me.GroupBox57.Controls.Add(Me.Label103) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) +Me.GroupBox57.Controls.Add(Me.Label105) +Me.GroupBox57.Controls.Add(Me.Label101) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) +Me.GroupBox57.Controls.Add(Me.Label102) +Me.GroupBox57.Controls.Add(Me.Label97) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) +Me.GroupBox57.Controls.Add(Me.Label99) +Me.GroupBox57.Controls.Add(Me.Label96) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) +Me.GroupBox57.Controls.Add(Me.Label95) +Me.GroupBox57.Controls.Add(Me.Label49) +Me.GroupBox57.Controls.Add(Me.Label141) +Me.GroupBox57.Location = New System.Drawing.Point(7, 30) +Me.GroupBox57.Name = "GroupBox57" +Me.GroupBox57.Size = New System.Drawing.Size(223, 308) +Me.GroupBox57.TabIndex = 169 +Me.GroupBox57.TabStop = false +Me.GroupBox57.Text = "Tease" ' -'CBTease +'Label139 ' -Me.CBTease.AutoSize = true -Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease -Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTease.ForeColor = System.Drawing.Color.Black -Me.CBTease.Location = New System.Drawing.Point(9, 98) -Me.CBTease.Name = "CBTease" -Me.CBTease.Size = New System.Drawing.Size(56, 17) -Me.CBTease.TabIndex = 152 -Me.CBTease.Text = "Tease" -Me.CBTease.UseVisualStyleBackColor = true +Me.Label139.BackColor = System.Drawing.Color.Transparent +Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label139.ForeColor = System.Drawing.Color.Black +Me.Label139.Location = New System.Drawing.Point(175, 171) +Me.Label139.Name = "Label139" +Me.Label139.Size = New System.Drawing.Size(50, 17) +Me.Label139.TabIndex = 184 +Me.Label139.Text = "percent" +Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterAV +'NBTauntEdging ' -Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV.Name = "GlitterAV" -Me.GlitterAV.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV.TabIndex = 149 -Me.GlitterAV.TabStop = false +Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) +Me.NBTauntEdging.Name = "NBTauntEdging" +Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) +Me.NBTauntEdging.TabIndex = 188 +Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) ' -'GBGlitter1 +'LBLVtf ' -Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter1.Controls.Add(Me.Label167) -Me.GBGlitter1.Controls.Add(Me.G1Honorific) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.CBGlitter1) -Me.GBGlitter1.Controls.Add(Me.TBGlitter1) -Me.GBGlitter1.Controls.Add(Me.GlitterAV1) -Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) -Me.GBGlitter1.Name = "GBGlitter1" -Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter1.TabIndex = 161 -Me.GBGlitter1.TabStop = false -Me.GBGlitter1.Text = "Contact 1" +Me.LBLVtf.BackColor = System.Drawing.Color.Transparent +Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLVtf.ForeColor = System.Drawing.Color.Black +Me.LBLVtf.Location = New System.Drawing.Point(128, 261) +Me.LBLVtf.Name = "LBLVtf" +Me.LBLVtf.Size = New System.Drawing.Size(87, 17) +Me.LBLVtf.TabIndex = 187 +Me.LBLVtf.Text = "Normal" +Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label167 +'LBLStf ' -Me.Label167.BackColor = System.Drawing.Color.Transparent -Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label167.ForeColor = System.Drawing.Color.Black -Me.Label167.Location = New System.Drawing.Point(220, 15) -Me.Label167.Name = "Label167" -Me.Label167.Size = New System.Drawing.Size(114, 19) -Me.Label167.TabIndex = 182 -Me.Label167.Text = "Contact Honorific" -Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLStf.BackColor = System.Drawing.Color.Transparent +Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLStf.ForeColor = System.Drawing.Color.Black +Me.LBLStf.Location = New System.Drawing.Point(130, 220) +Me.LBLStf.Name = "LBLStf" +Me.LBLStf.Size = New System.Drawing.Size(87, 17) +Me.LBLStf.TabIndex = 165 +Me.LBLStf.Text = "Normal" +Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'G1Honorific +'SliderSTF ' -Me.G1Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G1Honorific.Location = New System.Drawing.Point(220, 34) -Me.G1Honorific.Name = "G1Honorific" -Me.G1Honorific.Size = New System.Drawing.Size(116, 23) -Me.G1Honorific.TabIndex = 0 -Me.G1Honorific.Text = "Mistress" -Me.G1Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.SliderSTF.AutoSize = false +Me.SliderSTF.LargeChange = 1 +Me.SliderSTF.Location = New System.Drawing.Point(130, 199) +Me.SliderSTF.Maximum = 5 +Me.SliderSTF.Minimum = 1 +Me.SliderSTF.Name = "SliderSTF" +Me.SliderSTF.Size = New System.Drawing.Size(87, 25) +Me.SliderSTF.TabIndex = 163 +Me.SliderSTF.Value = 3 ' -'BtnContact1ImageDirClear +'TauntSlider ' -Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" -Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact1ImageDirClear.TabIndex = 181 -Me.BtnContact1ImageDirClear.Text = "Clear" -Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false +Me.TauntSlider.AutoSize = false +Me.TauntSlider.LargeChange = 1 +Me.TauntSlider.Location = New System.Drawing.Point(130, 240) +Me.TauntSlider.Maximum = 9 +Me.TauntSlider.Minimum = 1 +Me.TauntSlider.Name = "TauntSlider" +Me.TauntSlider.Size = New System.Drawing.Size(87, 25) +Me.TauntSlider.TabIndex = 161 +Me.TauntSlider.Value = 4 ' -'BtnContact1ImageDir +'Label106 ' -Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" -Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact1ImageDir.TabIndex = 177 -Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" -Me.BtnContact1ImageDir.UseVisualStyleBackColor = false +Me.Label106.BackColor = System.Drawing.Color.Transparent +Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label106.ForeColor = System.Drawing.Color.Black +Me.Label106.Location = New System.Drawing.Point(6, 243) +Me.Label106.Name = "Label106" +Me.Label106.Size = New System.Drawing.Size(123, 17) +Me.Label106.TabIndex = 186 +Me.Label106.Text = "Video Taunt Frequency:" +Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TbxContact1ImageDir +'CBTauntCycleDD ' -Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" -Me.TbxContact1ImageDir.ReadOnly = true -Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.TabIndex = 176 -Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir +Me.CBTauntCycleDD.AutoSize = true +Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black +Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) +Me.CBTauntCycleDD.Name = "CBTauntCycleDD" +Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) +Me.CBTauntCycleDD.TabIndex = 185 +Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" +Me.CBTauntCycleDD.UseVisualStyleBackColor = true ' -'BTNGlitter1 +'CBTeaseLengthDD ' -Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter1.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter1.Name = "BTNGlitter1" -Me.BTNGlitter1.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter1.TabIndex = 175 -Me.BTNGlitter1.Text = "Choose Name Color" -Me.BTNGlitter1.UseVisualStyleBackColor = false +Me.CBTeaseLengthDD.AutoSize = true +Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black +Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) +Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" +Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) +Me.CBTeaseLengthDD.TabIndex = 184 +Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" +Me.CBTeaseLengthDD.UseVisualStyleBackColor = true +' +'Label103 +' +Me.Label103.BackColor = System.Drawing.Color.Transparent +Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label103.ForeColor = System.Drawing.Color.Black +Me.Label103.Location = New System.Drawing.Point(175, 117) +Me.Label103.Name = "Label103" +Me.Label103.Size = New System.Drawing.Size(50, 17) +Me.Label103.TabIndex = 183 +Me.Label103.Text = "minutes" +Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitterNC1 +'NBTauntCycleMax ' -Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color -Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC1.Name = "LBLGlitterNC1" -Me.LBLGlitterNC1.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC1.TabIndex = 166 -Me.LBLGlitterNC1.Text = "Preview" -Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) +Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) +Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBTauntCycleMax.Name = "NBTauntCycleMax" +Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMax.TabIndex = 182 +Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -'LBLGlitterSlider1 +'Label105 ' -Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" -Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider1.TabIndex = 163 -Me.LBLGlitterSlider1.Text = "Response Frequency" -Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label105.BackColor = System.Drawing.Color.Transparent +Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label105.ForeColor = System.Drawing.Color.Black +Me.Label105.Location = New System.Drawing.Point(6, 117) +Me.Label105.Name = "Label105" +Me.Label105.Size = New System.Drawing.Size(123, 17) +Me.Label105.TabIndex = 181 +Me.Label105.Text = "Taunt Cycle Maximum:" +Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterSlider1 +'Label101 ' -Me.GlitterSlider1.AutoSize = false -Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider1.LargeChange = 1 -Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider1.Maximum = 9 -Me.GlitterSlider1.Minimum = 1 -Me.GlitterSlider1.Name = "GlitterSlider1" -Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider1.TabIndex = 161 -Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider +Me.Label101.BackColor = System.Drawing.Color.Transparent +Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label101.ForeColor = System.Drawing.Color.Black +Me.Label101.Location = New System.Drawing.Point(175, 93) +Me.Label101.Name = "Label101" +Me.Label101.Size = New System.Drawing.Size(50, 17) +Me.Label101.TabIndex = 180 +Me.Label101.Text = "minutes" +Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBGlitter1 +'NBTauntCycleMin ' -Me.CBGlitter1.AutoSize = true -Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 -Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter1.ForeColor = System.Drawing.Color.Black -Me.CBGlitter1.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter1.Name = "CBGlitter1" -Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter1.TabIndex = 151 -Me.CBGlitter1.Text = "Enable This Contact" -Me.CBGlitter1.UseVisualStyleBackColor = true +Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) +Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTauntCycleMin.Name = "NBTauntCycleMin" +Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMin.TabIndex = 179 +Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -'TBGlitter1 +'Label102 ' -Me.TBGlitter1.BackColor = System.Drawing.Color.White -Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter1.ForeColor = System.Drawing.Color.Black -Me.TBGlitter1.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter1.Name = "TBGlitter1" -Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter1.TabIndex = 49 -Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 -Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label102.BackColor = System.Drawing.Color.Transparent +Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label102.ForeColor = System.Drawing.Color.Black +Me.Label102.Location = New System.Drawing.Point(6, 93) +Me.Label102.Name = "Label102" +Me.Label102.Size = New System.Drawing.Size(123, 17) +Me.Label102.TabIndex = 178 +Me.Label102.Text = "Taunt Cycle Minimum:" +Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterAV1 +'Label97 ' -Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV1.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV1.Name = "GlitterAV1" -Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV1.TabIndex = 149 -Me.GlitterAV1.TabStop = false +Me.Label97.BackColor = System.Drawing.Color.Transparent +Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label97.ForeColor = System.Drawing.Color.Black +Me.Label97.Location = New System.Drawing.Point(175, 46) +Me.Label97.Name = "Label97" +Me.Label97.Size = New System.Drawing.Size(50, 17) +Me.Label97.TabIndex = 177 +Me.Label97.Text = "minutes" +Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GBGlitter3 +'NBTeaseLengthMax ' -Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter3.Controls.Add(Me.Label168) -Me.GBGlitter3.Controls.Add(Me.G3Honorific) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.CBGlitter3) -Me.GBGlitter3.Controls.Add(Me.TBGlitter3) -Me.GBGlitter3.Controls.Add(Me.GlitterAV3) -Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) -Me.GBGlitter3.Name = "GBGlitter3" -Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter3.TabIndex = 160 -Me.GBGlitter3.TabStop = false -Me.GBGlitter3.Text = "Contact 3" +Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) +Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {1440, 0, 0, 0}) +Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" +Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMax.TabIndex = 176 +Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'Label168 +'Label99 ' -Me.Label168.BackColor = System.Drawing.Color.Transparent -Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label168.ForeColor = System.Drawing.Color.Black -Me.Label168.Location = New System.Drawing.Point(220, 15) -Me.Label168.Name = "Label168" -Me.Label168.Size = New System.Drawing.Size(114, 19) -Me.Label168.TabIndex = 181 -Me.Label168.Text = "Contact Honorific" -Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label99.BackColor = System.Drawing.Color.Transparent +Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label99.ForeColor = System.Drawing.Color.Black +Me.Label99.Location = New System.Drawing.Point(6, 46) +Me.Label99.Name = "Label99" +Me.Label99.Size = New System.Drawing.Size(123, 17) +Me.Label99.TabIndex = 175 +Me.Label99.Text = "Tease Length Maximum:" +Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'G3Honorific +'Label96 ' -Me.G3Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G3Honorific.Location = New System.Drawing.Point(220, 34) -Me.G3Honorific.Name = "G3Honorific" -Me.G3Honorific.Size = New System.Drawing.Size(115, 23) -Me.G3Honorific.TabIndex = 0 -Me.G3Honorific.Text = "Mistress" -Me.G3Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label96.BackColor = System.Drawing.Color.Transparent +Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label96.ForeColor = System.Drawing.Color.Black +Me.Label96.Location = New System.Drawing.Point(175, 20) +Me.Label96.Name = "Label96" +Me.Label96.Size = New System.Drawing.Size(50, 17) +Me.Label96.TabIndex = 174 +Me.Label96.Text = "minutes" +Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BtnContact3ImageDirClear +'NBTeaseLengthMin ' -Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" -Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact3ImageDirClear.TabIndex = 180 -Me.BtnContact3ImageDirClear.Text = "Clear" -Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false +Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) +Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) +Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" +Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMin.TabIndex = 169 +Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) ' -'BtnContact3ImageDir +'Label95 ' -Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" -Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact3ImageDir.TabIndex = 179 -Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" -Me.BtnContact3ImageDir.UseVisualStyleBackColor = false +Me.Label95.BackColor = System.Drawing.Color.Transparent +Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label95.ForeColor = System.Drawing.Color.Black +Me.Label95.Location = New System.Drawing.Point(6, 20) +Me.Label95.Name = "Label95" +Me.Label95.Size = New System.Drawing.Size(123, 17) +Me.Label95.TabIndex = 166 +Me.Label95.Text = "Tease Length Minimum:" +Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TbxContact3ImageDir +'Label49 ' -Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" -Me.TbxContact3ImageDir.ReadOnly = true -Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.TabIndex = 178 -Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir +Me.Label49.BackColor = System.Drawing.Color.Transparent +Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label49.ForeColor = System.Drawing.Color.Black +Me.Label49.Location = New System.Drawing.Point(6, 207) +Me.Label49.Name = "Label49" +Me.Label49.Size = New System.Drawing.Size(132, 17) +Me.Label49.TabIndex = 164 +Me.Label49.Text = "Stroke Taunt Frequency:" +Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNGlitter3 +'Label141 ' -Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter3.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter3.Name = "BTNGlitter3" -Me.BTNGlitter3.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter3.TabIndex = 175 -Me.BTNGlitter3.Text = "Choose Name Color" -Me.BTNGlitter3.UseVisualStyleBackColor = false +Me.Label141.BackColor = System.Drawing.Color.Transparent +Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label141.ForeColor = System.Drawing.Color.Black +Me.Label141.Location = New System.Drawing.Point(6, 163) +Me.Label141.Name = "Label141" +Me.Label141.Size = New System.Drawing.Size(141, 32) +Me.Label141.TabIndex = 189 +Me.Label141.Text = "Edging Ends Taunts:" +Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitterNC3 +'GBRangeRuinChance ' -Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color -Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC3.Name = "LBLGlitterNC3" -Me.LBLGlitterNC3.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC3.TabIndex = 166 -Me.LBLGlitterNC3.Text = "Preview" -Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GBRangeRuinChance.Controls.Add(Me.Label90) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) +Me.GBRangeRuinChance.Controls.Add(Me.Label91) +Me.GBRangeRuinChance.Controls.Add(Me.Label92) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) +Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) +Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) +Me.GBRangeRuinChance.Name = "GBRangeRuinChance" +Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeRuinChance.TabIndex = 168 +Me.GBRangeRuinChance.TabStop = false +Me.GBRangeRuinChance.Text = "Ruin Chance" ' -'LBLGlitterSlider3 +'Label90 ' -Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" -Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider3.TabIndex = 163 -Me.LBLGlitterSlider3.Text = "Response Frequency" -Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label90.BackColor = System.Drawing.Color.Transparent +Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label90.ForeColor = System.Drawing.Color.Black +Me.Label90.Location = New System.Drawing.Point(6, 94) +Me.Label90.Name = "Label90" +Me.Label90.Size = New System.Drawing.Size(83, 17) +Me.Label90.TabIndex = 173 +Me.Label90.Text = "Rarely Ruins:" +Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterSlider3 +'NBRuinSometimes ' -Me.GlitterSlider3.AutoSize = false -Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider3.LargeChange = 1 -Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider3.Maximum = 9 -Me.GlitterSlider3.Minimum = 1 -Me.GlitterSlider3.Name = "GlitterSlider3" -Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider3.TabIndex = 161 -Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider +Me.NBRuinSometimes.Enabled = false +Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinSometimes.Name = "NBRuinSometimes" +Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBRuinSometimes.TabIndex = 169 +Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -'CBGlitter3 +'Label91 ' -Me.CBGlitter3.AutoSize = true -Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 -Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter3.ForeColor = System.Drawing.Color.Black -Me.CBGlitter3.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter3.Name = "CBGlitter3" -Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter3.TabIndex = 151 -Me.CBGlitter3.Text = "Enable This Contact" -Me.CBGlitter3.UseVisualStyleBackColor = true +Me.Label91.BackColor = System.Drawing.Color.Transparent +Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label91.ForeColor = System.Drawing.Color.Black +Me.Label91.Location = New System.Drawing.Point(6, 68) +Me.Label91.Name = "Label91" +Me.Label91.Size = New System.Drawing.Size(102, 17) +Me.Label91.TabIndex = 172 +Me.Label91.Text = "Sometimes Ruins:" +Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBGlitter3 +'Label92 ' -Me.TBGlitter3.BackColor = System.Drawing.Color.White -Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter3.ForeColor = System.Drawing.Color.Black -Me.TBGlitter3.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter3.Name = "TBGlitter3" -Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter3.TabIndex = 49 -Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 -Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label92.BackColor = System.Drawing.Color.Transparent +Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label92.ForeColor = System.Drawing.Color.Black +Me.Label92.Location = New System.Drawing.Point(6, 42) +Me.Label92.Name = "Label92" +Me.Label92.Size = New System.Drawing.Size(72, 17) +Me.Label92.TabIndex = 171 +Me.Label92.Text = "Often Ruins:" +Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GlitterAV3 +'NBRuinRarely ' -Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV3.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV3.Name = "GlitterAV3" -Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV3.TabIndex = 149 -Me.GlitterAV3.TabStop = false +Me.NBRuinRarely.Enabled = false +Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) +Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinRarely.Name = "NBRuinRarely" +Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) +Me.NBRuinRarely.TabIndex = 170 +Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -'GBGlitter2 +'NBRuinOften ' -Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter2.Controls.Add(Me.Label169) -Me.GBGlitter2.Controls.Add(Me.G2Honorific) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.CBGlitter2) -Me.GBGlitter2.Controls.Add(Me.TBGlitter2) -Me.GBGlitter2.Controls.Add(Me.GlitterAV2) -Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) -Me.GBGlitter2.Name = "GBGlitter2" -Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter2.TabIndex = 151 -Me.GBGlitter2.TabStop = false -Me.GBGlitter2.Text = "Contact 2" +Me.NBRuinOften.Enabled = false +Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) +Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinOften.Name = "NBRuinOften" +Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) +Me.NBRuinOften.TabIndex = 168 +Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) ' -'G2Honorific +'CBRangeRuin ' -Me.G2Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G2Honorific.Location = New System.Drawing.Point(220, 34) -Me.G2Honorific.Name = "G2Honorific" -Me.G2Honorific.Size = New System.Drawing.Size(115, 23) -Me.G2Honorific.TabIndex = 0 -Me.G2Honorific.Text = "Mistress" -Me.G2Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.CBRangeRuin.AutoSize = true +Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black +Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) +Me.CBRangeRuin.Name = "CBRangeRuin" +Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) +Me.CBRangeRuin.TabIndex = 159 +Me.CBRangeRuin.Text = "Domme Decide" +Me.CBRangeRuin.UseVisualStyleBackColor = true ' -'BtnContact2ImageDirClear +'GroupBox17 ' -Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" -Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact2ImageDirClear.TabIndex = 181 -Me.BtnContact2ImageDirClear.Text = "Clear" -Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false +Me.GroupBox17.Controls.Add(Me.GroupBox19) +Me.GroupBox17.Controls.Add(Me.GroupBox18) +Me.GroupBox17.Location = New System.Drawing.Point(408, 91) +Me.GroupBox17.Name = "GroupBox17" +Me.GroupBox17.Size = New System.Drawing.Size(291, 190) +Me.GroupBox17.TabIndex = 0 +Me.GroupBox17.TabStop = false +Me.GroupBox17.Text = "Video Teases" ' -'BtnContact2ImageDir +'GroupBox19 ' -Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" -Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact2ImageDir.TabIndex = 179 -Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" -Me.BtnContact2ImageDir.UseVisualStyleBackColor = false +Me.GroupBox19.Controls.Add(Me.Label110) +Me.GroupBox19.Controls.Add(Me.Label111) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) +Me.GroupBox19.Controls.Add(Me.NBRedLightMax) +Me.GroupBox19.Controls.Add(Me.Label26) +Me.GroupBox19.Controls.Add(Me.NBRedLightMin) +Me.GroupBox19.Controls.Add(Me.Label28) +Me.GroupBox19.Controls.Add(Me.Label27) +Me.GroupBox19.Controls.Add(Me.Label29) +Me.GroupBox19.Location = New System.Drawing.Point(6, 110) +Me.GroupBox19.Name = "GroupBox19" +Me.GroupBox19.Size = New System.Drawing.Size(279, 66) +Me.GroupBox19.TabIndex = 2 +Me.GroupBox19.TabStop = false +Me.GroupBox19.Text = "Red Light, Green Light" ' -'TbxContact2ImageDir +'Label110 ' -Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" -Me.TbxContact2ImageDir.ReadOnly = true -Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.TabIndex = 178 -Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir +Me.Label110.BackColor = System.Drawing.Color.Transparent +Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label110.ForeColor = System.Drawing.Color.Black +Me.Label110.Location = New System.Drawing.Point(227, 39) +Me.Label110.Name = "Label110" +Me.Label110.Size = New System.Drawing.Size(50, 17) +Me.Label110.TabIndex = 181 +Me.Label110.Text = "seconds" +Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNGlitter2 +'Label111 ' -Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter2.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter2.Name = "BTNGlitter2" -Me.BTNGlitter2.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter2.TabIndex = 167 -Me.BTNGlitter2.Text = "Choose Name Color" -Me.BTNGlitter2.UseVisualStyleBackColor = false +Me.Label111.BackColor = System.Drawing.Color.Transparent +Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label111.ForeColor = System.Drawing.Color.Black +Me.Label111.Location = New System.Drawing.Point(227, 16) +Me.Label111.Name = "Label111" +Me.Label111.Size = New System.Drawing.Size(50, 17) +Me.Label111.TabIndex = 180 +Me.Label111.Text = "seconds" +Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitterNC2 +'NBGreenLightMax ' -Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color -Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC2.Name = "LBLGlitterNC2" -Me.LBLGlitterNC2.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC2.TabIndex = 166 -Me.LBLGlitterNC2.Text = "Preview" -Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) +Me.NBGreenLightMax.Name = "NBGreenLightMax" +Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMax.TabIndex = 156 +Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'LBLGlitterSlider2 +'NBGreenLightMin ' -Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" -Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider2.TabIndex = 163 -Me.LBLGlitterSlider2.Text = "Response Frequency" -Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) +Me.NBGreenLightMin.Name = "NBGreenLightMin" +Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMin.TabIndex = 155 +Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) ' -'GlitterSlider2 +'NBRedLightMax ' -Me.GlitterSlider2.AutoSize = false -Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider2.LargeChange = 1 -Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider2.Maximum = 9 -Me.GlitterSlider2.Minimum = 1 -Me.GlitterSlider2.Name = "GlitterSlider2" -Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider2.TabIndex = 161 -Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider +Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) +Me.NBRedLightMax.Name = "NBRedLightMax" +Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMax.TabIndex = 152 +Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) ' -'CBGlitter2 +'Label26 ' -Me.CBGlitter2.AutoSize = true -Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 -Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter2.ForeColor = System.Drawing.Color.Black -Me.CBGlitter2.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter2.Name = "CBGlitter2" -Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter2.TabIndex = 151 -Me.CBGlitter2.Text = "Enable This Contact" -Me.CBGlitter2.UseVisualStyleBackColor = true +Me.Label26.BackColor = System.Drawing.Color.Transparent +Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label26.ForeColor = System.Drawing.Color.Black +Me.Label26.Location = New System.Drawing.Point(161, 38) +Me.Label26.Name = "Label26" +Me.Label26.Size = New System.Drawing.Size(10, 17) +Me.Label26.TabIndex = 154 +Me.Label26.Text = "-" +Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBGlitter2 +'NBRedLightMin ' -Me.TBGlitter2.BackColor = System.Drawing.Color.White -Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter2.ForeColor = System.Drawing.Color.Black -Me.TBGlitter2.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter2.Name = "TBGlitter2" -Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter2.TabIndex = 49 -Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 -Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) +Me.NBRedLightMin.Name = "NBRedLightMin" +Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMin.TabIndex = 151 +Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -'GlitterAV2 +'Label28 ' -Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV2.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV2.Name = "GlitterAV2" -Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV2.TabIndex = 149 -Me.GlitterAV2.TabStop = false +Me.Label28.BackColor = System.Drawing.Color.Transparent +Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label28.ForeColor = System.Drawing.Color.Black +Me.Label28.Location = New System.Drawing.Point(161, 15) +Me.Label28.Name = "Label28" +Me.Label28.Size = New System.Drawing.Size(10, 17) +Me.Label28.TabIndex = 150 +Me.Label28.Text = "-" +Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TpGames +'Label27 ' -Me.TpGames.BackColor = System.Drawing.Color.LightGray -Me.TpGames.Controls.Add(Me.CBIncludeGifs) -Me.TpGames.Controls.Add(Me.LblCardsSetupNote) -Me.TpGames.Controls.Add(Me.CBGameSounds) -Me.TpGames.Controls.Add(Me.GbxCardsGold) -Me.TpGames.Controls.Add(Me.GbxCardsBackground) -Me.TpGames.Controls.Add(Me.GbxCardsBronze) -Me.TpGames.Controls.Add(Me.GbxCardsSilver) -Me.TpGames.Location = New System.Drawing.Point(4, 22) -Me.TpGames.Name = "TpGames" -Me.TpGames.Padding = New System.Windows.Forms.Padding(3) -Me.TpGames.Size = New System.Drawing.Size(700, 411) -Me.TpGames.TabIndex = 1 -Me.TpGames.Text = "Games" +Me.Label27.BackColor = System.Drawing.Color.Transparent +Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label27.ForeColor = System.Drawing.Color.Black +Me.Label27.Location = New System.Drawing.Point(6, 39) +Me.Label27.Name = "Label27" +Me.Label27.Size = New System.Drawing.Size(151, 17) +Me.Label27.TabIndex = 153 +Me.Label27.Text = "Green Light Time:" +Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBIncludeGifs +'Label29 ' -Me.CBIncludeGifs.AutoSize = true -Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs -Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) -Me.CBIncludeGifs.Name = "CBIncludeGifs" -Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) -Me.CBIncludeGifs.TabIndex = 5 -Me.CBIncludeGifs.Text = "Match Game Includes Gifs " -Me.CBIncludeGifs.UseVisualStyleBackColor = true +Me.Label29.BackColor = System.Drawing.Color.Transparent +Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label29.ForeColor = System.Drawing.Color.Black +Me.Label29.Location = New System.Drawing.Point(6, 16) +Me.Label29.Name = "Label29" +Me.Label29.Size = New System.Drawing.Size(151, 17) +Me.Label29.TabIndex = 149 +Me.Label29.Text = "Red Light Time:" +Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LblCardsSetupNote +'GroupBox18 ' -Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) -Me.LblCardsSetupNote.Name = "LblCardsSetupNote" -Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) -Me.LblCardsSetupNote.TabIndex = 4 -Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ - "!" -Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox18.Controls.Add(Me.Label108) +Me.GroupBox18.Controls.Add(Me.Label109) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) +Me.GroupBox18.Controls.Add(Me.CBCensorConstant) +Me.GroupBox18.Controls.Add(Me.Label25) +Me.GroupBox18.Controls.Add(Me.Label20) +Me.GroupBox18.Controls.Add(Me.Label19) +Me.GroupBox18.Controls.Add(Me.Label24) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) +Me.GroupBox18.Location = New System.Drawing.Point(6, 16) +Me.GroupBox18.Name = "GroupBox18" +Me.GroupBox18.Size = New System.Drawing.Size(279, 88) +Me.GroupBox18.TabIndex = 1 +Me.GroupBox18.TabStop = false +Me.GroupBox18.Text = "Censorship Sucks" ' -'CBGameSounds +'Label108 ' -Me.CBGameSounds.AutoSize = true -Me.CBGameSounds.Checked = true -Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBGameSounds.ForeColor = System.Drawing.Color.Black -Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) -Me.CBGameSounds.Name = "CBGameSounds" -Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) -Me.CBGameSounds.TabIndex = 6 -Me.CBGameSounds.Text = "Play Game Sounds" -Me.CBGameSounds.UseVisualStyleBackColor = true +Me.Label108.BackColor = System.Drawing.Color.Transparent +Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label108.ForeColor = System.Drawing.Color.Black +Me.Label108.Location = New System.Drawing.Point(227, 39) +Me.Label108.Name = "Label108" +Me.Label108.Size = New System.Drawing.Size(50, 17) +Me.Label108.TabIndex = 179 +Me.Label108.Text = "seconds" +Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GbxCardsGold +'Label109 ' -Me.GbxCardsGold.Controls.Add(Me.GN6) -Me.GbxCardsGold.Controls.Add(Me.GP6) -Me.GbxCardsGold.Controls.Add(Me.GN2) -Me.GbxCardsGold.Controls.Add(Me.GP2) -Me.GbxCardsGold.Controls.Add(Me.GP5) -Me.GbxCardsGold.Controls.Add(Me.GN1) -Me.GbxCardsGold.Controls.Add(Me.GP1) -Me.GbxCardsGold.Controls.Add(Me.GN5) -Me.GbxCardsGold.Controls.Add(Me.GN3) -Me.GbxCardsGold.Controls.Add(Me.GP3) -Me.GbxCardsGold.Controls.Add(Me.GP4) -Me.GbxCardsGold.Controls.Add(Me.GN4) -Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) -Me.GbxCardsGold.Name = "GbxCardsGold" -Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) -Me.GbxCardsGold.TabIndex = 2 -Me.GbxCardsGold.TabStop = false -Me.GbxCardsGold.Text = "Gold Cards" +Me.Label109.BackColor = System.Drawing.Color.Transparent +Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label109.ForeColor = System.Drawing.Color.Black +Me.Label109.Location = New System.Drawing.Point(227, 16) +Me.Label109.Name = "Label109" +Me.Label109.Size = New System.Drawing.Size(50, 17) +Me.Label109.TabIndex = 178 +Me.Label109.Text = "seconds" +Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GN6 +'Label25 ' -Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN6.Location = New System.Drawing.Point(86, 367) -Me.GN6.Name = "GN6" -Me.GN6.Size = New System.Drawing.Size(71, 20) -Me.GN6.TabIndex = 5 -Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 -Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label25.BackColor = System.Drawing.Color.Transparent +Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label25.ForeColor = System.Drawing.Color.Black +Me.Label25.Location = New System.Drawing.Point(161, 15) +Me.Label25.Name = "Label25" +Me.Label25.Size = New System.Drawing.Size(10, 17) +Me.Label25.TabIndex = 150 +Me.Label25.Text = "-" +Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP6 +'Label20 ' -Me.GP6.BackColor = System.Drawing.Color.Silver -Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 -Me.GP6.InitialImage = Nothing -Me.GP6.Location = New System.Drawing.Point(86, 268) -Me.GP6.Name = "GP6" -Me.GP6.Size = New System.Drawing.Size(71, 93) -Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP6.TabIndex = 17 -Me.GP6.TabStop = false +Me.Label20.BackColor = System.Drawing.Color.Transparent +Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label20.ForeColor = System.Drawing.Color.Black +Me.Label20.Location = New System.Drawing.Point(6, 39) +Me.Label20.Name = "Label20" +Me.Label20.Size = New System.Drawing.Size(110, 17) +Me.Label20.TabIndex = 153 +Me.Label20.Text = "Censor Bar Hidden:" +Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GN2 +'Label19 ' -Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN2.Location = New System.Drawing.Point(86, 117) -Me.GN2.Name = "GN2" -Me.GN2.Size = New System.Drawing.Size(71, 20) -Me.GN2.TabIndex = 1 -Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 -Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label19.BackColor = System.Drawing.Color.Transparent +Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label19.ForeColor = System.Drawing.Color.Black +Me.Label19.Location = New System.Drawing.Point(161, 38) +Me.Label19.Name = "Label19" +Me.Label19.Size = New System.Drawing.Size(10, 17) +Me.Label19.TabIndex = 154 +Me.Label19.Text = "-" +Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP2 +'Label24 ' -Me.GP2.BackColor = System.Drawing.Color.Silver -Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 -Me.GP2.InitialImage = Nothing -Me.GP2.Location = New System.Drawing.Point(86, 17) -Me.GP2.Name = "GP2" -Me.GP2.Size = New System.Drawing.Size(71, 94) -Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP2.TabIndex = 9 -Me.GP2.TabStop = false +Me.Label24.BackColor = System.Drawing.Color.Transparent +Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label24.ForeColor = System.Drawing.Color.Black +Me.Label24.Location = New System.Drawing.Point(6, 16) +Me.Label24.Name = "Label24" +Me.Label24.Size = New System.Drawing.Size(110, 17) +Me.Label24.TabIndex = 149 +Me.Label24.Text = "Censor Bar Shown:" +Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP5 +'GBRangeOrgasmChance ' -Me.GP5.BackColor = System.Drawing.Color.Silver -Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 -Me.GP5.InitialImage = Nothing -Me.GP5.Location = New System.Drawing.Point(9, 268) -Me.GP5.Name = "GP5" -Me.GP5.Size = New System.Drawing.Size(71, 93) -Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP5.TabIndex = 15 -Me.GP5.TabStop = false +Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) +Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) +Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) +Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" +Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeOrgasmChance.TabIndex = 167 +Me.GBRangeOrgasmChance.TabStop = false +Me.GBRangeOrgasmChance.Text = "Orgasm Chance" ' -'GN1 +'Label89 ' -Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN1.Location = New System.Drawing.Point(9, 117) -Me.GN1.Name = "GN1" -Me.GN1.Size = New System.Drawing.Size(71, 20) -Me.GN1.TabIndex = 0 -Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 -Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label89.BackColor = System.Drawing.Color.Transparent +Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label89.ForeColor = System.Drawing.Color.Black +Me.Label89.Location = New System.Drawing.Point(6, 94) +Me.Label89.Name = "Label89" +Me.Label89.Size = New System.Drawing.Size(83, 17) +Me.Label89.TabIndex = 173 +Me.Label89.Text = "Rarely Allows:" +Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP1 +'NBAllowSometimes ' -Me.GP1.BackColor = System.Drawing.Color.Silver -Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 -Me.GP1.InitialImage = Nothing -Me.GP1.Location = New System.Drawing.Point(9, 17) -Me.GP1.Name = "GP1" -Me.GP1.Size = New System.Drawing.Size(71, 94) -Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP1.TabIndex = 0 -Me.GP1.TabStop = false +Me.NBAllowSometimes.Enabled = false +Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowSometimes.Name = "NBAllowSometimes" +Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBAllowSometimes.TabIndex = 169 +Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -'GN5 +'Label86 ' -Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN5.Location = New System.Drawing.Point(9, 367) -Me.GN5.Name = "GN5" -Me.GN5.Size = New System.Drawing.Size(71, 20) -Me.GN5.TabIndex = 4 -Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 -Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label86.BackColor = System.Drawing.Color.Transparent +Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label86.ForeColor = System.Drawing.Color.Black +Me.Label86.Location = New System.Drawing.Point(6, 68) +Me.Label86.Name = "Label86" +Me.Label86.Size = New System.Drawing.Size(102, 17) +Me.Label86.TabIndex = 172 +Me.Label86.Text = "Sometimes Allows:" +Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GN3 +'Label82 ' -Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN3.Location = New System.Drawing.Point(9, 242) -Me.GN3.Name = "GN3" -Me.GN3.Size = New System.Drawing.Size(71, 20) -Me.GN3.TabIndex = 2 -Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 -Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label82.BackColor = System.Drawing.Color.Transparent +Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label82.ForeColor = System.Drawing.Color.Black +Me.Label82.Location = New System.Drawing.Point(6, 42) +Me.Label82.Name = "Label82" +Me.Label82.Size = New System.Drawing.Size(83, 17) +Me.Label82.TabIndex = 171 +Me.Label82.Text = "Often Allows:" +Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GP3 +'NBAllowRarely ' -Me.GP3.BackColor = System.Drawing.Color.Silver -Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 -Me.GP3.InitialImage = Nothing -Me.GP3.Location = New System.Drawing.Point(9, 143) -Me.GP3.Name = "GP3" -Me.GP3.Size = New System.Drawing.Size(71, 93) -Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP3.TabIndex = 11 -Me.GP3.TabStop = false +Me.NBAllowRarely.Enabled = false +Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) +Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowRarely.Name = "NBAllowRarely" +Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) +Me.NBAllowRarely.TabIndex = 170 +Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -'GP4 +'NBAllowOften ' -Me.GP4.BackColor = System.Drawing.Color.Silver -Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 -Me.GP4.InitialImage = Nothing -Me.GP4.Location = New System.Drawing.Point(86, 143) -Me.GP4.Name = "GP4" -Me.GP4.Size = New System.Drawing.Size(71, 93) -Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP4.TabIndex = 13 -Me.GP4.TabStop = false +Me.NBAllowOften.Enabled = false +Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) +Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowOften.Name = "NBAllowOften" +Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) +Me.NBAllowOften.TabIndex = 168 +Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) ' -'GN4 +'CBRangeOrgasm ' -Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN4.Location = New System.Drawing.Point(86, 242) -Me.GN4.Name = "GN4" -Me.GN4.Size = New System.Drawing.Size(71, 20) -Me.GN4.TabIndex = 3 -Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 -Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.CBRangeOrgasm.AutoSize = true +Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black +Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) +Me.CBRangeOrgasm.Name = "CBRangeOrgasm" +Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) +Me.CBRangeOrgasm.TabIndex = 159 +Me.CBRangeOrgasm.Text = "Domme Decide" +Me.CBRangeOrgasm.UseVisualStyleBackColor = true ' -'GbxCardsBackground +'PictureBox8 +' +Me.PictureBox8.BackColor = System.Drawing.Color.LightGray +Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox8.Location = New System.Drawing.Point(9, 6) +Me.PictureBox8.Name = "PictureBox8" +Me.PictureBox8.Size = New System.Drawing.Size(160, 19) +Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox8.TabIndex = 166 +Me.PictureBox8.TabStop = false +' +'Label38 +' +Me.Label38.BackColor = System.Drawing.Color.Transparent +Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label38.ForeColor = System.Drawing.Color.Black +Me.Label38.Location = New System.Drawing.Point(7, 6) +Me.Label38.Name = "Label38" +Me.Label38.Size = New System.Drawing.Size(692, 21) +Me.Label38.TabIndex = 48 +Me.Label38.Text = "Range Settings" +Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.GbxCardsBackground.Controls.Add(Me.CardBack) -Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) -Me.GbxCardsBackground.Name = "GbxCardsBackground" -Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) -Me.GbxCardsBackground.TabIndex = 3 -Me.GbxCardsBackground.TabStop = false -Me.GbxCardsBackground.Text = "Card Background" +'TabPage13 ' -'CardBack +Me.TabPage13.BackColor = System.Drawing.Color.Silver +Me.TabPage13.Controls.Add(Me.TabControl2) +Me.TabPage13.Location = New System.Drawing.Point(4, 22) +Me.TabPage13.Name = "TabPage13" +Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage13.Size = New System.Drawing.Size(720, 448) +Me.TabPage13.TabIndex = 13 +Me.TabPage13.Text = "Modding" ' -Me.CardBack.BackColor = System.Drawing.Color.Silver -Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack -Me.CardBack.InitialImage = Nothing -Me.CardBack.Location = New System.Drawing.Point(17, 28) -Me.CardBack.Name = "CardBack" -Me.CardBack.Size = New System.Drawing.Size(138, 179) -Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.CardBack.TabIndex = 18 -Me.CardBack.TabStop = false +'TabControl2 ' -'GbxCardsBronze +Me.TabControl2.Controls.Add(Me.TabPage27) +Me.TabControl2.Controls.Add(Me.TabPage14) +Me.TabControl2.Controls.Add(Me.TabPage24) +Me.TabControl2.Controls.Add(Me.TabPage8) +Me.TabControl2.Controls.Add(Me.TabPage15) +Me.TabControl2.Location = New System.Drawing.Point(6, 6) +Me.TabControl2.Name = "TabControl2" +Me.TabControl2.SelectedIndex = 0 +Me.TabControl2.Size = New System.Drawing.Size(708, 437) +Me.TabControl2.TabIndex = 0 ' -Me.GbxCardsBronze.Controls.Add(Me.BN6) -Me.GbxCardsBronze.Controls.Add(Me.BN3) -Me.GbxCardsBronze.Controls.Add(Me.BP3) -Me.GbxCardsBronze.Controls.Add(Me.BP6) -Me.GbxCardsBronze.Controls.Add(Me.BN2) -Me.GbxCardsBronze.Controls.Add(Me.BN5) -Me.GbxCardsBronze.Controls.Add(Me.BP5) -Me.GbxCardsBronze.Controls.Add(Me.BP2) -Me.GbxCardsBronze.Controls.Add(Me.BN1) -Me.GbxCardsBronze.Controls.Add(Me.BN4) -Me.GbxCardsBronze.Controls.Add(Me.BP4) -Me.GbxCardsBronze.Controls.Add(Me.BP1) -Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) -Me.GbxCardsBronze.Name = "GbxCardsBronze" -Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsBronze.TabIndex = 0 -Me.GbxCardsBronze.TabStop = false -Me.GbxCardsBronze.Text = "Bronze Cards" +'TabPage27 ' -'BN6 +Me.TabPage27.BackColor = System.Drawing.Color.LightGray +Me.TabPage27.Controls.Add(Me.TBPlaylistSave) +Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) +Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) +Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) +Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) +Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) +Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) +Me.TabPage27.Controls.Add(Me.Button7) +Me.TabPage27.Controls.Add(Me.WBPlaylist) +Me.TabPage27.Controls.Add(Me.Label80) +Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) +Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) +Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) +Me.TabPage27.Controls.Add(Me.LBPlaylist) +Me.TabPage27.Location = New System.Drawing.Point(4, 22) +Me.TabPage27.Name = "TabPage27" +Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage27.Size = New System.Drawing.Size(700, 411) +Me.TabPage27.TabIndex = 5 +Me.TabPage27.Text = "Playlists" ' -Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN6.Location = New System.Drawing.Point(86, 368) -Me.BN6.Name = "BN6" -Me.BN6.Size = New System.Drawing.Size(71, 20) -Me.BN6.TabIndex = 5 -Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 -Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'TBPlaylistSave ' -'BN3 +Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) +Me.TBPlaylistSave.Name = "TBPlaylistSave" +Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) +Me.TBPlaylistSave.TabIndex = 203 ' -Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN3.Location = New System.Drawing.Point(9, 243) -Me.BN3.Name = "BN3" -Me.BN3.Size = New System.Drawing.Size(71, 20) -Me.BN3.TabIndex = 2 -Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 -Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'BTNPlaylistCtrlZ ' -'BP3 +Me.BTNPlaylistCtrlZ.Enabled = false +Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) +Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" +Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistCtrlZ.TabIndex = 202 +Me.BTNPlaylistCtrlZ.Text = "Undo" +Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true ' -Me.BP3.BackColor = System.Drawing.Color.Silver -Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 -Me.BP3.InitialImage = Nothing -Me.BP3.Location = New System.Drawing.Point(9, 144) -Me.BP3.Name = "BP3" -Me.BP3.Size = New System.Drawing.Size(71, 93) -Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP3.TabIndex = 11 -Me.BP3.TabStop = false +'RadioPlaylistRegScripts ' -'BP6 +Me.RadioPlaylistRegScripts.AutoSize = true +Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) +Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" +Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) +Me.RadioPlaylistRegScripts.TabIndex = 201 +Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" +Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true ' -Me.BP6.BackColor = System.Drawing.Color.Silver -Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 -Me.BP6.InitialImage = Nothing -Me.BP6.Location = New System.Drawing.Point(86, 269) -Me.BP6.Name = "BP6" -Me.BP6.Size = New System.Drawing.Size(71, 93) -Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP6.TabIndex = 17 -Me.BP6.TabStop = false +'RadioPlaylistScripts ' -'BN2 +Me.RadioPlaylistScripts.AutoSize = true +Me.RadioPlaylistScripts.Checked = true +Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) +Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" +Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) +Me.RadioPlaylistScripts.TabIndex = 200 +Me.RadioPlaylistScripts.TabStop = true +Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" +Me.RadioPlaylistScripts.UseVisualStyleBackColor = true ' -Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN2.Location = New System.Drawing.Point(86, 118) -Me.BN2.Name = "BN2" -Me.BN2.Size = New System.Drawing.Size(71, 20) -Me.BN2.TabIndex = 1 -Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 -Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'BTNPlaylistEnd ' -'BN5 +Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray +Me.BTNPlaylistEnd.Enabled = false +Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black +Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) +Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" +Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistEnd.TabIndex = 199 +Me.BTNPlaylistEnd.Text = "End" +Me.BTNPlaylistEnd.UseVisualStyleBackColor = false ' -Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN5.Location = New System.Drawing.Point(9, 368) -Me.BN5.Name = "BN5" -Me.BN5.Size = New System.Drawing.Size(71, 20) -Me.BN5.TabIndex = 4 -Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 -Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'BTNPlaylistClearAll ' -'BP5 +Me.BTNPlaylistClearAll.Enabled = false +Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) +Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" +Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) +Me.BTNPlaylistClearAll.TabIndex = 198 +Me.BTNPlaylistClearAll.Text = "Clear All" +Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true ' -Me.BP5.BackColor = System.Drawing.Color.Silver -Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 -Me.BP5.InitialImage = Nothing -Me.BP5.Location = New System.Drawing.Point(9, 269) -Me.BP5.Name = "BP5" -Me.BP5.Size = New System.Drawing.Size(71, 93) -Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP5.TabIndex = 15 -Me.BP5.TabStop = false +'BTNPlaylistSave ' -'BP2 +Me.BTNPlaylistSave.Enabled = false +Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) +Me.BTNPlaylistSave.Name = "BTNPlaylistSave" +Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistSave.TabIndex = 197 +Me.BTNPlaylistSave.Text = "Save" +Me.BTNPlaylistSave.UseVisualStyleBackColor = true ' -Me.BP2.BackColor = System.Drawing.Color.Silver -Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 -Me.BP2.InitialImage = Nothing -Me.BP2.Location = New System.Drawing.Point(86, 19) -Me.BP2.Name = "BP2" -Me.BP2.Size = New System.Drawing.Size(71, 93) -Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP2.TabIndex = 9 -Me.BP2.TabStop = false +'Button7 ' -'BN1 +Me.Button7.Location = New System.Drawing.Point(213, 21) +Me.Button7.Name = "Button7" +Me.Button7.Size = New System.Drawing.Size(78, 23) +Me.Button7.TabIndex = 196 +Me.Button7.Text = "Add Random" +Me.Button7.UseVisualStyleBackColor = true ' -Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN1.Location = New System.Drawing.Point(9, 118) -Me.BN1.Name = "BN1" -Me.BN1.Size = New System.Drawing.Size(71, 20) -Me.BN1.TabIndex = 0 -Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 -Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'WBPlaylist ' -'BN4 +Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) +Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) +Me.WBPlaylist.Name = "WBPlaylist" +Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) +Me.WBPlaylist.TabIndex = 195 ' -Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN4.Location = New System.Drawing.Point(86, 243) -Me.BN4.Name = "BN4" -Me.BN4.Size = New System.Drawing.Size(71, 20) -Me.BN4.TabIndex = 3 -Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 -Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'Label80 ' -'BP4 +Me.Label80.AutoSize = true +Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label80.Location = New System.Drawing.Point(410, 27) +Me.Label80.Name = "Label80" +Me.Label80.Size = New System.Drawing.Size(47, 13) +Me.Label80.TabIndex = 194 +Me.Label80.Text = "Playlist" ' -Me.BP4.BackColor = System.Drawing.Color.Silver -Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 -Me.BP4.InitialImage = Nothing -Me.BP4.Location = New System.Drawing.Point(86, 144) -Me.BP4.Name = "BP4" -Me.BP4.Size = New System.Drawing.Size(71, 93) -Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP4.TabIndex = 13 -Me.BP4.TabStop = false +'LBLPlaylIstLink ' -'BP1 +Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylIstLink.Enabled = false +Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) +Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" +Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) +Me.LBLPlaylIstLink.TabIndex = 193 +Me.LBLPlaylIstLink.Text = "Link" +Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BP1.BackColor = System.Drawing.Color.Silver -Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 -Me.BP1.InitialImage = Nothing -Me.BP1.Location = New System.Drawing.Point(9, 19) -Me.BP1.Name = "BP1" -Me.BP1.Size = New System.Drawing.Size(71, 93) -Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP1.TabIndex = 0 -Me.BP1.TabStop = false -Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 +'LBLPlaylistModule ' -'GbxCardsSilver +Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylistModule.Enabled = false +Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) +Me.LBLPlaylistModule.Name = "LBLPlaylistModule" +Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) +Me.LBLPlaylistModule.TabIndex = 192 +Me.LBLPlaylistModule.Text = "Module" +Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.GbxCardsSilver.Controls.Add(Me.SN6) -Me.GbxCardsSilver.Controls.Add(Me.SP6) -Me.GbxCardsSilver.Controls.Add(Me.SN2) -Me.GbxCardsSilver.Controls.Add(Me.SP2) -Me.GbxCardsSilver.Controls.Add(Me.SN1) -Me.GbxCardsSilver.Controls.Add(Me.SP5) -Me.GbxCardsSilver.Controls.Add(Me.SP1) -Me.GbxCardsSilver.Controls.Add(Me.SN5) -Me.GbxCardsSilver.Controls.Add(Me.SN3) -Me.GbxCardsSilver.Controls.Add(Me.SN4) -Me.GbxCardsSilver.Controls.Add(Me.SP3) -Me.GbxCardsSilver.Controls.Add(Me.SP4) -Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) -Me.GbxCardsSilver.Name = "GbxCardsSilver" -Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsSilver.TabIndex = 1 -Me.GbxCardsSilver.TabStop = false -Me.GbxCardsSilver.Text = "Silver Cards" +'LBLPLaylistStart ' -'SN6 +Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green +Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White +Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) +Me.LBLPLaylistStart.Name = "LBLPLaylistStart" +Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) +Me.LBLPLaylistStart.TabIndex = 190 +Me.LBLPLaylistStart.Text = "Start" +Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN6.Location = New System.Drawing.Point(86, 368) -Me.SN6.Name = "SN6" -Me.SN6.Size = New System.Drawing.Size(71, 20) -Me.SN6.TabIndex = 5 -Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 -Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'LBPlaylist ' -'SP6 +Me.LBPlaylist.AllowDrop = true +Me.LBPlaylist.FormattingEnabled = true +Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) +Me.LBPlaylist.Name = "LBPlaylist" +Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) +Me.LBPlaylist.TabIndex = 189 ' -Me.SP6.BackColor = System.Drawing.Color.Silver -Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 -Me.SP6.InitialImage = Nothing -Me.SP6.Location = New System.Drawing.Point(86, 269) -Me.SP6.Name = "SP6" -Me.SP6.Size = New System.Drawing.Size(71, 93) -Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP6.TabIndex = 17 -Me.SP6.TabStop = false +'TabPage14 ' -'SN2 +Me.TabPage14.BackColor = System.Drawing.Color.LightGray +Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) +Me.TabPage14.Controls.Add(Me.Label88) +Me.TabPage14.Controls.Add(Me.TBKeywordPreview) +Me.TabPage14.Controls.Add(Me.Button37) +Me.TabPage14.Controls.Add(Me.Button50) +Me.TabPage14.Controls.Add(Me.Button22) +Me.TabPage14.Controls.Add(Me.TBKeyWords) +Me.TabPage14.Controls.Add(Me.LBKeyWords) +Me.TabPage14.Controls.Add(Me.RTBKeyWords) +Me.TabPage14.Location = New System.Drawing.Point(4, 22) +Me.TabPage14.Name = "TabPage14" +Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage14.Size = New System.Drawing.Size(700, 411) +Me.TabPage14.TabIndex = 0 +Me.TabPage14.Text = "Keywords" ' -Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN2.Location = New System.Drawing.Point(86, 118) -Me.SN2.Name = "SN2" -Me.SN2.Size = New System.Drawing.Size(71, 20) -Me.SN2.TabIndex = 1 -Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 -Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'LBLKeywordPreview ' -'SP2 +Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) +Me.LBLKeywordPreview.Name = "LBLKeywordPreview" +Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) +Me.LBLKeywordPreview.TabIndex = 174 +Me.LBLKeywordPreview.Text = "Get Preview Here" +Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.SP2.BackColor = System.Drawing.Color.Silver -Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 -Me.SP2.InitialImage = Nothing -Me.SP2.Location = New System.Drawing.Point(86, 19) -Me.SP2.Name = "SP2" -Me.SP2.Size = New System.Drawing.Size(71, 93) -Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP2.TabIndex = 9 -Me.SP2.TabStop = false +'Label88 ' -'SN1 +Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label88.Location = New System.Drawing.Point(3, 358) +Me.Label88.Name = "Label88" +Me.Label88.Size = New System.Drawing.Size(194, 53) +Me.Label88.TabIndex = 173 +Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ + " the domme return." +Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN1.Location = New System.Drawing.Point(9, 118) -Me.SN1.Name = "SN1" -Me.SN1.Size = New System.Drawing.Size(71, 20) -Me.SN1.TabIndex = 0 -Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 -Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'TBKeywordPreview ' -'SP5 +Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) +Me.TBKeywordPreview.Name = "TBKeywordPreview" +Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) +Me.TBKeywordPreview.TabIndex = 172 +Me.TBKeywordPreview.Text = "Enter Line Here" +Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.SP5.BackColor = System.Drawing.Color.Silver -Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 -Me.SP5.InitialImage = Nothing -Me.SP5.Location = New System.Drawing.Point(9, 269) -Me.SP5.Name = "SP5" -Me.SP5.Size = New System.Drawing.Size(71, 93) -Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP5.TabIndex = 15 -Me.SP5.TabStop = false +'Button37 ' -'SP1 +Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button37.Location = New System.Drawing.Point(638, 358) +Me.Button37.Name = "Button37" +Me.Button37.Size = New System.Drawing.Size(47, 50) +Me.Button37.TabIndex = 171 +Me.Button37.Text = "#" +Me.Button37.UseVisualStyleBackColor = true ' -Me.SP1.BackColor = System.Drawing.Color.Silver -Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 -Me.SP1.InitialImage = Nothing -Me.SP1.Location = New System.Drawing.Point(9, 19) -Me.SP1.Name = "SP1" -Me.SP1.Size = New System.Drawing.Size(71, 93) -Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP1.TabIndex = 0 -Me.SP1.TabStop = false +'Button50 ' -'SN5 +Me.Button50.Location = New System.Drawing.Point(6, 10) +Me.Button50.Name = "Button50" +Me.Button50.Size = New System.Drawing.Size(194, 23) +Me.Button50.TabIndex = 169 +Me.Button50.Text = "Refresh and Clear Keyword List" +Me.Button50.UseVisualStyleBackColor = true ' -Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN5.Location = New System.Drawing.Point(9, 368) -Me.SN5.Name = "SN5" -Me.SN5.Size = New System.Drawing.Size(71, 20) -Me.SN5.TabIndex = 4 -Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 -Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'Button22 ' -'SN3 +Me.Button22.Location = New System.Drawing.Point(638, 10) +Me.Button22.Name = "Button22" +Me.Button22.Size = New System.Drawing.Size(47, 23) +Me.Button22.TabIndex = 167 +Me.Button22.Text = "Save" +Me.Button22.UseVisualStyleBackColor = true ' -Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN3.Location = New System.Drawing.Point(9, 243) -Me.SN3.Name = "SN3" -Me.SN3.Size = New System.Drawing.Size(71, 20) -Me.SN3.TabIndex = 2 -Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 -Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'TBKeyWords ' -'SN4 +Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) +Me.TBKeyWords.Name = "TBKeyWords" +Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) +Me.TBKeyWords.TabIndex = 166 ' -Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN4.Location = New System.Drawing.Point(86, 243) -Me.SN4.Name = "SN4" -Me.SN4.Size = New System.Drawing.Size(71, 20) -Me.SN4.TabIndex = 3 -Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 -Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'LBKeyWords ' -'SP3 +Me.LBKeyWords.FormattingEnabled = true +Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) +Me.LBKeyWords.Name = "LBKeyWords" +Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) +Me.LBKeyWords.Sorted = true +Me.LBKeyWords.TabIndex = 165 ' -Me.SP3.BackColor = System.Drawing.Color.Silver -Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 -Me.SP3.InitialImage = Nothing -Me.SP3.Location = New System.Drawing.Point(9, 144) -Me.SP3.Name = "SP3" -Me.SP3.Size = New System.Drawing.Size(71, 93) -Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP3.TabIndex = 11 -Me.SP3.TabStop = false +'RTBKeyWords ' -'SP4 +Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) +Me.RTBKeyWords.Name = "RTBKeyWords" +Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) +Me.RTBKeyWords.TabIndex = 164 +Me.RTBKeyWords.Text = "" ' -Me.SP4.BackColor = System.Drawing.Color.Silver -Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 -Me.SP4.InitialImage = Nothing -Me.SP4.Location = New System.Drawing.Point(86, 144) -Me.SP4.Name = "SP4" -Me.SP4.Size = New System.Drawing.Size(71, 93) -Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP4.TabIndex = 13 -Me.SP4.TabStop = false +'TabPage24 ' -'TabPage6 +Me.TabPage24.BackColor = System.Drawing.Color.LightGray +Me.TabPage24.Controls.Add(Me.Button9) +Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) +Me.TabPage24.Controls.Add(Me.Button4) +Me.TabPage24.Controls.Add(Me.Button5) +Me.TabPage24.Controls.Add(Me.TBResponses) +Me.TabPage24.Controls.Add(Me.LBResponses) +Me.TabPage24.Controls.Add(Me.RTBResponses) +Me.TabPage24.Location = New System.Drawing.Point(4, 22) +Me.TabPage24.Name = "TabPage24" +Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage24.Size = New System.Drawing.Size(700, 411) +Me.TabPage24.TabIndex = 3 +Me.TabPage24.Text = "Responses" ' -Me.TabPage6.BackColor = System.Drawing.Color.LightGray -Me.TabPage6.Controls.Add(Me.Panel10) -Me.TabPage6.Controls.Add(Me.Label107) -Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) -Me.TabPage6.Controls.Add(Me.Label18) -Me.TabPage6.Controls.Add(Me.PNLWishList) -Me.TabPage6.Location = New System.Drawing.Point(4, 22) -Me.TabPage6.Name = "TabPage6" -Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage6.Size = New System.Drawing.Size(700, 411) -Me.TabPage6.TabIndex = 2 -Me.TabPage6.Text = "Wishlist" +'Button9 ' -'Panel10 +Me.Button9.Location = New System.Drawing.Point(217, 10) +Me.Button9.Name = "Button9" +Me.Button9.Size = New System.Drawing.Size(215, 23) +Me.Button9.TabIndex = 176 +Me.Button9.Text = "Response Template" +Me.Button9.UseVisualStyleBackColor = true ' -Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel10.Controls.Add(Me.TBWishlistComment) -Me.Panel10.Controls.Add(Me.Label32) -Me.Panel10.Controls.Add(Me.TBWishlistItem) -Me.Panel10.Controls.Add(Me.radioGold) -Me.Panel10.Controls.Add(Me.Label42) -Me.Panel10.Controls.Add(Me.radioSilver) -Me.Panel10.Controls.Add(Me.TBWishlistURL) -Me.Panel10.Controls.Add(Me.NBWishlistCost) -Me.Panel10.Controls.Add(Me.Label48) -Me.Panel10.Controls.Add(Me.Label73) -Me.Panel10.Location = New System.Drawing.Point(38, 47) -Me.Panel10.Name = "Panel10" -Me.Panel10.Size = New System.Drawing.Size(252, 308) -Me.Panel10.TabIndex = 179 +'RTBResponsesKEY ' -'TBWishlistComment +Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) +Me.RTBResponsesKEY.Name = "RTBResponsesKEY" +Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) +Me.RTBResponsesKEY.TabIndex = 175 +Me.RTBResponsesKEY.Text = "" ' -Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) -Me.TBWishlistComment.Multiline = true -Me.TBWishlistComment.Name = "TBWishlistComment" -Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) -Me.TBWishlistComment.TabIndex = 172 +'Button4 ' -'Label32 +Me.Button4.Location = New System.Drawing.Point(6, 10) +Me.Button4.Name = "Button4" +Me.Button4.Size = New System.Drawing.Size(194, 23) +Me.Button4.TabIndex = 174 +Me.Button4.Text = "Refresh and Clear Response List" +Me.Button4.UseVisualStyleBackColor = true ' -Me.Label32.AutoSize = true -Me.Label32.Location = New System.Drawing.Point(13, 4) -Me.Label32.Name = "Label32" -Me.Label32.Size = New System.Drawing.Size(58, 13) -Me.Label32.TabIndex = 167 -Me.Label32.Text = "Item Name" +'Button5 ' -'TBWishlistItem +Me.Button5.Location = New System.Drawing.Point(638, 10) +Me.Button5.Name = "Button5" +Me.Button5.Size = New System.Drawing.Size(47, 23) +Me.Button5.TabIndex = 173 +Me.Button5.Text = "Save" +Me.Button5.UseVisualStyleBackColor = true ' -Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) -Me.TBWishlistItem.Name = "TBWishlistItem" -Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistItem.TabIndex = 168 +'TBResponses ' -'radioGold +Me.TBResponses.Location = New System.Drawing.Point(438, 10) +Me.TBResponses.Name = "TBResponses" +Me.TBResponses.Size = New System.Drawing.Size(194, 20) +Me.TBResponses.TabIndex = 172 ' -Me.radioGold.AutoSize = true -Me.radioGold.Location = New System.Drawing.Point(167, 125) -Me.radioGold.Name = "radioGold" -Me.radioGold.Size = New System.Drawing.Size(47, 17) -Me.radioGold.TabIndex = 176 -Me.radioGold.Text = "Gold" -Me.radioGold.UseVisualStyleBackColor = true +'LBResponses ' -'Label42 +Me.LBResponses.FormattingEnabled = true +Me.LBResponses.Location = New System.Drawing.Point(6, 36) +Me.LBResponses.Name = "LBResponses" +Me.LBResponses.Size = New System.Drawing.Size(194, 355) +Me.LBResponses.Sorted = true +Me.LBResponses.TabIndex = 171 ' -Me.Label42.AutoSize = true -Me.Label42.Location = New System.Drawing.Point(13, 56) -Me.Label42.Name = "Label42" -Me.Label42.Size = New System.Drawing.Size(75, 13) -Me.Label42.TabIndex = 169 -Me.Label42.Text = "Item Image Url" +'RTBResponses ' -'radioSilver +Me.RTBResponses.Location = New System.Drawing.Point(217, 82) +Me.RTBResponses.Name = "RTBResponses" +Me.RTBResponses.Size = New System.Drawing.Size(468, 309) +Me.RTBResponses.TabIndex = 170 +Me.RTBResponses.Text = "" ' -Me.radioSilver.AutoSize = true -Me.radioSilver.Checked = true -Me.radioSilver.Location = New System.Drawing.Point(100, 125) -Me.radioSilver.Name = "radioSilver" -Me.radioSilver.Size = New System.Drawing.Size(51, 17) -Me.radioSilver.TabIndex = 175 -Me.radioSilver.TabStop = true -Me.radioSilver.Text = "Silver" -Me.radioSilver.UseVisualStyleBackColor = true +'TabPage8 ' -'TBWishlistURL +Me.TabPage8.BackColor = System.Drawing.Color.LightGray +Me.TabPage8.Controls.Add(Me.RTBVideoMod) +Me.TabPage8.Controls.Add(Me.GroupBox29) +Me.TabPage8.Controls.Add(Me.BTNVideoModClear) +Me.TabPage8.Controls.Add(Me.GroupBox28) +Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) +Me.TabPage8.Controls.Add(Me.GroupBox30) +Me.TabPage8.Controls.Add(Me.BTNVideoModSave) +Me.TabPage8.Location = New System.Drawing.Point(4, 22) +Me.TabPage8.Name = "TabPage8" +Me.TabPage8.Size = New System.Drawing.Size(700, 411) +Me.TabPage8.TabIndex = 2 +Me.TabPage8.Text = "Video" ' -Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) -Me.TBWishlistURL.Name = "TBWishlistURL" -Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistURL.TabIndex = 170 +'RTBVideoMod ' -'NBWishlistCost +Me.RTBVideoMod.Enabled = false +Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) +Me.RTBVideoMod.Name = "RTBVideoMod" +Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) +Me.RTBVideoMod.TabIndex = 150 +Me.RTBVideoMod.Text = "" ' -Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) -Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBWishlistCost.Name = "NBWishlistCost" -Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) -Me.NBWishlistCost.TabIndex = 174 -Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) +'GroupBox29 ' -'Label48 +Me.GroupBox29.BackColor = System.Drawing.Color.LightGray +Me.GroupBox29.Controls.Add(Me.Label51) +Me.GroupBox29.ForeColor = System.Drawing.Color.Black +Me.GroupBox29.Location = New System.Drawing.Point(6, 309) +Me.GroupBox29.Name = "GroupBox29" +Me.GroupBox29.Size = New System.Drawing.Size(692, 92) +Me.GroupBox29.TabIndex = 66 +Me.GroupBox29.TabStop = false +Me.GroupBox29.Text = "Description" ' -Me.Label48.AutoSize = true -Me.Label48.Location = New System.Drawing.Point(13, 157) -Me.Label48.Name = "Label48" -Me.Label48.Size = New System.Drawing.Size(74, 13) -Me.Label48.TabIndex = 171 -Me.Label48.Text = "Item Comment" +'Label51 ' -'Label73 +Me.Label51.BackColor = System.Drawing.Color.Transparent +Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label51.ForeColor = System.Drawing.Color.Black +Me.Label51.Location = New System.Drawing.Point(6, 16) +Me.Label51.Name = "Label51" +Me.Label51.Size = New System.Drawing.Size(680, 73) +Me.Label51.TabIndex = 62 +Me.Label51.Text = resources.GetString("Label51.Text") +Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label73.AutoSize = true -Me.Label73.Location = New System.Drawing.Point(13, 108) -Me.Label73.Name = "Label73" -Me.Label73.Size = New System.Drawing.Size(51, 13) -Me.Label73.TabIndex = 173 -Me.Label73.Text = "Item Cost" +'BTNVideoModClear ' -'Label107 +Me.BTNVideoModClear.Enabled = false +Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) +Me.BTNVideoModClear.Name = "BTNVideoModClear" +Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModClear.TabIndex = 153 +Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" +Me.BTNVideoModClear.UseVisualStyleBackColor = true ' -Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label107.Location = New System.Drawing.Point(38, 5) -Me.Label107.Name = "Label107" -Me.Label107.Size = New System.Drawing.Size(252, 47) -Me.Label107.TabIndex = 178 -Me.Label107.Text = "Use this page to create Wishlist files." -Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GroupBox28 +' +Me.GroupBox28.Controls.Add(Me.CBVTType) +Me.GroupBox28.Location = New System.Drawing.Point(6, 8) +Me.GroupBox28.Name = "GroupBox28" +Me.GroupBox28.Size = New System.Drawing.Size(155, 46) +Me.GroupBox28.TabIndex = 148 +Me.GroupBox28.TabStop = false +Me.GroupBox28.Text = "Video Tease Type" ' -'BTNWishlistCreate +'CBVTType ' -Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) -Me.BTNWishlistCreate.Name = "BTNWishlistCreate" -Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) -Me.BTNWishlistCreate.TabIndex = 177 -Me.BTNWishlistCreate.Text = "Create Wishlist File" -Me.BTNWishlistCreate.UseVisualStyleBackColor = true +Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBVTType.FormattingEnabled = true +Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) +Me.CBVTType.Location = New System.Drawing.Point(9, 15) +Me.CBVTType.Name = "CBVTType" +Me.CBVTType.Size = New System.Drawing.Size(137, 21) +Me.CBVTType.TabIndex = 171 ' -'Label18 +'BTNVideoModLoad ' -Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label18.Location = New System.Drawing.Point(409, 5) -Me.Label18.Name = "Label18" -Me.Label18.Size = New System.Drawing.Size(250, 23) -Me.Label18.TabIndex = 166 -Me.Label18.Text = "Preview" -Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) +Me.BTNVideoModLoad.Name = "BTNVideoModLoad" +Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModLoad.TabIndex = 152 +Me.BTNVideoModLoad.Text = "Load Script" +Me.BTNVideoModLoad.UseVisualStyleBackColor = true ' -'PNLWishList +'GroupBox30 ' -Me.PNLWishList.BackColor = System.Drawing.Color.White -Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) -Me.PNLWishList.Controls.Add(Me.LBLWishListText) -Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) -Me.PNLWishList.Controls.Add(Me.WishlistCostGold) -Me.PNLWishList.Controls.Add(Me.LBLWishListName) -Me.PNLWishList.Controls.Add(Me.WishlistPreview) -Me.PNLWishList.Location = New System.Drawing.Point(407, 31) -Me.PNLWishList.Name = "PNLWishList" -Me.PNLWishList.Size = New System.Drawing.Size(250, 367) -Me.PNLWishList.TabIndex = 165 +Me.GroupBox30.Controls.Add(Me.LBVidScript) +Me.GroupBox30.Location = New System.Drawing.Point(6, 60) +Me.GroupBox30.Name = "GroupBox30" +Me.GroupBox30.Size = New System.Drawing.Size(155, 100) +Me.GroupBox30.TabIndex = 149 +Me.GroupBox30.TabStop = false +Me.GroupBox30.Text = "Script" ' -'WishlistCostSilver +'LBVidScript ' -Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) -Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostSilver.Name = "WishlistCostSilver" -Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostSilver.TabIndex = 111 -Me.WishlistCostSilver.TabStop = false +Me.LBVidScript.FormattingEnabled = true +Me.LBVidScript.Location = New System.Drawing.Point(9, 20) +Me.LBVidScript.Name = "LBVidScript" +Me.LBVidScript.Size = New System.Drawing.Size(137, 69) +Me.LBVidScript.TabIndex = 0 ' -'LBLWishListText +'BTNVideoModSave ' -Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) -Me.LBLWishListText.Name = "LBLWishListText" -Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) -Me.LBLWishListText.TabIndex = 108 +Me.BTNVideoModSave.Enabled = false +Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) +Me.BTNVideoModSave.Name = "BTNVideoModSave" +Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModSave.TabIndex = 151 +Me.BTNVideoModSave.Text = "Save Changes" +Me.BTNVideoModSave.UseVisualStyleBackColor = true ' -'LBLWishlistCost +'TabPage15 ' -Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black -Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) -Me.LBLWishlistCost.Name = "LBLWishlistCost" -Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) -Me.LBLWishlistCost.TabIndex = 107 -Me.LBLWishlistCost.Text = "3" -Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage15.BackColor = System.Drawing.Color.LightGray +Me.TabPage15.Controls.Add(Me.Label62) +Me.TabPage15.Controls.Add(Me.Label61) +Me.TabPage15.Controls.Add(Me.Label57) +Me.TabPage15.Controls.Add(Me.Label58) +Me.TabPage15.Controls.Add(Me.Label60) +Me.TabPage15.Controls.Add(Me.TBGlitModFileName) +Me.TabPage15.Controls.Add(Me.GroupBox34) +Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) +Me.TabPage15.Controls.Add(Me.Button26) +Me.TabPage15.Controls.Add(Me.Label56) +Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) +Me.TabPage15.Controls.Add(Me.LBGlitModScripts) +Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) +Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) +Me.TabPage15.Controls.Add(Me.Button29) +Me.TabPage15.Controls.Add(Me.CBGlitModType) +Me.TabPage15.Controls.Add(Me.Label59) +Me.TabPage15.Controls.Add(Me.Label50) +Me.TabPage15.Location = New System.Drawing.Point(4, 22) +Me.TabPage15.Name = "TabPage15" +Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage15.Size = New System.Drawing.Size(700, 411) +Me.TabPage15.TabIndex = 1 +Me.TabPage15.Text = "Glitter" ' -'WishlistCostGold +'Label62 ' -Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) -Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostGold.Name = "WishlistCostGold" -Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostGold.TabIndex = 106 -Me.WishlistCostGold.TabStop = false -Me.WishlistCostGold.Visible = false +Me.Label62.Location = New System.Drawing.Point(255, 169) +Me.Label62.Name = "Label62" +Me.Label62.Size = New System.Drawing.Size(59, 51) +Me.Label62.TabIndex = 177 +Me.Label62.Text = "@Cruel @Angry @Custom2" +Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLWishListName +'Label61 ' -Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue -Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) -Me.LBLWishListName.Name = "LBLWishListName" -Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) -Me.LBLWishListName.TabIndex = 104 -Me.LBLWishListName.Text = "Item Name Goes Here" -Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label61.Location = New System.Drawing.Point(194, 169) +Me.Label61.Name = "Label61" +Me.Label61.Size = New System.Drawing.Size(59, 51) +Me.Label61.TabIndex = 176 +Me.Label61.Text = "@Bratty @Caring @Custom1" +Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'WishlistPreview +'Label57 ' -Me.WishlistPreview.ImageLocation = "" -Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) -Me.WishlistPreview.Name = "WishlistPreview" -Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) -Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WishlistPreview.TabIndex = 101 -Me.WishlistPreview.TabStop = false +Me.Label57.Location = New System.Drawing.Point(194, 11) +Me.Label57.Name = "Label57" +Me.Label57.Size = New System.Drawing.Size(120, 23) +Me.Label57.TabIndex = 160 +Me.Label57.Text = "File Name" +Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TabPage26 +'Label58 ' -Me.TabPage26.BackColor = System.Drawing.Color.Silver -Me.TabPage26.Controls.Add(Me.Panel12) -Me.TabPage26.Location = New System.Drawing.Point(4, 22) -Me.TabPage26.Name = "TabPage26" -Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage26.Size = New System.Drawing.Size(720, 448) -Me.TabPage26.TabIndex = 19 -Me.TabPage26.Text = "Themes" +Me.Label58.Location = New System.Drawing.Point(350, 11) +Me.Label58.Name = "Label58" +Me.Label58.Size = New System.Drawing.Size(326, 23) +Me.Label58.TabIndex = 161 +Me.Label58.Text = "Domme's Post" +Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Panel12 +'Label60 ' -Me.Panel12.BackColor = System.Drawing.Color.LightGray -Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel12.Controls.Add(Me.GroupBox9) -Me.Panel12.Controls.Add(Me.PictureBox10) -Me.Panel12.Controls.Add(Me.GroupBox5) -Me.Panel12.Controls.Add(Me.GroupBox11) -Me.Panel12.Controls.Add(Me.GroupBox1) -Me.Panel12.Controls.Add(Me.Label164) -Me.Panel12.Location = New System.Drawing.Point(6, 6) -Me.Panel12.Name = "Panel12" -Me.Panel12.Size = New System.Drawing.Size(708, 437) -Me.Panel12.TabIndex = 93 +Me.Label60.Location = New System.Drawing.Point(194, 139) +Me.Label60.Name = "Label60" +Me.Label60.Size = New System.Drawing.Size(120, 30) +Me.Label60.TabIndex = 175 +Me.Label60.Text = "Tease Responses Need 3 of Each:" +Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox9 +'TBGlitModFileName ' -Me.GroupBox9.Controls.Add(Me.Button32) -Me.GroupBox9.Controls.Add(Me.Button31) -Me.GroupBox9.Location = New System.Drawing.Point(351, 231) -Me.GroupBox9.Name = "GroupBox9" -Me.GroupBox9.Size = New System.Drawing.Size(348, 94) -Me.GroupBox9.TabIndex = 152 -Me.GroupBox9.TabStop = false -Me.GroupBox9.Text = "System" +Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) +Me.TBGlitModFileName.Name = "TBGlitModFileName" +Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) +Me.TBGlitModFileName.TabIndex = 158 ' -'Button32 +'GroupBox34 ' -Me.Button32.BackColor = System.Drawing.Color.Transparent -Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big -Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button32.Location = New System.Drawing.Point(196, 24) -Me.Button32.Name = "Button32" -Me.Button32.Size = New System.Drawing.Size(135, 55) -Me.Button32.TabIndex = 55 -Me.Button32.Text = " Save Theme" -Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button32.UseVisualStyleBackColor = false +Me.GroupBox34.BackColor = System.Drawing.Color.LightGray +Me.GroupBox34.Controls.Add(Me.Label52) +Me.GroupBox34.ForeColor = System.Drawing.Color.Black +Me.GroupBox34.Location = New System.Drawing.Point(8, 296) +Me.GroupBox34.Name = "GroupBox34" +Me.GroupBox34.Size = New System.Drawing.Size(683, 107) +Me.GroupBox34.TabIndex = 66 +Me.GroupBox34.TabStop = false +Me.GroupBox34.Text = "Description" ' -'Button31 +'Label52 ' -Me.Button31.BackColor = System.Drawing.Color.Transparent -Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big -Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button31.Location = New System.Drawing.Point(17, 24) -Me.Button31.Name = "Button31" -Me.Button31.Size = New System.Drawing.Size(135, 55) -Me.Button31.TabIndex = 54 -Me.Button31.Text = " Open Theme" -Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button31.UseVisualStyleBackColor = false +Me.Label52.BackColor = System.Drawing.Color.Transparent +Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label52.ForeColor = System.Drawing.Color.Black +Me.Label52.Location = New System.Drawing.Point(6, 16) +Me.Label52.Name = "Label52" +Me.Label52.Size = New System.Drawing.Size(670, 88) +Me.Label52.TabIndex = 62 +Me.Label52.Text = resources.GetString("Label52.Text") +Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'PictureBox10 +'RTBGlitModDommePost ' -Me.PictureBox10.BackColor = System.Drawing.Color.LightGray -Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox10.Location = New System.Drawing.Point(9, 6) -Me.PictureBox10.Name = "PictureBox10" -Me.PictureBox10.Size = New System.Drawing.Size(160, 19) -Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox10.TabIndex = 151 -Me.PictureBox10.TabStop = false +Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) +Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" +Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) +Me.RTBGlitModDommePost.TabIndex = 162 +Me.RTBGlitModDommePost.Text = "" ' -'GroupBox5 +'Button26 ' -Me.GroupBox5.Controls.Add(Me.CBTransparentTime) -Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) -Me.GroupBox5.Controls.Add(Me.Label137) -Me.GroupBox5.Controls.Add(Me.Label138) -Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) -Me.GroupBox5.Location = New System.Drawing.Point(9, 31) -Me.GroupBox5.Name = "GroupBox5" -Me.GroupBox5.Size = New System.Drawing.Size(336, 294) -Me.GroupBox5.TabIndex = 58 -Me.GroupBox5.TabStop = false -Me.GroupBox5.Text = "UI Colors" +Me.Button26.Location = New System.Drawing.Point(194, 239) +Me.Button26.Name = "Button26" +Me.Button26.Size = New System.Drawing.Size(120, 23) +Me.Button26.TabIndex = 174 +Me.Button26.Text = "Clear Fields" +Me.Button26.UseVisualStyleBackColor = true ' -'CBTransparentTime +'Label56 ' -Me.CBTransparentTime.AutoSize = true -Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) -Me.CBTransparentTime.Name = "CBTransparentTime" -Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) -Me.CBTransparentTime.TabIndex = 23 -Me.CBTransparentTime.Text = "Transparent Date/Time Window" -Me.CBTransparentTime.UseVisualStyleBackColor = true +Me.Label56.Location = New System.Drawing.Point(350, 80) +Me.Label56.Name = "Label56" +Me.Label56.Size = New System.Drawing.Size(324, 23) +Me.Label56.TabIndex = 156 +Me.Label56.Text = "Responses (Minimum 3)" +Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLDateTimeColor2 +'RTBGlitModResponses ' -Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor -Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) -Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" -Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateTimeColor2.TabIndex = 19 +Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) +Me.RTBGlitModResponses.Name = "RTBGlitModResponses" +Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) +Me.RTBGlitModResponses.TabIndex = 150 +Me.RTBGlitModResponses.Text = "" ' -'Label137 +'LBGlitModScripts ' -Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label137.Location = New System.Drawing.Point(6, 227) -Me.Label137.Name = "Label137" -Me.Label137.Size = New System.Drawing.Size(175, 20) -Me.Label137.TabIndex = 20 -Me.Label137.Text = "Date/Time Window Color" -Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBGlitModScripts.FormattingEnabled = true +Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) +Me.LBGlitModScripts.Name = "LBGlitModScripts" +Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) +Me.LBGlitModScripts.TabIndex = 163 ' -'Label138 +'LBLGlitModScriptCount ' -Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label138.Location = New System.Drawing.Point(6, 193) -Me.Label138.Name = "Label138" -Me.Label138.Size = New System.Drawing.Size(175, 20) -Me.Label138.TabIndex = 17 -Me.Label138.Text = "Date/Time Text Color" -Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) +Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" +Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) +Me.LBLGlitModScriptCount.TabIndex = 173 +Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" +Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLDateBackColor2 +'LBLGlitModDomType ' -Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor -Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) -Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateBackColor2.Name = "LBLDateBackColor2" -Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateBackColor2.TabIndex = 22 +Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) +Me.LBLGlitModDomType.Name = "LBLGlitModDomType" +Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) +Me.LBLGlitModDomType.TabIndex = 155 +Me.LBLGlitModDomType.Text = "Total Brat" +Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLTextColor +'Button29 ' -Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) -Me.LBLTextColor.Name = "LBLTextColor" -Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLTextColor.TabIndex = 7 -Me.LBLTextColor.Text = "Text Color" -Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button29.Location = New System.Drawing.Point(194, 268) +Me.Button29.Name = "Button29" +Me.Button29.Size = New System.Drawing.Size(120, 23) +Me.Button29.TabIndex = 151 +Me.Button29.Text = "Save Glitter File" +Me.Button29.UseVisualStyleBackColor = true ' -'LBLChatWindowColor2 +'CBGlitModType ' -Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor -Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) -Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" -Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatWindowColor2.TabIndex = 12 +Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBGlitModType.FormattingEnabled = true +Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) +Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) +Me.CBGlitModType.Name = "CBGlitModType" +Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) +Me.CBGlitModType.TabIndex = 171 ' -'LBLTextColor2 +'Label59 ' -Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor -Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) -Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLTextColor2.Name = "LBLTextColor2" -Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLTextColor2.TabIndex = 9 +Me.Label59.Location = New System.Drawing.Point(33, 11) +Me.Label59.Name = "Label59" +Me.Label59.Size = New System.Drawing.Size(130, 23) +Me.Label59.TabIndex = 172 +Me.Label59.Text = "Glitter Post Type" +Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLChatTextColor +'Label50 ' -Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) -Me.LBLChatTextColor.Name = "LBLChatTextColor" -Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatTextColor.TabIndex = 14 -Me.LBLChatTextColor.Text = "Chat Text Color" -Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label50.Location = New System.Drawing.Point(191, 80) +Me.Label50.Name = "Label50" +Me.Label50.Size = New System.Drawing.Size(123, 23) +Me.Label50.TabIndex = 154 +Me.Label50.Text = "Current Domme Personality:" +Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLBackColor2 +'TabPage25 ' -Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor -Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) -Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLBackColor2.Name = "LBLBackColor2" -Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLBackColor2.TabIndex = 3 +Me.TabPage25.BackColor = System.Drawing.Color.Silver +Me.TabPage25.Controls.Add(Me.Panel11) +Me.TabPage25.Location = New System.Drawing.Point(4, 22) +Me.TabPage25.Name = "TabPage25" +Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage25.Size = New System.Drawing.Size(720, 448) +Me.TabPage25.TabIndex = 18 +Me.TabPage25.Text = "Misc" ' -'LBLButtonColor +'Panel11 ' -Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) -Me.LBLButtonColor.Name = "LBLButtonColor" -Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) -Me.LBLButtonColor.TabIndex = 4 -Me.LBLButtonColor.Text = "Button Color" -Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Panel11.BackColor = System.Drawing.Color.LightGray +Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel11.Controls.Add(Me.GroupBox62) +Me.Panel11.Controls.Add(Me.GroupBox33) +Me.Panel11.Controls.Add(Me.GroupBox8) +Me.Panel11.Controls.Add(Me.GroupBox27) +Me.Panel11.Controls.Add(Me.GroupBox20) +Me.Panel11.Controls.Add(Me.GroupBox15) +Me.Panel11.Controls.Add(Me.PictureBox9) +Me.Panel11.Controls.Add(Me.Label148) +Me.Panel11.Location = New System.Drawing.Point(6, 6) +Me.Panel11.Name = "Panel11" +Me.Panel11.Size = New System.Drawing.Size(708, 437) +Me.Panel11.TabIndex = 92 ' -'LBLChatWindowColor +'GroupBox62 ' -Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) -Me.LBLChatWindowColor.Name = "LBLChatWindowColor" -Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatWindowColor.TabIndex = 10 -Me.LBLChatWindowColor.Text = "Chat Window Color" -Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox62.Controls.Add(Me.RBGerman) +Me.GroupBox62.Controls.Add(Me.RBEnglish) +Me.GroupBox62.Location = New System.Drawing.Point(420, 155) +Me.GroupBox62.Name = "GroupBox62" +Me.GroupBox62.Size = New System.Drawing.Size(277, 56) +Me.GroupBox62.TabIndex = 178 +Me.GroupBox62.TabStop = false +Me.GroupBox62.Text = "Language" ' -'LBLBackColor +'RBGerman ' -Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) -Me.LBLBackColor.Name = "LBLBackColor" -Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) -Me.LBLBackColor.TabIndex = 0 -Me.LBLBackColor.Text = "Background Color" -Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.RBGerman.AutoSize = true +Me.RBGerman.Location = New System.Drawing.Point(180, 20) +Me.RBGerman.Name = "RBGerman" +Me.RBGerman.Size = New System.Drawing.Size(65, 17) +Me.RBGerman.TabIndex = 1 +Me.RBGerman.Text = "Deutsch" +Me.RBGerman.UseVisualStyleBackColor = true ' -'LBLChatTextColor2 +'RBEnglish ' -Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor -Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) -Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatTextColor2.Name = "LBLChatTextColor2" -Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatTextColor2.TabIndex = 16 +Me.RBEnglish.AutoSize = true +Me.RBEnglish.Checked = true +Me.RBEnglish.Location = New System.Drawing.Point(36, 19) +Me.RBEnglish.Name = "RBEnglish" +Me.RBEnglish.Size = New System.Drawing.Size(59, 17) +Me.RBEnglish.TabIndex = 0 +Me.RBEnglish.TabStop = true +Me.RBEnglish.Text = "English" +Me.RBEnglish.UseVisualStyleBackColor = true ' -'LBLButtonColor2 +'GroupBox33 ' -Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor -Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) -Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLButtonColor2.Name = "LBLButtonColor2" -Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLButtonColor2.TabIndex = 6 +Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) +Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) +Me.GroupBox33.Controls.Add(Me.Label140) +Me.GroupBox33.Controls.Add(Me.Button11) +Me.GroupBox33.Controls.Add(Me.LBLChastityState) +Me.GroupBox33.Controls.Add(Me.Label120) +Me.GroupBox33.Location = New System.Drawing.Point(420, 321) +Me.GroupBox33.Name = "GroupBox33" +Me.GroupBox33.Size = New System.Drawing.Size(277, 106) +Me.GroupBox33.TabIndex = 177 +Me.GroupBox33.TabStop = false +Me.GroupBox33.Text = "System States" ' -'GroupBox11 +'BTNOfflineMode ' -Me.GroupBox11.BackColor = System.Drawing.Color.LightGray -Me.GroupBox11.Controls.Add(Me.Label144) -Me.GroupBox11.ForeColor = System.Drawing.Color.Black -Me.GroupBox11.Location = New System.Drawing.Point(7, 331) -Me.GroupBox11.Name = "GroupBox11" -Me.GroupBox11.Size = New System.Drawing.Size(692, 92) -Me.GroupBox11.TabIndex = 65 -Me.GroupBox11.TabStop = false -Me.GroupBox11.Text = "Description" +Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) +Me.BTNOfflineMode.Name = "BTNOfflineMode" +Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) +Me.BTNOfflineMode.TabIndex = 180 +Me.BTNOfflineMode.Text = "Toggle" +Me.BTNOfflineMode.UseVisualStyleBackColor = true ' -'Label144 +'LBLOfflineMode ' -Me.Label144.BackColor = System.Drawing.Color.Transparent -Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label144.ForeColor = System.Drawing.Color.Black -Me.Label144.Location = New System.Drawing.Point(6, 16) -Me.Label144.Name = "Label144" -Me.Label144.Size = New System.Drawing.Size(680, 73) -Me.Label144.TabIndex = 62 -Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ - "nd opened from txt files." -Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray +Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red +Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) +Me.LBLOfflineMode.Name = "LBLOfflineMode" +Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) +Me.LBLOfflineMode.TabIndex = 179 +Me.LBLOfflineMode.Text = "OFF" +Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox1 +'Label140 ' -Me.GroupBox1.Controls.Add(Me.CBFlipBack) -Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) -Me.GroupBox1.Controls.Add(Me.Button17) -Me.GroupBox1.Controls.Add(Me.CBStretchBack) -Me.GroupBox1.Controls.Add(Me.Button18) -Me.GroupBox1.Location = New System.Drawing.Point(351, 30) -Me.GroupBox1.Name = "GroupBox1" -Me.GroupBox1.Size = New System.Drawing.Size(348, 195) -Me.GroupBox1.TabIndex = 57 -Me.GroupBox1.TabStop = false -Me.GroupBox1.Text = "Background" +Me.Label140.BackColor = System.Drawing.Color.LightGray +Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label140.Location = New System.Drawing.Point(17, 70) +Me.Label140.Name = "Label140" +Me.Label140.Size = New System.Drawing.Size(98, 23) +Me.Label140.TabIndex = 178 +Me.Label140.Text = "OFFLINE MODE" +Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBFlipBack +'Button11 ' -Me.CBFlipBack.Enabled = false -Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) -Me.CBFlipBack.Name = "CBFlipBack" -Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) -Me.CBFlipBack.TabIndex = 4 -Me.CBFlipBack.Text = "Flip Background" -Me.CBFlipBack.UseVisualStyleBackColor = true +Me.Button11.Location = New System.Drawing.Point(161, 33) +Me.Button11.Name = "Button11" +Me.Button11.Size = New System.Drawing.Size(99, 23) +Me.Button11.TabIndex = 177 +Me.Button11.Text = "Toggle" +Me.Button11.UseVisualStyleBackColor = true ' -'PBBackgroundPreview +'LBLChastityState ' -Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) -Me.PBBackgroundPreview.Name = "PBBackgroundPreview" -Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) -Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PBBackgroundPreview.TabIndex = 0 -Me.PBBackgroundPreview.TabStop = false +Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray +Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLChastityState.ForeColor = System.Drawing.Color.Red +Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) +Me.LBLChastityState.Name = "LBLChastityState" +Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) +Me.LBLChastityState.TabIndex = 3 +Me.LBLChastityState.Text = "OFF" +Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Button17 +'Label120 ' -Me.Button17.BackColor = System.Drawing.Color.Transparent -Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load -Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button17.Location = New System.Drawing.Point(228, 36) -Me.Button17.Name = "Button17" -Me.Button17.Size = New System.Drawing.Size(103, 93) -Me.Button17.TabIndex = 1 -Me.Button17.UseVisualStyleBackColor = false +Me.Label120.BackColor = System.Drawing.Color.LightGray +Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label120.Location = New System.Drawing.Point(17, 33) +Me.Label120.Name = "Label120" +Me.Label120.Size = New System.Drawing.Size(98, 23) +Me.Label120.TabIndex = 2 +Me.Label120.Text = "CHASTITY" +Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBStretchBack +'GroupBox8 ' -Me.CBStretchBack.Checked = true -Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) -Me.CBStretchBack.Name = "CBStretchBack" -Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) -Me.CBStretchBack.TabIndex = 2 -Me.CBStretchBack.Text = "Stretch Background" -Me.CBStretchBack.UseVisualStyleBackColor = true +Me.GroupBox8.Controls.Add(Me.CBOutputErrors) +Me.GroupBox8.Location = New System.Drawing.Point(420, 246) +Me.GroupBox8.Name = "GroupBox8" +Me.GroupBox8.Size = New System.Drawing.Size(279, 47) +Me.GroupBox8.TabIndex = 179 +Me.GroupBox8.TabStop = false +Me.GroupBox8.Text = "System Information" ' -'Button18 +'CBOutputErrors ' -Me.Button18.Location = New System.Drawing.Point(228, 155) -Me.Button18.Name = "Button18" -Me.Button18.Size = New System.Drawing.Size(103, 31) -Me.Button18.TabIndex = 3 -Me.Button18.Text = "Clear" -Me.Button18.UseVisualStyleBackColor = true +Me.CBOutputErrors.AutoSize = true +Me.CBOutputErrors.Checked = true +Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black +Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) +Me.CBOutputErrors.Name = "CBOutputErrors" +Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) +Me.CBOutputErrors.TabIndex = 29 +Me.CBOutputErrors.TabStop = false +Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" +Me.CBOutputErrors.UseVisualStyleBackColor = true ' -'Label164 +'GroupBox27 ' -Me.Label164.BackColor = System.Drawing.Color.Transparent -Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label164.ForeColor = System.Drawing.Color.Black -Me.Label164.Location = New System.Drawing.Point(7, 6) -Me.Label164.Name = "Label164" -Me.Label164.Size = New System.Drawing.Size(692, 21) -Me.Label164.TabIndex = 49 -Me.Label164.Text = "Theme Settings" -Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox27.Controls.Add(Me.Button6) +Me.GroupBox27.Controls.Add(Me.LBLSesSpace) +Me.GroupBox27.Controls.Add(Me.Button3) +Me.GroupBox27.Controls.Add(Me.LBLSesFiles) +Me.GroupBox27.Controls.Add(Me.Label125) +Me.GroupBox27.Controls.Add(Me.Label124) +Me.GroupBox27.Location = New System.Drawing.Point(420, 32) +Me.GroupBox27.Name = "GroupBox27" +Me.GroupBox27.Size = New System.Drawing.Size(279, 117) +Me.GroupBox27.TabIndex = 176 +Me.GroupBox27.TabStop = false +Me.GroupBox27.Text = "Session Images" ' -'TabPage4 +'Button6 ' -Me.TabPage4.BackColor = System.Drawing.Color.Silver -Me.TabPage4.Controls.Add(Me.Panel6) -Me.TabPage4.Location = New System.Drawing.Point(4, 22) -Me.TabPage4.Name = "TabPage4" -Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage4.Size = New System.Drawing.Size(720, 448) -Me.TabPage4.TabIndex = 3 -Me.TabPage4.Text = "Ranges" +Me.Button6.Location = New System.Drawing.Point(143, 76) +Me.Button6.Name = "Button6" +Me.Button6.Size = New System.Drawing.Size(117, 23) +Me.Button6.TabIndex = 176 +Me.Button6.Text = "Delete All Files" +Me.Button6.UseVisualStyleBackColor = true ' -'Panel6 +'LBLSesSpace ' -Me.Panel6.BackColor = System.Drawing.Color.LightGray -Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel6.Controls.Add(Me.GroupBox69) -Me.Panel6.Controls.Add(Me.GroupBox68) -Me.Panel6.Controls.Add(Me.GroupBox67) -Me.Panel6.Controls.Add(Me.GroupBox10) -Me.Panel6.Controls.Add(Me.GroupBox57) -Me.Panel6.Controls.Add(Me.GBRangeRuinChance) -Me.Panel6.Controls.Add(Me.GroupBox17) -Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) -Me.Panel6.Controls.Add(Me.PictureBox8) -Me.Panel6.Controls.Add(Me.Label38) -Me.Panel6.Location = New System.Drawing.Point(6, 6) -Me.Panel6.Name = "Panel6" -Me.Panel6.Size = New System.Drawing.Size(708, 437) -Me.Panel6.TabIndex = 91 +Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) +Me.LBLSesSpace.Name = "LBLSesSpace" +Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) +Me.LBLSesSpace.TabIndex = 3 ' -'GroupBox69 +'Button3 ' -Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) -Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) -Me.GroupBox69.Controls.Add(Me.TimedWriting) -Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) -Me.GroupBox69.Location = New System.Drawing.Point(236, 344) -Me.GroupBox69.Name = "GroupBox69" -Me.GroupBox69.Size = New System.Drawing.Size(166, 83) -Me.GroupBox69.TabIndex = 173 -Me.GroupBox69.TabStop = false -Me.GroupBox69.Text = "Writing Tasks" +Me.Button3.Location = New System.Drawing.Point(20, 76) +Me.Button3.Name = "Button3" +Me.Button3.Size = New System.Drawing.Size(117, 23) +Me.Button3.TabIndex = 175 +Me.Button3.Text = "Open Folder" +Me.Button3.UseVisualStyleBackColor = true ' -'TypesSpeedVal +'LBLSesFiles ' -Me.TypesSpeedVal.AutoSize = true -Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) -Me.TypesSpeedVal.Name = "TypesSpeedVal" -Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) -Me.TypesSpeedVal.TabIndex = 0 -Me.TypesSpeedVal.Text = "10" -Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight +Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) +Me.LBLSesFiles.Name = "LBLSesFiles" +Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) +Me.LBLSesFiles.TabIndex = 2 ' -'TypeSpeedLabel +'Label125 ' -Me.TypeSpeedLabel.AutoSize = true -Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) -Me.TypeSpeedLabel.Name = "TypeSpeedLabel" -Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) -Me.TypeSpeedLabel.TabIndex = 2 -Me.TypeSpeedLabel.Text = "Typing Speed:" +Me.Label125.AutoSize = true +Me.Label125.Location = New System.Drawing.Point(17, 53) +Me.Label125.Name = "Label125" +Me.Label125.Size = New System.Drawing.Size(120, 13) +Me.Label125.TabIndex = 1 +Me.Label125.Text = "Total Disk Space Used:" ' -'TimedWriting +'Label124 ' -Me.TimedWriting.AutoSize = true -Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting -Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TimedWriting.Location = New System.Drawing.Point(9, 19) -Me.TimedWriting.Name = "TimedWriting" -Me.TimedWriting.Size = New System.Drawing.Size(123, 17) -Me.TimedWriting.TabIndex = 1 -Me.TimedWriting.Text = "Timed Writing Tasks" -Me.TimedWriting.UseVisualStyleBackColor = true +Me.Label124.AutoSize = true +Me.Label124.Location = New System.Drawing.Point(17, 24) +Me.Label124.Name = "Label124" +Me.Label124.Size = New System.Drawing.Size(126, 13) +Me.Label124.TabIndex = 0 +Me.Label124.Text = "Number of Files in Folder:" ' -'TypeSpeedSlider +'GroupBox20 ' -Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) -Me.TypeSpeedSlider.Maximum = 100 -Me.TypeSpeedSlider.Minimum = 33 -Me.TypeSpeedSlider.Name = "TypeSpeedSlider" -Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) -Me.TypeSpeedSlider.TabIndex = 3 -Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed +Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label87) +Me.GroupBox20.Controls.Add(Me.TBURLFileWith) +Me.GroupBox20.Controls.Add(Me.Label118) +Me.GroupBox20.Controls.Add(Me.Label85) +Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label53) +Me.GroupBox20.Controls.Add(Me.Label8) +Me.GroupBox20.Controls.Add(Me.Button1) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) +Me.GroupBox20.Controls.Add(Me.Label117) +Me.GroupBox20.Controls.Add(Me.Label116) +Me.GroupBox20.Controls.Add(Me.PBCurrent) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) +Me.GroupBox20.Controls.Add(Me.PBMaintenance) +Me.GroupBox20.Controls.Add(Me.LBLMaintenance) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) +Me.GroupBox20.Location = New System.Drawing.Point(6, 32) +Me.GroupBox20.Name = "GroupBox20" +Me.GroupBox20.Size = New System.Drawing.Size(408, 230) +Me.GroupBox20.TabIndex = 174 +Me.GroupBox20.TabStop = false +Me.GroupBox20.Text = "Maintenance" ' -'GroupBox68 +'BTNURLFileReplace ' -Me.GroupBox68.Controls.Add(Me.NBTasksMax) -Me.GroupBox68.Controls.Add(Me.NBTasksMin) -Me.GroupBox68.Controls.Add(Me.Label165) -Me.GroupBox68.Controls.Add(Me.Label166) -Me.GroupBox68.Location = New System.Drawing.Point(236, 287) -Me.GroupBox68.Name = "GroupBox68" -Me.GroupBox68.Size = New System.Drawing.Size(166, 51) -Me.GroupBox68.TabIndex = 172 -Me.GroupBox68.TabStop = false -Me.GroupBox68.Text = "Session Tasks" +Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) +Me.BTNURLFileReplace.Name = "BTNURLFileReplace" +Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) +Me.BTNURLFileReplace.TabIndex = 184 +Me.BTNURLFileReplace.Text = "Replace" +Me.BTNURLFileReplace.UseVisualStyleBackColor = true ' -'NBTasksMax +'Label87 ' -Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) -Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) -Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTasksMax.Name = "NBTasksMax" -Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMax.TabIndex = 187 -Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) +Me.Label87.AutoSize = true +Me.Label87.Location = New System.Drawing.Point(206, 254) +Me.Label87.Name = "Label87" +Me.Label87.Size = New System.Drawing.Size(38, 13) +Me.Label87.TabIndex = 183 +Me.Label87.Text = ".media" ' -'NBTasksMin +'TBURLFileWith ' -Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) -Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBTasksMin.Name = "NBTasksMin" -Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMin.TabIndex = 186 -Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) +Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) +Me.TBURLFileWith.Name = "TBURLFileWith" +Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileWith.TabIndex = 182 ' -'Label165 +'Label118 ' -Me.Label165.BackColor = System.Drawing.Color.Transparent -Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label165.ForeColor = System.Drawing.Color.Black -Me.Label165.Location = New System.Drawing.Point(100, 20) -Me.Label165.Name = "Label165" -Me.Label165.Size = New System.Drawing.Size(10, 17) -Me.Label165.TabIndex = 185 -Me.Label165.Text = "-" -Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label118.AutoSize = true +Me.Label118.Location = New System.Drawing.Point(142, 254) +Me.Label118.Name = "Label118" +Me.Label118.Size = New System.Drawing.Size(29, 13) +Me.Label118.TabIndex = 181 +Me.Label118.Text = "With" ' -'Label166 +'Label85 ' -Me.Label166.BackColor = System.Drawing.Color.Transparent -Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label166.ForeColor = System.Drawing.Color.Black -Me.Label166.Location = New System.Drawing.Point(6, 21) -Me.Label166.Name = "Label166" -Me.Label166.Size = New System.Drawing.Size(49, 17) -Me.Label166.TabIndex = 188 -Me.Label166.Text = "Amount:" -Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label85.AutoSize = true +Me.Label85.Location = New System.Drawing.Point(98, 254) +Me.Label85.Name = "Label85" +Me.Label85.Size = New System.Drawing.Size(38, 13) +Me.Label85.TabIndex = 180 +Me.Label85.Text = ".media" ' -'GroupBox67 +'TBURLFileReplace ' -Me.GroupBox67.Controls.Add(Me.Label161) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) -Me.GroupBox67.Controls.Add(Me.Label162) -Me.GroupBox67.Controls.Add(Me.Label163) -Me.GroupBox67.Controls.Add(Me.Label158) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) -Me.GroupBox67.Controls.Add(Me.Label159) -Me.GroupBox67.Controls.Add(Me.Label160) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) -Me.GroupBox67.Controls.Add(Me.Label119) -Me.GroupBox67.Controls.Add(Me.Label157) -Me.GroupBox67.Controls.Add(Me.Label151) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) -Me.GroupBox67.Controls.Add(Me.Label154) -Me.GroupBox67.Controls.Add(Me.Label155) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) -Me.GroupBox67.Controls.Add(Me.Label146) -Me.GroupBox67.Controls.Add(Me.Label149) -Me.GroupBox67.Location = New System.Drawing.Point(408, 288) -Me.GroupBox67.Name = "GroupBox67" -Me.GroupBox67.Size = New System.Drawing.Size(291, 139) -Me.GroupBox67.TabIndex = 171 -Me.GroupBox67.TabStop = false -Me.GroupBox67.Text = "Letter Tasks" +Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) +Me.TBURLFileReplace.Name = "TBURLFileReplace" +Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileReplace.TabIndex = 179 ' -'Label161 +'Label53 ' -Me.Label161.BackColor = System.Drawing.Color.Transparent -Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label161.ForeColor = System.Drawing.Color.Black -Me.Label161.Location = New System.Drawing.Point(233, 110) -Me.Label161.Name = "Label161" -Me.Label161.Size = New System.Drawing.Size(50, 17) -Me.Label161.TabIndex = 204 -Me.Label161.Text = "minutes" -Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label53.AutoSize = true +Me.Label53.Location = New System.Drawing.Point(16, 254) +Me.Label53.Name = "Label53" +Me.Label53.Size = New System.Drawing.Size(47, 13) +Me.Label53.TabIndex = 178 +Me.Label53.Text = "Replace" ' -'NBTaskCBTTimeMax +'Label8 ' -Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) -Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" -Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMax.TabIndex = 203 -Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax +Me.Label8.AutoSize = true +Me.Label8.Location = New System.Drawing.Point(16, 232) +Me.Label8.Name = "Label8" +Me.Label8.Size = New System.Drawing.Size(130, 13) +Me.Label8.TabIndex = 177 +Me.Label8.Text = "Change URL File Servers " +' +'Button1 +' +Me.Button1.Enabled = false +Me.Button1.Location = New System.Drawing.Point(270, 19) +Me.Button1.Name = "Button1" +Me.Button1.Size = New System.Drawing.Size(121, 23) +Me.Button1.TabIndex = 176 +Me.Button1.Text = "Reset Settings" +Me.Button1.UseVisualStyleBackColor = true ' -'NBTaskCBTTimeMin +'BTNMaintenanceScripts ' -Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) -Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" -Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMin.TabIndex = 202 -Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin +Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) +Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" +Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceScripts.TabIndex = 175 +Me.BTNMaintenanceScripts.Text = "Audit Scripts" +Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true ' -'Label162 +'BTNMaintenanceRefresh ' -Me.Label162.BackColor = System.Drawing.Color.Transparent -Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label162.ForeColor = System.Drawing.Color.Black -Me.Label162.Location = New System.Drawing.Point(167, 110) -Me.Label162.Name = "Label162" -Me.Label162.Size = New System.Drawing.Size(10, 17) -Me.Label162.TabIndex = 201 -Me.Label162.Text = "-" -Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) +Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" +Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRefresh.TabIndex = 7 +Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" +Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true ' -'Label163 +'Label117 ' -Me.Label163.BackColor = System.Drawing.Color.Transparent -Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label163.ForeColor = System.Drawing.Color.Black -Me.Label163.Location = New System.Drawing.Point(12, 111) -Me.Label163.Name = "Label163" -Me.Label163.Size = New System.Drawing.Size(151, 17) -Me.Label163.TabIndex = 200 -Me.Label163.Text = "CBT Time:" -Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label117.AutoSize = true +Me.Label117.Location = New System.Drawing.Point(15, 182) +Me.Label117.Name = "Label117" +Me.Label117.Size = New System.Drawing.Size(84, 13) +Me.Label117.TabIndex = 6 +Me.Label117.Text = "Overall Progress" ' -'Label158 +'Label116 ' -Me.Label158.BackColor = System.Drawing.Color.Transparent -Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label158.ForeColor = System.Drawing.Color.Black -Me.Label158.Location = New System.Drawing.Point(233, 87) -Me.Label158.Name = "Label158" -Me.Label158.Size = New System.Drawing.Size(50, 17) -Me.Label158.TabIndex = 199 -Me.Label158.Text = "minutes" -Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label116.AutoSize = true +Me.Label116.Location = New System.Drawing.Point(15, 140) +Me.Label116.Name = "Label116" +Me.Label116.Size = New System.Drawing.Size(85, 13) +Me.Label116.TabIndex = 5 +Me.Label116.Text = "Current Progress" ' -'NBTaskEdgeHoldTimeMax +'PBCurrent ' -Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) -Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" -Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 -Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax +Me.PBCurrent.Location = New System.Drawing.Point(15, 156) +Me.PBCurrent.Name = "PBCurrent" +Me.PBCurrent.Size = New System.Drawing.Size(376, 23) +Me.PBCurrent.TabIndex = 4 ' -'NBTaskEdgeHoldTimeMin +'BTNMaintenanceCancel ' -Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) -Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" -Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 -Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin +Me.BTNMaintenanceCancel.Enabled = false +Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) +Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" +Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceCancel.TabIndex = 3 +Me.BTNMaintenanceCancel.Text = "Cancel" +Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true ' -'Label159 +'PBMaintenance ' -Me.Label159.BackColor = System.Drawing.Color.Transparent -Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label159.ForeColor = System.Drawing.Color.Black -Me.Label159.Location = New System.Drawing.Point(167, 87) -Me.Label159.Name = "Label159" -Me.Label159.Size = New System.Drawing.Size(10, 17) -Me.Label159.TabIndex = 196 -Me.Label159.Text = "-" -Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) +Me.PBMaintenance.Name = "PBMaintenance" +Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) +Me.PBMaintenance.TabIndex = 2 ' -'Label160 +'LBLMaintenance ' -Me.Label160.BackColor = System.Drawing.Color.Transparent -Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label160.ForeColor = System.Drawing.Color.Black -Me.Label160.Location = New System.Drawing.Point(12, 88) -Me.Label160.Name = "Label160" -Me.Label160.Size = New System.Drawing.Size(151, 17) -Me.Label160.TabIndex = 195 -Me.Label160.Text = "Edge Hold Time:" -Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) +Me.LBLMaintenance.Name = "LBLMaintenance" +Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) +Me.LBLMaintenance.TabIndex = 1 +Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTaskEdgesMax +'BTNMaintenanceRebuild ' -Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) -Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" -Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMax.TabIndex = 194 -Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax +Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) +Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" +Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRebuild.TabIndex = 0 +Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" +Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true ' -'NBTaskEdgesMin +'GroupBox15 ' -Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) -Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" -Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMin.TabIndex = 193 -Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin +Me.GroupBox15.Controls.Add(Me.Label115) +Me.GroupBox15.Controls.Add(Me.TBWebStop) +Me.GroupBox15.Controls.Add(Me.TBWebStart) +Me.GroupBox15.Controls.Add(Me.Label114) +Me.GroupBox15.Controls.Add(Me.WebToy) +Me.GroupBox15.Location = New System.Drawing.Point(6, 268) +Me.GroupBox15.Name = "GroupBox15" +Me.GroupBox15.Size = New System.Drawing.Size(408, 159) +Me.GroupBox15.TabIndex = 173 +Me.GroupBox15.TabStop = false +Me.GroupBox15.Text = "Web-Controlled Sex Toy" ' -'Label119 +'Label115 ' -Me.Label119.BackColor = System.Drawing.Color.Transparent -Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label119.ForeColor = System.Drawing.Color.Black -Me.Label119.Location = New System.Drawing.Point(167, 64) -Me.Label119.Name = "Label119" -Me.Label119.Size = New System.Drawing.Size(10, 17) -Me.Label119.TabIndex = 192 -Me.Label119.Text = "-" -Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label115.AutoSize = true +Me.Label115.Location = New System.Drawing.Point(12, 58) +Me.Label115.Name = "Label115" +Me.Label115.Size = New System.Drawing.Size(54, 13) +Me.Label115.TabIndex = 171 +Me.Label115.Text = "Stop URL" ' -'Label157 +'TBWebStop ' -Me.Label157.BackColor = System.Drawing.Color.Transparent -Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label157.ForeColor = System.Drawing.Color.Black -Me.Label157.Location = New System.Drawing.Point(12, 65) -Me.Label157.Name = "Label157" -Me.Label157.Size = New System.Drawing.Size(151, 17) -Me.Label157.TabIndex = 191 -Me.Label157.Text = "Edges:" -Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TBWebStop.Location = New System.Drawing.Point(10, 72) +Me.TBWebStop.Name = "TBWebStop" +Me.TBWebStop.Size = New System.Drawing.Size(381, 20) +Me.TBWebStop.TabIndex = 170 ' -'Label151 +'TBWebStart ' -Me.Label151.BackColor = System.Drawing.Color.Transparent -Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label151.ForeColor = System.Drawing.Color.Black -Me.Label151.Location = New System.Drawing.Point(233, 41) -Me.Label151.Name = "Label151" -Me.Label151.Size = New System.Drawing.Size(50, 17) -Me.Label151.TabIndex = 190 -Me.Label151.Text = "minutes" -Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TBWebStart.Location = New System.Drawing.Point(10, 33) +Me.TBWebStart.Name = "TBWebStart" +Me.TBWebStart.Size = New System.Drawing.Size(381, 20) +Me.TBWebStart.TabIndex = 167 ' -'NBTaskStrokingTimeMax +'Label114 ' -Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) -Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" -Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMax.TabIndex = 189 -Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax +Me.Label114.AutoSize = true +Me.Label114.Location = New System.Drawing.Point(12, 17) +Me.Label114.Name = "Label114" +Me.Label114.Size = New System.Drawing.Size(54, 13) +Me.Label114.TabIndex = 168 +Me.Label114.Text = "Start URL" ' -'NBTaskStrokingTimeMin +'WebToy ' -Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) -Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" -Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMin.TabIndex = 188 -Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin +Me.WebToy.Location = New System.Drawing.Point(346, 33) +Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) +Me.WebToy.Name = "WebToy" +Me.WebToy.Size = New System.Drawing.Size(45, 59) +Me.WebToy.TabIndex = 172 +' +'PictureBox9 +' +Me.PictureBox9.BackColor = System.Drawing.Color.LightGray +Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox9.Location = New System.Drawing.Point(9, 6) +Me.PictureBox9.Name = "PictureBox9" +Me.PictureBox9.Size = New System.Drawing.Size(160, 19) +Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox9.TabIndex = 166 +Me.PictureBox9.TabStop = false ' -'Label154 +'Label148 ' -Me.Label154.BackColor = System.Drawing.Color.Transparent -Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label154.ForeColor = System.Drawing.Color.Black -Me.Label154.Location = New System.Drawing.Point(167, 41) -Me.Label154.Name = "Label154" -Me.Label154.Size = New System.Drawing.Size(10, 17) -Me.Label154.TabIndex = 187 -Me.Label154.Text = "-" -Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label148.BackColor = System.Drawing.Color.Transparent +Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label148.ForeColor = System.Drawing.Color.Black +Me.Label148.Location = New System.Drawing.Point(7, 6) +Me.Label148.Name = "Label148" +Me.Label148.Size = New System.Drawing.Size(692, 21) +Me.Label148.TabIndex = 48 +Me.Label148.Text = "Miscellaneous Settings" +Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label155 +'TabPage28 ' -Me.Label155.BackColor = System.Drawing.Color.Transparent -Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label155.ForeColor = System.Drawing.Color.Black -Me.Label155.Location = New System.Drawing.Point(12, 42) -Me.Label155.Name = "Label155" -Me.Label155.Size = New System.Drawing.Size(151, 17) -Me.Label155.TabIndex = 186 -Me.Label155.Text = "Stroking Time:" -Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage28.BackColor = System.Drawing.Color.Silver +Me.TabPage28.Controls.Add(Me.TabControl3) +Me.TabPage28.Location = New System.Drawing.Point(4, 22) +Me.TabPage28.Name = "TabPage28" +Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage28.Size = New System.Drawing.Size(720, 448) +Me.TabPage28.TabIndex = 20 +Me.TabPage28.Text = "Debug" ' -'NBTaskStrokesMax +'TabControl3 ' -Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) -Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" -Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMax.TabIndex = 184 -Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax +Me.TabControl3.Controls.Add(Me.TabPage29) +Me.TabControl3.Controls.Add(Me.TabPage30) +Me.TabControl3.Location = New System.Drawing.Point(6, 6) +Me.TabControl3.Name = "TabControl3" +Me.TabControl3.SelectedIndex = 0 +Me.TabControl3.Size = New System.Drawing.Size(708, 437) +Me.TabControl3.TabIndex = 0 ' -'NBTaskStrokesMin +'TabPage29 ' -Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) -Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" -Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMin.TabIndex = 183 -Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin +Me.TabPage29.BackColor = System.Drawing.Color.LightGray +Me.TabPage29.Controls.Add(Me.Label143) +Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) +Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) +Me.TabPage29.Controls.Add(Me.GroupBox26) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) +Me.TabPage29.Controls.Add(Me.Label145) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) +Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) +Me.TabPage29.Controls.Add(Me.Label142) +Me.TabPage29.Controls.Add(Me.Label150) +Me.TabPage29.Controls.Add(Me.Label152) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) +Me.TabPage29.Controls.Add(Me.Label147) +Me.TabPage29.Location = New System.Drawing.Point(4, 22) +Me.TabPage29.Name = "TabPage29" +Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage29.Size = New System.Drawing.Size(700, 411) +Me.TabPage29.TabIndex = 0 +Me.TabPage29.Text = "TabPage29" ' -'Label146 +'Label143 ' -Me.Label146.BackColor = System.Drawing.Color.Transparent -Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label146.ForeColor = System.Drawing.Color.Black -Me.Label146.Location = New System.Drawing.Point(167, 18) -Me.Label146.Name = "Label146" -Me.Label146.Size = New System.Drawing.Size(10, 17) -Me.Label146.TabIndex = 182 -Me.Label146.Text = "-" -Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label143.Location = New System.Drawing.Point(402, 46) +Me.Label143.Name = "Label143" +Me.Label143.Size = New System.Drawing.Size(67, 23) +Me.Label143.TabIndex = 15 +Me.Label143.Text = "Script Timer" +Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label149 +'LBLDebugScriptTime ' -Me.Label149.BackColor = System.Drawing.Color.Transparent -Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label149.ForeColor = System.Drawing.Color.Black -Me.Label149.Location = New System.Drawing.Point(12, 19) -Me.Label149.Name = "Label149" -Me.Label149.Size = New System.Drawing.Size(151, 17) -Me.Label149.TabIndex = 181 -Me.Label149.Text = "Strokes:" -Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) +Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" +Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugScriptTime.TabIndex = 16 +Me.LBLDebugScriptTime.Text = "0" +Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox10 +'BTNDebugHoldEdgeTimer ' -Me.GroupBox10.Controls.Add(Me.Label112) -Me.GroupBox10.Controls.Add(Me.NBNextImageChance) -Me.GroupBox10.Controls.Add(Me.Label6) -Me.GroupBox10.Location = New System.Drawing.Point(408, 31) -Me.GroupBox10.Name = "GroupBox10" -Me.GroupBox10.Size = New System.Drawing.Size(291, 54) -Me.GroupBox10.TabIndex = 170 -Me.GroupBox10.TabStop = false -Me.GroupBox10.Text = "Tease Slideshow" +Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) +Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" +Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugHoldEdgeTimer.TabIndex = 14 +Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" +Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true ' -'Label112 +'GroupBox26 ' -Me.Label112.BackColor = System.Drawing.Color.Transparent -Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label112.ForeColor = System.Drawing.Color.Black -Me.Label112.Location = New System.Drawing.Point(233, 21) -Me.Label112.Name = "Label112" -Me.Label112.Size = New System.Drawing.Size(50, 17) -Me.Label112.TabIndex = 180 -Me.Label112.Text = "percent" -Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) +Me.GroupBox26.Controls.Add(Me.Button19) +Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) +Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) +Me.GroupBox26.Location = New System.Drawing.Point(6, 5) +Me.GroupBox26.Name = "GroupBox26" +Me.GroupBox26.Size = New System.Drawing.Size(346, 178) +Me.GroupBox26.TabIndex = 0 +Me.GroupBox26.TabStop = false +Me.GroupBox26.Text = "Taunt Cycle" ' -'NBNextImageChance +'LBLCycleDebugCountdown ' -Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) -Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBNextImageChance.Name = "NBNextImageChance" -Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) -Me.NBNextImageChance.TabIndex = 179 -Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) +Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" +Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) +Me.LBLCycleDebugCountdown.TabIndex = 10 +Me.LBLCycleDebugCountdown.Text = "0" +Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label6 +'Button19 ' -Me.Label6.BackColor = System.Drawing.Color.Transparent -Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label6.ForeColor = System.Drawing.Color.Black -Me.Label6.Location = New System.Drawing.Point(9, 21) -Me.Label6.Name = "Label6" -Me.Label6.Size = New System.Drawing.Size(151, 17) -Me.Label6.TabIndex = 154 -Me.Label6.Text = "Image Next/Previous Chance:" -Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button19.Location = New System.Drawing.Point(191, 142) +Me.Button19.Name = "Button19" +Me.Button19.Size = New System.Drawing.Size(146, 30) +Me.Button19.TabIndex = 9 +Me.Button19.Text = "Countdown to 5 Seconds" +Me.Button19.UseVisualStyleBackColor = true ' -'GroupBox57 +'BTNDebugTauntsClear ' -Me.GroupBox57.Controls.Add(Me.Label139) -Me.GroupBox57.Controls.Add(Me.NBTauntEdging) -Me.GroupBox57.Controls.Add(Me.LBLVtf) -Me.GroupBox57.Controls.Add(Me.LBLStf) -Me.GroupBox57.Controls.Add(Me.SliderSTF) -Me.GroupBox57.Controls.Add(Me.TauntSlider) -Me.GroupBox57.Controls.Add(Me.Label106) -Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) -Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) -Me.GroupBox57.Controls.Add(Me.Label103) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) -Me.GroupBox57.Controls.Add(Me.Label105) -Me.GroupBox57.Controls.Add(Me.Label101) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) -Me.GroupBox57.Controls.Add(Me.Label102) -Me.GroupBox57.Controls.Add(Me.Label97) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) -Me.GroupBox57.Controls.Add(Me.Label99) -Me.GroupBox57.Controls.Add(Me.Label96) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) -Me.GroupBox57.Controls.Add(Me.Label95) -Me.GroupBox57.Controls.Add(Me.Label49) -Me.GroupBox57.Controls.Add(Me.Label141) -Me.GroupBox57.Location = New System.Drawing.Point(7, 30) -Me.GroupBox57.Name = "GroupBox57" -Me.GroupBox57.Size = New System.Drawing.Size(223, 308) -Me.GroupBox57.TabIndex = 169 -Me.GroupBox57.TabStop = false -Me.GroupBox57.Text = "Tease" +Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) +Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" +Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) +Me.BTNDebugTauntsClear.TabIndex = 8 +Me.BTNDebugTauntsClear.Text = "Clear" +Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true ' -'Label139 +'TBDebugTaunts3 ' -Me.Label139.BackColor = System.Drawing.Color.Transparent -Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label139.ForeColor = System.Drawing.Color.Black -Me.Label139.Location = New System.Drawing.Point(175, 171) -Me.Label139.Name = "Label139" -Me.Label139.Size = New System.Drawing.Size(50, 17) -Me.Label139.TabIndex = 184 -Me.Label139.Text = "percent" -Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) +Me.TBDebugTaunts3.Name = "TBDebugTaunts3" +Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts3.TabIndex = 7 ' -'NBTauntEdging +'TBDebugTaunts2 ' -Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) -Me.NBTauntEdging.Name = "NBTauntEdging" -Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) -Me.NBTauntEdging.TabIndex = 188 -Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) +Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) +Me.TBDebugTaunts2.Name = "TBDebugTaunts2" +Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts2.TabIndex = 6 ' -'LBLVtf +'TBDebugTaunts1 ' -Me.LBLVtf.BackColor = System.Drawing.Color.Transparent -Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLVtf.ForeColor = System.Drawing.Color.Black -Me.LBLVtf.Location = New System.Drawing.Point(128, 261) -Me.LBLVtf.Name = "LBLVtf" -Me.LBLVtf.Size = New System.Drawing.Size(87, 17) -Me.LBLVtf.TabIndex = 187 -Me.LBLVtf.Text = "Normal" -Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) +Me.TBDebugTaunts1.Name = "TBDebugTaunts1" +Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts1.TabIndex = 5 ' -'LBLStf +'RBDebugTaunts3 ' -Me.LBLStf.BackColor = System.Drawing.Color.Transparent -Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLStf.ForeColor = System.Drawing.Color.Black -Me.LBLStf.Location = New System.Drawing.Point(130, 220) -Me.LBLStf.Name = "LBLStf" -Me.LBLStf.Size = New System.Drawing.Size(87, 17) -Me.LBLStf.TabIndex = 165 -Me.LBLStf.Text = "Normal" -Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.RBDebugTaunts3.AutoSize = true +Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) +Me.RBDebugTaunts3.Name = "RBDebugTaunts3" +Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts3.TabIndex = 4 +Me.RBDebugTaunts3.Text = "3 Lines" +Me.RBDebugTaunts3.UseVisualStyleBackColor = true ' -'SliderSTF +'RBDebugTaunts2 ' -Me.SliderSTF.AutoSize = false -Me.SliderSTF.LargeChange = 1 -Me.SliderSTF.Location = New System.Drawing.Point(130, 199) -Me.SliderSTF.Maximum = 5 -Me.SliderSTF.Minimum = 1 -Me.SliderSTF.Name = "SliderSTF" -Me.SliderSTF.Size = New System.Drawing.Size(87, 25) -Me.SliderSTF.TabIndex = 163 -Me.SliderSTF.Value = 3 +Me.RBDebugTaunts2.AutoSize = true +Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) +Me.RBDebugTaunts2.Name = "RBDebugTaunts2" +Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts2.TabIndex = 3 +Me.RBDebugTaunts2.Text = "2 Lines" +Me.RBDebugTaunts2.UseVisualStyleBackColor = true ' -'TauntSlider +'RBDebugTaunts1 ' -Me.TauntSlider.AutoSize = false -Me.TauntSlider.LargeChange = 1 -Me.TauntSlider.Location = New System.Drawing.Point(130, 240) -Me.TauntSlider.Maximum = 9 -Me.TauntSlider.Minimum = 1 -Me.TauntSlider.Name = "TauntSlider" -Me.TauntSlider.Size = New System.Drawing.Size(87, 25) -Me.TauntSlider.TabIndex = 161 -Me.TauntSlider.Value = 4 +Me.RBDebugTaunts1.AutoSize = true +Me.RBDebugTaunts1.Checked = true +Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) +Me.RBDebugTaunts1.Name = "RBDebugTaunts1" +Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) +Me.RBDebugTaunts1.TabIndex = 2 +Me.RBDebugTaunts1.TabStop = true +Me.RBDebugTaunts1.Text = "1 Line" +Me.RBDebugTaunts1.UseVisualStyleBackColor = true ' -'Label106 +'CBDebugTauntsEndless ' -Me.Label106.BackColor = System.Drawing.Color.Transparent -Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label106.ForeColor = System.Drawing.Color.Black -Me.Label106.Location = New System.Drawing.Point(6, 243) -Me.Label106.Name = "Label106" -Me.Label106.Size = New System.Drawing.Size(123, 17) -Me.Label106.TabIndex = 186 -Me.Label106.Text = "Video Taunt Frequency:" -Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBDebugTauntsEndless.AutoSize = true +Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) +Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" +Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) +Me.CBDebugTauntsEndless.TabIndex = 1 +Me.CBDebugTauntsEndless.Text = "Endless Cycle" +Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true ' -'CBTauntCycleDD +'CBDebugTaunts ' -Me.CBTauntCycleDD.AutoSize = true -Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black -Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) -Me.CBTauntCycleDD.Name = "CBTauntCycleDD" -Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) -Me.CBTauntCycleDD.TabIndex = 185 -Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" -Me.CBTauntCycleDD.UseVisualStyleBackColor = true +Me.CBDebugTaunts.AutoSize = true +Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) +Me.CBDebugTaunts.Name = "CBDebugTaunts" +Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) +Me.CBDebugTaunts.TabIndex = 0 +Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" +Me.CBDebugTaunts.UseVisualStyleBackColor = true ' -'CBTeaseLengthDD +'BTNDebugStrokeTauntTimer ' -Me.CBTeaseLengthDD.AutoSize = true -Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black -Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) -Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" -Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) -Me.CBTeaseLengthDD.TabIndex = 184 -Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" -Me.CBTeaseLengthDD.UseVisualStyleBackColor = true +Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) +Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" +Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTauntTimer.TabIndex = 8 +Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" +Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true ' -'Label103 +'LBLDebugHoldEdgeTime ' -Me.Label103.BackColor = System.Drawing.Color.Transparent -Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label103.ForeColor = System.Drawing.Color.Black -Me.Label103.Location = New System.Drawing.Point(175, 117) -Me.Label103.Name = "Label103" -Me.Label103.Size = New System.Drawing.Size(50, 17) -Me.Label103.TabIndex = 183 -Me.Label103.Text = "minutes" -Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) +Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" +Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugHoldEdgeTime.TabIndex = 13 +Me.LBLDebugHoldEdgeTime.Text = "0" +Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTauntCycleMax +'Label145 ' -Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) -Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) -Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBTauntCycleMax.Name = "NBTauntCycleMax" -Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMax.TabIndex = 182 -Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) +Me.Label145.Location = New System.Drawing.Point(402, 11) +Me.Label145.Name = "Label145" +Me.Label145.Size = New System.Drawing.Size(67, 23) +Me.Label145.TabIndex = 3 +Me.Label145.Text = "Tease Timer" +Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label105 +'BTNDebugStrokeTime ' -Me.Label105.BackColor = System.Drawing.Color.Transparent -Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label105.ForeColor = System.Drawing.Color.Black -Me.Label105.Location = New System.Drawing.Point(6, 117) -Me.Label105.Name = "Label105" -Me.Label105.Size = New System.Drawing.Size(123, 17) -Me.Label105.TabIndex = 181 -Me.Label105.Text = "Taunt Cycle Maximum:" -Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) +Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" +Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTime.TabIndex = 2 +Me.BTNDebugStrokeTime.Text = "Set to 5" +Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true ' -'Label101 +'BTNDebugEdgeTauntTimer ' -Me.Label101.BackColor = System.Drawing.Color.Transparent -Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label101.ForeColor = System.Drawing.Color.Black -Me.Label101.Location = New System.Drawing.Point(175, 93) -Me.Label101.Name = "Label101" -Me.Label101.Size = New System.Drawing.Size(50, 17) -Me.Label101.TabIndex = 180 -Me.Label101.Text = "minutes" -Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) +Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" +Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugEdgeTauntTimer.TabIndex = 11 +Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" +Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true ' -'NBTauntCycleMin +'LBLDebugTeaseTime ' -Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) -Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTauntCycleMin.Name = "NBTauntCycleMin" -Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMin.TabIndex = 179 -Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) +Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) +Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" +Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugTeaseTime.TabIndex = 4 +Me.LBLDebugTeaseTime.Text = "0" +Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label102 +'LBLDebugStrokeTime ' -Me.Label102.BackColor = System.Drawing.Color.Transparent -Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label102.ForeColor = System.Drawing.Color.Black -Me.Label102.Location = New System.Drawing.Point(6, 93) -Me.Label102.Name = "Label102" -Me.Label102.Size = New System.Drawing.Size(123, 17) -Me.Label102.TabIndex = 178 -Me.Label102.Text = "Taunt Cycle Minimum:" -Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) +Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" +Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTime.TabIndex = 1 +Me.LBLDebugStrokeTime.Text = "0" +Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label97 +'LBLDebugEdgeTauntTime ' -Me.Label97.BackColor = System.Drawing.Color.Transparent -Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label97.ForeColor = System.Drawing.Color.Black -Me.Label97.Location = New System.Drawing.Point(175, 46) -Me.Label97.Name = "Label97" -Me.Label97.Size = New System.Drawing.Size(50, 17) -Me.Label97.TabIndex = 177 -Me.Label97.Text = "minutes" -Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) +Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" +Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugEdgeTauntTime.TabIndex = 10 +Me.LBLDebugEdgeTauntTime.Text = "0" +Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTeaseLengthMax +'BTNDebugTeaseTimer ' -Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) -Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {1440, 0, 0, 0}) -Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" -Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMax.TabIndex = 176 -Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) +Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" +Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugTeaseTimer.TabIndex = 5 +Me.BTNDebugTeaseTimer.Text = "Set to 5" +Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true ' -'Label99 +'Label142 ' -Me.Label99.BackColor = System.Drawing.Color.Transparent -Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label99.ForeColor = System.Drawing.Color.Black -Me.Label99.Location = New System.Drawing.Point(6, 46) -Me.Label99.Name = "Label99" -Me.Label99.Size = New System.Drawing.Size(123, 17) -Me.Label99.TabIndex = 175 -Me.Label99.Text = "Tease Length Maximum:" -Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label142.Location = New System.Drawing.Point(402, 121) +Me.Label142.Name = "Label142" +Me.Label142.Size = New System.Drawing.Size(67, 23) +Me.Label142.TabIndex = 0 +Me.Label142.Text = "Stroke Timer" +Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label96 +'Label150 ' -Me.Label96.BackColor = System.Drawing.Color.Transparent -Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label96.ForeColor = System.Drawing.Color.Black -Me.Label96.Location = New System.Drawing.Point(175, 20) -Me.Label96.Name = "Label96" -Me.Label96.Size = New System.Drawing.Size(50, 17) -Me.Label96.TabIndex = 174 -Me.Label96.Text = "minutes" -Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label150.Location = New System.Drawing.Point(402, 206) +Me.Label150.Name = "Label150" +Me.Label150.Size = New System.Drawing.Size(67, 27) +Me.Label150.TabIndex = 9 +Me.Label150.Text = "Edge Taunt Timer" +Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTeaseLengthMin +'Label152 ' -Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) -Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) -Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" -Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMin.TabIndex = 169 -Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) +Me.Label152.Location = New System.Drawing.Point(402, 238) +Me.Label152.Name = "Label152" +Me.Label152.Size = New System.Drawing.Size(67, 40) +Me.Label152.TabIndex = 12 +Me.Label152.Text = "Hold Edge Timer" +Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label95 +'LBLDebugStrokeTauntTime ' -Me.Label95.BackColor = System.Drawing.Color.Transparent -Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label95.ForeColor = System.Drawing.Color.Black -Me.Label95.Location = New System.Drawing.Point(6, 20) -Me.Label95.Name = "Label95" -Me.Label95.Size = New System.Drawing.Size(123, 17) -Me.Label95.TabIndex = 166 -Me.Label95.Text = "Tease Length Minimum:" -Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) +Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" +Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTauntTime.TabIndex = 7 +Me.LBLDebugStrokeTauntTime.Text = "0" +Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label49 +'Label147 ' -Me.Label49.BackColor = System.Drawing.Color.Transparent -Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label49.ForeColor = System.Drawing.Color.Black -Me.Label49.Location = New System.Drawing.Point(6, 207) -Me.Label49.Name = "Label49" -Me.Label49.Size = New System.Drawing.Size(132, 17) -Me.Label49.TabIndex = 164 -Me.Label49.Text = "Stroke Taunt Frequency:" -Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label147.Location = New System.Drawing.Point(402, 143) +Me.Label147.Name = "Label147" +Me.Label147.Size = New System.Drawing.Size(67, 29) +Me.Label147.TabIndex = 6 +Me.Label147.Text = "Stroke Taunt Timer" +Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label141 +'TabPage30 ' -Me.Label141.BackColor = System.Drawing.Color.Transparent -Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label141.ForeColor = System.Drawing.Color.Black -Me.Label141.Location = New System.Drawing.Point(6, 163) -Me.Label141.Name = "Label141" -Me.Label141.Size = New System.Drawing.Size(141, 32) -Me.Label141.TabIndex = 189 -Me.Label141.Text = "Edging Ends Taunts:" -Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage30.BackColor = System.Drawing.Color.LightGray +Me.TabPage30.Controls.Add(Me.Button33) +Me.TabPage30.Controls.Add(Me.Button24) +Me.TabPage30.Location = New System.Drawing.Point(4, 22) +Me.TabPage30.Name = "TabPage30" +Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage30.Size = New System.Drawing.Size(700, 411) +Me.TabPage30.TabIndex = 1 +Me.TabPage30.Text = "TabPage30" ' -'GBRangeRuinChance +'Button33 ' -Me.GBRangeRuinChance.Controls.Add(Me.Label90) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) -Me.GBRangeRuinChance.Controls.Add(Me.Label91) -Me.GBRangeRuinChance.Controls.Add(Me.Label92) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) -Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) -Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) -Me.GBRangeRuinChance.Name = "GBRangeRuinChance" -Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeRuinChance.TabIndex = 168 -Me.GBRangeRuinChance.TabStop = false -Me.GBRangeRuinChance.Text = "Ruin Chance" +Me.Button33.Location = New System.Drawing.Point(6, 35) +Me.Button33.Name = "Button33" +Me.Button33.Size = New System.Drawing.Size(75, 23) +Me.Button33.TabIndex = 1 +Me.Button33.Text = "LoadState" +Me.Button33.UseVisualStyleBackColor = true ' -'Label90 +'Button24 ' -Me.Label90.BackColor = System.Drawing.Color.Transparent -Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label90.ForeColor = System.Drawing.Color.Black -Me.Label90.Location = New System.Drawing.Point(6, 94) -Me.Label90.Name = "Label90" -Me.Label90.Size = New System.Drawing.Size(83, 17) -Me.Label90.TabIndex = 173 -Me.Label90.Text = "Rarely Ruins:" -Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button24.Location = New System.Drawing.Point(6, 6) +Me.Button24.Name = "Button24" +Me.Button24.Size = New System.Drawing.Size(75, 23) +Me.Button24.TabIndex = 0 +Me.Button24.Text = "SaveState" +Me.Button24.UseVisualStyleBackColor = true ' -'NBRuinSometimes +'TabPage5 ' -Me.NBRuinSometimes.Enabled = false -Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinSometimes.Name = "NBRuinSometimes" -Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBRuinSometimes.TabIndex = 169 -Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.TabPage5.BackColor = System.Drawing.Color.Silver +Me.TabPage5.Controls.Add(Me.Panel5) +Me.TabPage5.Location = New System.Drawing.Point(4, 22) +Me.TabPage5.Name = "TabPage5" +Me.TabPage5.Size = New System.Drawing.Size(720, 448) +Me.TabPage5.TabIndex = 17 +Me.TabPage5.Text = "About" ' -'Label91 +'Panel5 ' -Me.Label91.BackColor = System.Drawing.Color.Transparent -Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label91.ForeColor = System.Drawing.Color.Black -Me.Label91.Location = New System.Drawing.Point(6, 68) -Me.Label91.Name = "Label91" -Me.Label91.Size = New System.Drawing.Size(102, 17) -Me.Label91.TabIndex = 172 -Me.Label91.Text = "Sometimes Ruins:" -Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Panel5.BackColor = System.Drawing.Color.LightGray +Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel5.Controls.Add(Me.Label130) +Me.Panel5.Controls.Add(Me.Label123) +Me.Panel5.Controls.Add(Me.Label69) +Me.Panel5.Controls.Add(Me.Label113) +Me.Panel5.Controls.Add(Me.Label40) +Me.Panel5.Controls.Add(Me.Label35) +Me.Panel5.Controls.Add(Me.Label33) +Me.Panel5.Controls.Add(Me.Label17) +Me.Panel5.Controls.Add(Me.Label3) +Me.Panel5.Controls.Add(Me.PictureBox3) +Me.Panel5.Controls.Add(Me.Label41) +Me.Panel5.Location = New System.Drawing.Point(6, 6) +Me.Panel5.Name = "Panel5" +Me.Panel5.Size = New System.Drawing.Size(708, 437) +Me.Panel5.TabIndex = 92 ' -'Label92 +'Label130 ' -Me.Label92.BackColor = System.Drawing.Color.Transparent -Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label92.ForeColor = System.Drawing.Color.Black -Me.Label92.Location = New System.Drawing.Point(6, 42) -Me.Label92.Name = "Label92" -Me.Label92.Size = New System.Drawing.Size(72, 17) -Me.Label92.TabIndex = 171 -Me.Label92.Text = "Often Ruins:" -Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label130.Location = New System.Drawing.Point(361, 314) +Me.Label130.Name = "Label130" +Me.Label130.Size = New System.Drawing.Size(254, 54) +Me.Label130.TabIndex = 176 +Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'NBRuinRarely +'Label123 ' -Me.NBRuinRarely.Enabled = false -Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) -Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinRarely.Name = "NBRuinRarely" -Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) -Me.NBRuinRarely.TabIndex = 170 -Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label123.Location = New System.Drawing.Point(81, 314) +Me.Label123.Name = "Label123" +Me.Label123.Size = New System.Drawing.Size(254, 54) +Me.Label123.TabIndex = 175 +Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" +Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'NBRuinOften +'Label69 ' -Me.NBRuinOften.Enabled = false -Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) -Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinOften.Name = "NBRuinOften" -Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) -Me.NBRuinOften.TabIndex = 168 -Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label69.Location = New System.Drawing.Point(35, 295) +Me.Label69.Name = "Label69" +Me.Label69.Size = New System.Drawing.Size(638, 22) +Me.Label69.TabIndex = 174 +Me.Label69.Text = "Triple Alfa" +Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'CBRangeRuin +'Label113 ' -Me.CBRangeRuin.AutoSize = true -Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black -Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) -Me.CBRangeRuin.Name = "CBRangeRuin" -Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) -Me.CBRangeRuin.TabIndex = 159 -Me.CBRangeRuin.Text = "Domme Decide" -Me.CBRangeRuin.UseVisualStyleBackColor = true +Me.Label113.AutoSize = true +Me.Label113.Location = New System.Drawing.Point(4, 417) +Me.Label113.Name = "Label113" +Me.Label113.Size = New System.Drawing.Size(452, 13) +Me.Label113.TabIndex = 173 +Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ + "pective owners." ' -'GroupBox17 +'Label40 ' -Me.GroupBox17.Controls.Add(Me.GroupBox19) -Me.GroupBox17.Controls.Add(Me.GroupBox18) -Me.GroupBox17.Location = New System.Drawing.Point(408, 91) -Me.GroupBox17.Name = "GroupBox17" -Me.GroupBox17.Size = New System.Drawing.Size(291, 190) -Me.GroupBox17.TabIndex = 0 -Me.GroupBox17.TabStop = false -Me.GroupBox17.Text = "Video Teases" +Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label40.Location = New System.Drawing.Point(35, 273) +Me.Label40.Name = "Label40" +Me.Label40.Size = New System.Drawing.Size(638, 24) +Me.Label40.TabIndex = 171 +Me.Label40.Text = "Special Thanks" +Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GroupBox19 +'Label35 ' -Me.GroupBox19.Controls.Add(Me.Label110) -Me.GroupBox19.Controls.Add(Me.Label111) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) -Me.GroupBox19.Controls.Add(Me.NBRedLightMax) -Me.GroupBox19.Controls.Add(Me.Label26) -Me.GroupBox19.Controls.Add(Me.NBRedLightMin) -Me.GroupBox19.Controls.Add(Me.Label28) -Me.GroupBox19.Controls.Add(Me.Label27) -Me.GroupBox19.Controls.Add(Me.Label29) -Me.GroupBox19.Location = New System.Drawing.Point(6, 110) -Me.GroupBox19.Name = "GroupBox19" -Me.GroupBox19.Size = New System.Drawing.Size(279, 66) -Me.GroupBox19.TabIndex = 2 -Me.GroupBox19.TabStop = false -Me.GroupBox19.Text = "Red Light, Green Light" +Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label35.Location = New System.Drawing.Point(32, 107) +Me.Label35.Name = "Label35" +Me.Label35.Size = New System.Drawing.Size(641, 77) +Me.Label35.TabIndex = 170 +Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ + "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ + "dditional files separately." +Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'Label110 +'Label33 ' -Me.Label110.BackColor = System.Drawing.Color.Transparent -Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label110.ForeColor = System.Drawing.Color.Black -Me.Label110.Location = New System.Drawing.Point(227, 39) -Me.Label110.Name = "Label110" -Me.Label110.Size = New System.Drawing.Size(50, 17) -Me.Label110.TabIndex = 181 -Me.Label110.Text = "seconds" -Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label33.Location = New System.Drawing.Point(32, 191) +Me.Label33.Name = "Label33" +Me.Label33.Size = New System.Drawing.Size(641, 77) +Me.Label33.TabIndex = 169 +Me.Label33.Text = resources.GetString("Label33.Text") +Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'Label111 +'Label17 ' -Me.Label111.BackColor = System.Drawing.Color.Transparent -Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label111.ForeColor = System.Drawing.Color.Black -Me.Label111.Location = New System.Drawing.Point(227, 16) -Me.Label111.Name = "Label111" -Me.Label111.Size = New System.Drawing.Size(50, 17) -Me.Label111.TabIndex = 180 -Me.Label111.Text = "seconds" -Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label17.AutoSize = true +Me.Label17.Location = New System.Drawing.Point(522, 78) +Me.Label17.Name = "Label17" +Me.Label17.Size = New System.Drawing.Size(93, 13) +Me.Label17.TabIndex = 168 +Me.Label17.Text = "Designed by 1885" ' -'NBGreenLightMax +'Label3 ' -Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) -Me.NBGreenLightMax.Name = "NBGreenLightMax" -Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMax.TabIndex = 156 -Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.Label3.AutoSize = true +Me.Label3.Location = New System.Drawing.Point(489, 417) +Me.Label3.Name = "Label3" +Me.Label3.Size = New System.Drawing.Size(215, 13) +Me.Label3.TabIndex = 167 +Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" ' -'NBGreenLightMin +'PictureBox3 ' -Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) -Me.NBGreenLightMin.Name = "NBGreenLightMin" -Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMin.TabIndex = 155 -Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +Me.PictureBox3.BackColor = System.Drawing.Color.LightGray +Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big +Me.PictureBox3.Location = New System.Drawing.Point(84, 17) +Me.PictureBox3.Name = "PictureBox3" +Me.PictureBox3.Size = New System.Drawing.Size(531, 58) +Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PictureBox3.TabIndex = 166 +Me.PictureBox3.TabStop = false ' -'NBRedLightMax +'Label41 ' -Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) -Me.NBRedLightMax.Name = "NBRedLightMax" -Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMax.TabIndex = 152 -Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) +Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label41.Location = New System.Drawing.Point(35, 372) +Me.Label41.Name = "Label41" +Me.Label41.Size = New System.Drawing.Size(638, 39) +Me.Label41.TabIndex = 172 +Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ + "nity who's been supportive of my work over the years. Tease AI exists because of"& _ + " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'Label26 +'BtnRandomImageDirClear ' -Me.Label26.BackColor = System.Drawing.Color.Transparent -Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label26.ForeColor = System.Drawing.Color.Black -Me.Label26.Location = New System.Drawing.Point(161, 38) -Me.Label26.Name = "Label26" -Me.Label26.Size = New System.Drawing.Size(10, 17) -Me.Label26.TabIndex = 154 -Me.Label26.Text = "-" -Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) +Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" +Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnRandomImageDirClear.TabIndex = 181 +Me.BtnRandomImageDirClear.Text = "Clear" +Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false ' -'NBRedLightMin +'GroupBox47 ' -Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) -Me.NBRedLightMin.Name = "NBRedLightMin" -Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMin.TabIndex = 151 -Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) +Me.GroupBox47.BackColor = System.Drawing.Color.LightGray +Me.GroupBox47.Controls.Add(Me.GroupBox41) +Me.GroupBox47.Controls.Add(Me.GroupBox40) +Me.GroupBox47.ForeColor = System.Drawing.Color.Black +Me.GroupBox47.Location = New System.Drawing.Point(806, 255) +Me.GroupBox47.Name = "GroupBox47" +Me.GroupBox47.Size = New System.Drawing.Size(310, 190) +Me.GroupBox47.TabIndex = 63 +Me.GroupBox47.TabStop = false +Me.GroupBox47.Text = "Boobs and Butts Paths" ' -'Label28 +'GroupBox41 ' -Me.Label28.BackColor = System.Drawing.Color.Transparent -Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label28.ForeColor = System.Drawing.Color.Black -Me.Label28.Location = New System.Drawing.Point(161, 15) -Me.Label28.Name = "Label28" -Me.Label28.Size = New System.Drawing.Size(10, 17) -Me.Label28.TabIndex = 150 -Me.Label28.Text = "-" -Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox41.Controls.Add(Me.Button34) +Me.GroupBox41.Location = New System.Drawing.Point(6, 110) +Me.GroupBox41.Name = "GroupBox41" +Me.GroupBox41.Size = New System.Drawing.Size(298, 74) +Me.GroupBox41.TabIndex = 153 +Me.GroupBox41.TabStop = false +Me.GroupBox41.Text = "Butts" ' -'Label27 +'Button34 ' -Me.Label27.BackColor = System.Drawing.Color.Transparent -Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label27.ForeColor = System.Drawing.Color.Black -Me.Label27.Location = New System.Drawing.Point(6, 39) -Me.Label27.Name = "Label27" -Me.Label27.Size = New System.Drawing.Size(151, 17) -Me.Label27.TabIndex = 153 -Me.Label27.Text = "Green Light Time:" -Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button34.BackColor = System.Drawing.Color.LightGray +Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.Button34.ForeColor = System.Drawing.Color.Black +Me.Button34.Location = New System.Drawing.Point(85, 25) +Me.Button34.Name = "Button34" +Me.Button34.Size = New System.Drawing.Size(34, 28) +Me.Button34.TabIndex = 131 +Me.Button34.Text = "1" +Me.Button34.UseVisualStyleBackColor = false ' -'Label29 +'GroupBox40 ' -Me.Label29.BackColor = System.Drawing.Color.Transparent -Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label29.ForeColor = System.Drawing.Color.Black -Me.Label29.Location = New System.Drawing.Point(6, 16) -Me.Label29.Name = "Label29" -Me.Label29.Size = New System.Drawing.Size(151, 17) -Me.Label29.TabIndex = 149 -Me.Label29.Text = "Red Light Time:" -Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox40.Location = New System.Drawing.Point(5, 35) +Me.GroupBox40.Name = "GroupBox40" +Me.GroupBox40.Size = New System.Drawing.Size(298, 74) +Me.GroupBox40.TabIndex = 152 +Me.GroupBox40.TabStop = false +Me.GroupBox40.Text = "Boobs" ' -'GroupBox18 +'GroupBox44 ' -Me.GroupBox18.Controls.Add(Me.Label108) -Me.GroupBox18.Controls.Add(Me.Label109) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) -Me.GroupBox18.Controls.Add(Me.CBCensorConstant) -Me.GroupBox18.Controls.Add(Me.Label25) -Me.GroupBox18.Controls.Add(Me.Label20) -Me.GroupBox18.Controls.Add(Me.Label19) -Me.GroupBox18.Controls.Add(Me.Label24) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) -Me.GroupBox18.Location = New System.Drawing.Point(6, 16) -Me.GroupBox18.Name = "GroupBox18" -Me.GroupBox18.Size = New System.Drawing.Size(279, 88) -Me.GroupBox18.TabIndex = 1 -Me.GroupBox18.TabStop = false -Me.GroupBox18.Text = "Censorship Sucks" +Me.GroupBox44.BackColor = System.Drawing.Color.LightGray +Me.GroupBox44.Controls.Add(Me.Label100) +Me.GroupBox44.ForeColor = System.Drawing.Color.Black +Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) +Me.GroupBox44.Name = "GroupBox44" +Me.GroupBox44.Size = New System.Drawing.Size(310, 92) +Me.GroupBox44.TabIndex = 65 +Me.GroupBox44.TabStop = false +Me.GroupBox44.Text = "Description" ' -'Label108 +'Label100 ' -Me.Label108.BackColor = System.Drawing.Color.Transparent -Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label108.ForeColor = System.Drawing.Color.Black -Me.Label108.Location = New System.Drawing.Point(227, 39) -Me.Label108.Name = "Label108" -Me.Label108.Size = New System.Drawing.Size(50, 17) -Me.Label108.TabIndex = 179 -Me.Label108.Text = "seconds" -Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label100.BackColor = System.Drawing.Color.Transparent +Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label100.ForeColor = System.Drawing.Color.Black +Me.Label100.Location = New System.Drawing.Point(11, 16) +Me.Label100.Name = "Label100" +Me.Label100.Size = New System.Drawing.Size(286, 73) +Me.Label100.TabIndex = 62 +Me.Label100.Text = resources.GetString("Label100.Text") +Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label109 +'GroupBox6 ' -Me.Label109.BackColor = System.Drawing.Color.Transparent -Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label109.ForeColor = System.Drawing.Color.Black -Me.Label109.Location = New System.Drawing.Point(227, 16) -Me.Label109.Name = "Label109" -Me.Label109.Size = New System.Drawing.Size(50, 17) -Me.Label109.TabIndex = 178 -Me.Label109.Text = "seconds" -Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox6.Controls.Add(Me.Label4) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) +Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) +Me.GroupBox6.Controls.Add(Me.Label94) +Me.GroupBox6.Controls.Add(Me.LBLLastRuined) +Me.GroupBox6.Controls.Add(Me.Label65) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) +Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) +Me.GroupBox6.Controls.Add(Me.Label14) +Me.GroupBox6.Controls.Add(Me.Label13) +Me.GroupBox6.Controls.Add(Me.Label1) +Me.GroupBox6.Location = New System.Drawing.Point(27, 114) +Me.GroupBox6.Name = "GroupBox6" +Me.GroupBox6.Size = New System.Drawing.Size(283, 102) +Me.GroupBox6.TabIndex = 156 +Me.GroupBox6.TabStop = false +Me.GroupBox6.Text = "Performance" ' -'NBCensorShowMin +'Label4 ' -Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) -Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMin.Name = "NBCensorShowMin" -Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMin.TabIndex = 151 -Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin +Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label4.Location = New System.Drawing.Point(26, 16) +Me.Label4.Name = "Label4" +Me.Label4.Size = New System.Drawing.Size(77, 17) +Me.Label4.TabIndex = 147 +Me.Label4.Text = "Stroking Time" +Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBCensorHideMax +'LBLAvgEdgeStroking ' -Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) -Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMax.Name = "NBCensorHideMax" -Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMax.TabIndex = 156 -Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax +Me.LBLAvgEdgeStroking.AutoSize = true +Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) +Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" +Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeStroking.TabIndex = 144 +Me.LBLAvgEdgeStroking.Text = "00:00" +Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBCensorHideMin +'LBLStrokeTimeTotal ' -Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) -Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMin.Name = "NBCensorHideMin" -Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMin.TabIndex = 155 -Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin +Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) +Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" +Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) +Me.LBLStrokeTimeTotal.TabIndex = 148 +Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" +Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBCensorConstant +'Label94 ' -Me.CBCensorConstant.AutoSize = true -Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant -Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black -Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) -Me.CBCensorConstant.Name = "CBCensorConstant" -Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) -Me.CBCensorConstant.TabIndex = 157 -Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" -Me.CBCensorConstant.UseVisualStyleBackColor = true +Me.Label94.BackColor = System.Drawing.Color.Transparent +Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label94.ForeColor = System.Drawing.Color.Black +Me.Label94.Location = New System.Drawing.Point(189, 16) +Me.Label94.Name = "Label94" +Me.Label94.Size = New System.Drawing.Size(65, 17) +Me.Label94.TabIndex = 150 +Me.Label94.Text = "Last Ruined" +Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label25 +'LBLLastRuined ' -Me.Label25.BackColor = System.Drawing.Color.Transparent -Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label25.ForeColor = System.Drawing.Color.Black -Me.Label25.Location = New System.Drawing.Point(161, 15) -Me.Label25.Name = "Label25" -Me.Label25.Size = New System.Drawing.Size(10, 17) -Me.Label25.TabIndex = 150 -Me.Label25.Text = "-" -Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) +Me.LBLLastRuined.Name = "LBLLastRuined" +Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) +Me.LBLLastRuined.TabIndex = 152 +Me.LBLLastRuined.Text = "04/28/2015" +Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label20 +'Label65 ' -Me.Label20.BackColor = System.Drawing.Color.Transparent -Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label20.ForeColor = System.Drawing.Color.Black -Me.Label20.Location = New System.Drawing.Point(6, 39) -Me.Label20.Name = "Label20" -Me.Label20.Size = New System.Drawing.Size(110, 17) -Me.Label20.TabIndex = 153 -Me.Label20.Text = "Censor Bar Hidden:" -Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label65.BackColor = System.Drawing.Color.Transparent +Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label65.ForeColor = System.Drawing.Color.Black +Me.Label65.Location = New System.Drawing.Point(103, 16) +Me.Label65.Name = "Label65" +Me.Label65.Size = New System.Drawing.Size(85, 17) +Me.Label65.TabIndex = 149 +Me.Label65.Text = "Last Orgasm" +Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label19 +'LBLAvgEdgeNoTouch ' -Me.Label19.BackColor = System.Drawing.Color.Transparent -Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label19.ForeColor = System.Drawing.Color.Black -Me.Label19.Location = New System.Drawing.Point(161, 38) -Me.Label19.Name = "Label19" -Me.Label19.Size = New System.Drawing.Size(10, 17) -Me.Label19.TabIndex = 154 -Me.Label19.Text = "-" -Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLAvgEdgeNoTouch.AutoSize = true +Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) +Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" +Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeNoTouch.TabIndex = 146 +Me.LBLAvgEdgeNoTouch.Text = "00:00" +Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label24 +'LBLLastOrgasm ' -Me.Label24.BackColor = System.Drawing.Color.Transparent -Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label24.ForeColor = System.Drawing.Color.Black -Me.Label24.Location = New System.Drawing.Point(6, 16) -Me.Label24.Name = "Label24" -Me.Label24.Size = New System.Drawing.Size(110, 17) -Me.Label24.TabIndex = 149 -Me.Label24.Text = "Censor Bar Shown:" -Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) +Me.LBLLastOrgasm.Name = "LBLLastOrgasm" +Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) +Me.LBLLastOrgasm.TabIndex = 151 +Me.LBLLastOrgasm.Text = "04/28/2015" +Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBCensorShowMax +'Label14 ' -Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) -Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMax.Name = "NBCensorShowMax" -Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMax.TabIndex = 152 -Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax +Me.Label14.BackColor = System.Drawing.Color.Transparent +Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label14.ForeColor = System.Drawing.Color.Black +Me.Label14.Location = New System.Drawing.Point(25, 48) +Me.Label14.Name = "Label14" +Me.Label14.Size = New System.Drawing.Size(238, 17) +Me.Label14.TabIndex = 138 +Me.Label14.Text = "Average Time to Edge" +Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GBRangeOrgasmChance +'Label13 ' -Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) -Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) -Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) -Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" -Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeOrgasmChance.TabIndex = 167 -Me.GBRangeOrgasmChance.TabStop = false -Me.GBRangeOrgasmChance.Text = "Orgasm Chance" +Me.Label13.AutoSize = true +Me.Label13.Location = New System.Drawing.Point(177, 68) +Me.Label13.Name = "Label13" +Me.Label13.Size = New System.Drawing.Size(32, 13) +Me.Label13.TabIndex = 145 +Me.Label13.Text = "Rest:" +Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label89 +'Label1 ' -Me.Label89.BackColor = System.Drawing.Color.Transparent -Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label89.ForeColor = System.Drawing.Color.Black -Me.Label89.Location = New System.Drawing.Point(6, 94) -Me.Label89.Name = "Label89" -Me.Label89.Size = New System.Drawing.Size(83, 17) -Me.Label89.TabIndex = 173 -Me.Label89.Text = "Rarely Allows:" -Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label1.AutoSize = true +Me.Label1.Location = New System.Drawing.Point(28, 68) +Me.Label1.Name = "Label1" +Me.Label1.Size = New System.Drawing.Size(79, 13) +Me.Label1.TabIndex = 143 +Me.Label1.Text = "While Stroking:" +Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBAllowSometimes +'GroupBox21 ' -Me.NBAllowSometimes.Enabled = false -Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowSometimes.Name = "NBAllowSometimes" -Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBAllowSometimes.TabIndex = 169 -Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.GroupBox21.BackColor = System.Drawing.Color.LightGray +Me.GroupBox21.Controls.Add(Me.Label153) +Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) +Me.GroupBox21.Controls.Add(Me.GroupBox6) +Me.GroupBox21.Controls.Add(Me.Label156) +Me.GroupBox21.ForeColor = System.Drawing.Color.Black +Me.GroupBox21.Location = New System.Drawing.Point(797, 55) +Me.GroupBox21.Name = "GroupBox21" +Me.GroupBox21.Size = New System.Drawing.Size(316, 136) +Me.GroupBox21.TabIndex = 66 +Me.GroupBox21.TabStop = false +Me.GroupBox21.Text = "Description" ' -'Label86 +'Label153 ' -Me.Label86.BackColor = System.Drawing.Color.Transparent -Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label86.ForeColor = System.Drawing.Color.Black -Me.Label86.Location = New System.Drawing.Point(6, 68) -Me.Label86.Name = "Label86" -Me.Label86.Size = New System.Drawing.Size(102, 17) -Me.Label86.TabIndex = 172 -Me.Label86.Text = "Sometimes Allows:" -Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label153.BackColor = System.Drawing.Color.Transparent +Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label153.ForeColor = System.Drawing.Color.Black +Me.Label153.Location = New System.Drawing.Point(78, 94) +Me.Label153.Name = "Label153" +Me.Label153.Size = New System.Drawing.Size(158, 17) +Me.Label153.TabIndex = 135 +Me.Label153.Text = "No path selected" +Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label82 +'LBLRangeSettingsDescription ' -Me.Label82.BackColor = System.Drawing.Color.Transparent -Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label82.ForeColor = System.Drawing.Color.Black -Me.Label82.Location = New System.Drawing.Point(6, 42) -Me.Label82.Name = "Label82" -Me.Label82.Size = New System.Drawing.Size(83, 17) -Me.Label82.TabIndex = 171 -Me.Label82.Text = "Often Allows:" -Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) +Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" +Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) +Me.LBLRangeSettingsDescription.TabIndex = 62 +Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBAllowRarely +'Label156 ' -Me.NBAllowRarely.Enabled = false -Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) -Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowRarely.Name = "NBAllowRarely" -Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) -Me.NBAllowRarely.TabIndex = 170 -Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.Label156.BackColor = System.Drawing.Color.Transparent +Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label156.ForeColor = System.Drawing.Color.Black +Me.Label156.Location = New System.Drawing.Point(133, 23) +Me.Label156.Name = "Label156" +Me.Label156.Size = New System.Drawing.Size(158, 17) +Me.Label156.TabIndex = 135 +Me.Label156.Text = "No path selected" +Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'NBAllowOften +'GroupBox12 ' -Me.NBAllowOften.Enabled = false -Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) -Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowOften.Name = "NBAllowOften" -Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) -Me.NBAllowOften.TabIndex = 168 -Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.GroupBox12.BackColor = System.Drawing.Color.LightGray +Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) +Me.GroupBox12.ForeColor = System.Drawing.Color.Black +Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) +Me.GroupBox12.Name = "GroupBox12" +Me.GroupBox12.Size = New System.Drawing.Size(171, 124) +Me.GroupBox12.TabIndex = 65 +Me.GroupBox12.TabStop = false +Me.GroupBox12.Text = "Description" ' -'CBRangeOrgasm +'LBLSubSettingsDescription ' -Me.CBRangeOrgasm.AutoSize = true -Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black -Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) -Me.CBRangeOrgasm.Name = "CBRangeOrgasm" -Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) -Me.CBRangeOrgasm.TabIndex = 159 -Me.CBRangeOrgasm.Text = "Domme Decide" -Me.CBRangeOrgasm.UseVisualStyleBackColor = true +Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) +Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" +Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) +Me.LBLSubSettingsDescription.TabIndex = 62 +Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." ' -'PictureBox8 +'OpenFileDialog1 ' -Me.PictureBox8.BackColor = System.Drawing.Color.LightGray -Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox8.Location = New System.Drawing.Point(9, 6) -Me.PictureBox8.Name = "PictureBox8" -Me.PictureBox8.Size = New System.Drawing.Size(160, 19) -Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox8.TabIndex = 166 -Me.PictureBox8.TabStop = false +Me.OpenFileDialog1.FileName = "OpenFileDialog1" +Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ + "s (*.*)|*.*" +Me.OpenFileDialog1.Title = "Select an image file" ' -'Label38 +'GetColor ' -Me.Label38.BackColor = System.Drawing.Color.Transparent -Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label38.ForeColor = System.Drawing.Color.Black -Me.Label38.Location = New System.Drawing.Point(7, 6) -Me.Label38.Name = "Label38" -Me.Label38.Size = New System.Drawing.Size(692, 21) -Me.Label38.TabIndex = 48 -Me.Label38.Text = "Range Settings" -Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GetColor.Color = System.Drawing.Color.SteelBlue ' -'TabPage13 +'WebImageFileDialog ' -Me.TabPage13.BackColor = System.Drawing.Color.Silver -Me.TabPage13.Controls.Add(Me.TabControl2) -Me.TabPage13.Location = New System.Drawing.Point(4, 22) -Me.TabPage13.Name = "TabPage13" -Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage13.Size = New System.Drawing.Size(720, 448) -Me.TabPage13.TabIndex = 13 -Me.TabPage13.Text = "Modding" +Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.WebImageFileDialog.Title = "Please select a URL File" ' -'TabControl2 +'OpenScriptDialog ' -Me.TabControl2.Controls.Add(Me.TabPage27) -Me.TabControl2.Controls.Add(Me.TabPage14) -Me.TabControl2.Controls.Add(Me.TabPage24) -Me.TabControl2.Controls.Add(Me.TabPage8) -Me.TabControl2.Controls.Add(Me.TabPage15) -Me.TabControl2.Location = New System.Drawing.Point(6, 6) -Me.TabControl2.Name = "TabControl2" -Me.TabControl2.SelectedIndex = 0 -Me.TabControl2.Size = New System.Drawing.Size(708, 437) -Me.TabControl2.TabIndex = 0 +Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenScriptDialog.Title = "Please select a script" ' -'TabPage27 +'OpenSettingsDialog ' -Me.TabPage27.BackColor = System.Drawing.Color.LightGray -Me.TabPage27.Controls.Add(Me.TBPlaylistSave) -Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) -Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) -Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) -Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) -Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) -Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) -Me.TabPage27.Controls.Add(Me.Button7) -Me.TabPage27.Controls.Add(Me.WBPlaylist) -Me.TabPage27.Controls.Add(Me.Label80) -Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) -Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) -Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) -Me.TabPage27.Controls.Add(Me.LBPlaylist) -Me.TabPage27.Location = New System.Drawing.Point(4, 22) -Me.TabPage27.Name = "TabPage27" -Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage27.Size = New System.Drawing.Size(700, 411) -Me.TabPage27.TabIndex = 5 -Me.TabPage27.Text = "Playlists" +Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenSettingsDialog.Title = "Please select a settings file to open" ' -'TBPlaylistSave +'SaveSettingsDialog ' -Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) -Me.TBPlaylistSave.Name = "TBPlaylistSave" -Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) -Me.TBPlaylistSave.TabIndex = 203 +Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" ' -'BTNPlaylistCtrlZ +'GroupBox65 ' -Me.BTNPlaylistCtrlZ.Enabled = false -Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) -Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" -Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistCtrlZ.TabIndex = 202 -Me.BTNPlaylistCtrlZ.Text = "Undo" -Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true +Me.GroupBox65.BackColor = System.Drawing.Color.LightGray +Me.GroupBox65.Controls.Add(Me.Label136) +Me.GroupBox65.Controls.Add(Me.Label134) +Me.GroupBox65.Controls.Add(Me.Label132) +Me.GroupBox65.Controls.Add(Me.TrackBar1) +Me.GroupBox65.Controls.Add(Me.ComboBox1) +Me.GroupBox65.Controls.Add(Me.CheckBox1) +Me.GroupBox65.Controls.Add(Me.Label135) +Me.GroupBox65.Controls.Add(Me.TrackBar2) +Me.GroupBox65.ForeColor = System.Drawing.Color.Black +Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) +Me.GroupBox65.Name = "GroupBox65" +Me.GroupBox65.Size = New System.Drawing.Size(259, 117) +Me.GroupBox65.TabIndex = 157 +Me.GroupBox65.TabStop = false +Me.GroupBox65.Text = "Text to Speech" ' -'RadioPlaylistRegScripts +'Label136 ' -Me.RadioPlaylistRegScripts.AutoSize = true -Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) -Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" -Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) -Me.RadioPlaylistRegScripts.TabIndex = 201 -Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" -Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true +Me.Label136.AutoSize = true +Me.Label136.Location = New System.Drawing.Point(14, 52) +Me.Label136.Name = "Label136" +Me.Label136.Size = New System.Drawing.Size(45, 13) +Me.Label136.TabIndex = 32 +Me.Label136.Text = "Volume:" +' +'Label134 +' +Me.Label134.AutoSize = true +Me.Label134.Location = New System.Drawing.Point(141, 52) +Me.Label134.Name = "Label134" +Me.Label134.Size = New System.Drawing.Size(33, 13) +Me.Label134.TabIndex = 157 +Me.Label134.Text = "Rate:" ' -'RadioPlaylistScripts +'Label132 ' -Me.RadioPlaylistScripts.AutoSize = true -Me.RadioPlaylistScripts.Checked = true -Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) -Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" -Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) -Me.RadioPlaylistScripts.TabIndex = 200 -Me.RadioPlaylistScripts.TabStop = true -Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" -Me.RadioPlaylistScripts.UseVisualStyleBackColor = true +Me.Label132.Location = New System.Drawing.Point(202, 52) +Me.Label132.Name = "Label132" +Me.Label132.Size = New System.Drawing.Size(45, 13) +Me.Label132.TabIndex = 158 +Me.Label132.Text = "100" +Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'BTNPlaylistEnd +'TrackBar1 ' -Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray -Me.BTNPlaylistEnd.Enabled = false -Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black -Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) -Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" -Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistEnd.TabIndex = 199 -Me.BTNPlaylistEnd.Text = "End" -Me.BTNPlaylistEnd.UseVisualStyleBackColor = false +Me.TrackBar1.Location = New System.Drawing.Point(133, 68) +Me.TrackBar1.Minimum = -10 +Me.TrackBar1.Name = "TrackBar1" +Me.TrackBar1.Size = New System.Drawing.Size(120, 45) +Me.TrackBar1.TabIndex = 31 ' -'BTNPlaylistClearAll +'ComboBox1 ' -Me.BTNPlaylistClearAll.Enabled = false -Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) -Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" -Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) -Me.BTNPlaylistClearAll.TabIndex = 198 -Me.BTNPlaylistClearAll.Text = "Clear All" -Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true +Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window +Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText +Me.ComboBox1.FormattingEnabled = true +Me.ComboBox1.Location = New System.Drawing.Point(71, 16) +Me.ComboBox1.Name = "ComboBox1" +Me.ComboBox1.Size = New System.Drawing.Size(178, 21) +Me.ComboBox1.TabIndex = 29 +Me.ComboBox1.TabStop = false ' -'BTNPlaylistSave +'CheckBox1 ' -Me.BTNPlaylistSave.Enabled = false -Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) -Me.BTNPlaylistSave.Name = "BTNPlaylistSave" -Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistSave.TabIndex = 197 -Me.BTNPlaylistSave.Text = "Save" -Me.BTNPlaylistSave.UseVisualStyleBackColor = true +Me.CheckBox1.AutoSize = true +Me.CheckBox1.ForeColor = System.Drawing.Color.Black +Me.CheckBox1.Location = New System.Drawing.Point(10, 18) +Me.CheckBox1.Name = "CheckBox1" +Me.CheckBox1.Size = New System.Drawing.Size(59, 17) +Me.CheckBox1.TabIndex = 28 +Me.CheckBox1.TabStop = false +Me.CheckBox1.Text = "Enable" +Me.CheckBox1.UseVisualStyleBackColor = true ' -'Button7 +'Label135 ' -Me.Button7.Location = New System.Drawing.Point(213, 21) -Me.Button7.Name = "Button7" -Me.Button7.Size = New System.Drawing.Size(78, 23) -Me.Button7.TabIndex = 196 -Me.Button7.Text = "Add Random" -Me.Button7.UseVisualStyleBackColor = true +Me.Label135.Location = New System.Drawing.Point(75, 52) +Me.Label135.Name = "Label135" +Me.Label135.Size = New System.Drawing.Size(45, 13) +Me.Label135.TabIndex = 33 +Me.Label135.Text = "100" +Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'WBPlaylist +'TrackBar2 ' -Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) -Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) -Me.WBPlaylist.Name = "WBPlaylist" -Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) -Me.WBPlaylist.TabIndex = 195 +Me.TrackBar2.Location = New System.Drawing.Point(6, 68) +Me.TrackBar2.Maximum = 100 +Me.TrackBar2.Name = "TrackBar2" +Me.TrackBar2.Size = New System.Drawing.Size(120, 45) +Me.TrackBar2.TabIndex = 30 +Me.TrackBar2.Value = 50 ' -'Label80 +'TxbImgUrlHardcore ' -Me.Label80.AutoSize = true -Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label80.Location = New System.Drawing.Point(410, 27) -Me.Label80.Name = "Label80" -Me.Label80.Size = New System.Drawing.Size(47, 13) -Me.Label80.TabIndex = 194 -Me.Label80.Text = "Playlist" +Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) +Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" +Me.TxbImgUrlHardcore.ReadOnly = true +Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) +Me.TxbImgUrlHardcore.TabIndex = 145 ' -'LBLPlaylIstLink +'TextBox2 ' -Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylIstLink.Enabled = false -Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) -Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" -Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) -Me.LBLPlaylIstLink.TabIndex = 193 -Me.LBLPlaylIstLink.Text = "Link" -Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TextBox2.BackColor = System.Drawing.Color.LightGray +Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill +Me.TextBox2.Location = New System.Drawing.Point(116, 34) +Me.TextBox2.Name = "TextBox2" +Me.TextBox2.ReadOnly = true +Me.TextBox2.Size = New System.Drawing.Size(189, 20) +Me.TextBox2.TabIndex = 145 ' -'LBLPlaylistModule +'CBMuteMedia ' -Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylistModule.Enabled = false -Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) -Me.LBLPlaylistModule.Name = "LBLPlaylistModule" -Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) -Me.LBLPlaylistModule.TabIndex = 192 -Me.LBLPlaylistModule.Text = "Module" -Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBMuteMedia.AutoSize = true +Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia +Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black +Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) +Me.CBMuteMedia.Name = "CBMuteMedia" +Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) +Me.CBMuteMedia.TabIndex = 6 +Me.CBMuteMedia.TabStop = false +Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" +Me.CBMuteMedia.UseVisualStyleBackColor = true ' -'LBLPLaylistStart +'TbxDomImageDir ' -Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green -Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White -Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) -Me.LBLPLaylistStart.Name = "LBLPLaylistStart" -Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) -Me.LBLPLaylistStart.TabIndex = 190 -Me.LBLPLaylistStart.Text = "Start" -Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) +Me.TbxDomImageDir.Name = "TbxDomImageDir" +Me.TbxDomImageDir.ReadOnly = true +Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxDomImageDir.TabIndex = 0 +Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir ' -'LBPlaylist +'LBLSubColor ' -Me.LBPlaylist.AllowDrop = true -Me.LBPlaylist.FormattingEnabled = true -Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) -Me.LBPlaylist.Name = "LBPlaylist" -Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) -Me.LBPlaylist.TabIndex = 189 +Me.LBLSubColor.BackColor = System.Drawing.Color.White +Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor +Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) +Me.LBLSubColor.Name = "LBLSubColor" +Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) +Me.LBLSubColor.TabIndex = 0 +Me.LBLSubColor.Text = "Preview" +Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TabPage14 +'LBLDomColor ' -Me.TabPage14.BackColor = System.Drawing.Color.LightGray -Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) -Me.TabPage14.Controls.Add(Me.Label88) -Me.TabPage14.Controls.Add(Me.TBKeywordPreview) -Me.TabPage14.Controls.Add(Me.Button37) -Me.TabPage14.Controls.Add(Me.Button50) -Me.TabPage14.Controls.Add(Me.Button22) -Me.TabPage14.Controls.Add(Me.TBKeyWords) -Me.TabPage14.Controls.Add(Me.LBKeyWords) -Me.TabPage14.Controls.Add(Me.RTBKeyWords) -Me.TabPage14.Location = New System.Drawing.Point(4, 22) -Me.TabPage14.Name = "TabPage14" -Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage14.Size = New System.Drawing.Size(700, 411) -Me.TabPage14.TabIndex = 0 -Me.TabPage14.Text = "Keywords" +Me.LBLDomColor.BackColor = System.Drawing.Color.White +Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor +Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) +Me.LBLDomColor.Name = "LBLDomColor" +Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) +Me.LBLDomColor.TabIndex = 0 +Me.LBLDomColor.Text = "Preview" +Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLKeywordPreview +'CBLockOrgasmChances ' -Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) -Me.LBLKeywordPreview.Name = "LBLKeywordPreview" -Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) -Me.LBLKeywordPreview.TabIndex = 174 -Me.LBLKeywordPreview.Text = "Get Preview Here" -Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances +Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black +Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) +Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" +Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) +Me.CBLockOrgasmChances.TabIndex = 146 +Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" +Me.CBLockOrgasmChances.UseVisualStyleBackColor = true ' -'Label88 +'ChbImageUrlHardcore ' -Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label88.Location = New System.Drawing.Point(3, 358) -Me.Label88.Name = "Label88" -Me.Label88.Size = New System.Drawing.Size(194, 53) -Me.Label88.TabIndex = 173 -Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ - " the domme return." -Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.ChbImageUrlHardcore.AutoSize = true +Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled +Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) +Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" +Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHardcore.TabIndex = 0 +Me.ChbImageUrlHardcore.Text = "Hardcore" +Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true ' -'TBKeywordPreview +'ChbImageUrlButts ' -Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) -Me.TBKeywordPreview.Name = "TBKeywordPreview" -Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) -Me.TBKeywordPreview.TabIndex = 172 -Me.TBKeywordPreview.Text = "Enter Line Here" -Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.ChbImageUrlButts.AutoSize = true +Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled +Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) +Me.ChbImageUrlButts.Name = "ChbImageUrlButts" +Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) +Me.ChbImageUrlButts.TabIndex = 37 +Me.ChbImageUrlButts.Text = "Butts" +Me.ChbImageUrlButts.UseVisualStyleBackColor = true ' -'Button37 +'ChbImageUrlMaledom ' -Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button37.Location = New System.Drawing.Point(638, 358) -Me.Button37.Name = "Button37" -Me.Button37.Size = New System.Drawing.Size(47, 50) -Me.Button37.TabIndex = 171 -Me.Button37.Text = "#" -Me.Button37.UseVisualStyleBackColor = true +Me.ChbImageUrlMaledom.AutoSize = true +Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled +Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) +Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" +Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlMaledom.TabIndex = 25 +Me.ChbImageUrlMaledom.Text = "Maledom" +Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true ' -'Button50 +'ChbImageUrlGay ' -Me.Button50.Location = New System.Drawing.Point(6, 10) -Me.Button50.Name = "Button50" -Me.Button50.Size = New System.Drawing.Size(194, 23) -Me.Button50.TabIndex = 169 -Me.Button50.Text = "Refresh and Clear Keyword List" -Me.Button50.UseVisualStyleBackColor = true +Me.ChbImageUrlGay.AutoSize = true +Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled +Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) +Me.ChbImageUrlGay.Name = "ChbImageUrlGay" +Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGay.TabIndex = 22 +Me.ChbImageUrlGay.Text = "Gay" +Me.ChbImageUrlGay.UseVisualStyleBackColor = true ' -'Button22 +'ChbImageUrlSoftcore ' -Me.Button22.Location = New System.Drawing.Point(638, 10) -Me.Button22.Name = "Button22" -Me.Button22.Size = New System.Drawing.Size(47, 23) -Me.Button22.TabIndex = 167 -Me.Button22.Text = "Save" -Me.Button22.UseVisualStyleBackColor = true +Me.ChbImageUrlSoftcore.AutoSize = true +Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled +Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) +Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" +Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlSoftcore.TabIndex = 4 +Me.ChbImageUrlSoftcore.Text = "Softcore" +Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true ' -'TBKeyWords +'ChbImageUrlBoobs ' -Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) -Me.TBKeyWords.Name = "TBKeyWords" -Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) -Me.TBKeyWords.TabIndex = 166 +Me.ChbImageUrlBoobs.AutoSize = true +Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled +Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) +Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" +Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBoobs.TabIndex = 34 +Me.ChbImageUrlBoobs.Text = "Boobs" +Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true ' -'LBKeyWords +'ChbImageUrlLesbian ' -Me.LBKeyWords.FormattingEnabled = true -Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) -Me.LBKeyWords.Name = "LBKeyWords" -Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) -Me.LBKeyWords.Sorted = true -Me.LBKeyWords.TabIndex = 165 +Me.ChbImageUrlLesbian.AutoSize = true +Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled +Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) +Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" +Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLesbian.TabIndex = 7 +Me.ChbImageUrlLesbian.Text = "Lesbian" +Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true ' -'RTBKeyWords +'ChbImageUrlBlowjob ' -Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) -Me.RTBKeyWords.Name = "RTBKeyWords" -Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) -Me.RTBKeyWords.TabIndex = 164 -Me.RTBKeyWords.Text = "" +Me.ChbImageUrlBlowjob.AutoSize = true +Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled +Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) +Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" +Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBlowjob.TabIndex = 10 +Me.ChbImageUrlBlowjob.Text = "Blowjob" +Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true ' -'TabPage24 +'ChbImageUrlCaptions ' -Me.TabPage24.BackColor = System.Drawing.Color.LightGray -Me.TabPage24.Controls.Add(Me.Button9) -Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) -Me.TabPage24.Controls.Add(Me.Button4) -Me.TabPage24.Controls.Add(Me.Button5) -Me.TabPage24.Controls.Add(Me.TBResponses) -Me.TabPage24.Controls.Add(Me.LBResponses) -Me.TabPage24.Controls.Add(Me.RTBResponses) -Me.TabPage24.Location = New System.Drawing.Point(4, 22) -Me.TabPage24.Name = "TabPage24" -Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage24.Size = New System.Drawing.Size(700, 411) -Me.TabPage24.TabIndex = 3 -Me.TabPage24.Text = "Responses" +Me.ChbImageUrlCaptions.AutoSize = true +Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled +Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) +Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" +Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlCaptions.TabIndex = 28 +Me.ChbImageUrlCaptions.Text = "Captions" +Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true ' -'Button9 +'ChbImageUrlGeneral ' -Me.Button9.Location = New System.Drawing.Point(217, 10) -Me.Button9.Name = "Button9" -Me.Button9.Size = New System.Drawing.Size(215, 23) -Me.Button9.TabIndex = 176 -Me.Button9.Text = "Response Template" -Me.Button9.UseVisualStyleBackColor = true +Me.ChbImageUrlGeneral.AutoSize = true +Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled +Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) +Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" +Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGeneral.TabIndex = 31 +Me.ChbImageUrlGeneral.Text = "General" +Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true ' -'RTBResponsesKEY +'ChbImageUrlFemdom ' -Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) -Me.RTBResponsesKEY.Name = "RTBResponsesKEY" -Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) -Me.RTBResponsesKEY.TabIndex = 175 -Me.RTBResponsesKEY.Text = "" +Me.ChbImageUrlFemdom.AutoSize = true +Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled +Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) +Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" +Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlFemdom.TabIndex = 13 +Me.ChbImageUrlFemdom.Text = "Femdom" +Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true ' -'Button4 +'ChbImageUrlHentai ' -Me.Button4.Location = New System.Drawing.Point(6, 10) -Me.Button4.Name = "Button4" -Me.Button4.Size = New System.Drawing.Size(194, 23) -Me.Button4.TabIndex = 174 -Me.Button4.Text = "Refresh and Clear Response List" -Me.Button4.UseVisualStyleBackColor = true +Me.ChbImageUrlHentai.AutoSize = true +Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled +Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) +Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" +Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHentai.TabIndex = 19 +Me.ChbImageUrlHentai.Text = "Hentai" +Me.ChbImageUrlHentai.UseVisualStyleBackColor = true ' -'Button5 +'ChbImageUrlLezdom ' -Me.Button5.Location = New System.Drawing.Point(638, 10) -Me.Button5.Name = "Button5" -Me.Button5.Size = New System.Drawing.Size(47, 23) -Me.Button5.TabIndex = 173 -Me.Button5.Text = "Save" -Me.Button5.UseVisualStyleBackColor = true +Me.ChbImageUrlLezdom.AutoSize = true +Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled +Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) +Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" +Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLezdom.TabIndex = 16 +Me.ChbImageUrlLezdom.Text = "Lezdom" +Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true ' -'TBResponses +'TxbImageUrlBlowjob ' -Me.TBResponses.Location = New System.Drawing.Point(438, 10) -Me.TBResponses.Name = "TBResponses" -Me.TBResponses.Size = New System.Drawing.Size(194, 20) -Me.TBResponses.TabIndex = 172 +Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" +Me.TxbImageUrlBlowjob.ReadOnly = true +Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.TabIndex = 12 +Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob ' -'LBResponses +'TxbImageUrlSoftcore ' -Me.LBResponses.FormattingEnabled = true -Me.LBResponses.Location = New System.Drawing.Point(6, 36) -Me.LBResponses.Name = "LBResponses" -Me.LBResponses.Size = New System.Drawing.Size(194, 355) -Me.LBResponses.Sorted = true -Me.LBResponses.TabIndex = 171 +Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) +Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" +Me.TxbImageUrlSoftcore.ReadOnly = true +Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.TabIndex = 6 +Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore ' -'RTBResponses +'TxbImageUrlLezdom ' -Me.RTBResponses.Location = New System.Drawing.Point(217, 82) -Me.RTBResponses.Name = "RTBResponses" -Me.RTBResponses.Size = New System.Drawing.Size(468, 309) -Me.RTBResponses.TabIndex = 170 -Me.RTBResponses.Text = "" +Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) +Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" +Me.TxbImageUrlLezdom.ReadOnly = true +Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.TabIndex = 18 +Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom ' -'TabPage8 +'TxbImageUrlFemdom ' -Me.TabPage8.BackColor = System.Drawing.Color.LightGray -Me.TabPage8.Controls.Add(Me.RTBVideoMod) -Me.TabPage8.Controls.Add(Me.GroupBox29) -Me.TabPage8.Controls.Add(Me.BTNVideoModClear) -Me.TabPage8.Controls.Add(Me.GroupBox28) -Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) -Me.TabPage8.Controls.Add(Me.GroupBox30) -Me.TabPage8.Controls.Add(Me.BTNVideoModSave) -Me.TabPage8.Location = New System.Drawing.Point(4, 22) -Me.TabPage8.Name = "TabPage8" -Me.TabPage8.Size = New System.Drawing.Size(700, 411) -Me.TabPage8.TabIndex = 2 -Me.TabPage8.Text = "Video" +Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) +Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" +Me.TxbImageUrlFemdom.ReadOnly = true +Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.TabIndex = 15 +Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom ' -'RTBVideoMod +'TxbImageUrlHardcore ' -Me.RTBVideoMod.Enabled = false -Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) -Me.RTBVideoMod.Name = "RTBVideoMod" -Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) -Me.RTBVideoMod.TabIndex = 150 -Me.RTBVideoMod.Text = "" +Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) +Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" +Me.TxbImageUrlHardcore.ReadOnly = true +Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.TabIndex = 3 +Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore ' -'GroupBox29 +'TxbImageUrlHentai ' -Me.GroupBox29.BackColor = System.Drawing.Color.LightGray -Me.GroupBox29.Controls.Add(Me.Label51) -Me.GroupBox29.ForeColor = System.Drawing.Color.Black -Me.GroupBox29.Location = New System.Drawing.Point(6, 309) -Me.GroupBox29.Name = "GroupBox29" -Me.GroupBox29.Size = New System.Drawing.Size(692, 92) -Me.GroupBox29.TabIndex = 66 -Me.GroupBox29.TabStop = false -Me.GroupBox29.Text = "Description" +Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) +Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" +Me.TxbImageUrlHentai.ReadOnly = true +Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.TabIndex = 21 +Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai ' -'Label51 +'TxbImageUrlGay ' -Me.Label51.BackColor = System.Drawing.Color.Transparent -Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label51.ForeColor = System.Drawing.Color.Black -Me.Label51.Location = New System.Drawing.Point(6, 16) -Me.Label51.Name = "Label51" -Me.Label51.Size = New System.Drawing.Size(680, 73) -Me.Label51.TabIndex = 62 -Me.Label51.Text = resources.GetString("Label51.Text") -Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) +Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.Name = "TxbImageUrlGay" +Me.TxbImageUrlGay.ReadOnly = true +Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.TabIndex = 24 +Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay ' -'BTNVideoModClear +'TxbImageUrlLesbian ' -Me.BTNVideoModClear.Enabled = false -Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) -Me.BTNVideoModClear.Name = "BTNVideoModClear" -Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModClear.TabIndex = 153 -Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" -Me.BTNVideoModClear.UseVisualStyleBackColor = true +Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) +Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" +Me.TxbImageUrlLesbian.ReadOnly = true +Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.TabIndex = 9 +Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian ' -'GroupBox28 +'TxbImageUrlMaledom ' -Me.GroupBox28.Controls.Add(Me.CBVTType) -Me.GroupBox28.Location = New System.Drawing.Point(6, 8) -Me.GroupBox28.Name = "GroupBox28" -Me.GroupBox28.Size = New System.Drawing.Size(155, 46) -Me.GroupBox28.TabIndex = 148 -Me.GroupBox28.TabStop = false -Me.GroupBox28.Text = "Video Tease Type" +Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) +Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" +Me.TxbImageUrlMaledom.ReadOnly = true +Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.TabIndex = 27 +Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom ' -'CBVTType +'TxbImageUrlCaptions ' -Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBVTType.FormattingEnabled = true -Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) -Me.CBVTType.Location = New System.Drawing.Point(9, 15) -Me.CBVTType.Name = "CBVTType" -Me.CBVTType.Size = New System.Drawing.Size(137, 21) -Me.CBVTType.TabIndex = 171 +Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) +Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" +Me.TxbImageUrlCaptions.ReadOnly = true +Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.TabIndex = 30 +Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions ' -'BTNVideoModLoad +'TxbImageUrlGeneral ' -Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) -Me.BTNVideoModLoad.Name = "BTNVideoModLoad" -Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModLoad.TabIndex = 152 -Me.BTNVideoModLoad.Text = "Load Script" -Me.BTNVideoModLoad.UseVisualStyleBackColor = true +Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) +Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" +Me.TxbImageUrlGeneral.ReadOnly = true +Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.TabIndex = 33 +Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral ' -'GroupBox30 +'TxbImageUrlBoobs ' -Me.GroupBox30.Controls.Add(Me.LBVidScript) -Me.GroupBox30.Location = New System.Drawing.Point(6, 60) -Me.GroupBox30.Name = "GroupBox30" -Me.GroupBox30.Size = New System.Drawing.Size(155, 100) -Me.GroupBox30.TabIndex = 149 -Me.GroupBox30.TabStop = false -Me.GroupBox30.Text = "Script" +Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) +Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" +Me.TxbImageUrlBoobs.ReadOnly = true +Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.TabIndex = 36 +Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs ' -'LBVidScript +'TxbImageUrlButts ' -Me.LBVidScript.FormattingEnabled = true -Me.LBVidScript.Location = New System.Drawing.Point(9, 20) -Me.LBVidScript.Name = "LBVidScript" -Me.LBVidScript.Size = New System.Drawing.Size(137, 69) -Me.LBVidScript.TabIndex = 0 +Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) +Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.Name = "TxbImageUrlButts" +Me.TxbImageUrlButts.ReadOnly = true +Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.TabIndex = 39 +Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt ' -'BTNVideoModSave +'TbxIHardcore ' -Me.BTNVideoModSave.Enabled = false -Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) -Me.BTNVideoModSave.Name = "BTNVideoModSave" -Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModSave.TabIndex = 151 -Me.BTNVideoModSave.Text = "Save Changes" -Me.BTNVideoModSave.UseVisualStyleBackColor = true +Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray +Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black +Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) +Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.Name = "TbxIHardcore" +Me.TbxIHardcore.ReadOnly = true +Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.TabIndex = 2 +Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore ' -'TabPage15 +'CBIHardcoreSD ' -Me.TabPage15.BackColor = System.Drawing.Color.LightGray -Me.TabPage15.Controls.Add(Me.Label62) -Me.TabPage15.Controls.Add(Me.Label61) -Me.TabPage15.Controls.Add(Me.Label57) -Me.TabPage15.Controls.Add(Me.Label58) -Me.TabPage15.Controls.Add(Me.Label60) -Me.TabPage15.Controls.Add(Me.TBGlitModFileName) -Me.TabPage15.Controls.Add(Me.GroupBox34) -Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) -Me.TabPage15.Controls.Add(Me.Button26) -Me.TabPage15.Controls.Add(Me.Label56) -Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) -Me.TabPage15.Controls.Add(Me.LBGlitModScripts) -Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) -Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) -Me.TabPage15.Controls.Add(Me.Button29) -Me.TabPage15.Controls.Add(Me.CBGlitModType) -Me.TabPage15.Controls.Add(Me.Label59) -Me.TabPage15.Controls.Add(Me.Label50) -Me.TabPage15.Location = New System.Drawing.Point(4, 22) -Me.TabPage15.Name = "TabPage15" -Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage15.Size = New System.Drawing.Size(700, 411) -Me.TabPage15.TabIndex = 1 -Me.TabPage15.Text = "Glitter" +Me.CBIHardcoreSD.AutoSize = true +Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD +Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) +Me.CBIHardcoreSD.Name = "CBIHardcoreSD" +Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHardcoreSD.TabIndex = 3 +Me.CBIHardcoreSD.UseVisualStyleBackColor = true ' -'Label62 +'CBIHardcore ' -Me.Label62.Location = New System.Drawing.Point(255, 169) -Me.Label62.Name = "Label62" -Me.Label62.Size = New System.Drawing.Size(59, 51) -Me.Label62.TabIndex = 177 -Me.Label62.Text = "@Cruel @Angry @Custom2" -Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBIHardcore.AutoSize = true +Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore +Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcore.ForeColor = System.Drawing.Color.Black +Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) +Me.CBIHardcore.Name = "CBIHardcore" +Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) +Me.CBIHardcore.TabIndex = 0 +Me.CBIHardcore.Text = "Hardcore" +Me.CBIHardcore.UseVisualStyleBackColor = true ' -'Label61 +'CBISoftcore ' -Me.Label61.Location = New System.Drawing.Point(194, 169) -Me.Label61.Name = "Label61" -Me.Label61.Size = New System.Drawing.Size(59, 51) -Me.Label61.TabIndex = 176 -Me.Label61.Text = "@Bratty @Caring @Custom1" -Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBISoftcore.AutoSize = true +Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore +Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcore.ForeColor = System.Drawing.Color.Black +Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) +Me.CBISoftcore.Name = "CBISoftcore" +Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) +Me.CBISoftcore.TabIndex = 4 +Me.CBISoftcore.Text = "Softcore" +Me.CBISoftcore.UseVisualStyleBackColor = true ' -'Label57 +'TbxISoftcore ' -Me.Label57.Location = New System.Drawing.Point(194, 11) -Me.Label57.Name = "Label57" -Me.Label57.Size = New System.Drawing.Size(120, 23) -Me.Label57.TabIndex = 160 -Me.Label57.Text = "File Name" -Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray +Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black +Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) +Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.Name = "TbxISoftcore" +Me.TbxISoftcore.ReadOnly = true +Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.TabIndex = 6 +Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore ' -'Label58 +'CBButtSubDir ' -Me.Label58.Location = New System.Drawing.Point(350, 11) -Me.Label58.Name = "Label58" -Me.Label58.Size = New System.Drawing.Size(326, 23) -Me.Label58.TabIndex = 161 -Me.Label58.Text = "Domme's Post" -Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBButtSubDir.AutoSize = true +Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir +Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black +Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) +Me.CBButtSubDir.Name = "CBButtSubDir" +Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) +Me.CBButtSubDir.TabIndex = 51 +Me.CBButtSubDir.UseVisualStyleBackColor = true ' -'Label60 +'CBISoftcoreSD ' -Me.Label60.Location = New System.Drawing.Point(194, 139) -Me.Label60.Name = "Label60" -Me.Label60.Size = New System.Drawing.Size(120, 30) -Me.Label60.TabIndex = 175 -Me.Label60.Text = "Tease Responses Need 3 of Each:" -Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBISoftcoreSD.AutoSize = true +Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD +Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) +Me.CBISoftcoreSD.Name = "CBISoftcoreSD" +Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBISoftcoreSD.TabIndex = 7 +Me.CBISoftcoreSD.UseVisualStyleBackColor = true ' -'TBGlitModFileName +'CBBoobSubDir ' -Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) -Me.TBGlitModFileName.Name = "TBGlitModFileName" -Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) -Me.TBGlitModFileName.TabIndex = 158 +Me.CBBoobSubDir.AutoSize = true +Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir +Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black +Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) +Me.CBBoobSubDir.Name = "CBBoobSubDir" +Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) +Me.CBBoobSubDir.TabIndex = 47 +Me.CBBoobSubDir.UseVisualStyleBackColor = true ' -'GroupBox34 +'CBILezdomSD ' -Me.GroupBox34.BackColor = System.Drawing.Color.LightGray -Me.GroupBox34.Controls.Add(Me.Label52) -Me.GroupBox34.ForeColor = System.Drawing.Color.Black -Me.GroupBox34.Location = New System.Drawing.Point(8, 296) -Me.GroupBox34.Name = "GroupBox34" -Me.GroupBox34.Size = New System.Drawing.Size(683, 107) -Me.GroupBox34.TabIndex = 66 -Me.GroupBox34.TabStop = false -Me.GroupBox34.Text = "Description" +Me.CBILezdomSD.AutoSize = true +Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD +Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black +Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) +Me.CBILezdomSD.Name = "CBILezdomSD" +Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBILezdomSD.TabIndex = 23 +Me.CBILezdomSD.UseVisualStyleBackColor = true ' -'Label52 +'CBIGeneralSD ' -Me.Label52.BackColor = System.Drawing.Color.Transparent -Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label52.ForeColor = System.Drawing.Color.Black -Me.Label52.Location = New System.Drawing.Point(6, 16) -Me.Label52.Name = "Label52" -Me.Label52.Size = New System.Drawing.Size(670, 88) -Me.Label52.TabIndex = 62 -Me.Label52.Text = resources.GetString("Label52.Text") -Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIGeneralSD.AutoSize = true +Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD +Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black +Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) +Me.CBIGeneralSD.Name = "CBIGeneralSD" +Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) +Me.CBIGeneralSD.TabIndex = 43 +Me.CBIGeneralSD.UseVisualStyleBackColor = true ' -'RTBGlitModDommePost +'CBILesbianSD ' -Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) -Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" -Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) -Me.RTBGlitModDommePost.TabIndex = 162 -Me.RTBGlitModDommePost.Text = "" +Me.CBILesbianSD.AutoSize = true +Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD +Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black +Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) +Me.CBILesbianSD.Name = "CBILesbianSD" +Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) +Me.CBILesbianSD.TabIndex = 11 +Me.CBILesbianSD.UseVisualStyleBackColor = true ' -'Button26 +'CBICaptionsSD ' -Me.Button26.Location = New System.Drawing.Point(194, 239) -Me.Button26.Name = "Button26" -Me.Button26.Size = New System.Drawing.Size(120, 23) -Me.Button26.TabIndex = 174 -Me.Button26.Text = "Clear Fields" -Me.Button26.UseVisualStyleBackColor = true +Me.CBICaptionsSD.AutoSize = true +Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD +Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black +Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) +Me.CBICaptionsSD.Name = "CBICaptionsSD" +Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) +Me.CBICaptionsSD.TabIndex = 39 +Me.CBICaptionsSD.UseVisualStyleBackColor = true ' -'Label56 +'CBILesbian ' -Me.Label56.Location = New System.Drawing.Point(350, 80) -Me.Label56.Name = "Label56" -Me.Label56.Size = New System.Drawing.Size(324, 23) -Me.Label56.TabIndex = 156 -Me.Label56.Text = "Responses (Minimum 3)" -Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBILesbian.AutoSize = true +Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian +Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbian.ForeColor = System.Drawing.Color.Black +Me.CBILesbian.Location = New System.Drawing.Point(3, 61) +Me.CBILesbian.Name = "CBILesbian" +Me.CBILesbian.Size = New System.Drawing.Size(70, 23) +Me.CBILesbian.TabIndex = 8 +Me.CBILesbian.Text = "Lesbian" +Me.CBILesbian.UseVisualStyleBackColor = true ' -'RTBGlitModResponses +'CBIMaledomSD ' -Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) -Me.RTBGlitModResponses.Name = "RTBGlitModResponses" -Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) -Me.RTBGlitModResponses.TabIndex = 150 -Me.RTBGlitModResponses.Text = "" +Me.CBIMaledomSD.AutoSize = true +Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD +Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black +Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) +Me.CBIMaledomSD.Name = "CBIMaledomSD" +Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIMaledomSD.TabIndex = 35 +Me.CBIMaledomSD.UseVisualStyleBackColor = true ' -'LBGlitModScripts +'CBIBlowjob ' -Me.LBGlitModScripts.FormattingEnabled = true -Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) -Me.LBGlitModScripts.Name = "LBGlitModScripts" -Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) -Me.LBGlitModScripts.TabIndex = 163 +Me.CBIBlowjob.AutoSize = true +Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob +Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) +Me.CBIBlowjob.Name = "CBIBlowjob" +Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) +Me.CBIBlowjob.TabIndex = 12 +Me.CBIBlowjob.Text = "Blowjob" +Me.CBIBlowjob.UseVisualStyleBackColor = true ' -'LBLGlitModScriptCount +'CBIGaySD ' -Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) -Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" -Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) -Me.LBLGlitModScriptCount.TabIndex = 173 -Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" -Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIGaySD.AutoSize = true +Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD +Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGaySD.ForeColor = System.Drawing.Color.Black +Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) +Me.CBIGaySD.Name = "CBIGaySD" +Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) +Me.CBIGaySD.TabIndex = 31 +Me.CBIGaySD.UseVisualStyleBackColor = true ' -'LBLGlitModDomType +'CBIHentaiSD ' -Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) -Me.LBLGlitModDomType.Name = "LBLGlitModDomType" -Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) -Me.LBLGlitModDomType.TabIndex = 155 -Me.LBLGlitModDomType.Text = "Total Brat" -Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIHentaiSD.AutoSize = true +Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD +Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black +Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) +Me.CBIHentaiSD.Name = "CBIHentaiSD" +Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHentaiSD.TabIndex = 27 +Me.CBIHentaiSD.UseVisualStyleBackColor = true ' -'Button29 +'CBIBlowjobSD ' -Me.Button29.Location = New System.Drawing.Point(194, 268) -Me.Button29.Name = "Button29" -Me.Button29.Size = New System.Drawing.Size(120, 23) -Me.Button29.TabIndex = 151 -Me.Button29.Text = "Save Glitter File" -Me.Button29.UseVisualStyleBackColor = true +Me.CBIBlowjobSD.AutoSize = true +Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD +Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) +Me.CBIBlowjobSD.Name = "CBIBlowjobSD" +Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) +Me.CBIBlowjobSD.TabIndex = 15 +Me.CBIBlowjobSD.UseVisualStyleBackColor = true ' -'CBGlitModType +'CBIFemdomSD ' -Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBGlitModType.FormattingEnabled = true -Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) -Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) -Me.CBGlitModType.Name = "CBGlitModType" -Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) -Me.CBGlitModType.TabIndex = 171 +Me.CBIFemdomSD.AutoSize = true +Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD +Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black +Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) +Me.CBIFemdomSD.Name = "CBIFemdomSD" +Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIFemdomSD.TabIndex = 19 +Me.CBIFemdomSD.UseVisualStyleBackColor = true ' -'Label59 +'TbxIButts ' -Me.Label59.Location = New System.Drawing.Point(33, 11) -Me.Label59.Name = "Label59" -Me.Label59.Size = New System.Drawing.Size(130, 23) -Me.Label59.TabIndex = 172 -Me.Label59.Text = "Glitter Post Type" -Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxIButts.BackColor = System.Drawing.Color.LightGray +Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIButts.ForeColor = System.Drawing.Color.Black +Me.TbxIButts.Location = New System.Drawing.Point(115, 353) +Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIButts.Name = "TbxIButts" +Me.TbxIButts.ReadOnly = true +Me.TbxIButts.Size = New System.Drawing.Size(217, 17) +Me.TbxIButts.TabIndex = 50 +Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath ' -'Label50 +'CBIFemdom ' -Me.Label50.Location = New System.Drawing.Point(191, 80) -Me.Label50.Name = "Label50" -Me.Label50.Size = New System.Drawing.Size(123, 23) -Me.Label50.TabIndex = 154 -Me.Label50.Text = "Current Domme Personality:" -Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIFemdom.AutoSize = true +Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom +Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdom.ForeColor = System.Drawing.Color.Black +Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) +Me.CBIFemdom.Name = "CBIFemdom" +Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) +Me.CBIFemdom.TabIndex = 16 +Me.CBIFemdom.Text = "Femdom" +Me.CBIFemdom.UseVisualStyleBackColor = true ' -'TabPage25 +'TbxILesbian ' -Me.TabPage25.BackColor = System.Drawing.Color.Silver -Me.TabPage25.Controls.Add(Me.Panel11) -Me.TabPage25.Location = New System.Drawing.Point(4, 22) -Me.TabPage25.Name = "TabPage25" -Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage25.Size = New System.Drawing.Size(720, 448) -Me.TabPage25.TabIndex = 18 -Me.TabPage25.Text = "Misc" +Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray +Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILesbian.ForeColor = System.Drawing.Color.Black +Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) +Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILesbian.Name = "TbxILesbian" +Me.TbxILesbian.ReadOnly = true +Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) +Me.TbxILesbian.TabIndex = 10 +Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian ' -'Panel11 +'CBILezdom ' -Me.Panel11.BackColor = System.Drawing.Color.LightGray -Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel11.Controls.Add(Me.GroupBox62) -Me.Panel11.Controls.Add(Me.GroupBox33) -Me.Panel11.Controls.Add(Me.GroupBox8) -Me.Panel11.Controls.Add(Me.GroupBox27) -Me.Panel11.Controls.Add(Me.GroupBox20) -Me.Panel11.Controls.Add(Me.GroupBox15) -Me.Panel11.Controls.Add(Me.PictureBox9) -Me.Panel11.Controls.Add(Me.Label148) -Me.Panel11.Location = New System.Drawing.Point(6, 6) -Me.Panel11.Name = "Panel11" -Me.Panel11.Size = New System.Drawing.Size(708, 437) -Me.Panel11.TabIndex = 92 +Me.CBILezdom.AutoSize = true +Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom +Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdom.ForeColor = System.Drawing.Color.Black +Me.CBILezdom.Location = New System.Drawing.Point(3, 148) +Me.CBILezdom.Name = "CBILezdom" +Me.CBILezdom.Size = New System.Drawing.Size(70, 23) +Me.CBILezdom.TabIndex = 20 +Me.CBILezdom.Text = "Lezdom" +Me.CBILezdom.UseVisualStyleBackColor = true +' +'TbxIBoobs +' +Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray +Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black +Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) +Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.Name = "TbxIBoobs" +Me.TbxIBoobs.ReadOnly = true +Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.TabIndex = 46 +Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath ' -'GroupBox62 +'CBIHentai ' -Me.GroupBox62.Controls.Add(Me.RBGerman) -Me.GroupBox62.Controls.Add(Me.RBEnglish) -Me.GroupBox62.Location = New System.Drawing.Point(420, 155) -Me.GroupBox62.Name = "GroupBox62" -Me.GroupBox62.Size = New System.Drawing.Size(277, 56) -Me.GroupBox62.TabIndex = 178 -Me.GroupBox62.TabStop = false -Me.GroupBox62.Text = "Language" +Me.CBIHentai.AutoSize = true +Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai +Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentai.ForeColor = System.Drawing.Color.Black +Me.CBIHentai.Location = New System.Drawing.Point(3, 177) +Me.CBIHentai.Name = "CBIHentai" +Me.CBIHentai.Size = New System.Drawing.Size(70, 23) +Me.CBIHentai.TabIndex = 24 +Me.CBIHentai.Text = "Hentai" +Me.CBIHentai.UseVisualStyleBackColor = true ' -'RBGerman +'TbxIBlowjob ' -Me.RBGerman.AutoSize = true -Me.RBGerman.Location = New System.Drawing.Point(180, 20) -Me.RBGerman.Name = "RBGerman" -Me.RBGerman.Size = New System.Drawing.Size(65, 17) -Me.RBGerman.TabIndex = 1 -Me.RBGerman.Text = "Deutsch" -Me.RBGerman.UseVisualStyleBackColor = true +Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black +Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.Name = "TbxIBlowjob" +Me.TbxIBlowjob.ReadOnly = true +Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.TabIndex = 14 +Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob ' -'RBEnglish +'CBIGay ' -Me.RBEnglish.AutoSize = true -Me.RBEnglish.Checked = true -Me.RBEnglish.Location = New System.Drawing.Point(36, 19) -Me.RBEnglish.Name = "RBEnglish" -Me.RBEnglish.Size = New System.Drawing.Size(59, 17) -Me.RBEnglish.TabIndex = 0 -Me.RBEnglish.TabStop = true -Me.RBEnglish.Text = "English" -Me.RBEnglish.UseVisualStyleBackColor = true +Me.CBIGay.AutoSize = true +Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay +Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGay.ForeColor = System.Drawing.Color.Black +Me.CBIGay.Location = New System.Drawing.Point(3, 206) +Me.CBIGay.Name = "CBIGay" +Me.CBIGay.Size = New System.Drawing.Size(70, 23) +Me.CBIGay.TabIndex = 28 +Me.CBIGay.Text = "Gay" +Me.CBIGay.UseVisualStyleBackColor = true ' -'GroupBox33 +'TbxIGeneral ' -Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) -Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) -Me.GroupBox33.Controls.Add(Me.Label140) -Me.GroupBox33.Controls.Add(Me.Button11) -Me.GroupBox33.Controls.Add(Me.LBLChastityState) -Me.GroupBox33.Controls.Add(Me.Label120) -Me.GroupBox33.Location = New System.Drawing.Point(420, 321) -Me.GroupBox33.Name = "GroupBox33" -Me.GroupBox33.Size = New System.Drawing.Size(277, 106) -Me.GroupBox33.TabIndex = 177 -Me.GroupBox33.TabStop = false -Me.GroupBox33.Text = "System States" +Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray +Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black +Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) +Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.Name = "TbxIGeneral" +Me.TbxIGeneral.ReadOnly = true +Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.TabIndex = 42 +Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral ' -'BTNOfflineMode +'CBIMaledom ' -Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) -Me.BTNOfflineMode.Name = "BTNOfflineMode" -Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) -Me.BTNOfflineMode.TabIndex = 180 -Me.BTNOfflineMode.Text = "Toggle" -Me.BTNOfflineMode.UseVisualStyleBackColor = true +Me.CBIMaledom.AutoSize = true +Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom +Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledom.ForeColor = System.Drawing.Color.Black +Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) +Me.CBIMaledom.Name = "CBIMaledom" +Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) +Me.CBIMaledom.TabIndex = 32 +Me.CBIMaledom.Text = "Maledom" +Me.CBIMaledom.UseVisualStyleBackColor = true ' -'LBLOfflineMode +'TbxIFemdom ' -Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray -Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red -Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) -Me.LBLOfflineMode.Name = "LBLOfflineMode" -Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) -Me.LBLOfflineMode.TabIndex = 179 -Me.LBLOfflineMode.Text = "OFF" -Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray +Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black +Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) +Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.Name = "TbxIFemdom" +Me.TbxIFemdom.ReadOnly = true +Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.TabIndex = 18 +Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom ' -'Label140 +'TbxICaptions ' -Me.Label140.BackColor = System.Drawing.Color.LightGray -Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label140.Location = New System.Drawing.Point(17, 70) -Me.Label140.Name = "Label140" -Me.Label140.Size = New System.Drawing.Size(98, 23) -Me.Label140.TabIndex = 178 -Me.Label140.Text = "OFFLINE MODE" -Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray +Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxICaptions.ForeColor = System.Drawing.Color.Black +Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) +Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxICaptions.Name = "TbxICaptions" +Me.TbxICaptions.ReadOnly = true +Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) +Me.TbxICaptions.TabIndex = 38 +Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions ' -'Button11 +'CBICaptions ' -Me.Button11.Location = New System.Drawing.Point(161, 33) -Me.Button11.Name = "Button11" -Me.Button11.Size = New System.Drawing.Size(99, 23) -Me.Button11.TabIndex = 177 -Me.Button11.Text = "Toggle" -Me.Button11.UseVisualStyleBackColor = true +Me.CBICaptions.AutoSize = true +Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions +Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptions.ForeColor = System.Drawing.Color.Black +Me.CBICaptions.Location = New System.Drawing.Point(3, 264) +Me.CBICaptions.Name = "CBICaptions" +Me.CBICaptions.Size = New System.Drawing.Size(70, 23) +Me.CBICaptions.TabIndex = 36 +Me.CBICaptions.Text = "Captions" +Me.CBICaptions.UseVisualStyleBackColor = true ' -'LBLChastityState +'TbxILezdom ' -Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray -Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLChastityState.ForeColor = System.Drawing.Color.Red -Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) -Me.LBLChastityState.Name = "LBLChastityState" -Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) -Me.LBLChastityState.TabIndex = 3 -Me.LBLChastityState.Text = "OFF" -Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray +Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILezdom.ForeColor = System.Drawing.Color.Black +Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) +Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILezdom.Name = "TbxILezdom" +Me.TbxILezdom.ReadOnly = true +Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) +Me.TbxILezdom.TabIndex = 22 +Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom ' -'Label120 +'TbxIMaledom ' -Me.Label120.BackColor = System.Drawing.Color.LightGray -Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label120.Location = New System.Drawing.Point(17, 33) -Me.Label120.Name = "Label120" -Me.Label120.Size = New System.Drawing.Size(98, 23) -Me.Label120.TabIndex = 2 -Me.Label120.Text = "CHASTITY" -Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray +Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black +Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) +Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.Name = "TbxIMaledom" +Me.TbxIMaledom.ReadOnly = true +Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.TabIndex = 34 +Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +' +'TbxIHentai +' +Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray +Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHentai.ForeColor = System.Drawing.Color.Black +Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) +Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHentai.Name = "TbxIHentai" +Me.TbxIHentai.ReadOnly = true +Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) +Me.TbxIHentai.TabIndex = 26 +Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai ' -'GroupBox8 +'CBIGeneral ' -Me.GroupBox8.Controls.Add(Me.CBOutputErrors) -Me.GroupBox8.Location = New System.Drawing.Point(420, 246) -Me.GroupBox8.Name = "GroupBox8" -Me.GroupBox8.Size = New System.Drawing.Size(279, 47) -Me.GroupBox8.TabIndex = 179 -Me.GroupBox8.TabStop = false -Me.GroupBox8.Text = "System Information" +Me.CBIGeneral.AutoSize = true +Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral +Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneral.ForeColor = System.Drawing.Color.Black +Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) +Me.CBIGeneral.Name = "CBIGeneral" +Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) +Me.CBIGeneral.TabIndex = 40 +Me.CBIGeneral.Text = "General" +Me.CBIGeneral.UseVisualStyleBackColor = true ' -'CBOutputErrors +'TbxIGay ' -Me.CBOutputErrors.AutoSize = true -Me.CBOutputErrors.Checked = true -Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black -Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) -Me.CBOutputErrors.Name = "CBOutputErrors" -Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) -Me.CBOutputErrors.TabIndex = 29 -Me.CBOutputErrors.TabStop = false -Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" -Me.CBOutputErrors.UseVisualStyleBackColor = true +Me.TbxIGay.BackColor = System.Drawing.Color.LightGray +Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGay.ForeColor = System.Drawing.Color.Black +Me.TbxIGay.Location = New System.Drawing.Point(115, 208) +Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGay.Name = "TbxIGay" +Me.TbxIGay.ReadOnly = true +Me.TbxIGay.Size = New System.Drawing.Size(217, 17) +Me.TbxIGay.TabIndex = 30 +Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay ' -'GroupBox27 +'CBIBoobs ' -Me.GroupBox27.Controls.Add(Me.Button6) -Me.GroupBox27.Controls.Add(Me.LBLSesSpace) -Me.GroupBox27.Controls.Add(Me.Button3) -Me.GroupBox27.Controls.Add(Me.LBLSesFiles) -Me.GroupBox27.Controls.Add(Me.Label125) -Me.GroupBox27.Controls.Add(Me.Label124) -Me.GroupBox27.Location = New System.Drawing.Point(420, 32) -Me.GroupBox27.Name = "GroupBox27" -Me.GroupBox27.Size = New System.Drawing.Size(279, 117) -Me.GroupBox27.TabIndex = 176 -Me.GroupBox27.TabStop = false -Me.GroupBox27.Text = "Session Images" +Me.CBIBoobs.AutoSize = true +Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs +Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBoobs.ForeColor = System.Drawing.Color.Black +Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) +Me.CBIBoobs.Name = "CBIBoobs" +Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) +Me.CBIBoobs.TabIndex = 44 +Me.CBIBoobs.Text = "Boobs" +Me.CBIBoobs.UseVisualStyleBackColor = true ' -'Button6 +'CBIButts ' -Me.Button6.Location = New System.Drawing.Point(143, 76) -Me.Button6.Name = "Button6" -Me.Button6.Size = New System.Drawing.Size(117, 23) -Me.Button6.TabIndex = 176 -Me.Button6.Text = "Delete All Files" -Me.Button6.UseVisualStyleBackColor = true +Me.CBIButts.AutoSize = true +Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts +Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIButts.ForeColor = System.Drawing.Color.Black +Me.CBIButts.Location = New System.Drawing.Point(3, 351) +Me.CBIButts.Name = "CBIButts" +Me.CBIButts.Size = New System.Drawing.Size(70, 27) +Me.CBIButts.TabIndex = 48 +Me.CBIButts.Text = "Butts" +Me.CBIButts.UseVisualStyleBackColor = true ' -'LBLSesSpace +'TxbVideoGeneralD ' -Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) -Me.LBLSesSpace.Name = "LBLSesSpace" -Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) -Me.LBLSesSpace.TabIndex = 3 +Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" +Me.TxbVideoGeneralD.ReadOnly = true +Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.TabIndex = 2 +Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD ' -'Button3 +'CBVideoGeneralD ' -Me.Button3.Location = New System.Drawing.Point(20, 76) -Me.Button3.Name = "Button3" -Me.Button3.Size = New System.Drawing.Size(117, 23) -Me.Button3.TabIndex = 175 -Me.Button3.Text = "Open Folder" -Me.Button3.UseVisualStyleBackColor = true +Me.CBVideoGeneralD.AutoSize = true +Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD +Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneralD.Name = "CBVideoGeneralD" +Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneralD.TabIndex = 0 +Me.CBVideoGeneralD.Text = "General" +Me.CBVideoGeneralD.UseVisualStyleBackColor = true ' -'LBLSesFiles +'TxbVideoCHD ' -Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) -Me.LBLSesFiles.Name = "LBLSesFiles" -Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) -Me.LBLSesFiles.TabIndex = 2 +Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.Name = "TxbVideoCHD" +Me.TxbVideoCHD.ReadOnly = true +Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.TabIndex = 6 +Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD ' -'Label125 +'TxbVideoJOID ' -Me.Label125.AutoSize = true -Me.Label125.Location = New System.Drawing.Point(17, 53) -Me.Label125.Name = "Label125" -Me.Label125.Size = New System.Drawing.Size(120, 13) -Me.Label125.TabIndex = 1 -Me.Label125.Text = "Total Disk Space Used:" +Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.Name = "TxbVideoJOID" +Me.TxbVideoJOID.ReadOnly = true +Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.TabIndex = 2 +Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID ' -'Label124 +'CBVideoJOID ' -Me.Label124.AutoSize = true -Me.Label124.Location = New System.Drawing.Point(17, 24) -Me.Label124.Name = "Label124" -Me.Label124.Size = New System.Drawing.Size(126, 13) -Me.Label124.TabIndex = 0 -Me.Label124.Text = "Number of Files in Folder:" +Me.CBVideoJOID.AutoSize = true +Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID +Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOID.Name = "CBVideoJOID" +Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOID.TabIndex = 0 +Me.CBVideoJOID.Text = "JOI" +Me.CBVideoJOID.UseVisualStyleBackColor = true ' -'GroupBox20 +'CBVideoCHD ' -Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label87) -Me.GroupBox20.Controls.Add(Me.TBURLFileWith) -Me.GroupBox20.Controls.Add(Me.Label118) -Me.GroupBox20.Controls.Add(Me.Label85) -Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label53) -Me.GroupBox20.Controls.Add(Me.Label8) -Me.GroupBox20.Controls.Add(Me.Button1) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) -Me.GroupBox20.Controls.Add(Me.Label117) -Me.GroupBox20.Controls.Add(Me.Label116) -Me.GroupBox20.Controls.Add(Me.PBCurrent) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) -Me.GroupBox20.Controls.Add(Me.PBMaintenance) -Me.GroupBox20.Controls.Add(Me.LBLMaintenance) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) -Me.GroupBox20.Location = New System.Drawing.Point(6, 32) -Me.GroupBox20.Name = "GroupBox20" -Me.GroupBox20.Size = New System.Drawing.Size(408, 230) -Me.GroupBox20.TabIndex = 174 -Me.GroupBox20.TabStop = false -Me.GroupBox20.Text = "Maintenance" +Me.CBVideoCHD.AutoSize = true +Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD +Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black +Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCHD.Name = "CBVideoCHD" +Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCHD.TabIndex = 4 +Me.CBVideoCHD.Text = "CH" +Me.CBVideoCHD.UseVisualStyleBackColor = true ' -'BTNURLFileReplace +'TxbVideoFemsubD ' -Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) -Me.BTNURLFileReplace.Name = "BTNURLFileReplace" -Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) -Me.BTNURLFileReplace.TabIndex = 184 -Me.BTNURLFileReplace.Text = "Replace" -Me.BTNURLFileReplace.UseVisualStyleBackColor = true +Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" +Me.TxbVideoFemsubD.ReadOnly = true +Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.TabIndex = 22 +Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD ' -'Label87 +'TxbVideoFemdomD ' -Me.Label87.AutoSize = true -Me.Label87.Location = New System.Drawing.Point(206, 254) -Me.Label87.Name = "Label87" -Me.Label87.Size = New System.Drawing.Size(38, 13) -Me.Label87.TabIndex = 183 -Me.Label87.Text = ".media" +Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" +Me.TxbVideoFemdomD.ReadOnly = true +Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.TabIndex = 18 +Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD ' -'TBURLFileWith +'TxbVideoBlowjobD ' -Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) -Me.TBURLFileWith.Name = "TBURLFileWith" -Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileWith.TabIndex = 182 +Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" +Me.TxbVideoBlowjobD.ReadOnly = true +Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.TabIndex = 14 +Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD ' -'Label118 +'TxbVideoLesbianD ' -Me.Label118.AutoSize = true -Me.Label118.Location = New System.Drawing.Point(142, 254) -Me.Label118.Name = "Label118" -Me.Label118.Size = New System.Drawing.Size(29, 13) -Me.Label118.TabIndex = 181 -Me.Label118.Text = "With" +Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" +Me.TxbVideoLesbianD.ReadOnly = true +Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.TabIndex = 10 +Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD ' -'Label85 +'TxbVideoSoftCoreD ' -Me.Label85.AutoSize = true -Me.Label85.Location = New System.Drawing.Point(98, 254) -Me.Label85.Name = "Label85" -Me.Label85.Size = New System.Drawing.Size(38, 13) -Me.Label85.TabIndex = 180 -Me.Label85.Text = ".media" +Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" +Me.TxbVideoSoftCoreD.ReadOnly = true +Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.TabIndex = 6 +Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD ' -'TBURLFileReplace +'TxbVideoHardCoreD ' -Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) -Me.TBURLFileReplace.Name = "TBURLFileReplace" -Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileReplace.TabIndex = 179 +Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" +Me.TxbVideoHardCoreD.ReadOnly = true +Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.TabIndex = 2 +Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD ' -'Label53 +'CBVideoHardcoreD ' -Me.Label53.AutoSize = true -Me.Label53.Location = New System.Drawing.Point(16, 254) -Me.Label53.Name = "Label53" -Me.Label53.Size = New System.Drawing.Size(47, 13) -Me.Label53.TabIndex = 178 -Me.Label53.Text = "Replace" +Me.CBVideoHardcoreD.AutoSize = true +Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD +Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" +Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcoreD.TabIndex = 0 +Me.CBVideoHardcoreD.Text = "Hardcore" +Me.CBVideoHardcoreD.UseVisualStyleBackColor = true ' -'Label8 +'CBVideoSoftCoreD ' -Me.Label8.AutoSize = true -Me.Label8.Location = New System.Drawing.Point(16, 232) -Me.Label8.Name = "Label8" -Me.Label8.Size = New System.Drawing.Size(130, 13) -Me.Label8.TabIndex = 177 -Me.Label8.Text = "Change URL File Servers " +Me.CBVideoSoftCoreD.AutoSize = true +Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD +Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" +Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCoreD.TabIndex = 4 +Me.CBVideoSoftCoreD.Text = "Softcore" +Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true ' -'Button1 +'CBVideoLesbianD ' -Me.Button1.Enabled = false -Me.Button1.Location = New System.Drawing.Point(270, 19) -Me.Button1.Name = "Button1" -Me.Button1.Size = New System.Drawing.Size(121, 23) -Me.Button1.TabIndex = 176 -Me.Button1.Text = "Reset Settings" -Me.Button1.UseVisualStyleBackColor = true +Me.CBVideoLesbianD.AutoSize = true +Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD +Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbianD.Name = "CBVideoLesbianD" +Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbianD.TabIndex = 8 +Me.CBVideoLesbianD.Text = "Lesbian" +Me.CBVideoLesbianD.UseVisualStyleBackColor = true ' -'BTNMaintenanceScripts +'CBVideoBlowjobD ' -Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) -Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" -Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceScripts.TabIndex = 175 -Me.BTNMaintenanceScripts.Text = "Audit Scripts" -Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true +Me.CBVideoBlowjobD.AutoSize = true +Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD +Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" +Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjobD.TabIndex = 12 +Me.CBVideoBlowjobD.Text = "Blowjob" +Me.CBVideoBlowjobD.UseVisualStyleBackColor = true ' -'BTNMaintenanceRefresh +'CBVideoFemsubD ' -Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) -Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" -Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRefresh.TabIndex = 7 -Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" -Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true +Me.CBVideoFemsubD.AutoSize = true +Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD +Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsubD.Name = "CBVideoFemsubD" +Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsubD.TabIndex = 20 +Me.CBVideoFemsubD.Text = "Femsub" +Me.CBVideoFemsubD.UseVisualStyleBackColor = true ' -'Label117 +'CBVideoFemdomD ' -Me.Label117.AutoSize = true -Me.Label117.Location = New System.Drawing.Point(15, 182) -Me.Label117.Name = "Label117" -Me.Label117.Size = New System.Drawing.Size(84, 13) -Me.Label117.TabIndex = 6 -Me.Label117.Text = "Overall Progress" +Me.CBVideoFemdomD.AutoSize = true +Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD +Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdomD.Name = "CBVideoFemdomD" +Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdomD.TabIndex = 16 +Me.CBVideoFemdomD.Text = "Femdom" +Me.CBVideoFemdomD.UseVisualStyleBackColor = true ' -'Label116 +'TxbVideoGeneral ' -Me.Label116.AutoSize = true -Me.Label116.Location = New System.Drawing.Point(15, 140) -Me.Label116.Name = "Label116" -Me.Label116.Size = New System.Drawing.Size(85, 13) -Me.Label116.TabIndex = 5 -Me.Label116.Text = "Current Progress" +Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.Name = "TxbVideoGeneral" +Me.TxbVideoGeneral.ReadOnly = true +Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.TabIndex = 2 +Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral ' -'PBCurrent +'CBVideoGeneral ' -Me.PBCurrent.Location = New System.Drawing.Point(15, 156) -Me.PBCurrent.Name = "PBCurrent" -Me.PBCurrent.Size = New System.Drawing.Size(376, 23) -Me.PBCurrent.TabIndex = 4 +Me.CBVideoGeneral.AutoSize = true +Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral +Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneral.Name = "CBVideoGeneral" +Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneral.TabIndex = 0 +Me.CBVideoGeneral.Text = "General" +Me.CBVideoGeneral.UseVisualStyleBackColor = true ' -'BTNMaintenanceCancel +'TxbVideoCH ' -Me.BTNMaintenanceCancel.Enabled = false -Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) -Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" -Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceCancel.TabIndex = 3 -Me.BTNMaintenanceCancel.Text = "Cancel" -Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true +Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.Name = "TxbVideoCH" +Me.TxbVideoCH.ReadOnly = true +Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.TabIndex = 6 +Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH ' -'PBMaintenance +'TxbVideoJOI ' -Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) -Me.PBMaintenance.Name = "PBMaintenance" -Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) -Me.PBMaintenance.TabIndex = 2 +Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.Name = "TxbVideoJOI" +Me.TxbVideoJOI.ReadOnly = true +Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.TabIndex = 2 +Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI ' -'LBLMaintenance +'CBVideoJOI ' -Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) -Me.LBLMaintenance.Name = "LBLMaintenance" -Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) -Me.LBLMaintenance.TabIndex = 1 -Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBVideoJOI.AutoSize = true +Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI +Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOI.Name = "CBVideoJOI" +Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOI.TabIndex = 0 +Me.CBVideoJOI.Text = "JOI" +Me.CBVideoJOI.UseVisualStyleBackColor = true ' -'BTNMaintenanceRebuild +'CBVideoCH ' -Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) -Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" -Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRebuild.TabIndex = 0 -Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" -Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true +Me.CBVideoCH.AutoSize = true +Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH +Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCH.ForeColor = System.Drawing.Color.Black +Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCH.Name = "CBVideoCH" +Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCH.TabIndex = 4 +Me.CBVideoCH.Text = "CH" +Me.CBVideoCH.UseVisualStyleBackColor = true ' -'GroupBox15 +'TxbVideoFemsub ' -Me.GroupBox15.Controls.Add(Me.Label115) -Me.GroupBox15.Controls.Add(Me.TBWebStop) -Me.GroupBox15.Controls.Add(Me.TBWebStart) -Me.GroupBox15.Controls.Add(Me.Label114) -Me.GroupBox15.Controls.Add(Me.WebToy) -Me.GroupBox15.Location = New System.Drawing.Point(6, 268) -Me.GroupBox15.Name = "GroupBox15" -Me.GroupBox15.Size = New System.Drawing.Size(408, 159) -Me.GroupBox15.TabIndex = 173 -Me.GroupBox15.TabStop = false -Me.GroupBox15.Text = "Web-Controlled Sex Toy" +Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.Name = "TxbVideoFemsub" +Me.TxbVideoFemsub.ReadOnly = true +Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.TabIndex = 22 +Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub ' -'Label115 +'TxbVideoFemdom ' -Me.Label115.AutoSize = true -Me.Label115.Location = New System.Drawing.Point(12, 58) -Me.Label115.Name = "Label115" -Me.Label115.Size = New System.Drawing.Size(54, 13) -Me.Label115.TabIndex = 171 -Me.Label115.Text = "Stop URL" +Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.Name = "TxbVideoFemdom" +Me.TxbVideoFemdom.ReadOnly = true +Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.TabIndex = 18 +Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom ' -'TBWebStop +'TxbVideoBlowjob ' -Me.TBWebStop.Location = New System.Drawing.Point(10, 72) -Me.TBWebStop.Name = "TBWebStop" -Me.TBWebStop.Size = New System.Drawing.Size(381, 20) -Me.TBWebStop.TabIndex = 170 +Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" +Me.TxbVideoBlowjob.ReadOnly = true +Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.TabIndex = 14 +Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob ' -'TBWebStart +'TxbVideoLesbian ' -Me.TBWebStart.Location = New System.Drawing.Point(10, 33) -Me.TBWebStart.Name = "TBWebStart" -Me.TBWebStart.Size = New System.Drawing.Size(381, 20) -Me.TBWebStart.TabIndex = 167 +Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.Name = "TxbVideoLesbian" +Me.TxbVideoLesbian.ReadOnly = true +Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.TabIndex = 10 +Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian ' -'Label114 +'TxbVideoSoftCore ' -Me.Label114.AutoSize = true -Me.Label114.Location = New System.Drawing.Point(12, 17) -Me.Label114.Name = "Label114" -Me.Label114.Size = New System.Drawing.Size(54, 13) -Me.Label114.TabIndex = 168 -Me.Label114.Text = "Start URL" +Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" +Me.TxbVideoSoftCore.ReadOnly = true +Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.TabIndex = 6 +Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore ' -'WebToy +'TxbVideoHardCore ' -Me.WebToy.Location = New System.Drawing.Point(346, 33) -Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) -Me.WebToy.Name = "WebToy" -Me.WebToy.Size = New System.Drawing.Size(45, 59) -Me.WebToy.TabIndex = 172 +Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.Name = "TxbVideoHardCore" +Me.TxbVideoHardCore.ReadOnly = true +Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.TabIndex = 2 +Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore ' -'PictureBox9 +'CBVideoHardcore ' -Me.PictureBox9.BackColor = System.Drawing.Color.LightGray -Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox9.Location = New System.Drawing.Point(9, 6) -Me.PictureBox9.Name = "PictureBox9" -Me.PictureBox9.Size = New System.Drawing.Size(160, 19) -Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox9.TabIndex = 166 -Me.PictureBox9.TabStop = false +Me.CBVideoHardcore.AutoSize = true +Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore +Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcore.Name = "CBVideoHardcore" +Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcore.TabIndex = 0 +Me.CBVideoHardcore.Text = "Hardcore" +Me.CBVideoHardcore.UseVisualStyleBackColor = true ' -'Label148 +'CBVideoSoftCore ' -Me.Label148.BackColor = System.Drawing.Color.Transparent -Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label148.ForeColor = System.Drawing.Color.Black -Me.Label148.Location = New System.Drawing.Point(7, 6) -Me.Label148.Name = "Label148" -Me.Label148.Size = New System.Drawing.Size(692, 21) -Me.Label148.TabIndex = 48 -Me.Label148.Text = "Miscellaneous Settings" -Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBVideoSoftCore.AutoSize = true +Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore +Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCore.Name = "CBVideoSoftCore" +Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCore.TabIndex = 4 +Me.CBVideoSoftCore.Text = "Softcore" +Me.CBVideoSoftCore.UseVisualStyleBackColor = true ' -'TabPage28 +'CBVideoLesbian ' -Me.TabPage28.BackColor = System.Drawing.Color.Silver -Me.TabPage28.Controls.Add(Me.TabControl3) -Me.TabPage28.Location = New System.Drawing.Point(4, 22) -Me.TabPage28.Name = "TabPage28" -Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage28.Size = New System.Drawing.Size(720, 448) -Me.TabPage28.TabIndex = 20 -Me.TabPage28.Text = "Debug" +Me.CBVideoLesbian.AutoSize = true +Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian +Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbian.Name = "CBVideoLesbian" +Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbian.TabIndex = 8 +Me.CBVideoLesbian.Text = "Lesbian" +Me.CBVideoLesbian.UseVisualStyleBackColor = true +' +'CBVideoBlowjob +' +Me.CBVideoBlowjob.AutoSize = true +Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob +Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjob.Name = "CBVideoBlowjob" +Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjob.TabIndex = 12 +Me.CBVideoBlowjob.Text = "Blowjob" +Me.CBVideoBlowjob.UseVisualStyleBackColor = true ' -'TabControl3 +'CBVideoFemsub ' -Me.TabControl3.Controls.Add(Me.TabPage29) -Me.TabControl3.Controls.Add(Me.TabPage30) -Me.TabControl3.Location = New System.Drawing.Point(6, 6) -Me.TabControl3.Name = "TabControl3" -Me.TabControl3.SelectedIndex = 0 -Me.TabControl3.Size = New System.Drawing.Size(708, 437) -Me.TabControl3.TabIndex = 0 +Me.CBVideoFemsub.AutoSize = true +Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub +Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsub.Name = "CBVideoFemsub" +Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsub.TabIndex = 20 +Me.CBVideoFemsub.Text = "Femsub" +Me.CBVideoFemsub.UseVisualStyleBackColor = true ' -'TabPage29 +'CBVideoFemdom ' -Me.TabPage29.BackColor = System.Drawing.Color.LightGray -Me.TabPage29.Controls.Add(Me.Label143) -Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) -Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) -Me.TabPage29.Controls.Add(Me.GroupBox26) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) -Me.TabPage29.Controls.Add(Me.Label145) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) -Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) -Me.TabPage29.Controls.Add(Me.Label142) -Me.TabPage29.Controls.Add(Me.Label150) -Me.TabPage29.Controls.Add(Me.Label152) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) -Me.TabPage29.Controls.Add(Me.Label147) -Me.TabPage29.Location = New System.Drawing.Point(4, 22) -Me.TabPage29.Name = "TabPage29" -Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage29.Size = New System.Drawing.Size(700, 411) -Me.TabPage29.TabIndex = 0 -Me.TabPage29.Text = "TabPage29" +Me.CBVideoFemdom.AutoSize = true +Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom +Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdom.Name = "CBVideoFemdom" +Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdom.TabIndex = 16 +Me.CBVideoFemdom.Text = "Femdom" +Me.CBVideoFemdom.UseVisualStyleBackColor = true ' -'Label143 +'CBGlitterFeedScripts ' -Me.Label143.Location = New System.Drawing.Point(402, 46) -Me.Label143.Name = "Label143" -Me.Label143.Size = New System.Drawing.Size(67, 23) -Me.Label143.TabIndex = 15 -Me.Label143.Text = "Script Timer" -Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBGlitterFeedScripts.AutoSize = true +Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent +Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts +Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) +Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) +Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" +Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) +Me.CBGlitterFeedScripts.TabIndex = 146 +Me.CBGlitterFeedScripts.Text = "Scripts" +Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false ' -'LBLDebugScriptTime +'CBGlitterFeed ' -Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) -Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" -Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugScriptTime.TabIndex = 16 -Me.LBLDebugScriptTime.Text = "0" -Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBGlitterFeed.AutoSize = true +Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed +Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) +Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) +Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) +Me.CBGlitterFeed.Name = "CBGlitterFeed" +Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeed.TabIndex = 145 +Me.CBGlitterFeed.Text = "On" +Me.CBGlitterFeed.UseVisualStyleBackColor = true ' -'BTNDebugHoldEdgeTimer +'CBGlitterFeedOff ' -Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) -Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" -Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugHoldEdgeTimer.TabIndex = 14 -Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" -Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true +Me.CBGlitterFeedOff.AutoSize = true +Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff +Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) +Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) +Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" +Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeedOff.TabIndex = 147 +Me.CBGlitterFeedOff.TabStop = true +Me.CBGlitterFeedOff.Text = "Off" +Me.CBGlitterFeedOff.UseVisualStyleBackColor = true ' -'GroupBox26 +'LBLGlitterNCDomme ' -Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) -Me.GroupBox26.Controls.Add(Me.Button19) -Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) -Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) -Me.GroupBox26.Location = New System.Drawing.Point(6, 5) -Me.GroupBox26.Name = "GroupBox26" -Me.GroupBox26.Size = New System.Drawing.Size(346, 178) -Me.GroupBox26.TabIndex = 0 -Me.GroupBox26.TabStop = false -Me.GroupBox26.Text = "Taunt Cycle" +Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White +Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor +Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" +Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNCDomme.TabIndex = 163 +Me.LBLGlitterNCDomme.Text = "Preview" +Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLCycleDebugCountdown +'CBCustom2 ' -Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) -Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" -Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) -Me.LBLCycleDebugCountdown.TabIndex = 10 -Me.LBLCycleDebugCountdown.Text = "0" -Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBCustom2.AutoSize = true +Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 +Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom2.ForeColor = System.Drawing.Color.Black +Me.CBCustom2.Location = New System.Drawing.Point(149, 121) +Me.CBCustom2.Name = "CBCustom2" +Me.CBCustom2.Size = New System.Drawing.Size(70, 17) +Me.CBCustom2.TabIndex = 161 +Me.CBCustom2.Text = "Custom 2" +Me.CBCustom2.UseVisualStyleBackColor = true ' -'Button19 +'GlitterSlider ' -Me.Button19.Location = New System.Drawing.Point(191, 142) -Me.Button19.Name = "Button19" -Me.Button19.Size = New System.Drawing.Size(146, 30) -Me.Button19.TabIndex = 9 -Me.Button19.Text = "Countdown to 5 Seconds" -Me.Button19.UseVisualStyleBackColor = true +Me.GlitterSlider.AutoSize = false +Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider.LargeChange = 1 +Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider.Maximum = 9 +Me.GlitterSlider.Minimum = 1 +Me.GlitterSlider.Name = "GlitterSlider" +Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider.TabIndex = 160 +Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider ' -'BTNDebugTauntsClear +'CBCustom1 ' -Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) -Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" -Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) -Me.BTNDebugTauntsClear.TabIndex = 8 -Me.BTNDebugTauntsClear.Text = "Clear" -Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true +Me.CBCustom1.AutoSize = true +Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 +Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom1.ForeColor = System.Drawing.Color.Black +Me.CBCustom1.Location = New System.Drawing.Point(149, 98) +Me.CBCustom1.Name = "CBCustom1" +Me.CBCustom1.Size = New System.Drawing.Size(70, 17) +Me.CBCustom1.TabIndex = 157 +Me.CBCustom1.Text = "Custom 1" +Me.CBCustom1.UseVisualStyleBackColor = true ' -'TBDebugTaunts3 +'CBDaily ' -Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) -Me.TBDebugTaunts3.Name = "TBDebugTaunts3" -Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts3.TabIndex = 7 +Me.CBDaily.AutoSize = true +Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily +Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBDaily.ForeColor = System.Drawing.Color.Black +Me.CBDaily.Location = New System.Drawing.Point(79, 121) +Me.CBDaily.Name = "CBDaily" +Me.CBDaily.Size = New System.Drawing.Size(49, 17) +Me.CBDaily.TabIndex = 156 +Me.CBDaily.Text = "Daily" +Me.CBDaily.UseVisualStyleBackColor = true ' -'TBDebugTaunts2 +'CBTrivia ' -Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) -Me.TBDebugTaunts2.Name = "TBDebugTaunts2" -Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts2.TabIndex = 6 +Me.CBTrivia.AutoSize = true +Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia +Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTrivia.ForeColor = System.Drawing.Color.Black +Me.CBTrivia.Location = New System.Drawing.Point(79, 98) +Me.CBTrivia.Name = "CBTrivia" +Me.CBTrivia.Size = New System.Drawing.Size(52, 17) +Me.CBTrivia.TabIndex = 155 +Me.CBTrivia.Text = "Trivia" +Me.CBTrivia.UseVisualStyleBackColor = true ' -'TBDebugTaunts1 +'TBGlitterShortName ' -Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) -Me.TBDebugTaunts1.Name = "TBDebugTaunts1" -Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts1.TabIndex = 5 +Me.TBGlitterShortName.BackColor = System.Drawing.Color.White +Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black +Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) +Me.TBGlitterShortName.Name = "TBGlitterShortName" +Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) +Me.TBGlitterShortName.TabIndex = 49 +Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN +Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'RBDebugTaunts3 +'CBEgotist +' +Me.CBEgotist.AutoSize = true +Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist +Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBEgotist.ForeColor = System.Drawing.Color.Black +Me.CBEgotist.Location = New System.Drawing.Point(9, 121) +Me.CBEgotist.Name = "CBEgotist" +Me.CBEgotist.Size = New System.Drawing.Size(58, 17) +Me.CBEgotist.TabIndex = 153 +Me.CBEgotist.Text = "Egotist" +Me.CBEgotist.UseVisualStyleBackColor = true ' -Me.RBDebugTaunts3.AutoSize = true -Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) -Me.RBDebugTaunts3.Name = "RBDebugTaunts3" -Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts3.TabIndex = 4 -Me.RBDebugTaunts3.Text = "3 Lines" -Me.RBDebugTaunts3.UseVisualStyleBackColor = true +'CBTease ' -'RBDebugTaunts2 +Me.CBTease.AutoSize = true +Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease +Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTease.ForeColor = System.Drawing.Color.Black +Me.CBTease.Location = New System.Drawing.Point(9, 98) +Me.CBTease.Name = "CBTease" +Me.CBTease.Size = New System.Drawing.Size(56, 17) +Me.CBTease.TabIndex = 152 +Me.CBTease.Text = "Tease" +Me.CBTease.UseVisualStyleBackColor = true ' -Me.RBDebugTaunts2.AutoSize = true -Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) -Me.RBDebugTaunts2.Name = "RBDebugTaunts2" -Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts2.TabIndex = 3 -Me.RBDebugTaunts2.Text = "2 Lines" -Me.RBDebugTaunts2.UseVisualStyleBackColor = true +'TbxContact1ImageDir ' -'RBDebugTaunts1 +Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" +Me.TbxContact1ImageDir.ReadOnly = true +Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.TabIndex = 176 +Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir ' -Me.RBDebugTaunts1.AutoSize = true -Me.RBDebugTaunts1.Checked = true -Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) -Me.RBDebugTaunts1.Name = "RBDebugTaunts1" -Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) -Me.RBDebugTaunts1.TabIndex = 2 -Me.RBDebugTaunts1.TabStop = true -Me.RBDebugTaunts1.Text = "1 Line" -Me.RBDebugTaunts1.UseVisualStyleBackColor = true +'LBLGlitterNC1 ' -'CBDebugTauntsEndless +Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color +Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC1.Name = "LBLGlitterNC1" +Me.LBLGlitterNC1.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC1.TabIndex = 166 +Me.LBLGlitterNC1.Text = "Preview" +Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.CBDebugTauntsEndless.AutoSize = true -Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) -Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" -Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) -Me.CBDebugTauntsEndless.TabIndex = 1 -Me.CBDebugTauntsEndless.Text = "Endless Cycle" -Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true +'GlitterSlider1 ' -'CBDebugTaunts +Me.GlitterSlider1.AutoSize = false +Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider1.LargeChange = 1 +Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider1.Maximum = 9 +Me.GlitterSlider1.Minimum = 1 +Me.GlitterSlider1.Name = "GlitterSlider1" +Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider1.TabIndex = 161 +Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider ' -Me.CBDebugTaunts.AutoSize = true -Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) -Me.CBDebugTaunts.Name = "CBDebugTaunts" -Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) -Me.CBDebugTaunts.TabIndex = 0 -Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" -Me.CBDebugTaunts.UseVisualStyleBackColor = true +'CBGlitter1 ' -'BTNDebugStrokeTauntTimer +Me.CBGlitter1.AutoSize = true +Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 +Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter1.ForeColor = System.Drawing.Color.Black +Me.CBGlitter1.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter1.Name = "CBGlitter1" +Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter1.TabIndex = 151 +Me.CBGlitter1.Text = "Enable This Contact" +Me.CBGlitter1.UseVisualStyleBackColor = true ' -Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) -Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" -Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTauntTimer.TabIndex = 8 -Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" -Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true +'TBGlitter1 ' -'LBLDebugHoldEdgeTime +Me.TBGlitter1.BackColor = System.Drawing.Color.White +Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter1.ForeColor = System.Drawing.Color.Black +Me.TBGlitter1.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter1.Name = "TBGlitter1" +Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter1.TabIndex = 49 +Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 +Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) -Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" -Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugHoldEdgeTime.TabIndex = 13 -Me.LBLDebugHoldEdgeTime.Text = "0" -Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'TbxContact3ImageDir ' -'Label145 +Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" +Me.TbxContact3ImageDir.ReadOnly = true +Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.TabIndex = 178 +Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir ' -Me.Label145.Location = New System.Drawing.Point(402, 11) -Me.Label145.Name = "Label145" -Me.Label145.Size = New System.Drawing.Size(67, 23) -Me.Label145.TabIndex = 3 -Me.Label145.Text = "Tease Timer" -Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLGlitterNC3 ' -'BTNDebugStrokeTime +Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color +Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC3.Name = "LBLGlitterNC3" +Me.LBLGlitterNC3.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC3.TabIndex = 166 +Me.LBLGlitterNC3.Text = "Preview" +Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) -Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" -Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTime.TabIndex = 2 -Me.BTNDebugStrokeTime.Text = "Set to 5" -Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true +'GlitterSlider3 ' -'BTNDebugEdgeTauntTimer +Me.GlitterSlider3.AutoSize = false +Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider3.LargeChange = 1 +Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider3.Maximum = 9 +Me.GlitterSlider3.Minimum = 1 +Me.GlitterSlider3.Name = "GlitterSlider3" +Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider3.TabIndex = 161 +Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider ' -Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) -Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" -Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugEdgeTauntTimer.TabIndex = 11 -Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" -Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true +'CBGlitter3 ' -'LBLDebugTeaseTime +Me.CBGlitter3.AutoSize = true +Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 +Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter3.ForeColor = System.Drawing.Color.Black +Me.CBGlitter3.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter3.Name = "CBGlitter3" +Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter3.TabIndex = 151 +Me.CBGlitter3.Text = "Enable This Contact" +Me.CBGlitter3.UseVisualStyleBackColor = true ' -Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) -Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" -Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugTeaseTime.TabIndex = 4 -Me.LBLDebugTeaseTime.Text = "0" -Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'TBGlitter3 ' -'LBLDebugStrokeTime +Me.TBGlitter3.BackColor = System.Drawing.Color.White +Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter3.ForeColor = System.Drawing.Color.Black +Me.TBGlitter3.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter3.Name = "TBGlitter3" +Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter3.TabIndex = 49 +Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 +Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) -Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" -Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTime.TabIndex = 1 -Me.LBLDebugStrokeTime.Text = "0" -Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'TbxContact2ImageDir ' -'LBLDebugEdgeTauntTime +Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" +Me.TbxContact2ImageDir.ReadOnly = true +Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.TabIndex = 178 +Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir ' -Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) -Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" -Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugEdgeTauntTime.TabIndex = 10 -Me.LBLDebugEdgeTauntTime.Text = "0" -Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'LBLGlitterNC2 ' -'BTNDebugTeaseTimer +Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color +Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC2.Name = "LBLGlitterNC2" +Me.LBLGlitterNC2.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC2.TabIndex = 166 +Me.LBLGlitterNC2.Text = "Preview" +Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) -Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" -Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugTeaseTimer.TabIndex = 5 -Me.BTNDebugTeaseTimer.Text = "Set to 5" -Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true +'GlitterSlider2 ' -'Label142 +Me.GlitterSlider2.AutoSize = false +Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider2.LargeChange = 1 +Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider2.Maximum = 9 +Me.GlitterSlider2.Minimum = 1 +Me.GlitterSlider2.Name = "GlitterSlider2" +Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider2.TabIndex = 161 +Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider ' -Me.Label142.Location = New System.Drawing.Point(402, 121) -Me.Label142.Name = "Label142" -Me.Label142.Size = New System.Drawing.Size(67, 23) -Me.Label142.TabIndex = 0 -Me.Label142.Text = "Stroke Timer" -Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBGlitter2 ' -'Label150 +Me.CBGlitter2.AutoSize = true +Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 +Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter2.ForeColor = System.Drawing.Color.Black +Me.CBGlitter2.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter2.Name = "CBGlitter2" +Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter2.TabIndex = 151 +Me.CBGlitter2.Text = "Enable This Contact" +Me.CBGlitter2.UseVisualStyleBackColor = true ' -Me.Label150.Location = New System.Drawing.Point(402, 206) -Me.Label150.Name = "Label150" -Me.Label150.Size = New System.Drawing.Size(67, 27) -Me.Label150.TabIndex = 9 -Me.Label150.Text = "Edge Taunt Timer" -Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'TBGlitter2 ' -'Label152 +Me.TBGlitter2.BackColor = System.Drawing.Color.White +Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter2.ForeColor = System.Drawing.Color.Black +Me.TBGlitter2.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter2.Name = "TBGlitter2" +Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter2.TabIndex = 49 +Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 +Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label152.Location = New System.Drawing.Point(402, 238) -Me.Label152.Name = "Label152" -Me.Label152.Size = New System.Drawing.Size(67, 40) -Me.Label152.TabIndex = 12 -Me.Label152.Text = "Hold Edge Timer" -Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBIncludeGifs ' -'LBLDebugStrokeTauntTime +Me.CBIncludeGifs.AutoSize = true +Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs +Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) +Me.CBIncludeGifs.Name = "CBIncludeGifs" +Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) +Me.CBIncludeGifs.TabIndex = 5 +Me.CBIncludeGifs.Text = "Match Game Includes Gifs " +Me.CBIncludeGifs.UseVisualStyleBackColor = true ' -Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) -Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" -Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTauntTime.TabIndex = 7 -Me.LBLDebugStrokeTauntTime.Text = "0" -Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GN6 ' -'Label147 +Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN6.Location = New System.Drawing.Point(86, 367) +Me.GN6.Name = "GN6" +Me.GN6.Size = New System.Drawing.Size(71, 20) +Me.GN6.TabIndex = 5 +Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 +Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label147.Location = New System.Drawing.Point(402, 143) -Me.Label147.Name = "Label147" -Me.Label147.Size = New System.Drawing.Size(67, 29) -Me.Label147.TabIndex = 6 -Me.Label147.Text = "Stroke Taunt Timer" -Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GP6 ' -'TabPage30 +Me.GP6.BackColor = System.Drawing.Color.Silver +Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 +Me.GP6.InitialImage = Nothing +Me.GP6.Location = New System.Drawing.Point(86, 268) +Me.GP6.Name = "GP6" +Me.GP6.Size = New System.Drawing.Size(71, 93) +Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP6.TabIndex = 17 +Me.GP6.TabStop = false ' -Me.TabPage30.BackColor = System.Drawing.Color.LightGray -Me.TabPage30.Controls.Add(Me.Button33) -Me.TabPage30.Controls.Add(Me.Button24) -Me.TabPage30.Location = New System.Drawing.Point(4, 22) -Me.TabPage30.Name = "TabPage30" -Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage30.Size = New System.Drawing.Size(700, 411) -Me.TabPage30.TabIndex = 1 -Me.TabPage30.Text = "TabPage30" +'GN2 ' -'Button33 +Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN2.Location = New System.Drawing.Point(86, 117) +Me.GN2.Name = "GN2" +Me.GN2.Size = New System.Drawing.Size(71, 20) +Me.GN2.TabIndex = 1 +Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 +Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Button33.Location = New System.Drawing.Point(6, 35) -Me.Button33.Name = "Button33" -Me.Button33.Size = New System.Drawing.Size(75, 23) -Me.Button33.TabIndex = 1 -Me.Button33.Text = "LoadState" -Me.Button33.UseVisualStyleBackColor = true +'GP2 ' -'Button24 +Me.GP2.BackColor = System.Drawing.Color.Silver +Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 +Me.GP2.InitialImage = Nothing +Me.GP2.Location = New System.Drawing.Point(86, 17) +Me.GP2.Name = "GP2" +Me.GP2.Size = New System.Drawing.Size(71, 94) +Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP2.TabIndex = 9 +Me.GP2.TabStop = false ' -Me.Button24.Location = New System.Drawing.Point(6, 6) -Me.Button24.Name = "Button24" -Me.Button24.Size = New System.Drawing.Size(75, 23) -Me.Button24.TabIndex = 0 -Me.Button24.Text = "SaveState" -Me.Button24.UseVisualStyleBackColor = true +'GP5 ' -'TabPage5 +Me.GP5.BackColor = System.Drawing.Color.Silver +Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 +Me.GP5.InitialImage = Nothing +Me.GP5.Location = New System.Drawing.Point(9, 268) +Me.GP5.Name = "GP5" +Me.GP5.Size = New System.Drawing.Size(71, 93) +Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP5.TabIndex = 15 +Me.GP5.TabStop = false ' -Me.TabPage5.BackColor = System.Drawing.Color.Silver -Me.TabPage5.Controls.Add(Me.Panel5) -Me.TabPage5.Location = New System.Drawing.Point(4, 22) -Me.TabPage5.Name = "TabPage5" -Me.TabPage5.Size = New System.Drawing.Size(720, 448) -Me.TabPage5.TabIndex = 17 -Me.TabPage5.Text = "About" +'GN1 ' -'Panel5 +Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN1.Location = New System.Drawing.Point(9, 117) +Me.GN1.Name = "GN1" +Me.GN1.Size = New System.Drawing.Size(71, 20) +Me.GN1.TabIndex = 0 +Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 +Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Panel5.BackColor = System.Drawing.Color.LightGray -Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel5.Controls.Add(Me.Label130) -Me.Panel5.Controls.Add(Me.Label123) -Me.Panel5.Controls.Add(Me.Label69) -Me.Panel5.Controls.Add(Me.Label113) -Me.Panel5.Controls.Add(Me.Label40) -Me.Panel5.Controls.Add(Me.Label35) -Me.Panel5.Controls.Add(Me.Label33) -Me.Panel5.Controls.Add(Me.Label17) -Me.Panel5.Controls.Add(Me.Label3) -Me.Panel5.Controls.Add(Me.PictureBox3) -Me.Panel5.Controls.Add(Me.Label41) -Me.Panel5.Location = New System.Drawing.Point(6, 6) -Me.Panel5.Name = "Panel5" -Me.Panel5.Size = New System.Drawing.Size(708, 437) -Me.Panel5.TabIndex = 92 +'GP1 ' -'Label130 +Me.GP1.BackColor = System.Drawing.Color.Silver +Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 +Me.GP1.InitialImage = Nothing +Me.GP1.Location = New System.Drawing.Point(9, 17) +Me.GP1.Name = "GP1" +Me.GP1.Size = New System.Drawing.Size(71, 94) +Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP1.TabIndex = 0 +Me.GP1.TabStop = false ' -Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label130.Location = New System.Drawing.Point(361, 314) -Me.Label130.Name = "Label130" -Me.Label130.Size = New System.Drawing.Size(254, 54) -Me.Label130.TabIndex = 176 -Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter +'GN5 ' -'Label123 +Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN5.Location = New System.Drawing.Point(9, 367) +Me.GN5.Name = "GN5" +Me.GN5.Size = New System.Drawing.Size(71, 20) +Me.GN5.TabIndex = 4 +Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 +Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label123.Location = New System.Drawing.Point(81, 314) -Me.Label123.Name = "Label123" -Me.Label123.Size = New System.Drawing.Size(254, 54) -Me.Label123.TabIndex = 175 -Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" -Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter +'GN3 ' -'Label69 +Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN3.Location = New System.Drawing.Point(9, 242) +Me.GN3.Name = "GN3" +Me.GN3.Size = New System.Drawing.Size(71, 20) +Me.GN3.TabIndex = 2 +Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 +Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +' +'GP3 ' -Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label69.Location = New System.Drawing.Point(35, 295) -Me.Label69.Name = "Label69" -Me.Label69.Size = New System.Drawing.Size(638, 22) -Me.Label69.TabIndex = 174 -Me.Label69.Text = "Triple Alfa" -Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GP3.BackColor = System.Drawing.Color.Silver +Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 +Me.GP3.InitialImage = Nothing +Me.GP3.Location = New System.Drawing.Point(9, 143) +Me.GP3.Name = "GP3" +Me.GP3.Size = New System.Drawing.Size(71, 93) +Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP3.TabIndex = 11 +Me.GP3.TabStop = false ' -'Label113 +'GP4 ' -Me.Label113.AutoSize = true -Me.Label113.Location = New System.Drawing.Point(4, 417) -Me.Label113.Name = "Label113" -Me.Label113.Size = New System.Drawing.Size(452, 13) -Me.Label113.TabIndex = 173 -Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ - "pective owners." +Me.GP4.BackColor = System.Drawing.Color.Silver +Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 +Me.GP4.InitialImage = Nothing +Me.GP4.Location = New System.Drawing.Point(86, 143) +Me.GP4.Name = "GP4" +Me.GP4.Size = New System.Drawing.Size(71, 93) +Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP4.TabIndex = 13 +Me.GP4.TabStop = false ' -'Label40 +'GN4 ' -Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label40.Location = New System.Drawing.Point(35, 273) -Me.Label40.Name = "Label40" -Me.Label40.Size = New System.Drawing.Size(638, 24) -Me.Label40.TabIndex = 171 -Me.Label40.Text = "Special Thanks" -Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN4.Location = New System.Drawing.Point(86, 242) +Me.GN4.Name = "GN4" +Me.GN4.Size = New System.Drawing.Size(71, 20) +Me.GN4.TabIndex = 3 +Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 +Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label35 +'CardBack ' -Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label35.Location = New System.Drawing.Point(32, 107) -Me.Label35.Name = "Label35" -Me.Label35.Size = New System.Drawing.Size(641, 77) -Me.Label35.TabIndex = 170 -Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ - "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ - "dditional files separately." -Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.CardBack.BackColor = System.Drawing.Color.Silver +Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack +Me.CardBack.InitialImage = Nothing +Me.CardBack.Location = New System.Drawing.Point(17, 28) +Me.CardBack.Name = "CardBack" +Me.CardBack.Size = New System.Drawing.Size(138, 179) +Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.CardBack.TabIndex = 18 +Me.CardBack.TabStop = false ' -'Label33 +'BN6 ' -Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label33.Location = New System.Drawing.Point(32, 191) -Me.Label33.Name = "Label33" -Me.Label33.Size = New System.Drawing.Size(641, 77) -Me.Label33.TabIndex = 169 -Me.Label33.Text = resources.GetString("Label33.Text") -Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN6.Location = New System.Drawing.Point(86, 368) +Me.BN6.Name = "BN6" +Me.BN6.Size = New System.Drawing.Size(71, 20) +Me.BN6.TabIndex = 5 +Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 +Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label17 +'BN3 ' -Me.Label17.AutoSize = true -Me.Label17.Location = New System.Drawing.Point(522, 78) -Me.Label17.Name = "Label17" -Me.Label17.Size = New System.Drawing.Size(93, 13) -Me.Label17.TabIndex = 168 -Me.Label17.Text = "Designed by 1885" +Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN3.Location = New System.Drawing.Point(9, 243) +Me.BN3.Name = "BN3" +Me.BN3.Size = New System.Drawing.Size(71, 20) +Me.BN3.TabIndex = 2 +Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 +Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label3 +'BP3 ' -Me.Label3.AutoSize = true -Me.Label3.Location = New System.Drawing.Point(489, 417) -Me.Label3.Name = "Label3" -Me.Label3.Size = New System.Drawing.Size(215, 13) -Me.Label3.TabIndex = 167 -Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" +Me.BP3.BackColor = System.Drawing.Color.Silver +Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 +Me.BP3.InitialImage = Nothing +Me.BP3.Location = New System.Drawing.Point(9, 144) +Me.BP3.Name = "BP3" +Me.BP3.Size = New System.Drawing.Size(71, 93) +Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP3.TabIndex = 11 +Me.BP3.TabStop = false ' -'PictureBox3 +'BP6 ' -Me.PictureBox3.BackColor = System.Drawing.Color.LightGray -Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big -Me.PictureBox3.Location = New System.Drawing.Point(84, 17) -Me.PictureBox3.Name = "PictureBox3" -Me.PictureBox3.Size = New System.Drawing.Size(531, 58) -Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PictureBox3.TabIndex = 166 -Me.PictureBox3.TabStop = false +Me.BP6.BackColor = System.Drawing.Color.Silver +Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 +Me.BP6.InitialImage = Nothing +Me.BP6.Location = New System.Drawing.Point(86, 269) +Me.BP6.Name = "BP6" +Me.BP6.Size = New System.Drawing.Size(71, 93) +Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP6.TabIndex = 17 +Me.BP6.TabStop = false ' -'Label41 +'BN2 ' -Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label41.Location = New System.Drawing.Point(35, 372) -Me.Label41.Name = "Label41" -Me.Label41.Size = New System.Drawing.Size(638, 39) -Me.Label41.TabIndex = 172 -Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ - "nity who's been supportive of my work over the years. Tease AI exists because of"& _ - " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN2.Location = New System.Drawing.Point(86, 118) +Me.BN2.Name = "BN2" +Me.BN2.Size = New System.Drawing.Size(71, 20) +Me.BN2.TabIndex = 1 +Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 +Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BtnRandomImageDirClear +'BN5 ' -Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) -Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" -Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnRandomImageDirClear.TabIndex = 181 -Me.BtnRandomImageDirClear.Text = "Clear" -Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false +Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN5.Location = New System.Drawing.Point(9, 368) +Me.BN5.Name = "BN5" +Me.BN5.Size = New System.Drawing.Size(71, 20) +Me.BN5.TabIndex = 4 +Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 +Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'GroupBox47 +'BP5 ' -Me.GroupBox47.BackColor = System.Drawing.Color.LightGray -Me.GroupBox47.Controls.Add(Me.GroupBox41) -Me.GroupBox47.Controls.Add(Me.GroupBox40) -Me.GroupBox47.ForeColor = System.Drawing.Color.Black -Me.GroupBox47.Location = New System.Drawing.Point(806, 255) -Me.GroupBox47.Name = "GroupBox47" -Me.GroupBox47.Size = New System.Drawing.Size(310, 190) -Me.GroupBox47.TabIndex = 63 -Me.GroupBox47.TabStop = false -Me.GroupBox47.Text = "Boobs and Butts Paths" +Me.BP5.BackColor = System.Drawing.Color.Silver +Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 +Me.BP5.InitialImage = Nothing +Me.BP5.Location = New System.Drawing.Point(9, 269) +Me.BP5.Name = "BP5" +Me.BP5.Size = New System.Drawing.Size(71, 93) +Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP5.TabIndex = 15 +Me.BP5.TabStop = false ' -'GroupBox41 +'BP2 ' -Me.GroupBox41.Controls.Add(Me.Button34) -Me.GroupBox41.Location = New System.Drawing.Point(6, 110) -Me.GroupBox41.Name = "GroupBox41" -Me.GroupBox41.Size = New System.Drawing.Size(298, 74) -Me.GroupBox41.TabIndex = 153 -Me.GroupBox41.TabStop = false -Me.GroupBox41.Text = "Butts" +Me.BP2.BackColor = System.Drawing.Color.Silver +Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 +Me.BP2.InitialImage = Nothing +Me.BP2.Location = New System.Drawing.Point(86, 19) +Me.BP2.Name = "BP2" +Me.BP2.Size = New System.Drawing.Size(71, 93) +Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP2.TabIndex = 9 +Me.BP2.TabStop = false ' -'Button34 +'BN1 ' -Me.Button34.BackColor = System.Drawing.Color.LightGray -Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.Button34.ForeColor = System.Drawing.Color.Black -Me.Button34.Location = New System.Drawing.Point(85, 25) -Me.Button34.Name = "Button34" -Me.Button34.Size = New System.Drawing.Size(34, 28) -Me.Button34.TabIndex = 131 -Me.Button34.Text = "1" -Me.Button34.UseVisualStyleBackColor = false +Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN1.Location = New System.Drawing.Point(9, 118) +Me.BN1.Name = "BN1" +Me.BN1.Size = New System.Drawing.Size(71, 20) +Me.BN1.TabIndex = 0 +Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 +Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'GroupBox40 +'BN4 ' -Me.GroupBox40.Location = New System.Drawing.Point(5, 35) -Me.GroupBox40.Name = "GroupBox40" -Me.GroupBox40.Size = New System.Drawing.Size(298, 74) -Me.GroupBox40.TabIndex = 152 -Me.GroupBox40.TabStop = false -Me.GroupBox40.Text = "Boobs" +Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN4.Location = New System.Drawing.Point(86, 243) +Me.BN4.Name = "BN4" +Me.BN4.Size = New System.Drawing.Size(71, 20) +Me.BN4.TabIndex = 3 +Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 +Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'GroupBox44 +'BP4 ' -Me.GroupBox44.BackColor = System.Drawing.Color.LightGray -Me.GroupBox44.Controls.Add(Me.Label100) -Me.GroupBox44.ForeColor = System.Drawing.Color.Black -Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) -Me.GroupBox44.Name = "GroupBox44" -Me.GroupBox44.Size = New System.Drawing.Size(310, 92) -Me.GroupBox44.TabIndex = 65 -Me.GroupBox44.TabStop = false -Me.GroupBox44.Text = "Description" +Me.BP4.BackColor = System.Drawing.Color.Silver +Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 +Me.BP4.InitialImage = Nothing +Me.BP4.Location = New System.Drawing.Point(86, 144) +Me.BP4.Name = "BP4" +Me.BP4.Size = New System.Drawing.Size(71, 93) +Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP4.TabIndex = 13 +Me.BP4.TabStop = false ' -'Label100 +'BP1 ' -Me.Label100.BackColor = System.Drawing.Color.Transparent -Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label100.ForeColor = System.Drawing.Color.Black -Me.Label100.Location = New System.Drawing.Point(11, 16) -Me.Label100.Name = "Label100" -Me.Label100.Size = New System.Drawing.Size(286, 73) -Me.Label100.TabIndex = 62 -Me.Label100.Text = resources.GetString("Label100.Text") -Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BP1.BackColor = System.Drawing.Color.Silver +Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 +Me.BP1.InitialImage = Nothing +Me.BP1.Location = New System.Drawing.Point(9, 19) +Me.BP1.Name = "BP1" +Me.BP1.Size = New System.Drawing.Size(71, 93) +Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP1.TabIndex = 0 +Me.BP1.TabStop = false +Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 ' -'GroupBox6 +'SN6 ' -Me.GroupBox6.Controls.Add(Me.Label4) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) -Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) -Me.GroupBox6.Controls.Add(Me.Label94) -Me.GroupBox6.Controls.Add(Me.LBLLastRuined) -Me.GroupBox6.Controls.Add(Me.Label65) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) -Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) -Me.GroupBox6.Controls.Add(Me.Label14) -Me.GroupBox6.Controls.Add(Me.Label13) -Me.GroupBox6.Controls.Add(Me.Label1) -Me.GroupBox6.Location = New System.Drawing.Point(27, 114) -Me.GroupBox6.Name = "GroupBox6" -Me.GroupBox6.Size = New System.Drawing.Size(283, 102) -Me.GroupBox6.TabIndex = 156 -Me.GroupBox6.TabStop = false -Me.GroupBox6.Text = "Performance" +Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN6.Location = New System.Drawing.Point(86, 368) +Me.SN6.Name = "SN6" +Me.SN6.Size = New System.Drawing.Size(71, 20) +Me.SN6.TabIndex = 5 +Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 +Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label4 +'SP6 ' -Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label4.Location = New System.Drawing.Point(26, 16) -Me.Label4.Name = "Label4" -Me.Label4.Size = New System.Drawing.Size(77, 17) -Me.Label4.TabIndex = 147 -Me.Label4.Text = "Stroking Time" -Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SP6.BackColor = System.Drawing.Color.Silver +Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 +Me.SP6.InitialImage = Nothing +Me.SP6.Location = New System.Drawing.Point(86, 269) +Me.SP6.Name = "SP6" +Me.SP6.Size = New System.Drawing.Size(71, 93) +Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP6.TabIndex = 17 +Me.SP6.TabStop = false ' -'LBLAvgEdgeStroking +'SN2 ' -Me.LBLAvgEdgeStroking.AutoSize = true -Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) -Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" -Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeStroking.TabIndex = 144 -Me.LBLAvgEdgeStroking.Text = "00:00" -Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN2.Location = New System.Drawing.Point(86, 118) +Me.SN2.Name = "SN2" +Me.SN2.Size = New System.Drawing.Size(71, 20) +Me.SN2.TabIndex = 1 +Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 +Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLStrokeTimeTotal +'SP2 ' -Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) -Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" -Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) -Me.LBLStrokeTimeTotal.TabIndex = 148 -Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" -Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SP2.BackColor = System.Drawing.Color.Silver +Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 +Me.SP2.InitialImage = Nothing +Me.SP2.Location = New System.Drawing.Point(86, 19) +Me.SP2.Name = "SP2" +Me.SP2.Size = New System.Drawing.Size(71, 93) +Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP2.TabIndex = 9 +Me.SP2.TabStop = false ' -'Label94 +'SN1 ' -Me.Label94.BackColor = System.Drawing.Color.Transparent -Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label94.ForeColor = System.Drawing.Color.Black -Me.Label94.Location = New System.Drawing.Point(189, 16) -Me.Label94.Name = "Label94" -Me.Label94.Size = New System.Drawing.Size(65, 17) -Me.Label94.TabIndex = 150 -Me.Label94.Text = "Last Ruined" -Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN1.Location = New System.Drawing.Point(9, 118) +Me.SN1.Name = "SN1" +Me.SN1.Size = New System.Drawing.Size(71, 20) +Me.SN1.TabIndex = 0 +Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 +Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLLastRuined +'SP5 ' -Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) -Me.LBLLastRuined.Name = "LBLLastRuined" -Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) -Me.LBLLastRuined.TabIndex = 152 -Me.LBLLastRuined.Text = "04/28/2015" -Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SP5.BackColor = System.Drawing.Color.Silver +Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 +Me.SP5.InitialImage = Nothing +Me.SP5.Location = New System.Drawing.Point(9, 269) +Me.SP5.Name = "SP5" +Me.SP5.Size = New System.Drawing.Size(71, 93) +Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP5.TabIndex = 15 +Me.SP5.TabStop = false ' -'Label65 +'SP1 ' -Me.Label65.BackColor = System.Drawing.Color.Transparent -Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label65.ForeColor = System.Drawing.Color.Black -Me.Label65.Location = New System.Drawing.Point(103, 16) -Me.Label65.Name = "Label65" -Me.Label65.Size = New System.Drawing.Size(85, 17) -Me.Label65.TabIndex = 149 -Me.Label65.Text = "Last Orgasm" -Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SP1.BackColor = System.Drawing.Color.Silver +Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 +Me.SP1.InitialImage = Nothing +Me.SP1.Location = New System.Drawing.Point(9, 19) +Me.SP1.Name = "SP1" +Me.SP1.Size = New System.Drawing.Size(71, 93) +Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP1.TabIndex = 0 +Me.SP1.TabStop = false ' -'LBLAvgEdgeNoTouch +'SN5 ' -Me.LBLAvgEdgeNoTouch.AutoSize = true -Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) -Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" -Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeNoTouch.TabIndex = 146 -Me.LBLAvgEdgeNoTouch.Text = "00:00" -Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN5.Location = New System.Drawing.Point(9, 368) +Me.SN5.Name = "SN5" +Me.SN5.Size = New System.Drawing.Size(71, 20) +Me.SN5.TabIndex = 4 +Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 +Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLLastOrgasm +'SN3 ' -Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) -Me.LBLLastOrgasm.Name = "LBLLastOrgasm" -Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) -Me.LBLLastOrgasm.TabIndex = 151 -Me.LBLLastOrgasm.Text = "04/28/2015" -Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN3.Location = New System.Drawing.Point(9, 243) +Me.SN3.Name = "SN3" +Me.SN3.Size = New System.Drawing.Size(71, 20) +Me.SN3.TabIndex = 2 +Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 +Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label14 +'SN4 ' -Me.Label14.BackColor = System.Drawing.Color.Transparent -Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label14.ForeColor = System.Drawing.Color.Black -Me.Label14.Location = New System.Drawing.Point(25, 48) -Me.Label14.Name = "Label14" -Me.Label14.Size = New System.Drawing.Size(238, 17) -Me.Label14.TabIndex = 138 -Me.Label14.Text = "Average Time to Edge" -Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN4.Location = New System.Drawing.Point(86, 243) +Me.SN4.Name = "SN4" +Me.SN4.Size = New System.Drawing.Size(71, 20) +Me.SN4.TabIndex = 3 +Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 +Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label13 +'SP3 ' -Me.Label13.AutoSize = true -Me.Label13.Location = New System.Drawing.Point(177, 68) -Me.Label13.Name = "Label13" -Me.Label13.Size = New System.Drawing.Size(32, 13) -Me.Label13.TabIndex = 145 -Me.Label13.Text = "Rest:" -Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SP3.BackColor = System.Drawing.Color.Silver +Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 +Me.SP3.InitialImage = Nothing +Me.SP3.Location = New System.Drawing.Point(9, 144) +Me.SP3.Name = "SP3" +Me.SP3.Size = New System.Drawing.Size(71, 93) +Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP3.TabIndex = 11 +Me.SP3.TabStop = false ' -'Label1 +'SP4 ' -Me.Label1.AutoSize = true -Me.Label1.Location = New System.Drawing.Point(28, 68) -Me.Label1.Name = "Label1" -Me.Label1.Size = New System.Drawing.Size(79, 13) -Me.Label1.TabIndex = 143 -Me.Label1.Text = "While Stroking:" -Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SP4.BackColor = System.Drawing.Color.Silver +Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 +Me.SP4.InitialImage = Nothing +Me.SP4.Location = New System.Drawing.Point(86, 144) +Me.SP4.Name = "SP4" +Me.SP4.Size = New System.Drawing.Size(71, 93) +Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP4.TabIndex = 13 +Me.SP4.TabStop = false ' -'GroupBox21 +'LBLDateTimeColor2 ' -Me.GroupBox21.BackColor = System.Drawing.Color.LightGray -Me.GroupBox21.Controls.Add(Me.Label153) -Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) -Me.GroupBox21.Controls.Add(Me.GroupBox6) -Me.GroupBox21.Controls.Add(Me.Label156) -Me.GroupBox21.ForeColor = System.Drawing.Color.Black -Me.GroupBox21.Location = New System.Drawing.Point(797, 55) -Me.GroupBox21.Name = "GroupBox21" -Me.GroupBox21.Size = New System.Drawing.Size(316, 136) -Me.GroupBox21.TabIndex = 66 -Me.GroupBox21.TabStop = false -Me.GroupBox21.Text = "Description" +Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor +Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) +Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" +Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateTimeColor2.TabIndex = 19 ' -'Label153 +'LBLDateBackColor2 ' -Me.Label153.BackColor = System.Drawing.Color.Transparent -Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label153.ForeColor = System.Drawing.Color.Black -Me.Label153.Location = New System.Drawing.Point(78, 94) -Me.Label153.Name = "Label153" -Me.Label153.Size = New System.Drawing.Size(158, 17) -Me.Label153.TabIndex = 135 -Me.Label153.Text = "No path selected" -Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor +Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) +Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateBackColor2.Name = "LBLDateBackColor2" +Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateBackColor2.TabIndex = 22 ' -'LBLRangeSettingsDescription +'LBLChatWindowColor2 ' -Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) -Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" -Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) -Me.LBLRangeSettingsDescription.TabIndex = 62 -Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor +Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) +Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" +Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatWindowColor2.TabIndex = 12 ' -'Label156 +'LBLTextColor2 ' -Me.Label156.BackColor = System.Drawing.Color.Transparent -Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label156.ForeColor = System.Drawing.Color.Black -Me.Label156.Location = New System.Drawing.Point(133, 23) -Me.Label156.Name = "Label156" -Me.Label156.Size = New System.Drawing.Size(158, 17) -Me.Label156.TabIndex = 135 -Me.Label156.Text = "No path selected" -Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor +Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) +Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLTextColor2.Name = "LBLTextColor2" +Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLTextColor2.TabIndex = 9 ' -'GroupBox12 +'LBLBackColor2 ' -Me.GroupBox12.BackColor = System.Drawing.Color.LightGray -Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) -Me.GroupBox12.ForeColor = System.Drawing.Color.Black -Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) -Me.GroupBox12.Name = "GroupBox12" -Me.GroupBox12.Size = New System.Drawing.Size(171, 124) -Me.GroupBox12.TabIndex = 65 -Me.GroupBox12.TabStop = false -Me.GroupBox12.Text = "Description" +Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor +Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) +Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLBackColor2.Name = "LBLBackColor2" +Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLBackColor2.TabIndex = 3 ' -'LBLSubSettingsDescription +'LBLChatTextColor2 ' -Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) -Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" -Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) -Me.LBLSubSettingsDescription.TabIndex = 62 -Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." +Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor +Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) +Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatTextColor2.Name = "LBLChatTextColor2" +Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatTextColor2.TabIndex = 16 ' -'OpenFileDialog1 +'LBLButtonColor2 ' -Me.OpenFileDialog1.FileName = "OpenFileDialog1" -Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ - "s (*.*)|*.*" -Me.OpenFileDialog1.Title = "Select an image file" +Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor +Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) +Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLButtonColor2.Name = "LBLButtonColor2" +Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLButtonColor2.TabIndex = 6 ' -'GetColor +'TimedWriting ' -Me.GetColor.Color = System.Drawing.Color.SteelBlue +Me.TimedWriting.AutoSize = true +Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting +Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TimedWriting.Location = New System.Drawing.Point(9, 19) +Me.TimedWriting.Name = "TimedWriting" +Me.TimedWriting.Size = New System.Drawing.Size(123, 17) +Me.TimedWriting.TabIndex = 1 +Me.TimedWriting.Text = "Timed Writing Tasks" +Me.TimedWriting.UseVisualStyleBackColor = true ' -'WebImageFileDialog +'TypeSpeedSlider ' -Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.WebImageFileDialog.Title = "Please select a URL File" +Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) +Me.TypeSpeedSlider.Maximum = 100 +Me.TypeSpeedSlider.Minimum = 33 +Me.TypeSpeedSlider.Name = "TypeSpeedSlider" +Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) +Me.TypeSpeedSlider.TabIndex = 3 +Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed ' -'OpenScriptDialog +'NBTaskCBTTimeMax ' -Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenScriptDialog.Title = "Please select a script" +Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) +Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" +Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMax.TabIndex = 203 +Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax ' -'OpenSettingsDialog +'NBTaskCBTTimeMin ' -Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenSettingsDialog.Title = "Please select a settings file to open" +Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) +Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" +Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMin.TabIndex = 202 +Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin ' -'SaveSettingsDialog +'NBTaskEdgeHoldTimeMax ' -Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" +Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) +Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" +Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 +Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax ' -'GroupBox65 +'NBTaskEdgeHoldTimeMin ' -Me.GroupBox65.BackColor = System.Drawing.Color.LightGray -Me.GroupBox65.Controls.Add(Me.Label136) -Me.GroupBox65.Controls.Add(Me.Label134) -Me.GroupBox65.Controls.Add(Me.Label132) -Me.GroupBox65.Controls.Add(Me.TrackBar1) -Me.GroupBox65.Controls.Add(Me.ComboBox1) -Me.GroupBox65.Controls.Add(Me.CheckBox1) -Me.GroupBox65.Controls.Add(Me.Label135) -Me.GroupBox65.Controls.Add(Me.TrackBar2) -Me.GroupBox65.ForeColor = System.Drawing.Color.Black -Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) -Me.GroupBox65.Name = "GroupBox65" -Me.GroupBox65.Size = New System.Drawing.Size(259, 117) -Me.GroupBox65.TabIndex = 157 -Me.GroupBox65.TabStop = false -Me.GroupBox65.Text = "Text to Speech" +Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) +Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" +Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 +Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin ' -'Label136 +'NBTaskEdgesMax ' -Me.Label136.AutoSize = true -Me.Label136.Location = New System.Drawing.Point(14, 52) -Me.Label136.Name = "Label136" -Me.Label136.Size = New System.Drawing.Size(45, 13) -Me.Label136.TabIndex = 32 -Me.Label136.Text = "Volume:" +Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) +Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" +Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMax.TabIndex = 194 +Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax ' -'Label134 +'NBTaskEdgesMin ' -Me.Label134.AutoSize = true -Me.Label134.Location = New System.Drawing.Point(141, 52) -Me.Label134.Name = "Label134" -Me.Label134.Size = New System.Drawing.Size(33, 13) -Me.Label134.TabIndex = 157 -Me.Label134.Text = "Rate:" +Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) +Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" +Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMin.TabIndex = 193 +Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin ' -'Label132 +'NBTaskStrokingTimeMax ' -Me.Label132.Location = New System.Drawing.Point(202, 52) -Me.Label132.Name = "Label132" -Me.Label132.Size = New System.Drawing.Size(45, 13) -Me.Label132.TabIndex = 158 -Me.Label132.Text = "100" -Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight +Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) +Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" +Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMax.TabIndex = 189 +Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax ' -'TrackBar1 +'NBTaskStrokingTimeMin ' -Me.TrackBar1.Location = New System.Drawing.Point(133, 68) -Me.TrackBar1.Minimum = -10 -Me.TrackBar1.Name = "TrackBar1" -Me.TrackBar1.Size = New System.Drawing.Size(120, 45) -Me.TrackBar1.TabIndex = 31 +Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) +Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" +Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMin.TabIndex = 188 +Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin ' -'ComboBox1 +'NBTaskStrokesMax ' -Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window -Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText -Me.ComboBox1.FormattingEnabled = true -Me.ComboBox1.Location = New System.Drawing.Point(71, 16) -Me.ComboBox1.Name = "ComboBox1" -Me.ComboBox1.Size = New System.Drawing.Size(178, 21) -Me.ComboBox1.TabIndex = 29 -Me.ComboBox1.TabStop = false +Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) +Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" +Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMax.TabIndex = 184 +Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax ' -'CheckBox1 +'NBTaskStrokesMin ' -Me.CheckBox1.AutoSize = true -Me.CheckBox1.ForeColor = System.Drawing.Color.Black -Me.CheckBox1.Location = New System.Drawing.Point(10, 18) -Me.CheckBox1.Name = "CheckBox1" -Me.CheckBox1.Size = New System.Drawing.Size(59, 17) -Me.CheckBox1.TabIndex = 28 -Me.CheckBox1.TabStop = false -Me.CheckBox1.Text = "Enable" -Me.CheckBox1.UseVisualStyleBackColor = true +Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) +Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" +Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMin.TabIndex = 183 +Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin ' -'Label135 +'NBCensorShowMin ' -Me.Label135.Location = New System.Drawing.Point(75, 52) -Me.Label135.Name = "Label135" -Me.Label135.Size = New System.Drawing.Size(45, 13) -Me.Label135.TabIndex = 33 -Me.Label135.Text = "100" -Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight +Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) +Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMin.Name = "NBCensorShowMin" +Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMin.TabIndex = 151 +Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin ' -'TrackBar2 +'NBCensorHideMax ' -Me.TrackBar2.Location = New System.Drawing.Point(6, 68) -Me.TrackBar2.Maximum = 100 -Me.TrackBar2.Name = "TrackBar2" -Me.TrackBar2.Size = New System.Drawing.Size(120, 45) -Me.TrackBar2.TabIndex = 30 -Me.TrackBar2.Value = 50 +Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) +Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMax.Name = "NBCensorHideMax" +Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMax.TabIndex = 156 +Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax ' -'TxbImgUrlHardcore +'NBCensorHideMin ' -Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) -Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" -Me.TxbImgUrlHardcore.ReadOnly = true -Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) -Me.TxbImgUrlHardcore.TabIndex = 145 +Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) +Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMin.Name = "NBCensorHideMin" +Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMin.TabIndex = 155 +Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin ' -'TextBox2 +'CBCensorConstant ' -Me.TextBox2.BackColor = System.Drawing.Color.LightGray -Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill -Me.TextBox2.Location = New System.Drawing.Point(116, 34) -Me.TextBox2.Name = "TextBox2" -Me.TextBox2.ReadOnly = true -Me.TextBox2.Size = New System.Drawing.Size(189, 20) -Me.TextBox2.TabIndex = 145 +Me.CBCensorConstant.AutoSize = true +Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant +Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black +Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) +Me.CBCensorConstant.Name = "CBCensorConstant" +Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) +Me.CBCensorConstant.TabIndex = 157 +Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" +Me.CBCensorConstant.UseVisualStyleBackColor = true ' -'Label169 +'NBCensorShowMax ' -Me.Label169.BackColor = System.Drawing.Color.Transparent -Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label169.ForeColor = System.Drawing.Color.Black -Me.Label169.Location = New System.Drawing.Point(220, 15) -Me.Label169.Name = "Label169" -Me.Label169.Size = New System.Drawing.Size(114, 19) -Me.Label169.TabIndex = 182 -Me.Label169.Text = "Contact Honorific" -Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) +Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMax.Name = "NBCensorShowMax" +Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMax.TabIndex = 152 +Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax ' 'BWURLFiles ' @@ -15446,48 +15446,25 @@ Me.GBGlitterD.ResumeLayout(false) Me.GBGlitterD.PerformLayout Me.GrbGlitterfeed.ResumeLayout(false) Me.GrbGlitterfeed.PerformLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter1.ResumeLayout(false) Me.GBGlitter1.PerformLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter3.ResumeLayout(false) Me.GBGlitter3.PerformLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter2.ResumeLayout(false) Me.GBGlitter2.PerformLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit Me.TpGames.ResumeLayout(false) Me.TpGames.PerformLayout Me.GbxCardsGold.ResumeLayout(false) Me.GbxCardsGold.PerformLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBackground.ResumeLayout(false) -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBronze.ResumeLayout(false) Me.GbxCardsBronze.PerformLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsSilver.ResumeLayout(false) Me.GbxCardsSilver.PerformLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit Me.TabPage6.ResumeLayout(false) Me.Panel10.ResumeLayout(false) Me.Panel10.PerformLayout @@ -15509,21 +15486,10 @@ Me.TabPage4.ResumeLayout(false) Me.Panel6.ResumeLayout(false) Me.GroupBox69.ResumeLayout(false) Me.GroupBox69.PerformLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox68.ResumeLayout(false) CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox67.ResumeLayout(false) -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox10.ResumeLayout(false) CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox57.ResumeLayout(false) @@ -15548,10 +15514,6 @@ CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox18.ResumeLayout(false) Me.GroupBox18.PerformLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.GBRangeOrgasmChance.ResumeLayout(false) Me.GBRangeOrgasmChance.PerformLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit @@ -15608,6 +15570,44 @@ Me.GroupBox65.ResumeLayout(false) Me.GroupBox65.PerformLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) End Sub From c7b4f559a8d2d75e8ed85bec2813c87e535285a1 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 6 May 2017 15:37:40 -0500 Subject: [PATCH 115/143] Last-minute updates --- README.md | 2 +- Tease AI/Form1.vb | 41 +++++++++++++++++++++-------------------- 2 files changed, 22 insertions(+), 21 deletions(-) diff --git a/README.md b/README.md index bee4c2d..0e8a9f5 100644 --- a/README.md +++ b/README.md @@ -68,7 +68,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Bugfixes: - * When Tease AI parses a Vocabulary file with no valid lines, it will now highlight the Vocabularly filename in orange instead of causing a crash. This works similarly to how the program will currently highlight the Keyword in red if it does not exist at all (dariobrun & 1885) + * When Tease AI parses a Vocabulary file with no valid lines, it will now highlight the Vocabularly filename in orange instead of causing a crash. This works similarly to how the program will currently highlight the Keyword in red if it does not exist at all. This only applies if Output Errors to Chat Window is selected, otherwise the #Keyword will just be removed from the line (dariobrun & 1885) * @EdgeHold() and similar Commands did not make the user hold the edge for the specified amount of time * @ShowImage[dir\*] and @ShowImage[dir\*.*] will now only return a random image file as opposed to any file type (dariobrun) * @FollowUp() would activate Commands inside follow up lines before the lines were displayed (dariobrun) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 90292b1..71d10fe 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8238,31 +8238,32 @@ StatusUpdateEnd: Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - - 'If My.Settings.CBOutputErrors = True Then 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - 'Else - 'StringClean = StringClean.Replace(keyword.Value, "") - 'End If + + If My.Settings.CBOutputErrors = True Then + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + Else + StringClean = StringClean.Replace(keyword.Value, "") + End If End If - 'Try - 'lines = FilterList(lines) - 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) - 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) - 'Catch ex As Exception - 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, - ' "Tease AI did not return a valid line while parsing vocabulary file.") - 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value - 'End Try - Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + 'Try + 'lines = FilterList(lines) + 'Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) + 'StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) + 'Catch ex As Exception + 'Log.WriteError("Error Processing vocabulary file: " & filepath, ex, + ' "Tease AI did not return a valid line while parsing vocabulary file.") + 'StringClean = "ERROR: Tease AI did not return a valid line while parsing vocabulary file: " & keyword.Value + 'End Try - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + Else + StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - End If + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + + End If End If lastKey = keyword.ToString Next From fce56d38c85e940f38d27bf72766658086483b01 Mon Sep 17 00:00:00 2001 From: 1885 Date: Sat, 6 May 2017 16:09:49 -0500 Subject: [PATCH 116/143] Misc Settings UI Fix Couple of groupboxes got resized, I don't know what happened --- Tease AI/Form2.Designer.vb | 17870 +++++++++++++++++------------------ 1 file changed, 8935 insertions(+), 8935 deletions(-) diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index cf7ea9e..4d128a7 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -37,6 +37,7 @@ Me.BtnRandomImageDir = New System.Windows.Forms.Button() Me.BtnImportSettings = New System.Windows.Forms.Button() Me.LblImportSettings = New System.Windows.Forms.Label() Me.GroupBox64 = New System.Windows.Forms.GroupBox() +Me.CBMuteMedia = New System.Windows.Forms.CheckBox() Me.GBDommeImages = New System.Windows.Forms.GroupBox() Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() Me.teaseRadio = New System.Windows.Forms.RadioButton() @@ -44,6 +45,7 @@ Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() Me.offRadio = New System.Windows.Forms.RadioButton() Me.BTNDomImageDir = New System.Windows.Forms.Button() Me.timedRadio = New System.Windows.Forms.RadioButton() +Me.TbxDomImageDir = New System.Windows.Forms.TextBox() Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() Me.LBLVRate = New System.Windows.Forms.Label() Me.Label93 = New System.Windows.Forms.Label() @@ -73,11 +75,13 @@ Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() Me.CBWebtease = New System.Windows.Forms.CheckBox() Me.GBSubFont = New System.Windows.Forms.GroupBox() Me.BTNSubColor = New System.Windows.Forms.Button() +Me.LBLSubColor = New System.Windows.Forms.Label() Me.NBFontSize = New System.Windows.Forms.NumericUpDown() Me.Label2 = New System.Windows.Forms.Label() Me.FontComboBox = New System.Windows.Forms.ComboBox() Me.GBDommeFont = New System.Windows.Forms.GroupBox() Me.BTNDomColor = New System.Windows.Forms.Button() +Me.LBLDomColor = New System.Windows.Forms.Label() Me.FontComboBoxD = New System.Windows.Forms.ComboBox() Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() Me.Label7 = New System.Windows.Forms.Label() @@ -159,6 +163,7 @@ Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() Me.crazyCheckBox = New System.Windows.Forms.CheckBox() Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() +Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() Me.orgasmlockrandombutton = New System.Windows.Forms.Button() Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() @@ -311,12 +316,77 @@ Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() +Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() +Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() +Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() +Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() +Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() +Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() +Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() +Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() +Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() +Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() +Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.BTNIHardcore = New System.Windows.Forms.Button() +Me.TbxIHardcore = New System.Windows.Forms.TextBox() +Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() +Me.CBIHardcore = New System.Windows.Forms.CheckBox() +Me.CBISoftcore = New System.Windows.Forms.CheckBox() +Me.TbxISoftcore = New System.Windows.Forms.TextBox() +Me.CBButtSubDir = New System.Windows.Forms.CheckBox() +Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() +Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() +Me.CBILezdomSD = New System.Windows.Forms.CheckBox() +Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() +Me.CBILesbianSD = New System.Windows.Forms.CheckBox() +Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() +Me.CBILesbian = New System.Windows.Forms.CheckBox() +Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjob = New System.Windows.Forms.CheckBox() +Me.CBIGaySD = New System.Windows.Forms.CheckBox() +Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() +Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() +Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() +Me.TbxIButts = New System.Windows.Forms.TextBox() +Me.CBIFemdom = New System.Windows.Forms.CheckBox() +Me.TbxILesbian = New System.Windows.Forms.TextBox() Me.BTNISoftcore = New System.Windows.Forms.Button() +Me.CBILezdom = New System.Windows.Forms.CheckBox() +Me.TbxIBoobs = New System.Windows.Forms.TextBox() +Me.CBIHentai = New System.Windows.Forms.CheckBox() +Me.TbxIBlowjob = New System.Windows.Forms.TextBox() +Me.CBIGay = New System.Windows.Forms.CheckBox() +Me.TbxIGeneral = New System.Windows.Forms.TextBox() +Me.CBIMaledom = New System.Windows.Forms.CheckBox() +Me.TbxIFemdom = New System.Windows.Forms.TextBox() Me.BTNILesbian = New System.Windows.Forms.Button() +Me.TbxICaptions = New System.Windows.Forms.TextBox() +Me.CBICaptions = New System.Windows.Forms.CheckBox() +Me.TbxILezdom = New System.Windows.Forms.TextBox() +Me.TbxIMaledom = New System.Windows.Forms.TextBox() Me.BTNButtPath = New System.Windows.Forms.Button() +Me.TbxIHentai = New System.Windows.Forms.TextBox() +Me.CBIGeneral = New System.Windows.Forms.CheckBox() +Me.TbxIGay = New System.Windows.Forms.TextBox() +Me.CBIBoobs = New System.Windows.Forms.CheckBox() +Me.CBIButts = New System.Windows.Forms.CheckBox() Me.BTNIBlowjob = New System.Windows.Forms.Button() Me.BTNIFemdom = New System.Windows.Forms.Button() Me.BTNBoobPath = New System.Windows.Forms.Button() @@ -509,17 +579,29 @@ Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() Me.BTNRefreshVideos = New System.Windows.Forms.Button() Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() +Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() Me.BTNVideoGeneralD = New System.Windows.Forms.Button() +Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotalD = New System.Windows.Forms.Label() Me.LblVideoJOITotalD = New System.Windows.Forms.Label() +Me.TxbVideoCHD = New System.Windows.Forms.TextBox() +Me.TxbVideoJOID = New System.Windows.Forms.TextBox() Me.BTNVideoCHD = New System.Windows.Forms.Button() Me.BTNVideoJOID = New System.Windows.Forms.Button() +Me.CBVideoJOID = New System.Windows.Forms.CheckBox() +Me.CBVideoCHD = New System.Windows.Forms.CheckBox() Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() +Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() +Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() +Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() Me.BTNVideoFemSubD = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoFemDomD = New System.Windows.Forms.Button() @@ -528,21 +610,39 @@ Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() Me.BTNVideoLesbianD = New System.Windows.Forms.Button() Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() +Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() Me.VideoDescriptionLabel = New System.Windows.Forms.Label() Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() +Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() Me.BTNVideoGeneral = New System.Windows.Forms.Button() +Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() Me.LblVideoCHTotal = New System.Windows.Forms.Label() Me.LblVideoJOITotal = New System.Windows.Forms.Label() +Me.TxbVideoCH = New System.Windows.Forms.TextBox() +Me.TxbVideoJOI = New System.Windows.Forms.TextBox() Me.BTNVideoCH = New System.Windows.Forms.Button() Me.BTNVideoJOI = New System.Windows.Forms.Button() +Me.CBVideoJOI = New System.Windows.Forms.CheckBox() +Me.CBVideoCH = New System.Windows.Forms.CheckBox() Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() +Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() +Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() +Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() +Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() +Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() Me.BTNVideoFemSub = New System.Windows.Forms.Button() Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoFemDom = New System.Windows.Forms.Button() @@ -551,6 +651,12 @@ Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() Me.BTNVideoLesbian = New System.Windows.Forms.Button() Me.BTNVideoSoftCore = New System.Windows.Forms.Button() Me.BTNVideoHardCore = New System.Windows.Forms.Button() +Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() +Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() +Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() +Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() +Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() +Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() Me.LblVideoHeader = New System.Windows.Forms.Label() Me.TabPage20 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() @@ -573,40 +679,105 @@ Me.Label121 = New System.Windows.Forms.Label() Me.Label122 = New System.Windows.Forms.Label() Me.GBGlitterD = New System.Windows.Forms.GroupBox() Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() +Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() +Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() Me.BTNGlitterD = New System.Windows.Forms.Button() +Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() Me.LBLGlitterSlider = New System.Windows.Forms.Label() +Me.CBCustom2 = New System.Windows.Forms.CheckBox() +Me.GlitterSlider = New System.Windows.Forms.TrackBar() +Me.CBCustom1 = New System.Windows.Forms.CheckBox() +Me.CBDaily = New System.Windows.Forms.CheckBox() +Me.CBTrivia = New System.Windows.Forms.CheckBox() +Me.TBGlitterShortName = New System.Windows.Forms.TextBox() +Me.CBEgotist = New System.Windows.Forms.CheckBox() +Me.CBTease = New System.Windows.Forms.CheckBox() Me.GlitterAV = New System.Windows.Forms.PictureBox() Me.GBGlitter1 = New System.Windows.Forms.GroupBox() Me.Label167 = New System.Windows.Forms.Label() Me.G1Honorific = New System.Windows.Forms.TextBox() Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact1ImageDir = New System.Windows.Forms.Button() +Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter1 = New System.Windows.Forms.Button() +Me.LBLGlitterNC1 = New System.Windows.Forms.Label() Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() +Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() +Me.CBGlitter1 = New System.Windows.Forms.CheckBox() +Me.TBGlitter1 = New System.Windows.Forms.TextBox() Me.GlitterAV1 = New System.Windows.Forms.PictureBox() Me.GBGlitter3 = New System.Windows.Forms.GroupBox() Me.Label168 = New System.Windows.Forms.Label() Me.G3Honorific = New System.Windows.Forms.TextBox() Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact3ImageDir = New System.Windows.Forms.Button() +Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter3 = New System.Windows.Forms.Button() +Me.LBLGlitterNC3 = New System.Windows.Forms.Label() Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() +Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() +Me.CBGlitter3 = New System.Windows.Forms.CheckBox() +Me.TBGlitter3 = New System.Windows.Forms.TextBox() Me.GlitterAV3 = New System.Windows.Forms.PictureBox() Me.GBGlitter2 = New System.Windows.Forms.GroupBox() Me.Label169 = New System.Windows.Forms.Label() Me.G2Honorific = New System.Windows.Forms.TextBox() Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() Me.BtnContact2ImageDir = New System.Windows.Forms.Button() +Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() Me.BTNGlitter2 = New System.Windows.Forms.Button() +Me.LBLGlitterNC2 = New System.Windows.Forms.Label() Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() +Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() +Me.CBGlitter2 = New System.Windows.Forms.CheckBox() +Me.TBGlitter2 = New System.Windows.Forms.TextBox() Me.GlitterAV2 = New System.Windows.Forms.PictureBox() Me.TpGames = New System.Windows.Forms.TabPage() +Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() Me.LblCardsSetupNote = New System.Windows.Forms.Label() Me.CBGameSounds = New System.Windows.Forms.CheckBox() Me.GbxCardsGold = New System.Windows.Forms.GroupBox() +Me.GN6 = New System.Windows.Forms.TextBox() +Me.GP6 = New System.Windows.Forms.PictureBox() +Me.GN2 = New System.Windows.Forms.TextBox() +Me.GP2 = New System.Windows.Forms.PictureBox() +Me.GP5 = New System.Windows.Forms.PictureBox() +Me.GN1 = New System.Windows.Forms.TextBox() +Me.GP1 = New System.Windows.Forms.PictureBox() +Me.GN5 = New System.Windows.Forms.TextBox() +Me.GN3 = New System.Windows.Forms.TextBox() +Me.GP3 = New System.Windows.Forms.PictureBox() +Me.GP4 = New System.Windows.Forms.PictureBox() +Me.GN4 = New System.Windows.Forms.TextBox() Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() +Me.CardBack = New System.Windows.Forms.PictureBox() Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() +Me.BN6 = New System.Windows.Forms.TextBox() +Me.BN3 = New System.Windows.Forms.TextBox() +Me.BP3 = New System.Windows.Forms.PictureBox() +Me.BP6 = New System.Windows.Forms.PictureBox() +Me.BN2 = New System.Windows.Forms.TextBox() +Me.BN5 = New System.Windows.Forms.TextBox() +Me.BP5 = New System.Windows.Forms.PictureBox() +Me.BP2 = New System.Windows.Forms.PictureBox() +Me.BN1 = New System.Windows.Forms.TextBox() +Me.BN4 = New System.Windows.Forms.TextBox() +Me.BP4 = New System.Windows.Forms.PictureBox() +Me.BP1 = New System.Windows.Forms.PictureBox() Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() +Me.SN6 = New System.Windows.Forms.TextBox() +Me.SP6 = New System.Windows.Forms.PictureBox() +Me.SN2 = New System.Windows.Forms.TextBox() +Me.SP2 = New System.Windows.Forms.PictureBox() +Me.SN1 = New System.Windows.Forms.TextBox() +Me.SP5 = New System.Windows.Forms.PictureBox() +Me.SP1 = New System.Windows.Forms.PictureBox() +Me.SN5 = New System.Windows.Forms.TextBox() +Me.SN3 = New System.Windows.Forms.TextBox() +Me.SN4 = New System.Windows.Forms.TextBox() +Me.SP3 = New System.Windows.Forms.PictureBox() +Me.SP4 = New System.Windows.Forms.PictureBox() Me.TabPage6 = New System.Windows.Forms.TabPage() Me.Panel10 = New System.Windows.Forms.Panel() Me.TBWishlistComment = New System.Windows.Forms.TextBox() @@ -637,13 +808,20 @@ Me.Button31 = New System.Windows.Forms.Button() Me.PictureBox10 = New System.Windows.Forms.PictureBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.CBTransparentTime = New System.Windows.Forms.CheckBox() +Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() Me.Label137 = New System.Windows.Forms.Label() Me.Label138 = New System.Windows.Forms.Label() +Me.LBLDateBackColor2 = New System.Windows.Forms.Label() Me.LBLTextColor = New System.Windows.Forms.Label() +Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() +Me.LBLTextColor2 = New System.Windows.Forms.Label() Me.LBLChatTextColor = New System.Windows.Forms.Label() +Me.LBLBackColor2 = New System.Windows.Forms.Label() Me.LBLButtonColor = New System.Windows.Forms.Label() Me.LBLChatWindowColor = New System.Windows.Forms.Label() Me.LBLBackColor = New System.Windows.Forms.Label() +Me.LBLChatTextColor2 = New System.Windows.Forms.Label() +Me.LBLButtonColor2 = New System.Windows.Forms.Label() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label144 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() @@ -658,6 +836,8 @@ Me.Panel6 = New System.Windows.Forms.Panel() Me.GroupBox69 = New System.Windows.Forms.GroupBox() Me.TypesSpeedVal = New System.Windows.Forms.Label() Me.TypeSpeedLabel = New System.Windows.Forms.Label() +Me.TimedWriting = New System.Windows.Forms.CheckBox() +Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() Me.GroupBox68 = New System.Windows.Forms.GroupBox() Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() @@ -665,16 +845,26 @@ Me.Label165 = New System.Windows.Forms.Label() Me.Label166 = New System.Windows.Forms.Label() Me.GroupBox67 = New System.Windows.Forms.GroupBox() Me.Label161 = New System.Windows.Forms.Label() +Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label162 = New System.Windows.Forms.Label() Me.Label163 = New System.Windows.Forms.Label() Me.Label158 = New System.Windows.Forms.Label() +Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label159 = New System.Windows.Forms.Label() Me.Label160 = New System.Windows.Forms.Label() +Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() Me.Label119 = New System.Windows.Forms.Label() Me.Label157 = New System.Windows.Forms.Label() Me.Label151 = New System.Windows.Forms.Label() +Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() Me.Label154 = New System.Windows.Forms.Label() Me.Label155 = New System.Windows.Forms.Label() +Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() +Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() Me.Label146 = New System.Windows.Forms.Label() Me.Label149 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() @@ -728,10 +918,15 @@ Me.Label29 = New System.Windows.Forms.Label() Me.GroupBox18 = New System.Windows.Forms.GroupBox() Me.Label108 = New System.Windows.Forms.Label() Me.Label109 = New System.Windows.Forms.Label() +Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() +Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() +Me.CBCensorConstant = New System.Windows.Forms.CheckBox() Me.Label25 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() +Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() Me.Label89 = New System.Windows.Forms.Label() Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() @@ -949,201 +1144,6 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.CBMuteMedia = New System.Windows.Forms.CheckBox() -Me.TbxDomImageDir = New System.Windows.Forms.TextBox() -Me.LBLSubColor = New System.Windows.Forms.Label() -Me.LBLDomColor = New System.Windows.Forms.Label() -Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() -Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() -Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() -Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() -Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() -Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() -Me.TbxIHardcore = New System.Windows.Forms.TextBox() -Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() -Me.CBIHardcore = New System.Windows.Forms.CheckBox() -Me.CBISoftcore = New System.Windows.Forms.CheckBox() -Me.TbxISoftcore = New System.Windows.Forms.TextBox() -Me.CBButtSubDir = New System.Windows.Forms.CheckBox() -Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() -Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() -Me.CBILezdomSD = New System.Windows.Forms.CheckBox() -Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() -Me.CBILesbianSD = New System.Windows.Forms.CheckBox() -Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() -Me.CBILesbian = New System.Windows.Forms.CheckBox() -Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjob = New System.Windows.Forms.CheckBox() -Me.CBIGaySD = New System.Windows.Forms.CheckBox() -Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() -Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() -Me.TbxIButts = New System.Windows.Forms.TextBox() -Me.CBIFemdom = New System.Windows.Forms.CheckBox() -Me.TbxILesbian = New System.Windows.Forms.TextBox() -Me.CBILezdom = New System.Windows.Forms.CheckBox() -Me.TbxIBoobs = New System.Windows.Forms.TextBox() -Me.CBIHentai = New System.Windows.Forms.CheckBox() -Me.TbxIBlowjob = New System.Windows.Forms.TextBox() -Me.CBIGay = New System.Windows.Forms.CheckBox() -Me.TbxIGeneral = New System.Windows.Forms.TextBox() -Me.CBIMaledom = New System.Windows.Forms.CheckBox() -Me.TbxIFemdom = New System.Windows.Forms.TextBox() -Me.TbxICaptions = New System.Windows.Forms.TextBox() -Me.CBICaptions = New System.Windows.Forms.CheckBox() -Me.TbxILezdom = New System.Windows.Forms.TextBox() -Me.TbxIMaledom = New System.Windows.Forms.TextBox() -Me.TbxIHentai = New System.Windows.Forms.TextBox() -Me.CBIGeneral = New System.Windows.Forms.CheckBox() -Me.TbxIGay = New System.Windows.Forms.TextBox() -Me.CBIBoobs = New System.Windows.Forms.CheckBox() -Me.CBIButts = New System.Windows.Forms.CheckBox() -Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() -Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() -Me.TxbVideoCHD = New System.Windows.Forms.TextBox() -Me.TxbVideoJOID = New System.Windows.Forms.TextBox() -Me.CBVideoJOID = New System.Windows.Forms.CheckBox() -Me.CBVideoCHD = New System.Windows.Forms.CheckBox() -Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() -Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() -Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() -Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() -Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() -Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() -Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() -Me.TxbVideoCH = New System.Windows.Forms.TextBox() -Me.TxbVideoJOI = New System.Windows.Forms.TextBox() -Me.CBVideoJOI = New System.Windows.Forms.CheckBox() -Me.CBVideoCH = New System.Windows.Forms.CheckBox() -Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() -Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() -Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() -Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() -Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() -Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() -Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() -Me.CBCustom2 = New System.Windows.Forms.CheckBox() -Me.GlitterSlider = New System.Windows.Forms.TrackBar() -Me.CBCustom1 = New System.Windows.Forms.CheckBox() -Me.CBDaily = New System.Windows.Forms.CheckBox() -Me.CBTrivia = New System.Windows.Forms.CheckBox() -Me.TBGlitterShortName = New System.Windows.Forms.TextBox() -Me.CBEgotist = New System.Windows.Forms.CheckBox() -Me.CBTease = New System.Windows.Forms.CheckBox() -Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() -Me.LBLGlitterNC1 = New System.Windows.Forms.Label() -Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() -Me.CBGlitter1 = New System.Windows.Forms.CheckBox() -Me.TBGlitter1 = New System.Windows.Forms.TextBox() -Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() -Me.LBLGlitterNC3 = New System.Windows.Forms.Label() -Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() -Me.CBGlitter3 = New System.Windows.Forms.CheckBox() -Me.TBGlitter3 = New System.Windows.Forms.TextBox() -Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() -Me.LBLGlitterNC2 = New System.Windows.Forms.Label() -Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() -Me.CBGlitter2 = New System.Windows.Forms.CheckBox() -Me.TBGlitter2 = New System.Windows.Forms.TextBox() -Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() -Me.GN6 = New System.Windows.Forms.TextBox() -Me.GP6 = New System.Windows.Forms.PictureBox() -Me.GN2 = New System.Windows.Forms.TextBox() -Me.GP2 = New System.Windows.Forms.PictureBox() -Me.GP5 = New System.Windows.Forms.PictureBox() -Me.GN1 = New System.Windows.Forms.TextBox() -Me.GP1 = New System.Windows.Forms.PictureBox() -Me.GN5 = New System.Windows.Forms.TextBox() -Me.GN3 = New System.Windows.Forms.TextBox() -Me.GP3 = New System.Windows.Forms.PictureBox() -Me.GP4 = New System.Windows.Forms.PictureBox() -Me.GN4 = New System.Windows.Forms.TextBox() -Me.CardBack = New System.Windows.Forms.PictureBox() -Me.BN6 = New System.Windows.Forms.TextBox() -Me.BN3 = New System.Windows.Forms.TextBox() -Me.BP3 = New System.Windows.Forms.PictureBox() -Me.BP6 = New System.Windows.Forms.PictureBox() -Me.BN2 = New System.Windows.Forms.TextBox() -Me.BN5 = New System.Windows.Forms.TextBox() -Me.BP5 = New System.Windows.Forms.PictureBox() -Me.BP2 = New System.Windows.Forms.PictureBox() -Me.BN1 = New System.Windows.Forms.TextBox() -Me.BN4 = New System.Windows.Forms.TextBox() -Me.BP4 = New System.Windows.Forms.PictureBox() -Me.BP1 = New System.Windows.Forms.PictureBox() -Me.SN6 = New System.Windows.Forms.TextBox() -Me.SP6 = New System.Windows.Forms.PictureBox() -Me.SN2 = New System.Windows.Forms.TextBox() -Me.SP2 = New System.Windows.Forms.PictureBox() -Me.SN1 = New System.Windows.Forms.TextBox() -Me.SP5 = New System.Windows.Forms.PictureBox() -Me.SP1 = New System.Windows.Forms.PictureBox() -Me.SN5 = New System.Windows.Forms.TextBox() -Me.SN3 = New System.Windows.Forms.TextBox() -Me.SN4 = New System.Windows.Forms.TextBox() -Me.SP3 = New System.Windows.Forms.PictureBox() -Me.SP4 = New System.Windows.Forms.PictureBox() -Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() -Me.LBLDateBackColor2 = New System.Windows.Forms.Label() -Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor2 = New System.Windows.Forms.Label() -Me.LBLBackColor2 = New System.Windows.Forms.Label() -Me.LBLChatTextColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor2 = New System.Windows.Forms.Label() -Me.TimedWriting = New System.Windows.Forms.CheckBox() -Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() -Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() -Me.CBCensorConstant = New System.Windows.Forms.CheckBox() -Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() Me.SettingsPanel.SuspendLayout Me.SettingsTabs.SuspendLayout @@ -1276,18 +1276,41 @@ Me.GroupBox14.SuspendLayout Me.GroupBox4.SuspendLayout Me.GBGlitterD.SuspendLayout Me.GrbGlitterfeed.SuspendLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter1.SuspendLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter3.SuspendLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit Me.GBGlitter2.SuspendLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit Me.TpGames.SuspendLayout Me.GbxCardsGold.SuspendLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBackground.SuspendLayout +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsBronze.SuspendLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit Me.GbxCardsSilver.SuspendLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage6.SuspendLayout Me.Panel10.SuspendLayout CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit @@ -1306,10 +1329,21 @@ CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit Me.TabPage4.SuspendLayout Me.Panel6.SuspendLayout Me.GroupBox69.SuspendLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox68.SuspendLayout CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox67.SuspendLayout +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox10.SuspendLayout CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox57.SuspendLayout @@ -1331,6 +1365,10 @@ CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox18.SuspendLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.GBRangeOrgasmChance.SuspendLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit @@ -1373,44 +1411,6 @@ Me.GroupBox12.SuspendLayout Me.GroupBox65.SuspendLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' 'SettingsPanel @@ -1588,6 +1588,20 @@ Me.GroupBox64.TabIndex = 157 Me.GroupBox64.TabStop = false Me.GroupBox64.Text = "Media Options" ' +'CBMuteMedia +' +Me.CBMuteMedia.AutoSize = true +Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia +Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black +Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) +Me.CBMuteMedia.Name = "CBMuteMedia" +Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) +Me.CBMuteMedia.TabIndex = 6 +Me.CBMuteMedia.TabStop = false +Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" +Me.CBMuteMedia.UseVisualStyleBackColor = true +' 'GBDommeImages ' Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray @@ -1682,6 +1696,20 @@ Me.timedRadio.Size = New System.Drawing.Size(14, 13) Me.timedRadio.TabIndex = 19 Me.timedRadio.UseVisualStyleBackColor = true ' +'TbxDomImageDir +' +Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) +Me.TbxDomImageDir.Name = "TbxDomImageDir" +Me.TbxDomImageDir.ReadOnly = true +Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) +Me.TbxDomImageDir.TabIndex = 0 +Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir +' 'GBGeneralTextToSpeech ' Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray @@ -2033,6 +2061,20 @@ Me.BTNSubColor.TabIndex = 8 Me.BTNSubColor.Text = "Sub Name Color" Me.BTNSubColor.UseVisualStyleBackColor = false ' +'LBLSubColor +' +Me.LBLSubColor.BackColor = System.Drawing.Color.White +Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor +Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) +Me.LBLSubColor.Name = "LBLSubColor" +Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) +Me.LBLSubColor.TabIndex = 0 +Me.LBLSubColor.Text = "Preview" +Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' 'NBFontSize ' Me.NBFontSize.BackColor = System.Drawing.Color.White @@ -2092,10 +2134,24 @@ Me.BTNDomColor.TabIndex = 5 Me.BTNDomColor.Text = "Domme Name Color" Me.BTNDomColor.UseVisualStyleBackColor = false ' -'FontComboBoxD +'LBLDomColor ' -Me.FontComboBoxD.FormattingEnabled = true -Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) +Me.LBLDomColor.BackColor = System.Drawing.Color.White +Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor +Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) +Me.LBLDomColor.Name = "LBLDomColor" +Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) +Me.LBLDomColor.TabIndex = 0 +Me.LBLDomColor.Text = "Preview" +Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'FontComboBoxD +' +Me.FontComboBoxD.FormattingEnabled = true +Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) Me.FontComboBoxD.Name = "FontComboBoxD" Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) Me.FontComboBoxD.TabIndex = 6 @@ -3125,6 +3181,19 @@ Me.GBDomOrgasms.TabIndex = 132 Me.GBDomOrgasms.TabStop = false Me.GBDomOrgasms.Text = "Orgasms" ' +'CBLockOrgasmChances +' +Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances +Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black +Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) +Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" +Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) +Me.CBLockOrgasmChances.TabIndex = 146 +Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" +Me.CBLockOrgasmChances.UseVisualStyleBackColor = true +' 'orgasmlockrandombutton ' Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray @@ -4966,10278 +5035,10209 @@ Me.BtnImageUrlSoftcore.TabIndex = 5 Me.BtnImageUrlSoftcore.Text = "1" Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false ' -'GbxImagesGenre +'ChbImageUrlHardcore ' -Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) -Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) -Me.GbxImagesGenre.Name = "GbxImagesGenre" -Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) -Me.GbxImagesGenre.TabIndex = 0 -Me.GbxImagesGenre.TabStop = false -Me.GbxImagesGenre.Text = "Local Images" +Me.ChbImageUrlHardcore.AutoSize = true +Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled +Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) +Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" +Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHardcore.TabIndex = 0 +Me.ChbImageUrlHardcore.Text = "Hardcore" +Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true ' -'TableLayoutPanel1 +'ChbImageUrlButts ' -Me.TableLayoutPanel1.ColumnCount = 4 -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) -Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) -Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) -Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) -Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill -Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize -Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) -Me.TableLayoutPanel1.Name = "TableLayoutPanel1" -Me.TableLayoutPanel1.RowCount = 13 -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) -Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) -Me.TableLayoutPanel1.TabIndex = 0 +Me.ChbImageUrlButts.AutoSize = true +Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled +Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) +Me.ChbImageUrlButts.Name = "ChbImageUrlButts" +Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) +Me.ChbImageUrlButts.TabIndex = 37 +Me.ChbImageUrlButts.Text = "Butts" +Me.ChbImageUrlButts.UseVisualStyleBackColor = true ' -'BTNIHardcore +'ChbImageUrlMaledom ' -Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray -Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black -Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) -Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHardcore.Name = "BTNIHardcore" -Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) -Me.BTNIHardcore.TabIndex = 1 -Me.BTNIHardcore.Text = "1" -Me.BTNIHardcore.UseVisualStyleBackColor = false +Me.ChbImageUrlMaledom.AutoSize = true +Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled +Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) +Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" +Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlMaledom.TabIndex = 25 +Me.ChbImageUrlMaledom.Text = "Maledom" +Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true ' -'BTNISoftcore +'ChbImageUrlGay ' -Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray -Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black -Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) -Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNISoftcore.Name = "BTNISoftcore" -Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) -Me.BTNISoftcore.TabIndex = 5 -Me.BTNISoftcore.Text = "1" -Me.BTNISoftcore.UseVisualStyleBackColor = false +Me.ChbImageUrlGay.AutoSize = true +Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled +Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) +Me.ChbImageUrlGay.Name = "ChbImageUrlGay" +Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGay.TabIndex = 22 +Me.ChbImageUrlGay.Text = "Gay" +Me.ChbImageUrlGay.UseVisualStyleBackColor = true ' -'BTNILesbian +'ChbImageUrlSoftcore ' -Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILesbian.ForeColor = System.Drawing.Color.Black -Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) -Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILesbian.Name = "BTNILesbian" -Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNILesbian.TabIndex = 9 -Me.BTNILesbian.Text = "1" -Me.BTNILesbian.UseVisualStyleBackColor = false +Me.ChbImageUrlSoftcore.AutoSize = true +Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled +Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) +Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" +Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlSoftcore.TabIndex = 4 +Me.ChbImageUrlSoftcore.Text = "Softcore" +Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true ' -'BTNButtPath +'ChbImageUrlBoobs ' -Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray -Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNButtPath.ForeColor = System.Drawing.Color.Black -Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) -Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNButtPath.Name = "BTNButtPath" -Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) -Me.BTNButtPath.TabIndex = 49 -Me.BTNButtPath.Text = "1" -Me.BTNButtPath.UseVisualStyleBackColor = false +Me.ChbImageUrlBoobs.AutoSize = true +Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled +Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) +Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" +Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBoobs.TabIndex = 34 +Me.ChbImageUrlBoobs.Text = "Boobs" +Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true ' -'BTNIBlowjob +'ChbImageUrlLesbian ' -Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIBlowjob.Name = "BTNIBlowjob" -Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNIBlowjob.TabIndex = 13 -Me.BTNIBlowjob.Text = "1" -Me.BTNIBlowjob.UseVisualStyleBackColor = false +Me.ChbImageUrlLesbian.AutoSize = true +Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled +Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) +Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" +Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLesbian.TabIndex = 7 +Me.ChbImageUrlLesbian.Text = "Lesbian" +Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true ' -'BTNIFemdom +'ChbImageUrlBlowjob ' -Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray -Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black -Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) -Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIFemdom.Name = "BTNIFemdom" -Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) -Me.BTNIFemdom.TabIndex = 17 -Me.BTNIFemdom.Text = "1" -Me.BTNIFemdom.UseVisualStyleBackColor = false +Me.ChbImageUrlBlowjob.AutoSize = true +Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled +Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) +Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" +Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlBlowjob.TabIndex = 10 +Me.ChbImageUrlBlowjob.Text = "Blowjob" +Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true ' -'BTNBoobPath +'ChbImageUrlCaptions ' -Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray -Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black -Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) -Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNBoobPath.Name = "BTNBoobPath" -Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) -Me.BTNBoobPath.TabIndex = 45 -Me.BTNBoobPath.Text = "1" -Me.BTNBoobPath.UseVisualStyleBackColor = false +Me.ChbImageUrlCaptions.AutoSize = true +Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled +Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) +Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" +Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlCaptions.TabIndex = 28 +Me.ChbImageUrlCaptions.Text = "Captions" +Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true ' -'BTNILezdom +'ChbImageUrlGeneral ' -Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray -Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILezdom.ForeColor = System.Drawing.Color.Black -Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) -Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILezdom.Name = "BTNILezdom" -Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) -Me.BTNILezdom.TabIndex = 21 -Me.BTNILezdom.Text = "1" -Me.BTNILezdom.UseVisualStyleBackColor = false +Me.ChbImageUrlGeneral.AutoSize = true +Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled +Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) +Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" +Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlGeneral.TabIndex = 31 +Me.ChbImageUrlGeneral.Text = "General" +Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true ' -'BTNIHentai +'ChbImageUrlFemdom ' -Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray -Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHentai.ForeColor = System.Drawing.Color.Black -Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) -Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHentai.Name = "BTNIHentai" -Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) -Me.BTNIHentai.TabIndex = 25 -Me.BTNIHentai.Text = "1" -Me.BTNIHentai.UseVisualStyleBackColor = false +Me.ChbImageUrlFemdom.AutoSize = true +Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled +Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) +Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" +Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlFemdom.TabIndex = 13 +Me.ChbImageUrlFemdom.Text = "Femdom" +Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true ' -'BTNIGay +'ChbImageUrlHentai ' -Me.BTNIGay.BackColor = System.Drawing.Color.LightGray -Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGay.ForeColor = System.Drawing.Color.Black -Me.BTNIGay.Location = New System.Drawing.Point(76, 203) -Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGay.Name = "BTNIGay" -Me.BTNIGay.Size = New System.Drawing.Size(34, 28) -Me.BTNIGay.TabIndex = 29 -Me.BTNIGay.Text = "1" -Me.BTNIGay.UseVisualStyleBackColor = false +Me.ChbImageUrlHentai.AutoSize = true +Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled +Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) +Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" +Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlHentai.TabIndex = 19 +Me.ChbImageUrlHentai.Text = "Hentai" +Me.ChbImageUrlHentai.UseVisualStyleBackColor = true ' -'BTNIMaledom +'ChbImageUrlLezdom ' -Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray -Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black -Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) -Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIMaledom.Name = "BTNIMaledom" -Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) -Me.BTNIMaledom.TabIndex = 33 -Me.BTNIMaledom.Text = "1" -Me.BTNIMaledom.UseVisualStyleBackColor = false +Me.ChbImageUrlLezdom.AutoSize = true +Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled +Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black +Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) +Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" +Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) +Me.ChbImageUrlLezdom.TabIndex = 16 +Me.ChbImageUrlLezdom.Text = "Lezdom" +Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true ' -'BTNICaptions +'TxbImageUrlBlowjob ' -Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray -Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNICaptions.ForeColor = System.Drawing.Color.Black -Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) -Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNICaptions.Name = "BTNICaptions" -Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) -Me.BTNICaptions.TabIndex = 37 -Me.BTNICaptions.Text = "1" -Me.BTNICaptions.UseVisualStyleBackColor = false +Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" +Me.TxbImageUrlBlowjob.ReadOnly = true +Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBlowjob.TabIndex = 12 +Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob ' -'BTNIGeneral +'TxbImageUrlSoftcore ' -Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) -Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGeneral.Name = "BTNIGeneral" -Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNIGeneral.TabIndex = 41 -Me.BTNIGeneral.Text = "1" -Me.BTNIGeneral.UseVisualStyleBackColor = false +Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) +Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" +Me.TxbImageUrlSoftcore.ReadOnly = true +Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlSoftcore.TabIndex = 6 +Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore ' -'TabPage33 +'TxbImageUrlLezdom ' -Me.TabPage33.BackColor = System.Drawing.Color.Silver -Me.TabPage33.Controls.Add(Me.TabControl5) -Me.TabPage33.Location = New System.Drawing.Point(4, 22) -Me.TabPage33.Name = "TabPage33" -Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage33.Size = New System.Drawing.Size(720, 448) -Me.TabPage33.TabIndex = 21 -Me.TabPage33.Text = "Tagging" +Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) +Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" +Me.TxbImageUrlLezdom.ReadOnly = true +Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLezdom.TabIndex = 18 +Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom ' -'TabControl5 +'TxbImageUrlFemdom ' -Me.TabControl5.Controls.Add(Me.TabPage34) -Me.TabControl5.Controls.Add(Me.TabPage35) -Me.TabControl5.Location = New System.Drawing.Point(6, 6) -Me.TabControl5.Name = "TabControl5" -Me.TabControl5.SelectedIndex = 0 -Me.TabControl5.Size = New System.Drawing.Size(708, 437) -Me.TabControl5.TabIndex = 0 +Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) +Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" +Me.TxbImageUrlFemdom.ReadOnly = true +Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlFemdom.TabIndex = 15 +Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom ' -'TabPage34 +'TxbImageUrlHardcore ' -Me.TabPage34.BackColor = System.Drawing.Color.LightGray -Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) -Me.TabPage34.Controls.Add(Me.CBTagAllFours) -Me.TabPage34.Controls.Add(Me.CBTagGlaring) -Me.TabPage34.Controls.Add(Me.CBTagSmiling) -Me.TabPage34.Controls.Add(Me.TBTagDir) -Me.TabPage34.Controls.Add(Me.CBTagPiercing) -Me.TabPage34.Controls.Add(Me.CBTagLegs) -Me.TabPage34.Controls.Add(Me.TBTagFurniture) -Me.TabPage34.Controls.Add(Me.CBTagFurniture) -Me.TabPage34.Controls.Add(Me.TBTagSexToy) -Me.TabPage34.Controls.Add(Me.CBTagSexToy) -Me.TabPage34.Controls.Add(Me.TBTagTattoo) -Me.TabPage34.Controls.Add(Me.CBTagTattoo) -Me.TabPage34.Controls.Add(Me.TBTagUnderwear) -Me.TabPage34.Controls.Add(Me.CBTagUnderwear) -Me.TabPage34.Controls.Add(Me.TBTagGarment) -Me.TabPage34.Controls.Add(Me.CBTagGarment) -Me.TabPage34.Controls.Add(Me.Label72) -Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) -Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) -Me.TabPage34.Controls.Add(Me.CBTagCloseUp) -Me.TabPage34.Controls.Add(Me.CBTagNaked) -Me.TabPage34.Controls.Add(Me.CBTagSideView) -Me.TabPage34.Controls.Add(Me.BTNTagPrevious) -Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) -Me.TabPage34.Controls.Add(Me.BTNTagNext) -Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) -Me.TabPage34.Controls.Add(Me.LBLTagCount) -Me.TabPage34.Controls.Add(Me.CBTagSucking) -Me.TabPage34.Controls.Add(Me.CBTagMasturbating) -Me.TabPage34.Controls.Add(Me.CBTagFeet) -Me.TabPage34.Controls.Add(Me.CBTagBoobs) -Me.TabPage34.Controls.Add(Me.CBTagAss) -Me.TabPage34.Controls.Add(Me.CBTagPussy) -Me.TabPage34.Controls.Add(Me.BTNTagSave) -Me.TabPage34.Controls.Add(Me.BTNTagDir) -Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) -Me.TabPage34.Controls.Add(Me.CBTagFace) -Me.TabPage34.Location = New System.Drawing.Point(4, 22) -Me.TabPage34.Name = "TabPage34" -Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage34.Size = New System.Drawing.Size(700, 411) -Me.TabPage34.TabIndex = 0 -Me.TabPage34.Text = "Domme Tags" -' -'CBTagSeeThrough -' -Me.CBTagSeeThrough.AutoSize = true -Me.CBTagSeeThrough.Enabled = false -Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) -Me.CBTagSeeThrough.Name = "CBTagSeeThrough" -Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) -Me.CBTagSeeThrough.TabIndex = 226 -Me.CBTagSeeThrough.Text = "See Through" -Me.CBTagSeeThrough.UseVisualStyleBackColor = true +Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) +Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" +Me.TxbImageUrlHardcore.ReadOnly = true +Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHardcore.TabIndex = 3 +Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore ' -'CBTagAllFours +'TxbImageUrlHentai ' -Me.CBTagAllFours.AutoSize = true -Me.CBTagAllFours.Enabled = false -Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black -Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) -Me.CBTagAllFours.Name = "CBTagAllFours" -Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) -Me.CBTagAllFours.TabIndex = 225 -Me.CBTagAllFours.Text = "All Fours" -Me.CBTagAllFours.UseVisualStyleBackColor = true +Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) +Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" +Me.TxbImageUrlHentai.ReadOnly = true +Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlHentai.TabIndex = 21 +Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai ' -'CBTagGlaring +'TxbImageUrlGay ' -Me.CBTagGlaring.AutoSize = true -Me.CBTagGlaring.Enabled = false -Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black -Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) -Me.CBTagGlaring.Name = "CBTagGlaring" -Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) -Me.CBTagGlaring.TabIndex = 224 -Me.CBTagGlaring.Text = "Glaring" -Me.CBTagGlaring.UseVisualStyleBackColor = true +Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) +Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.Name = "TxbImageUrlGay" +Me.TxbImageUrlGay.ReadOnly = true +Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGay.TabIndex = 24 +Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay ' -'CBTagSmiling +'TxbImageUrlLesbian ' -Me.CBTagSmiling.AutoSize = true -Me.CBTagSmiling.Enabled = false -Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black -Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) -Me.CBTagSmiling.Name = "CBTagSmiling" -Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) -Me.CBTagSmiling.TabIndex = 223 -Me.CBTagSmiling.Text = "Smiling" -Me.CBTagSmiling.UseVisualStyleBackColor = true +Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) +Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" +Me.TxbImageUrlLesbian.ReadOnly = true +Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlLesbian.TabIndex = 9 +Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian ' -'TBTagDir +'TxbImageUrlMaledom ' -Me.TBTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBTagDir.Name = "TBTagDir" -Me.TBTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBTagDir.TabIndex = 222 -Me.TBTagDir.Text = "Enter Image Directory" +Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) +Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" +Me.TxbImageUrlMaledom.ReadOnly = true +Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlMaledom.TabIndex = 27 +Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom ' -'CBTagPiercing +'TxbImageUrlCaptions ' -Me.CBTagPiercing.AutoSize = true -Me.CBTagPiercing.Enabled = false -Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black -Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) -Me.CBTagPiercing.Name = "CBTagPiercing" -Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) -Me.CBTagPiercing.TabIndex = 221 -Me.CBTagPiercing.Text = "Piercing" -Me.CBTagPiercing.UseVisualStyleBackColor = true +Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) +Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" +Me.TxbImageUrlCaptions.ReadOnly = true +Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlCaptions.TabIndex = 30 +Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions ' -'CBTagLegs +'TxbImageUrlGeneral ' -Me.CBTagLegs.AutoSize = true -Me.CBTagLegs.Enabled = false -Me.CBTagLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) -Me.CBTagLegs.Name = "CBTagLegs" -Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagLegs.TabIndex = 220 -Me.CBTagLegs.Text = "Legs" -Me.CBTagLegs.UseVisualStyleBackColor = true +Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) +Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" +Me.TxbImageUrlGeneral.ReadOnly = true +Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlGeneral.TabIndex = 33 +Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral ' -'TBTagFurniture +'TxbImageUrlBoobs ' -Me.TBTagFurniture.Enabled = false -Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) -Me.TBTagFurniture.Name = "TBTagFurniture" -Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) -Me.TBTagFurniture.TabIndex = 219 +Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) +Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" +Me.TxbImageUrlBoobs.ReadOnly = true +Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlBoobs.TabIndex = 36 +Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs ' -'CBTagFurniture +'TxbImageUrlButts ' -Me.CBTagFurniture.AutoSize = true -Me.CBTagFurniture.Enabled = false -Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black -Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) -Me.CBTagFurniture.Name = "CBTagFurniture" -Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) -Me.CBTagFurniture.TabIndex = 218 -Me.CBTagFurniture.Text = "Furniture" -Me.CBTagFurniture.UseVisualStyleBackColor = true +Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray +Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) +Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.Name = "TxbImageUrlButts" +Me.TxbImageUrlButts.ReadOnly = true +Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) +Me.TxbImageUrlButts.TabIndex = 39 +Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt ' -'TBTagSexToy +'GbxImagesGenre ' -Me.TBTagSexToy.Enabled = false -Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) -Me.TBTagSexToy.Name = "TBTagSexToy" -Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) -Me.TBTagSexToy.TabIndex = 217 +Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) +Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) +Me.GbxImagesGenre.Name = "GbxImagesGenre" +Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) +Me.GbxImagesGenre.TabIndex = 0 +Me.GbxImagesGenre.TabStop = false +Me.GbxImagesGenre.Text = "Local Images" ' -'CBTagSexToy +'TableLayoutPanel1 ' -Me.CBTagSexToy.AutoSize = true -Me.CBTagSexToy.Enabled = false -Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black -Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) -Me.CBTagSexToy.Name = "CBTagSexToy" -Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) -Me.CBTagSexToy.TabIndex = 216 -Me.CBTagSexToy.Text = "Sex Toy" -Me.CBTagSexToy.UseVisualStyleBackColor = true -' -'TBTagTattoo -' -Me.TBTagTattoo.Enabled = false -Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) -Me.TBTagTattoo.Name = "TBTagTattoo" -Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) -Me.TBTagTattoo.TabIndex = 215 -' -'CBTagTattoo -' -Me.CBTagTattoo.AutoSize = true -Me.CBTagTattoo.Enabled = false -Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) -Me.CBTagTattoo.Name = "CBTagTattoo" -Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) -Me.CBTagTattoo.TabIndex = 214 -Me.CBTagTattoo.Text = "Tattoo" -Me.CBTagTattoo.UseVisualStyleBackColor = true -' -'TBTagUnderwear -' -Me.TBTagUnderwear.Enabled = false -Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) -Me.TBTagUnderwear.Name = "TBTagUnderwear" -Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) -Me.TBTagUnderwear.TabIndex = 213 -' -'CBTagUnderwear -' -Me.CBTagUnderwear.AutoSize = true -Me.CBTagUnderwear.Enabled = false -Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black -Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) -Me.CBTagUnderwear.Name = "CBTagUnderwear" -Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) -Me.CBTagUnderwear.TabIndex = 212 -Me.CBTagUnderwear.Text = "Underwear" -Me.CBTagUnderwear.UseVisualStyleBackColor = true -' -'TBTagGarment -' -Me.TBTagGarment.Enabled = false -Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) -Me.TBTagGarment.Name = "TBTagGarment" -Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) -Me.TBTagGarment.TabIndex = 211 -' -'CBTagGarment -' -Me.CBTagGarment.AutoSize = true -Me.CBTagGarment.Enabled = false -Me.CBTagGarment.ForeColor = System.Drawing.Color.Black -Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) -Me.CBTagGarment.Name = "CBTagGarment" -Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) -Me.CBTagGarment.TabIndex = 210 -Me.CBTagGarment.Text = "Garment" -Me.CBTagGarment.UseVisualStyleBackColor = true -' -'Label72 -' -Me.Label72.BackColor = System.Drawing.Color.Transparent -Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label72.ForeColor = System.Drawing.Color.Black -Me.Label72.Location = New System.Drawing.Point(5, 368) -Me.Label72.Name = "Label72" -Me.Label72.Size = New System.Drawing.Size(451, 35) -Me.Label72.TabIndex = 189 -Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ - "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ - "e.g. Garment: dress)" -Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBTagHandsCovering -' -Me.CBTagHandsCovering.AutoSize = true -Me.CBTagHandsCovering.Enabled = false -Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) -Me.CBTagHandsCovering.Name = "CBTagHandsCovering" -Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) -Me.CBTagHandsCovering.TabIndex = 209 -Me.CBTagHandsCovering.Text = "Hands Covering" -Me.CBTagHandsCovering.UseVisualStyleBackColor = true -' -'CBTagGarmentCovering -' -Me.CBTagGarmentCovering.AutoSize = true -Me.CBTagGarmentCovering.Enabled = false -Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) -Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" -Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) -Me.CBTagGarmentCovering.TabIndex = 208 -Me.CBTagGarmentCovering.Text = "Garment Covering" -Me.CBTagGarmentCovering.UseVisualStyleBackColor = true -' -'CBTagCloseUp -' -Me.CBTagCloseUp.AutoSize = true -Me.CBTagCloseUp.Enabled = false -Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black -Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) -Me.CBTagCloseUp.Name = "CBTagCloseUp" -Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) -Me.CBTagCloseUp.TabIndex = 205 -Me.CBTagCloseUp.Text = "Close Up" -Me.CBTagCloseUp.UseVisualStyleBackColor = true -' -'CBTagNaked -' -Me.CBTagNaked.AutoSize = true -Me.CBTagNaked.Enabled = false -Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) -Me.CBTagNaked.Name = "CBTagNaked" -Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) -Me.CBTagNaked.TabIndex = 199 -Me.CBTagNaked.Text = "Naked" -Me.CBTagNaked.UseVisualStyleBackColor = true -' -'CBTagSideView -' -Me.CBTagSideView.AutoSize = true -Me.CBTagSideView.Enabled = false -Me.CBTagSideView.ForeColor = System.Drawing.Color.Black -Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) -Me.CBTagSideView.Name = "CBTagSideView" -Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) -Me.CBTagSideView.TabIndex = 204 -Me.CBTagSideView.Text = "Side View" -Me.CBTagSideView.UseVisualStyleBackColor = true -' -'BTNTagPrevious -' -Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNTagPrevious.Enabled = false -Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNTagPrevious.Name = "BTNTagPrevious" -Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNTagPrevious.TabIndex = 207 -Me.BTNTagPrevious.Text = "<<" -Me.BTNTagPrevious.UseVisualStyleBackColor = false -' -'CBTagHalfDressed -' -Me.CBTagHalfDressed.AutoSize = true -Me.CBTagHalfDressed.Enabled = false -Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) -Me.CBTagHalfDressed.Name = "CBTagHalfDressed" -Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) -Me.CBTagHalfDressed.TabIndex = 198 -Me.CBTagHalfDressed.Text = "Half Dressed" -Me.CBTagHalfDressed.UseVisualStyleBackColor = true -' -'BTNTagNext -' -Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNTagNext.Enabled = false -Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNTagNext.Name = "BTNTagNext" -Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNTagNext.TabIndex = 206 -Me.BTNTagNext.Text = ">>" -Me.BTNTagNext.UseVisualStyleBackColor = false -' -'CBTagFullyDressed -' -Me.CBTagFullyDressed.AutoSize = true -Me.CBTagFullyDressed.Enabled = false -Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) -Me.CBTagFullyDressed.Name = "CBTagFullyDressed" -Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) -Me.CBTagFullyDressed.TabIndex = 197 -Me.CBTagFullyDressed.Text = "Fully Dressed" -Me.CBTagFullyDressed.UseVisualStyleBackColor = true -' -'LBLTagCount -' -Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTagCount.Enabled = false -Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLTagCount.Name = "LBLTagCount" -Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLTagCount.TabIndex = 203 -Me.LBLTagCount.Text = "0/0" -Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBTagSucking -' -Me.CBTagSucking.AutoSize = true -Me.CBTagSucking.Enabled = false -Me.CBTagSucking.ForeColor = System.Drawing.Color.Black -Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) -Me.CBTagSucking.Name = "CBTagSucking" -Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) -Me.CBTagSucking.TabIndex = 202 -Me.CBTagSucking.Text = "Sucking" -Me.CBTagSucking.UseVisualStyleBackColor = true -' -'CBTagMasturbating -' -Me.CBTagMasturbating.AutoSize = true -Me.CBTagMasturbating.Enabled = false -Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) -Me.CBTagMasturbating.Name = "CBTagMasturbating" -Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbating.TabIndex = 201 -Me.CBTagMasturbating.Text = "Masturbating" -Me.CBTagMasturbating.UseVisualStyleBackColor = true -' -'CBTagFeet -' -Me.CBTagFeet.AutoSize = true -Me.CBTagFeet.Enabled = false -Me.CBTagFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) -Me.CBTagFeet.Name = "CBTagFeet" -Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagFeet.TabIndex = 200 -Me.CBTagFeet.Text = "Feet" -Me.CBTagFeet.UseVisualStyleBackColor = true -' -'CBTagBoobs -' -Me.CBTagBoobs.AutoSize = true -Me.CBTagBoobs.Enabled = false -Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black -Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) -Me.CBTagBoobs.Name = "CBTagBoobs" -Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) -Me.CBTagBoobs.TabIndex = 196 -Me.CBTagBoobs.Text = "Boobs" -Me.CBTagBoobs.UseVisualStyleBackColor = true -' -'CBTagAss -' -Me.CBTagAss.AutoSize = true -Me.CBTagAss.Enabled = false -Me.CBTagAss.ForeColor = System.Drawing.Color.Black -Me.CBTagAss.Location = New System.Drawing.Point(484, 97) -Me.CBTagAss.Name = "CBTagAss" -Me.CBTagAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagAss.TabIndex = 195 -Me.CBTagAss.Text = "Ass" -Me.CBTagAss.UseVisualStyleBackColor = true -' -'CBTagPussy -' -Me.CBTagPussy.AutoSize = true -Me.CBTagPussy.Enabled = false -Me.CBTagPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) -Me.CBTagPussy.Name = "CBTagPussy" -Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagPussy.TabIndex = 194 -Me.CBTagPussy.Text = "Pussy" -Me.CBTagPussy.UseVisualStyleBackColor = true +Me.TableLayoutPanel1.ColumnCount = 4 +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) +Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) +Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) +Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) +Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) +Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) +Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) +Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) +Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) +Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) +Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) +Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) +Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) +Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) +Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) +Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) +Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) +Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill +Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize +Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) +Me.TableLayoutPanel1.Name = "TableLayoutPanel1" +Me.TableLayoutPanel1.RowCount = 13 +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) +Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) +Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) +Me.TableLayoutPanel1.TabIndex = 0 ' -'BTNTagSave +'BTNIHardcore ' -Me.BTNTagSave.Enabled = false -Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNTagSave.Name = "BTNTagSave" -Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNTagSave.TabIndex = 193 -Me.BTNTagSave.Text = "Finished" -Me.BTNTagSave.UseVisualStyleBackColor = true +Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray +Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black +Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) +Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHardcore.Name = "BTNIHardcore" +Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) +Me.BTNIHardcore.TabIndex = 1 +Me.BTNIHardcore.Text = "1" +Me.BTNIHardcore.UseVisualStyleBackColor = false ' -'BTNTagDir +'TbxIHardcore ' -Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNTagDir.Name = "BTNTagDir" -Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNTagDir.TabIndex = 192 -Me.BTNTagDir.Text = "1" -Me.BTNTagDir.UseVisualStyleBackColor = true +Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray +Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black +Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) +Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.Name = "TbxIHardcore" +Me.TbxIHardcore.ReadOnly = true +Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) +Me.TbxIHardcore.TabIndex = 2 +Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore ' -'ImageTagPictureBox +'CBIHardcoreSD ' -Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black -Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) -Me.ImageTagPictureBox.Name = "ImageTagPictureBox" -Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) -Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.ImageTagPictureBox.TabIndex = 191 -Me.ImageTagPictureBox.TabStop = false +Me.CBIHardcoreSD.AutoSize = true +Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD +Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) +Me.CBIHardcoreSD.Name = "CBIHardcoreSD" +Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHardcoreSD.TabIndex = 3 +Me.CBIHardcoreSD.UseVisualStyleBackColor = true ' -'CBTagFace +'CBIHardcore ' -Me.CBTagFace.AutoSize = true -Me.CBTagFace.Enabled = false -Me.CBTagFace.ForeColor = System.Drawing.Color.Black -Me.CBTagFace.Location = New System.Drawing.Point(484, 37) -Me.CBTagFace.Name = "CBTagFace" -Me.CBTagFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagFace.TabIndex = 190 -Me.CBTagFace.Text = "Face" -Me.CBTagFace.UseVisualStyleBackColor = true +Me.CBIHardcore.AutoSize = true +Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore +Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHardcore.ForeColor = System.Drawing.Color.Black +Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) +Me.CBIHardcore.Name = "CBIHardcore" +Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) +Me.CBIHardcore.TabIndex = 0 +Me.CBIHardcore.Text = "Hardcore" +Me.CBIHardcore.UseVisualStyleBackColor = true ' -'TabPage35 +'CBISoftcore ' -Me.TabPage35.BackColor = System.Drawing.Color.LightGray -Me.TabPage35.Controls.Add(Me.GroupBox55) -Me.TabPage35.Controls.Add(Me.GroupBox53) -Me.TabPage35.Controls.Add(Me.GroupBox49) -Me.TabPage35.Controls.Add(Me.GroupBox46) -Me.TabPage35.Controls.Add(Me.GroupBox54) -Me.TabPage35.Controls.Add(Me.GroupBox51) -Me.TabPage35.Controls.Add(Me.GroupBox50) -Me.TabPage35.Controls.Add(Me.GroupBox48) -Me.TabPage35.Controls.Add(Me.TBLocalTagDir) -Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) -Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) -Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) -Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) -Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) -Me.TabPage35.Location = New System.Drawing.Point(4, 22) -Me.TabPage35.Name = "TabPage35" -Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage35.Size = New System.Drawing.Size(700, 411) -Me.TabPage35.TabIndex = 1 -Me.TabPage35.Text = "Local Tags" +Me.CBISoftcore.AutoSize = true +Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore +Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcore.ForeColor = System.Drawing.Color.Black +Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) +Me.CBISoftcore.Name = "CBISoftcore" +Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) +Me.CBISoftcore.TabIndex = 4 +Me.CBISoftcore.Text = "Softcore" +Me.CBISoftcore.UseVisualStyleBackColor = true ' -'GroupBox55 +'TbxISoftcore ' -Me.GroupBox55.Controls.Add(Me.CBTagNurse) -Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) -Me.GroupBox55.Controls.Add(Me.CBTagMaid) -Me.GroupBox55.Controls.Add(Me.CBTagTeacher) -Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) -Me.GroupBox55.Location = New System.Drawing.Point(341, 277) -Me.GroupBox55.Name = "GroupBox55" -Me.GroupBox55.Size = New System.Drawing.Size(103, 118) -Me.GroupBox55.TabIndex = 241 -Me.GroupBox55.TabStop = false -Me.GroupBox55.Text = "Outfit" +Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray +Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black +Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) +Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.Name = "TbxISoftcore" +Me.TbxISoftcore.ReadOnly = true +Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) +Me.TbxISoftcore.TabIndex = 6 +Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore ' -'CBTagNurse +'CBButtSubDir ' -Me.CBTagNurse.AutoSize = true -Me.CBTagNurse.Enabled = false -Me.CBTagNurse.ForeColor = System.Drawing.Color.Black -Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) -Me.CBTagNurse.Name = "CBTagNurse" -Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) -Me.CBTagNurse.TabIndex = 203 -Me.CBTagNurse.Text = "Nurse" -Me.CBTagNurse.UseVisualStyleBackColor = true +Me.CBButtSubDir.AutoSize = true +Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir +Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black +Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) +Me.CBButtSubDir.Name = "CBButtSubDir" +Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) +Me.CBButtSubDir.TabIndex = 51 +Me.CBButtSubDir.UseVisualStyleBackColor = true ' -'CBTagSchoolgirl +'CBISoftcoreSD ' -Me.CBTagSchoolgirl.AutoSize = true -Me.CBTagSchoolgirl.Enabled = false -Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) -Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" -Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) -Me.CBTagSchoolgirl.TabIndex = 204 -Me.CBTagSchoolgirl.Text = "Schoolgirl" -Me.CBTagSchoolgirl.UseVisualStyleBackColor = true +Me.CBISoftcoreSD.AutoSize = true +Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD +Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black +Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) +Me.CBISoftcoreSD.Name = "CBISoftcoreSD" +Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) +Me.CBISoftcoreSD.TabIndex = 7 +Me.CBISoftcoreSD.UseVisualStyleBackColor = true ' -'CBTagMaid +'CBBoobSubDir ' -Me.CBTagMaid.AutoSize = true -Me.CBTagMaid.Enabled = false -Me.CBTagMaid.ForeColor = System.Drawing.Color.Black -Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) -Me.CBTagMaid.Name = "CBTagMaid" -Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) -Me.CBTagMaid.TabIndex = 205 -Me.CBTagMaid.Text = "Maid" -Me.CBTagMaid.UseVisualStyleBackColor = true +Me.CBBoobSubDir.AutoSize = true +Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir +Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black +Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) +Me.CBBoobSubDir.Name = "CBBoobSubDir" +Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) +Me.CBBoobSubDir.TabIndex = 47 +Me.CBBoobSubDir.UseVisualStyleBackColor = true ' -'CBTagTeacher +'CBILezdomSD ' -Me.CBTagTeacher.AutoSize = true -Me.CBTagTeacher.Enabled = false -Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black -Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) -Me.CBTagTeacher.Name = "CBTagTeacher" -Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) -Me.CBTagTeacher.TabIndex = 206 -Me.CBTagTeacher.Text = "Teacher" -Me.CBTagTeacher.UseVisualStyleBackColor = true +Me.CBILezdomSD.AutoSize = true +Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD +Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black +Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) +Me.CBILezdomSD.Name = "CBILezdomSD" +Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBILezdomSD.TabIndex = 23 +Me.CBILezdomSD.UseVisualStyleBackColor = true ' -'CBTagSuperhero +'CBIGeneralSD ' -Me.CBTagSuperhero.AutoSize = true -Me.CBTagSuperhero.Enabled = false -Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black -Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) -Me.CBTagSuperhero.Name = "CBTagSuperhero" -Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) -Me.CBTagSuperhero.TabIndex = 213 -Me.CBTagSuperhero.Text = "Superhero" -Me.CBTagSuperhero.UseVisualStyleBackColor = true +Me.CBIGeneralSD.AutoSize = true +Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD +Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black +Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) +Me.CBIGeneralSD.Name = "CBIGeneralSD" +Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) +Me.CBIGeneralSD.TabIndex = 43 +Me.CBIGeneralSD.UseVisualStyleBackColor = true ' -'GroupBox53 +'CBILesbianSD ' -Me.GroupBox53.Controls.Add(Me.CBTagTrap) -Me.GroupBox53.Controls.Add(Me.CBTagTentacles) -Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) -Me.GroupBox53.Controls.Add(Me.CBTagBukkake) -Me.GroupBox53.Controls.Add(Me.CBTagGanguro) -Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) -Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) -Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) -Me.GroupBox53.Controls.Add(Me.CBTagAhegao) -Me.GroupBox53.Controls.Add(Me.CBTagShibari) -Me.GroupBox53.Location = New System.Drawing.Point(450, 277) -Me.GroupBox53.Name = "GroupBox53" -Me.GroupBox53.Size = New System.Drawing.Size(246, 118) -Me.GroupBox53.TabIndex = 240 -Me.GroupBox53.TabStop = false -Me.GroupBox53.Text = "Hentai/JAV Themes" +Me.CBILesbianSD.AutoSize = true +Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD +Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black +Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) +Me.CBILesbianSD.Name = "CBILesbianSD" +Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) +Me.CBILesbianSD.TabIndex = 11 +Me.CBILesbianSD.UseVisualStyleBackColor = true ' -'CBTagTrap +'CBICaptionsSD ' -Me.CBTagTrap.AutoSize = true -Me.CBTagTrap.Enabled = false -Me.CBTagTrap.ForeColor = System.Drawing.Color.Black -Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) -Me.CBTagTrap.Name = "CBTagTrap" -Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) -Me.CBTagTrap.TabIndex = 226 -Me.CBTagTrap.Text = "Trap" -Me.CBTagTrap.UseVisualStyleBackColor = true +Me.CBICaptionsSD.AutoSize = true +Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD +Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black +Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) +Me.CBICaptionsSD.Name = "CBICaptionsSD" +Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) +Me.CBICaptionsSD.TabIndex = 39 +Me.CBICaptionsSD.UseVisualStyleBackColor = true ' -'CBTagTentacles +'CBILesbian ' -Me.CBTagTentacles.AutoSize = true -Me.CBTagTentacles.Enabled = false -Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black -Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) -Me.CBTagTentacles.Name = "CBTagTentacles" -Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) -Me.CBTagTentacles.TabIndex = 204 -Me.CBTagTentacles.Text = "Tentacles" -Me.CBTagTentacles.UseVisualStyleBackColor = true +Me.CBILesbian.AutoSize = true +Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian +Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILesbian.ForeColor = System.Drawing.Color.Black +Me.CBILesbian.Location = New System.Drawing.Point(3, 61) +Me.CBILesbian.Name = "CBILesbian" +Me.CBILesbian.Size = New System.Drawing.Size(70, 23) +Me.CBILesbian.TabIndex = 8 +Me.CBILesbian.Text = "Lesbian" +Me.CBILesbian.UseVisualStyleBackColor = true ' -'CBTagMonsterGirl +'CBIMaledomSD ' -Me.CBTagMonsterGirl.AutoSize = true -Me.CBTagMonsterGirl.Enabled = false -Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black -Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) -Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" -Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) -Me.CBTagMonsterGirl.TabIndex = 214 -Me.CBTagMonsterGirl.Text = "Monster Girl" -Me.CBTagMonsterGirl.UseVisualStyleBackColor = true +Me.CBIMaledomSD.AutoSize = true +Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD +Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black +Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) +Me.CBIMaledomSD.Name = "CBIMaledomSD" +Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIMaledomSD.TabIndex = 35 +Me.CBIMaledomSD.UseVisualStyleBackColor = true +' +'CBIBlowjob +' +Me.CBIBlowjob.AutoSize = true +Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob +Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) +Me.CBIBlowjob.Name = "CBIBlowjob" +Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) +Me.CBIBlowjob.TabIndex = 12 +Me.CBIBlowjob.Text = "Blowjob" +Me.CBIBlowjob.UseVisualStyleBackColor = true ' -'CBTagBukkake +'CBIGaySD ' -Me.CBTagBukkake.AutoSize = true -Me.CBTagBukkake.Enabled = false -Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black -Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) -Me.CBTagBukkake.Name = "CBTagBukkake" -Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) -Me.CBTagBukkake.TabIndex = 210 -Me.CBTagBukkake.Text = "Bukkake" -Me.CBTagBukkake.UseVisualStyleBackColor = true +Me.CBIGaySD.AutoSize = true +Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD +Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGaySD.ForeColor = System.Drawing.Color.Black +Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) +Me.CBIGaySD.Name = "CBIGaySD" +Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) +Me.CBIGaySD.TabIndex = 31 +Me.CBIGaySD.UseVisualStyleBackColor = true ' -'CBTagGanguro +'CBIHentaiSD ' -Me.CBTagGanguro.AutoSize = true -Me.CBTagGanguro.Enabled = false -Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black -Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) -Me.CBTagGanguro.Name = "CBTagGanguro" -Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) -Me.CBTagGanguro.TabIndex = 205 -Me.CBTagGanguro.Text = "Ganguro" -Me.CBTagGanguro.UseVisualStyleBackColor = true +Me.CBIHentaiSD.AutoSize = true +Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD +Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black +Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) +Me.CBIHentaiSD.Name = "CBIHentaiSD" +Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) +Me.CBIHentaiSD.TabIndex = 27 +Me.CBIHentaiSD.UseVisualStyleBackColor = true ' -'CBTagBodyWriting +'CBIBlowjobSD ' -Me.CBTagBodyWriting.AutoSize = true -Me.CBTagBodyWriting.Enabled = false -Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) -Me.CBTagBodyWriting.Name = "CBTagBodyWriting" -Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) -Me.CBTagBodyWriting.TabIndex = 208 -Me.CBTagBodyWriting.Text = "Body Writing" -Me.CBTagBodyWriting.UseVisualStyleBackColor = true +Me.CBIBlowjobSD.AutoSize = true +Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD +Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black +Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) +Me.CBIBlowjobSD.Name = "CBIBlowjobSD" +Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) +Me.CBIBlowjobSD.TabIndex = 15 +Me.CBIBlowjobSD.UseVisualStyleBackColor = true ' -'CBTagMahouShoujo +'CBIFemdomSD ' -Me.CBTagMahouShoujo.AutoSize = true -Me.CBTagMahouShoujo.Enabled = false -Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black -Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) -Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" -Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) -Me.CBTagMahouShoujo.TabIndex = 209 -Me.CBTagMahouShoujo.Text = "Mahou Shoujo" -Me.CBTagMahouShoujo.UseVisualStyleBackColor = true +Me.CBIFemdomSD.AutoSize = true +Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD +Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black +Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) +Me.CBIFemdomSD.Name = "CBIFemdomSD" +Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) +Me.CBIFemdomSD.TabIndex = 19 +Me.CBIFemdomSD.UseVisualStyleBackColor = true ' -'CBTagBakunyuu +'TbxIButts ' -Me.CBTagBakunyuu.AutoSize = true -Me.CBTagBakunyuu.Enabled = false -Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black -Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) -Me.CBTagBakunyuu.Name = "CBTagBakunyuu" -Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) -Me.CBTagBakunyuu.TabIndex = 213 -Me.CBTagBakunyuu.Text = "Bakunyuu" -Me.CBTagBakunyuu.UseVisualStyleBackColor = true +Me.TbxIButts.BackColor = System.Drawing.Color.LightGray +Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIButts.ForeColor = System.Drawing.Color.Black +Me.TbxIButts.Location = New System.Drawing.Point(115, 353) +Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIButts.Name = "TbxIButts" +Me.TbxIButts.ReadOnly = true +Me.TbxIButts.Size = New System.Drawing.Size(217, 17) +Me.TbxIButts.TabIndex = 50 +Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath ' -'CBTagAhegao +'CBIFemdom ' -Me.CBTagAhegao.AutoSize = true -Me.CBTagAhegao.Enabled = false -Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black -Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) -Me.CBTagAhegao.Name = "CBTagAhegao" -Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) -Me.CBTagAhegao.TabIndex = 207 -Me.CBTagAhegao.Text = "Ahegao" -Me.CBTagAhegao.UseVisualStyleBackColor = true +Me.CBIFemdom.AutoSize = true +Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom +Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIFemdom.ForeColor = System.Drawing.Color.Black +Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) +Me.CBIFemdom.Name = "CBIFemdom" +Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) +Me.CBIFemdom.TabIndex = 16 +Me.CBIFemdom.Text = "Femdom" +Me.CBIFemdom.UseVisualStyleBackColor = true ' -'CBTagShibari +'TbxILesbian ' -Me.CBTagShibari.AutoSize = true -Me.CBTagShibari.Enabled = false -Me.CBTagShibari.ForeColor = System.Drawing.Color.Black -Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) -Me.CBTagShibari.Name = "CBTagShibari" -Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) -Me.CBTagShibari.TabIndex = 203 -Me.CBTagShibari.Text = "Shibari" -Me.CBTagShibari.UseVisualStyleBackColor = true +Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray +Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILesbian.ForeColor = System.Drawing.Color.Black +Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) +Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILesbian.Name = "TbxILesbian" +Me.TbxILesbian.ReadOnly = true +Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) +Me.TbxILesbian.TabIndex = 10 +Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian ' -'GroupBox49 +'BTNISoftcore ' -Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) -Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) -Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) -Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) -Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) -Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) -Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) -Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) -Me.GroupBox49.Location = New System.Drawing.Point(341, 37) -Me.GroupBox49.Name = "GroupBox49" -Me.GroupBox49.Size = New System.Drawing.Size(103, 238) -Me.GroupBox49.TabIndex = 236 -Me.GroupBox49.TabStop = false -Me.GroupBox49.Text = "Body Part" +Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray +Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black +Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) +Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNISoftcore.Name = "BTNISoftcore" +Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) +Me.BTNISoftcore.TabIndex = 5 +Me.BTNISoftcore.Text = "1" +Me.BTNISoftcore.UseVisualStyleBackColor = false ' -'CBTagBodyMouth +'CBILezdom ' -Me.CBTagBodyMouth.AutoSize = true -Me.CBTagBodyMouth.Enabled = false -Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) -Me.CBTagBodyMouth.Name = "CBTagBodyMouth" -Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) -Me.CBTagBodyMouth.TabIndex = 220 -Me.CBTagBodyMouth.Text = "Mouth" -Me.CBTagBodyMouth.UseVisualStyleBackColor = true +Me.CBILezdom.AutoSize = true +Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom +Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBILezdom.ForeColor = System.Drawing.Color.Black +Me.CBILezdom.Location = New System.Drawing.Point(3, 148) +Me.CBILezdom.Name = "CBILezdom" +Me.CBILezdom.Size = New System.Drawing.Size(70, 23) +Me.CBILezdom.TabIndex = 20 +Me.CBILezdom.Text = "Lezdom" +Me.CBILezdom.UseVisualStyleBackColor = true ' -'CBTagBodyAss +'TbxIBoobs ' -Me.CBTagBodyAss.AutoSize = true -Me.CBTagBodyAss.Enabled = false -Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) -Me.CBTagBodyAss.Name = "CBTagBodyAss" -Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyAss.TabIndex = 219 -Me.CBTagBodyAss.Text = "Ass" -Me.CBTagBodyAss.UseVisualStyleBackColor = true +Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray +Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black +Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) +Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.Name = "TbxIBoobs" +Me.TbxIBoobs.ReadOnly = true +Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) +Me.TbxIBoobs.TabIndex = 46 +Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath ' -'CBTagBodyFace +'CBIHentai ' -Me.CBTagBodyFace.AutoSize = true -Me.CBTagBodyFace.Enabled = false -Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) -Me.CBTagBodyFace.Name = "CBTagBodyFace" -Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagBodyFace.TabIndex = 203 -Me.CBTagBodyFace.Text = "Face" -Me.CBTagBodyFace.UseVisualStyleBackColor = true +Me.CBIHentai.AutoSize = true +Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai +Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIHentai.ForeColor = System.Drawing.Color.Black +Me.CBIHentai.Location = New System.Drawing.Point(3, 177) +Me.CBIHentai.Name = "CBIHentai" +Me.CBIHentai.Size = New System.Drawing.Size(70, 23) +Me.CBIHentai.TabIndex = 24 +Me.CBIHentai.Text = "Hentai" +Me.CBIHentai.UseVisualStyleBackColor = true ' -'CBTagBodyLegs +'TbxIBlowjob ' -Me.CBTagBodyLegs.AutoSize = true -Me.CBTagBodyLegs.Enabled = false -Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) -Me.CBTagBodyLegs.Name = "CBTagBodyLegs" -Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagBodyLegs.TabIndex = 218 -Me.CBTagBodyLegs.Text = "Legs" -Me.CBTagBodyLegs.UseVisualStyleBackColor = true +Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black +Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) +Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.Name = "TbxIBlowjob" +Me.TbxIBlowjob.ReadOnly = true +Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) +Me.TbxIBlowjob.TabIndex = 14 +Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob ' -'CBTagBodyBalls +'CBIGay ' -Me.CBTagBodyBalls.AutoSize = true -Me.CBTagBodyBalls.Enabled = false -Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) -Me.CBTagBodyBalls.Name = "CBTagBodyBalls" -Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) -Me.CBTagBodyBalls.TabIndex = 217 -Me.CBTagBodyBalls.Text = "Balls" -Me.CBTagBodyBalls.UseVisualStyleBackColor = true +Me.CBIGay.AutoSize = true +Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay +Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGay.ForeColor = System.Drawing.Color.Black +Me.CBIGay.Location = New System.Drawing.Point(3, 206) +Me.CBIGay.Name = "CBIGay" +Me.CBIGay.Size = New System.Drawing.Size(70, 23) +Me.CBIGay.TabIndex = 28 +Me.CBIGay.Text = "Gay" +Me.CBIGay.UseVisualStyleBackColor = true ' -'CBTagBodyCock +'TbxIGeneral ' -Me.CBTagBodyCock.AutoSize = true -Me.CBTagBodyCock.Enabled = false -Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) -Me.CBTagBodyCock.Name = "CBTagBodyCock" -Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) -Me.CBTagBodyCock.TabIndex = 216 -Me.CBTagBodyCock.Text = "Cock" -Me.CBTagBodyCock.UseVisualStyleBackColor = true +Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray +Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black +Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) +Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.Name = "TbxIGeneral" +Me.TbxIGeneral.ReadOnly = true +Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) +Me.TbxIGeneral.TabIndex = 42 +Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral ' -'CBTagBodyFeet +'CBIMaledom ' -Me.CBTagBodyFeet.AutoSize = true -Me.CBTagBodyFeet.Enabled = false -Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) -Me.CBTagBodyFeet.Name = "CBTagBodyFeet" -Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagBodyFeet.TabIndex = 215 -Me.CBTagBodyFeet.Text = "Feet" -Me.CBTagBodyFeet.UseVisualStyleBackColor = true +Me.CBIMaledom.AutoSize = true +Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom +Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIMaledom.ForeColor = System.Drawing.Color.Black +Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) +Me.CBIMaledom.Name = "CBIMaledom" +Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) +Me.CBIMaledom.TabIndex = 32 +Me.CBIMaledom.Text = "Maledom" +Me.CBIMaledom.UseVisualStyleBackColor = true ' -'CBTagBodyNipples +'TbxIFemdom ' -Me.CBTagBodyNipples.AutoSize = true -Me.CBTagBodyNipples.Enabled = false -Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) -Me.CBTagBodyNipples.Name = "CBTagBodyNipples" -Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) -Me.CBTagBodyNipples.TabIndex = 207 -Me.CBTagBodyNipples.Text = "Nipples" -Me.CBTagBodyNipples.UseVisualStyleBackColor = true +Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray +Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black +Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) +Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.Name = "TbxIFemdom" +Me.TbxIFemdom.ReadOnly = true +Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) +Me.TbxIFemdom.TabIndex = 18 +Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom ' -'CBTagBodyPussy +'BTNILesbian ' -Me.CBTagBodyPussy.AutoSize = true -Me.CBTagBodyPussy.Enabled = false -Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) -Me.CBTagBodyPussy.Name = "CBTagBodyPussy" -Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagBodyPussy.TabIndex = 209 -Me.CBTagBodyPussy.Text = "Pussy" -Me.CBTagBodyPussy.UseVisualStyleBackColor = true +Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILesbian.ForeColor = System.Drawing.Color.Black +Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) +Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILesbian.Name = "BTNILesbian" +Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNILesbian.TabIndex = 9 +Me.BTNILesbian.Text = "1" +Me.BTNILesbian.UseVisualStyleBackColor = false ' -'CBTagBodyTits +'TbxICaptions ' -Me.CBTagBodyTits.AutoSize = true -Me.CBTagBodyTits.Enabled = false -Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) -Me.CBTagBodyTits.Name = "CBTagBodyTits" -Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyTits.TabIndex = 213 -Me.CBTagBodyTits.Text = "Tits" -Me.CBTagBodyTits.UseVisualStyleBackColor = true +Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray +Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxICaptions.ForeColor = System.Drawing.Color.Black +Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) +Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxICaptions.Name = "TbxICaptions" +Me.TbxICaptions.ReadOnly = true +Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) +Me.TbxICaptions.TabIndex = 38 +Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions ' -'CBTagBodyFingers +'CBICaptions ' -Me.CBTagBodyFingers.AutoSize = true -Me.CBTagBodyFingers.Enabled = false -Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) -Me.CBTagBodyFingers.Name = "CBTagBodyFingers" -Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) -Me.CBTagBodyFingers.TabIndex = 210 -Me.CBTagBodyFingers.Text = "Fingers" -Me.CBTagBodyFingers.UseVisualStyleBackColor = true +Me.CBICaptions.AutoSize = true +Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions +Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBICaptions.ForeColor = System.Drawing.Color.Black +Me.CBICaptions.Location = New System.Drawing.Point(3, 264) +Me.CBICaptions.Name = "CBICaptions" +Me.CBICaptions.Size = New System.Drawing.Size(70, 23) +Me.CBICaptions.TabIndex = 36 +Me.CBICaptions.Text = "Captions" +Me.CBICaptions.UseVisualStyleBackColor = true ' -'GroupBox46 +'TbxILezdom ' -Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) -Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) -Me.GroupBox46.Controls.Add(Me.CBTagFemdom) -Me.GroupBox46.Controls.Add(Me.CBTag2M) -Me.GroupBox46.Controls.Add(Me.CBTagFutadom) -Me.GroupBox46.Controls.Add(Me.CBTagFemsub) -Me.GroupBox46.Controls.Add(Me.CBTag2Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMaledom) -Me.GroupBox46.Controls.Add(Me.CBTag3M) -Me.GroupBox46.Controls.Add(Me.CBTagFutasub) -Me.GroupBox46.Controls.Add(Me.CBTag3Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMalesub) -Me.GroupBox46.Controls.Add(Me.CBTag2F) -Me.GroupBox46.Controls.Add(Me.CBTag1Futa) -Me.GroupBox46.Controls.Add(Me.CBTag1M) -Me.GroupBox46.Controls.Add(Me.CBTag1F) -Me.GroupBox46.Controls.Add(Me.CBTag3F) -Me.GroupBox46.Location = New System.Drawing.Point(230, 37) -Me.GroupBox46.Name = "GroupBox46" -Me.GroupBox46.Size = New System.Drawing.Size(105, 358) -Me.GroupBox46.TabIndex = 234 -Me.GroupBox46.TabStop = false -Me.GroupBox46.Text = "Genders && Roles" +Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray +Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxILezdom.ForeColor = System.Drawing.Color.Black +Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) +Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxILezdom.Name = "TbxILezdom" +Me.TbxILezdom.ReadOnly = true +Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) +Me.TbxILezdom.TabIndex = 22 +Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom ' -'CBTagMultiSub +'TbxIMaledom ' -Me.CBTagMultiSub.AutoSize = true -Me.CBTagMultiSub.Enabled = false -Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) -Me.CBTagMultiSub.Name = "CBTagMultiSub" -Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) -Me.CBTagMultiSub.TabIndex = 207 -Me.CBTagMultiSub.Text = "Multi-Sub" -Me.CBTagMultiSub.UseVisualStyleBackColor = true +Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray +Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black +Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) +Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.Name = "TbxIMaledom" +Me.TbxIMaledom.ReadOnly = true +Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) +Me.TbxIMaledom.TabIndex = 34 +Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom ' -'CBTagMultiDom +'BTNButtPath ' -Me.CBTagMultiDom.AutoSize = true -Me.CBTagMultiDom.Enabled = false -Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) -Me.CBTagMultiDom.Name = "CBTagMultiDom" -Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) -Me.CBTagMultiDom.TabIndex = 230 -Me.CBTagMultiDom.Text = "Multi-Dom" -Me.CBTagMultiDom.UseVisualStyleBackColor = true +Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray +Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNButtPath.ForeColor = System.Drawing.Color.Black +Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) +Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNButtPath.Name = "BTNButtPath" +Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) +Me.BTNButtPath.TabIndex = 49 +Me.BTNButtPath.Text = "1" +Me.BTNButtPath.UseVisualStyleBackColor = false ' -'CBTagFemdom +'TbxIHentai ' -Me.CBTagFemdom.AutoSize = true -Me.CBTagFemdom.Enabled = false -Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black -Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) -Me.CBTagFemdom.Name = "CBTagFemdom" -Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBTagFemdom.TabIndex = 229 -Me.CBTagFemdom.Text = "Femdom" -Me.CBTagFemdom.UseVisualStyleBackColor = true +Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray +Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIHentai.ForeColor = System.Drawing.Color.Black +Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) +Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIHentai.Name = "TbxIHentai" +Me.TbxIHentai.ReadOnly = true +Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) +Me.TbxIHentai.TabIndex = 26 +Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai ' -'CBTag2M +'CBIGeneral ' -Me.CBTag2M.AutoSize = true -Me.CBTag2M.Enabled = false -Me.CBTag2M.ForeColor = System.Drawing.Color.Black -Me.CBTag2M.Location = New System.Drawing.Point(15, 97) -Me.CBTag2M.Name = "CBTag2M" -Me.CBTag2M.Size = New System.Drawing.Size(56, 17) -Me.CBTag2M.TabIndex = 206 -Me.CBTag2M.Text = "2 Men" -Me.CBTag2M.UseVisualStyleBackColor = true +Me.CBIGeneral.AutoSize = true +Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral +Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIGeneral.ForeColor = System.Drawing.Color.Black +Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) +Me.CBIGeneral.Name = "CBIGeneral" +Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) +Me.CBIGeneral.TabIndex = 40 +Me.CBIGeneral.Text = "General" +Me.CBIGeneral.UseVisualStyleBackColor = true ' -'CBTagFutadom +'TbxIGay ' -Me.CBTagFutadom.AutoSize = true -Me.CBTagFutadom.Enabled = false -Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black -Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) -Me.CBTagFutadom.Name = "CBTagFutadom" -Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) -Me.CBTagFutadom.TabIndex = 204 -Me.CBTagFutadom.Text = "Futadom" -Me.CBTagFutadom.UseVisualStyleBackColor = true +Me.TbxIGay.BackColor = System.Drawing.Color.LightGray +Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxIGay.ForeColor = System.Drawing.Color.Black +Me.TbxIGay.Location = New System.Drawing.Point(115, 208) +Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) +Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) +Me.TbxIGay.Name = "TbxIGay" +Me.TbxIGay.ReadOnly = true +Me.TbxIGay.Size = New System.Drawing.Size(217, 17) +Me.TbxIGay.TabIndex = 30 +Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay ' -'CBTagFemsub +'CBIBoobs ' -Me.CBTagFemsub.AutoSize = true -Me.CBTagFemsub.Enabled = false -Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black -Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) -Me.CBTagFemsub.Name = "CBTagFemsub" -Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBTagFemsub.TabIndex = 205 -Me.CBTagFemsub.Text = "Femsub" -Me.CBTagFemsub.UseVisualStyleBackColor = true +Me.CBIBoobs.AutoSize = true +Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs +Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIBoobs.ForeColor = System.Drawing.Color.Black +Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) +Me.CBIBoobs.Name = "CBIBoobs" +Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) +Me.CBIBoobs.TabIndex = 44 +Me.CBIBoobs.Text = "Boobs" +Me.CBIBoobs.UseVisualStyleBackColor = true ' -'CBTag2Futa +'CBIButts ' -Me.CBTag2Futa.AutoSize = true -Me.CBTag2Futa.Enabled = false -Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) -Me.CBTag2Futa.Name = "CBTag2Futa" -Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag2Futa.TabIndex = 186 -Me.CBTag2Futa.Text = "2 Futa" -Me.CBTag2Futa.UseVisualStyleBackColor = true +Me.CBIButts.AutoSize = true +Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts +Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill +Me.CBIButts.ForeColor = System.Drawing.Color.Black +Me.CBIButts.Location = New System.Drawing.Point(3, 351) +Me.CBIButts.Name = "CBIButts" +Me.CBIButts.Size = New System.Drawing.Size(70, 27) +Me.CBIButts.TabIndex = 48 +Me.CBIButts.Text = "Butts" +Me.CBIButts.UseVisualStyleBackColor = true ' -'CBTagMaledom +'BTNIBlowjob ' -Me.CBTagMaledom.AutoSize = true -Me.CBTagMaledom.Enabled = false -Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black -Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) -Me.CBTagMaledom.Name = "CBTagMaledom" -Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) -Me.CBTagMaledom.TabIndex = 206 -Me.CBTagMaledom.Text = "Maledom" -Me.CBTagMaledom.UseVisualStyleBackColor = true +Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) +Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIBlowjob.Name = "BTNIBlowjob" +Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNIBlowjob.TabIndex = 13 +Me.BTNIBlowjob.Text = "1" +Me.BTNIBlowjob.UseVisualStyleBackColor = false ' -'CBTag3M +'BTNIFemdom ' -Me.CBTag3M.AutoSize = true -Me.CBTag3M.Enabled = false -Me.CBTag3M.ForeColor = System.Drawing.Color.Black -Me.CBTag3M.Location = New System.Drawing.Point(15, 117) -Me.CBTag3M.Name = "CBTag3M" -Me.CBTag3M.Size = New System.Drawing.Size(56, 17) -Me.CBTag3M.TabIndex = 190 -Me.CBTag3M.Text = "3 Men" -Me.CBTag3M.UseVisualStyleBackColor = true +Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray +Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black +Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) +Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIFemdom.Name = "BTNIFemdom" +Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) +Me.BTNIFemdom.TabIndex = 17 +Me.BTNIFemdom.Text = "1" +Me.BTNIFemdom.UseVisualStyleBackColor = false ' -'CBTagFutasub +'BTNBoobPath ' -Me.CBTagFutasub.AutoSize = true -Me.CBTagFutasub.Enabled = false -Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black -Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) -Me.CBTagFutasub.Name = "CBTagFutasub" -Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) -Me.CBTagFutasub.TabIndex = 213 -Me.CBTagFutasub.Text = "Futasub" -Me.CBTagFutasub.UseVisualStyleBackColor = true +Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray +Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black +Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) +Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNBoobPath.Name = "BTNBoobPath" +Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) +Me.BTNBoobPath.TabIndex = 45 +Me.BTNBoobPath.Text = "1" +Me.BTNBoobPath.UseVisualStyleBackColor = false ' -'CBTag3Futa +'BTNILezdom ' -Me.CBTag3Futa.AutoSize = true -Me.CBTag3Futa.Enabled = false -Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) -Me.CBTag3Futa.Name = "CBTag3Futa" -Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag3Futa.TabIndex = 197 -Me.CBTag3Futa.Text = "3 Futa" -Me.CBTag3Futa.UseVisualStyleBackColor = true +Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray +Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNILezdom.ForeColor = System.Drawing.Color.Black +Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) +Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNILezdom.Name = "BTNILezdom" +Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) +Me.BTNILezdom.TabIndex = 21 +Me.BTNILezdom.Text = "1" +Me.BTNILezdom.UseVisualStyleBackColor = false ' -'CBTagMalesub +'BTNIHentai ' -Me.CBTagMalesub.AutoSize = true -Me.CBTagMalesub.Enabled = false -Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black -Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) -Me.CBTagMalesub.Name = "CBTagMalesub" -Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) -Me.CBTagMalesub.TabIndex = 210 -Me.CBTagMalesub.Text = "Malesub" -Me.CBTagMalesub.UseVisualStyleBackColor = true +Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray +Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIHentai.ForeColor = System.Drawing.Color.Black +Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) +Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIHentai.Name = "BTNIHentai" +Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) +Me.BTNIHentai.TabIndex = 25 +Me.BTNIHentai.Text = "1" +Me.BTNIHentai.UseVisualStyleBackColor = false ' -'CBTag2F +'BTNIGay ' -Me.CBTag2F.AutoSize = true -Me.CBTag2F.Enabled = false -Me.CBTag2F.ForeColor = System.Drawing.Color.Black -Me.CBTag2F.Location = New System.Drawing.Point(15, 37) -Me.CBTag2F.Name = "CBTag2F" -Me.CBTag2F.Size = New System.Drawing.Size(72, 17) -Me.CBTag2F.TabIndex = 188 -Me.CBTag2F.Text = "2 Women" -Me.CBTag2F.UseVisualStyleBackColor = true +Me.BTNIGay.BackColor = System.Drawing.Color.LightGray +Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGay.ForeColor = System.Drawing.Color.Black +Me.BTNIGay.Location = New System.Drawing.Point(76, 203) +Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGay.Name = "BTNIGay" +Me.BTNIGay.Size = New System.Drawing.Size(34, 28) +Me.BTNIGay.TabIndex = 29 +Me.BTNIGay.Text = "1" +Me.BTNIGay.UseVisualStyleBackColor = false ' -'CBTag1Futa +'BTNIMaledom ' -Me.CBTag1Futa.AutoSize = true -Me.CBTag1Futa.Enabled = false -Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) -Me.CBTag1Futa.Name = "CBTag1Futa" -Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag1Futa.TabIndex = 191 -Me.CBTag1Futa.Text = "1 Futa" -Me.CBTag1Futa.UseVisualStyleBackColor = true +Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray +Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black +Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) +Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIMaledom.Name = "BTNIMaledom" +Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) +Me.BTNIMaledom.TabIndex = 33 +Me.BTNIMaledom.Text = "1" +Me.BTNIMaledom.UseVisualStyleBackColor = false ' -'CBTag1M +'BTNICaptions ' -Me.CBTag1M.AutoSize = true -Me.CBTag1M.Enabled = false -Me.CBTag1M.ForeColor = System.Drawing.Color.Black -Me.CBTag1M.Location = New System.Drawing.Point(15, 77) -Me.CBTag1M.Name = "CBTag1M" -Me.CBTag1M.Size = New System.Drawing.Size(56, 17) -Me.CBTag1M.TabIndex = 189 -Me.CBTag1M.Text = "1 Man" -Me.CBTag1M.UseVisualStyleBackColor = true +Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray +Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNICaptions.ForeColor = System.Drawing.Color.Black +Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) +Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNICaptions.Name = "BTNICaptions" +Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) +Me.BTNICaptions.TabIndex = 37 +Me.BTNICaptions.Text = "1" +Me.BTNICaptions.UseVisualStyleBackColor = false ' -'CBTag1F +'BTNIGeneral ' -Me.CBTag1F.AutoSize = true -Me.CBTag1F.Enabled = false -Me.CBTag1F.ForeColor = System.Drawing.Color.Black -Me.CBTag1F.Location = New System.Drawing.Point(15, 17) -Me.CBTag1F.Name = "CBTag1F" -Me.CBTag1F.Size = New System.Drawing.Size(72, 17) -Me.CBTag1F.TabIndex = 185 -Me.CBTag1F.Text = "1 Woman" -Me.CBTag1F.UseVisualStyleBackColor = true +Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) +Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) +Me.BTNIGeneral.Name = "BTNIGeneral" +Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNIGeneral.TabIndex = 41 +Me.BTNIGeneral.Text = "1" +Me.BTNIGeneral.UseVisualStyleBackColor = false ' -'CBTag3F +'TabPage33 ' -Me.CBTag3F.AutoSize = true -Me.CBTag3F.Enabled = false -Me.CBTag3F.ForeColor = System.Drawing.Color.Black -Me.CBTag3F.Location = New System.Drawing.Point(15, 57) -Me.CBTag3F.Name = "CBTag3F" -Me.CBTag3F.Size = New System.Drawing.Size(72, 17) -Me.CBTag3F.TabIndex = 192 -Me.CBTag3F.Text = "3 Women" -Me.CBTag3F.UseVisualStyleBackColor = true +Me.TabPage33.BackColor = System.Drawing.Color.Silver +Me.TabPage33.Controls.Add(Me.TabControl5) +Me.TabPage33.Location = New System.Drawing.Point(4, 22) +Me.TabPage33.Name = "TabPage33" +Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage33.Size = New System.Drawing.Size(720, 448) +Me.TabPage33.TabIndex = 21 +Me.TabPage33.Text = "Tagging" ' -'GroupBox54 +'TabControl5 ' -Me.GroupBox54.Controls.Add(Me.CBTagTattoos) -Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) -Me.GroupBox54.Controls.Add(Me.CBTagDomme) -Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) -Me.GroupBox54.Controls.Add(Me.CBTagWatersports) -Me.GroupBox54.Controls.Add(Me.CBTagStockings) -Me.GroupBox54.Controls.Add(Me.CBTagCumshot) -Me.GroupBox54.Controls.Add(Me.CBTagCumEating) -Me.GroupBox54.Controls.Add(Me.CBTagVibrator) -Me.GroupBox54.Controls.Add(Me.CBTagDildo) -Me.GroupBox54.Controls.Add(Me.CBTagKissing) -Me.GroupBox54.Location = New System.Drawing.Point(561, 37) -Me.GroupBox54.Name = "GroupBox54" -Me.GroupBox54.Size = New System.Drawing.Size(135, 238) -Me.GroupBox54.TabIndex = 239 -Me.GroupBox54.TabStop = false -Me.GroupBox54.Text = "Misc" +Me.TabControl5.Controls.Add(Me.TabPage34) +Me.TabControl5.Controls.Add(Me.TabPage35) +Me.TabControl5.Location = New System.Drawing.Point(6, 6) +Me.TabControl5.Name = "TabControl5" +Me.TabControl5.SelectedIndex = 0 +Me.TabControl5.Size = New System.Drawing.Size(708, 437) +Me.TabControl5.TabIndex = 0 ' -'CBTagTattoos +'TabPage34 ' -Me.CBTagTattoos.AutoSize = true -Me.CBTagTattoos.Enabled = false -Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) -Me.CBTagTattoos.Name = "CBTagTattoos" -Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBTagTattoos.TabIndex = 214 -Me.CBTagTattoos.Text = "Tattoos" -Me.CBTagTattoos.UseVisualStyleBackColor = true +Me.TabPage34.BackColor = System.Drawing.Color.LightGray +Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) +Me.TabPage34.Controls.Add(Me.CBTagAllFours) +Me.TabPage34.Controls.Add(Me.CBTagGlaring) +Me.TabPage34.Controls.Add(Me.CBTagSmiling) +Me.TabPage34.Controls.Add(Me.TBTagDir) +Me.TabPage34.Controls.Add(Me.CBTagPiercing) +Me.TabPage34.Controls.Add(Me.CBTagLegs) +Me.TabPage34.Controls.Add(Me.TBTagFurniture) +Me.TabPage34.Controls.Add(Me.CBTagFurniture) +Me.TabPage34.Controls.Add(Me.TBTagSexToy) +Me.TabPage34.Controls.Add(Me.CBTagSexToy) +Me.TabPage34.Controls.Add(Me.TBTagTattoo) +Me.TabPage34.Controls.Add(Me.CBTagTattoo) +Me.TabPage34.Controls.Add(Me.TBTagUnderwear) +Me.TabPage34.Controls.Add(Me.CBTagUnderwear) +Me.TabPage34.Controls.Add(Me.TBTagGarment) +Me.TabPage34.Controls.Add(Me.CBTagGarment) +Me.TabPage34.Controls.Add(Me.Label72) +Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) +Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) +Me.TabPage34.Controls.Add(Me.CBTagCloseUp) +Me.TabPage34.Controls.Add(Me.CBTagNaked) +Me.TabPage34.Controls.Add(Me.CBTagSideView) +Me.TabPage34.Controls.Add(Me.BTNTagPrevious) +Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) +Me.TabPage34.Controls.Add(Me.BTNTagNext) +Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) +Me.TabPage34.Controls.Add(Me.LBLTagCount) +Me.TabPage34.Controls.Add(Me.CBTagSucking) +Me.TabPage34.Controls.Add(Me.CBTagMasturbating) +Me.TabPage34.Controls.Add(Me.CBTagFeet) +Me.TabPage34.Controls.Add(Me.CBTagBoobs) +Me.TabPage34.Controls.Add(Me.CBTagAss) +Me.TabPage34.Controls.Add(Me.CBTagPussy) +Me.TabPage34.Controls.Add(Me.BTNTagSave) +Me.TabPage34.Controls.Add(Me.BTNTagDir) +Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) +Me.TabPage34.Controls.Add(Me.CBTagFace) +Me.TabPage34.Location = New System.Drawing.Point(4, 22) +Me.TabPage34.Name = "TabPage34" +Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage34.Size = New System.Drawing.Size(700, 411) +Me.TabPage34.TabIndex = 0 +Me.TabPage34.Text = "Domme Tags" ' -'CBTagAnalToy +'CBTagSeeThrough ' -Me.CBTagAnalToy.AutoSize = true -Me.CBTagAnalToy.Enabled = false -Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) -Me.CBTagAnalToy.Name = "CBTagAnalToy" -Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalToy.TabIndex = 215 -Me.CBTagAnalToy.Text = "Anal Toy" -Me.CBTagAnalToy.UseVisualStyleBackColor = true +Me.CBTagSeeThrough.AutoSize = true +Me.CBTagSeeThrough.Enabled = false +Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) +Me.CBTagSeeThrough.Name = "CBTagSeeThrough" +Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) +Me.CBTagSeeThrough.TabIndex = 226 +Me.CBTagSeeThrough.Text = "See Through" +Me.CBTagSeeThrough.UseVisualStyleBackColor = true ' -'CBTagDomme +'CBTagAllFours ' -Me.CBTagDomme.AutoSize = true -Me.CBTagDomme.Enabled = false -Me.CBTagDomme.ForeColor = System.Drawing.Color.Black -Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) -Me.CBTagDomme.Name = "CBTagDomme" -Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) -Me.CBTagDomme.TabIndex = 219 -Me.CBTagDomme.Text = "Tease A.I. Domme" -Me.CBTagDomme.UseVisualStyleBackColor = true +Me.CBTagAllFours.AutoSize = true +Me.CBTagAllFours.Enabled = false +Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black +Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) +Me.CBTagAllFours.Name = "CBTagAllFours" +Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) +Me.CBTagAllFours.TabIndex = 225 +Me.CBTagAllFours.Text = "All Fours" +Me.CBTagAllFours.UseVisualStyleBackColor = true ' -'CBTagPocketPussy +'CBTagGlaring ' -Me.CBTagPocketPussy.AutoSize = true -Me.CBTagPocketPussy.Enabled = false -Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) -Me.CBTagPocketPussy.Name = "CBTagPocketPussy" -Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) -Me.CBTagPocketPussy.TabIndex = 205 -Me.CBTagPocketPussy.Text = "Pocket Pussy" -Me.CBTagPocketPussy.UseVisualStyleBackColor = true +Me.CBTagGlaring.AutoSize = true +Me.CBTagGlaring.Enabled = false +Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black +Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) +Me.CBTagGlaring.Name = "CBTagGlaring" +Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) +Me.CBTagGlaring.TabIndex = 224 +Me.CBTagGlaring.Text = "Glaring" +Me.CBTagGlaring.UseVisualStyleBackColor = true ' -'CBTagWatersports +'CBTagSmiling ' -Me.CBTagWatersports.AutoSize = true -Me.CBTagWatersports.Enabled = false -Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black -Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) -Me.CBTagWatersports.Name = "CBTagWatersports" -Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) -Me.CBTagWatersports.TabIndex = 218 -Me.CBTagWatersports.Text = "Watersports" -Me.CBTagWatersports.UseVisualStyleBackColor = true +Me.CBTagSmiling.AutoSize = true +Me.CBTagSmiling.Enabled = false +Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black +Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) +Me.CBTagSmiling.Name = "CBTagSmiling" +Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) +Me.CBTagSmiling.TabIndex = 223 +Me.CBTagSmiling.Text = "Smiling" +Me.CBTagSmiling.UseVisualStyleBackColor = true +' +'TBTagDir +' +Me.TBTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBTagDir.Name = "TBTagDir" +Me.TBTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBTagDir.TabIndex = 222 +Me.TBTagDir.Text = "Enter Image Directory" ' -'CBTagStockings +'CBTagPiercing ' -Me.CBTagStockings.AutoSize = true -Me.CBTagStockings.Enabled = false -Me.CBTagStockings.ForeColor = System.Drawing.Color.Black -Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) -Me.CBTagStockings.Name = "CBTagStockings" -Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) -Me.CBTagStockings.TabIndex = 217 -Me.CBTagStockings.Text = "Stockings" -Me.CBTagStockings.UseVisualStyleBackColor = true +Me.CBTagPiercing.AutoSize = true +Me.CBTagPiercing.Enabled = false +Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black +Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) +Me.CBTagPiercing.Name = "CBTagPiercing" +Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) +Me.CBTagPiercing.TabIndex = 221 +Me.CBTagPiercing.Text = "Piercing" +Me.CBTagPiercing.UseVisualStyleBackColor = true ' -'CBTagCumshot +'CBTagLegs ' -Me.CBTagCumshot.AutoSize = true -Me.CBTagCumshot.Enabled = false -Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black -Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) -Me.CBTagCumshot.Name = "CBTagCumshot" -Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) -Me.CBTagCumshot.TabIndex = 206 -Me.CBTagCumshot.Text = "Cumshot" -Me.CBTagCumshot.UseVisualStyleBackColor = true +Me.CBTagLegs.AutoSize = true +Me.CBTagLegs.Enabled = false +Me.CBTagLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) +Me.CBTagLegs.Name = "CBTagLegs" +Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagLegs.TabIndex = 220 +Me.CBTagLegs.Text = "Legs" +Me.CBTagLegs.UseVisualStyleBackColor = true ' -'CBTagCumEating +'TBTagFurniture ' -Me.CBTagCumEating.AutoSize = true -Me.CBTagCumEating.Enabled = false -Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black -Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) -Me.CBTagCumEating.Name = "CBTagCumEating" -Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) -Me.CBTagCumEating.TabIndex = 204 -Me.CBTagCumEating.Text = "Cum Eating" -Me.CBTagCumEating.UseVisualStyleBackColor = true +Me.TBTagFurniture.Enabled = false +Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) +Me.TBTagFurniture.Name = "TBTagFurniture" +Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) +Me.TBTagFurniture.TabIndex = 219 ' -'CBTagVibrator +'CBTagFurniture ' -Me.CBTagVibrator.AutoSize = true -Me.CBTagVibrator.Enabled = false -Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black -Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) -Me.CBTagVibrator.Name = "CBTagVibrator" -Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) -Me.CBTagVibrator.TabIndex = 210 -Me.CBTagVibrator.Text = "Vibrator" -Me.CBTagVibrator.UseVisualStyleBackColor = true +Me.CBTagFurniture.AutoSize = true +Me.CBTagFurniture.Enabled = false +Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black +Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) +Me.CBTagFurniture.Name = "CBTagFurniture" +Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) +Me.CBTagFurniture.TabIndex = 218 +Me.CBTagFurniture.Text = "Furniture" +Me.CBTagFurniture.UseVisualStyleBackColor = true ' -'CBTagDildo +'TBTagSexToy ' -Me.CBTagDildo.AutoSize = true -Me.CBTagDildo.Enabled = false -Me.CBTagDildo.ForeColor = System.Drawing.Color.Black -Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) -Me.CBTagDildo.Name = "CBTagDildo" -Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) -Me.CBTagDildo.TabIndex = 213 -Me.CBTagDildo.Text = "Dildo" -Me.CBTagDildo.UseVisualStyleBackColor = true +Me.TBTagSexToy.Enabled = false +Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) +Me.TBTagSexToy.Name = "TBTagSexToy" +Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) +Me.TBTagSexToy.TabIndex = 217 ' -'CBTagKissing +'CBTagSexToy ' -Me.CBTagKissing.AutoSize = true -Me.CBTagKissing.Enabled = false -Me.CBTagKissing.ForeColor = System.Drawing.Color.Black -Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) -Me.CBTagKissing.Name = "CBTagKissing" -Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) -Me.CBTagKissing.TabIndex = 203 -Me.CBTagKissing.Text = "Kissing" -Me.CBTagKissing.UseVisualStyleBackColor = true +Me.CBTagSexToy.AutoSize = true +Me.CBTagSexToy.Enabled = false +Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black +Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) +Me.CBTagSexToy.Name = "CBTagSexToy" +Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) +Me.CBTagSexToy.TabIndex = 216 +Me.CBTagSexToy.Text = "Sex Toy" +Me.CBTagSexToy.UseVisualStyleBackColor = true ' -'GroupBox51 +'TBTagTattoo ' -Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) -Me.GroupBox51.Controls.Add(Me.CBTagGag) -Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) -Me.GroupBox51.Controls.Add(Me.CBTagWhipping) -Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) -Me.GroupBox51.Controls.Add(Me.CBTagElectro) -Me.GroupBox51.Controls.Add(Me.CBTagHotWax) -Me.GroupBox51.Controls.Add(Me.CBTagClamps) -Me.GroupBox51.Controls.Add(Me.CBTagStrapon) -Me.GroupBox51.Controls.Add(Me.CBTagSpanking) -Me.GroupBox51.Controls.Add(Me.CBTagNeedles) -Me.GroupBox51.Location = New System.Drawing.Point(450, 37) -Me.GroupBox51.Name = "GroupBox51" -Me.GroupBox51.Size = New System.Drawing.Size(105, 238) -Me.GroupBox51.TabIndex = 238 -Me.GroupBox51.TabStop = false -Me.GroupBox51.Text = "BDSM" +Me.TBTagTattoo.Enabled = false +Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) +Me.TBTagTattoo.Name = "TBTagTattoo" +Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) +Me.TBTagTattoo.TabIndex = 215 ' -'CBTagBallTorture +'CBTagTattoo ' -Me.CBTagBallTorture.AutoSize = true -Me.CBTagBallTorture.Enabled = false -Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) -Me.CBTagBallTorture.Name = "CBTagBallTorture" -Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) -Me.CBTagBallTorture.TabIndex = 220 -Me.CBTagBallTorture.Text = "Ball Torture" -Me.CBTagBallTorture.UseVisualStyleBackColor = true +Me.CBTagTattoo.AutoSize = true +Me.CBTagTattoo.Enabled = false +Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) +Me.CBTagTattoo.Name = "CBTagTattoo" +Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) +Me.CBTagTattoo.TabIndex = 214 +Me.CBTagTattoo.Text = "Tattoo" +Me.CBTagTattoo.UseVisualStyleBackColor = true ' -'CBTagGag +'TBTagUnderwear ' -Me.CBTagGag.AutoSize = true -Me.CBTagGag.Enabled = false -Me.CBTagGag.ForeColor = System.Drawing.Color.Black -Me.CBTagGag.Location = New System.Drawing.Point(15, 137) -Me.CBTagGag.Name = "CBTagGag" -Me.CBTagGag.Size = New System.Drawing.Size(46, 17) -Me.CBTagGag.TabIndex = 214 -Me.CBTagGag.Text = "Gag" -Me.CBTagGag.UseVisualStyleBackColor = true +Me.TBTagUnderwear.Enabled = false +Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) +Me.TBTagUnderwear.Name = "TBTagUnderwear" +Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) +Me.TBTagUnderwear.TabIndex = 213 ' -'CBTagBlindfold +'CBTagUnderwear ' -Me.CBTagBlindfold.AutoSize = true -Me.CBTagBlindfold.Enabled = false -Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black -Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) -Me.CBTagBlindfold.Name = "CBTagBlindfold" -Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) -Me.CBTagBlindfold.TabIndex = 208 -Me.CBTagBlindfold.Text = "Blindfold" -Me.CBTagBlindfold.UseVisualStyleBackColor = true +Me.CBTagUnderwear.AutoSize = true +Me.CBTagUnderwear.Enabled = false +Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black +Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) +Me.CBTagUnderwear.Name = "CBTagUnderwear" +Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) +Me.CBTagUnderwear.TabIndex = 212 +Me.CBTagUnderwear.Text = "Underwear" +Me.CBTagUnderwear.UseVisualStyleBackColor = true ' -'CBTagWhipping +'TBTagGarment ' -Me.CBTagWhipping.AutoSize = true -Me.CBTagWhipping.Enabled = false -Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black -Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) -Me.CBTagWhipping.Name = "CBTagWhipping" -Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) -Me.CBTagWhipping.TabIndex = 203 -Me.CBTagWhipping.Text = "Whipping" -Me.CBTagWhipping.UseVisualStyleBackColor = true +Me.TBTagGarment.Enabled = false +Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) +Me.TBTagGarment.Name = "TBTagGarment" +Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) +Me.TBTagGarment.TabIndex = 211 ' -'CBTagCockTorture +'CBTagGarment ' -Me.CBTagCockTorture.AutoSize = true -Me.CBTagCockTorture.Enabled = false -Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) -Me.CBTagCockTorture.Name = "CBTagCockTorture" -Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) -Me.CBTagCockTorture.TabIndex = 204 -Me.CBTagCockTorture.Text = "Cock Torture" -Me.CBTagCockTorture.UseVisualStyleBackColor = true +Me.CBTagGarment.AutoSize = true +Me.CBTagGarment.Enabled = false +Me.CBTagGarment.ForeColor = System.Drawing.Color.Black +Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) +Me.CBTagGarment.Name = "CBTagGarment" +Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) +Me.CBTagGarment.TabIndex = 210 +Me.CBTagGarment.Text = "Garment" +Me.CBTagGarment.UseVisualStyleBackColor = true ' -'CBTagElectro +'Label72 ' -Me.CBTagElectro.AutoSize = true -Me.CBTagElectro.Enabled = false -Me.CBTagElectro.ForeColor = System.Drawing.Color.Black -Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) -Me.CBTagElectro.Name = "CBTagElectro" -Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) -Me.CBTagElectro.TabIndex = 207 -Me.CBTagElectro.Text = "Electro" -Me.CBTagElectro.UseVisualStyleBackColor = true +Me.Label72.BackColor = System.Drawing.Color.Transparent +Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label72.ForeColor = System.Drawing.Color.Black +Me.Label72.Location = New System.Drawing.Point(5, 368) +Me.Label72.Name = "Label72" +Me.Label72.Size = New System.Drawing.Size(451, 35) +Me.Label72.TabIndex = 189 +Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ + "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ + "e.g. Garment: dress)" +Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +' +'CBTagHandsCovering +' +Me.CBTagHandsCovering.AutoSize = true +Me.CBTagHandsCovering.Enabled = false +Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) +Me.CBTagHandsCovering.Name = "CBTagHandsCovering" +Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) +Me.CBTagHandsCovering.TabIndex = 209 +Me.CBTagHandsCovering.Text = "Hands Covering" +Me.CBTagHandsCovering.UseVisualStyleBackColor = true ' -'CBTagHotWax +'CBTagGarmentCovering ' -Me.CBTagHotWax.AutoSize = true -Me.CBTagHotWax.Enabled = false -Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black -Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) -Me.CBTagHotWax.Name = "CBTagHotWax" -Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) -Me.CBTagHotWax.TabIndex = 213 -Me.CBTagHotWax.Text = "Hot Wax" -Me.CBTagHotWax.UseVisualStyleBackColor = true +Me.CBTagGarmentCovering.AutoSize = true +Me.CBTagGarmentCovering.Enabled = false +Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) +Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" +Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) +Me.CBTagGarmentCovering.TabIndex = 208 +Me.CBTagGarmentCovering.Text = "Garment Covering" +Me.CBTagGarmentCovering.UseVisualStyleBackColor = true ' -'CBTagClamps +'CBTagCloseUp ' -Me.CBTagClamps.AutoSize = true -Me.CBTagClamps.Enabled = false -Me.CBTagClamps.ForeColor = System.Drawing.Color.Black -Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) -Me.CBTagClamps.Name = "CBTagClamps" -Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) -Me.CBTagClamps.TabIndex = 210 -Me.CBTagClamps.Text = "Clamps" -Me.CBTagClamps.UseVisualStyleBackColor = true +Me.CBTagCloseUp.AutoSize = true +Me.CBTagCloseUp.Enabled = false +Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black +Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) +Me.CBTagCloseUp.Name = "CBTagCloseUp" +Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) +Me.CBTagCloseUp.TabIndex = 205 +Me.CBTagCloseUp.Text = "Close Up" +Me.CBTagCloseUp.UseVisualStyleBackColor = true ' -'CBTagStrapon +'CBTagNaked ' -Me.CBTagStrapon.AutoSize = true -Me.CBTagStrapon.Enabled = false -Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black -Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) -Me.CBTagStrapon.Name = "CBTagStrapon" -Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) -Me.CBTagStrapon.TabIndex = 205 -Me.CBTagStrapon.Text = "Strap-on" -Me.CBTagStrapon.UseVisualStyleBackColor = true +Me.CBTagNaked.AutoSize = true +Me.CBTagNaked.Enabled = false +Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) +Me.CBTagNaked.Name = "CBTagNaked" +Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) +Me.CBTagNaked.TabIndex = 199 +Me.CBTagNaked.Text = "Naked" +Me.CBTagNaked.UseVisualStyleBackColor = true ' -'CBTagSpanking +'CBTagSideView ' -Me.CBTagSpanking.AutoSize = true -Me.CBTagSpanking.Enabled = false -Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black -Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) -Me.CBTagSpanking.Name = "CBTagSpanking" -Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) -Me.CBTagSpanking.TabIndex = 206 -Me.CBTagSpanking.Text = "Spanking" -Me.CBTagSpanking.UseVisualStyleBackColor = true +Me.CBTagSideView.AutoSize = true +Me.CBTagSideView.Enabled = false +Me.CBTagSideView.ForeColor = System.Drawing.Color.Black +Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) +Me.CBTagSideView.Name = "CBTagSideView" +Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) +Me.CBTagSideView.TabIndex = 204 +Me.CBTagSideView.Text = "Side View" +Me.CBTagSideView.UseVisualStyleBackColor = true ' -'CBTagNeedles +'BTNTagPrevious ' -Me.CBTagNeedles.AutoSize = true -Me.CBTagNeedles.Enabled = false -Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black -Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) -Me.CBTagNeedles.Name = "CBTagNeedles" -Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) -Me.CBTagNeedles.TabIndex = 209 -Me.CBTagNeedles.Text = "Needles" -Me.CBTagNeedles.UseVisualStyleBackColor = true +Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNTagPrevious.Enabled = false +Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNTagPrevious.Name = "BTNTagPrevious" +Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNTagPrevious.TabIndex = 207 +Me.BTNTagPrevious.Text = "<<" +Me.BTNTagPrevious.UseVisualStyleBackColor = false ' -'GroupBox50 +'CBTagHalfDressed ' -Me.GroupBox50.Controls.Add(Me.CBTagRimming) -Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) -Me.GroupBox50.Controls.Add(Me.CBTagMissionary) -Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) -Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagFingering) -Me.GroupBox50.Controls.Add(Me.CBTagGangbang) -Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) -Me.GroupBox50.Controls.Add(Me.CBTagDP) -Me.GroupBox50.Controls.Add(Me.CBTagHandjob) -Me.GroupBox50.Controls.Add(Me.CBTagStanding) -Me.GroupBox50.Controls.Add(Me.CBTagFootjob) -Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) -Me.GroupBox50.Controls.Add(Me.CBTagTitjob) -Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) -Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) -Me.GroupBox50.Location = New System.Drawing.Point(119, 37) -Me.GroupBox50.Name = "GroupBox50" -Me.GroupBox50.Size = New System.Drawing.Size(105, 358) -Me.GroupBox50.TabIndex = 237 -Me.GroupBox50.TabStop = false -Me.GroupBox50.Text = "Sex" +Me.CBTagHalfDressed.AutoSize = true +Me.CBTagHalfDressed.Enabled = false +Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) +Me.CBTagHalfDressed.Name = "CBTagHalfDressed" +Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) +Me.CBTagHalfDressed.TabIndex = 198 +Me.CBTagHalfDressed.Text = "Half Dressed" +Me.CBTagHalfDressed.UseVisualStyleBackColor = true ' -'CBTagRimming +'BTNTagNext ' -Me.CBTagRimming.AutoSize = true -Me.CBTagRimming.Enabled = false -Me.CBTagRimming.ForeColor = System.Drawing.Color.Black -Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) -Me.CBTagRimming.Name = "CBTagRimming" -Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) -Me.CBTagRimming.TabIndex = 219 -Me.CBTagRimming.Text = "Rimming" -Me.CBTagRimming.UseVisualStyleBackColor = true +Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNTagNext.Enabled = false +Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNTagNext.Name = "BTNTagNext" +Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNTagNext.TabIndex = 206 +Me.BTNTagNext.Text = ">>" +Me.BTNTagNext.UseVisualStyleBackColor = false ' -'CBTagFacesitting +'CBTagFullyDressed ' -Me.CBTagFacesitting.AutoSize = true -Me.CBTagFacesitting.Enabled = false -Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black -Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) -Me.CBTagFacesitting.Name = "CBTagFacesitting" -Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) -Me.CBTagFacesitting.TabIndex = 226 -Me.CBTagFacesitting.Text = "Facesitting" -Me.CBTagFacesitting.UseVisualStyleBackColor = true +Me.CBTagFullyDressed.AutoSize = true +Me.CBTagFullyDressed.Enabled = false +Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) +Me.CBTagFullyDressed.Name = "CBTagFullyDressed" +Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) +Me.CBTagFullyDressed.TabIndex = 197 +Me.CBTagFullyDressed.Text = "Fully Dressed" +Me.CBTagFullyDressed.UseVisualStyleBackColor = true ' -'CBTagMissionary +'LBLTagCount ' -Me.CBTagMissionary.AutoSize = true -Me.CBTagMissionary.Enabled = false -Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black -Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) -Me.CBTagMissionary.Name = "CBTagMissionary" -Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) -Me.CBTagMissionary.TabIndex = 208 -Me.CBTagMissionary.Text = "Missionary" -Me.CBTagMissionary.UseVisualStyleBackColor = true +Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTagCount.Enabled = false +Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLTagCount.Name = "LBLTagCount" +Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLTagCount.TabIndex = 203 +Me.LBLTagCount.Text = "0/0" +Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTagMasturbation +'CBTagSucking ' -Me.CBTagMasturbation.AutoSize = true -Me.CBTagMasturbation.Enabled = false -Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) -Me.CBTagMasturbation.Name = "CBTagMasturbation" -Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbation.TabIndex = 203 -Me.CBTagMasturbation.Text = "Masturbation" -Me.CBTagMasturbation.UseVisualStyleBackColor = true +Me.CBTagSucking.AutoSize = true +Me.CBTagSucking.Enabled = false +Me.CBTagSucking.ForeColor = System.Drawing.Color.Black +Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) +Me.CBTagSucking.Name = "CBTagSucking" +Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) +Me.CBTagSucking.TabIndex = 202 +Me.CBTagSucking.Text = "Sucking" +Me.CBTagSucking.UseVisualStyleBackColor = true ' -'CBTagRCowgirl +'CBTagMasturbating ' -Me.CBTagRCowgirl.AutoSize = true -Me.CBTagRCowgirl.Enabled = false -Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) -Me.CBTagRCowgirl.Name = "CBTagRCowgirl" -Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) -Me.CBTagRCowgirl.TabIndex = 218 -Me.CBTagRCowgirl.Text = "R. Cowgirl" -Me.CBTagRCowgirl.UseVisualStyleBackColor = true +Me.CBTagMasturbating.AutoSize = true +Me.CBTagMasturbating.Enabled = false +Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) +Me.CBTagMasturbating.Name = "CBTagMasturbating" +Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbating.TabIndex = 201 +Me.CBTagMasturbating.Text = "Masturbating" +Me.CBTagMasturbating.UseVisualStyleBackColor = true ' -'CBTagFingering +'CBTagFeet ' -Me.CBTagFingering.AutoSize = true -Me.CBTagFingering.Enabled = false -Me.CBTagFingering.ForeColor = System.Drawing.Color.Black -Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) -Me.CBTagFingering.Name = "CBTagFingering" -Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) -Me.CBTagFingering.TabIndex = 204 -Me.CBTagFingering.Text = "Fingering" -Me.CBTagFingering.UseVisualStyleBackColor = true +Me.CBTagFeet.AutoSize = true +Me.CBTagFeet.Enabled = false +Me.CBTagFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) +Me.CBTagFeet.Name = "CBTagFeet" +Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagFeet.TabIndex = 200 +Me.CBTagFeet.Text = "Feet" +Me.CBTagFeet.UseVisualStyleBackColor = true ' -'CBTagGangbang +'CBTagBoobs ' -Me.CBTagGangbang.AutoSize = true -Me.CBTagGangbang.Enabled = false -Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black -Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) -Me.CBTagGangbang.Name = "CBTagGangbang" -Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) -Me.CBTagGangbang.TabIndex = 217 -Me.CBTagGangbang.Text = "Gangbang" -Me.CBTagGangbang.UseVisualStyleBackColor = true +Me.CBTagBoobs.AutoSize = true +Me.CBTagBoobs.Enabled = false +Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black +Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) +Me.CBTagBoobs.Name = "CBTagBoobs" +Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) +Me.CBTagBoobs.TabIndex = 196 +Me.CBTagBoobs.Text = "Boobs" +Me.CBTagBoobs.UseVisualStyleBackColor = true ' -'CBTagBlowjob +'CBTagAss ' -Me.CBTagBlowjob.AutoSize = true -Me.CBTagBlowjob.Enabled = false -Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) -Me.CBTagBlowjob.Name = "CBTagBlowjob" -Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBTagBlowjob.TabIndex = 205 -Me.CBTagBlowjob.Text = "Blowjob" -Me.CBTagBlowjob.UseVisualStyleBackColor = true +Me.CBTagAss.AutoSize = true +Me.CBTagAss.Enabled = false +Me.CBTagAss.ForeColor = System.Drawing.Color.Black +Me.CBTagAss.Location = New System.Drawing.Point(484, 97) +Me.CBTagAss.Name = "CBTagAss" +Me.CBTagAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagAss.TabIndex = 195 +Me.CBTagAss.Text = "Ass" +Me.CBTagAss.UseVisualStyleBackColor = true ' -'CBTagDP +'CBTagPussy ' -Me.CBTagDP.AutoSize = true -Me.CBTagDP.Enabled = false -Me.CBTagDP.ForeColor = System.Drawing.Color.Black -Me.CBTagDP.Location = New System.Drawing.Point(15, 317) -Me.CBTagDP.Name = "CBTagDP" -Me.CBTagDP.Size = New System.Drawing.Size(41, 17) -Me.CBTagDP.TabIndex = 216 -Me.CBTagDP.Text = "DP" -Me.CBTagDP.UseVisualStyleBackColor = true +Me.CBTagPussy.AutoSize = true +Me.CBTagPussy.Enabled = false +Me.CBTagPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) +Me.CBTagPussy.Name = "CBTagPussy" +Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagPussy.TabIndex = 194 +Me.CBTagPussy.Text = "Pussy" +Me.CBTagPussy.UseVisualStyleBackColor = true ' -'CBTagHandjob +'BTNTagSave ' -Me.CBTagHandjob.AutoSize = true -Me.CBTagHandjob.Enabled = false -Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black -Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) -Me.CBTagHandjob.Name = "CBTagHandjob" -Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) -Me.CBTagHandjob.TabIndex = 206 -Me.CBTagHandjob.Text = "Handjob" -Me.CBTagHandjob.UseVisualStyleBackColor = true +Me.BTNTagSave.Enabled = false +Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNTagSave.Name = "BTNTagSave" +Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNTagSave.TabIndex = 193 +Me.BTNTagSave.Text = "Finished" +Me.BTNTagSave.UseVisualStyleBackColor = true ' -'CBTagStanding +'BTNTagDir ' -Me.CBTagStanding.AutoSize = true -Me.CBTagStanding.Enabled = false -Me.CBTagStanding.ForeColor = System.Drawing.Color.Black -Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) -Me.CBTagStanding.Name = "CBTagStanding" -Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) -Me.CBTagStanding.TabIndex = 215 -Me.CBTagStanding.Text = "Standing" -Me.CBTagStanding.UseVisualStyleBackColor = true +Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNTagDir.Name = "BTNTagDir" +Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNTagDir.TabIndex = 192 +Me.BTNTagDir.Text = "1" +Me.BTNTagDir.UseVisualStyleBackColor = true ' -'CBTagFootjob +'ImageTagPictureBox ' -Me.CBTagFootjob.AutoSize = true -Me.CBTagFootjob.Enabled = false -Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black -Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) -Me.CBTagFootjob.Name = "CBTagFootjob" -Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) -Me.CBTagFootjob.TabIndex = 207 -Me.CBTagFootjob.Text = "Footjob" -Me.CBTagFootjob.UseVisualStyleBackColor = true +Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black +Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) +Me.ImageTagPictureBox.Name = "ImageTagPictureBox" +Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) +Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.ImageTagPictureBox.TabIndex = 191 +Me.ImageTagPictureBox.TabStop = false ' -'CBTagCowgirl +'CBTagFace ' -Me.CBTagCowgirl.AutoSize = true -Me.CBTagCowgirl.Enabled = false -Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) -Me.CBTagCowgirl.Name = "CBTagCowgirl" -Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) -Me.CBTagCowgirl.TabIndex = 214 -Me.CBTagCowgirl.Text = "Cowgirl" -Me.CBTagCowgirl.UseVisualStyleBackColor = true +Me.CBTagFace.AutoSize = true +Me.CBTagFace.Enabled = false +Me.CBTagFace.ForeColor = System.Drawing.Color.Black +Me.CBTagFace.Location = New System.Drawing.Point(484, 37) +Me.CBTagFace.Name = "CBTagFace" +Me.CBTagFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagFace.TabIndex = 190 +Me.CBTagFace.Text = "Face" +Me.CBTagFace.UseVisualStyleBackColor = true ' -'CBTagDoggyStyle +'TabPage35 ' -Me.CBTagDoggyStyle.AutoSize = true -Me.CBTagDoggyStyle.Enabled = false -Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black -Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) -Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" -Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) -Me.CBTagDoggyStyle.TabIndex = 209 -Me.CBTagDoggyStyle.Text = "Doggy Style" -Me.CBTagDoggyStyle.UseVisualStyleBackColor = true +Me.TabPage35.BackColor = System.Drawing.Color.LightGray +Me.TabPage35.Controls.Add(Me.GroupBox55) +Me.TabPage35.Controls.Add(Me.GroupBox53) +Me.TabPage35.Controls.Add(Me.GroupBox49) +Me.TabPage35.Controls.Add(Me.GroupBox46) +Me.TabPage35.Controls.Add(Me.GroupBox54) +Me.TabPage35.Controls.Add(Me.GroupBox51) +Me.TabPage35.Controls.Add(Me.GroupBox50) +Me.TabPage35.Controls.Add(Me.GroupBox48) +Me.TabPage35.Controls.Add(Me.TBLocalTagDir) +Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) +Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) +Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) +Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) +Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) +Me.TabPage35.Location = New System.Drawing.Point(4, 22) +Me.TabPage35.Name = "TabPage35" +Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage35.Size = New System.Drawing.Size(700, 411) +Me.TabPage35.TabIndex = 1 +Me.TabPage35.Text = "Local Tags" ' -'CBTagTitjob +'GroupBox55 ' -Me.CBTagTitjob.AutoSize = true -Me.CBTagTitjob.Enabled = false -Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black -Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) -Me.CBTagTitjob.Name = "CBTagTitjob" -Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) -Me.CBTagTitjob.TabIndex = 213 -Me.CBTagTitjob.Text = "Titjob" -Me.CBTagTitjob.UseVisualStyleBackColor = true +Me.GroupBox55.Controls.Add(Me.CBTagNurse) +Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) +Me.GroupBox55.Controls.Add(Me.CBTagMaid) +Me.GroupBox55.Controls.Add(Me.CBTagTeacher) +Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) +Me.GroupBox55.Location = New System.Drawing.Point(341, 277) +Me.GroupBox55.Name = "GroupBox55" +Me.GroupBox55.Size = New System.Drawing.Size(103, 118) +Me.GroupBox55.TabIndex = 241 +Me.GroupBox55.TabStop = false +Me.GroupBox55.Text = "Outfit" ' -'CBTagCunnilingus +'CBTagNurse ' -Me.CBTagCunnilingus.AutoSize = true -Me.CBTagCunnilingus.Enabled = false -Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black -Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) -Me.CBTagCunnilingus.Name = "CBTagCunnilingus" -Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) -Me.CBTagCunnilingus.TabIndex = 210 -Me.CBTagCunnilingus.Text = "Cunnilingus" -Me.CBTagCunnilingus.UseVisualStyleBackColor = true +Me.CBTagNurse.AutoSize = true +Me.CBTagNurse.Enabled = false +Me.CBTagNurse.ForeColor = System.Drawing.Color.Black +Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) +Me.CBTagNurse.Name = "CBTagNurse" +Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) +Me.CBTagNurse.TabIndex = 203 +Me.CBTagNurse.Text = "Nurse" +Me.CBTagNurse.UseVisualStyleBackColor = true ' -'CBTagAnalSex +'CBTagSchoolgirl ' -Me.CBTagAnalSex.AutoSize = true -Me.CBTagAnalSex.Enabled = false -Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) -Me.CBTagAnalSex.Name = "CBTagAnalSex" -Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalSex.TabIndex = 212 -Me.CBTagAnalSex.Text = "Anal Sex" -Me.CBTagAnalSex.UseVisualStyleBackColor = true +Me.CBTagSchoolgirl.AutoSize = true +Me.CBTagSchoolgirl.Enabled = false +Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) +Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" +Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) +Me.CBTagSchoolgirl.TabIndex = 204 +Me.CBTagSchoolgirl.Text = "Schoolgirl" +Me.CBTagSchoolgirl.UseVisualStyleBackColor = true ' -'GroupBox48 +'CBTagMaid ' -Me.GroupBox48.Controls.Add(Me.CBTagArtwork) -Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) -Me.GroupBox48.Controls.Add(Me.CBTagPOV) -Me.GroupBox48.Controls.Add(Me.CBTagHardcore) -Me.GroupBox48.Controls.Add(Me.CBTagTD) -Me.GroupBox48.Controls.Add(Me.CBTagGay) -Me.GroupBox48.Controls.Add(Me.CBTagBath) -Me.GroupBox48.Controls.Add(Me.CBTagBisexual) -Me.GroupBox48.Controls.Add(Me.CBTagCFNM) -Me.GroupBox48.Controls.Add(Me.CBTagLesbian) -Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) -Me.GroupBox48.Controls.Add(Me.CBTagSM) -Me.GroupBox48.Controls.Add(Me.CBTagBondage) -Me.GroupBox48.Controls.Add(Me.CBTagSoloM) -Me.GroupBox48.Controls.Add(Me.CBTagSoloF) -Me.GroupBox48.Controls.Add(Me.CBTagChastity) -Me.GroupBox48.Controls.Add(Me.CBTagShower) -Me.GroupBox48.Location = New System.Drawing.Point(8, 37) -Me.GroupBox48.Name = "GroupBox48" -Me.GroupBox48.Size = New System.Drawing.Size(105, 358) -Me.GroupBox48.TabIndex = 235 -Me.GroupBox48.TabStop = false -Me.GroupBox48.Text = "Category" +Me.CBTagMaid.AutoSize = true +Me.CBTagMaid.Enabled = false +Me.CBTagMaid.ForeColor = System.Drawing.Color.Black +Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) +Me.CBTagMaid.Name = "CBTagMaid" +Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) +Me.CBTagMaid.TabIndex = 205 +Me.CBTagMaid.Text = "Maid" +Me.CBTagMaid.UseVisualStyleBackColor = true ' -'CBTagArtwork +'CBTagTeacher ' -Me.CBTagArtwork.AutoSize = true -Me.CBTagArtwork.Enabled = false -Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black -Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) -Me.CBTagArtwork.Name = "CBTagArtwork" -Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) -Me.CBTagArtwork.TabIndex = 225 -Me.CBTagArtwork.Text = "Artwork" -Me.CBTagArtwork.UseVisualStyleBackColor = true +Me.CBTagTeacher.AutoSize = true +Me.CBTagTeacher.Enabled = false +Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black +Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) +Me.CBTagTeacher.Name = "CBTagTeacher" +Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) +Me.CBTagTeacher.TabIndex = 206 +Me.CBTagTeacher.Text = "Teacher" +Me.CBTagTeacher.UseVisualStyleBackColor = true ' -'CBTagOutdoors +'CBTagSuperhero ' -Me.CBTagOutdoors.AutoSize = true -Me.CBTagOutdoors.Enabled = false -Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black -Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) -Me.CBTagOutdoors.Name = "CBTagOutdoors" -Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) -Me.CBTagOutdoors.TabIndex = 219 -Me.CBTagOutdoors.Text = "Outdoors" -Me.CBTagOutdoors.UseVisualStyleBackColor = true +Me.CBTagSuperhero.AutoSize = true +Me.CBTagSuperhero.Enabled = false +Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black +Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) +Me.CBTagSuperhero.Name = "CBTagSuperhero" +Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) +Me.CBTagSuperhero.TabIndex = 213 +Me.CBTagSuperhero.Text = "Superhero" +Me.CBTagSuperhero.UseVisualStyleBackColor = true ' -'CBTagPOV +'GroupBox53 ' -Me.CBTagPOV.AutoSize = true -Me.CBTagPOV.Enabled = false -Me.CBTagPOV.ForeColor = System.Drawing.Color.Black -Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) -Me.CBTagPOV.Name = "CBTagPOV" -Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) -Me.CBTagPOV.TabIndex = 208 -Me.CBTagPOV.Text = "POV" -Me.CBTagPOV.UseVisualStyleBackColor = true +Me.GroupBox53.Controls.Add(Me.CBTagTrap) +Me.GroupBox53.Controls.Add(Me.CBTagTentacles) +Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) +Me.GroupBox53.Controls.Add(Me.CBTagBukkake) +Me.GroupBox53.Controls.Add(Me.CBTagGanguro) +Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) +Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) +Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) +Me.GroupBox53.Controls.Add(Me.CBTagAhegao) +Me.GroupBox53.Controls.Add(Me.CBTagShibari) +Me.GroupBox53.Location = New System.Drawing.Point(450, 277) +Me.GroupBox53.Name = "GroupBox53" +Me.GroupBox53.Size = New System.Drawing.Size(246, 118) +Me.GroupBox53.TabIndex = 240 +Me.GroupBox53.TabStop = false +Me.GroupBox53.Text = "Hentai/JAV Themes" ' -'CBTagHardcore +'CBTagTrap ' -Me.CBTagHardcore.AutoSize = true -Me.CBTagHardcore.Enabled = false -Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black -Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) -Me.CBTagHardcore.Name = "CBTagHardcore" -Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBTagHardcore.TabIndex = 203 -Me.CBTagHardcore.Text = "Hardcore" -Me.CBTagHardcore.UseVisualStyleBackColor = true +Me.CBTagTrap.AutoSize = true +Me.CBTagTrap.Enabled = false +Me.CBTagTrap.ForeColor = System.Drawing.Color.Black +Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) +Me.CBTagTrap.Name = "CBTagTrap" +Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) +Me.CBTagTrap.TabIndex = 226 +Me.CBTagTrap.Text = "Trap" +Me.CBTagTrap.UseVisualStyleBackColor = true ' -'CBTagTD +'CBTagTentacles ' -Me.CBTagTD.AutoSize = true -Me.CBTagTD.Enabled = false -Me.CBTagTD.ForeColor = System.Drawing.Color.Black -Me.CBTagTD.Location = New System.Drawing.Point(15, 217) -Me.CBTagTD.Name = "CBTagTD" -Me.CBTagTD.Size = New System.Drawing.Size(47, 17) -Me.CBTagTD.TabIndex = 218 -Me.CBTagTD.Text = "T&&D" -Me.CBTagTD.UseVisualStyleBackColor = true +Me.CBTagTentacles.AutoSize = true +Me.CBTagTentacles.Enabled = false +Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black +Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) +Me.CBTagTentacles.Name = "CBTagTentacles" +Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) +Me.CBTagTentacles.TabIndex = 204 +Me.CBTagTentacles.Text = "Tentacles" +Me.CBTagTentacles.UseVisualStyleBackColor = true ' -'CBTagGay +'CBTagMonsterGirl ' -Me.CBTagGay.AutoSize = true -Me.CBTagGay.Enabled = false -Me.CBTagGay.ForeColor = System.Drawing.Color.Black -Me.CBTagGay.Location = New System.Drawing.Point(15, 57) -Me.CBTagGay.Name = "CBTagGay" -Me.CBTagGay.Size = New System.Drawing.Size(45, 17) -Me.CBTagGay.TabIndex = 204 -Me.CBTagGay.Text = "Gay" -Me.CBTagGay.UseVisualStyleBackColor = true +Me.CBTagMonsterGirl.AutoSize = true +Me.CBTagMonsterGirl.Enabled = false +Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black +Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) +Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" +Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) +Me.CBTagMonsterGirl.TabIndex = 214 +Me.CBTagMonsterGirl.Text = "Monster Girl" +Me.CBTagMonsterGirl.UseVisualStyleBackColor = true ' -'CBTagBath +'CBTagBukkake ' -Me.CBTagBath.AutoSize = true -Me.CBTagBath.Enabled = false -Me.CBTagBath.ForeColor = System.Drawing.Color.Black -Me.CBTagBath.Location = New System.Drawing.Point(15, 277) -Me.CBTagBath.Name = "CBTagBath" -Me.CBTagBath.Size = New System.Drawing.Size(48, 17) -Me.CBTagBath.TabIndex = 217 -Me.CBTagBath.Text = "Bath" -Me.CBTagBath.UseVisualStyleBackColor = true +Me.CBTagBukkake.AutoSize = true +Me.CBTagBukkake.Enabled = false +Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black +Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) +Me.CBTagBukkake.Name = "CBTagBukkake" +Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) +Me.CBTagBukkake.TabIndex = 210 +Me.CBTagBukkake.Text = "Bukkake" +Me.CBTagBukkake.UseVisualStyleBackColor = true ' -'CBTagBisexual +'CBTagGanguro ' -Me.CBTagBisexual.AutoSize = true -Me.CBTagBisexual.Enabled = false -Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black -Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) -Me.CBTagBisexual.Name = "CBTagBisexual" -Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) -Me.CBTagBisexual.TabIndex = 205 -Me.CBTagBisexual.Text = "Bisexual" -Me.CBTagBisexual.UseVisualStyleBackColor = true +Me.CBTagGanguro.AutoSize = true +Me.CBTagGanguro.Enabled = false +Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black +Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) +Me.CBTagGanguro.Name = "CBTagGanguro" +Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) +Me.CBTagGanguro.TabIndex = 205 +Me.CBTagGanguro.Text = "Ganguro" +Me.CBTagGanguro.UseVisualStyleBackColor = true ' -'CBTagCFNM +'CBTagBodyWriting ' -Me.CBTagCFNM.AutoSize = true -Me.CBTagCFNM.Enabled = false -Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black -Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) -Me.CBTagCFNM.Name = "CBTagCFNM" -Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) -Me.CBTagCFNM.TabIndex = 216 -Me.CBTagCFNM.Text = "CFNM" -Me.CBTagCFNM.UseVisualStyleBackColor = true +Me.CBTagBodyWriting.AutoSize = true +Me.CBTagBodyWriting.Enabled = false +Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) +Me.CBTagBodyWriting.Name = "CBTagBodyWriting" +Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) +Me.CBTagBodyWriting.TabIndex = 208 +Me.CBTagBodyWriting.Text = "Body Writing" +Me.CBTagBodyWriting.UseVisualStyleBackColor = true ' -'CBTagLesbian +'CBTagMahouShoujo ' -Me.CBTagLesbian.AutoSize = true -Me.CBTagLesbian.Enabled = false -Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black -Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) -Me.CBTagLesbian.Name = "CBTagLesbian" -Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBTagLesbian.TabIndex = 206 -Me.CBTagLesbian.Text = "Lesbian" -Me.CBTagLesbian.UseVisualStyleBackColor = true +Me.CBTagMahouShoujo.AutoSize = true +Me.CBTagMahouShoujo.Enabled = false +Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black +Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) +Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" +Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) +Me.CBTagMahouShoujo.TabIndex = 209 +Me.CBTagMahouShoujo.Text = "Mahou Shoujo" +Me.CBTagMahouShoujo.UseVisualStyleBackColor = true ' -'CBTagSoloFuta +'CBTagBakunyuu ' -Me.CBTagSoloFuta.AutoSize = true -Me.CBTagSoloFuta.Enabled = false -Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) -Me.CBTagSoloFuta.Name = "CBTagSoloFuta" -Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) -Me.CBTagSoloFuta.TabIndex = 207 -Me.CBTagSoloFuta.Text = "Solo Futa" -Me.CBTagSoloFuta.UseVisualStyleBackColor = true +Me.CBTagBakunyuu.AutoSize = true +Me.CBTagBakunyuu.Enabled = false +Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black +Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) +Me.CBTagBakunyuu.Name = "CBTagBakunyuu" +Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) +Me.CBTagBakunyuu.TabIndex = 213 +Me.CBTagBakunyuu.Text = "Bakunyuu" +Me.CBTagBakunyuu.UseVisualStyleBackColor = true ' -'CBTagSM +'CBTagAhegao +' +Me.CBTagAhegao.AutoSize = true +Me.CBTagAhegao.Enabled = false +Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black +Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) +Me.CBTagAhegao.Name = "CBTagAhegao" +Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) +Me.CBTagAhegao.TabIndex = 207 +Me.CBTagAhegao.Text = "Ahegao" +Me.CBTagAhegao.UseVisualStyleBackColor = true +' +'CBTagShibari +' +Me.CBTagShibari.AutoSize = true +Me.CBTagShibari.Enabled = false +Me.CBTagShibari.ForeColor = System.Drawing.Color.Black +Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) +Me.CBTagShibari.Name = "CBTagShibari" +Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) +Me.CBTagShibari.TabIndex = 203 +Me.CBTagShibari.Text = "Shibari" +Me.CBTagShibari.UseVisualStyleBackColor = true ' -Me.CBTagSM.AutoSize = true -Me.CBTagSM.Enabled = false -Me.CBTagSM.ForeColor = System.Drawing.Color.Black -Me.CBTagSM.Location = New System.Drawing.Point(15, 197) -Me.CBTagSM.Name = "CBTagSM" -Me.CBTagSM.Size = New System.Drawing.Size(48, 17) -Me.CBTagSM.TabIndex = 214 -Me.CBTagSM.Text = "S&&M" -Me.CBTagSM.UseVisualStyleBackColor = true +'GroupBox49 ' -'CBTagBondage +Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) +Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) +Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) +Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) +Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) +Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) +Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) +Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) +Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) +Me.GroupBox49.Location = New System.Drawing.Point(341, 37) +Me.GroupBox49.Name = "GroupBox49" +Me.GroupBox49.Size = New System.Drawing.Size(103, 238) +Me.GroupBox49.TabIndex = 236 +Me.GroupBox49.TabStop = false +Me.GroupBox49.Text = "Body Part" ' -Me.CBTagBondage.AutoSize = true -Me.CBTagBondage.Enabled = false -Me.CBTagBondage.ForeColor = System.Drawing.Color.Black -Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) -Me.CBTagBondage.Name = "CBTagBondage" -Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) -Me.CBTagBondage.TabIndex = 209 -Me.CBTagBondage.Text = "Bondage" -Me.CBTagBondage.UseVisualStyleBackColor = true +'CBTagBodyMouth ' -'CBTagSoloM +Me.CBTagBodyMouth.AutoSize = true +Me.CBTagBodyMouth.Enabled = false +Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) +Me.CBTagBodyMouth.Name = "CBTagBodyMouth" +Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) +Me.CBTagBodyMouth.TabIndex = 220 +Me.CBTagBodyMouth.Text = "Mouth" +Me.CBTagBodyMouth.UseVisualStyleBackColor = true ' -Me.CBTagSoloM.AutoSize = true -Me.CBTagSoloM.Enabled = false -Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) -Me.CBTagSoloM.Name = "CBTagSoloM" -Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) -Me.CBTagSoloM.TabIndex = 213 -Me.CBTagSoloM.Text = "Solo M" -Me.CBTagSoloM.UseVisualStyleBackColor = true +'CBTagBodyAss ' -'CBTagSoloF +Me.CBTagBodyAss.AutoSize = true +Me.CBTagBodyAss.Enabled = false +Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) +Me.CBTagBodyAss.Name = "CBTagBodyAss" +Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyAss.TabIndex = 219 +Me.CBTagBodyAss.Text = "Ass" +Me.CBTagBodyAss.UseVisualStyleBackColor = true ' -Me.CBTagSoloF.AutoSize = true -Me.CBTagSoloF.Enabled = false -Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) -Me.CBTagSoloF.Name = "CBTagSoloF" -Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) -Me.CBTagSoloF.TabIndex = 210 -Me.CBTagSoloF.Text = "Solo F" -Me.CBTagSoloF.UseVisualStyleBackColor = true +'CBTagBodyFace ' -'CBTagChastity +Me.CBTagBodyFace.AutoSize = true +Me.CBTagBodyFace.Enabled = false +Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) +Me.CBTagBodyFace.Name = "CBTagBodyFace" +Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) +Me.CBTagBodyFace.TabIndex = 203 +Me.CBTagBodyFace.Text = "Face" +Me.CBTagBodyFace.UseVisualStyleBackColor = true ' -Me.CBTagChastity.AutoSize = true -Me.CBTagChastity.Enabled = false -Me.CBTagChastity.ForeColor = System.Drawing.Color.Black -Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) -Me.CBTagChastity.Name = "CBTagChastity" -Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) -Me.CBTagChastity.TabIndex = 212 -Me.CBTagChastity.Text = "Chastity" -Me.CBTagChastity.UseVisualStyleBackColor = true +'CBTagBodyLegs ' -'CBTagShower +Me.CBTagBodyLegs.AutoSize = true +Me.CBTagBodyLegs.Enabled = false +Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) +Me.CBTagBodyLegs.Name = "CBTagBodyLegs" +Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) +Me.CBTagBodyLegs.TabIndex = 218 +Me.CBTagBodyLegs.Text = "Legs" +Me.CBTagBodyLegs.UseVisualStyleBackColor = true ' -Me.CBTagShower.AutoSize = true -Me.CBTagShower.Enabled = false -Me.CBTagShower.ForeColor = System.Drawing.Color.Black -Me.CBTagShower.Location = New System.Drawing.Point(15, 297) -Me.CBTagShower.Name = "CBTagShower" -Me.CBTagShower.Size = New System.Drawing.Size(62, 17) -Me.CBTagShower.TabIndex = 211 -Me.CBTagShower.Text = "Shower" -Me.CBTagShower.UseVisualStyleBackColor = true +'CBTagBodyBalls ' -'TBLocalTagDir +Me.CBTagBodyBalls.AutoSize = true +Me.CBTagBodyBalls.Enabled = false +Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) +Me.CBTagBodyBalls.Name = "CBTagBodyBalls" +Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) +Me.CBTagBodyBalls.TabIndex = 217 +Me.CBTagBodyBalls.Text = "Balls" +Me.CBTagBodyBalls.UseVisualStyleBackColor = true ' -Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBLocalTagDir.Name = "TBLocalTagDir" -Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBLocalTagDir.TabIndex = 233 -Me.TBLocalTagDir.Text = "Enter Image Directory" +'CBTagBodyCock ' -'BTNLocalTagPrevious +Me.CBTagBodyCock.AutoSize = true +Me.CBTagBodyCock.Enabled = false +Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) +Me.CBTagBodyCock.Name = "CBTagBodyCock" +Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) +Me.CBTagBodyCock.TabIndex = 216 +Me.CBTagBodyCock.Text = "Cock" +Me.CBTagBodyCock.UseVisualStyleBackColor = true ' -Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagPrevious.Enabled = false -Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" -Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagPrevious.TabIndex = 232 -Me.BTNLocalTagPrevious.Text = "<<" -Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false +'CBTagBodyFeet ' -'BTNLocalTagNext +Me.CBTagBodyFeet.AutoSize = true +Me.CBTagBodyFeet.Enabled = false +Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) +Me.CBTagBodyFeet.Name = "CBTagBodyFeet" +Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) +Me.CBTagBodyFeet.TabIndex = 215 +Me.CBTagBodyFeet.Text = "Feet" +Me.CBTagBodyFeet.UseVisualStyleBackColor = true ' -Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagNext.Enabled = false -Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNLocalTagNext.Name = "BTNLocalTagNext" -Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagNext.TabIndex = 231 -Me.BTNLocalTagNext.Text = ">>" -Me.BTNLocalTagNext.UseVisualStyleBackColor = false +'CBTagBodyNipples ' -'LBLLocalTagCount +Me.CBTagBodyNipples.AutoSize = true +Me.CBTagBodyNipples.Enabled = false +Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) +Me.CBTagBodyNipples.Name = "CBTagBodyNipples" +Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) +Me.CBTagBodyNipples.TabIndex = 207 +Me.CBTagBodyNipples.Text = "Nipples" +Me.CBTagBodyNipples.UseVisualStyleBackColor = true ' -Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLLocalTagCount.Enabled = false -Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLLocalTagCount.Name = "LBLLocalTagCount" -Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLLocalTagCount.TabIndex = 230 -Me.LBLLocalTagCount.Text = "0/0" -Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagBodyPussy ' -'BTNLocalTagSave +Me.CBTagBodyPussy.AutoSize = true +Me.CBTagBodyPussy.Enabled = false +Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) +Me.CBTagBodyPussy.Name = "CBTagBodyPussy" +Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) +Me.CBTagBodyPussy.TabIndex = 209 +Me.CBTagBodyPussy.Text = "Pussy" +Me.CBTagBodyPussy.UseVisualStyleBackColor = true ' -Me.BTNLocalTagSave.Enabled = false -Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNLocalTagSave.Name = "BTNLocalTagSave" -Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNLocalTagSave.TabIndex = 229 -Me.BTNLocalTagSave.Text = "Finished" -Me.BTNLocalTagSave.UseVisualStyleBackColor = true +'CBTagBodyTits ' -'BTNLocalTagDir +Me.CBTagBodyTits.AutoSize = true +Me.CBTagBodyTits.Enabled = false +Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) +Me.CBTagBodyTits.Name = "CBTagBodyTits" +Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) +Me.CBTagBodyTits.TabIndex = 213 +Me.CBTagBodyTits.Text = "Tits" +Me.CBTagBodyTits.UseVisualStyleBackColor = true ' -Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNLocalTagDir.Name = "BTNLocalTagDir" -Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNLocalTagDir.TabIndex = 228 -Me.BTNLocalTagDir.Text = "1" -Me.BTNLocalTagDir.UseVisualStyleBackColor = true +'CBTagBodyFingers ' -'TabPage11 +Me.CBTagBodyFingers.AutoSize = true +Me.CBTagBodyFingers.Enabled = false +Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black +Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) +Me.CBTagBodyFingers.Name = "CBTagBodyFingers" +Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) +Me.CBTagBodyFingers.TabIndex = 210 +Me.CBTagBodyFingers.Text = "Fingers" +Me.CBTagBodyFingers.UseVisualStyleBackColor = true ' -Me.TabPage11.BackColor = System.Drawing.Color.Silver -Me.TabPage11.Controls.Add(Me.Panel7) -Me.TabPage11.Location = New System.Drawing.Point(4, 22) -Me.TabPage11.Name = "TabPage11" -Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage11.Size = New System.Drawing.Size(720, 448) -Me.TabPage11.TabIndex = 10 -Me.TabPage11.Text = "URL Files" +'GroupBox46 ' -'Panel7 +Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) +Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) +Me.GroupBox46.Controls.Add(Me.CBTagFemdom) +Me.GroupBox46.Controls.Add(Me.CBTag2M) +Me.GroupBox46.Controls.Add(Me.CBTagFutadom) +Me.GroupBox46.Controls.Add(Me.CBTagFemsub) +Me.GroupBox46.Controls.Add(Me.CBTag2Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMaledom) +Me.GroupBox46.Controls.Add(Me.CBTag3M) +Me.GroupBox46.Controls.Add(Me.CBTagFutasub) +Me.GroupBox46.Controls.Add(Me.CBTag3Futa) +Me.GroupBox46.Controls.Add(Me.CBTagMalesub) +Me.GroupBox46.Controls.Add(Me.CBTag2F) +Me.GroupBox46.Controls.Add(Me.CBTag1Futa) +Me.GroupBox46.Controls.Add(Me.CBTag1M) +Me.GroupBox46.Controls.Add(Me.CBTag1F) +Me.GroupBox46.Controls.Add(Me.CBTag3F) +Me.GroupBox46.Location = New System.Drawing.Point(230, 37) +Me.GroupBox46.Name = "GroupBox46" +Me.GroupBox46.Size = New System.Drawing.Size(105, 358) +Me.GroupBox46.TabIndex = 234 +Me.GroupBox46.TabStop = false +Me.GroupBox46.Text = "Genders && Roles" ' -Me.Panel7.BackColor = System.Drawing.Color.LightGray -Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel7.Controls.Add(Me.BTNWIContinue) -Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) -Me.Panel7.Controls.Add(Me.BTNWICancel) -Me.Panel7.Controls.Add(Me.CBWIReview) -Me.Panel7.Controls.Add(Me.BTNWIBrowse) -Me.Panel7.Controls.Add(Me.TBWIDirectory) -Me.Panel7.Controls.Add(Me.BTNWIDisliked) -Me.Panel7.Controls.Add(Me.BTNWILiked) -Me.Panel7.Controls.Add(Me.BTNWIRemove) -Me.Panel7.Controls.Add(Me.CBWISaveToDisk) -Me.Panel7.Controls.Add(Me.PictureBox5) -Me.Panel7.Controls.Add(Me.WebImageProgressBar) -Me.Panel7.Controls.Add(Me.BTNWICreateURL) -Me.Panel7.Controls.Add(Me.LBLWebImageCount) -Me.Panel7.Controls.Add(Me.BTNWISave) -Me.Panel7.Controls.Add(Me.BTNWIOpenURL) -Me.Panel7.Controls.Add(Me.BTNWIPrevious) -Me.Panel7.Controls.Add(Me.BTNWINext) -Me.Panel7.Controls.Add(Me.WebPictureBox) -Me.Panel7.Controls.Add(Me.Label71) -Me.Panel7.Location = New System.Drawing.Point(6, 6) -Me.Panel7.Name = "Panel7" -Me.Panel7.Size = New System.Drawing.Size(708, 437) -Me.Panel7.TabIndex = 91 +'CBTagMultiSub ' -'BTNWIContinue +Me.CBTagMultiSub.AutoSize = true +Me.CBTagMultiSub.Enabled = false +Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) +Me.CBTagMultiSub.Name = "CBTagMultiSub" +Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) +Me.CBTagMultiSub.TabIndex = 207 +Me.CBTagMultiSub.Text = "Multi-Sub" +Me.CBTagMultiSub.UseVisualStyleBackColor = true ' -Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIContinue.Enabled = false -Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) -Me.BTNWIContinue.Name = "BTNWIContinue" -Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIContinue.TabIndex = 168 -Me.BTNWIContinue.Text = "Continue" -Me.BTNWIContinue.UseVisualStyleBackColor = false +'CBTagMultiDom ' -'BTNWIAddandContinue +Me.CBTagMultiDom.AutoSize = true +Me.CBTagMultiDom.Enabled = false +Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black +Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) +Me.CBTagMultiDom.Name = "CBTagMultiDom" +Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) +Me.CBTagMultiDom.TabIndex = 230 +Me.CBTagMultiDom.Text = "Multi-Dom" +Me.CBTagMultiDom.UseVisualStyleBackColor = true ' -Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIAddandContinue.Enabled = false -Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) -Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" -Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIAddandContinue.TabIndex = 167 -Me.BTNWIAddandContinue.Text = "Add and Continue" -Me.BTNWIAddandContinue.UseVisualStyleBackColor = false +'CBTagFemdom ' -'BTNWICancel +Me.CBTagFemdom.AutoSize = true +Me.CBTagFemdom.Enabled = false +Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black +Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) +Me.CBTagFemdom.Name = "CBTagFemdom" +Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBTagFemdom.TabIndex = 229 +Me.CBTagFemdom.Text = "Femdom" +Me.CBTagFemdom.UseVisualStyleBackColor = true ' -Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray -Me.BTNWICancel.Enabled = false -Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICancel.ForeColor = System.Drawing.Color.Black -Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) -Me.BTNWICancel.Name = "BTNWICancel" -Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) -Me.BTNWICancel.TabIndex = 166 -Me.BTNWICancel.Text = "Cancel" -Me.BTNWICancel.UseVisualStyleBackColor = false +'CBTag2M ' -'CBWIReview +Me.CBTag2M.AutoSize = true +Me.CBTag2M.Enabled = false +Me.CBTag2M.ForeColor = System.Drawing.Color.Black +Me.CBTag2M.Location = New System.Drawing.Point(15, 97) +Me.CBTag2M.Name = "CBTag2M" +Me.CBTag2M.Size = New System.Drawing.Size(56, 17) +Me.CBTag2M.TabIndex = 206 +Me.CBTag2M.Text = "2 Men" +Me.CBTag2M.UseVisualStyleBackColor = true ' -Me.CBWIReview.Location = New System.Drawing.Point(567, 69) -Me.CBWIReview.Name = "CBWIReview" -Me.CBWIReview.Size = New System.Drawing.Size(124, 30) -Me.CBWIReview.TabIndex = 165 -Me.CBWIReview.Text = "Review Each Image" -Me.CBWIReview.UseVisualStyleBackColor = true +'CBTagFutadom ' -'BTNWIBrowse +Me.CBTagFutadom.AutoSize = true +Me.CBTagFutadom.Enabled = false +Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black +Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) +Me.CBTagFutadom.Name = "CBTagFutadom" +Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) +Me.CBTagFutadom.TabIndex = 204 +Me.CBTagFutadom.Text = "Futadom" +Me.CBTagFutadom.UseVisualStyleBackColor = true ' -Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray -Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black -Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) -Me.BTNWIBrowse.Name = "BTNWIBrowse" -Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) -Me.BTNWIBrowse.TabIndex = 163 -Me.BTNWIBrowse.Text = "Browse" -Me.BTNWIBrowse.UseVisualStyleBackColor = false +'CBTagFemsub ' -'TBWIDirectory +Me.CBTagFemsub.AutoSize = true +Me.CBTagFemsub.Enabled = false +Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black +Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) +Me.CBTagFemsub.Name = "CBTagFemsub" +Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBTagFemsub.TabIndex = 205 +Me.CBTagFemsub.Text = "Femsub" +Me.CBTagFemsub.UseVisualStyleBackColor = true ' -Me.TBWIDirectory.BackColor = System.Drawing.Color.White -Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black -Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) -Me.TBWIDirectory.Name = "TBWIDirectory" -Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) -Me.TBWIDirectory.TabIndex = 164 -Me.TBWIDirectory.Text = "Saved Image Directory" +'CBTag2Futa ' -'BTNWIDisliked +Me.CBTag2Futa.AutoSize = true +Me.CBTag2Futa.Enabled = false +Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) +Me.CBTag2Futa.Name = "CBTag2Futa" +Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag2Futa.TabIndex = 186 +Me.CBTag2Futa.Text = "2 Futa" +Me.CBTag2Futa.UseVisualStyleBackColor = true ' -Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray -Me.BTNWIDisliked.Enabled = false -Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black -Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) -Me.BTNWIDisliked.Name = "BTNWIDisliked" -Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) -Me.BTNWIDisliked.TabIndex = 162 -Me.BTNWIDisliked.Text = "Add to Disliked Images" -Me.BTNWIDisliked.UseVisualStyleBackColor = false +'CBTagMaledom ' -'BTNWILiked +Me.CBTagMaledom.AutoSize = true +Me.CBTagMaledom.Enabled = false +Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black +Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) +Me.CBTagMaledom.Name = "CBTagMaledom" +Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) +Me.CBTagMaledom.TabIndex = 206 +Me.CBTagMaledom.Text = "Maledom" +Me.CBTagMaledom.UseVisualStyleBackColor = true ' -Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray -Me.BTNWILiked.Enabled = false -Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWILiked.ForeColor = System.Drawing.Color.Black -Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) -Me.BTNWILiked.Name = "BTNWILiked" -Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) -Me.BTNWILiked.TabIndex = 161 -Me.BTNWILiked.Text = "Add to Liked Images" -Me.BTNWILiked.UseVisualStyleBackColor = false +'CBTag3M ' -'BTNWIRemove +Me.CBTag3M.AutoSize = true +Me.CBTag3M.Enabled = false +Me.CBTag3M.ForeColor = System.Drawing.Color.Black +Me.CBTag3M.Location = New System.Drawing.Point(15, 117) +Me.CBTag3M.Name = "CBTag3M" +Me.CBTag3M.Size = New System.Drawing.Size(56, 17) +Me.CBTag3M.TabIndex = 190 +Me.CBTag3M.Text = "3 Men" +Me.CBTag3M.UseVisualStyleBackColor = true ' -Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray -Me.BTNWIRemove.Enabled = false -Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black -Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) -Me.BTNWIRemove.Name = "BTNWIRemove" -Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) -Me.BTNWIRemove.TabIndex = 160 -Me.BTNWIRemove.Text = "Remove From URL File" -Me.BTNWIRemove.UseVisualStyleBackColor = false +'CBTagFutasub ' -'CBWISaveToDisk +Me.CBTagFutasub.AutoSize = true +Me.CBTagFutasub.Enabled = false +Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black +Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) +Me.CBTagFutasub.Name = "CBTagFutasub" +Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) +Me.CBTagFutasub.TabIndex = 213 +Me.CBTagFutasub.Text = "Futasub" +Me.CBTagFutasub.UseVisualStyleBackColor = true ' -Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) -Me.CBWISaveToDisk.Name = "CBWISaveToDisk" -Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) -Me.CBWISaveToDisk.TabIndex = 157 -Me.CBWISaveToDisk.Text = "Save Images to Disk" -Me.CBWISaveToDisk.UseVisualStyleBackColor = true +'CBTag3Futa ' -'PictureBox5 +Me.CBTag3Futa.AutoSize = true +Me.CBTag3Futa.Enabled = false +Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) +Me.CBTag3Futa.Name = "CBTag3Futa" +Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag3Futa.TabIndex = 197 +Me.CBTag3Futa.Text = "3 Futa" +Me.CBTag3Futa.UseVisualStyleBackColor = true ' -Me.PictureBox5.BackColor = System.Drawing.Color.LightGray -Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox5.Location = New System.Drawing.Point(9, 6) -Me.PictureBox5.Name = "PictureBox5" -Me.PictureBox5.Size = New System.Drawing.Size(160, 19) -Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox5.TabIndex = 156 -Me.PictureBox5.TabStop = false +'CBTagMalesub ' -'WebImageProgressBar +Me.CBTagMalesub.AutoSize = true +Me.CBTagMalesub.Enabled = false +Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black +Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) +Me.CBTagMalesub.Name = "CBTagMalesub" +Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) +Me.CBTagMalesub.TabIndex = 210 +Me.CBTagMalesub.Text = "Malesub" +Me.CBTagMalesub.UseVisualStyleBackColor = true ' -Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) -Me.WebImageProgressBar.Maximum = 2500 -Me.WebImageProgressBar.Name = "WebImageProgressBar" -Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) -Me.WebImageProgressBar.TabIndex = 155 +'CBTag2F ' -'BTNWICreateURL +Me.CBTag2F.AutoSize = true +Me.CBTag2F.Enabled = false +Me.CBTag2F.ForeColor = System.Drawing.Color.Black +Me.CBTag2F.Location = New System.Drawing.Point(15, 37) +Me.CBTag2F.Name = "CBTag2F" +Me.CBTag2F.Size = New System.Drawing.Size(72, 17) +Me.CBTag2F.TabIndex = 188 +Me.CBTag2F.Text = "2 Women" +Me.CBTag2F.UseVisualStyleBackColor = true ' -Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black -Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) -Me.BTNWICreateURL.Name = "BTNWICreateURL" -Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWICreateURL.TabIndex = 154 -Me.BTNWICreateURL.Text = "Create URL File" -Me.BTNWICreateURL.UseVisualStyleBackColor = false +'CBTag1Futa ' -'LBLWebImageCount +Me.CBTag1Futa.AutoSize = true +Me.CBTag1Futa.Enabled = false +Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black +Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) +Me.CBTag1Futa.Name = "CBTag1Futa" +Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) +Me.CBTag1Futa.TabIndex = 191 +Me.CBTag1Futa.Text = "1 Futa" +Me.CBTag1Futa.UseVisualStyleBackColor = true ' -Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent -Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black -Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) -Me.LBLWebImageCount.Name = "LBLWebImageCount" -Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) -Me.LBLWebImageCount.TabIndex = 153 -Me.LBLWebImageCount.Text = "0/0" -Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTag1M ' -'BTNWISave +Me.CBTag1M.AutoSize = true +Me.CBTag1M.Enabled = false +Me.CBTag1M.ForeColor = System.Drawing.Color.Black +Me.CBTag1M.Location = New System.Drawing.Point(15, 77) +Me.CBTag1M.Name = "CBTag1M" +Me.CBTag1M.Size = New System.Drawing.Size(56, 17) +Me.CBTag1M.TabIndex = 189 +Me.CBTag1M.Text = "1 Man" +Me.CBTag1M.UseVisualStyleBackColor = true ' -Me.BTNWISave.BackColor = System.Drawing.Color.LightGray -Me.BTNWISave.Enabled = false -Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWISave.ForeColor = System.Drawing.Color.Black -Me.BTNWISave.Location = New System.Drawing.Point(567, 401) -Me.BTNWISave.Name = "BTNWISave" -Me.BTNWISave.Size = New System.Drawing.Size(131, 24) -Me.BTNWISave.TabIndex = 152 -Me.BTNWISave.Text = "Save Image to Disk" -Me.BTNWISave.UseVisualStyleBackColor = false +'CBTag1F ' -'BTNWIOpenURL +Me.CBTag1F.AutoSize = true +Me.CBTag1F.Enabled = false +Me.CBTag1F.ForeColor = System.Drawing.Color.Black +Me.CBTag1F.Location = New System.Drawing.Point(15, 17) +Me.CBTag1F.Name = "CBTag1F" +Me.CBTag1F.Size = New System.Drawing.Size(72, 17) +Me.CBTag1F.TabIndex = 185 +Me.CBTag1F.Text = "1 Woman" +Me.CBTag1F.UseVisualStyleBackColor = true ' -Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black -Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) -Me.BTNWIOpenURL.Name = "BTNWIOpenURL" -Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWIOpenURL.TabIndex = 151 -Me.BTNWIOpenURL.Text = "Open URL File" -Me.BTNWIOpenURL.UseVisualStyleBackColor = false +'CBTag3F ' -'BTNWIPrevious +Me.CBTag3F.AutoSize = true +Me.CBTag3F.Enabled = false +Me.CBTag3F.ForeColor = System.Drawing.Color.Black +Me.CBTag3F.Location = New System.Drawing.Point(15, 57) +Me.CBTag3F.Name = "CBTag3F" +Me.CBTag3F.Size = New System.Drawing.Size(72, 17) +Me.CBTag3F.TabIndex = 192 +Me.CBTag3F.Text = "3 Women" +Me.CBTag3F.UseVisualStyleBackColor = true ' -Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNWIPrevious.Enabled = false -Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) -Me.BTNWIPrevious.Name = "BTNWIPrevious" -Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNWIPrevious.TabIndex = 149 -Me.BTNWIPrevious.Text = "<<" -Me.BTNWIPrevious.UseVisualStyleBackColor = false +'GroupBox54 ' -'BTNWINext +Me.GroupBox54.Controls.Add(Me.CBTagTattoos) +Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) +Me.GroupBox54.Controls.Add(Me.CBTagDomme) +Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) +Me.GroupBox54.Controls.Add(Me.CBTagWatersports) +Me.GroupBox54.Controls.Add(Me.CBTagStockings) +Me.GroupBox54.Controls.Add(Me.CBTagCumshot) +Me.GroupBox54.Controls.Add(Me.CBTagCumEating) +Me.GroupBox54.Controls.Add(Me.CBTagVibrator) +Me.GroupBox54.Controls.Add(Me.CBTagDildo) +Me.GroupBox54.Controls.Add(Me.CBTagKissing) +Me.GroupBox54.Location = New System.Drawing.Point(561, 37) +Me.GroupBox54.Name = "GroupBox54" +Me.GroupBox54.Size = New System.Drawing.Size(135, 238) +Me.GroupBox54.TabIndex = 239 +Me.GroupBox54.TabStop = false +Me.GroupBox54.Text = "Misc" ' -Me.BTNWINext.BackColor = System.Drawing.Color.LightGray -Me.BTNWINext.Enabled = false -Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWINext.ForeColor = System.Drawing.Color.Black -Me.BTNWINext.Location = New System.Drawing.Point(651, 282) -Me.BTNWINext.Name = "BTNWINext" -Me.BTNWINext.Size = New System.Drawing.Size(47, 24) -Me.BTNWINext.TabIndex = 150 -Me.BTNWINext.Text = ">>" -Me.BTNWINext.UseVisualStyleBackColor = false +'CBTagTattoos ' -'WebPictureBox +Me.CBTagTattoos.AutoSize = true +Me.CBTagTattoos.Enabled = false +Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black +Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) +Me.CBTagTattoos.Name = "CBTagTattoos" +Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) +Me.CBTagTattoos.TabIndex = 214 +Me.CBTagTattoos.Text = "Tattoos" +Me.CBTagTattoos.UseVisualStyleBackColor = true ' -Me.WebPictureBox.BackColor = System.Drawing.Color.Black -Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) -Me.WebPictureBox.Name = "WebPictureBox" -Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) -Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WebPictureBox.TabIndex = 148 -Me.WebPictureBox.TabStop = false +'CBTagAnalToy ' -'Label71 +Me.CBTagAnalToy.AutoSize = true +Me.CBTagAnalToy.Enabled = false +Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) +Me.CBTagAnalToy.Name = "CBTagAnalToy" +Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalToy.TabIndex = 215 +Me.CBTagAnalToy.Text = "Anal Toy" +Me.CBTagAnalToy.UseVisualStyleBackColor = true ' -Me.Label71.BackColor = System.Drawing.Color.Transparent -Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label71.ForeColor = System.Drawing.Color.Black -Me.Label71.Location = New System.Drawing.Point(7, 6) -Me.Label71.Name = "Label71" -Me.Label71.Size = New System.Drawing.Size(692, 21) -Me.Label71.TabIndex = 48 -Me.Label71.Text = "URL Files" -Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagDomme ' -'TpVideoSettings +Me.CBTagDomme.AutoSize = true +Me.CBTagDomme.Enabled = false +Me.CBTagDomme.ForeColor = System.Drawing.Color.Black +Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) +Me.CBTagDomme.Name = "CBTagDomme" +Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) +Me.CBTagDomme.TabIndex = 219 +Me.CBTagDomme.Text = "Tease A.I. Domme" +Me.CBTagDomme.UseVisualStyleBackColor = true ' -Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver -Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) -Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) -Me.TpVideoSettings.Name = "TpVideoSettings" -Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) -Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) -Me.TpVideoSettings.TabIndex = 2 -Me.TpVideoSettings.Text = "Video" +'CBTagPocketPussy ' -'PnlVideoSettings +Me.CBTagPocketPussy.AutoSize = true +Me.CBTagPocketPussy.Enabled = false +Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black +Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) +Me.CBTagPocketPussy.Name = "CBTagPocketPussy" +Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) +Me.CBTagPocketPussy.TabIndex = 205 +Me.CBTagPocketPussy.Text = "Pocket Pussy" +Me.CBTagPocketPussy.UseVisualStyleBackColor = true ' -Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) -Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) -Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) -Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill -Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) -Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) -Me.PnlVideoSettings.Name = "PnlVideoSettings" -Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) -Me.PnlVideoSettings.TabIndex = 92 +'CBTagWatersports ' -'PbBannerVideoSettings +Me.CBTagWatersports.AutoSize = true +Me.CBTagWatersports.Enabled = false +Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black +Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) +Me.CBTagWatersports.Name = "CBTagWatersports" +Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) +Me.CBTagWatersports.TabIndex = 218 +Me.CBTagWatersports.Text = "Watersports" +Me.CBTagWatersports.UseVisualStyleBackColor = true ' -Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) -Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" -Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) -Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PbBannerVideoSettings.TabIndex = 151 -Me.PbBannerVideoSettings.TabStop = false +'CBTagStockings ' -'BTNRefreshVideos +Me.CBTagStockings.AutoSize = true +Me.CBTagStockings.Enabled = false +Me.CBTagStockings.ForeColor = System.Drawing.Color.Black +Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) +Me.CBTagStockings.Name = "CBTagStockings" +Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) +Me.CBTagStockings.TabIndex = 217 +Me.CBTagStockings.Text = "Stockings" +Me.CBTagStockings.UseVisualStyleBackColor = true ' -Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray -Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh -Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom -Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 -Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black -Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) -Me.BTNRefreshVideos.Name = "BTNRefreshVideos" -Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) -Me.BTNRefreshVideos.TabIndex = 149 -Me.BTNRefreshVideos.UseVisualStyleBackColor = false +'CBTagCumshot ' -'GbxVideoGeneralD +Me.CBTagCumshot.AutoSize = true +Me.CBTagCumshot.Enabled = false +Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black +Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) +Me.CBTagCumshot.Name = "CBTagCumshot" +Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) +Me.CBTagCumshot.TabIndex = 206 +Me.CBTagCumshot.Text = "Cumshot" +Me.CBTagCumshot.UseVisualStyleBackColor = true ' -Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) -Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) -Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) -Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" -Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneralD.TabIndex = 5 -Me.GbxVideoGeneralD.TabStop = false -Me.GbxVideoGeneralD.Text = "Domme General" +'CBTagCumEating ' -'LblVideoGeneralTotalD +Me.CBTagCumEating.AutoSize = true +Me.CBTagCumEating.Enabled = false +Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black +Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) +Me.CBTagCumEating.Name = "CBTagCumEating" +Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) +Me.CBTagCumEating.TabIndex = 204 +Me.CBTagCumEating.Text = "Cum Eating" +Me.CBTagCumEating.UseVisualStyleBackColor = true ' -Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" -Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotalD.TabIndex = 3 -Me.LblVideoGeneralTotalD.Text = "0" -Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagVibrator ' -'BTNVideoGeneralD +Me.CBTagVibrator.AutoSize = true +Me.CBTagVibrator.Enabled = false +Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black +Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) +Me.CBTagVibrator.Name = "CBTagVibrator" +Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) +Me.CBTagVibrator.TabIndex = 210 +Me.CBTagVibrator.Text = "Vibrator" +Me.CBTagVibrator.UseVisualStyleBackColor = true ' -Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" -Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneralD.TabIndex = 1 -Me.BTNVideoGeneralD.Text = "1" -Me.BTNVideoGeneralD.UseVisualStyleBackColor = false +'CBTagDildo ' -'GbxVideoSpecialD +Me.CBTagDildo.AutoSize = true +Me.CBTagDildo.Enabled = false +Me.CBTagDildo.ForeColor = System.Drawing.Color.Black +Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) +Me.CBTagDildo.Name = "CBTagDildo" +Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) +Me.CBTagDildo.TabIndex = 213 +Me.CBTagDildo.Text = "Dildo" +Me.CBTagDildo.UseVisualStyleBackColor = true ' -Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) -Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) -Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" -Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecialD.TabIndex = 4 -Me.GbxVideoSpecialD.TabStop = false -Me.GbxVideoSpecialD.Text = "Domme Special" +'CBTagKissing ' -'LblVideoCHTotalD +Me.CBTagKissing.AutoSize = true +Me.CBTagKissing.Enabled = false +Me.CBTagKissing.ForeColor = System.Drawing.Color.Black +Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) +Me.CBTagKissing.Name = "CBTagKissing" +Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) +Me.CBTagKissing.TabIndex = 203 +Me.CBTagKissing.Text = "Kissing" +Me.CBTagKissing.UseVisualStyleBackColor = true ' -Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) -Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" -Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotalD.TabIndex = 7 -Me.LblVideoCHTotalD.Text = "0" -Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GroupBox51 ' -'LblVideoJOITotalD +Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) +Me.GroupBox51.Controls.Add(Me.CBTagGag) +Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) +Me.GroupBox51.Controls.Add(Me.CBTagWhipping) +Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) +Me.GroupBox51.Controls.Add(Me.CBTagElectro) +Me.GroupBox51.Controls.Add(Me.CBTagHotWax) +Me.GroupBox51.Controls.Add(Me.CBTagClamps) +Me.GroupBox51.Controls.Add(Me.CBTagStrapon) +Me.GroupBox51.Controls.Add(Me.CBTagSpanking) +Me.GroupBox51.Controls.Add(Me.CBTagNeedles) +Me.GroupBox51.Location = New System.Drawing.Point(450, 37) +Me.GroupBox51.Name = "GroupBox51" +Me.GroupBox51.Size = New System.Drawing.Size(105, 238) +Me.GroupBox51.TabIndex = 238 +Me.GroupBox51.TabStop = false +Me.GroupBox51.Text = "BDSM" ' -Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" -Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotalD.TabIndex = 3 -Me.LblVideoJOITotalD.Text = "0" -Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagBallTorture ' -'BTNVideoCHD +Me.CBTagBallTorture.AutoSize = true +Me.CBTagBallTorture.Enabled = false +Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) +Me.CBTagBallTorture.Name = "CBTagBallTorture" +Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) +Me.CBTagBallTorture.TabIndex = 220 +Me.CBTagBallTorture.Text = "Ball Torture" +Me.CBTagBallTorture.UseVisualStyleBackColor = true ' -Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCHD.Name = "BTNVideoCHD" -Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCHD.TabIndex = 5 -Me.BTNVideoCHD.Text = "1" -Me.BTNVideoCHD.UseVisualStyleBackColor = false +'CBTagGag ' -'BTNVideoJOID +Me.CBTagGag.AutoSize = true +Me.CBTagGag.Enabled = false +Me.CBTagGag.ForeColor = System.Drawing.Color.Black +Me.CBTagGag.Location = New System.Drawing.Point(15, 137) +Me.CBTagGag.Name = "CBTagGag" +Me.CBTagGag.Size = New System.Drawing.Size(46, 17) +Me.CBTagGag.TabIndex = 214 +Me.CBTagGag.Text = "Gag" +Me.CBTagGag.UseVisualStyleBackColor = true ' -Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOID.Name = "BTNVideoJOID" -Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOID.TabIndex = 1 -Me.BTNVideoJOID.Text = "1" -Me.BTNVideoJOID.UseVisualStyleBackColor = false +'CBTagBlindfold ' -'GbxVideoGenreD +Me.CBTagBlindfold.AutoSize = true +Me.CBTagBlindfold.Enabled = false +Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black +Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) +Me.CBTagBlindfold.Name = "CBTagBlindfold" +Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) +Me.CBTagBlindfold.TabIndex = 208 +Me.CBTagBlindfold.Text = "Blindfold" +Me.CBTagBlindfold.UseVisualStyleBackColor = true ' -Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) -Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) -Me.GbxVideoGenreD.Name = "GbxVideoGenreD" -Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenreD.TabIndex = 3 -Me.GbxVideoGenreD.TabStop = false -Me.GbxVideoGenreD.Text = "Domme Genre" +'CBTagWhipping ' -'LblVideoFemsubTotalD +Me.CBTagWhipping.AutoSize = true +Me.CBTagWhipping.Enabled = false +Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black +Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) +Me.CBTagWhipping.Name = "CBTagWhipping" +Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) +Me.CBTagWhipping.TabIndex = 203 +Me.CBTagWhipping.Text = "Whipping" +Me.CBTagWhipping.UseVisualStyleBackColor = true ' -Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" -Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotalD.TabIndex = 23 -Me.LblVideoFemsubTotalD.Text = "0" -Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagCockTorture ' -'LblVideoFemdomTotalD +Me.CBTagCockTorture.AutoSize = true +Me.CBTagCockTorture.Enabled = false +Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black +Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) +Me.CBTagCockTorture.Name = "CBTagCockTorture" +Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) +Me.CBTagCockTorture.TabIndex = 204 +Me.CBTagCockTorture.Text = "Cock Torture" +Me.CBTagCockTorture.UseVisualStyleBackColor = true ' -Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" -Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotalD.TabIndex = 19 -Me.LblVideoFemdomTotalD.Text = "0" -Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagElectro ' -'LblVideoBlowjobTotalD +Me.CBTagElectro.AutoSize = true +Me.CBTagElectro.Enabled = false +Me.CBTagElectro.ForeColor = System.Drawing.Color.Black +Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) +Me.CBTagElectro.Name = "CBTagElectro" +Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) +Me.CBTagElectro.TabIndex = 207 +Me.CBTagElectro.Text = "Electro" +Me.CBTagElectro.UseVisualStyleBackColor = true ' -Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" -Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotalD.TabIndex = 15 -Me.LblVideoBlowjobTotalD.Text = "0" -Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagHotWax ' -'LblVideoLesbianTotalD +Me.CBTagHotWax.AutoSize = true +Me.CBTagHotWax.Enabled = false +Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black +Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) +Me.CBTagHotWax.Name = "CBTagHotWax" +Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) +Me.CBTagHotWax.TabIndex = 213 +Me.CBTagHotWax.Text = "Hot Wax" +Me.CBTagHotWax.UseVisualStyleBackColor = true ' -Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" -Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotalD.TabIndex = 11 -Me.LblVideoLesbianTotalD.Text = "0" -Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagClamps ' -'BTNVideoFemSubD +Me.CBTagClamps.AutoSize = true +Me.CBTagClamps.Enabled = false +Me.CBTagClamps.ForeColor = System.Drawing.Color.Black +Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) +Me.CBTagClamps.Name = "CBTagClamps" +Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) +Me.CBTagClamps.TabIndex = 210 +Me.CBTagClamps.Text = "Clamps" +Me.CBTagClamps.UseVisualStyleBackColor = true ' -Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" -Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSubD.TabIndex = 21 -Me.BTNVideoFemSubD.Text = "1" -Me.BTNVideoFemSubD.UseVisualStyleBackColor = false +'CBTagStrapon ' -'LblVideoSoftCoreTotalD +Me.CBTagStrapon.AutoSize = true +Me.CBTagStrapon.Enabled = false +Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black +Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) +Me.CBTagStrapon.Name = "CBTagStrapon" +Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) +Me.CBTagStrapon.TabIndex = 205 +Me.CBTagStrapon.Text = "Strap-on" +Me.CBTagStrapon.UseVisualStyleBackColor = true ' -Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" -Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotalD.TabIndex = 7 -Me.LblVideoSoftCoreTotalD.Text = "0" -Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagSpanking ' -'BTNVideoFemDomD +Me.CBTagSpanking.AutoSize = true +Me.CBTagSpanking.Enabled = false +Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black +Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) +Me.CBTagSpanking.Name = "CBTagSpanking" +Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) +Me.CBTagSpanking.TabIndex = 206 +Me.CBTagSpanking.Text = "Spanking" +Me.CBTagSpanking.UseVisualStyleBackColor = true ' -Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" -Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDomD.TabIndex = 17 -Me.BTNVideoFemDomD.Text = "1" -Me.BTNVideoFemDomD.UseVisualStyleBackColor = false +'CBTagNeedles ' -'BTNVideoBlowjobD +Me.CBTagNeedles.AutoSize = true +Me.CBTagNeedles.Enabled = false +Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black +Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) +Me.CBTagNeedles.Name = "CBTagNeedles" +Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) +Me.CBTagNeedles.TabIndex = 209 +Me.CBTagNeedles.Text = "Needles" +Me.CBTagNeedles.UseVisualStyleBackColor = true ' -Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" -Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjobD.TabIndex = 13 -Me.BTNVideoBlowjobD.Text = "1" -Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false +'GroupBox50 ' -'LblVideoHardCoreTotalD +Me.GroupBox50.Controls.Add(Me.CBTagRimming) +Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) +Me.GroupBox50.Controls.Add(Me.CBTagMissionary) +Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) +Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagFingering) +Me.GroupBox50.Controls.Add(Me.CBTagGangbang) +Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) +Me.GroupBox50.Controls.Add(Me.CBTagDP) +Me.GroupBox50.Controls.Add(Me.CBTagHandjob) +Me.GroupBox50.Controls.Add(Me.CBTagStanding) +Me.GroupBox50.Controls.Add(Me.CBTagFootjob) +Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) +Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) +Me.GroupBox50.Controls.Add(Me.CBTagTitjob) +Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) +Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) +Me.GroupBox50.Location = New System.Drawing.Point(119, 37) +Me.GroupBox50.Name = "GroupBox50" +Me.GroupBox50.Size = New System.Drawing.Size(105, 358) +Me.GroupBox50.TabIndex = 237 +Me.GroupBox50.TabStop = false +Me.GroupBox50.Text = "Sex" ' -Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" -Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotalD.TabIndex = 3 -Me.LblVideoHardCoreTotalD.Text = "0" -Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'CBTagRimming ' -'BTNVideoLesbianD +Me.CBTagRimming.AutoSize = true +Me.CBTagRimming.Enabled = false +Me.CBTagRimming.ForeColor = System.Drawing.Color.Black +Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) +Me.CBTagRimming.Name = "CBTagRimming" +Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) +Me.CBTagRimming.TabIndex = 219 +Me.CBTagRimming.Text = "Rimming" +Me.CBTagRimming.UseVisualStyleBackColor = true ' -Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" -Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbianD.TabIndex = 9 -Me.BTNVideoLesbianD.Text = "1" -Me.BTNVideoLesbianD.UseVisualStyleBackColor = false +'CBTagFacesitting ' -'BTNVideoSoftCoreD +Me.CBTagFacesitting.AutoSize = true +Me.CBTagFacesitting.Enabled = false +Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black +Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) +Me.CBTagFacesitting.Name = "CBTagFacesitting" +Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) +Me.CBTagFacesitting.TabIndex = 226 +Me.CBTagFacesitting.Text = "Facesitting" +Me.CBTagFacesitting.UseVisualStyleBackColor = true ' -Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" -Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCoreD.TabIndex = 5 -Me.BTNVideoSoftCoreD.Text = "1" -Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false +'CBTagMissionary ' -'BTNVideoHardCoreD +Me.CBTagMissionary.AutoSize = true +Me.CBTagMissionary.Enabled = false +Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black +Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) +Me.CBTagMissionary.Name = "CBTagMissionary" +Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) +Me.CBTagMissionary.TabIndex = 208 +Me.CBTagMissionary.Text = "Missionary" +Me.CBTagMissionary.UseVisualStyleBackColor = true ' -Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" -Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCoreD.TabIndex = 1 -Me.BTNVideoHardCoreD.Text = "1" -Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false +'CBTagMasturbation +' +Me.CBTagMasturbation.AutoSize = true +Me.CBTagMasturbation.Enabled = false +Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black +Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) +Me.CBTagMasturbation.Name = "CBTagMasturbation" +Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) +Me.CBTagMasturbation.TabIndex = 203 +Me.CBTagMasturbation.Text = "Masturbation" +Me.CBTagMasturbation.UseVisualStyleBackColor = true ' -'GbxVideoDescription +'CBTagRCowgirl ' -Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) -Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black -Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) -Me.GbxVideoDescription.Name = "GbxVideoDescription" -Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) -Me.GbxVideoDescription.TabIndex = 6 -Me.GbxVideoDescription.TabStop = false -Me.GbxVideoDescription.Text = "Description" +Me.CBTagRCowgirl.AutoSize = true +Me.CBTagRCowgirl.Enabled = false +Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) +Me.CBTagRCowgirl.Name = "CBTagRCowgirl" +Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) +Me.CBTagRCowgirl.TabIndex = 218 +Me.CBTagRCowgirl.Text = "R. Cowgirl" +Me.CBTagRCowgirl.UseVisualStyleBackColor = true ' -'VideoDescriptionLabel +'CBTagFingering ' -Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent -Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black -Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) -Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" -Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) -Me.VideoDescriptionLabel.TabIndex = 62 -Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ - "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ - "using as your domme." -Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagFingering.AutoSize = true +Me.CBTagFingering.Enabled = false +Me.CBTagFingering.ForeColor = System.Drawing.Color.Black +Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) +Me.CBTagFingering.Name = "CBTagFingering" +Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) +Me.CBTagFingering.TabIndex = 204 +Me.CBTagFingering.Text = "Fingering" +Me.CBTagFingering.UseVisualStyleBackColor = true ' -'GbxVideoGeneral +'CBTagGangbang ' -Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) -Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) -Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) -Me.GbxVideoGeneral.Name = "GbxVideoGeneral" -Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneral.TabIndex = 2 -Me.GbxVideoGeneral.TabStop = false -Me.GbxVideoGeneral.Text = "General" +Me.CBTagGangbang.AutoSize = true +Me.CBTagGangbang.Enabled = false +Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black +Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) +Me.CBTagGangbang.Name = "CBTagGangbang" +Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) +Me.CBTagGangbang.TabIndex = 217 +Me.CBTagGangbang.Text = "Gangbang" +Me.CBTagGangbang.UseVisualStyleBackColor = true ' -'LblVideoGeneralTotal +'CBTagBlowjob ' -Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" -Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotal.TabIndex = 3 -Me.LblVideoGeneralTotal.Text = "0" -Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagBlowjob.AutoSize = true +Me.CBTagBlowjob.Enabled = false +Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) +Me.CBTagBlowjob.Name = "CBTagBlowjob" +Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBTagBlowjob.TabIndex = 205 +Me.CBTagBlowjob.Text = "Blowjob" +Me.CBTagBlowjob.UseVisualStyleBackColor = true ' -'BTNVideoGeneral +'CBTagDP ' -Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneral.Name = "BTNVideoGeneral" -Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneral.TabIndex = 1 -Me.BTNVideoGeneral.Text = "1" -Me.BTNVideoGeneral.UseVisualStyleBackColor = false +Me.CBTagDP.AutoSize = true +Me.CBTagDP.Enabled = false +Me.CBTagDP.ForeColor = System.Drawing.Color.Black +Me.CBTagDP.Location = New System.Drawing.Point(15, 317) +Me.CBTagDP.Name = "CBTagDP" +Me.CBTagDP.Size = New System.Drawing.Size(41, 17) +Me.CBTagDP.TabIndex = 216 +Me.CBTagDP.Text = "DP" +Me.CBTagDP.UseVisualStyleBackColor = true ' -'GbxVideoSpecial +'CBTagHandjob ' -Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) -Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) -Me.GbxVideoSpecial.Name = "GbxVideoSpecial" -Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecial.TabIndex = 1 -Me.GbxVideoSpecial.TabStop = false -Me.GbxVideoSpecial.Text = "Special" +Me.CBTagHandjob.AutoSize = true +Me.CBTagHandjob.Enabled = false +Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black +Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) +Me.CBTagHandjob.Name = "CBTagHandjob" +Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) +Me.CBTagHandjob.TabIndex = 206 +Me.CBTagHandjob.Text = "Handjob" +Me.CBTagHandjob.UseVisualStyleBackColor = true ' -'LblVideoCHTotal +'CBTagStanding ' -Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) -Me.LblVideoCHTotal.Name = "LblVideoCHTotal" -Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotal.TabIndex = 7 -Me.LblVideoCHTotal.Text = "0" -Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagStanding.AutoSize = true +Me.CBTagStanding.Enabled = false +Me.CBTagStanding.ForeColor = System.Drawing.Color.Black +Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) +Me.CBTagStanding.Name = "CBTagStanding" +Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) +Me.CBTagStanding.TabIndex = 215 +Me.CBTagStanding.Text = "Standing" +Me.CBTagStanding.UseVisualStyleBackColor = true ' -'LblVideoJOITotal +'CBTagFootjob ' -Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) -Me.LblVideoJOITotal.Name = "LblVideoJOITotal" -Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotal.TabIndex = 3 -Me.LblVideoJOITotal.Text = "0" -Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagFootjob.AutoSize = true +Me.CBTagFootjob.Enabled = false +Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black +Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) +Me.CBTagFootjob.Name = "CBTagFootjob" +Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) +Me.CBTagFootjob.TabIndex = 207 +Me.CBTagFootjob.Text = "Footjob" +Me.CBTagFootjob.UseVisualStyleBackColor = true ' -'BTNVideoCH +'CBTagCowgirl ' -Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCH.Name = "BTNVideoCH" -Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCH.TabIndex = 5 -Me.BTNVideoCH.Text = "1" -Me.BTNVideoCH.UseVisualStyleBackColor = false +Me.CBTagCowgirl.AutoSize = true +Me.CBTagCowgirl.Enabled = false +Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black +Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) +Me.CBTagCowgirl.Name = "CBTagCowgirl" +Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) +Me.CBTagCowgirl.TabIndex = 214 +Me.CBTagCowgirl.Text = "Cowgirl" +Me.CBTagCowgirl.UseVisualStyleBackColor = true ' -'BTNVideoJOI +'CBTagDoggyStyle ' -Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOI.Name = "BTNVideoJOI" -Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOI.TabIndex = 1 -Me.BTNVideoJOI.Text = "1" -Me.BTNVideoJOI.UseVisualStyleBackColor = false +Me.CBTagDoggyStyle.AutoSize = true +Me.CBTagDoggyStyle.Enabled = false +Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black +Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) +Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" +Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) +Me.CBTagDoggyStyle.TabIndex = 209 +Me.CBTagDoggyStyle.Text = "Doggy Style" +Me.CBTagDoggyStyle.UseVisualStyleBackColor = true ' -'GbxVideoGenre +'CBTagTitjob ' -Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) -Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) -Me.GbxVideoGenre.Name = "GbxVideoGenre" -Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenre.TabIndex = 0 -Me.GbxVideoGenre.TabStop = false -Me.GbxVideoGenre.Text = "Genre" +Me.CBTagTitjob.AutoSize = true +Me.CBTagTitjob.Enabled = false +Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black +Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) +Me.CBTagTitjob.Name = "CBTagTitjob" +Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) +Me.CBTagTitjob.TabIndex = 213 +Me.CBTagTitjob.Text = "Titjob" +Me.CBTagTitjob.UseVisualStyleBackColor = true ' -'LblVideoFemsubTotal +'CBTagCunnilingus ' -Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" -Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotal.TabIndex = 23 -Me.LblVideoFemsubTotal.Text = "0" -Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagCunnilingus.AutoSize = true +Me.CBTagCunnilingus.Enabled = false +Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black +Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) +Me.CBTagCunnilingus.Name = "CBTagCunnilingus" +Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) +Me.CBTagCunnilingus.TabIndex = 210 +Me.CBTagCunnilingus.Text = "Cunnilingus" +Me.CBTagCunnilingus.UseVisualStyleBackColor = true ' -'LblVideoFemdomTotal +'CBTagAnalSex ' -Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" -Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotal.TabIndex = 19 -Me.LblVideoFemdomTotal.Text = "0" -Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagAnalSex.AutoSize = true +Me.CBTagAnalSex.Enabled = false +Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black +Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) +Me.CBTagAnalSex.Name = "CBTagAnalSex" +Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) +Me.CBTagAnalSex.TabIndex = 212 +Me.CBTagAnalSex.Text = "Anal Sex" +Me.CBTagAnalSex.UseVisualStyleBackColor = true ' -'LblVideoBlowjobTotal +'GroupBox48 ' -Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" -Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotal.TabIndex = 15 -Me.LblVideoBlowjobTotal.Text = "0" -Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox48.Controls.Add(Me.CBTagArtwork) +Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) +Me.GroupBox48.Controls.Add(Me.CBTagPOV) +Me.GroupBox48.Controls.Add(Me.CBTagHardcore) +Me.GroupBox48.Controls.Add(Me.CBTagTD) +Me.GroupBox48.Controls.Add(Me.CBTagGay) +Me.GroupBox48.Controls.Add(Me.CBTagBath) +Me.GroupBox48.Controls.Add(Me.CBTagBisexual) +Me.GroupBox48.Controls.Add(Me.CBTagCFNM) +Me.GroupBox48.Controls.Add(Me.CBTagLesbian) +Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) +Me.GroupBox48.Controls.Add(Me.CBTagSM) +Me.GroupBox48.Controls.Add(Me.CBTagBondage) +Me.GroupBox48.Controls.Add(Me.CBTagSoloM) +Me.GroupBox48.Controls.Add(Me.CBTagSoloF) +Me.GroupBox48.Controls.Add(Me.CBTagChastity) +Me.GroupBox48.Controls.Add(Me.CBTagShower) +Me.GroupBox48.Location = New System.Drawing.Point(8, 37) +Me.GroupBox48.Name = "GroupBox48" +Me.GroupBox48.Size = New System.Drawing.Size(105, 358) +Me.GroupBox48.TabIndex = 235 +Me.GroupBox48.TabStop = false +Me.GroupBox48.Text = "Category" ' -'LblVideoLesbianTotal +'CBTagArtwork ' -Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" -Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotal.TabIndex = 11 -Me.LblVideoLesbianTotal.Text = "0" -Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagArtwork.AutoSize = true +Me.CBTagArtwork.Enabled = false +Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black +Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) +Me.CBTagArtwork.Name = "CBTagArtwork" +Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) +Me.CBTagArtwork.TabIndex = 225 +Me.CBTagArtwork.Text = "Artwork" +Me.CBTagArtwork.UseVisualStyleBackColor = true ' -'BTNVideoFemSub +'CBTagOutdoors ' -Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSub.Name = "BTNVideoFemSub" -Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSub.TabIndex = 21 -Me.BTNVideoFemSub.Text = "1" -Me.BTNVideoFemSub.UseVisualStyleBackColor = false +Me.CBTagOutdoors.AutoSize = true +Me.CBTagOutdoors.Enabled = false +Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black +Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) +Me.CBTagOutdoors.Name = "CBTagOutdoors" +Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) +Me.CBTagOutdoors.TabIndex = 219 +Me.CBTagOutdoors.Text = "Outdoors" +Me.CBTagOutdoors.UseVisualStyleBackColor = true ' -'LblVideoSoftCoreTotal +'CBTagPOV ' -Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" -Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotal.TabIndex = 7 -Me.LblVideoSoftCoreTotal.Text = "0" -Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagPOV.AutoSize = true +Me.CBTagPOV.Enabled = false +Me.CBTagPOV.ForeColor = System.Drawing.Color.Black +Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) +Me.CBTagPOV.Name = "CBTagPOV" +Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) +Me.CBTagPOV.TabIndex = 208 +Me.CBTagPOV.Text = "POV" +Me.CBTagPOV.UseVisualStyleBackColor = true ' -'BTNVideoFemDom +'CBTagHardcore ' -Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDom.Name = "BTNVideoFemDom" -Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDom.TabIndex = 17 -Me.BTNVideoFemDom.Text = "1" -Me.BTNVideoFemDom.UseVisualStyleBackColor = false +Me.CBTagHardcore.AutoSize = true +Me.CBTagHardcore.Enabled = false +Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black +Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) +Me.CBTagHardcore.Name = "CBTagHardcore" +Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBTagHardcore.TabIndex = 203 +Me.CBTagHardcore.Text = "Hardcore" +Me.CBTagHardcore.UseVisualStyleBackColor = true ' -'BTNVideoBlowjob +'CBTagTD ' -Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" -Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjob.TabIndex = 13 -Me.BTNVideoBlowjob.Text = "1" -Me.BTNVideoBlowjob.UseVisualStyleBackColor = false +Me.CBTagTD.AutoSize = true +Me.CBTagTD.Enabled = false +Me.CBTagTD.ForeColor = System.Drawing.Color.Black +Me.CBTagTD.Location = New System.Drawing.Point(15, 217) +Me.CBTagTD.Name = "CBTagTD" +Me.CBTagTD.Size = New System.Drawing.Size(47, 17) +Me.CBTagTD.TabIndex = 218 +Me.CBTagTD.Text = "T&&D" +Me.CBTagTD.UseVisualStyleBackColor = true ' -'LblVideoHardCoreTotal +'CBTagGay ' -Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" -Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotal.TabIndex = 3 -Me.LblVideoHardCoreTotal.Text = "0" -Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagGay.AutoSize = true +Me.CBTagGay.Enabled = false +Me.CBTagGay.ForeColor = System.Drawing.Color.Black +Me.CBTagGay.Location = New System.Drawing.Point(15, 57) +Me.CBTagGay.Name = "CBTagGay" +Me.CBTagGay.Size = New System.Drawing.Size(45, 17) +Me.CBTagGay.TabIndex = 204 +Me.CBTagGay.Text = "Gay" +Me.CBTagGay.UseVisualStyleBackColor = true ' -'BTNVideoLesbian +'CBTagBath ' -Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbian.Name = "BTNVideoLesbian" -Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbian.TabIndex = 9 -Me.BTNVideoLesbian.Text = "1" -Me.BTNVideoLesbian.UseVisualStyleBackColor = false +Me.CBTagBath.AutoSize = true +Me.CBTagBath.Enabled = false +Me.CBTagBath.ForeColor = System.Drawing.Color.Black +Me.CBTagBath.Location = New System.Drawing.Point(15, 277) +Me.CBTagBath.Name = "CBTagBath" +Me.CBTagBath.Size = New System.Drawing.Size(48, 17) +Me.CBTagBath.TabIndex = 217 +Me.CBTagBath.Text = "Bath" +Me.CBTagBath.UseVisualStyleBackColor = true ' -'BTNVideoSoftCore +'CBTagBisexual ' -Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" -Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCore.TabIndex = 5 -Me.BTNVideoSoftCore.Text = "1" -Me.BTNVideoSoftCore.UseVisualStyleBackColor = false +Me.CBTagBisexual.AutoSize = true +Me.CBTagBisexual.Enabled = false +Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black +Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) +Me.CBTagBisexual.Name = "CBTagBisexual" +Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) +Me.CBTagBisexual.TabIndex = 205 +Me.CBTagBisexual.Text = "Bisexual" +Me.CBTagBisexual.UseVisualStyleBackColor = true ' -'BTNVideoHardCore +'CBTagCFNM ' -Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCore.Name = "BTNVideoHardCore" -Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCore.TabIndex = 1 -Me.BTNVideoHardCore.Text = "1" -Me.BTNVideoHardCore.UseVisualStyleBackColor = false +Me.CBTagCFNM.AutoSize = true +Me.CBTagCFNM.Enabled = false +Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black +Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) +Me.CBTagCFNM.Name = "CBTagCFNM" +Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) +Me.CBTagCFNM.TabIndex = 216 +Me.CBTagCFNM.Text = "CFNM" +Me.CBTagCFNM.UseVisualStyleBackColor = true ' -'LblVideoHeader +'CBTagLesbian ' -Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black -Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) -Me.LblVideoHeader.Name = "LblVideoHeader" -Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) -Me.LblVideoHeader.TabIndex = 49 -Me.LblVideoHeader.Text = "Video Settings" -Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagLesbian.AutoSize = true +Me.CBTagLesbian.Enabled = false +Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black +Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) +Me.CBTagLesbian.Name = "CBTagLesbian" +Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBTagLesbian.TabIndex = 206 +Me.CBTagLesbian.Text = "Lesbian" +Me.CBTagLesbian.UseVisualStyleBackColor = true ' -'TabPage20 +'CBTagSoloFuta ' -Me.TabPage20.BackColor = System.Drawing.Color.Silver -Me.TabPage20.Controls.Add(Me.TabControl1) -Me.TabPage20.Location = New System.Drawing.Point(4, 22) -Me.TabPage20.Name = "TabPage20" -Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage20.Size = New System.Drawing.Size(720, 448) -Me.TabPage20.TabIndex = 16 -Me.TabPage20.Text = "Apps" +Me.CBTagSoloFuta.AutoSize = true +Me.CBTagSoloFuta.Enabled = false +Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) +Me.CBTagSoloFuta.Name = "CBTagSoloFuta" +Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) +Me.CBTagSoloFuta.TabIndex = 207 +Me.CBTagSoloFuta.Text = "Solo Futa" +Me.CBTagSoloFuta.UseVisualStyleBackColor = true ' -'TabControl1 +'CBTagSM ' -Me.TabControl1.Controls.Add(Me.TabPage22) -Me.TabControl1.Controls.Add(Me.TpGames) -Me.TabControl1.Controls.Add(Me.TabPage6) -Me.TabControl1.Location = New System.Drawing.Point(6, 6) -Me.TabControl1.Name = "TabControl1" -Me.TabControl1.SelectedIndex = 0 -Me.TabControl1.Size = New System.Drawing.Size(708, 437) -Me.TabControl1.TabIndex = 0 +Me.CBTagSM.AutoSize = true +Me.CBTagSM.Enabled = false +Me.CBTagSM.ForeColor = System.Drawing.Color.Black +Me.CBTagSM.Location = New System.Drawing.Point(15, 197) +Me.CBTagSM.Name = "CBTagSM" +Me.CBTagSM.Size = New System.Drawing.Size(48, 17) +Me.CBTagSM.TabIndex = 214 +Me.CBTagSM.Text = "S&&M" +Me.CBTagSM.UseVisualStyleBackColor = true ' -'TabPage22 +'CBTagBondage ' -Me.TabPage22.BackColor = System.Drawing.Color.LightGray -Me.TabPage22.Controls.Add(Me.PNLGlitter) -Me.TabPage22.Location = New System.Drawing.Point(4, 22) -Me.TabPage22.Name = "TabPage22" -Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage22.Size = New System.Drawing.Size(700, 411) -Me.TabPage22.TabIndex = 0 -Me.TabPage22.Text = "Glitter" +Me.CBTagBondage.AutoSize = true +Me.CBTagBondage.Enabled = false +Me.CBTagBondage.ForeColor = System.Drawing.Color.Black +Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) +Me.CBTagBondage.Name = "CBTagBondage" +Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) +Me.CBTagBondage.TabIndex = 209 +Me.CBTagBondage.Text = "Bondage" +Me.CBTagBondage.UseVisualStyleBackColor = true ' -'PNLGlitter +'CBTagSoloM ' -Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray -Me.PNLGlitter.Controls.Add(Me.GroupBox14) -Me.PNLGlitter.Controls.Add(Me.GroupBox4) -Me.PNLGlitter.Controls.Add(Me.Button15) -Me.PNLGlitter.Controls.Add(Me.Button16) -Me.PNLGlitter.Controls.Add(Me.Label121) -Me.PNLGlitter.Controls.Add(Me.Label122) -Me.PNLGlitter.Controls.Add(Me.GBGlitterD) -Me.PNLGlitter.Controls.Add(Me.GBGlitter1) -Me.PNLGlitter.Controls.Add(Me.GBGlitter3) -Me.PNLGlitter.Controls.Add(Me.GBGlitter2) -Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) -Me.PNLGlitter.Name = "PNLGlitter" -Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) -Me.PNLGlitter.TabIndex = 91 +Me.CBTagSoloM.AutoSize = true +Me.CBTagSoloM.Enabled = false +Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) +Me.CBTagSoloM.Name = "CBTagSoloM" +Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) +Me.CBTagSoloM.TabIndex = 213 +Me.CBTagSoloM.Text = "Solo M" +Me.CBTagSoloM.UseVisualStyleBackColor = true ' -'GroupBox14 +'CBTagSoloF ' -Me.GroupBox14.BackColor = System.Drawing.Color.LightGray -Me.GroupBox14.Controls.Add(Me.Label170) -Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) -Me.GroupBox14.Controls.Add(Me.RandomHonorific) -Me.GroupBox14.Location = New System.Drawing.Point(355, 307) -Me.GroupBox14.Name = "GroupBox14" -Me.GroupBox14.Size = New System.Drawing.Size(306, 85) -Me.GroupBox14.TabIndex = 182 -Me.GroupBox14.TabStop = false -Me.GroupBox14.Text = "General Contact Settings" +Me.CBTagSoloF.AutoSize = true +Me.CBTagSoloF.Enabled = false +Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black +Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) +Me.CBTagSoloF.Name = "CBTagSoloF" +Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) +Me.CBTagSoloF.TabIndex = 210 +Me.CBTagSoloF.Text = "Solo F" +Me.CBTagSoloF.UseVisualStyleBackColor = true ' -'Label170 +'CBTagChastity ' -Me.Label170.Location = New System.Drawing.Point(4, 52) -Me.Label170.Name = "Label170" -Me.Label170.Size = New System.Drawing.Size(142, 18) -Me.Label170.TabIndex = 28 -Me.Label170.Text = "Random Domme Honorific:" -Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTagChastity.AutoSize = true +Me.CBTagChastity.Enabled = false +Me.CBTagChastity.ForeColor = System.Drawing.Color.Black +Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) +Me.CBTagChastity.Name = "CBTagChastity" +Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) +Me.CBTagChastity.TabIndex = 212 +Me.CBTagChastity.Text = "Chastity" +Me.CBTagChastity.UseVisualStyleBackColor = true ' -'alwaysNewSlideshow +'CBTagShower ' -Me.alwaysNewSlideshow.AutoSize = true -Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black -Me.alwaysNewSlideshow.Location = New System.Drawing.Point(10, 24) -Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" -Me.alwaysNewSlideshow.Size = New System.Drawing.Size(294, 17) -Me.alwaysNewSlideshow.TabIndex = 151 -Me.alwaysNewSlideshow.Text = "Always Load New Slideshow When Using @AddContact" -Me.alwaysNewSlideshow.UseVisualStyleBackColor = true +Me.CBTagShower.AutoSize = true +Me.CBTagShower.Enabled = false +Me.CBTagShower.ForeColor = System.Drawing.Color.Black +Me.CBTagShower.Location = New System.Drawing.Point(15, 297) +Me.CBTagShower.Name = "CBTagShower" +Me.CBTagShower.Size = New System.Drawing.Size(62, 17) +Me.CBTagShower.TabIndex = 211 +Me.CBTagShower.Text = "Shower" +Me.CBTagShower.UseVisualStyleBackColor = true ' -'RandomHonorific +'TBLocalTagDir ' -Me.RandomHonorific.BackColor = System.Drawing.Color.White -Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.RandomHonorific.Location = New System.Drawing.Point(149, 51) -Me.RandomHonorific.Name = "RandomHonorific" -Me.RandomHonorific.Size = New System.Drawing.Size(143, 20) -Me.RandomHonorific.TabIndex = 187 -Me.RandomHonorific.Text = "Mistress" -Me.RandomHonorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) +Me.TBLocalTagDir.Name = "TBLocalTagDir" +Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) +Me.TBLocalTagDir.TabIndex = 233 +Me.TBLocalTagDir.Text = "Enter Image Directory" ' -'GroupBox4 +'BTNLocalTagPrevious ' -Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) -Me.GroupBox4.Location = New System.Drawing.Point(7, 307) -Me.GroupBox4.Name = "GroupBox4" -Me.GroupBox4.Size = New System.Drawing.Size(344, 85) -Me.GroupBox4.TabIndex = 167 -Me.GroupBox4.TabStop = false -Me.GroupBox4.Text = "Change Current Domme" +Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagPrevious.Enabled = false +Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) +Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" +Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagPrevious.TabIndex = 232 +Me.BTNLocalTagPrevious.Text = "<<" +Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false ' -'LBLCurrentDomme +'BTNLocalTagNext ' -Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) -Me.LBLCurrentDomme.Name = "LBLCurrentDomme" -Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) -Me.LBLCurrentDomme.TabIndex = 168 -Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray +Me.BTNLocalTagNext.Enabled = false +Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black +Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) +Me.BTNLocalTagNext.Name = "BTNLocalTagNext" +Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) +Me.BTNLocalTagNext.TabIndex = 231 +Me.BTNLocalTagNext.Text = ">>" +Me.BTNLocalTagNext.UseVisualStyleBackColor = false ' -'BTNDomChangeContact1 +'LBLLocalTagCount ' -Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) -Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" -Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact1.TabIndex = 173 -Me.BTNDomChangeContact1.Text = "Contact 1" -Me.BTNDomChangeContact1.UseVisualStyleBackColor = false +Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent +Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLLocalTagCount.Enabled = false +Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black +Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) +Me.LBLLocalTagCount.Name = "LBLLocalTagCount" +Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) +Me.LBLLocalTagCount.TabIndex = 230 +Me.LBLLocalTagCount.Text = "0/0" +Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNDomChangeRandom +'BTNLocalTagSave ' -Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) -Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" -Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeRandom.TabIndex = 172 -Me.BTNDomChangeRandom.Text = "Random" -Me.BTNDomChangeRandom.UseVisualStyleBackColor = false +Me.BTNLocalTagSave.Enabled = false +Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) +Me.BTNLocalTagSave.Name = "BTNLocalTagSave" +Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) +Me.BTNLocalTagSave.TabIndex = 229 +Me.BTNLocalTagSave.Text = "Finished" +Me.BTNLocalTagSave.UseVisualStyleBackColor = true ' -'BTNDomChangeContact3 +'BTNLocalTagDir ' -Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) -Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" -Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact3.TabIndex = 171 -Me.BTNDomChangeContact3.Text = "Contact 3" -Me.BTNDomChangeContact3.UseVisualStyleBackColor = false +Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) +Me.BTNLocalTagDir.Name = "BTNLocalTagDir" +Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) +Me.BTNLocalTagDir.TabIndex = 228 +Me.BTNLocalTagDir.Text = "1" +Me.BTNLocalTagDir.UseVisualStyleBackColor = true ' -'BTNDomChangeContact2 +'TabPage11 ' -Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) -Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" -Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact2.TabIndex = 170 -Me.BTNDomChangeContact2.Text = "Contact 2" -Me.BTNDomChangeContact2.UseVisualStyleBackColor = false +Me.TabPage11.BackColor = System.Drawing.Color.Silver +Me.TabPage11.Controls.Add(Me.Panel7) +Me.TabPage11.Location = New System.Drawing.Point(4, 22) +Me.TabPage11.Name = "TabPage11" +Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage11.Size = New System.Drawing.Size(720, 448) +Me.TabPage11.TabIndex = 10 +Me.TabPage11.Text = "URL Files" ' -'BTNDomChangeDomme +'Panel7 ' -Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) -Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" -Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeDomme.TabIndex = 168 -Me.BTNDomChangeDomme.Text = "Domme" -Me.BTNDomChangeDomme.UseVisualStyleBackColor = false +Me.Panel7.BackColor = System.Drawing.Color.LightGray +Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel7.Controls.Add(Me.BTNWIContinue) +Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) +Me.Panel7.Controls.Add(Me.BTNWICancel) +Me.Panel7.Controls.Add(Me.CBWIReview) +Me.Panel7.Controls.Add(Me.BTNWIBrowse) +Me.Panel7.Controls.Add(Me.TBWIDirectory) +Me.Panel7.Controls.Add(Me.BTNWIDisliked) +Me.Panel7.Controls.Add(Me.BTNWILiked) +Me.Panel7.Controls.Add(Me.BTNWIRemove) +Me.Panel7.Controls.Add(Me.CBWISaveToDisk) +Me.Panel7.Controls.Add(Me.PictureBox5) +Me.Panel7.Controls.Add(Me.WebImageProgressBar) +Me.Panel7.Controls.Add(Me.BTNWICreateURL) +Me.Panel7.Controls.Add(Me.LBLWebImageCount) +Me.Panel7.Controls.Add(Me.BTNWISave) +Me.Panel7.Controls.Add(Me.BTNWIOpenURL) +Me.Panel7.Controls.Add(Me.BTNWIPrevious) +Me.Panel7.Controls.Add(Me.BTNWINext) +Me.Panel7.Controls.Add(Me.WebPictureBox) +Me.Panel7.Controls.Add(Me.Label71) +Me.Panel7.Location = New System.Drawing.Point(6, 6) +Me.Panel7.Name = "Panel7" +Me.Panel7.Size = New System.Drawing.Size(708, 437) +Me.Panel7.TabIndex = 91 ' -'Button15 +'BTNWIContinue ' -Me.Button15.BackColor = System.Drawing.Color.LightGray -Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button15.FlatAppearance.BorderSize = 0 -Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button15.ForeColor = System.Drawing.Color.Black -Me.Button15.Location = New System.Drawing.Point(670, 366) -Me.Button15.Name = "Button15" -Me.Button15.Size = New System.Drawing.Size(30, 26) -Me.Button15.TabIndex = 163 -Me.Button15.UseVisualStyleBackColor = false +Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIContinue.Enabled = false +Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) +Me.BTNWIContinue.Name = "BTNWIContinue" +Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIContinue.TabIndex = 168 +Me.BTNWIContinue.Text = "Continue" +Me.BTNWIContinue.UseVisualStyleBackColor = false ' -'Button16 +'BTNWIAddandContinue ' -Me.Button16.BackColor = System.Drawing.Color.LightGray -Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button16.FlatAppearance.BorderSize = 0 -Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button16.ForeColor = System.Drawing.Color.Black -Me.Button16.Location = New System.Drawing.Point(667, 324) -Me.Button16.Name = "Button16" -Me.Button16.Size = New System.Drawing.Size(30, 26) -Me.Button16.TabIndex = 164 -Me.Button16.UseVisualStyleBackColor = false +Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray +Me.BTNWIAddandContinue.Enabled = false +Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black +Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) +Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" +Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) +Me.BTNWIAddandContinue.TabIndex = 167 +Me.BTNWIAddandContinue.Text = "Add and Continue" +Me.BTNWIAddandContinue.UseVisualStyleBackColor = false ' -'Label121 +'BTNWICancel ' -Me.Label121.AutoSize = true -Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label121.ForeColor = System.Drawing.Color.Black -Me.Label121.Location = New System.Drawing.Point(669, 352) -Me.Label121.Name = "Label121" -Me.Label121.Size = New System.Drawing.Size(27, 13) -Me.Label121.TabIndex = 166 -Me.Label121.Text = "load" -Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray +Me.BTNWICancel.Enabled = false +Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICancel.ForeColor = System.Drawing.Color.Black +Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) +Me.BTNWICancel.Name = "BTNWICancel" +Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) +Me.BTNWICancel.TabIndex = 166 +Me.BTNWICancel.Text = "Cancel" +Me.BTNWICancel.UseVisualStyleBackColor = false ' -'Label122 +'CBWIReview ' -Me.Label122.AutoSize = true -Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label122.ForeColor = System.Drawing.Color.Black -Me.Label122.Location = New System.Drawing.Point(667, 313) -Me.Label122.Name = "Label122" -Me.Label122.Size = New System.Drawing.Size(30, 13) -Me.Label122.TabIndex = 165 -Me.Label122.Text = "save" -Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBWIReview.Location = New System.Drawing.Point(567, 69) +Me.CBWIReview.Name = "CBWIReview" +Me.CBWIReview.Size = New System.Drawing.Size(124, 30) +Me.CBWIReview.TabIndex = 165 +Me.CBWIReview.Text = "Review Each Image" +Me.CBWIReview.UseVisualStyleBackColor = true ' -'GBGlitterD +'BTNWIBrowse ' -Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray -Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) -Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom2) -Me.GBGlitterD.Controls.Add(Me.GlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom1) -Me.GBGlitterD.Controls.Add(Me.CBDaily) -Me.GBGlitterD.Controls.Add(Me.CBTrivia) -Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) -Me.GBGlitterD.Controls.Add(Me.CBEgotist) -Me.GBGlitterD.Controls.Add(Me.CBTease) -Me.GBGlitterD.Controls.Add(Me.GlitterAV) -Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) -Me.GBGlitterD.Name = "GBGlitterD" -Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) -Me.GBGlitterD.TabIndex = 162 -Me.GBGlitterD.TabStop = false -Me.GBGlitterD.Text = "Domme" +Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray +Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black +Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) +Me.BTNWIBrowse.Name = "BTNWIBrowse" +Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) +Me.BTNWIBrowse.TabIndex = 163 +Me.BTNWIBrowse.Text = "Browse" +Me.BTNWIBrowse.UseVisualStyleBackColor = false ' -'GrbGlitterfeed +'TBWIDirectory ' -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) -Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) -Me.GrbGlitterfeed.Name = "GrbGlitterfeed" -Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) -Me.GrbGlitterfeed.TabIndex = 168 -Me.GrbGlitterfeed.TabStop = false -Me.GrbGlitterfeed.Text = "Glitterfeeds" +Me.TBWIDirectory.BackColor = System.Drawing.Color.White +Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black +Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) +Me.TBWIDirectory.Name = "TBWIDirectory" +Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) +Me.TBWIDirectory.TabIndex = 164 +Me.TBWIDirectory.Text = "Saved Image Directory" ' -'BTNGlitterD +'BTNWIDisliked ' -Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black -Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitterD.Name = "BTNGlitterD" -Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitterD.TabIndex = 166 -Me.BTNGlitterD.Text = "Choose Name Color" -Me.BTNGlitterD.UseVisualStyleBackColor = false +Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray +Me.BTNWIDisliked.Enabled = false +Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black +Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) +Me.BTNWIDisliked.Name = "BTNWIDisliked" +Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) +Me.BTNWIDisliked.TabIndex = 162 +Me.BTNWIDisliked.Text = "Add to Disliked Images" +Me.BTNWIDisliked.UseVisualStyleBackColor = false ' -'LBLGlitterSlider +'BTNWILiked ' -Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider.Name = "LBLGlitterSlider" -Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider.TabIndex = 162 -Me.LBLGlitterSlider.Text = "Post Frequency" -Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray +Me.BTNWILiked.Enabled = false +Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWILiked.ForeColor = System.Drawing.Color.Black +Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) +Me.BTNWILiked.Name = "BTNWILiked" +Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) +Me.BTNWILiked.TabIndex = 161 +Me.BTNWILiked.Text = "Add to Liked Images" +Me.BTNWILiked.UseVisualStyleBackColor = false ' -'GlitterAV +'BTNWIRemove ' -Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV.Name = "GlitterAV" -Me.GlitterAV.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV.TabIndex = 149 -Me.GlitterAV.TabStop = false +Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray +Me.BTNWIRemove.Enabled = false +Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black +Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) +Me.BTNWIRemove.Name = "BTNWIRemove" +Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) +Me.BTNWIRemove.TabIndex = 160 +Me.BTNWIRemove.Text = "Remove From URL File" +Me.BTNWIRemove.UseVisualStyleBackColor = false ' -'GBGlitter1 +'CBWISaveToDisk ' -Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter1.Controls.Add(Me.Label167) -Me.GBGlitter1.Controls.Add(Me.G1Honorific) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.CBGlitter1) -Me.GBGlitter1.Controls.Add(Me.TBGlitter1) -Me.GBGlitter1.Controls.Add(Me.GlitterAV1) -Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) -Me.GBGlitter1.Name = "GBGlitter1" -Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter1.TabIndex = 161 -Me.GBGlitter1.TabStop = false -Me.GBGlitter1.Text = "Contact 1" +Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) +Me.CBWISaveToDisk.Name = "CBWISaveToDisk" +Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) +Me.CBWISaveToDisk.TabIndex = 157 +Me.CBWISaveToDisk.Text = "Save Images to Disk" +Me.CBWISaveToDisk.UseVisualStyleBackColor = true ' -'Label167 +'PictureBox5 ' -Me.Label167.BackColor = System.Drawing.Color.Transparent -Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label167.ForeColor = System.Drawing.Color.Black -Me.Label167.Location = New System.Drawing.Point(220, 15) -Me.Label167.Name = "Label167" -Me.Label167.Size = New System.Drawing.Size(114, 19) -Me.Label167.TabIndex = 182 -Me.Label167.Text = "Contact Honorific" -Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.PictureBox5.BackColor = System.Drawing.Color.LightGray +Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox5.Location = New System.Drawing.Point(9, 6) +Me.PictureBox5.Name = "PictureBox5" +Me.PictureBox5.Size = New System.Drawing.Size(160, 19) +Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox5.TabIndex = 156 +Me.PictureBox5.TabStop = false ' -'G1Honorific +'WebImageProgressBar ' -Me.G1Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G1Honorific.Location = New System.Drawing.Point(220, 34) -Me.G1Honorific.Name = "G1Honorific" -Me.G1Honorific.Size = New System.Drawing.Size(116, 23) -Me.G1Honorific.TabIndex = 0 -Me.G1Honorific.Text = "Mistress" -Me.G1Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) +Me.WebImageProgressBar.Maximum = 2500 +Me.WebImageProgressBar.Name = "WebImageProgressBar" +Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) +Me.WebImageProgressBar.TabIndex = 155 ' -'BtnContact1ImageDirClear +'BTNWICreateURL ' -Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" -Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact1ImageDirClear.TabIndex = 181 -Me.BtnContact1ImageDirClear.Text = "Clear" -Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false +Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black +Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) +Me.BTNWICreateURL.Name = "BTNWICreateURL" +Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWICreateURL.TabIndex = 154 +Me.BTNWICreateURL.Text = "Create URL File" +Me.BTNWICreateURL.UseVisualStyleBackColor = false ' -'BtnContact1ImageDir +'LBLWebImageCount ' -Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" -Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact1ImageDir.TabIndex = 177 -Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" -Me.BtnContact1ImageDir.UseVisualStyleBackColor = false +Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent +Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black +Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) +Me.LBLWebImageCount.Name = "LBLWebImageCount" +Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) +Me.LBLWebImageCount.TabIndex = 153 +Me.LBLWebImageCount.Text = "0/0" +Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNGlitter1 +'BTNWISave ' -Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter1.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter1.Name = "BTNGlitter1" -Me.BTNGlitter1.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter1.TabIndex = 175 -Me.BTNGlitter1.Text = "Choose Name Color" -Me.BTNGlitter1.UseVisualStyleBackColor = false +Me.BTNWISave.BackColor = System.Drawing.Color.LightGray +Me.BTNWISave.Enabled = false +Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWISave.ForeColor = System.Drawing.Color.Black +Me.BTNWISave.Location = New System.Drawing.Point(567, 401) +Me.BTNWISave.Name = "BTNWISave" +Me.BTNWISave.Size = New System.Drawing.Size(131, 24) +Me.BTNWISave.TabIndex = 152 +Me.BTNWISave.Text = "Save Image to Disk" +Me.BTNWISave.UseVisualStyleBackColor = false ' -'LBLGlitterSlider1 +'BTNWIOpenURL ' -Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" -Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider1.TabIndex = 163 -Me.LBLGlitterSlider1.Text = "Response Frequency" -Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray +Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black +Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) +Me.BTNWIOpenURL.Name = "BTNWIOpenURL" +Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) +Me.BTNWIOpenURL.TabIndex = 151 +Me.BTNWIOpenURL.Text = "Open URL File" +Me.BTNWIOpenURL.UseVisualStyleBackColor = false ' -'GlitterAV1 +'BTNWIPrevious ' -Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV1.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV1.Name = "GlitterAV1" -Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV1.TabIndex = 149 -Me.GlitterAV1.TabStop = false +Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray +Me.BTNWIPrevious.Enabled = false +Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black +Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) +Me.BTNWIPrevious.Name = "BTNWIPrevious" +Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) +Me.BTNWIPrevious.TabIndex = 149 +Me.BTNWIPrevious.Text = "<<" +Me.BTNWIPrevious.UseVisualStyleBackColor = false ' -'GBGlitter3 +'BTNWINext ' -Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter3.Controls.Add(Me.Label168) -Me.GBGlitter3.Controls.Add(Me.G3Honorific) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.CBGlitter3) -Me.GBGlitter3.Controls.Add(Me.TBGlitter3) -Me.GBGlitter3.Controls.Add(Me.GlitterAV3) -Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) -Me.GBGlitter3.Name = "GBGlitter3" -Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter3.TabIndex = 160 -Me.GBGlitter3.TabStop = false -Me.GBGlitter3.Text = "Contact 3" +Me.BTNWINext.BackColor = System.Drawing.Color.LightGray +Me.BTNWINext.Enabled = false +Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNWINext.ForeColor = System.Drawing.Color.Black +Me.BTNWINext.Location = New System.Drawing.Point(651, 282) +Me.BTNWINext.Name = "BTNWINext" +Me.BTNWINext.Size = New System.Drawing.Size(47, 24) +Me.BTNWINext.TabIndex = 150 +Me.BTNWINext.Text = ">>" +Me.BTNWINext.UseVisualStyleBackColor = false ' -'Label168 +'WebPictureBox ' -Me.Label168.BackColor = System.Drawing.Color.Transparent -Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label168.ForeColor = System.Drawing.Color.Black -Me.Label168.Location = New System.Drawing.Point(220, 15) -Me.Label168.Name = "Label168" -Me.Label168.Size = New System.Drawing.Size(114, 19) -Me.Label168.TabIndex = 181 -Me.Label168.Text = "Contact Honorific" -Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.WebPictureBox.BackColor = System.Drawing.Color.Black +Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) +Me.WebPictureBox.Name = "WebPictureBox" +Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) +Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WebPictureBox.TabIndex = 148 +Me.WebPictureBox.TabStop = false ' -'G3Honorific +'Label71 ' -Me.G3Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G3Honorific.Location = New System.Drawing.Point(220, 34) -Me.G3Honorific.Name = "G3Honorific" -Me.G3Honorific.Size = New System.Drawing.Size(115, 23) -Me.G3Honorific.TabIndex = 0 -Me.G3Honorific.Text = "Mistress" -Me.G3Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label71.BackColor = System.Drawing.Color.Transparent +Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label71.ForeColor = System.Drawing.Color.Black +Me.Label71.Location = New System.Drawing.Point(7, 6) +Me.Label71.Name = "Label71" +Me.Label71.Size = New System.Drawing.Size(692, 21) +Me.Label71.TabIndex = 48 +Me.Label71.Text = "URL Files" +Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'TpVideoSettings ' -'BtnContact3ImageDirClear +Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver +Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) +Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) +Me.TpVideoSettings.Name = "TpVideoSettings" +Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) +Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) +Me.TpVideoSettings.TabIndex = 2 +Me.TpVideoSettings.Text = "Video" ' -Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" -Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact3ImageDirClear.TabIndex = 180 -Me.BtnContact3ImageDirClear.Text = "Clear" -Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false +'PnlVideoSettings ' -'BtnContact3ImageDir +Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) +Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) +Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) +Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) +Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill +Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) +Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) +Me.PnlVideoSettings.Name = "PnlVideoSettings" +Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) +Me.PnlVideoSettings.TabIndex = 92 ' -Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" -Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact3ImageDir.TabIndex = 179 -Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" -Me.BtnContact3ImageDir.UseVisualStyleBackColor = false +'PbBannerVideoSettings ' -'BTNGlitter3 +Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray +Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) +Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" +Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) +Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PbBannerVideoSettings.TabIndex = 151 +Me.PbBannerVideoSettings.TabStop = false ' -Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter3.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter3.Name = "BTNGlitter3" -Me.BTNGlitter3.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter3.TabIndex = 175 -Me.BTNGlitter3.Text = "Choose Name Color" -Me.BTNGlitter3.UseVisualStyleBackColor = false +'BTNRefreshVideos ' -'LBLGlitterSlider3 +Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray +Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh +Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom +Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 +Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black +Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) +Me.BTNRefreshVideos.Name = "BTNRefreshVideos" +Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) +Me.BTNRefreshVideos.TabIndex = 149 +Me.BTNRefreshVideos.UseVisualStyleBackColor = false ' -Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" -Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider3.TabIndex = 163 -Me.LBLGlitterSlider3.Text = "Response Frequency" -Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'GbxVideoGeneralD ' -'GlitterAV3 +Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) +Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) +Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) +Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) +Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" +Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneralD.TabIndex = 5 +Me.GbxVideoGeneralD.TabStop = false +Me.GbxVideoGeneralD.Text = "Domme General" ' -Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV3.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV3.Name = "GlitterAV3" -Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV3.TabIndex = 149 -Me.GlitterAV3.TabStop = false +'LblVideoGeneralTotalD ' -'GBGlitter2 +Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" +Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotalD.TabIndex = 3 +Me.LblVideoGeneralTotalD.Text = "0" +Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter2.Controls.Add(Me.Label169) -Me.GBGlitter2.Controls.Add(Me.G2Honorific) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.CBGlitter2) -Me.GBGlitter2.Controls.Add(Me.TBGlitter2) -Me.GBGlitter2.Controls.Add(Me.GlitterAV2) -Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) -Me.GBGlitter2.Name = "GBGlitter2" -Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter2.TabIndex = 151 -Me.GBGlitter2.TabStop = false -Me.GBGlitter2.Text = "Contact 2" +'TxbVideoGeneralD ' -'Label169 +Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" +Me.TxbVideoGeneralD.ReadOnly = true +Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneralD.TabIndex = 2 +Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD ' -Me.Label169.BackColor = System.Drawing.Color.Transparent -Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label169.ForeColor = System.Drawing.Color.Black -Me.Label169.Location = New System.Drawing.Point(220, 15) -Me.Label169.Name = "Label169" -Me.Label169.Size = New System.Drawing.Size(114, 19) -Me.Label169.TabIndex = 182 -Me.Label169.Text = "Contact Honorific" -Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +'BTNVideoGeneralD ' -'G2Honorific +Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" +Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneralD.TabIndex = 1 +Me.BTNVideoGeneralD.Text = "1" +Me.BTNVideoGeneralD.UseVisualStyleBackColor = false ' -Me.G2Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G2Honorific.Location = New System.Drawing.Point(220, 34) -Me.G2Honorific.Name = "G2Honorific" -Me.G2Honorific.Size = New System.Drawing.Size(115, 23) -Me.G2Honorific.TabIndex = 0 -Me.G2Honorific.Text = "Mistress" -Me.G2Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +'CBVideoGeneralD ' -'BtnContact2ImageDirClear +Me.CBVideoGeneralD.AutoSize = true +Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD +Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneralD.Name = "CBVideoGeneralD" +Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneralD.TabIndex = 0 +Me.CBVideoGeneralD.Text = "General" +Me.CBVideoGeneralD.UseVisualStyleBackColor = true ' -Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" -Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact2ImageDirClear.TabIndex = 181 -Me.BtnContact2ImageDirClear.Text = "Clear" -Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false +'GbxVideoSpecialD ' -'BtnContact2ImageDir +Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) +Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) +Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) +Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) +Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" +Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecialD.TabIndex = 4 +Me.GbxVideoSpecialD.TabStop = false +Me.GbxVideoSpecialD.Text = "Domme Special" ' -Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" -Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact2ImageDir.TabIndex = 179 -Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" -Me.BtnContact2ImageDir.UseVisualStyleBackColor = false +'LblVideoCHTotalD ' -'BTNGlitter2 +Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) +Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" +Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotalD.TabIndex = 7 +Me.LblVideoCHTotalD.Text = "0" +Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter2.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter2.Name = "BTNGlitter2" -Me.BTNGlitter2.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter2.TabIndex = 167 -Me.BTNGlitter2.Text = "Choose Name Color" -Me.BTNGlitter2.UseVisualStyleBackColor = false +'LblVideoJOITotalD +' +Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" +Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotalD.TabIndex = 3 +Me.LblVideoJOITotalD.Text = "0" +Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLGlitterSlider2 +'TxbVideoCHD ' -Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" -Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider2.TabIndex = 163 -Me.LBLGlitterSlider2.Text = "Response Frequency" -Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.Name = "TxbVideoCHD" +Me.TxbVideoCHD.ReadOnly = true +Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCHD.TabIndex = 6 +Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD ' -'GlitterAV2 +'TxbVideoJOID ' -Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV2.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV2.Name = "GlitterAV2" -Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV2.TabIndex = 149 -Me.GlitterAV2.TabStop = false +Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.Name = "TxbVideoJOID" +Me.TxbVideoJOID.ReadOnly = true +Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOID.TabIndex = 2 +Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID ' -'TpGames +'BTNVideoCHD ' -Me.TpGames.BackColor = System.Drawing.Color.LightGray -Me.TpGames.Controls.Add(Me.CBIncludeGifs) -Me.TpGames.Controls.Add(Me.LblCardsSetupNote) -Me.TpGames.Controls.Add(Me.CBGameSounds) -Me.TpGames.Controls.Add(Me.GbxCardsGold) -Me.TpGames.Controls.Add(Me.GbxCardsBackground) -Me.TpGames.Controls.Add(Me.GbxCardsBronze) -Me.TpGames.Controls.Add(Me.GbxCardsSilver) -Me.TpGames.Location = New System.Drawing.Point(4, 22) -Me.TpGames.Name = "TpGames" -Me.TpGames.Padding = New System.Windows.Forms.Padding(3) -Me.TpGames.Size = New System.Drawing.Size(700, 411) -Me.TpGames.TabIndex = 1 -Me.TpGames.Text = "Games" +Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCHD.Name = "BTNVideoCHD" +Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCHD.TabIndex = 5 +Me.BTNVideoCHD.Text = "1" +Me.BTNVideoCHD.UseVisualStyleBackColor = false ' -'LblCardsSetupNote +'BTNVideoJOID ' -Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) -Me.LblCardsSetupNote.Name = "LblCardsSetupNote" -Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) -Me.LblCardsSetupNote.TabIndex = 4 -Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ - "!" -Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOID.Name = "BTNVideoJOID" +Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOID.TabIndex = 1 +Me.BTNVideoJOID.Text = "1" +Me.BTNVideoJOID.UseVisualStyleBackColor = false ' -'CBGameSounds +'CBVideoJOID ' -Me.CBGameSounds.AutoSize = true -Me.CBGameSounds.Checked = true -Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBGameSounds.ForeColor = System.Drawing.Color.Black -Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) -Me.CBGameSounds.Name = "CBGameSounds" -Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) -Me.CBGameSounds.TabIndex = 6 -Me.CBGameSounds.Text = "Play Game Sounds" -Me.CBGameSounds.UseVisualStyleBackColor = true +Me.CBVideoJOID.AutoSize = true +Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID +Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOID.Name = "CBVideoJOID" +Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOID.TabIndex = 0 +Me.CBVideoJOID.Text = "JOI" +Me.CBVideoJOID.UseVisualStyleBackColor = true ' -'GbxCardsGold +'CBVideoCHD ' -Me.GbxCardsGold.Controls.Add(Me.GN6) -Me.GbxCardsGold.Controls.Add(Me.GP6) -Me.GbxCardsGold.Controls.Add(Me.GN2) -Me.GbxCardsGold.Controls.Add(Me.GP2) -Me.GbxCardsGold.Controls.Add(Me.GP5) -Me.GbxCardsGold.Controls.Add(Me.GN1) -Me.GbxCardsGold.Controls.Add(Me.GP1) -Me.GbxCardsGold.Controls.Add(Me.GN5) -Me.GbxCardsGold.Controls.Add(Me.GN3) -Me.GbxCardsGold.Controls.Add(Me.GP3) -Me.GbxCardsGold.Controls.Add(Me.GP4) -Me.GbxCardsGold.Controls.Add(Me.GN4) -Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) -Me.GbxCardsGold.Name = "GbxCardsGold" -Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) -Me.GbxCardsGold.TabIndex = 2 -Me.GbxCardsGold.TabStop = false -Me.GbxCardsGold.Text = "Gold Cards" +Me.CBVideoCHD.AutoSize = true +Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD +Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black +Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCHD.Name = "CBVideoCHD" +Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCHD.TabIndex = 4 +Me.CBVideoCHD.Text = "CH" +Me.CBVideoCHD.UseVisualStyleBackColor = true ' -'GbxCardsBackground +'GbxVideoGenreD ' -Me.GbxCardsBackground.Controls.Add(Me.CardBack) -Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) -Me.GbxCardsBackground.Name = "GbxCardsBackground" -Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) -Me.GbxCardsBackground.TabIndex = 3 -Me.GbxCardsBackground.TabStop = false -Me.GbxCardsBackground.Text = "Card Background" +Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) +Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) +Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) +Me.GbxVideoGenreD.Name = "GbxVideoGenreD" +Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenreD.TabIndex = 3 +Me.GbxVideoGenreD.TabStop = false +Me.GbxVideoGenreD.Text = "Domme Genre" ' -'GbxCardsBronze +'LblVideoFemsubTotalD ' -Me.GbxCardsBronze.Controls.Add(Me.BN6) -Me.GbxCardsBronze.Controls.Add(Me.BN3) -Me.GbxCardsBronze.Controls.Add(Me.BP3) -Me.GbxCardsBronze.Controls.Add(Me.BP6) -Me.GbxCardsBronze.Controls.Add(Me.BN2) -Me.GbxCardsBronze.Controls.Add(Me.BN5) -Me.GbxCardsBronze.Controls.Add(Me.BP5) -Me.GbxCardsBronze.Controls.Add(Me.BP2) -Me.GbxCardsBronze.Controls.Add(Me.BN1) -Me.GbxCardsBronze.Controls.Add(Me.BN4) -Me.GbxCardsBronze.Controls.Add(Me.BP4) -Me.GbxCardsBronze.Controls.Add(Me.BP1) -Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) -Me.GbxCardsBronze.Name = "GbxCardsBronze" -Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsBronze.TabIndex = 0 -Me.GbxCardsBronze.TabStop = false -Me.GbxCardsBronze.Text = "Bronze Cards" +Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" +Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotalD.TabIndex = 23 +Me.LblVideoFemsubTotalD.Text = "0" +Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GbxCardsSilver +'TxbVideoFemsubD ' -Me.GbxCardsSilver.Controls.Add(Me.SN6) -Me.GbxCardsSilver.Controls.Add(Me.SP6) -Me.GbxCardsSilver.Controls.Add(Me.SN2) -Me.GbxCardsSilver.Controls.Add(Me.SP2) -Me.GbxCardsSilver.Controls.Add(Me.SN1) -Me.GbxCardsSilver.Controls.Add(Me.SP5) -Me.GbxCardsSilver.Controls.Add(Me.SP1) -Me.GbxCardsSilver.Controls.Add(Me.SN5) -Me.GbxCardsSilver.Controls.Add(Me.SN3) -Me.GbxCardsSilver.Controls.Add(Me.SN4) -Me.GbxCardsSilver.Controls.Add(Me.SP3) -Me.GbxCardsSilver.Controls.Add(Me.SP4) -Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) -Me.GbxCardsSilver.Name = "GbxCardsSilver" -Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsSilver.TabIndex = 1 -Me.GbxCardsSilver.TabStop = false -Me.GbxCardsSilver.Text = "Silver Cards" +Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" +Me.TxbVideoFemsubD.ReadOnly = true +Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsubD.TabIndex = 22 +Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD ' -'TabPage6 +'LblVideoFemdomTotalD ' -Me.TabPage6.BackColor = System.Drawing.Color.LightGray -Me.TabPage6.Controls.Add(Me.Panel10) -Me.TabPage6.Controls.Add(Me.Label107) -Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) -Me.TabPage6.Controls.Add(Me.Label18) -Me.TabPage6.Controls.Add(Me.PNLWishList) -Me.TabPage6.Location = New System.Drawing.Point(4, 22) -Me.TabPage6.Name = "TabPage6" -Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage6.Size = New System.Drawing.Size(700, 411) -Me.TabPage6.TabIndex = 2 -Me.TabPage6.Text = "Wishlist" +Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" +Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotalD.TabIndex = 19 +Me.LblVideoFemdomTotalD.Text = "0" +Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Panel10 +'TxbVideoFemdomD ' -Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel10.Controls.Add(Me.TBWishlistComment) -Me.Panel10.Controls.Add(Me.Label32) -Me.Panel10.Controls.Add(Me.TBWishlistItem) -Me.Panel10.Controls.Add(Me.radioGold) -Me.Panel10.Controls.Add(Me.Label42) -Me.Panel10.Controls.Add(Me.radioSilver) -Me.Panel10.Controls.Add(Me.TBWishlistURL) -Me.Panel10.Controls.Add(Me.NBWishlistCost) -Me.Panel10.Controls.Add(Me.Label48) -Me.Panel10.Controls.Add(Me.Label73) -Me.Panel10.Location = New System.Drawing.Point(38, 47) -Me.Panel10.Name = "Panel10" -Me.Panel10.Size = New System.Drawing.Size(252, 308) -Me.Panel10.TabIndex = 179 +Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" +Me.TxbVideoFemdomD.ReadOnly = true +Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdomD.TabIndex = 18 +Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD ' -'TBWishlistComment +'TxbVideoBlowjobD ' -Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) -Me.TBWishlistComment.Multiline = true -Me.TBWishlistComment.Name = "TBWishlistComment" -Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) -Me.TBWishlistComment.TabIndex = 172 +Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" +Me.TxbVideoBlowjobD.ReadOnly = true +Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjobD.TabIndex = 14 +Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD ' -'Label32 +'LblVideoBlowjobTotalD ' -Me.Label32.AutoSize = true -Me.Label32.Location = New System.Drawing.Point(13, 4) -Me.Label32.Name = "Label32" -Me.Label32.Size = New System.Drawing.Size(58, 13) -Me.Label32.TabIndex = 167 -Me.Label32.Text = "Item Name" +Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" +Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotalD.TabIndex = 15 +Me.LblVideoBlowjobTotalD.Text = "0" +Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBWishlistItem +'TxbVideoLesbianD ' -Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) -Me.TBWishlistItem.Name = "TBWishlistItem" -Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistItem.TabIndex = 168 +Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" +Me.TxbVideoLesbianD.ReadOnly = true +Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbianD.TabIndex = 10 +Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD ' -'radioGold +'TxbVideoSoftCoreD ' -Me.radioGold.AutoSize = true -Me.radioGold.Location = New System.Drawing.Point(167, 125) -Me.radioGold.Name = "radioGold" -Me.radioGold.Size = New System.Drawing.Size(47, 17) -Me.radioGold.TabIndex = 176 -Me.radioGold.Text = "Gold" -Me.radioGold.UseVisualStyleBackColor = true +Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" +Me.TxbVideoSoftCoreD.ReadOnly = true +Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCoreD.TabIndex = 6 +Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD ' -'Label42 +'LblVideoLesbianTotalD ' -Me.Label42.AutoSize = true -Me.Label42.Location = New System.Drawing.Point(13, 56) -Me.Label42.Name = "Label42" -Me.Label42.Size = New System.Drawing.Size(75, 13) -Me.Label42.TabIndex = 169 -Me.Label42.Text = "Item Image Url" +Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" +Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotalD.TabIndex = 11 +Me.LblVideoLesbianTotalD.Text = "0" +Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'radioSilver +'TxbVideoHardCoreD ' -Me.radioSilver.AutoSize = true -Me.radioSilver.Checked = true -Me.radioSilver.Location = New System.Drawing.Point(100, 125) -Me.radioSilver.Name = "radioSilver" -Me.radioSilver.Size = New System.Drawing.Size(51, 17) -Me.radioSilver.TabIndex = 175 -Me.radioSilver.TabStop = true -Me.radioSilver.Text = "Silver" -Me.radioSilver.UseVisualStyleBackColor = true +Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" +Me.TxbVideoHardCoreD.ReadOnly = true +Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCoreD.TabIndex = 2 +Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD ' -'TBWishlistURL +'BTNVideoFemSubD ' -Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) -Me.TBWishlistURL.Name = "TBWishlistURL" -Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistURL.TabIndex = 170 +Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" +Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSubD.TabIndex = 21 +Me.BTNVideoFemSubD.Text = "1" +Me.BTNVideoFemSubD.UseVisualStyleBackColor = false ' -'NBWishlistCost +'LblVideoSoftCoreTotalD ' -Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) -Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBWishlistCost.Name = "NBWishlistCost" -Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) -Me.NBWishlistCost.TabIndex = 174 -Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) +Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" +Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotalD.TabIndex = 7 +Me.LblVideoSoftCoreTotalD.Text = "0" +Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label48 +'BTNVideoFemDomD ' -Me.Label48.AutoSize = true -Me.Label48.Location = New System.Drawing.Point(13, 157) -Me.Label48.Name = "Label48" -Me.Label48.Size = New System.Drawing.Size(74, 13) -Me.Label48.TabIndex = 171 -Me.Label48.Text = "Item Comment" +Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" +Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDomD.TabIndex = 17 +Me.BTNVideoFemDomD.Text = "1" +Me.BTNVideoFemDomD.UseVisualStyleBackColor = false ' -'Label73 +'BTNVideoBlowjobD ' -Me.Label73.AutoSize = true -Me.Label73.Location = New System.Drawing.Point(13, 108) -Me.Label73.Name = "Label73" -Me.Label73.Size = New System.Drawing.Size(51, 13) -Me.Label73.TabIndex = 173 -Me.Label73.Text = "Item Cost" +Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" +Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjobD.TabIndex = 13 +Me.BTNVideoBlowjobD.Text = "1" +Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false ' -'Label107 +'LblVideoHardCoreTotalD ' -Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label107.Location = New System.Drawing.Point(38, 5) -Me.Label107.Name = "Label107" -Me.Label107.Size = New System.Drawing.Size(252, 47) -Me.Label107.TabIndex = 178 -Me.Label107.Text = "Use this page to create Wishlist files." -Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" +Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotalD.TabIndex = 3 +Me.LblVideoHardCoreTotalD.Text = "0" +Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNWishlistCreate +'BTNVideoLesbianD ' -Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) -Me.BTNWishlistCreate.Name = "BTNWishlistCreate" -Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) -Me.BTNWishlistCreate.TabIndex = 177 -Me.BTNWishlistCreate.Text = "Create Wishlist File" -Me.BTNWishlistCreate.UseVisualStyleBackColor = true +Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" +Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbianD.TabIndex = 9 +Me.BTNVideoLesbianD.Text = "1" +Me.BTNVideoLesbianD.UseVisualStyleBackColor = false ' -'Label18 +'BTNVideoSoftCoreD ' -Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label18.Location = New System.Drawing.Point(409, 5) -Me.Label18.Name = "Label18" -Me.Label18.Size = New System.Drawing.Size(250, 23) -Me.Label18.TabIndex = 166 -Me.Label18.Text = "Preview" -Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" +Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCoreD.TabIndex = 5 +Me.BTNVideoSoftCoreD.Text = "1" +Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false ' -'PNLWishList +'BTNVideoHardCoreD ' -Me.PNLWishList.BackColor = System.Drawing.Color.White -Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) -Me.PNLWishList.Controls.Add(Me.LBLWishListText) -Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) -Me.PNLWishList.Controls.Add(Me.WishlistCostGold) -Me.PNLWishList.Controls.Add(Me.LBLWishListName) -Me.PNLWishList.Controls.Add(Me.WishlistPreview) -Me.PNLWishList.Location = New System.Drawing.Point(407, 31) -Me.PNLWishList.Name = "PNLWishList" -Me.PNLWishList.Size = New System.Drawing.Size(250, 367) -Me.PNLWishList.TabIndex = 165 +Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" +Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCoreD.TabIndex = 1 +Me.BTNVideoHardCoreD.Text = "1" +Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false ' -'WishlistCostSilver +'CBVideoHardcoreD ' -Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) -Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostSilver.Name = "WishlistCostSilver" -Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostSilver.TabIndex = 111 -Me.WishlistCostSilver.TabStop = false +Me.CBVideoHardcoreD.AutoSize = true +Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD +Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" +Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcoreD.TabIndex = 0 +Me.CBVideoHardcoreD.Text = "Hardcore" +Me.CBVideoHardcoreD.UseVisualStyleBackColor = true ' -'LBLWishListText +'CBVideoSoftCoreD ' -Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) -Me.LBLWishListText.Name = "LBLWishListText" -Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) -Me.LBLWishListText.TabIndex = 108 +Me.CBVideoSoftCoreD.AutoSize = true +Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD +Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" +Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCoreD.TabIndex = 4 +Me.CBVideoSoftCoreD.Text = "Softcore" +Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true ' -'LBLWishlistCost +'CBVideoLesbianD ' -Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black -Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) -Me.LBLWishlistCost.Name = "LBLWishlistCost" -Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) -Me.LBLWishlistCost.TabIndex = 107 -Me.LBLWishlistCost.Text = "3" -Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBVideoLesbianD.AutoSize = true +Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD +Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbianD.Name = "CBVideoLesbianD" +Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbianD.TabIndex = 8 +Me.CBVideoLesbianD.Text = "Lesbian" +Me.CBVideoLesbianD.UseVisualStyleBackColor = true ' -'WishlistCostGold +'CBVideoBlowjobD ' -Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) -Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostGold.Name = "WishlistCostGold" -Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostGold.TabIndex = 106 -Me.WishlistCostGold.TabStop = false -Me.WishlistCostGold.Visible = false +Me.CBVideoBlowjobD.AutoSize = true +Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD +Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" +Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjobD.TabIndex = 12 +Me.CBVideoBlowjobD.Text = "Blowjob" +Me.CBVideoBlowjobD.UseVisualStyleBackColor = true ' -'LBLWishListName +'CBVideoFemsubD ' -Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue -Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) -Me.LBLWishListName.Name = "LBLWishListName" -Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) -Me.LBLWishListName.TabIndex = 104 -Me.LBLWishListName.Text = "Item Name Goes Here" -Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBVideoFemsubD.AutoSize = true +Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD +Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsubD.Name = "CBVideoFemsubD" +Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsubD.TabIndex = 20 +Me.CBVideoFemsubD.Text = "Femsub" +Me.CBVideoFemsubD.UseVisualStyleBackColor = true ' -'WishlistPreview +'CBVideoFemdomD ' -Me.WishlistPreview.ImageLocation = "" -Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) -Me.WishlistPreview.Name = "WishlistPreview" -Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) -Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WishlistPreview.TabIndex = 101 -Me.WishlistPreview.TabStop = false +Me.CBVideoFemdomD.AutoSize = true +Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD +Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdomD.Name = "CBVideoFemdomD" +Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdomD.TabIndex = 16 +Me.CBVideoFemdomD.Text = "Femdom" +Me.CBVideoFemdomD.UseVisualStyleBackColor = true ' -'TabPage26 +'GbxVideoDescription ' -Me.TabPage26.BackColor = System.Drawing.Color.Silver -Me.TabPage26.Controls.Add(Me.Panel12) -Me.TabPage26.Location = New System.Drawing.Point(4, 22) -Me.TabPage26.Name = "TabPage26" -Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage26.Size = New System.Drawing.Size(720, 448) -Me.TabPage26.TabIndex = 19 -Me.TabPage26.Text = "Themes" +Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) +Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black +Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) +Me.GbxVideoDescription.Name = "GbxVideoDescription" +Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) +Me.GbxVideoDescription.TabIndex = 6 +Me.GbxVideoDescription.TabStop = false +Me.GbxVideoDescription.Text = "Description" ' -'Panel12 +'VideoDescriptionLabel ' -Me.Panel12.BackColor = System.Drawing.Color.LightGray -Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel12.Controls.Add(Me.GroupBox9) -Me.Panel12.Controls.Add(Me.PictureBox10) -Me.Panel12.Controls.Add(Me.GroupBox5) -Me.Panel12.Controls.Add(Me.GroupBox11) -Me.Panel12.Controls.Add(Me.GroupBox1) -Me.Panel12.Controls.Add(Me.Label164) -Me.Panel12.Location = New System.Drawing.Point(6, 6) -Me.Panel12.Name = "Panel12" -Me.Panel12.Size = New System.Drawing.Size(708, 437) -Me.Panel12.TabIndex = 93 +Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent +Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black +Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) +Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" +Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) +Me.VideoDescriptionLabel.TabIndex = 62 +Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ + "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ + "using as your domme." +Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox9 +'GbxVideoGeneral ' -Me.GroupBox9.Controls.Add(Me.Button32) -Me.GroupBox9.Controls.Add(Me.Button31) -Me.GroupBox9.Location = New System.Drawing.Point(351, 231) -Me.GroupBox9.Name = "GroupBox9" -Me.GroupBox9.Size = New System.Drawing.Size(348, 94) -Me.GroupBox9.TabIndex = 152 -Me.GroupBox9.TabStop = false -Me.GroupBox9.Text = "System" +Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) +Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) +Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) +Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) +Me.GbxVideoGeneral.Name = "GbxVideoGeneral" +Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) +Me.GbxVideoGeneral.TabIndex = 2 +Me.GbxVideoGeneral.TabStop = false +Me.GbxVideoGeneral.Text = "General" ' -'Button32 +'LblVideoGeneralTotal ' -Me.Button32.BackColor = System.Drawing.Color.Transparent -Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big -Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button32.Location = New System.Drawing.Point(196, 24) -Me.Button32.Name = "Button32" -Me.Button32.Size = New System.Drawing.Size(135, 55) -Me.Button32.TabIndex = 55 -Me.Button32.Text = " Save Theme" -Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button32.UseVisualStyleBackColor = false +Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" +Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoGeneralTotal.TabIndex = 3 +Me.LblVideoGeneralTotal.Text = "0" +Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Button31 +'TxbVideoGeneral ' -Me.Button31.BackColor = System.Drawing.Color.Transparent -Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big -Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button31.Location = New System.Drawing.Point(17, 24) -Me.Button31.Name = "Button31" -Me.Button31.Size = New System.Drawing.Size(135, 55) -Me.Button31.TabIndex = 54 -Me.Button31.Text = " Open Theme" -Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button31.UseVisualStyleBackColor = false +Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.Name = "TxbVideoGeneral" +Me.TxbVideoGeneral.ReadOnly = true +Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoGeneral.TabIndex = 2 +Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral ' -'PictureBox10 +'BTNVideoGeneral ' -Me.PictureBox10.BackColor = System.Drawing.Color.LightGray -Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox10.Location = New System.Drawing.Point(9, 6) -Me.PictureBox10.Name = "PictureBox10" -Me.PictureBox10.Size = New System.Drawing.Size(160, 19) -Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox10.TabIndex = 151 -Me.PictureBox10.TabStop = false +Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoGeneral.Name = "BTNVideoGeneral" +Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoGeneral.TabIndex = 1 +Me.BTNVideoGeneral.Text = "1" +Me.BTNVideoGeneral.UseVisualStyleBackColor = false ' -'GroupBox5 +'CBVideoGeneral ' -Me.GroupBox5.Controls.Add(Me.CBTransparentTime) -Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) -Me.GroupBox5.Controls.Add(Me.Label137) -Me.GroupBox5.Controls.Add(Me.Label138) -Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) -Me.GroupBox5.Location = New System.Drawing.Point(9, 31) -Me.GroupBox5.Name = "GroupBox5" -Me.GroupBox5.Size = New System.Drawing.Size(336, 294) -Me.GroupBox5.TabIndex = 58 -Me.GroupBox5.TabStop = false -Me.GroupBox5.Text = "UI Colors" +Me.CBVideoGeneral.AutoSize = true +Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral +Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black +Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) +Me.CBVideoGeneral.Name = "CBVideoGeneral" +Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) +Me.CBVideoGeneral.TabIndex = 0 +Me.CBVideoGeneral.Text = "General" +Me.CBVideoGeneral.UseVisualStyleBackColor = true ' -'CBTransparentTime +'GbxVideoSpecial ' -Me.CBTransparentTime.AutoSize = true -Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) -Me.CBTransparentTime.Name = "CBTransparentTime" -Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) -Me.CBTransparentTime.TabIndex = 23 -Me.CBTransparentTime.Text = "Transparent Date/Time Window" -Me.CBTransparentTime.UseVisualStyleBackColor = true +Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) +Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) +Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) +Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) +Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black +Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) +Me.GbxVideoSpecial.Name = "GbxVideoSpecial" +Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) +Me.GbxVideoSpecial.TabIndex = 1 +Me.GbxVideoSpecial.TabStop = false +Me.GbxVideoSpecial.Text = "Special" ' -'Label137 +'LblVideoCHTotal ' -Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label137.Location = New System.Drawing.Point(6, 227) -Me.Label137.Name = "Label137" -Me.Label137.Size = New System.Drawing.Size(175, 20) -Me.Label137.TabIndex = 20 -Me.Label137.Text = "Date/Time Window Color" -Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) +Me.LblVideoCHTotal.Name = "LblVideoCHTotal" +Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoCHTotal.TabIndex = 7 +Me.LblVideoCHTotal.Text = "0" +Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label138 +'LblVideoJOITotal ' -Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label138.Location = New System.Drawing.Point(6, 193) -Me.Label138.Name = "Label138" -Me.Label138.Size = New System.Drawing.Size(175, 20) -Me.Label138.TabIndex = 17 -Me.Label138.Text = "Date/Time Text Color" -Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) +Me.LblVideoJOITotal.Name = "LblVideoJOITotal" +Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoJOITotal.TabIndex = 3 +Me.LblVideoJOITotal.Text = "0" +Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLTextColor +'TxbVideoCH ' -Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) -Me.LBLTextColor.Name = "LBLTextColor" -Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLTextColor.TabIndex = 7 -Me.LBLTextColor.Text = "Text Color" -Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black +Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) +Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.Name = "TxbVideoCH" +Me.TxbVideoCH.ReadOnly = true +Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoCH.TabIndex = 6 +Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH ' -'LBLChatTextColor +'TxbVideoJOI ' -Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) -Me.LBLChatTextColor.Name = "LBLChatTextColor" -Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatTextColor.TabIndex = 14 -Me.LBLChatTextColor.Text = "Chat Text Color" -Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black +Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) +Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.Name = "TxbVideoJOI" +Me.TxbVideoJOI.ReadOnly = true +Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoJOI.TabIndex = 2 +Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI ' -'LBLButtonColor +'BTNVideoCH ' -Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) -Me.LBLButtonColor.Name = "LBLButtonColor" -Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) -Me.LBLButtonColor.TabIndex = 4 -Me.LBLButtonColor.Text = "Button Color" -Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black +Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoCH.Name = "BTNVideoCH" +Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoCH.TabIndex = 5 +Me.BTNVideoCH.Text = "1" +Me.BTNVideoCH.UseVisualStyleBackColor = false ' -'LBLChatWindowColor +'BTNVideoJOI ' -Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) -Me.LBLChatWindowColor.Name = "LBLChatWindowColor" -Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatWindowColor.TabIndex = 10 -Me.LBLChatWindowColor.Text = "Chat Window Color" -Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black +Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) +Me.BTNVideoJOI.Name = "BTNVideoJOI" +Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoJOI.TabIndex = 1 +Me.BTNVideoJOI.Text = "1" +Me.BTNVideoJOI.UseVisualStyleBackColor = false ' -'LBLBackColor +'CBVideoJOI ' -Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) -Me.LBLBackColor.Name = "LBLBackColor" -Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) -Me.LBLBackColor.TabIndex = 0 -Me.LBLBackColor.Text = "Background Color" -Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBVideoJOI.AutoSize = true +Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI +Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black +Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) +Me.CBVideoJOI.Name = "CBVideoJOI" +Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) +Me.CBVideoJOI.TabIndex = 0 +Me.CBVideoJOI.Text = "JOI" +Me.CBVideoJOI.UseVisualStyleBackColor = true ' -'GroupBox11 +'CBVideoCH +' +Me.CBVideoCH.AutoSize = true +Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH +Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoCH.ForeColor = System.Drawing.Color.Black +Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) +Me.CBVideoCH.Name = "CBVideoCH" +Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) +Me.CBVideoCH.TabIndex = 4 +Me.CBVideoCH.Text = "CH" +Me.CBVideoCH.UseVisualStyleBackColor = true +' +'GbxVideoGenre ' -Me.GroupBox11.BackColor = System.Drawing.Color.LightGray -Me.GroupBox11.Controls.Add(Me.Label144) -Me.GroupBox11.ForeColor = System.Drawing.Color.Black -Me.GroupBox11.Location = New System.Drawing.Point(7, 331) -Me.GroupBox11.Name = "GroupBox11" -Me.GroupBox11.Size = New System.Drawing.Size(692, 92) -Me.GroupBox11.TabIndex = 65 -Me.GroupBox11.TabStop = false -Me.GroupBox11.Text = "Description" +Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) +Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) +Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) +Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black +Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) +Me.GbxVideoGenre.Name = "GbxVideoGenre" +Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) +Me.GbxVideoGenre.TabIndex = 0 +Me.GbxVideoGenre.TabStop = false +Me.GbxVideoGenre.Text = "Genre" ' -'Label144 +'LblVideoFemsubTotal ' -Me.Label144.BackColor = System.Drawing.Color.Transparent -Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label144.ForeColor = System.Drawing.Color.Black -Me.Label144.Location = New System.Drawing.Point(6, 16) -Me.Label144.Name = "Label144" -Me.Label144.Size = New System.Drawing.Size(680, 73) -Me.Label144.TabIndex = 62 -Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ - "nd opened from txt files." -Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) +Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" +Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemsubTotal.TabIndex = 23 +Me.LblVideoFemsubTotal.Text = "0" +Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GroupBox1 +'TxbVideoFemsub ' -Me.GroupBox1.Controls.Add(Me.CBFlipBack) -Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) -Me.GroupBox1.Controls.Add(Me.Button17) -Me.GroupBox1.Controls.Add(Me.CBStretchBack) -Me.GroupBox1.Controls.Add(Me.Button18) -Me.GroupBox1.Location = New System.Drawing.Point(351, 30) -Me.GroupBox1.Name = "GroupBox1" -Me.GroupBox1.Size = New System.Drawing.Size(348, 195) -Me.GroupBox1.TabIndex = 57 -Me.GroupBox1.TabStop = false -Me.GroupBox1.Text = "Background" +Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) +Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.Name = "TxbVideoFemsub" +Me.TxbVideoFemsub.ReadOnly = true +Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemsub.TabIndex = 22 +Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub ' -'CBFlipBack +'LblVideoFemdomTotal ' -Me.CBFlipBack.Enabled = false -Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) -Me.CBFlipBack.Name = "CBFlipBack" -Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) -Me.CBFlipBack.TabIndex = 4 -Me.CBFlipBack.Text = "Flip Background" -Me.CBFlipBack.UseVisualStyleBackColor = true +Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) +Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" +Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoFemdomTotal.TabIndex = 19 +Me.LblVideoFemdomTotal.Text = "0" +Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'PBBackgroundPreview +'TxbVideoFemdom ' -Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) -Me.PBBackgroundPreview.Name = "PBBackgroundPreview" -Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) -Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PBBackgroundPreview.TabIndex = 0 -Me.PBBackgroundPreview.TabStop = false +Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) +Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.Name = "TxbVideoFemdom" +Me.TxbVideoFemdom.ReadOnly = true +Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoFemdom.TabIndex = 18 +Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom ' -'Button17 +'TxbVideoBlowjob ' -Me.Button17.BackColor = System.Drawing.Color.Transparent -Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load -Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button17.Location = New System.Drawing.Point(228, 36) -Me.Button17.Name = "Button17" -Me.Button17.Size = New System.Drawing.Size(103, 93) -Me.Button17.TabIndex = 1 -Me.Button17.UseVisualStyleBackColor = false +Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) +Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" +Me.TxbVideoBlowjob.ReadOnly = true +Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoBlowjob.TabIndex = 14 +Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob ' -'CBStretchBack +'LblVideoBlowjobTotal ' -Me.CBStretchBack.Checked = true -Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) -Me.CBStretchBack.Name = "CBStretchBack" -Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) -Me.CBStretchBack.TabIndex = 2 -Me.CBStretchBack.Text = "Stretch Background" -Me.CBStretchBack.UseVisualStyleBackColor = true +Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) +Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" +Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoBlowjobTotal.TabIndex = 15 +Me.LblVideoBlowjobTotal.Text = "0" +Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Button18 +'TxbVideoLesbian ' -Me.Button18.Location = New System.Drawing.Point(228, 155) -Me.Button18.Name = "Button18" -Me.Button18.Size = New System.Drawing.Size(103, 31) -Me.Button18.TabIndex = 3 -Me.Button18.Text = "Clear" -Me.Button18.UseVisualStyleBackColor = true +Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) +Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.Name = "TxbVideoLesbian" +Me.TxbVideoLesbian.ReadOnly = true +Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoLesbian.TabIndex = 10 +Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian ' -'Label164 +'TxbVideoSoftCore ' -Me.Label164.BackColor = System.Drawing.Color.Transparent -Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label164.ForeColor = System.Drawing.Color.Black -Me.Label164.Location = New System.Drawing.Point(7, 6) -Me.Label164.Name = "Label164" -Me.Label164.Size = New System.Drawing.Size(692, 21) -Me.Label164.TabIndex = 49 -Me.Label164.Text = "Theme Settings" -Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) +Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" +Me.TxbVideoSoftCore.ReadOnly = true +Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoSoftCore.TabIndex = 6 +Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore ' -'TabPage4 +'LblVideoLesbianTotal ' -Me.TabPage4.BackColor = System.Drawing.Color.Silver -Me.TabPage4.Controls.Add(Me.Panel6) -Me.TabPage4.Location = New System.Drawing.Point(4, 22) -Me.TabPage4.Name = "TabPage4" -Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage4.Size = New System.Drawing.Size(720, 448) -Me.TabPage4.TabIndex = 3 -Me.TabPage4.Text = "Ranges" +Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) +Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" +Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoLesbianTotal.TabIndex = 11 +Me.LblVideoLesbianTotal.Text = "0" +Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Panel6 +'TxbVideoHardCore ' -Me.Panel6.BackColor = System.Drawing.Color.LightGray -Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel6.Controls.Add(Me.GroupBox69) -Me.Panel6.Controls.Add(Me.GroupBox68) -Me.Panel6.Controls.Add(Me.GroupBox67) -Me.Panel6.Controls.Add(Me.GroupBox10) -Me.Panel6.Controls.Add(Me.GroupBox57) -Me.Panel6.Controls.Add(Me.GBRangeRuinChance) -Me.Panel6.Controls.Add(Me.GroupBox17) -Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) -Me.Panel6.Controls.Add(Me.PictureBox8) -Me.Panel6.Controls.Add(Me.Label38) -Me.Panel6.Location = New System.Drawing.Point(6, 6) -Me.Panel6.Name = "Panel6" -Me.Panel6.Size = New System.Drawing.Size(708, 437) -Me.Panel6.TabIndex = 91 +Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) +Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) +Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.Name = "TxbVideoHardCore" +Me.TxbVideoHardCore.ReadOnly = true +Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) +Me.TxbVideoHardCore.TabIndex = 2 +Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore ' -'GroupBox69 +'BTNVideoFemSub ' -Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) -Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) -Me.GroupBox69.Controls.Add(Me.TimedWriting) -Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) -Me.GroupBox69.Location = New System.Drawing.Point(236, 344) -Me.GroupBox69.Name = "GroupBox69" -Me.GroupBox69.Size = New System.Drawing.Size(166, 83) -Me.GroupBox69.TabIndex = 173 -Me.GroupBox69.TabStop = false -Me.GroupBox69.Text = "Writing Tasks" +Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) +Me.BTNVideoFemSub.Name = "BTNVideoFemSub" +Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemSub.TabIndex = 21 +Me.BTNVideoFemSub.Text = "1" +Me.BTNVideoFemSub.UseVisualStyleBackColor = false ' -'TypesSpeedVal +'LblVideoSoftCoreTotal ' -Me.TypesSpeedVal.AutoSize = true -Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) -Me.TypesSpeedVal.Name = "TypesSpeedVal" -Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) -Me.TypesSpeedVal.TabIndex = 0 -Me.TypesSpeedVal.Text = "10" -Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight +Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) +Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" +Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoSoftCoreTotal.TabIndex = 7 +Me.LblVideoSoftCoreTotal.Text = "0" +Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TypeSpeedLabel +'BTNVideoFemDom ' -Me.TypeSpeedLabel.AutoSize = true -Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) -Me.TypeSpeedLabel.Name = "TypeSpeedLabel" -Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) -Me.TypeSpeedLabel.TabIndex = 2 -Me.TypeSpeedLabel.Text = "Typing Speed:" +Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black +Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) +Me.BTNVideoFemDom.Name = "BTNVideoFemDom" +Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoFemDom.TabIndex = 17 +Me.BTNVideoFemDom.Text = "1" +Me.BTNVideoFemDom.UseVisualStyleBackColor = false ' -'GroupBox68 +'BTNVideoBlowjob ' -Me.GroupBox68.Controls.Add(Me.NBTasksMax) -Me.GroupBox68.Controls.Add(Me.NBTasksMin) -Me.GroupBox68.Controls.Add(Me.Label165) -Me.GroupBox68.Controls.Add(Me.Label166) -Me.GroupBox68.Location = New System.Drawing.Point(236, 287) -Me.GroupBox68.Name = "GroupBox68" -Me.GroupBox68.Size = New System.Drawing.Size(166, 51) -Me.GroupBox68.TabIndex = 172 -Me.GroupBox68.TabStop = false -Me.GroupBox68.Text = "Session Tasks" +Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) +Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" +Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoBlowjob.TabIndex = 13 +Me.BTNVideoBlowjob.Text = "1" +Me.BTNVideoBlowjob.UseVisualStyleBackColor = false ' -'NBTasksMax +'LblVideoHardCoreTotal ' -Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) -Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) -Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTasksMax.Name = "NBTasksMax" -Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMax.TabIndex = 187 -Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) +Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black +Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) +Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" +Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) +Me.LblVideoHardCoreTotal.TabIndex = 3 +Me.LblVideoHardCoreTotal.Text = "0" +Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBTasksMin +'BTNVideoLesbian ' -Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) -Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBTasksMin.Name = "NBTasksMin" -Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMin.TabIndex = 186 -Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) +Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) +Me.BTNVideoLesbian.Name = "BTNVideoLesbian" +Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoLesbian.TabIndex = 9 +Me.BTNVideoLesbian.Text = "1" +Me.BTNVideoLesbian.UseVisualStyleBackColor = false ' -'Label165 +'BTNVideoSoftCore ' -Me.Label165.BackColor = System.Drawing.Color.Transparent -Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label165.ForeColor = System.Drawing.Color.Black -Me.Label165.Location = New System.Drawing.Point(100, 20) -Me.Label165.Name = "Label165" -Me.Label165.Size = New System.Drawing.Size(10, 17) -Me.Label165.TabIndex = 185 -Me.Label165.Text = "-" -Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) +Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" +Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoSoftCore.TabIndex = 5 +Me.BTNVideoSoftCore.Text = "1" +Me.BTNVideoSoftCore.UseVisualStyleBackColor = false ' -'Label166 +'BTNVideoHardCore ' -Me.Label166.BackColor = System.Drawing.Color.Transparent -Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label166.ForeColor = System.Drawing.Color.Black -Me.Label166.Location = New System.Drawing.Point(6, 21) -Me.Label166.Name = "Label166" -Me.Label166.Size = New System.Drawing.Size(49, 17) -Me.Label166.TabIndex = 188 -Me.Label166.Text = "Amount:" -Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray +Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black +Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) +Me.BTNVideoHardCore.Name = "BTNVideoHardCore" +Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) +Me.BTNVideoHardCore.TabIndex = 1 +Me.BTNVideoHardCore.Text = "1" +Me.BTNVideoHardCore.UseVisualStyleBackColor = false ' -'GroupBox67 +'CBVideoHardcore ' -Me.GroupBox67.Controls.Add(Me.Label161) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) -Me.GroupBox67.Controls.Add(Me.Label162) -Me.GroupBox67.Controls.Add(Me.Label163) -Me.GroupBox67.Controls.Add(Me.Label158) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) -Me.GroupBox67.Controls.Add(Me.Label159) -Me.GroupBox67.Controls.Add(Me.Label160) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) -Me.GroupBox67.Controls.Add(Me.Label119) -Me.GroupBox67.Controls.Add(Me.Label157) -Me.GroupBox67.Controls.Add(Me.Label151) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) -Me.GroupBox67.Controls.Add(Me.Label154) -Me.GroupBox67.Controls.Add(Me.Label155) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) -Me.GroupBox67.Controls.Add(Me.Label146) -Me.GroupBox67.Controls.Add(Me.Label149) -Me.GroupBox67.Location = New System.Drawing.Point(408, 288) -Me.GroupBox67.Name = "GroupBox67" -Me.GroupBox67.Size = New System.Drawing.Size(291, 139) -Me.GroupBox67.TabIndex = 171 -Me.GroupBox67.TabStop = false -Me.GroupBox67.Text = "Letter Tasks" +Me.CBVideoHardcore.AutoSize = true +Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore +Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black +Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) +Me.CBVideoHardcore.Name = "CBVideoHardcore" +Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) +Me.CBVideoHardcore.TabIndex = 0 +Me.CBVideoHardcore.Text = "Hardcore" +Me.CBVideoHardcore.UseVisualStyleBackColor = true ' -'Label161 +'CBVideoSoftCore ' -Me.Label161.BackColor = System.Drawing.Color.Transparent -Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label161.ForeColor = System.Drawing.Color.Black -Me.Label161.Location = New System.Drawing.Point(233, 110) -Me.Label161.Name = "Label161" -Me.Label161.Size = New System.Drawing.Size(50, 17) -Me.Label161.TabIndex = 204 -Me.Label161.Text = "minutes" -Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBVideoSoftCore.AutoSize = true +Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore +Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black +Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) +Me.CBVideoSoftCore.Name = "CBVideoSoftCore" +Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) +Me.CBVideoSoftCore.TabIndex = 4 +Me.CBVideoSoftCore.Text = "Softcore" +Me.CBVideoSoftCore.UseVisualStyleBackColor = true ' -'Label162 +'CBVideoLesbian ' -Me.Label162.BackColor = System.Drawing.Color.Transparent -Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label162.ForeColor = System.Drawing.Color.Black -Me.Label162.Location = New System.Drawing.Point(167, 110) -Me.Label162.Name = "Label162" -Me.Label162.Size = New System.Drawing.Size(10, 17) -Me.Label162.TabIndex = 201 -Me.Label162.Text = "-" -Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBVideoLesbian.AutoSize = true +Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian +Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black +Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) +Me.CBVideoLesbian.Name = "CBVideoLesbian" +Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) +Me.CBVideoLesbian.TabIndex = 8 +Me.CBVideoLesbian.Text = "Lesbian" +Me.CBVideoLesbian.UseVisualStyleBackColor = true +' +'CBVideoBlowjob +' +Me.CBVideoBlowjob.AutoSize = true +Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob +Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black +Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) +Me.CBVideoBlowjob.Name = "CBVideoBlowjob" +Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) +Me.CBVideoBlowjob.TabIndex = 12 +Me.CBVideoBlowjob.Text = "Blowjob" +Me.CBVideoBlowjob.UseVisualStyleBackColor = true ' -'Label163 +'CBVideoFemsub ' -Me.Label163.BackColor = System.Drawing.Color.Transparent -Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label163.ForeColor = System.Drawing.Color.Black -Me.Label163.Location = New System.Drawing.Point(12, 111) -Me.Label163.Name = "Label163" -Me.Label163.Size = New System.Drawing.Size(151, 17) -Me.Label163.TabIndex = 200 -Me.Label163.Text = "CBT Time:" -Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBVideoFemsub.AutoSize = true +Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub +Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) +Me.CBVideoFemsub.Name = "CBVideoFemsub" +Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) +Me.CBVideoFemsub.TabIndex = 20 +Me.CBVideoFemsub.Text = "Femsub" +Me.CBVideoFemsub.UseVisualStyleBackColor = true ' -'Label158 +'CBVideoFemdom ' -Me.Label158.BackColor = System.Drawing.Color.Transparent -Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label158.ForeColor = System.Drawing.Color.Black -Me.Label158.Location = New System.Drawing.Point(233, 87) -Me.Label158.Name = "Label158" -Me.Label158.Size = New System.Drawing.Size(50, 17) -Me.Label158.TabIndex = 199 -Me.Label158.Text = "minutes" -Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.CBVideoFemdom.AutoSize = true +Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom +Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black +Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) +Me.CBVideoFemdom.Name = "CBVideoFemdom" +Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) +Me.CBVideoFemdom.TabIndex = 16 +Me.CBVideoFemdom.Text = "Femdom" +Me.CBVideoFemdom.UseVisualStyleBackColor = true ' -'Label159 +'LblVideoHeader ' -Me.Label159.BackColor = System.Drawing.Color.Transparent -Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label159.ForeColor = System.Drawing.Color.Black -Me.Label159.Location = New System.Drawing.Point(167, 87) -Me.Label159.Name = "Label159" -Me.Label159.Size = New System.Drawing.Size(10, 17) -Me.Label159.TabIndex = 196 -Me.Label159.Text = "-" -Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent +Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black +Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) +Me.LblVideoHeader.Name = "LblVideoHeader" +Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) +Me.LblVideoHeader.TabIndex = 49 +Me.LblVideoHeader.Text = "Video Settings" +Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label160 +'TabPage20 ' -Me.Label160.BackColor = System.Drawing.Color.Transparent -Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label160.ForeColor = System.Drawing.Color.Black -Me.Label160.Location = New System.Drawing.Point(12, 88) -Me.Label160.Name = "Label160" -Me.Label160.Size = New System.Drawing.Size(151, 17) -Me.Label160.TabIndex = 195 -Me.Label160.Text = "Edge Hold Time:" -Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage20.BackColor = System.Drawing.Color.Silver +Me.TabPage20.Controls.Add(Me.TabControl1) +Me.TabPage20.Location = New System.Drawing.Point(4, 22) +Me.TabPage20.Name = "TabPage20" +Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage20.Size = New System.Drawing.Size(720, 448) +Me.TabPage20.TabIndex = 16 +Me.TabPage20.Text = "Apps" ' -'Label119 +'TabControl1 ' -Me.Label119.BackColor = System.Drawing.Color.Transparent -Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label119.ForeColor = System.Drawing.Color.Black -Me.Label119.Location = New System.Drawing.Point(167, 64) -Me.Label119.Name = "Label119" -Me.Label119.Size = New System.Drawing.Size(10, 17) -Me.Label119.TabIndex = 192 -Me.Label119.Text = "-" -Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabControl1.Controls.Add(Me.TabPage22) +Me.TabControl1.Controls.Add(Me.TpGames) +Me.TabControl1.Controls.Add(Me.TabPage6) +Me.TabControl1.Location = New System.Drawing.Point(6, 6) +Me.TabControl1.Name = "TabControl1" +Me.TabControl1.SelectedIndex = 0 +Me.TabControl1.Size = New System.Drawing.Size(708, 437) +Me.TabControl1.TabIndex = 0 ' -'Label157 +'TabPage22 ' -Me.Label157.BackColor = System.Drawing.Color.Transparent -Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label157.ForeColor = System.Drawing.Color.Black -Me.Label157.Location = New System.Drawing.Point(12, 65) -Me.Label157.Name = "Label157" -Me.Label157.Size = New System.Drawing.Size(151, 17) -Me.Label157.TabIndex = 191 -Me.Label157.Text = "Edges:" -Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TabPage22.BackColor = System.Drawing.Color.LightGray +Me.TabPage22.Controls.Add(Me.PNLGlitter) +Me.TabPage22.Location = New System.Drawing.Point(4, 22) +Me.TabPage22.Name = "TabPage22" +Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage22.Size = New System.Drawing.Size(700, 411) +Me.TabPage22.TabIndex = 0 +Me.TabPage22.Text = "Glitter" ' -'Label151 +'PNLGlitter ' -Me.Label151.BackColor = System.Drawing.Color.Transparent -Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label151.ForeColor = System.Drawing.Color.Black -Me.Label151.Location = New System.Drawing.Point(233, 41) -Me.Label151.Name = "Label151" -Me.Label151.Size = New System.Drawing.Size(50, 17) -Me.Label151.TabIndex = 190 -Me.Label151.Text = "minutes" -Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray +Me.PNLGlitter.Controls.Add(Me.GroupBox14) +Me.PNLGlitter.Controls.Add(Me.GroupBox4) +Me.PNLGlitter.Controls.Add(Me.Button15) +Me.PNLGlitter.Controls.Add(Me.Button16) +Me.PNLGlitter.Controls.Add(Me.Label121) +Me.PNLGlitter.Controls.Add(Me.Label122) +Me.PNLGlitter.Controls.Add(Me.GBGlitterD) +Me.PNLGlitter.Controls.Add(Me.GBGlitter1) +Me.PNLGlitter.Controls.Add(Me.GBGlitter3) +Me.PNLGlitter.Controls.Add(Me.GBGlitter2) +Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) +Me.PNLGlitter.Name = "PNLGlitter" +Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) +Me.PNLGlitter.TabIndex = 91 ' -'Label154 +'GroupBox14 ' -Me.Label154.BackColor = System.Drawing.Color.Transparent -Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label154.ForeColor = System.Drawing.Color.Black -Me.Label154.Location = New System.Drawing.Point(167, 41) -Me.Label154.Name = "Label154" -Me.Label154.Size = New System.Drawing.Size(10, 17) -Me.Label154.TabIndex = 187 -Me.Label154.Text = "-" -Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GroupBox14.BackColor = System.Drawing.Color.LightGray +Me.GroupBox14.Controls.Add(Me.Label170) +Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) +Me.GroupBox14.Controls.Add(Me.RandomHonorific) +Me.GroupBox14.Location = New System.Drawing.Point(355, 307) +Me.GroupBox14.Name = "GroupBox14" +Me.GroupBox14.Size = New System.Drawing.Size(306, 85) +Me.GroupBox14.TabIndex = 182 +Me.GroupBox14.TabStop = false +Me.GroupBox14.Text = "General Contact Settings" ' -'Label155 +'Label170 ' -Me.Label155.BackColor = System.Drawing.Color.Transparent -Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label155.ForeColor = System.Drawing.Color.Black -Me.Label155.Location = New System.Drawing.Point(12, 42) -Me.Label155.Name = "Label155" -Me.Label155.Size = New System.Drawing.Size(151, 17) -Me.Label155.TabIndex = 186 -Me.Label155.Text = "Stroking Time:" -Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label170.Location = New System.Drawing.Point(4, 52) +Me.Label170.Name = "Label170" +Me.Label170.Size = New System.Drawing.Size(142, 18) +Me.Label170.TabIndex = 28 +Me.Label170.Text = "Random Domme Honorific:" +Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label146 +'alwaysNewSlideshow ' -Me.Label146.BackColor = System.Drawing.Color.Transparent -Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label146.ForeColor = System.Drawing.Color.Black -Me.Label146.Location = New System.Drawing.Point(167, 18) -Me.Label146.Name = "Label146" -Me.Label146.Size = New System.Drawing.Size(10, 17) -Me.Label146.TabIndex = 182 -Me.Label146.Text = "-" -Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.alwaysNewSlideshow.AutoSize = true +Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black +Me.alwaysNewSlideshow.Location = New System.Drawing.Point(10, 24) +Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" +Me.alwaysNewSlideshow.Size = New System.Drawing.Size(294, 17) +Me.alwaysNewSlideshow.TabIndex = 151 +Me.alwaysNewSlideshow.Text = "Always Load New Slideshow When Using @AddContact" +Me.alwaysNewSlideshow.UseVisualStyleBackColor = true ' -'Label149 +'RandomHonorific ' -Me.Label149.BackColor = System.Drawing.Color.Transparent -Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label149.ForeColor = System.Drawing.Color.Black -Me.Label149.Location = New System.Drawing.Point(12, 19) -Me.Label149.Name = "Label149" -Me.Label149.Size = New System.Drawing.Size(151, 17) -Me.Label149.TabIndex = 181 -Me.Label149.Text = "Strokes:" -Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.RandomHonorific.BackColor = System.Drawing.Color.White +Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.RandomHonorific.Location = New System.Drawing.Point(149, 51) +Me.RandomHonorific.Name = "RandomHonorific" +Me.RandomHonorific.Size = New System.Drawing.Size(143, 20) +Me.RandomHonorific.TabIndex = 187 +Me.RandomHonorific.Text = "Mistress" +Me.RandomHonorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'GroupBox10 +'GroupBox4 ' -Me.GroupBox10.Controls.Add(Me.Label112) -Me.GroupBox10.Controls.Add(Me.NBNextImageChance) -Me.GroupBox10.Controls.Add(Me.Label6) -Me.GroupBox10.Location = New System.Drawing.Point(408, 31) -Me.GroupBox10.Name = "GroupBox10" -Me.GroupBox10.Size = New System.Drawing.Size(291, 54) -Me.GroupBox10.TabIndex = 170 -Me.GroupBox10.TabStop = false -Me.GroupBox10.Text = "Tease Slideshow" +Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) +Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) +Me.GroupBox4.Location = New System.Drawing.Point(7, 307) +Me.GroupBox4.Name = "GroupBox4" +Me.GroupBox4.Size = New System.Drawing.Size(344, 85) +Me.GroupBox4.TabIndex = 167 +Me.GroupBox4.TabStop = false +Me.GroupBox4.Text = "Change Current Domme" +' +'LBLCurrentDomme +' +Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) +Me.LBLCurrentDomme.Name = "LBLCurrentDomme" +Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) +Me.LBLCurrentDomme.TabIndex = 168 +Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label112 +'BTNDomChangeContact1 ' -Me.Label112.BackColor = System.Drawing.Color.Transparent -Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label112.ForeColor = System.Drawing.Color.Black -Me.Label112.Location = New System.Drawing.Point(233, 21) -Me.Label112.Name = "Label112" -Me.Label112.Size = New System.Drawing.Size(50, 17) -Me.Label112.TabIndex = 180 -Me.Label112.Text = "percent" -Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) +Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" +Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact1.TabIndex = 173 +Me.BTNDomChangeContact1.Text = "Contact 1" +Me.BTNDomChangeContact1.UseVisualStyleBackColor = false ' -'NBNextImageChance +'BTNDomChangeRandom ' -Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) -Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBNextImageChance.Name = "NBNextImageChance" -Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) -Me.NBNextImageChance.TabIndex = 179 -Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) +Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) +Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" +Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeRandom.TabIndex = 172 +Me.BTNDomChangeRandom.Text = "Random" +Me.BTNDomChangeRandom.UseVisualStyleBackColor = false ' -'Label6 +'BTNDomChangeContact3 ' -Me.Label6.BackColor = System.Drawing.Color.Transparent -Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label6.ForeColor = System.Drawing.Color.Black -Me.Label6.Location = New System.Drawing.Point(9, 21) -Me.Label6.Name = "Label6" -Me.Label6.Size = New System.Drawing.Size(151, 17) -Me.Label6.TabIndex = 154 -Me.Label6.Text = "Image Next/Previous Chance:" -Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) +Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" +Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact3.TabIndex = 171 +Me.BTNDomChangeContact3.Text = "Contact 3" +Me.BTNDomChangeContact3.UseVisualStyleBackColor = false ' -'GroupBox57 +'BTNDomChangeContact2 ' -Me.GroupBox57.Controls.Add(Me.Label139) -Me.GroupBox57.Controls.Add(Me.NBTauntEdging) -Me.GroupBox57.Controls.Add(Me.LBLVtf) -Me.GroupBox57.Controls.Add(Me.LBLStf) -Me.GroupBox57.Controls.Add(Me.SliderSTF) -Me.GroupBox57.Controls.Add(Me.TauntSlider) -Me.GroupBox57.Controls.Add(Me.Label106) -Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) -Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) -Me.GroupBox57.Controls.Add(Me.Label103) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) -Me.GroupBox57.Controls.Add(Me.Label105) -Me.GroupBox57.Controls.Add(Me.Label101) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) -Me.GroupBox57.Controls.Add(Me.Label102) -Me.GroupBox57.Controls.Add(Me.Label97) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) -Me.GroupBox57.Controls.Add(Me.Label99) -Me.GroupBox57.Controls.Add(Me.Label96) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) -Me.GroupBox57.Controls.Add(Me.Label95) -Me.GroupBox57.Controls.Add(Me.Label49) -Me.GroupBox57.Controls.Add(Me.Label141) -Me.GroupBox57.Location = New System.Drawing.Point(7, 30) -Me.GroupBox57.Name = "GroupBox57" -Me.GroupBox57.Size = New System.Drawing.Size(223, 308) -Me.GroupBox57.TabIndex = 169 -Me.GroupBox57.TabStop = false -Me.GroupBox57.Text = "Tease" +Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) +Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" +Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeContact2.TabIndex = 170 +Me.BTNDomChangeContact2.Text = "Contact 2" +Me.BTNDomChangeContact2.UseVisualStyleBackColor = false ' -'Label139 +'BTNDomChangeDomme ' -Me.Label139.BackColor = System.Drawing.Color.Transparent -Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label139.ForeColor = System.Drawing.Color.Black -Me.Label139.Location = New System.Drawing.Point(175, 171) -Me.Label139.Name = "Label139" -Me.Label139.Size = New System.Drawing.Size(50, 17) -Me.Label139.TabIndex = 184 -Me.Label139.Text = "percent" -Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray +Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black +Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) +Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" +Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) +Me.BTNDomChangeDomme.TabIndex = 168 +Me.BTNDomChangeDomme.Text = "Domme" +Me.BTNDomChangeDomme.UseVisualStyleBackColor = false ' -'NBTauntEdging +'Button15 ' -Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) -Me.NBTauntEdging.Name = "NBTauntEdging" -Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) -Me.NBTauntEdging.TabIndex = 188 -Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) +Me.Button15.BackColor = System.Drawing.Color.LightGray +Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export +Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button15.FlatAppearance.BorderSize = 0 +Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button15.ForeColor = System.Drawing.Color.Black +Me.Button15.Location = New System.Drawing.Point(670, 366) +Me.Button15.Name = "Button15" +Me.Button15.Size = New System.Drawing.Size(30, 26) +Me.Button15.TabIndex = 163 +Me.Button15.UseVisualStyleBackColor = false ' -'LBLVtf +'Button16 ' -Me.LBLVtf.BackColor = System.Drawing.Color.Transparent -Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLVtf.ForeColor = System.Drawing.Color.Black -Me.LBLVtf.Location = New System.Drawing.Point(128, 261) -Me.LBLVtf.Name = "LBLVtf" -Me.LBLVtf.Size = New System.Drawing.Size(87, 17) -Me.LBLVtf.TabIndex = 187 -Me.LBLVtf.Text = "Normal" -Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Button16.BackColor = System.Drawing.Color.LightGray +Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save +Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button16.FlatAppearance.BorderSize = 0 +Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray +Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver +Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat +Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button16.ForeColor = System.Drawing.Color.Black +Me.Button16.Location = New System.Drawing.Point(667, 324) +Me.Button16.Name = "Button16" +Me.Button16.Size = New System.Drawing.Size(30, 26) +Me.Button16.TabIndex = 164 +Me.Button16.UseVisualStyleBackColor = false ' -'LBLStf +'Label121 ' -Me.LBLStf.BackColor = System.Drawing.Color.Transparent -Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLStf.ForeColor = System.Drawing.Color.Black -Me.LBLStf.Location = New System.Drawing.Point(130, 220) -Me.LBLStf.Name = "LBLStf" -Me.LBLStf.Size = New System.Drawing.Size(87, 17) -Me.LBLStf.TabIndex = 165 -Me.LBLStf.Text = "Normal" -Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label121.AutoSize = true +Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label121.ForeColor = System.Drawing.Color.Black +Me.Label121.Location = New System.Drawing.Point(669, 352) +Me.Label121.Name = "Label121" +Me.Label121.Size = New System.Drawing.Size(27, 13) +Me.Label121.TabIndex = 166 +Me.Label121.Text = "load" +Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SliderSTF +'Label122 ' -Me.SliderSTF.AutoSize = false -Me.SliderSTF.LargeChange = 1 -Me.SliderSTF.Location = New System.Drawing.Point(130, 199) -Me.SliderSTF.Maximum = 5 -Me.SliderSTF.Minimum = 1 -Me.SliderSTF.Name = "SliderSTF" -Me.SliderSTF.Size = New System.Drawing.Size(87, 25) -Me.SliderSTF.TabIndex = 163 -Me.SliderSTF.Value = 3 +Me.Label122.AutoSize = true +Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label122.ForeColor = System.Drawing.Color.Black +Me.Label122.Location = New System.Drawing.Point(667, 313) +Me.Label122.Name = "Label122" +Me.Label122.Size = New System.Drawing.Size(30, 13) +Me.Label122.TabIndex = 165 +Me.Label122.Text = "save" +Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TauntSlider +'GBGlitterD ' -Me.TauntSlider.AutoSize = false -Me.TauntSlider.LargeChange = 1 -Me.TauntSlider.Location = New System.Drawing.Point(130, 240) -Me.TauntSlider.Maximum = 9 -Me.TauntSlider.Minimum = 1 -Me.TauntSlider.Name = "TauntSlider" -Me.TauntSlider.Size = New System.Drawing.Size(87, 25) -Me.TauntSlider.TabIndex = 161 -Me.TauntSlider.Value = 4 +Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray +Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) +Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) +Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom2) +Me.GBGlitterD.Controls.Add(Me.GlitterSlider) +Me.GBGlitterD.Controls.Add(Me.CBCustom1) +Me.GBGlitterD.Controls.Add(Me.CBDaily) +Me.GBGlitterD.Controls.Add(Me.CBTrivia) +Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) +Me.GBGlitterD.Controls.Add(Me.CBEgotist) +Me.GBGlitterD.Controls.Add(Me.CBTease) +Me.GBGlitterD.Controls.Add(Me.GlitterAV) +Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) +Me.GBGlitterD.Name = "GBGlitterD" +Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) +Me.GBGlitterD.TabIndex = 162 +Me.GBGlitterD.TabStop = false +Me.GBGlitterD.Text = "Domme" ' -'Label106 +'GrbGlitterfeed ' -Me.Label106.BackColor = System.Drawing.Color.Transparent -Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label106.ForeColor = System.Drawing.Color.Black -Me.Label106.Location = New System.Drawing.Point(6, 243) -Me.Label106.Name = "Label106" -Me.Label106.Size = New System.Drawing.Size(123, 17) -Me.Label106.TabIndex = 186 -Me.Label106.Text = "Video Taunt Frequency:" -Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) +Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) +Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) +Me.GrbGlitterfeed.Name = "GrbGlitterfeed" +Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) +Me.GrbGlitterfeed.TabIndex = 168 +Me.GrbGlitterfeed.TabStop = false +Me.GrbGlitterfeed.Text = "Glitterfeeds" +' +'CBGlitterFeedScripts ' -'CBTauntCycleDD +Me.CBGlitterFeedScripts.AutoSize = true +Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent +Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts +Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) +Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) +Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" +Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) +Me.CBGlitterFeedScripts.TabIndex = 146 +Me.CBGlitterFeedScripts.Text = "Scripts" +Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false ' -Me.CBTauntCycleDD.AutoSize = true -Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black -Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) -Me.CBTauntCycleDD.Name = "CBTauntCycleDD" -Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) -Me.CBTauntCycleDD.TabIndex = 185 -Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" -Me.CBTauntCycleDD.UseVisualStyleBackColor = true +'CBGlitterFeed ' -'CBTeaseLengthDD +Me.CBGlitterFeed.AutoSize = true +Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed +Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) +Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) +Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) +Me.CBGlitterFeed.Name = "CBGlitterFeed" +Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeed.TabIndex = 145 +Me.CBGlitterFeed.Text = "On" +Me.CBGlitterFeed.UseVisualStyleBackColor = true ' -Me.CBTeaseLengthDD.AutoSize = true -Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black -Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) -Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" -Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) -Me.CBTeaseLengthDD.TabIndex = 184 -Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" -Me.CBTeaseLengthDD.UseVisualStyleBackColor = true +'CBGlitterFeedOff ' -'Label103 +Me.CBGlitterFeedOff.AutoSize = true +Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff +Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) +Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) +Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) +Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" +Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) +Me.CBGlitterFeedOff.TabIndex = 147 +Me.CBGlitterFeedOff.TabStop = true +Me.CBGlitterFeedOff.Text = "Off" +Me.CBGlitterFeedOff.UseVisualStyleBackColor = true ' -Me.Label103.BackColor = System.Drawing.Color.Transparent -Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label103.ForeColor = System.Drawing.Color.Black -Me.Label103.Location = New System.Drawing.Point(175, 117) -Me.Label103.Name = "Label103" -Me.Label103.Size = New System.Drawing.Size(50, 17) -Me.Label103.TabIndex = 183 -Me.Label103.Text = "minutes" -Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'BTNGlitterD ' -'NBTauntCycleMax +Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black +Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) +Me.BTNGlitterD.Name = "BTNGlitterD" +Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) +Me.BTNGlitterD.TabIndex = 166 +Me.BTNGlitterD.Text = "Choose Name Color" +Me.BTNGlitterD.UseVisualStyleBackColor = false ' -Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) -Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) -Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBTauntCycleMax.Name = "NBTauntCycleMax" -Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMax.TabIndex = 182 -Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) +'LBLGlitterNCDomme ' -'Label105 +Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White +Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor +Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) +Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" +Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) +Me.LBLGlitterNCDomme.TabIndex = 163 +Me.LBLGlitterNCDomme.Text = "Preview" +Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label105.BackColor = System.Drawing.Color.Transparent -Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label105.ForeColor = System.Drawing.Color.Black -Me.Label105.Location = New System.Drawing.Point(6, 117) -Me.Label105.Name = "Label105" -Me.Label105.Size = New System.Drawing.Size(123, 17) -Me.Label105.TabIndex = 181 -Me.Label105.Text = "Taunt Cycle Maximum:" -Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LBLGlitterSlider ' -'Label101 +Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider.Name = "LBLGlitterSlider" +Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider.TabIndex = 162 +Me.LBLGlitterSlider.Text = "Post Frequency" +Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label101.BackColor = System.Drawing.Color.Transparent -Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label101.ForeColor = System.Drawing.Color.Black -Me.Label101.Location = New System.Drawing.Point(175, 93) -Me.Label101.Name = "Label101" -Me.Label101.Size = New System.Drawing.Size(50, 17) -Me.Label101.TabIndex = 180 -Me.Label101.Text = "minutes" -Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBCustom2 ' -'NBTauntCycleMin +Me.CBCustom2.AutoSize = true +Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 +Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom2.ForeColor = System.Drawing.Color.Black +Me.CBCustom2.Location = New System.Drawing.Point(149, 121) +Me.CBCustom2.Name = "CBCustom2" +Me.CBCustom2.Size = New System.Drawing.Size(70, 17) +Me.CBCustom2.TabIndex = 161 +Me.CBCustom2.Text = "Custom 2" +Me.CBCustom2.UseVisualStyleBackColor = true ' -Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) -Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTauntCycleMin.Name = "NBTauntCycleMin" -Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMin.TabIndex = 179 -Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) +'GlitterSlider ' -'Label102 +Me.GlitterSlider.AutoSize = false +Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider.LargeChange = 1 +Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider.Maximum = 9 +Me.GlitterSlider.Minimum = 1 +Me.GlitterSlider.Name = "GlitterSlider" +Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider.TabIndex = 160 +Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider ' -Me.Label102.BackColor = System.Drawing.Color.Transparent -Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label102.ForeColor = System.Drawing.Color.Black -Me.Label102.Location = New System.Drawing.Point(6, 93) -Me.Label102.Name = "Label102" -Me.Label102.Size = New System.Drawing.Size(123, 17) -Me.Label102.TabIndex = 178 -Me.Label102.Text = "Taunt Cycle Minimum:" -Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBCustom1 ' -'Label97 +Me.CBCustom1.AutoSize = true +Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 +Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom1.ForeColor = System.Drawing.Color.Black +Me.CBCustom1.Location = New System.Drawing.Point(149, 98) +Me.CBCustom1.Name = "CBCustom1" +Me.CBCustom1.Size = New System.Drawing.Size(70, 17) +Me.CBCustom1.TabIndex = 157 +Me.CBCustom1.Text = "Custom 1" +Me.CBCustom1.UseVisualStyleBackColor = true ' -Me.Label97.BackColor = System.Drawing.Color.Transparent -Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label97.ForeColor = System.Drawing.Color.Black -Me.Label97.Location = New System.Drawing.Point(175, 46) -Me.Label97.Name = "Label97" -Me.Label97.Size = New System.Drawing.Size(50, 17) -Me.Label97.TabIndex = 177 -Me.Label97.Text = "minutes" -Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBDaily ' -'NBTeaseLengthMax +Me.CBDaily.AutoSize = true +Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily +Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBDaily.ForeColor = System.Drawing.Color.Black +Me.CBDaily.Location = New System.Drawing.Point(79, 121) +Me.CBDaily.Name = "CBDaily" +Me.CBDaily.Size = New System.Drawing.Size(49, 17) +Me.CBDaily.TabIndex = 156 +Me.CBDaily.Text = "Daily" +Me.CBDaily.UseVisualStyleBackColor = true ' -Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) -Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {1440, 0, 0, 0}) -Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" -Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMax.TabIndex = 176 -Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +'CBTrivia ' -'Label99 +Me.CBTrivia.AutoSize = true +Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia +Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTrivia.ForeColor = System.Drawing.Color.Black +Me.CBTrivia.Location = New System.Drawing.Point(79, 98) +Me.CBTrivia.Name = "CBTrivia" +Me.CBTrivia.Size = New System.Drawing.Size(52, 17) +Me.CBTrivia.TabIndex = 155 +Me.CBTrivia.Text = "Trivia" +Me.CBTrivia.UseVisualStyleBackColor = true ' -Me.Label99.BackColor = System.Drawing.Color.Transparent -Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label99.ForeColor = System.Drawing.Color.Black -Me.Label99.Location = New System.Drawing.Point(6, 46) -Me.Label99.Name = "Label99" -Me.Label99.Size = New System.Drawing.Size(123, 17) -Me.Label99.TabIndex = 175 -Me.Label99.Text = "Tease Length Maximum:" -Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TBGlitterShortName ' -'Label96 +Me.TBGlitterShortName.BackColor = System.Drawing.Color.White +Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black +Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) +Me.TBGlitterShortName.Name = "TBGlitterShortName" +Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) +Me.TBGlitterShortName.TabIndex = 49 +Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN +Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.Label96.BackColor = System.Drawing.Color.Transparent -Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label96.ForeColor = System.Drawing.Color.Black -Me.Label96.Location = New System.Drawing.Point(175, 20) -Me.Label96.Name = "Label96" -Me.Label96.Size = New System.Drawing.Size(50, 17) -Me.Label96.TabIndex = 174 -Me.Label96.Text = "minutes" -Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'CBEgotist +' +Me.CBEgotist.AutoSize = true +Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist +Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBEgotist.ForeColor = System.Drawing.Color.Black +Me.CBEgotist.Location = New System.Drawing.Point(9, 121) +Me.CBEgotist.Name = "CBEgotist" +Me.CBEgotist.Size = New System.Drawing.Size(58, 17) +Me.CBEgotist.TabIndex = 153 +Me.CBEgotist.Text = "Egotist" +Me.CBEgotist.UseVisualStyleBackColor = true ' -'NBTeaseLengthMin +'CBTease ' -Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) -Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) -Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" -Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMin.TabIndex = 169 -Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) +Me.CBTease.AutoSize = true +Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease +Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBTease.ForeColor = System.Drawing.Color.Black +Me.CBTease.Location = New System.Drawing.Point(9, 98) +Me.CBTease.Name = "CBTease" +Me.CBTease.Size = New System.Drawing.Size(56, 17) +Me.CBTease.TabIndex = 152 +Me.CBTease.Text = "Tease" +Me.CBTease.UseVisualStyleBackColor = true ' -'Label95 +'GlitterAV ' -Me.Label95.BackColor = System.Drawing.Color.Transparent -Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label95.ForeColor = System.Drawing.Color.Black -Me.Label95.Location = New System.Drawing.Point(6, 20) -Me.Label95.Name = "Label95" -Me.Label95.Size = New System.Drawing.Size(123, 17) -Me.Label95.TabIndex = 166 -Me.Label95.Text = "Tease Length Minimum:" -Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV.Name = "GlitterAV" +Me.GlitterAV.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV.TabIndex = 149 +Me.GlitterAV.TabStop = false ' -'Label49 +'GBGlitter1 ' -Me.Label49.BackColor = System.Drawing.Color.Transparent -Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label49.ForeColor = System.Drawing.Color.Black -Me.Label49.Location = New System.Drawing.Point(6, 207) -Me.Label49.Name = "Label49" -Me.Label49.Size = New System.Drawing.Size(132, 17) -Me.Label49.TabIndex = 164 -Me.Label49.Text = "Stroke Taunt Frequency:" -Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter1.Controls.Add(Me.Label167) +Me.GBGlitter1.Controls.Add(Me.G1Honorific) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) +Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) +Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) +Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) +Me.GBGlitter1.Controls.Add(Me.CBGlitter1) +Me.GBGlitter1.Controls.Add(Me.TBGlitter1) +Me.GBGlitter1.Controls.Add(Me.GlitterAV1) +Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) +Me.GBGlitter1.Name = "GBGlitter1" +Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter1.TabIndex = 161 +Me.GBGlitter1.TabStop = false +Me.GBGlitter1.Text = "Contact 1" ' -'Label141 +'Label167 ' -Me.Label141.BackColor = System.Drawing.Color.Transparent -Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label141.ForeColor = System.Drawing.Color.Black -Me.Label141.Location = New System.Drawing.Point(6, 163) -Me.Label141.Name = "Label141" -Me.Label141.Size = New System.Drawing.Size(141, 32) -Me.Label141.TabIndex = 189 -Me.Label141.Text = "Edging Ends Taunts:" -Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label167.BackColor = System.Drawing.Color.Transparent +Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label167.ForeColor = System.Drawing.Color.Black +Me.Label167.Location = New System.Drawing.Point(220, 15) +Me.Label167.Name = "Label167" +Me.Label167.Size = New System.Drawing.Size(114, 19) +Me.Label167.TabIndex = 182 +Me.Label167.Text = "Contact Honorific" +Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GBRangeRuinChance +'G1Honorific ' -Me.GBRangeRuinChance.Controls.Add(Me.Label90) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) -Me.GBRangeRuinChance.Controls.Add(Me.Label91) -Me.GBRangeRuinChance.Controls.Add(Me.Label92) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) -Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) -Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) -Me.GBRangeRuinChance.Name = "GBRangeRuinChance" -Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeRuinChance.TabIndex = 168 -Me.GBRangeRuinChance.TabStop = false -Me.GBRangeRuinChance.Text = "Ruin Chance" +Me.G1Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G1Honorific.Location = New System.Drawing.Point(220, 34) +Me.G1Honorific.Name = "G1Honorific" +Me.G1Honorific.Size = New System.Drawing.Size(116, 23) +Me.G1Honorific.TabIndex = 0 +Me.G1Honorific.Text = "Mistress" +Me.G1Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label90 +'BtnContact1ImageDirClear ' -Me.Label90.BackColor = System.Drawing.Color.Transparent -Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label90.ForeColor = System.Drawing.Color.Black -Me.Label90.Location = New System.Drawing.Point(6, 94) -Me.Label90.Name = "Label90" -Me.Label90.Size = New System.Drawing.Size(83, 17) -Me.Label90.TabIndex = 173 -Me.Label90.Text = "Rarely Ruins:" -Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" +Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact1ImageDirClear.TabIndex = 181 +Me.BtnContact1ImageDirClear.Text = "Clear" +Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false ' -'NBRuinSometimes +'BtnContact1ImageDir ' -Me.NBRuinSometimes.Enabled = false -Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinSometimes.Name = "NBRuinSometimes" -Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBRuinSometimes.TabIndex = 169 -Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" +Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact1ImageDir.TabIndex = 177 +Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" +Me.BtnContact1ImageDir.UseVisualStyleBackColor = false ' -'Label91 +'TbxContact1ImageDir ' -Me.Label91.BackColor = System.Drawing.Color.Transparent -Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label91.ForeColor = System.Drawing.Color.Black -Me.Label91.Location = New System.Drawing.Point(6, 68) -Me.Label91.Name = "Label91" -Me.Label91.Size = New System.Drawing.Size(102, 17) -Me.Label91.TabIndex = 172 -Me.Label91.Text = "Sometimes Ruins:" -Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" +Me.TbxContact1ImageDir.ReadOnly = true +Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact1ImageDir.TabIndex = 176 +Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir ' -'Label92 +'BTNGlitter1 ' -Me.Label92.BackColor = System.Drawing.Color.Transparent -Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label92.ForeColor = System.Drawing.Color.Black -Me.Label92.Location = New System.Drawing.Point(6, 42) -Me.Label92.Name = "Label92" -Me.Label92.Size = New System.Drawing.Size(72, 17) -Me.Label92.TabIndex = 171 -Me.Label92.Text = "Often Ruins:" -Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter1.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter1.Name = "BTNGlitter1" +Me.BTNGlitter1.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter1.TabIndex = 175 +Me.BTNGlitter1.Text = "Choose Name Color" +Me.BTNGlitter1.UseVisualStyleBackColor = false ' -'NBRuinRarely +'LBLGlitterNC1 ' -Me.NBRuinRarely.Enabled = false -Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) -Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinRarely.Name = "NBRuinRarely" -Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) -Me.NBRuinRarely.TabIndex = 170 -Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color +Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC1.Name = "LBLGlitterNC1" +Me.LBLGlitterNC1.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC1.TabIndex = 166 +Me.LBLGlitterNC1.Text = "Preview" +Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'NBRuinOften +'LBLGlitterSlider1 ' -Me.NBRuinOften.Enabled = false -Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) -Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinOften.Name = "NBRuinOften" -Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) -Me.NBRuinOften.TabIndex = 168 -Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" +Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider1.TabIndex = 163 +Me.LBLGlitterSlider1.Text = "Response Frequency" +Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBRangeRuin +'GlitterSlider1 ' -Me.CBRangeRuin.AutoSize = true -Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black -Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) -Me.CBRangeRuin.Name = "CBRangeRuin" -Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) -Me.CBRangeRuin.TabIndex = 159 -Me.CBRangeRuin.Text = "Domme Decide" -Me.CBRangeRuin.UseVisualStyleBackColor = true +Me.GlitterSlider1.AutoSize = false +Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider1.LargeChange = 1 +Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider1.Maximum = 9 +Me.GlitterSlider1.Minimum = 1 +Me.GlitterSlider1.Name = "GlitterSlider1" +Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider1.TabIndex = 161 +Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider +' +'CBGlitter1 ' -'GroupBox17 +Me.CBGlitter1.AutoSize = true +Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 +Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter1.ForeColor = System.Drawing.Color.Black +Me.CBGlitter1.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter1.Name = "CBGlitter1" +Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter1.TabIndex = 151 +Me.CBGlitter1.Text = "Enable This Contact" +Me.CBGlitter1.UseVisualStyleBackColor = true ' -Me.GroupBox17.Controls.Add(Me.GroupBox19) -Me.GroupBox17.Controls.Add(Me.GroupBox18) -Me.GroupBox17.Location = New System.Drawing.Point(408, 91) -Me.GroupBox17.Name = "GroupBox17" -Me.GroupBox17.Size = New System.Drawing.Size(291, 190) -Me.GroupBox17.TabIndex = 0 -Me.GroupBox17.TabStop = false -Me.GroupBox17.Text = "Video Teases" +'TBGlitter1 ' -'GroupBox19 +Me.TBGlitter1.BackColor = System.Drawing.Color.White +Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter1.ForeColor = System.Drawing.Color.Black +Me.TBGlitter1.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter1.Name = "TBGlitter1" +Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter1.TabIndex = 49 +Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 +Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.GroupBox19.Controls.Add(Me.Label110) -Me.GroupBox19.Controls.Add(Me.Label111) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) -Me.GroupBox19.Controls.Add(Me.NBRedLightMax) -Me.GroupBox19.Controls.Add(Me.Label26) -Me.GroupBox19.Controls.Add(Me.NBRedLightMin) -Me.GroupBox19.Controls.Add(Me.Label28) -Me.GroupBox19.Controls.Add(Me.Label27) -Me.GroupBox19.Controls.Add(Me.Label29) -Me.GroupBox19.Location = New System.Drawing.Point(6, 110) -Me.GroupBox19.Name = "GroupBox19" -Me.GroupBox19.Size = New System.Drawing.Size(279, 66) -Me.GroupBox19.TabIndex = 2 -Me.GroupBox19.TabStop = false -Me.GroupBox19.Text = "Red Light, Green Light" +'GlitterAV1 ' -'Label110 +Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV1.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV1.Name = "GlitterAV1" +Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV1.TabIndex = 149 +Me.GlitterAV1.TabStop = false ' -Me.Label110.BackColor = System.Drawing.Color.Transparent -Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label110.ForeColor = System.Drawing.Color.Black -Me.Label110.Location = New System.Drawing.Point(227, 39) -Me.Label110.Name = "Label110" -Me.Label110.Size = New System.Drawing.Size(50, 17) -Me.Label110.TabIndex = 181 -Me.Label110.Text = "seconds" -Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'GBGlitter3 ' -'Label111 +Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter3.Controls.Add(Me.Label168) +Me.GBGlitter3.Controls.Add(Me.G3Honorific) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) +Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) +Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) +Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) +Me.GBGlitter3.Controls.Add(Me.CBGlitter3) +Me.GBGlitter3.Controls.Add(Me.TBGlitter3) +Me.GBGlitter3.Controls.Add(Me.GlitterAV3) +Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) +Me.GBGlitter3.Name = "GBGlitter3" +Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter3.TabIndex = 160 +Me.GBGlitter3.TabStop = false +Me.GBGlitter3.Text = "Contact 3" ' -Me.Label111.BackColor = System.Drawing.Color.Transparent -Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label111.ForeColor = System.Drawing.Color.Black -Me.Label111.Location = New System.Drawing.Point(227, 16) -Me.Label111.Name = "Label111" -Me.Label111.Size = New System.Drawing.Size(50, 17) -Me.Label111.TabIndex = 180 -Me.Label111.Text = "seconds" -Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'Label168 ' -'NBGreenLightMax +Me.Label168.BackColor = System.Drawing.Color.Transparent +Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label168.ForeColor = System.Drawing.Color.Black +Me.Label168.Location = New System.Drawing.Point(220, 15) +Me.Label168.Name = "Label168" +Me.Label168.Size = New System.Drawing.Size(114, 19) +Me.Label168.TabIndex = 181 +Me.Label168.Text = "Contact Honorific" +Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) -Me.NBGreenLightMax.Name = "NBGreenLightMax" -Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMax.TabIndex = 156 -Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) +'G3Honorific ' -'NBGreenLightMin +Me.G3Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G3Honorific.Location = New System.Drawing.Point(220, 34) +Me.G3Honorific.Name = "G3Honorific" +Me.G3Honorific.Size = New System.Drawing.Size(115, 23) +Me.G3Honorific.TabIndex = 0 +Me.G3Honorific.Text = "Mistress" +Me.G3Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) -Me.NBGreenLightMin.Name = "NBGreenLightMin" -Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMin.TabIndex = 155 -Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) +'BtnContact3ImageDirClear ' -'NBRedLightMax +Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" +Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact3ImageDirClear.TabIndex = 180 +Me.BtnContact3ImageDirClear.Text = "Clear" +Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false ' -Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) -Me.NBRedLightMax.Name = "NBRedLightMax" -Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMax.TabIndex = 152 -Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) +'BtnContact3ImageDir ' -'Label26 +Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" +Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact3ImageDir.TabIndex = 179 +Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" +Me.BtnContact3ImageDir.UseVisualStyleBackColor = false ' -Me.Label26.BackColor = System.Drawing.Color.Transparent -Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label26.ForeColor = System.Drawing.Color.Black -Me.Label26.Location = New System.Drawing.Point(161, 38) -Me.Label26.Name = "Label26" -Me.Label26.Size = New System.Drawing.Size(10, 17) -Me.Label26.TabIndex = 154 -Me.Label26.Text = "-" -Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'TbxContact3ImageDir ' -'NBRedLightMin +Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" +Me.TbxContact3ImageDir.ReadOnly = true +Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact3ImageDir.TabIndex = 178 +Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir ' -Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) -Me.NBRedLightMin.Name = "NBRedLightMin" -Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMin.TabIndex = 151 -Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) +'BTNGlitter3 ' -'Label28 +Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter3.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter3.Name = "BTNGlitter3" +Me.BTNGlitter3.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter3.TabIndex = 175 +Me.BTNGlitter3.Text = "Choose Name Color" +Me.BTNGlitter3.UseVisualStyleBackColor = false ' -Me.Label28.BackColor = System.Drawing.Color.Transparent -Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label28.ForeColor = System.Drawing.Color.Black -Me.Label28.Location = New System.Drawing.Point(161, 15) -Me.Label28.Name = "Label28" -Me.Label28.Size = New System.Drawing.Size(10, 17) -Me.Label28.TabIndex = 150 -Me.Label28.Text = "-" -Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LBLGlitterNC3 ' -'Label27 +Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color +Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC3.Name = "LBLGlitterNC3" +Me.LBLGlitterNC3.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC3.TabIndex = 166 +Me.LBLGlitterNC3.Text = "Preview" +Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label27.BackColor = System.Drawing.Color.Transparent -Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label27.ForeColor = System.Drawing.Color.Black -Me.Label27.Location = New System.Drawing.Point(6, 39) -Me.Label27.Name = "Label27" -Me.Label27.Size = New System.Drawing.Size(151, 17) -Me.Label27.TabIndex = 153 -Me.Label27.Text = "Green Light Time:" -Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'LBLGlitterSlider3 ' -'Label29 +Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" +Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider3.TabIndex = 163 +Me.LBLGlitterSlider3.Text = "Response Frequency" +Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label29.BackColor = System.Drawing.Color.Transparent -Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label29.ForeColor = System.Drawing.Color.Black -Me.Label29.Location = New System.Drawing.Point(6, 16) -Me.Label29.Name = "Label29" -Me.Label29.Size = New System.Drawing.Size(151, 17) -Me.Label29.TabIndex = 149 -Me.Label29.Text = "Red Light Time:" -Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +'GlitterSlider3 +' +Me.GlitterSlider3.AutoSize = false +Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider3.LargeChange = 1 +Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider3.Maximum = 9 +Me.GlitterSlider3.Minimum = 1 +Me.GlitterSlider3.Name = "GlitterSlider3" +Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider3.TabIndex = 161 +Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider ' -'GroupBox18 +'CBGlitter3 ' -Me.GroupBox18.Controls.Add(Me.Label108) -Me.GroupBox18.Controls.Add(Me.Label109) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) -Me.GroupBox18.Controls.Add(Me.CBCensorConstant) -Me.GroupBox18.Controls.Add(Me.Label25) -Me.GroupBox18.Controls.Add(Me.Label20) -Me.GroupBox18.Controls.Add(Me.Label19) -Me.GroupBox18.Controls.Add(Me.Label24) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) -Me.GroupBox18.Location = New System.Drawing.Point(6, 16) -Me.GroupBox18.Name = "GroupBox18" -Me.GroupBox18.Size = New System.Drawing.Size(279, 88) -Me.GroupBox18.TabIndex = 1 -Me.GroupBox18.TabStop = false -Me.GroupBox18.Text = "Censorship Sucks" +Me.CBGlitter3.AutoSize = true +Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 +Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter3.ForeColor = System.Drawing.Color.Black +Me.CBGlitter3.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter3.Name = "CBGlitter3" +Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter3.TabIndex = 151 +Me.CBGlitter3.Text = "Enable This Contact" +Me.CBGlitter3.UseVisualStyleBackColor = true ' -'Label108 +'TBGlitter3 ' -Me.Label108.BackColor = System.Drawing.Color.Transparent -Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label108.ForeColor = System.Drawing.Color.Black -Me.Label108.Location = New System.Drawing.Point(227, 39) -Me.Label108.Name = "Label108" -Me.Label108.Size = New System.Drawing.Size(50, 17) -Me.Label108.TabIndex = 179 -Me.Label108.Text = "seconds" -Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TBGlitter3.BackColor = System.Drawing.Color.White +Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter3.ForeColor = System.Drawing.Color.Black +Me.TBGlitter3.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter3.Name = "TBGlitter3" +Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter3.TabIndex = 49 +Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 +Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label109 +'GlitterAV3 ' -Me.Label109.BackColor = System.Drawing.Color.Transparent -Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label109.ForeColor = System.Drawing.Color.Black -Me.Label109.Location = New System.Drawing.Point(227, 16) -Me.Label109.Name = "Label109" -Me.Label109.Size = New System.Drawing.Size(50, 17) -Me.Label109.TabIndex = 178 -Me.Label109.Text = "seconds" -Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV3.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV3.Name = "GlitterAV3" +Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV3.TabIndex = 149 +Me.GlitterAV3.TabStop = false ' -'Label25 +'GBGlitter2 ' -Me.Label25.BackColor = System.Drawing.Color.Transparent -Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label25.ForeColor = System.Drawing.Color.Black -Me.Label25.Location = New System.Drawing.Point(161, 15) -Me.Label25.Name = "Label25" -Me.Label25.Size = New System.Drawing.Size(10, 17) -Me.Label25.TabIndex = 150 -Me.Label25.Text = "-" -Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray +Me.GBGlitter2.Controls.Add(Me.Label169) +Me.GBGlitter2.Controls.Add(Me.G2Honorific) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) +Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) +Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) +Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) +Me.GBGlitter2.Controls.Add(Me.CBGlitter2) +Me.GBGlitter2.Controls.Add(Me.TBGlitter2) +Me.GBGlitter2.Controls.Add(Me.GlitterAV2) +Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) +Me.GBGlitter2.Name = "GBGlitter2" +Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) +Me.GBGlitter2.TabIndex = 151 +Me.GBGlitter2.TabStop = false +Me.GBGlitter2.Text = "Contact 2" ' -'Label20 +'Label169 ' -Me.Label20.BackColor = System.Drawing.Color.Transparent -Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label20.ForeColor = System.Drawing.Color.Black -Me.Label20.Location = New System.Drawing.Point(6, 39) -Me.Label20.Name = "Label20" -Me.Label20.Size = New System.Drawing.Size(110, 17) -Me.Label20.TabIndex = 153 -Me.Label20.Text = "Censor Bar Hidden:" -Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label169.BackColor = System.Drawing.Color.Transparent +Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label169.ForeColor = System.Drawing.Color.Black +Me.Label169.Location = New System.Drawing.Point(220, 15) +Me.Label169.Name = "Label169" +Me.Label169.Size = New System.Drawing.Size(114, 19) +Me.Label169.TabIndex = 182 +Me.Label169.Text = "Contact Honorific" +Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label19 +'G2Honorific ' -Me.Label19.BackColor = System.Drawing.Color.Transparent -Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label19.ForeColor = System.Drawing.Color.Black -Me.Label19.Location = New System.Drawing.Point(161, 38) -Me.Label19.Name = "Label19" -Me.Label19.Size = New System.Drawing.Size(10, 17) -Me.Label19.TabIndex = 154 -Me.Label19.Text = "-" -Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.G2Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.G2Honorific.Location = New System.Drawing.Point(220, 34) +Me.G2Honorific.Name = "G2Honorific" +Me.G2Honorific.Size = New System.Drawing.Size(115, 23) +Me.G2Honorific.TabIndex = 0 +Me.G2Honorific.Text = "Mistress" +Me.G2Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label24 +'BtnContact2ImageDirClear ' -Me.Label24.BackColor = System.Drawing.Color.Transparent -Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label24.ForeColor = System.Drawing.Color.Black -Me.Label24.Location = New System.Drawing.Point(6, 16) -Me.Label24.Name = "Label24" -Me.Label24.Size = New System.Drawing.Size(110, 17) -Me.Label24.TabIndex = 149 -Me.Label24.Text = "Censor Bar Shown:" -Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) +Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" +Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnContact2ImageDirClear.TabIndex = 181 +Me.BtnContact2ImageDirClear.Text = "Clear" +Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false ' -'GBRangeOrgasmChance +'BtnContact2ImageDir ' -Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) -Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) -Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) -Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" -Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeOrgasmChance.TabIndex = 167 -Me.GBRangeOrgasmChance.TabStop = false -Me.GBRangeOrgasmChance.Text = "Orgasm Chance" +Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) +Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" +Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) +Me.BtnContact2ImageDir.TabIndex = 179 +Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" +Me.BtnContact2ImageDir.UseVisualStyleBackColor = false ' -'Label89 +'TbxContact2ImageDir ' -Me.Label89.BackColor = System.Drawing.Color.Transparent -Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label89.ForeColor = System.Drawing.Color.Black -Me.Label89.Location = New System.Drawing.Point(6, 94) -Me.Label89.Name = "Label89" -Me.Label89.Size = New System.Drawing.Size(83, 17) -Me.Label89.TabIndex = 173 -Me.Label89.Text = "Rarely Allows:" -Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray +Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black +Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) +Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) +Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" +Me.TbxContact2ImageDir.ReadOnly = true +Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) +Me.TbxContact2ImageDir.TabIndex = 178 +Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir ' -'NBAllowSometimes +'BTNGlitter2 ' -Me.NBAllowSometimes.Enabled = false -Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowSometimes.Name = "NBAllowSometimes" -Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBAllowSometimes.TabIndex = 169 -Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) +Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray +Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black +Me.BTNGlitter2.Location = New System.Drawing.Point(78, 64) +Me.BTNGlitter2.Name = "BTNGlitter2" +Me.BTNGlitter2.Size = New System.Drawing.Size(136, 23) +Me.BTNGlitter2.TabIndex = 167 +Me.BTNGlitter2.Text = "Choose Name Color" +Me.BTNGlitter2.UseVisualStyleBackColor = false ' -'Label86 +'LBLGlitterNC2 ' -Me.Label86.BackColor = System.Drawing.Color.Transparent -Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label86.ForeColor = System.Drawing.Color.Black -Me.Label86.Location = New System.Drawing.Point(6, 68) -Me.Label86.Name = "Label86" -Me.Label86.Size = New System.Drawing.Size(102, 17) -Me.Label86.TabIndex = 172 -Me.Label86.Text = "Sometimes Allows:" -Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White +Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color +Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 64) +Me.LBLGlitterNC2.Name = "LBLGlitterNC2" +Me.LBLGlitterNC2.Size = New System.Drawing.Size(114, 23) +Me.LBLGlitterNC2.TabIndex = 166 +Me.LBLGlitterNC2.Text = "Preview" +Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'LBLGlitterSlider2 +' +Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent +Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black +Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) +Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" +Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) +Me.LBLGlitterSlider2.TabIndex = 163 +Me.LBLGlitterSlider2.Text = "Response Frequency" +Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label82 +'GlitterSlider2 ' -Me.Label82.BackColor = System.Drawing.Color.Transparent -Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label82.ForeColor = System.Drawing.Color.Black -Me.Label82.Location = New System.Drawing.Point(6, 42) -Me.Label82.Name = "Label82" -Me.Label82.Size = New System.Drawing.Size(83, 17) -Me.Label82.TabIndex = 171 -Me.Label82.Text = "Often Allows:" -Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.GlitterSlider2.AutoSize = false +Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GlitterSlider2.LargeChange = 1 +Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) +Me.GlitterSlider2.Maximum = 9 +Me.GlitterSlider2.Minimum = 1 +Me.GlitterSlider2.Name = "GlitterSlider2" +Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) +Me.GlitterSlider2.TabIndex = 161 +Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider ' -'NBAllowRarely +'CBGlitter2 ' -Me.NBAllowRarely.Enabled = false -Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) -Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowRarely.Name = "NBAllowRarely" -Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) -Me.NBAllowRarely.TabIndex = 170 -Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) +Me.CBGlitter2.AutoSize = true +Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 +Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBGlitter2.ForeColor = System.Drawing.Color.Black +Me.CBGlitter2.Location = New System.Drawing.Point(79, 15) +Me.CBGlitter2.Name = "CBGlitter2" +Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) +Me.CBGlitter2.TabIndex = 151 +Me.CBGlitter2.Text = "Enable This Contact" +Me.CBGlitter2.UseVisualStyleBackColor = true ' -'NBAllowOften +'TBGlitter2 ' -Me.NBAllowOften.Enabled = false -Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) -Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowOften.Name = "NBAllowOften" -Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) -Me.NBAllowOften.TabIndex = 168 -Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) +Me.TBGlitter2.BackColor = System.Drawing.Color.White +Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.TBGlitter2.ForeColor = System.Drawing.Color.Black +Me.TBGlitter2.Location = New System.Drawing.Point(79, 34) +Me.TBGlitter2.Name = "TBGlitter2" +Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) +Me.TBGlitter2.TabIndex = 49 +Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 +Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'CBRangeOrgasm +'GlitterAV2 ' -Me.CBRangeOrgasm.AutoSize = true -Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black -Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) -Me.CBRangeOrgasm.Name = "CBRangeOrgasm" -Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) -Me.CBRangeOrgasm.TabIndex = 159 -Me.CBRangeOrgasm.Text = "Domme Decide" -Me.CBRangeOrgasm.UseVisualStyleBackColor = true +Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GlitterAV2.Location = New System.Drawing.Point(9, 22) +Me.GlitterAV2.Name = "GlitterAV2" +Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) +Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GlitterAV2.TabIndex = 149 +Me.GlitterAV2.TabStop = false ' -'PictureBox8 +'TpGames ' -Me.PictureBox8.BackColor = System.Drawing.Color.LightGray -Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox8.Location = New System.Drawing.Point(9, 6) -Me.PictureBox8.Name = "PictureBox8" -Me.PictureBox8.Size = New System.Drawing.Size(160, 19) -Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox8.TabIndex = 166 -Me.PictureBox8.TabStop = false +Me.TpGames.BackColor = System.Drawing.Color.LightGray +Me.TpGames.Controls.Add(Me.CBIncludeGifs) +Me.TpGames.Controls.Add(Me.LblCardsSetupNote) +Me.TpGames.Controls.Add(Me.CBGameSounds) +Me.TpGames.Controls.Add(Me.GbxCardsGold) +Me.TpGames.Controls.Add(Me.GbxCardsBackground) +Me.TpGames.Controls.Add(Me.GbxCardsBronze) +Me.TpGames.Controls.Add(Me.GbxCardsSilver) +Me.TpGames.Location = New System.Drawing.Point(4, 22) +Me.TpGames.Name = "TpGames" +Me.TpGames.Padding = New System.Windows.Forms.Padding(3) +Me.TpGames.Size = New System.Drawing.Size(700, 411) +Me.TpGames.TabIndex = 1 +Me.TpGames.Text = "Games" ' -'Label38 +'CBIncludeGifs ' -Me.Label38.BackColor = System.Drawing.Color.Transparent -Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label38.ForeColor = System.Drawing.Color.Black -Me.Label38.Location = New System.Drawing.Point(7, 6) -Me.Label38.Name = "Label38" -Me.Label38.Size = New System.Drawing.Size(692, 21) -Me.Label38.TabIndex = 48 -Me.Label38.Text = "Range Settings" -Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBIncludeGifs.AutoSize = true +Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs +Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) +Me.CBIncludeGifs.Name = "CBIncludeGifs" +Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) +Me.CBIncludeGifs.TabIndex = 5 +Me.CBIncludeGifs.Text = "Match Game Includes Gifs " +Me.CBIncludeGifs.UseVisualStyleBackColor = true ' -'TabPage13 +'LblCardsSetupNote ' -Me.TabPage13.BackColor = System.Drawing.Color.Silver -Me.TabPage13.Controls.Add(Me.TabControl2) -Me.TabPage13.Location = New System.Drawing.Point(4, 22) -Me.TabPage13.Name = "TabPage13" -Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage13.Size = New System.Drawing.Size(720, 448) -Me.TabPage13.TabIndex = 13 -Me.TabPage13.Text = "Modding" +Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) +Me.LblCardsSetupNote.Name = "LblCardsSetupNote" +Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) +Me.LblCardsSetupNote.TabIndex = 4 +Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ + "!" +Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TabControl2 +'CBGameSounds ' -Me.TabControl2.Controls.Add(Me.TabPage27) -Me.TabControl2.Controls.Add(Me.TabPage14) -Me.TabControl2.Controls.Add(Me.TabPage24) -Me.TabControl2.Controls.Add(Me.TabPage8) -Me.TabControl2.Controls.Add(Me.TabPage15) -Me.TabControl2.Location = New System.Drawing.Point(6, 6) -Me.TabControl2.Name = "TabControl2" -Me.TabControl2.SelectedIndex = 0 -Me.TabControl2.Size = New System.Drawing.Size(708, 437) -Me.TabControl2.TabIndex = 0 +Me.CBGameSounds.AutoSize = true +Me.CBGameSounds.Checked = true +Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBGameSounds.ForeColor = System.Drawing.Color.Black +Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) +Me.CBGameSounds.Name = "CBGameSounds" +Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) +Me.CBGameSounds.TabIndex = 6 +Me.CBGameSounds.Text = "Play Game Sounds" +Me.CBGameSounds.UseVisualStyleBackColor = true ' -'TabPage27 +'GbxCardsGold ' -Me.TabPage27.BackColor = System.Drawing.Color.LightGray -Me.TabPage27.Controls.Add(Me.TBPlaylistSave) -Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) -Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) -Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) -Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) -Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) -Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) -Me.TabPage27.Controls.Add(Me.Button7) -Me.TabPage27.Controls.Add(Me.WBPlaylist) -Me.TabPage27.Controls.Add(Me.Label80) -Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) -Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) -Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) -Me.TabPage27.Controls.Add(Me.LBPlaylist) -Me.TabPage27.Location = New System.Drawing.Point(4, 22) -Me.TabPage27.Name = "TabPage27" -Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage27.Size = New System.Drawing.Size(700, 411) -Me.TabPage27.TabIndex = 5 -Me.TabPage27.Text = "Playlists" +Me.GbxCardsGold.Controls.Add(Me.GN6) +Me.GbxCardsGold.Controls.Add(Me.GP6) +Me.GbxCardsGold.Controls.Add(Me.GN2) +Me.GbxCardsGold.Controls.Add(Me.GP2) +Me.GbxCardsGold.Controls.Add(Me.GP5) +Me.GbxCardsGold.Controls.Add(Me.GN1) +Me.GbxCardsGold.Controls.Add(Me.GP1) +Me.GbxCardsGold.Controls.Add(Me.GN5) +Me.GbxCardsGold.Controls.Add(Me.GN3) +Me.GbxCardsGold.Controls.Add(Me.GP3) +Me.GbxCardsGold.Controls.Add(Me.GP4) +Me.GbxCardsGold.Controls.Add(Me.GN4) +Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) +Me.GbxCardsGold.Name = "GbxCardsGold" +Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) +Me.GbxCardsGold.TabIndex = 2 +Me.GbxCardsGold.TabStop = false +Me.GbxCardsGold.Text = "Gold Cards" ' -'TBPlaylistSave +'GN6 ' -Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) -Me.TBPlaylistSave.Name = "TBPlaylistSave" -Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) -Me.TBPlaylistSave.TabIndex = 203 +Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN6.Location = New System.Drawing.Point(86, 367) +Me.GN6.Name = "GN6" +Me.GN6.Size = New System.Drawing.Size(71, 20) +Me.GN6.TabIndex = 5 +Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 +Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BTNPlaylistCtrlZ +'GP6 ' -Me.BTNPlaylistCtrlZ.Enabled = false -Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) -Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" -Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistCtrlZ.TabIndex = 202 -Me.BTNPlaylistCtrlZ.Text = "Undo" -Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true +Me.GP6.BackColor = System.Drawing.Color.Silver +Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 +Me.GP6.InitialImage = Nothing +Me.GP6.Location = New System.Drawing.Point(86, 268) +Me.GP6.Name = "GP6" +Me.GP6.Size = New System.Drawing.Size(71, 93) +Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP6.TabIndex = 17 +Me.GP6.TabStop = false ' -'RadioPlaylistRegScripts +'GN2 ' -Me.RadioPlaylistRegScripts.AutoSize = true -Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) -Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" -Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) -Me.RadioPlaylistRegScripts.TabIndex = 201 -Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" -Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true +Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN2.Location = New System.Drawing.Point(86, 117) +Me.GN2.Name = "GN2" +Me.GN2.Size = New System.Drawing.Size(71, 20) +Me.GN2.TabIndex = 1 +Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 +Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'RadioPlaylistScripts +'GP2 ' -Me.RadioPlaylistScripts.AutoSize = true -Me.RadioPlaylistScripts.Checked = true -Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) -Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" -Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) -Me.RadioPlaylistScripts.TabIndex = 200 -Me.RadioPlaylistScripts.TabStop = true -Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" -Me.RadioPlaylistScripts.UseVisualStyleBackColor = true +Me.GP2.BackColor = System.Drawing.Color.Silver +Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 +Me.GP2.InitialImage = Nothing +Me.GP2.Location = New System.Drawing.Point(86, 17) +Me.GP2.Name = "GP2" +Me.GP2.Size = New System.Drawing.Size(71, 94) +Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP2.TabIndex = 9 +Me.GP2.TabStop = false ' -'BTNPlaylistEnd +'GP5 ' -Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray -Me.BTNPlaylistEnd.Enabled = false -Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black -Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) -Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" -Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistEnd.TabIndex = 199 -Me.BTNPlaylistEnd.Text = "End" -Me.BTNPlaylistEnd.UseVisualStyleBackColor = false +Me.GP5.BackColor = System.Drawing.Color.Silver +Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 +Me.GP5.InitialImage = Nothing +Me.GP5.Location = New System.Drawing.Point(9, 268) +Me.GP5.Name = "GP5" +Me.GP5.Size = New System.Drawing.Size(71, 93) +Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP5.TabIndex = 15 +Me.GP5.TabStop = false ' -'BTNPlaylistClearAll +'GN1 ' -Me.BTNPlaylistClearAll.Enabled = false -Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) -Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" -Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) -Me.BTNPlaylistClearAll.TabIndex = 198 -Me.BTNPlaylistClearAll.Text = "Clear All" -Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true +Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN1.Location = New System.Drawing.Point(9, 117) +Me.GN1.Name = "GN1" +Me.GN1.Size = New System.Drawing.Size(71, 20) +Me.GN1.TabIndex = 0 +Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 +Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BTNPlaylistSave +'GP1 ' -Me.BTNPlaylistSave.Enabled = false -Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) -Me.BTNPlaylistSave.Name = "BTNPlaylistSave" -Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistSave.TabIndex = 197 -Me.BTNPlaylistSave.Text = "Save" -Me.BTNPlaylistSave.UseVisualStyleBackColor = true +Me.GP1.BackColor = System.Drawing.Color.Silver +Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 +Me.GP1.InitialImage = Nothing +Me.GP1.Location = New System.Drawing.Point(9, 17) +Me.GP1.Name = "GP1" +Me.GP1.Size = New System.Drawing.Size(71, 94) +Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP1.TabIndex = 0 +Me.GP1.TabStop = false ' -'Button7 +'GN5 ' -Me.Button7.Location = New System.Drawing.Point(213, 21) -Me.Button7.Name = "Button7" -Me.Button7.Size = New System.Drawing.Size(78, 23) -Me.Button7.TabIndex = 196 -Me.Button7.Text = "Add Random" -Me.Button7.UseVisualStyleBackColor = true +Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN5.Location = New System.Drawing.Point(9, 367) +Me.GN5.Name = "GN5" +Me.GN5.Size = New System.Drawing.Size(71, 20) +Me.GN5.TabIndex = 4 +Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 +Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'WBPlaylist +'GN3 ' -Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) -Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) -Me.WBPlaylist.Name = "WBPlaylist" -Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) -Me.WBPlaylist.TabIndex = 195 +Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN3.Location = New System.Drawing.Point(9, 242) +Me.GN3.Name = "GN3" +Me.GN3.Size = New System.Drawing.Size(71, 20) +Me.GN3.TabIndex = 2 +Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 +Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label80 +'GP3 ' -Me.Label80.AutoSize = true -Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label80.Location = New System.Drawing.Point(410, 27) -Me.Label80.Name = "Label80" -Me.Label80.Size = New System.Drawing.Size(47, 13) -Me.Label80.TabIndex = 194 -Me.Label80.Text = "Playlist" +Me.GP3.BackColor = System.Drawing.Color.Silver +Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 +Me.GP3.InitialImage = Nothing +Me.GP3.Location = New System.Drawing.Point(9, 143) +Me.GP3.Name = "GP3" +Me.GP3.Size = New System.Drawing.Size(71, 93) +Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP3.TabIndex = 11 +Me.GP3.TabStop = false ' -'LBLPlaylIstLink +'GP4 ' -Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylIstLink.Enabled = false -Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) -Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" -Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) -Me.LBLPlaylIstLink.TabIndex = 193 -Me.LBLPlaylIstLink.Text = "Link" -Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GP4.BackColor = System.Drawing.Color.Silver +Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 +Me.GP4.InitialImage = Nothing +Me.GP4.Location = New System.Drawing.Point(86, 143) +Me.GP4.Name = "GP4" +Me.GP4.Size = New System.Drawing.Size(71, 93) +Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.GP4.TabIndex = 13 +Me.GP4.TabStop = false ' -'LBLPlaylistModule +'GN4 ' -Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylistModule.Enabled = false -Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) -Me.LBLPlaylistModule.Name = "LBLPlaylistModule" -Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) -Me.LBLPlaylistModule.TabIndex = 192 -Me.LBLPlaylistModule.Text = "Module" -Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.GN4.Location = New System.Drawing.Point(86, 242) +Me.GN4.Name = "GN4" +Me.GN4.Size = New System.Drawing.Size(71, 20) +Me.GN4.TabIndex = 3 +Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 +Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLPLaylistStart +'GbxCardsBackground ' -Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green -Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White -Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) -Me.LBLPLaylistStart.Name = "LBLPLaylistStart" -Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) -Me.LBLPLaylistStart.TabIndex = 190 -Me.LBLPLaylistStart.Text = "Start" -Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GbxCardsBackground.Controls.Add(Me.CardBack) +Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) +Me.GbxCardsBackground.Name = "GbxCardsBackground" +Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) +Me.GbxCardsBackground.TabIndex = 3 +Me.GbxCardsBackground.TabStop = false +Me.GbxCardsBackground.Text = "Card Background" ' -'LBPlaylist +'CardBack ' -Me.LBPlaylist.AllowDrop = true -Me.LBPlaylist.FormattingEnabled = true -Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) -Me.LBPlaylist.Name = "LBPlaylist" -Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) -Me.LBPlaylist.TabIndex = 189 +Me.CardBack.BackColor = System.Drawing.Color.Silver +Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack +Me.CardBack.InitialImage = Nothing +Me.CardBack.Location = New System.Drawing.Point(17, 28) +Me.CardBack.Name = "CardBack" +Me.CardBack.Size = New System.Drawing.Size(138, 179) +Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.CardBack.TabIndex = 18 +Me.CardBack.TabStop = false ' -'TabPage14 +'GbxCardsBronze ' -Me.TabPage14.BackColor = System.Drawing.Color.LightGray -Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) -Me.TabPage14.Controls.Add(Me.Label88) -Me.TabPage14.Controls.Add(Me.TBKeywordPreview) -Me.TabPage14.Controls.Add(Me.Button37) -Me.TabPage14.Controls.Add(Me.Button50) -Me.TabPage14.Controls.Add(Me.Button22) -Me.TabPage14.Controls.Add(Me.TBKeyWords) -Me.TabPage14.Controls.Add(Me.LBKeyWords) -Me.TabPage14.Controls.Add(Me.RTBKeyWords) -Me.TabPage14.Location = New System.Drawing.Point(4, 22) -Me.TabPage14.Name = "TabPage14" -Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage14.Size = New System.Drawing.Size(700, 411) -Me.TabPage14.TabIndex = 0 -Me.TabPage14.Text = "Keywords" +Me.GbxCardsBronze.Controls.Add(Me.BN6) +Me.GbxCardsBronze.Controls.Add(Me.BN3) +Me.GbxCardsBronze.Controls.Add(Me.BP3) +Me.GbxCardsBronze.Controls.Add(Me.BP6) +Me.GbxCardsBronze.Controls.Add(Me.BN2) +Me.GbxCardsBronze.Controls.Add(Me.BN5) +Me.GbxCardsBronze.Controls.Add(Me.BP5) +Me.GbxCardsBronze.Controls.Add(Me.BP2) +Me.GbxCardsBronze.Controls.Add(Me.BN1) +Me.GbxCardsBronze.Controls.Add(Me.BN4) +Me.GbxCardsBronze.Controls.Add(Me.BP4) +Me.GbxCardsBronze.Controls.Add(Me.BP1) +Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) +Me.GbxCardsBronze.Name = "GbxCardsBronze" +Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsBronze.TabIndex = 0 +Me.GbxCardsBronze.TabStop = false +Me.GbxCardsBronze.Text = "Bronze Cards" +' +'BN6 +' +Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN6.Location = New System.Drawing.Point(86, 368) +Me.BN6.Name = "BN6" +Me.BN6.Size = New System.Drawing.Size(71, 20) +Me.BN6.TabIndex = 5 +Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 +Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBLKeywordPreview +'BN3 ' -Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) -Me.LBLKeywordPreview.Name = "LBLKeywordPreview" -Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) -Me.LBLKeywordPreview.TabIndex = 174 -Me.LBLKeywordPreview.Text = "Get Preview Here" -Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN3.Location = New System.Drawing.Point(9, 243) +Me.BN3.Name = "BN3" +Me.BN3.Size = New System.Drawing.Size(71, 20) +Me.BN3.TabIndex = 2 +Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 +Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label88 +'BP3 ' -Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label88.Location = New System.Drawing.Point(3, 358) -Me.Label88.Name = "Label88" -Me.Label88.Size = New System.Drawing.Size(194, 53) -Me.Label88.TabIndex = 173 -Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ - " the domme return." -Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BP3.BackColor = System.Drawing.Color.Silver +Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 +Me.BP3.InitialImage = Nothing +Me.BP3.Location = New System.Drawing.Point(9, 144) +Me.BP3.Name = "BP3" +Me.BP3.Size = New System.Drawing.Size(71, 93) +Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP3.TabIndex = 11 +Me.BP3.TabStop = false ' -'TBKeywordPreview +'BP6 ' -Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) -Me.TBKeywordPreview.Name = "TBKeywordPreview" -Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) -Me.TBKeywordPreview.TabIndex = 172 -Me.TBKeywordPreview.Text = "Enter Line Here" -Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BP6.BackColor = System.Drawing.Color.Silver +Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 +Me.BP6.InitialImage = Nothing +Me.BP6.Location = New System.Drawing.Point(86, 269) +Me.BP6.Name = "BP6" +Me.BP6.Size = New System.Drawing.Size(71, 93) +Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP6.TabIndex = 17 +Me.BP6.TabStop = false ' -'Button37 +'BN2 ' -Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button37.Location = New System.Drawing.Point(638, 358) -Me.Button37.Name = "Button37" -Me.Button37.Size = New System.Drawing.Size(47, 50) -Me.Button37.TabIndex = 171 -Me.Button37.Text = "#" -Me.Button37.UseVisualStyleBackColor = true +Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN2.Location = New System.Drawing.Point(86, 118) +Me.BN2.Name = "BN2" +Me.BN2.Size = New System.Drawing.Size(71, 20) +Me.BN2.TabIndex = 1 +Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 +Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Button50 +'BN5 ' -Me.Button50.Location = New System.Drawing.Point(6, 10) -Me.Button50.Name = "Button50" -Me.Button50.Size = New System.Drawing.Size(194, 23) -Me.Button50.TabIndex = 169 -Me.Button50.Text = "Refresh and Clear Keyword List" -Me.Button50.UseVisualStyleBackColor = true +Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN5.Location = New System.Drawing.Point(9, 368) +Me.BN5.Name = "BN5" +Me.BN5.Size = New System.Drawing.Size(71, 20) +Me.BN5.TabIndex = 4 +Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 +Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Button22 +'BP5 ' -Me.Button22.Location = New System.Drawing.Point(638, 10) -Me.Button22.Name = "Button22" -Me.Button22.Size = New System.Drawing.Size(47, 23) -Me.Button22.TabIndex = 167 -Me.Button22.Text = "Save" -Me.Button22.UseVisualStyleBackColor = true +Me.BP5.BackColor = System.Drawing.Color.Silver +Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 +Me.BP5.InitialImage = Nothing +Me.BP5.Location = New System.Drawing.Point(9, 269) +Me.BP5.Name = "BP5" +Me.BP5.Size = New System.Drawing.Size(71, 93) +Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP5.TabIndex = 15 +Me.BP5.TabStop = false ' -'TBKeyWords +'BP2 ' -Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) -Me.TBKeyWords.Name = "TBKeyWords" -Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) -Me.TBKeyWords.TabIndex = 166 +Me.BP2.BackColor = System.Drawing.Color.Silver +Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 +Me.BP2.InitialImage = Nothing +Me.BP2.Location = New System.Drawing.Point(86, 19) +Me.BP2.Name = "BP2" +Me.BP2.Size = New System.Drawing.Size(71, 93) +Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP2.TabIndex = 9 +Me.BP2.TabStop = false ' -'LBKeyWords +'BN1 ' -Me.LBKeyWords.FormattingEnabled = true -Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) -Me.LBKeyWords.Name = "LBKeyWords" -Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) -Me.LBKeyWords.Sorted = true -Me.LBKeyWords.TabIndex = 165 +Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN1.Location = New System.Drawing.Point(9, 118) +Me.BN1.Name = "BN1" +Me.BN1.Size = New System.Drawing.Size(71, 20) +Me.BN1.TabIndex = 0 +Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 +Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'RTBKeyWords +'BN4 ' -Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) -Me.RTBKeyWords.Name = "RTBKeyWords" -Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) -Me.RTBKeyWords.TabIndex = 164 -Me.RTBKeyWords.Text = "" +Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BN4.Location = New System.Drawing.Point(86, 243) +Me.BN4.Name = "BN4" +Me.BN4.Size = New System.Drawing.Size(71, 20) +Me.BN4.TabIndex = 3 +Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 +Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'TabPage24 +'BP4 ' -Me.TabPage24.BackColor = System.Drawing.Color.LightGray -Me.TabPage24.Controls.Add(Me.Button9) -Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) -Me.TabPage24.Controls.Add(Me.Button4) -Me.TabPage24.Controls.Add(Me.Button5) -Me.TabPage24.Controls.Add(Me.TBResponses) -Me.TabPage24.Controls.Add(Me.LBResponses) -Me.TabPage24.Controls.Add(Me.RTBResponses) -Me.TabPage24.Location = New System.Drawing.Point(4, 22) -Me.TabPage24.Name = "TabPage24" -Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage24.Size = New System.Drawing.Size(700, 411) -Me.TabPage24.TabIndex = 3 -Me.TabPage24.Text = "Responses" +Me.BP4.BackColor = System.Drawing.Color.Silver +Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 +Me.BP4.InitialImage = Nothing +Me.BP4.Location = New System.Drawing.Point(86, 144) +Me.BP4.Name = "BP4" +Me.BP4.Size = New System.Drawing.Size(71, 93) +Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP4.TabIndex = 13 +Me.BP4.TabStop = false ' -'Button9 +'BP1 ' -Me.Button9.Location = New System.Drawing.Point(217, 10) -Me.Button9.Name = "Button9" -Me.Button9.Size = New System.Drawing.Size(215, 23) -Me.Button9.TabIndex = 176 -Me.Button9.Text = "Response Template" -Me.Button9.UseVisualStyleBackColor = true +Me.BP1.BackColor = System.Drawing.Color.Silver +Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) +Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 +Me.BP1.InitialImage = Nothing +Me.BP1.Location = New System.Drawing.Point(9, 19) +Me.BP1.Name = "BP1" +Me.BP1.Size = New System.Drawing.Size(71, 93) +Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.BP1.TabIndex = 0 +Me.BP1.TabStop = false +Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 ' -'RTBResponsesKEY +'GbxCardsSilver ' -Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) -Me.RTBResponsesKEY.Name = "RTBResponsesKEY" -Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) -Me.RTBResponsesKEY.TabIndex = 175 -Me.RTBResponsesKEY.Text = "" +Me.GbxCardsSilver.Controls.Add(Me.SN6) +Me.GbxCardsSilver.Controls.Add(Me.SP6) +Me.GbxCardsSilver.Controls.Add(Me.SN2) +Me.GbxCardsSilver.Controls.Add(Me.SP2) +Me.GbxCardsSilver.Controls.Add(Me.SN1) +Me.GbxCardsSilver.Controls.Add(Me.SP5) +Me.GbxCardsSilver.Controls.Add(Me.SP1) +Me.GbxCardsSilver.Controls.Add(Me.SN5) +Me.GbxCardsSilver.Controls.Add(Me.SN3) +Me.GbxCardsSilver.Controls.Add(Me.SN4) +Me.GbxCardsSilver.Controls.Add(Me.SP3) +Me.GbxCardsSilver.Controls.Add(Me.SP4) +Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) +Me.GbxCardsSilver.Name = "GbxCardsSilver" +Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) +Me.GbxCardsSilver.TabIndex = 1 +Me.GbxCardsSilver.TabStop = false +Me.GbxCardsSilver.Text = "Silver Cards" ' -'Button4 +'SN6 ' -Me.Button4.Location = New System.Drawing.Point(6, 10) -Me.Button4.Name = "Button4" -Me.Button4.Size = New System.Drawing.Size(194, 23) -Me.Button4.TabIndex = 174 -Me.Button4.Text = "Refresh and Clear Response List" -Me.Button4.UseVisualStyleBackColor = true +Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN6.Location = New System.Drawing.Point(86, 368) +Me.SN6.Name = "SN6" +Me.SN6.Size = New System.Drawing.Size(71, 20) +Me.SN6.TabIndex = 5 +Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 +Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Button5 +'SP6 ' -Me.Button5.Location = New System.Drawing.Point(638, 10) -Me.Button5.Name = "Button5" -Me.Button5.Size = New System.Drawing.Size(47, 23) -Me.Button5.TabIndex = 173 -Me.Button5.Text = "Save" -Me.Button5.UseVisualStyleBackColor = true +Me.SP6.BackColor = System.Drawing.Color.Silver +Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 +Me.SP6.InitialImage = Nothing +Me.SP6.Location = New System.Drawing.Point(86, 269) +Me.SP6.Name = "SP6" +Me.SP6.Size = New System.Drawing.Size(71, 93) +Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP6.TabIndex = 17 +Me.SP6.TabStop = false ' -'TBResponses +'SN2 ' -Me.TBResponses.Location = New System.Drawing.Point(438, 10) -Me.TBResponses.Name = "TBResponses" -Me.TBResponses.Size = New System.Drawing.Size(194, 20) -Me.TBResponses.TabIndex = 172 +Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN2.Location = New System.Drawing.Point(86, 118) +Me.SN2.Name = "SN2" +Me.SN2.Size = New System.Drawing.Size(71, 20) +Me.SN2.TabIndex = 1 +Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 +Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'LBResponses +'SP2 ' -Me.LBResponses.FormattingEnabled = true -Me.LBResponses.Location = New System.Drawing.Point(6, 36) -Me.LBResponses.Name = "LBResponses" -Me.LBResponses.Size = New System.Drawing.Size(194, 355) -Me.LBResponses.Sorted = true -Me.LBResponses.TabIndex = 171 +Me.SP2.BackColor = System.Drawing.Color.Silver +Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 +Me.SP2.InitialImage = Nothing +Me.SP2.Location = New System.Drawing.Point(86, 19) +Me.SP2.Name = "SP2" +Me.SP2.Size = New System.Drawing.Size(71, 93) +Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP2.TabIndex = 9 +Me.SP2.TabStop = false ' -'RTBResponses +'SN1 ' -Me.RTBResponses.Location = New System.Drawing.Point(217, 82) -Me.RTBResponses.Name = "RTBResponses" -Me.RTBResponses.Size = New System.Drawing.Size(468, 309) -Me.RTBResponses.TabIndex = 170 -Me.RTBResponses.Text = "" +Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN1.Location = New System.Drawing.Point(9, 118) +Me.SN1.Name = "SN1" +Me.SN1.Size = New System.Drawing.Size(71, 20) +Me.SN1.TabIndex = 0 +Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 +Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'TabPage8 +'SP5 ' -Me.TabPage8.BackColor = System.Drawing.Color.LightGray -Me.TabPage8.Controls.Add(Me.RTBVideoMod) -Me.TabPage8.Controls.Add(Me.GroupBox29) -Me.TabPage8.Controls.Add(Me.BTNVideoModClear) -Me.TabPage8.Controls.Add(Me.GroupBox28) -Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) -Me.TabPage8.Controls.Add(Me.GroupBox30) -Me.TabPage8.Controls.Add(Me.BTNVideoModSave) -Me.TabPage8.Location = New System.Drawing.Point(4, 22) -Me.TabPage8.Name = "TabPage8" -Me.TabPage8.Size = New System.Drawing.Size(700, 411) -Me.TabPage8.TabIndex = 2 -Me.TabPage8.Text = "Video" +Me.SP5.BackColor = System.Drawing.Color.Silver +Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 +Me.SP5.InitialImage = Nothing +Me.SP5.Location = New System.Drawing.Point(9, 269) +Me.SP5.Name = "SP5" +Me.SP5.Size = New System.Drawing.Size(71, 93) +Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP5.TabIndex = 15 +Me.SP5.TabStop = false ' -'RTBVideoMod +'SP1 ' -Me.RTBVideoMod.Enabled = false -Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) -Me.RTBVideoMod.Name = "RTBVideoMod" -Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) -Me.RTBVideoMod.TabIndex = 150 -Me.RTBVideoMod.Text = "" +Me.SP1.BackColor = System.Drawing.Color.Silver +Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 +Me.SP1.InitialImage = Nothing +Me.SP1.Location = New System.Drawing.Point(9, 19) +Me.SP1.Name = "SP1" +Me.SP1.Size = New System.Drawing.Size(71, 93) +Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP1.TabIndex = 0 +Me.SP1.TabStop = false ' -'GroupBox29 +'SN5 ' -Me.GroupBox29.BackColor = System.Drawing.Color.LightGray -Me.GroupBox29.Controls.Add(Me.Label51) -Me.GroupBox29.ForeColor = System.Drawing.Color.Black -Me.GroupBox29.Location = New System.Drawing.Point(6, 309) -Me.GroupBox29.Name = "GroupBox29" -Me.GroupBox29.Size = New System.Drawing.Size(692, 92) -Me.GroupBox29.TabIndex = 66 -Me.GroupBox29.TabStop = false -Me.GroupBox29.Text = "Description" +Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN5.Location = New System.Drawing.Point(9, 368) +Me.SN5.Name = "SN5" +Me.SN5.Size = New System.Drawing.Size(71, 20) +Me.SN5.TabIndex = 4 +Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 +Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'Label51 +'SN3 ' -Me.Label51.BackColor = System.Drawing.Color.Transparent -Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label51.ForeColor = System.Drawing.Color.Black -Me.Label51.Location = New System.Drawing.Point(6, 16) -Me.Label51.Name = "Label51" -Me.Label51.Size = New System.Drawing.Size(680, 73) -Me.Label51.TabIndex = 62 -Me.Label51.Text = resources.GetString("Label51.Text") -Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN3.Location = New System.Drawing.Point(9, 243) +Me.SN3.Name = "SN3" +Me.SN3.Size = New System.Drawing.Size(71, 20) +Me.SN3.TabIndex = 2 +Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 +Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'BTNVideoModClear +'SN4 ' -Me.BTNVideoModClear.Enabled = false -Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) -Me.BTNVideoModClear.Name = "BTNVideoModClear" -Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModClear.TabIndex = 153 -Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" -Me.BTNVideoModClear.UseVisualStyleBackColor = true +Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SN4.Location = New System.Drawing.Point(86, 243) +Me.SN4.Name = "SN4" +Me.SN4.Size = New System.Drawing.Size(71, 20) +Me.SN4.TabIndex = 3 +Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 +Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'GroupBox28 +'SP3 ' -Me.GroupBox28.Controls.Add(Me.CBVTType) -Me.GroupBox28.Location = New System.Drawing.Point(6, 8) -Me.GroupBox28.Name = "GroupBox28" -Me.GroupBox28.Size = New System.Drawing.Size(155, 46) -Me.GroupBox28.TabIndex = 148 -Me.GroupBox28.TabStop = false -Me.GroupBox28.Text = "Video Tease Type" +Me.SP3.BackColor = System.Drawing.Color.Silver +Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 +Me.SP3.InitialImage = Nothing +Me.SP3.Location = New System.Drawing.Point(9, 144) +Me.SP3.Name = "SP3" +Me.SP3.Size = New System.Drawing.Size(71, 93) +Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP3.TabIndex = 11 +Me.SP3.TabStop = false ' -'CBVTType +'SP4 ' -Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBVTType.FormattingEnabled = true -Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) -Me.CBVTType.Location = New System.Drawing.Point(9, 15) -Me.CBVTType.Name = "CBVTType" -Me.CBVTType.Size = New System.Drawing.Size(137, 21) -Me.CBVTType.TabIndex = 171 +Me.SP4.BackColor = System.Drawing.Color.Silver +Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 +Me.SP4.InitialImage = Nothing +Me.SP4.Location = New System.Drawing.Point(86, 144) +Me.SP4.Name = "SP4" +Me.SP4.Size = New System.Drawing.Size(71, 93) +Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.SP4.TabIndex = 13 +Me.SP4.TabStop = false ' -'BTNVideoModLoad +'TabPage6 ' -Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) -Me.BTNVideoModLoad.Name = "BTNVideoModLoad" -Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModLoad.TabIndex = 152 -Me.BTNVideoModLoad.Text = "Load Script" -Me.BTNVideoModLoad.UseVisualStyleBackColor = true +Me.TabPage6.BackColor = System.Drawing.Color.LightGray +Me.TabPage6.Controls.Add(Me.Panel10) +Me.TabPage6.Controls.Add(Me.Label107) +Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) +Me.TabPage6.Controls.Add(Me.Label18) +Me.TabPage6.Controls.Add(Me.PNLWishList) +Me.TabPage6.Location = New System.Drawing.Point(4, 22) +Me.TabPage6.Name = "TabPage6" +Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage6.Size = New System.Drawing.Size(700, 411) +Me.TabPage6.TabIndex = 2 +Me.TabPage6.Text = "Wishlist" ' -'GroupBox30 +'Panel10 ' -Me.GroupBox30.Controls.Add(Me.LBVidScript) -Me.GroupBox30.Location = New System.Drawing.Point(6, 60) -Me.GroupBox30.Name = "GroupBox30" -Me.GroupBox30.Size = New System.Drawing.Size(155, 100) -Me.GroupBox30.TabIndex = 149 -Me.GroupBox30.TabStop = false -Me.GroupBox30.Text = "Script" +Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel10.Controls.Add(Me.TBWishlistComment) +Me.Panel10.Controls.Add(Me.Label32) +Me.Panel10.Controls.Add(Me.TBWishlistItem) +Me.Panel10.Controls.Add(Me.radioGold) +Me.Panel10.Controls.Add(Me.Label42) +Me.Panel10.Controls.Add(Me.radioSilver) +Me.Panel10.Controls.Add(Me.TBWishlistURL) +Me.Panel10.Controls.Add(Me.NBWishlistCost) +Me.Panel10.Controls.Add(Me.Label48) +Me.Panel10.Controls.Add(Me.Label73) +Me.Panel10.Location = New System.Drawing.Point(38, 47) +Me.Panel10.Name = "Panel10" +Me.Panel10.Size = New System.Drawing.Size(252, 308) +Me.Panel10.TabIndex = 179 ' -'LBVidScript +'TBWishlistComment ' -Me.LBVidScript.FormattingEnabled = true -Me.LBVidScript.Location = New System.Drawing.Point(9, 20) -Me.LBVidScript.Name = "LBVidScript" -Me.LBVidScript.Size = New System.Drawing.Size(137, 69) -Me.LBVidScript.TabIndex = 0 +Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) +Me.TBWishlistComment.Multiline = true +Me.TBWishlistComment.Name = "TBWishlistComment" +Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) +Me.TBWishlistComment.TabIndex = 172 ' -'BTNVideoModSave +'Label32 ' -Me.BTNVideoModSave.Enabled = false -Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) -Me.BTNVideoModSave.Name = "BTNVideoModSave" -Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModSave.TabIndex = 151 -Me.BTNVideoModSave.Text = "Save Changes" -Me.BTNVideoModSave.UseVisualStyleBackColor = true +Me.Label32.AutoSize = true +Me.Label32.Location = New System.Drawing.Point(13, 4) +Me.Label32.Name = "Label32" +Me.Label32.Size = New System.Drawing.Size(58, 13) +Me.Label32.TabIndex = 167 +Me.Label32.Text = "Item Name" ' -'TabPage15 +'TBWishlistItem ' -Me.TabPage15.BackColor = System.Drawing.Color.LightGray -Me.TabPage15.Controls.Add(Me.Label62) -Me.TabPage15.Controls.Add(Me.Label61) -Me.TabPage15.Controls.Add(Me.Label57) -Me.TabPage15.Controls.Add(Me.Label58) -Me.TabPage15.Controls.Add(Me.Label60) -Me.TabPage15.Controls.Add(Me.TBGlitModFileName) -Me.TabPage15.Controls.Add(Me.GroupBox34) -Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) -Me.TabPage15.Controls.Add(Me.Button26) -Me.TabPage15.Controls.Add(Me.Label56) -Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) -Me.TabPage15.Controls.Add(Me.LBGlitModScripts) -Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) -Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) -Me.TabPage15.Controls.Add(Me.Button29) -Me.TabPage15.Controls.Add(Me.CBGlitModType) -Me.TabPage15.Controls.Add(Me.Label59) -Me.TabPage15.Controls.Add(Me.Label50) -Me.TabPage15.Location = New System.Drawing.Point(4, 22) -Me.TabPage15.Name = "TabPage15" -Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage15.Size = New System.Drawing.Size(700, 411) -Me.TabPage15.TabIndex = 1 -Me.TabPage15.Text = "Glitter" +Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) +Me.TBWishlistItem.Name = "TBWishlistItem" +Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistItem.TabIndex = 168 ' -'Label62 +'radioGold ' -Me.Label62.Location = New System.Drawing.Point(255, 169) -Me.Label62.Name = "Label62" -Me.Label62.Size = New System.Drawing.Size(59, 51) -Me.Label62.TabIndex = 177 -Me.Label62.Text = "@Cruel @Angry @Custom2" -Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.radioGold.AutoSize = true +Me.radioGold.Location = New System.Drawing.Point(167, 125) +Me.radioGold.Name = "radioGold" +Me.radioGold.Size = New System.Drawing.Size(47, 17) +Me.radioGold.TabIndex = 176 +Me.radioGold.Text = "Gold" +Me.radioGold.UseVisualStyleBackColor = true ' -'Label61 +'Label42 ' -Me.Label61.Location = New System.Drawing.Point(194, 169) -Me.Label61.Name = "Label61" -Me.Label61.Size = New System.Drawing.Size(59, 51) -Me.Label61.TabIndex = 176 -Me.Label61.Text = "@Bratty @Caring @Custom1" -Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Label42.AutoSize = true +Me.Label42.Location = New System.Drawing.Point(13, 56) +Me.Label42.Name = "Label42" +Me.Label42.Size = New System.Drawing.Size(75, 13) +Me.Label42.TabIndex = 169 +Me.Label42.Text = "Item Image Url" ' -'Label57 +'radioSilver ' -Me.Label57.Location = New System.Drawing.Point(194, 11) -Me.Label57.Name = "Label57" -Me.Label57.Size = New System.Drawing.Size(120, 23) -Me.Label57.TabIndex = 160 -Me.Label57.Text = "File Name" -Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.radioSilver.AutoSize = true +Me.radioSilver.Checked = true +Me.radioSilver.Location = New System.Drawing.Point(100, 125) +Me.radioSilver.Name = "radioSilver" +Me.radioSilver.Size = New System.Drawing.Size(51, 17) +Me.radioSilver.TabIndex = 175 +Me.radioSilver.TabStop = true +Me.radioSilver.Text = "Silver" +Me.radioSilver.UseVisualStyleBackColor = true ' -'Label58 +'TBWishlistURL ' -Me.Label58.Location = New System.Drawing.Point(350, 11) -Me.Label58.Name = "Label58" -Me.Label58.Size = New System.Drawing.Size(326, 23) -Me.Label58.TabIndex = 161 -Me.Label58.Text = "Domme's Post" -Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) +Me.TBWishlistURL.Name = "TBWishlistURL" +Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) +Me.TBWishlistURL.TabIndex = 170 ' -'Label60 +'NBWishlistCost ' -Me.Label60.Location = New System.Drawing.Point(194, 139) -Me.Label60.Name = "Label60" -Me.Label60.Size = New System.Drawing.Size(120, 30) -Me.Label60.TabIndex = 175 -Me.Label60.Text = "Tease Responses Need 3 of Each:" -Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) +Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBWishlistCost.Name = "NBWishlistCost" +Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) +Me.NBWishlistCost.TabIndex = 174 +Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -'TBGlitModFileName +'Label48 ' -Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) -Me.TBGlitModFileName.Name = "TBGlitModFileName" -Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) -Me.TBGlitModFileName.TabIndex = 158 +Me.Label48.AutoSize = true +Me.Label48.Location = New System.Drawing.Point(13, 157) +Me.Label48.Name = "Label48" +Me.Label48.Size = New System.Drawing.Size(74, 13) +Me.Label48.TabIndex = 171 +Me.Label48.Text = "Item Comment" ' -'GroupBox34 +'Label73 ' -Me.GroupBox34.BackColor = System.Drawing.Color.LightGray -Me.GroupBox34.Controls.Add(Me.Label52) -Me.GroupBox34.ForeColor = System.Drawing.Color.Black -Me.GroupBox34.Location = New System.Drawing.Point(8, 296) -Me.GroupBox34.Name = "GroupBox34" -Me.GroupBox34.Size = New System.Drawing.Size(683, 107) -Me.GroupBox34.TabIndex = 66 -Me.GroupBox34.TabStop = false -Me.GroupBox34.Text = "Description" +Me.Label73.AutoSize = true +Me.Label73.Location = New System.Drawing.Point(13, 108) +Me.Label73.Name = "Label73" +Me.Label73.Size = New System.Drawing.Size(51, 13) +Me.Label73.TabIndex = 173 +Me.Label73.Text = "Item Cost" ' -'Label52 +'Label107 ' -Me.Label52.BackColor = System.Drawing.Color.Transparent -Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label52.ForeColor = System.Drawing.Color.Black -Me.Label52.Location = New System.Drawing.Point(6, 16) -Me.Label52.Name = "Label52" -Me.Label52.Size = New System.Drawing.Size(670, 88) -Me.Label52.TabIndex = 62 -Me.Label52.Text = resources.GetString("Label52.Text") -Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label107.Location = New System.Drawing.Point(38, 5) +Me.Label107.Name = "Label107" +Me.Label107.Size = New System.Drawing.Size(252, 47) +Me.Label107.TabIndex = 178 +Me.Label107.Text = "Use this page to create Wishlist files." +Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'RTBGlitModDommePost +'BTNWishlistCreate ' -Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) -Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" -Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) -Me.RTBGlitModDommePost.TabIndex = 162 -Me.RTBGlitModDommePost.Text = "" +Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) +Me.BTNWishlistCreate.Name = "BTNWishlistCreate" +Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) +Me.BTNWishlistCreate.TabIndex = 177 +Me.BTNWishlistCreate.Text = "Create Wishlist File" +Me.BTNWishlistCreate.UseVisualStyleBackColor = true ' -'Button26 +'Label18 ' -Me.Button26.Location = New System.Drawing.Point(194, 239) -Me.Button26.Name = "Button26" -Me.Button26.Size = New System.Drawing.Size(120, 23) -Me.Button26.TabIndex = 174 -Me.Button26.Text = "Clear Fields" -Me.Button26.UseVisualStyleBackColor = true +Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label18.Location = New System.Drawing.Point(409, 5) +Me.Label18.Name = "Label18" +Me.Label18.Size = New System.Drawing.Size(250, 23) +Me.Label18.TabIndex = 166 +Me.Label18.Text = "Preview" +Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label56 +'PNLWishList ' -Me.Label56.Location = New System.Drawing.Point(350, 80) -Me.Label56.Name = "Label56" -Me.Label56.Size = New System.Drawing.Size(324, 23) -Me.Label56.TabIndex = 156 -Me.Label56.Text = "Responses (Minimum 3)" -Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.PNLWishList.BackColor = System.Drawing.Color.White +Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) +Me.PNLWishList.Controls.Add(Me.LBLWishListText) +Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) +Me.PNLWishList.Controls.Add(Me.WishlistCostGold) +Me.PNLWishList.Controls.Add(Me.LBLWishListName) +Me.PNLWishList.Controls.Add(Me.WishlistPreview) +Me.PNLWishList.Location = New System.Drawing.Point(407, 31) +Me.PNLWishList.Name = "PNLWishList" +Me.PNLWishList.Size = New System.Drawing.Size(250, 367) +Me.PNLWishList.TabIndex = 165 ' -'RTBGlitModResponses +'WishlistCostSilver ' -Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) -Me.RTBGlitModResponses.Name = "RTBGlitModResponses" -Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) -Me.RTBGlitModResponses.TabIndex = 150 -Me.RTBGlitModResponses.Text = "" +Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) +Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostSilver.Name = "WishlistCostSilver" +Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostSilver.TabIndex = 111 +Me.WishlistCostSilver.TabStop = false ' -'LBGlitModScripts +'LBLWishListText ' -Me.LBGlitModScripts.FormattingEnabled = true -Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) -Me.LBGlitModScripts.Name = "LBGlitModScripts" -Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) -Me.LBGlitModScripts.TabIndex = 163 +Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) +Me.LBLWishListText.Name = "LBLWishListText" +Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) +Me.LBLWishListText.TabIndex = 108 ' -'LBLGlitModScriptCount +'LBLWishlistCost ' -Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) -Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" -Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) -Me.LBLGlitModScriptCount.TabIndex = 173 -Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" -Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black +Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) +Me.LBLWishlistCost.Name = "LBLWishlistCost" +Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) +Me.LBLWishlistCost.TabIndex = 107 +Me.LBLWishlistCost.Text = "3" +Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLGlitModDomType +'WishlistCostGold ' -Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) -Me.LBLGlitModDomType.Name = "LBLGlitModDomType" -Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) -Me.LBLGlitModDomType.TabIndex = 155 -Me.LBLGlitModDomType.Text = "Total Brat" -Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent +Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) +Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) +Me.WishlistCostGold.Name = "WishlistCostGold" +Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) +Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.WishlistCostGold.TabIndex = 106 +Me.WishlistCostGold.TabStop = false +Me.WishlistCostGold.Visible = false ' -'Button29 +'LBLWishListName ' -Me.Button29.Location = New System.Drawing.Point(194, 268) -Me.Button29.Name = "Button29" -Me.Button29.Size = New System.Drawing.Size(120, 23) -Me.Button29.TabIndex = 151 -Me.Button29.Text = "Save Glitter File" -Me.Button29.UseVisualStyleBackColor = true +Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue +Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) +Me.LBLWishListName.Name = "LBLWishListName" +Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) +Me.LBLWishListName.TabIndex = 104 +Me.LBLWishListName.Text = "Item Name Goes Here" +Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitModType +'WishlistPreview ' -Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBGlitModType.FormattingEnabled = true -Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) -Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) -Me.CBGlitModType.Name = "CBGlitModType" -Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) -Me.CBGlitModType.TabIndex = 171 +Me.WishlistPreview.ImageLocation = "" +Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) +Me.WishlistPreview.Name = "WishlistPreview" +Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) +Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom +Me.WishlistPreview.TabIndex = 101 +Me.WishlistPreview.TabStop = false ' -'Label59 +'TabPage26 ' -Me.Label59.Location = New System.Drawing.Point(33, 11) -Me.Label59.Name = "Label59" -Me.Label59.Size = New System.Drawing.Size(130, 23) -Me.Label59.TabIndex = 172 -Me.Label59.Text = "Glitter Post Type" -Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TabPage26.BackColor = System.Drawing.Color.Silver +Me.TabPage26.Controls.Add(Me.Panel12) +Me.TabPage26.Location = New System.Drawing.Point(4, 22) +Me.TabPage26.Name = "TabPage26" +Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage26.Size = New System.Drawing.Size(720, 448) +Me.TabPage26.TabIndex = 19 +Me.TabPage26.Text = "Themes" ' -'Label50 +'Panel12 ' -Me.Label50.Location = New System.Drawing.Point(191, 80) -Me.Label50.Name = "Label50" -Me.Label50.Size = New System.Drawing.Size(123, 23) -Me.Label50.TabIndex = 154 -Me.Label50.Text = "Current Domme Personality:" -Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Panel12.BackColor = System.Drawing.Color.LightGray +Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel12.Controls.Add(Me.GroupBox9) +Me.Panel12.Controls.Add(Me.PictureBox10) +Me.Panel12.Controls.Add(Me.GroupBox5) +Me.Panel12.Controls.Add(Me.GroupBox11) +Me.Panel12.Controls.Add(Me.GroupBox1) +Me.Panel12.Controls.Add(Me.Label164) +Me.Panel12.Location = New System.Drawing.Point(6, 6) +Me.Panel12.Name = "Panel12" +Me.Panel12.Size = New System.Drawing.Size(708, 437) +Me.Panel12.TabIndex = 93 ' -'TabPage25 +'GroupBox9 ' -Me.TabPage25.BackColor = System.Drawing.Color.Silver -Me.TabPage25.Controls.Add(Me.Panel11) -Me.TabPage25.Location = New System.Drawing.Point(4, 22) -Me.TabPage25.Name = "TabPage25" -Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage25.Size = New System.Drawing.Size(720, 448) -Me.TabPage25.TabIndex = 18 -Me.TabPage25.Text = "Misc" +Me.GroupBox9.Controls.Add(Me.Button32) +Me.GroupBox9.Controls.Add(Me.Button31) +Me.GroupBox9.Location = New System.Drawing.Point(351, 231) +Me.GroupBox9.Name = "GroupBox9" +Me.GroupBox9.Size = New System.Drawing.Size(348, 94) +Me.GroupBox9.TabIndex = 152 +Me.GroupBox9.TabStop = false +Me.GroupBox9.Text = "System" ' -'Panel11 +'Button32 ' -Me.Panel11.BackColor = System.Drawing.Color.LightGray -Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel11.Controls.Add(Me.GroupBox62) -Me.Panel11.Controls.Add(Me.GroupBox33) -Me.Panel11.Controls.Add(Me.GroupBox8) -Me.Panel11.Controls.Add(Me.GroupBox27) -Me.Panel11.Controls.Add(Me.GroupBox20) -Me.Panel11.Controls.Add(Me.GroupBox15) -Me.Panel11.Controls.Add(Me.PictureBox9) -Me.Panel11.Controls.Add(Me.Label148) -Me.Panel11.Location = New System.Drawing.Point(6, 6) -Me.Panel11.Name = "Panel11" -Me.Panel11.Size = New System.Drawing.Size(708, 437) -Me.Panel11.TabIndex = 92 +Me.Button32.BackColor = System.Drawing.Color.Transparent +Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big +Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button32.Location = New System.Drawing.Point(196, 24) +Me.Button32.Name = "Button32" +Me.Button32.Size = New System.Drawing.Size(135, 55) +Me.Button32.TabIndex = 55 +Me.Button32.Text = " Save Theme" +Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button32.UseVisualStyleBackColor = false ' -'GroupBox62 +'Button31 ' -Me.GroupBox62.Controls.Add(Me.RBGerman) -Me.GroupBox62.Controls.Add(Me.RBEnglish) -Me.GroupBox62.Location = New System.Drawing.Point(420, 155) -Me.GroupBox62.Name = "GroupBox62" -Me.GroupBox62.Size = New System.Drawing.Size(277, 56) -Me.GroupBox62.TabIndex = 178 -Me.GroupBox62.TabStop = false -Me.GroupBox62.Text = "Language" +Me.Button31.BackColor = System.Drawing.Color.Transparent +Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big +Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.Button31.Location = New System.Drawing.Point(17, 24) +Me.Button31.Name = "Button31" +Me.Button31.Size = New System.Drawing.Size(135, 55) +Me.Button31.TabIndex = 54 +Me.Button31.Text = " Open Theme" +Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText +Me.Button31.UseVisualStyleBackColor = false ' -'RBGerman +'PictureBox10 ' -Me.RBGerman.AutoSize = true -Me.RBGerman.Location = New System.Drawing.Point(180, 20) -Me.RBGerman.Name = "RBGerman" -Me.RBGerman.Size = New System.Drawing.Size(65, 17) -Me.RBGerman.TabIndex = 1 -Me.RBGerman.Text = "Deutsch" -Me.RBGerman.UseVisualStyleBackColor = true +Me.PictureBox10.BackColor = System.Drawing.Color.LightGray +Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox10.Location = New System.Drawing.Point(9, 6) +Me.PictureBox10.Name = "PictureBox10" +Me.PictureBox10.Size = New System.Drawing.Size(160, 19) +Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox10.TabIndex = 151 +Me.PictureBox10.TabStop = false ' -'RBEnglish +'GroupBox5 ' -Me.RBEnglish.AutoSize = true -Me.RBEnglish.Checked = true -Me.RBEnglish.Location = New System.Drawing.Point(36, 19) -Me.RBEnglish.Name = "RBEnglish" -Me.RBEnglish.Size = New System.Drawing.Size(59, 17) -Me.RBEnglish.TabIndex = 0 -Me.RBEnglish.TabStop = true -Me.RBEnglish.Text = "English" -Me.RBEnglish.UseVisualStyleBackColor = true +Me.GroupBox5.Controls.Add(Me.CBTransparentTime) +Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) +Me.GroupBox5.Controls.Add(Me.Label137) +Me.GroupBox5.Controls.Add(Me.Label138) +Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) +Me.GroupBox5.Controls.Add(Me.LBLTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor) +Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) +Me.GroupBox5.Controls.Add(Me.LBLBackColor) +Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) +Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) +Me.GroupBox5.Location = New System.Drawing.Point(9, 31) +Me.GroupBox5.Name = "GroupBox5" +Me.GroupBox5.Size = New System.Drawing.Size(336, 294) +Me.GroupBox5.TabIndex = 58 +Me.GroupBox5.TabStop = false +Me.GroupBox5.Text = "UI Colors" ' -'GroupBox33 +'CBTransparentTime ' -Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) -Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) -Me.GroupBox33.Controls.Add(Me.Label140) -Me.GroupBox33.Controls.Add(Me.Button11) -Me.GroupBox33.Controls.Add(Me.LBLChastityState) -Me.GroupBox33.Controls.Add(Me.Label120) -Me.GroupBox33.Location = New System.Drawing.Point(420, 321) -Me.GroupBox33.Name = "GroupBox33" -Me.GroupBox33.Size = New System.Drawing.Size(277, 106) -Me.GroupBox33.TabIndex = 177 -Me.GroupBox33.TabStop = false -Me.GroupBox33.Text = "System States" +Me.CBTransparentTime.AutoSize = true +Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) +Me.CBTransparentTime.Name = "CBTransparentTime" +Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) +Me.CBTransparentTime.TabIndex = 23 +Me.CBTransparentTime.Text = "Transparent Date/Time Window" +Me.CBTransparentTime.UseVisualStyleBackColor = true ' -'BTNOfflineMode +'LBLDateTimeColor2 ' -Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) -Me.BTNOfflineMode.Name = "BTNOfflineMode" -Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) -Me.BTNOfflineMode.TabIndex = 180 -Me.BTNOfflineMode.Text = "Toggle" -Me.BTNOfflineMode.UseVisualStyleBackColor = true +Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor +Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) +Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" +Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateTimeColor2.TabIndex = 19 ' -'LBLOfflineMode +'Label137 ' -Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray -Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red -Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) -Me.LBLOfflineMode.Name = "LBLOfflineMode" -Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) -Me.LBLOfflineMode.TabIndex = 179 -Me.LBLOfflineMode.Text = "OFF" -Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label137.Location = New System.Drawing.Point(6, 227) +Me.Label137.Name = "Label137" +Me.Label137.Size = New System.Drawing.Size(175, 20) +Me.Label137.TabIndex = 20 +Me.Label137.Text = "Date/Time Window Color" +Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label140 +'Label138 ' -Me.Label140.BackColor = System.Drawing.Color.LightGray -Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label140.Location = New System.Drawing.Point(17, 70) -Me.Label140.Name = "Label140" -Me.Label140.Size = New System.Drawing.Size(98, 23) -Me.Label140.TabIndex = 178 -Me.Label140.Text = "OFFLINE MODE" -Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label138.Location = New System.Drawing.Point(6, 193) +Me.Label138.Name = "Label138" +Me.Label138.Size = New System.Drawing.Size(175, 20) +Me.Label138.TabIndex = 17 +Me.Label138.Text = "Date/Time Text Color" +Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button11 +'LBLDateBackColor2 ' -Me.Button11.Location = New System.Drawing.Point(161, 33) -Me.Button11.Name = "Button11" -Me.Button11.Size = New System.Drawing.Size(99, 23) -Me.Button11.TabIndex = 177 -Me.Button11.Text = "Toggle" -Me.Button11.UseVisualStyleBackColor = true +Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor +Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) +Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLDateBackColor2.Name = "LBLDateBackColor2" +Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLDateBackColor2.TabIndex = 22 ' -'LBLChastityState +'LBLTextColor ' -Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray -Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLChastityState.ForeColor = System.Drawing.Color.Red -Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) -Me.LBLChastityState.Name = "LBLChastityState" -Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) -Me.LBLChastityState.TabIndex = 3 -Me.LBLChastityState.Text = "OFF" -Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) +Me.LBLTextColor.Name = "LBLTextColor" +Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLTextColor.TabIndex = 7 +Me.LBLTextColor.Text = "Text Color" +Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label120 +'LBLChatWindowColor2 ' -Me.Label120.BackColor = System.Drawing.Color.LightGray -Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label120.Location = New System.Drawing.Point(17, 33) -Me.Label120.Name = "Label120" -Me.Label120.Size = New System.Drawing.Size(98, 23) -Me.Label120.TabIndex = 2 -Me.Label120.Text = "CHASTITY" -Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor +Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) +Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" +Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatWindowColor2.TabIndex = 12 ' -'GroupBox8 +'LBLTextColor2 ' -Me.GroupBox8.Controls.Add(Me.CBOutputErrors) -Me.GroupBox8.Location = New System.Drawing.Point(420, 246) -Me.GroupBox8.Name = "GroupBox8" -Me.GroupBox8.Size = New System.Drawing.Size(279, 47) -Me.GroupBox8.TabIndex = 179 -Me.GroupBox8.TabStop = false -Me.GroupBox8.Text = "System Information" +Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor +Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) +Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLTextColor2.Name = "LBLTextColor2" +Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLTextColor2.TabIndex = 9 ' -'CBOutputErrors +'LBLChatTextColor ' -Me.CBOutputErrors.AutoSize = true -Me.CBOutputErrors.Checked = true -Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black -Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) -Me.CBOutputErrors.Name = "CBOutputErrors" -Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) -Me.CBOutputErrors.TabIndex = 29 -Me.CBOutputErrors.TabStop = false -Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" -Me.CBOutputErrors.UseVisualStyleBackColor = true +Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) +Me.LBLChatTextColor.Name = "LBLChatTextColor" +Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatTextColor.TabIndex = 14 +Me.LBLChatTextColor.Text = "Chat Text Color" +Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox27 +'LBLBackColor2 ' -Me.GroupBox27.Controls.Add(Me.Button6) -Me.GroupBox27.Controls.Add(Me.LBLSesSpace) -Me.GroupBox27.Controls.Add(Me.Button3) -Me.GroupBox27.Controls.Add(Me.LBLSesFiles) -Me.GroupBox27.Controls.Add(Me.Label125) -Me.GroupBox27.Controls.Add(Me.Label124) -Me.GroupBox27.Location = New System.Drawing.Point(420, 32) -Me.GroupBox27.Name = "GroupBox27" -Me.GroupBox27.Size = New System.Drawing.Size(279, 117) -Me.GroupBox27.TabIndex = 176 -Me.GroupBox27.TabStop = false -Me.GroupBox27.Text = "Session Images" +Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor +Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) +Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLBackColor2.Name = "LBLBackColor2" +Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLBackColor2.TabIndex = 3 ' -'Button6 +'LBLButtonColor ' -Me.Button6.Location = New System.Drawing.Point(143, 76) -Me.Button6.Name = "Button6" -Me.Button6.Size = New System.Drawing.Size(117, 23) -Me.Button6.TabIndex = 176 -Me.Button6.Text = "Delete All Files" -Me.Button6.UseVisualStyleBackColor = true +Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) +Me.LBLButtonColor.Name = "LBLButtonColor" +Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) +Me.LBLButtonColor.TabIndex = 4 +Me.LBLButtonColor.Text = "Button Color" +Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLSesSpace +'LBLChatWindowColor ' -Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) -Me.LBLSesSpace.Name = "LBLSesSpace" -Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) -Me.LBLSesSpace.TabIndex = 3 +Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) +Me.LBLChatWindowColor.Name = "LBLChatWindowColor" +Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) +Me.LBLChatWindowColor.TabIndex = 10 +Me.LBLChatWindowColor.Text = "Chat Window Color" +Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button3 +'LBLBackColor ' -Me.Button3.Location = New System.Drawing.Point(20, 76) -Me.Button3.Name = "Button3" -Me.Button3.Size = New System.Drawing.Size(117, 23) -Me.Button3.TabIndex = 175 -Me.Button3.Text = "Open Folder" -Me.Button3.UseVisualStyleBackColor = true +Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) +Me.LBLBackColor.Name = "LBLBackColor" +Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) +Me.LBLBackColor.TabIndex = 0 +Me.LBLBackColor.Text = "Background Color" +Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLSesFiles +'LBLChatTextColor2 ' -Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) -Me.LBLSesFiles.Name = "LBLSesFiles" -Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) -Me.LBLSesFiles.TabIndex = 2 +Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor +Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) +Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLChatTextColor2.Name = "LBLChatTextColor2" +Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLChatTextColor2.TabIndex = 16 ' -'Label125 +'LBLButtonColor2 ' -Me.Label125.AutoSize = true -Me.Label125.Location = New System.Drawing.Point(17, 53) -Me.Label125.Name = "Label125" -Me.Label125.Size = New System.Drawing.Size(120, 13) -Me.Label125.TabIndex = 1 -Me.Label125.Text = "Total Disk Space Used:" +Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor +Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) +Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) +Me.LBLButtonColor2.Name = "LBLButtonColor2" +Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) +Me.LBLButtonColor2.TabIndex = 6 ' -'Label124 +'GroupBox11 ' -Me.Label124.AutoSize = true -Me.Label124.Location = New System.Drawing.Point(17, 24) -Me.Label124.Name = "Label124" -Me.Label124.Size = New System.Drawing.Size(126, 13) -Me.Label124.TabIndex = 0 -Me.Label124.Text = "Number of Files in Folder:" +Me.GroupBox11.BackColor = System.Drawing.Color.LightGray +Me.GroupBox11.Controls.Add(Me.Label144) +Me.GroupBox11.ForeColor = System.Drawing.Color.Black +Me.GroupBox11.Location = New System.Drawing.Point(7, 331) +Me.GroupBox11.Name = "GroupBox11" +Me.GroupBox11.Size = New System.Drawing.Size(692, 92) +Me.GroupBox11.TabIndex = 65 +Me.GroupBox11.TabStop = false +Me.GroupBox11.Text = "Description" ' -'GroupBox20 +'Label144 ' -Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label87) -Me.GroupBox20.Controls.Add(Me.TBURLFileWith) -Me.GroupBox20.Controls.Add(Me.Label118) -Me.GroupBox20.Controls.Add(Me.Label85) -Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label53) -Me.GroupBox20.Controls.Add(Me.Label8) -Me.GroupBox20.Controls.Add(Me.Button1) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) -Me.GroupBox20.Controls.Add(Me.Label117) -Me.GroupBox20.Controls.Add(Me.Label116) -Me.GroupBox20.Controls.Add(Me.PBCurrent) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) -Me.GroupBox20.Controls.Add(Me.PBMaintenance) -Me.GroupBox20.Controls.Add(Me.LBLMaintenance) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) -Me.GroupBox20.Location = New System.Drawing.Point(6, 32) -Me.GroupBox20.Name = "GroupBox20" -Me.GroupBox20.Size = New System.Drawing.Size(408, 230) -Me.GroupBox20.TabIndex = 174 -Me.GroupBox20.TabStop = false -Me.GroupBox20.Text = "Maintenance" +Me.Label144.BackColor = System.Drawing.Color.Transparent +Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label144.ForeColor = System.Drawing.Color.Black +Me.Label144.Location = New System.Drawing.Point(6, 16) +Me.Label144.Name = "Label144" +Me.Label144.Size = New System.Drawing.Size(680, 73) +Me.Label144.TabIndex = 62 +Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ + "nd opened from txt files." +Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNURLFileReplace +'GroupBox1 ' -Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) -Me.BTNURLFileReplace.Name = "BTNURLFileReplace" -Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) -Me.BTNURLFileReplace.TabIndex = 184 -Me.BTNURLFileReplace.Text = "Replace" -Me.BTNURLFileReplace.UseVisualStyleBackColor = true +Me.GroupBox1.Controls.Add(Me.CBFlipBack) +Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) +Me.GroupBox1.Controls.Add(Me.Button17) +Me.GroupBox1.Controls.Add(Me.CBStretchBack) +Me.GroupBox1.Controls.Add(Me.Button18) +Me.GroupBox1.Location = New System.Drawing.Point(351, 30) +Me.GroupBox1.Name = "GroupBox1" +Me.GroupBox1.Size = New System.Drawing.Size(348, 195) +Me.GroupBox1.TabIndex = 57 +Me.GroupBox1.TabStop = false +Me.GroupBox1.Text = "Background" ' -'Label87 +'CBFlipBack ' -Me.Label87.AutoSize = true -Me.Label87.Location = New System.Drawing.Point(206, 254) -Me.Label87.Name = "Label87" -Me.Label87.Size = New System.Drawing.Size(38, 13) -Me.Label87.TabIndex = 183 -Me.Label87.Text = ".media" +Me.CBFlipBack.Enabled = false +Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) +Me.CBFlipBack.Name = "CBFlipBack" +Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) +Me.CBFlipBack.TabIndex = 4 +Me.CBFlipBack.Text = "Flip Background" +Me.CBFlipBack.UseVisualStyleBackColor = true ' -'TBURLFileWith +'PBBackgroundPreview ' -Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) -Me.TBURLFileWith.Name = "TBURLFileWith" -Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileWith.TabIndex = 182 +Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) +Me.PBBackgroundPreview.Name = "PBBackgroundPreview" +Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) +Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PBBackgroundPreview.TabIndex = 0 +Me.PBBackgroundPreview.TabStop = false ' -'Label118 +'Button17 ' -Me.Label118.AutoSize = true -Me.Label118.Location = New System.Drawing.Point(142, 254) -Me.Label118.Name = "Label118" -Me.Label118.Size = New System.Drawing.Size(29, 13) -Me.Label118.TabIndex = 181 -Me.Label118.Text = "With" +Me.Button17.BackColor = System.Drawing.Color.Transparent +Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load +Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch +Me.Button17.Location = New System.Drawing.Point(228, 36) +Me.Button17.Name = "Button17" +Me.Button17.Size = New System.Drawing.Size(103, 93) +Me.Button17.TabIndex = 1 +Me.Button17.UseVisualStyleBackColor = false ' -'Label85 +'CBStretchBack ' -Me.Label85.AutoSize = true -Me.Label85.Location = New System.Drawing.Point(98, 254) -Me.Label85.Name = "Label85" -Me.Label85.Size = New System.Drawing.Size(38, 13) -Me.Label85.TabIndex = 180 -Me.Label85.Text = ".media" +Me.CBStretchBack.Checked = true +Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) +Me.CBStretchBack.Name = "CBStretchBack" +Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) +Me.CBStretchBack.TabIndex = 2 +Me.CBStretchBack.Text = "Stretch Background" +Me.CBStretchBack.UseVisualStyleBackColor = true ' -'TBURLFileReplace +'Button18 ' -Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) -Me.TBURLFileReplace.Name = "TBURLFileReplace" -Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileReplace.TabIndex = 179 +Me.Button18.Location = New System.Drawing.Point(228, 155) +Me.Button18.Name = "Button18" +Me.Button18.Size = New System.Drawing.Size(103, 31) +Me.Button18.TabIndex = 3 +Me.Button18.Text = "Clear" +Me.Button18.UseVisualStyleBackColor = true ' -'Label53 +'Label164 ' -Me.Label53.AutoSize = true -Me.Label53.Location = New System.Drawing.Point(16, 254) -Me.Label53.Name = "Label53" -Me.Label53.Size = New System.Drawing.Size(47, 13) -Me.Label53.TabIndex = 178 -Me.Label53.Text = "Replace" +Me.Label164.BackColor = System.Drawing.Color.Transparent +Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label164.ForeColor = System.Drawing.Color.Black +Me.Label164.Location = New System.Drawing.Point(7, 6) +Me.Label164.Name = "Label164" +Me.Label164.Size = New System.Drawing.Size(692, 21) +Me.Label164.TabIndex = 49 +Me.Label164.Text = "Theme Settings" +Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label8 +'TabPage4 ' -Me.Label8.AutoSize = true -Me.Label8.Location = New System.Drawing.Point(16, 232) -Me.Label8.Name = "Label8" -Me.Label8.Size = New System.Drawing.Size(130, 13) -Me.Label8.TabIndex = 177 -Me.Label8.Text = "Change URL File Servers " +Me.TabPage4.BackColor = System.Drawing.Color.Silver +Me.TabPage4.Controls.Add(Me.Panel6) +Me.TabPage4.Location = New System.Drawing.Point(4, 22) +Me.TabPage4.Name = "TabPage4" +Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage4.Size = New System.Drawing.Size(720, 448) +Me.TabPage4.TabIndex = 3 +Me.TabPage4.Text = "Ranges" ' -'Button1 +'Panel6 ' -Me.Button1.Enabled = false -Me.Button1.Location = New System.Drawing.Point(270, 19) -Me.Button1.Name = "Button1" -Me.Button1.Size = New System.Drawing.Size(121, 23) -Me.Button1.TabIndex = 176 -Me.Button1.Text = "Reset Settings" -Me.Button1.UseVisualStyleBackColor = true +Me.Panel6.BackColor = System.Drawing.Color.LightGray +Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel6.Controls.Add(Me.GroupBox69) +Me.Panel6.Controls.Add(Me.GroupBox68) +Me.Panel6.Controls.Add(Me.GroupBox67) +Me.Panel6.Controls.Add(Me.GroupBox10) +Me.Panel6.Controls.Add(Me.GroupBox57) +Me.Panel6.Controls.Add(Me.GBRangeRuinChance) +Me.Panel6.Controls.Add(Me.GroupBox17) +Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) +Me.Panel6.Controls.Add(Me.PictureBox8) +Me.Panel6.Controls.Add(Me.Label38) +Me.Panel6.Location = New System.Drawing.Point(6, 6) +Me.Panel6.Name = "Panel6" +Me.Panel6.Size = New System.Drawing.Size(708, 437) +Me.Panel6.TabIndex = 91 ' -'BTNMaintenanceScripts +'GroupBox69 ' -Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) -Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" -Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceScripts.TabIndex = 175 -Me.BTNMaintenanceScripts.Text = "Audit Scripts" -Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true +Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) +Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) +Me.GroupBox69.Controls.Add(Me.TimedWriting) +Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) +Me.GroupBox69.Location = New System.Drawing.Point(236, 344) +Me.GroupBox69.Name = "GroupBox69" +Me.GroupBox69.Size = New System.Drawing.Size(166, 83) +Me.GroupBox69.TabIndex = 173 +Me.GroupBox69.TabStop = false +Me.GroupBox69.Text = "Writing Tasks" ' -'BTNMaintenanceRefresh +'TypesSpeedVal ' -Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) -Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" -Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRefresh.TabIndex = 7 -Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" -Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true +Me.TypesSpeedVal.AutoSize = true +Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) +Me.TypesSpeedVal.Name = "TypesSpeedVal" +Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) +Me.TypesSpeedVal.TabIndex = 0 +Me.TypesSpeedVal.Text = "10" +Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'Label117 +'TypeSpeedLabel ' -Me.Label117.AutoSize = true -Me.Label117.Location = New System.Drawing.Point(15, 182) -Me.Label117.Name = "Label117" -Me.Label117.Size = New System.Drawing.Size(84, 13) -Me.Label117.TabIndex = 6 -Me.Label117.Text = "Overall Progress" +Me.TypeSpeedLabel.AutoSize = true +Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) +Me.TypeSpeedLabel.Name = "TypeSpeedLabel" +Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) +Me.TypeSpeedLabel.TabIndex = 2 +Me.TypeSpeedLabel.Text = "Typing Speed:" ' -'Label116 +'TimedWriting ' -Me.Label116.AutoSize = true -Me.Label116.Location = New System.Drawing.Point(15, 140) -Me.Label116.Name = "Label116" -Me.Label116.Size = New System.Drawing.Size(85, 13) -Me.Label116.TabIndex = 5 -Me.Label116.Text = "Current Progress" +Me.TimedWriting.AutoSize = true +Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting +Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TimedWriting.Location = New System.Drawing.Point(9, 19) +Me.TimedWriting.Name = "TimedWriting" +Me.TimedWriting.Size = New System.Drawing.Size(123, 17) +Me.TimedWriting.TabIndex = 1 +Me.TimedWriting.Text = "Timed Writing Tasks" +Me.TimedWriting.UseVisualStyleBackColor = true ' -'PBCurrent +'TypeSpeedSlider ' -Me.PBCurrent.Location = New System.Drawing.Point(15, 156) -Me.PBCurrent.Name = "PBCurrent" -Me.PBCurrent.Size = New System.Drawing.Size(376, 23) -Me.PBCurrent.TabIndex = 4 +Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) +Me.TypeSpeedSlider.Maximum = 100 +Me.TypeSpeedSlider.Minimum = 33 +Me.TypeSpeedSlider.Name = "TypeSpeedSlider" +Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) +Me.TypeSpeedSlider.TabIndex = 3 +Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed ' -'BTNMaintenanceCancel +'GroupBox68 ' -Me.BTNMaintenanceCancel.Enabled = false -Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) -Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" -Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceCancel.TabIndex = 3 -Me.BTNMaintenanceCancel.Text = "Cancel" -Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true +Me.GroupBox68.Controls.Add(Me.NBTasksMax) +Me.GroupBox68.Controls.Add(Me.NBTasksMin) +Me.GroupBox68.Controls.Add(Me.Label165) +Me.GroupBox68.Controls.Add(Me.Label166) +Me.GroupBox68.Location = New System.Drawing.Point(236, 287) +Me.GroupBox68.Name = "GroupBox68" +Me.GroupBox68.Size = New System.Drawing.Size(166, 51) +Me.GroupBox68.TabIndex = 172 +Me.GroupBox68.TabStop = false +Me.GroupBox68.Text = "Session Tasks" ' -'PBMaintenance +'NBTasksMax ' -Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) -Me.PBMaintenance.Name = "PBMaintenance" -Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) -Me.PBMaintenance.TabIndex = 2 +Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) +Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) +Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTasksMax.Name = "NBTasksMax" +Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMax.TabIndex = 187 +Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) ' -'LBLMaintenance +'NBTasksMin ' -Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) -Me.LBLMaintenance.Name = "LBLMaintenance" -Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) -Me.LBLMaintenance.TabIndex = 1 -Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) +Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) +Me.NBTasksMin.Name = "NBTasksMin" +Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) +Me.NBTasksMin.TabIndex = 186 +Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) ' -'BTNMaintenanceRebuild +'Label165 ' -Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) -Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" -Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRebuild.TabIndex = 0 -Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" -Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true +Me.Label165.BackColor = System.Drawing.Color.Transparent +Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label165.ForeColor = System.Drawing.Color.Black +Me.Label165.Location = New System.Drawing.Point(100, 20) +Me.Label165.Name = "Label165" +Me.Label165.Size = New System.Drawing.Size(10, 17) +Me.Label165.TabIndex = 185 +Me.Label165.Text = "-" +Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox15 +'Label166 ' -Me.GroupBox15.Controls.Add(Me.Label115) -Me.GroupBox15.Controls.Add(Me.TBWebStop) -Me.GroupBox15.Controls.Add(Me.TBWebStart) -Me.GroupBox15.Controls.Add(Me.Label114) -Me.GroupBox15.Controls.Add(Me.WebToy) -Me.GroupBox15.Location = New System.Drawing.Point(6, 268) -Me.GroupBox15.Name = "GroupBox15" -Me.GroupBox15.Size = New System.Drawing.Size(408, 159) -Me.GroupBox15.TabIndex = 173 -Me.GroupBox15.TabStop = false -Me.GroupBox15.Text = "Web-Controlled Sex Toy" +Me.Label166.BackColor = System.Drawing.Color.Transparent +Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label166.ForeColor = System.Drawing.Color.Black +Me.Label166.Location = New System.Drawing.Point(6, 21) +Me.Label166.Name = "Label166" +Me.Label166.Size = New System.Drawing.Size(49, 17) +Me.Label166.TabIndex = 188 +Me.Label166.Text = "Amount:" +Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label115 +'GroupBox67 ' -Me.Label115.AutoSize = true -Me.Label115.Location = New System.Drawing.Point(12, 58) -Me.Label115.Name = "Label115" -Me.Label115.Size = New System.Drawing.Size(54, 13) -Me.Label115.TabIndex = 171 -Me.Label115.Text = "Stop URL" +Me.GroupBox67.Controls.Add(Me.Label161) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) +Me.GroupBox67.Controls.Add(Me.Label162) +Me.GroupBox67.Controls.Add(Me.Label163) +Me.GroupBox67.Controls.Add(Me.Label158) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) +Me.GroupBox67.Controls.Add(Me.Label159) +Me.GroupBox67.Controls.Add(Me.Label160) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) +Me.GroupBox67.Controls.Add(Me.Label119) +Me.GroupBox67.Controls.Add(Me.Label157) +Me.GroupBox67.Controls.Add(Me.Label151) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) +Me.GroupBox67.Controls.Add(Me.Label154) +Me.GroupBox67.Controls.Add(Me.Label155) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) +Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) +Me.GroupBox67.Controls.Add(Me.Label146) +Me.GroupBox67.Controls.Add(Me.Label149) +Me.GroupBox67.Location = New System.Drawing.Point(408, 288) +Me.GroupBox67.Name = "GroupBox67" +Me.GroupBox67.Size = New System.Drawing.Size(291, 139) +Me.GroupBox67.TabIndex = 171 +Me.GroupBox67.TabStop = false +Me.GroupBox67.Text = "Letter Tasks" ' -'TBWebStop +'Label161 ' -Me.TBWebStop.Location = New System.Drawing.Point(10, 72) -Me.TBWebStop.Name = "TBWebStop" -Me.TBWebStop.Size = New System.Drawing.Size(381, 20) -Me.TBWebStop.TabIndex = 170 +Me.Label161.BackColor = System.Drawing.Color.Transparent +Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label161.ForeColor = System.Drawing.Color.Black +Me.Label161.Location = New System.Drawing.Point(233, 110) +Me.Label161.Name = "Label161" +Me.Label161.Size = New System.Drawing.Size(50, 17) +Me.Label161.TabIndex = 204 +Me.Label161.Text = "minutes" +Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBWebStart +'NBTaskCBTTimeMax ' -Me.TBWebStart.Location = New System.Drawing.Point(10, 33) -Me.TBWebStart.Name = "TBWebStart" -Me.TBWebStart.Size = New System.Drawing.Size(381, 20) -Me.TBWebStart.TabIndex = 167 +Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) +Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" +Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMax.TabIndex = 203 +Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax ' -'Label114 +'NBTaskCBTTimeMin ' -Me.Label114.AutoSize = true -Me.Label114.Location = New System.Drawing.Point(12, 17) -Me.Label114.Name = "Label114" -Me.Label114.Size = New System.Drawing.Size(54, 13) -Me.Label114.TabIndex = 168 -Me.Label114.Text = "Start URL" +Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) +Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" +Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskCBTTimeMin.TabIndex = 202 +Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin ' -'WebToy +'Label162 ' -Me.WebToy.Location = New System.Drawing.Point(346, 33) -Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) -Me.WebToy.Name = "WebToy" -Me.WebToy.Size = New System.Drawing.Size(45, 59) -Me.WebToy.TabIndex = 172 +Me.Label162.BackColor = System.Drawing.Color.Transparent +Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label162.ForeColor = System.Drawing.Color.Black +Me.Label162.Location = New System.Drawing.Point(167, 110) +Me.Label162.Name = "Label162" +Me.Label162.Size = New System.Drawing.Size(10, 17) +Me.Label162.TabIndex = 201 +Me.Label162.Text = "-" +Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'PictureBox9 +'Label163 ' -Me.PictureBox9.BackColor = System.Drawing.Color.LightGray -Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox9.Location = New System.Drawing.Point(9, 6) -Me.PictureBox9.Name = "PictureBox9" -Me.PictureBox9.Size = New System.Drawing.Size(160, 19) -Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox9.TabIndex = 166 -Me.PictureBox9.TabStop = false +Me.Label163.BackColor = System.Drawing.Color.Transparent +Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label163.ForeColor = System.Drawing.Color.Black +Me.Label163.Location = New System.Drawing.Point(12, 111) +Me.Label163.Name = "Label163" +Me.Label163.Size = New System.Drawing.Size(151, 17) +Me.Label163.TabIndex = 200 +Me.Label163.Text = "CBT Time:" +Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label148 +'Label158 ' -Me.Label148.BackColor = System.Drawing.Color.Transparent -Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label148.ForeColor = System.Drawing.Color.Black -Me.Label148.Location = New System.Drawing.Point(7, 6) -Me.Label148.Name = "Label148" -Me.Label148.Size = New System.Drawing.Size(692, 21) -Me.Label148.TabIndex = 48 -Me.Label148.Text = "Miscellaneous Settings" -Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label158.BackColor = System.Drawing.Color.Transparent +Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label158.ForeColor = System.Drawing.Color.Black +Me.Label158.Location = New System.Drawing.Point(233, 87) +Me.Label158.Name = "Label158" +Me.Label158.Size = New System.Drawing.Size(50, 17) +Me.Label158.TabIndex = 199 +Me.Label158.Text = "minutes" +Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TabPage28 +'NBTaskEdgeHoldTimeMax ' -Me.TabPage28.BackColor = System.Drawing.Color.Silver -Me.TabPage28.Controls.Add(Me.TabControl3) -Me.TabPage28.Location = New System.Drawing.Point(4, 22) -Me.TabPage28.Name = "TabPage28" -Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage28.Size = New System.Drawing.Size(720, 448) -Me.TabPage28.TabIndex = 20 -Me.TabPage28.Text = "Debug" +Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) +Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" +Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 +Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax ' -'TabControl3 +'NBTaskEdgeHoldTimeMin ' -Me.TabControl3.Controls.Add(Me.TabPage29) -Me.TabControl3.Controls.Add(Me.TabPage30) -Me.TabControl3.Location = New System.Drawing.Point(6, 6) -Me.TabControl3.Name = "TabControl3" -Me.TabControl3.SelectedIndex = 0 -Me.TabControl3.Size = New System.Drawing.Size(708, 437) -Me.TabControl3.TabIndex = 0 +Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) +Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" +Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 +Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin ' -'TabPage29 +'Label159 ' -Me.TabPage29.BackColor = System.Drawing.Color.LightGray -Me.TabPage29.Controls.Add(Me.Label143) -Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) -Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) -Me.TabPage29.Controls.Add(Me.GroupBox26) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) -Me.TabPage29.Controls.Add(Me.Label145) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) -Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) -Me.TabPage29.Controls.Add(Me.Label142) -Me.TabPage29.Controls.Add(Me.Label150) -Me.TabPage29.Controls.Add(Me.Label152) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) -Me.TabPage29.Controls.Add(Me.Label147) -Me.TabPage29.Location = New System.Drawing.Point(4, 22) -Me.TabPage29.Name = "TabPage29" -Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage29.Size = New System.Drawing.Size(700, 411) -Me.TabPage29.TabIndex = 0 -Me.TabPage29.Text = "TabPage29" +Me.Label159.BackColor = System.Drawing.Color.Transparent +Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label159.ForeColor = System.Drawing.Color.Black +Me.Label159.Location = New System.Drawing.Point(167, 87) +Me.Label159.Name = "Label159" +Me.Label159.Size = New System.Drawing.Size(10, 17) +Me.Label159.TabIndex = 196 +Me.Label159.Text = "-" +Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label143 +'Label160 ' -Me.Label143.Location = New System.Drawing.Point(402, 46) -Me.Label143.Name = "Label143" -Me.Label143.Size = New System.Drawing.Size(67, 23) -Me.Label143.TabIndex = 15 -Me.Label143.Text = "Script Timer" -Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label160.BackColor = System.Drawing.Color.Transparent +Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label160.ForeColor = System.Drawing.Color.Black +Me.Label160.Location = New System.Drawing.Point(12, 88) +Me.Label160.Name = "Label160" +Me.Label160.Size = New System.Drawing.Size(151, 17) +Me.Label160.TabIndex = 195 +Me.Label160.Text = "Edge Hold Time:" +Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLDebugScriptTime +'NBTaskEdgesMax ' -Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) -Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" -Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugScriptTime.TabIndex = 16 -Me.LBLDebugScriptTime.Text = "0" -Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) +Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) +Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" +Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMax.TabIndex = 194 +Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax ' -'BTNDebugHoldEdgeTimer +'NBTaskEdgesMin ' -Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) -Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" -Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugHoldEdgeTimer.TabIndex = 14 -Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" -Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true +Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) +Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" +Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskEdgesMin.TabIndex = 193 +Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin ' -'GroupBox26 +'Label119 ' -Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) -Me.GroupBox26.Controls.Add(Me.Button19) -Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) -Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) -Me.GroupBox26.Location = New System.Drawing.Point(6, 5) -Me.GroupBox26.Name = "GroupBox26" -Me.GroupBox26.Size = New System.Drawing.Size(346, 178) -Me.GroupBox26.TabIndex = 0 -Me.GroupBox26.TabStop = false -Me.GroupBox26.Text = "Taunt Cycle" +Me.Label119.BackColor = System.Drawing.Color.Transparent +Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label119.ForeColor = System.Drawing.Color.Black +Me.Label119.Location = New System.Drawing.Point(167, 64) +Me.Label119.Name = "Label119" +Me.Label119.Size = New System.Drawing.Size(10, 17) +Me.Label119.TabIndex = 192 +Me.Label119.Text = "-" +Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLCycleDebugCountdown +'Label157 ' -Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) -Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" -Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) -Me.LBLCycleDebugCountdown.TabIndex = 10 -Me.LBLCycleDebugCountdown.Text = "0" -Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label157.BackColor = System.Drawing.Color.Transparent +Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label157.ForeColor = System.Drawing.Color.Black +Me.Label157.Location = New System.Drawing.Point(12, 65) +Me.Label157.Name = "Label157" +Me.Label157.Size = New System.Drawing.Size(151, 17) +Me.Label157.TabIndex = 191 +Me.Label157.Text = "Edges:" +Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button19 +'Label151 ' -Me.Button19.Location = New System.Drawing.Point(191, 142) -Me.Button19.Name = "Button19" -Me.Button19.Size = New System.Drawing.Size(146, 30) -Me.Button19.TabIndex = 9 -Me.Button19.Text = "Countdown to 5 Seconds" -Me.Button19.UseVisualStyleBackColor = true +Me.Label151.BackColor = System.Drawing.Color.Transparent +Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label151.ForeColor = System.Drawing.Color.Black +Me.Label151.Location = New System.Drawing.Point(233, 41) +Me.Label151.Name = "Label151" +Me.Label151.Size = New System.Drawing.Size(50, 17) +Me.Label151.TabIndex = 190 +Me.Label151.Text = "minutes" +Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNDebugTauntsClear +'NBTaskStrokingTimeMax ' -Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) -Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" -Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) -Me.BTNDebugTauntsClear.TabIndex = 8 -Me.BTNDebugTauntsClear.Text = "Clear" -Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true +Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) +Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" +Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMax.TabIndex = 189 +Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax ' -'TBDebugTaunts3 +'NBTaskStrokingTimeMin ' -Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) -Me.TBDebugTaunts3.Name = "TBDebugTaunts3" -Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts3.TabIndex = 7 +Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) +Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" +Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokingTimeMin.TabIndex = 188 +Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin ' -'TBDebugTaunts2 +'Label154 ' -Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) -Me.TBDebugTaunts2.Name = "TBDebugTaunts2" -Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts2.TabIndex = 6 +Me.Label154.BackColor = System.Drawing.Color.Transparent +Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label154.ForeColor = System.Drawing.Color.Black +Me.Label154.Location = New System.Drawing.Point(167, 41) +Me.Label154.Name = "Label154" +Me.Label154.Size = New System.Drawing.Size(10, 17) +Me.Label154.TabIndex = 187 +Me.Label154.Text = "-" +Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TBDebugTaunts1 +'Label155 ' -Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) -Me.TBDebugTaunts1.Name = "TBDebugTaunts1" -Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts1.TabIndex = 5 +Me.Label155.BackColor = System.Drawing.Color.Transparent +Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label155.ForeColor = System.Drawing.Color.Black +Me.Label155.Location = New System.Drawing.Point(12, 42) +Me.Label155.Name = "Label155" +Me.Label155.Size = New System.Drawing.Size(151, 17) +Me.Label155.TabIndex = 186 +Me.Label155.Text = "Stroking Time:" +Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'RBDebugTaunts3 +'NBTaskStrokesMax ' -Me.RBDebugTaunts3.AutoSize = true -Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) -Me.RBDebugTaunts3.Name = "RBDebugTaunts3" -Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts3.TabIndex = 4 -Me.RBDebugTaunts3.Text = "3 Lines" -Me.RBDebugTaunts3.UseVisualStyleBackColor = true +Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) +Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" +Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMax.TabIndex = 184 +Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax ' -'RBDebugTaunts2 +'NBTaskStrokesMin ' -Me.RBDebugTaunts2.AutoSize = true -Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) -Me.RBDebugTaunts2.Name = "RBDebugTaunts2" -Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts2.TabIndex = 3 -Me.RBDebugTaunts2.Text = "2 Lines" -Me.RBDebugTaunts2.UseVisualStyleBackColor = true +Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) +Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) +Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" +Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) +Me.NBTaskStrokesMin.TabIndex = 183 +Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin ' -'RBDebugTaunts1 +'Label146 ' -Me.RBDebugTaunts1.AutoSize = true -Me.RBDebugTaunts1.Checked = true -Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) -Me.RBDebugTaunts1.Name = "RBDebugTaunts1" -Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) -Me.RBDebugTaunts1.TabIndex = 2 -Me.RBDebugTaunts1.TabStop = true -Me.RBDebugTaunts1.Text = "1 Line" -Me.RBDebugTaunts1.UseVisualStyleBackColor = true +Me.Label146.BackColor = System.Drawing.Color.Transparent +Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label146.ForeColor = System.Drawing.Color.Black +Me.Label146.Location = New System.Drawing.Point(167, 18) +Me.Label146.Name = "Label146" +Me.Label146.Size = New System.Drawing.Size(10, 17) +Me.Label146.TabIndex = 182 +Me.Label146.Text = "-" +Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBDebugTauntsEndless +'Label149 ' -Me.CBDebugTauntsEndless.AutoSize = true -Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) -Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" -Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) -Me.CBDebugTauntsEndless.TabIndex = 1 -Me.CBDebugTauntsEndless.Text = "Endless Cycle" -Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true +Me.Label149.BackColor = System.Drawing.Color.Transparent +Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label149.ForeColor = System.Drawing.Color.Black +Me.Label149.Location = New System.Drawing.Point(12, 19) +Me.Label149.Name = "Label149" +Me.Label149.Size = New System.Drawing.Size(151, 17) +Me.Label149.TabIndex = 181 +Me.Label149.Text = "Strokes:" +Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBDebugTaunts +'GroupBox10 ' -Me.CBDebugTaunts.AutoSize = true -Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) -Me.CBDebugTaunts.Name = "CBDebugTaunts" -Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) -Me.CBDebugTaunts.TabIndex = 0 -Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" -Me.CBDebugTaunts.UseVisualStyleBackColor = true +Me.GroupBox10.Controls.Add(Me.Label112) +Me.GroupBox10.Controls.Add(Me.NBNextImageChance) +Me.GroupBox10.Controls.Add(Me.Label6) +Me.GroupBox10.Location = New System.Drawing.Point(408, 31) +Me.GroupBox10.Name = "GroupBox10" +Me.GroupBox10.Size = New System.Drawing.Size(291, 54) +Me.GroupBox10.TabIndex = 170 +Me.GroupBox10.TabStop = false +Me.GroupBox10.Text = "Tease Slideshow" ' -'BTNDebugStrokeTauntTimer +'Label112 ' -Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) -Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" -Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTauntTimer.TabIndex = 8 -Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" -Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true +Me.Label112.BackColor = System.Drawing.Color.Transparent +Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label112.ForeColor = System.Drawing.Color.Black +Me.Label112.Location = New System.Drawing.Point(233, 21) +Me.Label112.Name = "Label112" +Me.Label112.Size = New System.Drawing.Size(50, 17) +Me.Label112.TabIndex = 180 +Me.Label112.Text = "percent" +Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLDebugHoldEdgeTime +'NBNextImageChance ' -Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) -Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" -Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugHoldEdgeTime.TabIndex = 13 -Me.LBLDebugHoldEdgeTime.Text = "0" -Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) +Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBNextImageChance.Name = "NBNextImageChance" +Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) +Me.NBNextImageChance.TabIndex = 179 +Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'Label145 +'Label6 ' -Me.Label145.Location = New System.Drawing.Point(402, 11) -Me.Label145.Name = "Label145" -Me.Label145.Size = New System.Drawing.Size(67, 23) -Me.Label145.TabIndex = 3 -Me.Label145.Text = "Tease Timer" -Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label6.BackColor = System.Drawing.Color.Transparent +Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label6.ForeColor = System.Drawing.Color.Black +Me.Label6.Location = New System.Drawing.Point(9, 21) +Me.Label6.Name = "Label6" +Me.Label6.Size = New System.Drawing.Size(151, 17) +Me.Label6.TabIndex = 154 +Me.Label6.Text = "Image Next/Previous Chance:" +Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'BTNDebugStrokeTime +'GroupBox57 ' -Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) -Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" -Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTime.TabIndex = 2 -Me.BTNDebugStrokeTime.Text = "Set to 5" -Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true +Me.GroupBox57.Controls.Add(Me.Label139) +Me.GroupBox57.Controls.Add(Me.NBTauntEdging) +Me.GroupBox57.Controls.Add(Me.LBLVtf) +Me.GroupBox57.Controls.Add(Me.LBLStf) +Me.GroupBox57.Controls.Add(Me.SliderSTF) +Me.GroupBox57.Controls.Add(Me.TauntSlider) +Me.GroupBox57.Controls.Add(Me.Label106) +Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) +Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) +Me.GroupBox57.Controls.Add(Me.Label103) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) +Me.GroupBox57.Controls.Add(Me.Label105) +Me.GroupBox57.Controls.Add(Me.Label101) +Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) +Me.GroupBox57.Controls.Add(Me.Label102) +Me.GroupBox57.Controls.Add(Me.Label97) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) +Me.GroupBox57.Controls.Add(Me.Label99) +Me.GroupBox57.Controls.Add(Me.Label96) +Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) +Me.GroupBox57.Controls.Add(Me.Label95) +Me.GroupBox57.Controls.Add(Me.Label49) +Me.GroupBox57.Controls.Add(Me.Label141) +Me.GroupBox57.Location = New System.Drawing.Point(7, 30) +Me.GroupBox57.Name = "GroupBox57" +Me.GroupBox57.Size = New System.Drawing.Size(223, 308) +Me.GroupBox57.TabIndex = 169 +Me.GroupBox57.TabStop = false +Me.GroupBox57.Text = "Tease" ' -'BTNDebugEdgeTauntTimer +'Label139 ' -Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) -Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" -Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugEdgeTauntTimer.TabIndex = 11 -Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" -Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true +Me.Label139.BackColor = System.Drawing.Color.Transparent +Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label139.ForeColor = System.Drawing.Color.Black +Me.Label139.Location = New System.Drawing.Point(175, 171) +Me.Label139.Name = "Label139" +Me.Label139.Size = New System.Drawing.Size(50, 17) +Me.Label139.TabIndex = 184 +Me.Label139.Text = "percent" +Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLDebugTeaseTime +'NBTauntEdging ' -Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) -Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" -Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugTeaseTime.TabIndex = 4 -Me.LBLDebugTeaseTime.Text = "0" -Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) +Me.NBTauntEdging.Name = "NBTauntEdging" +Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) +Me.NBTauntEdging.TabIndex = 188 +Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) ' -'LBLDebugStrokeTime +'LBLVtf ' -Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) -Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" -Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTime.TabIndex = 1 -Me.LBLDebugStrokeTime.Text = "0" -Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLVtf.BackColor = System.Drawing.Color.Transparent +Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLVtf.ForeColor = System.Drawing.Color.Black +Me.LBLVtf.Location = New System.Drawing.Point(128, 261) +Me.LBLVtf.Name = "LBLVtf" +Me.LBLVtf.Size = New System.Drawing.Size(87, 17) +Me.LBLVtf.TabIndex = 187 +Me.LBLVtf.Text = "Normal" +Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLDebugEdgeTauntTime +'LBLStf ' -Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) -Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" -Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugEdgeTauntTime.TabIndex = 10 -Me.LBLDebugEdgeTauntTime.Text = "0" -Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLStf.BackColor = System.Drawing.Color.Transparent +Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLStf.ForeColor = System.Drawing.Color.Black +Me.LBLStf.Location = New System.Drawing.Point(130, 220) +Me.LBLStf.Name = "LBLStf" +Me.LBLStf.Size = New System.Drawing.Size(87, 17) +Me.LBLStf.TabIndex = 165 +Me.LBLStf.Text = "Normal" +Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'BTNDebugTeaseTimer +'SliderSTF ' -Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) -Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" -Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugTeaseTimer.TabIndex = 5 -Me.BTNDebugTeaseTimer.Text = "Set to 5" -Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true +Me.SliderSTF.AutoSize = false +Me.SliderSTF.LargeChange = 1 +Me.SliderSTF.Location = New System.Drawing.Point(130, 199) +Me.SliderSTF.Maximum = 5 +Me.SliderSTF.Minimum = 1 +Me.SliderSTF.Name = "SliderSTF" +Me.SliderSTF.Size = New System.Drawing.Size(87, 25) +Me.SliderSTF.TabIndex = 163 +Me.SliderSTF.Value = 3 ' -'Label142 +'TauntSlider ' -Me.Label142.Location = New System.Drawing.Point(402, 121) -Me.Label142.Name = "Label142" -Me.Label142.Size = New System.Drawing.Size(67, 23) -Me.Label142.TabIndex = 0 -Me.Label142.Text = "Stroke Timer" -Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.TauntSlider.AutoSize = false +Me.TauntSlider.LargeChange = 1 +Me.TauntSlider.Location = New System.Drawing.Point(130, 240) +Me.TauntSlider.Maximum = 9 +Me.TauntSlider.Minimum = 1 +Me.TauntSlider.Name = "TauntSlider" +Me.TauntSlider.Size = New System.Drawing.Size(87, 25) +Me.TauntSlider.TabIndex = 161 +Me.TauntSlider.Value = 4 ' -'Label150 +'Label106 ' -Me.Label150.Location = New System.Drawing.Point(402, 206) -Me.Label150.Name = "Label150" -Me.Label150.Size = New System.Drawing.Size(67, 27) -Me.Label150.TabIndex = 9 -Me.Label150.Text = "Edge Taunt Timer" -Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label106.BackColor = System.Drawing.Color.Transparent +Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label106.ForeColor = System.Drawing.Color.Black +Me.Label106.Location = New System.Drawing.Point(6, 243) +Me.Label106.Name = "Label106" +Me.Label106.Size = New System.Drawing.Size(123, 17) +Me.Label106.TabIndex = 186 +Me.Label106.Text = "Video Taunt Frequency:" +Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label152 +'CBTauntCycleDD ' -Me.Label152.Location = New System.Drawing.Point(402, 238) -Me.Label152.Name = "Label152" -Me.Label152.Size = New System.Drawing.Size(67, 40) -Me.Label152.TabIndex = 12 -Me.Label152.Text = "Hold Edge Timer" -Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTauntCycleDD.AutoSize = true +Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black +Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) +Me.CBTauntCycleDD.Name = "CBTauntCycleDD" +Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) +Me.CBTauntCycleDD.TabIndex = 185 +Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" +Me.CBTauntCycleDD.UseVisualStyleBackColor = true ' -'LBLDebugStrokeTauntTime +'CBTeaseLengthDD ' -Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) -Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" -Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTauntTime.TabIndex = 7 -Me.LBLDebugStrokeTauntTime.Text = "0" -Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.CBTeaseLengthDD.AutoSize = true +Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black +Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) +Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" +Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) +Me.CBTeaseLengthDD.TabIndex = 184 +Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" +Me.CBTeaseLengthDD.UseVisualStyleBackColor = true ' -'Label147 +'Label103 ' -Me.Label147.Location = New System.Drawing.Point(402, 143) -Me.Label147.Name = "Label147" -Me.Label147.Size = New System.Drawing.Size(67, 29) -Me.Label147.TabIndex = 6 -Me.Label147.Text = "Stroke Taunt Timer" -Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label103.BackColor = System.Drawing.Color.Transparent +Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label103.ForeColor = System.Drawing.Color.Black +Me.Label103.Location = New System.Drawing.Point(175, 117) +Me.Label103.Name = "Label103" +Me.Label103.Size = New System.Drawing.Size(50, 17) +Me.Label103.TabIndex = 183 +Me.Label103.Text = "minutes" +Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TabPage30 +'NBTauntCycleMax ' -Me.TabPage30.BackColor = System.Drawing.Color.LightGray -Me.TabPage30.Controls.Add(Me.Button33) -Me.TabPage30.Controls.Add(Me.Button24) -Me.TabPage30.Location = New System.Drawing.Point(4, 22) -Me.TabPage30.Name = "TabPage30" -Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage30.Size = New System.Drawing.Size(700, 411) -Me.TabPage30.TabIndex = 1 -Me.TabPage30.Text = "TabPage30" +Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) +Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) +Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) +Me.NBTauntCycleMax.Name = "NBTauntCycleMax" +Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMax.TabIndex = 182 +Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -'Button33 +'Label105 ' -Me.Button33.Location = New System.Drawing.Point(6, 35) -Me.Button33.Name = "Button33" -Me.Button33.Size = New System.Drawing.Size(75, 23) -Me.Button33.TabIndex = 1 -Me.Button33.Text = "LoadState" -Me.Button33.UseVisualStyleBackColor = true +Me.Label105.BackColor = System.Drawing.Color.Transparent +Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label105.ForeColor = System.Drawing.Color.Black +Me.Label105.Location = New System.Drawing.Point(6, 117) +Me.Label105.Name = "Label105" +Me.Label105.Size = New System.Drawing.Size(123, 17) +Me.Label105.TabIndex = 181 +Me.Label105.Text = "Taunt Cycle Maximum:" +Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Button24 +'Label101 ' -Me.Button24.Location = New System.Drawing.Point(6, 6) -Me.Button24.Name = "Button24" -Me.Button24.Size = New System.Drawing.Size(75, 23) -Me.Button24.TabIndex = 0 -Me.Button24.Text = "SaveState" -Me.Button24.UseVisualStyleBackColor = true +Me.Label101.BackColor = System.Drawing.Color.Transparent +Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label101.ForeColor = System.Drawing.Color.Black +Me.Label101.Location = New System.Drawing.Point(175, 93) +Me.Label101.Name = "Label101" +Me.Label101.Size = New System.Drawing.Size(50, 17) +Me.Label101.TabIndex = 180 +Me.Label101.Text = "minutes" +Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'TabPage5 +'NBTauntCycleMin ' -Me.TabPage5.BackColor = System.Drawing.Color.Silver -Me.TabPage5.Controls.Add(Me.Panel5) -Me.TabPage5.Location = New System.Drawing.Point(4, 22) -Me.TabPage5.Name = "TabPage5" -Me.TabPage5.Size = New System.Drawing.Size(720, 448) -Me.TabPage5.TabIndex = 17 -Me.TabPage5.Text = "About" +Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) +Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBTauntCycleMin.Name = "NBTauntCycleMin" +Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) +Me.NBTauntCycleMin.TabIndex = 179 +Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' -'Panel5 +'Label102 ' -Me.Panel5.BackColor = System.Drawing.Color.LightGray -Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel5.Controls.Add(Me.Label130) -Me.Panel5.Controls.Add(Me.Label123) -Me.Panel5.Controls.Add(Me.Label69) -Me.Panel5.Controls.Add(Me.Label113) -Me.Panel5.Controls.Add(Me.Label40) -Me.Panel5.Controls.Add(Me.Label35) -Me.Panel5.Controls.Add(Me.Label33) -Me.Panel5.Controls.Add(Me.Label17) -Me.Panel5.Controls.Add(Me.Label3) -Me.Panel5.Controls.Add(Me.PictureBox3) -Me.Panel5.Controls.Add(Me.Label41) -Me.Panel5.Location = New System.Drawing.Point(6, 6) -Me.Panel5.Name = "Panel5" -Me.Panel5.Size = New System.Drawing.Size(708, 437) -Me.Panel5.TabIndex = 92 +Me.Label102.BackColor = System.Drawing.Color.Transparent +Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label102.ForeColor = System.Drawing.Color.Black +Me.Label102.Location = New System.Drawing.Point(6, 93) +Me.Label102.Name = "Label102" +Me.Label102.Size = New System.Drawing.Size(123, 17) +Me.Label102.TabIndex = 178 +Me.Label102.Text = "Taunt Cycle Minimum:" +Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label130 +'Label97 ' -Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label130.Location = New System.Drawing.Point(361, 314) -Me.Label130.Name = "Label130" -Me.Label130.Size = New System.Drawing.Size(254, 54) -Me.Label130.TabIndex = 176 -Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label97.BackColor = System.Drawing.Color.Transparent +Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label97.ForeColor = System.Drawing.Color.Black +Me.Label97.Location = New System.Drawing.Point(175, 46) +Me.Label97.Name = "Label97" +Me.Label97.Size = New System.Drawing.Size(50, 17) +Me.Label97.TabIndex = 177 +Me.Label97.Text = "minutes" +Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label123 +'NBTeaseLengthMax ' -Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label123.Location = New System.Drawing.Point(81, 314) -Me.Label123.Name = "Label123" -Me.Label123.Size = New System.Drawing.Size(254, 54) -Me.Label123.TabIndex = 175 -Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" -Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) +Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {1440, 0, 0, 0}) +Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) +Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" +Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMax.TabIndex = 176 +Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'Label69 +'Label99 ' -Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label69.Location = New System.Drawing.Point(35, 295) -Me.Label69.Name = "Label69" -Me.Label69.Size = New System.Drawing.Size(638, 22) -Me.Label69.TabIndex = 174 -Me.Label69.Text = "Triple Alfa" -Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label99.BackColor = System.Drawing.Color.Transparent +Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label99.ForeColor = System.Drawing.Color.Black +Me.Label99.Location = New System.Drawing.Point(6, 46) +Me.Label99.Name = "Label99" +Me.Label99.Size = New System.Drawing.Size(123, 17) +Me.Label99.TabIndex = 175 +Me.Label99.Text = "Tease Length Maximum:" +Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label113 +'Label96 ' -Me.Label113.AutoSize = true -Me.Label113.Location = New System.Drawing.Point(4, 417) -Me.Label113.Name = "Label113" -Me.Label113.Size = New System.Drawing.Size(452, 13) -Me.Label113.TabIndex = 173 -Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ - "pective owners." +Me.Label96.BackColor = System.Drawing.Color.Transparent +Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label96.ForeColor = System.Drawing.Color.Black +Me.Label96.Location = New System.Drawing.Point(175, 20) +Me.Label96.Name = "Label96" +Me.Label96.Size = New System.Drawing.Size(50, 17) +Me.Label96.TabIndex = 174 +Me.Label96.Text = "minutes" +Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label40 +'NBTeaseLengthMin ' -Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label40.Location = New System.Drawing.Point(35, 273) -Me.Label40.Name = "Label40" -Me.Label40.Size = New System.Drawing.Size(638, 24) -Me.Label40.TabIndex = 171 -Me.Label40.Text = "Special Thanks" -Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) +Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) +Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" +Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) +Me.NBTeaseLengthMin.TabIndex = 169 +Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) ' -'Label35 +'Label95 ' -Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label35.Location = New System.Drawing.Point(32, 107) -Me.Label35.Name = "Label35" -Me.Label35.Size = New System.Drawing.Size(641, 77) -Me.Label35.TabIndex = 170 -Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ - "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ - "dditional files separately." -Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label95.BackColor = System.Drawing.Color.Transparent +Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label95.ForeColor = System.Drawing.Color.Black +Me.Label95.Location = New System.Drawing.Point(6, 20) +Me.Label95.Name = "Label95" +Me.Label95.Size = New System.Drawing.Size(123, 17) +Me.Label95.TabIndex = 166 +Me.Label95.Text = "Tease Length Minimum:" +Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label33 +'Label49 ' -Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label33.Location = New System.Drawing.Point(32, 191) -Me.Label33.Name = "Label33" -Me.Label33.Size = New System.Drawing.Size(641, 77) -Me.Label33.TabIndex = 169 -Me.Label33.Text = resources.GetString("Label33.Text") -Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.Label49.BackColor = System.Drawing.Color.Transparent +Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label49.ForeColor = System.Drawing.Color.Black +Me.Label49.Location = New System.Drawing.Point(6, 207) +Me.Label49.Name = "Label49" +Me.Label49.Size = New System.Drawing.Size(132, 17) +Me.Label49.TabIndex = 164 +Me.Label49.Text = "Stroke Taunt Frequency:" +Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label17 +'Label141 ' -Me.Label17.AutoSize = true -Me.Label17.Location = New System.Drawing.Point(522, 78) -Me.Label17.Name = "Label17" -Me.Label17.Size = New System.Drawing.Size(93, 13) -Me.Label17.TabIndex = 168 -Me.Label17.Text = "Designed by 1885" +Me.Label141.BackColor = System.Drawing.Color.Transparent +Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label141.ForeColor = System.Drawing.Color.Black +Me.Label141.Location = New System.Drawing.Point(6, 163) +Me.Label141.Name = "Label141" +Me.Label141.Size = New System.Drawing.Size(141, 32) +Me.Label141.TabIndex = 189 +Me.Label141.Text = "Edging Ends Taunts:" +Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label3 +'GBRangeRuinChance ' -Me.Label3.AutoSize = true -Me.Label3.Location = New System.Drawing.Point(489, 417) -Me.Label3.Name = "Label3" -Me.Label3.Size = New System.Drawing.Size(215, 13) -Me.Label3.TabIndex = 167 -Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" +Me.GBRangeRuinChance.Controls.Add(Me.Label90) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) +Me.GBRangeRuinChance.Controls.Add(Me.Label91) +Me.GBRangeRuinChance.Controls.Add(Me.Label92) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) +Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) +Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) +Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) +Me.GBRangeRuinChance.Name = "GBRangeRuinChance" +Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeRuinChance.TabIndex = 168 +Me.GBRangeRuinChance.TabStop = false +Me.GBRangeRuinChance.Text = "Ruin Chance" ' -'PictureBox3 +'Label90 ' -Me.PictureBox3.BackColor = System.Drawing.Color.LightGray -Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big -Me.PictureBox3.Location = New System.Drawing.Point(84, 17) -Me.PictureBox3.Name = "PictureBox3" -Me.PictureBox3.Size = New System.Drawing.Size(531, 58) -Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PictureBox3.TabIndex = 166 -Me.PictureBox3.TabStop = false +Me.Label90.BackColor = System.Drawing.Color.Transparent +Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label90.ForeColor = System.Drawing.Color.Black +Me.Label90.Location = New System.Drawing.Point(6, 94) +Me.Label90.Name = "Label90" +Me.Label90.Size = New System.Drawing.Size(83, 17) +Me.Label90.TabIndex = 173 +Me.Label90.Text = "Rarely Ruins:" +Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label41 +'NBRuinSometimes ' -Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label41.Location = New System.Drawing.Point(35, 372) -Me.Label41.Name = "Label41" -Me.Label41.Size = New System.Drawing.Size(638, 39) -Me.Label41.TabIndex = 172 -Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ - "nity who's been supportive of my work over the years. Tease AI exists because of"& _ - " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter +Me.NBRuinSometimes.Enabled = false +Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinSometimes.Name = "NBRuinSometimes" +Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBRuinSometimes.TabIndex = 169 +Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -'BtnRandomImageDirClear +'Label91 ' -Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) -Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" -Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnRandomImageDirClear.TabIndex = 181 -Me.BtnRandomImageDirClear.Text = "Clear" -Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false +Me.Label91.BackColor = System.Drawing.Color.Transparent +Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label91.ForeColor = System.Drawing.Color.Black +Me.Label91.Location = New System.Drawing.Point(6, 68) +Me.Label91.Name = "Label91" +Me.Label91.Size = New System.Drawing.Size(102, 17) +Me.Label91.TabIndex = 172 +Me.Label91.Text = "Sometimes Ruins:" +Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox47 +'Label92 ' -Me.GroupBox47.BackColor = System.Drawing.Color.LightGray -Me.GroupBox47.Controls.Add(Me.GroupBox41) -Me.GroupBox47.Controls.Add(Me.GroupBox40) -Me.GroupBox47.ForeColor = System.Drawing.Color.Black -Me.GroupBox47.Location = New System.Drawing.Point(806, 255) -Me.GroupBox47.Name = "GroupBox47" -Me.GroupBox47.Size = New System.Drawing.Size(310, 190) -Me.GroupBox47.TabIndex = 63 -Me.GroupBox47.TabStop = false -Me.GroupBox47.Text = "Boobs and Butts Paths" +Me.Label92.BackColor = System.Drawing.Color.Transparent +Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label92.ForeColor = System.Drawing.Color.Black +Me.Label92.Location = New System.Drawing.Point(6, 42) +Me.Label92.Name = "Label92" +Me.Label92.Size = New System.Drawing.Size(72, 17) +Me.Label92.TabIndex = 171 +Me.Label92.Text = "Often Ruins:" +Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox41 +'NBRuinRarely ' -Me.GroupBox41.Controls.Add(Me.Button34) -Me.GroupBox41.Location = New System.Drawing.Point(6, 110) -Me.GroupBox41.Name = "GroupBox41" -Me.GroupBox41.Size = New System.Drawing.Size(298, 74) -Me.GroupBox41.TabIndex = 153 -Me.GroupBox41.TabStop = false -Me.GroupBox41.Text = "Butts" +Me.NBRuinRarely.Enabled = false +Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) +Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinRarely.Name = "NBRuinRarely" +Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) +Me.NBRuinRarely.TabIndex = 170 +Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -'Button34 +'NBRuinOften ' -Me.Button34.BackColor = System.Drawing.Color.LightGray -Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.Button34.ForeColor = System.Drawing.Color.Black -Me.Button34.Location = New System.Drawing.Point(85, 25) -Me.Button34.Name = "Button34" -Me.Button34.Size = New System.Drawing.Size(34, 28) -Me.Button34.TabIndex = 131 -Me.Button34.Text = "1" -Me.Button34.UseVisualStyleBackColor = false +Me.NBRuinOften.Enabled = false +Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) +Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBRuinOften.Name = "NBRuinOften" +Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) +Me.NBRuinOften.TabIndex = 168 +Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) ' -'GroupBox40 +'CBRangeRuin ' -Me.GroupBox40.Location = New System.Drawing.Point(5, 35) -Me.GroupBox40.Name = "GroupBox40" -Me.GroupBox40.Size = New System.Drawing.Size(298, 74) -Me.GroupBox40.TabIndex = 152 -Me.GroupBox40.TabStop = false -Me.GroupBox40.Text = "Boobs" +Me.CBRangeRuin.AutoSize = true +Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black +Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) +Me.CBRangeRuin.Name = "CBRangeRuin" +Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) +Me.CBRangeRuin.TabIndex = 159 +Me.CBRangeRuin.Text = "Domme Decide" +Me.CBRangeRuin.UseVisualStyleBackColor = true ' -'GroupBox44 +'GroupBox17 ' -Me.GroupBox44.BackColor = System.Drawing.Color.LightGray -Me.GroupBox44.Controls.Add(Me.Label100) -Me.GroupBox44.ForeColor = System.Drawing.Color.Black -Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) -Me.GroupBox44.Name = "GroupBox44" -Me.GroupBox44.Size = New System.Drawing.Size(310, 92) -Me.GroupBox44.TabIndex = 65 -Me.GroupBox44.TabStop = false -Me.GroupBox44.Text = "Description" +Me.GroupBox17.Controls.Add(Me.GroupBox19) +Me.GroupBox17.Controls.Add(Me.GroupBox18) +Me.GroupBox17.Location = New System.Drawing.Point(408, 91) +Me.GroupBox17.Name = "GroupBox17" +Me.GroupBox17.Size = New System.Drawing.Size(291, 190) +Me.GroupBox17.TabIndex = 0 +Me.GroupBox17.TabStop = false +Me.GroupBox17.Text = "Video Teases" ' -'Label100 +'GroupBox19 ' -Me.Label100.BackColor = System.Drawing.Color.Transparent -Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label100.ForeColor = System.Drawing.Color.Black -Me.Label100.Location = New System.Drawing.Point(11, 16) -Me.Label100.Name = "Label100" -Me.Label100.Size = New System.Drawing.Size(286, 73) -Me.Label100.TabIndex = 62 -Me.Label100.Text = resources.GetString("Label100.Text") -Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox19.Controls.Add(Me.Label110) +Me.GroupBox19.Controls.Add(Me.Label111) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) +Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) +Me.GroupBox19.Controls.Add(Me.NBRedLightMax) +Me.GroupBox19.Controls.Add(Me.Label26) +Me.GroupBox19.Controls.Add(Me.NBRedLightMin) +Me.GroupBox19.Controls.Add(Me.Label28) +Me.GroupBox19.Controls.Add(Me.Label27) +Me.GroupBox19.Controls.Add(Me.Label29) +Me.GroupBox19.Location = New System.Drawing.Point(6, 110) +Me.GroupBox19.Name = "GroupBox19" +Me.GroupBox19.Size = New System.Drawing.Size(279, 66) +Me.GroupBox19.TabIndex = 2 +Me.GroupBox19.TabStop = false +Me.GroupBox19.Text = "Red Light, Green Light" ' -'GroupBox6 +'Label110 ' -Me.GroupBox6.Controls.Add(Me.Label4) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) -Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) -Me.GroupBox6.Controls.Add(Me.Label94) -Me.GroupBox6.Controls.Add(Me.LBLLastRuined) -Me.GroupBox6.Controls.Add(Me.Label65) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) -Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) -Me.GroupBox6.Controls.Add(Me.Label14) -Me.GroupBox6.Controls.Add(Me.Label13) -Me.GroupBox6.Controls.Add(Me.Label1) -Me.GroupBox6.Location = New System.Drawing.Point(27, 114) -Me.GroupBox6.Name = "GroupBox6" -Me.GroupBox6.Size = New System.Drawing.Size(283, 102) -Me.GroupBox6.TabIndex = 156 -Me.GroupBox6.TabStop = false -Me.GroupBox6.Text = "Performance" +Me.Label110.BackColor = System.Drawing.Color.Transparent +Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label110.ForeColor = System.Drawing.Color.Black +Me.Label110.Location = New System.Drawing.Point(227, 39) +Me.Label110.Name = "Label110" +Me.Label110.Size = New System.Drawing.Size(50, 17) +Me.Label110.TabIndex = 181 +Me.Label110.Text = "seconds" +Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label4 +'Label111 ' -Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label4.Location = New System.Drawing.Point(26, 16) -Me.Label4.Name = "Label4" -Me.Label4.Size = New System.Drawing.Size(77, 17) -Me.Label4.TabIndex = 147 -Me.Label4.Text = "Stroking Time" -Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label111.BackColor = System.Drawing.Color.Transparent +Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label111.ForeColor = System.Drawing.Color.Black +Me.Label111.Location = New System.Drawing.Point(227, 16) +Me.Label111.Name = "Label111" +Me.Label111.Size = New System.Drawing.Size(50, 17) +Me.Label111.TabIndex = 180 +Me.Label111.Text = "seconds" +Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLAvgEdgeStroking +'NBGreenLightMax ' -Me.LBLAvgEdgeStroking.AutoSize = true -Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) -Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" -Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeStroking.TabIndex = 144 -Me.LBLAvgEdgeStroking.Text = "00:00" -Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) +Me.NBGreenLightMax.Name = "NBGreenLightMax" +Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMax.TabIndex = 156 +Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) ' -'LBLStrokeTimeTotal +'NBGreenLightMin ' -Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) -Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" -Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) -Me.LBLStrokeTimeTotal.TabIndex = 148 -Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" -Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) +Me.NBGreenLightMin.Name = "NBGreenLightMin" +Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBGreenLightMin.TabIndex = 155 +Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) ' -'Label94 +'NBRedLightMax ' -Me.Label94.BackColor = System.Drawing.Color.Transparent -Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label94.ForeColor = System.Drawing.Color.Black -Me.Label94.Location = New System.Drawing.Point(189, 16) -Me.Label94.Name = "Label94" -Me.Label94.Size = New System.Drawing.Size(65, 17) -Me.Label94.TabIndex = 150 -Me.Label94.Text = "Last Ruined" -Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) +Me.NBRedLightMax.Name = "NBRedLightMax" +Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMax.TabIndex = 152 +Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) ' -'LBLLastRuined +'Label26 ' -Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) -Me.LBLLastRuined.Name = "LBLLastRuined" -Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) -Me.LBLLastRuined.TabIndex = 152 -Me.LBLLastRuined.Text = "04/28/2015" -Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label26.BackColor = System.Drawing.Color.Transparent +Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label26.ForeColor = System.Drawing.Color.Black +Me.Label26.Location = New System.Drawing.Point(161, 38) +Me.Label26.Name = "Label26" +Me.Label26.Size = New System.Drawing.Size(10, 17) +Me.Label26.TabIndex = 154 +Me.Label26.Text = "-" +Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label65 +'NBRedLightMin ' -Me.Label65.BackColor = System.Drawing.Color.Transparent -Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label65.ForeColor = System.Drawing.Color.Black -Me.Label65.Location = New System.Drawing.Point(103, 16) -Me.Label65.Name = "Label65" -Me.Label65.Size = New System.Drawing.Size(85, 17) -Me.Label65.TabIndex = 149 -Me.Label65.Text = "Last Orgasm" -Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) +Me.NBRedLightMin.Name = "NBRedLightMin" +Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) +Me.NBRedLightMin.TabIndex = 151 +Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) ' -'LBLAvgEdgeNoTouch +'Label28 ' -Me.LBLAvgEdgeNoTouch.AutoSize = true -Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) -Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" -Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeNoTouch.TabIndex = 146 -Me.LBLAvgEdgeNoTouch.Text = "00:00" -Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label28.BackColor = System.Drawing.Color.Transparent +Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label28.ForeColor = System.Drawing.Color.Black +Me.Label28.Location = New System.Drawing.Point(161, 15) +Me.Label28.Name = "Label28" +Me.Label28.Size = New System.Drawing.Size(10, 17) +Me.Label28.TabIndex = 150 +Me.Label28.Text = "-" +Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLLastOrgasm +'Label27 ' -Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) -Me.LBLLastOrgasm.Name = "LBLLastOrgasm" -Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) -Me.LBLLastOrgasm.TabIndex = 151 -Me.LBLLastOrgasm.Text = "04/28/2015" -Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label27.BackColor = System.Drawing.Color.Transparent +Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label27.ForeColor = System.Drawing.Color.Black +Me.Label27.Location = New System.Drawing.Point(6, 39) +Me.Label27.Name = "Label27" +Me.Label27.Size = New System.Drawing.Size(151, 17) +Me.Label27.TabIndex = 153 +Me.Label27.Text = "Green Light Time:" +Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label14 +'Label29 ' -Me.Label14.BackColor = System.Drawing.Color.Transparent -Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label14.ForeColor = System.Drawing.Color.Black -Me.Label14.Location = New System.Drawing.Point(25, 48) -Me.Label14.Name = "Label14" -Me.Label14.Size = New System.Drawing.Size(238, 17) -Me.Label14.TabIndex = 138 -Me.Label14.Text = "Average Time to Edge" -Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label29.BackColor = System.Drawing.Color.Transparent +Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label29.ForeColor = System.Drawing.Color.Black +Me.Label29.Location = New System.Drawing.Point(6, 16) +Me.Label29.Name = "Label29" +Me.Label29.Size = New System.Drawing.Size(151, 17) +Me.Label29.TabIndex = 149 +Me.Label29.Text = "Red Light Time:" +Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label13 +'GroupBox18 ' -Me.Label13.AutoSize = true -Me.Label13.Location = New System.Drawing.Point(177, 68) -Me.Label13.Name = "Label13" -Me.Label13.Size = New System.Drawing.Size(32, 13) -Me.Label13.TabIndex = 145 -Me.Label13.Text = "Rest:" -Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.GroupBox18.Controls.Add(Me.Label108) +Me.GroupBox18.Controls.Add(Me.Label109) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) +Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) +Me.GroupBox18.Controls.Add(Me.CBCensorConstant) +Me.GroupBox18.Controls.Add(Me.Label25) +Me.GroupBox18.Controls.Add(Me.Label20) +Me.GroupBox18.Controls.Add(Me.Label19) +Me.GroupBox18.Controls.Add(Me.Label24) +Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) +Me.GroupBox18.Location = New System.Drawing.Point(6, 16) +Me.GroupBox18.Name = "GroupBox18" +Me.GroupBox18.Size = New System.Drawing.Size(279, 88) +Me.GroupBox18.TabIndex = 1 +Me.GroupBox18.TabStop = false +Me.GroupBox18.Text = "Censorship Sucks" ' -'Label1 +'Label108 ' -Me.Label1.AutoSize = true -Me.Label1.Location = New System.Drawing.Point(28, 68) -Me.Label1.Name = "Label1" -Me.Label1.Size = New System.Drawing.Size(79, 13) -Me.Label1.TabIndex = 143 -Me.Label1.Text = "While Stroking:" -Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label108.BackColor = System.Drawing.Color.Transparent +Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label108.ForeColor = System.Drawing.Color.Black +Me.Label108.Location = New System.Drawing.Point(227, 39) +Me.Label108.Name = "Label108" +Me.Label108.Size = New System.Drawing.Size(50, 17) +Me.Label108.TabIndex = 179 +Me.Label108.Text = "seconds" +Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'GroupBox21 +'Label109 ' -Me.GroupBox21.BackColor = System.Drawing.Color.LightGray -Me.GroupBox21.Controls.Add(Me.Label153) -Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) -Me.GroupBox21.Controls.Add(Me.GroupBox6) -Me.GroupBox21.Controls.Add(Me.Label156) -Me.GroupBox21.ForeColor = System.Drawing.Color.Black -Me.GroupBox21.Location = New System.Drawing.Point(797, 55) -Me.GroupBox21.Name = "GroupBox21" -Me.GroupBox21.Size = New System.Drawing.Size(316, 136) -Me.GroupBox21.TabIndex = 66 -Me.GroupBox21.TabStop = false -Me.GroupBox21.Text = "Description" +Me.Label109.BackColor = System.Drawing.Color.Transparent +Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label109.ForeColor = System.Drawing.Color.Black +Me.Label109.Location = New System.Drawing.Point(227, 16) +Me.Label109.Name = "Label109" +Me.Label109.Size = New System.Drawing.Size(50, 17) +Me.Label109.TabIndex = 178 +Me.Label109.Text = "seconds" +Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'Label153 +'NBCensorShowMin ' -Me.Label153.BackColor = System.Drawing.Color.Transparent -Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label153.ForeColor = System.Drawing.Color.Black -Me.Label153.Location = New System.Drawing.Point(78, 94) -Me.Label153.Name = "Label153" -Me.Label153.Size = New System.Drawing.Size(158, 17) -Me.Label153.TabIndex = 135 -Me.Label153.Text = "No path selected" -Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) +Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMin.Name = "NBCensorShowMin" +Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMin.TabIndex = 151 +Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin ' -'LBLRangeSettingsDescription +'NBCensorHideMax ' -Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) -Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" -Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) -Me.LBLRangeSettingsDescription.TabIndex = 62 -Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) +Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMax.Name = "NBCensorHideMax" +Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMax.TabIndex = 156 +Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax ' -'Label156 +'NBCensorHideMin ' -Me.Label156.BackColor = System.Drawing.Color.Transparent -Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label156.ForeColor = System.Drawing.Color.Black -Me.Label156.Location = New System.Drawing.Point(133, 23) -Me.Label156.Name = "Label156" -Me.Label156.Size = New System.Drawing.Size(158, 17) -Me.Label156.TabIndex = 135 -Me.Label156.Text = "No path selected" -Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft +Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) +Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) +Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorHideMin.Name = "NBCensorHideMin" +Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) +Me.NBCensorHideMin.TabIndex = 155 +Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin ' -'GroupBox12 +'CBCensorConstant ' -Me.GroupBox12.BackColor = System.Drawing.Color.LightGray -Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) -Me.GroupBox12.ForeColor = System.Drawing.Color.Black -Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) -Me.GroupBox12.Name = "GroupBox12" -Me.GroupBox12.Size = New System.Drawing.Size(171, 124) -Me.GroupBox12.TabIndex = 65 -Me.GroupBox12.TabStop = false -Me.GroupBox12.Text = "Description" +Me.CBCensorConstant.AutoSize = true +Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant +Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black +Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) +Me.CBCensorConstant.Name = "CBCensorConstant" +Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) +Me.CBCensorConstant.TabIndex = 157 +Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" +Me.CBCensorConstant.UseVisualStyleBackColor = true +' +'Label25 ' -'LBLSubSettingsDescription +Me.Label25.BackColor = System.Drawing.Color.Transparent +Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label25.ForeColor = System.Drawing.Color.Black +Me.Label25.Location = New System.Drawing.Point(161, 15) +Me.Label25.Name = "Label25" +Me.Label25.Size = New System.Drawing.Size(10, 17) +Me.Label25.TabIndex = 150 +Me.Label25.Text = "-" +Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) -Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" -Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) -Me.LBLSubSettingsDescription.TabIndex = 62 -Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." +'Label20 ' -'OpenFileDialog1 +Me.Label20.BackColor = System.Drawing.Color.Transparent +Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label20.ForeColor = System.Drawing.Color.Black +Me.Label20.Location = New System.Drawing.Point(6, 39) +Me.Label20.Name = "Label20" +Me.Label20.Size = New System.Drawing.Size(110, 17) +Me.Label20.TabIndex = 153 +Me.Label20.Text = "Censor Bar Hidden:" +Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.OpenFileDialog1.FileName = "OpenFileDialog1" -Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ - "s (*.*)|*.*" -Me.OpenFileDialog1.Title = "Select an image file" +'Label19 ' -'GetColor +Me.Label19.BackColor = System.Drawing.Color.Transparent +Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label19.ForeColor = System.Drawing.Color.Black +Me.Label19.Location = New System.Drawing.Point(161, 38) +Me.Label19.Name = "Label19" +Me.Label19.Size = New System.Drawing.Size(10, 17) +Me.Label19.TabIndex = 154 +Me.Label19.Text = "-" +Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.GetColor.Color = System.Drawing.Color.SteelBlue +'Label24 ' -'WebImageFileDialog +Me.Label24.BackColor = System.Drawing.Color.Transparent +Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label24.ForeColor = System.Drawing.Color.Black +Me.Label24.Location = New System.Drawing.Point(6, 16) +Me.Label24.Name = "Label24" +Me.Label24.Size = New System.Drawing.Size(110, 17) +Me.Label24.TabIndex = 149 +Me.Label24.Text = "Censor Bar Shown:" +Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.WebImageFileDialog.Title = "Please select a URL File" +'NBCensorShowMax ' -'OpenScriptDialog +Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) +Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) +Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) +Me.NBCensorShowMax.Name = "NBCensorShowMax" +Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) +Me.NBCensorShowMax.TabIndex = 152 +Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax ' -Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenScriptDialog.Title = "Please select a script" +'GBRangeOrgasmChance ' -'OpenSettingsDialog +Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) +Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) +Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) +Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) +Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) +Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" +Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) +Me.GBRangeOrgasmChance.TabIndex = 167 +Me.GBRangeOrgasmChance.TabStop = false +Me.GBRangeOrgasmChance.Text = "Orgasm Chance" ' -Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenSettingsDialog.Title = "Please select a settings file to open" +'Label89 ' -'SaveSettingsDialog +Me.Label89.BackColor = System.Drawing.Color.Transparent +Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label89.ForeColor = System.Drawing.Color.Black +Me.Label89.Location = New System.Drawing.Point(6, 94) +Me.Label89.Name = "Label89" +Me.Label89.Size = New System.Drawing.Size(83, 17) +Me.Label89.TabIndex = 173 +Me.Label89.Text = "Rarely Allows:" +Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" +'NBAllowSometimes ' -'GroupBox65 +Me.NBAllowSometimes.Enabled = false +Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) +Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowSometimes.Name = "NBAllowSometimes" +Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) +Me.NBAllowSometimes.TabIndex = 169 +Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) ' -Me.GroupBox65.BackColor = System.Drawing.Color.LightGray -Me.GroupBox65.Controls.Add(Me.Label136) -Me.GroupBox65.Controls.Add(Me.Label134) -Me.GroupBox65.Controls.Add(Me.Label132) -Me.GroupBox65.Controls.Add(Me.TrackBar1) -Me.GroupBox65.Controls.Add(Me.ComboBox1) -Me.GroupBox65.Controls.Add(Me.CheckBox1) -Me.GroupBox65.Controls.Add(Me.Label135) -Me.GroupBox65.Controls.Add(Me.TrackBar2) -Me.GroupBox65.ForeColor = System.Drawing.Color.Black -Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) -Me.GroupBox65.Name = "GroupBox65" -Me.GroupBox65.Size = New System.Drawing.Size(259, 117) -Me.GroupBox65.TabIndex = 157 -Me.GroupBox65.TabStop = false -Me.GroupBox65.Text = "Text to Speech" +'Label86 ' -'Label136 +Me.Label86.BackColor = System.Drawing.Color.Transparent +Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label86.ForeColor = System.Drawing.Color.Black +Me.Label86.Location = New System.Drawing.Point(6, 68) +Me.Label86.Name = "Label86" +Me.Label86.Size = New System.Drawing.Size(102, 17) +Me.Label86.TabIndex = 172 +Me.Label86.Text = "Sometimes Allows:" +Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.Label136.AutoSize = true -Me.Label136.Location = New System.Drawing.Point(14, 52) -Me.Label136.Name = "Label136" -Me.Label136.Size = New System.Drawing.Size(45, 13) -Me.Label136.TabIndex = 32 -Me.Label136.Text = "Volume:" +'Label82 ' -'Label134 +Me.Label82.BackColor = System.Drawing.Color.Transparent +Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label82.ForeColor = System.Drawing.Color.Black +Me.Label82.Location = New System.Drawing.Point(6, 42) +Me.Label82.Name = "Label82" +Me.Label82.Size = New System.Drawing.Size(83, 17) +Me.Label82.TabIndex = 171 +Me.Label82.Text = "Often Allows:" +Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -Me.Label134.AutoSize = true -Me.Label134.Location = New System.Drawing.Point(141, 52) -Me.Label134.Name = "Label134" -Me.Label134.Size = New System.Drawing.Size(33, 13) -Me.Label134.TabIndex = 157 -Me.Label134.Text = "Rate:" +'NBAllowRarely ' -'Label132 +Me.NBAllowRarely.Enabled = false +Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) +Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowRarely.Name = "NBAllowRarely" +Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) +Me.NBAllowRarely.TabIndex = 170 +Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) ' -Me.Label132.Location = New System.Drawing.Point(202, 52) -Me.Label132.Name = "Label132" -Me.Label132.Size = New System.Drawing.Size(45, 13) -Me.Label132.TabIndex = 158 -Me.Label132.Text = "100" -Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight +'NBAllowOften ' -'TrackBar1 +Me.NBAllowOften.Enabled = false +Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) +Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) +Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) +Me.NBAllowOften.Name = "NBAllowOften" +Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) +Me.NBAllowOften.TabIndex = 168 +Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) ' -Me.TrackBar1.Location = New System.Drawing.Point(133, 68) -Me.TrackBar1.Minimum = -10 -Me.TrackBar1.Name = "TrackBar1" -Me.TrackBar1.Size = New System.Drawing.Size(120, 45) -Me.TrackBar1.TabIndex = 31 +'CBRangeOrgasm ' -'ComboBox1 +Me.CBRangeOrgasm.AutoSize = true +Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black +Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) +Me.CBRangeOrgasm.Name = "CBRangeOrgasm" +Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) +Me.CBRangeOrgasm.TabIndex = 159 +Me.CBRangeOrgasm.Text = "Domme Decide" +Me.CBRangeOrgasm.UseVisualStyleBackColor = true ' -Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window -Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText -Me.ComboBox1.FormattingEnabled = true -Me.ComboBox1.Location = New System.Drawing.Point(71, 16) -Me.ComboBox1.Name = "ComboBox1" -Me.ComboBox1.Size = New System.Drawing.Size(178, 21) -Me.ComboBox1.TabIndex = 29 -Me.ComboBox1.TabStop = false +'PictureBox8 ' -'CheckBox1 +Me.PictureBox8.BackColor = System.Drawing.Color.LightGray +Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox8.Location = New System.Drawing.Point(9, 6) +Me.PictureBox8.Name = "PictureBox8" +Me.PictureBox8.Size = New System.Drawing.Size(160, 19) +Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox8.TabIndex = 166 +Me.PictureBox8.TabStop = false ' -Me.CheckBox1.AutoSize = true -Me.CheckBox1.ForeColor = System.Drawing.Color.Black -Me.CheckBox1.Location = New System.Drawing.Point(10, 18) -Me.CheckBox1.Name = "CheckBox1" -Me.CheckBox1.Size = New System.Drawing.Size(59, 17) -Me.CheckBox1.TabIndex = 28 -Me.CheckBox1.TabStop = false -Me.CheckBox1.Text = "Enable" -Me.CheckBox1.UseVisualStyleBackColor = true +'Label38 ' -'Label135 +Me.Label38.BackColor = System.Drawing.Color.Transparent +Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label38.ForeColor = System.Drawing.Color.Black +Me.Label38.Location = New System.Drawing.Point(7, 6) +Me.Label38.Name = "Label38" +Me.Label38.Size = New System.Drawing.Size(692, 21) +Me.Label38.TabIndex = 48 +Me.Label38.Text = "Range Settings" +Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -Me.Label135.Location = New System.Drawing.Point(75, 52) -Me.Label135.Name = "Label135" -Me.Label135.Size = New System.Drawing.Size(45, 13) -Me.Label135.TabIndex = 33 -Me.Label135.Text = "100" -Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight +'TabPage13 +' +Me.TabPage13.BackColor = System.Drawing.Color.Silver +Me.TabPage13.Controls.Add(Me.TabControl2) +Me.TabPage13.Location = New System.Drawing.Point(4, 22) +Me.TabPage13.Name = "TabPage13" +Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage13.Size = New System.Drawing.Size(720, 448) +Me.TabPage13.TabIndex = 13 +Me.TabPage13.Text = "Modding" ' -'TrackBar2 +'TabControl2 ' -Me.TrackBar2.Location = New System.Drawing.Point(6, 68) -Me.TrackBar2.Maximum = 100 -Me.TrackBar2.Name = "TrackBar2" -Me.TrackBar2.Size = New System.Drawing.Size(120, 45) -Me.TrackBar2.TabIndex = 30 -Me.TrackBar2.Value = 50 +Me.TabControl2.Controls.Add(Me.TabPage27) +Me.TabControl2.Controls.Add(Me.TabPage14) +Me.TabControl2.Controls.Add(Me.TabPage24) +Me.TabControl2.Controls.Add(Me.TabPage8) +Me.TabControl2.Controls.Add(Me.TabPage15) +Me.TabControl2.Location = New System.Drawing.Point(6, 6) +Me.TabControl2.Name = "TabControl2" +Me.TabControl2.SelectedIndex = 0 +Me.TabControl2.Size = New System.Drawing.Size(708, 437) +Me.TabControl2.TabIndex = 0 ' -'TxbImgUrlHardcore +'TabPage27 ' -Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) -Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" -Me.TxbImgUrlHardcore.ReadOnly = true -Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) -Me.TxbImgUrlHardcore.TabIndex = 145 +Me.TabPage27.BackColor = System.Drawing.Color.LightGray +Me.TabPage27.Controls.Add(Me.TBPlaylistSave) +Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) +Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) +Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) +Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) +Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) +Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) +Me.TabPage27.Controls.Add(Me.Button7) +Me.TabPage27.Controls.Add(Me.WBPlaylist) +Me.TabPage27.Controls.Add(Me.Label80) +Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) +Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) +Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) +Me.TabPage27.Controls.Add(Me.LBPlaylist) +Me.TabPage27.Location = New System.Drawing.Point(4, 22) +Me.TabPage27.Name = "TabPage27" +Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage27.Size = New System.Drawing.Size(700, 411) +Me.TabPage27.TabIndex = 5 +Me.TabPage27.Text = "Playlists" ' -'TextBox2 +'TBPlaylistSave ' -Me.TextBox2.BackColor = System.Drawing.Color.LightGray -Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill -Me.TextBox2.Location = New System.Drawing.Point(116, 34) -Me.TextBox2.Name = "TextBox2" -Me.TextBox2.ReadOnly = true -Me.TextBox2.Size = New System.Drawing.Size(189, 20) -Me.TextBox2.TabIndex = 145 +Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) +Me.TBPlaylistSave.Name = "TBPlaylistSave" +Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) +Me.TBPlaylistSave.TabIndex = 203 ' -'CBMuteMedia +'BTNPlaylistCtrlZ ' -Me.CBMuteMedia.AutoSize = true -Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia -Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black -Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) -Me.CBMuteMedia.Name = "CBMuteMedia" -Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) -Me.CBMuteMedia.TabIndex = 6 -Me.CBMuteMedia.TabStop = false -Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" -Me.CBMuteMedia.UseVisualStyleBackColor = true +Me.BTNPlaylistCtrlZ.Enabled = false +Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) +Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" +Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistCtrlZ.TabIndex = 202 +Me.BTNPlaylistCtrlZ.Text = "Undo" +Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true ' -'TbxDomImageDir +'RadioPlaylistRegScripts ' -Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) -Me.TbxDomImageDir.Name = "TbxDomImageDir" -Me.TbxDomImageDir.ReadOnly = true -Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxDomImageDir.TabIndex = 0 -Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir +Me.RadioPlaylistRegScripts.AutoSize = true +Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) +Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" +Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) +Me.RadioPlaylistRegScripts.TabIndex = 201 +Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" +Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true ' -'LBLSubColor +'RadioPlaylistScripts ' -Me.LBLSubColor.BackColor = System.Drawing.Color.White -Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor -Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) -Me.LBLSubColor.Name = "LBLSubColor" -Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) -Me.LBLSubColor.TabIndex = 0 -Me.LBLSubColor.Text = "Preview" -Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.RadioPlaylistScripts.AutoSize = true +Me.RadioPlaylistScripts.Checked = true +Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) +Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" +Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) +Me.RadioPlaylistScripts.TabIndex = 200 +Me.RadioPlaylistScripts.TabStop = true +Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" +Me.RadioPlaylistScripts.UseVisualStyleBackColor = true ' -'LBLDomColor +'BTNPlaylistEnd ' -Me.LBLDomColor.BackColor = System.Drawing.Color.White -Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor -Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) -Me.LBLDomColor.Name = "LBLDomColor" -Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) -Me.LBLDomColor.TabIndex = 0 -Me.LBLDomColor.Text = "Preview" -Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray +Me.BTNPlaylistEnd.Enabled = false +Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black +Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) +Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" +Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistEnd.TabIndex = 199 +Me.BTNPlaylistEnd.Text = "End" +Me.BTNPlaylistEnd.UseVisualStyleBackColor = false ' -'CBLockOrgasmChances +'BTNPlaylistClearAll ' -Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances -Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black -Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) -Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" -Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) -Me.CBLockOrgasmChances.TabIndex = 146 -Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" -Me.CBLockOrgasmChances.UseVisualStyleBackColor = true +Me.BTNPlaylistClearAll.Enabled = false +Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) +Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" +Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) +Me.BTNPlaylistClearAll.TabIndex = 198 +Me.BTNPlaylistClearAll.Text = "Clear All" +Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true ' -'ChbImageUrlHardcore +'BTNPlaylistSave ' -Me.ChbImageUrlHardcore.AutoSize = true -Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled -Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) -Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" -Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHardcore.TabIndex = 0 -Me.ChbImageUrlHardcore.Text = "Hardcore" -Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true +Me.BTNPlaylistSave.Enabled = false +Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) +Me.BTNPlaylistSave.Name = "BTNPlaylistSave" +Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) +Me.BTNPlaylistSave.TabIndex = 197 +Me.BTNPlaylistSave.Text = "Save" +Me.BTNPlaylistSave.UseVisualStyleBackColor = true ' -'ChbImageUrlButts +'Button7 ' -Me.ChbImageUrlButts.AutoSize = true -Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled -Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) -Me.ChbImageUrlButts.Name = "ChbImageUrlButts" -Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) -Me.ChbImageUrlButts.TabIndex = 37 -Me.ChbImageUrlButts.Text = "Butts" -Me.ChbImageUrlButts.UseVisualStyleBackColor = true +Me.Button7.Location = New System.Drawing.Point(213, 21) +Me.Button7.Name = "Button7" +Me.Button7.Size = New System.Drawing.Size(78, 23) +Me.Button7.TabIndex = 196 +Me.Button7.Text = "Add Random" +Me.Button7.UseVisualStyleBackColor = true ' -'ChbImageUrlMaledom +'WBPlaylist ' -Me.ChbImageUrlMaledom.AutoSize = true -Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled -Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) -Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" -Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlMaledom.TabIndex = 25 -Me.ChbImageUrlMaledom.Text = "Maledom" -Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true +Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) +Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) +Me.WBPlaylist.Name = "WBPlaylist" +Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) +Me.WBPlaylist.TabIndex = 195 ' -'ChbImageUrlGay +'Label80 ' -Me.ChbImageUrlGay.AutoSize = true -Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled -Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) -Me.ChbImageUrlGay.Name = "ChbImageUrlGay" -Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGay.TabIndex = 22 -Me.ChbImageUrlGay.Text = "Gay" -Me.ChbImageUrlGay.UseVisualStyleBackColor = true +Me.Label80.AutoSize = true +Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label80.Location = New System.Drawing.Point(410, 27) +Me.Label80.Name = "Label80" +Me.Label80.Size = New System.Drawing.Size(47, 13) +Me.Label80.TabIndex = 194 +Me.Label80.Text = "Playlist" +' +'LBLPlaylIstLink +' +Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylIstLink.Enabled = false +Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) +Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" +Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) +Me.LBLPlaylIstLink.TabIndex = 193 +Me.LBLPlaylIstLink.Text = "Link" +Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlSoftcore +'LBLPlaylistModule ' -Me.ChbImageUrlSoftcore.AutoSize = true -Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled -Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) -Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" -Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlSoftcore.TabIndex = 4 -Me.ChbImageUrlSoftcore.Text = "Softcore" -Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true +Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPlaylistModule.Enabled = false +Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) +Me.LBLPlaylistModule.Name = "LBLPlaylistModule" +Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) +Me.LBLPlaylistModule.TabIndex = 192 +Me.LBLPlaylistModule.Text = "Module" +Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlBoobs +'LBLPLaylistStart ' -Me.ChbImageUrlBoobs.AutoSize = true -Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled -Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) -Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" -Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBoobs.TabIndex = 34 -Me.ChbImageUrlBoobs.Text = "Boobs" -Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true +Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green +Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White +Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) +Me.LBLPLaylistStart.Name = "LBLPLaylistStart" +Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) +Me.LBLPLaylistStart.TabIndex = 190 +Me.LBLPLaylistStart.Text = "Start" +Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlLesbian +'LBPlaylist ' -Me.ChbImageUrlLesbian.AutoSize = true -Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled -Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) -Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" -Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLesbian.TabIndex = 7 -Me.ChbImageUrlLesbian.Text = "Lesbian" -Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true +Me.LBPlaylist.AllowDrop = true +Me.LBPlaylist.FormattingEnabled = true +Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) +Me.LBPlaylist.Name = "LBPlaylist" +Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) +Me.LBPlaylist.TabIndex = 189 ' -'ChbImageUrlBlowjob +'TabPage14 ' -Me.ChbImageUrlBlowjob.AutoSize = true -Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled -Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) -Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" -Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBlowjob.TabIndex = 10 -Me.ChbImageUrlBlowjob.Text = "Blowjob" -Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true +Me.TabPage14.BackColor = System.Drawing.Color.LightGray +Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) +Me.TabPage14.Controls.Add(Me.Label88) +Me.TabPage14.Controls.Add(Me.TBKeywordPreview) +Me.TabPage14.Controls.Add(Me.Button37) +Me.TabPage14.Controls.Add(Me.Button50) +Me.TabPage14.Controls.Add(Me.Button22) +Me.TabPage14.Controls.Add(Me.TBKeyWords) +Me.TabPage14.Controls.Add(Me.LBKeyWords) +Me.TabPage14.Controls.Add(Me.RTBKeyWords) +Me.TabPage14.Location = New System.Drawing.Point(4, 22) +Me.TabPage14.Name = "TabPage14" +Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage14.Size = New System.Drawing.Size(700, 411) +Me.TabPage14.TabIndex = 0 +Me.TabPage14.Text = "Keywords" ' -'ChbImageUrlCaptions +'LBLKeywordPreview ' -Me.ChbImageUrlCaptions.AutoSize = true -Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled -Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) -Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" -Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlCaptions.TabIndex = 28 -Me.ChbImageUrlCaptions.Text = "Captions" -Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true +Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) +Me.LBLKeywordPreview.Name = "LBLKeywordPreview" +Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) +Me.LBLKeywordPreview.TabIndex = 174 +Me.LBLKeywordPreview.Text = "Get Preview Here" +Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlGeneral +'Label88 ' -Me.ChbImageUrlGeneral.AutoSize = true -Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled -Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) -Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" -Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGeneral.TabIndex = 31 -Me.ChbImageUrlGeneral.Text = "General" -Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true +Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label88.Location = New System.Drawing.Point(3, 358) +Me.Label88.Name = "Label88" +Me.Label88.Size = New System.Drawing.Size(194, 53) +Me.Label88.TabIndex = 173 +Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ + " the domme return." +Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'ChbImageUrlFemdom +'TBKeywordPreview ' -Me.ChbImageUrlFemdom.AutoSize = true -Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled -Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) -Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" -Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlFemdom.TabIndex = 13 -Me.ChbImageUrlFemdom.Text = "Femdom" -Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true +Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) +Me.TBKeywordPreview.Name = "TBKeywordPreview" +Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) +Me.TBKeywordPreview.TabIndex = 172 +Me.TBKeywordPreview.Text = "Enter Line Here" +Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' -'ChbImageUrlHentai +'Button37 ' -Me.ChbImageUrlHentai.AutoSize = true -Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled -Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) -Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" -Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHentai.TabIndex = 19 -Me.ChbImageUrlHentai.Text = "Hentai" -Me.ChbImageUrlHentai.UseVisualStyleBackColor = true +Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Button37.Location = New System.Drawing.Point(638, 358) +Me.Button37.Name = "Button37" +Me.Button37.Size = New System.Drawing.Size(47, 50) +Me.Button37.TabIndex = 171 +Me.Button37.Text = "#" +Me.Button37.UseVisualStyleBackColor = true ' -'ChbImageUrlLezdom +'Button50 ' -Me.ChbImageUrlLezdom.AutoSize = true -Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled -Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) -Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" -Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLezdom.TabIndex = 16 -Me.ChbImageUrlLezdom.Text = "Lezdom" -Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true +Me.Button50.Location = New System.Drawing.Point(6, 10) +Me.Button50.Name = "Button50" +Me.Button50.Size = New System.Drawing.Size(194, 23) +Me.Button50.TabIndex = 169 +Me.Button50.Text = "Refresh and Clear Keyword List" +Me.Button50.UseVisualStyleBackColor = true ' -'TxbImageUrlBlowjob +'Button22 ' -Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" -Me.TxbImageUrlBlowjob.ReadOnly = true -Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.TabIndex = 12 -Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob +Me.Button22.Location = New System.Drawing.Point(638, 10) +Me.Button22.Name = "Button22" +Me.Button22.Size = New System.Drawing.Size(47, 23) +Me.Button22.TabIndex = 167 +Me.Button22.Text = "Save" +Me.Button22.UseVisualStyleBackColor = true ' -'TxbImageUrlSoftcore +'TBKeyWords ' -Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) -Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" -Me.TxbImageUrlSoftcore.ReadOnly = true -Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.TabIndex = 6 -Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore +Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) +Me.TBKeyWords.Name = "TBKeyWords" +Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) +Me.TBKeyWords.TabIndex = 166 ' -'TxbImageUrlLezdom +'LBKeyWords ' -Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) -Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" -Me.TxbImageUrlLezdom.ReadOnly = true -Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.TabIndex = 18 -Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom +Me.LBKeyWords.FormattingEnabled = true +Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) +Me.LBKeyWords.Name = "LBKeyWords" +Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) +Me.LBKeyWords.Sorted = true +Me.LBKeyWords.TabIndex = 165 ' -'TxbImageUrlFemdom +'RTBKeyWords ' -Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) -Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" -Me.TxbImageUrlFemdom.ReadOnly = true -Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.TabIndex = 15 -Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom +Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) +Me.RTBKeyWords.Name = "RTBKeyWords" +Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) +Me.RTBKeyWords.TabIndex = 164 +Me.RTBKeyWords.Text = "" ' -'TxbImageUrlHardcore +'TabPage24 ' -Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) -Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" -Me.TxbImageUrlHardcore.ReadOnly = true -Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.TabIndex = 3 -Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore +Me.TabPage24.BackColor = System.Drawing.Color.LightGray +Me.TabPage24.Controls.Add(Me.Button9) +Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) +Me.TabPage24.Controls.Add(Me.Button4) +Me.TabPage24.Controls.Add(Me.Button5) +Me.TabPage24.Controls.Add(Me.TBResponses) +Me.TabPage24.Controls.Add(Me.LBResponses) +Me.TabPage24.Controls.Add(Me.RTBResponses) +Me.TabPage24.Location = New System.Drawing.Point(4, 22) +Me.TabPage24.Name = "TabPage24" +Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage24.Size = New System.Drawing.Size(700, 411) +Me.TabPage24.TabIndex = 3 +Me.TabPage24.Text = "Responses" ' -'TxbImageUrlHentai +'Button9 ' -Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) -Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" -Me.TxbImageUrlHentai.ReadOnly = true -Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.TabIndex = 21 -Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai +Me.Button9.Location = New System.Drawing.Point(217, 10) +Me.Button9.Name = "Button9" +Me.Button9.Size = New System.Drawing.Size(215, 23) +Me.Button9.TabIndex = 176 +Me.Button9.Text = "Response Template" +Me.Button9.UseVisualStyleBackColor = true ' -'TxbImageUrlGay +'RTBResponsesKEY ' -Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) -Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.Name = "TxbImageUrlGay" -Me.TxbImageUrlGay.ReadOnly = true -Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.TabIndex = 24 -Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay +Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) +Me.RTBResponsesKEY.Name = "RTBResponsesKEY" +Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) +Me.RTBResponsesKEY.TabIndex = 175 +Me.RTBResponsesKEY.Text = "" ' -'TxbImageUrlLesbian +'Button4 ' -Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) -Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" -Me.TxbImageUrlLesbian.ReadOnly = true -Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.TabIndex = 9 -Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian +Me.Button4.Location = New System.Drawing.Point(6, 10) +Me.Button4.Name = "Button4" +Me.Button4.Size = New System.Drawing.Size(194, 23) +Me.Button4.TabIndex = 174 +Me.Button4.Text = "Refresh and Clear Response List" +Me.Button4.UseVisualStyleBackColor = true ' -'TxbImageUrlMaledom +'Button5 ' -Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) -Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" -Me.TxbImageUrlMaledom.ReadOnly = true -Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.TabIndex = 27 -Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom +Me.Button5.Location = New System.Drawing.Point(638, 10) +Me.Button5.Name = "Button5" +Me.Button5.Size = New System.Drawing.Size(47, 23) +Me.Button5.TabIndex = 173 +Me.Button5.Text = "Save" +Me.Button5.UseVisualStyleBackColor = true ' -'TxbImageUrlCaptions +'TBResponses ' -Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) -Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" -Me.TxbImageUrlCaptions.ReadOnly = true -Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.TabIndex = 30 -Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions +Me.TBResponses.Location = New System.Drawing.Point(438, 10) +Me.TBResponses.Name = "TBResponses" +Me.TBResponses.Size = New System.Drawing.Size(194, 20) +Me.TBResponses.TabIndex = 172 ' -'TxbImageUrlGeneral +'LBResponses ' -Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) -Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" -Me.TxbImageUrlGeneral.ReadOnly = true -Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.TabIndex = 33 -Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral +Me.LBResponses.FormattingEnabled = true +Me.LBResponses.Location = New System.Drawing.Point(6, 36) +Me.LBResponses.Name = "LBResponses" +Me.LBResponses.Size = New System.Drawing.Size(194, 355) +Me.LBResponses.Sorted = true +Me.LBResponses.TabIndex = 171 ' -'TxbImageUrlBoobs +'RTBResponses ' -Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) -Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" -Me.TxbImageUrlBoobs.ReadOnly = true -Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.TabIndex = 36 -Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs +Me.RTBResponses.Location = New System.Drawing.Point(217, 82) +Me.RTBResponses.Name = "RTBResponses" +Me.RTBResponses.Size = New System.Drawing.Size(468, 309) +Me.RTBResponses.TabIndex = 170 +Me.RTBResponses.Text = "" ' -'TxbImageUrlButts +'TabPage8 ' -Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) -Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.Name = "TxbImageUrlButts" -Me.TxbImageUrlButts.ReadOnly = true -Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.TabIndex = 39 -Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt +Me.TabPage8.BackColor = System.Drawing.Color.LightGray +Me.TabPage8.Controls.Add(Me.RTBVideoMod) +Me.TabPage8.Controls.Add(Me.GroupBox29) +Me.TabPage8.Controls.Add(Me.BTNVideoModClear) +Me.TabPage8.Controls.Add(Me.GroupBox28) +Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) +Me.TabPage8.Controls.Add(Me.GroupBox30) +Me.TabPage8.Controls.Add(Me.BTNVideoModSave) +Me.TabPage8.Location = New System.Drawing.Point(4, 22) +Me.TabPage8.Name = "TabPage8" +Me.TabPage8.Size = New System.Drawing.Size(700, 411) +Me.TabPage8.TabIndex = 2 +Me.TabPage8.Text = "Video" ' -'TbxIHardcore +'RTBVideoMod ' -Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray -Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black -Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) -Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.Name = "TbxIHardcore" -Me.TbxIHardcore.ReadOnly = true -Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.TabIndex = 2 -Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore +Me.RTBVideoMod.Enabled = false +Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) +Me.RTBVideoMod.Name = "RTBVideoMod" +Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) +Me.RTBVideoMod.TabIndex = 150 +Me.RTBVideoMod.Text = "" ' -'CBIHardcoreSD +'GroupBox29 ' -Me.CBIHardcoreSD.AutoSize = true -Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD -Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) -Me.CBIHardcoreSD.Name = "CBIHardcoreSD" -Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHardcoreSD.TabIndex = 3 -Me.CBIHardcoreSD.UseVisualStyleBackColor = true +Me.GroupBox29.BackColor = System.Drawing.Color.LightGray +Me.GroupBox29.Controls.Add(Me.Label51) +Me.GroupBox29.ForeColor = System.Drawing.Color.Black +Me.GroupBox29.Location = New System.Drawing.Point(6, 309) +Me.GroupBox29.Name = "GroupBox29" +Me.GroupBox29.Size = New System.Drawing.Size(692, 92) +Me.GroupBox29.TabIndex = 66 +Me.GroupBox29.TabStop = false +Me.GroupBox29.Text = "Description" ' -'CBIHardcore +'Label51 ' -Me.CBIHardcore.AutoSize = true -Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore -Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcore.ForeColor = System.Drawing.Color.Black -Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) -Me.CBIHardcore.Name = "CBIHardcore" -Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) -Me.CBIHardcore.TabIndex = 0 -Me.CBIHardcore.Text = "Hardcore" -Me.CBIHardcore.UseVisualStyleBackColor = true +Me.Label51.BackColor = System.Drawing.Color.Transparent +Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label51.ForeColor = System.Drawing.Color.Black +Me.Label51.Location = New System.Drawing.Point(6, 16) +Me.Label51.Name = "Label51" +Me.Label51.Size = New System.Drawing.Size(680, 73) +Me.Label51.TabIndex = 62 +Me.Label51.Text = resources.GetString("Label51.Text") +Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBISoftcore +'BTNVideoModClear ' -Me.CBISoftcore.AutoSize = true -Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore -Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcore.ForeColor = System.Drawing.Color.Black -Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) -Me.CBISoftcore.Name = "CBISoftcore" -Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) -Me.CBISoftcore.TabIndex = 4 -Me.CBISoftcore.Text = "Softcore" -Me.CBISoftcore.UseVisualStyleBackColor = true +Me.BTNVideoModClear.Enabled = false +Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) +Me.BTNVideoModClear.Name = "BTNVideoModClear" +Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModClear.TabIndex = 153 +Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" +Me.BTNVideoModClear.UseVisualStyleBackColor = true ' -'TbxISoftcore +'GroupBox28 ' -Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray -Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black -Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) -Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.Name = "TbxISoftcore" -Me.TbxISoftcore.ReadOnly = true -Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.TabIndex = 6 -Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore +Me.GroupBox28.Controls.Add(Me.CBVTType) +Me.GroupBox28.Location = New System.Drawing.Point(6, 8) +Me.GroupBox28.Name = "GroupBox28" +Me.GroupBox28.Size = New System.Drawing.Size(155, 46) +Me.GroupBox28.TabIndex = 148 +Me.GroupBox28.TabStop = false +Me.GroupBox28.Text = "Video Tease Type" ' -'CBButtSubDir +'CBVTType ' -Me.CBButtSubDir.AutoSize = true -Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir -Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black -Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) -Me.CBButtSubDir.Name = "CBButtSubDir" -Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) -Me.CBButtSubDir.TabIndex = 51 -Me.CBButtSubDir.UseVisualStyleBackColor = true +Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBVTType.FormattingEnabled = true +Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) +Me.CBVTType.Location = New System.Drawing.Point(9, 15) +Me.CBVTType.Name = "CBVTType" +Me.CBVTType.Size = New System.Drawing.Size(137, 21) +Me.CBVTType.TabIndex = 171 ' -'CBISoftcoreSD +'BTNVideoModLoad ' -Me.CBISoftcoreSD.AutoSize = true -Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD -Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) -Me.CBISoftcoreSD.Name = "CBISoftcoreSD" -Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBISoftcoreSD.TabIndex = 7 -Me.CBISoftcoreSD.UseVisualStyleBackColor = true +Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) +Me.BTNVideoModLoad.Name = "BTNVideoModLoad" +Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModLoad.TabIndex = 152 +Me.BTNVideoModLoad.Text = "Load Script" +Me.BTNVideoModLoad.UseVisualStyleBackColor = true ' -'CBBoobSubDir +'GroupBox30 ' -Me.CBBoobSubDir.AutoSize = true -Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir -Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black -Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) -Me.CBBoobSubDir.Name = "CBBoobSubDir" -Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) -Me.CBBoobSubDir.TabIndex = 47 -Me.CBBoobSubDir.UseVisualStyleBackColor = true +Me.GroupBox30.Controls.Add(Me.LBVidScript) +Me.GroupBox30.Location = New System.Drawing.Point(6, 60) +Me.GroupBox30.Name = "GroupBox30" +Me.GroupBox30.Size = New System.Drawing.Size(155, 100) +Me.GroupBox30.TabIndex = 149 +Me.GroupBox30.TabStop = false +Me.GroupBox30.Text = "Script" ' -'CBILezdomSD +'LBVidScript ' -Me.CBILezdomSD.AutoSize = true -Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD -Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black -Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) -Me.CBILezdomSD.Name = "CBILezdomSD" -Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBILezdomSD.TabIndex = 23 -Me.CBILezdomSD.UseVisualStyleBackColor = true +Me.LBVidScript.FormattingEnabled = true +Me.LBVidScript.Location = New System.Drawing.Point(9, 20) +Me.LBVidScript.Name = "LBVidScript" +Me.LBVidScript.Size = New System.Drawing.Size(137, 69) +Me.LBVidScript.TabIndex = 0 ' -'CBIGeneralSD +'BTNVideoModSave ' -Me.CBIGeneralSD.AutoSize = true -Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD -Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black -Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) -Me.CBIGeneralSD.Name = "CBIGeneralSD" -Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) -Me.CBIGeneralSD.TabIndex = 43 -Me.CBIGeneralSD.UseVisualStyleBackColor = true +Me.BTNVideoModSave.Enabled = false +Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) +Me.BTNVideoModSave.Name = "BTNVideoModSave" +Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) +Me.BTNVideoModSave.TabIndex = 151 +Me.BTNVideoModSave.Text = "Save Changes" +Me.BTNVideoModSave.UseVisualStyleBackColor = true ' -'CBILesbianSD +'TabPage15 ' -Me.CBILesbianSD.AutoSize = true -Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD -Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black -Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) -Me.CBILesbianSD.Name = "CBILesbianSD" -Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) -Me.CBILesbianSD.TabIndex = 11 -Me.CBILesbianSD.UseVisualStyleBackColor = true +Me.TabPage15.BackColor = System.Drawing.Color.LightGray +Me.TabPage15.Controls.Add(Me.Label62) +Me.TabPage15.Controls.Add(Me.Label61) +Me.TabPage15.Controls.Add(Me.Label57) +Me.TabPage15.Controls.Add(Me.Label58) +Me.TabPage15.Controls.Add(Me.Label60) +Me.TabPage15.Controls.Add(Me.TBGlitModFileName) +Me.TabPage15.Controls.Add(Me.GroupBox34) +Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) +Me.TabPage15.Controls.Add(Me.Button26) +Me.TabPage15.Controls.Add(Me.Label56) +Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) +Me.TabPage15.Controls.Add(Me.LBGlitModScripts) +Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) +Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) +Me.TabPage15.Controls.Add(Me.Button29) +Me.TabPage15.Controls.Add(Me.CBGlitModType) +Me.TabPage15.Controls.Add(Me.Label59) +Me.TabPage15.Controls.Add(Me.Label50) +Me.TabPage15.Location = New System.Drawing.Point(4, 22) +Me.TabPage15.Name = "TabPage15" +Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage15.Size = New System.Drawing.Size(700, 411) +Me.TabPage15.TabIndex = 1 +Me.TabPage15.Text = "Glitter" ' -'CBICaptionsSD +'Label62 ' -Me.CBICaptionsSD.AutoSize = true -Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD -Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black -Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) -Me.CBICaptionsSD.Name = "CBICaptionsSD" -Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) -Me.CBICaptionsSD.TabIndex = 39 -Me.CBICaptionsSD.UseVisualStyleBackColor = true +Me.Label62.Location = New System.Drawing.Point(255, 169) +Me.Label62.Name = "Label62" +Me.Label62.Size = New System.Drawing.Size(59, 51) +Me.Label62.TabIndex = 177 +Me.Label62.Text = "@Cruel @Angry @Custom2" +Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBILesbian +'Label61 ' -Me.CBILesbian.AutoSize = true -Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian -Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbian.ForeColor = System.Drawing.Color.Black -Me.CBILesbian.Location = New System.Drawing.Point(3, 61) -Me.CBILesbian.Name = "CBILesbian" -Me.CBILesbian.Size = New System.Drawing.Size(70, 23) -Me.CBILesbian.TabIndex = 8 -Me.CBILesbian.Text = "Lesbian" -Me.CBILesbian.UseVisualStyleBackColor = true +Me.Label61.Location = New System.Drawing.Point(194, 169) +Me.Label61.Name = "Label61" +Me.Label61.Size = New System.Drawing.Size(59, 51) +Me.Label61.TabIndex = 176 +Me.Label61.Text = "@Bratty @Caring @Custom1" +Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'CBIMaledomSD +'Label57 +' +Me.Label57.Location = New System.Drawing.Point(194, 11) +Me.Label57.Name = "Label57" +Me.Label57.Size = New System.Drawing.Size(120, 23) +Me.Label57.TabIndex = 160 +Me.Label57.Text = "File Name" +Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' +'Label58 ' -Me.CBIMaledomSD.AutoSize = true -Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD -Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black -Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) -Me.CBIMaledomSD.Name = "CBIMaledomSD" -Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIMaledomSD.TabIndex = 35 -Me.CBIMaledomSD.UseVisualStyleBackColor = true +Me.Label58.Location = New System.Drawing.Point(350, 11) +Me.Label58.Name = "Label58" +Me.Label58.Size = New System.Drawing.Size(326, 23) +Me.Label58.TabIndex = 161 +Me.Label58.Text = "Domme's Post" +Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIBlowjob +'Label60 ' -Me.CBIBlowjob.AutoSize = true -Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob -Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) -Me.CBIBlowjob.Name = "CBIBlowjob" -Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) -Me.CBIBlowjob.TabIndex = 12 -Me.CBIBlowjob.Text = "Blowjob" -Me.CBIBlowjob.UseVisualStyleBackColor = true +Me.Label60.Location = New System.Drawing.Point(194, 139) +Me.Label60.Name = "Label60" +Me.Label60.Size = New System.Drawing.Size(120, 30) +Me.Label60.TabIndex = 175 +Me.Label60.Text = "Tease Responses Need 3 of Each:" +Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIGaySD +'TBGlitModFileName ' -Me.CBIGaySD.AutoSize = true -Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD -Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGaySD.ForeColor = System.Drawing.Color.Black -Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) -Me.CBIGaySD.Name = "CBIGaySD" -Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) -Me.CBIGaySD.TabIndex = 31 -Me.CBIGaySD.UseVisualStyleBackColor = true +Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) +Me.TBGlitModFileName.Name = "TBGlitModFileName" +Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) +Me.TBGlitModFileName.TabIndex = 158 ' -'CBIHentaiSD +'GroupBox34 ' -Me.CBIHentaiSD.AutoSize = true -Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD -Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black -Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) -Me.CBIHentaiSD.Name = "CBIHentaiSD" -Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHentaiSD.TabIndex = 27 -Me.CBIHentaiSD.UseVisualStyleBackColor = true +Me.GroupBox34.BackColor = System.Drawing.Color.LightGray +Me.GroupBox34.Controls.Add(Me.Label52) +Me.GroupBox34.ForeColor = System.Drawing.Color.Black +Me.GroupBox34.Location = New System.Drawing.Point(8, 296) +Me.GroupBox34.Name = "GroupBox34" +Me.GroupBox34.Size = New System.Drawing.Size(683, 107) +Me.GroupBox34.TabIndex = 66 +Me.GroupBox34.TabStop = false +Me.GroupBox34.Text = "Description" ' -'CBIBlowjobSD +'Label52 ' -Me.CBIBlowjobSD.AutoSize = true -Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD -Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) -Me.CBIBlowjobSD.Name = "CBIBlowjobSD" -Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) -Me.CBIBlowjobSD.TabIndex = 15 -Me.CBIBlowjobSD.UseVisualStyleBackColor = true +Me.Label52.BackColor = System.Drawing.Color.Transparent +Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label52.ForeColor = System.Drawing.Color.Black +Me.Label52.Location = New System.Drawing.Point(6, 16) +Me.Label52.Name = "Label52" +Me.Label52.Size = New System.Drawing.Size(670, 88) +Me.Label52.TabIndex = 62 +Me.Label52.Text = resources.GetString("Label52.Text") +Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIFemdomSD +'RTBGlitModDommePost ' -Me.CBIFemdomSD.AutoSize = true -Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD -Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black -Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) -Me.CBIFemdomSD.Name = "CBIFemdomSD" -Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIFemdomSD.TabIndex = 19 -Me.CBIFemdomSD.UseVisualStyleBackColor = true +Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) +Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" +Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) +Me.RTBGlitModDommePost.TabIndex = 162 +Me.RTBGlitModDommePost.Text = "" ' -'TbxIButts +'Button26 ' -Me.TbxIButts.BackColor = System.Drawing.Color.LightGray -Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIButts.ForeColor = System.Drawing.Color.Black -Me.TbxIButts.Location = New System.Drawing.Point(115, 353) -Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIButts.Name = "TbxIButts" -Me.TbxIButts.ReadOnly = true -Me.TbxIButts.Size = New System.Drawing.Size(217, 17) -Me.TbxIButts.TabIndex = 50 -Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath +Me.Button26.Location = New System.Drawing.Point(194, 239) +Me.Button26.Name = "Button26" +Me.Button26.Size = New System.Drawing.Size(120, 23) +Me.Button26.TabIndex = 174 +Me.Button26.Text = "Clear Fields" +Me.Button26.UseVisualStyleBackColor = true ' -'CBIFemdom +'Label56 ' -Me.CBIFemdom.AutoSize = true -Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom -Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdom.ForeColor = System.Drawing.Color.Black -Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) -Me.CBIFemdom.Name = "CBIFemdom" -Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) -Me.CBIFemdom.TabIndex = 16 -Me.CBIFemdom.Text = "Femdom" -Me.CBIFemdom.UseVisualStyleBackColor = true +Me.Label56.Location = New System.Drawing.Point(350, 80) +Me.Label56.Name = "Label56" +Me.Label56.Size = New System.Drawing.Size(324, 23) +Me.Label56.TabIndex = 156 +Me.Label56.Text = "Responses (Minimum 3)" +Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TbxILesbian +'RTBGlitModResponses ' -Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray -Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILesbian.ForeColor = System.Drawing.Color.Black -Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) -Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILesbian.Name = "TbxILesbian" -Me.TbxILesbian.ReadOnly = true -Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) -Me.TbxILesbian.TabIndex = 10 -Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian +Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) +Me.RTBGlitModResponses.Name = "RTBGlitModResponses" +Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) +Me.RTBGlitModResponses.TabIndex = 150 +Me.RTBGlitModResponses.Text = "" ' -'CBILezdom +'LBGlitModScripts ' -Me.CBILezdom.AutoSize = true -Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom -Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdom.ForeColor = System.Drawing.Color.Black -Me.CBILezdom.Location = New System.Drawing.Point(3, 148) -Me.CBILezdom.Name = "CBILezdom" -Me.CBILezdom.Size = New System.Drawing.Size(70, 23) -Me.CBILezdom.TabIndex = 20 -Me.CBILezdom.Text = "Lezdom" -Me.CBILezdom.UseVisualStyleBackColor = true +Me.LBGlitModScripts.FormattingEnabled = true +Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) +Me.LBGlitModScripts.Name = "LBGlitModScripts" +Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) +Me.LBGlitModScripts.TabIndex = 163 ' -'TbxIBoobs +'LBLGlitModScriptCount ' -Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray -Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black -Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) -Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.Name = "TbxIBoobs" -Me.TbxIBoobs.ReadOnly = true -Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.TabIndex = 46 -Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath +Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) +Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" +Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) +Me.LBLGlitModScriptCount.TabIndex = 173 +Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" +Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIHentai +'LBLGlitModDomType ' -Me.CBIHentai.AutoSize = true -Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai -Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentai.ForeColor = System.Drawing.Color.Black -Me.CBIHentai.Location = New System.Drawing.Point(3, 177) -Me.CBIHentai.Name = "CBIHentai" -Me.CBIHentai.Size = New System.Drawing.Size(70, 23) -Me.CBIHentai.TabIndex = 24 -Me.CBIHentai.Text = "Hentai" -Me.CBIHentai.UseVisualStyleBackColor = true +Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) +Me.LBLGlitModDomType.Name = "LBLGlitModDomType" +Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) +Me.LBLGlitModDomType.TabIndex = 155 +Me.LBLGlitModDomType.Text = "Total Brat" +Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TbxIBlowjob +'Button29 ' -Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black -Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.Name = "TbxIBlowjob" -Me.TbxIBlowjob.ReadOnly = true -Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.TabIndex = 14 -Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob +Me.Button29.Location = New System.Drawing.Point(194, 268) +Me.Button29.Name = "Button29" +Me.Button29.Size = New System.Drawing.Size(120, 23) +Me.Button29.TabIndex = 151 +Me.Button29.Text = "Save Glitter File" +Me.Button29.UseVisualStyleBackColor = true ' -'CBIGay +'CBGlitModType ' -Me.CBIGay.AutoSize = true -Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay -Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGay.ForeColor = System.Drawing.Color.Black -Me.CBIGay.Location = New System.Drawing.Point(3, 206) -Me.CBIGay.Name = "CBIGay" -Me.CBIGay.Size = New System.Drawing.Size(70, 23) -Me.CBIGay.TabIndex = 28 -Me.CBIGay.Text = "Gay" -Me.CBIGay.UseVisualStyleBackColor = true +Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.CBGlitModType.FormattingEnabled = true +Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) +Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) +Me.CBGlitModType.Name = "CBGlitModType" +Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) +Me.CBGlitModType.TabIndex = 171 ' -'TbxIGeneral +'Label59 ' -Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray -Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black -Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) -Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.Name = "TbxIGeneral" -Me.TbxIGeneral.ReadOnly = true -Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.TabIndex = 42 -Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral +Me.Label59.Location = New System.Drawing.Point(33, 11) +Me.Label59.Name = "Label59" +Me.Label59.Size = New System.Drawing.Size(130, 23) +Me.Label59.TabIndex = 172 +Me.Label59.Text = "Glitter Post Type" +Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIMaledom +'Label50 ' -Me.CBIMaledom.AutoSize = true -Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom -Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledom.ForeColor = System.Drawing.Color.Black -Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) -Me.CBIMaledom.Name = "CBIMaledom" -Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) -Me.CBIMaledom.TabIndex = 32 -Me.CBIMaledom.Text = "Maledom" -Me.CBIMaledom.UseVisualStyleBackColor = true +Me.Label50.Location = New System.Drawing.Point(191, 80) +Me.Label50.Name = "Label50" +Me.Label50.Size = New System.Drawing.Size(123, 23) +Me.Label50.TabIndex = 154 +Me.Label50.Text = "Current Domme Personality:" +Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TbxIFemdom +'TabPage25 ' -Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray -Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black -Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) -Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.Name = "TbxIFemdom" -Me.TbxIFemdom.ReadOnly = true -Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.TabIndex = 18 -Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom +Me.TabPage25.BackColor = System.Drawing.Color.Silver +Me.TabPage25.Controls.Add(Me.Panel11) +Me.TabPage25.Location = New System.Drawing.Point(4, 22) +Me.TabPage25.Name = "TabPage25" +Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage25.Size = New System.Drawing.Size(720, 448) +Me.TabPage25.TabIndex = 18 +Me.TabPage25.Text = "Misc" ' -'TbxICaptions +'Panel11 ' -Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray -Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxICaptions.ForeColor = System.Drawing.Color.Black -Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) -Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxICaptions.Name = "TbxICaptions" -Me.TbxICaptions.ReadOnly = true -Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) -Me.TbxICaptions.TabIndex = 38 -Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions +Me.Panel11.BackColor = System.Drawing.Color.LightGray +Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel11.Controls.Add(Me.GroupBox62) +Me.Panel11.Controls.Add(Me.GroupBox33) +Me.Panel11.Controls.Add(Me.GroupBox8) +Me.Panel11.Controls.Add(Me.GroupBox27) +Me.Panel11.Controls.Add(Me.GroupBox20) +Me.Panel11.Controls.Add(Me.GroupBox15) +Me.Panel11.Controls.Add(Me.PictureBox9) +Me.Panel11.Controls.Add(Me.Label148) +Me.Panel11.Location = New System.Drawing.Point(6, 6) +Me.Panel11.Name = "Panel11" +Me.Panel11.Size = New System.Drawing.Size(708, 437) +Me.Panel11.TabIndex = 92 ' -'CBICaptions +'GroupBox62 ' -Me.CBICaptions.AutoSize = true -Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions -Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptions.ForeColor = System.Drawing.Color.Black -Me.CBICaptions.Location = New System.Drawing.Point(3, 264) -Me.CBICaptions.Name = "CBICaptions" -Me.CBICaptions.Size = New System.Drawing.Size(70, 23) -Me.CBICaptions.TabIndex = 36 -Me.CBICaptions.Text = "Captions" -Me.CBICaptions.UseVisualStyleBackColor = true +Me.GroupBox62.Controls.Add(Me.RBGerman) +Me.GroupBox62.Controls.Add(Me.RBEnglish) +Me.GroupBox62.Location = New System.Drawing.Point(420, 155) +Me.GroupBox62.Name = "GroupBox62" +Me.GroupBox62.Size = New System.Drawing.Size(277, 56) +Me.GroupBox62.TabIndex = 178 +Me.GroupBox62.TabStop = false +Me.GroupBox62.Text = "Language" ' -'TbxILezdom +'RBGerman ' -Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray -Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILezdom.ForeColor = System.Drawing.Color.Black -Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) -Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILezdom.Name = "TbxILezdom" -Me.TbxILezdom.ReadOnly = true -Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) -Me.TbxILezdom.TabIndex = 22 -Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom +Me.RBGerman.AutoSize = true +Me.RBGerman.Location = New System.Drawing.Point(180, 20) +Me.RBGerman.Name = "RBGerman" +Me.RBGerman.Size = New System.Drawing.Size(65, 17) +Me.RBGerman.TabIndex = 1 +Me.RBGerman.Text = "Deutsch" +Me.RBGerman.UseVisualStyleBackColor = true ' -'TbxIMaledom +'RBEnglish ' -Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray -Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black -Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) -Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.Name = "TbxIMaledom" -Me.TbxIMaledom.ReadOnly = true -Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.TabIndex = 34 -Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom +Me.RBEnglish.AutoSize = true +Me.RBEnglish.Checked = true +Me.RBEnglish.Location = New System.Drawing.Point(36, 19) +Me.RBEnglish.Name = "RBEnglish" +Me.RBEnglish.Size = New System.Drawing.Size(59, 17) +Me.RBEnglish.TabIndex = 0 +Me.RBEnglish.TabStop = true +Me.RBEnglish.Text = "English" +Me.RBEnglish.UseVisualStyleBackColor = true ' -'TbxIHentai +'GroupBox33 ' -Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray -Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHentai.ForeColor = System.Drawing.Color.Black -Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) -Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHentai.Name = "TbxIHentai" -Me.TbxIHentai.ReadOnly = true -Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) -Me.TbxIHentai.TabIndex = 26 -Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai +Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) +Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) +Me.GroupBox33.Controls.Add(Me.Label140) +Me.GroupBox33.Controls.Add(Me.Button11) +Me.GroupBox33.Controls.Add(Me.LBLChastityState) +Me.GroupBox33.Controls.Add(Me.Label120) +Me.GroupBox33.Location = New System.Drawing.Point(420, 321) +Me.GroupBox33.Name = "GroupBox33" +Me.GroupBox33.Size = New System.Drawing.Size(277, 106) +Me.GroupBox33.TabIndex = 177 +Me.GroupBox33.TabStop = false +Me.GroupBox33.Text = "System States" ' -'CBIGeneral +'BTNOfflineMode ' -Me.CBIGeneral.AutoSize = true -Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral -Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneral.ForeColor = System.Drawing.Color.Black -Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) -Me.CBIGeneral.Name = "CBIGeneral" -Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) -Me.CBIGeneral.TabIndex = 40 -Me.CBIGeneral.Text = "General" -Me.CBIGeneral.UseVisualStyleBackColor = true +Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) +Me.BTNOfflineMode.Name = "BTNOfflineMode" +Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) +Me.BTNOfflineMode.TabIndex = 180 +Me.BTNOfflineMode.Text = "Toggle" +Me.BTNOfflineMode.UseVisualStyleBackColor = true ' -'TbxIGay +'LBLOfflineMode ' -Me.TbxIGay.BackColor = System.Drawing.Color.LightGray -Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGay.ForeColor = System.Drawing.Color.Black -Me.TbxIGay.Location = New System.Drawing.Point(115, 208) -Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGay.Name = "TbxIGay" -Me.TbxIGay.ReadOnly = true -Me.TbxIGay.Size = New System.Drawing.Size(217, 17) -Me.TbxIGay.TabIndex = 30 -Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay +Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray +Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red +Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) +Me.LBLOfflineMode.Name = "LBLOfflineMode" +Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) +Me.LBLOfflineMode.TabIndex = 179 +Me.LBLOfflineMode.Text = "OFF" +Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIBoobs +'Label140 ' -Me.CBIBoobs.AutoSize = true -Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs -Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBoobs.ForeColor = System.Drawing.Color.Black -Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) -Me.CBIBoobs.Name = "CBIBoobs" -Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) -Me.CBIBoobs.TabIndex = 44 -Me.CBIBoobs.Text = "Boobs" -Me.CBIBoobs.UseVisualStyleBackColor = true +Me.Label140.BackColor = System.Drawing.Color.LightGray +Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label140.Location = New System.Drawing.Point(17, 70) +Me.Label140.Name = "Label140" +Me.Label140.Size = New System.Drawing.Size(98, 23) +Me.Label140.TabIndex = 178 +Me.Label140.Text = "OFFLINE MODE" +Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBIButts +'Button11 ' -Me.CBIButts.AutoSize = true -Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts -Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIButts.ForeColor = System.Drawing.Color.Black -Me.CBIButts.Location = New System.Drawing.Point(3, 351) -Me.CBIButts.Name = "CBIButts" -Me.CBIButts.Size = New System.Drawing.Size(70, 27) -Me.CBIButts.TabIndex = 48 -Me.CBIButts.Text = "Butts" -Me.CBIButts.UseVisualStyleBackColor = true +Me.Button11.Location = New System.Drawing.Point(161, 33) +Me.Button11.Name = "Button11" +Me.Button11.Size = New System.Drawing.Size(99, 23) +Me.Button11.TabIndex = 177 +Me.Button11.Text = "Toggle" +Me.Button11.UseVisualStyleBackColor = true ' -'TxbVideoGeneralD +'LBLChastityState ' -Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" -Me.TxbVideoGeneralD.ReadOnly = true -Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.TabIndex = 2 -Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD +Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray +Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLChastityState.ForeColor = System.Drawing.Color.Red +Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) +Me.LBLChastityState.Name = "LBLChastityState" +Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) +Me.LBLChastityState.TabIndex = 3 +Me.LBLChastityState.Text = "OFF" +Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBVideoGeneralD +'Label120 ' -Me.CBVideoGeneralD.AutoSize = true -Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD -Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneralD.Name = "CBVideoGeneralD" -Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneralD.TabIndex = 0 -Me.CBVideoGeneralD.Text = "General" -Me.CBVideoGeneralD.UseVisualStyleBackColor = true +Me.Label120.BackColor = System.Drawing.Color.LightGray +Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label120.Location = New System.Drawing.Point(17, 33) +Me.Label120.Name = "Label120" +Me.Label120.Size = New System.Drawing.Size(98, 23) +Me.Label120.TabIndex = 2 +Me.Label120.Text = "CHASTITY" +Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TxbVideoCHD +'GroupBox8 ' -Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.Name = "TxbVideoCHD" -Me.TxbVideoCHD.ReadOnly = true -Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.TabIndex = 6 -Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD +Me.GroupBox8.Controls.Add(Me.CBOutputErrors) +Me.GroupBox8.Location = New System.Drawing.Point(420, 214) +Me.GroupBox8.Name = "GroupBox8" +Me.GroupBox8.Size = New System.Drawing.Size(279, 47) +Me.GroupBox8.TabIndex = 179 +Me.GroupBox8.TabStop = false +Me.GroupBox8.Text = "System Information" ' -'TxbVideoJOID +'CBOutputErrors ' -Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.Name = "TxbVideoJOID" -Me.TxbVideoJOID.ReadOnly = true -Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.TabIndex = 2 -Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID +Me.CBOutputErrors.AutoSize = true +Me.CBOutputErrors.Checked = true +Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked +Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black +Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) +Me.CBOutputErrors.Name = "CBOutputErrors" +Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) +Me.CBOutputErrors.TabIndex = 29 +Me.CBOutputErrors.TabStop = false +Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" +Me.CBOutputErrors.UseVisualStyleBackColor = true ' -'CBVideoJOID +'GroupBox27 ' -Me.CBVideoJOID.AutoSize = true -Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID -Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOID.Name = "CBVideoJOID" -Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOID.TabIndex = 0 -Me.CBVideoJOID.Text = "JOI" -Me.CBVideoJOID.UseVisualStyleBackColor = true +Me.GroupBox27.Controls.Add(Me.Button6) +Me.GroupBox27.Controls.Add(Me.LBLSesSpace) +Me.GroupBox27.Controls.Add(Me.Button3) +Me.GroupBox27.Controls.Add(Me.LBLSesFiles) +Me.GroupBox27.Controls.Add(Me.Label125) +Me.GroupBox27.Controls.Add(Me.Label124) +Me.GroupBox27.Location = New System.Drawing.Point(420, 32) +Me.GroupBox27.Name = "GroupBox27" +Me.GroupBox27.Size = New System.Drawing.Size(279, 117) +Me.GroupBox27.TabIndex = 176 +Me.GroupBox27.TabStop = false +Me.GroupBox27.Text = "Session Images" ' -'CBVideoCHD +'Button6 ' -Me.CBVideoCHD.AutoSize = true -Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD -Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black -Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCHD.Name = "CBVideoCHD" -Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCHD.TabIndex = 4 -Me.CBVideoCHD.Text = "CH" -Me.CBVideoCHD.UseVisualStyleBackColor = true +Me.Button6.Location = New System.Drawing.Point(143, 76) +Me.Button6.Name = "Button6" +Me.Button6.Size = New System.Drawing.Size(117, 23) +Me.Button6.TabIndex = 176 +Me.Button6.Text = "Delete All Files" +Me.Button6.UseVisualStyleBackColor = true ' -'TxbVideoFemsubD +'LBLSesSpace ' -Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" -Me.TxbVideoFemsubD.ReadOnly = true -Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.TabIndex = 22 -Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD +Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) +Me.LBLSesSpace.Name = "LBLSesSpace" +Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) +Me.LBLSesSpace.TabIndex = 3 ' -'TxbVideoFemdomD +'Button3 ' -Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" -Me.TxbVideoFemdomD.ReadOnly = true -Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.TabIndex = 18 -Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD +Me.Button3.Location = New System.Drawing.Point(20, 76) +Me.Button3.Name = "Button3" +Me.Button3.Size = New System.Drawing.Size(117, 23) +Me.Button3.TabIndex = 175 +Me.Button3.Text = "Open Folder" +Me.Button3.UseVisualStyleBackColor = true ' -'TxbVideoBlowjobD +'LBLSesFiles ' -Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" -Me.TxbVideoBlowjobD.ReadOnly = true -Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.TabIndex = 14 -Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD +Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) +Me.LBLSesFiles.Name = "LBLSesFiles" +Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) +Me.LBLSesFiles.TabIndex = 2 ' -'TxbVideoLesbianD +'Label125 ' -Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" -Me.TxbVideoLesbianD.ReadOnly = true -Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.TabIndex = 10 -Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD +Me.Label125.AutoSize = true +Me.Label125.Location = New System.Drawing.Point(17, 53) +Me.Label125.Name = "Label125" +Me.Label125.Size = New System.Drawing.Size(120, 13) +Me.Label125.TabIndex = 1 +Me.Label125.Text = "Total Disk Space Used:" ' -'TxbVideoSoftCoreD +'Label124 ' -Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" -Me.TxbVideoSoftCoreD.ReadOnly = true -Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.TabIndex = 6 -Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD +Me.Label124.AutoSize = true +Me.Label124.Location = New System.Drawing.Point(17, 24) +Me.Label124.Name = "Label124" +Me.Label124.Size = New System.Drawing.Size(126, 13) +Me.Label124.TabIndex = 0 +Me.Label124.Text = "Number of Files in Folder:" ' -'TxbVideoHardCoreD +'GroupBox20 ' -Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" -Me.TxbVideoHardCoreD.ReadOnly = true -Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.TabIndex = 2 -Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD +Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label87) +Me.GroupBox20.Controls.Add(Me.TBURLFileWith) +Me.GroupBox20.Controls.Add(Me.Label118) +Me.GroupBox20.Controls.Add(Me.Label85) +Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) +Me.GroupBox20.Controls.Add(Me.Label53) +Me.GroupBox20.Controls.Add(Me.Label8) +Me.GroupBox20.Controls.Add(Me.Button1) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) +Me.GroupBox20.Controls.Add(Me.Label117) +Me.GroupBox20.Controls.Add(Me.Label116) +Me.GroupBox20.Controls.Add(Me.PBCurrent) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) +Me.GroupBox20.Controls.Add(Me.PBMaintenance) +Me.GroupBox20.Controls.Add(Me.LBLMaintenance) +Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) +Me.GroupBox20.Location = New System.Drawing.Point(6, 32) +Me.GroupBox20.Name = "GroupBox20" +Me.GroupBox20.Size = New System.Drawing.Size(408, 283) +Me.GroupBox20.TabIndex = 174 +Me.GroupBox20.TabStop = false +Me.GroupBox20.Text = "Maintenance" ' -'CBVideoHardcoreD +'BTNURLFileReplace ' -Me.CBVideoHardcoreD.AutoSize = true -Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD -Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" -Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcoreD.TabIndex = 0 -Me.CBVideoHardcoreD.Text = "Hardcore" -Me.CBVideoHardcoreD.UseVisualStyleBackColor = true +Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) +Me.BTNURLFileReplace.Name = "BTNURLFileReplace" +Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) +Me.BTNURLFileReplace.TabIndex = 184 +Me.BTNURLFileReplace.Text = "Replace" +Me.BTNURLFileReplace.UseVisualStyleBackColor = true ' -'CBVideoSoftCoreD +'Label87 ' -Me.CBVideoSoftCoreD.AutoSize = true -Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD -Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" -Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCoreD.TabIndex = 4 -Me.CBVideoSoftCoreD.Text = "Softcore" -Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true +Me.Label87.AutoSize = true +Me.Label87.Location = New System.Drawing.Point(206, 254) +Me.Label87.Name = "Label87" +Me.Label87.Size = New System.Drawing.Size(38, 13) +Me.Label87.TabIndex = 183 +Me.Label87.Text = ".media" ' -'CBVideoLesbianD +'TBURLFileWith ' -Me.CBVideoLesbianD.AutoSize = true -Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD -Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbianD.Name = "CBVideoLesbianD" -Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbianD.TabIndex = 8 -Me.CBVideoLesbianD.Text = "Lesbian" -Me.CBVideoLesbianD.UseVisualStyleBackColor = true +Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) +Me.TBURLFileWith.Name = "TBURLFileWith" +Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileWith.TabIndex = 182 ' -'CBVideoBlowjobD +'Label118 ' -Me.CBVideoBlowjobD.AutoSize = true -Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD -Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" -Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjobD.TabIndex = 12 -Me.CBVideoBlowjobD.Text = "Blowjob" -Me.CBVideoBlowjobD.UseVisualStyleBackColor = true +Me.Label118.AutoSize = true +Me.Label118.Location = New System.Drawing.Point(142, 254) +Me.Label118.Name = "Label118" +Me.Label118.Size = New System.Drawing.Size(29, 13) +Me.Label118.TabIndex = 181 +Me.Label118.Text = "With" ' -'CBVideoFemsubD +'Label85 ' -Me.CBVideoFemsubD.AutoSize = true -Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD -Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsubD.Name = "CBVideoFemsubD" -Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsubD.TabIndex = 20 -Me.CBVideoFemsubD.Text = "Femsub" -Me.CBVideoFemsubD.UseVisualStyleBackColor = true +Me.Label85.AutoSize = true +Me.Label85.Location = New System.Drawing.Point(98, 254) +Me.Label85.Name = "Label85" +Me.Label85.Size = New System.Drawing.Size(38, 13) +Me.Label85.TabIndex = 180 +Me.Label85.Text = ".media" ' -'CBVideoFemdomD +'TBURLFileReplace ' -Me.CBVideoFemdomD.AutoSize = true -Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD -Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdomD.Name = "CBVideoFemdomD" -Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdomD.TabIndex = 16 -Me.CBVideoFemdomD.Text = "Femdom" -Me.CBVideoFemdomD.UseVisualStyleBackColor = true +Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) +Me.TBURLFileReplace.Name = "TBURLFileReplace" +Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) +Me.TBURLFileReplace.TabIndex = 179 ' -'TxbVideoGeneral +'Label53 ' -Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.Name = "TxbVideoGeneral" -Me.TxbVideoGeneral.ReadOnly = true -Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.TabIndex = 2 -Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral +Me.Label53.AutoSize = true +Me.Label53.Location = New System.Drawing.Point(16, 254) +Me.Label53.Name = "Label53" +Me.Label53.Size = New System.Drawing.Size(47, 13) +Me.Label53.TabIndex = 178 +Me.Label53.Text = "Replace" ' -'CBVideoGeneral +'Label8 ' -Me.CBVideoGeneral.AutoSize = true -Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral -Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneral.Name = "CBVideoGeneral" -Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneral.TabIndex = 0 -Me.CBVideoGeneral.Text = "General" -Me.CBVideoGeneral.UseVisualStyleBackColor = true +Me.Label8.AutoSize = true +Me.Label8.Location = New System.Drawing.Point(16, 232) +Me.Label8.Name = "Label8" +Me.Label8.Size = New System.Drawing.Size(130, 13) +Me.Label8.TabIndex = 177 +Me.Label8.Text = "Change URL File Servers " ' -'TxbVideoCH +'Button1 ' -Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.Name = "TxbVideoCH" -Me.TxbVideoCH.ReadOnly = true -Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.TabIndex = 6 -Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH +Me.Button1.Enabled = false +Me.Button1.Location = New System.Drawing.Point(270, 19) +Me.Button1.Name = "Button1" +Me.Button1.Size = New System.Drawing.Size(121, 23) +Me.Button1.TabIndex = 176 +Me.Button1.Text = "Reset Settings" +Me.Button1.UseVisualStyleBackColor = true ' -'TxbVideoJOI +'BTNMaintenanceScripts ' -Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.Name = "TxbVideoJOI" -Me.TxbVideoJOI.ReadOnly = true -Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.TabIndex = 2 -Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI +Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) +Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" +Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceScripts.TabIndex = 175 +Me.BTNMaintenanceScripts.Text = "Audit Scripts" +Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true +' +'BTNMaintenanceRefresh +' +Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) +Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" +Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRefresh.TabIndex = 7 +Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" +Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true ' -'CBVideoJOI +'Label117 ' -Me.CBVideoJOI.AutoSize = true -Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI -Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOI.Name = "CBVideoJOI" -Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOI.TabIndex = 0 -Me.CBVideoJOI.Text = "JOI" -Me.CBVideoJOI.UseVisualStyleBackColor = true +Me.Label117.AutoSize = true +Me.Label117.Location = New System.Drawing.Point(15, 182) +Me.Label117.Name = "Label117" +Me.Label117.Size = New System.Drawing.Size(84, 13) +Me.Label117.TabIndex = 6 +Me.Label117.Text = "Overall Progress" ' -'CBVideoCH +'Label116 ' -Me.CBVideoCH.AutoSize = true -Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH -Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCH.ForeColor = System.Drawing.Color.Black -Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCH.Name = "CBVideoCH" -Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCH.TabIndex = 4 -Me.CBVideoCH.Text = "CH" -Me.CBVideoCH.UseVisualStyleBackColor = true +Me.Label116.AutoSize = true +Me.Label116.Location = New System.Drawing.Point(15, 140) +Me.Label116.Name = "Label116" +Me.Label116.Size = New System.Drawing.Size(85, 13) +Me.Label116.TabIndex = 5 +Me.Label116.Text = "Current Progress" ' -'TxbVideoFemsub +'PBCurrent ' -Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.Name = "TxbVideoFemsub" -Me.TxbVideoFemsub.ReadOnly = true -Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.TabIndex = 22 -Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub +Me.PBCurrent.Location = New System.Drawing.Point(15, 156) +Me.PBCurrent.Name = "PBCurrent" +Me.PBCurrent.Size = New System.Drawing.Size(376, 23) +Me.PBCurrent.TabIndex = 4 ' -'TxbVideoFemdom +'BTNMaintenanceCancel ' -Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.Name = "TxbVideoFemdom" -Me.TxbVideoFemdom.ReadOnly = true -Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.TabIndex = 18 -Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom +Me.BTNMaintenanceCancel.Enabled = false +Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) +Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" +Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceCancel.TabIndex = 3 +Me.BTNMaintenanceCancel.Text = "Cancel" +Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true ' -'TxbVideoBlowjob +'PBMaintenance ' -Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" -Me.TxbVideoBlowjob.ReadOnly = true -Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.TabIndex = 14 -Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob +Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) +Me.PBMaintenance.Name = "PBMaintenance" +Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) +Me.PBMaintenance.TabIndex = 2 ' -'TxbVideoLesbian +'LBLMaintenance ' -Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.Name = "TxbVideoLesbian" -Me.TxbVideoLesbian.ReadOnly = true -Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.TabIndex = 10 -Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian +Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) +Me.LBLMaintenance.Name = "LBLMaintenance" +Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) +Me.LBLMaintenance.TabIndex = 1 +Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TxbVideoSoftCore +'BTNMaintenanceRebuild ' -Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" -Me.TxbVideoSoftCore.ReadOnly = true -Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.TabIndex = 6 -Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore +Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) +Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" +Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) +Me.BTNMaintenanceRebuild.TabIndex = 0 +Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" +Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true ' -'TxbVideoHardCore +'GroupBox15 ' -Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.Name = "TxbVideoHardCore" -Me.TxbVideoHardCore.ReadOnly = true -Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.TabIndex = 2 -Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore +Me.GroupBox15.Controls.Add(Me.Label115) +Me.GroupBox15.Controls.Add(Me.TBWebStop) +Me.GroupBox15.Controls.Add(Me.TBWebStart) +Me.GroupBox15.Controls.Add(Me.Label114) +Me.GroupBox15.Controls.Add(Me.WebToy) +Me.GroupBox15.Location = New System.Drawing.Point(6, 321) +Me.GroupBox15.Name = "GroupBox15" +Me.GroupBox15.Size = New System.Drawing.Size(408, 106) +Me.GroupBox15.TabIndex = 173 +Me.GroupBox15.TabStop = false +Me.GroupBox15.Text = "Web-Controlled Sex Toy" ' -'CBVideoHardcore +'Label115 ' -Me.CBVideoHardcore.AutoSize = true -Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore -Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcore.Name = "CBVideoHardcore" -Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcore.TabIndex = 0 -Me.CBVideoHardcore.Text = "Hardcore" -Me.CBVideoHardcore.UseVisualStyleBackColor = true +Me.Label115.AutoSize = true +Me.Label115.Location = New System.Drawing.Point(12, 58) +Me.Label115.Name = "Label115" +Me.Label115.Size = New System.Drawing.Size(54, 13) +Me.Label115.TabIndex = 171 +Me.Label115.Text = "Stop URL" ' -'CBVideoSoftCore +'TBWebStop ' -Me.CBVideoSoftCore.AutoSize = true -Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore -Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCore.Name = "CBVideoSoftCore" -Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCore.TabIndex = 4 -Me.CBVideoSoftCore.Text = "Softcore" -Me.CBVideoSoftCore.UseVisualStyleBackColor = true +Me.TBWebStop.Location = New System.Drawing.Point(10, 72) +Me.TBWebStop.Name = "TBWebStop" +Me.TBWebStop.Size = New System.Drawing.Size(330, 20) +Me.TBWebStop.TabIndex = 170 ' -'CBVideoLesbian +'TBWebStart ' -Me.CBVideoLesbian.AutoSize = true -Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian -Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbian.Name = "CBVideoLesbian" -Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbian.TabIndex = 8 -Me.CBVideoLesbian.Text = "Lesbian" -Me.CBVideoLesbian.UseVisualStyleBackColor = true +Me.TBWebStart.Location = New System.Drawing.Point(10, 33) +Me.TBWebStart.Name = "TBWebStart" +Me.TBWebStart.Size = New System.Drawing.Size(330, 20) +Me.TBWebStart.TabIndex = 167 ' -'CBVideoBlowjob +'Label114 ' -Me.CBVideoBlowjob.AutoSize = true -Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob -Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjob.Name = "CBVideoBlowjob" -Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjob.TabIndex = 12 -Me.CBVideoBlowjob.Text = "Blowjob" -Me.CBVideoBlowjob.UseVisualStyleBackColor = true +Me.Label114.AutoSize = true +Me.Label114.Location = New System.Drawing.Point(12, 17) +Me.Label114.Name = "Label114" +Me.Label114.Size = New System.Drawing.Size(54, 13) +Me.Label114.TabIndex = 168 +Me.Label114.Text = "Start URL" ' -'CBVideoFemsub +'WebToy ' -Me.CBVideoFemsub.AutoSize = true -Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub -Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsub.Name = "CBVideoFemsub" -Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsub.TabIndex = 20 -Me.CBVideoFemsub.Text = "Femsub" -Me.CBVideoFemsub.UseVisualStyleBackColor = true +Me.WebToy.Location = New System.Drawing.Point(346, 33) +Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) +Me.WebToy.Name = "WebToy" +Me.WebToy.Size = New System.Drawing.Size(45, 59) +Me.WebToy.TabIndex = 172 +' +'PictureBox9 +' +Me.PictureBox9.BackColor = System.Drawing.Color.LightGray +Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small +Me.PictureBox9.Location = New System.Drawing.Point(9, 6) +Me.PictureBox9.Name = "PictureBox9" +Me.PictureBox9.Size = New System.Drawing.Size(160, 19) +Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage +Me.PictureBox9.TabIndex = 166 +Me.PictureBox9.TabStop = false ' -'CBVideoFemdom +'Label148 ' -Me.CBVideoFemdom.AutoSize = true -Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom -Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdom.Name = "CBVideoFemdom" -Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdom.TabIndex = 16 -Me.CBVideoFemdom.Text = "Femdom" -Me.CBVideoFemdom.UseVisualStyleBackColor = true +Me.Label148.BackColor = System.Drawing.Color.Transparent +Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label148.ForeColor = System.Drawing.Color.Black +Me.Label148.Location = New System.Drawing.Point(7, 6) +Me.Label148.Name = "Label148" +Me.Label148.Size = New System.Drawing.Size(692, 21) +Me.Label148.TabIndex = 48 +Me.Label148.Text = "Miscellaneous Settings" +Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitterFeedScripts +'TabPage28 ' -Me.CBGlitterFeedScripts.AutoSize = true -Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent -Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts -Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) -Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) -Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" -Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) -Me.CBGlitterFeedScripts.TabIndex = 146 -Me.CBGlitterFeedScripts.Text = "Scripts" -Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false +Me.TabPage28.BackColor = System.Drawing.Color.Silver +Me.TabPage28.Controls.Add(Me.TabControl3) +Me.TabPage28.Location = New System.Drawing.Point(4, 22) +Me.TabPage28.Name = "TabPage28" +Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage28.Size = New System.Drawing.Size(720, 448) +Me.TabPage28.TabIndex = 20 +Me.TabPage28.Text = "Debug" ' -'CBGlitterFeed +'TabControl3 ' -Me.CBGlitterFeed.AutoSize = true -Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed -Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) -Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) -Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) -Me.CBGlitterFeed.Name = "CBGlitterFeed" -Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeed.TabIndex = 145 -Me.CBGlitterFeed.Text = "On" -Me.CBGlitterFeed.UseVisualStyleBackColor = true +Me.TabControl3.Controls.Add(Me.TabPage29) +Me.TabControl3.Controls.Add(Me.TabPage30) +Me.TabControl3.Location = New System.Drawing.Point(6, 6) +Me.TabControl3.Name = "TabControl3" +Me.TabControl3.SelectedIndex = 0 +Me.TabControl3.Size = New System.Drawing.Size(708, 437) +Me.TabControl3.TabIndex = 0 ' -'CBGlitterFeedOff +'TabPage29 ' -Me.CBGlitterFeedOff.AutoSize = true -Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff -Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) -Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) -Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" -Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeedOff.TabIndex = 147 -Me.CBGlitterFeedOff.TabStop = true -Me.CBGlitterFeedOff.Text = "Off" -Me.CBGlitterFeedOff.UseVisualStyleBackColor = true +Me.TabPage29.BackColor = System.Drawing.Color.LightGray +Me.TabPage29.Controls.Add(Me.Label143) +Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) +Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) +Me.TabPage29.Controls.Add(Me.GroupBox26) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) +Me.TabPage29.Controls.Add(Me.Label145) +Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) +Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) +Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) +Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) +Me.TabPage29.Controls.Add(Me.Label142) +Me.TabPage29.Controls.Add(Me.Label150) +Me.TabPage29.Controls.Add(Me.Label152) +Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) +Me.TabPage29.Controls.Add(Me.Label147) +Me.TabPage29.Location = New System.Drawing.Point(4, 22) +Me.TabPage29.Name = "TabPage29" +Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage29.Size = New System.Drawing.Size(700, 411) +Me.TabPage29.TabIndex = 0 +Me.TabPage29.Text = "TabPage29" ' -'LBLGlitterNCDomme +'Label143 ' -Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White -Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor -Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" -Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNCDomme.TabIndex = 163 -Me.LBLGlitterNCDomme.Text = "Preview" -Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.Label143.Location = New System.Drawing.Point(402, 46) +Me.Label143.Name = "Label143" +Me.Label143.Size = New System.Drawing.Size(67, 23) +Me.Label143.TabIndex = 15 +Me.Label143.Text = "Script Timer" +Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBCustom2 +'LBLDebugScriptTime ' -Me.CBCustom2.AutoSize = true -Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 -Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom2.ForeColor = System.Drawing.Color.Black -Me.CBCustom2.Location = New System.Drawing.Point(149, 121) -Me.CBCustom2.Name = "CBCustom2" -Me.CBCustom2.Size = New System.Drawing.Size(70, 17) -Me.CBCustom2.TabIndex = 161 -Me.CBCustom2.Text = "Custom 2" -Me.CBCustom2.UseVisualStyleBackColor = true +Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) +Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" +Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugScriptTime.TabIndex = 16 +Me.LBLDebugScriptTime.Text = "0" +Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GlitterSlider +'BTNDebugHoldEdgeTimer ' -Me.GlitterSlider.AutoSize = false -Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider.LargeChange = 1 -Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider.Maximum = 9 -Me.GlitterSlider.Minimum = 1 -Me.GlitterSlider.Name = "GlitterSlider" -Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider.TabIndex = 160 -Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider +Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) +Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" +Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugHoldEdgeTimer.TabIndex = 14 +Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" +Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true ' -'CBCustom1 +'GroupBox26 ' -Me.CBCustom1.AutoSize = true -Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 -Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom1.ForeColor = System.Drawing.Color.Black -Me.CBCustom1.Location = New System.Drawing.Point(149, 98) -Me.CBCustom1.Name = "CBCustom1" -Me.CBCustom1.Size = New System.Drawing.Size(70, 17) -Me.CBCustom1.TabIndex = 157 -Me.CBCustom1.Text = "Custom 1" -Me.CBCustom1.UseVisualStyleBackColor = true +Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) +Me.GroupBox26.Controls.Add(Me.Button19) +Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) +Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) +Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) +Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) +Me.GroupBox26.Location = New System.Drawing.Point(6, 5) +Me.GroupBox26.Name = "GroupBox26" +Me.GroupBox26.Size = New System.Drawing.Size(346, 178) +Me.GroupBox26.TabIndex = 0 +Me.GroupBox26.TabStop = false +Me.GroupBox26.Text = "Taunt Cycle" ' -'CBDaily +'LBLCycleDebugCountdown ' -Me.CBDaily.AutoSize = true -Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily -Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBDaily.ForeColor = System.Drawing.Color.Black -Me.CBDaily.Location = New System.Drawing.Point(79, 121) -Me.CBDaily.Name = "CBDaily" -Me.CBDaily.Size = New System.Drawing.Size(49, 17) -Me.CBDaily.TabIndex = 156 -Me.CBDaily.Text = "Daily" -Me.CBDaily.UseVisualStyleBackColor = true +Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) +Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" +Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) +Me.LBLCycleDebugCountdown.TabIndex = 10 +Me.LBLCycleDebugCountdown.Text = "0" +Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBTrivia +'Button19 ' -Me.CBTrivia.AutoSize = true -Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia -Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTrivia.ForeColor = System.Drawing.Color.Black -Me.CBTrivia.Location = New System.Drawing.Point(79, 98) -Me.CBTrivia.Name = "CBTrivia" -Me.CBTrivia.Size = New System.Drawing.Size(52, 17) -Me.CBTrivia.TabIndex = 155 -Me.CBTrivia.Text = "Trivia" -Me.CBTrivia.UseVisualStyleBackColor = true +Me.Button19.Location = New System.Drawing.Point(191, 142) +Me.Button19.Name = "Button19" +Me.Button19.Size = New System.Drawing.Size(146, 30) +Me.Button19.TabIndex = 9 +Me.Button19.Text = "Countdown to 5 Seconds" +Me.Button19.UseVisualStyleBackColor = true ' -'TBGlitterShortName +'BTNDebugTauntsClear ' -Me.TBGlitterShortName.BackColor = System.Drawing.Color.White -Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black -Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) -Me.TBGlitterShortName.Name = "TBGlitterShortName" -Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) -Me.TBGlitterShortName.TabIndex = 49 -Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN -Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) +Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" +Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) +Me.BTNDebugTauntsClear.TabIndex = 8 +Me.BTNDebugTauntsClear.Text = "Clear" +Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true ' -'CBEgotist +'TBDebugTaunts3 ' -Me.CBEgotist.AutoSize = true -Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist -Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBEgotist.ForeColor = System.Drawing.Color.Black -Me.CBEgotist.Location = New System.Drawing.Point(9, 121) -Me.CBEgotist.Name = "CBEgotist" -Me.CBEgotist.Size = New System.Drawing.Size(58, 17) -Me.CBEgotist.TabIndex = 153 -Me.CBEgotist.Text = "Egotist" -Me.CBEgotist.UseVisualStyleBackColor = true +Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) +Me.TBDebugTaunts3.Name = "TBDebugTaunts3" +Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts3.TabIndex = 7 ' -'CBTease +'TBDebugTaunts2 ' -Me.CBTease.AutoSize = true -Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease -Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTease.ForeColor = System.Drawing.Color.Black -Me.CBTease.Location = New System.Drawing.Point(9, 98) -Me.CBTease.Name = "CBTease" -Me.CBTease.Size = New System.Drawing.Size(56, 17) -Me.CBTease.TabIndex = 152 -Me.CBTease.Text = "Tease" -Me.CBTease.UseVisualStyleBackColor = true +Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) +Me.TBDebugTaunts2.Name = "TBDebugTaunts2" +Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts2.TabIndex = 6 ' -'TbxContact1ImageDir +'TBDebugTaunts1 ' -Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" -Me.TbxContact1ImageDir.ReadOnly = true -Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.TabIndex = 176 -Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir +Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) +Me.TBDebugTaunts1.Name = "TBDebugTaunts1" +Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) +Me.TBDebugTaunts1.TabIndex = 5 ' -'LBLGlitterNC1 +'RBDebugTaunts3 ' -Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color -Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC1.Name = "LBLGlitterNC1" -Me.LBLGlitterNC1.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC1.TabIndex = 166 -Me.LBLGlitterNC1.Text = "Preview" -Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.RBDebugTaunts3.AutoSize = true +Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) +Me.RBDebugTaunts3.Name = "RBDebugTaunts3" +Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts3.TabIndex = 4 +Me.RBDebugTaunts3.Text = "3 Lines" +Me.RBDebugTaunts3.UseVisualStyleBackColor = true ' -'GlitterSlider1 +'RBDebugTaunts2 ' -Me.GlitterSlider1.AutoSize = false -Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider1.LargeChange = 1 -Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider1.Maximum = 9 -Me.GlitterSlider1.Minimum = 1 -Me.GlitterSlider1.Name = "GlitterSlider1" -Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider1.TabIndex = 161 -Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider +Me.RBDebugTaunts2.AutoSize = true +Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) +Me.RBDebugTaunts2.Name = "RBDebugTaunts2" +Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) +Me.RBDebugTaunts2.TabIndex = 3 +Me.RBDebugTaunts2.Text = "2 Lines" +Me.RBDebugTaunts2.UseVisualStyleBackColor = true ' -'CBGlitter1 +'RBDebugTaunts1 ' -Me.CBGlitter1.AutoSize = true -Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 -Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter1.ForeColor = System.Drawing.Color.Black -Me.CBGlitter1.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter1.Name = "CBGlitter1" -Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter1.TabIndex = 151 -Me.CBGlitter1.Text = "Enable This Contact" -Me.CBGlitter1.UseVisualStyleBackColor = true +Me.RBDebugTaunts1.AutoSize = true +Me.RBDebugTaunts1.Checked = true +Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) +Me.RBDebugTaunts1.Name = "RBDebugTaunts1" +Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) +Me.RBDebugTaunts1.TabIndex = 2 +Me.RBDebugTaunts1.TabStop = true +Me.RBDebugTaunts1.Text = "1 Line" +Me.RBDebugTaunts1.UseVisualStyleBackColor = true ' -'TBGlitter1 +'CBDebugTauntsEndless ' -Me.TBGlitter1.BackColor = System.Drawing.Color.White -Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter1.ForeColor = System.Drawing.Color.Black -Me.TBGlitter1.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter1.Name = "TBGlitter1" -Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter1.TabIndex = 49 -Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 -Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.CBDebugTauntsEndless.AutoSize = true +Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) +Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" +Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) +Me.CBDebugTauntsEndless.TabIndex = 1 +Me.CBDebugTauntsEndless.Text = "Endless Cycle" +Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true ' -'TbxContact3ImageDir +'CBDebugTaunts ' -Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" -Me.TbxContact3ImageDir.ReadOnly = true -Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.TabIndex = 178 -Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir +Me.CBDebugTaunts.AutoSize = true +Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) +Me.CBDebugTaunts.Name = "CBDebugTaunts" +Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) +Me.CBDebugTaunts.TabIndex = 0 +Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" +Me.CBDebugTaunts.UseVisualStyleBackColor = true ' -'LBLGlitterNC3 +'BTNDebugStrokeTauntTimer ' -Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color -Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC3.Name = "LBLGlitterNC3" -Me.LBLGlitterNC3.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC3.TabIndex = 166 -Me.LBLGlitterNC3.Text = "Preview" -Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) +Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" +Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTauntTimer.TabIndex = 8 +Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" +Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true ' -'GlitterSlider3 +'LBLDebugHoldEdgeTime ' -Me.GlitterSlider3.AutoSize = false -Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider3.LargeChange = 1 -Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider3.Maximum = 9 -Me.GlitterSlider3.Minimum = 1 -Me.GlitterSlider3.Name = "GlitterSlider3" -Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider3.TabIndex = 161 -Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider +Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) +Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" +Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugHoldEdgeTime.TabIndex = 13 +Me.LBLDebugHoldEdgeTime.Text = "0" +Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitter3 +'Label145 ' -Me.CBGlitter3.AutoSize = true -Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 -Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter3.ForeColor = System.Drawing.Color.Black -Me.CBGlitter3.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter3.Name = "CBGlitter3" -Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter3.TabIndex = 151 -Me.CBGlitter3.Text = "Enable This Contact" -Me.CBGlitter3.UseVisualStyleBackColor = true +Me.Label145.Location = New System.Drawing.Point(402, 11) +Me.Label145.Name = "Label145" +Me.Label145.Size = New System.Drawing.Size(67, 23) +Me.Label145.TabIndex = 3 +Me.Label145.Text = "Tease Timer" +Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBGlitter3 +'BTNDebugStrokeTime ' -Me.TBGlitter3.BackColor = System.Drawing.Color.White -Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter3.ForeColor = System.Drawing.Color.Black -Me.TBGlitter3.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter3.Name = "TBGlitter3" -Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter3.TabIndex = 49 -Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 -Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) +Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" +Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugStrokeTime.TabIndex = 2 +Me.BTNDebugStrokeTime.Text = "Set to 5" +Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true ' -'TbxContact2ImageDir +'BTNDebugEdgeTauntTimer ' -Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" -Me.TbxContact2ImageDir.ReadOnly = true -Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.TabIndex = 178 -Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir +Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) +Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" +Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugEdgeTauntTimer.TabIndex = 11 +Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" +Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true ' -'LBLGlitterNC2 +'LBLDebugTeaseTime ' -Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color -Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC2.Name = "LBLGlitterNC2" -Me.LBLGlitterNC2.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC2.TabIndex = 166 -Me.LBLGlitterNC2.Text = "Preview" -Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) +Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" +Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugTeaseTime.TabIndex = 4 +Me.LBLDebugTeaseTime.Text = "0" +Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GlitterSlider2 +'LBLDebugStrokeTime ' -Me.GlitterSlider2.AutoSize = false -Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider2.LargeChange = 1 -Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider2.Maximum = 9 -Me.GlitterSlider2.Minimum = 1 -Me.GlitterSlider2.Name = "GlitterSlider2" -Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider2.TabIndex = 161 -Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider +Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) +Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" +Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTime.TabIndex = 1 +Me.LBLDebugStrokeTime.Text = "0" +Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'CBGlitter2 +'LBLDebugEdgeTauntTime ' -Me.CBGlitter2.AutoSize = true -Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 -Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter2.ForeColor = System.Drawing.Color.Black -Me.CBGlitter2.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter2.Name = "CBGlitter2" -Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter2.TabIndex = 151 -Me.CBGlitter2.Text = "Enable This Contact" -Me.CBGlitter2.UseVisualStyleBackColor = true +Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) +Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" +Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugEdgeTauntTime.TabIndex = 10 +Me.LBLDebugEdgeTauntTime.Text = "0" +Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'TBGlitter2 +'BTNDebugTeaseTimer ' -Me.TBGlitter2.BackColor = System.Drawing.Color.White -Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter2.ForeColor = System.Drawing.Color.Black -Me.TBGlitter2.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter2.Name = "TBGlitter2" -Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter2.TabIndex = 49 -Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 -Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) +Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" +Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) +Me.BTNDebugTeaseTimer.TabIndex = 5 +Me.BTNDebugTeaseTimer.Text = "Set to 5" +Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true ' -'CBIncludeGifs +'Label142 ' -Me.CBIncludeGifs.AutoSize = true -Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs -Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) -Me.CBIncludeGifs.Name = "CBIncludeGifs" -Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) -Me.CBIncludeGifs.TabIndex = 5 -Me.CBIncludeGifs.Text = "Match Game Includes Gifs " -Me.CBIncludeGifs.UseVisualStyleBackColor = true +Me.Label142.Location = New System.Drawing.Point(402, 121) +Me.Label142.Name = "Label142" +Me.Label142.Size = New System.Drawing.Size(67, 23) +Me.Label142.TabIndex = 0 +Me.Label142.Text = "Stroke Timer" +Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GN6 +'Label150 ' -Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN6.Location = New System.Drawing.Point(86, 367) -Me.GN6.Name = "GN6" -Me.GN6.Size = New System.Drawing.Size(71, 20) -Me.GN6.TabIndex = 5 -Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 -Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label150.Location = New System.Drawing.Point(402, 206) +Me.Label150.Name = "Label150" +Me.Label150.Size = New System.Drawing.Size(67, 27) +Me.Label150.TabIndex = 9 +Me.Label150.Text = "Edge Taunt Timer" +Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GP6 +'Label152 ' -Me.GP6.BackColor = System.Drawing.Color.Silver -Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 -Me.GP6.InitialImage = Nothing -Me.GP6.Location = New System.Drawing.Point(86, 268) -Me.GP6.Name = "GP6" -Me.GP6.Size = New System.Drawing.Size(71, 93) -Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP6.TabIndex = 17 -Me.GP6.TabStop = false +Me.Label152.Location = New System.Drawing.Point(402, 238) +Me.Label152.Name = "Label152" +Me.Label152.Size = New System.Drawing.Size(67, 40) +Me.Label152.TabIndex = 12 +Me.Label152.Text = "Hold Edge Timer" +Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GN2 +'LBLDebugStrokeTauntTime ' -Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN2.Location = New System.Drawing.Point(86, 117) -Me.GN2.Name = "GN2" -Me.GN2.Size = New System.Drawing.Size(71, 20) -Me.GN2.TabIndex = 1 -Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 -Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro +Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D +Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) +Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" +Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) +Me.LBLDebugStrokeTauntTime.TabIndex = 7 +Me.LBLDebugStrokeTauntTime.Text = "0" +Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GP2 +'Label147 ' -Me.GP2.BackColor = System.Drawing.Color.Silver -Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 -Me.GP2.InitialImage = Nothing -Me.GP2.Location = New System.Drawing.Point(86, 17) -Me.GP2.Name = "GP2" -Me.GP2.Size = New System.Drawing.Size(71, 94) -Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP2.TabIndex = 9 -Me.GP2.TabStop = false +Me.Label147.Location = New System.Drawing.Point(402, 143) +Me.Label147.Name = "Label147" +Me.Label147.Size = New System.Drawing.Size(67, 29) +Me.Label147.TabIndex = 6 +Me.Label147.Text = "Stroke Taunt Timer" +Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'GP5 +'TabPage30 ' -Me.GP5.BackColor = System.Drawing.Color.Silver -Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 -Me.GP5.InitialImage = Nothing -Me.GP5.Location = New System.Drawing.Point(9, 268) -Me.GP5.Name = "GP5" -Me.GP5.Size = New System.Drawing.Size(71, 93) -Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP5.TabIndex = 15 -Me.GP5.TabStop = false +Me.TabPage30.BackColor = System.Drawing.Color.LightGray +Me.TabPage30.Controls.Add(Me.Button33) +Me.TabPage30.Controls.Add(Me.Button24) +Me.TabPage30.Location = New System.Drawing.Point(4, 22) +Me.TabPage30.Name = "TabPage30" +Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) +Me.TabPage30.Size = New System.Drawing.Size(700, 411) +Me.TabPage30.TabIndex = 1 +Me.TabPage30.Text = "TabPage30" ' -'GN1 +'Button33 ' -Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN1.Location = New System.Drawing.Point(9, 117) -Me.GN1.Name = "GN1" -Me.GN1.Size = New System.Drawing.Size(71, 20) -Me.GN1.TabIndex = 0 -Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 -Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Button33.Location = New System.Drawing.Point(6, 35) +Me.Button33.Name = "Button33" +Me.Button33.Size = New System.Drawing.Size(75, 23) +Me.Button33.TabIndex = 1 +Me.Button33.Text = "LoadState" +Me.Button33.UseVisualStyleBackColor = true ' -'GP1 +'Button24 ' -Me.GP1.BackColor = System.Drawing.Color.Silver -Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 -Me.GP1.InitialImage = Nothing -Me.GP1.Location = New System.Drawing.Point(9, 17) -Me.GP1.Name = "GP1" -Me.GP1.Size = New System.Drawing.Size(71, 94) -Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP1.TabIndex = 0 -Me.GP1.TabStop = false +Me.Button24.Location = New System.Drawing.Point(6, 6) +Me.Button24.Name = "Button24" +Me.Button24.Size = New System.Drawing.Size(75, 23) +Me.Button24.TabIndex = 0 +Me.Button24.Text = "SaveState" +Me.Button24.UseVisualStyleBackColor = true ' -'GN5 +'TabPage5 ' -Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN5.Location = New System.Drawing.Point(9, 367) -Me.GN5.Name = "GN5" -Me.GN5.Size = New System.Drawing.Size(71, 20) -Me.GN5.TabIndex = 4 -Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 -Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.TabPage5.BackColor = System.Drawing.Color.Silver +Me.TabPage5.Controls.Add(Me.Panel5) +Me.TabPage5.Location = New System.Drawing.Point(4, 22) +Me.TabPage5.Name = "TabPage5" +Me.TabPage5.Size = New System.Drawing.Size(720, 448) +Me.TabPage5.TabIndex = 17 +Me.TabPage5.Text = "About" ' -'GN3 +'Panel5 ' -Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN3.Location = New System.Drawing.Point(9, 242) -Me.GN3.Name = "GN3" -Me.GN3.Size = New System.Drawing.Size(71, 20) -Me.GN3.TabIndex = 2 -Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 -Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Panel5.BackColor = System.Drawing.Color.LightGray +Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Panel5.Controls.Add(Me.Label130) +Me.Panel5.Controls.Add(Me.Label123) +Me.Panel5.Controls.Add(Me.Label69) +Me.Panel5.Controls.Add(Me.Label113) +Me.Panel5.Controls.Add(Me.Label40) +Me.Panel5.Controls.Add(Me.Label35) +Me.Panel5.Controls.Add(Me.Label33) +Me.Panel5.Controls.Add(Me.Label17) +Me.Panel5.Controls.Add(Me.Label3) +Me.Panel5.Controls.Add(Me.PictureBox3) +Me.Panel5.Controls.Add(Me.Label41) +Me.Panel5.Location = New System.Drawing.Point(6, 6) +Me.Panel5.Name = "Panel5" +Me.Panel5.Size = New System.Drawing.Size(708, 437) +Me.Panel5.TabIndex = 92 +' +'Label130 +' +Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label130.Location = New System.Drawing.Point(361, 314) +Me.Label130.Name = "Label130" +Me.Label130.Size = New System.Drawing.Size(254, 54) +Me.Label130.TabIndex = 176 +Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GP3 +'Label123 ' -Me.GP3.BackColor = System.Drawing.Color.Silver -Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 -Me.GP3.InitialImage = Nothing -Me.GP3.Location = New System.Drawing.Point(9, 143) -Me.GP3.Name = "GP3" -Me.GP3.Size = New System.Drawing.Size(71, 93) -Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP3.TabIndex = 11 -Me.GP3.TabStop = false +Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label123.Location = New System.Drawing.Point(81, 314) +Me.Label123.Name = "Label123" +Me.Label123.Size = New System.Drawing.Size(254, 54) +Me.Label123.TabIndex = 175 +Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" +Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GP4 +'Label69 ' -Me.GP4.BackColor = System.Drawing.Color.Silver -Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 -Me.GP4.InitialImage = Nothing -Me.GP4.Location = New System.Drawing.Point(86, 143) -Me.GP4.Name = "GP4" -Me.GP4.Size = New System.Drawing.Size(71, 93) -Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP4.TabIndex = 13 -Me.GP4.TabStop = false +Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label69.Location = New System.Drawing.Point(35, 295) +Me.Label69.Name = "Label69" +Me.Label69.Size = New System.Drawing.Size(638, 22) +Me.Label69.TabIndex = 174 +Me.Label69.Text = "Triple Alfa" +Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'GN4 +'Label113 ' -Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN4.Location = New System.Drawing.Point(86, 242) -Me.GN4.Name = "GN4" -Me.GN4.Size = New System.Drawing.Size(71, 20) -Me.GN4.TabIndex = 3 -Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 -Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label113.AutoSize = true +Me.Label113.Location = New System.Drawing.Point(4, 417) +Me.Label113.Name = "Label113" +Me.Label113.Size = New System.Drawing.Size(452, 13) +Me.Label113.TabIndex = 173 +Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ + "pective owners." ' -'CardBack +'Label40 ' -Me.CardBack.BackColor = System.Drawing.Color.Silver -Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack -Me.CardBack.InitialImage = Nothing -Me.CardBack.Location = New System.Drawing.Point(17, 28) -Me.CardBack.Name = "CardBack" -Me.CardBack.Size = New System.Drawing.Size(138, 179) -Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.CardBack.TabIndex = 18 -Me.CardBack.TabStop = false +Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label40.Location = New System.Drawing.Point(35, 273) +Me.Label40.Name = "Label40" +Me.Label40.Size = New System.Drawing.Size(638, 24) +Me.Label40.TabIndex = 171 +Me.Label40.Text = "Special Thanks" +Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'BN6 +'Label35 ' -Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN6.Location = New System.Drawing.Point(86, 368) -Me.BN6.Name = "BN6" -Me.BN6.Size = New System.Drawing.Size(71, 20) -Me.BN6.TabIndex = 5 -Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 -Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label35.Location = New System.Drawing.Point(32, 107) +Me.Label35.Name = "Label35" +Me.Label35.Size = New System.Drawing.Size(641, 77) +Me.Label35.TabIndex = 170 +Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ + "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ + "dditional files separately." +Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'BN3 +'Label33 ' -Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN3.Location = New System.Drawing.Point(9, 243) -Me.BN3.Name = "BN3" -Me.BN3.Size = New System.Drawing.Size(71, 20) -Me.BN3.TabIndex = 2 -Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 -Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label33.Location = New System.Drawing.Point(32, 191) +Me.Label33.Name = "Label33" +Me.Label33.Size = New System.Drawing.Size(641, 77) +Me.Label33.TabIndex = 169 +Me.Label33.Text = resources.GetString("Label33.Text") +Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'BP3 +'Label17 ' -Me.BP3.BackColor = System.Drawing.Color.Silver -Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 -Me.BP3.InitialImage = Nothing -Me.BP3.Location = New System.Drawing.Point(9, 144) -Me.BP3.Name = "BP3" -Me.BP3.Size = New System.Drawing.Size(71, 93) -Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP3.TabIndex = 11 -Me.BP3.TabStop = false +Me.Label17.AutoSize = true +Me.Label17.Location = New System.Drawing.Point(522, 78) +Me.Label17.Name = "Label17" +Me.Label17.Size = New System.Drawing.Size(93, 13) +Me.Label17.TabIndex = 168 +Me.Label17.Text = "Designed by 1885" ' -'BP6 +'Label3 ' -Me.BP6.BackColor = System.Drawing.Color.Silver -Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 -Me.BP6.InitialImage = Nothing -Me.BP6.Location = New System.Drawing.Point(86, 269) -Me.BP6.Name = "BP6" -Me.BP6.Size = New System.Drawing.Size(71, 93) -Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP6.TabIndex = 17 -Me.BP6.TabStop = false +Me.Label3.AutoSize = true +Me.Label3.Location = New System.Drawing.Point(489, 417) +Me.Label3.Name = "Label3" +Me.Label3.Size = New System.Drawing.Size(215, 13) +Me.Label3.TabIndex = 167 +Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" ' -'BN2 +'PictureBox3 ' -Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN2.Location = New System.Drawing.Point(86, 118) -Me.BN2.Name = "BN2" -Me.BN2.Size = New System.Drawing.Size(71, 20) -Me.BN2.TabIndex = 1 -Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 -Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.PictureBox3.BackColor = System.Drawing.Color.LightGray +Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big +Me.PictureBox3.Location = New System.Drawing.Point(84, 17) +Me.PictureBox3.Name = "PictureBox3" +Me.PictureBox3.Size = New System.Drawing.Size(531, 58) +Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage +Me.PictureBox3.TabIndex = 166 +Me.PictureBox3.TabStop = false ' -'BN5 +'Label41 ' -Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN5.Location = New System.Drawing.Point(9, 368) -Me.BN5.Name = "BN5" -Me.BN5.Size = New System.Drawing.Size(71, 20) -Me.BN5.TabIndex = 4 -Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 -Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label41.Location = New System.Drawing.Point(35, 372) +Me.Label41.Name = "Label41" +Me.Label41.Size = New System.Drawing.Size(638, 39) +Me.Label41.TabIndex = 172 +Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ + "nity who's been supportive of my work over the years. Tease AI exists because of"& _ + " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) +Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter ' -'BP5 +'BtnRandomImageDirClear ' -Me.BP5.BackColor = System.Drawing.Color.Silver -Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 -Me.BP5.InitialImage = Nothing -Me.BP5.Location = New System.Drawing.Point(9, 269) -Me.BP5.Name = "BP5" -Me.BP5.Size = New System.Drawing.Size(71, 93) -Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP5.TabIndex = 15 -Me.BP5.TabStop = false +Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray +Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black +Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) +Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" +Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) +Me.BtnRandomImageDirClear.TabIndex = 181 +Me.BtnRandomImageDirClear.Text = "Clear" +Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false ' -'BP2 +'GroupBox47 ' -Me.BP2.BackColor = System.Drawing.Color.Silver -Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 -Me.BP2.InitialImage = Nothing -Me.BP2.Location = New System.Drawing.Point(86, 19) -Me.BP2.Name = "BP2" -Me.BP2.Size = New System.Drawing.Size(71, 93) -Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP2.TabIndex = 9 -Me.BP2.TabStop = false +Me.GroupBox47.BackColor = System.Drawing.Color.LightGray +Me.GroupBox47.Controls.Add(Me.GroupBox41) +Me.GroupBox47.Controls.Add(Me.GroupBox40) +Me.GroupBox47.ForeColor = System.Drawing.Color.Black +Me.GroupBox47.Location = New System.Drawing.Point(806, 255) +Me.GroupBox47.Name = "GroupBox47" +Me.GroupBox47.Size = New System.Drawing.Size(310, 190) +Me.GroupBox47.TabIndex = 63 +Me.GroupBox47.TabStop = false +Me.GroupBox47.Text = "Boobs and Butts Paths" ' -'BN1 +'GroupBox41 ' -Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN1.Location = New System.Drawing.Point(9, 118) -Me.BN1.Name = "BN1" -Me.BN1.Size = New System.Drawing.Size(71, 20) -Me.BN1.TabIndex = 0 -Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 -Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.GroupBox41.Controls.Add(Me.Button34) +Me.GroupBox41.Location = New System.Drawing.Point(6, 110) +Me.GroupBox41.Name = "GroupBox41" +Me.GroupBox41.Size = New System.Drawing.Size(298, 74) +Me.GroupBox41.TabIndex = 153 +Me.GroupBox41.TabStop = false +Me.GroupBox41.Text = "Butts" ' -'BN4 +'Button34 ' -Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN4.Location = New System.Drawing.Point(86, 243) -Me.BN4.Name = "BN4" -Me.BN4.Size = New System.Drawing.Size(71, 20) -Me.BN4.TabIndex = 3 -Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 -Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Button34.BackColor = System.Drawing.Color.LightGray +Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) +Me.Button34.ForeColor = System.Drawing.Color.Black +Me.Button34.Location = New System.Drawing.Point(85, 25) +Me.Button34.Name = "Button34" +Me.Button34.Size = New System.Drawing.Size(34, 28) +Me.Button34.TabIndex = 131 +Me.Button34.Text = "1" +Me.Button34.UseVisualStyleBackColor = false ' -'BP4 +'GroupBox40 ' -Me.BP4.BackColor = System.Drawing.Color.Silver -Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 -Me.BP4.InitialImage = Nothing -Me.BP4.Location = New System.Drawing.Point(86, 144) -Me.BP4.Name = "BP4" -Me.BP4.Size = New System.Drawing.Size(71, 93) -Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP4.TabIndex = 13 -Me.BP4.TabStop = false +Me.GroupBox40.Location = New System.Drawing.Point(5, 35) +Me.GroupBox40.Name = "GroupBox40" +Me.GroupBox40.Size = New System.Drawing.Size(298, 74) +Me.GroupBox40.TabIndex = 152 +Me.GroupBox40.TabStop = false +Me.GroupBox40.Text = "Boobs" ' -'BP1 +'GroupBox44 ' -Me.BP1.BackColor = System.Drawing.Color.Silver -Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 -Me.BP1.InitialImage = Nothing -Me.BP1.Location = New System.Drawing.Point(9, 19) -Me.BP1.Name = "BP1" -Me.BP1.Size = New System.Drawing.Size(71, 93) -Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP1.TabIndex = 0 -Me.BP1.TabStop = false -Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 +Me.GroupBox44.BackColor = System.Drawing.Color.LightGray +Me.GroupBox44.Controls.Add(Me.Label100) +Me.GroupBox44.ForeColor = System.Drawing.Color.Black +Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) +Me.GroupBox44.Name = "GroupBox44" +Me.GroupBox44.Size = New System.Drawing.Size(310, 92) +Me.GroupBox44.TabIndex = 65 +Me.GroupBox44.TabStop = false +Me.GroupBox44.Text = "Description" ' -'SN6 +'Label100 ' -Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN6.Location = New System.Drawing.Point(86, 368) -Me.SN6.Name = "SN6" -Me.SN6.Size = New System.Drawing.Size(71, 20) -Me.SN6.TabIndex = 5 -Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 -Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label100.BackColor = System.Drawing.Color.Transparent +Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label100.ForeColor = System.Drawing.Color.Black +Me.Label100.Location = New System.Drawing.Point(11, 16) +Me.Label100.Name = "Label100" +Me.Label100.Size = New System.Drawing.Size(286, 73) +Me.Label100.TabIndex = 62 +Me.Label100.Text = resources.GetString("Label100.Text") +Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP6 +'GroupBox6 ' -Me.SP6.BackColor = System.Drawing.Color.Silver -Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 -Me.SP6.InitialImage = Nothing -Me.SP6.Location = New System.Drawing.Point(86, 269) -Me.SP6.Name = "SP6" -Me.SP6.Size = New System.Drawing.Size(71, 93) -Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP6.TabIndex = 17 -Me.SP6.TabStop = false +Me.GroupBox6.Controls.Add(Me.Label4) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) +Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) +Me.GroupBox6.Controls.Add(Me.Label94) +Me.GroupBox6.Controls.Add(Me.LBLLastRuined) +Me.GroupBox6.Controls.Add(Me.Label65) +Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) +Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) +Me.GroupBox6.Controls.Add(Me.Label14) +Me.GroupBox6.Controls.Add(Me.Label13) +Me.GroupBox6.Controls.Add(Me.Label1) +Me.GroupBox6.Location = New System.Drawing.Point(27, 114) +Me.GroupBox6.Name = "GroupBox6" +Me.GroupBox6.Size = New System.Drawing.Size(283, 102) +Me.GroupBox6.TabIndex = 156 +Me.GroupBox6.TabStop = false +Me.GroupBox6.Text = "Performance" ' -'SN2 +'Label4 ' -Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN2.Location = New System.Drawing.Point(86, 118) -Me.SN2.Name = "SN2" -Me.SN2.Size = New System.Drawing.Size(71, 20) -Me.SN2.TabIndex = 1 -Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 -Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label4.Location = New System.Drawing.Point(26, 16) +Me.Label4.Name = "Label4" +Me.Label4.Size = New System.Drawing.Size(77, 17) +Me.Label4.TabIndex = 147 +Me.Label4.Text = "Stroking Time" +Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP2 +'LBLAvgEdgeStroking ' -Me.SP2.BackColor = System.Drawing.Color.Silver -Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 -Me.SP2.InitialImage = Nothing -Me.SP2.Location = New System.Drawing.Point(86, 19) -Me.SP2.Name = "SP2" -Me.SP2.Size = New System.Drawing.Size(71, 93) -Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP2.TabIndex = 9 -Me.SP2.TabStop = false +Me.LBLAvgEdgeStroking.AutoSize = true +Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) +Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" +Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeStroking.TabIndex = 144 +Me.LBLAvgEdgeStroking.Text = "00:00" +Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN1 +'LBLStrokeTimeTotal ' -Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN1.Location = New System.Drawing.Point(9, 118) -Me.SN1.Name = "SN1" -Me.SN1.Size = New System.Drawing.Size(71, 20) -Me.SN1.TabIndex = 0 -Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 -Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) +Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" +Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) +Me.LBLStrokeTimeTotal.TabIndex = 148 +Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" +Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP5 +'Label94 ' -Me.SP5.BackColor = System.Drawing.Color.Silver -Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 -Me.SP5.InitialImage = Nothing -Me.SP5.Location = New System.Drawing.Point(9, 269) -Me.SP5.Name = "SP5" -Me.SP5.Size = New System.Drawing.Size(71, 93) -Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP5.TabIndex = 15 -Me.SP5.TabStop = false +Me.Label94.BackColor = System.Drawing.Color.Transparent +Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label94.ForeColor = System.Drawing.Color.Black +Me.Label94.Location = New System.Drawing.Point(189, 16) +Me.Label94.Name = "Label94" +Me.Label94.Size = New System.Drawing.Size(65, 17) +Me.Label94.TabIndex = 150 +Me.Label94.Text = "Last Ruined" +Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP1 +'LBLLastRuined ' -Me.SP1.BackColor = System.Drawing.Color.Silver -Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 -Me.SP1.InitialImage = Nothing -Me.SP1.Location = New System.Drawing.Point(9, 19) -Me.SP1.Name = "SP1" -Me.SP1.Size = New System.Drawing.Size(71, 93) -Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP1.TabIndex = 0 -Me.SP1.TabStop = false +Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) +Me.LBLLastRuined.Name = "LBLLastRuined" +Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) +Me.LBLLastRuined.TabIndex = 152 +Me.LBLLastRuined.Text = "04/28/2015" +Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN5 +'Label65 ' -Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN5.Location = New System.Drawing.Point(9, 368) -Me.SN5.Name = "SN5" -Me.SN5.Size = New System.Drawing.Size(71, 20) -Me.SN5.TabIndex = 4 -Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 -Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.Label65.BackColor = System.Drawing.Color.Transparent +Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label65.ForeColor = System.Drawing.Color.Black +Me.Label65.Location = New System.Drawing.Point(103, 16) +Me.Label65.Name = "Label65" +Me.Label65.Size = New System.Drawing.Size(85, 17) +Me.Label65.TabIndex = 149 +Me.Label65.Text = "Last Orgasm" +Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN3 +'LBLAvgEdgeNoTouch ' -Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN3.Location = New System.Drawing.Point(9, 243) -Me.SN3.Name = "SN3" -Me.SN3.Size = New System.Drawing.Size(71, 20) -Me.SN3.TabIndex = 2 -Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 -Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLAvgEdgeNoTouch.AutoSize = true +Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) +Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" +Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) +Me.LBLAvgEdgeNoTouch.TabIndex = 146 +Me.LBLAvgEdgeNoTouch.Text = "00:00" +Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SN4 +'LBLLastOrgasm ' -Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN4.Location = New System.Drawing.Point(86, 243) -Me.SN4.Name = "SN4" -Me.SN4.Size = New System.Drawing.Size(71, 20) -Me.SN4.TabIndex = 3 -Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 -Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center +Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) +Me.LBLLastOrgasm.Name = "LBLLastOrgasm" +Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) +Me.LBLLastOrgasm.TabIndex = 151 +Me.LBLLastOrgasm.Text = "04/28/2015" +Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP3 +'Label14 ' -Me.SP3.BackColor = System.Drawing.Color.Silver -Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 -Me.SP3.InitialImage = Nothing -Me.SP3.Location = New System.Drawing.Point(9, 144) -Me.SP3.Name = "SP3" -Me.SP3.Size = New System.Drawing.Size(71, 93) -Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP3.TabIndex = 11 -Me.SP3.TabStop = false +Me.Label14.BackColor = System.Drawing.Color.Transparent +Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label14.ForeColor = System.Drawing.Color.Black +Me.Label14.Location = New System.Drawing.Point(25, 48) +Me.Label14.Name = "Label14" +Me.Label14.Size = New System.Drawing.Size(238, 17) +Me.Label14.TabIndex = 138 +Me.Label14.Text = "Average Time to Edge" +Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'SP4 +'Label13 ' -Me.SP4.BackColor = System.Drawing.Color.Silver -Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 -Me.SP4.InitialImage = Nothing -Me.SP4.Location = New System.Drawing.Point(86, 144) -Me.SP4.Name = "SP4" -Me.SP4.Size = New System.Drawing.Size(71, 93) -Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP4.TabIndex = 13 -Me.SP4.TabStop = false +Me.Label13.AutoSize = true +Me.Label13.Location = New System.Drawing.Point(177, 68) +Me.Label13.Name = "Label13" +Me.Label13.Size = New System.Drawing.Size(32, 13) +Me.Label13.TabIndex = 145 +Me.Label13.Text = "Rest:" +Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLDateTimeColor2 +'Label1 ' -Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor -Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) -Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" -Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateTimeColor2.TabIndex = 19 +Me.Label1.AutoSize = true +Me.Label1.Location = New System.Drawing.Point(28, 68) +Me.Label1.Name = "Label1" +Me.Label1.Size = New System.Drawing.Size(79, 13) +Me.Label1.TabIndex = 143 +Me.Label1.Text = "While Stroking:" +Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLDateBackColor2 +'GroupBox21 ' -Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor -Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) -Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateBackColor2.Name = "LBLDateBackColor2" -Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateBackColor2.TabIndex = 22 +Me.GroupBox21.BackColor = System.Drawing.Color.LightGray +Me.GroupBox21.Controls.Add(Me.Label153) +Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) +Me.GroupBox21.Controls.Add(Me.GroupBox6) +Me.GroupBox21.Controls.Add(Me.Label156) +Me.GroupBox21.ForeColor = System.Drawing.Color.Black +Me.GroupBox21.Location = New System.Drawing.Point(797, 55) +Me.GroupBox21.Name = "GroupBox21" +Me.GroupBox21.Size = New System.Drawing.Size(316, 136) +Me.GroupBox21.TabIndex = 66 +Me.GroupBox21.TabStop = false +Me.GroupBox21.Text = "Description" ' -'LBLChatWindowColor2 +'Label153 ' -Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor -Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) -Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" -Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatWindowColor2.TabIndex = 12 +Me.Label153.BackColor = System.Drawing.Color.Transparent +Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label153.ForeColor = System.Drawing.Color.Black +Me.Label153.Location = New System.Drawing.Point(78, 94) +Me.Label153.Name = "Label153" +Me.Label153.Size = New System.Drawing.Size(158, 17) +Me.Label153.TabIndex = 135 +Me.Label153.Text = "No path selected" +Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLTextColor2 +'LBLRangeSettingsDescription ' -Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor -Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) -Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLTextColor2.Name = "LBLTextColor2" -Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLTextColor2.TabIndex = 9 +Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) +Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" +Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) +Me.LBLRangeSettingsDescription.TabIndex = 62 +Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." +Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'LBLBackColor2 +'Label156 ' -Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor -Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) -Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLBackColor2.Name = "LBLBackColor2" -Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLBackColor2.TabIndex = 3 +Me.Label156.BackColor = System.Drawing.Color.Transparent +Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label156.ForeColor = System.Drawing.Color.Black +Me.Label156.Location = New System.Drawing.Point(133, 23) +Me.Label156.Name = "Label156" +Me.Label156.Size = New System.Drawing.Size(158, 17) +Me.Label156.TabIndex = 135 +Me.Label156.Text = "No path selected" +Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' -'LBLChatTextColor2 +'GroupBox12 ' -Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor -Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) -Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatTextColor2.Name = "LBLChatTextColor2" -Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatTextColor2.TabIndex = 16 +Me.GroupBox12.BackColor = System.Drawing.Color.LightGray +Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) +Me.GroupBox12.ForeColor = System.Drawing.Color.Black +Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) +Me.GroupBox12.Name = "GroupBox12" +Me.GroupBox12.Size = New System.Drawing.Size(171, 124) +Me.GroupBox12.TabIndex = 65 +Me.GroupBox12.TabStop = false +Me.GroupBox12.Text = "Description" ' -'LBLButtonColor2 +'LBLSubSettingsDescription ' -Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor -Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) -Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLButtonColor2.Name = "LBLButtonColor2" -Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLButtonColor2.TabIndex = 6 +Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent +Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black +Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) +Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" +Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) +Me.LBLSubSettingsDescription.TabIndex = 62 +Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ + "n." ' -'TimedWriting +'OpenFileDialog1 ' -Me.TimedWriting.AutoSize = true -Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting -Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TimedWriting.Location = New System.Drawing.Point(9, 19) -Me.TimedWriting.Name = "TimedWriting" -Me.TimedWriting.Size = New System.Drawing.Size(123, 17) -Me.TimedWriting.TabIndex = 1 -Me.TimedWriting.Text = "Timed Writing Tasks" -Me.TimedWriting.UseVisualStyleBackColor = true +Me.OpenFileDialog1.FileName = "OpenFileDialog1" +Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ + "s (*.*)|*.*" +Me.OpenFileDialog1.Title = "Select an image file" ' -'TypeSpeedSlider +'GetColor ' -Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) -Me.TypeSpeedSlider.Maximum = 100 -Me.TypeSpeedSlider.Minimum = 33 -Me.TypeSpeedSlider.Name = "TypeSpeedSlider" -Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) -Me.TypeSpeedSlider.TabIndex = 3 -Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed +Me.GetColor.Color = System.Drawing.Color.SteelBlue ' -'NBTaskCBTTimeMax +'WebImageFileDialog ' -Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) -Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" -Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMax.TabIndex = 203 -Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax +Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.WebImageFileDialog.Title = "Please select a URL File" ' -'NBTaskCBTTimeMin +'OpenScriptDialog ' -Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) -Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" -Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMin.TabIndex = 202 -Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin +Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenScriptDialog.Title = "Please select a script" ' -'NBTaskEdgeHoldTimeMax +'OpenSettingsDialog ' -Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) -Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" -Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 -Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax +Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.OpenSettingsDialog.Title = "Please select a settings file to open" ' -'NBTaskEdgeHoldTimeMin +'SaveSettingsDialog ' -Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) -Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" -Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 -Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin +Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" +Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" ' -'NBTaskEdgesMax +'GroupBox65 ' -Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) -Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" -Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMax.TabIndex = 194 -Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax +Me.GroupBox65.BackColor = System.Drawing.Color.LightGray +Me.GroupBox65.Controls.Add(Me.Label136) +Me.GroupBox65.Controls.Add(Me.Label134) +Me.GroupBox65.Controls.Add(Me.Label132) +Me.GroupBox65.Controls.Add(Me.TrackBar1) +Me.GroupBox65.Controls.Add(Me.ComboBox1) +Me.GroupBox65.Controls.Add(Me.CheckBox1) +Me.GroupBox65.Controls.Add(Me.Label135) +Me.GroupBox65.Controls.Add(Me.TrackBar2) +Me.GroupBox65.ForeColor = System.Drawing.Color.Black +Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) +Me.GroupBox65.Name = "GroupBox65" +Me.GroupBox65.Size = New System.Drawing.Size(259, 117) +Me.GroupBox65.TabIndex = 157 +Me.GroupBox65.TabStop = false +Me.GroupBox65.Text = "Text to Speech" ' -'NBTaskEdgesMin +'Label136 ' -Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) -Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" -Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMin.TabIndex = 193 -Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin +Me.Label136.AutoSize = true +Me.Label136.Location = New System.Drawing.Point(14, 52) +Me.Label136.Name = "Label136" +Me.Label136.Size = New System.Drawing.Size(45, 13) +Me.Label136.TabIndex = 32 +Me.Label136.Text = "Volume:" ' -'NBTaskStrokingTimeMax +'Label134 ' -Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) -Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" -Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMax.TabIndex = 189 -Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax +Me.Label134.AutoSize = true +Me.Label134.Location = New System.Drawing.Point(141, 52) +Me.Label134.Name = "Label134" +Me.Label134.Size = New System.Drawing.Size(33, 13) +Me.Label134.TabIndex = 157 +Me.Label134.Text = "Rate:" ' -'NBTaskStrokingTimeMin +'Label132 ' -Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) -Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" -Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMin.TabIndex = 188 -Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin +Me.Label132.Location = New System.Drawing.Point(202, 52) +Me.Label132.Name = "Label132" +Me.Label132.Size = New System.Drawing.Size(45, 13) +Me.Label132.TabIndex = 158 +Me.Label132.Text = "100" +Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'NBTaskStrokesMax +'TrackBar1 ' -Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) -Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" -Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMax.TabIndex = 184 -Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax +Me.TrackBar1.Location = New System.Drawing.Point(133, 68) +Me.TrackBar1.Minimum = -10 +Me.TrackBar1.Name = "TrackBar1" +Me.TrackBar1.Size = New System.Drawing.Size(120, 45) +Me.TrackBar1.TabIndex = 31 ' -'NBTaskStrokesMin +'ComboBox1 ' -Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) -Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" -Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMin.TabIndex = 183 -Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin +Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window +Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList +Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText +Me.ComboBox1.FormattingEnabled = true +Me.ComboBox1.Location = New System.Drawing.Point(71, 16) +Me.ComboBox1.Name = "ComboBox1" +Me.ComboBox1.Size = New System.Drawing.Size(178, 21) +Me.ComboBox1.TabIndex = 29 +Me.ComboBox1.TabStop = false ' -'NBCensorShowMin +'CheckBox1 ' -Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) -Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMin.Name = "NBCensorShowMin" -Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMin.TabIndex = 151 -Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin +Me.CheckBox1.AutoSize = true +Me.CheckBox1.ForeColor = System.Drawing.Color.Black +Me.CheckBox1.Location = New System.Drawing.Point(10, 18) +Me.CheckBox1.Name = "CheckBox1" +Me.CheckBox1.Size = New System.Drawing.Size(59, 17) +Me.CheckBox1.TabIndex = 28 +Me.CheckBox1.TabStop = false +Me.CheckBox1.Text = "Enable" +Me.CheckBox1.UseVisualStyleBackColor = true ' -'NBCensorHideMax +'Label135 ' -Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) -Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMax.Name = "NBCensorHideMax" -Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMax.TabIndex = 156 -Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax +Me.Label135.Location = New System.Drawing.Point(75, 52) +Me.Label135.Name = "Label135" +Me.Label135.Size = New System.Drawing.Size(45, 13) +Me.Label135.TabIndex = 33 +Me.Label135.Text = "100" +Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight ' -'NBCensorHideMin +'TrackBar2 ' -Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) -Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMin.Name = "NBCensorHideMin" -Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMin.TabIndex = 155 -Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin +Me.TrackBar2.Location = New System.Drawing.Point(6, 68) +Me.TrackBar2.Maximum = 100 +Me.TrackBar2.Name = "TrackBar2" +Me.TrackBar2.Size = New System.Drawing.Size(120, 45) +Me.TrackBar2.TabIndex = 30 +Me.TrackBar2.Value = 50 ' -'CBCensorConstant +'TxbImgUrlHardcore ' -Me.CBCensorConstant.AutoSize = true -Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant -Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black -Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) -Me.CBCensorConstant.Name = "CBCensorConstant" -Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) -Me.CBCensorConstant.TabIndex = 157 -Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" -Me.CBCensorConstant.UseVisualStyleBackColor = true +Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray +Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill +Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) +Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" +Me.TxbImgUrlHardcore.ReadOnly = true +Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) +Me.TxbImgUrlHardcore.TabIndex = 145 ' -'NBCensorShowMax +'TextBox2 ' -Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) -Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMax.Name = "NBCensorShowMax" -Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMax.TabIndex = 152 -Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax +Me.TextBox2.BackColor = System.Drawing.Color.LightGray +Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle +Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill +Me.TextBox2.Location = New System.Drawing.Point(116, 34) +Me.TextBox2.Name = "TextBox2" +Me.TextBox2.ReadOnly = true +Me.TextBox2.Size = New System.Drawing.Size(189, 20) +Me.TextBox2.TabIndex = 145 ' 'BWURLFiles ' @@ -15446,25 +15446,48 @@ Me.GBGlitterD.ResumeLayout(false) Me.GBGlitterD.PerformLayout Me.GrbGlitterfeed.ResumeLayout(false) Me.GrbGlitterfeed.PerformLayout +CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter1.ResumeLayout(false) Me.GBGlitter1.PerformLayout +CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter3.ResumeLayout(false) Me.GBGlitter3.PerformLayout +CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit Me.GBGlitter2.ResumeLayout(false) Me.GBGlitter2.PerformLayout +CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit Me.TpGames.ResumeLayout(false) Me.TpGames.PerformLayout Me.GbxCardsGold.ResumeLayout(false) Me.GbxCardsGold.PerformLayout +CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBackground.ResumeLayout(false) +CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsBronze.ResumeLayout(false) Me.GbxCardsBronze.PerformLayout +CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit Me.GbxCardsSilver.ResumeLayout(false) Me.GbxCardsSilver.PerformLayout +CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit Me.TabPage6.ResumeLayout(false) Me.Panel10.ResumeLayout(false) Me.Panel10.PerformLayout @@ -15486,10 +15509,21 @@ Me.TabPage4.ResumeLayout(false) Me.Panel6.ResumeLayout(false) Me.GroupBox69.ResumeLayout(false) Me.GroupBox69.PerformLayout +CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox68.ResumeLayout(false) CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox67.ResumeLayout(false) +CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox10.ResumeLayout(false) CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox57.ResumeLayout(false) @@ -15514,6 +15548,10 @@ CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox18.ResumeLayout(false) Me.GroupBox18.PerformLayout +CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit +CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.GBRangeOrgasmChance.ResumeLayout(false) Me.GBRangeOrgasmChance.PerformLayout CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit @@ -15570,44 +15608,6 @@ Me.GroupBox65.ResumeLayout(false) Me.GroupBox65.PerformLayout CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) End Sub From b6e59b5a01cfe1c11dfe65d49b0c5a9ea99c5789 Mon Sep 17 00:00:00 2001 From: 1885 Date: Mon, 8 May 2017 16:02:23 -0500 Subject: [PATCH 117/143] Genres added to @PlayVideo(), FilterList Optimization Video genres can now be specified with @PlayVideo() Implemented dariobrun's FilterList optimizations --- .gitignore | 1 + README.md | 37 +++++++ Tease AI/Classes/State.vb | 2 + Tease AI/Form1.vb | 202 ++++++++++++++++++++++++++------------ Tease AI/Form2.vb | 4 + 5 files changed, 183 insertions(+), 63 deletions(-) diff --git a/.gitignore b/.gitignore index aa36896..c42d74c 100644 --- a/.gitignore +++ b/.gitignore @@ -211,3 +211,4 @@ FakesAssemblies/ GeneratedArtifacts/ _Pvt_Extensions/ ModelManifest.xml +Tease AI/Resources/Thumbs.db diff --git a/README.md b/README.md index 0e8a9f5..e59c605 100644 --- a/README.md +++ b/README.md @@ -6,6 +6,43 @@ Tease AI is adult-oriented software that aims to create an interactive tease and Stefaf: Integration of Class myDirectory: Status ongoing. Testrun to sort Lists like Win-Explorer: initialized in v0.54.5.1 + +# Changelog - Patch 54.9.0 + +* Added Features: + + * @PlayVideo() can now be used to specify video genres. For example: + + @PlayVideo(Lesbian) - Plays a lesbian video + @PlayVideo(Blowjob, 30) - Plays 30 seconds of a blowjob video + @PlayVideo(10, Softcore) - Plays 10 seconds of as softcore video + + The following genres may be specified: (Case doesn't matter, but @PlayVideo() only supports 1 genre to be specified) + + Hardcore + Softcore + Lesbian + Blowjob + Femdom + Femsub + JOI + CH + General + Hardcore Domme + Softcore Domme + Lesbian Domme + Blowjob Domme + Femdom Domme + Femsub Domme + JOI Domme + CH Domme + General Domme + +* Miscellaneous: + + * Filtering process optimized to work in one pass instead of three (dariobrun) + + # Changelog - Patch 54.8.0 * Added Features: diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index a5c406d..ccbe3cd 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -603,6 +603,8 @@ Public Class SessionState Public Property EndSession As Boolean + Public Property VideoGenre As String + #Region "----------------------------------- Only for Serialization -------------------------------------" diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 71d10fe..3f0ae40 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -6615,23 +6615,23 @@ Retry: '====================================================================================== ' Genre Videos '====================================================================================== - If My.Settings.CBHardcore = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) + If My.Settings.CBHardcore = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "HARDCORE") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcore)) - If My.Settings.CBSoftcore = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) + If My.Settings.CBSoftcore = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "SOFTCORE") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcore)) - If My.Settings.CBLesbian = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) + If My.Settings.CBLesbian = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "LESBIAN") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbian)) - If My.Settings.CBBlowjob = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) + If My.Settings.CBBlowjob = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "BLOWJOB") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjob)) - If My.Settings.CBFemdom = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) + If My.Settings.CBFemdom = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMDOM") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdom)) - If My.Settings.CBFemsub = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) + If My.Settings.CBFemsub = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMSUB") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsub)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecial @@ -6644,39 +6644,39 @@ Retry: '====================================================================================== ' Special - Videos '====================================================================================== - If My.Settings.CBJOI = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) + If My.Settings.CBJOI = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "JOI") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) - If My.Settings.CBCH = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) + If My.Settings.CBCH = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "CH") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) SkipSpecial: '====================================================================================== ' General Videos '====================================================================================== - If My.Settings.CBGeneral = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) + If My.Settings.CBGeneral = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "GENERAL") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) '====================================================================================== ' Domme - Videos '====================================================================================== - If My.Settings.CBHardcoreD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) + If My.Settings.CBHardcoreD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "HARDCORE DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) - If My.Settings.CBSoftcoreD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) + If My.Settings.CBSoftcoreD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "SOFTCORE DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) - If My.Settings.CBLesbianD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) + If My.Settings.CBLesbianD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "LESBIAN DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) - If My.Settings.CBBlowjobD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) + If My.Settings.CBBlowjobD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "BLOWJOB DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) - If My.Settings.CBFemdomD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) + If My.Settings.CBFemdomD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMDOM DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) - If My.Settings.CBFemsubD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) + If My.Settings.CBFemsubD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMSUB DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD If ssh.ScriptVideoTeaseFlag = True Then @@ -6688,20 +6688,20 @@ SkipSpecial: '====================================================================================== ' Domme - Special - Videos '====================================================================================== - If My.Settings.CBJOID = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) + If My.Settings.CBJOID = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "JOI DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) - If My.Settings.CBCHD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) + If My.Settings.CBCHD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "CH DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) SkipSpecialD: '====================================================================================== ' Domme - General Videos '====================================================================================== - If My.Settings.CBGeneralD = True Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) - + If My.Settings.CBGeneralD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "GENERAL DOMME") Then _ + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) + ssh.VideoGenre = "ALL" If __TotalFiles.Count = 0 Then Exit Sub @@ -11131,6 +11131,7 @@ OrgasmDecided: If StringClean.Contains("@CheckVideo") Then ssh.VideoCheck = True + ssh.VideoGenre = "ALL" RandomVideo() If ssh.NoVideo = True Then ssh.FileGoto = "(No Videos Found)" @@ -11151,6 +11152,7 @@ OrgasmDecided: selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayCensorshipSucks[" & videoFlag & "]", "") Else + ssh.VideoGenre = "ALL" RandomVideo() StringClean = StringClean.Replace("@PlayCensorshipSucks", "") End If @@ -11201,6 +11203,7 @@ OrgasmDecided: selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayAvoidTheEdge[" & videoFlag & "]", "") Else + ssh.VideoGenre = "ALL" RandomVideo() StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") End If @@ -11247,6 +11250,7 @@ OrgasmDecided: selectVideo(videoFlag) StringClean = StringClean.Replace("@PlayRedLightGreenLight[" & videoFlag & "]", "") Else + ssh.VideoGenre = "ALL" RandomVideo() StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") End If @@ -11329,10 +11333,46 @@ ExternalAudio: If StringClean.Contains("@PlayVideo(") Then + ssh.VideoGenre = "ALL" + Dim VidInt As Integer = 0 Dim VidFlag As String = GetParentheses(StringClean, "@PlayVideo(") - Dim VidInt As Integer = Val(VidFlag) - If UCase(VidFlag).Contains("M") Then VidInt *= 60 + + If VidFlag.Contains(",") Then VidFlag = FixCommas(VidFlag) + Dim FlagArray As String() = VidFlag.Split(",") + + For i As Integer = 0 To FlagArray.Count - 1 + + If Val(FlagArray(i)) > 0 Then + VidInt = Val(FlagArray(i)) + If UCase(FlagArray(i)).Contains("M") Then VidInt *= 60 + End If + + If UCase(FlagArray(i)).Contains("HARDCORE") Then ssh.VideoGenre = "HARDCORE" + If UCase(FlagArray(i)).Contains("SOFTCORE") Then ssh.VideoGenre = "SOFTCORE" + If UCase(FlagArray(i)).Contains("LESBIAN") Then ssh.VideoGenre = "LESBIAN" + If UCase(FlagArray(i)).Contains("BLOWJOB") Then ssh.VideoGenre = "BLOWJOB" + If UCase(FlagArray(i)).Contains("FEMDOM") Then ssh.VideoGenre = "FEMDOM" + If UCase(FlagArray(i)).Contains("FEMSUB") Then ssh.VideoGenre = "FEMSUB" + If UCase(FlagArray(i)).Contains("JOI") Then ssh.VideoGenre = "JOI" + If UCase(FlagArray(i)).Contains("CH") Then ssh.VideoGenre = "CH" + If UCase(FlagArray(i)).Contains("GENERAL") Then ssh.VideoGenre = "GENERAL" + + If UCase(FlagArray(i)).Contains("HARDCORE DOMME") Then ssh.VideoGenre = "HARDCORE DOMME" + If UCase(FlagArray(i)).Contains("SOFTCORE DOMME") Then ssh.VideoGenre = "SOFTCORE DOMME" + If UCase(FlagArray(i)).Contains("LESBIAN DOMME") Then ssh.VideoGenre = "LESBIAN DOMME" + If UCase(FlagArray(i)).Contains("BLOWJOB DOMME") Then ssh.VideoGenre = "BLOWJOB DOMME" + If UCase(FlagArray(i)).Contains("FEMDOM DOMME") Then ssh.VideoGenre = "FEMDOM DOMME" + If UCase(FlagArray(i)).Contains("FEMSUB DOMME") Then ssh.VideoGenre = "FEMSUB DOMME" + If UCase(FlagArray(i)).Contains("JOI DOMME") Then ssh.VideoGenre = "JOI DOMME" + If UCase(FlagArray(i)).Contains("CH DOMME") Then ssh.VideoGenre = "CH DOMME" + If UCase(FlagArray(i)).Contains("GENERAL DOMME") Then ssh.VideoGenre = "GENERAL DOMME" + + Next + + + 'Dim VidInt As Integer = Val(VidFlag) + 'If UCase(VidFlag).Contains("M") Then VidInt *= 60 If StringClean.Contains("@JumpVideo") Then ssh.JumpVideo = True @@ -11344,8 +11384,10 @@ ExternalAudio: If ssh.NoVideo = False Then ssh.TeaseVideo = True - ssh.VideoTick = VidInt - VideoTimer.Start() + If VidInt > 0 Then + ssh.VideoTick = VidInt + VideoTimer.Start() + End If Else MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If @@ -11360,6 +11402,8 @@ ExternalAudio: If StringClean.Contains("@PlayVideo") Then + ssh.VideoGenre = "ALL" + If StringClean.Contains("@JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") @@ -13556,41 +13600,69 @@ VTSkip: ' Grouped-Lines-Check-END '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement - - FilterPass = True + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' NEW FilterList TEST Begin + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - For x As Integer = 0 To ListIncrement - 1 + For i As Integer = ListClean.Count - ListIncrement To 0 Step -ListIncrement + For x As Integer = ListIncrement - 1 To 0 Step -1 If GetFilter(ListClean(i + x)) = False Then - FilterPass = False + For n As Integer = ListIncrement - 1 To 0 Step -1 + ListClean.RemoveAt(i + n) + Next Exit For End If Next + Next - If FilterPass = False Then - For x As Integer = 0 To ListIncrement - 1 - ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" - Next - End If + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' NEW FilterList TEST End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - Next - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) - Next + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Current FilterList Begin + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - 'Dim FilteredList As New List(Of String) + 'For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement - 'For i As Integer = 0 To ListClean.Count - 1 - 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) - 'Next + 'FilterPass = True + + 'For x As Integer = 0 To ListIncrement - 1 + 'If GetFilter(ListClean(i + x)) = False Then + 'FilterPass = False + 'Exit For + 'End If + 'Next + + 'If FilterPass = False Then + 'For x As Integer = 0 To ListIncrement - 1 + 'ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" + 'Next + 'End If + + 'Next + + 'For i As Integer = ListClean.Count - 1 To 0 Step -1 + 'If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) + 'Next + + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Current FilterList End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + + 'Dim FilteredList As New List(Of String) + + 'For i As Integer = 0 To ListClean.Count - 1 + 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) + 'Next #If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If - 'If ListClean.Count = 0 Then ListClean.Add("test") - Return ListClean + 'If ListClean.Count = 0 Then ListClean.Add("test") + Return ListClean End Function @@ -19657,6 +19729,7 @@ restartInstantly: Private Sub BTNRandomVideo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRandomVideo.Click ssh.RandomizerVideo = True + ssh.VideoGenre = "ALL" RandomVideo() ssh.RandomizerVideo = False End Sub @@ -19671,6 +19744,7 @@ restartInstantly: ssh.ScriptVideoTease = "Censorship Sucks" ssh.ScriptVideoTeaseFlag = True + ssh.VideoGenre = "ALL" RandomVideo() ssh.ScriptVideoTeaseFlag = False ssh.CensorshipGame = True @@ -19692,6 +19766,7 @@ restartInstantly: ssh.ScriptVideoTeaseFlag = True ssh.AvoidTheEdgeStroking = True ssh.AvoidTheEdgeGame = True + ssh.VideoGenre = "ALL" RandomVideo() ssh.ScriptVideoTeaseFlag = False ssh.VideoTease = True @@ -19714,6 +19789,7 @@ restartInstantly: ssh.ScriptVideoTeaseFlag = True 'AvoidTheEdgeStroking = True ssh.RLGLGame = True + ssh.VideoGenre = "ALL" RandomVideo() ssh.ScriptVideoTeaseFlag = False ssh.VideoTease = True diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 4b58761..b2c7013 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -2453,6 +2453,7 @@ SkipDeserializing: If ScriptList(i).Contains("@CheckVideo") Then If Not RTBScriptReq.Text.Contains("* At least one Genre or Domme Video path set and selected *") Then RTBScriptReq.Text = RTBScriptReq.Text & "* At least one Genre or Domme Video path set and selected *" & Environment.NewLine Form1.ssh.VideoCheck = True + Form1.ssh.VideoGenre = "ALL" Form1.RandomVideo() If Form1.ssh.NoVideo = True Then ScriptReqFailed = True Form1.ssh.VideoCheck = False @@ -2464,6 +2465,7 @@ SkipDeserializing: If Not RTBScriptReq.Text.Contains("* At least one non-Special Genre or Domme Video path set and selected *") Then RTBScriptReq.Text = RTBScriptReq.Text & "* At least one non-Special Genre or Domme Video path set and selected *" & Environment.NewLine Form1.ssh.VideoCheck = True Form1.ssh.NoSpecialVideo = True + Form1.ssh.VideoGenre = "ALL" Form1.RandomVideo() If Form1.ssh.NoVideo = True Then ScriptReqFailed = True Form1.ssh.VideoCheck = False @@ -2846,6 +2848,7 @@ SkipDeserializing: If AvailList(j).Contains("@CheckVideo") Then Form1.ssh.VideoCheck = True + Form1.ssh.VideoGenre = "ALL" Form1.RandomVideo() If Form1.ssh.NoVideo = True Then AvailFail = True Form1.ssh.VideoCheck = False @@ -2855,6 +2858,7 @@ SkipDeserializing: If AvailList(j).Contains("@PlayCensorshipSucks") Or AvailList(j).Contains("@PlayAvoidTheEdge") Or AvailList(j).Contains("@PlayRedLightGreenLight") Then Form1.ssh.VideoCheck = True Form1.ssh.NoSpecialVideo = True + Form1.ssh.VideoGenre = "ALL" Form1.RandomVideo() If Form1.ssh.NoVideo = True Then AvailFail = True Form1.ssh.VideoCheck = False From a2dfb0d9c80b8a6f75a97edf5f1a41f370510f8a Mon Sep 17 00:00:00 2001 From: 1885 Date: Mon, 8 May 2017 22:38:33 -0500 Subject: [PATCH 118/143] Keyword Error fix, check if Liked\Disliked files exist * Keyword Error messages were causing the program to get temporarily stuck in a loop (dariobrun) * TTS was speaking the html color codes for Keyword Error messages * The program tried to process LikedImageURLs.txt and DislikedImageURLs.txt without first making sure they existed (dariobrun) --- README.md | 6 ++++++ Tease AI/Classes/State.vb | 2 ++ Tease AI/Form1.vb | 38 +++++++++++++++++++++++++++------ Tease AI/Form1/ImageFuctions.vb | 36 +++++++++++++++++-------------- 4 files changed, 59 insertions(+), 23 deletions(-) diff --git a/README.md b/README.md index e59c605..a0868f4 100644 --- a/README.md +++ b/README.md @@ -38,6 +38,12 @@ Stefaf: Integration of Class myDirectory: Status ongoing. CH Domme General Domme +* Bugfixes: + + * Keyword Error messages were causing the program to get temporarily stuck in a loop (dariobrun) + * TTS was speaking the html color codes for Keyword Error messages + * The program tried to process LikedImageURLs.txt and DislikedImageURLs.txt without first making sure they existed (dariobrun) + * Miscellaneous: * Filtering process optimized to work in one pass instead of three (dariobrun) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index ccbe3cd..1e4c556 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -605,6 +605,8 @@ Public Class SessionState Public Property VideoGenre As String + Public Property KeywordError As String + #Region "----------------------------------- Only for Serialization -------------------------------------" diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 3f0ae40..d021ad6 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -3633,7 +3633,8 @@ LoopAnswer: If InStr(UCase(lines(line)), UCase("AcceptAnswer")) <> 0 Then AcceptAnswer: - ssh.DomChat = lines(TempLineVal) + ssh.DomChat = lines(line) + 'ssh.DomChat = lines(TempLineVal) ' TimedAnswerTimer.Stop() ssh.DomChat = ssh.DomChat.Replace("@AcceptAnswer ", "") @@ -8163,6 +8164,7 @@ StatusUpdateEnd: Public Function PoundClean(ByVal StringClean As String) As String #If TRACE Then + Dim wrongVocabs As List(Of String) = New List(Of String) Dim TS As New TraceSwitch("PoundClean", "") If TS.TraceVerbose Then @@ -8210,6 +8212,7 @@ StatusUpdateEnd: ' Find all remaining #Keywords. Dim re As New Regex(Pattern, RegexOptions.IgnoreCase) Dim mc As MatchCollection = re.Matches(StringClean) + Dim controlCustom As String = "" If StringClean.Contains("@CustomMode(") Then controlCustom = GetParentheses(StringClean, "@CustomMode(") @@ -8217,7 +8220,15 @@ StatusUpdateEnd: ' Try to get content from file but avoid changing twice the same vocab if it is present in more than one istance in the regex Dim lastKey As String = "emptyString" For Each keyword As Match In mc - If Not lastKey.Equals(keyword.ToString) Then + Dim doNotContinue As Boolean = False + For i As Integer = 0 To wrongVocabs.Count - 1 + If wrongVocabs(i) = keyword.Value Then + doNotContinue = True + Exit For + End If + Next + + If Not lastKey.Equals(keyword.Value) Then #If TRACE Then If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) #End If @@ -8239,9 +8250,13 @@ StatusUpdateEnd: Else 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - + wrongVocabs.Add(keyword.Value) + Dim wrong As String = keyword.Value + wrong = wrong.Remove(0, 1) + wrong = "Vocab Error: " & wrong If My.Settings.CBOutputErrors = True Then - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") + ssh.KeywordError = "" & wrong & "" Else StringClean = StringClean.Replace(keyword.Value, "") End If @@ -8258,14 +8273,19 @@ StatusUpdateEnd: 'End Try Else - StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - + 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") + wrongVocabs.Add(keyword.Value) + Dim wrong As String = keyword.Value + wrong = wrong.Remove(0, 1) + wrong = "Missing Vocab: " & wrong + StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") + ssh.KeywordError = "" & wrong & "" Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") End If End If - lastKey = keyword.ToString + lastKey = keyword.Value Next #If TRACE Then @@ -17267,6 +17287,10 @@ saveImage: FormatClean = FormatClean.Replace("", "") FormatClean = FormatClean.Replace(FrmSettings.TBEmote.Text, "") FormatClean = FormatClean.Replace(FrmSettings.TBEmoteEnd.Text, "") + If ssh.KeywordError <> "" Then + FormatClean = FormatClean.Replace(ssh.KeywordError, "") + ssh.KeywordError = "" + End If Return FormatClean End Function diff --git a/Tease AI/Form1/ImageFuctions.vb b/Tease AI/Form1/ImageFuctions.vb index 6dde671..d62cc8e 100644 --- a/Tease AI/Form1/ImageFuctions.vb +++ b/Tease AI/Form1/ImageFuctions.vb @@ -191,17 +191,19 @@ Partial Class Form1 ' Liked Images '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ Try - Dim addlist As List(Of String) = Txt2List(pathLikeList) + If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then + Dim addlist As List(Of String) = Txt2List(pathLikeList) - ' Remove all URLs if Offline-Mode is activated - If OfflineMode Or Type = ImageSourceType.Local Then - addlist.RemoveAll(Function(x) isURL(x)) - End If + ' Remove all URLs if Offline-Mode is activated + If OfflineMode Or Type = ImageSourceType.Local Then + addlist.RemoveAll(Function(x) isURL(x)) + End If - rtnList.AddRange(addlist) + rtnList.AddRange(addlist) + End If Catch ex As Exception - Log.WriteError(ex.Message, ex, "Error occured while loading Likelist") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Likelist", False) + Log.WriteError(ex.Message, ex, "Error occured while loading Likelist") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Likelist", False) GoTo exitEmpty End Try '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -212,17 +214,19 @@ Partial Class Form1 ' Disliked Images '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ Try - Dim addlist As List(Of String) = Txt2List(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") + If File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then + Dim addlist As List(Of String) = Txt2List(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") - ' Remove all URLs if Offline-Mode is activated - If OfflineMode Or Type = ImageSourceType.Local Then - addlist.RemoveAll(Function(x) isURL(x)) - End If + ' Remove all URLs if Offline-Mode is activated + If OfflineMode Or Type = ImageSourceType.Local Then + addlist.RemoveAll(Function(x) isURL(x)) + End If - rtnList.AddRange(addlist) + rtnList.AddRange(addlist) + End If Catch ex As Exception - Log.WriteError(ex.Message, ex, "Error occured while loading Dislikelist") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Dislikelist", False) + Log.WriteError(ex.Message, ex, "Error occured while loading Dislikelist") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Dislikelist", False) GoTo exitEmpty End Try '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ From 67cfc9b6d99fbfff768e1b92e84f7cbfa4740ea7 Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 9 May 2017 00:33:29 -0500 Subject: [PATCH 119/143] #Null fix for Missing Vocab --- Tease AI/Form1.vb | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index d021ad6..cbeedf4 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8276,12 +8276,17 @@ StatusUpdateEnd: 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") wrongVocabs.Add(keyword.Value) Dim wrong As String = keyword.Value - wrong = wrong.Remove(0, 1) - wrong = "Missing Vocab: " & wrong - StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") - ssh.KeywordError = "" & wrong & "" - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + + If UCase(wrong) = "#NULL" Then + StringClean = StringClean.Replace(keyword.Value, "") + Else + wrong = wrong.Remove(0, 1) + wrong = "Missing Vocab: " & wrong + StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") + ssh.KeywordError = "" & wrong & "" + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + End If End If End If From 796c15631974528f507734d0276bc0dfc14152d0 Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 9 May 2017 16:54:29 -0500 Subject: [PATCH 120/143] Bugfix: Create URL Files was not working --- README.md | 1 + Tease AI/Classes/URL_Files_BGW.vb | 58 +++++++++++++++++-------------- 2 files changed, 32 insertions(+), 27 deletions(-) diff --git a/README.md b/README.md index a0868f4..6fee869 100644 --- a/README.md +++ b/README.md @@ -40,6 +40,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Bugfixes: + * Create URL Files was not working * Keyword Error messages were causing the program to get temporarily stuck in a loop (dariobrun) * TTS was speaking the html color codes for Keyword Error messages * The program tried to process LikedImageURLs.txt and DislikedImageURLs.txt without first making sure they existed (dariobrun) diff --git a/Tease AI/Classes/URL_Files_BGW.vb b/Tease AI/Classes/URL_Files_BGW.vb index 0336db5..1079a8d 100644 --- a/Tease AI/Classes/URL_Files_BGW.vb +++ b/Tease AI/Classes/URL_Files_BGW.vb @@ -536,6 +536,7 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> Dim TargetFileName As String TargetFileName = imageBlogUrl TargetFileName = TargetFileName.Replace("http://", "") + TargetFileName = TargetFileName.Replace("https://", "") TargetFileName = TargetFileName.Replace("/", "") Dim TargetFilePath As String = _ImageURLFileDir & TargetFileName & ".txt" @@ -561,12 +562,15 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> Dim doc As XmlDocument = New XmlDocument() Dim ImageURLs As New List(Of String) - Request = WebRequest.Create(imageBlogUrl & "/api/read?start=" & BlogCycle & "&num=" & BlogCycleSize) + Dim ReadAPI As String = imageBlogUrl & "/api/read?start=" & BlogCycle & "&num=" & BlogCycleSize + ReadAPI = ReadAPI.Replace("//api", "/api") + + Request = WebRequest.Create(ReadAPI) Response = Request.GetResponse() Dim Reader As New XmlTextReader(Response.GetResponseStream) doc.Load(Reader) - Request.Abort() ' Otherwise you cant't run it a seccond time on the same URL that session! + Request.Abort() ' Otherwise you cant't run it a seccond time on the same URL that session! Response.Close() ' Get total post count on first run. @@ -578,9 +582,9 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> Next Else Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, - Math.Ceiling(TotalPostCount / BlogCycleSize), - 0, ImageURLs.Count, - WorkingStages.Blog_Scraping, Nothing) + Math.Ceiling(TotalPostCount / BlogCycleSize), + 0, ImageURLs.Count, + WorkingStages.Blog_Scraping, Nothing) End If ' Read all image urls in given range. @@ -591,9 +595,9 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> Next Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, - Math.Ceiling(TotalPostCount / BlogCycleSize), - 0, ImageURLs.Count, - WorkingStages.Blog_Scraping, Nothing) + Math.Ceiling(TotalPostCount / BlogCycleSize), + 0, ImageURLs.Count, + WorkingStages.Blog_Scraping, Nothing) For i = 0 To ImageURLs.Count - 1 @@ -605,9 +609,9 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> If Me.CancellationPending Then GoTo ExitScrape Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, - Math.Ceiling(TotalPostCount / BlogCycleSize), - i + 1, ImageURLs.Count, - WorkingStages.Processing, Nothing) + Math.Ceiling(TotalPostCount / BlogCycleSize), + i + 1, ImageURLs.Count, + WorkingStages.Processing, Nothing) '=============================================================================== ' Check what to do with URL @@ -619,20 +623,20 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> ElseIf Me.Work = Tasks.RebuildURLFiles AndAlso UrlListOld.Contains(ImageUrl) Then '########################### URL-Rebuild - Known URL ############################# ' If rebuilding URL-File add only previous known links. - UrlListNew.Add(ImageUrl) ' Add to new list - GoTo NextImage ' No Saving or Reviewing - ElseIf Me.Work = Tasks.RebuildURLFiles + UrlListNew.Add(ImageUrl) ' Add to new list + GoTo NextImage ' No Saving or Reviewing + ElseIf Me.Work = Tasks.RebuildURLFiles Then '########################## URL-Rebuild - Unknown URL ############################ ' If rebuilding URL-File skip previous unkwown URLs. GoTo NextImage - ElseIf Me.Work = Tasks.RefreshURLFiles AndAlso UrlListOld.Contains(ImageUrl) + ElseIf Me.Work = Tasks.RefreshURLFiles AndAlso UrlListOld.Contains(ImageUrl) Then '############################# Refresh - Known URL ############################### ' If refreshing URL-File stop scraping at first known URL. GoTo ExitScrape - ElseIf UrlListOld.Contains(ImageUrl) + ElseIf UrlListOld.Contains(ImageUrl) Then '############################## Create - Known URL ############################### - UrlListNew.Add(ImageUrl) ' Add to new list - GoTo NextImage ' No Saving or Reviewing + UrlListNew.Add(ImageUrl) ' Add to new list + GoTo NextImage ' No Saving or Reviewing End If '=============================================================================== ' Review Image @@ -643,9 +647,9 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> ' Report to MainApplication, the BGW is waiting for the Image Approval. Me.OnProgressChanged(BlogCycle / BlogCycleSize + 1, - Math.Ceiling(TotalPostCount / BlogCycleSize), - i + 1, ImageURLs.Count, - WorkingStages.Processing, TempImg) + Math.Ceiling(TotalPostCount / BlogCycleSize), + i + 1, ImageURLs.Count, + WorkingStages.Processing, TempImg) ' Wait For User Approval Do @@ -656,7 +660,7 @@ System.ComponentModel.Description("Gets or Sets the Filepath to the Likelist.")> ' If Img declined and DislikeFile is set, write URL to DislikeFile If ApproveImage = ImageApprovalStates.Declined _ - And _DislikeListPath <> String.Empty Then + And _DislikeListPath <> String.Empty Then ' Add the URL to DislikeList DislikeList.Add(ImageUrl) ' If DislikeFile exists: Append URL Else create new File @@ -755,11 +759,11 @@ RetryDeleteFile: Me.OnProgressChanged(0, 0, 0, 0, WorkingStages.Completed, Nothing) Return New CreateUrlFileResult With {.Cancelled = Me.CancellationPending, - .Filename = TargetFileName, - .ImagesAdded = ImageCountAdded, - .ImagesTotal = UrlListFinal.Count, - ._Error = ExCache - } + .Filename = TargetFileName, + .ImagesAdded = ImageCountAdded, + .ImagesTotal = UrlListFinal.Count, + ._Error = ExCache + } Catch ex As WebException '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' Webexception From fc5afb6a0f6238c7fb5170aa559f003dd78b4c2d Mon Sep 17 00:00:00 2001 From: 1885 Date: Tue, 9 May 2017 21:38:56 -0500 Subject: [PATCH 121/143] DailyTasks fix Fixing the PoundClean loop caused some issues with CreateTaskLetter --- README.md | 2 +- Tease AI/Form1.vb | 97 +++++++++++++++++++++++++++++++++++++++++++---- 2 files changed, 90 insertions(+), 9 deletions(-) diff --git a/README.md b/README.md index 6fee869..81fd84c 100644 --- a/README.md +++ b/README.md @@ -15,7 +15,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. @PlayVideo(Lesbian) - Plays a lesbian video @PlayVideo(Blowjob, 30) - Plays 30 seconds of a blowjob video - @PlayVideo(10, Softcore) - Plays 10 seconds of as softcore video + @PlayVideo(10, Softcore) - Plays 10 seconds of a softcore video The following genres may be specified: (Case doesn't matter, but @PlayVideo() only supports 1 genre to be specified) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index cbeedf4..40efbf5 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -8104,6 +8104,76 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#CurrentImage", ssh.ImageLocation) + Dim int As Integer + + If StringClean.Contains("#TaskEdges") Then + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgesMin.Value, FrmSettings.NBTaskEdgesMax.Value + 1) + If int > 5 Then int = 5 * Math.Round(int / 5) + StringClean = StringClean.Replace("#TaskEdges", int) + End If + + If StringClean.Contains("#TaskStrokes") Then + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokesMin.Value, FrmSettings.NBTaskStrokesMax.Value + 1) + If int > 10 Then int = 10 * Math.Round(int / 10) + StringClean = StringClean.Replace("#TaskStrokes", int) + End If + + If StringClean.Contains("#TaskHours") Then + int = ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + FrmSettings.domlevelNumBox.Value + StringClean = StringClean.Replace("#TaskHours", int) + End If + + If StringClean.Contains("#TaskMinutes") Then + int = ssh.randomizer.Next(5, 13) * FrmSettings.domlevelNumBox.Value + StringClean = StringClean.Replace("#TaskMinutes", int) + End If + + If StringClean.Contains("#TaskSeconds") Then + int = ssh.randomizer.Next(10, 30) * FrmSettings.domlevelNumBox.Value * ssh.randomizer.Next(1, FrmSettings.domlevelNumBox.Value + 1) + StringClean = StringClean.Replace("#TaskSeconds", int) + End If + + If StringClean.Contains("#TaskAmountLarge") Then + int = (ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value) * 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + StringClean = StringClean.Replace("#TaskAmountLarge", int) + End If + + If StringClean.Contains("#TaskAmountSmall") Then + int = (ssh.randomizer.Next(5, 11) * FrmSettings.domlevelNumBox.Value) / 2 + If int > 5 Then int = 5 * Math.Round(int / 5) + StringClean = StringClean.Replace("#TaskAmountSmall", int) + End If + + If StringClean.Contains("#TaskAmount") Then + int = ssh.randomizer.Next(15, 26) * FrmSettings.domlevelNumBox.Value + If int > 5 Then int = 5 * Math.Round(int / 5) + StringClean = StringClean.Replace("#TaskAmount", int) + End If + + If StringClean.Contains("#TaskStrokingTime") Then + int = ssh.randomizer.Next(FrmSettings.NBTaskStrokingTimeMin.Value, FrmSettings.NBTaskStrokingTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + StringClean = StringClean.Replace("#TaskStrokingTime", TConvert) + End If + + If StringClean.Contains("#TaskHoldTheEdgeTime") Then + int = ssh.randomizer.Next(FrmSettings.NBTaskEdgeHoldTimeMin.Value, FrmSettings.NBTaskEdgeHoldTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + StringClean = StringClean.Replace("#TaskHoldTheEdgeTime", TConvert) + End If + + If StringClean.Contains("#TaskCBTTime") Then + int = ssh.randomizer.Next(FrmSettings.NBTaskCBTTimeMin.Value, FrmSettings.NBTaskCBTTimeMax.Value + 1) + int *= 60 + Dim TConvert As String = ConvertSeconds(int) + StringClean = StringClean.Replace("#TaskCBTTime", TConvert) + End If + + + Return StringClean @@ -8280,12 +8350,21 @@ StatusUpdateEnd: If UCase(wrong) = "#NULL" Then StringClean = StringClean.Replace(keyword.Value, "") Else - wrong = wrong.Remove(0, 1) - wrong = "Missing Vocab: " & wrong - StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") - ssh.KeywordError = "" & wrong & "" - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + wrong = SysKeywordClean(wrong) + + If wrong.Contains("#") Then + wrong = wrong.Remove(0, 1) + wrong = "Missing Vocab: " & wrong + StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") + ssh.KeywordError = "" & wrong & "" + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + Else + StringClean = StringClean.Replace(keyword.Value, wrong) + End If + + + End If End If @@ -15894,6 +15973,7 @@ Night: Dim LoopBuffer As Integer + Dim int As Integer TaskArray = TaskEntry.Split(" ") For i As Integer = 0 To TaskArray.Count - 1 @@ -15910,7 +15990,7 @@ PoundLoop: TaskList(i) = TaskList(i).Replace(". #Emote", " #Emote") TaskList(i) = TaskList(i).Replace(". #Grin", " #Grin") TaskList(i) = TaskList(i).Replace(". #Lol", " #Lol.") - + TaskList(i) = SysKeywordClean(TaskList(i)) TaskList(i) = PoundClean(TaskList(i)) If TaskEntry.Contains("#") And LoopBuffer < 6 Then GoTo PoundLoop @@ -15919,7 +15999,6 @@ PoundLoop: End Try Next - Dim int As Integer If TaskEntry.Contains("#TaskEdges") Then Do @@ -16008,6 +16087,7 @@ PoundLoop: TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) Loop Until Not TaskEntry.Contains("#TaskCBTTime") End If + TaskEntry = TaskEntry.Replace("", "") TaskEntry = TaskEntry.Replace("", "") @@ -16018,6 +16098,7 @@ PoundLoop: Do LoopBuffer += 1 If LoopBuffer > 4 Then Exit Do + TaskEntry = SysKeywordClean(TaskEntry) TaskEntry = PoundClean(TaskEntry) Loop Until Not TaskEntry.Contains("#") And Not TaskEntry.Contains("@RT(") And Not TaskEntry.Contains("@RandomText(") From 6355329b2d5bcb5186c430ab67501af5538f826a Mon Sep 17 00:00:00 2001 From: 1885 Date: Wed, 10 May 2017 18:29:22 -0500 Subject: [PATCH 122/143] Multiple Choice Branches fixes Multiple Choice Branch parsing issues fixed (dariobrun) Multiple Choice Branches were parsing @DifferentAnswer\@AcceptAnswer lines for keywords Possible issues caused by duplicate #Keywords in a single line (dariobrun) Fixed problems that would occur when @FollowUp() contained spaces at the end of a line (dariobrun) --- README.md | 6 +- Tease AI/Classes/subAnswers.vb | 50 ++++++++++-- Tease AI/Form1.vb | 145 ++++++++++++++++++--------------- 3 files changed, 131 insertions(+), 70 deletions(-) diff --git a/README.md b/README.md index 81fd84c..d8dad07 100644 --- a/README.md +++ b/README.md @@ -41,9 +41,13 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Bugfixes: * Create URL Files was not working + * Multiple Choice Branch parsing issues fixed (dariobrun) + * Multiple Choice Branches were parsing @DifferentAnswer\@AcceptAnswer lines for keywords + * The program tried to process LikedImageURLs.txt and DislikedImageURLs.txt without first making sure they existed (dariobrun) * Keyword Error messages were causing the program to get temporarily stuck in a loop (dariobrun) + * Possible issues caused by duplicate #Keywords in a single line (dariobrun) * TTS was speaking the html color codes for Keyword Error messages - * The program tried to process LikedImageURLs.txt and DislikedImageURLs.txt without first making sure they existed (dariobrun) + * Fixed problems that would occur when @FollowUp() contained spaces at the end of a line (dariobrun) * Miscellaneous: diff --git a/Tease AI/Classes/subAnswers.vb b/Tease AI/Classes/subAnswers.vb index 33cb3b3..8500c4c 100644 --- a/Tease AI/Classes/subAnswers.vb +++ b/Tease AI/Classes/subAnswers.vb @@ -2,6 +2,7 @@ Public Class subAnswers Private checkList As New List(Of String) + Private answerList As New List(Of String) Private ssh As SessionState Sub New(session As SessionState) @@ -37,13 +38,52 @@ Public Class subAnswers Return checkList End Function - Public Function containListedWords(wordList As String) As Boolean - Dim list As String() = ssh.obtainSplitParts(wordList, False) - For i As Integer = 0 To list.Length - 1 - For n As Integer = 0 To checkList.Count() - 1 - If UCase(checkList(n)).Contains(UCase(list(i))) Then Return True + Public Function isSystemWord(ByVal wordList As String) As Boolean + For i As Integer = 0 To checkList.Count() - 1 + Dim list As String() = ssh.obtainSplitParts(checkList(i), False) + For n As Integer = 0 To list.Count - 1 + If UCase(wordList).Contains(UCase(list(n))) Then Return True Next Next Return False End Function + + Public Sub addToAnswerList(ByVal words As String) + Dim split() = words.Split(",") + For i As Integer = 0 To split.Count - 1 + answerList.Add(split(i)) + Next + End Sub + + Public Sub clearAnswers() + answerList.Clear() + End Sub + + Public Function triggerWord(ByVal chatstring As String) As String + + 'we first order the list based on lenght of the answer option (and if equal lenght, by the order in which they are in the answer list) + + Dim sorted = answerList.OrderByDescending(Function(x) x.Length).ThenBy(Function(x) answerList.IndexOf(x)).ToArray + + 'we then check only the answers with more than 1 word to see if the chat strings contain any of them + + For i As Integer = 0 To sorted.Count - 1 + If InStr(sorted(i), " ") > 0 Then If chatstring.Contains(sorted(i)) Then Return sorted(i) + Next + + 'if all multiple words answers didn't return an answer, we check for the single words in the chat to see if any of them matches + + Dim singleWords() = ssh.obtainSplitParts(chatstring, True) + For i As Integer = 0 To singleWords.Count - 1 + For n As Integer = 0 To answerList.Count - 1 + If UCase(answerList(n)) = UCase(singleWords(i)) Then Return singleWords(i) + Next + Next + Return "" + End Function + + Public Function answerNumber() As Integer + Return answerList.Count + End Function + End Class diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 40efbf5..ce24da8 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -3542,61 +3542,79 @@ NullSkip: line = ssh.StrokeTauntVal Dim TempLineVal As Integer - Do - line += 1 - Loop Until InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 + 'if we already populated the answer list we do not need to do it again + If ssh.checkAnswers.answerNumber = 0 Then + Do + line += 1 + Debug.Print("YESNO Line = " & lines(line)) + If Not UCase(lines(line)).Contains("@DIFFERENTANSWER") And Not UCase(lines(line)).Contains("@ACCEPTANSWER") Then + Dim getWords As String = GetParentheses(lines(line), "[") + ssh.checkAnswers.addToAnswerList(getWords) + End If - TempLineVal = line - line = ssh.StrokeTauntVal + Loop Until InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 + TempLineVal = line + line = ssh.StrokeTauntVal + End If Dim CheckLines As String Dim ChatReplace As String - Do - line += 1 - CheckLines = lines(line) - Dim checkResult As Integer = -1 + 'we get the trigger word that is present in the chat (if there is a word that matches one of the answers) + Dim triggerWord As String = ssh.checkAnswers.triggerWord(ssh.ChatString) - Dim Splits As String() = CheckLines.Split(New Char() {"]"c}) - Splits(0) = Splits(0).Replace("[", "") - ChatReplace = CheckLines.Replace("[" & Splits(0) & "]", "") + 'we check to see what answer to trigger only if there was a trigger word, otherwise we move directly to the noanswer found part + If triggerWord <> "" Then - 'we check to see if what the user wrote contains one of the keywords for the different yes/no/etc responses - 'this is useful if the script contains something like [yes,maybe] as an answer option - 'if the user write maybe then it will not need to use the honorific but if he writes yes, instead, it will check the honorific - If Not ssh.checkAnswers.containListedWords(ssh.ChatString) Then - checkResult = checkSubAnswer(Splits(0)) - Else - If UCase(CheckLines).Contains(UCase("[yes")) Or UCase(CheckLines).Contains(UCase("yes]")) Then - checkResult = checkSubAnswer("yes") - ElseIf UCase(CheckLines).Contains(UCase("[no")) Or UCase(CheckLines).Contains(UCase("no]")) Then - checkResult = checkSubAnswer("no") - ElseIf UCase(CheckLines).Contains(UCase("[hi")) Or UCase(CheckLines).Contains(UCase("hi]")) Or UCase(CheckLines).Contains(UCase("[hello")) Or UCase(CheckLines).Contains(UCase("hello]")) Then - checkResult = checkSubAnswer("hi") - ElseIf UCase(CheckLines).Contains(UCase("[sorry")) Or UCase(CheckLines).Contains(UCase("sorry]")) Then - checkResult = checkSubAnswer("sorry") - ElseIf UCase(CheckLines).Contains(UCase("[thank")) Or UCase(CheckLines).Contains(UCase("thank ")) Then - checkResult = checkSubAnswer("thanks") - ElseIf UCase(CheckLines).Contains(UCase("[please")) Or UCase(CheckLines).Contains(UCase("please]")) Then - checkResult = checkSubAnswer("please") - End If - End If - - If checkResult = 1 Then - GoTo FoundAnswer - ElseIf checkResult = 0 Then - checkForPunish() - Return - End If + Do + line += 1 + CheckLines = lines(line) + Dim checkResult As Integer = -1 + + Dim Splits As String() = CheckLines.Split(New Char() {"]"c}) + Splits(0) = Splits(0).Replace("[", "") + ChatReplace = CheckLines.Replace("[" & Splits(0) & "]", "") + + 'we check to see if what the user wrote contains one of the keywords for the different yes/no/etc responses + 'this is useful if the script contains something like [yes,maybe] as an answer option + 'if the user write maybe then it will not need to use the honorific but if he writes yes, instead, it will check the honorific + If Not ssh.checkAnswers.isSystemWord(triggerWord) And Splits(0).Contains(triggerWord) Then + checkResult = checkSubAnswer(Splits(0)) + Else + If UCase(CheckLines).Contains(UCase("[yes")) Or UCase(CheckLines).Contains(UCase("yes]")) Then + checkResult = checkSubAnswer("yes") + ElseIf UCase(CheckLines).Contains(UCase("[no")) Or UCase(CheckLines).Contains(UCase("no]")) Then + checkResult = checkSubAnswer("no") + ElseIf UCase(CheckLines).Contains(UCase("[hi")) Or UCase(CheckLines).Contains(UCase("hi]")) Or UCase(CheckLines).Contains(UCase("[hello")) Or UCase(CheckLines).Contains(UCase("hello]")) Then + checkResult = checkSubAnswer("hi") + ElseIf UCase(CheckLines).Contains(UCase("[sorry")) Or UCase(CheckLines).Contains(UCase("sorry]")) Then + checkResult = checkSubAnswer("sorry") + ElseIf UCase(CheckLines).Contains(UCase("[thank")) Or UCase(CheckLines).Contains(UCase("thank ")) Then + checkResult = checkSubAnswer("thanks") + ElseIf UCase(CheckLines).Contains(UCase("[please")) Or UCase(CheckLines).Contains(UCase("please]")) Then + checkResult = checkSubAnswer("please") + End If + End If - Loop Until InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 + If checkResult = 1 Then + GoTo FoundAnswer + ElseIf checkResult = 0 Then + checkForPunish() + Return + End If + + Loop Until InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 + + End If GoTo NothingFound FoundAnswer: updateDommeName(ChatReplace) ssh.DomChat = ChatReplace + 'we clear the answer list + ssh.checkAnswers.clearAnswers() If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True If ssh.DomChat.Contains("@LoopAnswer") Then GoTo LoopAnswer @@ -3616,10 +3634,10 @@ NothingFound: checkForPunish() Return End If - If InStr(UCase(lines(line)), UCase("DifferentAnswer")) <> 0 Then + If InStr(UCase(lines(TempLineVal)), UCase("DifferentAnswer")) <> 0 Then DifferentAnswer: - ssh.DomChat = lines(line) + ssh.DomChat = lines(TempLineVal) ssh.DomChat = ssh.DomChat.Replace("@DifferentAnswer ", "") LoopAnswer: @@ -3630,13 +3648,15 @@ LoopAnswer: End If - If InStr(UCase(lines(line)), UCase("AcceptAnswer")) <> 0 Then + If InStr(UCase(lines(TempLineVal)), UCase("AcceptAnswer")) <> 0 Then AcceptAnswer: - ssh.DomChat = lines(line) - 'ssh.DomChat = lines(TempLineVal) + 'ssh.DomChat = lines(line) + ssh.DomChat = lines(TempLineVal) ' TimedAnswerTimer.Stop() + 'we clear the answer list + ssh.checkAnswers.clearAnswers() ssh.DomChat = ssh.DomChat.Replace("@AcceptAnswer ", "") ScriptTimer.Start() ssh.YesOrNo = False @@ -8234,7 +8254,7 @@ StatusUpdateEnd: Public Function PoundClean(ByVal StringClean As String) As String #If TRACE Then - Dim wrongVocabs As List(Of String) = New List(Of String) + Dim alreadyChecked As List(Of String) = New List(Of String) Dim TS As New TraceSwitch("PoundClean", "") If TS.TraceVerbose Then @@ -8287,18 +8307,18 @@ StatusUpdateEnd: If StringClean.Contains("@CustomMode(") Then controlCustom = GetParentheses(StringClean, "@CustomMode(") End If - ' Try to get content from file but avoid changing twice the same vocab if it is present in more than one istance in the regex - Dim lastKey As String = "emptyString" + For Each keyword As Match In mc Dim doNotContinue As Boolean = False - For i As Integer = 0 To wrongVocabs.Count - 1 - If wrongVocabs(i) = keyword.Value Then + 'if we already checked for this vocab we avoid checking again + For i As Integer = 0 To alreadyChecked.Count - 1 + If alreadyChecked(i) = keyword.Value Then doNotContinue = True Exit For End If Next - If Not lastKey.Equals(keyword.Value) Then + If Not doNotContinue Then #If TRACE Then If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) #End If @@ -8320,7 +8340,6 @@ StatusUpdateEnd: Else 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - wrongVocabs.Add(keyword.Value) Dim wrong As String = keyword.Value wrong = wrong.Remove(0, 1) wrong = "Vocab Error: " & wrong @@ -8344,7 +8363,7 @@ StatusUpdateEnd: Else 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") - wrongVocabs.Add(keyword.Value) + Dim wrong As String = keyword.Value If UCase(wrong) = "#NULL" Then @@ -8364,12 +8383,13 @@ StatusUpdateEnd: End If - + End If End If + alreadyChecked.Add(keyword.Value) End If - lastKey = keyword.Value + Next #If TRACE Then @@ -8417,9 +8437,10 @@ StatusUpdateEnd: End If If StringClean.Contains("@FollowUp(") And ssh.FollowUp = "" Then + StringClean = StringClean.Trim ssh.FollowUp = GetParentheses(StringClean, "@FollowUp(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it - If ssh.FollowUp.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.Length - 1, 1) + If ssh.FollowUp.Trim.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.LastIndexOf(")"c), 1) StringClean = StringClean.Replace("@FollowUp(" & ssh.FollowUp & ")", "") End If @@ -8442,9 +8463,10 @@ StatusUpdateEnd: ssh.TempVal = ssh.randomizer.Next(1, 101) Dim FollowLineTemp As String + StringClean = StringClean.Trim FollowLineTemp = GetParentheses(StringClean, "@FollowUp" & FollowTemp & "(", StringClean.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it - If FollowLineTemp.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.Length - 1, 1) + If FollowLineTemp.Trim.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.LastIndexOf(")"c), 1) If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp @@ -20959,9 +20981,10 @@ playLoop: 'remove eventual @ContactX present in a @FollowUp() inside the line If stringToCheck.Contains("@FollowUp") Then Dim remove As String + stringToCheck = stringToCheck.Trim remove = GetParentheses(stringToCheck, "@FollowUp(", stringToCheck.Split(")").Count - 1) 'if there is a leftover ) (might happen in very complex followUp) we remove it - If remove.EndsWith(")") Then remove = remove.Remove(remove.Length - 1, 1) + If remove.Trim.EndsWith(")") Then remove = remove.Remove(remove.LastIndexOf(")"c), 1) stringToCheck = stringToCheck.Replace("@FollowUp(" & remove & ")", "") End If @@ -21329,11 +21352,5 @@ ShowedBlogImage: LBLWritingTaskText.Text = LBLWritingTaskText.Text.Trim End Sub - Private Function goingTo(ByVal commandToCheck As String) As String - If commandToCheck.Contains("followUp(") Then Return "followUp" - If commandToCheck.Contains("followUp") Then Return "followUpXX" - Return "" - End Function - End Class From 64101b8a3b75fb52e2ade450c67137cc8bba6ce3 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 11 May 2017 00:56:57 -0500 Subject: [PATCH 123/143] MCB fix Spaces weren't being trimmed out during subAnswers, so choices in brackets after commas weren't being correctly checked if followed or preceded by a space --- Tease AI/Classes/subAnswers.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tease AI/Classes/subAnswers.vb b/Tease AI/Classes/subAnswers.vb index 8500c4c..eb2ec96 100644 --- a/Tease AI/Classes/subAnswers.vb +++ b/Tease AI/Classes/subAnswers.vb @@ -68,7 +68,7 @@ Public Class subAnswers 'we then check only the answers with more than 1 word to see if the chat strings contain any of them For i As Integer = 0 To sorted.Count - 1 - If InStr(sorted(i), " ") > 0 Then If chatstring.Contains(sorted(i)) Then Return sorted(i) + If InStr(sorted(i), " ") > 0 Then If chatstring.Contains(sorted(i).Trim) Then Return sorted(i).Trim Next 'if all multiple words answers didn't return an answer, we check for the single words in the chat to see if any of them matches From f0471e7b141d19ab90641df0820befb68d023588 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 11 May 2017 03:29:27 -0500 Subject: [PATCH 124/143] Changed Assembly Version to 0.54.9.0 --- Tease AI/My Project/AssemblyInfo.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index d4564c7..e7b6bc6 100644 --- a/Tease AI/My Project/AssemblyInfo.vb +++ b/Tease AI/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - + From bca7480b91da62e613da400449d3e4c95c61408d Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 11 May 2017 21:31:54 -0500 Subject: [PATCH 125/143] Bugfix: Recent Slideshows Recent Slideshows weren't being saved in the drop-down box after being manually entered --- README.md | 1 + Tease AI/Form1.vb | 69 +++++++++++++++++++++++++++++++++++------------ 2 files changed, 53 insertions(+), 17 deletions(-) diff --git a/README.md b/README.md index d8dad07..695a9bd 100644 --- a/README.md +++ b/README.md @@ -46,6 +46,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * The program tried to process LikedImageURLs.txt and DislikedImageURLs.txt without first making sure they existed (dariobrun) * Keyword Error messages were causing the program to get temporarily stuck in a loop (dariobrun) * Possible issues caused by duplicate #Keywords in a single line (dariobrun) + * Recent Slideshows weren't being saved in the drop-down box after being manually entered * TTS was speaking the html color codes for Keyword Error messages * Fixed problems that would occur when @FollowUp() contained spaces at the end of a line (dariobrun) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index ce24da8..71a8ad0 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -404,9 +404,16 @@ retryStart: FrmSplash.LBLSplash.Text = "Checking recent slideshows..." FrmSplash.Refresh() - For Each path As String In My.Settings.RecentSlideshows - If Directory.Exists(path) Then ImageFolderComboBox.Items.Add(path) + + Dim uniqueNames = From u In My.Settings.RecentSlideshows Distinct + + For Each n In uniqueNames + If Directory.Exists(n) Then ImageFolderComboBox.Items.Add(n) Next + + 'For Each path As String In My.Settings.RecentSlideshows + 'If Directory.Exists(Path) Then ImageFolderComboBox.Items.Add(Path) + 'Next ' because Specialized.StringCollections are crap, ' we have to clear And refill it using For-Each... My.Settings.RecentSlideshows.Clear() @@ -451,8 +458,8 @@ retryStart: ' If it would be true, this branch is unreachable My.Settings.CBGlitterFeedScripts = False ElseIf My.Settings.CBGlitterFeed = False _ - AndAlso My.Settings.CBGlitterFeedOff = False _ - AndAlso My.Settings.CBGlitterFeedScripts = False Then + AndAlso My.Settings.CBGlitterFeedOff = False _ + AndAlso My.Settings.CBGlitterFeedScripts = False Then My.Settings.CBGlitterFeedOff = True End If @@ -1125,11 +1132,11 @@ retryStart: Dim b As MsgBoxResult = MessageBox.Show("An exception occurred on startup. Tease-AI is unable to work correctly until this error is fixed." & - vbCrLf & vbCrLf & - ex.Message & - vbCrLf & vbCrLf & - "Further details were written to the error log.", "Startup failed", - btn, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & + ex.Message & + vbCrLf & vbCrLf & + "Further details were written to the error log.", "Startup failed", + btn, MessageBoxIcon.Hand) If b = MsgBoxResult.Abort Or b = MsgBoxResult.Cancel Then Process.GetCurrentProcess().Kill() @@ -6086,12 +6093,13 @@ DommeSlideshowFallback: #Region "------------------------------------------ Images ----------------------------------------------" - Private Sub LoadCustomizedSlideshow(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browsefolderButton.Click, ImageFolderComboBox.KeyDown, ImageFolderComboBox.SelectedIndexChanged + Private Sub LoadCustomizedSlideshow(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browsefolderButton.Click, ImageFolderComboBox.KeyDown, ImageFolderComboBox.SelectionChangeCommitted 'TODO-Next-Stefaf: Implement enhanced RecentSlideshows.Item handling If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") Return End If + Try Dim GetFolder As String = "" browsefolderButton.Enabled = False @@ -6114,10 +6122,16 @@ DommeSlideshowFallback: ImageFolderComboBox.Items.Clear() - For Each comboitem As String In My.Settings.RecentSlideshows - ImageFolderComboBox.Items.Add(comboitem) + Dim uniqueNames = From u In My.Settings.RecentSlideshows Distinct + + For Each n In uniqueNames + ImageFolderComboBox.Items.Add(n) Next + 'For Each comboitem As String In My.Settings.RecentSlideshows + 'ImageFolderComboBox.Items.Add(comboitem) + 'Next + ImageFolderComboBox.Text = GetFolder End If ElseIf sender Is ImageFolderComboBox And TypeOf e Is KeyEventArgs Then @@ -6137,8 +6151,29 @@ DommeSlideshowFallback: ' ImageFolderComboBox '=============================================================================== chooseComboboxText: - If Directory.Exists(ImageFolderComboBox.Text) Or isURL(ImageFolderComboBox.Text) Then - GetFolder = ImageFolderComboBox.Text + 'ImageFolderComboBox.Text = ImageFolderComboBox.SelectedItem + If Directory.Exists(ImageFolderComboBox.SelectedItem) Or isURL(ImageFolderComboBox.SelectedItem) Then + GetFolder = ImageFolderComboBox.SelectedItem + + My.Settings.RecentSlideshows.Add(GetFolder) + + Do Until My.Settings.RecentSlideshows.Count < 11 + My.Settings.RecentSlideshows.Remove(My.Settings.RecentSlideshows(0)) + Loop + + ImageFolderComboBox.Items.Clear() + + Dim uniqueNames = From u In My.Settings.RecentSlideshows Distinct + + For Each n In uniqueNames + ImageFolderComboBox.Items.Add(n) + Next + + ImageFolderComboBox.Text = GetFolder + + 'For Each comboitem As String In My.Settings.RecentSlideshows + 'ImageFolderComboBox.Items.Add(comboitem) + 'Next Else Throw New DirectoryNotFoundException("The given directory """ & ImageFolderComboBox.Text & """ does not exist.") End If @@ -6219,7 +6254,7 @@ listLoaded: If ssh.SlideshowMain.ImageList.Count <= 0 Then MessageBox.Show(Me, "There are no images in the specified folder.", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub Else ssh.SlideshowLoaded = True @@ -6241,8 +6276,8 @@ listLoaded: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show("Unable to load custom slideshow : " & vbCrLf & vbCrLf & ex.Message, - "Open CustomSlideshow failed", - MessageBoxButtons.OK, MessageBoxIcon.Error) + "Open CustomSlideshow failed", + MessageBoxButtons.OK, MessageBoxIcon.Error) Finally browsefolderButton.Enabled = True nextButton.Enabled = True From 8b920a59a1135ab628dc8711aae6df1a8a0bfe90 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 12 May 2017 02:24:48 -0500 Subject: [PATCH 126/143] ImageFolderComboBox fix Needed to insert a check to see if the dir was coming from manual entry or slected from the drop down box --- Tease AI/Form1.vb | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 71a8ad0..e5b0758 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -6102,6 +6102,7 @@ DommeSlideshowFallback: Try Dim GetFolder As String = "" + Dim ManuallyEntered As Boolean = False browsefolderButton.Enabled = False nextButton.Enabled = False previousButton.Enabled = False @@ -6142,6 +6143,7 @@ DommeSlideshowFallback: If _e.KeyCode = Keys.Enter Then _e.Handled = True + ManuallyEntered = True GoTo chooseComboboxText Else Exit Sub @@ -6152,8 +6154,15 @@ DommeSlideshowFallback: '=============================================================================== chooseComboboxText: 'ImageFolderComboBox.Text = ImageFolderComboBox.SelectedItem - If Directory.Exists(ImageFolderComboBox.SelectedItem) Or isURL(ImageFolderComboBox.SelectedItem) Then - GetFolder = ImageFolderComboBox.SelectedItem + Dim StringToCheck As String + If ManuallyEntered = True Then + StringToCheck = ImageFolderComboBox.Text + Else + StringToCheck = ImageFolderComboBox.SelectedItem + End If + + If Directory.Exists(StringToCheck) Or isURL(StringToCheck) Then + GetFolder = StringToCheck My.Settings.RecentSlideshows.Add(GetFolder) From 27223785a5a5cc2caa254daf34b2868fb4b518af Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 2 Jun 2017 00:23:37 -0500 Subject: [PATCH 127/143] @DifferentAnswer bugfix, @ControlFlag() Command Filter @ControlFlag() - If the Flag specified in @ControlFlag() exists, then ONLY those lines will be viable when filtering lines from scripts @DifferentAnswer lines were causing scripts to freeze\reset WakeUp time was not saved until manually set by the user, causing @Morning, @Afternoon and @Night Command Filters to not work correctly #DomHairLength now outputs correctly Experimental: Changed WMP docking style to see if it would help those who reported the video displaying in a very small area on the side of the screen --- README.md | 28 +++++++++++++++++ Tease AI/Form1.Designer.vb | 10 +++--- Tease AI/Form1.vb | 63 +++++++++++++++++++++++++++----------- 3 files changed, 79 insertions(+), 22 deletions(-) diff --git a/README.md b/README.md index 695a9bd..948aeb3 100644 --- a/README.md +++ b/README.md @@ -7,6 +7,34 @@ Stefaf: Integration of Class myDirectory: Status ongoing. Testrun to sort Lists like Win-Explorer: initialized in v0.54.5.1 +# Changelog - Patch 55.0.0 + +* Command Filters: + + * @ControlFlag() - If the Flag specified in @ControlFlag() exists, then ONLY those lines will be viable when filtering lines from scripts. Take this StrokeTaunts_1 script for example: + + Keep stroking + Keep going + I want you to suffer + @ControlFlag(Contact1Present) #Contact1 loves watching you stroke + @ControlFlag(ImageOnlyRound) @ShowBlogImage + + Compare to the following cases: + Only Contact1Present flag exists - The only viable line is "#Contact1 loves watching you stroke" + Only ImageOnlyRound flag exists - The only viable line is "@ShowBlogImage" + Contact1Present and ImageOnlyRound both exist - The only viable lines are "#Contact1 loves watching you stroke" and "@ShowBlogImage" + Neither Contact1Present or ImageOnlyRound exist - The only viable lines are "Keep stroking", "Keep going" and "I want you to suffer" + +* Bugfixes: + + * @DifferentAnswer lines were causing scripts to freeze\reset + * WakeUp time was not saved until manually set by the user, causing @Morning, @Afternoon and @Night Command Filters to not work correctly + * #DomHairLength now outputs correctly + +* Miscellaneous: + + * Experimental: Changed WMP docking style to see if it would help those who reported the video displaying in a very small area on the side of the screen + # Changelog - Patch 54.9.0 * Added Features: diff --git a/Tease AI/Form1.Designer.vb b/Tease AI/Form1.Designer.vb index 15691ec..e24bd2c 100644 --- a/Tease AI/Form1.Designer.vb +++ b/Tease AI/Form1.Designer.vb @@ -548,14 +548,16 @@ Partial Class Form1 ' 'DomWMP ' - Me.DomWMP.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + 'Me.DomWMP.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + ' Or System.Windows.Forms.AnchorStyles.Left) _ + ' Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.DomWMP.Dock = System.Windows.Forms.DockStyle.Fill Me.DomWMP.Enabled = True Me.DomWMP.Location = New System.Drawing.Point(0, 0) Me.DomWMP.Name = "DomWMP" Me.DomWMP.OcxState = CType(resources.GetObject("DomWMP.OcxState"), System.Windows.Forms.AxHost.State) - Me.DomWMP.Size = New System.Drawing.Size(1398, 698) + 'Me.DomWMP.Size = New System.Drawing.Size(1398, 698) + Me.DomWMP.Size = New System.Drawing.Size(1398, 536) Me.DomWMP.TabIndex = 96 Me.DomWMP.Visible = False ' diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index e5b0758..87aefdd 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -3551,19 +3551,20 @@ NullSkip: Dim TempLineVal As Integer 'if we already populated the answer list we do not need to do it again - If ssh.checkAnswers.answerNumber = 0 Then - Do - line += 1 - Debug.Print("YESNO Line = " & lines(line)) - If Not UCase(lines(line)).Contains("@DIFFERENTANSWER") And Not UCase(lines(line)).Contains("@ACCEPTANSWER") Then - Dim getWords As String = GetParentheses(lines(line), "[") - ssh.checkAnswers.addToAnswerList(getWords) - End If + 'If ssh.checkAnswers.answerNumber = 0 Then + Do + line += 1 + Debug.Print("YESNO Line = " & lines(line)) + If Not UCase(lines(line)).Contains("@DIFFERENTANSWER") And Not UCase(lines(line)).Contains("@ACCEPTANSWER") Then + Dim getWords As String = GetParentheses(lines(line), "[") + ssh.checkAnswers.addToAnswerList(getWords) + End If - Loop Until InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 - TempLineVal = line - line = ssh.StrokeTauntVal - End If + Loop Until InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 + 'End If + + TempLineVal = line + line = ssh.StrokeTauntVal Dim CheckLines As String Dim ChatReplace As String @@ -7738,9 +7739,9 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#DomApathy", FrmSettings.NBEmpathy.Value) - StringClean = StringClean.Replace("#DomHair", FrmSettings.TBDomHairColor.Text) + StringClean = StringClean.Replace("#DomHairLength", LCase(FrmSettings.domhairlengthComboBox.Text)) - StringClean = StringClean.Replace("#DomHairLength", FrmSettings.domhairlengthComboBox.Text) + StringClean = StringClean.Replace("#DomHair", FrmSettings.TBDomHairColor.Text) StringClean = StringClean.Replace("#DomEyes", FrmSettings.TBDomEyeColor.Text) @@ -13770,6 +13771,22 @@ VTSkip: ' Grouped-Lines-Check-END '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + Dim ControlList As New List(Of String) + + For i As Integer = 0 To ListClean.Count - 1 + If ListClean(i).Contains("@ControlFlag(") Then + If FlagExists(GetParentheses(ListClean(i), "@ControlFlag(")) = True Then + ControlList.Add(ListClean(i)) + End If + End If + Next + + If ControlList.Count > 0 Then + ListClean.Clear() + ListClean = ControlList + End If + + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' NEW FilterList TEST Begin '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -14019,10 +14036,14 @@ VTSkip: ' with "glaring". '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - If FilterString.Contains("@Flag(") Then + If FilterString.Contains("@Flag(") Or FilterString.Contains("@ControlFlag(") Then Dim writeFlag As String Dim splitFlag As String() - writeFlag = GetParentheses(FilterString, "@Flag(") + If FilterString.Contains("@Flag(") Then + writeFlag = GetParentheses(FilterString, "@Flag(") + Else + writeFlag = GetParentheses(FilterString, "@ControlFlag(") + End If writeFlag = FixCommas(writeFlag) splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) For Each s In splitFlag @@ -14469,7 +14490,7 @@ VTSkip: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") + ex, "GetFilter(String, Boolean)") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error: " & ex.Message & "", False) Return False End Try @@ -17409,7 +17430,7 @@ saveImage: For Each com As String In New List(Of String) From {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", - "@DayOfWeek(", "@FlagOr("} + "@DayOfWeek(", "@FlagOr(", "@CheckDate(", "@ControlFlag("} If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") Next @@ -18553,6 +18574,12 @@ restartInstantly: If DDiff > 4 And DDiff < 12 Then ssh.GeneralTime = "Afternoon" If DDiff > -21 And DDiff < -11 Then ssh.GeneralTime = "Afternoon" + Else + + Dim SetDate As Date = FormatDateTime(FrmSettings.TimeBoxWakeUp.Value, DateFormat.LongTime) + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp", FormatDateTime(SetDate, DateFormat.LongTime), False) + My.Settings.WakeUp = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetTime("SYS_WakeUp") + End If If ssh.CountUpList.Count > 0 Then From b9b4bb7e4a5ffc58871dd6e319f6d1390e3c3cf9 Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 2 Jun 2017 00:52:54 -0500 Subject: [PATCH 128/143] #Var[] fix #Var[] should now work correctly no matter how it is used or how many times per line it is used. For example, @SetVar[C]=[#Random(#Var[A], #Var[B])] --- README.md | 1 + Tease AI/Form1.vb | 31 +++++++++---------------------- 2 files changed, 10 insertions(+), 22 deletions(-) diff --git a/README.md b/README.md index 948aeb3..60ac701 100644 --- a/README.md +++ b/README.md @@ -28,6 +28,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * Bugfixes: * @DifferentAnswer lines were causing scripts to freeze\reset + * #Var[] should now work correctly no matter how it is used or how many times per line it is used. For example, @SetVar[C]=[#Random(#Var[A], #Var[B])] * WakeUp time was not saved until manually set by the user, causing @Morning, @Afternoon and @Night Command Filters to not work correctly * #DomHairLength now outputs correctly diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 87aefdd..c3ea36e 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -7678,6 +7678,15 @@ StatusUpdateEnd: Public Function SysKeywordClean(ByVal StringClean As String) As String + If StringClean.Contains("#Var[") Then + Dim VarArray As String() = StringClean.Split("]") + For i As Integer = 0 To VarArray.Count - 1 + If VarArray(i).Contains("#Var[") Then + StringClean = StringClean.Replace("#Var[" & GetParentheses(VarArray(i) & "]", "#Var[") & "]", GetVariable(GetParentheses(VarArray(i) & "]", "#Var["))) + End If + Next + End If + If StringClean.Contains("@RT(") Or StringClean.Contains("@RandomText(") Then Dim replace As String() = {"@RT(", "@RandomText("} Dim RandArray As String() = StringClean.Split("@") @@ -7700,7 +7709,6 @@ StatusUpdateEnd: Next End If - If FrmSettings.CBCockToClit.Checked = True Then StringClean = StringClean.Replace("#Cock", "#CockToClit") StringClean = StringClean.Replace("stroking", "#StrokingToRubbing") @@ -7997,27 +8005,6 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#CurrentDate", FormatDateTime(Date.Now, DateFormat.ShortDate)) ' StringClean = StringClean.Replace("#CurrentDate", Format(Now, "MM/dd/yyyy")) - ' - If StringClean.Contains("#Var[") Then - - 'Dim VarSplit As String() = StringClean.Split("]") - 'For i As Integer = 0 To VarSplit.Count - 1 - 'If VarSplit(i).Contains("#Var[") Then - 'Dim VarString As String = VarSplit(i) & "]" - 'Dim VarFlag As String = GetParentheses(VarString, "#Var[") - 'Debug.Print("VarFlag = " & VarFlag) - 'Dim VarFlag2 As String = GetVariable(VarFlag) - 'Debug.Print("VarFlag2 = " & VarFlag2) - ' StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - 'Debug.Print("Try this shit #Var[" & VarFlag & "]") - 'StringClean = StringClean.Replace("#Var[" & VarFlag & "]", VarFlag2) - 'End If - ' Next - - StringClean = StringClean.Replace("#Var[", "@ShowVar[") - - End If - If StringClean.Contains("#RandomSlideshowCategory") Then Dim RanCat As New List(Of String) From 8f63c0f1ada8d6cca786dc26292b8325048db59f Mon Sep 17 00:00:00 2001 From: 1885 Date: Fri, 2 Jun 2017 01:28:25 -0500 Subject: [PATCH 129/143] Edge phrase apostrophe fix Edge phrases weren't being recognized if they contained apostrophes --- README.md | 1 + Tease AI/Form1.vb | 6 ++++-- Tease AI/Form2.Designer.vb | 14 +++++++------- 3 files changed, 12 insertions(+), 9 deletions(-) diff --git a/README.md b/README.md index 60ac701..190a2ed 100644 --- a/README.md +++ b/README.md @@ -30,6 +30,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * @DifferentAnswer lines were causing scripts to freeze\reset * #Var[] should now work correctly no matter how it is used or how many times per line it is used. For example, @SetVar[C]=[#Random(#Var[A], #Var[B])] * WakeUp time was not saved until manually set by the user, causing @Morning, @Afternoon and @Night Command Filters to not work correctly + * Edge phrases weren't being recognized if they contained apostrophes * #DomHairLength now outputs correctly * Miscellaneous: diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index c3ea36e..317f005 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1889,8 +1889,10 @@ WritingTaskLine: EdgeString = EdgeString.Replace(".", "") EdgeString = EdgeString.Replace(",", "") EdgeString = EdgeString.Replace("!", "") - Debug.Print("UCase(EdgeString) = " & UCase(EdgeString)) - Debug.Print("EdgeCheck = " & UCase(EdgeCheck)) + EdgeCheck = EdgeCheck.Replace("'", "") + EdgeCheck = EdgeCheck.Replace(".", "") + EdgeCheck = EdgeCheck.Replace(",", "") + EdgeCheck = EdgeCheck.Replace("!", "") If UCase(EdgeCheck).Contains("DONT") Or UCase(EdgeCheck).Contains("NEVER") Or UCase(EdgeCheck).Contains("NOT") Then If UCase(EdgeCheck).Contains(UCase(EdgeString)) Then ssh.EdgeNOT = True diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 4d128a7..c1e4e0b 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -14687,9 +14687,9 @@ Me.Panel5.TabIndex = 92 'Label130 ' Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label130.Location = New System.Drawing.Point(361, 314) +Me.Label130.Location = New System.Drawing.Point(522, 314) Me.Label130.Name = "Label130" -Me.Label130.Size = New System.Drawing.Size(254, 54) +Me.Label130.Size = New System.Drawing.Size(132, 54) Me.Label130.TabIndex = 176 Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter @@ -14697,9 +14697,9 @@ Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter 'Label123 ' Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label123.Location = New System.Drawing.Point(81, 314) +Me.Label123.Location = New System.Drawing.Point(62, 314) Me.Label123.Name = "Label123" -Me.Label123.Size = New System.Drawing.Size(254, 54) +Me.Label123.Size = New System.Drawing.Size(132, 54) Me.Label123.TabIndex = 175 Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter @@ -14707,11 +14707,11 @@ Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter 'Label69 ' Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label69.Location = New System.Drawing.Point(35, 295) +Me.Label69.Location = New System.Drawing.Point(35, 314) Me.Label69.Name = "Label69" -Me.Label69.Size = New System.Drawing.Size(638, 22) +Me.Label69.Size = New System.Drawing.Size(638, 54) Me.Label69.TabIndex = 174 -Me.Label69.Text = "Triple Alfa" +Me.Label69.Text = "Triple Alfa"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" malaru" Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter ' 'Label113 From 76822b0eee0a44d760799c3044fc4e01da295c33 Mon Sep 17 00:00:00 2001 From: 1885 Date: Thu, 8 Jun 2017 00:32:07 -0500 Subject: [PATCH 130/143] Implemented Dariobrun changes See ReadMe Updated Assembly Version to 55.0 --- README.md | 49 +- Tease AI/Classes/ContactData.vb | 10 +- .../Classes/SessionState.StackedCallReturn.vb | 7 + Tease AI/Classes/State.vb | 26 +- Tease AI/Classes/subAnswers.vb | 39 +- Tease AI/Form1.Designer.vb | 24 - Tease AI/Form1.vb | 1530 ++++++++--------- Tease AI/Form2.Designer.vb | 100 +- Tease AI/My Project/AssemblyInfo.vb | 2 +- 9 files changed, 825 insertions(+), 962 deletions(-) diff --git a/README.md b/README.md index 190a2ed..9753c50 100644 --- a/README.md +++ b/README.md @@ -9,6 +9,26 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 55.0.0 +* Added Features: + + * Keywords (such as Vocabulary files and System Keywords) are now usable options in Multiple Choice Branch brackets (dariobrun) + + * Added "Clear" modifier for @CallReturn(). @CallReturn(Clear) will cancel any remaining CallReturns. Once the script containing @CallReturn(Clear) ends, the program will exit back to the first script that launched the stack (dariobrun) + +* Commands: + + * @SetMood() - Sets the domme's mood to the specified relative or absolute value. (dariobrun) + + * @SetMood(Best) - Sets the domme's mood to the maximum value + * @SetMood(Good) - Sets the domme's mood to a random value in her "good mood" range + * @SetMood(Neutral) - Sets the domme's mood to a random value in her "neutral mood" range + * @SetMood(Bad) - Sets the domme's mood to a random value in her "bad mood" range + * @SetMood(Worst) - Sets the domme's mood to the minimum value + + You can also set the domme's mood to a number if you would like to use your own absolute mood system for your Personality. For example, @SetMood(1), @SetMood(5), @SetMood(10), etc. + + * @DommeTagAny() - Will choose a domme image having at least one of the specified tags (dariobrun) + * Command Filters: * @ControlFlag() - If the Flag specified in @ControlFlag() exists, then ONLY those lines will be viable when filtering lines from scripts. Take this StrokeTaunts_1 script for example: @@ -23,19 +43,42 @@ Stefaf: Integration of Class myDirectory: Status ongoing. Only Contact1Present flag exists - The only viable line is "#Contact1 loves watching you stroke" Only ImageOnlyRound flag exists - The only viable line is "@ShowBlogImage" Contact1Present and ImageOnlyRound both exist - The only viable lines are "#Contact1 loves watching you stroke" and "@ShowBlogImage" - Neither Contact1Present or ImageOnlyRound exist - The only viable lines are "Keep stroking", "Keep going" and "I want you to suffer" + Neither Contact1Present or ImageOnlyRound exist - The only viable lines are "Keep stroking", "Keep going" and "I want you to suffer" + + * @Mood() - Will only display the line if the domme's mood matches the specified value (dariobrun) + + * @Mood(Best) - Will only display the line if the domme's mood is at the maximum value + * @Mood(Good) - Will only display the line if the domme's mood is within her "good mood" range + * @Mood(Neutral) - Will only display the line if the domme's mood is within her "neutral mood" range + * @Mood(Bad) - Will only display the line if the domme's mood is within her "bad mood" range + * @Mood(Worst) - Will only display the line if the domme's mood is at the minimum value + + You can also use numbers to check the domme's mood to create your own absolute mood system for your Personality. For example, @Mood(1), @Mood(4), @Mood(10), etc + * Bugfixes: * @DifferentAnswer lines were causing scripts to freeze\reset * #Var[] should now work correctly no matter how it is used or how many times per line it is used. For example, @SetVar[C]=[#Random(#Var[A], #Var[B])] - * WakeUp time was not saved until manually set by the user, causing @Morning, @Afternoon and @Night Command Filters to not work correctly + * The session would end if a CallReturn ended after being called from an End script (dariobrun) + * Response Files weren't being read correctly if there were spaces after the brackets of the various section blocks (dariobrun) + * The process that @Goto() Commands used to find similar Goto Labels when an exact match wasn't found didn't account for differences in case + * WakeUp time was not saved until manually set by the user, causing @Morning, @Afternoon and @Night Command Filters to not work correctly + * @Wait() Commands will now be processed correctly on a @NullResponse line while RapidCode is active * Edge phrases weren't being recognized if they contained apostrophes + * @ChangeVar[] didn't process negative numbers correctly. @ChangeVar[a]=[a]+[#random(-1,3)] for example, will now correctly substract 1 if -1 is rolled in the random (previously it was adding it) (dariobrun) + * Videos were not stretched to fit the window in certain situations (dariobrun) * #DomHairLength now outputs correctly * Miscellaneous: - * Experimental: Changed WMP docking style to see if it would help those who reported the video displaying in a very small area on the side of the screen + * Improved the @Goto() safety net: If there are multiple CallReturns active and it doesn't find a valid goto line, instead of interrupting everything, the program will send you back to the previous CallReturn in the stack (dariobrun) + * Multiple #Random() and @Chance() instances can now be used in the same line (dariobrun) + * @PlayVideo[] can now use the length parameter too, as @PlayVideo(): @PlayVideo[location\*, 2 minutes) (dariobrun) + * Experimental: Changed WMP docking style to see if it would help those who reported the video displaying in a very small area on the side of the screen + * Removed Contact timers for entering and leaving the room to avoid issues when RapidCode is active (1885 & dariobrun) + * Returned Statistical information to the Sub Settings menu (dariobrun) + # Changelog - Patch 54.9.0 diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index fddd611..e372a7d 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -261,7 +261,7 @@ checkFolder: Dim currPath As String If Contact = ContactType.Random And Not newFolder Then - currPath = myDirectory.GetDirectories(baseDirectory).ElementAt(New Random().Next(0, myDirectory.GetDirectories(baseDirectory).Count)) + currPath = myDirectory.GetDirectories(baseDirectory).ElementAt(Form1.ssh.randomizer.Next(0, myDirectory.GetDirectories(baseDirectory).Count)) tempBaseFolder = currPath Else currPath = baseDirectory @@ -282,7 +282,7 @@ nextSubDir: End If ' Get a random folder in base directory. - Dim rndFolder As String = subDirs(New Random().Next(0, subDirs.Count)) + Dim rndFolder As String = subDirs(Form1.ssh.randomizer.Next(0, subDirs.Count)) If RecentFolders.Contains(rndFolder) Then exclude.Add(rndFolder) @@ -411,8 +411,8 @@ nextSubDir: If My.Settings.CBSlideshowRandom Then ' get Random Image - Index = New Random().Next(0, ImageList.Count) - ElseIf My.Settings.NextImageChance < New Random().Next(0, 101) + Index = Form1.ssh.randomizer.Next(0, ImageList.Count) + ElseIf My.Settings.NextImageChance < Form1.ssh.randomizer.Next(0, 101) Then ' Randomly backwards Index -= 1 If Index < 0 Then Index = 0 @@ -530,7 +530,7 @@ SetForwardImage: 'End If 'Next If ImagePaths.TagImageList.Count <> 0 Then - rtnPath = ImagePaths.TagImageList.ElementAt(New Random().Next(0, ImagePaths.TagImageList.Count)) + rtnPath = ImagePaths.TagImageList.ElementAt(Form1.ssh.randomizer.Next(0, ImagePaths.TagImageList.Count)) Else rtnPath = ImagePaths.LastPicked End If diff --git a/Tease AI/Classes/SessionState.StackedCallReturn.vb b/Tease AI/Classes/SessionState.StackedCallReturn.vb index 1087350..af77683 100644 --- a/Tease AI/Classes/SessionState.StackedCallReturn.vb +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -13,6 +13,9 @@ 'when it reaches the end of a link/beforeScript) Dim isALink As Boolean + 'store the rapidcode status so we can resume it when coming back if the script was in this mode + Dim rapidText, rapidCode As Boolean + 'store all the modes variables so we can reset them on coming back Dim edgeMode, ruinMode, cameMode, yesMode, noMode As New Mode() Dim customModes As New Dictionary(Of String, Mode) @@ -28,6 +31,8 @@ customModes = session.Modes showingModule = session.ShowModule isALink = session.isLink + rapidCode = session.RapidCode + rapidText = session.RapidFire End Sub Sub resumeState() Session.StrokeTauntVal = Line @@ -44,6 +49,8 @@ Session.Modes = customModes Session.ShowModule = showingModule Session.isLink = isALink + Session.RapidCode = rapidCode + Session.RapidFire = rapidText End Sub End Class End Class \ No newline at end of file diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 1e4c556..9f4246e 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -108,6 +108,7 @@ Public Class SessionState Public Property TaskText As String Public Property TaskTextDir As String + Public Property tempResponseLine As Integer Public Property nameErrors As Integer = 0 Public Property wrongAttempt As Boolean @@ -349,8 +350,7 @@ Public Class SessionState Public Property BookmarkLinkFile As String Public Property BookmarkLinkLine As Integer - Public Property WaitTick As Integer - + Public Property WaitTick As Integer = -1 @@ -420,6 +420,7 @@ Public Class SessionState Public Property Contact1Edge As Boolean Public Property Contact2Edge As Boolean Public Property Contact3Edge As Boolean + Public Property ContactRoomUpdate As String = "" Public Property Contact1Stroke As Boolean Public Property Contact2Stroke As Boolean @@ -583,7 +584,8 @@ Public Class SessionState Public Property SecondSession As Boolean Public Property checkAnswers As subAnswers - + Public Property addAnswerList As Boolean + Public Property addResponseList As Boolean ''' ''' Set to true if the sub is on the edge and the domme had decided to not to stop stroking. @@ -709,8 +711,7 @@ Public Class SessionState Friend Files As New FileClass(Me) Friend Folders As New FoldersClass(Me) - - Dim ActivationForm As Form1 + Dim ActivationForm As Form1 #Region "------------------------------------- Constructors----------------------------------------------" @@ -897,9 +898,6 @@ Public Class SessionState AvoidTheEdgeResume_enabled = .AvoidTheEdgeResume.Enabled AvoidTheEdgeTaunts_enabled = .AvoidTheEdgeTaunts.Enabled CensorshipTimer_enabled = .CensorshipTimer.Enabled - Contact1Timer_enabled = .Contact1Timer.Enabled - Contact2Timer_enabled = .Contact2Timer.Enabled - Contact3Timer_enabled = .Contact3Timer.Enabled CustomSlideshowTimer_enabled = .CustomSlideshowTimer.Enabled EdgeCountTimer_enabled = .EdgeCountTimer.Enabled EdgeTauntTimer_enabled = .EdgeTauntTimer.Enabled @@ -929,9 +927,6 @@ Public Class SessionState AvoidTheEdgeResume_Interval = .AvoidTheEdgeResume.Interval AvoidTheEdgeTaunts_Interval = .AvoidTheEdgeTaunts.Interval CensorshipTimer_Interval = .CensorshipTimer.Interval - Contact1Timer_Interval = .Contact1Timer.Interval - Contact2Timer_Interval = .Contact2Timer.Interval - Contact3Timer_Interval = .Contact3Timer.Interval CustomSlideshowTimer_Interval = .CustomSlideshowTimer.Interval EdgeCountTimer_Interval = .EdgeCountTimer.Interval EdgeTauntTimer_Interval = .EdgeTauntTimer.Interval @@ -1037,9 +1032,6 @@ Public Class SessionState .AvoidTheEdgeResume.Enabled = False .AvoidTheEdgeTaunts.Enabled = False .CensorshipTimer.Enabled = False - .Contact1Timer.Enabled = False - .Contact2Timer.Enabled = False - .Contact3Timer.Enabled = False .CustomSlideshowTimer.Enabled = False .EdgeCountTimer.Enabled = False .EdgeTauntTimer.Enabled = False @@ -1195,9 +1187,6 @@ Public Class SessionState .AvoidTheEdgeResume.Interval = AvoidTheEdgeResume_Interval .AvoidTheEdgeTaunts.Interval = AvoidTheEdgeTaunts_Interval .CensorshipTimer.Interval = CensorshipTimer_Interval - .Contact1Timer.Interval = Contact1Timer_Interval - .Contact2Timer.Interval = Contact2Timer_Interval - .Contact3Timer.Interval = Contact3Timer_Interval .CustomSlideshowTimer.Interval = CustomSlideshowTimer_Interval .EdgeCountTimer.Interval = EdgeCountTimer_Interval .EdgeTauntTimer.Interval = EdgeTauntTimer_Interval @@ -1228,9 +1217,6 @@ Public Class SessionState .AvoidTheEdgeResume.Enabled = AvoidTheEdgeResume_enabled .AvoidTheEdgeTaunts.Enabled = AvoidTheEdgeTaunts_enabled .CensorshipTimer.Enabled = CensorshipTimer_enabled - .Contact1Timer.Enabled = Contact1Timer_enabled - .Contact2Timer.Enabled = Contact2Timer_enabled - .Contact3Timer.Enabled = Contact3Timer_enabled .CustomSlideshowTimer.Enabled = CustomSlideshowTimer_enabled .EdgeCountTimer.Enabled = EdgeCountTimer_enabled .EdgeTauntTimer.Enabled = EdgeTauntTimer_enabled diff --git a/Tease AI/Classes/subAnswers.vb b/Tease AI/Classes/subAnswers.vb index eb2ec96..9bedde4 100644 --- a/Tease AI/Classes/subAnswers.vb +++ b/Tease AI/Classes/subAnswers.vb @@ -11,8 +11,8 @@ Public Class subAnswers checkList.Add(My.Settings.SubYes) checkList.Add(My.Settings.SubNo) checkList.Add(My.Settings.SubSorry) - checkList.Add("please") checkList.Add("thank,thanks") + checkList.Add("please") End Sub Public Function returnWords(s As String) As String @@ -26,9 +26,9 @@ Public Class subAnswers Case "sorry" Return checkList.Item(3) Case "thanks" - Return checkList.Item(5) - Case "please" Return checkList.Item(4) + Case "please" + Return checkList.Item(5) Case Else Return checkList.Item(0) End Select @@ -38,20 +38,41 @@ Public Class subAnswers Return checkList End Function - Public Function isSystemWord(ByVal wordList As String) As Boolean + Public Function returnAnswerList() As List(Of String) + Return answerList + End Function + + Public Function returnSystemWord(ByVal wordList As String) As String For i As Integer = 0 To checkList.Count() - 1 Dim list As String() = ssh.obtainSplitParts(checkList(i), False) For n As Integer = 0 To list.Count - 1 - If UCase(wordList).Contains(UCase(list(n))) Then Return True + If Trim(UCase(wordList)) = Trim((UCase(list(n)))) Then + Select i + Case 0 + Return "hi" + Case 1 + Return "yes" + Case 2 + Return "no" + Case 3 + Return "sorry" + Case 4 + Return "thanks" + Case 5 + Return "please" + Case Else + Return "hi" + End Select + End If Next Next - Return False + Return "" End Function Public Sub addToAnswerList(ByVal words As String) Dim split() = words.Split(",") For i As Integer = 0 To split.Count - 1 - answerList.Add(split(i)) + answerList.Add(Trim(split(i))) Next End Sub @@ -68,7 +89,7 @@ Public Class subAnswers 'we then check only the answers with more than 1 word to see if the chat strings contain any of them For i As Integer = 0 To sorted.Count - 1 - If InStr(sorted(i), " ") > 0 Then If chatstring.Contains(sorted(i).Trim) Then Return sorted(i).Trim + If InStr(sorted(i), " ") > 0 Then If LCase(chatstring).Contains(LCase(sorted(i)).Trim) Then Return sorted(i).Trim Next 'if all multiple words answers didn't return an answer, we check for the single words in the chat to see if any of them matches @@ -76,7 +97,7 @@ Public Class subAnswers Dim singleWords() = ssh.obtainSplitParts(chatstring, True) For i As Integer = 0 To singleWords.Count - 1 For n As Integer = 0 To answerList.Count - 1 - If UCase(answerList(n)) = UCase(singleWords(i)) Then Return singleWords(i) + If LCase(answerList(n)) = LCase(singleWords(i)) Then Return singleWords(i) Next Next Return "" diff --git a/Tease AI/Form1.Designer.vb b/Tease AI/Form1.Designer.vb index e24bd2c..cbc0451 100644 --- a/Tease AI/Form1.Designer.vb +++ b/Tease AI/Form1.Designer.vb @@ -399,12 +399,8 @@ Partial Class Form1 Me.RLGLTauntTimer = New Tease_AI.teaseAI_Timer() Me.AvoidTheEdgeTaunts = New Tease_AI.teaseAI_Timer() Me.CustomSlideshowTimer = New Tease_AI.teaseAI_Timer() - Me.Contact1Timer = New Tease_AI.teaseAI_Timer() - Me.Contact2Timer = New Tease_AI.teaseAI_Timer() - Me.Contact3Timer = New Tease_AI.teaseAI_Timer() Me.UpdateStageTimer = New Tease_AI.teaseAI_Timer() Me.WMPTimer = New Tease_AI.teaseAI_Timer() - Me.DommeTimer = New Tease_AI.teaseAI_Timer() Me.TeaseAIClock = New Tease_AI.teaseAI_Timer() Me.TimeoutTimer = New Tease_AI.teaseAI_Timer() Me.VideoTimer = New Tease_AI.teaseAI_Timer() @@ -4335,18 +4331,6 @@ Partial Class Form1 ' Me.CustomSlideshowTimer.Interval = 1000 ' - 'Contact1Timer - ' - Me.Contact1Timer.Interval = 1000 - ' - 'Contact2Timer - ' - Me.Contact2Timer.Interval = 1000 - ' - 'Contact3Timer - ' - Me.Contact3Timer.Interval = 1000 - ' 'UpdateStageTimer ' Me.UpdateStageTimer.Interval = 1000 @@ -4355,10 +4339,6 @@ Partial Class Form1 ' Me.WMPTimer.Interval = 1000 ' - 'DommeTimer - ' - Me.DommeTimer.Interval = 1000 - ' 'TeaseAIClock ' Me.TeaseAIClock.Interval = 1000 @@ -4525,9 +4505,6 @@ Partial Class Form1 Friend WithEvents StatusUpdates As System.Windows.Forms.WebBrowser Friend WithEvents PicStripTSMIcopyImageLocation As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CustomSlideshowTimer As Tease_AI.teaseAI_Timer - Friend WithEvents Contact1Timer As Tease_AI.teaseAI_Timer - Friend WithEvents Contact2Timer As Tease_AI.teaseAI_Timer - Friend WithEvents Contact3Timer As Tease_AI.teaseAI_Timer Friend WithEvents UpdateStageTimer As Tease_AI.teaseAI_Timer Friend WithEvents WMPTimer As Tease_AI.teaseAI_Timer Friend WithEvents TeaseAINotify As System.Windows.Forms.NotifyIcon @@ -4545,7 +4522,6 @@ Partial Class Form1 Friend WithEvents BugReportThreadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents WebteasesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AllAndEverythingToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents DommeTimer As Tease_AI.teaseAI_Timer Friend WithEvents PNLMediaBar As System.Windows.Forms.Panel Friend WithEvents TeaseAIClock As Tease_AI.teaseAI_Timer Friend WithEvents LBLTime As System.Windows.Forms.Label diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 317f005..186cec9 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -140,7 +140,7 @@ Public Class Form1 End Function Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, - ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer + ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer @@ -277,9 +277,9 @@ retryStart: Dim tv As Version = My.Application.Info.Version Me.Text = String.Format("Tease A.I. - PATCH {0}.{1}{2}", - tv.Minor, - tv.Build, - If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) + tv.Minor, + tv.Build, + If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) FormLoading = True @@ -1465,21 +1465,6 @@ retryStart: For Each TaskFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Tasks\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") TaskList.Add(TaskFile) Next - ' github patch begin - 'If TaskList.Count > 0 Then - 'BeforeTease = True - 'SaidHello = True - 'SubEdging = False - 'SubHoldingEdge = False - 'FileText = TaskList(randomizer.Next(0, TaskList.Count)) - 'LockImage = False - 'StrokeTauntVal = -1 - 'ScriptTick = 3 - 'ScriptTimer.Start() - 'ShowModule = False - 'Else - 'MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Start Tasks!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - 'github patch end If TaskList.Count > 0 Then If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then @@ -1506,169 +1491,110 @@ retryStart: Return End If + Debug.Print("CHeck") - - - Dim TempGreeting As String = FrmSettings.TBGreeting.Text - TempGreeting = "[" & TempGreeting & "] Null" - Dim Splits As String() = TempGreeting.Split(New Char() {"]"c}) - Splits(0) = Splits(0).Replace("[", "") - - Do - Splits(0) = Splits(0).Replace(" ", " ") - Splits(0) = Splits(0).Replace(" ,", ",") - Splits(0) = Splits(0).Replace(", ", ",") - Splits(0) = Splits(0).Replace("'", "") - Loop Until Not Splits(0).Contains(" ") And Not Splits(0).Contains(", ") And Not Splits(0).Contains(" ,") And Not Splits(0).Contains("'") - - Dim SplitParts As String() = Splits(0).Split(New Char() {","c}) - - For i As Integer = 0 To SplitParts.Length - 1 - - If UCase(ssh.ChatString).Contains(UCase(SplitParts(i))) Then - - - If FrmSettings.CBHonorificInclude.Checked = True Then - - If WordExists(UCase(ssh.ChatString), UCase(ssh.tempHonorific)) = False Then - - 'If InStr(UCase(ChatString), (UCase(FrmSettings.TBHonorific.Text))) = 0 Then - 'If Not UCase(ChatString).Contains(UCase(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " #SYS_MissingHonorific" - If FrmSettings.LCaseCheckBox.Checked = False Then - Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) - ssh.DomChat = ssh.DomChat.Remove(0, 1) - ssh.DomChat = DomU & ssh.DomChat - ssh.nameErrors += 1 - ssh.wrongAttempt = True - End If - TypingDelay() - Return - End If - - - - If FrmSettings.CBHonorificCapitalized.Checked = True Then - If WordExists(ssh.ChatString, Capitalize(ssh.tempHonorific)) = False Then - 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat = "#SYS_CapitalizeHonorific" - ssh.nameErrors += 1 - ssh.wrongAttempt = True - TypingDelay() - Return - End If - End If - End If - - Debug.Print("CHeck") - - If checkSubAnswer("hi") = 1 Then - Debug.Print("CHeck") - ssh.justStarted = True - ssh.SaidHello = True - ssh.BeforeTease = True + If checkSubAnswer("hi") = 1 Then + Debug.Print("CHeck") + ssh.justStarted = True + ssh.SaidHello = True + ssh.BeforeTease = True - If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else + Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - End If + End If - TeaseTimer.Start() + TeaseTimer.Start() - ' Lock Orgasm Chances if setting is activated. - If My.Settings.LockOrgasmChances Then _ - FrmSettings.LockOrgasmChances(True) + ' Lock Orgasm Chances if setting is activated. + If My.Settings.LockOrgasmChances Then _ + FrmSettings.LockOrgasmChances(True) - If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistStartFile + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistStartFile - If ssh.Playlist = False Or ssh.PlaylistFile(0).Contains("Random Start") Then + If ssh.Playlist = False Or ssh.PlaylistFile(0).Contains("Random Start") Then NoPlaylistStartFile: - Dim StartList As New List(Of String) - StartList.Clear() - - Dim ChastityStartCheck As String - If My.Settings.Chastity = True Then - ChastityStartCheck = "*_CHASTITY.txt" - Else - ChastityStartCheck = "*.txt" - End If - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\", FileIO.SearchOption.SearchTopLevelOnly, ChastityStartCheck) - Dim TempStart As String = foundFile - TempStart = TempStart.Replace(".txt", "") - Do Until Not TempStart.Contains("\") - TempStart = TempStart.Remove(0, 1) - Loop - For x As Integer = 0 To FrmSettings.CLBStartList.Items.Count - 1 - If My.Settings.Chastity = True Then - If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True Then - StartList.Add(foundFile) - End If - Else - If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True And Not TempStart.Contains("_CHASTITY") Then - StartList.Add(foundFile) - End If - End If + Dim StartList As New List(Of String) + StartList.Clear() - Next - Next + Dim ChastityStartCheck As String + If My.Settings.Chastity = True Then + ChastityStartCheck = "*_CHASTITY.txt" + Else + ChastityStartCheck = "*.txt" + End If - If StartList.Count < 1 Then - If My.Settings.Chastity = True Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start_CHASTITY.txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start.txt" + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\", FileIO.SearchOption.SearchTopLevelOnly, ChastityStartCheck) + Dim TempStart As String = foundFile + TempStart = TempStart.Replace(".txt", "") + Do Until Not TempStart.Contains("\") + TempStart = TempStart.Remove(0, 1) + Loop + For x As Integer = 0 To FrmSettings.CLBStartList.Items.Count - 1 + If My.Settings.Chastity = True Then + If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True Then + StartList.Add(foundFile) End If Else - ssh.FileText = StartList(ssh.randomizer.Next(0, StartList.Count)) + If FrmSettings.CLBStartList.Items(x) = TempStart And FrmSettings.CLBStartList.GetItemChecked(x) = True And Not TempStart.Contains("_CHASTITY") Then + StartList.Add(foundFile) + End If End If - Else - Debug.Print("Start situation found") - If ssh.PlaylistFile(0).Contains("Regular-TeaseAI-Script") Then - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\" & ssh.PlaylistFile(0) - ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") - ssh.FileText = ssh.FileText & ".txt" - Else - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Start\" & ssh.PlaylistFile(0) & ".txt" - End If - End If - - If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 - ssh.LastScriptCountdown = ssh.randomizer.Next(3, 5 * FrmSettings.domlevelNumBox.Value) + Next + Next - If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then - If FrmSettings.CBRandomDomme.Checked = True Then ssh.glitterDommeNumber = 4 - LoadDommeImageFolder() + If StartList.Count < 1 Then + If My.Settings.Chastity = True Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start_CHASTITY.txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Scripts\Start.txt" End If + Else + ssh.FileText = StartList(ssh.randomizer.Next(0, StartList.Count)) + End If + Else + Debug.Print("Start situation found") + If ssh.PlaylistFile(0).Contains("Regular-TeaseAI-Script") Then + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Stroke\Start\" & ssh.PlaylistFile(0) + ssh.FileText = ssh.FileText.Replace(" Regular-TeaseAI-Script", "") + ssh.FileText = ssh.FileText & ".txt" + Else + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Playlist\Start\" & ssh.PlaylistFile(0) & ".txt" + End If + End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - + If ssh.Playlist = True Then ssh.PlaylistCurrent += 1 + ssh.LastScriptCountdown = ssh.randomizer.Next(3, 5 * FrmSettings.domlevelNumBox.Value) - End If + If Directory.Exists(My.Settings.DomImageDir) And ssh.SlideshowLoaded = False Then + If FrmSettings.CBRandomDomme.Checked = True Then ssh.glitterDommeNumber = 4 + LoadDommeImageFolder() End If - Next + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + + End If End If @@ -1722,7 +1648,7 @@ WritingTaskLine: ssh.Chat = "" & ssh.Chat & "" If CBWritingProgress.Checked = True Then ssh.Chat = "" & ssh.Chat & ssh.ChatString & "
 " _ - & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" + & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining", "Time Expired") ssh.Chat = ssh.Chat.Replace(" 1 lines", " 1 line") ssh.Chat = ssh.Chat.Replace(" 0 lines remaining", " Task Completed") @@ -1983,9 +1909,9 @@ WritingTaskLine: Debug.Print("EdgeFOund = ATE") AvoidTheEdgeTaunts.Stop() - ssh.AvoidTheEdgeStroking = False ssh.VideoTease = False + SetVariable("SYS_EdgeTotal", Val(GetVariable("SYS_EdgeTotal") + 1)) Dim ATEList As New List(Of String) @@ -2041,12 +1967,12 @@ WritingTaskLine: End If - If ssh.SubStroking = True Then + If ssh.AlreadyStrokingEdge = True Then ssh.AvgEdgeCount += 1 If ssh.AvgEdgeStroking = 0 Then ssh.AvgEdgeStroking = ssh.EdgeCountTick Else - ssh.AvgEdgeStroking = (ssh.AvgEdgeStroking + ssh.EdgeCountTick) / ssh.AvgEdgeCount + ssh.AvgEdgeStroking = ssh.AvgEdgeStroking + ssh.EdgeCountTick End If My.Settings.AvgEdgeStroking = ssh.AvgEdgeStroking My.Settings.AvgEdgeCount = ssh.AvgEdgeCount @@ -2055,7 +1981,7 @@ WritingTaskLine: If ssh.AvgEdgeNoTouch = 0 Then ssh.AvgEdgeNoTouch = ssh.EdgeCountTick Else - ssh.AvgEdgeNoTouch = (ssh.AvgEdgeNoTouch + ssh.EdgeCountTick) / ssh.AvgEdgeCountRest + ssh.AvgEdgeNoTouch = ssh.AvgEdgeNoTouch + ssh.EdgeCountTick End If My.Settings.AvgEdgeNoTouch = ssh.AvgEdgeNoTouch My.Settings.AvgEdgeCountRest = ssh.AvgEdgeCountRest @@ -2064,7 +1990,7 @@ WritingTaskLine: If My.Settings.AvgEdgeCount > 4 Then ssh.AvgEdgeStroking = My.Settings.AvgEdgeStroking - Dim TS1 As TimeSpan = TimeSpan.FromSeconds(ssh.AvgEdgeStroking) + Dim TS1 As TimeSpan = TimeSpan.FromSeconds(ssh.AvgEdgeStroking / ssh.AvgEdgeCount) FrmSettings.LBLAvgEdgeStroking.Text = String.Format("{0:00}:{1:00}", TS1.Minutes, TS1.Seconds) Else FrmSettings.LBLAvgEdgeStroking.Text = "WAIT" @@ -2072,7 +1998,7 @@ WritingTaskLine: If My.Settings.AvgEdgeCountRest > 4 Then ssh.AvgEdgeNoTouch = My.Settings.AvgEdgeNoTouch - Dim TS2 As TimeSpan = TimeSpan.FromSeconds(ssh.AvgEdgeNoTouch) + Dim TS2 As TimeSpan = TimeSpan.FromSeconds(ssh.AvgEdgeNoTouch / ssh.AvgEdgeCountRest) FrmSettings.LBLAvgEdgeNoTouch.Text = String.Format("{0:00}:{1:00}", TS2.Minutes, TS2.Seconds) Else FrmSettings.LBLAvgEdgeNoTouch.Text = "WAIT" @@ -2588,7 +2514,7 @@ DebugAwareness: If ssh.YesOrNo = True And ssh.SubEdging = True Then GoTo EdgeSkip If ssh.YesOrNo = True And ssh.SubHoldingEdge = True Then GoTo EdgeSkip - If ssh.YesOrNo = True And ssh.OrgasmYesNo = False And ssh.DomTypeCheck = False And ssh.TasksCount <= 0 Then + If ssh.YesOrNo = True And ssh.OrgasmYesNo = False And ssh.DomTypeCheck = False Then 'And ssh.TasksCount <= 0 Then YesOrNoQuestions() Return End If @@ -2636,8 +2562,6 @@ EdgeSkip: - - 'If BeforeTease = True And CBDebugAwareness.Checked = False Then Return Dim CheckResponse As String = UCase(ssh.ChatString) @@ -2653,23 +2577,7 @@ EdgeSkip: ' If Not CheckResponse = UCase("fucking") Then CheckResponse = CheckResponse.Replace(UCase("fucking"), "") ' If Not CheckResponse = UCase("fuckin") Then CheckResponse = CheckResponse.Replace(UCase("fuckin"), "") - - Try - If CheckResponse.Substring(0, 1) = " " Then - Do Until CheckResponse.Substring(0, 1) <> " " - CheckResponse = CheckResponse.Remove(0, 1) - Loop - End If - Catch - End Try - Try - If CheckResponse.Substring(CheckResponse.Length - 1) = " " Then - Do Until CheckResponse.Substring(CheckResponse.Length - 1) <> " " - CheckResponse = CheckResponse.Remove(CheckResponse.Length - 1) - Loop - End If - Catch - End Try + CheckResponse = Trim(CheckResponse) If UCase(CheckResponse) = UCase("CAME") Or UCase(CheckResponse) = UCase("I CAME") Then If ssh.cameMode.GotoMode = True Then @@ -2809,15 +2717,6 @@ EdgeSkip: If ssh.ResponseYes <> "" And File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\" & ssh.ResponseYes & ".txt") Then - 'Dim YesSplit As String = FrmSettings.TBYes.Text - - 'Do - 'YesSplit = YesSplit.Replace(" ", " ") - 'YesSplit = YesSplit.Replace(" ,", ",") - 'YesSplit = YesSplit.Replace(", ", ",") - 'YesSplit = YesSplit.Replace("'", "") - 'Loop Until Not YesSplit.Contains(" ") And Not YesSplit.Contains(", ") And Not YesSplit.Contains(" ,") And Not YesSplit.Contains("'") - Dim SplitParts As String() = YesSplit.Split(New Char() {","c}) For i As Integer = 0 To SplitParts.Length - 1 @@ -3259,13 +3158,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[Before Tease]" Then + If Trim(DRLines(DRLineTotal)) = "[Before Tease]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[Before Tease End]" Then + If Trim(DRLines(DRLineTotal)) = "[Before Tease End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[Before Tease]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Before Tease]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3278,13 +3177,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[Chastity]" Then + If Trim(DRLines(DRLineTotal)) = "[Chastity]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[Chastity End]" Then + If Trim(DRLines(DRLineTotal)) = "[Chastity End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[Chastity]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Chastity]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3296,13 +3195,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[First Round]" Then + If Trim(DRLines(DRLineTotal)) = "[First Round]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[First Round End]" Then + If Trim(DRLines(DRLineTotal)) = "[First Round End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[First Round]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[First Round]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3314,13 +3213,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[Stroking]" Then + If Trim(DRLines(DRLineTotal)) = "[Stroking]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[Stroking End]" Then + If Trim(DRLines(DRLineTotal)) = "[Stroking End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[Stroking]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Stroking]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3332,13 +3231,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[Not Stroking]" Then + If Trim(DRLines(DRLineTotal)) = "[Not Stroking]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[Not Stroking End]" Then + If Trim(DRLines(DRLineTotal)) = "[Not Stroking End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[Not Stroking]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Not Stroking]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3350,13 +3249,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[Edging]" Then + If Trim(DRLines(DRLineTotal)) = "[Edging]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[Edging End]" Then + If Trim(DRLines(DRLineTotal)) = "[Edging End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[Edging]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Edging]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3368,13 +3267,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[Holding The Edge]" Then + If Trim(DRLines(DRLineTotal)) = "[Holding The Edge]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[Holding The Edge End]" Then + If Trim(DRLines(DRLineTotal)) = "[Holding The Edge End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[Holding The Edge]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Holding The Edge]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3386,13 +3285,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[CBT Cock]" Then + If Trim(DRLines(DRLineTotal)) = "[CBT Cock]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[CBT Cock End]" Then + If Trim(DRLines(DRLineTotal)) = "[CBT Cock End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[CBT Cock]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[CBT Cock]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3404,13 +3303,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[CBT Balls]" Then + If Trim(DRLines(DRLineTotal)) = "[CBT Balls]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[CBT Balls End]" Then + If Trim(DRLines(DRLineTotal)) = "[CBT Balls End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[CBT Balls]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[CBT Balls]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3422,13 +3321,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[After Tease]" Then + If Trim(DRLines(DRLineTotal)) = "[After Tease]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[After Tease End]" Then + If Trim(DRLines(DRLineTotal)) = "[After Tease End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[After Tease]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[After Tease]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3440,13 +3339,13 @@ FoundState: While DomResponse.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[All]" Then + If Trim(DRLines(DRLineTotal)) = "[All]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[All End]" Then + If Trim(DRLines(DRLineTotal)) = "[All End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[All]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[All]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3465,13 +3364,13 @@ FoundState: While DomResponseAll.Peek <> -1 DRLineTotal += 1 DRLines.Add(DomResponseAll.ReadLine()) - If DRLines(DRLineTotal) = "[All]" Then + If Trim(DRLines(DRLineTotal)) = "[All]" Then AddResponse = True End If - If DRLines(DRLineTotal) = "[All End]" Then + If Trim(DRLines(DRLineTotal)) = "[All End]" Then AddResponse = False End If - If AddResponse = False Or DRLines(DRLineTotal) = "[All]" Then + If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[All]" Then DRLines.Remove(DRLines(DRLineTotal)) DRLineTotal -= 1 End If @@ -3494,7 +3393,7 @@ FoundState: CleanResponse = DRLines(ssh.ResponseLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Response line from file: " & - ssh.ResponseFile, ex, "ReponseClean(String)") + ssh.ResponseFile, ex, "ReponseClean(String)") CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile End Try @@ -3523,9 +3422,7 @@ NullSkip: Public Sub YesOrNoQuestions() - Dim TempChatString As String - TempChatString = UCase(ssh.ChatString) If ssh.CBT = True Then @@ -3550,22 +3447,18 @@ NullSkip: line = ssh.StrokeTauntVal - Dim TempLineVal As Integer - - 'if we already populated the answer list we do not need to do it again - 'If ssh.checkAnswers.answerNumber = 0 Then + ssh.tempResponseLine = -1 + ssh.checkAnswers.clearAnswers() Do line += 1 Debug.Print("YESNO Line = " & lines(line)) - If Not UCase(lines(line)).Contains("@DIFFERENTANSWER") And Not UCase(lines(line)).Contains("@ACCEPTANSWER") Then - Dim getWords As String = GetParentheses(lines(line), "[") - ssh.checkAnswers.addToAnswerList(getWords) - End If - - Loop Until InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 - 'End If - - TempLineVal = line + Dim getWords As String = GetParentheses(lines(line), "[") + ssh.addAnswerList = True + getWords = PoundClean(getWords) + ssh.addAnswerList = False + ssh.checkAnswers.addToAnswerList(getWords) + Loop Until InStr(UCase(lines(line + 1)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line + 1)), UCase("@DifferentAnswer")) <> 0 + ssh.tempResponseLine = line + 1 line = ssh.StrokeTauntVal Dim CheckLines As String @@ -3585,25 +3478,19 @@ NullSkip: Dim Splits As String() = CheckLines.Split(New Char() {"]"c}) Splits(0) = Splits(0).Replace("[", "") ChatReplace = CheckLines.Replace("[" & Splits(0) & "]", "") + ssh.addResponseList = True + Splits(0) = PoundClean(Splits(0)) + ssh.addResponseList = False 'we check to see if what the user wrote contains one of the keywords for the different yes/no/etc responses 'this is useful if the script contains something like [yes,maybe] as an answer option 'if the user write maybe then it will not need to use the honorific but if he writes yes, instead, it will check the honorific - If Not ssh.checkAnswers.isSystemWord(triggerWord) And Splits(0).Contains(triggerWord) Then - checkResult = checkSubAnswer(Splits(0)) - Else - If UCase(CheckLines).Contains(UCase("[yes")) Or UCase(CheckLines).Contains(UCase("yes]")) Then - checkResult = checkSubAnswer("yes") - ElseIf UCase(CheckLines).Contains(UCase("[no")) Or UCase(CheckLines).Contains(UCase("no]")) Then - checkResult = checkSubAnswer("no") - ElseIf UCase(CheckLines).Contains(UCase("[hi")) Or UCase(CheckLines).Contains(UCase("hi]")) Or UCase(CheckLines).Contains(UCase("[hello")) Or UCase(CheckLines).Contains(UCase("hello]")) Then - checkResult = checkSubAnswer("hi") - ElseIf UCase(CheckLines).Contains(UCase("[sorry")) Or UCase(CheckLines).Contains(UCase("sorry]")) Then - checkResult = checkSubAnswer("sorry") - ElseIf UCase(CheckLines).Contains(UCase("[thank")) Or UCase(CheckLines).Contains(UCase("thank ")) Then - checkResult = checkSubAnswer("thanks") - ElseIf UCase(CheckLines).Contains(UCase("[please")) Or UCase(CheckLines).Contains(UCase("please]")) Then - checkResult = checkSubAnswer("please") + If LCase(Splits(0)).Contains(LCase(triggerWord)) Then + Dim checkFor As String = ssh.checkAnswers.returnSystemWord(triggerWord) + If checkFor = "" Then + checkResult = checkSubAnswer(Splits(0)) + Else + checkResult = checkSubAnswer(checkFor) End If End If @@ -3614,17 +3501,16 @@ NullSkip: Return End If - Loop Until InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 + Loop Until InStr(UCase(lines(line + 1)), UCase("@DifferentAnswer")) <> 0 Or InStr(UCase(lines(line + 1)), UCase("@AcceptAnswer")) <> 0 End If GoTo NothingFound FoundAnswer: - updateDommeName(ChatReplace) + 'updateDommeName(ChatReplace) ssh.DomChat = ChatReplace 'we clear the answer list - ssh.checkAnswers.clearAnswers() If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True If ssh.DomChat.Contains("@LoopAnswer") Then GoTo LoopAnswer @@ -3632,7 +3518,7 @@ FoundAnswer: YesOrNoLanguageCheck() - If ssh.GotoFlag = False Then ssh.StrokeTauntVal = TempLineVal + If ssh.GotoFlag = False Then ssh.StrokeTauntVal = ssh.tempResponseLine TypingDelay() @@ -3644,10 +3530,10 @@ NothingFound: checkForPunish() Return End If - If InStr(UCase(lines(TempLineVal)), UCase("DifferentAnswer")) <> 0 Then + If InStr(UCase(lines(ssh.tempResponseLine)), UCase("DifferentAnswer")) <> 0 Then DifferentAnswer: - ssh.DomChat = lines(TempLineVal) + ssh.DomChat = lines(ssh.tempResponseLine) ssh.DomChat = ssh.DomChat.Replace("@DifferentAnswer ", "") LoopAnswer: @@ -3658,22 +3544,20 @@ LoopAnswer: End If - If InStr(UCase(lines(TempLineVal)), UCase("AcceptAnswer")) <> 0 Then + If InStr(UCase(lines(ssh.tempResponseLine)), UCase("AcceptAnswer")) <> 0 Then AcceptAnswer: 'ssh.DomChat = lines(line) - ssh.DomChat = lines(TempLineVal) + ssh.DomChat = lines(ssh.tempResponseLine) ' TimedAnswerTimer.Stop() - 'we clear the answer list - ssh.checkAnswers.clearAnswers() ssh.DomChat = ssh.DomChat.Replace("@AcceptAnswer ", "") ScriptTimer.Start() ssh.YesOrNo = False YesOrNoLanguageCheck() - If ssh.GotoFlag = False Then ssh.StrokeTauntVal = TempLineVal + If ssh.GotoFlag = False Then ssh.StrokeTauntVal = ssh.tempResponseLine TypingDelay() Return End If @@ -3737,7 +3621,7 @@ AcceptAnswer: ' ArgumentOutOfRangeException - Regular Script '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Throw New ArgumentOutOfRangeException("The Goto-Destination """ & ssh.FileGoto & - """ in file """ & GotoText & """ was not found.", ex) + """ in file """ & GotoText & """ was not found.", ex) End Try ssh.StrokeTauntVal = gotoline @@ -3754,7 +3638,7 @@ AcceptAnswer: Public Sub ScriptTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScriptTimer.Tick FrmSettings.LBLDebugScriptTime.Text = ssh.ScriptTick - 'Debug.Print("ScriptTick = " & ScriptTick) + 'Debug.Print("ScriptTick = " & ssh.ScriptTick) If ssh.DomTyping = True Then Return If ssh.YesOrNo = True Then Return @@ -3813,7 +3697,7 @@ AcceptAnswer: ssh.DomTask = BallList(ssh.randomizer.Next(0, BallList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTBalls line from file: " & - File2Read, ex, "CBTBalls()") + File2Read, ex, "CBTBalls()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read End Try @@ -3841,7 +3725,7 @@ AcceptAnswer: ssh.DomTask = CockList(ssh.randomizer.Next(0, CockList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTCock line from file: " & - File2Read, ex, "CBTCock()") + File2Read, ex, "CBTCock()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read End Try @@ -3882,7 +3766,7 @@ AcceptAnswer: ssh.DomTask = BothList(ssh.randomizer.Next(0, BothList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBT line from file: " & - File2Read, ex, "CBTBoth()") + File2Read, ex, "CBTBoth()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read End Try @@ -3945,8 +3829,6 @@ AcceptAnswer: 'Debug.Print("RunFileText " & StrokeTauntVal) -ReturnCalled: - Dim lines As New List(Of String) ssh.StrokeTauntVal += 1 @@ -4074,6 +3956,10 @@ ModuleEnd: If lines(line) = "@End" Or ssh.StrokeTauntVal > lines.Count Then NonModuleEnd: + If ssh.CallReturns.Count() > 0 Then + handleCallReturn() + If ssh.ShowModule Then Return + End If If ssh.RiskyEdges = True Then ssh.RiskyEdges = False If ssh.LastScript = True Then @@ -4102,11 +3988,6 @@ NonModuleEnd: BTNHypnoGenStart.Text = "Guide Me!" End If - - If ssh.CallReturns.Count() > 0 Then - handleCallReturn() - If ssh.ShowModule Then Return - End If ScriptTimer.Stop() Return End If @@ -4432,7 +4313,7 @@ NonModuleEnd: Public Sub GetGoto() Dim ReplaceGoto As String = "" - Dim ReplaceX As Integer = 1 + Dim ReplaceX As Integer = 0 ssh.GotoFlag = True @@ -4458,20 +4339,20 @@ NonModuleEnd: ssh.FileGoto = GotoSplit(GotoTemp) End If -SkipGotoSearch: +SkipGotoSearch: Dim GotoText As String GotoText = ssh.FileText - Try + Dim gotolines As List(Of String) = Txt2List(GotoText) + Dim CountGotoLines As Integer = gotolines.Count +ResumeGotoSearch: + Try 'TODO: Add Errorhandling. If File.Exists(GotoText) Then ' Read all lines of the given file. - Dim gotolines As List(Of String) = Txt2List(GotoText) - Dim CountGotoLines As Integer = gotolines.Count - If StripGoto.Substring(0, 1) <> "(" Then StripGoto = "(" & StripGoto & ")" If ssh.FileGoto.Substring(0, 1) <> "(" Then ssh.FileGoto = "(" & ssh.FileGoto & ")" @@ -4488,7 +4369,6 @@ SkipGotoSearch: Loop Until gotolines(gotoline).StartsWith(ssh.FileGoto) ssh.StrokeTauntVal = gotoline - End If Catch ex As Exception @@ -4497,17 +4377,18 @@ SkipGotoSearch: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") - Dim GotoLikeList As New List(Of String) - GotoLikeList = Txt2List(GotoText) + 'Dim GotoLikeList As New List(Of String) + 'GotoLikeList = Txt2List(GotoText) ' BreakPoint Do - For i As Integer = 0 To GotoLikeList.Count - 1 - If GotoLikeList(i).Substring(0, 1) = "(" Then - If GetLikeValue(GotoLikeList(i), ssh.FileGoto) = ReplaceX Then + For i As Integer = 0 To gotolines.Count - 1 + If gotolines(i).Substring(0, 1) = "(" Then + Dim t As Integer = GetLikeValue(gotolines(i), ssh.FileGoto) + If GetLikeValue(gotolines(i), ssh.FileGoto) = ReplaceX Then ReplaceX = 1885 - ReplaceGoto = GotoLikeList(i) + ReplaceGoto = gotolines(i) Exit For End If End If @@ -4523,10 +4404,10 @@ SkipGotoSearch: End Try If ReplaceGoto <> "" Then - ReplaceX = 1 + ReplaceX = 0 ssh.FileGoto = ReplaceGoto ReplaceGoto = "" - GoTo SkipGotoSearch + GoTo ResumeGotoSearch End If CancelGoto: @@ -4534,29 +4415,36 @@ CancelGoto: ssh.GotoDommeLevel = False ssh.SkipGotoLine = False - If ReplaceX <> 1 Then - StopEverything() - ssh.CallReturns.Clear() - If ssh.LastScript = False Then - If ssh.BeforeTease = True Then - ssh.BeforeTease = False - If FrmSettings.CBTeaseLengthDD.Checked = True Then - If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 - If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 - If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 - If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 - If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 - Else - ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + If ReplaceX <> 0 Then + If ssh.CallReturns.Count() > 0 Then + ChatAddSystemMessage("Error: @Goto() could not find a valid Goto Label. Sending you to the previous callreturn, to avoid blocking the session") + handleCallReturn() + If ssh.ShowModule Then Return + Else + StopEverything() + ssh.CallReturns.Clear() + ChatAddSystemMessage("Error: @Goto() could not find a valid Goto Label. Sending you to a link, to avoid blocking the session") + If ssh.LastScript = False Then + If ssh.BeforeTease = True Then + ssh.BeforeTease = False + If FrmSettings.CBTeaseLengthDD.Checked = True Then + If FrmSettings.domlevelNumBox.Value = 1 Then ssh.TeaseTick = ssh.randomizer.Next(10, 16) * 60 + If FrmSettings.domlevelNumBox.Value = 2 Then ssh.TeaseTick = ssh.randomizer.Next(15, 21) * 60 + If FrmSettings.domlevelNumBox.Value = 3 Then ssh.TeaseTick = ssh.randomizer.Next(20, 31) * 60 + If FrmSettings.domlevelNumBox.Value = 4 Then ssh.TeaseTick = ssh.randomizer.Next(30, 46) * 60 + If FrmSettings.domlevelNumBox.Value = 5 Then ssh.TeaseTick = ssh.randomizer.Next(45, 61) * 60 + Else + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If End If + RunLinkScript() + Else + ChatAddSystemMessage("Error: @Goto() could not find a valid Goto Label. Since this is the final cycle, the session will now end.") + SetVariable("SYS_SubLeftEarly", 0) + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) End If - RunLinkScript() - Else - ChatAddSystemMessage("Error: @Goto() could not find a valid Goto Label. Since this is the final cycle, the session will now end.") - SetVariable("SYS_SubLeftEarly", 0) - SaveChatLog(False) - ssh.Reset() - FrmSettings.LockOrgasmChances(False) End If End If @@ -4568,8 +4456,12 @@ CancelGoto: If My.Settings.OfflineMode = True Then ssh.DomChat = OfflineConversion(ssh.DomChat) End If + If ssh.ContactRoomUpdate <> "" Then + ChatAddSystemMessage(ssh.ContactRoomUpdate, False) + ssh.ContactRoomUpdate = "" + End If ssh.TypeDelay = ssh.StringLength - If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Then ssh.TypeDelay = 0 If ssh.TypeDelay <> 0 Then If GetCharCount(ssh.DomChat, "@RT(") <> 0 Then ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 @@ -4591,8 +4483,13 @@ CancelGoto: If My.Settings.OfflineMode = True Then ssh.DomTask = OfflineConversion(ssh.DomTask) End If + If ssh.ContactRoomUpdate <> "" Then + ChatAddSystemMessage(ssh.ContactRoomUpdate, False) + ssh.ContactRoomUpdate = "" + End If ssh.TypeDelay = ssh.StringLength - If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Then ssh.TypeDelay = 0 + If ssh.RapidCode = True Then ssh.TypeDelay = 0 If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.TypeDelay = 0 If ssh.TypeDelay <> 0 Then If GetCharCount(ssh.DomTask, "@RT(") <> 0 Then @@ -4654,9 +4551,9 @@ CancelGoto: Timer1.Stop() 'Debug.Print("NullCommand DomTask = " & DomTask) If ssh.RiskyDeal = True Then FrmCardList.LblRiskType.Visible = True + updateDommeName(ssh.DomTask) If ssh.NullResponse = False Then ssh.IsTyping = True - updateDommeName(ssh.DomTask) If ssh.DomTask.Contains("@EmoteMessage") Then ssh.EmoMes = True @@ -4688,7 +4585,6 @@ SkipIsTyping: - ssh.TypeToggle = 1 ssh.StringLength = ssh.DomTask.Length If ssh.DivideText = True Then @@ -4696,7 +4592,8 @@ SkipIsTyping: ssh.DivideText = False End If If ssh.RLGLGame = True Then ssh.StringLength = 0 - If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True Then ssh.StringLength = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Then ssh.StringLength = 0 + If ssh.RapidCode = True Then ssh.StringLength = 0 If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.StringLength = 0 TypingDelayGeneric() End If @@ -5139,7 +5036,7 @@ NullResponse: TextColor & """>
" & ssh.DomTask & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" End If @@ -5364,7 +5261,14 @@ DommeSlideshowFallback: If ssh.YesOrNo = False Then If ssh.RapidCode = True Then - RunFileText() + If WaitTimer.Enabled = False Then + RunFileText() + Else + WaitTimer.Stop() + ssh.ScriptTick = ssh.WaitTick + ssh.WaitTick = 0 + ScriptTimer.Start() + End If Else ssh.ScriptTick = ssh.randomizer.Next(4, 7) If ssh.RapidFire = True Then ssh.ScriptTick = 1 @@ -5470,8 +5374,8 @@ DommeSlideshowFallback: Public Shared Function GetShortPathName(ByVal lpszLongPath As String, - ByVal lpszShortPath As System.Text.StringBuilder, - ByVal cchBuffer As Int32) As Int32 + ByVal lpszShortPath As System.Text.StringBuilder, + ByVal cchBuffer As Int32) As Int32 End Function Private Sub SendTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendTimer.Tick @@ -5485,7 +5389,7 @@ DommeSlideshowFallback: ssh.RapidCode = False End If - 'updateDommeName(ssh.DomChat) + updateDommeName(ssh.DomChat) 'If Not ssh.Group.Contains("D") And Not ssh.DomChat.Contains("@Contact1") And Not ssh.DomChat.Contains("@Contact2") And Not ssh.DomChat.Contains("@Contact3") Then 'Dim GroupList As New List(Of String) ' GroupList.Clear() @@ -5803,7 +5707,7 @@ TryNextWithTease: If ssh.EmoMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.DomChat & "
" ssh.EmoMes = False GoTo EndSysMes End If @@ -5829,7 +5733,7 @@ TryNextWithTease: If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" Else @@ -5838,13 +5742,13 @@ TryNextWithTease: TextColor & """>
" & ssh.DomChat & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If ssh.TypeToggle = 0 If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If @@ -5991,8 +5895,6 @@ DommeSlideshowFallback: If ssh.CBTBothActive = True Then ssh.CBTBothActive = False - 'i think these shouldn't be dealt with here....they are already dealt during domresponse, doing it also here will just - 'halve the number of tasks actually because it will be diminisher here and then also in the domme repsonse If ssh.TasksCount > 0 Then If ssh.CBTCockFlag = True Then CBTCock() @@ -6540,9 +6442,7 @@ Retry: If My.Settings.Chastity = True Then tauntFile = "ChastityTaunts" If ssh.GlitterTease = True Then tauntFile = "GlitterTaunts" - ' Read all tauntfiles and get available. Dim TauntFiles As New List(Of TauntProcessingObject) - For Each str As String In myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", tauntFile & "_*.txt", SearchOption.TopDirectoryOnly) Dim Taunt As New TauntProcessingObject(str, Me) If Taunt.Avaialable Then TauntFiles.Add(Taunt) @@ -6713,38 +6613,38 @@ Retry: ' Special - Videos '====================================================================================== If My.Settings.CBJOI = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "JOI") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) If My.Settings.CBCH = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "CH") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) SkipSpecial: '====================================================================================== ' General Videos '====================================================================================== If My.Settings.CBGeneral = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "GENERAL") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) '====================================================================================== ' Domme - Videos '====================================================================================== If My.Settings.CBHardcoreD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "HARDCORE DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) If My.Settings.CBSoftcoreD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "SOFTCORE DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) If My.Settings.CBLesbianD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "LESBIAN DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) If My.Settings.CBBlowjobD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "BLOWJOB DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) If My.Settings.CBFemdomD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMDOM DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) If My.Settings.CBFemsubD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMSUB DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD If ssh.ScriptVideoTeaseFlag = True Then @@ -6757,17 +6657,17 @@ SkipSpecial: ' Domme - Special - Videos '====================================================================================== If My.Settings.CBJOID = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "JOI DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) If My.Settings.CBCHD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "CH DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) SkipSpecialD: '====================================================================================== ' Domme - General Videos '====================================================================================== If My.Settings.CBGeneralD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "GENERAL DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) ssh.VideoGenre = "ALL" @@ -6886,12 +6786,12 @@ GetAnotherRandomVideo: If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If JOIVideos.Count < 1 Then @@ -7051,7 +6951,7 @@ CensorConstant: ssh.DomTask = lines(CensorLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & - CensorVideo, ex, "CensorshipTimer.Tick") + CensorVideo, ex, "CensorshipTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo End Try @@ -7104,7 +7004,7 @@ CensorConstant: ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid RLGL line from file: " & - file2read, ex, "RLGLTimer.Tick") + file2read, ex, "RLGLTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read End Try @@ -7651,15 +7551,11 @@ StatusUpdateEnd: StatusUpdatePost() - End If End If End Sub - - - 'TODO-Next: Move to proper Region Private Sub MediaButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleMediaPanel.Click @@ -7839,7 +7735,6 @@ StatusUpdateEnd: If StringClean.Contains("#RandomRound10(") Then - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound10(") Dim OriginalFlag As String = RandomFlag RandomFlag = FixCommas(RandomFlag) @@ -7852,10 +7747,8 @@ StatusUpdateEnd: End If - If StringClean.Contains("#RandomRound5(") Then - Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound5(") Dim OriginalFlag As String = RandomFlag RandomFlag = FixCommas(RandomFlag) @@ -7868,18 +7761,24 @@ StatusUpdateEnd: End If - If StringClean.Contains("#Random(") Then + Dim randomArray As String() = StringClean.Split(")") - Dim RandomFlag As String = GetParentheses(StringClean, "#Random(") - Dim OriginalFlag As String = RandomFlag - RandomFlag = FixCommas(RandomFlag) - Dim RandInt As Integer - Dim FlagArray() As String = RandomFlag.Split(",") + For i As Integer = 0 To randomArray.Count - 1 - RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) - StringClean = StringClean.Replace("#Random(" & OriginalFlag & ")", RandInt) + If randomArray(i).Contains("Random(") Then + randomArray(i) = randomArray(i) & ")" + Dim RandomFlag As String = GetParentheses(StringClean, "#Random(") + Dim OriginalFlag As String = RandomFlag + RandomFlag = FixCommas(RandomFlag) + Dim RandInt As Integer + Dim FlagArray() As String = RandomFlag.Split(",") + + RandInt = ssh.randomizer.Next(Val(FlagArray(0)), Val(FlagArray(1)) + 1) + StringClean = StringClean.Replace("#Random(" & OriginalFlag & ")", RandInt) + End If + Next End If If StringClean.Contains("#DateDifference(") Then @@ -8341,7 +8240,7 @@ StatusUpdateEnd: If StringClean.Contains("@CustomMode(") Then controlCustom = GetParentheses(StringClean, "@CustomMode(") End If - + For Each keyword As Match In mc Dim doNotContinue As Boolean = False 'if we already checked for this vocab we avoid checking again @@ -8365,6 +8264,18 @@ StatusUpdateEnd: lines = FilterList(lines) If controlCustom.Contains(keyword.ToString) Then customVocabLines = lines + If ssh.addAnswerList Then + For Each s As String In lines + s = PoundClean(s) + ssh.checkAnswers.addToAnswerList(s) + Next + End If + If ssh.addResponseList Then + For Each s As String In lines + s = PoundClean(s) + StringClean &= "," & s + Next + End If If lines.Count > 0 Then Dim PoundVal As Integer = ssh.randomizer.Next(0, lines.Count) @@ -8423,7 +8334,6 @@ StatusUpdateEnd: End If alreadyChecked.Add(keyword.Value) End If - Next #If TRACE Then @@ -8442,8 +8352,8 @@ StatusUpdateEnd: End If #End If Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & - "Aborted Cleaning at: " & StringClean, - New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") + "Aborted Cleaning at: " & StringClean, + New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") Else #If TRACE Then If TS.TraceVerbose Then @@ -8506,7 +8416,7 @@ StatusUpdateEnd: StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") End If - + RinseLatherRepeat: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -8573,7 +8483,7 @@ RinseLatherRepeat: 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True) - If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Or") Else ssh.DommeImageSTR = "" End If @@ -8585,7 +8495,7 @@ RinseLatherRepeat: Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagOr(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Or") Else ssh.DommeImageSTR = "" End If @@ -8597,7 +8507,7 @@ RinseLatherRepeat: Dim TagFlag As String = GetParentheses(StringClean, "@DommeTagAny(") 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageAny(TagFlag, True) + ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Any") Else ssh.DommeImageSTR = "" End If @@ -8633,7 +8543,7 @@ RinseLatherRepeat: 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True) - If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Or") Else ssh.DommeImageSTR = "" End If @@ -8646,14 +8556,25 @@ RinseLatherRepeat: ' Try to get a Domme Image for the given Tags. 'QND-Implemented: ContactData.GetTaggedImage If ssh.contactToUse IsNot Nothing Then - ssh.DommeImageSTR = GetLocalImageOr(TagFlag, True) + ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Or") Else ssh.DommeImageSTR = "" End If - StringClean = StringClean.Replace("@DomTagOr(" & TagFlag & ")", "") End If + If StringClean.Contains("@DomTagAny(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@DomTagAny(") + ' Try to get a Domme Image for the given Tags. + 'QND-Implemented: ContactData.GetTaggedImage + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Any") + Else + ssh.DommeImageSTR = "" + End If + StringClean = StringClean.Replace("@DomTagAny(" & TagFlag & ")", "") + End If + If StringClean.Contains("@ImageTag(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTag(") ShowImage(GetLocalImage(TagFlag), False) @@ -8662,13 +8583,13 @@ RinseLatherRepeat: If StringClean.Contains("@ImageTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") - ShowImage(GetLocalImageOr(TagFlag), False) + ShowImage(GetLocalImage(TagFlag, , "Or"), False) StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") End If If StringClean.Contains("@ImageTagAny(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagAny(") - ShowImage(GetLocalImageAny(TagFlag), False) + ShowImage(GetLocalImage(TagFlag, , "Any"), False) StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") End If @@ -8863,8 +8784,8 @@ RinseLatherRepeat: '=============================================================================== If StringClean.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = StringClean.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList Dim FoundString As String = GetLocalImage(Tags, Nothing) @@ -9124,41 +9045,48 @@ RinseLatherRepeat: ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). If StringClean.Contains("@Chance") Then - Dim ChanceTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer + Dim ChanceArray As String() = StringClean.Split(")") - TSStartIndex = StringClean.IndexOf("@Chance") + 7 - TSEndIndex = StringClean.IndexOf("@Chance") + 9 + For i As Integer = 0 To ChanceArray.Count - 1 + If ChanceArray(i).Contains("@Chance") Then - ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim + Dim ChanceTemp As String + Dim TSStartIndex As Integer + Dim TSEndIndex As Integer - Dim ChanceVal As Integer + TSStartIndex = StringClean.IndexOf("@Chance") + 7 + TSEndIndex = StringClean.IndexOf("@Chance") + 9 - ChanceVal = Val(ChanceTemp) + ChanceTemp = StringClean.Substring(TSStartIndex, TSEndIndex - TSStartIndex).Trim - ssh.TempVal = ssh.randomizer.Next(1, 101) + Dim ChanceVal As Integer - Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim + ChanceVal = Val(ChanceTemp) - Dim ChanceSplit As String() = Split(ChanceString, ")") + ssh.TempVal = ssh.randomizer.Next(1, 101) + Dim ChanceString As String = StringClean.Substring(TSStartIndex + 2, StringClean.Length - (TSStartIndex + 2)).Trim - Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") - StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") + Dim ChanceSplit As String() = Split(ChanceString, ")") - If ssh.TempVal <= ChanceVal Then - ssh.FileGoto = ChanceSplit(0) & ")" - ssh.SkipGotoLine = True + Debug.Print("CHanceCheck = " & "@Chance" & ChanceTemp & ChanceSplit(0) & ")") + StringClean = StringClean.Replace("@Chance" & ChanceTemp & ChanceSplit(0) & ")", "") - If ssh.YesOrNo = True Then - GetGotoChat() - Else - GetGoto() - End If + If ssh.TempVal <= ChanceVal Then - End If + ssh.FileGoto = ChanceSplit(0) & ")" + ssh.SkipGotoLine = True + + If ssh.YesOrNo = True Then + GetGotoChat() + Else + GetGoto() + End If + Exit For + End If + End If + Next End If ' The @CheckFlag() Command checks to see if a Flag has previously been created by @SetFlag or @TempFlag, and goes to the appropriate line if it has. If you use @CheckFlag() with just the name of @@ -9511,7 +9439,7 @@ TaskCleanSet: ChangeVar = ChangeFlag.Split("]")(0) ChangeVal1 = ChangeFlag.Split("]")(1) ChangeVal2 = ChangeFlag.Split("]")(2) - ChangeOperator = ChangeFlag.Split("]")(2) + ChangeOperator = ChangeFlag.Split("]")(2).Substring(0, 1) ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & ChangeVar & "]" & ChangeVal1 & "]" & ChangeVal2 & "]", "") @@ -11441,10 +11369,25 @@ OrgasmDecided: If StringClean.Contains("@PlayVideo[") Then Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") - selectVideo(videoFlag) + Dim VidInt As Integer = 0 + + If videoFlag.Contains(",") Then videoFlag = FixCommas(videoFlag) + Dim FlagArray As String() = videoFlag.Split(",") + selectVideo(FlagArray(0)) + + If FlagArray.Count > 1 Then + If Val(FlagArray(1)) > 0 Then + VidInt = Val(FlagArray(1)) + If UCase(FlagArray(1)).Contains("M") Then VidInt *= 60 + End If + End If If ssh.NoVideo = False Then ssh.TeaseVideo = True + If VidInt > 0 Then + ssh.VideoTick = VidInt + VideoTimer.Start() + End If Else MessageBox.Show(Me, "No videos were found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End If @@ -11928,8 +11871,7 @@ ExternalAudio: If Not ssh.contact1Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) ssh.contact1Present = True - 'ssh.AddContactTick = 2 - Contact1Timer.Start() + updateGroup("1") End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact1.LoadNew(False) StringClean = StringClean.Replace("@AddContact1", "") @@ -11937,11 +11879,10 @@ ExternalAudio: If StringClean.Contains("@RemoveContact1") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact1Present And (ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Then + If ssh.contact1Present And ((ssh.dommePresent Or ssh.contact2Present Or ssh.contact3Present) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) ssh.contact1Present = False - 'ssh.AddContactTick = 2 - Contact1Timer.Start() + updateGroup("1") End If StringClean = StringClean.Replace("@RemoveContact1", "") End If @@ -11950,8 +11891,7 @@ ExternalAudio: If Not ssh.contact2Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) ssh.contact2Present = True - 'ssh.AddContactTick = 2 - Contact2Timer.Start() + updateGroup("2") End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact2.LoadNew(False) StringClean = StringClean.Replace("@AddContact2", "") @@ -11959,11 +11899,11 @@ ExternalAudio: If StringClean.Contains("@RemoveContact2") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact2Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Then + If ssh.contact2Present And ((ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) ssh.contact2Present = False ssh.AddContactTick = 2 - Contact2Timer.Start() + updateGroup("2") End If StringClean = StringClean.Replace("@RemoveContact2", "") End If @@ -11972,8 +11912,7 @@ ExternalAudio: If Not ssh.contact3Present Then ssh.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) ssh.contact3Present = True - 'ssh.AddContactTick = 2 - Contact3Timer.Start() + updateGroup("3") End If If My.Settings.AlwaysNewSlideshow Then ssh.SlideshowContact3.LoadNew(False) StringClean = StringClean.Replace("@AddContact3", "") @@ -11981,11 +11920,10 @@ ExternalAudio: If StringClean.Contains("@RemoveContact3") Then 'security measure: only remove the contact if another contact is already present, to prevent crashes due to no contact being present - If ssh.contact3Present And (ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Then + If ssh.contact3Present And ((ssh.dommePresent Or ssh.contact1Present Or ssh.contact2Present) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) ssh.contact3Present = False - 'ssh.AddContactTick = 2 - Contact3Timer.Start() + updateGroup("3") End If StringClean = StringClean.Replace("@RemoveContact3", "") End If @@ -11994,19 +11932,17 @@ ExternalAudio: If Not ssh.dommePresent Then ssh.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) ssh.dommePresent = True - 'ssh.AddContactTick = 2 - DommeTimer.Start() + updateGroup("D") End If StringClean = StringClean.Replace("@AddDomme", "") End If If StringClean.Contains("@RemoveDomme") Then 'security measure: only remove the domme if another contact is already present, to prevent crashes due to no contact being present - If ssh.dommePresent And (ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Then + If ssh.dommePresent And ((ssh.contact1Present Or ssh.contact2Present Or ssh.contact3Present) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) ssh.dommePresent = False - 'ssh.AddContactTick = 2 - DommeTimer.Start() + updateGroup("D") End If StringClean = StringClean.Replace("@RemoveDomme", "") End If @@ -12263,87 +12199,96 @@ VTSkip: If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) CheckFlag = CheckFlag.Replace("/", "\") - GetSubState() - ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) - ssh.YesOrNo = False - GotoClear() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - CensorshipTimer.Stop() - RLGLTimer.Stop() - TnASlides.Stop() - AvoidTheEdge.Stop() - EdgeTauntTimer.Stop() - HoldEdgeTimer.Stop() - HoldEdgeTauntTimer.Stop() - AvoidTheEdgeTaunts.Stop() - RLGLTauntTimer.Stop() - VideoTauntTimer.Stop() - EdgeCountTimer.Stop() - - ssh.CBTBallsActive = False - ssh.CBTBallsFlag = False - ssh.CBTCockActive = False - ssh.CBTCockFlag = False - ssh.CBTBothActive = False - ssh.CBTBothFlag = False - ssh.CustomTaskActive = False - - ssh.MultiTauntPictureHold = False + Select Case CheckFlag + Case "Clear" + clearCallReturns() + Case Else + GetSubState() + ssh.CallReturns.Push(New SessionState.StackedCallReturn(ssh)) + ssh.YesOrNo = False + GotoClear() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + CensorshipTimer.Stop() + RLGLTimer.Stop() + TnASlides.Stop() + AvoidTheEdge.Stop() + EdgeTauntTimer.Stop() + HoldEdgeTimer.Stop() + HoldEdgeTauntTimer.Stop() + AvoidTheEdgeTaunts.Stop() + RLGLTauntTimer.Stop() + VideoTauntTimer.Stop() + EdgeCountTimer.Stop() - If Not ssh.SubGaveUp Then - ssh.SubEdging = False - ssh.SubHoldingEdge = False - End If + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False - If CheckFlag.Contains("*") Then - Dim checkArray() As String = CheckFlag.Split("*") - CheckFlag = checkArray(0) - If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else ssh.MultiTauntPictureHold = False - Dim RandomFile As New List(Of String) - RandomFile.Clear() - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - RandomFile.Add(foundFile) - Next - If RandomFile.Count < 1 Then - MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & - Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Else - GotoClear() - ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) - ssh.StrokeTauntVal = -1 + + If Not ssh.SubGaveUp Then + ssh.SubEdging = False + ssh.SubHoldingEdge = False End If - End If - Else - If CheckFlag.Contains(",") Then - CheckFlag = FixCommas(CheckFlag) + If CheckFlag.Contains("*") Then + Dim checkArray() As String = CheckFlag.Split("*") + CheckFlag = checkArray(0) + If Not Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag) Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not exist!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + ssh.MultiTauntPictureHold = False + Dim RandomFile As New List(Of String) + RandomFile.Clear() + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag & "\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + RandomFile.Add(foundFile) + Next + If RandomFile.Count < 1 Then + MessageBox.Show(Me, "The current script attempted to @Call from a directory that does not contain any scripts!" & Environment.NewLine & Environment.NewLine & + Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + GotoClear() + ssh.FileText = RandomFile(ssh.randomizer.Next(0, RandomFile.Count)) + ssh.StrokeTauntVal = -1 + End If + End If + Else + If CheckFlag.Contains(",") Then - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + CheckFlag = FixCommas(CheckFlag) - Else + Dim CallSplit As String() = CheckFlag.Split(",") + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) + ssh.FileGoto = CallSplit(1) + ssh.SkipGotoLine = True + GetGoto() - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag - ssh.StrokeTauntVal = -1 + Else + + ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CheckFlag + ssh.StrokeTauntVal = -1 + + End If + End If + ssh.ScriptTick = 2 + ScriptTimer.Start() + ssh.ShowModule = True + ssh.isLink = False + End Select - End If - End If - ssh.ScriptTick = 2 - ScriptTimer.Start() - ssh.ShowModule = True - ssh.isLink = False StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") End If If StringClean.Contains("@Call(") Then + 'we have to clear all the values stored in the @CallReturn array because otherwise the normal teaseAI cycle re-starts, but + 'there are still open callreturns that would come back later (whenever you call a new callreturn) and mess things up + ssh.CallReturns.Clear() Dim CheckFlag As String = GetParentheses(StringClean, "@Call(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12379,6 +12324,9 @@ VTSkip: If StringClean.Contains("@CallRandom(") Then + 'we have to clear all the values stored in the @CallReturn array because otherwise the normal teaseAI cycle re-starts, but + 'there are still open callreturns that would come back later (whenever you call a new callreturn) and mess things up + ssh.CallReturns.Clear() Dim CheckFlag As String = GetParentheses(StringClean, "@CallRandom(") If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) @@ -12418,11 +12366,19 @@ VTSkip: '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ If StringClean.Contains("@RandomLink") Then + 'we have to clear all the values stored in the @CallReturn array because otherwise the normal teaseAI cycle re-starts, but + 'there are still open callreturns that would come back later (whenever you call a new callreturn) and mess things up + ssh.CallReturns.Clear() + RunLinkScript() StringClean = StringClean.Replace("@RandomLink", "") End If If StringClean.Contains("@RandomModule") Then + 'we have to clear all the values stored in the @CallReturn array because otherwise the normal teaseAI cycle re-starts, but + 'there are still open callreturns that would come back later (whenever you call a new callreturn) and mess things up + ssh.CallReturns.Clear() + If ssh.SubEdging Or ssh.SubHoldingEdge Then RunModuleScript(True) Else @@ -12511,6 +12467,27 @@ VTSkip: StringClean = StringClean.Replace("@NeutralMood(" & MoodFlag & ")", "") End If + If StringClean.Contains("@SetMood(") Then + Dim MoodFlag As Integer = CInt(GetParentheses(StringClean, "@SetMood(")) + If IsNumeric(MoodFlag) Then + ssh.DommeMood = MoodFlag + If ssh.DommeMood > 10 Then ssh.DommeMood = 10 + If ssh.DommeMood < 1 Then ssh.DommeMood = 1 + ElseIf LCase(MoodFlag) = "worst" Then + ssh.DommeMood = 1 + ElseIf LCase(MoodFlag) = "bad" Then + ssh.DommeMood = ssh.randomizer.Next(1, FrmSettings.NBDomMoodMin.Value) + ElseIf LCase(MoodFlag) = "neutral" Then + ssh.DommeMood = ssh.randomizer.Next(FrmSettings.NBDomMoodMin.Value, FrmSettings.NBDomMoodMax.Value + 1) + ElseIf LCase(MoodFlag) = "good" Then + ssh.DommeMood = ssh.randomizer.Next(FrmSettings.NBDomMoodMax.Value + 1, 11) + ElseIf LCase(MoodFlag) = "best" Then + ssh.DommeMood = 10 + End If + + StringClean = StringClean.Replace("@SetMood(" & MoodFlag & ")", "") + End If + If StringClean.Contains("@MoodUp") Then ssh.DommeMood += 1 If ssh.DommeMood > 10 Then ssh.DommeMood = 10 @@ -13502,7 +13479,7 @@ VTSkip: Return String.Empty End Function - Public Function GetLocalImage(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False) As String + Public Function GetLocalImage(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False, Optional ByVal selectionType As String = "All") As String Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" If isDommeTag Then fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" @@ -13519,130 +13496,41 @@ VTSkip: LocTag = LocTag.Replace(", ", ",") Dim LocTagArray As String() = LocTag.Split(",") - If isDommeTag Then - For i As Integer = 0 To LocTagArray.Count - 1 - LocTagArray(i) = "Tag" & LocTagArray(i) - Next - End If Dim TaggedList As New List(Of String) - Dim addImg As Boolean - For i As Integer = 0 To TagList.Count - 1 - For n As Integer = 0 To LocTagArray.Count - 1 - If Not TagList(i).Contains(LocTagArray(n)) Then - addImg = False - Exit For - Else - addImg = True - Continue For - End If - Next - If addImg Then TaggedList.Add(TagList(i)) - Next - - If TaggedList.Count > 0 Then - - Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split - Dim PicDir As String = "" - - For p As Integer = 0 To PicArray.Count - 1 - PicDir = PicDir & PicArray(p) & " " - If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For - Next - If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir - Return PicDir - - Else - Return String.Empty - - End If - - End If - End Function - - Public Function GetLocalImageOr(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False) As String - Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" - If isDommeTag Then - fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" - End If - - If File.Exists(fileToCheck) Then - - - Dim TagList As New List(Of String) - TagList = Txt2List(fileToCheck) - - LocTag = LocTag.Replace(" ,", ",") - LocTag = LocTag.Replace(", ", ",") - - Dim LocTagArray As String() = LocTag.Split(",") - If isDommeTag Then - For i As Integer = 0 To LocTagArray.Count - 1 - LocTagArray(i) = "Tag" & LocTagArray(i) - Next - End If - - Dim TaggedList As New List(Of String) - - For n As Integer = 0 To LocTagArray.Count - 1 - If TaggedList.Count = 0 Then - For i As Integer = 0 To TagList.Count - 1 - If TagList(i).Contains(LocTagArray(n)) Then - TaggedList.Add(TagList(i)) + Select Case selectionType + Case "Or" + For n As Integer = 0 To LocTagArray.Count - 1 + If TaggedList.Count = 0 Then + For i As Integer = 0 To TagList.Count - 1 + If TagList(i).Contains(LocTagArray(n)) Then + TaggedList.Add(TagList(i)) + End If + Next End If Next - End If - Next - - If TaggedList.Count > 0 Then - - Dim PicArray As String() = TaggedList(ssh.randomizer.Next(0, TaggedList.Count)).Split - Dim PicDir As String = "" - - For p As Integer = 0 To PicArray.Count - 1 - PicDir = PicDir & PicArray(p) & " " - If UCase(PicDir).Contains(".JPG") Or UCase(PicDir).Contains(".JPEG") Or UCase(PicDir).Contains(".PNG") Or UCase(PicDir).Contains(".BMP") Or UCase(PicDir).Contains(".GIF") Then Exit For - Next - If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir - Return PicDir - - Else - Return String.Empty - - End If - - End If - End Function - Public Function GetLocalImageAny(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False) As String - Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" - If isDommeTag Then - fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" - End If - - If File.Exists(fileToCheck) Then - - - Dim TagList As New List(Of String) - TagList = Txt2List(fileToCheck) - - LocTag = LocTag.Replace(" ,", ",") - LocTag = LocTag.Replace(", ", ",") - - Dim LocTagArray As String() = LocTag.Split(",") - If isDommeTag Then - For i As Integer = 0 To LocTagArray.Count - 1 - LocTagArray(i) = "Tag" & LocTagArray(i) - Next - End If - - Dim TaggedList As New List(Of String) - - For i As Integer = 0 To TagList.Count - 1 - For n As Integer = 0 To LocTagArray.Count - 1 - If TagList(i).Contains(LocTagArray(n)) Then TaggedList.Add(TagList(i)) - Next - Next + Case "Any" + For i As Integer = 0 To TagList.Count - 1 + For n As Integer = 0 To LocTagArray.Count - 1 + If TagList(i).Contains(LocTagArray(n)) Then TaggedList.Add(TagList(i)) + Next + Next + Case Else + Dim addImg As Boolean + For i As Integer = 0 To TagList.Count - 1 + For n As Integer = 0 To LocTagArray.Count - 1 + If Not TagList(i).Contains(LocTagArray(n)) Then + addImg = False + Exit For + Else + addImg = True + Continue For + End If + Next + If addImg Then TaggedList.Add(TagList(i)) + Next + End Select If TaggedList.Count > 0 Then @@ -13655,12 +13543,11 @@ VTSkip: Next If isDommeTag Then PicDir = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir Return PicDir - Else Return String.Empty - End If - + Else + Return String.Empty End If End Function @@ -13800,45 +13687,45 @@ VTSkip: ' Current FilterList Begin '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - 'For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + 'For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement - 'FilterPass = True + 'FilterPass = True - 'For x As Integer = 0 To ListIncrement - 1 - 'If GetFilter(ListClean(i + x)) = False Then - 'FilterPass = False - 'Exit For - 'End If - 'Next + 'For x As Integer = 0 To ListIncrement - 1 + 'If GetFilter(ListClean(i + x)) = False Then + 'FilterPass = False + 'Exit For + 'End If + 'Next - 'If FilterPass = False Then - 'For x As Integer = 0 To ListIncrement - 1 - 'ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" - 'Next - 'End If + 'If FilterPass = False Then + 'For x As Integer = 0 To ListIncrement - 1 + 'ListClean(i + x) = ListClean(i + x) & "###-INVALID-###" + 'Next + 'End If - 'Next + 'Next - 'For i As Integer = ListClean.Count - 1 To 0 Step -1 - 'If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) - 'Next + 'For i As Integer = ListClean.Count - 1 To 0 Step -1 + 'If ListClean(i).Contains("###-INVALID-###") Then ListClean.RemoveAt(i) + 'Next '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Current FilterList End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - 'Dim FilteredList As New List(Of String) + 'Dim FilteredList As New List(Of String) - 'For i As Integer = 0 To ListClean.Count - 1 - 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) - 'Next + 'For i As Integer = 0 To ListClean.Count - 1 + 'If Not ListClean(i).Contains("###-INVALID-###") Then FilteredList.Add(ListClean(i)) + 'Next #If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If - 'If ListClean.Count = 0 Then ListClean.Add("test") - Return ListClean + 'If ListClean.Count = 0 Then ListClean.Add("test") + Return ListClean End Function @@ -13846,29 +13733,6 @@ VTSkip: Public Function GetFilter(ByVal FilterString As String, Optional ByVal Linear As Boolean = False) As Boolean Dim OrgFilterString As String = FilterString Try - '######################### Determine filtering Contact ########################### - Dim FilterContact As ContactData - Dim ActiveContacts As New List(Of String) - - For Each match As Match In Regex.Matches(ssh.Group, "[d\d](?=[^\+\-]*)", RegexOptions.IgnoreCase) - ' Pattern Description: - ' [d\d]: All Numbers and letter "D" - ' (?=[^\+\-]*): not followed by "+" or "-" (Future indicator for joining and leaving contacts.) - ActiveContacts.Add(match.Value) - Next - - If FilterString.Includes("@Contact1") AndAlso ActiveContacts.Contains("1") Then - FilterContact = ssh.SlideshowContact1 - ElseIf FilterString.Includes("@Contact2") AndAlso ActiveContacts.Contains("2") Then - FilterContact = ssh.SlideshowContact2 - ElseIf FilterString.Includes("@Contact3") AndAlso ActiveContacts.Contains("3") Then - FilterContact = ssh.SlideshowContact3 - ElseIf ssh.contactToUse IsNot Nothing Then - FilterContact = ssh.contactToUse - Else - FilterContact = ssh.SlideshowMain - End If - If Linear = False Then If FilterString.Includes("@DommeTag(") Then If ssh.LockImage = True Then @@ -13882,7 +13746,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImageOr(GetParentheses(FilterString, "@DommeTagOr("), True) = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@DommeTagOr("), True, "Or") = String.Empty Then Return False End If End If @@ -13890,7 +13754,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImageAny(GetParentheses(FilterString, "@DommeTagAny("), True) = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@DommeTagAny("), True, "Any") = String.Empty Then Return False End If End If @@ -13906,7 +13770,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImageOr(GetParentheses(FilterString, "@DomTagOr("), True) = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@DomTagOr("), True, "Or") = String.Empty Then Return False End If End If @@ -13914,7 +13778,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImageAny(GetParentheses(FilterString, "@DomTagAny("), True) = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@DomTagAny("), True, "Any") = String.Empty Then Return False End If End If @@ -13930,7 +13794,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImageOr(GetParentheses(FilterString, "@ImageTagOr(")) = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@ImageTagOr("), , "Or") = String.Empty Then Return False End If End If @@ -13938,7 +13802,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImageAny(GetParentheses(FilterString, "@ImageTagAny(")) = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@ImageTagAny("), , "Any") = String.Empty Then Return False End If End If @@ -13993,8 +13857,8 @@ VTSkip: End If 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False If FilterString.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = FilterString.Split() _ @@ -14415,6 +14279,23 @@ VTSkip: If FilterString.Contains("@Morning") And ssh.GeneralTime <> "Morning" Then Return False If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False + + If FilterString.Contains("@Mood(") Then + Dim moodFlag As String = LCase(GetParentheses(FilterString, "@Mood(")) + If IsNumeric(moodFlag) Then + If ssh.DommeMood <> CInt(moodFlag) Then Return False + ElseIf moodFlag = "worst" Then + If ssh.DommeMood <> 1 Then Return False + ElseIf moodFlag = "bad" Then + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False + ElseIf moodFlag = "neutral" Then + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + ElseIf moodFlag = "good" Then + If ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False + ElseIf moodFlag = "best" Then + If ssh.DommeMood <> 10 Then Return False + End If + End If If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False If FilterString.Contains("@NeutralMood") Then @@ -14568,9 +14449,9 @@ VTSkip: .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) @@ -14722,7 +14603,8 @@ VTSkip: 'QND-Implemented: ContactData.GetTaggedImage 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) - Case "@ImageTagOr(".ToUpper : Condition = GetLocalImageOr(FilterString) + Case "@ImageTagOr(".ToUpper : Condition = GetLocalImage(FilterString, , "Or") + Case "@ImageTagAny(".ToUpper : Condition = GetLocalImage(FilterString, , "Any") Case Else '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= ' Unknown Command => goto next Match @@ -15317,6 +15199,8 @@ NoPlaylistLinkFile: ssh.StrokeTauntVal = -1 ClearModes() + ssh.ShowModule = True + ssh.isLink = False ssh.FirstRound = False 'My.Settings.Sys_SubLeftEarly = 0 @@ -15952,7 +15836,7 @@ NoRepeatOFiles: ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") + File2Read, ex, "HoldEdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read End Try @@ -16163,7 +16047,7 @@ PoundLoop: TaskEntry = TaskEntry.Replace("#TaskCBTTime", TConvert) Loop Until Not TaskEntry.Contains("#TaskCBTTime") End If - + TaskEntry = TaskEntry.Replace("", "") TaskEntry = TaskEntry.Replace("", "") @@ -16291,7 +16175,7 @@ TryNext: If ssh.AvgEdgeCount < 5 Then ssh.EdgeTickCheck = 60 Else - ssh.EdgeTickCheck = ssh.AvgEdgeStroking + ssh.EdgeTickCheck = ssh.AvgEdgeStroking / ssh.AvgEdgeCount End If Else @@ -16299,7 +16183,7 @@ TryNext: If ssh.AvgEdgeCountRest < 5 Then ssh.EdgeTickCheck = 300 Else - ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch + ssh.EdgeTickCheck = ssh.AvgEdgeNoTouch / ssh.AvgEdgeCountRest End If End If @@ -16641,7 +16525,7 @@ RestartFunction: If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return - 'Debug.Print("WaitTick = " & WaitTick) + 'Debug.Print("WaitTick = " & ssh.WaitTick) ssh.WaitTick -= 1 @@ -16830,7 +16714,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "VideoTauntTimer.Tick") + VTDir, ex, "VideoTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try @@ -16904,7 +16788,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "RLGLTauntTimer.Tick") + VTDir, ex, "RLGLTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16957,7 +16841,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "AvoidTheEdgeTaunts.Tick") + VTDir, ex, "AvoidTheEdgeTaunts.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -17126,10 +17010,10 @@ retry: ' Confirm overwriting the file If MessageBox.Show(Me, fileName & " already exists in this directory!" & - Environment.NewLine & Environment.NewLine & - "Do you wish to overwrite?", "Caution!", - MessageBoxButtons.YesNo, - MessageBoxIcon.Exclamation) = DialogResult.No Then + Environment.NewLine & Environment.NewLine & + "Do you wish to overwrite?", "Caution!", + MessageBoxButtons.YesNo, + MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17144,13 +17028,13 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Saving image failed.") If MessageBox.Show(ex.Message, "Saving image failed.", - MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, - MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry + MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, + MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry End Try End Sub Private Sub PicStripTSMIlikeImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, - PicStripTSMIdislikeImage.Click + PicStripTSMIdislikeImage.Click ' Exit if ImageLocation is unkown If ssh.ImageLocation = "" Then Exit Sub @@ -17192,7 +17076,7 @@ saveImage: lazytext = "Unable to " & lazytext Log.WriteError(lazytext, ex, "Error updating List") MessageBox.Show(Me, lazytext & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") + & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") End Try End Sub @@ -17209,7 +17093,7 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") + & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") End Try End Sub @@ -17512,86 +17396,33 @@ restartInstantly: End Function -#Region "-------------------------------------------------- Contact 1-3 -------------------------------------------------------" - - - - Private Sub Contact1Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contact1Timer.Tick - - ' ssh.AddContactTick -= 1 - - ' If ssh.AddContactTick < 1 Then - Contact1Timer.Stop() - If Not ssh.Group.Contains("1") Then - ssh.Group = ssh.Group & "1" + Private Sub updateGroup(ByVal contact As String) + Dim name As String + Select Case contact + Case 1 + name = My.Settings.Glitter1 + Case 2 + name = My.Settings.Glitter2 + Case 3 + name = My.Settings.Glitter3 + Case Else + name = ssh.SlideshowMain.TypeName + End Select + If Not ssh.Group.Contains(contact) Then + ssh.Group = ssh.Group & contact ssh.GlitterTease = True - ChatAddSystemMessage(My.Settings.Glitter1 & " has joined the Chat room") + 'ChatAddSystemMessage(name & " has joined the Chat room", False) + ssh.ContactRoomUpdate = name & " has joined the Chat room" Else - ssh.Group = ssh.Group.Replace("1", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(My.Settings.Glitter1 & " has left the Chat room") + ssh.Group = ssh.Group.Replace(contact, "") + 'ChatAddSystemMessage(name & " has left the Chat room", False) + ssh.ContactRoomUpdate = name & " has left the Chat room" End If - ' End If - - End Sub - - Private Sub Contact2Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contact2Timer.Tick - - ' ssh.AddContactTick -= 1 - - ' If ssh.AddContactTick < 1 Then - Contact2Timer.Stop() - If Not ssh.Group.Contains("2") Then - ssh.Group = ssh.Group & "2" - ssh.GlitterTease = True - ChatAddSystemMessage(My.Settings.Glitter2 & " has joined the Chat room") + If ssh.Group = "D" Then + ssh.GlitterTease = False Else - ssh.Group = ssh.Group.Replace("2", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(My.Settings.Glitter2 & " has left the Chat room") - End If - ' End If - - End Sub - - Private Sub Contact3Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contact3Timer.Tick - - ' ssh.AddContactTick -= 1 - - ' If ssh.AddContactTick < 1 Then - Contact3Timer.Stop() - If Not ssh.Group.Contains("3") Then - ssh.Group = ssh.Group & "3" ssh.GlitterTease = True - ChatAddSystemMessage(My.Settings.Glitter3 & " has joined the Chat room") - Else - ssh.Group = ssh.Group.Replace("3", "") - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(My.Settings.Glitter3 & " has left the Chat room") End If - ' End If - - End Sub - -#End Region - - Private Sub DommeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DommeTimer.Tick - - ' ssh.AddContactTick -= 1 - - ' If ssh.AddContactTick < 1 Then - DommeTimer.Stop() - If Not ssh.Group.Contains("D") Then - ssh.Group = ssh.Group & "D" - If ssh.Group = "D" Then ssh.GlitterTease = False - ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has joined the Chat room") - Else - ssh.Group = ssh.Group.Replace("D", "") - ssh.GlitterTease = True - ChatAddSystemMessage(ssh.SlideshowMain.TypeName & " has left the Chat room") - End If - ' End If - End Sub Private Sub UpdateStageTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateStageTimer.Tick @@ -17665,7 +17496,7 @@ restartInstantly: If ssh.SaidHello = False Then MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17674,13 +17505,13 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a destination to safe the sessin to.", - .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, - .AddExtension = True, - .CheckPathExists = True, - .OverwritePrompt = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a destination to save the session to.", + .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, + .AddExtension = True, + .CheckPathExists = True, + .OverwritePrompt = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17689,9 +17520,9 @@ restartInstantly: '=============================================================================== ElseIf File.Exists(filename) _ AndAlso MessageBox.Show(Me, "A previous saved state already exists!" & - vbCrLf & vbCrLf & - "Do you wish to overwrite it?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + vbCrLf & vbCrLf & + "Do you wish to overwrite it?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17699,14 +17530,14 @@ restartInstantly: ssh.Save(filename) MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", - MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub @@ -17720,12 +17551,12 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a saved session to resume.", - .CheckPathExists = True, - .CheckFileExists = True, - .AddExtension = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a saved session to resume.", + .CheckPathExists = True, + .CheckFileExists = True, + .AddExtension = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17739,9 +17570,9 @@ restartInstantly: If ssh.SaidHello = True _ AndAlso MessageBox.Show(Me, "Resuming a previous state will cause you to lose your progress in this session!" & - vbCrLf & vbCrLf & - "Do you wish to proceed?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + vbCrLf & vbCrLf & + "Do you wish to proceed?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17757,8 +17588,8 @@ restartInstantly: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub @@ -17780,7 +17611,7 @@ restartInstantly: End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click, - ExitToolStripMenuItem1.Click + ExitToolStripMenuItem1.Click Me.Close() Me.Dispose() End Sub @@ -17911,7 +17742,7 @@ restartInstantly: If My.Settings.ClearWishlist = True Then MessageBox.Show(Me, "You have already purchased " & ssh.tempDomName & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & - "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If @@ -18172,35 +18003,35 @@ restartInstantly: #Region "-------------------------------------------------------- Games -------------------------------------------------------" Private Sub SlotsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, - SlotsToolStripMenuItem.Click + SlotsToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(0) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub MatchGameToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, - MatchGameToolStripMenuItem.Click + MatchGameToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(1) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub RiskyPickToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, - RiskyPickToolStripMenuItem.Click + RiskyPickToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(2) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub ExchangeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, - ExchangeToolStripMenuItem.Click + ExchangeToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(3) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub CollectionToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, - CollectionToolStripMenuItem.Click + CollectionToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(4) FrmCardList.Show() FrmCardList.Focus() @@ -18298,14 +18129,14 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(0, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - 0, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + 0, + PnlLayoutForm.Padding.Bottom) End If Else '########################### Hide ######################### @@ -18314,14 +18145,14 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Left, + PnlLayoutForm.Padding.Bottom) End If If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True @@ -18403,22 +18234,22 @@ restartInstantly: #Region "------------------------------------------------------ Milovana ------------------------------------------------------" Private Sub OpenBetaThreadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, - OpenBetaThreadToolStripMenuItem1.Click + OpenBetaThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") End Sub Private Sub BugReportThreadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, - BugReportThreadToolStripMenuItem1.Click + BugReportThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") End Sub Private Sub WebteasesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, - WebteasesToolStripMenuItem1.Click + WebteasesToolStripMenuItem1.Click Process.Start("https://milovana.com/webteases/") End Sub Private Sub AllAndEverythingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, - ForumToolStripMenuItem.Click + ForumToolStripMenuItem.Click Process.Start("https://milovana.com/forum/") End Sub @@ -20560,7 +20391,6 @@ playLoop: TimeoutTimer.Stop() ssh.YesOrNo = False ssh.InputFlag = False - ssh.SkipGotoLine = True GetGoto() @@ -20926,6 +20756,7 @@ playLoop: Private Sub GotoClear() ssh.GotoFlag = False ssh.FileGoto = "" + ssh.SkipGotoLine = False End Sub Private Sub handleCallReturn() @@ -21006,6 +20837,12 @@ playLoop: End If End Sub + Private Sub clearCallReturns() + While ssh.CallReturns.Count > 1 + ssh.CallReturns.Pop() + End While + End Sub + Public Sub setStartName() Try ssh.SlideshowMain = New ContactData(ContactType.Domme) @@ -21038,14 +20875,13 @@ playLoop: Private Function updateDommeName(ByVal stringToCheck As String) + 'remove eventual @ContactX present in a @FollowUp() inside the line If stringToCheck.Contains("@FollowUp") Then Dim remove As String stringToCheck = stringToCheck.Trim - remove = GetParentheses(stringToCheck, "@FollowUp(", stringToCheck.Split(")").Count - 1) - 'if there is a leftover ) (might happen in very complex followUp) we remove it - If remove.Trim.EndsWith(")") Then remove = remove.Remove(remove.LastIndexOf(")"c), 1) - stringToCheck = stringToCheck.Replace("@FollowUp(" & remove & ")", "") + remove = stringToCheck.Substring(stringToCheck.IndexOf("@FollowUp")) + stringToCheck = stringToCheck.Replace(remove, "") End If 'deals with situation in which the domme is not present @@ -21196,8 +21032,7 @@ playLoop: End If End If - -ExternalVideo: + DomWMP.stretchToFit = True End Sub 'return -1 if word to check was not present, 0 if something in the honorific is wrong, 1 if all is ok @@ -21248,48 +21083,50 @@ ExternalVideo: Else 'but if we are not checking for honorific (i.e. an answer to a specific question) we just check it the needed words are present 'in the sub answer - condition = UCase(splitChat(m)).Contains(UCase(SplitParts(n))) + condition = UCase(ssh.ChatString).Contains(UCase(SplitParts(n))) End If If condition Then - If checkForHonorific Then - If FrmSettings.CBHonorificInclude.Checked = True Then - If WordExists(UCase(ssh.ChatString), UCase(ssh.tempHonorific)) = False Then - ssh.DomChat += SplitParts(n) & " #SYS_MissingHonorific" - If FrmSettings.LCaseCheckBox.Checked = False Then - Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) - ssh.DomChat = ssh.DomChat.Remove(0, 1) - ssh.DomChat = DomU & ssh.DomChat - ssh.nameErrors += 1 - ssh.wrongAttempt = True - End If - ssh.JustShowedBlogImage = True - TypingDelay() - Return 0 - End If - - If FrmSettings.CBHonorificCapitalized.Checked = True Then - If WordExists(ssh.ChatString, Capitalize(ssh.tempHonorific)) = False Then - 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat += "#SYS_CapitalizeHonorific" - ssh.nameErrors += 1 - ssh.wrongAttempt = True + If UCase(ssh.ChatString).Contains(UCase(SplitParts(n))) Then + If checkForHonorific Then + If FrmSettings.CBHonorificInclude.Checked = True Then + If WordExists(UCase(ssh.ChatString), UCase(ssh.tempHonorific)) = False Then + ssh.DomChat += SplitParts(n) & " #SYS_MissingHonorific" + If FrmSettings.LCaseCheckBox.Checked = False Then + Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) + ssh.DomChat = ssh.DomChat.Remove(0, 1) + ssh.DomChat = DomU & ssh.DomChat + ssh.nameErrors += 1 + ssh.wrongAttempt = True + End If ssh.JustShowedBlogImage = True TypingDelay() Return 0 End If - 'we only reduce the errors if we were responding a question, not everytime we write...the sub need to remember to use the honorific :D - If reduceErrors Then - If ssh.wrongAttempt Then - ssh.wrongAttempt = False - Else - If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 + + If FrmSettings.CBHonorificCapitalized.Checked = True Then + If WordExists(ssh.ChatString, Capitalize(ssh.tempHonorific)) = False Then + 'If Not ChatString.Contains(FrmSettings.TBHonorific.Text) Then + ssh.DomChat += "#SYS_CapitalizeHonorific" + ssh.nameErrors += 1 + ssh.wrongAttempt = True + ssh.JustShowedBlogImage = True + TypingDelay() + Return 0 + End If + 'we only reduce the errors if we were responding a question, not everytime we write...the sub need to remember to use the honorific :D + If reduceErrors Then + If ssh.wrongAttempt Then + ssh.wrongAttempt = False + Else + If (ssh.nameErrors > 0) Then ssh.nameErrors -= 1 + End If End If End If End If End If + Return 1 End If - Return 1 End If Next Next @@ -21411,6 +21248,5 @@ ShowedBlogImage: LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") LBLWritingTaskText.Text = LBLWritingTaskText.Text.Trim End Sub - End Class diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index c1e4e0b..df2e871 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -1116,8 +1116,6 @@ Me.Label65 = New System.Windows.Forms.Label() Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() Me.LBLLastOrgasm = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() -Me.Label13 = New System.Windows.Forms.Label() -Me.Label1 = New System.Windows.Forms.Label() Me.GroupBox21 = New System.Windows.Forms.GroupBox() Me.Label153 = New System.Windows.Forms.Label() Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() @@ -1144,6 +1142,7 @@ Me.Label135 = New System.Windows.Forms.Label() Me.TrackBar2 = New System.Windows.Forms.TrackBar() Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() +Me.Label171 = New System.Windows.Forms.Label() Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() Me.SettingsPanel.SuspendLayout Me.SettingsTabs.SuspendLayout @@ -3524,6 +3523,7 @@ Me.Panel2.BackColor = System.Drawing.Color.LightGray Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.Controls.Add(Me.GroupBox22) Me.Panel2.Controls.Add(Me.GroupBox45) +Me.Panel2.Controls.Add(Me.GroupBox6) Me.Panel2.Controls.Add(Me.GroupBox35) Me.Panel2.Controls.Add(Me.GroupBox13) Me.Panel2.Controls.Add(Me.GroupBox7) @@ -4156,7 +4156,7 @@ Me.GroupBox32.Name = "GroupBox32" Me.GroupBox32.Size = New System.Drawing.Size(427, 165) Me.GroupBox32.TabIndex = 62 Me.GroupBox32.TabStop = false -Me.GroupBox32.Text = "Stats && Information" +Me.GroupBox32.Text = "Personal Information" ' 'LBLSubBdayFormat ' @@ -14858,7 +14858,7 @@ Me.GroupBox40.Text = "Boobs" Me.GroupBox44.BackColor = System.Drawing.Color.LightGray Me.GroupBox44.Controls.Add(Me.Label100) Me.GroupBox44.ForeColor = System.Drawing.Color.Black -Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) +Me.GroupBox44.Location = New System.Drawing.Point(1149, 332) Me.GroupBox44.Name = "GroupBox44" Me.GroupBox44.Size = New System.Drawing.Size(310, 92) Me.GroupBox44.TabIndex = 65 @@ -14879,6 +14879,7 @@ Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'GroupBox6 ' +Me.GroupBox6.Controls.Add(Me.Label171) Me.GroupBox6.Controls.Add(Me.Label4) Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) @@ -14888,30 +14889,29 @@ Me.GroupBox6.Controls.Add(Me.Label65) Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) Me.GroupBox6.Controls.Add(Me.Label14) -Me.GroupBox6.Controls.Add(Me.Label13) -Me.GroupBox6.Controls.Add(Me.Label1) -Me.GroupBox6.Location = New System.Drawing.Point(27, 114) +Me.GroupBox6.Location = New System.Drawing.Point(239, 201) Me.GroupBox6.Name = "GroupBox6" -Me.GroupBox6.Size = New System.Drawing.Size(283, 102) +Me.GroupBox6.Size = New System.Drawing.Size(195, 181) Me.GroupBox6.TabIndex = 156 Me.GroupBox6.TabStop = false -Me.GroupBox6.Text = "Performance" +Me.GroupBox6.Text = "Stats" ' 'Label4 ' -Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label4.Location = New System.Drawing.Point(26, 16) +Me.Label4.AutoSize = true +Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label4.Location = New System.Drawing.Point(6, 19) Me.Label4.Name = "Label4" -Me.Label4.Size = New System.Drawing.Size(77, 17) +Me.Label4.Size = New System.Drawing.Size(75, 13) Me.Label4.TabIndex = 147 -Me.Label4.Text = "Stroking Time" +Me.Label4.Text = "Stroking Time:" Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'LBLAvgEdgeStroking ' Me.LBLAvgEdgeStroking.AutoSize = true Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(113, 68) +Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(142, 85) Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) Me.LBLAvgEdgeStroking.TabIndex = 144 @@ -14920,7 +14920,7 @@ Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'LBLStrokeTimeTotal ' -Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(26, 33) +Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(106, 17) Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) Me.LBLStrokeTimeTotal.TabIndex = 148 @@ -14929,19 +14929,20 @@ Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label94 ' +Me.Label94.AutoSize = true Me.Label94.BackColor = System.Drawing.Color.Transparent -Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label94.ForeColor = System.Drawing.Color.Black -Me.Label94.Location = New System.Drawing.Point(189, 16) +Me.Label94.Location = New System.Drawing.Point(6, 63) Me.Label94.Name = "Label94" -Me.Label94.Size = New System.Drawing.Size(65, 17) +Me.Label94.Size = New System.Drawing.Size(64, 13) Me.Label94.TabIndex = 150 Me.Label94.Text = "Last Ruined" Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'LBLLastRuined ' -Me.LBLLastRuined.Location = New System.Drawing.Point(184, 31) +Me.LBLLastRuined.Location = New System.Drawing.Point(111, 61) Me.LBLLastRuined.Name = "LBLLastRuined" Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) Me.LBLLastRuined.TabIndex = 152 @@ -14950,12 +14951,13 @@ Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label65 ' +Me.Label65.AutoSize = true Me.Label65.BackColor = System.Drawing.Color.Transparent -Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label65.ForeColor = System.Drawing.Color.Black -Me.Label65.Location = New System.Drawing.Point(103, 16) +Me.Label65.Location = New System.Drawing.Point(6, 41) Me.Label65.Name = "Label65" -Me.Label65.Size = New System.Drawing.Size(85, 17) +Me.Label65.Size = New System.Drawing.Size(66, 13) Me.Label65.TabIndex = 149 Me.Label65.Text = "Last Orgasm" Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -14964,7 +14966,7 @@ Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' Me.LBLAvgEdgeNoTouch.AutoSize = true Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(215, 68) +Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(142, 107) Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) Me.LBLAvgEdgeNoTouch.TabIndex = 146 @@ -14973,7 +14975,7 @@ Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'LBLLastOrgasm ' -Me.LBLLastOrgasm.Location = New System.Drawing.Point(107, 31) +Me.LBLLastOrgasm.Location = New System.Drawing.Point(111, 39) Me.LBLLastOrgasm.Name = "LBLLastOrgasm" Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) Me.LBLLastOrgasm.TabIndex = 151 @@ -14982,47 +14984,27 @@ Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label14 ' +Me.Label14.AutoSize = true Me.Label14.BackColor = System.Drawing.Color.Transparent -Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label14.ForeColor = System.Drawing.Color.Black -Me.Label14.Location = New System.Drawing.Point(25, 48) +Me.Label14.Location = New System.Drawing.Point(6, 85) Me.Label14.Name = "Label14" -Me.Label14.Size = New System.Drawing.Size(238, 17) +Me.Label14.Size = New System.Drawing.Size(131, 13) Me.Label14.TabIndex = 138 -Me.Label14.Text = "Average Time to Edge" +Me.Label14.Text = "Avg Edge Time (Stroking):" Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' -'Label13 -' -Me.Label13.AutoSize = true -Me.Label13.Location = New System.Drawing.Point(177, 68) -Me.Label13.Name = "Label13" -Me.Label13.Size = New System.Drawing.Size(32, 13) -Me.Label13.TabIndex = 145 -Me.Label13.Text = "Rest:" -Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label1 -' -Me.Label1.AutoSize = true -Me.Label1.Location = New System.Drawing.Point(28, 68) -Me.Label1.Name = "Label1" -Me.Label1.Size = New System.Drawing.Size(79, 13) -Me.Label1.TabIndex = 143 -Me.Label1.Text = "While Stroking:" -Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' 'GroupBox21 ' Me.GroupBox21.BackColor = System.Drawing.Color.LightGray Me.GroupBox21.Controls.Add(Me.Label153) Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) -Me.GroupBox21.Controls.Add(Me.GroupBox6) Me.GroupBox21.Controls.Add(Me.Label156) Me.GroupBox21.ForeColor = System.Drawing.Color.Black -Me.GroupBox21.Location = New System.Drawing.Point(797, 55) +Me.GroupBox21.Location = New System.Drawing.Point(1143, 163) Me.GroupBox21.Name = "GroupBox21" -Me.GroupBox21.Size = New System.Drawing.Size(316, 136) +Me.GroupBox21.Size = New System.Drawing.Size(316, 216) Me.GroupBox21.TabIndex = 66 Me.GroupBox21.TabStop = false Me.GroupBox21.Text = "Description" @@ -15239,6 +15221,19 @@ Me.TextBox2.ReadOnly = true Me.TextBox2.Size = New System.Drawing.Size(189, 20) Me.TextBox2.TabIndex = 145 ' +'Label171 +' +Me.Label171.AutoSize = true +Me.Label171.BackColor = System.Drawing.Color.Transparent +Me.Label171.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) +Me.Label171.ForeColor = System.Drawing.Color.Black +Me.Label171.Location = New System.Drawing.Point(6, 107) +Me.Label171.Name = "Label171" +Me.Label171.Size = New System.Drawing.Size(114, 13) +Me.Label171.TabIndex = 153 +Me.Label171.Text = "Avg Edge Time (Rest):" +Me.Label171.TextAlign = System.Drawing.ContentAlignment.MiddleCenter +' 'BWURLFiles ' Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" @@ -15732,9 +15727,7 @@ End Sub Friend WithEvents LBLStrokeTimeTotal As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents LBLAvgEdgeNoTouch As System.Windows.Forms.Label - Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents LBLAvgEdgeStroking As System.Windows.Forms.Label - Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents PictureBox12 As System.Windows.Forms.PictureBox Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox @@ -16732,4 +16725,5 @@ End Sub Friend WithEvents GroupBox14 As GroupBox Friend WithEvents alwaysNewSlideshow As System.Windows.Forms.CheckBox Friend WithEvents Label169 As System.Windows.Forms.Label + Friend WithEvents Label171 As System.Windows.Forms.Label End Class diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index e7b6bc6..3d80404 100644 --- a/Tease AI/My Project/AssemblyInfo.vb +++ b/Tease AI/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - + From 782ef9329cc8ab9368f342e9db2d59688235778c Mon Sep 17 00:00:00 2001 From: pepsifreak Date: Fri, 23 Jun 2017 03:01:47 -0400 Subject: [PATCH 131/143] Fix saving of Custom1/Custom2 glitter settings --- README.md | 1 + Tease AI/Form2.Designer.vb | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 9753c50..8e51474 100644 --- a/README.md +++ b/README.md @@ -69,6 +69,7 @@ Stefaf: Integration of Class myDirectory: Status ongoing. * @ChangeVar[] didn't process negative numbers correctly. @ChangeVar[a]=[a]+[#random(-1,3)] for example, will now correctly substract 1 if -1 is rolled in the random (previously it was adding it) (dariobrun) * Videos were not stretched to fit the window in certain situations (dariobrun) * #DomHairLength now outputs correctly + * Custom1 and Custom2 glitter settings now save correctly * Miscellaneous: diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index df2e871..4f4bdf8 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -10036,8 +10036,8 @@ Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter 'CBCustom2 ' Me.CBCustom2.AutoSize = true -Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 -Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CBCustom2 +Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCustom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.CBCustom2.ForeColor = System.Drawing.Color.Black Me.CBCustom2.Location = New System.Drawing.Point(149, 121) Me.CBCustom2.Name = "CBCustom2" @@ -10062,8 +10062,8 @@ Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider 'CBCustom1 ' Me.CBCustom1.AutoSize = true -Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 -Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) +Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CBCustom1 +Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCustom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.CBCustom1.ForeColor = System.Drawing.Color.Black Me.CBCustom1.Location = New System.Drawing.Point(149, 98) Me.CBCustom1.Name = "CBCustom1" From 46d751c581ea8b615aee189f0cf4da90fe2472f0 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Wed, 1 Nov 2017 17:59:32 +0100 Subject: [PATCH 132/143] dariorbun's Patch 55.3 All credits go to dariorbun. Let's make your unofficial Patch 0.55.3.0 official! --- Tease AI/Classes/State.vb | 3 +- Tease AI/Classes/subAnswers.vb | 6 +- Tease AI/Form1.Designer.vb | 17 +- Tease AI/Form1.resx | 12 - Tease AI/Form1.vb | 809 +- Tease AI/Form1/ImageFuctions.vb | 172 +- Tease AI/Form2.Designer.vb | 31188 +++++++++++---------- Tease AI/Form2.vb | 8 + Tease AI/My Project/AssemblyInfo.vb | 2 +- Tease AI/My Project/Settings.Designer.vb | 16 +- 10 files changed, 16153 insertions(+), 16080 deletions(-) diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 9f4246e..9602809 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -420,7 +420,6 @@ Public Class SessionState Public Property Contact1Edge As Boolean Public Property Contact2Edge As Boolean Public Property Contact3Edge As Boolean - Public Property ContactRoomUpdate As String = "" Public Property Contact1Stroke As Boolean Public Property Contact2Stroke As Boolean @@ -711,7 +710,7 @@ Public Class SessionState Friend Files As New FileClass(Me) Friend Folders As New FoldersClass(Me) - Dim ActivationForm As Form1 + Dim ActivationForm As Form1 #Region "------------------------------------- Constructors----------------------------------------------" diff --git a/Tease AI/Classes/subAnswers.vb b/Tease AI/Classes/subAnswers.vb index 9bedde4..a1858b6 100644 --- a/Tease AI/Classes/subAnswers.vb +++ b/Tease AI/Classes/subAnswers.vb @@ -42,12 +42,12 @@ Public Class subAnswers Return answerList End Function - Public Function returnSystemWord(ByVal wordList As String) As String + Public Function returnSystemWord(wordList As String) As String For i As Integer = 0 To checkList.Count() - 1 Dim list As String() = ssh.obtainSplitParts(checkList(i), False) For n As Integer = 0 To list.Count - 1 If Trim(UCase(wordList)) = Trim((UCase(list(n)))) Then - Select i + Select Case i Case 0 Return "hi" Case 1 @@ -80,7 +80,7 @@ Public Class subAnswers answerList.Clear() End Sub - Public Function triggerWord(ByVal chatstring As String) As String + Public Function triggerWord(chatstring As String) As String 'we first order the list based on lenght of the answer option (and if equal lenght, by the order in which they are in the answer list) diff --git a/Tease AI/Form1.Designer.vb b/Tease AI/Form1.Designer.vb index cbc0451..c7c7527 100644 --- a/Tease AI/Form1.Designer.vb +++ b/Tease AI/Form1.Designer.vb @@ -492,7 +492,7 @@ Partial Class Form1 Me.mainPictureBox.Image = CType(resources.GetObject("mainPictureBox.Image"), System.Drawing.Image) Me.mainPictureBox.Location = New System.Drawing.Point(0, 0) Me.mainPictureBox.Name = "mainPictureBox" - Me.mainPictureBox.Size = New System.Drawing.Size(1398, 536) + Me.mainPictureBox.Size = New System.Drawing.Size(1398, 488) Me.mainPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.mainPictureBox.TabIndex = 3 Me.mainPictureBox.TabStop = False @@ -544,23 +544,19 @@ Partial Class Form1 ' 'DomWMP ' - 'Me.DomWMP.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - ' Or System.Windows.Forms.AnchorStyles.Left) _ - ' Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.DomWMP.Dock = System.Windows.Forms.DockStyle.Fill Me.DomWMP.Enabled = True Me.DomWMP.Location = New System.Drawing.Point(0, 0) Me.DomWMP.Name = "DomWMP" Me.DomWMP.OcxState = CType(resources.GetObject("DomWMP.OcxState"), System.Windows.Forms.AxHost.State) - 'Me.DomWMP.Size = New System.Drawing.Size(1398, 698) - Me.DomWMP.Size = New System.Drawing.Size(1398, 536) + Me.DomWMP.Size = New System.Drawing.Size(1398, 482) Me.DomWMP.TabIndex = 96 Me.DomWMP.Visible = False ' 'ProgressBar_BGW_Images ' Me.ProgressBar_BGW_Images.Dock = System.Windows.Forms.DockStyle.Bottom - Me.ProgressBar_BGW_Images.Location = New System.Drawing.Point(0, 530) + Me.ProgressBar_BGW_Images.Location = New System.Drawing.Point(0, 482) Me.ProgressBar_BGW_Images.MarqueeAnimationSpeed = 10000 Me.ProgressBar_BGW_Images.Name = "ProgressBar_BGW_Images" Me.ProgressBar_BGW_Images.Size = New System.Drawing.Size(1398, 6) @@ -599,7 +595,7 @@ Partial Class Form1 Me.PnlChatTextLayout.Location = New System.Drawing.Point(0, 32) Me.PnlChatTextLayout.Name = "PnlChatTextLayout" Me.PnlChatTextLayout.Padding = New System.Windows.Forms.Padding(1) - Me.PnlChatTextLayout.Size = New System.Drawing.Size(1398, 361) + Me.PnlChatTextLayout.Size = New System.Drawing.Size(1398, 409) Me.PnlChatTextLayout.TabIndex = 783 ' 'ChatText @@ -608,7 +604,7 @@ Partial Class Form1 Me.ChatText.Location = New System.Drawing.Point(1, 1) Me.ChatText.MinimumSize = New System.Drawing.Size(2, 20) Me.ChatText.Name = "ChatText" - Me.ChatText.Size = New System.Drawing.Size(1396, 359) + Me.ChatText.Size = New System.Drawing.Size(1396, 407) Me.ChatText.TabIndex = 1 ' 'PNLMediaBar @@ -626,6 +622,7 @@ Partial Class Form1 Me.PNLMediaBar.Padding = New System.Windows.Forms.Padding(1, 1, 1, 10) Me.PNLMediaBar.Size = New System.Drawing.Size(1398, 32) Me.PNLMediaBar.TabIndex = 97 + Me.PNLMediaBar.Visible = False ' 'ImageFolderComboBox ' @@ -770,7 +767,7 @@ Partial Class Form1 Me.BtnToggleMediaPanel.Name = "BtnToggleMediaPanel" Me.BtnToggleMediaPanel.Size = New System.Drawing.Size(111, 24) Me.BtnToggleMediaPanel.TabIndex = 147 - Me.BtnToggleMediaPanel.Text = "Hide Media Panel" + Me.BtnToggleMediaPanel.Text = "Show Media Panel" Me.BtnToggleMediaPanel.UseVisualStyleBackColor = False ' 'BtnToggleImageVideo diff --git a/Tease AI/Form1.resx b/Tease AI/Form1.resx index 2073a86..9a9554c 100644 --- a/Tease AI/Form1.resx +++ b/Tease AI/Form1.resx @@ -1250,24 +1250,12 @@ 821, 56 - - 1424, 128 - - - 17, 167 - - - 17, 128 - 148, 167 301, 167 - - 896, 128 - 518, 167 diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 186cec9..6f5c09b 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -24,7 +24,7 @@ Public Class Form1 Friend Shared ReadOnly pathImageErrorNoLocalImages As String = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg" Friend Shared ReadOnly SavedSessionDefaultPath As String = Application.StartupPath & "\System\SavedState.save" -#End Region ' File Constants. +#End Region ' File Constants. ' Github Patch Public FormLoading As Boolean Friend FormLoading As Boolean = True @@ -109,7 +109,7 @@ Public Class Form1 End SyncLock End Get End Property -#End Region ' StrokePace +#End Region ' StrokePace Public synth As New SpeechSynthesizer Public synth2 As New SpeechSynthesizer @@ -140,7 +140,7 @@ Public Class Form1 End Function Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, - ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer + ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer @@ -277,16 +277,16 @@ retryStart: Dim tv As Version = My.Application.Info.Version Me.Text = String.Format("Tease A.I. - PATCH {0}.{1}{2}", - tv.Minor, - tv.Build, - If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) + tv.Minor, + tv.Build, + If(tv.MinorRevision > 0, "." & tv.MinorRevision, "")) FormLoading = True FrmSplash.Show() FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking orgasm limit..." ' 1 + FrmSplash.LBLSplash.Text = "Checking orgasm limit..." ' 1 FrmSplash.Refresh() If My.Settings.OrgasmLockDate = Nothing Then My.Settings.OrgasmLockDate = FormatDateTime(Now, DateFormat.ShortDate) @@ -756,6 +756,12 @@ retryStart: FrmSettings.CBHonorificInclude.Checked = False End If + If My.Settings.CBUseName = True Then + FrmSettings.CBNameInclude.Checked = True + Else + FrmSettings.CBNameInclude.Checked = False + End If + If My.Settings.CBCapHonor = True Then FrmSettings.CBHonorificCapitalized.Checked = True Else @@ -794,8 +800,8 @@ retryStart: FrmSplash.PBSplash.Value += 1 FrmSplash.LBLSplash.Text = "Configuring media player..." FrmSplash.Refresh() - - DomWMP.Height = SplitContainer1.Panel1.Height + 60 + + DomWMP.uiMode = "none" If My.Settings.DomAVStretch = False Then domAvatar.SizeMode = PictureBoxSizeMode.Zoom 'If My.Settings.SubAvStretch = False Then subAvatar.SizeMode = PictureBoxSizeMode.Zoom @@ -1648,7 +1654,7 @@ WritingTaskLine: ssh.Chat = "" & ssh.Chat & "" If CBWritingProgress.Checked = True Then ssh.Chat = "" & ssh.Chat & ssh.ChatString & "
 " _ - & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" + & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining", "Time Expired") ssh.Chat = ssh.Chat.Replace(" 1 lines", " 1 line") ssh.Chat = ssh.Chat.Replace(" 0 lines remaining", " Task Completed") @@ -1790,7 +1796,7 @@ WritingTaskLine: If ssh.randomWriteTask Then setWriteTask() End If - If ssh.AFK = True Then Return + If ssh.AFK And Not ssh.YesOrNo Then Return ' Previous Commas @@ -1909,9 +1915,10 @@ WritingTaskLine: Debug.Print("EdgeFOund = ATE") AvoidTheEdgeTaunts.Stop() + + ssh.SessionEdges += 1 ssh.AvoidTheEdgeStroking = False ssh.VideoTease = False - SetVariable("SYS_EdgeTotal", Val(GetVariable("SYS_EdgeTotal") + 1)) Dim ATEList As New List(Of String) @@ -2514,7 +2521,7 @@ DebugAwareness: If ssh.YesOrNo = True And ssh.SubEdging = True Then GoTo EdgeSkip If ssh.YesOrNo = True And ssh.SubHoldingEdge = True Then GoTo EdgeSkip - If ssh.YesOrNo = True And ssh.OrgasmYesNo = False And ssh.DomTypeCheck = False Then 'And ssh.TasksCount <= 0 Then + If ssh.YesOrNo = True And ssh.OrgasmYesNo = False And ssh.DomTypeCheck = False Then 'And ssh.TasksCount <= 0 Then YesOrNoQuestions() Return End If @@ -2562,6 +2569,8 @@ EdgeSkip: + + 'If BeforeTease = True And CBDebugAwareness.Checked = False Then Return Dim CheckResponse As String = UCase(ssh.ChatString) @@ -2788,8 +2797,7 @@ EdgeSkip: End If If ssh.BeforeTease = False Then - If UCase(CheckResponse).Contains(UCase("I cum")) Or UCase(CheckResponse).Contains(UCase("me cum")) Or UCase(CheckResponse).Contains(UCase("I have an orgasm")) _ - Or UCase(CheckResponse).Contains(UCase("me have an orgasm")) Then + If UCase(CheckResponse).Contains(UCase("I have an orgasm")) Or UCase(CheckResponse).Contains(UCase("me have an orgasm")) Then If ssh.TeaseTick > 0 Then ssh.ResponseFile = (Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\BegToCum.txt") If My.Settings.Chastity = False And ssh.OrgasmRestricted = False Then ssh.TeaseTick = ssh.TeaseTick / 2 @@ -2853,7 +2861,11 @@ EdgeSkip: Dim SplitResponse As String() = SplitText.Split(New Char() {"]"c}) SplitResponse(0) = SplitResponse(0).Replace("[", "") - + If SplitResponse(0).Contains("#") Then + ssh.addResponseList = True + SplitResponse(0) = PoundClean(SplitResponse(0)) + ssh.addResponseList = False + End If Do SplitResponse(0) = SplitResponse(0).Replace(" ", " ") SplitResponse(0) = SplitResponse(0).Replace(" ,", ",") @@ -2927,6 +2939,11 @@ DebugAwarenessStep2: Dim SplitResponse As String() = SplitText.Split(New Char() {"]"c}) SplitResponse(0) = SplitResponse(0).Replace("[", "") + If SplitResponse(0).Contains("#") Then + ssh.addResponseList = True + SplitResponse(0) = PoundClean(SplitResponse(0)) + ssh.addResponseList = False + End If Do SplitResponse(0) = SplitResponse(0).Replace(" ", " ") @@ -2960,6 +2977,11 @@ DebugAwarenessStep2: Dim SplitResponse As String() = SplitText.Split(New Char() {"]"c}) SplitResponse(0) = SplitResponse(0).Replace("[", "") + If SplitResponse(0).Contains("#") Then + ssh.addResponseList = True + SplitResponse(0) = PoundClean(SplitResponse(0)) + ssh.addResponseList = False + End If Do SplitResponse(0) = SplitResponse(0).Replace(" ", " ") @@ -3393,7 +3415,7 @@ FoundState: CleanResponse = DRLines(ssh.ResponseLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Response line from file: " & - ssh.ResponseFile, ex, "ReponseClean(String)") + ssh.ResponseFile, ex, "ReponseClean(String)") CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile End Try @@ -3508,7 +3530,7 @@ NullSkip: GoTo NothingFound FoundAnswer: - 'updateDommeName(ChatReplace) + ' updateDommeName(ChatReplace) ssh.DomChat = ChatReplace 'we clear the answer list If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True @@ -3621,7 +3643,7 @@ AcceptAnswer: ' ArgumentOutOfRangeException - Regular Script '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Throw New ArgumentOutOfRangeException("The Goto-Destination """ & ssh.FileGoto & - """ in file """ & GotoText & """ was not found.", ex) + """ in file """ & GotoText & """ was not found.", ex) End Try ssh.StrokeTauntVal = gotoline @@ -3638,7 +3660,7 @@ AcceptAnswer: Public Sub ScriptTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScriptTimer.Tick FrmSettings.LBLDebugScriptTime.Text = ssh.ScriptTick - 'Debug.Print("ScriptTick = " & ssh.ScriptTick) + 'Debug.Print("ScriptTick = " & ScriptTick) If ssh.DomTyping = True Then Return If ssh.YesOrNo = True Then Return @@ -3697,7 +3719,7 @@ AcceptAnswer: ssh.DomTask = BallList(ssh.randomizer.Next(0, BallList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTBalls line from file: " & - File2Read, ex, "CBTBalls()") + File2Read, ex, "CBTBalls()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read End Try @@ -3725,7 +3747,7 @@ AcceptAnswer: ssh.DomTask = CockList(ssh.randomizer.Next(0, CockList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBTCock line from file: " & - File2Read, ex, "CBTCock()") + File2Read, ex, "CBTCock()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read End Try @@ -3766,7 +3788,7 @@ AcceptAnswer: ssh.DomTask = BothList(ssh.randomizer.Next(0, BothList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid @CBT line from file: " & - File2Read, ex, "CBTBoth()") + File2Read, ex, "CBTBoth()") ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read End Try @@ -4377,8 +4399,8 @@ ResumeGotoSearch: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") - 'Dim GotoLikeList As New List(Of String) - 'GotoLikeList = Txt2List(GotoText) + ' Dim GotoLikeList As New List(Of String) + ' GotoLikeList = Txt2List(GotoText) ' BreakPoint Do @@ -4456,12 +4478,8 @@ CancelGoto: If My.Settings.OfflineMode = True Then ssh.DomChat = OfflineConversion(ssh.DomChat) End If - If ssh.ContactRoomUpdate <> "" Then - ChatAddSystemMessage(ssh.ContactRoomUpdate, False) - ssh.ContactRoomUpdate = "" - End If ssh.TypeDelay = ssh.StringLength - If FrmSettings.typeinstantlyCheckBox.Checked = True Then ssh.TypeDelay = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 If ssh.TypeDelay <> 0 Then If GetCharCount(ssh.DomChat, "@RT(") <> 0 Then ssh.TypeDelay /= GetCharCount(ssh.DomChat, ",") + 1 @@ -4483,13 +4501,8 @@ CancelGoto: If My.Settings.OfflineMode = True Then ssh.DomTask = OfflineConversion(ssh.DomTask) End If - If ssh.ContactRoomUpdate <> "" Then - ChatAddSystemMessage(ssh.ContactRoomUpdate, False) - ssh.ContactRoomUpdate = "" - End If ssh.TypeDelay = ssh.StringLength - If FrmSettings.typeinstantlyCheckBox.Checked = True Then ssh.TypeDelay = 0 - If ssh.RapidCode = True Then ssh.TypeDelay = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True = True Then ssh.TypeDelay = 0 If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.TypeDelay = 0 If ssh.TypeDelay <> 0 Then If GetCharCount(ssh.DomTask, "@RT(") <> 0 Then @@ -4585,6 +4598,7 @@ SkipIsTyping: + ssh.TypeToggle = 1 ssh.StringLength = ssh.DomTask.Length If ssh.DivideText = True Then @@ -4592,8 +4606,7 @@ SkipIsTyping: ssh.DivideText = False End If If ssh.RLGLGame = True Then ssh.StringLength = 0 - If FrmSettings.typeinstantlyCheckBox.Checked = True Then ssh.StringLength = 0 - If ssh.RapidCode = True Then ssh.StringLength = 0 + If FrmSettings.typeinstantlyCheckBox.Checked = True Or ssh.RapidCode = True Then ssh.StringLength = 0 If ssh.HypnoGen = True And CBHypnoGenNoText.Checked = True Then ssh.StringLength = 0 TypingDelayGeneric() End If @@ -5036,7 +5049,7 @@ NullResponse: TextColor & """>
" & ssh.DomTask & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" End If @@ -5261,14 +5274,7 @@ DommeSlideshowFallback: If ssh.YesOrNo = False Then If ssh.RapidCode = True Then - If WaitTimer.Enabled = False Then - RunFileText() - Else - WaitTimer.Stop() - ssh.ScriptTick = ssh.WaitTick - ssh.WaitTick = 0 - ScriptTimer.Start() - End If + If Not WaitTimer.Enabled Then RunFileText() Else ssh.ScriptTick = ssh.randomizer.Next(4, 7) If ssh.RapidFire = True Then ssh.ScriptTick = 1 @@ -5329,7 +5335,7 @@ DommeSlideshowFallback: End If End If - If ssh.giveUpReturn Then + If ssh.giveUpReturn Then ssh.ShowModule = True ssh.AskedToGiveUpSection = False ScriptTimer.Start() @@ -5374,8 +5380,8 @@ DommeSlideshowFallback: Public Shared Function GetShortPathName(ByVal lpszLongPath As String, - ByVal lpszShortPath As System.Text.StringBuilder, - ByVal cchBuffer As Int32) As Int32 + ByVal lpszShortPath As System.Text.StringBuilder, + ByVal cchBuffer As Int32) As Int32 End Function Private Sub SendTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendTimer.Tick @@ -5707,7 +5713,7 @@ TryNextWithTease: If ssh.EmoMes = True Then ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.DomChat & "
" ssh.EmoMes = False GoTo EndSysMes End If @@ -5733,7 +5739,7 @@ TryNextWithTease: If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" Else @@ -5742,13 +5748,13 @@ TryNextWithTease: TextColor & """>
" & ssh.DomChat & "

" Else ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If ssh.TypeToggle = 0 If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" + ssh.contactToUse.TypeColorHtml & """>" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" End If @@ -6268,7 +6274,7 @@ Retry: mwe.Handled = True End Sub -#End Region ' Images +#End Region ' Images #Region " VLC " @@ -6313,11 +6319,11 @@ Retry: Private Sub BTNVideoControls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVideoControls.Click - If DomWMP.Height = SplitContainer1.Panel1.Height Then - DomWMP.Height = SplitContainer1.Panel1.Height + 60 + If BTNVideoControls.Text = "Hide Video Controls" Then + DomWMP.uiMode = "none" BTNVideoControls.Text = "Show Video Controls" Else - DomWMP.Height = SplitContainer1.Panel1.Height + DomWMP.uiMode = "full" BTNVideoControls.Text = "Hide Video Controls" End If @@ -6443,6 +6449,7 @@ Retry: If ssh.GlitterTease = True Then tauntFile = "GlitterTaunts" Dim TauntFiles As New List(Of TauntProcessingObject) + For Each str As String In myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", tauntFile & "_*.txt", SearchOption.TopDirectoryOnly) Dim Taunt As New TauntProcessingObject(str, Me) If Taunt.Avaialable Then TauntFiles.Add(Taunt) @@ -6613,38 +6620,38 @@ Retry: ' Special - Videos '====================================================================================== If My.Settings.CBJOI = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "JOI") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI)) If My.Settings.CBCH = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "CH") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCH)) SkipSpecial: '====================================================================================== ' General Videos '====================================================================================== If My.Settings.CBGeneral = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "GENERAL") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneral)) '====================================================================================== ' Domme - Videos '====================================================================================== If My.Settings.CBHardcoreD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "HARDCORE DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoHardcoreD)) If My.Settings.CBSoftcoreD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "SOFTCORE DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoSoftcoreD)) If My.Settings.CBLesbianD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "LESBIAN DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoLesbianD)) If My.Settings.CBBlowjobD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "BLOWJOB DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoBlowjobD)) If My.Settings.CBFemdomD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMDOM DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemdomD)) If My.Settings.CBFemsubD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "FEMSUB DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoFemsubD)) If ssh.NoSpecialVideo = True Then GoTo SkipSpecialD If ssh.ScriptVideoTeaseFlag = True Then @@ -6657,17 +6664,17 @@ SkipSpecial: ' Domme - Special - Videos '====================================================================================== If My.Settings.CBJOID = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "JOI DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOID)) If My.Settings.CBCHD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "CH DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoCHD)) SkipSpecialD: '====================================================================================== ' Domme - General Videos '====================================================================================== If My.Settings.CBGeneralD = True And (ssh.VideoGenre = "ALL" Or ssh.VideoGenre = "GENERAL DOMME") Then _ - __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) + __TotalFiles.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoGeneralD)) ssh.VideoGenre = "ALL" @@ -6786,12 +6793,12 @@ GetAnotherRandomVideo: If FrmSettings.LblVideoJOITotal.Text <> "0" And My.Settings.CBJOI = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If FrmSettings.LblVideoJOITotalD.Text <> "0" And My.Settings.CBJOID = True Then JOIVideos.AddRange(myDirectory.GetFilesVideo(My.Settings.VideoJOI, - System.IO.SearchOption.AllDirectories)) + System.IO.SearchOption.AllDirectories)) End If If JOIVideos.Count < 1 Then @@ -6951,7 +6958,7 @@ CensorConstant: ssh.DomTask = lines(CensorLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Censorship Sucks line from file: " & - CensorVideo, ex, "CensorshipTimer.Tick") + CensorVideo, ex, "CensorshipTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo End Try @@ -7004,7 +7011,7 @@ CensorConstant: ssh.DomTask = tempList(ssh.randomizer.Next(0, tempList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid RLGL line from file: " & - file2read, ex, "RLGLTimer.Tick") + file2read, ex, "RLGLTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read End Try @@ -7551,11 +7558,15 @@ StatusUpdateEnd: StatusUpdatePost() + End If End If End Sub + + + 'TODO-Next: Move to proper Region Private Sub MediaButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleMediaPanel.Click @@ -7626,6 +7637,7 @@ StatusUpdateEnd: End If StringClean = StringClean.Replace("#MainDom", My.Settings.DomName) + StringClean = StringClean.Replace("#MainHonorific", My.Settings.SubHonorific) If StringClean.Contains("#Contact1Honorific") Then StringClean = StringClean.Replace("#Contact1Honorific", My.Settings.G1Honorific) @@ -7735,6 +7747,7 @@ StatusUpdateEnd: If StringClean.Contains("#RandomRound10(") Then + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound10(") Dim OriginalFlag As String = RandomFlag RandomFlag = FixCommas(RandomFlag) @@ -7747,8 +7760,10 @@ StatusUpdateEnd: End If + If StringClean.Contains("#RandomRound5(") Then + Dim RandomFlag As String = GetParentheses(StringClean, "#RandomRound5(") Dim OriginalFlag As String = RandomFlag RandomFlag = FixCommas(RandomFlag) @@ -7761,6 +7776,7 @@ StatusUpdateEnd: End If + If StringClean.Contains("#Random(") Then Dim randomArray As String() = StringClean.Split(")") @@ -7782,29 +7798,34 @@ StatusUpdateEnd: End If If StringClean.Contains("#DateDifference(") Then + Dim myArray As String() = StringClean.Split("#") - Dim DateFlag As String = GetParentheses(StringClean, "#DateDifference(") - Dim OriginalFlag As String = DateFlag - DateFlag = FixCommas(DateFlag) - Dim DateArray() As String = DateFlag.Split(",") + For i As Integer = 0 To myArray.Count - 1 - Dim DDiff As Integer + If myArray(i).Contains("DateDifference") Then + Dim DateFlag As String = GetParentheses(StringClean, "DateDifference(") + Dim OriginalFlag As String = DateFlag + DateFlag = FixCommas(DateFlag) + Dim DateArray() As String = DateFlag.Split(",") - If UCase(DateArray(1)).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) * 7 - If UCase(DateArray(1)).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateArray(0)), Now) - If UCase(DateArray(1)).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateArray(0)), Now) + Dim DDiff As Integer - StringClean = StringClean.Replace("#DateDifference(" & OriginalFlag & ")", DDiff) + If UCase(DateArray(1)).Contains("SECOND") Then DDiff = DateDiff(DateInterval.Second, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("MINUTE") Then DDiff = DateDiff(DateInterval.Minute, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("HOUR") Then DDiff = DateDiff(DateInterval.Hour, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("DAY") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("WEEK") Then DDiff = DateDiff(DateInterval.Day, GetDate(DateArray(0)), Now) * 7 + If UCase(DateArray(1)).Contains("MONTH") Then DDiff = DateDiff(DateInterval.Month, GetDate(DateArray(0)), Now) + If UCase(DateArray(1)).Contains("YEAR") Then DDiff = DateDiff(DateInterval.Year, GetDate(DateArray(0)), Now) + StringClean = StringClean.Replace("#DateDifference(" & OriginalFlag & ")", DDiff) + End If + Next End If - Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) + Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox3.Text If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox4.Text @@ -8283,7 +8304,6 @@ StatusUpdateEnd: StringClean = StringClean.Replace(keyword.Value, lines(PoundVal)) Else - 'StringClean = StringClean.Replace(keyword.Value, "" & keyword.Value & "") Dim wrong As String = keyword.Value wrong = wrong.Remove(0, 1) @@ -8314,26 +8334,19 @@ StatusUpdateEnd: If UCase(wrong) = "#NULL" Then StringClean = StringClean.Replace(keyword.Value, "") Else - wrong = SysKeywordClean(wrong) - - If wrong.Contains("#") Then - wrong = wrong.Remove(0, 1) - wrong = "Missing Vocab: " & wrong - StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") - ssh.KeywordError = "" & wrong & "" - Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" - Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") - Else - StringClean = StringClean.Replace(keyword.Value, wrong) - End If - + wrong = wrong.Remove(0, 1) + wrong = "Missing Vocab: " & wrong + StringClean = StringClean.Replace(keyword.Value, "" & wrong & "") + ssh.KeywordError = "" & wrong & "" + Dim lazytext As String = "Unable to locate vocabulary file: """ & keyword.Value & """" + Log.WriteError(lazytext, New Exception(lazytext), "PoundClean(String)") + End If - End If End If - alreadyChecked.Add(keyword.Value) End If + alreadyChecked.Add(keyword.Value) Next #If TRACE Then @@ -8352,8 +8365,8 @@ StatusUpdateEnd: End If #End If Log.WriteError("Maximum allowed Vocabulary depth reached for line:" & OrgString & vbCrLf & - "Aborted Cleaning at: " & StringClean, - New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") + "Aborted Cleaning at: " & StringClean, + New StackOverflowException("PoundClean infinite loop protection"), "PoundClean(String)") Else #If TRACE Then If TS.TraceVerbose Then @@ -8583,13 +8596,13 @@ RinseLatherRepeat: If StringClean.Contains("@ImageTagOr(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") - ShowImage(GetLocalImage(TagFlag, , "Or"), False) + ShowImage(GetLocalImage(TagFlag,, "Or"), False) StringClean = StringClean.Replace("@ImageTagOr(" & TagFlag & ")", "") End If If StringClean.Contains("@ImageTagAny(") Then Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagAny(") - ShowImage(GetLocalImage(TagFlag, , "Any"), False) + ShowImage(GetLocalImage(TagFlag,, "Any"), False) StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") End If @@ -8784,8 +8797,8 @@ RinseLatherRepeat: '=============================================================================== If StringClean.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = StringClean.Split() _ - .Select(Function(s) s.Trim()) _ - .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList + .Select(Function(s) s.Trim()) _ + .Where(Function(w) CType(w, String).StartsWith("@Tag")).ToList Dim FoundString As String = GetLocalImage(Tags, Nothing) @@ -9272,94 +9285,6 @@ TaskCleanSet: 'StringClean = Join(DeleteArray, Nothing) End If - ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. - ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] - ' Multiple @SetVar[] Commands may be used per line if you wish. - ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | - - If StringClean.Contains("@SetVar[") Then - Dim VarArray As String() = StringClean.Split - - For i As Integer = 0 To VarArray.Count - 1 - - Dim SCGotVar As String = "NULL" - - If VarArray(i).Contains("@SetVar[") Then - SCGotVar = VarArray(i) - VarArray(i) = "" - - SCGotVar = SCGotVar.Replace("@SetVar[", "") - - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - - Dim VarName As String = SCGotVarSplit(0) - - SCGotVarSplit(0) = "" - - SCGotVar = Join(SCGotVarSplit) - - SCGotVar = SCGotVar.Replace("=[", "") - SCGotVar = SCGotVar.Replace(" ", "") - - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) - End If - Next - StringClean = Join(VarArray) - End If - - ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . - ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) - ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. - ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is - ' specified, "Days" will be used. - - If StringClean.Contains("@SetDate(") Then - Dim CheckArray As String() = StringClean.Split(")") - Dim OriginalCheck As String - - For i As Integer = 0 To CheckArray.Count - 1 - - If CheckArray(i).Contains("@SetDate(") Then - - 'CheckArray(i) = CheckArray(i) & "]" - - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") - OriginalCheck = CheckFlag - - Debug.Print("Original Check = " & OriginalCheck) - - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") - - Dim FlagArray() As String = CheckFlag.Split(",") - - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - - If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) - If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) - If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) - - If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ - And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ - And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) - - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) - - Debug.Print("CheckArray(i) = " & CheckArray(i)) - - ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") - - StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") - End If - Next - 'StringClean = Join(CheckArray, Nothing) - End If - - ' The @RoundVar Command is used to take an existing Variable and round it by the amount specified. The correct format is @Round[VarName]=[RoundAmount] ' For example, @RoundVar[StrokeTotal]=[10] wound round the Variable "StrokeTotal" by 10. ' @Round[] will only round the and save Variable, it will not display it. More than one @Round[] Command can be used per line @@ -9516,6 +9441,102 @@ TaskCleanSet: Next End If + ' The @SetVar[] Command is used to set a Variable and store it in System\Variables. The syntax for using @SetVar[] is @SetVar[VariableName]=[Value]. + ' For example, @SetVar[MyNumber]=[12] would save the Variable "MyNumber" as a value of 12. You can also set string Variables this way, such as @SetVar[MyString]=[lasagna] + ' Multiple @SetVar[] Commands may be used per line if you wish. + ' Variable names CANNOT contain spaces or any character not supported by Windows file naming conventions \ / : * ? " < > | + + If StringClean.Contains("@SetVar[") Then + Dim VarArray As String() = StringClean.Split + + For i As Integer = 0 To VarArray.Count - 1 + + Dim SCGotVar As String = "NULL" + + If VarArray(i).Contains("@SetVar[") Then + SCGotVar = VarArray(i) + VarArray(i) = "" + + SCGotVar = SCGotVar.Replace("@SetVar[", "") + + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + + Dim VarName As String = SCGotVarSplit(0) + + SCGotVarSplit(0) = "" + + SCGotVar = Join(SCGotVarSplit) + + SCGotVar = SCGotVar.Replace("=[", "") + SCGotVar = SCGotVar.Replace(" ", "") + If IsNumeric(SCGotVar) = False Then + 'TODO: Remove unsecure IO.Access to file, for there is no DirectoryCheck. + If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & SCGotVar) Then + SCGotVar = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & SCGotVar) + Else + SCGotVar = 0 + End If + Else + SCGotVar = Val(SCGotVar) + End If + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) + End If + Next + StringClean = Join(VarArray) + End If + + ' The @SetDate() Command allows you to set a time and date that's a specified amount of time in the future from the current time and date. Correct format is @SetDate(VarName, TimeAmount) . + ' For example, @SetDate(EdgingStop, 1 Hour) would set a Variable called "EdgingStop" whose value is 1 hour away from the current time and date. As another example, @SetDate(NextOrgasmChance, 2 Weeks) + ' would create a Variable called "NextOrgasmChance" whose value is 2 weeks from the current date. + ' The available time increments are - Seconds, Minutes, Hours, Days, Weeks, Months and Years. When designating an amount of time, capitalization and pluralization do not matter. If no increment is + ' specified, "Days" will be used. + + If StringClean.Contains("@SetDate(") Then + Dim CheckArray As String() = StringClean.Split(")") + Dim OriginalCheck As String + + For i As Integer = 0 To CheckArray.Count - 1 + + If CheckArray(i).Contains("@SetDate(") Then + + 'CheckArray(i) = CheckArray(i) & "]" + + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") + OriginalCheck = CheckFlag + + Debug.Print("Original Check = " & OriginalCheck) + + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") + + Dim FlagArray() As String = CheckFlag.Split(",") + + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + + If UCase(FlagArray(1)).Contains(UCase("SECOND")) Then SetDate = DateAdd(DateInterval.Second, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("MINUTE")) Then SetDate = DateAdd(DateInterval.Minute, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("HOUR")) Then SetDate = DateAdd(DateInterval.Hour, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("DAY")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("WEEK")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)) * 7, SetDate) + If UCase(FlagArray(1)).Contains(UCase("MONTH")) Then SetDate = DateAdd(DateInterval.Month, Val(FlagArray(1)), SetDate) + If UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Year, Val(FlagArray(1)), SetDate) + + If Not UCase(FlagArray(1)).Contains(UCase("SECOND")) And Not UCase(FlagArray(1)).Contains(UCase("MINUTE")) And Not UCase(FlagArray(1)).Contains(UCase("HOUR")) _ + And Not UCase(FlagArray(1)).Contains(UCase("DAY")) And Not UCase(FlagArray(1)).Contains(UCase("WEEK")) And Not UCase(FlagArray(1)).Contains(UCase("MONTH")) _ + And Not UCase(FlagArray(1)).Contains(UCase("YEAR")) Then SetDate = DateAdd(DateInterval.Day, Val(FlagArray(1)), SetDate) + + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) + + Debug.Print("CheckArray(i) = " & CheckArray(i)) + + ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") + + StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") + End If + Next + 'StringClean = Join(CheckArray, Nothing) + End If + If StringClean.Contains("@ChastityOn") Then My.Settings.Chastity = True @@ -10837,6 +10858,10 @@ OrgasmDecided: PicStripTSMIdommeSlideshow.Enabled = True End If ssh.SubGaveUp = True + If ssh.MultipleEdges = True Then + ssh.MultipleEdgesAmount = 0 + ssh.MultipleEdges = False + End If If ssh.TasksCount >= 1 Then ssh.TasksCount = 0 'ssh.FirstRound = False Else @@ -10887,44 +10912,46 @@ OrgasmDecided: End If If StringClean.Contains("@InterruptLongEdge") Then - ssh.isLink = False - ssh.BeforeTease = False - Dim EdgeList As New List(Of String) - - For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - 'Debug.Print("EdgeFile = " & EdgeFile) - EdgeList.Add(EdgeFile) - Next + If ssh.TeaseTick > 0 Then + ssh.isLink = False + ssh.BeforeTease = False + Dim EdgeList As New List(Of String) + + For Each EdgeFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + 'Debug.Print("EdgeFile = " & EdgeFile) + EdgeList.Add(EdgeFile) + Next - 'Debug.Print("EdgeList.Count = " & EdgeList.Count) + 'Debug.Print("EdgeList.Count = " & EdgeList.Count) - If EdgeList.Count > 0 Then + If EdgeList.Count > 0 Then - GotoClear() + GotoClear() - ssh.SubEdging = False - ssh.SubHoldingEdge = False - EdgeTauntTimer.Stop() - StrokeTimer.Stop() - StrokeTauntTimer.Stop() - ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) - ssh.LockImage = False - If ssh.SlideshowLoaded = True Then - nextButton.Enabled = True - previousButton.Enabled = True - PicStripTSMIdommeSlideshow.Enabled = True - End If - ssh.StrokeTauntVal = -1 - ssh.ScriptTick = 3 - ScriptTimer.Start() - ssh.ShowModule = True + ssh.SubEdging = False + ssh.SubHoldingEdge = False + EdgeTauntTimer.Stop() + StrokeTimer.Stop() + StrokeTauntTimer.Stop() + ssh.FileText = EdgeList(ssh.randomizer.Next(0, EdgeList.Count)) + ssh.LockImage = False + If ssh.SlideshowLoaded = True Then + nextButton.Enabled = True + previousButton.Enabled = True + PicStripTSMIdommeSlideshow.Enabled = True + End If + ssh.StrokeTauntVal = -1 + ssh.ScriptTick = 3 + ScriptTimer.Start() + ssh.ShowModule = True - Else - MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ + Else + MessageBox.Show(Me, "No files were found in " & Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Interrupt\Long Edge!" & Environment.NewLine _ & Environment.NewLine & "Please make sure at lease one LongEdge_ file exists.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + End If + StringClean = StringClean.Replace("@InterruptLongEdge", "") + ssh.JustShowedBlogImage = True End If - StringClean = StringClean.Replace("@InterruptLongEdge", "") - ssh.JustShowedBlogImage = True End If If StringClean.Contains("@InterruptStartStroking") Then @@ -11381,7 +11408,6 @@ OrgasmDecided: If UCase(FlagArray(1)).Contains("M") Then VidInt *= 60 End If End If - If ssh.NoVideo = False Then ssh.TeaseVideo = True If VidInt > 0 Then @@ -11745,7 +11771,8 @@ ExternalAudio: End If ssh.TeaseTick += TeaseSeconds - If ssh.LastScript Then ssh.LastScript = False + ssh.LastScript = False + ssh.EndTease = False If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") End If @@ -11902,7 +11929,6 @@ ExternalAudio: If ssh.contact2Present And ((ssh.dommePresent Or ssh.contact1Present Or ssh.contact3Present) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) ssh.contact2Present = False - ssh.AddContactTick = 2 updateGroup("2") End If StringClean = StringClean.Replace("@RemoveContact2", "") @@ -12407,6 +12433,25 @@ VTSkip: StringClean = StringClean.Replace("@InterruptsOn", "") End If + If StringClean.Contains("@HonorificOn") Then + FrmSettings.CBHonorificInclude.Checked = True + StringClean = StringClean.Replace("@HonorificOn", "") + End If + + If StringClean.Contains("@HonorificOff") Then + FrmSettings.CBHonorificInclude.Checked = False + StringClean = StringClean.Replace("@HonorificOff", "") + End If + + If StringClean.Contains("@NameOn") Then + FrmSettings.CBNameInclude.Checked = True + StringClean = StringClean.Replace("@NameOn", "") + End If + + If StringClean.Contains("@NameOff") Then + FrmSettings.CBNameInclude.Checked = False + StringClean = StringClean.Replace("@NameOff", "") + End If If StringClean.Contains("@NoTypo") Then ssh.TypoSwitch = 0 @@ -13021,7 +13066,7 @@ VTSkip: End Sub -#End Region ' WebToy +#End Region ' WebToy #Region "-------------------------------- Script: Flags/Dates/Variables ---------------------------------" @@ -13065,7 +13110,7 @@ VTSkip: End Function -#End Region ' Script-Flags +#End Region ' Script-Flags #Region "------------------------------------- Script-Variables -----------------------------------------" @@ -13220,7 +13265,7 @@ VTSkip: End Function -#End Region ' Script-Variables +#End Region ' Script-Variables #Region "---------------------------------------- Script-Dates ------------------------------------------" @@ -13229,7 +13274,7 @@ VTSkip: Dim VarGet As String 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + VarGet = Date.Parse(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else VarGet = FormatDateTime(Now, DateFormat.GeneralDate) End If @@ -13244,7 +13289,7 @@ VTSkip: Dim VarGet As String 'TODO: Remove unsecure IO.Access To file, for there is no DirectoryCheck. If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) Then - VarGet = CDate(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) + VarGet = Date.Parse(TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName)) Else VarGet = FormatDateTime(Now, DateFormat.LongTime) End If @@ -13354,9 +13399,9 @@ VTSkip: End Function -#End Region ' Script-Dates +#End Region ' Script-Dates -#End Region ' Flags/Dates/Variables +#End Region ' Flags/Dates/Variables @@ -13479,7 +13524,7 @@ VTSkip: Return String.Empty End Function - Public Function GetLocalImage(ByVal LocTag As String, Optional ByVal isDommeTag As Boolean = False, Optional ByVal selectionType As String = "All") As String + Public Function GetLocalImage(LocTag As String, Optional isDommeTag As Boolean = False, Optional selectionType As String = "All") As String Dim fileToCheck As String = Application.StartupPath & "\Images\System\LocalImageTags.txt" If isDommeTag Then fileToCheck = Path.GetDirectoryName(ssh.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & "ImageTags.txt" @@ -13551,7 +13596,7 @@ VTSkip: End If End Function - Friend Sub ContactEdgeCheck(ByVal EdgeCheck As String) + Friend Sub ContactEdgeCheck(EdgeCheck As String) If EdgeCheck.Contains("@Contact1") Then ssh.Contact1Edge = True ElseIf EdgeCheck.Contains("@Contact2") Then @@ -13721,8 +13766,8 @@ VTSkip: 'Next #If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If 'If ListClean.Count = 0 Then ListClean.Add("test") Return ListClean @@ -13794,7 +13839,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImage(GetParentheses(FilterString, "@ImageTagOr("), , "Or") = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@ImageTagOr("),, "Or") = String.Empty Then Return False End If End If @@ -13802,7 +13847,7 @@ VTSkip: If ssh.LockImage = True Then Return False Else - If GetLocalImage(GetParentheses(FilterString, "@ImageTagAny("), , "Any") = String.Empty Then Return False + If GetLocalImage(GetParentheses(FilterString, "@ImageTagAny("),, "Any") = String.Empty Then Return False End If End If @@ -13857,8 +13902,8 @@ VTSkip: End If 'TODO: Add ImageDataContainerUsage to filter @ShowLocalImage correct. If FilterString.Contains("@ShowLocalImage") And My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And - My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And - My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False + My.Settings.CBIBlowjob = False And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And + My.Settings.CBIGay = False And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False Then Return False If FilterString.Contains("@ShowTaggedImage") Then Dim Tags As List(Of String) = FilterString.Split() _ @@ -13935,6 +13980,28 @@ VTSkip: If Not result Then Return False End If + If FilterString.Contains("@Mood(") Then + Dim moodFlag As String = LCase(GetParentheses(FilterString, "@Mood(")) + If IsNumeric(moodFlag) Then + If ssh.DommeMood <> CInt(moodFlag) Then Return False + ElseIf moodFlag = "worst" Then + If ssh.DommeMood <> 1 Then Return False + ElseIf moodFlag = "bad" Then + If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False + ElseIf moodFlag = "neutral" Then + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + ElseIf moodFlag = "good" Then + If ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False + ElseIf moodFlag = "best" Then + If ssh.DommeMood <> 10 Then Return False + End If + End If + + If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False + If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False + If FilterString.Contains("@NeutralMood") Then + If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False + End If If FilterString.Contains("@Variable[") Then If CheckVariable(FilterString) = False Then Return False End If @@ -13942,12 +14009,15 @@ VTSkip: If FilterString.Contains("@Group(") Then Dim GroupCheck As String = GetParentheses(FilterString, "@Group(") Dim grouparray() As String = GroupCheck.Split(",") - Dim b As Boolean = False + Dim b As Boolean For i As Integer = 0 To grouparray.Length - 1 - If grouparray(i) = ssh.Group Then - b = True - Exit For - End If + b = True + For Each c As Char In grouparray(i) + If Not ssh.Group.Contains(c) Then + b = False + Exit For + End If + Next Next If b = False Then Return False ' If GroupCheck.Contains("D") Then @@ -14253,11 +14323,11 @@ VTSkip: If FilterString.Contains("@CockTorture4+") And ssh.CBTCockCount < 4 Then Return False If FilterString.Contains("@Stroking") Or FilterString.Contains("@SubStroking") Then - If ssh.SubStroking = False Then Return False + If ssh.SubStroking = False And My.Settings.Chastity = False Then Return False End If If FilterString.Contains("@NotStroking") Or FilterString.Contains("@SubNotStroking") Then - If ssh.SubStroking = True Then Return False + If ssh.SubStroking = True Or My.Settings.Chastity = True Then Return False End If If FilterString.Contains("@Edging") Or FilterString.Contains("@SubEdging") Then @@ -14280,28 +14350,6 @@ VTSkip: If FilterString.Contains("@Afternoon") And ssh.GeneralTime <> "Afternoon" Then Return False If FilterString.Contains("@Night") And ssh.GeneralTime <> "Night" Then Return False - If FilterString.Contains("@Mood(") Then - Dim moodFlag As String = LCase(GetParentheses(FilterString, "@Mood(")) - If IsNumeric(moodFlag) Then - If ssh.DommeMood <> CInt(moodFlag) Then Return False - ElseIf moodFlag = "worst" Then - If ssh.DommeMood <> 1 Then Return False - ElseIf moodFlag = "bad" Then - If ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False - ElseIf moodFlag = "neutral" Then - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False - ElseIf moodFlag = "good" Then - If ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False - ElseIf moodFlag = "best" Then - If ssh.DommeMood <> 10 Then Return False - End If - End If - If FilterString.Contains("@GoodMood") And ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value Then Return False - If FilterString.Contains("@BadMood") And ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value Then Return False - If FilterString.Contains("@NeutralMood") Then - If ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value Then Return False - End If - If FilterString.Contains("@OrgasmRestricted") And ssh.OrgasmRestricted = False Then Return False If FilterString.Contains("@OrgasmNotRestricted") And ssh.OrgasmRestricted = True Then Return False If FilterString.Contains("@SubWorshipping") And ssh.WorshipMode = False Then Return False @@ -14360,7 +14408,7 @@ VTSkip: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), - ex, "GetFilter(String, Boolean)") + ex, "GetFilter(String, Boolean)") If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error: " & ex.Message & "", False) Return False End Try @@ -14447,11 +14495,11 @@ VTSkip: .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. + .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) + Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ + And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ + And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) @@ -14603,8 +14651,8 @@ VTSkip: 'QND-Implemented: ContactData.GetTaggedImage 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) - Case "@ImageTagOr(".ToUpper : Condition = GetLocalImage(FilterString, , "Or") - Case "@ImageTagAny(".ToUpper : Condition = GetLocalImage(FilterString, , "Any") + Case "@ImageTagOr(".ToUpper : Condition = GetLocalImage(FilterString,, "Or") + Case "@ImageTagAny(".ToUpper : Condition = GetLocalImage(FilterString,, "Any") Case Else '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= ' Unknown Command => goto next Match @@ -14748,7 +14796,7 @@ VTSkip: ScrollChatDown() End Sub -#End Region ' Chatbox +#End Region ' Chatbox #Region "------------------------------------ Avoid the Edge --------------------------------------------" @@ -14922,7 +14970,7 @@ VTSkip: End Sub -#End Region ' Avoid the Edge +#End Region ' Avoid the Edge @@ -15836,7 +15884,7 @@ NoRepeatOFiles: ssh.DomTask = ETLines(ssh.randomizer.Next(0, ETLines.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Hold the Edge Taunt from file: " & - File2Read, ex, "HoldEdgeTauntTimer.Tick") + File2Read, ex, "HoldEdgeTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read End Try @@ -15849,7 +15897,7 @@ NoRepeatOFiles: End Sub -#End Region ' Hold the Edge +#End Region ' Hold the Edge Public Sub CreateTaskLetter() @@ -16499,7 +16547,7 @@ RestartFunction: End Sub -#End Region 'Domme-WMP +#End Region 'Domme-WMP Private Sub domAvatar_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles domAvatar.MouseEnter If FrmSettings.Visible = False And FrmCardList.Visible = False Then domAvatar.Focus() @@ -16525,13 +16573,14 @@ RestartFunction: If ssh.DomTypeCheck = True Or ssh.YesOrNo = True Then Return - 'Debug.Print("WaitTick = " & ssh.WaitTick) + 'Debug.Print("WaitTick = " & WaitTick) ssh.WaitTick -= 1 If ssh.WaitTick < 1 Then WaitTimer.Stop() ssh.ScriptTick = 1 + If ssh.RapidCode = True Then RunFileText() End If @@ -16714,7 +16763,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "VideoTauntTimer.Tick") + VTDir, ex, "VideoTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try @@ -16788,7 +16837,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "RLGLTauntTimer.Tick") + VTDir, ex, "RLGLTauntTimer.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16841,7 +16890,7 @@ RestartFunction: ssh.DomTask = VTList(ssh.randomizer.Next(0, VTList.Count)) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Video Taunt from file: " & - VTDir, ex, "AvoidTheEdgeTaunts.Tick") + VTDir, ex, "AvoidTheEdgeTaunts.Tick") ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16872,7 +16921,7 @@ RestartFunction: -#End Region ' MainPictureBox +#End Region ' MainPictureBox #Region "-------------------------------------------------- PictureStrip ------------------------------------------------------" @@ -17010,10 +17059,10 @@ retry: ' Confirm overwriting the file If MessageBox.Show(Me, fileName & " already exists in this directory!" & - Environment.NewLine & Environment.NewLine & - "Do you wish to overwrite?", "Caution!", - MessageBoxButtons.YesNo, - MessageBoxIcon.Exclamation) = DialogResult.No Then + Environment.NewLine & Environment.NewLine & + "Do you wish to overwrite?", "Caution!", + MessageBoxButtons.YesNo, + MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17028,13 +17077,13 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Saving image failed.") If MessageBox.Show(ex.Message, "Saving image failed.", - MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, - MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry + MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation, + MessageBoxDefaultButton.Button2) = DialogResult.Retry Then GoTo retry End Try End Sub Private Sub PicStripTSMIlikeImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicStripTSMIlikeImage.Click, - PicStripTSMIdislikeImage.Click + PicStripTSMIdislikeImage.Click ' Exit if ImageLocation is unkown If ssh.ImageLocation = "" Then Exit Sub @@ -17076,7 +17125,7 @@ saveImage: lazytext = "Unable to " & lazytext Log.WriteError(lazytext, ex, "Error updating List") MessageBox.Show(Me, lazytext & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") + & ex.Message, MsgBoxStyle.Exclamation, "Error updating list.") End Try End Sub @@ -17093,7 +17142,7 @@ saveImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while deleting URL-From files.") MsgBox("An Exception Occured while deleting the URL from Files." & vbCrLf _ - & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") + & ex.Message, MsgBoxStyle.Exclamation, "Delete URL from Files") End Try End Sub @@ -17152,9 +17201,9 @@ saveImage: End Sub -#End Region ' DommeSlideshow +#End Region ' DommeSlideshow -#End Region ' PictureStrip +#End Region ' PictureStrip Public Sub LoadDommeImageFolder() 'check which domme should be loaded @@ -17396,7 +17445,7 @@ restartInstantly: End Function - Private Sub updateGroup(ByVal contact As String) + Private Sub updateGroup(contact As String) Dim name As String Select Case contact Case 1 @@ -17408,16 +17457,16 @@ restartInstantly: Case Else name = ssh.SlideshowMain.TypeName End Select + If Not ssh.Group.Contains(contact) Then ssh.Group = ssh.Group & contact ssh.GlitterTease = True - 'ChatAddSystemMessage(name & " has joined the Chat room", False) - ssh.ContactRoomUpdate = name & " has joined the Chat room" - Else - ssh.Group = ssh.Group.Replace(contact, "") - 'ChatAddSystemMessage(name & " has left the Chat room", False) - ssh.ContactRoomUpdate = name & " has left the Chat room" + ChatAddSystemMessage(name & " has joined the Chat room", False) + Else + ssh.Group = ssh.Group.Replace(contact, "") + ChatAddSystemMessage(name & " has left the Chat room", False) End If + If ssh.Group = "D" Then ssh.GlitterTease = False Else @@ -17496,7 +17545,7 @@ restartInstantly: If ssh.SaidHello = False Then MessageBox.Show(Me, "Tease AI is not currently running a session!", "Error!", - MessageBoxButtons.OK, MessageBoxIcon.Hand) + MessageBoxButtons.OK, MessageBoxIcon.Hand) Exit Sub End If @@ -17505,13 +17554,13 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a destination to save the session to.", - .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, - .AddExtension = True, - .CheckPathExists = True, - .OverwritePrompt = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a destination to safe the sessin to.", + .filename = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, + .AddExtension = True, + .CheckPathExists = True, + .OverwritePrompt = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17520,9 +17569,9 @@ restartInstantly: '=============================================================================== ElseIf File.Exists(filename) _ AndAlso MessageBox.Show(Me, "A previous saved state already exists!" & - vbCrLf & vbCrLf & - "Do you wish to overwrite it?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + vbCrLf & vbCrLf & + "Do you wish to overwrite it?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17530,14 +17579,14 @@ restartInstantly: ssh.Save(filename) MessageBox.Show(Me, "Session state has been saved successfully!", "Success!", - MessageBoxButtons.OK, MessageBoxIcon.Information) + MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state did not save correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub @@ -17551,12 +17600,12 @@ restartInstantly: ' =============================================================================== If My.Computer.Keyboard.CtrlKeyDown Then Dim fsd As New OpenFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", - .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), - .Title = "Select a saved session to resume.", - .CheckPathExists = True, - .CheckFileExists = True, - .AddExtension = True, - .ValidateNames = True} + .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), + .Title = "Select a saved session to resume.", + .CheckPathExists = True, + .CheckFileExists = True, + .AddExtension = True, + .ValidateNames = True} If fsd.ShowDialog() = DialogResult.Cancel Then Exit Sub filename = fsd.FileName @@ -17570,9 +17619,9 @@ restartInstantly: If ssh.SaidHello = True _ AndAlso MessageBox.Show(Me, "Resuming a previous state will cause you to lose your progress in this session!" & - vbCrLf & vbCrLf & - "Do you wish to proceed?", "Warning!", - MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then + vbCrLf & vbCrLf & + "Do you wish to proceed?", "Warning!", + MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then Exit Sub End If @@ -17588,8 +17637,8 @@ restartInstantly: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ MessageBox.Show(Me, "An error occurred and the state was not loaded correctly!" & - vbCrLf & vbCrLf & ex.Message, - "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + vbCrLf & vbCrLf & ex.Message, + "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Try End Sub @@ -17611,12 +17660,12 @@ restartInstantly: End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click, - ExitToolStripMenuItem1.Click + ExitToolStripMenuItem1.Click Me.Close() Me.Dispose() End Sub -#End Region ' File +#End Region ' File #Region "------------------------------------------------------ Settings ------------------------------------------------------" @@ -17692,7 +17741,7 @@ restartInstantly: FrmSettings.Focus() End Sub -#End Region ' Settings +#End Region ' Settings #Region "-------------------------------------------------------- APPs --------------------------------------------------------" @@ -17742,7 +17791,7 @@ restartInstantly: If My.Settings.ClearWishlist = True Then MessageBox.Show(Me, "You have already purchased " & ssh.tempDomName & "'s Wishlist item for today!" & Environment.NewLine & Environment.NewLine & - "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + "Please check back again tomorrow!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If @@ -17998,46 +18047,46 @@ restartInstantly: End Sub -#End Region ' APPs +#End Region ' APPs #Region "-------------------------------------------------------- Games -------------------------------------------------------" Private Sub SlotsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlotsToolStripMenuItem1.Click, - SlotsToolStripMenuItem.Click + SlotsToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(0) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub MatchGameToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MatchGameToolStripMenuItem1.Click, - MatchGameToolStripMenuItem.Click + MatchGameToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(1) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub RiskyPickToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RiskyPickToolStripMenuItem1.Click, - RiskyPickToolStripMenuItem.Click + RiskyPickToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(2) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub ExchangeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExchangeToolStripMenuItem1.Click, - ExchangeToolStripMenuItem.Click + ExchangeToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(3) FrmCardList.Show() FrmCardList.Focus() End Sub Private Sub CollectionToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CollectionToolStripMenuItem1.Click, - CollectionToolStripMenuItem.Click + CollectionToolStripMenuItem.Click FrmCardList.TCGames.SelectTab(4) FrmCardList.Show() FrmCardList.Focus() End Sub -#End Region ' Games +#End Region ' Games #Region "----------------------------------------------------- Interface ------------------------------------------------------" @@ -18129,14 +18178,14 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(0, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - 0, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + 0, + PnlLayoutForm.Padding.Bottom) End If Else '########################### Hide ######################### @@ -18145,14 +18194,14 @@ restartInstantly: If PnlSidepanelLayout.Dock = DockStyle.Left Then PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Right, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Right, + PnlLayoutForm.Padding.Bottom) Else PnlLayoutForm.Padding = New Padding(PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Top, - PnlLayoutForm.Padding.Left, - PnlLayoutForm.Padding.Bottom) + PnlLayoutForm.Padding.Top, + PnlLayoutForm.Padding.Left, + PnlLayoutForm.Padding.Bottom) End If If MaximizeImageToolStripMenuItem.Checked Then PnlChatBoxLayout.Visible = True @@ -18211,7 +18260,7 @@ restartInstantly: Me.Top = WA.Location.Y + (WA.Height - Me.Height) / 2 End Sub -#End Region ' Interface +#End Region ' Interface #Region "------------------------------------------------------- Tools --------------------------------------------------------" @@ -18229,31 +18278,31 @@ restartInstantly: Form8.Show() End Sub -#End Region ' Tools +#End Region ' Tools #Region "------------------------------------------------------ Milovana ------------------------------------------------------" Private Sub OpenBetaThreadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenBetaThreadToolStripMenuItem.Click, - OpenBetaThreadToolStripMenuItem1.Click + OpenBetaThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=15776") End Sub Private Sub BugReportThreadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BugReportThreadToolStripMenuItem.Click, - BugReportThreadToolStripMenuItem1.Click + BugReportThreadToolStripMenuItem1.Click Process.Start("https://milovana.com/forum/viewtopic.php?f=2&t=16203") End Sub Private Sub WebteasesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebteasesToolStripMenuItem.Click, - WebteasesToolStripMenuItem1.Click + WebteasesToolStripMenuItem1.Click Process.Start("https://milovana.com/webteases/") End Sub Private Sub AllAndEverythingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllAndEverythingToolStripMenuItem.Click, - ForumToolStripMenuItem.Click + ForumToolStripMenuItem.Click Process.Start("https://milovana.com/forum/") End Sub -#End Region ' Milovana +#End Region ' Milovana Private Sub StartTimer1ToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StartTimer1ToolStripMenuItem.Click Timer1.Start() @@ -18306,7 +18355,7 @@ restartInstantly: -#End Region ' Menu +#End Region ' Menu @@ -18384,7 +18433,7 @@ restartInstantly: Dates = FormatDateTime(Now, DateFormat.ShortDate) & " " & FormatDateTime(FrmSettings.TimeBoxWakeUp.Value, DateFormat.LongTime) Dim DDiff As Integer - DDiff = DateDiff(DateInterval.Hour, CDate(Dates), Now) + DDiff = DateDiff(DateInterval.Hour, Date.Parse(Dates), Now) Dim TimeCounter As Integer = -3 @@ -18451,7 +18500,7 @@ restartInstantly: If ssh.StrokeFaster = True Then If ssh.SubStroking = True And ssh.SubEdging = False And ssh.SubHoldingEdge = False Then Debug.Print("Stroke Faster") - Dim Stroke123 As Integer = ssh.randomizer.Next(3, 8) + Dim Stroke123 As Integer = ssh.randomizer.Next(5, 12) Stroke123 = Stroke123 * 50 StrokePace = StrokePace - Stroke123 If StrokePace < NBMaxPace.Value Then StrokePace = NBMaxPace.Value @@ -18887,7 +18936,7 @@ restartInstantly: End If End Sub -#End Region ' Regular Buttons +#End Region ' Regular Buttons Public Function AddDommeTag(ByVal AddDomTag As String, ByVal AddCustomDomTag As String) @@ -19322,7 +19371,7 @@ restartInstantly: End Sub -#End Region ' DommeTag APP +#End Region ' DommeTag APP #Region "------------------------------------------------------ Lazy-Sub ------------------------------------------------------" @@ -19728,7 +19777,7 @@ restartInstantly: End Sub -#End Region ' Lazy-Sub +#End Region ' Lazy-Sub #Region "-------------------------------------------------- Randomizer-App ----------------------------------------------------" @@ -20290,7 +20339,7 @@ restartInstantly: End If End Sub -#End Region ' Vital Sub +#End Region ' Vital Sub Public Sub MetronomeTick() '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× @@ -20404,9 +20453,9 @@ playLoop: My.Settings.MetroOn = CBMetronome.Checked End Sub -#End Region ' Metronome App +#End Region ' Metronome App -#End Region ' Apps +#End Region ' Apps Private Sub VideoTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VideoTimer.Tick @@ -20714,7 +20763,7 @@ playLoop: End Function - Public Function GetLikeValue(ByVal s As String, ByVal t As String) As Integer + Public Function GetLikeValue(s As String, t As String) As Integer s = s.ToLower t = t.ToLower @@ -20843,6 +20892,7 @@ playLoop: End While End Sub + Public Sub setStartName() Try ssh.SlideshowMain = New ContactData(ContactType.Domme) @@ -20875,7 +20925,6 @@ playLoop: Private Function updateDommeName(ByVal stringToCheck As String) - 'remove eventual @ContactX present in a @FollowUp() inside the line If stringToCheck.Contains("@FollowUp") Then Dim remove As String @@ -20932,7 +20981,7 @@ playLoop: End Function Private Sub checkForPunish() - If ssh.nameErrors >= 3 And ssh.wrongAttempt = True Then + If ssh.nameErrors >= 2 And ssh.wrongAttempt = True Then ssh.DomChat = "" If ssh.contactToUse.Equals(ssh.SlideshowContact1) Then ssh.DomChat = "@Contact1 " @@ -21038,7 +21087,7 @@ playLoop: 'return -1 if word to check was not present, 0 if something in the honorific is wrong, 1 if all is ok 'we don't reduce errors number when doing the checks for what the sub writes in chat (so we reduce them only when asked a direct question) 'otherwise it will be nearly impossible to be punished since each phrase not using it would reduce the count - Private Function checkSubAnswer(Optional ByVal caseToCheck As String = "", Optional ByVal reduceErrors As Boolean = True) As Integer + Private Function checkSubAnswer(Optional caseToCheck As String = "", Optional reduceErrors As Boolean = True) As Integer ssh.DomChat = "" If Not IsNothing(ssh.contactToUse) Then If ssh.contactToUse.Equals(ssh.SlideshowContact1) Then @@ -21090,7 +21139,7 @@ playLoop: If UCase(ssh.ChatString).Contains(UCase(SplitParts(n))) Then If checkForHonorific Then If FrmSettings.CBHonorificInclude.Checked = True Then - If WordExists(UCase(ssh.ChatString), UCase(ssh.tempHonorific)) = False Then + If WordExists(UCase(ssh.ChatString), UCase(ssh.tempHonorific)) = False Or (FrmSettings.CBNameInclude.Checked = True And WordExists(UCase(ssh.ChatString), UCase(ssh.tempDomName)) = False) Then ssh.DomChat += SplitParts(n) & " #SYS_MissingHonorific" If FrmSettings.LCaseCheckBox.Checked = False Then Dim DomU As String = UCase(ssh.DomChat.Substring(0, 1)) diff --git a/Tease AI/Form1/ImageFuctions.vb b/Tease AI/Form1/ImageFuctions.vb index d62cc8e..f8881b8 100644 --- a/Tease AI/Form1/ImageFuctions.vb +++ b/Tease AI/Form1/ImageFuctions.vb @@ -68,7 +68,7 @@ Partial Class Form1 Set(value As String) If value Is Nothing Then _URLFile = "" - ElseIf value.ToLower.EndsWith(".txt") = False + ElseIf value.ToLower.EndsWith(".txt") = False Then _URLFile = "" Else _URLFile = value @@ -131,9 +131,9 @@ Partial Class Form1 '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " : " & ex.Message, ex, - "Exception at: " & Name.ToString & ".ToList()") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist for genre. See Errorlogs for more information.", False) + Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " : " & ex.Message, ex, + "Exception at: " & Name.ToString & ".ToList()") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist for genre. See Errorlogs for more information.", False) Return New List(Of String) End Try Return rtnList @@ -186,7 +186,7 @@ Partial Class Form1 '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Blog Images - End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ElseIf Name = ImageGenre.Liked + ElseIf Name = ImageGenre.Liked Then '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Liked Images '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -209,7 +209,7 @@ Partial Class Form1 '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Liked Images - End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ElseIf Name = ImageGenre.Disliked + ElseIf Name = ImageGenre.Disliked Then '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Disliked Images '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ @@ -279,9 +279,9 @@ Partial Class Form1 '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " and Source." & Type.ToString & " : " & ex.Message, ex, - "Exception at: " & Name.ToString & ".ToList(" & Type.ToString & ")") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist. See Errorlogs for more information.", False) + Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " and Source." & Type.ToString & " : " & ex.Message, ex, + "Exception at: " & Name.ToString & ".ToList(" & Type.ToString & ")") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist. See Errorlogs for more information.", False) Return New List(Of String) End Try exitEmpty: @@ -308,8 +308,8 @@ exitEmpty: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) + Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) End Try NoneFound: ' Return the Error-Image FilePath @@ -339,8 +339,8 @@ NoneFound: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) + Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") + If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) End Try NoneFound: ' Return an Error-Image FilePath @@ -403,59 +403,59 @@ NoneFound: .SYS_NoPornAllowed = SysNoPornAllowed }) - .Add(ImageGenre.Boobs, New ImageDataContainer With - { - .Name = ImageGenre.Boobs, - .LocalDirectory = If(My.Settings.CBIBoobs, My.Settings.LBLBoobPath, ""), - .LocalSubDirectories = My.Settings.CBBoobSubDir, - .UrlFile = If(My.Settings.UrlFileBoobsEnabled, My.Settings.UrlFileBoobs, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Hardcore, New ImageDataContainer With - { - .Name = ImageGenre.Hardcore, - .LocalDirectory = If(My.Settings.CBIHardcore, My.Settings.IHardcore, ""), - .LocalSubDirectories = My.Settings.IHardcoreSD, - .UrlFile = If(My.Settings.UrlFileHardcoreEnabled, My.Settings.UrlFileHardcore, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Softcore, New ImageDataContainer With - { - .Name = ImageGenre.Softcore, - .LocalDirectory = If(My.Settings.CBISoftcore, My.Settings.ISoftcore, ""), - .LocalSubDirectories = My.Settings.ISoftcoreSD, - .UrlFile = If(My.Settings.UrlFileSoftcoreEnabled, My.Settings.UrlFileSoftcore, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Lesbian, New ImageDataContainer With - { - .Name = ImageGenre.Lesbian, - .LocalDirectory = If(My.Settings.CBILesbian, My.Settings.ILesbian, ""), - .LocalSubDirectories = My.Settings.ILesbianSD, - .UrlFile = If(My.Settings.UrlFileLesbianEnabled, My.Settings.UrlFileLesbian, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Blowjob, New ImageDataContainer With - { - .Name = ImageGenre.Blowjob, - .LocalDirectory = If(My.Settings.CBIBlowjob, My.Settings.IBlowjob, ""), - .LocalSubDirectories = My.Settings.IBlowjobSD, - .UrlFile = If(My.Settings.UrlFileBlowjobEnabled, My.Settings.UrlFileBlowjob, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) - - .Add(ImageGenre.Femdom, New ImageDataContainer With - { - .Name = ImageGenre.Femdom, - .LocalDirectory = If(My.Settings.CBIFemdom, My.Settings.IFemdom, ""), - .LocalSubDirectories = My.Settings.IFemdomSD, - .UrlFile = If(My.Settings.UrlFileFemdomEnabled, My.Settings.UrlFileFemdom, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) + .Add(ImageGenre.Boobs, New ImageDataContainer With + { + .Name = ImageGenre.Boobs, + .LocalDirectory = If(My.Settings.CBIBoobs, My.Settings.LBLBoobPath, ""), + .LocalSubDirectories = My.Settings.CBBoobSubDir, + .UrlFile = If(My.Settings.UrlFileBoobsEnabled, My.Settings.UrlFileBoobs, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Hardcore, New ImageDataContainer With + { + .Name = ImageGenre.Hardcore, + .LocalDirectory = If(My.Settings.CBIHardcore, My.Settings.IHardcore, ""), + .LocalSubDirectories = My.Settings.IHardcoreSD, + .UrlFile = If(My.Settings.UrlFileHardcoreEnabled, My.Settings.UrlFileHardcore, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Softcore, New ImageDataContainer With + { + .Name = ImageGenre.Softcore, + .LocalDirectory = If(My.Settings.CBISoftcore, My.Settings.ISoftcore, ""), + .LocalSubDirectories = My.Settings.ISoftcoreSD, + .UrlFile = If(My.Settings.UrlFileSoftcoreEnabled, My.Settings.UrlFileSoftcore, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Lesbian, New ImageDataContainer With + { + .Name = ImageGenre.Lesbian, + .LocalDirectory = If(My.Settings.CBILesbian, My.Settings.ILesbian, ""), + .LocalSubDirectories = My.Settings.ILesbianSD, + .UrlFile = If(My.Settings.UrlFileLesbianEnabled, My.Settings.UrlFileLesbian, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Blowjob, New ImageDataContainer With + { + .Name = ImageGenre.Blowjob, + .LocalDirectory = If(My.Settings.CBIBlowjob, My.Settings.IBlowjob, ""), + .LocalSubDirectories = My.Settings.IBlowjobSD, + .UrlFile = If(My.Settings.UrlFileBlowjobEnabled, My.Settings.UrlFileBlowjob, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) + + .Add(ImageGenre.Femdom, New ImageDataContainer With + { + .Name = ImageGenre.Femdom, + .LocalDirectory = If(My.Settings.CBIFemdom, My.Settings.IFemdom, ""), + .LocalSubDirectories = My.Settings.IFemdomSD, + .UrlFile = If(My.Settings.UrlFileFemdomEnabled, My.Settings.UrlFileFemdom, ""), + .SYS_NoPornAllowed = SysNoPornAllowed + }) .Add(ImageGenre.Lezdom, New ImageDataContainer With { @@ -631,14 +631,14 @@ NoNeFound: ' ===================== NULL Reference ======================= FetchContainer.ImageLocation = pathImageErrorOnLoading Dim lazyText As String = "The given imagepath was NULL." - Log.WriteError(lazyText, New ArgumentNullException(lazyText), "ShowImage with no valid imagepath.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) + Log.WriteError(lazyText, New ArgumentNullException(lazyText), "ShowImage with no valid imagepath.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) ElseIf ImageToShow = "" Then ' ====================== String.Empty ======================== FetchContainer.ImageLocation = pathImageErrorOnLoading Dim lazyText As String = "The given imagepath was empty." - Log.WriteError(lazyText, New ArgumentException(lazyText), "ShowImage with no valid imagepath.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) + Log.WriteError(lazyText, New ArgumentException(lazyText), "ShowImage with no valid imagepath.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) Else ' ======================== All fine ========================== FetchContainer.ImageLocation = ImageToShow @@ -655,9 +655,9 @@ NoNeFound: Try If WaitToFinish Then BWimageFetcher.WaitToFinish() Catch ex As Exception - Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "ShowImage(String, Boolean)") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while displaying image. Fallback failed.", False) + Log.WriteError("Error occurred while displaying image. Fallback Failed.", + ex, "ShowImage(String, Boolean)") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while displaying image. Fallback failed.", False) End Try End Sub @@ -762,19 +762,19 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima ' All Errors - !first! time '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("ImageFetch - DoWork - 1st Exception perfomaing fallback") - Log.WriteError("Error loading Image: """ & .ImageLocation & """", ex, - "Error loading image. Performing fallback to errorimage.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading image: " & .ImageLocation & "", False) - .ImageLocation = errorimagepath + Log.WriteError("Error loading Image: """ & .ImageLocation & """", ex, + "Error loading image. Performing fallback to errorimage.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading image: " & .ImageLocation & "", False) + .ImageLocation = errorimagepath GoTo retryLocal Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors - 2nd time '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("ImageFetch - DoWork - 2nd Exception - fallback failed.") - Log.WriteError("Fallback to errorimage """ & .ImageLocation & """ failed ", - ex, "Error loading image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Fallback to errorimage """ & .ImageLocation & """ failed ", False) + Log.WriteError("Fallback to errorimage """ & .ImageLocation & """ failed ", + ex, "Error loading image") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Fallback to errorimage """ & .ImageLocation & """ failed ", False) End Try End With @@ -842,9 +842,9 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("An Exception occurred while displaying image: " & vbCrLf & ex.Message, - ex, "Error Displaying image.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: An exception occurred while displaying image", False) + Log.WriteError("An Exception occurred while displaying image: " & vbCrLf & ex.Message, + ex, "Error Displaying image.") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: An exception occurred while displaying image", False) End Try End Sub @@ -924,9 +924,9 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Unable to set image in MainPictureBox: " & ex.Message, - ex, "MainPictureboxSetImage") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to set image in MainPictureBox", False) + Log.WriteError("Unable to set image in MainPictureBox: " & ex.Message, + ex, "MainPictureboxSetImage") + If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to set image in MainPictureBox", False) End Try End Sub diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 4f4bdf8..8be00ed 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -22,15590 +22,15608 @@ Partial Class FrmSettings 'Do not modify it using the code editor. Private Sub InitializeComponent() -Me.components = New System.ComponentModel.Container() -Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) -Me.SettingsPanel = New System.Windows.Forms.Panel() -Me.SettingsTabs = New System.Windows.Forms.TabControl() -Me.TabPage1 = New System.Windows.Forms.TabPage() -Me.PNLGeneralSettings = New System.Windows.Forms.Panel() -Me.GroupBox3 = New System.Windows.Forms.GroupBox() -Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() -Me.GroupBox2 = New System.Windows.Forms.GroupBox() -Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() -Me.CBRandomDomme = New System.Windows.Forms.CheckBox() -Me.BtnRandomImageDir = New System.Windows.Forms.Button() -Me.BtnImportSettings = New System.Windows.Forms.Button() -Me.LblImportSettings = New System.Windows.Forms.Label() -Me.GroupBox64 = New System.Windows.Forms.GroupBox() -Me.CBMuteMedia = New System.Windows.Forms.CheckBox() -Me.GBDommeImages = New System.Windows.Forms.GroupBox() -Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() -Me.teaseRadio = New System.Windows.Forms.RadioButton() -Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() -Me.offRadio = New System.Windows.Forms.RadioButton() -Me.BTNDomImageDir = New System.Windows.Forms.Button() -Me.timedRadio = New System.Windows.Forms.RadioButton() -Me.TbxDomImageDir = New System.Windows.Forms.TextBox() -Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() -Me.LBLVRate = New System.Windows.Forms.Label() -Me.Label93 = New System.Windows.Forms.Label() -Me.LBLVVolume = New System.Windows.Forms.Label() -Me.Label68 = New System.Windows.Forms.Label() -Me.SliderVRate = New System.Windows.Forms.TrackBar() -Me.SliderVVolume = New System.Windows.Forms.TrackBar() -Me.TTSCheckBox = New System.Windows.Forms.CheckBox() -Me.TTSComboBox = New System.Windows.Forms.ComboBox() -Me.GBSafeword = New System.Windows.Forms.GroupBox() -Me.LBLSafeword = New System.Windows.Forms.Label() -Me.TBSafeword = New System.Windows.Forms.TextBox() -Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() -Me.CBAuditStartup = New System.Windows.Forms.CheckBox() -Me.CBDomDel = New System.Windows.Forms.CheckBox() -Me.CBSettingsPause = New System.Windows.Forms.CheckBox() -Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() -Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() -Me.GBGeneralImages = New System.Windows.Forms.GroupBox() -Me.CBImageInfo = New System.Windows.Forms.CheckBox() -Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() -Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() -Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() -Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() -Me.PictureBox2 = New System.Windows.Forms.PictureBox() -Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() -Me.CBWebtease = New System.Windows.Forms.CheckBox() -Me.GBSubFont = New System.Windows.Forms.GroupBox() -Me.BTNSubColor = New System.Windows.Forms.Button() -Me.LBLSubColor = New System.Windows.Forms.Label() -Me.NBFontSize = New System.Windows.Forms.NumericUpDown() -Me.Label2 = New System.Windows.Forms.Label() -Me.FontComboBox = New System.Windows.Forms.ComboBox() -Me.GBDommeFont = New System.Windows.Forms.GroupBox() -Me.BTNDomColor = New System.Windows.Forms.Button() -Me.LBLDomColor = New System.Windows.Forms.Label() -Me.FontComboBoxD = New System.Windows.Forms.ComboBox() -Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() -Me.Label7 = New System.Windows.Forms.Label() -Me.CBInputIcon = New System.Windows.Forms.CheckBox() -Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() -Me.timestampCheckBox = New System.Windows.Forms.CheckBox() -Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() -Me.LBLGeneralSettings = New System.Windows.Forms.Label() -Me.TabPage2 = New System.Windows.Forms.TabPage() -Me.Panel3 = New System.Windows.Forms.Panel() -Me.GBGiveUp = New System.Windows.Forms.GroupBox() -Me.giveupCheckBox = New System.Windows.Forms.CheckBox() -Me.BTNLoadDomSet = New System.Windows.Forms.Button() -Me.BTNSaveDomSet = New System.Windows.Forms.Button() -Me.Label127 = New System.Windows.Forms.Label() -Me.Label126 = New System.Windows.Forms.Label() -Me.PictureBox4 = New System.Windows.Forms.PictureBox() -Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() -Me.TBEmoteEnd = New System.Windows.Forms.TextBox() -Me.Label67 = New System.Windows.Forms.Label() -Me.TBEmote = New System.Windows.Forms.TextBox() -Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() -Me.Label66 = New System.Windows.Forms.Label() -Me.CBMeMyMine = New System.Windows.Forms.CheckBox() -Me.GroupBox63 = New System.Windows.Forms.GroupBox() -Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() -Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() -Me.periodCheckBox = New System.Windows.Forms.CheckBox() -Me.commaCheckBox = New System.Windows.Forms.CheckBox() -Me.Label64 = New System.Windows.Forms.Label() -Me.GBDomRanges = New System.Windows.Forms.GroupBox() -Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() -Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() -Me.Label37 = New System.Windows.Forms.Label() -Me.Label39 = New System.Windows.Forms.Label() -Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() -Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() -Me.Label31 = New System.Windows.Forms.Label() -Me.Label36 = New System.Windows.Forms.Label() -Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() -Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() -Me.Label21 = New System.Windows.Forms.Label() -Me.Label22 = New System.Windows.Forms.Label() -Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() -Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() -Me.Label23 = New System.Windows.Forms.Label() -Me.Label30 = New System.Windows.Forms.Label() -Me.GBDomStats = New System.Windows.Forms.GroupBox() -Me.Label128 = New System.Windows.Forms.Label() -Me.LBLEmpathy = New System.Windows.Forms.Label() -Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() -Me.Label83 = New System.Windows.Forms.Label() -Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() -Me.TBDomEyeColor = New System.Windows.Forms.TextBox() -Me.TBDomHairColor = New System.Windows.Forms.TextBox() -Me.domageNumBox = New System.Windows.Forms.NumericUpDown() -Me.Label47 = New System.Windows.Forms.Label() -Me.Label76 = New System.Windows.Forms.Label() -Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() -Me.Label84 = New System.Windows.Forms.Label() -Me.CBDomTattoos = New System.Windows.Forms.CheckBox() -Me.CBDomFreckles = New System.Windows.Forms.CheckBox() -Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() -Me.Label10 = New System.Windows.Forms.Label() -Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() -Me.Label9 = New System.Windows.Forms.Label() -Me.boobComboBox = New System.Windows.Forms.ComboBox() -Me.DomLevelDescLabel = New System.Windows.Forms.Label() -Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() -Me.Label43 = New System.Windows.Forms.Label() -Me.Label44 = New System.Windows.Forms.Label() -Me.Label45 = New System.Windows.Forms.Label() -Me.Label46 = New System.Windows.Forms.Label() -Me.GBDomPersonality = New System.Windows.Forms.GroupBox() -Me.degradingCheckBox = New System.Windows.Forms.CheckBox() -Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() -Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() -Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() -Me.crazyCheckBox = New System.Windows.Forms.CheckBox() -Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() -Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() -Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() -Me.orgasmlockrandombutton = New System.Windows.Forms.Button() -Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() -Me.Label16 = New System.Windows.Forms.Label() -Me.Label12 = New System.Windows.Forms.Label() -Me.orgasmsperlockButton = New System.Windows.Forms.Button() -Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() -Me.orgasmsperLabel = New System.Windows.Forms.Label() -Me.limitcheckbox = New System.Windows.Forms.CheckBox() -Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() -Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() -Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() -Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() -Me.GBDomPetNames = New System.Windows.Forms.GroupBox() -Me.Label74 = New System.Windows.Forms.Label() -Me.petnameBox7 = New System.Windows.Forms.TextBox() -Me.petnameBox8 = New System.Windows.Forms.TextBox() -Me.petnameBox1 = New System.Windows.Forms.TextBox() -Me.Label15 = New System.Windows.Forms.Label() -Me.petnameBox4 = New System.Windows.Forms.TextBox() -Me.petnameBox6 = New System.Windows.Forms.TextBox() -Me.petnameBox2 = New System.Windows.Forms.TextBox() -Me.Label11 = New System.Windows.Forms.Label() -Me.petnameBox5 = New System.Windows.Forms.TextBox() -Me.petnameBox3 = New System.Windows.Forms.TextBox() -Me.Label54 = New System.Windows.Forms.Label() -Me.TabPage10 = New System.Windows.Forms.TabPage() -Me.Panel2 = New System.Windows.Forms.Panel() -Me.GroupBox22 = New System.Windows.Forms.GroupBox() -Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() -Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() -Me.Label75 = New System.Windows.Forms.Label() -Me.Label77 = New System.Windows.Forms.Label() -Me.GroupBox45 = New System.Windows.Forms.GroupBox() -Me.LBLCBTSlider = New System.Windows.Forms.Label() -Me.CBCBTBalls = New System.Windows.Forms.CheckBox() -Me.CBCBTCock = New System.Windows.Forms.CheckBox() -Me.CBTSlider = New System.Windows.Forms.TrackBar() -Me.GroupBox35 = New System.Windows.Forms.GroupBox() -Me.GroupBoxSorry = New System.Windows.Forms.GroupBox() -Me.TBSorry = New System.Windows.Forms.TextBox() -Me.GroupBox39 = New System.Windows.Forms.GroupBox() -Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() -Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() -Me.TBHonorific = New System.Windows.Forms.TextBox() -Me.GroupBox38 = New System.Windows.Forms.GroupBox() -Me.TBNo = New System.Windows.Forms.TextBox() -Me.GroupBox37 = New System.Windows.Forms.GroupBox() -Me.TBYes = New System.Windows.Forms.TextBox() -Me.GroupBox36 = New System.Windows.Forms.GroupBox() -Me.TBGreeting = New System.Windows.Forms.TextBox() -Me.GroupBox13 = New System.Windows.Forms.GroupBox() -Me.Label34 = New System.Windows.Forms.Label() -Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() -Me.GroupBox7 = New System.Windows.Forms.GroupBox() -Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() -Me.LBLMinExtremeHold = New System.Windows.Forms.Label() -Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() -Me.Label133 = New System.Windows.Forms.Label() -Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() -Me.LBLMaxLongHold = New System.Windows.Forms.Label() -Me.Label78 = New System.Windows.Forms.Label() -Me.LBLMinLongHold = New System.Windows.Forms.Label() -Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() -Me.Label129 = New System.Windows.Forms.Label() -Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() -Me.LBLMaxHold = New System.Windows.Forms.Label() -Me.Label79 = New System.Windows.Forms.Label() -Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() -Me.LBLMinHold = New System.Windows.Forms.Label() -Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() -Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() -Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() -Me.Label55 = New System.Windows.Forms.Label() -Me.Label81 = New System.Windows.Forms.Label() -Me.Label5 = New System.Windows.Forms.Label() -Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() -Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() -Me.Label131 = New System.Windows.Forms.Label() -Me.PictureBox12 = New System.Windows.Forms.PictureBox() -Me.GroupBox32 = New System.Windows.Forms.GroupBox() -Me.LBLSubBdayFormat = New System.Windows.Forms.Label() -Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() -Me.CBOwnChastity = New System.Windows.Forms.CheckBox() -Me.CBChastityPA = New System.Windows.Forms.CheckBox() -Me.CBHimHer = New System.Windows.Forms.CheckBox() -Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() -Me.CBCockToClit = New System.Windows.Forms.CheckBox() -Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() -Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() -Me.CBSubPierced = New System.Windows.Forms.CheckBox() -Me.TBSubEyeColor = New System.Windows.Forms.TextBox() -Me.TBSubHairColor = New System.Windows.Forms.TextBox() -Me.Label63 = New System.Windows.Forms.Label() -Me.LBLSubInches = New System.Windows.Forms.Label() -Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() -Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() -Me.LBLSubCockSize = New System.Windows.Forms.Label() -Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() -Me.LBLSubEye = New System.Windows.Forms.Label() -Me.LBLSubHair = New System.Windows.Forms.Label() -Me.LBLSubBirthday = New System.Windows.Forms.Label() -Me.LBLSubAge = New System.Windows.Forms.Label() -Me.Label70 = New System.Windows.Forms.Label() -Me.TabPage16 = New System.Windows.Forms.TabPage() -Me.Panel9 = New System.Windows.Forms.Panel() -Me.BTNScriptAvailable = New System.Windows.Forms.Button() -Me.BTNScriptNone = New System.Windows.Forms.Button() -Me.BTNScriptAll = New System.Windows.Forms.Button() -Me.BTNScriptOpen = New System.Windows.Forms.Button() -Me.LBLScriptReq = New System.Windows.Forms.Label() -Me.GroupBox31 = New System.Windows.Forms.GroupBox() -Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() -Me.TCScripts = New System.Windows.Forms.TabControl() -Me.TabPage21 = New System.Windows.Forms.TabPage() -Me.CLBStartList = New System.Windows.Forms.CheckedListBox() -Me.TabPage17 = New System.Windows.Forms.TabPage() -Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() -Me.TabPage18 = New System.Windows.Forms.TabPage() -Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() -Me.TabPage19 = New System.Windows.Forms.TabPage() -Me.CLBEndList = New System.Windows.Forms.CheckedListBox() -Me.GroupBox42 = New System.Windows.Forms.GroupBox() -Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() -Me.PictureBox1 = New System.Windows.Forms.PictureBox() -Me.GroupBox43 = New System.Windows.Forms.GroupBox() -Me.Label98 = New System.Windows.Forms.Label() -Me.Label104 = New System.Windows.Forms.Label() -Me.TabPage7 = New System.Windows.Forms.TabPage() -Me.TabControl4 = New System.Windows.Forms.TabControl() -Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() -Me.CBURLPreview = New System.Windows.Forms.CheckBox() -Me.GroupBox66 = New System.Windows.Forms.GroupBox() -Me.PBURLPreview = New System.Windows.Forms.PictureBox() -Me.BTNURLFilesAll = New System.Windows.Forms.Button() -Me.BTNURLFilesNone = New System.Windows.Forms.Button() -Me.URLFileList = New System.Windows.Forms.CheckedListBox() -Me.TpImagesGenre = New System.Windows.Forms.TabPage() -Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() -Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() -Me.BtnImageUrlButt = New System.Windows.Forms.Button() -Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() -Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() -Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() -Me.BtnImageUrlHentai = New System.Windows.Forms.Button() -Me.BtnImageUrlGay = New System.Windows.Forms.Button() -Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() -Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() -Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() -Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() -Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() -Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() -Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() -Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() -Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() -Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() -Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() -Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() -Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() -Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() -Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() -Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() -Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() -Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() -Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() -Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() -Me.BTNIHardcore = New System.Windows.Forms.Button() -Me.TbxIHardcore = New System.Windows.Forms.TextBox() -Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() -Me.CBIHardcore = New System.Windows.Forms.CheckBox() -Me.CBISoftcore = New System.Windows.Forms.CheckBox() -Me.TbxISoftcore = New System.Windows.Forms.TextBox() -Me.CBButtSubDir = New System.Windows.Forms.CheckBox() -Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() -Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() -Me.CBILezdomSD = New System.Windows.Forms.CheckBox() -Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() -Me.CBILesbianSD = New System.Windows.Forms.CheckBox() -Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() -Me.CBILesbian = New System.Windows.Forms.CheckBox() -Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjob = New System.Windows.Forms.CheckBox() -Me.CBIGaySD = New System.Windows.Forms.CheckBox() -Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() -Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() -Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() -Me.TbxIButts = New System.Windows.Forms.TextBox() -Me.CBIFemdom = New System.Windows.Forms.CheckBox() -Me.TbxILesbian = New System.Windows.Forms.TextBox() -Me.BTNISoftcore = New System.Windows.Forms.Button() -Me.CBILezdom = New System.Windows.Forms.CheckBox() -Me.TbxIBoobs = New System.Windows.Forms.TextBox() -Me.CBIHentai = New System.Windows.Forms.CheckBox() -Me.TbxIBlowjob = New System.Windows.Forms.TextBox() -Me.CBIGay = New System.Windows.Forms.CheckBox() -Me.TbxIGeneral = New System.Windows.Forms.TextBox() -Me.CBIMaledom = New System.Windows.Forms.CheckBox() -Me.TbxIFemdom = New System.Windows.Forms.TextBox() -Me.BTNILesbian = New System.Windows.Forms.Button() -Me.TbxICaptions = New System.Windows.Forms.TextBox() -Me.CBICaptions = New System.Windows.Forms.CheckBox() -Me.TbxILezdom = New System.Windows.Forms.TextBox() -Me.TbxIMaledom = New System.Windows.Forms.TextBox() -Me.BTNButtPath = New System.Windows.Forms.Button() -Me.TbxIHentai = New System.Windows.Forms.TextBox() -Me.CBIGeneral = New System.Windows.Forms.CheckBox() -Me.TbxIGay = New System.Windows.Forms.TextBox() -Me.CBIBoobs = New System.Windows.Forms.CheckBox() -Me.CBIButts = New System.Windows.Forms.CheckBox() -Me.BTNIBlowjob = New System.Windows.Forms.Button() -Me.BTNIFemdom = New System.Windows.Forms.Button() -Me.BTNBoobPath = New System.Windows.Forms.Button() -Me.BTNILezdom = New System.Windows.Forms.Button() -Me.BTNIHentai = New System.Windows.Forms.Button() -Me.BTNIGay = New System.Windows.Forms.Button() -Me.BTNIMaledom = New System.Windows.Forms.Button() -Me.BTNICaptions = New System.Windows.Forms.Button() -Me.BTNIGeneral = New System.Windows.Forms.Button() -Me.TabPage33 = New System.Windows.Forms.TabPage() -Me.TabControl5 = New System.Windows.Forms.TabControl() -Me.TabPage34 = New System.Windows.Forms.TabPage() -Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() -Me.CBTagAllFours = New System.Windows.Forms.CheckBox() -Me.CBTagGlaring = New System.Windows.Forms.CheckBox() -Me.CBTagSmiling = New System.Windows.Forms.CheckBox() -Me.TBTagDir = New System.Windows.Forms.TextBox() -Me.CBTagPiercing = New System.Windows.Forms.CheckBox() -Me.CBTagLegs = New System.Windows.Forms.CheckBox() -Me.TBTagFurniture = New System.Windows.Forms.TextBox() -Me.CBTagFurniture = New System.Windows.Forms.CheckBox() -Me.TBTagSexToy = New System.Windows.Forms.TextBox() -Me.CBTagSexToy = New System.Windows.Forms.CheckBox() -Me.TBTagTattoo = New System.Windows.Forms.TextBox() -Me.CBTagTattoo = New System.Windows.Forms.CheckBox() -Me.TBTagUnderwear = New System.Windows.Forms.TextBox() -Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() -Me.TBTagGarment = New System.Windows.Forms.TextBox() -Me.CBTagGarment = New System.Windows.Forms.CheckBox() -Me.Label72 = New System.Windows.Forms.Label() -Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() -Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() -Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() -Me.CBTagNaked = New System.Windows.Forms.RadioButton() -Me.CBTagSideView = New System.Windows.Forms.CheckBox() -Me.BTNTagPrevious = New System.Windows.Forms.Button() -Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() -Me.BTNTagNext = New System.Windows.Forms.Button() -Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() -Me.LBLTagCount = New System.Windows.Forms.Label() -Me.CBTagSucking = New System.Windows.Forms.CheckBox() -Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() -Me.CBTagFeet = New System.Windows.Forms.CheckBox() -Me.CBTagBoobs = New System.Windows.Forms.CheckBox() -Me.CBTagAss = New System.Windows.Forms.CheckBox() -Me.CBTagPussy = New System.Windows.Forms.CheckBox() -Me.BTNTagSave = New System.Windows.Forms.Button() -Me.BTNTagDir = New System.Windows.Forms.Button() -Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() -Me.CBTagFace = New System.Windows.Forms.CheckBox() -Me.TabPage35 = New System.Windows.Forms.TabPage() -Me.GroupBox55 = New System.Windows.Forms.GroupBox() -Me.CBTagNurse = New System.Windows.Forms.CheckBox() -Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() -Me.CBTagMaid = New System.Windows.Forms.CheckBox() -Me.CBTagTeacher = New System.Windows.Forms.CheckBox() -Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() -Me.GroupBox53 = New System.Windows.Forms.GroupBox() -Me.CBTagTrap = New System.Windows.Forms.CheckBox() -Me.CBTagTentacles = New System.Windows.Forms.CheckBox() -Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() -Me.CBTagBukkake = New System.Windows.Forms.CheckBox() -Me.CBTagGanguro = New System.Windows.Forms.CheckBox() -Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() -Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() -Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() -Me.CBTagAhegao = New System.Windows.Forms.CheckBox() -Me.CBTagShibari = New System.Windows.Forms.CheckBox() -Me.GroupBox49 = New System.Windows.Forms.GroupBox() -Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() -Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() -Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() -Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() -Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() -Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() -Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() -Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() -Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() -Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() -Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() -Me.GroupBox46 = New System.Windows.Forms.GroupBox() -Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() -Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() -Me.CBTagFemdom = New System.Windows.Forms.CheckBox() -Me.CBTag2M = New System.Windows.Forms.CheckBox() -Me.CBTagFutadom = New System.Windows.Forms.CheckBox() -Me.CBTagFemsub = New System.Windows.Forms.CheckBox() -Me.CBTag2Futa = New System.Windows.Forms.CheckBox() -Me.CBTagMaledom = New System.Windows.Forms.CheckBox() -Me.CBTag3M = New System.Windows.Forms.CheckBox() -Me.CBTagFutasub = New System.Windows.Forms.CheckBox() -Me.CBTag3Futa = New System.Windows.Forms.CheckBox() -Me.CBTagMalesub = New System.Windows.Forms.CheckBox() -Me.CBTag2F = New System.Windows.Forms.CheckBox() -Me.CBTag1Futa = New System.Windows.Forms.CheckBox() -Me.CBTag1M = New System.Windows.Forms.CheckBox() -Me.CBTag1F = New System.Windows.Forms.CheckBox() -Me.CBTag3F = New System.Windows.Forms.CheckBox() -Me.GroupBox54 = New System.Windows.Forms.GroupBox() -Me.CBTagTattoos = New System.Windows.Forms.CheckBox() -Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() -Me.CBTagDomme = New System.Windows.Forms.CheckBox() -Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() -Me.CBTagWatersports = New System.Windows.Forms.CheckBox() -Me.CBTagStockings = New System.Windows.Forms.CheckBox() -Me.CBTagCumshot = New System.Windows.Forms.CheckBox() -Me.CBTagCumEating = New System.Windows.Forms.CheckBox() -Me.CBTagVibrator = New System.Windows.Forms.CheckBox() -Me.CBTagDildo = New System.Windows.Forms.CheckBox() -Me.CBTagKissing = New System.Windows.Forms.CheckBox() -Me.GroupBox51 = New System.Windows.Forms.GroupBox() -Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() -Me.CBTagGag = New System.Windows.Forms.CheckBox() -Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() -Me.CBTagWhipping = New System.Windows.Forms.CheckBox() -Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() -Me.CBTagElectro = New System.Windows.Forms.CheckBox() -Me.CBTagHotWax = New System.Windows.Forms.CheckBox() -Me.CBTagClamps = New System.Windows.Forms.CheckBox() -Me.CBTagStrapon = New System.Windows.Forms.CheckBox() -Me.CBTagSpanking = New System.Windows.Forms.CheckBox() -Me.CBTagNeedles = New System.Windows.Forms.CheckBox() -Me.GroupBox50 = New System.Windows.Forms.GroupBox() -Me.CBTagRimming = New System.Windows.Forms.CheckBox() -Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() -Me.CBTagMissionary = New System.Windows.Forms.CheckBox() -Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() -Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() -Me.CBTagFingering = New System.Windows.Forms.CheckBox() -Me.CBTagGangbang = New System.Windows.Forms.CheckBox() -Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() -Me.CBTagDP = New System.Windows.Forms.CheckBox() -Me.CBTagHandjob = New System.Windows.Forms.CheckBox() -Me.CBTagStanding = New System.Windows.Forms.CheckBox() -Me.CBTagFootjob = New System.Windows.Forms.CheckBox() -Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() -Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() -Me.CBTagTitjob = New System.Windows.Forms.CheckBox() -Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() -Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() -Me.GroupBox48 = New System.Windows.Forms.GroupBox() -Me.CBTagArtwork = New System.Windows.Forms.CheckBox() -Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() -Me.CBTagPOV = New System.Windows.Forms.CheckBox() -Me.CBTagHardcore = New System.Windows.Forms.CheckBox() -Me.CBTagTD = New System.Windows.Forms.CheckBox() -Me.CBTagGay = New System.Windows.Forms.CheckBox() -Me.CBTagBath = New System.Windows.Forms.CheckBox() -Me.CBTagBisexual = New System.Windows.Forms.CheckBox() -Me.CBTagCFNM = New System.Windows.Forms.CheckBox() -Me.CBTagLesbian = New System.Windows.Forms.CheckBox() -Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() -Me.CBTagSM = New System.Windows.Forms.CheckBox() -Me.CBTagBondage = New System.Windows.Forms.CheckBox() -Me.CBTagSoloM = New System.Windows.Forms.CheckBox() -Me.CBTagSoloF = New System.Windows.Forms.CheckBox() -Me.CBTagChastity = New System.Windows.Forms.CheckBox() -Me.CBTagShower = New System.Windows.Forms.CheckBox() -Me.TBLocalTagDir = New System.Windows.Forms.TextBox() -Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() -Me.BTNLocalTagNext = New System.Windows.Forms.Button() -Me.LBLLocalTagCount = New System.Windows.Forms.Label() -Me.BTNLocalTagSave = New System.Windows.Forms.Button() -Me.BTNLocalTagDir = New System.Windows.Forms.Button() -Me.TabPage11 = New System.Windows.Forms.TabPage() -Me.Panel7 = New System.Windows.Forms.Panel() -Me.BTNWIContinue = New System.Windows.Forms.Button() -Me.BTNWIAddandContinue = New System.Windows.Forms.Button() -Me.BTNWICancel = New System.Windows.Forms.Button() -Me.CBWIReview = New System.Windows.Forms.CheckBox() -Me.BTNWIBrowse = New System.Windows.Forms.Button() -Me.TBWIDirectory = New System.Windows.Forms.TextBox() -Me.BTNWIDisliked = New System.Windows.Forms.Button() -Me.BTNWILiked = New System.Windows.Forms.Button() -Me.BTNWIRemove = New System.Windows.Forms.Button() -Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() -Me.PictureBox5 = New System.Windows.Forms.PictureBox() -Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() -Me.BTNWICreateURL = New System.Windows.Forms.Button() -Me.LBLWebImageCount = New System.Windows.Forms.Label() -Me.BTNWISave = New System.Windows.Forms.Button() -Me.BTNWIOpenURL = New System.Windows.Forms.Button() -Me.BTNWIPrevious = New System.Windows.Forms.Button() -Me.BTNWINext = New System.Windows.Forms.Button() -Me.WebPictureBox = New System.Windows.Forms.PictureBox() -Me.Label71 = New System.Windows.Forms.Label() -Me.TpVideoSettings = New System.Windows.Forms.TabPage() -Me.PnlVideoSettings = New System.Windows.Forms.Panel() -Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() -Me.BTNRefreshVideos = New System.Windows.Forms.Button() -Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() -Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() -Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() -Me.BTNVideoGeneralD = New System.Windows.Forms.Button() -Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() -Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() -Me.LblVideoCHTotalD = New System.Windows.Forms.Label() -Me.LblVideoJOITotalD = New System.Windows.Forms.Label() -Me.TxbVideoCHD = New System.Windows.Forms.TextBox() -Me.TxbVideoJOID = New System.Windows.Forms.TextBox() -Me.BTNVideoCHD = New System.Windows.Forms.Button() -Me.BTNVideoJOID = New System.Windows.Forms.Button() -Me.CBVideoJOID = New System.Windows.Forms.CheckBox() -Me.CBVideoCHD = New System.Windows.Forms.CheckBox() -Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() -Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() -Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() -Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() -Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() -Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() -Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() -Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() -Me.BTNVideoFemSubD = New System.Windows.Forms.Button() -Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() -Me.BTNVideoFemDomD = New System.Windows.Forms.Button() -Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() -Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() -Me.BTNVideoLesbianD = New System.Windows.Forms.Button() -Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() -Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() -Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() -Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() -Me.VideoDescriptionLabel = New System.Windows.Forms.Label() -Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() -Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() -Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() -Me.BTNVideoGeneral = New System.Windows.Forms.Button() -Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() -Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() -Me.LblVideoCHTotal = New System.Windows.Forms.Label() -Me.LblVideoJOITotal = New System.Windows.Forms.Label() -Me.TxbVideoCH = New System.Windows.Forms.TextBox() -Me.TxbVideoJOI = New System.Windows.Forms.TextBox() -Me.BTNVideoCH = New System.Windows.Forms.Button() -Me.BTNVideoJOI = New System.Windows.Forms.Button() -Me.CBVideoJOI = New System.Windows.Forms.CheckBox() -Me.CBVideoCH = New System.Windows.Forms.CheckBox() -Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() -Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() -Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() -Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() -Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() -Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() -Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() -Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() -Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() -Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() -Me.BTNVideoFemSub = New System.Windows.Forms.Button() -Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() -Me.BTNVideoFemDom = New System.Windows.Forms.Button() -Me.BTNVideoBlowjob = New System.Windows.Forms.Button() -Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() -Me.BTNVideoLesbian = New System.Windows.Forms.Button() -Me.BTNVideoSoftCore = New System.Windows.Forms.Button() -Me.BTNVideoHardCore = New System.Windows.Forms.Button() -Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() -Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() -Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() -Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() -Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() -Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() -Me.LblVideoHeader = New System.Windows.Forms.Label() -Me.TabPage20 = New System.Windows.Forms.TabPage() -Me.TabControl1 = New System.Windows.Forms.TabControl() -Me.TabPage22 = New System.Windows.Forms.TabPage() -Me.PNLGlitter = New System.Windows.Forms.Panel() -Me.GroupBox14 = New System.Windows.Forms.GroupBox() -Me.Label170 = New System.Windows.Forms.Label() -Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() -Me.RandomHonorific = New System.Windows.Forms.TextBox() -Me.GroupBox4 = New System.Windows.Forms.GroupBox() -Me.LBLCurrentDomme = New System.Windows.Forms.Label() -Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() -Me.BTNDomChangeRandom = New System.Windows.Forms.Button() -Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() -Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() -Me.BTNDomChangeDomme = New System.Windows.Forms.Button() -Me.Button15 = New System.Windows.Forms.Button() -Me.Button16 = New System.Windows.Forms.Button() -Me.Label121 = New System.Windows.Forms.Label() -Me.Label122 = New System.Windows.Forms.Label() -Me.GBGlitterD = New System.Windows.Forms.GroupBox() -Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() -Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() -Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() -Me.BTNGlitterD = New System.Windows.Forms.Button() -Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() -Me.LBLGlitterSlider = New System.Windows.Forms.Label() -Me.CBCustom2 = New System.Windows.Forms.CheckBox() -Me.GlitterSlider = New System.Windows.Forms.TrackBar() -Me.CBCustom1 = New System.Windows.Forms.CheckBox() -Me.CBDaily = New System.Windows.Forms.CheckBox() -Me.CBTrivia = New System.Windows.Forms.CheckBox() -Me.TBGlitterShortName = New System.Windows.Forms.TextBox() -Me.CBEgotist = New System.Windows.Forms.CheckBox() -Me.CBTease = New System.Windows.Forms.CheckBox() -Me.GlitterAV = New System.Windows.Forms.PictureBox() -Me.GBGlitter1 = New System.Windows.Forms.GroupBox() -Me.Label167 = New System.Windows.Forms.Label() -Me.G1Honorific = New System.Windows.Forms.TextBox() -Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() -Me.BtnContact1ImageDir = New System.Windows.Forms.Button() -Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() -Me.BTNGlitter1 = New System.Windows.Forms.Button() -Me.LBLGlitterNC1 = New System.Windows.Forms.Label() -Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() -Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() -Me.CBGlitter1 = New System.Windows.Forms.CheckBox() -Me.TBGlitter1 = New System.Windows.Forms.TextBox() -Me.GlitterAV1 = New System.Windows.Forms.PictureBox() -Me.GBGlitter3 = New System.Windows.Forms.GroupBox() -Me.Label168 = New System.Windows.Forms.Label() -Me.G3Honorific = New System.Windows.Forms.TextBox() -Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() -Me.BtnContact3ImageDir = New System.Windows.Forms.Button() -Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() -Me.BTNGlitter3 = New System.Windows.Forms.Button() -Me.LBLGlitterNC3 = New System.Windows.Forms.Label() -Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() -Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() -Me.CBGlitter3 = New System.Windows.Forms.CheckBox() -Me.TBGlitter3 = New System.Windows.Forms.TextBox() -Me.GlitterAV3 = New System.Windows.Forms.PictureBox() -Me.GBGlitter2 = New System.Windows.Forms.GroupBox() -Me.Label169 = New System.Windows.Forms.Label() -Me.G2Honorific = New System.Windows.Forms.TextBox() -Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() -Me.BtnContact2ImageDir = New System.Windows.Forms.Button() -Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() -Me.BTNGlitter2 = New System.Windows.Forms.Button() -Me.LBLGlitterNC2 = New System.Windows.Forms.Label() -Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() -Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() -Me.CBGlitter2 = New System.Windows.Forms.CheckBox() -Me.TBGlitter2 = New System.Windows.Forms.TextBox() -Me.GlitterAV2 = New System.Windows.Forms.PictureBox() -Me.TpGames = New System.Windows.Forms.TabPage() -Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() -Me.LblCardsSetupNote = New System.Windows.Forms.Label() -Me.CBGameSounds = New System.Windows.Forms.CheckBox() -Me.GbxCardsGold = New System.Windows.Forms.GroupBox() -Me.GN6 = New System.Windows.Forms.TextBox() -Me.GP6 = New System.Windows.Forms.PictureBox() -Me.GN2 = New System.Windows.Forms.TextBox() -Me.GP2 = New System.Windows.Forms.PictureBox() -Me.GP5 = New System.Windows.Forms.PictureBox() -Me.GN1 = New System.Windows.Forms.TextBox() -Me.GP1 = New System.Windows.Forms.PictureBox() -Me.GN5 = New System.Windows.Forms.TextBox() -Me.GN3 = New System.Windows.Forms.TextBox() -Me.GP3 = New System.Windows.Forms.PictureBox() -Me.GP4 = New System.Windows.Forms.PictureBox() -Me.GN4 = New System.Windows.Forms.TextBox() -Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() -Me.CardBack = New System.Windows.Forms.PictureBox() -Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() -Me.BN6 = New System.Windows.Forms.TextBox() -Me.BN3 = New System.Windows.Forms.TextBox() -Me.BP3 = New System.Windows.Forms.PictureBox() -Me.BP6 = New System.Windows.Forms.PictureBox() -Me.BN2 = New System.Windows.Forms.TextBox() -Me.BN5 = New System.Windows.Forms.TextBox() -Me.BP5 = New System.Windows.Forms.PictureBox() -Me.BP2 = New System.Windows.Forms.PictureBox() -Me.BN1 = New System.Windows.Forms.TextBox() -Me.BN4 = New System.Windows.Forms.TextBox() -Me.BP4 = New System.Windows.Forms.PictureBox() -Me.BP1 = New System.Windows.Forms.PictureBox() -Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() -Me.SN6 = New System.Windows.Forms.TextBox() -Me.SP6 = New System.Windows.Forms.PictureBox() -Me.SN2 = New System.Windows.Forms.TextBox() -Me.SP2 = New System.Windows.Forms.PictureBox() -Me.SN1 = New System.Windows.Forms.TextBox() -Me.SP5 = New System.Windows.Forms.PictureBox() -Me.SP1 = New System.Windows.Forms.PictureBox() -Me.SN5 = New System.Windows.Forms.TextBox() -Me.SN3 = New System.Windows.Forms.TextBox() -Me.SN4 = New System.Windows.Forms.TextBox() -Me.SP3 = New System.Windows.Forms.PictureBox() -Me.SP4 = New System.Windows.Forms.PictureBox() -Me.TabPage6 = New System.Windows.Forms.TabPage() -Me.Panel10 = New System.Windows.Forms.Panel() -Me.TBWishlistComment = New System.Windows.Forms.TextBox() -Me.Label32 = New System.Windows.Forms.Label() -Me.TBWishlistItem = New System.Windows.Forms.TextBox() -Me.radioGold = New System.Windows.Forms.RadioButton() -Me.Label42 = New System.Windows.Forms.Label() -Me.radioSilver = New System.Windows.Forms.RadioButton() -Me.TBWishlistURL = New System.Windows.Forms.TextBox() -Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() -Me.Label48 = New System.Windows.Forms.Label() -Me.Label73 = New System.Windows.Forms.Label() -Me.Label107 = New System.Windows.Forms.Label() -Me.BTNWishlistCreate = New System.Windows.Forms.Button() -Me.Label18 = New System.Windows.Forms.Label() -Me.PNLWishList = New System.Windows.Forms.Panel() -Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() -Me.LBLWishListText = New System.Windows.Forms.Label() -Me.LBLWishlistCost = New System.Windows.Forms.Label() -Me.WishlistCostGold = New System.Windows.Forms.PictureBox() -Me.LBLWishListName = New System.Windows.Forms.Label() -Me.WishlistPreview = New System.Windows.Forms.PictureBox() -Me.TabPage26 = New System.Windows.Forms.TabPage() -Me.Panel12 = New System.Windows.Forms.Panel() -Me.GroupBox9 = New System.Windows.Forms.GroupBox() -Me.Button32 = New System.Windows.Forms.Button() -Me.Button31 = New System.Windows.Forms.Button() -Me.PictureBox10 = New System.Windows.Forms.PictureBox() -Me.GroupBox5 = New System.Windows.Forms.GroupBox() -Me.CBTransparentTime = New System.Windows.Forms.CheckBox() -Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() -Me.Label137 = New System.Windows.Forms.Label() -Me.Label138 = New System.Windows.Forms.Label() -Me.LBLDateBackColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor = New System.Windows.Forms.Label() -Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() -Me.LBLTextColor2 = New System.Windows.Forms.Label() -Me.LBLChatTextColor = New System.Windows.Forms.Label() -Me.LBLBackColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor = New System.Windows.Forms.Label() -Me.LBLChatWindowColor = New System.Windows.Forms.Label() -Me.LBLBackColor = New System.Windows.Forms.Label() -Me.LBLChatTextColor2 = New System.Windows.Forms.Label() -Me.LBLButtonColor2 = New System.Windows.Forms.Label() -Me.GroupBox11 = New System.Windows.Forms.GroupBox() -Me.Label144 = New System.Windows.Forms.Label() -Me.GroupBox1 = New System.Windows.Forms.GroupBox() -Me.CBFlipBack = New System.Windows.Forms.CheckBox() -Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() -Me.Button17 = New System.Windows.Forms.Button() -Me.CBStretchBack = New System.Windows.Forms.CheckBox() -Me.Button18 = New System.Windows.Forms.Button() -Me.Label164 = New System.Windows.Forms.Label() -Me.TabPage4 = New System.Windows.Forms.TabPage() -Me.Panel6 = New System.Windows.Forms.Panel() -Me.GroupBox69 = New System.Windows.Forms.GroupBox() -Me.TypesSpeedVal = New System.Windows.Forms.Label() -Me.TypeSpeedLabel = New System.Windows.Forms.Label() -Me.TimedWriting = New System.Windows.Forms.CheckBox() -Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() -Me.GroupBox68 = New System.Windows.Forms.GroupBox() -Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() -Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() -Me.Label165 = New System.Windows.Forms.Label() -Me.Label166 = New System.Windows.Forms.Label() -Me.GroupBox67 = New System.Windows.Forms.GroupBox() -Me.Label161 = New System.Windows.Forms.Label() -Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() -Me.Label162 = New System.Windows.Forms.Label() -Me.Label163 = New System.Windows.Forms.Label() -Me.Label158 = New System.Windows.Forms.Label() -Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() -Me.Label159 = New System.Windows.Forms.Label() -Me.Label160 = New System.Windows.Forms.Label() -Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() -Me.Label119 = New System.Windows.Forms.Label() -Me.Label157 = New System.Windows.Forms.Label() -Me.Label151 = New System.Windows.Forms.Label() -Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() -Me.Label154 = New System.Windows.Forms.Label() -Me.Label155 = New System.Windows.Forms.Label() -Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() -Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() -Me.Label146 = New System.Windows.Forms.Label() -Me.Label149 = New System.Windows.Forms.Label() -Me.GroupBox10 = New System.Windows.Forms.GroupBox() -Me.Label112 = New System.Windows.Forms.Label() -Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() -Me.Label6 = New System.Windows.Forms.Label() -Me.GroupBox57 = New System.Windows.Forms.GroupBox() -Me.Label139 = New System.Windows.Forms.Label() -Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() -Me.LBLVtf = New System.Windows.Forms.Label() -Me.LBLStf = New System.Windows.Forms.Label() -Me.SliderSTF = New System.Windows.Forms.TrackBar() -Me.TauntSlider = New System.Windows.Forms.TrackBar() -Me.Label106 = New System.Windows.Forms.Label() -Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() -Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() -Me.Label103 = New System.Windows.Forms.Label() -Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() -Me.Label105 = New System.Windows.Forms.Label() -Me.Label101 = New System.Windows.Forms.Label() -Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() -Me.Label102 = New System.Windows.Forms.Label() -Me.Label97 = New System.Windows.Forms.Label() -Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() -Me.Label99 = New System.Windows.Forms.Label() -Me.Label96 = New System.Windows.Forms.Label() -Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() -Me.Label95 = New System.Windows.Forms.Label() -Me.Label49 = New System.Windows.Forms.Label() -Me.Label141 = New System.Windows.Forms.Label() -Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() -Me.Label90 = New System.Windows.Forms.Label() -Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() -Me.Label91 = New System.Windows.Forms.Label() -Me.Label92 = New System.Windows.Forms.Label() -Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() -Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() -Me.CBRangeRuin = New System.Windows.Forms.CheckBox() -Me.GroupBox17 = New System.Windows.Forms.GroupBox() -Me.GroupBox19 = New System.Windows.Forms.GroupBox() -Me.Label110 = New System.Windows.Forms.Label() -Me.Label111 = New System.Windows.Forms.Label() -Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() -Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() -Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() -Me.Label26 = New System.Windows.Forms.Label() -Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() -Me.Label28 = New System.Windows.Forms.Label() -Me.Label27 = New System.Windows.Forms.Label() -Me.Label29 = New System.Windows.Forms.Label() -Me.GroupBox18 = New System.Windows.Forms.GroupBox() -Me.Label108 = New System.Windows.Forms.Label() -Me.Label109 = New System.Windows.Forms.Label() -Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() -Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() -Me.CBCensorConstant = New System.Windows.Forms.CheckBox() -Me.Label25 = New System.Windows.Forms.Label() -Me.Label20 = New System.Windows.Forms.Label() -Me.Label19 = New System.Windows.Forms.Label() -Me.Label24 = New System.Windows.Forms.Label() -Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() -Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() -Me.Label89 = New System.Windows.Forms.Label() -Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() -Me.Label86 = New System.Windows.Forms.Label() -Me.Label82 = New System.Windows.Forms.Label() -Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() -Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() -Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() -Me.PictureBox8 = New System.Windows.Forms.PictureBox() -Me.Label38 = New System.Windows.Forms.Label() -Me.TabPage13 = New System.Windows.Forms.TabPage() -Me.TabControl2 = New System.Windows.Forms.TabControl() -Me.TabPage27 = New System.Windows.Forms.TabPage() -Me.TBPlaylistSave = New System.Windows.Forms.TextBox() -Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() -Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() -Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() -Me.BTNPlaylistEnd = New System.Windows.Forms.Button() -Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() -Me.BTNPlaylistSave = New System.Windows.Forms.Button() -Me.Button7 = New System.Windows.Forms.Button() -Me.WBPlaylist = New System.Windows.Forms.WebBrowser() -Me.Label80 = New System.Windows.Forms.Label() -Me.LBLPlaylIstLink = New System.Windows.Forms.Label() -Me.LBLPlaylistModule = New System.Windows.Forms.Label() -Me.LBLPLaylistStart = New System.Windows.Forms.Label() -Me.LBPlaylist = New System.Windows.Forms.ListBox() -Me.TabPage14 = New System.Windows.Forms.TabPage() -Me.LBLKeywordPreview = New System.Windows.Forms.Label() -Me.Label88 = New System.Windows.Forms.Label() -Me.TBKeywordPreview = New System.Windows.Forms.TextBox() -Me.Button37 = New System.Windows.Forms.Button() -Me.Button50 = New System.Windows.Forms.Button() -Me.Button22 = New System.Windows.Forms.Button() -Me.TBKeyWords = New System.Windows.Forms.TextBox() -Me.LBKeyWords = New System.Windows.Forms.ListBox() -Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() -Me.TabPage24 = New System.Windows.Forms.TabPage() -Me.Button9 = New System.Windows.Forms.Button() -Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() -Me.Button4 = New System.Windows.Forms.Button() -Me.Button5 = New System.Windows.Forms.Button() -Me.TBResponses = New System.Windows.Forms.TextBox() -Me.LBResponses = New System.Windows.Forms.ListBox() -Me.RTBResponses = New System.Windows.Forms.RichTextBox() -Me.TabPage8 = New System.Windows.Forms.TabPage() -Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() -Me.GroupBox29 = New System.Windows.Forms.GroupBox() -Me.Label51 = New System.Windows.Forms.Label() -Me.BTNVideoModClear = New System.Windows.Forms.Button() -Me.GroupBox28 = New System.Windows.Forms.GroupBox() -Me.CBVTType = New System.Windows.Forms.ComboBox() -Me.BTNVideoModLoad = New System.Windows.Forms.Button() -Me.GroupBox30 = New System.Windows.Forms.GroupBox() -Me.LBVidScript = New System.Windows.Forms.ListBox() -Me.BTNVideoModSave = New System.Windows.Forms.Button() -Me.TabPage15 = New System.Windows.Forms.TabPage() -Me.Label62 = New System.Windows.Forms.Label() -Me.Label61 = New System.Windows.Forms.Label() -Me.Label57 = New System.Windows.Forms.Label() -Me.Label58 = New System.Windows.Forms.Label() -Me.Label60 = New System.Windows.Forms.Label() -Me.TBGlitModFileName = New System.Windows.Forms.TextBox() -Me.GroupBox34 = New System.Windows.Forms.GroupBox() -Me.Label52 = New System.Windows.Forms.Label() -Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() -Me.Button26 = New System.Windows.Forms.Button() -Me.Label56 = New System.Windows.Forms.Label() -Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() -Me.LBGlitModScripts = New System.Windows.Forms.ListBox() -Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() -Me.LBLGlitModDomType = New System.Windows.Forms.Label() -Me.Button29 = New System.Windows.Forms.Button() -Me.CBGlitModType = New System.Windows.Forms.ComboBox() -Me.Label59 = New System.Windows.Forms.Label() -Me.Label50 = New System.Windows.Forms.Label() -Me.TabPage25 = New System.Windows.Forms.TabPage() -Me.Panel11 = New System.Windows.Forms.Panel() -Me.GroupBox62 = New System.Windows.Forms.GroupBox() -Me.RBGerman = New System.Windows.Forms.RadioButton() -Me.RBEnglish = New System.Windows.Forms.RadioButton() -Me.GroupBox33 = New System.Windows.Forms.GroupBox() -Me.BTNOfflineMode = New System.Windows.Forms.Button() -Me.LBLOfflineMode = New System.Windows.Forms.Label() -Me.Label140 = New System.Windows.Forms.Label() -Me.Button11 = New System.Windows.Forms.Button() -Me.LBLChastityState = New System.Windows.Forms.Label() -Me.Label120 = New System.Windows.Forms.Label() -Me.GroupBox8 = New System.Windows.Forms.GroupBox() -Me.CBOutputErrors = New System.Windows.Forms.CheckBox() -Me.GroupBox27 = New System.Windows.Forms.GroupBox() -Me.Button6 = New System.Windows.Forms.Button() -Me.LBLSesSpace = New System.Windows.Forms.Label() -Me.Button3 = New System.Windows.Forms.Button() -Me.LBLSesFiles = New System.Windows.Forms.Label() -Me.Label125 = New System.Windows.Forms.Label() -Me.Label124 = New System.Windows.Forms.Label() -Me.GroupBox20 = New System.Windows.Forms.GroupBox() -Me.BTNURLFileReplace = New System.Windows.Forms.Button() -Me.Label87 = New System.Windows.Forms.Label() -Me.TBURLFileWith = New System.Windows.Forms.TextBox() -Me.Label118 = New System.Windows.Forms.Label() -Me.Label85 = New System.Windows.Forms.Label() -Me.TBURLFileReplace = New System.Windows.Forms.TextBox() -Me.Label53 = New System.Windows.Forms.Label() -Me.Label8 = New System.Windows.Forms.Label() -Me.Button1 = New System.Windows.Forms.Button() -Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() -Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() -Me.Label117 = New System.Windows.Forms.Label() -Me.Label116 = New System.Windows.Forms.Label() -Me.PBCurrent = New System.Windows.Forms.ProgressBar() -Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() -Me.PBMaintenance = New System.Windows.Forms.ProgressBar() -Me.LBLMaintenance = New System.Windows.Forms.Label() -Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() -Me.GroupBox15 = New System.Windows.Forms.GroupBox() -Me.Label115 = New System.Windows.Forms.Label() -Me.TBWebStop = New System.Windows.Forms.TextBox() -Me.TBWebStart = New System.Windows.Forms.TextBox() -Me.Label114 = New System.Windows.Forms.Label() -Me.WebToy = New System.Windows.Forms.WebBrowser() -Me.PictureBox9 = New System.Windows.Forms.PictureBox() -Me.Label148 = New System.Windows.Forms.Label() -Me.TabPage28 = New System.Windows.Forms.TabPage() -Me.TabControl3 = New System.Windows.Forms.TabControl() -Me.TabPage29 = New System.Windows.Forms.TabPage() -Me.Label143 = New System.Windows.Forms.Label() -Me.LBLDebugScriptTime = New System.Windows.Forms.Label() -Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() -Me.GroupBox26 = New System.Windows.Forms.GroupBox() -Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() -Me.Button19 = New System.Windows.Forms.Button() -Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() -Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() -Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() -Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() -Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() -Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() -Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() -Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() -Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() -Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() -Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() -Me.Label145 = New System.Windows.Forms.Label() -Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() -Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() -Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() -Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() -Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() -Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() -Me.Label142 = New System.Windows.Forms.Label() -Me.Label150 = New System.Windows.Forms.Label() -Me.Label152 = New System.Windows.Forms.Label() -Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() -Me.Label147 = New System.Windows.Forms.Label() -Me.TabPage30 = New System.Windows.Forms.TabPage() -Me.Button33 = New System.Windows.Forms.Button() -Me.Button24 = New System.Windows.Forms.Button() -Me.TabPage5 = New System.Windows.Forms.TabPage() -Me.Panel5 = New System.Windows.Forms.Panel() -Me.Label130 = New System.Windows.Forms.Label() -Me.Label123 = New System.Windows.Forms.Label() -Me.Label69 = New System.Windows.Forms.Label() -Me.Label113 = New System.Windows.Forms.Label() -Me.Label40 = New System.Windows.Forms.Label() -Me.Label35 = New System.Windows.Forms.Label() -Me.Label33 = New System.Windows.Forms.Label() -Me.Label17 = New System.Windows.Forms.Label() -Me.Label3 = New System.Windows.Forms.Label() -Me.PictureBox3 = New System.Windows.Forms.PictureBox() -Me.Label41 = New System.Windows.Forms.Label() -Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() -Me.GroupBox47 = New System.Windows.Forms.GroupBox() -Me.GroupBox41 = New System.Windows.Forms.GroupBox() -Me.Button34 = New System.Windows.Forms.Button() -Me.GroupBox40 = New System.Windows.Forms.GroupBox() -Me.GroupBox44 = New System.Windows.Forms.GroupBox() -Me.Label100 = New System.Windows.Forms.Label() -Me.GroupBox6 = New System.Windows.Forms.GroupBox() -Me.Label4 = New System.Windows.Forms.Label() -Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() -Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() -Me.Label94 = New System.Windows.Forms.Label() -Me.LBLLastRuined = New System.Windows.Forms.Label() -Me.Label65 = New System.Windows.Forms.Label() -Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() -Me.LBLLastOrgasm = New System.Windows.Forms.Label() -Me.Label14 = New System.Windows.Forms.Label() -Me.GroupBox21 = New System.Windows.Forms.GroupBox() -Me.Label153 = New System.Windows.Forms.Label() -Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() -Me.Label156 = New System.Windows.Forms.Label() -Me.GroupBox12 = New System.Windows.Forms.GroupBox() -Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() -Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() -Me.GetColor = New System.Windows.Forms.ColorDialog() -Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() -Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() -Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() -Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() -Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() -Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() -Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) -Me.GroupBox65 = New System.Windows.Forms.GroupBox() -Me.Label136 = New System.Windows.Forms.Label() -Me.Label134 = New System.Windows.Forms.Label() -Me.Label132 = New System.Windows.Forms.Label() -Me.TrackBar1 = New System.Windows.Forms.TrackBar() -Me.ComboBox1 = New System.Windows.Forms.ComboBox() -Me.CheckBox1 = New System.Windows.Forms.CheckBox() -Me.Label135 = New System.Windows.Forms.Label() -Me.TrackBar2 = New System.Windows.Forms.TrackBar() -Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() -Me.TextBox2 = New System.Windows.Forms.TextBox() -Me.Label171 = New System.Windows.Forms.Label() -Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() -Me.SettingsPanel.SuspendLayout -Me.SettingsTabs.SuspendLayout -Me.TabPage1.SuspendLayout -Me.PNLGeneralSettings.SuspendLayout -Me.GroupBox3.SuspendLayout -Me.GroupBox2.SuspendLayout -Me.GroupBox64.SuspendLayout -Me.GBDommeImages.SuspendLayout -CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralTextToSpeech.SuspendLayout -CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBSafeword.SuspendLayout -Me.GBGeneralSystem.SuspendLayout -Me.GBGeneralImages.SuspendLayout -CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGeneralSettings.SuspendLayout -Me.GBSubFont.SuspendLayout -CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDommeFont.SuspendLayout -CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage2.SuspendLayout -Me.Panel3.SuspendLayout -Me.GBGiveUp.SuspendLayout -CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomTypingStyle.SuspendLayout -CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox63.SuspendLayout -Me.GBDomRanges.SuspendLayout -CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomStats.SuspendLayout -CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomPersonality.SuspendLayout -Me.GBDomOrgasms.SuspendLayout -CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBDomPetNames.SuspendLayout -Me.TabPage10.SuspendLayout -Me.Panel2.SuspendLayout -Me.GroupBox22.SuspendLayout -CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox45.SuspendLayout -CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox35.SuspendLayout -Me.GroupBoxSorry.SuspendLayout -Me.GroupBox39.SuspendLayout -Me.GroupBox38.SuspendLayout -Me.GroupBox37.SuspendLayout -Me.GroupBox36.SuspendLayout -Me.GroupBox13.SuspendLayout -Me.GroupBox7.SuspendLayout -CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox32.SuspendLayout -CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage16.SuspendLayout -Me.Panel9.SuspendLayout -Me.GroupBox31.SuspendLayout -Me.TCScripts.SuspendLayout -Me.TabPage21.SuspendLayout -Me.TabPage17.SuspendLayout -Me.TabPage18.SuspendLayout -Me.TabPage19.SuspendLayout -Me.GroupBox42.SuspendLayout -CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox43.SuspendLayout -Me.TabPage7.SuspendLayout -Me.TabControl4.SuspendLayout -Me.TpImagesUrlFiles.SuspendLayout -Me.GroupBox66.SuspendLayout -CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).BeginInit -Me.TpImagesGenre.SuspendLayout -Me.GrbImageUrlFiles.SuspendLayout -Me.TlpImageUrls.SuspendLayout -Me.GbxImagesGenre.SuspendLayout -Me.TableLayoutPanel1.SuspendLayout -Me.TabPage33.SuspendLayout -Me.TabControl5.SuspendLayout -Me.TabPage34.SuspendLayout -CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage35.SuspendLayout -Me.GroupBox55.SuspendLayout -Me.GroupBox53.SuspendLayout -Me.GroupBox49.SuspendLayout -Me.GroupBox46.SuspendLayout -Me.GroupBox54.SuspendLayout -Me.GroupBox51.SuspendLayout -Me.GroupBox50.SuspendLayout -Me.GroupBox48.SuspendLayout -Me.TabPage11.SuspendLayout -Me.Panel7.SuspendLayout -CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).BeginInit -Me.TpVideoSettings.SuspendLayout -Me.PnlVideoSettings.SuspendLayout -CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxVideoGeneralD.SuspendLayout -Me.GbxVideoSpecialD.SuspendLayout -Me.GbxVideoGenreD.SuspendLayout -Me.GbxVideoDescription.SuspendLayout -Me.GbxVideoGeneral.SuspendLayout -Me.GbxVideoSpecial.SuspendLayout -Me.GbxVideoGenre.SuspendLayout -Me.TabPage20.SuspendLayout -Me.TabControl1.SuspendLayout -Me.TabPage22.SuspendLayout -Me.PNLGlitter.SuspendLayout -Me.GroupBox14.SuspendLayout -Me.GroupBox4.SuspendLayout -Me.GBGlitterD.SuspendLayout -Me.GrbGlitterfeed.SuspendLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGlitter1.SuspendLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGlitter3.SuspendLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBGlitter2.SuspendLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).BeginInit -Me.TpGames.SuspendLayout -Me.GbxCardsGold.SuspendLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxCardsBackground.SuspendLayout -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxCardsBronze.SuspendLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).BeginInit -Me.GbxCardsSilver.SuspendLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage6.SuspendLayout -Me.Panel10.SuspendLayout -CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).BeginInit -Me.PNLWishList.SuspendLayout -CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage26.SuspendLayout -Me.Panel12.SuspendLayout -Me.GroupBox9.SuspendLayout -CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox5.SuspendLayout -Me.GroupBox11.SuspendLayout -Me.GroupBox1.SuspendLayout -CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage4.SuspendLayout -Me.Panel6.SuspendLayout -Me.GroupBox69.SuspendLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox68.SuspendLayout -CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox67.SuspendLayout -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox10.SuspendLayout -CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox57.SuspendLayout -CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBRangeRuinChance.SuspendLayout -CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox17.SuspendLayout -Me.GroupBox19.SuspendLayout -CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox18.SuspendLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).BeginInit -Me.GBRangeOrgasmChance.SuspendLayout -CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage13.SuspendLayout -Me.TabControl2.SuspendLayout -Me.TabPage27.SuspendLayout -Me.TabPage14.SuspendLayout -Me.TabPage24.SuspendLayout -Me.TabPage8.SuspendLayout -Me.GroupBox29.SuspendLayout -Me.GroupBox28.SuspendLayout -Me.GroupBox30.SuspendLayout -Me.TabPage15.SuspendLayout -Me.GroupBox34.SuspendLayout -Me.TabPage25.SuspendLayout -Me.Panel11.SuspendLayout -Me.GroupBox62.SuspendLayout -Me.GroupBox33.SuspendLayout -Me.GroupBox8.SuspendLayout -Me.GroupBox27.SuspendLayout -Me.GroupBox20.SuspendLayout -Me.GroupBox15.SuspendLayout -CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).BeginInit -Me.TabPage28.SuspendLayout -Me.TabControl3.SuspendLayout -Me.TabPage29.SuspendLayout -Me.GroupBox26.SuspendLayout -Me.TabPage30.SuspendLayout -Me.TabPage5.SuspendLayout -Me.Panel5.SuspendLayout -CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).BeginInit -Me.GroupBox47.SuspendLayout -Me.GroupBox41.SuspendLayout -Me.GroupBox44.SuspendLayout -Me.GroupBox6.SuspendLayout -Me.GroupBox21.SuspendLayout -Me.GroupBox12.SuspendLayout -Me.GroupBox65.SuspendLayout -CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).BeginInit -CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).BeginInit -Me.SuspendLayout -' -'SettingsPanel -' -Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray -Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SettingsPanel.Controls.Add(Me.SettingsTabs) -Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) -Me.SettingsPanel.Name = "SettingsPanel" -Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) -Me.SettingsPanel.TabIndex = 94 -' -'SettingsTabs -' -Me.SettingsTabs.Controls.Add(Me.TabPage1) -Me.SettingsTabs.Controls.Add(Me.TabPage2) -Me.SettingsTabs.Controls.Add(Me.TabPage10) -Me.SettingsTabs.Controls.Add(Me.TabPage16) -Me.SettingsTabs.Controls.Add(Me.TabPage7) -Me.SettingsTabs.Controls.Add(Me.TabPage33) -Me.SettingsTabs.Controls.Add(Me.TabPage11) -Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) -Me.SettingsTabs.Controls.Add(Me.TabPage20) -Me.SettingsTabs.Controls.Add(Me.TabPage26) -Me.SettingsTabs.Controls.Add(Me.TabPage4) -Me.SettingsTabs.Controls.Add(Me.TabPage13) -Me.SettingsTabs.Controls.Add(Me.TabPage25) -Me.SettingsTabs.Controls.Add(Me.TabPage28) -Me.SettingsTabs.Controls.Add(Me.TabPage5) -Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) -Me.SettingsTabs.Name = "SettingsTabs" -Me.SettingsTabs.SelectedIndex = 0 -Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) -Me.SettingsTabs.TabIndex = 0 -' -'TabPage1 -' -Me.TabPage1.BackColor = System.Drawing.Color.Silver -Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) -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(720, 448) -Me.TabPage1.TabIndex = 0 -Me.TabPage1.Text = "General" -' -'PNLGeneralSettings -' -Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray -Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PNLGeneralSettings.Controls.Add(Me.GroupBox3) -Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) -Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) -Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) -Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) -Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) -Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) -Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) -Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) -Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) -Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) -Me.PNLGeneralSettings.Name = "PNLGeneralSettings" -Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) -Me.PNLGeneralSettings.TabIndex = 0 -' -'GroupBox3 -' -Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) -Me.GroupBox3.Location = New System.Drawing.Point(7, 365) -Me.GroupBox3.Name = "GroupBox3" -Me.GroupBox3.Size = New System.Drawing.Size(211, 65) -Me.GroupBox3.TabIndex = 184 -Me.GroupBox3.TabStop = false -Me.GroupBox3.Text = "System Files" -' -'BTNValidateSystemFiles -' -Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray -Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black -Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) -Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" -Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) -Me.BTNValidateSystemFiles.TabIndex = 183 -Me.BTNValidateSystemFiles.Text = "Validate All System Files" -Me.BTNValidateSystemFiles.UseVisualStyleBackColor = false -' -'GroupBox2 -' -Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) -Me.GroupBox2.Controls.Add(Me.CBRandomDomme) -Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) -Me.GroupBox2.Location = New System.Drawing.Point(224, 313) -Me.GroupBox2.Name = "GroupBox2" -Me.GroupBox2.Size = New System.Drawing.Size(210, 117) -Me.GroupBox2.TabIndex = 183 -Me.GroupBox2.TabStop = false -Me.GroupBox2.Text = "Random Domme" -' -'TbxRandomImageDir -' -Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "RandomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 50) -Me.TbxRandomImageDir.Name = "TbxRandomImageDir" -Me.TbxRandomImageDir.ReadOnly = true -Me.TbxRandomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxRandomImageDir.TabIndex = 185 -Me.TbxRandomImageDir.Text = "No Path Selected" -' -'CBRandomDomme -' -Me.CBRandomDomme.AutoSize = true -Me.CBRandomDomme.Location = New System.Drawing.Point(10, 83) -Me.CBRandomDomme.Name = "CBRandomDomme" -Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) -Me.CBRandomDomme.TabIndex = 184 -Me.CBRandomDomme.Text = "Always Start With Random Domme" -Me.CBRandomDomme.UseVisualStyleBackColor = true -' -'BtnRandomImageDir -' -Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDir.Location = New System.Drawing.Point(10, 21) -Me.BtnRandomImageDir.Name = "BtnRandomImageDir" -Me.BtnRandomImageDir.Size = New System.Drawing.Size(190, 22) -Me.BtnRandomImageDir.TabIndex = 182 -Me.BtnRandomImageDir.Text = "Set Random Domme Directory" -Me.BtnRandomImageDir.UseVisualStyleBackColor = false -' -'BtnImportSettings -' -Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent -Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.BtnImportSettings.FlatAppearance.BorderSize = 0 -Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black -Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) -Me.BtnImportSettings.Name = "BtnImportSettings" -Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) -Me.BtnImportSettings.TabIndex = 158 -Me.BtnImportSettings.UseVisualStyleBackColor = false -' -'LblImportSettings -' -Me.LblImportSettings.AutoSize = true -Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblImportSettings.ForeColor = System.Drawing.Color.Black -Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) -Me.LblImportSettings.Name = "LblImportSettings" -Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) -Me.LblImportSettings.TabIndex = 159 -Me.LblImportSettings.Text = "import" -Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox64 -' -Me.GroupBox64.BackColor = System.Drawing.Color.LightGray -Me.GroupBox64.Controls.Add(Me.CBMuteMedia) -Me.GroupBox64.ForeColor = System.Drawing.Color.Black -Me.GroupBox64.Location = New System.Drawing.Point(440, 258) -Me.GroupBox64.Name = "GroupBox64" -Me.GroupBox64.Size = New System.Drawing.Size(259, 49) -Me.GroupBox64.TabIndex = 157 -Me.GroupBox64.TabStop = false -Me.GroupBox64.Text = "Media Options" -' -'CBMuteMedia -' -Me.CBMuteMedia.AutoSize = true -Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia -Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black -Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) -Me.CBMuteMedia.Name = "CBMuteMedia" -Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) -Me.CBMuteMedia.TabIndex = 6 -Me.CBMuteMedia.TabStop = false -Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" -Me.CBMuteMedia.UseVisualStyleBackColor = true -' -'GBDommeImages -' -Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray -Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) -Me.GBDommeImages.Controls.Add(Me.teaseRadio) -Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) -Me.GBDommeImages.Controls.Add(Me.offRadio) -Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) -Me.GBDommeImages.Controls.Add(Me.timedRadio) -Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) -Me.GBDommeImages.ForeColor = System.Drawing.Color.Black -Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) -Me.GBDommeImages.Name = "GBDommeImages" -Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) -Me.GBDommeImages.TabIndex = 156 -Me.GBDommeImages.TabStop = false -Me.GBDommeImages.Text = "Slideshow Options" -' -'slideshowNumBox -' -Me.slideshowNumBox.BackColor = System.Drawing.Color.White -Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black -Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) -Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) -Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.slideshowNumBox.Name = "slideshowNumBox" -Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) -Me.slideshowNumBox.TabIndex = 20 -Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) -' -'teaseRadio -' -Me.teaseRadio.AutoSize = true -Me.teaseRadio.Checked = true -Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.teaseRadio.ForeColor = System.Drawing.Color.Black -Me.teaseRadio.Location = New System.Drawing.Point(149, 21) -Me.teaseRadio.Name = "teaseRadio" -Me.teaseRadio.Size = New System.Drawing.Size(55, 17) -Me.teaseRadio.TabIndex = 21 -Me.teaseRadio.TabStop = true -Me.teaseRadio.Text = "Tease" -Me.teaseRadio.UseVisualStyleBackColor = true -' -'CBNewSlideshow -' -Me.CBNewSlideshow.AutoSize = true -Me.CBNewSlideshow.Checked = true -Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black -Me.CBNewSlideshow.Location = New System.Drawing.Point(4, 100) -Me.CBNewSlideshow.Name = "CBNewSlideshow" -Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) -Me.CBNewSlideshow.TabIndex = 18 -Me.CBNewSlideshow.TabStop = false -Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" -Me.CBNewSlideshow.UseVisualStyleBackColor = true -' -'offRadio -' -Me.offRadio.AutoSize = true -Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.offRadio.ForeColor = System.Drawing.Color.Black -Me.offRadio.Location = New System.Drawing.Point(6, 21) -Me.offRadio.Name = "offRadio" -Me.offRadio.Size = New System.Drawing.Size(60, 17) -Me.offRadio.TabIndex = 18 -Me.offRadio.Text = "Manual" -Me.offRadio.UseVisualStyleBackColor = true -' -'BTNDomImageDir -' -Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black -Me.BTNDomImageDir.Location = New System.Drawing.Point(10, 45) -Me.BTNDomImageDir.Name = "BTNDomImageDir" -Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) -Me.BTNDomImageDir.TabIndex = 17 -Me.BTNDomImageDir.Text = "Set Domme Images Directory" -Me.BTNDomImageDir.UseVisualStyleBackColor = false -' -'timedRadio -' -Me.timedRadio.AutoSize = true -Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.timedRadio.ForeColor = System.Drawing.Color.Black -Me.timedRadio.Location = New System.Drawing.Point(72, 23) -Me.timedRadio.Name = "timedRadio" -Me.timedRadio.Size = New System.Drawing.Size(14, 13) -Me.timedRadio.TabIndex = 19 -Me.timedRadio.UseVisualStyleBackColor = true -' -'TbxDomImageDir -' -Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) -Me.TbxDomImageDir.Name = "TbxDomImageDir" -Me.TbxDomImageDir.ReadOnly = true -Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) -Me.TbxDomImageDir.TabIndex = 0 -Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir -' -'GBGeneralTextToSpeech -' -Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray -Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) -Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) -Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) -Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) -Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) -Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) -Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) -Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) -Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black -Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) -Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" -Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) -Me.GBGeneralTextToSpeech.TabIndex = 0 -Me.GBGeneralTextToSpeech.TabStop = false -Me.GBGeneralTextToSpeech.Text = "Text to Speech" -' -'LBLVRate -' -Me.LBLVRate.Location = New System.Drawing.Point(202, 52) -Me.LBLVRate.Name = "LBLVRate" -Me.LBLVRate.Size = New System.Drawing.Size(45, 13) -Me.LBLVRate.TabIndex = 158 -Me.LBLVRate.Text = "100" -Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'Label93 -' -Me.Label93.AutoSize = true -Me.Label93.Location = New System.Drawing.Point(141, 52) -Me.Label93.Name = "Label93" -Me.Label93.Size = New System.Drawing.Size(33, 13) -Me.Label93.TabIndex = 157 -Me.Label93.Text = "Rate:" -' -'LBLVVolume -' -Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) -Me.LBLVVolume.Name = "LBLVVolume" -Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) -Me.LBLVVolume.TabIndex = 33 -Me.LBLVVolume.Text = "100" -Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'Label68 -' -Me.Label68.AutoSize = true -Me.Label68.Location = New System.Drawing.Point(14, 52) -Me.Label68.Name = "Label68" -Me.Label68.Size = New System.Drawing.Size(45, 13) -Me.Label68.TabIndex = 32 -Me.Label68.Text = "Volume:" -' -'SliderVRate -' -Me.SliderVRate.Location = New System.Drawing.Point(133, 68) -Me.SliderVRate.Minimum = -10 -Me.SliderVRate.Name = "SliderVRate" -Me.SliderVRate.Size = New System.Drawing.Size(120, 45) -Me.SliderVRate.TabIndex = 31 -' -'SliderVVolume -' -Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) -Me.SliderVVolume.Maximum = 100 -Me.SliderVVolume.Name = "SliderVVolume" -Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) -Me.SliderVVolume.TabIndex = 30 -Me.SliderVVolume.Value = 50 -' -'TTSCheckBox -' -Me.TTSCheckBox.AutoSize = true -Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black -Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) -Me.TTSCheckBox.Name = "TTSCheckBox" -Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) -Me.TTSCheckBox.TabIndex = 28 -Me.TTSCheckBox.TabStop = false -Me.TTSCheckBox.Text = "Enable" -Me.TTSCheckBox.UseVisualStyleBackColor = true -' -'TTSComboBox -' -Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window -Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText -Me.TTSComboBox.FormattingEnabled = true -Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) -Me.TTSComboBox.Name = "TTSComboBox" -Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) -Me.TTSComboBox.TabIndex = 29 -Me.TTSComboBox.TabStop = false -' -'GBSafeword -' -Me.GBSafeword.BackColor = System.Drawing.Color.LightGray -Me.GBSafeword.Controls.Add(Me.LBLSafeword) -Me.GBSafeword.Controls.Add(Me.TBSafeword) -Me.GBSafeword.ForeColor = System.Drawing.Color.Black -Me.GBSafeword.Location = New System.Drawing.Point(440, 179) -Me.GBSafeword.Name = "GBSafeword" -Me.GBSafeword.Size = New System.Drawing.Size(259, 74) -Me.GBSafeword.TabIndex = 0 -Me.GBSafeword.TabStop = false -Me.GBSafeword.Text = "Safeword" -' -'LBLSafeword -' -Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) -Me.LBLSafeword.Name = "LBLSafeword" -Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) -Me.LBLSafeword.TabIndex = 0 -Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able "& _ - "to continue." -Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBSafeword -' -Me.TBSafeword.Location = New System.Drawing.Point(17, 19) -Me.TBSafeword.Name = "TBSafeword" -Me.TBSafeword.Size = New System.Drawing.Size(225, 20) -Me.TBSafeword.TabIndex = 27 -Me.TBSafeword.Text = "red" -Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GBGeneralSystem -' -Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) -Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) -Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) -Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) -Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) -Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) -Me.GBGeneralSystem.Name = "GBGeneralSystem" -Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) -Me.GBGeneralSystem.TabIndex = 0 -Me.GBGeneralSystem.TabStop = false -Me.GBGeneralSystem.Text = "System" -' -'CBAuditStartup -' -Me.CBAuditStartup.AutoSize = true -Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black -Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) -Me.CBAuditStartup.Name = "CBAuditStartup" -Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) -Me.CBAuditStartup.TabIndex = 26 -Me.CBAuditStartup.TabStop = false -Me.CBAuditStartup.Text = "Audit Scripts on Startup" -Me.CBAuditStartup.UseVisualStyleBackColor = true -' -'CBDomDel -' -Me.CBDomDel.AutoSize = true -Me.CBDomDel.ForeColor = System.Drawing.Color.Black -Me.CBDomDel.Location = New System.Drawing.Point(7, 110) -Me.CBDomDel.Name = "CBDomDel" -Me.CBDomDel.Size = New System.Drawing.Size(197, 17) -Me.CBDomDel.TabIndex = 27 -Me.CBDomDel.TabStop = false -Me.CBDomDel.Text = "Allow Domme to Delete Local Media" -Me.CBDomDel.UseVisualStyleBackColor = true -' -'CBSettingsPause -' -Me.CBSettingsPause.AutoSize = true -Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black -Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) -Me.CBSettingsPause.Name = "CBSettingsPause" -Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) -Me.CBSettingsPause.TabIndex = 22 -Me.CBSettingsPause.TabStop = false -Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" -Me.CBSettingsPause.UseVisualStyleBackColor = true -' -'CBSaveChatlogExit -' -Me.CBSaveChatlogExit.AutoSize = true -Me.CBSaveChatlogExit.Checked = true -Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black -Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) -Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" -Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) -Me.CBSaveChatlogExit.TabIndex = 25 -Me.CBSaveChatlogExit.TabStop = false -Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" -Me.CBSaveChatlogExit.UseVisualStyleBackColor = true -' -'CBAutosaveChatlog -' -Me.CBAutosaveChatlog.AutoSize = true -Me.CBAutosaveChatlog.Checked = true -Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black -Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) -Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" -Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) -Me.CBAutosaveChatlog.TabIndex = 24 -Me.CBAutosaveChatlog.TabStop = false -Me.CBAutosaveChatlog.Text = "Autosave Chatlog" -Me.CBAutosaveChatlog.UseVisualStyleBackColor = true -' -'GBGeneralImages -' -Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) -Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) -Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) -Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) -Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) -Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) -Me.GBGeneralImages.Name = "GBGeneralImages" -Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) -Me.GBGeneralImages.TabIndex = 0 -Me.GBGeneralImages.TabStop = false -Me.GBGeneralImages.Text = "Images" -' -'CBImageInfo -' -Me.CBImageInfo.AutoSize = true -Me.CBImageInfo.ForeColor = System.Drawing.Color.Black -Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) -Me.CBImageInfo.Name = "CBImageInfo" -Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) -Me.CBImageInfo.TabIndex = 16 -Me.CBImageInfo.TabStop = false -Me.CBImageInfo.Text = "Display Image Information" -Me.CBImageInfo.UseVisualStyleBackColor = true -' -'CBSlideshowRandom -' -Me.CBSlideshowRandom.AutoSize = true -Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black -Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) -Me.CBSlideshowRandom.Name = "CBSlideshowRandom" -Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) -Me.CBSlideshowRandom.TabIndex = 14 -Me.CBSlideshowRandom.TabStop = false -Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" -Me.CBSlideshowRandom.UseVisualStyleBackColor = true -' -'landscapeCheckBox -' -Me.landscapeCheckBox.AutoSize = true -Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black -Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) -Me.landscapeCheckBox.Name = "landscapeCheckBox" -Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) -Me.landscapeCheckBox.TabIndex = 15 -Me.landscapeCheckBox.TabStop = false -Me.landscapeCheckBox.Text = "Stretch Landscape Images" -Me.landscapeCheckBox.UseVisualStyleBackColor = true -' -'CBBlogImageWindow -' -Me.CBBlogImageWindow.AutoSize = true -Me.CBBlogImageWindow.Checked = true -Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black -Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) -Me.CBBlogImageWindow.Name = "CBBlogImageWindow" -Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) -Me.CBBlogImageWindow.TabIndex = 12 -Me.CBBlogImageWindow.TabStop = false -Me.CBBlogImageWindow.Text = "Save Blog Images From Session" -Me.CBBlogImageWindow.UseVisualStyleBackColor = true -' -'CBSlideshowSubDir -' -Me.CBSlideshowSubDir.AutoSize = true -Me.CBSlideshowSubDir.Checked = true -Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black -Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) -Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" -Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) -Me.CBSlideshowSubDir.TabIndex = 13 -Me.CBSlideshowSubDir.TabStop = false -Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" -Me.CBSlideshowSubDir.UseVisualStyleBackColor = true -' -'PictureBox2 -' -Me.PictureBox2.BackColor = System.Drawing.Color.LightGray -Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox2.Location = New System.Drawing.Point(9, 6) -Me.PictureBox2.Name = "PictureBox2" -Me.PictureBox2.Size = New System.Drawing.Size(160, 19) -Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox2.TabIndex = 148 -Me.PictureBox2.TabStop = false -' -'GBGeneralSettings -' -Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray -Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) -Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) -Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) -Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) -Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) -Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) -Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) -Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black -Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) -Me.GBGeneralSettings.Name = "GBGeneralSettings" -Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) -Me.GBGeneralSettings.TabIndex = 0 -Me.GBGeneralSettings.TabStop = false -Me.GBGeneralSettings.Text = "Chat Window" -' -'CBWebtease -' -Me.CBWebtease.AutoSize = true -Me.CBWebtease.ForeColor = System.Drawing.Color.Black -Me.CBWebtease.Location = New System.Drawing.Point(6, 110) -Me.CBWebtease.Name = "CBWebtease" -Me.CBWebtease.Size = New System.Drawing.Size(105, 17) -Me.CBWebtease.TabIndex = 5 -Me.CBWebtease.TabStop = false -Me.CBWebtease.Text = "Webtease Mode" -Me.CBWebtease.UseVisualStyleBackColor = true -' -'GBSubFont -' -Me.GBSubFont.Controls.Add(Me.BTNSubColor) -Me.GBSubFont.Controls.Add(Me.LBLSubColor) -Me.GBSubFont.Controls.Add(Me.NBFontSize) -Me.GBSubFont.Controls.Add(Me.Label2) -Me.GBSubFont.Controls.Add(Me.FontComboBox) -Me.GBSubFont.Location = New System.Drawing.Point(6, 219) -Me.GBSubFont.Name = "GBSubFont" -Me.GBSubFont.Size = New System.Drawing.Size(200, 77) -Me.GBSubFont.TabIndex = 0 -Me.GBSubFont.TabStop = false -Me.GBSubFont.Text = "Sub Font Settings" -' -'BTNSubColor -' -Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray -Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNSubColor.ForeColor = System.Drawing.Color.Black -Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) -Me.BTNSubColor.Name = "BTNSubColor" -Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) -Me.BTNSubColor.TabIndex = 8 -Me.BTNSubColor.Text = "Sub Name Color" -Me.BTNSubColor.UseVisualStyleBackColor = false -' -'LBLSubColor -' -Me.LBLSubColor.BackColor = System.Drawing.Color.White -Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor -Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) -Me.LBLSubColor.Name = "LBLSubColor" -Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) -Me.LBLSubColor.TabIndex = 0 -Me.LBLSubColor.Text = "Preview" -Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBFontSize -' -Me.NBFontSize.BackColor = System.Drawing.Color.White -Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBFontSize.ForeColor = System.Drawing.Color.Black -Me.NBFontSize.Location = New System.Drawing.Point(147, 47) -Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBFontSize.Name = "NBFontSize" -Me.NBFontSize.Size = New System.Drawing.Size(45, 20) -Me.NBFontSize.TabIndex = 11 -Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label2 -' -Me.Label2.BackColor = System.Drawing.Color.Transparent -Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label2.ForeColor = System.Drawing.Color.Black -Me.Label2.Location = New System.Drawing.Point(117, 45) -Me.Label2.Name = "Label2" -Me.Label2.Size = New System.Drawing.Size(30, 20) -Me.Label2.TabIndex = 63 -Me.Label2.Text = "Size:" -Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'FontComboBox -' -Me.FontComboBox.FormattingEnabled = true -Me.FontComboBox.Location = New System.Drawing.Point(6, 46) -Me.FontComboBox.Name = "FontComboBox" -Me.FontComboBox.Size = New System.Drawing.Size(110, 21) -Me.FontComboBox.TabIndex = 9 -' -'GBDommeFont -' -Me.GBDommeFont.Controls.Add(Me.BTNDomColor) -Me.GBDommeFont.Controls.Add(Me.LBLDomColor) -Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) -Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) -Me.GBDommeFont.Controls.Add(Me.Label7) -Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) -Me.GBDommeFont.Name = "GBDommeFont" -Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) -Me.GBDommeFont.TabIndex = 0 -Me.GBDommeFont.TabStop = false -Me.GBDommeFont.Text = "Domme Font Settings" -' -'BTNDomColor -' -Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray -Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomColor.ForeColor = System.Drawing.Color.Black -Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) -Me.BTNDomColor.Name = "BTNDomColor" -Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) -Me.BTNDomColor.TabIndex = 5 -Me.BTNDomColor.Text = "Domme Name Color" -Me.BTNDomColor.UseVisualStyleBackColor = false -' -'LBLDomColor -' -Me.LBLDomColor.BackColor = System.Drawing.Color.White -Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor -Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) -Me.LBLDomColor.Name = "LBLDomColor" -Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) -Me.LBLDomColor.TabIndex = 0 -Me.LBLDomColor.Text = "Preview" -Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'FontComboBoxD -' -Me.FontComboBoxD.FormattingEnabled = true -Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) -Me.FontComboBoxD.Name = "FontComboBoxD" -Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) -Me.FontComboBoxD.TabIndex = 6 -' -'NBFontSizeD -' -Me.NBFontSizeD.BackColor = System.Drawing.Color.White -Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black -Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) -Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBFontSizeD.Name = "NBFontSizeD" -Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) -Me.NBFontSizeD.TabIndex = 7 -Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label7 -' -Me.Label7.BackColor = System.Drawing.Color.Transparent -Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label7.ForeColor = System.Drawing.Color.Black -Me.Label7.Location = New System.Drawing.Point(117, 45) -Me.Label7.Name = "Label7" -Me.Label7.Size = New System.Drawing.Size(30, 20) -Me.Label7.TabIndex = 172 -Me.Label7.Text = "Size:" -Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBInputIcon -' -Me.CBInputIcon.AutoSize = true -Me.CBInputIcon.Checked = true -Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBInputIcon.ForeColor = System.Drawing.Color.Black -Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) -Me.CBInputIcon.Name = "CBInputIcon" -Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) -Me.CBInputIcon.TabIndex = 4 -Me.CBInputIcon.TabStop = false -Me.CBInputIcon.Text = "Show Icon During Input Questions" -Me.CBInputIcon.UseVisualStyleBackColor = true -' -'typeinstantlyCheckBox -' -Me.typeinstantlyCheckBox.AutoSize = true -Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black -Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) -Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" -Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) -Me.typeinstantlyCheckBox.TabIndex = 3 -Me.typeinstantlyCheckBox.TabStop = false -Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" -Me.typeinstantlyCheckBox.UseVisualStyleBackColor = true -' -'timestampCheckBox -' -Me.timestampCheckBox.AutoSize = true -Me.timestampCheckBox.Checked = true -Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked -Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black -Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) -Me.timestampCheckBox.Name = "timestampCheckBox" -Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) -Me.timestampCheckBox.TabIndex = 1 -Me.timestampCheckBox.TabStop = false -Me.timestampCheckBox.Text = "Show Timestamps" -Me.timestampCheckBox.UseVisualStyleBackColor = true -' -'shownamesCheckBox -' -Me.shownamesCheckBox.AutoSize = true -Me.shownamesCheckBox.Checked = true -Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked -Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black -Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) -Me.shownamesCheckBox.Name = "shownamesCheckBox" -Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) -Me.shownamesCheckBox.TabIndex = 2 -Me.shownamesCheckBox.TabStop = false -Me.shownamesCheckBox.Text = "Always Show Names" -Me.shownamesCheckBox.UseVisualStyleBackColor = true -' -'LBLGeneralSettings -' -Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent -Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black -Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) -Me.LBLGeneralSettings.Name = "LBLGeneralSettings" -Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) -Me.LBLGeneralSettings.TabIndex = 0 -Me.LBLGeneralSettings.Text = "General Settings" -Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage2 -' -Me.TabPage2.BackColor = System.Drawing.Color.Silver -Me.TabPage2.Controls.Add(Me.Panel3) -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(720, 448) -Me.TabPage2.TabIndex = 1 -Me.TabPage2.Text = "Domme" -' -'Panel3 -' -Me.Panel3.BackColor = System.Drawing.Color.LightGray -Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel3.Controls.Add(Me.GBGiveUp) -Me.Panel3.Controls.Add(Me.BTNLoadDomSet) -Me.Panel3.Controls.Add(Me.BTNSaveDomSet) -Me.Panel3.Controls.Add(Me.Label127) -Me.Panel3.Controls.Add(Me.Label126) -Me.Panel3.Controls.Add(Me.PictureBox4) -Me.Panel3.Controls.Add(Me.GBDomTypingStyle) -Me.Panel3.Controls.Add(Me.GBDomRanges) -Me.Panel3.Controls.Add(Me.GBDomStats) -Me.Panel3.Controls.Add(Me.GBDomPersonality) -Me.Panel3.Controls.Add(Me.GBDomOrgasms) -Me.Panel3.Controls.Add(Me.GBDomPetNames) -Me.Panel3.Controls.Add(Me.Label54) -Me.Panel3.Location = New System.Drawing.Point(6, 6) -Me.Panel3.Name = "Panel3" -Me.Panel3.Size = New System.Drawing.Size(708, 437) -Me.Panel3.TabIndex = 93 -' -'GBGiveUp -' -Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) -Me.GBGiveUp.Location = New System.Drawing.Point(440, 230) -Me.GBGiveUp.Name = "GBGiveUp" -Me.GBGiveUp.Size = New System.Drawing.Size(259, 63) -Me.GBGiveUp.TabIndex = 42 -Me.GBGiveUp.TabStop = false -Me.GBGiveUp.Text = "Script Behavior" -' -'giveupCheckBox -' -Me.giveupCheckBox.AutoSize = true -Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black -Me.giveupCheckBox.Location = New System.Drawing.Point(15, 26) -Me.giveupCheckBox.Name = "giveupCheckBox" -Me.giveupCheckBox.Size = New System.Drawing.Size(210, 17) -Me.giveupCheckBox.TabIndex = 38 -Me.giveupCheckBox.Text = "Continue Current Script After Giving Up" -Me.giveupCheckBox.UseVisualStyleBackColor = true -' -'BTNLoadDomSet -' -Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray -Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 -Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black -Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) -Me.BTNLoadDomSet.Name = "BTNLoadDomSet" -Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) -Me.BTNLoadDomSet.TabIndex = 150 -Me.BTNLoadDomSet.UseVisualStyleBackColor = false -' -'BTNSaveDomSet -' -Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray -Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 -Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black -Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) -Me.BTNSaveDomSet.Name = "BTNSaveDomSet" -Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) -Me.BTNSaveDomSet.TabIndex = 151 -Me.BTNSaveDomSet.UseVisualStyleBackColor = false -' -'Label127 -' -Me.Label127.AutoSize = true -Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label127.ForeColor = System.Drawing.Color.Black -Me.Label127.Location = New System.Drawing.Point(670, -3) -Me.Label127.Name = "Label127" -Me.Label127.Size = New System.Drawing.Size(27, 13) -Me.Label127.TabIndex = 153 -Me.Label127.Text = "load" -Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label126 -' -Me.Label126.AutoSize = true -Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label126.ForeColor = System.Drawing.Color.Black -Me.Label126.Location = New System.Drawing.Point(636, -3) -Me.Label126.Name = "Label126" -Me.Label126.Size = New System.Drawing.Size(30, 13) -Me.Label126.TabIndex = 152 -Me.Label126.Text = "save" -Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'PictureBox4 -' -Me.PictureBox4.BackColor = System.Drawing.Color.LightGray -Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox4.Location = New System.Drawing.Point(9, 6) -Me.PictureBox4.Name = "PictureBox4" -Me.PictureBox4.Size = New System.Drawing.Size(160, 19) -Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox4.TabIndex = 149 -Me.PictureBox4.TabStop = false -' -'GBDomTypingStyle -' -Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) -Me.GBDomTypingStyle.Controls.Add(Me.Label67) -Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) -Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) -Me.GBDomTypingStyle.Controls.Add(Me.Label66) -Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) -Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) -Me.GBDomTypingStyle.Controls.Add(Me.Label64) -Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black -Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) -Me.GBDomTypingStyle.Name = "GBDomTypingStyle" -Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) -Me.GBDomTypingStyle.TabIndex = 138 -Me.GBDomTypingStyle.TabStop = false -Me.GBDomTypingStyle.Text = "Typing Style" -' -'TBEmoteEnd -' -Me.TBEmoteEnd.BackColor = System.Drawing.Color.White -Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black -Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) -Me.TBEmoteEnd.Name = "TBEmoteEnd" -Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) -Me.TBEmoteEnd.TabIndex = 155 -Me.TBEmoteEnd.Text = "*" -Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label67 -' -Me.Label67.AutoSize = true -Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label67.ForeColor = System.Drawing.Color.Black -Me.Label67.Location = New System.Drawing.Point(237, 77) -Me.Label67.Name = "Label67" -Me.Label67.Size = New System.Drawing.Size(42, 13) -Me.Label67.TabIndex = 169 -Me.Label67.Text = "Typo %" -Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBEmote -' -Me.TBEmote.BackColor = System.Drawing.Color.White -Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBEmote.ForeColor = System.Drawing.Color.Black -Me.TBEmote.Location = New System.Drawing.Point(9, 91) -Me.TBEmote.Name = "TBEmote" -Me.TBEmote.Size = New System.Drawing.Size(85, 23) -Me.TBEmote.TabIndex = 154 -Me.TBEmote.Text = "*" -Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'NBTypoChance -' -Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) -Me.NBTypoChance.Name = "NBTypoChance" -Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) -Me.NBTypoChance.TabIndex = 168 -Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) -' -'Label66 -' -Me.Label66.AutoSize = true -Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label66.ForeColor = System.Drawing.Color.Black -Me.Label66.Location = New System.Drawing.Point(322, 77) -Me.Label66.Name = "Label66" -Me.Label66.Size = New System.Drawing.Size(52, 13) -Me.Label66.TabIndex = 44 -Me.Label66.Text = "Pronouns" -Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBMeMyMine -' -Me.CBMeMyMine.AutoSize = true -Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black -Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) -Me.CBMeMyMine.Name = "CBMeMyMine" -Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) -Me.CBMeMyMine.TabIndex = 40 -Me.CBMeMyMine.Text = "Me/My/Mine" -Me.CBMeMyMine.UseVisualStyleBackColor = true -' -'GroupBox63 -' -Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) -Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) -Me.GroupBox63.Controls.Add(Me.periodCheckBox) -Me.GroupBox63.Controls.Add(Me.commaCheckBox) -Me.GroupBox63.Location = New System.Drawing.Point(9, 15) -Me.GroupBox63.Name = "GroupBox63" -Me.GroupBox63.Size = New System.Drawing.Size(407, 48) -Me.GroupBox63.TabIndex = 41 -Me.GroupBox63.TabStop = false -Me.GroupBox63.Text = "Remove" -' -'LCaseCheckBox -' -Me.LCaseCheckBox.AutoSize = true -Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black -Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) -Me.LCaseCheckBox.Name = "LCaseCheckBox" -Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) -Me.LCaseCheckBox.TabIndex = 38 -Me.LCaseCheckBox.Text = "Capitalization" -Me.LCaseCheckBox.UseVisualStyleBackColor = true -' -'apostropheCheckBox -' -Me.apostropheCheckBox.AutoSize = true -Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black -Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) -Me.apostropheCheckBox.Name = "apostropheCheckBox" -Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) -Me.apostropheCheckBox.TabIndex = 39 -Me.apostropheCheckBox.Text = "Apostrophes" -Me.apostropheCheckBox.UseVisualStyleBackColor = true -' -'periodCheckBox -' -Me.periodCheckBox.AutoSize = true -Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.periodCheckBox.ForeColor = System.Drawing.Color.Black -Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) -Me.periodCheckBox.Name = "periodCheckBox" -Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) -Me.periodCheckBox.TabIndex = 37 -Me.periodCheckBox.Text = "Periods" -Me.periodCheckBox.UseVisualStyleBackColor = true -' -'commaCheckBox -' -Me.commaCheckBox.AutoSize = true -Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.commaCheckBox.ForeColor = System.Drawing.Color.Black -Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) -Me.commaCheckBox.Name = "commaCheckBox" -Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) -Me.commaCheckBox.TabIndex = 36 -Me.commaCheckBox.Text = "Commas" -Me.commaCheckBox.UseVisualStyleBackColor = true -' -'Label64 -' -Me.Label64.AutoSize = true -Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label64.ForeColor = System.Drawing.Color.Black -Me.Label64.Location = New System.Drawing.Point(8, 77) -Me.Label64.Name = "Label64" -Me.Label64.Size = New System.Drawing.Size(79, 13) -Me.Label64.TabIndex = 43 -Me.Label64.Text = "Emote Symbols" -Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GBDomRanges -' -Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) -Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) -Me.GBDomRanges.Controls.Add(Me.Label37) -Me.GBDomRanges.Controls.Add(Me.Label39) -Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) -Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) -Me.GBDomRanges.Controls.Add(Me.Label31) -Me.GBDomRanges.Controls.Add(Me.Label36) -Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) -Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) -Me.GBDomRanges.Controls.Add(Me.Label21) -Me.GBDomRanges.Controls.Add(Me.Label22) -Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) -Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) -Me.GBDomRanges.Controls.Add(Me.Label23) -Me.GBDomRanges.Controls.Add(Me.Label30) -Me.GBDomRanges.Location = New System.Drawing.Point(440, 299) -Me.GBDomRanges.Name = "GBDomRanges" -Me.GBDomRanges.Size = New System.Drawing.Size(259, 124) -Me.GBDomRanges.TabIndex = 148 -Me.GBDomRanges.TabStop = false -Me.GBDomRanges.Text = "Ranges" -' -'NBDomMoodMax -' -Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 19) -Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBDomMoodMax.Name = "NBDomMoodMax" -Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) -Me.NBDomMoodMax.TabIndex = 168 -Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) -' -'NBDomMoodMin -' -Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 19) -Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) -Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBDomMoodMin.Name = "NBDomMoodMin" -Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) -Me.NBDomMoodMin.TabIndex = 167 -Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) -' -'Label37 -' -Me.Label37.BackColor = System.Drawing.Color.Transparent -Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label37.ForeColor = System.Drawing.Color.Black -Me.Label37.Location = New System.Drawing.Point(184, 19) -Me.Label37.Name = "Label37" -Me.Label37.Size = New System.Drawing.Size(10, 17) -Me.Label37.TabIndex = 166 -Me.Label37.Text = "-" -Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label39 -' -Me.Label39.BackColor = System.Drawing.Color.Transparent -Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label39.ForeColor = System.Drawing.Color.Black -Me.Label39.Location = New System.Drawing.Point(12, 19) -Me.Label39.Name = "Label39" -Me.Label39.Size = New System.Drawing.Size(116, 17) -Me.Label39.TabIndex = 165 -Me.Label39.Text = "Domme Mood Index:" -Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBSubAgeMax -' -Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 94) -Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) -Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) -Me.NBSubAgeMax.Name = "NBSubAgeMax" -Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) -Me.NBSubAgeMax.TabIndex = 164 -Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) -' -'NBSubAgeMin -' -Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 94) -Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) -Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) -Me.NBSubAgeMin.Name = "NBSubAgeMin" -Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) -Me.NBSubAgeMin.TabIndex = 163 -Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) -' -'Label31 -' -Me.Label31.BackColor = System.Drawing.Color.Transparent -Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label31.ForeColor = System.Drawing.Color.Black -Me.Label31.Location = New System.Drawing.Point(184, 94) -Me.Label31.Name = "Label31" -Me.Label31.Size = New System.Drawing.Size(10, 17) -Me.Label31.TabIndex = 162 -Me.Label31.Text = "-" -Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label36 -' -Me.Label36.BackColor = System.Drawing.Color.Transparent -Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label36.ForeColor = System.Drawing.Color.Black -Me.Label36.Location = New System.Drawing.Point(12, 94) -Me.Label36.Name = "Label36" -Me.Label36.Size = New System.Drawing.Size(113, 17) -Me.Label36.TabIndex = 161 -Me.Label36.Text = "Sub Age Perception:" -Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBSelfAgeMax -' -Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 69) -Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) -Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) -Me.NBSelfAgeMax.Name = "NBSelfAgeMax" -Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) -Me.NBSelfAgeMax.TabIndex = 156 -Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) -' -'NBSelfAgeMin -' -Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 69) -Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) -Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) -Me.NBSelfAgeMin.Name = "NBSelfAgeMin" -Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) -Me.NBSelfAgeMin.TabIndex = 155 -Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) -' -'Label21 -' -Me.Label21.BackColor = System.Drawing.Color.Transparent -Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label21.ForeColor = System.Drawing.Color.Black -Me.Label21.Location = New System.Drawing.Point(184, 69) -Me.Label21.Name = "Label21" -Me.Label21.Size = New System.Drawing.Size(10, 17) -Me.Label21.TabIndex = 154 -Me.Label21.Text = "-" -Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label22 -' -Me.Label22.BackColor = System.Drawing.Color.Transparent -Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label22.ForeColor = System.Drawing.Color.Black -Me.Label22.Location = New System.Drawing.Point(12, 69) -Me.Label22.Name = "Label22" -Me.Label22.Size = New System.Drawing.Size(116, 17) -Me.Label22.TabIndex = 153 -Me.Label22.Text = "Self Age Perception:" -Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBAvgCockMax -' -Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 44) -Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) -Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBAvgCockMax.Name = "NBAvgCockMax" -Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) -Me.NBAvgCockMax.TabIndex = 152 -Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) -' -'NBAvgCockMin -' -Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 44) -Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) -Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBAvgCockMin.Name = "NBAvgCockMin" -Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) -Me.NBAvgCockMin.TabIndex = 151 -Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) -' -'Label23 -' -Me.Label23.BackColor = System.Drawing.Color.Transparent -Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label23.ForeColor = System.Drawing.Color.Black -Me.Label23.Location = New System.Drawing.Point(184, 44) -Me.Label23.Name = "Label23" -Me.Label23.Size = New System.Drawing.Size(10, 17) -Me.Label23.TabIndex = 150 -Me.Label23.Text = "-" -Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label30 -' -Me.Label30.BackColor = System.Drawing.Color.Transparent -Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label30.ForeColor = System.Drawing.Color.Black -Me.Label30.Location = New System.Drawing.Point(12, 44) -Me.Label30.Name = "Label30" -Me.Label30.Size = New System.Drawing.Size(116, 17) -Me.Label30.TabIndex = 149 -Me.Label30.Text = "Average Dick Size:" -Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GBDomStats -' -Me.GBDomStats.BackColor = System.Drawing.Color.LightGray -Me.GBDomStats.Controls.Add(Me.Label128) -Me.GBDomStats.Controls.Add(Me.LBLEmpathy) -Me.GBDomStats.Controls.Add(Me.NBEmpathy) -Me.GBDomStats.Controls.Add(Me.Label83) -Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) -Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) -Me.GBDomStats.Controls.Add(Me.TBDomHairColor) -Me.GBDomStats.Controls.Add(Me.domageNumBox) -Me.GBDomStats.Controls.Add(Me.Label47) -Me.GBDomStats.Controls.Add(Me.Label76) -Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) -Me.GBDomStats.Controls.Add(Me.Label84) -Me.GBDomStats.Controls.Add(Me.CBDomTattoos) -Me.GBDomStats.Controls.Add(Me.CBDomFreckles) -Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) -Me.GBDomStats.Controls.Add(Me.Label10) -Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) -Me.GBDomStats.Controls.Add(Me.Label9) -Me.GBDomStats.Controls.Add(Me.boobComboBox) -Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) -Me.GBDomStats.Controls.Add(Me.domlevelNumBox) -Me.GBDomStats.Controls.Add(Me.Label43) -Me.GBDomStats.Controls.Add(Me.Label44) -Me.GBDomStats.Controls.Add(Me.Label45) -Me.GBDomStats.Controls.Add(Me.Label46) -Me.GBDomStats.ForeColor = System.Drawing.Color.Black -Me.GBDomStats.Location = New System.Drawing.Point(18, 33) -Me.GBDomStats.Name = "GBDomStats" -Me.GBDomStats.Size = New System.Drawing.Size(171, 263) -Me.GBDomStats.TabIndex = 62 -Me.GBDomStats.TabStop = false -Me.GBDomStats.Text = "Stats/Appearance" -' -'Label128 -' -Me.Label128.AutoSize = true -Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label128.Location = New System.Drawing.Point(125, 68) -Me.Label128.Name = "Label128" -Me.Label128.Size = New System.Drawing.Size(38, 13) -Me.Label128.TabIndex = 156 -Me.Label128.Text = "mm/dd" -Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLEmpathy -' -Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) -Me.LBLEmpathy.Name = "LBLEmpathy" -Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) -Me.LBLEmpathy.TabIndex = 157 -Me.LBLEmpathy.Text = "Moderate" -Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBEmpathy -' -Me.NBEmpathy.BackColor = System.Drawing.Color.White -Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBEmpathy.ForeColor = System.Drawing.Color.Black -Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) -Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBEmpathy.Name = "NBEmpathy" -Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) -Me.NBEmpathy.TabIndex = 156 -Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label83 -' -Me.Label83.BackColor = System.Drawing.Color.Transparent -Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label83.ForeColor = System.Drawing.Color.Black -Me.Label83.Location = New System.Drawing.Point(6, 37) -Me.Label83.Name = "Label83" -Me.Label83.Size = New System.Drawing.Size(60, 17) -Me.Label83.TabIndex = 158 -Me.Label83.Text = "Apathy:" -Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBDomBirthdayDay -' -Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White -Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black -Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) -Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) -Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" -Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) -Me.NBDomBirthdayDay.TabIndex = 152 -Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'TBDomEyeColor -' -Me.TBDomEyeColor.BackColor = System.Drawing.Color.White -Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black -Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) -Me.TBDomEyeColor.Name = "TBDomEyeColor" -Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) -Me.TBDomEyeColor.TabIndex = 154 -Me.TBDomEyeColor.Text = "green" -' -'TBDomHairColor -' -Me.TBDomHairColor.BackColor = System.Drawing.Color.White -Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black -Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) -Me.TBDomHairColor.Name = "TBDomHairColor" -Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) -Me.TBDomHairColor.TabIndex = 153 -Me.TBDomHairColor.Text = "brown" -' -'domageNumBox -' -Me.domageNumBox.BackColor = System.Drawing.Color.White -Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.domageNumBox.ForeColor = System.Drawing.Color.Black -Me.domageNumBox.Location = New System.Drawing.Point(73, 61) -Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) -Me.domageNumBox.Name = "domageNumBox" -Me.domageNumBox.Size = New System.Drawing.Size(38, 20) -Me.domageNumBox.TabIndex = 27 -Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) -' -'Label47 -' -Me.Label47.BackColor = System.Drawing.Color.Transparent -Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label47.ForeColor = System.Drawing.Color.Black -Me.Label47.Location = New System.Drawing.Point(6, 60) -Me.Label47.Name = "Label47" -Me.Label47.Size = New System.Drawing.Size(63, 17) -Me.Label47.TabIndex = 138 -Me.Label47.Text = "Age:" -Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label76 -' -Me.Label76.AutoSize = true -Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label76.ForeColor = System.Drawing.Color.Black -Me.Label76.Location = New System.Drawing.Point(113, 87) -Me.Label76.Name = "Label76" -Me.Label76.Size = New System.Drawing.Size(12, 13) -Me.Label76.TabIndex = 151 -Me.Label76.Text = "/" -Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBDomBirthdayMonth -' -Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White -Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black -Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) -Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) -Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" -Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) -Me.NBDomBirthdayMonth.TabIndex = 149 -Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label84 -' -Me.Label84.BackColor = System.Drawing.Color.Transparent -Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label84.ForeColor = System.Drawing.Color.Black -Me.Label84.Location = New System.Drawing.Point(6, 84) -Me.Label84.Name = "Label84" -Me.Label84.Size = New System.Drawing.Size(60, 17) -Me.Label84.TabIndex = 150 -Me.Label84.Text = "Birthday:" -Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBDomTattoos -' -Me.CBDomTattoos.AutoSize = true -Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black -Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) -Me.CBDomTattoos.Name = "CBDomTattoos" -Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBDomTattoos.TabIndex = 148 -Me.CBDomTattoos.Text = "Tattoos" -Me.CBDomTattoos.UseVisualStyleBackColor = true -' -'CBDomFreckles -' -Me.CBDomFreckles.AutoSize = true -Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black -Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) -Me.CBDomFreckles.Name = "CBDomFreckles" -Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) -Me.CBDomFreckles.TabIndex = 147 -Me.CBDomFreckles.Text = "Freckles" -Me.CBDomFreckles.UseVisualStyleBackColor = true -' -'domhairlengthComboBox -' -Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White -Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black -Me.domhairlengthComboBox.FormattingEnabled = true -Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) -Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) -Me.domhairlengthComboBox.Name = "domhairlengthComboBox" -Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) -Me.domhairlengthComboBox.TabIndex = 145 -' -'Label10 -' -Me.Label10.BackColor = System.Drawing.Color.Transparent -Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label10.ForeColor = System.Drawing.Color.Black -Me.Label10.Location = New System.Drawing.Point(6, 133) -Me.Label10.Name = "Label10" -Me.Label10.Size = New System.Drawing.Size(78, 17) -Me.Label10.TabIndex = 146 -Me.Label10.Text = "Hair Length:" -Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'dompubichairComboBox -' -Me.dompubichairComboBox.BackColor = System.Drawing.Color.White -Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black -Me.dompubichairComboBox.FormattingEnabled = true -Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) -Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) -Me.dompubichairComboBox.Name = "dompubichairComboBox" -Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) -Me.dompubichairComboBox.TabIndex = 143 -' -'Label9 -' -Me.Label9.BackColor = System.Drawing.Color.Transparent -Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label9.ForeColor = System.Drawing.Color.Black -Me.Label9.Location = New System.Drawing.Point(6, 209) -Me.Label9.Name = "Label9" -Me.Label9.Size = New System.Drawing.Size(63, 17) -Me.Label9.TabIndex = 144 -Me.Label9.Text = "Pubic Hair:" -Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'boobComboBox -' -Me.boobComboBox.BackColor = System.Drawing.Color.White -Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.boobComboBox.ForeColor = System.Drawing.Color.Black -Me.boobComboBox.FormattingEnabled = true -Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) -Me.boobComboBox.Location = New System.Drawing.Point(73, 182) -Me.boobComboBox.Name = "boobComboBox" -Me.boobComboBox.Size = New System.Drawing.Size(89, 21) -Me.boobComboBox.TabIndex = 2 -' -'DomLevelDescLabel -' -Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) -Me.DomLevelDescLabel.Name = "DomLevelDescLabel" -Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) -Me.DomLevelDescLabel.TabIndex = 42 -Me.DomLevelDescLabel.Text = "Tease" -Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'domlevelNumBox -' -Me.domlevelNumBox.BackColor = System.Drawing.Color.White -Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black -Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) -Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.domlevelNumBox.Name = "domlevelNumBox" -Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) -Me.domlevelNumBox.TabIndex = 41 -Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label43 -' -Me.Label43.BackColor = System.Drawing.Color.Transparent -Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label43.ForeColor = System.Drawing.Color.Black -Me.Label43.Location = New System.Drawing.Point(6, 183) -Me.Label43.Name = "Label43" -Me.Label43.Size = New System.Drawing.Size(63, 17) -Me.Label43.TabIndex = 142 -Me.Label43.Text = "Cup Size:" -Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label44 -' -Me.Label44.BackColor = System.Drawing.Color.Transparent -Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label44.ForeColor = System.Drawing.Color.Black -Me.Label44.Location = New System.Drawing.Point(6, 158) -Me.Label44.Name = "Label44" -Me.Label44.Size = New System.Drawing.Size(63, 17) -Me.Label44.TabIndex = 141 -Me.Label44.Text = "Eye Color:" -Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label45 -' -Me.Label45.BackColor = System.Drawing.Color.Transparent -Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label45.ForeColor = System.Drawing.Color.Black -Me.Label45.Location = New System.Drawing.Point(6, 108) -Me.Label45.Name = "Label45" -Me.Label45.Size = New System.Drawing.Size(78, 17) -Me.Label45.TabIndex = 140 -Me.Label45.Text = "Hair Color:" -Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label46 -' -Me.Label46.BackColor = System.Drawing.Color.Transparent -Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label46.ForeColor = System.Drawing.Color.Black -Me.Label46.Location = New System.Drawing.Point(6, 15) -Me.Label46.Name = "Label46" -Me.Label46.Size = New System.Drawing.Size(46, 17) -Me.Label46.TabIndex = 139 -Me.Label46.Text = "Level:" -Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GBDomPersonality -' -Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) -Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) -Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) -Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) -Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) -Me.GBDomPersonality.Controls.Add(Me.CFNMCheckBox) -Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black -Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) -Me.GBDomPersonality.Name = "GBDomPersonality" -Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) -Me.GBDomPersonality.TabIndex = 131 -Me.GBDomPersonality.TabStop = false -Me.GBDomPersonality.Text = "Personality" -' -'degradingCheckBox -' -Me.degradingCheckBox.AutoSize = true -Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black -Me.degradingCheckBox.Location = New System.Drawing.Point(79, 43) -Me.degradingCheckBox.Name = "degradingCheckBox" -Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) -Me.degradingCheckBox.TabIndex = 40 -Me.degradingCheckBox.Text = "Degrading" -Me.degradingCheckBox.UseVisualStyleBackColor = true -' -'sadisticCheckBox -' -Me.sadisticCheckBox.AutoSize = true -Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black -Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) -Me.sadisticCheckBox.Name = "sadisticCheckBox" -Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) -Me.sadisticCheckBox.TabIndex = 39 -Me.sadisticCheckBox.Text = "Sadistic" -Me.sadisticCheckBox.UseVisualStyleBackColor = true -' -'supremacistCheckBox -' -Me.supremacistCheckBox.AutoSize = true -Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black -Me.supremacistCheckBox.Location = New System.Drawing.Point(155, 20) -Me.supremacistCheckBox.Name = "supremacistCheckBox" -Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) -Me.supremacistCheckBox.TabIndex = 38 -Me.supremacistCheckBox.Text = "Supremacist" -Me.supremacistCheckBox.UseVisualStyleBackColor = true -' -'vulgarCheckBox -' -Me.vulgarCheckBox.AutoSize = true -Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black -Me.vulgarCheckBox.Location = New System.Drawing.Point(79, 20) -Me.vulgarCheckBox.Name = "vulgarCheckBox" -Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) -Me.vulgarCheckBox.TabIndex = 37 -Me.vulgarCheckBox.Text = "Vulgar" -Me.vulgarCheckBox.UseVisualStyleBackColor = true -' -'crazyCheckBox -' -Me.crazyCheckBox.AutoSize = true -Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black -Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) -Me.crazyCheckBox.Name = "crazyCheckBox" -Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) -Me.crazyCheckBox.TabIndex = 36 -Me.crazyCheckBox.Text = "Crazy" -Me.crazyCheckBox.UseVisualStyleBackColor = true -' -'CFNMCheckBox -' -Me.CFNMCheckBox.AutoSize = true -Me.CFNMCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CFNMCheckBox.ForeColor = System.Drawing.Color.Black -Me.CFNMCheckBox.Location = New System.Drawing.Point(155, 43) -Me.CFNMCheckBox.Name = "CFNMCheckBox" -Me.CFNMCheckBox.Size = New System.Drawing.Size(56, 17) -Me.CFNMCheckBox.TabIndex = 41 -Me.CFNMCheckBox.Text = "CFNM" -Me.CFNMCheckBox.UseVisualStyleBackColor = true -' -'GBDomOrgasms -' -Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) -Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) -Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) -Me.GBDomOrgasms.Controls.Add(Me.Label16) -Me.GBDomOrgasms.Controls.Add(Me.Label12) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) -Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) -Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) -Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) -Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) -Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) -Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black -Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) -Me.GBDomOrgasms.Name = "GBDomOrgasms" -Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) -Me.GBDomOrgasms.TabIndex = 132 -Me.GBDomOrgasms.TabStop = false -Me.GBDomOrgasms.Text = "Orgasms" -' -'CBLockOrgasmChances -' -Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances -Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black -Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) -Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" -Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) -Me.CBLockOrgasmChances.TabIndex = 146 -Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" -Me.CBLockOrgasmChances.UseVisualStyleBackColor = true -' -'orgasmlockrandombutton -' -Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray -Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black -Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) -Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" -Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) -Me.orgasmlockrandombutton.TabIndex = 145 -Me.orgasmlockrandombutton.Text = "Lock Random" -Me.orgasmlockrandombutton.UseVisualStyleBackColor = false -' -'CBDomOrgasmEnds -' -Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black -Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) -Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" -Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) -Me.CBDomOrgasmEnds.TabIndex = 144 -Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" -Me.CBDomOrgasmEnds.UseVisualStyleBackColor = true -' -'Label16 -' -Me.Label16.BackColor = System.Drawing.Color.Transparent -Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label16.ForeColor = System.Drawing.Color.Black -Me.Label16.Location = New System.Drawing.Point(12, 47) -Me.Label16.Name = "Label16" -Me.Label16.Size = New System.Drawing.Size(87, 17) -Me.Label16.TabIndex = 142 -Me.Label16.Text = "Ruins Orgasms:" -Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label12 -' -Me.Label12.BackColor = System.Drawing.Color.Transparent -Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label12.ForeColor = System.Drawing.Color.Black -Me.Label12.Location = New System.Drawing.Point(12, 19) -Me.Label12.Name = "Label12" -Me.Label12.Size = New System.Drawing.Size(87, 17) -Me.Label12.TabIndex = 141 -Me.Label12.Text = "Allows Orgasms:" -Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'orgasmsperlockButton -' -Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray -Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black -Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) -Me.orgasmsperlockButton.Name = "orgasmsperlockButton" -Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) -Me.orgasmsperlockButton.TabIndex = 97 -Me.orgasmsperlockButton.Text = "Lock Selected" -Me.orgasmsperlockButton.UseVisualStyleBackColor = false -' -'orgasmsperComboBox -' -Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White -Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black -Me.orgasmsperComboBox.FormattingEnabled = true -Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) -Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) -Me.orgasmsperComboBox.Name = "orgasmsperComboBox" -Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) -Me.orgasmsperComboBox.TabIndex = 43 -' -'orgasmsperLabel -' -Me.orgasmsperLabel.AutoSize = true -Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black -Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) -Me.orgasmsperLabel.Name = "orgasmsperLabel" -Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) -Me.orgasmsperLabel.TabIndex = 42 -Me.orgasmsperLabel.Text = "per" -Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'limitcheckbox -' -Me.limitcheckbox.AutoSize = true -Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.limitcheckbox.ForeColor = System.Drawing.Color.Black -Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) -Me.limitcheckbox.Name = "limitcheckbox" -Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) -Me.limitcheckbox.TabIndex = 39 -Me.limitcheckbox.Text = "Limit" -Me.limitcheckbox.UseVisualStyleBackColor = true -' -'orgasmsPerNumBox -' -Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White -Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black -Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) -Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" -Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) -Me.orgasmsPerNumBox.TabIndex = 41 -Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'CBDomDenialEnds -' -Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black -Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) -Me.CBDomDenialEnds.Name = "CBDomDenialEnds" -Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) -Me.CBDomDenialEnds.TabIndex = 38 -Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" -Me.CBDomDenialEnds.UseVisualStyleBackColor = true -' -'alloworgasmComboBox -' -Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White -Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black -Me.alloworgasmComboBox.FormattingEnabled = true -Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) -Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) -Me.alloworgasmComboBox.Name = "alloworgasmComboBox" -Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) -Me.alloworgasmComboBox.TabIndex = 1 -' -'ruinorgasmComboBox -' -Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White -Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black -Me.ruinorgasmComboBox.FormattingEnabled = true -Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) -Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) -Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" -Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) -Me.ruinorgasmComboBox.TabIndex = 2 -' -'GBDomPetNames -' -Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray -Me.GBDomPetNames.Controls.Add(Me.Label74) -Me.GBDomPetNames.Controls.Add(Me.petnameBox7) -Me.GBDomPetNames.Controls.Add(Me.petnameBox8) -Me.GBDomPetNames.Controls.Add(Me.petnameBox1) -Me.GBDomPetNames.Controls.Add(Me.Label15) -Me.GBDomPetNames.Controls.Add(Me.petnameBox4) -Me.GBDomPetNames.Controls.Add(Me.petnameBox6) -Me.GBDomPetNames.Controls.Add(Me.petnameBox2) -Me.GBDomPetNames.Controls.Add(Me.Label11) -Me.GBDomPetNames.Controls.Add(Me.petnameBox5) -Me.GBDomPetNames.Controls.Add(Me.petnameBox3) -Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black -Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) -Me.GBDomPetNames.Name = "GBDomPetNames" -Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) -Me.GBDomPetNames.TabIndex = 134 -Me.GBDomPetNames.TabStop = false -Me.GBDomPetNames.Text = "Pet Names" -' -'Label74 -' -Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label74.ForeColor = System.Drawing.Color.Black -Me.Label74.Location = New System.Drawing.Point(8, 14) -Me.Label74.Name = "Label74" -Me.Label74.Size = New System.Drawing.Size(233, 13) -Me.Label74.TabIndex = 45 -Me.Label74.Text = "Great Mood" -Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'petnameBox7 -' -Me.petnameBox7.BackColor = System.Drawing.Color.White -Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox7.ForeColor = System.Drawing.Color.Black -Me.petnameBox7.Location = New System.Drawing.Point(8, 154) -Me.petnameBox7.Name = "petnameBox7" -Me.petnameBox7.Size = New System.Drawing.Size(114, 23) -Me.petnameBox7.TabIndex = 13 -Me.petnameBox7.Text = "bitch boy" -Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox8 -' -Me.petnameBox8.BackColor = System.Drawing.Color.White -Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox8.ForeColor = System.Drawing.Color.Black -Me.petnameBox8.Location = New System.Drawing.Point(128, 154) -Me.petnameBox8.Name = "petnameBox8" -Me.petnameBox8.Size = New System.Drawing.Size(113, 22) -Me.petnameBox8.TabIndex = 14 -Me.petnameBox8.Text = "slut" -Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox1 -' -Me.petnameBox1.BackColor = System.Drawing.Color.White -Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox1.ForeColor = System.Drawing.Color.Black -Me.petnameBox1.Location = New System.Drawing.Point(8, 32) -Me.petnameBox1.Name = "petnameBox1" -Me.petnameBox1.Size = New System.Drawing.Size(114, 23) -Me.petnameBox1.TabIndex = 7 -Me.petnameBox1.Text = "stroker" -Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label15 -' -Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label15.ForeColor = System.Drawing.Color.Black -Me.Label15.Location = New System.Drawing.Point(8, 136) -Me.Label15.Name = "Label15" -Me.Label15.Size = New System.Drawing.Size(233, 13) -Me.Label15.TabIndex = 44 -Me.Label15.Text = "Bad Mood" -Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'petnameBox4 -' -Me.petnameBox4.BackColor = System.Drawing.Color.White -Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox4.ForeColor = System.Drawing.Color.Black -Me.petnameBox4.Location = New System.Drawing.Point(128, 81) -Me.petnameBox4.Name = "petnameBox4" -Me.petnameBox4.Size = New System.Drawing.Size(113, 23) -Me.petnameBox4.TabIndex = 10 -Me.petnameBox4.Text = "loser" -Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox6 -' -Me.petnameBox6.BackColor = System.Drawing.Color.White -Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox6.ForeColor = System.Drawing.Color.Black -Me.petnameBox6.Location = New System.Drawing.Point(128, 107) -Me.petnameBox6.Name = "petnameBox6" -Me.petnameBox6.Size = New System.Drawing.Size(113, 23) -Me.petnameBox6.TabIndex = 12 -Me.petnameBox6.Text = "pet" -Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox2 -' -Me.petnameBox2.BackColor = System.Drawing.Color.White -Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox2.ForeColor = System.Drawing.Color.Black -Me.petnameBox2.Location = New System.Drawing.Point(128, 32) -Me.petnameBox2.Name = "petnameBox2" -Me.petnameBox2.Size = New System.Drawing.Size(114, 23) -Me.petnameBox2.TabIndex = 8 -Me.petnameBox2.Text = "wanker" -Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label11 -' -Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label11.ForeColor = System.Drawing.Color.Black -Me.Label11.Location = New System.Drawing.Point(5, 63) -Me.Label11.Name = "Label11" -Me.Label11.Size = New System.Drawing.Size(239, 13) -Me.Label11.TabIndex = 43 -Me.Label11.Text = "Neutral Mood" -Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'petnameBox5 -' -Me.petnameBox5.BackColor = System.Drawing.Color.White -Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox5.ForeColor = System.Drawing.Color.Black -Me.petnameBox5.Location = New System.Drawing.Point(8, 107) -Me.petnameBox5.Name = "petnameBox5" -Me.petnameBox5.Size = New System.Drawing.Size(114, 23) -Me.petnameBox5.TabIndex = 11 -Me.petnameBox5.Text = "baby" -Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'petnameBox3 -' -Me.petnameBox3.BackColor = System.Drawing.Color.White -Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.petnameBox3.ForeColor = System.Drawing.Color.Black -Me.petnameBox3.Location = New System.Drawing.Point(8, 81) -Me.petnameBox3.Name = "petnameBox3" -Me.petnameBox3.Size = New System.Drawing.Size(114, 23) -Me.petnameBox3.TabIndex = 9 -Me.petnameBox3.Text = "slave" -Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Label54 -' -Me.Label54.BackColor = System.Drawing.Color.Transparent -Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label54.ForeColor = System.Drawing.Color.Black -Me.Label54.Location = New System.Drawing.Point(7, 6) -Me.Label54.Name = "Label54" -Me.Label54.Size = New System.Drawing.Size(692, 21) -Me.Label54.TabIndex = 49 -Me.Label54.Text = "Domme Settings" -Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage10 -' -Me.TabPage10.BackColor = System.Drawing.Color.Silver -Me.TabPage10.Controls.Add(Me.Panel2) -Me.TabPage10.Location = New System.Drawing.Point(4, 22) -Me.TabPage10.Name = "TabPage10" -Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage10.Size = New System.Drawing.Size(720, 448) -Me.TabPage10.TabIndex = 9 -Me.TabPage10.Text = "Sub" -' -'Panel2 -' -Me.Panel2.BackColor = System.Drawing.Color.LightGray -Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel2.Controls.Add(Me.GroupBox22) -Me.Panel2.Controls.Add(Me.GroupBox45) -Me.Panel2.Controls.Add(Me.GroupBox6) -Me.Panel2.Controls.Add(Me.GroupBox35) -Me.Panel2.Controls.Add(Me.GroupBox13) -Me.Panel2.Controls.Add(Me.GroupBox7) -Me.Panel2.Controls.Add(Me.PictureBox12) -Me.Panel2.Controls.Add(Me.GroupBox32) -Me.Panel2.Controls.Add(Me.Label70) -Me.Panel2.Location = New System.Drawing.Point(6, 6) -Me.Panel2.Name = "Panel2" -Me.Panel2.Size = New System.Drawing.Size(708, 437) -Me.Panel2.TabIndex = 94 -' -'GroupBox22 -' -Me.GroupBox22.BackColor = System.Drawing.Color.LightGray -Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) -Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) -Me.GroupBox22.Controls.Add(Me.Label75) -Me.GroupBox22.Controls.Add(Me.Label77) -Me.GroupBox22.ForeColor = System.Drawing.Color.Black -Me.GroupBox22.Location = New System.Drawing.Point(440, 388) -Me.GroupBox22.Name = "GroupBox22" -Me.GroupBox22.Size = New System.Drawing.Size(259, 39) -Me.GroupBox22.TabIndex = 158 -Me.GroupBox22.TabStop = false -Me.GroupBox22.Text = "Writing Tasks" -' -'NBWritingTaskMax -' -Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) -Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMax.Name = "NBWritingTaskMax" -Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) -Me.NBWritingTaskMax.TabIndex = 168 -Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) -' -'NBWritingTaskMin -' -Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) -Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBWritingTaskMin.Name = "NBWritingTaskMin" -Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) -Me.NBWritingTaskMin.TabIndex = 167 -Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) -' -'Label75 -' -Me.Label75.BackColor = System.Drawing.Color.Transparent -Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label75.ForeColor = System.Drawing.Color.Black -Me.Label75.Location = New System.Drawing.Point(184, 13) -Me.Label75.Name = "Label75" -Me.Label75.Size = New System.Drawing.Size(10, 17) -Me.Label75.TabIndex = 166 -Me.Label75.Text = "-" -Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label77 -' -Me.Label77.BackColor = System.Drawing.Color.Transparent -Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label77.ForeColor = System.Drawing.Color.Black -Me.Label77.Location = New System.Drawing.Point(12, 15) -Me.Label77.Name = "Label77" -Me.Label77.Size = New System.Drawing.Size(126, 17) -Me.Label77.TabIndex = 165 -Me.Label77.Tag = "" -Me.Label77.Text = "Line Amount Range:" -Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox45 -' -Me.GroupBox45.BackColor = System.Drawing.Color.LightGray -Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) -Me.GroupBox45.Controls.Add(Me.CBCBTBalls) -Me.GroupBox45.Controls.Add(Me.CBCBTCock) -Me.GroupBox45.Controls.Add(Me.CBTSlider) -Me.GroupBox45.ForeColor = System.Drawing.Color.Black -Me.GroupBox45.Location = New System.Drawing.Point(440, 332) -Me.GroupBox45.Name = "GroupBox45" -Me.GroupBox45.Size = New System.Drawing.Size(259, 50) -Me.GroupBox45.TabIndex = 155 -Me.GroupBox45.TabStop = false -Me.GroupBox45.Text = "CBT" -' -'LBLCBTSlider -' -Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black -Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) -Me.LBLCBTSlider.Name = "LBLCBTSlider" -Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) -Me.LBLCBTSlider.TabIndex = 168 -Me.LBLCBTSlider.Text = "CBT Level: 3" -Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBCBTBalls -' -Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) -Me.CBCBTBalls.Name = "CBCBTBalls" -Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) -Me.CBCBTBalls.TabIndex = 1 -Me.CBCBTBalls.Text = "Ball Torture" -Me.CBCBTBalls.UseVisualStyleBackColor = true -' -'CBCBTCock -' -Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) -Me.CBCBTCock.Name = "CBCBTCock" -Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) -Me.CBCBTCock.TabIndex = 0 -Me.CBCBTCock.Text = "Cock Torture" -Me.CBCBTCock.UseVisualStyleBackColor = true -' -'CBTSlider -' -Me.CBTSlider.AutoSize = false -Me.CBTSlider.LargeChange = 1 -Me.CBTSlider.Location = New System.Drawing.Point(134, 13) -Me.CBTSlider.Maximum = 5 -Me.CBTSlider.Minimum = 1 -Me.CBTSlider.Name = "CBTSlider" -Me.CBTSlider.Size = New System.Drawing.Size(110, 25) -Me.CBTSlider.TabIndex = 166 -Me.CBTSlider.Value = 3 -' -'GroupBox35 -' -Me.GroupBox35.BackColor = System.Drawing.Color.LightGray -Me.GroupBox35.Controls.Add(Me.GroupBoxSorry) -Me.GroupBox35.Controls.Add(Me.GroupBox39) -Me.GroupBox35.Controls.Add(Me.GroupBox38) -Me.GroupBox35.Controls.Add(Me.GroupBox37) -Me.GroupBox35.Controls.Add(Me.GroupBox36) -Me.GroupBox35.ForeColor = System.Drawing.Color.Black -Me.GroupBox35.Location = New System.Drawing.Point(440, 30) -Me.GroupBox35.Name = "GroupBox35" -Me.GroupBox35.Size = New System.Drawing.Size(259, 296) -Me.GroupBox35.TabIndex = 154 -Me.GroupBox35.TabStop = false -Me.GroupBox35.Text = "Key Phrases" -' -'GroupBoxSorry -' -Me.GroupBoxSorry.Controls.Add(Me.TBSorry) -Me.GroupBoxSorry.Location = New System.Drawing.Point(6, 158) -Me.GroupBoxSorry.Name = "GroupBoxSorry" -Me.GroupBoxSorry.Size = New System.Drawing.Size(247, 46) -Me.GroupBoxSorry.TabIndex = 3 -Me.GroupBoxSorry.TabStop = false -Me.GroupBoxSorry.Tag = "" -Me.GroupBoxSorry.Text = "Sorry" -' -'TBSorry -' -Me.TBSorry.Location = New System.Drawing.Point(9, 16) -Me.TBSorry.Name = "TBSorry" -Me.TBSorry.Size = New System.Drawing.Size(229, 20) -Me.TBSorry.TabIndex = 0 -Me.TBSorry.Text = "sorry, apologize, excuse" -' -'GroupBox39 -' -Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) -Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) -Me.GroupBox39.Controls.Add(Me.TBHonorific) -Me.GroupBox39.Location = New System.Drawing.Point(6, 206) -Me.GroupBox39.Name = "GroupBox39" -Me.GroupBox39.Size = New System.Drawing.Size(247, 82) -Me.GroupBox39.TabIndex = 3 -Me.GroupBox39.TabStop = false -Me.GroupBox39.Tag = "" -Me.GroupBox39.Text = "Honorific" -' -'CBHonorificInclude -' -Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black -Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 39) -Me.CBHonorificInclude.Name = "CBHonorificInclude" -Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) -Me.CBHonorificInclude.TabIndex = 40 -Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" -Me.CBHonorificInclude.UseVisualStyleBackColor = true -' -'CBHonorificCapitalized -' -Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black -Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 60) -Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" -Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) -Me.CBHonorificCapitalized.TabIndex = 39 -Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" -Me.CBHonorificCapitalized.UseVisualStyleBackColor = true -' -'TBHonorific -' -Me.TBHonorific.Location = New System.Drawing.Point(9, 16) -Me.TBHonorific.Name = "TBHonorific" -Me.TBHonorific.Size = New System.Drawing.Size(229, 20) -Me.TBHonorific.TabIndex = 0 -Me.TBHonorific.Text = "Mistress" -' -'GroupBox38 -' -Me.GroupBox38.Controls.Add(Me.TBNo) -Me.GroupBox38.Location = New System.Drawing.Point(6, 110) -Me.GroupBox38.Name = "GroupBox38" -Me.GroupBox38.Size = New System.Drawing.Size(247, 46) -Me.GroupBox38.TabIndex = 2 -Me.GroupBox38.TabStop = false -Me.GroupBox38.Tag = "" -Me.GroupBox38.Text = "No" -' -'TBNo -' -Me.TBNo.Location = New System.Drawing.Point(9, 16) -Me.TBNo.Name = "TBNo" -Me.TBNo.Size = New System.Drawing.Size(229, 20) -Me.TBNo.TabIndex = 0 -Me.TBNo.Text = "no, nah, nope" -' -'GroupBox37 -' -Me.GroupBox37.Controls.Add(Me.TBYes) -Me.GroupBox37.Location = New System.Drawing.Point(6, 62) -Me.GroupBox37.Name = "GroupBox37" -Me.GroupBox37.Size = New System.Drawing.Size(247, 46) -Me.GroupBox37.TabIndex = 1 -Me.GroupBox37.TabStop = false -Me.GroupBox37.Tag = "" -Me.GroupBox37.Text = "Yes" -' -'TBYes -' -Me.TBYes.Location = New System.Drawing.Point(9, 16) -Me.TBYes.Name = "TBYes" -Me.TBYes.Size = New System.Drawing.Size(229, 20) -Me.TBYes.TabIndex = 0 -Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" -' -'GroupBox36 -' -Me.GroupBox36.Controls.Add(Me.TBGreeting) -Me.GroupBox36.Location = New System.Drawing.Point(6, 14) -Me.GroupBox36.Name = "GroupBox36" -Me.GroupBox36.Size = New System.Drawing.Size(247, 46) -Me.GroupBox36.TabIndex = 0 -Me.GroupBox36.TabStop = false -Me.GroupBox36.Tag = "" -Me.GroupBox36.Text = "Greeting" -' -'TBGreeting -' -Me.TBGreeting.Location = New System.Drawing.Point(9, 16) -Me.TBGreeting.Name = "TBGreeting" -Me.TBGreeting.Size = New System.Drawing.Size(229, 20) -Me.TBGreeting.TabIndex = 0 -Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" -' -'GroupBox13 -' -Me.GroupBox13.BackColor = System.Drawing.Color.LightGray -Me.GroupBox13.Controls.Add(Me.Label34) -Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) -Me.GroupBox13.ForeColor = System.Drawing.Color.Black -Me.GroupBox13.Location = New System.Drawing.Point(239, 388) -Me.GroupBox13.Name = "GroupBox13" -Me.GroupBox13.Size = New System.Drawing.Size(195, 39) -Me.GroupBox13.TabIndex = 157 -Me.GroupBox13.TabStop = false -Me.GroupBox13.Text = "Routine" -' -'Label34 -' -Me.Label34.BackColor = System.Drawing.Color.Transparent -Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label34.ForeColor = System.Drawing.Color.Black -Me.Label34.Location = New System.Drawing.Point(12, 15) -Me.Label34.Name = "Label34" -Me.Label34.Size = New System.Drawing.Size(83, 17) -Me.Label34.TabIndex = 140 -Me.Label34.Text = "Wake Up Time:" -Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'TimeBoxWakeUp -' -Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time -Me.TimeBoxWakeUp.Location = New System.Drawing.Point(92, 13) -Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" -Me.TimeBoxWakeUp.ShowUpDown = true -Me.TimeBoxWakeUp.Size = New System.Drawing.Size(97, 20) -Me.TimeBoxWakeUp.TabIndex = 0 -' -'GroupBox7 -' -Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) -Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) -Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) -Me.GroupBox7.Controls.Add(Me.Label133) -Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) -Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) -Me.GroupBox7.Controls.Add(Me.Label78) -Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) -Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) -Me.GroupBox7.Controls.Add(Me.Label129) -Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) -Me.GroupBox7.Controls.Add(Me.LBLMaxHold) -Me.GroupBox7.Controls.Add(Me.Label79) -Me.GroupBox7.Controls.Add(Me.NBLongEdge) -Me.GroupBox7.Controls.Add(Me.LBLMinHold) -Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) -Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) -Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) -Me.GroupBox7.Controls.Add(Me.Label55) -Me.GroupBox7.Controls.Add(Me.Label81) -Me.GroupBox7.Controls.Add(Me.Label5) -Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) -Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) -Me.GroupBox7.Controls.Add(Me.Label131) -Me.GroupBox7.Location = New System.Drawing.Point(7, 201) -Me.GroupBox7.Name = "GroupBox7" -Me.GroupBox7.Size = New System.Drawing.Size(226, 226) -Me.GroupBox7.TabIndex = 152 -Me.GroupBox7.TabStop = false -Me.GroupBox7.Text = "Edging" -' -'LBLMaxExtremeHold -' -Me.LBLMaxExtremeHold.AutoSize = true -Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) -Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" -Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMaxExtremeHold.TabIndex = 192 -Me.LBLMaxExtremeHold.Text = "minutes" -Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLMinExtremeHold -' -Me.LBLMinExtremeHold.AutoSize = true -Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) -Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" -Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMinExtremeHold.TabIndex = 190 -Me.LBLMinExtremeHold.Text = "minutes" -Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBExtremeHoldMin -' -Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) -Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" -Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) -Me.NBExtremeHoldMin.TabIndex = 189 -Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label133 -' -Me.Label133.BackColor = System.Drawing.Color.Transparent -Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label133.ForeColor = System.Drawing.Color.Black -Me.Label133.Location = New System.Drawing.Point(6, 105) -Me.Label133.Name = "Label133" -Me.Label133.Size = New System.Drawing.Size(119, 17) -Me.Label133.TabIndex = 187 -Me.Label133.Text = "Min Extreme Hold Time:" -Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBExtremeHoldMax -' -Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) -Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" -Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) -Me.NBExtremeHoldMax.TabIndex = 188 -Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'LBLMaxLongHold -' -Me.LBLMaxLongHold.AutoSize = true -Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) -Me.LBLMaxLongHold.Name = "LBLMaxLongHold" -Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMaxLongHold.TabIndex = 186 -Me.LBLMaxLongHold.Text = "minutes" -Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label78 -' -Me.Label78.BackColor = System.Drawing.Color.Transparent -Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label78.ForeColor = System.Drawing.Color.Black -Me.Label78.Location = New System.Drawing.Point(6, 83) -Me.Label78.Name = "Label78" -Me.Label78.Size = New System.Drawing.Size(113, 17) -Me.Label78.TabIndex = 185 -Me.Label78.Text = "Max Long Hold Time:" -Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLMinLongHold -' -Me.LBLMinLongHold.AutoSize = true -Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) -Me.LBLMinLongHold.Name = "LBLMinLongHold" -Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMinLongHold.TabIndex = 184 -Me.LBLMinLongHold.Text = "minutes" -Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBLongHoldMin -' -Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) -Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBLongHoldMin.Name = "NBLongHoldMin" -Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) -Me.NBLongHoldMin.TabIndex = 183 -Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label129 -' -Me.Label129.BackColor = System.Drawing.Color.Transparent -Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label129.ForeColor = System.Drawing.Color.Black -Me.Label129.Location = New System.Drawing.Point(6, 61) -Me.Label129.Name = "Label129" -Me.Label129.Size = New System.Drawing.Size(113, 17) -Me.Label129.TabIndex = 181 -Me.Label129.Text = "Min Long Hold Time:" -Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBLongHoldMax -' -Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) -Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBLongHoldMax.Name = "NBLongHoldMax" -Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) -Me.NBLongHoldMax.TabIndex = 182 -Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'LBLMaxHold -' -Me.LBLMaxHold.AutoSize = true -Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) -Me.LBLMaxHold.Name = "LBLMaxHold" -Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) -Me.LBLMaxHold.TabIndex = 180 -Me.LBLMaxHold.Text = "minutes" -Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label79 -' -Me.Label79.BackColor = System.Drawing.Color.Transparent -Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label79.ForeColor = System.Drawing.Color.Black -Me.Label79.Location = New System.Drawing.Point(6, 39) -Me.Label79.Name = "Label79" -Me.Label79.Size = New System.Drawing.Size(113, 17) -Me.Label79.TabIndex = 178 -Me.Label79.Text = "Max Hold Edge Time:" -Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBLongEdge -' -Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) -Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBLongEdge.Name = "NBLongEdge" -Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) -Me.NBLongEdge.TabIndex = 152 -Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) -' -'LBLMinHold -' -Me.LBLMinHold.AutoSize = true -Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) -Me.LBLMinHold.Name = "LBLMinHold" -Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) -Me.LBLMinHold.TabIndex = 177 -Me.LBLMinHold.Text = "seconds" -Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBEdgeUseAvg -' -Me.CBEdgeUseAvg.AutoSize = true -Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) -Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" -Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) -Me.CBEdgeUseAvg.TabIndex = 174 -Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" -Me.CBEdgeUseAvg.UseVisualStyleBackColor = true -' -'CBLongEdgeInterrupts -' -Me.CBLongEdgeInterrupts.Checked = true -Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black -Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) -Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" -Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) -Me.CBLongEdgeInterrupts.TabIndex = 169 -Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" -Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = true -' -'NBHoldTheEdgeMin -' -Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) -Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" -Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) -Me.NBHoldTheEdgeMin.TabIndex = 176 -Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label55 -' -Me.Label55.BackColor = System.Drawing.Color.Transparent -Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label55.ForeColor = System.Drawing.Color.Black -Me.Label55.Location = New System.Drawing.Point(7, 149) -Me.Label55.Name = "Label55" -Me.Label55.Size = New System.Drawing.Size(116, 17) -Me.Label55.TabIndex = 170 -Me.Label55.Text = "Long Edge Threshold:" -Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label81 -' -Me.Label81.BackColor = System.Drawing.Color.Transparent -Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label81.ForeColor = System.Drawing.Color.Black -Me.Label81.Location = New System.Drawing.Point(6, 17) -Me.Label81.Name = "Label81" -Me.Label81.Size = New System.Drawing.Size(113, 17) -Me.Label81.TabIndex = 153 -Me.Label81.Text = "Min Hold Edge Time:" -Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label5 -' -Me.Label5.AutoSize = true -Me.Label5.Location = New System.Drawing.Point(174, 151) -Me.Label5.Name = "Label5" -Me.Label5.Size = New System.Drawing.Size(43, 13) -Me.Label5.TabIndex = 175 -Me.Label5.Text = "minutes" -Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'NBHoldTheEdgeMax -' -Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) -Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) -Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" -Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) -Me.NBHoldTheEdgeMax.TabIndex = 155 -Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'CBLongEdgeTaunts -' -Me.CBLongEdgeTaunts.Checked = true -Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black -Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) -Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" -Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) -Me.CBLongEdgeTaunts.TabIndex = 172 -Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" -Me.CBLongEdgeTaunts.UseVisualStyleBackColor = true -' -'Label131 -' -Me.Label131.BackColor = System.Drawing.Color.Transparent -Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label131.ForeColor = System.Drawing.Color.Black -Me.Label131.Location = New System.Drawing.Point(6, 127) -Me.Label131.Name = "Label131" -Me.Label131.Size = New System.Drawing.Size(128, 17) -Me.Label131.TabIndex = 191 -Me.Label131.Text = "Max Extreme Hold Time:" -Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'PictureBox12 -' -Me.PictureBox12.BackColor = System.Drawing.Color.LightGray -Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox12.Location = New System.Drawing.Point(9, 6) -Me.PictureBox12.Name = "PictureBox12" -Me.PictureBox12.Size = New System.Drawing.Size(160, 19) -Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox12.TabIndex = 149 -Me.PictureBox12.TabStop = false -' -'GroupBox32 -' -Me.GroupBox32.BackColor = System.Drawing.Color.LightGray -Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) -Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) -Me.GroupBox32.Controls.Add(Me.CBOwnChastity) -Me.GroupBox32.Controls.Add(Me.CBChastityPA) -Me.GroupBox32.Controls.Add(Me.CBHimHer) -Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) -Me.GroupBox32.Controls.Add(Me.CBCockToClit) -Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) -Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) -Me.GroupBox32.Controls.Add(Me.CBSubPierced) -Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) -Me.GroupBox32.Controls.Add(Me.TBSubHairColor) -Me.GroupBox32.Controls.Add(Me.Label63) -Me.GroupBox32.Controls.Add(Me.LBLSubInches) -Me.GroupBox32.Controls.Add(Me.subAgeNumBox) -Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) -Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) -Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) -Me.GroupBox32.Controls.Add(Me.LBLSubEye) -Me.GroupBox32.Controls.Add(Me.LBLSubHair) -Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) -Me.GroupBox32.Controls.Add(Me.LBLSubAge) -Me.GroupBox32.ForeColor = System.Drawing.Color.Black -Me.GroupBox32.Location = New System.Drawing.Point(7, 30) -Me.GroupBox32.Name = "GroupBox32" -Me.GroupBox32.Size = New System.Drawing.Size(427, 165) -Me.GroupBox32.TabIndex = 62 -Me.GroupBox32.TabStop = false -Me.GroupBox32.Text = "Personal Information" -' -'LBLSubBdayFormat -' -Me.LBLSubBdayFormat.AutoSize = true -Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) -Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" -Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) -Me.LBLSubBdayFormat.TabIndex = 161 -Me.LBLSubBdayFormat.Text = "mm/dd" -Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBChastitySpikes -' -Me.CBChastitySpikes.AutoSize = true -Me.CBChastitySpikes.Enabled = false -Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) -Me.CBChastitySpikes.Name = "CBChastitySpikes" -Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) -Me.CBChastitySpikes.TabIndex = 4 -Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" -Me.CBChastitySpikes.UseVisualStyleBackColor = true -' -'CBOwnChastity -' -Me.CBOwnChastity.AutoSize = true -Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) -Me.CBOwnChastity.Name = "CBOwnChastity" -Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) -Me.CBOwnChastity.TabIndex = 5 -Me.CBOwnChastity.Text = "Own Device a Chastity Device" -Me.CBOwnChastity.UseVisualStyleBackColor = true -' -'CBChastityPA -' -Me.CBChastityPA.AutoSize = true -Me.CBChastityPA.Enabled = false -Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) -Me.CBChastityPA.Name = "CBChastityPA" -Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) -Me.CBChastityPA.TabIndex = 3 -Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" -Me.CBChastityPA.UseVisualStyleBackColor = true -' -'CBHimHer -' -Me.CBHimHer.AutoSize = true -Me.CBHimHer.Location = New System.Drawing.Point(191, 65) -Me.CBHimHer.Name = "CBHimHer" -Me.CBHimHer.Size = New System.Drawing.Size(219, 17) -Me.CBHimHer.TabIndex = 3 -Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" -Me.CBHimHer.UseVisualStyleBackColor = true -' -'CBBallsToPussy -' -Me.CBBallsToPussy.AutoSize = true -Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) -Me.CBBallsToPussy.Name = "CBBallsToPussy" -Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) -Me.CBBallsToPussy.TabIndex = 160 -Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" -Me.CBBallsToPussy.UseVisualStyleBackColor = true -' -'CBCockToClit -' -Me.CBCockToClit.AutoSize = true -Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) -Me.CBCockToClit.Name = "CBCockToClit" -Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) -Me.CBCockToClit.TabIndex = 159 -Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" -Me.CBCockToClit.UseVisualStyleBackColor = true -' -'NBBirthdayDay -' -Me.NBBirthdayDay.BackColor = System.Drawing.Color.White -Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black -Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) -Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) -Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBBirthdayDay.Name = "NBBirthdayDay" -Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) -Me.NBBirthdayDay.TabIndex = 144 -Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'CBSubCircumcised -' -Me.CBSubCircumcised.AutoSize = true -Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black -Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) -Me.CBSubCircumcised.Name = "CBSubCircumcised" -Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) -Me.CBSubCircumcised.TabIndex = 157 -Me.CBSubCircumcised.Text = "Circumcised" -Me.CBSubCircumcised.UseVisualStyleBackColor = true -' -'CBSubPierced -' -Me.CBSubPierced.AutoSize = true -Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBSubPierced.ForeColor = System.Drawing.Color.Black -Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) -Me.CBSubPierced.Name = "CBSubPierced" -Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) -Me.CBSubPierced.TabIndex = 156 -Me.CBSubPierced.Text = "Pierced" -Me.CBSubPierced.UseVisualStyleBackColor = true -' -'TBSubEyeColor -' -Me.TBSubEyeColor.BackColor = System.Drawing.Color.White -Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black -Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) -Me.TBSubEyeColor.Name = "TBSubEyeColor" -Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) -Me.TBSubEyeColor.TabIndex = 155 -Me.TBSubEyeColor.Text = "brown" -' -'TBSubHairColor -' -Me.TBSubHairColor.BackColor = System.Drawing.Color.White -Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black -Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) -Me.TBSubHairColor.Name = "TBSubHairColor" -Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) -Me.TBSubHairColor.TabIndex = 154 -Me.TBSubHairColor.Text = "brown" -' -'Label63 -' -Me.Label63.AutoSize = true -Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label63.ForeColor = System.Drawing.Color.Black -Me.Label63.Location = New System.Drawing.Point(113, 41) -Me.Label63.Name = "Label63" -Me.Label63.Size = New System.Drawing.Size(12, 13) -Me.Label63.TabIndex = 143 -Me.Label63.Text = "/" -Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLSubInches -' -Me.LBLSubInches.AutoSize = true -Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) -Me.LBLSubInches.Name = "LBLSubInches" -Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) -Me.LBLSubInches.TabIndex = 124 -Me.LBLSubInches.Text = "inches" -Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'subAgeNumBox -' -Me.subAgeNumBox.BackColor = System.Drawing.Color.White -Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black -Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) -Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) -Me.subAgeNumBox.Name = "subAgeNumBox" -Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) -Me.subAgeNumBox.TabIndex = 27 -Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) -' -'NBBirthdayMonth -' -Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White -Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black -Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) -Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) -Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBBirthdayMonth.Name = "NBBirthdayMonth" -Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) -Me.NBBirthdayMonth.TabIndex = 41 -Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'LBLSubCockSize -' -Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent -Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black -Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) -Me.LBLSubCockSize.Name = "LBLSubCockSize" -Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) -Me.LBLSubCockSize.TabIndex = 142 -Me.LBLSubCockSize.Text = "Cock Size:" -Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CockSizeNumBox -' -Me.CockSizeNumBox.BackColor = System.Drawing.Color.White -Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black -Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) -Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) -Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.CockSizeNumBox.Name = "CockSizeNumBox" -Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) -Me.CockSizeNumBox.TabIndex = 123 -Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) -' -'LBLSubEye -' -Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent -Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubEye.ForeColor = System.Drawing.Color.Black -Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) -Me.LBLSubEye.Name = "LBLSubEye" -Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) -Me.LBLSubEye.TabIndex = 141 -Me.LBLSubEye.Text = "Eye Color" -Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLSubHair -' -Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent -Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubHair.ForeColor = System.Drawing.Color.Black -Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) -Me.LBLSubHair.Name = "LBLSubHair" -Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) -Me.LBLSubHair.TabIndex = 140 -Me.LBLSubHair.Text = "Hair Color" -Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLSubBirthday -' -Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent -Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black -Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) -Me.LBLSubBirthday.Name = "LBLSubBirthday" -Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) -Me.LBLSubBirthday.TabIndex = 139 -Me.LBLSubBirthday.Text = "Birthday:" -Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLSubAge -' -Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent -Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubAge.ForeColor = System.Drawing.Color.Black -Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) -Me.LBLSubAge.Name = "LBLSubAge" -Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) -Me.LBLSubAge.TabIndex = 138 -Me.LBLSubAge.Text = "Age:" -Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label70 -' -Me.Label70.BackColor = System.Drawing.Color.Transparent -Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label70.ForeColor = System.Drawing.Color.Black -Me.Label70.Location = New System.Drawing.Point(7, 6) -Me.Label70.Name = "Label70" -Me.Label70.Size = New System.Drawing.Size(692, 21) -Me.Label70.TabIndex = 49 -Me.Label70.Text = "Sub Settings" -Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage16 -' -Me.TabPage16.BackColor = System.Drawing.Color.Silver -Me.TabPage16.Controls.Add(Me.Panel9) -Me.TabPage16.Location = New System.Drawing.Point(4, 22) -Me.TabPage16.Name = "TabPage16" -Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage16.Size = New System.Drawing.Size(720, 448) -Me.TabPage16.TabIndex = 14 -Me.TabPage16.Text = "Scripts" -' -'Panel9 -' -Me.Panel9.BackColor = System.Drawing.Color.LightGray -Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel9.Controls.Add(Me.BTNScriptAvailable) -Me.Panel9.Controls.Add(Me.BTNScriptNone) -Me.Panel9.Controls.Add(Me.BTNScriptAll) -Me.Panel9.Controls.Add(Me.BTNScriptOpen) -Me.Panel9.Controls.Add(Me.LBLScriptReq) -Me.Panel9.Controls.Add(Me.GroupBox31) -Me.Panel9.Controls.Add(Me.TCScripts) -Me.Panel9.Controls.Add(Me.GroupBox42) -Me.Panel9.Controls.Add(Me.PictureBox1) -Me.Panel9.Controls.Add(Me.GroupBox43) -Me.Panel9.Controls.Add(Me.Label104) -Me.Panel9.Location = New System.Drawing.Point(6, 6) -Me.Panel9.Name = "Panel9" -Me.Panel9.Size = New System.Drawing.Size(708, 437) -Me.Panel9.TabIndex = 94 -' -'BTNScriptAvailable -' -Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) -Me.BTNScriptAvailable.Name = "BTNScriptAvailable" -Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) -Me.BTNScriptAvailable.TabIndex = 160 -Me.BTNScriptAvailable.Text = "Select Available" -Me.BTNScriptAvailable.UseVisualStyleBackColor = true -' -'BTNScriptNone -' -Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) -Me.BTNScriptNone.Name = "BTNScriptNone" -Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) -Me.BTNScriptNone.TabIndex = 159 -Me.BTNScriptNone.Text = "Select None" -Me.BTNScriptNone.UseVisualStyleBackColor = true -' -'BTNScriptAll -' -Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) -Me.BTNScriptAll.Name = "BTNScriptAll" -Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) -Me.BTNScriptAll.TabIndex = 158 -Me.BTNScriptAll.Text = "Select All" -Me.BTNScriptAll.UseVisualStyleBackColor = true -' -'BTNScriptOpen -' -Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) -Me.BTNScriptOpen.Name = "BTNScriptOpen" -Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) -Me.BTNScriptOpen.TabIndex = 157 -Me.BTNScriptOpen.Text = "Open Script" -Me.BTNScriptOpen.UseVisualStyleBackColor = true -' -'LBLScriptReq -' -Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray -Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green -Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) -Me.LBLScriptReq.Name = "LBLScriptReq" -Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) -Me.LBLScriptReq.TabIndex = 156 -Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox31 -' -Me.GroupBox31.Controls.Add(Me.RTBScriptReq) -Me.GroupBox31.Location = New System.Drawing.Point(314, 169) -Me.GroupBox31.Name = "GroupBox31" -Me.GroupBox31.Size = New System.Drawing.Size(385, 110) -Me.GroupBox31.TabIndex = 155 -Me.GroupBox31.TabStop = false -Me.GroupBox31.Text = "Requirements" -' -'RTBScriptReq -' -Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) -Me.RTBScriptReq.Name = "RTBScriptReq" -Me.RTBScriptReq.ReadOnly = true -Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) -Me.RTBScriptReq.TabIndex = 0 -Me.RTBScriptReq.Text = "" -' -'TCScripts -' -Me.TCScripts.Controls.Add(Me.TabPage21) -Me.TCScripts.Controls.Add(Me.TabPage17) -Me.TCScripts.Controls.Add(Me.TabPage18) -Me.TCScripts.Controls.Add(Me.TabPage19) -Me.TCScripts.Location = New System.Drawing.Point(9, 31) -Me.TCScripts.Name = "TCScripts" -Me.TCScripts.SelectedIndex = 0 -Me.TCScripts.Size = New System.Drawing.Size(299, 248) -Me.TCScripts.TabIndex = 154 -' -'TabPage21 -' -Me.TabPage21.BackColor = System.Drawing.Color.Silver -Me.TabPage21.Controls.Add(Me.CLBStartList) -Me.TabPage21.Location = New System.Drawing.Point(4, 22) -Me.TabPage21.Name = "TabPage21" -Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage21.Size = New System.Drawing.Size(291, 222) -Me.TabPage21.TabIndex = 4 -Me.TabPage21.Text = "Start" -' -'CLBStartList -' -Me.CLBStartList.FormattingEnabled = true -Me.CLBStartList.Location = New System.Drawing.Point(4, 4) -Me.CLBStartList.Name = "CLBStartList" -Me.CLBStartList.Size = New System.Drawing.Size(283, 214) -Me.CLBStartList.Sorted = true -Me.CLBStartList.TabIndex = 155 -' -'TabPage17 -' -Me.TabPage17.BackColor = System.Drawing.Color.Silver -Me.TabPage17.Controls.Add(Me.CLBModuleList) -Me.TabPage17.Location = New System.Drawing.Point(4, 22) -Me.TabPage17.Name = "TabPage17" -Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage17.Size = New System.Drawing.Size(291, 222) -Me.TabPage17.TabIndex = 5 -Me.TabPage17.Text = "Modules" -' -'CLBModuleList -' -Me.CLBModuleList.FormattingEnabled = true -Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) -Me.CLBModuleList.Name = "CLBModuleList" -Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) -Me.CLBModuleList.Sorted = true -Me.CLBModuleList.TabIndex = 156 -' -'TabPage18 -' -Me.TabPage18.BackColor = System.Drawing.Color.Silver -Me.TabPage18.Controls.Add(Me.CLBLinkList) -Me.TabPage18.Location = New System.Drawing.Point(4, 22) -Me.TabPage18.Name = "TabPage18" -Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage18.Size = New System.Drawing.Size(291, 222) -Me.TabPage18.TabIndex = 6 -Me.TabPage18.Text = "Link" -' -'CLBLinkList -' -Me.CLBLinkList.FormattingEnabled = true -Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) -Me.CLBLinkList.Name = "CLBLinkList" -Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) -Me.CLBLinkList.Sorted = true -Me.CLBLinkList.TabIndex = 156 -' -'TabPage19 -' -Me.TabPage19.BackColor = System.Drawing.Color.Silver -Me.TabPage19.Controls.Add(Me.CLBEndList) -Me.TabPage19.Location = New System.Drawing.Point(4, 22) -Me.TabPage19.Name = "TabPage19" -Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage19.Size = New System.Drawing.Size(291, 222) -Me.TabPage19.TabIndex = 7 -Me.TabPage19.Text = "End" -' -'CLBEndList -' -Me.CLBEndList.FormattingEnabled = true -Me.CLBEndList.Location = New System.Drawing.Point(4, 4) -Me.CLBEndList.Name = "CLBEndList" -Me.CLBEndList.Size = New System.Drawing.Size(283, 214) -Me.CLBEndList.Sorted = true -Me.CLBEndList.TabIndex = 156 -' -'GroupBox42 -' -Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) -Me.GroupBox42.Location = New System.Drawing.Point(314, 53) -Me.GroupBox42.Name = "GroupBox42" -Me.GroupBox42.Size = New System.Drawing.Size(385, 110) -Me.GroupBox42.TabIndex = 153 -Me.GroupBox42.TabStop = false -Me.GroupBox42.Text = "Description" -' -'RTBScriptDesc -' -Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) -Me.RTBScriptDesc.Name = "RTBScriptDesc" -Me.RTBScriptDesc.ReadOnly = true -Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) -Me.RTBScriptDesc.TabIndex = 0 -Me.RTBScriptDesc.Text = "" -' -'PictureBox1 -' -Me.PictureBox1.BackColor = System.Drawing.Color.LightGray -Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox1.Location = New System.Drawing.Point(9, 6) -Me.PictureBox1.Name = "PictureBox1" -Me.PictureBox1.Size = New System.Drawing.Size(160, 19) -Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox1.TabIndex = 151 -Me.PictureBox1.TabStop = false -' -'GroupBox43 -' -Me.GroupBox43.BackColor = System.Drawing.Color.LightGray -Me.GroupBox43.Controls.Add(Me.Label98) -Me.GroupBox43.ForeColor = System.Drawing.Color.Black -Me.GroupBox43.Location = New System.Drawing.Point(7, 331) -Me.GroupBox43.Name = "GroupBox43" -Me.GroupBox43.Size = New System.Drawing.Size(692, 92) -Me.GroupBox43.TabIndex = 65 -Me.GroupBox43.TabStop = false -Me.GroupBox43.Text = "Description" -' -'Label98 -' -Me.Label98.BackColor = System.Drawing.Color.Transparent -Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label98.ForeColor = System.Drawing.Color.Black -Me.Label98.Location = New System.Drawing.Point(6, 16) -Me.Label98.Name = "Label98" -Me.Label98.Size = New System.Drawing.Size(680, 73) -Me.Label98.TabIndex = 62 -Me.Label98.Text = resources.GetString("Label98.Text") -Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label104 -' -Me.Label104.BackColor = System.Drawing.Color.Transparent -Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label104.ForeColor = System.Drawing.Color.Black -Me.Label104.Location = New System.Drawing.Point(7, 6) -Me.Label104.Name = "Label104" -Me.Label104.Size = New System.Drawing.Size(692, 21) -Me.Label104.TabIndex = 49 -Me.Label104.Text = "Script Selection" -Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage7 -' -Me.TabPage7.BackColor = System.Drawing.Color.Silver -Me.TabPage7.Controls.Add(Me.TabControl4) -Me.TabPage7.Location = New System.Drawing.Point(4, 22) -Me.TabPage7.Name = "TabPage7" -Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage7.Size = New System.Drawing.Size(720, 448) -Me.TabPage7.TabIndex = 11 -Me.TabPage7.Text = "Images" -' -'TabControl4 -' -Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) -Me.TabControl4.Controls.Add(Me.TpImagesGenre) -Me.TabControl4.Location = New System.Drawing.Point(6, 6) -Me.TabControl4.Name = "TabControl4" -Me.TabControl4.SelectedIndex = 0 -Me.TabControl4.Size = New System.Drawing.Size(708, 437) -Me.TabControl4.TabIndex = 154 -' -'TpImagesUrlFiles -' -Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray -Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) -Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) -Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) -Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) -Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) -Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) -Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" -Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) -Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) -Me.TpImagesUrlFiles.TabIndex = 0 -Me.TpImagesUrlFiles.Text = "URL Files" -' -'CBURLPreview -' -Me.CBURLPreview.AutoSize = true -Me.CBURLPreview.Checked = true -Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) -Me.CBURLPreview.Name = "CBURLPreview" -Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) -Me.CBURLPreview.TabIndex = 163 -Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" -Me.CBURLPreview.UseVisualStyleBackColor = true -' -'GroupBox66 -' -Me.GroupBox66.Controls.Add(Me.PBURLPreview) -Me.GroupBox66.Location = New System.Drawing.Point(344, 3) -Me.GroupBox66.Name = "GroupBox66" -Me.GroupBox66.Size = New System.Drawing.Size(350, 309) -Me.GroupBox66.TabIndex = 162 -Me.GroupBox66.TabStop = false -Me.GroupBox66.Text = "Example Preview" -' -'PBURLPreview -' -Me.PBURLPreview.BackColor = System.Drawing.Color.Black -Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) -Me.PBURLPreview.Name = "PBURLPreview" -Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) -Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.PBURLPreview.TabIndex = 0 -Me.PBURLPreview.TabStop = false -' -'BTNURLFilesAll -' -Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) -Me.BTNURLFilesAll.Name = "BTNURLFilesAll" -Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) -Me.BTNURLFilesAll.TabIndex = 160 -Me.BTNURLFilesAll.Text = "Select All" -Me.BTNURLFilesAll.UseVisualStyleBackColor = true -' -'BTNURLFilesNone -' -Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) -Me.BTNURLFilesNone.Name = "BTNURLFilesNone" -Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) -Me.BTNURLFilesNone.TabIndex = 161 -Me.BTNURLFilesNone.Text = "Select None" -Me.BTNURLFilesNone.UseVisualStyleBackColor = true -' -'URLFileList -' -Me.URLFileList.CheckOnClick = true -Me.URLFileList.FormattingEnabled = true -Me.URLFileList.Location = New System.Drawing.Point(6, 9) -Me.URLFileList.Name = "URLFileList" -Me.URLFileList.Size = New System.Drawing.Size(332, 394) -Me.URLFileList.Sorted = true -Me.URLFileList.TabIndex = 154 -' -'TpImagesGenre -' -Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray -Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) -Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) -Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) -Me.TpImagesGenre.Name = "TpImagesGenre" -Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) -Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) -Me.TpImagesGenre.TabIndex = 1 -Me.TpImagesGenre.Text = "Genre Images" -' -'GrbImageUrlFiles -' -Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) -Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) -Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" -Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) -Me.GrbImageUrlFiles.TabIndex = 1 -Me.GrbImageUrlFiles.TabStop = false -Me.GrbImageUrlFiles.Text = "URL Files" -' -'TlpImageUrls -' -Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray -Me.TlpImageUrls.ColumnCount = 3 -Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) -Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) -Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) -Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) -Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill -Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize -Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) -Me.TlpImageUrls.Name = "TlpImageUrls" -Me.TlpImageUrls.RowCount = 14 -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) -Me.TlpImageUrls.TabIndex = 0 -' -'BtnImageUrlButt -' -Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) -Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) -Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlButt.Name = "BtnImageUrlButt" -Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlButt.TabIndex = 38 -Me.BtnImageUrlButt.Text = "1" -Me.BtnImageUrlButt.UseVisualStyleBackColor = false -' -'BtnImageUrlBoobs -' -Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold) -Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) -Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" -Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlBoobs.TabIndex = 35 -Me.BtnImageUrlBoobs.Text = "1" -Me.BtnImageUrlBoobs.UseVisualStyleBackColor = false -' -'BtnImageUrlBlowjob -' -Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" -Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlBlowjob.TabIndex = 11 -Me.BtnImageUrlBlowjob.Text = "1" -Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = false -' -'BtnImageUrlCaptions -' -Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) -Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" -Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlCaptions.TabIndex = 29 -Me.BtnImageUrlCaptions.Text = "1" -Me.BtnImageUrlCaptions.UseVisualStyleBackColor = false -' -'BtnImageUrlHentai -' -Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) -Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" -Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlHentai.TabIndex = 20 -Me.BtnImageUrlHentai.Text = "1" -Me.BtnImageUrlHentai.UseVisualStyleBackColor = false -' -'BtnImageUrlGay -' -Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) -Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlGay.Name = "BtnImageUrlGay" -Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlGay.TabIndex = 23 -Me.BtnImageUrlGay.Text = "1" -Me.BtnImageUrlGay.UseVisualStyleBackColor = false -' -'BtnImageUrlGeneral -' -Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) -Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" -Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlGeneral.TabIndex = 32 -Me.BtnImageUrlGeneral.Text = "1" -Me.BtnImageUrlGeneral.UseVisualStyleBackColor = false -' -'BtnImageUrlHardcore -' -Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) -Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" -Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlHardcore.TabIndex = 1 -Me.BtnImageUrlHardcore.Text = "1" -Me.BtnImageUrlHardcore.UseVisualStyleBackColor = false -' -'BtnImageUrlLesbian -' -Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) -Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" -Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlLesbian.TabIndex = 8 -Me.BtnImageUrlLesbian.Text = "1" -Me.BtnImageUrlLesbian.UseVisualStyleBackColor = false -' -'BtnImageUrlLezdom -' -Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) -Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" -Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlLezdom.TabIndex = 17 -Me.BtnImageUrlLezdom.Text = "1" -Me.BtnImageUrlLezdom.UseVisualStyleBackColor = false -' -'BtnImageUrlMaledom -' -Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) -Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" -Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlMaledom.TabIndex = 26 -Me.BtnImageUrlMaledom.Text = "1" -Me.BtnImageUrlMaledom.UseVisualStyleBackColor = false -' -'BtnImageUrlFemdom -' -Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) -Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" -Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlFemdom.TabIndex = 14 -Me.BtnImageUrlFemdom.Text = "1" -Me.BtnImageUrlFemdom.UseVisualStyleBackColor = false -' -'BtnImageUrlSoftcore -' -Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) -Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" -Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) -Me.BtnImageUrlSoftcore.TabIndex = 5 -Me.BtnImageUrlSoftcore.Text = "1" -Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = false -' -'ChbImageUrlHardcore -' -Me.ChbImageUrlHardcore.AutoSize = true -Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled -Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) -Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" -Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHardcore.TabIndex = 0 -Me.ChbImageUrlHardcore.Text = "Hardcore" -Me.ChbImageUrlHardcore.UseVisualStyleBackColor = true -' -'ChbImageUrlButts -' -Me.ChbImageUrlButts.AutoSize = true -Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled -Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) -Me.ChbImageUrlButts.Name = "ChbImageUrlButts" -Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) -Me.ChbImageUrlButts.TabIndex = 37 -Me.ChbImageUrlButts.Text = "Butts" -Me.ChbImageUrlButts.UseVisualStyleBackColor = true -' -'ChbImageUrlMaledom -' -Me.ChbImageUrlMaledom.AutoSize = true -Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled -Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) -Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" -Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlMaledom.TabIndex = 25 -Me.ChbImageUrlMaledom.Text = "Maledom" -Me.ChbImageUrlMaledom.UseVisualStyleBackColor = true -' -'ChbImageUrlGay -' -Me.ChbImageUrlGay.AutoSize = true -Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled -Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) -Me.ChbImageUrlGay.Name = "ChbImageUrlGay" -Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGay.TabIndex = 22 -Me.ChbImageUrlGay.Text = "Gay" -Me.ChbImageUrlGay.UseVisualStyleBackColor = true -' -'ChbImageUrlSoftcore -' -Me.ChbImageUrlSoftcore.AutoSize = true -Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled -Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) -Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" -Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlSoftcore.TabIndex = 4 -Me.ChbImageUrlSoftcore.Text = "Softcore" -Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = true -' -'ChbImageUrlBoobs -' -Me.ChbImageUrlBoobs.AutoSize = true -Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled -Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) -Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" -Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBoobs.TabIndex = 34 -Me.ChbImageUrlBoobs.Text = "Boobs" -Me.ChbImageUrlBoobs.UseVisualStyleBackColor = true -' -'ChbImageUrlLesbian -' -Me.ChbImageUrlLesbian.AutoSize = true -Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled -Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) -Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" -Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLesbian.TabIndex = 7 -Me.ChbImageUrlLesbian.Text = "Lesbian" -Me.ChbImageUrlLesbian.UseVisualStyleBackColor = true -' -'ChbImageUrlBlowjob -' -Me.ChbImageUrlBlowjob.AutoSize = true -Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled -Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) -Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" -Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlBlowjob.TabIndex = 10 -Me.ChbImageUrlBlowjob.Text = "Blowjob" -Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = true -' -'ChbImageUrlCaptions -' -Me.ChbImageUrlCaptions.AutoSize = true -Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled -Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) -Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" -Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlCaptions.TabIndex = 28 -Me.ChbImageUrlCaptions.Text = "Captions" -Me.ChbImageUrlCaptions.UseVisualStyleBackColor = true -' -'ChbImageUrlGeneral -' -Me.ChbImageUrlGeneral.AutoSize = true -Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled -Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) -Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" -Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlGeneral.TabIndex = 31 -Me.ChbImageUrlGeneral.Text = "General" -Me.ChbImageUrlGeneral.UseVisualStyleBackColor = true -' -'ChbImageUrlFemdom -' -Me.ChbImageUrlFemdom.AutoSize = true -Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled -Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) -Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" -Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlFemdom.TabIndex = 13 -Me.ChbImageUrlFemdom.Text = "Femdom" -Me.ChbImageUrlFemdom.UseVisualStyleBackColor = true -' -'ChbImageUrlHentai -' -Me.ChbImageUrlHentai.AutoSize = true -Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled -Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) -Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" -Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlHentai.TabIndex = 19 -Me.ChbImageUrlHentai.Text = "Hentai" -Me.ChbImageUrlHentai.UseVisualStyleBackColor = true -' -'ChbImageUrlLezdom -' -Me.ChbImageUrlLezdom.AutoSize = true -Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled -Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black -Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) -Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" -Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) -Me.ChbImageUrlLezdom.TabIndex = 16 -Me.ChbImageUrlLezdom.Text = "Lezdom" -Me.ChbImageUrlLezdom.UseVisualStyleBackColor = true -' -'TxbImageUrlBlowjob -' -Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" -Me.TxbImageUrlBlowjob.ReadOnly = true -Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBlowjob.TabIndex = 12 -Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob -' -'TxbImageUrlSoftcore -' -Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) -Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" -Me.TxbImageUrlSoftcore.ReadOnly = true -Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlSoftcore.TabIndex = 6 -Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore -' -'TxbImageUrlLezdom -' -Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) -Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" -Me.TxbImageUrlLezdom.ReadOnly = true -Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLezdom.TabIndex = 18 -Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom -' -'TxbImageUrlFemdom -' -Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) -Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" -Me.TxbImageUrlFemdom.ReadOnly = true -Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlFemdom.TabIndex = 15 -Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom -' -'TxbImageUrlHardcore -' -Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) -Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" -Me.TxbImageUrlHardcore.ReadOnly = true -Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHardcore.TabIndex = 3 -Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore -' -'TxbImageUrlHentai -' -Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) -Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" -Me.TxbImageUrlHentai.ReadOnly = true -Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlHentai.TabIndex = 21 -Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai -' -'TxbImageUrlGay -' -Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) -Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.Name = "TxbImageUrlGay" -Me.TxbImageUrlGay.ReadOnly = true -Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGay.TabIndex = 24 -Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay -' -'TxbImageUrlLesbian -' -Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) -Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" -Me.TxbImageUrlLesbian.ReadOnly = true -Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlLesbian.TabIndex = 9 -Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian -' -'TxbImageUrlMaledom -' -Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) -Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" -Me.TxbImageUrlMaledom.ReadOnly = true -Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlMaledom.TabIndex = 27 -Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom -' -'TxbImageUrlCaptions -' -Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) -Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" -Me.TxbImageUrlCaptions.ReadOnly = true -Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlCaptions.TabIndex = 30 -Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions -' -'TxbImageUrlGeneral -' -Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) -Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" -Me.TxbImageUrlGeneral.ReadOnly = true -Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlGeneral.TabIndex = 33 -Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral -' -'TxbImageUrlBoobs -' -Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) -Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" -Me.TxbImageUrlBoobs.ReadOnly = true -Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlBoobs.TabIndex = 36 -Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs -' -'TxbImageUrlButts -' -Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray -Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) -Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.Name = "TxbImageUrlButts" -Me.TxbImageUrlButts.ReadOnly = true -Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) -Me.TxbImageUrlButts.TabIndex = 39 -Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt -' -'GbxImagesGenre -' -Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) -Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) -Me.GbxImagesGenre.Name = "GbxImagesGenre" -Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) -Me.GbxImagesGenre.TabIndex = 0 -Me.GbxImagesGenre.TabStop = false -Me.GbxImagesGenre.Text = "Local Images" -' -'TableLayoutPanel1 -' -Me.TableLayoutPanel1.ColumnCount = 4 -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) -Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) -Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) -Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) -Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) -Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) -Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) -Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) -Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) -Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) -Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) -Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) -Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) -Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) -Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) -Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) -Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) -Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill -Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize -Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) -Me.TableLayoutPanel1.Name = "TableLayoutPanel1" -Me.TableLayoutPanel1.RowCount = 13 -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) -Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20!)) -Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) -Me.TableLayoutPanel1.TabIndex = 0 -' -'BTNIHardcore -' -Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray -Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black -Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) -Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHardcore.Name = "BTNIHardcore" -Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) -Me.BTNIHardcore.TabIndex = 1 -Me.BTNIHardcore.Text = "1" -Me.BTNIHardcore.UseVisualStyleBackColor = false -' -'TbxIHardcore -' -Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray -Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black -Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) -Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.Name = "TbxIHardcore" -Me.TbxIHardcore.ReadOnly = true -Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) -Me.TbxIHardcore.TabIndex = 2 -Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore -' -'CBIHardcoreSD -' -Me.CBIHardcoreSD.AutoSize = true -Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD -Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) -Me.CBIHardcoreSD.Name = "CBIHardcoreSD" -Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHardcoreSD.TabIndex = 3 -Me.CBIHardcoreSD.UseVisualStyleBackColor = true -' -'CBIHardcore -' -Me.CBIHardcore.AutoSize = true -Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore -Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHardcore.ForeColor = System.Drawing.Color.Black -Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) -Me.CBIHardcore.Name = "CBIHardcore" -Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) -Me.CBIHardcore.TabIndex = 0 -Me.CBIHardcore.Text = "Hardcore" -Me.CBIHardcore.UseVisualStyleBackColor = true -' -'CBISoftcore -' -Me.CBISoftcore.AutoSize = true -Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore -Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcore.ForeColor = System.Drawing.Color.Black -Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) -Me.CBISoftcore.Name = "CBISoftcore" -Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) -Me.CBISoftcore.TabIndex = 4 -Me.CBISoftcore.Text = "Softcore" -Me.CBISoftcore.UseVisualStyleBackColor = true -' -'TbxISoftcore -' -Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray -Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black -Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) -Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.Name = "TbxISoftcore" -Me.TbxISoftcore.ReadOnly = true -Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) -Me.TbxISoftcore.TabIndex = 6 -Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore -' -'CBButtSubDir -' -Me.CBButtSubDir.AutoSize = true -Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir -Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black -Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) -Me.CBButtSubDir.Name = "CBButtSubDir" -Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) -Me.CBButtSubDir.TabIndex = 51 -Me.CBButtSubDir.UseVisualStyleBackColor = true -' -'CBISoftcoreSD -' -Me.CBISoftcoreSD.AutoSize = true -Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD -Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black -Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) -Me.CBISoftcoreSD.Name = "CBISoftcoreSD" -Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) -Me.CBISoftcoreSD.TabIndex = 7 -Me.CBISoftcoreSD.UseVisualStyleBackColor = true -' -'CBBoobSubDir -' -Me.CBBoobSubDir.AutoSize = true -Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir -Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black -Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) -Me.CBBoobSubDir.Name = "CBBoobSubDir" -Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) -Me.CBBoobSubDir.TabIndex = 47 -Me.CBBoobSubDir.UseVisualStyleBackColor = true -' -'CBILezdomSD -' -Me.CBILezdomSD.AutoSize = true -Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD -Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black -Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) -Me.CBILezdomSD.Name = "CBILezdomSD" -Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBILezdomSD.TabIndex = 23 -Me.CBILezdomSD.UseVisualStyleBackColor = true -' -'CBIGeneralSD -' -Me.CBIGeneralSD.AutoSize = true -Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD -Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black -Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) -Me.CBIGeneralSD.Name = "CBIGeneralSD" -Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) -Me.CBIGeneralSD.TabIndex = 43 -Me.CBIGeneralSD.UseVisualStyleBackColor = true -' -'CBILesbianSD -' -Me.CBILesbianSD.AutoSize = true -Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD -Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black -Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) -Me.CBILesbianSD.Name = "CBILesbianSD" -Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) -Me.CBILesbianSD.TabIndex = 11 -Me.CBILesbianSD.UseVisualStyleBackColor = true -' -'CBICaptionsSD -' -Me.CBICaptionsSD.AutoSize = true -Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD -Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black -Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) -Me.CBICaptionsSD.Name = "CBICaptionsSD" -Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) -Me.CBICaptionsSD.TabIndex = 39 -Me.CBICaptionsSD.UseVisualStyleBackColor = true -' -'CBILesbian -' -Me.CBILesbian.AutoSize = true -Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian -Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILesbian.ForeColor = System.Drawing.Color.Black -Me.CBILesbian.Location = New System.Drawing.Point(3, 61) -Me.CBILesbian.Name = "CBILesbian" -Me.CBILesbian.Size = New System.Drawing.Size(70, 23) -Me.CBILesbian.TabIndex = 8 -Me.CBILesbian.Text = "Lesbian" -Me.CBILesbian.UseVisualStyleBackColor = true -' -'CBIMaledomSD -' -Me.CBIMaledomSD.AutoSize = true -Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD -Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black -Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) -Me.CBIMaledomSD.Name = "CBIMaledomSD" -Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIMaledomSD.TabIndex = 35 -Me.CBIMaledomSD.UseVisualStyleBackColor = true -' -'CBIBlowjob -' -Me.CBIBlowjob.AutoSize = true -Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob -Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) -Me.CBIBlowjob.Name = "CBIBlowjob" -Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) -Me.CBIBlowjob.TabIndex = 12 -Me.CBIBlowjob.Text = "Blowjob" -Me.CBIBlowjob.UseVisualStyleBackColor = true -' -'CBIGaySD -' -Me.CBIGaySD.AutoSize = true -Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD -Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGaySD.ForeColor = System.Drawing.Color.Black -Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) -Me.CBIGaySD.Name = "CBIGaySD" -Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) -Me.CBIGaySD.TabIndex = 31 -Me.CBIGaySD.UseVisualStyleBackColor = true -' -'CBIHentaiSD -' -Me.CBIHentaiSD.AutoSize = true -Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD -Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black -Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) -Me.CBIHentaiSD.Name = "CBIHentaiSD" -Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) -Me.CBIHentaiSD.TabIndex = 27 -Me.CBIHentaiSD.UseVisualStyleBackColor = true -' -'CBIBlowjobSD -' -Me.CBIBlowjobSD.AutoSize = true -Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD -Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black -Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) -Me.CBIBlowjobSD.Name = "CBIBlowjobSD" -Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) -Me.CBIBlowjobSD.TabIndex = 15 -Me.CBIBlowjobSD.UseVisualStyleBackColor = true -' -'CBIFemdomSD -' -Me.CBIFemdomSD.AutoSize = true -Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD -Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black -Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) -Me.CBIFemdomSD.Name = "CBIFemdomSD" -Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) -Me.CBIFemdomSD.TabIndex = 19 -Me.CBIFemdomSD.UseVisualStyleBackColor = true -' -'TbxIButts -' -Me.TbxIButts.BackColor = System.Drawing.Color.LightGray -Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIButts.ForeColor = System.Drawing.Color.Black -Me.TbxIButts.Location = New System.Drawing.Point(115, 353) -Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIButts.Name = "TbxIButts" -Me.TbxIButts.ReadOnly = true -Me.TbxIButts.Size = New System.Drawing.Size(217, 17) -Me.TbxIButts.TabIndex = 50 -Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath -' -'CBIFemdom -' -Me.CBIFemdom.AutoSize = true -Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom -Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIFemdom.ForeColor = System.Drawing.Color.Black -Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) -Me.CBIFemdom.Name = "CBIFemdom" -Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) -Me.CBIFemdom.TabIndex = 16 -Me.CBIFemdom.Text = "Femdom" -Me.CBIFemdom.UseVisualStyleBackColor = true -' -'TbxILesbian -' -Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray -Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILesbian.ForeColor = System.Drawing.Color.Black -Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) -Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILesbian.Name = "TbxILesbian" -Me.TbxILesbian.ReadOnly = true -Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) -Me.TbxILesbian.TabIndex = 10 -Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian -' -'BTNISoftcore -' -Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray -Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black -Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) -Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNISoftcore.Name = "BTNISoftcore" -Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) -Me.BTNISoftcore.TabIndex = 5 -Me.BTNISoftcore.Text = "1" -Me.BTNISoftcore.UseVisualStyleBackColor = false -' -'CBILezdom -' -Me.CBILezdom.AutoSize = true -Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom -Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBILezdom.ForeColor = System.Drawing.Color.Black -Me.CBILezdom.Location = New System.Drawing.Point(3, 148) -Me.CBILezdom.Name = "CBILezdom" -Me.CBILezdom.Size = New System.Drawing.Size(70, 23) -Me.CBILezdom.TabIndex = 20 -Me.CBILezdom.Text = "Lezdom" -Me.CBILezdom.UseVisualStyleBackColor = true -' -'TbxIBoobs -' -Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray -Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black -Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) -Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.Name = "TbxIBoobs" -Me.TbxIBoobs.ReadOnly = true -Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) -Me.TbxIBoobs.TabIndex = 46 -Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath -' -'CBIHentai -' -Me.CBIHentai.AutoSize = true -Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai -Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIHentai.ForeColor = System.Drawing.Color.Black -Me.CBIHentai.Location = New System.Drawing.Point(3, 177) -Me.CBIHentai.Name = "CBIHentai" -Me.CBIHentai.Size = New System.Drawing.Size(70, 23) -Me.CBIHentai.TabIndex = 24 -Me.CBIHentai.Text = "Hentai" -Me.CBIHentai.UseVisualStyleBackColor = true -' -'TbxIBlowjob -' -Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black -Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) -Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.Name = "TbxIBlowjob" -Me.TbxIBlowjob.ReadOnly = true -Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) -Me.TbxIBlowjob.TabIndex = 14 -Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob -' -'CBIGay -' -Me.CBIGay.AutoSize = true -Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay -Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGay.ForeColor = System.Drawing.Color.Black -Me.CBIGay.Location = New System.Drawing.Point(3, 206) -Me.CBIGay.Name = "CBIGay" -Me.CBIGay.Size = New System.Drawing.Size(70, 23) -Me.CBIGay.TabIndex = 28 -Me.CBIGay.Text = "Gay" -Me.CBIGay.UseVisualStyleBackColor = true -' -'TbxIGeneral -' -Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray -Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black -Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) -Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.Name = "TbxIGeneral" -Me.TbxIGeneral.ReadOnly = true -Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) -Me.TbxIGeneral.TabIndex = 42 -Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral -' -'CBIMaledom -' -Me.CBIMaledom.AutoSize = true -Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom -Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIMaledom.ForeColor = System.Drawing.Color.Black -Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) -Me.CBIMaledom.Name = "CBIMaledom" -Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) -Me.CBIMaledom.TabIndex = 32 -Me.CBIMaledom.Text = "Maledom" -Me.CBIMaledom.UseVisualStyleBackColor = true -' -'TbxIFemdom -' -Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray -Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black -Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) -Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.Name = "TbxIFemdom" -Me.TbxIFemdom.ReadOnly = true -Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) -Me.TbxIFemdom.TabIndex = 18 -Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom -' -'BTNILesbian -' -Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILesbian.ForeColor = System.Drawing.Color.Black -Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) -Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILesbian.Name = "BTNILesbian" -Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNILesbian.TabIndex = 9 -Me.BTNILesbian.Text = "1" -Me.BTNILesbian.UseVisualStyleBackColor = false -' -'TbxICaptions -' -Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray -Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxICaptions.ForeColor = System.Drawing.Color.Black -Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) -Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxICaptions.Name = "TbxICaptions" -Me.TbxICaptions.ReadOnly = true -Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) -Me.TbxICaptions.TabIndex = 38 -Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions -' -'CBICaptions -' -Me.CBICaptions.AutoSize = true -Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions -Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBICaptions.ForeColor = System.Drawing.Color.Black -Me.CBICaptions.Location = New System.Drawing.Point(3, 264) -Me.CBICaptions.Name = "CBICaptions" -Me.CBICaptions.Size = New System.Drawing.Size(70, 23) -Me.CBICaptions.TabIndex = 36 -Me.CBICaptions.Text = "Captions" -Me.CBICaptions.UseVisualStyleBackColor = true -' -'TbxILezdom -' -Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray -Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxILezdom.ForeColor = System.Drawing.Color.Black -Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) -Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxILezdom.Name = "TbxILezdom" -Me.TbxILezdom.ReadOnly = true -Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) -Me.TbxILezdom.TabIndex = 22 -Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom -' -'TbxIMaledom -' -Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray -Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black -Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) -Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.Name = "TbxIMaledom" -Me.TbxIMaledom.ReadOnly = true -Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) -Me.TbxIMaledom.TabIndex = 34 -Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom -' -'BTNButtPath -' -Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray -Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNButtPath.ForeColor = System.Drawing.Color.Black -Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) -Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNButtPath.Name = "BTNButtPath" -Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) -Me.BTNButtPath.TabIndex = 49 -Me.BTNButtPath.Text = "1" -Me.BTNButtPath.UseVisualStyleBackColor = false -' -'TbxIHentai -' -Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray -Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIHentai.ForeColor = System.Drawing.Color.Black -Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) -Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIHentai.Name = "TbxIHentai" -Me.TbxIHentai.ReadOnly = true -Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) -Me.TbxIHentai.TabIndex = 26 -Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai -' -'CBIGeneral -' -Me.CBIGeneral.AutoSize = true -Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral -Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIGeneral.ForeColor = System.Drawing.Color.Black -Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) -Me.CBIGeneral.Name = "CBIGeneral" -Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) -Me.CBIGeneral.TabIndex = 40 -Me.CBIGeneral.Text = "General" -Me.CBIGeneral.UseVisualStyleBackColor = true -' -'TbxIGay -' -Me.TbxIGay.BackColor = System.Drawing.Color.LightGray -Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxIGay.ForeColor = System.Drawing.Color.Black -Me.TbxIGay.Location = New System.Drawing.Point(115, 208) -Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) -Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) -Me.TbxIGay.Name = "TbxIGay" -Me.TbxIGay.ReadOnly = true -Me.TbxIGay.Size = New System.Drawing.Size(217, 17) -Me.TbxIGay.TabIndex = 30 -Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay -' -'CBIBoobs -' -Me.CBIBoobs.AutoSize = true -Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs -Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIBoobs.ForeColor = System.Drawing.Color.Black -Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) -Me.CBIBoobs.Name = "CBIBoobs" -Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) -Me.CBIBoobs.TabIndex = 44 -Me.CBIBoobs.Text = "Boobs" -Me.CBIBoobs.UseVisualStyleBackColor = true -' -'CBIButts -' -Me.CBIButts.AutoSize = true -Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts -Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill -Me.CBIButts.ForeColor = System.Drawing.Color.Black -Me.CBIButts.Location = New System.Drawing.Point(3, 351) -Me.CBIButts.Name = "CBIButts" -Me.CBIButts.Size = New System.Drawing.Size(70, 27) -Me.CBIButts.TabIndex = 48 -Me.CBIButts.Text = "Butts" -Me.CBIButts.UseVisualStyleBackColor = true -' -'BTNIBlowjob -' -Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) -Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIBlowjob.Name = "BTNIBlowjob" -Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNIBlowjob.TabIndex = 13 -Me.BTNIBlowjob.Text = "1" -Me.BTNIBlowjob.UseVisualStyleBackColor = false -' -'BTNIFemdom -' -Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray -Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black -Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) -Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIFemdom.Name = "BTNIFemdom" -Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) -Me.BTNIFemdom.TabIndex = 17 -Me.BTNIFemdom.Text = "1" -Me.BTNIFemdom.UseVisualStyleBackColor = false -' -'BTNBoobPath -' -Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray -Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black -Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) -Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNBoobPath.Name = "BTNBoobPath" -Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) -Me.BTNBoobPath.TabIndex = 45 -Me.BTNBoobPath.Text = "1" -Me.BTNBoobPath.UseVisualStyleBackColor = false -' -'BTNILezdom -' -Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray -Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNILezdom.ForeColor = System.Drawing.Color.Black -Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) -Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNILezdom.Name = "BTNILezdom" -Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) -Me.BTNILezdom.TabIndex = 21 -Me.BTNILezdom.Text = "1" -Me.BTNILezdom.UseVisualStyleBackColor = false -' -'BTNIHentai -' -Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray -Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIHentai.ForeColor = System.Drawing.Color.Black -Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) -Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIHentai.Name = "BTNIHentai" -Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) -Me.BTNIHentai.TabIndex = 25 -Me.BTNIHentai.Text = "1" -Me.BTNIHentai.UseVisualStyleBackColor = false -' -'BTNIGay -' -Me.BTNIGay.BackColor = System.Drawing.Color.LightGray -Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGay.ForeColor = System.Drawing.Color.Black -Me.BTNIGay.Location = New System.Drawing.Point(76, 203) -Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGay.Name = "BTNIGay" -Me.BTNIGay.Size = New System.Drawing.Size(34, 28) -Me.BTNIGay.TabIndex = 29 -Me.BTNIGay.Text = "1" -Me.BTNIGay.UseVisualStyleBackColor = false -' -'BTNIMaledom -' -Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray -Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black -Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) -Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIMaledom.Name = "BTNIMaledom" -Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) -Me.BTNIMaledom.TabIndex = 33 -Me.BTNIMaledom.Text = "1" -Me.BTNIMaledom.UseVisualStyleBackColor = false -' -'BTNICaptions -' -Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray -Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNICaptions.ForeColor = System.Drawing.Color.Black -Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) -Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNICaptions.Name = "BTNICaptions" -Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) -Me.BTNICaptions.TabIndex = 37 -Me.BTNICaptions.Text = "1" -Me.BTNICaptions.UseVisualStyleBackColor = false -' -'BTNIGeneral -' -Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) -Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) -Me.BTNIGeneral.Name = "BTNIGeneral" -Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNIGeneral.TabIndex = 41 -Me.BTNIGeneral.Text = "1" -Me.BTNIGeneral.UseVisualStyleBackColor = false -' -'TabPage33 -' -Me.TabPage33.BackColor = System.Drawing.Color.Silver -Me.TabPage33.Controls.Add(Me.TabControl5) -Me.TabPage33.Location = New System.Drawing.Point(4, 22) -Me.TabPage33.Name = "TabPage33" -Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage33.Size = New System.Drawing.Size(720, 448) -Me.TabPage33.TabIndex = 21 -Me.TabPage33.Text = "Tagging" -' -'TabControl5 -' -Me.TabControl5.Controls.Add(Me.TabPage34) -Me.TabControl5.Controls.Add(Me.TabPage35) -Me.TabControl5.Location = New System.Drawing.Point(6, 6) -Me.TabControl5.Name = "TabControl5" -Me.TabControl5.SelectedIndex = 0 -Me.TabControl5.Size = New System.Drawing.Size(708, 437) -Me.TabControl5.TabIndex = 0 -' -'TabPage34 -' -Me.TabPage34.BackColor = System.Drawing.Color.LightGray -Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) -Me.TabPage34.Controls.Add(Me.CBTagAllFours) -Me.TabPage34.Controls.Add(Me.CBTagGlaring) -Me.TabPage34.Controls.Add(Me.CBTagSmiling) -Me.TabPage34.Controls.Add(Me.TBTagDir) -Me.TabPage34.Controls.Add(Me.CBTagPiercing) -Me.TabPage34.Controls.Add(Me.CBTagLegs) -Me.TabPage34.Controls.Add(Me.TBTagFurniture) -Me.TabPage34.Controls.Add(Me.CBTagFurniture) -Me.TabPage34.Controls.Add(Me.TBTagSexToy) -Me.TabPage34.Controls.Add(Me.CBTagSexToy) -Me.TabPage34.Controls.Add(Me.TBTagTattoo) -Me.TabPage34.Controls.Add(Me.CBTagTattoo) -Me.TabPage34.Controls.Add(Me.TBTagUnderwear) -Me.TabPage34.Controls.Add(Me.CBTagUnderwear) -Me.TabPage34.Controls.Add(Me.TBTagGarment) -Me.TabPage34.Controls.Add(Me.CBTagGarment) -Me.TabPage34.Controls.Add(Me.Label72) -Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) -Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) -Me.TabPage34.Controls.Add(Me.CBTagCloseUp) -Me.TabPage34.Controls.Add(Me.CBTagNaked) -Me.TabPage34.Controls.Add(Me.CBTagSideView) -Me.TabPage34.Controls.Add(Me.BTNTagPrevious) -Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) -Me.TabPage34.Controls.Add(Me.BTNTagNext) -Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) -Me.TabPage34.Controls.Add(Me.LBLTagCount) -Me.TabPage34.Controls.Add(Me.CBTagSucking) -Me.TabPage34.Controls.Add(Me.CBTagMasturbating) -Me.TabPage34.Controls.Add(Me.CBTagFeet) -Me.TabPage34.Controls.Add(Me.CBTagBoobs) -Me.TabPage34.Controls.Add(Me.CBTagAss) -Me.TabPage34.Controls.Add(Me.CBTagPussy) -Me.TabPage34.Controls.Add(Me.BTNTagSave) -Me.TabPage34.Controls.Add(Me.BTNTagDir) -Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) -Me.TabPage34.Controls.Add(Me.CBTagFace) -Me.TabPage34.Location = New System.Drawing.Point(4, 22) -Me.TabPage34.Name = "TabPage34" -Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage34.Size = New System.Drawing.Size(700, 411) -Me.TabPage34.TabIndex = 0 -Me.TabPage34.Text = "Domme Tags" -' -'CBTagSeeThrough -' -Me.CBTagSeeThrough.AutoSize = true -Me.CBTagSeeThrough.Enabled = false -Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) -Me.CBTagSeeThrough.Name = "CBTagSeeThrough" -Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) -Me.CBTagSeeThrough.TabIndex = 226 -Me.CBTagSeeThrough.Text = "See Through" -Me.CBTagSeeThrough.UseVisualStyleBackColor = true -' -'CBTagAllFours -' -Me.CBTagAllFours.AutoSize = true -Me.CBTagAllFours.Enabled = false -Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black -Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) -Me.CBTagAllFours.Name = "CBTagAllFours" -Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) -Me.CBTagAllFours.TabIndex = 225 -Me.CBTagAllFours.Text = "All Fours" -Me.CBTagAllFours.UseVisualStyleBackColor = true -' -'CBTagGlaring -' -Me.CBTagGlaring.AutoSize = true -Me.CBTagGlaring.Enabled = false -Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black -Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) -Me.CBTagGlaring.Name = "CBTagGlaring" -Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) -Me.CBTagGlaring.TabIndex = 224 -Me.CBTagGlaring.Text = "Glaring" -Me.CBTagGlaring.UseVisualStyleBackColor = true -' -'CBTagSmiling -' -Me.CBTagSmiling.AutoSize = true -Me.CBTagSmiling.Enabled = false -Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black -Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) -Me.CBTagSmiling.Name = "CBTagSmiling" -Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) -Me.CBTagSmiling.TabIndex = 223 -Me.CBTagSmiling.Text = "Smiling" -Me.CBTagSmiling.UseVisualStyleBackColor = true -' -'TBTagDir -' -Me.TBTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBTagDir.Name = "TBTagDir" -Me.TBTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBTagDir.TabIndex = 222 -Me.TBTagDir.Text = "Enter Image Directory" -' -'CBTagPiercing -' -Me.CBTagPiercing.AutoSize = true -Me.CBTagPiercing.Enabled = false -Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black -Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) -Me.CBTagPiercing.Name = "CBTagPiercing" -Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) -Me.CBTagPiercing.TabIndex = 221 -Me.CBTagPiercing.Text = "Piercing" -Me.CBTagPiercing.UseVisualStyleBackColor = true -' -'CBTagLegs -' -Me.CBTagLegs.AutoSize = true -Me.CBTagLegs.Enabled = false -Me.CBTagLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) -Me.CBTagLegs.Name = "CBTagLegs" -Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagLegs.TabIndex = 220 -Me.CBTagLegs.Text = "Legs" -Me.CBTagLegs.UseVisualStyleBackColor = true -' -'TBTagFurniture -' -Me.TBTagFurniture.Enabled = false -Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) -Me.TBTagFurniture.Name = "TBTagFurniture" -Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) -Me.TBTagFurniture.TabIndex = 219 -' -'CBTagFurniture -' -Me.CBTagFurniture.AutoSize = true -Me.CBTagFurniture.Enabled = false -Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black -Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) -Me.CBTagFurniture.Name = "CBTagFurniture" -Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) -Me.CBTagFurniture.TabIndex = 218 -Me.CBTagFurniture.Text = "Furniture" -Me.CBTagFurniture.UseVisualStyleBackColor = true -' -'TBTagSexToy -' -Me.TBTagSexToy.Enabled = false -Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) -Me.TBTagSexToy.Name = "TBTagSexToy" -Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) -Me.TBTagSexToy.TabIndex = 217 -' -'CBTagSexToy -' -Me.CBTagSexToy.AutoSize = true -Me.CBTagSexToy.Enabled = false -Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black -Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) -Me.CBTagSexToy.Name = "CBTagSexToy" -Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) -Me.CBTagSexToy.TabIndex = 216 -Me.CBTagSexToy.Text = "Sex Toy" -Me.CBTagSexToy.UseVisualStyleBackColor = true -' -'TBTagTattoo -' -Me.TBTagTattoo.Enabled = false -Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) -Me.TBTagTattoo.Name = "TBTagTattoo" -Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) -Me.TBTagTattoo.TabIndex = 215 -' -'CBTagTattoo -' -Me.CBTagTattoo.AutoSize = true -Me.CBTagTattoo.Enabled = false -Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) -Me.CBTagTattoo.Name = "CBTagTattoo" -Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) -Me.CBTagTattoo.TabIndex = 214 -Me.CBTagTattoo.Text = "Tattoo" -Me.CBTagTattoo.UseVisualStyleBackColor = true -' -'TBTagUnderwear -' -Me.TBTagUnderwear.Enabled = false -Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) -Me.TBTagUnderwear.Name = "TBTagUnderwear" -Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) -Me.TBTagUnderwear.TabIndex = 213 -' -'CBTagUnderwear -' -Me.CBTagUnderwear.AutoSize = true -Me.CBTagUnderwear.Enabled = false -Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black -Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) -Me.CBTagUnderwear.Name = "CBTagUnderwear" -Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) -Me.CBTagUnderwear.TabIndex = 212 -Me.CBTagUnderwear.Text = "Underwear" -Me.CBTagUnderwear.UseVisualStyleBackColor = true -' -'TBTagGarment -' -Me.TBTagGarment.Enabled = false -Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) -Me.TBTagGarment.Name = "TBTagGarment" -Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) -Me.TBTagGarment.TabIndex = 211 -' -'CBTagGarment -' -Me.CBTagGarment.AutoSize = true -Me.CBTagGarment.Enabled = false -Me.CBTagGarment.ForeColor = System.Drawing.Color.Black -Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) -Me.CBTagGarment.Name = "CBTagGarment" -Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) -Me.CBTagGarment.TabIndex = 210 -Me.CBTagGarment.Text = "Garment" -Me.CBTagGarment.UseVisualStyleBackColor = true -' -'Label72 -' -Me.Label72.BackColor = System.Drawing.Color.Transparent -Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label72.ForeColor = System.Drawing.Color.Black -Me.Label72.Location = New System.Drawing.Point(5, 368) -Me.Label72.Name = "Label72" -Me.Label72.Size = New System.Drawing.Size(451, 35) -Me.Label72.TabIndex = 189 -Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ"& _ - "ayed, and enter one-word tag descriptions in the text fields when appropriate. ("& _ - "e.g. Garment: dress)" -Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBTagHandsCovering -' -Me.CBTagHandsCovering.AutoSize = true -Me.CBTagHandsCovering.Enabled = false -Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) -Me.CBTagHandsCovering.Name = "CBTagHandsCovering" -Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) -Me.CBTagHandsCovering.TabIndex = 209 -Me.CBTagHandsCovering.Text = "Hands Covering" -Me.CBTagHandsCovering.UseVisualStyleBackColor = true -' -'CBTagGarmentCovering -' -Me.CBTagGarmentCovering.AutoSize = true -Me.CBTagGarmentCovering.Enabled = false -Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) -Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" -Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) -Me.CBTagGarmentCovering.TabIndex = 208 -Me.CBTagGarmentCovering.Text = "Garment Covering" -Me.CBTagGarmentCovering.UseVisualStyleBackColor = true -' -'CBTagCloseUp -' -Me.CBTagCloseUp.AutoSize = true -Me.CBTagCloseUp.Enabled = false -Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black -Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) -Me.CBTagCloseUp.Name = "CBTagCloseUp" -Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) -Me.CBTagCloseUp.TabIndex = 205 -Me.CBTagCloseUp.Text = "Close Up" -Me.CBTagCloseUp.UseVisualStyleBackColor = true -' -'CBTagNaked -' -Me.CBTagNaked.AutoSize = true -Me.CBTagNaked.Enabled = false -Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) -Me.CBTagNaked.Name = "CBTagNaked" -Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) -Me.CBTagNaked.TabIndex = 199 -Me.CBTagNaked.Text = "Naked" -Me.CBTagNaked.UseVisualStyleBackColor = true -' -'CBTagSideView -' -Me.CBTagSideView.AutoSize = true -Me.CBTagSideView.Enabled = false -Me.CBTagSideView.ForeColor = System.Drawing.Color.Black -Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) -Me.CBTagSideView.Name = "CBTagSideView" -Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) -Me.CBTagSideView.TabIndex = 204 -Me.CBTagSideView.Text = "Side View" -Me.CBTagSideView.UseVisualStyleBackColor = true -' -'BTNTagPrevious -' -Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNTagPrevious.Enabled = false -Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNTagPrevious.Name = "BTNTagPrevious" -Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNTagPrevious.TabIndex = 207 -Me.BTNTagPrevious.Text = "<<" -Me.BTNTagPrevious.UseVisualStyleBackColor = false -' -'CBTagHalfDressed -' -Me.CBTagHalfDressed.AutoSize = true -Me.CBTagHalfDressed.Enabled = false -Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) -Me.CBTagHalfDressed.Name = "CBTagHalfDressed" -Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) -Me.CBTagHalfDressed.TabIndex = 198 -Me.CBTagHalfDressed.Text = "Half Dressed" -Me.CBTagHalfDressed.UseVisualStyleBackColor = true -' -'BTNTagNext -' -Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNTagNext.Enabled = false -Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNTagNext.Name = "BTNTagNext" -Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNTagNext.TabIndex = 206 -Me.BTNTagNext.Text = ">>" -Me.BTNTagNext.UseVisualStyleBackColor = false -' -'CBTagFullyDressed -' -Me.CBTagFullyDressed.AutoSize = true -Me.CBTagFullyDressed.Enabled = false -Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) -Me.CBTagFullyDressed.Name = "CBTagFullyDressed" -Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) -Me.CBTagFullyDressed.TabIndex = 197 -Me.CBTagFullyDressed.Text = "Fully Dressed" -Me.CBTagFullyDressed.UseVisualStyleBackColor = true -' -'LBLTagCount -' -Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTagCount.Enabled = false -Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLTagCount.Name = "LBLTagCount" -Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLTagCount.TabIndex = 203 -Me.LBLTagCount.Text = "0/0" -Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBTagSucking -' -Me.CBTagSucking.AutoSize = true -Me.CBTagSucking.Enabled = false -Me.CBTagSucking.ForeColor = System.Drawing.Color.Black -Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) -Me.CBTagSucking.Name = "CBTagSucking" -Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) -Me.CBTagSucking.TabIndex = 202 -Me.CBTagSucking.Text = "Sucking" -Me.CBTagSucking.UseVisualStyleBackColor = true -' -'CBTagMasturbating -' -Me.CBTagMasturbating.AutoSize = true -Me.CBTagMasturbating.Enabled = false -Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) -Me.CBTagMasturbating.Name = "CBTagMasturbating" -Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbating.TabIndex = 201 -Me.CBTagMasturbating.Text = "Masturbating" -Me.CBTagMasturbating.UseVisualStyleBackColor = true -' -'CBTagFeet -' -Me.CBTagFeet.AutoSize = true -Me.CBTagFeet.Enabled = false -Me.CBTagFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) -Me.CBTagFeet.Name = "CBTagFeet" -Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagFeet.TabIndex = 200 -Me.CBTagFeet.Text = "Feet" -Me.CBTagFeet.UseVisualStyleBackColor = true -' -'CBTagBoobs -' -Me.CBTagBoobs.AutoSize = true -Me.CBTagBoobs.Enabled = false -Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black -Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) -Me.CBTagBoobs.Name = "CBTagBoobs" -Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) -Me.CBTagBoobs.TabIndex = 196 -Me.CBTagBoobs.Text = "Boobs" -Me.CBTagBoobs.UseVisualStyleBackColor = true -' -'CBTagAss -' -Me.CBTagAss.AutoSize = true -Me.CBTagAss.Enabled = false -Me.CBTagAss.ForeColor = System.Drawing.Color.Black -Me.CBTagAss.Location = New System.Drawing.Point(484, 97) -Me.CBTagAss.Name = "CBTagAss" -Me.CBTagAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagAss.TabIndex = 195 -Me.CBTagAss.Text = "Ass" -Me.CBTagAss.UseVisualStyleBackColor = true -' -'CBTagPussy -' -Me.CBTagPussy.AutoSize = true -Me.CBTagPussy.Enabled = false -Me.CBTagPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) -Me.CBTagPussy.Name = "CBTagPussy" -Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagPussy.TabIndex = 194 -Me.CBTagPussy.Text = "Pussy" -Me.CBTagPussy.UseVisualStyleBackColor = true -' -'BTNTagSave -' -Me.BTNTagSave.Enabled = false -Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNTagSave.Name = "BTNTagSave" -Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNTagSave.TabIndex = 193 -Me.BTNTagSave.Text = "Finished" -Me.BTNTagSave.UseVisualStyleBackColor = true -' -'BTNTagDir -' -Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNTagDir.Name = "BTNTagDir" -Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNTagDir.TabIndex = 192 -Me.BTNTagDir.Text = "1" -Me.BTNTagDir.UseVisualStyleBackColor = true -' -'ImageTagPictureBox -' -Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black -Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) -Me.ImageTagPictureBox.Name = "ImageTagPictureBox" -Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) -Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.ImageTagPictureBox.TabIndex = 191 -Me.ImageTagPictureBox.TabStop = false -' -'CBTagFace -' -Me.CBTagFace.AutoSize = true -Me.CBTagFace.Enabled = false -Me.CBTagFace.ForeColor = System.Drawing.Color.Black -Me.CBTagFace.Location = New System.Drawing.Point(484, 37) -Me.CBTagFace.Name = "CBTagFace" -Me.CBTagFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagFace.TabIndex = 190 -Me.CBTagFace.Text = "Face" -Me.CBTagFace.UseVisualStyleBackColor = true -' -'TabPage35 -' -Me.TabPage35.BackColor = System.Drawing.Color.LightGray -Me.TabPage35.Controls.Add(Me.GroupBox55) -Me.TabPage35.Controls.Add(Me.GroupBox53) -Me.TabPage35.Controls.Add(Me.GroupBox49) -Me.TabPage35.Controls.Add(Me.GroupBox46) -Me.TabPage35.Controls.Add(Me.GroupBox54) -Me.TabPage35.Controls.Add(Me.GroupBox51) -Me.TabPage35.Controls.Add(Me.GroupBox50) -Me.TabPage35.Controls.Add(Me.GroupBox48) -Me.TabPage35.Controls.Add(Me.TBLocalTagDir) -Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) -Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) -Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) -Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) -Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) -Me.TabPage35.Location = New System.Drawing.Point(4, 22) -Me.TabPage35.Name = "TabPage35" -Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage35.Size = New System.Drawing.Size(700, 411) -Me.TabPage35.TabIndex = 1 -Me.TabPage35.Text = "Local Tags" -' -'GroupBox55 -' -Me.GroupBox55.Controls.Add(Me.CBTagNurse) -Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) -Me.GroupBox55.Controls.Add(Me.CBTagMaid) -Me.GroupBox55.Controls.Add(Me.CBTagTeacher) -Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) -Me.GroupBox55.Location = New System.Drawing.Point(341, 277) -Me.GroupBox55.Name = "GroupBox55" -Me.GroupBox55.Size = New System.Drawing.Size(103, 118) -Me.GroupBox55.TabIndex = 241 -Me.GroupBox55.TabStop = false -Me.GroupBox55.Text = "Outfit" -' -'CBTagNurse -' -Me.CBTagNurse.AutoSize = true -Me.CBTagNurse.Enabled = false -Me.CBTagNurse.ForeColor = System.Drawing.Color.Black -Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) -Me.CBTagNurse.Name = "CBTagNurse" -Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) -Me.CBTagNurse.TabIndex = 203 -Me.CBTagNurse.Text = "Nurse" -Me.CBTagNurse.UseVisualStyleBackColor = true -' -'CBTagSchoolgirl -' -Me.CBTagSchoolgirl.AutoSize = true -Me.CBTagSchoolgirl.Enabled = false -Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) -Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" -Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) -Me.CBTagSchoolgirl.TabIndex = 204 -Me.CBTagSchoolgirl.Text = "Schoolgirl" -Me.CBTagSchoolgirl.UseVisualStyleBackColor = true -' -'CBTagMaid -' -Me.CBTagMaid.AutoSize = true -Me.CBTagMaid.Enabled = false -Me.CBTagMaid.ForeColor = System.Drawing.Color.Black -Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) -Me.CBTagMaid.Name = "CBTagMaid" -Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) -Me.CBTagMaid.TabIndex = 205 -Me.CBTagMaid.Text = "Maid" -Me.CBTagMaid.UseVisualStyleBackColor = true -' -'CBTagTeacher -' -Me.CBTagTeacher.AutoSize = true -Me.CBTagTeacher.Enabled = false -Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black -Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) -Me.CBTagTeacher.Name = "CBTagTeacher" -Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) -Me.CBTagTeacher.TabIndex = 206 -Me.CBTagTeacher.Text = "Teacher" -Me.CBTagTeacher.UseVisualStyleBackColor = true -' -'CBTagSuperhero -' -Me.CBTagSuperhero.AutoSize = true -Me.CBTagSuperhero.Enabled = false -Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black -Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) -Me.CBTagSuperhero.Name = "CBTagSuperhero" -Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) -Me.CBTagSuperhero.TabIndex = 213 -Me.CBTagSuperhero.Text = "Superhero" -Me.CBTagSuperhero.UseVisualStyleBackColor = true -' -'GroupBox53 -' -Me.GroupBox53.Controls.Add(Me.CBTagTrap) -Me.GroupBox53.Controls.Add(Me.CBTagTentacles) -Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) -Me.GroupBox53.Controls.Add(Me.CBTagBukkake) -Me.GroupBox53.Controls.Add(Me.CBTagGanguro) -Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) -Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) -Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) -Me.GroupBox53.Controls.Add(Me.CBTagAhegao) -Me.GroupBox53.Controls.Add(Me.CBTagShibari) -Me.GroupBox53.Location = New System.Drawing.Point(450, 277) -Me.GroupBox53.Name = "GroupBox53" -Me.GroupBox53.Size = New System.Drawing.Size(246, 118) -Me.GroupBox53.TabIndex = 240 -Me.GroupBox53.TabStop = false -Me.GroupBox53.Text = "Hentai/JAV Themes" -' -'CBTagTrap -' -Me.CBTagTrap.AutoSize = true -Me.CBTagTrap.Enabled = false -Me.CBTagTrap.ForeColor = System.Drawing.Color.Black -Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) -Me.CBTagTrap.Name = "CBTagTrap" -Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) -Me.CBTagTrap.TabIndex = 226 -Me.CBTagTrap.Text = "Trap" -Me.CBTagTrap.UseVisualStyleBackColor = true -' -'CBTagTentacles -' -Me.CBTagTentacles.AutoSize = true -Me.CBTagTentacles.Enabled = false -Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black -Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) -Me.CBTagTentacles.Name = "CBTagTentacles" -Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) -Me.CBTagTentacles.TabIndex = 204 -Me.CBTagTentacles.Text = "Tentacles" -Me.CBTagTentacles.UseVisualStyleBackColor = true -' -'CBTagMonsterGirl -' -Me.CBTagMonsterGirl.AutoSize = true -Me.CBTagMonsterGirl.Enabled = false -Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black -Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) -Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" -Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) -Me.CBTagMonsterGirl.TabIndex = 214 -Me.CBTagMonsterGirl.Text = "Monster Girl" -Me.CBTagMonsterGirl.UseVisualStyleBackColor = true -' -'CBTagBukkake -' -Me.CBTagBukkake.AutoSize = true -Me.CBTagBukkake.Enabled = false -Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black -Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) -Me.CBTagBukkake.Name = "CBTagBukkake" -Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) -Me.CBTagBukkake.TabIndex = 210 -Me.CBTagBukkake.Text = "Bukkake" -Me.CBTagBukkake.UseVisualStyleBackColor = true -' -'CBTagGanguro -' -Me.CBTagGanguro.AutoSize = true -Me.CBTagGanguro.Enabled = false -Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black -Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) -Me.CBTagGanguro.Name = "CBTagGanguro" -Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) -Me.CBTagGanguro.TabIndex = 205 -Me.CBTagGanguro.Text = "Ganguro" -Me.CBTagGanguro.UseVisualStyleBackColor = true -' -'CBTagBodyWriting -' -Me.CBTagBodyWriting.AutoSize = true -Me.CBTagBodyWriting.Enabled = false -Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) -Me.CBTagBodyWriting.Name = "CBTagBodyWriting" -Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) -Me.CBTagBodyWriting.TabIndex = 208 -Me.CBTagBodyWriting.Text = "Body Writing" -Me.CBTagBodyWriting.UseVisualStyleBackColor = true -' -'CBTagMahouShoujo -' -Me.CBTagMahouShoujo.AutoSize = true -Me.CBTagMahouShoujo.Enabled = false -Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black -Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) -Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" -Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) -Me.CBTagMahouShoujo.TabIndex = 209 -Me.CBTagMahouShoujo.Text = "Mahou Shoujo" -Me.CBTagMahouShoujo.UseVisualStyleBackColor = true -' -'CBTagBakunyuu -' -Me.CBTagBakunyuu.AutoSize = true -Me.CBTagBakunyuu.Enabled = false -Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black -Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) -Me.CBTagBakunyuu.Name = "CBTagBakunyuu" -Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) -Me.CBTagBakunyuu.TabIndex = 213 -Me.CBTagBakunyuu.Text = "Bakunyuu" -Me.CBTagBakunyuu.UseVisualStyleBackColor = true -' -'CBTagAhegao -' -Me.CBTagAhegao.AutoSize = true -Me.CBTagAhegao.Enabled = false -Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black -Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) -Me.CBTagAhegao.Name = "CBTagAhegao" -Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) -Me.CBTagAhegao.TabIndex = 207 -Me.CBTagAhegao.Text = "Ahegao" -Me.CBTagAhegao.UseVisualStyleBackColor = true -' -'CBTagShibari -' -Me.CBTagShibari.AutoSize = true -Me.CBTagShibari.Enabled = false -Me.CBTagShibari.ForeColor = System.Drawing.Color.Black -Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) -Me.CBTagShibari.Name = "CBTagShibari" -Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) -Me.CBTagShibari.TabIndex = 203 -Me.CBTagShibari.Text = "Shibari" -Me.CBTagShibari.UseVisualStyleBackColor = true -' -'GroupBox49 -' -Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) -Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) -Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) -Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) -Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) -Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) -Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) -Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) -Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) -Me.GroupBox49.Location = New System.Drawing.Point(341, 37) -Me.GroupBox49.Name = "GroupBox49" -Me.GroupBox49.Size = New System.Drawing.Size(103, 238) -Me.GroupBox49.TabIndex = 236 -Me.GroupBox49.TabStop = false -Me.GroupBox49.Text = "Body Part" -' -'CBTagBodyMouth -' -Me.CBTagBodyMouth.AutoSize = true -Me.CBTagBodyMouth.Enabled = false -Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) -Me.CBTagBodyMouth.Name = "CBTagBodyMouth" -Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) -Me.CBTagBodyMouth.TabIndex = 220 -Me.CBTagBodyMouth.Text = "Mouth" -Me.CBTagBodyMouth.UseVisualStyleBackColor = true -' -'CBTagBodyAss -' -Me.CBTagBodyAss.AutoSize = true -Me.CBTagBodyAss.Enabled = false -Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) -Me.CBTagBodyAss.Name = "CBTagBodyAss" -Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyAss.TabIndex = 219 -Me.CBTagBodyAss.Text = "Ass" -Me.CBTagBodyAss.UseVisualStyleBackColor = true -' -'CBTagBodyFace -' -Me.CBTagBodyFace.AutoSize = true -Me.CBTagBodyFace.Enabled = false -Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) -Me.CBTagBodyFace.Name = "CBTagBodyFace" -Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) -Me.CBTagBodyFace.TabIndex = 203 -Me.CBTagBodyFace.Text = "Face" -Me.CBTagBodyFace.UseVisualStyleBackColor = true -' -'CBTagBodyLegs -' -Me.CBTagBodyLegs.AutoSize = true -Me.CBTagBodyLegs.Enabled = false -Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) -Me.CBTagBodyLegs.Name = "CBTagBodyLegs" -Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) -Me.CBTagBodyLegs.TabIndex = 218 -Me.CBTagBodyLegs.Text = "Legs" -Me.CBTagBodyLegs.UseVisualStyleBackColor = true -' -'CBTagBodyBalls -' -Me.CBTagBodyBalls.AutoSize = true -Me.CBTagBodyBalls.Enabled = false -Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) -Me.CBTagBodyBalls.Name = "CBTagBodyBalls" -Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) -Me.CBTagBodyBalls.TabIndex = 217 -Me.CBTagBodyBalls.Text = "Balls" -Me.CBTagBodyBalls.UseVisualStyleBackColor = true -' -'CBTagBodyCock -' -Me.CBTagBodyCock.AutoSize = true -Me.CBTagBodyCock.Enabled = false -Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) -Me.CBTagBodyCock.Name = "CBTagBodyCock" -Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) -Me.CBTagBodyCock.TabIndex = 216 -Me.CBTagBodyCock.Text = "Cock" -Me.CBTagBodyCock.UseVisualStyleBackColor = true -' -'CBTagBodyFeet -' -Me.CBTagBodyFeet.AutoSize = true -Me.CBTagBodyFeet.Enabled = false -Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) -Me.CBTagBodyFeet.Name = "CBTagBodyFeet" -Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) -Me.CBTagBodyFeet.TabIndex = 215 -Me.CBTagBodyFeet.Text = "Feet" -Me.CBTagBodyFeet.UseVisualStyleBackColor = true -' -'CBTagBodyNipples -' -Me.CBTagBodyNipples.AutoSize = true -Me.CBTagBodyNipples.Enabled = false -Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) -Me.CBTagBodyNipples.Name = "CBTagBodyNipples" -Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) -Me.CBTagBodyNipples.TabIndex = 207 -Me.CBTagBodyNipples.Text = "Nipples" -Me.CBTagBodyNipples.UseVisualStyleBackColor = true -' -'CBTagBodyPussy -' -Me.CBTagBodyPussy.AutoSize = true -Me.CBTagBodyPussy.Enabled = false -Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) -Me.CBTagBodyPussy.Name = "CBTagBodyPussy" -Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) -Me.CBTagBodyPussy.TabIndex = 209 -Me.CBTagBodyPussy.Text = "Pussy" -Me.CBTagBodyPussy.UseVisualStyleBackColor = true -' -'CBTagBodyTits -' -Me.CBTagBodyTits.AutoSize = true -Me.CBTagBodyTits.Enabled = false -Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) -Me.CBTagBodyTits.Name = "CBTagBodyTits" -Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) -Me.CBTagBodyTits.TabIndex = 213 -Me.CBTagBodyTits.Text = "Tits" -Me.CBTagBodyTits.UseVisualStyleBackColor = true -' -'CBTagBodyFingers -' -Me.CBTagBodyFingers.AutoSize = true -Me.CBTagBodyFingers.Enabled = false -Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black -Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) -Me.CBTagBodyFingers.Name = "CBTagBodyFingers" -Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) -Me.CBTagBodyFingers.TabIndex = 210 -Me.CBTagBodyFingers.Text = "Fingers" -Me.CBTagBodyFingers.UseVisualStyleBackColor = true -' -'GroupBox46 -' -Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) -Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) -Me.GroupBox46.Controls.Add(Me.CBTagFemdom) -Me.GroupBox46.Controls.Add(Me.CBTag2M) -Me.GroupBox46.Controls.Add(Me.CBTagFutadom) -Me.GroupBox46.Controls.Add(Me.CBTagFemsub) -Me.GroupBox46.Controls.Add(Me.CBTag2Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMaledom) -Me.GroupBox46.Controls.Add(Me.CBTag3M) -Me.GroupBox46.Controls.Add(Me.CBTagFutasub) -Me.GroupBox46.Controls.Add(Me.CBTag3Futa) -Me.GroupBox46.Controls.Add(Me.CBTagMalesub) -Me.GroupBox46.Controls.Add(Me.CBTag2F) -Me.GroupBox46.Controls.Add(Me.CBTag1Futa) -Me.GroupBox46.Controls.Add(Me.CBTag1M) -Me.GroupBox46.Controls.Add(Me.CBTag1F) -Me.GroupBox46.Controls.Add(Me.CBTag3F) -Me.GroupBox46.Location = New System.Drawing.Point(230, 37) -Me.GroupBox46.Name = "GroupBox46" -Me.GroupBox46.Size = New System.Drawing.Size(105, 358) -Me.GroupBox46.TabIndex = 234 -Me.GroupBox46.TabStop = false -Me.GroupBox46.Text = "Genders && Roles" -' -'CBTagMultiSub -' -Me.CBTagMultiSub.AutoSize = true -Me.CBTagMultiSub.Enabled = false -Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) -Me.CBTagMultiSub.Name = "CBTagMultiSub" -Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) -Me.CBTagMultiSub.TabIndex = 207 -Me.CBTagMultiSub.Text = "Multi-Sub" -Me.CBTagMultiSub.UseVisualStyleBackColor = true -' -'CBTagMultiDom -' -Me.CBTagMultiDom.AutoSize = true -Me.CBTagMultiDom.Enabled = false -Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black -Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) -Me.CBTagMultiDom.Name = "CBTagMultiDom" -Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) -Me.CBTagMultiDom.TabIndex = 230 -Me.CBTagMultiDom.Text = "Multi-Dom" -Me.CBTagMultiDom.UseVisualStyleBackColor = true -' -'CBTagFemdom -' -Me.CBTagFemdom.AutoSize = true -Me.CBTagFemdom.Enabled = false -Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black -Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) -Me.CBTagFemdom.Name = "CBTagFemdom" -Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBTagFemdom.TabIndex = 229 -Me.CBTagFemdom.Text = "Femdom" -Me.CBTagFemdom.UseVisualStyleBackColor = true -' -'CBTag2M -' -Me.CBTag2M.AutoSize = true -Me.CBTag2M.Enabled = false -Me.CBTag2M.ForeColor = System.Drawing.Color.Black -Me.CBTag2M.Location = New System.Drawing.Point(15, 97) -Me.CBTag2M.Name = "CBTag2M" -Me.CBTag2M.Size = New System.Drawing.Size(56, 17) -Me.CBTag2M.TabIndex = 206 -Me.CBTag2M.Text = "2 Men" -Me.CBTag2M.UseVisualStyleBackColor = true -' -'CBTagFutadom -' -Me.CBTagFutadom.AutoSize = true -Me.CBTagFutadom.Enabled = false -Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black -Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) -Me.CBTagFutadom.Name = "CBTagFutadom" -Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) -Me.CBTagFutadom.TabIndex = 204 -Me.CBTagFutadom.Text = "Futadom" -Me.CBTagFutadom.UseVisualStyleBackColor = true -' -'CBTagFemsub -' -Me.CBTagFemsub.AutoSize = true -Me.CBTagFemsub.Enabled = false -Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black -Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) -Me.CBTagFemsub.Name = "CBTagFemsub" -Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBTagFemsub.TabIndex = 205 -Me.CBTagFemsub.Text = "Femsub" -Me.CBTagFemsub.UseVisualStyleBackColor = true -' -'CBTag2Futa -' -Me.CBTag2Futa.AutoSize = true -Me.CBTag2Futa.Enabled = false -Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) -Me.CBTag2Futa.Name = "CBTag2Futa" -Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag2Futa.TabIndex = 186 -Me.CBTag2Futa.Text = "2 Futa" -Me.CBTag2Futa.UseVisualStyleBackColor = true -' -'CBTagMaledom -' -Me.CBTagMaledom.AutoSize = true -Me.CBTagMaledom.Enabled = false -Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black -Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) -Me.CBTagMaledom.Name = "CBTagMaledom" -Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) -Me.CBTagMaledom.TabIndex = 206 -Me.CBTagMaledom.Text = "Maledom" -Me.CBTagMaledom.UseVisualStyleBackColor = true -' -'CBTag3M -' -Me.CBTag3M.AutoSize = true -Me.CBTag3M.Enabled = false -Me.CBTag3M.ForeColor = System.Drawing.Color.Black -Me.CBTag3M.Location = New System.Drawing.Point(15, 117) -Me.CBTag3M.Name = "CBTag3M" -Me.CBTag3M.Size = New System.Drawing.Size(56, 17) -Me.CBTag3M.TabIndex = 190 -Me.CBTag3M.Text = "3 Men" -Me.CBTag3M.UseVisualStyleBackColor = true -' -'CBTagFutasub -' -Me.CBTagFutasub.AutoSize = true -Me.CBTagFutasub.Enabled = false -Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black -Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) -Me.CBTagFutasub.Name = "CBTagFutasub" -Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) -Me.CBTagFutasub.TabIndex = 213 -Me.CBTagFutasub.Text = "Futasub" -Me.CBTagFutasub.UseVisualStyleBackColor = true -' -'CBTag3Futa -' -Me.CBTag3Futa.AutoSize = true -Me.CBTag3Futa.Enabled = false -Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) -Me.CBTag3Futa.Name = "CBTag3Futa" -Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag3Futa.TabIndex = 197 -Me.CBTag3Futa.Text = "3 Futa" -Me.CBTag3Futa.UseVisualStyleBackColor = true -' -'CBTagMalesub -' -Me.CBTagMalesub.AutoSize = true -Me.CBTagMalesub.Enabled = false -Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black -Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) -Me.CBTagMalesub.Name = "CBTagMalesub" -Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) -Me.CBTagMalesub.TabIndex = 210 -Me.CBTagMalesub.Text = "Malesub" -Me.CBTagMalesub.UseVisualStyleBackColor = true -' -'CBTag2F -' -Me.CBTag2F.AutoSize = true -Me.CBTag2F.Enabled = false -Me.CBTag2F.ForeColor = System.Drawing.Color.Black -Me.CBTag2F.Location = New System.Drawing.Point(15, 37) -Me.CBTag2F.Name = "CBTag2F" -Me.CBTag2F.Size = New System.Drawing.Size(72, 17) -Me.CBTag2F.TabIndex = 188 -Me.CBTag2F.Text = "2 Women" -Me.CBTag2F.UseVisualStyleBackColor = true -' -'CBTag1Futa -' -Me.CBTag1Futa.AutoSize = true -Me.CBTag1Futa.Enabled = false -Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black -Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) -Me.CBTag1Futa.Name = "CBTag1Futa" -Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) -Me.CBTag1Futa.TabIndex = 191 -Me.CBTag1Futa.Text = "1 Futa" -Me.CBTag1Futa.UseVisualStyleBackColor = true -' -'CBTag1M -' -Me.CBTag1M.AutoSize = true -Me.CBTag1M.Enabled = false -Me.CBTag1M.ForeColor = System.Drawing.Color.Black -Me.CBTag1M.Location = New System.Drawing.Point(15, 77) -Me.CBTag1M.Name = "CBTag1M" -Me.CBTag1M.Size = New System.Drawing.Size(56, 17) -Me.CBTag1M.TabIndex = 189 -Me.CBTag1M.Text = "1 Man" -Me.CBTag1M.UseVisualStyleBackColor = true -' -'CBTag1F -' -Me.CBTag1F.AutoSize = true -Me.CBTag1F.Enabled = false -Me.CBTag1F.ForeColor = System.Drawing.Color.Black -Me.CBTag1F.Location = New System.Drawing.Point(15, 17) -Me.CBTag1F.Name = "CBTag1F" -Me.CBTag1F.Size = New System.Drawing.Size(72, 17) -Me.CBTag1F.TabIndex = 185 -Me.CBTag1F.Text = "1 Woman" -Me.CBTag1F.UseVisualStyleBackColor = true -' -'CBTag3F -' -Me.CBTag3F.AutoSize = true -Me.CBTag3F.Enabled = false -Me.CBTag3F.ForeColor = System.Drawing.Color.Black -Me.CBTag3F.Location = New System.Drawing.Point(15, 57) -Me.CBTag3F.Name = "CBTag3F" -Me.CBTag3F.Size = New System.Drawing.Size(72, 17) -Me.CBTag3F.TabIndex = 192 -Me.CBTag3F.Text = "3 Women" -Me.CBTag3F.UseVisualStyleBackColor = true -' -'GroupBox54 -' -Me.GroupBox54.Controls.Add(Me.CBTagTattoos) -Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) -Me.GroupBox54.Controls.Add(Me.CBTagDomme) -Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) -Me.GroupBox54.Controls.Add(Me.CBTagWatersports) -Me.GroupBox54.Controls.Add(Me.CBTagStockings) -Me.GroupBox54.Controls.Add(Me.CBTagCumshot) -Me.GroupBox54.Controls.Add(Me.CBTagCumEating) -Me.GroupBox54.Controls.Add(Me.CBTagVibrator) -Me.GroupBox54.Controls.Add(Me.CBTagDildo) -Me.GroupBox54.Controls.Add(Me.CBTagKissing) -Me.GroupBox54.Location = New System.Drawing.Point(561, 37) -Me.GroupBox54.Name = "GroupBox54" -Me.GroupBox54.Size = New System.Drawing.Size(135, 238) -Me.GroupBox54.TabIndex = 239 -Me.GroupBox54.TabStop = false -Me.GroupBox54.Text = "Misc" -' -'CBTagTattoos -' -Me.CBTagTattoos.AutoSize = true -Me.CBTagTattoos.Enabled = false -Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black -Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) -Me.CBTagTattoos.Name = "CBTagTattoos" -Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) -Me.CBTagTattoos.TabIndex = 214 -Me.CBTagTattoos.Text = "Tattoos" -Me.CBTagTattoos.UseVisualStyleBackColor = true -' -'CBTagAnalToy -' -Me.CBTagAnalToy.AutoSize = true -Me.CBTagAnalToy.Enabled = false -Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) -Me.CBTagAnalToy.Name = "CBTagAnalToy" -Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalToy.TabIndex = 215 -Me.CBTagAnalToy.Text = "Anal Toy" -Me.CBTagAnalToy.UseVisualStyleBackColor = true -' -'CBTagDomme -' -Me.CBTagDomme.AutoSize = true -Me.CBTagDomme.Enabled = false -Me.CBTagDomme.ForeColor = System.Drawing.Color.Black -Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) -Me.CBTagDomme.Name = "CBTagDomme" -Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) -Me.CBTagDomme.TabIndex = 219 -Me.CBTagDomme.Text = "Tease A.I. Domme" -Me.CBTagDomme.UseVisualStyleBackColor = true -' -'CBTagPocketPussy -' -Me.CBTagPocketPussy.AutoSize = true -Me.CBTagPocketPussy.Enabled = false -Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black -Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) -Me.CBTagPocketPussy.Name = "CBTagPocketPussy" -Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) -Me.CBTagPocketPussy.TabIndex = 205 -Me.CBTagPocketPussy.Text = "Pocket Pussy" -Me.CBTagPocketPussy.UseVisualStyleBackColor = true -' -'CBTagWatersports -' -Me.CBTagWatersports.AutoSize = true -Me.CBTagWatersports.Enabled = false -Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black -Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) -Me.CBTagWatersports.Name = "CBTagWatersports" -Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) -Me.CBTagWatersports.TabIndex = 218 -Me.CBTagWatersports.Text = "Watersports" -Me.CBTagWatersports.UseVisualStyleBackColor = true -' -'CBTagStockings -' -Me.CBTagStockings.AutoSize = true -Me.CBTagStockings.Enabled = false -Me.CBTagStockings.ForeColor = System.Drawing.Color.Black -Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) -Me.CBTagStockings.Name = "CBTagStockings" -Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) -Me.CBTagStockings.TabIndex = 217 -Me.CBTagStockings.Text = "Stockings" -Me.CBTagStockings.UseVisualStyleBackColor = true -' -'CBTagCumshot -' -Me.CBTagCumshot.AutoSize = true -Me.CBTagCumshot.Enabled = false -Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black -Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) -Me.CBTagCumshot.Name = "CBTagCumshot" -Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) -Me.CBTagCumshot.TabIndex = 206 -Me.CBTagCumshot.Text = "Cumshot" -Me.CBTagCumshot.UseVisualStyleBackColor = true -' -'CBTagCumEating -' -Me.CBTagCumEating.AutoSize = true -Me.CBTagCumEating.Enabled = false -Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black -Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) -Me.CBTagCumEating.Name = "CBTagCumEating" -Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) -Me.CBTagCumEating.TabIndex = 204 -Me.CBTagCumEating.Text = "Cum Eating" -Me.CBTagCumEating.UseVisualStyleBackColor = true -' -'CBTagVibrator -' -Me.CBTagVibrator.AutoSize = true -Me.CBTagVibrator.Enabled = false -Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black -Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) -Me.CBTagVibrator.Name = "CBTagVibrator" -Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) -Me.CBTagVibrator.TabIndex = 210 -Me.CBTagVibrator.Text = "Vibrator" -Me.CBTagVibrator.UseVisualStyleBackColor = true -' -'CBTagDildo -' -Me.CBTagDildo.AutoSize = true -Me.CBTagDildo.Enabled = false -Me.CBTagDildo.ForeColor = System.Drawing.Color.Black -Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) -Me.CBTagDildo.Name = "CBTagDildo" -Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) -Me.CBTagDildo.TabIndex = 213 -Me.CBTagDildo.Text = "Dildo" -Me.CBTagDildo.UseVisualStyleBackColor = true -' -'CBTagKissing -' -Me.CBTagKissing.AutoSize = true -Me.CBTagKissing.Enabled = false -Me.CBTagKissing.ForeColor = System.Drawing.Color.Black -Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) -Me.CBTagKissing.Name = "CBTagKissing" -Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) -Me.CBTagKissing.TabIndex = 203 -Me.CBTagKissing.Text = "Kissing" -Me.CBTagKissing.UseVisualStyleBackColor = true -' -'GroupBox51 -' -Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) -Me.GroupBox51.Controls.Add(Me.CBTagGag) -Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) -Me.GroupBox51.Controls.Add(Me.CBTagWhipping) -Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) -Me.GroupBox51.Controls.Add(Me.CBTagElectro) -Me.GroupBox51.Controls.Add(Me.CBTagHotWax) -Me.GroupBox51.Controls.Add(Me.CBTagClamps) -Me.GroupBox51.Controls.Add(Me.CBTagStrapon) -Me.GroupBox51.Controls.Add(Me.CBTagSpanking) -Me.GroupBox51.Controls.Add(Me.CBTagNeedles) -Me.GroupBox51.Location = New System.Drawing.Point(450, 37) -Me.GroupBox51.Name = "GroupBox51" -Me.GroupBox51.Size = New System.Drawing.Size(105, 238) -Me.GroupBox51.TabIndex = 238 -Me.GroupBox51.TabStop = false -Me.GroupBox51.Text = "BDSM" -' -'CBTagBallTorture -' -Me.CBTagBallTorture.AutoSize = true -Me.CBTagBallTorture.Enabled = false -Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) -Me.CBTagBallTorture.Name = "CBTagBallTorture" -Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) -Me.CBTagBallTorture.TabIndex = 220 -Me.CBTagBallTorture.Text = "Ball Torture" -Me.CBTagBallTorture.UseVisualStyleBackColor = true -' -'CBTagGag -' -Me.CBTagGag.AutoSize = true -Me.CBTagGag.Enabled = false -Me.CBTagGag.ForeColor = System.Drawing.Color.Black -Me.CBTagGag.Location = New System.Drawing.Point(15, 137) -Me.CBTagGag.Name = "CBTagGag" -Me.CBTagGag.Size = New System.Drawing.Size(46, 17) -Me.CBTagGag.TabIndex = 214 -Me.CBTagGag.Text = "Gag" -Me.CBTagGag.UseVisualStyleBackColor = true -' -'CBTagBlindfold -' -Me.CBTagBlindfold.AutoSize = true -Me.CBTagBlindfold.Enabled = false -Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black -Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) -Me.CBTagBlindfold.Name = "CBTagBlindfold" -Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) -Me.CBTagBlindfold.TabIndex = 208 -Me.CBTagBlindfold.Text = "Blindfold" -Me.CBTagBlindfold.UseVisualStyleBackColor = true -' -'CBTagWhipping -' -Me.CBTagWhipping.AutoSize = true -Me.CBTagWhipping.Enabled = false -Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black -Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) -Me.CBTagWhipping.Name = "CBTagWhipping" -Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) -Me.CBTagWhipping.TabIndex = 203 -Me.CBTagWhipping.Text = "Whipping" -Me.CBTagWhipping.UseVisualStyleBackColor = true -' -'CBTagCockTorture -' -Me.CBTagCockTorture.AutoSize = true -Me.CBTagCockTorture.Enabled = false -Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black -Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) -Me.CBTagCockTorture.Name = "CBTagCockTorture" -Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) -Me.CBTagCockTorture.TabIndex = 204 -Me.CBTagCockTorture.Text = "Cock Torture" -Me.CBTagCockTorture.UseVisualStyleBackColor = true -' -'CBTagElectro -' -Me.CBTagElectro.AutoSize = true -Me.CBTagElectro.Enabled = false -Me.CBTagElectro.ForeColor = System.Drawing.Color.Black -Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) -Me.CBTagElectro.Name = "CBTagElectro" -Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) -Me.CBTagElectro.TabIndex = 207 -Me.CBTagElectro.Text = "Electro" -Me.CBTagElectro.UseVisualStyleBackColor = true -' -'CBTagHotWax -' -Me.CBTagHotWax.AutoSize = true -Me.CBTagHotWax.Enabled = false -Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black -Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) -Me.CBTagHotWax.Name = "CBTagHotWax" -Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) -Me.CBTagHotWax.TabIndex = 213 -Me.CBTagHotWax.Text = "Hot Wax" -Me.CBTagHotWax.UseVisualStyleBackColor = true -' -'CBTagClamps -' -Me.CBTagClamps.AutoSize = true -Me.CBTagClamps.Enabled = false -Me.CBTagClamps.ForeColor = System.Drawing.Color.Black -Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) -Me.CBTagClamps.Name = "CBTagClamps" -Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) -Me.CBTagClamps.TabIndex = 210 -Me.CBTagClamps.Text = "Clamps" -Me.CBTagClamps.UseVisualStyleBackColor = true -' -'CBTagStrapon -' -Me.CBTagStrapon.AutoSize = true -Me.CBTagStrapon.Enabled = false -Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black -Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) -Me.CBTagStrapon.Name = "CBTagStrapon" -Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) -Me.CBTagStrapon.TabIndex = 205 -Me.CBTagStrapon.Text = "Strap-on" -Me.CBTagStrapon.UseVisualStyleBackColor = true -' -'CBTagSpanking -' -Me.CBTagSpanking.AutoSize = true -Me.CBTagSpanking.Enabled = false -Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black -Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) -Me.CBTagSpanking.Name = "CBTagSpanking" -Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) -Me.CBTagSpanking.TabIndex = 206 -Me.CBTagSpanking.Text = "Spanking" -Me.CBTagSpanking.UseVisualStyleBackColor = true -' -'CBTagNeedles -' -Me.CBTagNeedles.AutoSize = true -Me.CBTagNeedles.Enabled = false -Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black -Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) -Me.CBTagNeedles.Name = "CBTagNeedles" -Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) -Me.CBTagNeedles.TabIndex = 209 -Me.CBTagNeedles.Text = "Needles" -Me.CBTagNeedles.UseVisualStyleBackColor = true -' -'GroupBox50 -' -Me.GroupBox50.Controls.Add(Me.CBTagRimming) -Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) -Me.GroupBox50.Controls.Add(Me.CBTagMissionary) -Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) -Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagFingering) -Me.GroupBox50.Controls.Add(Me.CBTagGangbang) -Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) -Me.GroupBox50.Controls.Add(Me.CBTagDP) -Me.GroupBox50.Controls.Add(Me.CBTagHandjob) -Me.GroupBox50.Controls.Add(Me.CBTagStanding) -Me.GroupBox50.Controls.Add(Me.CBTagFootjob) -Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) -Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) -Me.GroupBox50.Controls.Add(Me.CBTagTitjob) -Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) -Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) -Me.GroupBox50.Location = New System.Drawing.Point(119, 37) -Me.GroupBox50.Name = "GroupBox50" -Me.GroupBox50.Size = New System.Drawing.Size(105, 358) -Me.GroupBox50.TabIndex = 237 -Me.GroupBox50.TabStop = false -Me.GroupBox50.Text = "Sex" -' -'CBTagRimming -' -Me.CBTagRimming.AutoSize = true -Me.CBTagRimming.Enabled = false -Me.CBTagRimming.ForeColor = System.Drawing.Color.Black -Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) -Me.CBTagRimming.Name = "CBTagRimming" -Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) -Me.CBTagRimming.TabIndex = 219 -Me.CBTagRimming.Text = "Rimming" -Me.CBTagRimming.UseVisualStyleBackColor = true -' -'CBTagFacesitting -' -Me.CBTagFacesitting.AutoSize = true -Me.CBTagFacesitting.Enabled = false -Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black -Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) -Me.CBTagFacesitting.Name = "CBTagFacesitting" -Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) -Me.CBTagFacesitting.TabIndex = 226 -Me.CBTagFacesitting.Text = "Facesitting" -Me.CBTagFacesitting.UseVisualStyleBackColor = true -' -'CBTagMissionary -' -Me.CBTagMissionary.AutoSize = true -Me.CBTagMissionary.Enabled = false -Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black -Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) -Me.CBTagMissionary.Name = "CBTagMissionary" -Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) -Me.CBTagMissionary.TabIndex = 208 -Me.CBTagMissionary.Text = "Missionary" -Me.CBTagMissionary.UseVisualStyleBackColor = true -' -'CBTagMasturbation -' -Me.CBTagMasturbation.AutoSize = true -Me.CBTagMasturbation.Enabled = false -Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black -Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) -Me.CBTagMasturbation.Name = "CBTagMasturbation" -Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) -Me.CBTagMasturbation.TabIndex = 203 -Me.CBTagMasturbation.Text = "Masturbation" -Me.CBTagMasturbation.UseVisualStyleBackColor = true -' -'CBTagRCowgirl -' -Me.CBTagRCowgirl.AutoSize = true -Me.CBTagRCowgirl.Enabled = false -Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) -Me.CBTagRCowgirl.Name = "CBTagRCowgirl" -Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) -Me.CBTagRCowgirl.TabIndex = 218 -Me.CBTagRCowgirl.Text = "R. Cowgirl" -Me.CBTagRCowgirl.UseVisualStyleBackColor = true -' -'CBTagFingering -' -Me.CBTagFingering.AutoSize = true -Me.CBTagFingering.Enabled = false -Me.CBTagFingering.ForeColor = System.Drawing.Color.Black -Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) -Me.CBTagFingering.Name = "CBTagFingering" -Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) -Me.CBTagFingering.TabIndex = 204 -Me.CBTagFingering.Text = "Fingering" -Me.CBTagFingering.UseVisualStyleBackColor = true -' -'CBTagGangbang -' -Me.CBTagGangbang.AutoSize = true -Me.CBTagGangbang.Enabled = false -Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black -Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) -Me.CBTagGangbang.Name = "CBTagGangbang" -Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) -Me.CBTagGangbang.TabIndex = 217 -Me.CBTagGangbang.Text = "Gangbang" -Me.CBTagGangbang.UseVisualStyleBackColor = true -' -'CBTagBlowjob -' -Me.CBTagBlowjob.AutoSize = true -Me.CBTagBlowjob.Enabled = false -Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) -Me.CBTagBlowjob.Name = "CBTagBlowjob" -Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBTagBlowjob.TabIndex = 205 -Me.CBTagBlowjob.Text = "Blowjob" -Me.CBTagBlowjob.UseVisualStyleBackColor = true -' -'CBTagDP -' -Me.CBTagDP.AutoSize = true -Me.CBTagDP.Enabled = false -Me.CBTagDP.ForeColor = System.Drawing.Color.Black -Me.CBTagDP.Location = New System.Drawing.Point(15, 317) -Me.CBTagDP.Name = "CBTagDP" -Me.CBTagDP.Size = New System.Drawing.Size(41, 17) -Me.CBTagDP.TabIndex = 216 -Me.CBTagDP.Text = "DP" -Me.CBTagDP.UseVisualStyleBackColor = true -' -'CBTagHandjob -' -Me.CBTagHandjob.AutoSize = true -Me.CBTagHandjob.Enabled = false -Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black -Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) -Me.CBTagHandjob.Name = "CBTagHandjob" -Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) -Me.CBTagHandjob.TabIndex = 206 -Me.CBTagHandjob.Text = "Handjob" -Me.CBTagHandjob.UseVisualStyleBackColor = true -' -'CBTagStanding -' -Me.CBTagStanding.AutoSize = true -Me.CBTagStanding.Enabled = false -Me.CBTagStanding.ForeColor = System.Drawing.Color.Black -Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) -Me.CBTagStanding.Name = "CBTagStanding" -Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) -Me.CBTagStanding.TabIndex = 215 -Me.CBTagStanding.Text = "Standing" -Me.CBTagStanding.UseVisualStyleBackColor = true -' -'CBTagFootjob -' -Me.CBTagFootjob.AutoSize = true -Me.CBTagFootjob.Enabled = false -Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black -Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) -Me.CBTagFootjob.Name = "CBTagFootjob" -Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) -Me.CBTagFootjob.TabIndex = 207 -Me.CBTagFootjob.Text = "Footjob" -Me.CBTagFootjob.UseVisualStyleBackColor = true -' -'CBTagCowgirl -' -Me.CBTagCowgirl.AutoSize = true -Me.CBTagCowgirl.Enabled = false -Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black -Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) -Me.CBTagCowgirl.Name = "CBTagCowgirl" -Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) -Me.CBTagCowgirl.TabIndex = 214 -Me.CBTagCowgirl.Text = "Cowgirl" -Me.CBTagCowgirl.UseVisualStyleBackColor = true -' -'CBTagDoggyStyle -' -Me.CBTagDoggyStyle.AutoSize = true -Me.CBTagDoggyStyle.Enabled = false -Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black -Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) -Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" -Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) -Me.CBTagDoggyStyle.TabIndex = 209 -Me.CBTagDoggyStyle.Text = "Doggy Style" -Me.CBTagDoggyStyle.UseVisualStyleBackColor = true -' -'CBTagTitjob -' -Me.CBTagTitjob.AutoSize = true -Me.CBTagTitjob.Enabled = false -Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black -Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) -Me.CBTagTitjob.Name = "CBTagTitjob" -Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) -Me.CBTagTitjob.TabIndex = 213 -Me.CBTagTitjob.Text = "Titjob" -Me.CBTagTitjob.UseVisualStyleBackColor = true -' -'CBTagCunnilingus -' -Me.CBTagCunnilingus.AutoSize = true -Me.CBTagCunnilingus.Enabled = false -Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black -Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) -Me.CBTagCunnilingus.Name = "CBTagCunnilingus" -Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) -Me.CBTagCunnilingus.TabIndex = 210 -Me.CBTagCunnilingus.Text = "Cunnilingus" -Me.CBTagCunnilingus.UseVisualStyleBackColor = true -' -'CBTagAnalSex -' -Me.CBTagAnalSex.AutoSize = true -Me.CBTagAnalSex.Enabled = false -Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black -Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) -Me.CBTagAnalSex.Name = "CBTagAnalSex" -Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) -Me.CBTagAnalSex.TabIndex = 212 -Me.CBTagAnalSex.Text = "Anal Sex" -Me.CBTagAnalSex.UseVisualStyleBackColor = true -' -'GroupBox48 -' -Me.GroupBox48.Controls.Add(Me.CBTagArtwork) -Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) -Me.GroupBox48.Controls.Add(Me.CBTagPOV) -Me.GroupBox48.Controls.Add(Me.CBTagHardcore) -Me.GroupBox48.Controls.Add(Me.CBTagTD) -Me.GroupBox48.Controls.Add(Me.CBTagGay) -Me.GroupBox48.Controls.Add(Me.CBTagBath) -Me.GroupBox48.Controls.Add(Me.CBTagBisexual) -Me.GroupBox48.Controls.Add(Me.CBTagCFNM) -Me.GroupBox48.Controls.Add(Me.CBTagLesbian) -Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) -Me.GroupBox48.Controls.Add(Me.CBTagSM) -Me.GroupBox48.Controls.Add(Me.CBTagBondage) -Me.GroupBox48.Controls.Add(Me.CBTagSoloM) -Me.GroupBox48.Controls.Add(Me.CBTagSoloF) -Me.GroupBox48.Controls.Add(Me.CBTagChastity) -Me.GroupBox48.Controls.Add(Me.CBTagShower) -Me.GroupBox48.Location = New System.Drawing.Point(8, 37) -Me.GroupBox48.Name = "GroupBox48" -Me.GroupBox48.Size = New System.Drawing.Size(105, 358) -Me.GroupBox48.TabIndex = 235 -Me.GroupBox48.TabStop = false -Me.GroupBox48.Text = "Category" -' -'CBTagArtwork -' -Me.CBTagArtwork.AutoSize = true -Me.CBTagArtwork.Enabled = false -Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black -Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) -Me.CBTagArtwork.Name = "CBTagArtwork" -Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) -Me.CBTagArtwork.TabIndex = 225 -Me.CBTagArtwork.Text = "Artwork" -Me.CBTagArtwork.UseVisualStyleBackColor = true -' -'CBTagOutdoors -' -Me.CBTagOutdoors.AutoSize = true -Me.CBTagOutdoors.Enabled = false -Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black -Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) -Me.CBTagOutdoors.Name = "CBTagOutdoors" -Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) -Me.CBTagOutdoors.TabIndex = 219 -Me.CBTagOutdoors.Text = "Outdoors" -Me.CBTagOutdoors.UseVisualStyleBackColor = true -' -'CBTagPOV -' -Me.CBTagPOV.AutoSize = true -Me.CBTagPOV.Enabled = false -Me.CBTagPOV.ForeColor = System.Drawing.Color.Black -Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) -Me.CBTagPOV.Name = "CBTagPOV" -Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) -Me.CBTagPOV.TabIndex = 208 -Me.CBTagPOV.Text = "POV" -Me.CBTagPOV.UseVisualStyleBackColor = true -' -'CBTagHardcore -' -Me.CBTagHardcore.AutoSize = true -Me.CBTagHardcore.Enabled = false -Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black -Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) -Me.CBTagHardcore.Name = "CBTagHardcore" -Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBTagHardcore.TabIndex = 203 -Me.CBTagHardcore.Text = "Hardcore" -Me.CBTagHardcore.UseVisualStyleBackColor = true -' -'CBTagTD -' -Me.CBTagTD.AutoSize = true -Me.CBTagTD.Enabled = false -Me.CBTagTD.ForeColor = System.Drawing.Color.Black -Me.CBTagTD.Location = New System.Drawing.Point(15, 217) -Me.CBTagTD.Name = "CBTagTD" -Me.CBTagTD.Size = New System.Drawing.Size(47, 17) -Me.CBTagTD.TabIndex = 218 -Me.CBTagTD.Text = "T&&D" -Me.CBTagTD.UseVisualStyleBackColor = true -' -'CBTagGay -' -Me.CBTagGay.AutoSize = true -Me.CBTagGay.Enabled = false -Me.CBTagGay.ForeColor = System.Drawing.Color.Black -Me.CBTagGay.Location = New System.Drawing.Point(15, 57) -Me.CBTagGay.Name = "CBTagGay" -Me.CBTagGay.Size = New System.Drawing.Size(45, 17) -Me.CBTagGay.TabIndex = 204 -Me.CBTagGay.Text = "Gay" -Me.CBTagGay.UseVisualStyleBackColor = true -' -'CBTagBath -' -Me.CBTagBath.AutoSize = true -Me.CBTagBath.Enabled = false -Me.CBTagBath.ForeColor = System.Drawing.Color.Black -Me.CBTagBath.Location = New System.Drawing.Point(15, 277) -Me.CBTagBath.Name = "CBTagBath" -Me.CBTagBath.Size = New System.Drawing.Size(48, 17) -Me.CBTagBath.TabIndex = 217 -Me.CBTagBath.Text = "Bath" -Me.CBTagBath.UseVisualStyleBackColor = true -' -'CBTagBisexual -' -Me.CBTagBisexual.AutoSize = true -Me.CBTagBisexual.Enabled = false -Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black -Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) -Me.CBTagBisexual.Name = "CBTagBisexual" -Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) -Me.CBTagBisexual.TabIndex = 205 -Me.CBTagBisexual.Text = "Bisexual" -Me.CBTagBisexual.UseVisualStyleBackColor = true -' -'CBTagCFNM -' -Me.CBTagCFNM.AutoSize = true -Me.CBTagCFNM.Enabled = false -Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black -Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) -Me.CBTagCFNM.Name = "CBTagCFNM" -Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) -Me.CBTagCFNM.TabIndex = 216 -Me.CBTagCFNM.Text = "CFNM" -Me.CBTagCFNM.UseVisualStyleBackColor = true -' -'CBTagLesbian -' -Me.CBTagLesbian.AutoSize = true -Me.CBTagLesbian.Enabled = false -Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black -Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) -Me.CBTagLesbian.Name = "CBTagLesbian" -Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBTagLesbian.TabIndex = 206 -Me.CBTagLesbian.Text = "Lesbian" -Me.CBTagLesbian.UseVisualStyleBackColor = true -' -'CBTagSoloFuta -' -Me.CBTagSoloFuta.AutoSize = true -Me.CBTagSoloFuta.Enabled = false -Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) -Me.CBTagSoloFuta.Name = "CBTagSoloFuta" -Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) -Me.CBTagSoloFuta.TabIndex = 207 -Me.CBTagSoloFuta.Text = "Solo Futa" -Me.CBTagSoloFuta.UseVisualStyleBackColor = true -' -'CBTagSM -' -Me.CBTagSM.AutoSize = true -Me.CBTagSM.Enabled = false -Me.CBTagSM.ForeColor = System.Drawing.Color.Black -Me.CBTagSM.Location = New System.Drawing.Point(15, 197) -Me.CBTagSM.Name = "CBTagSM" -Me.CBTagSM.Size = New System.Drawing.Size(48, 17) -Me.CBTagSM.TabIndex = 214 -Me.CBTagSM.Text = "S&&M" -Me.CBTagSM.UseVisualStyleBackColor = true -' -'CBTagBondage -' -Me.CBTagBondage.AutoSize = true -Me.CBTagBondage.Enabled = false -Me.CBTagBondage.ForeColor = System.Drawing.Color.Black -Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) -Me.CBTagBondage.Name = "CBTagBondage" -Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) -Me.CBTagBondage.TabIndex = 209 -Me.CBTagBondage.Text = "Bondage" -Me.CBTagBondage.UseVisualStyleBackColor = true -' -'CBTagSoloM -' -Me.CBTagSoloM.AutoSize = true -Me.CBTagSoloM.Enabled = false -Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) -Me.CBTagSoloM.Name = "CBTagSoloM" -Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) -Me.CBTagSoloM.TabIndex = 213 -Me.CBTagSoloM.Text = "Solo M" -Me.CBTagSoloM.UseVisualStyleBackColor = true -' -'CBTagSoloF -' -Me.CBTagSoloF.AutoSize = true -Me.CBTagSoloF.Enabled = false -Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black -Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) -Me.CBTagSoloF.Name = "CBTagSoloF" -Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) -Me.CBTagSoloF.TabIndex = 210 -Me.CBTagSoloF.Text = "Solo F" -Me.CBTagSoloF.UseVisualStyleBackColor = true -' -'CBTagChastity -' -Me.CBTagChastity.AutoSize = true -Me.CBTagChastity.Enabled = false -Me.CBTagChastity.ForeColor = System.Drawing.Color.Black -Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) -Me.CBTagChastity.Name = "CBTagChastity" -Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) -Me.CBTagChastity.TabIndex = 212 -Me.CBTagChastity.Text = "Chastity" -Me.CBTagChastity.UseVisualStyleBackColor = true -' -'CBTagShower -' -Me.CBTagShower.AutoSize = true -Me.CBTagShower.Enabled = false -Me.CBTagShower.ForeColor = System.Drawing.Color.Black -Me.CBTagShower.Location = New System.Drawing.Point(15, 297) -Me.CBTagShower.Name = "CBTagShower" -Me.CBTagShower.Size = New System.Drawing.Size(62, 17) -Me.CBTagShower.TabIndex = 211 -Me.CBTagShower.Text = "Shower" -Me.CBTagShower.UseVisualStyleBackColor = true -' -'TBLocalTagDir -' -Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) -Me.TBLocalTagDir.Name = "TBLocalTagDir" -Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) -Me.TBLocalTagDir.TabIndex = 233 -Me.TBLocalTagDir.Text = "Enter Image Directory" -' -'BTNLocalTagPrevious -' -Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagPrevious.Enabled = false -Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) -Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" -Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagPrevious.TabIndex = 232 -Me.BTNLocalTagPrevious.Text = "<<" -Me.BTNLocalTagPrevious.UseVisualStyleBackColor = false -' -'BTNLocalTagNext -' -Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray -Me.BTNLocalTagNext.Enabled = false -Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black -Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) -Me.BTNLocalTagNext.Name = "BTNLocalTagNext" -Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) -Me.BTNLocalTagNext.TabIndex = 231 -Me.BTNLocalTagNext.Text = ">>" -Me.BTNLocalTagNext.UseVisualStyleBackColor = false -' -'LBLLocalTagCount -' -Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent -Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLLocalTagCount.Enabled = false -Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black -Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) -Me.LBLLocalTagCount.Name = "LBLLocalTagCount" -Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) -Me.LBLLocalTagCount.TabIndex = 230 -Me.LBLLocalTagCount.Text = "0/0" -Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNLocalTagSave -' -Me.BTNLocalTagSave.Enabled = false -Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) -Me.BTNLocalTagSave.Name = "BTNLocalTagSave" -Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) -Me.BTNLocalTagSave.TabIndex = 229 -Me.BTNLocalTagSave.Text = "Finished" -Me.BTNLocalTagSave.UseVisualStyleBackColor = true -' -'BTNLocalTagDir -' -Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) -Me.BTNLocalTagDir.Name = "BTNLocalTagDir" -Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) -Me.BTNLocalTagDir.TabIndex = 228 -Me.BTNLocalTagDir.Text = "1" -Me.BTNLocalTagDir.UseVisualStyleBackColor = true -' -'TabPage11 -' -Me.TabPage11.BackColor = System.Drawing.Color.Silver -Me.TabPage11.Controls.Add(Me.Panel7) -Me.TabPage11.Location = New System.Drawing.Point(4, 22) -Me.TabPage11.Name = "TabPage11" -Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage11.Size = New System.Drawing.Size(720, 448) -Me.TabPage11.TabIndex = 10 -Me.TabPage11.Text = "URL Files" -' -'Panel7 -' -Me.Panel7.BackColor = System.Drawing.Color.LightGray -Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel7.Controls.Add(Me.BTNWIContinue) -Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) -Me.Panel7.Controls.Add(Me.BTNWICancel) -Me.Panel7.Controls.Add(Me.CBWIReview) -Me.Panel7.Controls.Add(Me.BTNWIBrowse) -Me.Panel7.Controls.Add(Me.TBWIDirectory) -Me.Panel7.Controls.Add(Me.BTNWIDisliked) -Me.Panel7.Controls.Add(Me.BTNWILiked) -Me.Panel7.Controls.Add(Me.BTNWIRemove) -Me.Panel7.Controls.Add(Me.CBWISaveToDisk) -Me.Panel7.Controls.Add(Me.PictureBox5) -Me.Panel7.Controls.Add(Me.WebImageProgressBar) -Me.Panel7.Controls.Add(Me.BTNWICreateURL) -Me.Panel7.Controls.Add(Me.LBLWebImageCount) -Me.Panel7.Controls.Add(Me.BTNWISave) -Me.Panel7.Controls.Add(Me.BTNWIOpenURL) -Me.Panel7.Controls.Add(Me.BTNWIPrevious) -Me.Panel7.Controls.Add(Me.BTNWINext) -Me.Panel7.Controls.Add(Me.WebPictureBox) -Me.Panel7.Controls.Add(Me.Label71) -Me.Panel7.Location = New System.Drawing.Point(6, 6) -Me.Panel7.Name = "Panel7" -Me.Panel7.Size = New System.Drawing.Size(708, 437) -Me.Panel7.TabIndex = 91 -' -'BTNWIContinue -' -Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIContinue.Enabled = false -Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) -Me.BTNWIContinue.Name = "BTNWIContinue" -Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIContinue.TabIndex = 168 -Me.BTNWIContinue.Text = "Continue" -Me.BTNWIContinue.UseVisualStyleBackColor = false -' -'BTNWIAddandContinue -' -Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray -Me.BTNWIAddandContinue.Enabled = false -Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black -Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) -Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" -Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) -Me.BTNWIAddandContinue.TabIndex = 167 -Me.BTNWIAddandContinue.Text = "Add and Continue" -Me.BTNWIAddandContinue.UseVisualStyleBackColor = false -' -'BTNWICancel -' -Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray -Me.BTNWICancel.Enabled = false -Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICancel.ForeColor = System.Drawing.Color.Black -Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) -Me.BTNWICancel.Name = "BTNWICancel" -Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) -Me.BTNWICancel.TabIndex = 166 -Me.BTNWICancel.Text = "Cancel" -Me.BTNWICancel.UseVisualStyleBackColor = false -' -'CBWIReview -' -Me.CBWIReview.Location = New System.Drawing.Point(567, 69) -Me.CBWIReview.Name = "CBWIReview" -Me.CBWIReview.Size = New System.Drawing.Size(124, 30) -Me.CBWIReview.TabIndex = 165 -Me.CBWIReview.Text = "Review Each Image" -Me.CBWIReview.UseVisualStyleBackColor = true -' -'BTNWIBrowse -' -Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray -Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black -Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) -Me.BTNWIBrowse.Name = "BTNWIBrowse" -Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) -Me.BTNWIBrowse.TabIndex = 163 -Me.BTNWIBrowse.Text = "Browse" -Me.BTNWIBrowse.UseVisualStyleBackColor = false -' -'TBWIDirectory -' -Me.TBWIDirectory.BackColor = System.Drawing.Color.White -Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black -Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) -Me.TBWIDirectory.Name = "TBWIDirectory" -Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) -Me.TBWIDirectory.TabIndex = 164 -Me.TBWIDirectory.Text = "Saved Image Directory" -' -'BTNWIDisliked -' -Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray -Me.BTNWIDisliked.Enabled = false -Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black -Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) -Me.BTNWIDisliked.Name = "BTNWIDisliked" -Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) -Me.BTNWIDisliked.TabIndex = 162 -Me.BTNWIDisliked.Text = "Add to Disliked Images" -Me.BTNWIDisliked.UseVisualStyleBackColor = false -' -'BTNWILiked -' -Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray -Me.BTNWILiked.Enabled = false -Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWILiked.ForeColor = System.Drawing.Color.Black -Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) -Me.BTNWILiked.Name = "BTNWILiked" -Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) -Me.BTNWILiked.TabIndex = 161 -Me.BTNWILiked.Text = "Add to Liked Images" -Me.BTNWILiked.UseVisualStyleBackColor = false -' -'BTNWIRemove -' -Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray -Me.BTNWIRemove.Enabled = false -Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black -Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) -Me.BTNWIRemove.Name = "BTNWIRemove" -Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) -Me.BTNWIRemove.TabIndex = 160 -Me.BTNWIRemove.Text = "Remove From URL File" -Me.BTNWIRemove.UseVisualStyleBackColor = false -' -'CBWISaveToDisk -' -Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) -Me.CBWISaveToDisk.Name = "CBWISaveToDisk" -Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) -Me.CBWISaveToDisk.TabIndex = 157 -Me.CBWISaveToDisk.Text = "Save Images to Disk" -Me.CBWISaveToDisk.UseVisualStyleBackColor = true -' -'PictureBox5 -' -Me.PictureBox5.BackColor = System.Drawing.Color.LightGray -Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox5.Location = New System.Drawing.Point(9, 6) -Me.PictureBox5.Name = "PictureBox5" -Me.PictureBox5.Size = New System.Drawing.Size(160, 19) -Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox5.TabIndex = 156 -Me.PictureBox5.TabStop = false -' -'WebImageProgressBar -' -Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) -Me.WebImageProgressBar.Maximum = 2500 -Me.WebImageProgressBar.Name = "WebImageProgressBar" -Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) -Me.WebImageProgressBar.TabIndex = 155 -' -'BTNWICreateURL -' -Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black -Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) -Me.BTNWICreateURL.Name = "BTNWICreateURL" -Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWICreateURL.TabIndex = 154 -Me.BTNWICreateURL.Text = "Create URL File" -Me.BTNWICreateURL.UseVisualStyleBackColor = false -' -'LBLWebImageCount -' -Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent -Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black -Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) -Me.LBLWebImageCount.Name = "LBLWebImageCount" -Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) -Me.LBLWebImageCount.TabIndex = 153 -Me.LBLWebImageCount.Text = "0/0" -Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNWISave -' -Me.BTNWISave.BackColor = System.Drawing.Color.LightGray -Me.BTNWISave.Enabled = false -Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWISave.ForeColor = System.Drawing.Color.Black -Me.BTNWISave.Location = New System.Drawing.Point(567, 401) -Me.BTNWISave.Name = "BTNWISave" -Me.BTNWISave.Size = New System.Drawing.Size(131, 24) -Me.BTNWISave.TabIndex = 152 -Me.BTNWISave.Text = "Save Image to Disk" -Me.BTNWISave.UseVisualStyleBackColor = false -' -'BTNWIOpenURL -' -Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray -Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black -Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) -Me.BTNWIOpenURL.Name = "BTNWIOpenURL" -Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) -Me.BTNWIOpenURL.TabIndex = 151 -Me.BTNWIOpenURL.Text = "Open URL File" -Me.BTNWIOpenURL.UseVisualStyleBackColor = false -' -'BTNWIPrevious -' -Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray -Me.BTNWIPrevious.Enabled = false -Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black -Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) -Me.BTNWIPrevious.Name = "BTNWIPrevious" -Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) -Me.BTNWIPrevious.TabIndex = 149 -Me.BTNWIPrevious.Text = "<<" -Me.BTNWIPrevious.UseVisualStyleBackColor = false -' -'BTNWINext -' -Me.BTNWINext.BackColor = System.Drawing.Color.LightGray -Me.BTNWINext.Enabled = false -Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNWINext.ForeColor = System.Drawing.Color.Black -Me.BTNWINext.Location = New System.Drawing.Point(651, 282) -Me.BTNWINext.Name = "BTNWINext" -Me.BTNWINext.Size = New System.Drawing.Size(47, 24) -Me.BTNWINext.TabIndex = 150 -Me.BTNWINext.Text = ">>" -Me.BTNWINext.UseVisualStyleBackColor = false -' -'WebPictureBox -' -Me.WebPictureBox.BackColor = System.Drawing.Color.Black -Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) -Me.WebPictureBox.Name = "WebPictureBox" -Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) -Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WebPictureBox.TabIndex = 148 -Me.WebPictureBox.TabStop = false -' -'Label71 -' -Me.Label71.BackColor = System.Drawing.Color.Transparent -Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label71.ForeColor = System.Drawing.Color.Black -Me.Label71.Location = New System.Drawing.Point(7, 6) -Me.Label71.Name = "Label71" -Me.Label71.Size = New System.Drawing.Size(692, 21) -Me.Label71.TabIndex = 48 -Me.Label71.Text = "URL Files" -Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TpVideoSettings -' -Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver -Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) -Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) -Me.TpVideoSettings.Name = "TpVideoSettings" -Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) -Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) -Me.TpVideoSettings.TabIndex = 2 -Me.TpVideoSettings.Text = "Video" -' -'PnlVideoSettings -' -Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) -Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) -Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) -Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) -Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill -Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) -Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) -Me.PnlVideoSettings.Name = "PnlVideoSettings" -Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) -Me.PnlVideoSettings.TabIndex = 92 -' -'PbBannerVideoSettings -' -Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray -Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) -Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" -Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) -Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PbBannerVideoSettings.TabIndex = 151 -Me.PbBannerVideoSettings.TabStop = false -' -'BTNRefreshVideos -' -Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray -Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh -Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom -Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 -Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black -Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) -Me.BTNRefreshVideos.Name = "BTNRefreshVideos" -Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) -Me.BTNRefreshVideos.TabIndex = 149 -Me.BTNRefreshVideos.UseVisualStyleBackColor = false -' -'GbxVideoGeneralD -' -Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) -Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) -Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) -Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) -Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" -Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneralD.TabIndex = 5 -Me.GbxVideoGeneralD.TabStop = false -Me.GbxVideoGeneralD.Text = "Domme General" -' -'LblVideoGeneralTotalD -' -Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" -Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotalD.TabIndex = 3 -Me.LblVideoGeneralTotalD.Text = "0" -Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoGeneralD -' -Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" -Me.TxbVideoGeneralD.ReadOnly = true -Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneralD.TabIndex = 2 -Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD -' -'BTNVideoGeneralD -' -Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" -Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneralD.TabIndex = 1 -Me.BTNVideoGeneralD.Text = "1" -Me.BTNVideoGeneralD.UseVisualStyleBackColor = false -' -'CBVideoGeneralD -' -Me.CBVideoGeneralD.AutoSize = true -Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD -Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneralD.Name = "CBVideoGeneralD" -Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneralD.TabIndex = 0 -Me.CBVideoGeneralD.Text = "General" -Me.CBVideoGeneralD.UseVisualStyleBackColor = true -' -'GbxVideoSpecialD -' -Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) -Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) -Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) -Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) -Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" -Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecialD.TabIndex = 4 -Me.GbxVideoSpecialD.TabStop = false -Me.GbxVideoSpecialD.Text = "Domme Special" -' -'LblVideoCHTotalD -' -Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) -Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" -Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotalD.TabIndex = 7 -Me.LblVideoCHTotalD.Text = "0" -Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LblVideoJOITotalD -' -Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" -Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotalD.TabIndex = 3 -Me.LblVideoJOITotalD.Text = "0" -Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoCHD -' -Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.Name = "TxbVideoCHD" -Me.TxbVideoCHD.ReadOnly = true -Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCHD.TabIndex = 6 -Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD -' -'TxbVideoJOID -' -Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.Name = "TxbVideoJOID" -Me.TxbVideoJOID.ReadOnly = true -Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOID.TabIndex = 2 -Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID -' -'BTNVideoCHD -' -Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCHD.Name = "BTNVideoCHD" -Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCHD.TabIndex = 5 -Me.BTNVideoCHD.Text = "1" -Me.BTNVideoCHD.UseVisualStyleBackColor = false -' -'BTNVideoJOID -' -Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOID.Name = "BTNVideoJOID" -Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOID.TabIndex = 1 -Me.BTNVideoJOID.Text = "1" -Me.BTNVideoJOID.UseVisualStyleBackColor = false -' -'CBVideoJOID -' -Me.CBVideoJOID.AutoSize = true -Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID -Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOID.Name = "CBVideoJOID" -Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOID.TabIndex = 0 -Me.CBVideoJOID.Text = "JOI" -Me.CBVideoJOID.UseVisualStyleBackColor = true -' -'CBVideoCHD -' -Me.CBVideoCHD.AutoSize = true -Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD -Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black -Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCHD.Name = "CBVideoCHD" -Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCHD.TabIndex = 4 -Me.CBVideoCHD.Text = "CH" -Me.CBVideoCHD.UseVisualStyleBackColor = true -' -'GbxVideoGenreD -' -Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) -Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) -Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) -Me.GbxVideoGenreD.Name = "GbxVideoGenreD" -Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenreD.TabIndex = 3 -Me.GbxVideoGenreD.TabStop = false -Me.GbxVideoGenreD.Text = "Domme Genre" -' -'LblVideoFemsubTotalD -' -Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" -Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotalD.TabIndex = 23 -Me.LblVideoFemsubTotalD.Text = "0" -Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemsubD -' -Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" -Me.TxbVideoFemsubD.ReadOnly = true -Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsubD.TabIndex = 22 -Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD -' -'LblVideoFemdomTotalD -' -Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" -Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotalD.TabIndex = 19 -Me.LblVideoFemdomTotalD.Text = "0" -Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemdomD -' -Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" -Me.TxbVideoFemdomD.ReadOnly = true -Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdomD.TabIndex = 18 -Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD -' -'TxbVideoBlowjobD -' -Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" -Me.TxbVideoBlowjobD.ReadOnly = true -Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjobD.TabIndex = 14 -Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD -' -'LblVideoBlowjobTotalD -' -Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" -Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotalD.TabIndex = 15 -Me.LblVideoBlowjobTotalD.Text = "0" -Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoLesbianD -' -Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" -Me.TxbVideoLesbianD.ReadOnly = true -Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbianD.TabIndex = 10 -Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD -' -'TxbVideoSoftCoreD -' -Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" -Me.TxbVideoSoftCoreD.ReadOnly = true -Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCoreD.TabIndex = 6 -Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD -' -'LblVideoLesbianTotalD -' -Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" -Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotalD.TabIndex = 11 -Me.LblVideoLesbianTotalD.Text = "0" -Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoHardCoreD -' -Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" -Me.TxbVideoHardCoreD.ReadOnly = true -Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCoreD.TabIndex = 2 -Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD -' -'BTNVideoFemSubD -' -Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" -Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSubD.TabIndex = 21 -Me.BTNVideoFemSubD.Text = "1" -Me.BTNVideoFemSubD.UseVisualStyleBackColor = false -' -'LblVideoSoftCoreTotalD -' -Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" -Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotalD.TabIndex = 7 -Me.LblVideoSoftCoreTotalD.Text = "0" -Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoFemDomD -' -Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" -Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDomD.TabIndex = 17 -Me.BTNVideoFemDomD.Text = "1" -Me.BTNVideoFemDomD.UseVisualStyleBackColor = false -' -'BTNVideoBlowjobD -' -Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" -Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjobD.TabIndex = 13 -Me.BTNVideoBlowjobD.Text = "1" -Me.BTNVideoBlowjobD.UseVisualStyleBackColor = false -' -'LblVideoHardCoreTotalD -' -Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" -Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotalD.TabIndex = 3 -Me.LblVideoHardCoreTotalD.Text = "0" -Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoLesbianD -' -Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" -Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbianD.TabIndex = 9 -Me.BTNVideoLesbianD.Text = "1" -Me.BTNVideoLesbianD.UseVisualStyleBackColor = false -' -'BTNVideoSoftCoreD -' -Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" -Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCoreD.TabIndex = 5 -Me.BTNVideoSoftCoreD.Text = "1" -Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = false -' -'BTNVideoHardCoreD -' -Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" -Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCoreD.TabIndex = 1 -Me.BTNVideoHardCoreD.Text = "1" -Me.BTNVideoHardCoreD.UseVisualStyleBackColor = false -' -'CBVideoHardcoreD -' -Me.CBVideoHardcoreD.AutoSize = true -Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD -Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" -Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcoreD.TabIndex = 0 -Me.CBVideoHardcoreD.Text = "Hardcore" -Me.CBVideoHardcoreD.UseVisualStyleBackColor = true -' -'CBVideoSoftCoreD -' -Me.CBVideoSoftCoreD.AutoSize = true -Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD -Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" -Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCoreD.TabIndex = 4 -Me.CBVideoSoftCoreD.Text = "Softcore" -Me.CBVideoSoftCoreD.UseVisualStyleBackColor = true -' -'CBVideoLesbianD -' -Me.CBVideoLesbianD.AutoSize = true -Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD -Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbianD.Name = "CBVideoLesbianD" -Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbianD.TabIndex = 8 -Me.CBVideoLesbianD.Text = "Lesbian" -Me.CBVideoLesbianD.UseVisualStyleBackColor = true -' -'CBVideoBlowjobD -' -Me.CBVideoBlowjobD.AutoSize = true -Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD -Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" -Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjobD.TabIndex = 12 -Me.CBVideoBlowjobD.Text = "Blowjob" -Me.CBVideoBlowjobD.UseVisualStyleBackColor = true -' -'CBVideoFemsubD -' -Me.CBVideoFemsubD.AutoSize = true -Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD -Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsubD.Name = "CBVideoFemsubD" -Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsubD.TabIndex = 20 -Me.CBVideoFemsubD.Text = "Femsub" -Me.CBVideoFemsubD.UseVisualStyleBackColor = true -' -'CBVideoFemdomD -' -Me.CBVideoFemdomD.AutoSize = true -Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD -Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdomD.Name = "CBVideoFemdomD" -Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdomD.TabIndex = 16 -Me.CBVideoFemdomD.Text = "Femdom" -Me.CBVideoFemdomD.UseVisualStyleBackColor = true -' -'GbxVideoDescription -' -Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) -Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black -Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) -Me.GbxVideoDescription.Name = "GbxVideoDescription" -Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) -Me.GbxVideoDescription.TabIndex = 6 -Me.GbxVideoDescription.TabStop = false -Me.GbxVideoDescription.Text = "Description" -' -'VideoDescriptionLabel -' -Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent -Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black -Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) -Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" -Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) -Me.VideoDescriptionLabel.TabIndex = 62 -Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei"& _ - "r paths."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"The Domme Genre paths are for videos that feature the model you are "& _ - "using as your domme." -Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GbxVideoGeneral -' -Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) -Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) -Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) -Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) -Me.GbxVideoGeneral.Name = "GbxVideoGeneral" -Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) -Me.GbxVideoGeneral.TabIndex = 2 -Me.GbxVideoGeneral.TabStop = false -Me.GbxVideoGeneral.Text = "General" -' -'LblVideoGeneralTotal -' -Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" -Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoGeneralTotal.TabIndex = 3 -Me.LblVideoGeneralTotal.Text = "0" -Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoGeneral -' -Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.Name = "TxbVideoGeneral" -Me.TxbVideoGeneral.ReadOnly = true -Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoGeneral.TabIndex = 2 -Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral -' -'BTNVideoGeneral -' -Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoGeneral.Name = "BTNVideoGeneral" -Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoGeneral.TabIndex = 1 -Me.BTNVideoGeneral.Text = "1" -Me.BTNVideoGeneral.UseVisualStyleBackColor = false -' -'CBVideoGeneral -' -Me.CBVideoGeneral.AutoSize = true -Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral -Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black -Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) -Me.CBVideoGeneral.Name = "CBVideoGeneral" -Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) -Me.CBVideoGeneral.TabIndex = 0 -Me.CBVideoGeneral.Text = "General" -Me.CBVideoGeneral.UseVisualStyleBackColor = true -' -'GbxVideoSpecial -' -Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) -Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) -Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) -Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) -Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black -Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) -Me.GbxVideoSpecial.Name = "GbxVideoSpecial" -Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) -Me.GbxVideoSpecial.TabIndex = 1 -Me.GbxVideoSpecial.TabStop = false -Me.GbxVideoSpecial.Text = "Special" -' -'LblVideoCHTotal -' -Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) -Me.LblVideoCHTotal.Name = "LblVideoCHTotal" -Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoCHTotal.TabIndex = 7 -Me.LblVideoCHTotal.Text = "0" -Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LblVideoJOITotal -' -Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) -Me.LblVideoJOITotal.Name = "LblVideoJOITotal" -Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoJOITotal.TabIndex = 3 -Me.LblVideoJOITotal.Text = "0" -Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoCH -' -Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black -Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) -Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.Name = "TxbVideoCH" -Me.TxbVideoCH.ReadOnly = true -Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoCH.TabIndex = 6 -Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH -' -'TxbVideoJOI -' -Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black -Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) -Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.Name = "TxbVideoJOI" -Me.TxbVideoJOI.ReadOnly = true -Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoJOI.TabIndex = 2 -Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI -' -'BTNVideoCH -' -Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black -Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoCH.Name = "BTNVideoCH" -Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoCH.TabIndex = 5 -Me.BTNVideoCH.Text = "1" -Me.BTNVideoCH.UseVisualStyleBackColor = false -' -'BTNVideoJOI -' -Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black -Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) -Me.BTNVideoJOI.Name = "BTNVideoJOI" -Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoJOI.TabIndex = 1 -Me.BTNVideoJOI.Text = "1" -Me.BTNVideoJOI.UseVisualStyleBackColor = false -' -'CBVideoJOI -' -Me.CBVideoJOI.AutoSize = true -Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI -Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black -Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) -Me.CBVideoJOI.Name = "CBVideoJOI" -Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) -Me.CBVideoJOI.TabIndex = 0 -Me.CBVideoJOI.Text = "JOI" -Me.CBVideoJOI.UseVisualStyleBackColor = true -' -'CBVideoCH -' -Me.CBVideoCH.AutoSize = true -Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH -Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoCH.ForeColor = System.Drawing.Color.Black -Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) -Me.CBVideoCH.Name = "CBVideoCH" -Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) -Me.CBVideoCH.TabIndex = 4 -Me.CBVideoCH.Text = "CH" -Me.CBVideoCH.UseVisualStyleBackColor = true -' -'GbxVideoGenre -' -Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) -Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) -Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) -Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black -Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) -Me.GbxVideoGenre.Name = "GbxVideoGenre" -Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) -Me.GbxVideoGenre.TabIndex = 0 -Me.GbxVideoGenre.TabStop = false -Me.GbxVideoGenre.Text = "Genre" -' -'LblVideoFemsubTotal -' -Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) -Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" -Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemsubTotal.TabIndex = 23 -Me.LblVideoFemsubTotal.Text = "0" -Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemsub -' -Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) -Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.Name = "TxbVideoFemsub" -Me.TxbVideoFemsub.ReadOnly = true -Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemsub.TabIndex = 22 -Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub -' -'LblVideoFemdomTotal -' -Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) -Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" -Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoFemdomTotal.TabIndex = 19 -Me.LblVideoFemdomTotal.Text = "0" -Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoFemdom -' -Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) -Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.Name = "TxbVideoFemdom" -Me.TxbVideoFemdom.ReadOnly = true -Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoFemdom.TabIndex = 18 -Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom -' -'TxbVideoBlowjob -' -Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) -Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" -Me.TxbVideoBlowjob.ReadOnly = true -Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoBlowjob.TabIndex = 14 -Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob -' -'LblVideoBlowjobTotal -' -Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) -Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" -Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoBlowjobTotal.TabIndex = 15 -Me.LblVideoBlowjobTotal.Text = "0" -Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoLesbian -' -Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) -Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.Name = "TxbVideoLesbian" -Me.TxbVideoLesbian.ReadOnly = true -Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoLesbian.TabIndex = 10 -Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian -' -'TxbVideoSoftCore -' -Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) -Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" -Me.TxbVideoSoftCore.ReadOnly = true -Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoSoftCore.TabIndex = 6 -Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore -' -'LblVideoLesbianTotal -' -Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) -Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" -Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoLesbianTotal.TabIndex = 11 -Me.LblVideoLesbianTotal.Text = "0" -Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TxbVideoHardCore -' -Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) -Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) -Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.Name = "TxbVideoHardCore" -Me.TxbVideoHardCore.ReadOnly = true -Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) -Me.TxbVideoHardCore.TabIndex = 2 -Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore -' -'BTNVideoFemSub -' -Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) -Me.BTNVideoFemSub.Name = "BTNVideoFemSub" -Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemSub.TabIndex = 21 -Me.BTNVideoFemSub.Text = "1" -Me.BTNVideoFemSub.UseVisualStyleBackColor = false -' -'LblVideoSoftCoreTotal -' -Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) -Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" -Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoSoftCoreTotal.TabIndex = 7 -Me.LblVideoSoftCoreTotal.Text = "0" -Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoFemDom -' -Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black -Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) -Me.BTNVideoFemDom.Name = "BTNVideoFemDom" -Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoFemDom.TabIndex = 17 -Me.BTNVideoFemDom.Text = "1" -Me.BTNVideoFemDom.UseVisualStyleBackColor = false -' -'BTNVideoBlowjob -' -Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) -Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" -Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoBlowjob.TabIndex = 13 -Me.BTNVideoBlowjob.Text = "1" -Me.BTNVideoBlowjob.UseVisualStyleBackColor = false -' -'LblVideoHardCoreTotal -' -Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black -Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) -Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" -Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) -Me.LblVideoHardCoreTotal.TabIndex = 3 -Me.LblVideoHardCoreTotal.Text = "0" -Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoLesbian -' -Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) -Me.BTNVideoLesbian.Name = "BTNVideoLesbian" -Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoLesbian.TabIndex = 9 -Me.BTNVideoLesbian.Text = "1" -Me.BTNVideoLesbian.UseVisualStyleBackColor = false -' -'BTNVideoSoftCore -' -Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) -Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" -Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoSoftCore.TabIndex = 5 -Me.BTNVideoSoftCore.Text = "1" -Me.BTNVideoSoftCore.UseVisualStyleBackColor = false -' -'BTNVideoHardCore -' -Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray -Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black -Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) -Me.BTNVideoHardCore.Name = "BTNVideoHardCore" -Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) -Me.BTNVideoHardCore.TabIndex = 1 -Me.BTNVideoHardCore.Text = "1" -Me.BTNVideoHardCore.UseVisualStyleBackColor = false -' -'CBVideoHardcore -' -Me.CBVideoHardcore.AutoSize = true -Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore -Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black -Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) -Me.CBVideoHardcore.Name = "CBVideoHardcore" -Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) -Me.CBVideoHardcore.TabIndex = 0 -Me.CBVideoHardcore.Text = "Hardcore" -Me.CBVideoHardcore.UseVisualStyleBackColor = true -' -'CBVideoSoftCore -' -Me.CBVideoSoftCore.AutoSize = true -Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore -Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black -Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) -Me.CBVideoSoftCore.Name = "CBVideoSoftCore" -Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) -Me.CBVideoSoftCore.TabIndex = 4 -Me.CBVideoSoftCore.Text = "Softcore" -Me.CBVideoSoftCore.UseVisualStyleBackColor = true -' -'CBVideoLesbian -' -Me.CBVideoLesbian.AutoSize = true -Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian -Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black -Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) -Me.CBVideoLesbian.Name = "CBVideoLesbian" -Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) -Me.CBVideoLesbian.TabIndex = 8 -Me.CBVideoLesbian.Text = "Lesbian" -Me.CBVideoLesbian.UseVisualStyleBackColor = true -' -'CBVideoBlowjob -' -Me.CBVideoBlowjob.AutoSize = true -Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob -Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black -Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) -Me.CBVideoBlowjob.Name = "CBVideoBlowjob" -Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) -Me.CBVideoBlowjob.TabIndex = 12 -Me.CBVideoBlowjob.Text = "Blowjob" -Me.CBVideoBlowjob.UseVisualStyleBackColor = true -' -'CBVideoFemsub -' -Me.CBVideoFemsub.AutoSize = true -Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub -Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) -Me.CBVideoFemsub.Name = "CBVideoFemsub" -Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) -Me.CBVideoFemsub.TabIndex = 20 -Me.CBVideoFemsub.Text = "Femsub" -Me.CBVideoFemsub.UseVisualStyleBackColor = true -' -'CBVideoFemdom -' -Me.CBVideoFemdom.AutoSize = true -Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom -Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black -Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) -Me.CBVideoFemdom.Name = "CBVideoFemdom" -Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) -Me.CBVideoFemdom.TabIndex = 16 -Me.CBVideoFemdom.Text = "Femdom" -Me.CBVideoFemdom.UseVisualStyleBackColor = true -' -'LblVideoHeader -' -Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent -Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black -Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) -Me.LblVideoHeader.Name = "LblVideoHeader" -Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) -Me.LblVideoHeader.TabIndex = 49 -Me.LblVideoHeader.Text = "Video Settings" -Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage20 -' -Me.TabPage20.BackColor = System.Drawing.Color.Silver -Me.TabPage20.Controls.Add(Me.TabControl1) -Me.TabPage20.Location = New System.Drawing.Point(4, 22) -Me.TabPage20.Name = "TabPage20" -Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage20.Size = New System.Drawing.Size(720, 448) -Me.TabPage20.TabIndex = 16 -Me.TabPage20.Text = "Apps" -' -'TabControl1 -' -Me.TabControl1.Controls.Add(Me.TabPage22) -Me.TabControl1.Controls.Add(Me.TpGames) -Me.TabControl1.Controls.Add(Me.TabPage6) -Me.TabControl1.Location = New System.Drawing.Point(6, 6) -Me.TabControl1.Name = "TabControl1" -Me.TabControl1.SelectedIndex = 0 -Me.TabControl1.Size = New System.Drawing.Size(708, 437) -Me.TabControl1.TabIndex = 0 -' -'TabPage22 -' -Me.TabPage22.BackColor = System.Drawing.Color.LightGray -Me.TabPage22.Controls.Add(Me.PNLGlitter) -Me.TabPage22.Location = New System.Drawing.Point(4, 22) -Me.TabPage22.Name = "TabPage22" -Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage22.Size = New System.Drawing.Size(700, 411) -Me.TabPage22.TabIndex = 0 -Me.TabPage22.Text = "Glitter" -' -'PNLGlitter -' -Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray -Me.PNLGlitter.Controls.Add(Me.GroupBox14) -Me.PNLGlitter.Controls.Add(Me.GroupBox4) -Me.PNLGlitter.Controls.Add(Me.Button15) -Me.PNLGlitter.Controls.Add(Me.Button16) -Me.PNLGlitter.Controls.Add(Me.Label121) -Me.PNLGlitter.Controls.Add(Me.Label122) -Me.PNLGlitter.Controls.Add(Me.GBGlitterD) -Me.PNLGlitter.Controls.Add(Me.GBGlitter1) -Me.PNLGlitter.Controls.Add(Me.GBGlitter3) -Me.PNLGlitter.Controls.Add(Me.GBGlitter2) -Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) -Me.PNLGlitter.Name = "PNLGlitter" -Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) -Me.PNLGlitter.TabIndex = 91 -' -'GroupBox14 -' -Me.GroupBox14.BackColor = System.Drawing.Color.LightGray -Me.GroupBox14.Controls.Add(Me.Label170) -Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) -Me.GroupBox14.Controls.Add(Me.RandomHonorific) -Me.GroupBox14.Location = New System.Drawing.Point(355, 307) -Me.GroupBox14.Name = "GroupBox14" -Me.GroupBox14.Size = New System.Drawing.Size(306, 85) -Me.GroupBox14.TabIndex = 182 -Me.GroupBox14.TabStop = false -Me.GroupBox14.Text = "General Contact Settings" -' -'Label170 -' -Me.Label170.Location = New System.Drawing.Point(4, 52) -Me.Label170.Name = "Label170" -Me.Label170.Size = New System.Drawing.Size(142, 18) -Me.Label170.TabIndex = 28 -Me.Label170.Text = "Random Domme Honorific:" -Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'alwaysNewSlideshow -' -Me.alwaysNewSlideshow.AutoSize = true -Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black -Me.alwaysNewSlideshow.Location = New System.Drawing.Point(10, 24) -Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" -Me.alwaysNewSlideshow.Size = New System.Drawing.Size(294, 17) -Me.alwaysNewSlideshow.TabIndex = 151 -Me.alwaysNewSlideshow.Text = "Always Load New Slideshow When Using @AddContact" -Me.alwaysNewSlideshow.UseVisualStyleBackColor = true -' -'RandomHonorific -' -Me.RandomHonorific.BackColor = System.Drawing.Color.White -Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.RandomHonorific.Location = New System.Drawing.Point(149, 51) -Me.RandomHonorific.Name = "RandomHonorific" -Me.RandomHonorific.Size = New System.Drawing.Size(143, 20) -Me.RandomHonorific.TabIndex = 187 -Me.RandomHonorific.Text = "Mistress" -Me.RandomHonorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GroupBox4 -' -Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) -Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) -Me.GroupBox4.Location = New System.Drawing.Point(7, 307) -Me.GroupBox4.Name = "GroupBox4" -Me.GroupBox4.Size = New System.Drawing.Size(344, 85) -Me.GroupBox4.TabIndex = 167 -Me.GroupBox4.TabStop = false -Me.GroupBox4.Text = "Change Current Domme" -' -'LBLCurrentDomme -' -Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) -Me.LBLCurrentDomme.Name = "LBLCurrentDomme" -Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) -Me.LBLCurrentDomme.TabIndex = 168 -Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDomChangeContact1 -' -Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) -Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" -Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact1.TabIndex = 173 -Me.BTNDomChangeContact1.Text = "Contact 1" -Me.BTNDomChangeContact1.UseVisualStyleBackColor = false -' -'BTNDomChangeRandom -' -Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) -Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" -Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeRandom.TabIndex = 172 -Me.BTNDomChangeRandom.Text = "Random" -Me.BTNDomChangeRandom.UseVisualStyleBackColor = false -' -'BTNDomChangeContact3 -' -Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) -Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" -Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact3.TabIndex = 171 -Me.BTNDomChangeContact3.Text = "Contact 3" -Me.BTNDomChangeContact3.UseVisualStyleBackColor = false -' -'BTNDomChangeContact2 -' -Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) -Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" -Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeContact2.TabIndex = 170 -Me.BTNDomChangeContact2.Text = "Contact 2" -Me.BTNDomChangeContact2.UseVisualStyleBackColor = false -' -'BTNDomChangeDomme -' -Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray -Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black -Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) -Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" -Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) -Me.BTNDomChangeDomme.TabIndex = 168 -Me.BTNDomChangeDomme.Text = "Domme" -Me.BTNDomChangeDomme.UseVisualStyleBackColor = false -' -'Button15 -' -Me.Button15.BackColor = System.Drawing.Color.LightGray -Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export -Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button15.FlatAppearance.BorderSize = 0 -Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button15.ForeColor = System.Drawing.Color.Black -Me.Button15.Location = New System.Drawing.Point(670, 366) -Me.Button15.Name = "Button15" -Me.Button15.Size = New System.Drawing.Size(30, 26) -Me.Button15.TabIndex = 163 -Me.Button15.UseVisualStyleBackColor = false -' -'Button16 -' -Me.Button16.BackColor = System.Drawing.Color.LightGray -Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save -Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button16.FlatAppearance.BorderSize = 0 -Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray -Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver -Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat -Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button16.ForeColor = System.Drawing.Color.Black -Me.Button16.Location = New System.Drawing.Point(667, 324) -Me.Button16.Name = "Button16" -Me.Button16.Size = New System.Drawing.Size(30, 26) -Me.Button16.TabIndex = 164 -Me.Button16.UseVisualStyleBackColor = false -' -'Label121 -' -Me.Label121.AutoSize = true -Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label121.ForeColor = System.Drawing.Color.Black -Me.Label121.Location = New System.Drawing.Point(669, 352) -Me.Label121.Name = "Label121" -Me.Label121.Size = New System.Drawing.Size(27, 13) -Me.Label121.TabIndex = 166 -Me.Label121.Text = "load" -Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label122 -' -Me.Label122.AutoSize = true -Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label122.ForeColor = System.Drawing.Color.Black -Me.Label122.Location = New System.Drawing.Point(667, 313) -Me.Label122.Name = "Label122" -Me.Label122.Size = New System.Drawing.Size(30, 13) -Me.Label122.TabIndex = 165 -Me.Label122.Text = "save" -Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GBGlitterD -' -Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray -Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) -Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) -Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom2) -Me.GBGlitterD.Controls.Add(Me.GlitterSlider) -Me.GBGlitterD.Controls.Add(Me.CBCustom1) -Me.GBGlitterD.Controls.Add(Me.CBDaily) -Me.GBGlitterD.Controls.Add(Me.CBTrivia) -Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) -Me.GBGlitterD.Controls.Add(Me.CBEgotist) -Me.GBGlitterD.Controls.Add(Me.CBTease) -Me.GBGlitterD.Controls.Add(Me.GlitterAV) -Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) -Me.GBGlitterD.Name = "GBGlitterD" -Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) -Me.GBGlitterD.TabIndex = 162 -Me.GBGlitterD.TabStop = false -Me.GBGlitterD.Text = "Domme" -' -'GrbGlitterfeed -' -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) -Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) -Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) -Me.GrbGlitterfeed.Name = "GrbGlitterfeed" -Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) -Me.GrbGlitterfeed.TabIndex = 168 -Me.GrbGlitterfeed.TabStop = false -Me.GrbGlitterfeed.Text = "Glitterfeeds" -' -'CBGlitterFeedScripts -' -Me.CBGlitterFeedScripts.AutoSize = true -Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent -Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts -Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", true)) -Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) -Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" -Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) -Me.CBGlitterFeedScripts.TabIndex = 146 -Me.CBGlitterFeedScripts.Text = "Scripts" -Me.CBGlitterFeedScripts.UseVisualStyleBackColor = false -' -'CBGlitterFeed -' -Me.CBGlitterFeed.AutoSize = true -Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed -Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", true)) -Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) -Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) -Me.CBGlitterFeed.Name = "CBGlitterFeed" -Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeed.TabIndex = 145 -Me.CBGlitterFeed.Text = "On" -Me.CBGlitterFeed.UseVisualStyleBackColor = true -' -'CBGlitterFeedOff -' -Me.CBGlitterFeedOff.AutoSize = true -Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff -Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", true)) -Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) -Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) -Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" -Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) -Me.CBGlitterFeedOff.TabIndex = 147 -Me.CBGlitterFeedOff.TabStop = true -Me.CBGlitterFeedOff.Text = "Off" -Me.CBGlitterFeedOff.UseVisualStyleBackColor = true -' -'BTNGlitterD -' -Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black -Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) -Me.BTNGlitterD.Name = "BTNGlitterD" -Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) -Me.BTNGlitterD.TabIndex = 166 -Me.BTNGlitterD.Text = "Choose Name Color" -Me.BTNGlitterD.UseVisualStyleBackColor = false -' -'LBLGlitterNCDomme -' -Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White -Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor -Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) -Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" -Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) -Me.LBLGlitterNCDomme.TabIndex = 163 -Me.LBLGlitterNCDomme.Text = "Preview" -Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider -' -Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider.Name = "LBLGlitterSlider" -Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider.TabIndex = 162 -Me.LBLGlitterSlider.Text = "Post Frequency" -Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBCustom2 -' -Me.CBCustom2.AutoSize = true -Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CBCustom2 -Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCustom2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom2.ForeColor = System.Drawing.Color.Black -Me.CBCustom2.Location = New System.Drawing.Point(149, 121) -Me.CBCustom2.Name = "CBCustom2" -Me.CBCustom2.Size = New System.Drawing.Size(70, 17) -Me.CBCustom2.TabIndex = 161 -Me.CBCustom2.Text = "Custom 2" -Me.CBCustom2.UseVisualStyleBackColor = true -' -'GlitterSlider -' -Me.GlitterSlider.AutoSize = false -Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider.LargeChange = 1 -Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider.Maximum = 9 -Me.GlitterSlider.Minimum = 1 -Me.GlitterSlider.Name = "GlitterSlider" -Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider.TabIndex = 160 -Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider -' -'CBCustom1 -' -Me.CBCustom1.AutoSize = true -Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CBCustom1 -Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCustom1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCustom1.ForeColor = System.Drawing.Color.Black -Me.CBCustom1.Location = New System.Drawing.Point(149, 98) -Me.CBCustom1.Name = "CBCustom1" -Me.CBCustom1.Size = New System.Drawing.Size(70, 17) -Me.CBCustom1.TabIndex = 157 -Me.CBCustom1.Text = "Custom 1" -Me.CBCustom1.UseVisualStyleBackColor = true -' -'CBDaily -' -Me.CBDaily.AutoSize = true -Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily -Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBDaily.ForeColor = System.Drawing.Color.Black -Me.CBDaily.Location = New System.Drawing.Point(79, 121) -Me.CBDaily.Name = "CBDaily" -Me.CBDaily.Size = New System.Drawing.Size(49, 17) -Me.CBDaily.TabIndex = 156 -Me.CBDaily.Text = "Daily" -Me.CBDaily.UseVisualStyleBackColor = true -' -'CBTrivia -' -Me.CBTrivia.AutoSize = true -Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia -Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTrivia.ForeColor = System.Drawing.Color.Black -Me.CBTrivia.Location = New System.Drawing.Point(79, 98) -Me.CBTrivia.Name = "CBTrivia" -Me.CBTrivia.Size = New System.Drawing.Size(52, 17) -Me.CBTrivia.TabIndex = 155 -Me.CBTrivia.Text = "Trivia" -Me.CBTrivia.UseVisualStyleBackColor = true -' -'TBGlitterShortName -' -Me.TBGlitterShortName.BackColor = System.Drawing.Color.White -Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black -Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) -Me.TBGlitterShortName.Name = "TBGlitterShortName" -Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) -Me.TBGlitterShortName.TabIndex = 49 -Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN -Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'CBEgotist -' -Me.CBEgotist.AutoSize = true -Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist -Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBEgotist.ForeColor = System.Drawing.Color.Black -Me.CBEgotist.Location = New System.Drawing.Point(9, 121) -Me.CBEgotist.Name = "CBEgotist" -Me.CBEgotist.Size = New System.Drawing.Size(58, 17) -Me.CBEgotist.TabIndex = 153 -Me.CBEgotist.Text = "Egotist" -Me.CBEgotist.UseVisualStyleBackColor = true -' -'CBTease -' -Me.CBTease.AutoSize = true -Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease -Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBTease.ForeColor = System.Drawing.Color.Black -Me.CBTease.Location = New System.Drawing.Point(9, 98) -Me.CBTease.Name = "CBTease" -Me.CBTease.Size = New System.Drawing.Size(56, 17) -Me.CBTease.TabIndex = 152 -Me.CBTease.Text = "Tease" -Me.CBTease.UseVisualStyleBackColor = true -' -'GlitterAV -' -Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV.Name = "GlitterAV" -Me.GlitterAV.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV.TabIndex = 149 -Me.GlitterAV.TabStop = false -' -'GBGlitter1 -' -Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter1.Controls.Add(Me.Label167) -Me.GBGlitter1.Controls.Add(Me.G1Honorific) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) -Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) -Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) -Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) -Me.GBGlitter1.Controls.Add(Me.CBGlitter1) -Me.GBGlitter1.Controls.Add(Me.TBGlitter1) -Me.GBGlitter1.Controls.Add(Me.GlitterAV1) -Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) -Me.GBGlitter1.Name = "GBGlitter1" -Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter1.TabIndex = 161 -Me.GBGlitter1.TabStop = false -Me.GBGlitter1.Text = "Contact 1" -' -'Label167 -' -Me.Label167.BackColor = System.Drawing.Color.Transparent -Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label167.ForeColor = System.Drawing.Color.Black -Me.Label167.Location = New System.Drawing.Point(220, 15) -Me.Label167.Name = "Label167" -Me.Label167.Size = New System.Drawing.Size(114, 19) -Me.Label167.TabIndex = 182 -Me.Label167.Text = "Contact Honorific" -Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'G1Honorific -' -Me.G1Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G1Honorific.Location = New System.Drawing.Point(220, 34) -Me.G1Honorific.Name = "G1Honorific" -Me.G1Honorific.Size = New System.Drawing.Size(116, 23) -Me.G1Honorific.TabIndex = 0 -Me.G1Honorific.Text = "Mistress" -Me.G1Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BtnContact1ImageDirClear -' -Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" -Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact1ImageDirClear.TabIndex = 181 -Me.BtnContact1ImageDirClear.Text = "Clear" -Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = false -' -'BtnContact1ImageDir -' -Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" -Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact1ImageDir.TabIndex = 177 -Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" -Me.BtnContact1ImageDir.UseVisualStyleBackColor = false -' -'TbxContact1ImageDir -' -Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" -Me.TbxContact1ImageDir.ReadOnly = true -Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact1ImageDir.TabIndex = 176 -Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir -' -'BTNGlitter1 -' -Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter1.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter1.Name = "BTNGlitter1" -Me.BTNGlitter1.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter1.TabIndex = 175 -Me.BTNGlitter1.Text = "Choose Name Color" -Me.BTNGlitter1.UseVisualStyleBackColor = false -' -'LBLGlitterNC1 -' -Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color -Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC1.Name = "LBLGlitterNC1" -Me.LBLGlitterNC1.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC1.TabIndex = 166 -Me.LBLGlitterNC1.Text = "Preview" -Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider1 -' -Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" -Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider1.TabIndex = 163 -Me.LBLGlitterSlider1.Text = "Response Frequency" -Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GlitterSlider1 -' -Me.GlitterSlider1.AutoSize = false -Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider1.LargeChange = 1 -Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider1.Maximum = 9 -Me.GlitterSlider1.Minimum = 1 -Me.GlitterSlider1.Name = "GlitterSlider1" -Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider1.TabIndex = 161 -Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider -' -'CBGlitter1 -' -Me.CBGlitter1.AutoSize = true -Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 -Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter1.ForeColor = System.Drawing.Color.Black -Me.CBGlitter1.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter1.Name = "CBGlitter1" -Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter1.TabIndex = 151 -Me.CBGlitter1.Text = "Enable This Contact" -Me.CBGlitter1.UseVisualStyleBackColor = true -' -'TBGlitter1 -' -Me.TBGlitter1.BackColor = System.Drawing.Color.White -Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter1.ForeColor = System.Drawing.Color.Black -Me.TBGlitter1.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter1.Name = "TBGlitter1" -Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter1.TabIndex = 49 -Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 -Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GlitterAV1 -' -Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV1.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV1.Name = "GlitterAV1" -Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV1.TabIndex = 149 -Me.GlitterAV1.TabStop = false -' -'GBGlitter3 -' -Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter3.Controls.Add(Me.Label168) -Me.GBGlitter3.Controls.Add(Me.G3Honorific) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) -Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) -Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) -Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) -Me.GBGlitter3.Controls.Add(Me.CBGlitter3) -Me.GBGlitter3.Controls.Add(Me.TBGlitter3) -Me.GBGlitter3.Controls.Add(Me.GlitterAV3) -Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) -Me.GBGlitter3.Name = "GBGlitter3" -Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter3.TabIndex = 160 -Me.GBGlitter3.TabStop = false -Me.GBGlitter3.Text = "Contact 3" -' -'Label168 -' -Me.Label168.BackColor = System.Drawing.Color.Transparent -Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label168.ForeColor = System.Drawing.Color.Black -Me.Label168.Location = New System.Drawing.Point(220, 15) -Me.Label168.Name = "Label168" -Me.Label168.Size = New System.Drawing.Size(114, 19) -Me.Label168.TabIndex = 181 -Me.Label168.Text = "Contact Honorific" -Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'G3Honorific -' -Me.G3Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G3Honorific.Location = New System.Drawing.Point(220, 34) -Me.G3Honorific.Name = "G3Honorific" -Me.G3Honorific.Size = New System.Drawing.Size(115, 23) -Me.G3Honorific.TabIndex = 0 -Me.G3Honorific.Text = "Mistress" -Me.G3Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BtnContact3ImageDirClear -' -Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" -Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact3ImageDirClear.TabIndex = 180 -Me.BtnContact3ImageDirClear.Text = "Clear" -Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = false -' -'BtnContact3ImageDir -' -Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" -Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact3ImageDir.TabIndex = 179 -Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" -Me.BtnContact3ImageDir.UseVisualStyleBackColor = false -' -'TbxContact3ImageDir -' -Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" -Me.TbxContact3ImageDir.ReadOnly = true -Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact3ImageDir.TabIndex = 178 -Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir -' -'BTNGlitter3 -' -Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter3.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter3.Name = "BTNGlitter3" -Me.BTNGlitter3.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter3.TabIndex = 175 -Me.BTNGlitter3.Text = "Choose Name Color" -Me.BTNGlitter3.UseVisualStyleBackColor = false -' -'LBLGlitterNC3 -' -Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color -Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC3.Name = "LBLGlitterNC3" -Me.LBLGlitterNC3.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC3.TabIndex = 166 -Me.LBLGlitterNC3.Text = "Preview" -Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider3 -' -Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" -Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider3.TabIndex = 163 -Me.LBLGlitterSlider3.Text = "Response Frequency" -Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GlitterSlider3 -' -Me.GlitterSlider3.AutoSize = false -Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider3.LargeChange = 1 -Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider3.Maximum = 9 -Me.GlitterSlider3.Minimum = 1 -Me.GlitterSlider3.Name = "GlitterSlider3" -Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider3.TabIndex = 161 -Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider -' -'CBGlitter3 -' -Me.CBGlitter3.AutoSize = true -Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 -Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter3.ForeColor = System.Drawing.Color.Black -Me.CBGlitter3.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter3.Name = "CBGlitter3" -Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter3.TabIndex = 151 -Me.CBGlitter3.Text = "Enable This Contact" -Me.CBGlitter3.UseVisualStyleBackColor = true -' -'TBGlitter3 -' -Me.TBGlitter3.BackColor = System.Drawing.Color.White -Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter3.ForeColor = System.Drawing.Color.Black -Me.TBGlitter3.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter3.Name = "TBGlitter3" -Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter3.TabIndex = 49 -Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 -Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GlitterAV3 -' -Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV3.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV3.Name = "GlitterAV3" -Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV3.TabIndex = 149 -Me.GlitterAV3.TabStop = false -' -'GBGlitter2 -' -Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray -Me.GBGlitter2.Controls.Add(Me.Label169) -Me.GBGlitter2.Controls.Add(Me.G2Honorific) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) -Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) -Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) -Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) -Me.GBGlitter2.Controls.Add(Me.CBGlitter2) -Me.GBGlitter2.Controls.Add(Me.TBGlitter2) -Me.GBGlitter2.Controls.Add(Me.GlitterAV2) -Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) -Me.GBGlitter2.Name = "GBGlitter2" -Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) -Me.GBGlitter2.TabIndex = 151 -Me.GBGlitter2.TabStop = false -Me.GBGlitter2.Text = "Contact 2" -' -'Label169 -' -Me.Label169.BackColor = System.Drawing.Color.Transparent -Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label169.ForeColor = System.Drawing.Color.Black -Me.Label169.Location = New System.Drawing.Point(220, 15) -Me.Label169.Name = "Label169" -Me.Label169.Size = New System.Drawing.Size(114, 19) -Me.Label169.TabIndex = 182 -Me.Label169.Text = "Contact Honorific" -Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'G2Honorific -' -Me.G2Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.G2Honorific.Location = New System.Drawing.Point(220, 34) -Me.G2Honorific.Name = "G2Honorific" -Me.G2Honorific.Size = New System.Drawing.Size(115, 23) -Me.G2Honorific.TabIndex = 0 -Me.G2Honorific.Text = "Mistress" -Me.G2Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BtnContact2ImageDirClear -' -Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) -Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" -Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnContact2ImageDirClear.TabIndex = 181 -Me.BtnContact2ImageDirClear.Text = "Clear" -Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = false -' -'BtnContact2ImageDir -' -Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) -Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" -Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) -Me.BtnContact2ImageDir.TabIndex = 179 -Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" -Me.BtnContact2ImageDir.UseVisualStyleBackColor = false -' -'TbxContact2ImageDir -' -Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray -Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black -Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) -Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) -Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" -Me.TbxContact2ImageDir.ReadOnly = true -Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) -Me.TbxContact2ImageDir.TabIndex = 178 -Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir -' -'BTNGlitter2 -' -Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray -Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black -Me.BTNGlitter2.Location = New System.Drawing.Point(78, 64) -Me.BTNGlitter2.Name = "BTNGlitter2" -Me.BTNGlitter2.Size = New System.Drawing.Size(136, 23) -Me.BTNGlitter2.TabIndex = 167 -Me.BTNGlitter2.Text = "Choose Name Color" -Me.BTNGlitter2.UseVisualStyleBackColor = false -' -'LBLGlitterNC2 -' -Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White -Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color -Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 64) -Me.LBLGlitterNC2.Name = "LBLGlitterNC2" -Me.LBLGlitterNC2.Size = New System.Drawing.Size(114, 23) -Me.LBLGlitterNC2.TabIndex = 166 -Me.LBLGlitterNC2.Text = "Preview" -Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitterSlider2 -' -Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent -Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black -Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) -Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" -Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) -Me.LBLGlitterSlider2.TabIndex = 163 -Me.LBLGlitterSlider2.Text = "Response Frequency" -Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GlitterSlider2 -' -Me.GlitterSlider2.AutoSize = false -Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GlitterSlider2.LargeChange = 1 -Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) -Me.GlitterSlider2.Maximum = 9 -Me.GlitterSlider2.Minimum = 1 -Me.GlitterSlider2.Name = "GlitterSlider2" -Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) -Me.GlitterSlider2.TabIndex = 161 -Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider -' -'CBGlitter2 -' -Me.CBGlitter2.AutoSize = true -Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 -Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBGlitter2.ForeColor = System.Drawing.Color.Black -Me.CBGlitter2.Location = New System.Drawing.Point(79, 15) -Me.CBGlitter2.Name = "CBGlitter2" -Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) -Me.CBGlitter2.TabIndex = 151 -Me.CBGlitter2.Text = "Enable This Contact" -Me.CBGlitter2.UseVisualStyleBackColor = true -' -'TBGlitter2 -' -Me.TBGlitter2.BackColor = System.Drawing.Color.White -Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.TBGlitter2.ForeColor = System.Drawing.Color.Black -Me.TBGlitter2.Location = New System.Drawing.Point(79, 34) -Me.TBGlitter2.Name = "TBGlitter2" -Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) -Me.TBGlitter2.TabIndex = 49 -Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 -Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GlitterAV2 -' -Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GlitterAV2.Location = New System.Drawing.Point(9, 22) -Me.GlitterAV2.Name = "GlitterAV2" -Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) -Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GlitterAV2.TabIndex = 149 -Me.GlitterAV2.TabStop = false -' -'TpGames -' -Me.TpGames.BackColor = System.Drawing.Color.LightGray -Me.TpGames.Controls.Add(Me.CBIncludeGifs) -Me.TpGames.Controls.Add(Me.LblCardsSetupNote) -Me.TpGames.Controls.Add(Me.CBGameSounds) -Me.TpGames.Controls.Add(Me.GbxCardsGold) -Me.TpGames.Controls.Add(Me.GbxCardsBackground) -Me.TpGames.Controls.Add(Me.GbxCardsBronze) -Me.TpGames.Controls.Add(Me.GbxCardsSilver) -Me.TpGames.Location = New System.Drawing.Point(4, 22) -Me.TpGames.Name = "TpGames" -Me.TpGames.Padding = New System.Windows.Forms.Padding(3) -Me.TpGames.Size = New System.Drawing.Size(700, 411) -Me.TpGames.TabIndex = 1 -Me.TpGames.Text = "Games" -' -'CBIncludeGifs -' -Me.CBIncludeGifs.AutoSize = true -Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs -Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) -Me.CBIncludeGifs.Name = "CBIncludeGifs" -Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) -Me.CBIncludeGifs.TabIndex = 5 -Me.CBIncludeGifs.Text = "Match Game Includes Gifs " -Me.CBIncludeGifs.UseVisualStyleBackColor = true -' -'LblCardsSetupNote -' -Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) -Me.LblCardsSetupNote.Name = "LblCardsSetupNote" -Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) -Me.LblCardsSetupNote.TabIndex = 4 -Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected"& _ - "!" -Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'CBGameSounds -' -Me.CBGameSounds.AutoSize = true -Me.CBGameSounds.Checked = true -Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBGameSounds.ForeColor = System.Drawing.Color.Black -Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) -Me.CBGameSounds.Name = "CBGameSounds" -Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) -Me.CBGameSounds.TabIndex = 6 -Me.CBGameSounds.Text = "Play Game Sounds" -Me.CBGameSounds.UseVisualStyleBackColor = true -' -'GbxCardsGold -' -Me.GbxCardsGold.Controls.Add(Me.GN6) -Me.GbxCardsGold.Controls.Add(Me.GP6) -Me.GbxCardsGold.Controls.Add(Me.GN2) -Me.GbxCardsGold.Controls.Add(Me.GP2) -Me.GbxCardsGold.Controls.Add(Me.GP5) -Me.GbxCardsGold.Controls.Add(Me.GN1) -Me.GbxCardsGold.Controls.Add(Me.GP1) -Me.GbxCardsGold.Controls.Add(Me.GN5) -Me.GbxCardsGold.Controls.Add(Me.GN3) -Me.GbxCardsGold.Controls.Add(Me.GP3) -Me.GbxCardsGold.Controls.Add(Me.GP4) -Me.GbxCardsGold.Controls.Add(Me.GN4) -Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) -Me.GbxCardsGold.Name = "GbxCardsGold" -Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) -Me.GbxCardsGold.TabIndex = 2 -Me.GbxCardsGold.TabStop = false -Me.GbxCardsGold.Text = "Gold Cards" -' -'GN6 -' -Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN6.Location = New System.Drawing.Point(86, 367) -Me.GN6.Name = "GN6" -Me.GN6.Size = New System.Drawing.Size(71, 20) -Me.GN6.TabIndex = 5 -Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 -Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP6 -' -Me.GP6.BackColor = System.Drawing.Color.Silver -Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 -Me.GP6.InitialImage = Nothing -Me.GP6.Location = New System.Drawing.Point(86, 268) -Me.GP6.Name = "GP6" -Me.GP6.Size = New System.Drawing.Size(71, 93) -Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP6.TabIndex = 17 -Me.GP6.TabStop = false -' -'GN2 -' -Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN2.Location = New System.Drawing.Point(86, 117) -Me.GN2.Name = "GN2" -Me.GN2.Size = New System.Drawing.Size(71, 20) -Me.GN2.TabIndex = 1 -Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 -Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP2 -' -Me.GP2.BackColor = System.Drawing.Color.Silver -Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 -Me.GP2.InitialImage = Nothing -Me.GP2.Location = New System.Drawing.Point(86, 17) -Me.GP2.Name = "GP2" -Me.GP2.Size = New System.Drawing.Size(71, 94) -Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP2.TabIndex = 9 -Me.GP2.TabStop = false -' -'GP5 -' -Me.GP5.BackColor = System.Drawing.Color.Silver -Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 -Me.GP5.InitialImage = Nothing -Me.GP5.Location = New System.Drawing.Point(9, 268) -Me.GP5.Name = "GP5" -Me.GP5.Size = New System.Drawing.Size(71, 93) -Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP5.TabIndex = 15 -Me.GP5.TabStop = false -' -'GN1 -' -Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN1.Location = New System.Drawing.Point(9, 117) -Me.GN1.Name = "GN1" -Me.GN1.Size = New System.Drawing.Size(71, 20) -Me.GN1.TabIndex = 0 -Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 -Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP1 -' -Me.GP1.BackColor = System.Drawing.Color.Silver -Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 -Me.GP1.InitialImage = Nothing -Me.GP1.Location = New System.Drawing.Point(9, 17) -Me.GP1.Name = "GP1" -Me.GP1.Size = New System.Drawing.Size(71, 94) -Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP1.TabIndex = 0 -Me.GP1.TabStop = false -' -'GN5 -' -Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN5.Location = New System.Drawing.Point(9, 367) -Me.GN5.Name = "GN5" -Me.GN5.Size = New System.Drawing.Size(71, 20) -Me.GN5.TabIndex = 4 -Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 -Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GN3 -' -Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN3.Location = New System.Drawing.Point(9, 242) -Me.GN3.Name = "GN3" -Me.GN3.Size = New System.Drawing.Size(71, 20) -Me.GN3.TabIndex = 2 -Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 -Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GP3 -' -Me.GP3.BackColor = System.Drawing.Color.Silver -Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 -Me.GP3.InitialImage = Nothing -Me.GP3.Location = New System.Drawing.Point(9, 143) -Me.GP3.Name = "GP3" -Me.GP3.Size = New System.Drawing.Size(71, 93) -Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP3.TabIndex = 11 -Me.GP3.TabStop = false -' -'GP4 -' -Me.GP4.BackColor = System.Drawing.Color.Silver -Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 -Me.GP4.InitialImage = Nothing -Me.GP4.Location = New System.Drawing.Point(86, 143) -Me.GP4.Name = "GP4" -Me.GP4.Size = New System.Drawing.Size(71, 93) -Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.GP4.TabIndex = 13 -Me.GP4.TabStop = false -' -'GN4 -' -Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.GN4.Location = New System.Drawing.Point(86, 242) -Me.GN4.Name = "GN4" -Me.GN4.Size = New System.Drawing.Size(71, 20) -Me.GN4.TabIndex = 3 -Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 -Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'GbxCardsBackground -' -Me.GbxCardsBackground.Controls.Add(Me.CardBack) -Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) -Me.GbxCardsBackground.Name = "GbxCardsBackground" -Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) -Me.GbxCardsBackground.TabIndex = 3 -Me.GbxCardsBackground.TabStop = false -Me.GbxCardsBackground.Text = "Card Background" -' -'CardBack -' -Me.CardBack.BackColor = System.Drawing.Color.Silver -Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack -Me.CardBack.InitialImage = Nothing -Me.CardBack.Location = New System.Drawing.Point(17, 28) -Me.CardBack.Name = "CardBack" -Me.CardBack.Size = New System.Drawing.Size(138, 179) -Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.CardBack.TabIndex = 18 -Me.CardBack.TabStop = false -' -'GbxCardsBronze -' -Me.GbxCardsBronze.Controls.Add(Me.BN6) -Me.GbxCardsBronze.Controls.Add(Me.BN3) -Me.GbxCardsBronze.Controls.Add(Me.BP3) -Me.GbxCardsBronze.Controls.Add(Me.BP6) -Me.GbxCardsBronze.Controls.Add(Me.BN2) -Me.GbxCardsBronze.Controls.Add(Me.BN5) -Me.GbxCardsBronze.Controls.Add(Me.BP5) -Me.GbxCardsBronze.Controls.Add(Me.BP2) -Me.GbxCardsBronze.Controls.Add(Me.BN1) -Me.GbxCardsBronze.Controls.Add(Me.BN4) -Me.GbxCardsBronze.Controls.Add(Me.BP4) -Me.GbxCardsBronze.Controls.Add(Me.BP1) -Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) -Me.GbxCardsBronze.Name = "GbxCardsBronze" -Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsBronze.TabIndex = 0 -Me.GbxCardsBronze.TabStop = false -Me.GbxCardsBronze.Text = "Bronze Cards" -' -'BN6 -' -Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN6.Location = New System.Drawing.Point(86, 368) -Me.BN6.Name = "BN6" -Me.BN6.Size = New System.Drawing.Size(71, 20) -Me.BN6.TabIndex = 5 -Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 -Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BN3 -' -Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN3.Location = New System.Drawing.Point(9, 243) -Me.BN3.Name = "BN3" -Me.BN3.Size = New System.Drawing.Size(71, 20) -Me.BN3.TabIndex = 2 -Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 -Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BP3 -' -Me.BP3.BackColor = System.Drawing.Color.Silver -Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 -Me.BP3.InitialImage = Nothing -Me.BP3.Location = New System.Drawing.Point(9, 144) -Me.BP3.Name = "BP3" -Me.BP3.Size = New System.Drawing.Size(71, 93) -Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP3.TabIndex = 11 -Me.BP3.TabStop = false -' -'BP6 -' -Me.BP6.BackColor = System.Drawing.Color.Silver -Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 -Me.BP6.InitialImage = Nothing -Me.BP6.Location = New System.Drawing.Point(86, 269) -Me.BP6.Name = "BP6" -Me.BP6.Size = New System.Drawing.Size(71, 93) -Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP6.TabIndex = 17 -Me.BP6.TabStop = false -' -'BN2 -' -Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN2.Location = New System.Drawing.Point(86, 118) -Me.BN2.Name = "BN2" -Me.BN2.Size = New System.Drawing.Size(71, 20) -Me.BN2.TabIndex = 1 -Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 -Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BN5 -' -Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN5.Location = New System.Drawing.Point(9, 368) -Me.BN5.Name = "BN5" -Me.BN5.Size = New System.Drawing.Size(71, 20) -Me.BN5.TabIndex = 4 -Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 -Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BP5 -' -Me.BP5.BackColor = System.Drawing.Color.Silver -Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 -Me.BP5.InitialImage = Nothing -Me.BP5.Location = New System.Drawing.Point(9, 269) -Me.BP5.Name = "BP5" -Me.BP5.Size = New System.Drawing.Size(71, 93) -Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP5.TabIndex = 15 -Me.BP5.TabStop = false -' -'BP2 -' -Me.BP2.BackColor = System.Drawing.Color.Silver -Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 -Me.BP2.InitialImage = Nothing -Me.BP2.Location = New System.Drawing.Point(86, 19) -Me.BP2.Name = "BP2" -Me.BP2.Size = New System.Drawing.Size(71, 93) -Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP2.TabIndex = 9 -Me.BP2.TabStop = false -' -'BN1 -' -Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN1.Location = New System.Drawing.Point(9, 118) -Me.BN1.Name = "BN1" -Me.BN1.Size = New System.Drawing.Size(71, 20) -Me.BN1.TabIndex = 0 -Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 -Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BN4 -' -Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BN4.Location = New System.Drawing.Point(86, 243) -Me.BN4.Name = "BN4" -Me.BN4.Size = New System.Drawing.Size(71, 20) -Me.BN4.TabIndex = 3 -Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 -Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'BP4 -' -Me.BP4.BackColor = System.Drawing.Color.Silver -Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 -Me.BP4.InitialImage = Nothing -Me.BP4.Location = New System.Drawing.Point(86, 144) -Me.BP4.Name = "BP4" -Me.BP4.Size = New System.Drawing.Size(71, 93) -Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP4.TabIndex = 13 -Me.BP4.TabStop = false -' -'BP1 -' -Me.BP1.BackColor = System.Drawing.Color.Silver -Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", true)) -Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 -Me.BP1.InitialImage = Nothing -Me.BP1.Location = New System.Drawing.Point(9, 19) -Me.BP1.Name = "BP1" -Me.BP1.Size = New System.Drawing.Size(71, 93) -Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.BP1.TabIndex = 0 -Me.BP1.TabStop = false -Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 -' -'GbxCardsSilver -' -Me.GbxCardsSilver.Controls.Add(Me.SN6) -Me.GbxCardsSilver.Controls.Add(Me.SP6) -Me.GbxCardsSilver.Controls.Add(Me.SN2) -Me.GbxCardsSilver.Controls.Add(Me.SP2) -Me.GbxCardsSilver.Controls.Add(Me.SN1) -Me.GbxCardsSilver.Controls.Add(Me.SP5) -Me.GbxCardsSilver.Controls.Add(Me.SP1) -Me.GbxCardsSilver.Controls.Add(Me.SN5) -Me.GbxCardsSilver.Controls.Add(Me.SN3) -Me.GbxCardsSilver.Controls.Add(Me.SN4) -Me.GbxCardsSilver.Controls.Add(Me.SP3) -Me.GbxCardsSilver.Controls.Add(Me.SP4) -Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) -Me.GbxCardsSilver.Name = "GbxCardsSilver" -Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) -Me.GbxCardsSilver.TabIndex = 1 -Me.GbxCardsSilver.TabStop = false -Me.GbxCardsSilver.Text = "Silver Cards" -' -'SN6 -' -Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN6.Location = New System.Drawing.Point(86, 368) -Me.SN6.Name = "SN6" -Me.SN6.Size = New System.Drawing.Size(71, 20) -Me.SN6.TabIndex = 5 -Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 -Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP6 -' -Me.SP6.BackColor = System.Drawing.Color.Silver -Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 -Me.SP6.InitialImage = Nothing -Me.SP6.Location = New System.Drawing.Point(86, 269) -Me.SP6.Name = "SP6" -Me.SP6.Size = New System.Drawing.Size(71, 93) -Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP6.TabIndex = 17 -Me.SP6.TabStop = false -' -'SN2 -' -Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN2.Location = New System.Drawing.Point(86, 118) -Me.SN2.Name = "SN2" -Me.SN2.Size = New System.Drawing.Size(71, 20) -Me.SN2.TabIndex = 1 -Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 -Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP2 -' -Me.SP2.BackColor = System.Drawing.Color.Silver -Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 -Me.SP2.InitialImage = Nothing -Me.SP2.Location = New System.Drawing.Point(86, 19) -Me.SP2.Name = "SP2" -Me.SP2.Size = New System.Drawing.Size(71, 93) -Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP2.TabIndex = 9 -Me.SP2.TabStop = false -' -'SN1 -' -Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN1.Location = New System.Drawing.Point(9, 118) -Me.SN1.Name = "SN1" -Me.SN1.Size = New System.Drawing.Size(71, 20) -Me.SN1.TabIndex = 0 -Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 -Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP5 -' -Me.SP5.BackColor = System.Drawing.Color.Silver -Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 -Me.SP5.InitialImage = Nothing -Me.SP5.Location = New System.Drawing.Point(9, 269) -Me.SP5.Name = "SP5" -Me.SP5.Size = New System.Drawing.Size(71, 93) -Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP5.TabIndex = 15 -Me.SP5.TabStop = false -' -'SP1 -' -Me.SP1.BackColor = System.Drawing.Color.Silver -Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 -Me.SP1.InitialImage = Nothing -Me.SP1.Location = New System.Drawing.Point(9, 19) -Me.SP1.Name = "SP1" -Me.SP1.Size = New System.Drawing.Size(71, 93) -Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP1.TabIndex = 0 -Me.SP1.TabStop = false -' -'SN5 -' -Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN5.Location = New System.Drawing.Point(9, 368) -Me.SN5.Name = "SN5" -Me.SN5.Size = New System.Drawing.Size(71, 20) -Me.SN5.TabIndex = 4 -Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 -Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SN3 -' -Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN3.Location = New System.Drawing.Point(9, 243) -Me.SN3.Name = "SN3" -Me.SN3.Size = New System.Drawing.Size(71, 20) -Me.SN3.TabIndex = 2 -Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 -Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SN4 -' -Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SN4.Location = New System.Drawing.Point(86, 243) -Me.SN4.Name = "SN4" -Me.SN4.Size = New System.Drawing.Size(71, 20) -Me.SN4.TabIndex = 3 -Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 -Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'SP3 -' -Me.SP3.BackColor = System.Drawing.Color.Silver -Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 -Me.SP3.InitialImage = Nothing -Me.SP3.Location = New System.Drawing.Point(9, 144) -Me.SP3.Name = "SP3" -Me.SP3.Size = New System.Drawing.Size(71, 93) -Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP3.TabIndex = 11 -Me.SP3.TabStop = false -' -'SP4 -' -Me.SP4.BackColor = System.Drawing.Color.Silver -Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 -Me.SP4.InitialImage = Nothing -Me.SP4.Location = New System.Drawing.Point(86, 144) -Me.SP4.Name = "SP4" -Me.SP4.Size = New System.Drawing.Size(71, 93) -Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.SP4.TabIndex = 13 -Me.SP4.TabStop = false -' -'TabPage6 -' -Me.TabPage6.BackColor = System.Drawing.Color.LightGray -Me.TabPage6.Controls.Add(Me.Panel10) -Me.TabPage6.Controls.Add(Me.Label107) -Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) -Me.TabPage6.Controls.Add(Me.Label18) -Me.TabPage6.Controls.Add(Me.PNLWishList) -Me.TabPage6.Location = New System.Drawing.Point(4, 22) -Me.TabPage6.Name = "TabPage6" -Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage6.Size = New System.Drawing.Size(700, 411) -Me.TabPage6.TabIndex = 2 -Me.TabPage6.Text = "Wishlist" -' -'Panel10 -' -Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel10.Controls.Add(Me.TBWishlistComment) -Me.Panel10.Controls.Add(Me.Label32) -Me.Panel10.Controls.Add(Me.TBWishlistItem) -Me.Panel10.Controls.Add(Me.radioGold) -Me.Panel10.Controls.Add(Me.Label42) -Me.Panel10.Controls.Add(Me.radioSilver) -Me.Panel10.Controls.Add(Me.TBWishlistURL) -Me.Panel10.Controls.Add(Me.NBWishlistCost) -Me.Panel10.Controls.Add(Me.Label48) -Me.Panel10.Controls.Add(Me.Label73) -Me.Panel10.Location = New System.Drawing.Point(38, 47) -Me.Panel10.Name = "Panel10" -Me.Panel10.Size = New System.Drawing.Size(252, 308) -Me.Panel10.TabIndex = 179 -' -'TBWishlistComment -' -Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) -Me.TBWishlistComment.Multiline = true -Me.TBWishlistComment.Name = "TBWishlistComment" -Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) -Me.TBWishlistComment.TabIndex = 172 -' -'Label32 -' -Me.Label32.AutoSize = true -Me.Label32.Location = New System.Drawing.Point(13, 4) -Me.Label32.Name = "Label32" -Me.Label32.Size = New System.Drawing.Size(58, 13) -Me.Label32.TabIndex = 167 -Me.Label32.Text = "Item Name" -' -'TBWishlistItem -' -Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) -Me.TBWishlistItem.Name = "TBWishlistItem" -Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistItem.TabIndex = 168 -' -'radioGold -' -Me.radioGold.AutoSize = true -Me.radioGold.Location = New System.Drawing.Point(167, 125) -Me.radioGold.Name = "radioGold" -Me.radioGold.Size = New System.Drawing.Size(47, 17) -Me.radioGold.TabIndex = 176 -Me.radioGold.Text = "Gold" -Me.radioGold.UseVisualStyleBackColor = true -' -'Label42 -' -Me.Label42.AutoSize = true -Me.Label42.Location = New System.Drawing.Point(13, 56) -Me.Label42.Name = "Label42" -Me.Label42.Size = New System.Drawing.Size(75, 13) -Me.Label42.TabIndex = 169 -Me.Label42.Text = "Item Image Url" -' -'radioSilver -' -Me.radioSilver.AutoSize = true -Me.radioSilver.Checked = true -Me.radioSilver.Location = New System.Drawing.Point(100, 125) -Me.radioSilver.Name = "radioSilver" -Me.radioSilver.Size = New System.Drawing.Size(51, 17) -Me.radioSilver.TabIndex = 175 -Me.radioSilver.TabStop = true -Me.radioSilver.Text = "Silver" -Me.radioSilver.UseVisualStyleBackColor = true -' -'TBWishlistURL -' -Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) -Me.TBWishlistURL.Name = "TBWishlistURL" -Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) -Me.TBWishlistURL.TabIndex = 170 -' -'NBWishlistCost -' -Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) -Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBWishlistCost.Name = "NBWishlistCost" -Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) -Me.NBWishlistCost.TabIndex = 174 -Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) -' -'Label48 -' -Me.Label48.AutoSize = true -Me.Label48.Location = New System.Drawing.Point(13, 157) -Me.Label48.Name = "Label48" -Me.Label48.Size = New System.Drawing.Size(74, 13) -Me.Label48.TabIndex = 171 -Me.Label48.Text = "Item Comment" -' -'Label73 -' -Me.Label73.AutoSize = true -Me.Label73.Location = New System.Drawing.Point(13, 108) -Me.Label73.Name = "Label73" -Me.Label73.Size = New System.Drawing.Size(51, 13) -Me.Label73.TabIndex = 173 -Me.Label73.Text = "Item Cost" -' -'Label107 -' -Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label107.Location = New System.Drawing.Point(38, 5) -Me.Label107.Name = "Label107" -Me.Label107.Size = New System.Drawing.Size(252, 47) -Me.Label107.TabIndex = 178 -Me.Label107.Text = "Use this page to create Wishlist files." -Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNWishlistCreate -' -Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) -Me.BTNWishlistCreate.Name = "BTNWishlistCreate" -Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) -Me.BTNWishlistCreate.TabIndex = 177 -Me.BTNWishlistCreate.Text = "Create Wishlist File" -Me.BTNWishlistCreate.UseVisualStyleBackColor = true -' -'Label18 -' -Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label18.Location = New System.Drawing.Point(409, 5) -Me.Label18.Name = "Label18" -Me.Label18.Size = New System.Drawing.Size(250, 23) -Me.Label18.TabIndex = 166 -Me.Label18.Text = "Preview" -Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'PNLWishList -' -Me.PNLWishList.BackColor = System.Drawing.Color.White -Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) -Me.PNLWishList.Controls.Add(Me.LBLWishListText) -Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) -Me.PNLWishList.Controls.Add(Me.WishlistCostGold) -Me.PNLWishList.Controls.Add(Me.LBLWishListName) -Me.PNLWishList.Controls.Add(Me.WishlistPreview) -Me.PNLWishList.Location = New System.Drawing.Point(407, 31) -Me.PNLWishList.Name = "PNLWishList" -Me.PNLWishList.Size = New System.Drawing.Size(250, 367) -Me.PNLWishList.TabIndex = 165 -' -'WishlistCostSilver -' -Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"),System.Drawing.Image) -Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostSilver.Name = "WishlistCostSilver" -Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostSilver.TabIndex = 111 -Me.WishlistCostSilver.TabStop = false -' -'LBLWishListText -' -Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) -Me.LBLWishListText.Name = "LBLWishListText" -Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) -Me.LBLWishListText.TabIndex = 108 -' -'LBLWishlistCost -' -Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black -Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) -Me.LBLWishlistCost.Name = "LBLWishlistCost" -Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) -Me.LBLWishlistCost.TabIndex = 107 -Me.LBLWishlistCost.Text = "3" -Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'WishlistCostGold -' -Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent -Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"),System.Drawing.Image) -Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) -Me.WishlistCostGold.Name = "WishlistCostGold" -Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) -Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.WishlistCostGold.TabIndex = 106 -Me.WishlistCostGold.TabStop = false -Me.WishlistCostGold.Visible = false -' -'LBLWishListName -' -Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue -Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) -Me.LBLWishListName.Name = "LBLWishListName" -Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) -Me.LBLWishListName.TabIndex = 104 -Me.LBLWishListName.Text = "Item Name Goes Here" -Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'WishlistPreview -' -Me.WishlistPreview.ImageLocation = "" -Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) -Me.WishlistPreview.Name = "WishlistPreview" -Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) -Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom -Me.WishlistPreview.TabIndex = 101 -Me.WishlistPreview.TabStop = false -' -'TabPage26 -' -Me.TabPage26.BackColor = System.Drawing.Color.Silver -Me.TabPage26.Controls.Add(Me.Panel12) -Me.TabPage26.Location = New System.Drawing.Point(4, 22) -Me.TabPage26.Name = "TabPage26" -Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage26.Size = New System.Drawing.Size(720, 448) -Me.TabPage26.TabIndex = 19 -Me.TabPage26.Text = "Themes" -' -'Panel12 -' -Me.Panel12.BackColor = System.Drawing.Color.LightGray -Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel12.Controls.Add(Me.GroupBox9) -Me.Panel12.Controls.Add(Me.PictureBox10) -Me.Panel12.Controls.Add(Me.GroupBox5) -Me.Panel12.Controls.Add(Me.GroupBox11) -Me.Panel12.Controls.Add(Me.GroupBox1) -Me.Panel12.Controls.Add(Me.Label164) -Me.Panel12.Location = New System.Drawing.Point(6, 6) -Me.Panel12.Name = "Panel12" -Me.Panel12.Size = New System.Drawing.Size(708, 437) -Me.Panel12.TabIndex = 93 -' -'GroupBox9 -' -Me.GroupBox9.Controls.Add(Me.Button32) -Me.GroupBox9.Controls.Add(Me.Button31) -Me.GroupBox9.Location = New System.Drawing.Point(351, 231) -Me.GroupBox9.Name = "GroupBox9" -Me.GroupBox9.Size = New System.Drawing.Size(348, 94) -Me.GroupBox9.TabIndex = 152 -Me.GroupBox9.TabStop = false -Me.GroupBox9.Text = "System" -' -'Button32 -' -Me.Button32.BackColor = System.Drawing.Color.Transparent -Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big -Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button32.Location = New System.Drawing.Point(196, 24) -Me.Button32.Name = "Button32" -Me.Button32.Size = New System.Drawing.Size(135, 55) -Me.Button32.TabIndex = 55 -Me.Button32.Text = " Save Theme" -Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button32.UseVisualStyleBackColor = false -' -'Button31 -' -Me.Button31.BackColor = System.Drawing.Color.Transparent -Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big -Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft -Me.Button31.Location = New System.Drawing.Point(17, 24) -Me.Button31.Name = "Button31" -Me.Button31.Size = New System.Drawing.Size(135, 55) -Me.Button31.TabIndex = 54 -Me.Button31.Text = " Open Theme" -Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText -Me.Button31.UseVisualStyleBackColor = false -' -'PictureBox10 -' -Me.PictureBox10.BackColor = System.Drawing.Color.LightGray -Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox10.Location = New System.Drawing.Point(9, 6) -Me.PictureBox10.Name = "PictureBox10" -Me.PictureBox10.Size = New System.Drawing.Size(160, 19) -Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox10.TabIndex = 151 -Me.PictureBox10.TabStop = false -' -'GroupBox5 -' -Me.GroupBox5.Controls.Add(Me.CBTransparentTime) -Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) -Me.GroupBox5.Controls.Add(Me.Label137) -Me.GroupBox5.Controls.Add(Me.Label138) -Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) -Me.GroupBox5.Controls.Add(Me.LBLTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor) -Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) -Me.GroupBox5.Controls.Add(Me.LBLBackColor) -Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) -Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) -Me.GroupBox5.Location = New System.Drawing.Point(9, 31) -Me.GroupBox5.Name = "GroupBox5" -Me.GroupBox5.Size = New System.Drawing.Size(336, 294) -Me.GroupBox5.TabIndex = 58 -Me.GroupBox5.TabStop = false -Me.GroupBox5.Text = "UI Colors" -' -'CBTransparentTime -' -Me.CBTransparentTime.AutoSize = true -Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) -Me.CBTransparentTime.Name = "CBTransparentTime" -Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) -Me.CBTransparentTime.TabIndex = 23 -Me.CBTransparentTime.Text = "Transparent Date/Time Window" -Me.CBTransparentTime.UseVisualStyleBackColor = true -' -'LBLDateTimeColor2 -' -Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor -Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) -Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" -Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateTimeColor2.TabIndex = 19 -' -'Label137 -' -Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label137.Location = New System.Drawing.Point(6, 227) -Me.Label137.Name = "Label137" -Me.Label137.Size = New System.Drawing.Size(175, 20) -Me.Label137.TabIndex = 20 -Me.Label137.Text = "Date/Time Window Color" -Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label138 -' -Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label138.Location = New System.Drawing.Point(6, 193) -Me.Label138.Name = "Label138" -Me.Label138.Size = New System.Drawing.Size(175, 20) -Me.Label138.TabIndex = 17 -Me.Label138.Text = "Date/Time Text Color" -Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLDateBackColor2 -' -Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor -Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) -Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLDateBackColor2.Name = "LBLDateBackColor2" -Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLDateBackColor2.TabIndex = 22 -' -'LBLTextColor -' -Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) -Me.LBLTextColor.Name = "LBLTextColor" -Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLTextColor.TabIndex = 7 -Me.LBLTextColor.Text = "Text Color" -Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLChatWindowColor2 -' -Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor -Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) -Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" -Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatWindowColor2.TabIndex = 12 -' -'LBLTextColor2 -' -Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor -Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) -Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLTextColor2.Name = "LBLTextColor2" -Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLTextColor2.TabIndex = 9 -' -'LBLChatTextColor -' -Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) -Me.LBLChatTextColor.Name = "LBLChatTextColor" -Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatTextColor.TabIndex = 14 -Me.LBLChatTextColor.Text = "Chat Text Color" -Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLBackColor2 -' -Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor -Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) -Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLBackColor2.Name = "LBLBackColor2" -Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLBackColor2.TabIndex = 3 -' -'LBLButtonColor -' -Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) -Me.LBLButtonColor.Name = "LBLButtonColor" -Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) -Me.LBLButtonColor.TabIndex = 4 -Me.LBLButtonColor.Text = "Button Color" -Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLChatWindowColor -' -Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) -Me.LBLChatWindowColor.Name = "LBLChatWindowColor" -Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) -Me.LBLChatWindowColor.TabIndex = 10 -Me.LBLChatWindowColor.Text = "Chat Window Color" -Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLBackColor -' -Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) -Me.LBLBackColor.Name = "LBLBackColor" -Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) -Me.LBLBackColor.TabIndex = 0 -Me.LBLBackColor.Text = "Background Color" -Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLChatTextColor2 -' -Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor -Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) -Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLChatTextColor2.Name = "LBLChatTextColor2" -Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLChatTextColor2.TabIndex = 16 -' -'LBLButtonColor2 -' -Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor -Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) -Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) -Me.LBLButtonColor2.Name = "LBLButtonColor2" -Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) -Me.LBLButtonColor2.TabIndex = 6 -' -'GroupBox11 -' -Me.GroupBox11.BackColor = System.Drawing.Color.LightGray -Me.GroupBox11.Controls.Add(Me.Label144) -Me.GroupBox11.ForeColor = System.Drawing.Color.Black -Me.GroupBox11.Location = New System.Drawing.Point(7, 331) -Me.GroupBox11.Name = "GroupBox11" -Me.GroupBox11.Size = New System.Drawing.Size(692, 92) -Me.GroupBox11.TabIndex = 65 -Me.GroupBox11.TabStop = false -Me.GroupBox11.Text = "Description" -' -'Label144 -' -Me.Label144.BackColor = System.Drawing.Color.Transparent -Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label144.ForeColor = System.Drawing.Color.Black -Me.Label144.Location = New System.Drawing.Point(6, 16) -Me.Label144.Name = "Label144" -Me.Label144.Size = New System.Drawing.Size(680, 73) -Me.Label144.TabIndex = 62 -Me.Label144.Text = "Use this page to create custom themes for Tease AI."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Themes can then be saved a"& _ - "nd opened from txt files." -Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox1 -' -Me.GroupBox1.Controls.Add(Me.CBFlipBack) -Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) -Me.GroupBox1.Controls.Add(Me.Button17) -Me.GroupBox1.Controls.Add(Me.CBStretchBack) -Me.GroupBox1.Controls.Add(Me.Button18) -Me.GroupBox1.Location = New System.Drawing.Point(351, 30) -Me.GroupBox1.Name = "GroupBox1" -Me.GroupBox1.Size = New System.Drawing.Size(348, 195) -Me.GroupBox1.TabIndex = 57 -Me.GroupBox1.TabStop = false -Me.GroupBox1.Text = "Background" -' -'CBFlipBack -' -Me.CBFlipBack.Enabled = false -Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) -Me.CBFlipBack.Name = "CBFlipBack" -Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) -Me.CBFlipBack.TabIndex = 4 -Me.CBFlipBack.Text = "Flip Background" -Me.CBFlipBack.UseVisualStyleBackColor = true -' -'PBBackgroundPreview -' -Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) -Me.PBBackgroundPreview.Name = "PBBackgroundPreview" -Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) -Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PBBackgroundPreview.TabIndex = 0 -Me.PBBackgroundPreview.TabStop = false -' -'Button17 -' -Me.Button17.BackColor = System.Drawing.Color.Transparent -Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load -Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch -Me.Button17.Location = New System.Drawing.Point(228, 36) -Me.Button17.Name = "Button17" -Me.Button17.Size = New System.Drawing.Size(103, 93) -Me.Button17.TabIndex = 1 -Me.Button17.UseVisualStyleBackColor = false -' -'CBStretchBack -' -Me.CBStretchBack.Checked = true -Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) -Me.CBStretchBack.Name = "CBStretchBack" -Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) -Me.CBStretchBack.TabIndex = 2 -Me.CBStretchBack.Text = "Stretch Background" -Me.CBStretchBack.UseVisualStyleBackColor = true -' -'Button18 -' -Me.Button18.Location = New System.Drawing.Point(228, 155) -Me.Button18.Name = "Button18" -Me.Button18.Size = New System.Drawing.Size(103, 31) -Me.Button18.TabIndex = 3 -Me.Button18.Text = "Clear" -Me.Button18.UseVisualStyleBackColor = true -' -'Label164 -' -Me.Label164.BackColor = System.Drawing.Color.Transparent -Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label164.ForeColor = System.Drawing.Color.Black -Me.Label164.Location = New System.Drawing.Point(7, 6) -Me.Label164.Name = "Label164" -Me.Label164.Size = New System.Drawing.Size(692, 21) -Me.Label164.TabIndex = 49 -Me.Label164.Text = "Theme Settings" -Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage4 -' -Me.TabPage4.BackColor = System.Drawing.Color.Silver -Me.TabPage4.Controls.Add(Me.Panel6) -Me.TabPage4.Location = New System.Drawing.Point(4, 22) -Me.TabPage4.Name = "TabPage4" -Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage4.Size = New System.Drawing.Size(720, 448) -Me.TabPage4.TabIndex = 3 -Me.TabPage4.Text = "Ranges" -' -'Panel6 -' -Me.Panel6.BackColor = System.Drawing.Color.LightGray -Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel6.Controls.Add(Me.GroupBox69) -Me.Panel6.Controls.Add(Me.GroupBox68) -Me.Panel6.Controls.Add(Me.GroupBox67) -Me.Panel6.Controls.Add(Me.GroupBox10) -Me.Panel6.Controls.Add(Me.GroupBox57) -Me.Panel6.Controls.Add(Me.GBRangeRuinChance) -Me.Panel6.Controls.Add(Me.GroupBox17) -Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) -Me.Panel6.Controls.Add(Me.PictureBox8) -Me.Panel6.Controls.Add(Me.Label38) -Me.Panel6.Location = New System.Drawing.Point(6, 6) -Me.Panel6.Name = "Panel6" -Me.Panel6.Size = New System.Drawing.Size(708, 437) -Me.Panel6.TabIndex = 91 -' -'GroupBox69 -' -Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) -Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) -Me.GroupBox69.Controls.Add(Me.TimedWriting) -Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) -Me.GroupBox69.Location = New System.Drawing.Point(236, 344) -Me.GroupBox69.Name = "GroupBox69" -Me.GroupBox69.Size = New System.Drawing.Size(166, 83) -Me.GroupBox69.TabIndex = 173 -Me.GroupBox69.TabStop = false -Me.GroupBox69.Text = "Writing Tasks" -' -'TypesSpeedVal -' -Me.TypesSpeedVal.AutoSize = true -Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) -Me.TypesSpeedVal.Name = "TypesSpeedVal" -Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) -Me.TypesSpeedVal.TabIndex = 0 -Me.TypesSpeedVal.Text = "10" -Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'TypeSpeedLabel -' -Me.TypeSpeedLabel.AutoSize = true -Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) -Me.TypeSpeedLabel.Name = "TypeSpeedLabel" -Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) -Me.TypeSpeedLabel.TabIndex = 2 -Me.TypeSpeedLabel.Text = "Typing Speed:" -' -'TimedWriting -' -Me.TimedWriting.AutoSize = true -Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting -Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TimedWriting.Location = New System.Drawing.Point(9, 19) -Me.TimedWriting.Name = "TimedWriting" -Me.TimedWriting.Size = New System.Drawing.Size(123, 17) -Me.TimedWriting.TabIndex = 1 -Me.TimedWriting.Text = "Timed Writing Tasks" -Me.TimedWriting.UseVisualStyleBackColor = true -' -'TypeSpeedSlider -' -Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) -Me.TypeSpeedSlider.Maximum = 100 -Me.TypeSpeedSlider.Minimum = 33 -Me.TypeSpeedSlider.Name = "TypeSpeedSlider" -Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) -Me.TypeSpeedSlider.TabIndex = 3 -Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed -' -'GroupBox68 -' -Me.GroupBox68.Controls.Add(Me.NBTasksMax) -Me.GroupBox68.Controls.Add(Me.NBTasksMin) -Me.GroupBox68.Controls.Add(Me.Label165) -Me.GroupBox68.Controls.Add(Me.Label166) -Me.GroupBox68.Location = New System.Drawing.Point(236, 287) -Me.GroupBox68.Name = "GroupBox68" -Me.GroupBox68.Size = New System.Drawing.Size(166, 51) -Me.GroupBox68.TabIndex = 172 -Me.GroupBox68.TabStop = false -Me.GroupBox68.Text = "Session Tasks" -' -'NBTasksMax -' -Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) -Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) -Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTasksMax.Name = "NBTasksMax" -Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMax.TabIndex = 187 -Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) -' -'NBTasksMin -' -Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) -Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) -Me.NBTasksMin.Name = "NBTasksMin" -Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) -Me.NBTasksMin.TabIndex = 186 -Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) -' -'Label165 -' -Me.Label165.BackColor = System.Drawing.Color.Transparent -Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label165.ForeColor = System.Drawing.Color.Black -Me.Label165.Location = New System.Drawing.Point(100, 20) -Me.Label165.Name = "Label165" -Me.Label165.Size = New System.Drawing.Size(10, 17) -Me.Label165.TabIndex = 185 -Me.Label165.Text = "-" -Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label166 -' -Me.Label166.BackColor = System.Drawing.Color.Transparent -Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label166.ForeColor = System.Drawing.Color.Black -Me.Label166.Location = New System.Drawing.Point(6, 21) -Me.Label166.Name = "Label166" -Me.Label166.Size = New System.Drawing.Size(49, 17) -Me.Label166.TabIndex = 188 -Me.Label166.Text = "Amount:" -Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox67 -' -Me.GroupBox67.Controls.Add(Me.Label161) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) -Me.GroupBox67.Controls.Add(Me.Label162) -Me.GroupBox67.Controls.Add(Me.Label163) -Me.GroupBox67.Controls.Add(Me.Label158) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) -Me.GroupBox67.Controls.Add(Me.Label159) -Me.GroupBox67.Controls.Add(Me.Label160) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) -Me.GroupBox67.Controls.Add(Me.Label119) -Me.GroupBox67.Controls.Add(Me.Label157) -Me.GroupBox67.Controls.Add(Me.Label151) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) -Me.GroupBox67.Controls.Add(Me.Label154) -Me.GroupBox67.Controls.Add(Me.Label155) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) -Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) -Me.GroupBox67.Controls.Add(Me.Label146) -Me.GroupBox67.Controls.Add(Me.Label149) -Me.GroupBox67.Location = New System.Drawing.Point(408, 288) -Me.GroupBox67.Name = "GroupBox67" -Me.GroupBox67.Size = New System.Drawing.Size(291, 139) -Me.GroupBox67.TabIndex = 171 -Me.GroupBox67.TabStop = false -Me.GroupBox67.Text = "Letter Tasks" -' -'Label161 -' -Me.Label161.BackColor = System.Drawing.Color.Transparent -Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label161.ForeColor = System.Drawing.Color.Black -Me.Label161.Location = New System.Drawing.Point(233, 110) -Me.Label161.Name = "Label161" -Me.Label161.Size = New System.Drawing.Size(50, 17) -Me.Label161.TabIndex = 204 -Me.Label161.Text = "minutes" -Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskCBTTimeMax -' -Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) -Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" -Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMax.TabIndex = 203 -Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax -' -'NBTaskCBTTimeMin -' -Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) -Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" -Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskCBTTimeMin.TabIndex = 202 -Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin -' -'Label162 -' -Me.Label162.BackColor = System.Drawing.Color.Transparent -Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label162.ForeColor = System.Drawing.Color.Black -Me.Label162.Location = New System.Drawing.Point(167, 110) -Me.Label162.Name = "Label162" -Me.Label162.Size = New System.Drawing.Size(10, 17) -Me.Label162.TabIndex = 201 -Me.Label162.Text = "-" -Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label163 -' -Me.Label163.BackColor = System.Drawing.Color.Transparent -Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label163.ForeColor = System.Drawing.Color.Black -Me.Label163.Location = New System.Drawing.Point(12, 111) -Me.Label163.Name = "Label163" -Me.Label163.Size = New System.Drawing.Size(151, 17) -Me.Label163.TabIndex = 200 -Me.Label163.Text = "CBT Time:" -Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label158 -' -Me.Label158.BackColor = System.Drawing.Color.Transparent -Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label158.ForeColor = System.Drawing.Color.Black -Me.Label158.Location = New System.Drawing.Point(233, 87) -Me.Label158.Name = "Label158" -Me.Label158.Size = New System.Drawing.Size(50, 17) -Me.Label158.TabIndex = 199 -Me.Label158.Text = "minutes" -Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskEdgeHoldTimeMax -' -Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) -Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" -Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 -Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax -' -'NBTaskEdgeHoldTimeMin -' -Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) -Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" -Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 -Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin -' -'Label159 -' -Me.Label159.BackColor = System.Drawing.Color.Transparent -Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label159.ForeColor = System.Drawing.Color.Black -Me.Label159.Location = New System.Drawing.Point(167, 87) -Me.Label159.Name = "Label159" -Me.Label159.Size = New System.Drawing.Size(10, 17) -Me.Label159.TabIndex = 196 -Me.Label159.Text = "-" -Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label160 -' -Me.Label160.BackColor = System.Drawing.Color.Transparent -Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label160.ForeColor = System.Drawing.Color.Black -Me.Label160.Location = New System.Drawing.Point(12, 88) -Me.Label160.Name = "Label160" -Me.Label160.Size = New System.Drawing.Size(151, 17) -Me.Label160.TabIndex = 195 -Me.Label160.Text = "Edge Hold Time:" -Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskEdgesMax -' -Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) -Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) -Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" -Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMax.TabIndex = 194 -Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax -' -'NBTaskEdgesMin -' -Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) -Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" -Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskEdgesMin.TabIndex = 193 -Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin -' -'Label119 -' -Me.Label119.BackColor = System.Drawing.Color.Transparent -Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label119.ForeColor = System.Drawing.Color.Black -Me.Label119.Location = New System.Drawing.Point(167, 64) -Me.Label119.Name = "Label119" -Me.Label119.Size = New System.Drawing.Size(10, 17) -Me.Label119.TabIndex = 192 -Me.Label119.Text = "-" -Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label157 -' -Me.Label157.BackColor = System.Drawing.Color.Transparent -Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label157.ForeColor = System.Drawing.Color.Black -Me.Label157.Location = New System.Drawing.Point(12, 65) -Me.Label157.Name = "Label157" -Me.Label157.Size = New System.Drawing.Size(151, 17) -Me.Label157.TabIndex = 191 -Me.Label157.Text = "Edges:" -Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label151 -' -Me.Label151.BackColor = System.Drawing.Color.Transparent -Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label151.ForeColor = System.Drawing.Color.Black -Me.Label151.Location = New System.Drawing.Point(233, 41) -Me.Label151.Name = "Label151" -Me.Label151.Size = New System.Drawing.Size(50, 17) -Me.Label151.TabIndex = 190 -Me.Label151.Text = "minutes" -Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskStrokingTimeMax -' -Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) -Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" -Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMax.TabIndex = 189 -Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax -' -'NBTaskStrokingTimeMin -' -Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) -Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" -Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokingTimeMin.TabIndex = 188 -Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin -' -'Label154 -' -Me.Label154.BackColor = System.Drawing.Color.Transparent -Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label154.ForeColor = System.Drawing.Color.Black -Me.Label154.Location = New System.Drawing.Point(167, 41) -Me.Label154.Name = "Label154" -Me.Label154.Size = New System.Drawing.Size(10, 17) -Me.Label154.TabIndex = 187 -Me.Label154.Text = "-" -Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label155 -' -Me.Label155.BackColor = System.Drawing.Color.Transparent -Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label155.ForeColor = System.Drawing.Color.Black -Me.Label155.Location = New System.Drawing.Point(12, 42) -Me.Label155.Name = "Label155" -Me.Label155.Size = New System.Drawing.Size(151, 17) -Me.Label155.TabIndex = 186 -Me.Label155.Text = "Stroking Time:" -Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTaskStrokesMax -' -Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) -Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" -Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMax.TabIndex = 184 -Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax -' -'NBTaskStrokesMin -' -Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) -Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) -Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" -Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) -Me.NBTaskStrokesMin.TabIndex = 183 -Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin -' -'Label146 -' -Me.Label146.BackColor = System.Drawing.Color.Transparent -Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label146.ForeColor = System.Drawing.Color.Black -Me.Label146.Location = New System.Drawing.Point(167, 18) -Me.Label146.Name = "Label146" -Me.Label146.Size = New System.Drawing.Size(10, 17) -Me.Label146.TabIndex = 182 -Me.Label146.Text = "-" -Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label149 -' -Me.Label149.BackColor = System.Drawing.Color.Transparent -Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label149.ForeColor = System.Drawing.Color.Black -Me.Label149.Location = New System.Drawing.Point(12, 19) -Me.Label149.Name = "Label149" -Me.Label149.Size = New System.Drawing.Size(151, 17) -Me.Label149.TabIndex = 181 -Me.Label149.Text = "Strokes:" -Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox10 -' -Me.GroupBox10.Controls.Add(Me.Label112) -Me.GroupBox10.Controls.Add(Me.NBNextImageChance) -Me.GroupBox10.Controls.Add(Me.Label6) -Me.GroupBox10.Location = New System.Drawing.Point(408, 31) -Me.GroupBox10.Name = "GroupBox10" -Me.GroupBox10.Size = New System.Drawing.Size(291, 54) -Me.GroupBox10.TabIndex = 170 -Me.GroupBox10.TabStop = false -Me.GroupBox10.Text = "Tease Slideshow" -' -'Label112 -' -Me.Label112.BackColor = System.Drawing.Color.Transparent -Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label112.ForeColor = System.Drawing.Color.Black -Me.Label112.Location = New System.Drawing.Point(233, 21) -Me.Label112.Name = "Label112" -Me.Label112.Size = New System.Drawing.Size(50, 17) -Me.Label112.TabIndex = 180 -Me.Label112.Text = "percent" -Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBNextImageChance -' -Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) -Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBNextImageChance.Name = "NBNextImageChance" -Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) -Me.NBNextImageChance.TabIndex = 179 -Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label6 -' -Me.Label6.BackColor = System.Drawing.Color.Transparent -Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label6.ForeColor = System.Drawing.Color.Black -Me.Label6.Location = New System.Drawing.Point(9, 21) -Me.Label6.Name = "Label6" -Me.Label6.Size = New System.Drawing.Size(151, 17) -Me.Label6.TabIndex = 154 -Me.Label6.Text = "Image Next/Previous Chance:" -Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox57 -' -Me.GroupBox57.Controls.Add(Me.Label139) -Me.GroupBox57.Controls.Add(Me.NBTauntEdging) -Me.GroupBox57.Controls.Add(Me.LBLVtf) -Me.GroupBox57.Controls.Add(Me.LBLStf) -Me.GroupBox57.Controls.Add(Me.SliderSTF) -Me.GroupBox57.Controls.Add(Me.TauntSlider) -Me.GroupBox57.Controls.Add(Me.Label106) -Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) -Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) -Me.GroupBox57.Controls.Add(Me.Label103) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) -Me.GroupBox57.Controls.Add(Me.Label105) -Me.GroupBox57.Controls.Add(Me.Label101) -Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) -Me.GroupBox57.Controls.Add(Me.Label102) -Me.GroupBox57.Controls.Add(Me.Label97) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) -Me.GroupBox57.Controls.Add(Me.Label99) -Me.GroupBox57.Controls.Add(Me.Label96) -Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) -Me.GroupBox57.Controls.Add(Me.Label95) -Me.GroupBox57.Controls.Add(Me.Label49) -Me.GroupBox57.Controls.Add(Me.Label141) -Me.GroupBox57.Location = New System.Drawing.Point(7, 30) -Me.GroupBox57.Name = "GroupBox57" -Me.GroupBox57.Size = New System.Drawing.Size(223, 308) -Me.GroupBox57.TabIndex = 169 -Me.GroupBox57.TabStop = false -Me.GroupBox57.Text = "Tease" -' -'Label139 -' -Me.Label139.BackColor = System.Drawing.Color.Transparent -Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label139.ForeColor = System.Drawing.Color.Black -Me.Label139.Location = New System.Drawing.Point(175, 171) -Me.Label139.Name = "Label139" -Me.Label139.Size = New System.Drawing.Size(50, 17) -Me.Label139.TabIndex = 184 -Me.Label139.Text = "percent" -Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTauntEdging -' -Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) -Me.NBTauntEdging.Name = "NBTauntEdging" -Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) -Me.NBTauntEdging.TabIndex = 188 -Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) -' -'LBLVtf -' -Me.LBLVtf.BackColor = System.Drawing.Color.Transparent -Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLVtf.ForeColor = System.Drawing.Color.Black -Me.LBLVtf.Location = New System.Drawing.Point(128, 261) -Me.LBLVtf.Name = "LBLVtf" -Me.LBLVtf.Size = New System.Drawing.Size(87, 17) -Me.LBLVtf.TabIndex = 187 -Me.LBLVtf.Text = "Normal" -Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLStf -' -Me.LBLStf.BackColor = System.Drawing.Color.Transparent -Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLStf.ForeColor = System.Drawing.Color.Black -Me.LBLStf.Location = New System.Drawing.Point(130, 220) -Me.LBLStf.Name = "LBLStf" -Me.LBLStf.Size = New System.Drawing.Size(87, 17) -Me.LBLStf.TabIndex = 165 -Me.LBLStf.Text = "Normal" -Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'SliderSTF -' -Me.SliderSTF.AutoSize = false -Me.SliderSTF.LargeChange = 1 -Me.SliderSTF.Location = New System.Drawing.Point(130, 199) -Me.SliderSTF.Maximum = 5 -Me.SliderSTF.Minimum = 1 -Me.SliderSTF.Name = "SliderSTF" -Me.SliderSTF.Size = New System.Drawing.Size(87, 25) -Me.SliderSTF.TabIndex = 163 -Me.SliderSTF.Value = 3 -' -'TauntSlider -' -Me.TauntSlider.AutoSize = false -Me.TauntSlider.LargeChange = 1 -Me.TauntSlider.Location = New System.Drawing.Point(130, 240) -Me.TauntSlider.Maximum = 9 -Me.TauntSlider.Minimum = 1 -Me.TauntSlider.Name = "TauntSlider" -Me.TauntSlider.Size = New System.Drawing.Size(87, 25) -Me.TauntSlider.TabIndex = 161 -Me.TauntSlider.Value = 4 -' -'Label106 -' -Me.Label106.BackColor = System.Drawing.Color.Transparent -Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label106.ForeColor = System.Drawing.Color.Black -Me.Label106.Location = New System.Drawing.Point(6, 243) -Me.Label106.Name = "Label106" -Me.Label106.Size = New System.Drawing.Size(123, 17) -Me.Label106.TabIndex = 186 -Me.Label106.Text = "Video Taunt Frequency:" -Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'CBTauntCycleDD -' -Me.CBTauntCycleDD.AutoSize = true -Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black -Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) -Me.CBTauntCycleDD.Name = "CBTauntCycleDD" -Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) -Me.CBTauntCycleDD.TabIndex = 185 -Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" -Me.CBTauntCycleDD.UseVisualStyleBackColor = true -' -'CBTeaseLengthDD -' -Me.CBTeaseLengthDD.AutoSize = true -Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black -Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) -Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" -Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) -Me.CBTeaseLengthDD.TabIndex = 184 -Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" -Me.CBTeaseLengthDD.UseVisualStyleBackColor = true -' -'Label103 -' -Me.Label103.BackColor = System.Drawing.Color.Transparent -Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label103.ForeColor = System.Drawing.Color.Black -Me.Label103.Location = New System.Drawing.Point(175, 117) -Me.Label103.Name = "Label103" -Me.Label103.Size = New System.Drawing.Size(50, 17) -Me.Label103.TabIndex = 183 -Me.Label103.Text = "minutes" -Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTauntCycleMax -' -Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) -Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) -Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) -Me.NBTauntCycleMax.Name = "NBTauntCycleMax" -Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMax.TabIndex = 182 -Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) -' -'Label105 -' -Me.Label105.BackColor = System.Drawing.Color.Transparent -Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label105.ForeColor = System.Drawing.Color.Black -Me.Label105.Location = New System.Drawing.Point(6, 117) -Me.Label105.Name = "Label105" -Me.Label105.Size = New System.Drawing.Size(123, 17) -Me.Label105.TabIndex = 181 -Me.Label105.Text = "Taunt Cycle Maximum:" -Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label101 -' -Me.Label101.BackColor = System.Drawing.Color.Transparent -Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label101.ForeColor = System.Drawing.Color.Black -Me.Label101.Location = New System.Drawing.Point(175, 93) -Me.Label101.Name = "Label101" -Me.Label101.Size = New System.Drawing.Size(50, 17) -Me.Label101.TabIndex = 180 -Me.Label101.Text = "minutes" -Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTauntCycleMin -' -Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) -Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBTauntCycleMin.Name = "NBTauntCycleMin" -Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) -Me.NBTauntCycleMin.TabIndex = 179 -Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) -' -'Label102 -' -Me.Label102.BackColor = System.Drawing.Color.Transparent -Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label102.ForeColor = System.Drawing.Color.Black -Me.Label102.Location = New System.Drawing.Point(6, 93) -Me.Label102.Name = "Label102" -Me.Label102.Size = New System.Drawing.Size(123, 17) -Me.Label102.TabIndex = 178 -Me.Label102.Text = "Taunt Cycle Minimum:" -Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label97 -' -Me.Label97.BackColor = System.Drawing.Color.Transparent -Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label97.ForeColor = System.Drawing.Color.Black -Me.Label97.Location = New System.Drawing.Point(175, 46) -Me.Label97.Name = "Label97" -Me.Label97.Size = New System.Drawing.Size(50, 17) -Me.Label97.TabIndex = 177 -Me.Label97.Text = "minutes" -Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTeaseLengthMax -' -Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) -Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {1440, 0, 0, 0}) -Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) -Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" -Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMax.TabIndex = 176 -Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'Label99 -' -Me.Label99.BackColor = System.Drawing.Color.Transparent -Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label99.ForeColor = System.Drawing.Color.Black -Me.Label99.Location = New System.Drawing.Point(6, 46) -Me.Label99.Name = "Label99" -Me.Label99.Size = New System.Drawing.Size(123, 17) -Me.Label99.TabIndex = 175 -Me.Label99.Text = "Tease Length Maximum:" -Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label96 -' -Me.Label96.BackColor = System.Drawing.Color.Transparent -Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label96.ForeColor = System.Drawing.Color.Black -Me.Label96.Location = New System.Drawing.Point(175, 20) -Me.Label96.Name = "Label96" -Me.Label96.Size = New System.Drawing.Size(50, 17) -Me.Label96.TabIndex = 174 -Me.Label96.Text = "minutes" -Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBTeaseLengthMin -' -Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) -Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) -Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" -Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) -Me.NBTeaseLengthMin.TabIndex = 169 -Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) -' -'Label95 -' -Me.Label95.BackColor = System.Drawing.Color.Transparent -Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label95.ForeColor = System.Drawing.Color.Black -Me.Label95.Location = New System.Drawing.Point(6, 20) -Me.Label95.Name = "Label95" -Me.Label95.Size = New System.Drawing.Size(123, 17) -Me.Label95.TabIndex = 166 -Me.Label95.Text = "Tease Length Minimum:" -Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label49 -' -Me.Label49.BackColor = System.Drawing.Color.Transparent -Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label49.ForeColor = System.Drawing.Color.Black -Me.Label49.Location = New System.Drawing.Point(6, 207) -Me.Label49.Name = "Label49" -Me.Label49.Size = New System.Drawing.Size(132, 17) -Me.Label49.TabIndex = 164 -Me.Label49.Text = "Stroke Taunt Frequency:" -Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label141 -' -Me.Label141.BackColor = System.Drawing.Color.Transparent -Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label141.ForeColor = System.Drawing.Color.Black -Me.Label141.Location = New System.Drawing.Point(6, 163) -Me.Label141.Name = "Label141" -Me.Label141.Size = New System.Drawing.Size(141, 32) -Me.Label141.TabIndex = 189 -Me.Label141.Text = "Edging Ends Taunts:" -Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GBRangeRuinChance -' -Me.GBRangeRuinChance.Controls.Add(Me.Label90) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) -Me.GBRangeRuinChance.Controls.Add(Me.Label91) -Me.GBRangeRuinChance.Controls.Add(Me.Label92) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) -Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) -Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) -Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) -Me.GBRangeRuinChance.Name = "GBRangeRuinChance" -Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeRuinChance.TabIndex = 168 -Me.GBRangeRuinChance.TabStop = false -Me.GBRangeRuinChance.Text = "Ruin Chance" -' -'Label90 -' -Me.Label90.BackColor = System.Drawing.Color.Transparent -Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label90.ForeColor = System.Drawing.Color.Black -Me.Label90.Location = New System.Drawing.Point(6, 94) -Me.Label90.Name = "Label90" -Me.Label90.Size = New System.Drawing.Size(83, 17) -Me.Label90.TabIndex = 173 -Me.Label90.Text = "Rarely Ruins:" -Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBRuinSometimes -' -Me.NBRuinSometimes.Enabled = false -Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinSometimes.Name = "NBRuinSometimes" -Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBRuinSometimes.TabIndex = 169 -Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) -' -'Label91 -' -Me.Label91.BackColor = System.Drawing.Color.Transparent -Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label91.ForeColor = System.Drawing.Color.Black -Me.Label91.Location = New System.Drawing.Point(6, 68) -Me.Label91.Name = "Label91" -Me.Label91.Size = New System.Drawing.Size(102, 17) -Me.Label91.TabIndex = 172 -Me.Label91.Text = "Sometimes Ruins:" -Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label92 -' -Me.Label92.BackColor = System.Drawing.Color.Transparent -Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label92.ForeColor = System.Drawing.Color.Black -Me.Label92.Location = New System.Drawing.Point(6, 42) -Me.Label92.Name = "Label92" -Me.Label92.Size = New System.Drawing.Size(72, 17) -Me.Label92.TabIndex = 171 -Me.Label92.Text = "Often Ruins:" -Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBRuinRarely -' -Me.NBRuinRarely.Enabled = false -Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) -Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinRarely.Name = "NBRuinRarely" -Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) -Me.NBRuinRarely.TabIndex = 170 -Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) -' -'NBRuinOften -' -Me.NBRuinOften.Enabled = false -Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) -Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBRuinOften.Name = "NBRuinOften" -Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) -Me.NBRuinOften.TabIndex = 168 -Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) -' -'CBRangeRuin -' -Me.CBRangeRuin.AutoSize = true -Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black -Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) -Me.CBRangeRuin.Name = "CBRangeRuin" -Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) -Me.CBRangeRuin.TabIndex = 159 -Me.CBRangeRuin.Text = "Domme Decide" -Me.CBRangeRuin.UseVisualStyleBackColor = true -' -'GroupBox17 -' -Me.GroupBox17.Controls.Add(Me.GroupBox19) -Me.GroupBox17.Controls.Add(Me.GroupBox18) -Me.GroupBox17.Location = New System.Drawing.Point(408, 91) -Me.GroupBox17.Name = "GroupBox17" -Me.GroupBox17.Size = New System.Drawing.Size(291, 190) -Me.GroupBox17.TabIndex = 0 -Me.GroupBox17.TabStop = false -Me.GroupBox17.Text = "Video Teases" -' -'GroupBox19 -' -Me.GroupBox19.Controls.Add(Me.Label110) -Me.GroupBox19.Controls.Add(Me.Label111) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) -Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) -Me.GroupBox19.Controls.Add(Me.NBRedLightMax) -Me.GroupBox19.Controls.Add(Me.Label26) -Me.GroupBox19.Controls.Add(Me.NBRedLightMin) -Me.GroupBox19.Controls.Add(Me.Label28) -Me.GroupBox19.Controls.Add(Me.Label27) -Me.GroupBox19.Controls.Add(Me.Label29) -Me.GroupBox19.Location = New System.Drawing.Point(6, 110) -Me.GroupBox19.Name = "GroupBox19" -Me.GroupBox19.Size = New System.Drawing.Size(279, 66) -Me.GroupBox19.TabIndex = 2 -Me.GroupBox19.TabStop = false -Me.GroupBox19.Text = "Red Light, Green Light" -' -'Label110 -' -Me.Label110.BackColor = System.Drawing.Color.Transparent -Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label110.ForeColor = System.Drawing.Color.Black -Me.Label110.Location = New System.Drawing.Point(227, 39) -Me.Label110.Name = "Label110" -Me.Label110.Size = New System.Drawing.Size(50, 17) -Me.Label110.TabIndex = 181 -Me.Label110.Text = "seconds" -Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label111 -' -Me.Label111.BackColor = System.Drawing.Color.Transparent -Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label111.ForeColor = System.Drawing.Color.Black -Me.Label111.Location = New System.Drawing.Point(227, 16) -Me.Label111.Name = "Label111" -Me.Label111.Size = New System.Drawing.Size(50, 17) -Me.Label111.TabIndex = 180 -Me.Label111.Text = "seconds" -Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBGreenLightMax -' -Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) -Me.NBGreenLightMax.Name = "NBGreenLightMax" -Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMax.TabIndex = 156 -Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) -' -'NBGreenLightMin -' -Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) -Me.NBGreenLightMin.Name = "NBGreenLightMin" -Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBGreenLightMin.TabIndex = 155 -Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) -' -'NBRedLightMax -' -Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) -Me.NBRedLightMax.Name = "NBRedLightMax" -Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMax.TabIndex = 152 -Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) -' -'Label26 -' -Me.Label26.BackColor = System.Drawing.Color.Transparent -Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label26.ForeColor = System.Drawing.Color.Black -Me.Label26.Location = New System.Drawing.Point(161, 38) -Me.Label26.Name = "Label26" -Me.Label26.Size = New System.Drawing.Size(10, 17) -Me.Label26.TabIndex = 154 -Me.Label26.Text = "-" -Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBRedLightMin -' -Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) -Me.NBRedLightMin.Name = "NBRedLightMin" -Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) -Me.NBRedLightMin.TabIndex = 151 -Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) -' -'Label28 -' -Me.Label28.BackColor = System.Drawing.Color.Transparent -Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label28.ForeColor = System.Drawing.Color.Black -Me.Label28.Location = New System.Drawing.Point(161, 15) -Me.Label28.Name = "Label28" -Me.Label28.Size = New System.Drawing.Size(10, 17) -Me.Label28.TabIndex = 150 -Me.Label28.Text = "-" -Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label27 -' -Me.Label27.BackColor = System.Drawing.Color.Transparent -Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label27.ForeColor = System.Drawing.Color.Black -Me.Label27.Location = New System.Drawing.Point(6, 39) -Me.Label27.Name = "Label27" -Me.Label27.Size = New System.Drawing.Size(151, 17) -Me.Label27.TabIndex = 153 -Me.Label27.Text = "Green Light Time:" -Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label29 -' -Me.Label29.BackColor = System.Drawing.Color.Transparent -Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label29.ForeColor = System.Drawing.Color.Black -Me.Label29.Location = New System.Drawing.Point(6, 16) -Me.Label29.Name = "Label29" -Me.Label29.Size = New System.Drawing.Size(151, 17) -Me.Label29.TabIndex = 149 -Me.Label29.Text = "Red Light Time:" -Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox18 -' -Me.GroupBox18.Controls.Add(Me.Label108) -Me.GroupBox18.Controls.Add(Me.Label109) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) -Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) -Me.GroupBox18.Controls.Add(Me.CBCensorConstant) -Me.GroupBox18.Controls.Add(Me.Label25) -Me.GroupBox18.Controls.Add(Me.Label20) -Me.GroupBox18.Controls.Add(Me.Label19) -Me.GroupBox18.Controls.Add(Me.Label24) -Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) -Me.GroupBox18.Location = New System.Drawing.Point(6, 16) -Me.GroupBox18.Name = "GroupBox18" -Me.GroupBox18.Size = New System.Drawing.Size(279, 88) -Me.GroupBox18.TabIndex = 1 -Me.GroupBox18.TabStop = false -Me.GroupBox18.Text = "Censorship Sucks" -' -'Label108 -' -Me.Label108.BackColor = System.Drawing.Color.Transparent -Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label108.ForeColor = System.Drawing.Color.Black -Me.Label108.Location = New System.Drawing.Point(227, 39) -Me.Label108.Name = "Label108" -Me.Label108.Size = New System.Drawing.Size(50, 17) -Me.Label108.TabIndex = 179 -Me.Label108.Text = "seconds" -Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label109 -' -Me.Label109.BackColor = System.Drawing.Color.Transparent -Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label109.ForeColor = System.Drawing.Color.Black -Me.Label109.Location = New System.Drawing.Point(227, 16) -Me.Label109.Name = "Label109" -Me.Label109.Size = New System.Drawing.Size(50, 17) -Me.Label109.TabIndex = 178 -Me.Label109.Text = "seconds" -Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBCensorShowMin -' -Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) -Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMin.Name = "NBCensorShowMin" -Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMin.TabIndex = 151 -Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin -' -'NBCensorHideMax -' -Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) -Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMax.Name = "NBCensorHideMax" -Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMax.TabIndex = 156 -Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax -' -'NBCensorHideMin -' -Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) -Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) -Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorHideMin.Name = "NBCensorHideMin" -Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) -Me.NBCensorHideMin.TabIndex = 155 -Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin -' -'CBCensorConstant -' -Me.CBCensorConstant.AutoSize = true -Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant -Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black -Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) -Me.CBCensorConstant.Name = "CBCensorConstant" -Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) -Me.CBCensorConstant.TabIndex = 157 -Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" -Me.CBCensorConstant.UseVisualStyleBackColor = true -' -'Label25 -' -Me.Label25.BackColor = System.Drawing.Color.Transparent -Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label25.ForeColor = System.Drawing.Color.Black -Me.Label25.Location = New System.Drawing.Point(161, 15) -Me.Label25.Name = "Label25" -Me.Label25.Size = New System.Drawing.Size(10, 17) -Me.Label25.TabIndex = 150 -Me.Label25.Text = "-" -Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label20 -' -Me.Label20.BackColor = System.Drawing.Color.Transparent -Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label20.ForeColor = System.Drawing.Color.Black -Me.Label20.Location = New System.Drawing.Point(6, 39) -Me.Label20.Name = "Label20" -Me.Label20.Size = New System.Drawing.Size(110, 17) -Me.Label20.TabIndex = 153 -Me.Label20.Text = "Censor Bar Hidden:" -Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label19 -' -Me.Label19.BackColor = System.Drawing.Color.Transparent -Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label19.ForeColor = System.Drawing.Color.Black -Me.Label19.Location = New System.Drawing.Point(161, 38) -Me.Label19.Name = "Label19" -Me.Label19.Size = New System.Drawing.Size(10, 17) -Me.Label19.TabIndex = 154 -Me.Label19.Text = "-" -Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label24 -' -Me.Label24.BackColor = System.Drawing.Color.Transparent -Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label24.ForeColor = System.Drawing.Color.Black -Me.Label24.Location = New System.Drawing.Point(6, 16) -Me.Label24.Name = "Label24" -Me.Label24.Size = New System.Drawing.Size(110, 17) -Me.Label24.TabIndex = 149 -Me.Label24.Text = "Censor Bar Shown:" -Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBCensorShowMax -' -Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) -Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) -Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) -Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) -Me.NBCensorShowMax.Name = "NBCensorShowMax" -Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) -Me.NBCensorShowMax.TabIndex = 152 -Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax -' -'GBRangeOrgasmChance -' -Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) -Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) -Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) -Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) -Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) -Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" -Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) -Me.GBRangeOrgasmChance.TabIndex = 167 -Me.GBRangeOrgasmChance.TabStop = false -Me.GBRangeOrgasmChance.Text = "Orgasm Chance" -' -'Label89 -' -Me.Label89.BackColor = System.Drawing.Color.Transparent -Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label89.ForeColor = System.Drawing.Color.Black -Me.Label89.Location = New System.Drawing.Point(6, 94) -Me.Label89.Name = "Label89" -Me.Label89.Size = New System.Drawing.Size(83, 17) -Me.Label89.TabIndex = 173 -Me.Label89.Text = "Rarely Allows:" -Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBAllowSometimes -' -Me.NBAllowSometimes.Enabled = false -Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) -Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowSometimes.Name = "NBAllowSometimes" -Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) -Me.NBAllowSometimes.TabIndex = 169 -Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) -' -'Label86 -' -Me.Label86.BackColor = System.Drawing.Color.Transparent -Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label86.ForeColor = System.Drawing.Color.Black -Me.Label86.Location = New System.Drawing.Point(6, 68) -Me.Label86.Name = "Label86" -Me.Label86.Size = New System.Drawing.Size(102, 17) -Me.Label86.TabIndex = 172 -Me.Label86.Text = "Sometimes Allows:" -Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label82 -' -Me.Label82.BackColor = System.Drawing.Color.Transparent -Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label82.ForeColor = System.Drawing.Color.Black -Me.Label82.Location = New System.Drawing.Point(6, 42) -Me.Label82.Name = "Label82" -Me.Label82.Size = New System.Drawing.Size(83, 17) -Me.Label82.TabIndex = 171 -Me.Label82.Text = "Often Allows:" -Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'NBAllowRarely -' -Me.NBAllowRarely.Enabled = false -Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) -Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowRarely.Name = "NBAllowRarely" -Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) -Me.NBAllowRarely.TabIndex = 170 -Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) -' -'NBAllowOften -' -Me.NBAllowOften.Enabled = false -Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) -Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) -Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) -Me.NBAllowOften.Name = "NBAllowOften" -Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) -Me.NBAllowOften.TabIndex = 168 -Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) -' -'CBRangeOrgasm -' -Me.CBRangeOrgasm.AutoSize = true -Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black -Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) -Me.CBRangeOrgasm.Name = "CBRangeOrgasm" -Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) -Me.CBRangeOrgasm.TabIndex = 159 -Me.CBRangeOrgasm.Text = "Domme Decide" -Me.CBRangeOrgasm.UseVisualStyleBackColor = true -' -'PictureBox8 -' -Me.PictureBox8.BackColor = System.Drawing.Color.LightGray -Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox8.Location = New System.Drawing.Point(9, 6) -Me.PictureBox8.Name = "PictureBox8" -Me.PictureBox8.Size = New System.Drawing.Size(160, 19) -Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox8.TabIndex = 166 -Me.PictureBox8.TabStop = false -' -'Label38 -' -Me.Label38.BackColor = System.Drawing.Color.Transparent -Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label38.ForeColor = System.Drawing.Color.Black -Me.Label38.Location = New System.Drawing.Point(7, 6) -Me.Label38.Name = "Label38" -Me.Label38.Size = New System.Drawing.Size(692, 21) -Me.Label38.TabIndex = 48 -Me.Label38.Text = "Range Settings" -Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage13 -' -Me.TabPage13.BackColor = System.Drawing.Color.Silver -Me.TabPage13.Controls.Add(Me.TabControl2) -Me.TabPage13.Location = New System.Drawing.Point(4, 22) -Me.TabPage13.Name = "TabPage13" -Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage13.Size = New System.Drawing.Size(720, 448) -Me.TabPage13.TabIndex = 13 -Me.TabPage13.Text = "Modding" -' -'TabControl2 -' -Me.TabControl2.Controls.Add(Me.TabPage27) -Me.TabControl2.Controls.Add(Me.TabPage14) -Me.TabControl2.Controls.Add(Me.TabPage24) -Me.TabControl2.Controls.Add(Me.TabPage8) -Me.TabControl2.Controls.Add(Me.TabPage15) -Me.TabControl2.Location = New System.Drawing.Point(6, 6) -Me.TabControl2.Name = "TabControl2" -Me.TabControl2.SelectedIndex = 0 -Me.TabControl2.Size = New System.Drawing.Size(708, 437) -Me.TabControl2.TabIndex = 0 -' -'TabPage27 -' -Me.TabPage27.BackColor = System.Drawing.Color.LightGray -Me.TabPage27.Controls.Add(Me.TBPlaylistSave) -Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) -Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) -Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) -Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) -Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) -Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) -Me.TabPage27.Controls.Add(Me.Button7) -Me.TabPage27.Controls.Add(Me.WBPlaylist) -Me.TabPage27.Controls.Add(Me.Label80) -Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) -Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) -Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) -Me.TabPage27.Controls.Add(Me.LBPlaylist) -Me.TabPage27.Location = New System.Drawing.Point(4, 22) -Me.TabPage27.Name = "TabPage27" -Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage27.Size = New System.Drawing.Size(700, 411) -Me.TabPage27.TabIndex = 5 -Me.TabPage27.Text = "Playlists" -' -'TBPlaylistSave -' -Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) -Me.TBPlaylistSave.Name = "TBPlaylistSave" -Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) -Me.TBPlaylistSave.TabIndex = 203 -' -'BTNPlaylistCtrlZ -' -Me.BTNPlaylistCtrlZ.Enabled = false -Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) -Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" -Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistCtrlZ.TabIndex = 202 -Me.BTNPlaylistCtrlZ.Text = "Undo" -Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = true -' -'RadioPlaylistRegScripts -' -Me.RadioPlaylistRegScripts.AutoSize = true -Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) -Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" -Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) -Me.RadioPlaylistRegScripts.TabIndex = 201 -Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" -Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = true -' -'RadioPlaylistScripts -' -Me.RadioPlaylistScripts.AutoSize = true -Me.RadioPlaylistScripts.Checked = true -Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) -Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" -Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) -Me.RadioPlaylistScripts.TabIndex = 200 -Me.RadioPlaylistScripts.TabStop = true -Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" -Me.RadioPlaylistScripts.UseVisualStyleBackColor = true -' -'BTNPlaylistEnd -' -Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray -Me.BTNPlaylistEnd.Enabled = false -Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black -Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) -Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" -Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistEnd.TabIndex = 199 -Me.BTNPlaylistEnd.Text = "End" -Me.BTNPlaylistEnd.UseVisualStyleBackColor = false -' -'BTNPlaylistClearAll -' -Me.BTNPlaylistClearAll.Enabled = false -Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) -Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" -Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) -Me.BTNPlaylistClearAll.TabIndex = 198 -Me.BTNPlaylistClearAll.Text = "Clear All" -Me.BTNPlaylistClearAll.UseVisualStyleBackColor = true -' -'BTNPlaylistSave -' -Me.BTNPlaylistSave.Enabled = false -Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) -Me.BTNPlaylistSave.Name = "BTNPlaylistSave" -Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) -Me.BTNPlaylistSave.TabIndex = 197 -Me.BTNPlaylistSave.Text = "Save" -Me.BTNPlaylistSave.UseVisualStyleBackColor = true -' -'Button7 -' -Me.Button7.Location = New System.Drawing.Point(213, 21) -Me.Button7.Name = "Button7" -Me.Button7.Size = New System.Drawing.Size(78, 23) -Me.Button7.TabIndex = 196 -Me.Button7.Text = "Add Random" -Me.Button7.UseVisualStyleBackColor = true -' -'WBPlaylist -' -Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) -Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) -Me.WBPlaylist.Name = "WBPlaylist" -Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) -Me.WBPlaylist.TabIndex = 195 -' -'Label80 -' -Me.Label80.AutoSize = true -Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label80.Location = New System.Drawing.Point(410, 27) -Me.Label80.Name = "Label80" -Me.Label80.Size = New System.Drawing.Size(47, 13) -Me.Label80.TabIndex = 194 -Me.Label80.Text = "Playlist" -' -'LBLPlaylIstLink -' -Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylIstLink.Enabled = false -Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) -Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" -Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) -Me.LBLPlaylIstLink.TabIndex = 193 -Me.LBLPlaylIstLink.Text = "Link" -Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLPlaylistModule -' -Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPlaylistModule.Enabled = false -Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) -Me.LBLPlaylistModule.Name = "LBLPlaylistModule" -Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) -Me.LBLPlaylistModule.TabIndex = 192 -Me.LBLPlaylistModule.Text = "Module" -Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLPLaylistStart -' -Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green -Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White -Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) -Me.LBLPLaylistStart.Name = "LBLPLaylistStart" -Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) -Me.LBLPLaylistStart.TabIndex = 190 -Me.LBLPLaylistStart.Text = "Start" -Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBPlaylist -' -Me.LBPlaylist.AllowDrop = true -Me.LBPlaylist.FormattingEnabled = true -Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) -Me.LBPlaylist.Name = "LBPlaylist" -Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) -Me.LBPlaylist.TabIndex = 189 -' -'TabPage14 -' -Me.TabPage14.BackColor = System.Drawing.Color.LightGray -Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) -Me.TabPage14.Controls.Add(Me.Label88) -Me.TabPage14.Controls.Add(Me.TBKeywordPreview) -Me.TabPage14.Controls.Add(Me.Button37) -Me.TabPage14.Controls.Add(Me.Button50) -Me.TabPage14.Controls.Add(Me.Button22) -Me.TabPage14.Controls.Add(Me.TBKeyWords) -Me.TabPage14.Controls.Add(Me.LBKeyWords) -Me.TabPage14.Controls.Add(Me.RTBKeyWords) -Me.TabPage14.Location = New System.Drawing.Point(4, 22) -Me.TabPage14.Name = "TabPage14" -Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage14.Size = New System.Drawing.Size(700, 411) -Me.TabPage14.TabIndex = 0 -Me.TabPage14.Text = "Keywords" -' -'LBLKeywordPreview -' -Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) -Me.LBLKeywordPreview.Name = "LBLKeywordPreview" -Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) -Me.LBLKeywordPreview.TabIndex = 174 -Me.LBLKeywordPreview.Text = "Get Preview Here" -Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label88 -' -Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label88.Location = New System.Drawing.Point(3, 358) -Me.Label88.Name = "Label88" -Me.Label88.Size = New System.Drawing.Size(194, 53) -Me.Label88.TabIndex = 173 -Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence"& _ - " the domme return." -Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBKeywordPreview -' -Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) -Me.TBKeywordPreview.Name = "TBKeywordPreview" -Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) -Me.TBKeywordPreview.TabIndex = 172 -Me.TBKeywordPreview.Text = "Enter Line Here" -Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center -' -'Button37 -' -Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Button37.Location = New System.Drawing.Point(638, 358) -Me.Button37.Name = "Button37" -Me.Button37.Size = New System.Drawing.Size(47, 50) -Me.Button37.TabIndex = 171 -Me.Button37.Text = "#" -Me.Button37.UseVisualStyleBackColor = true -' -'Button50 -' -Me.Button50.Location = New System.Drawing.Point(6, 10) -Me.Button50.Name = "Button50" -Me.Button50.Size = New System.Drawing.Size(194, 23) -Me.Button50.TabIndex = 169 -Me.Button50.Text = "Refresh and Clear Keyword List" -Me.Button50.UseVisualStyleBackColor = true -' -'Button22 -' -Me.Button22.Location = New System.Drawing.Point(638, 10) -Me.Button22.Name = "Button22" -Me.Button22.Size = New System.Drawing.Size(47, 23) -Me.Button22.TabIndex = 167 -Me.Button22.Text = "Save" -Me.Button22.UseVisualStyleBackColor = true -' -'TBKeyWords -' -Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) -Me.TBKeyWords.Name = "TBKeyWords" -Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) -Me.TBKeyWords.TabIndex = 166 -' -'LBKeyWords -' -Me.LBKeyWords.FormattingEnabled = true -Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) -Me.LBKeyWords.Name = "LBKeyWords" -Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) -Me.LBKeyWords.Sorted = true -Me.LBKeyWords.TabIndex = 165 -' -'RTBKeyWords -' -Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) -Me.RTBKeyWords.Name = "RTBKeyWords" -Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) -Me.RTBKeyWords.TabIndex = 164 -Me.RTBKeyWords.Text = "" -' -'TabPage24 -' -Me.TabPage24.BackColor = System.Drawing.Color.LightGray -Me.TabPage24.Controls.Add(Me.Button9) -Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) -Me.TabPage24.Controls.Add(Me.Button4) -Me.TabPage24.Controls.Add(Me.Button5) -Me.TabPage24.Controls.Add(Me.TBResponses) -Me.TabPage24.Controls.Add(Me.LBResponses) -Me.TabPage24.Controls.Add(Me.RTBResponses) -Me.TabPage24.Location = New System.Drawing.Point(4, 22) -Me.TabPage24.Name = "TabPage24" -Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage24.Size = New System.Drawing.Size(700, 411) -Me.TabPage24.TabIndex = 3 -Me.TabPage24.Text = "Responses" -' -'Button9 -' -Me.Button9.Location = New System.Drawing.Point(217, 10) -Me.Button9.Name = "Button9" -Me.Button9.Size = New System.Drawing.Size(215, 23) -Me.Button9.TabIndex = 176 -Me.Button9.Text = "Response Template" -Me.Button9.UseVisualStyleBackColor = true -' -'RTBResponsesKEY -' -Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) -Me.RTBResponsesKEY.Name = "RTBResponsesKEY" -Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) -Me.RTBResponsesKEY.TabIndex = 175 -Me.RTBResponsesKEY.Text = "" -' -'Button4 -' -Me.Button4.Location = New System.Drawing.Point(6, 10) -Me.Button4.Name = "Button4" -Me.Button4.Size = New System.Drawing.Size(194, 23) -Me.Button4.TabIndex = 174 -Me.Button4.Text = "Refresh and Clear Response List" -Me.Button4.UseVisualStyleBackColor = true -' -'Button5 -' -Me.Button5.Location = New System.Drawing.Point(638, 10) -Me.Button5.Name = "Button5" -Me.Button5.Size = New System.Drawing.Size(47, 23) -Me.Button5.TabIndex = 173 -Me.Button5.Text = "Save" -Me.Button5.UseVisualStyleBackColor = true -' -'TBResponses -' -Me.TBResponses.Location = New System.Drawing.Point(438, 10) -Me.TBResponses.Name = "TBResponses" -Me.TBResponses.Size = New System.Drawing.Size(194, 20) -Me.TBResponses.TabIndex = 172 -' -'LBResponses -' -Me.LBResponses.FormattingEnabled = true -Me.LBResponses.Location = New System.Drawing.Point(6, 36) -Me.LBResponses.Name = "LBResponses" -Me.LBResponses.Size = New System.Drawing.Size(194, 355) -Me.LBResponses.Sorted = true -Me.LBResponses.TabIndex = 171 -' -'RTBResponses -' -Me.RTBResponses.Location = New System.Drawing.Point(217, 82) -Me.RTBResponses.Name = "RTBResponses" -Me.RTBResponses.Size = New System.Drawing.Size(468, 309) -Me.RTBResponses.TabIndex = 170 -Me.RTBResponses.Text = "" -' -'TabPage8 -' -Me.TabPage8.BackColor = System.Drawing.Color.LightGray -Me.TabPage8.Controls.Add(Me.RTBVideoMod) -Me.TabPage8.Controls.Add(Me.GroupBox29) -Me.TabPage8.Controls.Add(Me.BTNVideoModClear) -Me.TabPage8.Controls.Add(Me.GroupBox28) -Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) -Me.TabPage8.Controls.Add(Me.GroupBox30) -Me.TabPage8.Controls.Add(Me.BTNVideoModSave) -Me.TabPage8.Location = New System.Drawing.Point(4, 22) -Me.TabPage8.Name = "TabPage8" -Me.TabPage8.Size = New System.Drawing.Size(700, 411) -Me.TabPage8.TabIndex = 2 -Me.TabPage8.Text = "Video" -' -'RTBVideoMod -' -Me.RTBVideoMod.Enabled = false -Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) -Me.RTBVideoMod.Name = "RTBVideoMod" -Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) -Me.RTBVideoMod.TabIndex = 150 -Me.RTBVideoMod.Text = "" -' -'GroupBox29 -' -Me.GroupBox29.BackColor = System.Drawing.Color.LightGray -Me.GroupBox29.Controls.Add(Me.Label51) -Me.GroupBox29.ForeColor = System.Drawing.Color.Black -Me.GroupBox29.Location = New System.Drawing.Point(6, 309) -Me.GroupBox29.Name = "GroupBox29" -Me.GroupBox29.Size = New System.Drawing.Size(692, 92) -Me.GroupBox29.TabIndex = 66 -Me.GroupBox29.TabStop = false -Me.GroupBox29.Text = "Description" -' -'Label51 -' -Me.Label51.BackColor = System.Drawing.Color.Transparent -Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label51.ForeColor = System.Drawing.Color.Black -Me.Label51.Location = New System.Drawing.Point(6, 16) -Me.Label51.Name = "Label51" -Me.Label51.Size = New System.Drawing.Size(680, 73) -Me.Label51.TabIndex = 62 -Me.Label51.Text = resources.GetString("Label51.Text") -Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNVideoModClear -' -Me.BTNVideoModClear.Enabled = false -Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) -Me.BTNVideoModClear.Name = "BTNVideoModClear" -Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModClear.TabIndex = 153 -Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" -Me.BTNVideoModClear.UseVisualStyleBackColor = true -' -'GroupBox28 -' -Me.GroupBox28.Controls.Add(Me.CBVTType) -Me.GroupBox28.Location = New System.Drawing.Point(6, 8) -Me.GroupBox28.Name = "GroupBox28" -Me.GroupBox28.Size = New System.Drawing.Size(155, 46) -Me.GroupBox28.TabIndex = 148 -Me.GroupBox28.TabStop = false -Me.GroupBox28.Text = "Video Tease Type" -' -'CBVTType -' -Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBVTType.FormattingEnabled = true -Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) -Me.CBVTType.Location = New System.Drawing.Point(9, 15) -Me.CBVTType.Name = "CBVTType" -Me.CBVTType.Size = New System.Drawing.Size(137, 21) -Me.CBVTType.TabIndex = 171 -' -'BTNVideoModLoad -' -Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) -Me.BTNVideoModLoad.Name = "BTNVideoModLoad" -Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModLoad.TabIndex = 152 -Me.BTNVideoModLoad.Text = "Load Script" -Me.BTNVideoModLoad.UseVisualStyleBackColor = true -' -'GroupBox30 -' -Me.GroupBox30.Controls.Add(Me.LBVidScript) -Me.GroupBox30.Location = New System.Drawing.Point(6, 60) -Me.GroupBox30.Name = "GroupBox30" -Me.GroupBox30.Size = New System.Drawing.Size(155, 100) -Me.GroupBox30.TabIndex = 149 -Me.GroupBox30.TabStop = false -Me.GroupBox30.Text = "Script" -' -'LBVidScript -' -Me.LBVidScript.FormattingEnabled = true -Me.LBVidScript.Location = New System.Drawing.Point(9, 20) -Me.LBVidScript.Name = "LBVidScript" -Me.LBVidScript.Size = New System.Drawing.Size(137, 69) -Me.LBVidScript.TabIndex = 0 -' -'BTNVideoModSave -' -Me.BTNVideoModSave.Enabled = false -Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) -Me.BTNVideoModSave.Name = "BTNVideoModSave" -Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) -Me.BTNVideoModSave.TabIndex = 151 -Me.BTNVideoModSave.Text = "Save Changes" -Me.BTNVideoModSave.UseVisualStyleBackColor = true -' -'TabPage15 -' -Me.TabPage15.BackColor = System.Drawing.Color.LightGray -Me.TabPage15.Controls.Add(Me.Label62) -Me.TabPage15.Controls.Add(Me.Label61) -Me.TabPage15.Controls.Add(Me.Label57) -Me.TabPage15.Controls.Add(Me.Label58) -Me.TabPage15.Controls.Add(Me.Label60) -Me.TabPage15.Controls.Add(Me.TBGlitModFileName) -Me.TabPage15.Controls.Add(Me.GroupBox34) -Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) -Me.TabPage15.Controls.Add(Me.Button26) -Me.TabPage15.Controls.Add(Me.Label56) -Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) -Me.TabPage15.Controls.Add(Me.LBGlitModScripts) -Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) -Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) -Me.TabPage15.Controls.Add(Me.Button29) -Me.TabPage15.Controls.Add(Me.CBGlitModType) -Me.TabPage15.Controls.Add(Me.Label59) -Me.TabPage15.Controls.Add(Me.Label50) -Me.TabPage15.Location = New System.Drawing.Point(4, 22) -Me.TabPage15.Name = "TabPage15" -Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage15.Size = New System.Drawing.Size(700, 411) -Me.TabPage15.TabIndex = 1 -Me.TabPage15.Text = "Glitter" -' -'Label62 -' -Me.Label62.Location = New System.Drawing.Point(255, 169) -Me.Label62.Name = "Label62" -Me.Label62.Size = New System.Drawing.Size(59, 51) -Me.Label62.TabIndex = 177 -Me.Label62.Text = "@Cruel @Angry @Custom2" -Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label61 -' -Me.Label61.Location = New System.Drawing.Point(194, 169) -Me.Label61.Name = "Label61" -Me.Label61.Size = New System.Drawing.Size(59, 51) -Me.Label61.TabIndex = 176 -Me.Label61.Text = "@Bratty @Caring @Custom1" -Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'Label57 -' -Me.Label57.Location = New System.Drawing.Point(194, 11) -Me.Label57.Name = "Label57" -Me.Label57.Size = New System.Drawing.Size(120, 23) -Me.Label57.TabIndex = 160 -Me.Label57.Text = "File Name" -Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label58 -' -Me.Label58.Location = New System.Drawing.Point(350, 11) -Me.Label58.Name = "Label58" -Me.Label58.Size = New System.Drawing.Size(326, 23) -Me.Label58.TabIndex = 161 -Me.Label58.Text = "Domme's Post" -Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label60 -' -Me.Label60.Location = New System.Drawing.Point(194, 139) -Me.Label60.Name = "Label60" -Me.Label60.Size = New System.Drawing.Size(120, 30) -Me.Label60.TabIndex = 175 -Me.Label60.Text = "Tease Responses Need 3 of Each:" -Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TBGlitModFileName -' -Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) -Me.TBGlitModFileName.Name = "TBGlitModFileName" -Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) -Me.TBGlitModFileName.TabIndex = 158 -' -'GroupBox34 -' -Me.GroupBox34.BackColor = System.Drawing.Color.LightGray -Me.GroupBox34.Controls.Add(Me.Label52) -Me.GroupBox34.ForeColor = System.Drawing.Color.Black -Me.GroupBox34.Location = New System.Drawing.Point(8, 296) -Me.GroupBox34.Name = "GroupBox34" -Me.GroupBox34.Size = New System.Drawing.Size(683, 107) -Me.GroupBox34.TabIndex = 66 -Me.GroupBox34.TabStop = false -Me.GroupBox34.Text = "Description" -' -'Label52 -' -Me.Label52.BackColor = System.Drawing.Color.Transparent -Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label52.ForeColor = System.Drawing.Color.Black -Me.Label52.Location = New System.Drawing.Point(6, 16) -Me.Label52.Name = "Label52" -Me.Label52.Size = New System.Drawing.Size(670, 88) -Me.Label52.TabIndex = 62 -Me.Label52.Text = resources.GetString("Label52.Text") -Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'RTBGlitModDommePost -' -Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) -Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" -Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) -Me.RTBGlitModDommePost.TabIndex = 162 -Me.RTBGlitModDommePost.Text = "" -' -'Button26 -' -Me.Button26.Location = New System.Drawing.Point(194, 239) -Me.Button26.Name = "Button26" -Me.Button26.Size = New System.Drawing.Size(120, 23) -Me.Button26.TabIndex = 174 -Me.Button26.Text = "Clear Fields" -Me.Button26.UseVisualStyleBackColor = true -' -'Label56 -' -Me.Label56.Location = New System.Drawing.Point(350, 80) -Me.Label56.Name = "Label56" -Me.Label56.Size = New System.Drawing.Size(324, 23) -Me.Label56.TabIndex = 156 -Me.Label56.Text = "Responses (Minimum 3)" -Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'RTBGlitModResponses -' -Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) -Me.RTBGlitModResponses.Name = "RTBGlitModResponses" -Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) -Me.RTBGlitModResponses.TabIndex = 150 -Me.RTBGlitModResponses.Text = "" -' -'LBGlitModScripts -' -Me.LBGlitModScripts.FormattingEnabled = true -Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) -Me.LBGlitModScripts.Name = "LBGlitModScripts" -Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) -Me.LBGlitModScripts.TabIndex = 163 -' -'LBLGlitModScriptCount -' -Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) -Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" -Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) -Me.LBLGlitModScriptCount.TabIndex = 173 -Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" -Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLGlitModDomType -' -Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) -Me.LBLGlitModDomType.Name = "LBLGlitModDomType" -Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) -Me.LBLGlitModDomType.TabIndex = 155 -Me.LBLGlitModDomType.Text = "Total Brat" -Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Button29 -' -Me.Button29.Location = New System.Drawing.Point(194, 268) -Me.Button29.Name = "Button29" -Me.Button29.Size = New System.Drawing.Size(120, 23) -Me.Button29.TabIndex = 151 -Me.Button29.Text = "Save Glitter File" -Me.Button29.UseVisualStyleBackColor = true -' -'CBGlitModType -' -Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.CBGlitModType.FormattingEnabled = true -Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) -Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) -Me.CBGlitModType.Name = "CBGlitModType" -Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) -Me.CBGlitModType.TabIndex = 171 -' -'Label59 -' -Me.Label59.Location = New System.Drawing.Point(33, 11) -Me.Label59.Name = "Label59" -Me.Label59.Size = New System.Drawing.Size(130, 23) -Me.Label59.TabIndex = 172 -Me.Label59.Text = "Glitter Post Type" -Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label50 -' -Me.Label50.Location = New System.Drawing.Point(191, 80) -Me.Label50.Name = "Label50" -Me.Label50.Size = New System.Drawing.Size(123, 23) -Me.Label50.TabIndex = 154 -Me.Label50.Text = "Current Domme Personality:" -Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage25 -' -Me.TabPage25.BackColor = System.Drawing.Color.Silver -Me.TabPage25.Controls.Add(Me.Panel11) -Me.TabPage25.Location = New System.Drawing.Point(4, 22) -Me.TabPage25.Name = "TabPage25" -Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage25.Size = New System.Drawing.Size(720, 448) -Me.TabPage25.TabIndex = 18 -Me.TabPage25.Text = "Misc" -' -'Panel11 -' -Me.Panel11.BackColor = System.Drawing.Color.LightGray -Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel11.Controls.Add(Me.GroupBox62) -Me.Panel11.Controls.Add(Me.GroupBox33) -Me.Panel11.Controls.Add(Me.GroupBox8) -Me.Panel11.Controls.Add(Me.GroupBox27) -Me.Panel11.Controls.Add(Me.GroupBox20) -Me.Panel11.Controls.Add(Me.GroupBox15) -Me.Panel11.Controls.Add(Me.PictureBox9) -Me.Panel11.Controls.Add(Me.Label148) -Me.Panel11.Location = New System.Drawing.Point(6, 6) -Me.Panel11.Name = "Panel11" -Me.Panel11.Size = New System.Drawing.Size(708, 437) -Me.Panel11.TabIndex = 92 -' -'GroupBox62 -' -Me.GroupBox62.Controls.Add(Me.RBGerman) -Me.GroupBox62.Controls.Add(Me.RBEnglish) -Me.GroupBox62.Location = New System.Drawing.Point(420, 155) -Me.GroupBox62.Name = "GroupBox62" -Me.GroupBox62.Size = New System.Drawing.Size(277, 56) -Me.GroupBox62.TabIndex = 178 -Me.GroupBox62.TabStop = false -Me.GroupBox62.Text = "Language" -' -'RBGerman -' -Me.RBGerman.AutoSize = true -Me.RBGerman.Location = New System.Drawing.Point(180, 20) -Me.RBGerman.Name = "RBGerman" -Me.RBGerman.Size = New System.Drawing.Size(65, 17) -Me.RBGerman.TabIndex = 1 -Me.RBGerman.Text = "Deutsch" -Me.RBGerman.UseVisualStyleBackColor = true -' -'RBEnglish -' -Me.RBEnglish.AutoSize = true -Me.RBEnglish.Checked = true -Me.RBEnglish.Location = New System.Drawing.Point(36, 19) -Me.RBEnglish.Name = "RBEnglish" -Me.RBEnglish.Size = New System.Drawing.Size(59, 17) -Me.RBEnglish.TabIndex = 0 -Me.RBEnglish.TabStop = true -Me.RBEnglish.Text = "English" -Me.RBEnglish.UseVisualStyleBackColor = true -' -'GroupBox33 -' -Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) -Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) -Me.GroupBox33.Controls.Add(Me.Label140) -Me.GroupBox33.Controls.Add(Me.Button11) -Me.GroupBox33.Controls.Add(Me.LBLChastityState) -Me.GroupBox33.Controls.Add(Me.Label120) -Me.GroupBox33.Location = New System.Drawing.Point(420, 321) -Me.GroupBox33.Name = "GroupBox33" -Me.GroupBox33.Size = New System.Drawing.Size(277, 106) -Me.GroupBox33.TabIndex = 177 -Me.GroupBox33.TabStop = false -Me.GroupBox33.Text = "System States" -' -'BTNOfflineMode -' -Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) -Me.BTNOfflineMode.Name = "BTNOfflineMode" -Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) -Me.BTNOfflineMode.TabIndex = 180 -Me.BTNOfflineMode.Text = "Toggle" -Me.BTNOfflineMode.UseVisualStyleBackColor = true -' -'LBLOfflineMode -' -Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray -Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red -Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) -Me.LBLOfflineMode.Name = "LBLOfflineMode" -Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) -Me.LBLOfflineMode.TabIndex = 179 -Me.LBLOfflineMode.Text = "OFF" -Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label140 -' -Me.Label140.BackColor = System.Drawing.Color.LightGray -Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label140.Location = New System.Drawing.Point(17, 70) -Me.Label140.Name = "Label140" -Me.Label140.Size = New System.Drawing.Size(98, 23) -Me.Label140.TabIndex = 178 -Me.Label140.Text = "OFFLINE MODE" -Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Button11 -' -Me.Button11.Location = New System.Drawing.Point(161, 33) -Me.Button11.Name = "Button11" -Me.Button11.Size = New System.Drawing.Size(99, 23) -Me.Button11.TabIndex = 177 -Me.Button11.Text = "Toggle" -Me.Button11.UseVisualStyleBackColor = true -' -'LBLChastityState -' -Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray -Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLChastityState.ForeColor = System.Drawing.Color.Red -Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) -Me.LBLChastityState.Name = "LBLChastityState" -Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) -Me.LBLChastityState.TabIndex = 3 -Me.LBLChastityState.Text = "OFF" -Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label120 -' -Me.Label120.BackColor = System.Drawing.Color.LightGray -Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label120.Location = New System.Drawing.Point(17, 33) -Me.Label120.Name = "Label120" -Me.Label120.Size = New System.Drawing.Size(98, 23) -Me.Label120.TabIndex = 2 -Me.Label120.Text = "CHASTITY" -Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox8 -' -Me.GroupBox8.Controls.Add(Me.CBOutputErrors) -Me.GroupBox8.Location = New System.Drawing.Point(420, 214) -Me.GroupBox8.Name = "GroupBox8" -Me.GroupBox8.Size = New System.Drawing.Size(279, 47) -Me.GroupBox8.TabIndex = 179 -Me.GroupBox8.TabStop = false -Me.GroupBox8.Text = "System Information" -' -'CBOutputErrors -' -Me.CBOutputErrors.AutoSize = true -Me.CBOutputErrors.Checked = true -Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked -Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black -Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) -Me.CBOutputErrors.Name = "CBOutputErrors" -Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) -Me.CBOutputErrors.TabIndex = 29 -Me.CBOutputErrors.TabStop = false -Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" -Me.CBOutputErrors.UseVisualStyleBackColor = true -' -'GroupBox27 -' -Me.GroupBox27.Controls.Add(Me.Button6) -Me.GroupBox27.Controls.Add(Me.LBLSesSpace) -Me.GroupBox27.Controls.Add(Me.Button3) -Me.GroupBox27.Controls.Add(Me.LBLSesFiles) -Me.GroupBox27.Controls.Add(Me.Label125) -Me.GroupBox27.Controls.Add(Me.Label124) -Me.GroupBox27.Location = New System.Drawing.Point(420, 32) -Me.GroupBox27.Name = "GroupBox27" -Me.GroupBox27.Size = New System.Drawing.Size(279, 117) -Me.GroupBox27.TabIndex = 176 -Me.GroupBox27.TabStop = false -Me.GroupBox27.Text = "Session Images" -' -'Button6 -' -Me.Button6.Location = New System.Drawing.Point(143, 76) -Me.Button6.Name = "Button6" -Me.Button6.Size = New System.Drawing.Size(117, 23) -Me.Button6.TabIndex = 176 -Me.Button6.Text = "Delete All Files" -Me.Button6.UseVisualStyleBackColor = true -' -'LBLSesSpace -' -Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) -Me.LBLSesSpace.Name = "LBLSesSpace" -Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) -Me.LBLSesSpace.TabIndex = 3 -' -'Button3 -' -Me.Button3.Location = New System.Drawing.Point(20, 76) -Me.Button3.Name = "Button3" -Me.Button3.Size = New System.Drawing.Size(117, 23) -Me.Button3.TabIndex = 175 -Me.Button3.Text = "Open Folder" -Me.Button3.UseVisualStyleBackColor = true -' -'LBLSesFiles -' -Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) -Me.LBLSesFiles.Name = "LBLSesFiles" -Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) -Me.LBLSesFiles.TabIndex = 2 -' -'Label125 -' -Me.Label125.AutoSize = true -Me.Label125.Location = New System.Drawing.Point(17, 53) -Me.Label125.Name = "Label125" -Me.Label125.Size = New System.Drawing.Size(120, 13) -Me.Label125.TabIndex = 1 -Me.Label125.Text = "Total Disk Space Used:" -' -'Label124 -' -Me.Label124.AutoSize = true -Me.Label124.Location = New System.Drawing.Point(17, 24) -Me.Label124.Name = "Label124" -Me.Label124.Size = New System.Drawing.Size(126, 13) -Me.Label124.TabIndex = 0 -Me.Label124.Text = "Number of Files in Folder:" -' -'GroupBox20 -' -Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label87) -Me.GroupBox20.Controls.Add(Me.TBURLFileWith) -Me.GroupBox20.Controls.Add(Me.Label118) -Me.GroupBox20.Controls.Add(Me.Label85) -Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) -Me.GroupBox20.Controls.Add(Me.Label53) -Me.GroupBox20.Controls.Add(Me.Label8) -Me.GroupBox20.Controls.Add(Me.Button1) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) -Me.GroupBox20.Controls.Add(Me.Label117) -Me.GroupBox20.Controls.Add(Me.Label116) -Me.GroupBox20.Controls.Add(Me.PBCurrent) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) -Me.GroupBox20.Controls.Add(Me.PBMaintenance) -Me.GroupBox20.Controls.Add(Me.LBLMaintenance) -Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) -Me.GroupBox20.Location = New System.Drawing.Point(6, 32) -Me.GroupBox20.Name = "GroupBox20" -Me.GroupBox20.Size = New System.Drawing.Size(408, 283) -Me.GroupBox20.TabIndex = 174 -Me.GroupBox20.TabStop = false -Me.GroupBox20.Text = "Maintenance" -' -'BTNURLFileReplace -' -Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) -Me.BTNURLFileReplace.Name = "BTNURLFileReplace" -Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) -Me.BTNURLFileReplace.TabIndex = 184 -Me.BTNURLFileReplace.Text = "Replace" -Me.BTNURLFileReplace.UseVisualStyleBackColor = true -' -'Label87 -' -Me.Label87.AutoSize = true -Me.Label87.Location = New System.Drawing.Point(206, 254) -Me.Label87.Name = "Label87" -Me.Label87.Size = New System.Drawing.Size(38, 13) -Me.Label87.TabIndex = 183 -Me.Label87.Text = ".media" -' -'TBURLFileWith -' -Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) -Me.TBURLFileWith.Name = "TBURLFileWith" -Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileWith.TabIndex = 182 -' -'Label118 -' -Me.Label118.AutoSize = true -Me.Label118.Location = New System.Drawing.Point(142, 254) -Me.Label118.Name = "Label118" -Me.Label118.Size = New System.Drawing.Size(29, 13) -Me.Label118.TabIndex = 181 -Me.Label118.Text = "With" -' -'Label85 -' -Me.Label85.AutoSize = true -Me.Label85.Location = New System.Drawing.Point(98, 254) -Me.Label85.Name = "Label85" -Me.Label85.Size = New System.Drawing.Size(38, 13) -Me.Label85.TabIndex = 180 -Me.Label85.Text = ".media" -' -'TBURLFileReplace -' -Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) -Me.TBURLFileReplace.Name = "TBURLFileReplace" -Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) -Me.TBURLFileReplace.TabIndex = 179 -' -'Label53 -' -Me.Label53.AutoSize = true -Me.Label53.Location = New System.Drawing.Point(16, 254) -Me.Label53.Name = "Label53" -Me.Label53.Size = New System.Drawing.Size(47, 13) -Me.Label53.TabIndex = 178 -Me.Label53.Text = "Replace" -' -'Label8 -' -Me.Label8.AutoSize = true -Me.Label8.Location = New System.Drawing.Point(16, 232) -Me.Label8.Name = "Label8" -Me.Label8.Size = New System.Drawing.Size(130, 13) -Me.Label8.TabIndex = 177 -Me.Label8.Text = "Change URL File Servers " -' -'Button1 -' -Me.Button1.Enabled = false -Me.Button1.Location = New System.Drawing.Point(270, 19) -Me.Button1.Name = "Button1" -Me.Button1.Size = New System.Drawing.Size(121, 23) -Me.Button1.TabIndex = 176 -Me.Button1.Text = "Reset Settings" -Me.Button1.UseVisualStyleBackColor = true -' -'BTNMaintenanceScripts -' -Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) -Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" -Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceScripts.TabIndex = 175 -Me.BTNMaintenanceScripts.Text = "Audit Scripts" -Me.BTNMaintenanceScripts.UseVisualStyleBackColor = true -' -'BTNMaintenanceRefresh -' -Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) -Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" -Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRefresh.TabIndex = 7 -Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" -Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = true -' -'Label117 -' -Me.Label117.AutoSize = true -Me.Label117.Location = New System.Drawing.Point(15, 182) -Me.Label117.Name = "Label117" -Me.Label117.Size = New System.Drawing.Size(84, 13) -Me.Label117.TabIndex = 6 -Me.Label117.Text = "Overall Progress" -' -'Label116 -' -Me.Label116.AutoSize = true -Me.Label116.Location = New System.Drawing.Point(15, 140) -Me.Label116.Name = "Label116" -Me.Label116.Size = New System.Drawing.Size(85, 13) -Me.Label116.TabIndex = 5 -Me.Label116.Text = "Current Progress" -' -'PBCurrent -' -Me.PBCurrent.Location = New System.Drawing.Point(15, 156) -Me.PBCurrent.Name = "PBCurrent" -Me.PBCurrent.Size = New System.Drawing.Size(376, 23) -Me.PBCurrent.TabIndex = 4 -' -'BTNMaintenanceCancel -' -Me.BTNMaintenanceCancel.Enabled = false -Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) -Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" -Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceCancel.TabIndex = 3 -Me.BTNMaintenanceCancel.Text = "Cancel" -Me.BTNMaintenanceCancel.UseVisualStyleBackColor = true -' -'PBMaintenance -' -Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) -Me.PBMaintenance.Name = "PBMaintenance" -Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) -Me.PBMaintenance.TabIndex = 2 -' -'LBLMaintenance -' -Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) -Me.LBLMaintenance.Name = "LBLMaintenance" -Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) -Me.LBLMaintenance.TabIndex = 1 -Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNMaintenanceRebuild -' -Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) -Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" -Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) -Me.BTNMaintenanceRebuild.TabIndex = 0 -Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" -Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = true -' -'GroupBox15 -' -Me.GroupBox15.Controls.Add(Me.Label115) -Me.GroupBox15.Controls.Add(Me.TBWebStop) -Me.GroupBox15.Controls.Add(Me.TBWebStart) -Me.GroupBox15.Controls.Add(Me.Label114) -Me.GroupBox15.Controls.Add(Me.WebToy) -Me.GroupBox15.Location = New System.Drawing.Point(6, 321) -Me.GroupBox15.Name = "GroupBox15" -Me.GroupBox15.Size = New System.Drawing.Size(408, 106) -Me.GroupBox15.TabIndex = 173 -Me.GroupBox15.TabStop = false -Me.GroupBox15.Text = "Web-Controlled Sex Toy" -' -'Label115 -' -Me.Label115.AutoSize = true -Me.Label115.Location = New System.Drawing.Point(12, 58) -Me.Label115.Name = "Label115" -Me.Label115.Size = New System.Drawing.Size(54, 13) -Me.Label115.TabIndex = 171 -Me.Label115.Text = "Stop URL" -' -'TBWebStop -' -Me.TBWebStop.Location = New System.Drawing.Point(10, 72) -Me.TBWebStop.Name = "TBWebStop" -Me.TBWebStop.Size = New System.Drawing.Size(330, 20) -Me.TBWebStop.TabIndex = 170 -' -'TBWebStart -' -Me.TBWebStart.Location = New System.Drawing.Point(10, 33) -Me.TBWebStart.Name = "TBWebStart" -Me.TBWebStart.Size = New System.Drawing.Size(330, 20) -Me.TBWebStart.TabIndex = 167 -' -'Label114 -' -Me.Label114.AutoSize = true -Me.Label114.Location = New System.Drawing.Point(12, 17) -Me.Label114.Name = "Label114" -Me.Label114.Size = New System.Drawing.Size(54, 13) -Me.Label114.TabIndex = 168 -Me.Label114.Text = "Start URL" -' -'WebToy -' -Me.WebToy.Location = New System.Drawing.Point(346, 33) -Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) -Me.WebToy.Name = "WebToy" -Me.WebToy.Size = New System.Drawing.Size(45, 59) -Me.WebToy.TabIndex = 172 -' -'PictureBox9 -' -Me.PictureBox9.BackColor = System.Drawing.Color.LightGray -Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small -Me.PictureBox9.Location = New System.Drawing.Point(9, 6) -Me.PictureBox9.Name = "PictureBox9" -Me.PictureBox9.Size = New System.Drawing.Size(160, 19) -Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage -Me.PictureBox9.TabIndex = 166 -Me.PictureBox9.TabStop = false -' -'Label148 -' -Me.Label148.BackColor = System.Drawing.Color.Transparent -Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label148.ForeColor = System.Drawing.Color.Black -Me.Label148.Location = New System.Drawing.Point(7, 6) -Me.Label148.Name = "Label148" -Me.Label148.Size = New System.Drawing.Size(692, 21) -Me.Label148.TabIndex = 48 -Me.Label148.Text = "Miscellaneous Settings" -Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage28 -' -Me.TabPage28.BackColor = System.Drawing.Color.Silver -Me.TabPage28.Controls.Add(Me.TabControl3) -Me.TabPage28.Location = New System.Drawing.Point(4, 22) -Me.TabPage28.Name = "TabPage28" -Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage28.Size = New System.Drawing.Size(720, 448) -Me.TabPage28.TabIndex = 20 -Me.TabPage28.Text = "Debug" -' -'TabControl3 -' -Me.TabControl3.Controls.Add(Me.TabPage29) -Me.TabControl3.Controls.Add(Me.TabPage30) -Me.TabControl3.Location = New System.Drawing.Point(6, 6) -Me.TabControl3.Name = "TabControl3" -Me.TabControl3.SelectedIndex = 0 -Me.TabControl3.Size = New System.Drawing.Size(708, 437) -Me.TabControl3.TabIndex = 0 -' -'TabPage29 -' -Me.TabPage29.BackColor = System.Drawing.Color.LightGray -Me.TabPage29.Controls.Add(Me.Label143) -Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) -Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) -Me.TabPage29.Controls.Add(Me.GroupBox26) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) -Me.TabPage29.Controls.Add(Me.Label145) -Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) -Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) -Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) -Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) -Me.TabPage29.Controls.Add(Me.Label142) -Me.TabPage29.Controls.Add(Me.Label150) -Me.TabPage29.Controls.Add(Me.Label152) -Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) -Me.TabPage29.Controls.Add(Me.Label147) -Me.TabPage29.Location = New System.Drawing.Point(4, 22) -Me.TabPage29.Name = "TabPage29" -Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage29.Size = New System.Drawing.Size(700, 411) -Me.TabPage29.TabIndex = 0 -Me.TabPage29.Text = "TabPage29" -' -'Label143 -' -Me.Label143.Location = New System.Drawing.Point(402, 46) -Me.Label143.Name = "Label143" -Me.Label143.Size = New System.Drawing.Size(67, 23) -Me.Label143.TabIndex = 15 -Me.Label143.Text = "Script Timer" -Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugScriptTime -' -Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) -Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" -Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugScriptTime.TabIndex = 16 -Me.LBLDebugScriptTime.Text = "0" -Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDebugHoldEdgeTimer -' -Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) -Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" -Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugHoldEdgeTimer.TabIndex = 14 -Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" -Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = true -' -'GroupBox26 -' -Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) -Me.GroupBox26.Controls.Add(Me.Button19) -Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) -Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) -Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) -Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) -Me.GroupBox26.Location = New System.Drawing.Point(6, 5) -Me.GroupBox26.Name = "GroupBox26" -Me.GroupBox26.Size = New System.Drawing.Size(346, 178) -Me.GroupBox26.TabIndex = 0 -Me.GroupBox26.TabStop = false -Me.GroupBox26.Text = "Taunt Cycle" -' -'LBLCycleDebugCountdown -' -Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) -Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" -Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) -Me.LBLCycleDebugCountdown.TabIndex = 10 -Me.LBLCycleDebugCountdown.Text = "0" -Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Button19 -' -Me.Button19.Location = New System.Drawing.Point(191, 142) -Me.Button19.Name = "Button19" -Me.Button19.Size = New System.Drawing.Size(146, 30) -Me.Button19.TabIndex = 9 -Me.Button19.Text = "Countdown to 5 Seconds" -Me.Button19.UseVisualStyleBackColor = true -' -'BTNDebugTauntsClear -' -Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) -Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" -Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) -Me.BTNDebugTauntsClear.TabIndex = 8 -Me.BTNDebugTauntsClear.Text = "Clear" -Me.BTNDebugTauntsClear.UseVisualStyleBackColor = true -' -'TBDebugTaunts3 -' -Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) -Me.TBDebugTaunts3.Name = "TBDebugTaunts3" -Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts3.TabIndex = 7 -' -'TBDebugTaunts2 -' -Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) -Me.TBDebugTaunts2.Name = "TBDebugTaunts2" -Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts2.TabIndex = 6 -' -'TBDebugTaunts1 -' -Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) -Me.TBDebugTaunts1.Name = "TBDebugTaunts1" -Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) -Me.TBDebugTaunts1.TabIndex = 5 -' -'RBDebugTaunts3 -' -Me.RBDebugTaunts3.AutoSize = true -Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) -Me.RBDebugTaunts3.Name = "RBDebugTaunts3" -Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts3.TabIndex = 4 -Me.RBDebugTaunts3.Text = "3 Lines" -Me.RBDebugTaunts3.UseVisualStyleBackColor = true -' -'RBDebugTaunts2 -' -Me.RBDebugTaunts2.AutoSize = true -Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) -Me.RBDebugTaunts2.Name = "RBDebugTaunts2" -Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) -Me.RBDebugTaunts2.TabIndex = 3 -Me.RBDebugTaunts2.Text = "2 Lines" -Me.RBDebugTaunts2.UseVisualStyleBackColor = true -' -'RBDebugTaunts1 -' -Me.RBDebugTaunts1.AutoSize = true -Me.RBDebugTaunts1.Checked = true -Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) -Me.RBDebugTaunts1.Name = "RBDebugTaunts1" -Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) -Me.RBDebugTaunts1.TabIndex = 2 -Me.RBDebugTaunts1.TabStop = true -Me.RBDebugTaunts1.Text = "1 Line" -Me.RBDebugTaunts1.UseVisualStyleBackColor = true -' -'CBDebugTauntsEndless -' -Me.CBDebugTauntsEndless.AutoSize = true -Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) -Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" -Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) -Me.CBDebugTauntsEndless.TabIndex = 1 -Me.CBDebugTauntsEndless.Text = "Endless Cycle" -Me.CBDebugTauntsEndless.UseVisualStyleBackColor = true -' -'CBDebugTaunts -' -Me.CBDebugTaunts.AutoSize = true -Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) -Me.CBDebugTaunts.Name = "CBDebugTaunts" -Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) -Me.CBDebugTaunts.TabIndex = 0 -Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" -Me.CBDebugTaunts.UseVisualStyleBackColor = true -' -'BTNDebugStrokeTauntTimer -' -Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) -Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" -Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTauntTimer.TabIndex = 8 -Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" -Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = true -' -'LBLDebugHoldEdgeTime -' -Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) -Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" -Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugHoldEdgeTime.TabIndex = 13 -Me.LBLDebugHoldEdgeTime.Text = "0" -Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label145 -' -Me.Label145.Location = New System.Drawing.Point(402, 11) -Me.Label145.Name = "Label145" -Me.Label145.Size = New System.Drawing.Size(67, 23) -Me.Label145.TabIndex = 3 -Me.Label145.Text = "Tease Timer" -Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDebugStrokeTime -' -Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) -Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" -Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugStrokeTime.TabIndex = 2 -Me.BTNDebugStrokeTime.Text = "Set to 5" -Me.BTNDebugStrokeTime.UseVisualStyleBackColor = true -' -'BTNDebugEdgeTauntTimer -' -Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) -Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" -Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugEdgeTauntTimer.TabIndex = 11 -Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" -Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = true -' -'LBLDebugTeaseTime -' -Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) -Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" -Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugTeaseTime.TabIndex = 4 -Me.LBLDebugTeaseTime.Text = "0" -Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugStrokeTime -' -Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) -Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" -Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTime.TabIndex = 1 -Me.LBLDebugStrokeTime.Text = "0" -Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugEdgeTauntTime -' -Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) -Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" -Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugEdgeTauntTime.TabIndex = 10 -Me.LBLDebugEdgeTauntTime.Text = "0" -Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BTNDebugTeaseTimer -' -Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) -Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" -Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) -Me.BTNDebugTeaseTimer.TabIndex = 5 -Me.BTNDebugTeaseTimer.Text = "Set to 5" -Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = true -' -'Label142 -' -Me.Label142.Location = New System.Drawing.Point(402, 121) -Me.Label142.Name = "Label142" -Me.Label142.Size = New System.Drawing.Size(67, 23) -Me.Label142.TabIndex = 0 -Me.Label142.Text = "Stroke Timer" -Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label150 -' -Me.Label150.Location = New System.Drawing.Point(402, 206) -Me.Label150.Name = "Label150" -Me.Label150.Size = New System.Drawing.Size(67, 27) -Me.Label150.TabIndex = 9 -Me.Label150.Text = "Edge Taunt Timer" -Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label152 -' -Me.Label152.Location = New System.Drawing.Point(402, 238) -Me.Label152.Name = "Label152" -Me.Label152.Size = New System.Drawing.Size(67, 40) -Me.Label152.TabIndex = 12 -Me.Label152.Text = "Hold Edge Timer" -Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLDebugStrokeTauntTime -' -Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro -Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D -Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) -Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" -Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) -Me.LBLDebugStrokeTauntTime.TabIndex = 7 -Me.LBLDebugStrokeTauntTime.Text = "0" -Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label147 -' -Me.Label147.Location = New System.Drawing.Point(402, 143) -Me.Label147.Name = "Label147" -Me.Label147.Size = New System.Drawing.Size(67, 29) -Me.Label147.TabIndex = 6 -Me.Label147.Text = "Stroke Taunt Timer" -Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'TabPage30 -' -Me.TabPage30.BackColor = System.Drawing.Color.LightGray -Me.TabPage30.Controls.Add(Me.Button33) -Me.TabPage30.Controls.Add(Me.Button24) -Me.TabPage30.Location = New System.Drawing.Point(4, 22) -Me.TabPage30.Name = "TabPage30" -Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) -Me.TabPage30.Size = New System.Drawing.Size(700, 411) -Me.TabPage30.TabIndex = 1 -Me.TabPage30.Text = "TabPage30" -' -'Button33 -' -Me.Button33.Location = New System.Drawing.Point(6, 35) -Me.Button33.Name = "Button33" -Me.Button33.Size = New System.Drawing.Size(75, 23) -Me.Button33.TabIndex = 1 -Me.Button33.Text = "LoadState" -Me.Button33.UseVisualStyleBackColor = true -' -'Button24 -' -Me.Button24.Location = New System.Drawing.Point(6, 6) -Me.Button24.Name = "Button24" -Me.Button24.Size = New System.Drawing.Size(75, 23) -Me.Button24.TabIndex = 0 -Me.Button24.Text = "SaveState" -Me.Button24.UseVisualStyleBackColor = true -' -'TabPage5 -' -Me.TabPage5.BackColor = System.Drawing.Color.Silver -Me.TabPage5.Controls.Add(Me.Panel5) -Me.TabPage5.Location = New System.Drawing.Point(4, 22) -Me.TabPage5.Name = "TabPage5" -Me.TabPage5.Size = New System.Drawing.Size(720, 448) -Me.TabPage5.TabIndex = 17 -Me.TabPage5.Text = "About" -' -'Panel5 -' -Me.Panel5.BackColor = System.Drawing.Color.LightGray -Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Panel5.Controls.Add(Me.Label130) -Me.Panel5.Controls.Add(Me.Label123) -Me.Panel5.Controls.Add(Me.Label69) -Me.Panel5.Controls.Add(Me.Label113) -Me.Panel5.Controls.Add(Me.Label40) -Me.Panel5.Controls.Add(Me.Label35) -Me.Panel5.Controls.Add(Me.Label33) -Me.Panel5.Controls.Add(Me.Label17) -Me.Panel5.Controls.Add(Me.Label3) -Me.Panel5.Controls.Add(Me.PictureBox3) -Me.Panel5.Controls.Add(Me.Label41) -Me.Panel5.Location = New System.Drawing.Point(6, 6) -Me.Panel5.Name = "Panel5" -Me.Panel5.Size = New System.Drawing.Size(708, 437) -Me.Panel5.TabIndex = 92 -' -'Label130 -' -Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label130.Location = New System.Drawing.Point(522, 314) -Me.Label130.Name = "Label130" -Me.Label130.Size = New System.Drawing.Size(132, 54) -Me.Label130.TabIndex = 176 -Me.Label130.Text = "q55x8x"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Stefaf"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OxiKlein"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label123 -' -Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label123.Location = New System.Drawing.Point(62, 314) -Me.Label123.Name = "Label123" -Me.Label123.Size = New System.Drawing.Size(132, 54) -Me.Label123.TabIndex = 175 -Me.Label123.Text = "pepsifreak"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Daragorn"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ambossli" -Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label69 -' -Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label69.Location = New System.Drawing.Point(35, 314) -Me.Label69.Name = "Label69" -Me.Label69.Size = New System.Drawing.Size(638, 54) -Me.Label69.TabIndex = 174 -Me.Label69.Text = "Triple Alfa"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" malaru" -Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label113 -' -Me.Label113.AutoSize = true -Me.Label113.Location = New System.Drawing.Point(4, 417) -Me.Label113.Name = "Label113" -Me.Label113.Size = New System.Drawing.Size(452, 13) -Me.Label113.TabIndex = 173 -Me.Label113.Text = "All content contained in or viewed through this program are property of their res"& _ - "pective owners." -' -'Label40 -' -Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label40.Location = New System.Drawing.Point(35, 273) -Me.Label40.Name = "Label40" -Me.Label40.Size = New System.Drawing.Size(638, 24) -Me.Label40.TabIndex = 171 -Me.Label40.Text = "Special Thanks" -Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label35 -' -Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label35.Location = New System.Drawing.Point(32, 107) -Me.Label35.Name = "Label35" -Me.Label35.Size = New System.Drawing.Size(641, 77) -Me.Label35.TabIndex = 170 -Me.Label35.Text = "This program is freeware. It may be freely distributed."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Do not package or dist"& _ - "ribute this program with any scripts or additional content."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Please distribute a"& _ - "dditional files separately." -Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label33 -' -Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label33.Location = New System.Drawing.Point(32, 191) -Me.Label33.Name = "Label33" -Me.Label33.Size = New System.Drawing.Size(641, 77) -Me.Label33.TabIndex = 169 -Me.Label33.Text = resources.GetString("Label33.Text") -Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'Label17 -' -Me.Label17.AutoSize = true -Me.Label17.Location = New System.Drawing.Point(522, 78) -Me.Label17.Name = "Label17" -Me.Label17.Size = New System.Drawing.Size(93, 13) -Me.Label17.TabIndex = 168 -Me.Label17.Text = "Designed by 1885" -' -'Label3 -' -Me.Label3.AutoSize = true -Me.Label3.Location = New System.Drawing.Point(489, 417) -Me.Label3.Name = "Label3" -Me.Label3.Size = New System.Drawing.Size(215, 13) -Me.Label3.TabIndex = 167 -Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" -' -'PictureBox3 -' -Me.PictureBox3.BackColor = System.Drawing.Color.LightGray -Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big -Me.PictureBox3.Location = New System.Drawing.Point(84, 17) -Me.PictureBox3.Name = "PictureBox3" -Me.PictureBox3.Size = New System.Drawing.Size(531, 58) -Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage -Me.PictureBox3.TabIndex = 166 -Me.PictureBox3.TabStop = false -' -'Label41 -' -Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label41.Location = New System.Drawing.Point(35, 372) -Me.Label41.Name = "Label41" -Me.Label41.Size = New System.Drawing.Size(638, 39) -Me.Label41.TabIndex = 172 -Me.Label41.Text = "Thank you to everyone who has provided help and feedback."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Thank you to the commu"& _ - "nity who's been supportive of my work over the years. Tease AI exists because of"& _ - " you."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) -Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter -' -'BtnRandomImageDirClear -' -Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray -Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black -Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) -Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" -Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) -Me.BtnRandomImageDirClear.TabIndex = 181 -Me.BtnRandomImageDirClear.Text = "Clear" -Me.BtnRandomImageDirClear.UseVisualStyleBackColor = false -' -'GroupBox47 -' -Me.GroupBox47.BackColor = System.Drawing.Color.LightGray -Me.GroupBox47.Controls.Add(Me.GroupBox41) -Me.GroupBox47.Controls.Add(Me.GroupBox40) -Me.GroupBox47.ForeColor = System.Drawing.Color.Black -Me.GroupBox47.Location = New System.Drawing.Point(806, 255) -Me.GroupBox47.Name = "GroupBox47" -Me.GroupBox47.Size = New System.Drawing.Size(310, 190) -Me.GroupBox47.TabIndex = 63 -Me.GroupBox47.TabStop = false -Me.GroupBox47.Text = "Boobs and Butts Paths" -' -'GroupBox41 -' -Me.GroupBox41.Controls.Add(Me.Button34) -Me.GroupBox41.Location = New System.Drawing.Point(6, 110) -Me.GroupBox41.Name = "GroupBox41" -Me.GroupBox41.Size = New System.Drawing.Size(298, 74) -Me.GroupBox41.TabIndex = 153 -Me.GroupBox41.TabStop = false -Me.GroupBox41.Text = "Butts" -' -'Button34 -' -Me.Button34.BackColor = System.Drawing.Color.LightGray -Me.Button34.Font = New System.Drawing.Font("Wingdings", 10!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2,Byte)) -Me.Button34.ForeColor = System.Drawing.Color.Black -Me.Button34.Location = New System.Drawing.Point(85, 25) -Me.Button34.Name = "Button34" -Me.Button34.Size = New System.Drawing.Size(34, 28) -Me.Button34.TabIndex = 131 -Me.Button34.Text = "1" -Me.Button34.UseVisualStyleBackColor = false -' -'GroupBox40 -' -Me.GroupBox40.Location = New System.Drawing.Point(5, 35) -Me.GroupBox40.Name = "GroupBox40" -Me.GroupBox40.Size = New System.Drawing.Size(298, 74) -Me.GroupBox40.TabIndex = 152 -Me.GroupBox40.TabStop = false -Me.GroupBox40.Text = "Boobs" -' -'GroupBox44 -' -Me.GroupBox44.BackColor = System.Drawing.Color.LightGray -Me.GroupBox44.Controls.Add(Me.Label100) -Me.GroupBox44.ForeColor = System.Drawing.Color.Black -Me.GroupBox44.Location = New System.Drawing.Point(1149, 332) -Me.GroupBox44.Name = "GroupBox44" -Me.GroupBox44.Size = New System.Drawing.Size(310, 92) -Me.GroupBox44.TabIndex = 65 -Me.GroupBox44.TabStop = false -Me.GroupBox44.Text = "Description" -' -'Label100 -' -Me.Label100.BackColor = System.Drawing.Color.Transparent -Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label100.ForeColor = System.Drawing.Color.Black -Me.Label100.Location = New System.Drawing.Point(11, 16) -Me.Label100.Name = "Label100" -Me.Label100.Size = New System.Drawing.Size(286, 73) -Me.Label100.TabIndex = 62 -Me.Label100.Text = resources.GetString("Label100.Text") -Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox6 -' -Me.GroupBox6.Controls.Add(Me.Label171) -Me.GroupBox6.Controls.Add(Me.Label4) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) -Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) -Me.GroupBox6.Controls.Add(Me.Label94) -Me.GroupBox6.Controls.Add(Me.LBLLastRuined) -Me.GroupBox6.Controls.Add(Me.Label65) -Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) -Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) -Me.GroupBox6.Controls.Add(Me.Label14) -Me.GroupBox6.Location = New System.Drawing.Point(239, 201) -Me.GroupBox6.Name = "GroupBox6" -Me.GroupBox6.Size = New System.Drawing.Size(195, 181) -Me.GroupBox6.TabIndex = 156 -Me.GroupBox6.TabStop = false -Me.GroupBox6.Text = "Stats" -' -'Label4 -' -Me.Label4.AutoSize = true -Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label4.Location = New System.Drawing.Point(6, 19) -Me.Label4.Name = "Label4" -Me.Label4.Size = New System.Drawing.Size(75, 13) -Me.Label4.TabIndex = 147 -Me.Label4.Text = "Stroking Time:" -Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLAvgEdgeStroking -' -Me.LBLAvgEdgeStroking.AutoSize = true -Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(142, 85) -Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" -Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeStroking.TabIndex = 144 -Me.LBLAvgEdgeStroking.Text = "00:00" -Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLStrokeTimeTotal -' -Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(106, 17) -Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" -Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) -Me.LBLStrokeTimeTotal.TabIndex = 148 -Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" -Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label94 -' -Me.Label94.AutoSize = true -Me.Label94.BackColor = System.Drawing.Color.Transparent -Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label94.ForeColor = System.Drawing.Color.Black -Me.Label94.Location = New System.Drawing.Point(6, 63) -Me.Label94.Name = "Label94" -Me.Label94.Size = New System.Drawing.Size(64, 13) -Me.Label94.TabIndex = 150 -Me.Label94.Text = "Last Ruined" -Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLLastRuined -' -Me.LBLLastRuined.Location = New System.Drawing.Point(111, 61) -Me.LBLLastRuined.Name = "LBLLastRuined" -Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) -Me.LBLLastRuined.TabIndex = 152 -Me.LBLLastRuined.Text = "04/28/2015" -Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label65 -' -Me.Label65.AutoSize = true -Me.Label65.BackColor = System.Drawing.Color.Transparent -Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label65.ForeColor = System.Drawing.Color.Black -Me.Label65.Location = New System.Drawing.Point(6, 41) -Me.Label65.Name = "Label65" -Me.Label65.Size = New System.Drawing.Size(66, 13) -Me.Label65.TabIndex = 149 -Me.Label65.Text = "Last Orgasm" -Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLAvgEdgeNoTouch -' -Me.LBLAvgEdgeNoTouch.AutoSize = true -Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(142, 107) -Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" -Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) -Me.LBLAvgEdgeNoTouch.TabIndex = 146 -Me.LBLAvgEdgeNoTouch.Text = "00:00" -Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'LBLLastOrgasm -' -Me.LBLLastOrgasm.Location = New System.Drawing.Point(111, 39) -Me.LBLLastOrgasm.Name = "LBLLastOrgasm" -Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) -Me.LBLLastOrgasm.TabIndex = 151 -Me.LBLLastOrgasm.Text = "04/28/2015" -Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label14 -' -Me.Label14.AutoSize = true -Me.Label14.BackColor = System.Drawing.Color.Transparent -Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label14.ForeColor = System.Drawing.Color.Black -Me.Label14.Location = New System.Drawing.Point(6, 85) -Me.Label14.Name = "Label14" -Me.Label14.Size = New System.Drawing.Size(131, 13) -Me.Label14.TabIndex = 138 -Me.Label14.Text = "Avg Edge Time (Stroking):" -Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'GroupBox21 -' -Me.GroupBox21.BackColor = System.Drawing.Color.LightGray -Me.GroupBox21.Controls.Add(Me.Label153) -Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) -Me.GroupBox21.Controls.Add(Me.Label156) -Me.GroupBox21.ForeColor = System.Drawing.Color.Black -Me.GroupBox21.Location = New System.Drawing.Point(1143, 163) -Me.GroupBox21.Name = "GroupBox21" -Me.GroupBox21.Size = New System.Drawing.Size(316, 216) -Me.GroupBox21.TabIndex = 66 -Me.GroupBox21.TabStop = false -Me.GroupBox21.Text = "Description" -' -'Label153 -' -Me.Label153.BackColor = System.Drawing.Color.Transparent -Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label153.ForeColor = System.Drawing.Color.Black -Me.Label153.Location = New System.Drawing.Point(78, 94) -Me.Label153.Name = "Label153" -Me.Label153.Size = New System.Drawing.Size(158, 17) -Me.Label153.TabIndex = 135 -Me.Label153.Text = "No path selected" -Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'LBLRangeSettingsDescription -' -Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) -Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" -Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) -Me.LBLRangeSettingsDescription.TabIndex = 62 -Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'Label156 -' -Me.Label156.BackColor = System.Drawing.Color.Transparent -Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label156.ForeColor = System.Drawing.Color.Black -Me.Label156.Location = New System.Drawing.Point(133, 23) -Me.Label156.Name = "Label156" -Me.Label156.Size = New System.Drawing.Size(158, 17) -Me.Label156.TabIndex = 135 -Me.Label156.Text = "No path selected" -Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft -' -'GroupBox12 -' -Me.GroupBox12.BackColor = System.Drawing.Color.LightGray -Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) -Me.GroupBox12.ForeColor = System.Drawing.Color.Black -Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) -Me.GroupBox12.Name = "GroupBox12" -Me.GroupBox12.Size = New System.Drawing.Size(171, 124) -Me.GroupBox12.TabIndex = 65 -Me.GroupBox12.TabStop = false -Me.GroupBox12.Text = "Description" -' -'LBLSubSettingsDescription -' -Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent -Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black -Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) -Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" -Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) -Me.LBLSubSettingsDescription.TabIndex = 62 -Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio"& _ - "n." -' -'OpenFileDialog1 -' -Me.OpenFileDialog1.FileName = "OpenFileDialog1" -Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file"& _ - "s (*.*)|*.*" -Me.OpenFileDialog1.Title = "Select an image file" -' -'GetColor -' -Me.GetColor.Color = System.Drawing.Color.SteelBlue -' -'WebImageFileDialog -' -Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.WebImageFileDialog.Title = "Please select a URL File" -' -'OpenScriptDialog -' -Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenScriptDialog.Title = "Please select a script" -' -'OpenSettingsDialog -' -Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.OpenSettingsDialog.Title = "Please select a settings file to open" -' -'SaveSettingsDialog -' -Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" -Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" -' -'GroupBox65 -' -Me.GroupBox65.BackColor = System.Drawing.Color.LightGray -Me.GroupBox65.Controls.Add(Me.Label136) -Me.GroupBox65.Controls.Add(Me.Label134) -Me.GroupBox65.Controls.Add(Me.Label132) -Me.GroupBox65.Controls.Add(Me.TrackBar1) -Me.GroupBox65.Controls.Add(Me.ComboBox1) -Me.GroupBox65.Controls.Add(Me.CheckBox1) -Me.GroupBox65.Controls.Add(Me.Label135) -Me.GroupBox65.Controls.Add(Me.TrackBar2) -Me.GroupBox65.ForeColor = System.Drawing.Color.Black -Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) -Me.GroupBox65.Name = "GroupBox65" -Me.GroupBox65.Size = New System.Drawing.Size(259, 117) -Me.GroupBox65.TabIndex = 157 -Me.GroupBox65.TabStop = false -Me.GroupBox65.Text = "Text to Speech" -' -'Label136 -' -Me.Label136.AutoSize = true -Me.Label136.Location = New System.Drawing.Point(14, 52) -Me.Label136.Name = "Label136" -Me.Label136.Size = New System.Drawing.Size(45, 13) -Me.Label136.TabIndex = 32 -Me.Label136.Text = "Volume:" -' -'Label134 -' -Me.Label134.AutoSize = true -Me.Label134.Location = New System.Drawing.Point(141, 52) -Me.Label134.Name = "Label134" -Me.Label134.Size = New System.Drawing.Size(33, 13) -Me.Label134.TabIndex = 157 -Me.Label134.Text = "Rate:" -' -'Label132 -' -Me.Label132.Location = New System.Drawing.Point(202, 52) -Me.Label132.Name = "Label132" -Me.Label132.Size = New System.Drawing.Size(45, 13) -Me.Label132.TabIndex = 158 -Me.Label132.Text = "100" -Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'TrackBar1 -' -Me.TrackBar1.Location = New System.Drawing.Point(133, 68) -Me.TrackBar1.Minimum = -10 -Me.TrackBar1.Name = "TrackBar1" -Me.TrackBar1.Size = New System.Drawing.Size(120, 45) -Me.TrackBar1.TabIndex = 31 -' -'ComboBox1 -' -Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window -Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList -Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText -Me.ComboBox1.FormattingEnabled = true -Me.ComboBox1.Location = New System.Drawing.Point(71, 16) -Me.ComboBox1.Name = "ComboBox1" -Me.ComboBox1.Size = New System.Drawing.Size(178, 21) -Me.ComboBox1.TabIndex = 29 -Me.ComboBox1.TabStop = false -' -'CheckBox1 -' -Me.CheckBox1.AutoSize = true -Me.CheckBox1.ForeColor = System.Drawing.Color.Black -Me.CheckBox1.Location = New System.Drawing.Point(10, 18) -Me.CheckBox1.Name = "CheckBox1" -Me.CheckBox1.Size = New System.Drawing.Size(59, 17) -Me.CheckBox1.TabIndex = 28 -Me.CheckBox1.TabStop = false -Me.CheckBox1.Text = "Enable" -Me.CheckBox1.UseVisualStyleBackColor = true -' -'Label135 -' -Me.Label135.Location = New System.Drawing.Point(75, 52) -Me.Label135.Name = "Label135" -Me.Label135.Size = New System.Drawing.Size(45, 13) -Me.Label135.TabIndex = 33 -Me.Label135.Text = "100" -Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight -' -'TrackBar2 -' -Me.TrackBar2.Location = New System.Drawing.Point(6, 68) -Me.TrackBar2.Maximum = 100 -Me.TrackBar2.Name = "TrackBar2" -Me.TrackBar2.Size = New System.Drawing.Size(120, 45) -Me.TrackBar2.TabIndex = 30 -Me.TrackBar2.Value = 50 -' -'TxbImgUrlHardcore -' -Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray -Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill -Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) -Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" -Me.TxbImgUrlHardcore.ReadOnly = true -Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) -Me.TxbImgUrlHardcore.TabIndex = 145 -' -'TextBox2 -' -Me.TextBox2.BackColor = System.Drawing.Color.LightGray -Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle -Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill -Me.TextBox2.Location = New System.Drawing.Point(116, 34) -Me.TextBox2.Name = "TextBox2" -Me.TextBox2.ReadOnly = true -Me.TextBox2.Size = New System.Drawing.Size(189, 20) -Me.TextBox2.TabIndex = 145 -' -'Label171 -' -Me.Label171.AutoSize = true -Me.Label171.BackColor = System.Drawing.Color.Transparent -Me.Label171.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) -Me.Label171.ForeColor = System.Drawing.Color.Black -Me.Label171.Location = New System.Drawing.Point(6, 107) -Me.Label171.Name = "Label171" -Me.Label171.Size = New System.Drawing.Size(114, 13) -Me.Label171.TabIndex = 153 -Me.Label171.Text = "Avg Edge Time (Rest):" -Me.Label171.TextAlign = System.Drawing.ContentAlignment.MiddleCenter -' -'BWURLFiles -' -Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" -Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" -Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" -Me.BWURLFiles.WorkerReportsProgress = true -Me.BWURLFiles.WorkerSupportsCancellation = true -' -'FrmSettings -' -Me.AllowDrop = true -Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) -Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font -Me.ClientSize = New System.Drawing.Size(727, 465) -Me.Controls.Add(Me.GroupBox65) -Me.Controls.Add(Me.GroupBox44) -Me.Controls.Add(Me.GroupBox47) -Me.Controls.Add(Me.BtnRandomImageDirClear) -Me.Controls.Add(Me.SettingsPanel) -Me.Controls.Add(Me.GroupBox12) -Me.Controls.Add(Me.GroupBox21) -Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D -Me.MaximizeBox = false -Me.MinimizeBox = false -Me.Name = "FrmSettings" -Me.ShowIcon = false -Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen -Me.Text = "Tease AI Settings" -Me.SettingsPanel.ResumeLayout(false) -Me.SettingsTabs.ResumeLayout(false) -Me.TabPage1.ResumeLayout(false) -Me.PNLGeneralSettings.ResumeLayout(false) -Me.PNLGeneralSettings.PerformLayout -Me.GroupBox3.ResumeLayout(false) -Me.GroupBox2.ResumeLayout(false) -Me.GroupBox2.PerformLayout -Me.GroupBox64.ResumeLayout(false) -Me.GroupBox64.PerformLayout -Me.GBDommeImages.ResumeLayout(false) -Me.GBDommeImages.PerformLayout -CType(Me.slideshowNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGeneralTextToSpeech.ResumeLayout(false) -Me.GBGeneralTextToSpeech.PerformLayout -CType(Me.SliderVRate,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SliderVVolume,System.ComponentModel.ISupportInitialize).EndInit -Me.GBSafeword.ResumeLayout(false) -Me.GBSafeword.PerformLayout -Me.GBGeneralSystem.ResumeLayout(false) -Me.GBGeneralSystem.PerformLayout -Me.GBGeneralImages.ResumeLayout(false) -Me.GBGeneralImages.PerformLayout -CType(Me.PictureBox2,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGeneralSettings.ResumeLayout(false) -Me.GBGeneralSettings.PerformLayout -Me.GBSubFont.ResumeLayout(false) -CType(Me.NBFontSize,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDommeFont.ResumeLayout(false) -CType(Me.NBFontSizeD,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage2.ResumeLayout(false) -Me.Panel3.ResumeLayout(false) -Me.Panel3.PerformLayout -Me.GBGiveUp.ResumeLayout(false) -Me.GBGiveUp.PerformLayout -CType(Me.PictureBox4,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomTypingStyle.ResumeLayout(false) -Me.GBDomTypingStyle.PerformLayout -CType(Me.NBTypoChance,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox63.ResumeLayout(false) -Me.GroupBox63.PerformLayout -Me.GBDomRanges.ResumeLayout(false) -CType(Me.NBDomMoodMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBDomMoodMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSubAgeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSubAgeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSelfAgeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBSelfAgeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAvgCockMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAvgCockMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomStats.ResumeLayout(false) -Me.GBDomStats.PerformLayout -CType(Me.NBEmpathy,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBDomBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.domageNumBox,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBDomBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.domlevelNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomPersonality.ResumeLayout(false) -Me.GBDomPersonality.PerformLayout -Me.GBDomOrgasms.ResumeLayout(false) -Me.GBDomOrgasms.PerformLayout -CType(Me.orgasmsPerNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.GBDomPetNames.ResumeLayout(false) -Me.GBDomPetNames.PerformLayout -Me.TabPage10.ResumeLayout(false) -Me.Panel2.ResumeLayout(false) -Me.GroupBox22.ResumeLayout(false) -CType(Me.NBWritingTaskMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBWritingTaskMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox45.ResumeLayout(false) -CType(Me.CBTSlider,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox35.ResumeLayout(false) -Me.GroupBoxSorry.ResumeLayout(false) -Me.GroupBoxSorry.PerformLayout -Me.GroupBox39.ResumeLayout(false) -Me.GroupBox39.PerformLayout -Me.GroupBox38.ResumeLayout(false) -Me.GroupBox38.PerformLayout -Me.GroupBox37.ResumeLayout(false) -Me.GroupBox37.PerformLayout -Me.GroupBox36.ResumeLayout(false) -Me.GroupBox36.PerformLayout -Me.GroupBox13.ResumeLayout(false) -Me.GroupBox7.ResumeLayout(false) -Me.GroupBox7.PerformLayout -CType(Me.NBExtremeHoldMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBExtremeHoldMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBLongHoldMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBLongHoldMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBLongEdge,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBHoldTheEdgeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBHoldTheEdgeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.PictureBox12,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox32.ResumeLayout(false) -Me.GroupBox32.PerformLayout -CType(Me.NBBirthdayDay,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.subAgeNumBox,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBBirthdayMonth,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.CockSizeNumBox,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage16.ResumeLayout(false) -Me.Panel9.ResumeLayout(false) -Me.GroupBox31.ResumeLayout(false) -Me.TCScripts.ResumeLayout(false) -Me.TabPage21.ResumeLayout(false) -Me.TabPage17.ResumeLayout(false) -Me.TabPage18.ResumeLayout(false) -Me.TabPage19.ResumeLayout(false) -Me.GroupBox42.ResumeLayout(false) -CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox43.ResumeLayout(false) -Me.TabPage7.ResumeLayout(false) -Me.TabControl4.ResumeLayout(false) -Me.TpImagesUrlFiles.ResumeLayout(false) -Me.TpImagesUrlFiles.PerformLayout -Me.GroupBox66.ResumeLayout(false) -CType(Me.PBURLPreview,System.ComponentModel.ISupportInitialize).EndInit -Me.TpImagesGenre.ResumeLayout(false) -Me.GrbImageUrlFiles.ResumeLayout(false) -Me.TlpImageUrls.ResumeLayout(false) -Me.TlpImageUrls.PerformLayout -Me.GbxImagesGenre.ResumeLayout(false) -Me.TableLayoutPanel1.ResumeLayout(false) -Me.TableLayoutPanel1.PerformLayout -Me.TabPage33.ResumeLayout(false) -Me.TabControl5.ResumeLayout(false) -Me.TabPage34.ResumeLayout(false) -Me.TabPage34.PerformLayout -CType(Me.ImageTagPictureBox,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage35.ResumeLayout(false) -Me.TabPage35.PerformLayout -Me.GroupBox55.ResumeLayout(false) -Me.GroupBox55.PerformLayout -Me.GroupBox53.ResumeLayout(false) -Me.GroupBox53.PerformLayout -Me.GroupBox49.ResumeLayout(false) -Me.GroupBox49.PerformLayout -Me.GroupBox46.ResumeLayout(false) -Me.GroupBox46.PerformLayout -Me.GroupBox54.ResumeLayout(false) -Me.GroupBox54.PerformLayout -Me.GroupBox51.ResumeLayout(false) -Me.GroupBox51.PerformLayout -Me.GroupBox50.ResumeLayout(false) -Me.GroupBox50.PerformLayout -Me.GroupBox48.ResumeLayout(false) -Me.GroupBox48.PerformLayout -Me.TabPage11.ResumeLayout(false) -Me.Panel7.ResumeLayout(false) -Me.Panel7.PerformLayout -CType(Me.PictureBox5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.WebPictureBox,System.ComponentModel.ISupportInitialize).EndInit -Me.TpVideoSettings.ResumeLayout(false) -Me.PnlVideoSettings.ResumeLayout(false) -CType(Me.PbBannerVideoSettings,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxVideoGeneralD.ResumeLayout(false) -Me.GbxVideoGeneralD.PerformLayout -Me.GbxVideoSpecialD.ResumeLayout(false) -Me.GbxVideoSpecialD.PerformLayout -Me.GbxVideoGenreD.ResumeLayout(false) -Me.GbxVideoGenreD.PerformLayout -Me.GbxVideoDescription.ResumeLayout(false) -Me.GbxVideoGeneral.ResumeLayout(false) -Me.GbxVideoGeneral.PerformLayout -Me.GbxVideoSpecial.ResumeLayout(false) -Me.GbxVideoSpecial.PerformLayout -Me.GbxVideoGenre.ResumeLayout(false) -Me.GbxVideoGenre.PerformLayout -Me.TabPage20.ResumeLayout(false) -Me.TabControl1.ResumeLayout(false) -Me.TabPage22.ResumeLayout(false) -Me.PNLGlitter.ResumeLayout(false) -Me.PNLGlitter.PerformLayout -Me.GroupBox14.ResumeLayout(false) -Me.GroupBox14.PerformLayout -Me.GroupBox4.ResumeLayout(false) -Me.GBGlitterD.ResumeLayout(false) -Me.GBGlitterD.PerformLayout -Me.GrbGlitterfeed.ResumeLayout(false) -Me.GrbGlitterfeed.PerformLayout -CType(Me.GlitterSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGlitter1.ResumeLayout(false) -Me.GBGlitter1.PerformLayout -CType(Me.GlitterSlider1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV1,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGlitter3.ResumeLayout(false) -Me.GBGlitter3.PerformLayout -CType(Me.GlitterSlider3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV3,System.ComponentModel.ISupportInitialize).EndInit -Me.GBGlitter2.ResumeLayout(false) -Me.GBGlitter2.PerformLayout -CType(Me.GlitterSlider2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GlitterAV2,System.ComponentModel.ISupportInitialize).EndInit -Me.TpGames.ResumeLayout(false) -Me.TpGames.PerformLayout -Me.GbxCardsGold.ResumeLayout(false) -Me.GbxCardsGold.PerformLayout -CType(Me.GP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.GP4,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxCardsBackground.ResumeLayout(false) -CType(Me.CardBack,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxCardsBronze.ResumeLayout(false) -Me.GbxCardsBronze.PerformLayout -CType(Me.BP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP4,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.BP1,System.ComponentModel.ISupportInitialize).EndInit -Me.GbxCardsSilver.ResumeLayout(false) -Me.GbxCardsSilver.PerformLayout -CType(Me.SP6,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP2,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP5,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP3,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SP4,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage6.ResumeLayout(false) -Me.Panel10.ResumeLayout(false) -Me.Panel10.PerformLayout -CType(Me.NBWishlistCost,System.ComponentModel.ISupportInitialize).EndInit -Me.PNLWishList.ResumeLayout(false) -CType(Me.WishlistCostSilver,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.WishlistCostGold,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.WishlistPreview,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage26.ResumeLayout(false) -Me.Panel12.ResumeLayout(false) -Me.GroupBox9.ResumeLayout(false) -CType(Me.PictureBox10,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox5.ResumeLayout(false) -Me.GroupBox5.PerformLayout -Me.GroupBox11.ResumeLayout(false) -Me.GroupBox1.ResumeLayout(false) -CType(Me.PBBackgroundPreview,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage4.ResumeLayout(false) -Me.Panel6.ResumeLayout(false) -Me.GroupBox69.ResumeLayout(false) -Me.GroupBox69.PerformLayout -CType(Me.TypeSpeedSlider,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox68.ResumeLayout(false) -CType(Me.NBTasksMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTasksMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox67.ResumeLayout(false) -CType(Me.NBTaskCBTTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskCBTTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgeHoldTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskEdgesMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokingTimeMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTaskStrokesMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox10.ResumeLayout(false) -CType(Me.NBNextImageChance,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox57.ResumeLayout(false) -Me.GroupBox57.PerformLayout -CType(Me.NBTauntEdging,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.SliderSTF,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.TauntSlider,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTauntCycleMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTauntCycleMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTeaseLengthMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBTeaseLengthMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GBRangeRuinChance.ResumeLayout(false) -Me.GBRangeRuinChance.PerformLayout -CType(Me.NBRuinSometimes,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRuinRarely,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRuinOften,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox17.ResumeLayout(false) -Me.GroupBox19.ResumeLayout(false) -CType(Me.NBGreenLightMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBGreenLightMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRedLightMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBRedLightMin,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox18.ResumeLayout(false) -Me.GroupBox18.PerformLayout -CType(Me.NBCensorShowMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMax,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorHideMin,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBCensorShowMax,System.ComponentModel.ISupportInitialize).EndInit -Me.GBRangeOrgasmChance.ResumeLayout(false) -Me.GBRangeOrgasmChance.PerformLayout -CType(Me.NBAllowSometimes,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAllowRarely,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.NBAllowOften,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.PictureBox8,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage13.ResumeLayout(false) -Me.TabControl2.ResumeLayout(false) -Me.TabPage27.ResumeLayout(false) -Me.TabPage27.PerformLayout -Me.TabPage14.ResumeLayout(false) -Me.TabPage14.PerformLayout -Me.TabPage24.ResumeLayout(false) -Me.TabPage24.PerformLayout -Me.TabPage8.ResumeLayout(false) -Me.GroupBox29.ResumeLayout(false) -Me.GroupBox28.ResumeLayout(false) -Me.GroupBox30.ResumeLayout(false) -Me.TabPage15.ResumeLayout(false) -Me.TabPage15.PerformLayout -Me.GroupBox34.ResumeLayout(false) -Me.TabPage25.ResumeLayout(false) -Me.Panel11.ResumeLayout(false) -Me.GroupBox62.ResumeLayout(false) -Me.GroupBox62.PerformLayout -Me.GroupBox33.ResumeLayout(false) -Me.GroupBox8.ResumeLayout(false) -Me.GroupBox8.PerformLayout -Me.GroupBox27.ResumeLayout(false) -Me.GroupBox27.PerformLayout -Me.GroupBox20.ResumeLayout(false) -Me.GroupBox20.PerformLayout -Me.GroupBox15.ResumeLayout(false) -Me.GroupBox15.PerformLayout -CType(Me.PictureBox9,System.ComponentModel.ISupportInitialize).EndInit -Me.TabPage28.ResumeLayout(false) -Me.TabControl3.ResumeLayout(false) -Me.TabPage29.ResumeLayout(false) -Me.GroupBox26.ResumeLayout(false) -Me.GroupBox26.PerformLayout -Me.TabPage30.ResumeLayout(false) -Me.TabPage5.ResumeLayout(false) -Me.Panel5.ResumeLayout(false) -Me.Panel5.PerformLayout -CType(Me.PictureBox3,System.ComponentModel.ISupportInitialize).EndInit -Me.GroupBox47.ResumeLayout(false) -Me.GroupBox41.ResumeLayout(false) -Me.GroupBox44.ResumeLayout(false) -Me.GroupBox6.ResumeLayout(false) -Me.GroupBox6.PerformLayout -Me.GroupBox21.ResumeLayout(false) -Me.GroupBox12.ResumeLayout(false) -Me.GroupBox65.ResumeLayout(false) -Me.GroupBox65.PerformLayout -CType(Me.TrackBar1,System.ComponentModel.ISupportInitialize).EndInit -CType(Me.TrackBar2,System.ComponentModel.ISupportInitialize).EndInit -Me.ResumeLayout(false) + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmSettings)) + Me.SettingsPanel = New System.Windows.Forms.Panel() + Me.SettingsTabs = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.PNLGeneralSettings = New System.Windows.Forms.Panel() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.BTNValidateSystemFiles = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.TbxRandomImageDir = New System.Windows.Forms.TextBox() + Me.CBRandomDomme = New System.Windows.Forms.CheckBox() + Me.BtnRandomImageDir = New System.Windows.Forms.Button() + Me.BtnImportSettings = New System.Windows.Forms.Button() + Me.LblImportSettings = New System.Windows.Forms.Label() + Me.GroupBox64 = New System.Windows.Forms.GroupBox() + Me.CBMuteMedia = New System.Windows.Forms.CheckBox() + Me.GBDommeImages = New System.Windows.Forms.GroupBox() + Me.slideshowNumBox = New System.Windows.Forms.NumericUpDown() + Me.teaseRadio = New System.Windows.Forms.RadioButton() + Me.CBNewSlideshow = New System.Windows.Forms.CheckBox() + Me.offRadio = New System.Windows.Forms.RadioButton() + Me.BTNDomImageDir = New System.Windows.Forms.Button() + Me.timedRadio = New System.Windows.Forms.RadioButton() + Me.TbxDomImageDir = New System.Windows.Forms.TextBox() + Me.GBGeneralTextToSpeech = New System.Windows.Forms.GroupBox() + Me.LBLVRate = New System.Windows.Forms.Label() + Me.Label93 = New System.Windows.Forms.Label() + Me.LBLVVolume = New System.Windows.Forms.Label() + Me.Label68 = New System.Windows.Forms.Label() + Me.SliderVRate = New System.Windows.Forms.TrackBar() + Me.SliderVVolume = New System.Windows.Forms.TrackBar() + Me.TTSCheckBox = New System.Windows.Forms.CheckBox() + Me.TTSComboBox = New System.Windows.Forms.ComboBox() + Me.GBSafeword = New System.Windows.Forms.GroupBox() + Me.LBLSafeword = New System.Windows.Forms.Label() + Me.TBSafeword = New System.Windows.Forms.TextBox() + Me.GBGeneralSystem = New System.Windows.Forms.GroupBox() + Me.CBAuditStartup = New System.Windows.Forms.CheckBox() + Me.CBDomDel = New System.Windows.Forms.CheckBox() + Me.CBSettingsPause = New System.Windows.Forms.CheckBox() + Me.CBSaveChatlogExit = New System.Windows.Forms.CheckBox() + Me.CBAutosaveChatlog = New System.Windows.Forms.CheckBox() + Me.GBGeneralImages = New System.Windows.Forms.GroupBox() + Me.CBImageInfo = New System.Windows.Forms.CheckBox() + Me.CBSlideshowRandom = New System.Windows.Forms.CheckBox() + Me.landscapeCheckBox = New System.Windows.Forms.CheckBox() + Me.CBBlogImageWindow = New System.Windows.Forms.CheckBox() + Me.CBSlideshowSubDir = New System.Windows.Forms.CheckBox() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GBGeneralSettings = New System.Windows.Forms.GroupBox() + Me.CBWebtease = New System.Windows.Forms.CheckBox() + Me.GBSubFont = New System.Windows.Forms.GroupBox() + Me.BTNSubColor = New System.Windows.Forms.Button() + Me.LBLSubColor = New System.Windows.Forms.Label() + Me.NBFontSize = New System.Windows.Forms.NumericUpDown() + Me.Label2 = New System.Windows.Forms.Label() + Me.FontComboBox = New System.Windows.Forms.ComboBox() + Me.GBDommeFont = New System.Windows.Forms.GroupBox() + Me.BTNDomColor = New System.Windows.Forms.Button() + Me.LBLDomColor = New System.Windows.Forms.Label() + Me.FontComboBoxD = New System.Windows.Forms.ComboBox() + Me.NBFontSizeD = New System.Windows.Forms.NumericUpDown() + Me.Label7 = New System.Windows.Forms.Label() + Me.CBInputIcon = New System.Windows.Forms.CheckBox() + Me.typeinstantlyCheckBox = New System.Windows.Forms.CheckBox() + Me.timestampCheckBox = New System.Windows.Forms.CheckBox() + Me.shownamesCheckBox = New System.Windows.Forms.CheckBox() + Me.LBLGeneralSettings = New System.Windows.Forms.Label() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.GBGiveUp = New System.Windows.Forms.GroupBox() + Me.giveupCheckBox = New System.Windows.Forms.CheckBox() + Me.BTNLoadDomSet = New System.Windows.Forms.Button() + Me.BTNSaveDomSet = New System.Windows.Forms.Button() + Me.Label127 = New System.Windows.Forms.Label() + Me.Label126 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GBDomTypingStyle = New System.Windows.Forms.GroupBox() + Me.TBEmoteEnd = New System.Windows.Forms.TextBox() + Me.Label67 = New System.Windows.Forms.Label() + Me.TBEmote = New System.Windows.Forms.TextBox() + Me.NBTypoChance = New System.Windows.Forms.NumericUpDown() + Me.Label66 = New System.Windows.Forms.Label() + Me.CBMeMyMine = New System.Windows.Forms.CheckBox() + Me.GroupBox63 = New System.Windows.Forms.GroupBox() + Me.LCaseCheckBox = New System.Windows.Forms.CheckBox() + Me.apostropheCheckBox = New System.Windows.Forms.CheckBox() + Me.periodCheckBox = New System.Windows.Forms.CheckBox() + Me.commaCheckBox = New System.Windows.Forms.CheckBox() + Me.Label64 = New System.Windows.Forms.Label() + Me.GBDomRanges = New System.Windows.Forms.GroupBox() + Me.NBDomMoodMax = New System.Windows.Forms.NumericUpDown() + Me.NBDomMoodMin = New System.Windows.Forms.NumericUpDown() + Me.Label37 = New System.Windows.Forms.Label() + Me.Label39 = New System.Windows.Forms.Label() + Me.NBSubAgeMax = New System.Windows.Forms.NumericUpDown() + Me.NBSubAgeMin = New System.Windows.Forms.NumericUpDown() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label36 = New System.Windows.Forms.Label() + Me.NBSelfAgeMax = New System.Windows.Forms.NumericUpDown() + Me.NBSelfAgeMin = New System.Windows.Forms.NumericUpDown() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.NBAvgCockMax = New System.Windows.Forms.NumericUpDown() + Me.NBAvgCockMin = New System.Windows.Forms.NumericUpDown() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.GBDomStats = New System.Windows.Forms.GroupBox() + Me.Label128 = New System.Windows.Forms.Label() + Me.LBLEmpathy = New System.Windows.Forms.Label() + Me.NBEmpathy = New System.Windows.Forms.NumericUpDown() + Me.Label83 = New System.Windows.Forms.Label() + Me.NBDomBirthdayDay = New System.Windows.Forms.NumericUpDown() + Me.TBDomEyeColor = New System.Windows.Forms.TextBox() + Me.TBDomHairColor = New System.Windows.Forms.TextBox() + Me.domageNumBox = New System.Windows.Forms.NumericUpDown() + Me.Label47 = New System.Windows.Forms.Label() + Me.Label76 = New System.Windows.Forms.Label() + Me.NBDomBirthdayMonth = New System.Windows.Forms.NumericUpDown() + Me.Label84 = New System.Windows.Forms.Label() + Me.CBDomTattoos = New System.Windows.Forms.CheckBox() + Me.CBDomFreckles = New System.Windows.Forms.CheckBox() + Me.domhairlengthComboBox = New System.Windows.Forms.ComboBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.dompubichairComboBox = New System.Windows.Forms.ComboBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.boobComboBox = New System.Windows.Forms.ComboBox() + Me.DomLevelDescLabel = New System.Windows.Forms.Label() + Me.domlevelNumBox = New System.Windows.Forms.NumericUpDown() + Me.Label43 = New System.Windows.Forms.Label() + Me.Label44 = New System.Windows.Forms.Label() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() + Me.GBDomPersonality = New System.Windows.Forms.GroupBox() + Me.degradingCheckBox = New System.Windows.Forms.CheckBox() + Me.sadisticCheckBox = New System.Windows.Forms.CheckBox() + Me.supremacistCheckBox = New System.Windows.Forms.CheckBox() + Me.vulgarCheckBox = New System.Windows.Forms.CheckBox() + Me.crazyCheckBox = New System.Windows.Forms.CheckBox() + Me.CFNMCheckBox = New System.Windows.Forms.CheckBox() + Me.GBDomOrgasms = New System.Windows.Forms.GroupBox() + Me.CBLockOrgasmChances = New System.Windows.Forms.CheckBox() + Me.orgasmlockrandombutton = New System.Windows.Forms.Button() + Me.CBDomOrgasmEnds = New System.Windows.Forms.CheckBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.orgasmsperlockButton = New System.Windows.Forms.Button() + Me.orgasmsperComboBox = New System.Windows.Forms.ComboBox() + Me.orgasmsperLabel = New System.Windows.Forms.Label() + Me.limitcheckbox = New System.Windows.Forms.CheckBox() + Me.orgasmsPerNumBox = New System.Windows.Forms.NumericUpDown() + Me.CBDomDenialEnds = New System.Windows.Forms.CheckBox() + Me.alloworgasmComboBox = New System.Windows.Forms.ComboBox() + Me.ruinorgasmComboBox = New System.Windows.Forms.ComboBox() + Me.GBDomPetNames = New System.Windows.Forms.GroupBox() + Me.Label74 = New System.Windows.Forms.Label() + Me.petnameBox7 = New System.Windows.Forms.TextBox() + Me.petnameBox8 = New System.Windows.Forms.TextBox() + Me.petnameBox1 = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.petnameBox4 = New System.Windows.Forms.TextBox() + Me.petnameBox6 = New System.Windows.Forms.TextBox() + Me.petnameBox2 = New System.Windows.Forms.TextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.petnameBox5 = New System.Windows.Forms.TextBox() + Me.petnameBox3 = New System.Windows.Forms.TextBox() + Me.Label54 = New System.Windows.Forms.Label() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.GroupBox22 = New System.Windows.Forms.GroupBox() + Me.NBWritingTaskMax = New System.Windows.Forms.NumericUpDown() + Me.NBWritingTaskMin = New System.Windows.Forms.NumericUpDown() + Me.Label75 = New System.Windows.Forms.Label() + Me.Label77 = New System.Windows.Forms.Label() + Me.GroupBox45 = New System.Windows.Forms.GroupBox() + Me.LBLCBTSlider = New System.Windows.Forms.Label() + Me.CBCBTBalls = New System.Windows.Forms.CheckBox() + Me.CBCBTCock = New System.Windows.Forms.CheckBox() + Me.CBTSlider = New System.Windows.Forms.TrackBar() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.LBLAvgEdgeStroking = New System.Windows.Forms.Label() + Me.LBLStrokeTimeTotal = New System.Windows.Forms.Label() + Me.Label94 = New System.Windows.Forms.Label() + Me.LBLLastRuined = New System.Windows.Forms.Label() + Me.Label65 = New System.Windows.Forms.Label() + Me.LBLAvgEdgeNoTouch = New System.Windows.Forms.Label() + Me.LBLLastOrgasm = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.GroupBox35 = New System.Windows.Forms.GroupBox() + Me.GroupBoxSorry = New System.Windows.Forms.GroupBox() + Me.TBSorry = New System.Windows.Forms.TextBox() + Me.GroupBox39 = New System.Windows.Forms.GroupBox() + Me.CBHonorificInclude = New System.Windows.Forms.CheckBox() + Me.CBNameInclude = New System.Windows.Forms.CheckBox() + Me.CBHonorificCapitalized = New System.Windows.Forms.CheckBox() + Me.TBHonorific = New System.Windows.Forms.TextBox() + Me.GroupBox38 = New System.Windows.Forms.GroupBox() + Me.TBNo = New System.Windows.Forms.TextBox() + Me.GroupBox37 = New System.Windows.Forms.GroupBox() + Me.TBYes = New System.Windows.Forms.TextBox() + Me.GroupBox36 = New System.Windows.Forms.GroupBox() + Me.TBGreeting = New System.Windows.Forms.TextBox() + Me.GroupBox13 = New System.Windows.Forms.GroupBox() + Me.Label34 = New System.Windows.Forms.Label() + Me.TimeBoxWakeUp = New System.Windows.Forms.DateTimePicker() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.LBLMaxExtremeHold = New System.Windows.Forms.Label() + Me.LBLMinExtremeHold = New System.Windows.Forms.Label() + Me.NBExtremeHoldMin = New System.Windows.Forms.NumericUpDown() + Me.Label133 = New System.Windows.Forms.Label() + Me.NBExtremeHoldMax = New System.Windows.Forms.NumericUpDown() + Me.LBLMaxLongHold = New System.Windows.Forms.Label() + Me.Label78 = New System.Windows.Forms.Label() + Me.LBLMinLongHold = New System.Windows.Forms.Label() + Me.NBLongHoldMin = New System.Windows.Forms.NumericUpDown() + Me.Label129 = New System.Windows.Forms.Label() + Me.NBLongHoldMax = New System.Windows.Forms.NumericUpDown() + Me.LBLMaxHold = New System.Windows.Forms.Label() + Me.Label79 = New System.Windows.Forms.Label() + Me.NBLongEdge = New System.Windows.Forms.NumericUpDown() + Me.LBLMinHold = New System.Windows.Forms.Label() + Me.CBEdgeUseAvg = New System.Windows.Forms.CheckBox() + Me.CBLongEdgeInterrupts = New System.Windows.Forms.CheckBox() + Me.NBHoldTheEdgeMin = New System.Windows.Forms.NumericUpDown() + Me.Label55 = New System.Windows.Forms.Label() + Me.Label81 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.NBHoldTheEdgeMax = New System.Windows.Forms.NumericUpDown() + Me.CBLongEdgeTaunts = New System.Windows.Forms.CheckBox() + Me.Label131 = New System.Windows.Forms.Label() + Me.PictureBox12 = New System.Windows.Forms.PictureBox() + Me.GroupBox32 = New System.Windows.Forms.GroupBox() + Me.LBLSubBdayFormat = New System.Windows.Forms.Label() + Me.CBChastitySpikes = New System.Windows.Forms.CheckBox() + Me.CBOwnChastity = New System.Windows.Forms.CheckBox() + Me.CBChastityPA = New System.Windows.Forms.CheckBox() + Me.CBHimHer = New System.Windows.Forms.CheckBox() + Me.CBBallsToPussy = New System.Windows.Forms.CheckBox() + Me.CBCockToClit = New System.Windows.Forms.CheckBox() + Me.NBBirthdayDay = New System.Windows.Forms.NumericUpDown() + Me.CBSubCircumcised = New System.Windows.Forms.CheckBox() + Me.CBSubPierced = New System.Windows.Forms.CheckBox() + Me.TBSubEyeColor = New System.Windows.Forms.TextBox() + Me.TBSubHairColor = New System.Windows.Forms.TextBox() + Me.Label63 = New System.Windows.Forms.Label() + Me.LBLSubInches = New System.Windows.Forms.Label() + Me.subAgeNumBox = New System.Windows.Forms.NumericUpDown() + Me.NBBirthdayMonth = New System.Windows.Forms.NumericUpDown() + Me.LBLSubCockSize = New System.Windows.Forms.Label() + Me.CockSizeNumBox = New System.Windows.Forms.NumericUpDown() + Me.LBLSubEye = New System.Windows.Forms.Label() + Me.LBLSubHair = New System.Windows.Forms.Label() + Me.LBLSubBirthday = New System.Windows.Forms.Label() + Me.LBLSubAge = New System.Windows.Forms.Label() + Me.Label70 = New System.Windows.Forms.Label() + Me.TabPage16 = New System.Windows.Forms.TabPage() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.BTNScriptAvailable = New System.Windows.Forms.Button() + Me.BTNScriptNone = New System.Windows.Forms.Button() + Me.BTNScriptAll = New System.Windows.Forms.Button() + Me.BTNScriptOpen = New System.Windows.Forms.Button() + Me.LBLScriptReq = New System.Windows.Forms.Label() + Me.GroupBox31 = New System.Windows.Forms.GroupBox() + Me.RTBScriptReq = New System.Windows.Forms.RichTextBox() + Me.TCScripts = New System.Windows.Forms.TabControl() + Me.TabPage21 = New System.Windows.Forms.TabPage() + Me.CLBStartList = New System.Windows.Forms.CheckedListBox() + Me.TabPage17 = New System.Windows.Forms.TabPage() + Me.CLBModuleList = New System.Windows.Forms.CheckedListBox() + Me.TabPage18 = New System.Windows.Forms.TabPage() + Me.CLBLinkList = New System.Windows.Forms.CheckedListBox() + Me.TabPage19 = New System.Windows.Forms.TabPage() + Me.CLBEndList = New System.Windows.Forms.CheckedListBox() + Me.GroupBox42 = New System.Windows.Forms.GroupBox() + Me.RTBScriptDesc = New System.Windows.Forms.RichTextBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox43 = New System.Windows.Forms.GroupBox() + Me.Label98 = New System.Windows.Forms.Label() + Me.Label104 = New System.Windows.Forms.Label() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.TabControl4 = New System.Windows.Forms.TabControl() + Me.TpImagesUrlFiles = New System.Windows.Forms.TabPage() + Me.CBURLPreview = New System.Windows.Forms.CheckBox() + Me.GroupBox66 = New System.Windows.Forms.GroupBox() + Me.PBURLPreview = New System.Windows.Forms.PictureBox() + Me.BTNURLFilesAll = New System.Windows.Forms.Button() + Me.BTNURLFilesNone = New System.Windows.Forms.Button() + Me.URLFileList = New System.Windows.Forms.CheckedListBox() + Me.TpImagesGenre = New System.Windows.Forms.TabPage() + Me.GrbImageUrlFiles = New System.Windows.Forms.GroupBox() + Me.TlpImageUrls = New System.Windows.Forms.TableLayoutPanel() + Me.BtnImageUrlButt = New System.Windows.Forms.Button() + Me.BtnImageUrlBoobs = New System.Windows.Forms.Button() + Me.BtnImageUrlBlowjob = New System.Windows.Forms.Button() + Me.BtnImageUrlCaptions = New System.Windows.Forms.Button() + Me.BtnImageUrlHentai = New System.Windows.Forms.Button() + Me.BtnImageUrlGay = New System.Windows.Forms.Button() + Me.BtnImageUrlGeneral = New System.Windows.Forms.Button() + Me.BtnImageUrlHardcore = New System.Windows.Forms.Button() + Me.BtnImageUrlLesbian = New System.Windows.Forms.Button() + Me.BtnImageUrlLezdom = New System.Windows.Forms.Button() + Me.BtnImageUrlMaledom = New System.Windows.Forms.Button() + Me.BtnImageUrlFemdom = New System.Windows.Forms.Button() + Me.BtnImageUrlSoftcore = New System.Windows.Forms.Button() + Me.ChbImageUrlHardcore = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlButts = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlMaledom = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlGay = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlSoftcore = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlBoobs = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlLesbian = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlBlowjob = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlCaptions = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlGeneral = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlFemdom = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlHentai = New System.Windows.Forms.CheckBox() + Me.ChbImageUrlLezdom = New System.Windows.Forms.CheckBox() + Me.TxbImageUrlBlowjob = New System.Windows.Forms.TextBox() + Me.TxbImageUrlSoftcore = New System.Windows.Forms.TextBox() + Me.TxbImageUrlLezdom = New System.Windows.Forms.TextBox() + Me.TxbImageUrlFemdom = New System.Windows.Forms.TextBox() + Me.TxbImageUrlHardcore = New System.Windows.Forms.TextBox() + Me.TxbImageUrlHentai = New System.Windows.Forms.TextBox() + Me.TxbImageUrlGay = New System.Windows.Forms.TextBox() + Me.TxbImageUrlLesbian = New System.Windows.Forms.TextBox() + Me.TxbImageUrlMaledom = New System.Windows.Forms.TextBox() + Me.TxbImageUrlCaptions = New System.Windows.Forms.TextBox() + Me.TxbImageUrlGeneral = New System.Windows.Forms.TextBox() + Me.TxbImageUrlBoobs = New System.Windows.Forms.TextBox() + Me.TxbImageUrlButts = New System.Windows.Forms.TextBox() + Me.GbxImagesGenre = New System.Windows.Forms.GroupBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.BTNIHardcore = New System.Windows.Forms.Button() + Me.TbxIHardcore = New System.Windows.Forms.TextBox() + Me.CBIHardcoreSD = New System.Windows.Forms.CheckBox() + Me.CBIHardcore = New System.Windows.Forms.CheckBox() + Me.CBISoftcore = New System.Windows.Forms.CheckBox() + Me.TbxISoftcore = New System.Windows.Forms.TextBox() + Me.CBButtSubDir = New System.Windows.Forms.CheckBox() + Me.CBISoftcoreSD = New System.Windows.Forms.CheckBox() + Me.CBBoobSubDir = New System.Windows.Forms.CheckBox() + Me.CBILezdomSD = New System.Windows.Forms.CheckBox() + Me.CBIGeneralSD = New System.Windows.Forms.CheckBox() + Me.CBILesbianSD = New System.Windows.Forms.CheckBox() + Me.CBICaptionsSD = New System.Windows.Forms.CheckBox() + Me.CBILesbian = New System.Windows.Forms.CheckBox() + Me.CBIMaledomSD = New System.Windows.Forms.CheckBox() + Me.CBIBlowjob = New System.Windows.Forms.CheckBox() + Me.CBIGaySD = New System.Windows.Forms.CheckBox() + Me.CBIHentaiSD = New System.Windows.Forms.CheckBox() + Me.CBIBlowjobSD = New System.Windows.Forms.CheckBox() + Me.CBIFemdomSD = New System.Windows.Forms.CheckBox() + Me.TbxIButts = New System.Windows.Forms.TextBox() + Me.CBIFemdom = New System.Windows.Forms.CheckBox() + Me.TbxILesbian = New System.Windows.Forms.TextBox() + Me.BTNISoftcore = New System.Windows.Forms.Button() + Me.CBILezdom = New System.Windows.Forms.CheckBox() + Me.TbxIBoobs = New System.Windows.Forms.TextBox() + Me.CBIHentai = New System.Windows.Forms.CheckBox() + Me.TbxIBlowjob = New System.Windows.Forms.TextBox() + Me.CBIGay = New System.Windows.Forms.CheckBox() + Me.TbxIGeneral = New System.Windows.Forms.TextBox() + Me.CBIMaledom = New System.Windows.Forms.CheckBox() + Me.TbxIFemdom = New System.Windows.Forms.TextBox() + Me.BTNILesbian = New System.Windows.Forms.Button() + Me.TbxICaptions = New System.Windows.Forms.TextBox() + Me.CBICaptions = New System.Windows.Forms.CheckBox() + Me.TbxILezdom = New System.Windows.Forms.TextBox() + Me.TbxIMaledom = New System.Windows.Forms.TextBox() + Me.BTNButtPath = New System.Windows.Forms.Button() + Me.TbxIHentai = New System.Windows.Forms.TextBox() + Me.CBIGeneral = New System.Windows.Forms.CheckBox() + Me.TbxIGay = New System.Windows.Forms.TextBox() + Me.CBIBoobs = New System.Windows.Forms.CheckBox() + Me.CBIButts = New System.Windows.Forms.CheckBox() + Me.BTNIBlowjob = New System.Windows.Forms.Button() + Me.BTNIFemdom = New System.Windows.Forms.Button() + Me.BTNBoobPath = New System.Windows.Forms.Button() + Me.BTNILezdom = New System.Windows.Forms.Button() + Me.BTNIHentai = New System.Windows.Forms.Button() + Me.BTNIGay = New System.Windows.Forms.Button() + Me.BTNIMaledom = New System.Windows.Forms.Button() + Me.BTNICaptions = New System.Windows.Forms.Button() + Me.BTNIGeneral = New System.Windows.Forms.Button() + Me.TabPage33 = New System.Windows.Forms.TabPage() + Me.TabControl5 = New System.Windows.Forms.TabControl() + Me.TabPage34 = New System.Windows.Forms.TabPage() + Me.CBTagSeeThrough = New System.Windows.Forms.RadioButton() + Me.CBTagAllFours = New System.Windows.Forms.CheckBox() + Me.CBTagGlaring = New System.Windows.Forms.CheckBox() + Me.CBTagSmiling = New System.Windows.Forms.CheckBox() + Me.TBTagDir = New System.Windows.Forms.TextBox() + Me.CBTagPiercing = New System.Windows.Forms.CheckBox() + Me.CBTagLegs = New System.Windows.Forms.CheckBox() + Me.TBTagFurniture = New System.Windows.Forms.TextBox() + Me.CBTagFurniture = New System.Windows.Forms.CheckBox() + Me.TBTagSexToy = New System.Windows.Forms.TextBox() + Me.CBTagSexToy = New System.Windows.Forms.CheckBox() + Me.TBTagTattoo = New System.Windows.Forms.TextBox() + Me.CBTagTattoo = New System.Windows.Forms.CheckBox() + Me.TBTagUnderwear = New System.Windows.Forms.TextBox() + Me.CBTagUnderwear = New System.Windows.Forms.CheckBox() + Me.TBTagGarment = New System.Windows.Forms.TextBox() + Me.CBTagGarment = New System.Windows.Forms.CheckBox() + Me.Label72 = New System.Windows.Forms.Label() + Me.CBTagHandsCovering = New System.Windows.Forms.RadioButton() + Me.CBTagGarmentCovering = New System.Windows.Forms.RadioButton() + Me.CBTagCloseUp = New System.Windows.Forms.CheckBox() + Me.CBTagNaked = New System.Windows.Forms.RadioButton() + Me.CBTagSideView = New System.Windows.Forms.CheckBox() + Me.BTNTagPrevious = New System.Windows.Forms.Button() + Me.CBTagHalfDressed = New System.Windows.Forms.RadioButton() + Me.BTNTagNext = New System.Windows.Forms.Button() + Me.CBTagFullyDressed = New System.Windows.Forms.RadioButton() + Me.LBLTagCount = New System.Windows.Forms.Label() + Me.CBTagSucking = New System.Windows.Forms.CheckBox() + Me.CBTagMasturbating = New System.Windows.Forms.CheckBox() + Me.CBTagFeet = New System.Windows.Forms.CheckBox() + Me.CBTagBoobs = New System.Windows.Forms.CheckBox() + Me.CBTagAss = New System.Windows.Forms.CheckBox() + Me.CBTagPussy = New System.Windows.Forms.CheckBox() + Me.BTNTagSave = New System.Windows.Forms.Button() + Me.BTNTagDir = New System.Windows.Forms.Button() + Me.ImageTagPictureBox = New System.Windows.Forms.PictureBox() + Me.CBTagFace = New System.Windows.Forms.CheckBox() + Me.TabPage35 = New System.Windows.Forms.TabPage() + Me.GroupBox55 = New System.Windows.Forms.GroupBox() + Me.CBTagNurse = New System.Windows.Forms.CheckBox() + Me.CBTagSchoolgirl = New System.Windows.Forms.CheckBox() + Me.CBTagMaid = New System.Windows.Forms.CheckBox() + Me.CBTagTeacher = New System.Windows.Forms.CheckBox() + Me.CBTagSuperhero = New System.Windows.Forms.CheckBox() + Me.GroupBox53 = New System.Windows.Forms.GroupBox() + Me.CBTagTrap = New System.Windows.Forms.CheckBox() + Me.CBTagTentacles = New System.Windows.Forms.CheckBox() + Me.CBTagMonsterGirl = New System.Windows.Forms.CheckBox() + Me.CBTagBukkake = New System.Windows.Forms.CheckBox() + Me.CBTagGanguro = New System.Windows.Forms.CheckBox() + Me.CBTagBodyWriting = New System.Windows.Forms.CheckBox() + Me.CBTagMahouShoujo = New System.Windows.Forms.CheckBox() + Me.CBTagBakunyuu = New System.Windows.Forms.CheckBox() + Me.CBTagAhegao = New System.Windows.Forms.CheckBox() + Me.CBTagShibari = New System.Windows.Forms.CheckBox() + Me.GroupBox49 = New System.Windows.Forms.GroupBox() + Me.CBTagBodyMouth = New System.Windows.Forms.CheckBox() + Me.CBTagBodyAss = New System.Windows.Forms.CheckBox() + Me.CBTagBodyFace = New System.Windows.Forms.CheckBox() + Me.CBTagBodyLegs = New System.Windows.Forms.CheckBox() + Me.CBTagBodyBalls = New System.Windows.Forms.CheckBox() + Me.CBTagBodyCock = New System.Windows.Forms.CheckBox() + Me.CBTagBodyFeet = New System.Windows.Forms.CheckBox() + Me.CBTagBodyNipples = New System.Windows.Forms.CheckBox() + Me.CBTagBodyPussy = New System.Windows.Forms.CheckBox() + Me.CBTagBodyTits = New System.Windows.Forms.CheckBox() + Me.CBTagBodyFingers = New System.Windows.Forms.CheckBox() + Me.GroupBox46 = New System.Windows.Forms.GroupBox() + Me.CBTagMultiSub = New System.Windows.Forms.CheckBox() + Me.CBTagMultiDom = New System.Windows.Forms.CheckBox() + Me.CBTagFemdom = New System.Windows.Forms.CheckBox() + Me.CBTag2M = New System.Windows.Forms.CheckBox() + Me.CBTagFutadom = New System.Windows.Forms.CheckBox() + Me.CBTagFemsub = New System.Windows.Forms.CheckBox() + Me.CBTag2Futa = New System.Windows.Forms.CheckBox() + Me.CBTagMaledom = New System.Windows.Forms.CheckBox() + Me.CBTag3M = New System.Windows.Forms.CheckBox() + Me.CBTagFutasub = New System.Windows.Forms.CheckBox() + Me.CBTag3Futa = New System.Windows.Forms.CheckBox() + Me.CBTagMalesub = New System.Windows.Forms.CheckBox() + Me.CBTag2F = New System.Windows.Forms.CheckBox() + Me.CBTag1Futa = New System.Windows.Forms.CheckBox() + Me.CBTag1M = New System.Windows.Forms.CheckBox() + Me.CBTag1F = New System.Windows.Forms.CheckBox() + Me.CBTag3F = New System.Windows.Forms.CheckBox() + Me.GroupBox54 = New System.Windows.Forms.GroupBox() + Me.CBTagTattoos = New System.Windows.Forms.CheckBox() + Me.CBTagAnalToy = New System.Windows.Forms.CheckBox() + Me.CBTagDomme = New System.Windows.Forms.CheckBox() + Me.CBTagPocketPussy = New System.Windows.Forms.CheckBox() + Me.CBTagWatersports = New System.Windows.Forms.CheckBox() + Me.CBTagStockings = New System.Windows.Forms.CheckBox() + Me.CBTagCumshot = New System.Windows.Forms.CheckBox() + Me.CBTagCumEating = New System.Windows.Forms.CheckBox() + Me.CBTagVibrator = New System.Windows.Forms.CheckBox() + Me.CBTagDildo = New System.Windows.Forms.CheckBox() + Me.CBTagKissing = New System.Windows.Forms.CheckBox() + Me.GroupBox51 = New System.Windows.Forms.GroupBox() + Me.CBTagBallTorture = New System.Windows.Forms.CheckBox() + Me.CBTagGag = New System.Windows.Forms.CheckBox() + Me.CBTagBlindfold = New System.Windows.Forms.CheckBox() + Me.CBTagWhipping = New System.Windows.Forms.CheckBox() + Me.CBTagCockTorture = New System.Windows.Forms.CheckBox() + Me.CBTagElectro = New System.Windows.Forms.CheckBox() + Me.CBTagHotWax = New System.Windows.Forms.CheckBox() + Me.CBTagClamps = New System.Windows.Forms.CheckBox() + Me.CBTagStrapon = New System.Windows.Forms.CheckBox() + Me.CBTagSpanking = New System.Windows.Forms.CheckBox() + Me.CBTagNeedles = New System.Windows.Forms.CheckBox() + Me.GroupBox50 = New System.Windows.Forms.GroupBox() + Me.CBTagRimming = New System.Windows.Forms.CheckBox() + Me.CBTagFacesitting = New System.Windows.Forms.CheckBox() + Me.CBTagMissionary = New System.Windows.Forms.CheckBox() + Me.CBTagMasturbation = New System.Windows.Forms.CheckBox() + Me.CBTagRCowgirl = New System.Windows.Forms.CheckBox() + Me.CBTagFingering = New System.Windows.Forms.CheckBox() + Me.CBTagGangbang = New System.Windows.Forms.CheckBox() + Me.CBTagBlowjob = New System.Windows.Forms.CheckBox() + Me.CBTagDP = New System.Windows.Forms.CheckBox() + Me.CBTagHandjob = New System.Windows.Forms.CheckBox() + Me.CBTagStanding = New System.Windows.Forms.CheckBox() + Me.CBTagFootjob = New System.Windows.Forms.CheckBox() + Me.CBTagCowgirl = New System.Windows.Forms.CheckBox() + Me.CBTagDoggyStyle = New System.Windows.Forms.CheckBox() + Me.CBTagTitjob = New System.Windows.Forms.CheckBox() + Me.CBTagCunnilingus = New System.Windows.Forms.CheckBox() + Me.CBTagAnalSex = New System.Windows.Forms.CheckBox() + Me.GroupBox48 = New System.Windows.Forms.GroupBox() + Me.CBTagArtwork = New System.Windows.Forms.CheckBox() + Me.CBTagOutdoors = New System.Windows.Forms.CheckBox() + Me.CBTagPOV = New System.Windows.Forms.CheckBox() + Me.CBTagHardcore = New System.Windows.Forms.CheckBox() + Me.CBTagTD = New System.Windows.Forms.CheckBox() + Me.CBTagGay = New System.Windows.Forms.CheckBox() + Me.CBTagBath = New System.Windows.Forms.CheckBox() + Me.CBTagBisexual = New System.Windows.Forms.CheckBox() + Me.CBTagCFNM = New System.Windows.Forms.CheckBox() + Me.CBTagLesbian = New System.Windows.Forms.CheckBox() + Me.CBTagSoloFuta = New System.Windows.Forms.CheckBox() + Me.CBTagSM = New System.Windows.Forms.CheckBox() + Me.CBTagBondage = New System.Windows.Forms.CheckBox() + Me.CBTagSoloM = New System.Windows.Forms.CheckBox() + Me.CBTagSoloF = New System.Windows.Forms.CheckBox() + Me.CBTagChastity = New System.Windows.Forms.CheckBox() + Me.CBTagShower = New System.Windows.Forms.CheckBox() + Me.TBLocalTagDir = New System.Windows.Forms.TextBox() + Me.BTNLocalTagPrevious = New System.Windows.Forms.Button() + Me.BTNLocalTagNext = New System.Windows.Forms.Button() + Me.LBLLocalTagCount = New System.Windows.Forms.Label() + Me.BTNLocalTagSave = New System.Windows.Forms.Button() + Me.BTNLocalTagDir = New System.Windows.Forms.Button() + Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.BTNWIContinue = New System.Windows.Forms.Button() + Me.BTNWIAddandContinue = New System.Windows.Forms.Button() + Me.BTNWICancel = New System.Windows.Forms.Button() + Me.CBWIReview = New System.Windows.Forms.CheckBox() + Me.BTNWIBrowse = New System.Windows.Forms.Button() + Me.TBWIDirectory = New System.Windows.Forms.TextBox() + Me.BTNWIDisliked = New System.Windows.Forms.Button() + Me.BTNWILiked = New System.Windows.Forms.Button() + Me.BTNWIRemove = New System.Windows.Forms.Button() + Me.CBWISaveToDisk = New System.Windows.Forms.CheckBox() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.WebImageProgressBar = New System.Windows.Forms.ProgressBar() + Me.BTNWICreateURL = New System.Windows.Forms.Button() + Me.LBLWebImageCount = New System.Windows.Forms.Label() + Me.BTNWISave = New System.Windows.Forms.Button() + Me.BTNWIOpenURL = New System.Windows.Forms.Button() + Me.BTNWIPrevious = New System.Windows.Forms.Button() + Me.BTNWINext = New System.Windows.Forms.Button() + Me.WebPictureBox = New System.Windows.Forms.PictureBox() + Me.Label71 = New System.Windows.Forms.Label() + Me.TpVideoSettings = New System.Windows.Forms.TabPage() + Me.PnlVideoSettings = New System.Windows.Forms.Panel() + Me.PbBannerVideoSettings = New System.Windows.Forms.PictureBox() + Me.BTNRefreshVideos = New System.Windows.Forms.Button() + Me.GbxVideoGeneralD = New System.Windows.Forms.GroupBox() + Me.LblVideoGeneralTotalD = New System.Windows.Forms.Label() + Me.TxbVideoGeneralD = New System.Windows.Forms.TextBox() + Me.BTNVideoGeneralD = New System.Windows.Forms.Button() + Me.CBVideoGeneralD = New System.Windows.Forms.CheckBox() + Me.GbxVideoSpecialD = New System.Windows.Forms.GroupBox() + Me.LblVideoCHTotalD = New System.Windows.Forms.Label() + Me.LblVideoJOITotalD = New System.Windows.Forms.Label() + Me.TxbVideoCHD = New System.Windows.Forms.TextBox() + Me.TxbVideoJOID = New System.Windows.Forms.TextBox() + Me.BTNVideoCHD = New System.Windows.Forms.Button() + Me.BTNVideoJOID = New System.Windows.Forms.Button() + Me.CBVideoJOID = New System.Windows.Forms.CheckBox() + Me.CBVideoCHD = New System.Windows.Forms.CheckBox() + Me.GbxVideoGenreD = New System.Windows.Forms.GroupBox() + Me.LblVideoFemsubTotalD = New System.Windows.Forms.Label() + Me.TxbVideoFemsubD = New System.Windows.Forms.TextBox() + Me.LblVideoFemdomTotalD = New System.Windows.Forms.Label() + Me.TxbVideoFemdomD = New System.Windows.Forms.TextBox() + Me.TxbVideoBlowjobD = New System.Windows.Forms.TextBox() + Me.LblVideoBlowjobTotalD = New System.Windows.Forms.Label() + Me.TxbVideoLesbianD = New System.Windows.Forms.TextBox() + Me.TxbVideoSoftCoreD = New System.Windows.Forms.TextBox() + Me.LblVideoLesbianTotalD = New System.Windows.Forms.Label() + Me.TxbVideoHardCoreD = New System.Windows.Forms.TextBox() + Me.BTNVideoFemSubD = New System.Windows.Forms.Button() + Me.LblVideoSoftCoreTotalD = New System.Windows.Forms.Label() + Me.BTNVideoFemDomD = New System.Windows.Forms.Button() + Me.BTNVideoBlowjobD = New System.Windows.Forms.Button() + Me.LblVideoHardCoreTotalD = New System.Windows.Forms.Label() + Me.BTNVideoLesbianD = New System.Windows.Forms.Button() + Me.BTNVideoSoftCoreD = New System.Windows.Forms.Button() + Me.BTNVideoHardCoreD = New System.Windows.Forms.Button() + Me.CBVideoHardcoreD = New System.Windows.Forms.CheckBox() + Me.CBVideoSoftCoreD = New System.Windows.Forms.CheckBox() + Me.CBVideoLesbianD = New System.Windows.Forms.CheckBox() + Me.CBVideoBlowjobD = New System.Windows.Forms.CheckBox() + Me.CBVideoFemsubD = New System.Windows.Forms.CheckBox() + Me.CBVideoFemdomD = New System.Windows.Forms.CheckBox() + Me.GbxVideoDescription = New System.Windows.Forms.GroupBox() + Me.VideoDescriptionLabel = New System.Windows.Forms.Label() + Me.GbxVideoGeneral = New System.Windows.Forms.GroupBox() + Me.LblVideoGeneralTotal = New System.Windows.Forms.Label() + Me.TxbVideoGeneral = New System.Windows.Forms.TextBox() + Me.BTNVideoGeneral = New System.Windows.Forms.Button() + Me.CBVideoGeneral = New System.Windows.Forms.CheckBox() + Me.GbxVideoSpecial = New System.Windows.Forms.GroupBox() + Me.LblVideoCHTotal = New System.Windows.Forms.Label() + Me.LblVideoJOITotal = New System.Windows.Forms.Label() + Me.TxbVideoCH = New System.Windows.Forms.TextBox() + Me.TxbVideoJOI = New System.Windows.Forms.TextBox() + Me.BTNVideoCH = New System.Windows.Forms.Button() + Me.BTNVideoJOI = New System.Windows.Forms.Button() + Me.CBVideoJOI = New System.Windows.Forms.CheckBox() + Me.CBVideoCH = New System.Windows.Forms.CheckBox() + Me.GbxVideoGenre = New System.Windows.Forms.GroupBox() + Me.LblVideoFemsubTotal = New System.Windows.Forms.Label() + Me.TxbVideoFemsub = New System.Windows.Forms.TextBox() + Me.LblVideoFemdomTotal = New System.Windows.Forms.Label() + Me.TxbVideoFemdom = New System.Windows.Forms.TextBox() + Me.TxbVideoBlowjob = New System.Windows.Forms.TextBox() + Me.LblVideoBlowjobTotal = New System.Windows.Forms.Label() + Me.TxbVideoLesbian = New System.Windows.Forms.TextBox() + Me.TxbVideoSoftCore = New System.Windows.Forms.TextBox() + Me.LblVideoLesbianTotal = New System.Windows.Forms.Label() + Me.TxbVideoHardCore = New System.Windows.Forms.TextBox() + Me.BTNVideoFemSub = New System.Windows.Forms.Button() + Me.LblVideoSoftCoreTotal = New System.Windows.Forms.Label() + Me.BTNVideoFemDom = New System.Windows.Forms.Button() + Me.BTNVideoBlowjob = New System.Windows.Forms.Button() + Me.LblVideoHardCoreTotal = New System.Windows.Forms.Label() + Me.BTNVideoLesbian = New System.Windows.Forms.Button() + Me.BTNVideoSoftCore = New System.Windows.Forms.Button() + Me.BTNVideoHardCore = New System.Windows.Forms.Button() + Me.CBVideoHardcore = New System.Windows.Forms.CheckBox() + Me.CBVideoSoftCore = New System.Windows.Forms.CheckBox() + Me.CBVideoLesbian = New System.Windows.Forms.CheckBox() + Me.CBVideoBlowjob = New System.Windows.Forms.CheckBox() + Me.CBVideoFemsub = New System.Windows.Forms.CheckBox() + Me.CBVideoFemdom = New System.Windows.Forms.CheckBox() + Me.LblVideoHeader = New System.Windows.Forms.Label() + Me.TabPage20 = New System.Windows.Forms.TabPage() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage22 = New System.Windows.Forms.TabPage() + Me.PNLGlitter = New System.Windows.Forms.Panel() + Me.GroupBox14 = New System.Windows.Forms.GroupBox() + Me.Label170 = New System.Windows.Forms.Label() + Me.alwaysNewSlideshow = New System.Windows.Forms.CheckBox() + Me.RandomHonorific = New System.Windows.Forms.TextBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.LBLCurrentDomme = New System.Windows.Forms.Label() + Me.BTNDomChangeContact1 = New System.Windows.Forms.Button() + Me.BTNDomChangeRandom = New System.Windows.Forms.Button() + Me.BTNDomChangeContact3 = New System.Windows.Forms.Button() + Me.BTNDomChangeContact2 = New System.Windows.Forms.Button() + Me.BTNDomChangeDomme = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button16 = New System.Windows.Forms.Button() + Me.Label121 = New System.Windows.Forms.Label() + Me.Label122 = New System.Windows.Forms.Label() + Me.GBGlitterD = New System.Windows.Forms.GroupBox() + Me.GrbGlitterfeed = New System.Windows.Forms.GroupBox() + Me.CBGlitterFeedScripts = New System.Windows.Forms.RadioButton() + Me.CBGlitterFeed = New System.Windows.Forms.RadioButton() + Me.CBGlitterFeedOff = New System.Windows.Forms.RadioButton() + Me.BTNGlitterD = New System.Windows.Forms.Button() + Me.LBLGlitterNCDomme = New System.Windows.Forms.Label() + Me.LBLGlitterSlider = New System.Windows.Forms.Label() + Me.CBCustom2 = New System.Windows.Forms.CheckBox() + Me.GlitterSlider = New System.Windows.Forms.TrackBar() + Me.CBCustom1 = New System.Windows.Forms.CheckBox() + Me.CBDaily = New System.Windows.Forms.CheckBox() + Me.CBTrivia = New System.Windows.Forms.CheckBox() + Me.TBGlitterShortName = New System.Windows.Forms.TextBox() + Me.CBEgotist = New System.Windows.Forms.CheckBox() + Me.CBTease = New System.Windows.Forms.CheckBox() + Me.GlitterAV = New System.Windows.Forms.PictureBox() + Me.GBGlitter1 = New System.Windows.Forms.GroupBox() + Me.Label167 = New System.Windows.Forms.Label() + Me.G1Honorific = New System.Windows.Forms.TextBox() + Me.BtnContact1ImageDirClear = New System.Windows.Forms.Button() + Me.BtnContact1ImageDir = New System.Windows.Forms.Button() + Me.TbxContact1ImageDir = New System.Windows.Forms.TextBox() + Me.BTNGlitter1 = New System.Windows.Forms.Button() + Me.LBLGlitterNC1 = New System.Windows.Forms.Label() + Me.LBLGlitterSlider1 = New System.Windows.Forms.Label() + Me.GlitterSlider1 = New System.Windows.Forms.TrackBar() + Me.CBGlitter1 = New System.Windows.Forms.CheckBox() + Me.TBGlitter1 = New System.Windows.Forms.TextBox() + Me.GlitterAV1 = New System.Windows.Forms.PictureBox() + Me.GBGlitter3 = New System.Windows.Forms.GroupBox() + Me.Label168 = New System.Windows.Forms.Label() + Me.G3Honorific = New System.Windows.Forms.TextBox() + Me.BtnContact3ImageDirClear = New System.Windows.Forms.Button() + Me.BtnContact3ImageDir = New System.Windows.Forms.Button() + Me.TbxContact3ImageDir = New System.Windows.Forms.TextBox() + Me.BTNGlitter3 = New System.Windows.Forms.Button() + Me.LBLGlitterNC3 = New System.Windows.Forms.Label() + Me.LBLGlitterSlider3 = New System.Windows.Forms.Label() + Me.GlitterSlider3 = New System.Windows.Forms.TrackBar() + Me.CBGlitter3 = New System.Windows.Forms.CheckBox() + Me.TBGlitter3 = New System.Windows.Forms.TextBox() + Me.GlitterAV3 = New System.Windows.Forms.PictureBox() + Me.GBGlitter2 = New System.Windows.Forms.GroupBox() + Me.Label169 = New System.Windows.Forms.Label() + Me.G2Honorific = New System.Windows.Forms.TextBox() + Me.BtnContact2ImageDirClear = New System.Windows.Forms.Button() + Me.BtnContact2ImageDir = New System.Windows.Forms.Button() + Me.TbxContact2ImageDir = New System.Windows.Forms.TextBox() + Me.BTNGlitter2 = New System.Windows.Forms.Button() + Me.LBLGlitterNC2 = New System.Windows.Forms.Label() + Me.LBLGlitterSlider2 = New System.Windows.Forms.Label() + Me.GlitterSlider2 = New System.Windows.Forms.TrackBar() + Me.CBGlitter2 = New System.Windows.Forms.CheckBox() + Me.TBGlitter2 = New System.Windows.Forms.TextBox() + Me.GlitterAV2 = New System.Windows.Forms.PictureBox() + Me.TpGames = New System.Windows.Forms.TabPage() + Me.CBIncludeGifs = New System.Windows.Forms.CheckBox() + Me.LblCardsSetupNote = New System.Windows.Forms.Label() + Me.CBGameSounds = New System.Windows.Forms.CheckBox() + Me.GbxCardsGold = New System.Windows.Forms.GroupBox() + Me.GN6 = New System.Windows.Forms.TextBox() + Me.GP6 = New System.Windows.Forms.PictureBox() + Me.GN2 = New System.Windows.Forms.TextBox() + Me.GP2 = New System.Windows.Forms.PictureBox() + Me.GP5 = New System.Windows.Forms.PictureBox() + Me.GN1 = New System.Windows.Forms.TextBox() + Me.GP1 = New System.Windows.Forms.PictureBox() + Me.GN5 = New System.Windows.Forms.TextBox() + Me.GN3 = New System.Windows.Forms.TextBox() + Me.GP3 = New System.Windows.Forms.PictureBox() + Me.GP4 = New System.Windows.Forms.PictureBox() + Me.GN4 = New System.Windows.Forms.TextBox() + Me.GbxCardsBackground = New System.Windows.Forms.GroupBox() + Me.CardBack = New System.Windows.Forms.PictureBox() + Me.GbxCardsBronze = New System.Windows.Forms.GroupBox() + Me.BN6 = New System.Windows.Forms.TextBox() + Me.BN3 = New System.Windows.Forms.TextBox() + Me.BP3 = New System.Windows.Forms.PictureBox() + Me.BP6 = New System.Windows.Forms.PictureBox() + Me.BN2 = New System.Windows.Forms.TextBox() + Me.BN5 = New System.Windows.Forms.TextBox() + Me.BP5 = New System.Windows.Forms.PictureBox() + Me.BP2 = New System.Windows.Forms.PictureBox() + Me.BN1 = New System.Windows.Forms.TextBox() + Me.BN4 = New System.Windows.Forms.TextBox() + Me.BP4 = New System.Windows.Forms.PictureBox() + Me.BP1 = New System.Windows.Forms.PictureBox() + Me.GbxCardsSilver = New System.Windows.Forms.GroupBox() + Me.SN6 = New System.Windows.Forms.TextBox() + Me.SP6 = New System.Windows.Forms.PictureBox() + Me.SN2 = New System.Windows.Forms.TextBox() + Me.SP2 = New System.Windows.Forms.PictureBox() + Me.SN1 = New System.Windows.Forms.TextBox() + Me.SP5 = New System.Windows.Forms.PictureBox() + Me.SP1 = New System.Windows.Forms.PictureBox() + Me.SN5 = New System.Windows.Forms.TextBox() + Me.SN3 = New System.Windows.Forms.TextBox() + Me.SN4 = New System.Windows.Forms.TextBox() + Me.SP3 = New System.Windows.Forms.PictureBox() + Me.SP4 = New System.Windows.Forms.PictureBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.Panel10 = New System.Windows.Forms.Panel() + Me.TBWishlistComment = New System.Windows.Forms.TextBox() + Me.Label32 = New System.Windows.Forms.Label() + Me.TBWishlistItem = New System.Windows.Forms.TextBox() + Me.radioGold = New System.Windows.Forms.RadioButton() + Me.Label42 = New System.Windows.Forms.Label() + Me.radioSilver = New System.Windows.Forms.RadioButton() + Me.TBWishlistURL = New System.Windows.Forms.TextBox() + Me.NBWishlistCost = New System.Windows.Forms.NumericUpDown() + Me.Label48 = New System.Windows.Forms.Label() + Me.Label73 = New System.Windows.Forms.Label() + Me.Label107 = New System.Windows.Forms.Label() + Me.BTNWishlistCreate = New System.Windows.Forms.Button() + Me.Label18 = New System.Windows.Forms.Label() + Me.PNLWishList = New System.Windows.Forms.Panel() + Me.WishlistCostSilver = New System.Windows.Forms.PictureBox() + Me.LBLWishListText = New System.Windows.Forms.Label() + Me.LBLWishlistCost = New System.Windows.Forms.Label() + Me.WishlistCostGold = New System.Windows.Forms.PictureBox() + Me.LBLWishListName = New System.Windows.Forms.Label() + Me.WishlistPreview = New System.Windows.Forms.PictureBox() + Me.TabPage26 = New System.Windows.Forms.TabPage() + Me.Panel12 = New System.Windows.Forms.Panel() + Me.GroupBox9 = New System.Windows.Forms.GroupBox() + Me.Button32 = New System.Windows.Forms.Button() + Me.Button31 = New System.Windows.Forms.Button() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.CBTransparentTime = New System.Windows.Forms.CheckBox() + Me.LBLDateTimeColor2 = New System.Windows.Forms.Label() + Me.Label137 = New System.Windows.Forms.Label() + Me.Label138 = New System.Windows.Forms.Label() + Me.LBLDateBackColor2 = New System.Windows.Forms.Label() + Me.LBLTextColor = New System.Windows.Forms.Label() + Me.LBLChatWindowColor2 = New System.Windows.Forms.Label() + Me.LBLTextColor2 = New System.Windows.Forms.Label() + Me.LBLChatTextColor = New System.Windows.Forms.Label() + Me.LBLBackColor2 = New System.Windows.Forms.Label() + Me.LBLButtonColor = New System.Windows.Forms.Label() + Me.LBLChatWindowColor = New System.Windows.Forms.Label() + Me.LBLBackColor = New System.Windows.Forms.Label() + Me.LBLChatTextColor2 = New System.Windows.Forms.Label() + Me.LBLButtonColor2 = New System.Windows.Forms.Label() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.Label144 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.CBFlipBack = New System.Windows.Forms.CheckBox() + Me.PBBackgroundPreview = New System.Windows.Forms.PictureBox() + Me.Button17 = New System.Windows.Forms.Button() + Me.CBStretchBack = New System.Windows.Forms.CheckBox() + Me.Button18 = New System.Windows.Forms.Button() + Me.Label164 = New System.Windows.Forms.Label() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.GroupBox69 = New System.Windows.Forms.GroupBox() + Me.TypesSpeedVal = New System.Windows.Forms.Label() + Me.TypeSpeedLabel = New System.Windows.Forms.Label() + Me.TimedWriting = New System.Windows.Forms.CheckBox() + Me.TypeSpeedSlider = New System.Windows.Forms.TrackBar() + Me.GroupBox68 = New System.Windows.Forms.GroupBox() + Me.NBTasksMax = New System.Windows.Forms.NumericUpDown() + Me.NBTasksMin = New System.Windows.Forms.NumericUpDown() + Me.Label165 = New System.Windows.Forms.Label() + Me.Label166 = New System.Windows.Forms.Label() + Me.GroupBox67 = New System.Windows.Forms.GroupBox() + Me.Label161 = New System.Windows.Forms.Label() + Me.NBTaskCBTTimeMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskCBTTimeMin = New System.Windows.Forms.NumericUpDown() + Me.Label162 = New System.Windows.Forms.Label() + Me.Label163 = New System.Windows.Forms.Label() + Me.Label158 = New System.Windows.Forms.Label() + Me.NBTaskEdgeHoldTimeMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskEdgeHoldTimeMin = New System.Windows.Forms.NumericUpDown() + Me.Label159 = New System.Windows.Forms.Label() + Me.Label160 = New System.Windows.Forms.Label() + Me.NBTaskEdgesMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskEdgesMin = New System.Windows.Forms.NumericUpDown() + Me.Label119 = New System.Windows.Forms.Label() + Me.Label157 = New System.Windows.Forms.Label() + Me.Label151 = New System.Windows.Forms.Label() + Me.NBTaskStrokingTimeMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskStrokingTimeMin = New System.Windows.Forms.NumericUpDown() + Me.Label154 = New System.Windows.Forms.Label() + Me.Label155 = New System.Windows.Forms.Label() + Me.NBTaskStrokesMax = New System.Windows.Forms.NumericUpDown() + Me.NBTaskStrokesMin = New System.Windows.Forms.NumericUpDown() + Me.Label146 = New System.Windows.Forms.Label() + Me.Label149 = New System.Windows.Forms.Label() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.Label112 = New System.Windows.Forms.Label() + Me.NBNextImageChance = New System.Windows.Forms.NumericUpDown() + Me.Label6 = New System.Windows.Forms.Label() + Me.GroupBox57 = New System.Windows.Forms.GroupBox() + Me.Label139 = New System.Windows.Forms.Label() + Me.NBTauntEdging = New System.Windows.Forms.NumericUpDown() + Me.LBLVtf = New System.Windows.Forms.Label() + Me.LBLStf = New System.Windows.Forms.Label() + Me.SliderSTF = New System.Windows.Forms.TrackBar() + Me.TauntSlider = New System.Windows.Forms.TrackBar() + Me.Label106 = New System.Windows.Forms.Label() + Me.CBTauntCycleDD = New System.Windows.Forms.CheckBox() + Me.CBTeaseLengthDD = New System.Windows.Forms.CheckBox() + Me.Label103 = New System.Windows.Forms.Label() + Me.NBTauntCycleMax = New System.Windows.Forms.NumericUpDown() + Me.Label105 = New System.Windows.Forms.Label() + Me.Label101 = New System.Windows.Forms.Label() + Me.NBTauntCycleMin = New System.Windows.Forms.NumericUpDown() + Me.Label102 = New System.Windows.Forms.Label() + Me.Label97 = New System.Windows.Forms.Label() + Me.NBTeaseLengthMax = New System.Windows.Forms.NumericUpDown() + Me.Label99 = New System.Windows.Forms.Label() + Me.Label96 = New System.Windows.Forms.Label() + Me.NBTeaseLengthMin = New System.Windows.Forms.NumericUpDown() + Me.Label95 = New System.Windows.Forms.Label() + Me.Label49 = New System.Windows.Forms.Label() + Me.Label141 = New System.Windows.Forms.Label() + Me.GBRangeRuinChance = New System.Windows.Forms.GroupBox() + Me.Label90 = New System.Windows.Forms.Label() + Me.NBRuinSometimes = New System.Windows.Forms.NumericUpDown() + Me.Label91 = New System.Windows.Forms.Label() + Me.Label92 = New System.Windows.Forms.Label() + Me.NBRuinRarely = New System.Windows.Forms.NumericUpDown() + Me.NBRuinOften = New System.Windows.Forms.NumericUpDown() + Me.CBRangeRuin = New System.Windows.Forms.CheckBox() + Me.GroupBox17 = New System.Windows.Forms.GroupBox() + Me.GroupBox19 = New System.Windows.Forms.GroupBox() + Me.Label110 = New System.Windows.Forms.Label() + Me.Label111 = New System.Windows.Forms.Label() + Me.NBGreenLightMax = New System.Windows.Forms.NumericUpDown() + Me.NBGreenLightMin = New System.Windows.Forms.NumericUpDown() + Me.NBRedLightMax = New System.Windows.Forms.NumericUpDown() + Me.Label26 = New System.Windows.Forms.Label() + Me.NBRedLightMin = New System.Windows.Forms.NumericUpDown() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label29 = New System.Windows.Forms.Label() + Me.GroupBox18 = New System.Windows.Forms.GroupBox() + Me.Label108 = New System.Windows.Forms.Label() + Me.Label109 = New System.Windows.Forms.Label() + Me.NBCensorShowMin = New System.Windows.Forms.NumericUpDown() + Me.NBCensorHideMax = New System.Windows.Forms.NumericUpDown() + Me.NBCensorHideMin = New System.Windows.Forms.NumericUpDown() + Me.CBCensorConstant = New System.Windows.Forms.CheckBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.NBCensorShowMax = New System.Windows.Forms.NumericUpDown() + Me.GBRangeOrgasmChance = New System.Windows.Forms.GroupBox() + Me.Label89 = New System.Windows.Forms.Label() + Me.NBAllowSometimes = New System.Windows.Forms.NumericUpDown() + Me.Label86 = New System.Windows.Forms.Label() + Me.Label82 = New System.Windows.Forms.Label() + Me.NBAllowRarely = New System.Windows.Forms.NumericUpDown() + Me.NBAllowOften = New System.Windows.Forms.NumericUpDown() + Me.CBRangeOrgasm = New System.Windows.Forms.CheckBox() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.Label38 = New System.Windows.Forms.Label() + Me.TabPage13 = New System.Windows.Forms.TabPage() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage27 = New System.Windows.Forms.TabPage() + Me.TBPlaylistSave = New System.Windows.Forms.TextBox() + Me.BTNPlaylistCtrlZ = New System.Windows.Forms.Button() + Me.RadioPlaylistRegScripts = New System.Windows.Forms.RadioButton() + Me.RadioPlaylistScripts = New System.Windows.Forms.RadioButton() + Me.BTNPlaylistEnd = New System.Windows.Forms.Button() + Me.BTNPlaylistClearAll = New System.Windows.Forms.Button() + Me.BTNPlaylistSave = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() + Me.WBPlaylist = New System.Windows.Forms.WebBrowser() + Me.Label80 = New System.Windows.Forms.Label() + Me.LBLPlaylIstLink = New System.Windows.Forms.Label() + Me.LBLPlaylistModule = New System.Windows.Forms.Label() + Me.LBLPLaylistStart = New System.Windows.Forms.Label() + Me.LBPlaylist = New System.Windows.Forms.ListBox() + Me.TabPage14 = New System.Windows.Forms.TabPage() + Me.LBLKeywordPreview = New System.Windows.Forms.Label() + Me.Label88 = New System.Windows.Forms.Label() + Me.TBKeywordPreview = New System.Windows.Forms.TextBox() + Me.Button37 = New System.Windows.Forms.Button() + Me.Button50 = New System.Windows.Forms.Button() + Me.Button22 = New System.Windows.Forms.Button() + Me.TBKeyWords = New System.Windows.Forms.TextBox() + Me.LBKeyWords = New System.Windows.Forms.ListBox() + Me.RTBKeyWords = New System.Windows.Forms.RichTextBox() + Me.TabPage24 = New System.Windows.Forms.TabPage() + Me.Button9 = New System.Windows.Forms.Button() + Me.RTBResponsesKEY = New System.Windows.Forms.RichTextBox() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.TBResponses = New System.Windows.Forms.TextBox() + Me.LBResponses = New System.Windows.Forms.ListBox() + Me.RTBResponses = New System.Windows.Forms.RichTextBox() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.RTBVideoMod = New System.Windows.Forms.RichTextBox() + Me.GroupBox29 = New System.Windows.Forms.GroupBox() + Me.Label51 = New System.Windows.Forms.Label() + Me.BTNVideoModClear = New System.Windows.Forms.Button() + Me.GroupBox28 = New System.Windows.Forms.GroupBox() + Me.CBVTType = New System.Windows.Forms.ComboBox() + Me.BTNVideoModLoad = New System.Windows.Forms.Button() + Me.GroupBox30 = New System.Windows.Forms.GroupBox() + Me.LBVidScript = New System.Windows.Forms.ListBox() + Me.BTNVideoModSave = New System.Windows.Forms.Button() + Me.TabPage15 = New System.Windows.Forms.TabPage() + Me.Label62 = New System.Windows.Forms.Label() + Me.Label61 = New System.Windows.Forms.Label() + Me.Label57 = New System.Windows.Forms.Label() + Me.Label58 = New System.Windows.Forms.Label() + Me.Label60 = New System.Windows.Forms.Label() + Me.TBGlitModFileName = New System.Windows.Forms.TextBox() + Me.GroupBox34 = New System.Windows.Forms.GroupBox() + Me.Label52 = New System.Windows.Forms.Label() + Me.RTBGlitModDommePost = New System.Windows.Forms.RichTextBox() + Me.Button26 = New System.Windows.Forms.Button() + Me.Label56 = New System.Windows.Forms.Label() + Me.RTBGlitModResponses = New System.Windows.Forms.RichTextBox() + Me.LBGlitModScripts = New System.Windows.Forms.ListBox() + Me.LBLGlitModScriptCount = New System.Windows.Forms.Label() + Me.LBLGlitModDomType = New System.Windows.Forms.Label() + Me.Button29 = New System.Windows.Forms.Button() + Me.CBGlitModType = New System.Windows.Forms.ComboBox() + Me.Label59 = New System.Windows.Forms.Label() + Me.Label50 = New System.Windows.Forms.Label() + Me.TabPage25 = New System.Windows.Forms.TabPage() + Me.Panel11 = New System.Windows.Forms.Panel() + Me.GroupBox62 = New System.Windows.Forms.GroupBox() + Me.RBGerman = New System.Windows.Forms.RadioButton() + Me.RBEnglish = New System.Windows.Forms.RadioButton() + Me.GroupBox33 = New System.Windows.Forms.GroupBox() + Me.BTNOfflineMode = New System.Windows.Forms.Button() + Me.LBLOfflineMode = New System.Windows.Forms.Label() + Me.Label140 = New System.Windows.Forms.Label() + Me.Button11 = New System.Windows.Forms.Button() + Me.LBLChastityState = New System.Windows.Forms.Label() + Me.Label120 = New System.Windows.Forms.Label() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.CBOutputErrors = New System.Windows.Forms.CheckBox() + Me.GroupBox27 = New System.Windows.Forms.GroupBox() + Me.Button6 = New System.Windows.Forms.Button() + Me.LBLSesSpace = New System.Windows.Forms.Label() + Me.Button3 = New System.Windows.Forms.Button() + Me.LBLSesFiles = New System.Windows.Forms.Label() + Me.Label125 = New System.Windows.Forms.Label() + Me.Label124 = New System.Windows.Forms.Label() + Me.GroupBox20 = New System.Windows.Forms.GroupBox() + Me.BTNURLFileReplace = New System.Windows.Forms.Button() + Me.Label87 = New System.Windows.Forms.Label() + Me.TBURLFileWith = New System.Windows.Forms.TextBox() + Me.Label118 = New System.Windows.Forms.Label() + Me.Label85 = New System.Windows.Forms.Label() + Me.TBURLFileReplace = New System.Windows.Forms.TextBox() + Me.Label53 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.BTNMaintenanceScripts = New System.Windows.Forms.Button() + Me.BTNMaintenanceRefresh = New System.Windows.Forms.Button() + Me.Label117 = New System.Windows.Forms.Label() + Me.Label116 = New System.Windows.Forms.Label() + Me.PBCurrent = New System.Windows.Forms.ProgressBar() + Me.BTNMaintenanceCancel = New System.Windows.Forms.Button() + Me.PBMaintenance = New System.Windows.Forms.ProgressBar() + Me.LBLMaintenance = New System.Windows.Forms.Label() + Me.BTNMaintenanceRebuild = New System.Windows.Forms.Button() + Me.GroupBox15 = New System.Windows.Forms.GroupBox() + Me.Label115 = New System.Windows.Forms.Label() + Me.TBWebStop = New System.Windows.Forms.TextBox() + Me.TBWebStart = New System.Windows.Forms.TextBox() + Me.Label114 = New System.Windows.Forms.Label() + Me.WebToy = New System.Windows.Forms.WebBrowser() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.Label148 = New System.Windows.Forms.Label() + Me.TabPage28 = New System.Windows.Forms.TabPage() + Me.TabControl3 = New System.Windows.Forms.TabControl() + Me.TabPage29 = New System.Windows.Forms.TabPage() + Me.Label143 = New System.Windows.Forms.Label() + Me.LBLDebugScriptTime = New System.Windows.Forms.Label() + Me.BTNDebugHoldEdgeTimer = New System.Windows.Forms.Button() + Me.GroupBox26 = New System.Windows.Forms.GroupBox() + Me.LBLCycleDebugCountdown = New System.Windows.Forms.Label() + Me.Button19 = New System.Windows.Forms.Button() + Me.BTNDebugTauntsClear = New System.Windows.Forms.Button() + Me.TBDebugTaunts3 = New System.Windows.Forms.TextBox() + Me.TBDebugTaunts2 = New System.Windows.Forms.TextBox() + Me.TBDebugTaunts1 = New System.Windows.Forms.TextBox() + Me.RBDebugTaunts3 = New System.Windows.Forms.RadioButton() + Me.RBDebugTaunts2 = New System.Windows.Forms.RadioButton() + Me.RBDebugTaunts1 = New System.Windows.Forms.RadioButton() + Me.CBDebugTauntsEndless = New System.Windows.Forms.CheckBox() + Me.CBDebugTaunts = New System.Windows.Forms.CheckBox() + Me.BTNDebugStrokeTauntTimer = New System.Windows.Forms.Button() + Me.LBLDebugHoldEdgeTime = New System.Windows.Forms.Label() + Me.Label145 = New System.Windows.Forms.Label() + Me.BTNDebugStrokeTime = New System.Windows.Forms.Button() + Me.BTNDebugEdgeTauntTimer = New System.Windows.Forms.Button() + Me.LBLDebugTeaseTime = New System.Windows.Forms.Label() + Me.LBLDebugStrokeTime = New System.Windows.Forms.Label() + Me.LBLDebugEdgeTauntTime = New System.Windows.Forms.Label() + Me.BTNDebugTeaseTimer = New System.Windows.Forms.Button() + Me.Label142 = New System.Windows.Forms.Label() + Me.Label150 = New System.Windows.Forms.Label() + Me.Label152 = New System.Windows.Forms.Label() + Me.LBLDebugStrokeTauntTime = New System.Windows.Forms.Label() + Me.Label147 = New System.Windows.Forms.Label() + Me.TabPage30 = New System.Windows.Forms.TabPage() + Me.Button33 = New System.Windows.Forms.Button() + Me.Button24 = New System.Windows.Forms.Button() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.Label130 = New System.Windows.Forms.Label() + Me.Label123 = New System.Windows.Forms.Label() + Me.Label69 = New System.Windows.Forms.Label() + Me.Label113 = New System.Windows.Forms.Label() + Me.Label40 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.Label41 = New System.Windows.Forms.Label() + Me.BtnRandomImageDirClear = New System.Windows.Forms.Button() + Me.GroupBox47 = New System.Windows.Forms.GroupBox() + Me.GroupBox41 = New System.Windows.Forms.GroupBox() + Me.Button34 = New System.Windows.Forms.Button() + Me.GroupBox40 = New System.Windows.Forms.GroupBox() + Me.GroupBox44 = New System.Windows.Forms.GroupBox() + Me.Label100 = New System.Windows.Forms.Label() + Me.GroupBox21 = New System.Windows.Forms.GroupBox() + Me.Label153 = New System.Windows.Forms.Label() + Me.LBLRangeSettingsDescription = New System.Windows.Forms.Label() + Me.Label156 = New System.Windows.Forms.Label() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.LBLSubSettingsDescription = New System.Windows.Forms.Label() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.GetColor = New System.Windows.Forms.ColorDialog() + Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() + Me.WebImageFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.OpenScriptDialog = New System.Windows.Forms.OpenFileDialog() + Me.OpenSettingsDialog = New System.Windows.Forms.OpenFileDialog() + Me.SaveSettingsDialog = New System.Windows.Forms.SaveFileDialog() + Me.TTDir = New System.Windows.Forms.ToolTip(Me.components) + Me.GroupBox65 = New System.Windows.Forms.GroupBox() + Me.Label136 = New System.Windows.Forms.Label() + Me.Label134 = New System.Windows.Forms.Label() + Me.Label132 = New System.Windows.Forms.Label() + Me.TrackBar1 = New System.Windows.Forms.TrackBar() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.Label135 = New System.Windows.Forms.Label() + Me.TrackBar2 = New System.Windows.Forms.TrackBar() + Me.TxbImgUrlHardcore = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.BWURLFiles = New Tease_AI.URL_Files.URL_File_BGW() + Me.SettingsPanel.SuspendLayout() + Me.SettingsTabs.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.PNLGeneralSettings.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox64.SuspendLayout() + Me.GBDommeImages.SuspendLayout() + CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGeneralTextToSpeech.SuspendLayout() + CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBSafeword.SuspendLayout() + Me.GBGeneralSystem.SuspendLayout() + Me.GBGeneralImages.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGeneralSettings.SuspendLayout() + Me.GBSubFont.SuspendLayout() + CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDommeFont.SuspendLayout() + CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage2.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.GBGiveUp.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomTypingStyle.SuspendLayout() + CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox63.SuspendLayout() + Me.GBDomRanges.SuspendLayout() + CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomStats.SuspendLayout() + CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomPersonality.SuspendLayout() + Me.GBDomOrgasms.SuspendLayout() + CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBDomPetNames.SuspendLayout() + Me.TabPage10.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.GroupBox22.SuspendLayout() + CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox45.SuspendLayout() + CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox6.SuspendLayout() + Me.GroupBox35.SuspendLayout() + Me.GroupBoxSorry.SuspendLayout() + Me.GroupBox39.SuspendLayout() + Me.GroupBox38.SuspendLayout() + Me.GroupBox37.SuspendLayout() + Me.GroupBox36.SuspendLayout() + Me.GroupBox13.SuspendLayout() + Me.GroupBox7.SuspendLayout() + CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox32.SuspendLayout() + CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage16.SuspendLayout() + Me.Panel9.SuspendLayout() + Me.GroupBox31.SuspendLayout() + Me.TCScripts.SuspendLayout() + Me.TabPage21.SuspendLayout() + Me.TabPage17.SuspendLayout() + Me.TabPage18.SuspendLayout() + Me.TabPage19.SuspendLayout() + Me.GroupBox42.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox43.SuspendLayout() + Me.TabPage7.SuspendLayout() + Me.TabControl4.SuspendLayout() + Me.TpImagesUrlFiles.SuspendLayout() + Me.GroupBox66.SuspendLayout() + CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TpImagesGenre.SuspendLayout() + Me.GrbImageUrlFiles.SuspendLayout() + Me.TlpImageUrls.SuspendLayout() + Me.GbxImagesGenre.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.TabPage33.SuspendLayout() + Me.TabControl5.SuspendLayout() + Me.TabPage34.SuspendLayout() + CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage35.SuspendLayout() + Me.GroupBox55.SuspendLayout() + Me.GroupBox53.SuspendLayout() + Me.GroupBox49.SuspendLayout() + Me.GroupBox46.SuspendLayout() + Me.GroupBox54.SuspendLayout() + Me.GroupBox51.SuspendLayout() + Me.GroupBox50.SuspendLayout() + Me.GroupBox48.SuspendLayout() + Me.TabPage11.SuspendLayout() + Me.Panel7.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TpVideoSettings.SuspendLayout() + Me.PnlVideoSettings.SuspendLayout() + CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxVideoGeneralD.SuspendLayout() + Me.GbxVideoSpecialD.SuspendLayout() + Me.GbxVideoGenreD.SuspendLayout() + Me.GbxVideoDescription.SuspendLayout() + Me.GbxVideoGeneral.SuspendLayout() + Me.GbxVideoSpecial.SuspendLayout() + Me.GbxVideoGenre.SuspendLayout() + Me.TabPage20.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage22.SuspendLayout() + Me.PNLGlitter.SuspendLayout() + Me.GroupBox14.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GBGlitterD.SuspendLayout() + Me.GrbGlitterfeed.SuspendLayout() + CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGlitter1.SuspendLayout() + CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGlitter3.SuspendLayout() + CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBGlitter2.SuspendLayout() + CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TpGames.SuspendLayout() + Me.GbxCardsGold.SuspendLayout() + CType(Me.GP6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GP4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxCardsBackground.SuspendLayout() + CType(Me.CardBack, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxCardsBronze.SuspendLayout() + CType(Me.BP3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BP1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GbxCardsSilver.SuspendLayout() + CType(Me.SP6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage6.SuspendLayout() + Me.Panel10.SuspendLayout() + CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PNLWishList.SuspendLayout() + CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage26.SuspendLayout() + Me.Panel12.SuspendLayout() + Me.GroupBox9.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + Me.GroupBox11.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage4.SuspendLayout() + Me.Panel6.SuspendLayout() + Me.GroupBox69.SuspendLayout() + CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox68.SuspendLayout() + CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox67.SuspendLayout() + CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox10.SuspendLayout() + CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox57.SuspendLayout() + CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBRangeRuinChance.SuspendLayout() + CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox17.SuspendLayout() + Me.GroupBox19.SuspendLayout() + CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox18.SuspendLayout() + CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GBRangeOrgasmChance.SuspendLayout() + CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage13.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage27.SuspendLayout() + Me.TabPage14.SuspendLayout() + Me.TabPage24.SuspendLayout() + Me.TabPage8.SuspendLayout() + Me.GroupBox29.SuspendLayout() + Me.GroupBox28.SuspendLayout() + Me.GroupBox30.SuspendLayout() + Me.TabPage15.SuspendLayout() + Me.GroupBox34.SuspendLayout() + Me.TabPage25.SuspendLayout() + Me.Panel11.SuspendLayout() + Me.GroupBox62.SuspendLayout() + Me.GroupBox33.SuspendLayout() + Me.GroupBox8.SuspendLayout() + Me.GroupBox27.SuspendLayout() + Me.GroupBox20.SuspendLayout() + Me.GroupBox15.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage28.SuspendLayout() + Me.TabControl3.SuspendLayout() + Me.TabPage29.SuspendLayout() + Me.GroupBox26.SuspendLayout() + Me.TabPage30.SuspendLayout() + Me.TabPage5.SuspendLayout() + Me.Panel5.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox47.SuspendLayout() + Me.GroupBox41.SuspendLayout() + Me.GroupBox44.SuspendLayout() + Me.GroupBox21.SuspendLayout() + Me.GroupBox12.SuspendLayout() + Me.GroupBox65.SuspendLayout() + CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SettingsPanel + ' + Me.SettingsPanel.BackColor = System.Drawing.Color.LightGray + Me.SettingsPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SettingsPanel.Controls.Add(Me.SettingsTabs) + Me.SettingsPanel.Location = New System.Drawing.Point(-8, -19) + Me.SettingsPanel.Name = "SettingsPanel" + Me.SettingsPanel.Size = New System.Drawing.Size(735, 484) + Me.SettingsPanel.TabIndex = 94 + ' + 'SettingsTabs + ' + Me.SettingsTabs.Controls.Add(Me.TabPage1) + Me.SettingsTabs.Controls.Add(Me.TabPage2) + Me.SettingsTabs.Controls.Add(Me.TabPage10) + Me.SettingsTabs.Controls.Add(Me.TabPage16) + Me.SettingsTabs.Controls.Add(Me.TabPage7) + Me.SettingsTabs.Controls.Add(Me.TabPage33) + Me.SettingsTabs.Controls.Add(Me.TabPage11) + Me.SettingsTabs.Controls.Add(Me.TpVideoSettings) + Me.SettingsTabs.Controls.Add(Me.TabPage20) + Me.SettingsTabs.Controls.Add(Me.TabPage26) + Me.SettingsTabs.Controls.Add(Me.TabPage4) + Me.SettingsTabs.Controls.Add(Me.TabPage13) + Me.SettingsTabs.Controls.Add(Me.TabPage25) + Me.SettingsTabs.Controls.Add(Me.TabPage28) + Me.SettingsTabs.Controls.Add(Me.TabPage5) + Me.SettingsTabs.Location = New System.Drawing.Point(3, 15) + Me.SettingsTabs.Name = "SettingsTabs" + Me.SettingsTabs.SelectedIndex = 0 + Me.SettingsTabs.Size = New System.Drawing.Size(728, 474) + Me.SettingsTabs.TabIndex = 0 + ' + 'TabPage1 + ' + Me.TabPage1.BackColor = System.Drawing.Color.Silver + Me.TabPage1.Controls.Add(Me.PNLGeneralSettings) + 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(720, 448) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "General" + ' + 'PNLGeneralSettings + ' + Me.PNLGeneralSettings.BackColor = System.Drawing.Color.LightGray + Me.PNLGeneralSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PNLGeneralSettings.Controls.Add(Me.GroupBox3) + Me.PNLGeneralSettings.Controls.Add(Me.GroupBox2) + Me.PNLGeneralSettings.Controls.Add(Me.BtnImportSettings) + Me.PNLGeneralSettings.Controls.Add(Me.LblImportSettings) + Me.PNLGeneralSettings.Controls.Add(Me.GroupBox64) + Me.PNLGeneralSettings.Controls.Add(Me.GBDommeImages) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralTextToSpeech) + Me.PNLGeneralSettings.Controls.Add(Me.GBSafeword) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSystem) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralImages) + Me.PNLGeneralSettings.Controls.Add(Me.PictureBox2) + Me.PNLGeneralSettings.Controls.Add(Me.GBGeneralSettings) + Me.PNLGeneralSettings.Controls.Add(Me.LBLGeneralSettings) + Me.PNLGeneralSettings.Location = New System.Drawing.Point(6, 6) + Me.PNLGeneralSettings.Name = "PNLGeneralSettings" + Me.PNLGeneralSettings.Size = New System.Drawing.Size(708, 437) + Me.PNLGeneralSettings.TabIndex = 0 + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.BTNValidateSystemFiles) + Me.GroupBox3.Location = New System.Drawing.Point(7, 365) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(211, 65) + Me.GroupBox3.TabIndex = 184 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "System Files" + ' + 'BTNValidateSystemFiles + ' + Me.BTNValidateSystemFiles.BackColor = System.Drawing.Color.LightGray + Me.BTNValidateSystemFiles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNValidateSystemFiles.ForeColor = System.Drawing.Color.Black + Me.BTNValidateSystemFiles.Location = New System.Drawing.Point(10, 26) + Me.BTNValidateSystemFiles.Name = "BTNValidateSystemFiles" + Me.BTNValidateSystemFiles.Size = New System.Drawing.Size(190, 22) + Me.BTNValidateSystemFiles.TabIndex = 183 + Me.BTNValidateSystemFiles.Text = "Validate All System Files" + Me.BTNValidateSystemFiles.UseVisualStyleBackColor = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.TbxRandomImageDir) + Me.GroupBox2.Controls.Add(Me.CBRandomDomme) + Me.GroupBox2.Controls.Add(Me.BtnRandomImageDir) + Me.GroupBox2.Location = New System.Drawing.Point(224, 313) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(210, 117) + Me.GroupBox2.TabIndex = 183 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Random Domme" + ' + 'TbxRandomImageDir + ' + Me.TbxRandomImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxRandomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxRandomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "RandomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxRandomImageDir.Location = New System.Drawing.Point(10, 50) + Me.TbxRandomImageDir.Name = "TbxRandomImageDir" + Me.TbxRandomImageDir.ReadOnly = True + Me.TbxRandomImageDir.Size = New System.Drawing.Size(190, 20) + Me.TbxRandomImageDir.TabIndex = 185 + Me.TbxRandomImageDir.Text = "No Path Selected" + ' + 'CBRandomDomme + ' + Me.CBRandomDomme.AutoSize = True + Me.CBRandomDomme.Location = New System.Drawing.Point(10, 83) + Me.CBRandomDomme.Name = "CBRandomDomme" + Me.CBRandomDomme.Size = New System.Drawing.Size(191, 17) + Me.CBRandomDomme.TabIndex = 184 + Me.CBRandomDomme.Text = "Always Start With Random Domme" + Me.CBRandomDomme.UseVisualStyleBackColor = True + ' + 'BtnRandomImageDir + ' + Me.BtnRandomImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnRandomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnRandomImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnRandomImageDir.Location = New System.Drawing.Point(10, 21) + Me.BtnRandomImageDir.Name = "BtnRandomImageDir" + Me.BtnRandomImageDir.Size = New System.Drawing.Size(190, 22) + Me.BtnRandomImageDir.TabIndex = 182 + Me.BtnRandomImageDir.Text = "Set Random Domme Directory" + Me.BtnRandomImageDir.UseVisualStyleBackColor = False + ' + 'BtnImportSettings + ' + Me.BtnImportSettings.BackColor = System.Drawing.Color.Transparent + Me.BtnImportSettings.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export + Me.BtnImportSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.BtnImportSettings.FlatAppearance.BorderSize = 0 + Me.BtnImportSettings.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BtnImportSettings.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BtnImportSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BtnImportSettings.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnImportSettings.ForeColor = System.Drawing.Color.Black + Me.BtnImportSettings.Location = New System.Drawing.Point(669, 14) + Me.BtnImportSettings.Name = "BtnImportSettings" + Me.BtnImportSettings.Size = New System.Drawing.Size(30, 26) + Me.BtnImportSettings.TabIndex = 158 + Me.BtnImportSettings.UseVisualStyleBackColor = False + ' + 'LblImportSettings + ' + Me.LblImportSettings.AutoSize = True + Me.LblImportSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblImportSettings.ForeColor = System.Drawing.Color.Black + Me.LblImportSettings.Location = New System.Drawing.Point(664, 0) + Me.LblImportSettings.Name = "LblImportSettings" + Me.LblImportSettings.Size = New System.Drawing.Size(35, 13) + Me.LblImportSettings.TabIndex = 159 + Me.LblImportSettings.Text = "import" + Me.LblImportSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox64 + ' + Me.GroupBox64.BackColor = System.Drawing.Color.LightGray + Me.GroupBox64.Controls.Add(Me.CBMuteMedia) + Me.GroupBox64.ForeColor = System.Drawing.Color.Black + Me.GroupBox64.Location = New System.Drawing.Point(440, 258) + Me.GroupBox64.Name = "GroupBox64" + Me.GroupBox64.Size = New System.Drawing.Size(259, 49) + Me.GroupBox64.TabIndex = 157 + Me.GroupBox64.TabStop = False + Me.GroupBox64.Text = "Media Options" + ' + 'CBMuteMedia + ' + Me.CBMuteMedia.AutoSize = True + Me.CBMuteMedia.Checked = Global.Tease_AI.My.MySettings.Default.MuteMedia + Me.CBMuteMedia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "MuteMedia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBMuteMedia.ForeColor = System.Drawing.Color.Black + Me.CBMuteMedia.Location = New System.Drawing.Point(7, 21) + Me.CBMuteMedia.Name = "CBMuteMedia" + Me.CBMuteMedia.Size = New System.Drawing.Size(241, 17) + Me.CBMuteMedia.TabIndex = 6 + Me.CBMuteMedia.TabStop = False + Me.CBMuteMedia.Text = "Mute Video and Audio Played in Media Player" + Me.CBMuteMedia.UseVisualStyleBackColor = True + ' + 'GBDommeImages + ' + Me.GBDommeImages.BackColor = System.Drawing.Color.LightGray + Me.GBDommeImages.Controls.Add(Me.slideshowNumBox) + Me.GBDommeImages.Controls.Add(Me.teaseRadio) + Me.GBDommeImages.Controls.Add(Me.CBNewSlideshow) + Me.GBDommeImages.Controls.Add(Me.offRadio) + Me.GBDommeImages.Controls.Add(Me.BTNDomImageDir) + Me.GBDommeImages.Controls.Add(Me.timedRadio) + Me.GBDommeImages.Controls.Add(Me.TbxDomImageDir) + Me.GBDommeImages.ForeColor = System.Drawing.Color.Black + Me.GBDommeImages.Location = New System.Drawing.Point(224, 179) + Me.GBDommeImages.Name = "GBDommeImages" + Me.GBDommeImages.Size = New System.Drawing.Size(210, 128) + Me.GBDommeImages.TabIndex = 156 + Me.GBDommeImages.TabStop = False + Me.GBDommeImages.Text = "Slideshow Options" + ' + 'slideshowNumBox + ' + Me.slideshowNumBox.BackColor = System.Drawing.Color.White + Me.slideshowNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.slideshowNumBox.ForeColor = System.Drawing.Color.Black + Me.slideshowNumBox.Location = New System.Drawing.Point(93, 20) + Me.slideshowNumBox.Maximum = New Decimal(New Integer() {120, 0, 0, 0}) + Me.slideshowNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.slideshowNumBox.Name = "slideshowNumBox" + Me.slideshowNumBox.Size = New System.Drawing.Size(47, 20) + Me.slideshowNumBox.TabIndex = 20 + Me.slideshowNumBox.Value = New Decimal(New Integer() {30, 0, 0, 0}) + ' + 'teaseRadio + ' + Me.teaseRadio.AutoSize = True + Me.teaseRadio.Checked = True + Me.teaseRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.teaseRadio.ForeColor = System.Drawing.Color.Black + Me.teaseRadio.Location = New System.Drawing.Point(149, 21) + Me.teaseRadio.Name = "teaseRadio" + Me.teaseRadio.Size = New System.Drawing.Size(55, 17) + Me.teaseRadio.TabIndex = 21 + Me.teaseRadio.TabStop = True + Me.teaseRadio.Text = "Tease" + Me.teaseRadio.UseVisualStyleBackColor = True + ' + 'CBNewSlideshow + ' + Me.CBNewSlideshow.AutoSize = True + Me.CBNewSlideshow.Checked = True + Me.CBNewSlideshow.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBNewSlideshow.ForeColor = System.Drawing.Color.Black + Me.CBNewSlideshow.Location = New System.Drawing.Point(4, 100) + Me.CBNewSlideshow.Name = "CBNewSlideshow" + Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) + Me.CBNewSlideshow.TabIndex = 18 + Me.CBNewSlideshow.TabStop = False + Me.CBNewSlideshow.Text = "Load New Slideshow When Finished" + Me.CBNewSlideshow.UseVisualStyleBackColor = True + ' + 'offRadio + ' + Me.offRadio.AutoSize = True + Me.offRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.offRadio.ForeColor = System.Drawing.Color.Black + Me.offRadio.Location = New System.Drawing.Point(6, 21) + Me.offRadio.Name = "offRadio" + Me.offRadio.Size = New System.Drawing.Size(60, 17) + Me.offRadio.TabIndex = 18 + Me.offRadio.Text = "Manual" + Me.offRadio.UseVisualStyleBackColor = True + ' + 'BTNDomImageDir + ' + Me.BTNDomImageDir.BackColor = System.Drawing.Color.LightGray + Me.BTNDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomImageDir.ForeColor = System.Drawing.Color.Black + Me.BTNDomImageDir.Location = New System.Drawing.Point(10, 45) + Me.BTNDomImageDir.Name = "BTNDomImageDir" + Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) + Me.BTNDomImageDir.TabIndex = 17 + Me.BTNDomImageDir.Text = "Set Domme Images Directory" + Me.BTNDomImageDir.UseVisualStyleBackColor = False + ' + 'timedRadio + ' + Me.timedRadio.AutoSize = True + Me.timedRadio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.timedRadio.ForeColor = System.Drawing.Color.Black + Me.timedRadio.Location = New System.Drawing.Point(72, 23) + Me.timedRadio.Name = "timedRadio" + Me.timedRadio.Size = New System.Drawing.Size(14, 13) + Me.timedRadio.TabIndex = 19 + Me.timedRadio.UseVisualStyleBackColor = True + ' + 'TbxDomImageDir + ' + Me.TbxDomImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxDomImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxDomImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "DomImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxDomImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxDomImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxDomImageDir.Location = New System.Drawing.Point(10, 73) + Me.TbxDomImageDir.Name = "TbxDomImageDir" + Me.TbxDomImageDir.ReadOnly = True + Me.TbxDomImageDir.Size = New System.Drawing.Size(190, 20) + Me.TbxDomImageDir.TabIndex = 0 + Me.TbxDomImageDir.Text = Global.Tease_AI.My.MySettings.Default.DomImageDir + ' + 'GBGeneralTextToSpeech + ' + Me.GBGeneralTextToSpeech.BackColor = System.Drawing.Color.LightGray + Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVRate) + Me.GBGeneralTextToSpeech.Controls.Add(Me.Label93) + Me.GBGeneralTextToSpeech.Controls.Add(Me.LBLVVolume) + Me.GBGeneralTextToSpeech.Controls.Add(Me.Label68) + Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVRate) + Me.GBGeneralTextToSpeech.Controls.Add(Me.SliderVVolume) + Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSCheckBox) + Me.GBGeneralTextToSpeech.Controls.Add(Me.TTSComboBox) + Me.GBGeneralTextToSpeech.ForeColor = System.Drawing.Color.Black + Me.GBGeneralTextToSpeech.Location = New System.Drawing.Point(440, 313) + Me.GBGeneralTextToSpeech.Name = "GBGeneralTextToSpeech" + Me.GBGeneralTextToSpeech.Size = New System.Drawing.Size(259, 117) + Me.GBGeneralTextToSpeech.TabIndex = 0 + Me.GBGeneralTextToSpeech.TabStop = False + Me.GBGeneralTextToSpeech.Text = "Text to Speech" + ' + 'LBLVRate + ' + Me.LBLVRate.Location = New System.Drawing.Point(202, 52) + Me.LBLVRate.Name = "LBLVRate" + Me.LBLVRate.Size = New System.Drawing.Size(45, 13) + Me.LBLVRate.TabIndex = 158 + Me.LBLVRate.Text = "100" + Me.LBLVRate.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label93 + ' + Me.Label93.AutoSize = True + Me.Label93.Location = New System.Drawing.Point(141, 52) + Me.Label93.Name = "Label93" + Me.Label93.Size = New System.Drawing.Size(33, 13) + Me.Label93.TabIndex = 157 + Me.Label93.Text = "Rate:" + ' + 'LBLVVolume + ' + Me.LBLVVolume.Location = New System.Drawing.Point(75, 52) + Me.LBLVVolume.Name = "LBLVVolume" + Me.LBLVVolume.Size = New System.Drawing.Size(45, 13) + Me.LBLVVolume.TabIndex = 33 + Me.LBLVVolume.Text = "100" + Me.LBLVVolume.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.Location = New System.Drawing.Point(14, 52) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(45, 13) + Me.Label68.TabIndex = 32 + Me.Label68.Text = "Volume:" + ' + 'SliderVRate + ' + Me.SliderVRate.Location = New System.Drawing.Point(133, 68) + Me.SliderVRate.Minimum = -10 + Me.SliderVRate.Name = "SliderVRate" + Me.SliderVRate.Size = New System.Drawing.Size(120, 45) + Me.SliderVRate.TabIndex = 31 + ' + 'SliderVVolume + ' + Me.SliderVVolume.Location = New System.Drawing.Point(6, 68) + Me.SliderVVolume.Maximum = 100 + Me.SliderVVolume.Name = "SliderVVolume" + Me.SliderVVolume.Size = New System.Drawing.Size(120, 45) + Me.SliderVVolume.TabIndex = 30 + Me.SliderVVolume.Value = 50 + ' + 'TTSCheckBox + ' + Me.TTSCheckBox.AutoSize = True + Me.TTSCheckBox.ForeColor = System.Drawing.Color.Black + Me.TTSCheckBox.Location = New System.Drawing.Point(10, 21) + Me.TTSCheckBox.Name = "TTSCheckBox" + Me.TTSCheckBox.Size = New System.Drawing.Size(59, 17) + Me.TTSCheckBox.TabIndex = 28 + Me.TTSCheckBox.TabStop = False + Me.TTSCheckBox.Text = "Enable" + Me.TTSCheckBox.UseVisualStyleBackColor = True + ' + 'TTSComboBox + ' + Me.TTSComboBox.BackColor = System.Drawing.SystemColors.Window + Me.TTSComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.TTSComboBox.ForeColor = System.Drawing.SystemColors.WindowText + Me.TTSComboBox.FormattingEnabled = True + Me.TTSComboBox.Location = New System.Drawing.Point(71, 19) + Me.TTSComboBox.Name = "TTSComboBox" + Me.TTSComboBox.Size = New System.Drawing.Size(178, 21) + Me.TTSComboBox.TabIndex = 29 + Me.TTSComboBox.TabStop = False + ' + 'GBSafeword + ' + Me.GBSafeword.BackColor = System.Drawing.Color.LightGray + Me.GBSafeword.Controls.Add(Me.LBLSafeword) + Me.GBSafeword.Controls.Add(Me.TBSafeword) + Me.GBSafeword.ForeColor = System.Drawing.Color.Black + Me.GBSafeword.Location = New System.Drawing.Point(440, 179) + Me.GBSafeword.Name = "GBSafeword" + Me.GBSafeword.Size = New System.Drawing.Size(259, 74) + Me.GBSafeword.TabIndex = 0 + Me.GBSafeword.TabStop = False + Me.GBSafeword.Text = "Safeword" + ' + 'LBLSafeword + ' + Me.LBLSafeword.Location = New System.Drawing.Point(17, 42) + Me.LBLSafeword.Name = "LBLSafeword" + Me.LBLSafeword.Size = New System.Drawing.Size(225, 29) + Me.LBLSafeword.TabIndex = 0 + Me.LBLSafeword.Text = "Enter a safeword that will stop all activity until the domme is sure you're able " & + "to continue." + Me.LBLSafeword.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBSafeword + ' + Me.TBSafeword.Location = New System.Drawing.Point(17, 19) + Me.TBSafeword.Name = "TBSafeword" + Me.TBSafeword.Size = New System.Drawing.Size(225, 20) + Me.TBSafeword.TabIndex = 27 + Me.TBSafeword.Text = "red" + Me.TBSafeword.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GBGeneralSystem + ' + Me.GBGeneralSystem.Controls.Add(Me.CBAuditStartup) + Me.GBGeneralSystem.Controls.Add(Me.CBDomDel) + Me.GBGeneralSystem.Controls.Add(Me.CBSettingsPause) + Me.GBGeneralSystem.Controls.Add(Me.CBSaveChatlogExit) + Me.GBGeneralSystem.Controls.Add(Me.CBAutosaveChatlog) + Me.GBGeneralSystem.Location = New System.Drawing.Point(440, 33) + Me.GBGeneralSystem.Name = "GBGeneralSystem" + Me.GBGeneralSystem.Size = New System.Drawing.Size(259, 140) + Me.GBGeneralSystem.TabIndex = 0 + Me.GBGeneralSystem.TabStop = False + Me.GBGeneralSystem.Text = "System" + ' + 'CBAuditStartup + ' + Me.CBAuditStartup.AutoSize = True + Me.CBAuditStartup.ForeColor = System.Drawing.Color.Black + Me.CBAuditStartup.Location = New System.Drawing.Point(7, 19) + Me.CBAuditStartup.Name = "CBAuditStartup" + Me.CBAuditStartup.Size = New System.Drawing.Size(137, 17) + Me.CBAuditStartup.TabIndex = 26 + Me.CBAuditStartup.TabStop = False + Me.CBAuditStartup.Text = "Audit Scripts on Startup" + Me.CBAuditStartup.UseVisualStyleBackColor = True + ' + 'CBDomDel + ' + Me.CBDomDel.AutoSize = True + Me.CBDomDel.ForeColor = System.Drawing.Color.Black + Me.CBDomDel.Location = New System.Drawing.Point(7, 110) + Me.CBDomDel.Name = "CBDomDel" + Me.CBDomDel.Size = New System.Drawing.Size(197, 17) + Me.CBDomDel.TabIndex = 27 + Me.CBDomDel.TabStop = False + Me.CBDomDel.Text = "Allow Domme to Delete Local Media" + Me.CBDomDel.UseVisualStyleBackColor = True + ' + 'CBSettingsPause + ' + Me.CBSettingsPause.AutoSize = True + Me.CBSettingsPause.ForeColor = System.Drawing.Color.Black + Me.CBSettingsPause.Location = New System.Drawing.Point(7, 41) + Me.CBSettingsPause.Name = "CBSettingsPause" + Me.CBSettingsPause.Size = New System.Drawing.Size(244, 17) + Me.CBSettingsPause.TabIndex = 22 + Me.CBSettingsPause.TabStop = False + Me.CBSettingsPause.Text = "Pause Program When Settings Menu is Visible" + Me.CBSettingsPause.UseVisualStyleBackColor = True + ' + 'CBSaveChatlogExit + ' + Me.CBSaveChatlogExit.AutoSize = True + Me.CBSaveChatlogExit.Checked = True + Me.CBSaveChatlogExit.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBSaveChatlogExit.ForeColor = System.Drawing.Color.Black + Me.CBSaveChatlogExit.Location = New System.Drawing.Point(7, 87) + Me.CBSaveChatlogExit.Name = "CBSaveChatlogExit" + Me.CBSaveChatlogExit.Size = New System.Drawing.Size(162, 17) + Me.CBSaveChatlogExit.TabIndex = 25 + Me.CBSaveChatlogExit.TabStop = False + Me.CBSaveChatlogExit.Text = "Save Unique Chatlog on Exit" + Me.CBSaveChatlogExit.UseVisualStyleBackColor = True + ' + 'CBAutosaveChatlog + ' + Me.CBAutosaveChatlog.AutoSize = True + Me.CBAutosaveChatlog.Checked = True + Me.CBAutosaveChatlog.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBAutosaveChatlog.ForeColor = System.Drawing.Color.Black + Me.CBAutosaveChatlog.Location = New System.Drawing.Point(7, 64) + Me.CBAutosaveChatlog.Name = "CBAutosaveChatlog" + Me.CBAutosaveChatlog.Size = New System.Drawing.Size(110, 17) + Me.CBAutosaveChatlog.TabIndex = 24 + Me.CBAutosaveChatlog.TabStop = False + Me.CBAutosaveChatlog.Text = "Autosave Chatlog" + Me.CBAutosaveChatlog.UseVisualStyleBackColor = True + ' + 'GBGeneralImages + ' + Me.GBGeneralImages.Controls.Add(Me.CBImageInfo) + Me.GBGeneralImages.Controls.Add(Me.CBSlideshowRandom) + Me.GBGeneralImages.Controls.Add(Me.landscapeCheckBox) + Me.GBGeneralImages.Controls.Add(Me.CBBlogImageWindow) + Me.GBGeneralImages.Controls.Add(Me.CBSlideshowSubDir) + Me.GBGeneralImages.Location = New System.Drawing.Point(224, 33) + Me.GBGeneralImages.Name = "GBGeneralImages" + Me.GBGeneralImages.Size = New System.Drawing.Size(210, 140) + Me.GBGeneralImages.TabIndex = 0 + Me.GBGeneralImages.TabStop = False + Me.GBGeneralImages.Text = "Images" + ' + 'CBImageInfo + ' + Me.CBImageInfo.AutoSize = True + Me.CBImageInfo.ForeColor = System.Drawing.Color.Black + Me.CBImageInfo.Location = New System.Drawing.Point(6, 110) + Me.CBImageInfo.Name = "CBImageInfo" + Me.CBImageInfo.Size = New System.Drawing.Size(147, 17) + Me.CBImageInfo.TabIndex = 16 + Me.CBImageInfo.TabStop = False + Me.CBImageInfo.Text = "Display Image Information" + Me.CBImageInfo.UseVisualStyleBackColor = True + ' + 'CBSlideshowRandom + ' + Me.CBSlideshowRandom.AutoSize = True + Me.CBSlideshowRandom.ForeColor = System.Drawing.Color.Black + Me.CBSlideshowRandom.Location = New System.Drawing.Point(6, 64) + Me.CBSlideshowRandom.Name = "CBSlideshowRandom" + Me.CBSlideshowRandom.Size = New System.Drawing.Size(202, 17) + Me.CBSlideshowRandom.TabIndex = 14 + Me.CBSlideshowRandom.TabStop = False + Me.CBSlideshowRandom.Text = "Display Slideshow Pictures Randomly" + Me.CBSlideshowRandom.UseVisualStyleBackColor = True + ' + 'landscapeCheckBox + ' + Me.landscapeCheckBox.AutoSize = True + Me.landscapeCheckBox.ForeColor = System.Drawing.Color.Black + Me.landscapeCheckBox.Location = New System.Drawing.Point(6, 87) + Me.landscapeCheckBox.Name = "landscapeCheckBox" + Me.landscapeCheckBox.Size = New System.Drawing.Size(153, 17) + Me.landscapeCheckBox.TabIndex = 15 + Me.landscapeCheckBox.TabStop = False + Me.landscapeCheckBox.Text = "Stretch Landscape Images" + Me.landscapeCheckBox.UseVisualStyleBackColor = True + ' + 'CBBlogImageWindow + ' + Me.CBBlogImageWindow.AutoSize = True + Me.CBBlogImageWindow.Checked = True + Me.CBBlogImageWindow.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBBlogImageWindow.ForeColor = System.Drawing.Color.Black + Me.CBBlogImageWindow.Location = New System.Drawing.Point(6, 18) + Me.CBBlogImageWindow.Name = "CBBlogImageWindow" + Me.CBBlogImageWindow.Size = New System.Drawing.Size(178, 17) + Me.CBBlogImageWindow.TabIndex = 12 + Me.CBBlogImageWindow.TabStop = False + Me.CBBlogImageWindow.Text = "Save Blog Images From Session" + Me.CBBlogImageWindow.UseVisualStyleBackColor = True + ' + 'CBSlideshowSubDir + ' + Me.CBSlideshowSubDir.AutoSize = True + Me.CBSlideshowSubDir.Checked = True + Me.CBSlideshowSubDir.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBSlideshowSubDir.ForeColor = System.Drawing.Color.Black + Me.CBSlideshowSubDir.Location = New System.Drawing.Point(6, 41) + Me.CBSlideshowSubDir.Name = "CBSlideshowSubDir" + Me.CBSlideshowSubDir.Size = New System.Drawing.Size(187, 17) + Me.CBSlideshowSubDir.TabIndex = 13 + Me.CBSlideshowSubDir.TabStop = False + Me.CBSlideshowSubDir.Text = "Slideshow Includes Subdirectories" + Me.CBSlideshowSubDir.UseVisualStyleBackColor = True + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.LightGray + Me.PictureBox2.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox2.Location = New System.Drawing.Point(9, 6) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(160, 19) + Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox2.TabIndex = 148 + Me.PictureBox2.TabStop = False + ' + 'GBGeneralSettings + ' + Me.GBGeneralSettings.BackColor = System.Drawing.Color.LightGray + Me.GBGeneralSettings.Controls.Add(Me.CBWebtease) + Me.GBGeneralSettings.Controls.Add(Me.GBSubFont) + Me.GBGeneralSettings.Controls.Add(Me.GBDommeFont) + Me.GBGeneralSettings.Controls.Add(Me.CBInputIcon) + Me.GBGeneralSettings.Controls.Add(Me.typeinstantlyCheckBox) + Me.GBGeneralSettings.Controls.Add(Me.timestampCheckBox) + Me.GBGeneralSettings.Controls.Add(Me.shownamesCheckBox) + Me.GBGeneralSettings.ForeColor = System.Drawing.Color.Black + Me.GBGeneralSettings.Location = New System.Drawing.Point(7, 33) + Me.GBGeneralSettings.Name = "GBGeneralSettings" + Me.GBGeneralSettings.Size = New System.Drawing.Size(211, 326) + Me.GBGeneralSettings.TabIndex = 0 + Me.GBGeneralSettings.TabStop = False + Me.GBGeneralSettings.Text = "Chat Window" + ' + 'CBWebtease + ' + Me.CBWebtease.AutoSize = True + Me.CBWebtease.ForeColor = System.Drawing.Color.Black + Me.CBWebtease.Location = New System.Drawing.Point(6, 110) + Me.CBWebtease.Name = "CBWebtease" + Me.CBWebtease.Size = New System.Drawing.Size(105, 17) + Me.CBWebtease.TabIndex = 5 + Me.CBWebtease.TabStop = False + Me.CBWebtease.Text = "Webtease Mode" + Me.CBWebtease.UseVisualStyleBackColor = True + ' + 'GBSubFont + ' + Me.GBSubFont.Controls.Add(Me.BTNSubColor) + Me.GBSubFont.Controls.Add(Me.LBLSubColor) + Me.GBSubFont.Controls.Add(Me.NBFontSize) + Me.GBSubFont.Controls.Add(Me.Label2) + Me.GBSubFont.Controls.Add(Me.FontComboBox) + Me.GBSubFont.Location = New System.Drawing.Point(6, 219) + Me.GBSubFont.Name = "GBSubFont" + Me.GBSubFont.Size = New System.Drawing.Size(200, 77) + Me.GBSubFont.TabIndex = 0 + Me.GBSubFont.TabStop = False + Me.GBSubFont.Text = "Sub Font Settings" + ' + 'BTNSubColor + ' + Me.BTNSubColor.BackColor = System.Drawing.Color.LightGray + Me.BTNSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNSubColor.ForeColor = System.Drawing.Color.Black + Me.BTNSubColor.Location = New System.Drawing.Point(6, 19) + Me.BTNSubColor.Name = "BTNSubColor" + Me.BTNSubColor.Size = New System.Drawing.Size(110, 25) + Me.BTNSubColor.TabIndex = 8 + Me.BTNSubColor.Text = "Sub Name Color" + Me.BTNSubColor.UseVisualStyleBackColor = False + ' + 'LBLSubColor + ' + Me.LBLSubColor.BackColor = System.Drawing.Color.White + Me.LBLSubColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLSubColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "SubColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLSubColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubColor.ForeColor = Global.Tease_AI.My.MySettings.Default.SubColorColor + Me.LBLSubColor.Location = New System.Drawing.Point(120, 20) + Me.LBLSubColor.Name = "LBLSubColor" + Me.LBLSubColor.Size = New System.Drawing.Size(72, 23) + Me.LBLSubColor.TabIndex = 0 + Me.LBLSubColor.Text = "Preview" + Me.LBLSubColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBFontSize + ' + Me.NBFontSize.BackColor = System.Drawing.Color.White + Me.NBFontSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBFontSize.ForeColor = System.Drawing.Color.Black + Me.NBFontSize.Location = New System.Drawing.Point(147, 47) + Me.NBFontSize.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBFontSize.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBFontSize.Name = "NBFontSize" + Me.NBFontSize.Size = New System.Drawing.Size(45, 20) + Me.NBFontSize.TabIndex = 11 + Me.NBFontSize.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label2 + ' + Me.Label2.BackColor = System.Drawing.Color.Transparent + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.Black + Me.Label2.Location = New System.Drawing.Point(117, 45) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(30, 20) + Me.Label2.TabIndex = 63 + Me.Label2.Text = "Size:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'FontComboBox + ' + Me.FontComboBox.FormattingEnabled = True + Me.FontComboBox.Location = New System.Drawing.Point(6, 46) + Me.FontComboBox.Name = "FontComboBox" + Me.FontComboBox.Size = New System.Drawing.Size(110, 21) + Me.FontComboBox.TabIndex = 9 + ' + 'GBDommeFont + ' + Me.GBDommeFont.Controls.Add(Me.BTNDomColor) + Me.GBDommeFont.Controls.Add(Me.LBLDomColor) + Me.GBDommeFont.Controls.Add(Me.FontComboBoxD) + Me.GBDommeFont.Controls.Add(Me.NBFontSizeD) + Me.GBDommeFont.Controls.Add(Me.Label7) + Me.GBDommeFont.Location = New System.Drawing.Point(6, 142) + Me.GBDommeFont.Name = "GBDommeFont" + Me.GBDommeFont.Size = New System.Drawing.Size(200, 77) + Me.GBDommeFont.TabIndex = 0 + Me.GBDommeFont.TabStop = False + Me.GBDommeFont.Text = "Domme Font Settings" + ' + 'BTNDomColor + ' + Me.BTNDomColor.BackColor = System.Drawing.Color.LightGray + Me.BTNDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomColor.ForeColor = System.Drawing.Color.Black + Me.BTNDomColor.Location = New System.Drawing.Point(6, 19) + Me.BTNDomColor.Name = "BTNDomColor" + Me.BTNDomColor.Size = New System.Drawing.Size(110, 25) + Me.BTNDomColor.TabIndex = 5 + Me.BTNDomColor.Text = "Domme Name Color" + Me.BTNDomColor.UseVisualStyleBackColor = False + ' + 'LBLDomColor + ' + Me.LBLDomColor.BackColor = System.Drawing.Color.White + Me.LBLDomColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLDomColor.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "DomColorColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLDomColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLDomColor.ForeColor = Global.Tease_AI.My.MySettings.Default.DomColorColor + Me.LBLDomColor.Location = New System.Drawing.Point(120, 20) + Me.LBLDomColor.Name = "LBLDomColor" + Me.LBLDomColor.Size = New System.Drawing.Size(72, 23) + Me.LBLDomColor.TabIndex = 0 + Me.LBLDomColor.Text = "Preview" + Me.LBLDomColor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'FontComboBoxD + ' + Me.FontComboBoxD.FormattingEnabled = True + Me.FontComboBoxD.Location = New System.Drawing.Point(6, 46) + Me.FontComboBoxD.Name = "FontComboBoxD" + Me.FontComboBoxD.Size = New System.Drawing.Size(110, 21) + Me.FontComboBoxD.TabIndex = 6 + ' + 'NBFontSizeD + ' + Me.NBFontSizeD.BackColor = System.Drawing.Color.White + Me.NBFontSizeD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBFontSizeD.ForeColor = System.Drawing.Color.Black + Me.NBFontSizeD.Location = New System.Drawing.Point(147, 47) + Me.NBFontSizeD.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBFontSizeD.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBFontSizeD.Name = "NBFontSizeD" + Me.NBFontSizeD.Size = New System.Drawing.Size(45, 20) + Me.NBFontSizeD.TabIndex = 7 + Me.NBFontSizeD.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label7 + ' + Me.Label7.BackColor = System.Drawing.Color.Transparent + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.ForeColor = System.Drawing.Color.Black + Me.Label7.Location = New System.Drawing.Point(117, 45) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(30, 20) + Me.Label7.TabIndex = 172 + Me.Label7.Text = "Size:" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBInputIcon + ' + Me.CBInputIcon.AutoSize = True + Me.CBInputIcon.Checked = True + Me.CBInputIcon.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBInputIcon.ForeColor = System.Drawing.Color.Black + Me.CBInputIcon.Location = New System.Drawing.Point(6, 87) + Me.CBInputIcon.Name = "CBInputIcon" + Me.CBInputIcon.Size = New System.Drawing.Size(188, 17) + Me.CBInputIcon.TabIndex = 4 + Me.CBInputIcon.TabStop = False + Me.CBInputIcon.Text = "Show Icon During Input Questions" + Me.CBInputIcon.UseVisualStyleBackColor = True + ' + 'typeinstantlyCheckBox + ' + Me.typeinstantlyCheckBox.AutoSize = True + Me.typeinstantlyCheckBox.ForeColor = System.Drawing.Color.Black + Me.typeinstantlyCheckBox.Location = New System.Drawing.Point(6, 64) + Me.typeinstantlyCheckBox.Name = "typeinstantlyCheckBox" + Me.typeinstantlyCheckBox.Size = New System.Drawing.Size(136, 17) + Me.typeinstantlyCheckBox.TabIndex = 3 + Me.typeinstantlyCheckBox.TabStop = False + Me.typeinstantlyCheckBox.Text = "Domme Types Instantly" + Me.typeinstantlyCheckBox.UseVisualStyleBackColor = True + ' + 'timestampCheckBox + ' + Me.timestampCheckBox.AutoSize = True + Me.timestampCheckBox.Checked = True + Me.timestampCheckBox.CheckState = System.Windows.Forms.CheckState.Checked + Me.timestampCheckBox.ForeColor = System.Drawing.Color.Black + Me.timestampCheckBox.Location = New System.Drawing.Point(6, 18) + Me.timestampCheckBox.Name = "timestampCheckBox" + Me.timestampCheckBox.Size = New System.Drawing.Size(112, 17) + Me.timestampCheckBox.TabIndex = 1 + Me.timestampCheckBox.TabStop = False + Me.timestampCheckBox.Text = "Show Timestamps" + Me.timestampCheckBox.UseVisualStyleBackColor = True + ' + 'shownamesCheckBox + ' + Me.shownamesCheckBox.AutoSize = True + Me.shownamesCheckBox.Checked = True + Me.shownamesCheckBox.CheckState = System.Windows.Forms.CheckState.Checked + Me.shownamesCheckBox.ForeColor = System.Drawing.Color.Black + Me.shownamesCheckBox.Location = New System.Drawing.Point(6, 41) + Me.shownamesCheckBox.Name = "shownamesCheckBox" + Me.shownamesCheckBox.Size = New System.Drawing.Size(125, 17) + Me.shownamesCheckBox.TabIndex = 2 + Me.shownamesCheckBox.TabStop = False + Me.shownamesCheckBox.Text = "Always Show Names" + Me.shownamesCheckBox.UseVisualStyleBackColor = True + ' + 'LBLGeneralSettings + ' + Me.LBLGeneralSettings.BackColor = System.Drawing.Color.Transparent + Me.LBLGeneralSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGeneralSettings.ForeColor = System.Drawing.Color.Black + Me.LBLGeneralSettings.Location = New System.Drawing.Point(7, 6) + Me.LBLGeneralSettings.Name = "LBLGeneralSettings" + Me.LBLGeneralSettings.Size = New System.Drawing.Size(692, 21) + Me.LBLGeneralSettings.TabIndex = 0 + Me.LBLGeneralSettings.Text = "General Settings" + Me.LBLGeneralSettings.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage2 + ' + Me.TabPage2.BackColor = System.Drawing.Color.Silver + Me.TabPage2.Controls.Add(Me.Panel3) + 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(720, 448) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Domme" + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.LightGray + Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel3.Controls.Add(Me.GBGiveUp) + Me.Panel3.Controls.Add(Me.BTNLoadDomSet) + Me.Panel3.Controls.Add(Me.BTNSaveDomSet) + Me.Panel3.Controls.Add(Me.Label127) + Me.Panel3.Controls.Add(Me.Label126) + Me.Panel3.Controls.Add(Me.PictureBox4) + Me.Panel3.Controls.Add(Me.GBDomTypingStyle) + Me.Panel3.Controls.Add(Me.GBDomRanges) + Me.Panel3.Controls.Add(Me.GBDomStats) + Me.Panel3.Controls.Add(Me.GBDomPersonality) + Me.Panel3.Controls.Add(Me.GBDomOrgasms) + Me.Panel3.Controls.Add(Me.GBDomPetNames) + Me.Panel3.Controls.Add(Me.Label54) + Me.Panel3.Location = New System.Drawing.Point(6, 6) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(708, 437) + Me.Panel3.TabIndex = 93 + ' + 'GBGiveUp + ' + Me.GBGiveUp.Controls.Add(Me.giveupCheckBox) + Me.GBGiveUp.Location = New System.Drawing.Point(440, 230) + Me.GBGiveUp.Name = "GBGiveUp" + Me.GBGiveUp.Size = New System.Drawing.Size(259, 63) + Me.GBGiveUp.TabIndex = 42 + Me.GBGiveUp.TabStop = False + Me.GBGiveUp.Text = "Script Behavior" + ' + 'giveupCheckBox + ' + Me.giveupCheckBox.AutoSize = True + Me.giveupCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.giveupCheckBox.ForeColor = System.Drawing.Color.Black + Me.giveupCheckBox.Location = New System.Drawing.Point(15, 26) + Me.giveupCheckBox.Name = "giveupCheckBox" + Me.giveupCheckBox.Size = New System.Drawing.Size(210, 17) + Me.giveupCheckBox.TabIndex = 38 + Me.giveupCheckBox.Text = "Continue Current Script After Giving Up" + Me.giveupCheckBox.UseVisualStyleBackColor = True + ' + 'BTNLoadDomSet + ' + Me.BTNLoadDomSet.BackColor = System.Drawing.Color.LightGray + Me.BTNLoadDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export + Me.BTNLoadDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.BTNLoadDomSet.FlatAppearance.BorderSize = 0 + Me.BTNLoadDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BTNLoadDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BTNLoadDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNLoadDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLoadDomSet.ForeColor = System.Drawing.Color.Black + Me.BTNLoadDomSet.Location = New System.Drawing.Point(671, 11) + Me.BTNLoadDomSet.Name = "BTNLoadDomSet" + Me.BTNLoadDomSet.Size = New System.Drawing.Size(30, 26) + Me.BTNLoadDomSet.TabIndex = 150 + Me.BTNLoadDomSet.UseVisualStyleBackColor = False + ' + 'BTNSaveDomSet + ' + Me.BTNSaveDomSet.BackColor = System.Drawing.Color.LightGray + Me.BTNSaveDomSet.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save + Me.BTNSaveDomSet.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.BTNSaveDomSet.FlatAppearance.BorderSize = 0 + Me.BTNSaveDomSet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BTNSaveDomSet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BTNSaveDomSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNSaveDomSet.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNSaveDomSet.ForeColor = System.Drawing.Color.Black + Me.BTNSaveDomSet.Location = New System.Drawing.Point(636, 8) + Me.BTNSaveDomSet.Name = "BTNSaveDomSet" + Me.BTNSaveDomSet.Size = New System.Drawing.Size(30, 26) + Me.BTNSaveDomSet.TabIndex = 151 + Me.BTNSaveDomSet.UseVisualStyleBackColor = False + ' + 'Label127 + ' + Me.Label127.AutoSize = True + Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label127.ForeColor = System.Drawing.Color.Black + Me.Label127.Location = New System.Drawing.Point(670, -3) + Me.Label127.Name = "Label127" + Me.Label127.Size = New System.Drawing.Size(27, 13) + Me.Label127.TabIndex = 153 + Me.Label127.Text = "load" + Me.Label127.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label126 + ' + Me.Label126.AutoSize = True + Me.Label126.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label126.ForeColor = System.Drawing.Color.Black + Me.Label126.Location = New System.Drawing.Point(636, -3) + Me.Label126.Name = "Label126" + Me.Label126.Size = New System.Drawing.Size(30, 13) + Me.Label126.TabIndex = 152 + Me.Label126.Text = "save" + Me.Label126.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PictureBox4 + ' + Me.PictureBox4.BackColor = System.Drawing.Color.LightGray + Me.PictureBox4.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox4.Location = New System.Drawing.Point(9, 6) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(160, 19) + Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox4.TabIndex = 149 + Me.PictureBox4.TabStop = False + ' + 'GBDomTypingStyle + ' + Me.GBDomTypingStyle.Controls.Add(Me.TBEmoteEnd) + Me.GBDomTypingStyle.Controls.Add(Me.Label67) + Me.GBDomTypingStyle.Controls.Add(Me.TBEmote) + Me.GBDomTypingStyle.Controls.Add(Me.NBTypoChance) + Me.GBDomTypingStyle.Controls.Add(Me.Label66) + Me.GBDomTypingStyle.Controls.Add(Me.CBMeMyMine) + Me.GBDomTypingStyle.Controls.Add(Me.GroupBox63) + Me.GBDomTypingStyle.Controls.Add(Me.Label64) + Me.GBDomTypingStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomTypingStyle.ForeColor = System.Drawing.Color.Black + Me.GBDomTypingStyle.Location = New System.Drawing.Point(7, 299) + Me.GBDomTypingStyle.Name = "GBDomTypingStyle" + Me.GBDomTypingStyle.Size = New System.Drawing.Size(427, 124) + Me.GBDomTypingStyle.TabIndex = 138 + Me.GBDomTypingStyle.TabStop = False + Me.GBDomTypingStyle.Text = "Typing Style" + ' + 'TBEmoteEnd + ' + Me.TBEmoteEnd.BackColor = System.Drawing.Color.White + Me.TBEmoteEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBEmoteEnd.ForeColor = System.Drawing.Color.Black + Me.TBEmoteEnd.Location = New System.Drawing.Point(115, 91) + Me.TBEmoteEnd.Name = "TBEmoteEnd" + Me.TBEmoteEnd.Size = New System.Drawing.Size(84, 23) + Me.TBEmoteEnd.TabIndex = 155 + Me.TBEmoteEnd.Text = "*" + Me.TBEmoteEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label67.ForeColor = System.Drawing.Color.Black + Me.Label67.Location = New System.Drawing.Point(237, 77) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(42, 13) + Me.Label67.TabIndex = 169 + Me.Label67.Text = "Typo %" + Me.Label67.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBEmote + ' + Me.TBEmote.BackColor = System.Drawing.Color.White + Me.TBEmote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBEmote.ForeColor = System.Drawing.Color.Black + Me.TBEmote.Location = New System.Drawing.Point(9, 91) + Me.TBEmote.Name = "TBEmote" + Me.TBEmote.Size = New System.Drawing.Size(85, 23) + Me.TBEmote.TabIndex = 154 + Me.TBEmote.Text = "*" + Me.TBEmote.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'NBTypoChance + ' + Me.NBTypoChance.Location = New System.Drawing.Point(238, 94) + Me.NBTypoChance.Name = "NBTypoChance" + Me.NBTypoChance.Size = New System.Drawing.Size(44, 20) + Me.NBTypoChance.TabIndex = 168 + Me.NBTypoChance.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'Label66 + ' + Me.Label66.AutoSize = True + Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label66.ForeColor = System.Drawing.Color.Black + Me.Label66.Location = New System.Drawing.Point(322, 77) + Me.Label66.Name = "Label66" + Me.Label66.Size = New System.Drawing.Size(52, 13) + Me.Label66.TabIndex = 44 + Me.Label66.Text = "Pronouns" + Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBMeMyMine + ' + Me.CBMeMyMine.AutoSize = True + Me.CBMeMyMine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBMeMyMine.ForeColor = System.Drawing.Color.Black + Me.CBMeMyMine.Location = New System.Drawing.Point(325, 97) + Me.CBMeMyMine.Name = "CBMeMyMine" + Me.CBMeMyMine.Size = New System.Drawing.Size(88, 17) + Me.CBMeMyMine.TabIndex = 40 + Me.CBMeMyMine.Text = "Me/My/Mine" + Me.CBMeMyMine.UseVisualStyleBackColor = True + ' + 'GroupBox63 + ' + Me.GroupBox63.Controls.Add(Me.LCaseCheckBox) + Me.GroupBox63.Controls.Add(Me.apostropheCheckBox) + Me.GroupBox63.Controls.Add(Me.periodCheckBox) + Me.GroupBox63.Controls.Add(Me.commaCheckBox) + Me.GroupBox63.Location = New System.Drawing.Point(9, 15) + Me.GroupBox63.Name = "GroupBox63" + Me.GroupBox63.Size = New System.Drawing.Size(407, 48) + Me.GroupBox63.TabIndex = 41 + Me.GroupBox63.TabStop = False + Me.GroupBox63.Text = "Remove" + ' + 'LCaseCheckBox + ' + Me.LCaseCheckBox.AutoSize = True + Me.LCaseCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LCaseCheckBox.ForeColor = System.Drawing.Color.Black + Me.LCaseCheckBox.Location = New System.Drawing.Point(16, 19) + Me.LCaseCheckBox.Name = "LCaseCheckBox" + Me.LCaseCheckBox.Size = New System.Drawing.Size(88, 17) + Me.LCaseCheckBox.TabIndex = 38 + Me.LCaseCheckBox.Text = "Capitalization" + Me.LCaseCheckBox.UseVisualStyleBackColor = True + ' + 'apostropheCheckBox + ' + Me.apostropheCheckBox.AutoSize = True + Me.apostropheCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.apostropheCheckBox.ForeColor = System.Drawing.Color.Black + Me.apostropheCheckBox.Location = New System.Drawing.Point(116, 19) + Me.apostropheCheckBox.Name = "apostropheCheckBox" + Me.apostropheCheckBox.Size = New System.Drawing.Size(85, 17) + Me.apostropheCheckBox.TabIndex = 39 + Me.apostropheCheckBox.Text = "Apostrophes" + Me.apostropheCheckBox.UseVisualStyleBackColor = True + ' + 'periodCheckBox + ' + Me.periodCheckBox.AutoSize = True + Me.periodCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.periodCheckBox.ForeColor = System.Drawing.Color.Black + Me.periodCheckBox.Location = New System.Drawing.Point(316, 19) + Me.periodCheckBox.Name = "periodCheckBox" + Me.periodCheckBox.Size = New System.Drawing.Size(61, 17) + Me.periodCheckBox.TabIndex = 37 + Me.periodCheckBox.Text = "Periods" + Me.periodCheckBox.UseVisualStyleBackColor = True + ' + 'commaCheckBox + ' + Me.commaCheckBox.AutoSize = True + Me.commaCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.commaCheckBox.ForeColor = System.Drawing.Color.Black + Me.commaCheckBox.Location = New System.Drawing.Point(216, 19) + Me.commaCheckBox.Name = "commaCheckBox" + Me.commaCheckBox.Size = New System.Drawing.Size(66, 17) + Me.commaCheckBox.TabIndex = 36 + Me.commaCheckBox.Text = "Commas" + Me.commaCheckBox.UseVisualStyleBackColor = True + ' + 'Label64 + ' + Me.Label64.AutoSize = True + Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label64.ForeColor = System.Drawing.Color.Black + Me.Label64.Location = New System.Drawing.Point(8, 77) + Me.Label64.Name = "Label64" + Me.Label64.Size = New System.Drawing.Size(79, 13) + Me.Label64.TabIndex = 43 + Me.Label64.Text = "Emote Symbols" + Me.Label64.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GBDomRanges + ' + Me.GBDomRanges.Controls.Add(Me.NBDomMoodMax) + Me.GBDomRanges.Controls.Add(Me.NBDomMoodMin) + Me.GBDomRanges.Controls.Add(Me.Label37) + Me.GBDomRanges.Controls.Add(Me.Label39) + Me.GBDomRanges.Controls.Add(Me.NBSubAgeMax) + Me.GBDomRanges.Controls.Add(Me.NBSubAgeMin) + Me.GBDomRanges.Controls.Add(Me.Label31) + Me.GBDomRanges.Controls.Add(Me.Label36) + Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMax) + Me.GBDomRanges.Controls.Add(Me.NBSelfAgeMin) + Me.GBDomRanges.Controls.Add(Me.Label21) + Me.GBDomRanges.Controls.Add(Me.Label22) + Me.GBDomRanges.Controls.Add(Me.NBAvgCockMax) + Me.GBDomRanges.Controls.Add(Me.NBAvgCockMin) + Me.GBDomRanges.Controls.Add(Me.Label23) + Me.GBDomRanges.Controls.Add(Me.Label30) + Me.GBDomRanges.Location = New System.Drawing.Point(440, 299) + Me.GBDomRanges.Name = "GBDomRanges" + Me.GBDomRanges.Size = New System.Drawing.Size(259, 124) + Me.GBDomRanges.TabIndex = 148 + Me.GBDomRanges.TabStop = False + Me.GBDomRanges.Text = "Ranges" + ' + 'NBDomMoodMax + ' + Me.NBDomMoodMax.Location = New System.Drawing.Point(200, 19) + Me.NBDomMoodMax.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBDomMoodMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBDomMoodMax.Name = "NBDomMoodMax" + Me.NBDomMoodMax.Size = New System.Drawing.Size(44, 20) + Me.NBDomMoodMax.TabIndex = 168 + Me.NBDomMoodMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) + ' + 'NBDomMoodMin + ' + Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 19) + Me.NBDomMoodMin.Maximum = New Decimal(New Integer() {9, 0, 0, 0}) + Me.NBDomMoodMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBDomMoodMin.Name = "NBDomMoodMin" + Me.NBDomMoodMin.Size = New System.Drawing.Size(44, 20) + Me.NBDomMoodMin.TabIndex = 167 + Me.NBDomMoodMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) + ' + 'Label37 + ' + Me.Label37.BackColor = System.Drawing.Color.Transparent + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.ForeColor = System.Drawing.Color.Black + Me.Label37.Location = New System.Drawing.Point(184, 19) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(10, 17) + Me.Label37.TabIndex = 166 + Me.Label37.Text = "-" + Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label39 + ' + Me.Label39.BackColor = System.Drawing.Color.Transparent + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.ForeColor = System.Drawing.Color.Black + Me.Label39.Location = New System.Drawing.Point(12, 19) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(116, 17) + Me.Label39.TabIndex = 165 + Me.Label39.Text = "Domme Mood Index:" + Me.Label39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBSubAgeMax + ' + Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 94) + Me.NBSubAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) + Me.NBSubAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) + Me.NBSubAgeMax.Name = "NBSubAgeMax" + Me.NBSubAgeMax.Size = New System.Drawing.Size(44, 20) + Me.NBSubAgeMax.TabIndex = 164 + Me.NBSubAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) + ' + 'NBSubAgeMin + ' + Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 94) + Me.NBSubAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.NBSubAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) + Me.NBSubAgeMin.Name = "NBSubAgeMin" + Me.NBSubAgeMin.Size = New System.Drawing.Size(44, 20) + Me.NBSubAgeMin.TabIndex = 163 + Me.NBSubAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) + ' + 'Label31 + ' + Me.Label31.BackColor = System.Drawing.Color.Transparent + Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label31.ForeColor = System.Drawing.Color.Black + Me.Label31.Location = New System.Drawing.Point(184, 94) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(10, 17) + Me.Label31.TabIndex = 162 + Me.Label31.Text = "-" + Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label36 + ' + Me.Label36.BackColor = System.Drawing.Color.Transparent + Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label36.ForeColor = System.Drawing.Color.Black + Me.Label36.Location = New System.Drawing.Point(12, 94) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(113, 17) + Me.Label36.TabIndex = 161 + Me.Label36.Text = "Sub Age Perception:" + Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBSelfAgeMax + ' + Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 69) + Me.NBSelfAgeMax.Maximum = New Decimal(New Integer() {98, 0, 0, 0}) + Me.NBSelfAgeMax.Minimum = New Decimal(New Integer() {29, 0, 0, 0}) + Me.NBSelfAgeMax.Name = "NBSelfAgeMax" + Me.NBSelfAgeMax.Size = New System.Drawing.Size(44, 20) + Me.NBSelfAgeMax.TabIndex = 156 + Me.NBSelfAgeMax.Value = New Decimal(New Integer() {49, 0, 0, 0}) + ' + 'NBSelfAgeMin + ' + Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 69) + Me.NBSelfAgeMin.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.NBSelfAgeMin.Minimum = New Decimal(New Integer() {19, 0, 0, 0}) + Me.NBSelfAgeMin.Name = "NBSelfAgeMin" + Me.NBSelfAgeMin.Size = New System.Drawing.Size(44, 20) + Me.NBSelfAgeMin.TabIndex = 155 + Me.NBSelfAgeMin.Value = New Decimal(New Integer() {28, 0, 0, 0}) + ' + 'Label21 + ' + Me.Label21.BackColor = System.Drawing.Color.Transparent + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.ForeColor = System.Drawing.Color.Black + Me.Label21.Location = New System.Drawing.Point(184, 69) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(10, 17) + Me.Label21.TabIndex = 154 + Me.Label21.Text = "-" + Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label22 + ' + Me.Label22.BackColor = System.Drawing.Color.Transparent + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.ForeColor = System.Drawing.Color.Black + Me.Label22.Location = New System.Drawing.Point(12, 69) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(116, 17) + Me.Label22.TabIndex = 153 + Me.Label22.Text = "Self Age Perception:" + Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBAvgCockMax + ' + Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 44) + Me.NBAvgCockMax.Maximum = New Decimal(New Integer() {14, 0, 0, 0}) + Me.NBAvgCockMax.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) + Me.NBAvgCockMax.Name = "NBAvgCockMax" + Me.NBAvgCockMax.Size = New System.Drawing.Size(44, 20) + Me.NBAvgCockMax.TabIndex = 152 + Me.NBAvgCockMax.Value = New Decimal(New Integer() {8, 0, 0, 0}) + ' + 'NBAvgCockMin + ' + Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 44) + Me.NBAvgCockMin.Maximum = New Decimal(New Integer() {13, 0, 0, 0}) + Me.NBAvgCockMin.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBAvgCockMin.Name = "NBAvgCockMin" + Me.NBAvgCockMin.Size = New System.Drawing.Size(44, 20) + Me.NBAvgCockMin.TabIndex = 151 + Me.NBAvgCockMin.Value = New Decimal(New Integer() {6, 0, 0, 0}) + ' + 'Label23 + ' + Me.Label23.BackColor = System.Drawing.Color.Transparent + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.ForeColor = System.Drawing.Color.Black + Me.Label23.Location = New System.Drawing.Point(184, 44) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(10, 17) + Me.Label23.TabIndex = 150 + Me.Label23.Text = "-" + Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label30 + ' + Me.Label30.BackColor = System.Drawing.Color.Transparent + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.ForeColor = System.Drawing.Color.Black + Me.Label30.Location = New System.Drawing.Point(12, 44) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(116, 17) + Me.Label30.TabIndex = 149 + Me.Label30.Text = "Average Dick Size:" + Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GBDomStats + ' + Me.GBDomStats.BackColor = System.Drawing.Color.LightGray + Me.GBDomStats.Controls.Add(Me.Label128) + Me.GBDomStats.Controls.Add(Me.LBLEmpathy) + Me.GBDomStats.Controls.Add(Me.NBEmpathy) + Me.GBDomStats.Controls.Add(Me.Label83) + Me.GBDomStats.Controls.Add(Me.NBDomBirthdayDay) + Me.GBDomStats.Controls.Add(Me.TBDomEyeColor) + Me.GBDomStats.Controls.Add(Me.TBDomHairColor) + Me.GBDomStats.Controls.Add(Me.domageNumBox) + Me.GBDomStats.Controls.Add(Me.Label47) + Me.GBDomStats.Controls.Add(Me.Label76) + Me.GBDomStats.Controls.Add(Me.NBDomBirthdayMonth) + Me.GBDomStats.Controls.Add(Me.Label84) + Me.GBDomStats.Controls.Add(Me.CBDomTattoos) + Me.GBDomStats.Controls.Add(Me.CBDomFreckles) + Me.GBDomStats.Controls.Add(Me.domhairlengthComboBox) + Me.GBDomStats.Controls.Add(Me.Label10) + Me.GBDomStats.Controls.Add(Me.dompubichairComboBox) + Me.GBDomStats.Controls.Add(Me.Label9) + Me.GBDomStats.Controls.Add(Me.boobComboBox) + Me.GBDomStats.Controls.Add(Me.DomLevelDescLabel) + Me.GBDomStats.Controls.Add(Me.domlevelNumBox) + Me.GBDomStats.Controls.Add(Me.Label43) + Me.GBDomStats.Controls.Add(Me.Label44) + Me.GBDomStats.Controls.Add(Me.Label45) + Me.GBDomStats.Controls.Add(Me.Label46) + Me.GBDomStats.ForeColor = System.Drawing.Color.Black + Me.GBDomStats.Location = New System.Drawing.Point(18, 33) + Me.GBDomStats.Name = "GBDomStats" + Me.GBDomStats.Size = New System.Drawing.Size(171, 263) + Me.GBDomStats.TabIndex = 62 + Me.GBDomStats.TabStop = False + Me.GBDomStats.Text = "Stats/Appearance" + ' + 'Label128 + ' + Me.Label128.AutoSize = True + Me.Label128.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label128.Location = New System.Drawing.Point(125, 68) + Me.Label128.Name = "Label128" + Me.Label128.Size = New System.Drawing.Size(38, 13) + Me.Label128.TabIndex = 156 + Me.Label128.Text = "mm/dd" + Me.Label128.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLEmpathy + ' + Me.LBLEmpathy.Location = New System.Drawing.Point(113, 41) + Me.LBLEmpathy.Name = "LBLEmpathy" + Me.LBLEmpathy.Size = New System.Drawing.Size(55, 13) + Me.LBLEmpathy.TabIndex = 157 + Me.LBLEmpathy.Text = "Moderate" + Me.LBLEmpathy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBEmpathy + ' + Me.NBEmpathy.BackColor = System.Drawing.Color.White + Me.NBEmpathy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBEmpathy.ForeColor = System.Drawing.Color.Black + Me.NBEmpathy.Location = New System.Drawing.Point(73, 38) + Me.NBEmpathy.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBEmpathy.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBEmpathy.Name = "NBEmpathy" + Me.NBEmpathy.Size = New System.Drawing.Size(38, 20) + Me.NBEmpathy.TabIndex = 156 + Me.NBEmpathy.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label83 + ' + Me.Label83.BackColor = System.Drawing.Color.Transparent + Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label83.ForeColor = System.Drawing.Color.Black + Me.Label83.Location = New System.Drawing.Point(6, 37) + Me.Label83.Name = "Label83" + Me.Label83.Size = New System.Drawing.Size(60, 17) + Me.Label83.TabIndex = 158 + Me.Label83.Text = "Apathy:" + Me.Label83.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBDomBirthdayDay + ' + Me.NBDomBirthdayDay.BackColor = System.Drawing.Color.White + Me.NBDomBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBDomBirthdayDay.ForeColor = System.Drawing.Color.Black + Me.NBDomBirthdayDay.Location = New System.Drawing.Point(125, 83) + Me.NBDomBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) + Me.NBDomBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBDomBirthdayDay.Name = "NBDomBirthdayDay" + Me.NBDomBirthdayDay.Size = New System.Drawing.Size(38, 20) + Me.NBDomBirthdayDay.TabIndex = 152 + Me.NBDomBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'TBDomEyeColor + ' + Me.TBDomEyeColor.BackColor = System.Drawing.Color.White + Me.TBDomEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBDomEyeColor.ForeColor = System.Drawing.Color.Black + Me.TBDomEyeColor.Location = New System.Drawing.Point(73, 155) + Me.TBDomEyeColor.Name = "TBDomEyeColor" + Me.TBDomEyeColor.Size = New System.Drawing.Size(89, 23) + Me.TBDomEyeColor.TabIndex = 154 + Me.TBDomEyeColor.Text = "green" + ' + 'TBDomHairColor + ' + Me.TBDomHairColor.BackColor = System.Drawing.Color.White + Me.TBDomHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBDomHairColor.ForeColor = System.Drawing.Color.Black + Me.TBDomHairColor.Location = New System.Drawing.Point(73, 105) + Me.TBDomHairColor.Name = "TBDomHairColor" + Me.TBDomHairColor.Size = New System.Drawing.Size(89, 23) + Me.TBDomHairColor.TabIndex = 153 + Me.TBDomHairColor.Text = "brown" + ' + 'domageNumBox + ' + Me.domageNumBox.BackColor = System.Drawing.Color.White + Me.domageNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.domageNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.domageNumBox.ForeColor = System.Drawing.Color.Black + Me.domageNumBox.Location = New System.Drawing.Point(73, 61) + Me.domageNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.domageNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) + Me.domageNumBox.Name = "domageNumBox" + Me.domageNumBox.Size = New System.Drawing.Size(38, 20) + Me.domageNumBox.TabIndex = 27 + Me.domageNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) + ' + 'Label47 + ' + Me.Label47.BackColor = System.Drawing.Color.Transparent + Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label47.ForeColor = System.Drawing.Color.Black + Me.Label47.Location = New System.Drawing.Point(6, 60) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(63, 17) + Me.Label47.TabIndex = 138 + Me.Label47.Text = "Age:" + Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label76 + ' + Me.Label76.AutoSize = True + Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label76.ForeColor = System.Drawing.Color.Black + Me.Label76.Location = New System.Drawing.Point(113, 87) + Me.Label76.Name = "Label76" + Me.Label76.Size = New System.Drawing.Size(12, 13) + Me.Label76.TabIndex = 151 + Me.Label76.Text = "/" + Me.Label76.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBDomBirthdayMonth + ' + Me.NBDomBirthdayMonth.BackColor = System.Drawing.Color.White + Me.NBDomBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBDomBirthdayMonth.ForeColor = System.Drawing.Color.Black + Me.NBDomBirthdayMonth.Location = New System.Drawing.Point(73, 83) + Me.NBDomBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) + Me.NBDomBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBDomBirthdayMonth.Name = "NBDomBirthdayMonth" + Me.NBDomBirthdayMonth.Size = New System.Drawing.Size(38, 20) + Me.NBDomBirthdayMonth.TabIndex = 149 + Me.NBDomBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label84 + ' + Me.Label84.BackColor = System.Drawing.Color.Transparent + Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label84.ForeColor = System.Drawing.Color.Black + Me.Label84.Location = New System.Drawing.Point(6, 84) + Me.Label84.Name = "Label84" + Me.Label84.Size = New System.Drawing.Size(60, 17) + Me.Label84.TabIndex = 150 + Me.Label84.Text = "Birthday:" + Me.Label84.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBDomTattoos + ' + Me.CBDomTattoos.AutoSize = True + Me.CBDomTattoos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomTattoos.ForeColor = System.Drawing.Color.Black + Me.CBDomTattoos.Location = New System.Drawing.Point(13, 237) + Me.CBDomTattoos.Name = "CBDomTattoos" + Me.CBDomTattoos.Size = New System.Drawing.Size(62, 17) + Me.CBDomTattoos.TabIndex = 148 + Me.CBDomTattoos.Text = "Tattoos" + Me.CBDomTattoos.UseVisualStyleBackColor = True + ' + 'CBDomFreckles + ' + Me.CBDomFreckles.AutoSize = True + Me.CBDomFreckles.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomFreckles.ForeColor = System.Drawing.Color.Black + Me.CBDomFreckles.Location = New System.Drawing.Point(88, 237) + Me.CBDomFreckles.Name = "CBDomFreckles" + Me.CBDomFreckles.Size = New System.Drawing.Size(66, 17) + Me.CBDomFreckles.TabIndex = 147 + Me.CBDomFreckles.Text = "Freckles" + Me.CBDomFreckles.UseVisualStyleBackColor = True + ' + 'domhairlengthComboBox + ' + Me.domhairlengthComboBox.BackColor = System.Drawing.Color.White + Me.domhairlengthComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.domhairlengthComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.domhairlengthComboBox.ForeColor = System.Drawing.Color.Black + Me.domhairlengthComboBox.FormattingEnabled = True + Me.domhairlengthComboBox.Items.AddRange(New Object() {"Shaved", "Buzz cut", "Short", "Medium", "Long", "Very Long"}) + Me.domhairlengthComboBox.Location = New System.Drawing.Point(73, 132) + Me.domhairlengthComboBox.Name = "domhairlengthComboBox" + Me.domhairlengthComboBox.Size = New System.Drawing.Size(89, 21) + Me.domhairlengthComboBox.TabIndex = 145 + ' + 'Label10 + ' + Me.Label10.BackColor = System.Drawing.Color.Transparent + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.ForeColor = System.Drawing.Color.Black + Me.Label10.Location = New System.Drawing.Point(6, 133) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(78, 17) + Me.Label10.TabIndex = 146 + Me.Label10.Text = "Hair Length:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'dompubichairComboBox + ' + Me.dompubichairComboBox.BackColor = System.Drawing.Color.White + Me.dompubichairComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.dompubichairComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dompubichairComboBox.ForeColor = System.Drawing.Color.Black + Me.dompubichairComboBox.FormattingEnabled = True + Me.dompubichairComboBox.Items.AddRange(New Object() {"Shaved", "Sparse", "Trimmed", "Natural", "Hairy"}) + Me.dompubichairComboBox.Location = New System.Drawing.Point(73, 208) + Me.dompubichairComboBox.Name = "dompubichairComboBox" + Me.dompubichairComboBox.Size = New System.Drawing.Size(89, 21) + Me.dompubichairComboBox.TabIndex = 143 + ' + 'Label9 + ' + Me.Label9.BackColor = System.Drawing.Color.Transparent + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.ForeColor = System.Drawing.Color.Black + Me.Label9.Location = New System.Drawing.Point(6, 209) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(63, 17) + Me.Label9.TabIndex = 144 + Me.Label9.Text = "Pubic Hair:" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'boobComboBox + ' + Me.boobComboBox.BackColor = System.Drawing.Color.White + Me.boobComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.boobComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.boobComboBox.ForeColor = System.Drawing.Color.Black + Me.boobComboBox.FormattingEnabled = True + Me.boobComboBox.Items.AddRange(New Object() {"A", "B", "C", "D", "DD", "DDD+"}) + Me.boobComboBox.Location = New System.Drawing.Point(73, 182) + Me.boobComboBox.Name = "boobComboBox" + Me.boobComboBox.Size = New System.Drawing.Size(89, 21) + Me.boobComboBox.TabIndex = 2 + ' + 'DomLevelDescLabel + ' + Me.DomLevelDescLabel.Location = New System.Drawing.Point(112, 18) + Me.DomLevelDescLabel.Name = "DomLevelDescLabel" + Me.DomLevelDescLabel.Size = New System.Drawing.Size(55, 13) + Me.DomLevelDescLabel.TabIndex = 42 + Me.DomLevelDescLabel.Text = "Tease" + Me.DomLevelDescLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'domlevelNumBox + ' + Me.domlevelNumBox.BackColor = System.Drawing.Color.White + Me.domlevelNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.domlevelNumBox.ForeColor = System.Drawing.Color.Black + Me.domlevelNumBox.Location = New System.Drawing.Point(73, 15) + Me.domlevelNumBox.Maximum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.domlevelNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.domlevelNumBox.Name = "domlevelNumBox" + Me.domlevelNumBox.Size = New System.Drawing.Size(38, 20) + Me.domlevelNumBox.TabIndex = 41 + Me.domlevelNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label43 + ' + Me.Label43.BackColor = System.Drawing.Color.Transparent + Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.ForeColor = System.Drawing.Color.Black + Me.Label43.Location = New System.Drawing.Point(6, 183) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(63, 17) + Me.Label43.TabIndex = 142 + Me.Label43.Text = "Cup Size:" + Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label44 + ' + Me.Label44.BackColor = System.Drawing.Color.Transparent + Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label44.ForeColor = System.Drawing.Color.Black + Me.Label44.Location = New System.Drawing.Point(6, 158) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(63, 17) + Me.Label44.TabIndex = 141 + Me.Label44.Text = "Eye Color:" + Me.Label44.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label45 + ' + Me.Label45.BackColor = System.Drawing.Color.Transparent + Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label45.ForeColor = System.Drawing.Color.Black + Me.Label45.Location = New System.Drawing.Point(6, 108) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(78, 17) + Me.Label45.TabIndex = 140 + Me.Label45.Text = "Hair Color:" + Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label46 + ' + Me.Label46.BackColor = System.Drawing.Color.Transparent + Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label46.ForeColor = System.Drawing.Color.Black + Me.Label46.Location = New System.Drawing.Point(6, 15) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(46, 17) + Me.Label46.TabIndex = 139 + Me.Label46.Text = "Level:" + Me.Label46.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GBDomPersonality + ' + Me.GBDomPersonality.Controls.Add(Me.degradingCheckBox) + Me.GBDomPersonality.Controls.Add(Me.sadisticCheckBox) + Me.GBDomPersonality.Controls.Add(Me.supremacistCheckBox) + Me.GBDomPersonality.Controls.Add(Me.vulgarCheckBox) + Me.GBDomPersonality.Controls.Add(Me.crazyCheckBox) + Me.GBDomPersonality.Controls.Add(Me.CFNMCheckBox) + Me.GBDomPersonality.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomPersonality.ForeColor = System.Drawing.Color.Black + Me.GBDomPersonality.Location = New System.Drawing.Point(184, 30) + Me.GBDomPersonality.Name = "GBDomPersonality" + Me.GBDomPersonality.Size = New System.Drawing.Size(250, 67) + Me.GBDomPersonality.TabIndex = 131 + Me.GBDomPersonality.TabStop = False + Me.GBDomPersonality.Text = "Personality" + ' + 'degradingCheckBox + ' + Me.degradingCheckBox.AutoSize = True + Me.degradingCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.degradingCheckBox.ForeColor = System.Drawing.Color.Black + Me.degradingCheckBox.Location = New System.Drawing.Point(79, 43) + Me.degradingCheckBox.Name = "degradingCheckBox" + Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) + Me.degradingCheckBox.TabIndex = 40 + Me.degradingCheckBox.Text = "Degrading" + Me.degradingCheckBox.UseVisualStyleBackColor = True + ' + 'sadisticCheckBox + ' + Me.sadisticCheckBox.AutoSize = True + Me.sadisticCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.sadisticCheckBox.ForeColor = System.Drawing.Color.Black + Me.sadisticCheckBox.Location = New System.Drawing.Point(11, 43) + Me.sadisticCheckBox.Name = "sadisticCheckBox" + Me.sadisticCheckBox.Size = New System.Drawing.Size(63, 17) + Me.sadisticCheckBox.TabIndex = 39 + Me.sadisticCheckBox.Text = "Sadistic" + Me.sadisticCheckBox.UseVisualStyleBackColor = True + ' + 'supremacistCheckBox + ' + Me.supremacistCheckBox.AutoSize = True + Me.supremacistCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.supremacistCheckBox.ForeColor = System.Drawing.Color.Black + Me.supremacistCheckBox.Location = New System.Drawing.Point(155, 20) + Me.supremacistCheckBox.Name = "supremacistCheckBox" + Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) + Me.supremacistCheckBox.TabIndex = 38 + Me.supremacistCheckBox.Text = "Supremacist" + Me.supremacistCheckBox.UseVisualStyleBackColor = True + ' + 'vulgarCheckBox + ' + Me.vulgarCheckBox.AutoSize = True + Me.vulgarCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.vulgarCheckBox.ForeColor = System.Drawing.Color.Black + Me.vulgarCheckBox.Location = New System.Drawing.Point(79, 20) + Me.vulgarCheckBox.Name = "vulgarCheckBox" + Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) + Me.vulgarCheckBox.TabIndex = 37 + Me.vulgarCheckBox.Text = "Vulgar" + Me.vulgarCheckBox.UseVisualStyleBackColor = True + ' + 'crazyCheckBox + ' + Me.crazyCheckBox.AutoSize = True + Me.crazyCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.crazyCheckBox.ForeColor = System.Drawing.Color.Black + Me.crazyCheckBox.Location = New System.Drawing.Point(11, 20) + Me.crazyCheckBox.Name = "crazyCheckBox" + Me.crazyCheckBox.Size = New System.Drawing.Size(52, 17) + Me.crazyCheckBox.TabIndex = 36 + Me.crazyCheckBox.Text = "Crazy" + Me.crazyCheckBox.UseVisualStyleBackColor = True + ' + 'CFNMCheckBox + ' + Me.CFNMCheckBox.AutoSize = True + Me.CFNMCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CFNMCheckBox.ForeColor = System.Drawing.Color.Black + Me.CFNMCheckBox.Location = New System.Drawing.Point(155, 43) + Me.CFNMCheckBox.Name = "CFNMCheckBox" + Me.CFNMCheckBox.Size = New System.Drawing.Size(56, 17) + Me.CFNMCheckBox.TabIndex = 41 + Me.CFNMCheckBox.Text = "CFNM" + Me.CFNMCheckBox.UseVisualStyleBackColor = True + ' + 'GBDomOrgasms + ' + Me.GBDomOrgasms.Controls.Add(Me.CBLockOrgasmChances) + Me.GBDomOrgasms.Controls.Add(Me.orgasmlockrandombutton) + Me.GBDomOrgasms.Controls.Add(Me.CBDomOrgasmEnds) + Me.GBDomOrgasms.Controls.Add(Me.Label16) + Me.GBDomOrgasms.Controls.Add(Me.Label12) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsperlockButton) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsperComboBox) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsperLabel) + Me.GBDomOrgasms.Controls.Add(Me.limitcheckbox) + Me.GBDomOrgasms.Controls.Add(Me.orgasmsPerNumBox) + Me.GBDomOrgasms.Controls.Add(Me.CBDomDenialEnds) + Me.GBDomOrgasms.Controls.Add(Me.alloworgasmComboBox) + Me.GBDomOrgasms.Controls.Add(Me.ruinorgasmComboBox) + Me.GBDomOrgasms.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomOrgasms.ForeColor = System.Drawing.Color.Black + Me.GBDomOrgasms.Location = New System.Drawing.Point(440, 30) + Me.GBDomOrgasms.Name = "GBDomOrgasms" + Me.GBDomOrgasms.Size = New System.Drawing.Size(259, 194) + Me.GBDomOrgasms.TabIndex = 132 + Me.GBDomOrgasms.TabStop = False + Me.GBDomOrgasms.Text = "Orgasms" + ' + 'CBLockOrgasmChances + ' + Me.CBLockOrgasmChances.Checked = Global.Tease_AI.My.MySettings.Default.LockOrgasmChances + Me.CBLockOrgasmChances.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "LockOrgasmChances", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBLockOrgasmChances.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBLockOrgasmChances.ForeColor = System.Drawing.Color.Black + Me.CBLockOrgasmChances.Location = New System.Drawing.Point(15, 73) + Me.CBLockOrgasmChances.Name = "CBLockOrgasmChances" + Me.CBLockOrgasmChances.Size = New System.Drawing.Size(237, 24) + Me.CBLockOrgasmChances.TabIndex = 146 + Me.CBLockOrgasmChances.Text = "Orgasm Chance Locked when Tease Starts" + Me.CBLockOrgasmChances.UseVisualStyleBackColor = True + ' + 'orgasmlockrandombutton + ' + Me.orgasmlockrandombutton.BackColor = System.Drawing.Color.LightGray + Me.orgasmlockrandombutton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmlockrandombutton.ForeColor = System.Drawing.Color.Black + Me.orgasmlockrandombutton.Location = New System.Drawing.Point(134, 161) + Me.orgasmlockrandombutton.Name = "orgasmlockrandombutton" + Me.orgasmlockrandombutton.Size = New System.Drawing.Size(110, 21) + Me.orgasmlockrandombutton.TabIndex = 145 + Me.orgasmlockrandombutton.Text = "Lock Random" + Me.orgasmlockrandombutton.UseVisualStyleBackColor = False + ' + 'CBDomOrgasmEnds + ' + Me.CBDomOrgasmEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomOrgasmEnds.ForeColor = System.Drawing.Color.Black + Me.CBDomOrgasmEnds.Location = New System.Drawing.Point(145, 95) + Me.CBDomOrgasmEnds.Name = "CBDomOrgasmEnds" + Me.CBDomOrgasmEnds.Size = New System.Drawing.Size(104, 37) + Me.CBDomOrgasmEnds.TabIndex = 144 + Me.CBDomOrgasmEnds.Text = "Orgasm Always Ends Tease" + Me.CBDomOrgasmEnds.UseVisualStyleBackColor = True + ' + 'Label16 + ' + Me.Label16.BackColor = System.Drawing.Color.Transparent + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.ForeColor = System.Drawing.Color.Black + Me.Label16.Location = New System.Drawing.Point(12, 47) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(87, 17) + Me.Label16.TabIndex = 142 + Me.Label16.Text = "Ruins Orgasms:" + Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label12 + ' + Me.Label12.BackColor = System.Drawing.Color.Transparent + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.ForeColor = System.Drawing.Color.Black + Me.Label12.Location = New System.Drawing.Point(12, 19) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(87, 17) + Me.Label12.TabIndex = 141 + Me.Label12.Text = "Allows Orgasms:" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'orgasmsperlockButton + ' + Me.orgasmsperlockButton.BackColor = System.Drawing.Color.LightGray + Me.orgasmsperlockButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsperlockButton.ForeColor = System.Drawing.Color.Black + Me.orgasmsperlockButton.Location = New System.Drawing.Point(15, 161) + Me.orgasmsperlockButton.Name = "orgasmsperlockButton" + Me.orgasmsperlockButton.Size = New System.Drawing.Size(110, 21) + Me.orgasmsperlockButton.TabIndex = 97 + Me.orgasmsperlockButton.Text = "Lock Selected" + Me.orgasmsperlockButton.UseVisualStyleBackColor = False + ' + 'orgasmsperComboBox + ' + Me.orgasmsperComboBox.BackColor = System.Drawing.Color.White + Me.orgasmsperComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.orgasmsperComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.orgasmsperComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsperComboBox.ForeColor = System.Drawing.Color.Black + Me.orgasmsperComboBox.FormattingEnabled = True + Me.orgasmsperComboBox.Items.AddRange(New Object() {"Week", "2 Weeks", "Month", "2 Months", "3 Months", "6 Months", "9 Months", "Year", "2 Years", "3 Years", "5 Years", "10 Years", "25 Years", "Lifetime"}) + Me.orgasmsperComboBox.Location = New System.Drawing.Point(143, 133) + Me.orgasmsperComboBox.Name = "orgasmsperComboBox" + Me.orgasmsperComboBox.Size = New System.Drawing.Size(101, 21) + Me.orgasmsperComboBox.TabIndex = 43 + ' + 'orgasmsperLabel + ' + Me.orgasmsperLabel.AutoSize = True + Me.orgasmsperLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsperLabel.ForeColor = System.Drawing.Color.Black + Me.orgasmsperLabel.Location = New System.Drawing.Point(115, 137) + Me.orgasmsperLabel.Name = "orgasmsperLabel" + Me.orgasmsperLabel.Size = New System.Drawing.Size(22, 13) + Me.orgasmsperLabel.TabIndex = 42 + Me.orgasmsperLabel.Text = "per" + Me.orgasmsperLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'limitcheckbox + ' + Me.limitcheckbox.AutoSize = True + Me.limitcheckbox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.limitcheckbox.ForeColor = System.Drawing.Color.Black + Me.limitcheckbox.Location = New System.Drawing.Point(15, 135) + Me.limitcheckbox.Name = "limitcheckbox" + Me.limitcheckbox.Size = New System.Drawing.Size(47, 17) + Me.limitcheckbox.TabIndex = 39 + Me.limitcheckbox.Text = "Limit" + Me.limitcheckbox.UseVisualStyleBackColor = True + ' + 'orgasmsPerNumBox + ' + Me.orgasmsPerNumBox.BackColor = System.Drawing.Color.White + Me.orgasmsPerNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.orgasmsPerNumBox.ForeColor = System.Drawing.Color.Black + Me.orgasmsPerNumBox.Location = New System.Drawing.Point(68, 134) + Me.orgasmsPerNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.orgasmsPerNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.orgasmsPerNumBox.Name = "orgasmsPerNumBox" + Me.orgasmsPerNumBox.Size = New System.Drawing.Size(41, 20) + Me.orgasmsPerNumBox.TabIndex = 41 + Me.orgasmsPerNumBox.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'CBDomDenialEnds + ' + Me.CBDomDenialEnds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBDomDenialEnds.ForeColor = System.Drawing.Color.Black + Me.CBDomDenialEnds.Location = New System.Drawing.Point(15, 95) + Me.CBDomDenialEnds.Name = "CBDomDenialEnds" + Me.CBDomDenialEnds.Size = New System.Drawing.Size(94, 37) + Me.CBDomDenialEnds.TabIndex = 38 + Me.CBDomDenialEnds.Text = "Denial Always Ends Tease" + Me.CBDomDenialEnds.UseVisualStyleBackColor = True + ' + 'alloworgasmComboBox + ' + Me.alloworgasmComboBox.BackColor = System.Drawing.Color.White + Me.alloworgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.alloworgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.alloworgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.alloworgasmComboBox.ForeColor = System.Drawing.Color.Black + Me.alloworgasmComboBox.FormattingEnabled = True + Me.alloworgasmComboBox.Items.AddRange(New Object() {"Never Allows", "Rarely Allows", "Sometimes Allows", "Often Allows", "Always Allows"}) + Me.alloworgasmComboBox.Location = New System.Drawing.Point(98, 18) + Me.alloworgasmComboBox.Name = "alloworgasmComboBox" + Me.alloworgasmComboBox.Size = New System.Drawing.Size(146, 21) + Me.alloworgasmComboBox.TabIndex = 1 + ' + 'ruinorgasmComboBox + ' + Me.ruinorgasmComboBox.BackColor = System.Drawing.Color.White + Me.ruinorgasmComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ruinorgasmComboBox.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.ruinorgasmComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ruinorgasmComboBox.ForeColor = System.Drawing.Color.Black + Me.ruinorgasmComboBox.FormattingEnabled = True + Me.ruinorgasmComboBox.Items.AddRange(New Object() {"Never Ruins", "Rarely Ruins", "Sometimes Ruins", "Often Ruins", "Always Ruins"}) + Me.ruinorgasmComboBox.Location = New System.Drawing.Point(98, 46) + Me.ruinorgasmComboBox.Name = "ruinorgasmComboBox" + Me.ruinorgasmComboBox.Size = New System.Drawing.Size(146, 21) + Me.ruinorgasmComboBox.TabIndex = 2 + ' + 'GBDomPetNames + ' + Me.GBDomPetNames.BackColor = System.Drawing.Color.LightGray + Me.GBDomPetNames.Controls.Add(Me.Label74) + Me.GBDomPetNames.Controls.Add(Me.petnameBox7) + Me.GBDomPetNames.Controls.Add(Me.petnameBox8) + Me.GBDomPetNames.Controls.Add(Me.petnameBox1) + Me.GBDomPetNames.Controls.Add(Me.Label15) + Me.GBDomPetNames.Controls.Add(Me.petnameBox4) + Me.GBDomPetNames.Controls.Add(Me.petnameBox6) + Me.GBDomPetNames.Controls.Add(Me.petnameBox2) + Me.GBDomPetNames.Controls.Add(Me.Label11) + Me.GBDomPetNames.Controls.Add(Me.petnameBox5) + Me.GBDomPetNames.Controls.Add(Me.petnameBox3) + Me.GBDomPetNames.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GBDomPetNames.ForeColor = System.Drawing.Color.Black + Me.GBDomPetNames.Location = New System.Drawing.Point(184, 103) + Me.GBDomPetNames.Name = "GBDomPetNames" + Me.GBDomPetNames.Size = New System.Drawing.Size(250, 190) + Me.GBDomPetNames.TabIndex = 134 + Me.GBDomPetNames.TabStop = False + Me.GBDomPetNames.Text = "Pet Names" + ' + 'Label74 + ' + Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label74.ForeColor = System.Drawing.Color.Black + Me.Label74.Location = New System.Drawing.Point(8, 14) + Me.Label74.Name = "Label74" + Me.Label74.Size = New System.Drawing.Size(233, 13) + Me.Label74.TabIndex = 45 + Me.Label74.Text = "Great Mood" + Me.Label74.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'petnameBox7 + ' + Me.petnameBox7.BackColor = System.Drawing.Color.White + Me.petnameBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox7.ForeColor = System.Drawing.Color.Black + Me.petnameBox7.Location = New System.Drawing.Point(8, 154) + Me.petnameBox7.Name = "petnameBox7" + Me.petnameBox7.Size = New System.Drawing.Size(114, 23) + Me.petnameBox7.TabIndex = 13 + Me.petnameBox7.Text = "bitch boy" + Me.petnameBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox8 + ' + Me.petnameBox8.BackColor = System.Drawing.Color.White + Me.petnameBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox8.ForeColor = System.Drawing.Color.Black + Me.petnameBox8.Location = New System.Drawing.Point(128, 154) + Me.petnameBox8.Name = "petnameBox8" + Me.petnameBox8.Size = New System.Drawing.Size(113, 22) + Me.petnameBox8.TabIndex = 14 + Me.petnameBox8.Text = "slut" + Me.petnameBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox1 + ' + Me.petnameBox1.BackColor = System.Drawing.Color.White + Me.petnameBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox1.ForeColor = System.Drawing.Color.Black + Me.petnameBox1.Location = New System.Drawing.Point(8, 32) + Me.petnameBox1.Name = "petnameBox1" + Me.petnameBox1.Size = New System.Drawing.Size(114, 23) + Me.petnameBox1.TabIndex = 7 + Me.petnameBox1.Text = "stroker" + Me.petnameBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label15 + ' + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.ForeColor = System.Drawing.Color.Black + Me.Label15.Location = New System.Drawing.Point(8, 136) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(233, 13) + Me.Label15.TabIndex = 44 + Me.Label15.Text = "Bad Mood" + Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'petnameBox4 + ' + Me.petnameBox4.BackColor = System.Drawing.Color.White + Me.petnameBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox4.ForeColor = System.Drawing.Color.Black + Me.petnameBox4.Location = New System.Drawing.Point(128, 81) + Me.petnameBox4.Name = "petnameBox4" + Me.petnameBox4.Size = New System.Drawing.Size(113, 23) + Me.petnameBox4.TabIndex = 10 + Me.petnameBox4.Text = "loser" + Me.petnameBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox6 + ' + Me.petnameBox6.BackColor = System.Drawing.Color.White + Me.petnameBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox6.ForeColor = System.Drawing.Color.Black + Me.petnameBox6.Location = New System.Drawing.Point(128, 107) + Me.petnameBox6.Name = "petnameBox6" + Me.petnameBox6.Size = New System.Drawing.Size(113, 23) + Me.petnameBox6.TabIndex = 12 + Me.petnameBox6.Text = "pet" + Me.petnameBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox2 + ' + Me.petnameBox2.BackColor = System.Drawing.Color.White + Me.petnameBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox2.ForeColor = System.Drawing.Color.Black + Me.petnameBox2.Location = New System.Drawing.Point(128, 32) + Me.petnameBox2.Name = "petnameBox2" + Me.petnameBox2.Size = New System.Drawing.Size(114, 23) + Me.petnameBox2.TabIndex = 8 + Me.petnameBox2.Text = "wanker" + Me.petnameBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label11 + ' + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.ForeColor = System.Drawing.Color.Black + Me.Label11.Location = New System.Drawing.Point(5, 63) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(239, 13) + Me.Label11.TabIndex = 43 + Me.Label11.Text = "Neutral Mood" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'petnameBox5 + ' + Me.petnameBox5.BackColor = System.Drawing.Color.White + Me.petnameBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox5.ForeColor = System.Drawing.Color.Black + Me.petnameBox5.Location = New System.Drawing.Point(8, 107) + Me.petnameBox5.Name = "petnameBox5" + Me.petnameBox5.Size = New System.Drawing.Size(114, 23) + Me.petnameBox5.TabIndex = 11 + Me.petnameBox5.Text = "baby" + Me.petnameBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'petnameBox3 + ' + Me.petnameBox3.BackColor = System.Drawing.Color.White + Me.petnameBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.petnameBox3.ForeColor = System.Drawing.Color.Black + Me.petnameBox3.Location = New System.Drawing.Point(8, 81) + Me.petnameBox3.Name = "petnameBox3" + Me.petnameBox3.Size = New System.Drawing.Size(114, 23) + Me.petnameBox3.TabIndex = 9 + Me.petnameBox3.Text = "slave" + Me.petnameBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label54 + ' + Me.Label54.BackColor = System.Drawing.Color.Transparent + Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label54.ForeColor = System.Drawing.Color.Black + Me.Label54.Location = New System.Drawing.Point(7, 6) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(692, 21) + Me.Label54.TabIndex = 49 + Me.Label54.Text = "Domme Settings" + Me.Label54.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage10 + ' + Me.TabPage10.BackColor = System.Drawing.Color.Silver + Me.TabPage10.Controls.Add(Me.Panel2) + Me.TabPage10.Location = New System.Drawing.Point(4, 22) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage10.Size = New System.Drawing.Size(720, 448) + Me.TabPage10.TabIndex = 9 + Me.TabPage10.Text = "Sub" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.LightGray + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.GroupBox22) + Me.Panel2.Controls.Add(Me.GroupBox45) + Me.Panel2.Controls.Add(Me.GroupBox6) + Me.Panel2.Controls.Add(Me.GroupBox35) + Me.Panel2.Controls.Add(Me.GroupBox13) + Me.Panel2.Controls.Add(Me.GroupBox7) + Me.Panel2.Controls.Add(Me.PictureBox12) + Me.Panel2.Controls.Add(Me.GroupBox32) + Me.Panel2.Controls.Add(Me.Label70) + Me.Panel2.Location = New System.Drawing.Point(6, 6) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(708, 437) + Me.Panel2.TabIndex = 94 + ' + 'GroupBox22 + ' + Me.GroupBox22.BackColor = System.Drawing.Color.LightGray + Me.GroupBox22.Controls.Add(Me.NBWritingTaskMax) + Me.GroupBox22.Controls.Add(Me.NBWritingTaskMin) + Me.GroupBox22.Controls.Add(Me.Label75) + Me.GroupBox22.Controls.Add(Me.Label77) + Me.GroupBox22.ForeColor = System.Drawing.Color.Black + Me.GroupBox22.Location = New System.Drawing.Point(440, 391) + Me.GroupBox22.Name = "GroupBox22" + Me.GroupBox22.Size = New System.Drawing.Size(259, 39) + Me.GroupBox22.TabIndex = 158 + Me.GroupBox22.TabStop = False + Me.GroupBox22.Text = "Writing Tasks" + ' + 'NBWritingTaskMax + ' + Me.NBWritingTaskMax.Increment = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMax.Location = New System.Drawing.Point(200, 13) + Me.NBWritingTaskMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.NBWritingTaskMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMax.Name = "NBWritingTaskMax" + Me.NBWritingTaskMax.Size = New System.Drawing.Size(44, 20) + Me.NBWritingTaskMax.TabIndex = 168 + Me.NBWritingTaskMax.Value = New Decimal(New Integer() {20, 0, 0, 0}) + ' + 'NBWritingTaskMin + ' + Me.NBWritingTaskMin.Increment = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMin.Location = New System.Drawing.Point(134, 13) + Me.NBWritingTaskMin.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.NBWritingTaskMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBWritingTaskMin.Name = "NBWritingTaskMin" + Me.NBWritingTaskMin.Size = New System.Drawing.Size(44, 20) + Me.NBWritingTaskMin.TabIndex = 167 + Me.NBWritingTaskMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) + ' + 'Label75 + ' + Me.Label75.BackColor = System.Drawing.Color.Transparent + Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label75.ForeColor = System.Drawing.Color.Black + Me.Label75.Location = New System.Drawing.Point(184, 13) + Me.Label75.Name = "Label75" + Me.Label75.Size = New System.Drawing.Size(10, 17) + Me.Label75.TabIndex = 166 + Me.Label75.Text = "-" + Me.Label75.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label77 + ' + Me.Label77.BackColor = System.Drawing.Color.Transparent + Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label77.ForeColor = System.Drawing.Color.Black + Me.Label77.Location = New System.Drawing.Point(12, 18) + Me.Label77.Name = "Label77" + Me.Label77.Size = New System.Drawing.Size(126, 17) + Me.Label77.TabIndex = 165 + Me.Label77.Tag = "" + Me.Label77.Text = "Line Amount Range:" + Me.Label77.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox45 + ' + Me.GroupBox45.BackColor = System.Drawing.Color.LightGray + Me.GroupBox45.Controls.Add(Me.LBLCBTSlider) + Me.GroupBox45.Controls.Add(Me.CBCBTBalls) + Me.GroupBox45.Controls.Add(Me.CBCBTCock) + Me.GroupBox45.Controls.Add(Me.CBTSlider) + Me.GroupBox45.ForeColor = System.Drawing.Color.Black + Me.GroupBox45.Location = New System.Drawing.Point(439, 335) + Me.GroupBox45.Name = "GroupBox45" + Me.GroupBox45.Size = New System.Drawing.Size(259, 50) + Me.GroupBox45.TabIndex = 155 + Me.GroupBox45.TabStop = False + Me.GroupBox45.Text = "CBT" + ' + 'LBLCBTSlider + ' + Me.LBLCBTSlider.BackColor = System.Drawing.Color.Transparent + Me.LBLCBTSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLCBTSlider.ForeColor = System.Drawing.Color.Black + Me.LBLCBTSlider.Location = New System.Drawing.Point(134, 30) + Me.LBLCBTSlider.Name = "LBLCBTSlider" + Me.LBLCBTSlider.Size = New System.Drawing.Size(110, 17) + Me.LBLCBTSlider.TabIndex = 168 + Me.LBLCBTSlider.Text = "CBT Level: 3" + Me.LBLCBTSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBCBTBalls + ' + Me.CBCBTBalls.Location = New System.Drawing.Point(69, 13) + Me.CBCBTBalls.Name = "CBCBTBalls" + Me.CBCBTBalls.Size = New System.Drawing.Size(66, 31) + Me.CBCBTBalls.TabIndex = 1 + Me.CBCBTBalls.Text = "Ball Torture" + Me.CBCBTBalls.UseVisualStyleBackColor = True + ' + 'CBCBTCock + ' + Me.CBCBTCock.Location = New System.Drawing.Point(9, 13) + Me.CBCBTCock.Name = "CBCBTCock" + Me.CBCBTCock.Size = New System.Drawing.Size(68, 31) + Me.CBCBTCock.TabIndex = 0 + Me.CBCBTCock.Text = "Cock Torture" + Me.CBCBTCock.UseVisualStyleBackColor = True + ' + 'CBTSlider + ' + Me.CBTSlider.AutoSize = False + Me.CBTSlider.LargeChange = 1 + Me.CBTSlider.Location = New System.Drawing.Point(134, 13) + Me.CBTSlider.Maximum = 5 + Me.CBTSlider.Minimum = 1 + Me.CBTSlider.Name = "CBTSlider" + Me.CBTSlider.Size = New System.Drawing.Size(110, 25) + Me.CBTSlider.TabIndex = 166 + Me.CBTSlider.Value = 3 + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.Label4) + Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeStroking) + Me.GroupBox6.Controls.Add(Me.LBLStrokeTimeTotal) + Me.GroupBox6.Controls.Add(Me.Label94) + Me.GroupBox6.Controls.Add(Me.LBLLastRuined) + Me.GroupBox6.Controls.Add(Me.Label65) + Me.GroupBox6.Controls.Add(Me.LBLAvgEdgeNoTouch) + Me.GroupBox6.Controls.Add(Me.LBLLastOrgasm) + Me.GroupBox6.Controls.Add(Me.Label14) + Me.GroupBox6.Controls.Add(Me.Label13) + Me.GroupBox6.Controls.Add(Me.Label1) + Me.GroupBox6.Location = New System.Drawing.Point(239, 207) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(195, 169) + Me.GroupBox6.TabIndex = 156 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "Performance" + ' + 'Label4 + ' + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(12, 23) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(74, 14) + Me.Label4.TabIndex = 147 + Me.Label4.Text = "Stroking Time" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLAvgEdgeStroking + ' + Me.LBLAvgEdgeStroking.AutoSize = True + Me.LBLAvgEdgeStroking.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLAvgEdgeStroking.Location = New System.Drawing.Point(97, 123) + Me.LBLAvgEdgeStroking.Name = "LBLAvgEdgeStroking" + Me.LBLAvgEdgeStroking.Size = New System.Drawing.Size(36, 15) + Me.LBLAvgEdgeStroking.TabIndex = 144 + Me.LBLAvgEdgeStroking.Text = "00:00" + Me.LBLAvgEdgeStroking.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLStrokeTimeTotal + ' + Me.LBLStrokeTimeTotal.Location = New System.Drawing.Point(109, 23) + Me.LBLStrokeTimeTotal.Name = "LBLStrokeTimeTotal" + Me.LBLStrokeTimeTotal.Size = New System.Drawing.Size(77, 17) + Me.LBLStrokeTimeTotal.TabIndex = 148 + Me.LBLStrokeTimeTotal.Text = "0000:00:00:00" + Me.LBLStrokeTimeTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label94 + ' + Me.Label94.BackColor = System.Drawing.Color.Transparent + Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label94.ForeColor = System.Drawing.Color.Black + Me.Label94.Location = New System.Drawing.Point(12, 68) + Me.Label94.Name = "Label94" + Me.Label94.Size = New System.Drawing.Size(65, 17) + Me.Label94.TabIndex = 150 + Me.Label94.Text = "Last Ruined" + Me.Label94.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLLastRuined + ' + Me.LBLLastRuined.Location = New System.Drawing.Point(112, 68) + Me.LBLLastRuined.Name = "LBLLastRuined" + Me.LBLLastRuined.Size = New System.Drawing.Size(75, 17) + Me.LBLLastRuined.TabIndex = 152 + Me.LBLLastRuined.Text = "04/28/2015" + Me.LBLLastRuined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label65 + ' + Me.Label65.BackColor = System.Drawing.Color.Transparent + Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label65.ForeColor = System.Drawing.Color.Black + Me.Label65.Location = New System.Drawing.Point(12, 45) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(69, 17) + Me.Label65.TabIndex = 149 + Me.Label65.Text = "Last Orgasm" + Me.Label65.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLAvgEdgeNoTouch + ' + Me.LBLAvgEdgeNoTouch.AutoSize = True + Me.LBLAvgEdgeNoTouch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLAvgEdgeNoTouch.Location = New System.Drawing.Point(50, 149) + Me.LBLAvgEdgeNoTouch.Name = "LBLAvgEdgeNoTouch" + Me.LBLAvgEdgeNoTouch.Size = New System.Drawing.Size(36, 15) + Me.LBLAvgEdgeNoTouch.TabIndex = 146 + Me.LBLAvgEdgeNoTouch.Text = "00:00" + Me.LBLAvgEdgeNoTouch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLLastOrgasm + ' + Me.LBLLastOrgasm.Location = New System.Drawing.Point(112, 45) + Me.LBLLastOrgasm.Name = "LBLLastOrgasm" + Me.LBLLastOrgasm.Size = New System.Drawing.Size(75, 17) + Me.LBLLastOrgasm.TabIndex = 151 + Me.LBLLastOrgasm.Text = "04/28/2015" + Me.LBLLastOrgasm.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label14 + ' + Me.Label14.BackColor = System.Drawing.Color.Transparent + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.ForeColor = System.Drawing.Color.Black + Me.Label14.Location = New System.Drawing.Point(25, 92) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(153, 21) + Me.Label14.TabIndex = 138 + Me.Label14.Text = "Average Time to Edge" + Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(12, 149) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(32, 13) + Me.Label13.TabIndex = 145 + Me.Label13.Text = "Rest:" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 123) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(79, 13) + Me.Label1.TabIndex = 143 + Me.Label1.Text = "While Stroking:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox35 + ' + Me.GroupBox35.BackColor = System.Drawing.Color.LightGray + Me.GroupBox35.Controls.Add(Me.GroupBoxSorry) + Me.GroupBox35.Controls.Add(Me.GroupBox39) + Me.GroupBox35.Controls.Add(Me.GroupBox38) + Me.GroupBox35.Controls.Add(Me.GroupBox37) + Me.GroupBox35.Controls.Add(Me.GroupBox36) + Me.GroupBox35.ForeColor = System.Drawing.Color.Black + Me.GroupBox35.Location = New System.Drawing.Point(440, 22) + Me.GroupBox35.Name = "GroupBox35" + Me.GroupBox35.Size = New System.Drawing.Size(259, 306) + Me.GroupBox35.TabIndex = 154 + Me.GroupBox35.TabStop = False + Me.GroupBox35.Text = "Key Phrases" + ' + 'GroupBoxSorry + ' + Me.GroupBoxSorry.Controls.Add(Me.TBSorry) + Me.GroupBoxSorry.Location = New System.Drawing.Point(6, 158) + Me.GroupBoxSorry.Name = "GroupBoxSorry" + Me.GroupBoxSorry.Size = New System.Drawing.Size(247, 46) + Me.GroupBoxSorry.TabIndex = 3 + Me.GroupBoxSorry.TabStop = False + Me.GroupBoxSorry.Tag = "" + Me.GroupBoxSorry.Text = "Sorry" + ' + 'TBSorry + ' + Me.TBSorry.Location = New System.Drawing.Point(9, 16) + Me.TBSorry.Name = "TBSorry" + Me.TBSorry.Size = New System.Drawing.Size(229, 20) + Me.TBSorry.TabIndex = 0 + Me.TBSorry.Text = "sorry, apologize, excuse" + ' + 'GroupBox39 + ' + Me.GroupBox39.Controls.Add(Me.CBHonorificInclude) + Me.GroupBox39.Controls.Add(Me.CBNameInclude) + Me.GroupBox39.Controls.Add(Me.CBHonorificCapitalized) + Me.GroupBox39.Controls.Add(Me.TBHonorific) + Me.GroupBox39.Location = New System.Drawing.Point(6, 206) + Me.GroupBox39.Name = "GroupBox39" + Me.GroupBox39.Size = New System.Drawing.Size(247, 96) + Me.GroupBox39.TabIndex = 3 + Me.GroupBox39.TabStop = False + Me.GroupBox39.Tag = "" + Me.GroupBox39.Text = "Honorific" + ' + 'CBHonorificInclude + ' + Me.CBHonorificInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBHonorificInclude.ForeColor = System.Drawing.Color.Black + Me.CBHonorificInclude.Location = New System.Drawing.Point(9, 39) + Me.CBHonorificInclude.Name = "CBHonorificInclude" + Me.CBHonorificInclude.Size = New System.Drawing.Size(234, 21) + Me.CBHonorificInclude.TabIndex = 40 + Me.CBHonorificInclude.Text = "Honorific Must Be Included w/ Key Phrases" + Me.CBHonorificInclude.UseVisualStyleBackColor = True + ' + 'CBNameInclude + ' + Me.CBNameInclude.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBNameInclude.ForeColor = System.Drawing.Color.Black + Me.CBNameInclude.Location = New System.Drawing.Point(9, 75) + Me.CBNameInclude.Name = "CBNameInclude" + Me.CBNameInclude.Size = New System.Drawing.Size(234, 21) + Me.CBNameInclude.TabIndex = 40 + Me.CBNameInclude.Text = "Name Must Be Included w/ Key Phrases" + Me.CBNameInclude.UseVisualStyleBackColor = True + ' + 'CBHonorificCapitalized + ' + Me.CBHonorificCapitalized.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBHonorificCapitalized.ForeColor = System.Drawing.Color.Black + Me.CBHonorificCapitalized.Location = New System.Drawing.Point(9, 57) + Me.CBHonorificCapitalized.Name = "CBHonorificCapitalized" + Me.CBHonorificCapitalized.Size = New System.Drawing.Size(179, 21) + Me.CBHonorificCapitalized.TabIndex = 39 + Me.CBHonorificCapitalized.Text = "Honorific Must Be Capitalized" + Me.CBHonorificCapitalized.UseVisualStyleBackColor = True + ' + 'TBHonorific + ' + Me.TBHonorific.Location = New System.Drawing.Point(9, 16) + Me.TBHonorific.Name = "TBHonorific" + Me.TBHonorific.Size = New System.Drawing.Size(229, 20) + Me.TBHonorific.TabIndex = 0 + Me.TBHonorific.Text = "Mistress" + ' + 'GroupBox38 + ' + Me.GroupBox38.Controls.Add(Me.TBNo) + Me.GroupBox38.Location = New System.Drawing.Point(6, 110) + Me.GroupBox38.Name = "GroupBox38" + Me.GroupBox38.Size = New System.Drawing.Size(247, 46) + Me.GroupBox38.TabIndex = 2 + Me.GroupBox38.TabStop = False + Me.GroupBox38.Tag = "" + Me.GroupBox38.Text = "No" + ' + 'TBNo + ' + Me.TBNo.Location = New System.Drawing.Point(9, 16) + Me.TBNo.Name = "TBNo" + Me.TBNo.Size = New System.Drawing.Size(229, 20) + Me.TBNo.TabIndex = 0 + Me.TBNo.Text = "no, nah, nope" + ' + 'GroupBox37 + ' + Me.GroupBox37.Controls.Add(Me.TBYes) + Me.GroupBox37.Location = New System.Drawing.Point(6, 62) + Me.GroupBox37.Name = "GroupBox37" + Me.GroupBox37.Size = New System.Drawing.Size(247, 46) + Me.GroupBox37.TabIndex = 1 + Me.GroupBox37.TabStop = False + Me.GroupBox37.Tag = "" + Me.GroupBox37.Text = "Yes" + ' + 'TBYes + ' + Me.TBYes.Location = New System.Drawing.Point(9, 16) + Me.TBYes.Name = "TBYes" + Me.TBYes.Size = New System.Drawing.Size(229, 20) + Me.TBYes.TabIndex = 0 + Me.TBYes.Text = "yes, yeah, yep, yup, sure, of course, absolutely, you know it" + ' + 'GroupBox36 + ' + Me.GroupBox36.Controls.Add(Me.TBGreeting) + Me.GroupBox36.Location = New System.Drawing.Point(6, 14) + Me.GroupBox36.Name = "GroupBox36" + Me.GroupBox36.Size = New System.Drawing.Size(247, 46) + Me.GroupBox36.TabIndex = 0 + Me.GroupBox36.TabStop = False + Me.GroupBox36.Tag = "" + Me.GroupBox36.Text = "Greeting" + ' + 'TBGreeting + ' + Me.TBGreeting.Location = New System.Drawing.Point(9, 16) + Me.TBGreeting.Name = "TBGreeting" + Me.TBGreeting.Size = New System.Drawing.Size(229, 20) + Me.TBGreeting.TabIndex = 0 + Me.TBGreeting.Text = "hello, hi, hey, heya, good morning, good afternoon, good evening" + ' + 'GroupBox13 + ' + Me.GroupBox13.BackColor = System.Drawing.Color.LightGray + Me.GroupBox13.Controls.Add(Me.Label34) + Me.GroupBox13.Controls.Add(Me.TimeBoxWakeUp) + Me.GroupBox13.ForeColor = System.Drawing.Color.Black + Me.GroupBox13.Location = New System.Drawing.Point(239, 388) + Me.GroupBox13.Name = "GroupBox13" + Me.GroupBox13.Size = New System.Drawing.Size(195, 39) + Me.GroupBox13.TabIndex = 157 + Me.GroupBox13.TabStop = False + Me.GroupBox13.Text = "Routine" + ' + 'Label34 + ' + Me.Label34.BackColor = System.Drawing.Color.Transparent + Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label34.ForeColor = System.Drawing.Color.Black + Me.Label34.Location = New System.Drawing.Point(12, 15) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(83, 17) + Me.Label34.TabIndex = 140 + Me.Label34.Text = "Wake Up Time:" + Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TimeBoxWakeUp + ' + Me.TimeBoxWakeUp.Format = System.Windows.Forms.DateTimePickerFormat.Time + Me.TimeBoxWakeUp.Location = New System.Drawing.Point(92, 13) + Me.TimeBoxWakeUp.Name = "TimeBoxWakeUp" + Me.TimeBoxWakeUp.ShowUpDown = True + Me.TimeBoxWakeUp.Size = New System.Drawing.Size(97, 20) + Me.TimeBoxWakeUp.TabIndex = 0 + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.LBLMaxExtremeHold) + Me.GroupBox7.Controls.Add(Me.LBLMinExtremeHold) + Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMin) + Me.GroupBox7.Controls.Add(Me.Label133) + Me.GroupBox7.Controls.Add(Me.NBExtremeHoldMax) + Me.GroupBox7.Controls.Add(Me.LBLMaxLongHold) + Me.GroupBox7.Controls.Add(Me.Label78) + Me.GroupBox7.Controls.Add(Me.LBLMinLongHold) + Me.GroupBox7.Controls.Add(Me.NBLongHoldMin) + Me.GroupBox7.Controls.Add(Me.Label129) + Me.GroupBox7.Controls.Add(Me.NBLongHoldMax) + Me.GroupBox7.Controls.Add(Me.LBLMaxHold) + Me.GroupBox7.Controls.Add(Me.Label79) + Me.GroupBox7.Controls.Add(Me.NBLongEdge) + Me.GroupBox7.Controls.Add(Me.LBLMinHold) + Me.GroupBox7.Controls.Add(Me.CBEdgeUseAvg) + Me.GroupBox7.Controls.Add(Me.CBLongEdgeInterrupts) + Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMin) + Me.GroupBox7.Controls.Add(Me.Label55) + Me.GroupBox7.Controls.Add(Me.Label81) + Me.GroupBox7.Controls.Add(Me.Label5) + Me.GroupBox7.Controls.Add(Me.NBHoldTheEdgeMax) + Me.GroupBox7.Controls.Add(Me.CBLongEdgeTaunts) + Me.GroupBox7.Controls.Add(Me.Label131) + Me.GroupBox7.Location = New System.Drawing.Point(7, 201) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(226, 226) + Me.GroupBox7.TabIndex = 152 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "Edging" + ' + 'LBLMaxExtremeHold + ' + Me.LBLMaxExtremeHold.AutoSize = True + Me.LBLMaxExtremeHold.Location = New System.Drawing.Point(173, 128) + Me.LBLMaxExtremeHold.Name = "LBLMaxExtremeHold" + Me.LBLMaxExtremeHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMaxExtremeHold.TabIndex = 192 + Me.LBLMaxExtremeHold.Text = "minutes" + Me.LBLMaxExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLMinExtremeHold + ' + Me.LBLMinExtremeHold.AutoSize = True + Me.LBLMinExtremeHold.Location = New System.Drawing.Point(173, 106) + Me.LBLMinExtremeHold.Name = "LBLMinExtremeHold" + Me.LBLMinExtremeHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMinExtremeHold.TabIndex = 190 + Me.LBLMinExtremeHold.Text = "minutes" + Me.LBLMinExtremeHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBExtremeHoldMin + ' + Me.NBExtremeHoldMin.Location = New System.Drawing.Point(128, 104) + Me.NBExtremeHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBExtremeHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBExtremeHoldMin.Name = "NBExtremeHoldMin" + Me.NBExtremeHoldMin.Size = New System.Drawing.Size(44, 20) + Me.NBExtremeHoldMin.TabIndex = 189 + Me.NBExtremeHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label133 + ' + Me.Label133.BackColor = System.Drawing.Color.Transparent + Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label133.ForeColor = System.Drawing.Color.Black + Me.Label133.Location = New System.Drawing.Point(6, 105) + Me.Label133.Name = "Label133" + Me.Label133.Size = New System.Drawing.Size(119, 17) + Me.Label133.TabIndex = 187 + Me.Label133.Text = "Min Extreme Hold Time:" + Me.Label133.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBExtremeHoldMax + ' + Me.NBExtremeHoldMax.Location = New System.Drawing.Point(128, 126) + Me.NBExtremeHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBExtremeHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBExtremeHoldMax.Name = "NBExtremeHoldMax" + Me.NBExtremeHoldMax.Size = New System.Drawing.Size(44, 20) + Me.NBExtremeHoldMax.TabIndex = 188 + Me.NBExtremeHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'LBLMaxLongHold + ' + Me.LBLMaxLongHold.AutoSize = True + Me.LBLMaxLongHold.Location = New System.Drawing.Point(173, 84) + Me.LBLMaxLongHold.Name = "LBLMaxLongHold" + Me.LBLMaxLongHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMaxLongHold.TabIndex = 186 + Me.LBLMaxLongHold.Text = "minutes" + Me.LBLMaxLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label78 + ' + Me.Label78.BackColor = System.Drawing.Color.Transparent + Me.Label78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label78.ForeColor = System.Drawing.Color.Black + Me.Label78.Location = New System.Drawing.Point(6, 83) + Me.Label78.Name = "Label78" + Me.Label78.Size = New System.Drawing.Size(113, 17) + Me.Label78.TabIndex = 185 + Me.Label78.Text = "Max Long Hold Time:" + Me.Label78.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLMinLongHold + ' + Me.LBLMinLongHold.AutoSize = True + Me.LBLMinLongHold.Location = New System.Drawing.Point(173, 62) + Me.LBLMinLongHold.Name = "LBLMinLongHold" + Me.LBLMinLongHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMinLongHold.TabIndex = 184 + Me.LBLMinLongHold.Text = "minutes" + Me.LBLMinLongHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBLongHoldMin + ' + Me.NBLongHoldMin.Location = New System.Drawing.Point(128, 60) + Me.NBLongHoldMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBLongHoldMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBLongHoldMin.Name = "NBLongHoldMin" + Me.NBLongHoldMin.Size = New System.Drawing.Size(44, 20) + Me.NBLongHoldMin.TabIndex = 183 + Me.NBLongHoldMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label129 + ' + Me.Label129.BackColor = System.Drawing.Color.Transparent + Me.Label129.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label129.ForeColor = System.Drawing.Color.Black + Me.Label129.Location = New System.Drawing.Point(6, 61) + Me.Label129.Name = "Label129" + Me.Label129.Size = New System.Drawing.Size(113, 17) + Me.Label129.TabIndex = 181 + Me.Label129.Text = "Min Long Hold Time:" + Me.Label129.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBLongHoldMax + ' + Me.NBLongHoldMax.Location = New System.Drawing.Point(128, 82) + Me.NBLongHoldMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBLongHoldMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBLongHoldMax.Name = "NBLongHoldMax" + Me.NBLongHoldMax.Size = New System.Drawing.Size(44, 20) + Me.NBLongHoldMax.TabIndex = 182 + Me.NBLongHoldMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'LBLMaxHold + ' + Me.LBLMaxHold.AutoSize = True + Me.LBLMaxHold.Location = New System.Drawing.Point(173, 40) + Me.LBLMaxHold.Name = "LBLMaxHold" + Me.LBLMaxHold.Size = New System.Drawing.Size(43, 13) + Me.LBLMaxHold.TabIndex = 180 + Me.LBLMaxHold.Text = "minutes" + Me.LBLMaxHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label79 + ' + Me.Label79.BackColor = System.Drawing.Color.Transparent + Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label79.ForeColor = System.Drawing.Color.Black + Me.Label79.Location = New System.Drawing.Point(6, 39) + Me.Label79.Name = "Label79" + Me.Label79.Size = New System.Drawing.Size(113, 17) + Me.Label79.TabIndex = 178 + Me.Label79.Text = "Max Hold Edge Time:" + Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBLongEdge + ' + Me.NBLongEdge.Location = New System.Drawing.Point(128, 148) + Me.NBLongEdge.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) + Me.NBLongEdge.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBLongEdge.Name = "NBLongEdge" + Me.NBLongEdge.Size = New System.Drawing.Size(44, 20) + Me.NBLongEdge.TabIndex = 152 + Me.NBLongEdge.Value = New Decimal(New Integer() {120, 0, 0, 0}) + ' + 'LBLMinHold + ' + Me.LBLMinHold.AutoSize = True + Me.LBLMinHold.Location = New System.Drawing.Point(173, 18) + Me.LBLMinHold.Name = "LBLMinHold" + Me.LBLMinHold.Size = New System.Drawing.Size(47, 13) + Me.LBLMinHold.TabIndex = 177 + Me.LBLMinHold.Text = "seconds" + Me.LBLMinHold.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBEdgeUseAvg + ' + Me.CBEdgeUseAvg.AutoSize = True + Me.CBEdgeUseAvg.Location = New System.Drawing.Point(9, 170) + Me.CBEdgeUseAvg.Name = "CBEdgeUseAvg" + Me.CBEdgeUseAvg.Size = New System.Drawing.Size(185, 17) + Me.CBEdgeUseAvg.TabIndex = 174 + Me.CBEdgeUseAvg.Text = "Use Avg Edge Time as Threshold" + Me.CBEdgeUseAvg.UseVisualStyleBackColor = True + ' + 'CBLongEdgeInterrupts + ' + Me.CBLongEdgeInterrupts.Checked = True + Me.CBLongEdgeInterrupts.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBLongEdgeInterrupts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBLongEdgeInterrupts.ForeColor = System.Drawing.Color.Black + Me.CBLongEdgeInterrupts.Location = New System.Drawing.Point(9, 204) + Me.CBLongEdgeInterrupts.Name = "CBLongEdgeInterrupts" + Me.CBLongEdgeInterrupts.Size = New System.Drawing.Size(177, 21) + Me.CBLongEdgeInterrupts.TabIndex = 169 + Me.CBLongEdgeInterrupts.Text = "Allow Long Edge Interrupts" + Me.CBLongEdgeInterrupts.UseVisualStyleBackColor = True + ' + 'NBHoldTheEdgeMin + ' + Me.NBHoldTheEdgeMin.Location = New System.Drawing.Point(128, 16) + Me.NBHoldTheEdgeMin.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBHoldTheEdgeMin.Name = "NBHoldTheEdgeMin" + Me.NBHoldTheEdgeMin.Size = New System.Drawing.Size(44, 20) + Me.NBHoldTheEdgeMin.TabIndex = 176 + Me.NBHoldTheEdgeMin.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label55 + ' + Me.Label55.BackColor = System.Drawing.Color.Transparent + Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label55.ForeColor = System.Drawing.Color.Black + Me.Label55.Location = New System.Drawing.Point(7, 149) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(116, 17) + Me.Label55.TabIndex = 170 + Me.Label55.Text = "Long Edge Threshold:" + Me.Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label81 + ' + Me.Label81.BackColor = System.Drawing.Color.Transparent + Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label81.ForeColor = System.Drawing.Color.Black + Me.Label81.Location = New System.Drawing.Point(6, 17) + Me.Label81.Name = "Label81" + Me.Label81.Size = New System.Drawing.Size(113, 17) + Me.Label81.TabIndex = 153 + Me.Label81.Text = "Min Hold Edge Time:" + Me.Label81.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(174, 151) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(43, 13) + Me.Label5.TabIndex = 175 + Me.Label5.Text = "minutes" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'NBHoldTheEdgeMax + ' + Me.NBHoldTheEdgeMax.Location = New System.Drawing.Point(128, 38) + Me.NBHoldTheEdgeMax.Maximum = New Decimal(New Integer() {3600, 0, 0, 0}) + Me.NBHoldTheEdgeMax.Name = "NBHoldTheEdgeMax" + Me.NBHoldTheEdgeMax.Size = New System.Drawing.Size(44, 20) + Me.NBHoldTheEdgeMax.TabIndex = 155 + Me.NBHoldTheEdgeMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'CBLongEdgeTaunts + ' + Me.CBLongEdgeTaunts.Checked = True + Me.CBLongEdgeTaunts.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBLongEdgeTaunts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBLongEdgeTaunts.ForeColor = System.Drawing.Color.Black + Me.CBLongEdgeTaunts.Location = New System.Drawing.Point(9, 186) + Me.CBLongEdgeTaunts.Name = "CBLongEdgeTaunts" + Me.CBLongEdgeTaunts.Size = New System.Drawing.Size(163, 21) + Me.CBLongEdgeTaunts.TabIndex = 172 + Me.CBLongEdgeTaunts.Text = "Allow Long Edge Taunts" + Me.CBLongEdgeTaunts.UseVisualStyleBackColor = True + ' + 'Label131 + ' + Me.Label131.BackColor = System.Drawing.Color.Transparent + Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label131.ForeColor = System.Drawing.Color.Black + Me.Label131.Location = New System.Drawing.Point(6, 127) + Me.Label131.Name = "Label131" + Me.Label131.Size = New System.Drawing.Size(128, 17) + Me.Label131.TabIndex = 191 + Me.Label131.Text = "Max Extreme Hold Time:" + Me.Label131.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'PictureBox12 + ' + Me.PictureBox12.BackColor = System.Drawing.Color.LightGray + Me.PictureBox12.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox12.Location = New System.Drawing.Point(9, 6) + Me.PictureBox12.Name = "PictureBox12" + Me.PictureBox12.Size = New System.Drawing.Size(160, 19) + Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox12.TabIndex = 149 + Me.PictureBox12.TabStop = False + ' + 'GroupBox32 + ' + Me.GroupBox32.BackColor = System.Drawing.Color.LightGray + Me.GroupBox32.Controls.Add(Me.LBLSubBdayFormat) + Me.GroupBox32.Controls.Add(Me.CBChastitySpikes) + Me.GroupBox32.Controls.Add(Me.CBOwnChastity) + Me.GroupBox32.Controls.Add(Me.CBChastityPA) + Me.GroupBox32.Controls.Add(Me.CBHimHer) + Me.GroupBox32.Controls.Add(Me.CBBallsToPussy) + Me.GroupBox32.Controls.Add(Me.CBCockToClit) + Me.GroupBox32.Controls.Add(Me.NBBirthdayDay) + Me.GroupBox32.Controls.Add(Me.CBSubCircumcised) + Me.GroupBox32.Controls.Add(Me.CBSubPierced) + Me.GroupBox32.Controls.Add(Me.TBSubEyeColor) + Me.GroupBox32.Controls.Add(Me.TBSubHairColor) + Me.GroupBox32.Controls.Add(Me.Label63) + Me.GroupBox32.Controls.Add(Me.LBLSubInches) + Me.GroupBox32.Controls.Add(Me.subAgeNumBox) + Me.GroupBox32.Controls.Add(Me.NBBirthdayMonth) + Me.GroupBox32.Controls.Add(Me.LBLSubCockSize) + Me.GroupBox32.Controls.Add(Me.CockSizeNumBox) + Me.GroupBox32.Controls.Add(Me.LBLSubEye) + Me.GroupBox32.Controls.Add(Me.LBLSubHair) + Me.GroupBox32.Controls.Add(Me.LBLSubBirthday) + Me.GroupBox32.Controls.Add(Me.LBLSubAge) + Me.GroupBox32.ForeColor = System.Drawing.Color.Black + Me.GroupBox32.Location = New System.Drawing.Point(7, 30) + Me.GroupBox32.Name = "GroupBox32" + Me.GroupBox32.Size = New System.Drawing.Size(427, 165) + Me.GroupBox32.TabIndex = 62 + Me.GroupBox32.TabStop = False + Me.GroupBox32.Text = "Stats && Information" + ' + 'LBLSubBdayFormat + ' + Me.LBLSubBdayFormat.AutoSize = True + Me.LBLSubBdayFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubBdayFormat.Location = New System.Drawing.Point(125, 22) + Me.LBLSubBdayFormat.Name = "LBLSubBdayFormat" + Me.LBLSubBdayFormat.Size = New System.Drawing.Size(38, 13) + Me.LBLSubBdayFormat.TabIndex = 161 + Me.LBLSubBdayFormat.Text = "mm/dd" + Me.LBLSubBdayFormat.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBChastitySpikes + ' + Me.CBChastitySpikes.AutoSize = True + Me.CBChastitySpikes.Enabled = False + Me.CBChastitySpikes.Location = New System.Drawing.Point(191, 140) + Me.CBChastitySpikes.Name = "CBChastitySpikes" + Me.CBChastitySpikes.Size = New System.Drawing.Size(179, 17) + Me.CBChastitySpikes.TabIndex = 4 + Me.CBChastitySpikes.Text = "Chastity Device Contains Spikes" + Me.CBChastitySpikes.UseVisualStyleBackColor = True + ' + 'CBOwnChastity + ' + Me.CBOwnChastity.AutoSize = True + Me.CBOwnChastity.Location = New System.Drawing.Point(191, 90) + Me.CBOwnChastity.Name = "CBOwnChastity" + Me.CBOwnChastity.Size = New System.Drawing.Size(171, 17) + Me.CBOwnChastity.TabIndex = 5 + Me.CBOwnChastity.Text = "Own Device a Chastity Device" + Me.CBOwnChastity.UseVisualStyleBackColor = True + ' + 'CBChastityPA + ' + Me.CBChastityPA.AutoSize = True + Me.CBChastityPA.Enabled = False + Me.CBChastityPA.Location = New System.Drawing.Point(191, 115) + Me.CBChastityPA.Name = "CBChastityPA" + Me.CBChastityPA.Size = New System.Drawing.Size(195, 17) + Me.CBChastityPA.TabIndex = 3 + Me.CBChastityPA.Text = "Chastity Device Requires a Piercing" + Me.CBChastityPA.UseVisualStyleBackColor = True + ' + 'CBHimHer + ' + Me.CBHimHer.AutoSize = True + Me.CBHimHer.Location = New System.Drawing.Point(191, 65) + Me.CBHimHer.Name = "CBHimHer" + Me.CBHimHer.Size = New System.Drawing.Size(219, 17) + Me.CBHimHer.TabIndex = 3 + Me.CBHimHer.Text = "Replace Male Glitter Pronouns to Female" + Me.CBHimHer.UseVisualStyleBackColor = True + ' + 'CBBallsToPussy + ' + Me.CBBallsToPussy.AutoSize = True + Me.CBBallsToPussy.Location = New System.Drawing.Point(191, 40) + Me.CBBallsToPussy.Name = "CBBallsToPussy" + Me.CBBallsToPussy.Size = New System.Drawing.Size(193, 17) + Me.CBBallsToPussy.TabIndex = 160 + Me.CBBallsToPussy.Text = "Replace #Balls with #BallsToPussy" + Me.CBBallsToPussy.UseVisualStyleBackColor = True + ' + 'CBCockToClit + ' + Me.CBCockToClit.AutoSize = True + Me.CBCockToClit.Location = New System.Drawing.Point(191, 15) + Me.CBCockToClit.Name = "CBCockToClit" + Me.CBCockToClit.Size = New System.Drawing.Size(185, 17) + Me.CBCockToClit.TabIndex = 159 + Me.CBCockToClit.Text = "Replace #Cock with #CockToClit" + Me.CBCockToClit.UseVisualStyleBackColor = True + ' + 'NBBirthdayDay + ' + Me.NBBirthdayDay.BackColor = System.Drawing.Color.White + Me.NBBirthdayDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBBirthdayDay.ForeColor = System.Drawing.Color.Black + Me.NBBirthdayDay.Location = New System.Drawing.Point(125, 37) + Me.NBBirthdayDay.Maximum = New Decimal(New Integer() {31, 0, 0, 0}) + Me.NBBirthdayDay.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBBirthdayDay.Name = "NBBirthdayDay" + Me.NBBirthdayDay.Size = New System.Drawing.Size(38, 20) + Me.NBBirthdayDay.TabIndex = 144 + Me.NBBirthdayDay.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'CBSubCircumcised + ' + Me.CBSubCircumcised.AutoSize = True + Me.CBSubCircumcised.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBSubCircumcised.ForeColor = System.Drawing.Color.Black + Me.CBSubCircumcised.Location = New System.Drawing.Point(9, 138) + Me.CBSubCircumcised.Name = "CBSubCircumcised" + Me.CBSubCircumcised.Size = New System.Drawing.Size(83, 17) + Me.CBSubCircumcised.TabIndex = 157 + Me.CBSubCircumcised.Text = "Circumcised" + Me.CBSubCircumcised.UseVisualStyleBackColor = True + ' + 'CBSubPierced + ' + Me.CBSubPierced.AutoSize = True + Me.CBSubPierced.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBSubPierced.ForeColor = System.Drawing.Color.Black + Me.CBSubPierced.Location = New System.Drawing.Point(98, 138) + Me.CBSubPierced.Name = "CBSubPierced" + Me.CBSubPierced.Size = New System.Drawing.Size(62, 17) + Me.CBSubPierced.TabIndex = 156 + Me.CBSubPierced.Text = "Pierced" + Me.CBSubPierced.UseVisualStyleBackColor = True + ' + 'TBSubEyeColor + ' + Me.TBSubEyeColor.BackColor = System.Drawing.Color.White + Me.TBSubEyeColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBSubEyeColor.ForeColor = System.Drawing.Color.Black + Me.TBSubEyeColor.Location = New System.Drawing.Point(73, 87) + Me.TBSubEyeColor.Name = "TBSubEyeColor" + Me.TBSubEyeColor.Size = New System.Drawing.Size(89, 23) + Me.TBSubEyeColor.TabIndex = 155 + Me.TBSubEyeColor.Text = "brown" + ' + 'TBSubHairColor + ' + Me.TBSubHairColor.BackColor = System.Drawing.Color.White + Me.TBSubHairColor.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBSubHairColor.ForeColor = System.Drawing.Color.Black + Me.TBSubHairColor.Location = New System.Drawing.Point(73, 60) + Me.TBSubHairColor.Name = "TBSubHairColor" + Me.TBSubHairColor.Size = New System.Drawing.Size(89, 23) + Me.TBSubHairColor.TabIndex = 154 + Me.TBSubHairColor.Text = "brown" + ' + 'Label63 + ' + Me.Label63.AutoSize = True + Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label63.ForeColor = System.Drawing.Color.Black + Me.Label63.Location = New System.Drawing.Point(113, 41) + Me.Label63.Name = "Label63" + Me.Label63.Size = New System.Drawing.Size(12, 13) + Me.Label63.TabIndex = 143 + Me.Label63.Text = "/" + Me.Label63.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLSubInches + ' + Me.LBLSubInches.AutoSize = True + Me.LBLSubInches.Location = New System.Drawing.Point(118, 118) + Me.LBLSubInches.Name = "LBLSubInches" + Me.LBLSubInches.Size = New System.Drawing.Size(38, 13) + Me.LBLSubInches.TabIndex = 124 + Me.LBLSubInches.Text = "inches" + Me.LBLSubInches.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'subAgeNumBox + ' + Me.subAgeNumBox.BackColor = System.Drawing.Color.White + Me.subAgeNumBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.subAgeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.subAgeNumBox.ForeColor = System.Drawing.Color.Black + Me.subAgeNumBox.Location = New System.Drawing.Point(73, 14) + Me.subAgeNumBox.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.subAgeNumBox.Minimum = New Decimal(New Integer() {18, 0, 0, 0}) + Me.subAgeNumBox.Name = "subAgeNumBox" + Me.subAgeNumBox.Size = New System.Drawing.Size(38, 20) + Me.subAgeNumBox.TabIndex = 27 + Me.subAgeNumBox.Value = New Decimal(New Integer() {21, 0, 0, 0}) + ' + 'NBBirthdayMonth + ' + Me.NBBirthdayMonth.BackColor = System.Drawing.Color.White + Me.NBBirthdayMonth.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NBBirthdayMonth.ForeColor = System.Drawing.Color.Black + Me.NBBirthdayMonth.Location = New System.Drawing.Point(73, 37) + Me.NBBirthdayMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) + Me.NBBirthdayMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBBirthdayMonth.Name = "NBBirthdayMonth" + Me.NBBirthdayMonth.Size = New System.Drawing.Size(38, 20) + Me.NBBirthdayMonth.TabIndex = 41 + Me.NBBirthdayMonth.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'LBLSubCockSize + ' + Me.LBLSubCockSize.BackColor = System.Drawing.Color.Transparent + Me.LBLSubCockSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubCockSize.ForeColor = System.Drawing.Color.Black + Me.LBLSubCockSize.Location = New System.Drawing.Point(6, 114) + Me.LBLSubCockSize.Name = "LBLSubCockSize" + Me.LBLSubCockSize.Size = New System.Drawing.Size(63, 17) + Me.LBLSubCockSize.TabIndex = 142 + Me.LBLSubCockSize.Text = "Cock Size:" + Me.LBLSubCockSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CockSizeNumBox + ' + Me.CockSizeNumBox.BackColor = System.Drawing.Color.White + Me.CockSizeNumBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CockSizeNumBox.ForeColor = System.Drawing.Color.Black + Me.CockSizeNumBox.Location = New System.Drawing.Point(73, 114) + Me.CockSizeNumBox.Maximum = New Decimal(New Integer() {15, 0, 0, 0}) + Me.CockSizeNumBox.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.CockSizeNumBox.Name = "CockSizeNumBox" + Me.CockSizeNumBox.Size = New System.Drawing.Size(38, 20) + Me.CockSizeNumBox.TabIndex = 123 + Me.CockSizeNumBox.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'LBLSubEye + ' + Me.LBLSubEye.BackColor = System.Drawing.Color.Transparent + Me.LBLSubEye.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubEye.ForeColor = System.Drawing.Color.Black + Me.LBLSubEye.Location = New System.Drawing.Point(6, 90) + Me.LBLSubEye.Name = "LBLSubEye" + Me.LBLSubEye.Size = New System.Drawing.Size(63, 17) + Me.LBLSubEye.TabIndex = 141 + Me.LBLSubEye.Text = "Eye Color" + Me.LBLSubEye.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLSubHair + ' + Me.LBLSubHair.BackColor = System.Drawing.Color.Transparent + Me.LBLSubHair.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubHair.ForeColor = System.Drawing.Color.Black + Me.LBLSubHair.Location = New System.Drawing.Point(6, 63) + Me.LBLSubHair.Name = "LBLSubHair" + Me.LBLSubHair.Size = New System.Drawing.Size(78, 17) + Me.LBLSubHair.TabIndex = 140 + Me.LBLSubHair.Text = "Hair Color" + Me.LBLSubHair.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLSubBirthday + ' + Me.LBLSubBirthday.BackColor = System.Drawing.Color.Transparent + Me.LBLSubBirthday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubBirthday.ForeColor = System.Drawing.Color.Black + Me.LBLSubBirthday.Location = New System.Drawing.Point(6, 37) + Me.LBLSubBirthday.Name = "LBLSubBirthday" + Me.LBLSubBirthday.Size = New System.Drawing.Size(60, 17) + Me.LBLSubBirthday.TabIndex = 139 + Me.LBLSubBirthday.Text = "Birthday:" + Me.LBLSubBirthday.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLSubAge + ' + Me.LBLSubAge.BackColor = System.Drawing.Color.Transparent + Me.LBLSubAge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubAge.ForeColor = System.Drawing.Color.Black + Me.LBLSubAge.Location = New System.Drawing.Point(6, 15) + Me.LBLSubAge.Name = "LBLSubAge" + Me.LBLSubAge.Size = New System.Drawing.Size(63, 17) + Me.LBLSubAge.TabIndex = 138 + Me.LBLSubAge.Text = "Age:" + Me.LBLSubAge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label70 + ' + Me.Label70.BackColor = System.Drawing.Color.Transparent + Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label70.ForeColor = System.Drawing.Color.Black + Me.Label70.Location = New System.Drawing.Point(7, 6) + Me.Label70.Name = "Label70" + Me.Label70.Size = New System.Drawing.Size(692, 21) + Me.Label70.TabIndex = 49 + Me.Label70.Text = "Sub Settings" + Me.Label70.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage16 + ' + Me.TabPage16.BackColor = System.Drawing.Color.Silver + Me.TabPage16.Controls.Add(Me.Panel9) + Me.TabPage16.Location = New System.Drawing.Point(4, 22) + Me.TabPage16.Name = "TabPage16" + Me.TabPage16.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage16.Size = New System.Drawing.Size(720, 448) + Me.TabPage16.TabIndex = 14 + Me.TabPage16.Text = "Scripts" + ' + 'Panel9 + ' + Me.Panel9.BackColor = System.Drawing.Color.LightGray + Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel9.Controls.Add(Me.BTNScriptAvailable) + Me.Panel9.Controls.Add(Me.BTNScriptNone) + Me.Panel9.Controls.Add(Me.BTNScriptAll) + Me.Panel9.Controls.Add(Me.BTNScriptOpen) + Me.Panel9.Controls.Add(Me.LBLScriptReq) + Me.Panel9.Controls.Add(Me.GroupBox31) + Me.Panel9.Controls.Add(Me.TCScripts) + Me.Panel9.Controls.Add(Me.GroupBox42) + Me.Panel9.Controls.Add(Me.PictureBox1) + Me.Panel9.Controls.Add(Me.GroupBox43) + Me.Panel9.Controls.Add(Me.Label104) + Me.Panel9.Location = New System.Drawing.Point(6, 6) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(708, 437) + Me.Panel9.TabIndex = 94 + ' + 'BTNScriptAvailable + ' + Me.BTNScriptAvailable.Location = New System.Drawing.Point(204, 294) + Me.BTNScriptAvailable.Name = "BTNScriptAvailable" + Me.BTNScriptAvailable.Size = New System.Drawing.Size(100, 23) + Me.BTNScriptAvailable.TabIndex = 160 + Me.BTNScriptAvailable.Text = "Select Available" + Me.BTNScriptAvailable.UseVisualStyleBackColor = True + ' + 'BTNScriptNone + ' + Me.BTNScriptNone.Location = New System.Drawing.Point(108, 294) + Me.BTNScriptNone.Name = "BTNScriptNone" + Me.BTNScriptNone.Size = New System.Drawing.Size(75, 23) + Me.BTNScriptNone.TabIndex = 159 + Me.BTNScriptNone.Text = "Select None" + Me.BTNScriptNone.UseVisualStyleBackColor = True + ' + 'BTNScriptAll + ' + Me.BTNScriptAll.Location = New System.Drawing.Point(13, 294) + Me.BTNScriptAll.Name = "BTNScriptAll" + Me.BTNScriptAll.Size = New System.Drawing.Size(75, 23) + Me.BTNScriptAll.TabIndex = 158 + Me.BTNScriptAll.Text = "Select All" + Me.BTNScriptAll.UseVisualStyleBackColor = True + ' + 'BTNScriptOpen + ' + Me.BTNScriptOpen.Location = New System.Drawing.Point(624, 294) + Me.BTNScriptOpen.Name = "BTNScriptOpen" + Me.BTNScriptOpen.Size = New System.Drawing.Size(75, 23) + Me.BTNScriptOpen.TabIndex = 157 + Me.BTNScriptOpen.Text = "Open Script" + Me.BTNScriptOpen.UseVisualStyleBackColor = True + ' + 'LBLScriptReq + ' + Me.LBLScriptReq.BackColor = System.Drawing.Color.LightGray + Me.LBLScriptReq.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLScriptReq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLScriptReq.ForeColor = System.Drawing.Color.Green + Me.LBLScriptReq.Location = New System.Drawing.Point(314, 292) + Me.LBLScriptReq.Name = "LBLScriptReq" + Me.LBLScriptReq.Size = New System.Drawing.Size(300, 27) + Me.LBLScriptReq.TabIndex = 156 + Me.LBLScriptReq.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox31 + ' + Me.GroupBox31.Controls.Add(Me.RTBScriptReq) + Me.GroupBox31.Location = New System.Drawing.Point(314, 169) + Me.GroupBox31.Name = "GroupBox31" + Me.GroupBox31.Size = New System.Drawing.Size(385, 110) + Me.GroupBox31.TabIndex = 155 + Me.GroupBox31.TabStop = False + Me.GroupBox31.Text = "Requirements" + ' + 'RTBScriptReq + ' + Me.RTBScriptReq.Location = New System.Drawing.Point(6, 16) + Me.RTBScriptReq.Name = "RTBScriptReq" + Me.RTBScriptReq.ReadOnly = True + Me.RTBScriptReq.Size = New System.Drawing.Size(373, 85) + Me.RTBScriptReq.TabIndex = 0 + Me.RTBScriptReq.Text = "" + ' + 'TCScripts + ' + Me.TCScripts.Controls.Add(Me.TabPage21) + Me.TCScripts.Controls.Add(Me.TabPage17) + Me.TCScripts.Controls.Add(Me.TabPage18) + Me.TCScripts.Controls.Add(Me.TabPage19) + Me.TCScripts.Location = New System.Drawing.Point(9, 31) + Me.TCScripts.Name = "TCScripts" + Me.TCScripts.SelectedIndex = 0 + Me.TCScripts.Size = New System.Drawing.Size(299, 248) + Me.TCScripts.TabIndex = 154 + ' + 'TabPage21 + ' + Me.TabPage21.BackColor = System.Drawing.Color.Silver + Me.TabPage21.Controls.Add(Me.CLBStartList) + Me.TabPage21.Location = New System.Drawing.Point(4, 22) + Me.TabPage21.Name = "TabPage21" + Me.TabPage21.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage21.Size = New System.Drawing.Size(291, 222) + Me.TabPage21.TabIndex = 4 + Me.TabPage21.Text = "Start" + ' + 'CLBStartList + ' + Me.CLBStartList.FormattingEnabled = True + Me.CLBStartList.Location = New System.Drawing.Point(4, 4) + Me.CLBStartList.Name = "CLBStartList" + Me.CLBStartList.Size = New System.Drawing.Size(283, 214) + Me.CLBStartList.Sorted = True + Me.CLBStartList.TabIndex = 155 + ' + 'TabPage17 + ' + Me.TabPage17.BackColor = System.Drawing.Color.Silver + Me.TabPage17.Controls.Add(Me.CLBModuleList) + Me.TabPage17.Location = New System.Drawing.Point(4, 22) + Me.TabPage17.Name = "TabPage17" + Me.TabPage17.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage17.Size = New System.Drawing.Size(291, 222) + Me.TabPage17.TabIndex = 5 + Me.TabPage17.Text = "Modules" + ' + 'CLBModuleList + ' + Me.CLBModuleList.FormattingEnabled = True + Me.CLBModuleList.Location = New System.Drawing.Point(4, 4) + Me.CLBModuleList.Name = "CLBModuleList" + Me.CLBModuleList.Size = New System.Drawing.Size(283, 214) + Me.CLBModuleList.Sorted = True + Me.CLBModuleList.TabIndex = 156 + ' + 'TabPage18 + ' + Me.TabPage18.BackColor = System.Drawing.Color.Silver + Me.TabPage18.Controls.Add(Me.CLBLinkList) + Me.TabPage18.Location = New System.Drawing.Point(4, 22) + Me.TabPage18.Name = "TabPage18" + Me.TabPage18.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage18.Size = New System.Drawing.Size(291, 222) + Me.TabPage18.TabIndex = 6 + Me.TabPage18.Text = "Link" + ' + 'CLBLinkList + ' + Me.CLBLinkList.FormattingEnabled = True + Me.CLBLinkList.Location = New System.Drawing.Point(4, 4) + Me.CLBLinkList.Name = "CLBLinkList" + Me.CLBLinkList.Size = New System.Drawing.Size(283, 214) + Me.CLBLinkList.Sorted = True + Me.CLBLinkList.TabIndex = 156 + ' + 'TabPage19 + ' + Me.TabPage19.BackColor = System.Drawing.Color.Silver + Me.TabPage19.Controls.Add(Me.CLBEndList) + Me.TabPage19.Location = New System.Drawing.Point(4, 22) + Me.TabPage19.Name = "TabPage19" + Me.TabPage19.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage19.Size = New System.Drawing.Size(291, 222) + Me.TabPage19.TabIndex = 7 + Me.TabPage19.Text = "End" + ' + 'CLBEndList + ' + Me.CLBEndList.FormattingEnabled = True + Me.CLBEndList.Location = New System.Drawing.Point(4, 4) + Me.CLBEndList.Name = "CLBEndList" + Me.CLBEndList.Size = New System.Drawing.Size(283, 214) + Me.CLBEndList.Sorted = True + Me.CLBEndList.TabIndex = 156 + ' + 'GroupBox42 + ' + Me.GroupBox42.Controls.Add(Me.RTBScriptDesc) + Me.GroupBox42.Location = New System.Drawing.Point(314, 53) + Me.GroupBox42.Name = "GroupBox42" + Me.GroupBox42.Size = New System.Drawing.Size(385, 110) + Me.GroupBox42.TabIndex = 153 + Me.GroupBox42.TabStop = False + Me.GroupBox42.Text = "Description" + ' + 'RTBScriptDesc + ' + Me.RTBScriptDesc.Location = New System.Drawing.Point(6, 16) + Me.RTBScriptDesc.Name = "RTBScriptDesc" + Me.RTBScriptDesc.ReadOnly = True + Me.RTBScriptDesc.Size = New System.Drawing.Size(373, 85) + Me.RTBScriptDesc.TabIndex = 0 + Me.RTBScriptDesc.Text = "" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.LightGray + Me.PictureBox1.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox1.Location = New System.Drawing.Point(9, 6) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(160, 19) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox1.TabIndex = 151 + Me.PictureBox1.TabStop = False + ' + 'GroupBox43 + ' + Me.GroupBox43.BackColor = System.Drawing.Color.LightGray + Me.GroupBox43.Controls.Add(Me.Label98) + Me.GroupBox43.ForeColor = System.Drawing.Color.Black + Me.GroupBox43.Location = New System.Drawing.Point(7, 331) + Me.GroupBox43.Name = "GroupBox43" + Me.GroupBox43.Size = New System.Drawing.Size(692, 92) + Me.GroupBox43.TabIndex = 65 + Me.GroupBox43.TabStop = False + Me.GroupBox43.Text = "Description" + ' + 'Label98 + ' + Me.Label98.BackColor = System.Drawing.Color.Transparent + Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label98.ForeColor = System.Drawing.Color.Black + Me.Label98.Location = New System.Drawing.Point(6, 16) + Me.Label98.Name = "Label98" + Me.Label98.Size = New System.Drawing.Size(680, 73) + Me.Label98.TabIndex = 62 + Me.Label98.Text = resources.GetString("Label98.Text") + Me.Label98.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label104 + ' + Me.Label104.BackColor = System.Drawing.Color.Transparent + Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label104.ForeColor = System.Drawing.Color.Black + Me.Label104.Location = New System.Drawing.Point(7, 6) + Me.Label104.Name = "Label104" + Me.Label104.Size = New System.Drawing.Size(692, 21) + Me.Label104.TabIndex = 49 + Me.Label104.Text = "Script Selection" + Me.Label104.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage7 + ' + Me.TabPage7.BackColor = System.Drawing.Color.Silver + Me.TabPage7.Controls.Add(Me.TabControl4) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage7.Size = New System.Drawing.Size(720, 448) + Me.TabPage7.TabIndex = 11 + Me.TabPage7.Text = "Images" + ' + 'TabControl4 + ' + Me.TabControl4.Controls.Add(Me.TpImagesUrlFiles) + Me.TabControl4.Controls.Add(Me.TpImagesGenre) + Me.TabControl4.Location = New System.Drawing.Point(6, 6) + Me.TabControl4.Name = "TabControl4" + Me.TabControl4.SelectedIndex = 0 + Me.TabControl4.Size = New System.Drawing.Size(708, 437) + Me.TabControl4.TabIndex = 154 + ' + 'TpImagesUrlFiles + ' + Me.TpImagesUrlFiles.BackColor = System.Drawing.Color.LightGray + Me.TpImagesUrlFiles.Controls.Add(Me.CBURLPreview) + Me.TpImagesUrlFiles.Controls.Add(Me.GroupBox66) + Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesAll) + Me.TpImagesUrlFiles.Controls.Add(Me.BTNURLFilesNone) + Me.TpImagesUrlFiles.Controls.Add(Me.URLFileList) + Me.TpImagesUrlFiles.Location = New System.Drawing.Point(4, 22) + Me.TpImagesUrlFiles.Name = "TpImagesUrlFiles" + Me.TpImagesUrlFiles.Padding = New System.Windows.Forms.Padding(3) + Me.TpImagesUrlFiles.Size = New System.Drawing.Size(700, 411) + Me.TpImagesUrlFiles.TabIndex = 0 + Me.TpImagesUrlFiles.Text = "URL Files" + ' + 'CBURLPreview + ' + Me.CBURLPreview.AutoSize = True + Me.CBURLPreview.Checked = True + Me.CBURLPreview.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBURLPreview.Location = New System.Drawing.Point(344, 323) + Me.CBURLPreview.Name = "CBURLPreview" + Me.CBURLPreview.Size = New System.Drawing.Size(240, 17) + Me.CBURLPreview.TabIndex = 163 + Me.CBURLPreview.Text = "Show Previews When A URL File is Selected" + Me.CBURLPreview.UseVisualStyleBackColor = True + ' + 'GroupBox66 + ' + Me.GroupBox66.Controls.Add(Me.PBURLPreview) + Me.GroupBox66.Location = New System.Drawing.Point(344, 3) + Me.GroupBox66.Name = "GroupBox66" + Me.GroupBox66.Size = New System.Drawing.Size(350, 309) + Me.GroupBox66.TabIndex = 162 + Me.GroupBox66.TabStop = False + Me.GroupBox66.Text = "Example Preview" + ' + 'PBURLPreview + ' + Me.PBURLPreview.BackColor = System.Drawing.Color.Black + Me.PBURLPreview.Location = New System.Drawing.Point(6, 19) + Me.PBURLPreview.Name = "PBURLPreview" + Me.PBURLPreview.Size = New System.Drawing.Size(338, 284) + Me.PBURLPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PBURLPreview.TabIndex = 0 + Me.PBURLPreview.TabStop = False + ' + 'BTNURLFilesAll + ' + Me.BTNURLFilesAll.Location = New System.Drawing.Point(344, 348) + Me.BTNURLFilesAll.Name = "BTNURLFilesAll" + Me.BTNURLFilesAll.Size = New System.Drawing.Size(75, 23) + Me.BTNURLFilesAll.TabIndex = 160 + Me.BTNURLFilesAll.Text = "Select All" + Me.BTNURLFilesAll.UseVisualStyleBackColor = True + ' + 'BTNURLFilesNone + ' + Me.BTNURLFilesNone.Location = New System.Drawing.Point(344, 380) + Me.BTNURLFilesNone.Name = "BTNURLFilesNone" + Me.BTNURLFilesNone.Size = New System.Drawing.Size(75, 23) + Me.BTNURLFilesNone.TabIndex = 161 + Me.BTNURLFilesNone.Text = "Select None" + Me.BTNURLFilesNone.UseVisualStyleBackColor = True + ' + 'URLFileList + ' + Me.URLFileList.CheckOnClick = True + Me.URLFileList.FormattingEnabled = True + Me.URLFileList.Location = New System.Drawing.Point(6, 9) + Me.URLFileList.Name = "URLFileList" + Me.URLFileList.Size = New System.Drawing.Size(332, 394) + Me.URLFileList.Sorted = True + Me.URLFileList.TabIndex = 154 + ' + 'TpImagesGenre + ' + Me.TpImagesGenre.BackColor = System.Drawing.Color.LightGray + Me.TpImagesGenre.Controls.Add(Me.GrbImageUrlFiles) + Me.TpImagesGenre.Controls.Add(Me.GbxImagesGenre) + Me.TpImagesGenre.Location = New System.Drawing.Point(4, 22) + Me.TpImagesGenre.Name = "TpImagesGenre" + Me.TpImagesGenre.Padding = New System.Windows.Forms.Padding(3) + Me.TpImagesGenre.Size = New System.Drawing.Size(700, 411) + Me.TpImagesGenre.TabIndex = 1 + Me.TpImagesGenre.Text = "Genre Images" + ' + 'GrbImageUrlFiles + ' + Me.GrbImageUrlFiles.Controls.Add(Me.TlpImageUrls) + Me.GrbImageUrlFiles.Location = New System.Drawing.Point(383, 8) + Me.GrbImageUrlFiles.Name = "GrbImageUrlFiles" + Me.GrbImageUrlFiles.Size = New System.Drawing.Size(311, 400) + Me.GrbImageUrlFiles.TabIndex = 1 + Me.GrbImageUrlFiles.TabStop = False + Me.GrbImageUrlFiles.Text = "URL Files" + ' + 'TlpImageUrls + ' + Me.TlpImageUrls.BackColor = System.Drawing.Color.LightGray + Me.TlpImageUrls.ColumnCount = 3 + Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TlpImageUrls.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlButt, 1, 13) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBoobs, 1, 12) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlBlowjob, 1, 4) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlCaptions, 1, 10) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHentai, 1, 7) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGay, 1, 8) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlGeneral, 1, 11) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlHardcore, 1, 0) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLesbian, 1, 2) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlLezdom, 1, 6) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlMaledom, 1, 9) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlFemdom, 1, 5) + Me.TlpImageUrls.Controls.Add(Me.BtnImageUrlSoftcore, 1, 1) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHardcore, 0, 0) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlButts, 0, 13) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlMaledom, 0, 9) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGay, 0, 8) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlSoftcore, 0, 1) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBoobs, 0, 12) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLesbian, 0, 2) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlBlowjob, 0, 4) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlCaptions, 0, 10) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlGeneral, 0, 11) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlFemdom, 0, 5) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlHentai, 0, 7) + Me.TlpImageUrls.Controls.Add(Me.ChbImageUrlLezdom, 0, 6) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBlowjob, 2, 4) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlSoftcore, 2, 1) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLezdom, 2, 6) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlFemdom, 2, 5) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHardcore, 2, 0) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlHentai, 2, 7) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGay, 2, 8) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlLesbian, 2, 2) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlMaledom, 2, 9) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlCaptions, 2, 10) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlGeneral, 2, 11) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlBoobs, 2, 12) + Me.TlpImageUrls.Controls.Add(Me.TxbImageUrlButts, 2, 13) + Me.TlpImageUrls.Dock = System.Windows.Forms.DockStyle.Fill + Me.TlpImageUrls.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize + Me.TlpImageUrls.Location = New System.Drawing.Point(3, 16) + Me.TlpImageUrls.Name = "TlpImageUrls" + Me.TlpImageUrls.RowCount = 14 + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TlpImageUrls.Size = New System.Drawing.Size(305, 381) + Me.TlpImageUrls.TabIndex = 0 + ' + 'BtnImageUrlButt + ' + Me.BtnImageUrlButt.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlButt.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) + Me.BtnImageUrlButt.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlButt.Location = New System.Drawing.Point(76, 348) + Me.BtnImageUrlButt.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlButt.Name = "BtnImageUrlButt" + Me.BtnImageUrlButt.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlButt.TabIndex = 38 + Me.BtnImageUrlButt.Text = "1" + Me.BtnImageUrlButt.UseVisualStyleBackColor = False + ' + 'BtnImageUrlBoobs + ' + Me.BtnImageUrlBoobs.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlBoobs.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold) + Me.BtnImageUrlBoobs.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlBoobs.Location = New System.Drawing.Point(76, 319) + Me.BtnImageUrlBoobs.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlBoobs.Name = "BtnImageUrlBoobs" + Me.BtnImageUrlBoobs.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlBoobs.TabIndex = 35 + Me.BtnImageUrlBoobs.Text = "1" + Me.BtnImageUrlBoobs.UseVisualStyleBackColor = False + ' + 'BtnImageUrlBlowjob + ' + Me.BtnImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlBlowjob.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlBlowjob.Location = New System.Drawing.Point(76, 87) + Me.BtnImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlBlowjob.Name = "BtnImageUrlBlowjob" + Me.BtnImageUrlBlowjob.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlBlowjob.TabIndex = 11 + Me.BtnImageUrlBlowjob.Text = "1" + Me.BtnImageUrlBlowjob.UseVisualStyleBackColor = False + ' + 'BtnImageUrlCaptions + ' + Me.BtnImageUrlCaptions.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlCaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlCaptions.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlCaptions.Location = New System.Drawing.Point(76, 261) + Me.BtnImageUrlCaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlCaptions.Name = "BtnImageUrlCaptions" + Me.BtnImageUrlCaptions.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlCaptions.TabIndex = 29 + Me.BtnImageUrlCaptions.Text = "1" + Me.BtnImageUrlCaptions.UseVisualStyleBackColor = False + ' + 'BtnImageUrlHentai + ' + Me.BtnImageUrlHentai.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlHentai.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlHentai.Location = New System.Drawing.Point(76, 174) + Me.BtnImageUrlHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlHentai.Name = "BtnImageUrlHentai" + Me.BtnImageUrlHentai.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlHentai.TabIndex = 20 + Me.BtnImageUrlHentai.Text = "1" + Me.BtnImageUrlHentai.UseVisualStyleBackColor = False + ' + 'BtnImageUrlGay + ' + Me.BtnImageUrlGay.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlGay.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlGay.Location = New System.Drawing.Point(76, 203) + Me.BtnImageUrlGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlGay.Name = "BtnImageUrlGay" + Me.BtnImageUrlGay.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlGay.TabIndex = 23 + Me.BtnImageUrlGay.Text = "1" + Me.BtnImageUrlGay.UseVisualStyleBackColor = False + ' + 'BtnImageUrlGeneral + ' + Me.BtnImageUrlGeneral.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlGeneral.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlGeneral.Location = New System.Drawing.Point(76, 290) + Me.BtnImageUrlGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlGeneral.Name = "BtnImageUrlGeneral" + Me.BtnImageUrlGeneral.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlGeneral.TabIndex = 32 + Me.BtnImageUrlGeneral.Text = "1" + Me.BtnImageUrlGeneral.UseVisualStyleBackColor = False + ' + 'BtnImageUrlHardcore + ' + Me.BtnImageUrlHardcore.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlHardcore.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlHardcore.Location = New System.Drawing.Point(76, 0) + Me.BtnImageUrlHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlHardcore.Name = "BtnImageUrlHardcore" + Me.BtnImageUrlHardcore.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlHardcore.TabIndex = 1 + Me.BtnImageUrlHardcore.Text = "1" + Me.BtnImageUrlHardcore.UseVisualStyleBackColor = False + ' + 'BtnImageUrlLesbian + ' + Me.BtnImageUrlLesbian.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlLesbian.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlLesbian.Location = New System.Drawing.Point(76, 58) + Me.BtnImageUrlLesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlLesbian.Name = "BtnImageUrlLesbian" + Me.BtnImageUrlLesbian.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlLesbian.TabIndex = 8 + Me.BtnImageUrlLesbian.Text = "1" + Me.BtnImageUrlLesbian.UseVisualStyleBackColor = False + ' + 'BtnImageUrlLezdom + ' + Me.BtnImageUrlLezdom.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlLezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlLezdom.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlLezdom.Location = New System.Drawing.Point(76, 145) + Me.BtnImageUrlLezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlLezdom.Name = "BtnImageUrlLezdom" + Me.BtnImageUrlLezdom.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlLezdom.TabIndex = 17 + Me.BtnImageUrlLezdom.Text = "1" + Me.BtnImageUrlLezdom.UseVisualStyleBackColor = False + ' + 'BtnImageUrlMaledom + ' + Me.BtnImageUrlMaledom.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlMaledom.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlMaledom.Location = New System.Drawing.Point(76, 232) + Me.BtnImageUrlMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlMaledom.Name = "BtnImageUrlMaledom" + Me.BtnImageUrlMaledom.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlMaledom.TabIndex = 26 + Me.BtnImageUrlMaledom.Text = "1" + Me.BtnImageUrlMaledom.UseVisualStyleBackColor = False + ' + 'BtnImageUrlFemdom + ' + Me.BtnImageUrlFemdom.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlFemdom.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlFemdom.Location = New System.Drawing.Point(76, 116) + Me.BtnImageUrlFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlFemdom.Name = "BtnImageUrlFemdom" + Me.BtnImageUrlFemdom.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlFemdom.TabIndex = 14 + Me.BtnImageUrlFemdom.Text = "1" + Me.BtnImageUrlFemdom.UseVisualStyleBackColor = False + ' + 'BtnImageUrlSoftcore + ' + Me.BtnImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray + Me.BtnImageUrlSoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BtnImageUrlSoftcore.ForeColor = System.Drawing.Color.Black + Me.BtnImageUrlSoftcore.Location = New System.Drawing.Point(76, 29) + Me.BtnImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BtnImageUrlSoftcore.Name = "BtnImageUrlSoftcore" + Me.BtnImageUrlSoftcore.Size = New System.Drawing.Size(34, 28) + Me.BtnImageUrlSoftcore.TabIndex = 5 + Me.BtnImageUrlSoftcore.Text = "1" + Me.BtnImageUrlSoftcore.UseVisualStyleBackColor = False + ' + 'ChbImageUrlHardcore + ' + Me.ChbImageUrlHardcore.AutoSize = True + Me.ChbImageUrlHardcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHardcoreEnabled + Me.ChbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlHardcore.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlHardcore.Location = New System.Drawing.Point(3, 3) + Me.ChbImageUrlHardcore.Name = "ChbImageUrlHardcore" + Me.ChbImageUrlHardcore.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlHardcore.TabIndex = 0 + Me.ChbImageUrlHardcore.Text = "Hardcore" + Me.ChbImageUrlHardcore.UseVisualStyleBackColor = True + ' + 'ChbImageUrlButts + ' + Me.ChbImageUrlButts.AutoSize = True + Me.ChbImageUrlButts.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileButtEnabled + Me.ChbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileButtEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlButts.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlButts.Location = New System.Drawing.Point(3, 351) + Me.ChbImageUrlButts.Name = "ChbImageUrlButts" + Me.ChbImageUrlButts.Size = New System.Drawing.Size(70, 27) + Me.ChbImageUrlButts.TabIndex = 37 + Me.ChbImageUrlButts.Text = "Butts" + Me.ChbImageUrlButts.UseVisualStyleBackColor = True + ' + 'ChbImageUrlMaledom + ' + Me.ChbImageUrlMaledom.AutoSize = True + Me.ChbImageUrlMaledom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileMaledomEnabled + Me.ChbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlMaledom.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlMaledom.Location = New System.Drawing.Point(3, 235) + Me.ChbImageUrlMaledom.Name = "ChbImageUrlMaledom" + Me.ChbImageUrlMaledom.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlMaledom.TabIndex = 25 + Me.ChbImageUrlMaledom.Text = "Maledom" + Me.ChbImageUrlMaledom.UseVisualStyleBackColor = True + ' + 'ChbImageUrlGay + ' + Me.ChbImageUrlGay.AutoSize = True + Me.ChbImageUrlGay.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGayEnabled + Me.ChbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGayEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlGay.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlGay.Location = New System.Drawing.Point(3, 206) + Me.ChbImageUrlGay.Name = "ChbImageUrlGay" + Me.ChbImageUrlGay.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlGay.TabIndex = 22 + Me.ChbImageUrlGay.Text = "Gay" + Me.ChbImageUrlGay.UseVisualStyleBackColor = True + ' + 'ChbImageUrlSoftcore + ' + Me.ChbImageUrlSoftcore.AutoSize = True + Me.ChbImageUrlSoftcore.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcoreEnabled + Me.ChbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcoreEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlSoftcore.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlSoftcore.Location = New System.Drawing.Point(3, 32) + Me.ChbImageUrlSoftcore.Name = "ChbImageUrlSoftcore" + Me.ChbImageUrlSoftcore.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlSoftcore.TabIndex = 4 + Me.ChbImageUrlSoftcore.Text = "Softcore" + Me.ChbImageUrlSoftcore.UseVisualStyleBackColor = True + ' + 'ChbImageUrlBoobs + ' + Me.ChbImageUrlBoobs.AutoSize = True + Me.ChbImageUrlBoobs.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBoobsEnabled + Me.ChbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlBoobs.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlBoobs.Location = New System.Drawing.Point(3, 322) + Me.ChbImageUrlBoobs.Name = "ChbImageUrlBoobs" + Me.ChbImageUrlBoobs.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlBoobs.TabIndex = 34 + Me.ChbImageUrlBoobs.Text = "Boobs" + Me.ChbImageUrlBoobs.UseVisualStyleBackColor = True + ' + 'ChbImageUrlLesbian + ' + Me.ChbImageUrlLesbian.AutoSize = True + Me.ChbImageUrlLesbian.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLesbianEnabled + Me.ChbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbianEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlLesbian.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlLesbian.Location = New System.Drawing.Point(3, 61) + Me.ChbImageUrlLesbian.Name = "ChbImageUrlLesbian" + Me.ChbImageUrlLesbian.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlLesbian.TabIndex = 7 + Me.ChbImageUrlLesbian.Text = "Lesbian" + Me.ChbImageUrlLesbian.UseVisualStyleBackColor = True + ' + 'ChbImageUrlBlowjob + ' + Me.ChbImageUrlBlowjob.AutoSize = True + Me.ChbImageUrlBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjobEnabled + Me.ChbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjobEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlBlowjob.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlBlowjob.Location = New System.Drawing.Point(3, 90) + Me.ChbImageUrlBlowjob.Name = "ChbImageUrlBlowjob" + Me.ChbImageUrlBlowjob.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlBlowjob.TabIndex = 10 + Me.ChbImageUrlBlowjob.Text = "Blowjob" + Me.ChbImageUrlBlowjob.UseVisualStyleBackColor = True + ' + 'ChbImageUrlCaptions + ' + Me.ChbImageUrlCaptions.AutoSize = True + Me.ChbImageUrlCaptions.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileCaptionsEnabled + Me.ChbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptionsEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlCaptions.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlCaptions.Location = New System.Drawing.Point(3, 264) + Me.ChbImageUrlCaptions.Name = "ChbImageUrlCaptions" + Me.ChbImageUrlCaptions.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlCaptions.TabIndex = 28 + Me.ChbImageUrlCaptions.Text = "Captions" + Me.ChbImageUrlCaptions.UseVisualStyleBackColor = True + ' + 'ChbImageUrlGeneral + ' + Me.ChbImageUrlGeneral.AutoSize = True + Me.ChbImageUrlGeneral.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileGeneralEnabled + Me.ChbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneralEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlGeneral.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlGeneral.Location = New System.Drawing.Point(3, 293) + Me.ChbImageUrlGeneral.Name = "ChbImageUrlGeneral" + Me.ChbImageUrlGeneral.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlGeneral.TabIndex = 31 + Me.ChbImageUrlGeneral.Text = "General" + Me.ChbImageUrlGeneral.UseVisualStyleBackColor = True + ' + 'ChbImageUrlFemdom + ' + Me.ChbImageUrlFemdom.AutoSize = True + Me.ChbImageUrlFemdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileFemdomEnabled + Me.ChbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlFemdom.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlFemdom.Location = New System.Drawing.Point(3, 119) + Me.ChbImageUrlFemdom.Name = "ChbImageUrlFemdom" + Me.ChbImageUrlFemdom.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlFemdom.TabIndex = 13 + Me.ChbImageUrlFemdom.Text = "Femdom" + Me.ChbImageUrlFemdom.UseVisualStyleBackColor = True + ' + 'ChbImageUrlHentai + ' + Me.ChbImageUrlHentai.AutoSize = True + Me.ChbImageUrlHentai.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileHentaiEnabled + Me.ChbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileHentaiEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlHentai.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlHentai.Location = New System.Drawing.Point(3, 177) + Me.ChbImageUrlHentai.Name = "ChbImageUrlHentai" + Me.ChbImageUrlHentai.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlHentai.TabIndex = 19 + Me.ChbImageUrlHentai.Text = "Hentai" + Me.ChbImageUrlHentai.UseVisualStyleBackColor = True + ' + 'ChbImageUrlLezdom + ' + Me.ChbImageUrlLezdom.AutoSize = True + Me.ChbImageUrlLezdom.Checked = Global.Tease_AI.My.MySettings.Default.UrlFileLezdomEnabled + Me.ChbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdomEnabled", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ChbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChbImageUrlLezdom.ForeColor = System.Drawing.Color.Black + Me.ChbImageUrlLezdom.Location = New System.Drawing.Point(3, 148) + Me.ChbImageUrlLezdom.Name = "ChbImageUrlLezdom" + Me.ChbImageUrlLezdom.Size = New System.Drawing.Size(70, 23) + Me.ChbImageUrlLezdom.TabIndex = 16 + Me.ChbImageUrlLezdom.Text = "Lezdom" + Me.ChbImageUrlLezdom.UseVisualStyleBackColor = True + ' + 'TxbImageUrlBlowjob + ' + Me.TxbImageUrlBlowjob.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlBlowjob.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlBlowjob.Location = New System.Drawing.Point(115, 92) + Me.TxbImageUrlBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlBlowjob.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlBlowjob.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBlowjob.Name = "TxbImageUrlBlowjob" + Me.TxbImageUrlBlowjob.ReadOnly = True + Me.TxbImageUrlBlowjob.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBlowjob.TabIndex = 12 + Me.TxbImageUrlBlowjob.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBlowjob + ' + 'TxbImageUrlSoftcore + ' + Me.TxbImageUrlSoftcore.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlSoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlSoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlSoftcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlSoftcore.Location = New System.Drawing.Point(115, 34) + Me.TxbImageUrlSoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlSoftcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlSoftcore.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlSoftcore.Name = "TxbImageUrlSoftcore" + Me.TxbImageUrlSoftcore.ReadOnly = True + Me.TxbImageUrlSoftcore.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlSoftcore.TabIndex = 6 + Me.TxbImageUrlSoftcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileSoftcore + ' + 'TxbImageUrlLezdom + ' + Me.TxbImageUrlLezdom.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlLezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlLezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlLezdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlLezdom.Location = New System.Drawing.Point(115, 150) + Me.TxbImageUrlLezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlLezdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlLezdom.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLezdom.Name = "TxbImageUrlLezdom" + Me.TxbImageUrlLezdom.ReadOnly = True + Me.TxbImageUrlLezdom.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLezdom.TabIndex = 18 + Me.TxbImageUrlLezdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLezdom + ' + 'TxbImageUrlFemdom + ' + Me.TxbImageUrlFemdom.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlFemdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlFemdom.Location = New System.Drawing.Point(115, 121) + Me.TxbImageUrlFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlFemdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlFemdom.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlFemdom.Name = "TxbImageUrlFemdom" + Me.TxbImageUrlFemdom.ReadOnly = True + Me.TxbImageUrlFemdom.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlFemdom.TabIndex = 15 + Me.TxbImageUrlFemdom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileFemdom + ' + 'TxbImageUrlHardcore + ' + Me.TxbImageUrlHardcore.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlHardcore.Location = New System.Drawing.Point(115, 5) + Me.TxbImageUrlHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlHardcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlHardcore.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHardcore.Name = "TxbImageUrlHardcore" + Me.TxbImageUrlHardcore.ReadOnly = True + Me.TxbImageUrlHardcore.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHardcore.TabIndex = 3 + Me.TxbImageUrlHardcore.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHardcore + ' + 'TxbImageUrlHentai + ' + Me.TxbImageUrlHentai.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlHentai.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlHentai.Location = New System.Drawing.Point(115, 179) + Me.TxbImageUrlHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlHentai.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlHentai.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHentai.Name = "TxbImageUrlHentai" + Me.TxbImageUrlHentai.ReadOnly = True + Me.TxbImageUrlHentai.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlHentai.TabIndex = 21 + Me.TxbImageUrlHentai.Text = Global.Tease_AI.My.MySettings.Default.UrlFileHentai + ' + 'TxbImageUrlGay + ' + Me.TxbImageUrlGay.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlGay.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlGay.Location = New System.Drawing.Point(115, 208) + Me.TxbImageUrlGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlGay.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlGay.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGay.Name = "TxbImageUrlGay" + Me.TxbImageUrlGay.ReadOnly = True + Me.TxbImageUrlGay.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGay.TabIndex = 24 + Me.TxbImageUrlGay.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGay + ' + 'TxbImageUrlLesbian + ' + Me.TxbImageUrlLesbian.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlLesbian.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlLesbian.Location = New System.Drawing.Point(115, 63) + Me.TxbImageUrlLesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlLesbian.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlLesbian.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLesbian.Name = "TxbImageUrlLesbian" + Me.TxbImageUrlLesbian.ReadOnly = True + Me.TxbImageUrlLesbian.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlLesbian.TabIndex = 9 + Me.TxbImageUrlLesbian.Text = Global.Tease_AI.My.MySettings.Default.UrlFileLesbian + ' + 'TxbImageUrlMaledom + ' + Me.TxbImageUrlMaledom.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlMaledom.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlMaledom.Location = New System.Drawing.Point(115, 237) + Me.TxbImageUrlMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlMaledom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlMaledom.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlMaledom.Name = "TxbImageUrlMaledom" + Me.TxbImageUrlMaledom.ReadOnly = True + Me.TxbImageUrlMaledom.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlMaledom.TabIndex = 27 + Me.TxbImageUrlMaledom.Text = Global.Tease_AI.My.MySettings.Default.UrlFileMaledom + ' + 'TxbImageUrlCaptions + ' + Me.TxbImageUrlCaptions.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlCaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlCaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileCaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlCaptions.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlCaptions.Location = New System.Drawing.Point(115, 266) + Me.TxbImageUrlCaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlCaptions.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlCaptions.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlCaptions.Name = "TxbImageUrlCaptions" + Me.TxbImageUrlCaptions.ReadOnly = True + Me.TxbImageUrlCaptions.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlCaptions.TabIndex = 30 + Me.TxbImageUrlCaptions.Text = Global.Tease_AI.My.MySettings.Default.UrlFileCaptions + ' + 'TxbImageUrlGeneral + ' + Me.TxbImageUrlGeneral.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlGeneral.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlGeneral.Location = New System.Drawing.Point(115, 295) + Me.TxbImageUrlGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlGeneral.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlGeneral.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGeneral.Name = "TxbImageUrlGeneral" + Me.TxbImageUrlGeneral.ReadOnly = True + Me.TxbImageUrlGeneral.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlGeneral.TabIndex = 33 + Me.TxbImageUrlGeneral.Text = Global.Tease_AI.My.MySettings.Default.UrlFileGeneral + ' + 'TxbImageUrlBoobs + ' + Me.TxbImageUrlBoobs.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlBoobs.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlBoobs.Location = New System.Drawing.Point(115, 324) + Me.TxbImageUrlBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlBoobs.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlBoobs.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBoobs.Name = "TxbImageUrlBoobs" + Me.TxbImageUrlBoobs.ReadOnly = True + Me.TxbImageUrlBoobs.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlBoobs.TabIndex = 36 + Me.TxbImageUrlBoobs.Text = Global.Tease_AI.My.MySettings.Default.UrlFileBoobs + ' + 'TxbImageUrlButts + ' + Me.TxbImageUrlButts.BackColor = System.Drawing.Color.LightGray + Me.TxbImageUrlButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImageUrlButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "UrlFileButt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbImageUrlButts.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImageUrlButts.Location = New System.Drawing.Point(115, 353) + Me.TxbImageUrlButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TxbImageUrlButts.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbImageUrlButts.MinimumSize = New System.Drawing.Size(182, 17) + Me.TxbImageUrlButts.Name = "TxbImageUrlButts" + Me.TxbImageUrlButts.ReadOnly = True + Me.TxbImageUrlButts.Size = New System.Drawing.Size(182, 17) + Me.TxbImageUrlButts.TabIndex = 39 + Me.TxbImageUrlButts.Text = Global.Tease_AI.My.MySettings.Default.UrlFileButt + ' + 'GbxImagesGenre + ' + Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) + Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) + Me.GbxImagesGenre.Name = "GbxImagesGenre" + Me.GbxImagesGenre.Size = New System.Drawing.Size(371, 400) + Me.GbxImagesGenre.TabIndex = 0 + Me.GbxImagesGenre.TabStop = False + Me.GbxImagesGenre.Text = "Local Images" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 4 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIHardcore, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIHardcore, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcoreSD, 3, 0) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHardcore, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcore, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.TbxISoftcore, 2, 1) + Me.TableLayoutPanel1.Controls.Add(Me.CBButtSubDir, 3, 12) + Me.TableLayoutPanel1.Controls.Add(Me.CBISoftcoreSD, 3, 1) + Me.TableLayoutPanel1.Controls.Add(Me.CBBoobSubDir, 3, 11) + Me.TableLayoutPanel1.Controls.Add(Me.CBILezdomSD, 3, 5) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneralSD, 3, 10) + Me.TableLayoutPanel1.Controls.Add(Me.CBILesbianSD, 3, 2) + Me.TableLayoutPanel1.Controls.Add(Me.CBICaptionsSD, 3, 9) + Me.TableLayoutPanel1.Controls.Add(Me.CBILesbian, 0, 2) + Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledomSD, 3, 8) + Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjob, 0, 3) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGaySD, 3, 7) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHentaiSD, 3, 6) + Me.TableLayoutPanel1.Controls.Add(Me.CBIBlowjobSD, 3, 3) + Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdomSD, 3, 4) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIButts, 2, 12) + Me.TableLayoutPanel1.Controls.Add(Me.CBIFemdom, 0, 4) + Me.TableLayoutPanel1.Controls.Add(Me.TbxILesbian, 2, 2) + Me.TableLayoutPanel1.Controls.Add(Me.BTNISoftcore, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.CBILezdom, 0, 5) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIBoobs, 2, 11) + Me.TableLayoutPanel1.Controls.Add(Me.CBIHentai, 0, 6) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIBlowjob, 2, 3) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGay, 0, 7) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIGeneral, 2, 10) + Me.TableLayoutPanel1.Controls.Add(Me.CBIMaledom, 0, 8) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIFemdom, 2, 4) + Me.TableLayoutPanel1.Controls.Add(Me.BTNILesbian, 1, 2) + Me.TableLayoutPanel1.Controls.Add(Me.TbxICaptions, 2, 9) + Me.TableLayoutPanel1.Controls.Add(Me.CBICaptions, 0, 9) + Me.TableLayoutPanel1.Controls.Add(Me.TbxILezdom, 2, 5) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIMaledom, 2, 8) + Me.TableLayoutPanel1.Controls.Add(Me.BTNButtPath, 1, 12) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIHentai, 2, 6) + Me.TableLayoutPanel1.Controls.Add(Me.CBIGeneral, 0, 10) + Me.TableLayoutPanel1.Controls.Add(Me.TbxIGay, 2, 7) + Me.TableLayoutPanel1.Controls.Add(Me.CBIBoobs, 0, 11) + Me.TableLayoutPanel1.Controls.Add(Me.CBIButts, 0, 12) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIBlowjob, 1, 3) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIFemdom, 1, 4) + Me.TableLayoutPanel1.Controls.Add(Me.BTNBoobPath, 1, 11) + Me.TableLayoutPanel1.Controls.Add(Me.BTNILezdom, 1, 5) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIHentai, 1, 6) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIGay, 1, 7) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIMaledom, 1, 8) + Me.TableLayoutPanel1.Controls.Add(Me.BTNICaptions, 1, 9) + Me.TableLayoutPanel1.Controls.Add(Me.BTNIGeneral, 1, 10) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize + Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 16) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 381) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'BTNIHardcore + ' + Me.BTNIHardcore.BackColor = System.Drawing.Color.LightGray + Me.BTNIHardcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIHardcore.ForeColor = System.Drawing.Color.Black + Me.BTNIHardcore.Location = New System.Drawing.Point(76, 0) + Me.BTNIHardcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIHardcore.Name = "BTNIHardcore" + Me.BTNIHardcore.Size = New System.Drawing.Size(34, 28) + Me.BTNIHardcore.TabIndex = 1 + Me.BTNIHardcore.Text = "1" + Me.BTNIHardcore.UseVisualStyleBackColor = False + ' + 'TbxIHardcore + ' + Me.TbxIHardcore.BackColor = System.Drawing.Color.LightGray + Me.TbxIHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIHardcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIHardcore.ForeColor = System.Drawing.Color.Black + Me.TbxIHardcore.Location = New System.Drawing.Point(115, 5) + Me.TbxIHardcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIHardcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIHardcore.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIHardcore.Name = "TbxIHardcore" + Me.TbxIHardcore.ReadOnly = True + Me.TbxIHardcore.Size = New System.Drawing.Size(217, 17) + Me.TbxIHardcore.TabIndex = 2 + Me.TbxIHardcore.Text = Global.Tease_AI.My.MySettings.Default.IHardcore + ' + 'CBIHardcoreSD + ' + Me.CBIHardcoreSD.AutoSize = True + Me.CBIHardcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.IHardcoreSD + Me.CBIHardcoreSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIHardcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHardcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHardcoreSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHardcoreSD.ForeColor = System.Drawing.Color.Black + Me.CBIHardcoreSD.Location = New System.Drawing.Point(343, 3) + Me.CBIHardcoreSD.Name = "CBIHardcoreSD" + Me.CBIHardcoreSD.Size = New System.Drawing.Size(19, 23) + Me.CBIHardcoreSD.TabIndex = 3 + Me.CBIHardcoreSD.UseVisualStyleBackColor = True + ' + 'CBIHardcore + ' + Me.CBIHardcore.AutoSize = True + Me.CBIHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBIHardcore + Me.CBIHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHardcore.ForeColor = System.Drawing.Color.Black + Me.CBIHardcore.Location = New System.Drawing.Point(3, 3) + Me.CBIHardcore.Name = "CBIHardcore" + Me.CBIHardcore.Size = New System.Drawing.Size(70, 23) + Me.CBIHardcore.TabIndex = 0 + Me.CBIHardcore.Text = "Hardcore" + Me.CBIHardcore.UseVisualStyleBackColor = True + ' + 'CBISoftcore + ' + Me.CBISoftcore.AutoSize = True + Me.CBISoftcore.Checked = Global.Tease_AI.My.MySettings.Default.CBISoftcore + Me.CBISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBISoftcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBISoftcore.ForeColor = System.Drawing.Color.Black + Me.CBISoftcore.Location = New System.Drawing.Point(3, 32) + Me.CBISoftcore.Name = "CBISoftcore" + Me.CBISoftcore.Size = New System.Drawing.Size(70, 23) + Me.CBISoftcore.TabIndex = 4 + Me.CBISoftcore.Text = "Softcore" + Me.CBISoftcore.UseVisualStyleBackColor = True + ' + 'TbxISoftcore + ' + Me.TbxISoftcore.BackColor = System.Drawing.Color.LightGray + Me.TbxISoftcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxISoftcore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ISoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxISoftcore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxISoftcore.ForeColor = System.Drawing.Color.Black + Me.TbxISoftcore.Location = New System.Drawing.Point(115, 34) + Me.TbxISoftcore.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxISoftcore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxISoftcore.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxISoftcore.Name = "TbxISoftcore" + Me.TbxISoftcore.ReadOnly = True + Me.TbxISoftcore.Size = New System.Drawing.Size(217, 17) + Me.TbxISoftcore.TabIndex = 6 + Me.TbxISoftcore.Text = Global.Tease_AI.My.MySettings.Default.ISoftcore + ' + 'CBButtSubDir + ' + Me.CBButtSubDir.AutoSize = True + Me.CBButtSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBButtSubDir + Me.CBButtSubDir.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBButtSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBButtSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBButtSubDir.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBButtSubDir.ForeColor = System.Drawing.Color.Black + Me.CBButtSubDir.Location = New System.Drawing.Point(343, 351) + Me.CBButtSubDir.Name = "CBButtSubDir" + Me.CBButtSubDir.Size = New System.Drawing.Size(19, 27) + Me.CBButtSubDir.TabIndex = 51 + Me.CBButtSubDir.UseVisualStyleBackColor = True + ' + 'CBISoftcoreSD + ' + Me.CBISoftcoreSD.AutoSize = True + Me.CBISoftcoreSD.Checked = Global.Tease_AI.My.MySettings.Default.ISoftcoreSD + Me.CBISoftcoreSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBISoftcoreSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ISoftcoreSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBISoftcoreSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBISoftcoreSD.ForeColor = System.Drawing.Color.Black + Me.CBISoftcoreSD.Location = New System.Drawing.Point(343, 32) + Me.CBISoftcoreSD.Name = "CBISoftcoreSD" + Me.CBISoftcoreSD.Size = New System.Drawing.Size(19, 23) + Me.CBISoftcoreSD.TabIndex = 7 + Me.CBISoftcoreSD.UseVisualStyleBackColor = True + ' + 'CBBoobSubDir + ' + Me.CBBoobSubDir.AutoSize = True + Me.CBBoobSubDir.Checked = Global.Tease_AI.My.MySettings.Default.CBBoobSubDir + Me.CBBoobSubDir.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBBoobSubDir.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBoobSubDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBBoobSubDir.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBBoobSubDir.ForeColor = System.Drawing.Color.Black + Me.CBBoobSubDir.Location = New System.Drawing.Point(343, 322) + Me.CBBoobSubDir.Name = "CBBoobSubDir" + Me.CBBoobSubDir.Size = New System.Drawing.Size(19, 23) + Me.CBBoobSubDir.TabIndex = 47 + Me.CBBoobSubDir.UseVisualStyleBackColor = True + ' + 'CBILezdomSD + ' + Me.CBILezdomSD.AutoSize = True + Me.CBILezdomSD.Checked = Global.Tease_AI.My.MySettings.Default.ILezdomSD + Me.CBILezdomSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBILezdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILezdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILezdomSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILezdomSD.ForeColor = System.Drawing.Color.Black + Me.CBILezdomSD.Location = New System.Drawing.Point(343, 148) + Me.CBILezdomSD.Name = "CBILezdomSD" + Me.CBILezdomSD.Size = New System.Drawing.Size(19, 23) + Me.CBILezdomSD.TabIndex = 23 + Me.CBILezdomSD.UseVisualStyleBackColor = True + ' + 'CBIGeneralSD + ' + Me.CBIGeneralSD.AutoSize = True + Me.CBIGeneralSD.Checked = Global.Tease_AI.My.MySettings.Default.IGeneralSD + Me.CBIGeneralSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIGeneralSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGeneralSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGeneralSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGeneralSD.ForeColor = System.Drawing.Color.Black + Me.CBIGeneralSD.Location = New System.Drawing.Point(343, 293) + Me.CBIGeneralSD.Name = "CBIGeneralSD" + Me.CBIGeneralSD.Size = New System.Drawing.Size(19, 23) + Me.CBIGeneralSD.TabIndex = 43 + Me.CBIGeneralSD.UseVisualStyleBackColor = True + ' + 'CBILesbianSD + ' + Me.CBILesbianSD.AutoSize = True + Me.CBILesbianSD.Checked = Global.Tease_AI.My.MySettings.Default.ILesbianSD + Me.CBILesbianSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBILesbianSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ILesbianSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILesbianSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILesbianSD.ForeColor = System.Drawing.Color.Black + Me.CBILesbianSD.Location = New System.Drawing.Point(343, 61) + Me.CBILesbianSD.Name = "CBILesbianSD" + Me.CBILesbianSD.Size = New System.Drawing.Size(19, 23) + Me.CBILesbianSD.TabIndex = 11 + Me.CBILesbianSD.UseVisualStyleBackColor = True + ' + 'CBICaptionsSD + ' + Me.CBICaptionsSD.AutoSize = True + Me.CBICaptionsSD.Checked = Global.Tease_AI.My.MySettings.Default.ICaptionsSD + Me.CBICaptionsSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBICaptionsSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "ICaptionsSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBICaptionsSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBICaptionsSD.ForeColor = System.Drawing.Color.Black + Me.CBICaptionsSD.Location = New System.Drawing.Point(343, 264) + Me.CBICaptionsSD.Name = "CBICaptionsSD" + Me.CBICaptionsSD.Size = New System.Drawing.Size(19, 23) + Me.CBICaptionsSD.TabIndex = 39 + Me.CBICaptionsSD.UseVisualStyleBackColor = True + ' + 'CBILesbian + ' + Me.CBILesbian.AutoSize = True + Me.CBILesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBILesbian + Me.CBILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILesbian.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILesbian.ForeColor = System.Drawing.Color.Black + Me.CBILesbian.Location = New System.Drawing.Point(3, 61) + Me.CBILesbian.Name = "CBILesbian" + Me.CBILesbian.Size = New System.Drawing.Size(70, 23) + Me.CBILesbian.TabIndex = 8 + Me.CBILesbian.Text = "Lesbian" + Me.CBILesbian.UseVisualStyleBackColor = True + ' + 'CBIMaledomSD + ' + Me.CBIMaledomSD.AutoSize = True + Me.CBIMaledomSD.Checked = Global.Tease_AI.My.MySettings.Default.IMaledomSD + Me.CBIMaledomSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIMaledomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IMaledomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIMaledomSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIMaledomSD.ForeColor = System.Drawing.Color.Black + Me.CBIMaledomSD.Location = New System.Drawing.Point(343, 235) + Me.CBIMaledomSD.Name = "CBIMaledomSD" + Me.CBIMaledomSD.Size = New System.Drawing.Size(19, 23) + Me.CBIMaledomSD.TabIndex = 35 + Me.CBIMaledomSD.UseVisualStyleBackColor = True + ' + 'CBIBlowjob + ' + Me.CBIBlowjob.AutoSize = True + Me.CBIBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBIBlowjob + Me.CBIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIBlowjob.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIBlowjob.ForeColor = System.Drawing.Color.Black + Me.CBIBlowjob.Location = New System.Drawing.Point(3, 90) + Me.CBIBlowjob.Name = "CBIBlowjob" + Me.CBIBlowjob.Size = New System.Drawing.Size(70, 23) + Me.CBIBlowjob.TabIndex = 12 + Me.CBIBlowjob.Text = "Blowjob" + Me.CBIBlowjob.UseVisualStyleBackColor = True + ' + 'CBIGaySD + ' + Me.CBIGaySD.AutoSize = True + Me.CBIGaySD.Checked = Global.Tease_AI.My.MySettings.Default.IGaySD + Me.CBIGaySD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIGaySD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IGaySD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGaySD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGaySD.ForeColor = System.Drawing.Color.Black + Me.CBIGaySD.Location = New System.Drawing.Point(343, 206) + Me.CBIGaySD.Name = "CBIGaySD" + Me.CBIGaySD.Size = New System.Drawing.Size(19, 23) + Me.CBIGaySD.TabIndex = 31 + Me.CBIGaySD.UseVisualStyleBackColor = True + ' + 'CBIHentaiSD + ' + Me.CBIHentaiSD.AutoSize = True + Me.CBIHentaiSD.Checked = Global.Tease_AI.My.MySettings.Default.IHentaiSD + Me.CBIHentaiSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIHentaiSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IHentaiSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHentaiSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHentaiSD.ForeColor = System.Drawing.Color.Black + Me.CBIHentaiSD.Location = New System.Drawing.Point(343, 177) + Me.CBIHentaiSD.Name = "CBIHentaiSD" + Me.CBIHentaiSD.Size = New System.Drawing.Size(19, 23) + Me.CBIHentaiSD.TabIndex = 27 + Me.CBIHentaiSD.UseVisualStyleBackColor = True + ' + 'CBIBlowjobSD + ' + Me.CBIBlowjobSD.AutoSize = True + Me.CBIBlowjobSD.Checked = Global.Tease_AI.My.MySettings.Default.IBlowjobSD + Me.CBIBlowjobSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIBlowjobSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IBlowjobSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIBlowjobSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIBlowjobSD.ForeColor = System.Drawing.Color.Black + Me.CBIBlowjobSD.Location = New System.Drawing.Point(343, 90) + Me.CBIBlowjobSD.Name = "CBIBlowjobSD" + Me.CBIBlowjobSD.Size = New System.Drawing.Size(19, 23) + Me.CBIBlowjobSD.TabIndex = 15 + Me.CBIBlowjobSD.UseVisualStyleBackColor = True + ' + 'CBIFemdomSD + ' + Me.CBIFemdomSD.AutoSize = True + Me.CBIFemdomSD.Checked = Global.Tease_AI.My.MySettings.Default.IFemdomSD + Me.CBIFemdomSD.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIFemdomSD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "IFemdomSD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIFemdomSD.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIFemdomSD.ForeColor = System.Drawing.Color.Black + Me.CBIFemdomSD.Location = New System.Drawing.Point(343, 119) + Me.CBIFemdomSD.Name = "CBIFemdomSD" + Me.CBIFemdomSD.Size = New System.Drawing.Size(19, 23) + Me.CBIFemdomSD.TabIndex = 19 + Me.CBIFemdomSD.UseVisualStyleBackColor = True + ' + 'TbxIButts + ' + Me.TbxIButts.BackColor = System.Drawing.Color.LightGray + Me.TbxIButts.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIButts.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLButtPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIButts.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIButts.ForeColor = System.Drawing.Color.Black + Me.TbxIButts.Location = New System.Drawing.Point(115, 353) + Me.TbxIButts.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIButts.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIButts.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIButts.Name = "TbxIButts" + Me.TbxIButts.ReadOnly = True + Me.TbxIButts.Size = New System.Drawing.Size(217, 17) + Me.TbxIButts.TabIndex = 50 + Me.TbxIButts.Text = Global.Tease_AI.My.MySettings.Default.LBLButtPath + ' + 'CBIFemdom + ' + Me.CBIFemdom.AutoSize = True + Me.CBIFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBIFemdom + Me.CBIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIFemdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIFemdom.ForeColor = System.Drawing.Color.Black + Me.CBIFemdom.Location = New System.Drawing.Point(3, 119) + Me.CBIFemdom.Name = "CBIFemdom" + Me.CBIFemdom.Size = New System.Drawing.Size(70, 23) + Me.CBIFemdom.TabIndex = 16 + Me.CBIFemdom.Text = "Femdom" + Me.CBIFemdom.UseVisualStyleBackColor = True + ' + 'TbxILesbian + ' + Me.TbxILesbian.BackColor = System.Drawing.Color.LightGray + Me.TbxILesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxILesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxILesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxILesbian.ForeColor = System.Drawing.Color.Black + Me.TbxILesbian.Location = New System.Drawing.Point(115, 63) + Me.TbxILesbian.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxILesbian.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxILesbian.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxILesbian.Name = "TbxILesbian" + Me.TbxILesbian.ReadOnly = True + Me.TbxILesbian.Size = New System.Drawing.Size(217, 17) + Me.TbxILesbian.TabIndex = 10 + Me.TbxILesbian.Text = Global.Tease_AI.My.MySettings.Default.ILesbian + ' + 'BTNISoftcore + ' + Me.BTNISoftcore.BackColor = System.Drawing.Color.LightGray + Me.BTNISoftcore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNISoftcore.ForeColor = System.Drawing.Color.Black + Me.BTNISoftcore.Location = New System.Drawing.Point(76, 29) + Me.BTNISoftcore.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNISoftcore.Name = "BTNISoftcore" + Me.BTNISoftcore.Size = New System.Drawing.Size(34, 28) + Me.BTNISoftcore.TabIndex = 5 + Me.BTNISoftcore.Text = "1" + Me.BTNISoftcore.UseVisualStyleBackColor = False + ' + 'CBILezdom + ' + Me.CBILezdom.AutoSize = True + Me.CBILezdom.Checked = Global.Tease_AI.My.MySettings.Default.CBILezdom + Me.CBILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBILezdom.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBILezdom.ForeColor = System.Drawing.Color.Black + Me.CBILezdom.Location = New System.Drawing.Point(3, 148) + Me.CBILezdom.Name = "CBILezdom" + Me.CBILezdom.Size = New System.Drawing.Size(70, 23) + Me.CBILezdom.TabIndex = 20 + Me.CBILezdom.Text = "Lezdom" + Me.CBILezdom.UseVisualStyleBackColor = True + ' + 'TbxIBoobs + ' + Me.TbxIBoobs.BackColor = System.Drawing.Color.LightGray + Me.TbxIBoobs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LBLBoobPath", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIBoobs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIBoobs.ForeColor = System.Drawing.Color.Black + Me.TbxIBoobs.Location = New System.Drawing.Point(115, 324) + Me.TbxIBoobs.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIBoobs.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIBoobs.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIBoobs.Name = "TbxIBoobs" + Me.TbxIBoobs.ReadOnly = True + Me.TbxIBoobs.Size = New System.Drawing.Size(217, 17) + Me.TbxIBoobs.TabIndex = 46 + Me.TbxIBoobs.Text = Global.Tease_AI.My.MySettings.Default.LBLBoobPath + ' + 'CBIHentai + ' + Me.CBIHentai.AutoSize = True + Me.CBIHentai.Checked = Global.Tease_AI.My.MySettings.Default.CBIHentai + Me.CBIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIHentai.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIHentai.ForeColor = System.Drawing.Color.Black + Me.CBIHentai.Location = New System.Drawing.Point(3, 177) + Me.CBIHentai.Name = "CBIHentai" + Me.CBIHentai.Size = New System.Drawing.Size(70, 23) + Me.CBIHentai.TabIndex = 24 + Me.CBIHentai.Text = "Hentai" + Me.CBIHentai.UseVisualStyleBackColor = True + ' + 'TbxIBlowjob + ' + Me.TbxIBlowjob.BackColor = System.Drawing.Color.LightGray + Me.TbxIBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIBlowjob.ForeColor = System.Drawing.Color.Black + Me.TbxIBlowjob.Location = New System.Drawing.Point(115, 92) + Me.TbxIBlowjob.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIBlowjob.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIBlowjob.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIBlowjob.Name = "TbxIBlowjob" + Me.TbxIBlowjob.ReadOnly = True + Me.TbxIBlowjob.Size = New System.Drawing.Size(217, 17) + Me.TbxIBlowjob.TabIndex = 14 + Me.TbxIBlowjob.Text = Global.Tease_AI.My.MySettings.Default.IBlowjob + ' + 'CBIGay + ' + Me.CBIGay.AutoSize = True + Me.CBIGay.Checked = Global.Tease_AI.My.MySettings.Default.CBIGay + Me.CBIGay.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGay.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGay.ForeColor = System.Drawing.Color.Black + Me.CBIGay.Location = New System.Drawing.Point(3, 206) + Me.CBIGay.Name = "CBIGay" + Me.CBIGay.Size = New System.Drawing.Size(70, 23) + Me.CBIGay.TabIndex = 28 + Me.CBIGay.Text = "Gay" + Me.CBIGay.UseVisualStyleBackColor = True + ' + 'TbxIGeneral + ' + Me.TbxIGeneral.BackColor = System.Drawing.Color.LightGray + Me.TbxIGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIGeneral.ForeColor = System.Drawing.Color.Black + Me.TbxIGeneral.Location = New System.Drawing.Point(115, 295) + Me.TbxIGeneral.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIGeneral.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIGeneral.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIGeneral.Name = "TbxIGeneral" + Me.TbxIGeneral.ReadOnly = True + Me.TbxIGeneral.Size = New System.Drawing.Size(217, 17) + Me.TbxIGeneral.TabIndex = 42 + Me.TbxIGeneral.Text = Global.Tease_AI.My.MySettings.Default.IGeneral + ' + 'CBIMaledom + ' + Me.CBIMaledom.AutoSize = True + Me.CBIMaledom.Checked = Global.Tease_AI.My.MySettings.Default.CBIMaledom + Me.CBIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIMaledom.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIMaledom.ForeColor = System.Drawing.Color.Black + Me.CBIMaledom.Location = New System.Drawing.Point(3, 235) + Me.CBIMaledom.Name = "CBIMaledom" + Me.CBIMaledom.Size = New System.Drawing.Size(70, 23) + Me.CBIMaledom.TabIndex = 32 + Me.CBIMaledom.Text = "Maledom" + Me.CBIMaledom.UseVisualStyleBackColor = True + ' + 'TbxIFemdom + ' + Me.TbxIFemdom.BackColor = System.Drawing.Color.LightGray + Me.TbxIFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIFemdom.ForeColor = System.Drawing.Color.Black + Me.TbxIFemdom.Location = New System.Drawing.Point(115, 121) + Me.TbxIFemdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIFemdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIFemdom.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIFemdom.Name = "TbxIFemdom" + Me.TbxIFemdom.ReadOnly = True + Me.TbxIFemdom.Size = New System.Drawing.Size(217, 17) + Me.TbxIFemdom.TabIndex = 18 + Me.TbxIFemdom.Text = Global.Tease_AI.My.MySettings.Default.IFemdom + ' + 'BTNILesbian + ' + Me.BTNILesbian.BackColor = System.Drawing.Color.LightGray + Me.BTNILesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNILesbian.ForeColor = System.Drawing.Color.Black + Me.BTNILesbian.Location = New System.Drawing.Point(76, 58) + Me.BTNILesbian.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNILesbian.Name = "BTNILesbian" + Me.BTNILesbian.Size = New System.Drawing.Size(34, 28) + Me.BTNILesbian.TabIndex = 9 + Me.BTNILesbian.Text = "1" + Me.BTNILesbian.UseVisualStyleBackColor = False + ' + 'TbxICaptions + ' + Me.TbxICaptions.BackColor = System.Drawing.Color.LightGray + Me.TbxICaptions.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxICaptions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxICaptions.ForeColor = System.Drawing.Color.Black + Me.TbxICaptions.Location = New System.Drawing.Point(115, 266) + Me.TbxICaptions.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxICaptions.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxICaptions.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxICaptions.Name = "TbxICaptions" + Me.TbxICaptions.ReadOnly = True + Me.TbxICaptions.Size = New System.Drawing.Size(217, 17) + Me.TbxICaptions.TabIndex = 38 + Me.TbxICaptions.Text = Global.Tease_AI.My.MySettings.Default.ICaptions + ' + 'CBICaptions + ' + Me.CBICaptions.AutoSize = True + Me.CBICaptions.Checked = Global.Tease_AI.My.MySettings.Default.CBICaptions + Me.CBICaptions.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBICaptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBICaptions.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBICaptions.ForeColor = System.Drawing.Color.Black + Me.CBICaptions.Location = New System.Drawing.Point(3, 264) + Me.CBICaptions.Name = "CBICaptions" + Me.CBICaptions.Size = New System.Drawing.Size(70, 23) + Me.CBICaptions.TabIndex = 36 + Me.CBICaptions.Text = "Captions" + Me.CBICaptions.UseVisualStyleBackColor = True + ' + 'TbxILezdom + ' + Me.TbxILezdom.BackColor = System.Drawing.Color.LightGray + Me.TbxILezdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxILezdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "ILezdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxILezdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxILezdom.ForeColor = System.Drawing.Color.Black + Me.TbxILezdom.Location = New System.Drawing.Point(115, 150) + Me.TbxILezdom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxILezdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxILezdom.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxILezdom.Name = "TbxILezdom" + Me.TbxILezdom.ReadOnly = True + Me.TbxILezdom.Size = New System.Drawing.Size(217, 17) + Me.TbxILezdom.TabIndex = 22 + Me.TbxILezdom.Text = Global.Tease_AI.My.MySettings.Default.ILezdom + ' + 'TbxIMaledom + ' + Me.TbxIMaledom.BackColor = System.Drawing.Color.LightGray + Me.TbxIMaledom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIMaledom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IMaledom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIMaledom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIMaledom.ForeColor = System.Drawing.Color.Black + Me.TbxIMaledom.Location = New System.Drawing.Point(115, 237) + Me.TbxIMaledom.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIMaledom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIMaledom.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIMaledom.Name = "TbxIMaledom" + Me.TbxIMaledom.ReadOnly = True + Me.TbxIMaledom.Size = New System.Drawing.Size(217, 17) + Me.TbxIMaledom.TabIndex = 34 + Me.TbxIMaledom.Text = Global.Tease_AI.My.MySettings.Default.IMaledom + ' + 'BTNButtPath + ' + Me.BTNButtPath.BackColor = System.Drawing.Color.LightGray + Me.BTNButtPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNButtPath.ForeColor = System.Drawing.Color.Black + Me.BTNButtPath.Location = New System.Drawing.Point(76, 348) + Me.BTNButtPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNButtPath.Name = "BTNButtPath" + Me.BTNButtPath.Size = New System.Drawing.Size(34, 28) + Me.BTNButtPath.TabIndex = 49 + Me.BTNButtPath.Text = "1" + Me.BTNButtPath.UseVisualStyleBackColor = False + ' + 'TbxIHentai + ' + Me.TbxIHentai.BackColor = System.Drawing.Color.LightGray + Me.TbxIHentai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIHentai.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IHentai", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIHentai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIHentai.ForeColor = System.Drawing.Color.Black + Me.TbxIHentai.Location = New System.Drawing.Point(115, 179) + Me.TbxIHentai.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIHentai.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIHentai.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIHentai.Name = "TbxIHentai" + Me.TbxIHentai.ReadOnly = True + Me.TbxIHentai.Size = New System.Drawing.Size(217, 17) + Me.TbxIHentai.TabIndex = 26 + Me.TbxIHentai.Text = Global.Tease_AI.My.MySettings.Default.IHentai + ' + 'CBIGeneral + ' + Me.CBIGeneral.AutoSize = True + Me.CBIGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBIGeneral + Me.CBIGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIGeneral.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIGeneral.ForeColor = System.Drawing.Color.Black + Me.CBIGeneral.Location = New System.Drawing.Point(3, 293) + Me.CBIGeneral.Name = "CBIGeneral" + Me.CBIGeneral.Size = New System.Drawing.Size(70, 23) + Me.CBIGeneral.TabIndex = 40 + Me.CBIGeneral.Text = "General" + Me.CBIGeneral.UseVisualStyleBackColor = True + ' + 'TbxIGay + ' + Me.TbxIGay.BackColor = System.Drawing.Color.LightGray + Me.TbxIGay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxIGay.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "IGay", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxIGay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxIGay.ForeColor = System.Drawing.Color.Black + Me.TbxIGay.Location = New System.Drawing.Point(115, 208) + Me.TbxIGay.Margin = New System.Windows.Forms.Padding(5, 5, 8, 3) + Me.TbxIGay.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxIGay.MinimumSize = New System.Drawing.Size(217, 17) + Me.TbxIGay.Name = "TbxIGay" + Me.TbxIGay.ReadOnly = True + Me.TbxIGay.Size = New System.Drawing.Size(217, 17) + Me.TbxIGay.TabIndex = 30 + Me.TbxIGay.Text = Global.Tease_AI.My.MySettings.Default.IGay + ' + 'CBIBoobs + ' + Me.CBIBoobs.AutoSize = True + Me.CBIBoobs.Checked = Global.Tease_AI.My.MySettings.Default.CBIBoobs + Me.CBIBoobs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIBoobs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIBoobs.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIBoobs.ForeColor = System.Drawing.Color.Black + Me.CBIBoobs.Location = New System.Drawing.Point(3, 322) + Me.CBIBoobs.Name = "CBIBoobs" + Me.CBIBoobs.Size = New System.Drawing.Size(70, 23) + Me.CBIBoobs.TabIndex = 44 + Me.CBIBoobs.Text = "Boobs" + Me.CBIBoobs.UseVisualStyleBackColor = True + ' + 'CBIButts + ' + Me.CBIButts.AutoSize = True + Me.CBIButts.Checked = Global.Tease_AI.My.MySettings.Default.CBIButts + Me.CBIButts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIButts", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIButts.Dock = System.Windows.Forms.DockStyle.Fill + Me.CBIButts.ForeColor = System.Drawing.Color.Black + Me.CBIButts.Location = New System.Drawing.Point(3, 351) + Me.CBIButts.Name = "CBIButts" + Me.CBIButts.Size = New System.Drawing.Size(70, 27) + Me.CBIButts.TabIndex = 48 + Me.CBIButts.Text = "Butts" + Me.CBIButts.UseVisualStyleBackColor = True + ' + 'BTNIBlowjob + ' + Me.BTNIBlowjob.BackColor = System.Drawing.Color.LightGray + Me.BTNIBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIBlowjob.ForeColor = System.Drawing.Color.Black + Me.BTNIBlowjob.Location = New System.Drawing.Point(76, 87) + Me.BTNIBlowjob.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIBlowjob.Name = "BTNIBlowjob" + Me.BTNIBlowjob.Size = New System.Drawing.Size(34, 28) + Me.BTNIBlowjob.TabIndex = 13 + Me.BTNIBlowjob.Text = "1" + Me.BTNIBlowjob.UseVisualStyleBackColor = False + ' + 'BTNIFemdom + ' + Me.BTNIFemdom.BackColor = System.Drawing.Color.LightGray + Me.BTNIFemdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIFemdom.ForeColor = System.Drawing.Color.Black + Me.BTNIFemdom.Location = New System.Drawing.Point(76, 116) + Me.BTNIFemdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIFemdom.Name = "BTNIFemdom" + Me.BTNIFemdom.Size = New System.Drawing.Size(34, 28) + Me.BTNIFemdom.TabIndex = 17 + Me.BTNIFemdom.Text = "1" + Me.BTNIFemdom.UseVisualStyleBackColor = False + ' + 'BTNBoobPath + ' + Me.BTNBoobPath.BackColor = System.Drawing.Color.LightGray + Me.BTNBoobPath.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNBoobPath.ForeColor = System.Drawing.Color.Black + Me.BTNBoobPath.Location = New System.Drawing.Point(76, 319) + Me.BTNBoobPath.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNBoobPath.Name = "BTNBoobPath" + Me.BTNBoobPath.Size = New System.Drawing.Size(34, 28) + Me.BTNBoobPath.TabIndex = 45 + Me.BTNBoobPath.Text = "1" + Me.BTNBoobPath.UseVisualStyleBackColor = False + ' + 'BTNILezdom + ' + Me.BTNILezdom.BackColor = System.Drawing.Color.LightGray + Me.BTNILezdom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNILezdom.ForeColor = System.Drawing.Color.Black + Me.BTNILezdom.Location = New System.Drawing.Point(76, 145) + Me.BTNILezdom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNILezdom.Name = "BTNILezdom" + Me.BTNILezdom.Size = New System.Drawing.Size(34, 28) + Me.BTNILezdom.TabIndex = 21 + Me.BTNILezdom.Text = "1" + Me.BTNILezdom.UseVisualStyleBackColor = False + ' + 'BTNIHentai + ' + Me.BTNIHentai.BackColor = System.Drawing.Color.LightGray + Me.BTNIHentai.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIHentai.ForeColor = System.Drawing.Color.Black + Me.BTNIHentai.Location = New System.Drawing.Point(76, 174) + Me.BTNIHentai.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIHentai.Name = "BTNIHentai" + Me.BTNIHentai.Size = New System.Drawing.Size(34, 28) + Me.BTNIHentai.TabIndex = 25 + Me.BTNIHentai.Text = "1" + Me.BTNIHentai.UseVisualStyleBackColor = False + ' + 'BTNIGay + ' + Me.BTNIGay.BackColor = System.Drawing.Color.LightGray + Me.BTNIGay.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIGay.ForeColor = System.Drawing.Color.Black + Me.BTNIGay.Location = New System.Drawing.Point(76, 203) + Me.BTNIGay.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIGay.Name = "BTNIGay" + Me.BTNIGay.Size = New System.Drawing.Size(34, 28) + Me.BTNIGay.TabIndex = 29 + Me.BTNIGay.Text = "1" + Me.BTNIGay.UseVisualStyleBackColor = False + ' + 'BTNIMaledom + ' + Me.BTNIMaledom.BackColor = System.Drawing.Color.LightGray + Me.BTNIMaledom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIMaledom.ForeColor = System.Drawing.Color.Black + Me.BTNIMaledom.Location = New System.Drawing.Point(76, 232) + Me.BTNIMaledom.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIMaledom.Name = "BTNIMaledom" + Me.BTNIMaledom.Size = New System.Drawing.Size(34, 28) + Me.BTNIMaledom.TabIndex = 33 + Me.BTNIMaledom.Text = "1" + Me.BTNIMaledom.UseVisualStyleBackColor = False + ' + 'BTNICaptions + ' + Me.BTNICaptions.BackColor = System.Drawing.Color.LightGray + Me.BTNICaptions.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNICaptions.ForeColor = System.Drawing.Color.Black + Me.BTNICaptions.Location = New System.Drawing.Point(76, 261) + Me.BTNICaptions.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNICaptions.Name = "BTNICaptions" + Me.BTNICaptions.Size = New System.Drawing.Size(34, 28) + Me.BTNICaptions.TabIndex = 37 + Me.BTNICaptions.Text = "1" + Me.BTNICaptions.UseVisualStyleBackColor = False + ' + 'BTNIGeneral + ' + Me.BTNIGeneral.BackColor = System.Drawing.Color.LightGray + Me.BTNIGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNIGeneral.ForeColor = System.Drawing.Color.Black + Me.BTNIGeneral.Location = New System.Drawing.Point(76, 290) + Me.BTNIGeneral.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1) + Me.BTNIGeneral.Name = "BTNIGeneral" + Me.BTNIGeneral.Size = New System.Drawing.Size(34, 28) + Me.BTNIGeneral.TabIndex = 41 + Me.BTNIGeneral.Text = "1" + Me.BTNIGeneral.UseVisualStyleBackColor = False + ' + 'TabPage33 + ' + Me.TabPage33.BackColor = System.Drawing.Color.Silver + Me.TabPage33.Controls.Add(Me.TabControl5) + Me.TabPage33.Location = New System.Drawing.Point(4, 22) + Me.TabPage33.Name = "TabPage33" + Me.TabPage33.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage33.Size = New System.Drawing.Size(720, 448) + Me.TabPage33.TabIndex = 21 + Me.TabPage33.Text = "Tagging" + ' + 'TabControl5 + ' + Me.TabControl5.Controls.Add(Me.TabPage34) + Me.TabControl5.Controls.Add(Me.TabPage35) + Me.TabControl5.Location = New System.Drawing.Point(6, 6) + Me.TabControl5.Name = "TabControl5" + Me.TabControl5.SelectedIndex = 0 + Me.TabControl5.Size = New System.Drawing.Size(708, 437) + Me.TabControl5.TabIndex = 0 + ' + 'TabPage34 + ' + Me.TabPage34.BackColor = System.Drawing.Color.LightGray + Me.TabPage34.Controls.Add(Me.CBTagSeeThrough) + Me.TabPage34.Controls.Add(Me.CBTagAllFours) + Me.TabPage34.Controls.Add(Me.CBTagGlaring) + Me.TabPage34.Controls.Add(Me.CBTagSmiling) + Me.TabPage34.Controls.Add(Me.TBTagDir) + Me.TabPage34.Controls.Add(Me.CBTagPiercing) + Me.TabPage34.Controls.Add(Me.CBTagLegs) + Me.TabPage34.Controls.Add(Me.TBTagFurniture) + Me.TabPage34.Controls.Add(Me.CBTagFurniture) + Me.TabPage34.Controls.Add(Me.TBTagSexToy) + Me.TabPage34.Controls.Add(Me.CBTagSexToy) + Me.TabPage34.Controls.Add(Me.TBTagTattoo) + Me.TabPage34.Controls.Add(Me.CBTagTattoo) + Me.TabPage34.Controls.Add(Me.TBTagUnderwear) + Me.TabPage34.Controls.Add(Me.CBTagUnderwear) + Me.TabPage34.Controls.Add(Me.TBTagGarment) + Me.TabPage34.Controls.Add(Me.CBTagGarment) + Me.TabPage34.Controls.Add(Me.Label72) + Me.TabPage34.Controls.Add(Me.CBTagHandsCovering) + Me.TabPage34.Controls.Add(Me.CBTagGarmentCovering) + Me.TabPage34.Controls.Add(Me.CBTagCloseUp) + Me.TabPage34.Controls.Add(Me.CBTagNaked) + Me.TabPage34.Controls.Add(Me.CBTagSideView) + Me.TabPage34.Controls.Add(Me.BTNTagPrevious) + Me.TabPage34.Controls.Add(Me.CBTagHalfDressed) + Me.TabPage34.Controls.Add(Me.BTNTagNext) + Me.TabPage34.Controls.Add(Me.CBTagFullyDressed) + Me.TabPage34.Controls.Add(Me.LBLTagCount) + Me.TabPage34.Controls.Add(Me.CBTagSucking) + Me.TabPage34.Controls.Add(Me.CBTagMasturbating) + Me.TabPage34.Controls.Add(Me.CBTagFeet) + Me.TabPage34.Controls.Add(Me.CBTagBoobs) + Me.TabPage34.Controls.Add(Me.CBTagAss) + Me.TabPage34.Controls.Add(Me.CBTagPussy) + Me.TabPage34.Controls.Add(Me.BTNTagSave) + Me.TabPage34.Controls.Add(Me.BTNTagDir) + Me.TabPage34.Controls.Add(Me.ImageTagPictureBox) + Me.TabPage34.Controls.Add(Me.CBTagFace) + Me.TabPage34.Location = New System.Drawing.Point(4, 22) + Me.TabPage34.Name = "TabPage34" + Me.TabPage34.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage34.Size = New System.Drawing.Size(700, 411) + Me.TabPage34.TabIndex = 0 + Me.TabPage34.Text = "Domme Tags" + ' + 'CBTagSeeThrough + ' + Me.CBTagSeeThrough.AutoSize = True + Me.CBTagSeeThrough.Enabled = False + Me.CBTagSeeThrough.Location = New System.Drawing.Point(577, 117) + Me.CBTagSeeThrough.Name = "CBTagSeeThrough" + Me.CBTagSeeThrough.Size = New System.Drawing.Size(87, 17) + Me.CBTagSeeThrough.TabIndex = 226 + Me.CBTagSeeThrough.Text = "See Through" + Me.CBTagSeeThrough.UseVisualStyleBackColor = True + ' + 'CBTagAllFours + ' + Me.CBTagAllFours.AutoSize = True + Me.CBTagAllFours.Enabled = False + Me.CBTagAllFours.ForeColor = System.Drawing.Color.Black + Me.CBTagAllFours.Location = New System.Drawing.Point(577, 207) + Me.CBTagAllFours.Name = "CBTagAllFours" + Me.CBTagAllFours.Size = New System.Drawing.Size(66, 17) + Me.CBTagAllFours.TabIndex = 225 + Me.CBTagAllFours.Text = "All Fours" + Me.CBTagAllFours.UseVisualStyleBackColor = True + ' + 'CBTagGlaring + ' + Me.CBTagGlaring.AutoSize = True + Me.CBTagGlaring.Enabled = False + Me.CBTagGlaring.ForeColor = System.Drawing.Color.Black + Me.CBTagGlaring.Location = New System.Drawing.Point(484, 227) + Me.CBTagGlaring.Name = "CBTagGlaring" + Me.CBTagGlaring.Size = New System.Drawing.Size(59, 17) + Me.CBTagGlaring.TabIndex = 224 + Me.CBTagGlaring.Text = "Glaring" + Me.CBTagGlaring.UseVisualStyleBackColor = True + ' + 'CBTagSmiling + ' + Me.CBTagSmiling.AutoSize = True + Me.CBTagSmiling.Enabled = False + Me.CBTagSmiling.ForeColor = System.Drawing.Color.Black + Me.CBTagSmiling.Location = New System.Drawing.Point(484, 207) + Me.CBTagSmiling.Name = "CBTagSmiling" + Me.CBTagSmiling.Size = New System.Drawing.Size(59, 17) + Me.CBTagSmiling.TabIndex = 223 + Me.CBTagSmiling.Text = "Smiling" + Me.CBTagSmiling.UseVisualStyleBackColor = True + ' + 'TBTagDir + ' + Me.TBTagDir.Location = New System.Drawing.Point(55, 9) + Me.TBTagDir.Name = "TBTagDir" + Me.TBTagDir.Size = New System.Drawing.Size(330, 20) + Me.TBTagDir.TabIndex = 222 + Me.TBTagDir.Text = "Enter Image Directory" + ' + 'CBTagPiercing + ' + Me.CBTagPiercing.AutoSize = True + Me.CBTagPiercing.Enabled = False + Me.CBTagPiercing.ForeColor = System.Drawing.Color.Black + Me.CBTagPiercing.Location = New System.Drawing.Point(577, 227) + Me.CBTagPiercing.Name = "CBTagPiercing" + Me.CBTagPiercing.Size = New System.Drawing.Size(64, 17) + Me.CBTagPiercing.TabIndex = 221 + Me.CBTagPiercing.Text = "Piercing" + Me.CBTagPiercing.UseVisualStyleBackColor = True + ' + 'CBTagLegs + ' + Me.CBTagLegs.AutoSize = True + Me.CBTagLegs.Enabled = False + Me.CBTagLegs.ForeColor = System.Drawing.Color.Black + Me.CBTagLegs.Location = New System.Drawing.Point(484, 117) + Me.CBTagLegs.Name = "CBTagLegs" + Me.CBTagLegs.Size = New System.Drawing.Size(49, 17) + Me.CBTagLegs.TabIndex = 220 + Me.CBTagLegs.Text = "Legs" + Me.CBTagLegs.UseVisualStyleBackColor = True + ' + 'TBTagFurniture + ' + Me.TBTagFurniture.Enabled = False + Me.TBTagFurniture.Location = New System.Drawing.Point(559, 370) + Me.TBTagFurniture.Name = "TBTagFurniture" + Me.TBTagFurniture.Size = New System.Drawing.Size(108, 20) + Me.TBTagFurniture.TabIndex = 219 + ' + 'CBTagFurniture + ' + Me.CBTagFurniture.AutoSize = True + Me.CBTagFurniture.Enabled = False + Me.CBTagFurniture.ForeColor = System.Drawing.Color.Black + Me.CBTagFurniture.Location = New System.Drawing.Point(476, 372) + Me.CBTagFurniture.Name = "CBTagFurniture" + Me.CBTagFurniture.Size = New System.Drawing.Size(67, 17) + Me.CBTagFurniture.TabIndex = 218 + Me.CBTagFurniture.Text = "Furniture" + Me.CBTagFurniture.UseVisualStyleBackColor = True + ' + 'TBTagSexToy + ' + Me.TBTagSexToy.Enabled = False + Me.TBTagSexToy.Location = New System.Drawing.Point(560, 346) + Me.TBTagSexToy.Name = "TBTagSexToy" + Me.TBTagSexToy.Size = New System.Drawing.Size(108, 20) + Me.TBTagSexToy.TabIndex = 217 + ' + 'CBTagSexToy + ' + Me.CBTagSexToy.AutoSize = True + Me.CBTagSexToy.Enabled = False + Me.CBTagSexToy.ForeColor = System.Drawing.Color.Black + Me.CBTagSexToy.Location = New System.Drawing.Point(476, 348) + Me.CBTagSexToy.Name = "CBTagSexToy" + Me.CBTagSexToy.Size = New System.Drawing.Size(65, 17) + Me.CBTagSexToy.TabIndex = 216 + Me.CBTagSexToy.Text = "Sex Toy" + Me.CBTagSexToy.UseVisualStyleBackColor = True + ' + 'TBTagTattoo + ' + Me.TBTagTattoo.Enabled = False + Me.TBTagTattoo.Location = New System.Drawing.Point(560, 322) + Me.TBTagTattoo.Name = "TBTagTattoo" + Me.TBTagTattoo.Size = New System.Drawing.Size(108, 20) + Me.TBTagTattoo.TabIndex = 215 + ' + 'CBTagTattoo + ' + Me.CBTagTattoo.AutoSize = True + Me.CBTagTattoo.Enabled = False + Me.CBTagTattoo.ForeColor = System.Drawing.Color.Black + Me.CBTagTattoo.Location = New System.Drawing.Point(476, 324) + Me.CBTagTattoo.Name = "CBTagTattoo" + Me.CBTagTattoo.Size = New System.Drawing.Size(57, 17) + Me.CBTagTattoo.TabIndex = 214 + Me.CBTagTattoo.Text = "Tattoo" + Me.CBTagTattoo.UseVisualStyleBackColor = True + ' + 'TBTagUnderwear + ' + Me.TBTagUnderwear.Enabled = False + Me.TBTagUnderwear.Location = New System.Drawing.Point(560, 298) + Me.TBTagUnderwear.Name = "TBTagUnderwear" + Me.TBTagUnderwear.Size = New System.Drawing.Size(108, 20) + Me.TBTagUnderwear.TabIndex = 213 + ' + 'CBTagUnderwear + ' + Me.CBTagUnderwear.AutoSize = True + Me.CBTagUnderwear.Enabled = False + Me.CBTagUnderwear.ForeColor = System.Drawing.Color.Black + Me.CBTagUnderwear.Location = New System.Drawing.Point(476, 300) + Me.CBTagUnderwear.Name = "CBTagUnderwear" + Me.CBTagUnderwear.Size = New System.Drawing.Size(78, 17) + Me.CBTagUnderwear.TabIndex = 212 + Me.CBTagUnderwear.Text = "Underwear" + Me.CBTagUnderwear.UseVisualStyleBackColor = True + ' + 'TBTagGarment + ' + Me.TBTagGarment.Enabled = False + Me.TBTagGarment.Location = New System.Drawing.Point(560, 274) + Me.TBTagGarment.Name = "TBTagGarment" + Me.TBTagGarment.Size = New System.Drawing.Size(108, 20) + Me.TBTagGarment.TabIndex = 211 + ' + 'CBTagGarment + ' + Me.CBTagGarment.AutoSize = True + Me.CBTagGarment.Enabled = False + Me.CBTagGarment.ForeColor = System.Drawing.Color.Black + Me.CBTagGarment.Location = New System.Drawing.Point(476, 276) + Me.CBTagGarment.Name = "CBTagGarment" + Me.CBTagGarment.Size = New System.Drawing.Size(66, 17) + Me.CBTagGarment.TabIndex = 210 + Me.CBTagGarment.Text = "Garment" + Me.CBTagGarment.UseVisualStyleBackColor = True + ' + 'Label72 + ' + Me.Label72.BackColor = System.Drawing.Color.Transparent + Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label72.ForeColor = System.Drawing.Color.Black + Me.Label72.Location = New System.Drawing.Point(5, 368) + Me.Label72.Name = "Label72" + Me.Label72.Size = New System.Drawing.Size(451, 35) + Me.Label72.TabIndex = 189 + Me.Label72.Text = "Open a directory containing images. Check all tags that apply to each image displ" & + "ayed, and enter one-word tag descriptions in the text fields when appropriate. (" & + "e.g. Garment: dress)" + Me.Label72.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBTagHandsCovering + ' + Me.CBTagHandsCovering.AutoSize = True + Me.CBTagHandsCovering.Enabled = False + Me.CBTagHandsCovering.Location = New System.Drawing.Point(577, 97) + Me.CBTagHandsCovering.Name = "CBTagHandsCovering" + Me.CBTagHandsCovering.Size = New System.Drawing.Size(101, 17) + Me.CBTagHandsCovering.TabIndex = 209 + Me.CBTagHandsCovering.Text = "Hands Covering" + Me.CBTagHandsCovering.UseVisualStyleBackColor = True + ' + 'CBTagGarmentCovering + ' + Me.CBTagGarmentCovering.AutoSize = True + Me.CBTagGarmentCovering.Enabled = False + Me.CBTagGarmentCovering.Location = New System.Drawing.Point(577, 77) + Me.CBTagGarmentCovering.Name = "CBTagGarmentCovering" + Me.CBTagGarmentCovering.Size = New System.Drawing.Size(110, 17) + Me.CBTagGarmentCovering.TabIndex = 208 + Me.CBTagGarmentCovering.Text = "Garment Covering" + Me.CBTagGarmentCovering.UseVisualStyleBackColor = True + ' + 'CBTagCloseUp + ' + Me.CBTagCloseUp.AutoSize = True + Me.CBTagCloseUp.Enabled = False + Me.CBTagCloseUp.ForeColor = System.Drawing.Color.Black + Me.CBTagCloseUp.Location = New System.Drawing.Point(577, 187) + Me.CBTagCloseUp.Name = "CBTagCloseUp" + Me.CBTagCloseUp.Size = New System.Drawing.Size(69, 17) + Me.CBTagCloseUp.TabIndex = 205 + Me.CBTagCloseUp.Text = "Close Up" + Me.CBTagCloseUp.UseVisualStyleBackColor = True + ' + 'CBTagNaked + ' + Me.CBTagNaked.AutoSize = True + Me.CBTagNaked.Enabled = False + Me.CBTagNaked.Location = New System.Drawing.Point(577, 136) + Me.CBTagNaked.Name = "CBTagNaked" + Me.CBTagNaked.Size = New System.Drawing.Size(57, 17) + Me.CBTagNaked.TabIndex = 199 + Me.CBTagNaked.Text = "Naked" + Me.CBTagNaked.UseVisualStyleBackColor = True + ' + 'CBTagSideView + ' + Me.CBTagSideView.AutoSize = True + Me.CBTagSideView.Enabled = False + Me.CBTagSideView.ForeColor = System.Drawing.Color.Black + Me.CBTagSideView.Location = New System.Drawing.Point(577, 167) + Me.CBTagSideView.Name = "CBTagSideView" + Me.CBTagSideView.Size = New System.Drawing.Size(73, 17) + Me.CBTagSideView.TabIndex = 204 + Me.CBTagSideView.Text = "Side View" + Me.CBTagSideView.UseVisualStyleBackColor = True + ' + 'BTNTagPrevious + ' + Me.BTNTagPrevious.BackColor = System.Drawing.Color.LightGray + Me.BTNTagPrevious.Enabled = False + Me.BTNTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNTagPrevious.ForeColor = System.Drawing.Color.Black + Me.BTNTagPrevious.Location = New System.Drawing.Point(391, 8) + Me.BTNTagPrevious.Name = "BTNTagPrevious" + Me.BTNTagPrevious.Size = New System.Drawing.Size(47, 24) + Me.BTNTagPrevious.TabIndex = 207 + Me.BTNTagPrevious.Text = "<<" + Me.BTNTagPrevious.UseVisualStyleBackColor = False + ' + 'CBTagHalfDressed + ' + Me.CBTagHalfDressed.AutoSize = True + Me.CBTagHalfDressed.Enabled = False + Me.CBTagHalfDressed.Location = New System.Drawing.Point(577, 57) + Me.CBTagHalfDressed.Name = "CBTagHalfDressed" + Me.CBTagHalfDressed.Size = New System.Drawing.Size(86, 17) + Me.CBTagHalfDressed.TabIndex = 198 + Me.CBTagHalfDressed.Text = "Half Dressed" + Me.CBTagHalfDressed.UseVisualStyleBackColor = True + ' + 'BTNTagNext + ' + Me.BTNTagNext.BackColor = System.Drawing.Color.LightGray + Me.BTNTagNext.Enabled = False + Me.BTNTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNTagNext.ForeColor = System.Drawing.Color.Black + Me.BTNTagNext.Location = New System.Drawing.Point(560, 8) + Me.BTNTagNext.Name = "BTNTagNext" + Me.BTNTagNext.Size = New System.Drawing.Size(47, 24) + Me.BTNTagNext.TabIndex = 206 + Me.BTNTagNext.Text = ">>" + Me.BTNTagNext.UseVisualStyleBackColor = False + ' + 'CBTagFullyDressed + ' + Me.CBTagFullyDressed.AutoSize = True + Me.CBTagFullyDressed.Enabled = False + Me.CBTagFullyDressed.Location = New System.Drawing.Point(577, 37) + Me.CBTagFullyDressed.Name = "CBTagFullyDressed" + Me.CBTagFullyDressed.Size = New System.Drawing.Size(88, 17) + Me.CBTagFullyDressed.TabIndex = 197 + Me.CBTagFullyDressed.Text = "Fully Dressed" + Me.CBTagFullyDressed.UseVisualStyleBackColor = True + ' + 'LBLTagCount + ' + Me.LBLTagCount.BackColor = System.Drawing.Color.Transparent + Me.LBLTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLTagCount.Enabled = False + Me.LBLTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLTagCount.ForeColor = System.Drawing.Color.Black + Me.LBLTagCount.Location = New System.Drawing.Point(444, 10) + Me.LBLTagCount.Name = "LBLTagCount" + Me.LBLTagCount.Size = New System.Drawing.Size(110, 20) + Me.LBLTagCount.TabIndex = 203 + Me.LBLTagCount.Text = "0/0" + Me.LBLTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBTagSucking + ' + Me.CBTagSucking.AutoSize = True + Me.CBTagSucking.Enabled = False + Me.CBTagSucking.ForeColor = System.Drawing.Color.Black + Me.CBTagSucking.Location = New System.Drawing.Point(484, 187) + Me.CBTagSucking.Name = "CBTagSucking" + Me.CBTagSucking.Size = New System.Drawing.Size(65, 17) + Me.CBTagSucking.TabIndex = 202 + Me.CBTagSucking.Text = "Sucking" + Me.CBTagSucking.UseVisualStyleBackColor = True + ' + 'CBTagMasturbating + ' + Me.CBTagMasturbating.AutoSize = True + Me.CBTagMasturbating.Enabled = False + Me.CBTagMasturbating.ForeColor = System.Drawing.Color.Black + Me.CBTagMasturbating.Location = New System.Drawing.Point(484, 167) + Me.CBTagMasturbating.Name = "CBTagMasturbating" + Me.CBTagMasturbating.Size = New System.Drawing.Size(87, 17) + Me.CBTagMasturbating.TabIndex = 201 + Me.CBTagMasturbating.Text = "Masturbating" + Me.CBTagMasturbating.UseVisualStyleBackColor = True + ' + 'CBTagFeet + ' + Me.CBTagFeet.AutoSize = True + Me.CBTagFeet.Enabled = False + Me.CBTagFeet.ForeColor = System.Drawing.Color.Black + Me.CBTagFeet.Location = New System.Drawing.Point(484, 137) + Me.CBTagFeet.Name = "CBTagFeet" + Me.CBTagFeet.Size = New System.Drawing.Size(47, 17) + Me.CBTagFeet.TabIndex = 200 + Me.CBTagFeet.Text = "Feet" + Me.CBTagFeet.UseVisualStyleBackColor = True + ' + 'CBTagBoobs + ' + Me.CBTagBoobs.AutoSize = True + Me.CBTagBoobs.Enabled = False + Me.CBTagBoobs.ForeColor = System.Drawing.Color.Black + Me.CBTagBoobs.Location = New System.Drawing.Point(484, 57) + Me.CBTagBoobs.Name = "CBTagBoobs" + Me.CBTagBoobs.Size = New System.Drawing.Size(56, 17) + Me.CBTagBoobs.TabIndex = 196 + Me.CBTagBoobs.Text = "Boobs" + Me.CBTagBoobs.UseVisualStyleBackColor = True + ' + 'CBTagAss + ' + Me.CBTagAss.AutoSize = True + Me.CBTagAss.Enabled = False + Me.CBTagAss.ForeColor = System.Drawing.Color.Black + Me.CBTagAss.Location = New System.Drawing.Point(484, 97) + Me.CBTagAss.Name = "CBTagAss" + Me.CBTagAss.Size = New System.Drawing.Size(43, 17) + Me.CBTagAss.TabIndex = 195 + Me.CBTagAss.Text = "Ass" + Me.CBTagAss.UseVisualStyleBackColor = True + ' + 'CBTagPussy + ' + Me.CBTagPussy.AutoSize = True + Me.CBTagPussy.Enabled = False + Me.CBTagPussy.ForeColor = System.Drawing.Color.Black + Me.CBTagPussy.Location = New System.Drawing.Point(484, 77) + Me.CBTagPussy.Name = "CBTagPussy" + Me.CBTagPussy.Size = New System.Drawing.Size(54, 17) + Me.CBTagPussy.TabIndex = 194 + Me.CBTagPussy.Text = "Pussy" + Me.CBTagPussy.UseVisualStyleBackColor = True + ' + 'BTNTagSave + ' + Me.BTNTagSave.Enabled = False + Me.BTNTagSave.Location = New System.Drawing.Point(613, 9) + Me.BTNTagSave.Name = "BTNTagSave" + Me.BTNTagSave.Size = New System.Drawing.Size(83, 23) + Me.BTNTagSave.TabIndex = 193 + Me.BTNTagSave.Text = "Finished" + Me.BTNTagSave.UseVisualStyleBackColor = True + ' + 'BTNTagDir + ' + Me.BTNTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNTagDir.Location = New System.Drawing.Point(6, 8) + Me.BTNTagDir.Name = "BTNTagDir" + Me.BTNTagDir.Size = New System.Drawing.Size(43, 23) + Me.BTNTagDir.TabIndex = 192 + Me.BTNTagDir.Text = "1" + Me.BTNTagDir.UseVisualStyleBackColor = True + ' + 'ImageTagPictureBox + ' + Me.ImageTagPictureBox.BackColor = System.Drawing.Color.Black + Me.ImageTagPictureBox.Location = New System.Drawing.Point(5, 37) + Me.ImageTagPictureBox.Name = "ImageTagPictureBox" + Me.ImageTagPictureBox.Size = New System.Drawing.Size(451, 328) + Me.ImageTagPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.ImageTagPictureBox.TabIndex = 191 + Me.ImageTagPictureBox.TabStop = False + ' + 'CBTagFace + ' + Me.CBTagFace.AutoSize = True + Me.CBTagFace.Enabled = False + Me.CBTagFace.ForeColor = System.Drawing.Color.Black + Me.CBTagFace.Location = New System.Drawing.Point(484, 37) + Me.CBTagFace.Name = "CBTagFace" + Me.CBTagFace.Size = New System.Drawing.Size(50, 17) + Me.CBTagFace.TabIndex = 190 + Me.CBTagFace.Text = "Face" + Me.CBTagFace.UseVisualStyleBackColor = True + ' + 'TabPage35 + ' + Me.TabPage35.BackColor = System.Drawing.Color.LightGray + Me.TabPage35.Controls.Add(Me.GroupBox55) + Me.TabPage35.Controls.Add(Me.GroupBox53) + Me.TabPage35.Controls.Add(Me.GroupBox49) + Me.TabPage35.Controls.Add(Me.GroupBox46) + Me.TabPage35.Controls.Add(Me.GroupBox54) + Me.TabPage35.Controls.Add(Me.GroupBox51) + Me.TabPage35.Controls.Add(Me.GroupBox50) + Me.TabPage35.Controls.Add(Me.GroupBox48) + Me.TabPage35.Controls.Add(Me.TBLocalTagDir) + Me.TabPage35.Controls.Add(Me.BTNLocalTagPrevious) + Me.TabPage35.Controls.Add(Me.BTNLocalTagNext) + Me.TabPage35.Controls.Add(Me.LBLLocalTagCount) + Me.TabPage35.Controls.Add(Me.BTNLocalTagSave) + Me.TabPage35.Controls.Add(Me.BTNLocalTagDir) + Me.TabPage35.Location = New System.Drawing.Point(4, 22) + Me.TabPage35.Name = "TabPage35" + Me.TabPage35.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage35.Size = New System.Drawing.Size(700, 411) + Me.TabPage35.TabIndex = 1 + Me.TabPage35.Text = "Local Tags" + ' + 'GroupBox55 + ' + Me.GroupBox55.Controls.Add(Me.CBTagNurse) + Me.GroupBox55.Controls.Add(Me.CBTagSchoolgirl) + Me.GroupBox55.Controls.Add(Me.CBTagMaid) + Me.GroupBox55.Controls.Add(Me.CBTagTeacher) + Me.GroupBox55.Controls.Add(Me.CBTagSuperhero) + Me.GroupBox55.Location = New System.Drawing.Point(341, 277) + Me.GroupBox55.Name = "GroupBox55" + Me.GroupBox55.Size = New System.Drawing.Size(103, 118) + Me.GroupBox55.TabIndex = 241 + Me.GroupBox55.TabStop = False + Me.GroupBox55.Text = "Outfit" + ' + 'CBTagNurse + ' + Me.CBTagNurse.AutoSize = True + Me.CBTagNurse.Enabled = False + Me.CBTagNurse.ForeColor = System.Drawing.Color.Black + Me.CBTagNurse.Location = New System.Drawing.Point(15, 17) + Me.CBTagNurse.Name = "CBTagNurse" + Me.CBTagNurse.Size = New System.Drawing.Size(54, 17) + Me.CBTagNurse.TabIndex = 203 + Me.CBTagNurse.Text = "Nurse" + Me.CBTagNurse.UseVisualStyleBackColor = True + ' + 'CBTagSchoolgirl + ' + Me.CBTagSchoolgirl.AutoSize = True + Me.CBTagSchoolgirl.Enabled = False + Me.CBTagSchoolgirl.ForeColor = System.Drawing.Color.Black + Me.CBTagSchoolgirl.Location = New System.Drawing.Point(15, 57) + Me.CBTagSchoolgirl.Name = "CBTagSchoolgirl" + Me.CBTagSchoolgirl.Size = New System.Drawing.Size(72, 17) + Me.CBTagSchoolgirl.TabIndex = 204 + Me.CBTagSchoolgirl.Text = "Schoolgirl" + Me.CBTagSchoolgirl.UseVisualStyleBackColor = True + ' + 'CBTagMaid + ' + Me.CBTagMaid.AutoSize = True + Me.CBTagMaid.Enabled = False + Me.CBTagMaid.ForeColor = System.Drawing.Color.Black + Me.CBTagMaid.Location = New System.Drawing.Point(15, 77) + Me.CBTagMaid.Name = "CBTagMaid" + Me.CBTagMaid.Size = New System.Drawing.Size(49, 17) + Me.CBTagMaid.TabIndex = 205 + Me.CBTagMaid.Text = "Maid" + Me.CBTagMaid.UseVisualStyleBackColor = True + ' + 'CBTagTeacher + ' + Me.CBTagTeacher.AutoSize = True + Me.CBTagTeacher.Enabled = False + Me.CBTagTeacher.ForeColor = System.Drawing.Color.Black + Me.CBTagTeacher.Location = New System.Drawing.Point(15, 37) + Me.CBTagTeacher.Name = "CBTagTeacher" + Me.CBTagTeacher.Size = New System.Drawing.Size(66, 17) + Me.CBTagTeacher.TabIndex = 206 + Me.CBTagTeacher.Text = "Teacher" + Me.CBTagTeacher.UseVisualStyleBackColor = True + ' + 'CBTagSuperhero + ' + Me.CBTagSuperhero.AutoSize = True + Me.CBTagSuperhero.Enabled = False + Me.CBTagSuperhero.ForeColor = System.Drawing.Color.Black + Me.CBTagSuperhero.Location = New System.Drawing.Point(15, 97) + Me.CBTagSuperhero.Name = "CBTagSuperhero" + Me.CBTagSuperhero.Size = New System.Drawing.Size(75, 17) + Me.CBTagSuperhero.TabIndex = 213 + Me.CBTagSuperhero.Text = "Superhero" + Me.CBTagSuperhero.UseVisualStyleBackColor = True + ' + 'GroupBox53 + ' + Me.GroupBox53.Controls.Add(Me.CBTagTrap) + Me.GroupBox53.Controls.Add(Me.CBTagTentacles) + Me.GroupBox53.Controls.Add(Me.CBTagMonsterGirl) + Me.GroupBox53.Controls.Add(Me.CBTagBukkake) + Me.GroupBox53.Controls.Add(Me.CBTagGanguro) + Me.GroupBox53.Controls.Add(Me.CBTagBodyWriting) + Me.GroupBox53.Controls.Add(Me.CBTagMahouShoujo) + Me.GroupBox53.Controls.Add(Me.CBTagBakunyuu) + Me.GroupBox53.Controls.Add(Me.CBTagAhegao) + Me.GroupBox53.Controls.Add(Me.CBTagShibari) + Me.GroupBox53.Location = New System.Drawing.Point(450, 277) + Me.GroupBox53.Name = "GroupBox53" + Me.GroupBox53.Size = New System.Drawing.Size(246, 118) + Me.GroupBox53.TabIndex = 240 + Me.GroupBox53.TabStop = False + Me.GroupBox53.Text = "Hentai/JAV Themes" + ' + 'CBTagTrap + ' + Me.CBTagTrap.AutoSize = True + Me.CBTagTrap.Enabled = False + Me.CBTagTrap.ForeColor = System.Drawing.Color.Black + Me.CBTagTrap.Location = New System.Drawing.Point(126, 37) + Me.CBTagTrap.Name = "CBTagTrap" + Me.CBTagTrap.Size = New System.Drawing.Size(48, 17) + Me.CBTagTrap.TabIndex = 226 + Me.CBTagTrap.Text = "Trap" + Me.CBTagTrap.UseVisualStyleBackColor = True + ' + 'CBTagTentacles + ' + Me.CBTagTentacles.AutoSize = True + Me.CBTagTentacles.Enabled = False + Me.CBTagTentacles.ForeColor = System.Drawing.Color.Black + Me.CBTagTentacles.Location = New System.Drawing.Point(15, 37) + Me.CBTagTentacles.Name = "CBTagTentacles" + Me.CBTagTentacles.Size = New System.Drawing.Size(73, 17) + Me.CBTagTentacles.TabIndex = 204 + Me.CBTagTentacles.Text = "Tentacles" + Me.CBTagTentacles.UseVisualStyleBackColor = True + ' + 'CBTagMonsterGirl + ' + Me.CBTagMonsterGirl.AutoSize = True + Me.CBTagMonsterGirl.Enabled = False + Me.CBTagMonsterGirl.ForeColor = System.Drawing.Color.Black + Me.CBTagMonsterGirl.Location = New System.Drawing.Point(126, 97) + Me.CBTagMonsterGirl.Name = "CBTagMonsterGirl" + Me.CBTagMonsterGirl.Size = New System.Drawing.Size(82, 17) + Me.CBTagMonsterGirl.TabIndex = 214 + Me.CBTagMonsterGirl.Text = "Monster Girl" + Me.CBTagMonsterGirl.UseVisualStyleBackColor = True + ' + 'CBTagBukkake + ' + Me.CBTagBukkake.AutoSize = True + Me.CBTagBukkake.Enabled = False + Me.CBTagBukkake.ForeColor = System.Drawing.Color.Black + Me.CBTagBukkake.Location = New System.Drawing.Point(15, 57) + Me.CBTagBukkake.Name = "CBTagBukkake" + Me.CBTagBukkake.Size = New System.Drawing.Size(69, 17) + Me.CBTagBukkake.TabIndex = 210 + Me.CBTagBukkake.Text = "Bukkake" + Me.CBTagBukkake.UseVisualStyleBackColor = True + ' + 'CBTagGanguro + ' + Me.CBTagGanguro.AutoSize = True + Me.CBTagGanguro.Enabled = False + Me.CBTagGanguro.ForeColor = System.Drawing.Color.Black + Me.CBTagGanguro.Location = New System.Drawing.Point(126, 57) + Me.CBTagGanguro.Name = "CBTagGanguro" + Me.CBTagGanguro.Size = New System.Drawing.Size(67, 17) + Me.CBTagGanguro.TabIndex = 205 + Me.CBTagGanguro.Text = "Ganguro" + Me.CBTagGanguro.UseVisualStyleBackColor = True + ' + 'CBTagBodyWriting + ' + Me.CBTagBodyWriting.AutoSize = True + Me.CBTagBodyWriting.Enabled = False + Me.CBTagBodyWriting.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyWriting.Location = New System.Drawing.Point(126, 17) + Me.CBTagBodyWriting.Name = "CBTagBodyWriting" + Me.CBTagBodyWriting.Size = New System.Drawing.Size(86, 17) + Me.CBTagBodyWriting.TabIndex = 208 + Me.CBTagBodyWriting.Text = "Body Writing" + Me.CBTagBodyWriting.UseVisualStyleBackColor = True + ' + 'CBTagMahouShoujo + ' + Me.CBTagMahouShoujo.AutoSize = True + Me.CBTagMahouShoujo.Enabled = False + Me.CBTagMahouShoujo.ForeColor = System.Drawing.Color.Black + Me.CBTagMahouShoujo.Location = New System.Drawing.Point(126, 77) + Me.CBTagMahouShoujo.Name = "CBTagMahouShoujo" + Me.CBTagMahouShoujo.Size = New System.Drawing.Size(95, 17) + Me.CBTagMahouShoujo.TabIndex = 209 + Me.CBTagMahouShoujo.Text = "Mahou Shoujo" + Me.CBTagMahouShoujo.UseVisualStyleBackColor = True + ' + 'CBTagBakunyuu + ' + Me.CBTagBakunyuu.AutoSize = True + Me.CBTagBakunyuu.Enabled = False + Me.CBTagBakunyuu.ForeColor = System.Drawing.Color.Black + Me.CBTagBakunyuu.Location = New System.Drawing.Point(15, 77) + Me.CBTagBakunyuu.Name = "CBTagBakunyuu" + Me.CBTagBakunyuu.Size = New System.Drawing.Size(74, 17) + Me.CBTagBakunyuu.TabIndex = 213 + Me.CBTagBakunyuu.Text = "Bakunyuu" + Me.CBTagBakunyuu.UseVisualStyleBackColor = True + ' + 'CBTagAhegao + ' + Me.CBTagAhegao.AutoSize = True + Me.CBTagAhegao.Enabled = False + Me.CBTagAhegao.ForeColor = System.Drawing.Color.Black + Me.CBTagAhegao.Location = New System.Drawing.Point(15, 97) + Me.CBTagAhegao.Name = "CBTagAhegao" + Me.CBTagAhegao.Size = New System.Drawing.Size(63, 17) + Me.CBTagAhegao.TabIndex = 207 + Me.CBTagAhegao.Text = "Ahegao" + Me.CBTagAhegao.UseVisualStyleBackColor = True + ' + 'CBTagShibari + ' + Me.CBTagShibari.AutoSize = True + Me.CBTagShibari.Enabled = False + Me.CBTagShibari.ForeColor = System.Drawing.Color.Black + Me.CBTagShibari.Location = New System.Drawing.Point(15, 17) + Me.CBTagShibari.Name = "CBTagShibari" + Me.CBTagShibari.Size = New System.Drawing.Size(58, 17) + Me.CBTagShibari.TabIndex = 203 + Me.CBTagShibari.Text = "Shibari" + Me.CBTagShibari.UseVisualStyleBackColor = True + ' + 'GroupBox49 + ' + Me.GroupBox49.Controls.Add(Me.CBTagBodyMouth) + Me.GroupBox49.Controls.Add(Me.CBTagBodyAss) + Me.GroupBox49.Controls.Add(Me.CBTagBodyFace) + Me.GroupBox49.Controls.Add(Me.CBTagBodyLegs) + Me.GroupBox49.Controls.Add(Me.CBTagBodyBalls) + Me.GroupBox49.Controls.Add(Me.CBTagBodyCock) + Me.GroupBox49.Controls.Add(Me.CBTagBodyFeet) + Me.GroupBox49.Controls.Add(Me.CBTagBodyNipples) + Me.GroupBox49.Controls.Add(Me.CBTagBodyPussy) + Me.GroupBox49.Controls.Add(Me.CBTagBodyTits) + Me.GroupBox49.Controls.Add(Me.CBTagBodyFingers) + Me.GroupBox49.Location = New System.Drawing.Point(341, 37) + Me.GroupBox49.Name = "GroupBox49" + Me.GroupBox49.Size = New System.Drawing.Size(103, 238) + Me.GroupBox49.TabIndex = 236 + Me.GroupBox49.TabStop = False + Me.GroupBox49.Text = "Body Part" + ' + 'CBTagBodyMouth + ' + Me.CBTagBodyMouth.AutoSize = True + Me.CBTagBodyMouth.Enabled = False + Me.CBTagBodyMouth.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyMouth.Location = New System.Drawing.Point(14, 57) + Me.CBTagBodyMouth.Name = "CBTagBodyMouth" + Me.CBTagBodyMouth.Size = New System.Drawing.Size(56, 17) + Me.CBTagBodyMouth.TabIndex = 220 + Me.CBTagBodyMouth.Text = "Mouth" + Me.CBTagBodyMouth.UseVisualStyleBackColor = True + ' + 'CBTagBodyAss + ' + Me.CBTagBodyAss.AutoSize = True + Me.CBTagBodyAss.Enabled = False + Me.CBTagBodyAss.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyAss.Location = New System.Drawing.Point(15, 137) + Me.CBTagBodyAss.Name = "CBTagBodyAss" + Me.CBTagBodyAss.Size = New System.Drawing.Size(43, 17) + Me.CBTagBodyAss.TabIndex = 219 + Me.CBTagBodyAss.Text = "Ass" + Me.CBTagBodyAss.UseVisualStyleBackColor = True + ' + 'CBTagBodyFace + ' + Me.CBTagBodyFace.AutoSize = True + Me.CBTagBodyFace.Enabled = False + Me.CBTagBodyFace.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyFace.Location = New System.Drawing.Point(15, 17) + Me.CBTagBodyFace.Name = "CBTagBodyFace" + Me.CBTagBodyFace.Size = New System.Drawing.Size(50, 17) + Me.CBTagBodyFace.TabIndex = 203 + Me.CBTagBodyFace.Text = "Face" + Me.CBTagBodyFace.UseVisualStyleBackColor = True + ' + 'CBTagBodyLegs + ' + Me.CBTagBodyLegs.AutoSize = True + Me.CBTagBodyLegs.Enabled = False + Me.CBTagBodyLegs.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyLegs.Location = New System.Drawing.Point(15, 157) + Me.CBTagBodyLegs.Name = "CBTagBodyLegs" + Me.CBTagBodyLegs.Size = New System.Drawing.Size(49, 17) + Me.CBTagBodyLegs.TabIndex = 218 + Me.CBTagBodyLegs.Text = "Legs" + Me.CBTagBodyLegs.UseVisualStyleBackColor = True + ' + 'CBTagBodyBalls + ' + Me.CBTagBodyBalls.AutoSize = True + Me.CBTagBodyBalls.Enabled = False + Me.CBTagBodyBalls.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyBalls.Location = New System.Drawing.Point(15, 217) + Me.CBTagBodyBalls.Name = "CBTagBodyBalls" + Me.CBTagBodyBalls.Size = New System.Drawing.Size(48, 17) + Me.CBTagBodyBalls.TabIndex = 217 + Me.CBTagBodyBalls.Text = "Balls" + Me.CBTagBodyBalls.UseVisualStyleBackColor = True + ' + 'CBTagBodyCock + ' + Me.CBTagBodyCock.AutoSize = True + Me.CBTagBodyCock.Enabled = False + Me.CBTagBodyCock.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyCock.Location = New System.Drawing.Point(15, 197) + Me.CBTagBodyCock.Name = "CBTagBodyCock" + Me.CBTagBodyCock.Size = New System.Drawing.Size(51, 17) + Me.CBTagBodyCock.TabIndex = 216 + Me.CBTagBodyCock.Text = "Cock" + Me.CBTagBodyCock.UseVisualStyleBackColor = True + ' + 'CBTagBodyFeet + ' + Me.CBTagBodyFeet.AutoSize = True + Me.CBTagBodyFeet.Enabled = False + Me.CBTagBodyFeet.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyFeet.Location = New System.Drawing.Point(15, 177) + Me.CBTagBodyFeet.Name = "CBTagBodyFeet" + Me.CBTagBodyFeet.Size = New System.Drawing.Size(47, 17) + Me.CBTagBodyFeet.TabIndex = 215 + Me.CBTagBodyFeet.Text = "Feet" + Me.CBTagBodyFeet.UseVisualStyleBackColor = True + ' + 'CBTagBodyNipples + ' + Me.CBTagBodyNipples.AutoSize = True + Me.CBTagBodyNipples.Enabled = False + Me.CBTagBodyNipples.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyNipples.Location = New System.Drawing.Point(15, 97) + Me.CBTagBodyNipples.Name = "CBTagBodyNipples" + Me.CBTagBodyNipples.Size = New System.Drawing.Size(61, 17) + Me.CBTagBodyNipples.TabIndex = 207 + Me.CBTagBodyNipples.Text = "Nipples" + Me.CBTagBodyNipples.UseVisualStyleBackColor = True + ' + 'CBTagBodyPussy + ' + Me.CBTagBodyPussy.AutoSize = True + Me.CBTagBodyPussy.Enabled = False + Me.CBTagBodyPussy.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyPussy.Location = New System.Drawing.Point(15, 117) + Me.CBTagBodyPussy.Name = "CBTagBodyPussy" + Me.CBTagBodyPussy.Size = New System.Drawing.Size(54, 17) + Me.CBTagBodyPussy.TabIndex = 209 + Me.CBTagBodyPussy.Text = "Pussy" + Me.CBTagBodyPussy.UseVisualStyleBackColor = True + ' + 'CBTagBodyTits + ' + Me.CBTagBodyTits.AutoSize = True + Me.CBTagBodyTits.Enabled = False + Me.CBTagBodyTits.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyTits.Location = New System.Drawing.Point(15, 77) + Me.CBTagBodyTits.Name = "CBTagBodyTits" + Me.CBTagBodyTits.Size = New System.Drawing.Size(43, 17) + Me.CBTagBodyTits.TabIndex = 213 + Me.CBTagBodyTits.Text = "Tits" + Me.CBTagBodyTits.UseVisualStyleBackColor = True + ' + 'CBTagBodyFingers + ' + Me.CBTagBodyFingers.AutoSize = True + Me.CBTagBodyFingers.Enabled = False + Me.CBTagBodyFingers.ForeColor = System.Drawing.Color.Black + Me.CBTagBodyFingers.Location = New System.Drawing.Point(15, 37) + Me.CBTagBodyFingers.Name = "CBTagBodyFingers" + Me.CBTagBodyFingers.Size = New System.Drawing.Size(60, 17) + Me.CBTagBodyFingers.TabIndex = 210 + Me.CBTagBodyFingers.Text = "Fingers" + Me.CBTagBodyFingers.UseVisualStyleBackColor = True + ' + 'GroupBox46 + ' + Me.GroupBox46.Controls.Add(Me.CBTagMultiSub) + Me.GroupBox46.Controls.Add(Me.CBTagMultiDom) + Me.GroupBox46.Controls.Add(Me.CBTagFemdom) + Me.GroupBox46.Controls.Add(Me.CBTag2M) + Me.GroupBox46.Controls.Add(Me.CBTagFutadom) + Me.GroupBox46.Controls.Add(Me.CBTagFemsub) + Me.GroupBox46.Controls.Add(Me.CBTag2Futa) + Me.GroupBox46.Controls.Add(Me.CBTagMaledom) + Me.GroupBox46.Controls.Add(Me.CBTag3M) + Me.GroupBox46.Controls.Add(Me.CBTagFutasub) + Me.GroupBox46.Controls.Add(Me.CBTag3Futa) + Me.GroupBox46.Controls.Add(Me.CBTagMalesub) + Me.GroupBox46.Controls.Add(Me.CBTag2F) + Me.GroupBox46.Controls.Add(Me.CBTag1Futa) + Me.GroupBox46.Controls.Add(Me.CBTag1M) + Me.GroupBox46.Controls.Add(Me.CBTag1F) + Me.GroupBox46.Controls.Add(Me.CBTag3F) + Me.GroupBox46.Location = New System.Drawing.Point(230, 37) + Me.GroupBox46.Name = "GroupBox46" + Me.GroupBox46.Size = New System.Drawing.Size(105, 358) + Me.GroupBox46.TabIndex = 234 + Me.GroupBox46.TabStop = False + Me.GroupBox46.Text = "Genders && Roles" + ' + 'CBTagMultiSub + ' + Me.CBTagMultiSub.AutoSize = True + Me.CBTagMultiSub.Enabled = False + Me.CBTagMultiSub.ForeColor = System.Drawing.Color.Black + Me.CBTagMultiSub.Location = New System.Drawing.Point(15, 337) + Me.CBTagMultiSub.Name = "CBTagMultiSub" + Me.CBTagMultiSub.Size = New System.Drawing.Size(70, 17) + Me.CBTagMultiSub.TabIndex = 207 + Me.CBTagMultiSub.Text = "Multi-Sub" + Me.CBTagMultiSub.UseVisualStyleBackColor = True + ' + 'CBTagMultiDom + ' + Me.CBTagMultiDom.AutoSize = True + Me.CBTagMultiDom.Enabled = False + Me.CBTagMultiDom.ForeColor = System.Drawing.Color.Black + Me.CBTagMultiDom.Location = New System.Drawing.Point(15, 317) + Me.CBTagMultiDom.Name = "CBTagMultiDom" + Me.CBTagMultiDom.Size = New System.Drawing.Size(73, 17) + Me.CBTagMultiDom.TabIndex = 230 + Me.CBTagMultiDom.Text = "Multi-Dom" + Me.CBTagMultiDom.UseVisualStyleBackColor = True + ' + 'CBTagFemdom + ' + Me.CBTagFemdom.AutoSize = True + Me.CBTagFemdom.Enabled = False + Me.CBTagFemdom.ForeColor = System.Drawing.Color.Black + Me.CBTagFemdom.Location = New System.Drawing.Point(15, 197) + Me.CBTagFemdom.Name = "CBTagFemdom" + Me.CBTagFemdom.Size = New System.Drawing.Size(66, 17) + Me.CBTagFemdom.TabIndex = 229 + Me.CBTagFemdom.Text = "Femdom" + Me.CBTagFemdom.UseVisualStyleBackColor = True + ' + 'CBTag2M + ' + Me.CBTag2M.AutoSize = True + Me.CBTag2M.Enabled = False + Me.CBTag2M.ForeColor = System.Drawing.Color.Black + Me.CBTag2M.Location = New System.Drawing.Point(15, 97) + Me.CBTag2M.Name = "CBTag2M" + Me.CBTag2M.Size = New System.Drawing.Size(56, 17) + Me.CBTag2M.TabIndex = 206 + Me.CBTag2M.Text = "2 Men" + Me.CBTag2M.UseVisualStyleBackColor = True + ' + 'CBTagFutadom + ' + Me.CBTagFutadom.AutoSize = True + Me.CBTagFutadom.Enabled = False + Me.CBTagFutadom.ForeColor = System.Drawing.Color.Black + Me.CBTagFutadom.Location = New System.Drawing.Point(15, 237) + Me.CBTagFutadom.Name = "CBTagFutadom" + Me.CBTagFutadom.Size = New System.Drawing.Size(67, 17) + Me.CBTagFutadom.TabIndex = 204 + Me.CBTagFutadom.Text = "Futadom" + Me.CBTagFutadom.UseVisualStyleBackColor = True + ' + 'CBTagFemsub + ' + Me.CBTagFemsub.AutoSize = True + Me.CBTagFemsub.Enabled = False + Me.CBTagFemsub.ForeColor = System.Drawing.Color.Black + Me.CBTagFemsub.Location = New System.Drawing.Point(15, 257) + Me.CBTagFemsub.Name = "CBTagFemsub" + Me.CBTagFemsub.Size = New System.Drawing.Size(63, 17) + Me.CBTagFemsub.TabIndex = 205 + Me.CBTagFemsub.Text = "Femsub" + Me.CBTagFemsub.UseVisualStyleBackColor = True + ' + 'CBTag2Futa + ' + Me.CBTag2Futa.AutoSize = True + Me.CBTag2Futa.Enabled = False + Me.CBTag2Futa.ForeColor = System.Drawing.Color.Black + Me.CBTag2Futa.Location = New System.Drawing.Point(15, 157) + Me.CBTag2Futa.Name = "CBTag2Futa" + Me.CBTag2Futa.Size = New System.Drawing.Size(56, 17) + Me.CBTag2Futa.TabIndex = 186 + Me.CBTag2Futa.Text = "2 Futa" + Me.CBTag2Futa.UseVisualStyleBackColor = True + ' + 'CBTagMaledom + ' + Me.CBTagMaledom.AutoSize = True + Me.CBTagMaledom.Enabled = False + Me.CBTagMaledom.ForeColor = System.Drawing.Color.Black + Me.CBTagMaledom.Location = New System.Drawing.Point(15, 217) + Me.CBTagMaledom.Name = "CBTagMaledom" + Me.CBTagMaledom.Size = New System.Drawing.Size(69, 17) + Me.CBTagMaledom.TabIndex = 206 + Me.CBTagMaledom.Text = "Maledom" + Me.CBTagMaledom.UseVisualStyleBackColor = True + ' + 'CBTag3M + ' + Me.CBTag3M.AutoSize = True + Me.CBTag3M.Enabled = False + Me.CBTag3M.ForeColor = System.Drawing.Color.Black + Me.CBTag3M.Location = New System.Drawing.Point(15, 117) + Me.CBTag3M.Name = "CBTag3M" + Me.CBTag3M.Size = New System.Drawing.Size(56, 17) + Me.CBTag3M.TabIndex = 190 + Me.CBTag3M.Text = "3 Men" + Me.CBTag3M.UseVisualStyleBackColor = True + ' + 'CBTagFutasub + ' + Me.CBTagFutasub.AutoSize = True + Me.CBTagFutasub.Enabled = False + Me.CBTagFutasub.ForeColor = System.Drawing.Color.Black + Me.CBTagFutasub.Location = New System.Drawing.Point(15, 297) + Me.CBTagFutasub.Name = "CBTagFutasub" + Me.CBTagFutasub.Size = New System.Drawing.Size(64, 17) + Me.CBTagFutasub.TabIndex = 213 + Me.CBTagFutasub.Text = "Futasub" + Me.CBTagFutasub.UseVisualStyleBackColor = True + ' + 'CBTag3Futa + ' + Me.CBTag3Futa.AutoSize = True + Me.CBTag3Futa.Enabled = False + Me.CBTag3Futa.ForeColor = System.Drawing.Color.Black + Me.CBTag3Futa.Location = New System.Drawing.Point(15, 177) + Me.CBTag3Futa.Name = "CBTag3Futa" + Me.CBTag3Futa.Size = New System.Drawing.Size(56, 17) + Me.CBTag3Futa.TabIndex = 197 + Me.CBTag3Futa.Text = "3 Futa" + Me.CBTag3Futa.UseVisualStyleBackColor = True + ' + 'CBTagMalesub + ' + Me.CBTagMalesub.AutoSize = True + Me.CBTagMalesub.Enabled = False + Me.CBTagMalesub.ForeColor = System.Drawing.Color.Black + Me.CBTagMalesub.Location = New System.Drawing.Point(15, 277) + Me.CBTagMalesub.Name = "CBTagMalesub" + Me.CBTagMalesub.Size = New System.Drawing.Size(66, 17) + Me.CBTagMalesub.TabIndex = 210 + Me.CBTagMalesub.Text = "Malesub" + Me.CBTagMalesub.UseVisualStyleBackColor = True + ' + 'CBTag2F + ' + Me.CBTag2F.AutoSize = True + Me.CBTag2F.Enabled = False + Me.CBTag2F.ForeColor = System.Drawing.Color.Black + Me.CBTag2F.Location = New System.Drawing.Point(15, 37) + Me.CBTag2F.Name = "CBTag2F" + Me.CBTag2F.Size = New System.Drawing.Size(72, 17) + Me.CBTag2F.TabIndex = 188 + Me.CBTag2F.Text = "2 Women" + Me.CBTag2F.UseVisualStyleBackColor = True + ' + 'CBTag1Futa + ' + Me.CBTag1Futa.AutoSize = True + Me.CBTag1Futa.Enabled = False + Me.CBTag1Futa.ForeColor = System.Drawing.Color.Black + Me.CBTag1Futa.Location = New System.Drawing.Point(15, 137) + Me.CBTag1Futa.Name = "CBTag1Futa" + Me.CBTag1Futa.Size = New System.Drawing.Size(56, 17) + Me.CBTag1Futa.TabIndex = 191 + Me.CBTag1Futa.Text = "1 Futa" + Me.CBTag1Futa.UseVisualStyleBackColor = True + ' + 'CBTag1M + ' + Me.CBTag1M.AutoSize = True + Me.CBTag1M.Enabled = False + Me.CBTag1M.ForeColor = System.Drawing.Color.Black + Me.CBTag1M.Location = New System.Drawing.Point(15, 77) + Me.CBTag1M.Name = "CBTag1M" + Me.CBTag1M.Size = New System.Drawing.Size(56, 17) + Me.CBTag1M.TabIndex = 189 + Me.CBTag1M.Text = "1 Man" + Me.CBTag1M.UseVisualStyleBackColor = True + ' + 'CBTag1F + ' + Me.CBTag1F.AutoSize = True + Me.CBTag1F.Enabled = False + Me.CBTag1F.ForeColor = System.Drawing.Color.Black + Me.CBTag1F.Location = New System.Drawing.Point(15, 17) + Me.CBTag1F.Name = "CBTag1F" + Me.CBTag1F.Size = New System.Drawing.Size(72, 17) + Me.CBTag1F.TabIndex = 185 + Me.CBTag1F.Text = "1 Woman" + Me.CBTag1F.UseVisualStyleBackColor = True + ' + 'CBTag3F + ' + Me.CBTag3F.AutoSize = True + Me.CBTag3F.Enabled = False + Me.CBTag3F.ForeColor = System.Drawing.Color.Black + Me.CBTag3F.Location = New System.Drawing.Point(15, 57) + Me.CBTag3F.Name = "CBTag3F" + Me.CBTag3F.Size = New System.Drawing.Size(72, 17) + Me.CBTag3F.TabIndex = 192 + Me.CBTag3F.Text = "3 Women" + Me.CBTag3F.UseVisualStyleBackColor = True + ' + 'GroupBox54 + ' + Me.GroupBox54.Controls.Add(Me.CBTagTattoos) + Me.GroupBox54.Controls.Add(Me.CBTagAnalToy) + Me.GroupBox54.Controls.Add(Me.CBTagDomme) + Me.GroupBox54.Controls.Add(Me.CBTagPocketPussy) + Me.GroupBox54.Controls.Add(Me.CBTagWatersports) + Me.GroupBox54.Controls.Add(Me.CBTagStockings) + Me.GroupBox54.Controls.Add(Me.CBTagCumshot) + Me.GroupBox54.Controls.Add(Me.CBTagCumEating) + Me.GroupBox54.Controls.Add(Me.CBTagVibrator) + Me.GroupBox54.Controls.Add(Me.CBTagDildo) + Me.GroupBox54.Controls.Add(Me.CBTagKissing) + Me.GroupBox54.Location = New System.Drawing.Point(561, 37) + Me.GroupBox54.Name = "GroupBox54" + Me.GroupBox54.Size = New System.Drawing.Size(135, 238) + Me.GroupBox54.TabIndex = 239 + Me.GroupBox54.TabStop = False + Me.GroupBox54.Text = "Misc" + ' + 'CBTagTattoos + ' + Me.CBTagTattoos.AutoSize = True + Me.CBTagTattoos.Enabled = False + Me.CBTagTattoos.ForeColor = System.Drawing.Color.Black + Me.CBTagTattoos.Location = New System.Drawing.Point(15, 97) + Me.CBTagTattoos.Name = "CBTagTattoos" + Me.CBTagTattoos.Size = New System.Drawing.Size(62, 17) + Me.CBTagTattoos.TabIndex = 214 + Me.CBTagTattoos.Text = "Tattoos" + Me.CBTagTattoos.UseVisualStyleBackColor = True + ' + 'CBTagAnalToy + ' + Me.CBTagAnalToy.AutoSize = True + Me.CBTagAnalToy.Enabled = False + Me.CBTagAnalToy.ForeColor = System.Drawing.Color.Black + Me.CBTagAnalToy.Location = New System.Drawing.Point(15, 197) + Me.CBTagAnalToy.Name = "CBTagAnalToy" + Me.CBTagAnalToy.Size = New System.Drawing.Size(68, 17) + Me.CBTagAnalToy.TabIndex = 215 + Me.CBTagAnalToy.Text = "Anal Toy" + Me.CBTagAnalToy.UseVisualStyleBackColor = True + ' + 'CBTagDomme + ' + Me.CBTagDomme.AutoSize = True + Me.CBTagDomme.Enabled = False + Me.CBTagDomme.ForeColor = System.Drawing.Color.Black + Me.CBTagDomme.Location = New System.Drawing.Point(15, 17) + Me.CBTagDomme.Name = "CBTagDomme" + Me.CBTagDomme.Size = New System.Drawing.Size(114, 17) + Me.CBTagDomme.TabIndex = 219 + Me.CBTagDomme.Text = "Tease A.I. Domme" + Me.CBTagDomme.UseVisualStyleBackColor = True + ' + 'CBTagPocketPussy + ' + Me.CBTagPocketPussy.AutoSize = True + Me.CBTagPocketPussy.Enabled = False + Me.CBTagPocketPussy.ForeColor = System.Drawing.Color.Black + Me.CBTagPocketPussy.Location = New System.Drawing.Point(15, 177) + Me.CBTagPocketPussy.Name = "CBTagPocketPussy" + Me.CBTagPocketPussy.Size = New System.Drawing.Size(91, 17) + Me.CBTagPocketPussy.TabIndex = 205 + Me.CBTagPocketPussy.Text = "Pocket Pussy" + Me.CBTagPocketPussy.UseVisualStyleBackColor = True + ' + 'CBTagWatersports + ' + Me.CBTagWatersports.AutoSize = True + Me.CBTagWatersports.Enabled = False + Me.CBTagWatersports.ForeColor = System.Drawing.Color.Black + Me.CBTagWatersports.Location = New System.Drawing.Point(15, 217) + Me.CBTagWatersports.Name = "CBTagWatersports" + Me.CBTagWatersports.Size = New System.Drawing.Size(83, 17) + Me.CBTagWatersports.TabIndex = 218 + Me.CBTagWatersports.Text = "Watersports" + Me.CBTagWatersports.UseVisualStyleBackColor = True + ' + 'CBTagStockings + ' + Me.CBTagStockings.AutoSize = True + Me.CBTagStockings.Enabled = False + Me.CBTagStockings.ForeColor = System.Drawing.Color.Black + Me.CBTagStockings.Location = New System.Drawing.Point(15, 117) + Me.CBTagStockings.Name = "CBTagStockings" + Me.CBTagStockings.Size = New System.Drawing.Size(73, 17) + Me.CBTagStockings.TabIndex = 217 + Me.CBTagStockings.Text = "Stockings" + Me.CBTagStockings.UseVisualStyleBackColor = True + ' + 'CBTagCumshot + ' + Me.CBTagCumshot.AutoSize = True + Me.CBTagCumshot.Enabled = False + Me.CBTagCumshot.ForeColor = System.Drawing.Color.Black + Me.CBTagCumshot.Location = New System.Drawing.Point(15, 37) + Me.CBTagCumshot.Name = "CBTagCumshot" + Me.CBTagCumshot.Size = New System.Drawing.Size(67, 17) + Me.CBTagCumshot.TabIndex = 206 + Me.CBTagCumshot.Text = "Cumshot" + Me.CBTagCumshot.UseVisualStyleBackColor = True + ' + 'CBTagCumEating + ' + Me.CBTagCumEating.AutoSize = True + Me.CBTagCumEating.Enabled = False + Me.CBTagCumEating.ForeColor = System.Drawing.Color.Black + Me.CBTagCumEating.Location = New System.Drawing.Point(15, 57) + Me.CBTagCumEating.Name = "CBTagCumEating" + Me.CBTagCumEating.Size = New System.Drawing.Size(80, 17) + Me.CBTagCumEating.TabIndex = 204 + Me.CBTagCumEating.Text = "Cum Eating" + Me.CBTagCumEating.UseVisualStyleBackColor = True + ' + 'CBTagVibrator + ' + Me.CBTagVibrator.AutoSize = True + Me.CBTagVibrator.Enabled = False + Me.CBTagVibrator.ForeColor = System.Drawing.Color.Black + Me.CBTagVibrator.Location = New System.Drawing.Point(15, 137) + Me.CBTagVibrator.Name = "CBTagVibrator" + Me.CBTagVibrator.Size = New System.Drawing.Size(62, 17) + Me.CBTagVibrator.TabIndex = 210 + Me.CBTagVibrator.Text = "Vibrator" + Me.CBTagVibrator.UseVisualStyleBackColor = True + ' + 'CBTagDildo + ' + Me.CBTagDildo.AutoSize = True + Me.CBTagDildo.Enabled = False + Me.CBTagDildo.ForeColor = System.Drawing.Color.Black + Me.CBTagDildo.Location = New System.Drawing.Point(15, 157) + Me.CBTagDildo.Name = "CBTagDildo" + Me.CBTagDildo.Size = New System.Drawing.Size(50, 17) + Me.CBTagDildo.TabIndex = 213 + Me.CBTagDildo.Text = "Dildo" + Me.CBTagDildo.UseVisualStyleBackColor = True + ' + 'CBTagKissing + ' + Me.CBTagKissing.AutoSize = True + Me.CBTagKissing.Enabled = False + Me.CBTagKissing.ForeColor = System.Drawing.Color.Black + Me.CBTagKissing.Location = New System.Drawing.Point(15, 77) + Me.CBTagKissing.Name = "CBTagKissing" + Me.CBTagKissing.Size = New System.Drawing.Size(59, 17) + Me.CBTagKissing.TabIndex = 203 + Me.CBTagKissing.Text = "Kissing" + Me.CBTagKissing.UseVisualStyleBackColor = True + ' + 'GroupBox51 + ' + Me.GroupBox51.Controls.Add(Me.CBTagBallTorture) + Me.GroupBox51.Controls.Add(Me.CBTagGag) + Me.GroupBox51.Controls.Add(Me.CBTagBlindfold) + Me.GroupBox51.Controls.Add(Me.CBTagWhipping) + Me.GroupBox51.Controls.Add(Me.CBTagCockTorture) + Me.GroupBox51.Controls.Add(Me.CBTagElectro) + Me.GroupBox51.Controls.Add(Me.CBTagHotWax) + Me.GroupBox51.Controls.Add(Me.CBTagClamps) + Me.GroupBox51.Controls.Add(Me.CBTagStrapon) + Me.GroupBox51.Controls.Add(Me.CBTagSpanking) + Me.GroupBox51.Controls.Add(Me.CBTagNeedles) + Me.GroupBox51.Location = New System.Drawing.Point(450, 37) + Me.GroupBox51.Name = "GroupBox51" + Me.GroupBox51.Size = New System.Drawing.Size(105, 238) + Me.GroupBox51.TabIndex = 238 + Me.GroupBox51.TabStop = False + Me.GroupBox51.Text = "BDSM" + ' + 'CBTagBallTorture + ' + Me.CBTagBallTorture.AutoSize = True + Me.CBTagBallTorture.Enabled = False + Me.CBTagBallTorture.ForeColor = System.Drawing.Color.Black + Me.CBTagBallTorture.Location = New System.Drawing.Point(15, 77) + Me.CBTagBallTorture.Name = "CBTagBallTorture" + Me.CBTagBallTorture.Size = New System.Drawing.Size(80, 17) + Me.CBTagBallTorture.TabIndex = 220 + Me.CBTagBallTorture.Text = "Ball Torture" + Me.CBTagBallTorture.UseVisualStyleBackColor = True + ' + 'CBTagGag + ' + Me.CBTagGag.AutoSize = True + Me.CBTagGag.Enabled = False + Me.CBTagGag.ForeColor = System.Drawing.Color.Black + Me.CBTagGag.Location = New System.Drawing.Point(15, 137) + Me.CBTagGag.Name = "CBTagGag" + Me.CBTagGag.Size = New System.Drawing.Size(46, 17) + Me.CBTagGag.TabIndex = 214 + Me.CBTagGag.Text = "Gag" + Me.CBTagGag.UseVisualStyleBackColor = True + ' + 'CBTagBlindfold + ' + Me.CBTagBlindfold.AutoSize = True + Me.CBTagBlindfold.Enabled = False + Me.CBTagBlindfold.ForeColor = System.Drawing.Color.Black + Me.CBTagBlindfold.Location = New System.Drawing.Point(15, 117) + Me.CBTagBlindfold.Name = "CBTagBlindfold" + Me.CBTagBlindfold.Size = New System.Drawing.Size(66, 17) + Me.CBTagBlindfold.TabIndex = 208 + Me.CBTagBlindfold.Text = "Blindfold" + Me.CBTagBlindfold.UseVisualStyleBackColor = True + ' + 'CBTagWhipping + ' + Me.CBTagWhipping.AutoSize = True + Me.CBTagWhipping.Enabled = False + Me.CBTagWhipping.ForeColor = System.Drawing.Color.Black + Me.CBTagWhipping.Location = New System.Drawing.Point(15, 17) + Me.CBTagWhipping.Name = "CBTagWhipping" + Me.CBTagWhipping.Size = New System.Drawing.Size(71, 17) + Me.CBTagWhipping.TabIndex = 203 + Me.CBTagWhipping.Text = "Whipping" + Me.CBTagWhipping.UseVisualStyleBackColor = True + ' + 'CBTagCockTorture + ' + Me.CBTagCockTorture.AutoSize = True + Me.CBTagCockTorture.Enabled = False + Me.CBTagCockTorture.ForeColor = System.Drawing.Color.Black + Me.CBTagCockTorture.Location = New System.Drawing.Point(15, 57) + Me.CBTagCockTorture.Name = "CBTagCockTorture" + Me.CBTagCockTorture.Size = New System.Drawing.Size(88, 17) + Me.CBTagCockTorture.TabIndex = 204 + Me.CBTagCockTorture.Text = "Cock Torture" + Me.CBTagCockTorture.UseVisualStyleBackColor = True + ' + 'CBTagElectro + ' + Me.CBTagElectro.AutoSize = True + Me.CBTagElectro.Enabled = False + Me.CBTagElectro.ForeColor = System.Drawing.Color.Black + Me.CBTagElectro.Location = New System.Drawing.Point(15, 217) + Me.CBTagElectro.Name = "CBTagElectro" + Me.CBTagElectro.Size = New System.Drawing.Size(59, 17) + Me.CBTagElectro.TabIndex = 207 + Me.CBTagElectro.Text = "Electro" + Me.CBTagElectro.UseVisualStyleBackColor = True + ' + 'CBTagHotWax + ' + Me.CBTagHotWax.AutoSize = True + Me.CBTagHotWax.Enabled = False + Me.CBTagHotWax.ForeColor = System.Drawing.Color.Black + Me.CBTagHotWax.Location = New System.Drawing.Point(15, 177) + Me.CBTagHotWax.Name = "CBTagHotWax" + Me.CBTagHotWax.Size = New System.Drawing.Size(68, 17) + Me.CBTagHotWax.TabIndex = 213 + Me.CBTagHotWax.Text = "Hot Wax" + Me.CBTagHotWax.UseVisualStyleBackColor = True + ' + 'CBTagClamps + ' + Me.CBTagClamps.AutoSize = True + Me.CBTagClamps.Enabled = False + Me.CBTagClamps.ForeColor = System.Drawing.Color.Black + Me.CBTagClamps.Location = New System.Drawing.Point(15, 157) + Me.CBTagClamps.Name = "CBTagClamps" + Me.CBTagClamps.Size = New System.Drawing.Size(60, 17) + Me.CBTagClamps.TabIndex = 210 + Me.CBTagClamps.Text = "Clamps" + Me.CBTagClamps.UseVisualStyleBackColor = True + ' + 'CBTagStrapon + ' + Me.CBTagStrapon.AutoSize = True + Me.CBTagStrapon.Enabled = False + Me.CBTagStrapon.ForeColor = System.Drawing.Color.Black + Me.CBTagStrapon.Location = New System.Drawing.Point(15, 97) + Me.CBTagStrapon.Name = "CBTagStrapon" + Me.CBTagStrapon.Size = New System.Drawing.Size(66, 17) + Me.CBTagStrapon.TabIndex = 205 + Me.CBTagStrapon.Text = "Strap-on" + Me.CBTagStrapon.UseVisualStyleBackColor = True + ' + 'CBTagSpanking + ' + Me.CBTagSpanking.AutoSize = True + Me.CBTagSpanking.Enabled = False + Me.CBTagSpanking.ForeColor = System.Drawing.Color.Black + Me.CBTagSpanking.Location = New System.Drawing.Point(15, 37) + Me.CBTagSpanking.Name = "CBTagSpanking" + Me.CBTagSpanking.Size = New System.Drawing.Size(71, 17) + Me.CBTagSpanking.TabIndex = 206 + Me.CBTagSpanking.Text = "Spanking" + Me.CBTagSpanking.UseVisualStyleBackColor = True + ' + 'CBTagNeedles + ' + Me.CBTagNeedles.AutoSize = True + Me.CBTagNeedles.Enabled = False + Me.CBTagNeedles.ForeColor = System.Drawing.Color.Black + Me.CBTagNeedles.Location = New System.Drawing.Point(15, 197) + Me.CBTagNeedles.Name = "CBTagNeedles" + Me.CBTagNeedles.Size = New System.Drawing.Size(65, 17) + Me.CBTagNeedles.TabIndex = 209 + Me.CBTagNeedles.Text = "Needles" + Me.CBTagNeedles.UseVisualStyleBackColor = True + ' + 'GroupBox50 + ' + Me.GroupBox50.Controls.Add(Me.CBTagRimming) + Me.GroupBox50.Controls.Add(Me.CBTagFacesitting) + Me.GroupBox50.Controls.Add(Me.CBTagMissionary) + Me.GroupBox50.Controls.Add(Me.CBTagMasturbation) + Me.GroupBox50.Controls.Add(Me.CBTagRCowgirl) + Me.GroupBox50.Controls.Add(Me.CBTagFingering) + Me.GroupBox50.Controls.Add(Me.CBTagGangbang) + Me.GroupBox50.Controls.Add(Me.CBTagBlowjob) + Me.GroupBox50.Controls.Add(Me.CBTagDP) + Me.GroupBox50.Controls.Add(Me.CBTagHandjob) + Me.GroupBox50.Controls.Add(Me.CBTagStanding) + Me.GroupBox50.Controls.Add(Me.CBTagFootjob) + Me.GroupBox50.Controls.Add(Me.CBTagCowgirl) + Me.GroupBox50.Controls.Add(Me.CBTagDoggyStyle) + Me.GroupBox50.Controls.Add(Me.CBTagTitjob) + Me.GroupBox50.Controls.Add(Me.CBTagCunnilingus) + Me.GroupBox50.Controls.Add(Me.CBTagAnalSex) + Me.GroupBox50.Location = New System.Drawing.Point(119, 37) + Me.GroupBox50.Name = "GroupBox50" + Me.GroupBox50.Size = New System.Drawing.Size(105, 358) + Me.GroupBox50.TabIndex = 237 + Me.GroupBox50.TabStop = False + Me.GroupBox50.Text = "Sex" + ' + 'CBTagRimming + ' + Me.CBTagRimming.AutoSize = True + Me.CBTagRimming.Enabled = False + Me.CBTagRimming.ForeColor = System.Drawing.Color.Black + Me.CBTagRimming.Location = New System.Drawing.Point(15, 177) + Me.CBTagRimming.Name = "CBTagRimming" + Me.CBTagRimming.Size = New System.Drawing.Size(66, 17) + Me.CBTagRimming.TabIndex = 219 + Me.CBTagRimming.Text = "Rimming" + Me.CBTagRimming.UseVisualStyleBackColor = True + ' + 'CBTagFacesitting + ' + Me.CBTagFacesitting.AutoSize = True + Me.CBTagFacesitting.Enabled = False + Me.CBTagFacesitting.ForeColor = System.Drawing.Color.Black + Me.CBTagFacesitting.Location = New System.Drawing.Point(15, 157) + Me.CBTagFacesitting.Name = "CBTagFacesitting" + Me.CBTagFacesitting.Size = New System.Drawing.Size(77, 17) + Me.CBTagFacesitting.TabIndex = 226 + Me.CBTagFacesitting.Text = "Facesitting" + Me.CBTagFacesitting.UseVisualStyleBackColor = True + ' + 'CBTagMissionary + ' + Me.CBTagMissionary.AutoSize = True + Me.CBTagMissionary.Enabled = False + Me.CBTagMissionary.ForeColor = System.Drawing.Color.Black + Me.CBTagMissionary.Location = New System.Drawing.Point(15, 197) + Me.CBTagMissionary.Name = "CBTagMissionary" + Me.CBTagMissionary.Size = New System.Drawing.Size(75, 17) + Me.CBTagMissionary.TabIndex = 208 + Me.CBTagMissionary.Text = "Missionary" + Me.CBTagMissionary.UseVisualStyleBackColor = True + ' + 'CBTagMasturbation + ' + Me.CBTagMasturbation.AutoSize = True + Me.CBTagMasturbation.Enabled = False + Me.CBTagMasturbation.ForeColor = System.Drawing.Color.Black + Me.CBTagMasturbation.Location = New System.Drawing.Point(15, 17) + Me.CBTagMasturbation.Name = "CBTagMasturbation" + Me.CBTagMasturbation.Size = New System.Drawing.Size(87, 17) + Me.CBTagMasturbation.TabIndex = 203 + Me.CBTagMasturbation.Text = "Masturbation" + Me.CBTagMasturbation.UseVisualStyleBackColor = True + ' + 'CBTagRCowgirl + ' + Me.CBTagRCowgirl.AutoSize = True + Me.CBTagRCowgirl.Enabled = False + Me.CBTagRCowgirl.ForeColor = System.Drawing.Color.Black + Me.CBTagRCowgirl.Location = New System.Drawing.Point(15, 257) + Me.CBTagRCowgirl.Name = "CBTagRCowgirl" + Me.CBTagRCowgirl.Size = New System.Drawing.Size(74, 17) + Me.CBTagRCowgirl.TabIndex = 218 + Me.CBTagRCowgirl.Text = "R. Cowgirl" + Me.CBTagRCowgirl.UseVisualStyleBackColor = True + ' + 'CBTagFingering + ' + Me.CBTagFingering.AutoSize = True + Me.CBTagFingering.Enabled = False + Me.CBTagFingering.ForeColor = System.Drawing.Color.Black + Me.CBTagFingering.Location = New System.Drawing.Point(15, 57) + Me.CBTagFingering.Name = "CBTagFingering" + Me.CBTagFingering.Size = New System.Drawing.Size(69, 17) + Me.CBTagFingering.TabIndex = 204 + Me.CBTagFingering.Text = "Fingering" + Me.CBTagFingering.UseVisualStyleBackColor = True + ' + 'CBTagGangbang + ' + Me.CBTagGangbang.AutoSize = True + Me.CBTagGangbang.Enabled = False + Me.CBTagGangbang.ForeColor = System.Drawing.Color.Black + Me.CBTagGangbang.Location = New System.Drawing.Point(15, 337) + Me.CBTagGangbang.Name = "CBTagGangbang" + Me.CBTagGangbang.Size = New System.Drawing.Size(76, 17) + Me.CBTagGangbang.TabIndex = 217 + Me.CBTagGangbang.Text = "Gangbang" + Me.CBTagGangbang.UseVisualStyleBackColor = True + ' + 'CBTagBlowjob + ' + Me.CBTagBlowjob.AutoSize = True + Me.CBTagBlowjob.Enabled = False + Me.CBTagBlowjob.ForeColor = System.Drawing.Color.Black + Me.CBTagBlowjob.Location = New System.Drawing.Point(15, 77) + Me.CBTagBlowjob.Name = "CBTagBlowjob" + Me.CBTagBlowjob.Size = New System.Drawing.Size(63, 17) + Me.CBTagBlowjob.TabIndex = 205 + Me.CBTagBlowjob.Text = "Blowjob" + Me.CBTagBlowjob.UseVisualStyleBackColor = True + ' + 'CBTagDP + ' + Me.CBTagDP.AutoSize = True + Me.CBTagDP.Enabled = False + Me.CBTagDP.ForeColor = System.Drawing.Color.Black + Me.CBTagDP.Location = New System.Drawing.Point(15, 317) + Me.CBTagDP.Name = "CBTagDP" + Me.CBTagDP.Size = New System.Drawing.Size(41, 17) + Me.CBTagDP.TabIndex = 216 + Me.CBTagDP.Text = "DP" + Me.CBTagDP.UseVisualStyleBackColor = True + ' + 'CBTagHandjob + ' + Me.CBTagHandjob.AutoSize = True + Me.CBTagHandjob.Enabled = False + Me.CBTagHandjob.ForeColor = System.Drawing.Color.Black + Me.CBTagHandjob.Location = New System.Drawing.Point(15, 37) + Me.CBTagHandjob.Name = "CBTagHandjob" + Me.CBTagHandjob.Size = New System.Drawing.Size(66, 17) + Me.CBTagHandjob.TabIndex = 206 + Me.CBTagHandjob.Text = "Handjob" + Me.CBTagHandjob.UseVisualStyleBackColor = True + ' + 'CBTagStanding + ' + Me.CBTagStanding.AutoSize = True + Me.CBTagStanding.Enabled = False + Me.CBTagStanding.ForeColor = System.Drawing.Color.Black + Me.CBTagStanding.Location = New System.Drawing.Point(15, 277) + Me.CBTagStanding.Name = "CBTagStanding" + Me.CBTagStanding.Size = New System.Drawing.Size(68, 17) + Me.CBTagStanding.TabIndex = 215 + Me.CBTagStanding.Text = "Standing" + Me.CBTagStanding.UseVisualStyleBackColor = True + ' + 'CBTagFootjob + ' + Me.CBTagFootjob.AutoSize = True + Me.CBTagFootjob.Enabled = False + Me.CBTagFootjob.ForeColor = System.Drawing.Color.Black + Me.CBTagFootjob.Location = New System.Drawing.Point(15, 137) + Me.CBTagFootjob.Name = "CBTagFootjob" + Me.CBTagFootjob.Size = New System.Drawing.Size(61, 17) + Me.CBTagFootjob.TabIndex = 207 + Me.CBTagFootjob.Text = "Footjob" + Me.CBTagFootjob.UseVisualStyleBackColor = True + ' + 'CBTagCowgirl + ' + Me.CBTagCowgirl.AutoSize = True + Me.CBTagCowgirl.Enabled = False + Me.CBTagCowgirl.ForeColor = System.Drawing.Color.Black + Me.CBTagCowgirl.Location = New System.Drawing.Point(15, 237) + Me.CBTagCowgirl.Name = "CBTagCowgirl" + Me.CBTagCowgirl.Size = New System.Drawing.Size(60, 17) + Me.CBTagCowgirl.TabIndex = 214 + Me.CBTagCowgirl.Text = "Cowgirl" + Me.CBTagCowgirl.UseVisualStyleBackColor = True + ' + 'CBTagDoggyStyle + ' + Me.CBTagDoggyStyle.AutoSize = True + Me.CBTagDoggyStyle.Enabled = False + Me.CBTagDoggyStyle.ForeColor = System.Drawing.Color.Black + Me.CBTagDoggyStyle.Location = New System.Drawing.Point(15, 217) + Me.CBTagDoggyStyle.Name = "CBTagDoggyStyle" + Me.CBTagDoggyStyle.Size = New System.Drawing.Size(83, 17) + Me.CBTagDoggyStyle.TabIndex = 209 + Me.CBTagDoggyStyle.Text = "Doggy Style" + Me.CBTagDoggyStyle.UseVisualStyleBackColor = True + ' + 'CBTagTitjob + ' + Me.CBTagTitjob.AutoSize = True + Me.CBTagTitjob.Enabled = False + Me.CBTagTitjob.ForeColor = System.Drawing.Color.Black + Me.CBTagTitjob.Location = New System.Drawing.Point(15, 117) + Me.CBTagTitjob.Name = "CBTagTitjob" + Me.CBTagTitjob.Size = New System.Drawing.Size(52, 17) + Me.CBTagTitjob.TabIndex = 213 + Me.CBTagTitjob.Text = "Titjob" + Me.CBTagTitjob.UseVisualStyleBackColor = True + ' + 'CBTagCunnilingus + ' + Me.CBTagCunnilingus.AutoSize = True + Me.CBTagCunnilingus.Enabled = False + Me.CBTagCunnilingus.ForeColor = System.Drawing.Color.Black + Me.CBTagCunnilingus.Location = New System.Drawing.Point(15, 97) + Me.CBTagCunnilingus.Name = "CBTagCunnilingus" + Me.CBTagCunnilingus.Size = New System.Drawing.Size(80, 17) + Me.CBTagCunnilingus.TabIndex = 210 + Me.CBTagCunnilingus.Text = "Cunnilingus" + Me.CBTagCunnilingus.UseVisualStyleBackColor = True + ' + 'CBTagAnalSex + ' + Me.CBTagAnalSex.AutoSize = True + Me.CBTagAnalSex.Enabled = False + Me.CBTagAnalSex.ForeColor = System.Drawing.Color.Black + Me.CBTagAnalSex.Location = New System.Drawing.Point(15, 297) + Me.CBTagAnalSex.Name = "CBTagAnalSex" + Me.CBTagAnalSex.Size = New System.Drawing.Size(68, 17) + Me.CBTagAnalSex.TabIndex = 212 + Me.CBTagAnalSex.Text = "Anal Sex" + Me.CBTagAnalSex.UseVisualStyleBackColor = True + ' + 'GroupBox48 + ' + Me.GroupBox48.Controls.Add(Me.CBTagArtwork) + Me.GroupBox48.Controls.Add(Me.CBTagOutdoors) + Me.GroupBox48.Controls.Add(Me.CBTagPOV) + Me.GroupBox48.Controls.Add(Me.CBTagHardcore) + Me.GroupBox48.Controls.Add(Me.CBTagTD) + Me.GroupBox48.Controls.Add(Me.CBTagGay) + Me.GroupBox48.Controls.Add(Me.CBTagBath) + Me.GroupBox48.Controls.Add(Me.CBTagBisexual) + Me.GroupBox48.Controls.Add(Me.CBTagCFNM) + Me.GroupBox48.Controls.Add(Me.CBTagLesbian) + Me.GroupBox48.Controls.Add(Me.CBTagSoloFuta) + Me.GroupBox48.Controls.Add(Me.CBTagSM) + Me.GroupBox48.Controls.Add(Me.CBTagBondage) + Me.GroupBox48.Controls.Add(Me.CBTagSoloM) + Me.GroupBox48.Controls.Add(Me.CBTagSoloF) + Me.GroupBox48.Controls.Add(Me.CBTagChastity) + Me.GroupBox48.Controls.Add(Me.CBTagShower) + Me.GroupBox48.Location = New System.Drawing.Point(8, 37) + Me.GroupBox48.Name = "GroupBox48" + Me.GroupBox48.Size = New System.Drawing.Size(105, 358) + Me.GroupBox48.TabIndex = 235 + Me.GroupBox48.TabStop = False + Me.GroupBox48.Text = "Category" + ' + 'CBTagArtwork + ' + Me.CBTagArtwork.AutoSize = True + Me.CBTagArtwork.Enabled = False + Me.CBTagArtwork.ForeColor = System.Drawing.Color.Black + Me.CBTagArtwork.Location = New System.Drawing.Point(15, 337) + Me.CBTagArtwork.Name = "CBTagArtwork" + Me.CBTagArtwork.Size = New System.Drawing.Size(62, 17) + Me.CBTagArtwork.TabIndex = 225 + Me.CBTagArtwork.Text = "Artwork" + Me.CBTagArtwork.UseVisualStyleBackColor = True + ' + 'CBTagOutdoors + ' + Me.CBTagOutdoors.AutoSize = True + Me.CBTagOutdoors.Enabled = False + Me.CBTagOutdoors.ForeColor = System.Drawing.Color.Black + Me.CBTagOutdoors.Location = New System.Drawing.Point(15, 317) + Me.CBTagOutdoors.Name = "CBTagOutdoors" + Me.CBTagOutdoors.Size = New System.Drawing.Size(69, 17) + Me.CBTagOutdoors.TabIndex = 219 + Me.CBTagOutdoors.Text = "Outdoors" + Me.CBTagOutdoors.UseVisualStyleBackColor = True + ' + 'CBTagPOV + ' + Me.CBTagPOV.AutoSize = True + Me.CBTagPOV.Enabled = False + Me.CBTagPOV.ForeColor = System.Drawing.Color.Black + Me.CBTagPOV.Location = New System.Drawing.Point(15, 157) + Me.CBTagPOV.Name = "CBTagPOV" + Me.CBTagPOV.Size = New System.Drawing.Size(48, 17) + Me.CBTagPOV.TabIndex = 208 + Me.CBTagPOV.Text = "POV" + Me.CBTagPOV.UseVisualStyleBackColor = True + ' + 'CBTagHardcore + ' + Me.CBTagHardcore.AutoSize = True + Me.CBTagHardcore.Enabled = False + Me.CBTagHardcore.ForeColor = System.Drawing.Color.Black + Me.CBTagHardcore.Location = New System.Drawing.Point(15, 17) + Me.CBTagHardcore.Name = "CBTagHardcore" + Me.CBTagHardcore.Size = New System.Drawing.Size(70, 17) + Me.CBTagHardcore.TabIndex = 203 + Me.CBTagHardcore.Text = "Hardcore" + Me.CBTagHardcore.UseVisualStyleBackColor = True + ' + 'CBTagTD + ' + Me.CBTagTD.AutoSize = True + Me.CBTagTD.Enabled = False + Me.CBTagTD.ForeColor = System.Drawing.Color.Black + Me.CBTagTD.Location = New System.Drawing.Point(15, 217) + Me.CBTagTD.Name = "CBTagTD" + Me.CBTagTD.Size = New System.Drawing.Size(47, 17) + Me.CBTagTD.TabIndex = 218 + Me.CBTagTD.Text = "T&&D" + Me.CBTagTD.UseVisualStyleBackColor = True + ' + 'CBTagGay + ' + Me.CBTagGay.AutoSize = True + Me.CBTagGay.Enabled = False + Me.CBTagGay.ForeColor = System.Drawing.Color.Black + Me.CBTagGay.Location = New System.Drawing.Point(15, 57) + Me.CBTagGay.Name = "CBTagGay" + Me.CBTagGay.Size = New System.Drawing.Size(45, 17) + Me.CBTagGay.TabIndex = 204 + Me.CBTagGay.Text = "Gay" + Me.CBTagGay.UseVisualStyleBackColor = True + ' + 'CBTagBath + ' + Me.CBTagBath.AutoSize = True + Me.CBTagBath.Enabled = False + Me.CBTagBath.ForeColor = System.Drawing.Color.Black + Me.CBTagBath.Location = New System.Drawing.Point(15, 277) + Me.CBTagBath.Name = "CBTagBath" + Me.CBTagBath.Size = New System.Drawing.Size(48, 17) + Me.CBTagBath.TabIndex = 217 + Me.CBTagBath.Text = "Bath" + Me.CBTagBath.UseVisualStyleBackColor = True + ' + 'CBTagBisexual + ' + Me.CBTagBisexual.AutoSize = True + Me.CBTagBisexual.Enabled = False + Me.CBTagBisexual.ForeColor = System.Drawing.Color.Black + Me.CBTagBisexual.Location = New System.Drawing.Point(15, 77) + Me.CBTagBisexual.Name = "CBTagBisexual" + Me.CBTagBisexual.Size = New System.Drawing.Size(65, 17) + Me.CBTagBisexual.TabIndex = 205 + Me.CBTagBisexual.Text = "Bisexual" + Me.CBTagBisexual.UseVisualStyleBackColor = True + ' + 'CBTagCFNM + ' + Me.CBTagCFNM.AutoSize = True + Me.CBTagCFNM.Enabled = False + Me.CBTagCFNM.ForeColor = System.Drawing.Color.Black + Me.CBTagCFNM.Location = New System.Drawing.Point(15, 257) + Me.CBTagCFNM.Name = "CBTagCFNM" + Me.CBTagCFNM.Size = New System.Drawing.Size(56, 17) + Me.CBTagCFNM.TabIndex = 216 + Me.CBTagCFNM.Text = "CFNM" + Me.CBTagCFNM.UseVisualStyleBackColor = True + ' + 'CBTagLesbian + ' + Me.CBTagLesbian.AutoSize = True + Me.CBTagLesbian.Enabled = False + Me.CBTagLesbian.ForeColor = System.Drawing.Color.Black + Me.CBTagLesbian.Location = New System.Drawing.Point(15, 37) + Me.CBTagLesbian.Name = "CBTagLesbian" + Me.CBTagLesbian.Size = New System.Drawing.Size(63, 17) + Me.CBTagLesbian.TabIndex = 206 + Me.CBTagLesbian.Text = "Lesbian" + Me.CBTagLesbian.UseVisualStyleBackColor = True + ' + 'CBTagSoloFuta + ' + Me.CBTagSoloFuta.AutoSize = True + Me.CBTagSoloFuta.Enabled = False + Me.CBTagSoloFuta.ForeColor = System.Drawing.Color.Black + Me.CBTagSoloFuta.Location = New System.Drawing.Point(15, 137) + Me.CBTagSoloFuta.Name = "CBTagSoloFuta" + Me.CBTagSoloFuta.Size = New System.Drawing.Size(71, 17) + Me.CBTagSoloFuta.TabIndex = 207 + Me.CBTagSoloFuta.Text = "Solo Futa" + Me.CBTagSoloFuta.UseVisualStyleBackColor = True + ' + 'CBTagSM + ' + Me.CBTagSM.AutoSize = True + Me.CBTagSM.Enabled = False + Me.CBTagSM.ForeColor = System.Drawing.Color.Black + Me.CBTagSM.Location = New System.Drawing.Point(15, 197) + Me.CBTagSM.Name = "CBTagSM" + Me.CBTagSM.Size = New System.Drawing.Size(48, 17) + Me.CBTagSM.TabIndex = 214 + Me.CBTagSM.Text = "S&&M" + Me.CBTagSM.UseVisualStyleBackColor = True + ' + 'CBTagBondage + ' + Me.CBTagBondage.AutoSize = True + Me.CBTagBondage.Enabled = False + Me.CBTagBondage.ForeColor = System.Drawing.Color.Black + Me.CBTagBondage.Location = New System.Drawing.Point(15, 177) + Me.CBTagBondage.Name = "CBTagBondage" + Me.CBTagBondage.Size = New System.Drawing.Size(69, 17) + Me.CBTagBondage.TabIndex = 209 + Me.CBTagBondage.Text = "Bondage" + Me.CBTagBondage.UseVisualStyleBackColor = True + ' + 'CBTagSoloM + ' + Me.CBTagSoloM.AutoSize = True + Me.CBTagSoloM.Enabled = False + Me.CBTagSoloM.ForeColor = System.Drawing.Color.Black + Me.CBTagSoloM.Location = New System.Drawing.Point(15, 117) + Me.CBTagSoloM.Name = "CBTagSoloM" + Me.CBTagSoloM.Size = New System.Drawing.Size(59, 17) + Me.CBTagSoloM.TabIndex = 213 + Me.CBTagSoloM.Text = "Solo M" + Me.CBTagSoloM.UseVisualStyleBackColor = True + ' + 'CBTagSoloF + ' + Me.CBTagSoloF.AutoSize = True + Me.CBTagSoloF.Enabled = False + Me.CBTagSoloF.ForeColor = System.Drawing.Color.Black + Me.CBTagSoloF.Location = New System.Drawing.Point(15, 97) + Me.CBTagSoloF.Name = "CBTagSoloF" + Me.CBTagSoloF.Size = New System.Drawing.Size(56, 17) + Me.CBTagSoloF.TabIndex = 210 + Me.CBTagSoloF.Text = "Solo F" + Me.CBTagSoloF.UseVisualStyleBackColor = True + ' + 'CBTagChastity + ' + Me.CBTagChastity.AutoSize = True + Me.CBTagChastity.Enabled = False + Me.CBTagChastity.ForeColor = System.Drawing.Color.Black + Me.CBTagChastity.Location = New System.Drawing.Point(15, 237) + Me.CBTagChastity.Name = "CBTagChastity" + Me.CBTagChastity.Size = New System.Drawing.Size(63, 17) + Me.CBTagChastity.TabIndex = 212 + Me.CBTagChastity.Text = "Chastity" + Me.CBTagChastity.UseVisualStyleBackColor = True + ' + 'CBTagShower + ' + Me.CBTagShower.AutoSize = True + Me.CBTagShower.Enabled = False + Me.CBTagShower.ForeColor = System.Drawing.Color.Black + Me.CBTagShower.Location = New System.Drawing.Point(15, 297) + Me.CBTagShower.Name = "CBTagShower" + Me.CBTagShower.Size = New System.Drawing.Size(62, 17) + Me.CBTagShower.TabIndex = 211 + Me.CBTagShower.Text = "Shower" + Me.CBTagShower.UseVisualStyleBackColor = True + ' + 'TBLocalTagDir + ' + Me.TBLocalTagDir.Location = New System.Drawing.Point(55, 9) + Me.TBLocalTagDir.Name = "TBLocalTagDir" + Me.TBLocalTagDir.Size = New System.Drawing.Size(330, 20) + Me.TBLocalTagDir.TabIndex = 233 + Me.TBLocalTagDir.Text = "Enter Image Directory" + ' + 'BTNLocalTagPrevious + ' + Me.BTNLocalTagPrevious.BackColor = System.Drawing.Color.LightGray + Me.BTNLocalTagPrevious.Enabled = False + Me.BTNLocalTagPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLocalTagPrevious.ForeColor = System.Drawing.Color.Black + Me.BTNLocalTagPrevious.Location = New System.Drawing.Point(391, 8) + Me.BTNLocalTagPrevious.Name = "BTNLocalTagPrevious" + Me.BTNLocalTagPrevious.Size = New System.Drawing.Size(47, 24) + Me.BTNLocalTagPrevious.TabIndex = 232 + Me.BTNLocalTagPrevious.Text = "<<" + Me.BTNLocalTagPrevious.UseVisualStyleBackColor = False + ' + 'BTNLocalTagNext + ' + Me.BTNLocalTagNext.BackColor = System.Drawing.Color.LightGray + Me.BTNLocalTagNext.Enabled = False + Me.BTNLocalTagNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNLocalTagNext.ForeColor = System.Drawing.Color.Black + Me.BTNLocalTagNext.Location = New System.Drawing.Point(560, 8) + Me.BTNLocalTagNext.Name = "BTNLocalTagNext" + Me.BTNLocalTagNext.Size = New System.Drawing.Size(47, 24) + Me.BTNLocalTagNext.TabIndex = 231 + Me.BTNLocalTagNext.Text = ">>" + Me.BTNLocalTagNext.UseVisualStyleBackColor = False + ' + 'LBLLocalTagCount + ' + Me.LBLLocalTagCount.BackColor = System.Drawing.Color.Transparent + Me.LBLLocalTagCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLLocalTagCount.Enabled = False + Me.LBLLocalTagCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLLocalTagCount.ForeColor = System.Drawing.Color.Black + Me.LBLLocalTagCount.Location = New System.Drawing.Point(444, 10) + Me.LBLLocalTagCount.Name = "LBLLocalTagCount" + Me.LBLLocalTagCount.Size = New System.Drawing.Size(110, 20) + Me.LBLLocalTagCount.TabIndex = 230 + Me.LBLLocalTagCount.Text = "0/0" + Me.LBLLocalTagCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNLocalTagSave + ' + Me.BTNLocalTagSave.Enabled = False + Me.BTNLocalTagSave.Location = New System.Drawing.Point(613, 9) + Me.BTNLocalTagSave.Name = "BTNLocalTagSave" + Me.BTNLocalTagSave.Size = New System.Drawing.Size(83, 23) + Me.BTNLocalTagSave.TabIndex = 229 + Me.BTNLocalTagSave.Text = "Finished" + Me.BTNLocalTagSave.UseVisualStyleBackColor = True + ' + 'BTNLocalTagDir + ' + Me.BTNLocalTagDir.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNLocalTagDir.Location = New System.Drawing.Point(6, 8) + Me.BTNLocalTagDir.Name = "BTNLocalTagDir" + Me.BTNLocalTagDir.Size = New System.Drawing.Size(43, 23) + Me.BTNLocalTagDir.TabIndex = 228 + Me.BTNLocalTagDir.Text = "1" + Me.BTNLocalTagDir.UseVisualStyleBackColor = True + ' + 'TabPage11 + ' + Me.TabPage11.BackColor = System.Drawing.Color.Silver + Me.TabPage11.Controls.Add(Me.Panel7) + Me.TabPage11.Location = New System.Drawing.Point(4, 22) + Me.TabPage11.Name = "TabPage11" + Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage11.Size = New System.Drawing.Size(720, 448) + Me.TabPage11.TabIndex = 10 + Me.TabPage11.Text = "URL Files" + ' + 'Panel7 + ' + Me.Panel7.BackColor = System.Drawing.Color.LightGray + Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel7.Controls.Add(Me.BTNWIContinue) + Me.Panel7.Controls.Add(Me.BTNWIAddandContinue) + Me.Panel7.Controls.Add(Me.BTNWICancel) + Me.Panel7.Controls.Add(Me.CBWIReview) + Me.Panel7.Controls.Add(Me.BTNWIBrowse) + Me.Panel7.Controls.Add(Me.TBWIDirectory) + Me.Panel7.Controls.Add(Me.BTNWIDisliked) + Me.Panel7.Controls.Add(Me.BTNWILiked) + Me.Panel7.Controls.Add(Me.BTNWIRemove) + Me.Panel7.Controls.Add(Me.CBWISaveToDisk) + Me.Panel7.Controls.Add(Me.PictureBox5) + Me.Panel7.Controls.Add(Me.WebImageProgressBar) + Me.Panel7.Controls.Add(Me.BTNWICreateURL) + Me.Panel7.Controls.Add(Me.LBLWebImageCount) + Me.Panel7.Controls.Add(Me.BTNWISave) + Me.Panel7.Controls.Add(Me.BTNWIOpenURL) + Me.Panel7.Controls.Add(Me.BTNWIPrevious) + Me.Panel7.Controls.Add(Me.BTNWINext) + Me.Panel7.Controls.Add(Me.WebPictureBox) + Me.Panel7.Controls.Add(Me.Label71) + Me.Panel7.Location = New System.Drawing.Point(6, 6) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(708, 437) + Me.Panel7.TabIndex = 91 + ' + 'BTNWIContinue + ' + Me.BTNWIContinue.BackColor = System.Drawing.Color.LightGray + Me.BTNWIContinue.Enabled = False + Me.BTNWIContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIContinue.ForeColor = System.Drawing.Color.Black + Me.BTNWIContinue.Location = New System.Drawing.Point(566, 158) + Me.BTNWIContinue.Name = "BTNWIContinue" + Me.BTNWIContinue.Size = New System.Drawing.Size(131, 24) + Me.BTNWIContinue.TabIndex = 168 + Me.BTNWIContinue.Text = "Continue" + Me.BTNWIContinue.UseVisualStyleBackColor = False + ' + 'BTNWIAddandContinue + ' + Me.BTNWIAddandContinue.BackColor = System.Drawing.Color.LightGray + Me.BTNWIAddandContinue.Enabled = False + Me.BTNWIAddandContinue.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIAddandContinue.ForeColor = System.Drawing.Color.Black + Me.BTNWIAddandContinue.Location = New System.Drawing.Point(566, 128) + Me.BTNWIAddandContinue.Name = "BTNWIAddandContinue" + Me.BTNWIAddandContinue.Size = New System.Drawing.Size(131, 24) + Me.BTNWIAddandContinue.TabIndex = 167 + Me.BTNWIAddandContinue.Text = "Add and Continue" + Me.BTNWIAddandContinue.UseVisualStyleBackColor = False + ' + 'BTNWICancel + ' + Me.BTNWICancel.BackColor = System.Drawing.Color.LightGray + Me.BTNWICancel.Enabled = False + Me.BTNWICancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWICancel.ForeColor = System.Drawing.Color.Black + Me.BTNWICancel.Location = New System.Drawing.Point(566, 188) + Me.BTNWICancel.Name = "BTNWICancel" + Me.BTNWICancel.Size = New System.Drawing.Size(131, 24) + Me.BTNWICancel.TabIndex = 166 + Me.BTNWICancel.Text = "Cancel" + Me.BTNWICancel.UseVisualStyleBackColor = False + ' + 'CBWIReview + ' + Me.CBWIReview.Location = New System.Drawing.Point(567, 69) + Me.CBWIReview.Name = "CBWIReview" + Me.CBWIReview.Size = New System.Drawing.Size(124, 30) + Me.CBWIReview.TabIndex = 165 + Me.CBWIReview.Text = "Review Each Image" + Me.CBWIReview.UseVisualStyleBackColor = True + ' + 'BTNWIBrowse + ' + Me.BTNWIBrowse.BackColor = System.Drawing.Color.LightGray + Me.BTNWIBrowse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIBrowse.ForeColor = System.Drawing.Color.Black + Me.BTNWIBrowse.Location = New System.Drawing.Point(105, 402) + Me.BTNWIBrowse.Name = "BTNWIBrowse" + Me.BTNWIBrowse.Size = New System.Drawing.Size(50, 24) + Me.BTNWIBrowse.TabIndex = 163 + Me.BTNWIBrowse.Text = "Browse" + Me.BTNWIBrowse.UseVisualStyleBackColor = False + ' + 'TBWIDirectory + ' + Me.TBWIDirectory.BackColor = System.Drawing.Color.White + Me.TBWIDirectory.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBWIDirectory.ForeColor = System.Drawing.Color.Black + Me.TBWIDirectory.Location = New System.Drawing.Point(161, 404) + Me.TBWIDirectory.Name = "TBWIDirectory" + Me.TBWIDirectory.Size = New System.Drawing.Size(400, 20) + Me.TBWIDirectory.TabIndex = 164 + Me.TBWIDirectory.Text = "Saved Image Directory" + ' + 'BTNWIDisliked + ' + Me.BTNWIDisliked.BackColor = System.Drawing.Color.LightGray + Me.BTNWIDisliked.Enabled = False + Me.BTNWIDisliked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIDisliked.ForeColor = System.Drawing.Color.Black + Me.BTNWIDisliked.Location = New System.Drawing.Point(567, 372) + Me.BTNWIDisliked.Name = "BTNWIDisliked" + Me.BTNWIDisliked.Size = New System.Drawing.Size(131, 24) + Me.BTNWIDisliked.TabIndex = 162 + Me.BTNWIDisliked.Text = "Add to Disliked Images" + Me.BTNWIDisliked.UseVisualStyleBackColor = False + ' + 'BTNWILiked + ' + Me.BTNWILiked.BackColor = System.Drawing.Color.LightGray + Me.BTNWILiked.Enabled = False + Me.BTNWILiked.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWILiked.ForeColor = System.Drawing.Color.Black + Me.BTNWILiked.Location = New System.Drawing.Point(567, 342) + Me.BTNWILiked.Name = "BTNWILiked" + Me.BTNWILiked.Size = New System.Drawing.Size(131, 24) + Me.BTNWILiked.TabIndex = 161 + Me.BTNWILiked.Text = "Add to Liked Images" + Me.BTNWILiked.UseVisualStyleBackColor = False + ' + 'BTNWIRemove + ' + Me.BTNWIRemove.BackColor = System.Drawing.Color.LightGray + Me.BTNWIRemove.Enabled = False + Me.BTNWIRemove.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIRemove.ForeColor = System.Drawing.Color.Black + Me.BTNWIRemove.Location = New System.Drawing.Point(567, 312) + Me.BTNWIRemove.Name = "BTNWIRemove" + Me.BTNWIRemove.Size = New System.Drawing.Size(131, 24) + Me.BTNWIRemove.TabIndex = 160 + Me.BTNWIRemove.Text = "Remove From URL File" + Me.BTNWIRemove.UseVisualStyleBackColor = False + ' + 'CBWISaveToDisk + ' + Me.CBWISaveToDisk.Location = New System.Drawing.Point(567, 95) + Me.CBWISaveToDisk.Name = "CBWISaveToDisk" + Me.CBWISaveToDisk.Size = New System.Drawing.Size(124, 30) + Me.CBWISaveToDisk.TabIndex = 157 + Me.CBWISaveToDisk.Text = "Save Images to Disk" + Me.CBWISaveToDisk.UseVisualStyleBackColor = True + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.LightGray + Me.PictureBox5.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox5.Location = New System.Drawing.Point(9, 6) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(160, 19) + Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox5.TabIndex = 156 + Me.PictureBox5.TabStop = False + ' + 'WebImageProgressBar + ' + Me.WebImageProgressBar.Location = New System.Drawing.Point(567, 218) + Me.WebImageProgressBar.Maximum = 2500 + Me.WebImageProgressBar.Name = "WebImageProgressBar" + Me.WebImageProgressBar.Size = New System.Drawing.Size(131, 23) + Me.WebImageProgressBar.TabIndex = 155 + ' + 'BTNWICreateURL + ' + Me.BTNWICreateURL.BackColor = System.Drawing.Color.LightGray + Me.BTNWICreateURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWICreateURL.ForeColor = System.Drawing.Color.Black + Me.BTNWICreateURL.Location = New System.Drawing.Point(567, 39) + Me.BTNWICreateURL.Name = "BTNWICreateURL" + Me.BTNWICreateURL.Size = New System.Drawing.Size(132, 24) + Me.BTNWICreateURL.TabIndex = 154 + Me.BTNWICreateURL.Text = "Create URL File" + Me.BTNWICreateURL.UseVisualStyleBackColor = False + ' + 'LBLWebImageCount + ' + Me.LBLWebImageCount.BackColor = System.Drawing.Color.Transparent + Me.LBLWebImageCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLWebImageCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWebImageCount.ForeColor = System.Drawing.Color.Black + Me.LBLWebImageCount.Location = New System.Drawing.Point(6, 404) + Me.LBLWebImageCount.Name = "LBLWebImageCount" + Me.LBLWebImageCount.Size = New System.Drawing.Size(93, 21) + Me.LBLWebImageCount.TabIndex = 153 + Me.LBLWebImageCount.Text = "0/0" + Me.LBLWebImageCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNWISave + ' + Me.BTNWISave.BackColor = System.Drawing.Color.LightGray + Me.BTNWISave.Enabled = False + Me.BTNWISave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWISave.ForeColor = System.Drawing.Color.Black + Me.BTNWISave.Location = New System.Drawing.Point(567, 401) + Me.BTNWISave.Name = "BTNWISave" + Me.BTNWISave.Size = New System.Drawing.Size(131, 24) + Me.BTNWISave.TabIndex = 152 + Me.BTNWISave.Text = "Save Image to Disk" + Me.BTNWISave.UseVisualStyleBackColor = False + ' + 'BTNWIOpenURL + ' + Me.BTNWIOpenURL.BackColor = System.Drawing.Color.LightGray + Me.BTNWIOpenURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIOpenURL.ForeColor = System.Drawing.Color.Black + Me.BTNWIOpenURL.Location = New System.Drawing.Point(566, 252) + Me.BTNWIOpenURL.Name = "BTNWIOpenURL" + Me.BTNWIOpenURL.Size = New System.Drawing.Size(132, 24) + Me.BTNWIOpenURL.TabIndex = 151 + Me.BTNWIOpenURL.Text = "Open URL File" + Me.BTNWIOpenURL.UseVisualStyleBackColor = False + ' + 'BTNWIPrevious + ' + Me.BTNWIPrevious.BackColor = System.Drawing.Color.LightGray + Me.BTNWIPrevious.Enabled = False + Me.BTNWIPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWIPrevious.ForeColor = System.Drawing.Color.Black + Me.BTNWIPrevious.Location = New System.Drawing.Point(567, 282) + Me.BTNWIPrevious.Name = "BTNWIPrevious" + Me.BTNWIPrevious.Size = New System.Drawing.Size(47, 24) + Me.BTNWIPrevious.TabIndex = 149 + Me.BTNWIPrevious.Text = "<<" + Me.BTNWIPrevious.UseVisualStyleBackColor = False + ' + 'BTNWINext + ' + Me.BTNWINext.BackColor = System.Drawing.Color.LightGray + Me.BTNWINext.Enabled = False + Me.BTNWINext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNWINext.ForeColor = System.Drawing.Color.Black + Me.BTNWINext.Location = New System.Drawing.Point(651, 282) + Me.BTNWINext.Name = "BTNWINext" + Me.BTNWINext.Size = New System.Drawing.Size(47, 24) + Me.BTNWINext.TabIndex = 150 + Me.BTNWINext.Text = ">>" + Me.BTNWINext.UseVisualStyleBackColor = False + ' + 'WebPictureBox + ' + Me.WebPictureBox.BackColor = System.Drawing.Color.Black + Me.WebPictureBox.Location = New System.Drawing.Point(6, 38) + Me.WebPictureBox.Name = "WebPictureBox" + Me.WebPictureBox.Size = New System.Drawing.Size(555, 358) + Me.WebPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.WebPictureBox.TabIndex = 148 + Me.WebPictureBox.TabStop = False + ' + 'Label71 + ' + Me.Label71.BackColor = System.Drawing.Color.Transparent + Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label71.ForeColor = System.Drawing.Color.Black + Me.Label71.Location = New System.Drawing.Point(7, 6) + Me.Label71.Name = "Label71" + Me.Label71.Size = New System.Drawing.Size(692, 21) + Me.Label71.TabIndex = 48 + Me.Label71.Text = "URL Files" + Me.Label71.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TpVideoSettings + ' + Me.TpVideoSettings.BackColor = System.Drawing.Color.Silver + Me.TpVideoSettings.Controls.Add(Me.PnlVideoSettings) + Me.TpVideoSettings.Location = New System.Drawing.Point(4, 22) + Me.TpVideoSettings.Name = "TpVideoSettings" + Me.TpVideoSettings.Padding = New System.Windows.Forms.Padding(6) + Me.TpVideoSettings.Size = New System.Drawing.Size(720, 448) + Me.TpVideoSettings.TabIndex = 2 + Me.TpVideoSettings.Text = "Video" + ' + 'PnlVideoSettings + ' + Me.PnlVideoSettings.BackColor = System.Drawing.Color.LightGray + Me.PnlVideoSettings.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PnlVideoSettings.Controls.Add(Me.PbBannerVideoSettings) + Me.PnlVideoSettings.Controls.Add(Me.BTNRefreshVideos) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneralD) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecialD) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenreD) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoDescription) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGeneral) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoSpecial) + Me.PnlVideoSettings.Controls.Add(Me.GbxVideoGenre) + Me.PnlVideoSettings.Controls.Add(Me.LblVideoHeader) + Me.PnlVideoSettings.Dock = System.Windows.Forms.DockStyle.Fill + Me.PnlVideoSettings.Location = New System.Drawing.Point(6, 6) + Me.PnlVideoSettings.Margin = New System.Windows.Forms.Padding(6) + Me.PnlVideoSettings.Name = "PnlVideoSettings" + Me.PnlVideoSettings.Size = New System.Drawing.Size(708, 436) + Me.PnlVideoSettings.TabIndex = 92 + ' + 'PbBannerVideoSettings + ' + Me.PbBannerVideoSettings.BackColor = System.Drawing.Color.LightGray + Me.PbBannerVideoSettings.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PbBannerVideoSettings.Location = New System.Drawing.Point(9, 6) + Me.PbBannerVideoSettings.Name = "PbBannerVideoSettings" + Me.PbBannerVideoSettings.Size = New System.Drawing.Size(160, 19) + Me.PbBannerVideoSettings.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PbBannerVideoSettings.TabIndex = 151 + Me.PbBannerVideoSettings.TabStop = False + ' + 'BTNRefreshVideos + ' + Me.BTNRefreshVideos.BackColor = System.Drawing.Color.LightGray + Me.BTNRefreshVideos.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Refresh + Me.BTNRefreshVideos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.BTNRefreshVideos.FlatAppearance.BorderSize = 0 + Me.BTNRefreshVideos.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.BTNRefreshVideos.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.BTNRefreshVideos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.BTNRefreshVideos.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNRefreshVideos.ForeColor = System.Drawing.Color.Black + Me.BTNRefreshVideos.Location = New System.Drawing.Point(671, 6) + Me.BTNRefreshVideos.Name = "BTNRefreshVideos" + Me.BTNRefreshVideos.Size = New System.Drawing.Size(30, 26) + Me.BTNRefreshVideos.TabIndex = 149 + Me.BTNRefreshVideos.UseVisualStyleBackColor = False + ' + 'GbxVideoGeneralD + ' + Me.GbxVideoGeneralD.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGeneralD.Controls.Add(Me.LblVideoGeneralTotalD) + Me.GbxVideoGeneralD.Controls.Add(Me.TxbVideoGeneralD) + Me.GbxVideoGeneralD.Controls.Add(Me.BTNVideoGeneralD) + Me.GbxVideoGeneralD.Controls.Add(Me.CBVideoGeneralD) + Me.GbxVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGeneralD.Location = New System.Drawing.Point(359, 277) + Me.GbxVideoGeneralD.Name = "GbxVideoGeneralD" + Me.GbxVideoGeneralD.Size = New System.Drawing.Size(340, 48) + Me.GbxVideoGeneralD.TabIndex = 5 + Me.GbxVideoGeneralD.TabStop = False + Me.GbxVideoGeneralD.Text = "Domme General" + ' + 'LblVideoGeneralTotalD + ' + Me.LblVideoGeneralTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoGeneralTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoGeneralTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoGeneralTotalD.Location = New System.Drawing.Point(299, 19) + Me.LblVideoGeneralTotalD.Name = "LblVideoGeneralTotalD" + Me.LblVideoGeneralTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoGeneralTotalD.TabIndex = 3 + Me.LblVideoGeneralTotalD.Text = "0" + Me.LblVideoGeneralTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoGeneralD + ' + Me.TxbVideoGeneralD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoGeneralD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoGeneralD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoGeneralD.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoGeneralD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoGeneralD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneralD.Name = "TxbVideoGeneralD" + Me.TxbVideoGeneralD.ReadOnly = True + Me.TxbVideoGeneralD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneralD.TabIndex = 2 + Me.TxbVideoGeneralD.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneralD + ' + 'BTNVideoGeneralD + ' + Me.BTNVideoGeneralD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoGeneralD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoGeneralD.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoGeneralD.Name = "BTNVideoGeneralD" + Me.BTNVideoGeneralD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoGeneralD.TabIndex = 1 + Me.BTNVideoGeneralD.Text = "1" + Me.BTNVideoGeneralD.UseVisualStyleBackColor = False + ' + 'CBVideoGeneralD + ' + Me.CBVideoGeneralD.AutoSize = True + Me.CBVideoGeneralD.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneralD + Me.CBVideoGeneralD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneralD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoGeneralD.ForeColor = System.Drawing.Color.Black + Me.CBVideoGeneralD.Location = New System.Drawing.Point(6, 19) + Me.CBVideoGeneralD.Name = "CBVideoGeneralD" + Me.CBVideoGeneralD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoGeneralD.TabIndex = 0 + Me.CBVideoGeneralD.Text = "General" + Me.CBVideoGeneralD.UseVisualStyleBackColor = True + ' + 'GbxVideoSpecialD + ' + Me.GbxVideoSpecialD.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoCHTotalD) + Me.GbxVideoSpecialD.Controls.Add(Me.LblVideoJOITotalD) + Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoCHD) + Me.GbxVideoSpecialD.Controls.Add(Me.TxbVideoJOID) + Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoCHD) + Me.GbxVideoSpecialD.Controls.Add(Me.BTNVideoJOID) + Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoJOID) + Me.GbxVideoSpecialD.Controls.Add(Me.CBVideoCHD) + Me.GbxVideoSpecialD.ForeColor = System.Drawing.Color.Black + Me.GbxVideoSpecialD.Location = New System.Drawing.Point(359, 201) + Me.GbxVideoSpecialD.Name = "GbxVideoSpecialD" + Me.GbxVideoSpecialD.Size = New System.Drawing.Size(340, 70) + Me.GbxVideoSpecialD.TabIndex = 4 + Me.GbxVideoSpecialD.TabStop = False + Me.GbxVideoSpecialD.Text = "Domme Special" + ' + 'LblVideoCHTotalD + ' + Me.LblVideoCHTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoCHTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoCHTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoCHTotalD.Location = New System.Drawing.Point(299, 42) + Me.LblVideoCHTotalD.Name = "LblVideoCHTotalD" + Me.LblVideoCHTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoCHTotalD.TabIndex = 7 + Me.LblVideoCHTotalD.Text = "0" + Me.LblVideoCHTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LblVideoJOITotalD + ' + Me.LblVideoJOITotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoJOITotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoJOITotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoJOITotalD.Location = New System.Drawing.Point(299, 19) + Me.LblVideoJOITotalD.Name = "LblVideoJOITotalD" + Me.LblVideoJOITotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoJOITotalD.TabIndex = 3 + Me.LblVideoJOITotalD.Text = "0" + Me.LblVideoJOITotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoCHD + ' + Me.TxbVideoCHD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoCHD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoCHD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoCHD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoCHD.Location = New System.Drawing.Point(113, 41) + Me.TxbVideoCHD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoCHD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoCHD.Name = "TxbVideoCHD" + Me.TxbVideoCHD.ReadOnly = True + Me.TxbVideoCHD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoCHD.TabIndex = 6 + Me.TxbVideoCHD.Text = Global.Tease_AI.My.MySettings.Default.VideoCHD + ' + 'TxbVideoJOID + ' + Me.TxbVideoJOID.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoJOID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoJOID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoJOID.ForeColor = System.Drawing.Color.Black + Me.TxbVideoJOID.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoJOID.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoJOID.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoJOID.Name = "TxbVideoJOID" + Me.TxbVideoJOID.ReadOnly = True + Me.TxbVideoJOID.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoJOID.TabIndex = 2 + Me.TxbVideoJOID.Text = Global.Tease_AI.My.MySettings.Default.VideoJOID + ' + 'BTNVideoCHD + ' + Me.BTNVideoCHD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoCHD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoCHD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoCHD.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoCHD.Name = "BTNVideoCHD" + Me.BTNVideoCHD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoCHD.TabIndex = 5 + Me.BTNVideoCHD.Text = "1" + Me.BTNVideoCHD.UseVisualStyleBackColor = False + ' + 'BTNVideoJOID + ' + Me.BTNVideoJOID.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoJOID.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoJOID.ForeColor = System.Drawing.Color.Black + Me.BTNVideoJOID.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoJOID.Name = "BTNVideoJOID" + Me.BTNVideoJOID.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoJOID.TabIndex = 1 + Me.BTNVideoJOID.Text = "1" + Me.BTNVideoJOID.UseVisualStyleBackColor = False + ' + 'CBVideoJOID + ' + Me.CBVideoJOID.AutoSize = True + Me.CBVideoJOID.Checked = Global.Tease_AI.My.MySettings.Default.CBJOID + Me.CBVideoJOID.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoJOID.ForeColor = System.Drawing.Color.Black + Me.CBVideoJOID.Location = New System.Drawing.Point(6, 19) + Me.CBVideoJOID.Name = "CBVideoJOID" + Me.CBVideoJOID.Size = New System.Drawing.Size(42, 17) + Me.CBVideoJOID.TabIndex = 0 + Me.CBVideoJOID.Text = "JOI" + Me.CBVideoJOID.UseVisualStyleBackColor = True + ' + 'CBVideoCHD + ' + Me.CBVideoCHD.AutoSize = True + Me.CBVideoCHD.Checked = Global.Tease_AI.My.MySettings.Default.CBCHD + Me.CBVideoCHD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCHD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoCHD.ForeColor = System.Drawing.Color.Black + Me.CBVideoCHD.Location = New System.Drawing.Point(6, 43) + Me.CBVideoCHD.Name = "CBVideoCHD" + Me.CBVideoCHD.Size = New System.Drawing.Size(41, 17) + Me.CBVideoCHD.TabIndex = 4 + Me.CBVideoCHD.Text = "CH" + Me.CBVideoCHD.UseVisualStyleBackColor = True + ' + 'GbxVideoGenreD + ' + Me.GbxVideoGenreD.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemsubTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemsubD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoFemdomTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoFemdomD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoBlowjobD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoBlowjobTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoLesbianD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoSoftCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoLesbianTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.TxbVideoHardCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemSubD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoSoftCoreTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoFemDomD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoBlowjobD) + Me.GbxVideoGenreD.Controls.Add(Me.LblVideoHardCoreTotalD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoLesbianD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoSoftCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.BTNVideoHardCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoHardcoreD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoSoftCoreD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoLesbianD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoBlowjobD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemsubD) + Me.GbxVideoGenreD.Controls.Add(Me.CBVideoFemdomD) + Me.GbxVideoGenreD.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGenreD.Location = New System.Drawing.Point(359, 30) + Me.GbxVideoGenreD.Name = "GbxVideoGenreD" + Me.GbxVideoGenreD.Size = New System.Drawing.Size(340, 165) + Me.GbxVideoGenreD.TabIndex = 3 + Me.GbxVideoGenreD.TabStop = False + Me.GbxVideoGenreD.Text = "Domme Genre" + ' + 'LblVideoFemsubTotalD + ' + Me.LblVideoFemsubTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemsubTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemsubTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemsubTotalD.Location = New System.Drawing.Point(299, 136) + Me.LblVideoFemsubTotalD.Name = "LblVideoFemsubTotalD" + Me.LblVideoFemsubTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemsubTotalD.TabIndex = 23 + Me.LblVideoFemsubTotalD.Text = "0" + Me.LblVideoFemsubTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemsubD + ' + Me.TxbVideoFemsubD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemsubD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemsubD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemsubD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemsubD.Location = New System.Drawing.Point(113, 136) + Me.TxbVideoFemsubD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemsubD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsubD.Name = "TxbVideoFemsubD" + Me.TxbVideoFemsubD.ReadOnly = True + Me.TxbVideoFemsubD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsubD.TabIndex = 22 + Me.TxbVideoFemsubD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsubD + ' + 'LblVideoFemdomTotalD + ' + Me.LblVideoFemdomTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemdomTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemdomTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemdomTotalD.Location = New System.Drawing.Point(299, 112) + Me.LblVideoFemdomTotalD.Name = "LblVideoFemdomTotalD" + Me.LblVideoFemdomTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemdomTotalD.TabIndex = 19 + Me.LblVideoFemdomTotalD.Text = "0" + Me.LblVideoFemdomTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemdomD + ' + Me.TxbVideoFemdomD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemdomD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemdomD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemdomD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemdomD.Location = New System.Drawing.Point(113, 112) + Me.TxbVideoFemdomD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemdomD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdomD.Name = "TxbVideoFemdomD" + Me.TxbVideoFemdomD.ReadOnly = True + Me.TxbVideoFemdomD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdomD.TabIndex = 18 + Me.TxbVideoFemdomD.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdomD + ' + 'TxbVideoBlowjobD + ' + Me.TxbVideoBlowjobD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoBlowjobD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoBlowjobD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoBlowjobD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoBlowjobD.Location = New System.Drawing.Point(113, 88) + Me.TxbVideoBlowjobD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoBlowjobD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjobD.Name = "TxbVideoBlowjobD" + Me.TxbVideoBlowjobD.ReadOnly = True + Me.TxbVideoBlowjobD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjobD.TabIndex = 14 + Me.TxbVideoBlowjobD.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjobD + ' + 'LblVideoBlowjobTotalD + ' + Me.LblVideoBlowjobTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoBlowjobTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoBlowjobTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoBlowjobTotalD.Location = New System.Drawing.Point(299, 88) + Me.LblVideoBlowjobTotalD.Name = "LblVideoBlowjobTotalD" + Me.LblVideoBlowjobTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoBlowjobTotalD.TabIndex = 15 + Me.LblVideoBlowjobTotalD.Text = "0" + Me.LblVideoBlowjobTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoLesbianD + ' + Me.TxbVideoLesbianD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoLesbianD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoLesbianD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoLesbianD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoLesbianD.Location = New System.Drawing.Point(113, 65) + Me.TxbVideoLesbianD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoLesbianD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbianD.Name = "TxbVideoLesbianD" + Me.TxbVideoLesbianD.ReadOnly = True + Me.TxbVideoLesbianD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbianD.TabIndex = 10 + Me.TxbVideoLesbianD.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbianD + ' + 'TxbVideoSoftCoreD + ' + Me.TxbVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoSoftCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoSoftCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoSoftCoreD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoSoftCoreD.Location = New System.Drawing.Point(113, 42) + Me.TxbVideoSoftCoreD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoSoftCoreD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCoreD.Name = "TxbVideoSoftCoreD" + Me.TxbVideoSoftCoreD.ReadOnly = True + Me.TxbVideoSoftCoreD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCoreD.TabIndex = 6 + Me.TxbVideoSoftCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcoreD + ' + 'LblVideoLesbianTotalD + ' + Me.LblVideoLesbianTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoLesbianTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoLesbianTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoLesbianTotalD.Location = New System.Drawing.Point(299, 66) + Me.LblVideoLesbianTotalD.Name = "LblVideoLesbianTotalD" + Me.LblVideoLesbianTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoLesbianTotalD.TabIndex = 11 + Me.LblVideoLesbianTotalD.Text = "0" + Me.LblVideoLesbianTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoHardCoreD + ' + Me.TxbVideoHardCoreD.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoHardCoreD.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoHardCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoHardCoreD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoHardCoreD.ForeColor = System.Drawing.Color.Black + Me.TxbVideoHardCoreD.Location = New System.Drawing.Point(113, 19) + Me.TxbVideoHardCoreD.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoHardCoreD.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCoreD.Name = "TxbVideoHardCoreD" + Me.TxbVideoHardCoreD.ReadOnly = True + Me.TxbVideoHardCoreD.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCoreD.TabIndex = 2 + Me.TxbVideoHardCoreD.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcoreD + ' + 'BTNVideoFemSubD + ' + Me.BTNVideoFemSubD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemSubD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemSubD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemSubD.Location = New System.Drawing.Point(73, 130) + Me.BTNVideoFemSubD.Name = "BTNVideoFemSubD" + Me.BTNVideoFemSubD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemSubD.TabIndex = 21 + Me.BTNVideoFemSubD.Text = "1" + Me.BTNVideoFemSubD.UseVisualStyleBackColor = False + ' + 'LblVideoSoftCoreTotalD + ' + Me.LblVideoSoftCoreTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoSoftCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoSoftCoreTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoSoftCoreTotalD.Location = New System.Drawing.Point(299, 43) + Me.LblVideoSoftCoreTotalD.Name = "LblVideoSoftCoreTotalD" + Me.LblVideoSoftCoreTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoSoftCoreTotalD.TabIndex = 7 + Me.LblVideoSoftCoreTotalD.Text = "0" + Me.LblVideoSoftCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoFemDomD + ' + Me.BTNVideoFemDomD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemDomD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemDomD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemDomD.Location = New System.Drawing.Point(73, 106) + Me.BTNVideoFemDomD.Name = "BTNVideoFemDomD" + Me.BTNVideoFemDomD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemDomD.TabIndex = 17 + Me.BTNVideoFemDomD.Text = "1" + Me.BTNVideoFemDomD.UseVisualStyleBackColor = False + ' + 'BTNVideoBlowjobD + ' + Me.BTNVideoBlowjobD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoBlowjobD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoBlowjobD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoBlowjobD.Location = New System.Drawing.Point(73, 82) + Me.BTNVideoBlowjobD.Name = "BTNVideoBlowjobD" + Me.BTNVideoBlowjobD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoBlowjobD.TabIndex = 13 + Me.BTNVideoBlowjobD.Text = "1" + Me.BTNVideoBlowjobD.UseVisualStyleBackColor = False + ' + 'LblVideoHardCoreTotalD + ' + Me.LblVideoHardCoreTotalD.BackColor = System.Drawing.Color.Transparent + Me.LblVideoHardCoreTotalD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoHardCoreTotalD.ForeColor = System.Drawing.Color.Black + Me.LblVideoHardCoreTotalD.Location = New System.Drawing.Point(299, 19) + Me.LblVideoHardCoreTotalD.Name = "LblVideoHardCoreTotalD" + Me.LblVideoHardCoreTotalD.Size = New System.Drawing.Size(34, 17) + Me.LblVideoHardCoreTotalD.TabIndex = 3 + Me.LblVideoHardCoreTotalD.Text = "0" + Me.LblVideoHardCoreTotalD.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoLesbianD + ' + Me.BTNVideoLesbianD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoLesbianD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoLesbianD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoLesbianD.Location = New System.Drawing.Point(73, 59) + Me.BTNVideoLesbianD.Name = "BTNVideoLesbianD" + Me.BTNVideoLesbianD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoLesbianD.TabIndex = 9 + Me.BTNVideoLesbianD.Text = "1" + Me.BTNVideoLesbianD.UseVisualStyleBackColor = False + ' + 'BTNVideoSoftCoreD + ' + Me.BTNVideoSoftCoreD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoSoftCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoSoftCoreD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoSoftCoreD.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoSoftCoreD.Name = "BTNVideoSoftCoreD" + Me.BTNVideoSoftCoreD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoSoftCoreD.TabIndex = 5 + Me.BTNVideoSoftCoreD.Text = "1" + Me.BTNVideoSoftCoreD.UseVisualStyleBackColor = False + ' + 'BTNVideoHardCoreD + ' + Me.BTNVideoHardCoreD.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoHardCoreD.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoHardCoreD.ForeColor = System.Drawing.Color.Black + Me.BTNVideoHardCoreD.Location = New System.Drawing.Point(73, 12) + Me.BTNVideoHardCoreD.Name = "BTNVideoHardCoreD" + Me.BTNVideoHardCoreD.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoHardCoreD.TabIndex = 1 + Me.BTNVideoHardCoreD.Text = "1" + Me.BTNVideoHardCoreD.UseVisualStyleBackColor = False + ' + 'CBVideoHardcoreD + ' + Me.CBVideoHardcoreD.AutoSize = True + Me.CBVideoHardcoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcoreD + Me.CBVideoHardcoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoHardcoreD.ForeColor = System.Drawing.Color.Black + Me.CBVideoHardcoreD.Location = New System.Drawing.Point(6, 19) + Me.CBVideoHardcoreD.Name = "CBVideoHardcoreD" + Me.CBVideoHardcoreD.Size = New System.Drawing.Size(70, 17) + Me.CBVideoHardcoreD.TabIndex = 0 + Me.CBVideoHardcoreD.Text = "Hardcore" + Me.CBVideoHardcoreD.UseVisualStyleBackColor = True + ' + 'CBVideoSoftCoreD + ' + Me.CBVideoSoftCoreD.AutoSize = True + Me.CBVideoSoftCoreD.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcoreD + Me.CBVideoSoftCoreD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcoreD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoSoftCoreD.ForeColor = System.Drawing.Color.Black + Me.CBVideoSoftCoreD.Location = New System.Drawing.Point(6, 43) + Me.CBVideoSoftCoreD.Name = "CBVideoSoftCoreD" + Me.CBVideoSoftCoreD.Size = New System.Drawing.Size(66, 17) + Me.CBVideoSoftCoreD.TabIndex = 4 + Me.CBVideoSoftCoreD.Text = "Softcore" + Me.CBVideoSoftCoreD.UseVisualStyleBackColor = True + ' + 'CBVideoLesbianD + ' + Me.CBVideoLesbianD.AutoSize = True + Me.CBVideoLesbianD.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbianD + Me.CBVideoLesbianD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbianD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoLesbianD.ForeColor = System.Drawing.Color.Black + Me.CBVideoLesbianD.Location = New System.Drawing.Point(6, 66) + Me.CBVideoLesbianD.Name = "CBVideoLesbianD" + Me.CBVideoLesbianD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoLesbianD.TabIndex = 8 + Me.CBVideoLesbianD.Text = "Lesbian" + Me.CBVideoLesbianD.UseVisualStyleBackColor = True + ' + 'CBVideoBlowjobD + ' + Me.CBVideoBlowjobD.AutoSize = True + Me.CBVideoBlowjobD.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjobD + Me.CBVideoBlowjobD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjobD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoBlowjobD.ForeColor = System.Drawing.Color.Black + Me.CBVideoBlowjobD.Location = New System.Drawing.Point(6, 89) + Me.CBVideoBlowjobD.Name = "CBVideoBlowjobD" + Me.CBVideoBlowjobD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoBlowjobD.TabIndex = 12 + Me.CBVideoBlowjobD.Text = "Blowjob" + Me.CBVideoBlowjobD.UseVisualStyleBackColor = True + ' + 'CBVideoFemsubD + ' + Me.CBVideoFemsubD.AutoSize = True + Me.CBVideoFemsubD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsubD + Me.CBVideoFemsubD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsubD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemsubD.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemsubD.Location = New System.Drawing.Point(6, 137) + Me.CBVideoFemsubD.Name = "CBVideoFemsubD" + Me.CBVideoFemsubD.Size = New System.Drawing.Size(63, 17) + Me.CBVideoFemsubD.TabIndex = 20 + Me.CBVideoFemsubD.Text = "Femsub" + Me.CBVideoFemsubD.UseVisualStyleBackColor = True + ' + 'CBVideoFemdomD + ' + Me.CBVideoFemdomD.AutoSize = True + Me.CBVideoFemdomD.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdomD + Me.CBVideoFemdomD.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdomD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemdomD.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemdomD.Location = New System.Drawing.Point(6, 113) + Me.CBVideoFemdomD.Name = "CBVideoFemdomD" + Me.CBVideoFemdomD.Size = New System.Drawing.Size(66, 17) + Me.CBVideoFemdomD.TabIndex = 16 + Me.CBVideoFemdomD.Text = "Femdom" + Me.CBVideoFemdomD.UseVisualStyleBackColor = True + ' + 'GbxVideoDescription + ' + Me.GbxVideoDescription.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoDescription.Controls.Add(Me.VideoDescriptionLabel) + Me.GbxVideoDescription.ForeColor = System.Drawing.Color.Black + Me.GbxVideoDescription.Location = New System.Drawing.Point(7, 331) + Me.GbxVideoDescription.Name = "GbxVideoDescription" + Me.GbxVideoDescription.Size = New System.Drawing.Size(692, 92) + Me.GbxVideoDescription.TabIndex = 6 + Me.GbxVideoDescription.TabStop = False + Me.GbxVideoDescription.Text = "Description" + ' + 'VideoDescriptionLabel + ' + Me.VideoDescriptionLabel.BackColor = System.Drawing.Color.Transparent + Me.VideoDescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.VideoDescriptionLabel.ForeColor = System.Drawing.Color.Black + Me.VideoDescriptionLabel.Location = New System.Drawing.Point(6, 16) + Me.VideoDescriptionLabel.Name = "VideoDescriptionLabel" + Me.VideoDescriptionLabel.Size = New System.Drawing.Size(680, 73) + Me.VideoDescriptionLabel.TabIndex = 62 + Me.VideoDescriptionLabel.Text = "Use this page to select the videos you would like the program to use and set thei" & + "r paths." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The Domme Genre paths are for videos that feature the model you are " & + "using as your domme." + Me.VideoDescriptionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GbxVideoGeneral + ' + Me.GbxVideoGeneral.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGeneral.Controls.Add(Me.LblVideoGeneralTotal) + Me.GbxVideoGeneral.Controls.Add(Me.TxbVideoGeneral) + Me.GbxVideoGeneral.Controls.Add(Me.BTNVideoGeneral) + Me.GbxVideoGeneral.Controls.Add(Me.CBVideoGeneral) + Me.GbxVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGeneral.Location = New System.Drawing.Point(7, 277) + Me.GbxVideoGeneral.Name = "GbxVideoGeneral" + Me.GbxVideoGeneral.Size = New System.Drawing.Size(340, 48) + Me.GbxVideoGeneral.TabIndex = 2 + Me.GbxVideoGeneral.TabStop = False + Me.GbxVideoGeneral.Text = "General" + ' + 'LblVideoGeneralTotal + ' + Me.LblVideoGeneralTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoGeneralTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoGeneralTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoGeneralTotal.Location = New System.Drawing.Point(299, 19) + Me.LblVideoGeneralTotal.Name = "LblVideoGeneralTotal" + Me.LblVideoGeneralTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoGeneralTotal.TabIndex = 3 + Me.LblVideoGeneralTotal.Text = "0" + Me.LblVideoGeneralTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoGeneral + ' + Me.TxbVideoGeneral.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoGeneral.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoGeneral.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.TxbVideoGeneral.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoGeneral.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoGeneral.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneral.Name = "TxbVideoGeneral" + Me.TxbVideoGeneral.ReadOnly = True + Me.TxbVideoGeneral.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoGeneral.TabIndex = 2 + Me.TxbVideoGeneral.Text = Global.Tease_AI.My.MySettings.Default.VideoGeneral + ' + 'BTNVideoGeneral + ' + Me.BTNVideoGeneral.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoGeneral.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.BTNVideoGeneral.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoGeneral.Name = "BTNVideoGeneral" + Me.BTNVideoGeneral.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoGeneral.TabIndex = 1 + Me.BTNVideoGeneral.Text = "1" + Me.BTNVideoGeneral.UseVisualStyleBackColor = False + ' + 'CBVideoGeneral + ' + Me.CBVideoGeneral.AutoSize = True + Me.CBVideoGeneral.Checked = Global.Tease_AI.My.MySettings.Default.CBGeneral + Me.CBVideoGeneral.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGeneral", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoGeneral.ForeColor = System.Drawing.Color.Black + Me.CBVideoGeneral.Location = New System.Drawing.Point(6, 19) + Me.CBVideoGeneral.Name = "CBVideoGeneral" + Me.CBVideoGeneral.Size = New System.Drawing.Size(63, 17) + Me.CBVideoGeneral.TabIndex = 0 + Me.CBVideoGeneral.Text = "General" + Me.CBVideoGeneral.UseVisualStyleBackColor = True + ' + 'GbxVideoSpecial + ' + Me.GbxVideoSpecial.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoSpecial.Controls.Add(Me.LblVideoCHTotal) + Me.GbxVideoSpecial.Controls.Add(Me.LblVideoJOITotal) + Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoCH) + Me.GbxVideoSpecial.Controls.Add(Me.TxbVideoJOI) + Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoCH) + Me.GbxVideoSpecial.Controls.Add(Me.BTNVideoJOI) + Me.GbxVideoSpecial.Controls.Add(Me.CBVideoJOI) + Me.GbxVideoSpecial.Controls.Add(Me.CBVideoCH) + Me.GbxVideoSpecial.ForeColor = System.Drawing.Color.Black + Me.GbxVideoSpecial.Location = New System.Drawing.Point(7, 201) + Me.GbxVideoSpecial.Name = "GbxVideoSpecial" + Me.GbxVideoSpecial.Size = New System.Drawing.Size(340, 70) + Me.GbxVideoSpecial.TabIndex = 1 + Me.GbxVideoSpecial.TabStop = False + Me.GbxVideoSpecial.Text = "Special" + ' + 'LblVideoCHTotal + ' + Me.LblVideoCHTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoCHTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoCHTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoCHTotal.Location = New System.Drawing.Point(299, 41) + Me.LblVideoCHTotal.Name = "LblVideoCHTotal" + Me.LblVideoCHTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoCHTotal.TabIndex = 7 + Me.LblVideoCHTotal.Text = "0" + Me.LblVideoCHTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LblVideoJOITotal + ' + Me.LblVideoJOITotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoJOITotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoJOITotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoJOITotal.Location = New System.Drawing.Point(299, 18) + Me.LblVideoJOITotal.Name = "LblVideoJOITotal" + Me.LblVideoJOITotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoJOITotal.TabIndex = 3 + Me.LblVideoJOITotal.Text = "0" + Me.LblVideoJOITotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoCH + ' + Me.TxbVideoCH.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoCH.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoCH.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoCH.ForeColor = System.Drawing.Color.Black + Me.TxbVideoCH.Location = New System.Drawing.Point(113, 41) + Me.TxbVideoCH.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoCH.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoCH.Name = "TxbVideoCH" + Me.TxbVideoCH.ReadOnly = True + Me.TxbVideoCH.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoCH.TabIndex = 6 + Me.TxbVideoCH.Text = Global.Tease_AI.My.MySettings.Default.VideoCH + ' + 'TxbVideoJOI + ' + Me.TxbVideoJOI.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoJOI.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoJOI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoJOI.ForeColor = System.Drawing.Color.Black + Me.TxbVideoJOI.Location = New System.Drawing.Point(113, 18) + Me.TxbVideoJOI.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoJOI.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoJOI.Name = "TxbVideoJOI" + Me.TxbVideoJOI.ReadOnly = True + Me.TxbVideoJOI.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoJOI.TabIndex = 2 + Me.TxbVideoJOI.Text = Global.Tease_AI.My.MySettings.Default.VideoJOI + ' + 'BTNVideoCH + ' + Me.BTNVideoCH.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoCH.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoCH.ForeColor = System.Drawing.Color.Black + Me.BTNVideoCH.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoCH.Name = "BTNVideoCH" + Me.BTNVideoCH.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoCH.TabIndex = 5 + Me.BTNVideoCH.Text = "1" + Me.BTNVideoCH.UseVisualStyleBackColor = False + ' + 'BTNVideoJOI + ' + Me.BTNVideoJOI.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoJOI.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoJOI.ForeColor = System.Drawing.Color.Black + Me.BTNVideoJOI.Location = New System.Drawing.Point(73, 13) + Me.BTNVideoJOI.Name = "BTNVideoJOI" + Me.BTNVideoJOI.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoJOI.TabIndex = 1 + Me.BTNVideoJOI.Text = "1" + Me.BTNVideoJOI.UseVisualStyleBackColor = False + ' + 'CBVideoJOI + ' + Me.CBVideoJOI.AutoSize = True + Me.CBVideoJOI.Checked = Global.Tease_AI.My.MySettings.Default.CBJOI + Me.CBVideoJOI.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBJOI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoJOI.ForeColor = System.Drawing.Color.Black + Me.CBVideoJOI.Location = New System.Drawing.Point(6, 19) + Me.CBVideoJOI.Name = "CBVideoJOI" + Me.CBVideoJOI.Size = New System.Drawing.Size(42, 17) + Me.CBVideoJOI.TabIndex = 0 + Me.CBVideoJOI.Text = "JOI" + Me.CBVideoJOI.UseVisualStyleBackColor = True + ' + 'CBVideoCH + ' + Me.CBVideoCH.AutoSize = True + Me.CBVideoCH.Checked = Global.Tease_AI.My.MySettings.Default.CBCH + Me.CBVideoCH.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoCH.ForeColor = System.Drawing.Color.Black + Me.CBVideoCH.Location = New System.Drawing.Point(6, 43) + Me.CBVideoCH.Name = "CBVideoCH" + Me.CBVideoCH.Size = New System.Drawing.Size(41, 17) + Me.CBVideoCH.TabIndex = 4 + Me.CBVideoCH.Text = "CH" + Me.CBVideoCH.UseVisualStyleBackColor = True + ' + 'GbxVideoGenre + ' + Me.GbxVideoGenre.BackColor = System.Drawing.Color.LightGray + Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemsubTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemsub) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoFemdomTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoFemdom) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoBlowjob) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoBlowjobTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoLesbian) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoSoftCore) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoLesbianTotal) + Me.GbxVideoGenre.Controls.Add(Me.TxbVideoHardCore) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemSub) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoSoftCoreTotal) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoFemDom) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoBlowjob) + Me.GbxVideoGenre.Controls.Add(Me.LblVideoHardCoreTotal) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoLesbian) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoSoftCore) + Me.GbxVideoGenre.Controls.Add(Me.BTNVideoHardCore) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoHardcore) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoSoftCore) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoLesbian) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoBlowjob) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemsub) + Me.GbxVideoGenre.Controls.Add(Me.CBVideoFemdom) + Me.GbxVideoGenre.ForeColor = System.Drawing.Color.Black + Me.GbxVideoGenre.Location = New System.Drawing.Point(7, 30) + Me.GbxVideoGenre.Name = "GbxVideoGenre" + Me.GbxVideoGenre.Size = New System.Drawing.Size(340, 165) + Me.GbxVideoGenre.TabIndex = 0 + Me.GbxVideoGenre.TabStop = False + Me.GbxVideoGenre.Text = "Genre" + ' + 'LblVideoFemsubTotal + ' + Me.LblVideoFemsubTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemsubTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemsubTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemsubTotal.Location = New System.Drawing.Point(299, 136) + Me.LblVideoFemsubTotal.Name = "LblVideoFemsubTotal" + Me.LblVideoFemsubTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemsubTotal.TabIndex = 23 + Me.LblVideoFemsubTotal.Text = "0" + Me.LblVideoFemsubTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemsub + ' + Me.TxbVideoFemsub.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemsub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemsub.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemsub.Location = New System.Drawing.Point(113, 136) + Me.TxbVideoFemsub.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemsub.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsub.Name = "TxbVideoFemsub" + Me.TxbVideoFemsub.ReadOnly = True + Me.TxbVideoFemsub.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemsub.TabIndex = 22 + Me.TxbVideoFemsub.Text = Global.Tease_AI.My.MySettings.Default.VideoFemsub + ' + 'LblVideoFemdomTotal + ' + Me.LblVideoFemdomTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoFemdomTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoFemdomTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoFemdomTotal.Location = New System.Drawing.Point(299, 112) + Me.LblVideoFemdomTotal.Name = "LblVideoFemdomTotal" + Me.LblVideoFemdomTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoFemdomTotal.TabIndex = 19 + Me.LblVideoFemdomTotal.Text = "0" + Me.LblVideoFemdomTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoFemdom + ' + Me.TxbVideoFemdom.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoFemdom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoFemdom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoFemdom.ForeColor = System.Drawing.Color.Black + Me.TxbVideoFemdom.Location = New System.Drawing.Point(113, 112) + Me.TxbVideoFemdom.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoFemdom.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdom.Name = "TxbVideoFemdom" + Me.TxbVideoFemdom.ReadOnly = True + Me.TxbVideoFemdom.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoFemdom.TabIndex = 18 + Me.TxbVideoFemdom.Text = Global.Tease_AI.My.MySettings.Default.VideoFemdom + ' + 'TxbVideoBlowjob + ' + Me.TxbVideoBlowjob.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoBlowjob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoBlowjob.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoBlowjob.ForeColor = System.Drawing.Color.Black + Me.TxbVideoBlowjob.Location = New System.Drawing.Point(113, 88) + Me.TxbVideoBlowjob.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoBlowjob.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjob.Name = "TxbVideoBlowjob" + Me.TxbVideoBlowjob.ReadOnly = True + Me.TxbVideoBlowjob.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoBlowjob.TabIndex = 14 + Me.TxbVideoBlowjob.Text = Global.Tease_AI.My.MySettings.Default.VideoBlowjob + ' + 'LblVideoBlowjobTotal + ' + Me.LblVideoBlowjobTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoBlowjobTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoBlowjobTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoBlowjobTotal.Location = New System.Drawing.Point(299, 88) + Me.LblVideoBlowjobTotal.Name = "LblVideoBlowjobTotal" + Me.LblVideoBlowjobTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoBlowjobTotal.TabIndex = 15 + Me.LblVideoBlowjobTotal.Text = "0" + Me.LblVideoBlowjobTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoLesbian + ' + Me.TxbVideoLesbian.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoLesbian.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoLesbian.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoLesbian.ForeColor = System.Drawing.Color.Black + Me.TxbVideoLesbian.Location = New System.Drawing.Point(113, 65) + Me.TxbVideoLesbian.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoLesbian.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbian.Name = "TxbVideoLesbian" + Me.TxbVideoLesbian.ReadOnly = True + Me.TxbVideoLesbian.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoLesbian.TabIndex = 10 + Me.TxbVideoLesbian.Text = Global.Tease_AI.My.MySettings.Default.VideoLesbian + ' + 'TxbVideoSoftCore + ' + Me.TxbVideoSoftCore.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoSoftCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoSoftCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoSoftCore.ForeColor = System.Drawing.Color.Black + Me.TxbVideoSoftCore.Location = New System.Drawing.Point(113, 42) + Me.TxbVideoSoftCore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoSoftCore.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCore.Name = "TxbVideoSoftCore" + Me.TxbVideoSoftCore.ReadOnly = True + Me.TxbVideoSoftCore.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoSoftCore.TabIndex = 6 + Me.TxbVideoSoftCore.Text = Global.Tease_AI.My.MySettings.Default.VideoSoftcore + ' + 'LblVideoLesbianTotal + ' + Me.LblVideoLesbianTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoLesbianTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoLesbianTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoLesbianTotal.Location = New System.Drawing.Point(299, 66) + Me.LblVideoLesbianTotal.Name = "LblVideoLesbianTotal" + Me.LblVideoLesbianTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoLesbianTotal.TabIndex = 11 + Me.LblVideoLesbianTotal.Text = "0" + Me.LblVideoLesbianTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TxbVideoHardCore + ' + Me.TxbVideoHardCore.BackColor = System.Drawing.Color.LightGray + Me.TxbVideoHardCore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbVideoHardCore.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "VideoHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TxbVideoHardCore.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TxbVideoHardCore.ForeColor = System.Drawing.Color.Black + Me.TxbVideoHardCore.Location = New System.Drawing.Point(113, 19) + Me.TxbVideoHardCore.MaximumSize = New System.Drawing.Size(2, 17) + Me.TxbVideoHardCore.MinimumSize = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCore.Name = "TxbVideoHardCore" + Me.TxbVideoHardCore.ReadOnly = True + Me.TxbVideoHardCore.Size = New System.Drawing.Size(180, 17) + Me.TxbVideoHardCore.TabIndex = 2 + Me.TxbVideoHardCore.Text = Global.Tease_AI.My.MySettings.Default.VideoHardcore + ' + 'BTNVideoFemSub + ' + Me.BTNVideoFemSub.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemSub.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemSub.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemSub.Location = New System.Drawing.Point(73, 130) + Me.BTNVideoFemSub.Name = "BTNVideoFemSub" + Me.BTNVideoFemSub.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemSub.TabIndex = 21 + Me.BTNVideoFemSub.Text = "1" + Me.BTNVideoFemSub.UseVisualStyleBackColor = False + ' + 'LblVideoSoftCoreTotal + ' + Me.LblVideoSoftCoreTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoSoftCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoSoftCoreTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoSoftCoreTotal.Location = New System.Drawing.Point(299, 43) + Me.LblVideoSoftCoreTotal.Name = "LblVideoSoftCoreTotal" + Me.LblVideoSoftCoreTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoSoftCoreTotal.TabIndex = 7 + Me.LblVideoSoftCoreTotal.Text = "0" + Me.LblVideoSoftCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoFemDom + ' + Me.BTNVideoFemDom.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoFemDom.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoFemDom.ForeColor = System.Drawing.Color.Black + Me.BTNVideoFemDom.Location = New System.Drawing.Point(73, 106) + Me.BTNVideoFemDom.Name = "BTNVideoFemDom" + Me.BTNVideoFemDom.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoFemDom.TabIndex = 17 + Me.BTNVideoFemDom.Text = "1" + Me.BTNVideoFemDom.UseVisualStyleBackColor = False + ' + 'BTNVideoBlowjob + ' + Me.BTNVideoBlowjob.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoBlowjob.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoBlowjob.ForeColor = System.Drawing.Color.Black + Me.BTNVideoBlowjob.Location = New System.Drawing.Point(73, 82) + Me.BTNVideoBlowjob.Name = "BTNVideoBlowjob" + Me.BTNVideoBlowjob.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoBlowjob.TabIndex = 13 + Me.BTNVideoBlowjob.Text = "1" + Me.BTNVideoBlowjob.UseVisualStyleBackColor = False + ' + 'LblVideoHardCoreTotal + ' + Me.LblVideoHardCoreTotal.BackColor = System.Drawing.Color.Transparent + Me.LblVideoHardCoreTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoHardCoreTotal.ForeColor = System.Drawing.Color.Black + Me.LblVideoHardCoreTotal.Location = New System.Drawing.Point(299, 19) + Me.LblVideoHardCoreTotal.Name = "LblVideoHardCoreTotal" + Me.LblVideoHardCoreTotal.Size = New System.Drawing.Size(34, 17) + Me.LblVideoHardCoreTotal.TabIndex = 3 + Me.LblVideoHardCoreTotal.Text = "0" + Me.LblVideoHardCoreTotal.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoLesbian + ' + Me.BTNVideoLesbian.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoLesbian.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoLesbian.ForeColor = System.Drawing.Color.Black + Me.BTNVideoLesbian.Location = New System.Drawing.Point(73, 59) + Me.BTNVideoLesbian.Name = "BTNVideoLesbian" + Me.BTNVideoLesbian.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoLesbian.TabIndex = 9 + Me.BTNVideoLesbian.Text = "1" + Me.BTNVideoLesbian.UseVisualStyleBackColor = False + ' + 'BTNVideoSoftCore + ' + Me.BTNVideoSoftCore.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoSoftCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoSoftCore.ForeColor = System.Drawing.Color.Black + Me.BTNVideoSoftCore.Location = New System.Drawing.Point(73, 36) + Me.BTNVideoSoftCore.Name = "BTNVideoSoftCore" + Me.BTNVideoSoftCore.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoSoftCore.TabIndex = 5 + Me.BTNVideoSoftCore.Text = "1" + Me.BTNVideoSoftCore.UseVisualStyleBackColor = False + ' + 'BTNVideoHardCore + ' + Me.BTNVideoHardCore.BackColor = System.Drawing.Color.LightGray + Me.BTNVideoHardCore.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.BTNVideoHardCore.ForeColor = System.Drawing.Color.Black + Me.BTNVideoHardCore.Location = New System.Drawing.Point(73, 12) + Me.BTNVideoHardCore.Name = "BTNVideoHardCore" + Me.BTNVideoHardCore.Size = New System.Drawing.Size(34, 28) + Me.BTNVideoHardCore.TabIndex = 1 + Me.BTNVideoHardCore.Text = "1" + Me.BTNVideoHardCore.UseVisualStyleBackColor = False + ' + 'CBVideoHardcore + ' + Me.CBVideoHardcore.AutoSize = True + Me.CBVideoHardcore.Checked = Global.Tease_AI.My.MySettings.Default.CBHardcore + Me.CBVideoHardcore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBHardcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoHardcore.ForeColor = System.Drawing.Color.Black + Me.CBVideoHardcore.Location = New System.Drawing.Point(6, 19) + Me.CBVideoHardcore.Name = "CBVideoHardcore" + Me.CBVideoHardcore.Size = New System.Drawing.Size(70, 17) + Me.CBVideoHardcore.TabIndex = 0 + Me.CBVideoHardcore.Text = "Hardcore" + Me.CBVideoHardcore.UseVisualStyleBackColor = True + ' + 'CBVideoSoftCore + ' + Me.CBVideoSoftCore.AutoSize = True + Me.CBVideoSoftCore.Checked = Global.Tease_AI.My.MySettings.Default.CBSoftcore + Me.CBVideoSoftCore.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBSoftcore", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoSoftCore.ForeColor = System.Drawing.Color.Black + Me.CBVideoSoftCore.Location = New System.Drawing.Point(6, 43) + Me.CBVideoSoftCore.Name = "CBVideoSoftCore" + Me.CBVideoSoftCore.Size = New System.Drawing.Size(66, 17) + Me.CBVideoSoftCore.TabIndex = 4 + Me.CBVideoSoftCore.Text = "Softcore" + Me.CBVideoSoftCore.UseVisualStyleBackColor = True + ' + 'CBVideoLesbian + ' + Me.CBVideoLesbian.AutoSize = True + Me.CBVideoLesbian.Checked = Global.Tease_AI.My.MySettings.Default.CBLesbian + Me.CBVideoLesbian.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBLesbian", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoLesbian.ForeColor = System.Drawing.Color.Black + Me.CBVideoLesbian.Location = New System.Drawing.Point(6, 66) + Me.CBVideoLesbian.Name = "CBVideoLesbian" + Me.CBVideoLesbian.Size = New System.Drawing.Size(63, 17) + Me.CBVideoLesbian.TabIndex = 8 + Me.CBVideoLesbian.Text = "Lesbian" + Me.CBVideoLesbian.UseVisualStyleBackColor = True + ' + 'CBVideoBlowjob + ' + Me.CBVideoBlowjob.AutoSize = True + Me.CBVideoBlowjob.Checked = Global.Tease_AI.My.MySettings.Default.CBBlowjob + Me.CBVideoBlowjob.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBBlowjob", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoBlowjob.ForeColor = System.Drawing.Color.Black + Me.CBVideoBlowjob.Location = New System.Drawing.Point(6, 89) + Me.CBVideoBlowjob.Name = "CBVideoBlowjob" + Me.CBVideoBlowjob.Size = New System.Drawing.Size(63, 17) + Me.CBVideoBlowjob.TabIndex = 12 + Me.CBVideoBlowjob.Text = "Blowjob" + Me.CBVideoBlowjob.UseVisualStyleBackColor = True + ' + 'CBVideoFemsub + ' + Me.CBVideoFemsub.AutoSize = True + Me.CBVideoFemsub.Checked = Global.Tease_AI.My.MySettings.Default.CBFemsub + Me.CBVideoFemsub.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemsub", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemsub.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemsub.Location = New System.Drawing.Point(6, 137) + Me.CBVideoFemsub.Name = "CBVideoFemsub" + Me.CBVideoFemsub.Size = New System.Drawing.Size(63, 17) + Me.CBVideoFemsub.TabIndex = 20 + Me.CBVideoFemsub.Text = "Femsub" + Me.CBVideoFemsub.UseVisualStyleBackColor = True + ' + 'CBVideoFemdom + ' + Me.CBVideoFemdom.AutoSize = True + Me.CBVideoFemdom.Checked = Global.Tease_AI.My.MySettings.Default.CBFemdom + Me.CBVideoFemdom.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBFemdom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBVideoFemdom.ForeColor = System.Drawing.Color.Black + Me.CBVideoFemdom.Location = New System.Drawing.Point(6, 113) + Me.CBVideoFemdom.Name = "CBVideoFemdom" + Me.CBVideoFemdom.Size = New System.Drawing.Size(66, 17) + Me.CBVideoFemdom.TabIndex = 16 + Me.CBVideoFemdom.Text = "Femdom" + Me.CBVideoFemdom.UseVisualStyleBackColor = True + ' + 'LblVideoHeader + ' + Me.LblVideoHeader.BackColor = System.Drawing.Color.Transparent + Me.LblVideoHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblVideoHeader.ForeColor = System.Drawing.Color.Black + Me.LblVideoHeader.Location = New System.Drawing.Point(7, 6) + Me.LblVideoHeader.Name = "LblVideoHeader" + Me.LblVideoHeader.Size = New System.Drawing.Size(692, 21) + Me.LblVideoHeader.TabIndex = 49 + Me.LblVideoHeader.Text = "Video Settings" + Me.LblVideoHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage20 + ' + Me.TabPage20.BackColor = System.Drawing.Color.Silver + Me.TabPage20.Controls.Add(Me.TabControl1) + Me.TabPage20.Location = New System.Drawing.Point(4, 22) + Me.TabPage20.Name = "TabPage20" + Me.TabPage20.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage20.Size = New System.Drawing.Size(720, 448) + Me.TabPage20.TabIndex = 16 + Me.TabPage20.Text = "Apps" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage22) + Me.TabControl1.Controls.Add(Me.TpGames) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Location = New System.Drawing.Point(6, 6) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(708, 437) + Me.TabControl1.TabIndex = 0 + ' + 'TabPage22 + ' + Me.TabPage22.BackColor = System.Drawing.Color.LightGray + Me.TabPage22.Controls.Add(Me.PNLGlitter) + Me.TabPage22.Location = New System.Drawing.Point(4, 22) + Me.TabPage22.Name = "TabPage22" + Me.TabPage22.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage22.Size = New System.Drawing.Size(700, 411) + Me.TabPage22.TabIndex = 0 + Me.TabPage22.Text = "Glitter" + ' + 'PNLGlitter + ' + Me.PNLGlitter.BackColor = System.Drawing.Color.LightGray + Me.PNLGlitter.Controls.Add(Me.GroupBox14) + Me.PNLGlitter.Controls.Add(Me.GroupBox4) + Me.PNLGlitter.Controls.Add(Me.Button15) + Me.PNLGlitter.Controls.Add(Me.Button16) + Me.PNLGlitter.Controls.Add(Me.Label121) + Me.PNLGlitter.Controls.Add(Me.Label122) + Me.PNLGlitter.Controls.Add(Me.GBGlitterD) + Me.PNLGlitter.Controls.Add(Me.GBGlitter1) + Me.PNLGlitter.Controls.Add(Me.GBGlitter3) + Me.PNLGlitter.Controls.Add(Me.GBGlitter2) + Me.PNLGlitter.Location = New System.Drawing.Point(-3, 5) + Me.PNLGlitter.Name = "PNLGlitter" + Me.PNLGlitter.Size = New System.Drawing.Size(708, 404) + Me.PNLGlitter.TabIndex = 91 + ' + 'GroupBox14 + ' + Me.GroupBox14.BackColor = System.Drawing.Color.LightGray + Me.GroupBox14.Controls.Add(Me.Label170) + Me.GroupBox14.Controls.Add(Me.alwaysNewSlideshow) + Me.GroupBox14.Controls.Add(Me.RandomHonorific) + Me.GroupBox14.Location = New System.Drawing.Point(355, 307) + Me.GroupBox14.Name = "GroupBox14" + Me.GroupBox14.Size = New System.Drawing.Size(306, 85) + Me.GroupBox14.TabIndex = 182 + Me.GroupBox14.TabStop = False + Me.GroupBox14.Text = "General Contact Settings" + ' + 'Label170 + ' + Me.Label170.Location = New System.Drawing.Point(4, 52) + Me.Label170.Name = "Label170" + Me.Label170.Size = New System.Drawing.Size(142, 18) + Me.Label170.TabIndex = 28 + Me.Label170.Text = "Random Domme Honorific:" + Me.Label170.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'alwaysNewSlideshow + ' + Me.alwaysNewSlideshow.AutoSize = True + Me.alwaysNewSlideshow.ForeColor = System.Drawing.Color.Black + Me.alwaysNewSlideshow.Location = New System.Drawing.Point(10, 24) + Me.alwaysNewSlideshow.Name = "alwaysNewSlideshow" + Me.alwaysNewSlideshow.Size = New System.Drawing.Size(294, 17) + Me.alwaysNewSlideshow.TabIndex = 151 + Me.alwaysNewSlideshow.Text = "Always Load New Slideshow When Using @AddContact" + Me.alwaysNewSlideshow.UseVisualStyleBackColor = True + ' + 'RandomHonorific + ' + Me.RandomHonorific.BackColor = System.Drawing.Color.White + Me.RandomHonorific.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.RandomHonorific.Location = New System.Drawing.Point(149, 51) + Me.RandomHonorific.Name = "RandomHonorific" + Me.RandomHonorific.Size = New System.Drawing.Size(143, 20) + Me.RandomHonorific.TabIndex = 187 + Me.RandomHonorific.Text = "Mistress" + Me.RandomHonorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.LBLCurrentDomme) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact1) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeRandom) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact3) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeContact2) + Me.GroupBox4.Controls.Add(Me.BTNDomChangeDomme) + Me.GroupBox4.Location = New System.Drawing.Point(7, 307) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(344, 85) + Me.GroupBox4.TabIndex = 167 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "Change Current Domme" + ' + 'LBLCurrentDomme + ' + Me.LBLCurrentDomme.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLCurrentDomme.Location = New System.Drawing.Point(230, 19) + Me.LBLCurrentDomme.Name = "LBLCurrentDomme" + Me.LBLCurrentDomme.Size = New System.Drawing.Size(104, 24) + Me.LBLCurrentDomme.TabIndex = 168 + Me.LBLCurrentDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDomChangeContact1 + ' + Me.BTNDomChangeContact1.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeContact1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeContact1.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeContact1.Location = New System.Drawing.Point(6, 49) + Me.BTNDomChangeContact1.Name = "BTNDomChangeContact1" + Me.BTNDomChangeContact1.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeContact1.TabIndex = 173 + Me.BTNDomChangeContact1.Text = "Contact 1" + Me.BTNDomChangeContact1.UseVisualStyleBackColor = False + ' + 'BTNDomChangeRandom + ' + Me.BTNDomChangeRandom.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeRandom.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeRandom.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeRandom.Location = New System.Drawing.Point(116, 19) + Me.BTNDomChangeRandom.Name = "BTNDomChangeRandom" + Me.BTNDomChangeRandom.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeRandom.TabIndex = 172 + Me.BTNDomChangeRandom.Text = "Random" + Me.BTNDomChangeRandom.UseVisualStyleBackColor = False + ' + 'BTNDomChangeContact3 + ' + Me.BTNDomChangeContact3.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeContact3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeContact3.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeContact3.Location = New System.Drawing.Point(226, 49) + Me.BTNDomChangeContact3.Name = "BTNDomChangeContact3" + Me.BTNDomChangeContact3.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeContact3.TabIndex = 171 + Me.BTNDomChangeContact3.Text = "Contact 3" + Me.BTNDomChangeContact3.UseVisualStyleBackColor = False + ' + 'BTNDomChangeContact2 + ' + Me.BTNDomChangeContact2.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeContact2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeContact2.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeContact2.Location = New System.Drawing.Point(116, 49) + Me.BTNDomChangeContact2.Name = "BTNDomChangeContact2" + Me.BTNDomChangeContact2.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeContact2.TabIndex = 170 + Me.BTNDomChangeContact2.Text = "Contact 2" + Me.BTNDomChangeContact2.UseVisualStyleBackColor = False + ' + 'BTNDomChangeDomme + ' + Me.BTNDomChangeDomme.BackColor = System.Drawing.Color.LightGray + Me.BTNDomChangeDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNDomChangeDomme.ForeColor = System.Drawing.Color.Black + Me.BTNDomChangeDomme.Location = New System.Drawing.Point(6, 19) + Me.BTNDomChangeDomme.Name = "BTNDomChangeDomme" + Me.BTNDomChangeDomme.Size = New System.Drawing.Size(108, 24) + Me.BTNDomChangeDomme.TabIndex = 168 + Me.BTNDomChangeDomme.Text = "Domme" + Me.BTNDomChangeDomme.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.BackColor = System.Drawing.Color.LightGray + Me.Button15.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Export + Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button15.FlatAppearance.BorderSize = 0 + Me.Button15.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.Button15.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button15.ForeColor = System.Drawing.Color.Black + Me.Button15.Location = New System.Drawing.Point(670, 366) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(30, 26) + Me.Button15.TabIndex = 163 + Me.Button15.UseVisualStyleBackColor = False + ' + 'Button16 + ' + Me.Button16.BackColor = System.Drawing.Color.LightGray + Me.Button16.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Button_Save + Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button16.FlatAppearance.BorderSize = 0 + Me.Button16.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Gray + Me.Button16.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Silver + Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button16.ForeColor = System.Drawing.Color.Black + Me.Button16.Location = New System.Drawing.Point(667, 324) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(30, 26) + Me.Button16.TabIndex = 164 + Me.Button16.UseVisualStyleBackColor = False + ' + 'Label121 + ' + Me.Label121.AutoSize = True + Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label121.ForeColor = System.Drawing.Color.Black + Me.Label121.Location = New System.Drawing.Point(669, 352) + Me.Label121.Name = "Label121" + Me.Label121.Size = New System.Drawing.Size(27, 13) + Me.Label121.TabIndex = 166 + Me.Label121.Text = "load" + Me.Label121.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label122 + ' + Me.Label122.AutoSize = True + Me.Label122.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label122.ForeColor = System.Drawing.Color.Black + Me.Label122.Location = New System.Drawing.Point(667, 313) + Me.Label122.Name = "Label122" + Me.Label122.Size = New System.Drawing.Size(30, 13) + Me.Label122.TabIndex = 165 + Me.Label122.Text = "save" + Me.Label122.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GBGlitterD + ' + Me.GBGlitterD.BackColor = System.Drawing.Color.LightGray + Me.GBGlitterD.Controls.Add(Me.GrbGlitterfeed) + Me.GBGlitterD.Controls.Add(Me.BTNGlitterD) + Me.GBGlitterD.Controls.Add(Me.LBLGlitterNCDomme) + Me.GBGlitterD.Controls.Add(Me.LBLGlitterSlider) + Me.GBGlitterD.Controls.Add(Me.CBCustom2) + Me.GBGlitterD.Controls.Add(Me.GlitterSlider) + Me.GBGlitterD.Controls.Add(Me.CBCustom1) + Me.GBGlitterD.Controls.Add(Me.CBDaily) + Me.GBGlitterD.Controls.Add(Me.CBTrivia) + Me.GBGlitterD.Controls.Add(Me.TBGlitterShortName) + Me.GBGlitterD.Controls.Add(Me.CBEgotist) + Me.GBGlitterD.Controls.Add(Me.CBTease) + Me.GBGlitterD.Controls.Add(Me.GlitterAV) + Me.GBGlitterD.Location = New System.Drawing.Point(7, 1) + Me.GBGlitterD.Name = "GBGlitterD" + Me.GBGlitterD.Size = New System.Drawing.Size(344, 150) + Me.GBGlitterD.TabIndex = 162 + Me.GBGlitterD.TabStop = False + Me.GBGlitterD.Text = "Domme" + ' + 'GrbGlitterfeed + ' + Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedScripts) + Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeed) + Me.GrbGlitterfeed.Controls.Add(Me.CBGlitterFeedOff) + Me.GrbGlitterfeed.Location = New System.Drawing.Point(79, 16) + Me.GrbGlitterfeed.Name = "GrbGlitterfeed" + Me.GrbGlitterfeed.Size = New System.Drawing.Size(134, 35) + Me.GrbGlitterfeed.TabIndex = 168 + Me.GrbGlitterfeed.TabStop = False + Me.GrbGlitterfeed.Text = "Glitterfeeds" + ' + 'CBGlitterFeedScripts + ' + Me.CBGlitterFeedScripts.AutoSize = True + Me.CBGlitterFeedScripts.BackColor = System.Drawing.Color.Transparent + Me.CBGlitterFeedScripts.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedScripts + Me.CBGlitterFeedScripts.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedScripts", True)) + Me.CBGlitterFeedScripts.Location = New System.Drawing.Point(79, 11) + Me.CBGlitterFeedScripts.Margin = New System.Windows.Forms.Padding(0) + Me.CBGlitterFeedScripts.Name = "CBGlitterFeedScripts" + Me.CBGlitterFeedScripts.Size = New System.Drawing.Size(57, 17) + Me.CBGlitterFeedScripts.TabIndex = 146 + Me.CBGlitterFeedScripts.Text = "Scripts" + Me.CBGlitterFeedScripts.UseVisualStyleBackColor = False + ' + 'CBGlitterFeed + ' + Me.CBGlitterFeed.AutoSize = True + Me.CBGlitterFeed.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeed + Me.CBGlitterFeed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeed", True)) + Me.CBGlitterFeed.Location = New System.Drawing.Point(42, 11) + Me.CBGlitterFeed.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3) + Me.CBGlitterFeed.Name = "CBGlitterFeed" + Me.CBGlitterFeed.Size = New System.Drawing.Size(39, 17) + Me.CBGlitterFeed.TabIndex = 145 + Me.CBGlitterFeed.Text = "On" + Me.CBGlitterFeed.UseVisualStyleBackColor = True + ' + 'CBGlitterFeedOff + ' + Me.CBGlitterFeedOff.AutoSize = True + Me.CBGlitterFeedOff.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitterFeedOff + Me.CBGlitterFeedOff.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitterFeedOff", True)) + Me.CBGlitterFeedOff.Location = New System.Drawing.Point(8, 11) + Me.CBGlitterFeedOff.Margin = New System.Windows.Forms.Padding(0) + Me.CBGlitterFeedOff.Name = "CBGlitterFeedOff" + Me.CBGlitterFeedOff.Size = New System.Drawing.Size(39, 17) + Me.CBGlitterFeedOff.TabIndex = 147 + Me.CBGlitterFeedOff.TabStop = True + Me.CBGlitterFeedOff.Text = "Off" + Me.CBGlitterFeedOff.UseVisualStyleBackColor = True + ' + 'BTNGlitterD + ' + Me.BTNGlitterD.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitterD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitterD.ForeColor = System.Drawing.Color.Black + Me.BTNGlitterD.Location = New System.Drawing.Point(220, 23) + Me.BTNGlitterD.Name = "BTNGlitterD" + Me.BTNGlitterD.Size = New System.Drawing.Size(115, 24) + Me.BTNGlitterD.TabIndex = 166 + Me.BTNGlitterD.Text = "Choose Name Color" + Me.BTNGlitterD.UseVisualStyleBackColor = False + ' + 'LBLGlitterNCDomme + ' + Me.LBLGlitterNCDomme.BackColor = System.Drawing.Color.White + Me.LBLGlitterNCDomme.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNCDomme.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNCDommeColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNCDomme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNCDomme.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNCDommeColor + Me.LBLGlitterNCDomme.Location = New System.Drawing.Point(220, 57) + Me.LBLGlitterNCDomme.Name = "LBLGlitterNCDomme" + Me.LBLGlitterNCDomme.Size = New System.Drawing.Size(115, 23) + Me.LBLGlitterNCDomme.TabIndex = 163 + Me.LBLGlitterNCDomme.Text = "Preview" + Me.LBLGlitterNCDomme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider + ' + Me.LBLGlitterSlider.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider.Name = "LBLGlitterSlider" + Me.LBLGlitterSlider.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider.TabIndex = 162 + Me.LBLGlitterSlider.Text = "Post Frequency" + Me.LBLGlitterSlider.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBCustom2 + ' + Me.CBCustom2.AutoSize = True + Me.CBCustom2.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom2 + Me.CBCustom2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBCustom2.ForeColor = System.Drawing.Color.Black + Me.CBCustom2.Location = New System.Drawing.Point(149, 121) + Me.CBCustom2.Name = "CBCustom2" + Me.CBCustom2.Size = New System.Drawing.Size(70, 17) + Me.CBCustom2.TabIndex = 161 + Me.CBCustom2.Text = "Custom 2" + Me.CBCustom2.UseVisualStyleBackColor = True + ' + 'GlitterSlider + ' + Me.GlitterSlider.AutoSize = False + Me.GlitterSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "GlitterDSlider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider.LargeChange = 1 + Me.GlitterSlider.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider.Maximum = 9 + Me.GlitterSlider.Minimum = 1 + Me.GlitterSlider.Name = "GlitterSlider" + Me.GlitterSlider.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider.TabIndex = 160 + Me.GlitterSlider.Value = Global.Tease_AI.My.MySettings.Default.GlitterDSlider + ' + 'CBCustom1 + ' + Me.CBCustom1.AutoSize = True + Me.CBCustom1.Checked = Global.Tease_AI.My.MySettings.Default.CB2Custom1 + Me.CBCustom1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CB2Custom1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBCustom1.ForeColor = System.Drawing.Color.Black + Me.CBCustom1.Location = New System.Drawing.Point(149, 98) + Me.CBCustom1.Name = "CBCustom1" + Me.CBCustom1.Size = New System.Drawing.Size(70, 17) + Me.CBCustom1.TabIndex = 157 + Me.CBCustom1.Text = "Custom 1" + Me.CBCustom1.UseVisualStyleBackColor = True + ' + 'CBDaily + ' + Me.CBDaily.AutoSize = True + Me.CBDaily.Checked = Global.Tease_AI.My.MySettings.Default.CBDaily + Me.CBDaily.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBDaily", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBDaily.ForeColor = System.Drawing.Color.Black + Me.CBDaily.Location = New System.Drawing.Point(79, 121) + Me.CBDaily.Name = "CBDaily" + Me.CBDaily.Size = New System.Drawing.Size(49, 17) + Me.CBDaily.TabIndex = 156 + Me.CBDaily.Text = "Daily" + Me.CBDaily.UseVisualStyleBackColor = True + ' + 'CBTrivia + ' + Me.CBTrivia.AutoSize = True + Me.CBTrivia.Checked = Global.Tease_AI.My.MySettings.Default.CBTrivia + Me.CBTrivia.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBTrivia.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTrivia", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBTrivia.ForeColor = System.Drawing.Color.Black + Me.CBTrivia.Location = New System.Drawing.Point(79, 98) + Me.CBTrivia.Name = "CBTrivia" + Me.CBTrivia.Size = New System.Drawing.Size(52, 17) + Me.CBTrivia.TabIndex = 155 + Me.CBTrivia.Text = "Trivia" + Me.CBTrivia.UseVisualStyleBackColor = True + ' + 'TBGlitterShortName + ' + Me.TBGlitterShortName.BackColor = System.Drawing.Color.White + Me.TBGlitterShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GlitterSN", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitterShortName.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitterShortName.ForeColor = System.Drawing.Color.Black + Me.TBGlitterShortName.Location = New System.Drawing.Point(79, 57) + Me.TBGlitterShortName.Name = "TBGlitterShortName" + Me.TBGlitterShortName.Size = New System.Drawing.Size(134, 23) + Me.TBGlitterShortName.TabIndex = 49 + Me.TBGlitterShortName.Text = Global.Tease_AI.My.MySettings.Default.GlitterSN + Me.TBGlitterShortName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'CBEgotist + ' + Me.CBEgotist.AutoSize = True + Me.CBEgotist.Checked = Global.Tease_AI.My.MySettings.Default.CBEgotist + Me.CBEgotist.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBEgotist", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBEgotist.ForeColor = System.Drawing.Color.Black + Me.CBEgotist.Location = New System.Drawing.Point(9, 121) + Me.CBEgotist.Name = "CBEgotist" + Me.CBEgotist.Size = New System.Drawing.Size(58, 17) + Me.CBEgotist.TabIndex = 153 + Me.CBEgotist.Text = "Egotist" + Me.CBEgotist.UseVisualStyleBackColor = True + ' + 'CBTease + ' + Me.CBTease.AutoSize = True + Me.CBTease.Checked = Global.Tease_AI.My.MySettings.Default.CBTease + Me.CBTease.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBTease", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBTease.ForeColor = System.Drawing.Color.Black + Me.CBTease.Location = New System.Drawing.Point(9, 98) + Me.CBTease.Name = "CBTease" + Me.CBTease.Size = New System.Drawing.Size(56, 17) + Me.CBTease.TabIndex = 152 + Me.CBTease.Text = "Tease" + Me.CBTease.UseVisualStyleBackColor = True + ' + 'GlitterAV + ' + Me.GlitterAV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV.Location = New System.Drawing.Point(9, 22) + Me.GlitterAV.Name = "GlitterAV" + Me.GlitterAV.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV.TabIndex = 149 + Me.GlitterAV.TabStop = False + ' + 'GBGlitter1 + ' + Me.GBGlitter1.BackColor = System.Drawing.Color.LightGray + Me.GBGlitter1.Controls.Add(Me.Label167) + Me.GBGlitter1.Controls.Add(Me.G1Honorific) + Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDirClear) + Me.GBGlitter1.Controls.Add(Me.BtnContact1ImageDir) + Me.GBGlitter1.Controls.Add(Me.TbxContact1ImageDir) + Me.GBGlitter1.Controls.Add(Me.BTNGlitter1) + Me.GBGlitter1.Controls.Add(Me.LBLGlitterNC1) + Me.GBGlitter1.Controls.Add(Me.LBLGlitterSlider1) + Me.GBGlitter1.Controls.Add(Me.GlitterSlider1) + Me.GBGlitter1.Controls.Add(Me.CBGlitter1) + Me.GBGlitter1.Controls.Add(Me.TBGlitter1) + Me.GBGlitter1.Controls.Add(Me.GlitterAV1) + Me.GBGlitter1.Location = New System.Drawing.Point(355, 1) + Me.GBGlitter1.Name = "GBGlitter1" + Me.GBGlitter1.Size = New System.Drawing.Size(344, 150) + Me.GBGlitter1.TabIndex = 161 + Me.GBGlitter1.TabStop = False + Me.GBGlitter1.Text = "Contact 1" + ' + 'Label167 + ' + Me.Label167.BackColor = System.Drawing.Color.Transparent + Me.Label167.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label167.ForeColor = System.Drawing.Color.Black + Me.Label167.Location = New System.Drawing.Point(220, 15) + Me.Label167.Name = "Label167" + Me.Label167.Size = New System.Drawing.Size(114, 19) + Me.Label167.TabIndex = 182 + Me.Label167.Text = "Contact Honorific" + Me.Label167.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'G1Honorific + ' + Me.G1Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.G1Honorific.Location = New System.Drawing.Point(220, 34) + Me.G1Honorific.Name = "G1Honorific" + Me.G1Honorific.Size = New System.Drawing.Size(116, 23) + Me.G1Honorific.TabIndex = 0 + Me.G1Honorific.Text = "Mistress" + Me.G1Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BtnContact1ImageDirClear + ' + Me.BtnContact1ImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnContact1ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact1ImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnContact1ImageDirClear.Location = New System.Drawing.Point(174, 93) + Me.BtnContact1ImageDirClear.Name = "BtnContact1ImageDirClear" + Me.BtnContact1ImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnContact1ImageDirClear.TabIndex = 181 + Me.BtnContact1ImageDirClear.Text = "Clear" + Me.BtnContact1ImageDirClear.UseVisualStyleBackColor = False + ' + 'BtnContact1ImageDir + ' + Me.BtnContact1ImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact1ImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnContact1ImageDir.Location = New System.Drawing.Point(9, 93) + Me.BtnContact1ImageDir.Name = "BtnContact1ImageDir" + Me.BtnContact1ImageDir.Size = New System.Drawing.Size(160, 22) + Me.BtnContact1ImageDir.TabIndex = 177 + Me.BtnContact1ImageDir.Text = "Set Contact1 Images Directory" + Me.BtnContact1ImageDir.UseVisualStyleBackColor = False + ' + 'TbxContact1ImageDir + ' + Me.TbxContact1ImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxContact1ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxContact1ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact1ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxContact1ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxContact1ImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxContact1ImageDir.Location = New System.Drawing.Point(9, 121) + Me.TbxContact1ImageDir.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxContact1ImageDir.MinimumSize = New System.Drawing.Size(204, 17) + Me.TbxContact1ImageDir.Name = "TbxContact1ImageDir" + Me.TbxContact1ImageDir.ReadOnly = True + Me.TbxContact1ImageDir.Size = New System.Drawing.Size(204, 17) + Me.TbxContact1ImageDir.TabIndex = 176 + Me.TbxContact1ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact1ImageDir + ' + 'BTNGlitter1 + ' + Me.BTNGlitter1.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitter1.ForeColor = System.Drawing.Color.Black + Me.BTNGlitter1.Location = New System.Drawing.Point(78, 64) + Me.BTNGlitter1.Name = "BTNGlitter1" + Me.BTNGlitter1.Size = New System.Drawing.Size(136, 23) + Me.BTNGlitter1.TabIndex = 175 + Me.BTNGlitter1.Text = "Choose Name Color" + Me.BTNGlitter1.UseVisualStyleBackColor = False + ' + 'LBLGlitterNC1 + ' + Me.LBLGlitterNC1.BackColor = System.Drawing.Color.White + Me.LBLGlitterNC1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNC1.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC1Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNC1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNC1.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC1Color + Me.LBLGlitterNC1.Location = New System.Drawing.Point(220, 64) + Me.LBLGlitterNC1.Name = "LBLGlitterNC1" + Me.LBLGlitterNC1.Size = New System.Drawing.Size(114, 23) + Me.LBLGlitterNC1.TabIndex = 166 + Me.LBLGlitterNC1.Text = "Preview" + Me.LBLGlitterNC1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider1 + ' + Me.LBLGlitterSlider1.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider1.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider1.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider1.Name = "LBLGlitterSlider1" + Me.LBLGlitterSlider1.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider1.TabIndex = 163 + Me.LBLGlitterSlider1.Text = "Response Frequency" + Me.LBLGlitterSlider1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GlitterSlider1 + ' + Me.GlitterSlider1.AutoSize = False + Me.GlitterSlider1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter1Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider1.LargeChange = 1 + Me.GlitterSlider1.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider1.Maximum = 9 + Me.GlitterSlider1.Minimum = 1 + Me.GlitterSlider1.Name = "GlitterSlider1" + Me.GlitterSlider1.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider1.TabIndex = 161 + Me.GlitterSlider1.Value = Global.Tease_AI.My.MySettings.Default.Glitter1Slider + ' + 'CBGlitter1 + ' + Me.CBGlitter1.AutoSize = True + Me.CBGlitter1.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter1 + Me.CBGlitter1.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBGlitter1.ForeColor = System.Drawing.Color.Black + Me.CBGlitter1.Location = New System.Drawing.Point(79, 15) + Me.CBGlitter1.Name = "CBGlitter1" + Me.CBGlitter1.Size = New System.Drawing.Size(122, 17) + Me.CBGlitter1.TabIndex = 151 + Me.CBGlitter1.Text = "Enable This Contact" + Me.CBGlitter1.UseVisualStyleBackColor = True + ' + 'TBGlitter1 + ' + Me.TBGlitter1.BackColor = System.Drawing.Color.White + Me.TBGlitter1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitter1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitter1.ForeColor = System.Drawing.Color.Black + Me.TBGlitter1.Location = New System.Drawing.Point(79, 34) + Me.TBGlitter1.Name = "TBGlitter1" + Me.TBGlitter1.Size = New System.Drawing.Size(134, 23) + Me.TBGlitter1.TabIndex = 49 + Me.TBGlitter1.Text = Global.Tease_AI.My.MySettings.Default.Glitter1 + Me.TBGlitter1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GlitterAV1 + ' + Me.GlitterAV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV1.Location = New System.Drawing.Point(9, 22) + Me.GlitterAV1.Name = "GlitterAV1" + Me.GlitterAV1.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV1.TabIndex = 149 + Me.GlitterAV1.TabStop = False + ' + 'GBGlitter3 + ' + Me.GBGlitter3.BackColor = System.Drawing.Color.LightGray + Me.GBGlitter3.Controls.Add(Me.Label168) + Me.GBGlitter3.Controls.Add(Me.G3Honorific) + Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDirClear) + Me.GBGlitter3.Controls.Add(Me.BtnContact3ImageDir) + Me.GBGlitter3.Controls.Add(Me.TbxContact3ImageDir) + Me.GBGlitter3.Controls.Add(Me.BTNGlitter3) + Me.GBGlitter3.Controls.Add(Me.LBLGlitterNC3) + Me.GBGlitter3.Controls.Add(Me.LBLGlitterSlider3) + Me.GBGlitter3.Controls.Add(Me.GlitterSlider3) + Me.GBGlitter3.Controls.Add(Me.CBGlitter3) + Me.GBGlitter3.Controls.Add(Me.TBGlitter3) + Me.GBGlitter3.Controls.Add(Me.GlitterAV3) + Me.GBGlitter3.Location = New System.Drawing.Point(355, 151) + Me.GBGlitter3.Name = "GBGlitter3" + Me.GBGlitter3.Size = New System.Drawing.Size(344, 150) + Me.GBGlitter3.TabIndex = 160 + Me.GBGlitter3.TabStop = False + Me.GBGlitter3.Text = "Contact 3" + ' + 'Label168 + ' + Me.Label168.BackColor = System.Drawing.Color.Transparent + Me.Label168.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label168.ForeColor = System.Drawing.Color.Black + Me.Label168.Location = New System.Drawing.Point(220, 15) + Me.Label168.Name = "Label168" + Me.Label168.Size = New System.Drawing.Size(114, 19) + Me.Label168.TabIndex = 181 + Me.Label168.Text = "Contact Honorific" + Me.Label168.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'G3Honorific + ' + Me.G3Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.G3Honorific.Location = New System.Drawing.Point(220, 34) + Me.G3Honorific.Name = "G3Honorific" + Me.G3Honorific.Size = New System.Drawing.Size(115, 23) + Me.G3Honorific.TabIndex = 0 + Me.G3Honorific.Text = "Mistress" + Me.G3Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BtnContact3ImageDirClear + ' + Me.BtnContact3ImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnContact3ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact3ImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnContact3ImageDirClear.Location = New System.Drawing.Point(174, 93) + Me.BtnContact3ImageDirClear.Name = "BtnContact3ImageDirClear" + Me.BtnContact3ImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnContact3ImageDirClear.TabIndex = 180 + Me.BtnContact3ImageDirClear.Text = "Clear" + Me.BtnContact3ImageDirClear.UseVisualStyleBackColor = False + ' + 'BtnContact3ImageDir + ' + Me.BtnContact3ImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact3ImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnContact3ImageDir.Location = New System.Drawing.Point(9, 93) + Me.BtnContact3ImageDir.Name = "BtnContact3ImageDir" + Me.BtnContact3ImageDir.Size = New System.Drawing.Size(160, 22) + Me.BtnContact3ImageDir.TabIndex = 179 + Me.BtnContact3ImageDir.Text = "Set Contact3 Images Directory" + Me.BtnContact3ImageDir.UseVisualStyleBackColor = False + ' + 'TbxContact3ImageDir + ' + Me.TbxContact3ImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxContact3ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxContact3ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact3ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxContact3ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxContact3ImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxContact3ImageDir.Location = New System.Drawing.Point(9, 121) + Me.TbxContact3ImageDir.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxContact3ImageDir.MinimumSize = New System.Drawing.Size(204, 17) + Me.TbxContact3ImageDir.Name = "TbxContact3ImageDir" + Me.TbxContact3ImageDir.ReadOnly = True + Me.TbxContact3ImageDir.Size = New System.Drawing.Size(204, 17) + Me.TbxContact3ImageDir.TabIndex = 178 + Me.TbxContact3ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact3ImageDir + ' + 'BTNGlitter3 + ' + Me.BTNGlitter3.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitter3.ForeColor = System.Drawing.Color.Black + Me.BTNGlitter3.Location = New System.Drawing.Point(78, 64) + Me.BTNGlitter3.Name = "BTNGlitter3" + Me.BTNGlitter3.Size = New System.Drawing.Size(136, 23) + Me.BTNGlitter3.TabIndex = 175 + Me.BTNGlitter3.Text = "Choose Name Color" + Me.BTNGlitter3.UseVisualStyleBackColor = False + ' + 'LBLGlitterNC3 + ' + Me.LBLGlitterNC3.BackColor = System.Drawing.Color.White + Me.LBLGlitterNC3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNC3.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC3Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNC3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNC3.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC3Color + Me.LBLGlitterNC3.Location = New System.Drawing.Point(220, 64) + Me.LBLGlitterNC3.Name = "LBLGlitterNC3" + Me.LBLGlitterNC3.Size = New System.Drawing.Size(114, 23) + Me.LBLGlitterNC3.TabIndex = 166 + Me.LBLGlitterNC3.Text = "Preview" + Me.LBLGlitterNC3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider3 + ' + Me.LBLGlitterSlider3.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider3.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider3.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider3.Name = "LBLGlitterSlider3" + Me.LBLGlitterSlider3.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider3.TabIndex = 163 + Me.LBLGlitterSlider3.Text = "Response Frequency" + Me.LBLGlitterSlider3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GlitterSlider3 + ' + Me.GlitterSlider3.AutoSize = False + Me.GlitterSlider3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter3Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider3.LargeChange = 1 + Me.GlitterSlider3.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider3.Maximum = 9 + Me.GlitterSlider3.Minimum = 1 + Me.GlitterSlider3.Name = "GlitterSlider3" + Me.GlitterSlider3.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider3.TabIndex = 161 + Me.GlitterSlider3.Value = Global.Tease_AI.My.MySettings.Default.Glitter3Slider + ' + 'CBGlitter3 + ' + Me.CBGlitter3.AutoSize = True + Me.CBGlitter3.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter3 + Me.CBGlitter3.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBGlitter3.ForeColor = System.Drawing.Color.Black + Me.CBGlitter3.Location = New System.Drawing.Point(79, 15) + Me.CBGlitter3.Name = "CBGlitter3" + Me.CBGlitter3.Size = New System.Drawing.Size(122, 17) + Me.CBGlitter3.TabIndex = 151 + Me.CBGlitter3.Text = "Enable This Contact" + Me.CBGlitter3.UseVisualStyleBackColor = True + ' + 'TBGlitter3 + ' + Me.TBGlitter3.BackColor = System.Drawing.Color.White + Me.TBGlitter3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitter3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitter3.ForeColor = System.Drawing.Color.Black + Me.TBGlitter3.Location = New System.Drawing.Point(79, 34) + Me.TBGlitter3.Name = "TBGlitter3" + Me.TBGlitter3.Size = New System.Drawing.Size(134, 23) + Me.TBGlitter3.TabIndex = 49 + Me.TBGlitter3.Text = Global.Tease_AI.My.MySettings.Default.Glitter3 + Me.TBGlitter3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GlitterAV3 + ' + Me.GlitterAV3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV3.Location = New System.Drawing.Point(9, 22) + Me.GlitterAV3.Name = "GlitterAV3" + Me.GlitterAV3.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV3.TabIndex = 149 + Me.GlitterAV3.TabStop = False + ' + 'GBGlitter2 + ' + Me.GBGlitter2.BackColor = System.Drawing.Color.LightGray + Me.GBGlitter2.Controls.Add(Me.Label169) + Me.GBGlitter2.Controls.Add(Me.G2Honorific) + Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDirClear) + Me.GBGlitter2.Controls.Add(Me.BtnContact2ImageDir) + Me.GBGlitter2.Controls.Add(Me.TbxContact2ImageDir) + Me.GBGlitter2.Controls.Add(Me.BTNGlitter2) + Me.GBGlitter2.Controls.Add(Me.LBLGlitterNC2) + Me.GBGlitter2.Controls.Add(Me.LBLGlitterSlider2) + Me.GBGlitter2.Controls.Add(Me.GlitterSlider2) + Me.GBGlitter2.Controls.Add(Me.CBGlitter2) + Me.GBGlitter2.Controls.Add(Me.TBGlitter2) + Me.GBGlitter2.Controls.Add(Me.GlitterAV2) + Me.GBGlitter2.Location = New System.Drawing.Point(7, 151) + Me.GBGlitter2.Name = "GBGlitter2" + Me.GBGlitter2.Size = New System.Drawing.Size(344, 150) + Me.GBGlitter2.TabIndex = 151 + Me.GBGlitter2.TabStop = False + Me.GBGlitter2.Text = "Contact 2" + ' + 'Label169 + ' + Me.Label169.BackColor = System.Drawing.Color.Transparent + Me.Label169.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label169.ForeColor = System.Drawing.Color.Black + Me.Label169.Location = New System.Drawing.Point(220, 15) + Me.Label169.Name = "Label169" + Me.Label169.Size = New System.Drawing.Size(114, 19) + Me.Label169.TabIndex = 182 + Me.Label169.Text = "Contact Honorific" + Me.Label169.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'G2Honorific + ' + Me.G2Honorific.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.G2Honorific.Location = New System.Drawing.Point(220, 34) + Me.G2Honorific.Name = "G2Honorific" + Me.G2Honorific.Size = New System.Drawing.Size(115, 23) + Me.G2Honorific.TabIndex = 0 + Me.G2Honorific.Text = "Mistress" + Me.G2Honorific.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BtnContact2ImageDirClear + ' + Me.BtnContact2ImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnContact2ImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact2ImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnContact2ImageDirClear.Location = New System.Drawing.Point(174, 93) + Me.BtnContact2ImageDirClear.Name = "BtnContact2ImageDirClear" + Me.BtnContact2ImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnContact2ImageDirClear.TabIndex = 181 + Me.BtnContact2ImageDirClear.Text = "Clear" + Me.BtnContact2ImageDirClear.UseVisualStyleBackColor = False + ' + 'BtnContact2ImageDir + ' + Me.BtnContact2ImageDir.BackColor = System.Drawing.Color.LightGray + Me.BtnContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnContact2ImageDir.ForeColor = System.Drawing.Color.Black + Me.BtnContact2ImageDir.Location = New System.Drawing.Point(9, 93) + Me.BtnContact2ImageDir.Name = "BtnContact2ImageDir" + Me.BtnContact2ImageDir.Size = New System.Drawing.Size(160, 22) + Me.BtnContact2ImageDir.TabIndex = 179 + Me.BtnContact2ImageDir.Text = "Set Contact2 Images Directory" + Me.BtnContact2ImageDir.UseVisualStyleBackColor = False + ' + 'TbxContact2ImageDir + ' + Me.TbxContact2ImageDir.BackColor = System.Drawing.Color.LightGray + Me.TbxContact2ImageDir.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TbxContact2ImageDir.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Contact2ImageDir", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TbxContact2ImageDir.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TbxContact2ImageDir.ForeColor = System.Drawing.Color.Black + Me.TbxContact2ImageDir.Location = New System.Drawing.Point(9, 121) + Me.TbxContact2ImageDir.MaximumSize = New System.Drawing.Size(2, 17) + Me.TbxContact2ImageDir.MinimumSize = New System.Drawing.Size(204, 17) + Me.TbxContact2ImageDir.Name = "TbxContact2ImageDir" + Me.TbxContact2ImageDir.ReadOnly = True + Me.TbxContact2ImageDir.Size = New System.Drawing.Size(204, 17) + Me.TbxContact2ImageDir.TabIndex = 178 + Me.TbxContact2ImageDir.Text = Global.Tease_AI.My.MySettings.Default.Contact2ImageDir + ' + 'BTNGlitter2 + ' + Me.BTNGlitter2.BackColor = System.Drawing.Color.LightGray + Me.BTNGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNGlitter2.ForeColor = System.Drawing.Color.Black + Me.BTNGlitter2.Location = New System.Drawing.Point(78, 64) + Me.BTNGlitter2.Name = "BTNGlitter2" + Me.BTNGlitter2.Size = New System.Drawing.Size(136, 23) + Me.BTNGlitter2.TabIndex = 167 + Me.BTNGlitter2.Text = "Choose Name Color" + Me.BTNGlitter2.UseVisualStyleBackColor = False + ' + 'LBLGlitterNC2 + ' + Me.LBLGlitterNC2.BackColor = System.Drawing.Color.White + Me.LBLGlitterNC2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLGlitterNC2.DataBindings.Add(New System.Windows.Forms.Binding("ForeColor", Global.Tease_AI.My.MySettings.Default, "GlitterNC2Color", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLGlitterNC2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterNC2.ForeColor = Global.Tease_AI.My.MySettings.Default.GlitterNC2Color + Me.LBLGlitterNC2.Location = New System.Drawing.Point(220, 64) + Me.LBLGlitterNC2.Name = "LBLGlitterNC2" + Me.LBLGlitterNC2.Size = New System.Drawing.Size(114, 23) + Me.LBLGlitterNC2.TabIndex = 166 + Me.LBLGlitterNC2.Text = "Preview" + Me.LBLGlitterNC2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitterSlider2 + ' + Me.LBLGlitterSlider2.BackColor = System.Drawing.Color.Transparent + Me.LBLGlitterSlider2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitterSlider2.ForeColor = System.Drawing.Color.Black + Me.LBLGlitterSlider2.Location = New System.Drawing.Point(220, 96) + Me.LBLGlitterSlider2.Name = "LBLGlitterSlider2" + Me.LBLGlitterSlider2.Size = New System.Drawing.Size(115, 19) + Me.LBLGlitterSlider2.TabIndex = 163 + Me.LBLGlitterSlider2.Text = "Response Frequency" + Me.LBLGlitterSlider2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GlitterSlider2 + ' + Me.GlitterSlider2.AutoSize = False + Me.GlitterSlider2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "Glitter2Slider", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GlitterSlider2.LargeChange = 1 + Me.GlitterSlider2.Location = New System.Drawing.Point(220, 118) + Me.GlitterSlider2.Maximum = 9 + Me.GlitterSlider2.Minimum = 1 + Me.GlitterSlider2.Name = "GlitterSlider2" + Me.GlitterSlider2.Size = New System.Drawing.Size(115, 25) + Me.GlitterSlider2.TabIndex = 161 + Me.GlitterSlider2.Value = Global.Tease_AI.My.MySettings.Default.Glitter2Slider + ' + 'CBGlitter2 + ' + Me.CBGlitter2.AutoSize = True + Me.CBGlitter2.Checked = Global.Tease_AI.My.MySettings.Default.CBGlitter2 + Me.CBGlitter2.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBGlitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBGlitter2.ForeColor = System.Drawing.Color.Black + Me.CBGlitter2.Location = New System.Drawing.Point(79, 15) + Me.CBGlitter2.Name = "CBGlitter2" + Me.CBGlitter2.Size = New System.Drawing.Size(122, 17) + Me.CBGlitter2.TabIndex = 151 + Me.CBGlitter2.Text = "Enable This Contact" + Me.CBGlitter2.UseVisualStyleBackColor = True + ' + 'TBGlitter2 + ' + Me.TBGlitter2.BackColor = System.Drawing.Color.White + Me.TBGlitter2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "Glitter2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TBGlitter2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TBGlitter2.ForeColor = System.Drawing.Color.Black + Me.TBGlitter2.Location = New System.Drawing.Point(79, 34) + Me.TBGlitter2.Name = "TBGlitter2" + Me.TBGlitter2.Size = New System.Drawing.Size(134, 23) + Me.TBGlitter2.TabIndex = 49 + Me.TBGlitter2.Text = Global.Tease_AI.My.MySettings.Default.Glitter2 + Me.TBGlitter2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GlitterAV2 + ' + Me.GlitterAV2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GlitterAV2.Location = New System.Drawing.Point(9, 22) + Me.GlitterAV2.Name = "GlitterAV2" + Me.GlitterAV2.Size = New System.Drawing.Size(64, 64) + Me.GlitterAV2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GlitterAV2.TabIndex = 149 + Me.GlitterAV2.TabStop = False + ' + 'TpGames + ' + Me.TpGames.BackColor = System.Drawing.Color.LightGray + Me.TpGames.Controls.Add(Me.CBIncludeGifs) + Me.TpGames.Controls.Add(Me.LblCardsSetupNote) + Me.TpGames.Controls.Add(Me.CBGameSounds) + Me.TpGames.Controls.Add(Me.GbxCardsGold) + Me.TpGames.Controls.Add(Me.GbxCardsBackground) + Me.TpGames.Controls.Add(Me.GbxCardsBronze) + Me.TpGames.Controls.Add(Me.GbxCardsSilver) + Me.TpGames.Location = New System.Drawing.Point(4, 22) + Me.TpGames.Name = "TpGames" + Me.TpGames.Padding = New System.Windows.Forms.Padding(3) + Me.TpGames.Size = New System.Drawing.Size(700, 411) + Me.TpGames.TabIndex = 1 + Me.TpGames.Text = "Games" + ' + 'CBIncludeGifs + ' + Me.CBIncludeGifs.AutoSize = True + Me.CBIncludeGifs.Checked = Global.Tease_AI.My.MySettings.Default.CBIncludeGifs + Me.CBIncludeGifs.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBIncludeGifs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBIncludeGifs", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBIncludeGifs.Location = New System.Drawing.Point(528, 351) + Me.CBIncludeGifs.Name = "CBIncludeGifs" + Me.CBIncludeGifs.Size = New System.Drawing.Size(154, 17) + Me.CBIncludeGifs.TabIndex = 5 + Me.CBIncludeGifs.Text = "Match Game Includes Gifs " + Me.CBIncludeGifs.UseVisualStyleBackColor = True + ' + 'LblCardsSetupNote + ' + Me.LblCardsSetupNote.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LblCardsSetupNote.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblCardsSetupNote.Location = New System.Drawing.Point(523, 249) + Me.LblCardsSetupNote.Name = "LblCardsSetupNote" + Me.LblCardsSetupNote.Size = New System.Drawing.Size(171, 93) + Me.LblCardsSetupNote.TabIndex = 4 + Me.LblCardsSetupNote.Text = "Each of the pictures in this tab MUST be set before the Games app can be selected" & + "!" + Me.LblCardsSetupNote.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'CBGameSounds + ' + Me.CBGameSounds.AutoSize = True + Me.CBGameSounds.Checked = True + Me.CBGameSounds.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBGameSounds.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBGameSounds.ForeColor = System.Drawing.Color.Black + Me.CBGameSounds.Location = New System.Drawing.Point(528, 379) + Me.CBGameSounds.Name = "CBGameSounds" + Me.CBGameSounds.Size = New System.Drawing.Size(116, 17) + Me.CBGameSounds.TabIndex = 6 + Me.CBGameSounds.Text = "Play Game Sounds" + Me.CBGameSounds.UseVisualStyleBackColor = True + ' + 'GbxCardsGold + ' + Me.GbxCardsGold.Controls.Add(Me.GN6) + Me.GbxCardsGold.Controls.Add(Me.GP6) + Me.GbxCardsGold.Controls.Add(Me.GN2) + Me.GbxCardsGold.Controls.Add(Me.GP2) + Me.GbxCardsGold.Controls.Add(Me.GP5) + Me.GbxCardsGold.Controls.Add(Me.GN1) + Me.GbxCardsGold.Controls.Add(Me.GP1) + Me.GbxCardsGold.Controls.Add(Me.GN5) + Me.GbxCardsGold.Controls.Add(Me.GN3) + Me.GbxCardsGold.Controls.Add(Me.GP3) + Me.GbxCardsGold.Controls.Add(Me.GP4) + Me.GbxCardsGold.Controls.Add(Me.GN4) + Me.GbxCardsGold.Location = New System.Drawing.Point(350, 7) + Me.GbxCardsGold.Name = "GbxCardsGold" + Me.GbxCardsGold.Size = New System.Drawing.Size(166, 398) + Me.GbxCardsGold.TabIndex = 2 + Me.GbxCardsGold.TabStop = False + Me.GbxCardsGold.Text = "Gold Cards" + ' + 'GN6 + ' + Me.GN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN6.Location = New System.Drawing.Point(86, 367) + Me.GN6.Name = "GN6" + Me.GN6.Size = New System.Drawing.Size(71, 20) + Me.GN6.TabIndex = 5 + Me.GN6.Text = Global.Tease_AI.My.MySettings.Default.GN6 + Me.GN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP6 + ' + Me.GP6.BackColor = System.Drawing.Color.Silver + Me.GP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP6 + Me.GP6.InitialImage = Nothing + Me.GP6.Location = New System.Drawing.Point(86, 268) + Me.GP6.Name = "GP6" + Me.GP6.Size = New System.Drawing.Size(71, 93) + Me.GP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP6.TabIndex = 17 + Me.GP6.TabStop = False + ' + 'GN2 + ' + Me.GN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN2.Location = New System.Drawing.Point(86, 117) + Me.GN2.Name = "GN2" + Me.GN2.Size = New System.Drawing.Size(71, 20) + Me.GN2.TabIndex = 1 + Me.GN2.Text = Global.Tease_AI.My.MySettings.Default.GN2 + Me.GN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP2 + ' + Me.GP2.BackColor = System.Drawing.Color.Silver + Me.GP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP2 + Me.GP2.InitialImage = Nothing + Me.GP2.Location = New System.Drawing.Point(86, 17) + Me.GP2.Name = "GP2" + Me.GP2.Size = New System.Drawing.Size(71, 94) + Me.GP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP2.TabIndex = 9 + Me.GP2.TabStop = False + ' + 'GP5 + ' + Me.GP5.BackColor = System.Drawing.Color.Silver + Me.GP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP5 + Me.GP5.InitialImage = Nothing + Me.GP5.Location = New System.Drawing.Point(9, 268) + Me.GP5.Name = "GP5" + Me.GP5.Size = New System.Drawing.Size(71, 93) + Me.GP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP5.TabIndex = 15 + Me.GP5.TabStop = False + ' + 'GN1 + ' + Me.GN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN1.Location = New System.Drawing.Point(9, 117) + Me.GN1.Name = "GN1" + Me.GN1.Size = New System.Drawing.Size(71, 20) + Me.GN1.TabIndex = 0 + Me.GN1.Text = Global.Tease_AI.My.MySettings.Default.GN1 + Me.GN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP1 + ' + Me.GP1.BackColor = System.Drawing.Color.Silver + Me.GP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP1 + Me.GP1.InitialImage = Nothing + Me.GP1.Location = New System.Drawing.Point(9, 17) + Me.GP1.Name = "GP1" + Me.GP1.Size = New System.Drawing.Size(71, 94) + Me.GP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP1.TabIndex = 0 + Me.GP1.TabStop = False + ' + 'GN5 + ' + Me.GN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN5.Location = New System.Drawing.Point(9, 367) + Me.GN5.Name = "GN5" + Me.GN5.Size = New System.Drawing.Size(71, 20) + Me.GN5.TabIndex = 4 + Me.GN5.Text = Global.Tease_AI.My.MySettings.Default.GN5 + Me.GN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GN3 + ' + Me.GN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN3.Location = New System.Drawing.Point(9, 242) + Me.GN3.Name = "GN3" + Me.GN3.Size = New System.Drawing.Size(71, 20) + Me.GN3.TabIndex = 2 + Me.GN3.Text = Global.Tease_AI.My.MySettings.Default.GN3 + Me.GN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GP3 + ' + Me.GP3.BackColor = System.Drawing.Color.Silver + Me.GP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP3 + Me.GP3.InitialImage = Nothing + Me.GP3.Location = New System.Drawing.Point(9, 143) + Me.GP3.Name = "GP3" + Me.GP3.Size = New System.Drawing.Size(71, 93) + Me.GP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP3.TabIndex = 11 + Me.GP3.TabStop = False + ' + 'GP4 + ' + Me.GP4.BackColor = System.Drawing.Color.Silver + Me.GP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.GP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "GP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.GP4 + Me.GP4.InitialImage = Nothing + Me.GP4.Location = New System.Drawing.Point(86, 143) + Me.GP4.Name = "GP4" + Me.GP4.Size = New System.Drawing.Size(71, 93) + Me.GP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.GP4.TabIndex = 13 + Me.GP4.TabStop = False + ' + 'GN4 + ' + Me.GN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "GN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.GN4.Location = New System.Drawing.Point(86, 242) + Me.GN4.Name = "GN4" + Me.GN4.Size = New System.Drawing.Size(71, 20) + Me.GN4.TabIndex = 3 + Me.GN4.Text = Global.Tease_AI.My.MySettings.Default.GN4 + Me.GN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'GbxCardsBackground + ' + Me.GbxCardsBackground.Controls.Add(Me.CardBack) + Me.GbxCardsBackground.Location = New System.Drawing.Point(522, 7) + Me.GbxCardsBackground.Name = "GbxCardsBackground" + Me.GbxCardsBackground.Size = New System.Drawing.Size(172, 236) + Me.GbxCardsBackground.TabIndex = 3 + Me.GbxCardsBackground.TabStop = False + Me.GbxCardsBackground.Text = "Card Background" + ' + 'CardBack + ' + Me.CardBack.BackColor = System.Drawing.Color.Silver + Me.CardBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.CardBack.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "CardBack", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CardBack.ImageLocation = Global.Tease_AI.My.MySettings.Default.CardBack + Me.CardBack.InitialImage = Nothing + Me.CardBack.Location = New System.Drawing.Point(17, 28) + Me.CardBack.Name = "CardBack" + Me.CardBack.Size = New System.Drawing.Size(138, 179) + Me.CardBack.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.CardBack.TabIndex = 18 + Me.CardBack.TabStop = False + ' + 'GbxCardsBronze + ' + Me.GbxCardsBronze.Controls.Add(Me.BN6) + Me.GbxCardsBronze.Controls.Add(Me.BN3) + Me.GbxCardsBronze.Controls.Add(Me.BP3) + Me.GbxCardsBronze.Controls.Add(Me.BP6) + Me.GbxCardsBronze.Controls.Add(Me.BN2) + Me.GbxCardsBronze.Controls.Add(Me.BN5) + Me.GbxCardsBronze.Controls.Add(Me.BP5) + Me.GbxCardsBronze.Controls.Add(Me.BP2) + Me.GbxCardsBronze.Controls.Add(Me.BN1) + Me.GbxCardsBronze.Controls.Add(Me.BN4) + Me.GbxCardsBronze.Controls.Add(Me.BP4) + Me.GbxCardsBronze.Controls.Add(Me.BP1) + Me.GbxCardsBronze.Location = New System.Drawing.Point(6, 6) + Me.GbxCardsBronze.Name = "GbxCardsBronze" + Me.GbxCardsBronze.Size = New System.Drawing.Size(166, 399) + Me.GbxCardsBronze.TabIndex = 0 + Me.GbxCardsBronze.TabStop = False + Me.GbxCardsBronze.Text = "Bronze Cards" + ' + 'BN6 + ' + Me.BN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN6.Location = New System.Drawing.Point(86, 368) + Me.BN6.Name = "BN6" + Me.BN6.Size = New System.Drawing.Size(71, 20) + Me.BN6.TabIndex = 5 + Me.BN6.Text = Global.Tease_AI.My.MySettings.Default.BN6 + Me.BN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BN3 + ' + Me.BN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN3.Location = New System.Drawing.Point(9, 243) + Me.BN3.Name = "BN3" + Me.BN3.Size = New System.Drawing.Size(71, 20) + Me.BN3.TabIndex = 2 + Me.BN3.Text = Global.Tease_AI.My.MySettings.Default.BN3 + Me.BN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BP3 + ' + Me.BP3.BackColor = System.Drawing.Color.Silver + Me.BP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP3 + Me.BP3.InitialImage = Nothing + Me.BP3.Location = New System.Drawing.Point(9, 144) + Me.BP3.Name = "BP3" + Me.BP3.Size = New System.Drawing.Size(71, 93) + Me.BP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP3.TabIndex = 11 + Me.BP3.TabStop = False + ' + 'BP6 + ' + Me.BP6.BackColor = System.Drawing.Color.Silver + Me.BP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP6 + Me.BP6.InitialImage = Nothing + Me.BP6.Location = New System.Drawing.Point(86, 269) + Me.BP6.Name = "BP6" + Me.BP6.Size = New System.Drawing.Size(71, 93) + Me.BP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP6.TabIndex = 17 + Me.BP6.TabStop = False + ' + 'BN2 + ' + Me.BN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN2.Location = New System.Drawing.Point(86, 118) + Me.BN2.Name = "BN2" + Me.BN2.Size = New System.Drawing.Size(71, 20) + Me.BN2.TabIndex = 1 + Me.BN2.Text = Global.Tease_AI.My.MySettings.Default.BN2 + Me.BN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BN5 + ' + Me.BN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN5.Location = New System.Drawing.Point(9, 368) + Me.BN5.Name = "BN5" + Me.BN5.Size = New System.Drawing.Size(71, 20) + Me.BN5.TabIndex = 4 + Me.BN5.Text = Global.Tease_AI.My.MySettings.Default.BN5 + Me.BN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BP5 + ' + Me.BP5.BackColor = System.Drawing.Color.Silver + Me.BP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP5 + Me.BP5.InitialImage = Nothing + Me.BP5.Location = New System.Drawing.Point(9, 269) + Me.BP5.Name = "BP5" + Me.BP5.Size = New System.Drawing.Size(71, 93) + Me.BP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP5.TabIndex = 15 + Me.BP5.TabStop = False + ' + 'BP2 + ' + Me.BP2.BackColor = System.Drawing.Color.Silver + Me.BP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP2 + Me.BP2.InitialImage = Nothing + Me.BP2.Location = New System.Drawing.Point(86, 19) + Me.BP2.Name = "BP2" + Me.BP2.Size = New System.Drawing.Size(71, 93) + Me.BP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP2.TabIndex = 9 + Me.BP2.TabStop = False + ' + 'BN1 + ' + Me.BN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN1.Location = New System.Drawing.Point(9, 118) + Me.BN1.Name = "BN1" + Me.BN1.Size = New System.Drawing.Size(71, 20) + Me.BN1.TabIndex = 0 + Me.BN1.Text = Global.Tease_AI.My.MySettings.Default.BN1 + Me.BN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BN4 + ' + Me.BN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "BN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BN4.Location = New System.Drawing.Point(86, 243) + Me.BN4.Name = "BN4" + Me.BN4.Size = New System.Drawing.Size(71, 20) + Me.BN4.TabIndex = 3 + Me.BN4.Text = Global.Tease_AI.My.MySettings.Default.BN4 + Me.BN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'BP4 + ' + Me.BP4.BackColor = System.Drawing.Color.Silver + Me.BP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP4 + Me.BP4.InitialImage = Nothing + Me.BP4.Location = New System.Drawing.Point(86, 144) + Me.BP4.Name = "BP4" + Me.BP4.Size = New System.Drawing.Size(71, 93) + Me.BP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP4.TabIndex = 13 + Me.BP4.TabStop = False + ' + 'BP1 + ' + Me.BP1.BackColor = System.Drawing.Color.Silver + Me.BP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "BP1", True)) + Me.BP1.DataBindings.Add(New System.Windows.Forms.Binding("Tag", Global.Tease_AI.My.MySettings.Default, "BP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.BP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.BP1 + Me.BP1.InitialImage = Nothing + Me.BP1.Location = New System.Drawing.Point(9, 19) + Me.BP1.Name = "BP1" + Me.BP1.Size = New System.Drawing.Size(71, 93) + Me.BP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.BP1.TabIndex = 0 + Me.BP1.TabStop = False + Me.BP1.Tag = Global.Tease_AI.My.MySettings.Default.BP1 + ' + 'GbxCardsSilver + ' + Me.GbxCardsSilver.Controls.Add(Me.SN6) + Me.GbxCardsSilver.Controls.Add(Me.SP6) + Me.GbxCardsSilver.Controls.Add(Me.SN2) + Me.GbxCardsSilver.Controls.Add(Me.SP2) + Me.GbxCardsSilver.Controls.Add(Me.SN1) + Me.GbxCardsSilver.Controls.Add(Me.SP5) + Me.GbxCardsSilver.Controls.Add(Me.SP1) + Me.GbxCardsSilver.Controls.Add(Me.SN5) + Me.GbxCardsSilver.Controls.Add(Me.SN3) + Me.GbxCardsSilver.Controls.Add(Me.SN4) + Me.GbxCardsSilver.Controls.Add(Me.SP3) + Me.GbxCardsSilver.Controls.Add(Me.SP4) + Me.GbxCardsSilver.Location = New System.Drawing.Point(178, 6) + Me.GbxCardsSilver.Name = "GbxCardsSilver" + Me.GbxCardsSilver.Size = New System.Drawing.Size(166, 399) + Me.GbxCardsSilver.TabIndex = 1 + Me.GbxCardsSilver.TabStop = False + Me.GbxCardsSilver.Text = "Silver Cards" + ' + 'SN6 + ' + Me.SN6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN6.Location = New System.Drawing.Point(86, 368) + Me.SN6.Name = "SN6" + Me.SN6.Size = New System.Drawing.Size(71, 20) + Me.SN6.TabIndex = 5 + Me.SN6.Text = Global.Tease_AI.My.MySettings.Default.SN6 + Me.SN6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP6 + ' + Me.SP6.BackColor = System.Drawing.Color.Silver + Me.SP6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP6.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP6", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP6.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP6 + Me.SP6.InitialImage = Nothing + Me.SP6.Location = New System.Drawing.Point(86, 269) + Me.SP6.Name = "SP6" + Me.SP6.Size = New System.Drawing.Size(71, 93) + Me.SP6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP6.TabIndex = 17 + Me.SP6.TabStop = False + ' + 'SN2 + ' + Me.SN2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN2.Location = New System.Drawing.Point(86, 118) + Me.SN2.Name = "SN2" + Me.SN2.Size = New System.Drawing.Size(71, 20) + Me.SN2.TabIndex = 1 + Me.SN2.Text = Global.Tease_AI.My.MySettings.Default.SN2 + Me.SN2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP2 + ' + Me.SP2.BackColor = System.Drawing.Color.Silver + Me.SP2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP2.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP2.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP2 + Me.SP2.InitialImage = Nothing + Me.SP2.Location = New System.Drawing.Point(86, 19) + Me.SP2.Name = "SP2" + Me.SP2.Size = New System.Drawing.Size(71, 93) + Me.SP2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP2.TabIndex = 9 + Me.SP2.TabStop = False + ' + 'SN1 + ' + Me.SN1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN1.Location = New System.Drawing.Point(9, 118) + Me.SN1.Name = "SN1" + Me.SN1.Size = New System.Drawing.Size(71, 20) + Me.SN1.TabIndex = 0 + Me.SN1.Text = Global.Tease_AI.My.MySettings.Default.SN1 + Me.SN1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP5 + ' + Me.SP5.BackColor = System.Drawing.Color.Silver + Me.SP5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP5.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP5.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP5 + Me.SP5.InitialImage = Nothing + Me.SP5.Location = New System.Drawing.Point(9, 269) + Me.SP5.Name = "SP5" + Me.SP5.Size = New System.Drawing.Size(71, 93) + Me.SP5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP5.TabIndex = 15 + Me.SP5.TabStop = False + ' + 'SP1 + ' + Me.SP1.BackColor = System.Drawing.Color.Silver + Me.SP1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP1.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP1.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP1 + Me.SP1.InitialImage = Nothing + Me.SP1.Location = New System.Drawing.Point(9, 19) + Me.SP1.Name = "SP1" + Me.SP1.Size = New System.Drawing.Size(71, 93) + Me.SP1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP1.TabIndex = 0 + Me.SP1.TabStop = False + ' + 'SN5 + ' + Me.SN5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN5.Location = New System.Drawing.Point(9, 368) + Me.SN5.Name = "SN5" + Me.SN5.Size = New System.Drawing.Size(71, 20) + Me.SN5.TabIndex = 4 + Me.SN5.Text = Global.Tease_AI.My.MySettings.Default.SN5 + Me.SN5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SN3 + ' + Me.SN3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN3.Location = New System.Drawing.Point(9, 243) + Me.SN3.Name = "SN3" + Me.SN3.Size = New System.Drawing.Size(71, 20) + Me.SN3.TabIndex = 2 + Me.SN3.Text = Global.Tease_AI.My.MySettings.Default.SN3 + Me.SN3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SN4 + ' + Me.SN4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "SN4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SN4.Location = New System.Drawing.Point(86, 243) + Me.SN4.Name = "SN4" + Me.SN4.Size = New System.Drawing.Size(71, 20) + Me.SN4.TabIndex = 3 + Me.SN4.Text = Global.Tease_AI.My.MySettings.Default.SN4 + Me.SN4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'SP3 + ' + Me.SP3.BackColor = System.Drawing.Color.Silver + Me.SP3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP3.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP3.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP3 + Me.SP3.InitialImage = Nothing + Me.SP3.Location = New System.Drawing.Point(9, 144) + Me.SP3.Name = "SP3" + Me.SP3.Size = New System.Drawing.Size(71, 93) + Me.SP3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP3.TabIndex = 11 + Me.SP3.TabStop = False + ' + 'SP4 + ' + Me.SP4.BackColor = System.Drawing.Color.Silver + Me.SP4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SP4.DataBindings.Add(New System.Windows.Forms.Binding("ImageLocation", Global.Tease_AI.My.MySettings.Default, "SP4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SP4.ImageLocation = Global.Tease_AI.My.MySettings.Default.SP4 + Me.SP4.InitialImage = Nothing + Me.SP4.Location = New System.Drawing.Point(86, 144) + Me.SP4.Name = "SP4" + Me.SP4.Size = New System.Drawing.Size(71, 93) + Me.SP4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.SP4.TabIndex = 13 + Me.SP4.TabStop = False + ' + 'TabPage6 + ' + Me.TabPage6.BackColor = System.Drawing.Color.LightGray + Me.TabPage6.Controls.Add(Me.Panel10) + Me.TabPage6.Controls.Add(Me.Label107) + Me.TabPage6.Controls.Add(Me.BTNWishlistCreate) + Me.TabPage6.Controls.Add(Me.Label18) + Me.TabPage6.Controls.Add(Me.PNLWishList) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(700, 411) + Me.TabPage6.TabIndex = 2 + Me.TabPage6.Text = "Wishlist" + ' + 'Panel10 + ' + Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel10.Controls.Add(Me.TBWishlistComment) + Me.Panel10.Controls.Add(Me.Label32) + Me.Panel10.Controls.Add(Me.TBWishlistItem) + Me.Panel10.Controls.Add(Me.radioGold) + Me.Panel10.Controls.Add(Me.Label42) + Me.Panel10.Controls.Add(Me.radioSilver) + Me.Panel10.Controls.Add(Me.TBWishlistURL) + Me.Panel10.Controls.Add(Me.NBWishlistCost) + Me.Panel10.Controls.Add(Me.Label48) + Me.Panel10.Controls.Add(Me.Label73) + Me.Panel10.Location = New System.Drawing.Point(38, 47) + Me.Panel10.Name = "Panel10" + Me.Panel10.Size = New System.Drawing.Size(252, 308) + Me.Panel10.TabIndex = 179 + ' + 'TBWishlistComment + ' + Me.TBWishlistComment.Location = New System.Drawing.Point(16, 173) + Me.TBWishlistComment.Multiline = True + Me.TBWishlistComment.Name = "TBWishlistComment" + Me.TBWishlistComment.Size = New System.Drawing.Size(217, 118) + Me.TBWishlistComment.TabIndex = 172 + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(13, 4) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(58, 13) + Me.Label32.TabIndex = 167 + Me.Label32.Text = "Item Name" + ' + 'TBWishlistItem + ' + Me.TBWishlistItem.Location = New System.Drawing.Point(16, 20) + Me.TBWishlistItem.Name = "TBWishlistItem" + Me.TBWishlistItem.Size = New System.Drawing.Size(217, 20) + Me.TBWishlistItem.TabIndex = 168 + ' + 'radioGold + ' + Me.radioGold.AutoSize = True + Me.radioGold.Location = New System.Drawing.Point(167, 125) + Me.radioGold.Name = "radioGold" + Me.radioGold.Size = New System.Drawing.Size(47, 17) + Me.radioGold.TabIndex = 176 + Me.radioGold.Text = "Gold" + Me.radioGold.UseVisualStyleBackColor = True + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Location = New System.Drawing.Point(13, 56) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(75, 13) + Me.Label42.TabIndex = 169 + Me.Label42.Text = "Item Image Url" + ' + 'radioSilver + ' + Me.radioSilver.AutoSize = True + Me.radioSilver.Checked = True + Me.radioSilver.Location = New System.Drawing.Point(100, 125) + Me.radioSilver.Name = "radioSilver" + Me.radioSilver.Size = New System.Drawing.Size(51, 17) + Me.radioSilver.TabIndex = 175 + Me.radioSilver.TabStop = True + Me.radioSilver.Text = "Silver" + Me.radioSilver.UseVisualStyleBackColor = True + ' + 'TBWishlistURL + ' + Me.TBWishlistURL.Location = New System.Drawing.Point(16, 72) + Me.TBWishlistURL.Name = "TBWishlistURL" + Me.TBWishlistURL.Size = New System.Drawing.Size(217, 20) + Me.TBWishlistURL.TabIndex = 170 + ' + 'NBWishlistCost + ' + Me.NBWishlistCost.Location = New System.Drawing.Point(16, 125) + Me.NBWishlistCost.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBWishlistCost.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBWishlistCost.Name = "NBWishlistCost" + Me.NBWishlistCost.Size = New System.Drawing.Size(40, 20) + Me.NBWishlistCost.TabIndex = 174 + Me.NBWishlistCost.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(13, 157) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(74, 13) + Me.Label48.TabIndex = 171 + Me.Label48.Text = "Item Comment" + ' + 'Label73 + ' + Me.Label73.AutoSize = True + Me.Label73.Location = New System.Drawing.Point(13, 108) + Me.Label73.Name = "Label73" + Me.Label73.Size = New System.Drawing.Size(51, 13) + Me.Label73.TabIndex = 173 + Me.Label73.Text = "Item Cost" + ' + 'Label107 + ' + Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label107.Location = New System.Drawing.Point(38, 5) + Me.Label107.Name = "Label107" + Me.Label107.Size = New System.Drawing.Size(252, 47) + Me.Label107.TabIndex = 178 + Me.Label107.Text = "Use this page to create Wishlist files." + Me.Label107.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNWishlistCreate + ' + Me.BTNWishlistCreate.Location = New System.Drawing.Point(38, 365) + Me.BTNWishlistCreate.Name = "BTNWishlistCreate" + Me.BTNWishlistCreate.Size = New System.Drawing.Size(252, 33) + Me.BTNWishlistCreate.TabIndex = 177 + Me.BTNWishlistCreate.Text = "Create Wishlist File" + Me.BTNWishlistCreate.UseVisualStyleBackColor = True + ' + 'Label18 + ' + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(409, 5) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(250, 23) + Me.Label18.TabIndex = 166 + Me.Label18.Text = "Preview" + Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PNLWishList + ' + Me.PNLWishList.BackColor = System.Drawing.Color.White + Me.PNLWishList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.PNLWishList.Controls.Add(Me.WishlistCostSilver) + Me.PNLWishList.Controls.Add(Me.LBLWishListText) + Me.PNLWishList.Controls.Add(Me.LBLWishlistCost) + Me.PNLWishList.Controls.Add(Me.WishlistCostGold) + Me.PNLWishList.Controls.Add(Me.LBLWishListName) + Me.PNLWishList.Controls.Add(Me.WishlistPreview) + Me.PNLWishList.Location = New System.Drawing.Point(407, 31) + Me.PNLWishList.Name = "PNLWishList" + Me.PNLWishList.Size = New System.Drawing.Size(250, 367) + Me.PNLWishList.TabIndex = 165 + ' + 'WishlistCostSilver + ' + Me.WishlistCostSilver.BackColor = System.Drawing.Color.Transparent + Me.WishlistCostSilver.Image = CType(resources.GetObject("WishlistCostSilver.Image"), System.Drawing.Image) + Me.WishlistCostSilver.Location = New System.Drawing.Point(107, 206) + Me.WishlistCostSilver.Name = "WishlistCostSilver" + Me.WishlistCostSilver.Size = New System.Drawing.Size(28, 28) + Me.WishlistCostSilver.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.WishlistCostSilver.TabIndex = 111 + Me.WishlistCostSilver.TabStop = False + ' + 'LBLWishListText + ' + Me.LBLWishListText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishListText.Location = New System.Drawing.Point(14, 247) + Me.LBLWishListText.Name = "LBLWishListText" + Me.LBLWishListText.Size = New System.Drawing.Size(220, 109) + Me.LBLWishListText.TabIndex = 108 + ' + 'LBLWishlistCost + ' + Me.LBLWishlistCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishlistCost.ForeColor = System.Drawing.Color.Black + Me.LBLWishlistCost.Location = New System.Drawing.Point(139, 206) + Me.LBLWishlistCost.Name = "LBLWishlistCost" + Me.LBLWishlistCost.Size = New System.Drawing.Size(44, 28) + Me.LBLWishlistCost.TabIndex = 107 + Me.LBLWishlistCost.Text = "3" + Me.LBLWishlistCost.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'WishlistCostGold + ' + Me.WishlistCostGold.BackColor = System.Drawing.Color.Transparent + Me.WishlistCostGold.Image = CType(resources.GetObject("WishlistCostGold.Image"), System.Drawing.Image) + Me.WishlistCostGold.Location = New System.Drawing.Point(107, 206) + Me.WishlistCostGold.Name = "WishlistCostGold" + Me.WishlistCostGold.Size = New System.Drawing.Size(28, 28) + Me.WishlistCostGold.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.WishlistCostGold.TabIndex = 106 + Me.WishlistCostGold.TabStop = False + Me.WishlistCostGold.Visible = False + ' + 'LBLWishListName + ' + Me.LBLWishListName.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLWishListName.ForeColor = System.Drawing.Color.CornflowerBlue + Me.LBLWishListName.Location = New System.Drawing.Point(14, 22) + Me.LBLWishListName.Name = "LBLWishListName" + Me.LBLWishListName.Size = New System.Drawing.Size(220, 23) + Me.LBLWishListName.TabIndex = 104 + Me.LBLWishListName.Text = "Item Name Goes Here" + Me.LBLWishListName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'WishlistPreview + ' + Me.WishlistPreview.ImageLocation = "" + Me.WishlistPreview.Location = New System.Drawing.Point(50, 54) + Me.WishlistPreview.Name = "WishlistPreview" + Me.WishlistPreview.Size = New System.Drawing.Size(145, 143) + Me.WishlistPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.WishlistPreview.TabIndex = 101 + Me.WishlistPreview.TabStop = False + ' + 'TabPage26 + ' + Me.TabPage26.BackColor = System.Drawing.Color.Silver + Me.TabPage26.Controls.Add(Me.Panel12) + Me.TabPage26.Location = New System.Drawing.Point(4, 22) + Me.TabPage26.Name = "TabPage26" + Me.TabPage26.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage26.Size = New System.Drawing.Size(720, 448) + Me.TabPage26.TabIndex = 19 + Me.TabPage26.Text = "Themes" + ' + 'Panel12 + ' + Me.Panel12.BackColor = System.Drawing.Color.LightGray + Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel12.Controls.Add(Me.GroupBox9) + Me.Panel12.Controls.Add(Me.PictureBox10) + Me.Panel12.Controls.Add(Me.GroupBox5) + Me.Panel12.Controls.Add(Me.GroupBox11) + Me.Panel12.Controls.Add(Me.GroupBox1) + Me.Panel12.Controls.Add(Me.Label164) + Me.Panel12.Location = New System.Drawing.Point(6, 6) + Me.Panel12.Name = "Panel12" + Me.Panel12.Size = New System.Drawing.Size(708, 437) + Me.Panel12.TabIndex = 93 + ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.Button32) + Me.GroupBox9.Controls.Add(Me.Button31) + Me.GroupBox9.Location = New System.Drawing.Point(351, 231) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(348, 94) + Me.GroupBox9.TabIndex = 152 + Me.GroupBox9.TabStop = False + Me.GroupBox9.Text = "System" + ' + 'Button32 + ' + Me.Button32.BackColor = System.Drawing.Color.Transparent + Me.Button32.Image = Global.Tease_AI.My.Resources.Resources.Button_Save_Big + Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button32.Location = New System.Drawing.Point(196, 24) + Me.Button32.Name = "Button32" + Me.Button32.Size = New System.Drawing.Size(135, 55) + Me.Button32.TabIndex = 55 + Me.Button32.Text = " Save Theme" + Me.Button32.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText + Me.Button32.UseVisualStyleBackColor = False + ' + 'Button31 + ' + Me.Button31.BackColor = System.Drawing.Color.Transparent + Me.Button31.Image = Global.Tease_AI.My.Resources.Resources.Button_Import_Big + Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button31.Location = New System.Drawing.Point(17, 24) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(135, 55) + Me.Button31.TabIndex = 54 + Me.Button31.Text = " Open Theme" + Me.Button31.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText + Me.Button31.UseVisualStyleBackColor = False + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.LightGray + Me.PictureBox10.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox10.Location = New System.Drawing.Point(9, 6) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(160, 19) + Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox10.TabIndex = 151 + Me.PictureBox10.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.CBTransparentTime) + Me.GroupBox5.Controls.Add(Me.LBLDateTimeColor2) + Me.GroupBox5.Controls.Add(Me.Label137) + Me.GroupBox5.Controls.Add(Me.Label138) + Me.GroupBox5.Controls.Add(Me.LBLDateBackColor2) + Me.GroupBox5.Controls.Add(Me.LBLTextColor) + Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor2) + Me.GroupBox5.Controls.Add(Me.LBLTextColor2) + Me.GroupBox5.Controls.Add(Me.LBLChatTextColor) + Me.GroupBox5.Controls.Add(Me.LBLBackColor2) + Me.GroupBox5.Controls.Add(Me.LBLButtonColor) + Me.GroupBox5.Controls.Add(Me.LBLChatWindowColor) + Me.GroupBox5.Controls.Add(Me.LBLBackColor) + Me.GroupBox5.Controls.Add(Me.LBLChatTextColor2) + Me.GroupBox5.Controls.Add(Me.LBLButtonColor2) + Me.GroupBox5.Location = New System.Drawing.Point(9, 31) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(336, 294) + Me.GroupBox5.TabIndex = 58 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "UI Colors" + ' + 'CBTransparentTime + ' + Me.CBTransparentTime.AutoSize = True + Me.CBTransparentTime.Location = New System.Drawing.Point(7, 262) + Me.CBTransparentTime.Name = "CBTransparentTime" + Me.CBTransparentTime.Size = New System.Drawing.Size(179, 17) + Me.CBTransparentTime.TabIndex = 23 + Me.CBTransparentTime.Text = "Transparent Date/Time Window" + Me.CBTransparentTime.UseVisualStyleBackColor = True + ' + 'LBLDateTimeColor2 + ' + Me.LBLDateTimeColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateTextColor + Me.LBLDateTimeColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDateTimeColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLDateTimeColor2.Location = New System.Drawing.Point(187, 190) + Me.LBLDateTimeColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLDateTimeColor2.Name = "LBLDateTimeColor2" + Me.LBLDateTimeColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLDateTimeColor2.TabIndex = 19 + ' + 'Label137 + ' + Me.Label137.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label137.Location = New System.Drawing.Point(6, 227) + Me.Label137.Name = "Label137" + Me.Label137.Size = New System.Drawing.Size(175, 20) + Me.Label137.TabIndex = 20 + Me.Label137.Text = "Date/Time Window Color" + Me.Label137.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label138 + ' + Me.Label138.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label138.Location = New System.Drawing.Point(6, 193) + Me.Label138.Name = "Label138" + Me.Label138.Size = New System.Drawing.Size(175, 20) + Me.Label138.TabIndex = 17 + Me.Label138.Text = "Date/Time Text Color" + Me.Label138.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLDateBackColor2 + ' + Me.LBLDateBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.DateBackColor + Me.LBLDateBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDateBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "DateBackColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLDateBackColor2.Location = New System.Drawing.Point(187, 224) + Me.LBLDateBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLDateBackColor2.Name = "LBLDateBackColor2" + Me.LBLDateBackColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLDateBackColor2.TabIndex = 22 + ' + 'LBLTextColor + ' + Me.LBLTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLTextColor.Location = New System.Drawing.Point(6, 91) + Me.LBLTextColor.Name = "LBLTextColor" + Me.LBLTextColor.Size = New System.Drawing.Size(175, 20) + Me.LBLTextColor.TabIndex = 7 + Me.LBLTextColor.Text = "Text Color" + Me.LBLTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLChatWindowColor2 + ' + Me.LBLChatWindowColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatWindowColor + Me.LBLChatWindowColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLChatWindowColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatWindowColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLChatWindowColor2.Location = New System.Drawing.Point(187, 122) + Me.LBLChatWindowColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLChatWindowColor2.Name = "LBLChatWindowColor2" + Me.LBLChatWindowColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLChatWindowColor2.TabIndex = 12 + ' + 'LBLTextColor2 + ' + Me.LBLTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.TextColor + Me.LBLTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "TextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLTextColor2.Location = New System.Drawing.Point(187, 88) + Me.LBLTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLTextColor2.Name = "LBLTextColor2" + Me.LBLTextColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLTextColor2.TabIndex = 9 + ' + 'LBLChatTextColor + ' + Me.LBLChatTextColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLChatTextColor.Location = New System.Drawing.Point(6, 159) + Me.LBLChatTextColor.Name = "LBLChatTextColor" + Me.LBLChatTextColor.Size = New System.Drawing.Size(175, 20) + Me.LBLChatTextColor.TabIndex = 14 + Me.LBLChatTextColor.Text = "Chat Text Color" + Me.LBLChatTextColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLBackColor2 + ' + Me.LBLBackColor2.BackColor = Global.Tease_AI.My.MySettings.Default.BackgroundColor + Me.LBLBackColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLBackColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "BackgroundColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLBackColor2.Location = New System.Drawing.Point(187, 20) + Me.LBLBackColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLBackColor2.Name = "LBLBackColor2" + Me.LBLBackColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLBackColor2.TabIndex = 3 + ' + 'LBLButtonColor + ' + Me.LBLButtonColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLButtonColor.Location = New System.Drawing.Point(6, 57) + Me.LBLButtonColor.Name = "LBLButtonColor" + Me.LBLButtonColor.Size = New System.Drawing.Size(175, 20) + Me.LBLButtonColor.TabIndex = 4 + Me.LBLButtonColor.Text = "Button Color" + Me.LBLButtonColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLChatWindowColor + ' + Me.LBLChatWindowColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLChatWindowColor.Location = New System.Drawing.Point(6, 125) + Me.LBLChatWindowColor.Name = "LBLChatWindowColor" + Me.LBLChatWindowColor.Size = New System.Drawing.Size(175, 20) + Me.LBLChatWindowColor.TabIndex = 10 + Me.LBLChatWindowColor.Text = "Chat Window Color" + Me.LBLChatWindowColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLBackColor + ' + Me.LBLBackColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLBackColor.Location = New System.Drawing.Point(6, 23) + Me.LBLBackColor.Name = "LBLBackColor" + Me.LBLBackColor.Size = New System.Drawing.Size(175, 20) + Me.LBLBackColor.TabIndex = 0 + Me.LBLBackColor.Text = "Background Color" + Me.LBLBackColor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLChatTextColor2 + ' + Me.LBLChatTextColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ChatTextColor + Me.LBLChatTextColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLChatTextColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ChatTextColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLChatTextColor2.Location = New System.Drawing.Point(187, 156) + Me.LBLChatTextColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLChatTextColor2.Name = "LBLChatTextColor2" + Me.LBLChatTextColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLChatTextColor2.TabIndex = 16 + ' + 'LBLButtonColor2 + ' + Me.LBLButtonColor2.BackColor = Global.Tease_AI.My.MySettings.Default.ButtonColor + Me.LBLButtonColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLButtonColor2.DataBindings.Add(New System.Windows.Forms.Binding("BackColor", Global.Tease_AI.My.MySettings.Default, "ButtonColor", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.LBLButtonColor2.Location = New System.Drawing.Point(187, 54) + Me.LBLButtonColor2.Margin = New System.Windows.Forms.Padding(3, 0, 10, 0) + Me.LBLButtonColor2.Name = "LBLButtonColor2" + Me.LBLButtonColor2.Size = New System.Drawing.Size(136, 28) + Me.LBLButtonColor2.TabIndex = 6 + ' + 'GroupBox11 + ' + Me.GroupBox11.BackColor = System.Drawing.Color.LightGray + Me.GroupBox11.Controls.Add(Me.Label144) + Me.GroupBox11.ForeColor = System.Drawing.Color.Black + Me.GroupBox11.Location = New System.Drawing.Point(7, 331) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(692, 92) + Me.GroupBox11.TabIndex = 65 + Me.GroupBox11.TabStop = False + Me.GroupBox11.Text = "Description" + ' + 'Label144 + ' + Me.Label144.BackColor = System.Drawing.Color.Transparent + Me.Label144.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label144.ForeColor = System.Drawing.Color.Black + Me.Label144.Location = New System.Drawing.Point(6, 16) + Me.Label144.Name = "Label144" + Me.Label144.Size = New System.Drawing.Size(680, 73) + Me.Label144.TabIndex = 62 + Me.Label144.Text = "Use this page to create custom themes for Tease AI." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Themes can then be saved a" & + "nd opened from txt files." + Me.Label144.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.CBFlipBack) + Me.GroupBox1.Controls.Add(Me.PBBackgroundPreview) + Me.GroupBox1.Controls.Add(Me.Button17) + Me.GroupBox1.Controls.Add(Me.CBStretchBack) + Me.GroupBox1.Controls.Add(Me.Button18) + Me.GroupBox1.Location = New System.Drawing.Point(351, 30) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(348, 195) + Me.GroupBox1.TabIndex = 57 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Background" + ' + 'CBFlipBack + ' + Me.CBFlipBack.Enabled = False + Me.CBFlipBack.Location = New System.Drawing.Point(6, 153) + Me.CBFlipBack.Name = "CBFlipBack" + Me.CBFlipBack.Size = New System.Drawing.Size(86, 41) + Me.CBFlipBack.TabIndex = 4 + Me.CBFlipBack.Text = "Flip Background" + Me.CBFlipBack.UseVisualStyleBackColor = True + ' + 'PBBackgroundPreview + ' + Me.PBBackgroundPreview.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PBBackgroundPreview.Location = New System.Drawing.Point(6, 19) + Me.PBBackgroundPreview.Name = "PBBackgroundPreview" + Me.PBBackgroundPreview.Size = New System.Drawing.Size(202, 133) + Me.PBBackgroundPreview.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PBBackgroundPreview.TabIndex = 0 + Me.PBBackgroundPreview.TabStop = False + ' + 'Button17 + ' + Me.Button17.BackColor = System.Drawing.Color.Transparent + Me.Button17.BackgroundImage = Global.Tease_AI.My.Resources.Resources.Background_Load + Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button17.Location = New System.Drawing.Point(228, 36) + Me.Button17.Name = "Button17" + Me.Button17.Size = New System.Drawing.Size(103, 93) + Me.Button17.TabIndex = 1 + Me.Button17.UseVisualStyleBackColor = False + ' + 'CBStretchBack + ' + Me.CBStretchBack.Checked = True + Me.CBStretchBack.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBStretchBack.Location = New System.Drawing.Point(122, 153) + Me.CBStretchBack.Name = "CBStretchBack" + Me.CBStretchBack.Size = New System.Drawing.Size(86, 41) + Me.CBStretchBack.TabIndex = 2 + Me.CBStretchBack.Text = "Stretch Background" + Me.CBStretchBack.UseVisualStyleBackColor = True + ' + 'Button18 + ' + Me.Button18.Location = New System.Drawing.Point(228, 155) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(103, 31) + Me.Button18.TabIndex = 3 + Me.Button18.Text = "Clear" + Me.Button18.UseVisualStyleBackColor = True + ' + 'Label164 + ' + Me.Label164.BackColor = System.Drawing.Color.Transparent + Me.Label164.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label164.ForeColor = System.Drawing.Color.Black + Me.Label164.Location = New System.Drawing.Point(7, 6) + Me.Label164.Name = "Label164" + Me.Label164.Size = New System.Drawing.Size(692, 21) + Me.Label164.TabIndex = 49 + Me.Label164.Text = "Theme Settings" + Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage4 + ' + Me.TabPage4.BackColor = System.Drawing.Color.Silver + Me.TabPage4.Controls.Add(Me.Panel6) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(720, 448) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "Ranges" + ' + 'Panel6 + ' + Me.Panel6.BackColor = System.Drawing.Color.LightGray + Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel6.Controls.Add(Me.GroupBox69) + Me.Panel6.Controls.Add(Me.GroupBox68) + Me.Panel6.Controls.Add(Me.GroupBox67) + Me.Panel6.Controls.Add(Me.GroupBox10) + Me.Panel6.Controls.Add(Me.GroupBox57) + Me.Panel6.Controls.Add(Me.GBRangeRuinChance) + Me.Panel6.Controls.Add(Me.GroupBox17) + Me.Panel6.Controls.Add(Me.GBRangeOrgasmChance) + Me.Panel6.Controls.Add(Me.PictureBox8) + Me.Panel6.Controls.Add(Me.Label38) + Me.Panel6.Location = New System.Drawing.Point(6, 6) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(708, 437) + Me.Panel6.TabIndex = 91 + ' + 'GroupBox69 + ' + Me.GroupBox69.Controls.Add(Me.TypesSpeedVal) + Me.GroupBox69.Controls.Add(Me.TypeSpeedLabel) + Me.GroupBox69.Controls.Add(Me.TimedWriting) + Me.GroupBox69.Controls.Add(Me.TypeSpeedSlider) + Me.GroupBox69.Location = New System.Drawing.Point(236, 344) + Me.GroupBox69.Name = "GroupBox69" + Me.GroupBox69.Size = New System.Drawing.Size(166, 83) + Me.GroupBox69.TabIndex = 173 + Me.GroupBox69.TabStop = False + Me.GroupBox69.Text = "Writing Tasks" + ' + 'TypesSpeedVal + ' + Me.TypesSpeedVal.AutoSize = True + Me.TypesSpeedVal.Location = New System.Drawing.Point(132, 64) + Me.TypesSpeedVal.Name = "TypesSpeedVal" + Me.TypesSpeedVal.Size = New System.Drawing.Size(19, 13) + Me.TypesSpeedVal.TabIndex = 0 + Me.TypesSpeedVal.Text = "10" + Me.TypesSpeedVal.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'TypeSpeedLabel + ' + Me.TypeSpeedLabel.AutoSize = True + Me.TypeSpeedLabel.Location = New System.Drawing.Point(6, 64) + Me.TypeSpeedLabel.Name = "TypeSpeedLabel" + Me.TypeSpeedLabel.Size = New System.Drawing.Size(76, 13) + Me.TypeSpeedLabel.TabIndex = 2 + Me.TypeSpeedLabel.Text = "Typing Speed:" + ' + 'TimedWriting + ' + Me.TimedWriting.AutoSize = True + Me.TimedWriting.Checked = Global.Tease_AI.My.MySettings.Default.TimedWriting + Me.TimedWriting.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "TimedWriting", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TimedWriting.Location = New System.Drawing.Point(9, 19) + Me.TimedWriting.Name = "TimedWriting" + Me.TimedWriting.Size = New System.Drawing.Size(123, 17) + Me.TimedWriting.TabIndex = 1 + Me.TimedWriting.Text = "Timed Writing Tasks" + Me.TimedWriting.UseVisualStyleBackColor = True + ' + 'TypeSpeedSlider + ' + Me.TypeSpeedSlider.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TypeSpeed", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.TypeSpeedSlider.Location = New System.Drawing.Point(9, 35) + Me.TypeSpeedSlider.Maximum = 100 + Me.TypeSpeedSlider.Minimum = 33 + Me.TypeSpeedSlider.Name = "TypeSpeedSlider" + Me.TypeSpeedSlider.Size = New System.Drawing.Size(148, 45) + Me.TypeSpeedSlider.TabIndex = 3 + Me.TypeSpeedSlider.Value = Global.Tease_AI.My.MySettings.Default.TypeSpeed + ' + 'GroupBox68 + ' + Me.GroupBox68.Controls.Add(Me.NBTasksMax) + Me.GroupBox68.Controls.Add(Me.NBTasksMin) + Me.GroupBox68.Controls.Add(Me.Label165) + Me.GroupBox68.Controls.Add(Me.Label166) + Me.GroupBox68.Location = New System.Drawing.Point(236, 287) + Me.GroupBox68.Name = "GroupBox68" + Me.GroupBox68.Size = New System.Drawing.Size(166, 51) + Me.GroupBox68.TabIndex = 172 + Me.GroupBox68.TabStop = False + Me.GroupBox68.Text = "Session Tasks" + ' + 'NBTasksMax + ' + Me.NBTasksMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTasksMax.Location = New System.Drawing.Point(113, 20) + Me.NBTasksMax.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) + Me.NBTasksMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBTasksMax.Name = "NBTasksMax" + Me.NBTasksMax.Size = New System.Drawing.Size(44, 20) + Me.NBTasksMax.TabIndex = 187 + Me.NBTasksMax.Value = New Decimal(New Integer() {6, 0, 0, 0}) + ' + 'NBTasksMin + ' + Me.NBTasksMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TasksMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTasksMin.Location = New System.Drawing.Point(54, 21) + Me.NBTasksMin.Minimum = New Decimal(New Integer() {3, 0, 0, 0}) + Me.NBTasksMin.Name = "NBTasksMin" + Me.NBTasksMin.Size = New System.Drawing.Size(44, 20) + Me.NBTasksMin.TabIndex = 186 + Me.NBTasksMin.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label165 + ' + Me.Label165.BackColor = System.Drawing.Color.Transparent + Me.Label165.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label165.ForeColor = System.Drawing.Color.Black + Me.Label165.Location = New System.Drawing.Point(100, 20) + Me.Label165.Name = "Label165" + Me.Label165.Size = New System.Drawing.Size(10, 17) + Me.Label165.TabIndex = 185 + Me.Label165.Text = "-" + Me.Label165.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label166 + ' + Me.Label166.BackColor = System.Drawing.Color.Transparent + Me.Label166.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label166.ForeColor = System.Drawing.Color.Black + Me.Label166.Location = New System.Drawing.Point(6, 21) + Me.Label166.Name = "Label166" + Me.Label166.Size = New System.Drawing.Size(49, 17) + Me.Label166.TabIndex = 188 + Me.Label166.Text = "Amount:" + Me.Label166.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox67 + ' + Me.GroupBox67.Controls.Add(Me.Label161) + Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMax) + Me.GroupBox67.Controls.Add(Me.NBTaskCBTTimeMin) + Me.GroupBox67.Controls.Add(Me.Label162) + Me.GroupBox67.Controls.Add(Me.Label163) + Me.GroupBox67.Controls.Add(Me.Label158) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMax) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgeHoldTimeMin) + Me.GroupBox67.Controls.Add(Me.Label159) + Me.GroupBox67.Controls.Add(Me.Label160) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMax) + Me.GroupBox67.Controls.Add(Me.NBTaskEdgesMin) + Me.GroupBox67.Controls.Add(Me.Label119) + Me.GroupBox67.Controls.Add(Me.Label157) + Me.GroupBox67.Controls.Add(Me.Label151) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMax) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokingTimeMin) + Me.GroupBox67.Controls.Add(Me.Label154) + Me.GroupBox67.Controls.Add(Me.Label155) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMax) + Me.GroupBox67.Controls.Add(Me.NBTaskStrokesMin) + Me.GroupBox67.Controls.Add(Me.Label146) + Me.GroupBox67.Controls.Add(Me.Label149) + Me.GroupBox67.Location = New System.Drawing.Point(408, 288) + Me.GroupBox67.Name = "GroupBox67" + Me.GroupBox67.Size = New System.Drawing.Size(291, 139) + Me.GroupBox67.TabIndex = 171 + Me.GroupBox67.TabStop = False + Me.GroupBox67.Text = "Letter Tasks" + ' + 'Label161 + ' + Me.Label161.BackColor = System.Drawing.Color.Transparent + Me.Label161.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label161.ForeColor = System.Drawing.Color.Black + Me.Label161.Location = New System.Drawing.Point(233, 110) + Me.Label161.Name = "Label161" + Me.Label161.Size = New System.Drawing.Size(50, 17) + Me.Label161.TabIndex = 204 + Me.Label161.Text = "minutes" + Me.Label161.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskCBTTimeMax + ' + Me.NBTaskCBTTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskCBTTimeMax.Location = New System.Drawing.Point(183, 110) + Me.NBTaskCBTTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) + Me.NBTaskCBTTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskCBTTimeMax.Name = "NBTaskCBTTimeMax" + Me.NBTaskCBTTimeMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskCBTTimeMax.TabIndex = 203 + Me.NBTaskCBTTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMax + ' + 'NBTaskCBTTimeMin + ' + Me.NBTaskCBTTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskCBTTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskCBTTimeMin.Location = New System.Drawing.Point(117, 111) + Me.NBTaskCBTTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskCBTTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskCBTTimeMin.Name = "NBTaskCBTTimeMin" + Me.NBTaskCBTTimeMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskCBTTimeMin.TabIndex = 202 + Me.NBTaskCBTTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskCBTTimeMin + ' + 'Label162 + ' + Me.Label162.BackColor = System.Drawing.Color.Transparent + Me.Label162.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label162.ForeColor = System.Drawing.Color.Black + Me.Label162.Location = New System.Drawing.Point(167, 110) + Me.Label162.Name = "Label162" + Me.Label162.Size = New System.Drawing.Size(10, 17) + Me.Label162.TabIndex = 201 + Me.Label162.Text = "-" + Me.Label162.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label163 + ' + Me.Label163.BackColor = System.Drawing.Color.Transparent + Me.Label163.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label163.ForeColor = System.Drawing.Color.Black + Me.Label163.Location = New System.Drawing.Point(12, 111) + Me.Label163.Name = "Label163" + Me.Label163.Size = New System.Drawing.Size(151, 17) + Me.Label163.TabIndex = 200 + Me.Label163.Text = "CBT Time:" + Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label158 + ' + Me.Label158.BackColor = System.Drawing.Color.Transparent + Me.Label158.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label158.ForeColor = System.Drawing.Color.Black + Me.Label158.Location = New System.Drawing.Point(233, 87) + Me.Label158.Name = "Label158" + Me.Label158.Size = New System.Drawing.Size(50, 17) + Me.Label158.TabIndex = 199 + Me.Label158.Text = "minutes" + Me.Label158.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskEdgeHoldTimeMax + ' + Me.NBTaskEdgeHoldTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgeHoldTimeMax.Location = New System.Drawing.Point(183, 87) + Me.NBTaskEdgeHoldTimeMax.Maximum = New Decimal(New Integer() {600, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMax.Name = "NBTaskEdgeHoldTimeMax" + Me.NBTaskEdgeHoldTimeMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgeHoldTimeMax.TabIndex = 198 + Me.NBTaskEdgeHoldTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMax + ' + 'NBTaskEdgeHoldTimeMin + ' + Me.NBTaskEdgeHoldTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgeHoldTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgeHoldTimeMin.Location = New System.Drawing.Point(117, 88) + Me.NBTaskEdgeHoldTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgeHoldTimeMin.Name = "NBTaskEdgeHoldTimeMin" + Me.NBTaskEdgeHoldTimeMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgeHoldTimeMin.TabIndex = 197 + Me.NBTaskEdgeHoldTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgeHoldTimeMin + ' + 'Label159 + ' + Me.Label159.BackColor = System.Drawing.Color.Transparent + Me.Label159.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label159.ForeColor = System.Drawing.Color.Black + Me.Label159.Location = New System.Drawing.Point(167, 87) + Me.Label159.Name = "Label159" + Me.Label159.Size = New System.Drawing.Size(10, 17) + Me.Label159.TabIndex = 196 + Me.Label159.Text = "-" + Me.Label159.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label160 + ' + Me.Label160.BackColor = System.Drawing.Color.Transparent + Me.Label160.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label160.ForeColor = System.Drawing.Color.Black + Me.Label160.Location = New System.Drawing.Point(12, 88) + Me.Label160.Name = "Label160" + Me.Label160.Size = New System.Drawing.Size(151, 17) + Me.Label160.TabIndex = 195 + Me.Label160.Text = "Edge Hold Time:" + Me.Label160.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskEdgesMax + ' + Me.NBTaskEdgesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgesMax.Location = New System.Drawing.Point(183, 64) + Me.NBTaskEdgesMax.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.NBTaskEdgesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgesMax.Name = "NBTaskEdgesMax" + Me.NBTaskEdgesMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgesMax.TabIndex = 194 + Me.NBTaskEdgesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMax + ' + 'NBTaskEdgesMin + ' + Me.NBTaskEdgesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskEdgesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskEdgesMin.Location = New System.Drawing.Point(117, 65) + Me.NBTaskEdgesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskEdgesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskEdgesMin.Name = "NBTaskEdgesMin" + Me.NBTaskEdgesMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskEdgesMin.TabIndex = 193 + Me.NBTaskEdgesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskEdgesMin + ' + 'Label119 + ' + Me.Label119.BackColor = System.Drawing.Color.Transparent + Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label119.ForeColor = System.Drawing.Color.Black + Me.Label119.Location = New System.Drawing.Point(167, 64) + Me.Label119.Name = "Label119" + Me.Label119.Size = New System.Drawing.Size(10, 17) + Me.Label119.TabIndex = 192 + Me.Label119.Text = "-" + Me.Label119.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label157 + ' + Me.Label157.BackColor = System.Drawing.Color.Transparent + Me.Label157.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label157.ForeColor = System.Drawing.Color.Black + Me.Label157.Location = New System.Drawing.Point(12, 65) + Me.Label157.Name = "Label157" + Me.Label157.Size = New System.Drawing.Size(151, 17) + Me.Label157.TabIndex = 191 + Me.Label157.Text = "Edges:" + Me.Label157.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label151 + ' + Me.Label151.BackColor = System.Drawing.Color.Transparent + Me.Label151.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label151.ForeColor = System.Drawing.Color.Black + Me.Label151.Location = New System.Drawing.Point(233, 41) + Me.Label151.Name = "Label151" + Me.Label151.Size = New System.Drawing.Size(50, 17) + Me.Label151.TabIndex = 190 + Me.Label151.Text = "minutes" + Me.Label151.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskStrokingTimeMax + ' + Me.NBTaskStrokingTimeMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokingTimeMax.Location = New System.Drawing.Point(183, 41) + Me.NBTaskStrokingTimeMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokingTimeMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokingTimeMax.Name = "NBTaskStrokingTimeMax" + Me.NBTaskStrokingTimeMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokingTimeMax.TabIndex = 189 + Me.NBTaskStrokingTimeMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMax + ' + 'NBTaskStrokingTimeMin + ' + Me.NBTaskStrokingTimeMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokingTimeMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokingTimeMin.Location = New System.Drawing.Point(117, 42) + Me.NBTaskStrokingTimeMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokingTimeMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokingTimeMin.Name = "NBTaskStrokingTimeMin" + Me.NBTaskStrokingTimeMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokingTimeMin.TabIndex = 188 + Me.NBTaskStrokingTimeMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokingTimeMin + ' + 'Label154 + ' + Me.Label154.BackColor = System.Drawing.Color.Transparent + Me.Label154.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label154.ForeColor = System.Drawing.Color.Black + Me.Label154.Location = New System.Drawing.Point(167, 41) + Me.Label154.Name = "Label154" + Me.Label154.Size = New System.Drawing.Size(10, 17) + Me.Label154.TabIndex = 187 + Me.Label154.Text = "-" + Me.Label154.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label155 + ' + Me.Label155.BackColor = System.Drawing.Color.Transparent + Me.Label155.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label155.ForeColor = System.Drawing.Color.Black + Me.Label155.Location = New System.Drawing.Point(12, 42) + Me.Label155.Name = "Label155" + Me.Label155.Size = New System.Drawing.Size(151, 17) + Me.Label155.TabIndex = 186 + Me.Label155.Text = "Stroking Time:" + Me.Label155.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTaskStrokesMax + ' + Me.NBTaskStrokesMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokesMax.Location = New System.Drawing.Point(183, 18) + Me.NBTaskStrokesMax.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokesMax.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokesMax.Name = "NBTaskStrokesMax" + Me.NBTaskStrokesMax.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokesMax.TabIndex = 184 + Me.NBTaskStrokesMax.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMax + ' + 'NBTaskStrokesMin + ' + Me.NBTaskStrokesMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "TaskStrokesMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBTaskStrokesMin.Location = New System.Drawing.Point(117, 19) + Me.NBTaskStrokesMin.Maximum = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.NBTaskStrokesMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTaskStrokesMin.Name = "NBTaskStrokesMin" + Me.NBTaskStrokesMin.Size = New System.Drawing.Size(44, 20) + Me.NBTaskStrokesMin.TabIndex = 183 + Me.NBTaskStrokesMin.Value = Global.Tease_AI.My.MySettings.Default.TaskStrokesMin + ' + 'Label146 + ' + Me.Label146.BackColor = System.Drawing.Color.Transparent + Me.Label146.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label146.ForeColor = System.Drawing.Color.Black + Me.Label146.Location = New System.Drawing.Point(167, 18) + Me.Label146.Name = "Label146" + Me.Label146.Size = New System.Drawing.Size(10, 17) + Me.Label146.TabIndex = 182 + Me.Label146.Text = "-" + Me.Label146.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label149 + ' + Me.Label149.BackColor = System.Drawing.Color.Transparent + Me.Label149.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label149.ForeColor = System.Drawing.Color.Black + Me.Label149.Location = New System.Drawing.Point(12, 19) + Me.Label149.Name = "Label149" + Me.Label149.Size = New System.Drawing.Size(151, 17) + Me.Label149.TabIndex = 181 + Me.Label149.Text = "Strokes:" + Me.Label149.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Me.Label112) + Me.GroupBox10.Controls.Add(Me.NBNextImageChance) + Me.GroupBox10.Controls.Add(Me.Label6) + Me.GroupBox10.Location = New System.Drawing.Point(408, 31) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(291, 54) + Me.GroupBox10.TabIndex = 170 + Me.GroupBox10.TabStop = False + Me.GroupBox10.Text = "Tease Slideshow" + ' + 'Label112 + ' + Me.Label112.BackColor = System.Drawing.Color.Transparent + Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label112.ForeColor = System.Drawing.Color.Black + Me.Label112.Location = New System.Drawing.Point(233, 21) + Me.Label112.Name = "Label112" + Me.Label112.Size = New System.Drawing.Size(50, 17) + Me.Label112.TabIndex = 180 + Me.Label112.Text = "percent" + Me.Label112.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBNextImageChance + ' + Me.NBNextImageChance.Location = New System.Drawing.Point(183, 20) + Me.NBNextImageChance.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBNextImageChance.Name = "NBNextImageChance" + Me.NBNextImageChance.Size = New System.Drawing.Size(44, 20) + Me.NBNextImageChance.TabIndex = 179 + Me.NBNextImageChance.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label6 + ' + Me.Label6.BackColor = System.Drawing.Color.Transparent + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.ForeColor = System.Drawing.Color.Black + Me.Label6.Location = New System.Drawing.Point(9, 21) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(151, 17) + Me.Label6.TabIndex = 154 + Me.Label6.Text = "Image Next/Previous Chance:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox57 + ' + Me.GroupBox57.Controls.Add(Me.Label139) + Me.GroupBox57.Controls.Add(Me.NBTauntEdging) + Me.GroupBox57.Controls.Add(Me.LBLVtf) + Me.GroupBox57.Controls.Add(Me.LBLStf) + Me.GroupBox57.Controls.Add(Me.SliderSTF) + Me.GroupBox57.Controls.Add(Me.TauntSlider) + Me.GroupBox57.Controls.Add(Me.Label106) + Me.GroupBox57.Controls.Add(Me.CBTauntCycleDD) + Me.GroupBox57.Controls.Add(Me.CBTeaseLengthDD) + Me.GroupBox57.Controls.Add(Me.Label103) + Me.GroupBox57.Controls.Add(Me.NBTauntCycleMax) + Me.GroupBox57.Controls.Add(Me.Label105) + Me.GroupBox57.Controls.Add(Me.Label101) + Me.GroupBox57.Controls.Add(Me.NBTauntCycleMin) + Me.GroupBox57.Controls.Add(Me.Label102) + Me.GroupBox57.Controls.Add(Me.Label97) + Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMax) + Me.GroupBox57.Controls.Add(Me.Label99) + Me.GroupBox57.Controls.Add(Me.Label96) + Me.GroupBox57.Controls.Add(Me.NBTeaseLengthMin) + Me.GroupBox57.Controls.Add(Me.Label95) + Me.GroupBox57.Controls.Add(Me.Label49) + Me.GroupBox57.Controls.Add(Me.Label141) + Me.GroupBox57.Location = New System.Drawing.Point(7, 30) + Me.GroupBox57.Name = "GroupBox57" + Me.GroupBox57.Size = New System.Drawing.Size(223, 308) + Me.GroupBox57.TabIndex = 169 + Me.GroupBox57.TabStop = False + Me.GroupBox57.Text = "Tease" + ' + 'Label139 + ' + Me.Label139.BackColor = System.Drawing.Color.Transparent + Me.Label139.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label139.ForeColor = System.Drawing.Color.Black + Me.Label139.Location = New System.Drawing.Point(175, 171) + Me.Label139.Name = "Label139" + Me.Label139.Size = New System.Drawing.Size(50, 17) + Me.Label139.TabIndex = 184 + Me.Label139.Text = "percent" + Me.Label139.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTauntEdging + ' + Me.NBTauntEdging.Location = New System.Drawing.Point(130, 171) + Me.NBTauntEdging.Name = "NBTauntEdging" + Me.NBTauntEdging.Size = New System.Drawing.Size(44, 20) + Me.NBTauntEdging.TabIndex = 188 + Me.NBTauntEdging.Value = New Decimal(New Integer() {70, 0, 0, 0}) + ' + 'LBLVtf + ' + Me.LBLVtf.BackColor = System.Drawing.Color.Transparent + Me.LBLVtf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLVtf.ForeColor = System.Drawing.Color.Black + Me.LBLVtf.Location = New System.Drawing.Point(128, 261) + Me.LBLVtf.Name = "LBLVtf" + Me.LBLVtf.Size = New System.Drawing.Size(87, 17) + Me.LBLVtf.TabIndex = 187 + Me.LBLVtf.Text = "Normal" + Me.LBLVtf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLStf + ' + Me.LBLStf.BackColor = System.Drawing.Color.Transparent + Me.LBLStf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLStf.ForeColor = System.Drawing.Color.Black + Me.LBLStf.Location = New System.Drawing.Point(130, 220) + Me.LBLStf.Name = "LBLStf" + Me.LBLStf.Size = New System.Drawing.Size(87, 17) + Me.LBLStf.TabIndex = 165 + Me.LBLStf.Text = "Normal" + Me.LBLStf.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'SliderSTF + ' + Me.SliderSTF.AutoSize = False + Me.SliderSTF.LargeChange = 1 + Me.SliderSTF.Location = New System.Drawing.Point(130, 199) + Me.SliderSTF.Maximum = 5 + Me.SliderSTF.Minimum = 1 + Me.SliderSTF.Name = "SliderSTF" + Me.SliderSTF.Size = New System.Drawing.Size(87, 25) + Me.SliderSTF.TabIndex = 163 + Me.SliderSTF.Value = 3 + ' + 'TauntSlider + ' + Me.TauntSlider.AutoSize = False + Me.TauntSlider.LargeChange = 1 + Me.TauntSlider.Location = New System.Drawing.Point(130, 240) + Me.TauntSlider.Maximum = 9 + Me.TauntSlider.Minimum = 1 + Me.TauntSlider.Name = "TauntSlider" + Me.TauntSlider.Size = New System.Drawing.Size(87, 25) + Me.TauntSlider.TabIndex = 161 + Me.TauntSlider.Value = 4 + ' + 'Label106 + ' + Me.Label106.BackColor = System.Drawing.Color.Transparent + Me.Label106.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label106.ForeColor = System.Drawing.Color.Black + Me.Label106.Location = New System.Drawing.Point(6, 243) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(123, 17) + Me.Label106.TabIndex = 186 + Me.Label106.Text = "Video Taunt Frequency:" + Me.Label106.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'CBTauntCycleDD + ' + Me.CBTauntCycleDD.AutoSize = True + Me.CBTauntCycleDD.ForeColor = System.Drawing.Color.Black + Me.CBTauntCycleDD.Location = New System.Drawing.Point(9, 140) + Me.CBTauntCycleDD.Name = "CBTauntCycleDD" + Me.CBTauntCycleDD.Size = New System.Drawing.Size(176, 17) + Me.CBTauntCycleDD.TabIndex = 185 + Me.CBTauntCycleDD.Text = "Domme Decide Based on Level" + Me.CBTauntCycleDD.UseVisualStyleBackColor = True + ' + 'CBTeaseLengthDD + ' + Me.CBTeaseLengthDD.AutoSize = True + Me.CBTeaseLengthDD.ForeColor = System.Drawing.Color.Black + Me.CBTeaseLengthDD.Location = New System.Drawing.Point(9, 69) + Me.CBTeaseLengthDD.Name = "CBTeaseLengthDD" + Me.CBTeaseLengthDD.Size = New System.Drawing.Size(176, 17) + Me.CBTeaseLengthDD.TabIndex = 184 + Me.CBTeaseLengthDD.Text = "Domme Decide Based on Level" + Me.CBTeaseLengthDD.UseVisualStyleBackColor = True + ' + 'Label103 + ' + Me.Label103.BackColor = System.Drawing.Color.Transparent + Me.Label103.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label103.ForeColor = System.Drawing.Color.Black + Me.Label103.Location = New System.Drawing.Point(175, 117) + Me.Label103.Name = "Label103" + Me.Label103.Size = New System.Drawing.Size(50, 17) + Me.Label103.TabIndex = 183 + Me.Label103.Text = "minutes" + Me.Label103.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTauntCycleMax + ' + Me.NBTauntCycleMax.Location = New System.Drawing.Point(130, 116) + Me.NBTauntCycleMax.Maximum = New Decimal(New Integer() {30, 0, 0, 0}) + Me.NBTauntCycleMax.Minimum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.NBTauntCycleMax.Name = "NBTauntCycleMax" + Me.NBTauntCycleMax.Size = New System.Drawing.Size(44, 20) + Me.NBTauntCycleMax.TabIndex = 182 + Me.NBTauntCycleMax.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'Label105 + ' + Me.Label105.BackColor = System.Drawing.Color.Transparent + Me.Label105.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label105.ForeColor = System.Drawing.Color.Black + Me.Label105.Location = New System.Drawing.Point(6, 117) + Me.Label105.Name = "Label105" + Me.Label105.Size = New System.Drawing.Size(123, 17) + Me.Label105.TabIndex = 181 + Me.Label105.Text = "Taunt Cycle Maximum:" + Me.Label105.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label101 + ' + Me.Label101.BackColor = System.Drawing.Color.Transparent + Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label101.ForeColor = System.Drawing.Color.Black + Me.Label101.Location = New System.Drawing.Point(175, 93) + Me.Label101.Name = "Label101" + Me.Label101.Size = New System.Drawing.Size(50, 17) + Me.Label101.TabIndex = 180 + Me.Label101.Text = "minutes" + Me.Label101.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTauntCycleMin + ' + Me.NBTauntCycleMin.Location = New System.Drawing.Point(130, 92) + Me.NBTauntCycleMin.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBTauntCycleMin.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBTauntCycleMin.Name = "NBTauntCycleMin" + Me.NBTauntCycleMin.Size = New System.Drawing.Size(44, 20) + Me.NBTauntCycleMin.TabIndex = 179 + Me.NBTauntCycleMin.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'Label102 + ' + Me.Label102.BackColor = System.Drawing.Color.Transparent + Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label102.ForeColor = System.Drawing.Color.Black + Me.Label102.Location = New System.Drawing.Point(6, 93) + Me.Label102.Name = "Label102" + Me.Label102.Size = New System.Drawing.Size(123, 17) + Me.Label102.TabIndex = 178 + Me.Label102.Text = "Taunt Cycle Minimum:" + Me.Label102.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label97 + ' + Me.Label97.BackColor = System.Drawing.Color.Transparent + Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label97.ForeColor = System.Drawing.Color.Black + Me.Label97.Location = New System.Drawing.Point(175, 46) + Me.Label97.Name = "Label97" + Me.Label97.Size = New System.Drawing.Size(50, 17) + Me.Label97.TabIndex = 177 + Me.Label97.Text = "minutes" + Me.Label97.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTeaseLengthMax + ' + Me.NBTeaseLengthMax.Location = New System.Drawing.Point(130, 45) + Me.NBTeaseLengthMax.Maximum = New Decimal(New Integer() {1440, 0, 0, 0}) + Me.NBTeaseLengthMax.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NBTeaseLengthMax.Name = "NBTeaseLengthMax" + Me.NBTeaseLengthMax.Size = New System.Drawing.Size(44, 20) + Me.NBTeaseLengthMax.TabIndex = 176 + Me.NBTeaseLengthMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'Label99 + ' + Me.Label99.BackColor = System.Drawing.Color.Transparent + Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label99.ForeColor = System.Drawing.Color.Black + Me.Label99.Location = New System.Drawing.Point(6, 46) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(123, 17) + Me.Label99.TabIndex = 175 + Me.Label99.Text = "Tease Length Maximum:" + Me.Label99.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label96 + ' + Me.Label96.BackColor = System.Drawing.Color.Transparent + Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label96.ForeColor = System.Drawing.Color.Black + Me.Label96.Location = New System.Drawing.Point(175, 20) + Me.Label96.Name = "Label96" + Me.Label96.Size = New System.Drawing.Size(50, 17) + Me.Label96.TabIndex = 174 + Me.Label96.Text = "minutes" + Me.Label96.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBTeaseLengthMin + ' + Me.NBTeaseLengthMin.Location = New System.Drawing.Point(130, 19) + Me.NBTeaseLengthMin.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.NBTeaseLengthMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBTeaseLengthMin.Name = "NBTeaseLengthMin" + Me.NBTeaseLengthMin.Size = New System.Drawing.Size(44, 20) + Me.NBTeaseLengthMin.TabIndex = 169 + Me.NBTeaseLengthMin.Value = New Decimal(New Integer() {15, 0, 0, 0}) + ' + 'Label95 + ' + Me.Label95.BackColor = System.Drawing.Color.Transparent + Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label95.ForeColor = System.Drawing.Color.Black + Me.Label95.Location = New System.Drawing.Point(6, 20) + Me.Label95.Name = "Label95" + Me.Label95.Size = New System.Drawing.Size(123, 17) + Me.Label95.TabIndex = 166 + Me.Label95.Text = "Tease Length Minimum:" + Me.Label95.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label49 + ' + Me.Label49.BackColor = System.Drawing.Color.Transparent + Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label49.ForeColor = System.Drawing.Color.Black + Me.Label49.Location = New System.Drawing.Point(6, 207) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(132, 17) + Me.Label49.TabIndex = 164 + Me.Label49.Text = "Stroke Taunt Frequency:" + Me.Label49.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label141 + ' + Me.Label141.BackColor = System.Drawing.Color.Transparent + Me.Label141.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label141.ForeColor = System.Drawing.Color.Black + Me.Label141.Location = New System.Drawing.Point(6, 163) + Me.Label141.Name = "Label141" + Me.Label141.Size = New System.Drawing.Size(141, 32) + Me.Label141.TabIndex = 189 + Me.Label141.Text = "Edging Ends Taunts:" + Me.Label141.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GBRangeRuinChance + ' + Me.GBRangeRuinChance.Controls.Add(Me.Label90) + Me.GBRangeRuinChance.Controls.Add(Me.NBRuinSometimes) + Me.GBRangeRuinChance.Controls.Add(Me.Label91) + Me.GBRangeRuinChance.Controls.Add(Me.Label92) + Me.GBRangeRuinChance.Controls.Add(Me.NBRuinRarely) + Me.GBRangeRuinChance.Controls.Add(Me.NBRuinOften) + Me.GBRangeRuinChance.Controls.Add(Me.CBRangeRuin) + Me.GBRangeRuinChance.Location = New System.Drawing.Point(236, 159) + Me.GBRangeRuinChance.Name = "GBRangeRuinChance" + Me.GBRangeRuinChance.Size = New System.Drawing.Size(166, 122) + Me.GBRangeRuinChance.TabIndex = 168 + Me.GBRangeRuinChance.TabStop = False + Me.GBRangeRuinChance.Text = "Ruin Chance" + ' + 'Label90 + ' + Me.Label90.BackColor = System.Drawing.Color.Transparent + Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label90.ForeColor = System.Drawing.Color.Black + Me.Label90.Location = New System.Drawing.Point(6, 94) + Me.Label90.Name = "Label90" + Me.Label90.Size = New System.Drawing.Size(83, 17) + Me.Label90.TabIndex = 173 + Me.Label90.Text = "Rarely Ruins:" + Me.Label90.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBRuinSometimes + ' + Me.NBRuinSometimes.Enabled = False + Me.NBRuinSometimes.Location = New System.Drawing.Point(113, 68) + Me.NBRuinSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBRuinSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBRuinSometimes.Name = "NBRuinSometimes" + Me.NBRuinSometimes.Size = New System.Drawing.Size(44, 20) + Me.NBRuinSometimes.TabIndex = 169 + Me.NBRuinSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) + ' + 'Label91 + ' + Me.Label91.BackColor = System.Drawing.Color.Transparent + Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label91.ForeColor = System.Drawing.Color.Black + Me.Label91.Location = New System.Drawing.Point(6, 68) + Me.Label91.Name = "Label91" + Me.Label91.Size = New System.Drawing.Size(102, 17) + Me.Label91.TabIndex = 172 + Me.Label91.Text = "Sometimes Ruins:" + Me.Label91.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label92 + ' + Me.Label92.BackColor = System.Drawing.Color.Transparent + Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label92.ForeColor = System.Drawing.Color.Black + Me.Label92.Location = New System.Drawing.Point(6, 42) + Me.Label92.Name = "Label92" + Me.Label92.Size = New System.Drawing.Size(72, 17) + Me.Label92.TabIndex = 171 + Me.Label92.Text = "Often Ruins:" + Me.Label92.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBRuinRarely + ' + Me.NBRuinRarely.Enabled = False + Me.NBRuinRarely.Location = New System.Drawing.Point(113, 94) + Me.NBRuinRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBRuinRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBRuinRarely.Name = "NBRuinRarely" + Me.NBRuinRarely.Size = New System.Drawing.Size(44, 20) + Me.NBRuinRarely.TabIndex = 170 + Me.NBRuinRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) + ' + 'NBRuinOften + ' + Me.NBRuinOften.Enabled = False + Me.NBRuinOften.Location = New System.Drawing.Point(113, 42) + Me.NBRuinOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBRuinOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBRuinOften.Name = "NBRuinOften" + Me.NBRuinOften.Size = New System.Drawing.Size(44, 20) + Me.NBRuinOften.TabIndex = 168 + Me.NBRuinOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) + ' + 'CBRangeRuin + ' + Me.CBRangeRuin.AutoSize = True + Me.CBRangeRuin.ForeColor = System.Drawing.Color.Black + Me.CBRangeRuin.Location = New System.Drawing.Point(9, 19) + Me.CBRangeRuin.Name = "CBRangeRuin" + Me.CBRangeRuin.Size = New System.Drawing.Size(99, 17) + Me.CBRangeRuin.TabIndex = 159 + Me.CBRangeRuin.Text = "Domme Decide" + Me.CBRangeRuin.UseVisualStyleBackColor = True + ' + 'GroupBox17 + ' + Me.GroupBox17.Controls.Add(Me.GroupBox19) + Me.GroupBox17.Controls.Add(Me.GroupBox18) + Me.GroupBox17.Location = New System.Drawing.Point(408, 91) + Me.GroupBox17.Name = "GroupBox17" + Me.GroupBox17.Size = New System.Drawing.Size(291, 190) + Me.GroupBox17.TabIndex = 0 + Me.GroupBox17.TabStop = False + Me.GroupBox17.Text = "Video Teases" + ' + 'GroupBox19 + ' + Me.GroupBox19.Controls.Add(Me.Label110) + Me.GroupBox19.Controls.Add(Me.Label111) + Me.GroupBox19.Controls.Add(Me.NBGreenLightMax) + Me.GroupBox19.Controls.Add(Me.NBGreenLightMin) + Me.GroupBox19.Controls.Add(Me.NBRedLightMax) + Me.GroupBox19.Controls.Add(Me.Label26) + Me.GroupBox19.Controls.Add(Me.NBRedLightMin) + Me.GroupBox19.Controls.Add(Me.Label28) + Me.GroupBox19.Controls.Add(Me.Label27) + Me.GroupBox19.Controls.Add(Me.Label29) + Me.GroupBox19.Location = New System.Drawing.Point(6, 110) + Me.GroupBox19.Name = "GroupBox19" + Me.GroupBox19.Size = New System.Drawing.Size(279, 66) + Me.GroupBox19.TabIndex = 2 + Me.GroupBox19.TabStop = False + Me.GroupBox19.Text = "Red Light, Green Light" + ' + 'Label110 + ' + Me.Label110.BackColor = System.Drawing.Color.Transparent + Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label110.ForeColor = System.Drawing.Color.Black + Me.Label110.Location = New System.Drawing.Point(227, 39) + Me.Label110.Name = "Label110" + Me.Label110.Size = New System.Drawing.Size(50, 17) + Me.Label110.TabIndex = 181 + Me.Label110.Text = "seconds" + Me.Label110.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label111 + ' + Me.Label111.BackColor = System.Drawing.Color.Transparent + Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label111.ForeColor = System.Drawing.Color.Black + Me.Label111.Location = New System.Drawing.Point(227, 16) + Me.Label111.Name = "Label111" + Me.Label111.Size = New System.Drawing.Size(50, 17) + Me.Label111.TabIndex = 180 + Me.Label111.Text = "seconds" + Me.Label111.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBGreenLightMax + ' + Me.NBGreenLightMax.Location = New System.Drawing.Point(177, 38) + Me.NBGreenLightMax.Name = "NBGreenLightMax" + Me.NBGreenLightMax.Size = New System.Drawing.Size(44, 20) + Me.NBGreenLightMax.TabIndex = 156 + Me.NBGreenLightMax.Value = New Decimal(New Integer() {60, 0, 0, 0}) + ' + 'NBGreenLightMin + ' + Me.NBGreenLightMin.Location = New System.Drawing.Point(111, 38) + Me.NBGreenLightMin.Name = "NBGreenLightMin" + Me.NBGreenLightMin.Size = New System.Drawing.Size(44, 20) + Me.NBGreenLightMin.TabIndex = 155 + Me.NBGreenLightMin.Value = New Decimal(New Integer() {10, 0, 0, 0}) + ' + 'NBRedLightMax + ' + Me.NBRedLightMax.Location = New System.Drawing.Point(177, 15) + Me.NBRedLightMax.Name = "NBRedLightMax" + Me.NBRedLightMax.Size = New System.Drawing.Size(44, 20) + Me.NBRedLightMax.TabIndex = 152 + Me.NBRedLightMax.Value = New Decimal(New Integer() {30, 0, 0, 0}) + ' + 'Label26 + ' + Me.Label26.BackColor = System.Drawing.Color.Transparent + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.ForeColor = System.Drawing.Color.Black + Me.Label26.Location = New System.Drawing.Point(161, 38) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(10, 17) + Me.Label26.TabIndex = 154 + Me.Label26.Text = "-" + Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBRedLightMin + ' + Me.NBRedLightMin.Location = New System.Drawing.Point(111, 15) + Me.NBRedLightMin.Name = "NBRedLightMin" + Me.NBRedLightMin.Size = New System.Drawing.Size(44, 20) + Me.NBRedLightMin.TabIndex = 151 + Me.NBRedLightMin.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'Label28 + ' + Me.Label28.BackColor = System.Drawing.Color.Transparent + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.ForeColor = System.Drawing.Color.Black + Me.Label28.Location = New System.Drawing.Point(161, 15) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(10, 17) + Me.Label28.TabIndex = 150 + Me.Label28.Text = "-" + Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label27 + ' + Me.Label27.BackColor = System.Drawing.Color.Transparent + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.ForeColor = System.Drawing.Color.Black + Me.Label27.Location = New System.Drawing.Point(6, 39) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(151, 17) + Me.Label27.TabIndex = 153 + Me.Label27.Text = "Green Light Time:" + Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label29 + ' + Me.Label29.BackColor = System.Drawing.Color.Transparent + Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label29.ForeColor = System.Drawing.Color.Black + Me.Label29.Location = New System.Drawing.Point(6, 16) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(151, 17) + Me.Label29.TabIndex = 149 + Me.Label29.Text = "Red Light Time:" + Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox18 + ' + Me.GroupBox18.Controls.Add(Me.Label108) + Me.GroupBox18.Controls.Add(Me.Label109) + Me.GroupBox18.Controls.Add(Me.NBCensorShowMin) + Me.GroupBox18.Controls.Add(Me.NBCensorHideMax) + Me.GroupBox18.Controls.Add(Me.NBCensorHideMin) + Me.GroupBox18.Controls.Add(Me.CBCensorConstant) + Me.GroupBox18.Controls.Add(Me.Label25) + Me.GroupBox18.Controls.Add(Me.Label20) + Me.GroupBox18.Controls.Add(Me.Label19) + Me.GroupBox18.Controls.Add(Me.Label24) + Me.GroupBox18.Controls.Add(Me.NBCensorShowMax) + Me.GroupBox18.Location = New System.Drawing.Point(6, 16) + Me.GroupBox18.Name = "GroupBox18" + Me.GroupBox18.Size = New System.Drawing.Size(279, 88) + Me.GroupBox18.TabIndex = 1 + Me.GroupBox18.TabStop = False + Me.GroupBox18.Text = "Censorship Sucks" + ' + 'Label108 + ' + Me.Label108.BackColor = System.Drawing.Color.Transparent + Me.Label108.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label108.ForeColor = System.Drawing.Color.Black + Me.Label108.Location = New System.Drawing.Point(227, 39) + Me.Label108.Name = "Label108" + Me.Label108.Size = New System.Drawing.Size(50, 17) + Me.Label108.TabIndex = 179 + Me.Label108.Text = "seconds" + Me.Label108.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label109 + ' + Me.Label109.BackColor = System.Drawing.Color.Transparent + Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label109.ForeColor = System.Drawing.Color.Black + Me.Label109.Location = New System.Drawing.Point(227, 16) + Me.Label109.Name = "Label109" + Me.Label109.Size = New System.Drawing.Size(50, 17) + Me.Label109.TabIndex = 178 + Me.Label109.Text = "seconds" + Me.Label109.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBCensorShowMin + ' + Me.NBCensorShowMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorShowMin.Location = New System.Drawing.Point(111, 15) + Me.NBCensorShowMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) + Me.NBCensorShowMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorShowMin.Name = "NBCensorShowMin" + Me.NBCensorShowMin.Size = New System.Drawing.Size(44, 20) + Me.NBCensorShowMin.TabIndex = 151 + Me.NBCensorShowMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMin + ' + 'NBCensorHideMax + ' + Me.NBCensorHideMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorHideMax.Location = New System.Drawing.Point(177, 38) + Me.NBCensorHideMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) + Me.NBCensorHideMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorHideMax.Name = "NBCensorHideMax" + Me.NBCensorHideMax.Size = New System.Drawing.Size(44, 20) + Me.NBCensorHideMax.TabIndex = 156 + Me.NBCensorHideMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMax + ' + 'NBCensorHideMin + ' + Me.NBCensorHideMin.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorHideMin", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorHideMin.Location = New System.Drawing.Point(111, 38) + Me.NBCensorHideMin.Maximum = New Decimal(New Integer() {180, 0, 0, 0}) + Me.NBCensorHideMin.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorHideMin.Name = "NBCensorHideMin" + Me.NBCensorHideMin.Size = New System.Drawing.Size(44, 20) + Me.NBCensorHideMin.TabIndex = 155 + Me.NBCensorHideMin.Value = Global.Tease_AI.My.MySettings.Default.NBCensorHideMin + ' + 'CBCensorConstant + ' + Me.CBCensorConstant.AutoSize = True + Me.CBCensorConstant.Checked = Global.Tease_AI.My.MySettings.Default.CBCensorConstant + Me.CBCensorConstant.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CBCensorConstant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CBCensorConstant.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CBCensorConstant.ForeColor = System.Drawing.Color.Black + Me.CBCensorConstant.Location = New System.Drawing.Point(6, 65) + Me.CBCensorConstant.Name = "CBCensorConstant" + Me.CBCensorConstant.Size = New System.Drawing.Size(263, 17) + Me.CBCensorConstant.TabIndex = 157 + Me.CBCensorConstant.Text = "Censorship Bar Always Visible During Video Tease" + Me.CBCensorConstant.UseVisualStyleBackColor = True + ' + 'Label25 + ' + Me.Label25.BackColor = System.Drawing.Color.Transparent + Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.ForeColor = System.Drawing.Color.Black + Me.Label25.Location = New System.Drawing.Point(161, 15) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(10, 17) + Me.Label25.TabIndex = 150 + Me.Label25.Text = "-" + Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label20 + ' + Me.Label20.BackColor = System.Drawing.Color.Transparent + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.ForeColor = System.Drawing.Color.Black + Me.Label20.Location = New System.Drawing.Point(6, 39) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(110, 17) + Me.Label20.TabIndex = 153 + Me.Label20.Text = "Censor Bar Hidden:" + Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Me.Label19.BackColor = System.Drawing.Color.Transparent + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.ForeColor = System.Drawing.Color.Black + Me.Label19.Location = New System.Drawing.Point(161, 38) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(10, 17) + Me.Label19.TabIndex = 154 + Me.Label19.Text = "-" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label24 + ' + Me.Label24.BackColor = System.Drawing.Color.Transparent + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.ForeColor = System.Drawing.Color.Black + Me.Label24.Location = New System.Drawing.Point(6, 16) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(110, 17) + Me.Label24.TabIndex = 149 + Me.Label24.Text = "Censor Bar Shown:" + Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBCensorShowMax + ' + Me.NBCensorShowMax.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.Tease_AI.My.MySettings.Default, "NBCensorShowMax", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.NBCensorShowMax.Location = New System.Drawing.Point(177, 15) + Me.NBCensorShowMax.Maximum = New Decimal(New Integer() {300, 0, 0, 0}) + Me.NBCensorShowMax.Minimum = New Decimal(New Integer() {5, 0, 0, 0}) + Me.NBCensorShowMax.Name = "NBCensorShowMax" + Me.NBCensorShowMax.Size = New System.Drawing.Size(44, 20) + Me.NBCensorShowMax.TabIndex = 152 + Me.NBCensorShowMax.Value = Global.Tease_AI.My.MySettings.Default.NBCensorShowMax + ' + 'GBRangeOrgasmChance + ' + Me.GBRangeOrgasmChance.Controls.Add(Me.Label89) + Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowSometimes) + Me.GBRangeOrgasmChance.Controls.Add(Me.Label86) + Me.GBRangeOrgasmChance.Controls.Add(Me.Label82) + Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowRarely) + Me.GBRangeOrgasmChance.Controls.Add(Me.NBAllowOften) + Me.GBRangeOrgasmChance.Controls.Add(Me.CBRangeOrgasm) + Me.GBRangeOrgasmChance.Location = New System.Drawing.Point(236, 31) + Me.GBRangeOrgasmChance.Name = "GBRangeOrgasmChance" + Me.GBRangeOrgasmChance.Size = New System.Drawing.Size(166, 122) + Me.GBRangeOrgasmChance.TabIndex = 167 + Me.GBRangeOrgasmChance.TabStop = False + Me.GBRangeOrgasmChance.Text = "Orgasm Chance" + ' + 'Label89 + ' + Me.Label89.BackColor = System.Drawing.Color.Transparent + Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label89.ForeColor = System.Drawing.Color.Black + Me.Label89.Location = New System.Drawing.Point(6, 94) + Me.Label89.Name = "Label89" + Me.Label89.Size = New System.Drawing.Size(83, 17) + Me.Label89.TabIndex = 173 + Me.Label89.Text = "Rarely Allows:" + Me.Label89.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBAllowSometimes + ' + Me.NBAllowSometimes.Enabled = False + Me.NBAllowSometimes.Location = New System.Drawing.Point(113, 68) + Me.NBAllowSometimes.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBAllowSometimes.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBAllowSometimes.Name = "NBAllowSometimes" + Me.NBAllowSometimes.Size = New System.Drawing.Size(44, 20) + Me.NBAllowSometimes.TabIndex = 169 + Me.NBAllowSometimes.Value = New Decimal(New Integer() {50, 0, 0, 0}) + ' + 'Label86 + ' + Me.Label86.BackColor = System.Drawing.Color.Transparent + Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label86.ForeColor = System.Drawing.Color.Black + Me.Label86.Location = New System.Drawing.Point(6, 68) + Me.Label86.Name = "Label86" + Me.Label86.Size = New System.Drawing.Size(102, 17) + Me.Label86.TabIndex = 172 + Me.Label86.Text = "Sometimes Allows:" + Me.Label86.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label82 + ' + Me.Label82.BackColor = System.Drawing.Color.Transparent + Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label82.ForeColor = System.Drawing.Color.Black + Me.Label82.Location = New System.Drawing.Point(6, 42) + Me.Label82.Name = "Label82" + Me.Label82.Size = New System.Drawing.Size(83, 17) + Me.Label82.TabIndex = 171 + Me.Label82.Text = "Often Allows:" + Me.Label82.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'NBAllowRarely + ' + Me.NBAllowRarely.Enabled = False + Me.NBAllowRarely.Location = New System.Drawing.Point(113, 94) + Me.NBAllowRarely.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBAllowRarely.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBAllowRarely.Name = "NBAllowRarely" + Me.NBAllowRarely.Size = New System.Drawing.Size(44, 20) + Me.NBAllowRarely.TabIndex = 170 + Me.NBAllowRarely.Value = New Decimal(New Integer() {20, 0, 0, 0}) + ' + 'NBAllowOften + ' + Me.NBAllowOften.Enabled = False + Me.NBAllowOften.Location = New System.Drawing.Point(113, 42) + Me.NBAllowOften.Maximum = New Decimal(New Integer() {99, 0, 0, 0}) + Me.NBAllowOften.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.NBAllowOften.Name = "NBAllowOften" + Me.NBAllowOften.Size = New System.Drawing.Size(44, 20) + Me.NBAllowOften.TabIndex = 168 + Me.NBAllowOften.Value = New Decimal(New Integer() {75, 0, 0, 0}) + ' + 'CBRangeOrgasm + ' + Me.CBRangeOrgasm.AutoSize = True + Me.CBRangeOrgasm.ForeColor = System.Drawing.Color.Black + Me.CBRangeOrgasm.Location = New System.Drawing.Point(9, 19) + Me.CBRangeOrgasm.Name = "CBRangeOrgasm" + Me.CBRangeOrgasm.Size = New System.Drawing.Size(99, 17) + Me.CBRangeOrgasm.TabIndex = 159 + Me.CBRangeOrgasm.Text = "Domme Decide" + Me.CBRangeOrgasm.UseVisualStyleBackColor = True + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.LightGray + Me.PictureBox8.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox8.Location = New System.Drawing.Point(9, 6) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(160, 19) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox8.TabIndex = 166 + Me.PictureBox8.TabStop = False + ' + 'Label38 + ' + Me.Label38.BackColor = System.Drawing.Color.Transparent + Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label38.ForeColor = System.Drawing.Color.Black + Me.Label38.Location = New System.Drawing.Point(7, 6) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(692, 21) + Me.Label38.TabIndex = 48 + Me.Label38.Text = "Range Settings" + Me.Label38.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage13 + ' + Me.TabPage13.BackColor = System.Drawing.Color.Silver + Me.TabPage13.Controls.Add(Me.TabControl2) + Me.TabPage13.Location = New System.Drawing.Point(4, 22) + Me.TabPage13.Name = "TabPage13" + Me.TabPage13.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage13.Size = New System.Drawing.Size(720, 448) + Me.TabPage13.TabIndex = 13 + Me.TabPage13.Text = "Modding" + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage27) + Me.TabControl2.Controls.Add(Me.TabPage14) + Me.TabControl2.Controls.Add(Me.TabPage24) + Me.TabControl2.Controls.Add(Me.TabPage8) + Me.TabControl2.Controls.Add(Me.TabPage15) + Me.TabControl2.Location = New System.Drawing.Point(6, 6) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(708, 437) + Me.TabControl2.TabIndex = 0 + ' + 'TabPage27 + ' + Me.TabPage27.BackColor = System.Drawing.Color.LightGray + Me.TabPage27.Controls.Add(Me.TBPlaylistSave) + Me.TabPage27.Controls.Add(Me.BTNPlaylistCtrlZ) + Me.TabPage27.Controls.Add(Me.RadioPlaylistRegScripts) + Me.TabPage27.Controls.Add(Me.RadioPlaylistScripts) + Me.TabPage27.Controls.Add(Me.BTNPlaylistEnd) + Me.TabPage27.Controls.Add(Me.BTNPlaylistClearAll) + Me.TabPage27.Controls.Add(Me.BTNPlaylistSave) + Me.TabPage27.Controls.Add(Me.Button7) + Me.TabPage27.Controls.Add(Me.WBPlaylist) + Me.TabPage27.Controls.Add(Me.Label80) + Me.TabPage27.Controls.Add(Me.LBLPlaylIstLink) + Me.TabPage27.Controls.Add(Me.LBLPlaylistModule) + Me.TabPage27.Controls.Add(Me.LBLPLaylistStart) + Me.TabPage27.Controls.Add(Me.LBPlaylist) + Me.TabPage27.Location = New System.Drawing.Point(4, 22) + Me.TabPage27.Name = "TabPage27" + Me.TabPage27.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage27.Size = New System.Drawing.Size(700, 411) + Me.TabPage27.TabIndex = 5 + Me.TabPage27.Text = "Playlists" + ' + 'TBPlaylistSave + ' + Me.TBPlaylistSave.Location = New System.Drawing.Point(413, 371) + Me.TBPlaylistSave.Name = "TBPlaylistSave" + Me.TBPlaylistSave.Size = New System.Drawing.Size(201, 20) + Me.TBPlaylistSave.TabIndex = 203 + ' + 'BTNPlaylistCtrlZ + ' + Me.BTNPlaylistCtrlZ.Enabled = False + Me.BTNPlaylistCtrlZ.Location = New System.Drawing.Point(621, 21) + Me.BTNPlaylistCtrlZ.Name = "BTNPlaylistCtrlZ" + Me.BTNPlaylistCtrlZ.Size = New System.Drawing.Size(44, 23) + Me.BTNPlaylistCtrlZ.TabIndex = 202 + Me.BTNPlaylistCtrlZ.Text = "Undo" + Me.BTNPlaylistCtrlZ.UseVisualStyleBackColor = True + ' + 'RadioPlaylistRegScripts + ' + Me.RadioPlaylistRegScripts.AutoSize = True + Me.RadioPlaylistRegScripts.Location = New System.Drawing.Point(228, 372) + Me.RadioPlaylistRegScripts.Name = "RadioPlaylistRegScripts" + Me.RadioPlaylistRegScripts.Size = New System.Drawing.Size(127, 17) + Me.RadioPlaylistRegScripts.TabIndex = 201 + Me.RadioPlaylistRegScripts.Text = "Show Regular Scripts" + Me.RadioPlaylistRegScripts.UseVisualStyleBackColor = True + ' + 'RadioPlaylistScripts + ' + Me.RadioPlaylistScripts.AutoSize = True + Me.RadioPlaylistScripts.Checked = True + Me.RadioPlaylistScripts.Location = New System.Drawing.Point(62, 372) + Me.RadioPlaylistScripts.Name = "RadioPlaylistScripts" + Me.RadioPlaylistScripts.Size = New System.Drawing.Size(122, 17) + Me.RadioPlaylistScripts.TabIndex = 200 + Me.RadioPlaylistScripts.TabStop = True + Me.RadioPlaylistScripts.Text = "Show Playlist Scripts" + Me.RadioPlaylistScripts.UseVisualStyleBackColor = True + ' + 'BTNPlaylistEnd + ' + Me.BTNPlaylistEnd.BackColor = System.Drawing.Color.LightGray + Me.BTNPlaylistEnd.Enabled = False + Me.BTNPlaylistEnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BTNPlaylistEnd.ForeColor = System.Drawing.Color.Black + Me.BTNPlaylistEnd.Location = New System.Drawing.Point(165, 21) + Me.BTNPlaylistEnd.Name = "BTNPlaylistEnd" + Me.BTNPlaylistEnd.Size = New System.Drawing.Size(44, 23) + Me.BTNPlaylistEnd.TabIndex = 199 + Me.BTNPlaylistEnd.Text = "End" + Me.BTNPlaylistEnd.UseVisualStyleBackColor = False + ' + 'BTNPlaylistClearAll + ' + Me.BTNPlaylistClearAll.Enabled = False + Me.BTNPlaylistClearAll.Location = New System.Drawing.Point(296, 21) + Me.BTNPlaylistClearAll.Name = "BTNPlaylistClearAll" + Me.BTNPlaylistClearAll.Size = New System.Drawing.Size(78, 23) + Me.BTNPlaylistClearAll.TabIndex = 198 + Me.BTNPlaylistClearAll.Text = "Clear All" + Me.BTNPlaylistClearAll.UseVisualStyleBackColor = True + ' + 'BTNPlaylistSave + ' + Me.BTNPlaylistSave.Enabled = False + Me.BTNPlaylistSave.Location = New System.Drawing.Point(621, 369) + Me.BTNPlaylistSave.Name = "BTNPlaylistSave" + Me.BTNPlaylistSave.Size = New System.Drawing.Size(44, 23) + Me.BTNPlaylistSave.TabIndex = 197 + Me.BTNPlaylistSave.Text = "Save" + Me.BTNPlaylistSave.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(213, 21) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(78, 23) + Me.Button7.TabIndex = 196 + Me.Button7.Text = "Add Random" + Me.Button7.UseVisualStyleBackColor = True + ' + 'WBPlaylist + ' + Me.WBPlaylist.Location = New System.Drawing.Point(38, 54) + Me.WBPlaylist.MinimumSize = New System.Drawing.Size(20, 20) + Me.WBPlaylist.Name = "WBPlaylist" + Me.WBPlaylist.Size = New System.Drawing.Size(336, 292) + Me.WBPlaylist.TabIndex = 195 + ' + 'Label80 + ' + Me.Label80.AutoSize = True + Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label80.Location = New System.Drawing.Point(410, 27) + Me.Label80.Name = "Label80" + Me.Label80.Size = New System.Drawing.Size(47, 13) + Me.Label80.TabIndex = 194 + Me.Label80.Text = "Playlist" + ' + 'LBLPlaylIstLink + ' + Me.LBLPlaylIstLink.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLPlaylIstLink.Enabled = False + Me.LBLPlaylIstLink.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLPlaylIstLink.Location = New System.Drawing.Point(128, 22) + Me.LBLPlaylIstLink.Name = "LBLPlaylIstLink" + Me.LBLPlaylIstLink.Size = New System.Drawing.Size(34, 21) + Me.LBLPlaylIstLink.TabIndex = 193 + Me.LBLPlaylIstLink.Text = "Link" + Me.LBLPlaylIstLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLPlaylistModule + ' + Me.LBLPlaylistModule.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLPlaylistModule.Enabled = False + Me.LBLPlaylistModule.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLPlaylistModule.Location = New System.Drawing.Point(76, 22) + Me.LBLPlaylistModule.Name = "LBLPlaylistModule" + Me.LBLPlaylistModule.Size = New System.Drawing.Size(50, 21) + Me.LBLPlaylistModule.TabIndex = 192 + Me.LBLPlaylistModule.Text = "Module" + Me.LBLPlaylistModule.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLPLaylistStart + ' + Me.LBLPLaylistStart.BackColor = System.Drawing.Color.Green + Me.LBLPLaylistStart.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLPLaylistStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLPLaylistStart.ForeColor = System.Drawing.Color.White + Me.LBLPLaylistStart.Location = New System.Drawing.Point(38, 22) + Me.LBLPLaylistStart.Name = "LBLPLaylistStart" + Me.LBLPLaylistStart.Size = New System.Drawing.Size(36, 21) + Me.LBLPLaylistStart.TabIndex = 190 + Me.LBLPLaylistStart.Text = "Start" + Me.LBLPLaylistStart.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBPlaylist + ' + Me.LBPlaylist.AllowDrop = True + Me.LBPlaylist.FormattingEnabled = True + Me.LBPlaylist.Location = New System.Drawing.Point(413, 56) + Me.LBPlaylist.Name = "LBPlaylist" + Me.LBPlaylist.Size = New System.Drawing.Size(252, 290) + Me.LBPlaylist.TabIndex = 189 + ' + 'TabPage14 + ' + Me.TabPage14.BackColor = System.Drawing.Color.LightGray + Me.TabPage14.Controls.Add(Me.LBLKeywordPreview) + Me.TabPage14.Controls.Add(Me.Label88) + Me.TabPage14.Controls.Add(Me.TBKeywordPreview) + Me.TabPage14.Controls.Add(Me.Button37) + Me.TabPage14.Controls.Add(Me.Button50) + Me.TabPage14.Controls.Add(Me.Button22) + Me.TabPage14.Controls.Add(Me.TBKeyWords) + Me.TabPage14.Controls.Add(Me.LBKeyWords) + Me.TabPage14.Controls.Add(Me.RTBKeyWords) + Me.TabPage14.Location = New System.Drawing.Point(4, 22) + Me.TabPage14.Name = "TabPage14" + Me.TabPage14.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage14.Size = New System.Drawing.Size(700, 411) + Me.TabPage14.TabIndex = 0 + Me.TabPage14.Text = "Keywords" + ' + 'LBLKeywordPreview + ' + Me.LBLKeywordPreview.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLKeywordPreview.Location = New System.Drawing.Point(215, 385) + Me.LBLKeywordPreview.Name = "LBLKeywordPreview" + Me.LBLKeywordPreview.Size = New System.Drawing.Size(416, 23) + Me.LBLKeywordPreview.TabIndex = 174 + Me.LBLKeywordPreview.Text = "Get Preview Here" + Me.LBLKeywordPreview.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label88 + ' + Me.Label88.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Label88.Location = New System.Drawing.Point(3, 358) + Me.Label88.Name = "Label88" + Me.Label88.Size = New System.Drawing.Size(194, 53) + Me.Label88.TabIndex = 173 + Me.Label88.Text = "Preview: Enter any line with a Keyword and press # to generate a random sentence" & + " the domme return." + Me.Label88.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBKeywordPreview + ' + Me.TBKeywordPreview.Location = New System.Drawing.Point(215, 358) + Me.TBKeywordPreview.Name = "TBKeywordPreview" + Me.TBKeywordPreview.Size = New System.Drawing.Size(416, 20) + Me.TBKeywordPreview.TabIndex = 172 + Me.TBKeywordPreview.Text = "Enter Line Here" + Me.TBKeywordPreview.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Button37 + ' + Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button37.Location = New System.Drawing.Point(638, 358) + Me.Button37.Name = "Button37" + Me.Button37.Size = New System.Drawing.Size(47, 50) + Me.Button37.TabIndex = 171 + Me.Button37.Text = "#" + Me.Button37.UseVisualStyleBackColor = True + ' + 'Button50 + ' + Me.Button50.Location = New System.Drawing.Point(6, 10) + Me.Button50.Name = "Button50" + Me.Button50.Size = New System.Drawing.Size(194, 23) + Me.Button50.TabIndex = 169 + Me.Button50.Text = "Refresh and Clear Keyword List" + Me.Button50.UseVisualStyleBackColor = True + ' + 'Button22 + ' + Me.Button22.Location = New System.Drawing.Point(638, 10) + Me.Button22.Name = "Button22" + Me.Button22.Size = New System.Drawing.Size(47, 23) + Me.Button22.TabIndex = 167 + Me.Button22.Text = "Save" + Me.Button22.UseVisualStyleBackColor = True + ' + 'TBKeyWords + ' + Me.TBKeyWords.Location = New System.Drawing.Point(215, 10) + Me.TBKeyWords.Name = "TBKeyWords" + Me.TBKeyWords.Size = New System.Drawing.Size(416, 20) + Me.TBKeyWords.TabIndex = 166 + ' + 'LBKeyWords + ' + Me.LBKeyWords.FormattingEnabled = True + Me.LBKeyWords.Location = New System.Drawing.Point(6, 36) + Me.LBKeyWords.Name = "LBKeyWords" + Me.LBKeyWords.Size = New System.Drawing.Size(194, 316) + Me.LBKeyWords.Sorted = True + Me.LBKeyWords.TabIndex = 165 + ' + 'RTBKeyWords + ' + Me.RTBKeyWords.Location = New System.Drawing.Point(215, 39) + Me.RTBKeyWords.Name = "RTBKeyWords" + Me.RTBKeyWords.Size = New System.Drawing.Size(470, 313) + Me.RTBKeyWords.TabIndex = 164 + Me.RTBKeyWords.Text = "" + ' + 'TabPage24 + ' + Me.TabPage24.BackColor = System.Drawing.Color.LightGray + Me.TabPage24.Controls.Add(Me.Button9) + Me.TabPage24.Controls.Add(Me.RTBResponsesKEY) + Me.TabPage24.Controls.Add(Me.Button4) + Me.TabPage24.Controls.Add(Me.Button5) + Me.TabPage24.Controls.Add(Me.TBResponses) + Me.TabPage24.Controls.Add(Me.LBResponses) + Me.TabPage24.Controls.Add(Me.RTBResponses) + Me.TabPage24.Location = New System.Drawing.Point(4, 22) + Me.TabPage24.Name = "TabPage24" + Me.TabPage24.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage24.Size = New System.Drawing.Size(700, 411) + Me.TabPage24.TabIndex = 3 + Me.TabPage24.Text = "Responses" + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(217, 10) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(215, 23) + Me.Button9.TabIndex = 176 + Me.Button9.Text = "Response Template" + Me.Button9.UseVisualStyleBackColor = True + ' + 'RTBResponsesKEY + ' + Me.RTBResponsesKEY.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.RTBResponsesKEY.Location = New System.Drawing.Point(217, 36) + Me.RTBResponsesKEY.Name = "RTBResponsesKEY" + Me.RTBResponsesKEY.Size = New System.Drawing.Size(468, 40) + Me.RTBResponsesKEY.TabIndex = 175 + Me.RTBResponsesKEY.Text = "" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(6, 10) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(194, 23) + Me.Button4.TabIndex = 174 + Me.Button4.Text = "Refresh and Clear Response List" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(638, 10) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(47, 23) + Me.Button5.TabIndex = 173 + Me.Button5.Text = "Save" + Me.Button5.UseVisualStyleBackColor = True + ' + 'TBResponses + ' + Me.TBResponses.Location = New System.Drawing.Point(438, 10) + Me.TBResponses.Name = "TBResponses" + Me.TBResponses.Size = New System.Drawing.Size(194, 20) + Me.TBResponses.TabIndex = 172 + ' + 'LBResponses + ' + Me.LBResponses.FormattingEnabled = True + Me.LBResponses.Location = New System.Drawing.Point(6, 36) + Me.LBResponses.Name = "LBResponses" + Me.LBResponses.Size = New System.Drawing.Size(194, 355) + Me.LBResponses.Sorted = True + Me.LBResponses.TabIndex = 171 + ' + 'RTBResponses + ' + Me.RTBResponses.Location = New System.Drawing.Point(217, 82) + Me.RTBResponses.Name = "RTBResponses" + Me.RTBResponses.Size = New System.Drawing.Size(468, 309) + Me.RTBResponses.TabIndex = 170 + Me.RTBResponses.Text = "" + ' + 'TabPage8 + ' + Me.TabPage8.BackColor = System.Drawing.Color.LightGray + Me.TabPage8.Controls.Add(Me.RTBVideoMod) + Me.TabPage8.Controls.Add(Me.GroupBox29) + Me.TabPage8.Controls.Add(Me.BTNVideoModClear) + Me.TabPage8.Controls.Add(Me.GroupBox28) + Me.TabPage8.Controls.Add(Me.BTNVideoModLoad) + Me.TabPage8.Controls.Add(Me.GroupBox30) + Me.TabPage8.Controls.Add(Me.BTNVideoModSave) + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(700, 411) + Me.TabPage8.TabIndex = 2 + Me.TabPage8.Text = "Video" + ' + 'RTBVideoMod + ' + Me.RTBVideoMod.Enabled = False + Me.RTBVideoMod.Location = New System.Drawing.Point(167, 17) + Me.RTBVideoMod.Name = "RTBVideoMod" + Me.RTBVideoMod.Size = New System.Drawing.Size(525, 286) + Me.RTBVideoMod.TabIndex = 150 + Me.RTBVideoMod.Text = "" + ' + 'GroupBox29 + ' + Me.GroupBox29.BackColor = System.Drawing.Color.LightGray + Me.GroupBox29.Controls.Add(Me.Label51) + Me.GroupBox29.ForeColor = System.Drawing.Color.Black + Me.GroupBox29.Location = New System.Drawing.Point(6, 309) + Me.GroupBox29.Name = "GroupBox29" + Me.GroupBox29.Size = New System.Drawing.Size(692, 92) + Me.GroupBox29.TabIndex = 66 + Me.GroupBox29.TabStop = False + Me.GroupBox29.Text = "Description" + ' + 'Label51 + ' + Me.Label51.BackColor = System.Drawing.Color.Transparent + Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label51.ForeColor = System.Drawing.Color.Black + Me.Label51.Location = New System.Drawing.Point(6, 16) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(680, 73) + Me.Label51.TabIndex = 62 + Me.Label51.Text = resources.GetString("Label51.Text") + Me.Label51.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNVideoModClear + ' + Me.BTNVideoModClear.Enabled = False + Me.BTNVideoModClear.Location = New System.Drawing.Point(6, 227) + Me.BTNVideoModClear.Name = "BTNVideoModClear" + Me.BTNVideoModClear.Size = New System.Drawing.Size(155, 35) + Me.BTNVideoModClear.TabIndex = 153 + Me.BTNVideoModClear.Text = "Clear Text and Select New Video Tease Type/Script" + Me.BTNVideoModClear.UseVisualStyleBackColor = True + ' + 'GroupBox28 + ' + Me.GroupBox28.Controls.Add(Me.CBVTType) + Me.GroupBox28.Location = New System.Drawing.Point(6, 8) + Me.GroupBox28.Name = "GroupBox28" + Me.GroupBox28.Size = New System.Drawing.Size(155, 46) + Me.GroupBox28.TabIndex = 148 + Me.GroupBox28.TabStop = False + Me.GroupBox28.Text = "Video Tease Type" + ' + 'CBVTType + ' + Me.CBVTType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.CBVTType.FormattingEnabled = True + Me.CBVTType.Items.AddRange(New Object() {"Avoid The Edge", "Censorship Sucks", "Red Light Green Light"}) + Me.CBVTType.Location = New System.Drawing.Point(9, 15) + Me.CBVTType.Name = "CBVTType" + Me.CBVTType.Size = New System.Drawing.Size(137, 21) + Me.CBVTType.TabIndex = 171 + ' + 'BTNVideoModLoad + ' + Me.BTNVideoModLoad.Location = New System.Drawing.Point(6, 176) + Me.BTNVideoModLoad.Name = "BTNVideoModLoad" + Me.BTNVideoModLoad.Size = New System.Drawing.Size(155, 35) + Me.BTNVideoModLoad.TabIndex = 152 + Me.BTNVideoModLoad.Text = "Load Script" + Me.BTNVideoModLoad.UseVisualStyleBackColor = True + ' + 'GroupBox30 + ' + Me.GroupBox30.Controls.Add(Me.LBVidScript) + Me.GroupBox30.Location = New System.Drawing.Point(6, 60) + Me.GroupBox30.Name = "GroupBox30" + Me.GroupBox30.Size = New System.Drawing.Size(155, 100) + Me.GroupBox30.TabIndex = 149 + Me.GroupBox30.TabStop = False + Me.GroupBox30.Text = "Script" + ' + 'LBVidScript + ' + Me.LBVidScript.FormattingEnabled = True + Me.LBVidScript.Location = New System.Drawing.Point(9, 20) + Me.LBVidScript.Name = "LBVidScript" + Me.LBVidScript.Size = New System.Drawing.Size(137, 69) + Me.LBVidScript.TabIndex = 0 + ' + 'BTNVideoModSave + ' + Me.BTNVideoModSave.Enabled = False + Me.BTNVideoModSave.Location = New System.Drawing.Point(6, 268) + Me.BTNVideoModSave.Name = "BTNVideoModSave" + Me.BTNVideoModSave.Size = New System.Drawing.Size(155, 35) + Me.BTNVideoModSave.TabIndex = 151 + Me.BTNVideoModSave.Text = "Save Changes" + Me.BTNVideoModSave.UseVisualStyleBackColor = True + ' + 'TabPage15 + ' + Me.TabPage15.BackColor = System.Drawing.Color.LightGray + Me.TabPage15.Controls.Add(Me.Label62) + Me.TabPage15.Controls.Add(Me.Label61) + Me.TabPage15.Controls.Add(Me.Label57) + Me.TabPage15.Controls.Add(Me.Label58) + Me.TabPage15.Controls.Add(Me.Label60) + Me.TabPage15.Controls.Add(Me.TBGlitModFileName) + Me.TabPage15.Controls.Add(Me.GroupBox34) + Me.TabPage15.Controls.Add(Me.RTBGlitModDommePost) + Me.TabPage15.Controls.Add(Me.Button26) + Me.TabPage15.Controls.Add(Me.Label56) + Me.TabPage15.Controls.Add(Me.RTBGlitModResponses) + Me.TabPage15.Controls.Add(Me.LBGlitModScripts) + Me.TabPage15.Controls.Add(Me.LBLGlitModScriptCount) + Me.TabPage15.Controls.Add(Me.LBLGlitModDomType) + Me.TabPage15.Controls.Add(Me.Button29) + Me.TabPage15.Controls.Add(Me.CBGlitModType) + Me.TabPage15.Controls.Add(Me.Label59) + Me.TabPage15.Controls.Add(Me.Label50) + Me.TabPage15.Location = New System.Drawing.Point(4, 22) + Me.TabPage15.Name = "TabPage15" + Me.TabPage15.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage15.Size = New System.Drawing.Size(700, 411) + Me.TabPage15.TabIndex = 1 + Me.TabPage15.Text = "Glitter" + ' + 'Label62 + ' + Me.Label62.Location = New System.Drawing.Point(255, 169) + Me.Label62.Name = "Label62" + Me.Label62.Size = New System.Drawing.Size(59, 51) + Me.Label62.TabIndex = 177 + Me.Label62.Text = "@Cruel @Angry @Custom2" + Me.Label62.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label61 + ' + Me.Label61.Location = New System.Drawing.Point(194, 169) + Me.Label61.Name = "Label61" + Me.Label61.Size = New System.Drawing.Size(59, 51) + Me.Label61.TabIndex = 176 + Me.Label61.Text = "@Bratty @Caring @Custom1" + Me.Label61.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label57 + ' + Me.Label57.Location = New System.Drawing.Point(194, 11) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(120, 23) + Me.Label57.TabIndex = 160 + Me.Label57.Text = "File Name" + Me.Label57.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label58 + ' + Me.Label58.Location = New System.Drawing.Point(350, 11) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(326, 23) + Me.Label58.TabIndex = 161 + Me.Label58.Text = "Domme's Post" + Me.Label58.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label60 + ' + Me.Label60.Location = New System.Drawing.Point(194, 139) + Me.Label60.Name = "Label60" + Me.Label60.Size = New System.Drawing.Size(120, 30) + Me.Label60.TabIndex = 175 + Me.Label60.Text = "Tease Responses Need 3 of Each:" + Me.Label60.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TBGlitModFileName + ' + Me.TBGlitModFileName.Location = New System.Drawing.Point(194, 36) + Me.TBGlitModFileName.Name = "TBGlitModFileName" + Me.TBGlitModFileName.Size = New System.Drawing.Size(120, 20) + Me.TBGlitModFileName.TabIndex = 158 + ' + 'GroupBox34 + ' + Me.GroupBox34.BackColor = System.Drawing.Color.LightGray + Me.GroupBox34.Controls.Add(Me.Label52) + Me.GroupBox34.ForeColor = System.Drawing.Color.Black + Me.GroupBox34.Location = New System.Drawing.Point(8, 296) + Me.GroupBox34.Name = "GroupBox34" + Me.GroupBox34.Size = New System.Drawing.Size(683, 107) + Me.GroupBox34.TabIndex = 66 + Me.GroupBox34.TabStop = False + Me.GroupBox34.Text = "Description" + ' + 'Label52 + ' + Me.Label52.BackColor = System.Drawing.Color.Transparent + Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label52.ForeColor = System.Drawing.Color.Black + Me.Label52.Location = New System.Drawing.Point(6, 16) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(670, 88) + Me.Label52.TabIndex = 62 + Me.Label52.Text = resources.GetString("Label52.Text") + Me.Label52.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'RTBGlitModDommePost + ' + Me.RTBGlitModDommePost.Location = New System.Drawing.Point(350, 36) + Me.RTBGlitModDommePost.Name = "RTBGlitModDommePost" + Me.RTBGlitModDommePost.Size = New System.Drawing.Size(326, 41) + Me.RTBGlitModDommePost.TabIndex = 162 + Me.RTBGlitModDommePost.Text = "" + ' + 'Button26 + ' + Me.Button26.Location = New System.Drawing.Point(194, 239) + Me.Button26.Name = "Button26" + Me.Button26.Size = New System.Drawing.Size(120, 23) + Me.Button26.TabIndex = 174 + Me.Button26.Text = "Clear Fields" + Me.Button26.UseVisualStyleBackColor = True + ' + 'Label56 + ' + Me.Label56.Location = New System.Drawing.Point(350, 80) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(324, 23) + Me.Label56.TabIndex = 156 + Me.Label56.Text = "Responses (Minimum 3)" + Me.Label56.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'RTBGlitModResponses + ' + Me.RTBGlitModResponses.Location = New System.Drawing.Point(350, 106) + Me.RTBGlitModResponses.Name = "RTBGlitModResponses" + Me.RTBGlitModResponses.Size = New System.Drawing.Size(326, 184) + Me.RTBGlitModResponses.TabIndex = 150 + Me.RTBGlitModResponses.Text = "" + ' + 'LBGlitModScripts + ' + Me.LBGlitModScripts.FormattingEnabled = True + Me.LBGlitModScripts.Location = New System.Drawing.Point(27, 106) + Me.LBGlitModScripts.Name = "LBGlitModScripts" + Me.LBGlitModScripts.Size = New System.Drawing.Size(136, 186) + Me.LBGlitModScripts.TabIndex = 163 + ' + 'LBLGlitModScriptCount + ' + Me.LBLGlitModScriptCount.Location = New System.Drawing.Point(27, 80) + Me.LBLGlitModScriptCount.Name = "LBLGlitModScriptCount" + Me.LBLGlitModScriptCount.Size = New System.Drawing.Size(136, 23) + Me.LBLGlitModScriptCount.TabIndex = 173 + Me.LBLGlitModScriptCount.Text = "0 Trivia Glitter Scripts Found" + Me.LBLGlitModScriptCount.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLGlitModDomType + ' + Me.LBLGlitModDomType.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLGlitModDomType.Location = New System.Drawing.Point(191, 103) + Me.LBLGlitModDomType.Name = "LBLGlitModDomType" + Me.LBLGlitModDomType.Size = New System.Drawing.Size(123, 23) + Me.LBLGlitModDomType.TabIndex = 155 + Me.LBLGlitModDomType.Text = "Total Brat" + Me.LBLGlitModDomType.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Button29 + ' + Me.Button29.Location = New System.Drawing.Point(194, 268) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(120, 23) + Me.Button29.TabIndex = 151 + Me.Button29.Text = "Save Glitter File" + Me.Button29.UseVisualStyleBackColor = True + ' + 'CBGlitModType + ' + Me.CBGlitModType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.CBGlitModType.FormattingEnabled = True + Me.CBGlitModType.Items.AddRange(New Object() {"Tease", "Egotist", "Trivia", "Daily", "Custom 1", "Custom 2"}) + Me.CBGlitModType.Location = New System.Drawing.Point(27, 35) + Me.CBGlitModType.Name = "CBGlitModType" + Me.CBGlitModType.Size = New System.Drawing.Size(136, 21) + Me.CBGlitModType.TabIndex = 171 + ' + 'Label59 + ' + Me.Label59.Location = New System.Drawing.Point(33, 11) + Me.Label59.Name = "Label59" + Me.Label59.Size = New System.Drawing.Size(130, 23) + Me.Label59.TabIndex = 172 + Me.Label59.Text = "Glitter Post Type" + Me.Label59.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label50 + ' + Me.Label50.Location = New System.Drawing.Point(191, 80) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(123, 23) + Me.Label50.TabIndex = 154 + Me.Label50.Text = "Current Domme Personality:" + Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage25 + ' + Me.TabPage25.BackColor = System.Drawing.Color.Silver + Me.TabPage25.Controls.Add(Me.Panel11) + Me.TabPage25.Location = New System.Drawing.Point(4, 22) + Me.TabPage25.Name = "TabPage25" + Me.TabPage25.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage25.Size = New System.Drawing.Size(720, 448) + Me.TabPage25.TabIndex = 18 + Me.TabPage25.Text = "Misc" + ' + 'Panel11 + ' + Me.Panel11.BackColor = System.Drawing.Color.LightGray + Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel11.Controls.Add(Me.GroupBox62) + Me.Panel11.Controls.Add(Me.GroupBox33) + Me.Panel11.Controls.Add(Me.GroupBox8) + Me.Panel11.Controls.Add(Me.GroupBox27) + Me.Panel11.Controls.Add(Me.GroupBox20) + Me.Panel11.Controls.Add(Me.GroupBox15) + Me.Panel11.Controls.Add(Me.PictureBox9) + Me.Panel11.Controls.Add(Me.Label148) + Me.Panel11.Location = New System.Drawing.Point(6, 6) + Me.Panel11.Name = "Panel11" + Me.Panel11.Size = New System.Drawing.Size(708, 437) + Me.Panel11.TabIndex = 92 + ' + 'GroupBox62 + ' + Me.GroupBox62.Controls.Add(Me.RBGerman) + Me.GroupBox62.Controls.Add(Me.RBEnglish) + Me.GroupBox62.Location = New System.Drawing.Point(420, 155) + Me.GroupBox62.Name = "GroupBox62" + Me.GroupBox62.Size = New System.Drawing.Size(277, 56) + Me.GroupBox62.TabIndex = 178 + Me.GroupBox62.TabStop = False + Me.GroupBox62.Text = "Language" + ' + 'RBGerman + ' + Me.RBGerman.AutoSize = True + Me.RBGerman.Location = New System.Drawing.Point(180, 20) + Me.RBGerman.Name = "RBGerman" + Me.RBGerman.Size = New System.Drawing.Size(65, 17) + Me.RBGerman.TabIndex = 1 + Me.RBGerman.Text = "Deutsch" + Me.RBGerman.UseVisualStyleBackColor = True + ' + 'RBEnglish + ' + Me.RBEnglish.AutoSize = True + Me.RBEnglish.Checked = True + Me.RBEnglish.Location = New System.Drawing.Point(36, 19) + Me.RBEnglish.Name = "RBEnglish" + Me.RBEnglish.Size = New System.Drawing.Size(59, 17) + Me.RBEnglish.TabIndex = 0 + Me.RBEnglish.TabStop = True + Me.RBEnglish.Text = "English" + Me.RBEnglish.UseVisualStyleBackColor = True + ' + 'GroupBox33 + ' + Me.GroupBox33.Controls.Add(Me.BTNOfflineMode) + Me.GroupBox33.Controls.Add(Me.LBLOfflineMode) + Me.GroupBox33.Controls.Add(Me.Label140) + Me.GroupBox33.Controls.Add(Me.Button11) + Me.GroupBox33.Controls.Add(Me.LBLChastityState) + Me.GroupBox33.Controls.Add(Me.Label120) + Me.GroupBox33.Location = New System.Drawing.Point(420, 321) + Me.GroupBox33.Name = "GroupBox33" + Me.GroupBox33.Size = New System.Drawing.Size(277, 106) + Me.GroupBox33.TabIndex = 177 + Me.GroupBox33.TabStop = False + Me.GroupBox33.Text = "System States" + ' + 'BTNOfflineMode + ' + Me.BTNOfflineMode.Location = New System.Drawing.Point(161, 70) + Me.BTNOfflineMode.Name = "BTNOfflineMode" + Me.BTNOfflineMode.Size = New System.Drawing.Size(99, 23) + Me.BTNOfflineMode.TabIndex = 180 + Me.BTNOfflineMode.Text = "Toggle" + Me.BTNOfflineMode.UseVisualStyleBackColor = True + ' + 'LBLOfflineMode + ' + Me.LBLOfflineMode.BackColor = System.Drawing.Color.LightGray + Me.LBLOfflineMode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLOfflineMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLOfflineMode.ForeColor = System.Drawing.Color.Red + Me.LBLOfflineMode.Location = New System.Drawing.Point(120, 70) + Me.LBLOfflineMode.Name = "LBLOfflineMode" + Me.LBLOfflineMode.Size = New System.Drawing.Size(37, 23) + Me.LBLOfflineMode.TabIndex = 179 + Me.LBLOfflineMode.Text = "OFF" + Me.LBLOfflineMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label140 + ' + Me.Label140.BackColor = System.Drawing.Color.LightGray + Me.Label140.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Label140.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label140.Location = New System.Drawing.Point(17, 70) + Me.Label140.Name = "Label140" + Me.Label140.Size = New System.Drawing.Size(98, 23) + Me.Label140.TabIndex = 178 + Me.Label140.Text = "OFFLINE MODE" + Me.Label140.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(161, 33) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(99, 23) + Me.Button11.TabIndex = 177 + Me.Button11.Text = "Toggle" + Me.Button11.UseVisualStyleBackColor = True + ' + 'LBLChastityState + ' + Me.LBLChastityState.BackColor = System.Drawing.Color.LightGray + Me.LBLChastityState.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLChastityState.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLChastityState.ForeColor = System.Drawing.Color.Red + Me.LBLChastityState.Location = New System.Drawing.Point(120, 33) + Me.LBLChastityState.Name = "LBLChastityState" + Me.LBLChastityState.Size = New System.Drawing.Size(37, 23) + Me.LBLChastityState.TabIndex = 3 + Me.LBLChastityState.Text = "OFF" + Me.LBLChastityState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label120 + ' + Me.Label120.BackColor = System.Drawing.Color.LightGray + Me.Label120.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Label120.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label120.Location = New System.Drawing.Point(17, 33) + Me.Label120.Name = "Label120" + Me.Label120.Size = New System.Drawing.Size(98, 23) + Me.Label120.TabIndex = 2 + Me.Label120.Text = "CHASTITY" + Me.Label120.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.CBOutputErrors) + Me.GroupBox8.Location = New System.Drawing.Point(420, 214) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(279, 47) + Me.GroupBox8.TabIndex = 179 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "System Information" + ' + 'CBOutputErrors + ' + Me.CBOutputErrors.AutoSize = True + Me.CBOutputErrors.Checked = True + Me.CBOutputErrors.CheckState = System.Windows.Forms.CheckState.Checked + Me.CBOutputErrors.ForeColor = System.Drawing.Color.Black + Me.CBOutputErrors.Location = New System.Drawing.Point(17, 19) + Me.CBOutputErrors.Name = "CBOutputErrors" + Me.CBOutputErrors.Size = New System.Drawing.Size(213, 17) + Me.CBOutputErrors.TabIndex = 29 + Me.CBOutputErrors.TabStop = False + Me.CBOutputErrors.Text = "Output Error Messages to Chat Window" + Me.CBOutputErrors.UseVisualStyleBackColor = True + ' + 'GroupBox27 + ' + Me.GroupBox27.Controls.Add(Me.Button6) + Me.GroupBox27.Controls.Add(Me.LBLSesSpace) + Me.GroupBox27.Controls.Add(Me.Button3) + Me.GroupBox27.Controls.Add(Me.LBLSesFiles) + Me.GroupBox27.Controls.Add(Me.Label125) + Me.GroupBox27.Controls.Add(Me.Label124) + Me.GroupBox27.Location = New System.Drawing.Point(420, 32) + Me.GroupBox27.Name = "GroupBox27" + Me.GroupBox27.Size = New System.Drawing.Size(279, 117) + Me.GroupBox27.TabIndex = 176 + Me.GroupBox27.TabStop = False + Me.GroupBox27.Text = "Session Images" + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(143, 76) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(117, 23) + Me.Button6.TabIndex = 176 + Me.Button6.Text = "Delete All Files" + Me.Button6.UseVisualStyleBackColor = True + ' + 'LBLSesSpace + ' + Me.LBLSesSpace.Location = New System.Drawing.Point(149, 53) + Me.LBLSesSpace.Name = "LBLSesSpace" + Me.LBLSesSpace.Size = New System.Drawing.Size(124, 13) + Me.LBLSesSpace.TabIndex = 3 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(20, 76) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(117, 23) + Me.Button3.TabIndex = 175 + Me.Button3.Text = "Open Folder" + Me.Button3.UseVisualStyleBackColor = True + ' + 'LBLSesFiles + ' + Me.LBLSesFiles.Location = New System.Drawing.Point(149, 24) + Me.LBLSesFiles.Name = "LBLSesFiles" + Me.LBLSesFiles.Size = New System.Drawing.Size(124, 13) + Me.LBLSesFiles.TabIndex = 2 + ' + 'Label125 + ' + Me.Label125.AutoSize = True + Me.Label125.Location = New System.Drawing.Point(17, 53) + Me.Label125.Name = "Label125" + Me.Label125.Size = New System.Drawing.Size(120, 13) + Me.Label125.TabIndex = 1 + Me.Label125.Text = "Total Disk Space Used:" + ' + 'Label124 + ' + Me.Label124.AutoSize = True + Me.Label124.Location = New System.Drawing.Point(17, 24) + Me.Label124.Name = "Label124" + Me.Label124.Size = New System.Drawing.Size(126, 13) + Me.Label124.TabIndex = 0 + Me.Label124.Text = "Number of Files in Folder:" + ' + 'GroupBox20 + ' + Me.GroupBox20.Controls.Add(Me.BTNURLFileReplace) + Me.GroupBox20.Controls.Add(Me.Label87) + Me.GroupBox20.Controls.Add(Me.TBURLFileWith) + Me.GroupBox20.Controls.Add(Me.Label118) + Me.GroupBox20.Controls.Add(Me.Label85) + Me.GroupBox20.Controls.Add(Me.TBURLFileReplace) + Me.GroupBox20.Controls.Add(Me.Label53) + Me.GroupBox20.Controls.Add(Me.Label8) + Me.GroupBox20.Controls.Add(Me.Button1) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceScripts) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRefresh) + Me.GroupBox20.Controls.Add(Me.Label117) + Me.GroupBox20.Controls.Add(Me.Label116) + Me.GroupBox20.Controls.Add(Me.PBCurrent) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceCancel) + Me.GroupBox20.Controls.Add(Me.PBMaintenance) + Me.GroupBox20.Controls.Add(Me.LBLMaintenance) + Me.GroupBox20.Controls.Add(Me.BTNMaintenanceRebuild) + Me.GroupBox20.Location = New System.Drawing.Point(6, 32) + Me.GroupBox20.Name = "GroupBox20" + Me.GroupBox20.Size = New System.Drawing.Size(408, 283) + Me.GroupBox20.TabIndex = 174 + Me.GroupBox20.TabStop = False + Me.GroupBox20.Text = "Maintenance" + ' + 'BTNURLFileReplace + ' + Me.BTNURLFileReplace.Location = New System.Drawing.Point(270, 249) + Me.BTNURLFileReplace.Name = "BTNURLFileReplace" + Me.BTNURLFileReplace.Size = New System.Drawing.Size(121, 23) + Me.BTNURLFileReplace.TabIndex = 184 + Me.BTNURLFileReplace.Text = "Replace" + Me.BTNURLFileReplace.UseVisualStyleBackColor = True + ' + 'Label87 + ' + Me.Label87.AutoSize = True + Me.Label87.Location = New System.Drawing.Point(206, 254) + Me.Label87.Name = "Label87" + Me.Label87.Size = New System.Drawing.Size(38, 13) + Me.Label87.TabIndex = 183 + Me.Label87.Text = ".media" + ' + 'TBURLFileWith + ' + Me.TBURLFileWith.Location = New System.Drawing.Point(177, 251) + Me.TBURLFileWith.Name = "TBURLFileWith" + Me.TBURLFileWith.Size = New System.Drawing.Size(30, 20) + Me.TBURLFileWith.TabIndex = 182 + ' + 'Label118 + ' + Me.Label118.AutoSize = True + Me.Label118.Location = New System.Drawing.Point(142, 254) + Me.Label118.Name = "Label118" + Me.Label118.Size = New System.Drawing.Size(29, 13) + Me.Label118.TabIndex = 181 + Me.Label118.Text = "With" + ' + 'Label85 + ' + Me.Label85.AutoSize = True + Me.Label85.Location = New System.Drawing.Point(98, 254) + Me.Label85.Name = "Label85" + Me.Label85.Size = New System.Drawing.Size(38, 13) + Me.Label85.TabIndex = 180 + Me.Label85.Text = ".media" + ' + 'TBURLFileReplace + ' + Me.TBURLFileReplace.Location = New System.Drawing.Point(69, 251) + Me.TBURLFileReplace.Name = "TBURLFileReplace" + Me.TBURLFileReplace.Size = New System.Drawing.Size(30, 20) + Me.TBURLFileReplace.TabIndex = 179 + ' + 'Label53 + ' + Me.Label53.AutoSize = True + Me.Label53.Location = New System.Drawing.Point(16, 254) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(47, 13) + Me.Label53.TabIndex = 178 + Me.Label53.Text = "Replace" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(16, 232) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(130, 13) + Me.Label8.TabIndex = 177 + Me.Label8.Text = "Change URL File Servers " + ' + 'Button1 + ' + Me.Button1.Enabled = False + Me.Button1.Location = New System.Drawing.Point(270, 19) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(121, 23) + Me.Button1.TabIndex = 176 + Me.Button1.Text = "Reset Settings" + Me.Button1.UseVisualStyleBackColor = True + ' + 'BTNMaintenanceScripts + ' + Me.BTNMaintenanceScripts.Location = New System.Drawing.Point(142, 19) + Me.BTNMaintenanceScripts.Name = "BTNMaintenanceScripts" + Me.BTNMaintenanceScripts.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceScripts.TabIndex = 175 + Me.BTNMaintenanceScripts.Text = "Audit Scripts" + Me.BTNMaintenanceScripts.UseVisualStyleBackColor = True + ' + 'BTNMaintenanceRefresh + ' + Me.BTNMaintenanceRefresh.Location = New System.Drawing.Point(15, 19) + Me.BTNMaintenanceRefresh.Name = "BTNMaintenanceRefresh" + Me.BTNMaintenanceRefresh.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceRefresh.TabIndex = 7 + Me.BTNMaintenanceRefresh.Text = "Refresh URL Files" + Me.BTNMaintenanceRefresh.UseVisualStyleBackColor = True + ' + 'Label117 + ' + Me.Label117.AutoSize = True + Me.Label117.Location = New System.Drawing.Point(15, 182) + Me.Label117.Name = "Label117" + Me.Label117.Size = New System.Drawing.Size(84, 13) + Me.Label117.TabIndex = 6 + Me.Label117.Text = "Overall Progress" + ' + 'Label116 + ' + Me.Label116.AutoSize = True + Me.Label116.Location = New System.Drawing.Point(15, 140) + Me.Label116.Name = "Label116" + Me.Label116.Size = New System.Drawing.Size(85, 13) + Me.Label116.TabIndex = 5 + Me.Label116.Text = "Current Progress" + ' + 'PBCurrent + ' + Me.PBCurrent.Location = New System.Drawing.Point(15, 156) + Me.PBCurrent.Name = "PBCurrent" + Me.PBCurrent.Size = New System.Drawing.Size(376, 23) + Me.PBCurrent.TabIndex = 4 + ' + 'BTNMaintenanceCancel + ' + Me.BTNMaintenanceCancel.Enabled = False + Me.BTNMaintenanceCancel.Location = New System.Drawing.Point(270, 48) + Me.BTNMaintenanceCancel.Name = "BTNMaintenanceCancel" + Me.BTNMaintenanceCancel.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceCancel.TabIndex = 3 + Me.BTNMaintenanceCancel.Text = "Cancel" + Me.BTNMaintenanceCancel.UseVisualStyleBackColor = True + ' + 'PBMaintenance + ' + Me.PBMaintenance.Location = New System.Drawing.Point(15, 197) + Me.PBMaintenance.Name = "PBMaintenance" + Me.PBMaintenance.Size = New System.Drawing.Size(376, 23) + Me.PBMaintenance.TabIndex = 2 + ' + 'LBLMaintenance + ' + Me.LBLMaintenance.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLMaintenance.Location = New System.Drawing.Point(15, 76) + Me.LBLMaintenance.Name = "LBLMaintenance" + Me.LBLMaintenance.Size = New System.Drawing.Size(376, 61) + Me.LBLMaintenance.TabIndex = 1 + Me.LBLMaintenance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNMaintenanceRebuild + ' + Me.BTNMaintenanceRebuild.Location = New System.Drawing.Point(15, 48) + Me.BTNMaintenanceRebuild.Name = "BTNMaintenanceRebuild" + Me.BTNMaintenanceRebuild.Size = New System.Drawing.Size(121, 23) + Me.BTNMaintenanceRebuild.TabIndex = 0 + Me.BTNMaintenanceRebuild.Text = "Rebuild URL Files" + Me.BTNMaintenanceRebuild.UseVisualStyleBackColor = True + ' + 'GroupBox15 + ' + Me.GroupBox15.Controls.Add(Me.Label115) + Me.GroupBox15.Controls.Add(Me.TBWebStop) + Me.GroupBox15.Controls.Add(Me.TBWebStart) + Me.GroupBox15.Controls.Add(Me.Label114) + Me.GroupBox15.Controls.Add(Me.WebToy) + Me.GroupBox15.Location = New System.Drawing.Point(6, 321) + Me.GroupBox15.Name = "GroupBox15" + Me.GroupBox15.Size = New System.Drawing.Size(408, 106) + Me.GroupBox15.TabIndex = 173 + Me.GroupBox15.TabStop = False + Me.GroupBox15.Text = "Web-Controlled Sex Toy" + ' + 'Label115 + ' + Me.Label115.AutoSize = True + Me.Label115.Location = New System.Drawing.Point(12, 58) + Me.Label115.Name = "Label115" + Me.Label115.Size = New System.Drawing.Size(54, 13) + Me.Label115.TabIndex = 171 + Me.Label115.Text = "Stop URL" + ' + 'TBWebStop + ' + Me.TBWebStop.Location = New System.Drawing.Point(10, 72) + Me.TBWebStop.Name = "TBWebStop" + Me.TBWebStop.Size = New System.Drawing.Size(330, 20) + Me.TBWebStop.TabIndex = 170 + ' + 'TBWebStart + ' + Me.TBWebStart.Location = New System.Drawing.Point(10, 33) + Me.TBWebStart.Name = "TBWebStart" + Me.TBWebStart.Size = New System.Drawing.Size(330, 20) + Me.TBWebStart.TabIndex = 167 + ' + 'Label114 + ' + Me.Label114.AutoSize = True + Me.Label114.Location = New System.Drawing.Point(12, 17) + Me.Label114.Name = "Label114" + Me.Label114.Size = New System.Drawing.Size(54, 13) + Me.Label114.TabIndex = 168 + Me.Label114.Text = "Start URL" + ' + 'WebToy + ' + Me.WebToy.Location = New System.Drawing.Point(346, 33) + Me.WebToy.MinimumSize = New System.Drawing.Size(20, 20) + Me.WebToy.Name = "WebToy" + Me.WebToy.Size = New System.Drawing.Size(45, 59) + Me.WebToy.TabIndex = 172 + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.LightGray + Me.PictureBox9.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_small + Me.PictureBox9.Location = New System.Drawing.Point(9, 6) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(160, 19) + Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.PictureBox9.TabIndex = 166 + Me.PictureBox9.TabStop = False + ' + 'Label148 + ' + Me.Label148.BackColor = System.Drawing.Color.Transparent + Me.Label148.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label148.ForeColor = System.Drawing.Color.Black + Me.Label148.Location = New System.Drawing.Point(7, 6) + Me.Label148.Name = "Label148" + Me.Label148.Size = New System.Drawing.Size(692, 21) + Me.Label148.TabIndex = 48 + Me.Label148.Text = "Miscellaneous Settings" + Me.Label148.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage28 + ' + Me.TabPage28.BackColor = System.Drawing.Color.Silver + Me.TabPage28.Controls.Add(Me.TabControl3) + Me.TabPage28.Location = New System.Drawing.Point(4, 22) + Me.TabPage28.Name = "TabPage28" + Me.TabPage28.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage28.Size = New System.Drawing.Size(720, 448) + Me.TabPage28.TabIndex = 20 + Me.TabPage28.Text = "Debug" + ' + 'TabControl3 + ' + Me.TabControl3.Controls.Add(Me.TabPage29) + Me.TabControl3.Controls.Add(Me.TabPage30) + Me.TabControl3.Location = New System.Drawing.Point(6, 6) + Me.TabControl3.Name = "TabControl3" + Me.TabControl3.SelectedIndex = 0 + Me.TabControl3.Size = New System.Drawing.Size(708, 437) + Me.TabControl3.TabIndex = 0 + ' + 'TabPage29 + ' + Me.TabPage29.BackColor = System.Drawing.Color.LightGray + Me.TabPage29.Controls.Add(Me.Label143) + Me.TabPage29.Controls.Add(Me.LBLDebugScriptTime) + Me.TabPage29.Controls.Add(Me.BTNDebugHoldEdgeTimer) + Me.TabPage29.Controls.Add(Me.GroupBox26) + Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTauntTimer) + Me.TabPage29.Controls.Add(Me.LBLDebugHoldEdgeTime) + Me.TabPage29.Controls.Add(Me.Label145) + Me.TabPage29.Controls.Add(Me.BTNDebugStrokeTime) + Me.TabPage29.Controls.Add(Me.BTNDebugEdgeTauntTimer) + Me.TabPage29.Controls.Add(Me.LBLDebugTeaseTime) + Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTime) + Me.TabPage29.Controls.Add(Me.LBLDebugEdgeTauntTime) + Me.TabPage29.Controls.Add(Me.BTNDebugTeaseTimer) + Me.TabPage29.Controls.Add(Me.Label142) + Me.TabPage29.Controls.Add(Me.Label150) + Me.TabPage29.Controls.Add(Me.Label152) + Me.TabPage29.Controls.Add(Me.LBLDebugStrokeTauntTime) + Me.TabPage29.Controls.Add(Me.Label147) + Me.TabPage29.Location = New System.Drawing.Point(4, 22) + Me.TabPage29.Name = "TabPage29" + Me.TabPage29.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage29.Size = New System.Drawing.Size(700, 411) + Me.TabPage29.TabIndex = 0 + Me.TabPage29.Text = "TabPage29" + ' + 'Label143 + ' + Me.Label143.Location = New System.Drawing.Point(402, 46) + Me.Label143.Name = "Label143" + Me.Label143.Size = New System.Drawing.Size(67, 23) + Me.Label143.TabIndex = 15 + Me.Label143.Text = "Script Timer" + Me.Label143.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugScriptTime + ' + Me.LBLDebugScriptTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugScriptTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugScriptTime.Location = New System.Drawing.Point(475, 46) + Me.LBLDebugScriptTime.Name = "LBLDebugScriptTime" + Me.LBLDebugScriptTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugScriptTime.TabIndex = 16 + Me.LBLDebugScriptTime.Text = "0" + Me.LBLDebugScriptTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDebugHoldEdgeTimer + ' + Me.BTNDebugHoldEdgeTimer.Location = New System.Drawing.Point(581, 248) + Me.BTNDebugHoldEdgeTimer.Name = "BTNDebugHoldEdgeTimer" + Me.BTNDebugHoldEdgeTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugHoldEdgeTimer.TabIndex = 14 + Me.BTNDebugHoldEdgeTimer.Text = "Set to 5" + Me.BTNDebugHoldEdgeTimer.UseVisualStyleBackColor = True + ' + 'GroupBox26 + ' + Me.GroupBox26.Controls.Add(Me.LBLCycleDebugCountdown) + Me.GroupBox26.Controls.Add(Me.Button19) + Me.GroupBox26.Controls.Add(Me.BTNDebugTauntsClear) + Me.GroupBox26.Controls.Add(Me.TBDebugTaunts3) + Me.GroupBox26.Controls.Add(Me.TBDebugTaunts2) + Me.GroupBox26.Controls.Add(Me.TBDebugTaunts1) + Me.GroupBox26.Controls.Add(Me.RBDebugTaunts3) + Me.GroupBox26.Controls.Add(Me.RBDebugTaunts2) + Me.GroupBox26.Controls.Add(Me.RBDebugTaunts1) + Me.GroupBox26.Controls.Add(Me.CBDebugTauntsEndless) + Me.GroupBox26.Controls.Add(Me.CBDebugTaunts) + Me.GroupBox26.Location = New System.Drawing.Point(6, 5) + Me.GroupBox26.Name = "GroupBox26" + Me.GroupBox26.Size = New System.Drawing.Size(346, 178) + Me.GroupBox26.TabIndex = 0 + Me.GroupBox26.TabStop = False + Me.GroupBox26.Text = "Taunt Cycle" + ' + 'LBLCycleDebugCountdown + ' + Me.LBLCycleDebugCountdown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LBLCycleDebugCountdown.Location = New System.Drawing.Point(100, 146) + Me.LBLCycleDebugCountdown.Name = "LBLCycleDebugCountdown" + Me.LBLCycleDebugCountdown.Size = New System.Drawing.Size(81, 23) + Me.LBLCycleDebugCountdown.TabIndex = 10 + Me.LBLCycleDebugCountdown.Text = "0" + Me.LBLCycleDebugCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Button19 + ' + Me.Button19.Location = New System.Drawing.Point(191, 142) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(146, 30) + Me.Button19.TabIndex = 9 + Me.Button19.Text = "Countdown to 5 Seconds" + Me.Button19.UseVisualStyleBackColor = True + ' + 'BTNDebugTauntsClear + ' + Me.BTNDebugTauntsClear.Location = New System.Drawing.Point(194, 28) + Me.BTNDebugTauntsClear.Name = "BTNDebugTauntsClear" + Me.BTNDebugTauntsClear.Size = New System.Drawing.Size(146, 30) + Me.BTNDebugTauntsClear.TabIndex = 8 + Me.BTNDebugTauntsClear.Text = "Clear" + Me.BTNDebugTauntsClear.UseVisualStyleBackColor = True + ' + 'TBDebugTaunts3 + ' + Me.TBDebugTaunts3.Location = New System.Drawing.Point(6, 116) + Me.TBDebugTaunts3.Name = "TBDebugTaunts3" + Me.TBDebugTaunts3.Size = New System.Drawing.Size(331, 20) + Me.TBDebugTaunts3.TabIndex = 7 + ' + 'TBDebugTaunts2 + ' + Me.TBDebugTaunts2.Location = New System.Drawing.Point(6, 90) + Me.TBDebugTaunts2.Name = "TBDebugTaunts2" + Me.TBDebugTaunts2.Size = New System.Drawing.Size(331, 20) + Me.TBDebugTaunts2.TabIndex = 6 + ' + 'TBDebugTaunts1 + ' + Me.TBDebugTaunts1.Location = New System.Drawing.Point(6, 64) + Me.TBDebugTaunts1.Name = "TBDebugTaunts1" + Me.TBDebugTaunts1.Size = New System.Drawing.Size(331, 20) + Me.TBDebugTaunts1.TabIndex = 5 + ' + 'RBDebugTaunts3 + ' + Me.RBDebugTaunts3.AutoSize = True + Me.RBDebugTaunts3.Location = New System.Drawing.Point(127, 41) + Me.RBDebugTaunts3.Name = "RBDebugTaunts3" + Me.RBDebugTaunts3.Size = New System.Drawing.Size(59, 17) + Me.RBDebugTaunts3.TabIndex = 4 + Me.RBDebugTaunts3.Text = "3 Lines" + Me.RBDebugTaunts3.UseVisualStyleBackColor = True + ' + 'RBDebugTaunts2 + ' + Me.RBDebugTaunts2.AutoSize = True + Me.RBDebugTaunts2.Location = New System.Drawing.Point(66, 41) + Me.RBDebugTaunts2.Name = "RBDebugTaunts2" + Me.RBDebugTaunts2.Size = New System.Drawing.Size(59, 17) + Me.RBDebugTaunts2.TabIndex = 3 + Me.RBDebugTaunts2.Text = "2 Lines" + Me.RBDebugTaunts2.UseVisualStyleBackColor = True + ' + 'RBDebugTaunts1 + ' + Me.RBDebugTaunts1.AutoSize = True + Me.RBDebugTaunts1.Checked = True + Me.RBDebugTaunts1.Location = New System.Drawing.Point(7, 41) + Me.RBDebugTaunts1.Name = "RBDebugTaunts1" + Me.RBDebugTaunts1.Size = New System.Drawing.Size(54, 17) + Me.RBDebugTaunts1.TabIndex = 2 + Me.RBDebugTaunts1.TabStop = True + Me.RBDebugTaunts1.Text = "1 Line" + Me.RBDebugTaunts1.UseVisualStyleBackColor = True + ' + 'CBDebugTauntsEndless + ' + Me.CBDebugTauntsEndless.AutoSize = True + Me.CBDebugTauntsEndless.Location = New System.Drawing.Point(7, 150) + Me.CBDebugTauntsEndless.Name = "CBDebugTauntsEndless" + Me.CBDebugTauntsEndless.Size = New System.Drawing.Size(92, 17) + Me.CBDebugTauntsEndless.TabIndex = 1 + Me.CBDebugTauntsEndless.Text = "Endless Cycle" + Me.CBDebugTauntsEndless.UseVisualStyleBackColor = True + ' + 'CBDebugTaunts + ' + Me.CBDebugTaunts.AutoSize = True + Me.CBDebugTaunts.Location = New System.Drawing.Point(7, 20) + Me.CBDebugTaunts.Name = "CBDebugTaunts" + Me.CBDebugTaunts.Size = New System.Drawing.Size(174, 17) + Me.CBDebugTaunts.TabIndex = 0 + Me.CBDebugTaunts.Text = "Enable Taunt Cycle Debugging" + Me.CBDebugTaunts.UseVisualStyleBackColor = True + ' + 'BTNDebugStrokeTauntTimer + ' + Me.BTNDebugStrokeTauntTimer.Location = New System.Drawing.Point(581, 150) + Me.BTNDebugStrokeTauntTimer.Name = "BTNDebugStrokeTauntTimer" + Me.BTNDebugStrokeTauntTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugStrokeTauntTimer.TabIndex = 8 + Me.BTNDebugStrokeTauntTimer.Text = "Set to 5" + Me.BTNDebugStrokeTauntTimer.UseVisualStyleBackColor = True + ' + 'LBLDebugHoldEdgeTime + ' + Me.LBLDebugHoldEdgeTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugHoldEdgeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugHoldEdgeTime.Location = New System.Drawing.Point(475, 248) + Me.LBLDebugHoldEdgeTime.Name = "LBLDebugHoldEdgeTime" + Me.LBLDebugHoldEdgeTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugHoldEdgeTime.TabIndex = 13 + Me.LBLDebugHoldEdgeTime.Text = "0" + Me.LBLDebugHoldEdgeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label145 + ' + Me.Label145.Location = New System.Drawing.Point(402, 11) + Me.Label145.Name = "Label145" + Me.Label145.Size = New System.Drawing.Size(67, 23) + Me.Label145.TabIndex = 3 + Me.Label145.Text = "Tease Timer" + Me.Label145.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDebugStrokeTime + ' + Me.BTNDebugStrokeTime.Location = New System.Drawing.Point(581, 121) + Me.BTNDebugStrokeTime.Name = "BTNDebugStrokeTime" + Me.BTNDebugStrokeTime.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugStrokeTime.TabIndex = 2 + Me.BTNDebugStrokeTime.Text = "Set to 5" + Me.BTNDebugStrokeTime.UseVisualStyleBackColor = True + ' + 'BTNDebugEdgeTauntTimer + ' + Me.BTNDebugEdgeTauntTimer.Location = New System.Drawing.Point(581, 209) + Me.BTNDebugEdgeTauntTimer.Name = "BTNDebugEdgeTauntTimer" + Me.BTNDebugEdgeTauntTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugEdgeTauntTimer.TabIndex = 11 + Me.BTNDebugEdgeTauntTimer.Text = "Set to 5" + Me.BTNDebugEdgeTauntTimer.UseVisualStyleBackColor = True + ' + 'LBLDebugTeaseTime + ' + Me.LBLDebugTeaseTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugTeaseTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugTeaseTime.Location = New System.Drawing.Point(475, 11) + Me.LBLDebugTeaseTime.Name = "LBLDebugTeaseTime" + Me.LBLDebugTeaseTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugTeaseTime.TabIndex = 4 + Me.LBLDebugTeaseTime.Text = "0" + Me.LBLDebugTeaseTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugStrokeTime + ' + Me.LBLDebugStrokeTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugStrokeTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugStrokeTime.Location = New System.Drawing.Point(475, 121) + Me.LBLDebugStrokeTime.Name = "LBLDebugStrokeTime" + Me.LBLDebugStrokeTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugStrokeTime.TabIndex = 1 + Me.LBLDebugStrokeTime.Text = "0" + Me.LBLDebugStrokeTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugEdgeTauntTime + ' + Me.LBLDebugEdgeTauntTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugEdgeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugEdgeTauntTime.Location = New System.Drawing.Point(475, 209) + Me.LBLDebugEdgeTauntTime.Name = "LBLDebugEdgeTauntTime" + Me.LBLDebugEdgeTauntTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugEdgeTauntTime.TabIndex = 10 + Me.LBLDebugEdgeTauntTime.Text = "0" + Me.LBLDebugEdgeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'BTNDebugTeaseTimer + ' + Me.BTNDebugTeaseTimer.Location = New System.Drawing.Point(581, 11) + Me.BTNDebugTeaseTimer.Name = "BTNDebugTeaseTimer" + Me.BTNDebugTeaseTimer.Size = New System.Drawing.Size(75, 23) + Me.BTNDebugTeaseTimer.TabIndex = 5 + Me.BTNDebugTeaseTimer.Text = "Set to 5" + Me.BTNDebugTeaseTimer.UseVisualStyleBackColor = True + ' + 'Label142 + ' + Me.Label142.Location = New System.Drawing.Point(402, 121) + Me.Label142.Name = "Label142" + Me.Label142.Size = New System.Drawing.Size(67, 23) + Me.Label142.TabIndex = 0 + Me.Label142.Text = "Stroke Timer" + Me.Label142.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label150 + ' + Me.Label150.Location = New System.Drawing.Point(402, 206) + Me.Label150.Name = "Label150" + Me.Label150.Size = New System.Drawing.Size(67, 27) + Me.Label150.TabIndex = 9 + Me.Label150.Text = "Edge Taunt Timer" + Me.Label150.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label152 + ' + Me.Label152.Location = New System.Drawing.Point(402, 238) + Me.Label152.Name = "Label152" + Me.Label152.Size = New System.Drawing.Size(67, 40) + Me.Label152.TabIndex = 12 + Me.Label152.Text = "Hold Edge Timer" + Me.Label152.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'LBLDebugStrokeTauntTime + ' + Me.LBLDebugStrokeTauntTime.BackColor = System.Drawing.Color.Gainsboro + Me.LBLDebugStrokeTauntTime.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.LBLDebugStrokeTauntTime.Location = New System.Drawing.Point(475, 150) + Me.LBLDebugStrokeTauntTime.Name = "LBLDebugStrokeTauntTime" + Me.LBLDebugStrokeTauntTime.Size = New System.Drawing.Size(100, 23) + Me.LBLDebugStrokeTauntTime.TabIndex = 7 + Me.LBLDebugStrokeTauntTime.Text = "0" + Me.LBLDebugStrokeTauntTime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label147 + ' + Me.Label147.Location = New System.Drawing.Point(402, 143) + Me.Label147.Name = "Label147" + Me.Label147.Size = New System.Drawing.Size(67, 29) + Me.Label147.TabIndex = 6 + Me.Label147.Text = "Stroke Taunt Timer" + Me.Label147.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TabPage30 + ' + Me.TabPage30.BackColor = System.Drawing.Color.LightGray + Me.TabPage30.Controls.Add(Me.Button33) + Me.TabPage30.Controls.Add(Me.Button24) + Me.TabPage30.Location = New System.Drawing.Point(4, 22) + Me.TabPage30.Name = "TabPage30" + Me.TabPage30.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage30.Size = New System.Drawing.Size(700, 411) + Me.TabPage30.TabIndex = 1 + Me.TabPage30.Text = "TabPage30" + ' + 'Button33 + ' + Me.Button33.Location = New System.Drawing.Point(6, 35) + Me.Button33.Name = "Button33" + Me.Button33.Size = New System.Drawing.Size(75, 23) + Me.Button33.TabIndex = 1 + Me.Button33.Text = "LoadState" + Me.Button33.UseVisualStyleBackColor = True + ' + 'Button24 + ' + Me.Button24.Location = New System.Drawing.Point(6, 6) + Me.Button24.Name = "Button24" + Me.Button24.Size = New System.Drawing.Size(75, 23) + Me.Button24.TabIndex = 0 + Me.Button24.Text = "SaveState" + Me.Button24.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.BackColor = System.Drawing.Color.Silver + Me.TabPage5.Controls.Add(Me.Panel5) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(720, 448) + Me.TabPage5.TabIndex = 17 + Me.TabPage5.Text = "About" + ' + 'Panel5 + ' + Me.Panel5.BackColor = System.Drawing.Color.LightGray + Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel5.Controls.Add(Me.Label130) + Me.Panel5.Controls.Add(Me.Label123) + Me.Panel5.Controls.Add(Me.Label69) + Me.Panel5.Controls.Add(Me.Label113) + Me.Panel5.Controls.Add(Me.Label40) + Me.Panel5.Controls.Add(Me.Label35) + Me.Panel5.Controls.Add(Me.Label33) + Me.Panel5.Controls.Add(Me.Label17) + Me.Panel5.Controls.Add(Me.Label3) + Me.Panel5.Controls.Add(Me.PictureBox3) + Me.Panel5.Controls.Add(Me.Label41) + Me.Panel5.Location = New System.Drawing.Point(6, 6) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(708, 437) + Me.Panel5.TabIndex = 92 + ' + 'Label130 + ' + Me.Label130.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label130.Location = New System.Drawing.Point(361, 314) + Me.Label130.Name = "Label130" + Me.Label130.Size = New System.Drawing.Size(132, 54) + Me.Label130.TabIndex = 176 + Me.Label130.Text = "q55x8x" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Stefaf" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "OxiKlein" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label130.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label123 + ' + Me.Label123.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label123.Location = New System.Drawing.Point(81, 314) + Me.Label123.Name = "Label123" + Me.Label123.Size = New System.Drawing.Size(132, 54) + Me.Label123.TabIndex = 175 + Me.Label123.Text = "pepsifreak" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daragorn" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ambossli" + Me.Label123.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label69 + ' + Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label69.Location = New System.Drawing.Point(35, 295) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(638, 54) + Me.Label69.TabIndex = 174 + Me.Label69.Text = "Triple Alfa" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " malaru" + Me.Label69.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label113 + ' + Me.Label113.AutoSize = True + Me.Label113.Location = New System.Drawing.Point(4, 417) + Me.Label113.Name = "Label113" + Me.Label113.Size = New System.Drawing.Size(452, 13) + Me.Label113.TabIndex = 173 + Me.Label113.Text = "All content contained in or viewed through this program are property of their res" & + "pective owners." + ' + 'Label40 + ' + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(35, 273) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(638, 24) + Me.Label40.TabIndex = 171 + Me.Label40.Text = "Special Thanks" + Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label35 + ' + Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label35.Location = New System.Drawing.Point(32, 107) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(641, 77) + Me.Label35.TabIndex = 170 + Me.Label35.Text = "This program is freeware. It may be freely distributed." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Do not package or dist" & + "ribute this program with any scripts or additional content." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Please distribute a" & + "dditional files separately." + Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label33 + ' + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(32, 191) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(641, 77) + Me.Label33.TabIndex = 169 + Me.Label33.Text = resources.GetString("Label33.Text") + Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(522, 78) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(93, 13) + Me.Label17.TabIndex = 168 + Me.Label17.Text = "Designed by 1885" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(489, 417) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(215, 13) + Me.Label3.TabIndex = 167 + Me.Label3.Text = " Tease AI © 2015 1885 All Rights Reserved" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.LightGray + Me.PictureBox3.Image = Global.Tease_AI.My.Resources.Resources.TAI_Banner_big + Me.PictureBox3.Location = New System.Drawing.Point(84, 17) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(531, 58) + Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox3.TabIndex = 166 + Me.PictureBox3.TabStop = False + ' + 'Label41 + ' + Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.Location = New System.Drawing.Point(35, 372) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(638, 39) + Me.Label41.TabIndex = 172 + Me.Label41.Text = "Thank you to everyone who has provided help and feedback." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Thank you to the commu" & + "nity who's been supportive of my work over the years. Tease AI exists because of" & + " you." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'BtnRandomImageDirClear + ' + Me.BtnRandomImageDirClear.BackColor = System.Drawing.Color.LightGray + Me.BtnRandomImageDirClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnRandomImageDirClear.ForeColor = System.Drawing.Color.Black + Me.BtnRandomImageDirClear.Location = New System.Drawing.Point(804, 212) + Me.BtnRandomImageDirClear.Name = "BtnRandomImageDirClear" + Me.BtnRandomImageDirClear.Size = New System.Drawing.Size(39, 22) + Me.BtnRandomImageDirClear.TabIndex = 181 + Me.BtnRandomImageDirClear.Text = "Clear" + Me.BtnRandomImageDirClear.UseVisualStyleBackColor = False + ' + 'GroupBox47 + ' + Me.GroupBox47.BackColor = System.Drawing.Color.LightGray + Me.GroupBox47.Controls.Add(Me.GroupBox41) + Me.GroupBox47.Controls.Add(Me.GroupBox40) + Me.GroupBox47.ForeColor = System.Drawing.Color.Black + Me.GroupBox47.Location = New System.Drawing.Point(806, 255) + Me.GroupBox47.Name = "GroupBox47" + Me.GroupBox47.Size = New System.Drawing.Size(310, 190) + Me.GroupBox47.TabIndex = 63 + Me.GroupBox47.TabStop = False + Me.GroupBox47.Text = "Boobs and Butts Paths" + ' + 'GroupBox41 + ' + Me.GroupBox41.Controls.Add(Me.Button34) + Me.GroupBox41.Location = New System.Drawing.Point(6, 110) + Me.GroupBox41.Name = "GroupBox41" + Me.GroupBox41.Size = New System.Drawing.Size(298, 74) + Me.GroupBox41.TabIndex = 153 + Me.GroupBox41.TabStop = False + Me.GroupBox41.Text = "Butts" + ' + 'Button34 + ' + Me.Button34.BackColor = System.Drawing.Color.LightGray + Me.Button34.Font = New System.Drawing.Font("Wingdings", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte)) + Me.Button34.ForeColor = System.Drawing.Color.Black + Me.Button34.Location = New System.Drawing.Point(85, 25) + Me.Button34.Name = "Button34" + Me.Button34.Size = New System.Drawing.Size(34, 28) + Me.Button34.TabIndex = 131 + Me.Button34.Text = "1" + Me.Button34.UseVisualStyleBackColor = False + ' + 'GroupBox40 + ' + Me.GroupBox40.Location = New System.Drawing.Point(5, 35) + Me.GroupBox40.Name = "GroupBox40" + Me.GroupBox40.Size = New System.Drawing.Size(298, 74) + Me.GroupBox40.TabIndex = 152 + Me.GroupBox40.TabStop = False + Me.GroupBox40.Text = "Boobs" + ' + 'GroupBox44 + ' + Me.GroupBox44.BackColor = System.Drawing.Color.LightGray + Me.GroupBox44.Controls.Add(Me.Label100) + Me.GroupBox44.ForeColor = System.Drawing.Color.Black + Me.GroupBox44.Location = New System.Drawing.Point(1160, 181) + Me.GroupBox44.Name = "GroupBox44" + Me.GroupBox44.Size = New System.Drawing.Size(310, 92) + Me.GroupBox44.TabIndex = 65 + Me.GroupBox44.TabStop = False + Me.GroupBox44.Text = "Description" + ' + 'Label100 + ' + Me.Label100.BackColor = System.Drawing.Color.Transparent + Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label100.ForeColor = System.Drawing.Color.Black + Me.Label100.Location = New System.Drawing.Point(11, 16) + Me.Label100.Name = "Label100" + Me.Label100.Size = New System.Drawing.Size(286, 73) + Me.Label100.TabIndex = 62 + Me.Label100.Text = resources.GetString("Label100.Text") + Me.Label100.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'GroupBox21 + ' + Me.GroupBox21.BackColor = System.Drawing.Color.LightGray + Me.GroupBox21.Controls.Add(Me.Label153) + Me.GroupBox21.Controls.Add(Me.LBLRangeSettingsDescription) + Me.GroupBox21.Controls.Add(Me.Label156) + Me.GroupBox21.ForeColor = System.Drawing.Color.Black + Me.GroupBox21.Location = New System.Drawing.Point(797, 55) + Me.GroupBox21.Name = "GroupBox21" + Me.GroupBox21.Size = New System.Drawing.Size(316, 136) + Me.GroupBox21.TabIndex = 66 + Me.GroupBox21.TabStop = False + Me.GroupBox21.Text = "Description" + ' + 'Label153 + ' + Me.Label153.BackColor = System.Drawing.Color.Transparent + Me.Label153.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label153.ForeColor = System.Drawing.Color.Black + Me.Label153.Location = New System.Drawing.Point(78, 94) + Me.Label153.Name = "Label153" + Me.Label153.Size = New System.Drawing.Size(158, 17) + Me.Label153.TabIndex = 135 + Me.Label153.Text = "No path selected" + Me.Label153.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LBLRangeSettingsDescription + ' + Me.LBLRangeSettingsDescription.BackColor = System.Drawing.Color.Transparent + Me.LBLRangeSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLRangeSettingsDescription.ForeColor = System.Drawing.Color.Black + Me.LBLRangeSettingsDescription.Location = New System.Drawing.Point(6, 16) + Me.LBLRangeSettingsDescription.Name = "LBLRangeSettingsDescription" + Me.LBLRangeSettingsDescription.Size = New System.Drawing.Size(680, 117) + Me.LBLRangeSettingsDescription.TabIndex = 62 + Me.LBLRangeSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & + "n." + Me.LBLRangeSettingsDescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label156 + ' + Me.Label156.BackColor = System.Drawing.Color.Transparent + Me.Label156.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label156.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label156.ForeColor = System.Drawing.Color.Black + Me.Label156.Location = New System.Drawing.Point(133, 23) + Me.Label156.Name = "Label156" + Me.Label156.Size = New System.Drawing.Size(158, 17) + Me.Label156.TabIndex = 135 + Me.Label156.Text = "No path selected" + Me.Label156.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GroupBox12 + ' + Me.GroupBox12.BackColor = System.Drawing.Color.LightGray + Me.GroupBox12.Controls.Add(Me.LBLSubSettingsDescription) + Me.GroupBox12.ForeColor = System.Drawing.Color.Black + Me.GroupBox12.Location = New System.Drawing.Point(1299, 163) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(171, 124) + Me.GroupBox12.TabIndex = 65 + Me.GroupBox12.TabStop = False + Me.GroupBox12.Text = "Description" + ' + 'LBLSubSettingsDescription + ' + Me.LBLSubSettingsDescription.BackColor = System.Drawing.Color.Transparent + Me.LBLSubSettingsDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LBLSubSettingsDescription.ForeColor = System.Drawing.Color.Black + Me.LBLSubSettingsDescription.Location = New System.Drawing.Point(10, 19) + Me.LBLSubSettingsDescription.Name = "LBLSubSettingsDescription" + Me.LBLSubSettingsDescription.Size = New System.Drawing.Size(150, 89) + Me.LBLSubSettingsDescription.TabIndex = 62 + Me.LBLSubSettingsDescription.Text = "Hover over any setting in the menu for a more detailed description of its functio" & + "n." + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + Me.OpenFileDialog1.Filter = "JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All file" & + "s (*.*)|*.*" + Me.OpenFileDialog1.Title = "Select an image file" + ' + 'GetColor + ' + Me.GetColor.Color = System.Drawing.Color.SteelBlue + ' + 'WebImageFileDialog + ' + Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.WebImageFileDialog.Title = "Please select a URL File" + ' + 'OpenScriptDialog + ' + Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.OpenScriptDialog.Title = "Please select a script" + ' + 'OpenSettingsDialog + ' + Me.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.OpenSettingsDialog.Title = "Please select a settings file to open" + ' + 'SaveSettingsDialog + ' + Me.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" + ' + 'GroupBox65 + ' + Me.GroupBox65.BackColor = System.Drawing.Color.LightGray + Me.GroupBox65.Controls.Add(Me.Label136) + Me.GroupBox65.Controls.Add(Me.Label134) + Me.GroupBox65.Controls.Add(Me.Label132) + Me.GroupBox65.Controls.Add(Me.TrackBar1) + Me.GroupBox65.Controls.Add(Me.ComboBox1) + Me.GroupBox65.Controls.Add(Me.CheckBox1) + Me.GroupBox65.Controls.Add(Me.Label135) + Me.GroupBox65.Controls.Add(Me.TrackBar2) + Me.GroupBox65.ForeColor = System.Drawing.Color.Black + Me.GroupBox65.Location = New System.Drawing.Point(1166, 28) + Me.GroupBox65.Name = "GroupBox65" + Me.GroupBox65.Size = New System.Drawing.Size(259, 117) + Me.GroupBox65.TabIndex = 157 + Me.GroupBox65.TabStop = False + Me.GroupBox65.Text = "Text to Speech" + ' + 'Label136 + ' + Me.Label136.AutoSize = True + Me.Label136.Location = New System.Drawing.Point(14, 52) + Me.Label136.Name = "Label136" + Me.Label136.Size = New System.Drawing.Size(45, 13) + Me.Label136.TabIndex = 32 + Me.Label136.Text = "Volume:" + ' + 'Label134 + ' + Me.Label134.AutoSize = True + Me.Label134.Location = New System.Drawing.Point(141, 52) + Me.Label134.Name = "Label134" + Me.Label134.Size = New System.Drawing.Size(33, 13) + Me.Label134.TabIndex = 157 + Me.Label134.Text = "Rate:" + ' + 'Label132 + ' + Me.Label132.Location = New System.Drawing.Point(202, 52) + Me.Label132.Name = "Label132" + Me.Label132.Size = New System.Drawing.Size(45, 13) + Me.Label132.TabIndex = 158 + Me.Label132.Text = "100" + Me.Label132.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'TrackBar1 + ' + Me.TrackBar1.Location = New System.Drawing.Point(133, 68) + Me.TrackBar1.Minimum = -10 + Me.TrackBar1.Name = "TrackBar1" + Me.TrackBar1.Size = New System.Drawing.Size(120, 45) + Me.TrackBar1.TabIndex = 31 + ' + 'ComboBox1 + ' + Me.ComboBox1.BackColor = System.Drawing.SystemColors.Window + Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ComboBox1.ForeColor = System.Drawing.SystemColors.WindowText + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(71, 16) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(178, 21) + Me.ComboBox1.TabIndex = 29 + Me.ComboBox1.TabStop = False + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.ForeColor = System.Drawing.Color.Black + Me.CheckBox1.Location = New System.Drawing.Point(10, 18) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(59, 17) + Me.CheckBox1.TabIndex = 28 + Me.CheckBox1.TabStop = False + Me.CheckBox1.Text = "Enable" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'Label135 + ' + Me.Label135.Location = New System.Drawing.Point(75, 52) + Me.Label135.Name = "Label135" + Me.Label135.Size = New System.Drawing.Size(45, 13) + Me.Label135.TabIndex = 33 + Me.Label135.Text = "100" + Me.Label135.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'TrackBar2 + ' + Me.TrackBar2.Location = New System.Drawing.Point(6, 68) + Me.TrackBar2.Maximum = 100 + Me.TrackBar2.Name = "TrackBar2" + Me.TrackBar2.Size = New System.Drawing.Size(120, 45) + Me.TrackBar2.TabIndex = 30 + Me.TrackBar2.Value = 50 + ' + 'TxbImgUrlHardcore + ' + Me.TxbImgUrlHardcore.BackColor = System.Drawing.Color.LightGray + Me.TxbImgUrlHardcore.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TxbImgUrlHardcore.Dock = System.Windows.Forms.DockStyle.Fill + Me.TxbImgUrlHardcore.Location = New System.Drawing.Point(116, 6) + Me.TxbImgUrlHardcore.Name = "TxbImgUrlHardcore" + Me.TxbImgUrlHardcore.ReadOnly = True + Me.TxbImgUrlHardcore.Size = New System.Drawing.Size(189, 20) + Me.TxbImgUrlHardcore.TabIndex = 145 + ' + 'TextBox2 + ' + Me.TextBox2.BackColor = System.Drawing.Color.LightGray + Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBox2.Location = New System.Drawing.Point(116, 34) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.ReadOnly = True + Me.TextBox2.Size = New System.Drawing.Size(189, 20) + Me.TextBox2.TabIndex = 145 + ' + 'BWURLFiles + ' + Me.BWURLFiles.DislikeListPath = "Images\System\DislikedImageURLs.txt" + Me.BWURLFiles.ImageURLFileDir = "Images\System\URL Files\" + Me.BWURLFiles.LikeListPath = "Images\System\LikedImageURLs.txt" + Me.BWURLFiles.WorkerReportsProgress = True + Me.BWURLFiles.WorkerSupportsCancellation = True + ' + 'FrmSettings + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(727, 465) + Me.Controls.Add(Me.GroupBox65) + Me.Controls.Add(Me.GroupBox44) + Me.Controls.Add(Me.GroupBox47) + Me.Controls.Add(Me.BtnRandomImageDirClear) + Me.Controls.Add(Me.SettingsPanel) + Me.Controls.Add(Me.GroupBox12) + Me.Controls.Add(Me.GroupBox21) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "FrmSettings" + Me.ShowIcon = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Tease AI Settings" + Me.SettingsPanel.ResumeLayout(False) + Me.SettingsTabs.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.PNLGeneralSettings.ResumeLayout(False) + Me.PNLGeneralSettings.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox64.ResumeLayout(False) + Me.GroupBox64.PerformLayout() + Me.GBDommeImages.ResumeLayout(False) + Me.GBDommeImages.PerformLayout() + CType(Me.slideshowNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGeneralTextToSpeech.ResumeLayout(False) + Me.GBGeneralTextToSpeech.PerformLayout() + CType(Me.SliderVRate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SliderVVolume, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBSafeword.ResumeLayout(False) + Me.GBSafeword.PerformLayout() + Me.GBGeneralSystem.ResumeLayout(False) + Me.GBGeneralSystem.PerformLayout() + Me.GBGeneralImages.ResumeLayout(False) + Me.GBGeneralImages.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGeneralSettings.ResumeLayout(False) + Me.GBGeneralSettings.PerformLayout() + Me.GBSubFont.ResumeLayout(False) + CType(Me.NBFontSize, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDommeFont.ResumeLayout(False) + CType(Me.NBFontSizeD, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage2.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.GBGiveUp.ResumeLayout(False) + Me.GBGiveUp.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomTypingStyle.ResumeLayout(False) + Me.GBDomTypingStyle.PerformLayout() + CType(Me.NBTypoChance, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox63.ResumeLayout(False) + Me.GroupBox63.PerformLayout() + Me.GBDomRanges.ResumeLayout(False) + CType(Me.NBDomMoodMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBDomMoodMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSubAgeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSubAgeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSelfAgeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBSelfAgeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAvgCockMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAvgCockMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomStats.ResumeLayout(False) + Me.GBDomStats.PerformLayout() + CType(Me.NBEmpathy, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBDomBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.domageNumBox, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBDomBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.domlevelNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomPersonality.ResumeLayout(False) + Me.GBDomPersonality.PerformLayout() + Me.GBDomOrgasms.ResumeLayout(False) + Me.GBDomOrgasms.PerformLayout() + CType(Me.orgasmsPerNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBDomPetNames.ResumeLayout(False) + Me.GBDomPetNames.PerformLayout() + Me.TabPage10.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.GroupBox22.ResumeLayout(False) + CType(Me.NBWritingTaskMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBWritingTaskMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox45.ResumeLayout(False) + CType(Me.CBTSlider, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox35.ResumeLayout(False) + Me.GroupBoxSorry.ResumeLayout(False) + Me.GroupBoxSorry.PerformLayout() + Me.GroupBox39.ResumeLayout(False) + Me.GroupBox39.PerformLayout() + Me.GroupBox38.ResumeLayout(False) + Me.GroupBox38.PerformLayout() + Me.GroupBox37.ResumeLayout(False) + Me.GroupBox37.PerformLayout() + Me.GroupBox36.ResumeLayout(False) + Me.GroupBox36.PerformLayout() + Me.GroupBox13.ResumeLayout(False) + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.NBExtremeHoldMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBExtremeHoldMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBLongHoldMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBLongHoldMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBLongEdge, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBHoldTheEdgeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBHoldTheEdgeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox32.ResumeLayout(False) + Me.GroupBox32.PerformLayout() + CType(Me.NBBirthdayDay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.subAgeNumBox, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBBirthdayMonth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CockSizeNumBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage16.ResumeLayout(False) + Me.Panel9.ResumeLayout(False) + Me.GroupBox31.ResumeLayout(False) + Me.TCScripts.ResumeLayout(False) + Me.TabPage21.ResumeLayout(False) + Me.TabPage17.ResumeLayout(False) + Me.TabPage18.ResumeLayout(False) + Me.TabPage19.ResumeLayout(False) + Me.GroupBox42.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox43.ResumeLayout(False) + Me.TabPage7.ResumeLayout(False) + Me.TabControl4.ResumeLayout(False) + Me.TpImagesUrlFiles.ResumeLayout(False) + Me.TpImagesUrlFiles.PerformLayout() + Me.GroupBox66.ResumeLayout(False) + CType(Me.PBURLPreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.TpImagesGenre.ResumeLayout(False) + Me.GrbImageUrlFiles.ResumeLayout(False) + Me.TlpImageUrls.ResumeLayout(False) + Me.TlpImageUrls.PerformLayout() + Me.GbxImagesGenre.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + Me.TabPage33.ResumeLayout(False) + Me.TabControl5.ResumeLayout(False) + Me.TabPage34.ResumeLayout(False) + Me.TabPage34.PerformLayout() + CType(Me.ImageTagPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage35.ResumeLayout(False) + Me.TabPage35.PerformLayout() + Me.GroupBox55.ResumeLayout(False) + Me.GroupBox55.PerformLayout() + Me.GroupBox53.ResumeLayout(False) + Me.GroupBox53.PerformLayout() + Me.GroupBox49.ResumeLayout(False) + Me.GroupBox49.PerformLayout() + Me.GroupBox46.ResumeLayout(False) + Me.GroupBox46.PerformLayout() + Me.GroupBox54.ResumeLayout(False) + Me.GroupBox54.PerformLayout() + Me.GroupBox51.ResumeLayout(False) + Me.GroupBox51.PerformLayout() + Me.GroupBox50.ResumeLayout(False) + Me.GroupBox50.PerformLayout() + Me.GroupBox48.ResumeLayout(False) + Me.GroupBox48.PerformLayout() + Me.TabPage11.ResumeLayout(False) + Me.Panel7.ResumeLayout(False) + Me.Panel7.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.WebPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.TpVideoSettings.ResumeLayout(False) + Me.PnlVideoSettings.ResumeLayout(False) + CType(Me.PbBannerVideoSettings, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxVideoGeneralD.ResumeLayout(False) + Me.GbxVideoGeneralD.PerformLayout() + Me.GbxVideoSpecialD.ResumeLayout(False) + Me.GbxVideoSpecialD.PerformLayout() + Me.GbxVideoGenreD.ResumeLayout(False) + Me.GbxVideoGenreD.PerformLayout() + Me.GbxVideoDescription.ResumeLayout(False) + Me.GbxVideoGeneral.ResumeLayout(False) + Me.GbxVideoGeneral.PerformLayout() + Me.GbxVideoSpecial.ResumeLayout(False) + Me.GbxVideoSpecial.PerformLayout() + Me.GbxVideoGenre.ResumeLayout(False) + Me.GbxVideoGenre.PerformLayout() + Me.TabPage20.ResumeLayout(False) + Me.TabControl1.ResumeLayout(False) + Me.TabPage22.ResumeLayout(False) + Me.PNLGlitter.ResumeLayout(False) + Me.PNLGlitter.PerformLayout() + Me.GroupBox14.ResumeLayout(False) + Me.GroupBox14.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GBGlitterD.ResumeLayout(False) + Me.GBGlitterD.PerformLayout() + Me.GrbGlitterfeed.ResumeLayout(False) + Me.GrbGlitterfeed.PerformLayout() + CType(Me.GlitterSlider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGlitter1.ResumeLayout(False) + Me.GBGlitter1.PerformLayout() + CType(Me.GlitterSlider1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGlitter3.ResumeLayout(False) + Me.GBGlitter3.PerformLayout() + CType(Me.GlitterSlider3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBGlitter2.ResumeLayout(False) + Me.GBGlitter2.PerformLayout() + CType(Me.GlitterSlider2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlitterAV2, System.ComponentModel.ISupportInitialize).EndInit() + Me.TpGames.ResumeLayout(False) + Me.TpGames.PerformLayout() + Me.GbxCardsGold.ResumeLayout(False) + Me.GbxCardsGold.PerformLayout() + CType(Me.GP6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GP4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxCardsBackground.ResumeLayout(False) + CType(Me.CardBack, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxCardsBronze.ResumeLayout(False) + Me.GbxCardsBronze.PerformLayout() + CType(Me.BP3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BP1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GbxCardsSilver.ResumeLayout(False) + Me.GbxCardsSilver.PerformLayout() + CType(Me.SP6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP4, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + Me.Panel10.ResumeLayout(False) + Me.Panel10.PerformLayout() + CType(Me.NBWishlistCost, System.ComponentModel.ISupportInitialize).EndInit() + Me.PNLWishList.ResumeLayout(False) + CType(Me.WishlistCostSilver, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.WishlistCostGold, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.WishlistPreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage26.ResumeLayout(False) + Me.Panel12.ResumeLayout(False) + Me.GroupBox9.ResumeLayout(False) + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + CType(Me.PBBackgroundPreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage4.ResumeLayout(False) + Me.Panel6.ResumeLayout(False) + Me.GroupBox69.ResumeLayout(False) + Me.GroupBox69.PerformLayout() + CType(Me.TypeSpeedSlider, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox68.ResumeLayout(False) + CType(Me.NBTasksMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTasksMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox67.ResumeLayout(False) + CType(Me.NBTaskCBTTimeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskCBTTimeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgeHoldTimeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgeHoldTimeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgesMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskEdgesMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokingTimeMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokingTimeMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokesMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTaskStrokesMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox10.ResumeLayout(False) + CType(Me.NBNextImageChance, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox57.ResumeLayout(False) + Me.GroupBox57.PerformLayout() + CType(Me.NBTauntEdging, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SliderSTF, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TauntSlider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTauntCycleMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTauntCycleMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTeaseLengthMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBTeaseLengthMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBRangeRuinChance.ResumeLayout(False) + Me.GBRangeRuinChance.PerformLayout() + CType(Me.NBRuinSometimes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRuinRarely, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRuinOften, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox17.ResumeLayout(False) + Me.GroupBox19.ResumeLayout(False) + CType(Me.NBGreenLightMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBGreenLightMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRedLightMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBRedLightMin, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox18.ResumeLayout(False) + Me.GroupBox18.PerformLayout() + CType(Me.NBCensorShowMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBCensorHideMax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBCensorHideMin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBCensorShowMax, System.ComponentModel.ISupportInitialize).EndInit() + Me.GBRangeOrgasmChance.ResumeLayout(False) + Me.GBRangeOrgasmChance.PerformLayout() + CType(Me.NBAllowSometimes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAllowRarely, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NBAllowOften, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage13.ResumeLayout(False) + Me.TabControl2.ResumeLayout(False) + Me.TabPage27.ResumeLayout(False) + Me.TabPage27.PerformLayout() + Me.TabPage14.ResumeLayout(False) + Me.TabPage14.PerformLayout() + Me.TabPage24.ResumeLayout(False) + Me.TabPage24.PerformLayout() + Me.TabPage8.ResumeLayout(False) + Me.GroupBox29.ResumeLayout(False) + Me.GroupBox28.ResumeLayout(False) + Me.GroupBox30.ResumeLayout(False) + Me.TabPage15.ResumeLayout(False) + Me.TabPage15.PerformLayout() + Me.GroupBox34.ResumeLayout(False) + Me.TabPage25.ResumeLayout(False) + Me.Panel11.ResumeLayout(False) + Me.GroupBox62.ResumeLayout(False) + Me.GroupBox62.PerformLayout() + Me.GroupBox33.ResumeLayout(False) + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox27.ResumeLayout(False) + Me.GroupBox27.PerformLayout() + Me.GroupBox20.ResumeLayout(False) + Me.GroupBox20.PerformLayout() + Me.GroupBox15.ResumeLayout(False) + Me.GroupBox15.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage28.ResumeLayout(False) + Me.TabControl3.ResumeLayout(False) + Me.TabPage29.ResumeLayout(False) + Me.GroupBox26.ResumeLayout(False) + Me.GroupBox26.PerformLayout() + Me.TabPage30.ResumeLayout(False) + Me.TabPage5.ResumeLayout(False) + Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox47.ResumeLayout(False) + Me.GroupBox41.ResumeLayout(False) + Me.GroupBox44.ResumeLayout(False) + Me.GroupBox21.ResumeLayout(False) + Me.GroupBox12.ResumeLayout(False) + Me.GroupBox65.ResumeLayout(False) + Me.GroupBox65.PerformLayout() + CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) -End Sub + End Sub Friend WithEvents SettingsPanel As System.Windows.Forms.Panel Friend WithEvents SettingsTabs As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage @@ -15704,6 +15722,7 @@ End Sub Friend WithEvents GroupBoxSorry As System.Windows.Forms.GroupBox Friend WithEvents TBSorry As System.Windows.Forms.TextBox Friend WithEvents CBHonorificInclude As System.Windows.Forms.CheckBox + Friend WithEvents CBNameInclude As System.Windows.Forms.CheckBox Friend WithEvents CBHonorificCapitalized As System.Windows.Forms.CheckBox Friend WithEvents TBHonorific As System.Windows.Forms.TextBox Friend WithEvents G1Honorific As System.Windows.Forms.TextBox @@ -15727,7 +15746,9 @@ End Sub Friend WithEvents LBLStrokeTimeTotal As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents LBLAvgEdgeNoTouch As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents LBLAvgEdgeStroking As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents PictureBox12 As System.Windows.Forms.PictureBox Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox @@ -16725,5 +16746,4 @@ End Sub Friend WithEvents GroupBox14 As GroupBox Friend WithEvents alwaysNewSlideshow As System.Windows.Forms.CheckBox Friend WithEvents Label169 As System.Windows.Forms.Label - Friend WithEvents Label171 As System.Windows.Forms.Label End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index b2c7013..bd51aa0 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -6250,6 +6250,14 @@ checkFolder: End If End Sub + Private Sub CBNameInclude_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBNameInclude.LostFocus + If CBNameInclude.Checked = True Then + My.Settings.CBUseName = True + Else + My.Settings.CBUseName = False + End If + End Sub + Private Sub CBHonorificCapitalized_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBHonorificCapitalized.LostFocus If CBHonorificCapitalized.Checked = True Then My.Settings.CBCapHonor = True diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index 3d80404..1f25e8d 100644 --- a/Tease AI/My Project/AssemblyInfo.vb +++ b/Tease AI/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - + diff --git a/Tease AI/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index e4ca7c5..30032e0 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -2033,8 +2033,20 @@ Namespace My Me("CBUseHonor") = value End Set End Property - - + Public Property CBUseName() As Boolean + Get + Return CType(Me("CBUseName"), Boolean) + End Get + Set + Me("CBUseName") = Value + End Set + End Property + + _ Public Property CBCapHonor() As Boolean From b713ea4d09c3bc560d86a7ffae3c198228d023c4 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Wed, 1 Nov 2017 18:05:40 +0100 Subject: [PATCH 133/143] Updated Readme --- README.md | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index 8e51474..9f64f29 100644 --- a/README.md +++ b/README.md @@ -4,10 +4,11 @@ Tease AI is adult-oriented software that aims to create an interactive tease and # Todo: Stefaf: Integration of Class myDirectory: Status ongoing. - Testrun to sort Lists like Win-Explorer: initialized in v0.54.5.1 -# Changelog - Patch 55.0.0 +# Changelog - Patch 55.3.0 + + Not all Changes have been tracked. * Added Features: From fe04ce973629e482b65aa6e52f1dfaa527939578 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sat, 4 Nov 2017 11:55:57 +0100 Subject: [PATCH 134/143] Glitter-App Rework * Reworked Glitter app to use proper html and CSS. It is now possible to reference relative imagepaths. If a feed is running the a scriptfile given in @Glitter(ScriptName) is executed after the currently running feed. The number of queued scripts is not limited. It is now possible to execute a specific script using the debug session window. * Raised Assembly Version --- README.md | 8 + Tease AI/Classes/State.vb | 59 +- Tease AI/Form1.vb | 821 ++++++++++------------------ Tease AI/My Project/AssemblyInfo.vb | 2 +- 4 files changed, 342 insertions(+), 548 deletions(-) diff --git a/README.md b/README.md index 9f64f29..6c791db 100644 --- a/README.md +++ b/README.md @@ -4,7 +4,15 @@ Tease AI is adult-oriented software that aims to create an interactive tease and # Todo: Stefaf: Integration of Class myDirectory: Status ongoing. + +# Changelog - Patch 55.4.0 +* Commands: +* Command Filters: +* Bugfixes: +* Miscellaneous: + + * Reworked Glitter app to use proper html and CSS. It is now possible to reference relative imagepaths. If a feed is running a scriptfile given in @Glitter(ScriptName) is executed after the currently running script. The number of queued scripts is not limited. It is now possible to execute a specific script using the debug session window. # Changelog - Patch 55.3.0 diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 9602809..07df95e 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -233,27 +233,48 @@ Public Class SessionState Public Property RLGLTick As Integer Public Property NoVideo As Boolean - - Public Property UpdateList As New List(Of String) - - Public Property UpdatesTick As Integer = 120 - Public Property UpdatingPost As Boolean - Public Property UpdateStage As Integer - Public Property UpdateStageTick As Integer - Public Property StatusText As String - Public Property ContactNumber As Integer - - Public Property StatusText1 As String - Public Property StatusText2 As String - Public Property StatusText3 As String +#Region "GlitterFeeds - APP" - Public Property StatusChance1 As Integer - Public Property StatusChance2 As Integer - Public Property StatusChance3 As Integer + + + Public Property UpdateList As New List(Of String) - Public Property Update1 As Boolean - Public Property Update2 As Boolean - Public Property Update3 As Boolean + + Public Property UpdatesTick As Integer = 120 + + Public Property UpdatingPost As Boolean + + + Public Property UpdateStageTick As Integer + + + Public Property StatusText As String + "" it has been already sent or skipped.")> + Public Property StatusText1 As String + "" it has been already sent or skipped.")> + Public Property StatusText2 As String + "" it has been already sent or skipped.")> + Public Property StatusText3 As String + + + Public Property StatusChance1 As Integer + + Public Property StatusChance2 As Integer + + Public Property StatusChance3 As Integer + + + Public Property ContactNumber As Integer + + Public Property UpdateStage As Integer + + Public Property Update1 As Boolean + + Public Property Update2 As Boolean + + Public Property Update3 As Boolean + +#End Region ' GlitterFeeds - APP diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 6f5c09b..df4059d 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1178,7 +1178,7 @@ retryStart: End Sub - + Public Sub ResetButton() ScriptTimer.Stop() @@ -7030,442 +7030,6 @@ CensorConstant: My.Settings.SubName = subName.Text End Sub - - Public Sub StatusUpdatePost() - - - ssh.UpdatingPost = True - - - If ssh.UpdateStage > 0 Then GoTo StatusUpdateBegin - - Dim StatusFile = ssh.UpdateList(ssh.randomizer.Next(0, ssh.UpdateList.Count)) - - For i As Integer = 0 To ssh.UpdateList.Count - 1 - Debug.Print(i & ". " & ssh.UpdateList(i)) - Next - Debug.Print("STatusText = " & StatusFile) - Debug.Print("Clear stage 1") - - ' Read all lines of the given File. - Dim lines As List(Of String) = Txt2List(StatusFile) - - - For i As Integer = lines.Count - 1 To 0 Step -1 - If lines(i) = "" Or lines(i) Is Nothing Then - lines.Remove(lines(i)) - End If - Next - - ssh.StatusText = lines(0) - Debug.Print("HEre?") - ' Github Patch StatusText = PoundClean(StatusText) - - Dim LoopBuffer As Integer = 0 - Do - LoopBuffer += 1 - - ssh.StatusText = PoundClean(ssh.StatusText) - - If LoopBuffer > 4 Then Exit Do - - Loop Until Not ssh.DomTask.Contains("#") - - - Dim AtArray() As String = Split(ssh.StatusText) - For i As Integer = AtArray.Length - 1 To 0 Step -1 - If AtArray(i).Contains("@") Then - AtArray(i) = AtArray(i).Replace(AtArray(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray(i) = "He" Then AtArray(i) = AtArray(i).Replace("He", "She") - If AtArray(i) = "he" Then AtArray(i) = AtArray(i).Replace("he", "she") - If AtArray(i) = "Him" Then AtArray(i) = AtArray(i).Replace("Him", "Her") - If AtArray(i) = "him" Then AtArray(i) = AtArray(i).Replace("him", "her") - If AtArray(i) = "His" Then AtArray(i) = AtArray(i).Replace("His", "Her") - If AtArray(i) = "his" Then AtArray(i) = AtArray(i).Replace("his", "her") - End If - Next - ssh.StatusText = Join(AtArray) - - Dim DPic As String = My.Settings.GlitterAV - DPic = "file://" & DPic - DPic = DPic.Replace("\", "/") - Debug.Print(DPic) - - Dim StatusName As String - - - Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) - - StatusName = StatusUpdates.DocumentText & " " & ssh.tempDomName & "
" & Date.Today & "

" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText & "

" - - 'Debug.Print(GlitterImageAV) - Debug.Print("Clear Stage 2") - - - Dim LoopCounter As Integer = 0 - - - Dim StatusLines1 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines1.Add(lines(i)) - Next - ssh.ContactNumber = 1 - - ' For i As Integer = StatusLines1.Count - 1 To 0 Step -1 - 'If StatusLines1(i) = "" Or StatusLines1(i) Is Nothing Then - 'StatusLines1.Remove(StatusLines1(i)) - 'End If - 'Next - - StatusLines1 = StatusClean(StatusLines1) - - - - ssh.StatusText1 = StatusLines1(ssh.randomizer.Next(0, StatusLines1.Count)) - - Dim StatusLines2 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines2.Add(lines(i)) - Next - ssh.ContactNumber = 2 - - ' For i As Integer = StatusLines2.Count - 1 To 0 Step -1 - 'If StatusLines2(i) = "" Or StatusLines2(i) Is Nothing Then - 'StatusLines2.Remove(StatusLines2(i)) - 'End If - 'Next - - StatusLines2 = StatusClean(StatusLines2) - - - - - Do - ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) - LoopCounter += 1 - Loop Until ssh.StatusText2 <> ssh.StatusText1 Or LoopCounter = 10 - - If LoopCounter = 10 Then - ssh.StatusText2 = "ERROR: Tease AI could not return a unique comment" - Dim StatusError = "Tease AI could not return a unique comment for Contact2 in file: " & StatusFile - Trace.WriteLine(StatusError) - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & StatusError & "", False) - End If - - Dim StatusLines3 As New List(Of String) - For i As Integer = 1 To lines.Count - 1 - StatusLines3.Add(lines(i)) - Next - ssh.ContactNumber = 3 - - 'For i As Integer = StatusLines3.Count - 1 To 0 Step -1 - 'If StatusLines3(i) = "" Or StatusLines3(i) Is Nothing Then - 'StatusLines3.Remove(StatusLines3(i)) - 'End If - 'Next - - StatusLines3 = StatusClean(StatusLines3) - - LoopCounter = 0 - - Do - ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) - LoopCounter += 1 - Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 Or LoopCounter = 10 - - If LoopCounter = 10 Then - ssh.StatusText3 = "ERROR: Tease AI could not return a unique comment" - Dim StatusError = "Tease AI could not return a unique comment for Contact3 in file: " & StatusFile - Trace.WriteLine(StatusError) - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & StatusError & "", False) - End If - - ''Debug.Print("StatusLine = " & StatusLine) - - - - - ssh.StatusText1 = ssh.StatusText1.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText2 = ssh.StatusText2.Replace("#ShortName", My.Settings.GlitterSN) - ssh.StatusText3 = ssh.StatusText3.Replace("#ShortName", My.Settings.GlitterSN) - - ssh.StatusText1 = ssh.StatusText1.Replace("#SubName", subName.Text) - ssh.StatusText2 = ssh.StatusText2.Replace("#SubName", subName.Text) - ssh.StatusText3 = ssh.StatusText3.Replace("#SubName", subName.Text) - - ssh.StatusText1 = PoundClean(ssh.StatusText1) - ssh.StatusText2 = PoundClean(ssh.StatusText2) - ssh.StatusText3 = PoundClean(ssh.StatusText3) - - 'GoTo TestSkip - - Dim AtArray1() As String = Split(ssh.StatusText1) - For i As Integer = AtArray1.Length - 1 To 0 Step -1 - If AtArray1(i).Contains("@") Then - AtArray1(i) = AtArray1(i).Replace(AtArray1(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray1(i) = "He" Then AtArray1(i) = AtArray1(i).Replace("He", "She") - If AtArray1(i) = "he" Then AtArray1(i) = AtArray1(i).Replace("he", "she") - If AtArray1(i) = "Him" Then AtArray1(i) = AtArray1(i).Replace("Him", "Her") - If AtArray1(i) = "him" Then AtArray1(i) = AtArray1(i).Replace("him", "her") - If AtArray1(i) = "His" Then AtArray1(i) = AtArray1(i).Replace("His", "Her") - If AtArray1(i) = "his" Then AtArray1(i) = AtArray1(i).Replace("his", "her") - End If - Next - ssh.StatusText1 = Join(AtArray1) - - Dim AtArray2() As String = Split(ssh.StatusText2) - For i As Integer = AtArray2.Length - 1 To 0 Step -1 - If AtArray2(i).Contains("@") Then - AtArray2(i) = AtArray2(i).Replace(AtArray2(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray2(i) = "He" Then AtArray2(i) = AtArray2(i).Replace("He", "She") - If AtArray2(i) = "he" Then AtArray2(i) = AtArray2(i).Replace("he", "she") - If AtArray2(i) = "Him" Then AtArray2(i) = AtArray2(i).Replace("Him", "Her") - If AtArray2(i) = "him" Then AtArray2(i) = AtArray2(i).Replace("him", "her") - If AtArray2(i) = "His" Then AtArray2(i) = AtArray2(i).Replace("His", "Her") - If AtArray2(i) = "his" Then AtArray2(i) = AtArray2(i).Replace("his", "her") - End If - Next - ssh.StatusText2 = Join(AtArray2) - - Dim AtArray3() As String = Split(ssh.StatusText3) - For i As Integer = AtArray3.Length - 1 To 0 Step -1 - If AtArray3(i).Contains("@") Then - AtArray3(i) = AtArray3(i).Replace(AtArray3(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If AtArray3(i) = "He" Then AtArray3(i) = AtArray(i).Replace("He", "She") - If AtArray3(i) = "he" Then AtArray3(i) = AtArray(i).Replace("he", "she") - If AtArray3(i) = "Him" Then AtArray3(i) = AtArray(i).Replace("Him", "Her") - If AtArray3(i) = "him" Then AtArray3(i) = AtArray(i).Replace("him", "her") - If AtArray3(i) = "His" Then AtArray3(i) = AtArray(i).Replace("His", "Her") - If AtArray3(i) = "his" Then AtArray3(i) = AtArray(i).Replace("his", "her") - End If - Next - ssh.StatusText3 = Join(AtArray3) - - 'TestSkip: - - ssh.Update1 = False - ssh.Update2 = False - ssh.Update3 = False - - ssh.StatusChance1 = ssh.randomizer.Next(1, 101) - ssh.StatusChance2 = ssh.randomizer.Next(1, 101) - ssh.StatusChance3 = ssh.randomizer.Next(1, 101) - - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - ssh.UpdateStage = 1 - Return - - -StatusUpdateBegin: - - If ssh.Update1 = True And ssh.Update2 = True And ssh.Update3 = True Then GoTo StatusUpdateEnd - - 'ContactTick = randomizer.Next(10, 21) - 'ContactFlag = True - 'ContactTimer.Start() - - 'Do - 'Application.DoEvents() - 'Loop Until ContactFlag = False - - 'Delay(RandomDelay) - -ReRoll: - - ssh.TempVal = ssh.randomizer.Next(1, 4) - 'Debug.Print("TempVal = " & TempVal) - - If ssh.TempVal = 1 Then - If ssh.Update1 = False Then - GoTo StatusUpdate1 - Else - GoTo ReRoll - End If - End If - - If ssh.TempVal = 2 Then - If ssh.Update2 = False Then - GoTo StatusUpdate2 - Else - GoTo ReRoll - End If - End If - - If ssh.TempVal = 3 Then - If ssh.Update3 = False Then - GoTo StatusUpdate3 - Else - GoTo ReRoll - End If - End If - - GoTo ReRoll - -StatusUpdate1: - - Dim S1Pic As String = My.Settings.GlitterAV1 - S1Pic = "file://" & S1Pic - S1Pic = S1Pic.Replace("\", "/") - Debug.Print(S1Pic) - - TextColor = Color2Html(My.Settings.ChatTextColor) - - If ssh.StatusChance1 < My.Settings.Glitter1Slider * 10 And My.Settings.CBGlitter1 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter1 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText1 & "

" - - - End If - - ssh.Update1 = True - - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return - 'GoTo StatusUpdateBegin - -StatusUpdate2: - - Dim S2Pic As String = My.Settings.GlitterAV2 - S2Pic = "file://" & S2Pic - S2Pic = S2Pic.Replace("\", "/") - Debug.Print(S2Pic) - - TextColor = Color2Html(My.Settings.ChatTextColor) - - If ssh.StatusChance2 < My.Settings.Glitter2Slider * 10 And My.Settings.CBGlitter2 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter2 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText2 & "

" - - - End If - - ssh.Update2 = True - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return - - 'GoTo StatusUpdateBegin - -StatusUpdate3: - - Dim S3Pic As String = My.Settings.GlitterAV3 - S3Pic = "file://" & S3Pic - S3Pic = S3Pic.Replace("\", "/") - Debug.Print(S3Pic) - - TextColor = Color2Html(My.Settings.ChatTextColor) - - If ssh.StatusChance3 < My.Settings.Glitter3Slider * 10 And My.Settings.CBGlitter3 = True Then - StatusName = StatusUpdates.DocumentText & " " & My.Settings.Glitter3 & "
" & Date.Today & "
" ' & "" & TimeOfDay & "
" - StatusUpdates.DocumentText = StatusName & "" & ssh.StatusText3 & "

" - - - End If - - ssh.Update3 = True - - ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) - UpdateStageTimer.Start() - Return - 'GoTo StatusUpdateBegin - -StatusUpdateEnd: - - ssh.UpdateStage = 0 - - ' Github Patch 'StatusText = "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine & "Null" & Environment.NewLine - - ssh.UpdatingPost = False - - - End Sub - - Public Function StatusClean(ByVal ListClean As List(Of String)) As List(Of String) - - - - ListClean.Add("### BUFFER LINE ###") - Debug.Print("ListClean.Count = " & ListClean.Count) - - If ssh.ContactNumber = 1 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Bratty") Then - ListClean(i) = ListClean(i).Replace("@Bratty ", "") - End If - If ListClean(i).Contains("@Contact2") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact3") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If - - If ssh.ContactNumber = 2 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Caring") Then - ListClean(i) = ListClean(i).Replace("@Caring ", "") - End If - If ListClean(i).Contains("@Contact1") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact3") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If - - If ssh.ContactNumber = 3 Then - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Cruel") Then - ListClean(i) = ListClean(i).Replace("@Cruel ", "") - End If - If ListClean(i).Contains("@Contact1") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Contact2") Then - ListClean.Remove(ListClean(i)) - End If - Next - End If - - For i As Integer = ListClean.Count - 1 To 0 Step -1 - If ListClean(i).Contains("@Angry") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Custom1") Then - ListClean.Remove(ListClean(i)) - End If - If ListClean(i).Contains("@Custom2") Then - ListClean.Remove(ListClean(i)) - End If - Next - - - - Try - ListClean.Remove(ListClean(ListClean.Count - 1)) - Catch - If ssh.ContactNumber = 1 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 1" - If ssh.ContactNumber = 2 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 2" - If ssh.ContactNumber = 3 Then ssh.DomTask = "ERROR: Tease AI did not return a valid Glitter line for Contact 3" - End Try - - Return ListClean - - End Function - Private Sub Delay(ByVal Milliseconds As Integer) Dim Count As Integer Milliseconds *= 1000 @@ -7493,76 +7057,6 @@ StatusUpdateEnd: End If End Sub - Private Sub UpdatesTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdatesTimer.Tick - - 'Debug.Print("updates tick = " & UpdatesTick) - - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - - If My.Settings.CBGlitterFeed = True And ssh.UpdatingPost = False Then - - ssh.UpdatesTick -= 1 - - If ssh.UpdatesTick < 1 Then - - ssh.UpdatesTick = 1080 / My.Settings.GlitterDSlider - - ssh.UpdateList.Clear() - - If My.Settings.CBTease = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Tease\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If - - If My.Settings.CBEgotist = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Egotist\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If - - If My.Settings.CBTrivia = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Trivia\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If - - If My.Settings.CBDaily = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Daily\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If - - If My.Settings.CBCustom1 = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 1\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If - - If My.Settings.CBCustom2 = True Then - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Custom 2\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - ssh.UpdateList.Add(foundFile) - Next - End If - - If ssh.UpdateList.Count < 1 Then - My.Settings.CBGlitterFeed = False - 'MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected." & Environment.NewLine _ - & Environment.NewLine & "Glitter feed has been automatically disabled.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) - Return - End If - - - - StatusUpdatePost() - - - - End If - - End If - End Sub @@ -10706,14 +10200,20 @@ OrgasmDecided: ' would run the Glitter script in Apps\Glitter\Script\About to Ruin.txt. If StringClean.Contains("@Glitter(") Then - ' GitHub Patch: Dim GlitterFlag As Integer = GetParentheses(StringClean, "@Glitter(") Dim GlitterFlag As String = GetParentheses(StringClean, "@Glitter(") - If My.Settings.CBGlitterFeedOff = False And ssh.UpdatingPost = False Then - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") And ssh.UpdatingPost = False Then - ssh.UpdateList.Clear() - ssh.UpdateList.Add(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script\" & GlitterFlag & ".txt") - StatusUpdatePost() + If My.Settings.CBGlitterFeedOff = False Then + Dim Folder As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Script" + Dim FilePath As String = Path.Combine(Folder, GlitterFlag & ".txt") + + If Directory.Exists(Folder) AndAlso File.Exists(FilePath) Then + ssh.UpdateList.Add(FilePath) + If ssh.UpdatingPost = False Then + StatusUpdatePost() + Else + ssh.UpdatesTick = 10 + End If + End If End If @@ -17265,13 +16765,6 @@ saveImage: - Private Sub StatusUpdates_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted - Try - StatusUpdates.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub - Public Function WordExists(ByVal searchString As String, ByVal findString As String) As Boolean @@ -17474,14 +16967,6 @@ restartInstantly: End If End Sub - Private Sub UpdateStageTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateStageTimer.Tick - If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return - ssh.UpdateStageTick -= 1 - If ssh.UpdateStageTick < 1 Then - UpdateStageTimer.Stop() - StatusUpdatePost() - End If - End Sub @@ -19373,6 +18858,286 @@ restartInstantly: #End Region ' DommeTag APP +#Region "------------------------------------------------- GlitterFeeds APP ---------------------------------------------------" + + Sub GlitterSendPost(contactID As Integer, content As String) + 'TODO: Add external CSS file support. + + Dim ConName, ConImgPath As String + Dim _Text As String = If(StatusUpdates.Document Is Nothing, "", StatusUpdates.Document.Body.InnerHtml) + + If contactID = 0 Then + ConName = My.Settings.DomName + ConImgPath = My.Settings.GlitterAV + ElseIf contactID = 1 Then + ConName = My.Settings.Glitter1 + ConImgPath = My.Settings.GlitterAV1 + ElseIf contactID = 2 Then + ConName = My.Settings.Glitter2 + ConImgPath = My.Settings.GlitterAV2 + ElseIf contactID = 3 Then + ConName = My.Settings.Glitter3 + ConImgPath = My.Settings.GlitterAV3 + Else + Throw New ArgumentOutOfRangeException + End If + + ConImgPath = "file://" & ConImgPath.Replace("\", "/") + + + _Text &= "
" & vbCrLf + _Text &= " " & vbCrLf + _Text &= " " & ConName & "" & vbCrLf + _Text &= " " & Now.ToLongTimeString & "" & vbCrLf + _Text &= "

" & content & "

" & vbCrLf + _Text &= "
" & vbCrLf + + Dim HtmlHead As String = +" + + + GlitterApp + + + + +" & _Text & " +" + + StatusUpdates.DocumentText = HtmlHead + End Sub + + Public Sub StatusUpdatePost() + ' Lambda expression to clean a single glitter line. + ' Keywords and vocabulary files are processed as in regular scripts. + ' No commands are processed. + Dim CleanString As New Func(Of String, String)( + Function(RawString As String) As String + RawString = PoundClean(RawString) + + Dim SplitArray() As String = Split(RawString) + For i As Integer = SplitArray.Length - 1 To 0 Step -1 + If SplitArray(i).Contains("@") Then + SplitArray(i) = SplitArray(i).Replace(SplitArray(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If SplitArray(i) = "He" Then SplitArray(i) = SplitArray(i).Replace("He", "She") + If SplitArray(i) = "he" Then SplitArray(i) = SplitArray(i).Replace("he", "she") + If SplitArray(i) = "Him" Then SplitArray(i) = SplitArray(i).Replace("Him", "Her") + If SplitArray(i) = "him" Then SplitArray(i) = SplitArray(i).Replace("him", "her") + If SplitArray(i) = "His" Then SplitArray(i) = SplitArray(i).Replace("His", "Her") + If SplitArray(i) = "his" Then SplitArray(i) = SplitArray(i).Replace("his", "her") + End If + Next + Return Join(SplitArray) + End Function) + + + ' Read all lines of the given File. + Dim lines As List(Of String) = Txt2List(ssh.UpdateList(0)) + + ssh.UpdateList.RemoveAt(0) + + If lines.Count < 1 Then Exit Sub + + ssh.StatusText = CleanString(lines(0)) + lines.RemoveAt(0) + + GlitterSendPost(0, ssh.StatusText) + + ' ################## Get Contact1 update ###################### + Dim StatusLines1 As List(Of String) = StatusClean(1, lines) + + ssh.StatusText1 = StatusLines1(ssh.randomizer.Next(0, StatusLines1.Count)) + + + ' ################## Get Contact2 update ###################### + Dim StatusLines2 As List(Of String) = StatusClean(2, lines) + + Do + ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) + Loop Until ssh.StatusText2 <> ssh.StatusText1 + + + ' ################## Get Contact3 update ###################### + Dim StatusLines3 As List(Of String) = StatusClean(3, lines) + + Do + ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) + Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 + + + ' ###################### Reset Data ########################### + ssh.StatusText1 = CleanString(ssh.StatusText1) + ssh.StatusText2 = CleanString(ssh.StatusText2) + ssh.StatusText3 = CleanString(ssh.StatusText3) + + ssh.StatusChance1 = ssh.randomizer.Next(1, 101) + ssh.StatusChance2 = ssh.randomizer.Next(1, 101) + ssh.StatusChance3 = ssh.randomizer.Next(1, 101) + + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + ssh.UpdatingPost = True + UpdateStageTimer.Start() + + End Sub + + Public Function StatusClean(contactNumber As Integer, ByVal ListClean As List(Of String)) As List(Of String) + Dim Exclude, RtnList As New List(Of String) + + ' Create a copy of the initial list. + RtnList = ListClean.ConvertAll(Function(x) x) + + If contactNumber = 1 Then + Exclude.AddRange({"@Contact2", "@Contact3"}) + ElseIf contactNumber = 2 Then + Exclude.AddRange({"@Contact1", "@Contact3"}) + ElseIf contactNumber = 3 Then + Exclude.AddRange({"@Contact1", "@Contact2"}) + End If + + RtnList.RemoveAll(Function(x) + For Each item In Exclude + If x.Contains(item) Then Return True + Next + Return False + End Function) + Return RtnList + End Function + + Private Sub UpdatesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdatesTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Exit Sub + + If My.Settings.CBGlitterFeed = False Then Exit Sub + If ssh.UpdatingPost = True Then Exit Sub + + ssh.UpdatesTick -= 1 + + If ssh.UpdatesTick > 0 Then Exit Sub + + ssh.UpdatesTick = 1080 / My.Settings.GlitterDSlider + + If ssh.UpdateList.Count < 1 Then + Dim Lazytext As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text + + Dim FolderList, FileList As New List(Of String) + + If My.Settings.CBTease Then FolderList.Add(Lazytext & "\Apps\Glitter\Tease\") + If My.Settings.CBEgotist Then FolderList.Add(Lazytext & "\Apps\Glitter\Egotist\") + If My.Settings.CBTrivia Then FolderList.Add(Lazytext & "\Apps\Glitter\Trivia\") + If My.Settings.CBDaily Then FolderList.Add(Lazytext & "\Apps\Glitter\Daily\") + If My.Settings.CBCustom1 Then FolderList.Add(Lazytext & "\Apps\Glitter\Custom 1\") + If My.Settings.CBCustom2 Then FolderList.Add(Lazytext & "\Apps\Glitter\Custom 2\") + + For Each Folder As String In FolderList + For Each FoundFile As String In My.Computer.FileSystem.GetFiles(Folder, FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + FileList.Add(FoundFile) + Next + Next + + If FileList.Count < 1 Then + My.Settings.CBGlitterFeed = False + MessageBox.Show(Me, "Tease AI attempted to create a Glitter update, but no files were found! Please make sure at least one category containing Glitter txt files has been selected." & Environment.NewLine _ + & Environment.NewLine & "Glitter feed has been automatically disabled.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Hand) + Return + End If + + For i As Integer = 0 To ssh.UpdateList.Count - 1 + Debug.Print(i & ". " & ssh.UpdateList(i)) + Next + + ssh.UpdateList.Add(FileList(ssh.randomizer.Next(0, FileList.Count))) + End If + StatusUpdatePost() + + End Sub + + Private Sub UpdateStageTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdateStageTimer.Tick + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + ssh.UpdateStageTick -= 1 + + If ssh.UpdateStageTick < 1 Then + + UpdateStageTimer.Stop() + +ReRoll: + ssh.TempVal = ssh.randomizer.Next(1, 4) + + + If ssh.TempVal = 1 And ssh.StatusText1(0) <> ">" Then + ' ##################### Contact1 Post ######################### + If ssh.StatusChance1 < My.Settings.Glitter1Slider * 10 And My.Settings.CBGlitter1 = True Then + GlitterSendPost(1, ssh.StatusText1) + End If + ssh.StatusText1 = ">" & ssh.StatusText1 + + ElseIf ssh.TempVal = 2 And ssh.StatusText2(0) <> ">" Then + ' ##################### Contact2 Post ######################### + If ssh.StatusChance2 < My.Settings.Glitter2Slider * 10 And My.Settings.CBGlitter2 = True Then + GlitterSendPost(2, ssh.StatusText2) + End If + ssh.StatusText2 = ">" & ssh.StatusText2 + + ElseIf ssh.TempVal = 3 And ssh.StatusText3(0) <> ">" Then + ' ##################### Contact3 Post ######################### + If ssh.StatusChance3 < My.Settings.Glitter3Slider * 10 And My.Settings.CBGlitter3 = True Then + GlitterSendPost(3, ssh.StatusText3) + End If + ssh.StatusText3 = ">" & ssh.StatusText3 + + Else + GoTo ReRoll + End If + + + If ssh.StatusText1(0) = ">" And ssh.StatusText2(0) = ">" And ssh.StatusText3(0) = ">" Then + ssh.UpdatingPost = False + Else + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) + UpdateStageTimer.Start() + End If + End If + End Sub + + Private Sub StatusUpdates_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles StatusUpdates.DocumentCompleted + Try + StatusUpdates.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + End Sub + +#End Region ' GlitterFeeds APP + #Region "------------------------------------------------------ Lazy-Sub ------------------------------------------------------" Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNStop.Click, Button7.Click diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index 1f25e8d..8938601 100644 --- a/Tease AI/My Project/AssemblyInfo.vb +++ b/Tease AI/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - + From c8b539508dcffc267626bbb7c4c0a87cc0c27768 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sat, 4 Nov 2017 12:09:38 +0100 Subject: [PATCH 135/143] Removed unused GetFilter2 This function was for performance testing and was never used public. --- Tease AI/Form1.vb | 264 ---------------------------------------------- 1 file changed, 264 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index df4059d..e387deb 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -13915,270 +13915,6 @@ VTSkip: End Function - Public Function GetFilter2(ByVal FilterString As String) As Boolean - - - Dim __ConditionDic As New Dictionary(Of String, Boolean)(System.StringComparer.OrdinalIgnoreCase) - Try - '=============================================================================== - ' Dictionary Setup Description - ' 1st Parameter: "Key" this is the Command as String preceded with @ - ' 2nd Parameter: "Value" These are the conditions that must be met to EXCLUDE a line. - ' - ' If "Value" is "True", all lines containing "Key" will be excuded. - ' - '=============================================================================== - With __ConditionDic - .Add("@Crazy", FrmSettings.crazyCheckBox.Checked = False) - .Add("@Vulgar", FrmSettings.vulgarCheckBox.Checked = False) - .Add("@Supremacist", FrmSettings.supremacistCheckBox.Checked = False) - .Add("@Sadistic", FrmSettings.sadisticCheckBox.Checked = False) - .Add("@Degrading", FrmSettings.degradingCheckBox.Checked = False) - .Add("@DommeLevel1", FrmSettings.domlevelNumBox.Value <> 1) - .Add("@DommeLevel2", FrmSettings.domlevelNumBox.Value <> 2) - .Add("@DommeLevel3", FrmSettings.domlevelNumBox.Value <> 3) - .Add("@DommeLevel4", FrmSettings.domlevelNumBox.Value <> 4) - .Add("@DommeLevel5", FrmSettings.domlevelNumBox.Value <> 5) - .Add("@SelfYoung", FrmSettings.domageNumBox.Value > FrmSettings.NBSelfAgeMin.Value - 1) - .Add("@SelfOld", FrmSettings.domageNumBox.Value < FrmSettings.NBSelfAgeMax.Value + 1) - .Add("@ACup", FrmSettings.boobComboBox.Text <> "A" Or ssh.JustShowedBlogImage = True) - .Add("@BCup", FrmSettings.boobComboBox.Text <> "B" Or ssh.JustShowedBlogImage = True) - .Add("@CCup", FrmSettings.boobComboBox.Text <> "C" Or ssh.JustShowedBlogImage = True) - .Add("@DCup", FrmSettings.boobComboBox.Text <> "D" Or ssh.JustShowedBlogImage = True) - .Add("@DDCup", FrmSettings.boobComboBox.Text <> "DD" Or ssh.JustShowedBlogImage = True) - .Add("@DDD+Cup", FrmSettings.boobComboBox.Text <> "DDD+" Or ssh.JustShowedBlogImage = True) - .Add("@CockSmall", FrmSettings.CockSizeNumBox.Value >= FrmSettings.NBAvgCockMin.Value) - .Add("@CockLarge", FrmSettings.CockSizeNumBox.Value <= FrmSettings.NBAvgCockMax.Value) - .Add("@CockAverage", FrmSettings.CockSizeNumBox.Value < FrmSettings.NBAvgCockMin.Value Or FrmSettings.CockSizeNumBox.Value > FrmSettings.NBAvgCockMax.Value) - .Add("@SubYoung", FrmSettings.subAgeNumBox.Value >= FrmSettings.NBSubAgeMin.Value) - .Add("@SubOld", FrmSettings.subAgeNumBox.Value <= FrmSettings.NBSubAgeMax.Value) - .Add("@SubBirthday", FrmSettings.NBBirthdayMonth.Value <> Month(Date.Now) And FrmSettings.NBBirthdayDay.Value <> DateAndTime.Day(Date.Now)) - .Add("@ValentinesDay", Month(Date.Now) <> 2 And DateAndTime.Day(Date.Now) <> 14) - .Add("@ChristmasEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 24) - .Add("@ChristmasDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - .Add("@NewYearsEve", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 31) - .Add("@NewYearsDay", Month(Date.Now) <> 12 And DateAndTime.Day(Date.Now) <> 25) - - .Add("@FirstRound", ssh.FirstRound = False) - .Add("@NotFirstRound", ssh.FirstRound = True) - .Add("@StrokeSpeedMax", StrokePace < NBMaxPace.Value) - .Add("@StrokeSpeedMin", StrokePace > NBMinPace.Value) - .Add("@StrokeFaster", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeFastest", StrokePace = NBMaxPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlower", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@StrokeSlowest", StrokePace = NBMinPace.Value Or ssh.WorshipMode = True) - .Add("@AlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Always Allows") - .Add("@OftenAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Often Allows") - .Add("@SometimesAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Sometimes Allows") - .Add("@RarelyAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Rarely Allows") - .Add("@NeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text <> "Never Allows") - .Add("@AlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Always Ruins") - .Add("@OftenRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Often Ruins") - .Add("@SometimesRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Sometimes Ruins") - .Add("@RarelyRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Rarely Ruins") - .Add("@NeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text <> "Never Ruins") - .Add("@NotAlwaysAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Always Allows") - .Add("@NotNeverAllowsOrgasm", FrmSettings.alloworgasmComboBox.Text = "Never Allows") - .Add("@NotAlwaysRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Always Ruins") - .Add("@NotNeverRuinsOrgasm", FrmSettings.ruinorgasmComboBox.Text = "Never Allows") - .Add("@LongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeTaunts.Checked = False) - .Add("@InterruptLongEdge", ssh.LongEdge = False Or FrmSettings.CBLongEdgeInterrupts.Checked = False Or ssh.TeaseTick < 1 Or ssh.RiskyEdges = True) - .Add("@ShowHardcoreImage", Not Directory.Exists(My.Settings.IHardcore) Or My.Settings.CBIHardcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowSoftcoreImage", Not Directory.Exists(My.Settings.ISoftcore) Or My.Settings.CBISoftcore = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLesbianImage", Not Directory.Exists(My.Settings.ILesbian) Or My.Settings.CBILesbian = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlowjobImage", Not Directory.Exists(My.Settings.IBlowjob) Or My.Settings.CBIBlowjob = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowFemdomImage", Not Directory.Exists(My.Settings.IFemdom) Or My.Settings.CBIFemdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowLezdomImage", Not Directory.Exists(My.Settings.ILezdom) Or My.Settings.CBILezdom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowHentaiImage", Not Directory.Exists(My.Settings.IHentai) Or My.Settings.CBIHentai = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGayImage", Not Directory.Exists(My.Settings.IGay) Or My.Settings.CBIGay = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowMaledomImage", Not Directory.Exists(My.Settings.IMaledom) Or My.Settings.CBIMaledom = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowCaptionsImage", Not Directory.Exists(My.Settings.ICaptions) Or My.Settings.CBICaptions = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowGeneralImage", Not Directory.Exists(My.Settings.IGeneral) Or My.Settings.CBIGeneral = False Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@ShowBlogImage", FrmSettings.URLFileList.CheckedItems.Count = 0 Or ssh.CustomSlideEnabled = True Or FlagExists("SYS_NoPornAllowed") = True Or ssh.LockImage = True) - .Add("@NewBlogImage", __ConditionDic("@ShowBlogImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@ShowLocalImage", FlagExists("SYS_NoPornAllowed") = True Or ssh.CustomSlideEnabled = True Or ssh.LockImage = True _ - Or (My.Settings.CBIHardcore = False And My.Settings.CBISoftcore = False And My.Settings.CBILesbian = False And My.Settings.CBIBlowjob = False _ - And My.Settings.CBIFemdom = False And My.Settings.CBILezdom = False And My.Settings.CBIHentai = False And My.Settings.CBIGay = False _ - And My.Settings.CBIMaledom = False And My.Settings.CBICaptions = False And My.Settings.CBIGeneral = False)) - '.Add("@ShowButtImage", Not Directory.Exists(FrmSettings.LBLButtPath.Text) And Not File.Exists(FrmSettings.LBLButtURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowButtsImage", __ConditionDic("@ShowButtImage")) ' duplicate Command, lets get the Value af the other one. - '.Add("@ShowBoobImage", Not Directory.Exists(FrmSettings.LBLBoobPath.Text) And Not File.Exists(FrmSettings.LBLBoobURL.Text) Or FlagExists("SYS_NoPornAllowed") = True Or CustomSlideshow = True Or LockImage = True) - '.Add("@ShowBoobsImage", __ConditionDic("@ShowBoobImage")) ' duplicate Command, lets get the Value af the other one. - .Add("@1MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 60 Or ssh.HoldEdgeTime > 119) - .Add("@2MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 120 Or ssh.HoldEdgeTime > 179) - .Add("@3MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 180 Or ssh.HoldEdgeTime > 239) - .Add("@4MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 240 Or ssh.HoldEdgeTime > 299) - .Add("@5MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 300 Or ssh.HoldEdgeTime > 599) - .Add("@10MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 600 Or ssh.HoldEdgeTime > 899) - .Add("@15MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 900 Or ssh.HoldEdgeTime > 1799) - .Add("@30MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 1800 Or ssh.HoldEdgeTime > 2699) - .Add("@45MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 2700 Or ssh.HoldEdgeTime > 3599) - .Add("@60MinuteHold", ssh.SubHoldingEdge = False Or ssh.HoldEdgeTime < 3600) - .Add("@CBTLevel1", FrmSettings.CBTSlider.Value <> 1) - .Add("@CBTLevel2", FrmSettings.CBTSlider.Value <> 2) - .Add("@CBTLevel3", FrmSettings.CBTSlider.Value <> 3) - .Add("@CBTLevel4", FrmSettings.CBTSlider.Value <> 4) - .Add("@CBTLevel5", FrmSettings.CBTSlider.Value <> 5) - .Add("@SubCircumcised", FrmSettings.CBSubCircumcised.Checked = False) - .Add("@SubNotCircumcised", FrmSettings.CBSubCircumcised.Checked = True) - .Add("@SubPierced", FrmSettings.CBSubPierced.Checked = False) - .Add("@SubNotPierced", FrmSettings.CBSubPierced.Checked = True) - '.Add("@ShowTaggedImage", ssh.LocalTagImageList.Count = 0) '=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> For this Condition the tags have be loaded before. - .Add("@BeforeTease", ssh.BeforeTease = False) - .Add("@OrgasmDenied", ssh.OrgasmDenied = False) - .Add("@OrgasmAllowed", ssh.OrgasmAllowed = False) - .Add("@OrgasmRuined", ssh.OrgasmRuined = False) - .Add("@ApathyLevel1", FrmSettings.NBEmpathy.Value <> 1) - .Add("@ApathyLevel2", FrmSettings.NBEmpathy.Value <> 2) - .Add("@ApathyLevel3", FrmSettings.NBEmpathy.Value <> 3) - .Add("@ApathyLevel4", FrmSettings.NBEmpathy.Value <> 4) - .Add("@ApathyLevel5", FrmSettings.NBEmpathy.Value <> 5) - .Add("@InChastity", My.Settings.Chastity = False) - .Add("@NotInChastity", My.Settings.Chastity = True) - .Add("@HasChastity", FrmSettings.CBOwnChastity.Checked = False) - .Add("@DoesNotHaveChastity", FrmSettings.CBOwnChastity.Checked = True) - .Add("@ChastityPA", FrmSettings.CBChastityPA.Checked = False) - .Add("@ChastitySpikes", FrmSettings.CBChastitySpikes.Checked = False) - .Add("@VitalSub", CBVitalSub.Checked = False) - .Add("@VitalSubAssignment", CBVitalSub.Checked = False Or CBVitalSubDomTask.Checked = False) - .Add("@RuinTaunt", ssh.EdgeToRuin = False Or ssh.EdgeToRuinSecret = True) - .Add("@ShowLikedImage", Not File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt")) - .Add("@ShowDislikedImage", Not File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt")) - .Add("@VideoHardcore", ssh.VideoTease = False Or ssh.VideoType <> "Hardcore") - .Add("@VideoSoftcore", ssh.VideoTease = False Or ssh.VideoType <> "Softcore") - .Add("@VideoLesbian", ssh.VideoTease = False Or ssh.VideoType <> "Lesbian") - .Add("@VideoBlowjob", ssh.VideoTease = False Or ssh.VideoType <> "Blowjob") - .Add("@VideoFemdom", ssh.VideoTease = False Or ssh.VideoType <> "Femdom") - .Add("@VideoFemsub", ssh.VideoTease = False Or ssh.VideoType <> "Femsub") - .Add("@VideoGeneral", ssh.VideoTease = False Or ssh.VideoType <> "General") - .Add("@VideoHardcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "HardcoreD") - .Add("@VideoSoftcoreDomme", ssh.VideoTease = False Or ssh.VideoType <> "SoftcoreD") - .Add("@VideoLesbianDomme", ssh.VideoTease = False Or ssh.VideoType <> "LesbianD") - .Add("@VideoBlowjobDomme", ssh.VideoTease = False Or ssh.VideoType <> "BlowjobD") - .Add("@VideoFemdomDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemdomD") - .Add("@VideoFemsubDomme", ssh.VideoTease = False Or ssh.VideoType <> "FemsubD") - .Add("@VideoGeneralDomme", ssh.VideoTease = False Or ssh.VideoType <> "GeneralD") - .Add("@CockTorture", FrmSettings.CBCBTCock.Checked = False) - .Add("@BallTorture", FrmSettings.CBCBTBalls.Checked = False) - .Add("@BallTorture0", ssh.CBTBallsCount <> 0) - .Add("@BallTorture1", ssh.CBTBallsCount <> 1) - .Add("@BallTorture2", ssh.CBTBallsCount <> 2) - .Add("@BallTorture3", ssh.CBTBallsCount <> 3) - .Add("@BallTorture4+", ssh.CBTBallsCount < 4) - .Add("@CockTorture0", ssh.CBTCockCount <> 0) - .Add("@CockTorture1", ssh.CBTCockCount <> 1) - .Add("@CockTorture2", ssh.CBTCockCount <> 2) - .Add("@CockTorture3", ssh.CBTCockCount <> 3) - .Add("@CockTorture4+", ssh.CBTCockCount < 4) - .Add("@Contact1", ssh.GlitterTease = False Or Not ssh.Group.Contains("1")) - .Add("@Contact2", ssh.GlitterTease = False Or Not ssh.Group.Contains("2")) - .Add("@Contact3", ssh.GlitterTease = False Or Not ssh.Group.Contains("3")) - .Add("@Stroking", ssh.SubStroking = False) - .Add("@SubStroking", ssh.SubStroking = False) - .Add("@NotStroking", ssh.SubStroking = True) - .Add("@SubNotStroking", ssh.SubStroking = True) - .Add("@Edging", ssh.SubEdging = False) - .Add("@SubEdging", ssh.SubEdging = False) - .Add("@NotEdging", ssh.SubEdging = True) - .Add("@SubNotEdging", ssh.SubEdging = True) - .Add("@HoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@SubHoldingTheEdge", ssh.SubHoldingEdge = False) - .Add("@NotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@SubNotHoldingTheEdge", ssh.SubHoldingEdge = True) - .Add("@Morning", ssh.GeneralTime <> "Morning") - .Add("@Afternoon", ssh.GeneralTime <> "Afternoon") - .Add("@Night", ssh.GeneralTime <> "Night") - .Add("@GoodMood", ssh.DommeMood <= FrmSettings.NBDomMoodMax.Value) - .Add("@BadMood", ssh.DommeMood >= FrmSettings.NBDomMoodMin.Value) - .Add("@NeutralMood", ssh.DommeMood > FrmSettings.NBDomMoodMax.Value Or ssh.DommeMood < FrmSettings.NBDomMoodMin.Value) - .Add("@SetModule(", ssh.SetModule <> "" Or ssh.BookmarkModule = True) ' I wonder if this will work. - .Add("@OrgasmRestricted", ssh.OrgasmRestricted = False) - .Add("@OrgasmNotRestricted", ssh.OrgasmRestricted = True) - .Add("@SubWorshipping", ssh.WorshipMode = False) - .Add("@SubNotWorshipping", ssh.WorshipMode = True) - .Add("@LongHold", ssh.LongHold = False Or ssh.SubHoldingEdge = False) - .Add("@ExtremeHold", ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False) - .Add("@AssWorship", ssh.WorshipTarget <> "Ass" Or ssh.WorshipMode = False) - .Add("@BoobWorship", ssh.WorshipTarget <> "Boobs" Or ssh.WorshipMode = False) - .Add("@PussyWorship", ssh.WorshipTarget <> "Pussy" Or ssh.WorshipMode = False) - End With - Catch ex As ArgumentException - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' ArgumentException => Will occur everytime until you fix Source Code! - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Debug.Print("Error on initializing FilterList." & vbCrLf & ex.Message & vbCrLf & ex.StackTrace) - MsgBox("Error on initializing FilterList. This Error occurs, If you try to add a duplikace Key to the dictionary." & - "This error is major issue in Code And will occur everytime until you fix this Error. For there is no point in " & - "further executing the Code, the application will exit after closing this Message." & vbCrLf & - ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Critical, "Source Code Error") - Application.Exit() - End Try - - - Try - ' Declare a new regex Instance, for detecting the parameters in a line. - ' Allowed chars for Commands are: A-Z a-z 0-9 @ - ' Allowed Brackets are : ( [ - ' Minimum length is 3 Chars, maximum Command length has no restriction. - Dim __re As Regex = New Regex("@[@\w\d+]{3,}[\(\[]*", RegexOptions.IgnoreCase) - - - ' Execute regex on current line, to find all containing Commands - Dim mc As MatchCollection = __re.Matches(FilterString) - - For Each m As Match In mc - If __ConditionDic.Keys.Contains(m.Value) AndAlso __ConditionDic(m.Value) Then - '=============================================================================== - ' Known Command - DELETE Condition = TRUE - '=============================================================================== - ' The Command is known and his delete condition is True -> delete line - Return False - - ElseIf __ConditionDic.Keys.Contains(m.Value) = False Then - '=============================================================================== - ' Unknown Command / BracketCommand - '=============================================================================== - Dim Condition As Boolean = False - - Select Case m.Value.ToUpper - Case "@DommeLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@DommeLevel("), FrmSettings.domlevelNumBox) - Case "@Cup(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) - Case "@AllowsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) - Case "@RuinsOrgasm(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) - Case "@ApathyLevel(".ToUpper : Condition = FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) - Case "@Variable[".ToUpper : Condition = CheckVariable(FilterString) - Case "@CheckDate(".ToUpper : Condition = CheckDateList(FilterString) - 'QND-Implemented: ContactData.GetTaggedImage - 'Case "@DommeTag(".ToUpper : Condition = GetDommeImage(GetParentheses(FilterString, "@DommeTag(")) = False Or ssh.LockImage = True - Case "@ImageTag(".ToUpper : Condition = GetLocalImage(FilterString) - Case "@ImageTagOr(".ToUpper : Condition = GetLocalImage(FilterString,, "Or") - Case "@ImageTagAny(".ToUpper : Condition = GetLocalImage(FilterString,, "Any") - Case Else - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - ' Unknown Command => goto next Match - '<= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= <= - Dim f As String = "" ' Debug line to add the ability to set a breakpoint. - Exit For - End Select - ' The Command is known and his delete condition is True -> delete line - If Condition Then Return False - End If - Next ' of Regex matches (Commands) - Catch ex As Exception - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - ' All Errors - '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - 'TODO: Once implemented rethrow all exceptions. - 'Throw - End Try - - Return True - - - - - End Function - #Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" From ece742b12adb483d8f4ce01644ba13a767874e71 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sat, 4 Nov 2017 12:58:46 +0100 Subject: [PATCH 136/143] Removed unused Sub ResetButton() --- Tease AI/Form1.vb | 89 +++-------------------------------------------- 1 file changed, 4 insertions(+), 85 deletions(-) diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index e387deb..987257c 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1178,87 +1178,6 @@ retryStart: End Sub - - Public Sub ResetButton() - - ScriptTimer.Stop() - - SaveChatLog(False) - - ssh.DomTask = "@SystemMessage Tease AI has been reset" - ssh.DomChat = "@SystemMessage Tease AI has been reset" - - StrokePace = 0 - - If Directory.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\") Then - My.Computer.FileSystem.DeleteDirectory(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\", FileIO.DeleteDirectoryOption.DeleteAllContents) - End If - - System.IO.Directory.CreateDirectory(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\") - - ssh.TauntEdging = False - - ssh.CBTBallsFirst = True - ssh.CBTCockFirst = True - ssh.CBTBothFirst = True - ssh.CustomTaskFirst = True - - ssh.VideoType = "General" - - ssh.UpdatesTick = 120 - UpdatesTimer.Start() - - Me.ActiveControl = Me.chatBox - - ssh.JustShowedBlogImage = False - - ssh.SaidHello = False - ssh.SubWroteLast = False - ssh.WritingTaskFlag = False - - ssh.OrgasmYesNo = False - - FrmSettings.LockOrgasmChances(False) - - ssh.ShowModule = False - ssh.BookmarkLink = False - ssh.BookmarkModule = False - ssh.YesOrNo = False - - ssh.StartStrokingCount = 0 - - - ssh.StrokeTauntVal = -1 - - ssh.EdgeToRuinSecret = True - - - - - - - - ssh.dommePresent = True - ssh.contact1Present = False - ssh.contact2Present = False - ssh.contact3Present = False - - TeaseTimer.Stop() - - DeleteVariable("SYS_StrokeRound") - - mainPictureBox.Image = Nothing - ssh.SlideshowLoaded = False - - FrmSettings.domlevelNumBox.Value = My.Settings.DomLevel - FrmSettings.NBEmpathy.Value = My.Settings.DomEmpathy - - ' Github Patch - BTNPlaylist.Enabled = True - - If PNLWritingTask.Visible Then CloseApp(PNLWritingTask) - - End Sub @@ -16690,9 +16609,9 @@ restartInstantly: If Not ssh.Group.Contains(contact) Then ssh.Group = ssh.Group & contact ssh.GlitterTease = True - ChatAddSystemMessage(name & " has joined the Chat room", False) - Else - ssh.Group = ssh.Group.Replace(contact, "") + ChatAddSystemMessage(name & " has joined the Chat room", False) + Else + ssh.Group = ssh.Group.Replace(contact, "") ChatAddSystemMessage(name & " has left the Chat room", False) End If @@ -16777,7 +16696,7 @@ restartInstantly: Dim fsd As New SaveFileDialog With {.Filter = "Saved Session|*" & Path.GetExtension(SavedSessionDefaultPath) & "", .InitialDirectory = Path.GetDirectoryName(SavedSessionDefaultPath), .Title = "Select a destination to safe the sessin to.", - .filename = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, + .FileName = Now.ToString("yy-MM-dd_HH-mm-ss") & "_" & dompersonalitycombobox.Text, .AddExtension = True, .CheckPathExists = True, .OverwritePrompt = True, From e85e17ba7d582180cf238834df903b480d8aba08 Mon Sep 17 00:00:00 2001 From: Stefaf Date: Sun, 5 Nov 2017 18:16:57 +0100 Subject: [PATCH 137/143] Code Refactoring and Bugfixing * Shrinked down ResponseClean(String) to avoid code redundancy. Response lines in the [All]-Section are now unavailable in start scripts and after the orgasm decision (!) if the last script is running. This feature was intended for Patch 48/49 (0b1ecab330188f5c8cecbe22e536f0827b4127bd) but never worked. * Merged redundant chatbox event handlers. * Added MultipleEdges to StopEverything() since it caused a script freeze when @ InterruptLongEdge was called. It was unresolvable using the "CBT-Trick". * Simplified code and usage of custom Lazy Sub buttons. * Fixed issue where @ DayOfWeek was a day off. Added the possibility to use numbers as parameter, since localized day strings are useless for script exchange. The first day of the week is Monday. --- README.md | 10 + Tease AI/Classes/ContactData.vb | 10 +- Tease AI/Form1.Designer.vb | 31 +- Tease AI/Form1.vb | 715 +++++--------------------------- 4 files changed, 147 insertions(+), 619 deletions(-) diff --git a/README.md b/README.md index 6c791db..4e2db17 100644 --- a/README.md +++ b/README.md @@ -8,11 +8,21 @@ Stefaf: Integration of Class myDirectory: Status ongoing. # Changelog - Patch 55.4.0 * Commands: + + * Fixed issue where @DayOfWeek was a day off. Added the possibility to use numbers as parameter, since localized day strings are useless for script exchange. The first day of week is Monday. + * Command Filters: + + * Bugfixes: + + * Miscellaneous: * Reworked Glitter app to use proper html and CSS. It is now possible to reference relative imagepaths. If a feed is running a scriptfile given in @Glitter(ScriptName) is executed after the currently running script. The number of queued scripts is not limited. It is now possible to execute a specific script using the debug session window. + * Shrinked down ResponseClean(String) to avoid code redundancy. Response lines in the [All]-Section are now unavailable in start scripts and after the orgasm decision (!) if the last script is running. This feature was intended for Patch 48/49 but never worked. + * Added MultipleEdges to StopEverything() since it caused a script freeze when @InterruptLongEdge was called. It was unresolvable using the "CBT-Trick". + * Simplified code and usage of custom Lazy Sub buttons. # Changelog - Patch 55.3.0 diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index e372a7d..1395412 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -248,11 +248,11 @@ checkFolder: Friend Function GetRandom(tp As ContactType, newFolder As Boolean) As List(Of String) 'no need to check again since you already checked when creating the contact - 'If Check_ImageDir(tp) Then - Return LoadRandom(getCurrentBaseFolder(tp), newFolder) - 'Else - ' Return New List(Of String) - 'End If + If Check_ImageDir(tp) Then + Return LoadRandom(getCurrentBaseFolder(tp), newFolder) + Else + Return New List(Of String) + End If End Function Function LoadRandom(ByVal baseDirectory As String, newFolder As Boolean) As List(Of String) diff --git a/Tease AI/Form1.Designer.vb b/Tease AI/Form1.Designer.vb index c7c7527..75a3768 100644 --- a/Tease AI/Form1.Designer.vb +++ b/Tease AI/Form1.Designer.vb @@ -1577,24 +1577,24 @@ Partial Class Form1 'PicStripTSMIdommeSlideshow_GoToFirst ' Me.PicStripTSMIdommeSlideshow_GoToFirst.Name = "PicStripTSMIdommeSlideshow_GoToFirst" - Me.PicStripTSMIdommeSlideshow_GoToFirst.Size = New System.Drawing.Size(166, 22) + Me.PicStripTSMIdommeSlideshow_GoToFirst.Size = New System.Drawing.Size(167, 22) Me.PicStripTSMIdommeSlideshow_GoToFirst.Text = "Go To First Image" ' 'PicStripTSMIdommeSlideshowGoToLast ' Me.PicStripTSMIdommeSlideshowGoToLast.Name = "PicStripTSMIdommeSlideshowGoToLast" - Me.PicStripTSMIdommeSlideshowGoToLast.Size = New System.Drawing.Size(166, 22) + Me.PicStripTSMIdommeSlideshowGoToLast.Size = New System.Drawing.Size(167, 22) Me.PicStripTSMIdommeSlideshowGoToLast.Text = "Go To Last Image" ' 'PicStripTSMIdommeSlideshowTSS1 ' Me.PicStripTSMIdommeSlideshowTSS1.Name = "PicStripTSMIdommeSlideshowTSS1" - Me.PicStripTSMIdommeSlideshowTSS1.Size = New System.Drawing.Size(163, 6) + Me.PicStripTSMIdommeSlideshowTSS1.Size = New System.Drawing.Size(164, 6) ' 'PicStripTSMIdommeSlideshowLoadNewSlideshow ' Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Name = "PicStripTSMIdommeSlideshowLoadNewSlideshow" - Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Size = New System.Drawing.Size(166, 22) + Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Size = New System.Drawing.Size(167, 22) Me.PicStripTSMIdommeSlideshowLoadNewSlideshow.Text = "New Slideshow" ' 'StatusUpdates @@ -2092,25 +2092,25 @@ Partial Class Form1 ' Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AIBoxesToolStripMenuItem, Me.CommandGuideToolStripMenuItem, Me.OldDommeTagsToolStripMenuItem}) Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem" - Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(47, 20) + Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(48, 20) Me.ToolsToolStripMenuItem.Text = "Tools" ' 'AIBoxesToolStripMenuItem ' Me.AIBoxesToolStripMenuItem.Name = "AIBoxesToolStripMenuItem" - Me.AIBoxesToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.AIBoxesToolStripMenuItem.Size = New System.Drawing.Size(182, 22) Me.AIBoxesToolStripMenuItem.Text = "AI Boxes" ' 'CommandGuideToolStripMenuItem ' Me.CommandGuideToolStripMenuItem.Name = "CommandGuideToolStripMenuItem" - Me.CommandGuideToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.CommandGuideToolStripMenuItem.Size = New System.Drawing.Size(182, 22) Me.CommandGuideToolStripMenuItem.Text = "Command Guide" ' 'OldDommeTagsToolStripMenuItem ' Me.OldDommeTagsToolStripMenuItem.Name = "OldDommeTagsToolStripMenuItem" - Me.OldDommeTagsToolStripMenuItem.Size = New System.Drawing.Size(181, 22) + Me.OldDommeTagsToolStripMenuItem.Size = New System.Drawing.Size(182, 22) Me.OldDommeTagsToolStripMenuItem.Text = "Domme Tag Creator" ' 'MilovanaToolStripMenuItem1 @@ -3325,6 +3325,7 @@ Partial Class Form1 'BTNLS1 ' Me.BTNLS1.BackColor = System.Drawing.Color.White + Me.BTNLS1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LS1", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.BTNLS1.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.BTNLS1.FlatAppearance.BorderSize = 2 Me.BTNLS1.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -3334,7 +3335,7 @@ Partial Class Form1 Me.BTNLS1.Name = "BTNLS1" Me.BTNLS1.Size = New System.Drawing.Size(163, 31) Me.BTNLS1.TabIndex = 108 - Me.BTNLS1.Text = "Custom 1" + Me.BTNLS1.Text = Global.Tease_AI.My.MySettings.Default.LS1 Me.BTNLS1.UseVisualStyleBackColor = False ' 'BTNEdge @@ -3415,6 +3416,7 @@ Partial Class Form1 'BTNLS2 ' Me.BTNLS2.BackColor = System.Drawing.Color.White + Me.BTNLS2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LS2", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.BTNLS2.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.BTNLS2.FlatAppearance.BorderSize = 2 Me.BTNLS2.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -3424,7 +3426,7 @@ Partial Class Form1 Me.BTNLS2.Name = "BTNLS2" Me.BTNLS2.Size = New System.Drawing.Size(163, 31) Me.BTNLS2.TabIndex = 118 - Me.BTNLS2.Text = "Custom 2" + Me.BTNLS2.Text = Global.Tease_AI.My.MySettings.Default.LS2 Me.BTNLS2.UseVisualStyleBackColor = False ' 'BTNLS2Edit @@ -3460,6 +3462,7 @@ Partial Class Form1 'BTNLS3 ' Me.BTNLS3.BackColor = System.Drawing.Color.White + Me.BTNLS3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LS3", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.BTNLS3.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.BTNLS3.FlatAppearance.BorderSize = 2 Me.BTNLS3.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -3469,12 +3472,13 @@ Partial Class Form1 Me.BTNLS3.Name = "BTNLS3" Me.BTNLS3.Size = New System.Drawing.Size(163, 31) Me.BTNLS3.TabIndex = 121 - Me.BTNLS3.Text = "Custom 3" + Me.BTNLS3.Text = Global.Tease_AI.My.MySettings.Default.LS3 Me.BTNLS3.UseVisualStyleBackColor = False ' 'BTNLS4 ' Me.BTNLS4.BackColor = System.Drawing.Color.White + Me.BTNLS4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LS4", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.BTNLS4.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.BTNLS4.FlatAppearance.BorderSize = 2 Me.BTNLS4.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -3484,12 +3488,13 @@ Partial Class Form1 Me.BTNLS4.Name = "BTNLS4" Me.BTNLS4.Size = New System.Drawing.Size(163, 31) Me.BTNLS4.TabIndex = 124 - Me.BTNLS4.Text = "Custom 4" + Me.BTNLS4.Text = Global.Tease_AI.My.MySettings.Default.LS4 Me.BTNLS4.UseVisualStyleBackColor = False ' 'BTNLS5 ' Me.BTNLS5.BackColor = System.Drawing.Color.White + Me.BTNLS5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Tease_AI.My.MySettings.Default, "LS5", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.BTNLS5.FlatAppearance.BorderColor = System.Drawing.Color.Black Me.BTNLS5.FlatAppearance.BorderSize = 2 Me.BTNLS5.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -3499,7 +3504,7 @@ Partial Class Form1 Me.BTNLS5.Name = "BTNLS5" Me.BTNLS5.Size = New System.Drawing.Size(163, 31) Me.BTNLS5.TabIndex = 127 - Me.BTNLS5.Text = "Custom 5" + Me.BTNLS5.Text = Global.Tease_AI.My.MySettings.Default.LS5 Me.BTNLS5.UseVisualStyleBackColor = False ' 'PnlGlitter diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 987257c..5d98cdf 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -1088,17 +1088,6 @@ retryStart: - BTNLS1.Text = My.Settings.LS1 - - BTNLS2.Text = My.Settings.LS2 - - BTNLS3.Text = My.Settings.LS3 - - BTNLS4.Text = My.Settings.LS4 - - BTNLS5.Text = My.Settings.LS5 - - 'ImageThread.Start() @@ -1195,81 +1184,6 @@ retryStart: If CheckSpace = "" Then Return - If LazyEdit1 = True Then - If chatBox.Text <> "" Then - BTNLS1.Text = chatBox.Text - Else - BTNLS1.Text = ChatBox2.Text - End If - BTNLS1.Visible = True - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - My.Settings.LS1 = BTNLS1.Text - chatBox.Text = "" - ChatBox2.Text = "" - Return - End If - - If LazyEdit2 = True Then - If chatBox.Text <> "" Then - BTNLS2.Text = chatBox.Text - Else - BTNLS2.Text = ChatBox2.Text - End If - BTNLS2.Visible = True - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - My.Settings.LS2 = BTNLS2.Text - chatBox.Text = "" - ChatBox2.Text = "" - Return - End If - - If LazyEdit3 = True Then - If chatBox.Text <> "" Then - BTNLS3.Text = chatBox.Text - Else - BTNLS3.Text = ChatBox2.Text - End If - BTNLS3.Visible = True - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - My.Settings.LS3 = BTNLS3.Text - chatBox.Text = "" - ChatBox2.Text = "" - Return - End If - - If LazyEdit4 = True Then - If chatBox.Text <> "" Then - BTNLS4.Text = chatBox.Text - Else - BTNLS4.Text = ChatBox2.Text - End If - BTNLS4.Visible = True - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - My.Settings.LS4 = BTNLS4.Text - chatBox.Text = "" - ChatBox2.Text = "" - Return - End If - - If LazyEdit5 = True Then - If chatBox.Text <> "" Then - BTNLS5.Text = chatBox.Text - Else - BTNLS5.Text = ChatBox2.Text - End If - BTNLS5.Visible = True - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor - My.Settings.LS5 = BTNLS5.Text - chatBox.Text = "" - ChatBox2.Text = "" - Return - End If - If TimeoutTimer.Enabled = True Then TimeoutTimer.Stop() @@ -3024,329 +2938,84 @@ FoundResponse: End Sub Public Function ResponseClean(ByVal CleanResponse As String) As String + ResponseClean = "NULL" - 'TODO: Add Errorhandling. - Dim DomResponse As New StreamReader(ssh.ResponseFile) - Dim DRLines As New List(Of String) - Dim DRLineTotal As Integer - Dim SubState As String + Dim FilteredLines As New List(Of String) + Dim Section As String - DRLineTotal = -1 - DRLines.Clear() - Dim AddResponse As Boolean - AddResponse = False + Dim AddResponse As Boolean = False If My.Settings.Chastity = True Then If ssh.CBTCockFlag Then - SubState = "CBT Cock" - GoTo FoundState + Section = "CBT Cock" ElseIf ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then - SubState = "CBT Balls" - GoTo FoundState - End If - SubState = "Chastity" - GoTo FoundState - End If - - If ssh.FirstRound = True Then - SubState = "First Round" - GoTo FoundState - End If - - If ssh.EndTease = True Then - SubState = "After Tease" - GoTo FoundState - End If - - If ssh.CBTCockFlag = True Then - SubState = "CBT Cock" - GoTo FoundState - End If - - If ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then - SubState = "CBT Balls" - GoTo FoundState - End If - - If ssh.SubHoldingEdge = True Then - SubState = "Sub Holding Edge" - GoTo FoundState - End If - - If ssh.SubEdging = True Then - SubState = "Sub Edging" - GoTo FoundState - End If - - If ssh.SubStroking = True Then - SubState = "Sub Stroking" - GoTo FoundState - End If - - If ssh.BeforeTease = True Then - SubState = "Before Tease" - GoTo FoundState - End If - - SubState = "Not Stroking" - -FoundState: - - - If SubState = "Before Tease" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[Before Tease]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[Before Tease End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Before Tease]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - - If SubState = "Chastity" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[Chastity]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[Chastity End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Chastity]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "First Round" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[First Round]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[First Round End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[First Round]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "Sub Stroking" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[Stroking]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[Stroking End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Stroking]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "Not Stroking" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[Not Stroking]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[Not Stroking End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Not Stroking]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "Sub Edging" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[Edging]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[Edging End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Edging]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "Sub Holding Edge" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[Holding The Edge]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[Holding The Edge End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[Holding The Edge]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "CBT Cock" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[CBT Cock]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[CBT Cock End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[CBT Cock]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "CBT Balls" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[CBT Balls]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[CBT Balls End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[CBT Balls]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While + Section = "CBT Balls" + Else + Section = "Chastity" + End If + ElseIf ssh.BeforeTease = True Then + Section = "Before Tease" + ElseIf ssh.FirstRound = True Then + Section = "First Round" + ElseIf ssh.EndTease = True Then + Section = "After Tease" + ElseIf ssh.CBTCockFlag = True Then + Section = "CBT Cock" + ElseIf ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then + Section = "CBT Balls" + ElseIf ssh.SubHoldingEdge = True Then + Section = "Holding The Edge" + ElseIf ssh.SubEdging = True Then + Section = "Edging" + ElseIf ssh.SubStroking = True Then + Section = "Stroking" + Else + Section = "Not Stroking" End If - If SubState = "After Tease" Then + Dim RespLines As List(Of String) = Txt2List(ssh.ResponseFile) - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[After Tease]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[After Tease End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[After Tease]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If + For Each line As String In RespLines + If Trim(line).ToUpper = String.Format("[{0}]", Section).ToUpper Then + AddResponse = True + ElseIf Trim(line).ToUpper = String.Format("[{0} End]", Section).ToUpper Then + AddResponse = False + ElseIf AddResponse = True + FilteredLines.Add(line) + End If + Next - If SubState <> "After Tease" And SubState <> "Before Tease" Then + AddResponse = False - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[All]" Then + If Section <> "After Tease" And Section <> "Before Tease" Then + For Each line As String In RespLines + If Trim(line).ToUpper = "[All]".ToUpper Then AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[All End]" Then + ElseIf Trim(line).ToUpper = "[All End]".ToUpper Then AddResponse = False + ElseIf AddResponse = True + FilteredLines.Add(line) End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[All]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - + Next End If - - DomResponse.Close() - DomResponse.Dispose() - - - Using DomResponseAll As New StreamReader(ssh.ResponseFile) - - While DomResponseAll.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponseAll.ReadLine()) - If Trim(DRLines(DRLineTotal)) = "[All]" Then - AddResponse = True - End If - If Trim(DRLines(DRLineTotal)) = "[All End]" Then - AddResponse = False - End If - If AddResponse = False Or Trim(DRLines(DRLineTotal)) = "[All]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - - End Using - - ' ########### - - If DRLines.Count < 1 Then - CleanResponse = "NULL" - GoTo NullSkip + If FilteredLines.Count < 1 Then + Exit Function End If - - Try - DRLines = FilterList(DRLines) - ssh.ResponseLine = ssh.randomizer.Next(0, DRLines.Count) - CleanResponse = DRLines(ssh.ResponseLine) + FilteredLines = FilterList(FilteredLines) + ssh.ResponseLine = ssh.randomizer.Next(0, FilteredLines.Count) + ResponseClean = FilteredLines(ssh.ResponseLine) Catch ex As Exception Log.WriteError("Tease AI did not return a valid Response line from file: " & ssh.ResponseFile, ex, "ReponseClean(String)") - CleanResponse = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile + ResponseClean = "ERROR: Tease AI did not return a valid Response line from file: " & ssh.ResponseFile End Try - ssh.Responding = True - -NullSkip: - - - Return CleanResponse - - End Function @@ -13490,7 +13159,13 @@ VTSkip: End If If FilterString.Contains("@DayOfWeek(") Then - If GetMatch(FilterString, "@DayOfWeek(", WeekdayName(Weekday(DateAndTime.Now))) = False Then Return False + Dim Para As String = GetParentheses(FilterString, "@DayOfWeek(") + + If IsNumeric(Para) Then + If GetMatch(FilterString, "@DayOfWeek(", Weekday(DateAndTime.Now, FirstDayOfWeek.Monday)) = False Then Return False + Else + If GetMatch(FilterString, "@DayOfWeek(", WeekdayName(Weekday(DateAndTime.Now, FirstDayOfWeek.System),, FirstDayOfWeek.System)) = False Then Return False + End If End If If FilterString.Contains("@SetModule(") Then If ssh.SetModule <> "" Or ssh.BookmarkModule = True Then Return False @@ -13849,52 +13524,25 @@ VTSkip: End Try End Sub - Private Sub chatBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop - chatBox.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString - sendButton.PerformClick() - End Sub - - Private Sub chatBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragDrop - chatBox.Text = "" - ChatBox2.Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString + Private Sub chatBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop, ChatBox2.DragDrop + CType(sender, TextBox).Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString sendButton.PerformClick() End Sub - Private Sub chatBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter - If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then - e.Effect = DragDropEffects.Copy - End If - End Sub - - Private Sub chatBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ChatBox2.DragEnter + Private Sub chatBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragEnter, ChatBox2.DragEnter If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then e.Effect = DragDropEffects.Copy End If End Sub - Private Sub chatbox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles chatBox.KeyDown - If e.KeyCode = Keys.Return Then - sendButton.PerformClick() - e.SuppressKeyPress = True - End If - End Sub - - Private Sub chatbox2_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles ChatBox2.KeyDown + Private Sub chatbox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles chatBox.KeyDown, ChatBox2.KeyDown If e.KeyCode = Keys.Return Then sendButton.PerformClick() e.SuppressKeyPress = True End If End Sub - Private Sub chatBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress - If e.KeyChar = Chr(13) Then - e.Handled = True - ' sendButton.PerformClick() - e.KeyChar = Chr(0) - End If - End Sub - - Private Sub chatBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ChatBox2.KeyPress + Private Sub chatBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chatBox.KeyPress, ChatBox2.KeyPress If e.KeyChar = Chr(13) Then e.Handled = True ' sendButton.PerformClick() @@ -14587,6 +14235,7 @@ NoPlaylistEndFile: ssh.SubStroking = False ssh.SubEdging = False ssh.SubHoldingEdge = False + ssh.MultipleEdges = False ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False @@ -18886,57 +18535,29 @@ ReRoll: Public Sub GetShortcutChecked() - If CBHideShortcuts.Checked = True Then - TBShortYes.Visible = False - TBShortNo.Visible = False - TBShortEdge.Visible = False - TBShortSpeedUp.Visible = False - TBShortSlowDown.Visible = False - TBShortStop.Visible = False - TBShortStroke.Visible = False - TBShortCum.Visible = False - TBShortGreet.Visible = False - TBShortSafeword.Visible = False - - - BTNLS1.Width = 214 - BTNLS2.Width = 214 - BTNLS3.Width = 214 - BTNLS4.Width = 214 - BTNLS5.Width = 214 - - BTNLS1Edit.Visible = False - BTNLS2Edit.Visible = False - BTNLS3Edit.Visible = False - BTNLS4Edit.Visible = False - BTNLS5Edit.Visible = False - - Else - - TBShortYes.Visible = True - TBShortNo.Visible = True - TBShortEdge.Visible = True - TBShortSpeedUp.Visible = True - TBShortSlowDown.Visible = True - TBShortStop.Visible = True - TBShortStroke.Visible = True - TBShortCum.Visible = True - TBShortGreet.Visible = True - TBShortSafeword.Visible = True + TBShortYes.Visible = Not CBHideShortcuts.Checked + TBShortNo.Visible = Not CBHideShortcuts.Checked + TBShortEdge.Visible = Not CBHideShortcuts.Checked + TBShortSpeedUp.Visible = Not CBHideShortcuts.Checked + TBShortSlowDown.Visible = Not CBHideShortcuts.Checked + TBShortStop.Visible = Not CBHideShortcuts.Checked + TBShortStroke.Visible = Not CBHideShortcuts.Checked + TBShortCum.Visible = Not CBHideShortcuts.Checked + TBShortGreet.Visible = Not CBHideShortcuts.Checked + TBShortSafeword.Visible = Not CBHideShortcuts.Checked - BTNLS1.Width = 163 - BTNLS2.Width = 163 - BTNLS3.Width = 163 - BTNLS4.Width = 163 - BTNLS5.Width = 163 - BTNLS1Edit.Visible = True - BTNLS2Edit.Visible = True - BTNLS3Edit.Visible = True - BTNLS4Edit.Visible = True - BTNLS5Edit.Visible = True + BTNLS1.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS2.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS3.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS4.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS5.Width = If(CBHideShortcuts.Checked, 214, 163) - End If + BTNLS1Edit.Visible = Not CBHideShortcuts.Checked + BTNLS2Edit.Visible = Not CBHideShortcuts.Checked + BTNLS3Edit.Visible = Not CBHideShortcuts.Checked + BTNLS4Edit.Visible = Not CBHideShortcuts.Checked + BTNLS5Edit.Visible = Not CBHideShortcuts.Checked End Sub @@ -19005,32 +18626,41 @@ ReRoll: End Sub - Private Sub BTNLS1Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS1Edit.Click + Private Sub BtnLsEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS1Edit.Click, BTNLS2Edit.Click, BTNLS3Edit.Click, BTNLS4Edit.Click, BTNLS5Edit.Click + Dim TextToSet As String = "" + If sender Is BTNLS1Edit Then + TextToSet = My.Settings.LS1 + ElseIf sender Is BTNLS2Edit Then + TextToSet = My.Settings.LS2 + ElseIf sender Is BTNLS3Edit Then + TextToSet = My.Settings.LS3 + ElseIf sender Is BTNLS4Edit Then + TextToSet = My.Settings.LS4 + ElseIf sender Is BTNLS5Edit Then + TextToSet = My.Settings.LS5 + Else + Exit Sub + End If - LazyEdit2 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit5 = False + TextToSet = InputBox("Enter a text to set.", "Set custom Lazy Sub Text", TextToSet) - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor + If TextToSet.Trim = "" Then + MessageBox.Show("Setting new Lazy Sub text has been aborted.", "Abort", MessageBoxButtons.OK, MessageBoxIcon.Information) + Exit Sub + End If + If sender Is BTNLS1Edit Then + My.Settings.LS1 = TextToSet + ElseIf sender Is BTNLS2Edit Then + My.Settings.LS2 = TextToSet + ElseIf sender Is BTNLS3Edit Then + My.Settings.LS3 = TextToSet + ElseIf sender Is BTNLS4Edit Then + My.Settings.LS4 = TextToSet + ElseIf sender Is BTNLS5Edit Then + My.Settings.LS5 = TextToSet - If LazyEdit1 = False Then - BTNLS1Edit.BackColor = Color.ForestGreen - BTNLS1Edit.ForeColor = Color.White - LazyEdit1 = True - Else - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - LazyEdit1 = False End If End Sub @@ -19046,35 +18676,6 @@ ReRoll: End Sub - Private Sub BTNLS2Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS2Edit.Click - - - LazyEdit1 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit5 = False - - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor - - If LazyEdit2 = False Then - BTNLS2Edit.BackColor = Color.ForestGreen - BTNLS2Edit.ForeColor = Color.White - LazyEdit2 = True - Else - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - LazyEdit2 = False - End If - - End Sub - Private Sub BTNLS3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS3.Click @@ -19086,36 +18687,6 @@ ReRoll: End Sub - Private Sub BTNLS3Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS3Edit.Click - - - LazyEdit2 = False - LazyEdit1 = False - LazyEdit4 = False - LazyEdit5 = False - - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor - - - If LazyEdit3 = False Then - BTNLS3Edit.BackColor = Color.ForestGreen - BTNLS3Edit.ForeColor = Color.White - LazyEdit3 = True - Else - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - LazyEdit3 = False - End If - - End Sub - Private Sub BTNLS4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS4.Click @@ -19127,36 +18698,6 @@ ReRoll: End Sub - Private Sub BTNLS4Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS4Edit.Click - - - LazyEdit2 = False - LazyEdit3 = False - LazyEdit1 = False - LazyEdit5 = False - - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor - - - If LazyEdit4 = False Then - BTNLS4Edit.BackColor = Color.ForestGreen - BTNLS4Edit.ForeColor = Color.White - LazyEdit4 = True - Else - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - LazyEdit4 = False - End If - - End Sub - Private Sub BTNLS5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS5.Click @@ -19168,34 +18709,6 @@ ReRoll: End Sub - Private Sub BTNLS5Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLS5Edit.Click - - - LazyEdit2 = False - LazyEdit3 = False - LazyEdit4 = False - LazyEdit1 = False - - BTNLS2Edit.BackColor = My.Settings.ButtonColor - BTNLS2Edit.ForeColor = My.Settings.TextColor - BTNLS3Edit.BackColor = My.Settings.ButtonColor - BTNLS3Edit.ForeColor = My.Settings.TextColor - BTNLS4Edit.BackColor = My.Settings.ButtonColor - BTNLS4Edit.ForeColor = My.Settings.TextColor - BTNLS1Edit.BackColor = My.Settings.ButtonColor - BTNLS1Edit.ForeColor = My.Settings.TextColor - - If LazyEdit5 = False Then - BTNLS5Edit.BackColor = Color.ForestGreen - BTNLS5Edit.ForeColor = Color.White - LazyEdit5 = True - Else - BTNLS5Edit.BackColor = My.Settings.ButtonColor - BTNLS5Edit.ForeColor = My.Settings.TextColor - LazyEdit5 = False - End If - - End Sub #End Region ' Lazy-Sub From eded67f5ba2b5045f1ad7600a397551bb938765d Mon Sep 17 00:00:00 2001 From: Stefaf Date: Tue, 14 Nov 2017 09:37:41 +0100 Subject: [PATCH 138/143] Chat HTML Rework This commit contains a rework of all HTML-Code in Form1. The handling of HTML-Code is now slightly different: Every available information is written to the chat-window (timestamps, names, exceptions). To hide or show specific elements (i.e.:Domme is typing...) the page style sheet is generated according the the user settings on every change. This allows us to alter color, style and visibility of previous messages. The webtease mode and Risky Pick are handled different. Here we get last element in id "Chat" and display it. * Reworked chat window html code to enable the usage of CSS. * Moved all WebBrowser and HTML-Related Code from Form1.vb to Chat.vb. * System, Emote, Error and regular Messages are now unified to increase maintainability. * All file paths in Exceptions and the "@" input messages are now links. When you click a link it will open it using your systems default program. * @ WritingTask had to be rewritten, since it almost completely consisted out of HTML-Code. * Added Support of relative image paths. * Bugfixes: * Opening the WebBrowser context menu during an update won't cause a script freeze any more. It will display a message and the script will continue as normal. * Fixes issue of infinite loops and IndexOutOfRange Exceptions in Glitter-App, if there are no lines or duplicate lines for a contact. This issue was introduced in Commit fe04ce973629e482b65aa6e52f1dfaa527939578. * Miscellanious: * Overhauled the fresh implemented "Write exceptions to chat"-feature. Now every exception written to log, is also written to the chat window. It is no longer depending on a running session and called without IllegalCrossThreadCalls. If an exception occurs it is written to the chat. --- Tease AI/ApplicationEvents.vb | 20 + Tease AI/Classes/Common.vb | 14 +- Tease AI/Classes/ContactData.vb | 6 +- Tease AI/Classes/Log.vb | 6 +- Tease AI/Classes/State.vb | 16 +- Tease AI/Classes/mySettings_Partial.vb | 1 - Tease AI/Form1.vb | 791 +++++------------- Tease AI/Form1/Chat.vb | 335 ++++++++ Tease AI/Form1/ImageFuctions.vb | 14 - Tease AI/My Project/Resources.Designer.vb | 18 + Tease AI/My Project/Resources.resx | 6 + Tease AI/Resources/CSS/ChatFallbackStyle.css | 22 + .../Resources/CSS/GlitterFallbackStyle.css | 25 + Tease AI/Tease AI.vbproj | 7 + 14 files changed, 655 insertions(+), 626 deletions(-) create mode 100644 Tease AI/Form1/Chat.vb create mode 100644 Tease AI/Resources/CSS/ChatFallbackStyle.css create mode 100644 Tease AI/Resources/CSS/GlitterFallbackStyle.css diff --git a/Tease AI/ApplicationEvents.vb b/Tease AI/ApplicationEvents.vb index 9852bc7..255a2b3 100644 --- a/Tease AI/ApplicationEvents.vb +++ b/Tease AI/ApplicationEvents.vb @@ -38,5 +38,25 @@ Namespace My Session = New SessionState End Sub + ''' ========================================================================================================= + ''' + ''' Prints an Exception entry in the chatwindow if Form1 is available. This function uses INVOKE on Form1. + ''' + ''' Represents a clear text message to display. + ''' The occurred exception. + Public Sub HandledException(msg As String, ex As Exception) + If Form1 Is Nothing Then Exit Sub + If Form1.IsHandleCreated = False Then Exit Sub + + If Form1.InvokeRequired Then + Form1.Invoke(Sub() HandledException(msg, ex)) + Exit Sub + End If + + Form1.ChatAddException(msg, ex) + + End Sub + + End Class End Namespace diff --git a/Tease AI/Classes/Common.vb b/Tease AI/Classes/Common.vb index 4c844f9..9c315cc 100644 --- a/Tease AI/Classes/Common.vb +++ b/Tease AI/Classes/Common.vb @@ -94,8 +94,7 @@ Public Class Common FswChache.Add(tmpString, tmpFsw) Catch ex As Exception - Log.WriteError("TxtCache: Unable to Create FileSystemWatcher for:" & Filepath, ex, "TxtCache Create FileSystemWatcher") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to Create FileSystemWatcher for: " & Filepath & ".", False) + Log.WriteError("TxtCache: Unable to Create FileSystemWatcher for:" & Filepath, ex, "TxtCache Create FileSystemWatcher") End Try End Sub @@ -190,8 +189,7 @@ Public Class Common '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error loading TextFile: """ & GetText & """") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading TextFile: " & GetText & "", False) + Log.WriteError(ex.Message, ex, "Error loading TextFile: """ & GetText & """") End Try Return New List(Of String) End Function @@ -230,8 +228,7 @@ Public Class Common '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error loading TextLine: " & GetText) - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading TextLine: " & GetText & "", False) + Log.WriteError(ex.Message, ex, "Error loading TextLine: " & GetText) End Try Return "" End Function @@ -271,7 +268,6 @@ Public Class Common '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Error removing TextLine: """ & Searchpattern & """ from file """ & Filepath & """") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error removing TextLine: " & Searchpattern & " from file: " & Filepath & "", False) Return 0 End Try End Function @@ -384,9 +380,7 @@ Public Class Common ' All Errors - But image was loaded so return it. '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("Exception while saving image: """ & uri & "") - Log.WriteError("Exception while saving image: """ & uri & "", ex, "Exception while saving image") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception while saving image: " & uri & "", False) - Return rtnImage + Log.WriteError("Exception while saving image: """ & uri & "", ex, "Exception while saving image") Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index 1395412..caff408 100644 --- a/Tease AI/Classes/ContactData.vb +++ b/Tease AI/Classes/ContactData.vb @@ -560,8 +560,7 @@ SetForwardImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Exception in GetDommeImage()", ex, "") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception in GetDommeImage().", False) + Log.WriteError("Exception in GetDommeImage()", ex, "") Finally '⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ Finally ⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑⚑ #If TRACE Then @@ -740,8 +739,7 @@ redo: ApplyTextedTags = ApplyTextedTags.Replace("#Tag", "") Catch ex As Exception - Log.WriteError(ex.Message, ex, "ApplyTextedTags(String)") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: ApplyTextedTags(String).", False) + Log.WriteError("Exception on ApplyTextedTags(String)", ex, "ApplyTextedTags(String)") End Try End Function diff --git a/Tease AI/Classes/Log.vb b/Tease AI/Classes/Log.vb index 58c5fba..e9c86a5 100644 --- a/Tease AI/Classes/Log.vb +++ b/Tease AI/Classes/Log.vb @@ -6,7 +6,7 @@ Public Class Log Friend Shared Sub WriteError(ByVal msg As String, - ByVal Exception As Exception, ByVal title As String) + ByVal exception As Exception, ByVal title As String) Try Trace.Write("Exception occured: " & msg) Dim TargetFilePath As String = Application.StartupPath & @@ -34,11 +34,13 @@ Public Class Log s1.Write("Version: " & My.Application.Info.Version.ToString & vbCrLf) s1.Write("Title: " & title & vbCrLf) s1.Write("Message: " & msg & vbCrLf) - s1.Write("Exceptions: " & Replace(ExceptonToString(Exception), vbCrLf, vbCrLf & vbTab) & vbCrLf) + s1.Write("Exceptions: " & Replace(ExceptonToString(exception), vbCrLf, vbCrLf & vbTab) & vbCrLf) s1.Write(vbCrLf & vbCrLf) s1.Write("~~~~~~~~~~~~~~~~~~~~Application.StackTrace~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & StString & vbCrLf & vbCrLf) End Using End Using + + My.Application.HandledException(msg, exception) Catch ex As Exception Trace.Write("Log-Error: " & ex.Message) End Try diff --git a/Tease AI/Classes/State.vb b/Tease AI/Classes/State.vb index 07df95e..acf2c8c 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -1188,17 +1188,15 @@ Public Class SessionState ' Hide Cencorshipbar , if no game is running If CensorshipGame = True Or CensorshipTimer_enabled = False Then .CensorshipBar.Visible = False - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' Set Chat and StrokePace - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Set Chat and StrokePace + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - .ChatText.DocumentText = Chat - .ChatText2.DocumentText = Chat - .ChatReadyState() + activateForm.ChatUpdate() - ' To update the threadsafe Metronome StrokePace - ' Only needs to be done on activation - .StrokePace = StrokePace + ' To update the threadsafe Metronome StrokePace + ' Only needs to be done on activation + .StrokePace = StrokePace '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' Set Timer Intervals diff --git a/Tease AI/Classes/mySettings_Partial.vb b/Tease AI/Classes/mySettings_Partial.vb index 35fbf7d..66658cf 100644 --- a/Tease AI/Classes/mySettings_Partial.vb +++ b/Tease AI/Classes/mySettings_Partial.vb @@ -250,7 +250,6 @@ Error_All: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Exception while duplicating user.config.") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Exception while duplicating user.config.", False) End Try End Sub diff --git a/Tease AI/Form1.vb b/Tease AI/Form1.vb index 5d98cdf..10757db 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -204,7 +204,7 @@ Public Class Form1 End Try - SaveChatLog(False) + If ssh.SaidHello Then SaveChatLog(False) Try FrmSettings.Close() @@ -234,23 +234,6 @@ Public Class Form1 End Try End Sub - Private Sub SaveChatLog(ByVal IsAutosave As Boolean) - If ChatText.DocumentText.Length > 300 Then - - If (Not System.IO.Directory.Exists(Application.StartupPath & "\Chatlogs\")) Then - System.IO.Directory.CreateDirectory(Application.StartupPath & "\Chatlogs\") - End If - - If IsAutosave = True And FrmSettings.CBAutosaveChatlog.Checked = True Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) - - ElseIf IsAutosave = False And FrmSettings.CBSaveChatlogExit.Checked = True Then - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\" & DateTime.Now.ToString("MM.dd.yyyy hhmm") & " chatlog.html", ChatText.DocumentText, False) - End If - - End If - End Sub - Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs) TeaseAINotify.Visible = False @@ -800,7 +783,7 @@ retryStart: FrmSplash.PBSplash.Value += 1 FrmSplash.LBLSplash.Text = "Configuring media player..." FrmSplash.Refresh() - + DomWMP.uiMode = "none" If My.Settings.DomAVStretch = False Then domAvatar.SizeMode = PictureBoxSizeMode.Zoom @@ -1171,19 +1154,8 @@ retryStart: Private Sub sendButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendButton.Click - - - - - - Dim CheckSpace As String = chatBox.Text - - If CheckSpace = "" Then CheckSpace = ChatBox2.Text - - CheckSpace = CheckSpace.Replace(" ", "") - - If CheckSpace = "" Then Return - + ' Check for empty or whitespaced input. + If String.IsNullOrWhiteSpace(chatBox.Text & ChatBox2.Text) Then Exit Sub If TimeoutTimer.Enabled = True Then TimeoutTimer.Stop() @@ -1192,9 +1164,10 @@ retryStart: Return End If - ssh.ChatString = chatBox.Text + ssh.ChatString = If(Trim(chatBox.Text) <> "", chatBox.Text, ChatBox2.Text) - If ssh.ChatString = "" Then ssh.ChatString = ChatBox2.Text + chatBox.Text = "" + ChatBox2.Text = "" If CBShortcuts.Checked = True Then @@ -1212,29 +1185,12 @@ retryStart: End If - chatBox.Text = "" - ChatBox2.Text = "" - - If ssh.ChatString.Substring(0, 1) = "@" Then - If ssh.ChatString = "@" Then - ssh.Chat = "" & ssh.Chat & ssh.ChatString.Replace("@", "") & "::: TYPO :::
::: FileText = " & ssh.FileText & " ::: LineVal = " & ssh.StrokeTauntVal & "
::: TauntText = " & ssh.TauntText & " ::: LineVal = " & ssh.TauntTextCount & "
::: ResponseFile = " & ssh.ResponseFile & " ::: LineVal = " & ssh.ResponseLine & "
" - Else - ssh.Chat = "" & ssh.Chat & ssh.ChatString.Replace("@", "") & " :::
::: FileText = " & ssh.FileText & " ::: LineVal = " & ssh.StrokeTauntVal & "
::: TauntText = " & ssh.TauntText & " ::: LineVal = " & ssh.TauntTextCount & "
::: ResponseFile = " & ssh.ResponseFile & " ::: LineVal = " & ssh.ResponseLine & "
" - End If - - ssh.Chat = "" & ssh.Chat & "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - chatBox.Text = "" - ChatBox2.Text = "" - - SaveChatLog(True) + If ssh.ChatString.Substring(0, 1) = "@" Then + ChatAddScriptPosInfo(ssh.ChatString) - Return + Exit Sub End If If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then @@ -1244,47 +1200,13 @@ retryStart: - ' Add timestamps to domme response if the option is checked in the menu - If FrmSettings.timestampCheckBox.Checked = True Then - ssh.Chat = ssh.Chat & "" & (Date.Now.ToString("hh:mm tt ")) & "" - End If - - If ssh.WritingTaskFlag = True Then GoTo WritingTaskLine - - Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) - - If ssh.SubWroteLast = True And FrmSettings.shownamesCheckBox.Checked = False Then - - ssh.Chat = "" & ssh.Chat & "" & ssh.ChatString & "
" - ssh.Chat = "" & ssh.Chat & "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - Else - - ssh.Chat = "" & ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" - ssh.Chat = "" & ssh.Chat & "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - End If - - - - ScrollChatDown() + If ssh.WritingTaskFlag = True Then GoTo WritingTaskLine - SaveChatLog(True) + ChatAddMessage(My.Settings.SubName, ssh.ChatString) - If ssh.IsTyping = True Then - ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatReadyState() - End If @@ -1474,159 +1396,91 @@ NoPlaylistStartFile: WritingTaskLine: If ssh.WritingTaskFlag = True Then + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Writing Task + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + + ' ##################### Evaluate Input ######################## + Dim InputWrong, TaskTimeout, TaskFailed, TaskSuccess As Boolean If ssh.ChatString = LBLWritingTaskText.Text Then ssh.WritingTaskLinesWritten += 1 ssh.WritingTaskLinesRemaining -= 1 - LBLLinesWritten.Text = ssh.WritingTaskLinesWritten LBLLinesRemaining.Text = ssh.WritingTaskLinesRemaining - If ssh.SubWroteLast = True And FrmSettings.shownamesCheckBox.Checked = False Then - ssh.Chat = "" & ssh.Chat & "" - If CBWritingProgress.Checked = True Then - ssh.Chat = "" & ssh.Chat & ssh.ChatString & "
 " _ - & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" - If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining", "Time Expired") - ssh.Chat = ssh.Chat.Replace(" 1 lines", " 1 line") - ssh.Chat = ssh.Chat.Replace(" 0 lines remaining", " Task Completed") - Else - ssh.Chat = "" & ssh.Chat & ssh.ChatString & "
" - End If - - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - Else - ssh.Chat = "" & ssh.Chat & "" - - If CBWritingProgress.Checked = True Then - ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" _ - & "" & "Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining
" - If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Correct: " & ssh.WritingTaskLinesRemaining & " lines remaining", "Time Expired") - ssh.Chat = ssh.Chat.Replace(" 1 lines", " 1 line") - ssh.Chat = ssh.Chat.Replace(" 0 lines remaining", " Task Completed") - Else - ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" - End If + If ssh.WritingTaskLinesRemaining <= 0 Then TaskSuccess = True - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - End If - - SaveChatLog(True) + Else - If ssh.IsTyping = True Then + InputWrong = True - ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatReadyState() - End If + ssh.WritingTaskMistakesMade += 1 + LBLMistakesMade.Text = ssh.WritingTaskMistakesMade - chatBox.Text = "" - ChatBox2.Text = "" + If ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade <= 0 Then TaskFailed = True - ssh.SubWroteLast = True + End If + If ssh.WritingTaskCurrentTime < 1 And My.Settings.TimedWriting = True And ssh.WritingTaskFlag = True Then + TaskTimeout = True + End If - If ssh.WritingTaskLinesRemaining = 0 Then - ClearWriteTask() - ssh.ScriptTick = 3 - ScriptTimer.Start() - End If + ' ################# Generate output text ###################### + Dim ProgrText As String = "" + Dim OutColor As String = "" + Dim OutHtml As String = "{1}" - If ssh.WritingTaskCurrentTime < 1 And My.Settings.TimedWriting = True And ssh.WritingTaskFlag = True Then - ClearWriteTask() - ssh.SkipGotoLine = True - ssh.FileGoto = "Failed Writing Task" - GetGoto() - ssh.ScriptTick = 4 - ScriptTimer.Start() + If TaskTimeout Or TaskFailed Or InputWrong Then + If TaskTimeout Then + ProgrText = "Time Expired" + ElseIf TaskFailed Then + ProgrText = "Task Failed" + ElseIf InputWrong Then + ProgrText = String.Format("Wrong: {0} mistakes remaining", ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) + If ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade = 1 Then ProgrText = ProgrText.Replace("mistakes", "mistake") End If - + OutColor = "red" Else - - If ssh.SubWroteLast = True And FrmSettings.shownamesCheckBox.Checked = False Then - - If CBWritingProgress.Checked = True Then - ssh.Chat = "" & ssh.Chat & "" & ssh.ChatString & "
" & - "" & "Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & - " mistakes remaining
" - If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & " mistakes remaining", "Time Expired") - ssh.Chat = ssh.Chat.Replace(" 1 mistakes", " 1 mistake") - ssh.Chat = ssh.Chat.Replace(" 0 mistakes remaining", " Task Failed") - Else - ssh.Chat = "" & ssh.Chat & "" & ssh.ChatString & "
" - End If - - ssh.Chat = "" & ssh.Chat & "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - + If TaskSuccess Then + ProgrText = "Task completed successfully" Else - - If CBWritingProgress.Checked = True Then - ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" & - "" & "Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & - " mistakes remaining
" - If FrmSettings.TimedWriting.Checked = True And ssh.WritingTaskCurrentTime < 1 Then ssh.Chat = ssh.Chat.Replace("Wrong: " & (ssh.WritingTaskMistakesAllowed - ssh.WritingTaskMistakesMade) - 1 & " mistakes remaining", "Time Expired") - ssh.Chat = ssh.Chat.Replace(" 1 mistakes", " 1 mistake") - ssh.Chat = ssh.Chat.Replace(" 0 mistakes remaining", " Task Failed") - Else - ssh.Chat = ssh.Chat & "" & subName.Text & ": " & ssh.ChatString & "
" - End If - - ssh.Chat = "" & ssh.Chat & "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - + ProgrText = String.Format("Correct: {0} lines remaining", ssh.WritingTaskLinesRemaining) + If ssh.WritingTaskLinesRemaining = 1 Then ProgrText = ProgrText.Replace("lines", "line") End If - SaveChatLog(True) - - If ssh.IsTyping = True Then + OutColor = "green" + End If - ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatReadyState() - End If + ' ####################### Print output ######################## + ChatAddMessage(My.Settings.SubName, String.Format(OutHtml, OutColor, ssh.ChatString), True) + ChatAddWritingTaskInfo(String.Format(OutHtml, OutColor, ProgrText)) - ssh.SubWroteLast = True + ' ##################### Continue script? ###################### + If TaskTimeout Or TaskFailed Then - ssh.WritingTaskMistakesMade += 1 - LBLMistakesMade.Text = ssh.WritingTaskMistakesMade + ClearWriteTask() + ssh.SkipGotoLine = True + ssh.FileGoto = "Failed Writing Task" + GetGoto() + ssh.ScriptTick = 4 + ScriptTimer.Start() - If ssh.WritingTaskMistakesMade = ssh.WritingTaskMistakesAllowed Then - ClearWriteTask() - ssh.SkipGotoLine = True - ssh.FileGoto = "Failed Writing Task" - GetGoto() - ssh.ScriptTick = 4 - ScriptTimer.Start() - End If + ElseIf TaskSuccess Then - If ssh.WritingTaskCurrentTime < 1 And My.Settings.TimedWriting = True And ssh.WritingTaskFlag = True Then - ClearWriteTask() - ssh.SkipGotoLine = True - ssh.FileGoto = "Failed Writing Task" - GetGoto() - ssh.ScriptTick = 4 - ScriptTimer.Start() - End If + ClearWriteTask() + ssh.ScriptTick = 3 + ScriptTimer.Start() End If + + If ssh.randomWriteTask Then setWriteTask() + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' Writing Task - End + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ End If If ssh.AFK And Not ssh.YesOrNo Then Return @@ -3574,13 +3428,10 @@ NonModuleEnd: If ssh.RiskyEdges = True Then ssh.RiskyEdges = False If ssh.LastScript = True Then ssh.LastScript = False - Dim SaveChat As String = ssh.Chat SaveChatLog(False) ssh.Reset() FrmSettings.LockOrgasmChances(False) mainPictureBox.Image = Nothing - ChatText.DocumentText = SaveChat - ChatText2.DocumentText = SaveChat Exit Sub End If If ssh.HypnoGen = True Then @@ -3985,7 +3836,7 @@ ResumeGotoSearch: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") + Log.WriteError("Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """", ex, "Exception occured in GetGoto()") ' Dim GotoLikeList As New List(Of String) ' GotoLikeList = Txt2List(GotoText) @@ -4164,21 +4015,9 @@ CancelGoto: GoTo SkipIsTyping End If - ' If FrmSettings.CBWebtease.Checked = True Then GoTo SkipIsTyping + ' ###### display "is typing..." message. + ChatUpdate() - If FrmSettings.CBWebtease.Checked = True Then - - ChatText.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" - ChatText2.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" - ChatReadyState() - - Else - - ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatReadyState() - - End If SkipIsTyping: @@ -4251,7 +4090,7 @@ SkipIsTyping: If FrmSettings.teaseRadio.Checked = True And ssh.JustShowedBlogImage = False And ssh.TeaseVideo = False And Not ssh.DomTask.Contains("@NewBlogImage") And ssh.NullResponse = False _ And ssh.SlideshowLoaded = True And Not ssh.DomTask.Contains("@ShowButtImage") And Not ssh.DomTask.Contains("@ShowBoobsImage") And Not ssh.DomTask.Contains("@ShowButtsImage") _ And Not ssh.DomTask.Contains("@ShowBoobsImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ - And UCase(ssh.DomTask) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False And ssh.MultiTauntPictureHold = False Then + And UCase(ssh.DomTask) <> "@SystemMessage Tease AI has been reset" And ssh.JustShowedSlideshowImage = False And ssh.MultiTauntPictureHold = False Then ' Begin Next Button ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TryNextWithTease: @@ -4585,78 +4424,21 @@ NullResponse: 'SUGGESTION: (Stefaf) All Writing to the Chatbox and Wating for fetched Images shoud be in a separat Function. - Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) - If ssh.NullResponse = False And ssh.DomTask <> "" Then - - If UCase(ssh.DomTask) = "TEASE AI HAS BEEN RESET" Then ssh.DomTask = "Tease AI has been reset" - - If ssh.SysMes = True Then + ' ##################### System Message ######################## ChatAddSystemMessage(ssh.DomTask, False) ssh.SysMes = False - GoTo EndSysMes - End If - - If ssh.EmoMes = True Then - ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomTask & "
" + ElseIf ssh.EmoMes = True Then + ' ###################### Emote Message ######################## + ChatAddEmoteMessage(ssh.contactToUse.TypeName, ssh.DomTask, True) ssh.EmoMes = False - GoTo EndSysMes - End If - - ' Add timestamps to domme response if the option is checked in the menu - If FrmSettings.timestampCheckBox.Checked = True And FrmSettings.CBWebtease.Checked = False Then - ssh.Chat = ssh.Chat & "" & (Date.Now.ToString("hh:mm tt ")) & "" - End If - - - - If ssh.SubWroteLast = False And FrmSettings.shownamesCheckBox.Checked = False Then - - - If FrmSettings.CBWebtease.Checked = True Then - ssh.Chat = "" & "" & "
" & ssh.DomTask & "

" - Else - ssh.Chat = "" & "" & ssh.Chat & ssh.DomTask & "
" - End If - - - - If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" - - Else - - - If FrmSettings.CBWebtease.Checked = True Then - ssh.Chat = "" & "" & "
" & ssh.DomTask & "

" - Else - ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" - End If - - - - - - ssh.TypeToggle = 0 - - If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomTask & "
" - + ' ##################### Regular Message ####################### + ChatAddMessage(ssh.contactToUse.TypeName, ssh.DomTask, True) + If ssh.SubWroteLast = True Then ssh.TypeToggle = 0 End If - -EndSysMes: - - - ssh.SubWroteLast = False - End If HypNoResponse: @@ -4697,14 +4479,12 @@ DommeSlideshowFallback: ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ChatAddSystemMessage(ex.ToString, False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ Log.WriteError("Error occurred while displaying image. Fallback Failed.", ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -4716,12 +4496,7 @@ DommeSlideshowFallback: ' #################### Update ChatText ######################## ' Since ssh.Chat is not modified on NullResponse etc. we can display it every time. ' --> This will disallow to scroll up in chat. - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - ScrollChatDown() - - SaveChatLog(True) + ChatUpdate() ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ @@ -4882,13 +4657,10 @@ DommeSlideshowFallback: If ssh.EndSession = True Then ssh.EndSession = False - Dim SaveChat As String = ssh.Chat SaveChatLog(False) ssh.Reset() FrmSettings.LockOrgasmChances(False) mainPictureBox.Image = Nothing - ChatText.DocumentText = SaveChat - ChatText2.DocumentText = SaveChat End If If ssh.SubGaveUp = True Then @@ -4923,7 +4695,7 @@ DommeSlideshowFallback: End If End If - If ssh.giveUpReturn Then + If ssh.giveUpReturn Then ssh.ShowModule = True ssh.AskedToGiveUpSection = False ScriptTimer.Start() @@ -5024,23 +4796,8 @@ DommeSlideshowFallback: GoTo SkipIsTyping End If - If FrmSettings.CBWebtease.Checked = True Then - - ChatText.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" - ChatText2.DocumentText = ssh.Chat & "
" & ssh.tempDomName & " is typing...
" - ChatReadyState() - - Else - - ChatText.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & ssh.tempDomName & " is typing..." - ChatReadyState() - - End If - - - - + ' ###### display "is typing..." message. + ChatUpdate() SkipIsTyping: @@ -5098,7 +4855,7 @@ NullResponseLine: If FrmSettings.teaseRadio.Checked = True And ssh.JustShowedBlogImage = False And ssh.TeaseVideo = False And Not ssh.DomChat.Contains("@NewBlogImage") And ssh.NullResponse = False _ And ssh.SlideshowLoaded = True And Not ssh.DomChat.Contains("@ShowButtImage") And Not ssh.DomChat.Contains("@ShowBoobsImage") And Not ssh.DomChat.Contains("@ShowButtsImage") _ And Not ssh.DomChat.Contains("@ShowBoobImage") And ssh.LockImage = False And ssh.CustomSlideEnabled = False And ssh.RapidFire = False _ - And UCase(ssh.DomChat) <> "TEASE AI HAS BEEN RESET" And ssh.JustShowedSlideshowImage = False Then + And UCase(ssh.DomChat) <> "@SystemMessage Tease AI has been reset" And ssh.JustShowedSlideshowImage = False Then ' Begin Next Button ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ -5289,65 +5046,23 @@ TryNextWithTease: If ssh.NullResponse = True Or ssh.DomChat = "" Or ssh.DomChat Is Nothing Then GoTo NullResponseLine2 - If UCase(ssh.DomChat) = "TEASE AI HAS BEEN RESET" Then ssh.DomChat = "Tease AI has been reset" - Dim TextColor As String = Color2Html(My.Settings.ChatTextColor) + If ssh.SysMes = True Then + ' ##################### System Message ######################## ChatAddSystemMessage(ssh.DomChat, False) ssh.SysMes = False - GoTo EndSysMes - End If - - If ssh.EmoMes = True Then - ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ElseIf ssh.EmoMes = True Then + ' ###################### Emote Message ######################## + ChatAddEmoteMessage(ssh.contactToUse.TypeName, ssh.DomTask, True) ssh.EmoMes = False - GoTo EndSysMes - End If - - ' Add timestamps to domme response if the option is checked in the menu - If FrmSettings.timestampCheckBox.Checked = True And FrmSettings.CBWebtease.Checked = False Then - ssh.Chat = ssh.Chat & "" & (Date.Now.ToString("hh:mm tt ")) & "" - End If - - 'Debug.Print("DomChat = " & DomChat) - - If ssh.SubWroteLast = False And FrmSettings.shownamesCheckBox.Checked = False Then - - - If FrmSettings.CBWebtease.Checked = True Then - ssh.Chat = "" & "" & "
" & ssh.DomChat & "

" - Else - ssh.Chat = "" & "" & ssh.Chat & ssh.DomChat & "
" - End If - - - - If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" - Else - - If FrmSettings.CBWebtease.Checked = True Then - ssh.Chat = "" & "" & "
" & ssh.DomChat & "

" - Else - ssh.Chat = "" & ssh.Chat & "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" - End If - - ssh.TypeToggle = 0 - - If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & ssh.contactToUse.TypeName & ": " & ssh.DomChat & "
" - + ' ##################### Regular Message ####################### + ChatAddMessage(ssh.contactToUse.TypeName, ssh.DomChat, True) + If ssh.SubWroteLast Then ssh.TypeToggle = 0 End If -EndSysMes: - ssh.SubWroteLast = False @@ -5388,13 +5103,11 @@ DommeSlideshowFallback: ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ Log.WriteError("Error occurred while displaying image. Fallback Failed.", ex, "Display Image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -5406,12 +5119,8 @@ DommeSlideshowFallback: ' #################### Update ChatText ######################## ' Since ssh.Chat is not modified on NullResponse etc. we can display it every time. ' --> This will disallow to scroll up in chat. - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - ScrollChatDown() + ChatUpdate() - SaveChatLog(True) ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ @@ -5517,13 +5226,10 @@ DommeSlideshowFallback: If ssh.EndSession = True Then ssh.EndSession = False - Dim SaveChat As String = ssh.Chat SaveChatLog(False) ssh.Reset() FrmSettings.LockOrgasmChances(False) mainPictureBox.Image = Nothing - ChatText.DocumentText = SaveChat - ChatText2.DocumentText = SaveChat End If If ssh.SubGaveUp = True Then @@ -5852,7 +5558,6 @@ Retry: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message, ex, "Move in slideshow Failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) MessageBox.Show(ex.Message, "Move in Slideshow failed", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub @@ -6038,7 +5743,7 @@ Retry: Dim TauntFiles As New List(Of TauntProcessingObject) - For Each str As String In myDirectory.GetFiles(ssh.Folders.Personality & "\Stroke\", tauntFile & "_*.txt", SearchOption.TopDirectoryOnly) + For Each str As String In myDirectory.GetFiles(Path.Combine(ssh.Folders.Personality, "Stroke"), tauntFile & "_*.txt", SearchOption.TopDirectoryOnly) Dim Taunt As New TauntProcessingObject(str, Me) If Taunt.Avaialable Then TauntFiles.Add(Taunt) Next @@ -6907,7 +6612,7 @@ CensorConstant: - Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) + Dim PetNameVal As Integer = ssh.randomizer.Next(1, 5) If PetNameVal = 1 Then ssh.PetName = FrmSettings.petnameBox3.Text If PetNameVal = 2 Then ssh.PetName = FrmSettings.petnameBox4.Text @@ -7289,8 +6994,8 @@ CensorConstant: End Function Public Function PoundClean(ByVal StringClean As String) As String -#If TRACE Then Dim alreadyChecked As List(Of String) = New List(Of String) +#If TRACE Then Dim TS As New TraceSwitch("PoundClean", "") If TS.TraceVerbose Then @@ -7537,7 +7242,6 @@ RinseLatherRepeat: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", ex, "@DeleteLocalImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If StringClean = StringClean.Replace("@DeleteLocalImage", "") @@ -7556,7 +7260,6 @@ RinseLatherRepeat: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Command @DeleteImage was unable to delete the image.", ex, "@DeleteImage failed") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & "", False) End Try End If StringClean = StringClean.Replace("@DeleteImage", "") @@ -7939,7 +7642,6 @@ RinseLatherRepeat: Catch ex As Exception Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & ex.Message, ex, "CommandClean()") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to start TnA Slideshow", False) End Try StringClean = StringClean.Replace("@TnAFastSlides", "") @@ -8108,7 +7810,6 @@ RinseLatherRepeat: Else Dim lazytext As String = "@GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow." Log.WriteError(lazytext, New NullReferenceException(lazytext), "@GotoSlideshow") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: @GotoSlideshow can't determine the current CustomSlideshow image. Please make sure to start it before using @GotoSlideshow", False) End If StringClean = StringClean.Replace("@GotoSlideshow", "") @@ -11931,7 +11632,7 @@ VTSkip: End If If StringClean.Contains("@ClearChat") Then - ClearChat() + ChatClear() StringClean = StringClean.Replace("@ClearChat", "") End If @@ -12764,7 +12465,6 @@ VTSkip: If ListIncrement <= 0 Then Dim lazyText As String = "FilterList Started With LineGroupingValue """ & ListIncrement & """. " Log.WriteError(lazyText, New ArgumentOutOfRangeException(lazyText), "FilterList Cancelled") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & "", False) Return ListClean End If @@ -12854,8 +12554,8 @@ VTSkip: 'Next #If TRACE Then - Trace.Unindent() - Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") + Trace.Unindent() + Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If 'If ListClean.Count = 0 Then ListClean.Add("test") Return ListClean @@ -13503,7 +13203,6 @@ VTSkip: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(String.Format("Exception occured while checking line ""{0}"".", OrgFilterString), ex, "GetFilter(String, Boolean)") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("Error: " & ex.Message & "", False) Return False End Try End Function @@ -13512,17 +13211,6 @@ VTSkip: #Region "---------------------------------------------------- Chatbox ---------------------------------------------------------" - Private Sub ChatText_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted - ScrollChatDown() - End Sub - - - Private Sub ChatText2_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText2.DocumentCompleted - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - End Sub Private Sub chatBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles chatBox.DragDrop, ChatBox2.DragDrop CType(sender, TextBox).Text = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString @@ -13550,55 +13238,6 @@ VTSkip: End If End Sub - ''' Appends a system message to chat and prints it if desired. - ''' Messagetext to append to chat. - ''' If true the chatwindow is refreshed and reprinted. - Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal printChat As Boolean = True) - ChatAppend("" & messageText & "", printChat) - 'ssh.Chat = "" & "" & ssh.Chat & "" & messageText & "" & "
" - End Sub - - Public Sub ChatAppend(ByVal elementText As String, Optional ByVal printChat As Boolean = True) - ssh.Chat &= elementText & "
" & vbCrLf - If printChat Then Me.PrintChat() - End Sub - - Friend Sub PrintChat() - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - End Sub - - Public Sub ScrollChatDown() - - Try - ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - - Try - ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) - Catch - End Try - - End Sub - - Public Sub ClearChat() - - ssh.Chat = "" - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - End Sub - - Public Sub ChatReadyState() - While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete - Application.DoEvents() - End While - ScrollChatDown() - End Sub - #End Region ' Chatbox #Region "------------------------------------ Avoid the Edge --------------------------------------------" @@ -16166,7 +15805,7 @@ saveImage: End Try Next CFClean = Join(AtArray) - Return CFClean + Return CFClean.Trim End Function @@ -16442,7 +16081,7 @@ restartInstantly: FrmSettings.LockOrgasmChances(False) If ssh.DomTypeCheck = False Then - ssh.DomTask = "Tease AI has been reset" + ssh.DomTask = "@SystemMessage Tease AI has been reset" TypingDelayGeneric() End If setStartName() @@ -17179,6 +16818,8 @@ restartInstantly: LBLWritingTask.Text = "Write the following line " & ssh.WritingTaskLinesAmount & " times" & vbCrLf & "YOUR TIME IS UP" LBLTime.Text = "Time's Up" 'immediately ends the writing task if time is up without waiting for next user input + ChatAddWritingTaskInfo("Time Expired") + ClearWriteTask() ssh.SkipGotoLine = True ssh.FileGoto = "Failed Writing Task" @@ -17237,7 +16878,7 @@ restartInstantly: Dim SetDate As Date = FormatDateTime(FrmSettings.TimeBoxWakeUp.Value, DateFormat.LongTime) My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp", FormatDateTime(SetDate, DateFormat.LongTime), False) My.Settings.WakeUp = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetTime("SYS_WakeUp") - + 'BUG: Ungültige Konvertierung von der Zeichenfolge 10.11.2017 10.11.2017 16:59:51 in Typ Date. End If If ssh.CountUpList.Count > 0 Then @@ -18165,10 +17806,8 @@ restartInstantly: #Region "------------------------------------------------- GlitterFeeds APP ---------------------------------------------------" Sub GlitterSendPost(contactID As Integer, content As String) - 'TODO: Add external CSS file support. - Dim ConName, ConImgPath As String - Dim _Text As String = If(StatusUpdates.Document Is Nothing, "", StatusUpdates.Document.Body.InnerHtml) + Dim BodyText As String = If(StatusUpdates.Document Is Nothing, "", StatusUpdates.Document.Body.InnerHtml) If contactID = 0 Then ConName = My.Settings.DomName @@ -18186,130 +17825,109 @@ restartInstantly: Throw New ArgumentOutOfRangeException End If + '=============================================================================== + ' Generate stylesheet + '=============================================================================== + Dim Style As String = CssTryGetFile(Application.StartupPath & "/System/CSS/GlitterApp.css", My.Resources.GlitterFallbackStyle) + Style = CssReplaceSettings(Style) + + '=============================================================================== + ' Generate body Text + '=============================================================================== ConImgPath = "file://" & ConImgPath.Replace("\", "/") + BodyText &= "
" & vbCrLf + BodyText &= " " & vbCrLf + BodyText &= " " & ConName & "" & vbCrLf + BodyText &= " " & Now.ToLongTimeString & "" & vbCrLf + BodyText &= "

" & content & "

" & vbCrLf + BodyText &= "
" & vbCrLf - _Text &= "
" & vbCrLf - _Text &= " " & vbCrLf - _Text &= " " & ConName & "" & vbCrLf - _Text &= " " & Now.ToLongTimeString & "" & vbCrLf - _Text &= "

" & content & "

" & vbCrLf - _Text &= "
" & vbCrLf - - Dim HtmlHead As String = -" - - - GlitterApp - - - - -" & _Text & " -" - - StatusUpdates.DocumentText = HtmlHead - End Sub + Dim TextToSet As String = HtmlBuildPage("Glitter-App", Style, BodyText) - Public Sub StatusUpdatePost() - ' Lambda expression to clean a single glitter line. - ' Keywords and vocabulary files are processed as in regular scripts. - ' No commands are processed. - Dim CleanString As New Func(Of String, String)( - Function(RawString As String) As String - RawString = PoundClean(RawString) - - Dim SplitArray() As String = Split(RawString) - For i As Integer = SplitArray.Length - 1 To 0 Step -1 - If SplitArray(i).Contains("@") Then - SplitArray(i) = SplitArray(i).Replace(SplitArray(i), "") - End If - If FrmSettings.CBHimHer.Checked = True Then - If SplitArray(i) = "He" Then SplitArray(i) = SplitArray(i).Replace("He", "She") - If SplitArray(i) = "he" Then SplitArray(i) = SplitArray(i).Replace("he", "she") - If SplitArray(i) = "Him" Then SplitArray(i) = SplitArray(i).Replace("Him", "Her") - If SplitArray(i) = "him" Then SplitArray(i) = SplitArray(i).Replace("him", "her") - If SplitArray(i) = "His" Then SplitArray(i) = SplitArray(i).Replace("His", "Her") - If SplitArray(i) = "his" Then SplitArray(i) = SplitArray(i).Replace("his", "her") - End If - Next - Return Join(SplitArray) - End Function) + '=============================================================================== + ' Page Output + '=============================================================================== + Try + StatusUpdates.DocumentText = TextToSet + Catch ex As COMException When ex.ErrorCode = -2147024726 + MessageBox.Show("Unable to access the Webbrowser.", + "Update Glitter-App failed", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - ' Read all lines of the given File. - Dim lines As List(Of String) = Txt2List(ssh.UpdateList(0)) + End Try + End Sub + Public Sub StatusUpdatePost() + ' Read all lines of given file and remove filepath from stack. + Dim Lines As List(Of String) = Txt2List(ssh.UpdateList(0)) ssh.UpdateList.RemoveAt(0) - If lines.Count < 1 Then Exit Sub + If Lines.Count < 1 Then Exit Sub - ssh.StatusText = CleanString(lines(0)) - lines.RemoveAt(0) - - GlitterSendPost(0, ssh.StatusText) - - ' ################## Get Contact1 update ###################### - Dim StatusLines1 As List(Of String) = StatusClean(1, lines) + ' Lambda expression to clean a single glitter line. + ' Keywords and vocabulary files are processed as in regular scripts. + ' No commands are processed. + Dim CleanString = Function(RawString As String) As String + RawString = PoundClean(RawString) + + Dim SplitArray() As String = Split(RawString) + For i As Integer = SplitArray.Length - 1 To 0 Step -1 + If SplitArray(i).Contains("@") Then + SplitArray(i) = SplitArray(i).Replace(SplitArray(i), "") + End If + If FrmSettings.CBHimHer.Checked = True Then + If SplitArray(i) = "He" Then SplitArray(i) = SplitArray(i).Replace("He", "She") + If SplitArray(i) = "he" Then SplitArray(i) = SplitArray(i).Replace("he", "she") + If SplitArray(i) = "Him" Then SplitArray(i) = SplitArray(i).Replace("Him", "Her") + If SplitArray(i) = "him" Then SplitArray(i) = SplitArray(i).Replace("him", "her") + If SplitArray(i) = "His" Then SplitArray(i) = SplitArray(i).Replace("His", "Her") + If SplitArray(i) = "his" Then SplitArray(i) = SplitArray(i).Replace("his", "her") + End If + Next + Return Join(SplitArray) + End Function - ssh.StatusText1 = StatusLines1(ssh.randomizer.Next(0, StatusLines1.Count)) + ssh.StatusText = CleanString(Lines(0)) + Lines.RemoveAt(0) - ' ################## Get Contact2 update ###################### - Dim StatusLines2 As List(Of String) = StatusClean(2, lines) + ' ################## Set Contact updates ###################### - Do - ssh.StatusText2 = StatusLines2(ssh.randomizer.Next(0, StatusLines2.Count)) - Loop Until ssh.StatusText2 <> ssh.StatusText1 + ' Lambda expression to get a clean glitter line. + Dim GetLine = Function(id As Integer) As String + ' Get available lines for given contact + Dim Pool As List(Of String) = StatusClean(id, Lines) +TryAgain: + Dim RtnVal As String = ">" + If Pool.Count > 0 Then + ' Get random line, and remove it from orignal list, to avoid duplicates. + RtnVal = Pool(New Random().Next(0, Pool.Count)) + Lines.Remove(RtnVal) + Pool.Remove(RtnVal) - ' ################## Get Contact3 update ###################### - Dim StatusLines3 As List(Of String) = StatusClean(3, lines) + ' Replace Keywords and Vocabularies. + RtnVal = CleanString(RtnVal) - Do - ssh.StatusText3 = StatusLines3(ssh.randomizer.Next(0, StatusLines3.Count)) - Loop Until ssh.StatusText3 <> ssh.StatusText2 And ssh.StatusText3 <> ssh.StatusText1 + ' Check if the result is empty + If String.IsNullOrWhiteSpace(RtnVal) Then GoTo TryAgain + End If + Return RtnVal + End Function - ' ###################### Reset Data ########################### - ssh.StatusText1 = CleanString(ssh.StatusText1) - ssh.StatusText2 = CleanString(ssh.StatusText2) - ssh.StatusText3 = CleanString(ssh.StatusText3) + ssh.StatusText1 = GetLine(1) + ssh.StatusText2 = GetLine(2) + ssh.StatusText3 = GetLine(3) ssh.StatusChance1 = ssh.randomizer.Next(1, 101) ssh.StatusChance2 = ssh.randomizer.Next(1, 101) ssh.StatusChance3 = ssh.randomizer.Next(1, 101) + ' ################## Begin status update ###################### + GlitterSendPost(0, ssh.StatusText) + ssh.UpdateStageTick = ssh.randomizer.Next(10, 21) ssh.UpdatingPost = True UpdateStageTimer.Start() @@ -18342,6 +17960,9 @@ restartInstantly: Private Sub UpdatesTimer_Tick(sender As System.Object, e As System.EventArgs) Handles UpdatesTimer.Tick If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Exit Sub + 'If ssh.UpdateStageTick > 5 Then ssh.UpdateStageTick = 3 + 'If ssh.UpdatesTick > 5 Then ssh.UpdatesTick = 3 + If My.Settings.CBGlitterFeed = False Then Exit Sub If ssh.UpdatingPost = True Then Exit Sub @@ -18536,28 +18157,28 @@ ReRoll: Public Sub GetShortcutChecked() TBShortYes.Visible = Not CBHideShortcuts.Checked - TBShortNo.Visible = Not CBHideShortcuts.Checked - TBShortEdge.Visible = Not CBHideShortcuts.Checked - TBShortSpeedUp.Visible = Not CBHideShortcuts.Checked - TBShortSlowDown.Visible = Not CBHideShortcuts.Checked - TBShortStop.Visible = Not CBHideShortcuts.Checked - TBShortStroke.Visible = Not CBHideShortcuts.Checked - TBShortCum.Visible = Not CBHideShortcuts.Checked - TBShortGreet.Visible = Not CBHideShortcuts.Checked - TBShortSafeword.Visible = Not CBHideShortcuts.Checked + TBShortNo.Visible = Not CBHideShortcuts.Checked + TBShortEdge.Visible = Not CBHideShortcuts.Checked + TBShortSpeedUp.Visible = Not CBHideShortcuts.Checked + TBShortSlowDown.Visible = Not CBHideShortcuts.Checked + TBShortStop.Visible = Not CBHideShortcuts.Checked + TBShortStroke.Visible = Not CBHideShortcuts.Checked + TBShortCum.Visible = Not CBHideShortcuts.Checked + TBShortGreet.Visible = Not CBHideShortcuts.Checked + TBShortSafeword.Visible = Not CBHideShortcuts.Checked - BTNLS1.Width = If(CBHideShortcuts.Checked, 214, 163) - BTNLS2.Width = If(CBHideShortcuts.Checked, 214, 163) - BTNLS3.Width = If(CBHideShortcuts.Checked, 214, 163) - BTNLS4.Width = If(CBHideShortcuts.Checked, 214, 163) - BTNLS5.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS1.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS2.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS3.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS4.Width = If(CBHideShortcuts.Checked, 214, 163) + BTNLS5.Width = If(CBHideShortcuts.Checked, 214, 163) - BTNLS1Edit.Visible = Not CBHideShortcuts.Checked - BTNLS2Edit.Visible = Not CBHideShortcuts.Checked - BTNLS3Edit.Visible = Not CBHideShortcuts.Checked - BTNLS4Edit.Visible = Not CBHideShortcuts.Checked - BTNLS5Edit.Visible = Not CBHideShortcuts.Checked + BTNLS1Edit.Visible = Not CBHideShortcuts.Checked + BTNLS2Edit.Visible = Not CBHideShortcuts.Checked + BTNLS3Edit.Visible = Not CBHideShortcuts.Checked + BTNLS4Edit.Visible = Not CBHideShortcuts.Checked + BTNLS5Edit.Visible = Not CBHideShortcuts.Checked End Sub @@ -20185,8 +19806,6 @@ ShowedBlogImage: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ If throwException Then Log.WriteError("Command @ShowImage[] was unable to display the image.", ex, "Error at @ShowImage[]") - 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error at @ShowImage[]") - If throwException And My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error at @ShowImage[]", False) End Try Return tmpImgLoc End Function diff --git a/Tease AI/Form1/Chat.vb b/Tease AI/Form1/Chat.vb new file mode 100644 index 0000000..8cfec26 --- /dev/null +++ b/Tease AI/Form1/Chat.vb @@ -0,0 +1,335 @@ +'=========================================================================================== +' +' Chat.vb +' +' This file contains functions and methods to write and update the Chat. +' +'=========================================================================================== + +Imports System.Runtime.InteropServices +Imports System.Text.RegularExpressions + + +Partial Class Form1 + + Private Sub SaveChatLog(ByVal IsAutosave As Boolean) + If ChatText.DocumentText.Length > 300 Then + Dim SaveDir As String = Application.StartupPath & "\Chatlogs\" + + + If (Not IO.Directory.Exists(SaveDir)) Then + IO.Directory.CreateDirectory(SaveDir) + End If + + If IsAutosave = True And FrmSettings.CBAutosaveChatlog.Checked = True Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + + ElseIf IsAutosave = False And FrmSettings.CBSaveChatlogExit.Checked = True Then + My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\" & DateTime.Now.ToString("MM.dd.yyyy hhmm") & " chatlog.html", ChatText.DocumentText, False) + End If + + End If + End Sub + + Private Function ChatGetCssClassFromName(ByVal name As String) As String + If name = My.Settings.SubName Then + Return "sub" + ElseIf name = My.Settings.DomName Then + Return "domme" + ElseIf name = My.Settings.Glitter1 Then + Return "contact1" + ElseIf name = My.Settings.Glitter2 Then + Return "contact2" + ElseIf name = My.Settings.Glitter3 Then + Return "contact3" + Else + Return "random" + End If + End Function + + Public Sub ChatAddMessage(ByVal name As String, message As String, Optional ByVal delayOutput As Boolean = False) + ChatAppend("
+
+ " & (Date.Now.ToString("hh:mm tt ")) & " + " & name & ": + " & message & " +
+
" & vbCrLf, delayOutput) + End Sub + + Public Sub ChatAddEmoteMessage(ByVal name As String, message As String, Optional ByVal delayOutput As Boolean = False) + ChatAppend("
+
+ " & (Date.Now.ToString("hh:mm tt ")) & " + " & name & ": + " & message & " +
+
" & vbCrLf, delayOutput) + End Sub + + ''' Appends a system message to chat and prints it if desired. + ''' Messagetext to append to chat. + ''' If true the chatwindow-content won't change until despired. + Public Sub ChatAddSystemMessage(ByVal messageText As String, Optional ByVal delayOutput As Boolean = False) + ChatAppend("
+ + " & messageText & " + +
", delayOutput) + End Sub + + Public Sub ChatAddWritingTaskInfo(message As String, Optional delayOutput As Boolean = False) + ChatAppend("
+ + " & message & " + +
", delayOutput, True) + End Sub + + Public Sub ChatAddScriptPosInfo(descr As String, Optional delayOutput As Boolean = False) + ChatAppend("
+ ::: " & If(descr = "@", "TYPO", descr.Replace("@", "")) & " :::
+ ::: FileText = " & ssh.FileText & " ::: LineVal = " & ssh.StrokeTauntVal & "
+ ::: TauntText = " & ssh.TauntText & " ::: LineVal = " & ssh.TauntTextCount & "
+ ::: ResponseFile = " & ssh.ResponseFile & " ::: LineVal = " & ssh.ResponseLine & " + +
", delayOutput, True) + End Sub + + Public Sub ChatAddException(msg As String, ex As Exception) + ChatAppend("
+ ERROR: " & msg & " + ::: Exception: " & ex.Message & " +
", False, True) + End Sub + + Public Sub ChatAppend(ByVal elementText As String, + Optional ByVal delayOutput As Boolean = False, + Optional ByVal linkify As Boolean = False) + If linkify = True Then + Dim re As New Regex("[a-zA-Z]:\\(((?![<>:""/\\|?*]).)+((?$&" + + elementText = re.Replace(elementText, ReplacePattern) + End If + + ssh.Chat &= elementText & "" & vbCrLf + If delayOutput = False Then Me.ChatUpdate() + End Sub + + Public Sub ChatClear() + ssh.Chat = "" + ChatUpdate() + End Sub + + Friend Sub ChatUpdate() + If Me.InvokeRequired Then + Me.Invoke(Sub() ChatUpdate()) + Exit Sub + End If + + Dim DommeTyping, C1Typing, C2Typing, C3Typing, RndTyping As Boolean + + If ssh.IsTyping Then + If ssh.tempDomName = My.Settings.DomName Then + DommeTyping = True + ElseIf ssh.tempDomName = My.Settings.Glitter1 Then + C1Typing = True + ElseIf ssh.tempDomName = My.Settings.Glitter2 Then + C2Typing = True + ElseIf ssh.tempDomName = My.Settings.Glitter3 Then + C3Typing = True + Else + RndTyping = True + End If + End If + + '=============================================================================== + ' Generate stylesheet + '=============================================================================== + Dim Style As String = CssTryGetFile(Application.StartupPath & "/System/CSS/ChatWindow.css", My.Resources.ChatFallbackStyle) + Style = CssReplaceSettings(Style) & vbCrLf + + Style &= +" /* --- Visibility Section --- */ +/* This section is generated by code and added automatically*/ + +.exception {" & If(My.Settings.CBOutputErrors, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "} +.writingTaskInfo {" & If(CBWritingProgress.Checked, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "} + +.timestamp { " & If(My.Settings.CBTimeStamps, "visibility: visible; display:initial;", "visibility:hidden; display:none") & "} +.name {" & If(My.Settings.CBShowNames, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "} +#DommeIsTyping {" & If(DommeTyping, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "} +#Contact1IsTyping {" & If(C1Typing, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "} +#Contact2IsTyping {" & If(C2Typing, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "} +#Contact3IsTyping {" & If(C3Typing, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "} +#RandomIsTyping {" & If(RndTyping, "visibility:visible; display:initial;", "visibility:hidden; display:none") & "}" + + '=============================================================================== + ' Generate body Text + '=============================================================================== + Dim BodyText As String = "
" & vbCrLf & ssh.Chat & vbCrLf & "
" & +"
" & My.Settings.DomName & " is typing...
+
" & My.Settings.Glitter1 & " is typing...
+
" & My.Settings.Glitter2 & " is typing...
+
" & My.Settings.Glitter3 & " is typing...
+
Unkwown user is typing...
" + + '=============================================================================== + ' Page Output + '=============================================================================== + Try + Dim GetLastMessage = Function(x As WebBrowser) As String + If x.Document Is Nothing Then Return "" + + If x.Document.GetElementById("Chat") IsNot Nothing Then + With x.Document.GetElementById("Chat") + If .CanHaveChildren AndAlso .Children.Count > 0 Then + + Return .Children(.Children.Count - 1).OuterHtml + End If + End With + End If + Return "" + End Function + + + + Dim TextToSet As String = HtmlBuildPage("Chat", Style, BodyText) + + Try + If My.Settings.CBWebtease Then + ' ################### Webtease Mode ########################### + Dim Helper As New WebBrowser + Helper.DocumentText = TextToSet + Do Until Helper.ReadyState = WebBrowserReadyState.Complete + Application.DoEvents() + Loop + + Dim LP As String = GetLastMessage(Helper) + + TextToSet = TextToSet.Replace(ssh.Chat, LP) + End If + Catch ex As Exception + Log.WriteError("Unable to determine last chat message to create webtease output.", ex, "Output WebTease Chat failed") + End Try + + ChatText.DocumentText = TextToSet + ChatText2.DocumentText = TextToSet + + ChatReadyState() + SaveChatLog(True) + + If ssh.RiskyDeal Then + FrmCardList.WBRiskyChat.DocumentText = TextToSet.Replace(ssh.Chat, GetLastMessage(ChatText)) + End If + + Catch ex As COMException When ex.ErrorCode = -2147024726 + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + ' Unable to access Webbrowser + '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ + MessageBox.Show("Unable to access the Webbrowser.", + "Update Chat failed", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + + End Try + End Sub + + Public Sub ScrollChatDown() + + Try + ChatText.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + + Try + ChatText2.Document.Window.ScrollTo(Int16.MaxValue, Int16.MaxValue) + Catch + End Try + + End Sub + + + Shared Function HtmlBuildPage(title As String, style As String, bodyText As String) As String + Return _ +" + + + " & title & " - Tease AI " & My.Application.Info.Version.ToString & " + + + + +" & bodyText & " +" + End Function + + Private Function CssTryGetFile(filePath As String, fallback As String) As String + + If IO.Directory.Exists(IO.Path.GetDirectoryName(filePath)) AndAlso IO.File.Exists(filePath) Then + Return IO.File.ReadAllText(filePath) + Else + Return fallback + End If + + End Function + + Private Function CssReplaceSettings(ByVal input As String) As String + Dim HtmlSizeToEm = Function(x As Integer) As String + If x <= 1 Then : Return "0.63em" + ElseIf x <= 2 Then : Return "0.82em" + ElseIf x <= 3 Then : Return "1.00em" + ElseIf x <= 4 Then : Return "1.13em" + ElseIf x <= 5 Then : Return "1.5em" + ElseIf x <= 6 Then : Return "2em" + ElseIf x <= 7 Then : Return "3em" + Else : Return "4em" + End If + + End Function + + input = input.Replace("/*ChatWindowColor*/", Color2Html(My.Settings.ChatWindowColor)) + input = input.Replace("/*ChatTextColor*/", Color2Html(My.Settings.ChatTextColor)) + input = input.Replace("/*SubNameColor*/", My.Settings.SubColor) + input = input.Replace("/*DommeNameColor*/", My.Settings.DomColor) + input = input.Replace("/*Contact1NameColor*/", Color2Html(My.Settings.GlitterNC1Color)) + input = input.Replace("/*Contact2NameColor*/", Color2Html(My.Settings.GlitterNC2Color)) + input = input.Replace("/*Contact3NameColor*/", Color2Html(My.Settings.GlitterNC3Color)) + + input = input.Replace("/*DommeFontSize*/", HtmlSizeToEm(My.Settings.DomFontSize)) + input = input.Replace("/*SubFontSize*/", HtmlSizeToEm(My.Settings.SubFontSize)) + + input = input.Replace("/*DommeFontName*/", My.Settings.DomFont) + input = input.Replace("/*SubFontName*/", My.Settings.SubFont) + + Return input + End Function + +#Region "WebBrowser related" + + Private Sub ChatText_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ChatText.DocumentCompleted, ChatText2.DocumentCompleted + ScrollChatDown() + End Sub + + Public Sub ChatReadyState() + While ChatText.ReadyState <> WebBrowserReadyState.Complete Or ChatText2.ReadyState <> WebBrowserReadyState.Complete + Application.DoEvents() + End While + ScrollChatDown() + End Sub + + Private Sub ChatText_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles ChatText.Navigating, ChatText2.Navigating + + If e.Url.AbsolutePath <> "blank" Then + If e.Url.IsFile Then + ShellExecute(e.Url.LocalPath) + Else + ShellExecute(e.Url.AbsolutePath) + End If + e.Cancel = True + End If + + End Sub +#End Region +End Class \ No newline at end of file diff --git a/Tease AI/Form1/ImageFuctions.vb b/Tease AI/Form1/ImageFuctions.vb index f8881b8..0bcc5b4 100644 --- a/Tease AI/Form1/ImageFuctions.vb +++ b/Tease AI/Form1/ImageFuctions.vb @@ -133,7 +133,6 @@ Partial Class Form1 '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " : " & ex.Message, ex, "Exception at: " & Name.ToString & ".ToList()") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist for genre. See Errorlogs for more information.", False) Return New List(Of String) End Try Return rtnList @@ -203,7 +202,6 @@ Partial Class Form1 End If Catch ex As Exception Log.WriteError(ex.Message, ex, "Error occured while loading Likelist") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Likelist", False) GoTo exitEmpty End Try '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -226,7 +224,6 @@ Partial Class Form1 End If Catch ex As Exception Log.WriteError(ex.Message, ex, "Error occured while loading Dislikelist") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while loading Dislikelist", False) GoTo exitEmpty End Try '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ @@ -281,7 +278,6 @@ Partial Class Form1 '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " and Source." & Type.ToString & " : " & ex.Message, ex, "Exception at: " & Name.ToString & ".ToList(" & Type.ToString & ")") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Failed to fetch Imagelist. See Errorlogs for more information.", False) Return New List(Of String) End Try exitEmpty: @@ -309,7 +305,6 @@ exitEmpty: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) End Try NoneFound: ' Return the Error-Image FilePath @@ -340,7 +335,6 @@ NoneFound: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError(ex.Message & vbCrLf & ToString(), ex, "Error while choosing a random Image.") - If My.Settings.CBOutputErrors = True Then Form1.ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error while choosing a random Image.", False) End Try NoneFound: ' Return an Error-Image FilePath @@ -632,13 +626,11 @@ NoNeFound: FetchContainer.ImageLocation = pathImageErrorOnLoading Dim lazyText As String = "The given imagepath was NULL." Log.WriteError(lazyText, New ArgumentNullException(lazyText), "ShowImage with no valid imagepath.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) ElseIf ImageToShow = "" Then ' ====================== String.Empty ======================== FetchContainer.ImageLocation = pathImageErrorOnLoading Dim lazyText As String = "The given imagepath was empty." Log.WriteError(lazyText, New ArgumentException(lazyText), "ShowImage with no valid imagepath.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & lazyText & " :::: ShowImage with no valid imagepath.", False) Else ' ======================== All fine ========================== FetchContainer.ImageLocation = ImageToShow @@ -657,7 +649,6 @@ NoNeFound: Catch ex As Exception Log.WriteError("Error occurred while displaying image. Fallback Failed.", ex, "ShowImage(String, Boolean)") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error occurred while displaying image. Fallback failed.", False) End Try End Sub @@ -764,8 +755,6 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima Debug.Print("ImageFetch - DoWork - 1st Exception perfomaing fallback") Log.WriteError("Error loading Image: """ & .ImageLocation & """", ex, "Error loading image. Performing fallback to errorimage.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Error loading image: " & .ImageLocation & "", False) - .ImageLocation = errorimagepath GoTo retryLocal Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ @@ -774,7 +763,6 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima Debug.Print("ImageFetch - DoWork - 2nd Exception - fallback failed.") Log.WriteError("Fallback to errorimage """ & .ImageLocation & """ failed ", ex, "Error loading image") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Fallback to errorimage """ & .ImageLocation & """ failed ", False) End Try End With @@ -844,7 +832,6 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("An Exception occurred while displaying image: " & vbCrLf & ex.Message, ex, "Error Displaying image.") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: An exception occurred while displaying image", False) End Try End Sub @@ -926,7 +913,6 @@ retryLocal: ' If an exception occures the function is restarted and the Errorima '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Unable to set image in MainPictureBox: " & ex.Message, ex, "MainPictureboxSetImage") - If My.Settings.CBOutputErrors = True And ssh.SaidHello = True Then ChatAddSystemMessage("ERROR: " & ex.Message & " :::: Unable to set image in MainPictureBox", False) End Try End Sub diff --git a/Tease AI/My Project/Resources.Designer.vb b/Tease AI/My Project/Resources.Designer.vb index fd2decb..50516f7 100644 --- a/Tease AI/My Project/Resources.Designer.vb +++ b/Tease AI/My Project/Resources.Designer.vb @@ -129,6 +129,24 @@ Namespace My.Resources Return CType(obj,System.Drawing.Bitmap) End Get End Property + + ''' + ''' Represents the fallback stylesheet of the main and side chat. + ''' + Friend ReadOnly Property ChatFallbackStyle() As String + Get + Return ResourceManager.GetString("ChatFallbackStyle", resourceCulture) + End Get + End Property + + ''' + ''' Represents the fallback stylesheet of the glitter app. + ''' + Friend ReadOnly Property GlitterFallbackStyle() As String + Get + Return ResourceManager.GetString("GlitterFallbackStyle", resourceCulture) + End Get + End Property ''' ''' Looks up a localized resource of type System.Drawing.Bitmap. diff --git a/Tease AI/My Project/Resources.resx b/Tease AI/My Project/Resources.resx index a3b8178..89a5e20 100644 --- a/Tease AI/My Project/Resources.resx +++ b/Tease AI/My Project/Resources.resx @@ -145,4 +145,10 @@ ..\Resources\Button_Import_Big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\CSS\ChatFallbackStyle.css;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 + + + ..\Resources\CSS\GlitterFallbackStyle.css;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 + \ No newline at end of file diff --git a/Tease AI/Resources/CSS/ChatFallbackStyle.css b/Tease AI/Resources/CSS/ChatFallbackStyle.css new file mode 100644 index 0000000..83873a4 --- /dev/null +++ b/Tease AI/Resources/CSS/ChatFallbackStyle.css @@ -0,0 +1,22 @@ +/* Chat fallback style */ +/* This stylesheet is used, if there was no custom stylesheet found at: [Tease-AI-Root]\System\CSS\ChatWindow.css */ + +body {font: 16px Cambria; color:/*ChatTextColor*/; background-color: /*ChatWindowColor*/;} + +.systemMessage {color: steelblue; font-weight: bold;} + +.exception {color: Red; background-color: #FFE6E6;} +.exception .msg {Display:Block; font-weight: bold;} +.exception .exMessage {Display: hidden;} + +.timestamp {color: DimGray;} +.sub .name {color: /*SubNameColor*/; font-family: /*SubFontName*/; font-size: /*SubFontSize*/;} +.domme .name, .emoteMessage .domme .text {color: /*DommeNameColor*/; font-family: /*DommeFontName*/; font-size: /*DommeFontSize*/;} +.contact1 .name, .emoteMessage .contact1 .text {color: /*Contact1NameColor*/; font-family: /*DommeFontName*/; font-size: /*DommeFontSize*/;} +.contact2 .name, .emoteMessage .contact2 .text {color: /*Contact2NameColor*/; font-family: /*DommeFontName*/; font-size: /*DommeFontSize*/;} +.contact3 .name, .emoteMessage .contact3 .text {color: /*Contact3NameColor*/; font-family: /*DommeFontName*/; font-size: /*DommeFontSize*/;} + +.name {font-weight: bold;} +.emoteMessage .text {font-style: italic; font-weight:bold;} + +#DommeIsTyping, #Contact1IsTyping, #Contact2IsTyping, #Contact3IsTyping {font-style: italic; color: DimGray;} \ No newline at end of file diff --git a/Tease AI/Resources/CSS/GlitterFallbackStyle.css b/Tease AI/Resources/CSS/GlitterFallbackStyle.css new file mode 100644 index 0000000..08087ff --- /dev/null +++ b/Tease AI/Resources/CSS/GlitterFallbackStyle.css @@ -0,0 +1,25 @@ +/* Glitter-App fallback style */ +/* This stylesheet is used, if there was no custom stylesheet found at: [Tease-AI-Root]\System\CSS\GlitterApp.css */ + +body {font: Cambria; color: /*ChatTextColor*/; background-color: /*ChatWindowColor*/; padding: 5px; margin: 0;} +.post { + width: 100%; + margin-bottom: 0.8em; +} + +.avImg {float: left;width: 48px; height: 48px;} +.timestamp {font-size: 0.8em; color: DarkGray; display:block;} + +.avName_0, .avName_1, .avName_2, .avName_3 {font-size: 1.2em; font-weight: bold;} +.avName_0 {color: /*DommeNameColor*/; font-family: /*DommeFontName*/;} +.avName_1 {color: /*Contact1NameColor*/; font-family: /*DommeFontName*/;} +.avName_2 {color: /*Contact2NameColor*/; font-family: /*DommeFontName*/;} +.avName_3 {color: /*Contact3NameColor*/; font-family: /*DommeFontName*/;} + +.content { + color: /*ChatTextColor*/; + font-size: 0.9em; + margin: 9, 1,3,1; + PADDING: 2; + display: block; +} \ No newline at end of file diff --git a/Tease AI/Tease AI.vbproj b/Tease AI/Tease AI.vbproj index e88d44b..1557016 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -137,6 +137,9 @@ Form + + Form + Form @@ -306,6 +309,10 @@ + + + +